stalin-0.11/0000700017435200151030000000000010510300305011352 5ustar qobiqobistalin-0.11/benchmarks/0000700017435200151030000000000010464670326013514 5ustar qobiqobistalin-0.11/benchmarks/bcl-benchmark0000700017435200151030000000024107066466311016130 0ustar qobiqobi#!/bin/sh unset noclobber gcc -o unbuff unbuff.c ../stalin -q -On -db -dc bcl-to-latex ./unbuff >bcl.text ./compile-and-run-stalin-bcl-benchmarks ./bcl-to-latex stalin-0.11/benchmarks/README0000600017435200151030000000472607063216045014402 0ustar qobiqobiThis directory contains various benchmarks and examples. The top-level scripts are: make-clean: Clean up this directory. old-benchmark: Run the old set of benchmarks, including all of the Gabriel benchmarks. The output of this script is in the file old-results.tex. fdlcc-benchmark: Run the benchmarks from the paper Flow- Directed Lightweight Closure Conversion. The output of this script is in the file fdlcc-results.tex. bcl-benchmark: Run the fdlcc benchmarks comparing the baseline, conventional, and lightweight strategies. The output of this script is in the file bcl.tex. make-hello: Compile the file hello.sc. make-xhello: Compile the file xhello.sc. make-define-application-example: Compile the file define-application-example.sc. ------------------------------------------------------------------------------- boyer: version obtained from Scheme repository; also available from Debray and Jagannathan & Wright graphs: version obtained from Jagannathan & Wright; also available from Debray lattice: version obtained from Jagannathan & Wright; also available from Debray nucleic2: pseudoknot-strict; also available from Clinger and Jagannathan & Wright matrix: version obtained from Debray; also available from Jagannathan & Wright earley: version obtained from Debray scheme: version obtained from Debray conform: version obtained from Debray nboyer: version obtained from Clinger sboyer: version obtained from Clinger dynamic: version obtained from Clinger; also available from Jagannathan & Wright fannkuch: version obtained from Haible simplex: version obtained from Siskind em-functional: version obtained from Siskind em-imperative: version obtained from Siskind nfm: version obtained from Siskind integ: version obtained from O'Keefe gold: version obtained from O'Keefe sort: version obtained from O'Keefe rrr: version obtained from Siskind To do: maze nbody splay stalin-0.11/benchmarks/benchmarks-to-latex.sc0000600017435200151030000002173107324206013017706 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah (include "QobiScheme") (define (read-benchmark-file pathname) (let ((benchmarks '()) (current-benchmark #f)) (for-each (lambda (line) (cond ((and (= (number-of-fields line) 2) (string=? (field-ref line 0) "run")) (when current-benchmark (set! benchmarks (cons (reverse current-benchmark) benchmarks))) (let ((name (field-ref line 1))) (set! current-benchmark ;; Change 0 to 5 to strip off "kilo/". (list (substring name 0 (string-length name)))))) ;; To handle tcsh version of `time'. ((and (= (number-of-fields line) 7) (string=? (field-ref line 4) "0+0k")) (set! current-benchmark (cons (+ (string->number (list->string (reverse (rest (reverse (string->list (field-ref line 0))))))) (string->number (list->string (reverse (rest (reverse (string->list (field-ref line 1)))))))) current-benchmark))) ;; To handle /usr/bin/time version of `time'. ((and (= (number-of-fields line) 6) (string=? (field-ref line 5) "0maxresident)k")) (set! current-benchmark (cons (+ (string->number (list->string (reverse (rest (rest (rest (rest (reverse (string->list (field-ref line 0)))))))))) (string->number (list->string (reverse (rest (rest (rest (rest (rest (rest (reverse (string->list (field-ref line 1))))))))))))) current-benchmark))))) (read-file pathname)) (when current-benchmark (set! benchmarks (cons (reverse current-benchmark) benchmarks))) (reverse benchmarks))) (define (best-results benchmarks) (map (lambda (benchmark) (if (null? (rest benchmark)) benchmark (list (first benchmark) (reduce min (rest benchmark) #f)))) benchmarks)) (define (format-absolute-results Stalin-benchmarks Scheme->C-benchmarks Gambit-C-benchmarks Bigloo-benchmarks Chez-benchmarks Chicken-benchmarks latex-port) (format latex-port "\\begin{tabular}{|l|r|r|r|r|r|r|}~%") (format latex-port "\\hline~%") (format latex-port "&\\Stalin&\\SchemeToC&\\GambitC&\\Bigloo&\\Chez&\\Chicken\\\\~%") (format latex-port "\\hline~%") (for-each (lambda (Stalin-benchmark Scheme->C-benchmark Gambit-C-benchmark Bigloo-benchmark Chez-benchmark Chicken-benchmark) (unless (and (string=? (first Stalin-benchmark) (first Scheme->C-benchmark)) (string=? (first Stalin-benchmark) (first Gambit-C-benchmark)) (string=? (first Stalin-benchmark) (first Bigloo-benchmark)) (string=? (first Stalin-benchmark) (first Chez-benchmark)) (string=? (first Stalin-benchmark) (first Chicken-benchmark))) (fuck-up)) (format latex-port "{\\tt ~a}&~a&~a&~a&~a&~a&~a\\\\~%" (first Stalin-benchmark) (if (null? (rest Stalin-benchmark)) "" (rounded-number->string (second Stalin-benchmark) 3)) (if (null? (rest Scheme->C-benchmark)) "" (rounded-number->string (second Scheme->C-benchmark) 3)) (if (null? (rest Gambit-C-benchmark)) "" (rounded-number->string (second Gambit-C-benchmark) 3)) (if (null? (rest Bigloo-benchmark)) "" (rounded-number->string (second Bigloo-benchmark) 3)) (if (null? (rest Chez-benchmark)) "" (rounded-number->string (second Chez-benchmark) 3)) (if (null? (rest Chicken-benchmark)) "" (rounded-number->string (second Chicken-benchmark) 3)))) (best-results Stalin-benchmarks) (best-results Scheme->C-benchmarks) (best-results Gambit-C-benchmarks) (best-results Bigloo-benchmarks) (best-results Chez-benchmarks) (best-results Chicken-benchmarks)) (format latex-port "\\hline~%") (format latex-port "\\end{tabular}~%")) (define (format-relative-results Stalin-benchmarks Scheme->C-benchmarks Gambit-C-benchmarks Bigloo-benchmarks Chez-benchmarks Chicken-benchmarks latex-port) (format latex-port "\\begin{tabular}{|l|r|r|r|r|r|}~%") (format latex-port "\\hline~%") (format latex-port "&$\\displaystyle\\frac{\\mbox{\\SchemeToC}}{\\mbox{\\Stalin}}$&$\\displaystyle\\frac{\\mbox{\\GambitC}}{\\mbox{\\Stalin}}$&$\\displaystyle\\frac{\\mbox{\\Bigloo}}{\\mbox{\\Stalin}}$&$\\displaystyle\\frac{\\mbox{\\Chez}}{\\mbox{\\Stalin}}$&$\\displaystyle\\frac{\\mbox{\\Chicken}}{\\mbox{\\Stalin}}$\\\\~%") (format latex-port "\\hline~%") (for-each (lambda (Stalin-benchmark Scheme->C-benchmark Gambit-C-benchmark Bigloo-benchmark Chez-benchmark Chicken-benchmark) (unless (and (string=? (first Stalin-benchmark) (first Scheme->C-benchmark)) (string=? (first Stalin-benchmark) (first Gambit-C-benchmark)) (string=? (first Stalin-benchmark) (first Bigloo-benchmark)) (string=? (first Stalin-benchmark) (first Chez-benchmark)) (string=? (first Stalin-benchmark) (first Chicken-benchmark))) (fuck-up)) (format latex-port "{\\tt ~a}&~a&~a&~a&~a&~a\\\\~%" (first Stalin-benchmark) (if (or (null? (rest Stalin-benchmark)) (null? (rest Scheme->C-benchmark))) "" (if (< (second Scheme->C-benchmark) (second Stalin-benchmark)) (string-append "{\\bf " (rounded-number->string (/ (second Scheme->C-benchmark) (second Stalin-benchmark)) 3) "}") (rounded-number->string (/ (second Scheme->C-benchmark) (second Stalin-benchmark)) 3))) (if (or (null? (rest Stalin-benchmark)) (null? (rest Gambit-C-benchmark))) "" (if (< (second Gambit-C-benchmark) (second Stalin-benchmark)) (string-append "{\\bf " (rounded-number->string (/ (second Gambit-C-benchmark) (second Stalin-benchmark)) 3) "}") (rounded-number->string (/ (second Gambit-C-benchmark) (second Stalin-benchmark)) 3))) (if (or (null? (rest Stalin-benchmark)) (null? (rest Bigloo-benchmark))) "" (if (< (second Bigloo-benchmark) (second Stalin-benchmark)) (string-append "{\\bf " (rounded-number->string (/ (second Bigloo-benchmark) (second Stalin-benchmark)) 3) "}") (rounded-number->string (/ (second Bigloo-benchmark) (second Stalin-benchmark)) 3))) (if (or (null? (rest Stalin-benchmark)) (null? (rest Chez-benchmark))) "" (if (< (second Chez-benchmark) (second Stalin-benchmark)) (string-append "{\\bf " (rounded-number->string (/ (second Chez-benchmark) (second Stalin-benchmark)) 3) "}") (rounded-number->string (/ (second Chez-benchmark) (second Stalin-benchmark)) 3))) (if (or (null? (rest Stalin-benchmark)) (null? (rest Chicken-benchmark))) "" (if (< (second Chicken-benchmark) (second Stalin-benchmark)) (string-append "{\\bf " (rounded-number->string (/ (second Chicken-benchmark) (second Stalin-benchmark)) 3) "}") (rounded-number->string (/ (second Chicken-benchmark) (second Stalin-benchmark)) 3))))) (best-results Stalin-benchmarks) (best-results Scheme->C-benchmarks) (best-results Gambit-C-benchmarks) (best-results Bigloo-benchmarks) (best-results Chez-benchmarks) (best-results Chicken-benchmarks)) (format latex-port "\\hline~%") (format latex-port "\\end{tabular}~%")) (let ((Stalin-benchmarks (read-benchmark-file "stalin.results")) (Scheme->C-benchmarks (read-benchmark-file "s2c.results")) (Gambit-C-benchmarks (read-benchmark-file "gambit.results")) (Bigloo-benchmarks (read-benchmark-file "bigloo.results")) (Chez-benchmarks (read-benchmark-file "chez.results")) (Chicken-benchmarks (read-benchmark-file "chicken.results"))) (call-with-output-file "results.tex" (lambda (latex-port) (format latex-port "\\documentclass{article}~%") (format latex-port "\\usepackage{fullpage}~%") (format latex-port "\\begin{document}~%") (format latex-port "\\newcommand{\\Stalin}{{\\mbox{\\sc Stalin}}}~%") (format latex-port "\\newcommand{\\SchemeToC}{{\\mbox{\\sc Scheme-\\symbol{62}C}}}~%") (format latex-port "\\newcommand{\\GambitC}{{\\mbox{\\sc Gambit-C}}}~%") (format latex-port "\\newcommand{\\Bigloo}{{\\mbox{\\sc Bigloo}}}~%") (format latex-port "\\newcommand{\\Chez}{{\\mbox{\\sc Chez}}}~%") (format latex-port "\\newcommand{\\Chicken}{{\\mbox{\\sc Chicken}}}~%") (format latex-port "\\begin{center}~%") (format-absolute-results Stalin-benchmarks Scheme->C-benchmarks Gambit-C-benchmarks Bigloo-benchmarks Chez-benchmarks Chicken-benchmarks latex-port) (format latex-port "\\end{center}~%") (format latex-port "\\begin{center}~%") (format-relative-results Stalin-benchmarks Scheme->C-benchmarks Gambit-C-benchmarks Bigloo-benchmarks Chez-benchmarks Chicken-benchmarks latex-port) (format latex-port "\\end{center}~%") (format latex-port "\\end{document}~%")))) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/benchmarks/bcl-to-latex.sc0000600017435200151030000004677107063211665016355 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah (include "QobiScheme") ;;; note: There is no notion of VARIABLE-USED?, PROCEDURE-USED?, and ;;; REACHABLE? (define (best-run-time times) (unless (= (length times) 3) (fuck-up)) (reduce min times infinity)) (define (last-pair list) (if (null? (rest list)) list (last-pair (rest list)))) (let ((mode #f) (running? #f) (baseline '()) (conventional '()) (lightweight '()) (benchmark-name #f)) (define (baseline-number-of-variables benchmark) (list-ref (assoc benchmark baseline) 1)) (define (baseline-number-of-assigned-variables benchmark) (list-ref (assoc benchmark baseline) 2)) (define (baseline-number-of-accessed-variables benchmark) (list-ref (assoc benchmark baseline) 3)) (define (baseline-number-of-nonfictitious-variables benchmark) (list-ref (assoc benchmark baseline) 4)) (define (baseline-number-of-local-variables benchmark) (list-ref (assoc benchmark baseline) 5)) (define (baseline-number-of-global-variables benchmark) (list-ref (assoc benchmark baseline) 6)) (define (baseline-number-of-hidden-variables benchmark) (list-ref (assoc benchmark baseline) 7)) (define (baseline-number-of-slotted-variables benchmark) (list-ref (assoc benchmark baseline) 8)) (define (baseline-number-of-procedures benchmark) (list-ref (assoc benchmark baseline) 9)) (define (baseline-number-of-procedures-with-closures benchmark) (list-ref (assoc benchmark baseline) 10)) (define (baseline-number-of-procedures-with-parent-slots benchmark) (list-ref (assoc benchmark baseline) 11)) (define (baseline-number-of-procedures-with-parent-parameters benchmark) (list-ref (assoc benchmark baseline) 12)) (define (baseline-number-of-procedures-with-parent-slot-compression benchmark) (list-ref (assoc benchmark baseline) 13)) (define (baseline-number-of-procedures-with-parent-parameter-compression benchmark) (list-ref (assoc benchmark baseline) 14)) (define (baseline-average-number-of-reference-indirections benchmark) (list-ref (assoc benchmark baseline) 15)) (define (baseline-number-of-accesses benchmark) (list-ref (assoc benchmark baseline) 16)) (define (baseline-number-of-nontrivial-accesses benchmark) (list-ref (assoc benchmark baseline) 17)) (define (baseline-number-of-assignments benchmark) (list-ref (assoc benchmark baseline) 18)) (define (baseline-number-of-nontrivial-assignments benchmark) (list-ref (assoc benchmark baseline) 19)) (define (baseline-run-time benchmark) (best-run-time (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (assoc benchmark baseline))))))))))))))))))))))) (define (conventional-number-of-variables benchmark) (list-ref (assoc benchmark conventional) 1)) (define (conventional-number-of-assigned-variables benchmark) (list-ref (assoc benchmark conventional) 2)) (define (conventional-number-of-accessed-variables benchmark) (list-ref (assoc benchmark conventional) 3)) (define (conventional-number-of-nonfictitious-variables benchmark) (list-ref (assoc benchmark conventional) 4)) (define (conventional-number-of-local-variables benchmark) (list-ref (assoc benchmark conventional) 5)) (define (conventional-number-of-global-variables benchmark) (list-ref (assoc benchmark conventional) 6)) (define (conventional-number-of-hidden-variables benchmark) (list-ref (assoc benchmark conventional) 7)) (define (conventional-number-of-slotted-variables benchmark) (list-ref (assoc benchmark conventional) 8)) (define (conventional-number-of-procedures benchmark) (list-ref (assoc benchmark conventional) 9)) (define (conventional-number-of-procedures-with-closures benchmark) (list-ref (assoc benchmark conventional) 10)) (define (conventional-number-of-procedures-with-parent-slots benchmark) (list-ref (assoc benchmark conventional) 11)) (define (conventional-number-of-procedures-with-parent-parameters benchmark) (list-ref (assoc benchmark conventional) 12)) (define (conventional-number-of-procedures-with-parent-slot-compression benchmark) (list-ref (assoc benchmark conventional) 13)) (define (conventional-number-of-procedures-with-parent-parameter-compression benchmark) (list-ref (assoc benchmark conventional) 14)) (define (conventional-average-number-of-reference-indirections benchmark) (list-ref (assoc benchmark conventional) 15)) (define (conventional-number-of-accesses benchmark) (list-ref (assoc benchmark conventional) 16)) (define (conventional-number-of-nontrivial-accesses benchmark) (list-ref (assoc benchmark conventional) 17)) (define (conventional-number-of-assignments benchmark) (list-ref (assoc benchmark conventional) 18)) (define (conventional-number-of-nontrivial-assignments benchmark) (list-ref (assoc benchmark conventional) 19)) (define (conventional-run-time benchmark) (best-run-time (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (assoc benchmark conventional))))))))))))))))))))))) (define (lightweight-number-of-variables benchmark) (list-ref (assoc benchmark lightweight) 1)) (define (lightweight-number-of-assigned-variables benchmark) (list-ref (assoc benchmark lightweight) 2)) (define (lightweight-number-of-accessed-variables benchmark) (list-ref (assoc benchmark lightweight) 3)) (define (lightweight-number-of-nonfictitious-variables benchmark) (list-ref (assoc benchmark lightweight) 4)) (define (lightweight-number-of-local-variables benchmark) (list-ref (assoc benchmark lightweight) 5)) (define (lightweight-number-of-global-variables benchmark) (list-ref (assoc benchmark lightweight) 6)) (define (lightweight-number-of-hidden-variables benchmark) (list-ref (assoc benchmark lightweight) 7)) (define (lightweight-number-of-slotted-variables benchmark) (list-ref (assoc benchmark lightweight) 8)) (define (lightweight-number-of-procedures benchmark) (list-ref (assoc benchmark lightweight) 9)) (define (lightweight-number-of-procedures-with-closures benchmark) (list-ref (assoc benchmark lightweight) 10)) (define (lightweight-number-of-procedures-with-parent-slots benchmark) (list-ref (assoc benchmark lightweight) 11)) (define (lightweight-number-of-procedures-with-parent-parameters benchmark) (list-ref (assoc benchmark lightweight) 12)) (define (lightweight-number-of-procedures-with-parent-slot-compression benchmark) (list-ref (assoc benchmark lightweight) 13)) (define (lightweight-number-of-procedures-with-parent-parameter-compression benchmark) (list-ref (assoc benchmark lightweight) 14)) (define (lightweight-average-number-of-reference-indirections benchmark) (list-ref (assoc benchmark lightweight) 15)) (define (lightweight-number-of-accesses benchmark) (list-ref (assoc benchmark lightweight) 16)) (define (lightweight-number-of-nontrivial-accesses benchmark) (list-ref (assoc benchmark lightweight) 17)) (define (lightweight-number-of-assignments benchmark) (list-ref (assoc benchmark lightweight) 18)) (define (lightweight-number-of-nontrivial-assignments benchmark) (list-ref (assoc benchmark lightweight) 19)) (define (lightweight-run-time benchmark) (best-run-time (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (rest (assoc benchmark lightweight))))))))))))))))))))))) (for-each (lambda (line) (cond ((and (= (number-of-fields line) 1) (string=? (field-ref line 0) "baseline")) (set! mode 'baseline)) ((and (= (number-of-fields line) 1) (string=? (field-ref line 0) "conventional")) (set! mode 'conventional)) ((and (= (number-of-fields line) 1) (string=? (field-ref line 0) "lightweight")) (set! mode 'lightweight)) ((and (= (number-of-fields line) 2) (string=? (field-ref line 0) "compile")) (set! running? #f) (set! benchmark-name (field-ref line 1))) ((and (= (number-of-fields line) 2) (string=? (field-ref line 0) "run")) (set! running? #t) (set! benchmark-name (field-ref line 1))) ((and (= (number-of-fields line) 20) (string=? (field-ref line 0) "(STATIC-COUNTS")) (case mode ((baseline) (set! baseline (cons (cons benchmark-name (rest (read-from-string line))) baseline))) ((conventional) (set! conventional (cons (cons benchmark-name (rest (read-from-string line))) conventional))) ((lightweight) (set! lightweight (cons (cons benchmark-name (rest (read-from-string line))) lightweight))) (else (fuck-up)))) ((and running? (= (number-of-fields line) 6) (>= (string-length (field-ref line 0)) 4) (string=? (substring (field-ref line 0) (- (string-length (field-ref line 0)) 4) (string-length (field-ref line 0))) "user")) (set-cdr! (last-pair (assoc benchmark-name (case mode ((baseline) baseline) ((conventional) conventional) ((lightweight) lightweight) (else (fuck-up))))) (list (+ (string->number (list->string (reverse (rest (rest (rest (rest (reverse (string->list (field-ref line 0)))))))))) (string->number (list->string (reverse (rest (rest (rest (rest (rest (rest (reverse (string->list (field-ref line 1)))))))))))))))))) (read-file "bcl.text")) (call-with-output-file "bcl.tex" (lambda (latex-port) (format latex-port "\\documentclass{article}~%") (format latex-port "\\usepackage{fullpage}~%") (format latex-port "\\begin{document}~%") (format latex-port "\\begin{tiny}~%") (format latex-port "\\begin{center}~%") (format latex-port "\\begin{tabular}{|l|r|r|r|r|r|r|r|r|r|}~%") (format latex-port "\\hline~%") (format latex-port "&\\multicolumn{1}{|l}{variables}&\\multicolumn{1}{|l}{$\\neg$assigned}&\\multicolumn{1}{|l}{$\\neg$accessed}&\\multicolumn{1}{|l}{fictitious}&\\multicolumn{1}{|l}{eliminated}&\\multicolumn{1}{|l}{local}&\\multicolumn{1}{|l}{global}&\\multicolumn{1}{|l}{hidden}&\\multicolumn{1}{|l|}{slotted}\\\\~%") (format latex-port "\\hline~%") (for-each (lambda (benchmark) (format latex-port "\\hline~%") (format latex-port "{\\tt ~a}&~a&~a&~a&~a&~a&~a&~a&~a&~a\\\\~%" benchmark (number->string (baseline-number-of-variables benchmark)) (number->string (- (baseline-number-of-variables benchmark) (baseline-number-of-assigned-variables benchmark))) (number->string (- (baseline-number-of-variables benchmark) (baseline-number-of-accessed-variables benchmark))) (number->string (- (baseline-number-of-variables benchmark) (baseline-number-of-nonfictitious-variables benchmark))) (number->string (- (baseline-number-of-variables benchmark) (+ (baseline-number-of-local-variables benchmark) (baseline-number-of-global-variables benchmark) (baseline-number-of-hidden-variables benchmark) (baseline-number-of-slotted-variables benchmark)))) (number->string (baseline-number-of-local-variables benchmark)) (number->string (baseline-number-of-global-variables benchmark)) (number->string (baseline-number-of-hidden-variables benchmark)) (number->string (baseline-number-of-slotted-variables benchmark))) (format latex-port "&~a&~a&~a&~a&~a&~a&~a&~a&~a\\\\~%" (number->string (conventional-number-of-variables benchmark)) (number->string (- (conventional-number-of-variables benchmark) (conventional-number-of-assigned-variables benchmark))) (number->string (- (conventional-number-of-variables benchmark) (conventional-number-of-accessed-variables benchmark))) (number->string (- (conventional-number-of-variables benchmark) (conventional-number-of-nonfictitious-variables benchmark))) (number->string (- (conventional-number-of-variables benchmark) (+ (conventional-number-of-local-variables benchmark) (conventional-number-of-global-variables benchmark) (conventional-number-of-hidden-variables benchmark) (conventional-number-of-slotted-variables benchmark)))) (number->string (conventional-number-of-local-variables benchmark)) (number->string (conventional-number-of-global-variables benchmark)) (number->string (conventional-number-of-hidden-variables benchmark)) (number->string (conventional-number-of-slotted-variables benchmark))) (format latex-port "&~a&~a&~a&~a&~a&~a&~a&~a&~a\\\\~%" (number->string (lightweight-number-of-variables benchmark)) (number->string (- (lightweight-number-of-variables benchmark) (lightweight-number-of-assigned-variables benchmark))) (number->string (- (lightweight-number-of-variables benchmark) (lightweight-number-of-accessed-variables benchmark))) (number->string (- (lightweight-number-of-variables benchmark) (lightweight-number-of-nonfictitious-variables benchmark))) (number->string (- (lightweight-number-of-variables benchmark) (+ (lightweight-number-of-local-variables benchmark) (lightweight-number-of-global-variables benchmark) (lightweight-number-of-hidden-variables benchmark) (lightweight-number-of-slotted-variables benchmark)))) (number->string (lightweight-number-of-local-variables benchmark)) (number->string (lightweight-number-of-global-variables benchmark)) (number->string (lightweight-number-of-hidden-variables benchmark)) (number->string (lightweight-number-of-slotted-variables benchmark)))) (reverse (remove-duplicates (append (map first lightweight) (map first baseline) (map first conventional))))) (format latex-port "\\hline~%") (format latex-port "\\end{tabular}~%") (format latex-port "\\end{center}~%") (format latex-port "\\end{tiny}~%") (format latex-port "\\begin{tiny}~%") (format latex-port "\\begin{center}~%") (format latex-port "\\begin{tabular}{|l|r|r|r|r|r|r|}~%") (format latex-port "\\hline~%") (format latex-port "&\\multicolumn{1}{|l}{procedures}&\\multicolumn{1}{|l}{closures}&\\multicolumn{1}{|l}{parent}&\\multicolumn{1}{|l}{parent}&\\multicolumn{1}{|l}{parent}&\\multicolumn{1}{|l|}{parent}\\\\~%") (format latex-port "&&&\\multicolumn{1}{|l}{slots}&\\multicolumn{1}{|l}{parameters}&\\multicolumn{1}{|l}{slot}&\\multicolumn{1}{|l|}{parameter}\\\\~%") (format latex-port "&&&&&\\multicolumn{1}{|l}{compression}&\\multicolumn{1}{|l|}{compression}\\\\~%") (format latex-port "\\hline~%") (for-each (lambda (benchmark) (format latex-port "\\hline~%") (format latex-port "{\\tt ~a}&~a&~a&~a&~a&~a&~a\\\\~%" benchmark (number->string (baseline-number-of-procedures benchmark)) (number->string (baseline-number-of-procedures-with-closures benchmark)) (number->string (baseline-number-of-procedures-with-parent-slots benchmark)) (number->string (baseline-number-of-procedures-with-parent-parameters benchmark)) (number->string (baseline-number-of-procedures-with-parent-slot-compression benchmark)) (number->string (baseline-number-of-procedures-with-parent-parameter-compression benchmark))) (format latex-port "&~a&~a&~a&~a&~a&~a\\\\~%" (number->string (conventional-number-of-procedures benchmark)) (number->string (conventional-number-of-procedures-with-closures benchmark)) (number->string (conventional-number-of-procedures-with-parent-slots benchmark)) (number->string (conventional-number-of-procedures-with-parent-parameters benchmark)) (number->string (conventional-number-of-procedures-with-parent-slot-compression benchmark)) (number->string (conventional-number-of-procedures-with-parent-parameter-compression benchmark))) (format latex-port "&~a&~a&~a&~a&~a&~a\\\\~%" (number->string (lightweight-number-of-procedures benchmark)) (number->string (lightweight-number-of-procedures-with-closures benchmark)) (number->string (lightweight-number-of-procedures-with-parent-slots benchmark)) (number->string (lightweight-number-of-procedures-with-parent-parameters benchmark)) (number->string (lightweight-number-of-procedures-with-parent-slot-compression benchmark)) (number->string (lightweight-number-of-procedures-with-parent-parameter-compression benchmark)))) (reverse (remove-duplicates (append (map first lightweight) (map first baseline) (map first conventional))))) (format latex-port "\\hline~%") (format latex-port "\\end{tabular}~%") (format latex-port "\\end{center}~%") (format latex-port "\\end{tiny}~%") (format latex-port "\\begin{tiny}~%") (format latex-port "\\begin{center}~%") (format latex-port "\\begin{tabular}{|l|r|r|r|r|r|r|}~%") (format latex-port "\\hline~%") (format latex-port "&\\multicolumn{1}{|l}{average}&\\multicolumn{1}{|l}{accesses}&\\multicolumn{1}{|l}{nontrivial}&\\multicolumn{1}{|l}{assignments}&\\multicolumn{1}{|l}{nontrivial}&\\multicolumn{1}{|l|}{run}\\\\~%") (format latex-port "&\\multicolumn{1}{|l|}{indirections}&&\\multicolumn{1}{|l|}{accesses}&&\\multicolumn{1}{|l}{assignments}&\\multicolumn{1}{|l|}{time}\\\\~%") (format latex-port "&\\multicolumn{1}{|l|}{per reference}&&&&&\\\\~%") (format latex-port "\\hline~%") (for-each (lambda (benchmark) (format latex-port "\\hline~%") (format latex-port "{\\tt ~a}&~a&~a&~a&~a&~a&~a\\\\~%" benchmark (rounded-number->string (baseline-average-number-of-reference-indirections benchmark) 3) (number->string (baseline-number-of-accesses benchmark)) (number->string (baseline-number-of-nontrivial-accesses benchmark)) (number->string (baseline-number-of-assignments benchmark)) (number->string (baseline-number-of-nontrivial-assignments benchmark)) (rounded-number->string (baseline-run-time benchmark) 3)) (format latex-port "&~a&~a&~a&~a&~a&~a\\\\~%" (rounded-number->string (conventional-average-number-of-reference-indirections benchmark) 3) (number->string (conventional-number-of-accesses benchmark)) (number->string (conventional-number-of-nontrivial-accesses benchmark)) (number->string (conventional-number-of-assignments benchmark)) (number->string (conventional-number-of-nontrivial-assignments benchmark)) (rounded-number->string (conventional-run-time benchmark) 3)) (format latex-port "&~a&~a&~a&~a&~a&~a\\\\~%" (rounded-number->string (lightweight-average-number-of-reference-indirections benchmark) 3) (number->string (lightweight-number-of-accesses benchmark)) (number->string (lightweight-number-of-nontrivial-accesses benchmark)) (number->string (lightweight-number-of-assignments benchmark)) (number->string (lightweight-number-of-nontrivial-assignments benchmark)) (rounded-number->string (lightweight-run-time benchmark) 3))) (reverse (remove-duplicates (append (map first lightweight) (map first baseline) (map first conventional))))) (format latex-port "\\hline~%") (format latex-port "\\end{tabular}~%") (format latex-port "\\end{center}~%") (format latex-port "\\end{tiny}~%") (format latex-port "\\end{document}~%")))) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/benchmarks/chicken-fixnum.sed0000600017435200151030000000062507244427030017120 0ustar qobiqobi1i\ (declare (block)\ \ (standard-bindings)\ \ (extended-bindings)\ \ (not safe)\ \ (not interrupts-enabled)\ \ (fixnum)) \+;;; begin Stalin+,\+;;; end Stalin+d \+;;; begin Scheme->C+,\+;;; end Scheme->C+d \+;;; begin Gambit-C+,\+;;; end Gambit-C+d \+;;; begin Bigloo+,\+;;; end Bigloo+d \+;;; begin Chez+,\+;;; end Chez+d \+;;; begin Chicken+d \+;;; end Chicken+d stalin-0.11/benchmarks/bigloo.sed0000600017435200151030000000040507244410225015455 0ustar qobiqobi1i\ (module main) \+;;; begin Stalin+,\+;;; end Stalin+d \+;;; begin Scheme->C+,\+;;; end Scheme->C+d \+;;; begin Gambit-C+,\+;;; end Gambit-C+d \+;;; begin Bigloo+d \+;;; end Bigloo+d \+;;; begin Chez+,\+;;; end Chez+d \+;;; begin Chicken+,\+;;; end Chicken+d stalin-0.11/benchmarks/boyer.sc0000600017435200151030000003021706671513667015201 0ustar qobiqobi;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: boyer.sc ;;; Description: The Boyer benchmark ;;; Author: Bob Boyer ;;; Created: 5-Apr-85 ;;; Modified: 10-Apr-85 14:52:20 (Bob Shaw) ;;; 22-Jul-87 (Will Clinger) ;;; 23-May-94 (Qobi) ;;; 31-Mar-98 (Qobi) ;;; Language: Scheme (but see note) ;;; Status: Public Domain ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Note: This benchmark uses property lists. The procedures that must ;;; be supplied are get and put, where (put x y z) is equivalent to Common ;;; Lisp's (setf (get x y) z). ;;; Note: The Common Lisp version of this benchmark returns the wrong ;;; answer because it uses the Common Lisp equivalent of memv instead of ;;; member in the falsep and truep procedures. (The error arose because ;;; memv is called member in Common Lisp. Don't ask what member is called, ;;; unless you want to learn about keyword arguments.) This Scheme version ;;; may run a few percent slower than it would if it were equivalent to ;;; the Common Lisp version, but it works. ;;; BOYER -- Logic programming benchmark, originally written by Bob Boyer. ;;; Fairly CONS intensive. ;;; TTMTTD ;;; 1. should hardwire Y argument of PUT/GET ;;; 2. should initialize UNIFY-SUBST and TEMP-TEMP to undefined ;;; 3. need to split ASSQ, MEMBER ;;; A simple implementation of PUT/GET, Qobi (define (run) (define *property-lists* '()) (define (get x y) (let ((w (assq x *property-lists*))) (if w (let ((v (assq y (cdr w)))) (and v (cdr v))) '()))) (define (put x y z) (let ((w (assq x *property-lists*))) (if (not w) (begin (set! w (cons x '())) (set! *property-lists* (cons w *property-lists*)))) (let ((v (assq y (cdr w)))) (if v (set-cdr! v z) (set-cdr! w (cons (cons y z) (cdr w))))))) (define unify-subst '()) ;Qobi (define temp-temp #f) ;Qobi (define (add-lemma term) (cond ((and (pair? term) (eq? (car term) 'equal) (pair? (cadr term))) (put (car (cadr term)) 'lemmas (cons term (get (car (cadr term)) 'lemmas)))) (else (display "ADD-LEMMA did not like term: ") ;Qobi (display term) ;Qobi (newline)))) ;Qobi (define (add-lemma-lst lst) (cond ((null? lst) #t) (else (add-lemma (car lst)) (add-lemma-lst (cdr lst))))) (define (apply-subst alist term) (cond ((not (pair? term)) (cond ((begin (set! temp-temp (assq term alist)) temp-temp) (cdr temp-temp)) (else term))) (else (cons (car term) (apply-subst-lst alist (cdr term)))))) (define (apply-subst-lst alist lst) (cond ((null? lst) '()) ;Qobi (else (cons (apply-subst alist (car lst)) (apply-subst-lst alist (cdr lst)))))) (define (falsep x lst) (or (equal? x '(f)) (member x lst))) (define (one-way-unify term1 term2) (set! unify-subst '()) ;Qobi (one-way-unify1 term1 term2)) (define (one-way-unify1 term1 term2) (cond ((not (pair? term2)) (cond ((begin (set! temp-temp (assq term2 unify-subst)) temp-temp) (equal? term1 (cdr temp-temp))) (else (set! unify-subst (cons (cons term2 term1) unify-subst)) #t))) ((not (pair? term1)) #f) ((eq? (car term1) (car term2)) (one-way-unify1-lst (cdr term1) (cdr term2))) (else #f))) (define (one-way-unify1-lst lst1 lst2) (cond ((null? lst1) #t) ((one-way-unify1 (car lst1) (car lst2)) (one-way-unify1-lst (cdr lst1) (cdr lst2))) (else #f))) (define (rewrite term) (cond ((not (pair? term)) term) (else (rewrite-with-lemmas (cons (car term) (rewrite-args (cdr term))) (get (car term) 'lemmas))))) (define (rewrite-args lst) (cond ((null? lst) '()) ;Qobi (else (cons (rewrite (car lst)) (rewrite-args (cdr lst)))))) (define (rewrite-with-lemmas term lst) (cond ((null? lst) term) ((one-way-unify term (cadr (car lst))) (rewrite (apply-subst unify-subst (caddr (car lst))))) (else (rewrite-with-lemmas term (cdr lst))))) (define (setup) (add-lemma-lst '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (sub1 x)))) ;Qobi (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i (one))) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (sub1 x)))) ;Qobi (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)) (f))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y (one)) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j (one)))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y (one))) (equal x (zero)))) (equal (equal (greatest-factor x y) (one)) (equal x (one))) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y (one))) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w (one))))) (equal (greatereqpr x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y (one))))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) (one)) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (sub1 a) (zero)) ;Qobi (equal (sub1 b) (zero)))) ;Qobi (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus (six) (length x7))) (equal (difference (add1 (add1 x)) (two)) (fix x)) (equal (quotient (plus x (plus x y)) (two)) (plus x (quotient y (two)))) (equal (sigma (zero) i) (quotient (times i (add1 i)) (two))) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal t z) (equal f z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))) (define (tautologyp x true-lst false-lst) (cond ((truep x true-lst) #t) ((falsep x false-lst) #f) ((not (pair? x)) #f) ((eq? (car x) 'if) (cond ((truep (cadr x) true-lst) (tautologyp (caddr x) true-lst false-lst)) ((falsep (cadr x) false-lst) (tautologyp (cadddr x) true-lst false-lst)) (else (and (tautologyp (caddr x) (cons (cadr x) true-lst) false-lst) (tautologyp (cadddr x) true-lst (cons (cadr x) false-lst)))))) (else #f))) (define (tautp x) (tautologyp (rewrite x) '() '())) ;Qobi (define (test) (define ans #f) (define term #f) (set! term (apply-subst '((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b)))) '(implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w)))) (set! ans (tautp term)) ans) (define (truep x lst) (or (equal? x '(t)) (member x lst))) (setup) (write (test)) (newline)) (do ((i 0 (+ i 1))) ((= i 1000)) (run)) stalin-0.11/benchmarks/browse.sc0000600017435200151030000001325106671513667015361 0ustar qobiqobi;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: browse.sc ;;; Description: The BROWSE benchmark from the Gabriel tests ;;; Author: Richard Gabriel ;;; Created: 8-Apr-85 ;;; Modified: 14-Jun-85 18:44:49 (Bob Shaw) ;;; 16-Aug-87 (Will Clinger) ;;; 22-Jan-88 (Will Clinger) ;;; 24-Mar-96 (Qobi) ;;; 31-Mar-98 (Qobi) ;;; Language: Scheme (but see notes below) ;;; Status: Public Domain ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Note: This benchmark has been run only in implementations in which ;;; the empty list is the same as #f, and may not work if that is not true. ;;; Note: This benchmark uses property lists. The procedures that must ;;; be supplied are get and put, where (put x y z) is equivalent to Common ;;; Lisp's (setf (get x y) z). ;;; Note: The Common Lisp version assumes that eq works on characters, ;;; which is not a portable assumption but is true in most implementations. ;;; This translation makes the same assumption about eq?. ;;; Note: The gensym procedure was left as in Common Lisp. Most Scheme ;;; implementations have something similar internally. ;;; Note: The original benchmark took the car or cdr of the empty list ;;; 14,600 times. Before explicit tests were added to protect the offending ;;; calls to car and cdr, MacScheme was spending a quarter of its run time ;;; in the exception handler recovering from those errors. ;;; The next few definitions should be omitted if the Scheme implementation ;;; already provides them. (define (run) (define (append! x y) (if (null? x) y (do ((a x b) (b (cdr x) (cdr b))) ((null? b) (set-cdr! a y) x)))) (define (copy-tree x) (if (not (pair? x)) x (cons (copy-tree (car x)) (copy-tree (cdr x))))) ;;; A simple implementation of PUT/GET, Qobi (define *property-lists* '()) (define (get x y) (let ((w (assq x *property-lists*))) (and w (let ((v (assq y (cdr w)))) (and v (cdr v)))))) (define (put x y z) (let ((w (assq x *property-lists*))) (if w #f (begin (set! w (cons x '())) (set! *property-lists* (cons w *property-lists*)))) (let ((v (assq y (cdr w)))) (if v (set-cdr! v z) (set-cdr! w (cons (cons y z) (cdr w))))))) ;;; A simple implementation of GENSYM, Qobi ;;; begin Scheme->C (define (gensym) (string->uninterned-symbol "gensym")) ;;; end Scheme->C ;;; begin Stalin (define (gensym) (string->uninterned-symbol (string-copy "gensym"))) ;;; end Stalin ;;; BROWSE -- Benchmark to create and browse through ;;; an AI-like data base of units. ;;; n is # of symbols ;;; m is maximum amount of stuff on the plist ;;; npats is the number of basic patterns on the unit ;;; ipats is the instantiated copies of the patterns (define *rand* 21) (define (init n m npats ipats) (let ((ipats (copy-tree ipats))) (do ((p ipats (cdr p))) ((null? (cdr p)) (set-cdr! p ipats))) (do ((n n (- n 1)) (i m (cond ((zero? i) m) (else (- i 1)))) (name (gensym) (gensym)) (a '())) ((= n 0) a) (set! a (cons name a)) (do ((i i (- i 1))) ((zero? i)) (put name (gensym) #f)) (put name 'pattern (do ((i npats (- i 1)) (ipats ipats (cdr ipats)) (a '())) ((zero? i) a) (set! a (cons (car ipats) a)))) (do ((j (- m i) (- j 1))) ((zero? j)) (put name (gensym) #f))))) (define (browse-random) (set! *rand* (remainder (* *rand* 17) 251)) *rand*) (define (randomize l) (do ((a '())) ((null? l) a) (let ((n (remainder (browse-random) (length l)))) (cond ((zero? n) (set! a (cons (car l) a)) (set! l (cdr l)) l) (else (do ((n n (- n 1)) (x l (cdr x))) ((= n 1) (set! a (cons (cadr x) a)) (set-cdr! x (cddr x)) x))))))) (define (match pat dat alist) (cond ((null? pat) (null? dat)) ((null? dat) #f) ;Qobi: used to depend on () being false ((or (eq? (car pat) '?) (eq? (car pat) (car dat))) (match (cdr pat) (cdr dat) alist)) ((eq? (car pat) '*) (or (match (cdr pat) dat alist) (match (cdr pat) (cdr dat) alist) (match pat (cdr dat) alist))) (else (cond ((not (pair? (car pat))) (cond ((eq? (string-ref (symbol->string (car pat)) 0) #\?) (let ((val (assv (car pat) alist))) (cond (val (match (cons (cdr val) (cdr pat)) dat alist)) (else (match (cdr pat) (cdr dat) (cons (cons (car pat) (car dat)) alist)))))) ((eq? (string-ref (symbol->string (car pat)) 0) #\*) (let ((val (assv (car pat) alist))) (cond (val (match (append (cdr val) (cdr pat)) dat alist)) (else (do ((l '() (append! l (cons (if (null? d) '() (car d)) '()))) (e (cons '() dat) (cdr e)) (d dat (if (null? d) '() (cdr d)))) ((or (null? e) (match (cdr pat) d (cons (cons (car pat) l) alist))) (if (null? e) #f #t))))))) ;; Qobi: used to depend of missing ELSE returning #F (else #f))) (else (and (pair? (car dat)) (match (car pat) (car dat) alist) (match (cdr pat) (cdr dat) alist))))))) (define (browse) (investigate (randomize (init 100 10 4 '((a a a b b b b a a a a a b b a a a) (a a b b b b a a (a a) (b b)) (a a a b (b a) b a b a)))) '((*a ?b *b ?b a *a a *b *a) (*a *b *b *a (*a) (*b)) (? ? * (b a) * ? ?)))) (define (investigate units pats) (do ((units units (cdr units))) ((null? units)) (do ((pats pats (cdr pats))) ((null? pats)) (do ((p (get (car units) 'pattern) (cdr p))) ((null? p)) (match (car pats) (car p) '()))))) (browse)) (do ((i 0 (+ i 1))) ((= i 1000)) (run)) stalin-0.11/benchmarks/chez.sed0000600017435200151030000000042507244410247015141 0ustar qobiqobi1i\ (optimize-level 3) \+;;; begin Stalin+,\+;;; end Stalin+d \+;;; begin Scheme->C+,\+;;; end Scheme->C+d \+;;; begin Gambit-C+,\+;;; end Gambit-C+d \+;;; begin Bigloo+,\+;;; end Bigloo+d \+;;; begin Chez+d \+;;; end Chez+d \+;;; begin Chicken+,\+;;; end Chicken+d $a\ (exit) stalin-0.11/benchmarks/dynamic-original.sc0000600017435200151030000020755607063211711017300 0ustar qobiqobi;;; This benchmark was obtained from Andrew Wright, ;;; based on Fritz Henglein's code. ;;; 970215 / wdc Removed most i/o and added dynamic-benchmark. ;;; 990319 / wdc Improved dynamic-benchmark. (define (dynamic-benchmark . rest) (let ((n (if (null? rest) 1 (car rest)))) (run-benchmark "dynamic" n doit (lambda (counters) (equal? counters '((218 . 459) (6 . 1909) (2209 . 460))))))) ;;; Fritz's dynamic type inferencer, set up to run on itself ;;; (see the end of this file). ;;;---------------------------------------------------------------------------- ;;; Environment management ;;;---------------------------------------------------------------------------- ;;; environments are lists of pairs, the first component being the key ;;; general environment operations ;;; ;;; empty-env: Env ;;; gen-binding: Key x Value -> Binding ;;; binding-key: Binding -> Key ;;; binding-value: Binding -> Value ;;; binding-show: Binding -> Symbol* ;;; extend-env-with-binding: Env x Binding -> Env ;;; extend-env-with-env: Env x Env -> Env ;;; lookup: Key x Env -> (Binding + False) ;;; env->list: Env -> Binding* ;;; env-show: Env -> Symbol* ;;; bindings (define gen-binding cons) ;;; generates a type binding, binding a symbol to a type variable (define binding-key car) ;;; returns the key of a type binding (define binding-value cdr) ;;; returns the tvariable of a type binding (define (key-show key) ;; default show procedure for keys key) (define (value-show value) ;; default show procedure for values value) (define (binding-show binding) ;; returns a printable representation of a type binding (cons (key-show (binding-key binding)) (cons ': (value-show (binding-value binding))))) ;;; environments (define dynamic-empty-env '()) ;;; returns the empty environment (define (extend-env-with-binding env binding) ;; extends env with a binding, which hides any other binding in env ;; for the same key (see dynamic-lookup) ;; returns the extended environment (cons binding env)) (define (extend-env-with-env env ext-env) ;; extends environment env with environment ext-env ;; a binding for a key in ext-env hides any binding in env for ;; the same key (see dynamic-lookup) ;; returns the extended environment (append ext-env env)) (define dynamic-lookup (lambda (x l) (assv x l))) ;;; returns the first pair in env that matches the key; returns #f ;;; if no such pair exists (define (env->list e) ;; converts an environment to a list of bindings e) (define (env-show env) ;; returns a printable list representation of a type environment (map binding-show env)) ;;;---------------------------------------------------------------------------- ;;; Parsing for Scheme ;;;---------------------------------------------------------------------------- ;;; Needed packages: environment management ;;; Lexical notions (define syntactic-keywords ;; source: IEEE Scheme, 7.1, , '(lambda if set! begin cond and or case let let* letrec do quasiquote else => define unquote unquote-splicing)) ;;; Parse routines ;;; Datum ;;; dynamic-parse-datum: parses nonterminal (define (dynamic-parse-datum e) ;; Source: IEEE Scheme, sect. 7.2, ;; Note: "'" is parsed as 'quote, "`" as 'quasiquote, "," as ;; 'unquote, ",@" as 'unquote-splicing (see sect. 4.2.5, p. 18) ;; ***Note***: quasi-quotations are not permitted! (It would be ;; necessary to pass the environment to dynamic-parse-datum.) (cond ((null? e) (dynamic-parse-action-null-const)) ((boolean? e) (dynamic-parse-action-boolean-const e)) ((char? e) (dynamic-parse-action-char-const e)) ((number? e) (dynamic-parse-action-number-const e)) ((string? e) (dynamic-parse-action-string-const e)) ((symbol? e) (dynamic-parse-action-symbol-const e)) ((vector? e) (dynamic-parse-action-vector-const (map dynamic-parse-datum (vector->list e)))) ((pair? e) (dynamic-parse-action-pair-const (dynamic-parse-datum (car e)) (dynamic-parse-datum (cdr e)))) (else (error 'dynamic-parse-datum "Unknown datum: ~s" e)))) ;;; VarDef ;;; dynamic-parse-formal: parses nonterminal in defining occurrence ;;; position (define (dynamic-parse-formal f-env e) ;; e is an arbitrary object, f-env is a forbidden environment; ;; returns: a variable definition (a binding for the symbol), plus ;; the value of the binding as a result (if (symbol? e) (cond ((memq e syntactic-keywords) (error 'dynamic-parse-formal "Illegal identifier (keyword): ~s" e)) ((dynamic-lookup e f-env) (error 'dynamic-parse-formal "Duplicate variable definition: ~s" e)) (else (let ((dynamic-parse-action-result (dynamic-parse-action-var-def e))) (cons (gen-binding e dynamic-parse-action-result) dynamic-parse-action-result)))) (error 'dynamic-parse-formal "Not an identifier: ~s" e))) ;;; dynamic-parse-formal* (define (dynamic-parse-formal* formals) ;; parses a list of formals and returns a pair consisting of generated ;; environment and list of parsing action results (letrec ((pf* (lambda (f-env results formals) ;; f-env: "forbidden" environment (to avoid duplicate defs) ;; results: the results of the parsing actions ;; formals: the unprocessed formals ;; Note: generates the results of formals in reverse order! (cond ((null? formals) (cons f-env results)) ((pair? formals) (let* ((fst-formal (car formals)) (binding-result (dynamic-parse-formal f-env fst-formal)) (binding (car binding-result)) (var-result (cdr binding-result))) (pf* (extend-env-with-binding f-env binding) (cons var-result results) (cdr formals)))) (else (error 'dynamic-parse-formal* "Illegal formals: ~s" formals)))))) (let ((renv-rres (pf* dynamic-empty-env '() formals))) (cons (car renv-rres) (reverse (cdr renv-rres)))))) ;;; dynamic-parse-formals: parses (define (dynamic-parse-formals formals) ;; parses ; see IEEE Scheme, sect. 7.3 ;; returns a pair: env and result (letrec ((pfs (lambda (f-env formals) (cond ((null? formals) (cons dynamic-empty-env (dynamic-parse-action-null-formal))) ((pair? formals) (let* ((fst-formal (car formals)) (rem-formals (cdr formals)) (bind-res (dynamic-parse-formal f-env fst-formal)) (bind (car bind-res)) (res (cdr bind-res)) (nf-env (extend-env-with-binding f-env bind)) (renv-res* (pfs nf-env rem-formals)) (renv (car renv-res*)) (res* (cdr renv-res*))) (cons (extend-env-with-binding renv bind) (dynamic-parse-action-pair-formal res res*)))) (else (let* ((bind-res (dynamic-parse-formal f-env formals)) (bind (car bind-res)) (res (cdr bind-res))) (cons (extend-env-with-binding dynamic-empty-env bind) res))))))) (pfs dynamic-empty-env formals))) ;;; Expr ;;; dynamic-parse-expression: parses nonterminal (define (dynamic-parse-expression env e) (cond ((symbol? e) (dynamic-parse-variable env e)) ((pair? e) (let ((op (car e)) (args (cdr e))) (case op ((quote) (dynamic-parse-quote env args)) ((lambda) (dynamic-parse-lambda env args)) ((if) (dynamic-parse-if env args)) ((set!) (dynamic-parse-set env args)) ((begin) (dynamic-parse-begin env args)) ((cond) (dynamic-parse-cond env args)) ((case) (dynamic-parse-case env args)) ((and) (dynamic-parse-and env args)) ((or) (dynamic-parse-or env args)) ((let) (dynamic-parse-let env args)) ((let*) (dynamic-parse-let* env args)) ((letrec) (dynamic-parse-letrec env args)) ((do) (dynamic-parse-do env args)) ((quasiquote) (dynamic-parse-quasiquote env args)) (else (dynamic-parse-procedure-call env op args))))) (else (dynamic-parse-datum e)))) ;;; dynamic-parse-expression* (define (dynamic-parse-expression* env exprs) ;; Parses lists of expressions (returns them in the right order!) (letrec ((pe* (lambda (results es) (cond ((null? es) results) ((pair? es) (pe* (cons (dynamic-parse-expression env (car es)) results) (cdr es))) (else (error 'dynamic-parse-expression* "Not a list of expressions: ~s" es)))))) (reverse (pe* '() exprs)))) ;;; dynamic-parse-expressions (define (dynamic-parse-expressions env exprs) ;; parses lists of arguments of a procedure call (cond ((null? exprs) (dynamic-parse-action-null-arg)) ((pair? exprs) (let* ((fst-expr (car exprs)) (rem-exprs (cdr exprs)) (fst-res (dynamic-parse-expression env fst-expr)) (rem-res (dynamic-parse-expressions env rem-exprs))) (dynamic-parse-action-pair-arg fst-res rem-res))) (else (error 'dynamic-parse-expressions "Illegal expression list: ~s" exprs)))) ;;; dynamic-parse-variable: parses variables (applied occurrences) (define (dynamic-parse-variable env e) (if (symbol? e) (if (memq e syntactic-keywords) (error 'dynamic-parse-variable "Illegal identifier (keyword): ~s" e) (let ((assoc-var-def (dynamic-lookup e env))) (if assoc-var-def (dynamic-parse-action-variable (binding-value assoc-var-def)) (dynamic-parse-action-identifier e)))) (error 'dynamic-parse-variable "Not an identifier: ~s" e))) ;;; dynamic-parse-procedure-call (define (dynamic-parse-procedure-call env op args) (dynamic-parse-action-procedure-call (dynamic-parse-expression env op) (dynamic-parse-expressions env args))) ;;; dynamic-parse-quote (define (dynamic-parse-quote env args) (if (list-of-1? args) (dynamic-parse-datum (car args)) (error 'dynamic-parse-quote "Not a datum (multiple arguments): ~s" args))) ;;; dynamic-parse-lambda (define (dynamic-parse-lambda env args) (if (pair? args) (let* ((formals (car args)) (body (cdr args)) (nenv-fresults (dynamic-parse-formals formals)) (nenv (car nenv-fresults)) (fresults (cdr nenv-fresults))) (dynamic-parse-action-lambda-expression fresults (dynamic-parse-body (extend-env-with-env env nenv) body))) (error 'dynamic-parse-lambda "Illegal formals/body: ~s" args))) ;;; dynamic-parse-body (define (dynamic-parse-body env body) ;; = * + (define (def-var* f-env body) ;; finds the defined variables in a body and returns an ;; environment containing them (if (pair? body) (let ((n-env (def-var f-env (car body)))) (if n-env (def-var* n-env (cdr body)) f-env)) f-env)) (define (def-var f-env clause) ;; finds the defined variables in a single clause and extends ;; f-env accordingly; returns false if it's not a definition (if (pair? clause) (case (car clause) ((define) (if (pair? (cdr clause)) (let ((pattern (cadr clause))) (cond ((symbol? pattern) (extend-env-with-binding f-env (gen-binding pattern (dynamic-parse-action-var-def pattern)))) ((and (pair? pattern) (symbol? (car pattern))) (extend-env-with-binding f-env (gen-binding (car pattern) (dynamic-parse-action-var-def (car pattern))))) (else f-env))) f-env)) ((begin) (def-var* f-env (cdr clause))) (else #f)) #f)) (if (pair? body) (dynamic-parse-command* (def-var* env body) body) (error 'dynamic-parse-body "Illegal body: ~s" body))) ;;; dynamic-parse-if (define (dynamic-parse-if env args) (cond ((list-of-3? args) (dynamic-parse-action-conditional (dynamic-parse-expression env (car args)) (dynamic-parse-expression env (cadr args)) (dynamic-parse-expression env (caddr args)))) ((list-of-2? args) (dynamic-parse-action-conditional (dynamic-parse-expression env (car args)) (dynamic-parse-expression env (cadr args)) (dynamic-parse-action-empty))) (else (error 'dynamic-parse-if "Not an if-expression: ~s" args)))) ;;; dynamic-parse-set (define (dynamic-parse-set env args) (if (list-of-2? args) (dynamic-parse-action-assignment (dynamic-parse-variable env (car args)) (dynamic-parse-expression env (cadr args))) (error 'dynamic-parse-set "Not a variable/expression pair: ~s" args))) ;;; dynamic-parse-begin (define (dynamic-parse-begin env args) (dynamic-parse-action-begin-expression (dynamic-parse-body env args))) ;;; dynamic-parse-cond (define (dynamic-parse-cond env args) (if (and (pair? args) (list? args)) (dynamic-parse-action-cond-expression (map (lambda (e) (dynamic-parse-cond-clause env e)) args)) (error 'dynamic-parse-cond "Not a list of cond-clauses: ~s" args))) ;;; dynamic-parse-cond-clause (define (dynamic-parse-cond-clause env e) ;; ***Note***: Only ( ) is permitted! (if (pair? e) (cons (if (eqv? (car e) 'else) (dynamic-parse-action-empty) (dynamic-parse-expression env (car e))) (dynamic-parse-body env (cdr e))) (error 'dynamic-parse-cond-clause "Not a cond-clause: ~s" e))) ;;; dynamic-parse-and (define (dynamic-parse-and env args) (if (list? args) (dynamic-parse-action-and-expression (dynamic-parse-expression* env args)) (error 'dynamic-parse-and "Not a list of arguments: ~s" args))) ;;; dynamic-parse-or (define (dynamic-parse-or env args) (if (list? args) (dynamic-parse-action-or-expression (dynamic-parse-expression* env args)) (error 'dynamic-parse-or "Not a list of arguments: ~s" args))) ;;; dynamic-parse-case (define (dynamic-parse-case env args) (if (and (list? args) (> (length args) 1)) (dynamic-parse-action-case-expression (dynamic-parse-expression env (car args)) (map (lambda (e) (dynamic-parse-case-clause env e)) (cdr args))) (error 'dynamic-parse-case "Not a list of clauses: ~s" args))) ;;; dynamic-parse-case-clause (define (dynamic-parse-case-clause env e) (if (pair? e) (cons (cond ((eqv? (car e) 'else) (list (dynamic-parse-action-empty))) ((list? (car e)) (map dynamic-parse-datum (car e))) (else (error 'dynamic-parse-case-clause "Not a datum list: ~s" (car e)))) (dynamic-parse-body env (cdr e))) (error 'dynamic-parse-case-clause "Not case clause: ~s" e))) ;;; dynamic-parse-let (define (dynamic-parse-let env args) (if (pair? args) (if (symbol? (car args)) (dynamic-parse-named-let env args) (dynamic-parse-normal-let env args)) (error 'dynamic-parse-let "Illegal bindings/body: ~s" args))) ;;; dynamic-parse-normal-let (define (dynamic-parse-normal-let env args) ;; parses "normal" let-expressions (let* ((bindings (car args)) (body (cdr args)) (env-ast (dynamic-parse-parallel-bindings env bindings)) (nenv (car env-ast)) (bresults (cdr env-ast))) (dynamic-parse-action-let-expression bresults (dynamic-parse-body (extend-env-with-env env nenv) body)))) ;;; dynamic-parse-named-let (define (dynamic-parse-named-let env args) ;; parses a named let-expression (if (pair? (cdr args)) (let* ((variable (car args)) (bindings (cadr args)) (body (cddr args)) (vbind-vres (dynamic-parse-formal dynamic-empty-env variable)) (vbind (car vbind-vres)) (vres (cdr vbind-vres)) (env-ast (dynamic-parse-parallel-bindings env bindings)) (nenv (car env-ast)) (bresults (cdr env-ast))) (dynamic-parse-action-named-let-expression vres bresults (dynamic-parse-body (extend-env-with-env (extend-env-with-binding env vbind) nenv) body))) (error 'dynamic-parse-named-let "Illegal named let-expression: ~s" args))) ;;; dynamic-parse-parallel-bindings (define (dynamic-parse-parallel-bindings env bindings) ;; returns a pair consisting of an environment ;; and a list of pairs (variable . asg) ;; ***Note***: the list of pairs is returned in reverse unzipped form! (if (list-of-list-of-2s? bindings) (let* ((env-formals-asg (dynamic-parse-formal* (map car bindings))) (nenv (car env-formals-asg)) (bresults (cdr env-formals-asg)) (exprs-asg (dynamic-parse-expression* env (map cadr bindings)))) (cons nenv (cons bresults exprs-asg))) (error 'dynamic-parse-parallel-bindings "Not a list of bindings: ~s" bindings))) ;;; dynamic-parse-let* (define (dynamic-parse-let* env args) (if (pair? args) (let* ((bindings (car args)) (body (cdr args)) (env-ast (dynamic-parse-sequential-bindings env bindings)) (nenv (car env-ast)) (bresults (cdr env-ast))) (dynamic-parse-action-let*-expression bresults (dynamic-parse-body (extend-env-with-env env nenv) body))) (error 'dynamic-parse-let* "Illegal bindings/body: ~s" args))) ;;; dynamic-parse-sequential-bindings (define (dynamic-parse-sequential-bindings env bindings) ;; returns a pair consisting of an environment ;; and a list of pairs (variable . asg) ;; ***Note***: the list of pairs is returned in reverse unzipped form! (letrec ((psb (lambda (f-env c-env var-defs expr-asgs binds) ;; f-env: forbidden environment ;; c-env: constructed environment ;; var-defs: results of formals ;; expr-asgs: results of corresponding expressions ;; binds: reminding bindings to process (cond ((null? binds) (cons f-env (cons var-defs expr-asgs))) ((pair? binds) (let ((fst-bind (car binds))) (if (list-of-2? fst-bind) (let* ((fbinding-bres (dynamic-parse-formal f-env (car fst-bind))) (fbind (car fbinding-bres)) (bres (cdr fbinding-bres)) (new-expr-asg (dynamic-parse-expression c-env (cadr fst-bind)))) (psb (extend-env-with-binding f-env fbind) (extend-env-with-binding c-env fbind) (cons bres var-defs) (cons new-expr-asg expr-asgs) (cdr binds))) (error 'dynamic-parse-sequential-bindings "Illegal binding: ~s" fst-bind)))) (else (error 'dynamic-parse-sequential-bindings "Illegal bindings: ~s" binds)))))) (let ((env-vdefs-easgs (psb dynamic-empty-env env '() '() bindings))) (cons (car env-vdefs-easgs) (cons (reverse (cadr env-vdefs-easgs)) (reverse (cddr env-vdefs-easgs))))))) ;;; dynamic-parse-letrec (define (dynamic-parse-letrec env args) (if (pair? args) (let* ((bindings (car args)) (body (cdr args)) (env-ast (dynamic-parse-recursive-bindings env bindings)) (nenv (car env-ast)) (bresults (cdr env-ast))) (dynamic-parse-action-letrec-expression bresults (dynamic-parse-body (extend-env-with-env env nenv) body))) (error 'dynamic-parse-letrec "Illegal bindings/body: ~s" args))) ;;; dynamic-parse-recursive-bindings (define (dynamic-parse-recursive-bindings env bindings) ;; ***Note***: the list of pairs is returned in reverse unzipped form! (if (list-of-list-of-2s? bindings) (let* ((env-formals-asg (dynamic-parse-formal* (map car bindings))) (formals-env (car env-formals-asg)) (formals-res (cdr env-formals-asg)) (exprs-asg (dynamic-parse-expression* (extend-env-with-env env formals-env) (map cadr bindings)))) (cons formals-env (cons formals-res exprs-asg))) (error 'dynamic-parse-recursive-bindings "Illegal bindings: ~s" bindings))) ;;; dynamic-parse-do (define (dynamic-parse-do env args) ;; parses do-expressions ;; ***Note***: Not implemented! (error 'dynamic-parse-do "Nothing yet...")) ;;; dynamic-parse-quasiquote (define (dynamic-parse-quasiquote env args) ;; ***Note***: Not implemented! (error 'dynamic-parse-quasiquote "Nothing yet...")) ;;; Command ;;; dynamic-parse-command (define (dynamic-parse-command env c) (if (pair? c) (let ((op (car c)) (args (cdr c))) (case op ((define) (dynamic-parse-define env args)) ((begin) (dynamic-parse-action-begin-expression (dynamic-parse-command* env args))) (else (dynamic-parse-expression env c)))) (dynamic-parse-expression env c))) ;;; dynamic-parse-command* (define (dynamic-parse-command* env commands) ;; parses a sequence of commands (if (list? commands) (map (lambda (command) (dynamic-parse-command env command)) commands) (error 'dynamic-parse-command* "Invalid sequence of commands: ~s" commands))) ;;; dynamic-parse-define (define (dynamic-parse-define env args) ;; three cases -- see IEEE Scheme, sect. 5.2 ;; ***Note***: the parser admits forms (define (x . y) ...) ;; ***Note***: Variables are treated as applied occurrences! (if (pair? args) (let ((pattern (car args)) (exp-or-body (cdr args))) (cond ((symbol? pattern) (if (list-of-1? exp-or-body) (dynamic-parse-action-definition (dynamic-parse-variable env pattern) (dynamic-parse-expression env (car exp-or-body))) (error 'dynamic-parse-define "Not a single expression: ~s" exp-or-body))) ((pair? pattern) (let* ((function-name (car pattern)) (function-arg-names (cdr pattern)) (env-ast (dynamic-parse-formals function-arg-names)) (formals-env (car env-ast)) (formals-ast (cdr env-ast))) (dynamic-parse-action-function-definition (dynamic-parse-variable env function-name) formals-ast (dynamic-parse-body (extend-env-with-env env formals-env) exp-or-body)))) (else (error 'dynamic-parse-define "Not a valid pattern: ~s" pattern)))) (error 'dynamic-parse-define "Not a valid definition: ~s" args))) ;;; Auxiliary routines ;;; forall? (define (forall? pred list) (if (null? list) #t (and (pred (car list)) (forall? pred (cdr list))))) ;;; list-of-1? (define (list-of-1? l) (and (pair? l) (null? (cdr l)))) ;;; list-of-2? (define (list-of-2? l) (and (pair? l) (pair? (cdr l)) (null? (cddr l)))) ;;; list-of-3? (define (list-of-3? l) (and (pair? l) (pair? (cdr l)) (pair? (cddr l)) (null? (cdddr l)))) ;;; list-of-list-of-2s? (define (list-of-list-of-2s? e) (cond ((null? e) #t) ((pair? e) (and (list-of-2? (car e)) (list-of-list-of-2s? (cdr e)))) (else #f))) ;;; File processing ;;; dynamic-parse-from-port (define (dynamic-parse-from-port port) (let ((next-input (read port))) (if (eof-object? next-input) '() (dynamic-parse-action-commands (dynamic-parse-command dynamic-empty-env next-input) (dynamic-parse-from-port port))))) ;;; dynamic-parse-file (define (dynamic-parse-file file-name) (let ((input-port (open-input-file file-name))) (dynamic-parse-from-port input-port))) ;;;---------------------------------------------------------------------------- ;;; Implementation of Union/find data structure in Scheme ;;;---------------------------------------------------------------------------- ;;; for union/find the following attributes are necessary: rank, parent ;;; (see Tarjan, "Data structures and network algorithms", 1983) ;;; In the Scheme realization an element is represented as a single ;;; cons cell; its address is the element itself; the car field contains ;;; the parent, the cdr field is an address for a cons ;;; cell containing the rank (car field) and the information (cdr field) ;;; general union/find data structure ;;; ;;; gen-element: Info -> Elem ;;; find: Elem -> Elem ;;; link: Elem! x Elem! -> Elem ;;; asymm-link: Elem! x Elem! -> Elem ;;; info: Elem -> Info ;;; set-info!: Elem! x Info -> Void (define (gen-element info) ;; generates a new element: the parent field is initialized to '(), ;; the rank field to 0 (cons '() (cons 0 info))) (define info (lambda (l) (cddr l))) ;;; returns the information stored in an element (define (set-info! elem info) ;; sets the info-field of elem to info (set-cdr! (cdr elem) info)) (define (find! elem) ;; finds the class representative of elem and sets the parent field ;; directly to the class representative (a class representative has ;; '() as its parent) (let ((p-elem (car elem))) (if (null? p-elem) elem (let ((rep-elem (find! p-elem))) (set-car! elem rep-elem) rep-elem)))) (define (link! elem-1 elem-2) ;; links class elements by rank ;; they must be distinct class representatives ;; returns the class representative of the merged equivalence classes (let ((rank-1 (cadr elem-1)) (rank-2 (cadr elem-2))) (cond ((= rank-1 rank-2) (set-car! (cdr elem-2) (+ rank-2 1)) (set-car! elem-1 elem-2) elem-2) ((> rank-1 rank-2) (set-car! elem-2 elem-1) elem-1) (else (set-car! elem-1 elem-2) elem-2)))) (define asymm-link! (lambda (l x) (set-car! l x))) ;;;---------------------------------------------------------------------------- ;;; Type management ;;;---------------------------------------------------------------------------- ;;; introduces type variables and types for Scheme, ;;; type TVar (type variables) ;;; ;;; gen-tvar: () -> TVar ;;; gen-type: TCon x TVar* -> TVar ;;; dynamic: TVar ;;; tvar-id: TVar -> Symbol ;;; tvar-def: TVar -> Type + Null ;;; tvar-show: TVar -> Symbol* ;;; ;;; set-def!: !TVar x TCon x TVar* -> Null ;;; equiv!: !TVar x !TVar -> Null ;;; ;;; ;;; type TCon (type constructors) ;;; ;;; ... ;;; ;;; type Type (types) ;;; ;;; gen-type: TCon x TVar* -> Type ;;; type-con: Type -> TCon ;;; type-args: Type -> TVar* ;;; ;;; boolean: TVar ;;; character: TVar ;;; null: TVar ;;; pair: TVar x TVar -> TVar ;;; procedure: TVar x TVar* -> TVar ;;; charseq: TVar ;;; symbol: TVar ;;; array: TVar -> TVar ;;; Needed packages: union/find ;;; TVar (define counter 0) ;;; counter for generating tvar id's (define (gen-id) ;; generates a new id (for printing purposes) (set! counter (+ counter 1)) counter) (define (gen-tvar) ;; generates a new type variable from a new symbol ;; uses union/find elements with two info fields ;; a type variable has exactly four fields: ;; car: TVar (the parent field; initially null) ;; cadr: Number (the rank field; is always nonnegative) ;; caddr: Symbol (the type variable identifier; used only for printing) ;; cdddr: Type (the leq field; initially null) (gen-element (cons (gen-id) '()))) (define (gen-type tcon targs) ;; generates a new type variable with an associated type definition (gen-element (cons (gen-id) (cons tcon targs)))) (define dynamic (gen-element (cons 0 '()))) ;;; the special type variable dynamic ;;; Generic operations (define (tvar-id tvar) ;; returns the (printable) symbol representing the type variable (car (info tvar))) (define (tvar-def tvar) ;; returns the type definition (if any) of the type variable (cdr (info tvar))) (define (set-def! tvar tcon targs) ;; sets the type definition part of tvar to type (set-cdr! (info tvar) (cons tcon targs)) '()) (define (reset-def! tvar) ;; resets the type definition part of tvar to nil (set-cdr! (info tvar) '())) (define type-con (lambda (l) (car l))) ;;; returns the type constructor of a type definition (define type-args (lambda (l) (cdr l))) ;;; returns the type variables of a type definition (define (tvar->string tvar) ;; converts a tvar's id to a string (if (eqv? (tvar-id tvar) 0) "Dynamic" (string-append "t#" (number->string (tvar-id tvar) 10)))) (define (tvar-show tv) ;; returns a printable list representation of type variable tv (let* ((tv-rep (find! tv)) (tv-def (tvar-def tv-rep))) (cons (tvar->string tv-rep) (if (null? tv-def) '() (cons 'is (type-show tv-def)))))) (define (type-show type) ;; returns a printable list representation of type definition type (cond ((eqv? (type-con type) ptype-con) (let ((new-tvar (gen-tvar))) (cons ptype-con (cons (tvar-show new-tvar) (tvar-show ((type-args type) new-tvar)))))) (else (cons (type-con type) (map (lambda (tv) (tvar->string (find! tv))) (type-args type)))))) ;;; Special type operations ;;; type constructor literals (define boolean-con 'boolean) (define char-con 'char) (define null-con 'null) (define number-con 'number) (define pair-con 'pair) (define procedure-con 'procedure) (define string-con 'string) (define symbol-con 'symbol) (define vector-con 'vector) ;;; type constants and type constructors (define (null) ;; ***Note***: Temporarily changed to be a pair! ;; (gen-type null-con '()) (pair (gen-tvar) (gen-tvar))) (define (boolean) (gen-type boolean-con '())) (define (character) (gen-type char-con '())) (define (number) (gen-type number-con '())) (define (charseq) (gen-type string-con '())) (define (symbol) (gen-type symbol-con '())) (define (pair tvar-1 tvar-2) (gen-type pair-con (list tvar-1 tvar-2))) (define (array tvar) (gen-type vector-con (list tvar))) (define (procedure arg-tvar res-tvar) (gen-type procedure-con (list arg-tvar res-tvar))) ;;; equivalencing of type variables (define (equiv! tv1 tv2) (let* ((tv1-rep (find! tv1)) (tv2-rep (find! tv2)) (tv1-def (tvar-def tv1-rep)) (tv2-def (tvar-def tv2-rep))) (cond ((eqv? tv1-rep tv2-rep) '()) ((eqv? tv2-rep dynamic) (equiv-with-dynamic! tv1-rep)) ((eqv? tv1-rep dynamic) (equiv-with-dynamic! tv2-rep)) ((null? tv1-def) (if (null? tv2-def) ;; both tv1 and tv2 are distinct type variables (link! tv1-rep tv2-rep) ;; tv1 is a type variable, tv2 is a (nondynamic) type (asymm-link! tv1-rep tv2-rep))) ((null? tv2-def) ;; tv1 is a (nondynamic) type, tv2 is a type variable (asymm-link! tv2-rep tv1-rep)) ((eqv? (type-con tv1-def) (type-con tv2-def)) ;; both tv1 and tv2 are (nondynamic) types with equal numbers of ;; arguments (link! tv1-rep tv2-rep) (map equiv! (type-args tv1-def) (type-args tv2-def))) (else ;; tv1 and tv2 are types with distinct type constructors or different ;; numbers of arguments (equiv-with-dynamic! tv1-rep) (equiv-with-dynamic! tv2-rep)))) '()) (define (equiv-with-dynamic! tv) (let ((tv-rep (find! tv))) (if (not (eqv? tv-rep dynamic)) (let ((tv-def (tvar-def tv-rep))) (asymm-link! tv-rep dynamic) (if (not (null? tv-def)) (map equiv-with-dynamic! (type-args tv-def)))))) '()) ;;;---------------------------------------------------------------------------- ;;; Polymorphic type management ;;;---------------------------------------------------------------------------- ;;; introduces parametric polymorphic types ;;; forall: (Tvar -> Tvar) -> TVar ;;; fix: (Tvar -> Tvar) -> Tvar ;;; ;;; instantiate-type: TVar -> TVar ;;; type constructor literal for polymorphic types (define ptype-con 'forall) (define (forall tv-func) (gen-type ptype-con tv-func)) (define (forall2 tv-func2) (forall (lambda (tv1) (forall (lambda (tv2) (tv-func2 tv1 tv2)))))) (define (forall3 tv-func3) (forall (lambda (tv1) (forall2 (lambda (tv2 tv3) (tv-func3 tv1 tv2 tv3)))))) (define (forall4 tv-func4) (forall (lambda (tv1) (forall3 (lambda (tv2 tv3 tv4) (tv-func4 tv1 tv2 tv3 tv4)))))) (define (forall5 tv-func5) (forall (lambda (tv1) (forall4 (lambda (tv2 tv3 tv4 tv5) (tv-func5 tv1 tv2 tv3 tv4 tv5)))))) ;;; (polymorphic) instantiation (define (instantiate-type tv) ;; instantiates type tv and returns a generic instance (let* ((tv-rep (find! tv)) (tv-def (tvar-def tv-rep))) (cond ((null? tv-def) tv-rep) ((eqv? (type-con tv-def) ptype-con) (instantiate-type ((type-args tv-def) (gen-tvar)))) (else tv-rep)))) (define (fix tv-func) ;; forms a recursive type: the fixed point of type mapping tv-func (let* ((new-tvar (gen-tvar)) (inst-tvar (tv-func new-tvar)) (inst-def (tvar-def inst-tvar))) (if (null? inst-def) (error 'fix "Illegal recursive type: ~s" (list (tvar-show new-tvar) '= (tvar-show inst-tvar))) (begin (set-def! new-tvar (type-con inst-def) (type-args inst-def)) new-tvar)))) ;;;---------------------------------------------------------------------------- ;;; Constraint management ;;;---------------------------------------------------------------------------- ;;; constraints (define gen-constr (lambda (a b) (cons a b))) ;;; generates an equality between tvar1 and tvar2 (define constr-lhs (lambda (c) (car c))) ;;; returns the left-hand side of a constraint (define constr-rhs (lambda (c) (cdr c))) ;;; returns the right-hand side of a constraint (define (constr-show c) (cons (tvar-show (car c)) (cons '= (cons (tvar-show (cdr c)) '())))) ;;; constraint set management (define global-constraints '()) (define (init-global-constraints!) (set! global-constraints '())) (define (add-constr! lhs rhs) (set! global-constraints (cons (gen-constr lhs rhs) global-constraints)) '()) (define (glob-constr-show) ;; returns printable version of global constraints (map constr-show global-constraints)) ;;; constraint normalization ;;; Needed packages: type management (define (normalize-global-constraints!) (normalize! global-constraints) (init-global-constraints!)) (define (normalize! constraints) (map (lambda (c) (equiv! (constr-lhs c) (constr-rhs c))) constraints)) ;;; --------------------------------------------------------------------------- ;;; Abstract syntax definition and parse actions ;;; --------------------------------------------------------------------------- ;;; Needed packages: ast-gen.ss ;;; Abstract syntax ;;; ;;; VarDef ;;; ;;; Identifier = Symbol - SyntacticKeywords ;;; SyntacticKeywords = { ... } (see Section 7.1, IEEE Scheme Standard) ;;; ;;; Datum ;;; ;;; null-const: Null -> Datum ;;; boolean-const: Bool -> Datum ;;; char-const: Char -> Datum ;;; number-const: Number -> Datum ;;; string-const: String -> Datum ;;; vector-const: Datum* -> Datum ;;; pair-const: Datum x Datum -> Datum ;;; ;;; Expr ;;; ;;; Datum < Expr ;;; ;;; var-def: Identifier -> VarDef ;;; variable: VarDef -> Expr ;;; identifier: Identifier -> Expr ;;; procedure-call: Expr x Expr* -> Expr ;;; lambda-expression: Formals x Body -> Expr ;;; conditional: Expr x Expr x Expr -> Expr ;;; assignment: Variable x Expr -> Expr ;;; cond-expression: CondClause+ -> Expr ;;; case-expression: Expr x CaseClause* -> Expr ;;; and-expression: Expr* -> Expr ;;; or-expression: Expr* -> Expr ;;; let-expression: (VarDef* x Expr*) x Body -> Expr ;;; named-let-expression: VarDef x (VarDef* x Expr*) x Body -> Expr ;;; let*-expression: (VarDef* x Expr*) x Body -> Expr ;;; letrec-expression: (VarDef* x Expr*) x Body -> Expr ;;; begin-expression: Expr+ -> Expr ;;; do-expression: IterDef* x CondClause x Expr* -> Expr ;;; empty: -> Expr ;;; ;;; VarDef* < Formals ;;; ;;; simple-formal: VarDef -> Formals ;;; dotted-formals: VarDef* x VarDef -> Formals ;;; ;;; Body = Definition* x Expr+ (reversed) ;;; CondClause = Expr x Expr+ ;;; CaseClause = Datum* x Expr+ ;;; IterDef = VarDef x Expr x Expr ;;; ;;; Definition ;;; ;;; definition: Identifier x Expr -> Definition ;;; function-definition: Identifier x Formals x Body -> Definition ;;; begin-command: Definition* -> Definition ;;; ;;; Expr < Command ;;; Definition < Command ;;; ;;; Program = Command* ;;; Abstract syntax operators ;;; Datum (define null-const 0) (define boolean-const 1) (define char-const 2) (define number-const 3) (define string-const 4) (define symbol-const 5) (define vector-const 6) (define pair-const 7) ;;; Bindings (define var-def 8) (define null-def 29) (define pair-def 30) ;;; Expr (define variable 9) (define identifier 10) (define procedure-call 11) (define lambda-expression 12) (define conditional 13) (define assignment 14) (define cond-expression 15) (define case-expression 16) (define and-expression 17) (define or-expression 18) (define let-expression 19) (define named-let-expression 20) (define let*-expression 21) (define letrec-expression 22) (define begin-expression 23) (define do-expression 24) (define empty 25) (define null-arg 31) (define pair-arg 32) ;;; Command (define definition 26) (define function-definition 27) (define begin-command 28) ;;; Parse actions for abstract syntax construction (define (dynamic-parse-action-null-const) ;; dynamic-parse-action for '() (ast-gen null-const '())) (define (dynamic-parse-action-boolean-const e) ;; dynamic-parse-action for #f and #t (ast-gen boolean-const e)) (define (dynamic-parse-action-char-const e) ;; dynamic-parse-action for character constants (ast-gen char-const e)) (define (dynamic-parse-action-number-const e) ;; dynamic-parse-action for number constants (ast-gen number-const e)) (define (dynamic-parse-action-string-const e) ;; dynamic-parse-action for string literals (ast-gen string-const e)) (define (dynamic-parse-action-symbol-const e) ;; dynamic-parse-action for symbol constants (ast-gen symbol-const e)) (define (dynamic-parse-action-vector-const e) ;; dynamic-parse-action for vector literals (ast-gen vector-const e)) (define (dynamic-parse-action-pair-const e1 e2) ;; dynamic-parse-action for pairs (ast-gen pair-const (cons e1 e2))) (define (dynamic-parse-action-var-def e) ;; dynamic-parse-action for defining occurrences of variables; ;; e is a symbol (ast-gen var-def e)) (define (dynamic-parse-action-null-formal) ;; dynamic-parse-action for null-list of formals (ast-gen null-def '())) (define (dynamic-parse-action-pair-formal d1 d2) ;; dynamic-parse-action for non-null list of formals; ;; d1 is the result of parsing the first formal, ;; d2 the result of parsing the remaining formals (ast-gen pair-def (cons d1 d2))) (define (dynamic-parse-action-variable e) ;; dynamic-parse-action for applied occurrences of variables ;; ***Note***: e is the result of a dynamic-parse-action on the ;; corresponding variable definition! (ast-gen variable e)) (define (dynamic-parse-action-identifier e) ;; dynamic-parse-action for undeclared identifiers (free variable ;; occurrences) ;; ***Note***: e is a symbol (legal identifier) (ast-gen identifier e)) (define (dynamic-parse-action-null-arg) ;; dynamic-parse-action for a null list of arguments in a procedure call (ast-gen null-arg '())) (define (dynamic-parse-action-pair-arg a1 a2) ;; dynamic-parse-action for a non-null list of arguments in a procedure call ;; a1 is the result of parsing the first argument, ;; a2 the result of parsing the remaining arguments (ast-gen pair-arg (cons a1 a2))) (define (dynamic-parse-action-procedure-call op args) ;; dynamic-parse-action for procedure calls: op function, args list of ;; arguments (ast-gen procedure-call (cons op args))) (define (dynamic-parse-action-lambda-expression formals body) ;; dynamic-parse-action for lambda-abstractions (ast-gen lambda-expression (cons formals body))) (define (dynamic-parse-action-conditional test then-branch else-branch) ;; dynamic-parse-action for conditionals (if-then-else expressions) (ast-gen conditional (cons test (cons then-branch else-branch)))) (define (dynamic-parse-action-empty) ;; dynamic-parse-action for missing or empty field (ast-gen empty '())) (define (dynamic-parse-action-assignment lhs rhs) ;; dynamic-parse-action for assignment (ast-gen assignment (cons lhs rhs))) (define (dynamic-parse-action-begin-expression body) ;; dynamic-parse-action for begin-expression (ast-gen begin-expression body)) (define (dynamic-parse-action-cond-expression clauses) ;; dynamic-parse-action for cond-expressions (ast-gen cond-expression clauses)) (define (dynamic-parse-action-and-expression args) ;; dynamic-parse-action for and-expressions (ast-gen and-expression args)) (define (dynamic-parse-action-or-expression args) ;; dynamic-parse-action for or-expressions (ast-gen or-expression args)) (define (dynamic-parse-action-case-expression key clauses) ;; dynamic-parse-action for case-expressions (ast-gen case-expression (cons key clauses))) (define (dynamic-parse-action-let-expression bindings body) ;; dynamic-parse-action for let-expressions (ast-gen let-expression (cons bindings body))) (define (dynamic-parse-action-named-let-expression variable bindings body) ;; dynamic-parse-action for named-let expressions (ast-gen named-let-expression (cons variable (cons bindings body)))) (define (dynamic-parse-action-let*-expression bindings body) ;; dynamic-parse-action for let-expressions (ast-gen let*-expression (cons bindings body))) (define (dynamic-parse-action-letrec-expression bindings body) ;; dynamic-parse-action for let-expressions (ast-gen letrec-expression (cons bindings body))) (define (dynamic-parse-action-definition variable expr) ;; dynamic-parse-action for simple definitions (ast-gen definition (cons variable expr))) (define (dynamic-parse-action-function-definition variable formals body) ;; dynamic-parse-action for function definitions (ast-gen function-definition (cons variable (cons formals body)))) (define dynamic-parse-action-commands (lambda (a b) (cons a b))) ;;; dynamic-parse-action for processing a command result followed by a the ;;; result of processing the remaining commands ;;; Pretty-printing abstract syntax trees (define (ast-show ast) ;; converts abstract syntax tree to list representation (Scheme program) ;; ***Note***: check translation of constructors to numbers at the top of the ;; file (let ((syntax-op (ast-con ast)) (syntax-arg (ast-arg ast))) (case syntax-op ((0 1 2 3 4 8 10) syntax-arg) ((29 31) '()) ((30 32) (cons (ast-show (car syntax-arg)) (ast-show (cdr syntax-arg)))) ((5) (list 'quote syntax-arg)) ((6) (list->vector (map ast-show syntax-arg))) ((7) (list 'cons (ast-show (car syntax-arg)) (ast-show (cdr syntax-arg)))) ((9) (ast-arg syntax-arg)) ((11) (cons (ast-show (car syntax-arg)) (ast-show (cdr syntax-arg)))) ((12) (cons 'lambda (cons (ast-show (car syntax-arg)) (map ast-show (cdr syntax-arg))))) ((13) (cons 'if (cons (ast-show (car syntax-arg)) (cons (ast-show (cadr syntax-arg)) (let ((alt (cddr syntax-arg))) (if (eqv? (ast-con alt) empty) '() (list (ast-show alt)))))))) ((14) (list 'set! (ast-show (car syntax-arg)) (ast-show (cdr syntax-arg)))) ((15) (cons 'cond (map (lambda (cc) (let ((guard (car cc)) (body (cdr cc))) (cons (if (eqv? (ast-con guard) empty) 'else (ast-show guard)) (map ast-show body)))) syntax-arg))) ((16) (cons 'case (cons (ast-show (car syntax-arg)) (map (lambda (cc) (let ((data (car cc))) (if (and (pair? data) (eqv? (ast-con (car data)) empty)) (cons 'else (map ast-show (cdr cc))) (cons (map datum-show data) (map ast-show (cdr cc)))))) (cdr syntax-arg))))) ((17) (cons 'and (map ast-show syntax-arg))) ((18) (cons 'or (map ast-show syntax-arg))) ((19) (cons 'let (cons (map (lambda (vd e) (list (ast-show vd) (ast-show e))) (caar syntax-arg) (cdar syntax-arg)) (map ast-show (cdr syntax-arg))))) ((20) (cons 'let (cons (ast-show (car syntax-arg)) (cons (map (lambda (vd e) (list (ast-show vd) (ast-show e))) (caadr syntax-arg) (cdadr syntax-arg)) (map ast-show (cddr syntax-arg)))))) ((21) (cons 'let* (cons (map (lambda (vd e) (list (ast-show vd) (ast-show e))) (caar syntax-arg) (cdar syntax-arg)) (map ast-show (cdr syntax-arg))))) ((22) (cons 'letrec (cons (map (lambda (vd e) (list (ast-show vd) (ast-show e))) (caar syntax-arg) (cdar syntax-arg)) (map ast-show (cdr syntax-arg))))) ((23) (cons 'begin (map ast-show syntax-arg))) ((24) (error 'ast-show "Do expressions not handled! (~s)" syntax-arg)) ((25) (error 'ast-show "This can't happen: empty encountered!")) ((26) (list 'define (ast-show (car syntax-arg)) (ast-show (cdr syntax-arg)))) ((27) (cons 'define (cons (cons (ast-show (car syntax-arg)) (ast-show (cadr syntax-arg))) (map ast-show (cddr syntax-arg))))) ((28) (cons 'begin (map ast-show syntax-arg))) (else (error 'ast-show "Unknown abstract syntax operator: ~s" syntax-op))))) ;;; ast*-show (define (ast*-show p) ;; shows a list of abstract syntax trees (map ast-show p)) ;;; datum-show (define (datum-show ast) ;; prints an abstract syntax tree as a datum (case (ast-con ast) ((0 1 2 3 4 5) (ast-arg ast)) ((6) (list->vector (map datum-show (ast-arg ast)))) ((7) (cons (datum-show (car (ast-arg ast))) (datum-show (cdr (ast-arg ast))))) (else (error 'datum-show "This should not happen!")))) ;;; write-to-port (define (write-to-port prog port) ;; writes a program to a port (for-each (lambda (command) (pretty-print command port) (newline port)) prog) '()) ;;; write-file (define (write-to-file prog filename) ;; write a program to a file (let ((port (open-output-file filename))) (write-to-port prog port) (close-output-port port) '())) ;;; --------------------------------------------------------------------------- ;;; Typed abstract syntax tree management: constraint generation, display, etc. ;;; --------------------------------------------------------------------------- ;;; Abstract syntax operations, incl. constraint generation (define (ast-gen syntax-op arg) ;; generates all attributes and performs semantic side effects (let ((ntvar (case syntax-op ((0 29 31) (null)) ((1) (boolean)) ((2) (character)) ((3) (number)) ((4) (charseq)) ((5) (symbol)) ((6) (let ((aux-tvar (gen-tvar))) (for-each (lambda (t) (add-constr! t aux-tvar)) (map ast-tvar arg)) (array aux-tvar))) ((7 30 32) (let ((t1 (ast-tvar (car arg))) (t2 (ast-tvar (cdr arg)))) (pair t1 t2))) ((8) (gen-tvar)) ((9) (ast-tvar arg)) ((10) (let ((in-env (dynamic-lookup arg dynamic-top-level-env))) (if in-env (instantiate-type (binding-value in-env)) (let ((new-tvar (gen-tvar))) (set! dynamic-top-level-env (extend-env-with-binding dynamic-top-level-env (gen-binding arg new-tvar))) new-tvar)))) ((11) (let ((new-tvar (gen-tvar))) (add-constr! (procedure (ast-tvar (cdr arg)) new-tvar) (ast-tvar (car arg))) new-tvar)) ((12) (procedure (ast-tvar (car arg)) (ast-tvar (tail (cdr arg))))) ((13) (let ((t-test (ast-tvar (car arg))) (t-consequent (ast-tvar (cadr arg))) (t-alternate (ast-tvar (cddr arg)))) (add-constr! (boolean) t-test) (add-constr! t-consequent t-alternate) t-consequent)) ((14) (let ((var-tvar (ast-tvar (car arg))) (exp-tvar (ast-tvar (cdr arg)))) (add-constr! var-tvar exp-tvar) var-tvar)) ((15) (let ((new-tvar (gen-tvar))) (for-each (lambda (body) (add-constr! (ast-tvar (tail body)) new-tvar)) (map cdr arg)) (for-each (lambda (e) (add-constr! (boolean) (ast-tvar e))) (map car arg)) new-tvar)) ((16) (let* ((new-tvar (gen-tvar)) (t-key (ast-tvar (car arg))) (case-clauses (cdr arg))) (for-each (lambda (exprs) (for-each (lambda (e) (add-constr! (ast-tvar e) t-key)) exprs)) (map car case-clauses)) (for-each (lambda (body) (add-constr! (ast-tvar (tail body)) new-tvar)) (map cdr case-clauses)) new-tvar)) ((17 18) (for-each (lambda (e) (add-constr! (boolean) (ast-tvar e))) arg) (boolean)) ((19 21 22) (let ((var-def-tvars (map ast-tvar (caar arg))) (def-expr-types (map ast-tvar (cdar arg))) (body-type (ast-tvar (tail (cdr arg))))) (for-each add-constr! var-def-tvars def-expr-types) body-type)) ((20) (let ((var-def-tvars (map ast-tvar (caadr arg))) (def-expr-types (map ast-tvar (cdadr arg))) (body-type (ast-tvar (tail (cddr arg)))) (named-var-type (ast-tvar (car arg)))) (for-each add-constr! var-def-tvars def-expr-types) (add-constr! (procedure (convert-tvars var-def-tvars) body-type) named-var-type) body-type)) ((23) (ast-tvar (tail arg))) ((24) (error 'ast-gen "Do-expressions not handled! (Argument: ~s) arg")) ((25) (gen-tvar)) ((26) (let ((t-var (ast-tvar (car arg))) (t-exp (ast-tvar (cdr arg)))) (add-constr! t-var t-exp) t-var)) ((27) (let ((t-var (ast-tvar (car arg))) (t-formals (ast-tvar (cadr arg))) (t-body (ast-tvar (tail (cddr arg))))) (add-constr! (procedure t-formals t-body) t-var) t-var)) ((28) (gen-tvar)) (else (error 'ast-gen "Can't handle syntax operator: ~s" syntax-op))))) (cons syntax-op (cons ntvar arg)))) (define ast-con car) ;;; extracts the ast-constructor from an abstract syntax tree (define ast-arg cddr) ;;; extracts the ast-argument from an abstract syntax tree (define ast-tvar cadr) ;;; extracts the tvar from an abstract syntax tree ;;; tail (define (tail l) ;; returns the tail of a nonempty list (if (null? (cdr l)) (car l) (tail (cdr l)))) ;;; convert-tvars (define (convert-tvars tvar-list) ;; converts a list of tvars to a single tvar (cond ((null? tvar-list) (null)) ((pair? tvar-list) (pair (car tvar-list) (convert-tvars (cdr tvar-list)))) (else (error 'convert-tvars "Not a list of tvars: ~s" tvar-list)))) ;;; Pretty-printing abstract syntax trees (define (tast-show ast) ;; converts abstract syntax tree to list representation (Scheme program) (let ((syntax-op (ast-con ast)) (syntax-tvar (tvar-show (ast-tvar ast))) (syntax-arg (ast-arg ast))) (cons (case syntax-op ((0 1 2 3 4 8 10) syntax-arg) ((29 31) '()) ((30 32) (cons (tast-show (car syntax-arg)) (tast-show (cdr syntax-arg)))) ((5) (list 'quote syntax-arg)) ((6) (list->vector (map tast-show syntax-arg))) ((7) (list 'cons (tast-show (car syntax-arg)) (tast-show (cdr syntax-arg)))) ((9) (ast-arg syntax-arg)) ((11) (cons (tast-show (car syntax-arg)) (tast-show (cdr syntax-arg)))) ((12) (cons 'lambda (cons (tast-show (car syntax-arg)) (map tast-show (cdr syntax-arg))))) ((13) (cons 'if (cons (tast-show (car syntax-arg)) (cons (tast-show (cadr syntax-arg)) (let ((alt (cddr syntax-arg))) (if (eqv? (ast-con alt) empty) '() (list (tast-show alt)))))))) ((14) (list 'set! (tast-show (car syntax-arg)) (tast-show (cdr syntax-arg)))) ((15) (cons 'cond (map (lambda (cc) (let ((guard (car cc)) (body (cdr cc))) (cons (if (eqv? (ast-con guard) empty) 'else (tast-show guard)) (map tast-show body)))) syntax-arg))) ((16) (cons 'case (cons (tast-show (car syntax-arg)) (map (lambda (cc) (let ((data (car cc))) (if (and (pair? data) (eqv? (ast-con (car data)) empty)) (cons 'else (map tast-show (cdr cc))) (cons (map datum-show data) (map tast-show (cdr cc)))))) (cdr syntax-arg))))) ((17) (cons 'and (map tast-show syntax-arg))) ((18) (cons 'or (map tast-show syntax-arg))) ((19) (cons 'let (cons (map (lambda (vd e) (list (tast-show vd) (tast-show e))) (caar syntax-arg) (cdar syntax-arg)) (map tast-show (cdr syntax-arg))))) ((20) (cons 'let (cons (tast-show (car syntax-arg)) (cons (map (lambda (vd e) (list (tast-show vd) (tast-show e))) (caadr syntax-arg) (cdadr syntax-arg)) (map tast-show (cddr syntax-arg)))))) ((21) (cons 'let* (cons (map (lambda (vd e) (list (tast-show vd) (tast-show e))) (caar syntax-arg) (cdar syntax-arg)) (map tast-show (cdr syntax-arg))))) ((22) (cons 'letrec (cons (map (lambda (vd e) (list (tast-show vd) (tast-show e))) (caar syntax-arg) (cdar syntax-arg)) (map tast-show (cdr syntax-arg))))) ((23) (cons 'begin (map tast-show syntax-arg))) ((24) (error 'tast-show "Do expressions not handled! (~s)" syntax-arg)) ((25) (error 'tast-show "This can't happen: empty encountered!")) ((26) (list 'define (tast-show (car syntax-arg)) (tast-show (cdr syntax-arg)))) ((27) (cons 'define (cons (cons (tast-show (car syntax-arg)) (tast-show (cadr syntax-arg))) (map tast-show (cddr syntax-arg))))) ((28) (cons 'begin (map tast-show syntax-arg))) (else (error 'tast-show "Unknown abstract syntax operator: ~s" syntax-op))) syntax-tvar))) ;;; tast*-show (define (tast*-show p) ;; shows a list of abstract syntax trees (map tast-show p)) ;;; counters for tagging/untagging (define untag-counter 0) (define no-untag-counter 0) (define tag-counter 0) (define no-tag-counter 0) (define may-untag-counter 0) (define no-may-untag-counter 0) (define (reset-counters!) (set! untag-counter 0) (set! no-untag-counter 0) (set! tag-counter 0) (set! no-tag-counter 0) (set! may-untag-counter 0) (set! no-may-untag-counter 0)) (define (counters-show) (list (cons tag-counter no-tag-counter) (cons untag-counter no-untag-counter) (cons may-untag-counter no-may-untag-counter))) ;;; tag-show (define (tag-show tvar-rep prog) ;; display prog with tagging operation (if (eqv? tvar-rep dynamic) (begin (set! tag-counter (+ tag-counter 1)) (list 'tag prog)) (begin (set! no-tag-counter (+ no-tag-counter 1)) (list 'no-tag prog)))) ;;; untag-show (define (untag-show tvar-rep prog) ;; display prog with untagging operation (if (eqv? tvar-rep dynamic) (begin (set! untag-counter (+ untag-counter 1)) (list 'untag prog)) (begin (set! no-untag-counter (+ no-untag-counter 1)) (list 'no-untag prog)))) (define (may-untag-show tvar-rep prog) ;; display possible untagging in actual arguments (if (eqv? tvar-rep dynamic) (begin (set! may-untag-counter (+ may-untag-counter 1)) (list 'may-untag prog)) (begin (set! no-may-untag-counter (+ no-may-untag-counter 1)) (list 'no-may-untag prog)))) ;;; tag-ast-show (define (tag-ast-show ast) ;; converts typed and normalized abstract syntax tree to ;; a Scheme program with explicit tagging and untagging operations (let ((syntax-op (ast-con ast)) (syntax-tvar (find! (ast-tvar ast))) (syntax-arg (ast-arg ast))) (case syntax-op ((0 1 2 3 4) (tag-show syntax-tvar syntax-arg)) ((8 10) syntax-arg) ((29 31) '()) ((30) (cons (tag-ast-show (car syntax-arg)) (tag-ast-show (cdr syntax-arg)))) ((32) (cons (may-untag-show (find! (ast-tvar (car syntax-arg))) (tag-ast-show (car syntax-arg))) (tag-ast-show (cdr syntax-arg)))) ((5) (tag-show syntax-tvar (list 'quote syntax-arg))) ((6) (tag-show syntax-tvar (list->vector (map tag-ast-show syntax-arg)))) ((7) (tag-show syntax-tvar (list 'cons (tag-ast-show (car syntax-arg)) (tag-ast-show (cdr syntax-arg))))) ((9) (ast-arg syntax-arg)) ((11) (let ((proc-tvar (find! (ast-tvar (car syntax-arg))))) (cons (untag-show proc-tvar (tag-ast-show (car syntax-arg))) (tag-ast-show (cdr syntax-arg))))) ((12) (tag-show syntax-tvar (cons 'lambda (cons (tag-ast-show (car syntax-arg)) (map tag-ast-show (cdr syntax-arg)))))) ((13) (let ((test-tvar (find! (ast-tvar (car syntax-arg))))) (cons 'if (cons (untag-show test-tvar (tag-ast-show (car syntax-arg))) (cons (tag-ast-show (cadr syntax-arg)) (let ((alt (cddr syntax-arg))) (if (eqv? (ast-con alt) empty) '() (list (tag-ast-show alt))))))))) ((14) (list 'set! (tag-ast-show (car syntax-arg)) (tag-ast-show (cdr syntax-arg)))) ((15) (cons 'cond (map (lambda (cc) (let ((guard (car cc)) (body (cdr cc))) (cons (if (eqv? (ast-con guard) empty) 'else (untag-show (find! (ast-tvar guard)) (tag-ast-show guard))) (map tag-ast-show body)))) syntax-arg))) ((16) (cons 'case (cons (tag-ast-show (car syntax-arg)) (map (lambda (cc) (let ((data (car cc))) (if (and (pair? data) (eqv? (ast-con (car data)) empty)) (cons 'else (map tag-ast-show (cdr cc))) (cons (map datum-show data) (map tag-ast-show (cdr cc)))))) (cdr syntax-arg))))) ((17) (cons 'and (map (lambda (ast) (let ((bool-tvar (find! (ast-tvar ast)))) (untag-show bool-tvar (tag-ast-show ast)))) syntax-arg))) ((18) (cons 'or (map (lambda (ast) (let ((bool-tvar (find! (ast-tvar ast)))) (untag-show bool-tvar (tag-ast-show ast)))) syntax-arg))) ((19) (cons 'let (cons (map (lambda (vd e) (list (tag-ast-show vd) (tag-ast-show e))) (caar syntax-arg) (cdar syntax-arg)) (map tag-ast-show (cdr syntax-arg))))) ((20) (cons 'let (cons (tag-ast-show (car syntax-arg)) (cons (map (lambda (vd e) (list (tag-ast-show vd) (tag-ast-show e))) (caadr syntax-arg) (cdadr syntax-arg)) (map tag-ast-show (cddr syntax-arg)))))) ((21) (cons 'let* (cons (map (lambda (vd e) (list (tag-ast-show vd) (tag-ast-show e))) (caar syntax-arg) (cdar syntax-arg)) (map tag-ast-show (cdr syntax-arg))))) ((22) (cons 'letrec (cons (map (lambda (vd e) (list (tag-ast-show vd) (tag-ast-show e))) (caar syntax-arg) (cdar syntax-arg)) (map tag-ast-show (cdr syntax-arg))))) ((23) (cons 'begin (map tag-ast-show syntax-arg))) ((24) (error 'tag-ast-show "Do expressions not handled! (~s)" syntax-arg)) ((25) (error 'tag-ast-show "This can't happen: empty encountered!")) ((26) (list 'define (tag-ast-show (car syntax-arg)) (tag-ast-show (cdr syntax-arg)))) ((27) (let ((func-tvar (find! (ast-tvar (car syntax-arg))))) (list 'define (tag-ast-show (car syntax-arg)) (tag-show func-tvar (cons 'lambda (cons (tag-ast-show (cadr syntax-arg)) (map tag-ast-show (cddr syntax-arg)))))))) ((28) (cons 'begin (map tag-ast-show syntax-arg))) (else (error 'tag-ast-show "Unknown abstract syntax operator: ~s" syntax-op))))) ;; tag-ast*-show (define (tag-ast*-show p) ;; display list of commands/expressions with tagging/untagging ;; operations (map tag-ast-show p)) ;;; --------------------------------------------------------------------------- ;;; Top level type environment ;;; --------------------------------------------------------------------------- ;;; Needed packages: type management (monomorphic and polymorphic) ;;; type environment for miscellaneous (define misc-env (list (cons 'quote (forall (lambda (tv) tv))) (cons 'eqv? (forall (lambda (tv) (procedure (convert-tvars (list tv tv)) (boolean))))) (cons 'eq? (forall (lambda (tv) (procedure (convert-tvars (list tv tv)) (boolean))))) (cons 'equal? (forall (lambda (tv) (procedure (convert-tvars (list tv tv)) (boolean))))))) ;;; type environment for input/output (define io-env (list (cons 'open-input-file (procedure (convert-tvars (list (charseq))) dynamic)) (cons 'eof-object? (procedure (convert-tvars (list dynamic)) (boolean))) (cons 'read (forall (lambda (tv) (procedure (convert-tvars (list tv)) dynamic)))) (cons 'write (forall (lambda (tv) (procedure (convert-tvars (list tv)) dynamic)))) (cons 'display (forall (lambda (tv) (procedure (convert-tvars (list tv)) dynamic)))) (cons 'newline (procedure (null) dynamic)) (cons 'pretty-print (forall (lambda (tv) (procedure (convert-tvars (list tv)) dynamic)))))) ;;; type environment for Booleans (define boolean-env (list (cons 'boolean? (forall (lambda (tv) (procedure (convert-tvars (list tv)) (boolean))))) ;; #f doesn't exist in Chez Scheme, but gets mapped to null! (cons #t (boolean)) (cons 'not (procedure (convert-tvars (list (boolean))) (boolean))))) ;;; type environment for pairs and lists (define (list-type tv) (fix (lambda (tv2) (pair tv tv2)))) (define list-env (list (cons 'pair? (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list (pair tv1 tv2))) (boolean))))) (cons 'null? (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list (pair tv1 tv2))) (boolean))))) (cons 'list? (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list (pair tv1 tv2))) (boolean))))) (cons 'cons (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list tv1 tv2)) (pair tv1 tv2))))) (cons 'car (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list (pair tv1 tv2))) tv1)))) (cons 'cdr (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list (pair tv1 tv2))) tv2)))) (cons 'set-car! (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list (pair tv1 tv2) tv1)) dynamic)))) (cons 'set-cdr! (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list (pair tv1 tv2) tv2)) dynamic)))) (cons 'caar (forall3 (lambda (tv1 tv2 tv3) (procedure (convert-tvars (list (pair (pair tv1 tv2) tv3))) tv1)))) (cons 'cdar (forall3 (lambda (tv1 tv2 tv3) (procedure (convert-tvars (list (pair (pair tv1 tv2) tv3))) tv2)))) (cons 'cadr (forall3 (lambda (tv1 tv2 tv3) (procedure (convert-tvars (list (pair tv1 (pair tv2 tv3)))) tv2)))) (cons 'cddr (forall3 (lambda (tv1 tv2 tv3) (procedure (convert-tvars (list (pair tv1 (pair tv2 tv3)))) tv3)))) (cons 'caaar (forall4 (lambda (tv1 tv2 tv3 tv4) (procedure (convert-tvars (list (pair (pair (pair tv1 tv2) tv3) tv4))) tv1)))) (cons 'cdaar (forall4 (lambda (tv1 tv2 tv3 tv4) (procedure (convert-tvars (list (pair (pair (pair tv1 tv2) tv3) tv4))) tv2)))) (cons 'cadar (forall4 (lambda (tv1 tv2 tv3 tv4) (procedure (convert-tvars (list (pair (pair tv1 (pair tv2 tv3)) tv4))) tv2)))) (cons 'cddar (forall4 (lambda (tv1 tv2 tv3 tv4) (procedure (convert-tvars (list (pair (pair tv1 (pair tv2 tv3)) tv4))) tv3)))) (cons 'caadr (forall4 (lambda (tv1 tv2 tv3 tv4) (procedure (convert-tvars (list (pair tv1 (pair (pair tv2 tv3) tv4)))) tv2)))) (cons 'cdadr (forall4 (lambda (tv1 tv2 tv3 tv4) (procedure (convert-tvars (list (pair tv1 (pair (pair tv2 tv3) tv4)))) tv3)))) (cons 'caddr (forall4 (lambda (tv1 tv2 tv3 tv4) (procedure (convert-tvars (list (pair tv1 (pair tv2 (pair tv3 tv4))))) tv3)))) (cons 'cdddr (forall4 (lambda (tv1 tv2 tv3 tv4) (procedure (convert-tvars (list (pair tv1 (pair tv2 (pair tv3 tv4))))) tv4)))) (cons 'cadddr (forall5 (lambda (tv1 tv2 tv3 tv4 tv5) (procedure (convert-tvars (list (pair tv1 (pair tv2 (pair tv3 (pair tv4 tv5)))))) tv4)))) (cons 'cddddr (forall5 (lambda (tv1 tv2 tv3 tv4 tv5) (procedure (convert-tvars (list (pair tv1 (pair tv2 (pair tv3 (pair tv4 tv5)))))) tv5)))) (cons 'list (forall (lambda (tv) (procedure tv tv)))) (cons 'length (forall (lambda (tv) (procedure (convert-tvars (list (list-type tv))) (number))))) (cons 'append (forall (lambda (tv) (procedure (convert-tvars (list (list-type tv) (list-type tv))) (list-type tv))))) (cons 'reverse (forall (lambda (tv) (procedure (convert-tvars (list (list-type tv))) (list-type tv))))) (cons 'list-ref (forall (lambda (tv) (procedure (convert-tvars (list (list-type tv) (number))) tv)))) (cons 'memq (forall (lambda (tv) (procedure (convert-tvars (list tv (list-type tv))) (boolean))))) (cons 'memv (forall (lambda (tv) (procedure (convert-tvars (list tv (list-type tv))) (boolean))))) (cons 'member (forall (lambda (tv) (procedure (convert-tvars (list tv (list-type tv))) (boolean))))) (cons 'assq (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list tv1 (list-type (pair tv1 tv2)))) (pair tv1 tv2))))) (cons 'assv (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list tv1 (list-type (pair tv1 tv2)))) (pair tv1 tv2))))) (cons 'assoc (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list tv1 (list-type (pair tv1 tv2)))) (pair tv1 tv2))))))) (define symbol-env (list (cons 'symbol? (forall (lambda (tv) (procedure (convert-tvars (list tv)) (boolean))))) (cons 'symbol->string (procedure (convert-tvars (list (symbol))) (charseq))) (cons 'string->symbol (procedure (convert-tvars (list (charseq))) (symbol))))) (define number-env (list (cons 'number? (forall (lambda (tv) (procedure (convert-tvars (list tv)) (boolean))))) (cons '+ (procedure (convert-tvars (list (number) (number))) (number))) (cons '- (procedure (convert-tvars (list (number) (number))) (number))) (cons '* (procedure (convert-tvars (list (number) (number))) (number))) (cons '/ (procedure (convert-tvars (list (number) (number))) (number))) (cons 'number->string (procedure (convert-tvars (list (number))) (charseq))) (cons 'string->number (procedure (convert-tvars (list (charseq))) (number))))) (define char-env (list (cons 'char? (forall (lambda (tv) (procedure (convert-tvars (list tv)) (boolean))))) (cons 'char->integer (procedure (convert-tvars (list (character))) (number))) (cons 'integer->char (procedure (convert-tvars (list (number))) (character))))) (define string-env (list (cons 'string? (forall (lambda (tv) (procedure (convert-tvars (list tv)) (boolean))))))) (define vector-env (list (cons 'vector? (forall (lambda (tv) (procedure (convert-tvars (list tv)) (boolean))))) (cons 'make-vector (forall (lambda (tv) (procedure (convert-tvars (list (number))) (array tv))))) (cons 'vector-length (forall (lambda (tv) (procedure (convert-tvars (list (array tv))) (number))))) (cons 'vector-ref (forall (lambda (tv) (procedure (convert-tvars (list (array tv) (number))) tv)))) (cons 'vector-set! (forall (lambda (tv) (procedure (convert-tvars (list (array tv) (number) tv)) dynamic)))))) (define procedure-env (list (cons 'procedure? (forall (lambda (tv) (procedure (convert-tvars (list tv)) (boolean))))) (cons 'map (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list (procedure (convert-tvars (list tv1)) tv2) (list-type tv1))) (list-type tv2))))) (cons 'foreach (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list (procedure (convert-tvars (list tv1)) tv2) (list-type tv1))) (list-type tv2))))) (cons 'call-with-current-continuation (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list (procedure (convert-tvars (list (procedure (convert-tvars (list tv1)) tv2))) tv2))) tv2)))))) ;;; global top level environment (define (global-env) (append misc-env io-env boolean-env symbol-env number-env char-env string-env vector-env procedure-env list-env)) (define dynamic-top-level-env (global-env)) (define (init-dynamic-top-level-env!) (set! dynamic-top-level-env (global-env)) '()) (define (dynamic-top-level-env-show) ;; displays the top level environment (map (lambda (binding) (cons (key-show (binding-key binding)) (cons ': (tvar-show (binding-value binding))))) (env->list dynamic-top-level-env))) ;;; --------------------------------------------------------------------------- ;;; Dynamic type inference for Scheme ;;; --------------------------------------------------------------------------- ;;; Needed packages: (define (ic!) (init-global-constraints!)) (define (pc) (glob-constr-show)) (define (lc) (length global-constraints)) (define (n!) (normalize-global-constraints!)) (define (pt) (dynamic-top-level-env-show)) (define (it!) (init-dynamic-top-level-env!)) (define (io!) (set! tag-ops 0) (set! no-ops 0)) (define (i!) (ic!) (it!) (io!) '()) (define tag-ops 0) (define no-ops 0) ;;; This wasn't intended to be an i/o benchmark, ;;; so let's read the file just once. (define *forms* (call-with-input-file "dynamic-original.sc" (lambda (port) (define (loop forms) (let ((form (read port))) (if (eof-object? form) (reverse forms) (loop (cons form forms))))) (loop '())))) (define (dynamic-parse-forms forms) (if (null? forms) '() (let ((next-input (car forms))) (dynamic-parse-action-commands (dynamic-parse-command dynamic-empty-env next-input) (dynamic-parse-forms (cdr forms)))))) (define doit (lambda () (i!) (let ((foo (dynamic-parse-forms *forms*))) (normalize-global-constraints!) (reset-counters!) (tag-ast*-show foo) (counters-show)))) stalin-0.11/benchmarks/chicken.sed0000600017435200151030000000060107244427024015611 0ustar qobiqobi1i\ (declare (block)\ \ (standard-bindings)\ \ (extended-bindings)\ \ (not safe)\ \ (not interrupts-enabled)) \+;;; begin Stalin+,\+;;; end Stalin+d \+;;; begin Scheme->C+,\+;;; end Scheme->C+d \+;;; begin Gambit-C+,\+;;; end Gambit-C+d \+;;; begin Bigloo+,\+;;; end Bigloo+d \+;;; begin Chez+,\+;;; end Chez+d \+;;; begin Chicken+d \+;;; end Chicken+d stalin-0.11/benchmarks/compile-and-run-bigloo-fdlcc-benchmarks0000700017435200151030000000170007063211705023060 0ustar qobiqobi#!/bin/sh ./compile-and-run-bigloo-benchmark boyer -farithmetic ./compile-and-run-bigloo-benchmark graphs -farithmetic ./compile-and-run-bigloo-benchmark lattice -farithmetic ./compile-and-run-bigloo-benchmark nucleic2 ./compile-and-run-bigloo-benchmark matrix -farithmetic ./compile-and-run-bigloo-benchmark earley -farithmetic ./compile-and-run-bigloo-benchmark scheme -farithmetic ./compile-and-run-bigloo-benchmark conform -farithmetic ./compile-and-run-bigloo-benchmark nboyer -farithmetic ./compile-and-run-bigloo-benchmark sboyer -farithmetic ./compile-and-run-bigloo-benchmark fannkuch -farithmetic ./compile-and-run-bigloo-benchmark simplex ./compile-and-run-bigloo-benchmark em-functional ./compile-and-run-bigloo-benchmark em-imperative ./compile-and-run-bigloo-benchmark nfm ./compile-and-run-bigloo-benchmark integ ./compile-and-run-bigloo-benchmark gold ./compile-and-run-bigloo-benchmark sort ./compile-and-run-bigloo-benchmark rrr -farithmetic stalin-0.11/benchmarks/compile-and-run-bigloo-benchmark0000700017435200151030000000047107063210111021616 0ustar qobiqobi#!/bin/sh unset noclobber ulimit -s unlimited ulimit -c 0 echo compile $1 sed -f bigloo.sed $1.sc >$1-bigloo.scm time bigloo2.0e -call/cc -unsafe -Obench -O6 -fstack $2\ -copt "-O3 -fomit-frame-pointer -freg-struct-return"\ -o $1-bigloo -suffix scm $1-bigloo.scm echo run $1 time ./$1-bigloo >/dev/null stalin-0.11/benchmarks/conform.sc0000600017435200151030000003534307063211711015506 0ustar qobiqobi(define (run-benchmark name count run ok?) (if (not (ok? (run-bench name count run ok?))) (begin (display "*** wrong result ***") (newline)) (begin (display "*** right result ***") (newline)))) (define (run-bench name count run ok?) (let loop ((i 0) (result (list 'undefined))) (if (< i count) (loop (+ i 1) (run)) result))) (define (fatal-error . args) (for-each display args) (newline)) ;;; CONFORM -- Type checker, written by Jim Miller. ;;; Functional and unstable (define (sort-list obj pred) (define (loop l) (if (and (pair? l) (pair? (cdr l))) (split-list l '() '()) l)) (define (split-list l one two) (if (pair? l) (split-list (cdr l) two (cons (car l) one)) (merge (loop one) (loop two)))) (define (merge one two) (cond ((null? one) two) ((pred (car two) (car one)) (cons (car two) (merge (cdr two) one))) (else (cons (car one) (merge (cdr one) two))))) (loop obj)) ;;; SET OPERATIONS ;;; (representation as lists with distinct elements) (define (adjoin element set) (if (memq element set) set (cons element set))) (define (eliminate element set) (cond ((null? set) set) ((eq? element (car set)) (cdr set)) (else (cons (car set) (eliminate element (cdr set)))))) (define (intersect list1 list2) (let loop ((l list1)) (cond ((null? l) '()) ((memq (car l) list2) (cons (car l) (loop (cdr l)))) (else (loop (cdr l)))))) (define (union list1 list2) (if (null? list1) list2 (union (cdr list1) (adjoin (car list1) list2)))) ;;; GRAPH NODES (define make-internal-node vector) (define (internal-node-name node) (vector-ref node 0)) (define (internal-node-green-edges node) (vector-ref node 1)) (define (internal-node-red-edges node) (vector-ref node 2)) (define (internal-node-blue-edges node) (vector-ref node 3)) (define (set-internal-node-name! node name) (vector-set! node 0 name)) (define (set-internal-node-green-edges! node edges) (vector-set! node 1 edges)) (define (set-internal-node-red-edges! node edges) (vector-set! node 2 edges)) (define (set-internal-node-blue-edges! node edges) (vector-set! node 3 edges)) (define (make-node name . blue-edges) ; User's constructor (let ((name (if (symbol? name) (symbol->string name) name)) (blue-edges (if (null? blue-edges) 'NOT-A-NODE-YET (car blue-edges)))) (make-internal-node name '() '() blue-edges))) (define (copy-node node) (make-internal-node (name node) '() '() (blue-edges node))) ;;; Selectors (define name internal-node-name) (define (make-edge-getter selector) (lambda (node) (if (or (none-node? node) (any-node? node)) (fatal-error "Can't get edges from the ANY or NONE nodes") (selector node)))) (define red-edges (make-edge-getter internal-node-red-edges)) (define green-edges (make-edge-getter internal-node-green-edges)) (define blue-edges (make-edge-getter internal-node-blue-edges)) ;;; Mutators (define (make-edge-setter mutator!) (lambda (node value) (cond ((any-node? node) (fatal-error "Can't set edges from the ANY node")) ((none-node? node) 'OK) (else (mutator! node value))))) (define set-red-edges! (make-edge-setter set-internal-node-red-edges!)) (define set-green-edges! (make-edge-setter set-internal-node-green-edges!)) (define set-blue-edges! (make-edge-setter set-internal-node-blue-edges!)) ;;; BLUE EDGES (define make-blue-edge vector) (define (blue-edge-operation edge) (vector-ref edge 0)) (define (blue-edge-arg-node edge) (vector-ref edge 1)) (define (blue-edge-res-node edge) (vector-ref edge 2)) (define (set-blue-edge-operation! edge value) (vector-set! edge 0 value)) (define (set-blue-edge-arg-node! edge value) (vector-set! edge 1 value)) (define (set-blue-edge-res-node! edge value) (vector-set! edge 2 value)) ;;; Selectors (define operation blue-edge-operation) (define arg-node blue-edge-arg-node) (define res-node blue-edge-res-node) ;;; Mutators (define set-arg-node! set-blue-edge-arg-node!) (define set-res-node! set-blue-edge-res-node!) ;;; Higher level operations on blue edges (define (lookup-op op node) (let loop ((edges (blue-edges node))) (cond ((null? edges) '()) ((eq? op (operation (car edges))) (car edges)) (else (loop (cdr edges)))))) (define (has-op? op node) (not (null? (lookup-op op node)))) ;;; GRAPHS (define make-internal-graph vector) (define (internal-graph-nodes graph) (vector-ref graph 0)) (define (internal-graph-already-met graph) (vector-ref graph 1)) (define (internal-graph-already-joined graph) (vector-ref graph 2)) (define (set-internal-graph-nodes! graph nodes) (vector-set! graph 0 nodes)) ;;; Constructor (define (make-graph . nodes) (make-internal-graph nodes (make-empty-table) (make-empty-table))) ;;; Selectors (define graph-nodes internal-graph-nodes) (define already-met internal-graph-already-met) (define already-joined internal-graph-already-joined) ;;; Higher level functions on graphs (define (add-graph-nodes! graph nodes) (set-internal-graph-nodes! graph (cons nodes (graph-nodes graph)))) (define (copy-graph g) (define (copy-list l) (vector->list (list->vector l))) (make-internal-graph (copy-list (graph-nodes g)) (already-met g) (already-joined g))) (define (clean-graph g) (define (clean-node node) (if (not (or (any-node? node) (none-node? node))) (begin (set-green-edges! node '()) (set-red-edges! node '())))) (for-each clean-node (graph-nodes g)) g) (define (canonicalize-graph graph classes) (define (fix node) (define (fix-set object selector mutator) (mutator object (map (lambda (node) (find-canonical-representative node classes)) (selector object)))) (if (not (or (none-node? node) (any-node? node))) (begin (fix-set node green-edges set-green-edges!) (fix-set node red-edges set-red-edges!) (for-each (lambda (blue-edge) (set-arg-node! blue-edge (find-canonical-representative (arg-node blue-edge) classes)) (set-res-node! blue-edge (find-canonical-representative (res-node blue-edge) classes))) (blue-edges node)))) node) (define (fix-table table) (define (canonical? node) (eq? node (find-canonical-representative node classes))) (define (filter-and-fix predicate-fn update-fn list) (let loop ((list list)) (cond ((null? list) '()) ((predicate-fn (car list)) (cons (update-fn (car list)) (loop (cdr list)))) (else (loop (cdr list)))))) (define (fix-line line) (filter-and-fix (lambda (entry) (canonical? (car entry))) (lambda (entry) (cons (car entry) (find-canonical-representative (cdr entry) classes))) line)) (if (null? table) '() (cons (car table) (filter-and-fix (lambda (entry) (canonical? (car entry))) (lambda (entry) (cons (car entry) (fix-line (cdr entry)))) (cdr table))))) (make-internal-graph (map (lambda (class) (fix (car class))) classes) (fix-table (already-met graph)) (fix-table (already-joined graph)))) ;;; USEFUL NODES (define none-node (make-node 'none #t)) (define (none-node? node) (eq? node none-node)) (define any-node (make-node 'any '())) (define (any-node? node) (eq? node any-node)) ;;; COLORED EDGE TESTS (define (green-edge? from-node to-node) (cond ((any-node? from-node) #f) ((none-node? from-node) #t) ((memq to-node (green-edges from-node)) #t) (else #f))) (define (red-edge? from-node to-node) (cond ((any-node? from-node) #f) ((none-node? from-node) #t) ((memq to-node (red-edges from-node)) #t) (else #f))) ;;; SIGNATURE ;;; Return signature (i.e. ) given an operation and a node (define sig (let ((none-comma-any (cons none-node any-node))) (lambda (op node) ; Returns (arg, res) (let ((the-edge (lookup-op op node))) (if (not (null? the-edge)) (cons (arg-node the-edge) (res-node the-edge)) none-comma-any))))) ;;; Selectors from signature (define (arg pair) (car pair)) (define (res pair) (cdr pair)) ;;; CONFORMITY (define (conforms? t1 t2) (define nodes-with-red-edges-out '()) (define (add-red-edge! from-node to-node) (set-red-edges! from-node (adjoin to-node (red-edges from-node))) (set! nodes-with-red-edges-out (adjoin from-node nodes-with-red-edges-out))) (define (greenify-red-edges! from-node) (set-green-edges! from-node (append (red-edges from-node) (green-edges from-node))) (set-red-edges! from-node '())) (define (delete-red-edges! from-node) (set-red-edges! from-node '())) (define (does-conform t1 t2) (cond ((or (none-node? t1) (any-node? t2)) #t) ((or (any-node? t1) (none-node? t2)) #f) ((green-edge? t1 t2) #t) ((red-edge? t1 t2) #t) (else (add-red-edge! t1 t2) (let loop ((blues (blue-edges t2))) (if (null? blues) #t (let* ((current-edge (car blues)) (phi (operation current-edge))) (and (has-op? phi t1) (does-conform (res (sig phi t1)) (res (sig phi t2))) (does-conform (arg (sig phi t2)) (arg (sig phi t1))) (loop (cdr blues))))))))) (let ((result (does-conform t1 t2))) (for-each (if result greenify-red-edges! delete-red-edges!) nodes-with-red-edges-out) result)) (define (equivalent? a b) (and (conforms? a b) (conforms? b a))) ;;; EQUIVALENCE CLASSIFICATION ;;; Given a list of nodes, return a list of equivalence classes (define (classify nodes) (let node-loop ((classes '()) (nodes nodes)) (if (null? nodes) (map (lambda (class) (sort-list class (lambda (node1 node2) (< (string-length (name node1)) (string-length (name node2)))))) classes) (let ((this-node (car nodes))) (define (add-node classes) (cond ((null? classes) (list (list this-node))) ((equivalent? this-node (caar classes)) (cons (cons this-node (car classes)) (cdr classes))) (else (cons (car classes) (add-node (cdr classes)))))) (node-loop (add-node classes) (cdr nodes)))))) ;;; Given a node N and a classified set of nodes, ;;; find the canonical member corresponding to N (define (find-canonical-representative element classification) (let loop ((classes classification)) (cond ((null? classes) (fatal-error "Can't classify" element)) ((memq element (car classes)) (car (car classes))) (else (loop (cdr classes)))))) ;;; Reduce a graph by taking only one member of each equivalence ;;; class and canonicalizing all outbound pointers (define (reduce graph) (let ((classes (classify (graph-nodes graph)))) (canonicalize-graph graph classes))) ;;; TWO DIMENSIONAL TABLES (define (make-empty-table) (list 'TABLE)) (define (lookup table x y) (let ((one (assq x (cdr table)))) (if one (let ((two (assq y (cdr one)))) (if two (cdr two) #f)) #f))) (define (insert! table x y value) (define (make-singleton-table x y) (list (cons x y))) (let ((one (assq x (cdr table)))) (if one (set-cdr! one (cons (cons y value) (cdr one))) (set-cdr! table (cons (cons x (make-singleton-table y value)) (cdr table)))))) ;;; MEET/JOIN ;;; These update the graph when computing the node for node1*node2 (define (blue-edge-operate arg-fn res-fn graph op sig1 sig2) (make-blue-edge op (arg-fn graph (arg sig1) (arg sig2)) (res-fn graph (res sig1) (res sig2)))) (define (meet graph node1 node2) (cond ((eq? node1 node2) node1) ((or (any-node? node1) (any-node? node2)) any-node) ; canonicalize ((none-node? node1) node2) ((none-node? node2) node1) ((lookup (already-met graph) node1 node2)) ; return it if found ((conforms? node1 node2) node2) ((conforms? node2 node1) node1) (else (let ((result (make-node (string-append "(" (name node1) " ^ " (name node2) ")")))) (add-graph-nodes! graph result) (insert! (already-met graph) node1 node2 result) (set-blue-edges! result (map (lambda (op) (blue-edge-operate join meet graph op (sig op node1) (sig op node2))) (intersect (map operation (blue-edges node1)) (map operation (blue-edges node2))))) result)))) (define (join graph node1 node2) (cond ((eq? node1 node2) node1) ((any-node? node1) node2) ((any-node? node2) node1) ((or (none-node? node1) (none-node? node2)) none-node) ; canonicalize ((lookup (already-joined graph) node1 node2)) ; return it if found ((conforms? node1 node2) node1) ((conforms? node2 node1) node2) (else (let ((result (make-node (string-append "(" (name node1) " v " (name node2) ")")))) (add-graph-nodes! graph result) (insert! (already-joined graph) node1 node2 result) (set-blue-edges! result (map (lambda (op) (blue-edge-operate meet join graph op (sig op node1) (sig op node2))) (union (map operation (blue-edges node1)) (map operation (blue-edges node2))))) result)))) ;;; MAKE A LATTICE FROM A GRAPH (define (make-lattice g print?) (define (step g) (let* ((copy (copy-graph g)) (nodes (graph-nodes copy))) (for-each (lambda (first) (for-each (lambda (second) (meet copy first second) (join copy first second)) nodes)) nodes) copy)) (define (loop g count) (if print? (display count)) (let ((lattice (step g))) (if print? (begin (display " -> ") (display (length (graph-nodes lattice))))) (let* ((new-g (reduce lattice)) (new-count (length (graph-nodes new-g)))) (if (= new-count count) (begin (if print? (newline)) new-g) (begin (if print? (begin (display " -> ") (display new-count) (newline))) (loop new-g new-count)))))) (let ((graph (apply make-graph (adjoin any-node (adjoin none-node (graph-nodes (clean-graph g))))))) (loop graph (length (graph-nodes graph))))) ;;; DEBUG and TEST (define a '()) (define b '()) (define c '()) (define d '()) (define (setup) (set! a (make-node 'a)) (set! b (make-node 'b)) (set-blue-edges! a (list (make-blue-edge 'phi any-node b))) (set-blue-edges! b (list (make-blue-edge 'phi any-node a) (make-blue-edge 'theta any-node b))) (set! c (make-node "c")) (set! d (make-node "d")) (set-blue-edges! c (list (make-blue-edge 'theta any-node b))) (set-blue-edges! d (list (make-blue-edge 'phi any-node c) (make-blue-edge 'theta any-node d))) '(made a b c d)) (define (test) (setup) (map name (graph-nodes (make-lattice (make-graph a b c d any-node none-node) #f)))) (run-benchmark "conform" 2000 (lambda () (test)) (lambda (result) (equal? (map (lambda (s) (list->string (map char-downcase (string->list s)))) result) '("(((b v d) ^ a) v c)" "(c ^ d)" "(b v (a ^ d))" "((a v d) ^ b)" "(b v d)" "(b ^ (a v c))" "(a v (c ^ d))" "((b v d) ^ a)" "(c v (a v d))" "(a v c)" "(d v (b ^ (a v c)))" "(d ^ (a v c))" "((a ^ d) v c)" "((a ^ b) v d)" "(((a v d) ^ b) v (a ^ d))" "(b ^ d)" "(b v (a v d))" "(a ^ c)" "(b ^ (c v d))" "(a ^ b)" "(a v b)" "((a ^ d) ^ b)" "(a ^ d)" "(a v d)" "d" "(c v d)" "a" "b" "c" "any" "none")))) stalin-0.11/benchmarks/cpstak.sc0000600017435200151030000000167206671513667015351 0ustar qobiqobi;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: cpstak.sc ;;; Description: continuation-passing version of TAK ;;; Author: Will Clinger ;;; Created: 20-Aug-87 ;;; Modified: 21-Mar-94 (Qobi) ;;; 31-Mar-98 (Qobi) ;;; Language: Scheme ;;; Status: Public Domain ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; CPSTAK -- A continuation-passing version of the TAK benchmark. ;;; A good test of first class procedures and tail recursion. (define (cpstak x y z) (define (tak x y z k) (if (not (< y x)) ;Qobi: avoid temptation to optimize (k z) (tak (- x 1) y z (lambda (v1) (tak (- y 1) z x (lambda (v2) (tak (- z 1) x y (lambda (v3) (tak v1 v2 v3 k))))))))) (tak x y z (lambda (a) a))) (do ((i 0 (+ i 1))) ((= i 1000)) (write (cpstak 18 12 6)) (newline)) stalin-0.11/benchmarks/ctak.sc0000600017435200151030000000315106671513667015000 0ustar qobiqobi;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: ctak.sc ;;; Description: The ctak benchmark ;;; Author: Richard Gabriel ;;; Created: 5-Apr-85 ;;; Modified: 10-Apr-85 14:53:02 (Bob Shaw) ;;; 24-Jul-87 (Will Clinger) ;;; 8-Oct-95 (Qobi) ;;; 31-Mar-98 (Qobi) ;;; Language: Scheme ;;; Status: Public Domain ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; The original version of this benchmark used a continuation mechanism that ;;; is less powerful than call-with-current-continuation and also relied on ;;; dynamic binding, which is not provided in standard Scheme. Since the ;;; intent of the benchmark seemed to be to test non-local exits, the dynamic ;;; binding has been replaced here by lexical binding. ;;; For Scheme the comment that follows should read: ;;; CTAK -- A version of the TAK procedure that uses continuations. ;;; CTAK -- A version of the TAK function that uses the CATCH/THROW facility. (define (ctak x y z) (call-with-current-continuation (lambda (k) (ctak-aux k x y z)))) (define (ctak-aux k x y z) (cond ((not (< y x)) ;xy (k z)) (else (call-with-current-continuation (lambda (k) ;Qobi: added this missing LAMBDA (ctak-aux k (call-with-current-continuation (lambda (k) (ctak-aux k (- x 1) y z))) (call-with-current-continuation (lambda (k) (ctak-aux k (- y 1) z x))) (call-with-current-continuation (lambda (k) (ctak-aux k (- z 1) x y))))))))) (do ((i 0 (+ i 1))) ((= i 1000)) (write (ctak 18 12 6)) (newline)) stalin-0.11/benchmarks/compile-and-run-bigloo-old-benchmarks0000700017435200151030000000366206735255521022605 0ustar qobiqobi#!/bin/sh ./compile-and-run-bigloo-benchmark boyer -farithmetic ./compile-and-run-bigloo-benchmark browse -farithmetic ./compile-and-run-bigloo-benchmark cpstak -farithmetic ./compile-and-run-bigloo-benchmark ctak -farithmetic ./compile-and-run-bigloo-benchmark dderiv -farithmetic ./compile-and-run-bigloo-benchmark deriv -farithmetic ./compile-and-run-bigloo-benchmark destruct -farithmetic ./compile-and-run-bigloo-benchmark div-iter -farithmetic ./compile-and-run-bigloo-benchmark div-rec -farithmetic ./compile-and-run-bigloo-benchmark fft ./compile-and-run-bigloo-benchmark fprint -farithmetic ./compile-and-run-bigloo-benchmark fread -farithmetic ./compile-and-run-bigloo-benchmark puzzle -farithmetic ./compile-and-run-bigloo-benchmark tak -farithmetic ./compile-and-run-bigloo-benchmark takl -farithmetic ./compile-and-run-bigloo-benchmark takr -farithmetic ./compile-and-run-bigloo-benchmark tprint -farithmetic ./compile-and-run-bigloo-benchmark traverse -farithmetic ./compile-and-run-bigloo-benchmark traverse-init -farithmetic ./compile-and-run-bigloo-benchmark fannkuch -farithmetic ./compile-and-run-bigloo-benchmark simplex ./compile-and-run-bigloo-benchmark em-functional ./compile-and-run-bigloo-benchmark em-functional-partial-split ./compile-and-run-bigloo-benchmark em-functional-split ./compile-and-run-bigloo-benchmark em-functional-do-split ./compile-and-run-bigloo-benchmark em-imperative ./compile-and-run-bigloo-benchmark em-imperative-split ./compile-and-run-bigloo-benchmark nfm ./compile-and-run-bigloo-benchmark integ ./compile-and-run-bigloo-benchmark integ2 ./compile-and-run-bigloo-benchmark gold ./compile-and-run-bigloo-benchmark gold2 ./compile-and-run-bigloo-benchmark sort ./compile-and-run-bigloo-benchmark sort2 ./compile-and-run-bigloo-benchmark dfa -farithmetic ./compile-and-run-bigloo-benchmark dfa2 -farithmetic ./compile-and-run-bigloo-benchmark graphs -farithmetic ./compile-and-run-bigloo-benchmark lattice -farithmetic stalin-0.11/benchmarks/compile-and-run-chicken-benchmark0000700017435200151030000000045607244411317021766 0ustar qobiqobi#!/bin/sh unset noclobber ulimit -s unlimited ulimit -c 0 echo compile $1 sed -f chicken.sed $1.sc >$1-chicken.scm time chicken $1-chicken.scm -optimize-level 4 -block -output-file $1-chicken.c time gcc $1-chicken.c `chicken-config -cflags -libs` -o $1-chicken echo run $1 time ./$1-chicken >/dev/null stalin-0.11/benchmarks/compile-and-run-chicken-fdlcc-benchmarks0000700017435200151030000000170407244414556023227 0ustar qobiqobi#!/bin/sh ./compile-and-run-chicken-fixnum-benchmark boyer ./compile-and-run-chicken-fixnum-benchmark graphs ./compile-and-run-chicken-fixnum-benchmark lattice ./compile-and-run-chicken-benchmark nucleic2 ./compile-and-run-chicken-fixnum-benchmark matrix ./compile-and-run-chicken-fixnum-benchmark earley ./compile-and-run-chicken-fixnum-benchmark scheme ./compile-and-run-chicken-fixnum-benchmark conform ./compile-and-run-chicken-fixnum-benchmark nboyer ./compile-and-run-chicken-fixnum-benchmark sboyer ./compile-and-run-chicken-fixnum-benchmark dynamic ./compile-and-run-chicken-fixnum-benchmark fannkuch ./compile-and-run-chicken-benchmark simplex ./compile-and-run-chicken-benchmark em-functional ./compile-and-run-chicken-benchmark em-imperative ./compile-and-run-chicken-benchmark nfm ./compile-and-run-chicken-benchmark integ ./compile-and-run-chicken-benchmark gold ./compile-and-run-chicken-benchmark sort ./compile-and-run-chicken-fixnum-benchmark rrr stalin-0.11/benchmarks/compile-and-run-chicken-fixnum-benchmark0000700017435200151030000000046507244414317023275 0ustar qobiqobi#!/bin/sh unset noclobber ulimit -s unlimited ulimit -c 0 echo compile $1 sed -f chicken-fixnum.sed $1.sc >$1-chicken.scm time chicken $1-chicken.scm -optimize-level 4 -block -output-file $1-chicken.c time gcc $1-chicken.c `chicken-config -cflags -libs` -o $1-chicken echo run $1 time ./$1-chicken >/dev/null stalin-0.11/benchmarks/compile-and-run-chicken-old-benchmarks0000700017435200151030000000351607244414575022736 0ustar qobiqobi#!/bin/sh ./compile-and-run-chicken-fixnum-benchmark boyer ./compile-and-run-chicken-fixnum-benchmark browse ./compile-and-run-chicken-fixnum-benchmark cpstak ./compile-and-run-chicken-fixnum-benchmark ctak ./compile-and-run-chicken-fixnum-benchmark dderiv ./compile-and-run-chicken-fixnum-benchmark deriv ./compile-and-run-chicken-fixnum-benchmark destruct ./compile-and-run-chicken-fixnum-benchmark div-iter ./compile-and-run-chicken-fixnum-benchmark div-rec ./compile-and-run-chicken-benchmark fft ./compile-and-run-chicken-fixnum-benchmark fprint ./compile-and-run-chicken-fixnum-benchmark fread ./compile-and-run-chicken-fixnum-benchmark puzzle ./compile-and-run-chicken-fixnum-benchmark tak ./compile-and-run-chicken-fixnum-benchmark takl ./compile-and-run-chicken-fixnum-benchmark takr ./compile-and-run-chicken-fixnum-benchmark tprint ./compile-and-run-chicken-fixnum-benchmark traverse ./compile-and-run-chicken-fixnum-benchmark traverse-init ./compile-and-run-chicken-fixnum-benchmark fannkuch ./compile-and-run-chicken-benchmark simplex ./compile-and-run-chicken-benchmark em-functional ./compile-and-run-chicken-benchmark em-functional-partial-split ./compile-and-run-chicken-benchmark em-functional-split ./compile-and-run-chicken-benchmark em-functional-do-split ./compile-and-run-chicken-benchmark em-imperative ./compile-and-run-chicken-benchmark em-imperative-split ./compile-and-run-chicken-benchmark nfm ./compile-and-run-chicken-benchmark integ ./compile-and-run-chicken-benchmark integ2 ./compile-and-run-chicken-benchmark gold ./compile-and-run-chicken-benchmark gold2 ./compile-and-run-chicken-benchmark sort ./compile-and-run-chicken-benchmark sort2 ./compile-and-run-chicken-fixnum-benchmark dfa ./compile-and-run-chicken-fixnum-benchmark dfa2 ./compile-and-run-chicken-fixnum-benchmark graphs ./compile-and-run-chicken-fixnum-benchmark lattice stalin-0.11/benchmarks/compile-and-run-fdlcc-benchmarks0000700017435200151030000000055707244426203021622 0ustar qobiqobi#!/bin/sh ./make-clean ./compile-stalin-fdlcc-benchmarks ./compile-s2c-fdlcc-benchmarks ./compile-gambit-fdlcc-benchmarks ./compile-bigloo-fdlcc-benchmarks ./compile-chicken-fdlcc-benchmarks ./run-stalin-fdlcc-benchmarks ./run-s2c-fdlcc-benchmarks ./run-gambit-fdlcc-benchmarks ./run-bigloo-fdlcc-benchmarks ./run-chez-fdlcc-benchmarks ./run-chicken-fdlcc-benchmarks stalin-0.11/benchmarks/compile-and-run-gambit-benchmark0000700017435200151030000000044706734270317021633 0ustar qobiqobi#!/bin/sh unset noclobber ulimit -s unlimited ulimit -c 0 echo compile $1 sed -f gambit.sed $1.sc >$1-gambit.scm time gsc $1-gambit time gcc -O3 -fomit-frame-pointer -freg-struct-return\ -D___SINGLE_HOST -o $1-gambit $1-gambit.c $1-gambit_.c -lgambc echo run $1 time ./$1-gambit >/dev/null stalin-0.11/benchmarks/compile-and-run-gambit-fdlcc-benchmarks0000700017435200151030000000166007063211705023055 0ustar qobiqobi#!/bin/sh ./compile-and-run-gambit-fixnum-benchmark boyer ./compile-and-run-gambit-fixnum-benchmark graphs ./compile-and-run-gambit-fixnum-benchmark lattice ./compile-and-run-gambit-benchmark nucleic2 ./compile-and-run-gambit-fixnum-benchmark matrix ./compile-and-run-gambit-fixnum-benchmark earley ./compile-and-run-gambit-fixnum-benchmark scheme ./compile-and-run-gambit-fixnum-benchmark conform ./compile-and-run-gambit-fixnum-benchmark nboyer ./compile-and-run-gambit-fixnum-benchmark sboyer ./compile-and-run-gambit-fixnum-benchmark dynamic ./compile-and-run-gambit-fixnum-benchmark fannkuch ./compile-and-run-gambit-benchmark simplex ./compile-and-run-gambit-benchmark em-functional ./compile-and-run-gambit-benchmark em-imperative ./compile-and-run-gambit-benchmark nfm ./compile-and-run-gambit-benchmark integ ./compile-and-run-gambit-benchmark gold ./compile-and-run-gambit-benchmark sort ./compile-and-run-gambit-fixnum-benchmark rrr stalin-0.11/benchmarks/compile-and-run-gambit-fixnum-benchmark0000700017435200151030000000045606734271126023136 0ustar qobiqobi#!/bin/sh unset noclobber ulimit -s unlimited ulimit -c 0 echo compile $1 sed -f gambit-fixnum.sed $1.sc >$1-gambit.scm time gsc $1-gambit time gcc -O3 -fomit-frame-pointer -freg-struct-return\ -D___SINGLE_HOST -o $1-gambit $1-gambit.c $1-gambit_.c -lgambc echo run $1 time ./$1-gambit >/dev/null stalin-0.11/benchmarks/compile-and-run-gambit-old-benchmarks0000700017435200151030000000345006734271375022574 0ustar qobiqobi#!/bin/sh ./compile-and-run-gambit-fixnum-benchmark boyer ./compile-and-run-gambit-fixnum-benchmark browse ./compile-and-run-gambit-fixnum-benchmark cpstak ./compile-and-run-gambit-fixnum-benchmark ctak ./compile-and-run-gambit-fixnum-benchmark dderiv ./compile-and-run-gambit-fixnum-benchmark deriv ./compile-and-run-gambit-fixnum-benchmark destruct ./compile-and-run-gambit-fixnum-benchmark div-iter ./compile-and-run-gambit-fixnum-benchmark div-rec ./compile-and-run-gambit-benchmark fft ./compile-and-run-gambit-fixnum-benchmark fprint ./compile-and-run-gambit-fixnum-benchmark fread ./compile-and-run-gambit-fixnum-benchmark puzzle ./compile-and-run-gambit-fixnum-benchmark tak ./compile-and-run-gambit-fixnum-benchmark takl ./compile-and-run-gambit-fixnum-benchmark takr ./compile-and-run-gambit-fixnum-benchmark tprint ./compile-and-run-gambit-fixnum-benchmark traverse ./compile-and-run-gambit-fixnum-benchmark traverse-init ./compile-and-run-gambit-fixnum-benchmark fannkuch ./compile-and-run-gambit-benchmark simplex ./compile-and-run-gambit-benchmark em-functional ./compile-and-run-gambit-benchmark em-functional-partial-split ./compile-and-run-gambit-benchmark em-functional-split ./compile-and-run-gambit-benchmark em-functional-do-split ./compile-and-run-gambit-benchmark em-imperative ./compile-and-run-gambit-benchmark em-imperative-split ./compile-and-run-gambit-benchmark nfm ./compile-and-run-gambit-benchmark integ ./compile-and-run-gambit-benchmark integ2 ./compile-and-run-gambit-benchmark gold ./compile-and-run-gambit-benchmark gold2 ./compile-and-run-gambit-benchmark sort ./compile-and-run-gambit-benchmark sort2 ./compile-and-run-gambit-fixnum-benchmark dfa ./compile-and-run-gambit-fixnum-benchmark dfa2 ./compile-and-run-gambit-fixnum-benchmark graphs ./compile-and-run-gambit-fixnum-benchmark lattice stalin-0.11/benchmarks/compile-and-run-old-benchmarks0000700017435200151030000000053107244426225021321 0ustar qobiqobi#!/bin/sh ./make-clean ./compile-stalin-old-benchmarks ./compile-s2c-old-benchmarks ./compile-gambit-old-benchmarks ./compile-bigloo-old-benchmarks ./compile-chicken-old-benchmarks ./run-stalin-old-benchmarks ./run-s2c-old-benchmarks ./run-gambit-old-benchmarks ./run-bigloo-old-benchmarks ./run-chez-old-benchmarks ./run-chicken-old-benchmarks stalin-0.11/benchmarks/compile-and-run-s2c-benchmark0000700017435200151030000000050206735262713021051 0ustar qobiqobi#!/bin/sh unset noclobber unset SCMAXHEAP unset SCHEAP ulimit -s unlimited ulimit -c 0 echo compile $1 sed -f s2c.sed $1.sc >$1-s2c.sc time scc -O3 -fomit-frame-pointer -freg-struct-return\ -Ob -Og -Ot $2 -o $1-s2c $1-s2c.sc SCMAXHEAP=350 export SCMAXHEAP SCHEAP=16 export SCHEAP echo run $1 time ./$1-s2c >/dev/null stalin-0.11/benchmarks/compile-and-run-s2c-fdlcc-benchmarks0000700017435200151030000000152007063211706022275 0ustar qobiqobi#!/bin/sh ./compile-and-run-s2c-benchmark boyer -On ./compile-and-run-s2c-benchmark graphs -On ./compile-and-run-s2c-benchmark lattice -On ./compile-and-run-s2c-benchmark nucleic2 ./compile-and-run-s2c-benchmark matrix -On ./compile-and-run-s2c-benchmark earley -On ./compile-and-run-s2c-benchmark scheme -On ./compile-and-run-s2c-benchmark conform -On ./compile-and-run-s2c-benchmark nboyer -On ./compile-and-run-s2c-benchmark sboyer -On ./compile-and-run-s2c-benchmark dynamic -On ./compile-and-run-s2c-benchmark fannkuch -On ./compile-and-run-s2c-benchmark simplex ./compile-and-run-s2c-benchmark em-functional ./compile-and-run-s2c-benchmark em-imperative ./compile-and-run-s2c-benchmark nfm ./compile-and-run-s2c-benchmark integ ./compile-and-run-s2c-benchmark gold ./compile-and-run-s2c-benchmark sort ./compile-and-run-s2c-benchmark rrr -On stalin-0.11/benchmarks/compile-and-run-s2c-old-benchmarks0000700017435200151030000000316406707150457022017 0ustar qobiqobi#!/bin/sh ./compile-and-run-s2c-benchmark boyer -On ./compile-and-run-s2c-benchmark browse -On ./compile-and-run-s2c-benchmark cpstak -On #./compile-and-run-s2c-benchmark ctak -On ./compile-and-run-s2c-benchmark dderiv -On ./compile-and-run-s2c-benchmark deriv -On ./compile-and-run-s2c-benchmark destruct -On ./compile-and-run-s2c-benchmark div-iter -On ./compile-and-run-s2c-benchmark div-rec -On ./compile-and-run-s2c-benchmark fft ./compile-and-run-s2c-benchmark fprint -On ./compile-and-run-s2c-benchmark fread -On #./compile-and-run-s2c-benchmark puzzle -On ./compile-and-run-s2c-benchmark tak -On ./compile-and-run-s2c-benchmark takl -On ./compile-and-run-s2c-benchmark takr -On ./compile-and-run-s2c-benchmark tprint -On ./compile-and-run-s2c-benchmark traverse -On ./compile-and-run-s2c-benchmark traverse-init -On ./compile-and-run-s2c-benchmark fannkuch -On ./compile-and-run-s2c-benchmark simplex ./compile-and-run-s2c-benchmark em-functional ./compile-and-run-s2c-benchmark em-functional-partial-split ./compile-and-run-s2c-benchmark em-functional-split ./compile-and-run-s2c-benchmark em-functional-do-split ./compile-and-run-s2c-benchmark em-imperative ./compile-and-run-s2c-benchmark em-imperative-split ./compile-and-run-s2c-benchmark nfm ./compile-and-run-s2c-benchmark integ #./compile-and-run-s2c-benchmark integ2 ./compile-and-run-s2c-benchmark gold ./compile-and-run-s2c-benchmark gold2 ./compile-and-run-s2c-benchmark sort ./compile-and-run-s2c-benchmark sort2 ./compile-and-run-s2c-benchmark dfa -On ./compile-and-run-s2c-benchmark dfa2 -On ./compile-and-run-s2c-benchmark graphs -On ./compile-and-run-s2c-benchmark lattice -On stalin-0.11/benchmarks/compile-and-run-stalin-bcl-benchmarks0000700017435200151030000000041307063213111022555 0ustar qobiqobi#!/bin/sh echo baseline ./compile-stalin-baseline-benchmarks ./run-stalin-fdlcc-benchmarks echo conventional ./compile-stalin-conventional-benchmarks ./run-stalin-fdlcc-benchmarks echo lightweight ./compile-stalin-lightweight-benchmarks ./run-stalin-fdlcc-benchmarks stalin-0.11/benchmarks/compile-and-run-stalin-benchmark0000700017435200151030000000161610464670313021654 0ustar qobiqobi#!/bin/sh unset noclobber ulimit -s unlimited ulimit -c 0 case `uname -m` in i[3456]86) s="-d0 -d1 -d5 -d6 -Ob -Om -On -Or -Ot -k -architecture IA32" c="-copt -O3 -copt -fomit-frame-pointer -copt -Wall -copt -freg-struct-return";; sun4*) s="-d0 -d1 -d5 -d6 -Ob -Om -On -Or -Ot -k -architecture SPARC" c="-copt -O3 -copt -fomit-frame-pointer -copt -Wall -copt -freg-struct-return";; IP*) s="-d0 -d1 -d5 -d6 -Ob -Om -On -Or -Ot -k -architecture MIPS" c="-copt -O3 -copt -fomit-frame-pointer -copt -Wall -copt -freg-struct-return";; alpha) s="-d0 -d1 -d5 -d6 -Ob -Om -On -Or -Ot -k -architecture Alpha" c="-copt -O3 -copt -fomit-frame-pointer -copt -Wall -copt -ieee";; *) echo "Cannot (yet) run Stalin on this architecture" esac o="$s $c" echo compile $1 sed -f stalin.sed $1.sc >$1-stalin.sc time ../stalin $o $2 $1-stalin echo run $1 time ./$1-stalin >/dev/null stalin-0.11/benchmarks/compile-and-run-stalin-fdlcc-benchmarks0000700017435200151030000000212007063211706023075 0ustar qobiqobi#!/bin/sh ./compile-and-run-stalin-benchmark boyer ./compile-and-run-stalin-benchmark graphs ./compile-and-run-stalin-benchmark lattice ./compile-and-run-stalin-benchmark nucleic2 -d ./compile-and-run-stalin-benchmark matrix ./compile-and-run-stalin-benchmark earley ./compile-and-run-stalin-benchmark scheme\ "-clone-size-limit 0 -do-not-index-allocated-structure-types-by-expression -do-not-index-constant-structure-types-by-expression -treat-all-symbols-as-external" ./compile-and-run-stalin-benchmark conform ./compile-and-run-stalin-benchmark nboyer ./compile-and-run-stalin-benchmark sboyer ./compile-and-run-stalin-benchmark dynamic\ -do-not-index-allocated-structure-types-by-expression ./compile-and-run-stalin-benchmark fannkuch ./compile-and-run-stalin-benchmark simplex -d ./compile-and-run-stalin-benchmark em-functional -d ./compile-and-run-stalin-benchmark em-imperative -d ./compile-and-run-stalin-benchmark nfm -d ./compile-and-run-stalin-benchmark integ -d ./compile-and-run-stalin-benchmark gold -d ./compile-and-run-stalin-benchmark sort -d ./compile-and-run-stalin-benchmark rrr stalin-0.11/benchmarks/compile-and-run-stalin-old-benchmarks0000700017435200151030000000326407063213325022611 0ustar qobiqobi#!/bin/sh ./compile-and-run-stalin-benchmark boyer ./compile-and-run-stalin-benchmark browse ./compile-and-run-stalin-benchmark cpstak ./compile-and-run-stalin-benchmark ctak ./compile-and-run-stalin-benchmark dderiv ./compile-and-run-stalin-benchmark deriv ./compile-and-run-stalin-benchmark destruct ./compile-and-run-stalin-benchmark div-iter ./compile-and-run-stalin-benchmark div-rec ./compile-and-run-stalin-benchmark fft -d ./compile-and-run-stalin-benchmark fprint ./compile-and-run-stalin-benchmark fread ./compile-and-run-stalin-benchmark puzzle ./compile-and-run-stalin-benchmark tak ./compile-and-run-stalin-benchmark takl ./compile-and-run-stalin-benchmark takr ./compile-and-run-stalin-benchmark tprint ./compile-and-run-stalin-benchmark traverse ./compile-and-run-stalin-benchmark traverse-init ./compile-and-run-stalin-benchmark fannkuch ./compile-and-run-stalin-benchmark simplex -d ./compile-and-run-stalin-benchmark em-functional -d ./compile-and-run-stalin-benchmark em-functional-partial-split -d ./compile-and-run-stalin-benchmark em-functional-split -d ./compile-and-run-stalin-benchmark em-functional-do-split -d ./compile-and-run-stalin-benchmark em-imperative -d ./compile-and-run-stalin-benchmark em-imperative-split -d ./compile-and-run-stalin-benchmark nfm -d ./compile-and-run-stalin-benchmark integ -d ./compile-and-run-stalin-benchmark integ2 -d ./compile-and-run-stalin-benchmark gold -d ./compile-and-run-stalin-benchmark gold2 -d ./compile-and-run-stalin-benchmark sort -d ./compile-and-run-stalin-benchmark sort2 -d ./compile-and-run-stalin-benchmark dfa ./compile-and-run-stalin-benchmark dfa2 ./compile-and-run-stalin-benchmark graphs ./compile-and-run-stalin-benchmark lattice stalin-0.11/benchmarks/compile-bigloo-benchmark0000700017435200151030000000042107063210077020262 0ustar qobiqobi#!/bin/sh unset noclobber ulimit -s unlimited ulimit -c 0 echo compile $1 sed -f bigloo.sed $1.sc >$1-bigloo.scm time bigloo2.0e -call/cc -unsafe -Obench -O6 -fstack $2\ -copt "-O3 -fomit-frame-pointer -freg-struct-return"\ -o $1-bigloo -suffix scm $1-bigloo.scm stalin-0.11/benchmarks/compile-bigloo-fdlcc-benchmarks0000700017435200151030000000153007063211707021521 0ustar qobiqobi#!/bin/sh ./compile-bigloo-benchmark boyer -farithmetic ./compile-bigloo-benchmark graphs -farithmetic ./compile-bigloo-benchmark lattice -farithmetic ./compile-bigloo-benchmark nucleic2 ./compile-bigloo-benchmark matrix -farithmetic ./compile-bigloo-benchmark earley -farithmetic ./compile-bigloo-benchmark scheme -farithmetic ./compile-bigloo-benchmark conform -farithmetic ./compile-bigloo-benchmark nboyer -farithmetic ./compile-bigloo-benchmark sboyer -farithmetic ./compile-bigloo-benchmark dynamic -farithmetic ./compile-bigloo-benchmark fannkuch -farithmetic ./compile-bigloo-benchmark simplex ./compile-bigloo-benchmark em-functional ./compile-bigloo-benchmark em-imperative ./compile-bigloo-benchmark nfm ./compile-bigloo-benchmark integ ./compile-bigloo-benchmark gold ./compile-bigloo-benchmark sort ./compile-bigloo-benchmark rrr -farithmetic stalin-0.11/benchmarks/compile-bigloo-old-benchmarks0000700017435200151030000000320206735255412021230 0ustar qobiqobi#!/bin/sh ./compile-bigloo-benchmark boyer -farithmetic ./compile-bigloo-benchmark browse -farithmetic ./compile-bigloo-benchmark cpstak -farithmetic ./compile-bigloo-benchmark ctak -farithmetic ./compile-bigloo-benchmark dderiv -farithmetic ./compile-bigloo-benchmark deriv -farithmetic ./compile-bigloo-benchmark destruct -farithmetic ./compile-bigloo-benchmark div-iter -farithmetic ./compile-bigloo-benchmark div-rec -farithmetic ./compile-bigloo-benchmark fft ./compile-bigloo-benchmark fprint -farithmetic ./compile-bigloo-benchmark fread -farithmetic ./compile-bigloo-benchmark puzzle -farithmetic ./compile-bigloo-benchmark tak -farithmetic ./compile-bigloo-benchmark takl -farithmetic ./compile-bigloo-benchmark takr -farithmetic ./compile-bigloo-benchmark tprint -farithmetic ./compile-bigloo-benchmark traverse -farithmetic ./compile-bigloo-benchmark traverse-init -farithmetic ./compile-bigloo-benchmark fannkuch -farithmetic ./compile-bigloo-benchmark simplex ./compile-bigloo-benchmark em-functional ./compile-bigloo-benchmark em-functional-partial-split ./compile-bigloo-benchmark em-functional-split ./compile-bigloo-benchmark em-functional-do-split ./compile-bigloo-benchmark em-imperative ./compile-bigloo-benchmark em-imperative-split ./compile-bigloo-benchmark nfm ./compile-bigloo-benchmark integ ./compile-bigloo-benchmark integ2 ./compile-bigloo-benchmark gold ./compile-bigloo-benchmark gold2 ./compile-bigloo-benchmark sort ./compile-bigloo-benchmark sort2 ./compile-bigloo-benchmark dfa -farithmetic ./compile-bigloo-benchmark dfa2 -farithmetic ./compile-bigloo-benchmark graphs -farithmetic ./compile-bigloo-benchmark lattice -farithmetic stalin-0.11/benchmarks/compile-chicken-benchmark0000700017435200151030000000040507244411215020413 0ustar qobiqobi#!/bin/sh unset noclobber ulimit -s unlimited ulimit -c 0 echo compile $1 sed -f chicken.sed $1.sc >$1-chicken.scm time chicken $1-chicken.scm -optimize-level 4 -block -output-file $1-chicken.c time gcc $1-chicken.c `chicken-config -cflags -libs` -o $1-chicken stalin-0.11/benchmarks/compile-chicken-fdlcc-benchmarks0000700017435200151030000000144407244414523021660 0ustar qobiqobi#!/bin/sh ./compile-chicken-fixnum-benchmark boyer ./compile-chicken-fixnum-benchmark graphs ./compile-chicken-fixnum-benchmark lattice ./compile-chicken-benchmark nucleic2 ./compile-chicken-fixnum-benchmark matrix ./compile-chicken-fixnum-benchmark earley ./compile-chicken-fixnum-benchmark scheme ./compile-chicken-fixnum-benchmark conform ./compile-chicken-fixnum-benchmark nboyer ./compile-chicken-fixnum-benchmark sboyer ./compile-chicken-fixnum-benchmark dynamic ./compile-chicken-fixnum-benchmark fannkuch ./compile-chicken-benchmark simplex ./compile-chicken-benchmark em-functional ./compile-chicken-benchmark em-imperative ./compile-chicken-benchmark nfm ./compile-chicken-benchmark integ ./compile-chicken-benchmark gold ./compile-chicken-benchmark sort ./compile-chicken-fixnum-benchmark rrr stalin-0.11/benchmarks/compile-chicken-fixnum-benchmark0000700017435200151030000000041407244414277021732 0ustar qobiqobi#!/bin/sh unset noclobber ulimit -s unlimited ulimit -c 0 echo compile $1 sed -f chicken-fixnum.sed $1.sc >$1-chicken.scm time chicken $1-chicken.scm -optimize-level 4 -block -output-file $1-chicken.c time gcc $1-chicken.c `chicken-config -cflags -libs` -o $1-chicken stalin-0.11/benchmarks/compile-chicken-old-benchmarks0000700017435200151030000000303607244414540021361 0ustar qobiqobi#!/bin/sh ./compile-chicken-fixnum-benchmark boyer ./compile-chicken-fixnum-benchmark browse ./compile-chicken-fixnum-benchmark cpstak ./compile-chicken-fixnum-benchmark ctak ./compile-chicken-fixnum-benchmark dderiv ./compile-chicken-fixnum-benchmark deriv ./compile-chicken-fixnum-benchmark destruct ./compile-chicken-fixnum-benchmark div-iter ./compile-chicken-fixnum-benchmark div-rec ./compile-chicken-benchmark fft ./compile-chicken-fixnum-benchmark fprint ./compile-chicken-fixnum-benchmark fread ./compile-chicken-fixnum-benchmark puzzle ./compile-chicken-fixnum-benchmark tak ./compile-chicken-fixnum-benchmark takl ./compile-chicken-fixnum-benchmark takr ./compile-chicken-fixnum-benchmark tprint ./compile-chicken-fixnum-benchmark traverse ./compile-chicken-fixnum-benchmark traverse-init ./compile-chicken-fixnum-benchmark fannkuch ./compile-chicken-benchmark simplex ./compile-chicken-benchmark em-functional ./compile-chicken-benchmark em-functional-partial-split ./compile-chicken-benchmark em-functional-split ./compile-chicken-benchmark em-functional-do-split ./compile-chicken-benchmark em-imperative ./compile-chicken-benchmark em-imperative-split ./compile-chicken-benchmark nfm ./compile-chicken-benchmark integ ./compile-chicken-benchmark integ2 ./compile-chicken-benchmark gold ./compile-chicken-benchmark gold2 ./compile-chicken-benchmark sort ./compile-chicken-benchmark sort2 ./compile-chicken-fixnum-benchmark dfa ./compile-chicken-fixnum-benchmark dfa2 ./compile-chicken-fixnum-benchmark graphs ./compile-chicken-fixnum-benchmark lattice stalin-0.11/benchmarks/compile-fdlcc-benchmarks0000700017435200151030000000026207244426060020252 0ustar qobiqobi#!/bin/sh ./compile-stalin-fdlcc-benchmarks ./compile-s2c-fdlcc-benchmarks ./compile-gambit-fdlcc-benchmarks ./compile-bigloo-fdlcc-benchmarks ./compile-chicken-fdlcc-benchmarks stalin-0.11/benchmarks/compile-gambit-benchmark0000700017435200151030000000037706734270360020271 0ustar qobiqobi#!/bin/sh unset noclobber ulimit -s unlimited ulimit -c 0 echo compile $1 sed -f gambit.sed $1.sc >$1-gambit.scm time gsc $1-gambit time gcc -O3 -fomit-frame-pointer -freg-struct-return\ -D___SINGLE_HOST -o $1-gambit $1-gambit.c $1-gambit_.c -lgambc stalin-0.11/benchmarks/compile-gambit-fdlcc-benchmarks0000700017435200151030000000142007063211710021501 0ustar qobiqobi#!/bin/sh ./compile-gambit-fixnum-benchmark boyer ./compile-gambit-fixnum-benchmark graphs ./compile-gambit-fixnum-benchmark lattice ./compile-gambit-benchmark nucleic2 ./compile-gambit-fixnum-benchmark matrix ./compile-gambit-fixnum-benchmark earley ./compile-gambit-fixnum-benchmark scheme ./compile-gambit-fixnum-benchmark conform ./compile-gambit-fixnum-benchmark nboyer ./compile-gambit-fixnum-benchmark sboyer ./compile-gambit-fixnum-benchmark dynamic ./compile-gambit-fixnum-benchmark fannkuch ./compile-gambit-benchmark simplex ./compile-gambit-benchmark em-functional ./compile-gambit-benchmark em-imperative ./compile-gambit-benchmark nfm ./compile-gambit-benchmark integ ./compile-gambit-benchmark gold ./compile-gambit-benchmark sort ./compile-gambit-fixnum-benchmark rrr stalin-0.11/benchmarks/compile-gambit-fixnum-benchmark0000700017435200151030000000040606734271106021565 0ustar qobiqobi#!/bin/sh unset noclobber ulimit -s unlimited ulimit -c 0 echo compile $1 sed -f gambit-fixnum.sed $1.sc >$1-gambit.scm time gsc $1-gambit time gcc -O3 -fomit-frame-pointer -freg-struct-return\ -D___SINGLE_HOST -o $1-gambit $1-gambit.c $1-gambit_.c -lgambc stalin-0.11/benchmarks/compile-gambit-old-benchmarks0000700017435200151030000000277006734271301021223 0ustar qobiqobi#!/bin/sh ./compile-gambit-fixnum-benchmark boyer ./compile-gambit-fixnum-benchmark browse ./compile-gambit-fixnum-benchmark cpstak ./compile-gambit-fixnum-benchmark ctak ./compile-gambit-fixnum-benchmark dderiv ./compile-gambit-fixnum-benchmark deriv ./compile-gambit-fixnum-benchmark destruct ./compile-gambit-fixnum-benchmark div-iter ./compile-gambit-fixnum-benchmark div-rec ./compile-gambit-benchmark fft ./compile-gambit-fixnum-benchmark fprint ./compile-gambit-fixnum-benchmark fread ./compile-gambit-fixnum-benchmark puzzle ./compile-gambit-fixnum-benchmark tak ./compile-gambit-fixnum-benchmark takl ./compile-gambit-fixnum-benchmark takr ./compile-gambit-fixnum-benchmark tprint ./compile-gambit-fixnum-benchmark traverse ./compile-gambit-fixnum-benchmark traverse-init ./compile-gambit-fixnum-benchmark fannkuch ./compile-gambit-benchmark simplex ./compile-gambit-benchmark em-functional ./compile-gambit-benchmark em-functional-partial-split ./compile-gambit-benchmark em-functional-split ./compile-gambit-benchmark em-functional-do-split ./compile-gambit-benchmark em-imperative ./compile-gambit-benchmark em-imperative-split ./compile-gambit-benchmark nfm ./compile-gambit-benchmark integ ./compile-gambit-benchmark integ2 ./compile-gambit-benchmark gold ./compile-gambit-benchmark gold2 ./compile-gambit-benchmark sort ./compile-gambit-benchmark sort2 ./compile-gambit-fixnum-benchmark dfa ./compile-gambit-fixnum-benchmark dfa2 ./compile-gambit-fixnum-benchmark graphs ./compile-gambit-fixnum-benchmark lattice stalin-0.11/benchmarks/compile-old-benchmarks0000700017435200151030000000025007244426103017750 0ustar qobiqobi#!/bin/sh ./compile-stalin-old-benchmarks ./compile-s2c-old-benchmarks ./compile-gambit-old-benchmarks ./compile-bigloo-old-benchmarks ./compile-chicken-old-benchmarks stalin-0.11/benchmarks/compile-s2c-benchmark0000700017435200151030000000034606735262631017514 0ustar qobiqobi#!/bin/sh unset noclobber unset SCMAXHEAP unset SCHEAP ulimit -s unlimited ulimit -c 0 echo compile $1 sed -f s2c.sed $1.sc >$1-s2c.sc time scc -O3 -fomit-frame-pointer -freg-struct-return\ -Ob -Og -Ot $2 -o $1-s2c $1-s2c.sc stalin-0.11/benchmarks/compile-s2c-fdlcc-benchmarks0000700017435200151030000000126007063211710020727 0ustar qobiqobi#!/bin/sh ./compile-s2c-benchmark boyer -On ./compile-s2c-benchmark graphs -On ./compile-s2c-benchmark lattice -On ./compile-s2c-benchmark nucleic2 ./compile-s2c-benchmark matrix -On ./compile-s2c-benchmark earley -On ./compile-s2c-benchmark scheme -On ./compile-s2c-benchmark conform -On ./compile-s2c-benchmark nboyer -On ./compile-s2c-benchmark sboyer -On ./compile-s2c-benchmark dynamic -On ./compile-s2c-benchmark fannkuch -On ./compile-s2c-benchmark simplex ./compile-s2c-benchmark em-functional ./compile-s2c-benchmark em-imperative ./compile-s2c-benchmark nfm ./compile-s2c-benchmark integ ./compile-s2c-benchmark gold ./compile-s2c-benchmark sort ./compile-s2c-benchmark rrr -On stalin-0.11/benchmarks/compile-s2c-old-benchmarks0000700017435200151030000000250106707150607020444 0ustar qobiqobi#!/bin/sh ./compile-s2c-benchmark boyer -On ./compile-s2c-benchmark browse -On ./compile-s2c-benchmark cpstak -On ./compile-s2c-benchmark ctak -On ./compile-s2c-benchmark dderiv -On ./compile-s2c-benchmark deriv -On ./compile-s2c-benchmark destruct -On ./compile-s2c-benchmark div-iter -On ./compile-s2c-benchmark div-rec -On ./compile-s2c-benchmark fft ./compile-s2c-benchmark fprint -On ./compile-s2c-benchmark fread -On ./compile-s2c-benchmark puzzle -On ./compile-s2c-benchmark tak -On ./compile-s2c-benchmark takl -On ./compile-s2c-benchmark takr -On ./compile-s2c-benchmark tprint -On ./compile-s2c-benchmark traverse -On ./compile-s2c-benchmark traverse-init -On ./compile-s2c-benchmark fannkuch -On ./compile-s2c-benchmark simplex ./compile-s2c-benchmark em-functional ./compile-s2c-benchmark em-functional-partial-split ./compile-s2c-benchmark em-functional-split ./compile-s2c-benchmark em-functional-do-split ./compile-s2c-benchmark em-imperative ./compile-s2c-benchmark em-imperative-split ./compile-s2c-benchmark nfm ./compile-s2c-benchmark integ ./compile-s2c-benchmark integ2 ./compile-s2c-benchmark gold ./compile-s2c-benchmark gold2 ./compile-s2c-benchmark sort ./compile-s2c-benchmark sort2 ./compile-s2c-benchmark dfa -On ./compile-s2c-benchmark dfa2 -On ./compile-s2c-benchmark graphs -On ./compile-s2c-benchmark lattice -On stalin-0.11/benchmarks/compile-stalin-baseline-benchmarks0000700017435200151030000000350407063211710022244 0ustar qobiqobi#!/bin/sh ./compile-stalin-benchmark boyer\ "-baseline -closure-conversion-statistics" ./compile-stalin-benchmark graphs\ "-baseline -closure-conversion-statistics" ./compile-stalin-benchmark lattice\ "-baseline -closure-conversion-statistics" ./compile-stalin-benchmark nucleic2\ "-baseline -closure-conversion-statistics -d" ./compile-stalin-benchmark matrix\ "-baseline -closure-conversion-statistics -dc" ./compile-stalin-benchmark earley\ "-baseline -closure-conversion-statistics" ./compile-stalin-benchmark scheme\ "-clone-size-limit 0 -do-not-index-allocated-structure-types-by-expression -do-not-index-constant-structure-types-by-expression -treat-all-symbols-as-external -baseline -closure-conversion-statistics" ./compile-stalin-benchmark conform\ "-baseline -closure-conversion-statistics" ./compile-stalin-benchmark nboyer\ "-baseline -closure-conversion-statistics" ./compile-stalin-benchmark sboyer\ "-baseline -closure-conversion-statistics" ./compile-stalin-benchmark dynamic\ "-do-not-index-allocated-structure-types-by-expression -baseline -closure-conversion-statistics" ./compile-stalin-benchmark fannkuch\ "-baseline -closure-conversion-statistics" ./compile-stalin-benchmark simplex\ "-baseline -closure-conversion-statistics -d" ./compile-stalin-benchmark em-functional\ "-baseline -closure-conversion-statistics -d" ./compile-stalin-benchmark em-imperative\ "-baseline -closure-conversion-statistics -d" ./compile-stalin-benchmark nfm\ "-baseline -closure-conversion-statistics -d" ./compile-stalin-benchmark integ\ "-baseline -closure-conversion-statistics -d" ./compile-stalin-benchmark gold\ "-baseline -closure-conversion-statistics -d" ./compile-stalin-benchmark sort\ "-baseline -closure-conversion-statistics -d" ./compile-stalin-benchmark rrr\ "-baseline -closure-conversion-statistics" stalin-0.11/benchmarks/compile-stalin-benchmark0000700017435200151030000000144610464670215020314 0ustar qobiqobi#!/bin/sh unset noclobber ulimit -s unlimited ulimit -c 0 case `uname -m` in i[3456]86) s="-Ob -Om -On -Or -Ot -k -architecture IA32" c="-copt -O3 -copt -fomit-frame-pointer -copt -Wall -copt -freg-struct-return";; sun4*) s="-Ob -Om -On -Or -Ot -k -architecture SPARC" c="-copt -O3 -copt -fomit-frame-pointer -copt -Wall -copt -freg-struct-return";; IP*) s="-Ob -Om -On -Or -Ot -k -architecture Mips" c="-copt -O3 -copt -fomit-frame-pointer -copt -Wall -copt -freg-struct-return";; alpha) s="-Ob -Om -On -Or -Ot -k -architecture Alpha" c="-copt -O3 -copt -fomit-frame-pointer -copt -Wall -copt -ieee";; *) echo "Cannot (yet) run Stalin on this architecture" esac o="$s $c" echo compile $1 sed -f stalin.sed $1.sc >$1-stalin.sc time ../stalin $o $2 $1-stalin stalin-0.11/benchmarks/compile-stalin-conventional-benchmarks0000700017435200151030000000362407063211711023165 0ustar qobiqobi#!/bin/sh ./compile-stalin-benchmark boyer\ "-conventional -closure-conversion-statistics" ./compile-stalin-benchmark graphs\ "-conventional -closure-conversion-statistics" ./compile-stalin-benchmark lattice\ "-conventional -closure-conversion-statistics" ./compile-stalin-benchmark nucleic2\ "-conventional -closure-conversion-statistics -d" ./compile-stalin-benchmark matrix\ "-conventional -closure-conversion-statistics -dc" ./compile-stalin-benchmark earley\ "-conventional -closure-conversion-statistics" ./compile-stalin-benchmark scheme\ "-clone-size-limit 0 -do-not-index-allocated-structure-types-by-expression -do-not-index-constant-structure-types-by-expression -treat-all-symbols-as-external -conventional -closure-conversion-statistics" ./compile-stalin-benchmark conform\ "-conventional -closure-conversion-statistics" ./compile-stalin-benchmark nboyer\ "-conventional -closure-conversion-statistics" ./compile-stalin-benchmark sboyer\ "-conventional -closure-conversion-statistics" ./compile-stalin-benchmark dynamic\ "-do-not-index-allocated-structure-types-by-expression -conventional -closure-conversion-statistics" ./compile-stalin-benchmark fannkuch\ "-conventional -closure-conversion-statistics" ./compile-stalin-benchmark simplex\ "-conventional -closure-conversion-statistics -d" ./compile-stalin-benchmark em-functional\ "-conventional -closure-conversion-statistics -d" ./compile-stalin-benchmark em-imperative\ "-conventional -closure-conversion-statistics -d" ./compile-stalin-benchmark nfm\ "-conventional -closure-conversion-statistics -d" ./compile-stalin-benchmark integ\ "-conventional -closure-conversion-statistics -d" ./compile-stalin-benchmark gold\ "-conventional -closure-conversion-statistics -d" ./compile-stalin-benchmark sort\ "-conventional -closure-conversion-statistics -d" ./compile-stalin-benchmark rrr\ "-conventional -closure-conversion-statistics" stalin-0.11/benchmarks/compile-stalin-fdlcc-benchmarks0000700017435200151030000000166007063211711021537 0ustar qobiqobi#!/bin/sh ./compile-stalin-benchmark boyer ./compile-stalin-benchmark graphs ./compile-stalin-benchmark lattice ./compile-stalin-benchmark nucleic2 -d ./compile-stalin-benchmark matrix ./compile-stalin-benchmark earley ./compile-stalin-benchmark scheme\ "-clone-size-limit 0 -do-not-index-allocated-structure-types-by-expression -do-not-index-constant-structure-types-by-expression -treat-all-symbols-as-external" ./compile-stalin-benchmark conform ./compile-stalin-benchmark nboyer ./compile-stalin-benchmark sboyer ./compile-stalin-benchmark dynamic\ -do-not-index-allocated-structure-types-by-expression ./compile-stalin-benchmark fannkuch ./compile-stalin-benchmark simplex -d ./compile-stalin-benchmark em-functional -d ./compile-stalin-benchmark em-imperative -d ./compile-stalin-benchmark nfm -d ./compile-stalin-benchmark integ -d ./compile-stalin-benchmark gold -d ./compile-stalin-benchmark sort -d ./compile-stalin-benchmark rrr stalin-0.11/benchmarks/compile-stalin-lightweight-benchmarks0000700017435200151030000000357407063211711023011 0ustar qobiqobi#!/bin/sh ./compile-stalin-benchmark boyer\ "-lightweight -closure-conversion-statistics" ./compile-stalin-benchmark graphs\ "-lightweight -closure-conversion-statistics" ./compile-stalin-benchmark lattice\ "-lightweight -closure-conversion-statistics" ./compile-stalin-benchmark nucleic2\ "-lightweight -closure-conversion-statistics -d" ./compile-stalin-benchmark matrix\ "-lightweight -closure-conversion-statistics" ./compile-stalin-benchmark earley\ "-lightweight -closure-conversion-statistics" ./compile-stalin-benchmark scheme\ "-clone-size-limit 0 -do-not-index-allocated-structure-types-by-expression -do-not-index-constant-structure-types-by-expression -treat-all-symbols-as-external -lightweight -closure-conversion-statistics" ./compile-stalin-benchmark conform\ "-lightweight -closure-conversion-statistics" ./compile-stalin-benchmark nboyer\ "-lightweight -closure-conversion-statistics" ./compile-stalin-benchmark sboyer\ "-lightweight -closure-conversion-statistics" ./compile-stalin-benchmark dynamic\ "-do-not-index-allocated-structure-types-by-expression -lightweight -closure-conversion-statistics" ./compile-stalin-benchmark fannkuch\ "-lightweight -closure-conversion-statistics" ./compile-stalin-benchmark simplex\ "-lightweight -closure-conversion-statistics -d" ./compile-stalin-benchmark em-functional\ "-lightweight -closure-conversion-statistics -d" ./compile-stalin-benchmark em-imperative\ "-lightweight -closure-conversion-statistics -d" ./compile-stalin-benchmark nfm\ "-lightweight -closure-conversion-statistics -d" ./compile-stalin-benchmark integ\ "-lightweight -closure-conversion-statistics -d" ./compile-stalin-benchmark gold\ "-lightweight -closure-conversion-statistics -d" ./compile-stalin-benchmark sort\ "-lightweight -closure-conversion-statistics -d" ./compile-stalin-benchmark rrr\ "-lightweight -closure-conversion-statistics" stalin-0.11/benchmarks/compile-stalin-old-benchmarks0000700017435200151030000000252706707150623021255 0ustar qobiqobi#!/bin/sh ./compile-stalin-benchmark boyer ./compile-stalin-benchmark browse ./compile-stalin-benchmark cpstak ./compile-stalin-benchmark ctak ./compile-stalin-benchmark dderiv ./compile-stalin-benchmark deriv ./compile-stalin-benchmark destruct ./compile-stalin-benchmark div-iter ./compile-stalin-benchmark div-rec ./compile-stalin-benchmark fft ./compile-stalin-benchmark fprint ./compile-stalin-benchmark fread ./compile-stalin-benchmark puzzle ./compile-stalin-benchmark tak ./compile-stalin-benchmark takl ./compile-stalin-benchmark takr ./compile-stalin-benchmark tprint ./compile-stalin-benchmark traverse ./compile-stalin-benchmark traverse-init ./compile-stalin-benchmark fannkuch ./compile-stalin-benchmark simplex ./compile-stalin-benchmark em-functional ./compile-stalin-benchmark em-functional-partial-split ./compile-stalin-benchmark em-functional-split ./compile-stalin-benchmark em-functional-do-split ./compile-stalin-benchmark em-imperative ./compile-stalin-benchmark em-imperative-split ./compile-stalin-benchmark nfm ./compile-stalin-benchmark integ ./compile-stalin-benchmark integ2 ./compile-stalin-benchmark gold ./compile-stalin-benchmark gold2 ./compile-stalin-benchmark sort ./compile-stalin-benchmark sort2 ./compile-stalin-benchmark dfa ./compile-stalin-benchmark dfa2 ./compile-stalin-benchmark graphs ./compile-stalin-benchmark lattice stalin-0.11/benchmarks/dderiv.sc0000600017435200151030000000666106671513667015344 0ustar qobiqobi;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: dderiv.sc ;;; Description: DDERIV benchmark from the Gabriel tests ;;; Author: Vaughan Pratt ;;; Created: 8-Apr-85 ;;; Modified: 10-Apr-85 14:53:29 (Bob Shaw) ;;; 23-Jul-87 (Will Clinger) ;;; 9-Feb-88 (Will Clinger) ;;; 21-Mar-94 (Qobi) ;;; 31-Mar-98 (Qobi) ;;; Language: Scheme (but see note below) ;;; Status: Public Domain ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Note: This benchmark uses property lists. The procedures that must ;;; be supplied are get and put, where (put x y z) is equivalent to Common ;;; Lisp's (setf (get x y) z). ;;; DDERIV -- Symbolic derivative benchmark written by Vaughan Pratt. ;;; This benchmark is a variant of the simple symbolic derivative program ;;; (DERIV). The main change is that it is `table-driven.' Instead of using a ;;; large COND that branches on the CAR of the expression, this program finds ;;; the code that will take the derivative on the property list of the atom in ;;; the CAR position. So, when the expression is (+ . ), the code ;;; stored under the atom '+ with indicator DERIV will take and ;;; return the derivative for '+. The way that MacLisp does this is with the ;;; special form: (DEFUN (FOO BAR) ...). This is exactly like DEFUN with an ;;; atomic name in that it expects an argument list and the compiler compiles ;;; code, but the name of the function with that code is stored on the ;;; property list of FOO under the indicator BAR, in this case. You may have ;;; to do something like: ;;; :property keyword is not Common Lisp. ;;; Returns the wrong answer for quotients. ;;; Fortunately these aren't used in the benchmark. ;;; A simple implementation of PUT/GET, Qobi (define *property-lists* '()) (define (get x y) (let ((w (assq x *property-lists*))) (and w (let ((v (assq y (cdr w)))) (and v (cdr v)))))) (define (put x y z) (let ((w (assq x *property-lists*))) (if (not w) (begin (set! w (cons x '())) (set! *property-lists* (cons w *property-lists*)))) (let ((v (assq y (cdr w)))) (if v (set-cdr! v z) (set-cdr! w (cons (cons y z) (cdr w))))))) (define (dderiv-aux a) (list '/ (dderiv a) a)) (define (+dderiv a) (cons '+ (map dderiv a))) (put '+ 'dderiv +dderiv) ; install procedure on the property list (define (-dderiv a) (cons '- (map dderiv a))) (put '- 'dderiv -dderiv) ; install procedure on the property list (define (*dderiv a) (list '* (cons '* a) (cons '+ (map dderiv-aux a)))) (put '* 'dderiv *dderiv) ; install procedure on the property list (define (/dderiv a) (list '- (list '/ (dderiv (car a)) (cadr a)) (list '/ (car a) (list '* (cadr a) (cadr a) (dderiv (cadr a)))))) (put '/ 'dderiv /dderiv) ; install procedure on the property list (define (dderiv a) (cond ((not (pair? a)) (cond ((eq? a 'x) 1) (else 0))) (else (let ((dderiv (get (car a) 'dderiv))) (cond (dderiv (dderiv (cdr a))) (else 'error)))))) (define (run) (do ((i 0 (+ i 1))) ((= i 1000)) (dderiv '(+ (* 3 x x) (* a x x) (* b x) 5)) (dderiv '(+ (* 3 x x) (* a x x) (* b x) 5)) (dderiv '(+ (* 3 x x) (* a x x) (* b x) 5)) (dderiv '(+ (* 3 x x) (* a x x) (* b x) 5)) (dderiv '(+ (* 3 x x) (* a x x) (* b x) 5)))) ;;; note: The PUTs are not done multiple times. (do ((i 0 (+ i 1))) ((= i 1000)) (run)) stalin-0.11/benchmarks/deriv.sc0000600017435200151030000000311206671513667015164 0ustar qobiqobi;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: deriv.sc ;;; Description: The DERIV benchmark from the Gabriel tests. ;;; Author: Vaughan Pratt ;;; Created: 8-Apr-85 ;;; Modified: 10-Apr-85 14:53:50 (Bob Shaw) ;;; 23-Jul-87 (Will Clinger) ;;; 9-Feb-88 (Will Clinger) ;;; 21-Mar-94 (Qobi) ;;; 31-Mar-98 (Qobi) ;;; Language: Scheme ;;; Status: Public Domain ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; DERIV -- Symbolic derivative benchmark written by Vaughan Pratt. ;;; It uses a simple subset of Lisp and does a lot of CONSing. ;;; Returns the wrong answer for quotients. ;;; Fortunately these aren't used in the benchmark. (define (deriv-aux a) (list '/ (deriv a) a)) (define (deriv a) (cond ((not (pair? a)) (cond ((eq? a 'x) 1) (else 0))) ((eq? (car a) '+) (cons '+ (map deriv (cdr a)))) ((eq? (car a) '-) (cons '- (map deriv (cdr a)))) ((eq? (car a) '*) (list '* a (cons '+ (map deriv-aux (cdr a))))) ((eq? (car a) '/) (list '- (list '/ (deriv (cadr a)) (caddr a)) (list '/ (cadr a) (list '* (caddr a) (caddr a) (deriv (caddr a)))))) (else 'error))) (define (run) (do ((i 0 (+ i 1))) ((= i 1000)) (deriv '(+ (* 3 x x) (* a x x) (* b x) 5)) (deriv '(+ (* 3 x x) (* a x x) (* b x) 5)) (deriv '(+ (* 3 x x) (* a x x) (* b x) 5)) (deriv '(+ (* 3 x x) (* a x x) (* b x) 5)) (deriv '(+ (* 3 x x) (* a x x) (* b x) 5)))) (do ((i 0 (+ i 1))) ((= i 1000)) (run)) stalin-0.11/benchmarks/destruct.sc0000600017435200151030000000332606671513667015717 0ustar qobiqobi;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: destruct.sc ;;; Description: DESTRUCTIVE benchmark from Gabriel tests ;;; Author: Bob Shaw, HPLabs/ATC ;;; Created: 8-Apr-85 ;;; Modified: 10-Apr-85 14:54:12 (Bob Shaw) ;;; 23-Jul-87 (Will Clinger) ;;; 22-Jan-88 (Will Clinger) ;;; 11-Apr-94 (Qobi) ;;; 32-Mar-98 (Qobi) ;;; Language: Scheme ;;; Status: Public Domain ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; append! is no longer a standard Scheme procedure, so it must be defined ;;; for implementations that don't already have it. (define (append! x y) (if (null? x) y (do ((a x b) (b (cdr x) (cdr b))) ((null? b) (set-cdr! a y) x)))) ;;; DESTRU -- Destructive operation benchmark (define (destructive n m) (let ((l (do ((i 10 (- i 1)) (a '() (cons '() a))) ((= i 0) a)))) (do ((i n (- i 1))) ((= i 0)) (cond ((null? (car l)) (do ((l l (cdr l))) ((null? l)) (or (not (null? (car l))) (set-car! l (cons '() '()))) ;Qobi (append! (car l) (do ((j m (- j 1)) (a '() (cons '() a))) ((= j 0) a))))) (else (do ((l1 l (cdr l1)) (l2 (cdr l) (cdr l2))) ((null? l2)) (set-cdr! (do ((j (quotient (length (car l2)) 2) (- j 1)) (a (car l2) (cdr a))) ((zero? j) a) (set-car! a i)) (let ((n (quotient (length (car l1)) 2))) (cond ((= n 0) (set-car! l1 '()) (car l1)) (else (do ((j n (- j 1)) (a (car l1) (cdr a))) ((= j 1) (let ((x (cdr a))) (set-cdr! a '()) x)) (set-car! a i)))))))))))) (do ((i 0 (+ i 1))) ((= i 1000)) (destructive 600 50)) stalin-0.11/benchmarks/define-application-example.sc0000600017435200151030000000466607121221146021231 0ustar qobiqobi(include "QobiScheme") (define *line-segments* #f) (define *ellipses* #f) (define *object* #f) (define *flag?* #f) (define *mode* #f) (define *k* #f) (define-application main #f 480 5 2 6 (lambda () (set! *line-segments* '()) (set! *ellipses* '()) (set! *object* 'line-segment) (set! *flag?* #f) (set! *mode* 'a) (set! *k* 0) (define-button 0 0 "Help" #f help-command) (define-radio-buttons *object* (lambda () #f) (1 0 line-segment "Line") (2 0 ellipse "Ellipse")) (define-button 5 0 "Quit" #f quit) (define-toggle-button 0 1 "Flag" *flag?* (lambda () (say (format #f "Flag=~s" *flag?*)))) (define-cycle-button 1 1 *mode* (lambda () (say (format #f "Mode=~s" *mode*))) (a "A") (b "B") (c "C")) (define-integer-range-buttons 2 1 3 1 *k* 0 9 (lambda () (format #f "-K ~s" *k*)) (lambda () (format #f "+K ~s" *k*)) (lambda () (say (format #f "K=~s" *k*)))) (define-key (list (control #\x) (control #\c)) "Quit" quit) (define-key (control #\h) "Help" help-command)) (lambda () #f) (lambda () #f) (lambda () (for-each (lambda (l) (xdrawline *display* *display-pane* *thin-gc* (x (line-segment-p l)) (y (line-segment-p l)) (x (line-segment-q l)) (y (line-segment-q l)))) *line-segments*) (for-each (lambda (c) (xdrawarc *display* *display-pane* *thin-gc* (x (line-segment-p c)) (y (line-segment-p c)) (- (x (line-segment-q c)) (x (line-segment-p c))) (- (y (line-segment-q c)) (y (line-segment-p c))) 0 (* 360 64))) *ellipses*) (define-region 0 0 *display-pane-width* *display-pane-height* (lambda (x1 y1) (case *object* ((line-segment) (let* ((result (tracking-pointer #t (lambda (x2 y2) (xdrawline *display* *display-pane* *thin-flipping-gc* x1 y1 x2 y2)))) (x2 (first result)) (y2 (second result))) (set! *line-segments* (cons (make-line-segment (vector x1 y1) (vector x2 y2)) *line-segments*)) (redraw-display-pane))) ((ellipse) (let* ((result (tracking-pointer #t (lambda (x2 y2) (xdrawarc *display* *display-pane* *thin-flipping-gc* x1 y1 (- x2 x1) (- y2 y1) 0 (* 360 64))))) (x2 (first result)) (y2 (second result))) (set! *ellipses* (cons (make-line-segment (vector x1 y1) (vector x2 y2)) *ellipses*)) (redraw-display-pane))) (else (fuck-up))))))) (main '()) stalin-0.11/benchmarks/dfa.sc0000600017435200151030000005544206671513667014622 0ustar qobiqobi;;; from s48-util.scm (define call/cc call-with-current-continuation) (define (box x) (cons 'box x)) (define (unbox x) (cdr x)) (define (set-box! x y) (set-cdr! x y)) (define (append! l1 l2) (append l1 l2)) (define (add-one x) (+ x 1)) (define (reverse! l) (cond ((or (null? l) (null? (cdr l))) l) (else (let ((rest (cdr l))) (set-cdr! l '()) (let loop ((l1 l) (l2 rest)) (cond ((null? l2) l1) (else (let ((rest (cdr l2))) (set-cdr! l2 l1) (loop l2 rest))))))))) (define (pormat-function control-string . values) (let loop ((i 0) (values values)) (if (not (= i (string-length control-string))) (let ((c (string-ref control-string i))) (if (eqv? c #\~) (let ((c2 (string-ref control-string (+ 1 i)))) (cond ((eqv? c2 #\a) (display (car values)) (loop (+ 2 i) (cdr values))) ((eqv? c2 #\%) (newline) (loop (+ 2 i) values)) (else (display c) (loop (+ 1 i) values)))) (begin (display c) (loop (+ 1 i) values))))))) (define scream pormat-function) (define (sort pred l) (sort-list l pred)) (define (copy-vector from) (let* ((len (vector-length from)) (to (make-vector len 0))) (let loop ((i 0)) (if (< i len) (begin (vector-set! to i (vector-ref from i)) (loop (+ i 1))))) to)) (define (make-list len val) (let loop ((out '()) (i 0)) (if (< i len) (loop (cons val out) (+ i 1)) out))) ;;; Copyright (c) 1985 Yale University ;;; Authors: N Adams, R Kelsey, D Kranz, J Philbin, J Rees. ;;; This material was developed by the T Project at the Yale ;;; University Computer Science Department. Permission to copy this ;;; software, to redistribute it, and to use it for any purpose is ;;; granted, subject to the following restric-tions and ;;; understandings. ;;; 1. Any copy made of this software must include this copyright ;;; notice in full. ;;; 2. Users of this software agree to make their best efforts (a) to return ;;; to the T Project at Yale any improvements or extensions that they make, ;;; so that these may be included in future releases; and (b) to inform ;;; the T Project of noteworthy uses of this software. ;;; 3. All materials developed as a consequence of the use of this software ;;; shall duly acknowledge such use, in accordance with the usual standards ;;; of acknowledging credit in academic research. ;;; 4. Yale has made no warrantee or representation that the operation of ;;; this software will be error-free, and Yale is under no obligation to ;;; provide any services, by way of maintenance, update, or otherwise. ;;; 5. In conjunction with products arising from the use of this material, ;;; there shall be no use of the name of the Yale University nor of any ;;; adaptation thereof in any advertising, promotional, or sales literature ;;; without prior written consent from Yale in each case. ;;; ;;; We gratefully acknowledge Bob Nix ;;; SORT:ONLINE-MERGE-SORT! ;;; ======================= ;;; On-Line Merge sort, a fast and stable algorithm for sorting a list. ;;; This is a very neat algorithm! Consider the following code: ;;; ;;; (DEFINE (MERGE-SORT L) ;;; (IF (NULL? (CDR L)) ;;; L ;;; (MERGE (MERGE-SORT (FIRST-HALF-OF L)) ;;; (MERGE-SORT (SECOND-HALF-OF L))))) ;;; ;;; The nested calls to MERGE above form a binary tree, with MERGE's of ;;; singleton lists at the leaves, and a MERGE of two lists of size N/2 at ;;; the top. The algorithm below traverses this MERGE-tree in post-order, ;;; moving from the lower left hand corner to the right. ;;; ;;; This algorithm sorts N objects with about NlgN+2N comparisons and exactly ;;; lgN conses. The algorithm used is a version of mergesort that is ;;; amenable to Lisp's data accessing primitives. The first phase of the ;;; algorithm is an "addition" phase in which each element X is added to ;;; a list of lists of sorted runs B in much the same manner as a one is ;;; added to a binary number. If the first "digit" of B is 0, i.e. the first ;;; list in B is NIL, then the element to be added becomes the first digit ;;; of B. If that digit is non empty then you merge the digit with X and ;;; recurse on the rest of B -- setting the first digit of B to be zero. ;;; For example: ;;; ;;; Reversed LIST B ;;; Binary # Each sublist is sorted. ;;; ;;; 0000 () ;;; 1000 ((x)) ;;; 0100 (() (x x)) ;;; 1100 ((x) (x x)) ;;; 0010 (() () (x x x x)) ;;; 1010 ((x) () (x x x x)) ;;; 0110 (() (x x) (x x x x)) ;;; 1110 ((x) (x x) (x x x x)) ;;; 0001 (() () () (x x x x x x x x)) ;;; 1001 ((x) () () (x x x x x x x x)) ;;; ;;; The algorithm then merges the sublists of these lists into ;;; one list, and returns that list. ;;; ;;; To see the algorithm in action, trace LIST-MERGE!. ;;; ;;; Returns list L sorted using OBJ-< for comparisons. (define (sort-list l obj-<) (cond ((or (null? l) (null? (cdr l))) l) (else (online-merge-sort! (append l '()) ; copy-list obj-<)))) ;;; Returns list L sorted using OBJ-< for comparisons. ;;; L is destructively altered. (define (sort-list! l obj-<) (cond ((or (null? l) (null? (cdr l))) l) (else (online-merge-sort! l obj-<)))) ;;; The real sort procedure. Elements of L are added to B, a list of sorted ;;; lists as defined above. When all elements of L have been added to B ;;; the sublists of B are merged together to get the desired sorted list. (define (online-merge-sort! l obj-<) (let ((b (cons '() '()))) (let loop ((l l)) (cond ((null? l) (do ((c (cddr b) (cdr c)) (r (cadr b) (list-merge! (car c) r obj-<))) ((null? c) r))) (else (let ((new-l (cdr l))) (set-cdr! l '()) (add-to-sorted-lists l b obj-<) (loop new-l))))))) ;;; X is a list that is merged into B, the list of sorted lists. (define (add-to-sorted-lists x b obj-<) (let loop ((x x) (b b)) (let ((l (cdr b))) (cond ((null? l) (set-cdr! b (cons x '()))) ((null? (car l)) (set-car! l x)) (else (let ((y (list-merge! x (car l) obj-<))) (set-car! l '()) (loop y l))))))) ;;; Does a stable side-effecting merge of L1 and L2. (define (list-merge! l1 l2 obj-<) (cond ((null? l1) l2) ((null? l2) l1) ((obj-< (car l1) (car l2)) (real-list-merge! l2 (cdr l1) obj-< l1) l1) (else (real-list-merge! l1 (cdr l2) obj-< l2) l2))) ;;; Does the real work of LIST-MERGE!. L1 is assumed to be non-empty. (define (real-list-merge! l1 l2 obj-< prev) (let loop ((a l1) (b l2) (prev prev)) (cond ((null? b) (set-cdr! prev a)) ((obj-< (car a) (car b)) (set-cdr! prev a) (loop b (cdr a) a)) (else (set-cdr! prev b) (loop a (cdr b) b))))) ;;; from learn.stack.s48 (define (second x) (cadr x)) (define (third x) (caddr x)) (define (fourth x) (cadddr x)) (define (walk-list l k) (let loop ((l l)) (if (not (null? l)) (begin (k (car l)) (loop (cdr l)))))) (define (do-times-up n k) ; equivalent to (for-up 0 (- n 1) k) (let loop ((i 0)) (if (< i n) (begin (k i) (loop (+ i 1)))))) (define (read-file name) (let ((the-file (open-input-file name))) (let loop ((try (read the-file)) (accum '())) (if (eof-object? try) (begin (close-input-port the-file) (reverse accum)) (loop (read the-file) (cons try accum)))))) (define (read-int file) (let ((val (read file))) (if (integer? val) val (scream "bogus value ~a" val)))) (define (read-cform-trainset name) (let* ((the-file (open-input-file name)) (n-strings (read-int the-file)) (new-alphabet-size (read-int the-file)) (rb (revbuilder-new))) (set-box! alphabet-size new-alphabet-size) (do-times-up n-strings (lambda (i) (let* ((label (read-int the-file)) (string-len (read-int the-file)) (rb2 (revbuilder-new))) (do-times-up string-len (lambda (j) (revbuilder-add rb2 (read-int the-file)))) (revbuilder-add rb (cons label (revbuilder-done rb2)))))) (revbuilder-done rb))) (define (make-stack) (box '())) (define (stack-empty? s) (null? (unbox s))) (define (stack-push s obj) (set-box! s (cons obj (unbox s)))) (define (stack-pop s) (let ((l (unbox s))) (set-box! s (cdr l)) (car l))) (define (make-queue) (cons '() '())) (define (queue-empty? q) (and (null? (car q)) (null? (cdr q)))) (define (queue-push q obj) (set-car! q (cons obj (car q)))) (define (queue-pop q) (normalize-queue! q) (let ((head (car (cdr q)))) (set-cdr! q (cdr (cdr q))) head)) (define (normalize-queue! q) (if (null? (cdr q)) (begin (set-cdr! q (reverse (car q))) (set-car! q '())))) (define (queue-head q) (normalize-queue! q) (car (cdr q))) (define (make-counter) (let ((count (box 0))) (lambda () (let ((old-count (unbox count))) (set-box! count (+ 1 (unbox count))) old-count)))) (define (make-table) (vector 'table 0 1 (make-vector 1 '()))) (define (table-get-count table) (vector-ref table 1)) (define (table-get-n-alists table) (vector-ref table 2)) (define (table-get-alists table) (vector-ref table 3)) (define (table-set-count table new) (vector-set! table 1 new)) (define (table-set-n-alists table new) (vector-set! table 2 new)) (define (table-set-alists table new) (vector-set! table 3 new)) (define (table-test table key) (let* ((n-alists (table-get-n-alists table)) (alists (table-get-alists table)) (hash (modulo key n-alists)) (probe (assq key (vector-ref alists hash)))) (if probe #t #f))) (define (table-lookup table key) (let* ((n-alists (table-get-n-alists table)) (alists (table-get-alists table)) (hash (modulo key n-alists)) (probe (assq key (vector-ref alists hash)))) (if probe (cdr probe) (scream "table-lookup failed")))) (define (table-expand table) (let* ((old-n-alists (table-get-n-alists table)) (old-alists (table-get-alists table)) (new-n-alists (* 10 old-n-alists)) (new-alists (make-vector new-n-alists '()))) (let loop ((i 0)) (if (< i old-n-alists) (begin (let loop ((a (vector-ref old-alists i))) (if (not (null? a)) (begin (let ((a (car a))) (let ((new-hash (modulo (car a) new-n-alists))) (vector-set! new-alists new-hash (cons a (vector-ref new-alists new-hash))))) (loop (cdr a))))) (loop (+ i 1))))) (table-set-n-alists table new-n-alists) (table-set-alists table new-alists))) (define (table-set! table key value) (let* ((n-alists (table-get-n-alists table)) (alists (table-get-alists table)) (hash (modulo key n-alists)) (probe (assq key (vector-ref alists hash)))) (if probe (set-cdr! probe value) (begin (vector-set! alists hash (cons (cons key value) (vector-ref alists hash))) (table-set-count table (add-one (table-get-count table))) (if (> (table-get-count table) (* 10 n-alists)) (table-expand table)))))) (define (table-count table) (table-get-count table)) (define (walk-table k table) (let ((n-alists (table-get-n-alists table)) (alists (table-get-alists table))) (let loop ((i 0)) (if (< i n-alists) (begin (let loop ((p (vector-ref alists i))) (if (not (null? p)) (begin (let ((p (car p))) (k (car p) (cdr p))) (loop (cdr p))))) (loop (+ i 1))))))) (define (table-test-and-set! table key) (let ((probe (table-test table key))) (if (not probe) (table-set! table key #t)) probe)) (define (walk-vector fun vec) (let ((veclen (vector-length vec))) (let next ((i 0)) (if (< i veclen) (begin (fun (vector-ref vec i)) (next (add-one i))))))) (define (walk-vector-with-offset offset fun vec) (let ((veclen (vector-length vec))) (let next ((i offset)) (if (< i veclen) (begin (fun (vector-ref vec i)) (next (add-one i))))))) (define (vector-replace to from len) (do-times-up len (lambda (i) (vector-set! to i (vector-ref from i))))) (define alphabet-size (box 2)) ;;; note: for now, using integers for state labels ;;; -1 unknown ;;; 0 reject ;;; 1 accept (define (nondef) 'ndf) (define (nondef? x) (eq? 'ndf x)) (define (gloid node) (vector-ref node 0)) (define (state-label node) (vector-ref node 1)) (define (father node) (vector-ref node 2)) (define (get-child node i) (vector-ref node (+ 3 i))) (define (set-state-label node val) (vector-set! node 1 val)) (define (set-father node val) (vector-set! node 2 val)) (define (set-child node i val) (vector-set! node (+ 3 i) val)) (define (walk-children fun node) (walk-vector-with-offset 3 fun node)) (define global-node-counter (box 0)) (define (make-node father) (let ((old-counter-val (unbox global-node-counter)) (node (make-vector (+ 3 (unbox alphabet-size))))) (set-box! global-node-counter (+ (unbox global-node-counter) 1)) (vector-set! node 0 old-counter-val) (set-state-label node -1) (set-father node father) (do-times-up (unbox alphabet-size) (lambda (i) (set-child node i (nondef)))) node)) (define (make-duplicate-node x) (copy-vector x)) (define (replace-node-contents to from) (vector-replace to from (+ 3 (unbox alphabet-size)))) (define (augment-tree curnode string label) (if (null? string) (set-state-label curnode label) (let ((cursym (car string))) (if (nondef? (get-child curnode cursym)) (set-child curnode cursym (make-node curnode))) (augment-tree (get-child curnode cursym) (cdr string) label)))) (define (new-build-tree example-list) (let ((root (make-node (nondef)))) (walk-list example-list (lambda (example) (augment-tree root (cdr example) (car example)))) root)) (define (build-tree-from-cform-file name) (let* ((the-file (open-input-file name)) (n-strings (read-int the-file)) (ignore (begin (set-box! alphabet-size (read-int the-file)) #f)) (root (make-node (nondef)))) (do-times-up n-strings (lambda (i) (let* ((label (read-int the-file)) (string-len (read-int the-file)) (rb2 (revbuilder-new))) (do-times-up string-len (lambda (j) (revbuilder-add rb2 (read-int the-file)))) (augment-tree root (revbuilder-done rb2) label)))) root)) (define (find-incoming-token node father) (let next ((i 0) (n-matches 0) (matching-i -1)) (if (= i (unbox alphabet-size)) (if (= n-matches 1) matching-i (scream "horrible bug in find-incoming-token ~a ~a ~a" n-matches node father)) (next (add-one i) (if (eq? (get-child father i) node) (add-one n-matches) n-matches) (if (eq? (get-child father i) node) i matching-i))))) (define operate-noisily? #f) (define (print-tree start-node) (let ((seen (make-table)) (todo (make-queue)) (count (make-counter))) (queue-push todo start-node) (let next () (let ((curnode (queue-pop todo))) (if (not (table-test-and-set! seen (gloid curnode))) (begin (pormat-function "~a ~a " (gloid curnode) (state-label curnode)) (walk-children (lambda (x) (if (nondef? x) (pormat-function "? ") (begin (queue-push todo x) (pormat-function "~a " (gloid x))))) curnode) (pormat-function "~%")))) (if (not (queue-empty? todo)) (next))))) (define (fancy-print-tree start-node) (let ((seen (make-table)) (id-table (make-table)) (todo (make-queue)) (count (make-counter))) (queue-push todo start-node) (let next-node () (let ((curnode (queue-pop todo))) (if (not (table-test id-table (gloid curnode))) (begin (table-set! id-table (gloid curnode) (count)) (walk-children (lambda (x) (if (not (nondef? x)) (queue-push todo x))) curnode))) (if (not (queue-empty? todo)) (next-node)))) (pormat-function "~a ~a~%" (count) (unbox alphabet-size)) (queue-push todo start-node) (let next () (let ((curnode (queue-pop todo))) (if (not (table-test-and-set! seen (gloid curnode))) (begin (pormat-function "~a ~a " (table-lookup id-table (gloid curnode)) (state-label curnode)) (walk-children (lambda (x) (if (nondef? x) (pormat-function "? ") (begin (queue-push todo x) (pormat-function "~a " (table-lookup id-table (gloid x)))))) curnode) (pormat-function "~%")))) (if (not (queue-empty? todo)) (next))))) (define (label-defined lab) (not (= -1 lab))) (define (compare-labels tr-node graph-node backup-table) (if (label-defined (state-label tr-node)) (if (label-defined (state-label graph-node)) (= (state-label graph-node) (state-label tr-node)) (begin (backup graph-node backup-table) (set-state-label graph-node (state-label tr-node)) #t)) #t)) (define (continue-merging tr-node graph-node search-stack backup-table splices) (do-times-up (unbox alphabet-size) (lambda (i) (let ((graph-child (get-child graph-node i)) (tree-child (get-child tr-node i))) (if (not (nondef? tree-child)) (if (not (nondef? graph-child)) (stack-push search-stack (cons tree-child graph-child)) (begin (backup graph-node backup-table) (backup tree-child backup-table) (set-child graph-node i tree-child) (set-father tree-child graph-node) (set-box! splices (cons (cons graph-node tree-child) (unbox splices)))))))))) (define (try-merging curnode potential-match backup-table splices) (let ((search-stack (make-stack))) (stack-push search-stack (cons curnode potential-match)) (let loop () (let* ((p (stack-pop search-stack)) (t (car p)) (g (cdr p)) (result (compare-labels t g backup-table))) (if result (begin (continue-merging t g search-stack backup-table splices) (if (not (stack-empty? search-stack)) (loop) #t)) #f))))) (define (accept-the-node curnode todo unique-table unique-nodes) (set-box! unique-nodes (append (unbox unique-nodes) (list curnode))) (table-set! unique-table (gloid curnode) #t) (walk-children (lambda (x) (if (not (nondef? x)) (queue-push todo x))) curnode)) (define (consider-node todo unique-table unique-nodes) (let* ((curnode (queue-pop todo)) (curdad (father curnode)) (inchar (if (nondef? curdad) -1 ; happens only at root (find-incoming-token curnode curdad)))) (let find-match ((potential-matches (unbox unique-nodes))) (if (null? potential-matches) (accept-the-node curnode todo unique-table unique-nodes) (let ((potential-match (car potential-matches)) (backup-table (make-table)) (splices (box '()))) (set-child curdad inchar potential-match) (if (try-merging curnode potential-match backup-table splices) (walk-list (unbox splices) (lambda (x) (if (table-test unique-table (gloid (car x))) (queue-push todo (cdr x))))) (begin (revert-from-backups backup-table) (set-child curdad inchar curnode) (find-match (cdr potential-matches))))))) (if (not (queue-empty? todo)) (consider-node todo unique-table unique-nodes)))) (define (greedily-collapse root) (let ((todo (make-queue)) (unique-table (make-table)) (unique-nodes (box '()))) (queue-push todo root) (consider-node todo unique-table unique-nodes) root)) (define (backup guy backup-table) (if (not (table-test backup-table (gloid guy))) (let ((backup (make-duplicate-node guy))) (table-set! backup-table (gloid guy) (cons guy backup))))) (define (revert-from-backups backup-table) (if (not (zero? (table-count backup-table))) (walk-table (lambda (id guy-dot-backup) (let ((guy (car guy-dot-backup)) (backup (cdr guy-dot-backup))) (replace-node-contents guy backup))) backup-table))) (define (revbuilder-new) (box '())) (define (revbuilder-add rb new) (set-box! rb (cons new (unbox rb)))) (define (revbuilder-done rb) (reverse (unbox rb))) (define (arbitrary-root->canonical-form machine root-node) (let* ((old-transitions (list->vector (car machine))) (oldnew (make-table)) (seenit (make-table)) (count (make-counter)) (todo (make-queue)) (new-transitions (revbuilder-new))) (queue-push todo root-node) (let next () (let ((curnode (queue-pop todo))) (if (not (table-test oldnew curnode)) (begin (table-set! oldnew curnode (count)) (walk-list (vector-ref old-transitions curnode) (lambda (x) (queue-push todo x))))) (if (not (queue-empty? todo)) (next)))) (queue-push todo root-node) (let next () (let ((curnode (queue-pop todo))) (if (not (table-test seenit curnode)) (begin (table-set! seenit curnode #t) (let ((new-trans (revbuilder-new))) (walk-list (vector-ref old-transitions curnode) (lambda (x) (queue-push todo x) (revbuilder-add new-trans (table-lookup oldnew x)))) (revbuilder-add new-transitions (revbuilder-done new-trans))))) (if (not (queue-empty? todo)) (next)))) (let next ((new-acceptors '()) (old-acceptors (second machine))) (if (null? old-acceptors) (list (revbuilder-done new-transitions) (sort < new-acceptors)) (let ((check (table-test oldnew (car old-acceptors)))) (if check (let ((new (table-lookup oldnew (car old-acceptors)))) (next (cons new new-acceptors) (cdr old-acceptors))) (next new-acceptors (cdr old-acceptors)))))))) (define (dfa-tree->canonical-form start-node) (let ((seen (make-table)) (id-table (make-table)) (todo (make-queue)) (count (make-counter)) (transitions (revbuilder-new)) (acceptors (revbuilder-new))) ;; Allocate a universal rejecting state at position 0. ;; If it isn't used, it will be discarded at the end. (revbuilder-add transitions (make-list (unbox alphabet-size) 0)) (count) ; the root will now be at position 1. (queue-push todo start-node) (let next-node () (let ((curnode (queue-pop todo))) (if (not (table-test id-table (gloid curnode))) (begin (table-set! id-table (gloid curnode) (count)) (walk-children (lambda (x) (if (not (nondef? x)) (queue-push todo x))) curnode))) (if (not (queue-empty? todo)) (next-node)))) (queue-push todo start-node) (let next () (let ((curnode (queue-pop todo))) (if (not (table-test-and-set! seen (gloid curnode))) (begin (if (eq? 1 (state-label curnode)) (revbuilder-add acceptors (table-lookup id-table (gloid curnode)))) (let ((trans (revbuilder-new))) (walk-children (lambda (x) (if (nondef? x) ; absent children expressed by (revbuilder-add trans 0) ; transitions to rejecting state (begin (queue-push todo x) (revbuilder-add trans (table-lookup id-table (gloid x)))))) curnode) (revbuilder-add transitions (revbuilder-done trans)))))) (if (not (queue-empty? todo)) (next))) ;; Now we rearrange the machine so that the ;; the root is at position 0. (arbitrary-root->canonical-form (list (revbuilder-done transitions) (sort < (revbuilder-done acceptors))) 1))) (define (test file-name) (fancy-print-tree (greedily-collapse (build-tree-from-cform-file file-name)))) (test "train2000.cform") stalin-0.11/benchmarks/dfa2.sc0000600017435200151030000006360207244421662014667 0ustar qobiqobi;;; from s48-util.scm (define call/cc call-with-current-continuation) ;;; begin Stalin (define box (primitive-procedure make-structure box 1)) (define unbox (primitive-procedure structure-ref box 0)) (define set-box! (primitive-procedure structure-set! box 0)) ;;; end Stalin ;;; begin Scheme->C (define (box x) (cons 'box x)) (define (unbox x) (cdr x)) (define (set-box! x y) (set-cdr! x y)) ;;; end Scheme->C ;;; begin Gambit-C (define-structure box contents) (define box make-box) (define unbox box-contents) (define set-box! box-contents-set!) ;;; end Gambit-C ;;; begin Bigloo (define (box x) (cons 'box x)) (define (unbox x) (cdr x)) (define (set-box! x y) (set-cdr! x y)) ;;; end Bigloo ;;; begin Chicken (define-record-type box contents) (define box make-box) (define unbox box-contents) (define set-box! box-contents-set!) ;;; end Chicken (define (append! l1 l2) (append l1 l2)) (define (add-one x) (+ x 1)) (define (reverse! l) (cond ((or (null? l) (null? (cdr l))) l) (else (let ((rest (cdr l))) (set-cdr! l '()) (let loop ((l1 l) (l2 rest)) (cond ((null? l2) l1) (else (let ((rest (cdr l2))) (set-cdr! l2 l1) (loop l2 rest))))))))) (define (pormat-function control-string . values) (let loop ((i 0) (values values)) (if (not (= i (string-length control-string))) (let ((c (string-ref control-string i))) (if (eqv? c #\~) (let ((c2 (string-ref control-string (+ 1 i)))) (cond ((eqv? c2 #\a) (display (car values)) (loop (+ 2 i) (cdr values))) ((eqv? c2 #\%) (newline) (loop (+ 2 i) values)) (else (display c) (loop (+ 1 i) values)))) (begin (display c) (loop (+ 1 i) values))))))) (define scream pormat-function) (define (sort pred l) (sort-list l pred)) (define (copy-vector from) (let* ((len (vector-length from)) (to (make-vector len 0))) (let loop ((i 0)) (if (< i len) (begin (vector-set! to i (vector-ref from i)) (loop (+ i 1))))) to)) (define (make-list len val) (let loop ((out '()) (i 0)) (if (< i len) (loop (cons val out) (+ i 1)) out))) ;;; Copyright (c) 1985 Yale University ;;; Authors: N Adams, R Kelsey, D Kranz, J Philbin, J Rees. ;;; This material was developed by the T Project at the Yale ;;; University Computer Science Department. Permission to copy this ;;; software, to redistribute it, and to use it for any purpose is ;;; granted, subject to the following restric-tions and ;;; understandings. ;;; 1. Any copy made of this software must include this copyright ;;; notice in full. ;;; 2. Users of this software agree to make their best efforts (a) to return ;;; to the T Project at Yale any improvements or extensions that they make, ;;; so that these may be included in future releases; and (b) to inform ;;; the T Project of noteworthy uses of this software. ;;; 3. All materials developed as a consequence of the use of this software ;;; shall duly acknowledge such use, in accordance with the usual standards ;;; of acknowledging credit in academic research. ;;; 4. Yale has made no warrantee or representation that the operation of ;;; this software will be error-free, and Yale is under no obligation to ;;; provide any services, by way of maintenance, update, or otherwise. ;;; 5. In conjunction with products arising from the use of this material, ;;; there shall be no use of the name of the Yale University nor of any ;;; adaptation thereof in any advertising, promotional, or sales literature ;;; without prior written consent from Yale in each case. ;;; ;;; We gratefully acknowledge Bob Nix ;;; SORT:ONLINE-MERGE-SORT! ;;; ======================= ;;; On-Line Merge sort, a fast and stable algorithm for sorting a list. ;;; This is a very neat algorithm! Consider the following code: ;;; ;;; (DEFINE (MERGE-SORT L) ;;; (IF (NULL? (CDR L)) ;;; L ;;; (MERGE (MERGE-SORT (FIRST-HALF-OF L)) ;;; (MERGE-SORT (SECOND-HALF-OF L))))) ;;; ;;; The nested calls to MERGE above form a binary tree, with MERGE's of ;;; singleton lists at the leaves, and a MERGE of two lists of size N/2 at ;;; the top. The algorithm below traverses this MERGE-tree in post-order, ;;; moving from the lower left hand corner to the right. ;;; ;;; This algorithm sorts N objects with about NlgN+2N comparisons and exactly ;;; lgN conses. The algorithm used is a version of mergesort that is ;;; amenable to Lisp's data accessing primitives. The first phase of the ;;; algorithm is an "addition" phase in which each element X is added to ;;; a list of lists of sorted runs B in much the same manner as a one is ;;; added to a binary number. If the first "digit" of B is 0, i.e. the first ;;; list in B is NIL, then the element to be added becomes the first digit ;;; of B. If that digit is non empty then you merge the digit with X and ;;; recurse on the rest of B -- setting the first digit of B to be zero. ;;; For example: ;;; ;;; Reversed LIST B ;;; Binary # Each sublist is sorted. ;;; ;;; 0000 () ;;; 1000 ((x)) ;;; 0100 (() (x x)) ;;; 1100 ((x) (x x)) ;;; 0010 (() () (x x x x)) ;;; 1010 ((x) () (x x x x)) ;;; 0110 (() (x x) (x x x x)) ;;; 1110 ((x) (x x) (x x x x)) ;;; 0001 (() () () (x x x x x x x x)) ;;; 1001 ((x) () () (x x x x x x x x)) ;;; ;;; The algorithm then merges the sublists of these lists into ;;; one list, and returns that list. ;;; ;;; To see the algorithm in action, trace LIST-MERGE!. ;;; ;;; Returns list L sorted using OBJ-< for comparisons. (define (sort-list l obj-<) (cond ((or (null? l) (null? (cdr l))) l) (else (online-merge-sort! (append l '()) ; copy-list obj-<)))) ;;; Returns list L sorted using OBJ-< for comparisons. ;;; L is destructively altered. (define (sort-list! l obj-<) (cond ((or (null? l) (null? (cdr l))) l) (else (online-merge-sort! l obj-<)))) ;;; The real sort procedure. Elements of L are added to B, a list of sorted ;;; lists as defined above. When all elements of L have been added to B ;;; the sublists of B are merged together to get the desired sorted list. (define (online-merge-sort! l obj-<) (let ((b (cons '() '()))) (let loop ((l l)) (cond ((null? l) (do ((c (cddr b) (cdr c)) (r (cadr b) (list-merge! (car c) r obj-<))) ((null? c) r))) (else (let ((new-l (cdr l))) (set-cdr! l '()) (add-to-sorted-lists l b obj-<) (loop new-l))))))) ;;; X is a list that is merged into B, the list of sorted lists. (define (add-to-sorted-lists x b obj-<) (let loop ((x x) (b b)) (let ((l (cdr b))) (cond ((null? l) (set-cdr! b (cons x '()))) ((null? (car l)) (set-car! l x)) (else (let ((y (list-merge! x (car l) obj-<))) (set-car! l '()) (loop y l))))))) ;;; Does a stable side-effecting merge of L1 and L2. (define (list-merge! l1 l2 obj-<) (cond ((null? l1) l2) ((null? l2) l1) ((obj-< (car l1) (car l2)) (real-list-merge! l2 (cdr l1) obj-< l1) l1) (else (real-list-merge! l1 (cdr l2) obj-< l2) l2))) ;;; Does the real work of LIST-MERGE!. L1 is assumed to be non-empty. (define (real-list-merge! l1 l2 obj-< prev) (let loop ((a l1) (b l2) (prev prev)) (cond ((null? b) (set-cdr! prev a)) ((obj-< (car a) (car b)) (set-cdr! prev a) (loop b (cdr a) a)) (else (set-cdr! prev b) (loop a (cdr b) b))))) ;;; from learn.stack.s48 (define (second x) (cadr x)) (define (third x) (caddr x)) (define (fourth x) (cadddr x)) (define (walk-list l k) (let loop ((l l)) (if (not (null? l)) (begin (k (car l)) (loop (cdr l)))))) (define (do-times-up n k) ; equivalent to (for-up 0 (- n 1) k) (let loop ((i 0)) (if (< i n) (begin (k i) (loop (+ i 1)))))) (define (read-file name) (let ((the-file (open-input-file name))) (let loop ((try (read the-file)) (accum '())) (if (eof-object? try) (begin (close-input-port the-file) (reverse accum)) (loop (read the-file) (cons try accum)))))) (define (read-int file) (let ((val (read file))) (if (integer? val) val (scream "bogus value ~a" val)))) (define (read-cform-trainset name) (let* ((the-file (open-input-file name)) (n-strings (read-int the-file)) (new-alphabet-size (read-int the-file)) (rb (revbuilder-new))) (set-box! alphabet-size new-alphabet-size) (do-times-up n-strings (lambda (i) (let* ((label (read-int the-file)) (string-len (read-int the-file)) (rb2 (revbuilder-new))) (do-times-up string-len (lambda (j) (revbuilder-add rb2 (read-int the-file)))) (revbuilder-add rb (cons label (revbuilder-done rb2)))))) (revbuilder-done rb))) (define (make-stack) (box '())) (define (stack-empty? s) (null? (unbox s))) (define (stack-push s obj) (set-box! s (cons obj (unbox s)))) (define (stack-pop s) (let ((l (unbox s))) (set-box! s (cdr l)) (car l))) (define (make-queue) (cons '() '())) (define (queue-empty? q) (and (null? (car q)) (null? (cdr q)))) (define (queue-push q obj) (set-car! q (cons obj (car q)))) (define (queue-pop q) (normalize-queue! q) (let ((head (car (cdr q)))) (set-cdr! q (cdr (cdr q))) head)) (define (normalize-queue! q) (if (null? (cdr q)) (begin (set-cdr! q (reverse (car q))) (set-car! q '())))) (define (queue-head q) (normalize-queue! q) (car (cdr q))) (define (make-counter) (let ((count (box 0))) (lambda () (let ((old-count (unbox count))) (set-box! count (+ 1 (unbox count))) old-count)))) ;;; begin Stalin (define make-table-internal (primitive-procedure make-structure table 3)) (define (make-table) (make-table-internal 0 1 (make-vector 1 '()))) (define table-get-count (primitive-procedure structure-ref table 0)) (define table-get-n-alists (primitive-procedure structure-ref table 1)) (define table-get-alists (primitive-procedure structure-ref table 2)) (define table-set-count (primitive-procedure structure-set! table 0)) (define table-set-n-alists (primitive-procedure structure-set! table 1)) (define table-set-alists (primitive-procedure structure-set! table 2)) ;;; end Stalin ;;; begin Scheme->C (define (make-table) (vector 'table 0 1 (make-vector 1 '()))) (define (table-get-count table) (vector-ref table 1)) (define (table-get-n-alists table) (vector-ref table 2)) (define (table-get-alists table) (vector-ref table 3)) (define (table-set-count table new) (vector-set! table 1 new)) (define (table-set-n-alists table new) (vector-set! table 2 new)) (define (table-set-alists table new) (vector-set! table 3 new)) ;;; end Scheme->C ;;; begin Gambit-C (define-structure table-internal count n-alists alists) (define (make-table) (make-table-internal 0 1 (make-vector 1 '()))) (define table-get-count table-internal-count) (define table-get-n-alists table-internal-n-alists) (define table-get-alists table-internal-alists) (define table-set-count table-internal-count-set!) (define table-set-n-alists table-internal-n-alists-set!) (define table-set-alists table-internal-alists-set!) ;;; end Gambit-C ;;; begin Bigloo (define (make-table) (vector 'table 0 1 (make-vector 1 '()))) (define (table-get-count table) (vector-ref table 1)) (define (table-get-n-alists table) (vector-ref table 2)) (define (table-get-alists table) (vector-ref table 3)) (define (table-set-count table new) (vector-set! table 1 new)) (define (table-set-n-alists table new) (vector-set! table 2 new)) (define (table-set-alists table new) (vector-set! table 3 new)) ;;; end Bigloo ;;; begin Chez (define (make-table) (vector 'table 0 1 (make-vector 1 '()))) (define (table-get-count table) (vector-ref table 1)) (define (table-get-n-alists table) (vector-ref table 2)) (define (table-get-alists table) (vector-ref table 3)) (define (table-set-count table new) (vector-set! table 1 new)) (define (table-set-n-alists table new) (vector-set! table 2 new)) (define (table-set-alists table new) (vector-set! table 3 new)) ;;; end Chez ;;; begin Chicken (define-record-type table-internal count n-alists alists) (define (make-table) (make-table-internal 0 1 (make-vector 1 '()))) (define table-get-count table-internal-count) (define table-get-n-alists table-internal-n-alists) (define table-get-alists table-internal-alists) (define table-set-count table-internal-count-set!) (define table-set-n-alists table-internal-n-alists-set!) (define table-set-alists table-internal-alists-set!) ;;; end Chicken (define (table-test table key) (let* ((n-alists (table-get-n-alists table)) (alists (table-get-alists table)) (hash (modulo key n-alists)) (probe (assq key (vector-ref alists hash)))) (if probe #t #f))) (define (table-lookup table key) (let* ((n-alists (table-get-n-alists table)) (alists (table-get-alists table)) (hash (modulo key n-alists)) (probe (assq key (vector-ref alists hash)))) (if probe (cdr probe) (scream "table-lookup failed")))) (define (table-expand table) (let* ((old-n-alists (table-get-n-alists table)) (old-alists (table-get-alists table)) (new-n-alists (* 10 old-n-alists)) (new-alists (make-vector new-n-alists '()))) (let loop ((i 0)) (if (< i old-n-alists) (begin (let loop ((a (vector-ref old-alists i))) (if (not (null? a)) (begin (let ((a (car a))) (let ((new-hash (modulo (car a) new-n-alists))) (vector-set! new-alists new-hash (cons a (vector-ref new-alists new-hash))))) (loop (cdr a))))) (loop (+ i 1))))) (table-set-n-alists table new-n-alists) (table-set-alists table new-alists))) (define (table-set! table key value) (let* ((n-alists (table-get-n-alists table)) (alists (table-get-alists table)) (hash (modulo key n-alists)) (probe (assq key (vector-ref alists hash)))) (if probe (set-cdr! probe value) (begin (vector-set! alists hash (cons (cons key value) (vector-ref alists hash))) (table-set-count table (add-one (table-get-count table))) (if (> (table-get-count table) (* 10 n-alists)) (table-expand table)))))) (define (table-count table) (table-get-count table)) (define (walk-table k table) (let ((n-alists (table-get-n-alists table)) (alists (table-get-alists table))) (let loop ((i 0)) (if (< i n-alists) (begin (let loop ((p (vector-ref alists i))) (if (not (null? p)) (begin (let ((p (car p))) (k (car p) (cdr p))) (loop (cdr p))))) (loop (+ i 1))))))) (define (table-test-and-set! table key) (let ((probe (table-test table key))) (if (not probe) (table-set! table key #t)) probe)) (define (walk-vector fun vec) (let ((veclen (vector-length vec))) (let next ((i 0)) (if (< i veclen) (begin (fun (vector-ref vec i)) (next (add-one i))))))) (define (walk-vector-with-offset offset fun vec) (let ((veclen (vector-length vec))) (let next ((i offset)) (if (< i veclen) (begin (fun (vector-ref vec i)) (next (add-one i))))))) (define (vector-replace to from len) (do-times-up len (lambda (i) (vector-set! to i (vector-ref from i))))) (define alphabet-size (box 2)) ;;; note: for now, using integers for state labels ;;; -1 unknown ;;; 0 reject ;;; 1 accept (define (nondef) 'ndf) (define (nondef? x) (eq? 'ndf x)) (define (gloid node) (vector-ref node 0)) (define (state-label node) (vector-ref node 1)) (define (father node) (vector-ref node 2)) (define (get-child node i) (vector-ref node (+ 3 i))) (define (set-state-label node val) (vector-set! node 1 val)) (define (set-father node val) (vector-set! node 2 val)) (define (set-child node i val) (vector-set! node (+ 3 i) val)) (define (walk-children fun node) (walk-vector-with-offset 3 fun node)) (define global-node-counter (box 0)) (define (make-node father) (let ((old-counter-val (unbox global-node-counter)) (node (make-vector (+ 3 (unbox alphabet-size))))) (set-box! global-node-counter (+ (unbox global-node-counter) 1)) (vector-set! node 0 old-counter-val) (set-state-label node -1) (set-father node father) (do-times-up (unbox alphabet-size) (lambda (i) (set-child node i (nondef)))) node)) (define (make-duplicate-node x) (copy-vector x)) (define (replace-node-contents to from) (vector-replace to from (+ 3 (unbox alphabet-size)))) (define (augment-tree curnode string label) (if (null? string) (set-state-label curnode label) (let ((cursym (car string))) (if (nondef? (get-child curnode cursym)) (set-child curnode cursym (make-node curnode))) (augment-tree (get-child curnode cursym) (cdr string) label)))) (define (new-build-tree example-list) (let ((root (make-node (nondef)))) (walk-list example-list (lambda (example) (augment-tree root (cdr example) (car example)))) root)) (define (build-tree-from-cform-file name) (let* ((the-file (open-input-file name)) (n-strings (read-int the-file)) (ignore (begin (set-box! alphabet-size (read-int the-file)) #f)) (root (make-node (nondef)))) (do-times-up n-strings (lambda (i) (let* ((label (read-int the-file)) (string-len (read-int the-file)) (rb2 (revbuilder-new))) (do-times-up string-len (lambda (j) (revbuilder-add rb2 (read-int the-file)))) (augment-tree root (revbuilder-done rb2) label)))) root)) (define (find-incoming-token node father) (let next ((i 0) (n-matches 0) (matching-i -1)) (if (= i (unbox alphabet-size)) (if (= n-matches 1) matching-i (scream "horrible bug in find-incoming-token ~a ~a ~a" n-matches node father)) (next (add-one i) (if (eq? (get-child father i) node) (add-one n-matches) n-matches) (if (eq? (get-child father i) node) i matching-i))))) (define operate-noisily? #f) (define (print-tree start-node) (let ((seen (make-table)) (todo (make-queue)) (count (make-counter))) (queue-push todo start-node) (let next () (let ((curnode (queue-pop todo))) (if (not (table-test-and-set! seen (gloid curnode))) (begin (pormat-function "~a ~a " (gloid curnode) (state-label curnode)) (walk-children (lambda (x) (if (nondef? x) (pormat-function "? ") (begin (queue-push todo x) (pormat-function "~a " (gloid x))))) curnode) (pormat-function "~%")))) (if (not (queue-empty? todo)) (next))))) (define (fancy-print-tree start-node) (let ((seen (make-table)) (id-table (make-table)) (todo (make-queue)) (count (make-counter))) (queue-push todo start-node) (let next-node () (let ((curnode (queue-pop todo))) (if (not (table-test id-table (gloid curnode))) (begin (table-set! id-table (gloid curnode) (count)) (walk-children (lambda (x) (if (not (nondef? x)) (queue-push todo x))) curnode))) (if (not (queue-empty? todo)) (next-node)))) (pormat-function "~a ~a~%" (count) (unbox alphabet-size)) (queue-push todo start-node) (let next () (let ((curnode (queue-pop todo))) (if (not (table-test-and-set! seen (gloid curnode))) (begin (pormat-function "~a ~a " (table-lookup id-table (gloid curnode)) (state-label curnode)) (walk-children (lambda (x) (if (nondef? x) (pormat-function "? ") (begin (queue-push todo x) (pormat-function "~a " (table-lookup id-table (gloid x)))))) curnode) (pormat-function "~%")))) (if (not (queue-empty? todo)) (next))))) (define (label-defined lab) (not (= -1 lab))) (define (compare-labels tr-node graph-node backup-table) (if (label-defined (state-label tr-node)) (if (label-defined (state-label graph-node)) (= (state-label graph-node) (state-label tr-node)) (begin (backup graph-node backup-table) (set-state-label graph-node (state-label tr-node)) #t)) #t)) (define (continue-merging tr-node graph-node search-stack backup-table splices) (do-times-up (unbox alphabet-size) (lambda (i) (let ((graph-child (get-child graph-node i)) (tree-child (get-child tr-node i))) (if (not (nondef? tree-child)) (if (not (nondef? graph-child)) (stack-push search-stack (cons tree-child graph-child)) (begin (backup graph-node backup-table) (backup tree-child backup-table) (set-child graph-node i tree-child) (set-father tree-child graph-node) (set-box! splices (cons (cons graph-node tree-child) (unbox splices)))))))))) (define (try-merging curnode potential-match backup-table splices) (let ((search-stack (make-stack))) (stack-push search-stack (cons curnode potential-match)) (let loop () (let* ((p (stack-pop search-stack)) (t (car p)) (g (cdr p)) (result (compare-labels t g backup-table))) (if result (begin (continue-merging t g search-stack backup-table splices) (if (not (stack-empty? search-stack)) (loop) #t)) #f))))) (define (accept-the-node curnode todo unique-table unique-nodes) (set-box! unique-nodes (append (unbox unique-nodes) (list curnode))) (table-set! unique-table (gloid curnode) #t) (walk-children (lambda (x) (if (not (nondef? x)) (queue-push todo x))) curnode)) (define (consider-node todo unique-table unique-nodes) (let* ((curnode (queue-pop todo)) (curdad (father curnode)) (inchar (if (nondef? curdad) -1 ; happens only at root (find-incoming-token curnode curdad)))) (let find-match ((potential-matches (unbox unique-nodes))) (if (null? potential-matches) (accept-the-node curnode todo unique-table unique-nodes) (let ((potential-match (car potential-matches)) (backup-table (make-table)) (splices (box '()))) (set-child curdad inchar potential-match) (if (try-merging curnode potential-match backup-table splices) (walk-list (unbox splices) (lambda (x) (if (table-test unique-table (gloid (car x))) (queue-push todo (cdr x))))) (begin (revert-from-backups backup-table) (set-child curdad inchar curnode) (find-match (cdr potential-matches))))))) (if (not (queue-empty? todo)) (consider-node todo unique-table unique-nodes)))) (define (greedily-collapse root) (let ((todo (make-queue)) (unique-table (make-table)) (unique-nodes (box '()))) (queue-push todo root) (consider-node todo unique-table unique-nodes) root)) (define (backup guy backup-table) (if (not (table-test backup-table (gloid guy))) (let ((backup (make-duplicate-node guy))) (table-set! backup-table (gloid guy) (cons guy backup))))) (define (revert-from-backups backup-table) (if (not (zero? (table-count backup-table))) (walk-table (lambda (id guy-dot-backup) (let ((guy (car guy-dot-backup)) (backup (cdr guy-dot-backup))) (replace-node-contents guy backup))) backup-table))) (define (revbuilder-new) (box '())) (define (revbuilder-add rb new) (set-box! rb (cons new (unbox rb)))) (define (revbuilder-done rb) (reverse (unbox rb))) (define (arbitrary-root->canonical-form machine root-node) (let* ((old-transitions (list->vector (car machine))) (oldnew (make-table)) (seenit (make-table)) (count (make-counter)) (todo (make-queue)) (new-transitions (revbuilder-new))) (queue-push todo root-node) (let next () (let ((curnode (queue-pop todo))) (if (not (table-test oldnew curnode)) (begin (table-set! oldnew curnode (count)) (walk-list (vector-ref old-transitions curnode) (lambda (x) (queue-push todo x))))) (if (not (queue-empty? todo)) (next)))) (queue-push todo root-node) (let next () (let ((curnode (queue-pop todo))) (if (not (table-test seenit curnode)) (begin (table-set! seenit curnode #t) (let ((new-trans (revbuilder-new))) (walk-list (vector-ref old-transitions curnode) (lambda (x) (queue-push todo x) (revbuilder-add new-trans (table-lookup oldnew x)))) (revbuilder-add new-transitions (revbuilder-done new-trans))))) (if (not (queue-empty? todo)) (next)))) (let next ((new-acceptors '()) (old-acceptors (second machine))) (if (null? old-acceptors) (list (revbuilder-done new-transitions) (sort < new-acceptors)) (let ((check (table-test oldnew (car old-acceptors)))) (if check (let ((new (table-lookup oldnew (car old-acceptors)))) (next (cons new new-acceptors) (cdr old-acceptors))) (next new-acceptors (cdr old-acceptors)))))))) (define (dfa-tree->canonical-form start-node) (let ((seen (make-table)) (id-table (make-table)) (todo (make-queue)) (count (make-counter)) (transitions (revbuilder-new)) (acceptors (revbuilder-new))) ;; Allocate a universal rejecting state at position 0. ;; If it isn't used, it will be discarded at the end. (revbuilder-add transitions (make-list (unbox alphabet-size) 0)) (count) ; the root will now be at position 1. (queue-push todo start-node) (let next-node () (let ((curnode (queue-pop todo))) (if (not (table-test id-table (gloid curnode))) (begin (table-set! id-table (gloid curnode) (count)) (walk-children (lambda (x) (if (not (nondef? x)) (queue-push todo x))) curnode))) (if (not (queue-empty? todo)) (next-node)))) (queue-push todo start-node) (let next () (let ((curnode (queue-pop todo))) (if (not (table-test-and-set! seen (gloid curnode))) (begin (if (eq? 1 (state-label curnode)) (revbuilder-add acceptors (table-lookup id-table (gloid curnode)))) (let ((trans (revbuilder-new))) (walk-children (lambda (x) (if (nondef? x) ; absent children expressed by (revbuilder-add trans 0) ; transitions to rejecting state (begin (queue-push todo x) (revbuilder-add trans (table-lookup id-table (gloid x)))))) curnode) (revbuilder-add transitions (revbuilder-done trans)))))) (if (not (queue-empty? todo)) (next))) ;; Now we rearrange the machine so that the ;; the root is at position 0. (arbitrary-root->canonical-form (list (revbuilder-done transitions) (sort < (revbuilder-done acceptors))) 1))) (define (test file-name) (fancy-print-tree (greedily-collapse (build-tree-from-cform-file file-name)))) (test "train2000.cform") stalin-0.11/benchmarks/div-iter.sc0000600017435200151030000000205006671513667015576 0ustar qobiqobi;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: div.sc ;;; Description: DIV benchmarks ;;; Author: Richard Gabriel ;;; Created: 8-Apr-85 ;;; Modified: 19-Jul-85 18:28:01 (Bob Shaw) ;;; 23-Jul-87 (Will Clinger) ;;; 11-Apr-94 (Qobi) ;;; 31-Mar-98 (Qobi) ;;; Language: Scheme ;;; Status: Public Domain ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; DIV2 -- Benchmark which divides by 2 using lists of n ()'s. ;;; This file contains a recursive as well as an iterative test. (define (create-n n) (do ((n n (- n 1)) (a '() (cons '() a))) ((= n 0) a))) (define *ll* (create-n 200)) (define (iterative-div2 l) (do ((l l (cddr l)) (a '() (cons (car l) a))) ((null? l) a))) (define (test-1 l) (do ((i 300 (- i 1))) ((= i 0)) (iterative-div2 l) (iterative-div2 l) (iterative-div2 l) (iterative-div2 l))) ;;; note: The CREATE-N is not done multiple times. (do ((i 0 (+ i 1))) ((= i 1000)) (test-1 *ll*)) stalin-0.11/benchmarks/div-rec.sc0000600017435200151030000000206206671513667015407 0ustar qobiqobi;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: div.sc ;;; Description: DIV benchmarks ;;; Author: Richard Gabriel ;;; Created: 8-Apr-85 ;;; Modified: 19-Jul-85 18:28:01 (Bob Shaw) ;;; 23-Jul-87 (Will Clinger) ;;; 11-Apr-94 (Qobi) ;;; 31-Mar-98 (Qobi) ;;; Language: Scheme ;;; Status: Public Domain ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; DIV2 -- Benchmark which divides by 2 using lists of n ()'s. ;;; This file contains a recursive as well as an iterative test. (define (create-n n) (do ((n n (- n 1)) (a '() (cons '() a))) ((= n 0) a))) (define *ll* (create-n 200)) (define (recursive-div2 l) (cond ((null? l) '()) (else (cons (car l) (recursive-div2 (cddr l)))))) (define (test-2 l) (do ((i 300 (- i 1))) ((= i 0)) (recursive-div2 l) (recursive-div2 l) (recursive-div2 l) (recursive-div2 l))) ;;; note: The CREATE-N is not done multiple times. (do ((i 0 (+ i 1))) ((= i 1000)) (test-2 *ll*)) stalin-0.11/benchmarks/em-functional.sc0000600017435200151030000005131207244422137016605 0ustar qobiqobi;;; The constants are hardwired to be inexact for efficiency. ;;; begin Stalin (define make-model (primitive-procedure make-structure model 6)) (define model-pi (primitive-procedure structure-ref model 0)) (define model-mu (primitive-procedure structure-ref model 1)) (define model-sigma (primitive-procedure structure-ref model 2)) (define model-log-pi (primitive-procedure structure-ref model 3)) (define model-sigma-inverse (primitive-procedure structure-ref model 4)) (define model-log-determinant-sigma (primitive-procedure structure-ref model 5)) (define (void) ((lambda ()))) ;;; end Stalin ;;; begin Scheme->C (define make-model vector) (define (model-pi model) (vector-ref model 0)) (define (model-mu model) (vector-ref model 1)) (define (model-sigma model) (vector-ref model 2)) (define (model-log-pi model) (vector-ref model 3)) (define (model-sigma-inverse model) (vector-ref model 4)) (define (model-log-determinant-sigma model) (vector-ref model 5)) (define (panic s) (error 'panic s)) (define (void) #f) ;;; end Scheme->C ;;; begin Gambit-C (define-structure model pi mu sigma log-pi sigma-inverse log-determinant-sigma) (define (panic s) (error s)) ;;; end Gambit-C ;;; begin Bigloo (define make-model vector) (define (model-pi model) (vector-ref model 0)) (define (model-mu model) (vector-ref model 1)) (define (model-sigma model) (vector-ref model 2)) (define (model-log-pi model) (vector-ref model 3)) (define (model-sigma-inverse model) (vector-ref model 4)) (define (model-log-determinant-sigma model) (vector-ref model 5)) (define (panic s) (error s 'panic 'panic)) (define (void) #f) ;;; end Bigloo ;;; begin Chez (define make-model vector) (define (model-pi model) (vector-ref model 0)) (define (model-mu model) (vector-ref model 1)) (define (model-sigma model) (vector-ref model 2)) (define (model-log-pi model) (vector-ref model 3)) (define (model-sigma-inverse model) (vector-ref model 4)) (define (model-log-determinant-sigma model) (vector-ref model 5)) (define (panic s) (error 'panic s)) ;;; end Chez ;;; begin Chicken (define-record-type model pi mu sigma log-pi sigma-inverse log-determinant-sigma) (define (panic s) (error s)) ;;; end Chicken (define (hex-string->number s) (let loop ((s (string->list s)) (c 0)) (if (null? s) c (loop (cdr s) (+ (* 16 c) (if (char-numeric? (car s)) (- (char->integer (car s)) (char->integer #\0)) (+ (- (char->integer (car s)) (char->integer #\a)) 10))))))) ;;; The following code is a modified version of code taken from SLIB. ;;; Copyright (C) 1991, 1993 Aubrey Jaffer. ; ;Permission to copy this software, to redistribute it, and to use it ;for any purpose is granted, subject to the following restrictions and ;understandings. ; ;1. Any copy made of this software must include this copyright notice ;in full. ; ;2. I have made no warrantee or representation that the operation of ;this software will be error-free, and I am under no obligation to ;provide any services, by way of maintenance, update, or otherwise. ; ;3. In conjunction with products arising from the use of this ;material, there shall be no use of my name in any advertising, ;promotional, or sales literature without prior written consent in ;each case. (define *most-positive-fixnum* 65535) (define (logical:logxor n1 n2) (cond ((= n1 n2) 0) ((zero? n1) n2) ((zero? n2) n1) (else (+ (* (logical:logxor (logical:ash-4 n1) (logical:ash-4 n2)) 16) (vector-ref (vector-ref logical:boole-xor (modulo n1 16)) (modulo n2 16)))))) (define (logical:ash-4 x) (if (negative? x) (+ -1 (quotient (+ 1 x) 16)) (quotient x 16))) (define logical:boole-xor '#(#(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15) #(1 0 3 2 5 4 7 6 9 8 11 10 13 12 15 14) #(2 3 0 1 6 7 4 5 10 11 8 9 14 15 12 13) #(3 2 1 0 7 6 5 4 11 10 9 8 15 14 13 12) #(4 5 6 7 0 1 2 3 12 13 14 15 8 9 10 11) #(5 4 7 6 1 0 3 2 13 12 15 14 9 8 11 10) #(6 7 4 5 2 3 0 1 14 15 12 13 10 11 8 9) #(7 6 5 4 3 2 1 0 15 14 13 12 11 10 9 8) #(8 9 10 11 12 13 14 15 0 1 2 3 4 5 6 7) #(9 8 11 10 13 12 15 14 1 0 3 2 5 4 7 6) #(10 11 8 9 14 15 12 13 2 3 0 1 6 7 4 5) #(11 10 9 8 15 14 13 12 3 2 1 0 7 6 5 4) #(12 13 14 15 8 9 10 11 4 5 6 7 0 1 2 3) #(13 12 15 14 9 8 11 10 5 4 7 6 1 0 3 2) #(14 15 12 13 10 11 8 9 6 7 4 5 2 3 0 1) #(15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0))) (define random:tap 24) (define random:size 55) (define (random:size-int l) (let ((trial (hex-string->number (make-string l #\f)))) (if (and (exact? trial) (positive? trial) (>= *most-positive-fixnum* trial)) l (random:size-int (- l 1))))) (define random:chunk-size (* 4 (random:size-int 8))) (define random:MASK (hex-string->number (make-string (quotient random:chunk-size 4) #\f))) (define *random-state* '#()) (let ((random-strings '#("d909ef3e" "fd330ab3" "e33f7843" "76783fbd" "f3675fb3" "b54ef879" "0be45590" "a6794679" "0bcd56d3" "fabcdef8" "9cbd3efd" "3fd3efcd" "e064ef27" "dddecc08" "34444292" "85444454" "4c519210" "c0366273" "54734567" "70abcddc" "1bbdac53" "616c5a86" "a982efa9" "105996a0" "5f0cccba" "1ea055e1" "fe2acd8d" "1891c1d4" "e6690270" "6912bccc" "2678e141" "61222224" "907abcbb" "4ad6829b" "9cdd1404" "57798841" "5b892496" "871c9cd1" "d1e67bda" "8b0a3233" "578ef23f" "28274ef6" "823ef5ef" "845678c5" "e67890a5" "5890abcb" "851fa9ab" "13efa13a" "b12278d6" "daf805ab" "a0befc36" "0068a7b5" "e024fd90" "a7b690e2" "27f3571a" 0))) (set! *random-state* (make-vector (+ random:size 1) 0)) (let ((nibbles (quotient random:chunk-size 4))) (do ((i 0 (+ i 1))) ((= i random:size)) (vector-set! *random-state* i (hex-string->number (substring (vector-ref random-strings i) 0 nibbles)))))) ;;; random:chunk returns an integer in the range of ;;; 0 to (- (expt 2 random:chunk-size) 1) (define (random:chunk v) (let* ((p (vector-ref v random:size)) (ans (logical:logxor (vector-ref v (modulo (- p random:tap) random:size)) (vector-ref v p)))) (vector-set! v p ans) (vector-set! v random:size (modulo (- p 1) random:size)) ans)) (define (rand) (do ((ilen 0 (+ 1 ilen)) (s random:MASK (+ random:MASK (* (+ 1 random:MASK) s)))) ((>= s (- *most-positive-fixnum* 1)) (let ((slop (modulo (+ s (- 1 *most-positive-fixnum*)) *most-positive-fixnum*))) (let loop ((n ilen) (r (random:chunk *random-state*))) (cond ((not (zero? n)) (loop (+ -1 n) (+ (* r (+ 1 random:MASK)) (random:chunk *random-state*)))) ((>= r slop) (modulo r *most-positive-fixnum*)) (else (loop ilen (random:chunk *random-state*))))))))) ;;; End of code taken from SLIB (define log-math-precision 35.0) (define minus-infinity (log 0.0)) (define first car) (define second cadr) (define rest cdr) (define (for-each-n f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-from-a-up-to-b f a b) (let loop ((i a)) (if (< i b) (begin (f i) (loop (+ i 1)))))) (define (map-vector f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector-two f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) (vector-length v1)) u)) (define (reduce f l i) (cond ((null? l) i) ((null? (rest l)) (first l)) (else (let loop ((l (rest l)) (c (first l))) (if (null? l) c (loop (rest l) (f c (first l)))))))) (define (reduce-vector f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (every-n p n) (let loop ((i 0)) (or (>= i n) (and (p i) (loop (+ i 1)))))) (define (sum f n) (let loop ((n (- n 1)) (c 0.0)) (if (negative? n) c (loop (- n 1) (+ c (f n)))))) (define (dot u v) (reduce-vector + (map-vector-two * u v) 0.0)) (define (v+ u v) (map-vector-two + u v)) (define (v- u v) (map-vector-two - u v)) (define (k*v k u) (map-vector (lambda (x) (* k x)) u)) (define (add-exp e1 e2) (let* ((e-max (max e1 e2)) (e-min (min e1 e2)) (factor (floor e-min))) (if (= e-max minus-infinity) minus-infinity (if (> (- e-max factor) log-math-precision) e-max (+ (log (+ (exp (- e-max factor)) (exp (- e-min factor)))) factor))))) (define (map-n f n) ;; needs work: To eliminate REVERSE. (let loop ((i 0) (c '())) (if (< i n) (loop (+ i 1) (cons (f i) c)) (reverse c)))) (define (map-n-vector f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (remove-if-not p l) ;; needs work: To eliminate REVERSE. (let loop ((l l) (c '())) (cond ((null? l) (reverse c)) ((p (first l)) (loop (rest l) (cons (first l) c))) (else (loop (rest l) c))))) (define (positionv x l) (let loop ((l l) (i 0)) (cond ((null? l) #f) ((eqv? x (first l)) i) (else (loop (rest l) (+ i 1)))))) (define (make-matrix m n) (map-n-vector (lambda (i) (make-vector n)) m)) (define (make-matrix-initial m n initial) (map-n-vector (lambda (i) (make-vector n initial)) m)) (define (matrix-rows a) (vector-length a)) (define (matrix-columns a) (vector-length (vector-ref a 0))) (define (matrix-ref a i j) (vector-ref (vector-ref a i) j)) (define (matrix-set! a i j x) (vector-set! (vector-ref a i) j x)) (define (matrix-row-ref a i) (vector-ref a i)) (define (matrix-column-ref a j) (map-vector (lambda (v) (vector-ref v j)) a)) (define (matrix-row-set! a i v) (vector-set! a i v)) (define (m+ a b) (map-vector-two v+ a b)) (define (m- a b) (map-vector-two v- a b)) (define (m*v a v) (map-vector (lambda (u) (dot u v)) a)) (define (transpose a) (map-n-vector (lambda (j) (matrix-column-ref a j)) (matrix-columns a))) (define (outer-product f u v) (map-vector (lambda (ui) (map-vector (lambda (vj) (f ui vj)) v)) u)) (define (self-outer-product f v) (outer-product f v v)) (define (m* a b) (outer-product dot a (transpose b))) (define (k*m k m) (map-vector (lambda (row) (map-vector (lambda (e) (* k e)) row)) m)) (define (determinant a) (if (not (= (matrix-rows a) (matrix-columns a))) (panic "Can only find determinant of a square matrix")) (call-with-current-continuation (lambda (return) (let* ((n (matrix-rows a)) (b (make-matrix n n)) (d 1.0)) (for-each-n (lambda (i) (for-each-n (lambda (j) (matrix-set! b i j (matrix-ref a i j))) n)) n) (for-each-n (lambda (i) ;; partial pivoting reduces rounding errors (let ((greatest (abs (matrix-ref b i i))) (index i)) (for-each-from-a-up-to-b (lambda (j) (let ((x (abs (matrix-ref b j i)))) (if (> x greatest) (begin (set! index j) (set! greatest x))))) (+ i 1) n) (if (= greatest 0.0) (return 0.0)) (if (not (= index i)) (let ((v (matrix-row-ref b i))) (matrix-row-set! b i (matrix-row-ref b index)) (matrix-row-set! b index v) (set! d (- d)))) (let ((c (matrix-ref b i i))) (set! d (* d c)) (for-each-from-a-up-to-b (lambda (j) (matrix-set! b i j (/ (matrix-ref b i j) c))) i n) (for-each-from-a-up-to-b (lambda (j) (let ((e (matrix-ref b j i))) (for-each-from-a-up-to-b (lambda (k) (matrix-set! b j k (- (matrix-ref b j k) (* e (matrix-ref b i k))))) (+ i 1) n))) (+ i 1) n)))) n) d)))) (define (invert-matrix a) (if (not (= (matrix-rows a) (matrix-columns a))) (panic "Can only invert a square matrix")) (let* ((n (matrix-rows a)) (c (make-matrix n n)) (b (make-matrix-initial n n 0.0))) (for-each-n (lambda (i) (for-each-n (lambda (j) (matrix-set! c i j (matrix-ref a i j))) n)) n) (for-each-n (lambda (i) (matrix-set! b i i 1.0)) n) (for-each-n (lambda (i) (if (zero? (matrix-ref c i i)) (call-with-current-continuation (lambda (return) (for-each-n (lambda (j) (if (and (> j i) (not (zero? (matrix-ref c j i)))) (begin (let ((e (vector-ref c i))) (vector-set! c i (vector-ref c j)) (vector-set! c j e)) (let ((e (vector-ref b i))) (vector-set! b i (vector-ref b j)) (vector-set! b j e)) (return (void))))) n) (panic "Matrix is singular")))) (let ((d (/ (matrix-ref c i i)))) (for-each-n (lambda (j) (matrix-set! c i j (* d (matrix-ref c i j))) (matrix-set! b i j (* d (matrix-ref b i j)))) n) (for-each-n (lambda (k) (let ((d (- (matrix-ref c k i)))) (if (not (= k i)) (for-each-n (lambda (j) (matrix-set! c k j (+ (matrix-ref c k j) (* d (matrix-ref c i j)))) (matrix-set! b k j (+ (matrix-ref b k j) (* d (matrix-ref b i j))))) n)))) n))) n) b)) (define (jacobi a) (if (not (and (= (matrix-rows a) (matrix-columns a)) (every-n (lambda (i) (every-n (lambda (j) (= (matrix-ref a i j) (matrix-ref a j i))) (matrix-rows a))) (matrix-rows a)))) (panic "Can only compute eigenvalues/eigenvectors of a symmetric matrix")) (let* ((a (map-vector (lambda (row) (map-vector (lambda (x) x) row)) a)) (n (matrix-rows a)) (d (make-vector n)) (v (make-matrix-initial n n 0.0)) (b (make-vector n)) (z (make-vector n 0.0))) (for-each-n (lambda (ip) (matrix-set! v ip ip 1.0) (vector-set! b ip (matrix-ref a ip ip)) (vector-set! d ip (matrix-ref a ip ip))) n) (let loop ((i 0)) (if (> i 50) (panic "Too many iterations in JACOBI")) (let ((sm (sum (lambda (ip) (sum (lambda (ir) (let ((iq (+ ip ir 1))) (abs (matrix-ref a ip iq)))) (- n ip 1))) (- n 1)))) (if (not (zero? sm)) (begin (let ((tresh (if (< i 3) (/ (* 0.2 sm) (* n n)) 0.0))) (for-each-n (lambda (ip) (for-each-n (lambda (ir) (let* ((iq (+ ip ir 1)) (g (* 100.0 (abs (matrix-ref a ip iq))))) (cond ((and (> i 3) (= (+ (abs (vector-ref d ip)) g) (abs (vector-ref d ip))) (= (+ (abs (vector-ref d iq)) g) (abs (vector-ref d iq)))) (matrix-set! a ip iq 0.0)) ((> (abs (matrix-ref a ip iq)) tresh) (let* ((h (- (vector-ref d iq) (vector-ref d ip))) (t (if (= (+ (abs h) g) (abs h)) (/ (matrix-ref a ip iq) h) (let ((theta (/ (* 0.5 h) (matrix-ref a ip iq)))) (if (negative? theta) (- (/ (+ (abs theta) (sqrt (+ (* theta theta) 1.0))))) (/ (+ (abs theta) (sqrt (+ (* theta theta) 1.0)))))))) (c (/ (sqrt (+ (* t t) 1.0)))) (s (* t c)) (tau (/ s (+ c 1.0))) (h (* t (matrix-ref a ip iq)))) (define (rotate a i j k l) (let ((g (matrix-ref a i j)) (h (matrix-ref a k l))) (matrix-set! a i j (- g (* s (+ h (* g tau))))) (matrix-set! a k l (+ h (* s (- g (* h tau))))))) (vector-set! z ip (- (vector-ref z ip) h)) (vector-set! z iq (+ (vector-ref z iq) h)) (vector-set! d ip (- (vector-ref d ip) h)) (vector-set! d iq (+ (vector-ref d iq) h)) (matrix-set! a ip iq 0.0) (for-each-n (lambda (j) (cond ((< j ip) (rotate a j ip j iq)) ((< ip j iq) (rotate a ip j j iq)) ((< iq j) (rotate a ip j iq j))) (rotate v j ip j iq)) n)))))) (- n ip 1))) (- n 1))) (for-each-n (lambda (ip) (vector-set! b ip (+ (vector-ref b ip) (vector-ref z ip))) (vector-set! d ip (vector-ref b ip)) (vector-set! z ip 0.0)) n) (loop (+ i 1)))))) (for-each-n (lambda (i) (let ((k i) (p (vector-ref d i))) (for-each-n (lambda (l) (let* ((j (+ i l 1))) (if (>= (vector-ref d j) p) (begin (set! k j) (set! p (vector-ref d j)))))) (- n i 1)) (if (not (= k i)) (begin (vector-set! d k (vector-ref d i)) (vector-set! d i p) (for-each-n (lambda (j) (let ((p (matrix-ref v j i))) (matrix-set! v j i (matrix-ref v j k)) (matrix-set! v j k p))) n))))) (- n 1)) (list d (transpose v)))) (define (vector->diagonal-matrix v) (let ((m (make-matrix-initial (vector-length v) (vector-length v) 0.0))) (for-each-n (lambda (i) (matrix-set! m i i (vector-ref v i))) (vector-length v)) m)) (define (clip-eigenvalues a v) (let* ((j (jacobi a)) (e (second j))) (m* (transpose e) (m* (vector->diagonal-matrix (map-vector-two max v (first j))) e)))) ;;; EM (define (e-step x models) (let ((z (map-vector (lambda (xi) ;; Compute for each model. (map-vector (lambda (model) (let ((log-pi (model-log-pi model)) (mu (model-mu model)) (sigma-inverse (model-sigma-inverse model)) (log-determinant-sigma (model-log-determinant-sigma model))) ;; Compute likelihoods (note: up to constant for all models). (- log-pi (* 0.5 (+ log-determinant-sigma (dot (v- xi mu) (m*v sigma-inverse (v- xi mu)))))))) models)) x))) ;; Normalize ownerships to sum to one. (let ((s (map-vector (lambda (zi) (reduce-vector add-exp zi minus-infinity)) z))) ;; Return log likelihood and ownerships matrix. (list (reduce-vector + s 0.0) (map-vector (lambda (zi) (map-vector exp zi)) (m- z (transpose (make-vector (matrix-columns z) s)))))))) (define (m-step x z clip) ;; Returns new set of models. (let* ((ii (vector-length x)) (kk (vector-length (vector-ref x 0)))) ;; For each model, optimize parameters. (map-n-vector (lambda (j) (let* ((zj (matrix-column-ref z j)) (zj-sum (reduce-vector + zj 0.0)) ;; Optimize values. (mu (k*v (/ zj-sum) (reduce-vector v+ (map-vector-two k*v zj x) (make-vector kk 0.0)))) (sigma (clip-eigenvalues (k*m (/ zj-sum) (reduce-vector m+ (map-vector-two (lambda (zij xi) (k*m zij (self-outer-product * (v- xi mu)))) zj x) (make-matrix-initial kk kk 0.0))) clip))) (make-model (/ zj-sum ii) mu sigma (log (/ zj-sum ii)) (invert-matrix sigma) (log (determinant sigma))))) (matrix-columns z)))) (define (em x pi mu sigma clip em-kick-off-tolerance em-convergence-tolerance) (let ((jj (vector-length mu))) (let loop ((models (map-n-vector (lambda (j) (make-model (vector-ref pi j) (vector-ref mu j) (vector-ref sigma j) (log (vector-ref pi j)) (invert-matrix (vector-ref sigma j)) (log (determinant (vector-ref sigma j))))) jj)) (old-log-likelihood minus-infinity) (starting? #t)) (let ((log-likelihood-z (e-step x models))) (if (or (and starting? (> (first log-likelihood-z) old-log-likelihood)) (> (first log-likelihood-z) (+ old-log-likelihood em-convergence-tolerance))) (loop (m-step x (second log-likelihood-z) clip) (first log-likelihood-z) (and starting? (not (= jj 1)) (or (= old-log-likelihood minus-infinity) (< (first log-likelihood-z) (+ old-log-likelihood em-kick-off-tolerance))))) (list old-log-likelihood models)))))) (define (noise epsilon) (- (* 2.0 epsilon (/ (exact->inexact (rand)) *most-positive-fixnum*)) epsilon)) (define (initial-z ii jj) (map-n-vector (lambda (i) (let ((zi (map-n-vector (lambda (j) (+ (/ (exact->inexact jj)) (noise (/ (exact->inexact jj))))) jj))) (k*v (/ (reduce-vector + zi 0.0)) zi))) ii)) (define (ems x clip em-kick-off-tolerance em-convergence-tolerance ems-convergence-tolerance) (let loop ((jj 1) ;; needs work: Should replace #F with ((LAMBDA ())). (old-log-likelihood-models (list minus-infinity #f))) (let* ((models (m-step x (initial-z (vector-length x) jj) clip)) (new-log-likelihood-models (em x (map-vector model-pi models) (map-vector model-mu models) (map-vector model-sigma models) clip em-kick-off-tolerance em-convergence-tolerance))) (if (> (- (/ (first old-log-likelihood-models) (first new-log-likelihood-models)) 1.0) ems-convergence-tolerance) (loop (+ jj 1) new-log-likelihood-models) (second old-log-likelihood-models))))) (define (em-clusterer x clip em-kick-off-tolerance em-convergence-tolerance ems-convergence-tolerance) (let* ((z (second (e-step x (ems x clip em-kick-off-tolerance em-convergence-tolerance ems-convergence-tolerance)))) (clusters (map-n (lambda (i) (let ((zi (vector->list (vector-ref z i)))) (list i (positionv (reduce max zi minus-infinity) zi)))) (vector-length z)))) (map-n (lambda (j) (map (lambda (cluster) (vector-ref x (first cluster))) (remove-if-not (lambda (cluster) (= (second cluster) j)) clusters))) (vector-length (vector-ref z 0))))) (do ((i 0 (+ i 1))) ((= i 100)) (write (em-clusterer '#(#(1.0) #(2.0) #(3.0) #(11.0) #(12.0) #(13.0)) '#(1.0) 10.0 1.0 0.01)) (newline)) stalin-0.11/benchmarks/dynamic.sc0000600017435200151030000020634507244422151015474 0ustar qobiqobi;;; begin Scheme->C (define (panic s) (error 'panic s)) ;;; end Scheme->C ;;; begin Gambit-C (define (panic s) (error s)) ;;; end Gambit-C ;;; begin Bigloo (define (panic s) (error s 'panic 'panic)) ;;; end Bigloo ;;; begin Chez (define (panic s) (error 'panic s)) ;;; end Chez ;;; begin Chicken (define (panic s) (error s)) ;;; end Chicken (define (run-benchmark name count run ok?) (if (not (ok? (run-bench name count run ok?))) (begin (display "*** wrong result ***") (newline)) (begin (display "*** right result ***") (newline)))) (define (run-bench name count run ok?) (let loop ((i 0) (result (list 'undefined))) (if (< i count) (loop (+ i 1) (run)) result))) ;;; This benchmark was obtained from Andrew Wright, ;;; based on Fritz Henglein's code. ;;; 970215 / wdc Removed most i/o and added dynamic-benchmark. ;;; 990319 / wdc Improved dynamic-benchmark. (define (dynamic-benchmark . rest) (let ((n (if (null? rest) 1 (car rest)))) (run-benchmark "dynamic" n doit (lambda (counters) (equal? counters '((218 . 459) (6 . 1909) (2209 . 460))))))) ;;; Fritz's dynamic type inferencer, set up to run on itself ;;; (see the end of this file). ;;;---------------------------------------------------------------------------- ;;; Environment management ;;;---------------------------------------------------------------------------- ;;; environments are lists of pairs, the first component being the key ;;; general environment operations ;;; ;;; empty-env: Env ;;; gen-binding: Key x Value -> Binding ;;; binding-key: Binding -> Key ;;; binding-value: Binding -> Value ;;; binding-show: Binding -> Symbol* ;;; extend-env-with-binding: Env x Binding -> Env ;;; extend-env-with-env: Env x Env -> Env ;;; lookup: Key x Env -> (Binding + False) ;;; env->list: Env -> Binding* ;;; env-show: Env -> Symbol* ;;; bindings (define gen-binding cons) ;;; generates a type binding, binding a symbol to a type variable (define binding-key car) ;;; returns the key of a type binding (define binding-value cdr) ;;; returns the tvariable of a type binding (define (key-show key) ;; default show procedure for keys key) (define (value-show value) ;; default show procedure for values value) (define (binding-show binding) ;; returns a printable representation of a type binding (cons (key-show (binding-key binding)) (cons ': (value-show (binding-value binding))))) ;;; environments (define dynamic-empty-env '()) ;;; returns the empty environment (define (extend-env-with-binding env binding) ;; extends env with a binding, which hides any other binding in env ;; for the same key (see dynamic-lookup) ;; returns the extended environment (cons binding env)) (define (extend-env-with-env env ext-env) ;; extends environment env with environment ext-env ;; a binding for a key in ext-env hides any binding in env for ;; the same key (see dynamic-lookup) ;; returns the extended environment (append ext-env env)) (define dynamic-lookup (lambda (x l) (assv x l))) ;;; returns the first pair in env that matches the key; returns #f ;;; if no such pair exists (define (env->list e) ;; converts an environment to a list of bindings e) (define (env-show env) ;; returns a printable list representation of a type environment (map binding-show env)) ;;;---------------------------------------------------------------------------- ;;; Parsing for Scheme ;;;---------------------------------------------------------------------------- ;;; Needed packages: environment management ;;; Lexical notions (define syntactic-keywords ;; source: IEEE Scheme, 7.1, , '(lambda if set! begin cond and or case let let* letrec do quasiquote else => define unquote unquote-splicing)) ;;; Parse routines ;;; Datum ;;; dynamic-parse-datum: parses nonterminal (define (dynamic-parse-datum e) ;; Source: IEEE Scheme, sect. 7.2, ;; Note: "'" is parsed as 'quote, "`" as 'quasiquote, "," as ;; 'unquote, ",@" as 'unquote-splicing (see sect. 4.2.5, p. 18) ;; ***Note***: quasi-quotations are not permitted! (It would be ;; necessary to pass the environment to dynamic-parse-datum.) (cond ((null? e) (dynamic-parse-action-null-const)) ((boolean? e) (dynamic-parse-action-boolean-const e)) ((char? e) (dynamic-parse-action-char-const e)) ((number? e) (dynamic-parse-action-number-const e)) ((string? e) (dynamic-parse-action-string-const e)) ((symbol? e) (dynamic-parse-action-symbol-const e)) ((vector? e) (dynamic-parse-action-vector-const (map dynamic-parse-datum (vector->list e)))) ((pair? e) (dynamic-parse-action-pair-const (dynamic-parse-datum (car e)) (dynamic-parse-datum (cdr e)))) (else (panic "Unknown datum: ~s")))) ;;; VarDef ;;; dynamic-parse-formal: parses nonterminal in defining occurrence ;;; position (define (dynamic-parse-formal f-env e) ;; e is an arbitrary object, f-env is a forbidden environment; ;; returns: a variable definition (a binding for the symbol), plus ;; the value of the binding as a result (if (symbol? e) (cond ((memq e syntactic-keywords) (panic "Illegal identifier (keyword): ~s")) ((dynamic-lookup e f-env) (panic "Duplicate variable definition: ~s")) (else (let ((dynamic-parse-action-result (dynamic-parse-action-var-def e))) (cons (gen-binding e dynamic-parse-action-result) dynamic-parse-action-result)))) (panic "Not an identifier: ~s"))) ;;; dynamic-parse-formal* (define (dynamic-parse-formal* formals) ;; parses a list of formals and returns a pair consisting of generated ;; environment and list of parsing action results (letrec ((pf* (lambda (f-env results formals) ;; f-env: "forbidden" environment (to avoid duplicate defs) ;; results: the results of the parsing actions ;; formals: the unprocessed formals ;; Note: generates the results of formals in reverse order! (cond ((null? formals) (cons f-env results)) ((pair? formals) (let* ((fst-formal (car formals)) (binding-result (dynamic-parse-formal f-env fst-formal)) (binding (car binding-result)) (var-result (cdr binding-result))) (pf* (extend-env-with-binding f-env binding) (cons var-result results) (cdr formals)))) (else (panic "Illegal formals: ~s")))))) (let ((renv-rres (pf* dynamic-empty-env '() formals))) (cons (car renv-rres) (reverse (cdr renv-rres)))))) ;;; dynamic-parse-formals: parses (define (dynamic-parse-formals formals) ;; parses ; see IEEE Scheme, sect. 7.3 ;; returns a pair: env and result (letrec ((pfs (lambda (f-env formals) (cond ((null? formals) (cons dynamic-empty-env (dynamic-parse-action-null-formal))) ((pair? formals) (let* ((fst-formal (car formals)) (rem-formals (cdr formals)) (bind-res (dynamic-parse-formal f-env fst-formal)) (bind (car bind-res)) (res (cdr bind-res)) (nf-env (extend-env-with-binding f-env bind)) (renv-res* (pfs nf-env rem-formals)) (renv (car renv-res*)) (res* (cdr renv-res*))) (cons (extend-env-with-binding renv bind) (dynamic-parse-action-pair-formal res res*)))) (else (let* ((bind-res (dynamic-parse-formal f-env formals)) (bind (car bind-res)) (res (cdr bind-res))) (cons (extend-env-with-binding dynamic-empty-env bind) res))))))) (pfs dynamic-empty-env formals))) ;;; Expr ;;; dynamic-parse-expression: parses nonterminal (define (dynamic-parse-expression env e) (cond ((symbol? e) (dynamic-parse-variable env e)) ((pair? e) (let ((op (car e)) (args (cdr e))) (case op ((quote) (dynamic-parse-quote env args)) ((lambda) (dynamic-parse-lambda env args)) ((if) (dynamic-parse-if env args)) ((set!) (dynamic-parse-set env args)) ((begin) (dynamic-parse-begin env args)) ((cond) (dynamic-parse-cond env args)) ((case) (dynamic-parse-case env args)) ((and) (dynamic-parse-and env args)) ((or) (dynamic-parse-or env args)) ((let) (dynamic-parse-let env args)) ((let*) (dynamic-parse-let* env args)) ((letrec) (dynamic-parse-letrec env args)) ((do) (dynamic-parse-do env args)) ((quasiquote) (dynamic-parse-quasiquote env args)) (else (dynamic-parse-procedure-call env op args))))) (else (dynamic-parse-datum e)))) ;;; dynamic-parse-expression* (define (dynamic-parse-expression* env exprs) ;; Parses lists of expressions (returns them in the right order!) (letrec ((pe* (lambda (results es) (cond ((null? es) results) ((pair? es) (pe* (cons (dynamic-parse-expression env (car es)) results) (cdr es))) (else (panic "Not a list of expressions: ~s")))))) (reverse (pe* '() exprs)))) ;;; dynamic-parse-expressions (define (dynamic-parse-expressions env exprs) ;; parses lists of arguments of a procedure call (cond ((null? exprs) (dynamic-parse-action-null-arg)) ((pair? exprs) (let* ((fst-expr (car exprs)) (rem-exprs (cdr exprs)) (fst-res (dynamic-parse-expression env fst-expr)) (rem-res (dynamic-parse-expressions env rem-exprs))) (dynamic-parse-action-pair-arg fst-res rem-res))) (else (panic "Illegal expression list: ~s")))) ;;; dynamic-parse-variable: parses variables (applied occurrences) (define (dynamic-parse-variable env e) (if (symbol? e) (if (memq e syntactic-keywords) (panic "Illegal identifier (keyword): ~s") (let ((assoc-var-def (dynamic-lookup e env))) (if assoc-var-def (dynamic-parse-action-variable (binding-value assoc-var-def)) (dynamic-parse-action-identifier e)))) (panic "Not an identifier: ~s"))) ;;; dynamic-parse-procedure-call (define (dynamic-parse-procedure-call env op args) (dynamic-parse-action-procedure-call (dynamic-parse-expression env op) (dynamic-parse-expressions env args))) ;;; dynamic-parse-quote (define (dynamic-parse-quote env args) (if (list-of-1? args) (dynamic-parse-datum (car args)) (panic "Not a datum (multiple arguments): ~s"))) ;;; dynamic-parse-lambda (define (dynamic-parse-lambda env args) (if (pair? args) (let* ((formals (car args)) (body (cdr args)) (nenv-fresults (dynamic-parse-formals formals)) (nenv (car nenv-fresults)) (fresults (cdr nenv-fresults))) (dynamic-parse-action-lambda-expression fresults (dynamic-parse-body (extend-env-with-env env nenv) body))) (panic "Illegal formals/body: ~s"))) ;;; dynamic-parse-body (define (dynamic-parse-body env body) ;; = * + (define (def-var* f-env body) ;; finds the defined variables in a body and returns an ;; environment containing them (if (pair? body) (let ((n-env (def-var f-env (car body)))) (if n-env (def-var* n-env (cdr body)) f-env)) f-env)) (define (def-var f-env clause) ;; finds the defined variables in a single clause and extends ;; f-env accordingly; returns false if it's not a definition (if (pair? clause) (case (car clause) ((define) (if (pair? (cdr clause)) (let ((pattern (cadr clause))) (cond ((symbol? pattern) (extend-env-with-binding f-env (gen-binding pattern (dynamic-parse-action-var-def pattern)))) ((and (pair? pattern) (symbol? (car pattern))) (extend-env-with-binding f-env (gen-binding (car pattern) (dynamic-parse-action-var-def (car pattern))))) (else f-env))) f-env)) ((begin) (def-var* f-env (cdr clause))) (else #f)) #f)) (if (pair? body) (dynamic-parse-command* (def-var* env body) body) (panic "Illegal body: ~s"))) ;;; dynamic-parse-if (define (dynamic-parse-if env args) (cond ((list-of-3? args) (dynamic-parse-action-conditional (dynamic-parse-expression env (car args)) (dynamic-parse-expression env (cadr args)) (dynamic-parse-expression env (caddr args)))) ((list-of-2? args) (dynamic-parse-action-conditional (dynamic-parse-expression env (car args)) (dynamic-parse-expression env (cadr args)) (dynamic-parse-action-empty))) (else (panic "Not an if-expression: ~s")))) ;;; dynamic-parse-set (define (dynamic-parse-set env args) (if (list-of-2? args) (dynamic-parse-action-assignment (dynamic-parse-variable env (car args)) (dynamic-parse-expression env (cadr args))) (panic "Not a variable/expression pair: ~s"))) ;;; dynamic-parse-begin (define (dynamic-parse-begin env args) (dynamic-parse-action-begin-expression (dynamic-parse-body env args))) ;;; dynamic-parse-cond (define (dynamic-parse-cond env args) (if (and (pair? args) (list? args)) (dynamic-parse-action-cond-expression (map (lambda (e) (dynamic-parse-cond-clause env e)) args)) (panic "Not a list of cond-clauses: ~s"))) ;;; dynamic-parse-cond-clause (define (dynamic-parse-cond-clause env e) ;; ***Note***: Only ( ) is permitted! (if (pair? e) (cons (if (eqv? (car e) 'else) (dynamic-parse-action-empty) (dynamic-parse-expression env (car e))) (dynamic-parse-body env (cdr e))) (panic "Not a cond-clause: ~s"))) ;;; dynamic-parse-and (define (dynamic-parse-and env args) (if (list? args) (dynamic-parse-action-and-expression (dynamic-parse-expression* env args)) (panic "Not a list of arguments: ~s"))) ;;; dynamic-parse-or (define (dynamic-parse-or env args) (if (list? args) (dynamic-parse-action-or-expression (dynamic-parse-expression* env args)) (panic "Not a list of arguments: ~s"))) ;;; dynamic-parse-case (define (dynamic-parse-case env args) (if (and (list? args) (> (length args) 1)) (dynamic-parse-action-case-expression (dynamic-parse-expression env (car args)) (map (lambda (e) (dynamic-parse-case-clause env e)) (cdr args))) (panic "Not a list of clauses: ~s"))) ;;; dynamic-parse-case-clause (define (dynamic-parse-case-clause env e) (if (pair? e) (cons (cond ((eqv? (car e) 'else) (list (dynamic-parse-action-empty))) ((list? (car e)) (map dynamic-parse-datum (car e))) (else (panic "Not a datum list: ~s"))) (dynamic-parse-body env (cdr e))) (panic "Not case clause: ~s"))) ;;; dynamic-parse-let (define (dynamic-parse-let env args) (if (pair? args) (if (symbol? (car args)) (dynamic-parse-named-let env args) (dynamic-parse-normal-let env args)) (panic "Illegal bindings/body: ~s"))) ;;; dynamic-parse-normal-let (define (dynamic-parse-normal-let env args) ;; parses "normal" let-expressions (let* ((bindings (car args)) (body (cdr args)) (env-ast (dynamic-parse-parallel-bindings env bindings)) (nenv (car env-ast)) (bresults (cdr env-ast))) (dynamic-parse-action-let-expression bresults (dynamic-parse-body (extend-env-with-env env nenv) body)))) ;;; dynamic-parse-named-let (define (dynamic-parse-named-let env args) ;; parses a named let-expression (if (pair? (cdr args)) (let* ((variable (car args)) (bindings (cadr args)) (body (cddr args)) (vbind-vres (dynamic-parse-formal dynamic-empty-env variable)) (vbind (car vbind-vres)) (vres (cdr vbind-vres)) (env-ast (dynamic-parse-parallel-bindings env bindings)) (nenv (car env-ast)) (bresults (cdr env-ast))) (dynamic-parse-action-named-let-expression vres bresults (dynamic-parse-body (extend-env-with-env (extend-env-with-binding env vbind) nenv) body))) (panic "Illegal named let-expression: ~s"))) ;;; dynamic-parse-parallel-bindings (define (dynamic-parse-parallel-bindings env bindings) ;; returns a pair consisting of an environment ;; and a list of pairs (variable . asg) ;; ***Note***: the list of pairs is returned in reverse unzipped form! (if (list-of-list-of-2s? bindings) (let* ((env-formals-asg (dynamic-parse-formal* (map car bindings))) (nenv (car env-formals-asg)) (bresults (cdr env-formals-asg)) (exprs-asg (dynamic-parse-expression* env (map cadr bindings)))) (cons nenv (cons bresults exprs-asg))) (panic "Not a list of bindings: ~s"))) ;;; dynamic-parse-let* (define (dynamic-parse-let* env args) (if (pair? args) (let* ((bindings (car args)) (body (cdr args)) (env-ast (dynamic-parse-sequential-bindings env bindings)) (nenv (car env-ast)) (bresults (cdr env-ast))) (dynamic-parse-action-let*-expression bresults (dynamic-parse-body (extend-env-with-env env nenv) body))) (panic "Illegal bindings/body: ~s"))) ;;; dynamic-parse-sequential-bindings (define (dynamic-parse-sequential-bindings env bindings) ;; returns a pair consisting of an environment ;; and a list of pairs (variable . asg) ;; ***Note***: the list of pairs is returned in reverse unzipped form! (letrec ((psb (lambda (f-env c-env var-defs expr-asgs binds) ;; f-env: forbidden environment ;; c-env: constructed environment ;; var-defs: results of formals ;; expr-asgs: results of corresponding expressions ;; binds: reminding bindings to process (cond ((null? binds) (cons f-env (cons var-defs expr-asgs))) ((pair? binds) (let ((fst-bind (car binds))) (if (list-of-2? fst-bind) (let* ((fbinding-bres (dynamic-parse-formal f-env (car fst-bind))) (fbind (car fbinding-bres)) (bres (cdr fbinding-bres)) (new-expr-asg (dynamic-parse-expression c-env (cadr fst-bind)))) (psb (extend-env-with-binding f-env fbind) (extend-env-with-binding c-env fbind) (cons bres var-defs) (cons new-expr-asg expr-asgs) (cdr binds))) (panic "Illegal binding: ~s")))) (else (panic "Illegal bindings: ~s")))))) (let ((env-vdefs-easgs (psb dynamic-empty-env env '() '() bindings))) (cons (car env-vdefs-easgs) (cons (reverse (cadr env-vdefs-easgs)) (reverse (cddr env-vdefs-easgs))))))) ;;; dynamic-parse-letrec (define (dynamic-parse-letrec env args) (if (pair? args) (let* ((bindings (car args)) (body (cdr args)) (env-ast (dynamic-parse-recursive-bindings env bindings)) (nenv (car env-ast)) (bresults (cdr env-ast))) (dynamic-parse-action-letrec-expression bresults (dynamic-parse-body (extend-env-with-env env nenv) body))) (panic "Illegal bindings/body: ~s"))) ;;; dynamic-parse-recursive-bindings (define (dynamic-parse-recursive-bindings env bindings) ;; ***Note***: the list of pairs is returned in reverse unzipped form! (if (list-of-list-of-2s? bindings) (let* ((env-formals-asg (dynamic-parse-formal* (map car bindings))) (formals-env (car env-formals-asg)) (formals-res (cdr env-formals-asg)) (exprs-asg (dynamic-parse-expression* (extend-env-with-env env formals-env) (map cadr bindings)))) (cons formals-env (cons formals-res exprs-asg))) (panic "Illegal bindings: ~s"))) ;;; dynamic-parse-do (define (dynamic-parse-do env args) ;; parses do-expressions ;; ***Note***: Not implemented! (panic "Nothing yet...")) ;;; dynamic-parse-quasiquote (define (dynamic-parse-quasiquote env args) ;; ***Note***: Not implemented! (panic "Nothing yet...")) ;;; Command ;;; dynamic-parse-command (define (dynamic-parse-command env c) (if (pair? c) (let ((op (car c)) (args (cdr c))) (case op ((define) (dynamic-parse-define env args)) ((begin) (dynamic-parse-action-begin-expression (dynamic-parse-command* env args))) (else (dynamic-parse-expression env c)))) (dynamic-parse-expression env c))) ;;; dynamic-parse-command* (define (dynamic-parse-command* env commands) ;; parses a sequence of commands (if (list? commands) (map (lambda (command) (dynamic-parse-command env command)) commands) (panic "Invalid sequence of commands: ~s"))) ;;; dynamic-parse-define (define (dynamic-parse-define env args) ;; three cases -- see IEEE Scheme, sect. 5.2 ;; ***Note***: the parser admits forms (define (x . y) ...) ;; ***Note***: Variables are treated as applied occurrences! (if (pair? args) (let ((pattern (car args)) (exp-or-body (cdr args))) (cond ((symbol? pattern) (if (list-of-1? exp-or-body) (dynamic-parse-action-definition (dynamic-parse-variable env pattern) (dynamic-parse-expression env (car exp-or-body))) (panic "Not a single expression: ~s"))) ((pair? pattern) (let* ((function-name (car pattern)) (function-arg-names (cdr pattern)) (env-ast (dynamic-parse-formals function-arg-names)) (formals-env (car env-ast)) (formals-ast (cdr env-ast))) (dynamic-parse-action-function-definition (dynamic-parse-variable env function-name) formals-ast (dynamic-parse-body (extend-env-with-env env formals-env) exp-or-body)))) (else (panic "Not a valid pattern: ~s")))) (panic "Not a valid definition: ~s"))) ;;; Auxiliary routines ;;; forall? (define (forall? pred list) (if (null? list) #t (and (pred (car list)) (forall? pred (cdr list))))) ;;; list-of-1? (define (list-of-1? l) (and (pair? l) (null? (cdr l)))) ;;; list-of-2? (define (list-of-2? l) (and (pair? l) (pair? (cdr l)) (null? (cddr l)))) ;;; list-of-3? (define (list-of-3? l) (and (pair? l) (pair? (cdr l)) (pair? (cddr l)) (null? (cdddr l)))) ;;; list-of-list-of-2s? (define (list-of-list-of-2s? e) (cond ((null? e) #t) ((pair? e) (and (list-of-2? (car e)) (list-of-list-of-2s? (cdr e)))) (else #f))) ;;; File processing ;;; dynamic-parse-from-port (define (dynamic-parse-from-port port) (let ((next-input (read port))) (if (eof-object? next-input) '() (dynamic-parse-action-commands (dynamic-parse-command dynamic-empty-env next-input) (dynamic-parse-from-port port))))) ;;; dynamic-parse-file (define (dynamic-parse-file file-name) (let ((input-port (open-input-file file-name))) (dynamic-parse-from-port input-port))) ;;;---------------------------------------------------------------------------- ;;; Implementation of Union/find data structure in Scheme ;;;---------------------------------------------------------------------------- ;;; for union/find the following attributes are necessary: rank, parent ;;; (see Tarjan, "Data structures and network algorithms", 1983) ;;; In the Scheme realization an element is represented as a single ;;; cons cell; its address is the element itself; the car field contains ;;; the parent, the cdr field is an address for a cons ;;; cell containing the rank (car field) and the information (cdr field) ;;; general union/find data structure ;;; ;;; gen-element: Info -> Elem ;;; find: Elem -> Elem ;;; link: Elem! x Elem! -> Elem ;;; asymm-link: Elem! x Elem! -> Elem ;;; info: Elem -> Info ;;; set-info!: Elem! x Info -> Void (define (gen-element info) ;; generates a new element: the parent field is initialized to '(), ;; the rank field to 0 (cons '() (cons 0 info))) (define info (lambda (l) (cddr l))) ;;; returns the information stored in an element (define (set-info! elem info) ;; sets the info-field of elem to info (set-cdr! (cdr elem) info)) (define (find! elem) ;; finds the class representative of elem and sets the parent field ;; directly to the class representative (a class representative has ;; '() as its parent) (let ((p-elem (car elem))) (if (null? p-elem) elem (let ((rep-elem (find! p-elem))) (set-car! elem rep-elem) rep-elem)))) (define (link! elem-1 elem-2) ;; links class elements by rank ;; they must be distinct class representatives ;; returns the class representative of the merged equivalence classes (let ((rank-1 (cadr elem-1)) (rank-2 (cadr elem-2))) (cond ((= rank-1 rank-2) (set-car! (cdr elem-2) (+ rank-2 1)) (set-car! elem-1 elem-2) elem-2) ((> rank-1 rank-2) (set-car! elem-2 elem-1) elem-1) (else (set-car! elem-1 elem-2) elem-2)))) (define asymm-link! (lambda (l x) (set-car! l x))) ;;;---------------------------------------------------------------------------- ;;; Type management ;;;---------------------------------------------------------------------------- ;;; introduces type variables and types for Scheme, ;;; type TVar (type variables) ;;; ;;; gen-tvar: () -> TVar ;;; gen-type: TCon x TVar* -> TVar ;;; dynamic: TVar ;;; tvar-id: TVar -> Symbol ;;; tvar-def: TVar -> Type + Null ;;; tvar-show: TVar -> Symbol* ;;; ;;; set-def!: !TVar x TCon x TVar* -> Null ;;; equiv!: !TVar x !TVar -> Null ;;; ;;; ;;; type TCon (type constructors) ;;; ;;; ... ;;; ;;; type Type (types) ;;; ;;; gen-type: TCon x TVar* -> Type ;;; type-con: Type -> TCon ;;; type-args: Type -> TVar* ;;; ;;; boolean: TVar ;;; character: TVar ;;; null: TVar ;;; pair: TVar x TVar -> TVar ;;; procedure: TVar x TVar* -> TVar ;;; charseq: TVar ;;; symbol: TVar ;;; array: TVar -> TVar ;;; Needed packages: union/find ;;; TVar (define counter 0) ;;; counter for generating tvar id's (define (gen-id) ;; generates a new id (for printing purposes) (set! counter (+ counter 1)) counter) (define (gen-tvar) ;; generates a new type variable from a new symbol ;; uses union/find elements with two info fields ;; a type variable has exactly four fields: ;; car: TVar (the parent field; initially null) ;; cadr: Number (the rank field; is always nonnegative) ;; caddr: Symbol (the type variable identifier; used only for printing) ;; cdddr: Type (the leq field; initially null) (gen-element (cons (gen-id) '()))) (define (gen-type tcon targs) ;; generates a new type variable with an associated type definition (gen-element (cons (gen-id) (cons tcon targs)))) (define dynamic (gen-element (cons 0 '()))) ;;; the special type variable dynamic ;;; Generic operations (define (tvar-id tvar) ;; returns the (printable) symbol representing the type variable (car (info tvar))) (define (tvar-def tvar) ;; returns the type definition (if any) of the type variable (cdr (info tvar))) (define (set-def! tvar tcon targs) ;; sets the type definition part of tvar to type (set-cdr! (info tvar) (cons tcon targs)) '()) (define (reset-def! tvar) ;; resets the type definition part of tvar to nil (set-cdr! (info tvar) '())) (define type-con (lambda (l) (car l))) ;;; returns the type constructor of a type definition (define type-args (lambda (l) (cdr l))) ;;; returns the type variables of a type definition (define (tvar->string tvar) ;; converts a tvar's id to a string (if (eqv? (tvar-id tvar) 0) "Dynamic" (string-append "t#" (number->string (tvar-id tvar) 10)))) (define (tvar-show tv) ;; returns a printable list representation of type variable tv (let* ((tv-rep (find! tv)) (tv-def (tvar-def tv-rep))) (cons (tvar->string tv-rep) (if (null? tv-def) '() (cons 'is (type-show tv-def)))))) (define (type-show type) ;; returns a printable list representation of type definition type (cond ((eqv? (type-con type) ptype-con) (let ((new-tvar (gen-tvar))) (cons ptype-con (cons (tvar-show new-tvar) (tvar-show ((type-args type) new-tvar)))))) (else (cons (type-con type) (map (lambda (tv) (tvar->string (find! tv))) (type-args type)))))) ;;; Special type operations ;;; type constructor literals (define boolean-con 'boolean) (define char-con 'char) (define null-con 'null) (define number-con 'number) (define pair-con 'pair) (define procedure-con 'procedure) (define string-con 'string) (define symbol-con 'symbol) (define vector-con 'vector) ;;; type constants and type constructors (define (null) ;; ***Note***: Temporarily changed to be a pair! ;; (gen-type null-con '()) (pair (gen-tvar) (gen-tvar))) (define (boolean) (gen-type boolean-con '())) (define (character) (gen-type char-con '())) (define (number) (gen-type number-con '())) (define (charseq) (gen-type string-con '())) (define (symbol) (gen-type symbol-con '())) (define (pair tvar-1 tvar-2) (gen-type pair-con (list tvar-1 tvar-2))) (define (array tvar) (gen-type vector-con (list tvar))) (define (procedure arg-tvar res-tvar) (gen-type procedure-con (list arg-tvar res-tvar))) ;;; equivalencing of type variables (define (equiv! tv1 tv2) (let* ((tv1-rep (find! tv1)) (tv2-rep (find! tv2)) (tv1-def (tvar-def tv1-rep)) (tv2-def (tvar-def tv2-rep))) (cond ((eqv? tv1-rep tv2-rep) '()) ((eqv? tv2-rep dynamic) (equiv-with-dynamic! tv1-rep)) ((eqv? tv1-rep dynamic) (equiv-with-dynamic! tv2-rep)) ((null? tv1-def) (if (null? tv2-def) ;; both tv1 and tv2 are distinct type variables (link! tv1-rep tv2-rep) ;; tv1 is a type variable, tv2 is a (nondynamic) type (asymm-link! tv1-rep tv2-rep))) ((null? tv2-def) ;; tv1 is a (nondynamic) type, tv2 is a type variable (asymm-link! tv2-rep tv1-rep)) ((eqv? (type-con tv1-def) (type-con tv2-def)) ;; both tv1 and tv2 are (nondynamic) types with equal numbers of ;; arguments (link! tv1-rep tv2-rep) (map equiv! (type-args tv1-def) (type-args tv2-def))) (else ;; tv1 and tv2 are types with distinct type constructors or different ;; numbers of arguments (equiv-with-dynamic! tv1-rep) (equiv-with-dynamic! tv2-rep)))) '()) (define (equiv-with-dynamic! tv) (let ((tv-rep (find! tv))) (if (not (eqv? tv-rep dynamic)) (let ((tv-def (tvar-def tv-rep))) (asymm-link! tv-rep dynamic) (if (not (null? tv-def)) (map equiv-with-dynamic! (type-args tv-def)))))) '()) ;;;---------------------------------------------------------------------------- ;;; Polymorphic type management ;;;---------------------------------------------------------------------------- ;;; introduces parametric polymorphic types ;;; forall: (Tvar -> Tvar) -> TVar ;;; fix: (Tvar -> Tvar) -> Tvar ;;; ;;; instantiate-type: TVar -> TVar ;;; type constructor literal for polymorphic types (define ptype-con 'forall) (define (forall tv-func) (gen-type ptype-con tv-func)) (define (forall2 tv-func2) (forall (lambda (tv1) (forall (lambda (tv2) (tv-func2 tv1 tv2)))))) (define (forall3 tv-func3) (forall (lambda (tv1) (forall2 (lambda (tv2 tv3) (tv-func3 tv1 tv2 tv3)))))) (define (forall4 tv-func4) (forall (lambda (tv1) (forall3 (lambda (tv2 tv3 tv4) (tv-func4 tv1 tv2 tv3 tv4)))))) (define (forall5 tv-func5) (forall (lambda (tv1) (forall4 (lambda (tv2 tv3 tv4 tv5) (tv-func5 tv1 tv2 tv3 tv4 tv5)))))) ;;; (polymorphic) instantiation (define (instantiate-type tv) ;; instantiates type tv and returns a generic instance (let* ((tv-rep (find! tv)) (tv-def (tvar-def tv-rep))) (cond ((null? tv-def) tv-rep) ((eqv? (type-con tv-def) ptype-con) (instantiate-type ((type-args tv-def) (gen-tvar)))) (else tv-rep)))) (define (fix tv-func) ;; forms a recursive type: the fixed point of type mapping tv-func (let* ((new-tvar (gen-tvar)) (inst-tvar (tv-func new-tvar)) (inst-def (tvar-def inst-tvar))) (if (null? inst-def) (panic "Illegal recursive type: ~s") (begin (set-def! new-tvar (type-con inst-def) (type-args inst-def)) new-tvar)))) ;;;---------------------------------------------------------------------------- ;;; Constraint management ;;;---------------------------------------------------------------------------- ;;; constraints (define gen-constr (lambda (a b) (cons a b))) ;;; generates an equality between tvar1 and tvar2 (define constr-lhs (lambda (c) (car c))) ;;; returns the left-hand side of a constraint (define constr-rhs (lambda (c) (cdr c))) ;;; returns the right-hand side of a constraint (define (constr-show c) (cons (tvar-show (car c)) (cons '= (cons (tvar-show (cdr c)) '())))) ;;; constraint set management (define global-constraints '()) (define (init-global-constraints!) (set! global-constraints '())) (define (add-constr! lhs rhs) (set! global-constraints (cons (gen-constr lhs rhs) global-constraints)) '()) (define (glob-constr-show) ;; returns printable version of global constraints (map constr-show global-constraints)) ;;; constraint normalization ;;; Needed packages: type management (define (normalize-global-constraints!) (normalize! global-constraints) (init-global-constraints!)) (define (normalize! constraints) (map (lambda (c) (equiv! (constr-lhs c) (constr-rhs c))) constraints)) ;;; --------------------------------------------------------------------------- ;;; Abstract syntax definition and parse actions ;;; --------------------------------------------------------------------------- ;;; Needed packages: ast-gen.ss ;;; Abstract syntax ;;; ;;; VarDef ;;; ;;; Identifier = Symbol - SyntacticKeywords ;;; SyntacticKeywords = { ... } (see Section 7.1, IEEE Scheme Standard) ;;; ;;; Datum ;;; ;;; null-const: Null -> Datum ;;; boolean-const: Bool -> Datum ;;; char-const: Char -> Datum ;;; number-const: Number -> Datum ;;; string-const: String -> Datum ;;; vector-const: Datum* -> Datum ;;; pair-const: Datum x Datum -> Datum ;;; ;;; Expr ;;; ;;; Datum < Expr ;;; ;;; var-def: Identifier -> VarDef ;;; variable: VarDef -> Expr ;;; identifier: Identifier -> Expr ;;; procedure-call: Expr x Expr* -> Expr ;;; lambda-expression: Formals x Body -> Expr ;;; conditional: Expr x Expr x Expr -> Expr ;;; assignment: Variable x Expr -> Expr ;;; cond-expression: CondClause+ -> Expr ;;; case-expression: Expr x CaseClause* -> Expr ;;; and-expression: Expr* -> Expr ;;; or-expression: Expr* -> Expr ;;; let-expression: (VarDef* x Expr*) x Body -> Expr ;;; named-let-expression: VarDef x (VarDef* x Expr*) x Body -> Expr ;;; let*-expression: (VarDef* x Expr*) x Body -> Expr ;;; letrec-expression: (VarDef* x Expr*) x Body -> Expr ;;; begin-expression: Expr+ -> Expr ;;; do-expression: IterDef* x CondClause x Expr* -> Expr ;;; empty: -> Expr ;;; ;;; VarDef* < Formals ;;; ;;; simple-formal: VarDef -> Formals ;;; dotted-formals: VarDef* x VarDef -> Formals ;;; ;;; Body = Definition* x Expr+ (reversed) ;;; CondClause = Expr x Expr+ ;;; CaseClause = Datum* x Expr+ ;;; IterDef = VarDef x Expr x Expr ;;; ;;; Definition ;;; ;;; definition: Identifier x Expr -> Definition ;;; function-definition: Identifier x Formals x Body -> Definition ;;; begin-command: Definition* -> Definition ;;; ;;; Expr < Command ;;; Definition < Command ;;; ;;; Program = Command* ;;; Abstract syntax operators ;;; Datum (define null-const 0) (define boolean-const 1) (define char-const 2) (define number-const 3) (define string-const 4) (define symbol-const 5) (define vector-const 6) (define pair-const 7) ;;; Bindings (define var-def 8) (define null-def 29) (define pair-def 30) ;;; Expr (define variable 9) (define identifier 10) (define procedure-call 11) (define lambda-expression 12) (define conditional 13) (define assignment 14) (define cond-expression 15) (define case-expression 16) (define and-expression 17) (define or-expression 18) (define let-expression 19) (define named-let-expression 20) (define let*-expression 21) (define letrec-expression 22) (define begin-expression 23) (define do-expression 24) (define empty 25) (define null-arg 31) (define pair-arg 32) ;;; Command (define definition 26) (define function-definition 27) (define begin-command 28) ;;; Parse actions for abstract syntax construction (define (dynamic-parse-action-null-const) ;; dynamic-parse-action for '() (ast-gen null-const '())) (define (dynamic-parse-action-boolean-const e) ;; dynamic-parse-action for #f and #t (ast-gen boolean-const e)) (define (dynamic-parse-action-char-const e) ;; dynamic-parse-action for character constants (ast-gen char-const e)) (define (dynamic-parse-action-number-const e) ;; dynamic-parse-action for number constants (ast-gen number-const e)) (define (dynamic-parse-action-string-const e) ;; dynamic-parse-action for string literals (ast-gen string-const e)) (define (dynamic-parse-action-symbol-const e) ;; dynamic-parse-action for symbol constants (ast-gen symbol-const e)) (define (dynamic-parse-action-vector-const e) ;; dynamic-parse-action for vector literals (ast-gen vector-const e)) (define (dynamic-parse-action-pair-const e1 e2) ;; dynamic-parse-action for pairs (ast-gen pair-const (cons e1 e2))) (define (dynamic-parse-action-var-def e) ;; dynamic-parse-action for defining occurrences of variables; ;; e is a symbol (ast-gen var-def e)) (define (dynamic-parse-action-null-formal) ;; dynamic-parse-action for null-list of formals (ast-gen null-def '())) (define (dynamic-parse-action-pair-formal d1 d2) ;; dynamic-parse-action for non-null list of formals; ;; d1 is the result of parsing the first formal, ;; d2 the result of parsing the remaining formals (ast-gen pair-def (cons d1 d2))) (define (dynamic-parse-action-variable e) ;; dynamic-parse-action for applied occurrences of variables ;; ***Note***: e is the result of a dynamic-parse-action on the ;; corresponding variable definition! (ast-gen variable e)) (define (dynamic-parse-action-identifier e) ;; dynamic-parse-action for undeclared identifiers (free variable ;; occurrences) ;; ***Note***: e is a symbol (legal identifier) (ast-gen identifier e)) (define (dynamic-parse-action-null-arg) ;; dynamic-parse-action for a null list of arguments in a procedure call (ast-gen null-arg '())) (define (dynamic-parse-action-pair-arg a1 a2) ;; dynamic-parse-action for a non-null list of arguments in a procedure call ;; a1 is the result of parsing the first argument, ;; a2 the result of parsing the remaining arguments (ast-gen pair-arg (cons a1 a2))) (define (dynamic-parse-action-procedure-call op args) ;; dynamic-parse-action for procedure calls: op function, args list of ;; arguments (ast-gen procedure-call (cons op args))) (define (dynamic-parse-action-lambda-expression formals body) ;; dynamic-parse-action for lambda-abstractions (ast-gen lambda-expression (cons formals body))) (define (dynamic-parse-action-conditional test then-branch else-branch) ;; dynamic-parse-action for conditionals (if-then-else expressions) (ast-gen conditional (cons test (cons then-branch else-branch)))) (define (dynamic-parse-action-empty) ;; dynamic-parse-action for missing or empty field (ast-gen empty '())) (define (dynamic-parse-action-assignment lhs rhs) ;; dynamic-parse-action for assignment (ast-gen assignment (cons lhs rhs))) (define (dynamic-parse-action-begin-expression body) ;; dynamic-parse-action for begin-expression (ast-gen begin-expression body)) (define (dynamic-parse-action-cond-expression clauses) ;; dynamic-parse-action for cond-expressions (ast-gen cond-expression clauses)) (define (dynamic-parse-action-and-expression args) ;; dynamic-parse-action for and-expressions (ast-gen and-expression args)) (define (dynamic-parse-action-or-expression args) ;; dynamic-parse-action for or-expressions (ast-gen or-expression args)) (define (dynamic-parse-action-case-expression key clauses) ;; dynamic-parse-action for case-expressions (ast-gen case-expression (cons key clauses))) (define (dynamic-parse-action-let-expression bindings body) ;; dynamic-parse-action for let-expressions (ast-gen let-expression (cons bindings body))) (define (dynamic-parse-action-named-let-expression variable bindings body) ;; dynamic-parse-action for named-let expressions (ast-gen named-let-expression (cons variable (cons bindings body)))) (define (dynamic-parse-action-let*-expression bindings body) ;; dynamic-parse-action for let-expressions (ast-gen let*-expression (cons bindings body))) (define (dynamic-parse-action-letrec-expression bindings body) ;; dynamic-parse-action for let-expressions (ast-gen letrec-expression (cons bindings body))) (define (dynamic-parse-action-definition variable expr) ;; dynamic-parse-action for simple definitions (ast-gen definition (cons variable expr))) (define (dynamic-parse-action-function-definition variable formals body) ;; dynamic-parse-action for function definitions (ast-gen function-definition (cons variable (cons formals body)))) (define dynamic-parse-action-commands (lambda (a b) (cons a b))) ;;; dynamic-parse-action for processing a command result followed by a the ;;; result of processing the remaining commands ;;; Pretty-printing abstract syntax trees (define (ast-show ast) ;; converts abstract syntax tree to list representation (Scheme program) ;; ***Note***: check translation of constructors to numbers at the top of the ;; file (let ((syntax-op (ast-con ast)) (syntax-arg (ast-arg ast))) (case syntax-op ((0 1 2 3 4 8 10) syntax-arg) ((29 31) '()) ((30 32) (cons (ast-show (car syntax-arg)) (ast-show (cdr syntax-arg)))) ((5) (list 'quote syntax-arg)) ((6) (list->vector (map ast-show syntax-arg))) ((7) (list 'cons (ast-show (car syntax-arg)) (ast-show (cdr syntax-arg)))) ((9) (ast-arg syntax-arg)) ((11) (cons (ast-show (car syntax-arg)) (ast-show (cdr syntax-arg)))) ((12) (cons 'lambda (cons (ast-show (car syntax-arg)) (map ast-show (cdr syntax-arg))))) ((13) (cons 'if (cons (ast-show (car syntax-arg)) (cons (ast-show (cadr syntax-arg)) (let ((alt (cddr syntax-arg))) (if (eqv? (ast-con alt) empty) '() (list (ast-show alt)))))))) ((14) (list 'set! (ast-show (car syntax-arg)) (ast-show (cdr syntax-arg)))) ((15) (cons 'cond (map (lambda (cc) (let ((guard (car cc)) (body (cdr cc))) (cons (if (eqv? (ast-con guard) empty) 'else (ast-show guard)) (map ast-show body)))) syntax-arg))) ((16) (cons 'case (cons (ast-show (car syntax-arg)) (map (lambda (cc) (let ((data (car cc))) (if (and (pair? data) (eqv? (ast-con (car data)) empty)) (cons 'else (map ast-show (cdr cc))) (cons (map datum-show data) (map ast-show (cdr cc)))))) (cdr syntax-arg))))) ((17) (cons 'and (map ast-show syntax-arg))) ((18) (cons 'or (map ast-show syntax-arg))) ((19) (cons 'let (cons (map (lambda (vd e) (list (ast-show vd) (ast-show e))) (caar syntax-arg) (cdar syntax-arg)) (map ast-show (cdr syntax-arg))))) ((20) (cons 'let (cons (ast-show (car syntax-arg)) (cons (map (lambda (vd e) (list (ast-show vd) (ast-show e))) (caadr syntax-arg) (cdadr syntax-arg)) (map ast-show (cddr syntax-arg)))))) ((21) (cons 'let* (cons (map (lambda (vd e) (list (ast-show vd) (ast-show e))) (caar syntax-arg) (cdar syntax-arg)) (map ast-show (cdr syntax-arg))))) ((22) (cons 'letrec (cons (map (lambda (vd e) (list (ast-show vd) (ast-show e))) (caar syntax-arg) (cdar syntax-arg)) (map ast-show (cdr syntax-arg))))) ((23) (cons 'begin (map ast-show syntax-arg))) ((24) (panic "Do expressions not handled! (~s)")) ((25) (panic "This can't happen: empty encountered!")) ((26) (list 'define (ast-show (car syntax-arg)) (ast-show (cdr syntax-arg)))) ((27) (cons 'define (cons (cons (ast-show (car syntax-arg)) (ast-show (cadr syntax-arg))) (map ast-show (cddr syntax-arg))))) ((28) (cons 'begin (map ast-show syntax-arg))) (else (panic "Unknown abstract syntax operator: ~s"))))) ;;; ast*-show (define (ast*-show p) ;; shows a list of abstract syntax trees (map ast-show p)) ;;; datum-show (define (datum-show ast) ;; prints an abstract syntax tree as a datum (case (ast-con ast) ((0 1 2 3 4 5) (ast-arg ast)) ((6) (list->vector (map datum-show (ast-arg ast)))) ((7) (cons (datum-show (car (ast-arg ast))) (datum-show (cdr (ast-arg ast))))) (else (panic "This should not happen!")))) ;;; write-to-port (define (write-to-port prog port) ;; writes a program to a port (for-each (lambda (command) (write command port) (newline port)) prog) '()) ;;; write-file (define (write-to-file prog filename) ;; write a program to a file (let ((port (open-output-file filename))) (write-to-port prog port) (close-output-port port) '())) ;;; --------------------------------------------------------------------------- ;;; Typed abstract syntax tree management: constraint generation, display, etc. ;;; --------------------------------------------------------------------------- ;;; Abstract syntax operations, incl. constraint generation (define (ast-gen syntax-op arg) ;; generates all attributes and performs semantic side effects (let ((ntvar (case syntax-op ((0 29 31) (null)) ((1) (boolean)) ((2) (character)) ((3) (number)) ((4) (charseq)) ((5) (symbol)) ((6) (let ((aux-tvar (gen-tvar))) (for-each (lambda (t) (add-constr! t aux-tvar)) (map ast-tvar arg)) (array aux-tvar))) ((7 30 32) (let ((t1 (ast-tvar (car arg))) (t2 (ast-tvar (cdr arg)))) (pair t1 t2))) ((8) (gen-tvar)) ((9) (ast-tvar arg)) ((10) (let ((in-env (dynamic-lookup arg dynamic-top-level-env))) (if in-env (instantiate-type (binding-value in-env)) (let ((new-tvar (gen-tvar))) (set! dynamic-top-level-env (extend-env-with-binding dynamic-top-level-env (gen-binding arg new-tvar))) new-tvar)))) ((11) (let ((new-tvar (gen-tvar))) (add-constr! (procedure (ast-tvar (cdr arg)) new-tvar) (ast-tvar (car arg))) new-tvar)) ((12) (procedure (ast-tvar (car arg)) (ast-tvar (tail (cdr arg))))) ((13) (let ((t-test (ast-tvar (car arg))) (t-consequent (ast-tvar (cadr arg))) (t-alternate (ast-tvar (cddr arg)))) (add-constr! (boolean) t-test) (add-constr! t-consequent t-alternate) t-consequent)) ((14) (let ((var-tvar (ast-tvar (car arg))) (exp-tvar (ast-tvar (cdr arg)))) (add-constr! var-tvar exp-tvar) var-tvar)) ((15) (let ((new-tvar (gen-tvar))) (for-each (lambda (body) (add-constr! (ast-tvar (tail body)) new-tvar)) (map cdr arg)) (for-each (lambda (e) (add-constr! (boolean) (ast-tvar e))) (map car arg)) new-tvar)) ((16) (let* ((new-tvar (gen-tvar)) (t-key (ast-tvar (car arg))) (case-clauses (cdr arg))) (for-each (lambda (exprs) (for-each (lambda (e) (add-constr! (ast-tvar e) t-key)) exprs)) (map car case-clauses)) (for-each (lambda (body) (add-constr! (ast-tvar (tail body)) new-tvar)) (map cdr case-clauses)) new-tvar)) ((17 18) (for-each (lambda (e) (add-constr! (boolean) (ast-tvar e))) arg) (boolean)) ((19 21 22) (let ((var-def-tvars (map ast-tvar (caar arg))) (def-expr-types (map ast-tvar (cdar arg))) (body-type (ast-tvar (tail (cdr arg))))) (for-each add-constr! var-def-tvars def-expr-types) body-type)) ((20) (let ((var-def-tvars (map ast-tvar (caadr arg))) (def-expr-types (map ast-tvar (cdadr arg))) (body-type (ast-tvar (tail (cddr arg)))) (named-var-type (ast-tvar (car arg)))) (for-each add-constr! var-def-tvars def-expr-types) (add-constr! (procedure (convert-tvars var-def-tvars) body-type) named-var-type) body-type)) ((23) (ast-tvar (tail arg))) ((24) (panic "Do-expressions not handled! (Argument: ~s) arg")) ((25) (gen-tvar)) ((26) (let ((t-var (ast-tvar (car arg))) (t-exp (ast-tvar (cdr arg)))) (add-constr! t-var t-exp) t-var)) ((27) (let ((t-var (ast-tvar (car arg))) (t-formals (ast-tvar (cadr arg))) (t-body (ast-tvar (tail (cddr arg))))) (add-constr! (procedure t-formals t-body) t-var) t-var)) ((28) (gen-tvar)) (else (panic "Can't handle syntax operator: ~s"))))) (cons syntax-op (cons ntvar arg)))) (define ast-con car) ;;; extracts the ast-constructor from an abstract syntax tree (define ast-arg cddr) ;;; extracts the ast-argument from an abstract syntax tree (define ast-tvar cadr) ;;; extracts the tvar from an abstract syntax tree ;;; tail (define (tail l) ;; returns the tail of a nonempty list (if (null? (cdr l)) (car l) (tail (cdr l)))) ;;; convert-tvars (define (convert-tvars tvar-list) ;; converts a list of tvars to a single tvar (cond ((null? tvar-list) (null)) ((pair? tvar-list) (pair (car tvar-list) (convert-tvars (cdr tvar-list)))) (else (panic "Not a list of tvars: ~s")))) ;;; Pretty-printing abstract syntax trees (define (tast-show ast) ;; converts abstract syntax tree to list representation (Scheme program) (let ((syntax-op (ast-con ast)) (syntax-tvar (tvar-show (ast-tvar ast))) (syntax-arg (ast-arg ast))) (cons (case syntax-op ((0 1 2 3 4 8 10) syntax-arg) ((29 31) '()) ((30 32) (cons (tast-show (car syntax-arg)) (tast-show (cdr syntax-arg)))) ((5) (list 'quote syntax-arg)) ((6) (list->vector (map tast-show syntax-arg))) ((7) (list 'cons (tast-show (car syntax-arg)) (tast-show (cdr syntax-arg)))) ((9) (ast-arg syntax-arg)) ((11) (cons (tast-show (car syntax-arg)) (tast-show (cdr syntax-arg)))) ((12) (cons 'lambda (cons (tast-show (car syntax-arg)) (map tast-show (cdr syntax-arg))))) ((13) (cons 'if (cons (tast-show (car syntax-arg)) (cons (tast-show (cadr syntax-arg)) (let ((alt (cddr syntax-arg))) (if (eqv? (ast-con alt) empty) '() (list (tast-show alt)))))))) ((14) (list 'set! (tast-show (car syntax-arg)) (tast-show (cdr syntax-arg)))) ((15) (cons 'cond (map (lambda (cc) (let ((guard (car cc)) (body (cdr cc))) (cons (if (eqv? (ast-con guard) empty) 'else (tast-show guard)) (map tast-show body)))) syntax-arg))) ((16) (cons 'case (cons (tast-show (car syntax-arg)) (map (lambda (cc) (let ((data (car cc))) (if (and (pair? data) (eqv? (ast-con (car data)) empty)) (cons 'else (map tast-show (cdr cc))) (cons (map datum-show data) (map tast-show (cdr cc)))))) (cdr syntax-arg))))) ((17) (cons 'and (map tast-show syntax-arg))) ((18) (cons 'or (map tast-show syntax-arg))) ((19) (cons 'let (cons (map (lambda (vd e) (list (tast-show vd) (tast-show e))) (caar syntax-arg) (cdar syntax-arg)) (map tast-show (cdr syntax-arg))))) ((20) (cons 'let (cons (tast-show (car syntax-arg)) (cons (map (lambda (vd e) (list (tast-show vd) (tast-show e))) (caadr syntax-arg) (cdadr syntax-arg)) (map tast-show (cddr syntax-arg)))))) ((21) (cons 'let* (cons (map (lambda (vd e) (list (tast-show vd) (tast-show e))) (caar syntax-arg) (cdar syntax-arg)) (map tast-show (cdr syntax-arg))))) ((22) (cons 'letrec (cons (map (lambda (vd e) (list (tast-show vd) (tast-show e))) (caar syntax-arg) (cdar syntax-arg)) (map tast-show (cdr syntax-arg))))) ((23) (cons 'begin (map tast-show syntax-arg))) ((24) (panic "Do expressions not handled! (~s)")) ((25) (panic "This can't happen: empty encountered!")) ((26) (list 'define (tast-show (car syntax-arg)) (tast-show (cdr syntax-arg)))) ((27) (cons 'define (cons (cons (tast-show (car syntax-arg)) (tast-show (cadr syntax-arg))) (map tast-show (cddr syntax-arg))))) ((28) (cons 'begin (map tast-show syntax-arg))) (else (panic "Unknown abstract syntax operator: ~s"))) syntax-tvar))) ;;; tast*-show (define (tast*-show p) ;; shows a list of abstract syntax trees (map tast-show p)) ;;; counters for tagging/untagging (define untag-counter 0) (define no-untag-counter 0) (define tag-counter 0) (define no-tag-counter 0) (define may-untag-counter 0) (define no-may-untag-counter 0) (define (reset-counters!) (set! untag-counter 0) (set! no-untag-counter 0) (set! tag-counter 0) (set! no-tag-counter 0) (set! may-untag-counter 0) (set! no-may-untag-counter 0)) (define (counters-show) (list (cons tag-counter no-tag-counter) (cons untag-counter no-untag-counter) (cons may-untag-counter no-may-untag-counter))) ;;; tag-show (define (tag-show tvar-rep prog) ;; display prog with tagging operation (if (eqv? tvar-rep dynamic) (begin (set! tag-counter (+ tag-counter 1)) (list 'tag prog)) (begin (set! no-tag-counter (+ no-tag-counter 1)) (list 'no-tag prog)))) ;;; untag-show (define (untag-show tvar-rep prog) ;; display prog with untagging operation (if (eqv? tvar-rep dynamic) (begin (set! untag-counter (+ untag-counter 1)) (list 'untag prog)) (begin (set! no-untag-counter (+ no-untag-counter 1)) (list 'no-untag prog)))) (define (may-untag-show tvar-rep prog) ;; display possible untagging in actual arguments (if (eqv? tvar-rep dynamic) (begin (set! may-untag-counter (+ may-untag-counter 1)) (list 'may-untag prog)) (begin (set! no-may-untag-counter (+ no-may-untag-counter 1)) (list 'no-may-untag prog)))) ;;; tag-ast-show (define (tag-ast-show ast) ;; converts typed and normalized abstract syntax tree to ;; a Scheme program with explicit tagging and untagging operations (let ((syntax-op (ast-con ast)) (syntax-tvar (find! (ast-tvar ast))) (syntax-arg (ast-arg ast))) (case syntax-op ((0 1 2 3 4) (tag-show syntax-tvar syntax-arg)) ((8 10) syntax-arg) ((29 31) '()) ((30) (cons (tag-ast-show (car syntax-arg)) (tag-ast-show (cdr syntax-arg)))) ((32) (cons (may-untag-show (find! (ast-tvar (car syntax-arg))) (tag-ast-show (car syntax-arg))) (tag-ast-show (cdr syntax-arg)))) ((5) (tag-show syntax-tvar (list 'quote syntax-arg))) ((6) (tag-show syntax-tvar (list->vector (map tag-ast-show syntax-arg)))) ((7) (tag-show syntax-tvar (list 'cons (tag-ast-show (car syntax-arg)) (tag-ast-show (cdr syntax-arg))))) ((9) (ast-arg syntax-arg)) ((11) (let ((proc-tvar (find! (ast-tvar (car syntax-arg))))) (cons (untag-show proc-tvar (tag-ast-show (car syntax-arg))) (tag-ast-show (cdr syntax-arg))))) ((12) (tag-show syntax-tvar (cons 'lambda (cons (tag-ast-show (car syntax-arg)) (map tag-ast-show (cdr syntax-arg)))))) ((13) (let ((test-tvar (find! (ast-tvar (car syntax-arg))))) (cons 'if (cons (untag-show test-tvar (tag-ast-show (car syntax-arg))) (cons (tag-ast-show (cadr syntax-arg)) (let ((alt (cddr syntax-arg))) (if (eqv? (ast-con alt) empty) '() (list (tag-ast-show alt))))))))) ((14) (list 'set! (tag-ast-show (car syntax-arg)) (tag-ast-show (cdr syntax-arg)))) ((15) (cons 'cond (map (lambda (cc) (let ((guard (car cc)) (body (cdr cc))) (cons (if (eqv? (ast-con guard) empty) 'else (untag-show (find! (ast-tvar guard)) (tag-ast-show guard))) (map tag-ast-show body)))) syntax-arg))) ((16) (cons 'case (cons (tag-ast-show (car syntax-arg)) (map (lambda (cc) (let ((data (car cc))) (if (and (pair? data) (eqv? (ast-con (car data)) empty)) (cons 'else (map tag-ast-show (cdr cc))) (cons (map datum-show data) (map tag-ast-show (cdr cc)))))) (cdr syntax-arg))))) ((17) (cons 'and (map (lambda (ast) (let ((bool-tvar (find! (ast-tvar ast)))) (untag-show bool-tvar (tag-ast-show ast)))) syntax-arg))) ((18) (cons 'or (map (lambda (ast) (let ((bool-tvar (find! (ast-tvar ast)))) (untag-show bool-tvar (tag-ast-show ast)))) syntax-arg))) ((19) (cons 'let (cons (map (lambda (vd e) (list (tag-ast-show vd) (tag-ast-show e))) (caar syntax-arg) (cdar syntax-arg)) (map tag-ast-show (cdr syntax-arg))))) ((20) (cons 'let (cons (tag-ast-show (car syntax-arg)) (cons (map (lambda (vd e) (list (tag-ast-show vd) (tag-ast-show e))) (caadr syntax-arg) (cdadr syntax-arg)) (map tag-ast-show (cddr syntax-arg)))))) ((21) (cons 'let* (cons (map (lambda (vd e) (list (tag-ast-show vd) (tag-ast-show e))) (caar syntax-arg) (cdar syntax-arg)) (map tag-ast-show (cdr syntax-arg))))) ((22) (cons 'letrec (cons (map (lambda (vd e) (list (tag-ast-show vd) (tag-ast-show e))) (caar syntax-arg) (cdar syntax-arg)) (map tag-ast-show (cdr syntax-arg))))) ((23) (cons 'begin (map tag-ast-show syntax-arg))) ((24) (panic "Do expressions not handled! (~s)")) ((25) (panic "This can't happen: empty encountered!")) ((26) (list 'define (tag-ast-show (car syntax-arg)) (tag-ast-show (cdr syntax-arg)))) ((27) (let ((func-tvar (find! (ast-tvar (car syntax-arg))))) (list 'define (tag-ast-show (car syntax-arg)) (tag-show func-tvar (cons 'lambda (cons (tag-ast-show (cadr syntax-arg)) (map tag-ast-show (cddr syntax-arg)))))))) ((28) (cons 'begin (map tag-ast-show syntax-arg))) (else (panic "Unknown abstract syntax operator: ~s"))))) ;; tag-ast*-show (define (tag-ast*-show p) ;; display list of commands/expressions with tagging/untagging ;; operations (map tag-ast-show p)) ;;; --------------------------------------------------------------------------- ;;; Top level type environment ;;; --------------------------------------------------------------------------- ;;; Needed packages: type management (monomorphic and polymorphic) ;;; type environment for miscellaneous (define misc-env (list (cons 'quote (forall (lambda (tv) tv))) (cons 'eqv? (forall (lambda (tv) (procedure (convert-tvars (list tv tv)) (boolean))))) (cons 'eq? (forall (lambda (tv) (procedure (convert-tvars (list tv tv)) (boolean))))) (cons 'equal? (forall (lambda (tv) (procedure (convert-tvars (list tv tv)) (boolean))))))) ;;; type environment for input/output (define io-env (list (cons 'open-input-file (procedure (convert-tvars (list (charseq))) dynamic)) (cons 'eof-object? (procedure (convert-tvars (list dynamic)) (boolean))) (cons 'read (forall (lambda (tv) (procedure (convert-tvars (list tv)) dynamic)))) (cons 'write (forall (lambda (tv) (procedure (convert-tvars (list tv)) dynamic)))) (cons 'display (forall (lambda (tv) (procedure (convert-tvars (list tv)) dynamic)))) (cons 'newline (procedure (null) dynamic)) (cons 'pretty-print (forall (lambda (tv) (procedure (convert-tvars (list tv)) dynamic)))))) ;;; type environment for Booleans (define boolean-env (list (cons 'boolean? (forall (lambda (tv) (procedure (convert-tvars (list tv)) (boolean))))) ;; #f doesn't exist in Chez Scheme, but gets mapped to null! (cons #t (boolean)) (cons 'not (procedure (convert-tvars (list (boolean))) (boolean))))) ;;; type environment for pairs and lists (define (list-type tv) (fix (lambda (tv2) (pair tv tv2)))) (define list-env (list (cons 'pair? (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list (pair tv1 tv2))) (boolean))))) (cons 'null? (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list (pair tv1 tv2))) (boolean))))) (cons 'list? (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list (pair tv1 tv2))) (boolean))))) (cons 'cons (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list tv1 tv2)) (pair tv1 tv2))))) (cons 'car (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list (pair tv1 tv2))) tv1)))) (cons 'cdr (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list (pair tv1 tv2))) tv2)))) (cons 'set-car! (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list (pair tv1 tv2) tv1)) dynamic)))) (cons 'set-cdr! (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list (pair tv1 tv2) tv2)) dynamic)))) (cons 'caar (forall3 (lambda (tv1 tv2 tv3) (procedure (convert-tvars (list (pair (pair tv1 tv2) tv3))) tv1)))) (cons 'cdar (forall3 (lambda (tv1 tv2 tv3) (procedure (convert-tvars (list (pair (pair tv1 tv2) tv3))) tv2)))) (cons 'cadr (forall3 (lambda (tv1 tv2 tv3) (procedure (convert-tvars (list (pair tv1 (pair tv2 tv3)))) tv2)))) (cons 'cddr (forall3 (lambda (tv1 tv2 tv3) (procedure (convert-tvars (list (pair tv1 (pair tv2 tv3)))) tv3)))) (cons 'caaar (forall4 (lambda (tv1 tv2 tv3 tv4) (procedure (convert-tvars (list (pair (pair (pair tv1 tv2) tv3) tv4))) tv1)))) (cons 'cdaar (forall4 (lambda (tv1 tv2 tv3 tv4) (procedure (convert-tvars (list (pair (pair (pair tv1 tv2) tv3) tv4))) tv2)))) (cons 'cadar (forall4 (lambda (tv1 tv2 tv3 tv4) (procedure (convert-tvars (list (pair (pair tv1 (pair tv2 tv3)) tv4))) tv2)))) (cons 'cddar (forall4 (lambda (tv1 tv2 tv3 tv4) (procedure (convert-tvars (list (pair (pair tv1 (pair tv2 tv3)) tv4))) tv3)))) (cons 'caadr (forall4 (lambda (tv1 tv2 tv3 tv4) (procedure (convert-tvars (list (pair tv1 (pair (pair tv2 tv3) tv4)))) tv2)))) (cons 'cdadr (forall4 (lambda (tv1 tv2 tv3 tv4) (procedure (convert-tvars (list (pair tv1 (pair (pair tv2 tv3) tv4)))) tv3)))) (cons 'caddr (forall4 (lambda (tv1 tv2 tv3 tv4) (procedure (convert-tvars (list (pair tv1 (pair tv2 (pair tv3 tv4))))) tv3)))) (cons 'cdddr (forall4 (lambda (tv1 tv2 tv3 tv4) (procedure (convert-tvars (list (pair tv1 (pair tv2 (pair tv3 tv4))))) tv4)))) (cons 'cadddr (forall5 (lambda (tv1 tv2 tv3 tv4 tv5) (procedure (convert-tvars (list (pair tv1 (pair tv2 (pair tv3 (pair tv4 tv5)))))) tv4)))) (cons 'cddddr (forall5 (lambda (tv1 tv2 tv3 tv4 tv5) (procedure (convert-tvars (list (pair tv1 (pair tv2 (pair tv3 (pair tv4 tv5)))))) tv5)))) (cons 'list (forall (lambda (tv) (procedure tv tv)))) (cons 'length (forall (lambda (tv) (procedure (convert-tvars (list (list-type tv))) (number))))) (cons 'append (forall (lambda (tv) (procedure (convert-tvars (list (list-type tv) (list-type tv))) (list-type tv))))) (cons 'reverse (forall (lambda (tv) (procedure (convert-tvars (list (list-type tv))) (list-type tv))))) (cons 'list-ref (forall (lambda (tv) (procedure (convert-tvars (list (list-type tv) (number))) tv)))) (cons 'memq (forall (lambda (tv) (procedure (convert-tvars (list tv (list-type tv))) (boolean))))) (cons 'memv (forall (lambda (tv) (procedure (convert-tvars (list tv (list-type tv))) (boolean))))) (cons 'member (forall (lambda (tv) (procedure (convert-tvars (list tv (list-type tv))) (boolean))))) (cons 'assq (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list tv1 (list-type (pair tv1 tv2)))) (pair tv1 tv2))))) (cons 'assv (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list tv1 (list-type (pair tv1 tv2)))) (pair tv1 tv2))))) (cons 'assoc (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list tv1 (list-type (pair tv1 tv2)))) (pair tv1 tv2))))))) (define symbol-env (list (cons 'symbol? (forall (lambda (tv) (procedure (convert-tvars (list tv)) (boolean))))) (cons 'symbol->string (procedure (convert-tvars (list (symbol))) (charseq))) (cons 'string->symbol (procedure (convert-tvars (list (charseq))) (symbol))))) (define number-env (list (cons 'number? (forall (lambda (tv) (procedure (convert-tvars (list tv)) (boolean))))) (cons '+ (procedure (convert-tvars (list (number) (number))) (number))) (cons '- (procedure (convert-tvars (list (number) (number))) (number))) (cons '* (procedure (convert-tvars (list (number) (number))) (number))) (cons '/ (procedure (convert-tvars (list (number) (number))) (number))) (cons 'number->string (procedure (convert-tvars (list (number))) (charseq))) (cons 'string->number (procedure (convert-tvars (list (charseq))) (number))))) (define char-env (list (cons 'char? (forall (lambda (tv) (procedure (convert-tvars (list tv)) (boolean))))) (cons 'char->integer (procedure (convert-tvars (list (character))) (number))) (cons 'integer->char (procedure (convert-tvars (list (number))) (character))))) (define string-env (list (cons 'string? (forall (lambda (tv) (procedure (convert-tvars (list tv)) (boolean))))))) (define vector-env (list (cons 'vector? (forall (lambda (tv) (procedure (convert-tvars (list tv)) (boolean))))) (cons 'make-vector (forall (lambda (tv) (procedure (convert-tvars (list (number))) (array tv))))) (cons 'vector-length (forall (lambda (tv) (procedure (convert-tvars (list (array tv))) (number))))) (cons 'vector-ref (forall (lambda (tv) (procedure (convert-tvars (list (array tv) (number))) tv)))) (cons 'vector-set! (forall (lambda (tv) (procedure (convert-tvars (list (array tv) (number) tv)) dynamic)))))) (define procedure-env (list (cons 'procedure? (forall (lambda (tv) (procedure (convert-tvars (list tv)) (boolean))))) (cons 'map (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list (procedure (convert-tvars (list tv1)) tv2) (list-type tv1))) (list-type tv2))))) (cons 'foreach (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list (procedure (convert-tvars (list tv1)) tv2) (list-type tv1))) (list-type tv2))))) (cons 'call-with-current-continuation (forall2 (lambda (tv1 tv2) (procedure (convert-tvars (list (procedure (convert-tvars (list (procedure (convert-tvars (list tv1)) tv2))) tv2))) tv2)))))) ;;; global top level environment (define (global-env) (append misc-env io-env boolean-env symbol-env number-env char-env string-env vector-env procedure-env list-env)) (define dynamic-top-level-env (global-env)) (define (init-dynamic-top-level-env!) (set! dynamic-top-level-env (global-env)) '()) (define (dynamic-top-level-env-show) ;; displays the top level environment (map (lambda (binding) (cons (key-show (binding-key binding)) (cons ': (tvar-show (binding-value binding))))) (env->list dynamic-top-level-env))) ;;; --------------------------------------------------------------------------- ;;; Dynamic type inference for Scheme ;;; --------------------------------------------------------------------------- ;;; Needed packages: (define (ic!) (init-global-constraints!)) (define (pc) (glob-constr-show)) (define (lc) (length global-constraints)) (define (n!) (normalize-global-constraints!)) (define (pt) (dynamic-top-level-env-show)) (define (it!) (init-dynamic-top-level-env!)) (define (io!) (set! tag-ops 0) (set! no-ops 0)) (define (i!) (ic!) (it!) (io!) '()) (define tag-ops 0) (define no-ops 0) ;;; This wasn't intended to be an i/o benchmark, ;;; so let's read the file just once. (define *forms* (call-with-input-file "dynamic-original.sc" (lambda (port) (define (loop forms) (let ((form (read port))) (if (eof-object? form) (reverse forms) (loop (cons form forms))))) (loop '())))) (define (dynamic-parse-forms forms) (if (null? forms) '() (let ((next-input (car forms))) (dynamic-parse-action-commands (dynamic-parse-command dynamic-empty-env next-input) (dynamic-parse-forms (cdr forms)))))) (define doit (lambda () (i!) (let ((foo (dynamic-parse-forms *forms*))) (normalize-global-constraints!) (reset-counters!) (tag-ast*-show foo) (counters-show)))) (dynamic-benchmark 100) stalin-0.11/benchmarks/earley.sc0000600017435200151030000005505607063211711015327 0ustar qobiqobi(define (run-benchmark name count run ok?) (if (not (ok? (run-bench name count run ok?))) (begin (display "*** wrong result ***") (newline)) (begin (display "*** right result ***") (newline)))) (define (run-bench name count run ok?) (let loop ((i 0) (result (list 'undefined))) (if (< i count) (loop (+ i 1) (run)) result))) (define (fatal-error . args) (for-each display args) (newline)) ;;; EARLEY -- Earley's parser, written by Marc Feeley. ;;; (make-parser grammar lexer) is used to create a parser from the grammar ;;; description `grammar' and the lexer function `lexer'. ;;; ;;; A grammar is a list of definitions. Each definition defines a non-terminal ;;; by a set of rules. Thus a definition has the form: (nt rule1 rule2...). ;;; A given non-terminal can only be defined once. The first non-terminal ;;; defined is the grammar's goal. Each rule is a possibly empty list of ;;; non-terminals. Thus a rule has the form: (nt1 nt2...). A non-terminal ;;; can be any scheme value. Note that all grammar symbols are treated as ;;; non-terminals. This is fine though because the lexer will be outputing ;;; non-terminals. ;;; ;;; The lexer defines what a token is and the mapping between tokens and ;;; the grammar's non-terminals. It is a function of one argument, the input, ;;; that returns the list of tokens corresponding to the input. Each token is ;;; represented by a list. The first element is some `user-defined' ;;; information associated with the token and the rest represents the token's ;;; class(es) (as a list of non-terminals that this token corresponds to). ;;; ;;; The result of `make-parser' is a function that parses the single input it ;;; is given into the grammar's goal. The result is a `parse' which can be ;;; manipulated with the procedures: `parse->parsed?', `parse->trees' ;;; and `parse->nb-trees' (see below). ;;; ;;; Let's assume that we want a parser for the grammar ;;; ;;; S -> x = E ;;; E -> E + E | V ;;; V -> V y | ;;; ;;; and that the input to the parser is a string of characters. Also, assume ;;; we would like to map the characters `x', `y', `+' and `=' into the ;;; corresponding non-terminals in the grammar. Such a parser could be ;;; created with ;;; ;;; (make-parser ;;; '( ;;; (s (x = e)) ;;; (e (e + e) (v)) ;;; (v (v y) ()) ;;; ) ;;; (lambda (str) ;;; (map (lambda (char) ;;; (list char ; user-info = the character itself ;;; (case char ;;; ((#\x) 'x) ;;; ((#\y) 'y) ;;; ((#\+) '+) ;;; ((#\=) '=) ;;; (else (fatal-error "lexer error"))))) ;;; (string->list str))) ;;; ) ;;; ;;; An alternative definition (that does not check for lexical errors) is ;;; ;;; (make-parser ;;; '( ;;; (s (#\x #\= e)) ;;; (e (e #\+ e) (v)) ;;; (v (v #\y) ()) ;;; ) ;;; (lambda (str) (map (lambda (char) (list char char)) (string->list str))) ;;; ) ;;; ;;; To help with the rest of the discussion, here are a few definitions: ;;; ;;; An input pointer (for an input of `n' tokens) is a value between 0 and `n'. ;;; It indicates a point between two input tokens (0 = beginning, `n' = end). ;;; For example, if `n' = 4, there are 5 input pointers: ;;; ;;; input token1 token2 token3 token4 ;;; input pointers 0 1 2 3 4 ;;; ;;; A configuration indicates the extent to which a given rule is parsed (this ;;; is the common `dot notation'). For simplicity, a configuration is ;;; represented as an integer, with successive configurations in the same ;;; rule associated with successive integers. It is assumed that the grammar ;;; has been extended with rules to aid scanning. These rules are of the ;;; form `nt ->', and there is one such rule for every non-terminal. Note ;;; that these rules are special because they only apply when the corresponding ;;; non-terminal is returned by the lexer. ;;; ;;; A configuration set is a configuration grouped with the set of input ;;; pointers representing where the head non-terminal of the configuration was ;;; predicted. ;;; ;;; Here are the rules and configurations for the grammar given above: ;;; ;;; S -> . \ ;;; 0 | ;;; x -> . | ;;; 1 | ;;; = -> . | ;;; 2 | ;;; E -> . | ;;; 3 > special rules (for scanning) ;;; + -> . | ;;; 4 | ;;; V -> . | ;;; 5 | ;;; y -> . | ;;; 6 / ;;; S -> . x . = . E . ;;; 7 8 9 10 ;;; E -> . E . + . E . ;;; 11 12 13 14 ;;; E -> . V . ;;; 15 16 ;;; V -> . V . y . ;;; 17 18 19 ;;; V -> . ;;; 20 ;;; ;;; Starters of the non-terminal `nt' are configurations that are leftmost ;;; in a non-special rule for `nt'. Enders of the non-terminal `nt' are ;;; configurations that are rightmost in any rule for `nt'. Predictors of the ;;; non-terminal `nt' are configurations that are directly to the left of `nt' ;;; in any rule. ;;; ;;; For the grammar given above, ;;; ;;; Starters of V = (17 20) ;;; Enders of V = (5 19 20) ;;; Predictors of V = (15 17) (define (make-parser grammar lexer) (define (non-terminals grammar) ; return vector of non-terminals in grammar (define (add-nt nt nts) (if (member nt nts) nts (cons nt nts))) ; use equal? for equality tests (let def-loop ((defs grammar) (nts '())) (if (pair? defs) (let* ((def (car defs)) (head (car def))) (let rule-loop ((rules (cdr def)) (nts (add-nt head nts))) (if (pair? rules) (let ((rule (car rules))) (let loop ((l rule) (nts nts)) (if (pair? l) (let ((nt (car l))) (loop (cdr l) (add-nt nt nts))) (rule-loop (cdr rules) nts)))) (def-loop (cdr defs) nts)))) (list->vector (reverse nts))))) ; goal non-terminal must be at index 0 (define (ind nt nts) ; return index of non-terminal `nt' in `nts' (let loop ((i (- (vector-length nts) 1))) (if (>= i 0) (if (equal? (vector-ref nts i) nt) i (loop (- i 1))) #f))) (define (nb-configurations grammar) ; return nb of configurations in grammar (let def-loop ((defs grammar) (nb-confs 0)) (if (pair? defs) (let ((def (car defs))) (let rule-loop ((rules (cdr def)) (nb-confs nb-confs)) (if (pair? rules) (let ((rule (car rules))) (let loop ((l rule) (nb-confs nb-confs)) (if (pair? l) (loop (cdr l) (+ nb-confs 1)) (rule-loop (cdr rules) (+ nb-confs 1))))) (def-loop (cdr defs) nb-confs)))) nb-confs))) ;; First, associate a numeric identifier to every non-terminal in the ;; grammar (with the goal non-terminal associated with 0). ;; ;; So, for the grammar given above we get: ;; ;; s -> 0 x -> 1 = -> 4 e ->3 + -> 4 v -> 5 y -> 6 (let* ((nts (non-terminals grammar)) ; id map = list of non-terms (nb-nts (vector-length nts)) ; the number of non-terms (nb-confs (+ (nb-configurations grammar) nb-nts)) ; the nb of confs (starters (make-vector nb-nts '())) ; starters for every non-term (enders (make-vector nb-nts '())) ; enders for every non-term (predictors (make-vector nb-nts '())) ; predictors for every non-term (steps (make-vector nb-confs #f)) ; what to do in a given conf (names (make-vector nb-confs #f))) ; name of rules (define (setup-tables grammar nts starters enders predictors steps names) (define (add-conf conf nt nts class) (let ((i (ind nt nts))) (vector-set! class i (cons conf (vector-ref class i))))) (let ((nb-nts (vector-length nts))) (let nt-loop ((i (- nb-nts 1))) (if (>= i 0) (begin (vector-set! steps i (- i nb-nts)) (vector-set! names i (list (vector-ref nts i) 0)) (vector-set! enders i (list i)) (nt-loop (- i 1))))) (let def-loop ((defs grammar) (conf (vector-length nts))) (if (pair? defs) (let* ((def (car defs)) (head (car def))) (let rule-loop ((rules (cdr def)) (conf conf) (rule-num 1)) (if (pair? rules) (let ((rule (car rules))) (vector-set! names conf (list head rule-num)) (add-conf conf head nts starters) (let loop ((l rule) (conf conf)) (if (pair? l) (let ((nt (car l))) (vector-set! steps conf (ind nt nts)) (add-conf conf nt nts predictors) (loop (cdr l) (+ conf 1))) (begin (vector-set! steps conf (- (ind head nts) nb-nts)) (add-conf conf head nts enders) (rule-loop (cdr rules) (+ conf 1) (+ rule-num 1)))))) (def-loop (cdr defs) conf)))))))) ;; Now, for each non-terminal, compute the starters, enders and predictors ;; and the names and steps tables. (setup-tables grammar nts starters enders predictors steps names) ;; Build the parser description (let ((parser-descr (vector lexer nts starters enders predictors steps names))) (lambda (input) (define (ind nt nts) ; return index of non-terminal `nt' in `nts' (let loop ((i (- (vector-length nts) 1))) (if (>= i 0) (if (equal? (vector-ref nts i) nt) i (loop (- i 1))) #f))) (define (comp-tok tok nts) ; transform token to parsing format (let loop ((l1 (cdr tok)) (l2 '())) (if (pair? l1) (let ((i (ind (car l1) nts))) (if i (loop (cdr l1) (cons i l2)) (loop (cdr l1) l2))) (cons (car tok) (reverse l2))))) (define (input->tokens input lexer nts) (list->vector (map (lambda (tok) (comp-tok tok nts)) (lexer input)))) (define (make-states nb-toks nb-confs) (let ((states (make-vector (+ nb-toks 1) #f))) (let loop ((i nb-toks)) (if (>= i 0) (let ((v (make-vector (+ nb-confs 1) #f))) (vector-set! v 0 -1) (vector-set! states i v) (loop (- i 1))) states)))) (define (conf-set-get state conf) (vector-ref state (+ conf 1))) (define (conf-set-get* state state-num conf) (let ((conf-set (conf-set-get state conf))) (if conf-set conf-set (let ((conf-set (make-vector (+ state-num 6) #f))) (vector-set! conf-set 1 -3) ; old elems tail (points to head) (vector-set! conf-set 2 -1) ; old elems head (vector-set! conf-set 3 -1) ; new elems tail (points to head) (vector-set! conf-set 4 -1) ; new elems head (vector-set! state (+ conf 1) conf-set) conf-set)))) (define (conf-set-merge-new! conf-set) (vector-set! conf-set (+ (vector-ref conf-set 1) 5) (vector-ref conf-set 4)) (vector-set! conf-set 1 (vector-ref conf-set 3)) (vector-set! conf-set 3 -1) (vector-set! conf-set 4 -1)) (define (conf-set-head conf-set) (vector-ref conf-set 2)) (define (conf-set-next conf-set i) (vector-ref conf-set (+ i 5))) (define (conf-set-member? state conf i) (let ((conf-set (vector-ref state (+ conf 1)))) (if conf-set (conf-set-next conf-set i) #f))) (define (conf-set-adjoin state conf-set conf i) (let ((tail (vector-ref conf-set 3))) ; put new element at tail (vector-set! conf-set (+ i 5) -1) (vector-set! conf-set (+ tail 5) i) (vector-set! conf-set 3 i) (if (< tail 0) (begin (vector-set! conf-set 0 (vector-ref state 0)) (vector-set! state 0 conf))))) (define (conf-set-adjoin* states state-num l i) (let ((state (vector-ref states state-num))) (let loop ((l1 l)) (if (pair? l1) (let* ((conf (car l1)) (conf-set (conf-set-get* state state-num conf))) (if (not (conf-set-next conf-set i)) (begin (conf-set-adjoin state conf-set conf i) (loop (cdr l1))) (loop (cdr l1)))))))) (define (conf-set-adjoin** states states* state-num conf i) (let ((state (vector-ref states state-num))) (if (conf-set-member? state conf i) (let* ((state* (vector-ref states* state-num)) (conf-set* (conf-set-get* state* state-num conf))) (if (not (conf-set-next conf-set* i)) (conf-set-adjoin state* conf-set* conf i)) #t) #f))) (define (conf-set-union state conf-set conf other-set) (let loop ((i (conf-set-head other-set))) (if (>= i 0) (if (not (conf-set-next conf-set i)) (begin (conf-set-adjoin state conf-set conf i) (loop (conf-set-next other-set i))) (loop (conf-set-next other-set i)))))) (define (forw states state-num starters enders predictors steps nts) (define (predict state state-num conf-set conf nt starters enders) ;; add configurations which start the non-terminal `nt' to the ;; right of the dot (let loop1 ((l (vector-ref starters nt))) (if (pair? l) (let* ((starter (car l)) (starter-set (conf-set-get* state state-num starter))) (if (not (conf-set-next starter-set state-num)) (begin (conf-set-adjoin state starter-set starter state-num) (loop1 (cdr l))) (loop1 (cdr l)))))) ;; check for possible completion of the non-terminal `nt' to the ;; right of the dot (let loop2 ((l (vector-ref enders nt))) (if (pair? l) (let ((ender (car l))) (if (conf-set-member? state ender state-num) (let* ((next (+ conf 1)) (next-set (conf-set-get* state state-num next))) (conf-set-union state next-set next conf-set) (loop2 (cdr l))) (loop2 (cdr l))))))) (define (reduce states state state-num conf-set head preds) ;; a non-terminal is now completed so check for reductions that ;; are now possible at the configurations `preds' (let loop1 ((l preds)) (if (pair? l) (let ((pred (car l))) (let loop2 ((i head)) (if (>= i 0) (let ((pred-set (conf-set-get (vector-ref states i) pred))) (if pred-set (let* ((next (+ pred 1)) (next-set (conf-set-get* state state-num next))) (conf-set-union state next-set next pred-set))) (loop2 (conf-set-next conf-set i))) (loop1 (cdr l)))))))) (let ((state (vector-ref states state-num)) (nb-nts (vector-length nts))) (let loop () (let ((conf (vector-ref state 0))) (if (>= conf 0) (let* ((step (vector-ref steps conf)) (conf-set (vector-ref state (+ conf 1))) (head (vector-ref conf-set 4))) (vector-set! state 0 (vector-ref conf-set 0)) (conf-set-merge-new! conf-set) (if (>= step 0) (predict state state-num conf-set conf step starters enders) (let ((preds (vector-ref predictors (+ step nb-nts)))) (reduce states state state-num conf-set head preds))) (loop))))))) (define (forward starters enders predictors steps nts toks) (let* ((nb-toks (vector-length toks)) (nb-confs (vector-length steps)) (states (make-states nb-toks nb-confs)) (goal-starters (vector-ref starters 0))) (conf-set-adjoin* states 0 goal-starters 0) ; predict goal (forw states 0 starters enders predictors steps nts) (let loop ((i 0)) (if (< i nb-toks) (let ((tok-nts (cdr (vector-ref toks i)))) (conf-set-adjoin* states (+ i 1) tok-nts i) ; scan token (forw states (+ i 1) starters enders predictors steps nts) (loop (+ i 1))))) states)) (define (produce conf i j enders steps toks states states* nb-nts) (let ((prev (- conf 1))) (if (and (>= conf nb-nts) (>= (vector-ref steps prev) 0)) (let loop1 ((l (vector-ref enders (vector-ref steps prev)))) (if (pair? l) (let* ((ender (car l)) (ender-set (conf-set-get (vector-ref states j) ender))) (if ender-set (let loop2 ((k (conf-set-head ender-set))) (if (>= k 0) (begin (and (>= k i) (conf-set-adjoin** states states* k prev i) (conf-set-adjoin** states states* j ender k)) (loop2 (conf-set-next ender-set k))) (loop1 (cdr l)))) (loop1 (cdr l))))))))) (define (back states states* state-num enders steps nb-nts toks) (let ((state* (vector-ref states* state-num))) (let loop1 () (let ((conf (vector-ref state* 0))) (if (>= conf 0) (let* ((conf-set (vector-ref state* (+ conf 1))) (head (vector-ref conf-set 4))) (vector-set! state* 0 (vector-ref conf-set 0)) (conf-set-merge-new! conf-set) (let loop2 ((i head)) (if (>= i 0) (begin (produce conf i state-num enders steps toks states states* nb-nts) (loop2 (conf-set-next conf-set i))) (loop1))))))))) (define (backward states enders steps nts toks) (let* ((nb-toks (vector-length toks)) (nb-confs (vector-length steps)) (nb-nts (vector-length nts)) (states* (make-states nb-toks nb-confs)) (goal-enders (vector-ref enders 0))) (let loop1 ((l goal-enders)) (if (pair? l) (let ((conf (car l))) (conf-set-adjoin** states states* nb-toks conf 0) (loop1 (cdr l))))) (let loop2 ((i nb-toks)) (if (>= i 0) (begin (back states states* i enders steps nb-nts toks) (loop2 (- i 1))))) states*)) (define (parsed? nt i j nts enders states) (let ((nt* (ind nt nts))) (if nt* (let ((nb-nts (vector-length nts))) (let loop ((l (vector-ref enders nt*))) (if (pair? l) (let ((conf (car l))) (if (conf-set-member? (vector-ref states j) conf i) #t (loop (cdr l)))) #f))) #f))) (define (deriv-trees conf i j enders steps names toks states nb-nts) (let ((name (vector-ref names conf))) (if name ; `conf' is at the start of a rule (either special or not) (if (< conf nb-nts) (list (list name (car (vector-ref toks i)))) (list (list name))) (let ((prev (- conf 1))) (let loop1 ((l1 (vector-ref enders (vector-ref steps prev))) (l2 '())) (if (pair? l1) (let* ((ender (car l1)) (ender-set (conf-set-get (vector-ref states j) ender))) (if ender-set (let loop2 ((k (conf-set-head ender-set)) (l2 l2)) (if (>= k 0) (if (and (>= k i) (conf-set-member? (vector-ref states k) prev i)) (let ((prev-trees (deriv-trees prev i k enders steps names toks states nb-nts)) (ender-trees (deriv-trees ender k j enders steps names toks states nb-nts))) (let loop3 ((l3 ender-trees) (l2 l2)) (if (pair? l3) (let ((ender-tree (list (car l3)))) (let loop4 ((l4 prev-trees) (l2 l2)) (if (pair? l4) (loop4 (cdr l4) (cons (append (car l4) ender-tree) l2)) (loop3 (cdr l3) l2)))) (loop2 (conf-set-next ender-set k) l2)))) (loop2 (conf-set-next ender-set k) l2)) (loop1 (cdr l1) l2))) (loop1 (cdr l1) l2))) l2)))))) (define (deriv-trees* nt i j nts enders steps names toks states) (let ((nt* (ind nt nts))) (if nt* (let ((nb-nts (vector-length nts))) (let loop ((l (vector-ref enders nt*)) (trees '())) (if (pair? l) (let ((conf (car l))) (if (conf-set-member? (vector-ref states j) conf i) (loop (cdr l) (append (deriv-trees conf i j enders steps names toks states nb-nts) trees)) (loop (cdr l) trees))) trees))) #f))) (define (nb-deriv-trees conf i j enders steps toks states nb-nts) (let ((prev (- conf 1))) (if (or (< conf nb-nts) (< (vector-ref steps prev) 0)) 1 (let loop1 ((l (vector-ref enders (vector-ref steps prev))) (n 0)) (if (pair? l) (let* ((ender (car l)) (ender-set (conf-set-get (vector-ref states j) ender))) (if ender-set (let loop2 ((k (conf-set-head ender-set)) (n n)) (if (>= k 0) (if (and (>= k i) (conf-set-member? (vector-ref states k) prev i)) (let ((nb-prev-trees (nb-deriv-trees prev i k enders steps toks states nb-nts)) (nb-ender-trees (nb-deriv-trees ender k j enders steps toks states nb-nts))) (loop2 (conf-set-next ender-set k) (+ n (* nb-prev-trees nb-ender-trees)))) (loop2 (conf-set-next ender-set k) n)) (loop1 (cdr l) n))) (loop1 (cdr l) n))) n))))) (define (nb-deriv-trees* nt i j nts enders steps toks states) (let ((nt* (ind nt nts))) (if nt* (let ((nb-nts (vector-length nts))) (let loop ((l (vector-ref enders nt*)) (nb-trees 0)) (if (pair? l) (let ((conf (car l))) (if (conf-set-member? (vector-ref states j) conf i) (loop (cdr l) (+ (nb-deriv-trees conf i j enders steps toks states nb-nts) nb-trees)) (loop (cdr l) nb-trees))) nb-trees))) #f))) (let* ((lexer (vector-ref parser-descr 0)) (nts (vector-ref parser-descr 1)) (starters (vector-ref parser-descr 2)) (enders (vector-ref parser-descr 3)) (predictors (vector-ref parser-descr 4)) (steps (vector-ref parser-descr 5)) (names (vector-ref parser-descr 6)) (toks (input->tokens input lexer nts))) (vector nts starters enders predictors steps names toks (backward (forward starters enders predictors steps nts toks) enders steps nts toks) parsed? deriv-trees* nb-deriv-trees*)))))) (define (parse->parsed? parse nt i j) (let* ((nts (vector-ref parse 0)) (enders (vector-ref parse 2)) (states (vector-ref parse 7)) (parsed? (vector-ref parse 8))) (parsed? nt i j nts enders states))) (define (parse->trees parse nt i j) (let* ((nts (vector-ref parse 0)) (enders (vector-ref parse 2)) (steps (vector-ref parse 4)) (names (vector-ref parse 5)) (toks (vector-ref parse 6)) (states (vector-ref parse 7)) (deriv-trees* (vector-ref parse 9))) (deriv-trees* nt i j nts enders steps names toks states))) (define (parse->nb-trees parse nt i j) (let* ((nts (vector-ref parse 0)) (enders (vector-ref parse 2)) (steps (vector-ref parse 4)) (toks (vector-ref parse 6)) (states (vector-ref parse 7)) (nb-deriv-trees* (vector-ref parse 10))) (nb-deriv-trees* nt i j nts enders steps toks states))) (define (test) (let ((p (make-parser '( (s (a) (s s)) ) (lambda (l) (map (lambda (x) (list x x)) l))))) (let ((x (p '(a a a a a a a a a)))) (length (parse->trees x 's 0 9))))) (run-benchmark "earley" 1500 (lambda () (test)) (lambda (result) (equal? result 1430))) stalin-0.11/benchmarks/em-functional-partial-split.sc0000600017435200151030000007462207244422142021375 0ustar qobiqobi;;; The constants are hardwired to be inexact for efficiency. ;;; begin Stalin (define make-model (primitive-procedure make-structure model 6)) (define model-pi (primitive-procedure structure-ref model 0)) (define model-mu (primitive-procedure structure-ref model 1)) (define model-sigma (primitive-procedure structure-ref model 2)) (define model-log-pi (primitive-procedure structure-ref model 3)) (define model-sigma-inverse (primitive-procedure structure-ref model 4)) (define model-log-determinant-sigma (primitive-procedure structure-ref model 5)) (define (void) ((lambda ()))) ;;; end Stalin ;;; begin Scheme->C (define make-model vector) (define (model-pi model) (vector-ref model 0)) (define (model-mu model) (vector-ref model 1)) (define (model-sigma model) (vector-ref model 2)) (define (model-log-pi model) (vector-ref model 3)) (define (model-sigma-inverse model) (vector-ref model 4)) (define (model-log-determinant-sigma model) (vector-ref model 5)) (define (panic s) (error 'panic s)) (define (void) #f) ;;; end Scheme->C ;;; begin Gambit-C (define-structure model pi mu sigma log-pi sigma-inverse log-determinant-sigma) (define (panic s) (error s)) ;;; end Gambit-C ;;; begin Bigloo (define make-model vector) (define (model-pi model) (vector-ref model 0)) (define (model-mu model) (vector-ref model 1)) (define (model-sigma model) (vector-ref model 2)) (define (model-log-pi model) (vector-ref model 3)) (define (model-sigma-inverse model) (vector-ref model 4)) (define (model-log-determinant-sigma model) (vector-ref model 5)) (define (panic s) (error s 'panic 'panic)) (define (void) #f) ;;; end Bigloo ;;; begin Chez (define make-model vector) (define (model-pi model) (vector-ref model 0)) (define (model-mu model) (vector-ref model 1)) (define (model-sigma model) (vector-ref model 2)) (define (model-log-pi model) (vector-ref model 3)) (define (model-sigma-inverse model) (vector-ref model 4)) (define (model-log-determinant-sigma model) (vector-ref model 5)) (define (panic s) (error 'panic s)) ;;; end Chez ;;; begin Chicken (define-record-type model pi mu sigma log-pi sigma-inverse log-determinant-sigma) (define (panic s) (error s)) ;;; end Chicken (define (hex-string->number s) (let loop ((s (string->list s)) (c 0)) (if (null? s) c (loop (cdr s) (+ (* 16 c) (if (char-numeric? (car s)) (- (char->integer (car s)) (char->integer #\0)) (+ (- (char->integer (car s)) (char->integer #\a)) 10))))))) ;;; The following code is a modified version of code taken from SLIB. ;;; Copyright (C) 1991, 1993 Aubrey Jaffer. ; ;Permission to copy this software, to redistribute it, and to use it ;for any purpose is granted, subject to the following restrictions and ;understandings. ; ;1. Any copy made of this software must include this copyright notice ;in full. ; ;2. I have made no warrantee or representation that the operation of ;this software will be error-free, and I am under no obligation to ;provide any services, by way of maintenance, update, or otherwise. ; ;3. In conjunction with products arising from the use of this ;material, there shall be no use of my name in any advertising, ;promotional, or sales literature without prior written consent in ;each case. (define *most-positive-fixnum* 65535) (define (logical:logxor n1 n2) (cond ((= n1 n2) 0) ((zero? n1) n2) ((zero? n2) n1) (else (+ (* (logical:logxor (logical:ash-4 n1) (logical:ash-4 n2)) 16) (vector-ref (vector-ref logical:boole-xor (modulo n1 16)) (modulo n2 16)))))) (define (logical:ash-4 x) (if (negative? x) (+ -1 (quotient (+ 1 x) 16)) (quotient x 16))) (define logical:boole-xor '#(#(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15) #(1 0 3 2 5 4 7 6 9 8 11 10 13 12 15 14) #(2 3 0 1 6 7 4 5 10 11 8 9 14 15 12 13) #(3 2 1 0 7 6 5 4 11 10 9 8 15 14 13 12) #(4 5 6 7 0 1 2 3 12 13 14 15 8 9 10 11) #(5 4 7 6 1 0 3 2 13 12 15 14 9 8 11 10) #(6 7 4 5 2 3 0 1 14 15 12 13 10 11 8 9) #(7 6 5 4 3 2 1 0 15 14 13 12 11 10 9 8) #(8 9 10 11 12 13 14 15 0 1 2 3 4 5 6 7) #(9 8 11 10 13 12 15 14 1 0 3 2 5 4 7 6) #(10 11 8 9 14 15 12 13 2 3 0 1 6 7 4 5) #(11 10 9 8 15 14 13 12 3 2 1 0 7 6 5 4) #(12 13 14 15 8 9 10 11 4 5 6 7 0 1 2 3) #(13 12 15 14 9 8 11 10 5 4 7 6 1 0 3 2) #(14 15 12 13 10 11 8 9 6 7 4 5 2 3 0 1) #(15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0))) (define random:tap 24) (define random:size 55) (define (random:size-int l) (let ((trial (hex-string->number (make-string l #\f)))) (if (and (exact? trial) (positive? trial) (>= *most-positive-fixnum* trial)) l (random:size-int (- l 1))))) (define random:chunk-size (* 4 (random:size-int 8))) (define random:MASK (hex-string->number (make-string (quotient random:chunk-size 4) #\f))) (define *random-state* '#()) (let ((random-strings '#("d909ef3e" "fd330ab3" "e33f7843" "76783fbd" "f3675fb3" "b54ef879" "0be45590" "a6794679" "0bcd56d3" "fabcdef8" "9cbd3efd" "3fd3efcd" "e064ef27" "dddecc08" "34444292" "85444454" "4c519210" "c0366273" "54734567" "70abcddc" "1bbdac53" "616c5a86" "a982efa9" "105996a0" "5f0cccba" "1ea055e1" "fe2acd8d" "1891c1d4" "e6690270" "6912bccc" "2678e141" "61222224" "907abcbb" "4ad6829b" "9cdd1404" "57798841" "5b892496" "871c9cd1" "d1e67bda" "8b0a3233" "578ef23f" "28274ef6" "823ef5ef" "845678c5" "e67890a5" "5890abcb" "851fa9ab" "13efa13a" "b12278d6" "daf805ab" "a0befc36" "0068a7b5" "e024fd90" "a7b690e2" "27f3571a" 0))) (set! *random-state* (make-vector (+ random:size 1) 0)) (let ((nibbles (quotient random:chunk-size 4))) (do ((i 0 (+ i 1))) ((= i random:size)) (vector-set! *random-state* i (hex-string->number (substring (vector-ref random-strings i) 0 nibbles)))))) ;;; random:chunk returns an integer in the range of ;;; 0 to (- (expt 2 random:chunk-size) 1) (define (random:chunk v) (let* ((p (vector-ref v random:size)) (ans (logical:logxor (vector-ref v (modulo (- p random:tap) random:size)) (vector-ref v p)))) (vector-set! v p ans) (vector-set! v random:size (modulo (- p 1) random:size)) ans)) (define (rand) (do ((ilen 0 (+ 1 ilen)) (s random:MASK (+ random:MASK (* (+ 1 random:MASK) s)))) ((>= s (- *most-positive-fixnum* 1)) (let ((slop (modulo (+ s (- 1 *most-positive-fixnum*)) *most-positive-fixnum*))) (let loop ((n ilen) (r (random:chunk *random-state*))) (cond ((not (zero? n)) (loop (+ -1 n) (+ (* r (+ 1 random:MASK)) (random:chunk *random-state*)))) ((>= r slop) (modulo r *most-positive-fixnum*)) (else (loop ilen (random:chunk *random-state*))))))))) ;;; End of code taken from SLIB (define log-math-precision 35.0) (define minus-infinity (log 0.0)) (define first car) (define second cadr) (define rest cdr) (define (for-each-n f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-from-a-up-to-b f a b) (let loop ((i a)) (if (< i b) (begin (f i) (loop (+ i 1)))))) (define (map-vector1 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector2 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector3 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector4 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector5 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector6 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector7 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector8 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector9 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector10 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector11 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector12 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector13 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector14 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector15 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector16 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector17 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector18 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector19 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector-two1 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) (vector-length v1)) u)) (define (map-vector-two2 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) (vector-length v1)) u)) (define (map-vector-two3 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) (vector-length v1)) u)) (define (map-vector-two4 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) (vector-length v1)) u)) (define (map-vector-two5 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) (vector-length v1)) u)) (define (map-vector-two6 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) (vector-length v1)) u)) (define (map-vector-two7 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) (vector-length v1)) u)) (define (map-vector-two8 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (for-each-n (lambda (i) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) (vector-length v1)) u)) (define (reduce f l i) (cond ((null? l) i) ((null? (rest l)) (first l)) (else (let loop ((l (rest l)) (c (first l))) (if (null? l) c (loop (rest l) (f c (first l)))))))) (define (reduce-vector1 f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (reduce-vector2 f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (reduce-vector3 f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (reduce-vector4 f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (reduce-vector5 f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (reduce-vector6 f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (reduce-vector7 f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (every-n1 p n) (let loop ((i 0)) (or (>= i n) (and (p i) (loop (+ i 1)))))) (define (every-n2 p n) (let loop ((i 0)) (or (>= i n) (and (p i) (loop (+ i 1)))))) (define (sum1 f n) (let loop ((n (- n 1)) (c 0.0)) (if (negative? n) c (loop (- n 1) (+ c (f n)))))) (define (sum2 f n) (let loop ((n (- n 1)) (c 0.0)) (if (negative? n) c (loop (- n 1) (+ c (f n)))))) (define (dot u v) (reduce-vector1 + (map-vector-two1 * u v) 0.0)) (define (v+ u v) (map-vector-two2 + u v)) (define (v- u v) (map-vector-two3 - u v)) (define (k*v k u) (map-vector1 (lambda (x) (* k x)) u)) (define (add-exp e1 e2) (let* ((e-max (max e1 e2)) (e-min (min e1 e2)) (factor (floor e-min))) (if (= e-max minus-infinity) minus-infinity (if (> (- e-max factor) log-math-precision) e-max (+ (log (+ (exp (- e-max factor)) (exp (- e-min factor)))) factor))))) (define (map-n1 f n) ;; needs work: To eliminate REVERSE. (let loop ((i 0) (c '())) (if (< i n) (loop (+ i 1) (cons (f i) c)) (reverse c)))) (define (map-n2 f n) ;; needs work: To eliminate REVERSE. (let loop ((i 0) (c '())) (if (< i n) (loop (+ i 1) (cons (f i) c)) (reverse c)))) (define (map-n-vector1 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector2 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector3 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector4 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector5 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector6 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector7 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector8 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector9 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector10 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector11 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (remove-if-not p l) ;; needs work: To eliminate REVERSE. (let loop ((l l) (c '())) (cond ((null? l) (reverse c)) ((p (first l)) (loop (rest l) (cons (first l) c))) (else (loop (rest l) c))))) (define (positionv x l) (let loop ((l l) (i 0)) (cond ((null? l) #f) ((eqv? x (first l)) i) (else (loop (rest l) (+ i 1)))))) (define (make-matrix1 m n) (map-n-vector1 (lambda (i) (make-vector n)) m)) (define (make-matrix2 m n) (map-n-vector2 (lambda (i) (make-vector n)) m)) (define (make-matrix-initial1 m n initial) (map-n-vector3 (lambda (i) (make-vector n initial)) m)) (define (make-matrix-initial2 m n initial) (map-n-vector4 (lambda (i) (make-vector n initial)) m)) (define (make-matrix-initial3 m n initial) (map-n-vector5 (lambda (i) (make-vector n initial)) m)) (define (make-matrix-initial4 m n initial) (map-n-vector6 (lambda (i) (make-vector n initial)) m)) (define (matrix-rows a) (vector-length a)) (define (matrix-columns a) (vector-length (vector-ref a 0))) (define (matrix-ref a i j) (vector-ref (vector-ref a i) j)) (define (matrix-set! a i j x) (vector-set! (vector-ref a i) j x)) (define (matrix-row-ref a i) (vector-ref a i)) (define (matrix-column-ref a j) (map-vector2 (lambda (v) (vector-ref v j)) a)) (define (matrix-row-set! a i v) (vector-set! a i v)) (define (m+ a b) (map-vector-two4 v+ a b)) (define (m- a b) (map-vector-two5 v- a b)) (define (m*v a v) (map-vector3 (lambda (u) (dot u v)) a)) (define (transpose a) (map-n-vector7 (lambda (j) (matrix-column-ref a j)) (matrix-columns a))) (define (outer-product1 f u v) (map-vector4 (lambda (ui) (map-vector5 (lambda (vj) (f ui vj)) v)) u)) (define (outer-product2 f u v) (map-vector6 (lambda (ui) (map-vector7 (lambda (vj) (f ui vj)) v)) u)) (define (self-outer-product f v) (outer-product1 f v v)) (define (m* a b) (outer-product2 dot a (transpose b))) (define (k*m k m) (map-vector8 (lambda (row) (map-vector9 (lambda (e) (* k e)) row)) m)) (define (determinant a) (if (not (= (matrix-rows a) (matrix-columns a))) (panic "Can only find determinant of a square matrix")) (call-with-current-continuation (lambda (return) (let* ((n (matrix-rows a)) (b (make-matrix1 n n)) (d 1.0)) (for-each-n (lambda (i) (for-each-n (lambda (j) (matrix-set! b i j (matrix-ref a i j))) n)) n) (for-each-n (lambda (i) ;; partial pivoting reduces rounding errors (let ((greatest (abs (matrix-ref b i i))) (index i)) (for-each-from-a-up-to-b (lambda (j) (let ((x (abs (matrix-ref b j i)))) (if (> x greatest) (begin (set! index j) (set! greatest x))))) (+ i 1) n) (if (= greatest 0.0) (return 0.0)) (if (not (= index i)) (let ((v (matrix-row-ref b i))) (matrix-row-set! b i (matrix-row-ref b index)) (matrix-row-set! b index v) (set! d (- d)))) (let ((c (matrix-ref b i i))) (set! d (* d c)) (for-each-from-a-up-to-b (lambda (j) (matrix-set! b i j (/ (matrix-ref b i j) c))) i n) (for-each-from-a-up-to-b (lambda (j) (let ((e (matrix-ref b j i))) (for-each-from-a-up-to-b (lambda (k) (matrix-set! b j k (- (matrix-ref b j k) (* e (matrix-ref b i k))))) (+ i 1) n))) (+ i 1) n)))) n) d)))) (define (invert-matrix a) (if (not (= (matrix-rows a) (matrix-columns a))) (panic "Can only invert a square matrix")) (let* ((n (matrix-rows a)) (c (make-matrix2 n n)) (b (make-matrix-initial1 n n 0.0))) (for-each-n (lambda (i) (for-each-n (lambda (j) (matrix-set! c i j (matrix-ref a i j))) n)) n) (for-each-n (lambda (i) (matrix-set! b i i 1.0)) n) (for-each-n (lambda (i) (if (zero? (matrix-ref c i i)) (call-with-current-continuation (lambda (return) (for-each-n (lambda (j) (if (and (> j i) (not (zero? (matrix-ref c j i)))) (begin (let ((e (vector-ref c i))) (vector-set! c i (vector-ref c j)) (vector-set! c j e)) (let ((e (vector-ref b i))) (vector-set! b i (vector-ref b j)) (vector-set! b j e)) (return (void))))) n) (panic "Matrix is singular")))) (let ((d (/ (matrix-ref c i i)))) (for-each-n (lambda (j) (matrix-set! c i j (* d (matrix-ref c i j))) (matrix-set! b i j (* d (matrix-ref b i j)))) n) (for-each-n (lambda (k) (let ((d (- (matrix-ref c k i)))) (if (not (= k i)) (for-each-n (lambda (j) (matrix-set! c k j (+ (matrix-ref c k j) (* d (matrix-ref c i j)))) (matrix-set! b k j (+ (matrix-ref b k j) (* d (matrix-ref b i j))))) n)))) n))) n) b)) (define (jacobi a) (if (not (and (= (matrix-rows a) (matrix-columns a)) (every-n1 (lambda (i) (every-n2 (lambda (j) (= (matrix-ref a i j) (matrix-ref a j i))) (matrix-rows a))) (matrix-rows a)))) (panic "Can only compute eigenvalues/eigenvectors of a symmetric matrix")) (let* ((a (map-vector10 (lambda (row) (map-vector11 (lambda (x) x) row)) a)) (n (matrix-rows a)) (d (make-vector n)) (v (make-matrix-initial2 n n 0.0)) (b (make-vector n)) (z (make-vector n 0.0))) (for-each-n (lambda (ip) (matrix-set! v ip ip 1.0) (vector-set! b ip (matrix-ref a ip ip)) (vector-set! d ip (matrix-ref a ip ip))) n) (let loop ((i 0)) (if (> i 50) (panic "Too many iterations in JACOBI")) (let ((sm (sum1 (lambda (ip) (sum2 (lambda (ir) (let ((iq (+ ip ir 1))) (abs (matrix-ref a ip iq)))) (- n ip 1))) (- n 1)))) (if (not (zero? sm)) (begin (let ((tresh (if (< i 3) (/ (* 0.2 sm) (* n n)) 0.0))) (for-each-n (lambda (ip) (for-each-n (lambda (ir) (let* ((iq (+ ip ir 1)) (g (* 100.0 (abs (matrix-ref a ip iq))))) (cond ((and (> i 3) (= (+ (abs (vector-ref d ip)) g) (abs (vector-ref d ip))) (= (+ (abs (vector-ref d iq)) g) (abs (vector-ref d iq)))) (matrix-set! a ip iq 0.0)) ((> (abs (matrix-ref a ip iq)) tresh) (let* ((h (- (vector-ref d iq) (vector-ref d ip))) (t (if (= (+ (abs h) g) (abs h)) (/ (matrix-ref a ip iq) h) (let ((theta (/ (* 0.5 h) (matrix-ref a ip iq)))) (if (negative? theta) (- (/ (+ (abs theta) (sqrt (+ (* theta theta) 1.0))))) (/ (+ (abs theta) (sqrt (+ (* theta theta) 1.0)))))))) (c (/ (sqrt (+ (* t t) 1.0)))) (s (* t c)) (tau (/ s (+ c 1.0))) (h (* t (matrix-ref a ip iq)))) (define (rotate a i j k l) (let ((g (matrix-ref a i j)) (h (matrix-ref a k l))) (matrix-set! a i j (- g (* s (+ h (* g tau))))) (matrix-set! a k l (+ h (* s (- g (* h tau))))))) (vector-set! z ip (- (vector-ref z ip) h)) (vector-set! z iq (+ (vector-ref z iq) h)) (vector-set! d ip (- (vector-ref d ip) h)) (vector-set! d iq (+ (vector-ref d iq) h)) (matrix-set! a ip iq 0.0) (for-each-n (lambda (j) (cond ((< j ip) (rotate a j ip j iq)) ((< ip j iq) (rotate a ip j j iq)) ((< iq j) (rotate a ip j iq j))) (rotate v j ip j iq)) n)))))) (- n ip 1))) (- n 1))) (for-each-n (lambda (ip) (vector-set! b ip (+ (vector-ref b ip) (vector-ref z ip))) (vector-set! d ip (vector-ref b ip)) (vector-set! z ip 0.0)) n) (loop (+ i 1)))))) (for-each-n (lambda (i) (let ((k i) (p (vector-ref d i))) (for-each-n (lambda (l) (let* ((j (+ i l 1))) (if (>= (vector-ref d j) p) (begin (set! k j) (set! p (vector-ref d j)))))) (- n i 1)) (if (not (= k i)) (begin (vector-set! d k (vector-ref d i)) (vector-set! d i p) (for-each-n (lambda (j) (let ((p (matrix-ref v j i))) (matrix-set! v j i (matrix-ref v j k)) (matrix-set! v j k p))) n))))) (- n 1)) (list d (transpose v)))) (define (vector->diagonal-matrix v) (let ((m (make-matrix-initial3 (vector-length v) (vector-length v) 0.0))) (for-each-n (lambda (i) (matrix-set! m i i (vector-ref v i))) (vector-length v)) m)) (define (clip-eigenvalues a v) (let* ((j (jacobi a)) (e (second j))) (m* (transpose e) (m* (vector->diagonal-matrix (map-vector-two6 max v (first j))) e)))) ;;; EM (define (e-step x models) (let ((z (map-vector12 (lambda (xi) ;; Compute for each model. (map-vector13 (lambda (model) (let ((log-pi (model-log-pi model)) (mu (model-mu model)) (sigma-inverse (model-sigma-inverse model)) (log-determinant-sigma (model-log-determinant-sigma model))) ;; Compute likelihoods (note: up to constant for all models). (- log-pi (* 0.5 (+ log-determinant-sigma (dot (v- xi mu) (m*v sigma-inverse (v- xi mu)))))))) models)) x))) ;; Normalize ownerships to sum to one. (let ((s (map-vector14 (lambda (zi) (reduce-vector2 add-exp zi minus-infinity)) z))) ;; Return log likelihood and ownerships matrix. (list (reduce-vector3 + s 0.0) (map-vector15 (lambda (zi) (map-vector16 exp zi)) (m- z (transpose (make-vector (matrix-columns z) s)))))))) (define (m-step x z clip) ;; Returns new set of models. (let* ((ii (vector-length x)) (kk (vector-length (vector-ref x 0)))) ;; For each model, optimize parameters. (map-n-vector8 (lambda (j) (let* ((zj (matrix-column-ref z j)) (zj-sum (reduce-vector4 + zj 0.0)) ;; Optimize values. (mu (k*v (/ zj-sum) (reduce-vector5 v+ (map-vector-two7 k*v zj x) (make-vector kk 0.0)))) (sigma (clip-eigenvalues (k*m (/ zj-sum) (reduce-vector6 m+ (map-vector-two8 (lambda (zij xi) (k*m zij (self-outer-product * (v- xi mu)))) zj x) (make-matrix-initial4 kk kk 0.0))) clip))) (make-model (/ zj-sum ii) mu sigma (log (/ zj-sum ii)) (invert-matrix sigma) (log (determinant sigma))))) (matrix-columns z)))) (define (em x pi mu sigma clip em-kick-off-tolerance em-convergence-tolerance) (let ((jj (vector-length mu))) (let loop ((models (map-n-vector9 (lambda (j) (make-model (vector-ref pi j) (vector-ref mu j) (vector-ref sigma j) (log (vector-ref pi j)) (invert-matrix (vector-ref sigma j)) (log (determinant (vector-ref sigma j))))) jj)) (old-log-likelihood minus-infinity) (starting? #t)) (let ((log-likelihood-z (e-step x models))) (if (or (and starting? (> (first log-likelihood-z) old-log-likelihood)) (> (first log-likelihood-z) (+ old-log-likelihood em-convergence-tolerance))) (loop (m-step x (second log-likelihood-z) clip) (first log-likelihood-z) (and starting? (not (= jj 1)) (or (= old-log-likelihood minus-infinity) (< (first log-likelihood-z) (+ old-log-likelihood em-kick-off-tolerance))))) (list old-log-likelihood models)))))) (define (noise epsilon) (- (* 2.0 epsilon (/ (exact->inexact (rand)) *most-positive-fixnum*)) epsilon)) (define (initial-z ii jj) (map-n-vector10 (lambda (i) (let ((zi (map-n-vector11 (lambda (j) (+ (/ (exact->inexact jj)) (noise (/ (exact->inexact jj))))) jj))) (k*v (/ (reduce-vector7 + zi 0.0)) zi))) ii)) (define (ems x clip em-kick-off-tolerance em-convergence-tolerance ems-convergence-tolerance) (let loop ((jj 1) ;; needs work: Should replace #F with ((LAMBDA ())). (old-log-likelihood-models (list minus-infinity #f))) (let* ((models (m-step x (initial-z (vector-length x) jj) clip)) (new-log-likelihood-models (em x (map-vector17 model-pi models) (map-vector18 model-mu models) (map-vector19 model-sigma models) clip em-kick-off-tolerance em-convergence-tolerance))) (if (> (- (/ (first old-log-likelihood-models) (first new-log-likelihood-models)) 1.0) ems-convergence-tolerance) (loop (+ jj 1) new-log-likelihood-models) (second old-log-likelihood-models))))) (define (em-clusterer x clip em-kick-off-tolerance em-convergence-tolerance ems-convergence-tolerance) (let* ((z (second (e-step x (ems x clip em-kick-off-tolerance em-convergence-tolerance ems-convergence-tolerance)))) (clusters (map-n1 (lambda (i) (let ((zi (vector->list (vector-ref z i)))) (list i (positionv (reduce max zi minus-infinity) zi)))) (vector-length z)))) (map-n2 (lambda (j) (map (lambda (cluster) (vector-ref x (first cluster))) (remove-if-not (lambda (cluster) (= (second cluster) j)) clusters))) (vector-length (vector-ref z 0))))) (do ((i 0 (+ i 1))) ((= i 100)) (write (em-clusterer '#(#(1.0) #(2.0) #(3.0) #(11.0) #(12.0) #(13.0)) '#(1.0) 10.0 1.0 0.01)) (newline)) stalin-0.11/benchmarks/em-functional-do-split.sc0000600017435200151030000007466007244422145020350 0ustar qobiqobi;;; The constants are hardwired to be inexact for efficiency. ;;; begin Stalin (define make-model (primitive-procedure make-structure model 6)) (define model-pi (primitive-procedure structure-ref model 0)) (define model-mu (primitive-procedure structure-ref model 1)) (define model-sigma (primitive-procedure structure-ref model 2)) (define model-log-pi (primitive-procedure structure-ref model 3)) (define model-sigma-inverse (primitive-procedure structure-ref model 4)) (define model-log-determinant-sigma (primitive-procedure structure-ref model 5)) (define (void) ((lambda ()))) ;;; end Stalin ;;; begin Scheme->C (define make-model vector) (define (model-pi model) (vector-ref model 0)) (define (model-mu model) (vector-ref model 1)) (define (model-sigma model) (vector-ref model 2)) (define (model-log-pi model) (vector-ref model 3)) (define (model-sigma-inverse model) (vector-ref model 4)) (define (model-log-determinant-sigma model) (vector-ref model 5)) (define (panic s) (error 'panic s)) (define (void) #f) ;;; end Scheme->C ;;; begin Gambit-C (define-structure model pi mu sigma log-pi sigma-inverse log-determinant-sigma) (define (panic s) (error s)) ;;; end Gambit-C ;;; begin Bigloo (define make-model vector) (define (model-pi model) (vector-ref model 0)) (define (model-mu model) (vector-ref model 1)) (define (model-sigma model) (vector-ref model 2)) (define (model-log-pi model) (vector-ref model 3)) (define (model-sigma-inverse model) (vector-ref model 4)) (define (model-log-determinant-sigma model) (vector-ref model 5)) (define (panic s) (error s 'panic 'panic)) (define (void) #f) ;;; end Bigloo ;;; begin Chez (define make-model vector) (define (model-pi model) (vector-ref model 0)) (define (model-mu model) (vector-ref model 1)) (define (model-sigma model) (vector-ref model 2)) (define (model-log-pi model) (vector-ref model 3)) (define (model-sigma-inverse model) (vector-ref model 4)) (define (model-log-determinant-sigma model) (vector-ref model 5)) (define (panic s) (error 'panic s)) ;;; end Chez ;;; begin Chicken (define-record-type model pi mu sigma log-pi sigma-inverse log-determinant-sigma) (define (panic s) (error s)) ;;; end Chicken (define (hex-string->number s) (let loop ((s (string->list s)) (c 0)) (if (null? s) c (loop (cdr s) (+ (* 16 c) (if (char-numeric? (car s)) (- (char->integer (car s)) (char->integer #\0)) (+ (- (char->integer (car s)) (char->integer #\a)) 10))))))) ;;; The following code is a modified version of code taken from SLIB. ;;; Copyright (C) 1991, 1993 Aubrey Jaffer. ; ;Permission to copy this software, to redistribute it, and to use it ;for any purpose is granted, subject to the following restrictions and ;understandings. ; ;1. Any copy made of this software must include this copyright notice ;in full. ; ;2. I have made no warrantee or representation that the operation of ;this software will be error-free, and I am under no obligation to ;provide any services, by way of maintenance, update, or otherwise. ; ;3. In conjunction with products arising from the use of this ;material, there shall be no use of my name in any advertising, ;promotional, or sales literature without prior written consent in ;each case. (define *most-positive-fixnum* 65535) (define (logical:logxor n1 n2) (cond ((= n1 n2) 0) ((zero? n1) n2) ((zero? n2) n1) (else (+ (* (logical:logxor (logical:ash-4 n1) (logical:ash-4 n2)) 16) (vector-ref (vector-ref logical:boole-xor (modulo n1 16)) (modulo n2 16)))))) (define (logical:ash-4 x) (if (negative? x) (+ -1 (quotient (+ 1 x) 16)) (quotient x 16))) (define logical:boole-xor '#(#(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15) #(1 0 3 2 5 4 7 6 9 8 11 10 13 12 15 14) #(2 3 0 1 6 7 4 5 10 11 8 9 14 15 12 13) #(3 2 1 0 7 6 5 4 11 10 9 8 15 14 13 12) #(4 5 6 7 0 1 2 3 12 13 14 15 8 9 10 11) #(5 4 7 6 1 0 3 2 13 12 15 14 9 8 11 10) #(6 7 4 5 2 3 0 1 14 15 12 13 10 11 8 9) #(7 6 5 4 3 2 1 0 15 14 13 12 11 10 9 8) #(8 9 10 11 12 13 14 15 0 1 2 3 4 5 6 7) #(9 8 11 10 13 12 15 14 1 0 3 2 5 4 7 6) #(10 11 8 9 14 15 12 13 2 3 0 1 6 7 4 5) #(11 10 9 8 15 14 13 12 3 2 1 0 7 6 5 4) #(12 13 14 15 8 9 10 11 4 5 6 7 0 1 2 3) #(13 12 15 14 9 8 11 10 5 4 7 6 1 0 3 2) #(14 15 12 13 10 11 8 9 6 7 4 5 2 3 0 1) #(15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0))) (define random:tap 24) (define random:size 55) (define (random:size-int l) (let ((trial (hex-string->number (make-string l #\f)))) (if (and (exact? trial) (positive? trial) (>= *most-positive-fixnum* trial)) l (random:size-int (- l 1))))) (define random:chunk-size (* 4 (random:size-int 8))) (define random:MASK (hex-string->number (make-string (quotient random:chunk-size 4) #\f))) (define *random-state* '#()) (let ((random-strings '#("d909ef3e" "fd330ab3" "e33f7843" "76783fbd" "f3675fb3" "b54ef879" "0be45590" "a6794679" "0bcd56d3" "fabcdef8" "9cbd3efd" "3fd3efcd" "e064ef27" "dddecc08" "34444292" "85444454" "4c519210" "c0366273" "54734567" "70abcddc" "1bbdac53" "616c5a86" "a982efa9" "105996a0" "5f0cccba" "1ea055e1" "fe2acd8d" "1891c1d4" "e6690270" "6912bccc" "2678e141" "61222224" "907abcbb" "4ad6829b" "9cdd1404" "57798841" "5b892496" "871c9cd1" "d1e67bda" "8b0a3233" "578ef23f" "28274ef6" "823ef5ef" "845678c5" "e67890a5" "5890abcb" "851fa9ab" "13efa13a" "b12278d6" "daf805ab" "a0befc36" "0068a7b5" "e024fd90" "a7b690e2" "27f3571a" 0))) (set! *random-state* (make-vector (+ random:size 1) 0)) (let ((nibbles (quotient random:chunk-size 4))) (do ((i 0 (+ i 1))) ((= i random:size)) (vector-set! *random-state* i (hex-string->number (substring (vector-ref random-strings i) 0 nibbles)))))) ;;; random:chunk returns an integer in the range of ;;; 0 to (- (expt 2 random:chunk-size) 1) (define (random:chunk v) (let* ((p (vector-ref v random:size)) (ans (logical:logxor (vector-ref v (modulo (- p random:tap) random:size)) (vector-ref v p)))) (vector-set! v p ans) (vector-set! v random:size (modulo (- p 1) random:size)) ans)) (define (rand) (do ((ilen 0 (+ 1 ilen)) (s random:MASK (+ random:MASK (* (+ 1 random:MASK) s)))) ((>= s (- *most-positive-fixnum* 1)) (let ((slop (modulo (+ s (- 1 *most-positive-fixnum*)) *most-positive-fixnum*))) (let loop ((n ilen) (r (random:chunk *random-state*))) (cond ((not (zero? n)) (loop (+ -1 n) (+ (* r (+ 1 random:MASK)) (random:chunk *random-state*)))) ((>= r slop) (modulo r *most-positive-fixnum*)) (else (loop ilen (random:chunk *random-state*))))))))) ;;; End of code taken from SLIB (define log-math-precision 35.0) (define minus-infinity (log 0.0)) (define first car) (define (second1 x) (car (cdr x))) (define (second2 x) (car (cdr x))) (define (second3 x) (car (cdr x))) (define (second4 x) (car (cdr x))) (define (second5 x) (car (cdr x))) (define rest cdr) (define (list-two1 x y) (cons x (cons y '()))) (define (list-two2 x y) (cons x (cons y '()))) (define (list-two3 x y) (cons x (cons y '()))) (define (list-two4 x y) (cons x (cons y '()))) (define (list-two5 x y) (cons x (cons y '()))) (define (map-vector1 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (do ((i 0 (+ i 1))) ((= i (vector-length v))) (vector-set! u i (f (vector-ref v i)))) u)) (define (map-vector2 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (do ((i 0 (+ i 1))) ((= i (vector-length v))) (vector-set! u i (f (vector-ref v i)))) u)) (define (map-vector3 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (do ((i 0 (+ i 1))) ((= i (vector-length v))) (vector-set! u i (f (vector-ref v i)))) u)) (define (map-vector4 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (do ((i 0 (+ i 1))) ((= i (vector-length v))) (vector-set! u i (f (vector-ref v i)))) u)) (define (map-vector5 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (do ((i 0 (+ i 1))) ((= i (vector-length v))) (vector-set! u i (f (vector-ref v i)))) u)) (define (map-vector6 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (do ((i 0 (+ i 1))) ((= i (vector-length v))) (vector-set! u i (f (vector-ref v i)))) u)) (define (map-vector7 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (do ((i 0 (+ i 1))) ((= i (vector-length v))) (vector-set! u i (f (vector-ref v i)))) u)) (define (map-vector8 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (do ((i 0 (+ i 1))) ((= i (vector-length v))) (vector-set! u i (f (vector-ref v i)))) u)) (define (map-vector9 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (do ((i 0 (+ i 1))) ((= i (vector-length v))) (vector-set! u i (f (vector-ref v i)))) u)) (define (map-vector10 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (do ((i 0 (+ i 1))) ((= i (vector-length v))) (vector-set! u i (f (vector-ref v i)))) u)) (define (map-vector11 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (do ((i 0 (+ i 1))) ((= i (vector-length v))) (vector-set! u i (f (vector-ref v i)))) u)) (define (map-vector12 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (do ((i 0 (+ i 1))) ((= i (vector-length v))) (vector-set! u i (f (vector-ref v i)))) u)) (define (map-vector13 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (do ((i 0 (+ i 1))) ((= i (vector-length v))) (vector-set! u i (f (vector-ref v i)))) u)) (define (map-vector14 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (do ((i 0 (+ i 1))) ((= i (vector-length v))) (vector-set! u i (f (vector-ref v i)))) u)) (define (map-vector15 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (do ((i 0 (+ i 1))) ((= i (vector-length v))) (vector-set! u i (f (vector-ref v i)))) u)) (define (map-vector16 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (do ((i 0 (+ i 1))) ((= i (vector-length v))) (vector-set! u i (f (vector-ref v i)))) u)) (define (map-vector17 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (do ((i 0 (+ i 1))) ((= i (vector-length v))) (vector-set! u i (f (vector-ref v i)))) u)) (define (map-vector18 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (do ((i 0 (+ i 1))) ((= i (vector-length v))) (vector-set! u i (f (vector-ref v i)))) u)) (define (map-vector19 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (do ((i 0 (+ i 1))) ((= i (vector-length v))) (vector-set! u i (f (vector-ref v i)))) u)) (define (map-vector-two1 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (do ((i 0 (+ i 1))) ((= i (vector-length v1))) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) u)) (define (map-vector-two2 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (do ((i 0 (+ i 1))) ((= i (vector-length v1))) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) u)) (define (map-vector-two3 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (do ((i 0 (+ i 1))) ((= i (vector-length v1))) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) u)) (define (map-vector-two4 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (do ((i 0 (+ i 1))) ((= i (vector-length v1))) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) u)) (define (map-vector-two5 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (do ((i 0 (+ i 1))) ((= i (vector-length v1))) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) u)) (define (map-vector-two6 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (do ((i 0 (+ i 1))) ((= i (vector-length v1))) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) u)) (define (map-vector-two7 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (do ((i 0 (+ i 1))) ((= i (vector-length v1))) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) u)) (define (map-vector-two8 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (do ((i 0 (+ i 1))) ((= i (vector-length v1))) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) u)) (define (reduce f l i) (cond ((null? l) i) ((null? (rest l)) (first l)) (else (let loop ((l (rest l)) (c (first l))) (if (null? l) c (loop (rest l) (f c (first l)))))))) (define (reduce-vector1 f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (reduce-vector2 f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (reduce-vector3 f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (reduce-vector4 f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (reduce-vector5 f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (reduce-vector6 f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (reduce-vector7 f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (every-n1 p n) (let loop ((i 0)) (or (>= i n) (and (p i) (loop (+ i 1)))))) (define (every-n2 p n) (let loop ((i 0)) (or (>= i n) (and (p i) (loop (+ i 1)))))) (define (sum1 f n) (let loop ((n (- n 1)) (c 0.0)) (if (negative? n) c (loop (- n 1) (+ c (f n)))))) (define (sum2 f n) (let loop ((n (- n 1)) (c 0.0)) (if (negative? n) c (loop (- n 1) (+ c (f n)))))) (define (dot u v) (reduce-vector1 + (map-vector-two1 * u v) 0.0)) (define (v+ u v) (map-vector-two2 + u v)) (define (v- u v) (map-vector-two3 - u v)) (define (k*v k u) (map-vector1 (lambda (x) (* k x)) u)) (define (add-exp e1 e2) (let* ((e-max (max e1 e2)) (e-min (min e1 e2)) (factor (floor e-min))) (if (= e-max minus-infinity) minus-infinity (if (> (- e-max factor) log-math-precision) e-max (+ (log (+ (exp (- e-max factor)) (exp (- e-min factor)))) factor))))) (define (map-n1 f n) ;; needs work: To eliminate REVERSE. (let loop ((i 0) (c '())) (if (< i n) (loop (+ i 1) (cons (f i) c)) (reverse c)))) (define (map-n2 f n) ;; needs work: To eliminate REVERSE. (let loop ((i 0) (c '())) (if (< i n) (loop (+ i 1) (cons (f i) c)) (reverse c)))) (define (map-n-vector1 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector2 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector3 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector4 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector5 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector6 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector7 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector8 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector9 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector10 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector11 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (remove-if-not p l) ;; needs work: To eliminate REVERSE. (let loop ((l l) (c '())) (cond ((null? l) (reverse c)) ((p (first l)) (loop (rest l) (cons (first l) c))) (else (loop (rest l) c))))) (define (positionv x l) (let loop ((l l) (i 0)) (cond ((null? l) #f) ((eqv? x (first l)) i) (else (loop (rest l) (+ i 1)))))) (define (make-matrix1 m n) (map-n-vector1 (lambda (i) (make-vector n)) m)) (define (make-matrix2 m n) (map-n-vector2 (lambda (i) (make-vector n)) m)) (define (make-matrix-initial1 m n initial) (map-n-vector3 (lambda (i) (make-vector n initial)) m)) (define (make-matrix-initial2 m n initial) (map-n-vector4 (lambda (i) (make-vector n initial)) m)) (define (make-matrix-initial3 m n initial) (map-n-vector5 (lambda (i) (make-vector n initial)) m)) (define (make-matrix-initial4 m n initial) (map-n-vector6 (lambda (i) (make-vector n initial)) m)) (define (matrix-rows a) (vector-length a)) (define (matrix-columns a) (vector-length (vector-ref a 0))) (define (matrix-ref a i j) (vector-ref (vector-ref a i) j)) (define (matrix-set! a i j x) (vector-set! (vector-ref a i) j x)) (define (matrix-row-ref a i) (vector-ref a i)) (define (matrix-column-ref a j) (map-vector2 (lambda (v) (vector-ref v j)) a)) (define (matrix-row-set! a i v) (vector-set! a i v)) (define (m+ a b) (map-vector-two4 v+ a b)) (define (m- a b) (map-vector-two5 v- a b)) (define (m*v a v) (map-vector3 (lambda (u) (dot u v)) a)) (define (transpose a) (map-n-vector7 (lambda (j) (matrix-column-ref a j)) (matrix-columns a))) (define (outer-product1 f u v) (map-vector4 (lambda (ui) (map-vector5 (lambda (vj) (f ui vj)) v)) u)) (define (outer-product2 f u v) (map-vector6 (lambda (ui) (map-vector7 (lambda (vj) (f ui vj)) v)) u)) (define (self-outer-product f v) (outer-product1 f v v)) (define (m* a b) (outer-product2 dot a (transpose b))) (define (k*m k m) (map-vector8 (lambda (row) (map-vector9 (lambda (e) (* k e)) row)) m)) (define (determinant a) (if (not (= (matrix-rows a) (matrix-columns a))) (panic "Can only find determinant of a square matrix")) (call-with-current-continuation (lambda (return) (let* ((n (matrix-rows a)) (b (make-matrix1 n n)) (d 1.0)) (do ((i 0 (+ i 1))) ((= i n)) (do ((j 0 (+ j 1))) ((= j n)) (matrix-set! b i j (matrix-ref a i j)))) (do ((i 0 (+ i 1))) ((= i n)) ;; partial pivoting reduces rounding errors (let ((greatest (abs (matrix-ref b i i))) (index i)) (do ((j (+ i 1) (+ j 1))) ((= j n)) (let ((x (abs (matrix-ref b j i)))) (if (> x greatest) (begin (set! index j) (set! greatest x))))) (if (= greatest 0.0) (return 0.0)) (if (not (= index i)) (let ((v (matrix-row-ref b i))) (matrix-row-set! b i (matrix-row-ref b index)) (matrix-row-set! b index v) (set! d (- d)))) (let ((c (matrix-ref b i i))) (set! d (* d c)) (do ((j i (+ j 1))) ((= j n)) (matrix-set! b i j (/ (matrix-ref b i j) c))) (do ((j (+ i 1) (+ j 1))) ((= j n)) (let ((e (matrix-ref b j i))) (do ((k (+ i 1) (+ k 1))) ((= k n)) (matrix-set! b j k (- (matrix-ref b j k) (* e (matrix-ref b i k)))))))))) d)))) (define (invert-matrix a) (if (not (= (matrix-rows a) (matrix-columns a))) (panic "Can only invert a square matrix")) (let* ((n (matrix-rows a)) (c (make-matrix2 n n)) (b (make-matrix-initial1 n n 0.0))) (do ((i 0 (+ i 1))) ((= i n)) (do ((j 0 (+ j 1))) ((= j n)) (matrix-set! c i j (matrix-ref a i j)))) (do ((i 0 (+ i 1))) ((= i n)) (matrix-set! b i i 1.0)) (do ((i 0 (+ i 1))) ((= i n)) (if (zero? (matrix-ref c i i)) (call-with-current-continuation (lambda (return) (do ((j 0 (+ j 1))) ((= j n)) (if (and (> j i) (not (zero? (matrix-ref c j i)))) (begin (let ((e (vector-ref c i))) (vector-set! c i (vector-ref c j)) (vector-set! c j e)) (let ((e (vector-ref b i))) (vector-set! b i (vector-ref b j)) (vector-set! b j e)) (return (void))))) (panic "Matrix is singular")))) (let ((d (/ (matrix-ref c i i)))) (do ((j 0 (+ j 1))) ((= j n)) (matrix-set! c i j (* d (matrix-ref c i j))) (matrix-set! b i j (* d (matrix-ref b i j)))) (do ((k 0 (+ k 1))) ((= k n)) (let ((d (- (matrix-ref c k i)))) (if (not (= k i)) (do ((j 0 (+ j 1))) ((= j n)) (matrix-set! c k j (+ (matrix-ref c k j) (* d (matrix-ref c i j)))) (matrix-set! b k j (+ (matrix-ref b k j) (* d (matrix-ref b i j)))))))))) b)) (define (jacobi a) (if (not (and (= (matrix-rows a) (matrix-columns a)) (every-n1 (lambda (i) (every-n2 (lambda (j) (= (matrix-ref a i j) (matrix-ref a j i))) (matrix-rows a))) (matrix-rows a)))) (panic "Can only compute eigenvalues/eigenvectors of a symmetric matrix")) (let* ((a (map-vector10 (lambda (row) (map-vector11 (lambda (x) x) row)) a)) (n (matrix-rows a)) (d (make-vector n)) (v (make-matrix-initial2 n n 0.0)) (b (make-vector n)) (z (make-vector n 0.0))) (do ((ip 0 (+ ip 1))) ((= ip n)) (matrix-set! v ip ip 1.0) (vector-set! b ip (matrix-ref a ip ip)) (vector-set! d ip (matrix-ref a ip ip))) (let loop ((i 0)) (if (> i 50) (panic "Too many iterations in JACOBI")) (let ((sm (sum1 (lambda (ip) (sum2 (lambda (ir) (let ((iq (+ ip ir 1))) (abs (matrix-ref a ip iq)))) (- n ip 1))) (- n 1)))) (if (not (zero? sm)) (begin (let ((tresh (if (< i 3) (/ (* 0.2 sm) (* n n)) 0.0))) (do ((ip 0 (+ ip 1))) ((= ip (- n 1))) (do ((ir 0 (+ ir 1))) ((= ir (- n ip 1))) (let* ((iq (+ ip ir 1)) (g (* 100.0 (abs (matrix-ref a ip iq))))) (cond ((and (> i 3) (= (+ (abs (vector-ref d ip)) g) (abs (vector-ref d ip))) (= (+ (abs (vector-ref d iq)) g) (abs (vector-ref d iq)))) (matrix-set! a ip iq 0.0)) ((> (abs (matrix-ref a ip iq)) tresh) (let* ((h (- (vector-ref d iq) (vector-ref d ip))) (t (if (= (+ (abs h) g) (abs h)) (/ (matrix-ref a ip iq) h) (let ((theta (/ (* 0.5 h) (matrix-ref a ip iq)))) (if (negative? theta) (- (/ (+ (abs theta) (sqrt (+ (* theta theta) 1.0))))) (/ (+ (abs theta) (sqrt (+ (* theta theta) 1.0)))))))) (c (/ (sqrt (+ (* t t) 1.0)))) (s (* t c)) (tau (/ s (+ c 1.0))) (h (* t (matrix-ref a ip iq)))) (define (rotate a i j k l) (let ((g (matrix-ref a i j)) (h (matrix-ref a k l))) (matrix-set! a i j (- g (* s (+ h (* g tau))))) (matrix-set! a k l (+ h (* s (- g (* h tau))))))) (vector-set! z ip (- (vector-ref z ip) h)) (vector-set! z iq (+ (vector-ref z iq) h)) (vector-set! d ip (- (vector-ref d ip) h)) (vector-set! d iq (+ (vector-ref d iq) h)) (matrix-set! a ip iq 0.0) (do ((j 0 (+ j 1))) ((= j n)) (cond ((< j ip) (rotate a j ip j iq)) ((< ip j iq) (rotate a ip j j iq)) ((< iq j) (rotate a ip j iq j))) (rotate v j ip j iq))))))))) (do ((ip 0 (+ ip 1))) ((= ip n)) (vector-set! b ip (+ (vector-ref b ip) (vector-ref z ip))) (vector-set! d ip (vector-ref b ip)) (vector-set! z ip 0.0)) (loop (+ i 1)))))) (do ((i 0 (+ i 1))) ((= i (- n 1))) (let ((k i) (p (vector-ref d i))) (do ((l 0 (+ l 1))) ((= l (- n i 1))) (let* ((j (+ i l 1))) (if (>= (vector-ref d j) p) (begin (set! k j) (set! p (vector-ref d j)))))) (if (not (= k i)) (begin (vector-set! d k (vector-ref d i)) (vector-set! d i p) (do ((j 0 (+ j 1))) ((= j n)) (let ((p (matrix-ref v j i))) (matrix-set! v j i (matrix-ref v j k)) (matrix-set! v j k p))))))) (list-two1 d (transpose v)))) (define (vector->diagonal-matrix v) (let ((m (make-matrix-initial3 (vector-length v) (vector-length v) 0.0))) (do ((i 0 (+ i 1))) ((= i (vector-length v))) (matrix-set! m i i (vector-ref v i))) m)) (define (clip-eigenvalues a v) (let* ((j (jacobi a)) (e (second1 j))) (m* (transpose e) (m* (vector->diagonal-matrix (map-vector-two6 max v (first j))) e)))) ;;; EM (define (e-step x models) (let ((z (map-vector12 (lambda (xi) ;; Compute for each model. (map-vector13 (lambda (model) (let ((log-pi (model-log-pi model)) (mu (model-mu model)) (sigma-inverse (model-sigma-inverse model)) (log-determinant-sigma (model-log-determinant-sigma model))) ;; Compute likelihoods (note: up to constant for all models). (- log-pi (* 0.5 (+ log-determinant-sigma (dot (v- xi mu) (m*v sigma-inverse (v- xi mu)))))))) models)) x))) ;; Normalize ownerships to sum to one. (let ((s (map-vector14 (lambda (zi) (reduce-vector2 add-exp zi minus-infinity)) z))) ;; Return log likelihood and ownerships matrix. (list-two2 (reduce-vector3 + s 0.0) (map-vector15 (lambda (zi) (map-vector16 exp zi)) (m- z (transpose (make-vector (matrix-columns z) s)))))))) (define (m-step x z clip) ;; Returns new set of models. (let* ((ii (vector-length x)) (kk (vector-length (vector-ref x 0)))) ;; For each model, optimize parameters. (map-n-vector8 (lambda (j) (let* ((zj (matrix-column-ref z j)) (zj-sum (reduce-vector4 + zj 0.0)) ;; Optimize values. (mu (k*v (/ zj-sum) (reduce-vector5 v+ (map-vector-two7 k*v zj x) (make-vector kk 0.0)))) (sigma (clip-eigenvalues (k*m (/ zj-sum) (reduce-vector6 m+ (map-vector-two8 (lambda (zij xi) (k*m zij (self-outer-product * (v- xi mu)))) zj x) (make-matrix-initial4 kk kk 0.0))) clip))) (make-model (/ zj-sum ii) mu sigma (log (/ zj-sum ii)) (invert-matrix sigma) (log (determinant sigma))))) (matrix-columns z)))) (define (em x pi mu sigma clip em-kick-off-tolerance em-convergence-tolerance) (let ((jj (vector-length mu))) (let loop ((models (map-n-vector9 (lambda (j) (make-model (vector-ref pi j) (vector-ref mu j) (vector-ref sigma j) (log (vector-ref pi j)) (invert-matrix (vector-ref sigma j)) (log (determinant (vector-ref sigma j))))) jj)) (old-log-likelihood minus-infinity) (starting? #t)) (let ((log-likelihood-z (e-step x models))) (if (or (and starting? (> (first log-likelihood-z) old-log-likelihood)) (> (first log-likelihood-z) (+ old-log-likelihood em-convergence-tolerance))) (loop (m-step x (second2 log-likelihood-z) clip) (first log-likelihood-z) (and starting? (not (= jj 1)) (or (= old-log-likelihood minus-infinity) (< (first log-likelihood-z) (+ old-log-likelihood em-kick-off-tolerance))))) (list-two3 old-log-likelihood models)))))) (define (noise epsilon) (- (* 2.0 epsilon (/ (exact->inexact (rand)) *most-positive-fixnum*)) epsilon)) (define (initial-z ii jj) (map-n-vector10 (lambda (i) (let ((zi (map-n-vector11 (lambda (j) (+ (/ (exact->inexact jj)) (noise (/ (exact->inexact jj))))) jj))) (k*v (/ (reduce-vector7 + zi 0.0)) zi))) ii)) (define (ems x clip em-kick-off-tolerance em-convergence-tolerance ems-convergence-tolerance) (let loop ((jj 1) ;; needs work: Should replace #F with ((LAMBDA ())). (old-log-likelihood-models (list-two4 minus-infinity #f))) (let* ((models (m-step x (initial-z (vector-length x) jj) clip)) (new-log-likelihood-models (em x (map-vector17 model-pi models) (map-vector18 model-mu models) (map-vector19 model-sigma models) clip em-kick-off-tolerance em-convergence-tolerance))) (if (> (- (/ (first old-log-likelihood-models) (first new-log-likelihood-models)) 1.0) ems-convergence-tolerance) (loop (+ jj 1) new-log-likelihood-models) (second3 old-log-likelihood-models))))) (define (em-clusterer x clip em-kick-off-tolerance em-convergence-tolerance ems-convergence-tolerance) (let* ((z (second4 (e-step x (ems x clip em-kick-off-tolerance em-convergence-tolerance ems-convergence-tolerance)))) (clusters (map-n1 (lambda (i) (let ((zi (vector->list (vector-ref z i)))) (list-two5 i (positionv (reduce max zi minus-infinity) zi)))) (vector-length z)))) (map-n2 (lambda (j) (map (lambda (cluster) (vector-ref x (first cluster))) (remove-if-not (lambda (cluster) (= (second5 cluster) j)) clusters))) (vector-length (vector-ref z 0))))) (do ((i 0 (+ i 1))) ((= i 100)) (write (em-clusterer '#(#(1.0) #(2.0) #(3.0) #(11.0) #(12.0) #(13.0)) '#(1.0) 10.0 1.0 0.01)) (newline)) stalin-0.11/benchmarks/fprint.sc0000600017435200151030000000317606671513667015367 0ustar qobiqobi;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: fprint.sc ;;; Description: FPRINT benchmark ;;; Author: Richard Gabriel ;;; Created: 11-Apr-85 ;;; Modified: 9-Jul-85 21:11:33 (Bob Shaw) ;;; 24-Jul-87 (Will Clinger) ;;; 16-Nov-94 (Qobi) ;;; 31-Mar-98 (Qobi) ;;; Language: Scheme ;;; Status: Public Domain ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; FPRINT -- Benchmark to print to a file. (define test-atoms '(abcdef12 cdefgh23 efghij34 ghijkl45 ijklmn56 klmnop67 mnopqr78 opqrst89 qrstuv90 stuvwx01 uvwxyz12 ;; Qobi: changed 123456AB to AB123456 etc. since ;; Scheme->C can't READ original symbols wxyzab23 xyzabc34 ab123456 bc234567 cd345678 de456789 ef567890 fg678901 gh789012 hi890123)) (define (init-aux m n atoms) (cond ((= m 0) (car atoms)) (else (do ((i n (- i 2)) (a '())) ((< i 1) a) (set! a (cons (car atoms) a)) (set! atoms (cdr atoms)) (set! a (cons (init-aux (- m 1) n atoms) a)))))) (define (init m n atoms) (define (copy x) (if (pair? x) (cons (copy (car x)) (copy (cdr x))) x)) (let ((atoms (copy atoms))) (do ((a atoms (cdr a))) ((null? (cdr a)) (set-cdr! a atoms))) (init-aux m n atoms))) (define test-pattern (init 6 6 test-atoms)) (define (fprint) (call-with-output-file "fprint.tst" (lambda (stream) (newline stream) (write test-pattern stream)) ;;; begin Chez 'replace ;;; end Chez )) ;;; note: The INIT is not done multiple times. (do ((i 0 (+ i 1))) ((= i 1000)) (fprint)) stalin-0.11/benchmarks/fft.sc0000600017435200151030000000625606671513667014646 0ustar qobiqobi;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: fft.sc ;;; Description: FFT benchmark from the Gabriel tests. ;;; Author: Harry Barrow ;;; Created: 8-Apr-85 ;;; Modified: 6-May-85 09:29:22 (Bob Shaw) ;;; 11-Aug-87 (Will Clinger) ;;; 16-Nov-94 (Qobi) ;;; 31-Mar-98 (Qobi) ;;; Language: Scheme ;;; Status: Public Domain ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define pi (atan 0 -1)) ;;; FFT -- This is an FFT benchmark written by Harry Barrow. ;;; It tests a variety of floating point operations, ;;; including array references. (define *re* (make-vector 1025 0.0)) (define *im* (make-vector 1025 0.0)) (define (fft areal aimag) (let ((ar areal) ;Qobi (ai aimag) ;Qobi (i 0) (j 0) (k 0) (m 0) (n 0) (le 0) (le1 0) (ip 0) (nv2 0) (nm1 0) (ur 0.0) ;Qobi (ui 0.0) ;Qobi (wr 0.0) ;Qobi (wi 0.0) ;Qobi (tr 0.0) ;Qobi (ti 0.0)) ;Qobi ;; initialize (set! ar areal) (set! ai aimag) (set! n (vector-length ar)) (set! n (- n 1)) (set! nv2 (quotient n 2)) (set! nm1 (- n 1)) (set! m 0) ;compute m = log(n) (set! i 1) (let loop () (if (< i n) (begin (set! m (+ m 1)) (set! i (+ i i)) (loop)))) (cond ((not (= n (let loop ((i m) (p 1)) ;Qobi (if (zero? i) p (loop (- i 1) (* 2 p)))))) (display "array size not a power of two.") (newline))) ;; interchange elements in bit-reversed order (set! j 1) (set! i 1) (let l3 () (cond ((< i j) (set! tr (vector-ref ar j)) (set! ti (vector-ref ai j)) (vector-set! ar j (vector-ref ar i)) (vector-set! ai j (vector-ref ai i)) (vector-set! ar i tr) (vector-set! ai i ti))) (set! k nv2) (let l6 () (cond ((< k j) (set! j (- j k)) (set! k (quotient k 2)) ;Qobi: was / but this violates R4RS (l6)))) (set! j (+ j k)) (set! i (+ i 1)) (cond ((< i n) (l3)))) ;; loop thru stages (syntax converted from old MACLISP style \bs) (do ((l 1 (+ l 1))) ((> l m)) (set! le (let loop ((i l) (p 1)) ;Qobi (if (zero? i) p (loop (- i 1) (* 2 p))))) (set! le1 (quotient le 2)) (set! ur 1.0) (set! ui 0.0) (set! wr (cos (/ pi le1))) (set! wi (sin (/ pi le1))) ;; loop thru butterflies (do ((j 1 (+ j 1))) ((> j le1)) ;; do a butterfly (do ((i j (+ i le))) ((> i n)) (set! ip (+ i le1)) (set! tr (- (* (vector-ref ar ip) ur) (* (vector-ref ai ip) ui))) (set! ti (+ (* (vector-ref ar ip) ui) (* (vector-ref ai ip) ur))) (vector-set! ar ip (- (vector-ref ar i) tr)) (vector-set! ai ip (- (vector-ref ai i) ti)) (vector-set! ar i (+ (vector-ref ar i) tr)) (vector-set! ai i (+ (vector-ref ai i) ti)))) (set! tr (- (* ur wr) (* ui wi))) (set! ti (+ (* ur wi) (* ui wr))) (set! ur tr) (set! ui ti)) #t)) ;;; the timer which does 10 calls on fft (define (fft-bench) (do ((ntimes 0 (+ ntimes 1))) ((= ntimes 10)) (fft *re* *im*))) ;;; note: The MAKE-VECTOR is not done multiple times. (do ((i 0 (+ i 1))) ((= i 1000)) (fft-bench)) stalin-0.11/benchmarks/em-functional-split.sc0000600017435200151030000010635207244422135017741 0ustar qobiqobi;;; The constants are hardwired to be inexact for efficiency. ;;; begin Stalin (define make-model (primitive-procedure make-structure model 6)) (define model-pi (primitive-procedure structure-ref model 0)) (define model-mu (primitive-procedure structure-ref model 1)) (define model-sigma (primitive-procedure structure-ref model 2)) (define model-log-pi (primitive-procedure structure-ref model 3)) (define model-sigma-inverse (primitive-procedure structure-ref model 4)) (define model-log-determinant-sigma (primitive-procedure structure-ref model 5)) (define (void) ((lambda ()))) ;;; end Stalin ;;; begin Scheme->C (define make-model vector) (define (model-pi model) (vector-ref model 0)) (define (model-mu model) (vector-ref model 1)) (define (model-sigma model) (vector-ref model 2)) (define (model-log-pi model) (vector-ref model 3)) (define (model-sigma-inverse model) (vector-ref model 4)) (define (model-log-determinant-sigma model) (vector-ref model 5)) (define (panic s) (error 'panic s)) (define (void) #f) ;;; end Scheme->C ;;; begin Gambit-C (define-structure model pi mu sigma log-pi sigma-inverse log-determinant-sigma) (define (panic s) (error s)) ;;; end Gambit-C ;;; begin Bigloo (define make-model vector) (define (model-pi model) (vector-ref model 0)) (define (model-mu model) (vector-ref model 1)) (define (model-sigma model) (vector-ref model 2)) (define (model-log-pi model) (vector-ref model 3)) (define (model-sigma-inverse model) (vector-ref model 4)) (define (model-log-determinant-sigma model) (vector-ref model 5)) (define (panic s) (error s 'panic 'panic)) (define (void) #f) ;;; end Bigloo ;;; begin Chez (define make-model vector) (define (model-pi model) (vector-ref model 0)) (define (model-mu model) (vector-ref model 1)) (define (model-sigma model) (vector-ref model 2)) (define (model-log-pi model) (vector-ref model 3)) (define (model-sigma-inverse model) (vector-ref model 4)) (define (model-log-determinant-sigma model) (vector-ref model 5)) (define (panic s) (error 'panic s)) ;;; end Chez ;;; begin Chicken (define-record-type model pi mu sigma log-pi sigma-inverse log-determinant-sigma) (define (panic s) (error s)) ;;; end Chicken (define (hex-string->number s) (let loop ((s (string->list s)) (c 0)) (if (null? s) c (loop (cdr s) (+ (* 16 c) (if (char-numeric? (car s)) (- (char->integer (car s)) (char->integer #\0)) (+ (- (char->integer (car s)) (char->integer #\a)) 10))))))) ;;; The following code is a modified version of code taken from SLIB. ;;; Copyright (C) 1991, 1993 Aubrey Jaffer. ; ;Permission to copy this software, to redistribute it, and to use it ;for any purpose is granted, subject to the following restrictions and ;understandings. ; ;1. Any copy made of this software must include this copyright notice ;in full. ; ;2. I have made no warrantee or representation that the operation of ;this software will be error-free, and I am under no obligation to ;provide any services, by way of maintenance, update, or otherwise. ; ;3. In conjunction with products arising from the use of this ;material, there shall be no use of my name in any advertising, ;promotional, or sales literature without prior written consent in ;each case. (define *most-positive-fixnum* 65535) (define (logical:logxor n1 n2) (cond ((= n1 n2) 0) ((zero? n1) n2) ((zero? n2) n1) (else (+ (* (logical:logxor (logical:ash-4 n1) (logical:ash-4 n2)) 16) (vector-ref (vector-ref logical:boole-xor (modulo n1 16)) (modulo n2 16)))))) (define (logical:ash-4 x) (if (negative? x) (+ -1 (quotient (+ 1 x) 16)) (quotient x 16))) (define logical:boole-xor '#(#(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15) #(1 0 3 2 5 4 7 6 9 8 11 10 13 12 15 14) #(2 3 0 1 6 7 4 5 10 11 8 9 14 15 12 13) #(3 2 1 0 7 6 5 4 11 10 9 8 15 14 13 12) #(4 5 6 7 0 1 2 3 12 13 14 15 8 9 10 11) #(5 4 7 6 1 0 3 2 13 12 15 14 9 8 11 10) #(6 7 4 5 2 3 0 1 14 15 12 13 10 11 8 9) #(7 6 5 4 3 2 1 0 15 14 13 12 11 10 9 8) #(8 9 10 11 12 13 14 15 0 1 2 3 4 5 6 7) #(9 8 11 10 13 12 15 14 1 0 3 2 5 4 7 6) #(10 11 8 9 14 15 12 13 2 3 0 1 6 7 4 5) #(11 10 9 8 15 14 13 12 3 2 1 0 7 6 5 4) #(12 13 14 15 8 9 10 11 4 5 6 7 0 1 2 3) #(13 12 15 14 9 8 11 10 5 4 7 6 1 0 3 2) #(14 15 12 13 10 11 8 9 6 7 4 5 2 3 0 1) #(15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0))) (define random:tap 24) (define random:size 55) (define (random:size-int l) (let ((trial (hex-string->number (make-string l #\f)))) (if (and (exact? trial) (positive? trial) (>= *most-positive-fixnum* trial)) l (random:size-int (- l 1))))) (define random:chunk-size (* 4 (random:size-int 8))) (define random:MASK (hex-string->number (make-string (quotient random:chunk-size 4) #\f))) (define *random-state* '#()) (let ((random-strings '#("d909ef3e" "fd330ab3" "e33f7843" "76783fbd" "f3675fb3" "b54ef879" "0be45590" "a6794679" "0bcd56d3" "fabcdef8" "9cbd3efd" "3fd3efcd" "e064ef27" "dddecc08" "34444292" "85444454" "4c519210" "c0366273" "54734567" "70abcddc" "1bbdac53" "616c5a86" "a982efa9" "105996a0" "5f0cccba" "1ea055e1" "fe2acd8d" "1891c1d4" "e6690270" "6912bccc" "2678e141" "61222224" "907abcbb" "4ad6829b" "9cdd1404" "57798841" "5b892496" "871c9cd1" "d1e67bda" "8b0a3233" "578ef23f" "28274ef6" "823ef5ef" "845678c5" "e67890a5" "5890abcb" "851fa9ab" "13efa13a" "b12278d6" "daf805ab" "a0befc36" "0068a7b5" "e024fd90" "a7b690e2" "27f3571a" 0))) (set! *random-state* (make-vector (+ random:size 1) 0)) (let ((nibbles (quotient random:chunk-size 4))) (do ((i 0 (+ i 1))) ((= i random:size)) (vector-set! *random-state* i (hex-string->number (substring (vector-ref random-strings i) 0 nibbles)))))) ;;; random:chunk returns an integer in the range of ;;; 0 to (- (expt 2 random:chunk-size) 1) (define (random:chunk v) (let* ((p (vector-ref v random:size)) (ans (logical:logxor (vector-ref v (modulo (- p random:tap) random:size)) (vector-ref v p)))) (vector-set! v p ans) (vector-set! v random:size (modulo (- p 1) random:size)) ans)) (define (rand) (do ((ilen 0 (+ 1 ilen)) (s random:MASK (+ random:MASK (* (+ 1 random:MASK) s)))) ((>= s (- *most-positive-fixnum* 1)) (let ((slop (modulo (+ s (- 1 *most-positive-fixnum*)) *most-positive-fixnum*))) (let loop ((n ilen) (r (random:chunk *random-state*))) (cond ((not (zero? n)) (loop (+ -1 n) (+ (* r (+ 1 random:MASK)) (random:chunk *random-state*)))) ((>= r slop) (modulo r *most-positive-fixnum*)) (else (loop ilen (random:chunk *random-state*))))))))) ;;; End of code taken from SLIB (define log-math-precision 35.0) (define minus-infinity (log 0.0)) (define first car) (define (second1 x) (car (cdr x))) (define (second2 x) (car (cdr x))) (define (second3 x) (car (cdr x))) (define (second4 x) (car (cdr x))) (define (second5 x) (car (cdr x))) (define rest cdr) (define (list-two1 x y) (cons x (cons y '()))) (define (list-two2 x y) (cons x (cons y '()))) (define (list-two3 x y) (cons x (cons y '()))) (define (list-two4 x y) (cons x (cons y '()))) (define (list-two5 x y) (cons x (cons y '()))) (define (for-each-n1 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n2 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n3 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n4 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n5 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n6 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n7 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n8 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n9 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n10 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n11 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n12 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n13 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n14 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n15 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n16 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n17 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n18 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n19 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n20 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n21 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n22 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n23 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n24 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n25 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n26 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n27 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n28 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n29 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n30 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n31 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n32 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n33 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n34 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n35 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n36 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n37 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n38 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n39 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n40 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n41 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n42 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n43 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n44 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n45 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n46 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-n47 f n) (let loop ((i 0)) (if (< i n) (begin (f i) (loop (+ i 1)))))) (define (for-each-from-a-up-to-b1 f a b) (let loop ((i a)) (if (< i b) (begin (f i) (loop (+ i 1)))))) (define (for-each-from-a-up-to-b2 f a b) (let loop ((i a)) (if (< i b) (begin (f i) (loop (+ i 1)))))) (define (for-each-from-a-up-to-b3 f a b) (let loop ((i a)) (if (< i b) (begin (f i) (loop (+ i 1)))))) (define (for-each-from-a-up-to-b4 f a b) (let loop ((i a)) (if (< i b) (begin (f i) (loop (+ i 1)))))) (define (map-vector1 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n1 (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector2 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n2 (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector3 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n3 (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector4 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n4 (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector5 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n5 (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector6 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n6 (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector7 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n7 (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector8 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n8 (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector9 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n9 (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector10 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n10 (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector11 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n11 (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector12 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n12 (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector13 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n13 (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector14 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n14 (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector15 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n15 (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector16 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n16 (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector17 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n17 (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector18 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n18 (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector19 f v) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n19 (lambda (i) (vector-set! u i (f (vector-ref v i)))) (vector-length v)) u)) (define (map-vector-two1 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (for-each-n20 (lambda (i) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) (vector-length v1)) u)) (define (map-vector-two2 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (for-each-n21 (lambda (i) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) (vector-length v1)) u)) (define (map-vector-two3 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (for-each-n22 (lambda (i) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) (vector-length v1)) u)) (define (map-vector-two4 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (for-each-n23 (lambda (i) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) (vector-length v1)) u)) (define (map-vector-two5 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (for-each-n24 (lambda (i) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) (vector-length v1)) u)) (define (map-vector-two6 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (for-each-n25 (lambda (i) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) (vector-length v1)) u)) (define (map-vector-two7 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (for-each-n26 (lambda (i) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) (vector-length v1)) u)) (define (map-vector-two8 f v1 v2) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v1)))) (for-each-n27 (lambda (i) (vector-set! u i (f (vector-ref v1 i) (vector-ref v2 i)))) (vector-length v1)) u)) (define (reduce f l i) (cond ((null? l) i) ((null? (rest l)) (first l)) (else (let loop ((l (rest l)) (c (first l))) (if (null? l) c (loop (rest l) (f c (first l)))))))) (define (reduce-vector1 f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (reduce-vector2 f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (reduce-vector3 f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (reduce-vector4 f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (reduce-vector5 f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (reduce-vector6 f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (reduce-vector7 f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (every-n1 p n) (let loop ((i 0)) (or (>= i n) (and (p i) (loop (+ i 1)))))) (define (every-n2 p n) (let loop ((i 0)) (or (>= i n) (and (p i) (loop (+ i 1)))))) (define (sum1 f n) (let loop ((n (- n 1)) (c 0.0)) (if (negative? n) c (loop (- n 1) (+ c (f n)))))) (define (sum2 f n) (let loop ((n (- n 1)) (c 0.0)) (if (negative? n) c (loop (- n 1) (+ c (f n)))))) (define (dot u v) (reduce-vector1 + (map-vector-two1 * u v) 0.0)) (define (v+ u v) (map-vector-two2 + u v)) (define (v- u v) (map-vector-two3 - u v)) (define (k*v k u) (map-vector1 (lambda (x) (* k x)) u)) (define (add-exp e1 e2) (let* ((e-max (max e1 e2)) (e-min (min e1 e2)) (factor (floor e-min))) (if (= e-max minus-infinity) minus-infinity (if (> (- e-max factor) log-math-precision) e-max (+ (log (+ (exp (- e-max factor)) (exp (- e-min factor)))) factor))))) (define (map-n1 f n) ;; needs work: To eliminate REVERSE. (let loop ((i 0) (c '())) (if (< i n) (loop (+ i 1) (cons (f i) c)) (reverse c)))) (define (map-n2 f n) ;; needs work: To eliminate REVERSE. (let loop ((i 0) (c '())) (if (< i n) (loop (+ i 1) (cons (f i) c)) (reverse c)))) (define (map-n-vector1 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector2 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector3 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector4 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector5 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector6 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector7 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector8 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector9 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector10 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector11 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (remove-if-not p l) ;; needs work: To eliminate REVERSE. (let loop ((l l) (c '())) (cond ((null? l) (reverse c)) ((p (first l)) (loop (rest l) (cons (first l) c))) (else (loop (rest l) c))))) (define (positionv x l) (let loop ((l l) (i 0)) (cond ((null? l) #f) ((eqv? x (first l)) i) (else (loop (rest l) (+ i 1)))))) (define (make-matrix1 m n) (map-n-vector1 (lambda (i) (make-vector n)) m)) (define (make-matrix2 m n) (map-n-vector2 (lambda (i) (make-vector n)) m)) (define (make-matrix-initial1 m n initial) (map-n-vector3 (lambda (i) (make-vector n initial)) m)) (define (make-matrix-initial2 m n initial) (map-n-vector4 (lambda (i) (make-vector n initial)) m)) (define (make-matrix-initial3 m n initial) (map-n-vector5 (lambda (i) (make-vector n initial)) m)) (define (make-matrix-initial4 m n initial) (map-n-vector6 (lambda (i) (make-vector n initial)) m)) (define (matrix-rows a) (vector-length a)) (define (matrix-columns a) (vector-length (vector-ref a 0))) (define (matrix-ref a i j) (vector-ref (vector-ref a i) j)) (define (matrix-set! a i j x) (vector-set! (vector-ref a i) j x)) (define (matrix-row-ref a i) (vector-ref a i)) (define (matrix-column-ref a j) (map-vector2 (lambda (v) (vector-ref v j)) a)) (define (matrix-row-set! a i v) (vector-set! a i v)) (define (m+ a b) (map-vector-two4 v+ a b)) (define (m- a b) (map-vector-two5 v- a b)) (define (m*v a v) (map-vector3 (lambda (u) (dot u v)) a)) (define (transpose a) (map-n-vector7 (lambda (j) (matrix-column-ref a j)) (matrix-columns a))) (define (outer-product1 f u v) (map-vector4 (lambda (ui) (map-vector5 (lambda (vj) (f ui vj)) v)) u)) (define (outer-product2 f u v) (map-vector6 (lambda (ui) (map-vector7 (lambda (vj) (f ui vj)) v)) u)) (define (self-outer-product f v) (outer-product1 f v v)) (define (m* a b) (outer-product2 dot a (transpose b))) (define (k*m k m) (map-vector8 (lambda (row) (map-vector9 (lambda (e) (* k e)) row)) m)) (define (determinant a) (if (not (= (matrix-rows a) (matrix-columns a))) (panic "Can only find determinant of a square matrix")) (call-with-current-continuation (lambda (return) (let* ((n (matrix-rows a)) (b (make-matrix1 n n)) (d 1.0)) (for-each-n28 (lambda (i) (for-each-n29 (lambda (j) (matrix-set! b i j (matrix-ref a i j))) n)) n) (for-each-n30 (lambda (i) ;; partial pivoting reduces rounding errors (let ((greatest (abs (matrix-ref b i i))) (index i)) (for-each-from-a-up-to-b1 (lambda (j) (let ((x (abs (matrix-ref b j i)))) (if (> x greatest) (begin (set! index j) (set! greatest x))))) (+ i 1) n) (if (= greatest 0.0) (return 0.0)) (if (not (= index i)) (let ((v (matrix-row-ref b i))) (matrix-row-set! b i (matrix-row-ref b index)) (matrix-row-set! b index v) (set! d (- d)))) (let ((c (matrix-ref b i i))) (set! d (* d c)) (for-each-from-a-up-to-b2 (lambda (j) (matrix-set! b i j (/ (matrix-ref b i j) c))) i n) (for-each-from-a-up-to-b3 (lambda (j) (let ((e (matrix-ref b j i))) (for-each-from-a-up-to-b4 (lambda (k) (matrix-set! b j k (- (matrix-ref b j k) (* e (matrix-ref b i k))))) (+ i 1) n))) (+ i 1) n)))) n) d)))) (define (invert-matrix a) (if (not (= (matrix-rows a) (matrix-columns a))) (panic "Can only invert a square matrix")) (let* ((n (matrix-rows a)) (c (make-matrix2 n n)) (b (make-matrix-initial1 n n 0.0))) (for-each-n31 (lambda (i) (for-each-n32 (lambda (j) (matrix-set! c i j (matrix-ref a i j))) n)) n) (for-each-n33 (lambda (i) (matrix-set! b i i 1.0)) n) (for-each-n34 (lambda (i) (if (zero? (matrix-ref c i i)) (call-with-current-continuation (lambda (return) (for-each-n35 (lambda (j) (if (and (> j i) (not (zero? (matrix-ref c j i)))) (begin (let ((e (vector-ref c i))) (vector-set! c i (vector-ref c j)) (vector-set! c j e)) (let ((e (vector-ref b i))) (vector-set! b i (vector-ref b j)) (vector-set! b j e)) (return (void))))) n) (panic "Matrix is singular")))) (let ((d (/ (matrix-ref c i i)))) (for-each-n36 (lambda (j) (matrix-set! c i j (* d (matrix-ref c i j))) (matrix-set! b i j (* d (matrix-ref b i j)))) n) (for-each-n37 (lambda (k) (let ((d (- (matrix-ref c k i)))) (if (not (= k i)) (for-each-n38 (lambda (j) (matrix-set! c k j (+ (matrix-ref c k j) (* d (matrix-ref c i j)))) (matrix-set! b k j (+ (matrix-ref b k j) (* d (matrix-ref b i j))))) n)))) n))) n) b)) (define (jacobi a) (if (not (and (= (matrix-rows a) (matrix-columns a)) (every-n1 (lambda (i) (every-n2 (lambda (j) (= (matrix-ref a i j) (matrix-ref a j i))) (matrix-rows a))) (matrix-rows a)))) (panic "Can only compute eigenvalues/eigenvectors of a symmetric matrix")) (let* ((a (map-vector10 (lambda (row) (map-vector11 (lambda (x) x) row)) a)) (n (matrix-rows a)) (d (make-vector n)) (v (make-matrix-initial2 n n 0.0)) (b (make-vector n)) (z (make-vector n 0.0))) (for-each-n39 (lambda (ip) (matrix-set! v ip ip 1.0) (vector-set! b ip (matrix-ref a ip ip)) (vector-set! d ip (matrix-ref a ip ip))) n) (let loop ((i 0)) (if (> i 50) (panic "Too many iterations in JACOBI")) (let ((sm (sum1 (lambda (ip) (sum2 (lambda (ir) (let ((iq (+ ip ir 1))) (abs (matrix-ref a ip iq)))) (- n ip 1))) (- n 1)))) (if (not (zero? sm)) (begin (let ((tresh (if (< i 3) (/ (* 0.2 sm) (* n n)) 0.0))) (for-each-n40 (lambda (ip) (for-each-n41 (lambda (ir) (let* ((iq (+ ip ir 1)) (g (* 100.0 (abs (matrix-ref a ip iq))))) (cond ((and (> i 3) (= (+ (abs (vector-ref d ip)) g) (abs (vector-ref d ip))) (= (+ (abs (vector-ref d iq)) g) (abs (vector-ref d iq)))) (matrix-set! a ip iq 0.0)) ((> (abs (matrix-ref a ip iq)) tresh) (let* ((h (- (vector-ref d iq) (vector-ref d ip))) (t (if (= (+ (abs h) g) (abs h)) (/ (matrix-ref a ip iq) h) (let ((theta (/ (* 0.5 h) (matrix-ref a ip iq)))) (if (negative? theta) (- (/ (+ (abs theta) (sqrt (+ (* theta theta) 1.0))))) (/ (+ (abs theta) (sqrt (+ (* theta theta) 1.0)))))))) (c (/ (sqrt (+ (* t t) 1.0)))) (s (* t c)) (tau (/ s (+ c 1.0))) (h (* t (matrix-ref a ip iq)))) (define (rotate a i j k l) (let ((g (matrix-ref a i j)) (h (matrix-ref a k l))) (matrix-set! a i j (- g (* s (+ h (* g tau))))) (matrix-set! a k l (+ h (* s (- g (* h tau))))))) (vector-set! z ip (- (vector-ref z ip) h)) (vector-set! z iq (+ (vector-ref z iq) h)) (vector-set! d ip (- (vector-ref d ip) h)) (vector-set! d iq (+ (vector-ref d iq) h)) (matrix-set! a ip iq 0.0) (for-each-n42 (lambda (j) (cond ((< j ip) (rotate a j ip j iq)) ((< ip j iq) (rotate a ip j j iq)) ((< iq j) (rotate a ip j iq j))) (rotate v j ip j iq)) n)))))) (- n ip 1))) (- n 1))) (for-each-n43 (lambda (ip) (vector-set! b ip (+ (vector-ref b ip) (vector-ref z ip))) (vector-set! d ip (vector-ref b ip)) (vector-set! z ip 0.0)) n) (loop (+ i 1)))))) (for-each-n44 (lambda (i) (let ((k i) (p (vector-ref d i))) (for-each-n45 (lambda (l) (let* ((j (+ i l 1))) (if (>= (vector-ref d j) p) (begin (set! k j) (set! p (vector-ref d j)))))) (- n i 1)) (if (not (= k i)) (begin (vector-set! d k (vector-ref d i)) (vector-set! d i p) (for-each-n46 (lambda (j) (let ((p (matrix-ref v j i))) (matrix-set! v j i (matrix-ref v j k)) (matrix-set! v j k p))) n))))) (- n 1)) (list-two1 d (transpose v)))) (define (vector->diagonal-matrix v) (let ((m (make-matrix-initial3 (vector-length v) (vector-length v) 0.0))) (for-each-n47 (lambda (i) (matrix-set! m i i (vector-ref v i))) (vector-length v)) m)) (define (clip-eigenvalues a v) (let* ((j (jacobi a)) (e (second1 j))) (m* (transpose e) (m* (vector->diagonal-matrix (map-vector-two6 max v (first j))) e)))) ;;; EM (define (e-step x models) (let ((z (map-vector12 (lambda (xi) ;; Compute for each model. (map-vector13 (lambda (model) (let ((log-pi (model-log-pi model)) (mu (model-mu model)) (sigma-inverse (model-sigma-inverse model)) (log-determinant-sigma (model-log-determinant-sigma model))) ;; Compute likelihoods (note: up to constant for all models). (- log-pi (* 0.5 (+ log-determinant-sigma (dot (v- xi mu) (m*v sigma-inverse (v- xi mu)))))))) models)) x))) ;; Normalize ownerships to sum to one. (let ((s (map-vector14 (lambda (zi) (reduce-vector2 add-exp zi minus-infinity)) z))) ;; Return log likelihood and ownerships matrix. (list-two2 (reduce-vector3 + s 0.0) (map-vector15 (lambda (zi) (map-vector16 exp zi)) (m- z (transpose (make-vector (matrix-columns z) s)))))))) (define (m-step x z clip) ;; Returns new set of models. (let* ((ii (vector-length x)) (kk (vector-length (vector-ref x 0)))) ;; For each model, optimize parameters. (map-n-vector8 (lambda (j) (let* ((zj (matrix-column-ref z j)) (zj-sum (reduce-vector4 + zj 0.0)) ;; Optimize values. (mu (k*v (/ zj-sum) (reduce-vector5 v+ (map-vector-two7 k*v zj x) (make-vector kk 0.0)))) (sigma (clip-eigenvalues (k*m (/ zj-sum) (reduce-vector6 m+ (map-vector-two8 (lambda (zij xi) (k*m zij (self-outer-product * (v- xi mu)))) zj x) (make-matrix-initial4 kk kk 0.0))) clip))) (make-model (/ zj-sum ii) mu sigma (log (/ zj-sum ii)) (invert-matrix sigma) (log (determinant sigma))))) (matrix-columns z)))) (define (em x pi mu sigma clip em-kick-off-tolerance em-convergence-tolerance) (let ((jj (vector-length mu))) (let loop ((models (map-n-vector9 (lambda (j) (make-model (vector-ref pi j) (vector-ref mu j) (vector-ref sigma j) (log (vector-ref pi j)) (invert-matrix (vector-ref sigma j)) (log (determinant (vector-ref sigma j))))) jj)) (old-log-likelihood minus-infinity) (starting? #t)) (let ((log-likelihood-z (e-step x models))) (if (or (and starting? (> (first log-likelihood-z) old-log-likelihood)) (> (first log-likelihood-z) (+ old-log-likelihood em-convergence-tolerance))) (loop (m-step x (second2 log-likelihood-z) clip) (first log-likelihood-z) (and starting? (not (= jj 1)) (or (= old-log-likelihood minus-infinity) (< (first log-likelihood-z) (+ old-log-likelihood em-kick-off-tolerance))))) (list-two3 old-log-likelihood models)))))) (define (noise epsilon) (- (* 2.0 epsilon (/ (exact->inexact (rand)) *most-positive-fixnum*)) epsilon)) (define (initial-z ii jj) (map-n-vector10 (lambda (i) (let ((zi (map-n-vector11 (lambda (j) (+ (/ (exact->inexact jj)) (noise (/ (exact->inexact jj))))) jj))) (k*v (/ (reduce-vector7 + zi 0.0)) zi))) ii)) (define (ems x clip em-kick-off-tolerance em-convergence-tolerance ems-convergence-tolerance) (let loop ((jj 1) ;; needs work: Should replace #F with ((LAMBDA ())). (old-log-likelihood-models (list-two4 minus-infinity #f))) (let* ((models (m-step x (initial-z (vector-length x) jj) clip)) (new-log-likelihood-models (em x (map-vector17 model-pi models) (map-vector18 model-mu models) (map-vector19 model-sigma models) clip em-kick-off-tolerance em-convergence-tolerance))) (if (> (- (/ (first old-log-likelihood-models) (first new-log-likelihood-models)) 1.0) ems-convergence-tolerance) (loop (+ jj 1) new-log-likelihood-models) (second3 old-log-likelihood-models))))) (define (em-clusterer x clip em-kick-off-tolerance em-convergence-tolerance ems-convergence-tolerance) (let* ((z (second4 (e-step x (ems x clip em-kick-off-tolerance em-convergence-tolerance ems-convergence-tolerance)))) (clusters (map-n1 (lambda (i) (let ((zi (vector->list (vector-ref z i)))) (list-two5 i (positionv (reduce max zi minus-infinity) zi)))) (vector-length z)))) (map-n2 (lambda (j) (map (lambda (cluster) (vector-ref x (first cluster))) (remove-if-not (lambda (cluster) (= (second5 cluster) j)) clusters))) (vector-length (vector-ref z 0))))) (do ((i 0 (+ i 1))) ((= i 100)) (write (em-clusterer '#(#(1.0) #(2.0) #(3.0) #(11.0) #(12.0) #(13.0)) '#(1.0) 10.0 1.0 0.01)) (newline)) stalin-0.11/benchmarks/em-imperative-split.sc0000600017435200151030000005565207244422125017751 0ustar qobiqobi;;; The constants are hardwired to be inexact for efficiency. ;;; begin Stalin (define make-model (primitive-procedure make-structure model 6)) (define model-pi (primitive-procedure structure-ref model 0)) (define set-model-pi! (primitive-procedure structure-set! model 0)) (define model-mu (primitive-procedure structure-ref model 1)) (define model-sigma (primitive-procedure structure-ref model 2)) (define model-log-pi (primitive-procedure structure-ref model 3)) (define set-model-log-pi! (primitive-procedure structure-set! model 3)) (define model-sigma-inverse (primitive-procedure structure-ref model 4)) (define model-log-determinant-sigma (primitive-procedure structure-ref model 5)) (define set-model-log-determinant-sigma! (primitive-procedure structure-set! model 5)) (define (void) ((lambda ()))) ;;; end Stalin ;;; begin Scheme->C (define make-model vector) (define (model-pi model) (vector-ref model 0)) (define (set-model-pi! model pi) (vector-set! model 0 pi)) (define (model-mu model) (vector-ref model 1)) (define (model-sigma model) (vector-ref model 2)) (define (model-log-pi model) (vector-ref model 3)) (define (set-model-log-pi! model log-pi) (vector-set! model 3 log-pi)) (define (model-sigma-inverse model) (vector-ref model 4)) (define (model-log-determinant-sigma model) (vector-ref model 5)) (define (set-model-log-determinant-sigma! model log-determinant-sigma) (vector-set! model 5 log-determinant-sigma)) (define (panic s) (error 'panic s)) (define (void) #f) ;;; end Scheme->C ;;; begin Gambit-C (define-structure model pi mu sigma log-pi sigma-inverse log-determinant-sigma) (define set-model-pi! model-pi-set!) (define set-model-log-pi! model-log-pi-set!) (define set-model-log-determinant-sigma! model-log-determinant-sigma-set!) (define (panic s) (error s)) ;;; end Gambit-C ;;; begin Bigloo (define make-model vector) (define (model-pi model) (vector-ref model 0)) (define (set-model-pi! model pi) (vector-set! model 0 pi)) (define (model-mu model) (vector-ref model 1)) (define (model-sigma model) (vector-ref model 2)) (define (model-log-pi model) (vector-ref model 3)) (define (set-model-log-pi! model log-pi) (vector-set! model 3 log-pi)) (define (model-sigma-inverse model) (vector-ref model 4)) (define (model-log-determinant-sigma model) (vector-ref model 5)) (define (set-model-log-determinant-sigma! model log-determinant-sigma) (vector-set! model 5 log-determinant-sigma)) (define (panic s) (error s 'panic 'panic)) (define (void) #f) ;;; end Bigloo ;;; begin Chez (define make-model vector) (define (model-pi model) (vector-ref model 0)) (define (set-model-pi! model pi) (vector-set! model 0 pi)) (define (model-mu model) (vector-ref model 1)) (define (model-sigma model) (vector-ref model 2)) (define (model-log-pi model) (vector-ref model 3)) (define (set-model-log-pi! model log-pi) (vector-set! model 3 log-pi)) (define (model-sigma-inverse model) (vector-ref model 4)) (define (model-log-determinant-sigma model) (vector-ref model 5)) (define (set-model-log-determinant-sigma! model log-determinant-sigma) (vector-set! model 5 log-determinant-sigma)) (define (panic s) (error 'panic s)) ;;; end Chez ;;; begin Chicken (define-record-type model pi mu sigma log-pi sigma-inverse log-determinant-sigma) (define (panic s) (error s)) ;;; end Chicken (define (hex-string->number s) (let loop ((s (string->list s)) (c 0)) (if (null? s) c (loop (cdr s) (+ (* 16 c) (if (char-numeric? (car s)) (- (char->integer (car s)) (char->integer #\0)) (+ (- (char->integer (car s)) (char->integer #\a)) 10))))))) ;;; The following code is a modified version of code taken from SLIB. ;;; Copyright (C) 1991, 1993 Aubrey Jaffer. ; ;Permission to copy this software, to redistribute it, and to use it ;for any purpose is granted, subject to the following restrictions and ;understandings. ; ;1. Any copy made of this software must include this copyright notice ;in full. ; ;2. I have made no warrantee or representation that the operation of ;this software will be error-free, and I am under no obligation to ;provide any services, by way of maintenance, update, or otherwise. ; ;3. In conjunction with products arising from the use of this ;material, there shall be no use of my name in any advertising, ;promotional, or sales literature without prior written consent in ;each case. (define *most-positive-fixnum* 65535) (define (logical:logxor n1 n2) (cond ((= n1 n2) 0) ((zero? n1) n2) ((zero? n2) n1) (else (+ (* (logical:logxor (logical:ash-4 n1) (logical:ash-4 n2)) 16) (vector-ref (vector-ref logical:boole-xor (modulo n1 16)) (modulo n2 16)))))) (define (logical:ash-4 x) (if (negative? x) (+ -1 (quotient (+ 1 x) 16)) (quotient x 16))) (define logical:boole-xor '#(#(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15) #(1 0 3 2 5 4 7 6 9 8 11 10 13 12 15 14) #(2 3 0 1 6 7 4 5 10 11 8 9 14 15 12 13) #(3 2 1 0 7 6 5 4 11 10 9 8 15 14 13 12) #(4 5 6 7 0 1 2 3 12 13 14 15 8 9 10 11) #(5 4 7 6 1 0 3 2 13 12 15 14 9 8 11 10) #(6 7 4 5 2 3 0 1 14 15 12 13 10 11 8 9) #(7 6 5 4 3 2 1 0 15 14 13 12 11 10 9 8) #(8 9 10 11 12 13 14 15 0 1 2 3 4 5 6 7) #(9 8 11 10 13 12 15 14 1 0 3 2 5 4 7 6) #(10 11 8 9 14 15 12 13 2 3 0 1 6 7 4 5) #(11 10 9 8 15 14 13 12 3 2 1 0 7 6 5 4) #(12 13 14 15 8 9 10 11 4 5 6 7 0 1 2 3) #(13 12 15 14 9 8 11 10 5 4 7 6 1 0 3 2) #(14 15 12 13 10 11 8 9 6 7 4 5 2 3 0 1) #(15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0))) (define random:tap 24) (define random:size 55) (define (random:size-int l) (let ((trial (hex-string->number (make-string l #\f)))) (if (and (exact? trial) (positive? trial) (>= *most-positive-fixnum* trial)) l (random:size-int (- l 1))))) (define random:chunk-size (* 4 (random:size-int 8))) (define random:MASK (hex-string->number (make-string (quotient random:chunk-size 4) #\f))) (define *random-state* '#()) (let ((random-strings '#("d909ef3e" "fd330ab3" "e33f7843" "76783fbd" "f3675fb3" "b54ef879" "0be45590" "a6794679" "0bcd56d3" "fabcdef8" "9cbd3efd" "3fd3efcd" "e064ef27" "dddecc08" "34444292" "85444454" "4c519210" "c0366273" "54734567" "70abcddc" "1bbdac53" "616c5a86" "a982efa9" "105996a0" "5f0cccba" "1ea055e1" "fe2acd8d" "1891c1d4" "e6690270" "6912bccc" "2678e141" "61222224" "907abcbb" "4ad6829b" "9cdd1404" "57798841" "5b892496" "871c9cd1" "d1e67bda" "8b0a3233" "578ef23f" "28274ef6" "823ef5ef" "845678c5" "e67890a5" "5890abcb" "851fa9ab" "13efa13a" "b12278d6" "daf805ab" "a0befc36" "0068a7b5" "e024fd90" "a7b690e2" "27f3571a" 0))) (set! *random-state* (make-vector (+ random:size 1) 0)) (let ((nibbles (quotient random:chunk-size 4))) (do ((i 0 (+ i 1))) ((= i random:size)) (vector-set! *random-state* i (hex-string->number (substring (vector-ref random-strings i) 0 nibbles)))))) ;;; random:chunk returns an integer in the range of ;;; 0 to (- (expt 2 random:chunk-size) 1) (define (random:chunk v) (let* ((p (vector-ref v random:size)) (ans (logical:logxor (vector-ref v (modulo (- p random:tap) random:size)) (vector-ref v p)))) (vector-set! v p ans) (vector-set! v random:size (modulo (- p 1) random:size)) ans)) (define (rand) (do ((ilen 0 (+ 1 ilen)) (s random:MASK (+ random:MASK (* (+ 1 random:MASK) s)))) ((>= s (- *most-positive-fixnum* 1)) (let ((slop (modulo (+ s (- 1 *most-positive-fixnum*)) *most-positive-fixnum*))) (let loop ((n ilen) (r (random:chunk *random-state*))) (cond ((not (zero? n)) (loop (+ -1 n) (+ (* r (+ 1 random:MASK)) (random:chunk *random-state*)))) ((>= r slop) (modulo r *most-positive-fixnum*)) (else (loop ilen (random:chunk *random-state*))))))))) ;;; End of code taken from SLIB (define log-math-precision 35.0) (define minus-infinity (log 0.0)) (define first car) (define (second1 x) (car (cdr x))) (define (second2 x) (car (cdr x))) (define (second3 x) (car (cdr x))) (define rest cdr) (define (list-two1 x y) (cons x (cons y '()))) (define (list-two2 x y) (cons x (cons y '()))) (define (list-two3 x y) (cons x (cons y '()))) (define (reduce f l i) (cond ((null? l) i) ((null? (rest l)) (first l)) (else (let loop ((l (rest l)) (c (first l))) (if (null? l) c (loop (rest l) (f c (first l)))))))) (define (every-n1 p n) (let loop ((i 0)) (or (>= i n) (and (p i) (loop (+ i 1)))))) (define (every-n2 p n) (let loop ((i 0)) (or (>= i n) (and (p i) (loop (+ i 1)))))) (define (sum1 f n) (let loop ((n (- n 1)) (c 0.0)) (if (negative? n) c (loop (- n 1) (+ c (f n)))))) (define (sum2 f n) (let loop ((n (- n 1)) (c 0.0)) (if (negative? n) c (loop (- n 1) (+ c (f n)))))) (define (add-exp e1 e2) (let* ((e-max (max e1 e2)) (e-min (min e1 e2)) (factor (floor e-min))) (if (= e-max minus-infinity) minus-infinity (if (> (- e-max factor) log-math-precision) e-max (+ (log (+ (exp (- e-max factor)) (exp (- e-min factor)))) factor))))) (define (map-n1 f n) ;; needs work: To eliminate REVERSE. (let loop ((i 0) (c '())) (if (< i n) (loop (+ i 1) (cons (f i) c)) (reverse c)))) (define (map-n2 f n) ;; needs work: To eliminate REVERSE. (let loop ((i 0) (c '())) (if (< i n) (loop (+ i 1) (cons (f i) c)) (reverse c)))) (define (map-n-vector1 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector2 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector3 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector4 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector5 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector6 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector7 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (map-n-vector8 f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (remove-if-not p l) ;; needs work: To eliminate REVERSE. (let loop ((l l) (c '())) (cond ((null? l) (reverse c)) ((p (first l)) (loop (rest l) (cons (first l) c))) (else (loop (rest l) c))))) (define (positionv x l) (let loop ((l l) (i 0)) (cond ((null? l) #f) ((eqv? x (first l)) i) (else (loop (rest l) (+ i 1)))))) (define (make-matrix1 m n) (map-n-vector1 (lambda (i) (make-vector n)) m)) (define (make-matrix2 m n) (map-n-vector2 (lambda (i) (make-vector n)) m)) (define (make-matrix3 m n) (map-n-vector3 (lambda (i) (make-vector n)) m)) (define (make-matrix4 m n) (map-n-vector4 (lambda (i) (make-vector n)) m)) (define (make-matrix-initial m n initial) (map-n-vector5 (lambda (i) (make-vector n initial)) m)) (define (matrix-rows a) (vector-length a)) (define (matrix-columns a) (vector-length (vector-ref a 0))) (define (matrix-ref a i j) (vector-ref (vector-ref a i) j)) (define (matrix-set! a i j x) (vector-set! (vector-ref a i) j x)) (define (matrix-row-ref a i) (vector-ref a i)) (define (matrix-row-set! a i v) (vector-set! a i v)) (define (determinant a) (if (not (= (matrix-rows a) (matrix-columns a))) (panic "Can only find determinant of a square matrix")) (call-with-current-continuation (lambda (return) (let* ((n (matrix-rows a)) (b (make-matrix1 n n)) (d 1.0)) (do ((i 0 (+ i 1))) ((= i n)) (do ((j 0 (+ j 1))) ((= j n)) (matrix-set! b i j (matrix-ref a i j)))) (do ((i 0 (+ i 1))) ((= i n)) ;; partial pivoting reduces rounding errors (let ((greatest (abs (matrix-ref b i i))) (index i)) (do ((j (+ i 1) (+ j 1))) ((= j n)) (let ((x (abs (matrix-ref b j i)))) (if (> x greatest) (begin (set! index j) (set! greatest x))))) (if (= greatest 0.0) (return 0.0)) (if (not (= index i)) (let ((v (matrix-row-ref b i))) (matrix-row-set! b i (matrix-row-ref b index)) (matrix-row-set! b index v) (set! d (- d)))) (let ((c (matrix-ref b i i))) (set! d (* d c)) (do ((j i (+ j 1))) ((= j n)) (matrix-set! b i j (/ (matrix-ref b i j) c))) (do ((j (+ i 1) (+ j 1))) ((= j n)) (let ((e (matrix-ref b j i))) (do ((k (+ i 1) (+ k 1))) ((= k n)) (matrix-set! b j k (- (matrix-ref b j k) (* e (matrix-ref b i k)))))))))) d)))) (define (invert-matrix! a b) (if (not (= (matrix-rows a) (matrix-columns a))) (panic "Can only invert a square matrix")) (let* ((n (matrix-rows a)) (c (make-matrix2 n n))) (do ((i 0 (+ i 1))) ((= i n)) (do ((j 0 (+ j 1))) ((= j n)) (matrix-set! b i j 0.0) (matrix-set! c i j (matrix-ref a i j)))) (do ((i 0 (+ i 1))) ((= i n)) (matrix-set! b i i 1.0)) (do ((i 0 (+ i 1))) ((= i n)) (if (zero? (matrix-ref c i i)) (call-with-current-continuation (lambda (return) (do ((j 0 (+ j 1))) ((= j n)) (if (and (> j i) (not (zero? (matrix-ref c j i)))) (begin (let ((e (vector-ref c i))) (vector-set! c i (vector-ref c j)) (vector-set! c j e)) (let ((e (vector-ref b i))) (vector-set! b i (vector-ref b j)) (vector-set! b j e)) (return (void))))) (panic "Matrix is singular")))) (let ((d (/ (matrix-ref c i i)))) (do ((j 0 (+ j 1))) ((= j n)) (matrix-set! c i j (* d (matrix-ref c i j))) (matrix-set! b i j (* d (matrix-ref b i j)))) (do ((k 0 (+ k 1))) ((= k n)) (let ((d (- (matrix-ref c k i)))) (if (not (= k i)) (do ((j 0 (+ j 1))) ((= j n)) (matrix-set! c k j (+ (matrix-ref c k j) (* d (matrix-ref c i j)))) (matrix-set! b k j (+ (matrix-ref b k j) (* d (matrix-ref b i j)))))))))))) (define (jacobi! a) (if (not (and (= (matrix-rows a) (matrix-columns a)) (every-n1 (lambda (i) (every-n2 (lambda (j) (= (matrix-ref a i j) (matrix-ref a j i))) (matrix-rows a))) (matrix-rows a)))) (panic "Can only compute eigenvalues/eigenvectors of a symmetric matrix")) (let* ((n (matrix-rows a)) (d (make-vector n)) (v (make-matrix-initial n n 0.0)) (b (make-vector n)) (z (make-vector n 0.0))) (do ((ip 0 (+ ip 1))) ((= ip n)) (matrix-set! v ip ip 1.0) (vector-set! b ip (matrix-ref a ip ip)) (vector-set! d ip (matrix-ref a ip ip))) (let loop ((i 0)) (if (> i 50) (panic "Too many iterations in JACOBI!")) (let ((sm (sum1 (lambda (ip) (sum2 (lambda (ir) (let ((iq (+ ip ir 1))) (abs (matrix-ref a ip iq)))) (- n ip 1))) (- n 1)))) (if (not (zero? sm)) (begin (let ((tresh (if (< i 3) (/ (* 0.2 sm) (* n n)) 0.0))) (do ((ip 0 (+ ip 1))) ((= ip (- n 1))) (do ((ir 0 (+ ir 1))) ((= ir (- n ip 1))) (let* ((iq (+ ip ir 1)) (g (* 100.0 (abs (matrix-ref a ip iq))))) (cond ((and (> i 3) (= (+ (abs (vector-ref d ip)) g) (abs (vector-ref d ip))) (= (+ (abs (vector-ref d iq)) g) (abs (vector-ref d iq)))) (matrix-set! a ip iq 0.0)) ((> (abs (matrix-ref a ip iq)) tresh) (let* ((h (- (vector-ref d iq) (vector-ref d ip))) (t (if (= (+ (abs h) g) (abs h)) (/ (matrix-ref a ip iq) h) (let ((theta (/ (* 0.5 h) (matrix-ref a ip iq)))) (if (negative? theta) (- (/ (+ (abs theta) (sqrt (+ (* theta theta) 1.0))))) (/ (+ (abs theta) (sqrt (+ (* theta theta) 1.0)))))))) (c (/ (sqrt (+ (* t t) 1.0)))) (s (* t c)) (tau (/ s (+ c 1.0))) (h (* t (matrix-ref a ip iq)))) (define (rotate a i j k l) (let ((g (matrix-ref a i j)) (h (matrix-ref a k l))) (matrix-set! a i j (- g (* s (+ h (* g tau))))) (matrix-set! a k l (+ h (* s (- g (* h tau))))))) (vector-set! z ip (- (vector-ref z ip) h)) (vector-set! z iq (+ (vector-ref z iq) h)) (vector-set! d ip (- (vector-ref d ip) h)) (vector-set! d iq (+ (vector-ref d iq) h)) (matrix-set! a ip iq 0.0) (do ((j 0 (+ j 1))) ((= j n)) (cond ((< j ip) (rotate a j ip j iq)) ((< ip j iq) (rotate a ip j j iq)) ((< iq j) (rotate a ip j iq j))) (rotate v j ip j iq))))))))) (do ((ip 0 (+ ip 1))) ((= ip n)) (vector-set! b ip (+ (vector-ref b ip) (vector-ref z ip))) (vector-set! d ip (vector-ref b ip)) (vector-set! z ip 0.0)) (loop (+ i 1)))))) (do ((i 0 (+ i 1))) ((= i (- n 1))) (let ((k i) (p (vector-ref d i))) (do ((l 0 (+ l 1))) ((= l (- n i 1))) (let* ((j (+ i l 1))) (if (>= (vector-ref d j) p) (begin (set! k j) (set! p (vector-ref d j)))))) (if (not (= k i)) (begin (vector-set! d k (vector-ref d i)) (vector-set! d i p) (do ((j 0 (+ j 1))) ((= j n)) (let ((p (matrix-ref v j i))) (matrix-set! v j i (matrix-ref v j k)) (matrix-set! v j k p))))))) (list-two1 d v))) (define (clip-eigenvalues! a v) (let* ((j (jacobi! a)) (l (first j)) (e (second1 j))) (do ((k1 0 (+ k1 1))) ((= k1 (vector-length a))) (let ((a-k1 (vector-ref a k1)) (e-k1 (vector-ref e k1))) (do ((k2 0 (+ k2 1))) ((= k2 (vector-length a-k1))) (let ((e-k2 (vector-ref e k2)) (s 0.0)) (do ((k 0 (+ k 1))) ((= k (vector-length a))) (set! s (+ s (* (vector-ref e-k1 k) (max (vector-ref v k) (vector-ref l k)) (vector-ref e-k2 k))))) (vector-set! a-k1 k2 s))))))) ;;; EM (define (e-step! x z models) (do ((i 0 (+ i 1))) ((= i (vector-length x))) (let ((xi (vector-ref x i)) (zi (vector-ref z i))) (do ((j 0 (+ j 1))) ((= j (vector-length models))) ;; Compute for each model. (let* ((model (vector-ref models j)) (log-pi (model-log-pi model)) (mu (model-mu model)) (sigma-inverse (model-sigma-inverse model)) (log-determinant-sigma (model-log-determinant-sigma model)) (t 0.0)) ;; Compute likelihoods (note: up to constant for all models). (set! t 0.0) (do ((k1 0 (+ k1 1))) ((= k1 (vector-length xi))) (let ((sigma-inverse-k1 (vector-ref sigma-inverse k1))) (do ((k2 0 (+ k2 1))) ((= k2 (vector-length xi))) (set! t (+ t (* (- (vector-ref xi k1) (vector-ref mu k1)) (vector-ref sigma-inverse-k1 k2) (- (vector-ref xi k2) (vector-ref mu k2)))))))) (vector-set! zi j (- log-pi (* 0.5 (+ log-determinant-sigma t)))))))) (let ((l 0.0)) (do ((i 0 (+ i 1))) ((= i (vector-length x))) (let ((s minus-infinity) (zi (vector-ref z i))) ;; Normalize ownerships to sum to one. (do ((j 0 (+ j 1))) ((= j (vector-length models))) (set! s (add-exp s (vector-ref zi j)))) (do ((j 0 (+ j 1))) ((= j (vector-length models))) (vector-set! zi j (exp (- (vector-ref zi j) s)))) (set! l (+ l s)))) ;; Return log likelihood. l)) (define (m-step! x models z clip) (let ((kk (vector-length (vector-ref x 0)))) ;; For each model, optimize parameters. (do ((j 0 (+ j 1))) ((= j (vector-length models))) (let* ((model (vector-ref models j)) (mu (model-mu model)) (sigma (model-sigma model)) (s 0.0)) ;; Optimize values. (do ((i 0 (+ i 1))) ((= i (vector-length x))) (set! s (+ s (vector-ref (vector-ref z i) j)))) (let ((si (/ s))) (do ((k 0 (+ k 1))) ((= k kk)) (let ((m 0.0)) (do ((i 0 (+ i 1))) ((= i (vector-length x))) (set! m (+ m (* (vector-ref (vector-ref z i) j) (vector-ref (vector-ref x i) k))))) (vector-set! mu k (* si m))))) (let ((si (/ s))) (do ((k1 0 (+ k1 1))) ((= k1 kk)) (let ((sigma-k1 (vector-ref sigma k1)) (mu-k1 (vector-ref mu k1))) (do ((k2 0 (+ k2 1))) ((= k2 kk)) (let ((mu-k2 (vector-ref mu k2)) (m 0.0)) (do ((i 0 (+ i 1))) ((= i (vector-length x))) (set! m (+ m (* (vector-ref (vector-ref z i) j) (* (- (vector-ref (vector-ref x i) k1) mu-k1) (- (vector-ref (vector-ref x i) k2) mu-k2)))))) (vector-set! sigma-k1 k2 (* si m))))))) (clip-eigenvalues! sigma clip) (set-model-pi! model (/ s (vector-length x))) (set-model-log-pi! model (log (/ s (vector-length x)))) (invert-matrix! sigma (model-sigma-inverse model)) (set-model-log-determinant-sigma! model (log (determinant sigma))))))) (define (em! x z models clip em-kick-off-tolerance em-convergence-tolerance) (let loop ((old-log-likelihood minus-infinity) (starting? #t)) (let ((log-likelihood (e-step! x z models))) (cond ((or (and starting? (> log-likelihood old-log-likelihood)) (> log-likelihood (+ old-log-likelihood em-convergence-tolerance))) (m-step! x models z clip) (loop log-likelihood (and starting? (not (= (vector-length models) 1)) (or (= old-log-likelihood minus-infinity) (< log-likelihood (+ old-log-likelihood em-kick-off-tolerance)))))) (else old-log-likelihood))))) (define (noise epsilon) (- (* 2.0 epsilon (/ (exact->inexact (rand)) *most-positive-fixnum*)) epsilon)) (define (initial-z ii jj) (map-n-vector6 (lambda (i) (let ((zi (map-n-vector7 (lambda (j) (+ (/ (exact->inexact jj)) (noise (/ (exact->inexact jj))))) jj)) (s 0.0)) (do ((j 0 (+ j 1))) ((= j jj)) (set! s (+ s (vector-ref zi j)))) (let ((si (/ s))) (do ((j 0 (+ j 1))) ((= j jj)) (vector-set! zi j (* si (vector-ref zi j))))) zi)) ii)) (define (ems x clip em-kick-off-tolerance em-convergence-tolerance ems-convergence-tolerance) (let loop ((jj 1) (old-z (void)) (old-models (void)) (old-log-likelihood minus-infinity)) (let* ((kk (vector-length (vector-ref x 0))) (z (initial-z (vector-length x) jj)) (models (map-n-vector8 (lambda (j) ;; needs work: Should replace 0.0 with ((LAMBDA ())). (make-model 0.0 (make-vector kk) (make-matrix3 kk kk) 0.0 (make-matrix4 kk kk) 0.0)) jj))) (m-step! x models z clip) (let ((new-log-likelihood (em! x z models clip em-kick-off-tolerance em-convergence-tolerance))) (if (> (- (/ old-log-likelihood new-log-likelihood) 1.0) ems-convergence-tolerance) (loop (+ jj 1) z models new-log-likelihood) (list-two2 old-z old-models)))))) (define (em-clusterer x clip em-kick-off-tolerance em-convergence-tolerance ems-convergence-tolerance) (let* ((z-models (ems x clip em-kick-off-tolerance em-convergence-tolerance ems-convergence-tolerance)) (z (first z-models)) (models (second2 z-models))) (e-step! x z models) (let ((clusters (map-n1 (lambda (i) (let ((zi (vector->list (vector-ref z i)))) (list-two3 i (positionv (reduce max zi minus-infinity) zi)))) (vector-length z)))) (map-n2 (lambda (j) (map (lambda (cluster) (vector-ref x (first cluster))) (remove-if-not (lambda (cluster) (= (second3 cluster) j)) clusters))) (vector-length (vector-ref z 0)))))) (do ((i 0 (+ i 1))) ((= i 100)) (write (em-clusterer '#(#(1.0) #(2.0) #(3.0) #(11.0) #(12.0) #(13.0)) '#(1.0) 10.0 1.0 0.01)) (newline)) stalin-0.11/benchmarks/em-imperative.sc0000600017435200151030000005176207244422131016613 0ustar qobiqobi;;; The constants are hardwired to be inexact for efficiency. ;;; begin Stalin (define make-model (primitive-procedure make-structure model 6)) (define model-pi (primitive-procedure structure-ref model 0)) (define set-model-pi! (primitive-procedure structure-set! model 0)) (define model-mu (primitive-procedure structure-ref model 1)) (define model-sigma (primitive-procedure structure-ref model 2)) (define model-log-pi (primitive-procedure structure-ref model 3)) (define set-model-log-pi! (primitive-procedure structure-set! model 3)) (define model-sigma-inverse (primitive-procedure structure-ref model 4)) (define model-log-determinant-sigma (primitive-procedure structure-ref model 5)) (define set-model-log-determinant-sigma! (primitive-procedure structure-set! model 5)) (define (void) ((lambda ()))) ;;; end Stalin ;;; begin Scheme->C (define make-model vector) (define (model-pi model) (vector-ref model 0)) (define (set-model-pi! model pi) (vector-set! model 0 pi)) (define (model-mu model) (vector-ref model 1)) (define (model-sigma model) (vector-ref model 2)) (define (model-log-pi model) (vector-ref model 3)) (define (set-model-log-pi! model log-pi) (vector-set! model 3 log-pi)) (define (model-sigma-inverse model) (vector-ref model 4)) (define (model-log-determinant-sigma model) (vector-ref model 5)) (define (set-model-log-determinant-sigma! model log-determinant-sigma) (vector-set! model 5 log-determinant-sigma)) (define (panic s) (error 'panic s)) (define (void) #f) ;;; end Scheme->C ;;; begin Gambit-C (define-structure model pi mu sigma log-pi sigma-inverse log-determinant-sigma) (define set-model-pi! model-pi-set!) (define set-model-log-pi! model-log-pi-set!) (define set-model-log-determinant-sigma! model-log-determinant-sigma-set!) (define (panic s) (error s)) ;;; end Gambit-C ;;; begin Bigloo (define make-model vector) (define (model-pi model) (vector-ref model 0)) (define (set-model-pi! model pi) (vector-set! model 0 pi)) (define (model-mu model) (vector-ref model 1)) (define (model-sigma model) (vector-ref model 2)) (define (model-log-pi model) (vector-ref model 3)) (define (set-model-log-pi! model log-pi) (vector-set! model 3 log-pi)) (define (model-sigma-inverse model) (vector-ref model 4)) (define (model-log-determinant-sigma model) (vector-ref model 5)) (define (set-model-log-determinant-sigma! model log-determinant-sigma) (vector-set! model 5 log-determinant-sigma)) (define (panic s) (error s 'panic 'panic)) (define (void) #f) ;;; end Bigloo ;;; begin Chez (define make-model vector) (define (model-pi model) (vector-ref model 0)) (define (set-model-pi! model pi) (vector-set! model 0 pi)) (define (model-mu model) (vector-ref model 1)) (define (model-sigma model) (vector-ref model 2)) (define (model-log-pi model) (vector-ref model 3)) (define (set-model-log-pi! model log-pi) (vector-set! model 3 log-pi)) (define (model-sigma-inverse model) (vector-ref model 4)) (define (model-log-determinant-sigma model) (vector-ref model 5)) (define (set-model-log-determinant-sigma! model log-determinant-sigma) (vector-set! model 5 log-determinant-sigma)) (define (panic s) (error 'panic s)) ;;; end Chez ;;; begin Chicken (define-record-type model pi mu sigma log-pi sigma-inverse log-determinant-sigma) (define (panic s) (error s)) ;;; end Chicken (define (hex-string->number s) (let loop ((s (string->list s)) (c 0)) (if (null? s) c (loop (cdr s) (+ (* 16 c) (if (char-numeric? (car s)) (- (char->integer (car s)) (char->integer #\0)) (+ (- (char->integer (car s)) (char->integer #\a)) 10))))))) ;;; The following code is a modified version of code taken from SLIB. ;;; Copyright (C) 1991, 1993 Aubrey Jaffer. ; ;Permission to copy this software, to redistribute it, and to use it ;for any purpose is granted, subject to the following restrictions and ;understandings. ; ;1. Any copy made of this software must include this copyright notice ;in full. ; ;2. I have made no warrantee or representation that the operation of ;this software will be error-free, and I am under no obligation to ;provide any services, by way of maintenance, update, or otherwise. ; ;3. In conjunction with products arising from the use of this ;material, there shall be no use of my name in any advertising, ;promotional, or sales literature without prior written consent in ;each case. (define *most-positive-fixnum* 65535) (define (logical:logxor n1 n2) (cond ((= n1 n2) 0) ((zero? n1) n2) ((zero? n2) n1) (else (+ (* (logical:logxor (logical:ash-4 n1) (logical:ash-4 n2)) 16) (vector-ref (vector-ref logical:boole-xor (modulo n1 16)) (modulo n2 16)))))) (define (logical:ash-4 x) (if (negative? x) (+ -1 (quotient (+ 1 x) 16)) (quotient x 16))) (define logical:boole-xor '#(#(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15) #(1 0 3 2 5 4 7 6 9 8 11 10 13 12 15 14) #(2 3 0 1 6 7 4 5 10 11 8 9 14 15 12 13) #(3 2 1 0 7 6 5 4 11 10 9 8 15 14 13 12) #(4 5 6 7 0 1 2 3 12 13 14 15 8 9 10 11) #(5 4 7 6 1 0 3 2 13 12 15 14 9 8 11 10) #(6 7 4 5 2 3 0 1 14 15 12 13 10 11 8 9) #(7 6 5 4 3 2 1 0 15 14 13 12 11 10 9 8) #(8 9 10 11 12 13 14 15 0 1 2 3 4 5 6 7) #(9 8 11 10 13 12 15 14 1 0 3 2 5 4 7 6) #(10 11 8 9 14 15 12 13 2 3 0 1 6 7 4 5) #(11 10 9 8 15 14 13 12 3 2 1 0 7 6 5 4) #(12 13 14 15 8 9 10 11 4 5 6 7 0 1 2 3) #(13 12 15 14 9 8 11 10 5 4 7 6 1 0 3 2) #(14 15 12 13 10 11 8 9 6 7 4 5 2 3 0 1) #(15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0))) (define random:tap 24) (define random:size 55) (define (random:size-int l) (let ((trial (hex-string->number (make-string l #\f)))) (if (and (exact? trial) (positive? trial) (>= *most-positive-fixnum* trial)) l (random:size-int (- l 1))))) (define random:chunk-size (* 4 (random:size-int 8))) (define random:MASK (hex-string->number (make-string (quotient random:chunk-size 4) #\f))) (define *random-state* '#()) (let ((random-strings '#("d909ef3e" "fd330ab3" "e33f7843" "76783fbd" "f3675fb3" "b54ef879" "0be45590" "a6794679" "0bcd56d3" "fabcdef8" "9cbd3efd" "3fd3efcd" "e064ef27" "dddecc08" "34444292" "85444454" "4c519210" "c0366273" "54734567" "70abcddc" "1bbdac53" "616c5a86" "a982efa9" "105996a0" "5f0cccba" "1ea055e1" "fe2acd8d" "1891c1d4" "e6690270" "6912bccc" "2678e141" "61222224" "907abcbb" "4ad6829b" "9cdd1404" "57798841" "5b892496" "871c9cd1" "d1e67bda" "8b0a3233" "578ef23f" "28274ef6" "823ef5ef" "845678c5" "e67890a5" "5890abcb" "851fa9ab" "13efa13a" "b12278d6" "daf805ab" "a0befc36" "0068a7b5" "e024fd90" "a7b690e2" "27f3571a" 0))) (set! *random-state* (make-vector (+ random:size 1) 0)) (let ((nibbles (quotient random:chunk-size 4))) (do ((i 0 (+ i 1))) ((= i random:size)) (vector-set! *random-state* i (hex-string->number (substring (vector-ref random-strings i) 0 nibbles)))))) ;;; random:chunk returns an integer in the range of ;;; 0 to (- (expt 2 random:chunk-size) 1) (define (random:chunk v) (let* ((p (vector-ref v random:size)) (ans (logical:logxor (vector-ref v (modulo (- p random:tap) random:size)) (vector-ref v p)))) (vector-set! v p ans) (vector-set! v random:size (modulo (- p 1) random:size)) ans)) (define (rand) (do ((ilen 0 (+ 1 ilen)) (s random:MASK (+ random:MASK (* (+ 1 random:MASK) s)))) ((>= s (- *most-positive-fixnum* 1)) (let ((slop (modulo (+ s (- 1 *most-positive-fixnum*)) *most-positive-fixnum*))) (let loop ((n ilen) (r (random:chunk *random-state*))) (cond ((not (zero? n)) (loop (+ -1 n) (+ (* r (+ 1 random:MASK)) (random:chunk *random-state*)))) ((>= r slop) (modulo r *most-positive-fixnum*)) (else (loop ilen (random:chunk *random-state*))))))))) ;;; End of code taken from SLIB (define log-math-precision 35.0) (define minus-infinity (log 0.0)) (define first car) (define second cadr) (define rest cdr) (define (reduce f l i) (cond ((null? l) i) ((null? (rest l)) (first l)) (else (let loop ((l (rest l)) (c (first l))) (if (null? l) c (loop (rest l) (f c (first l)))))))) (define (every-n p n) (let loop ((i 0)) (or (>= i n) (and (p i) (loop (+ i 1)))))) (define (sum f n) (let loop ((n (- n 1)) (c 0.0)) (if (negative? n) c (loop (- n 1) (+ c (f n)))))) (define (add-exp e1 e2) (let* ((e-max (max e1 e2)) (e-min (min e1 e2)) (factor (floor e-min))) (if (= e-max minus-infinity) minus-infinity (if (> (- e-max factor) log-math-precision) e-max (+ (log (+ (exp (- e-max factor)) (exp (- e-min factor)))) factor))))) (define (map-n f n) ;; needs work: To eliminate REVERSE. (let loop ((i 0) (c '())) (if (< i n) (loop (+ i 1) (cons (f i) c)) (reverse c)))) (define (map-n-vector f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (remove-if-not p l) ;; needs work: To eliminate REVERSE. (let loop ((l l) (c '())) (cond ((null? l) (reverse c)) ((p (first l)) (loop (rest l) (cons (first l) c))) (else (loop (rest l) c))))) (define (positionv x l) (let loop ((l l) (i 0)) (cond ((null? l) #f) ((eqv? x (first l)) i) (else (loop (rest l) (+ i 1)))))) (define (make-matrix m n) (map-n-vector (lambda (i) (make-vector n)) m)) (define (make-matrix-initial m n initial) (map-n-vector (lambda (i) (make-vector n initial)) m)) (define (matrix-rows a) (vector-length a)) (define (matrix-columns a) (vector-length (vector-ref a 0))) (define (matrix-ref a i j) (vector-ref (vector-ref a i) j)) (define (matrix-set! a i j x) (vector-set! (vector-ref a i) j x)) (define (matrix-row-ref a i) (vector-ref a i)) (define (matrix-row-set! a i v) (vector-set! a i v)) (define (determinant a) (if (not (= (matrix-rows a) (matrix-columns a))) (panic "Can only find determinant of a square matrix")) (call-with-current-continuation (lambda (return) (let* ((n (matrix-rows a)) (b (make-matrix n n)) (d 1.0)) (do ((i 0 (+ i 1))) ((= i n)) (do ((j 0 (+ j 1))) ((= j n)) (matrix-set! b i j (matrix-ref a i j)))) (do ((i 0 (+ i 1))) ((= i n)) ;; partial pivoting reduces rounding errors (let ((greatest (abs (matrix-ref b i i))) (index i)) (do ((j (+ i 1) (+ j 1))) ((= j n)) (let ((x (abs (matrix-ref b j i)))) (if (> x greatest) (begin (set! index j) (set! greatest x))))) (if (= greatest 0.0) (return 0.0)) (if (not (= index i)) (let ((v (matrix-row-ref b i))) (matrix-row-set! b i (matrix-row-ref b index)) (matrix-row-set! b index v) (set! d (- d)))) (let ((c (matrix-ref b i i))) (set! d (* d c)) (do ((j i (+ j 1))) ((= j n)) (matrix-set! b i j (/ (matrix-ref b i j) c))) (do ((j (+ i 1) (+ j 1))) ((= j n)) (let ((e (matrix-ref b j i))) (do ((k (+ i 1) (+ k 1))) ((= k n)) (matrix-set! b j k (- (matrix-ref b j k) (* e (matrix-ref b i k)))))))))) d)))) (define (invert-matrix! a b) (if (not (= (matrix-rows a) (matrix-columns a))) (panic "Can only invert a square matrix")) (let* ((n (matrix-rows a)) (c (make-matrix n n))) (do ((i 0 (+ i 1))) ((= i n)) (do ((j 0 (+ j 1))) ((= j n)) (matrix-set! b i j 0.0) (matrix-set! c i j (matrix-ref a i j)))) (do ((i 0 (+ i 1))) ((= i n)) (matrix-set! b i i 1.0)) (do ((i 0 (+ i 1))) ((= i n)) (if (zero? (matrix-ref c i i)) (call-with-current-continuation (lambda (return) (do ((j 0 (+ j 1))) ((= j n)) (if (and (> j i) (not (zero? (matrix-ref c j i)))) (begin (let ((e (vector-ref c i))) (vector-set! c i (vector-ref c j)) (vector-set! c j e)) (let ((e (vector-ref b i))) (vector-set! b i (vector-ref b j)) (vector-set! b j e)) (return (void))))) (panic "Matrix is singular")))) (let ((d (/ (matrix-ref c i i)))) (do ((j 0 (+ j 1))) ((= j n)) (matrix-set! c i j (* d (matrix-ref c i j))) (matrix-set! b i j (* d (matrix-ref b i j)))) (do ((k 0 (+ k 1))) ((= k n)) (let ((d (- (matrix-ref c k i)))) (if (not (= k i)) (do ((j 0 (+ j 1))) ((= j n)) (matrix-set! c k j (+ (matrix-ref c k j) (* d (matrix-ref c i j)))) (matrix-set! b k j (+ (matrix-ref b k j) (* d (matrix-ref b i j)))))))))))) (define (jacobi! a) (if (not (and (= (matrix-rows a) (matrix-columns a)) (every-n (lambda (i) (every-n (lambda (j) (= (matrix-ref a i j) (matrix-ref a j i))) (matrix-rows a))) (matrix-rows a)))) (panic "Can only compute eigenvalues/eigenvectors of a symmetric matrix")) (let* ((n (matrix-rows a)) (d (make-vector n)) (v (make-matrix-initial n n 0.0)) (b (make-vector n)) (z (make-vector n 0.0))) (do ((ip 0 (+ ip 1))) ((= ip n)) (matrix-set! v ip ip 1.0) (vector-set! b ip (matrix-ref a ip ip)) (vector-set! d ip (matrix-ref a ip ip))) (let loop ((i 0)) (if (> i 50) (panic "Too many iterations in JACOBI!")) (let ((sm (sum (lambda (ip) (sum (lambda (ir) (let ((iq (+ ip ir 1))) (abs (matrix-ref a ip iq)))) (- n ip 1))) (- n 1)))) (if (not (zero? sm)) (begin (let ((tresh (if (< i 3) (/ (* 0.2 sm) (* n n)) 0.0))) (do ((ip 0 (+ ip 1))) ((= ip (- n 1))) (do ((ir 0 (+ ir 1))) ((= ir (- n ip 1))) (let* ((iq (+ ip ir 1)) (g (* 100.0 (abs (matrix-ref a ip iq))))) (cond ((and (> i 3) (= (+ (abs (vector-ref d ip)) g) (abs (vector-ref d ip))) (= (+ (abs (vector-ref d iq)) g) (abs (vector-ref d iq)))) (matrix-set! a ip iq 0.0)) ((> (abs (matrix-ref a ip iq)) tresh) (let* ((h (- (vector-ref d iq) (vector-ref d ip))) (t (if (= (+ (abs h) g) (abs h)) (/ (matrix-ref a ip iq) h) (let ((theta (/ (* 0.5 h) (matrix-ref a ip iq)))) (if (negative? theta) (- (/ (+ (abs theta) (sqrt (+ (* theta theta) 1.0))))) (/ (+ (abs theta) (sqrt (+ (* theta theta) 1.0)))))))) (c (/ (sqrt (+ (* t t) 1.0)))) (s (* t c)) (tau (/ s (+ c 1.0))) (h (* t (matrix-ref a ip iq)))) (define (rotate a i j k l) (let ((g (matrix-ref a i j)) (h (matrix-ref a k l))) (matrix-set! a i j (- g (* s (+ h (* g tau))))) (matrix-set! a k l (+ h (* s (- g (* h tau))))))) (vector-set! z ip (- (vector-ref z ip) h)) (vector-set! z iq (+ (vector-ref z iq) h)) (vector-set! d ip (- (vector-ref d ip) h)) (vector-set! d iq (+ (vector-ref d iq) h)) (matrix-set! a ip iq 0.0) (do ((j 0 (+ j 1))) ((= j n)) (cond ((< j ip) (rotate a j ip j iq)) ((< ip j iq) (rotate a ip j j iq)) ((< iq j) (rotate a ip j iq j))) (rotate v j ip j iq))))))))) (do ((ip 0 (+ ip 1))) ((= ip n)) (vector-set! b ip (+ (vector-ref b ip) (vector-ref z ip))) (vector-set! d ip (vector-ref b ip)) (vector-set! z ip 0.0)) (loop (+ i 1)))))) (do ((i 0 (+ i 1))) ((= i (- n 1))) (let ((k i) (p (vector-ref d i))) (do ((l 0 (+ l 1))) ((= l (- n i 1))) (let* ((j (+ i l 1))) (if (>= (vector-ref d j) p) (begin (set! k j) (set! p (vector-ref d j)))))) (if (not (= k i)) (begin (vector-set! d k (vector-ref d i)) (vector-set! d i p) (do ((j 0 (+ j 1))) ((= j n)) (let ((p (matrix-ref v j i))) (matrix-set! v j i (matrix-ref v j k)) (matrix-set! v j k p))))))) (list d v))) (define (clip-eigenvalues! a v) (let* ((j (jacobi! a)) (l (first j)) (e (second j))) (do ((k1 0 (+ k1 1))) ((= k1 (vector-length a))) (let ((a-k1 (vector-ref a k1)) (e-k1 (vector-ref e k1))) (do ((k2 0 (+ k2 1))) ((= k2 (vector-length a-k1))) (let ((e-k2 (vector-ref e k2)) (s 0.0)) (do ((k 0 (+ k 1))) ((= k (vector-length a))) (set! s (+ s (* (vector-ref e-k1 k) (max (vector-ref v k) (vector-ref l k)) (vector-ref e-k2 k))))) (vector-set! a-k1 k2 s))))))) ;;; EM (define (e-step! x z models) (do ((i 0 (+ i 1))) ((= i (vector-length x))) (let ((xi (vector-ref x i)) (zi (vector-ref z i))) (do ((j 0 (+ j 1))) ((= j (vector-length models))) ;; Compute for each model. (let* ((model (vector-ref models j)) (log-pi (model-log-pi model)) (mu (model-mu model)) (sigma-inverse (model-sigma-inverse model)) (log-determinant-sigma (model-log-determinant-sigma model)) (t 0.0)) ;; Compute likelihoods (note: up to constant for all models). (set! t 0.0) (do ((k1 0 (+ k1 1))) ((= k1 (vector-length xi))) (let ((sigma-inverse-k1 (vector-ref sigma-inverse k1))) (do ((k2 0 (+ k2 1))) ((= k2 (vector-length xi))) (set! t (+ t (* (- (vector-ref xi k1) (vector-ref mu k1)) (vector-ref sigma-inverse-k1 k2) (- (vector-ref xi k2) (vector-ref mu k2)))))))) (vector-set! zi j (- log-pi (* 0.5 (+ log-determinant-sigma t)))))))) (let ((l 0.0)) (do ((i 0 (+ i 1))) ((= i (vector-length x))) (let ((s minus-infinity) (zi (vector-ref z i))) ;; Normalize ownerships to sum to one. (do ((j 0 (+ j 1))) ((= j (vector-length models))) (set! s (add-exp s (vector-ref zi j)))) (do ((j 0 (+ j 1))) ((= j (vector-length models))) (vector-set! zi j (exp (- (vector-ref zi j) s)))) (set! l (+ l s)))) ;; Return log likelihood. l)) (define (m-step! x models z clip) (let ((kk (vector-length (vector-ref x 0)))) ;; For each model, optimize parameters. (do ((j 0 (+ j 1))) ((= j (vector-length models))) (let* ((model (vector-ref models j)) (mu (model-mu model)) (sigma (model-sigma model)) (s 0.0)) ;; Optimize values. (do ((i 0 (+ i 1))) ((= i (vector-length x))) (set! s (+ s (vector-ref (vector-ref z i) j)))) (let ((si (/ s))) (do ((k 0 (+ k 1))) ((= k kk)) (let ((m 0.0)) (do ((i 0 (+ i 1))) ((= i (vector-length x))) (set! m (+ m (* (vector-ref (vector-ref z i) j) (vector-ref (vector-ref x i) k))))) (vector-set! mu k (* si m))))) (let ((si (/ s))) (do ((k1 0 (+ k1 1))) ((= k1 kk)) (let ((sigma-k1 (vector-ref sigma k1)) (mu-k1 (vector-ref mu k1))) (do ((k2 0 (+ k2 1))) ((= k2 kk)) (let ((mu-k2 (vector-ref mu k2)) (m 0.0)) (do ((i 0 (+ i 1))) ((= i (vector-length x))) (set! m (+ m (* (vector-ref (vector-ref z i) j) (* (- (vector-ref (vector-ref x i) k1) mu-k1) (- (vector-ref (vector-ref x i) k2) mu-k2)))))) (vector-set! sigma-k1 k2 (* si m))))))) (clip-eigenvalues! sigma clip) (set-model-pi! model (/ s (vector-length x))) (set-model-log-pi! model (log (/ s (vector-length x)))) (invert-matrix! sigma (model-sigma-inverse model)) (set-model-log-determinant-sigma! model (log (determinant sigma))))))) (define (em! x z models clip em-kick-off-tolerance em-convergence-tolerance) (let loop ((old-log-likelihood minus-infinity) (starting? #t)) (let ((log-likelihood (e-step! x z models))) (cond ((or (and starting? (> log-likelihood old-log-likelihood)) (> log-likelihood (+ old-log-likelihood em-convergence-tolerance))) (m-step! x models z clip) (loop log-likelihood (and starting? (not (= (vector-length models) 1)) (or (= old-log-likelihood minus-infinity) (< log-likelihood (+ old-log-likelihood em-kick-off-tolerance)))))) (else old-log-likelihood))))) (define (noise epsilon) (- (* 2.0 epsilon (/ (exact->inexact (rand)) *most-positive-fixnum*)) epsilon)) (define (initial-z ii jj) (map-n-vector (lambda (i) (let ((zi (map-n-vector (lambda (j) (+ (/ (exact->inexact jj)) (noise (/ (exact->inexact jj))))) jj)) (s 0.0)) (do ((j 0 (+ j 1))) ((= j jj)) (set! s (+ s (vector-ref zi j)))) (let ((si (/ s))) (do ((j 0 (+ j 1))) ((= j jj)) (vector-set! zi j (* si (vector-ref zi j))))) zi)) ii)) (define (ems x clip em-kick-off-tolerance em-convergence-tolerance ems-convergence-tolerance) (let loop ((jj 1) (old-z (void)) (old-models (void)) (old-log-likelihood minus-infinity)) (let* ((kk (vector-length (vector-ref x 0))) (z (initial-z (vector-length x) jj)) (models (map-n-vector (lambda (j) ;; needs work: Should replace 0.0 with ((LAMBDA ())). (make-model 0.0 (make-vector kk) (make-matrix kk kk) 0.0 (make-matrix kk kk) 0.0)) jj))) (m-step! x models z clip) (let ((new-log-likelihood (em! x z models clip em-kick-off-tolerance em-convergence-tolerance))) (if (> (- (/ old-log-likelihood new-log-likelihood) 1.0) ems-convergence-tolerance) (loop (+ jj 1) z models new-log-likelihood) (list old-z old-models)))))) (define (em-clusterer x clip em-kick-off-tolerance em-convergence-tolerance ems-convergence-tolerance) (let* ((z-models (ems x clip em-kick-off-tolerance em-convergence-tolerance ems-convergence-tolerance)) (z (first z-models)) (models (second z-models))) (e-step! x z models) (let ((clusters (map-n (lambda (i) (let ((zi (vector->list (vector-ref z i)))) (list i (positionv (reduce max zi minus-infinity) zi)))) (vector-length z)))) (map-n (lambda (j) (map (lambda (cluster) (vector-ref x (first cluster))) (remove-if-not (lambda (cluster) (= (second cluster) j)) clusters))) (vector-length (vector-ref z 0)))))) (do ((i 0 (+ i 1))) ((= i 100)) (write (em-clusterer '#(#(1.0) #(2.0) #(3.0) #(11.0) #(12.0) #(13.0)) '#(1.0) 10.0 1.0 0.01)) (newline)) stalin-0.11/benchmarks/fannkuch.sc0000600017435200151030000000347007063212313015633 0ustar qobiqobi(define (fannkuch-1 n perm perm1 zaehl permmax) (define (fill p n) (do ((i 0 (+ i 1))) ((>= i n)) (vector-set! p i i))) (define (vector-copy1 perm perm1 n) (do ((i 0 (+ i 1))) ((>= i n)) (vector-set! perm i (vector-ref perm1 i)))) (define (vector-copy2 perm perm1 n) (do ((i 0 (+ i 1))) ((>= i n)) (vector-set! perm i (vector-ref perm1 i)))) (define (flip k k2 perm n) (do ((i 0 (+ i 1))) ((>= i k2)) (let* ((temp (vector-ref perm i)) (j (- k i))) (vector-set! perm i (vector-ref perm j)) (vector-set! perm j temp)))) (define (kreuz-loop zaehl r) (if (not (= r 1)) (let ((i (- r 1))) (vector-set! zaehl i r) (kreuz-loop zaehl i)))) (define (shift r perm1 n) (let ((perm0 (vector-ref perm1 0))) (let loop ((i 0)) (if (not (= i r)) (let ((k (+ i 1))) (vector-set! perm1 i (vector-ref perm1 k)) (loop k)))) (vector-set! perm1 r perm0))) (define (count-flips perm n) (let loop ((count 0)) (let ((k (vector-ref perm 0))) (cond ((= k 0) count) (else (flip k (quotient (+ k 1) 2) perm n) (loop (+ count 1))))))) (fill perm1 n) (let main ((bishmax -1) (r n)) (kreuz-loop zaehl r) (if (not (or (= (vector-ref perm1 0) 0) (let ((i (- n 1))) (= (vector-ref perm1 i) i)))) (begin (vector-copy1 perm perm1 n) (let ((count (count-flips perm n))) (if (> count bishmax) (begin (set! bishmax count) (vector-copy2 permmax perm1 n)))))) (let loop ((r 1)) (cond ((= r n) bishmax) (else (shift r perm1 n) (let ((i (- (vector-ref zaehl r) 1))) (vector-set! zaehl r i) (if (<= i 0) (loop (+ r 1)) (main bishmax r)))))))) (define (fannkuch n) (fannkuch-1 n (make-vector n) (make-vector n) (make-vector n) (make-vector n))) (do ((i 0 (+ i 1))) ((= i 10)) (write (fannkuch 10)) (newline)) stalin-0.11/benchmarks/fdlcc-benchmark0000700017435200151030000000026307063214722016441 0ustar qobiqobi#!/bin/sh gcc -o unbuff unbuff.c ../stalin -q -On -db benchmarks-to-latex ./compile-fdlcc-benchmarks ./run-fdlcc-benchmarks ./benchmarks-to-latex mv results.tex fdlcc-results.tex stalin-0.11/benchmarks/gambit-fixnum.sed0000600017435200151030000000065607244410260016760 0ustar qobiqobi1i\ (declare (r4rs-scheme)\ \ (block)\ \ (standard-bindings)\ \ (extended-bindings)\ \ (not safe)\ \ (not interrupts-enabled)\ \ (fixnum)) \+;;; begin Stalin+,\+;;; end Stalin+d \+;;; begin Scheme->C+,\+;;; end Scheme->C+d \+;;; begin Gambit-C+d \+;;; end Gambit-C+d \+;;; begin Bigloo+,\+;;; end Bigloo+d \+;;; begin Chez+,\+;;; end Chez+d \+;;; begin Chicken+,\+;;; end Chicken+d stalin-0.11/benchmarks/fprint.tst0000600017435200151030000004133507066635050015561 0ustar qobiqobi ((((((FG678901 EF567890 EF567890 DE456789 DE456789 CD345678) BC234567 (EF567890 DE456789 DE456789 CD345678 CD345678 BC234567) AB123456 (DE456789 CD345678 CD345678 BC234567 BC234567 AB123456) XYZABC34) WXYZAB23 ((EF567890 DE456789 DE456789 CD345678 CD345678 BC234567) AB123456 (DE456789 CD345678 CD345678 BC234567 BC234567 AB123456) XYZABC34 (CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23) UVWXYZ12 ((DE456789 CD345678 CD345678 BC234567 BC234567 AB123456) XYZABC34 (CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12) STUVWX01) QRSTUV90 (((EF567890 DE456789 DE456789 CD345678 CD345678 BC234567) AB123456 (DE456789 CD345678 CD345678 BC234567 BC234567 AB123456) XYZABC34 (CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23) UVWXYZ12 ((DE456789 CD345678 CD345678 BC234567 BC234567 AB123456) XYZABC34 (CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12) STUVWX01 ((CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01) QRSTUV90) OPQRST89 (((DE456789 CD345678 CD345678 BC234567 BC234567 AB123456) XYZABC34 (CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12) STUVWX01 ((CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01) QRSTUV90 ((BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90) OPQRST89) MNOPQR78) KLMNOP67 ((((EF567890 DE456789 DE456789 CD345678 CD345678 BC234567) AB123456 (DE456789 CD345678 CD345678 BC234567 BC234567 AB123456) XYZABC34 (CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23) UVWXYZ12 ((DE456789 CD345678 CD345678 BC234567 BC234567 AB123456) XYZABC34 (CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12) STUVWX01 ((CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01) QRSTUV90) OPQRST89 (((DE456789 CD345678 CD345678 BC234567 BC234567 AB123456) XYZABC34 (CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12) STUVWX01 ((CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01) QRSTUV90 ((BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90) OPQRST89) MNOPQR78 (((CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01) QRSTUV90 ((BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90) OPQRST89 ((AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89) MNOPQR78) KLMNOP67) IJKLMN56 ((((DE456789 CD345678 CD345678 BC234567 BC234567 AB123456) XYZABC34 (CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12) STUVWX01 ((CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01) QRSTUV90 ((BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90) OPQRST89) MNOPQR78 (((CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01) QRSTUV90 ((BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90) OPQRST89 ((AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89) MNOPQR78) KLMNOP67 (((BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90) OPQRST89 ((AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89) MNOPQR78 ((XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89 (UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90 QRSTUV90 OPQRST89) MNOPQR78) KLMNOP67) IJKLMN56) GHIJKL45) EFGHIJ34 (((((EF567890 DE456789 DE456789 CD345678 CD345678 BC234567) AB123456 (DE456789 CD345678 CD345678 BC234567 BC234567 AB123456) XYZABC34 (CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23) UVWXYZ12 ((DE456789 CD345678 CD345678 BC234567 BC234567 AB123456) XYZABC34 (CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12) STUVWX01 ((CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01) QRSTUV90) OPQRST89 (((DE456789 CD345678 CD345678 BC234567 BC234567 AB123456) XYZABC34 (CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12) STUVWX01 ((CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01) QRSTUV90 ((BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90) OPQRST89) MNOPQR78 (((CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01) QRSTUV90 ((BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90) OPQRST89 ((AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89) MNOPQR78) KLMNOP67) IJKLMN56 ((((DE456789 CD345678 CD345678 BC234567 BC234567 AB123456) XYZABC34 (CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12) STUVWX01 ((CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01) QRSTUV90 ((BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90) OPQRST89) MNOPQR78 (((CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01) QRSTUV90 ((BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90) OPQRST89 ((AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89) MNOPQR78) KLMNOP67 (((BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90) OPQRST89 ((AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89) MNOPQR78 ((XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89 (UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90 QRSTUV90 OPQRST89) MNOPQR78) KLMNOP67) IJKLMN56) GHIJKL45 ((((CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01) QRSTUV90 ((BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90) OPQRST89 ((AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89) MNOPQR78) KLMNOP67 (((BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90) OPQRST89 ((AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89) MNOPQR78 ((XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89 (UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90 QRSTUV90 OPQRST89) MNOPQR78) KLMNOP67) IJKLMN56 (((AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89) MNOPQR78 ((XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89 (UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90 QRSTUV90 OPQRST89) MNOPQR78) KLMNOP67 ((WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89 (UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90 QRSTUV90 OPQRST89) MNOPQR78 (STUVWX01 QRSTUV90 QRSTUV90 OPQRST89 OPQRST89 MNOPQR78) KLMNOP67) IJKLMN56) GHIJKL45) EFGHIJ34) CDEFGH23 (((((DE456789 CD345678 CD345678 BC234567 BC234567 AB123456) XYZABC34 (CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12) STUVWX01 ((CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01) QRSTUV90 ((BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90) OPQRST89) MNOPQR78 (((CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01) QRSTUV90 ((BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90) OPQRST89 ((AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89) MNOPQR78) KLMNOP67 (((BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90) OPQRST89 ((AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89) MNOPQR78 ((XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89 (UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90 QRSTUV90 OPQRST89) MNOPQR78) KLMNOP67) IJKLMN56) GHIJKL45 ((((CD345678 BC234567 BC234567 AB123456 AB123456 XYZABC34) WXYZAB23 (BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01) QRSTUV90 ((BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90) OPQRST89 ((AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89) MNOPQR78) KLMNOP67 (((BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90) OPQRST89 ((AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89) MNOPQR78 ((XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89 (UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90 QRSTUV90 OPQRST89) MNOPQR78) KLMNOP67) IJKLMN56 (((AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89) MNOPQR78 ((XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89 (UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90 QRSTUV90 OPQRST89) MNOPQR78) KLMNOP67 ((WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89 (UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90 QRSTUV90 OPQRST89) MNOPQR78 (STUVWX01 QRSTUV90 QRSTUV90 OPQRST89 OPQRST89 MNOPQR78) KLMNOP67) IJKLMN56) GHIJKL45) EFGHIJ34 ((((BC234567 AB123456 AB123456 XYZABC34 XYZABC34 WXYZAB23) UVWXYZ12 (AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90) OPQRST89 ((AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89) MNOPQR78 ((XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89 (UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90 QRSTUV90 OPQRST89) MNOPQR78) KLMNOP67) IJKLMN56 (((AB123456 XYZABC34 XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12) STUVWX01 (XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89) MNOPQR78 ((XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89 (UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90 QRSTUV90 OPQRST89) MNOPQR78) KLMNOP67 ((WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89 (UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90 QRSTUV90 OPQRST89) MNOPQR78 (STUVWX01 QRSTUV90 QRSTUV90 OPQRST89 OPQRST89 MNOPQR78) KLMNOP67) IJKLMN56) GHIJKL45 (((XYZABC34 WXYZAB23 WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01) QRSTUV90 (WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89 (UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90 QRSTUV90 OPQRST89) MNOPQR78) KLMNOP67 ((WXYZAB23 UVWXYZ12 UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90) OPQRST89 (UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90 QRSTUV90 OPQRST89) MNOPQR78 (STUVWX01 QRSTUV90 QRSTUV90 OPQRST89 OPQRST89 MNOPQR78) KLMNOP67) IJKLMN56 ((UVWXYZ12 STUVWX01 STUVWX01 QRSTUV90 QRSTUV90 OPQRST89) MNOPQR78 (STUVWX01 QRSTUV90 QRSTUV90 OPQRST89 OPQRST89 MNOPQR78) KLMNOP67 (QRSTUV90 OPQRST89 OPQRST89 MNOPQR78 MNOPQR78 KLMNOP67) IJKLMN56) GHIJKL45) EFGHIJ34) CDEFGH23) ABCDEF12)stalin-0.11/benchmarks/fread.sc0000600017435200151030000000135106671513667015137 0ustar qobiqobi;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: fread.sc ;;; Description: FREAD benchmark ;;; Author: Richard Gabriel ;;; Created: 11-Apr-85 ;;; Modified: 11-Apr-85 20:39:09 (Bob Shaw) ;;; 24-Jul-87 (Will Clinger) ;;; 14-Jun-95 (Qobi) ;;; 31-Mar-98 (Qobi) ;;; Language: Scheme ;;; Status: Public Domain ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; FREAD -- Benchmark to read from a file. ;;; Requires the existence of FPRINT.TST which is created by FPRINT. (define (fread) (call-with-input-file "fprint.tst" (lambda (stream) (read stream)))) (do ((i 0 (+ i 1))) ((= i 1000)) (fread)) stalin-0.11/benchmarks/old-benchmark0000700017435200151030000000025507063214711016143 0ustar qobiqobi#!/bin/sh gcc -o unbuff unbuff.c ../stalin -q -On -db benchmarks-to-latex ./compile-old-benchmarks ./run-old-benchmarks ./benchmarks-to-latex mv results.tex old-results.tex stalin-0.11/benchmarks/gambit.sed0000600017435200151030000000063207244410271015450 0ustar qobiqobi1i\ (declare (r4rs-scheme)\ \ (block)\ \ (standard-bindings)\ \ (extended-bindings)\ \ (not safe)\ \ (not interrupts-enabled)) \+;;; begin Stalin+,\+;;; end Stalin+d \+;;; begin Scheme->C+,\+;;; end Scheme->C+d \+;;; begin Gambit-C+d \+;;; end Gambit-C+d \+;;; begin Bigloo+,\+;;; end Bigloo+d \+;;; begin Chez+,\+;;; end Chez+d \+;;; begin Chicken+,\+;;; end Chicken+d stalin-0.11/benchmarks/gold.sc0000600017435200151030000000560506671513667015011 0ustar qobiqobi(define (abs1 x) (if (negative? x) (- x) x)) (define (abs2 x) (if (negative? x) (- x) x)) (define (abs3 x) (if (negative? x) (- x) x)) (define (abs4 x) (if (negative? x) (- x) x)) (define (abs5 x) (if (negative? x) (- x) x)) (define (abs6 x) (if (negative? x) (- x) x)) (define (mnbrak F ax bx K) (let ((gold 1.61803399) (glimit 100.0) (tiny 1.0e-20) (sign (lambda (x y) (if (< y 0.0) (- 0.0 x) x)))) (define (loop ax fa bx fb cx fc) (if (< fb fc) (K ax fa bx fb cx fc) (let* ((r (* (- bx ax) (- fb fc))) (q (* (- bx cx) (- fb fa))) (ux (- bx (/ (- (* (- bx cx) q) (* (- bx ax) r)) (* (sign (max (abs1 (- q r)) tiny) (- q r)) 2.0)))) (uL (+ bx (* (- cx bx) glimit)))) (if (> (* (- bx ux) (- ux cx)) 0.0) (let ((fu (F ux))) (if (< fu fc) (K bx fb ux fu cx fc) (if (> fu fb) (K ax fa bx fb ux fu) (let ((vx (+ cx (* (- cx bx) gold)))) (loop bx fb cx fc vx (F vx)))))) ;; (not (> (* (- bx) (- ux cx)) 0.0)) (if (> (* (- cx ux) (- ux uL)) 0.0) (let ((fu (F ux))) (if (< fu fc) (let ((vx (+ ux (* (- ux cx) gold)))) (loop cx fc ux fu vx (F vx))) (loop bx fb cx fc ux fu))) (if (>= (* (- ux uL) (- uL cx)) 0.0) (loop bx fb cx fc uL (F uL)) (let ((vx (+ cx (* (- cx bx) gold)))) (loop bx fb cx fc vx (F vx))))))))) (let ((fa (F ax)) (fb (F bx))) (if (> fb fa) (let ((vx (+ ax (* (- ax bx) gold)))) (loop bx fb ax fa vx (F vx))) (let ((vx (+ bx (* (- bx ax) gold)))) (loop ax fa bx fb vx (F vx))))))) (define (golden F tol ax bx cx K) (let* ((gold 1.61803399) ; approximate (r (- gold 1.0)) ; exact (c (- 1.0 r)) ; exact (x1 bx) (x2 bx)) (if (> (abs2 (- cx bx)) (abs3 (- bx ax))) (set! x2 (+ bx (* c (- cx bx)))) (set! x1 (- bx (* c (- bx ax))))) (let loop ((x0 ax) (x1 x1) (f1 (F x1)) (x2 x2) (f2 (F x2)) (x3 cx)) (if (<= (abs4 (- x3 x0)) (* tol (+ (abs5 x1) (abs6 x2)))) (if (< f1 f2) (K x1 f1) (K x2 f2)) (if (< f2 f1) (let ((xn (+ (* r x2) (* c x3)))) (loop x1 x2 f2 xn (F xn) x3)) (let ((xn (+ (* r x1) (* c x0)))) (loop x0 xn (F xn) x1 f1 x2))))))) (define (sqr x) (* x x)) (define (sqr1 x) (* x x)) (define (sqr2 x) (* x x)) (define (sqr3 x) (* x x)) (define (sqr4 x) (* x x)) (define (func x) (let ((a1 1.2) (a2 2.3) (a3 3.4) (a4 4.5)) (+ (sqr1 (- x a1)) (sqr2 (- x a2)) (sqr3 (- x a3)) (sqr4 (- x a4))))) (define (g L U) (mnbrak func L U (lambda (ax fa bx fb cx fc) (golden func 1.0e-3 ax bx cx (lambda (mx fm) fm))))) (define (test) (let* ((n 1000) (eps (make-vector n 0.0)) (sum 0.0)) (do ((i 0 (+ i 1))) ((>= i n)) (vector-set! eps i (/ 1.0 (+ 2.0 i)))) (do ((i 0 (+ i 1))) ((>= i n)) (do ((j 0 (+ j 1))) ((>= j n)) (set! sum (+ sum (g (- 1.0 (vector-ref eps i)) (+ 5.0 (vector-ref eps j))))))) sum)) (begin (display (test)) (newline)) stalin-0.11/benchmarks/gold2.sc0000600017435200151030000000612406671513667015070 0ustar qobiqobi(define (abs1 x) (if (negative? x) (- x) x)) (define (abs2 x) (if (negative? x) (- x) x)) (define (abs3 x) (if (negative? x) (- x) x)) (define (abs4 x) (if (negative? x) (- x) x)) (define (abs5 x) (if (negative? x) (- x) x)) (define (abs6 x) (if (negative? x) (- x) x)) (define (e1 L) (car L)) (define (e2 L) (car (cdr L))) (define (e3 L) (car (cdr (cdr L)))) (define (e4 L) (car (cdr (cdr (cdr L))))) (define (e5 L) (car (cdr (cdr (cdr (cdr L)))))) (define (mnbrak F ax bx) (let ((gold 1.61803399) (glimit 100.0) (tiny 1.0e-20) (sign (lambda (x y) (if (< y 0.0) (- 0.0 x) x)))) (define (loop ax fa bx fb cx fc) (if (< fb fc) (list ax fa bx fb cx fc) (let* ((r (* (- bx ax) (- fb fc))) (q (* (- bx cx) (- fb fa))) (ux (- bx (/ (- (* (- bx cx) q) (* (- bx ax) r)) (* (sign (max (abs1 (- q r)) tiny) (- q r)) 2.0)))) (uL (+ bx (* (- cx bx) glimit)))) (if (> (* (- bx ux) (- ux cx)) 0.0) (let ((fu (F ux))) (if (< fu fc) (list bx fb ux fu cx fc) (if (> fu fb) (list ax fa bx fb ux fu) (let ((vx (+ cx (* (- cx bx) gold)))) (loop bx fb cx fc vx (F vx)))))) ;; (not (> (* (- bx) (- ux cx)) 0.0)) (if (> (* (- cx ux) (- ux uL)) 0.0) (let ((fu (F ux))) (if (< fu fc) (let ((vx (+ ux (* (- ux cx) gold)))) (loop cx fc ux fu vx (F vx))) (loop bx fb cx fc ux fu))) (if (>= (* (- ux uL) (- uL cx)) 0.0) (loop bx fb cx fc uL (F uL)) (let ((vx (+ cx (* (- cx bx) gold)))) (loop bx fb cx fc vx (F vx))))))))) (let ((fa (F ax)) (fb (F bx))) (if (> fb fa) (let ((vx (+ ax (* (- ax bx) gold)))) (loop bx fb ax fa vx (F vx))) (let ((vx (+ bx (* (- bx ax) gold)))) (loop ax fa bx fb vx (F vx))))))) (define (golden F tol ax bx cx) (let* ((gold 1.61803399) ; approximate (r (- gold 1.0)) ; exact (c (- 1.0 r)) ; exact (x1 bx) (x2 bx)) (if (> (abs2 (- cx bx)) (abs3 (- bx ax))) (set! x2 (+ bx (* c (- cx bx)))) (set! x1 (- bx (* c (- bx ax))))) (let loop ((x0 ax) (x1 x1) (f1 (F x1)) (x2 x2) (f2 (F x2)) (x3 cx)) (if (<= (abs4 (- x3 x0)) (* tol (+ (abs5 x1) (abs6 x2)))) (if (< f1 f2) (list x1 f1) (list x2 f2)) (if (< f2 f1) (let ((xn (+ (* r x2) (* c x3)))) (loop x1 x2 f2 xn (F xn) x3)) (let ((xn (+ (* r x1) (* c x0)))) (loop x0 xn (F xn) x1 f1 x2))))))) (define (sqr x) (* x x)) (define (sqr1 x) (* x x)) (define (sqr2 x) (* x x)) (define (sqr3 x) (* x x)) (define (sqr4 x) (* x x)) (define (func x) (let ((a1 1.2) (a2 2.3) (a3 3.4) (a4 4.5)) (+ (sqr1 (- x a1)) (sqr2 (- x a2)) (sqr3 (- x a3)) (sqr4 (- x a4))))) (define (g L U) (let* ((bracket (mnbrak func L U)) (best (golden func 1.0e-3 (e1 bracket) (e3 bracket) (e5 bracket)))) (e2 best))) (define (test) (let* ((n 1000) (eps (make-vector n 0.0)) (sum 0.0)) (do ((i 0 (+ i 1))) ((>= i n)) (vector-set! eps i (/ 1.0 (+ 2.0 i)))) (do ((i 0 (+ i 1))) ((>= i n)) (do ((j 0 (+ j 1))) ((>= j n)) (set! sum (+ sum (g (- 1.0 (vector-ref eps i)) (+ 5.0 (vector-ref eps j))))))) sum)) (begin (display (test)) (newline)) stalin-0.11/benchmarks/graphs.sc0000600017435200151030000003166507063212243015333 0ustar qobiqobi(define graphs:assert (lambda (test . info) #f)) ;;; Fold over list elements, associating to the left. (define fold (lambda (lst folder state) (graphs:assert (list? lst) lst) (graphs:assert (procedure? folder) folder) (do ((lst lst (cdr lst)) (state state (folder (car lst) state))) ((null? lst) state)))) ;;; Given the size of a vector and a procedure which ;;; sends indicies to desired vector elements, create ;;; and return the vector. (define proc->vector (lambda (size f) (graphs:assert (and (integer? size) (exact? size) (>= size 0)) size) (graphs:assert (procedure? f) f) (if (zero? size) (vector) (let ((x (make-vector size (f 0)))) (let loop ((i 1)) (if (< i size) (begin (vector-set! x i (f i)) (loop (+ i 1))))) x)))) (define vector-fold (lambda (vec folder state) (graphs:assert (vector? vec) vec) (graphs:assert (procedure? folder) folder) (let ((len (vector-length vec))) (do ((i 0 (+ i 1)) (state state (folder (vector-ref vec i) state))) ((= i len) state))))) (define vector-map (lambda (vec proc) (proc->vector (vector-length vec) (lambda (i) (proc (vector-ref vec i)))))) ;;; Given limit, return the list 0, 1, ..., limit-1. (define giota (lambda (limit) (graphs:assert (and (integer? limit) (exact? limit) (>= limit 0)) limit) (let -*- ((limit limit) (res '())) (if (zero? limit) res (let ((limit (- limit 1))) (-*- limit (cons limit res))))))) ;;; Fold over the integers [0, limit). (define gnatural-fold (lambda (limit folder state) (graphs:assert (and (integer? limit) (exact? limit) (>= limit 0)) limit) (graphs:assert (procedure? folder) folder) (do ((i 0 (+ i 1)) (state state (folder i state))) ((= i limit) state)))) ;;; Iterate over the integers [0, limit). (define gnatural-for-each (lambda (limit proc!) (graphs:assert (and (integer? limit) (exact? limit) (>= limit 0)) limit) (graphs:assert (procedure? proc!) proc!) (do ((i 0 (+ i 1))) ((= i limit)) (proc! i)))) (define natural-for-all? (lambda (limit ok?) (graphs:assert (and (integer? limit) (exact? limit) (>= limit 0)) limit) (graphs:assert (procedure? ok?) ok?) (let -*- ((i 0)) (or (= i limit) (and (ok? i) (-*- (+ i 1))))))) (define natural-there-exists? (lambda (limit ok?) (graphs:assert (and (integer? limit) (exact? limit) (>= limit 0)) limit) (graphs:assert (procedure? ok?) ok?) (let -*- ((i 0)) (and (not (= i limit)) (or (ok? i) (-*- (+ i 1))))))) (define there-exists? (lambda (lst ok?) (graphs:assert (list? lst) lst) (graphs:assert (procedure? ok?) ok?) (let -*- ((lst lst)) (and (not (null? lst)) (or (ok? (car lst)) (-*- (cdr lst))))))) ;;; Fold over the tree of permutations of a universe. ;;; Each branch (from the root) is a permutation of universe. ;;; Each node at depth d corresponds to all permutations which pick the ;;; elements spelled out on the branch from the root to that node as ;;; the first d elements. ;;; Their are two components to the state: ;;; The b-state is only a function of the branch from the root. ;;; The t-state is a function of all nodes seen so far. ;;; At each node, b-folder is called via ;;; (b-folder elem b-state t-state deeper accross) ;;; where elem is the next element of the universe picked. ;;; If b-folder can determine the result of the total tree fold at this stage, ;;; it should simply return the result. ;;; If b-folder can determine the result of folding over the sub-tree ;;; rooted at the resulting node, it should call accross via ;;; (accross new-t-state) ;;; where new-t-state is that result. ;;; Otherwise, b-folder should call deeper via ;;; (deeper new-b-state new-t-state) ;;; where new-b-state is the b-state for the new node and new-t-state is ;;; the new folded t-state. ;;; At the leaves of the tree, t-folder is called via ;;; (t-folder b-state t-state accross) ;;; If t-folder can determine the result of the total tree fold at this stage, ;;; it should simply return that result. ;;; If not, it should call accross via ;;; (accross new-t-state) ;;; Note, fold-over-perm-tree always calls b-folder in depth-first order. ;;; I.e., when b-folder is called at depth d, the branch leading to that ;;; node is the most recent calls to b-folder at all the depths less than d. ;;; This is a gross efficiency hack so that b-folder can use mutation to ;;; keep the current branch. (define fold-over-perm-tree (lambda (universe b-folder b-state t-folder t-state) (graphs:assert (list? universe) universe) (graphs:assert (procedure? b-folder) b-folder) (graphs:assert (procedure? t-folder) t-folder) (let -*- ((universe universe) (b-state b-state) (t-state t-state) (accross (lambda (final-t-state) final-t-state))) (if (null? universe) (t-folder b-state t-state accross) (let -**- ((in universe) (out '()) (t-state t-state)) (let* ((first (car in)) (rest (cdr in)) (accross (if (null? rest) accross (lambda (new-t-state) (-**- rest (cons first out) new-t-state))))) (b-folder first b-state t-state (lambda (new-b-state new-t-state) (-*- (fold out cons rest) new-b-state new-t-state accross)) accross))))))) ;;; A directed graph is stored as a connection matrix (vector-of-vectors) ;;; where the first index is the `from' vertex and the second is the `to' ;;; vertex. Each entry is a bool indicating if the edge exists. ;;; The diagonal of the matrix is never examined. ;;; Make-minimal? returns a procedure which tests if a labelling ;;; of the verticies is such that the matrix is minimal. ;;; If it is, then the procedure returns the result of folding over ;;; the elements of the automoriphism group. If not, it returns #f. ;;; The folding is done by calling folder via ;;; (folder perm state accross) ;;; If the folder wants to continue, it should call accross via ;;; (accross new-state) ;;; If it just wants the entire minimal? procedure to return something, ;;; it should return that. ;;; The ordering used is lexicographic (with #t > #f) and entries ;;; are examined in the following order: ;;; 1->0, 0->1 ;;; ;;; 2->0, 0->2 ;;; 2->1, 1->2 ;;; ;;; 3->0, 0->3 ;;; 3->1, 1->3 ;;; 3->2, 2->3 ;;; ... (define make-minimal? (lambda (max-size) (graphs:assert (and (integer? max-size) (exact? max-size) (>= max-size 0)) max-size) (let ((iotas (proc->vector (+ max-size 1) giota)) (perm (make-vector max-size 0))) (lambda (size graph folder state) (graphs:assert (and (integer? size) (exact? size) (<= 0 size max-size)) size max-size) (graphs:assert (vector? graph) graph) (graphs:assert (procedure? folder) folder) (fold-over-perm-tree (vector-ref iotas size) (lambda (perm-x x state deeper accross) (case (cmp-next-vertex graph perm x perm-x) ((less) #f) ((equal) (vector-set! perm x perm-x) (deeper (+ x 1) state)) ((more) (accross state)) (else (graphs:assert #f)))) 0 (lambda (leaf-depth state accross) (graphs:assert (eqv? leaf-depth size) leaf-depth size) (folder perm state accross)) state))))) ;;; Given a graph, a partial permutation vector, the next input and the next ;;; output, return 'less, 'equal or 'more depending on the lexicographic ;;; comparison between the permuted and un-permuted graph. (define cmp-next-vertex (lambda (graph perm x perm-x) (let ((from-x (vector-ref graph x)) (from-perm-x (vector-ref graph perm-x))) (let -*- ((y 0)) (if (= x y) 'equal (let ((x->y? (vector-ref from-x y)) (perm-y (vector-ref perm y))) (cond ((eq? x->y? (vector-ref from-perm-x perm-y)) (let ((y->x? (vector-ref (vector-ref graph y) x))) (cond ((eq? y->x? (vector-ref (vector-ref graph perm-y) perm-x)) (-*- (+ y 1))) (y->x? 'less) (else 'more)))) (x->y? 'less) (else 'more)))))))) ;;; Fold over rooted directed graphs with bounded out-degree. ;;; Size is the number of verticies (including the root). Max-out is the ;;; maximum out-degree for any vertex. Folder is called via ;;; (folder edges state) ;;; where edges is a list of length size. The ith element of the list is ;;; a list of the verticies j for which there is an edge from i to j. ;;; The last vertex is the root. (define fold-over-rdg (lambda (size max-out folder state) (graphs:assert (and (exact? size) (integer? size) (> size 0)) size) (graphs:assert (and (exact? max-out) (integer? max-out) (>= max-out 0)) max-out) (graphs:assert (procedure? folder) folder) (let* ((root (- size 1)) (edge? (proc->vector size (lambda (from) (make-vector size #f)))) (edges (make-vector size '())) (out-degrees (make-vector size 0)) (minimal-folder (make-minimal? root)) (non-root-minimal? (let ((cont (lambda (perm state accross) (graphs:assert (eq? state #t) state) (accross #t)))) (lambda (size) (minimal-folder size edge? cont #t)))) (root-minimal? (let ((cont (lambda (perm state accross) (graphs:assert (eq? state #t) state) (case (cmp-next-vertex edge? perm root root) ((less) #f) ((equal more) (accross #t)) (else (graphs:assert #f)))))) (lambda () (minimal-folder root edge? cont #t))))) (let -*- ((vertex 0) (state state)) (cond ((not (non-root-minimal? vertex)) state) ((= vertex root) (graphs:assert (begin (gnatural-for-each root (lambda (v) (graphs:assert (= (vector-ref out-degrees v) (length (vector-ref edges v))) v (vector-ref out-degrees v) (vector-ref edges v)))) #t)) (let ((reach? (make-reach? root edges)) (from-root (vector-ref edge? root))) (let -*- ((v 0) (outs 0) (efr '()) (efrr '()) (state state)) (cond ((not (or (= v root) (= outs max-out))) (vector-set! from-root v #t) (let ((state (-*- (+ v 1) (+ outs 1) (cons v efr) (cons (vector-ref reach? v) efrr) state))) (vector-set! from-root v #f) (-*- (+ v 1) outs efr efrr state))) ((and (natural-for-all? root (lambda (v) (there-exists? efrr (lambda (r) (vector-ref r v))))) (root-minimal?)) (vector-set! edges root efr) (folder (proc->vector size (lambda (i) (vector-ref edges i))) state)) (else state))))) (else (let ((from-vertex (vector-ref edge? vertex))) (let -**- ((sv 0) (outs 0) (state state)) (if (= sv vertex) (begin (vector-set! out-degrees vertex outs) (-*- (+ vertex 1) state)) (let* ((state ;; no sv->vertex, no vertex->sv (-**- (+ sv 1) outs state)) (from-sv (vector-ref edge? sv)) (sv-out (vector-ref out-degrees sv)) (state (if (= sv-out max-out) state (begin (vector-set! edges sv (cons vertex (vector-ref edges sv))) (vector-set! from-sv vertex #t) (vector-set! out-degrees sv (+ sv-out 1)) (let* ((state ;; sv->vertex, no vertex->sv (-**- (+ sv 1) outs state)) (state (if (= outs max-out) state (begin (vector-set! from-vertex sv #t) (vector-set! edges vertex (cons sv (vector-ref edges vertex))) (let ((state ;; sv->vertex, vertex->sv (-**- (+ sv 1) (+ outs 1) state))) (vector-set! edges vertex (cdr (vector-ref edges vertex))) (vector-set! from-vertex sv #f) state))))) (vector-set! out-degrees sv sv-out) (vector-set! from-sv vertex #f) (vector-set! edges sv (cdr (vector-ref edges sv))) state))))) (if (= outs max-out) state (begin (vector-set! edges vertex (cons sv (vector-ref edges vertex))) (vector-set! from-vertex sv #t) (let ((state ;; no sv->vertex, vertex->sv (-**- (+ sv 1) (+ outs 1) state))) (vector-set! from-vertex sv #f) (vector-set! edges vertex (cdr (vector-ref edges vertex))) state))))))))))))) ;;; Given a vector which maps vertex to out-going-edge list, ;;; return a vector which gives reachability. (define make-reach? (lambda (size vertex->out) (let ((res (proc->vector size (lambda (v) (let ((from-v (make-vector size #f))) (vector-set! from-v v #t) (for-each (lambda (x) (vector-set! from-v x #t)) (vector-ref vertex->out v)) from-v))))) (gnatural-for-each size (lambda (m) (let ((from-m (vector-ref res m))) (gnatural-for-each size (lambda (f) (let ((from-f (vector-ref res f))) (if (vector-ref from-f m) (gnatural-for-each size (lambda (t) (if (vector-ref from-m t) (vector-set! from-f t #t))))))))))) res))) ;;; Produces all directed graphs with N verticies, distinguished root, ;;; and out-degree bounded by 2, upto isomorphism (there are 44). (let ((n 7)) (fold-over-rdg n 2 cons '())) stalin-0.11/benchmarks/hello.sc0000600017435200151030000000004306672006104015136 0ustar qobiqobi(display "Hello World!") (newline) stalin-0.11/benchmarks/integ.sc0000600017435200151030000000154106671513667015165 0ustar qobiqobi(define (integrate-1D L U F) (let ((D (/ (- U L) 8.0))) (* (+ (* (F L) 0.5) (F (+ L D)) (F (+ L (* 2.0 D))) (F (+ L (* 3.0 D))) (F (+ L (* 4.0 D))) (F (- U (* 3.0 D))) (F (- U (* 2.0 D))) (F (- U D)) (* (F U) 0.5)) D))) (define (integrate-2D L1 U1 L2 U2 F) (integrate-1D L2 U2 (lambda (y) (integrate-1D L1 U1 (lambda (x) (F x y))) ))) (define (zark U V) (integrate-2D 0.0 U 0.0 V (lambda (X Y) (* X Y)) )) (define (r-total N) (do ((I 1 (+ I 1)) (Sum 0.0 (+ Sum (zark (* I 1.0) (* I 2.0))))) ((> I N) Sum))) (define (i-total N) (do ((I 1 (+ I 1)) (Sum 0.0 (+ Sum (let ((I2 (* (* I I) 1.0))) (* I2 I2))))) ((> I N) Sum))) (define (error-sum-of-squares N) (do ((I 1 (+ I 1)) (Sum 0.0 (+ Sum (let ((E (- (r-total I) (i-total I)))) (* E E))))) ((> I N) Sum))) (begin (display (error-sum-of-squares 1000)) (newline)) stalin-0.11/benchmarks/integ2.sc0000600017435200151030000002116606671513667015254 0ustar qobiqobi(define (integrate-1Da L U F1 F2 F3 F4 F5 F6 F7 F8 F9) (let ((D (/ (- U L) 8.0))) (* (+ (* (F1 L) 0.5) (F2 (+ L D)) (F3 (+ L (* 2.0 D))) (F4 (+ L (* 3.0 D))) (F5 (+ L (* 4.0 D))) (F6 (- U (* 3.0 D))) (F7 (- U (* 2.0 D))) (F8 (- U D)) (* (F9 U) 0.5)) D))) (define (integrate-1Db1 L U F1 F2 F3 F4 F5 F6 F7 F8 F9) (let ((D (/ (- U L) 8.0))) (* (+ (* (F1 L) 0.5) (F2 (+ L D)) (F3 (+ L (* 2.0 D))) (F4 (+ L (* 3.0 D))) (F5 (+ L (* 4.0 D))) (F6 (- U (* 3.0 D))) (F7 (- U (* 2.0 D))) (F8 (- U D)) (* (F9 U) 0.5)) D))) (define (integrate-1Db2 L U F1 F2 F3 F4 F5 F6 F7 F8 F9) (let ((D (/ (- U L) 8.0))) (* (+ (* (F1 L) 0.5) (F2 (+ L D)) (F3 (+ L (* 2.0 D))) (F4 (+ L (* 3.0 D))) (F5 (+ L (* 4.0 D))) (F6 (- U (* 3.0 D))) (F7 (- U (* 2.0 D))) (F8 (- U D)) (* (F9 U) 0.5)) D))) (define (integrate-1Db3 L U F1 F2 F3 F4 F5 F6 F7 F8 F9) (let ((D (/ (- U L) 8.0))) (* (+ (* (F1 L) 0.5) (F2 (+ L D)) (F3 (+ L (* 2.0 D))) (F4 (+ L (* 3.0 D))) (F5 (+ L (* 4.0 D))) (F6 (- U (* 3.0 D))) (F7 (- U (* 2.0 D))) (F8 (- U D)) (* (F9 U) 0.5)) D))) (define (integrate-1Db4 L U F1 F2 F3 F4 F5 F6 F7 F8 F9) (let ((D (/ (- U L) 8.0))) (* (+ (* (F1 L) 0.5) (F2 (+ L D)) (F3 (+ L (* 2.0 D))) (F4 (+ L (* 3.0 D))) (F5 (+ L (* 4.0 D))) (F6 (- U (* 3.0 D))) (F7 (- U (* 2.0 D))) (F8 (- U D)) (* (F9 U) 0.5)) D))) (define (integrate-1Db5 L U F1 F2 F3 F4 F5 F6 F7 F8 F9) (let ((D (/ (- U L) 8.0))) (* (+ (* (F1 L) 0.5) (F2 (+ L D)) (F3 (+ L (* 2.0 D))) (F4 (+ L (* 3.0 D))) (F5 (+ L (* 4.0 D))) (F6 (- U (* 3.0 D))) (F7 (- U (* 2.0 D))) (F8 (- U D)) (* (F9 U) 0.5)) D))) (define (integrate-1Db6 L U F1 F2 F3 F4 F5 F6 F7 F8 F9) (let ((D (/ (- U L) 8.0))) (* (+ (* (F1 L) 0.5) (F2 (+ L D)) (F3 (+ L (* 2.0 D))) (F4 (+ L (* 3.0 D))) (F5 (+ L (* 4.0 D))) (F6 (- U (* 3.0 D))) (F7 (- U (* 2.0 D))) (F8 (- U D)) (* (F9 U) 0.5)) D))) (define (integrate-1Db7 L U F1 F2 F3 F4 F5 F6 F7 F8 F9) (let ((D (/ (- U L) 8.0))) (* (+ (* (F1 L) 0.5) (F2 (+ L D)) (F3 (+ L (* 2.0 D))) (F4 (+ L (* 3.0 D))) (F5 (+ L (* 4.0 D))) (F6 (- U (* 3.0 D))) (F7 (- U (* 2.0 D))) (F8 (- U D)) (* (F9 U) 0.5)) D))) (define (integrate-1Db8 L U F1 F2 F3 F4 F5 F6 F7 F8 F9) (let ((D (/ (- U L) 8.0))) (* (+ (* (F1 L) 0.5) (F2 (+ L D)) (F3 (+ L (* 2.0 D))) (F4 (+ L (* 3.0 D))) (F5 (+ L (* 4.0 D))) (F6 (- U (* 3.0 D))) (F7 (- U (* 2.0 D))) (F8 (- U D)) (* (F9 U) 0.5)) D))) (define (integrate-1Db9 L U F1 F2 F3 F4 F5 F6 F7 F8 F9) (let ((D (/ (- U L) 8.0))) (* (+ (* (F1 L) 0.5) (F2 (+ L D)) (F3 (+ L (* 2.0 D))) (F4 (+ L (* 3.0 D))) (F5 (+ L (* 4.0 D))) (F6 (- U (* 3.0 D))) (F7 (- U (* 2.0 D))) (F8 (- U D)) (* (F9 U) 0.5)) D))) (define (integrate-2D L1 U1 L2 U2 F11 F12 F13 F14 F15 F16 F17 F18 F19 F21 F22 F23 F24 F25 F26 F27 F28 F29 F31 F32 F33 F34 F35 F36 F37 F38 F39 F41 F42 F43 F44 F45 F46 F47 F48 F49 F51 F52 F53 F54 F55 F56 F57 F58 F59 F61 F62 F63 F64 F65 F66 F67 F68 F69 F71 F72 F73 F74 F75 F76 F77 F78 F79 F81 F82 F83 F84 F85 F86 F87 F88 F89 F91 F92 F93 F94 F95 F96 F97 F98 F99) (integrate-1Da L2 U2 (lambda (y) (integrate-1Db1 L1 U1 (lambda (x) (F11 x y)) (lambda (x) (F12 x y)) (lambda (x) (F13 x y)) (lambda (x) (F14 x y)) (lambda (x) (F15 x y)) (lambda (x) (F16 x y)) (lambda (x) (F17 x y)) (lambda (x) (F18 x y)) (lambda (x) (F19 x y)))) (lambda (y) (integrate-1Db2 L1 U1 (lambda (x) (F21 x y)) (lambda (x) (F22 x y)) (lambda (x) (F23 x y)) (lambda (x) (F24 x y)) (lambda (x) (F25 x y)) (lambda (x) (F26 x y)) (lambda (x) (F27 x y)) (lambda (x) (F28 x y)) (lambda (x) (F29 x y)))) (lambda (y) (integrate-1Db3 L1 U1 (lambda (x) (F31 x y)) (lambda (x) (F32 x y)) (lambda (x) (F33 x y)) (lambda (x) (F34 x y)) (lambda (x) (F35 x y)) (lambda (x) (F36 x y)) (lambda (x) (F37 x y)) (lambda (x) (F38 x y)) (lambda (x) (F39 x y)))) (lambda (y) (integrate-1Db4 L1 U1 (lambda (x) (F41 x y)) (lambda (x) (F42 x y)) (lambda (x) (F43 x y)) (lambda (x) (F44 x y)) (lambda (x) (F45 x y)) (lambda (x) (F46 x y)) (lambda (x) (F47 x y)) (lambda (x) (F48 x y)) (lambda (x) (F49 x y)))) (lambda (y) (integrate-1Db5 L1 U1 (lambda (x) (F51 x y)) (lambda (x) (F52 x y)) (lambda (x) (F53 x y)) (lambda (x) (F54 x y)) (lambda (x) (F55 x y)) (lambda (x) (F56 x y)) (lambda (x) (F57 x y)) (lambda (x) (F58 x y)) (lambda (x) (F59 x y)))) (lambda (y) (integrate-1Db6 L1 U1 (lambda (x) (F61 x y)) (lambda (x) (F62 x y)) (lambda (x) (F63 x y)) (lambda (x) (F64 x y)) (lambda (x) (F65 x y)) (lambda (x) (F66 x y)) (lambda (x) (F67 x y)) (lambda (x) (F68 x y)) (lambda (x) (F69 x y)))) (lambda (y) (integrate-1Db7 L1 U1 (lambda (x) (F71 x y)) (lambda (x) (F72 x y)) (lambda (x) (F73 x y)) (lambda (x) (F74 x y)) (lambda (x) (F75 x y)) (lambda (x) (F76 x y)) (lambda (x) (F77 x y)) (lambda (x) (F78 x y)) (lambda (x) (F79 x y)))) (lambda (y) (integrate-1Db8 L1 U1 (lambda (x) (F81 x y)) (lambda (x) (F82 x y)) (lambda (x) (F83 x y)) (lambda (x) (F84 x y)) (lambda (x) (F85 x y)) (lambda (x) (F86 x y)) (lambda (x) (F87 x y)) (lambda (x) (F88 x y)) (lambda (x) (F89 x y)))) (lambda (y) (integrate-1Db9 L1 U1 (lambda (x) (F91 x y)) (lambda (x) (F92 x y)) (lambda (x) (F93 x y)) (lambda (x) (F94 x y)) (lambda (x) (F95 x y)) (lambda (x) (F96 x y)) (lambda (x) (F97 x y)) (lambda (x) (F98 x y)) (lambda (x) (F99 x y)))))) (define (zark U V) (integrate-2D 0.0 U 0.0 V (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)) (lambda (X Y) (* X Y)))) (define (r-total N) (do ((I 1 (+ I 1)) (Sum 0.0 (+ Sum (zark (* I 1.0) (* I 2.0))))) ((> I N) Sum))) (define (i-total N) (do ((I 1 (+ I 1)) (Sum 0.0 (+ Sum (let ((I2 (* (* I I) 1.0))) (* I2 I2))))) ((> I N) Sum))) (define (error-sum-of-squares N) (do ((I 1 (+ I 1)) (Sum 0.0 (+ Sum (let ((E (- (r-total I) (i-total I)))) (* E E))))) ((> I N) Sum))) (begin (display (error-sum-of-squares 1000)) (newline)) stalin-0.11/benchmarks/lattice.sc0000600017435200151030000001062207244422212015462 0ustar qobiqobi;;; begin Scheme->C (define (panic s) (error 'panic s)) ;;; end Scheme->C ;;; begin Gambit-C (define (panic s) (error s)) ;;; end Gambit-C ;;; begin Bigloo (define (panic s) (error s 'panic 'panic)) ;;; end Bigloo ;;; begin Chez (define (panic s) (error 'panic s)) ;;; end Chez ;;; begin Chicken (define (panic s) (error s)) ;;; end Chicken ;;; Given a comparison routine that returns one of ;;; less ;;; more ;;; equal ;;; uncomparable ;;; return a new comparison routine that applies to sequences. (define lexico (lambda (base) (define lex-fixed (lambda (fixed lhs rhs) (define check (lambda (lhs rhs) (if (null? lhs) fixed (let ((probe (base (car lhs) (car rhs)))) (if (or (eq? probe 'equal) (eq? probe fixed)) (check (cdr lhs) (cdr rhs)) 'uncomparable))))) (check lhs rhs))) (define lex-first (lambda (lhs rhs) (if (null? lhs) 'equal (let ((probe (base (car lhs) (car rhs)))) (case probe ((less more) (lex-fixed probe (cdr lhs) (cdr rhs))) ((equal) (lex-first (cdr lhs) (cdr rhs))) ((uncomparable) 'uncomparable)))))) lex-first)) (define (make-lattice elem-list cmp-func) (cons elem-list cmp-func)) (define lattice->elements car) (define lattice->cmp cdr) ;;; Select elements of a list which pass some test. (define zulu-select (lambda (test lst) (define select-a (lambda (ac lst) (if (null? lst) (reverse! ac) (select-a (let ((head (car lst))) (if (test head) (cons head ac) ac)) (cdr lst))))) (select-a '() lst))) (define reverse! (letrec ((rotate (lambda (fo fum) (let ((next (cdr fo))) (set-cdr! fo fum) (if (null? next) fo (rotate next fo)))))) (lambda (lst) (if (null? lst) '() (rotate lst '()))))) ;;; Select elements of a list which pass some test and map a function ;;; over the result. Note, only efficiency prevents this from being the ;;; composition of select and map. (define select-map (lambda (test func lst) (define select-a (lambda (ac lst) (if (null? lst) (reverse! ac) (select-a (let ((head (car lst))) (if (test head) (cons (func head) ac) ac)) (cdr lst))))) (select-a '() lst))) ;;; This version of map-and tail-recurses on the last test. (define map-and (lambda (proc lst) (if (null? lst) #T (letrec ((drudge (lambda (lst) (let ((rest (cdr lst))) (if (null? rest) (proc (car lst)) (and (proc (car lst)) (drudge rest))))))) (drudge lst))))) (define (maps-1 source target pas new) (let ((scmp (lattice->cmp source)) (tcmp (lattice->cmp target))) (let ((less (select-map (lambda (p) (eq? 'less (scmp (car p) new))) cdr pas)) (more (select-map (lambda (p) (eq? 'more (scmp (car p) new))) cdr pas))) (zulu-select (lambda (t) (and (map-and (lambda (t2) (memq (tcmp t2 t) '(less equal))) less) (map-and (lambda (t2) (memq (tcmp t2 t) '(more equal))) more))) (lattice->elements target))))) (define (maps-rest source target pas rest to-1 to-collect) (if (null? rest) (to-1 pas) (let ((next (car rest)) (rest (cdr rest))) (to-collect (map (lambda (x) (maps-rest source target (cons (cons next x) pas) rest to-1 to-collect)) (maps-1 source target pas next)))))) (define (maps source target) (make-lattice (maps-rest source target '() (lattice->elements source) (lambda (x) (list (map cdr x))) (lambda (x) (let loop ((x x)) (if (null? x) '() (append (car x) (loop (cdr x))))))) (lexico (lattice->cmp target)))) (define print-frequency 10000) (define (count-maps source target) (let ((count 0)) (maps-rest source target '() (lattice->elements source) (lambda (x) (set! count (+ count 1)) (if (= 0 (remainder count print-frequency)) (begin #f)) 1) (lambda (x) (let loop ((x x) (c 0)) (if (null? x) c (loop (cdr x) (+ (car x) c)))))))) (do ((i 0 (+ i 1))) ((>= i 10)) (let* ((l2 (make-lattice '(low high) (lambda (lhs rhs) (case lhs ((low) (case rhs ((low) 'equal) ((high) 'less) (else (panic "base")))) ((high) (case rhs ((low) 'more) ((high) 'equal) (else (panic "base")))) (else (panic "base")))))) (l3 (maps l2 l2)) (l4 (maps l3 l3))) (count-maps l2 l2) (count-maps l3 l3) (count-maps l2 l3) (count-maps l3 l2) (count-maps l4 l4))) stalin-0.11/benchmarks/make-clean0000700017435200151030000000050707244426042015435 0ustar qobiqobi#!/bin/sh rm -f core rm -f *~ rm -f *-{stalin,s2c,gambit,bigloo,chez,chicken}{,_.c,.c,.db,.sc,.scm,.ss,.o} rm -f {hello,xhello,define-application-example}{,.c,.db,.o} rm -f {benchmarks-to-latex,bcl-to-latex}{,.c,.db,.o} rm -f *.results rm -f {old-results,fdlcc-results,bcl}.{ps,aux,log,dvi} rm -f unbuff rm -f pick-up-flow.pgm stalin-0.11/benchmarks/make-hello0000700017435200151030000000023506747102665015465 0ustar qobiqobi#!/bin/sh ulimit -s unlimited ulimit -c 0 ../stalin -d0 -d1 -d5 -d6 -On\ -copt -O2 -copt -fomit-frame-pointer -copt -Wall -copt -freg-struct-return\ hello stalin-0.11/benchmarks/make-xhello0000700017435200151030000000030606753361242015647 0ustar qobiqobi#!/bin/sh ulimit -s unlimited ulimit -c 0 ../stalin -d0 -d1 -d5 -d6 -On -q\ -copt -O2 -copt -fomit-frame-pointer -copt -Wall -copt -freg-struct-return\ -copt -L/usr/X11R6/lib -copt -lX11\ xhello stalin-0.11/benchmarks/make-define-application-example0000700017435200151030000000035607104074444021541 0ustar qobiqobi#!/bin/sh ulimit -s unlimited ulimit -c 0 ../stalin -d0 -d1 -d5 -d6 -On -q -clone-size-limit 0\ -copt -O2 -copt -fomit-frame-pointer -copt -Wall -copt -freg-struct-return\ -copt -L/usr/X11R6/lib -copt -lX11\ define-application-example stalin-0.11/benchmarks/matrix.sc0000600017435200151030000003727407063211716015361 0ustar qobiqobi(define (run-benchmark name count run ok?) (if (not (ok? (run-bench name count run ok?))) (begin (display "*** wrong result ***") (newline)) (begin (display "*** right result ***") (newline)))) (define (run-bench name count run ok?) (let loop ((i 0) (result (list 'undefined))) (if (< i count) (loop (+ i 1) (run)) result))) (define (fatal-error . args) (for-each display args) (newline)) ;;; MATRIX -- Obtained from Andrew Wright. ;;; Chez-Scheme compatibility stuff: (define (box x) (cons x '())) (define (unbox x) (car x)) (define (set-box! x y) (set-car! x y)) ;;; Test that a matrix with entries in {+1, -1} is maximal among the matricies ;;; obtainable by ;;; re-ordering the rows ;;; re-ordering the columns ;;; negating any subset of the columns ;;; negating any subset of the rows ;;; Where we compare two matricies by lexicographically comparing the first ;;; row, then the next to last, etc., and we compare a row by lexicographically ;;; comparing the first entry, the second entry, etc., and we compare two ;;; entries by +1 > -1. ;;; Note, this scheme obeys the useful fact that if (append mat1 mat2) is ;;; maximal, then so is mat1. Thus, we can build up maximal matricies ;;; row by row. ;;; ;;; Once you have chosen the row re-ordering so that you know which row goes ;;; last, the set of columns to negate is fixed (since the last row must be ;;; all +1's). ;;; ;;; Note, the column ordering is really totally determined as follows: ;;; all columns for which the second row is +1 must come before all ;;; columns for which the second row is -1. ;;; among columns for which the second row is +1, all columns for which ;;; the third row is +1 come before those for which the third is ;;; -1, and similarly for columns in which the second row is -1. ;;; etc ;;; Thus, each succeeding row sorts columns withing refinings equivalence ;;; classes. ;;; ;;; Maximal? assumes that mat has atleast one row, and that the first row ;;; is all +1's. (define maximal? (lambda (mat) (let pick-first-row ((first-row-perm (gen-perms mat))) (if first-row-perm (and (zunda first-row-perm mat) (pick-first-row (first-row-perm 'brother))) #t)))) (define zunda (lambda (first-row-perm mat) (let* ((first-row (first-row-perm 'now)) (number-of-cols (length first-row)) (make-row->func (lambda (if-equal if-different) (lambda (row) (let ((vec (make-vector number-of-cols))) (do ((i 0 (+ i 1)) (first first-row (cdr first)) (row row (cdr row))) ((= i number-of-cols)) (vector-set! vec i (if (= (car first) (car row)) if-equal if-different))) (lambda (i) (vector-ref vec i)))))) (mat (cdr mat))) (zebra (first-row-perm 'child) (make-row->func 1 -1) (make-row->func -1 1) mat number-of-cols)))) (define zebra (lambda (row-perm row->func+ row->func- mat number-of-cols) (let -*- ((row-perm row-perm) (mat mat) (partitions (list (miota number-of-cols)))) (or (not row-perm) (and (zulu (car mat) (row->func+ (row-perm 'now)) partitions (lambda (new-partitions) (-*- (row-perm 'child) (cdr mat) new-partitions))) (zulu (car mat) (row->func- (row-perm 'now)) partitions (lambda (new-partitions) (-*- (row-perm 'child) (cdr mat) new-partitions))) (let ((new-row-perm (row-perm 'brother))) (or (not new-row-perm) (-*- new-row-perm mat partitions)))))))) (define zulu (let ((cons-if-not-null (lambda (lhs rhs) (if (null? lhs) rhs (cons lhs rhs))))) (lambda (old-row new-row-func partitions equal-cont) (let -*- ((p-in partitions) (old-row old-row) (rev-p-out '())) (let -split- ((partition (car p-in)) (old-row old-row) (plus '()) (minus '())) (if (null? partition) (let -minus- ((old-row old-row) (m minus)) (if (null? m) (let ((rev-p-out (cons-if-not-null minus (cons-if-not-null plus rev-p-out))) (p-in (cdr p-in))) (if (null? p-in) (equal-cont (reverse rev-p-out)) (-*- p-in old-row rev-p-out))) (or (= 1 (car old-row)) (-minus- (cdr old-row) (cdr m))))) (let ((next (car partition))) (case (new-row-func next) ((1) (and (= 1 (car old-row)) (-split- (cdr partition) (cdr old-row) (cons next plus) minus))) ((-1) (-split- (cdr partition) old-row plus (cons next minus))))))))))) (define all? (lambda (ok? lst) (let -*- ((lst lst)) (or (null? lst) (and (ok? (car lst)) (-*- (cdr lst))))))) (define gen-perms (lambda (objects) (let -*- ((zulu-future objects) (past '())) (if (null? zulu-future) #f (lambda (msg) (case msg ((now) (car zulu-future)) ((brother) (-*- (cdr zulu-future) (cons (car zulu-future) past))) ((child) (gen-perms (fold past cons (cdr zulu-future)))) ((puke) (cons (car zulu-future) (fold past cons (cdr zulu-future)))) (else (fatal-error gen-perms "Bad msg: ~a" msg)))))))) (define fold (lambda (lst folder state) (let -*- ((lst lst) (state state)) (if (null? lst) state (-*- (cdr lst) (folder (car lst) state)))))) (define miota (lambda (len) (let -*- ((i 0)) (if (= i len) '() (cons i (-*- (+ i 1))))))) (define proc->vector (lambda (size proc) (let ((res (make-vector size))) (do ((i 0 (+ i 1))) ((= i size)) (vector-set! res i (proc i))) res))) ;;; Given a prime number P, return a procedure which, given a `maker' ;;; procedure, calls it on the operations for the field Z/PZ. (define make-modular (lambda (modulus) (let* ((reduce (lambda (x) (modulo x modulus))) (coef-zero? (lambda (x) (zero? (reduce x)))) (coef-+ (lambda (x y) (reduce (+ x y)))) (coef-negate (lambda (x) (reduce (- x)))) (coef-* (lambda (x y) (reduce (* x y)))) (coef-recip (let ((inverses (proc->vector (- modulus 1) (lambda (i) (extended-gcd (+ i 1) modulus (lambda (gcd inverse ignore) inverse)))))) ; Coef-recip. (lambda (x) (let ((x (reduce x))) (vector-ref inverses (- x 1))))))) (lambda (maker) (maker 0 ; coef-zero 1 ; coef-one coef-zero? coef-+ coef-negate coef-* coef-recip))))) ;;; Extended Euclidean algorithm. ;;; (extended-gcd a b cont) computes the gcd of a and b, and expresses it ;;; as a linear combination of a and b. It returns calling cont via ;;; (cont gcd a-coef b-coef) ;;; where gcd is the GCD and is equal to a-coef * a + b-coef * b. (define extended-gcd (let ((n->sgn/abs (lambda (x cont) (if (>= x 0) (cont 1 x) (cons -1 (- x)))))) (lambda (a b cont) (n->sgn/abs a (lambda (p-a p) (n->sgn/abs b (lambda (q-b q) (let -*- ((p p) (p-a p-a) (p-b 0) (q q) (q-a 0) (q-b q-b)) (if (zero? q) (cont p p-a p-b) (let ((mult (quotient p q))) (-*- q q-a q-b (- p (* mult q)) (- p-a (* mult q-a)) (- p-b (* mult q-b))))))))))))) ;;; Given elements and operations on the base field, return a procedure which ;;; computes the row-reduced version of a matrix over that field. The result ;;; is a list of rows where the first non-zero entry in each row is a 1 (in ;;; the coefficient field) and occurs to the right of all the leading non-zero ;;; entries of previous rows. In particular, the number of rows is the rank ;;; of the original matrix, and they have the same row-space. ;;; The items related to the base field which are needed are: ;;; coef-zero additive identity ;;; coef-one multiplicative identity ;;; coef-zero? test for additive identity ;;; coef-+ addition (two args) ;;; coef-negate additive inverse ;;; coef-* multiplication (two args) ;;; coef-recip multiplicative inverse ;;; Note, matricies are stored as lists of rows (i.e., lists of lists). (define make-row-reduce (lambda (coef-zero coef-one coef-zero? coef-+ coef-negate coef-* coef-recip) (lambda (mat) (let -*- ((mat mat)) (if (or (null? mat) (null? (car mat))) '() (let -**- ((in mat) (out '())) (if (null? in) (map (lambda (x) (cons coef-zero x)) (-*- out)) (let* ((prow (car in)) (pivot (car prow)) (prest (cdr prow)) (in (cdr in))) (if (coef-zero? pivot) (-**- in (cons prest out)) (let ((zap-row (map (let ((mult (coef-recip pivot))) (lambda (x) (coef-* mult x))) prest))) (cons (cons coef-one zap-row) (map (lambda (x) (cons coef-zero x)) (-*- (fold in (lambda (row mat) (cons (let ((first-col (car row)) (rest-row (cdr row))) (if (coef-zero? first-col) rest-row (map (let ((mult (coef-negate first-col))) (lambda (f z) (coef-+ f (coef-* mult z)))) rest-row zap-row))) mat)) out)))))))))))))) ;;; Given elements and operations on the base field, return a procedure which ;;; when given a matrix and a vector tests to see if the vector is in the ;;; row-space of the matrix. This returned function is curried. ;;; The items related to the base field which are needed are: ;;; coef-zero additive identity ;;; coef-one multiplicative identity ;;; coef-zero? test for additive identity ;;; coef-+ addition (two args) ;;; coef-negate additive inverse ;;; coef-* multiplication (two args) ;;; coef-recip multiplicative inverse ;;; Note, matricies are stored as lists of rows (i.e., lists of lists). (define make-in-row-space? (lambda (coef-zero coef-one coef-zero? coef-+ coef-negate coef-* coef-recip) (let ((row-reduce (make-row-reduce coef-zero coef-one coef-zero? coef-+ coef-negate coef-* coef-recip))) (lambda (mat) (let ((mat (row-reduce mat))) (lambda (row) (let -*- ((row row) (mat mat)) (if (null? row) #t (let ((r-first (car row)) (r-rest (cdr row))) (cond ((coef-zero? r-first) (-*- r-rest (map cdr (if (or (null? mat) (coef-zero? (caar mat))) mat (cdr mat))))) ((null? mat) #f) (else (let* ((zap-row (car mat)) (z-first (car zap-row)) (z-rest (cdr zap-row)) (mat (cdr mat))) (if (coef-zero? z-first) #f (-*- (map (let ((mult (coef-negate r-first))) (lambda (r z) (coef-+ r (coef-* mult z)))) r-rest z-rest) (map cdr mat))))))))))))))) ;;; Given a prime number, return a procedure which takes integer matricies ;;; and returns their row-reduced form, modulo the prime. (define make-modular-row-reduce (lambda (modulus) ((make-modular modulus) make-row-reduce))) (define make-modular-in-row-space? (lambda (modulus) ((make-modular modulus) make-in-row-space?))) ;;; Usual utilities. ;;; Given a bound, find a prime greater than the bound. (define find-prime (lambda (bound) (let* ((primes (list 2)) (last (box primes)) (is-next-prime? (lambda (trial) (let -*- ((primes primes)) (or (null? primes) (let ((p (car primes))) (or (< trial (* p p)) (and (not (zero? (modulo trial p))) (-*- (cdr primes)))))))))) (if (> 2 bound) 2 (let -*- ((trial 3)) (if (is-next-prime? trial) (let ((entry (list trial))) (set-cdr! (unbox last) entry) (set-box! last entry) (if (> trial bound) trial (-*- (+ trial 2)))) (-*- (+ trial 2)))))))) ;;; Given the size of a square matrix consisting only of +1's and -1's, ;;; return an upper bound on the determinant. (define det-upper-bound (lambda (size) (let ((main-part (expt size (quotient size 2)))) (if (even? size) main-part (* main-part (do ((i 0 (+ i 1))) ((>= (* i i) size) i))))))) ;;; Fold over all maximal matrices. (define go (lambda (number-of-cols inv-size folder state) (let* ((in-row-space? (make-modular-in-row-space? (find-prime (det-upper-bound inv-size)))) (make-tester (lambda (mat) (let ((tests (let ((old-mat (cdr mat)) (new-row (car mat))) (fold-over-subs-of-size old-mat (- inv-size 2) (lambda (sub tests) (cons (in-row-space? (cons new-row sub)) tests)) '())))) (lambda (row) (let -*- ((tests tests)) (and (not (null? tests)) (or ((car tests) row) (-*- (cdr tests))))))))) (all-rows ; all rows starting with +1 in decreasing order (fold (fold-over-rows (- number-of-cols 1) cons '()) (lambda (row rows) (cons (cons 1 row) rows)) '()))) (let -*- ((number-of-rows 1) (rev-mat (list (car all-rows))) (possible-future (cdr all-rows)) (state state)) (let ((zulu-future (remove-in-order (if (< number-of-rows inv-size) (in-row-space? rev-mat) (make-tester rev-mat)) possible-future))) (if (null? zulu-future) (folder (reverse rev-mat) state) (let -**- ((zulu-future zulu-future) (state state)) (if (null? zulu-future) state (let ((rest-of-future (cdr zulu-future))) (-**- rest-of-future (let* ((first (car zulu-future)) (new-rev-mat (cons first rev-mat))) (if (maximal? (reverse new-rev-mat)) (-*- (+ number-of-rows 1) new-rev-mat rest-of-future state) state)))))))))))) (define go-folder (lambda (mat bsize.blen.blist) (let ((bsize (car bsize.blen.blist)) (size (length mat))) (if (< size bsize) bsize.blen.blist (let ((blen (cadr bsize.blen.blist)) (blist (cddr bsize.blen.blist))) (if (= size bsize) (let ((blen (+ blen 1))) (cons bsize (cons blen (cond ((< blen 3000) (cons mat blist)) ((= blen 3000) (cons "..." blist)) (else blist))))) (list size 1 mat))))))) (define really-go (lambda (number-of-cols inv-size) (cddr (go number-of-cols inv-size go-folder (list -1 -1))))) (define remove-in-order (lambda (remove? lst) (reverse (fold lst (lambda (e lst) (if (remove? e) lst (cons e lst))) '())))) ;;; The first fold-over-rows is slower than the second one, but folds ;;; over rows in lexical order (large to small). (define fold-over-rows (lambda (number-of-cols folder state) (if (zero? number-of-cols) (folder '() state) (fold-over-rows (- number-of-cols 1) (lambda (tail state) (folder (cons -1 tail) state)) (fold-over-rows (- number-of-cols 1) (lambda (tail state) (folder (cons 1 tail) state)) state))))) ;;; Fold over subsets of a given size. (define fold-over-subs-of-size (lambda (universe size folder state) (let ((usize (length universe))) (if (< usize size) state (let -*- ((size size) (universe universe) (folder folder) (csize (- usize size)) (state state)) (cond ((zero? csize) (folder universe state)) ((zero? size) (folder '() state)) (else (let ((first-u (car universe)) (rest-u (cdr universe))) (-*- size rest-u folder (- csize 1) (-*- (- size 1) rest-u (lambda (tail state) (folder (cons first-u tail) state)) csize state)))))))))) (run-benchmark "matrix" 10000 (lambda () (really-go 5 5)) (lambda (result) (equal? result '(((1 1 1 1 1) (1 1 1 1 -1) (1 1 1 -1 1) (1 1 -1 -1 -1) (1 -1 1 -1 -1) (1 -1 -1 1 1)) ((1 1 1 1 1) (1 1 1 1 -1) (1 1 1 -1 1) (1 1 -1 1 -1) (1 -1 1 -1 -1) (1 -1 -1 1 1)) ((1 1 1 1 1) (1 1 1 1 -1) (1 1 1 -1 1) (1 1 -1 1 -1) (1 -1 1 -1 1) (1 -1 -1 1 1)) ((1 1 1 1 1) (1 1 1 1 -1) (1 1 1 -1 1) (1 1 -1 1 1) (1 -1 1 1 -1) (1 -1 -1 -1 1)) ((1 1 1 1 1) (1 1 1 1 -1) (1 1 1 -1 1) (1 1 -1 1 1) (1 -1 1 1 1) (1 -1 -1 -1 -1)))))) stalin-0.11/benchmarks/nboyer.sc0000600017435200151030000004447407244422232015351 0ustar qobiqobi;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: nboyer.sc ;;; Description: The Boyer benchmark ;;; Author: Bob Boyer ;;; Created: 5-Apr-85 ;;; Modified: 10-Apr-85 14:52:20 (Bob Shaw) ;;; 22-Jul-87 (Will Clinger) ;;; 2-Jul-88 (Will Clinger -- distinguished #f and the empty ;;; list) ;;; 13-Feb-97 (Will Clinger -- fixed bugs in unifier and rules, ;;; rewrote to eliminate property lists, and added ;;; a scaling parameter suggested by Bob Boyer) ;;; 19-Mar-99 (Will Clinger -- cleaned up comments) ;;; Language: Scheme ;;; Status: Public Domain ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; NBOYER -- Logic programming benchmark, originally written by Bob Boyer. ;;; Fairly CONS intensive. ;;; Note: The version of this benchmark that appears in Dick Gabriel's book ;;; contained several bugs that are corrected here. These bugs are discussed ;;; by Henry Baker, "The Boyer Benchmark Meets Linear Logic", ACM SIGPLAN Lisp ;;; Pointers 6(4), October-December 1993, pages 3-10. The fixed bugs are: ;;; ;;; The benchmark now returns a boolean result. ;;; FALSEP and TRUEP use TERM-MEMBER? rather than MEMV (which is called ;;; MEMBER in Common Lisp) ;;; ONE-WAY-UNIFY1 now treats numbers correctly ;;; ONE-WAY-UNIFY1-LST now treats empty lists correctly ;;; Rule 19 has been corrected (this rule was not touched by the original ;;; benchmark, but is used by this version) ;;; Rules 84 and 101 have been corrected (but these rules are never touched ;;; by the benchmark) ;;; ;;; According to Baker, these bug fixes make the benchmark 10-25% slower. ;;; Please do not compare the timings from this benchmark against those of ;;; the original benchmark. ;;; ;;; This version of the benchmark also prints the number of rewrites as a ;;; sanity check, because it is too easy for a buggy version to return the ;;; correct boolean result. The correct number of rewrites is ;;; ;;; n rewrites peak live storage (approximate, in bytes) ;;; 0 95024 520,000 ;;; 1 591777 2,085,000 ;;; 2 1813975 5,175,000 ;;; 3 5375678 ;;; 4 16445406 ;;; 5 51507739 ;;; Nboyer is a 2-phase benchmark. ;;; The first phase attaches lemmas to symbols. This phase is not timed, ;;; but it accounts for very little of the runtime anyway. ;;; The second phase creates the test problem, and tests to see ;;; whether it is implied by the lemmas. ;;; begin Scheme->C (define (panic s) (error 'panic s)) ;;; end Scheme->C ;;; begin Gambit-C (define (panic s) (error s)) ;;; end Gambit-C ;;; begin Bigloo (define (panic s) (error s 'panic 'panic)) ;;; end Bigloo ;;; begin Chez (define (panic s) (error 'panic s)) ;;; end Chez ;;; begin Chicken (define (panic s) (error s)) ;;; end Chicken (define (run-benchmark name count run ok?) (if (not (ok? (run-bench name count run ok?))) (begin (display "*** wrong result ***") (newline)) (begin (display "*** right result ***") (newline)))) (define (run-bench name count run ok?) (let loop ((i 0) (result (list 'undefined))) (if (< i count) (loop (+ i 1) (run)) result))) (define (nboyer-benchmark . args) (let ((n (if (null? args) 0 (car args)))) (setup-boyer) (run-benchmark (string-append "nboyer" (number->string n)) 1 (lambda () (test-boyer n)) (lambda (rewrites) (and (number? rewrites) (case n ((0) (= rewrites 95024)) ((1) (= rewrites 591777)) ((2) (= rewrites 1813975)) ((3) (= rewrites 5375678)) ((4) (= rewrites 16445406)) ((5) (= rewrites 51507739)) ;; If it works for n <= 5, assume it works. (else #t))))))) (define (setup-boyer) #t) ; assigned below (define (test-boyer) #t) ; assigned below ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; The first phase. ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; In the original benchmark, it stored a list of lemmas on the ;;; property lists of symbols. ;;; In the new benchmark, it maintains an association list of ;;; symbols and symbol-records, and stores the list of lemmas ;;; within the symbol-records. (let () (define (setup) (add-lemma-lst '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (sub1 x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (sub1 x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (sub1 a) (zero)) (equal (sub1 b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))) (define (add-lemma-lst lst) (cond ((null? lst) #t) (else (add-lemma (car lst)) (add-lemma-lst (cdr lst))))) (define (add-lemma term) (cond ((and (pair? term) (eq? (car term) 'equal) (pair? (cadr term))) (put (car (cadr term)) 'lemmas (cons (translate-term term) (get (car (cadr term)) 'lemmas)))) (else (panic "ADD-LEMMA did not like term: ")))) ;; Translates a term by replacing its constructor symbols by symbol-records. (define (translate-term term) (cond ((not (pair? term)) term) (else (cons (symbol->symbol-record (car term)) (translate-args (cdr term)))))) (define (translate-args lst) (cond ((null? lst) '()) (else (cons (translate-term (car lst)) (translate-args (cdr lst)))))) ;; For debugging only, so the use of MAP does not change ;; the first-order character of the benchmark. (define (untranslate-term term) (cond ((not (pair? term)) term) (else (cons (get-name (car term)) (map untranslate-term (cdr term)))))) ;; A symbol-record is represented as a vector with two fields: ;; the symbol (for debugging) and ;; the list of lemmas associated with the symbol. (define (put sym property value) (put-lemmas! (symbol->symbol-record sym) value)) (define (get sym property) (get-lemmas (symbol->symbol-record sym))) (define (symbol->symbol-record sym) (let ((x (assq sym *symbol-records-alist*))) (if x (cdr x) (let ((r (make-symbol-record sym))) (set! *symbol-records-alist* (cons (cons sym r) *symbol-records-alist*)) r)))) ;; Association list of symbols and symbol-records. (define *symbol-records-alist* '()) ;; A symbol-record is represented as a vector with two fields: ;; the symbol (for debugging) and ;; the list of lemmas associated with the symbol. (define (make-symbol-record sym) (vector sym '())) (define (put-lemmas! symbol-record lemmas) (vector-set! symbol-record 1 lemmas)) (define (get-lemmas symbol-record) (vector-ref symbol-record 1)) (define (get-name symbol-record) (vector-ref symbol-record 0)) (define (symbol-record-equal? r1 r2) (eq? r1 r2)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; The second phase. ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (test n) (let ((term (apply-subst (translate-alist '((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))) (translate-term (do ((term '(implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w)) (list 'or term '(f))) (n n (- n 1))) ((zero? n) term)))))) (tautp term))) (define (translate-alist alist) (cond ((null? alist) '()) (else (cons (cons (caar alist) (translate-term (cdar alist))) (translate-alist (cdr alist)))))) (define (apply-subst alist term) (cond ((not (pair? term)) (let ((temp-temp (assq term alist))) (if temp-temp (cdr temp-temp) term))) (else (cons (car term) (apply-subst-lst alist (cdr term)))))) (define (apply-subst-lst alist lst) (cond ((null? lst) '()) (else (cons (apply-subst alist (car lst)) (apply-subst-lst alist (cdr lst)))))) (define (tautp x) (tautologyp (rewrite x) '() '())) (define (tautologyp x true-lst false-lst) (cond ((truep x true-lst) #t) ((falsep x false-lst) #f) ((not (pair? x)) #f) ((eq? (car x) if-constructor) (cond ((truep (cadr x) true-lst) (tautologyp (caddr x) true-lst false-lst)) ((falsep (cadr x) false-lst) (tautologyp (cadddr x) true-lst false-lst)) (else (and (tautologyp (caddr x) (cons (cadr x) true-lst) false-lst) (tautologyp (cadddr x) true-lst (cons (cadr x) false-lst)))))) (else #f))) (define if-constructor '*) ; becomes (symbol->symbol-record 'if) (define rewrite-count 0) ; sanity check (define (rewrite term) (set! rewrite-count (+ rewrite-count 1)) (cond ((not (pair? term)) term) (else (rewrite-with-lemmas (cons (car term) (rewrite-args (cdr term))) (get-lemmas (car term)))))) (define (rewrite-args lst) (cond ((null? lst) '()) (else (cons (rewrite (car lst)) (rewrite-args (cdr lst)))))) (define (rewrite-with-lemmas term lst) (cond ((null? lst) term) ((one-way-unify term (cadr (car lst))) (rewrite (apply-subst unify-subst (caddr (car lst))))) (else (rewrite-with-lemmas term (cdr lst))))) (define unify-subst '*) (define (one-way-unify term1 term2) (begin (set! unify-subst '()) (one-way-unify1 term1 term2))) (define (one-way-unify1 term1 term2) (cond ((not (pair? term2)) (let ((temp-temp (assq term2 unify-subst))) (cond (temp-temp (term-equal? term1 (cdr temp-temp))) ((number? term2) ; This bug fix makes (equal? term1 term2)) ; nboyer 10-25% slower! (else (set! unify-subst (cons (cons term2 term1) unify-subst)) #t)))) ((not (pair? term1)) #f) ((eq? (car term1) (car term2)) (one-way-unify1-lst (cdr term1) (cdr term2))) (else #f))) (define (one-way-unify1-lst lst1 lst2) (cond ((null? lst1) (null? lst2)) ((null? lst2) #f) ((one-way-unify1 (car lst1) (car lst2)) (one-way-unify1-lst (cdr lst1) (cdr lst2))) (else #f))) (define (falsep x lst) (or (term-equal? x false-term) (term-member? x lst))) (define (truep x lst) (or (term-equal? x true-term) (term-member? x lst))) (define false-term '*) ; becomes (translate-term '(f)) (define true-term '*) ; becomes (translate-term '(t)) ;; The next two procedures were in the original benchmark ;; but were never used. (define (trans-of-implies n) (translate-term (list 'implies (trans-of-implies1 n) (list 'implies 0 n)))) (define (trans-of-implies1 n) (cond ((equal? n 1) (list 'implies 0 1)) (else (list 'and (list 'implies (- n 1) n) (trans-of-implies1 (- n 1)))))) ;; Translated terms can be circular structures, which can't be ;; compared using Scheme's equal? and member procedures, so we ;; use these instead. (define (term-equal? x y) (cond ((pair? x) (and (pair? y) (symbol-record-equal? (car x) (car y)) (term-args-equal? (cdr x) (cdr y)))) (else (equal? x y)))) (define (term-args-equal? lst1 lst2) (cond ((null? lst1) (null? lst2)) ((null? lst2) #f) ((term-equal? (car lst1) (car lst2)) (term-args-equal? (cdr lst1) (cdr lst2))) (else #f))) (define (term-member? x lst) (cond ((null? lst) #f) ((term-equal? x (car lst)) #t) (else (term-member? x (cdr lst))))) (set! setup-boyer (lambda () (set! *symbol-records-alist* '()) (set! if-constructor (symbol->symbol-record 'if)) (set! false-term (translate-term '(f))) (set! true-term (translate-term '(t))) (setup))) (set! test-boyer (lambda (n) (set! rewrite-count 0) (let ((answer (test n))) (write rewrite-count) (display " rewrites") (newline) (if answer rewrite-count #f))))) (nboyer-benchmark 5) stalin-0.11/benchmarks/nfm.sc0000600017435200151030000003467607244422302014634 0ustar qobiqobi;;; 1. Added INEXACT->EXACT wrappers around READ. ;;; 2. Changed FOR-EACH-N to DO. ;;; 3. Eliminated SQR, MATRIX-REF, MATRIX-SET!, MATRIX-ROWS, MATRIX-COLUMNS, ;;; MAKE-MATRIX, WHEN, and UNLESS. ;;; begin Stalin (define make-pbm (primitive-procedure make-structure pbm 2)) (define pbm? (primitive-procedure structure? pbm)) (define pbm-raw? (primitive-procedure structure-ref pbm 0)) (define pbm-bitmap (primitive-procedure structure-ref pbm 1)) (define make-pgm (primitive-procedure make-structure pgm 3)) (define pgm? (primitive-procedure structure? pgm)) (define pgm-raw? (primitive-procedure structure-ref pgm 0)) (define pgm-maxval (primitive-procedure structure-ref pgm 1)) (define pgm-grey (primitive-procedure structure-ref pgm 2)) (define make-ppm (primitive-procedure make-structure ppm 5)) (define ppm? (primitive-procedure structure? ppm)) (define ppm-raw? (primitive-procedure structure-ref ppm 0)) (define ppm-maxval (primitive-procedure structure-ref ppm 1)) (define ppm-red (primitive-procedure structure-ref ppm 2)) (define ppm-green (primitive-procedure structure-ref ppm 3)) (define ppm-blue (primitive-procedure structure-ref ppm 4)) ;;; end Stalin ;;; begin Scheme->C (define (make-pbm raw? bitmap) (vector 'pbm raw? bitmap)) (define (pbm? pnm) (eq? (vector-ref pnm 0) 'pbm)) (define (pbm-raw? pnm) (vector-ref pnm 1)) (define (pbm-bitmap pnm) (vector-ref pnm 2)) (define (make-pgm raw? maxval grey) (vector 'pgm raw? maxval grey)) (define (pgm? pnm) (eq? (vector-ref pnm 0) 'pgm)) (define (pgm-raw? pnm) (vector-ref pnm 1)) (define (pgm-maxval pnm) (vector-ref pnm 2)) (define (pgm-grey pnm) (vector-ref pnm 3)) (define (make-ppm raw? maxval r g b) (vector 'ppm raw? maxval r g b)) (define (ppm? pnm) (eq? (vector-ref pnm 0) 'ppm)) (define (ppm-raw? pnm) (vector-ref pnm 1)) (define (ppm-maxval pnm) (vector-ref pnm 2)) (define (ppm-red pnm) (vector-ref pnm 3)) (define (ppm-green pnm) (vector-ref pnm 4)) (define (ppm-blue pnm) (vector-ref pnm 5)) (define (panic s) (error 'panic s)) ;;; end Scheme->C ;;; begin Gambit-C (define-structure pbm raw? bitmap) (define-structure pgm raw? maxval grey) (define-structure ppm raw? maxval red green blue) (define (panic s) (error s)) ;;; end Gambit-C ;;; begin Bigloo (define (make-pbm raw? bitmap) (vector 'pbm raw? bitmap)) (define (pbm? pnm) (eq? (vector-ref pnm 0) 'pbm)) (define (pbm-raw? pnm) (vector-ref pnm 1)) (define (pbm-bitmap pnm) (vector-ref pnm 2)) (define (make-pgm raw? maxval grey) (vector 'pgm raw? maxval grey)) (define (pgm? pnm) (eq? (vector-ref pnm 0) 'pgm)) (define (pgm-raw? pnm) (vector-ref pnm 1)) (define (pgm-maxval pnm) (vector-ref pnm 2)) (define (pgm-grey pnm) (vector-ref pnm 3)) (define (make-ppm raw? maxval r g b) (vector 'ppm raw? maxval r g b)) (define (ppm? pnm) (eq? (vector-ref pnm 0) 'ppm)) (define (ppm-raw? pnm) (vector-ref pnm 1)) (define (ppm-maxval pnm) (vector-ref pnm 2)) (define (ppm-red pnm) (vector-ref pnm 3)) (define (ppm-green pnm) (vector-ref pnm 4)) (define (ppm-blue pnm) (vector-ref pnm 5)) (define (panic s) (error s 'panic 'panic)) ;;; end Bigloo ;;; begin Chez (define (make-pbm raw? bitmap) (vector 'pbm raw? bitmap)) (define (pbm? pnm) (eq? (vector-ref pnm 0) 'pbm)) (define (pbm-raw? pnm) (vector-ref pnm 1)) (define (pbm-bitmap pnm) (vector-ref pnm 2)) (define (make-pgm raw? maxval grey) (vector 'pgm raw? maxval grey)) (define (pgm? pnm) (eq? (vector-ref pnm 0) 'pgm)) (define (pgm-raw? pnm) (vector-ref pnm 1)) (define (pgm-maxval pnm) (vector-ref pnm 2)) (define (pgm-grey pnm) (vector-ref pnm 3)) (define (make-ppm raw? maxval r g b) (vector 'ppm raw? maxval r g b)) (define (ppm? pnm) (eq? (vector-ref pnm 0) 'ppm)) (define (ppm-raw? pnm) (vector-ref pnm 1)) (define (ppm-maxval pnm) (vector-ref pnm 2)) (define (ppm-red pnm) (vector-ref pnm 3)) (define (ppm-green pnm) (vector-ref pnm 4)) (define (ppm-blue pnm) (vector-ref pnm 5)) (define (panic s) (error 'panic s)) ;;; end Chez ;;; begin Chicken (define-record-type pbm raw? bitmap) (define-record-type pgm raw? maxval grey) (define-record-type ppm raw? maxval red green blue) (define (panic s) (error s)) ;;; end Chicken (define (fuck-up) (panic "This shouldn't happen")) (define first car) (define second cadr) (define third caddr) (define rest cdr) (define *max-grey* 255) (define (pnm-width pnm) (vector-length (vector-ref (cond ((pbm? pnm) (pbm-bitmap pnm)) ((pgm? pnm) (pgm-grey pnm)) ((ppm? pnm) (ppm-red pnm)) (else (panic "Argument not PNM"))) 0))) (define (pnm-height pnm) (vector-length (cond ((pbm? pnm) (pbm-bitmap pnm)) ((pgm? pnm) (pgm-grey pnm)) ((ppm? pnm) (ppm-red pnm)) (else (panic "Argument not PNM"))))) (define (read-pnm pathname) (define (read-pnm port) (define (read-pbm raw?) (let* ((width (inexact->exact (read port))) (height (inexact->exact (read port))) (bitmap (let ((v (make-vector height))) (let loop ((i 0)) (if (< i height) (begin (vector-set! v i (make-vector width)) (loop (+ i 1))))) v))) (call-with-current-continuation (lambda (return) (cond (raw? (panic "Cannot (yet) read a raw pbm image")) (else (do ((y 0 (+ y 1))) ((= y height)) (do ((x 0 (+ x 1))) ((= x width)) (let ((v (read port))) (if (eof-object? v) (return #f)) (vector-set! (vector-ref bitmap y) x (not (zero? v)))))))))) (make-pbm raw? bitmap))) (define (read-pgm raw?) (let* ((width (inexact->exact (read port))) (height (inexact->exact (read port))) (maxval (inexact->exact (read port))) (size (* width height)) (grey (let ((v (make-vector height))) (let loop ((i 0)) (if (< i height) (begin (vector-set! v i (make-vector width)) (loop (+ i 1))))) v))) (call-with-current-continuation (lambda (return) (cond (raw? (read-char port) (do ((y 0 (+ y 1))) ((= y height)) (do ((x 0 (+ x 1))) ((= x width)) (let ((c (read-char port))) (if (eof-object? c) (return #f)) (vector-set! (vector-ref grey y) x (char->integer c)))))) (else (do ((y 0 (+ y 1))) ((= y height)) (do ((x 0 (+ x 1))) ((= x width)) (let ((v (read port))) (if (eof-object? v) (return #f)) (vector-set! (vector-ref grey y) x (inexact->exact v))))))))) (make-pgm raw? maxval grey))) (define (read-ppm raw?) (let* ((width (inexact->exact (read port))) (height (inexact->exact (read port))) (maxval (inexact->exact (read port))) (size (* width height)) (red (let ((v (make-vector height))) (let loop ((i 0)) (if (< i height) (begin (vector-set! v i (make-vector width)) (loop (+ i 1))))) v)) (green (let ((v (make-vector height))) (let loop ((i 0)) (if (< i height) (begin (vector-set! v i (make-vector width)) (loop (+ i 1))))) v)) (blue (let ((v (make-vector height))) (let loop ((i 0)) (if (< i height) (begin (vector-set! v i (make-vector width)) (loop (+ i 1))))) v))) (call-with-current-continuation (lambda (return) (cond (raw? (read-char port) (do ((y 0 (+ y 1))) ((= y height)) (do ((x 0 (+ x 1))) ((= x width)) (let* ((c1 (read-char port)) (c2 (read-char port)) (c3 (read-char port))) (if (eof-object? c1) (return #f)) (vector-set! (vector-ref red y) x (char->integer c1)) (vector-set! (vector-ref green y) x (char->integer c2)) (vector-set! (vector-ref blue y) x (char->integer c3)))))) (else (do ((y 0 (+ y 1))) ((= y height)) (do ((x 0 (+ x 1))) ((= x width)) (let* ((v1 (read port)) (v2 (read port)) (v3 (read port))) (if (eof-object? v1) (return #f)) (vector-set! (vector-ref red y) x (inexact->exact v1)) (vector-set! (vector-ref green y) x (inexact->exact v2)) (vector-set! (vector-ref blue y) x (inexact->exact v3))))))))) (make-ppm raw? maxval red green blue))) (let ((format (read port))) (case format ((P1) (read-pbm #f)) ((P2) (read-pgm #f)) ((P3) (read-ppm #f)) ((P4) (read-pbm #t)) ((P5) (read-pgm #t)) ((P6) (read-ppm #t)) (else (panic "Incorrect format for a pnm image"))))) (if (string=? pathname "-") (read-pnm (current-input-port)) (call-with-input-file pathname read-pnm))) (define (write-pnm pnm pathname) (define (write-pnm port) (define (write-pbm pbm) (let ((width (pnm-width pbm)) (height (pnm-height pbm)) (bitmap (pbm-bitmap pbm))) (write (if (pbm-raw? pbm) 'P4 'P1) port) (newline port) (write width port) (write-char #\space port) (write height port) (newline port) (if (pbm-raw? pbm) (panic "Cannot (yet) write a raw pbm image") (do ((y 0 (+ y 1))) ((= y height)) (do ((x 0 (+ x 1))) ((= x width)) (write (if (vector-ref (vector-ref bitmap y) x) 1 0) port) (newline port)))))) (define (write-pgm pgm) (let ((width (pnm-width pgm)) (height (pnm-height pgm)) (grey (pgm-grey pgm))) (if (pgm-raw? pgm) (do ((y 0 (+ y 1))) ((= y height)) (do ((x 0 (+ x 1))) ((= x width)) (if (> (vector-ref (vector-ref grey y) x) 255) (panic "Grey value too large for raw pgm file format"))))) (write (if (pgm-raw? pgm) 'P5 'P2) port) (newline port) (write width port) (write-char #\space port) (write height port) (newline port) (write (pgm-maxval pgm) port) (newline port) (if (pgm-raw? pgm) (do ((y 0 (+ y 1))) ((= y height)) (do ((x 0 (+ x 1))) ((= x width)) (write-char (integer->char (vector-ref (vector-ref grey y) x)) port))) (do ((y 0 (+ y 1))) ((= y height)) (do ((x 0 (+ x 1))) ((= x width)) (write (vector-ref (vector-ref grey y) x) port) (newline port)))))) (define (write-ppm ppm) (let ((width (pnm-width ppm)) (height (pnm-height ppm)) (red (ppm-red ppm)) (green (ppm-green ppm)) (blue (ppm-blue ppm))) (if (ppm-raw? ppm) (do ((y 0 (+ y 1))) ((= y height)) (do ((x 0 (+ x 1))) ((= x width)) (if (or (> (vector-ref (vector-ref red y) x) 255) (> (vector-ref (vector-ref green y) x) 255) (> (vector-ref (vector-ref blue y) x) 255)) (panic "Color value too large for raw ppm file format"))))) (write (if (ppm-raw? ppm) 'P6 'P3) port) (newline port) (write width port) (write-char #\space port) (write height port) (newline port) (write (ppm-maxval ppm) port) (newline port) (if (ppm-raw? ppm) (do ((y 0 (+ y 1))) ((= y height)) (do ((x 0 (+ x 1))) ((= x width)) (write-char (integer->char (vector-ref (vector-ref red y) x)) port) (write-char (integer->char (vector-ref (vector-ref green y) x)) port) (write-char (integer->char (vector-ref (vector-ref blue y) x)) port))) (do ((y 0 (+ y 1))) ((= y height)) (do ((x 0 (+ x 1))) ((= x width)) (write (vector-ref (vector-ref red y) x) port) (newline port) (write (vector-ref (vector-ref green y) x) port) (newline port) (write (vector-ref (vector-ref blue y) x) port) (newline port)))))) (cond ((pbm? pnm) (write-pbm pnm)) ((pgm? pnm) (write-pgm pnm)) ((ppm? pnm) (write-ppm pnm)) (else (panic "Non-PNM argument to WRITE-PNM")))) (if (string=? pathname "-") (write-pnm (current-output-port)) (call-with-output-file (string-append pathname (cond ((pbm? pnm) ".pbm") ((pgm? pnm) ".pgm") ((ppm? pnm) ".ppm") (else (fuck-up)))) write-pnm ;;; begin Chez 'replace ;;; end Chez ))) (define (pgm-smooth pgm sigma) (if (not (pgm? pgm)) (panic "Argument to PGM-SMOOTH is not a PGM")) (let* ((height (pnm-height pgm)) (width (pnm-width pgm)) (grey1 (pgm-grey pgm)) (grey2 (let ((v (make-vector height))) (let loop ((i 0)) (if (< i height) (begin (vector-set! v i (make-vector width 0)) (loop (+ i 1))))) v))) (do ((y sigma (+ y 1))) ((= y (- height sigma))) (do ((x sigma (+ x 1))) ((= x (- width sigma))) (do ((i (- y sigma) (+ i 1))) ((= i (+ y sigma 1))) (do ((j (- x sigma) (+ j 1))) ((= j (+ x sigma 1))) (vector-set! (vector-ref grey2 y) x (+ (vector-ref (vector-ref grey2 y) x) (vector-ref (vector-ref grey1 i) j))))) (vector-set! (vector-ref grey2 y) x (inexact->exact (floor (/ (vector-ref (vector-ref grey2 y) x) (* (+ sigma sigma 1) (+ sigma sigma 1)))))))) (make-pgm (pgm-raw? pgm) *max-grey* grey2))) (define (normal-flow-magnitude pgm1 pgm2 epsilon sigma sensitivity) (if (not (and (pgm? pgm1) (pgm? pgm2) (= (pgm-maxval pgm1) (pgm-maxval pgm2)) (eq? (pgm-raw? pgm1) (pgm-raw? pgm2)) (= (pnm-width pgm1) (pnm-width pgm2)) (= (pnm-height pgm1) (pnm-height pgm2)))) (panic "Arguments to NORMAL-FLOW-MAGNITUDE are not matching PGMs")) (let* ((width (pnm-width pgm1)) (height (pnm-height pgm1)) (e1 (pgm-grey (pgm-smooth pgm1 sigma))) (e2 (pgm-grey (pgm-smooth pgm2 sigma))) (m (let ((v (make-vector height))) (let loop ((i 0)) (if (< i height) (begin (vector-set! v i (make-vector width 0)) (loop (+ i 1))))) v))) (do ((i 0 (+ i 1))) ((= i (- height 1))) (do ((j 0 (+ j 1))) ((= j (- width 1))) (let* ((ex (/ (- (+ (vector-ref (vector-ref e1 (+ i 1)) j) (vector-ref (vector-ref e1 (+ i 1)) (+ j 1)) (vector-ref (vector-ref e2 (+ i 1)) j) (vector-ref (vector-ref e2 (+ i 1)) (+ j 1))) (+ (vector-ref (vector-ref e1 i) j) (vector-ref (vector-ref e1 i) (+ j 1)) (vector-ref (vector-ref e2 i) j) (vector-ref (vector-ref e2 i) (+ j 1)))) 4.0)) (ey (/ (- (+ (vector-ref (vector-ref e1 i) (+ j 1)) (vector-ref (vector-ref e1 (+ i 1)) (+ j 1)) (vector-ref (vector-ref e2 i) (+ j 1)) (vector-ref (vector-ref e2 (+ i 1)) (+ j 1))) (+ (vector-ref (vector-ref e1 i) j) (vector-ref (vector-ref e1 (+ i 1)) j) (vector-ref (vector-ref e2 i) j) (vector-ref (vector-ref e2 (+ i 1)) j))) 4.0)) (et (/ (- (+ (vector-ref (vector-ref e2 i) j) (vector-ref (vector-ref e2 i) (+ j 1)) (vector-ref (vector-ref e2 (+ i 1)) j) (vector-ref (vector-ref e2 (+ i 1)) (+ j 1))) (+ (vector-ref (vector-ref e1 i) j) (vector-ref (vector-ref e1 i) (+ j 1)) (vector-ref (vector-ref e1 (+ i 1)) j) (vector-ref (vector-ref e1 (+ i 1)) (+ j 1)))) 4.0)) (l (sqrt (+ (* ex ex) (* ey ey))))) (vector-set! (vector-ref m i) j (min *max-grey* (inexact->exact (floor (* *max-grey* (/ (if (< l epsilon) 0.0 (/ (abs et) l)) sensitivity))))))))) (pgm-smooth (make-pgm (pgm-raw? pgm1) *max-grey* m) sigma))) (define (test pgm1 pgm2) (write-pnm (normal-flow-magnitude pgm1 pgm2 1.25 1 20.0) "pick-up-flow") #f) (let ((pgm1 (read-pnm "pick-up00-0.pgm")) (pgm2 (read-pnm "pick-up00-1.pgm"))) (do ((i 0 (+ i 1))) ((= i 10)) (test pgm1 pgm2) (test pgm1 pgm2))) stalin-0.11/benchmarks/nucleic2.sc0000600017435200151030000047713707435460106015571 0ustar qobiqobi;;; begin Scheme->C (define (panic s) (error 'panic s)) ;;; end Scheme->C ;;; begin Gambit-C (define (panic s) (error s)) ;;; end Gambit-C ;;; begin Bigloo (define (panic s) (error s 'panic 'panic)) ;;; end Bigloo ;;; begin Chez (define (panic s) (error 'panic s)) ;;; end Chez ;;; begin Chicken (define (panic s) (error s)) ;;; end Chicken ;;; File: "nucleic2.sc" ;;; ;;; Author: Marc Feeley (feeley@iro.umontreal.ca) ;;; ;;; Last modified: June 6, 1994 ;;; ;;; This program is a modified version of the program described in the paper: ;;; ;;; M. Feeley, M. Turcotte, G. Lapalme, "Using Multilisp for Solving ;;; Constraint Satisfaction Problems: an Application to Nucleic Acid 3D ;;; Structure Determination" published in the journal "Lisp and Symbolic ;;; Computation". ;;; ;;; The differences between this program and the original are described in ;;; the paper: ;;; ;;; "???" published in the "Journal of Functional Programming". ;;; -- MATH UTILITIES --------------------------------------------------------- (define constant-pi 3.14159265358979323846) (define constant-minus-pi -3.14159265358979323846) (define constant-pi/2 1.57079632679489661923) (define constant-minus-pi/2 -1.57079632679489661923) (define (math-atan2 y x) (cond ((> x 0.0) (atan (/ y x))) ((< y 0.0) (if (= x 0.0) constant-minus-pi/2 (+ (atan (/ y x)) constant-minus-pi))) (else (if (= x 0.0) constant-pi/2 (+ (atan (/ y x)) constant-pi))))) ;;; -- POINTS ----------------------------------------------------------------- ;;; begin Stalin (define make-pt (primitive-procedure make-structure pt 3)) (define pt-x (primitive-procedure structure-ref pt 0)) (define pt-y (primitive-procedure structure-ref pt 1)) (define pt-z (primitive-procedure structure-ref pt 2)) ;;; end Stalin ;;; begin Scheme->C (define (make-pt x y z) (vector x y z)) (define (pt-x pt) (vector-ref pt 0)) (define (pt-y pt) (vector-ref pt 1)) (define (pt-z pt) (vector-ref pt 2)) ;;; end Scheme->C ;;; begin Gambit-C (define-structure pt x y z) ;;; end Gambit-C ;;; begin Bigloo (define (make-pt x y z) (vector x y z)) (define (pt-x pt) (vector-ref pt 0)) (define (pt-y pt) (vector-ref pt 1)) (define (pt-z pt) (vector-ref pt 2)) ;;; end Bigloo ;;; begin Chez (define (make-pt x y z) (vector x y z)) (define (pt-x pt) (vector-ref pt 0)) (define (pt-y pt) (vector-ref pt 1)) (define (pt-z pt) (vector-ref pt 2)) ;;; end Chez ;;; begin Chicken (define-record-type pt x y z) ;;; end Chicken (define (pt-sub p1 p2) (make-pt (- (pt-x p1) (pt-x p2)) (- (pt-y p1) (pt-y p2)) (- (pt-z p1) (pt-z p2)))) (define (pt-dist p1 p2) (let ((dx (- (pt-x p1) (pt-x p2))) (dy (- (pt-y p1) (pt-y p2))) (dz (- (pt-z p1) (pt-z p2)))) (sqrt (+ (* dx dx) (* dy dy) (* dz dz))))) (define (pt-phi p) (let* ((x (pt-x p)) (y (pt-y p)) (z (pt-z p)) (b (math-atan2 x z))) (math-atan2 (+ (* (cos b) z) (* (sin b) x)) y))) (define (pt-theta p) (math-atan2 (pt-x p) (pt-z p))) ;;; -- COORDINATE TRANSFORMATIONS --------------------------------------------- ;;; The notation for the transformations follows "Paul, R.P. (1981) Robot ;;; Manipulators. MIT Press." with the exception that our transformation ;;; matrices don't have the perspective terms and are the transpose of ;;; Paul's one. See also "M\"antyl\"a, M. (1985) An Introduction to ;;; Solid Modeling, Computer Science Press" Appendix A. ;;; ;;; The components of a transformation matrix are named like this: ;;; ;;; a b c ;;; d e f ;;; g h i ;;; tx ty tz ;;; ;;; The components tx, ty, and tz are the translation vector. ;;; begin Stalin (define make-tfo (primitive-procedure make-structure tfo 12)) (define tfo-a (primitive-procedure structure-ref tfo 0)) (define tfo-b (primitive-procedure structure-ref tfo 1)) (define tfo-c (primitive-procedure structure-ref tfo 2)) (define tfo-d (primitive-procedure structure-ref tfo 3)) (define tfo-e (primitive-procedure structure-ref tfo 4)) (define tfo-f (primitive-procedure structure-ref tfo 5)) (define tfo-g (primitive-procedure structure-ref tfo 6)) (define tfo-h (primitive-procedure structure-ref tfo 7)) (define tfo-i (primitive-procedure structure-ref tfo 8)) (define tfo-tx (primitive-procedure structure-ref tfo 9)) (define tfo-ty (primitive-procedure structure-ref tfo 10)) (define tfo-tz (primitive-procedure structure-ref tfo 11)) ;;; end Stalin ;;; begin Scheme->C (define (make-tfo a b c d e f g h i tx ty tz) (vector a b c d e f g h i tx ty tz)) (define (tfo-a tfo) (vector-ref tfo 0)) (define (tfo-b tfo) (vector-ref tfo 1)) (define (tfo-c tfo) (vector-ref tfo 2)) (define (tfo-d tfo) (vector-ref tfo 3)) (define (tfo-e tfo) (vector-ref tfo 4)) (define (tfo-f tfo) (vector-ref tfo 5)) (define (tfo-g tfo) (vector-ref tfo 6)) (define (tfo-h tfo) (vector-ref tfo 7)) (define (tfo-i tfo) (vector-ref tfo 8)) (define (tfo-tx tfo) (vector-ref tfo 9)) (define (tfo-ty tfo) (vector-ref tfo 10)) (define (tfo-tz tfo) (vector-ref tfo 11)) ;;; end Scheme->C ;;; begin Gambit-C (define-structure tfo a b c d e f g h i tx ty tz) ;;; end Gambit-C ;;; begin Bigloo (define (make-tfo a b c d e f g h i tx ty tz) (vector a b c d e f g h i tx ty tz)) (define (tfo-a tfo) (vector-ref tfo 0)) (define (tfo-b tfo) (vector-ref tfo 1)) (define (tfo-c tfo) (vector-ref tfo 2)) (define (tfo-d tfo) (vector-ref tfo 3)) (define (tfo-e tfo) (vector-ref tfo 4)) (define (tfo-f tfo) (vector-ref tfo 5)) (define (tfo-g tfo) (vector-ref tfo 6)) (define (tfo-h tfo) (vector-ref tfo 7)) (define (tfo-i tfo) (vector-ref tfo 8)) (define (tfo-tx tfo) (vector-ref tfo 9)) (define (tfo-ty tfo) (vector-ref tfo 10)) (define (tfo-tz tfo) (vector-ref tfo 11)) ;;; end Bigloo ;;; begin Chez (define (make-tfo a b c d e f g h i tx ty tz) (vector a b c d e f g h i tx ty tz)) (define (tfo-a tfo) (vector-ref tfo 0)) (define (tfo-b tfo) (vector-ref tfo 1)) (define (tfo-c tfo) (vector-ref tfo 2)) (define (tfo-d tfo) (vector-ref tfo 3)) (define (tfo-e tfo) (vector-ref tfo 4)) (define (tfo-f tfo) (vector-ref tfo 5)) (define (tfo-g tfo) (vector-ref tfo 6)) (define (tfo-h tfo) (vector-ref tfo 7)) (define (tfo-i tfo) (vector-ref tfo 8)) (define (tfo-tx tfo) (vector-ref tfo 9)) (define (tfo-ty tfo) (vector-ref tfo 10)) (define (tfo-tz tfo) (vector-ref tfo 11)) ;;; end Chez ;;; begin Chicken (define-record-type tfo a b c d e f g h i tx ty tz) ;;; end Chicken (define tfo-id ; the identity transformation matrix (make-tfo 1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0)) ;;; The function "tfo-apply" multiplies a transformation matrix, tfo, by a ;;; point vector, p. The result is a new point. (define (tfo-apply tfo p) (let ((x (pt-x p)) (y (pt-y p)) (z (pt-z p))) (make-pt (+ (* x (tfo-a tfo)) (* y (tfo-d tfo)) (* z (tfo-g tfo)) (tfo-tx tfo)) (+ (* x (tfo-b tfo)) (* y (tfo-e tfo)) (* z (tfo-h tfo)) (tfo-ty tfo)) (+ (* x (tfo-c tfo)) (* y (tfo-f tfo)) (* z (tfo-i tfo)) (tfo-tz tfo))))) ;;; The function "tfo-combine" multiplies two transformation matrices A and B. ;;; The result is a new matrix which cumulates the transformations described ;;; by A and B. (define (tfo-combine A B) (make-tfo (+ (* (tfo-a A) (tfo-a B)) (* (tfo-b A) (tfo-d B)) (* (tfo-c A) (tfo-g B))) (+ (* (tfo-a A) (tfo-b B)) (* (tfo-b A) (tfo-e B)) (* (tfo-c A) (tfo-h B))) (+ (* (tfo-a A) (tfo-c B)) (* (tfo-b A) (tfo-f B)) (* (tfo-c A) (tfo-i B))) (+ (* (tfo-d A) (tfo-a B)) (* (tfo-e A) (tfo-d B)) (* (tfo-f A) (tfo-g B))) (+ (* (tfo-d A) (tfo-b B)) (* (tfo-e A) (tfo-e B)) (* (tfo-f A) (tfo-h B))) (+ (* (tfo-d A) (tfo-c B)) (* (tfo-e A) (tfo-f B)) (* (tfo-f A) (tfo-i B))) (+ (* (tfo-g A) (tfo-a B)) (* (tfo-h A) (tfo-d B)) (* (tfo-i A) (tfo-g B))) (+ (* (tfo-g A) (tfo-b B)) (* (tfo-h A) (tfo-e B)) (* (tfo-i A) (tfo-h B))) (+ (* (tfo-g A) (tfo-c B)) (* (tfo-h A) (tfo-f B)) (* (tfo-i A) (tfo-i B))) (+ (* (tfo-tx A) (tfo-a B)) (* (tfo-ty A) (tfo-d B)) (* (tfo-tz A) (tfo-g B)) (tfo-tx B)) (+ (* (tfo-tx A) (tfo-b B)) (* (tfo-ty A) (tfo-e B)) (* (tfo-tz A) (tfo-h B)) (tfo-ty B)) (+ (* (tfo-tx A) (tfo-c B)) (* (tfo-ty A) (tfo-f B)) (* (tfo-tz A) (tfo-i B)) (tfo-tz B)))) ;;; The function "tfo-inv-ortho" computes the inverse of a homogeneous ;;; transformation matrix. (define (tfo-inv-ortho tfo) (let* ((tx (tfo-tx tfo)) (ty (tfo-ty tfo)) (tz (tfo-tz tfo))) (make-tfo (tfo-a tfo) (tfo-d tfo) (tfo-g tfo) (tfo-b tfo) (tfo-e tfo) (tfo-h tfo) (tfo-c tfo) (tfo-f tfo) (tfo-i tfo) (- (+ (* (tfo-a tfo) tx) (* (tfo-b tfo) ty) (* (tfo-c tfo) tz))) (- (+ (* (tfo-d tfo) tx) (* (tfo-e tfo) ty) (* (tfo-f tfo) tz))) (- (+ (* (tfo-g tfo) tx) (* (tfo-h tfo) ty) (* (tfo-i tfo) tz)))))) ;;; Given three points p1, p2, and p3, the function "tfo-align" computes ;;; a transformation matrix such that point p1 gets mapped to (0,0,0), p2 gets ;;; mapped to the Y axis and p3 gets mapped to the YZ plane. (define (tfo-align p1 p2 p3) (let* ((x1 (pt-x p1)) (y1 (pt-y p1)) (z1 (pt-z p1)) (x3 (pt-x p3)) (y3 (pt-y p3)) (z3 (pt-z p3)) (x31 (- x3 x1)) (y31 (- y3 y1)) (z31 (- z3 z1)) (rotpY (pt-sub p2 p1)) (Phi (pt-phi rotpY)) (Theta (pt-theta rotpY)) (sinP (sin Phi)) (sinT (sin Theta)) (cosP (cos Phi)) (cosT (cos Theta)) (sinPsinT (* sinP sinT)) (sinPcosT (* sinP cosT)) (cosPsinT (* cosP sinT)) (cosPcosT (* cosP cosT)) (rotpZ (make-pt (- (* cosT x31) (* sinT z31)) (+ (* sinPsinT x31) (* cosP y31) (* sinPcosT z31)) (+ (* cosPsinT x31) (- (* sinP y31)) (* cosPcosT z31)))) (Rho (pt-theta rotpZ)) (cosR (cos Rho)) (sinR (sin Rho)) (x (+ (- (* x1 cosT)) (* z1 sinT))) (y (- (- (- (* x1 sinPsinT)) (* y1 cosP)) (* z1 sinPcosT))) (z (- (+ (- (* x1 cosPsinT)) (* y1 sinP)) (* z1 cosPcosT)))) (make-tfo (- (* cosT cosR) (* cosPsinT sinR)) sinPsinT (+ (* cosT sinR) (* cosPsinT cosR)) (* sinP sinR) cosP (- (* sinP cosR)) (- (- (* sinT cosR)) (* cosPcosT sinR)) sinPcosT (+ (- (* sinT sinR)) (* cosPcosT cosR)) (- (* x cosR) (* z sinR)) y (+ (* x sinR) (* z cosR))))) ;;; -- NUCLEIC ACID CONFORMATIONS DATA BASE ----------------------------------- ;;; Numbering of atoms follows the paper: ;;; ;;; IUPAC-IUB Joint Commission on Biochemical Nomenclature (JCBN) ;;; (1983) Abbreviations and Symbols for the Description of ;;; Conformations of Polynucleotide Chains. Eur. J. Biochem 131, ;;; 9-15. ;;; ;;; In the atom names, we have used "*" instead of "'". ;;; Define part common to all 4 nucleotide types. (define (nuc-dgf-base-tfo nuc) (cond ((rA? nuc) (rA-dgf-base-tfo nuc)) ((rC? nuc) (rC-dgf-base-tfo nuc)) ((rG? nuc) (rG-dgf-base-tfo nuc)) ((rU? nuc) (rU-dgf-base-tfo nuc)) (else (panic "Undefined nuc")))) (define (nuc-P-O3*-275-tfo nuc) (cond ((rA? nuc) (rA-P-O3*-275-tfo nuc)) ((rC? nuc) (rC-P-O3*-275-tfo nuc)) ((rG? nuc) (rG-P-O3*-275-tfo nuc)) ((rU? nuc) (rU-P-O3*-275-tfo nuc)) (else (panic "Undefined nuc")))) (define (nuc-P-O3*-180-tfo nuc) (cond ((rA? nuc) (rA-P-O3*-180-tfo nuc)) ((rC? nuc) (rC-P-O3*-180-tfo nuc)) ((rG? nuc) (rG-P-O3*-180-tfo nuc)) ((rU? nuc) (rU-P-O3*-180-tfo nuc)) (else (panic "Undefined nuc")))) (define (nuc-P-O3*-60-tfo nuc) (cond ((rA? nuc) (rA-P-O3*-60-tfo nuc)) ((rC? nuc) (rC-P-O3*-60-tfo nuc)) ((rG? nuc) (rG-P-O3*-60-tfo nuc)) ((rU? nuc) (rU-P-O3*-60-tfo nuc)) (else (panic "Undefined nuc")))) (define (nuc-P nuc) (cond ((rA? nuc) (rA-P nuc)) ((rC? nuc) (rC-P nuc)) ((rG? nuc) (rG-P nuc)) ((rU? nuc) (rU-P nuc)) (else (panic "Undefined nuc")))) (define (nuc-O1P nuc) (cond ((rA? nuc) (rA-O1P nuc)) ((rC? nuc) (rC-O1P nuc)) ((rG? nuc) (rG-O1P nuc)) ((rU? nuc) (rU-O1P nuc)) (else (panic "Undefined nuc")))) (define (nuc-O2P nuc) (cond ((rA? nuc) (rA-O2P nuc)) ((rC? nuc) (rC-O2P nuc)) ((rG? nuc) (rG-O2P nuc)) ((rU? nuc) (rU-O2P nuc)) (else (panic "Undefined nuc")))) (define (nuc-O5* nuc) (cond ((rA? nuc) (rA-O5* nuc)) ((rC? nuc) (rC-O5* nuc)) ((rG? nuc) (rG-O5* nuc)) ((rU? nuc) (rU-O5* nuc)) (else (panic "Undefined nuc")))) (define (nuc-C5* nuc) (cond ((rA? nuc) (rA-C5* nuc)) ((rC? nuc) (rC-C5* nuc)) ((rG? nuc) (rG-C5* nuc)) ((rU? nuc) (rU-C5* nuc)) (else (panic "Undefined nuc")))) (define (nuc-H5* nuc) (cond ((rA? nuc) (rA-H5* nuc)) ((rC? nuc) (rC-H5* nuc)) ((rG? nuc) (rG-H5* nuc)) ((rU? nuc) (rU-H5* nuc)) (else (panic "Undefined nuc")))) (define (nuc-H5** nuc) (cond ((rA? nuc) (rA-H5** nuc)) ((rC? nuc) (rC-H5** nuc)) ((rG? nuc) (rG-H5** nuc)) ((rU? nuc) (rU-H5** nuc)) (else (panic "Undefined nuc")))) (define (nuc-C4* nuc) (cond ((rA? nuc) (rA-C4* nuc)) ((rC? nuc) (rC-C4* nuc)) ((rG? nuc) (rG-C4* nuc)) ((rU? nuc) (rU-C4* nuc)) (else (panic "Undefined nuc")))) (define (nuc-H4* nuc) (cond ((rA? nuc) (rA-H4* nuc)) ((rC? nuc) (rC-H4* nuc)) ((rG? nuc) (rG-H4* nuc)) ((rU? nuc) (rU-H4* nuc)) (else (panic "Undefined nuc")))) (define (nuc-O4* nuc) (cond ((rA? nuc) (rA-O4* nuc)) ((rC? nuc) (rC-O4* nuc)) ((rG? nuc) (rG-O4* nuc)) ((rU? nuc) (rU-O4* nuc)) (else (panic "Undefined nuc")))) (define (nuc-C1* nuc) (cond ((rA? nuc) (rA-C1* nuc)) ((rC? nuc) (rC-C1* nuc)) ((rG? nuc) (rG-C1* nuc)) ((rU? nuc) (rU-C1* nuc)) (else (panic "Undefined nuc")))) (define (nuc-H1* nuc) (cond ((rA? nuc) (rA-H1* nuc)) ((rC? nuc) (rC-H1* nuc)) ((rG? nuc) (rG-H1* nuc)) ((rU? nuc) (rU-H1* nuc)) (else (panic "Undefined nuc")))) (define (nuc-C2* nuc) (cond ((rA? nuc) (rA-C2* nuc)) ((rC? nuc) (rC-C2* nuc)) ((rG? nuc) (rG-C2* nuc)) ((rU? nuc) (rU-C2* nuc)) (else (panic "Undefined nuc")))) (define (nuc-H2** nuc) (cond ((rA? nuc) (rA-H2** nuc)) ((rC? nuc) (rC-H2** nuc)) ((rG? nuc) (rG-H2** nuc)) ((rU? nuc) (rU-H2** nuc)) (else (panic "Undefined nuc")))) (define (nuc-O2* nuc) (cond ((rA? nuc) (rA-O2* nuc)) ((rC? nuc) (rC-O2* nuc)) ((rG? nuc) (rG-O2* nuc)) ((rU? nuc) (rU-O2* nuc)) (else (panic "Undefined nuc")))) (define (nuc-H2* nuc) (cond ((rA? nuc) (rA-H2* nuc)) ((rC? nuc) (rC-H2* nuc)) ((rG? nuc) (rG-H2* nuc)) ((rU? nuc) (rU-H2* nuc)) (else (panic "Undefined nuc")))) (define (nuc-C3* nuc) (cond ((rA? nuc) (rA-C3* nuc)) ((rC? nuc) (rC-C3* nuc)) ((rG? nuc) (rG-C3* nuc)) ((rU? nuc) (rU-C3* nuc)) (else (panic "Undefined nuc")))) (define (nuc-H3* nuc) (cond ((rA? nuc) (rA-H3* nuc)) ((rC? nuc) (rC-H3* nuc)) ((rG? nuc) (rG-H3* nuc)) ((rU? nuc) (rU-H3* nuc)) (else (panic "Undefined nuc")))) (define (nuc-O3* nuc) (cond ((rA? nuc) (rA-O3* nuc)) ((rC? nuc) (rC-O3* nuc)) ((rG? nuc) (rG-O3* nuc)) ((rU? nuc) (rU-O3* nuc)) (else (panic "Undefined nuc")))) (define (nuc-N1 nuc) (cond ((rA? nuc) (rA-N1 nuc)) ((rC? nuc) (rC-N1 nuc)) ((rG? nuc) (rG-N1 nuc)) ((rU? nuc) (rU-N1 nuc)) (else (panic "Undefined nuc")))) (define (nuc-N3 nuc) (cond ((rA? nuc) (rA-N3 nuc)) ((rC? nuc) (rC-N3 nuc)) ((rG? nuc) (rG-N3 nuc)) ((rU? nuc) (rU-N3 nuc)) (else (panic "Undefined nuc")))) (define (nuc-C2 nuc) (cond ((rA? nuc) (rA-C2 nuc)) ((rC? nuc) (rC-C2 nuc)) ((rG? nuc) (rG-C2 nuc)) ((rU? nuc) (rU-C2 nuc)) (else (panic "Undefined nuc")))) (define (nuc-C4 nuc) (cond ((rA? nuc) (rA-C4 nuc)) ((rC? nuc) (rC-C4 nuc)) ((rG? nuc) (rG-C4 nuc)) ((rU? nuc) (rU-C4 nuc)) (else (panic "Undefined nuc")))) (define (nuc-C5 nuc) (cond ((rA? nuc) (rA-C5 nuc)) ((rC? nuc) (rC-C5 nuc)) ((rG? nuc) (rG-C5 nuc)) ((rU? nuc) (rU-C5 nuc)) (else (panic "Undefined nuc")))) (define (nuc-C6 nuc) (cond ((rA? nuc) (rA-C6 nuc)) ((rC? nuc) (rC-C6 nuc)) ((rG? nuc) (rG-C6 nuc)) ((rU? nuc) (rU-C6 nuc)) (else (panic "Undefined nuc")))) ;;; Define remaining atoms for each nucleotide type. ;;; begin Stalin (define make-rA (primitive-procedure make-structure rA 37)) (define rA? (primitive-procedure structure? rA)) (define rA-dgf-base-tfo (primitive-procedure structure-ref rA 0)) (define rA-P-O3*-275-tfo (primitive-procedure structure-ref rA 1)) (define rA-P-O3*-180-tfo (primitive-procedure structure-ref rA 2)) (define rA-P-O3*-60-tfo (primitive-procedure structure-ref rA 3)) (define rA-P (primitive-procedure structure-ref rA 4)) (define rA-O1P (primitive-procedure structure-ref rA 5)) (define rA-O2P (primitive-procedure structure-ref rA 6)) (define rA-O5* (primitive-procedure structure-ref rA 7)) (define rA-C5* (primitive-procedure structure-ref rA 8)) (define rA-H5* (primitive-procedure structure-ref rA 9)) (define rA-H5** (primitive-procedure structure-ref rA 10)) (define rA-C4* (primitive-procedure structure-ref rA 11)) (define rA-H4* (primitive-procedure structure-ref rA 12)) (define rA-O4* (primitive-procedure structure-ref rA 13)) (define rA-C1* (primitive-procedure structure-ref rA 14)) (define rA-H1* (primitive-procedure structure-ref rA 15)) (define rA-C2* (primitive-procedure structure-ref rA 16)) (define rA-H2** (primitive-procedure structure-ref rA 17)) (define rA-O2* (primitive-procedure structure-ref rA 18)) (define rA-H2* (primitive-procedure structure-ref rA 19)) (define rA-C3* (primitive-procedure structure-ref rA 20)) (define rA-H3* (primitive-procedure structure-ref rA 21)) (define rA-O3* (primitive-procedure structure-ref rA 22)) (define rA-N1 (primitive-procedure structure-ref rA 23)) (define rA-N3 (primitive-procedure structure-ref rA 24)) (define rA-C2 (primitive-procedure structure-ref rA 25)) (define rA-C4 (primitive-procedure structure-ref rA 26)) (define rA-C5 (primitive-procedure structure-ref rA 27)) (define rA-C6 (primitive-procedure structure-ref rA 28)) (define rA-N6 (primitive-procedure structure-ref rA 29)) (define rA-N7 (primitive-procedure structure-ref rA 30)) (define rA-N9 (primitive-procedure structure-ref rA 31)) (define rA-C8 (primitive-procedure structure-ref rA 32)) (define rA-H2 (primitive-procedure structure-ref rA 33)) (define rA-H61 (primitive-procedure structure-ref rA 34)) (define rA-H62 (primitive-procedure structure-ref rA 35)) (define rA-H8 (primitive-procedure structure-ref rA 36)) ;;; end Stalin ;;; begin Scheme->C (define (make-rA dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N6 N7 N9 C8 H2 H61 H62 H8) (vector dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N6 N7 N9 C8 H2 H61 H62 H8)) (define (rA? x) (and (vector? x) (= (vector-length x) 37))) (define (rA-dgf-base-tfo rA) (vector-ref rA 0)) (define (rA-P-O3*-275-tfo rA) (vector-ref rA 1)) (define (rA-P-O3*-180-tfo rA) (vector-ref rA 2)) (define (rA-P-O3*-60-tfo rA) (vector-ref rA 3)) (define (rA-P rA) (vector-ref rA 4)) (define (rA-O1P rA) (vector-ref rA 5)) (define (rA-O2P rA) (vector-ref rA 6)) (define (rA-O5* rA) (vector-ref rA 7)) (define (rA-C5* rA) (vector-ref rA 8)) (define (rA-H5* rA) (vector-ref rA 9)) (define (rA-H5** rA) (vector-ref rA 10)) (define (rA-C4* rA) (vector-ref rA 11)) (define (rA-H4* rA) (vector-ref rA 12)) (define (rA-O4* rA) (vector-ref rA 13)) (define (rA-C1* rA) (vector-ref rA 14)) (define (rA-H1* rA) (vector-ref rA 15)) (define (rA-C2* rA) (vector-ref rA 16)) (define (rA-H2** rA) (vector-ref rA 17)) (define (rA-O2* rA) (vector-ref rA 18)) (define (rA-H2* rA) (vector-ref rA 19)) (define (rA-C3* rA) (vector-ref rA 20)) (define (rA-H3* rA) (vector-ref rA 21)) (define (rA-O3* rA) (vector-ref rA 22)) (define (rA-N1 rA) (vector-ref rA 23)) (define (rA-N3 rA) (vector-ref rA 24)) (define (rA-C2 rA) (vector-ref rA 25)) (define (rA-C4 rA) (vector-ref rA 26)) (define (rA-C5 rA) (vector-ref rA 27)) (define (rA-C6 rA) (vector-ref rA 28)) (define (rA-N6 rA) (vector-ref rA 29)) (define (rA-N7 rA) (vector-ref rA 30)) (define (rA-N9 rA) (vector-ref rA 31)) (define (rA-C8 rA) (vector-ref rA 32)) (define (rA-H2 rA) (vector-ref rA 33)) (define (rA-H61 rA) (vector-ref rA 34)) (define (rA-H62 rA) (vector-ref rA 35)) (define (rA-H8 rA) (vector-ref rA 36)) ;;; end Scheme->C ;;; begin Gambit-C (define-structure rA ;; defines the standard position for wc and wc-dumas dgf-base-tfo ;; defines the standard position for the connect function P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N6 N7 N9 C8 H2 H61 H62 H8) ;;; end Gambit-C ;;; begin Bigloo (define (make-rA dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N6 N7 N9 C8 H2 H61 H62 H8) (vector dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N6 N7 N9 C8 H2 H61 H62 H8)) (define (rA? x) (and (vector? x) (= (vector-length x) 37))) (define (rA-dgf-base-tfo rA) (vector-ref rA 0)) (define (rA-P-O3*-275-tfo rA) (vector-ref rA 1)) (define (rA-P-O3*-180-tfo rA) (vector-ref rA 2)) (define (rA-P-O3*-60-tfo rA) (vector-ref rA 3)) (define (rA-P rA) (vector-ref rA 4)) (define (rA-O1P rA) (vector-ref rA 5)) (define (rA-O2P rA) (vector-ref rA 6)) (define (rA-O5* rA) (vector-ref rA 7)) (define (rA-C5* rA) (vector-ref rA 8)) (define (rA-H5* rA) (vector-ref rA 9)) (define (rA-H5** rA) (vector-ref rA 10)) (define (rA-C4* rA) (vector-ref rA 11)) (define (rA-H4* rA) (vector-ref rA 12)) (define (rA-O4* rA) (vector-ref rA 13)) (define (rA-C1* rA) (vector-ref rA 14)) (define (rA-H1* rA) (vector-ref rA 15)) (define (rA-C2* rA) (vector-ref rA 16)) (define (rA-H2** rA) (vector-ref rA 17)) (define (rA-O2* rA) (vector-ref rA 18)) (define (rA-H2* rA) (vector-ref rA 19)) (define (rA-C3* rA) (vector-ref rA 20)) (define (rA-H3* rA) (vector-ref rA 21)) (define (rA-O3* rA) (vector-ref rA 22)) (define (rA-N1 rA) (vector-ref rA 23)) (define (rA-N3 rA) (vector-ref rA 24)) (define (rA-C2 rA) (vector-ref rA 25)) (define (rA-C4 rA) (vector-ref rA 26)) (define (rA-C5 rA) (vector-ref rA 27)) (define (rA-C6 rA) (vector-ref rA 28)) (define (rA-N6 rA) (vector-ref rA 29)) (define (rA-N7 rA) (vector-ref rA 30)) (define (rA-N9 rA) (vector-ref rA 31)) (define (rA-C8 rA) (vector-ref rA 32)) (define (rA-H2 rA) (vector-ref rA 33)) (define (rA-H61 rA) (vector-ref rA 34)) (define (rA-H62 rA) (vector-ref rA 35)) (define (rA-H8 rA) (vector-ref rA 36)) ;;; end Bigloo ;;; begin Chez (define (make-rA dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N6 N7 N9 C8 H2 H61 H62 H8) (vector dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N6 N7 N9 C8 H2 H61 H62 H8)) (define (rA? x) (and (vector? x) (= (vector-length x) 37))) (define (rA-dgf-base-tfo rA) (vector-ref rA 0)) (define (rA-P-O3*-275-tfo rA) (vector-ref rA 1)) (define (rA-P-O3*-180-tfo rA) (vector-ref rA 2)) (define (rA-P-O3*-60-tfo rA) (vector-ref rA 3)) (define (rA-P rA) (vector-ref rA 4)) (define (rA-O1P rA) (vector-ref rA 5)) (define (rA-O2P rA) (vector-ref rA 6)) (define (rA-O5* rA) (vector-ref rA 7)) (define (rA-C5* rA) (vector-ref rA 8)) (define (rA-H5* rA) (vector-ref rA 9)) (define (rA-H5** rA) (vector-ref rA 10)) (define (rA-C4* rA) (vector-ref rA 11)) (define (rA-H4* rA) (vector-ref rA 12)) (define (rA-O4* rA) (vector-ref rA 13)) (define (rA-C1* rA) (vector-ref rA 14)) (define (rA-H1* rA) (vector-ref rA 15)) (define (rA-C2* rA) (vector-ref rA 16)) (define (rA-H2** rA) (vector-ref rA 17)) (define (rA-O2* rA) (vector-ref rA 18)) (define (rA-H2* rA) (vector-ref rA 19)) (define (rA-C3* rA) (vector-ref rA 20)) (define (rA-H3* rA) (vector-ref rA 21)) (define (rA-O3* rA) (vector-ref rA 22)) (define (rA-N1 rA) (vector-ref rA 23)) (define (rA-N3 rA) (vector-ref rA 24)) (define (rA-C2 rA) (vector-ref rA 25)) (define (rA-C4 rA) (vector-ref rA 26)) (define (rA-C5 rA) (vector-ref rA 27)) (define (rA-C6 rA) (vector-ref rA 28)) (define (rA-N6 rA) (vector-ref rA 29)) (define (rA-N7 rA) (vector-ref rA 30)) (define (rA-N9 rA) (vector-ref rA 31)) (define (rA-C8 rA) (vector-ref rA 32)) (define (rA-H2 rA) (vector-ref rA 33)) (define (rA-H61 rA) (vector-ref rA 34)) (define (rA-H62 rA) (vector-ref rA 35)) (define (rA-H8 rA) (vector-ref rA 36)) ;;; end Chez ;;; begin Chicken (define-record-type rA ;; defines the standard position for wc and wc-dumas dgf-base-tfo ;; defines the standard position for the connect function P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N6 N7 N9 C8 H2 H61 H62 H8) ;;; end Chicken ;;; begin Stalin (define make-rC (primitive-procedure make-structure rC 35)) (define rC? (primitive-procedure structure? rC)) (define rC-dgf-base-tfo (primitive-procedure structure-ref rC 0)) (define rC-P-O3*-275-tfo (primitive-procedure structure-ref rC 1)) (define rC-P-O3*-180-tfo (primitive-procedure structure-ref rC 2)) (define rC-P-O3*-60-tfo (primitive-procedure structure-ref rC 3)) (define rC-P (primitive-procedure structure-ref rC 4)) (define rC-O1P (primitive-procedure structure-ref rC 5)) (define rC-O2P (primitive-procedure structure-ref rC 6)) (define rC-O5* (primitive-procedure structure-ref rC 7)) (define rC-C5* (primitive-procedure structure-ref rC 8)) (define rC-H5* (primitive-procedure structure-ref rC 9)) (define rC-H5** (primitive-procedure structure-ref rC 10)) (define rC-C4* (primitive-procedure structure-ref rC 11)) (define rC-H4* (primitive-procedure structure-ref rC 12)) (define rC-O4* (primitive-procedure structure-ref rC 13)) (define rC-C1* (primitive-procedure structure-ref rC 14)) (define rC-H1* (primitive-procedure structure-ref rC 15)) (define rC-C2* (primitive-procedure structure-ref rC 16)) (define rC-H2** (primitive-procedure structure-ref rC 17)) (define rC-O2* (primitive-procedure structure-ref rC 18)) (define rC-H2* (primitive-procedure structure-ref rC 19)) (define rC-C3* (primitive-procedure structure-ref rC 20)) (define rC-H3* (primitive-procedure structure-ref rC 21)) (define rC-O3* (primitive-procedure structure-ref rC 22)) (define rC-N1 (primitive-procedure structure-ref rC 23)) (define rC-N3 (primitive-procedure structure-ref rC 24)) (define rC-C2 (primitive-procedure structure-ref rC 25)) (define rC-C4 (primitive-procedure structure-ref rC 26)) (define rC-C5 (primitive-procedure structure-ref rC 27)) (define rC-C6 (primitive-procedure structure-ref rC 28)) (define rC-N4 (primitive-procedure structure-ref rC 29)) (define rC-O2 (primitive-procedure structure-ref rC 30)) (define rC-H41 (primitive-procedure structure-ref rC 31)) (define rC-H42 (primitive-procedure structure-ref rC 32)) (define rC-H5 (primitive-procedure structure-ref rC 33)) (define rC-H6 (primitive-procedure structure-ref rC 34)) ;;; end Stalin ;;; begin Scheme->C (define (make-rC dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N4 O2 H41 H42 H5 H6) (vector dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N4 O2 H41 H42 H5 H6)) (define (rC? x) (and (vector? x) (= (vector-length x) 35))) (define (rC-dgf-base-tfo rC) (vector-ref rC 0)) (define (rC-P-O3*-275-tfo rC) (vector-ref rC 1)) (define (rC-P-O3*-180-tfo rC) (vector-ref rC 2)) (define (rC-P-O3*-60-tfo rC) (vector-ref rC 3)) (define (rC-P rC) (vector-ref rC 4)) (define (rC-O1P rC) (vector-ref rC 5)) (define (rC-O2P rC) (vector-ref rC 6)) (define (rC-O5* rC) (vector-ref rC 7)) (define (rC-C5* rC) (vector-ref rC 8)) (define (rC-H5* rC) (vector-ref rC 9)) (define (rC-H5** rC) (vector-ref rC 10)) (define (rC-C4* rC) (vector-ref rC 11)) (define (rC-H4* rC) (vector-ref rC 12)) (define (rC-O4* rC) (vector-ref rC 13)) (define (rC-C1* rC) (vector-ref rC 14)) (define (rC-H1* rC) (vector-ref rC 15)) (define (rC-C2* rC) (vector-ref rC 16)) (define (rC-H2** rC) (vector-ref rC 17)) (define (rC-O2* rC) (vector-ref rC 18)) (define (rC-H2* rC) (vector-ref rC 19)) (define (rC-C3* rC) (vector-ref rC 20)) (define (rC-H3* rC) (vector-ref rC 21)) (define (rC-O3* rC) (vector-ref rC 22)) (define (rC-N1 rC) (vector-ref rC 23)) (define (rC-N3 rC) (vector-ref rC 24)) (define (rC-C2 rC) (vector-ref rC 25)) (define (rC-C4 rC) (vector-ref rC 26)) (define (rC-C5 rC) (vector-ref rC 27)) (define (rC-C6 rC) (vector-ref rC 28)) (define (rC-N4 rC) (vector-ref rC 29)) (define (rC-O2 rC) (vector-ref rC 30)) (define (rC-H41 rC) (vector-ref rC 31)) (define (rC-H42 rC) (vector-ref rC 32)) (define (rC-H5 rC) (vector-ref rC 33)) (define (rC-H6 rC) (vector-ref rC 34)) ;;; end Scheme->C ;;; begin Gambit-C (define-structure rC ;; defines the standard position for wc and wc-dumas dgf-base-tfo ;; defines the standard position for the connect function P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N4 O2 H41 H42 H5 H6) ;;; end Gambit-C ;;; begin Bigloo (define (make-rC dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N4 O2 H41 H42 H5 H6) (vector dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N4 O2 H41 H42 H5 H6)) (define (rC? x) (and (vector? x) (= (vector-length x) 35))) (define (rC-dgf-base-tfo rC) (vector-ref rC 0)) (define (rC-P-O3*-275-tfo rC) (vector-ref rC 1)) (define (rC-P-O3*-180-tfo rC) (vector-ref rC 2)) (define (rC-P-O3*-60-tfo rC) (vector-ref rC 3)) (define (rC-P rC) (vector-ref rC 4)) (define (rC-O1P rC) (vector-ref rC 5)) (define (rC-O2P rC) (vector-ref rC 6)) (define (rC-O5* rC) (vector-ref rC 7)) (define (rC-C5* rC) (vector-ref rC 8)) (define (rC-H5* rC) (vector-ref rC 9)) (define (rC-H5** rC) (vector-ref rC 10)) (define (rC-C4* rC) (vector-ref rC 11)) (define (rC-H4* rC) (vector-ref rC 12)) (define (rC-O4* rC) (vector-ref rC 13)) (define (rC-C1* rC) (vector-ref rC 14)) (define (rC-H1* rC) (vector-ref rC 15)) (define (rC-C2* rC) (vector-ref rC 16)) (define (rC-H2** rC) (vector-ref rC 17)) (define (rC-O2* rC) (vector-ref rC 18)) (define (rC-H2* rC) (vector-ref rC 19)) (define (rC-C3* rC) (vector-ref rC 20)) (define (rC-H3* rC) (vector-ref rC 21)) (define (rC-O3* rC) (vector-ref rC 22)) (define (rC-N1 rC) (vector-ref rC 23)) (define (rC-N3 rC) (vector-ref rC 24)) (define (rC-C2 rC) (vector-ref rC 25)) (define (rC-C4 rC) (vector-ref rC 26)) (define (rC-C5 rC) (vector-ref rC 27)) (define (rC-C6 rC) (vector-ref rC 28)) (define (rC-N4 rC) (vector-ref rC 29)) (define (rC-O2 rC) (vector-ref rC 30)) (define (rC-H41 rC) (vector-ref rC 31)) (define (rC-H42 rC) (vector-ref rC 32)) (define (rC-H5 rC) (vector-ref rC 33)) (define (rC-H6 rC) (vector-ref rC 34)) ;;; end Bigloo ;;; begin Chez (define (make-rC dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N4 O2 H41 H42 H5 H6) (vector dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N4 O2 H41 H42 H5 H6)) (define (rC? x) (and (vector? x) (= (vector-length x) 35))) (define (rC-dgf-base-tfo rC) (vector-ref rC 0)) (define (rC-P-O3*-275-tfo rC) (vector-ref rC 1)) (define (rC-P-O3*-180-tfo rC) (vector-ref rC 2)) (define (rC-P-O3*-60-tfo rC) (vector-ref rC 3)) (define (rC-P rC) (vector-ref rC 4)) (define (rC-O1P rC) (vector-ref rC 5)) (define (rC-O2P rC) (vector-ref rC 6)) (define (rC-O5* rC) (vector-ref rC 7)) (define (rC-C5* rC) (vector-ref rC 8)) (define (rC-H5* rC) (vector-ref rC 9)) (define (rC-H5** rC) (vector-ref rC 10)) (define (rC-C4* rC) (vector-ref rC 11)) (define (rC-H4* rC) (vector-ref rC 12)) (define (rC-O4* rC) (vector-ref rC 13)) (define (rC-C1* rC) (vector-ref rC 14)) (define (rC-H1* rC) (vector-ref rC 15)) (define (rC-C2* rC) (vector-ref rC 16)) (define (rC-H2** rC) (vector-ref rC 17)) (define (rC-O2* rC) (vector-ref rC 18)) (define (rC-H2* rC) (vector-ref rC 19)) (define (rC-C3* rC) (vector-ref rC 20)) (define (rC-H3* rC) (vector-ref rC 21)) (define (rC-O3* rC) (vector-ref rC 22)) (define (rC-N1 rC) (vector-ref rC 23)) (define (rC-N3 rC) (vector-ref rC 24)) (define (rC-C2 rC) (vector-ref rC 25)) (define (rC-C4 rC) (vector-ref rC 26)) (define (rC-C5 rC) (vector-ref rC 27)) (define (rC-C6 rC) (vector-ref rC 28)) (define (rC-N4 rC) (vector-ref rC 29)) (define (rC-O2 rC) (vector-ref rC 30)) (define (rC-H41 rC) (vector-ref rC 31)) (define (rC-H42 rC) (vector-ref rC 32)) (define (rC-H5 rC) (vector-ref rC 33)) (define (rC-H6 rC) (vector-ref rC 34)) ;;; end Chez ;;; begin Chicken (define-record-type rC ;; defines the standard position for wc and wc-dumas dgf-base-tfo ;; defines the standard position for the connect function P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N4 O2 H41 H42 H5 H6) ;;; end Chicken ;;; begin Stalin (define make-rG (primitive-procedure make-structure rG 38)) (define rG? (primitive-procedure structure? rG)) (define rG-dgf-base-tfo (primitive-procedure structure-ref rG 0)) (define rG-P-O3*-275-tfo (primitive-procedure structure-ref rG 1)) (define rG-P-O3*-180-tfo (primitive-procedure structure-ref rG 2)) (define rG-P-O3*-60-tfo (primitive-procedure structure-ref rG 3)) (define rG-P (primitive-procedure structure-ref rG 4)) (define rG-O1P (primitive-procedure structure-ref rG 5)) (define rG-O2P (primitive-procedure structure-ref rG 6)) (define rG-O5* (primitive-procedure structure-ref rG 7)) (define rG-C5* (primitive-procedure structure-ref rG 8)) (define rG-H5* (primitive-procedure structure-ref rG 9)) (define rG-H5** (primitive-procedure structure-ref rG 10)) (define rG-C4* (primitive-procedure structure-ref rG 11)) (define rG-H4* (primitive-procedure structure-ref rG 12)) (define rG-O4* (primitive-procedure structure-ref rG 13)) (define rG-C1* (primitive-procedure structure-ref rG 14)) (define rG-H1* (primitive-procedure structure-ref rG 15)) (define rG-C2* (primitive-procedure structure-ref rG 16)) (define rG-H2** (primitive-procedure structure-ref rG 17)) (define rG-O2* (primitive-procedure structure-ref rG 18)) (define rG-H2* (primitive-procedure structure-ref rG 19)) (define rG-C3* (primitive-procedure structure-ref rG 20)) (define rG-H3* (primitive-procedure structure-ref rG 21)) (define rG-O3* (primitive-procedure structure-ref rG 22)) (define rG-N1 (primitive-procedure structure-ref rG 23)) (define rG-N3 (primitive-procedure structure-ref rG 24)) (define rG-C2 (primitive-procedure structure-ref rG 25)) (define rG-C4 (primitive-procedure structure-ref rG 26)) (define rG-C5 (primitive-procedure structure-ref rG 27)) (define rG-C6 (primitive-procedure structure-ref rG 28)) (define rG-N2 (primitive-procedure structure-ref rG 29)) (define rG-N7 (primitive-procedure structure-ref rG 30)) (define rG-N9 (primitive-procedure structure-ref rG 31)) (define rG-C8 (primitive-procedure structure-ref rG 32)) (define rG-O6 (primitive-procedure structure-ref rG 33)) (define rG-H1 (primitive-procedure structure-ref rG 34)) (define rG-H21 (primitive-procedure structure-ref rG 35)) (define rG-H22 (primitive-procedure structure-ref rG 36)) (define rG-H8 (primitive-procedure structure-ref rG 37)) ;;; end Stalin ;;; begin Scheme->C (define (make-rG dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N2 N7 N9 C8 O6 H1 H21 H22 H8) (vector dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N2 N7 N9 C8 O6 H1 H21 H22 H8)) (define (rG? x) (and (vector? x) (= (vector-length x) 38))) (define (rG-dgf-base-tfo rG) (vector-ref rG 0)) (define (rG-P-O3*-275-tfo rG) (vector-ref rG 1)) (define (rG-P-O3*-180-tfo rG) (vector-ref rG 2)) (define (rG-P-O3*-60-tfo rG) (vector-ref rG 3)) (define (rG-P rG) (vector-ref rG 4)) (define (rG-O1P rG) (vector-ref rG 5)) (define (rG-O2P rG) (vector-ref rG 6)) (define (rG-O5* rG) (vector-ref rG 7)) (define (rG-C5* rG) (vector-ref rG 8)) (define (rG-H5* rG) (vector-ref rG 9)) (define (rG-H5** rG) (vector-ref rG 10)) (define (rG-C4* rG) (vector-ref rG 11)) (define (rG-H4* rG) (vector-ref rG 12)) (define (rG-O4* rG) (vector-ref rG 13)) (define (rG-C1* rG) (vector-ref rG 14)) (define (rG-H1* rG) (vector-ref rG 15)) (define (rG-C2* rG) (vector-ref rG 16)) (define (rG-H2** rG) (vector-ref rG 17)) (define (rG-O2* rG) (vector-ref rG 18)) (define (rG-H2* rG) (vector-ref rG 19)) (define (rG-C3* rG) (vector-ref rG 20)) (define (rG-H3* rG) (vector-ref rG 21)) (define (rG-O3* rG) (vector-ref rG 22)) (define (rG-N1 rG) (vector-ref rG 23)) (define (rG-N3 rG) (vector-ref rG 24)) (define (rG-C2 rG) (vector-ref rG 25)) (define (rG-C4 rG) (vector-ref rG 26)) (define (rG-C5 rG) (vector-ref rG 27)) (define (rG-C6 rG) (vector-ref rG 28)) (define (rG-N2 rG) (vector-ref rG 29)) (define (rG-N7 rG) (vector-ref rG 30)) (define (rG-N9 rG) (vector-ref rG 31)) (define (rG-C8 rG) (vector-ref rG 32)) (define (rG-O6 rG) (vector-ref rG 33)) (define (rG-H1 rG) (vector-ref rG 34)) (define (rG-H21 rG) (vector-ref rG 35)) (define (rG-H22 rG) (vector-ref rG 36)) (define (rG-H8 rG) (vector-ref rG 37)) ;;; end Scheme->C ;;; begin Gambit-C (define-structure rG ;; defines the standard position for wc and wc-dumas dgf-base-tfo ;; defines the standard position for the connect function P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N2 N7 N9 C8 O6 H1 H21 H22 H8) ;;; end Gambit-C ;;; begin Bigloo (define (make-rG dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N2 N7 N9 C8 O6 H1 H21 H22 H8) (vector dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N2 N7 N9 C8 O6 H1 H21 H22 H8)) (define (rG? x) (and (vector? x) (= (vector-length x) 38))) (define (rG-dgf-base-tfo rG) (vector-ref rG 0)) (define (rG-P-O3*-275-tfo rG) (vector-ref rG 1)) (define (rG-P-O3*-180-tfo rG) (vector-ref rG 2)) (define (rG-P-O3*-60-tfo rG) (vector-ref rG 3)) (define (rG-P rG) (vector-ref rG 4)) (define (rG-O1P rG) (vector-ref rG 5)) (define (rG-O2P rG) (vector-ref rG 6)) (define (rG-O5* rG) (vector-ref rG 7)) (define (rG-C5* rG) (vector-ref rG 8)) (define (rG-H5* rG) (vector-ref rG 9)) (define (rG-H5** rG) (vector-ref rG 10)) (define (rG-C4* rG) (vector-ref rG 11)) (define (rG-H4* rG) (vector-ref rG 12)) (define (rG-O4* rG) (vector-ref rG 13)) (define (rG-C1* rG) (vector-ref rG 14)) (define (rG-H1* rG) (vector-ref rG 15)) (define (rG-C2* rG) (vector-ref rG 16)) (define (rG-H2** rG) (vector-ref rG 17)) (define (rG-O2* rG) (vector-ref rG 18)) (define (rG-H2* rG) (vector-ref rG 19)) (define (rG-C3* rG) (vector-ref rG 20)) (define (rG-H3* rG) (vector-ref rG 21)) (define (rG-O3* rG) (vector-ref rG 22)) (define (rG-N1 rG) (vector-ref rG 23)) (define (rG-N3 rG) (vector-ref rG 24)) (define (rG-C2 rG) (vector-ref rG 25)) (define (rG-C4 rG) (vector-ref rG 26)) (define (rG-C5 rG) (vector-ref rG 27)) (define (rG-C6 rG) (vector-ref rG 28)) (define (rG-N2 rG) (vector-ref rG 29)) (define (rG-N7 rG) (vector-ref rG 30)) (define (rG-N9 rG) (vector-ref rG 31)) (define (rG-C8 rG) (vector-ref rG 32)) (define (rG-O6 rG) (vector-ref rG 33)) (define (rG-H1 rG) (vector-ref rG 34)) (define (rG-H21 rG) (vector-ref rG 35)) (define (rG-H22 rG) (vector-ref rG 36)) (define (rG-H8 rG) (vector-ref rG 37)) ;;; end Bigloo ;;; begin Chez (define (make-rG dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N2 N7 N9 C8 O6 H1 H21 H22 H8) (vector dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N2 N7 N9 C8 O6 H1 H21 H22 H8)) (define (rG? x) (and (vector? x) (= (vector-length x) 38))) (define (rG-dgf-base-tfo rG) (vector-ref rG 0)) (define (rG-P-O3*-275-tfo rG) (vector-ref rG 1)) (define (rG-P-O3*-180-tfo rG) (vector-ref rG 2)) (define (rG-P-O3*-60-tfo rG) (vector-ref rG 3)) (define (rG-P rG) (vector-ref rG 4)) (define (rG-O1P rG) (vector-ref rG 5)) (define (rG-O2P rG) (vector-ref rG 6)) (define (rG-O5* rG) (vector-ref rG 7)) (define (rG-C5* rG) (vector-ref rG 8)) (define (rG-H5* rG) (vector-ref rG 9)) (define (rG-H5** rG) (vector-ref rG 10)) (define (rG-C4* rG) (vector-ref rG 11)) (define (rG-H4* rG) (vector-ref rG 12)) (define (rG-O4* rG) (vector-ref rG 13)) (define (rG-C1* rG) (vector-ref rG 14)) (define (rG-H1* rG) (vector-ref rG 15)) (define (rG-C2* rG) (vector-ref rG 16)) (define (rG-H2** rG) (vector-ref rG 17)) (define (rG-O2* rG) (vector-ref rG 18)) (define (rG-H2* rG) (vector-ref rG 19)) (define (rG-C3* rG) (vector-ref rG 20)) (define (rG-H3* rG) (vector-ref rG 21)) (define (rG-O3* rG) (vector-ref rG 22)) (define (rG-N1 rG) (vector-ref rG 23)) (define (rG-N3 rG) (vector-ref rG 24)) (define (rG-C2 rG) (vector-ref rG 25)) (define (rG-C4 rG) (vector-ref rG 26)) (define (rG-C5 rG) (vector-ref rG 27)) (define (rG-C6 rG) (vector-ref rG 28)) (define (rG-N2 rG) (vector-ref rG 29)) (define (rG-N7 rG) (vector-ref rG 30)) (define (rG-N9 rG) (vector-ref rG 31)) (define (rG-C8 rG) (vector-ref rG 32)) (define (rG-O6 rG) (vector-ref rG 33)) (define (rG-H1 rG) (vector-ref rG 34)) (define (rG-H21 rG) (vector-ref rG 35)) (define (rG-H22 rG) (vector-ref rG 36)) (define (rG-H8 rG) (vector-ref rG 37)) ;;; end Chez ;;; begin Chicken (define-record-type rG ;; defines the standard position for wc and wc-dumas dgf-base-tfo ;; defines the standard position for the connect function P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 N2 N7 N9 C8 O6 H1 H21 H22 H8) ;;; end Chicken ;;; begin Stalin (define make-rU (primitive-procedure make-structure rU 34)) (define rU? (primitive-procedure structure? rU)) (define rU-dgf-base-tfo (primitive-procedure structure-ref rU 0)) (define rU-P-O3*-275-tfo (primitive-procedure structure-ref rU 1)) (define rU-P-O3*-180-tfo (primitive-procedure structure-ref rU 2)) (define rU-P-O3*-60-tfo (primitive-procedure structure-ref rU 3)) (define rU-P (primitive-procedure structure-ref rU 4)) (define rU-O1P (primitive-procedure structure-ref rU 5)) (define rU-O2P (primitive-procedure structure-ref rU 6)) (define rU-O5* (primitive-procedure structure-ref rU 7)) (define rU-C5* (primitive-procedure structure-ref rU 8)) (define rU-H5* (primitive-procedure structure-ref rU 9)) (define rU-H5** (primitive-procedure structure-ref rU 10)) (define rU-C4* (primitive-procedure structure-ref rU 11)) (define rU-H4* (primitive-procedure structure-ref rU 12)) (define rU-O4* (primitive-procedure structure-ref rU 13)) (define rU-C1* (primitive-procedure structure-ref rU 14)) (define rU-H1* (primitive-procedure structure-ref rU 15)) (define rU-C2* (primitive-procedure structure-ref rU 16)) (define rU-H2** (primitive-procedure structure-ref rU 17)) (define rU-O2* (primitive-procedure structure-ref rU 18)) (define rU-H2* (primitive-procedure structure-ref rU 19)) (define rU-C3* (primitive-procedure structure-ref rU 20)) (define rU-H3* (primitive-procedure structure-ref rU 21)) (define rU-O3* (primitive-procedure structure-ref rU 22)) (define rU-N1 (primitive-procedure structure-ref rU 23)) (define rU-N3 (primitive-procedure structure-ref rU 24)) (define rU-C2 (primitive-procedure structure-ref rU 25)) (define rU-C4 (primitive-procedure structure-ref rU 26)) (define rU-C5 (primitive-procedure structure-ref rU 27)) (define rU-C6 (primitive-procedure structure-ref rU 28)) (define rU-O2 (primitive-procedure structure-ref rU 29)) (define rU-O4 (primitive-procedure structure-ref rU 30)) (define rU-H3 (primitive-procedure structure-ref rU 31)) (define rU-H5 (primitive-procedure structure-ref rU 32)) (define rU-H6 (primitive-procedure structure-ref rU 33)) ;;; end Stalin ;;; begin Scheme->C (define (make-rU dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 O2 O4 H3 H5 H6) (vector dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 O2 O4 H3 H5 H6)) (define (rU? x) (and (vector? x) (= (vector-length x) 34))) (define (rU-dgf-base-tfo rU) (vector-ref rU 0)) (define (rU-P-O3*-275-tfo rU) (vector-ref rU 1)) (define (rU-P-O3*-180-tfo rU) (vector-ref rU 2)) (define (rU-P-O3*-60-tfo rU) (vector-ref rU 3)) (define (rU-P rU) (vector-ref rU 4)) (define (rU-O1P rU) (vector-ref rU 5)) (define (rU-O2P rU) (vector-ref rU 6)) (define (rU-O5* rU) (vector-ref rU 7)) (define (rU-C5* rU) (vector-ref rU 8)) (define (rU-H5* rU) (vector-ref rU 9)) (define (rU-H5** rU) (vector-ref rU 10)) (define (rU-C4* rU) (vector-ref rU 11)) (define (rU-H4* rU) (vector-ref rU 12)) (define (rU-O4* rU) (vector-ref rU 13)) (define (rU-C1* rU) (vector-ref rU 14)) (define (rU-H1* rU) (vector-ref rU 15)) (define (rU-C2* rU) (vector-ref rU 16)) (define (rU-H2** rU) (vector-ref rU 17)) (define (rU-O2* rU) (vector-ref rU 18)) (define (rU-H2* rU) (vector-ref rU 19)) (define (rU-C3* rU) (vector-ref rU 20)) (define (rU-H3* rU) (vector-ref rU 21)) (define (rU-O3* rU) (vector-ref rU 22)) (define (rU-N1 rU) (vector-ref rU 23)) (define (rU-N3 rU) (vector-ref rU 24)) (define (rU-C2 rU) (vector-ref rU 25)) (define (rU-C4 rU) (vector-ref rU 26)) (define (rU-C5 rU) (vector-ref rU 27)) (define (rU-C6 rU) (vector-ref rU 28)) (define (rU-O2 rU) (vector-ref rU 29)) (define (rU-O4 rU) (vector-ref rU 30)) (define (rU-H3 rU) (vector-ref rU 31)) (define (rU-H5 rU) (vector-ref rU 32)) (define (rU-H6 rU) (vector-ref rU 33)) ;;; end Scheme->C ;;; begin Gambit-C (define-structure rU ;; defines the standard position for wc and wc-dumas dgf-base-tfo ;; defines the standard position for the connect function P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 O2 O4 H3 H5 H6) ;;; end Gambit-C ;;; begin Bigloo (define (make-rU dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 O2 O4 H3 H5 H6) (vector dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 O2 O4 H3 H5 H6)) (define (rU? x) (and (vector? x) (= (vector-length x) 34))) (define (rU-dgf-base-tfo rU) (vector-ref rU 0)) (define (rU-P-O3*-275-tfo rU) (vector-ref rU 1)) (define (rU-P-O3*-180-tfo rU) (vector-ref rU 2)) (define (rU-P-O3*-60-tfo rU) (vector-ref rU 3)) (define (rU-P rU) (vector-ref rU 4)) (define (rU-O1P rU) (vector-ref rU 5)) (define (rU-O2P rU) (vector-ref rU 6)) (define (rU-O5* rU) (vector-ref rU 7)) (define (rU-C5* rU) (vector-ref rU 8)) (define (rU-H5* rU) (vector-ref rU 9)) (define (rU-H5** rU) (vector-ref rU 10)) (define (rU-C4* rU) (vector-ref rU 11)) (define (rU-H4* rU) (vector-ref rU 12)) (define (rU-O4* rU) (vector-ref rU 13)) (define (rU-C1* rU) (vector-ref rU 14)) (define (rU-H1* rU) (vector-ref rU 15)) (define (rU-C2* rU) (vector-ref rU 16)) (define (rU-H2** rU) (vector-ref rU 17)) (define (rU-O2* rU) (vector-ref rU 18)) (define (rU-H2* rU) (vector-ref rU 19)) (define (rU-C3* rU) (vector-ref rU 20)) (define (rU-H3* rU) (vector-ref rU 21)) (define (rU-O3* rU) (vector-ref rU 22)) (define (rU-N1 rU) (vector-ref rU 23)) (define (rU-N3 rU) (vector-ref rU 24)) (define (rU-C2 rU) (vector-ref rU 25)) (define (rU-C4 rU) (vector-ref rU 26)) (define (rU-C5 rU) (vector-ref rU 27)) (define (rU-C6 rU) (vector-ref rU 28)) (define (rU-O2 rU) (vector-ref rU 29)) (define (rU-O4 rU) (vector-ref rU 30)) (define (rU-H3 rU) (vector-ref rU 31)) (define (rU-H5 rU) (vector-ref rU 32)) (define (rU-H6 rU) (vector-ref rU 33)) ;;; end Bigloo ;;; begin Chez (define (make-rU dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 O2 O4 H3 H5 H6) (vector dgf-base-tfo P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 O2 O4 H3 H5 H6)) (define (rU? x) (and (vector? x) (= (vector-length x) 34))) (define (rU-dgf-base-tfo rU) (vector-ref rU 0)) (define (rU-P-O3*-275-tfo rU) (vector-ref rU 1)) (define (rU-P-O3*-180-tfo rU) (vector-ref rU 2)) (define (rU-P-O3*-60-tfo rU) (vector-ref rU 3)) (define (rU-P rU) (vector-ref rU 4)) (define (rU-O1P rU) (vector-ref rU 5)) (define (rU-O2P rU) (vector-ref rU 6)) (define (rU-O5* rU) (vector-ref rU 7)) (define (rU-C5* rU) (vector-ref rU 8)) (define (rU-H5* rU) (vector-ref rU 9)) (define (rU-H5** rU) (vector-ref rU 10)) (define (rU-C4* rU) (vector-ref rU 11)) (define (rU-H4* rU) (vector-ref rU 12)) (define (rU-O4* rU) (vector-ref rU 13)) (define (rU-C1* rU) (vector-ref rU 14)) (define (rU-H1* rU) (vector-ref rU 15)) (define (rU-C2* rU) (vector-ref rU 16)) (define (rU-H2** rU) (vector-ref rU 17)) (define (rU-O2* rU) (vector-ref rU 18)) (define (rU-H2* rU) (vector-ref rU 19)) (define (rU-C3* rU) (vector-ref rU 20)) (define (rU-H3* rU) (vector-ref rU 21)) (define (rU-O3* rU) (vector-ref rU 22)) (define (rU-N1 rU) (vector-ref rU 23)) (define (rU-N3 rU) (vector-ref rU 24)) (define (rU-C2 rU) (vector-ref rU 25)) (define (rU-C4 rU) (vector-ref rU 26)) (define (rU-C5 rU) (vector-ref rU 27)) (define (rU-C6 rU) (vector-ref rU 28)) (define (rU-O2 rU) (vector-ref rU 29)) (define (rU-O4 rU) (vector-ref rU 30)) (define (rU-H3 rU) (vector-ref rU 31)) (define (rU-H5 rU) (vector-ref rU 32)) (define (rU-H6 rU) (vector-ref rU 33)) ;;; end Chez ;;; begin Chicken (define-record-type rU ;; defines the standard position for wc and wc-dumas dgf-base-tfo ;; defines the standard position for the connect function P-O3*-275-tfo P-O3*-180-tfo P-O3*-60-tfo P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3* H3* O3* N1 N3 C2 C4 C5 C6 O2 O4 H3 H5 H6) ;;; end Chicken ;;; Database of nucleotide conformations: (define rA (make-rA (make-tfo -0.0018 -0.8207 0.5714 ; dgf-base-tfo 0.2679 -0.5509 -0.7904 0.9634 0.1517 0.2209 0.0073 8.4030 0.6232) (make-tfo -0.8143 -0.5091 -0.2788 ; P-O3*-275-tfo -0.0433 -0.4257 0.9038 -0.5788 0.7480 0.3246 1.5227 6.9114 -7.0765) (make-tfo 0.3822 -0.7477 0.5430 ; P-O3*-180-tfo 0.4552 0.6637 0.5935 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (make-tfo 0.5640 0.8007 -0.2022 ; P-O3*-60-tfo -0.8247 0.5587 -0.0878 0.0426 0.2162 0.9754 6.2694 -7.0540 3.3316) (make-pt 2.8930 8.5380 -3.3280) ; P (make-pt 1.6980 7.6960 -3.5570) ; O1P (make-pt 3.2260 9.5010 -4.4020) ; O2P (make-pt 4.1590 7.6040 -3.0340) ; O5* (make-pt 5.4550 8.2120 -2.8810) ; C5* (make-pt 5.4546 8.8508 -1.9978) ; H5* (make-pt 5.7588 8.6625 -3.8259) ; H5** (make-pt 6.4970 7.1480 -2.5980) ; C4* (make-pt 7.4896 7.5919 -2.5214) ; H4* (make-pt 6.1630 6.4860 -1.3440) ; O4* (make-pt 6.5400 5.1200 -1.4190) ; C1* (make-pt 7.2763 4.9681 -0.6297) ; H1* (make-pt 7.1940 4.8830 -2.7770) ; C2* (make-pt 6.8667 3.9183 -3.1647) ; H2** (make-pt 8.5860 5.0910 -2.6140) ; O2* (make-pt 8.9510 4.7626 -1.7890) ; H2* (make-pt 6.5720 6.0040 -3.6090) ; C3* (make-pt 5.5636 5.7066 -3.8966) ; H3* (make-pt 7.3801 6.3562 -4.7350) ; O3* (make-pt 4.7150 0.4910 -0.1360) ; N1 (make-pt 6.3490 2.1730 -0.6020) ; N3 (make-pt 5.9530 0.9650 -0.2670) ; C2 (make-pt 5.2900 2.9790 -0.8260) ; C4 (make-pt 3.9720 2.6390 -0.7330) ; C5 (make-pt 3.6770 1.3160 -0.3660) ; C6 (make-pt 2.4280 0.8450 -0.2360) ; N6 (make-pt 3.1660 3.7290 -1.0360) ; N7 (make-pt 5.3170 4.2990 -1.1930) ; N9 (make-pt 4.0100 4.6780 -1.2990) ; C8 (make-pt 6.6890 0.1903 -0.0518) ; H2 (make-pt 1.6470 1.4460 -0.4040) ; H61 (make-pt 2.2780 -0.1080 -0.0280) ; H62 (make-pt 3.4421 5.5744 -1.5482) ; H8 )) (define rA01 (make-rA (make-tfo -0.0043 -0.8175 0.5759 ; dgf-base-tfo 0.2617 -0.5567 -0.7884 0.9651 0.1473 0.2164 0.0359 8.3929 0.5532) (make-tfo -0.8143 -0.5091 -0.2788 ; P-O3*-275-tfo -0.0433 -0.4257 0.9038 -0.5788 0.7480 0.3246 1.5227 6.9114 -7.0765) (make-tfo 0.3822 -0.7477 0.5430 ; P-O3*-180-tfo 0.4552 0.6637 0.5935 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (make-tfo 0.5640 0.8007 -0.2022 ; P-O3*-60-tfo -0.8247 0.5587 -0.0878 0.0426 0.2162 0.9754 6.2694 -7.0540 3.3316) (make-pt 2.8930 8.5380 -3.3280) ; P (make-pt 1.6980 7.6960 -3.5570) ; O1P (make-pt 3.2260 9.5010 -4.4020) ; O2P (make-pt 4.1590 7.6040 -3.0340) ; O5* (make-pt 5.4352 8.2183 -2.7757) ; C5* (make-pt 5.3830 8.7883 -1.8481) ; H5* (make-pt 5.7729 8.7436 -3.6691) ; H5** (make-pt 6.4830 7.1518 -2.5252) ; C4* (make-pt 7.4749 7.5972 -2.4482) ; H4* (make-pt 6.1626 6.4620 -1.2827) ; O4* (make-pt 6.5431 5.0992 -1.3905) ; C1* (make-pt 7.2871 4.9328 -0.6114) ; H1* (make-pt 7.1852 4.8935 -2.7592) ; C2* (make-pt 6.8573 3.9363 -3.1645) ; H2** (make-pt 8.5780 5.1025 -2.6046) ; O2* (make-pt 8.9516 4.7577 -1.7902) ; H2* (make-pt 6.5522 6.0300 -3.5612) ; C3* (make-pt 5.5420 5.7356 -3.8459) ; H3* (make-pt 7.3487 6.4089 -4.6867) ; O3* (make-pt 4.7442 0.4514 -0.1390) ; N1 (make-pt 6.3687 2.1459 -0.5926) ; N3 (make-pt 5.9795 0.9335 -0.2657) ; C2 (make-pt 5.3052 2.9471 -0.8125) ; C4 (make-pt 3.9891 2.5987 -0.7230) ; C5 (make-pt 3.7016 1.2717 -0.3647) ; C6 (make-pt 2.4553 0.7925 -0.2390) ; N6 (make-pt 3.1770 3.6859 -1.0198) ; N7 (make-pt 5.3247 4.2695 -1.1710) ; N9 (make-pt 4.0156 4.6415 -1.2759) ; C8 (make-pt 6.7198 0.1618 -0.0547) ; H2 (make-pt 1.6709 1.3900 -0.4039) ; H61 (make-pt 2.3107 -0.1627 -0.0373) ; H62 (make-pt 3.4426 5.5361 -1.5199) ; H8 )) (define rA02 (make-rA (make-tfo 0.5566 0.0449 0.8296 ; dgf-base-tfo 0.5125 0.7673 -0.3854 -0.6538 0.6397 0.4041 -9.1161 -3.7679 -2.9968) (make-tfo -0.8143 -0.5091 -0.2788 ; P-O3*-275-tfo -0.0433 -0.4257 0.9038 -0.5788 0.7480 0.3246 1.5227 6.9114 -7.0765) (make-tfo 0.3822 -0.7477 0.5430 ; P-O3*-180-tfo 0.4552 0.6637 0.5935 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (make-tfo 0.5640 0.8007 -0.2022 ; P-O3*-60-tfo -0.8247 0.5587 -0.0878 0.0426 0.2162 0.9754 6.2694 -7.0540 3.3316) (make-pt 2.8930 8.5380 -3.3280) ; P (make-pt 1.6980 7.6960 -3.5570) ; O1P (make-pt 3.2260 9.5010 -4.4020) ; O2P (make-pt 4.1590 7.6040 -3.0340) ; O5* (make-pt 4.5778 6.6594 -4.0364) ; C5* (make-pt 4.9220 7.1963 -4.9204) ; H5* (make-pt 3.7996 5.9091 -4.1764) ; H5** (make-pt 5.7873 5.8869 -3.5482) ; C4* (make-pt 6.0405 5.0875 -4.2446) ; H4* (make-pt 6.9135 6.8036 -3.4310) ; O4* (make-pt 7.7293 6.4084 -2.3392) ; C1* (make-pt 8.7078 6.1815 -2.7624) ; H1* (make-pt 7.1305 5.1418 -1.7347) ; C2* (make-pt 7.2040 5.1982 -0.6486) ; H2** (make-pt 7.7417 4.0392 -2.3813) ; O2* (make-pt 8.6785 4.1443 -2.5630) ; H2* (make-pt 5.6666 5.2728 -2.1536) ; C3* (make-pt 5.1747 5.9805 -1.4863) ; H3* (make-pt 4.9997 4.0086 -2.1973) ; O3* (make-pt 10.3245 8.5459 1.5467) ; N1 (make-pt 9.8051 6.9432 -0.1497) ; N3 (make-pt 10.5175 7.4328 0.8408) ; C2 (make-pt 8.7523 7.7422 -0.4228) ; C4 (make-pt 8.4257 8.9060 0.2099) ; C5 (make-pt 9.2665 9.3242 1.2540) ; C6 (make-pt 9.0664 10.4462 1.9610) ; N6 (make-pt 7.2750 9.4537 -0.3428) ; N7 (make-pt 7.7962 7.5519 -1.3859) ; N9 (make-pt 6.9479 8.6157 -1.2771) ; C8 (make-pt 11.4063 6.9047 1.1859) ; H2 (make-pt 8.2845 11.0341 1.7552) ; H61 (make-pt 9.6584 10.6647 2.7198) ; H62 (make-pt 6.0430 8.9853 -1.7594) ; H8 )) (define rA03 (make-rA (make-tfo -0.5021 0.0731 0.8617 ; dgf-base-tfo -0.8112 0.3054 -0.4986 -0.2996 -0.9494 -0.0940 6.4273 -5.1944 -3.7807) (make-tfo -0.8143 -0.5091 -0.2788 ; P-O3*-275-tfo -0.0433 -0.4257 0.9038 -0.5788 0.7480 0.3246 1.5227 6.9114 -7.0765) (make-tfo 0.3822 -0.7477 0.5430 ; P-O3*-180-tfo 0.4552 0.6637 0.5935 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (make-tfo 0.5640 0.8007 -0.2022 ; P-O3*-60-tfo -0.8247 0.5587 -0.0878 0.0426 0.2162 0.9754 6.2694 -7.0540 3.3316) (make-pt 2.8930 8.5380 -3.3280) ; P (make-pt 1.6980 7.6960 -3.5570) ; O1P (make-pt 3.2260 9.5010 -4.4020) ; O2P (make-pt 4.1590 7.6040 -3.0340) ; O5* (make-pt 4.1214 6.7116 -1.9049) ; C5* (make-pt 3.3465 5.9610 -2.0607) ; H5* (make-pt 4.0789 7.2928 -0.9837) ; H5** (make-pt 5.4170 5.9293 -1.8186) ; C4* (make-pt 5.4506 5.3400 -0.9023) ; H4* (make-pt 5.5067 5.0417 -2.9703) ; O4* (make-pt 6.8650 4.9152 -3.3612) ; C1* (make-pt 7.1090 3.8577 -3.2603) ; H1* (make-pt 7.7152 5.7282 -2.3894) ; C2* (make-pt 8.5029 6.2356 -2.9463) ; H2** (make-pt 8.1036 4.8568 -1.3419) ; O2* (make-pt 8.3270 3.9651 -1.6184) ; H2* (make-pt 6.7003 6.7565 -1.8911) ; C3* (make-pt 6.5898 7.5329 -2.6482) ; H3* (make-pt 7.0505 7.2878 -0.6105) ; O3* (make-pt 9.6740 4.7656 -7.6614) ; N1 (make-pt 9.0739 4.3013 -5.3941) ; N3 (make-pt 9.8416 4.2192 -6.4581) ; C2 (make-pt 7.9885 5.0632 -5.6446) ; C4 (make-pt 7.6822 5.6856 -6.8194) ; C5 (make-pt 8.5831 5.5215 -7.8840) ; C6 (make-pt 8.4084 6.0747 -9.0933) ; N6 (make-pt 6.4857 6.3816 -6.7035) ; N7 (make-pt 6.9740 5.3703 -4.7760) ; N9 (make-pt 6.1133 6.1613 -5.4808) ; C8 (make-pt 10.7627 3.6375 -6.4220) ; H2 (make-pt 7.6031 6.6390 -9.2733) ; H61 (make-pt 9.1004 5.9708 -9.7893) ; H62 (make-pt 5.1705 6.6830 -5.3167) ; H8 )) (define rA04 (make-rA (make-tfo -0.5426 -0.8175 0.1929 ; dgf-base-tfo 0.8304 -0.5567 -0.0237 0.1267 0.1473 0.9809 -0.5075 8.3929 0.2229) (make-tfo -0.8143 -0.5091 -0.2788 ; P-O3*-275-tfo -0.0433 -0.4257 0.9038 -0.5788 0.7480 0.3246 1.5227 6.9114 -7.0765) (make-tfo 0.3822 -0.7477 0.5430 ; P-O3*-180-tfo 0.4552 0.6637 0.5935 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (make-tfo 0.5640 0.8007 -0.2022 ; P-O3*-60-tfo -0.8247 0.5587 -0.0878 0.0426 0.2162 0.9754 6.2694 -7.0540 3.3316) (make-pt 2.8930 8.5380 -3.3280) ; P (make-pt 1.6980 7.6960 -3.5570) ; O1P (make-pt 3.2260 9.5010 -4.4020) ; O2P (make-pt 4.1590 7.6040 -3.0340) ; O5* (make-pt 5.4352 8.2183 -2.7757) ; C5* (make-pt 5.3830 8.7883 -1.8481) ; H5* (make-pt 5.7729 8.7436 -3.6691) ; H5** (make-pt 6.4830 7.1518 -2.5252) ; C4* (make-pt 7.4749 7.5972 -2.4482) ; H4* (make-pt 6.1626 6.4620 -1.2827) ; O4* (make-pt 6.5431 5.0992 -1.3905) ; C1* (make-pt 7.2871 4.9328 -0.6114) ; H1* (make-pt 7.1852 4.8935 -2.7592) ; C2* (make-pt 6.8573 3.9363 -3.1645) ; H2** (make-pt 8.5780 5.1025 -2.6046) ; O2* (make-pt 8.9516 4.7577 -1.7902) ; H2* (make-pt 6.5522 6.0300 -3.5612) ; C3* (make-pt 5.5420 5.7356 -3.8459) ; H3* (make-pt 7.3487 6.4089 -4.6867) ; O3* (make-pt 3.6343 2.6680 2.0783) ; N1 (make-pt 5.4505 3.9805 1.2446) ; N3 (make-pt 4.7540 3.3816 2.1851) ; C2 (make-pt 4.8805 3.7951 0.0354) ; C4 (make-pt 3.7416 3.0925 -0.2305) ; C5 (make-pt 3.0873 2.4980 0.8606) ; C6 (make-pt 1.9600 1.7805 0.7462) ; N6 (make-pt 3.4605 3.1184 -1.5906) ; N7 (make-pt 5.3247 4.2695 -1.1710) ; N9 (make-pt 4.4244 3.8244 -2.0953) ; C8 (make-pt 5.0814 3.4352 3.2234) ; H2 (make-pt 1.5423 1.6454 -0.1520) ; H61 (make-pt 1.5716 1.3398 1.5392) ; H62 (make-pt 4.2675 3.8876 -3.1721) ; H8 )) (define rA05 (make-rA (make-tfo -0.5891 0.0449 0.8068 ; dgf-base-tfo 0.5375 0.7673 0.3498 -0.6034 0.6397 -0.4762 -0.3019 -3.7679 -9.5913) (make-tfo -0.8143 -0.5091 -0.2788 ; P-O3*-275-tfo -0.0433 -0.4257 0.9038 -0.5788 0.7480 0.3246 1.5227 6.9114 -7.0765) (make-tfo 0.3822 -0.7477 0.5430 ; P-O3*-180-tfo 0.4552 0.6637 0.5935 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (make-tfo 0.5640 0.8007 -0.2022 ; P-O3*-60-tfo -0.8247 0.5587 -0.0878 0.0426 0.2162 0.9754 6.2694 -7.0540 3.3316) (make-pt 2.8930 8.5380 -3.3280) ; P (make-pt 1.6980 7.6960 -3.5570) ; O1P (make-pt 3.2260 9.5010 -4.4020) ; O2P (make-pt 4.1590 7.6040 -3.0340) ; O5* (make-pt 4.5778 6.6594 -4.0364) ; C5* (make-pt 4.9220 7.1963 -4.9204) ; H5* (make-pt 3.7996 5.9091 -4.1764) ; H5** (make-pt 5.7873 5.8869 -3.5482) ; C4* (make-pt 6.0405 5.0875 -4.2446) ; H4* (make-pt 6.9135 6.8036 -3.4310) ; O4* (make-pt 7.7293 6.4084 -2.3392) ; C1* (make-pt 8.7078 6.1815 -2.7624) ; H1* (make-pt 7.1305 5.1418 -1.7347) ; C2* (make-pt 7.2040 5.1982 -0.6486) ; H2** (make-pt 7.7417 4.0392 -2.3813) ; O2* (make-pt 8.6785 4.1443 -2.5630) ; H2* (make-pt 5.6666 5.2728 -2.1536) ; C3* (make-pt 5.1747 5.9805 -1.4863) ; H3* (make-pt 4.9997 4.0086 -2.1973) ; O3* (make-pt 10.2594 10.6774 -1.0056) ; N1 (make-pt 9.7528 8.7080 -2.2631) ; N3 (make-pt 10.4471 9.7876 -1.9791) ; C2 (make-pt 8.7271 8.5575 -1.3991) ; C4 (make-pt 8.4100 9.3803 -0.3580) ; C5 (make-pt 9.2294 10.5030 -0.1574) ; C6 (make-pt 9.0349 11.3951 0.8250) ; N6 (make-pt 7.2891 8.9068 0.3121) ; N7 (make-pt 7.7962 7.5519 -1.3859) ; N9 (make-pt 6.9702 7.8292 -0.3353) ; C8 (make-pt 11.3132 10.0537 -2.5851) ; H2 (make-pt 8.2741 11.2784 1.4629) ; H61 (make-pt 9.6733 12.1368 0.9529) ; H62 (make-pt 6.0888 7.3990 0.1403) ; H8 )) (define rA06 (make-rA (make-tfo -0.9815 0.0731 -0.1772 ; dgf-base-tfo 0.1912 0.3054 -0.9328 -0.0141 -0.9494 -0.3137 5.7506 -5.1944 4.7470) (make-tfo -0.8143 -0.5091 -0.2788 ; P-O3*-275-tfo -0.0433 -0.4257 0.9038 -0.5788 0.7480 0.3246 1.5227 6.9114 -7.0765) (make-tfo 0.3822 -0.7477 0.5430 ; P-O3*-180-tfo 0.4552 0.6637 0.5935 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (make-tfo 0.5640 0.8007 -0.2022 ; P-O3*-60-tfo -0.8247 0.5587 -0.0878 0.0426 0.2162 0.9754 6.2694 -7.0540 3.3316) (make-pt 2.8930 8.5380 -3.3280) ; P (make-pt 1.6980 7.6960 -3.5570) ; O1P (make-pt 3.2260 9.5010 -4.4020) ; O2P (make-pt 4.1590 7.6040 -3.0340) ; O5* (make-pt 4.1214 6.7116 -1.9049) ; C5* (make-pt 3.3465 5.9610 -2.0607) ; H5* (make-pt 4.0789 7.2928 -0.9837) ; H5** (make-pt 5.4170 5.9293 -1.8186) ; C4* (make-pt 5.4506 5.3400 -0.9023) ; H4* (make-pt 5.5067 5.0417 -2.9703) ; O4* (make-pt 6.8650 4.9152 -3.3612) ; C1* (make-pt 7.1090 3.8577 -3.2603) ; H1* (make-pt 7.7152 5.7282 -2.3894) ; C2* (make-pt 8.5029 6.2356 -2.9463) ; H2** (make-pt 8.1036 4.8568 -1.3419) ; O2* (make-pt 8.3270 3.9651 -1.6184) ; H2* (make-pt 6.7003 6.7565 -1.8911) ; C3* (make-pt 6.5898 7.5329 -2.6482) ; H3* (make-pt 7.0505 7.2878 -0.6105) ; O3* (make-pt 6.6624 3.5061 -8.2986) ; N1 (make-pt 6.5810 3.2570 -5.9221) ; N3 (make-pt 6.5151 2.8263 -7.1625) ; C2 (make-pt 6.8364 4.5817 -5.8882) ; C4 (make-pt 7.0116 5.4064 -6.9609) ; C5 (make-pt 6.9173 4.8260 -8.2361) ; C6 (make-pt 7.0668 5.5163 -9.3763) ; N6 (make-pt 7.2573 6.7070 -6.5394) ; N7 (make-pt 6.9740 5.3703 -4.7760) ; N9 (make-pt 7.2238 6.6275 -5.2453) ; C8 (make-pt 6.3146 1.7741 -7.3641) ; H2 (make-pt 7.2568 6.4972 -9.3456) ; H61 (make-pt 7.0437 5.0478 -10.2446) ; H62 (make-pt 7.4108 7.6227 -4.8418) ; H8 )) (define rA07 (make-rA (make-tfo 0.2379 0.1310 -0.9624 ; dgf-base-tfo -0.5876 -0.7696 -0.2499 -0.7734 0.6249 -0.1061 30.9870 -26.9344 42.6416) (make-tfo 0.7529 0.1548 0.6397 ; P-O3*-275-tfo 0.2952 -0.9481 -0.1180 0.5882 0.2777 -0.7595 -58.8919 -11.3095 6.0866) (make-tfo -0.0239 0.9667 -0.2546 ; P-O3*-180-tfo 0.9731 -0.0359 -0.2275 -0.2290 -0.2532 -0.9399 3.5401 -29.7913 52.2796) (make-tfo -0.8912 -0.4531 0.0242 ; P-O3*-60-tfo -0.1183 0.1805 -0.9764 0.4380 -0.8730 -0.2145 19.9023 54.8054 15.2799) (make-pt 41.8210 8.3880 43.5890) ; P (make-pt 42.5400 8.0450 44.8330) ; O1P (make-pt 42.2470 9.6920 42.9910) ; O2P (make-pt 40.2550 8.2030 43.7340) ; O5* (make-pt 39.3505 8.4697 42.6565) ; C5* (make-pt 39.1377 7.5433 42.1230) ; H5* (make-pt 39.7203 9.3119 42.0717) ; H5** (make-pt 38.0405 8.9195 43.2869) ; C4* (make-pt 37.3687 9.3036 42.5193) ; H4* (make-pt 37.4319 7.8146 43.9387) ; O4* (make-pt 37.1959 8.1354 45.3237) ; C1* (make-pt 36.1788 8.5202 45.3970) ; H1* (make-pt 38.1721 9.2328 45.6504) ; C2* (make-pt 39.1555 8.7939 45.8188) ; H2** (make-pt 37.7862 10.0617 46.7013) ; O2* (make-pt 37.3087 9.6229 47.4092) ; H2* (make-pt 38.1844 10.0268 44.3367) ; C3* (make-pt 39.1578 10.5054 44.2289) ; H3* (make-pt 37.0547 10.9127 44.3441) ; O3* (make-pt 34.8811 4.2072 47.5784) ; N1 (make-pt 35.1084 6.1336 46.1818) ; N3 (make-pt 34.4108 5.1360 46.7207) ; C2 (make-pt 36.3908 6.1224 46.6053) ; C4 (make-pt 36.9819 5.2334 47.4697) ; C5 (make-pt 36.1786 4.1985 48.0035) ; C6 (make-pt 36.6103 3.2749 48.8452) ; N6 (make-pt 38.3236 5.5522 47.6595) ; N7 (make-pt 37.3887 7.0024 46.2437) ; N9 (make-pt 38.5055 6.6096 46.9057) ; C8 (make-pt 33.3553 5.0152 46.4771) ; H2 (make-pt 37.5730 3.2804 49.1507) ; H61 (make-pt 35.9775 2.5638 49.1828) ; H62 (make-pt 39.5461 6.9184 47.0041) ; H8 )) (define rA08 (make-rA (make-tfo 0.1084 -0.0895 -0.9901 ; dgf-base-tfo 0.9789 -0.1638 0.1220 -0.1731 -0.9824 0.0698 -2.9039 47.2655 33.0094) (make-tfo 0.7529 0.1548 0.6397 ; P-O3*-275-tfo 0.2952 -0.9481 -0.1180 0.5882 0.2777 -0.7595 -58.8919 -11.3095 6.0866) (make-tfo -0.0239 0.9667 -0.2546 ; P-O3*-180-tfo 0.9731 -0.0359 -0.2275 -0.2290 -0.2532 -0.9399 3.5401 -29.7913 52.2796) (make-tfo -0.8912 -0.4531 0.0242 ; P-O3*-60-tfo -0.1183 0.1805 -0.9764 0.4380 -0.8730 -0.2145 19.9023 54.8054 15.2799) (make-pt 41.8210 8.3880 43.5890) ; P (make-pt 42.5400 8.0450 44.8330) ; O1P (make-pt 42.2470 9.6920 42.9910) ; O2P (make-pt 40.2550 8.2030 43.7340) ; O5* (make-pt 39.4850 8.9301 44.6977) ; C5* (make-pt 39.0638 9.8199 44.2296) ; H5* (make-pt 40.0757 9.0713 45.6029) ; H5** (make-pt 38.3102 8.0414 45.0789) ; C4* (make-pt 37.7842 8.4637 45.9351) ; H4* (make-pt 37.4200 7.9453 43.9769) ; O4* (make-pt 37.2249 6.5609 43.6273) ; C1* (make-pt 36.3360 6.2168 44.1561) ; H1* (make-pt 38.4347 5.8414 44.1590) ; C2* (make-pt 39.2688 5.9974 43.4749) ; H2** (make-pt 38.2344 4.4907 44.4348) ; O2* (make-pt 37.6374 4.0386 43.8341) ; H2* (make-pt 38.6926 6.6079 45.4637) ; C3* (make-pt 39.7585 6.5640 45.6877) ; H3* (make-pt 37.8238 6.0705 46.4723) ; O3* (make-pt 33.9162 6.2598 39.7758) ; N1 (make-pt 34.6709 6.5759 42.0215) ; N3 (make-pt 33.7257 6.5186 41.0858) ; C2 (make-pt 35.8935 6.3324 41.5018) ; C4 (make-pt 36.2105 6.0601 40.1932) ; C5 (make-pt 35.1538 6.0151 39.2537) ; C6 (make-pt 35.3088 5.7642 37.9649) ; N6 (make-pt 37.5818 5.8677 40.0507) ; N7 (make-pt 37.0932 6.3197 42.1810) ; N9 (make-pt 38.0509 6.0354 41.2635) ; C8 (make-pt 32.6830 6.6898 41.3532) ; H2 (make-pt 36.2305 5.5855 37.5925) ; H61 (make-pt 34.5056 5.7512 37.3528) ; H62 (make-pt 39.1318 5.8993 41.2285) ; H8 )) (define rA09 (make-rA (make-tfo 0.8467 0.4166 -0.3311 ; dgf-base-tfo -0.3962 0.9089 0.1303 0.3552 0.0209 0.9346 -42.7319 -26.6223 -29.8163) (make-tfo 0.7529 0.1548 0.6397 ; P-O3*-275-tfo 0.2952 -0.9481 -0.1180 0.5882 0.2777 -0.7595 -58.8919 -11.3095 6.0866) (make-tfo -0.0239 0.9667 -0.2546 ; P-O3*-180-tfo 0.9731 -0.0359 -0.2275 -0.2290 -0.2532 -0.9399 3.5401 -29.7913 52.2796) (make-tfo -0.8912 -0.4531 0.0242 ; P-O3*-60-tfo -0.1183 0.1805 -0.9764 0.4380 -0.8730 -0.2145 19.9023 54.8054 15.2799) (make-pt 41.8210 8.3880 43.5890) ; P (make-pt 42.5400 8.0450 44.8330) ; O1P (make-pt 42.2470 9.6920 42.9910) ; O2P (make-pt 40.2550 8.2030 43.7340) ; O5* (make-pt 39.3505 8.4697 42.6565) ; C5* (make-pt 39.1377 7.5433 42.1230) ; H5* (make-pt 39.7203 9.3119 42.0717) ; H5** (make-pt 38.0405 8.9195 43.2869) ; C4* (make-pt 37.6479 8.1347 43.9335) ; H4* (make-pt 38.2691 10.0933 44.0524) ; O4* (make-pt 37.3999 11.1488 43.5973) ; C1* (make-pt 36.5061 11.1221 44.2206) ; H1* (make-pt 37.0364 10.7838 42.1836) ; C2* (make-pt 37.8636 11.0489 41.5252) ; H2** (make-pt 35.8275 11.3133 41.7379) ; O2* (make-pt 35.6214 12.1896 42.0714) ; H2* (make-pt 36.9316 9.2556 42.2837) ; C3* (make-pt 37.1778 8.8260 41.3127) ; H3* (make-pt 35.6285 8.9334 42.7926) ; O3* (make-pt 38.1482 15.2833 46.4641) ; N1 (make-pt 37.3641 13.0968 45.9007) ; N3 (make-pt 37.5032 14.1288 46.7300) ; C2 (make-pt 37.9570 13.3377 44.7113) ; C4 (make-pt 38.6397 14.4660 44.3267) ; C5 (make-pt 38.7473 15.5229 45.2609) ; C6 (make-pt 39.3720 16.6649 45.0297) ; N6 (make-pt 39.1079 14.3351 43.0223) ; N7 (make-pt 38.0132 12.4868 43.6280) ; N9 (make-pt 38.7058 13.1402 42.6620) ; C8 (make-pt 37.0731 14.0857 47.7306) ; H2 (make-pt 39.8113 16.8281 44.1350) ; H61 (make-pt 39.4100 17.3741 45.7478) ; H62 (make-pt 39.0412 12.9660 41.6397) ; H8 )) (define rA10 (make-rA (make-tfo 0.7063 0.6317 -0.3196 ; dgf-base-tfo -0.0403 -0.4149 -0.9090 -0.7068 0.6549 -0.2676 6.4402 -52.1496 30.8246) (make-tfo 0.7529 0.1548 0.6397 ; P-O3*-275-tfo 0.2952 -0.9481 -0.1180 0.5882 0.2777 -0.7595 -58.8919 -11.3095 6.0866) (make-tfo -0.0239 0.9667 -0.2546 ; P-O3*-180-tfo 0.9731 -0.0359 -0.2275 -0.2290 -0.2532 -0.9399 3.5401 -29.7913 52.2796) (make-tfo -0.8912 -0.4531 0.0242 ; P-O3*-60-tfo -0.1183 0.1805 -0.9764 0.4380 -0.8730 -0.2145 19.9023 54.8054 15.2799) (make-pt 41.8210 8.3880 43.5890) ; P (make-pt 42.5400 8.0450 44.8330) ; O1P (make-pt 42.2470 9.6920 42.9910) ; O2P (make-pt 40.2550 8.2030 43.7340) ; O5* (make-pt 39.4850 8.9301 44.6977) ; C5* (make-pt 39.0638 9.8199 44.2296) ; H5* (make-pt 40.0757 9.0713 45.6029) ; H5** (make-pt 38.3102 8.0414 45.0789) ; C4* (make-pt 37.7099 7.8166 44.1973) ; H4* (make-pt 38.8012 6.8321 45.6380) ; O4* (make-pt 38.2431 6.6413 46.9529) ; C1* (make-pt 37.3505 6.0262 46.8385) ; H1* (make-pt 37.8484 8.0156 47.4214) ; C2* (make-pt 38.7381 8.5406 47.7690) ; H2** (make-pt 36.8286 8.0368 48.3701) ; O2* (make-pt 36.8392 7.3063 48.9929) ; H2* (make-pt 37.3576 8.6512 46.1132) ; C3* (make-pt 37.5207 9.7275 46.1671) ; H3* (make-pt 35.9985 8.2392 45.9032) ; O3* (make-pt 39.9117 2.2278 48.8527) ; N1 (make-pt 38.6207 3.6941 47.4757) ; N3 (make-pt 38.9872 2.4888 47.9057) ; C2 (make-pt 39.2961 4.6720 48.1174) ; C4 (make-pt 40.2546 4.5307 49.0912) ; C5 (make-pt 40.5932 3.2189 49.4985) ; C6 (make-pt 41.4938 2.9317 50.4229) ; N6 (make-pt 40.7195 5.7755 49.5060) ; N7 (make-pt 39.1730 6.0305 47.9170) ; N9 (make-pt 40.0413 6.6250 48.7728) ; C8 (make-pt 38.5257 1.5960 47.4838) ; H2 (make-pt 41.9907 3.6753 50.8921) ; H61 (make-pt 41.6848 1.9687 50.6599) ; H62 (make-pt 40.3571 7.6321 49.0452) ; H8 )) (define rAs (list rA01 rA02 rA03 rA04 rA05 rA06 rA07 rA08 rA09 rA10)) (define rC (make-rC (make-tfo -0.0359 -0.8071 0.5894 ; dgf-base-tfo -0.2669 0.5761 0.7726 -0.9631 -0.1296 -0.2361 0.1584 8.3434 0.5434) (make-tfo -0.8313 -0.4738 -0.2906 ; P-O3*-275-tfo 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3322 1.6833 6.8060 -7.0011) (make-tfo 0.3445 -0.7630 0.5470 ; P-O3*-180-tfo -0.4628 -0.6450 -0.6082 0.8168 -0.0436 -0.5753 -6.8179 -3.9778 -5.9887) (make-tfo 0.5855 0.7931 -0.1682 ; P-O3*-60-tfo 0.8103 -0.5790 0.0906 -0.0255 -0.1894 -0.9816 6.1203 -7.1051 3.1984) (make-pt 2.6760 -8.4960 3.2880) ; P (make-pt 1.4950 -7.6230 3.4770) ; O1P (make-pt 2.9490 -9.4640 4.3740) ; O2P (make-pt 3.9730 -7.5950 3.0340) ; O5* (make-pt 5.2430 -8.2420 2.8260) ; C5* (make-pt 5.1974 -8.8497 1.9223) ; H5* (make-pt 5.5548 -8.7348 3.7469) ; H5** (make-pt 6.3140 -7.2060 2.5510) ; C4* (make-pt 7.2954 -7.6762 2.4898) ; H4* (make-pt 6.0140 -6.5420 1.2890) ; O4* (make-pt 6.4190 -5.1840 1.3620) ; C1* (make-pt 7.1608 -5.0495 0.5747) ; H1* (make-pt 7.0760 -4.9560 2.7270) ; C2* (make-pt 6.7770 -3.9803 3.1099) ; H2** (make-pt 8.4500 -5.1930 2.5810) ; O2* (make-pt 8.8309 -4.8755 1.7590) ; H2* (make-pt 6.4060 -6.0590 3.5580) ; C3* (make-pt 5.4021 -5.7313 3.8281) ; H3* (make-pt 7.1570 -6.4240 4.7070) ; O3* (make-pt 5.2170 -4.3260 1.1690) ; N1 (make-pt 4.2960 -2.2560 0.6290) ; N3 (make-pt 5.4330 -3.0200 0.7990) ; C2 (make-pt 2.9930 -2.6780 0.7940) ; C4 (make-pt 2.8670 -4.0630 1.1830) ; C5 (make-pt 3.9570 -4.8300 1.3550) ; C6 (make-pt 2.0187 -1.8047 0.5874) ; N4 (make-pt 6.5470 -2.5560 0.6290) ; O2 (make-pt 1.0684 -2.1236 0.7109) ; H41 (make-pt 2.2344 -0.8560 0.3162) ; H42 (make-pt 1.8797 -4.4972 1.3404) ; H5 (make-pt 3.8479 -5.8742 1.6480) ; H6 )) (define rC01 (make-rC (make-tfo -0.0137 -0.8012 0.5983 ; dgf-base-tfo -0.2523 0.5817 0.7733 -0.9675 -0.1404 -0.2101 0.2031 8.3874 0.4228) (make-tfo -0.8313 -0.4738 -0.2906 ; P-O3*-275-tfo 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3322 1.6833 6.8060 -7.0011) (make-tfo 0.3445 -0.7630 0.5470 ; P-O3*-180-tfo -0.4628 -0.6450 -0.6082 0.8168 -0.0436 -0.5753 -6.8179 -3.9778 -5.9887) (make-tfo 0.5855 0.7931 -0.1682 ; P-O3*-60-tfo 0.8103 -0.5790 0.0906 -0.0255 -0.1894 -0.9816 6.1203 -7.1051 3.1984) (make-pt 2.6760 -8.4960 3.2880) ; P (make-pt 1.4950 -7.6230 3.4770) ; O1P (make-pt 2.9490 -9.4640 4.3740) ; O2P (make-pt 3.9730 -7.5950 3.0340) ; O5* (make-pt 5.2416 -8.2422 2.8181) ; C5* (make-pt 5.2050 -8.8128 1.8901) ; H5* (make-pt 5.5368 -8.7738 3.7227) ; H5** (make-pt 6.3232 -7.2037 2.6002) ; C4* (make-pt 7.3048 -7.6757 2.5577) ; H4* (make-pt 6.0635 -6.5092 1.3456) ; O4* (make-pt 6.4697 -5.1547 1.4629) ; C1* (make-pt 7.2354 -5.0043 0.7018) ; H1* (make-pt 7.0856 -4.9610 2.8521) ; C2* (make-pt 6.7777 -3.9935 3.2487) ; H2** (make-pt 8.4627 -5.1992 2.7423) ; O2* (make-pt 8.8693 -4.8638 1.9399) ; H2* (make-pt 6.3877 -6.0809 3.6362) ; C3* (make-pt 5.3770 -5.7562 3.8834) ; H3* (make-pt 7.1024 -6.4754 4.7985) ; O3* (make-pt 5.2764 -4.2883 1.2538) ; N1 (make-pt 4.3777 -2.2062 0.7229) ; N3 (make-pt 5.5069 -2.9779 0.9088) ; C2 (make-pt 3.0693 -2.6246 0.8500) ; C4 (make-pt 2.9279 -4.0146 1.2149) ; C5 (make-pt 4.0101 -4.7892 1.4017) ; C6 (make-pt 2.1040 -1.7437 0.6331) ; N4 (make-pt 6.6267 -2.5166 0.7728) ; O2 (make-pt 1.1496 -2.0600 0.7287) ; H41 (make-pt 2.3303 -0.7921 0.3815) ; H42 (make-pt 1.9353 -4.4465 1.3419) ; H5 (make-pt 3.8895 -5.8371 1.6762) ; H6 )) (define rC02 (make-rC (make-tfo 0.5141 0.0246 0.8574 ; dgf-base-tfo -0.5547 -0.7529 0.3542 0.6542 -0.6577 -0.3734 -9.1111 -3.4598 -3.2939) (make-tfo -0.8313 -0.4738 -0.2906 ; P-O3*-275-tfo 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3322 1.6833 6.8060 -7.0011) (make-tfo 0.3445 -0.7630 0.5470 ; P-O3*-180-tfo -0.4628 -0.6450 -0.6082 0.8168 -0.0436 -0.5753 -6.8179 -3.9778 -5.9887) (make-tfo 0.5855 0.7931 -0.1682 ; P-O3*-60-tfo 0.8103 -0.5790 0.0906 -0.0255 -0.1894 -0.9816 6.1203 -7.1051 3.1984) (make-pt 2.6760 -8.4960 3.2880) ; P (make-pt 1.4950 -7.6230 3.4770) ; O1P (make-pt 2.9490 -9.4640 4.3740) ; O2P (make-pt 3.9730 -7.5950 3.0340) ; O5* (make-pt 4.3825 -6.6585 4.0489) ; C5* (make-pt 4.6841 -7.2019 4.9443) ; H5* (make-pt 3.6189 -5.8889 4.1625) ; H5** (make-pt 5.6255 -5.9175 3.5998) ; C4* (make-pt 5.8732 -5.1228 4.3034) ; H4* (make-pt 6.7337 -6.8605 3.5222) ; O4* (make-pt 7.5932 -6.4923 2.4548) ; C1* (make-pt 8.5661 -6.2983 2.9064) ; H1* (make-pt 7.0527 -5.2012 1.8322) ; C2* (make-pt 7.1627 -5.2525 0.7490) ; H2** (make-pt 7.6666 -4.1249 2.4880) ; O2* (make-pt 8.5944 -4.2543 2.6981) ; H2* (make-pt 5.5661 -5.3029 2.2009) ; C3* (make-pt 5.0841 -6.0018 1.5172) ; H3* (make-pt 4.9062 -4.0452 2.2042) ; O3* (make-pt 7.6298 -7.6136 1.4752) ; N1 (make-pt 8.6945 -8.7046 -0.2857) ; N3 (make-pt 8.6943 -7.6514 0.6066) ; C2 (make-pt 7.7426 -9.6987 -0.3801) ; C4 (make-pt 6.6642 -9.5742 0.5722) ; C5 (make-pt 6.6391 -8.5592 1.4526) ; C6 (make-pt 7.9033 -10.6371 -1.3010) ; N4 (make-pt 9.5840 -6.8186 0.6136) ; O2 (make-pt 7.2009 -11.3604 -1.3619) ; H41 (make-pt 8.7058 -10.6168 -1.9140) ; H42 (make-pt 5.8585 -10.3083 0.5822) ; H5 (make-pt 5.8197 -8.4773 2.1667) ; H6 )) (define rC03 (make-rC (make-tfo -0.4993 0.0476 0.8651 ; dgf-base-tfo 0.8078 -0.3353 0.4847 0.3132 0.9409 0.1290 6.2989 -5.2303 -3.8577) (make-tfo -0.8313 -0.4738 -0.2906 ; P-O3*-275-tfo 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3322 1.6833 6.8060 -7.0011) (make-tfo 0.3445 -0.7630 0.5470 ; P-O3*-180-tfo -0.4628 -0.6450 -0.6082 0.8168 -0.0436 -0.5753 -6.8179 -3.9778 -5.9887) (make-tfo 0.5855 0.7931 -0.1682 ; P-O3*-60-tfo 0.8103 -0.5790 0.0906 -0.0255 -0.1894 -0.9816 6.1203 -7.1051 3.1984) (make-pt 2.6760 -8.4960 3.2880) ; P (make-pt 1.4950 -7.6230 3.4770) ; O1P (make-pt 2.9490 -9.4640 4.3740) ; O2P (make-pt 3.9730 -7.5950 3.0340) ; O5* (make-pt 3.9938 -6.7042 1.9023) ; C5* (make-pt 3.2332 -5.9343 2.0319) ; H5* (make-pt 3.9666 -7.2863 0.9812) ; H5** (make-pt 5.3098 -5.9546 1.8564) ; C4* (make-pt 5.3863 -5.3702 0.9395) ; H4* (make-pt 5.3851 -5.0642 3.0076) ; O4* (make-pt 6.7315 -4.9724 3.4462) ; C1* (make-pt 7.0033 -3.9202 3.3619) ; H1* (make-pt 7.5997 -5.8018 2.4948) ; C2* (make-pt 8.3627 -6.3254 3.0707) ; H2** (make-pt 8.0410 -4.9501 1.4724) ; O2* (make-pt 8.2781 -4.0644 1.7570) ; H2* (make-pt 6.5701 -6.8129 1.9714) ; C3* (make-pt 6.4186 -7.5809 2.7299) ; H3* (make-pt 6.9357 -7.3841 0.7235) ; O3* (make-pt 6.8024 -5.4718 4.8475) ; N1 (make-pt 7.9218 -5.5700 6.8877) ; N3 (make-pt 7.8908 -5.0886 5.5944) ; C2 (make-pt 6.9789 -6.3827 7.4823) ; C4 (make-pt 5.8742 -6.7319 6.6202) ; C5 (make-pt 5.8182 -6.2769 5.3570) ; C6 (make-pt 7.1702 -6.7511 8.7402) ; N4 (make-pt 8.7747 -4.3728 5.1568) ; O2 (make-pt 6.4741 -7.3461 9.1662) ; H41 (make-pt 7.9889 -6.4396 9.2429) ; H42 (make-pt 5.0736 -7.3713 6.9922) ; H5 (make-pt 4.9784 -6.5473 4.7170) ; H6 )) (define rC04 (make-rC (make-tfo -0.5669 -0.8012 0.1918 ; dgf-base-tfo -0.8129 0.5817 0.0273 -0.1334 -0.1404 -0.9811 -0.3279 8.3874 0.3355) (make-tfo -0.8313 -0.4738 -0.2906 ; P-O3*-275-tfo 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3322 1.6833 6.8060 -7.0011) (make-tfo 0.3445 -0.7630 0.5470 ; P-O3*-180-tfo -0.4628 -0.6450 -0.6082 0.8168 -0.0436 -0.5753 -6.8179 -3.9778 -5.9887) (make-tfo 0.5855 0.7931 -0.1682 ; P-O3*-60-tfo 0.8103 -0.5790 0.0906 -0.0255 -0.1894 -0.9816 6.1203 -7.1051 3.1984) (make-pt 2.6760 -8.4960 3.2880) ; P (make-pt 1.4950 -7.6230 3.4770) ; O1P (make-pt 2.9490 -9.4640 4.3740) ; O2P (make-pt 3.9730 -7.5950 3.0340) ; O5* (make-pt 5.2416 -8.2422 2.8181) ; C5* (make-pt 5.2050 -8.8128 1.8901) ; H5* (make-pt 5.5368 -8.7738 3.7227) ; H5** (make-pt 6.3232 -7.2037 2.6002) ; C4* (make-pt 7.3048 -7.6757 2.5577) ; H4* (make-pt 6.0635 -6.5092 1.3456) ; O4* (make-pt 6.4697 -5.1547 1.4629) ; C1* (make-pt 7.2354 -5.0043 0.7018) ; H1* (make-pt 7.0856 -4.9610 2.8521) ; C2* (make-pt 6.7777 -3.9935 3.2487) ; H2** (make-pt 8.4627 -5.1992 2.7423) ; O2* (make-pt 8.8693 -4.8638 1.9399) ; H2* (make-pt 6.3877 -6.0809 3.6362) ; C3* (make-pt 5.3770 -5.7562 3.8834) ; H3* (make-pt 7.1024 -6.4754 4.7985) ; O3* (make-pt 5.2764 -4.2883 1.2538) ; N1 (make-pt 3.8961 -3.0896 -0.1893) ; N3 (make-pt 5.0095 -3.8907 -0.0346) ; C2 (make-pt 3.0480 -2.6632 0.8116) ; C4 (make-pt 3.4093 -3.1310 2.1292) ; C5 (make-pt 4.4878 -3.9124 2.3088) ; C6 (make-pt 2.0216 -1.8941 0.4804) ; N4 (make-pt 5.7005 -4.2164 -0.9842) ; O2 (make-pt 1.4067 -1.5873 1.2205) ; H41 (make-pt 1.8721 -1.6319 -0.4835) ; H42 (make-pt 2.8048 -2.8507 2.9918) ; H5 (make-pt 4.7491 -4.2593 3.3085) ; H6 )) (define rC05 (make-rC (make-tfo -0.6298 0.0246 0.7763 ; dgf-base-tfo -0.5226 -0.7529 -0.4001 0.5746 -0.6577 0.4870 -0.0208 -3.4598 -9.6882) (make-tfo -0.8313 -0.4738 -0.2906 ; P-O3*-275-tfo 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3322 1.6833 6.8060 -7.0011) (make-tfo 0.3445 -0.7630 0.5470 ; P-O3*-180-tfo -0.4628 -0.6450 -0.6082 0.8168 -0.0436 -0.5753 -6.8179 -3.9778 -5.9887) (make-tfo 0.5855 0.7931 -0.1682 ; P-O3*-60-tfo 0.8103 -0.5790 0.0906 -0.0255 -0.1894 -0.9816 6.1203 -7.1051 3.1984) (make-pt 2.6760 -8.4960 3.2880) ; P (make-pt 1.4950 -7.6230 3.4770) ; O1P (make-pt 2.9490 -9.4640 4.3740) ; O2P (make-pt 3.9730 -7.5950 3.0340) ; O5* (make-pt 4.3825 -6.6585 4.0489) ; C5* (make-pt 4.6841 -7.2019 4.9443) ; H5* (make-pt 3.6189 -5.8889 4.1625) ; H5** (make-pt 5.6255 -5.9175 3.5998) ; C4* (make-pt 5.8732 -5.1228 4.3034) ; H4* (make-pt 6.7337 -6.8605 3.5222) ; O4* (make-pt 7.5932 -6.4923 2.4548) ; C1* (make-pt 8.5661 -6.2983 2.9064) ; H1* (make-pt 7.0527 -5.2012 1.8322) ; C2* (make-pt 7.1627 -5.2525 0.7490) ; H2** (make-pt 7.6666 -4.1249 2.4880) ; O2* (make-pt 8.5944 -4.2543 2.6981) ; H2* (make-pt 5.5661 -5.3029 2.2009) ; C3* (make-pt 5.0841 -6.0018 1.5172) ; H3* (make-pt 4.9062 -4.0452 2.2042) ; O3* (make-pt 7.6298 -7.6136 1.4752) ; N1 (make-pt 8.5977 -9.5977 0.7329) ; N3 (make-pt 8.5951 -8.5745 1.6594) ; C2 (make-pt 7.7372 -9.7371 -0.3364) ; C4 (make-pt 6.7596 -8.6801 -0.4476) ; C5 (make-pt 6.7338 -7.6721 0.4408) ; C6 (make-pt 7.8849 -10.7881 -1.1289) ; N4 (make-pt 9.3993 -8.5377 2.5743) ; O2 (make-pt 7.2499 -10.8809 -1.9088) ; H41 (make-pt 8.6122 -11.4649 -0.9468) ; H42 (make-pt 6.0317 -8.6941 -1.2588) ; H5 (make-pt 5.9901 -6.8809 0.3459) ; H6 )) (define rC06 (make-rC (make-tfo -0.9837 0.0476 -0.1733 ; dgf-base-tfo -0.1792 -0.3353 0.9249 -0.0141 0.9409 0.3384 5.7793 -5.2303 4.5997) (make-tfo -0.8313 -0.4738 -0.2906 ; P-O3*-275-tfo 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3322 1.6833 6.8060 -7.0011) (make-tfo 0.3445 -0.7630 0.5470 ; P-O3*-180-tfo -0.4628 -0.6450 -0.6082 0.8168 -0.0436 -0.5753 -6.8179 -3.9778 -5.9887) (make-tfo 0.5855 0.7931 -0.1682 ; P-O3*-60-tfo 0.8103 -0.5790 0.0906 -0.0255 -0.1894 -0.9816 6.1203 -7.1051 3.1984) (make-pt 2.6760 -8.4960 3.2880) ; P (make-pt 1.4950 -7.6230 3.4770) ; O1P (make-pt 2.9490 -9.4640 4.3740) ; O2P (make-pt 3.9730 -7.5950 3.0340) ; O5* (make-pt 3.9938 -6.7042 1.9023) ; C5* (make-pt 3.2332 -5.9343 2.0319) ; H5* (make-pt 3.9666 -7.2863 0.9812) ; H5** (make-pt 5.3098 -5.9546 1.8564) ; C4* (make-pt 5.3863 -5.3702 0.9395) ; H4* (make-pt 5.3851 -5.0642 3.0076) ; O4* (make-pt 6.7315 -4.9724 3.4462) ; C1* (make-pt 7.0033 -3.9202 3.3619) ; H1* (make-pt 7.5997 -5.8018 2.4948) ; C2* (make-pt 8.3627 -6.3254 3.0707) ; H2** (make-pt 8.0410 -4.9501 1.4724) ; O2* (make-pt 8.2781 -4.0644 1.7570) ; H2* (make-pt 6.5701 -6.8129 1.9714) ; C3* (make-pt 6.4186 -7.5809 2.7299) ; H3* (make-pt 6.9357 -7.3841 0.7235) ; O3* (make-pt 6.8024 -5.4718 4.8475) ; N1 (make-pt 6.6920 -5.0495 7.1354) ; N3 (make-pt 6.6201 -4.5500 5.8506) ; C2 (make-pt 6.9254 -6.3614 7.4926) ; C4 (make-pt 7.1046 -7.2543 6.3718) ; C5 (make-pt 7.0391 -6.7951 5.1106) ; C6 (make-pt 6.9614 -6.6648 8.7815) ; N4 (make-pt 6.4083 -3.3696 5.6340) ; O2 (make-pt 7.1329 -7.6280 9.0324) ; H41 (make-pt 6.8204 -5.9469 9.4777) ; H42 (make-pt 7.2954 -8.3135 6.5440) ; H5 (make-pt 7.1753 -7.4798 4.2735) ; H6 )) (define rC07 (make-rC (make-tfo 0.0033 0.2720 -0.9623 ; dgf-base-tfo 0.3013 -0.9179 -0.2584 -0.9535 -0.2891 -0.0850 43.0403 13.7233 34.5710) (make-tfo 0.9187 0.2887 0.2694 ; P-O3*-275-tfo 0.0302 -0.7316 0.6811 0.3938 -0.6176 -0.6808 -48.4330 26.3254 13.6383) (make-tfo -0.1504 0.7744 -0.6145 ; P-O3*-180-tfo 0.7581 0.4893 0.4311 0.6345 -0.4010 -0.6607 -31.9784 -13.4285 44.9650) (make-tfo -0.6236 -0.7810 -0.0337 ; P-O3*-60-tfo -0.6890 0.5694 -0.4484 0.3694 -0.2564 -0.8932 12.1105 30.8774 46.0946) (make-pt 33.3400 11.0980 46.1750) ; P (make-pt 34.5130 10.2320 46.4660) ; O1P (make-pt 33.4130 12.3960 46.9340) ; O2P (make-pt 31.9810 10.3390 46.4820) ; O5* (make-pt 30.8152 11.1619 46.2003) ; C5* (make-pt 30.4519 10.9454 45.1957) ; H5* (make-pt 31.0379 12.2016 46.4400) ; H5** (make-pt 29.7081 10.7448 47.1428) ; C4* (make-pt 28.8710 11.4416 47.0982) ; H4* (make-pt 29.2550 9.4394 46.8162) ; O4* (make-pt 29.3907 8.5625 47.9460) ; C1* (make-pt 28.4416 8.5669 48.4819) ; H1* (make-pt 30.4468 9.2031 48.7952) ; C2* (make-pt 31.4222 8.9651 48.3709) ; H2** (make-pt 30.3701 8.9157 50.1624) ; O2* (make-pt 30.0652 8.0304 50.3740) ; H2* (make-pt 30.1622 10.6879 48.6120) ; C3* (make-pt 31.0952 11.2399 48.7254) ; H3* (make-pt 29.1076 11.1535 49.4702) ; O3* (make-pt 29.7883 7.2209 47.5235) ; N1 (make-pt 29.1825 5.0438 46.8275) ; N3 (make-pt 28.8008 6.2912 47.2263) ; C2 (make-pt 30.4888 4.6890 46.7186) ; C4 (make-pt 31.5034 5.6405 47.0249) ; C5 (make-pt 31.1091 6.8691 47.4156) ; C6 (make-pt 30.8109 3.4584 46.3336) ; N4 (make-pt 27.6171 6.5989 47.3189) ; O2 (make-pt 31.7923 3.2301 46.2638) ; H41 (make-pt 30.0880 2.7857 46.1215) ; H42 (make-pt 32.5542 5.3634 46.9395) ; H5 (make-pt 31.8523 7.6279 47.6603) ; H6 )) (define rC08 (make-rC (make-tfo 0.0797 -0.6026 -0.7941 ; dgf-base-tfo 0.7939 0.5201 -0.3150 0.6028 -0.6054 0.5198 -36.8341 41.5293 1.6628) (make-tfo 0.9187 0.2887 0.2694 ; P-O3*-275-tfo 0.0302 -0.7316 0.6811 0.3938 -0.6176 -0.6808 -48.4330 26.3254 13.6383) (make-tfo -0.1504 0.7744 -0.6145 ; P-O3*-180-tfo 0.7581 0.4893 0.4311 0.6345 -0.4010 -0.6607 -31.9784 -13.4285 44.9650) (make-tfo -0.6236 -0.7810 -0.0337 ; P-O3*-60-tfo -0.6890 0.5694 -0.4484 0.3694 -0.2564 -0.8932 12.1105 30.8774 46.0946) (make-pt 33.3400 11.0980 46.1750) ; P (make-pt 34.5130 10.2320 46.4660) ; O1P (make-pt 33.4130 12.3960 46.9340) ; O2P (make-pt 31.9810 10.3390 46.4820) ; O5* (make-pt 31.8779 9.9369 47.8760) ; C5* (make-pt 31.3239 10.6931 48.4322) ; H5* (make-pt 32.8647 9.6624 48.2489) ; H5** (make-pt 31.0429 8.6773 47.9401) ; C4* (make-pt 31.0779 8.2331 48.9349) ; H4* (make-pt 29.6956 8.9669 47.5983) ; O4* (make-pt 29.2784 8.1700 46.4782) ; C1* (make-pt 28.8006 7.2731 46.8722) ; H1* (make-pt 30.5544 7.7940 45.7875) ; C2* (make-pt 30.8837 8.6410 45.1856) ; H2** (make-pt 30.5100 6.6007 45.0582) ; O2* (make-pt 29.6694 6.4168 44.6326) ; H2* (make-pt 31.5146 7.5954 46.9527) ; C3* (make-pt 32.5255 7.8261 46.6166) ; H3* (make-pt 31.3876 6.2951 47.5516) ; O3* (make-pt 28.3976 8.9302 45.5933) ; N1 (make-pt 26.2155 9.6135 44.9910) ; N3 (make-pt 27.0281 8.8961 45.8192) ; C2 (make-pt 26.7044 10.3489 43.9595) ; C4 (make-pt 28.1088 10.3837 43.7247) ; C5 (make-pt 28.8978 9.6708 44.5535) ; C6 (make-pt 25.8715 11.0249 43.1749) ; N4 (make-pt 26.5733 8.2371 46.7484) ; O2 (make-pt 26.2707 11.5609 42.4177) ; H41 (make-pt 24.8760 10.9939 43.3427) ; H42 (make-pt 28.5089 10.9722 42.8990) ; H5 (make-pt 29.9782 9.6687 44.4097) ; H6 )) (define rC09 (make-rC (make-tfo 0.8727 0.4760 -0.1091 ; dgf-base-tfo -0.4188 0.6148 -0.6682 -0.2510 0.6289 0.7359 -8.1687 -52.0761 -25.0726) (make-tfo 0.9187 0.2887 0.2694 ; P-O3*-275-tfo 0.0302 -0.7316 0.6811 0.3938 -0.6176 -0.6808 -48.4330 26.3254 13.6383) (make-tfo -0.1504 0.7744 -0.6145 ; P-O3*-180-tfo 0.7581 0.4893 0.4311 0.6345 -0.4010 -0.6607 -31.9784 -13.4285 44.9650) (make-tfo -0.6236 -0.7810 -0.0337 ; P-O3*-60-tfo -0.6890 0.5694 -0.4484 0.3694 -0.2564 -0.8932 12.1105 30.8774 46.0946) (make-pt 33.3400 11.0980 46.1750) ; P (make-pt 34.5130 10.2320 46.4660) ; O1P (make-pt 33.4130 12.3960 46.9340) ; O2P (make-pt 31.9810 10.3390 46.4820) ; O5* (make-pt 30.8152 11.1619 46.2003) ; C5* (make-pt 30.4519 10.9454 45.1957) ; H5* (make-pt 31.0379 12.2016 46.4400) ; H5** (make-pt 29.7081 10.7448 47.1428) ; C4* (make-pt 29.4506 9.6945 47.0059) ; H4* (make-pt 30.1045 10.9634 48.4885) ; O4* (make-pt 29.1794 11.8418 49.1490) ; C1* (make-pt 28.4388 11.2210 49.6533) ; H1* (make-pt 28.5211 12.6008 48.0367) ; C2* (make-pt 29.1947 13.3949 47.7147) ; H2** (make-pt 27.2316 13.0683 48.3134) ; O2* (make-pt 27.0851 13.3391 49.2227) ; H2* (make-pt 28.4131 11.5507 46.9391) ; C3* (make-pt 28.4451 12.0512 45.9713) ; H3* (make-pt 27.2707 10.6955 47.1097) ; O3* (make-pt 29.8751 12.7405 50.0682) ; N1 (make-pt 30.7172 13.1841 52.2328) ; N3 (make-pt 30.0617 12.3404 51.3847) ; C2 (make-pt 31.1834 14.3941 51.8297) ; C4 (make-pt 30.9913 14.8074 50.4803) ; C5 (make-pt 30.3434 13.9610 49.6548) ; C6 (make-pt 31.8090 15.1847 52.6957) ; N4 (make-pt 29.6470 11.2494 51.7616) ; O2 (make-pt 32.1422 16.0774 52.3606) ; H41 (make-pt 31.9392 14.8893 53.6527) ; H42 (make-pt 31.3632 15.7771 50.1491) ; H5 (make-pt 30.1742 14.2374 48.6141) ; H6 )) (define rC10 (make-rC (make-tfo 0.1549 0.8710 -0.4663 ; dgf-base-tfo 0.6768 -0.4374 -0.5921 -0.7197 -0.2239 -0.6572 25.2447 -14.1920 50.3201) (make-tfo 0.9187 0.2887 0.2694 ; P-O3*-275-tfo 0.0302 -0.7316 0.6811 0.3938 -0.6176 -0.6808 -48.4330 26.3254 13.6383) (make-tfo -0.1504 0.7744 -0.6145 ; P-O3*-180-tfo 0.7581 0.4893 0.4311 0.6345 -0.4010 -0.6607 -31.9784 -13.4285 44.9650) (make-tfo -0.6236 -0.7810 -0.0337 ; P-O3*-60-tfo -0.6890 0.5694 -0.4484 0.3694 -0.2564 -0.8932 12.1105 30.8774 46.0946) (make-pt 33.3400 11.0980 46.1750) ; P (make-pt 34.5130 10.2320 46.4660) ; O1P (make-pt 33.4130 12.3960 46.9340) ; O2P (make-pt 31.9810 10.3390 46.4820) ; O5* (make-pt 31.8779 9.9369 47.8760) ; C5* (make-pt 31.3239 10.6931 48.4322) ; H5* (make-pt 32.8647 9.6624 48.2489) ; H5** (make-pt 31.0429 8.6773 47.9401) ; C4* (make-pt 30.0440 8.8473 47.5383) ; H4* (make-pt 31.6749 7.6351 47.2119) ; O4* (make-pt 31.9159 6.5022 48.0616) ; C1* (make-pt 31.0691 5.8243 47.9544) ; H1* (make-pt 31.9300 7.0685 49.4493) ; C2* (make-pt 32.9024 7.5288 49.6245) ; H2** (make-pt 31.5672 6.1750 50.4632) ; O2* (make-pt 31.8416 5.2663 50.3200) ; H2* (make-pt 30.8618 8.1514 49.3749) ; C3* (make-pt 31.1122 8.9396 50.0850) ; H3* (make-pt 29.5351 7.6245 49.5409) ; O3* (make-pt 33.1890 5.8629 47.7343) ; N1 (make-pt 34.4004 4.2636 46.4828) ; N3 (make-pt 33.2062 4.8497 46.7851) ; C2 (make-pt 35.5600 4.6374 47.0822) ; C4 (make-pt 35.5444 5.6751 48.0577) ; C5 (make-pt 34.3565 6.2450 48.3432) ; C6 (make-pt 36.6977 4.0305 46.7598) ; N4 (make-pt 32.1661 4.5034 46.2348) ; O2 (make-pt 37.5405 4.3347 47.2259) ; H41 (make-pt 36.7033 3.2923 46.0706) ; H42 (make-pt 36.4713 5.9811 48.5428) ; H5 (make-pt 34.2986 7.0426 49.0839) ; H6 )) (define rCs (list rC01 rC02 rC03 rC04 rC05 rC06 rC07 rC08 rC09 rC10)) (define rG (make-rG (make-tfo -0.0018 -0.8207 0.5714 ; dgf-base-tfo 0.2679 -0.5509 -0.7904 0.9634 0.1517 0.2209 0.0073 8.4030 0.6232) (make-tfo -0.8143 -0.5091 -0.2788 ; P-O3*-275-tfo -0.0433 -0.4257 0.9038 -0.5788 0.7480 0.3246 1.5227 6.9114 -7.0765) (make-tfo 0.3822 -0.7477 0.5430 ; P-O3*-180-tfo 0.4552 0.6637 0.5935 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (make-tfo 0.5640 0.8007 -0.2022 ; P-O3*-60-tfo -0.8247 0.5587 -0.0878 0.0426 0.2162 0.9754 6.2694 -7.0540 3.3316) (make-pt 2.8930 8.5380 -3.3280) ; P (make-pt 1.6980 7.6960 -3.5570) ; O1P (make-pt 3.2260 9.5010 -4.4020) ; O2P (make-pt 4.1590 7.6040 -3.0340) ; O5* (make-pt 5.4550 8.2120 -2.8810) ; C5* (make-pt 5.4546 8.8508 -1.9978) ; H5* (make-pt 5.7588 8.6625 -3.8259) ; H5** (make-pt 6.4970 7.1480 -2.5980) ; C4* (make-pt 7.4896 7.5919 -2.5214) ; H4* (make-pt 6.1630 6.4860 -1.3440) ; O4* (make-pt 6.5400 5.1200 -1.4190) ; C1* (make-pt 7.2763 4.9681 -0.6297) ; H1* (make-pt 7.1940 4.8830 -2.7770) ; C2* (make-pt 6.8667 3.9183 -3.1647) ; H2** (make-pt 8.5860 5.0910 -2.6140) ; O2* (make-pt 8.9510 4.7626 -1.7890) ; H2* (make-pt 6.5720 6.0040 -3.6090) ; C3* (make-pt 5.5636 5.7066 -3.8966) ; H3* (make-pt 7.3801 6.3562 -4.7350) ; O3* (make-pt 4.7150 0.4910 -0.1360) ; N1 (make-pt 6.3490 2.1730 -0.6020) ; N3 (make-pt 5.9530 0.9650 -0.2670) ; C2 (make-pt 5.2900 2.9790 -0.8260) ; C4 (make-pt 3.9720 2.6390 -0.7330) ; C5 (make-pt 3.6770 1.3160 -0.3660) ; C6 (make-pt 6.8426 0.0056 -0.0019) ; N2 (make-pt 3.1660 3.7290 -1.0360) ; N7 (make-pt 5.3170 4.2990 -1.1930) ; N9 (make-pt 4.0100 4.6780 -1.2990) ; C8 (make-pt 2.4280 0.8450 -0.2360) ; O6 (make-pt 4.6151 -0.4677 0.1305) ; H1 (make-pt 6.6463 -0.9463 0.2729) ; H21 (make-pt 7.8170 0.2642 -0.0640) ; H22 (make-pt 3.4421 5.5744 -1.5482) ; H8 )) (define rG01 (make-rG (make-tfo -0.0043 -0.8175 0.5759 ; dgf-base-tfo 0.2617 -0.5567 -0.7884 0.9651 0.1473 0.2164 0.0359 8.3929 0.5532) (make-tfo -0.8143 -0.5091 -0.2788 ; P-O3*-275-tfo -0.0433 -0.4257 0.9038 -0.5788 0.7480 0.3246 1.5227 6.9114 -7.0765) (make-tfo 0.3822 -0.7477 0.5430 ; P-O3*-180-tfo 0.4552 0.6637 0.5935 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (make-tfo 0.5640 0.8007 -0.2022 ; P-O3*-60-tfo -0.8247 0.5587 -0.0878 0.0426 0.2162 0.9754 6.2694 -7.0540 3.3316) (make-pt 2.8930 8.5380 -3.3280) ; P (make-pt 1.6980 7.6960 -3.5570) ; O1P (make-pt 3.2260 9.5010 -4.4020) ; O2P (make-pt 4.1590 7.6040 -3.0340) ; O5* (make-pt 5.4352 8.2183 -2.7757) ; C5* (make-pt 5.3830 8.7883 -1.8481) ; H5* (make-pt 5.7729 8.7436 -3.6691) ; H5** (make-pt 6.4830 7.1518 -2.5252) ; C4* (make-pt 7.4749 7.5972 -2.4482) ; H4* (make-pt 6.1626 6.4620 -1.2827) ; O4* (make-pt 6.5431 5.0992 -1.3905) ; C1* (make-pt 7.2871 4.9328 -0.6114) ; H1* (make-pt 7.1852 4.8935 -2.7592) ; C2* (make-pt 6.8573 3.9363 -3.1645) ; H2** (make-pt 8.5780 5.1025 -2.6046) ; O2* (make-pt 8.9516 4.7577 -1.7902) ; H2* (make-pt 6.5522 6.0300 -3.5612) ; C3* (make-pt 5.5420 5.7356 -3.8459) ; H3* (make-pt 7.3487 6.4089 -4.6867) ; O3* (make-pt 4.7442 0.4514 -0.1390) ; N1 (make-pt 6.3687 2.1459 -0.5926) ; N3 (make-pt 5.9795 0.9335 -0.2657) ; C2 (make-pt 5.3052 2.9471 -0.8125) ; C4 (make-pt 3.9891 2.5987 -0.7230) ; C5 (make-pt 3.7016 1.2717 -0.3647) ; C6 (make-pt 6.8745 -0.0224 -0.0058) ; N2 (make-pt 3.1770 3.6859 -1.0198) ; N7 (make-pt 5.3247 4.2695 -1.1710) ; N9 (make-pt 4.0156 4.6415 -1.2759) ; C8 (make-pt 2.4553 0.7925 -0.2390) ; O6 (make-pt 4.6497 -0.5095 0.1212) ; H1 (make-pt 6.6836 -0.9771 0.2627) ; H21 (make-pt 7.8474 0.2424 -0.0653) ; H22 (make-pt 3.4426 5.5361 -1.5199) ; H8 )) (define rG02 (make-rG (make-tfo 0.5566 0.0449 0.8296 ; dgf-base-tfo 0.5125 0.7673 -0.3854 -0.6538 0.6397 0.4041 -9.1161 -3.7679 -2.9968) (make-tfo -0.8143 -0.5091 -0.2788 ; P-O3*-275-tfo -0.0433 -0.4257 0.9038 -0.5788 0.7480 0.3246 1.5227 6.9114 -7.0765) (make-tfo 0.3822 -0.7477 0.5430 ; P-O3*-180-tfo 0.4552 0.6637 0.5935 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (make-tfo 0.5640 0.8007 -0.2022 ; P-O3*-60-tfo -0.8247 0.5587 -0.0878 0.0426 0.2162 0.9754 6.2694 -7.0540 3.3316) (make-pt 2.8930 8.5380 -3.3280) ; P (make-pt 1.6980 7.6960 -3.5570) ; O1P (make-pt 3.2260 9.5010 -4.4020) ; O2P (make-pt 4.1590 7.6040 -3.0340) ; O5* (make-pt 4.5778 6.6594 -4.0364) ; C5* (make-pt 4.9220 7.1963 -4.9204) ; H5* (make-pt 3.7996 5.9091 -4.1764) ; H5** (make-pt 5.7873 5.8869 -3.5482) ; C4* (make-pt 6.0405 5.0875 -4.2446) ; H4* (make-pt 6.9135 6.8036 -3.4310) ; O4* (make-pt 7.7293 6.4084 -2.3392) ; C1* (make-pt 8.7078 6.1815 -2.7624) ; H1* (make-pt 7.1305 5.1418 -1.7347) ; C2* (make-pt 7.2040 5.1982 -0.6486) ; H2** (make-pt 7.7417 4.0392 -2.3813) ; O2* (make-pt 8.6785 4.1443 -2.5630) ; H2* (make-pt 5.6666 5.2728 -2.1536) ; C3* (make-pt 5.1747 5.9805 -1.4863) ; H3* (make-pt 4.9997 4.0086 -2.1973) ; O3* (make-pt 10.3245 8.5459 1.5467) ; N1 (make-pt 9.8051 6.9432 -0.1497) ; N3 (make-pt 10.5175 7.4328 0.8408) ; C2 (make-pt 8.7523 7.7422 -0.4228) ; C4 (make-pt 8.4257 8.9060 0.2099) ; C5 (make-pt 9.2665 9.3242 1.2540) ; C6 (make-pt 11.6077 6.7966 1.2752) ; N2 (make-pt 7.2750 9.4537 -0.3428) ; N7 (make-pt 7.7962 7.5519 -1.3859) ; N9 (make-pt 6.9479 8.6157 -1.2771) ; C8 (make-pt 9.0664 10.4462 1.9610) ; O6 (make-pt 10.9838 8.7524 2.2697) ; H1 (make-pt 12.2274 7.0896 2.0170) ; H21 (make-pt 11.8502 5.9398 0.7984) ; H22 (make-pt 6.0430 8.9853 -1.7594) ; H8 )) (define rG03 (make-rG (make-tfo -0.5021 0.0731 0.8617 ; dgf-base-tfo -0.8112 0.3054 -0.4986 -0.2996 -0.9494 -0.0940 6.4273 -5.1944 -3.7807) (make-tfo -0.8143 -0.5091 -0.2788 ; P-O3*-275-tfo -0.0433 -0.4257 0.9038 -0.5788 0.7480 0.3246 1.5227 6.9114 -7.0765) (make-tfo 0.3822 -0.7477 0.5430 ; P-O3*-180-tfo 0.4552 0.6637 0.5935 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (make-tfo 0.5640 0.8007 -0.2022 ; P-O3*-60-tfo -0.8247 0.5587 -0.0878 0.0426 0.2162 0.9754 6.2694 -7.0540 3.3316) (make-pt 2.8930 8.5380 -3.3280) ; P (make-pt 1.6980 7.6960 -3.5570) ; O1P (make-pt 3.2260 9.5010 -4.4020) ; O2P (make-pt 4.1590 7.6040 -3.0340) ; O5* (make-pt 4.1214 6.7116 -1.9049) ; C5* (make-pt 3.3465 5.9610 -2.0607) ; H5* (make-pt 4.0789 7.2928 -0.9837) ; H5** (make-pt 5.4170 5.9293 -1.8186) ; C4* (make-pt 5.4506 5.3400 -0.9023) ; H4* (make-pt 5.5067 5.0417 -2.9703) ; O4* (make-pt 6.8650 4.9152 -3.3612) ; C1* (make-pt 7.1090 3.8577 -3.2603) ; H1* (make-pt 7.7152 5.7282 -2.3894) ; C2* (make-pt 8.5029 6.2356 -2.9463) ; H2** (make-pt 8.1036 4.8568 -1.3419) ; O2* (make-pt 8.3270 3.9651 -1.6184) ; H2* (make-pt 6.7003 6.7565 -1.8911) ; C3* (make-pt 6.5898 7.5329 -2.6482) ; H3* (make-pt 7.0505 7.2878 -0.6105) ; O3* (make-pt 9.6740 4.7656 -7.6614) ; N1 (make-pt 9.0739 4.3013 -5.3941) ; N3 (make-pt 9.8416 4.2192 -6.4581) ; C2 (make-pt 7.9885 5.0632 -5.6446) ; C4 (make-pt 7.6822 5.6856 -6.8194) ; C5 (make-pt 8.5831 5.5215 -7.8840) ; C6 (make-pt 10.9733 3.5117 -6.4286) ; N2 (make-pt 6.4857 6.3816 -6.7035) ; N7 (make-pt 6.9740 5.3703 -4.7760) ; N9 (make-pt 6.1133 6.1613 -5.4808) ; C8 (make-pt 8.4084 6.0747 -9.0933) ; O6 (make-pt 10.3759 4.5855 -8.3504) ; H1 (make-pt 11.6254 3.3761 -7.1879) ; H21 (make-pt 11.1917 3.0460 -5.5593) ; H22 (make-pt 5.1705 6.6830 -5.3167) ; H8 )) (define rG04 (make-rG (make-tfo -0.5426 -0.8175 0.1929 ; dgf-base-tfo 0.8304 -0.5567 -0.0237 0.1267 0.1473 0.9809 -0.5075 8.3929 0.2229) (make-tfo -0.8143 -0.5091 -0.2788 ; P-O3*-275-tfo -0.0433 -0.4257 0.9038 -0.5788 0.7480 0.3246 1.5227 6.9114 -7.0765) (make-tfo 0.3822 -0.7477 0.5430 ; P-O3*-180-tfo 0.4552 0.6637 0.5935 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (make-tfo 0.5640 0.8007 -0.2022 ; P-O3*-60-tfo -0.8247 0.5587 -0.0878 0.0426 0.2162 0.9754 6.2694 -7.0540 3.3316) (make-pt 2.8930 8.5380 -3.3280) ; P (make-pt 1.6980 7.6960 -3.5570) ; O1P (make-pt 3.2260 9.5010 -4.4020) ; O2P (make-pt 4.1590 7.6040 -3.0340) ; O5* (make-pt 5.4352 8.2183 -2.7757) ; C5* (make-pt 5.3830 8.7883 -1.8481) ; H5* (make-pt 5.7729 8.7436 -3.6691) ; H5** (make-pt 6.4830 7.1518 -2.5252) ; C4* (make-pt 7.4749 7.5972 -2.4482) ; H4* (make-pt 6.1626 6.4620 -1.2827) ; O4* (make-pt 6.5431 5.0992 -1.3905) ; C1* (make-pt 7.2871 4.9328 -0.6114) ; H1* (make-pt 7.1852 4.8935 -2.7592) ; C2* (make-pt 6.8573 3.9363 -3.1645) ; H2** (make-pt 8.5780 5.1025 -2.6046) ; O2* (make-pt 8.9516 4.7577 -1.7902) ; H2* (make-pt 6.5522 6.0300 -3.5612) ; C3* (make-pt 5.5420 5.7356 -3.8459) ; H3* (make-pt 7.3487 6.4089 -4.6867) ; O3* (make-pt 3.6343 2.6680 2.0783) ; N1 (make-pt 5.4505 3.9805 1.2446) ; N3 (make-pt 4.7540 3.3816 2.1851) ; C2 (make-pt 4.8805 3.7951 0.0354) ; C4 (make-pt 3.7416 3.0925 -0.2305) ; C5 (make-pt 3.0873 2.4980 0.8606) ; C6 (make-pt 5.1433 3.4373 3.4609) ; N2 (make-pt 3.4605 3.1184 -1.5906) ; N7 (make-pt 5.3247 4.2695 -1.1710) ; N9 (make-pt 4.4244 3.8244 -2.0953) ; C8 (make-pt 1.9600 1.7805 0.7462) ; O6 (make-pt 3.2489 2.2879 2.9191) ; H1 (make-pt 4.6785 3.0243 4.2568) ; H21 (make-pt 5.9823 3.9654 3.6539) ; H22 (make-pt 4.2675 3.8876 -3.1721) ; H8 )) (define rG05 (make-rG (make-tfo -0.5891 0.0449 0.8068 ; dgf-base-tfo 0.5375 0.7673 0.3498 -0.6034 0.6397 -0.4762 -0.3019 -3.7679 -9.5913) (make-tfo -0.8143 -0.5091 -0.2788 ; P-O3*-275-tfo -0.0433 -0.4257 0.9038 -0.5788 0.7480 0.3246 1.5227 6.9114 -7.0765) (make-tfo 0.3822 -0.7477 0.5430 ; P-O3*-180-tfo 0.4552 0.6637 0.5935 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (make-tfo 0.5640 0.8007 -0.2022 ; P-O3*-60-tfo -0.8247 0.5587 -0.0878 0.0426 0.2162 0.9754 6.2694 -7.0540 3.3316) (make-pt 2.8930 8.5380 -3.3280) ; P (make-pt 1.6980 7.6960 -3.5570) ; O1P (make-pt 3.2260 9.5010 -4.4020) ; O2P (make-pt 4.1590 7.6040 -3.0340) ; O5* (make-pt 4.5778 6.6594 -4.0364) ; C5* (make-pt 4.9220 7.1963 -4.9204) ; H5* (make-pt 3.7996 5.9091 -4.1764) ; H5** (make-pt 5.7873 5.8869 -3.5482) ; C4* (make-pt 6.0405 5.0875 -4.2446) ; H4* (make-pt 6.9135 6.8036 -3.4310) ; O4* (make-pt 7.7293 6.4084 -2.3392) ; C1* (make-pt 8.7078 6.1815 -2.7624) ; H1* (make-pt 7.1305 5.1418 -1.7347) ; C2* (make-pt 7.2040 5.1982 -0.6486) ; H2** (make-pt 7.7417 4.0392 -2.3813) ; O2* (make-pt 8.6785 4.1443 -2.5630) ; H2* (make-pt 5.6666 5.2728 -2.1536) ; C3* (make-pt 5.1747 5.9805 -1.4863) ; H3* (make-pt 4.9997 4.0086 -2.1973) ; O3* (make-pt 10.2594 10.6774 -1.0056) ; N1 (make-pt 9.7528 8.7080 -2.2631) ; N3 (make-pt 10.4471 9.7876 -1.9791) ; C2 (make-pt 8.7271 8.5575 -1.3991) ; C4 (make-pt 8.4100 9.3803 -0.3580) ; C5 (make-pt 9.2294 10.5030 -0.1574) ; C6 (make-pt 11.5110 10.1256 -2.7114) ; N2 (make-pt 7.2891 8.9068 0.3121) ; N7 (make-pt 7.7962 7.5519 -1.3859) ; N9 (make-pt 6.9702 7.8292 -0.3353) ; C8 (make-pt 9.0349 11.3951 0.8250) ; O6 (make-pt 10.9013 11.4422 -0.9512) ; H1 (make-pt 12.1031 10.9341 -2.5861) ; H21 (make-pt 11.7369 9.5180 -3.4859) ; H22 (make-pt 6.0888 7.3990 0.1403) ; H8 )) (define rG06 (make-rG (make-tfo -0.9815 0.0731 -0.1772 ; dgf-base-tfo 0.1912 0.3054 -0.9328 -0.0141 -0.9494 -0.3137 5.7506 -5.1944 4.7470) (make-tfo -0.8143 -0.5091 -0.2788 ; P-O3*-275-tfo -0.0433 -0.4257 0.9038 -0.5788 0.7480 0.3246 1.5227 6.9114 -7.0765) (make-tfo 0.3822 -0.7477 0.5430 ; P-O3*-180-tfo 0.4552 0.6637 0.5935 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (make-tfo 0.5640 0.8007 -0.2022 ; P-O3*-60-tfo -0.8247 0.5587 -0.0878 0.0426 0.2162 0.9754 6.2694 -7.0540 3.3316) (make-pt 2.8930 8.5380 -3.3280) ; P (make-pt 1.6980 7.6960 -3.5570) ; O1P (make-pt 3.2260 9.5010 -4.4020) ; O2P (make-pt 4.1590 7.6040 -3.0340) ; O5* (make-pt 4.1214 6.7116 -1.9049) ; C5* (make-pt 3.3465 5.9610 -2.0607) ; H5* (make-pt 4.0789 7.2928 -0.9837) ; H5** (make-pt 5.4170 5.9293 -1.8186) ; C4* (make-pt 5.4506 5.3400 -0.9023) ; H4* (make-pt 5.5067 5.0417 -2.9703) ; O4* (make-pt 6.8650 4.9152 -3.3612) ; C1* (make-pt 7.1090 3.8577 -3.2603) ; H1* (make-pt 7.7152 5.7282 -2.3894) ; C2* (make-pt 8.5029 6.2356 -2.9463) ; H2** (make-pt 8.1036 4.8568 -1.3419) ; O2* (make-pt 8.3270 3.9651 -1.6184) ; H2* (make-pt 6.7003 6.7565 -1.8911) ; C3* (make-pt 6.5898 7.5329 -2.6482) ; H3* (make-pt 7.0505 7.2878 -0.6105) ; O3* (make-pt 6.6624 3.5061 -8.2986) ; N1 (make-pt 6.5810 3.2570 -5.9221) ; N3 (make-pt 6.5151 2.8263 -7.1625) ; C2 (make-pt 6.8364 4.5817 -5.8882) ; C4 (make-pt 7.0116 5.4064 -6.9609) ; C5 (make-pt 6.9173 4.8260 -8.2361) ; C6 (make-pt 6.2717 1.5402 -7.4250) ; N2 (make-pt 7.2573 6.7070 -6.5394) ; N7 (make-pt 6.9740 5.3703 -4.7760) ; N9 (make-pt 7.2238 6.6275 -5.2453) ; C8 (make-pt 7.0668 5.5163 -9.3763) ; O6 (make-pt 6.5754 2.9964 -9.1545) ; H1 (make-pt 6.1908 1.1105 -8.3354) ; H21 (make-pt 6.1346 0.9352 -6.6280) ; H22 (make-pt 7.4108 7.6227 -4.8418) ; H8 )) (define rG07 (make-rG (make-tfo 0.0894 -0.6059 0.7905 ; dgf-base-tfo -0.6810 0.5420 0.4924 -0.7268 -0.5824 -0.3642 34.1424 45.9610 -11.8600) (make-tfo -0.8644 -0.4956 -0.0851 ; P-O3*-275-tfo -0.0427 0.2409 -0.9696 0.5010 -0.8345 -0.2294 4.0167 54.5377 12.4779) (make-tfo 0.3706 -0.6167 0.6945 ; P-O3*-180-tfo -0.2867 -0.7872 -0.5460 0.8834 0.0032 -0.4686 -52.9020 18.6313 -0.6709) (make-tfo 0.4155 0.9025 -0.1137 ; P-O3*-60-tfo 0.9040 -0.4236 -0.0582 -0.1007 -0.0786 -0.9918 -7.6624 -25.2080 49.5181) (make-pt 31.3810 0.1400 47.5810) ; P (make-pt 29.9860 0.6630 47.6290) ; O1P (make-pt 31.7210 -0.6460 48.8090) ; O2P (make-pt 32.4940 1.2540 47.2740) ; O5* (make-pt 33.8709 0.7918 47.2113) ; C5* (make-pt 34.1386 0.5870 46.1747) ; H5* (make-pt 34.0186 -0.0095 47.9353) ; H5** (make-pt 34.7297 1.9687 47.6685) ; C4* (make-pt 35.7723 1.6845 47.8113) ; H4* (make-pt 34.6455 2.9768 46.6660) ; O4* (make-pt 34.1690 4.1829 47.2627) ; C1* (make-pt 35.0437 4.7633 47.5560) ; H1* (make-pt 33.4145 3.7532 48.4954) ; C2* (make-pt 32.4340 3.3797 48.2001) ; H2** (make-pt 33.3209 4.6953 49.5217) ; O2* (make-pt 33.2374 5.6059 49.2295) ; H2* (make-pt 34.2724 2.5970 48.9773) ; C3* (make-pt 33.6373 1.8935 49.5157) ; H3* (make-pt 35.3453 3.1884 49.7285) ; O3* (make-pt 34.0511 7.8930 43.7791) ; N1 (make-pt 34.9937 6.3369 45.3199) ; N3 (make-pt 35.0882 7.3126 44.4200) ; C2 (make-pt 33.7190 5.9650 45.5374) ; C4 (make-pt 32.5845 6.4770 44.9458) ; C5 (make-pt 32.7430 7.5179 43.9914) ; C6 (make-pt 36.3030 7.7827 44.1036) ; N2 (make-pt 31.4499 5.8335 45.4368) ; N7 (make-pt 33.2760 4.9817 46.4043) ; N9 (make-pt 31.9235 4.9639 46.2934) ; C8 (make-pt 31.8602 8.1000 43.3695) ; O6 (make-pt 34.2623 8.6223 43.1283) ; H1 (make-pt 36.5188 8.5081 43.4347) ; H21 (make-pt 37.0888 7.3524 44.5699) ; H22 (make-pt 31.0815 4.4201 46.7218) ; H8 )) (define rG08 (make-rG (make-tfo 0.2224 0.6335 0.7411 ; dgf-base-tfo -0.3644 -0.6510 0.6659 0.9043 -0.4181 0.0861 -47.6824 -0.5823 -31.7554) (make-tfo -0.8644 -0.4956 -0.0851 ; P-O3*-275-tfo -0.0427 0.2409 -0.9696 0.5010 -0.8345 -0.2294 4.0167 54.5377 12.4779) (make-tfo 0.3706 -0.6167 0.6945 ; P-O3*-180-tfo -0.2867 -0.7872 -0.5460 0.8834 0.0032 -0.4686 -52.9020 18.6313 -0.6709) (make-tfo 0.4155 0.9025 -0.1137 ; P-O3*-60-tfo 0.9040 -0.4236 -0.0582 -0.1007 -0.0786 -0.9918 -7.6624 -25.2080 49.5181) (make-pt 31.3810 0.1400 47.5810) ; P (make-pt 29.9860 0.6630 47.6290) ; O1P (make-pt 31.7210 -0.6460 48.8090) ; O2P (make-pt 32.4940 1.2540 47.2740) ; O5* (make-pt 32.5924 2.3488 48.2255) ; C5* (make-pt 33.3674 2.1246 48.9584) ; H5* (make-pt 31.5994 2.5917 48.6037) ; H5** (make-pt 33.0722 3.5577 47.4258) ; C4* (make-pt 33.0310 4.4778 48.0089) ; H4* (make-pt 34.4173 3.3055 47.0316) ; O4* (make-pt 34.5056 3.3910 45.6094) ; C1* (make-pt 34.7881 4.4152 45.3663) ; H1* (make-pt 33.1122 3.1198 45.1010) ; C2* (make-pt 32.9230 2.0469 45.1369) ; H2** (make-pt 32.7946 3.6590 43.8529) ; O2* (make-pt 33.5170 3.6707 43.2207) ; H2* (make-pt 32.2730 3.8173 46.1566) ; C3* (make-pt 31.3094 3.3123 46.2244) ; H3* (make-pt 32.2391 5.2039 45.7807) ; O3* (make-pt 39.3337 2.7157 44.1441) ; N1 (make-pt 37.4430 3.8242 45.0824) ; N3 (make-pt 38.7276 3.7646 44.7403) ; C2 (make-pt 36.7791 2.6963 44.7704) ; C4 (make-pt 37.2860 1.5653 44.1678) ; C5 (make-pt 38.6647 1.5552 43.8235) ; C6 (make-pt 39.5123 4.8216 44.9936) ; N2 (make-pt 36.2829 0.6110 44.0078) ; N7 (make-pt 35.4394 2.4314 44.9931) ; N9 (make-pt 35.2180 1.1815 44.5128) ; C8 (make-pt 39.2907 0.6514 43.2796) ; O6 (make-pt 40.3076 2.8048 43.9352) ; H1 (make-pt 40.4994 4.9066 44.7977) ; H21 (make-pt 39.0738 5.6108 45.4464) ; H22 (make-pt 34.3856 0.4842 44.4185) ; H8 )) (define rG09 (make-rG (make-tfo -0.9699 -0.1688 -0.1753 ; dgf-base-tfo -0.1050 -0.3598 0.9271 -0.2196 0.9176 0.3312 45.6217 -38.9484 -12.3208) (make-tfo -0.8644 -0.4956 -0.0851 ; P-O3*-275-tfo -0.0427 0.2409 -0.9696 0.5010 -0.8345 -0.2294 4.0167 54.5377 12.4779) (make-tfo 0.3706 -0.6167 0.6945 ; P-O3*-180-tfo -0.2867 -0.7872 -0.5460 0.8834 0.0032 -0.4686 -52.9020 18.6313 -0.6709) (make-tfo 0.4155 0.9025 -0.1137 ; P-O3*-60-tfo 0.9040 -0.4236 -0.0582 -0.1007 -0.0786 -0.9918 -7.6624 -25.2080 49.5181) (make-pt 31.3810 0.1400 47.5810) ; P (make-pt 29.9860 0.6630 47.6290) ; O1P (make-pt 31.7210 -0.6460 48.8090) ; O2P (make-pt 32.4940 1.2540 47.2740) ; O5* (make-pt 33.8709 0.7918 47.2113) ; C5* (make-pt 34.1386 0.5870 46.1747) ; H5* (make-pt 34.0186 -0.0095 47.9353) ; H5** (make-pt 34.7297 1.9687 47.6685) ; C4* (make-pt 34.5880 2.8482 47.0404) ; H4* (make-pt 34.3575 2.2770 49.0081) ; O4* (make-pt 35.5157 2.1993 49.8389) ; C1* (make-pt 35.9424 3.2010 49.8893) ; H1* (make-pt 36.4701 1.2820 49.1169) ; C2* (make-pt 36.1545 0.2498 49.2683) ; H2** (make-pt 37.8262 1.4547 49.4008) ; O2* (make-pt 38.0227 1.6945 50.3094) ; H2* (make-pt 36.2242 1.6797 47.6725) ; C3* (make-pt 36.4297 0.8197 47.0351) ; H3* (make-pt 37.0289 2.8480 47.4426) ; O3* (make-pt 34.3005 3.5042 54.6070) ; N1 (make-pt 34.7693 3.7936 52.2874) ; N3 (make-pt 34.4484 4.2541 53.4939) ; C2 (make-pt 34.9354 2.4584 52.2785) ; C4 (make-pt 34.8092 1.5915 53.3422) ; C5 (make-pt 34.4646 2.1367 54.6085) ; C6 (make-pt 34.2514 5.5708 53.6503) ; N2 (make-pt 35.0641 0.2835 52.9337) ; N7 (make-pt 35.2669 1.6690 51.1915) ; N9 (make-pt 35.3288 0.3954 51.6563) ; C8 (make-pt 34.3151 1.5317 55.6650) ; O6 (make-pt 34.0623 3.9797 55.4539) ; H1 (make-pt 33.9950 6.0502 54.5016) ; H21 (make-pt 34.3512 6.1432 52.8242) ; H22 (make-pt 35.5414 -0.6006 51.2679) ; H8 )) (define rG10 (make-rG (make-tfo -0.0980 -0.9723 0.2122 ; dgf-base-tfo -0.9731 0.1383 0.1841 -0.2083 -0.1885 -0.9597 17.8469 38.8265 37.0475) (make-tfo -0.8644 -0.4956 -0.0851 ; P-O3*-275-tfo -0.0427 0.2409 -0.9696 0.5010 -0.8345 -0.2294 4.0167 54.5377 12.4779) (make-tfo 0.3706 -0.6167 0.6945 ; P-O3*-180-tfo -0.2867 -0.7872 -0.5460 0.8834 0.0032 -0.4686 -52.9020 18.6313 -0.6709) (make-tfo 0.4155 0.9025 -0.1137 ; P-O3*-60-tfo 0.9040 -0.4236 -0.0582 -0.1007 -0.0786 -0.9918 -7.6624 -25.2080 49.5181) (make-pt 31.3810 0.1400 47.5810) ; P (make-pt 29.9860 0.6630 47.6290) ; O1P (make-pt 31.7210 -0.6460 48.8090) ; O2P (make-pt 32.4940 1.2540 47.2740) ; O5* (make-pt 32.5924 2.3488 48.2255) ; C5* (make-pt 33.3674 2.1246 48.9584) ; H5* (make-pt 31.5994 2.5917 48.6037) ; H5** (make-pt 33.0722 3.5577 47.4258) ; C4* (make-pt 34.0333 3.3761 46.9447) ; H4* (make-pt 32.0890 3.8338 46.4332) ; O4* (make-pt 31.6377 5.1787 46.5914) ; C1* (make-pt 32.2499 5.8016 45.9392) ; H1* (make-pt 31.9167 5.5319 48.0305) ; C2* (make-pt 31.1507 5.0820 48.6621) ; H2** (make-pt 32.0865 6.8890 48.3114) ; O2* (make-pt 31.5363 7.4819 47.7942) ; H2* (make-pt 33.2398 4.8224 48.2563) ; C3* (make-pt 33.3166 4.5570 49.3108) ; H3* (make-pt 34.2528 5.7056 47.7476) ; O3* (make-pt 28.2782 6.3049 42.9364) ; N1 (make-pt 30.4001 5.8547 43.9258) ; N3 (make-pt 29.6195 6.1568 42.8913) ; C2 (make-pt 29.7005 5.7006 45.0649) ; C4 (make-pt 28.3383 5.8221 45.2343) ; C5 (make-pt 27.5519 6.1461 44.0958) ; C6 (make-pt 30.1838 6.3385 41.6890) ; N2 (make-pt 27.9936 5.5926 46.5651) ; N7 (make-pt 30.2046 5.3825 46.3136) ; N9 (make-pt 29.1371 5.3398 47.1506) ; C8 (make-pt 26.3361 6.3024 44.0495) ; O6 (make-pt 27.8122 6.5394 42.0833) ; H1 (make-pt 29.7125 6.5595 40.8235) ; H21 (make-pt 31.1859 6.2231 41.6389) ; H22 (make-pt 28.9406 5.1504 48.2059) ; H8 )) (define rGs (list rG01 rG02 rG03 rG04 rG05 rG06 rG07 rG08 rG09 rG10)) (define rU (make-rU (make-tfo -0.0359 -0.8071 0.5894 ; dgf-base-tfo -0.2669 0.5761 0.7726 -0.9631 -0.1296 -0.2361 0.1584 8.3434 0.5434) (make-tfo -0.8313 -0.4738 -0.2906 ; P-O3*-275-tfo 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3322 1.6833 6.8060 -7.0011) (make-tfo 0.3445 -0.7630 0.5470 ; P-O3*-180-tfo -0.4628 -0.6450 -0.6082 0.8168 -0.0436 -0.5753 -6.8179 -3.9778 -5.9887) (make-tfo 0.5855 0.7931 -0.1682 ; P-O3*-60-tfo 0.8103 -0.5790 0.0906 -0.0255 -0.1894 -0.9816 6.1203 -7.1051 3.1984) (make-pt 2.6760 -8.4960 3.2880) ; P (make-pt 1.4950 -7.6230 3.4770) ; O1P (make-pt 2.9490 -9.4640 4.3740) ; O2P (make-pt 3.9730 -7.5950 3.0340) ; O5* (make-pt 5.2430 -8.2420 2.8260) ; C5* (make-pt 5.1974 -8.8497 1.9223) ; H5* (make-pt 5.5548 -8.7348 3.7469) ; H5** (make-pt 6.3140 -7.2060 2.5510) ; C4* (make-pt 7.2954 -7.6762 2.4898) ; H4* (make-pt 6.0140 -6.5420 1.2890) ; O4* (make-pt 6.4190 -5.1840 1.3620) ; C1* (make-pt 7.1608 -5.0495 0.5747) ; H1* (make-pt 7.0760 -4.9560 2.7270) ; C2* (make-pt 6.7770 -3.9803 3.1099) ; H2** (make-pt 8.4500 -5.1930 2.5810) ; O2* (make-pt 8.8309 -4.8755 1.7590) ; H2* (make-pt 6.4060 -6.0590 3.5580) ; C3* (make-pt 5.4021 -5.7313 3.8281) ; H3* (make-pt 7.1570 -6.4240 4.7070) ; O3* (make-pt 5.2170 -4.3260 1.1690) ; N1 (make-pt 4.2960 -2.2560 0.6290) ; N3 (make-pt 5.4330 -3.0200 0.7990) ; C2 (make-pt 2.9930 -2.6780 0.7940) ; C4 (make-pt 2.8670 -4.0630 1.1830) ; C5 (make-pt 3.9570 -4.8300 1.3550) ; C6 (make-pt 6.5470 -2.5560 0.6290) ; O2 (make-pt 2.0540 -1.9000 0.6130) ; O4 (make-pt 4.4300 -1.3020 0.3600) ; H3 (make-pt 1.9590 -4.4570 1.3250) ; H5 (make-pt 3.8460 -5.7860 1.6240) ; H6 )) (define rU01 (make-rU (make-tfo -0.0137 -0.8012 0.5983 ; dgf-base-tfo -0.2523 0.5817 0.7733 -0.9675 -0.1404 -0.2101 0.2031 8.3874 0.4228) (make-tfo -0.8313 -0.4738 -0.2906 ; P-O3*-275-tfo 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3322 1.6833 6.8060 -7.0011) (make-tfo 0.3445 -0.7630 0.5470 ; P-O3*-180-tfo -0.4628 -0.6450 -0.6082 0.8168 -0.0436 -0.5753 -6.8179 -3.9778 -5.9887) (make-tfo 0.5855 0.7931 -0.1682 ; P-O3*-60-tfo 0.8103 -0.5790 0.0906 -0.0255 -0.1894 -0.9816 6.1203 -7.1051 3.1984) (make-pt 2.6760 -8.4960 3.2880) ; P (make-pt 1.4950 -7.6230 3.4770) ; O1P (make-pt 2.9490 -9.4640 4.3740) ; O2P (make-pt 3.9730 -7.5950 3.0340) ; O5* (make-pt 5.2416 -8.2422 2.8181) ; C5* (make-pt 5.2050 -8.8128 1.8901) ; H5* (make-pt 5.5368 -8.7738 3.7227) ; H5** (make-pt 6.3232 -7.2037 2.6002) ; C4* (make-pt 7.3048 -7.6757 2.5577) ; H4* (make-pt 6.0635 -6.5092 1.3456) ; O4* (make-pt 6.4697 -5.1547 1.4629) ; C1* (make-pt 7.2354 -5.0043 0.7018) ; H1* (make-pt 7.0856 -4.9610 2.8521) ; C2* (make-pt 6.7777 -3.9935 3.2487) ; H2** (make-pt 8.4627 -5.1992 2.7423) ; O2* (make-pt 8.8693 -4.8638 1.9399) ; H2* (make-pt 6.3877 -6.0809 3.6362) ; C3* (make-pt 5.3770 -5.7562 3.8834) ; H3* (make-pt 7.1024 -6.4754 4.7985) ; O3* (make-pt 5.2764 -4.2883 1.2538) ; N1 (make-pt 4.3777 -2.2062 0.7229) ; N3 (make-pt 5.5069 -2.9779 0.9088) ; C2 (make-pt 3.0693 -2.6246 0.8500) ; C4 (make-pt 2.9279 -4.0146 1.2149) ; C5 (make-pt 4.0101 -4.7892 1.4017) ; C6 (make-pt 6.6267 -2.5166 0.7728) ; O2 (make-pt 2.1383 -1.8396 0.6581) ; O4 (make-pt 4.5223 -1.2489 0.4716) ; H3 (make-pt 2.0151 -4.4065 1.3290) ; H5 (make-pt 3.8886 -5.7486 1.6535) ; H6 )) (define rU02 (make-rU (make-tfo 0.5141 0.0246 0.8574 ; dgf-base-tfo -0.5547 -0.7529 0.3542 0.6542 -0.6577 -0.3734 -9.1111 -3.4598 -3.2939) (make-tfo -0.8313 -0.4738 -0.2906 ; P-O3*-275-tfo 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3322 1.6833 6.8060 -7.0011) (make-tfo 0.3445 -0.7630 0.5470 ; P-O3*-180-tfo -0.4628 -0.6450 -0.6082 0.8168 -0.0436 -0.5753 -6.8179 -3.9778 -5.9887) (make-tfo 0.5855 0.7931 -0.1682 ; P-O3*-60-tfo 0.8103 -0.5790 0.0906 -0.0255 -0.1894 -0.9816 6.1203 -7.1051 3.1984) (make-pt 2.6760 -8.4960 3.2880) ; P (make-pt 1.4950 -7.6230 3.4770) ; O1P (make-pt 2.9490 -9.4640 4.3740) ; O2P (make-pt 3.9730 -7.5950 3.0340) ; O5* (make-pt 4.3825 -6.6585 4.0489) ; C5* (make-pt 4.6841 -7.2019 4.9443) ; H5* (make-pt 3.6189 -5.8889 4.1625) ; H5** (make-pt 5.6255 -5.9175 3.5998) ; C4* (make-pt 5.8732 -5.1228 4.3034) ; H4* (make-pt 6.7337 -6.8605 3.5222) ; O4* (make-pt 7.5932 -6.4923 2.4548) ; C1* (make-pt 8.5661 -6.2983 2.9064) ; H1* (make-pt 7.0527 -5.2012 1.8322) ; C2* (make-pt 7.1627 -5.2525 0.7490) ; H2** (make-pt 7.6666 -4.1249 2.4880) ; O2* (make-pt 8.5944 -4.2543 2.6981) ; H2* (make-pt 5.5661 -5.3029 2.2009) ; C3* (make-pt 5.0841 -6.0018 1.5172) ; H3* (make-pt 4.9062 -4.0452 2.2042) ; O3* (make-pt 7.6298 -7.6136 1.4752) ; N1 (make-pt 8.6945 -8.7046 -0.2857) ; N3 (make-pt 8.6943 -7.6514 0.6066) ; C2 (make-pt 7.7426 -9.6987 -0.3801) ; C4 (make-pt 6.6642 -9.5742 0.5722) ; C5 (make-pt 6.6391 -8.5592 1.4526) ; C6 (make-pt 9.5840 -6.8186 0.6136) ; O2 (make-pt 7.8505 -10.5925 -1.2223) ; O4 (make-pt 9.4601 -8.7514 -0.9277) ; H3 (make-pt 5.9281 -10.2509 0.5782) ; H5 (make-pt 5.8831 -8.4931 2.1028) ; H6 )) (define rU03 (make-rU (make-tfo -0.4993 0.0476 0.8651 ; dgf-base-tfo 0.8078 -0.3353 0.4847 0.3132 0.9409 0.1290 6.2989 -5.2303 -3.8577) (make-tfo -0.8313 -0.4738 -0.2906 ; P-O3*-275-tfo 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3322 1.6833 6.8060 -7.0011) (make-tfo 0.3445 -0.7630 0.5470 ; P-O3*-180-tfo -0.4628 -0.6450 -0.6082 0.8168 -0.0436 -0.5753 -6.8179 -3.9778 -5.9887) (make-tfo 0.5855 0.7931 -0.1682 ; P-O3*-60-tfo 0.8103 -0.5790 0.0906 -0.0255 -0.1894 -0.9816 6.1203 -7.1051 3.1984) (make-pt 2.6760 -8.4960 3.2880) ; P (make-pt 1.4950 -7.6230 3.4770) ; O1P (make-pt 2.9490 -9.4640 4.3740) ; O2P (make-pt 3.9730 -7.5950 3.0340) ; O5* (make-pt 3.9938 -6.7042 1.9023) ; C5* (make-pt 3.2332 -5.9343 2.0319) ; H5* (make-pt 3.9666 -7.2863 0.9812) ; H5** (make-pt 5.3098 -5.9546 1.8564) ; C4* (make-pt 5.3863 -5.3702 0.9395) ; H4* (make-pt 5.3851 -5.0642 3.0076) ; O4* (make-pt 6.7315 -4.9724 3.4462) ; C1* (make-pt 7.0033 -3.9202 3.3619) ; H1* (make-pt 7.5997 -5.8018 2.4948) ; C2* (make-pt 8.3627 -6.3254 3.0707) ; H2** (make-pt 8.0410 -4.9501 1.4724) ; O2* (make-pt 8.2781 -4.0644 1.7570) ; H2* (make-pt 6.5701 -6.8129 1.9714) ; C3* (make-pt 6.4186 -7.5809 2.7299) ; H3* (make-pt 6.9357 -7.3841 0.7235) ; O3* (make-pt 6.8024 -5.4718 4.8475) ; N1 (make-pt 7.9218 -5.5700 6.8877) ; N3 (make-pt 7.8908 -5.0886 5.5944) ; C2 (make-pt 6.9789 -6.3827 7.4823) ; C4 (make-pt 5.8742 -6.7319 6.6202) ; C5 (make-pt 5.8182 -6.2769 5.3570) ; C6 (make-pt 8.7747 -4.3728 5.1568) ; O2 (make-pt 7.1154 -6.7509 8.6509) ; O4 (make-pt 8.7055 -5.3037 7.4491) ; H3 (make-pt 5.1416 -7.3178 6.9665) ; H5 (make-pt 5.0441 -6.5310 4.7784) ; H6 )) (define rU04 (make-rU (make-tfo -0.5669 -0.8012 0.1918 ; dgf-base-tfo -0.8129 0.5817 0.0273 -0.1334 -0.1404 -0.9811 -0.3279 8.3874 0.3355) (make-tfo -0.8313 -0.4738 -0.2906 ; P-O3*-275-tfo 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3322 1.6833 6.8060 -7.0011) (make-tfo 0.3445 -0.7630 0.5470 ; P-O3*-180-tfo -0.4628 -0.6450 -0.6082 0.8168 -0.0436 -0.5753 -6.8179 -3.9778 -5.9887) (make-tfo 0.5855 0.7931 -0.1682 ; P-O3*-60-tfo 0.8103 -0.5790 0.0906 -0.0255 -0.1894 -0.9816 6.1203 -7.1051 3.1984) (make-pt 2.6760 -8.4960 3.2880) ; P (make-pt 1.4950 -7.6230 3.4770) ; O1P (make-pt 2.9490 -9.4640 4.3740) ; O2P (make-pt 3.9730 -7.5950 3.0340) ; O5* (make-pt 5.2416 -8.2422 2.8181) ; C5* (make-pt 5.2050 -8.8128 1.8901) ; H5* (make-pt 5.5368 -8.7738 3.7227) ; H5** (make-pt 6.3232 -7.2037 2.6002) ; C4* (make-pt 7.3048 -7.6757 2.5577) ; H4* (make-pt 6.0635 -6.5092 1.3456) ; O4* (make-pt 6.4697 -5.1547 1.4629) ; C1* (make-pt 7.2354 -5.0043 0.7018) ; H1* (make-pt 7.0856 -4.9610 2.8521) ; C2* (make-pt 6.7777 -3.9935 3.2487) ; H2** (make-pt 8.4627 -5.1992 2.7423) ; O2* (make-pt 8.8693 -4.8638 1.9399) ; H2* (make-pt 6.3877 -6.0809 3.6362) ; C3* (make-pt 5.3770 -5.7562 3.8834) ; H3* (make-pt 7.1024 -6.4754 4.7985) ; O3* (make-pt 5.2764 -4.2883 1.2538) ; N1 (make-pt 3.8961 -3.0896 -0.1893) ; N3 (make-pt 5.0095 -3.8907 -0.0346) ; C2 (make-pt 3.0480 -2.6632 0.8116) ; C4 (make-pt 3.4093 -3.1310 2.1292) ; C5 (make-pt 4.4878 -3.9124 2.3088) ; C6 (make-pt 5.7005 -4.2164 -0.9842) ; O2 (make-pt 2.0800 -1.9458 0.5503) ; O4 (make-pt 3.6834 -2.7882 -1.1190) ; H3 (make-pt 2.8508 -2.8721 2.9172) ; H5 (make-pt 4.7188 -4.2247 3.2295) ; H6 )) (define rU05 (make-rU (make-tfo -0.6298 0.0246 0.7763 ; dgf-base-tfo -0.5226 -0.7529 -0.4001 0.5746 -0.6577 0.4870 -0.0208 -3.4598 -9.6882) (make-tfo -0.8313 -0.4738 -0.2906 ; P-O3*-275-tfo 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3322 1.6833 6.8060 -7.0011) (make-tfo 0.3445 -0.7630 0.5470 ; P-O3*-180-tfo -0.4628 -0.6450 -0.6082 0.8168 -0.0436 -0.5753 -6.8179 -3.9778 -5.9887) (make-tfo 0.5855 0.7931 -0.1682 ; P-O3*-60-tfo 0.8103 -0.5790 0.0906 -0.0255 -0.1894 -0.9816 6.1203 -7.1051 3.1984) (make-pt 2.6760 -8.4960 3.2880) ; P (make-pt 1.4950 -7.6230 3.4770) ; O1P (make-pt 2.9490 -9.4640 4.3740) ; O2P (make-pt 3.9730 -7.5950 3.0340) ; O5* (make-pt 4.3825 -6.6585 4.0489) ; C5* (make-pt 4.6841 -7.2019 4.9443) ; H5* (make-pt 3.6189 -5.8889 4.1625) ; H5** (make-pt 5.6255 -5.9175 3.5998) ; C4* (make-pt 5.8732 -5.1228 4.3034) ; H4* (make-pt 6.7337 -6.8605 3.5222) ; O4* (make-pt 7.5932 -6.4923 2.4548) ; C1* (make-pt 8.5661 -6.2983 2.9064) ; H1* (make-pt 7.0527 -5.2012 1.8322) ; C2* (make-pt 7.1627 -5.2525 0.7490) ; H2** (make-pt 7.6666 -4.1249 2.4880) ; O2* (make-pt 8.5944 -4.2543 2.6981) ; H2* (make-pt 5.5661 -5.3029 2.2009) ; C3* (make-pt 5.0841 -6.0018 1.5172) ; H3* (make-pt 4.9062 -4.0452 2.2042) ; O3* (make-pt 7.6298 -7.6136 1.4752) ; N1 (make-pt 8.5977 -9.5977 0.7329) ; N3 (make-pt 8.5951 -8.5745 1.6594) ; C2 (make-pt 7.7372 -9.7371 -0.3364) ; C4 (make-pt 6.7596 -8.6801 -0.4476) ; C5 (make-pt 6.7338 -7.6721 0.4408) ; C6 (make-pt 9.3993 -8.5377 2.5743) ; O2 (make-pt 7.8374 -10.6990 -1.1008) ; O4 (make-pt 9.2924 -10.3081 0.8477) ; H3 (make-pt 6.0932 -8.6982 -1.1929) ; H5 (make-pt 6.0481 -6.9515 0.3446) ; H6 )) (define rU06 (make-rU (make-tfo -0.9837 0.0476 -0.1733 ; dgf-base-tfo -0.1792 -0.3353 0.9249 -0.0141 0.9409 0.3384 5.7793 -5.2303 4.5997) (make-tfo -0.8313 -0.4738 -0.2906 ; P-O3*-275-tfo 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3322 1.6833 6.8060 -7.0011) (make-tfo 0.3445 -0.7630 0.5470 ; P-O3*-180-tfo -0.4628 -0.6450 -0.6082 0.8168 -0.0436 -0.5753 -6.8179 -3.9778 -5.9887) (make-tfo 0.5855 0.7931 -0.1682 ; P-O3*-60-tfo 0.8103 -0.5790 0.0906 -0.0255 -0.1894 -0.9816 6.1203 -7.1051 3.1984) (make-pt 2.6760 -8.4960 3.2880) ; P (make-pt 1.4950 -7.6230 3.4770) ; O1P (make-pt 2.9490 -9.4640 4.3740) ; O2P (make-pt 3.9730 -7.5950 3.0340) ; O5* (make-pt 3.9938 -6.7042 1.9023) ; C5* (make-pt 3.2332 -5.9343 2.0319) ; H5* (make-pt 3.9666 -7.2863 0.9812) ; H5** (make-pt 5.3098 -5.9546 1.8564) ; C4* (make-pt 5.3863 -5.3702 0.9395) ; H4* (make-pt 5.3851 -5.0642 3.0076) ; O4* (make-pt 6.7315 -4.9724 3.4462) ; C1* (make-pt 7.0033 -3.9202 3.3619) ; H1* (make-pt 7.5997 -5.8018 2.4948) ; C2* (make-pt 8.3627 -6.3254 3.0707) ; H2** (make-pt 8.0410 -4.9501 1.4724) ; O2* (make-pt 8.2781 -4.0644 1.7570) ; H2* (make-pt 6.5701 -6.8129 1.9714) ; C3* (make-pt 6.4186 -7.5809 2.7299) ; H3* (make-pt 6.9357 -7.3841 0.7235) ; O3* (make-pt 6.8024 -5.4718 4.8475) ; N1 (make-pt 6.6920 -5.0495 7.1354) ; N3 (make-pt 6.6201 -4.5500 5.8506) ; C2 (make-pt 6.9254 -6.3614 7.4926) ; C4 (make-pt 7.1046 -7.2543 6.3718) ; C5 (make-pt 7.0391 -6.7951 5.1106) ; C6 (make-pt 6.4083 -3.3696 5.6340) ; O2 (make-pt 6.9679 -6.6901 8.6800) ; O4 (make-pt 6.5626 -4.3957 7.8812) ; H3 (make-pt 7.2781 -8.2254 6.5350) ; H5 (make-pt 7.1657 -7.4312 4.3503) ; H6 )) (define rU07 (make-rU (make-tfo -0.9434 0.3172 0.0971 ; dgf-base-tfo 0.2294 0.4125 0.8816 0.2396 0.8539 -0.4619 8.3625 -52.7147 1.3745) (make-tfo 0.2765 -0.1121 -0.9545 ; P-O3*-275-tfo -0.8297 0.4733 -0.2959 0.4850 0.8737 0.0379 -14.7774 -45.2464 21.9088) (make-tfo 0.1063 -0.6334 -0.7665 ; P-O3*-180-tfo -0.5932 -0.6591 0.4624 -0.7980 0.4055 -0.4458 43.7634 4.3296 28.4890) (make-tfo 0.7136 -0.5032 -0.4873 ; P-O3*-60-tfo 0.6803 0.3317 0.6536 -0.1673 -0.7979 0.5791 -17.1858 41.4390 -27.0751) (make-pt 21.3880 15.0780 45.5770) ; P (make-pt 21.9980 14.5500 46.8210) ; O1P (make-pt 21.1450 14.0270 44.5420) ; O2P (make-pt 22.1250 16.3600 44.9460) ; O5* (make-pt 21.5037 16.8594 43.7323) ; C5* (make-pt 20.8147 17.6663 43.9823) ; H5* (make-pt 21.1086 16.0230 43.1557) ; H5** (make-pt 22.5654 17.4874 42.8616) ; C4* (make-pt 22.1584 17.7243 41.8785) ; H4* (make-pt 23.0557 18.6826 43.4751) ; O4* (make-pt 24.4788 18.6151 43.6455) ; C1* (make-pt 24.9355 19.0840 42.7739) ; H1* (make-pt 24.7958 17.1427 43.6474) ; C2* (make-pt 24.5652 16.7400 44.6336) ; H2** (make-pt 26.1041 16.8773 43.2455) ; O2* (make-pt 26.7516 17.5328 43.5149) ; H2* (make-pt 23.8109 16.5979 42.6377) ; C3* (make-pt 23.5756 15.5686 42.9084) ; H3* (make-pt 24.2890 16.7447 41.2729) ; O3* (make-pt 24.9420 19.2174 44.8923) ; N1 (make-pt 25.2655 20.5636 44.8883) ; N3 (make-pt 25.1663 21.2219 43.8561) ; C2 (make-pt 25.6911 21.1219 46.0494) ; C4 (make-pt 25.8051 20.4068 47.2048) ; C5 (make-pt 26.2093 20.9962 48.2534) ; C6 (make-pt 25.4692 19.0221 47.2053) ; O2 (make-pt 25.0502 18.4827 46.0370) ; O4 (make-pt 25.9599 22.1772 46.0966) ; H3 (make-pt 25.5545 18.4409 48.1234) ; H5 (make-pt 24.7854 17.4265 45.9883) ; H6 )) (define rU08 (make-rU (make-tfo -0.0080 -0.7928 0.6094 ; dgf-base-tfo -0.7512 0.4071 0.5197 -0.6601 -0.4536 -0.5988 44.1482 30.7036 2.1088) (make-tfo 0.2765 -0.1121 -0.9545 ; P-O3*-275-tfo -0.8297 0.4733 -0.2959 0.4850 0.8737 0.0379 -14.7774 -45.2464 21.9088) (make-tfo 0.1063 -0.6334 -0.7665 ; P-O3*-180-tfo -0.5932 -0.6591 0.4624 -0.7980 0.4055 -0.4458 43.7634 4.3296 28.4890) (make-tfo 0.7136 -0.5032 -0.4873 ; P-O3*-60-tfo 0.6803 0.3317 0.6536 -0.1673 -0.7979 0.5791 -17.1858 41.4390 -27.0751) (make-pt 21.3880 15.0780 45.5770) ; P (make-pt 21.9980 14.5500 46.8210) ; O1P (make-pt 21.1450 14.0270 44.5420) ; O2P (make-pt 22.1250 16.3600 44.9460) ; O5* (make-pt 23.5096 16.1227 44.5783) ; C5* (make-pt 23.5649 15.8588 43.5222) ; H5* (make-pt 23.9621 15.4341 45.2919) ; H5** (make-pt 24.2805 17.4138 44.7151) ; C4* (make-pt 25.3492 17.2309 44.6030) ; H4* (make-pt 23.8497 18.3471 43.7208) ; O4* (make-pt 23.4090 19.5681 44.3321) ; C1* (make-pt 24.2595 20.2496 44.3524) ; H1* (make-pt 23.0418 19.1813 45.7407) ; C2* (make-pt 22.0532 18.7224 45.7273) ; H2** (make-pt 23.1307 20.2521 46.6291) ; O2* (make-pt 22.8888 21.1051 46.2611) ; H2* (make-pt 24.0799 18.1326 46.0700) ; C3* (make-pt 23.6490 17.4370 46.7900) ; H3* (make-pt 25.3329 18.7227 46.5109) ; O3* (make-pt 22.2515 20.1624 43.6698) ; N1 (make-pt 22.4760 21.0609 42.6406) ; N3 (make-pt 23.6229 21.3462 42.3061) ; C2 (make-pt 21.3986 21.6081 42.0236) ; C4 (make-pt 20.1189 21.3012 42.3804) ; C5 (make-pt 19.1599 21.8516 41.7578) ; C6 (make-pt 19.8919 20.3745 43.4387) ; O2 (make-pt 20.9790 19.8423 44.0440) ; O4 (make-pt 21.5235 22.3222 41.2097) ; H3 (make-pt 18.8732 20.1200 43.7312) ; H5 (make-pt 20.8545 19.1313 44.8608) ; H6 )) (define rU09 (make-rU (make-tfo -0.0317 0.1374 0.9900 ; dgf-base-tfo -0.3422 -0.9321 0.1184 0.9391 -0.3351 0.0765 -32.1929 25.8198 -28.5088) (make-tfo 0.2765 -0.1121 -0.9545 ; P-O3*-275-tfo -0.8297 0.4733 -0.2959 0.4850 0.8737 0.0379 -14.7774 -45.2464 21.9088) (make-tfo 0.1063 -0.6334 -0.7665 ; P-O3*-180-tfo -0.5932 -0.6591 0.4624 -0.7980 0.4055 -0.4458 43.7634 4.3296 28.4890) (make-tfo 0.7136 -0.5032 -0.4873 ; P-O3*-60-tfo 0.6803 0.3317 0.6536 -0.1673 -0.7979 0.5791 -17.1858 41.4390 -27.0751) (make-pt 21.3880 15.0780 45.5770) ; P (make-pt 21.9980 14.5500 46.8210) ; O1P (make-pt 21.1450 14.0270 44.5420) ; O2P (make-pt 22.1250 16.3600 44.9460) ; O5* (make-pt 21.5037 16.8594 43.7323) ; C5* (make-pt 20.8147 17.6663 43.9823) ; H5* (make-pt 21.1086 16.0230 43.1557) ; H5** (make-pt 22.5654 17.4874 42.8616) ; C4* (make-pt 23.0565 18.3036 43.3915) ; H4* (make-pt 23.5375 16.5054 42.4925) ; O4* (make-pt 23.6574 16.4257 41.0649) ; C1* (make-pt 24.4701 17.0882 40.7671) ; H1* (make-pt 22.3525 16.9643 40.5396) ; C2* (make-pt 21.5993 16.1799 40.6133) ; H2** (make-pt 22.4693 17.4849 39.2515) ; O2* (make-pt 23.0899 17.0235 38.6827) ; H2* (make-pt 22.0341 18.0633 41.5279) ; C3* (make-pt 20.9509 18.1709 41.5846) ; H3* (make-pt 22.7249 19.3020 41.2100) ; O3* (make-pt 23.8580 15.0648 40.5757) ; N1 (make-pt 25.1556 14.5982 40.4523) ; N3 (make-pt 26.1047 15.3210 40.7448) ; C2 (make-pt 25.3391 13.3315 40.0020) ; C4 (make-pt 24.2974 12.5148 39.6749) ; C5 (make-pt 24.5450 11.3410 39.2610) ; C6 (make-pt 22.9633 12.9979 39.8053) ; O2 (make-pt 22.8009 14.2648 40.2524) ; O4 (make-pt 26.3414 12.9194 39.8855) ; H3 (make-pt 22.1227 12.3533 39.5486) ; H5 (make-pt 21.7989 14.6788 40.3650) ; H6 )) (define rU10 (make-rU (make-tfo -0.9674 0.1021 -0.2318 ; dgf-base-tfo -0.2514 -0.2766 0.9275 0.0306 0.9555 0.2933 27.8571 -42.1305 -24.4563) (make-tfo 0.2765 -0.1121 -0.9545 ; P-O3*-275-tfo -0.8297 0.4733 -0.2959 0.4850 0.8737 0.0379 -14.7774 -45.2464 21.9088) (make-tfo 0.1063 -0.6334 -0.7665 ; P-O3*-180-tfo -0.5932 -0.6591 0.4624 -0.7980 0.4055 -0.4458 43.7634 4.3296 28.4890) (make-tfo 0.7136 -0.5032 -0.4873 ; P-O3*-60-tfo 0.6803 0.3317 0.6536 -0.1673 -0.7979 0.5791 -17.1858 41.4390 -27.0751) (make-pt 21.3880 15.0780 45.5770) ; P (make-pt 21.9980 14.5500 46.8210) ; O1P (make-pt 21.1450 14.0270 44.5420) ; O2P (make-pt 22.1250 16.3600 44.9460) ; O5* (make-pt 23.5096 16.1227 44.5783) ; C5* (make-pt 23.5649 15.8588 43.5222) ; H5* (make-pt 23.9621 15.4341 45.2919) ; H5** (make-pt 24.2805 17.4138 44.7151) ; C4* (make-pt 23.8509 18.1819 44.0720) ; H4* (make-pt 24.2506 17.8583 46.0741) ; O4* (make-pt 25.5830 18.0320 46.5775) ; C1* (make-pt 25.8569 19.0761 46.4256) ; H1* (make-pt 26.4410 17.1555 45.7033) ; C2* (make-pt 26.3459 16.1253 46.0462) ; H2** (make-pt 27.7649 17.5888 45.6478) ; O2* (make-pt 28.1004 17.9719 46.4616) ; H2* (make-pt 25.7796 17.2997 44.3513) ; C3* (make-pt 25.9478 16.3824 43.7871) ; H3* (make-pt 26.2154 18.4984 43.6541) ; O3* (make-pt 25.7321 17.6281 47.9726) ; N1 (make-pt 25.5136 18.5779 48.9560) ; N3 (make-pt 25.2079 19.7276 48.6503) ; C2 (make-pt 25.6482 18.1987 50.2518) ; C4 (make-pt 25.9847 16.9266 50.6092) ; C5 (make-pt 26.0918 16.6439 51.8416) ; C6 (make-pt 26.2067 15.9515 49.5943) ; O2 (make-pt 26.0713 16.3497 48.3080) ; O4 (make-pt 25.4890 18.9105 51.0618) ; H3 (make-pt 26.4742 14.9310 49.8682) ; H5 (make-pt 26.2346 15.6394 47.4975) ; H6 )) (define rUs (list rU01 rU02 rU03 rU04 rU05 rU06 rU07 rU08 rU09 rU10)) (define rG* (make-rG (make-tfo -0.2067 -0.0264 0.9780 ; dgf-base-tfo 0.9770 -0.0586 0.2049 0.0519 0.9979 0.0379 1.0331 -46.8078 -36.4742) (make-tfo -0.8644 -0.4956 -0.0851 ; P-O3*-275-tfo -0.0427 0.2409 -0.9696 0.5010 -0.8345 -0.2294 4.0167 54.5377 12.4779) (make-tfo 0.3706 -0.6167 0.6945 ; P-O3*-180-tfo -0.2867 -0.7872 -0.5460 0.8834 0.0032 -0.4686 -52.9020 18.6313 -0.6709) (make-tfo 0.4155 0.9025 -0.1137 ; P-O3*-60-tfo 0.9040 -0.4236 -0.0582 -0.1007 -0.0786 -0.9918 -7.6624 -25.2080 49.5181) (make-pt 31.3810 0.1400 47.5810) ; P (make-pt 29.9860 0.6630 47.6290) ; O1P (make-pt 31.7210 -0.6460 48.8090) ; O2P (make-pt 32.4940 1.2540 47.2740) ; O5* (make-pt 32.1610 2.2370 46.2560) ; C5* (make-pt 31.2986 2.8190 46.5812) ; H5* (make-pt 32.0980 1.7468 45.2845) ; H5** (make-pt 33.3476 3.1959 46.1947) ; C4* (make-pt 33.2668 3.8958 45.3630) ; H4* (make-pt 33.3799 3.9183 47.4216) ; O4* (make-pt 34.6515 3.7222 48.0398) ; C1* (make-pt 35.2947 4.5412 47.7180) ; H1* (make-pt 35.1756 2.4228 47.4827) ; C2* (make-pt 34.6778 1.5937 47.9856) ; H2** (make-pt 36.5631 2.2672 47.4798) ; O2* (make-pt 37.0163 2.6579 48.2305) ; H2* (make-pt 34.6953 2.5043 46.0448) ; C3* (make-pt 34.5444 1.4917 45.6706) ; H3* (make-pt 35.6679 3.3009 45.3487) ; O3* (make-pt 37.4804 4.0914 52.2559) ; N1 (make-pt 36.9670 4.1312 49.9281) ; N3 (make-pt 37.8045 4.2519 50.9550) ; C2 (make-pt 35.7171 3.8264 50.3222) ; C4 (make-pt 35.2668 3.6420 51.6115) ; C5 (make-pt 36.2037 3.7829 52.6706) ; C6 (make-pt 39.0869 4.5552 50.7092) ; N2 (make-pt 33.9075 3.3338 51.6102) ; N7 (make-pt 34.6126 3.6358 49.5108) ; N9 (make-pt 33.5805 3.3442 50.3425) ; C8 (make-pt 35.9958 3.6512 53.8724) ; O6 (make-pt 38.2106 4.2053 52.9295) ; H1 (make-pt 39.8218 4.6863 51.3896) ; H21 (make-pt 39.3420 4.6857 49.7407) ; H22 (make-pt 32.5194 3.1070 50.2664) ; H8 )) (define rU* (make-rU (make-tfo -0.0109 0.5907 0.8068 ; dgf-base-tfo 0.2217 -0.7853 0.5780 0.9751 0.1852 -0.1224 -1.4225 -11.0956 -2.5217) (make-tfo -0.8313 -0.4738 -0.2906 ; P-O3*-275-tfo 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3322 1.6833 6.8060 -7.0011) (make-tfo 0.3445 -0.7630 0.5470 ; P-O3*-180-tfo -0.4628 -0.6450 -0.6082 0.8168 -0.0436 -0.5753 -6.8179 -3.9778 -5.9887) (make-tfo 0.5855 0.7931 -0.1682 ; P-O3*-60-tfo 0.8103 -0.5790 0.0906 -0.0255 -0.1894 -0.9816 6.1203 -7.1051 3.1984) (make-pt 2.6760 -8.4960 3.2880) ; P (make-pt 1.4950 -7.6230 3.4770) ; O1P (make-pt 2.9490 -9.4640 4.3740) ; O2P (make-pt 3.9730 -7.5950 3.0340) ; O5* (make-pt 5.2430 -8.2420 2.8260) ; C5* (make-pt 5.1974 -8.8497 1.9223) ; H5* (make-pt 5.5548 -8.7348 3.7469) ; H5** (make-pt 6.3140 -7.2060 2.5510) ; C4* (make-pt 5.8744 -6.2116 2.4731) ; H4* (make-pt 7.2798 -7.2260 3.6420) ; O4* (make-pt 8.5733 -6.9410 3.1329) ; C1* (make-pt 8.9047 -6.0374 3.6446) ; H1* (make-pt 8.4429 -6.6596 1.6327) ; C2* (make-pt 9.2880 -7.1071 1.1096) ; H2** (make-pt 8.2502 -5.2799 1.4754) ; O2* (make-pt 8.7676 -4.7284 2.0667) ; H2* (make-pt 7.1642 -7.4416 1.3021) ; C3* (make-pt 7.4125 -8.5002 1.2260) ; H3* (make-pt 6.5160 -6.9772 0.1267) ; O3* (make-pt 9.4531 -8.1107 3.4087) ; N1 (make-pt 11.5931 -9.0015 3.6357) ; N3 (make-pt 10.8101 -7.8950 3.3748) ; C2 (make-pt 11.1439 -10.2744 3.9206) ; C4 (make-pt 9.7056 -10.4026 3.9332) ; C5 (make-pt 8.9192 -9.3419 3.6833) ; C6 (make-pt 11.3013 -6.8063 3.1326) ; O2 (make-pt 11.9431 -11.1876 4.1375) ; O4 (make-pt 12.5840 -8.8673 3.6158) ; H3 (make-pt 9.2891 -11.2898 4.1313) ; H5 (make-pt 7.9263 -9.4537 3.6977) ; H6 )) ;;; -- PARTIAL INSTANTIATIONS ------------------------------------------------- ;;; begin Stalin (define make-var (primitive-procedure make-structure var 3)) (define var-id (primitive-procedure structure-ref var 0)) (define var-tfo (primitive-procedure structure-ref var 1)) (define var-nuc (primitive-procedure structure-ref var 2)) ;;; end Stalin ;;; begin Scheme->C (define (make-var id tfo nuc) (vector id tfo nuc)) (define (var-id var) (vector-ref var 0)) (define (var-tfo var) (vector-ref var 1)) (define (var-nuc var) (vector-ref var 2)) ;;; end Scheme->C ;;; begin Gambit-C (define-structure var id tfo nuc) ;;; end Gambit-C ;;; begin Bigloo (define (make-var id tfo nuc) (vector id tfo nuc)) (define (var-id var) (vector-ref var 0)) (define (var-tfo var) (vector-ref var 1)) (define (var-nuc var) (vector-ref var 2)) ;;; end Bigloo ;;; begin Chez (define (make-var id tfo nuc) (vector id tfo nuc)) (define (var-id var) (vector-ref var 0)) (define (var-tfo var) (vector-ref var 1)) (define (var-nuc var) (vector-ref var 2)) ;;; end Chez ;;; begin Chicken (define-record-type var id tfo nuc) ;;; end Chicken (define (mk-var i tfo nuc) (make-var i tfo nuc)) (define (absolute-pos var p) (tfo-apply (var-tfo var) p)) (define (lazy-computation-of expr) expr) (define (atom-pos atom var) (absolute-pos var (atom (var-nuc var)))) (define (get-var id lst) (let ((v (car lst))) (if (= id (var-id v)) v (get-var id (cdr lst))))) (define (make-relative-nuc tfo n) (cond ((rA? n) (make-rA (nuc-dgf-base-tfo n) (nuc-P-O3*-275-tfo n) (nuc-P-O3*-180-tfo n) (nuc-P-O3*-60-tfo n) (lazy-computation-of (tfo-apply tfo (nuc-P n))) (lazy-computation-of (tfo-apply tfo (nuc-O1P n))) (lazy-computation-of (tfo-apply tfo (nuc-O2P n))) (lazy-computation-of (tfo-apply tfo (nuc-O5* n))) (lazy-computation-of (tfo-apply tfo (nuc-C5* n))) (lazy-computation-of (tfo-apply tfo (nuc-H5* n))) (lazy-computation-of (tfo-apply tfo (nuc-H5** n))) (lazy-computation-of (tfo-apply tfo (nuc-C4* n))) (lazy-computation-of (tfo-apply tfo (nuc-H4* n))) (lazy-computation-of (tfo-apply tfo (nuc-O4* n))) (lazy-computation-of (tfo-apply tfo (nuc-C1* n))) (lazy-computation-of (tfo-apply tfo (nuc-H1* n))) (lazy-computation-of (tfo-apply tfo (nuc-C2* n))) (lazy-computation-of (tfo-apply tfo (nuc-H2** n))) (lazy-computation-of (tfo-apply tfo (nuc-O2* n))) (lazy-computation-of (tfo-apply tfo (nuc-H2* n))) (lazy-computation-of (tfo-apply tfo (nuc-C3* n))) (lazy-computation-of (tfo-apply tfo (nuc-H3* n))) (lazy-computation-of (tfo-apply tfo (nuc-O3* n))) (lazy-computation-of (tfo-apply tfo (nuc-N1 n))) (lazy-computation-of (tfo-apply tfo (nuc-N3 n))) (lazy-computation-of (tfo-apply tfo (nuc-C2 n))) (lazy-computation-of (tfo-apply tfo (nuc-C4 n))) (lazy-computation-of (tfo-apply tfo (nuc-C5 n))) (lazy-computation-of (tfo-apply tfo (nuc-C6 n))) (lazy-computation-of (tfo-apply tfo (rA-N6 n))) (lazy-computation-of (tfo-apply tfo (rA-N7 n))) (lazy-computation-of (tfo-apply tfo (rA-N9 n))) (lazy-computation-of (tfo-apply tfo (rA-C8 n))) (lazy-computation-of (tfo-apply tfo (rA-H2 n))) (lazy-computation-of (tfo-apply tfo (rA-H61 n))) (lazy-computation-of (tfo-apply tfo (rA-H62 n))) (lazy-computation-of (tfo-apply tfo (rA-H8 n))))) ((rC? n) (make-rC (nuc-dgf-base-tfo n) (nuc-P-O3*-275-tfo n) (nuc-P-O3*-180-tfo n) (nuc-P-O3*-60-tfo n) (lazy-computation-of (tfo-apply tfo (nuc-P n))) (lazy-computation-of (tfo-apply tfo (nuc-O1P n))) (lazy-computation-of (tfo-apply tfo (nuc-O2P n))) (lazy-computation-of (tfo-apply tfo (nuc-O5* n))) (lazy-computation-of (tfo-apply tfo (nuc-C5* n))) (lazy-computation-of (tfo-apply tfo (nuc-H5* n))) (lazy-computation-of (tfo-apply tfo (nuc-H5** n))) (lazy-computation-of (tfo-apply tfo (nuc-C4* n))) (lazy-computation-of (tfo-apply tfo (nuc-H4* n))) (lazy-computation-of (tfo-apply tfo (nuc-O4* n))) (lazy-computation-of (tfo-apply tfo (nuc-C1* n))) (lazy-computation-of (tfo-apply tfo (nuc-H1* n))) (lazy-computation-of (tfo-apply tfo (nuc-C2* n))) (lazy-computation-of (tfo-apply tfo (nuc-H2** n))) (lazy-computation-of (tfo-apply tfo (nuc-O2* n))) (lazy-computation-of (tfo-apply tfo (nuc-H2* n))) (lazy-computation-of (tfo-apply tfo (nuc-C3* n))) (lazy-computation-of (tfo-apply tfo (nuc-H3* n))) (lazy-computation-of (tfo-apply tfo (nuc-O3* n))) (lazy-computation-of (tfo-apply tfo (nuc-N1 n))) (lazy-computation-of (tfo-apply tfo (nuc-N3 n))) (lazy-computation-of (tfo-apply tfo (nuc-C2 n))) (lazy-computation-of (tfo-apply tfo (nuc-C4 n))) (lazy-computation-of (tfo-apply tfo (nuc-C5 n))) (lazy-computation-of (tfo-apply tfo (nuc-C6 n))) (lazy-computation-of (tfo-apply tfo (rC-N4 n))) (lazy-computation-of (tfo-apply tfo (rC-O2 n))) (lazy-computation-of (tfo-apply tfo (rC-H41 n))) (lazy-computation-of (tfo-apply tfo (rC-H42 n))) (lazy-computation-of (tfo-apply tfo (rC-H5 n))) (lazy-computation-of (tfo-apply tfo (rC-H6 n))))) ((rG? n) (make-rG (nuc-dgf-base-tfo n) (nuc-P-O3*-275-tfo n) (nuc-P-O3*-180-tfo n) (nuc-P-O3*-60-tfo n) (lazy-computation-of (tfo-apply tfo (nuc-P n))) (lazy-computation-of (tfo-apply tfo (nuc-O1P n))) (lazy-computation-of (tfo-apply tfo (nuc-O2P n))) (lazy-computation-of (tfo-apply tfo (nuc-O5* n))) (lazy-computation-of (tfo-apply tfo (nuc-C5* n))) (lazy-computation-of (tfo-apply tfo (nuc-H5* n))) (lazy-computation-of (tfo-apply tfo (nuc-H5** n))) (lazy-computation-of (tfo-apply tfo (nuc-C4* n))) (lazy-computation-of (tfo-apply tfo (nuc-H4* n))) (lazy-computation-of (tfo-apply tfo (nuc-O4* n))) (lazy-computation-of (tfo-apply tfo (nuc-C1* n))) (lazy-computation-of (tfo-apply tfo (nuc-H1* n))) (lazy-computation-of (tfo-apply tfo (nuc-C2* n))) (lazy-computation-of (tfo-apply tfo (nuc-H2** n))) (lazy-computation-of (tfo-apply tfo (nuc-O2* n))) (lazy-computation-of (tfo-apply tfo (nuc-H2* n))) (lazy-computation-of (tfo-apply tfo (nuc-C3* n))) (lazy-computation-of (tfo-apply tfo (nuc-H3* n))) (lazy-computation-of (tfo-apply tfo (nuc-O3* n))) (lazy-computation-of (tfo-apply tfo (nuc-N1 n))) (lazy-computation-of (tfo-apply tfo (nuc-N3 n))) (lazy-computation-of (tfo-apply tfo (nuc-C2 n))) (lazy-computation-of (tfo-apply tfo (nuc-C4 n))) (lazy-computation-of (tfo-apply tfo (nuc-C5 n))) (lazy-computation-of (tfo-apply tfo (nuc-C6 n))) (lazy-computation-of (tfo-apply tfo (rG-N2 n))) (lazy-computation-of (tfo-apply tfo (rG-N7 n))) (lazy-computation-of (tfo-apply tfo (rG-N9 n))) (lazy-computation-of (tfo-apply tfo (rG-C8 n))) (lazy-computation-of (tfo-apply tfo (rG-O6 n))) (lazy-computation-of (tfo-apply tfo (rG-H1 n))) (lazy-computation-of (tfo-apply tfo (rG-H21 n))) (lazy-computation-of (tfo-apply tfo (rG-H22 n))) (lazy-computation-of (tfo-apply tfo (rG-H8 n))))) (else (make-rU (nuc-dgf-base-tfo n) (nuc-P-O3*-275-tfo n) (nuc-P-O3*-180-tfo n) (nuc-P-O3*-60-tfo n) (lazy-computation-of (tfo-apply tfo (nuc-P n))) (lazy-computation-of (tfo-apply tfo (nuc-O1P n))) (lazy-computation-of (tfo-apply tfo (nuc-O2P n))) (lazy-computation-of (tfo-apply tfo (nuc-O5* n))) (lazy-computation-of (tfo-apply tfo (nuc-C5* n))) (lazy-computation-of (tfo-apply tfo (nuc-H5* n))) (lazy-computation-of (tfo-apply tfo (nuc-H5** n))) (lazy-computation-of (tfo-apply tfo (nuc-C4* n))) (lazy-computation-of (tfo-apply tfo (nuc-H4* n))) (lazy-computation-of (tfo-apply tfo (nuc-O4* n))) (lazy-computation-of (tfo-apply tfo (nuc-C1* n))) (lazy-computation-of (tfo-apply tfo (nuc-H1* n))) (lazy-computation-of (tfo-apply tfo (nuc-C2* n))) (lazy-computation-of (tfo-apply tfo (nuc-H2** n))) (lazy-computation-of (tfo-apply tfo (nuc-O2* n))) (lazy-computation-of (tfo-apply tfo (nuc-H2* n))) (lazy-computation-of (tfo-apply tfo (nuc-C3* n))) (lazy-computation-of (tfo-apply tfo (nuc-H3* n))) (lazy-computation-of (tfo-apply tfo (nuc-O3* n))) (lazy-computation-of (tfo-apply tfo (nuc-N1 n))) (lazy-computation-of (tfo-apply tfo (nuc-N3 n))) (lazy-computation-of (tfo-apply tfo (nuc-C2 n))) (lazy-computation-of (tfo-apply tfo (nuc-C4 n))) (lazy-computation-of (tfo-apply tfo (nuc-C5 n))) (lazy-computation-of (tfo-apply tfo (nuc-C6 n))) (lazy-computation-of (tfo-apply tfo (rU-O2 n))) (lazy-computation-of (tfo-apply tfo (rU-O4 n))) (lazy-computation-of (tfo-apply tfo (rU-H3 n))) (lazy-computation-of (tfo-apply tfo (rU-H5 n))) (lazy-computation-of (tfo-apply tfo (rU-H6 n))))))) ;;; -- SEARCH ----------------------------------------------------------------- ;;; Sequential backtracking algorithm (define (search partial-inst domains constraint?) (if (null? domains) (list partial-inst) (let ((remaining-domains (cdr domains))) (define (try-assignments lst) (if (null? lst) '() (let ((var (car lst))) (if (constraint? var partial-inst) (let* ((subsols1 (search (cons var partial-inst) remaining-domains constraint?)) (subsols2 (try-assignments (cdr lst)))) (append subsols1 subsols2)) (try-assignments (cdr lst)))))) (try-assignments ((car domains) partial-inst))))) ;;; -- DOMAINS ---------------------------------------------------------------- ;;; Primary structure: strand A CUGCCACGUCUG, strand B CAGACGUGGCAG ;;; ;;; Secondary structure: strand A CUGCCACGUCUG ;;; |||||||||||| ;;; GACGGUGCAGAC strand B ;;; ;;; Tertiary structure: ;;; ;;; 5' end of strand A C1----G12 3' end of strand B ;;; U2-------A11 ;;; G3-------C10 ;;; C4-----G9 ;;; C5---G8 ;;; A6 ;;; G6-C7 ;;; C5----G8 ;;; A4-------U9 ;;; G3--------C10 ;;; A2-------U11 ;;; 5' end of strand B C1----G12 3' end of strand A ;;; ;;; "helix", "stacked" and "connected" describe the spatial relationship ;;; between two consecutive nucleotides. E.g. the nucleotides C1 and U2 ;;; from the strand A. ;;; ;;; "wc" (stands for Watson-Crick and is a type of base-pairing), ;;; and "wc-dumas" describe the spatial relationship between ;;; nucleotides from two chains that are growing in opposite directions. ;;; E.g. the nucleotides C1 from strand A and G12 from strand B. ;;; Dynamic Domains ;;; Given, ;;; "ref" a nucleotide which is already positioned, ;;; "nuc" the nucleotide to be placed, ;;; and "tfo" a transformation matrix which expresses the desired ;;; relationship between "ref" and "nuc", ;;; the function "dgf-base" computes the transformation matrix that ;;; places the nucleotide "nuc" in the given relationship to "ref". (define (dgf-base tfo ref nuc) (let* ((ref-nuc (var-nuc ref)) (align (tfo-inv-ortho (cond ((rA? ref-nuc) (tfo-align (atom-pos nuc-C1* ref) (atom-pos rA-N9 ref) (atom-pos nuc-C4 ref))) ((rC? ref-nuc) (tfo-align (atom-pos nuc-C1* ref) (atom-pos nuc-N1 ref) (atom-pos nuc-C2 ref))) ((rG? ref-nuc) (tfo-align (atom-pos nuc-C1* ref) (atom-pos rG-N9 ref) (atom-pos nuc-C4 ref))) (else (tfo-align (atom-pos nuc-C1* ref) (atom-pos nuc-N1 ref) (atom-pos nuc-C2 ref))))))) (tfo-combine (nuc-dgf-base-tfo nuc) (tfo-combine tfo align)))) ;;; Placement of first nucleotide. (define (reference nuc i) (lambda (partial-inst) (list (mk-var i tfo-id nuc)))) ;;; The transformation matrix for wc is from: ;;; ;;; Chandrasekaran R. et al (1989) A Re-Examination of the Crystal ;;; Structure of A-DNA Using Fiber Diffraction Data. J. Biomol. ;;; Struct. & Dynamics 6(6):1189-1202. (define wc-tfo (make-tfo -1.0000 0.0028 -0.0019 0.0028 0.3468 -0.9379 -0.0019 -0.9379 -0.3468 -0.0080 6.0730 8.7208)) (define (wc nuc i j) (lambda (partial-inst) (let* ((ref (get-var j partial-inst)) (tfo (dgf-base wc-tfo ref nuc))) (list (mk-var i tfo nuc))))) (define wc-Dumas-tfo (make-tfo -0.9737 -0.1834 0.1352 -0.1779 0.2417 -0.9539 0.1422 -0.9529 -0.2679 0.4837 6.2649 8.0285)) (define (wc-Dumas nuc i j) (lambda (partial-inst) (let* ((ref (get-var j partial-inst)) (tfo (dgf-base wc-Dumas-tfo ref nuc))) (list (mk-var i tfo nuc))))) (define helix5*-tfo (make-tfo 0.9886 -0.0961 0.1156 0.1424 0.8452 -0.5152 -0.0482 0.5258 0.8492 -3.8737 0.5480 3.8024)) (define (helix5* nuc i j) (lambda (partial-inst) (let* ((ref (get-var j partial-inst)) (tfo (dgf-base helix5*-tfo ref nuc))) (list (mk-var i tfo nuc))))) (define helix3*-tfo (make-tfo 0.9886 0.1424 -0.0482 -0.0961 0.8452 0.5258 0.1156 -0.5152 0.8492 3.4426 2.0474 -3.7042)) (define (helix3* nuc i j) (lambda (partial-inst) (let* ((ref (get-var j partial-inst)) (tfo (dgf-base helix3*-tfo ref nuc))) (list (mk-var i tfo nuc))))) (define G37-A38-tfo (make-tfo 0.9991 0.0164 -0.0387 -0.0375 0.7616 -0.6470 0.0189 0.6478 0.7615 -3.3018 0.9975 2.5585)) (define (G37-A38 nuc i j) (lambda (partial-inst) (let* ((ref (get-var j partial-inst)) (tfo (dgf-base G37-A38-tfo ref nuc))) (mk-var i tfo nuc)))) (define (stacked5* nuc i j) (lambda (partial-inst) (cons ((G37-A38 nuc i j) partial-inst) ((helix5* nuc i j) partial-inst)))) (define A38-G37-tfo (make-tfo 0.9991 -0.0375 0.0189 0.0164 0.7616 0.6478 -0.0387 -0.6470 0.7615 3.3819 0.7718 -2.5321)) (define (A38-G37 nuc i j) (lambda (partial-inst) (let* ((ref (get-var j partial-inst)) (tfo (dgf-base A38-G37-tfo ref nuc))) (mk-var i tfo nuc)))) (define (stacked3* nuc i j) (lambda (partial-inst) (cons ((A38-G37 nuc i j) partial-inst) ((helix3* nuc i j) partial-inst)))) (define (P-O3* nucs i j) (lambda (partial-inst) (let* ((ref (get-var j partial-inst)) (align (tfo-inv-ortho (tfo-align (atom-pos nuc-O3* ref) (atom-pos nuc-C3* ref) (atom-pos nuc-C4* ref))))) (let loop ((lst nucs) (domains '())) (if (null? lst) domains (let ((nuc (car lst))) (let ((tfo-60 (tfo-combine (nuc-P-O3*-60-tfo nuc) align)) (tfo-180 (tfo-combine (nuc-P-O3*-180-tfo nuc) align)) (tfo-275 (tfo-combine (nuc-P-O3*-275-tfo nuc) align))) (loop (cdr lst) (cons (mk-var i tfo-60 nuc) (cons (mk-var i tfo-180 nuc) (cons (mk-var i tfo-275 nuc) domains))))))))))) ;;; -- PROBLEM STATEMENT ------------------------------------------------------ ;;; Define anticodon problem -- Science 253:1255 Figure 3a, 3b and 3c (define anticodon-domains (list (reference rC 27 ) (helix5* rC 28 27) (helix5* rA 29 28) (helix5* rG 30 29) (helix5* rA 31 30) (wc rU 39 31) (helix5* rC 40 39) (helix5* rU 41 40) (helix5* rG 42 41) (helix5* rG 43 42) (stacked3* rA 38 39) (stacked3* rG 37 38) (stacked3* rA 36 37) (stacked3* rA 35 36) (stacked3* rG 34 35) ;<-. Distance (P-O3* rCs 32 31) ; | Constraint (P-O3* rUs 33 32) ;<-' 3.0 Angstroms )) ;;; Anticodon constraint (define (anticodon-constraint? v partial-inst) (if (= (var-id v) 33) ;; P in nucleotide 34 (let ((p (atom-pos nuc-P (get-var 34 partial-inst))) (o3* (atom-pos nuc-O3* v))) ; O3' in nucl. 33 (<= (pt-dist p o3*) 3.0)) ; check distance #t)) (define (anticodon) (search '() anticodon-domains anticodon-constraint?)) ;;; Define pseudoknot problem -- Science 253:1255 Figure 4a and 4b (define pseudoknot-domains (list (reference rA 23 ) (wc-Dumas rU 8 23) (helix3* rG 22 23) (wc-Dumas rC 9 22) (helix3* rG 21 22) (wc-Dumas rC 10 21) (helix3* rC 20 21) (wc-Dumas rG 11 20) (helix3* rU* 19 20) ;<-. (wc-Dumas rA 12 19) ; | Distance ;; ; | Constraint ;; Helix 1 ; | 4.0 Angstroms (helix3* rC 3 19) ; | (wc-Dumas rG 13 3) ; | (helix3* rC 2 3) ; | (wc-Dumas rG 14 2) ; | (helix3* rC 1 2) ; | (wc-Dumas rG* 15 1) ; | ;; ; | ;; L2 LOOP ; | (P-O3* rUs 16 15) ; | (P-O3* rCs 17 16) ; | (P-O3* rAs 18 17) ;<-' ;; ;; L1 LOOP (helix3* rU 7 8) ;<-. (P-O3* rCs 4 3) ; | Constraint (stacked5* rU 5 4) ; | 4.5 Angstroms (stacked5* rC 6 5) ;<-' )) ;;; Pseudoknot constraint (define (pseudoknot-constraint? v partial-inst) (case (var-id v) ((18) (let ((p (atom-pos nuc-P (get-var 19 partial-inst))) (o3* (atom-pos nuc-O3* v))) (<= (pt-dist p o3*) 4.0))) ((6) (let ((p (atom-pos nuc-P (get-var 7 partial-inst))) (o3* (atom-pos nuc-O3* v))) (<= (pt-dist p o3*) 4.5))) (else #t))) (define (pseudoknot) (search '() pseudoknot-domains pseudoknot-constraint?)) ;;; -- TESTING ---------------------------------------------------------------- (define (list-of-atoms n) (append (list-of-common-atoms n) (list-of-specific-atoms n))) (define (list-of-common-atoms n) (list (nuc-P n) (nuc-O1P n) (nuc-O2P n) (nuc-O5* n) (nuc-C5* n) (nuc-H5* n) (nuc-H5** n) (nuc-C4* n) (nuc-H4* n) (nuc-O4* n) (nuc-C1* n) (nuc-H1* n) (nuc-C2* n) (nuc-H2** n) (nuc-O2* n) (nuc-H2* n) (nuc-C3* n) (nuc-H3* n) (nuc-O3* n) (nuc-N1 n) (nuc-N3 n) (nuc-C2 n) (nuc-C4 n) (nuc-C5 n) (nuc-C6 n))) (define (list-of-specific-atoms n) (cond ((rA? n) (list (rA-N6 n) (rA-N7 n) (rA-N9 n) (rA-C8 n) (rA-H2 n) (rA-H61 n) (rA-H62 n) (rA-H8 n))) ((rC? n) (list (rC-N4 n) (rC-O2 n) (rC-H41 n) (rC-H42 n) (rC-H5 n) (rC-H6 n))) ((rG? n) (list (rG-N2 n) (rG-N7 n) (rG-N9 n) (rG-C8 n) (rG-O6 n) (rG-H1 n) (rG-H21 n) (rG-H22 n) (rG-H8 n))) (else (list (rU-O2 n) (rU-O4 n) (rU-H3 n) (rU-H5 n) (rU-H6 n))))) (define (var-most-distant-atom v) (define (distance pos) (let ((abs-pos (absolute-pos v pos))) (let ((x (pt-x abs-pos)) (y (pt-y abs-pos)) (z (pt-z abs-pos))) (sqrt (+ (* x x) (* y y) (* z z)))))) (maximum (map distance (list-of-atoms (var-nuc v))))) (define (sol-most-distant-atom s) (maximum (map var-most-distant-atom s))) (define (most-distant-atom sols) (maximum (map sol-most-distant-atom sols))) (define (maximum lst) (let loop ((m (car lst)) (l (cdr lst))) (if (null? l) m (let ((x (car l))) (loop (if (> x m) x m) (cdr l)))))) (define (check) (length (pseudoknot))) (define (run) (most-distant-atom (pseudoknot))) ;;; To run program, evaluate: (run) (do ((i 0 (+ i 1))) ((>= i 100)) (run)) stalin-0.11/benchmarks/run-bigloo-benchmark0000700017435200151030000000021206711145633017440 0ustar qobiqobi#!/bin/sh ulimit -s unlimited ulimit -c 0 echo run $1 time ./$1-bigloo >/dev/null time ./$1-bigloo >/dev/null time ./$1-bigloo >/dev/null stalin-0.11/benchmarks/pick-up00-0.pgm0000600017435200151030000022601706671514373016104 0ustar qobiqobiP5 320 240 255  f_xfcmtuwz||{{ooqonkhf__^]YVQONQUXYXVTXXYZZ[]]]]^__`aa]]^^_``addeffghhhhikklmmjjlmmnooqqqqqqqqttttttttvvvvvvvv{{{{{{{{{{|}}€€}}~‚‚„„„„„„„„††††††††‰‰‰‰‰‰‰‰††††††††‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰„„„„„„„„„„ƒ‚‚€~}}|{{{{yxxwvvyywvvuttttrqqpoooonmmkjjjjjjjjjjhhhhhhhhffeddcaaddcaa`__ f^vecmstvxzzxxrrstsqnmeedb_\XVUWY\]]]]XYYZ[[]]]^^_``aa^__`aabbddeffghhhhikklmmjjlmmnooqqqqqqqqttttttttvvvvvvvv{{{{{{{{{{|}}€€}}~‚‚„„„„„„„„††††††††‰‰‰‰‰‰‰‰††††††††‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰„„„„„„„„„„ƒ‚‚€~}}|{{{{yxxwvvyywvvuttttrqqpoooonmmkjjjjjjjjjjhhhhhhhhffeddcaaddcaa`__ e\udcmpstvwvuursuxxwvummmljfc`\\[[\]_`YYZZ[]]^^^__`aabaabbdeefddeffghhhhikklmmjjlmmnooqqqqqqqqttttttttvvvvvvvv{{{{{{{{{{|}}€€}}~‚‚„„„„„„„„††††††††‰‰‰‰‰‰‰‰ˆˆˆˆˆˆˆˆ‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰„„„„„„„„„„ƒ‚‚€~}}|{{{{yxxwvvyyxwwuttttrqqpoooonmmkjjjjjjjjjjhhhhhhhhffeddcaaddcaa`__ cYsccmnoqsssppoptvyzzyttttqnljd`]XWXY\ZZ[[]^^^__``abbbddeefgghddeffghhhhikklmmjjlmmnooqqqqqqqqttttttttvvvvvvvv{{{{{{{{{{|}}€€}}~‚‚„„„„„„„„††††††††‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰„„„„„„„„„„ƒ‚‚€~}}|{{{{yxxwvvxxwvvuttttrqqpoooonmmkjjjjjjjjjjhhhhhhhhffeddcaaddcaa`__ aWqacnlmnoonljkmpsvxxxvxwxvsqolic]YXXY[[[]^^__```abbddeeffghhiddeffghhhhikklmmjjlmmnooqqqqqqqqttttttttvvvvvvvv{{{{{{{{{{|}}€€}}~‚‚„„„„„„„„††††††††‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰„„„„„„„„„„ƒ‚‚€~}}|{{{{yxxwvvyyxwwuttttrqqpoooonmmkjjjjjjjjjjhhhhhhhhffeddcaaddcaa`__ `Un_anijllligfhjmpsttttuuvusqoljfb_]]\[]]^__```aabddeedeefgghhddeffghhhhikklmmjjlmmnooqqqqqqqqttttttttvvvvvvvv{{{{{{{{{{|}}€€}}~‚‚„„„„„„„„††††††††‰‰‰‰‰‰‰‰ŠŠŠŠŠŠŠŠ‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰„„„„„„„„„„ƒ‚‚€~}}|{{{{yxxwvvyywvvuttttrqqpoooonmmkjjjjjjjjjjhhhhhhhhffeddcaaddcaa`__ _Sl^aohhiihfcbklnrsssqoprrromlXY\]^]]\]]^^_``aaabbdeefbbddeffgddeffghhhhikklmmjjlmmnooqqqqqqqqttttttttvvvvvvvv{{{{{{{{{{|}}€€}}~‚‚„„„„„„„„††††††††‰‰‰‰‰‰‰‰‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰„„„„„„„„„„ƒ‚‚€~}}|{{{{yxxwvvyyxwwuttttrqqpoooonmmkjjjjjjjjjjhhhhhhhhffeddcaaddcaa`__ ^Rk^aogghhgeb`moqstssrlmnnnmkiAFKRVXXW]]^__`aaaabddeffaabbdeefddeffghhhhikklmmjjlmmnooqqqqqqqqttttttttvvvvvvvv{{{{{{{{{{|}}€€}}~‚‚„„„„„„„„††††††††‰‰‰‰‰‰‰‰‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰‰„„„„„„„„„„ƒ‚‚€~}}|{{{{yxxwvvyyxwwuttttrqqpoooonmmkjjjjjjjjjjhhhhhhhhffeddcaaddcaa`__ ZPl^]ffedaacdeopqqqpnmfppfejfW  1bt`C_``]Z[af^^^___``bbaaa```ddeffghhffghhikkmmmmmmmmmmnooqrrqqrttuvvvvvvvvvv{{{{{{{{}}}}}}}}}}~‚‚‚‚ƒ„„…††‡‡‡‡‡‡‡‡‡‡ˆ‰‰Š‹‹ŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒ‰‰‰‰‰‰‰‰‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰††…„„ƒ‚‚„„ƒ‚‚€‚‚€~}}}}|{{yxx{{yxxwvvvvuttsrrttrqqpoooonmmkjjmmkjjihhhhgffdccffeddcaaaa`__^]]WNj]\fgfdccdefopponmkiinleffS; *H\c[^^[YY^d___``aaabbbbaaaaddeefgghffghhikkmmmmmmmmmmnooqrrqqrttuvvvvvvvvvv{{{{{{{{}}}}}}}}}}~‚‚‚‚ƒ„„…††‡‡‡‡‡‡‡‡‡‡ˆ‰‰Š‹‹ŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒ‰‰‰‰‰‰‰‰‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰††…„„ƒ‚‚„„ƒ‚‚€‚‚€~}}}}|{{yxx{{yxxwvvwwuttsrrttrqqpoooonmmkjjmmkjjihhhhgffdccffeddcaaaa`__^]]SJfZ\fgfdddefgqpnljgfemjeeh_;>^VY[ZXWZ___``abddbbbbbbddbddeffggffghhikkmmmmmmmmmmnooqrrqqrttuvvvvvvvvvv{{{{{{{{}}}}}}}}}}~‚‚‚‚ƒ„„…††‡‡‡‡‡‡‡‡‡‡ˆ‰‰Š‹‹ŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒŠŠŠŠŠŠŠŠ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰††…„„ƒ‚‚„„ƒ‚‚€‚‚€~}}}}|{{yxx{{yxxwvvvvuttsqqttrqqpoooonmmkjjmmkjjihhhhgffdccffeddcaaaa`__^]]RHfZ^heedcdeghomifca`_lc^ciW* +KQWYWWX[[]^_`abdaaabbdddbbbdeeffffghhikkmmmmmmmmmmnooqrrqqrttuvvvvvvvvvv{{{{{{{{}}}}}}}}}}~‚‚‚‚ƒ„„…††‡‡‡‡‡‡‡‡‡‡ˆ‰‰Š‹‹ŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒ‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰††…„„ƒ‚‚„„ƒ‚‚€‚‚€~}}}}|{{yxx{{yxxwvvwwuttsrrttrqqpoooonmmkjjmmkjjihhhhgffdccffeddcaaaa`__^]]SHdY]jca``adfhlje`]\\\e\Y`aJ! HKKLMMMPRTWYYYZ[]^`aa``aabddeffghhikkmmmmmmmmmmnooqrrqqrttuvvvvvvvvvv{{{{{{{{}}}}}}}}}}~‚‚‚‚ƒ„„…††‡‡‡‡‡‡‡‡‡‡ˆ‰‰Š‹‹ŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰††…„„ƒ‚‚„„ƒ‚‚€‚‚€~}}}}|{{yxx{{yxxwvvvvuttsrrttrqqpoooonmmkjjmmkjjihhhhgffdccffeddcaaaa`__^]]L=WKO\YYXY\^ada^YTSVY[WUWN2  *7=?AADEHJMPRSTVWYZ]^__``abbddffghhikkmmmmmmmmmmnooqrrqqrttuvvvvvvvvvv{{{{{{{{}}}}}}}}}}~‚‚‚‚ƒ„„…††‡‡‡‡‡‡‡‡‡‡ˆ‰‰Š‹‹ŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰††…„„ƒ‚‚„„ƒ‚‚€‚‚€~}}}}|{{yxx{{yxxwvvwwuttsrrttrqqpoooonmmkjjmmkjjihhhhgffdccffeddcaaaa`__^]]H8PDGSVVVWY]_a^ZVRRTY\SUWF"  -4678>?BEHKMORRTWYZ]]__`aabddffghhikkmmmmmmmmmmnooqrrqqrttuvvvvvvvvvv{{{{{{{{}}}}}}}}}}~‚‚‚‚ƒ„„…††‡‡‡‡‡‡‡‡‡‡ˆ‰‰Š‹‹ŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒŒ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰††…„„ƒ‚‚„„ƒ‚‚€‚‚€~}}}}|{{yxx{{yxxwvvvvuttsqqttrqqpoooonmmkjjmmkjjihhhhgffdccffeddcaaaa`__^]]'7;88;BFMSWWTSTUTVUVWWOVI%   !%'(3458<>ABIIJLMPQQWWXXYZZ[YYYZ[]]]gfeb`_\\XXZ^bhmppqstvwxzttuuvwwxyyz{{|}}‚‚‚‚‚‚‚‚‚‚ƒ„„…††††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŒŒŒŒŒŒŒŒŽŽŽŽŽŽŽŽŒŒŒŒŒŒŒŒŒŒŠ‰‰ˆ‡‡‡‡‡‡‡‡‡‡‡‡†……ƒ‚‚‚‚€€~~€€~~|{{{{zyyxwwyyxwwuttttsrrqppmmmmmmmmmmlkkjiiiigffeddffeddcbbbb`__^]] #252149>EKPQPMSSVWXYYYQP<  !$')*2357:=>@EEGIJLNNSSSUVWWWWWWXYZZZa`_^]\ZYVVWY]afhmmnpqtuutuuvwxy{yyz{{|}}‚‚‚‚‚‚‚‚‚‚ƒ„„…††††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŒŒŒŒŒŒŒŒŽŽŽŽŽŽŽŽŒŒŒŒŒŒŒŒŒŒŠ‰‰ˆ‡‡‡‡‡‡‡‡‡‡‡‡†……ƒ‚‚‚‚€€~~€€~~|{{{{zyyxwwyyxwwuttttsrrqppmmmmmmmmmmlkkjiiiigffeddffeddcbbbb`__^]] !//,)*/49@EGGGPRVXZ[\[RD(   &(*('#$%'*,-.02469;<=@ABDEGIINNNOPQQQTTTUVVWWYYYXXXXXSSSSUX[\fghilmnortuwy{|}yyz{{|}}‚‚‚‚‚‚‚‚‚‚ƒ„„…††††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŒŒŒŒŒŒŒŒŽŽŽŽŽŽŽŽŒŒŒŒŒŒŒŒŒŒŠ‰‰ˆ‡‡‡‡‡‡‡‡‡‡‡‡†……ƒ‚‚‚‚€€~~€€~~|{{{{zyyxwwyyxwwuttttsrrqppmmmmmmmmmmlkkjiiiigffeddffeddcbbbb`__^]] !..(&&)-28>@CCKOSX[]\[O6 !%+05665+,,./02213457:;<<=>?BCDEGIIJKKLLPPPQRSSSUUVVVWWWUTQPPQTU]^_`bdefopsux{}~xxy{{|}}‚‚‚‚‚‚‚‚‚‚ƒ„„…††††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŒŒŒŒŒŒŒŒŽŽŽŽŽŽŽŽŒŒŒŒŒŒŒŒŒŒŠ‰‰ˆ‡‡‡‡‡‡‡‡‡‡‡‡†……ƒ‚‚‚‚€€~~€€~~|{{{{zyyxwwyyxwwuttttsrrqppmmmmmmmmmmlkkjiiiigffeddffeddcbbbb`__^]]%0/)''(*/48<>?EIOUXXWTD& &*06:;;;3333444444569:;;;<=?ABCDGGHHIJJKNNOPPQRRUUUVVVWWURPONNOOSTVWYZ[]hjmqtx{|xxy{{|}}‚‚‚‚‚‚‚‚‚‚ƒ„„…††††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŒŒŒŒŒŒŒŒŽŽŽŽŽŽŽŽŒŒŒŒŒŒŒŒŒŒŠ‰‰ˆ‡‡‡‡‡‡‡‡‡‡‡‡†……ƒ‚‚‚‚€€~~€€~~|{{{{zyyxwwyyxwwuttttsrrqppmmmmmmmmmmlkkjiiiigffeddffeddcbbbb`__^]]&21,)))*-0468;>CIOQPLJ4 +.39<<<;77766554778:;;<<=>?ACDEFGGIIJKKLMMNNPQQRSSSSSRRRQNLJIIJJJKLMPQRS^`chmquwyyz{{|}}‚‚‚‚‚‚‚‚‚‚ƒ„„…††††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŒŒŒŒŒŒŒŒŽŽŽŽŽŽŽŽŒŒŒŒŒŒŒŒŒŒŠ‰‰ˆ‡‡‡‡‡‡‡‡‡‡‡‡†……ƒ‚‚‚‚€€~~€€~~|{{{{zyyxwwyyxwwuttttsrrqppmmmmmmmmmmlkkjiiiigffeddffeddcbbbb`__^]] %11-**)))*-/128=CIJFB>$ %/16;=<;9;9976544;<<<==??ABCDGHIJJKKLNNOOOOOPQQRRRQPONLKJIHEDCCDEDDEHIKLLTVZ`fjoqyyz{{|}}‚‚‚‚‚‚‚‚‚‚ƒ„„…††††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŒŒŒŒŒŒŒŒŽŽŽŽŽŽŽŽŒŒŒŒŒŒŒŒŒŒŠ‰‰ˆ‡‡‡‡‡‡‡‡‡‡‡‡†……ƒ‚‚‚‚€€~~€€~~|{{{{zyyxwwyyxwwuttttsrrqppmmmmmmmmmmlkkjiiiigffeddffeddcbbbb`__^]] !//,)*(('''),-5:?DEA;6  (35:=>=;8<;:86543=???@@@@DDFHIKMMNNNOPPQQOPPQRRTTNNLKHFEDCA?>>>?@?ABCEFHINQTZagjmyyz{{|}}‚‚‚‚‚‚‚‚‚‚ƒ„„…††††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŒŒŒŒŒŒŒŒŽŽŽŽŽŽŽŽŒŒŒŒŒŒŒŒŒŒŠ‰‰ˆ‡‡‡‡‡‡‡‡‡‡‡‡†……ƒ‚‚‚‚€€~~€€~~|{{{{zyyxwwyyxwwuttttsrrqppmmmmmmmmmmlkkjiiiigffeddffeddcbbbb`__^]] ,,*+-)))***++;53:A>0"$*.88:<=>AA===<<;;;<=ADGGGGEEGHHIJJJIHHIJLNQQRSSQPNHHHGDB?<;;:998668767;AFJJKNPQRQPknrw‚‡€t}}~‚‚‚‚ƒ„„…††„„…††‡‰‰††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŒŒŒŒŒŒŒŒŒŒŠ‰‰ˆ‡‡‡‡†……ƒ‚‚……ƒ‚‚€€‚‚€€~~~~|{{zyyyyxwwuttttsrrqpprrqppnmmmmlkkjiiiigffeddffeddcbbbb`__^]] ,,*+.****++++954:@9+$*.678:<=>?=<<<<<<;<>ADEFFFEEFFHIIJJIHHIJMOPQRRRPNMHGEDA=:95554322231136;ADHJMOQQPPW^gow}{}}~‚‚‚‚ƒ„„…††„„…††‡‰‰††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŒŒŒŒŒŒŒŒŒŒŠ‰‰ˆ‡‡‡‡†……ƒ‚‚……ƒ‚‚€€‚‚€€~~~~|{{zyyyyxwwuttttsrrqpprrqppnmmmmlkkjiiiigffeddffeddcbbbb`__^]] +,*,.,,,,,+++655:<2" $)-44689;<=<<<<<<<<=>BDEFEEDEEFGGIIJIHHIJLOOPPQPNKJGFB?;642--,,+**)*)))-38?BDEEDDDDDEFFHHJIHHIJLOMMOOLJHECA<83.,+%%$##" "! !%*04ACGJMNNNCHPRQXrŽ}}~‚‚‚‚ƒ„„…††„„…††‡‰‰††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŒŒŒŒŒŒŒŒŒŒŠ‰‰ˆ‡‡‡‡†……ƒ‚‚……ƒ‚‚€€‚‚€€~~~~|{{zyyyyxwwuttttsrrqpprrqppnmmmmlkkjiiiigffeddffeddcbbbb`__^]] +-,-22210.--,/122, "'+--.02455::;<<=>>@ACDFDCCCCDDFGGGJIGGIJLNLLLKJFCB>;5/*'&&%*.=?CFJKKKMKKIADe‹}}~‚‚‚‚ƒ„„…††„„…††‡‰‰††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŒŒŒŒŒŒŒŒŒŒŠ‰‰ˆ‡‡‡‡†……ƒ‚‚……ƒ‚‚€€‚‚€€~~~~|{{zyyyyxwwuttttsrrqpprrqppnmmmmlkkjiiiigffeddffeddcbbbb`__^]]+-,.354321.-----+#  "'*()*-./1178:;=>?AABDFFDCBBBCCDFFGJIHHIJLOJJJIFC?=74-'$!##"(,9AABCDEECBAABBCDDEEJIHHIJMOIIIHDA=;1-&! #"(,69=BFHIIMCGQH5?Y}}~‚‚‚‚ƒ„„…††„„…††‡‰‰††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŒŒŒŒŒŒŒŒŒŒŠ‰‰ˆ‡‡‡‡†……ƒ‚‚……ƒ‚‚€€‚‚€€~~~~|{{zyyyyxwwuttttsrrqpprrqppnmmmmlkkjiiiigffeddffeddcbbbb`__^]]+--04987420.-)*%  !%'%%')*,--789;=@ABBCDEDCA?AABCCDEEJIHHIJMOIIHGC@;9-)###)-58>>==A@@@BDHIFFFHHHIIMLKIEA<8!! ')-/1222&0>>=====AAAACEHJFGGIIJJJOMLJFB=;$&)-.//.$-:@@<::?p…}†‚…‚‚‚‚‚‚‚‚‡‡‡‡‡‡‡‡‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““’’’’’’’’ŽŽŽŽŽŽŽŽŒŒŒŒŒŒŒŒ‹‹Š‰‰ˆ††††††††††……ƒ‚‚€€‚‚€€~~~~|{{zyyyyxwwuttwwuttsrrrrqppnmmmmlkkjiikkjiigffffeddcbbddcbb`__ &*+++&')+,.001*  !#$&*+-148:;;;;;<<< !$'()(((5=?>=>O…‡wŠ”wƒƒƒƒƒƒƒƒ‡‡‡‡‡‡‡‡‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““’’’’’’’’ŽŽŽŽŽŽŽŽŒŒŒŒŒŒŒŒ‹‹Š‰‰ˆ††††††††††……ƒ‚‚€€‚‚€€~~~~|{{zyyyyxwwuttwwuttsrrrrqppnmmmmlkkjiikkjiigffffeddcbbddcbb`__ $)'')"#%'*+-.+$  "#(*,.14687779:::;BBABCGIKGHIJKNNOPPPMKFCA!#"!""!!%1;=?AC0v“xƒ–{……………………‡‡‡‡‡‡‡‡‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““’’’’’’’’ŽŽŽŽŽŽŽŽŒŒŒŒŒŒŒŒ‹‹Š‰‰ˆ††††††††††……ƒ‚‚€€‚‚€€~~~~|{{zyyyyxwwuttwwuttsrrrrqppnmmmmlkkjiikkjiigffffeddcbbddcbb`__ #&%%% "%'*,-+$  ''*,.12334456799@@@@BDGIDEGIKLOOOOOMKHDC'$ !$$#.8ADEABDFIKLMKLLKJFDB6-"!!"-5:>CHN$;x{‘††††††††‡‡‡‡‡‡‡‡‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““’’’’’’’’ŽŽŽŽŽŽŽŽŒŒŒŒŒŒŒŒ‹‹Š‰‰ˆ††††††††††……ƒ‚‚€€‚‚€€~~~~|{{zyyyyxwwuttwwuttsrrrrqppnmmmmlkkjiikkjiigffffeddcbbddcbb`__ # "%),.1$  $%&'(++,,-.034569999;=@B=>@CFIKLIIJIHECAE6$!,48@DFIJFFHHFDB?O='  ",36;AGK> B“švy‡‡‡‡‡‡‡‡‡‡‡‡‡‡‡‡‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““’’’’’’’’ŽŽŽŽŽŽŽŽŒŒŒŒŒŒŒŒ‹‹Š‰‰ˆ††††††††††……ƒ‚‚€€‚‚€€~~~~|{{zyyyyxwwuttwwuttsrrrrqppnmmmmlkkjiikkjiigffffeddcbbddcbb`__ "$#"#&'**)$   !#&&(())*++-.//011222468<>@BEDCBBCDEEKH2 &   (059=BDI=8`–—s€‚…†‡‡†…‡‡ˆ‰‰ŠŒŒ‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““““““““““’’’’’’’’ŽŽŒŒŒ‹‹Š‰‰‰‰ˆ††…„„‡‡†……ƒ‚‚‚‚€€~~~~|{{zyyyyxwwuttttsrrqpprrqppnmmmmlkkjiikkjiigffffeddcbbddcbb`__ "$#"#%')*'$  !"#$$&''())--../00101469<>?BB@@@ACDBJK=&"!   4G76" &-049==F<3Vˆ’y€‚…†‡‡†…‡‡ˆ‰‰ŠŒŒ‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““““““““““’’’’’’’’ŽŽŒŒŒ‹‹Š‰‰‰‰ˆ††…„„‡‡†……ƒ‚‚‚‚€€~~~~|{{zyyyyxwwuttttsrrqpprrqppnmmmmlkkjiikkjiigffffeddcbbddcbb`__ "$#"#%&))'#  !!"##$))*++-..-./2469:<<;;<>AB?HOL?,   =wiiC#'),043@EHMKF>1#!%)/47=?CEGILPWJ4 -}®}# !(/BH7*?m‘€‚…†‡‡†…‡‡ˆ‰‰ŠŒŒ‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““““““““““’’’’’’’’ŽŽŒŒŒ‹‹Š‰‰‰‰ˆ††…„„‡‡†……ƒ‚‚‚‚€€~~~~|{{zyyyyxwwuttttsrrqpprrqppnmmmmlkkjiikkjiigffffeddcbbddcbb`__ "$#"# #$%#88:>DKRV^]VL<+"'-367=CC@>BFEQVG* c¦Ž= "+4DK:.?k€‚…†‡‡†…‡‡ˆ‰‰ŠŒŒ‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““““““““““’’’’’’’’ŽŽŒŒŒ‹‹Š‰‰‰‰ˆ††…„„‡‡†……ƒ‚‚‚‚€€~~~~|{{zyyyyxwwuttttsrrqpprrqppnmmmmlkkjiikkjiigffffeddcbbddcbb`__ # ")0EHKORSTTPSXZVLA:#(&#2-.047;=>DHPVR?!  "+Œ˜z*4  <2AFE;)P¡„‚‚…‹Œ‰…††‡‰‰Š‹‹‹‹‹‹‹‹‹‹““““““““““““““““““““““““’’’’’’’’’’’’’’’’ŽŽŽŽŽŽŽŽ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰††…„„ƒ‚‚‚‚~}}€€~~|{{yyxwwuttttsqqpooqqpoonmmmmlkkjiiiigffeddffeddcbb________ $ "*0EHKPRSTTPSXZYTMI0% #"&&%(*,.158;% $+('(,.157:=;:?IQVW; _›Š. 33*7:>;)J•‡„‚„‰‹‰…††‡‰‰Š‹‹‹‹‹‹‹‹‹‹““““““““““““““““““““““““’’’’’’’’’’’’’’’’ŽŽŽŽŽŽŽŽ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰††…„„ƒ‚‚‚‚~}}€€~~|{{yyxwwuttttsqqpooqqpoonmmmmlkkjiiiigffeddffeddcbb________)4.&$($&'&%)07JKOQSTTSVVVWY[_`eU=)!#(%"%'*.045>:548AIM`?1uŽ—m("  .*36==-GŒŠ…‚ƒ‡Š‡…††‡‰‰Š‹‹‹‹‹‹‹‹‹‹““““““““““““““““““““““““’’’’’’’’’’’’’’’’ŽŽŽŽŽŽŽŽ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰††…„„ƒ‚‚‚‚~}}€€~~|{{yyxwwuttttsqqpooqqpoonmmmmlkkjiiiigffeddffeddcbb________2@=525,.0.-19?LMPRTTSSYWVTTWY[c]UND9)""""""""')*,.02300000000.///.,)'&!"%(,.08751137;[P: l„ƒŒs 8+23=A/D‚Œ‡ƒ‚…‰‡…††‡‰‰Š‹‹‹‹‹‹‹‹‹‹““““““““““““““““““““““““’’’’’’’’’’’’’’’’ŽŽŽŽŽŽŽŽ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰††…„„ƒ‚‚‚‚~}}€€~~|{{yyxwwuttttsqqpooqqpoonmmmmlkkjiiiigffeddffeddcbb________8JJC@B8:;:9>>>>>>>ACFHKOQTRRRRRRRRRSUVUSQP%!%'*,-155336::GOA# eˆsˆ‡h),,0.:?-;sŽ‰ƒ€„†‡…††‡‰‰Š‹‹‹‹‹‹‹‹‹‹““““““““““““““““““““““““’’’’’’’’’’’’’’’’ŽŽŽŽŽŽŽŽ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰††…„„ƒ‚‚‚‚~}}€€~~|{{yyxwwuttttsqqpooqqpoonmmmmlkkjiiiigffeddffeddcbb________8NQKIJBDFDCGNUPQSTVTSRVVVWWWWVWWY_ee`ZWWWWWWWWXY\]_bdeggggggggghkmmmlk3#$!%'(%*01/069;KZN+ !{ˆŠiªi!&% -6 &V’‹ƒ‚…††††‡‰‰Š‹‹‹‹‹‹‹‹‹‹““““““““““““““““““““““““’’’’’’’’’’’’’’’’ŽŽŽŽŽŽŽŽ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰††…„„ƒ‚‚‚‚~}}€€~~|{{yyxwwuttttsqqpooqqpoonmmmmlkkjiiiigffeddffeddcbb________5KNJKOLLMOOPQQQQRSSTVVVVWXXYZZZZ\]]^__]]^^^abbbbcddeffffffffffhhjkklmm^+"%()+'"),;=@EIKMM lz|‡†;$+5$%22Š‰‰‡…„„ƒ††‡‰‰Š‹‹‹‹ŒŽ‘““”••““““““““••••••••••••••••’’’’’’’’’’’’’’’’““‘ŽŽŒ‹‹Š‰‰‹‹Š‰‰ˆ††‰‰ˆ††…„„„„ƒ‚‚€€~~|{{yyxwwuttttsqqpoooooooooommlkkjiiiigffeddffeddcbbbb`__^]]5KNJKOLLMOOPQQQQRSSTVVVVWXXYZZZZ\]]^__]]^^^abbbbcddeffffffffffhhjkklmmo: !#"'+' 049@EIKM#TŒ‚y|‘a"$'0!+:;‰‰‡††…„„††‡‰‰Š‹‹‹‹ŒŽ‘““”••““““““““••••••••••••••••’’’’’’’’’’’’’’’’““‘ŽŽŒ‹‹Š‰‰‹‹Š‰‰ˆ††‰‰ˆ††…„„„„ƒ‚‚€€~~|{{yyxwwuttttsqqpoooooooooommlkkjiiiigffeddffeddcbbbb`__^]]5KNJKOLLMOOPQQQQRSSTVVVVWXXYZZZZ\]]^__]]^^^abbbbcddeffffffffffhhjkklmm}U! !"'*&"&+3;DJOQG7.‚‹vo—85 'C-66 QŒ‡~ux‚ŠŒˆ‰ŠŽ‰………†‡‡ˆ‰‰‰‰‰‰‰‰‰‰ŒŒŽŽŽŽ‘““““““““““••••••••””””””””””””””””””””””””””””””””““““““““ŽŽŽŽŽŽŽŽŒŒŠ‰‰ˆ‡‡††…„„ƒ‚‚„„ƒ‚‚€~}}|{{xxwvvuttttsrrqpprrqppnmmmmkjjihhhhgffdccffeddcbbbb`__^]]6LPKJLOOOQQSSSSSTVVWXXVVWXXYZZZZ\]]^____`aacddaabccdffhhhhhhhhhhikklmmnnhrt> +yqlt‡€vJF:)#%#:&.8E‡€|~†ˆ‚ƒ…†…‚|……†‡‡ˆ‰‰‰‰‰‰‰‰‰‰ŒŒŽŽŽŽ‘““““““““““••••••••””””””””””””””””””””””””””””””””““““““““ŽŽŽŽŽŽŽŽŒŒŠ‰‰ˆ‡‡††…„„ƒ‚‚„„ƒ‚‚€~}}|{{xxwvvuttttsrrqpprrqppnmmmmkjjihhhhgffdccffeddcbbbb`__^]]6LPKJLOOOQQSSSSSTVVWXXVVWXXYZZZZ\]]^____`aacddaabccdffhhhhhhhhhhikklmmhpio|T Ž}kgqz{x{{mXJA).',7);ˆ‡‡…|~|~€ƒ†ˆ‰‰……†‡‡ˆ‰‰‰‰‰‰‰‰‰‰ŒŒŽŽŽŽ‘““““““““““••••••••””””””””””””””””””””””””””””””””““““““““ŽŽŽŽŽŽŽŽŒŒŠ‰‰ˆ‡‡††…„„ƒ‚‚„„ƒ‚‚€~}}|{{xxwvvuttttsrrqpprrqppnmmmmkjjihhhhgffdccffeddcbbbb`__^]]6LPKJLOOOQQSSSSSTVVWXXVVWXXYZZZZ\]]^____`aacddaabccdffhhhhhhhhhhikklmmetki~h$ ~umnu{{y„†~pmb<)*/-1x~~‚‚€~€€‚ƒ†ˆŠŒ……†‡‡ˆ‰‰‰‰‰‰‰‰‰‰ŒŒŽŽŽŽ‘““““““““““••••••••””””””””””””””””””””””””””””””””““““““““ŽŽŽŽŽŽŽŽŒŒŠ‰‰ˆ‡‡††…„„ƒ‚‚„„ƒ‚‚€~}}|{{xxwvvuttttsrrqpprrqppnmmmmkjjihhhhgffdccffeddcbbbb`__^]]6LPKJLOOOQQSSSSSTVVWXXVVWXXYZZZZ\]]^____`aacddaabccdffhhhhhhhhhhikklmmeyk_zzB  hkntz}€€vzuq}}O ,*!((e‚~z|ƒ†ƒ€ƒƒ‚‚‚ƒ…†……†‡‡ˆ‰‰‰‰‰‰‰‰‰‰ŒŒŽŽŽŽ‘““““““““““••••••••””””””””””””””””””””””””””””””””““““““““ŽŽŽŽŽŽŽŽŒŒŠ‰‰ˆ‡‡††…„„ƒ‚‚„„ƒ‚‚€~}}|{{xxwvvuttttsrrqpprrqppnmmmmkjjihhhhgffdccffeddcbbbb`__^]]6LPKJLOOOQQSSSSSTVVWXXVVWXXYZZZZ\]]^____`aacddaabccdffhhhhhhhhhhikklmmh|hVv„Z-  xxvrmlqtvxsu‹“d#-)"!V…zz†ƒ~Š‰ˆ‡‡ˆ‰Š……†‡‡ˆ‰‰‰‰‰‰‰‰‰‰ŒŒŽŽŽŽ‘““““““““““••••••••””””””””””””””””””””””””””””””””““““““““ŽŽŽŽŽŽŽŽŒŒŠ‰‰ˆ‡‡††…„„ƒ‚‚„„ƒ‚‚€~}}|{{xxwvvuttttsrrqpprrqppnmmmmkjjihhhhgffdccffeddcbbbb`__^]]FHIGCCGK\jndqbkkkkkkkkkkkkkkkkiiiiiiiiiigffeddffeddcbbbbbbbbbb]]]]]]]][[[[[[[[6IKEEHEEGHHIJJJJKLLMOOLLMOOPQQSSSSSSSSVVVVVVVVXXXXXXXXZZZZZZZZ]]^__`aa__`aacddccccccccffffffffffgiijkkkklmmnppmmnooqrrrrrrrrrrvvvvvvvvyyyyyyyyyyz{{|}~u‰ ­­«­°µµ¶¸»¼¾¾ÈÈÈÈÈÈÈÈÉʯ~]WSJcˆ‰z„‰€‚‚‚‚‚‚‚‚€€€€€€€€€€€€€€€€€€~~|{{{{zyyxvv{|Y9ANIEFHIFBAFJUckdsekkkkkkkkkkkkkkkkiiiiiiiiiigffeddffeddcbbbbbbbbbb]]]]]]]][[[[[[[[6IKEEHEEGHHIJJJJKLLMOOLLMOOPQQSSSSSSSSVVVVVVVVXXXXXXXXZZZZZZZZ]]^__`aa__`aacddccccccccffffffffffgiijkkkklmmnppmmnooqrrrrrrrrrrvvvvvvvvyyyyyyyyyyz{{|}}u…—Ÿ¤­«¬®¯²´µ¶µµµµµµµµÍ¾ŒWJ^_Ie‰‰y„‰€‚‚‚‚‚‚‚‚€€€€€€€€€€€€€€€€€€~~|{{{{zyyxvvƒvC4UN9OFHIFBADIN\gdwjkkkkkkkkkkkkkkkkiiiiiiiiiigffeddffeddcbbbbbbbbbb]]]]]]]][[[[[[[[5IKGGJEEFGGIJJJJKLLMOOLLMOOPQQQQRSSUVVSSUVVWXXXXXXXXXXZZZZZZZZ________aaaaaaaaaabcceffcceffghhjjjjjjjjjjlmmnoooooooooottttttttvvvvvvvvvvwyyz{{{{{{{{{{z‚—™›ž ¡¡¡£¤¥¥¥«¬¬­¬ª§¦¬¢mFVdTIeŠ‹z‚‡‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚€€€€€€€€€€}}|{{‘sfz‰ƒ|€€U9CND>GDEEEDB?> ;[gggikkkkkkkkhhhhhhhhffffffffddddddddbbbbbbbb________]]]]]]]][[[[[[[[5IKGGJEEFGGIJJJJKLLMOOLLMOOPQQQQRSSUVVSSUVVWXXXXXXXXXXZZZZZZZZ________aaaaaaaaaabcceffcceffghhjjjjjjjjjjlmmnoooooooooottttttttvvvvvvvvvvwyyz{{{{{{{{{{zƒ–™›ŸŸŸŸ ¡£££§¨ªª¨§¥£¨ŸlDVeVJeŠ‹z‚‡‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚€€€€€€€€€€}}|{{„yt|‚€}€kJ9GOECKDEEEDB>= ;[gggikkkkkkkkhhhhhhhhffffffffddddddddbbbbbbbb________]]]]]]]][[[[[[[[5IKGGJEEFGGIJJJJKLLMOOLLMOOPQQQQRSSUVVSSUVVWXXXXXXXXXXZZZZZZZZ________aaaaaaaaaabcceffcceffghhjjjjjjjjjjlmmnoooooooooottttttttvvvvvvvvvvwyyz{{{{{{{{{{zƒ–˜™œž›››žžŸŸ¢¤¥¥¤¡Ÿž¡šiCVfWLeŠ‹z‚‡‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚€€€€€€€€€€}}|{{x€‚|z~~zO>;:;Ydegkhhhhhhhhhhhhhhhhffffffffddddddddbbbbbbbb________]]]]]]]][[[[[[[[5IKGGJEEFGGIJJJJKLLMOOLLMOOPQQQQRSSUVVSSUVVWXXXXXXXXXXZZZZZZZZ________aaaaaaaaaabcceffcceffghhjjjjjjjjjjlmmnoooooooooottttttttvvvvvvvvvvwyyz{{{{{{{{{{zƒ•––—™––—˜˜™šš™šœœš™—–—‘dBVfVJeŠ‹z‚‡‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚€€€€€€€€€€}}|{{z‚~u}ˆtQ:>HPLBAGEEECA=:7;Xbdfkhhhhhhhhhhhhhhhhffffffffddddddddbbbbbbbb________]]]]]]]][[[[[[[[5IKGGJEEFGGIJJJJKLLMOOLLMOOPQQQQRSSUVVSSUVVWXXXXXXXXXXZZZZZZZZ________aaaaaaaaaabcceffcceffghhjjjjjjjjjjlmmnoooooooooottttttttvvvvvvvvvvwyyz{{{{{{{{{{{ƒ“”•–—––——˜™™›˜˜™™™—•””cAVdSGeŠ‹z‚‡‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚€€€€€€€€€€}}|{{|xy~cABEJKHCABFEEC?;75;Wabfkgggggggghhhhhhhhffffffffddddddddbbbbbbbb________]]]]]]]][[[[[[[[5IKGGJEEFGGIJJJJKLLMOOLLMOOPQQQQRSSUVVSSUVVWXXXXXXXXXXZZZZZZZZ________aaaaaaaaaabcceffcceffghhjjjjjjjjjjlmmnoooooooooottttttttvvvvvvvvvvwyyz{{{{{{{{{{{ƒ““””–———˜™™šš—˜™™˜–•’“cBUcPBeŠ‹z‚‡‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚€€€€€€€€€€}}|{{xx‚jN=LKHCDGGCFEEB>:63;W_aekffffffffhhhhhhhhffffffffddddddddbbbbbbbb________]]]]]]]][[[[[[[[5IKGGJEEFGGIJJJJKLLMOOLLMOOPQQQQRSSUVVSSUVVWXXXXXXXXXXZZZZZZZZ________aaaaaaaaaabcceffcceffghhjjjjjjjjjjlmmnoooooooooottttttttvvvvvvvvvvwyyz{{{{{{{{{{{ƒ““’””—˜˜™ššœœ—˜™™˜—•’“cBU`M@eŠ‹z‚‡‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚€€€€€€€€€€}}|{{}u|‹}X@@RLD>BJKGFFDB>:53BGKONLKK;CI856%)FJ]fenffffffffffffffffddddddddbbbbbbbbbbbbbbbb________]]]]]]]][[[[[[[[4GHDDIDEEFGGIIFHHIJJKKKLLMOOPPNOOPQQRRQQRSSUVVSSUVVWXXXXYZZ\]]ZZ[\\^____`aabcccceffghhffghhijjiiiiiiiioooooooorrrrrrrrttttttttvvvvvvvvvvwyyz{{{{{{{{{{x€Š‘‘‘’“••••••••••••••••“…XAXbLBpŒŠ~…ƒ~‰„„„„„„„„„„ƒ‚‚€€€€€€€€€€}}}}}}}}{‹k%  0AKONKI;CF775*FIZedmffffffffffffffffddddddddbbbbbbbbbbbbbbbb________]]]]]]]][[[[[[[[3EGCDHDDDEFFGGFFFHIIJJKKKLMMOONNNOPPQQQQRSSUVVSSUVVWXXXXYZZ\]]ZZ[\\^____`aabcccceffghhffghhijjjjjjjjjjoooooooorrrrrrrrttttttttvvvvvvvvvvwyyz{{{{{{{{{{x€Š‘‘‘’“••••••••••••••••“…XAXbLBpŒŠ~…ƒ~‰„„„„„„„„„„ƒ‚‚€€€€€€€€€€}}}}}}}}gˆ‘f#3ADB=F;BC685.HIYbblffffffffffffffffddddddddbbbbbbbbbbbbbbbb________]]]]]]]][[[[[[[[3DGBCGCCDDEFFFEEFFHIIIJJKKLMMMLLNNOPPPQQRSSUVVSSUVVWXXXXYZZ\]]ZZ[\\^____`aabcccceffghhffghhijjjjjjjjjjoooooooorrrrrrrrttttttttvvvvvvvvvvwyyz{{{{{{{{{{x€Š‘‘‘’“••••••••••••••••“…XAXbLBpŒŠ~…ƒ~‰„„„„„„„„„„ƒ‚‚€€€€€€€€€€}}}}}}}}o}Y0$7CD@:DIOLHCC15JFS]^hffffffffffffffffddddddddbbbbbbbbbbbbbbbb________]]]]]]]][[[[[[[[1CD@AD@@BCCDEECCDEEFHHHHIJJKLLJJKLLNOOQQRSSUVVSSUVVWXXXXYZZ\]]ZZ[\\^____`aabcccceffghhffghhijjmmmmmmmmoooooooorrrrrrrrttttttttvvvvvvvvvvwyyz{{{{{{{{{{x€Š‘‘‘’“••••••••••••••••“…XAXbLBpŒŠ~…ƒ~‰„„„„„„„„„„ƒ‚‚€€€€€€€€€€}}}}}}}}sN3=V_J?zŽ„x…†}ƒ„„„„„„„„‚‚‚‚‚‚‚‚€€€€€€€€t„…vo{†‡;=ADGGGGDFFB<:=AC=B;/6(7FFTXWfffffffffccccccccbbbbbbbbbbbbbbbb________]]]]]]]][[[[[[[[XXXXXXXX/??<>BAAAAAAAACCDDEFFHEEFFHIIJJJKKLMMOOOPPQRRSSSTTUWWXXXYYZ[[\XXYZZ[\\\\^__`aacceefgghcceffghhjjllmnnooooooooorrrrrrrrttttttttvvvvvvvvyyyyyyyyyyzy{||}v€‹’“‘‘‘’’’’’’’’’’’’’’’’‘ƒU>V_J?zŽ„x…‡}ƒ„„„„„„„„‚‚‚‚‚‚‚‚€€€€€€€€x‚‚xv~~vV_J?{„y†‡„„„„„„„„„‚‚‚‚‚‚‚‚€€€€€€€€~~|{€‚q[?@BFGHGGDFFB<:=AB<@9.5'9FESWUfffffffffccccccccbbbbbbbbbbbbbbbb________]]]]]]]][[[[[[[[XXXXXXXX/>>8:?????????BBBCDDEEDDDEFFHHIIIJKKLLMMMOPPQQRRRSTTUUWWWXYYZZXXYZZ[\\\\^__`aabbbceeffcceffghhiiijllmmmmmmmmmmoooooooorrrrrrrrttttttttvvvvvvvvxxwxzz{{v€‹’“‘‘‘’’’’’’’’’’’’’’’’‘ƒU>V_J?|…z†‰€†„„„„„„„„‚‚‚‚‚‚‚‚€€€€€€€€‚|x†~`D@BDGHHGFDFFB<:=AB<88V_J?|‡{‡Š€†„„„„„„„„‚‚‚‚‚‚‚‚€€€€€€€€ƒ{y‚„qQ8BDFHHHGFDFFB<:=A@;?8+4$=FCPSUfffffffffccccccccbbbbbbbbbbbbbbbb________]]]]]]]][[[[[[[[XXXXXXXX-<:77:>>>>>>>>??AABCCDBBCCDEEFFFHHIJJKKKLLMOOPPPQQRSSTTTUUWXXYXXYZZ[\\\\^__`aa``aabccecceffghhgghhijjlllllllllnnnnnnnnqqqqqqqqssssssssuuuuuuuuuuvvxyxzv€‹’“‘‘‘’’’’’’’’’’’’’’’’‘ƒU>V_J?}‘ˆ{‰‹‡„„„„„„„„‚‚‚‚‚‚‚‚€€€€€€€€|„y_E9DFHIIHGFDFFB<:=A?9>7*2$>FBMRTfffffffffccccccccbbbbbbbbbbbbbbbb________]]]]]]]][[[[[[[[XXXXXXXX-<:558<<<<<<<<>??ABBCCABBCDDEEEFFHIIJJJKKLMMOONPPQRRSSSTTUWWXXXXYZZ[\\\\^__`aa_``abbcccceffghhfgghiijjjjjjjjjjmmmmmmmmoooooooorrrrrrrrtttttttttuuvxxxxv€‹’“‘‘‘’’’’’’’’’’’’’’’’‘ƒU>V_J?’ˆ|Š‹‚ˆ„„„„„„„„‚‚‚‚‚‚‚‚€€€€€€€€{~†…kJ=DGHIJIHGFDFFB<:=A>8=6*1#?F@LRTfffffffffccccccccbbbbbbbbbbbbbbbb________]]]]]]]][[[[[[[[XXXXXXXX-::338<<<<<<<<>>?AABCCAABCCDEEEEFHHIJJJJKLLMOONNPQQRSSSSTUUWXXXXYZZ[\\\\^__`aa__`aabcccceffghhffghhijjjjjjjjjjmmmmmmmmoooooooorrrrrrrrttttttttttuvwxxxv€‹’“‘‘‘’’’’’’’’’’’’’’’’‘ƒU>V_J?’‰|Š‹‚ˆ„„„„„„„„‚‚‚‚‚‚‚‚€€€€€€€€w‹…b=9LGHIJJHGDDFFB<:=A>8=6)1#@F@LQTfffffffffccccccccbbbbbbbbbbbbbbbb________]]]]]]]][[[[[[[[XXXXXXXX %5878:888:::<<::;<<=>>ABBCDDEECCDEEFHHJKKLMMOOLLMNNPQQQQRSSTUUUUWXXYZZ\^^_``aa_``abbccccccccccffffffffhhhhhhhhkkkkkkkkmmmmmmmmkklmmnoommnooqrrrrsttuvvp~Ž“’’—’’’’’’’’——–””“’’‘zQG^WCJ‹‰‡†„„†‡„„„„„„„„‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚†r…|=-KMGGHHHIII<=@AA@=<96563%18BJOSZ`ccccccccccccccccbbbbbbbbbbbbbbbb__________^]]\[[[[[[[[[[XXXXXXXX $387788888::::::;;<==>AAABCDDDCCDDEFFHJJJKLMMMLLMMNPPQQQRRSTTUUUWWXYYZ\\\^_```___`abbbccccccccffffffffhhhhhhhhkkkkkkkkmmmmmmmmkkllmnnommnnoqqrrrsrtuuvp~Ž“’’—’’’’’’’’—––”““’’‘zQG^WCJŠ‰‡†„„††„„„„„„„„‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚~€|Z5;LCGGGHHHHH<=@AA@=<96453%19BJOSZ_ccccccccccccccccbbbbbbbbbbbbbbbb__________^]]\[[[[[[[[[[XXXXXXXX $38557577888::8::;<<==>??ABBCCBCCDEEFFHIIJKKLLKLLMNNPPPQQRSSTTTUUWXXYYZ[[\^^__\^^_``aaaaaaaaaaccccccccffffffffhhhhhhhhkkkkkkkkjkklmmnnlmmnooqqqrrrttuup~Ž“’’—’’’’’’’’––””“’’‘‘zQG^WCJŠˆ‡…ƒƒ„†ƒƒƒƒƒƒƒƒ‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚|Œh24KI=GGGGGGGG<=@AA@=<95342%2:CJNRY_ccccccccccccccccbbbbbbbb````````__________^]]\[[[[[[[[[[XXXXXXXX $2722533557888888:;;<<==>>?AABBBBCDDEEFFHHIJJKKKKLMMNNPPPQRRSSTTTUWWXXYYZZ[\\^[[\\^__`````````bbbbbbbbeeeeeeeeggggggggjjjjjjjjjjjkllmmlllmnnooqqpqssttp~Ž“’’—’’’’’’’’””““’‘‘‘‘zQG^WCJ‰ˆ…ƒ‚ƒƒ„‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚†M#@P?EHHGGFFDD<=@AA@=<:5231%3:CJNRX^ccccccccccccccccbbbbbbbb__________________^]]\[[[[[[[[[[XXXXXXXX $25212222355777788:;;;;<<=>>??AABBCDDDDEEFHHIIJJKKLMMMNNPPQRRRSSTTUWWWWXXYZZ[[YZZ[\\^^^^^^^^^^````````bbbbbbbbeeeeeeeegggggggghhjjklllkkllmnnnpppprsssp~Ž“’’—’’’’’’’’“““’‘‘‘zQG^WCJˆ‡„‚‚‚ƒƒ‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚†n6.TJ6SHHGFDCBB<=@AA@=<:411/%4;DJNQW\ccccccccccccccccbbbbbbbb__________________^]]\[[[[[[[[[[XXXXXXXX $231011122233566778::;::;;<==>??AABCCDCCDDEFFHIIJJKLLMMMNNPQQRRRSSTUUWUUWWXYYZXXYYZ[[\\\\\\\\\________aaaaaaaaddddddddffffffffgghhjkkljjkklmmnnnooqrqsp~Ž“’’—’’’’’’’’“’’‘‘zQG^WCJ‡…ƒ‚€€‚ƒ‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚xQ0CYD8SHHGFCBA@<=@AA@=<:4//.%5??ABBCCBBBCDEEEGIIJKKLLLMMNPPQQQRRSTTUUTTTUWXXXWWWXYZZZZZZZZZZZ\\\\\\\\________aaaaaaaaddddddddfgghjjkkhjjkllmmmnnoqqqqp~Ž“’’—’’’’’’’’’’‘‘‘zQG^WCJ‡…ƒ‚€€€€€€€€‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚Y;>?AABCCAABBCDDEGGIJJKLLLLMNNPQQQQRSSTUUSSTTUWWXUUWWXYYZZZZZZZZZ\\\\\\\\________aaaaaaaaddddddddffghhjkkhhjkklmmmmnopqqqp~Ž“’’—’’’’’’’’’’‘‘zQG^WCJ…„‚‚€€€€€€€€‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚=0IR@@AA>>@AABCCEGGHIIJJJKKLNNOOOPPQRRSSSSSSSSSSVVVVVVVVXXXXXXXXXXXXXXXXZZZZZZZZ]]]]]]]]]^^_``aaaacddeffdefgiklmiloqpnlj]rŠ–’–’’’’’’’’••”““‘–xLB]YHM‚‚~~€{tpqx‚ˆ€€€€€€r‚‡…Œy[;?CHJKJIKJGC@????@@?=;8763'-5;@@@>>@@ABBCEEEGHIIIJJJKLNNNOOOPQRRRSSSSSSSSVVVVVVVVXXXXXXXXXXXXXXXXZZZZZZZZ]]]]]]]]]]]^_```aaccdedfdefgiklmjmopomkh]rŠ•’Ž–’’’’’’’’••”““‘•yKD^[HL„ƒ‚€|{zƒ€zuuz€ƒ€€€€€€€ˆ‚fG?ADHIIHGKIFB@?????@?=:8553'-5;>=>>@AABBCDDEGGHHHIIJKKLLLNNOPPQQQQQQQQQQSSSSSSSSVVVVVVVVVVVVVVVVXXXXXXXXZZZZZZZZZ[[]^^__`abcdcddcdefhjklmnoomkhg]rŠ–’–’’’’’’’’••“’’‘’wLG`[FJ†…‚~{yy„€~zz{~€€€€€€€Œ|y…ˆrN5CDGHHGFDKIFB?====???<:7543(-3;@@AABBCCDEEGGGHHIJJKKKLLNOOPPPPPPPPPRRRRRRRRUUUUUUUUTTTTTTTTWWWWWWWWYYYYYYYYYYZZ[]]^``aabbccbbcfgikknnnmjjgf]rŠ–’Ž–’’’’’’’’••”’’‘wNHa[CE{{{zzzzz||{{|‚€€€€€€Œ|~Œ\=8HHHGFDCBJHDA?<<<====;97433(,0;@@@@AABCCDDDEEGHHIIIJJKLLNNNNNNNNNNPPPPPPPPRRRRRRRRRRRRRRRRTTTTTTTTWWWWWWWWWXXYZZ[[__a`abbbaabefijinmlihihh]qŠ–’–’’’’’’’’••“’’‘ŽvOI`W<;abehlortprsvzƒ‡€€€€€€ˆŒpG:HJIHFDCBBIGC@=<;;<<<<:85313),.$;>@>>@@ABBCCCDDEGGHHHIIJKKLLLLLLLLLOOOOOOOOQQQQQQQQQQQQQQQQSSSSSSSSVVVVVVVVVVWWXYYZ^^^_`aab`acdeghjkihgghkl\rŠ–’Ž–’’’’’’’’””“’’‘vNI^P1.IKPV\`eghihlqz‚†€€€€€€z…~X:=RKIGDCCCDHFB?<;;;;;<;:742/3**, (;>===>@AAABBBCDEEEGGGHIJJJJJJJJJJJLLLLLLLLOOOOOOOOOOOOOOOOQQQQQQQQSSSSSSSSTTTVWXXX]^^_``aa_`acefgigfeefjmq]rŠ–’Ž–’’’’’’’’””“’’‘ŒuOHZJ'"EGKQV[_afdaagqz€€€€€€{Š‡fB7AMJHFCBCFGHFB?;::::;;;9732.3*** ,;><<==>@@AAABBCDDEEEGGHIIJJJJJJJJJLLLLLLLLOOOOOOOOOOOOOOOOQQQQQQQQSSSSSSSSSSTTVWWX]]^__`aa_`acefgiedcdfkos]rŠ–’Ž–’’’’’’’’••“’’‘ŒuMGXE"OQSW[_bdgc^\_isz€€€€€€ŽR48BBIGDBBDGIGDA=;:::::;:9531.3**) -;>AABCCDEEEEGHHIJJHHIJJKLLLLLLLLLLJJJJJJJJOOOOOOOOLLMOOPQQOOPQQRSSVWWXYYZZ]^^_``aaaWen]^mkbfjkgefhavŽ™–‘‘‘‘“““‘’“••–iMR@$KQRW\`fjlWœr'šbŠy|‚ƒ„‡|†uJ19FFDGHJJIHG@@?=<::9?=<;9875(.0&%8;?EJLMOYZ]`abbaaaaaaaaa________]]]]]]]]]]]]]]]][[[[[[[[XXXXXXXXVVVVVVVV!  !##$%%#$$%&&'',,-../1111233455556889::::;<<=>>AABCCDEEEEGHHIJJHHIJJKLLLLLLLLLLJJJJJJJJMMMMMMMMLMMOPPQQOPPQRRSSTVVWXXYY\]]^__``bWdmaak_cgmmjjln_q„Š‡†ŠŠ‹‹Ž‘rQI8&5XY[^afkmo_’d'ƒ–m‚}‚…x\@7@HGFGHIJIHG??=<;::9?=<;9875(./%&8;?EJLMOYZ]`abbaaaaaaaaa________]]]]]]]]]]]]]]]][[[[[[[[XXXXXXXXVVVVVVVV!  !##$%%$$%%&''(,,-../1111233455556889::::;<<=>>AABCCDEEEEGHHIJJHHIJJKLLLLLLLLLLKKKKKKKKLLLLLLLLMMOOPQQRPPQQRSSTSSTTVWWXZZ\\]^^_eWaldhfN[`fgffhlZftzwvy~ƒƒ…ˆŠ‹Ž””’‹‹™tK4.6La`adfilnnnG ,|wy„ƒ}||…`?8AGHJFGHIIHFD==<<;:::=<;:8754(./$'8;?EJLMOYZ]`abbaaaaaaaaa________]]]]]]]]]]]]]]]][[[[[[[[XXXXXXXXVVVVVVVV!  !##$%%%%&&'(((,,-../1111233455556889::::;<<=>>AABCCDEEEEGHHIJJHHIJJKLLLLLLLLLLLLLLLLLLKKKKKKKKOOPPQRRRQQRRSTTTRSSTVVWWYZZ\]]^^gW`kgoe?IOVXXX[_U[cedchnwxy|€‚…†ŽŽŽ”o>AABCCDEEEEGHHIJJHHIJJKLLLLLLLLLLLLLLLLLLLLLLLLLLPPPQRRSSRRRSTTVVSTTVWWXXZ\\]^^__g[cjitf:>DJNMMPTORUTSTY^_`ceilmoyz{}€‚ƒ„‘i4!>io]kllmnooqzK GŠ‡qv€ƒzz…Š†Q<8IOCAMFGHHGDB@9999::::;;:87433(-,!-8;?EJLMOYZ]`abbaaaaaaaaa________]]]]]]]]]]]]]]]][[[[[[[[XXXXXXXXVVVVVVVV!  !##$%%&''(**++,,-../1111233455556889::::;<<=>>AABCCDEEEEGHHIJJHHIJJKLLLLLLLLLLNNNNNNNNOOOOOOOOPQQRSSTTRSSTVVWWVWWXYYZZ]^^_``aaf`iigvl=?DJMKJMPLLKJJKNOIJKMPRSTZ[^aehkl‚`<7Wvtbpoqqsuuw_5P…kyƒv{Š‡v9:BNMDBHGGHGFB@?77889:::;:985432(-* /8;?EJLMOYZ]`abbaaaaaaaaa________]]]]]]]]]]]]]]]][[[[[[[[XXXXXXXXVVVVVVVV!  !##$%%''((*++,,,-../1111233455556889::::;<<=>>AABCCDEEEEGHHIJJHHIJJKLLLLLLLLLLOOOOOOOORRRRRRRRQQRRSTTVSSTTVWWXYYZZ[]]^``aacddeeeokewrGAEKKIHJLJIFFGGEDACCDEFGGGGJLNQRS`PGRbhfdiiklnqqs6&RŒƒmx‚xŠvS4@GFGKH@GGGGDA?<55789::;:9874321(,)!18;?EJLMOYZ]`abbaaaaaaaaa________]]]]]]]]]]]]]]]][[[[[[[[XXXXXXXXVVVVVVVV!  !##$%%''(**+,,,,-../1111233455556889::::;<<=>>AABCCDEEEEGHHIJJHHIJJKLLLLLLLLLLOOOOOOOOSSSSSSSSQQRSSTVVSSTVVWXXZ[[]^^__accdeeffdgrldwwN@DHHECDFJGDEEEB@HHHIIIIJCCDDFFGGAAM``RSa\]_adghi P…‚qw‚€zƒˆf68FF;ARO;GGGGDA=;44578::;:9874321(,)"38;?EJLMOYZ]`abbaaaaaaaaa________]]]]]]]]]]]]]]]][[[[[[[[XXXXXXXXVVVVVVVV !$# %%&&'((***++,--.112234455577899:::;;<>>?>>@@ABBCCCDDEFFHHHIIJKKLJJKKLMMOOOOOOOOOQQQQQQQQQQRRSTTVXXXXXXXXXXYY[\\]]]^^_``baabbceefkfmkfwrI4>JMIEHLHHHHHHHHHHHHHHHHEEEEEEEEGHHHHGHHGHHLPPJF0 Tsnzos„ƒd@.FFFFFFFF=CJJB:31:::::::::9874321+-)$5:???@@@ABCCCDDDEFHHHIIIJKLLLKKKLMOOOOOOOOOOOQQQQQQQQRRRSTVVVXXXXXXXXYYY[\]]]^^^_`bbbbbbceffflfmlhysI4>JMIEHLHHHHHHHHHHHHHHHHEEEEEEEEGHHHHGHHFEGJONHC1 TspuryƒxY=4FFFFFFFF?DIHA942:::::::::9874321+,)$5:>?@@AAABBCDDEEEFFHIIJJJKKLMMOLLMMOPPQQQQQQQQQSSSSSSSSSSTTVWWXZZZZZZZZ[[\\]^^___``bccdcceefgghmhomiztJ4>JMIEHLHHHHHHHHHHHHHHHHFFFFFFFFGHHHHGHHEDDGKJD?5 T~rpnu}gJ<=FFFFFFFF@DHF?843::::::::98753210*,)%7:>>??@AABBBCCDEEFFFHHIJJKKKLLMOOPPMOOPQQRRRRRRRRRRTTTTTTTTTVVWXXYY[[[[[[[[\]]^__```bbcddeeeffghhiiniqok|wM4>JMIEHLHHHHHHHHHHHHHHHHHHHHHHHHGHHHHGHHDBBEIGA;7Q{nnjx€rT<;FFFFFFFFFADFB;545::::::::88743100)+'&8:??@@@AABCCEDDEEFHHIIIJJKLLMMMOOPQQRPPQQRSSTTTTTTTTTWWWWWWWWWWXXYZZ[^^^^^^^^^^__`bbcccddeffggghhijjlqlsql}xN4>JMIEHLHHHHHHHHHHHHHHHHHHHHHHHHGHHHHGHHDBBDHE>97NukkhuycE7?JFFFFFFFFCDC=7348::::::::775320..'*&'9:>?@@AAABBCEEFFEFFHIIJJJKKLMMOOOPPQRRSSQRRSTTVVVVVVVVVVXXXXXXXXXYYZ[[]]_________``bccdddeefggiihiijllmmsmtso€zP4>JMIEHLHHHHHHHHHHHHHHHHIIIIIIIIGHHHHGHHFDCEHE>96 IneglriP<JMIEHLHHHHHHHHHHHHHHHHJJJJJJJJGHHHHGHHIFFGIG?95 Dh_crlW=8DKHFFFFFFFFGD@8104:::::::::54320.-,%'%);:>?@@ABBCCCEEFGGHHHIIJKKLLLMMOPPQQQRRSTTVVSTTVWWXXXXXXXXXXZZZZZZZZZ[[]^^__aaaaaaaabccdeefffggijjkkjllmnnootovuq‚|S4>JMIEHLHHHHHHHHHHHHHHHHJJJJJJJJGHHHHGHHJHGIJH?:4 Ae\`vhK26KPDFFFFFFFFHF?7..5;::::::::54320.-,$'%*;:@@ACCEEFGGHHHIIJKKMLLMMOPPQOOPPQRRSSSTTVWWXXXXXXXXXZZZZZZZZ]]]]]]]]__`aabddaabddeffiiiiiiiikklmmnppoopqqsttrly{q{~d/ACHJLOUWZ^`aaa________]]]]]]]]ZZZZZZZZ[[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTT $23/./44456888999:;<<<===>@AAAEEEFGHHHIIIJKMMMMMMOPQQQPPPQRSSSTTTVWXXXXXXXXXXXZZZZZZZZ]]]]]]]]_``abbddabbdeeffiiiiiiiikllmnnppoppqssttsmy{q{e/=DIGCGGFDDDFF?;510147:98:==:554320.-,',% 17<>ACHJLOSVY]`aaa________]]]]]]]]ZZZZZZZZ[[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTT %341125566899:::;;<==>>>@@ABBCFFGGHIIJJJKKMNNOOOPPQRRSQQRRSTTVVVWWXYYZZZZZZZZZ]]]]]]]]________``aabddebbddeffgjjjjjjjjllmmnppqppqqsttuuny{q|€f.;IMJFHKIIIIIIIIHHHHHHHHHHHHHHHHHHHHHHHHLBHJBLL/2'+T][LD=>FIE@CCDDDFFF:8421379:879<=944321.-,+'+$#27<>ACHJLOSVY]_```________]]]]]]]]ZZZZZZZZ[[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTT&464346889::;;;<<=>>@@@AABCCDDGHHIJJKKKMMNOOPPPQQRSSTTRSSTVVWWWXXYZZ[[[[[[[[[[^^^^^^^^````````aabbdeeeddeefgggkkkkkkkkmmnnpqqqqqsstuuuxoyzq|i.:HMIEFJHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHLBHJBLL// /\ZLDA>CIKFBABCDFFDD5432359;9758<<833320.,++)* %35<>ACHJLORUX\^_``________]]]]]]]]ZZZZZZZZ[[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTT'6966899::;<<===>>@AABBBCCDEEGIIJJKMMNNNOOPQQRRRSSTVVWTTVVWXXYYYZZ[]]^^^^^^^^^````````bbbbbbbbbbbdeeffeeefgghhkkkkkkkknnnpqqrrssstuuvvzryzp|‚k-:HLHDEIHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHLBHJBLL/' <`R>BBCHKLIE@ACFFDBA2233589;8548;;73221.-+**)')45<>ACHJLOQSWZ]___________]]]]]]]]ZZZZZZZZ[[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTT(8;99;:;;<==>>>@@ABBCCCDDEGGHHJKKMNNOOOPPQRRTTSTTVWWXXVWWXYYZZZ[[]^^__________aaaaaaaaddddddddbddeffggeffghhiillllllllnppqrrsssttuvvww|szyp}…m,8FKHCDIFFFFFFFFHHHHHHHHHHHHHHHHHHHHHHHHLBHJBLL/#JYD;BCEHIJIGABFGFB=;233578898547::72210.,+*))&+55<>ACHJLOPRVY]^^^________]]]]]]]]ZZZZZZZZ[[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTT(9<;;=<<<=>@@@AAABCDDDEEEGHIIIMMMNOPPPQQQRTUUUVVVWXYYYXXXYZ[[[]]]^_```aaaaaaaaddddddddffffffffddeefgghffgghiikmmmmmmmmppqqrsstttuuvwwx}tzyo}†p*7EJFCDHEEEEEEEEHHHHHHHHHHHHHHHHHHHHHHHHLBHJBLL/ +RG3CBCDDCCEFBDGHD@:53457777574359:5110.-+*)'*%-74<>ACHJLOPRVY\]]]________]]]]]]]]ZZZZZZZZ[[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTT*:=<<><==>@@AAABBCDDEEEGGHIIJJMNNOPPQQQRRTUUVVVWWXYYZZXYYZ[[]]]^^_``aaaaaaaaaaddddddddffffffffddeffghhffghhikkmmmmmmmmppqrrsttttuvvwxxtzyo}†p*7EJFBDHEEEEEEEEHHHHHHHHHHHHHHHHHHHHHHHHLBHJBLL/ ;T5'LABB@==@DDFHHD?72447887437435995110.-+*)'*%.84<>ACHJLOPQUX\]]]________]]]]]]]]ZZZZZZZZ[[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTT,<>:;@<<>??@AACCDEEGHHHHIJJKLLOOPQQRTTQQRTTUVVVVWXXYZZXXYZZ[]]]]^__`aaddddddddddeffghhhhhhhhhhmmmmmmmmkklmmnookkllmnnorrsttuvvttuwwxyyuxz|~~~|STUSQMHDMLKIGDCBFFGGHHJJEEEEEEEEIHHFEDCCEQTKHMG80^:!;JCCCCCCCCBGJG=3-+33455788-024555410.-+*)'- ,47:<>AEHJLPRVZ^`aa]]]]]]]]]]]]]]]]ZZZZZZZZXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ->>:<@<>>?@@AACDDEGGHHHIIJKKLLOOPQQRTTQRRTUUVVVWWXYYZZXYYZ[[]]]^^_``aadddddddddeefgghhhhhhhhhhmmmmmmmmkllmnnoolllmnooorsstuuvvtuuwxxyywxz|~~||fgiigd`^XWVSRPOMKJIGEDBBFFIJLMOOFGGHHIIIAIKGIOD3!MR4.>ACCCCCCCCCGID<3.,33455788.024554410.-+*)'- ,47:<>AEHJLPRVZ^`aa]]]]]]]]]]]]]]]]ZZZZZZZZXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ->?;>??@AABDDEEGHHIIIJJKLLNOOPQQRTTRRTTUVVWWWXXYZZ[YYZZ[]]^^^__`aabeeeeeeeeeeffghhiiiiiiiiinnnnnnnnllmmnooqmmnnoqqrssttuvvxuuwwxyyzxy{|~~|{vwyzzyvuhgfeca``[YWROKHGFFFFFFDDAABDFHIIABBDLP@+A[:/>BAEHJLOQVY]_``]]]]]]]][[[[[[[[ZZZZZZZZXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ.?@;>B??@@ABBBEEGGHIIIJJKKLNNNOOPQQRTTTTUUVWWWXXYYZ[[[ZZ[[]^^^__``abbbffffffffffgghiiikkkkkkkkoooooooommnnoqqqnooqrrssttuuvxxxwwxxyzzzyz{~~|{zvxxy{|||vvutsrqqqomjfc`_XVRNHC@=ABBBCCCCHB=COM8 KJ!3IACCCCCCCCCDFD?51023345578812355432..-+*'&&)".57:<>AEHJLNPUY]^__]]]]]]]]ZZZZZZZZZZZZZZZZXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ0@@AEHJLLOSX\^^_]]]]]]]]ZZZZZZZZZZZZZZZZXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ1AA>?C@AABCCEEGHHIJJKKKLLNOOPPOOPQQRTTUVVWXXYYYZZ[]]^^[]]^__```aabddeeggggggggghhikkllllllllllqqqqqqqqnooqrrssrsstuuvvuvvxyyzzxyyz{{||{|~~|{yxtsrrsvxz}}||||||zz{|~€€|||||{{{nmjgc`^\]OGNQF5,hP--HI=DCCCCCCCCFC?7.-383345578834554310-,+*'&%$#$177:<>AEHJLLORWZ]^^]]]]]]]]YYYYYYYYZZZZZZZZXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ1AB?@EAABBCEEFHHIIJKKLLLNNOPPQOOPQQRTTVVWWXYY[ZZ[[]^^_]]^^_``aaabbdeefhhhhhhhhhhiikllmmmmmmmmmrrrrrrrrooqqrssttttuvxxxvvxxyzz{yyzz{||~||~~|zxwxwtrsuy{xwwwwxxxvwxz{{|}uvwy{}~~~|zwutsufahh\UXb>/6=IK8CCCCCCCCFC<3,-4;334557884455420.,+*)&%$# %277:<>AEHJLKNRVY\]]]]]]]]]]XXXXXXXXZZZZZZZZXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ1BB?@EAABCCEFFHHIJJKLLLLNOOPQQOOPQQRTTVVWXXY[[ZZ[]]^__]]^__`aaaabddeffhhhhhhhhhhikklmmmmmmmmmmrrrrrrrrooqrrstttuuvxxyyvvxyyz{{yyz{{|~~|~~~|zxuywtrqtvyrrssrtttyyyyyzzzzzzzzzzz~~~Š{ƒvv?%.5-JZ1CCCCCCCCFB;2+,4<334557884555420-,+*)&%$#&377:<>AEHJLKNQVY\]]]]]]]]]]XXXXXXXXZZZZZZZZXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ1CEAAECCEFFGHHHHIJJKLLLLNOOPQQQQRTTUVVVVWXXY[[ZZ[]]^__]]^__`aaaabddeffhhhhhhhhhhikklmmmmnooprrooqrrsttttttttttttuvvxyyyyyyyyyy{{{{{{{{~~~~~~~~yyyyyyyyyyyyyyyy{{{{{{{{xxy{{|}}{{{{{{{{}m€ƒl{†_#*5?FIFEHEDBAABC@91,.2223333333355433211,+*)&%$##08;:<>AEHJLOQSWZ]`a]]]]]]]]ZZZZZZZZZZZZZZZZXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ1CEAAECCEFFGHHHHIJJKLLLLNOOPQQQQRTTUVVVVWXXY[[ZZ[]]^__]]^__`aaaabddeffhhhhhhhhhhikklmmmmnooprrooqrrsttttttttttttuvvxyyyyyyyyyy{{{{{{{{~~~~~~~~xxxxxxxxyyyyyyyy{{{{{{{{yyz{{|}}{{{{{{{{wx|ut„tA'.7AFFECDDCBBBCC<5.,03433333333354432211,+*)&%$#$08;:<>AEHJLOPRVY]_`]]]]]]]]ZZZZZZZZZZZZZZZZXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ1CEAAECCEFFGHHHHIJJKLLLLNOOPQQQQRTTUVVVVWXXY[[ZZ[]]^__]]^__`aaaabddeffhhhhhhhhhhikklmmmmnooprrooqrrsttttttttttttuvvxyyyyyyyyyy{{{{{{{{~~~~~~~~yyyyyyyyyyyyyyyy{{{{{{{{yyz{{|~~{{{{{{{{qƒxl‚„T#.3;ADDBAAABBBCCC72,,14553333333344332110,+*)&%$#%08::<>AEHJLOPRVY\_`]]]]]]]]ZZZZZZZZZZZZZZZZXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ1CEAAECCEFFGHHHHIJJKLLLLNOOPQQQQRTTUVVVVWXXY[[ZZ[]]^__]]^__`aaaabddeffhhhhhhhhhhikklmmmmnooprrooqrrsttttttttttttuvvxyyyyyyyyyy{{{{{{{{~~~~~~~~yyyyyyyyyyyyyyyy{{{{{{{{yyz{{|}}{{{{{{{{t…uuŽk-!58=BCB?>>?ABCCBB2-*,27873333333333221000,+*)&%$#&179:<>AEHJLNOQUX\^_]]]]]]]]ZZZZZZZZZZZZZZZZXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ1CEAAECCEFFGHHHHIJJKLLLLNOOPQQQQRTTUVVVVWXXY[[ZZ[]]^__]]^__`aaaabddeffhhhhhhhhhhikklmmmmnooprrooqrrsttttttttttttuvvxyyyyyyyyyy{{{{{{{{~~~~~~~~xxxxxxxxxxxxxxxx{{{{{{{{xxy{{|}}{{{{{{{{|u„ŠE6:ACCB?>.+),277533333333222100..,+*)&%$#'178:<>AEHJLLNPSWZ]^]]]]]]]]ZZZZZZZZZZZZZZZZXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ1CEAAECCEFFGHHHHIJJKLLLLNOOPQQQQRTTUVVVVWXXY[[ZZ[]]^__]]^__`aaaabddeffhhhhhhhhhhikklmmmmnooprrooqrrsttttttttttttuvvxyyyyyyyyyy{{{{{{{{~~~~~~~~xxxxxxxxyyyyyyyy{{{{{{{{yyz{{|}}{{{{{{{{xx„l*G<>?ABAA?>?CDC?;8,*),3542333333332110..--,+*)&%$#)255:<>AEHJLKLPRVY\]]]]]]]]]ZZZZZZZZZZZZZZZZXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ1CEAAECCEFFGHHHHIJJKLLLLNOOPQQQQRTTUVVVVWXXY[[ZZ[]]^__]]^__`aaaabddeffhhhhhhhhhhikklmmmmnooprrooqrrsttttttttttttuvvxyyyyyyyyyy{{{{{{{{~~~~~~~~xxxxxxxxyyyyyyyy{{{{{{{{yyz{{|}}{{{{{{{{}uzj;&5B=>?ABBBB?BDEB=73,+*-242.333333331100.--,,+*)&%$#*254:<>AEHJLKLORVY\]]]]]]]]]ZZZZZZZZZZZZZZZZXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ1CEAAECCEFFGHHHHIJJKLLLLNOOPQQQQRTTUVVVVWXXY[[ZZ[]]^__]]^__`aaaabddeffhhhhhhhhhhikklmmmmnooprrooqrrsttttttttttttuvvxyyyyyyyyyy{{{{{{{{~~~~~~~~xxxxxxxxyyyyyyyy{{{{{{{{yyz{{|}}{{{{{{{{xw|Q-O5=>>ABCCDBCEEB<4/-++.230,33333333110..-,,,+*)&%$#+254:<>AEHJLJKOQUXZ]]]]]]]]]ZZZZZZZZZZZZZZZZXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ3EGCCGCCDEEGHHJJKLLNOOLLNOOPQQQQRSSTVVVVWXXYZZ]]]]]]]]__`aabddddddddddffghhikkkkkkkkkkmmmmmmmmooqrrsttrrsttuvvvvvvvvvvyyyyyyyyyz|}}|zy{|€€|{~~~~~~~~~~~~~~~~€€|{{z~~~~~~~~‚~tnxˆˆ}~€h9".<;AAAAAAAABGID:0*&1111111155555555110..-,,*)'&$#" &-25879<>CEGJJKNPRUWXZZZZZZZZXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTTQQQQQQQQ3EGCCGCDDEGGHHJJKLLNOOLLNOOPQQQQRSSTVVVVWXXYZZ]]]]]]]]__`aabddddddddddffghhikkkkkkkkkkmmmmmmmmooqrrsttrrsttuvvvvvvvvvvyyyyyyyyyz|}}|zy{|€€|{~~~~~~~~~~~~~~~~€€~~|{{~~~~~~~~|~zu{„‚v„pM/(5=CEGJJKNPRUWXZZZZZZZZXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTTQQQQQQQQ3EGCCGDDEEGHHIJJKLLNOOLLNOOPQQQQRSSTVVVVWXXYZZ]]]]]]]]__`aabddddddddddffghhikkkkkkkkkkmmmmmmmmooqrrsttrrsttuvvvvvvvvvvyyyyyyyyyz|}}|zy{|€€|{~~~~~~~~~~~~~~~~€~~||{~~~~~~~~w‚}}‚~t‚W.&1;==AAAAAAAABDD?5-**111111114444444400..-,,+)'&%#" &-25879<>CEGJJKNPRUWXZZZZZZZZXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTTQQQQQQQQ3EGCCGEEGGHIIIJJKLLNOOLLNOOPQQQQRSSTVVVVWXXYZZ]]]]]]]]__`aabddddddddddffghhikkkkkkkkkkmmmmmmmmooqrrsttrrsttuvvvvvvvvvvyyyyyyyyyz|}}|zy{|€€|{~~~~~~~~~~~~~~~~~~~~~~|~~~~~~~~x‚…~ƒ‚zj>!+<<9?AAAAAAAABCA:1+*,1111111133333333..--,+++''&$# &-25879<>CEGJJKNPRUWXZZZZZZZZXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTTQQQQQQQQ3EGCCGGGGHIIJJJJKLLNOOLLNOOPQQQQRSSTVVVVWXXYZZ]]]]]]]]__`aabddddddddddffghhikkkkkkkkkkmmmmmmmmooqrrsttrrsttuvvvvvvvvvvyyyyyyyyyz|}}|zy{|€€|{~~~~~~~~~~~~~~~~|~~~~~~~~~~~~~~}„ƒ}~…„|I/'9D;7?AAAAAAAABA=5-)+.1111111133333333---,++**&&%#"&-25879<>CEGJJKNPRUWXZZZZZZZZXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTTQQQQQQQQ3EGCCGGHHIJJKKJJKLLNOOLLNOOPQQQQRSSTVVVVWXXYZZ]]]]]]]]__`aabddddddddddffghhikkkkkkkkkkmmmmmmmmooqrrsttrrsttuvvvvvvvvvvyyyyyyyyyz|}}|zy{|€€|{~~~~~~~~~~~~~~~~{||~~€~~~~~~~~‚ƒ|…{h0.5BF?;=AAAAAAAAA@:1)&+01111111122222222-,,+**))&%$# &-25879<>CEGJJKNPRUWXZZZZZZZZXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTTQQQQQQQQ3EGCCGHHIIJKKLJJKLLNOOLLNOOPQQQQRSSTVVVVWXXYZZ]]]]]]]]__`aabddddddddddffghhikkkkkkkkkkmmmmmmmmooqrrsttrrsttuvvvvvvvvvvyyyyyyyyyz|}}|zy{|€€|{~~~~~~~~~~~~~~~~{{|~~€€~~~~~~~~‚}}…‚dC+5<>DJD8AAAAAAAAA?7-%%+21111111111111111,,++*))'%$#"&-25879<>CEGJJKNPRUWXZZZZZZZZXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTTQQQQQQQQ3EGCCGHHIJJKLLJJKLLNOOLLNOOPQQQQRSSTVVVVWXXYZZ]]]]]]]]__`aabddddddddddffghhikkkkkkkkkkmmmmmmmmooqrrsttrrsttuvvvvvvvvvvyyyyyyyyyz|}}|zy{|€€|{~~~~~~~~~~~~~~~~z{{|€€~~~~~~~~~|‰}Q"1=<6@SL5AAAAAAAAA=5+$$+31111111111111111,,+**)''%$#"&-25879<>CEGJJKNPRUWXZZZZZZZZXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTTQQQQQQQQ3EGCCGEEGHHIJJJJKLLNOOOOPQQRSSSSTVVWXXXXYZZ[]]ZZ[]]^____`aabddaabddeffddeffghhhhikklmmkklmmnooooqrrsttttttttttvvvvvvvvyyyyyyyy{{{{{{{{{|€€|{~‚‚~€€~~|{{€€€€€€€€€€€€€€€€nmŽ^.!AAAAAAAAGCABFFC@;1%"&,-,........332110....-,,+**+'$$%#&.25:=79<>CEGJHIKNPRUVXXXXXXXXXXXXXXXXXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQOOOOOOOO3EGCCGEEGHHIJJJJKLLNOOOOPQQRSSSSTVVWXXXXYZZ[]]ZZ[]]^____`aabddaabddeffddeffghhhhikklmmkklmmnooooqrrsttttttttttvvvvvvvvyyyyyyyy{{{{{{{{{|€€|{~‚‚~€€~~|{{€€€€€€€€€€€€€€€€~w}†rF--AAAAAAAADB@BFFC?7.&%*--,........322100...--,++***&$$%#&.259=79<>CEGJHIKNPRUVXXXXXXXXXXXXXXXXXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQOOOOOOOO3EGCCGEEGHHIJJJJKLLNOOOOPQQRSSSSTVVWXXXXYZZ[]]ZZ[]]^____`aabddaabddeffddeffghhhhikklmmkklmmnooooqrrsttttttttttvvvvvvvvyyyyyyyy{{{{{{{{{|€€|{~‚‚~€€~~|{{€€€€€€€€€€€€€€€€p„vK--9AAAAAAAAB@?AFFB=-+)*-0.+........22110..---,,+**)*&##$"'.249<79<>CEGJHIKNPRUVXXXXXXXXXXXXXXXXXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQOOOOOOOO3EGCCGEEGHHIJJJJKLLNOOOOPQQRSSSSTVVWXXXXYZZ[]]ZZ[]]^____`aabddaabddeffddeffghhhhikklmmkklmmnooooqrrsttttttttttvvvvvvvvyyyyyyyy{{{{{{{{{|€€|{~‚‚~€€~~|{{€€€€€€€€€€€€€€€€q`0&4?AAAAAAAA?==ADD@:&'+.11.+........1100.---,,++*))))%###"'.138;79<>CEGJHIKNPRUVXXXXXXXXXXXXXXXXXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQOOOOOOOO3EGCCGEEGHHIJJJJKLLNOOOOPQQRSSSSTVVWXXXXYZZ[]]ZZ[]]^____`aabddaabddeffddeffghhhhikklmmkklmmnooooqrrsttttttttttvvvvvvvvyyyyyyyy{{{{{{{{{|€€|{~‚‚~€€~~|{{€€€€€€€€€€€€€€€€~‹yI)0>>AAAAAAAA?==ACA:4#'-11.-,........000.--,,+++*))'''$""# (.136:79<>CEGJHIKNPRUVXXXXXXXXXXXXXXXXXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQOOOOOOOO3EGCCGEEGHHIJJJJKLLNOOOOPQQRSSSSTVVWXXXXYZZ[]]ZZ[]]^____`aabddaabddeffddeffghhhhikklmmkklmmnooooqrrsttttttttttvvvvvvvvyyyyyyyy{{{{{{{{{|€€|{~‚‚~€€~~|{{€€€€€€€€€€€€€€€€Š|Z6/?D9AAAAAAAA@??AB=4,$*01.++,........0..-,,+++**)''&&&# "(/125979<>CEGJHIKNPRUVXXXXXXXXXXXXXXXXXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQOOOOOOOO3EGCCGEEGHHIJJJJKLLNOOOOPQQRSSSSTVVWXXXXYZZ[]]ZZ[]]^____`aabddaabddeffddeffghhhhikklmmkklmmnooooqrrsttttttttttvvvvvvvvyyyyyyyy{{{{{{{{{|€€|{~‚‚~€€~~|{{€€€€€€€€€€€€€€€€‹h=*5DC7AAAAAAAABAABA:.%)-21+'*-..........--,++***))'&&%&#  */124879<>CEGJHIKNPRUVXXXXXXXXXXXXXXXXXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQOOOOOOOO3EGCCGEEGHHIJJJJKLLNOOOOPQQRSSSSTVVWXXXXYZZ[]]ZZ[]]^____`aabddaabddeffddeffghhhhikklmmkklmmnooooqrrsttttttttttvvvvvvvvyyyyyyyy{{{{{{{{{|€€|{~‚‚~€€~~|{{€€€€€€€€€€€€€€€€†Y.'8C?6AAAAAAAACBBB@8+"+130)%)-..........-,,+****)''&%%%#  */124879<>CEGJHIKNPRUVXXXXXXXXXXXXXXXXXXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQOOOOOOOO5IKGGJHHIJJKMMLLMOOPQQOOPQQRSSQQRSSTVVXXYZZ[]]]]^__`aa__`aabddaabddeffffffffffhhikklmmkklmmnoorrrrrrrrrrsttuvvttuvvxyyvvxyyz{{xxz{{|}}}|{{|}‚€€€€€€€€€€€€€€€€}}€€‚‚y‡‹~{…‹…YB49=88?>>>>>?>>H95AC2# ,--.0011++-//011110//-++**(''&%%###!!$(.35678:=ADEEEJKNPRUWXXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTTQQQQQQQQOOOOOOOO5IKGGJHHIJJKMMLLMOOPQQOOPQQRSSQRRSTTVVXXYZZ[]]]]^__`aa__`aabddaabddeffffffffffhhikklmmkklmmnoorrrrrrrrrrsttuvvttuvvxyyvvxyyz{{xxz{{|}}}|{{|}‚€€€€€€€€€€€€€€€€}}€€‚‚‚‡„y{…„xC84?A:8=>>>>>?>>F;9@<, ++,--.00++--/001100/--++**(''&%%###!!$(.35678:=ADEEEJKNPRUWWXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTTQQQQQQQQOOOOOOOO5IKGGJHHIJJKMMLLMOOPQQOOPQQRSSRRSSTVVWXXYZZ[]]]]^__`aa__`aabddaabddeffffffffffhhikklmmkklmmnoorrrrrrrrrrsttuvvttuvvxyyvvxyyz{{xxz{{|}}}|{{|}‚€€€€€€€€€€€€€€€€}}€€‚‚Œ†{x…u^-.8EC:8=>>>>>?>>C?=<2""))**+,,-+++-//0000//-+++**(''&%%!!! !$(.35678:=ADEEEIJLOQSVWXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTTQQQQQQQQOOOOOOOO5IKGGJHHIJJKMMLLMOOPQQOOPQQRSSSSTTVWWWXXYZZ[]]]]^__`aa__`aabddaabddeffffffffffhhikklmmkklmmnoorrrrrrrrrrsttuvvttuvvxyyvvxyyz{{xxz{{|}}}|{{|}‚€€€€€€€€€€€€€€€€}}€€‚‚x}†aB)3?FA:;?>>>>>?>>AA?5% %%&&'))*++++--////--++++**(''&%%!! !$(.35678:=ADEEEIJKNQSUVXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTTQQQQQQQQOOOOOOOO5IKGGJHHIJJKMMLLMOOPQQOOPQQRSSTTTVWWXXXXYZZ[]]]]^__`aa__`aabddaabddeffffffffffhhikklmmkklmmnoorrrrrrrrrrsttuvvttuvvxyyvvxyyz{{xxz{{|}}}|{{|}‚€€€€€€€€€€€€€€€€}}€€‚‚‡}y„ˆrL+6@EA:9=B>>>>>?>>?A;+ ""#$$%%**+++------+++****(''&%% !$(.35678:=ADEEEHIJLPRSUXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTTQQQQQQQQOOOOOOOO5IKGGJHHIJJKMMLLMOOPQQOOPQQRSSTVVWXXYYXXYZZ[]]]]^__`aa__`aabddaabddeffffffffffhhikklmmkklmmnoorrrrrrrrrrsttuvvttuvvxyyvvxyyz{{xxz{{|}}}|{{|}‚€€€€€€€€€€€€€€€€}}€€‚‚}‡~^<)AGD:5>>>>>?>>??3 ""))**+++--+++**))**(''&%%!$(.35678:=ADEEEGHJLOQSUXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTTQQQQQQQQOOOOOOOO5IKGGJHHIJJKMMLLMOOPQQOOPQQRSSVVWWXYYZXXYZZ[]]]]^__`aa__`aabddaabddeffffffffffhhikklmmkklmmnoorrrrrrrrrrsttuvvttuvvxyyvvxyyz{{xxz{{|}}}|{{|}‚€€€€€€€€€€€€€€€€}}€€‚‚~„‚jF35@D>46AA6>>>>>?>>?;* ())*++++++++*))(**(''&%%!$(.35678:=ADEEEGGIKNPRSXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTTQQQQQQQQOOOOOOOO5IKGGJHHIJJKMMLLMOOPQQOOPQQRSSVVWXXYZZXXYZZ[]]]]^__`aa__`aabddaabddeffffffffffhhikklmmkklmmnoorrrrrrrrrrsttuvvttuvvxyyvvxyyz{{xxz{{|}}}|{{|}‚€€€€€€€€€€€€€€€€}}€€‚‚‚‚†{Z52B9=829GA/>>>>>?>>@9##(()**++++++**)((**(''&%%!$(.35678:=ADEEEEGIKNPRSXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTTQQQQQQQQOOOOOOOO8KNIIMJJKMMNOOLLMOOPQQQQRSSTVVVVWXXYZZXXYZZ[]]]]^__`aaaaaaaaaaddddddddkigffgikhhikklmmkklmmnoooooooooottttttttvvvvvvvvyyyyyyyy{{{{{{{{}}}}}}}}}‚‚}‚‚‚‚‚‚‚‚x|€‚€€‚zˆZ:4?DFD?5)  !%%&(()**((((((((''&%%$## #$&(,046778:=ADEEEEGIKNPRSVTSUYZUQWWXYYZ[[``````````_^^]\\YXXWVVUURRRRPNJIRNJKORQO8KNIIMJJKMMNOOLLMOOPQQQQRSSTVVVVWXXYZZXXYZZ[]]]]^__`aaaaaaaaaaddddddddkigffgikhhikklmmkklmmnoooooooooottttttttvvvvvvvvyyyyyyyy{{{{{{{{}}}}}}}}}‚‚}‚‚‚‚‚‚‚‚‚ƒ‚~ƒƒnI36@C<<<<<<<*! !%%&(()**((((((((''&%%$## ##&(,046778:=ADEEEEGIKNPRSUTSUYYSNYYZZ[]]^ZZZZZZZZ\\[YYXWWVVUTTRQQOPPPOMJHRNJKOQPN8KNIIMJJKMMNOOLLMOOPQQQQRSSTVVVVWXXYZZXXYZZ[]]]]^__`aaaaaaaaaaddddddddkigffgikhhikklmmkklmmnoooooooooottttttttvvvvvvvvzzzzzzzz{{{{{{{{}}}}}}}}}‚‚}‚‚‚‚‚‚‚‚‡†ƒ€ŠvS4.;DC<<<<<<<<><8 !%%&(()**((((((((''&%%$##!#!&(,046778:=ADEEEEGIKNPRSUTSUYVQJQRRSTTVVQQQQQQQQTTTRQPPPPPPONMMMJKMMMJHGQNJKPQOK8KNIIMJJKMMNOOLLMOOPQQQQRSSTVVVVWXXYZZXXYZZ[]]]]^__`aaaaaaaaaaddddddddkigffgikhhikklmmkklmmnoooooooooottttttttvvvvvvvv{{{{{{{{{{{{{{{{}}}}}}}}}‚‚}‚‚‚‚‚‚‚‚Š…€€‚‚€ƒd<+2AC=<<<<<<<<::AB:/% !%%&(()**((((((((''&%%$##!!&(,046778:=ADEEEEGIKNPRSTSTUVQG>66678:::>>>>>>>>CCBBA@@?BAA@??>>BCFHJJIIOMKNPOIC8KNIIMJJKMMNOOLLMOOPQQQQRSSTVVVVWXXYZZXXYZZ[]]]]^__`aaaaaaaaaaddddddddkigffgikhhikklmmkklmmnoooooooooottttttttvvvvvvvv||||||||{{{{{{{{}}}}}}}}}‚‚}‚‚‚‚‚‚‚‚„~{~„…}uR>29DC;6<<<<<<<<<>?DA5% !%%&(()**((((((((''&%%$##! !&(,046778:=ADEEEEGIKNPRSSSTVUNC966678:::;;;;;;;;?>><;;:::::98777@BFHKKMKNMKNPNG@8KNIIMJJKMMNOOLLMOOPQQQQRSSTVVVVWXXYZZXXYZZ[]]]]^__`aaaaaaaaaaddddddddkigffgikhhikklmmkklmmnoooooooooottttttttvvvvvvvv}}}}}}}}{{{{{{{{}}}}}}}}}‚‚}‚‚‚‚‚‚‚‚†€}€…€se>55BE=:><<<<<<<8KNIIMJJKMMNOOLLMOOPQQQQRSSTVVVVWXXYZZXXYZZ[]]]]^__`aaaaaaaaaaddddddddkigffgikhhikklmmkklmmnoooooooooottttttttvvvvvvvv}}}}}}}}{{{{{{{{}}}}}}}}}‚‚}‚‚‚‚‚‚‚‚‹„€ƒ…|hW529EC7:H<<<<<<<EOQTWXWUSMY^ZY\ZQ>0  #(-01=>@CFIKLQRTXYZZY``aabccegghhijjljiihggffbcfimptuxxxyyzz{}}||}€€‚‚ƒ……‚‚ƒ……†‡‡††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŒŒŒŒŒŒŒŒŽŽŽŽŽŽŽŽ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰‡‡‡‡‡‡‡‡‡‡†……ƒ‚‚‚‚‚‚‚‚‚‚€€~~|{{~~|{{zyyyyxwwuttttsrrqppppppppppmmlkkjiiiigffeddddddddddddcbb`__ -.,,.-..,*+28DFJMPQQQQ[a__b[Q)  "&(*,:;<>ACEFIKMQRSRRXXYZZ[]]__`aabddeecbba``XXY[aiptuuvxyzz{}}|||{{{€€‚‚ƒ……‚‚ƒ……†‡‡††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŒŒŒŒŒŒŒŒŽŽŽŽŽŽŽŽ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰‡‡‡‡‡‡‡‡‡‡†……ƒ‚‚‚‚‚‚‚‚‚‚€€~~|{{~~|{{zyyyyxwwuttttsrrqppppppppppmmlkkjiiiigffeddddddddddddcbb`__*+*+-..-*%%*0:AACDHJKLLKQQQRSUUUXXXYZ\\\_^^][[ZZVTRSX`hnppqsuvww|}}~~}|{€€‚‚ƒ……‚‚ƒ……†‡‡††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŒŒŒŒŒŒŒŒŽŽŽŽŽŽŽŽ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰‡‡‡‡‡‡‡‡‡‡†……ƒ‚‚‚‚‚‚‚‚‚‚€€~~|{{~~|{{zyyyyxwwuttttsrrqppppppppppmmlkkjiiiigffeddddddddddddcbb`__')'+.221+%%)-346:>BEHRZ`_a_O; %2468987744444444779:<=>>>@CFGHGGKLLMNNOORTTUVVWWZYYXWWVVZWSQSX^bghjkmoqry{~€€€~€€‚‚ƒ……‚‚ƒ……†‡‡††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŒŒŒŒŒŒŒŒŽŽŽŽŽŽŽŽ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰‡‡‡‡‡‡‡‡‡‡†……ƒ‚‚‚‚‚‚‚‚‚‚€€~~|{{~~|{{zyyyyxwwuttttsrrqppppppppppmmlkkjiiiigffeddddddddddddcbb`__&)',1553-''+0//037& $+79;=>>=<66555544;;<<=>???@CFHHHHJKKMNNOOQRRTUUVVWWVVUTTR\XURQRUV[]^`dfghruz~‚‚~€€‚‚ƒ……‚‚ƒ……†‡‡††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŒŒŒŒŒŒŒŒŽŽŽŽŽŽŽŽ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰‡‡‡‡‡‡‡‡‡‡†……ƒ‚‚‚‚‚‚‚‚‚‚€€~~|{{~~|{{zyyyyxwwuttttsrrqppppppppppmmlkkjiiiigffeddddddddddddcbb`__ '))-3453.))-2/../37<>JQSQRJ/ )/89<>@>>=77777777???AABBB@BEHIJIILLMNNOPPRRSTTUWWVVTTSRRQTTSPONNMQRSWY]^_fkry}}€€‚‚ƒ……‚‚ƒ……†‡‡††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŒŒŒŒŒŒŒŒŽŽŽŽŽŽŽŽ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰‡‡‡‡‡‡‡‡‡‡†……ƒ‚‚‚‚‚‚‚‚‚‚€€~~|{{~~|{{zyyyyxwwuttttsrrqppppppppppmmlkkjiiiigffeddddddddddddcbb`__ ')*04342-))-2/.--05:>=<<<<===>>CCCCDDDDBCGIKKKJMNNOPPQQSTTVWWXXVVTSSRQQLMNONMJHJKNPTWXY]cktz|{z€€‚‚ƒ……‚‚ƒ……†‡‡††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŒŒŒŒŒŒŒŒŽŽŽŽŽŽŽŽ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰‡‡‡‡‡‡‡‡‡‡†……ƒ‚‚‚‚‚‚‚‚‚‚€€~~|{{~~|{{zyyyyxwwuttttsrrqppppppppppmmlkkjiiiigffeddddddddddddcbb`__%37579---...00.-+*+.35BINI9%  '-49==>>>@@@==<<<;;;CCDFFGHHHHIJJKMMMKJJKMOQKLOPQPONRRPOLJIHBBBBBBBBKJIIKOSWRW]afo{„‚||ƒ„ƒ€€‚‚ƒ…………†‡‡ˆ‰‰††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŽŽŽŽŽŽŽŽ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰‡‡†……ƒ‚‚……ƒ‚‚€€‚‚€€~~~~|{{zyyyyxwwuttttsrrqppppppppppmmlkkjiiiigffeddffeddcbbbb`__^]]%35458---.00010-+*+.25?CGA1 !'-48<<==>>>@===<<<<>5% "(-379::;<==>========CCDEEFGGHHIJJKLLLKJJKLOQOPQRRQONMKJGDB@?99999999>=<<>DIMJNQRRU\cmrv|~€}€€‚‚ƒ…………†‡‡ˆ‰‰††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŽŽŽŽŽŽŽŽ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰‡‡†……ƒ‚‚……ƒ‚‚€€‚‚€€~~~~|{{zyyyyxwwuttttsrrqppppppppppmmlkkjiiiigffeddffeddcbbbb`__^]] #02013,-.0123420,++-13895+ #(-165569:;<<<<==>>??CCDEEFGGHHIJJKLLLKJJKLOQPQRRQPNLHGDA=;982222222243336@ABBCCDEEGHHHHIJJKMMMKJJKMOQOPQQPMKIBA>;630/********++*,/5;?FJMMIHJMJR^fltˆ€€‚‚ƒ…………†‡‡ˆ‰‰††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŽŽŽŽŽŽŽŽ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰‡‡†……ƒ‚‚……ƒ‚‚€€‚‚€€~~~~|{{zyyyyxwwuttttsrrqppppppppppmmlkkjiiiigffeddffeddcbbbb`__^]] --++,,-.1358942.+*,.141) &)+/2-./2579:<<=?ABCDCCDFFGHHHHIJJKMMMKJJKMOQLNNNLIGD=<850-)'########%$$&)06:BHLLJIJLDJPSXey‰€€‚‚ƒ…………†‡‡ˆ‰‰††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŽŽŽŽŽŽŽŽ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰‡‡†……ƒ‚‚……ƒ‚‚€€‚‚€€~~~~|{{zyyyyxwwuttttsrrqppppppppppmmlkkjiiiigffeddffeddcbbbb`__^]] ,,))*,,.2479:52.+*+-0.*   !')*.1)+-/3579;<=@BCDECCDEEGHHHHIJJKMMMKJJKMOQJKKJHEBA:740,'#" #'-48FIIILNROE85Ee€€‚‚ƒ…………†‡‡ˆ‰‰††‡‰‰Š‹‹‹‹‹‹‹‹‹‹ŽŽŽŽŽŽŽŽ‹‹‹‹‹‹‹‹‰‰‰‰‰‰‰‰‡‡†……ƒ‚‚……ƒ‚‚€€‚‚€€~~~~|{{zyyyyxwwuttttsrrqppppppppppmmlkkjiiiigffeddffeddcbbbb`__^]] +0,'%)*,-023441.15853.$ "$%%$%&)+/0169<@BCCCDDDCCCBBCCDEEFHHNMJIHIJKKKKID=73'&#! !!""%((7:=BEHIIEAJVK8B[…“}z”„u›……†‡‡ˆ‰‰‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““‹‹‹‹‹‹‹‹ŒŒŠ‰‰ˆ‡‡‰‰ˆ‡‡†……††…„„ƒ‚‚‚‚~}}~~|{{zyyyyxwwuttwwuttsrrppppppppmmlkkjiikkjiigffffeddcbbbbbbbbbb *.+&$)*+,.1231.-15853)!""""$&)+-/57:>ABBBCCCCBBBBCCDDEFFHMKJHHIJKKLLJE>94$#!  !"$&&46:=ACCCDADJI??E}–‚s‹Š|……†‡‡ˆ‰‰‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““‹‹‹‹‹‹‹‹ŒŒŠ‰‰ˆ‡‡‰‰ˆ‡‡†……††…„„ƒ‚‚‚‚~}}~~|{{zyyyyxwwuttwwuttsrrppppppppmmlkkjiikkjiigffffeddcbbbbbbbbbb)+)%#')*+,.00,++05852#  "%()*247;=@@@AAAAABBBBCCDEEFFKJIHHIKMLLLKGA:6#!!#$$./368::::>>=BF=/f’Žq}†……†‡‡ˆ‰‰‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““‹‹‹‹‹‹‹‹ŒŒŠ‰‰ˆ‡‡‰‰ˆ‡‡†……††…„„ƒ‚‚‚‚~}}~~|{{zyyyyxwwuttwwuttsrrppppppppmmlkkjiikkjiigffffeddcbbbbbbbbbb%'%#"&&')*++,))*05840" !#%&.047:<<<=>>@@AAABBBCDDEEJJIHIJMNLNNLIC=:! !!!!!!!!!!"!'),.///.#7=58E>)<˜{xz……†‡‡ˆ‰‰‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““‹‹‹‹‹‹‹‹ŒŒŠ‰‰ˆ‡‡‰‰ˆ‡‡†……††…„„ƒ‚‚‚‚~}}~~|{{zyyyyxwwuttwwuttsrrppppppppmmlkkjiikkjiigffffeddcbbbbbbbbbb"$" $%%%&'''&&*0451+#  !"#+-046797;;<=>@@AAABBCDDDIIHHIKNONNONKE@=! !!!!!!!!"#&'''%%-=40=A7^•Ž{ˆ‘€……†‡‡ˆ‰‰‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““‹‹‹‹‹‹‹‹ŒŒŠ‰‰ˆ‡‡‰‰ˆ‡‡†……††…„„ƒ‚‚‚‚~}}~~|{{zyyyyxwwuttwwuttsrrppppppppmmlkkjiikkjiigffffeddcbbbbbbbbbb ####$$$$&'*042+%   !"')-0344479:;<>@@??AABCCDHHGHIKOPNOPPLHC@#! !"!  %7717AF8z™„‰……†‡‡ˆ‰‰‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““‹‹‹‹‹‹‹‹ŒŒŠ‰‰ˆ‡‡‰‰ˆ‡‡†……††…„„ƒ‚‚‚‚~}}~~|{{zyyyyxwwuttwwuttsrrppppppppmmlkkjiikkjiigffffeddcbbbbbbbbbb""""" ))+030&  ""%&)-0222567:;=>@>??ABBCCGGGHIMOQNPQQOJEB$#!  !!,8:7>K9Q—|‰……†‡‡ˆ‰‰‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““‹‹‹‹‹‹‹‹ŒŒŠ‰‰ˆ‡‡‰‰ˆ‡‡†……††…„„ƒ‚‚‚‚~}}~~|{{zyyyyxwwuttwwuttsrrppppppppmmlkkjiikkjiigffffeddcbbbbbbbbbb"" **,02-#  "#"%(,.0004569;=>@>>?AABCCGGGGIMPQOPQQOKGC'&#! !!"1 !7B:;IY2–{………†‡‡ˆ‰‰‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““‹‹‹‹‹‹‹‹ŒŒŠ‰‰ˆ‡‡‰‰ˆ‡‡†……††…„„ƒ‚‚‚‚~}}~~|{{zyyyyxwwuttwwuttsrrppppppppmmlkkjiikkjiigffffeddcbbbbbbbbbb########*'%)-*   &&')*+..)*-/2578;;;<=>>><=>BEHJKKJIFDBA?C)&  ( - *15:@FR9J¢Ÿz‹‰‰‰‰‰‰‰‰‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““““““““““““““““““ŒŒŒŒŒŒŒŒ‡‡‡‡‡‡‡‡††…„„ƒ‚‚‚‚~}}€€~~|{{{{zyyxwwwwuttsrrppppppppmmlkkjiikkjiigffffeddcbbbbbbbbbb $$$$$$$$-+*,,' #$&')*+-()*.025699::;<<<;<>ADGIJJIHFDCBBS9!   *149?DMC&Aœ„‰‰‰‰‰‰‰‰‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““““““““““““““““““ŒŒŒŒŒŒŒŒ‡‡‡‡‡‡‡‡††…„„ƒ‚‚‚‚~}}€€~~|{{{{zyyxwwwwuttsrrppppppppmmlkkjiikkjiigffffeddcbbbbbbbbbb" "#&&&&&&&&0.--*  !!#$&()*$&(*-/1144566799:;<>ACEGFFEEDDDDXC. !  +)! */36@AAABCCDEEJE=3%:WaP1  )-/28<3PC'IŠ˜‰‰‰‰‰‰‰‰‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““““““““““““““““““ŒŒŒŒŒŒŒŒ‡‡‡‡‡‡‡‡††…„„ƒ‚‚‚‚~}}€€~~|{{{{zyyxwwwwuttsrrppppppppmmlkkjiikkjiigffffeddcbbbbbbbbbb  ###$'''''''')*)$  !"" !#$&&)))+,---023456798:;>ACDE@JQL=+ &g”“b# %)*,14(FH'2u›‰‰‰‰‰‰‰‰‰‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““““““““““““““““““ŒŒŒŒŒŒŒŒ‡‡‡‡‡‡‡‡††…„„ƒ‚‚‚‚~}}€€~~|{{{{zyyxwwwwuttsrrppppppppmmlkkjiikkjiigffffeddcbbbbbbbbbb" "#&&&&&&&&%&& $)-0! $$%&&'((+++,-.//0247A@DBAPaZG ‚±–-  D&CS"#kš‰‰‰‰‰‰‰‰‰‰ŠŒŒŽŽŽŽŽŽŽŽŽŽ““““““““““““““““““““““““““““““““ŒŒŒŒŒŒŒŒ‡‡‡‡‡‡‡‡††…„„ƒ‚‚‚‚~}}€€~~|{{{{zyyxwwwwuttsrrppppppppmmlkkjiikkjiigffffeddcbbbbbbbbbb>(;&#%'! '3=DVVWXXYZZU\_R;$&#"'+ $)/479ABDGJMOPO; * y¡†p!39:;F@%I ‰‡…‰ŽŠ…‰‰Š‹‹Œ““““““““’’’’’’’’””””””””’’’’’’’’’’’’’’’’ŒŒŒŒŒŒŒŒ‰‰‰‰‰‰‰‰††…„„ƒ‚‚‚‚~}}~}}|{{{{zxxwvvttsrrqppppppppppmmlkkjiikkjiigffffeddcbbddcbb`__D/C/'+#&(!!!%-9DKVVWXXYZZPW_cYD+ #(-157=?ADHJMNVK<* 0–¦ŠP2#/69:E@%G™Šˆ†‰ŽŠ…‰‰Š‹‹Œ““““““““’’’’’’’’””””””””’’’’’’’’’’’’’’’’ŒŒŒŒŒŒŒŒ‰‰‰‰‰‰‰‰††…„„ƒ‚‚‚‚~}}~}}|{{{{zxxwvvttsrrqppppppppppmmlkkjiikkjiigffffeddcbbddcbb`__J8N<5:'$ !&*!#$)3@KRVVWXXYZZYX\ejaK9 #% "'*/148:<@CGIJPSTM=$  u±–„($)(367B@'BŒ‰†ˆŽŠ†‰‰Š‹‹Œ““““““““’’’’’’’’””””””””’’’’’’’’’’’’’’’’ŒŒŒŒŒŒŒŒ‰‰‰‰‰‰‰‰††…„„ƒ‚‚‚‚~}}~}}|{{{{zxxwvvttsrrqppppppppppmmlkkjiikkjiigffffeddcbbddcbb`__LHSXP=' @—Š”t!$)#.34>>(<}ŒˆˆŒŒŠˆ‰‰Š‹‹Œ““““““““’’’’’’’’””””””””’’’’’’’’’’’’’’’’ŒŒŒŒŒŒŒŒ‰‰‰‰‰‰‰‰††…„„ƒ‚‚‚‚~}}~}}|{{{{zxxwvvttsrrqppppppppppmmlkkjiikkjiigffffeddcbbddcbb`__K+6l•‰ˆŠŒ‹‰‰‰Š‹‹Œ““““““““’’’’’’’’””””””””’’’’’’’’’’’’’’’’ŒŒŒŒŒŒŒŒ‰‰‰‰‰‰‰‰††…„„ƒ‚‚‚‚~}}~}}|{{{{zxxwvvttsrrqppppppppppmmlkkjiikkjiigffffeddcbbddcbb`__I;VHDJPLG@:521347=CJQUVVWXXYZZLYef]UVZi\L?72+)""""""""%%%%%%%%  !"##!#&,159;=;89>GPV*  e—u™–E  -%--5=,0[˜‘ŠˆŠŒ‹Š‰‰Š‹‹Œ““““““““’’’’’’’’””””””””’’’’’’’’’’’’’’’’ŒŒŒŒŒŒŒŒ‰‰‰‰‰‰‰‰††…„„ƒ‚‚‚‚~}}~}}|{{{{zxxwvvttsrrqppppppppppmmlkkjiikkjiigffffeddcbbddcbb`__J;VHDJOPPNKGB>BCEILPSUVVWXXYZZRX`ec^XUoi^ZUOGA????????FFFFFFFF==<;::98@;8;<5$ !&,158A<514=HPN<"  1–’y–ˆO *!+*2=--Oš“‹ˆ‰‹‹Š‰‰Š‹‹Œ““““““““’’’’’’’’””””””””’’’’’’’’’’’’’’’’ŒŒŒŒŒŒŒŒ‰‰‰‰‰‰‰‰††…„„ƒ‚‚‚‚~}}~}}|{{{{zxxwvvttsrrqppppppppppmmlkkjiikkjiigffffeddcbbddcbb`__KP[K([’{“y¦l1&/%#092)'nƒ†ˆŒŒ‰‰Š‹‹Œ““““““““••••••••””””””””””””””””’’’’’’’’’’’’’’’’’’’’’’’’ŒŒŒŒŒŒŒŒ‰‰‰‰‰‰‰‰††…„„ƒ‚‚„„ƒ‚‚~}}|{{xxwvvuttttrqqpooqqpoonmmmmlkkjiikkjiigffffeddcbbbb`__^]]6LPKJLLLMNNPQQQQRSSUVVVVWXXYZZZZ\]]^^^]]^__`aaddddddddffghhjkkiijkklmmnpkir{mV( #,!%&'.--./2564CSUB'4’Šu€’‡7((&)!pƒŒ†‰ŒŒ‰‰Š‹‹Œ““““““““••••••••””””””””””””””””’’’’’’’’’’’’’’’’’’’’’’’’ŒŒŒŒŒŒŒŒ‰‰‰‰‰‰‰‰††…„„ƒ‚‚„„ƒ‚‚~}}|{{xxwvvuttttrqqpooqqpoonmmmmlkkjiikkjiigffffeddcbbbb`__^]]6LPKJLLLMNNPQQQQRSSUVVVVWXXYZZZZ\]]^^^]]^__`aaddddddddffghhjkkiijkklmmmnjekuwp*6"%&')(((+-0249CQUF'~œ_…| t+4"  t…Š†Š‹‰‰Š‹‹Œ““““““““••••••••””””””””””””””””’’’’’’’’’’’’’’’’’’’’’’’’ŒŒŒŒŒŒŒŒ‰‰‰‰‰‰‰‰††…„„ƒ‚‚„„ƒ‚‚~}}|{{xxwvvuttttrqqpooqqpoonmmmmlkkjiikkjiigffffeddcbbbb`__^]]6LPKJLLLMNNPQQQQRSSUVVVVWXXYZZZZ\]]^^^]]^__`aaddddddddffghhjkkiijkklmmlnnjjpw{W*!&!#%&$$$$%(+-=75APULAM p€t›—@.#!!0Ezˆ‰‡‹‹‰‰Š‹‹Œ““““““““••••••••””””””””””””””””’’’’’’’’’’’’’’’’’’’’’’’’ŒŒŒŒŒŒŒŒ‰‰‰‰‰‰‰‰††…„„ƒ‚‚„„ƒ‚‚~}}|{{xxwvvuttttrqqpooqqpoonmmmmlkkjiikkjiigffffeddcbbbb`__^]]6LPKJLLLMNNPQQQQRSSUVVVVWXXYZZZZ\]]^^^]]^__`aaddddddddffghhjkkiijkklmmlnrsplpux1/* "#  !%')866;ENTU'Žšx{ƒ—{& 3 "!,Os€Šˆ‡ŽŠ‰‰Š‹‹Œ““““““““••••••••””””””””””””””””’’’’’’’’’’’’’’’’’’’’’’’’ŒŒŒŒŒŒŒŒ‰‰‰‰‰‰‰‰††…„„ƒ‚‚„„ƒ‚‚~}}|{{xxwvvuttttrqqpooqqpoonmmmmlkkjiikkjiigffffeddcbbbb`__^]]6LPKJLLLMNNPQQQQRSSUVVVVWXXYZZZZ\]]^^^]]^__`aaddddddddffghhjkkiijkklmmmkqwsjinoy'"%''1>GJGFEAj²y€uˆša5*^‘„‹Œ‡‡Š‰‰Š‹‹Œ““““““““••••••••””””””””””””””””’’’’’’’’’’’’’’’’’’’’’’’’ŒŒŒŒŒŒŒŒ‰‰‰‰‰‰‰‰††…„„ƒ‚‚„„ƒ‚‚~}}|{{xxwvvuttttrqqpooqqpoonmmmmlkkjiikkjiigffffeddcbbbb`__^]]6LPKJLLLMNNPQQQQRSSUVVVVWXXYZZZZ\]]^^^]]^__`aaddddddddffghhjkkiijkklmmpffqsjgnj‰c !%&+=MVTLEQ=D¨†|}““=$$  _›ˆŽ‹†ˆ‘‰‰‰Š‹‹Œ““““““““••••••••””””””””””””””””’’’’’’’’’’’’’’’’’’’’’’’’ŒŒŒŒŒŒŒŒ‰‰‰‰‰‰‰‰††…„„ƒ‚‚„„ƒ‚‚~}}|{{xxwvvuttttrqqpooqqpoonmmmmlkkjiikkjiigffffeddcbbbb`__^]]6LPKJLLLMNNPQQQQRSSUVVVVWXXYZZZZ\]]^^^]]^__`aaddddddddffghhjkkiijkklmmrc^jqkksuq|G !%&$(5J^ge^Vo-“u’{€¬u 30'\žŠ‹…ˆ‘‘‰‰‰Š‹‹Œ““““““““••••••••””””””””””””””””’’’’’’’’’’’’’’’’’’’’’’’’ŒŒŒŒŒŒŒŒ‰‰‰‰‰‰‰‰††…„„ƒ‚‚„„ƒ‚‚~}}|{{xxwvvuttttrqqpooqqpoonmmmmlkkjiikkjiigffffeddcbbbb`__^]]JACE@VN,?—‚yŒ‰{|ŒŒ‹Š”˜‘ˆ††ˆ‰‰Š‹‹‹‹Œ““““““““••••••••””””””””””””””””””””””””’’’’’’’’““““““““‹‹Š‰‰ˆ††‰‰‡††…„„„„ƒ‚‚€~}}|{{xxwvvuttttsrrqpprrqppnmmmmljjihhhhgffeccddddddddbb`__^]]JZLJOOOOQQSSSSSUVVWXXXXYZZ\]]ZZ\]]^____`aacddcccccccchhhhhhhhhhijjkmmmmnoopqqpovtt{I *w†{r€~ryƒ}{ƒŠgQ/-!$)††††††††……†‡‡ˆ‰‰‡‡ˆ‰‰ŠŒŒ‹‹Œ‘’’““““““““••••••••””””””””————————””””””””””””””””““““““““““‘ŽŽŒ‹‹‹‹Š‰‰ˆ††‰‰‡††…„„„„ƒ‚‚€}}|{{yxxxxwvvuttttsrrqppppnmmlkkmmljjihhhhgffeccddddddddbb`__^]]L>ZLJOOOOQQSSSSSUVVWXXXXYZZ\]]ZZ\]]^____`aacddcccccccchhhhhhhhhhijjkmmmmnoopqqpnuss|S&{‡{p€€ux|yx‡‡}s )*#††††††††……†‡‡ˆ‰‰‡‡ˆ‰‰ŠŒŒ‹‹Œ‘’’““““““““••••••••””””””””————————””””””””””””””””““““““““““‘ŽŽŒ‹‹‹‹Š‰‰ˆ††‰‰‡††…„„„„ƒ‚‚€}}|{{yxxxxwvvuttttsrrqppppnmmlkkmmljjihhhhgffeccddddddddbb`__^]]L>ZLJOOOOQQSSSSSUVVWXXXXYZZ\]]ZZ\]]^____`aacddcccccccchhhhhhhhhhijjkmmmmnoopqqpmspp~b ' }Šym…xw|{{|€…ŠŽ4 '$"'…………………………†‡‡ˆ‰‰‡‡ˆ‰‰ŠŒŒ‹‹Œ‘’’““““““““••••••••””””””””————————””””””””””””””””““““““““““‘ŽŽŒ‹‹‹‹Š‰‰ˆ††‰‰‡††…„„„„ƒ‚‚€}}|{{yxxxxwvvuttttsrrqppppnmmlkkmmljjihhhhgffeccddddddddbb`__^]]L>ZLJOOOOQQSSSSSUVVWXXXXYZZ\]]ZZ\]]^____`aacddcccccccchhhhhhhhhhijjkmmmmnoopqqpkrom~sA)x‹{j~‡{w€ƒ„y{ƒ‹j9")=W„„„„„„„„……†‡‡ˆ‰‰‡‡ˆ‰‰ŠŒŒ‹‹Œ‘’’““““““““••••••••””””””””————————””””””””””””””””““““““““““‘ŽŽŒ‹‹‹‹Š‰‰ˆ††‰‰‡††…„„„„ƒ‚‚€}}|{{yxxxxwvvuttttsrrqppppnmmlkkmmljjihhhhgffeccddddddddbb`__^]]L>ZLJOOOOQQSSSSSUVVWXXXXYZZ\]]ZZ\]]^____`aacddcccccccchhhhhhhhhhijjkmmmmnoopqqokrpi{}[ j†~k|‡|w{‚‡ƒyuy€ŠfG?@Icƒ„„„„„„„„……†‡‡ˆ‰‰‡‡ˆ‰‰ŠŒŒ‹‹Œ‘’’““““““““••••••••””””””””————————””””””””””””””””““““““““““‘ŽŽŒ‹‹‹‹Š‰‰ˆ††‰‰‡††…„„„„ƒ‚‚€}}|{{yxxxxwvvuttttsrrqppppnmmlkkmmljjihhhhgffeccddddddddbb`__^]]L>ZLJOOOOQQSSSSSUVVWXXXXYZZ\]]ZZ\]]^____`aacddcccccccchhhhhhhhhhijjkmmmmnoopqqpktsgvlS€ƒnxƒ|yoy‚}z{€†…€wqt‚ƒƒƒƒƒƒƒƒ……†‡‡ˆ‰‰‡‡ˆ‰‰ŠŒŒ‹‹Œ‘’’““““““““••••••••””””””””————————””””””””””””””””““““““““““‘ŽŽŒ‹‹‹‹Š‰‰ˆ††‰‰‡††…„„„„ƒ‚‚€}}|{{yxxxxwvvuttttsrrqppppnmmlkkmmljjihhhhgffeccddddddddbb`__^]]L>ZLJOOOOQQSSSSSUVVWXXXXYZZ\]]ZZ\]]^____`aacddcccccccchhhhhhhhhhijjkmmmmnoopqqplwudotU =x‰ru~{|tx{}}}vŒ“…€ŒŒ~‚‚‚‚‚‚‚‚……†‡‡ˆ‰‰‡‡ˆ‰‰ŠŒŒ‹‹Œ‘’’““““““““••••••••””””””””————————””””””””””””””””““““““““““‘ŽŽŒ‹‹‹‹Š‰‰ˆ††‰‰‡††…„„„„ƒ‚‚€}}|{{yxxxxwvvuttttsrrqppppnmmlkkmmljjihhhhgffeccddddddddbb`__^]]L>ZLJOOOOQQSSSSSUVVWXXXXYZZ\]]ZZ\]]^____`aacddcccccccchhhhhhhhhhijjkmmmmnoopqqplyvbl}v~ !.tŒur{y}{z{|m†‰prŒ‹p‚‚‚‚‚‚‚‚……†‡‡ˆ‰‰‡‡ˆ‰‰ŠŒŒ‹‹Œ‘’’““““““““••••••••””””””””————————””””””””””””””””““““““““““‘ŽŽŒ‹‹‹‹Š‰‰ˆ††‰‰‡††…„„„„ƒ‚‚€}}|{{yxxxxwvvuttttsrrqppppnmmlkkmmljjihhhhgffeccddddddddbb`__^]]L>ZLJPOOPQQRTTSSTVVWXXXXYZZ[]]]]^__`aa__`aacddaabccdffffghhijjhhijjkmmmmnoopqqoopqqrttuP6(![‡€opwt{{|}}~~~€€‚‚…………………………†‡‡ˆ‰‰‰‰ŠŒŒŽŽŒŒŽŽ““““““““••••••••••••••••————————————————””””””””””””””””””””””””Œ‹‹Œ‹‹Š‰‰‰‰ˆ††…„„‚‚~}}}}|{{zxxvvuttsqqqqpoonmmoonmmljjkkjiigffiigffeddddcbb`__bb`__^]]L>ZLJPOOPQQRTTSSTVVWXXXXYZZ[]]]]^__`aa__`aacddaabccdffffghhijjhhijjkmmmmnoopqqoopqqrtt{_- #+^‚}qw|x{{|}}~~~€€‚‚…………………………†‡‡ˆ‰‰‰‰ŠŒŒŽŽŒŒŽŽ““““““““••••••••••••••••————————————————””””””””””””””””””””””””Œ‹‹Œ‹‹Š‰‰‰‰ˆ††…„„‚‚~}}}}|{{zxxvvuttsqqqqpoonmmoonmmljjkkjiigffiigffeddddcbb`__bb`__^]]L>ZLJPOOPQQRTTSSTVVWXXXXYZZ[]]]]^__`aa__`aacddaabccdffffghhijjhhijjkmmmmnoopqqoopqqrttvS&!Bc{xu}€{{{|}}~~~€€‚‚…………………………†‡‡ˆ‰‰‰‰ŠŒŒŽŽŒŒŽŽ““““““““••••••••••••••••————————————————””””””””””””””””””””””””Œ‹‹Œ‹‹Š‰‰‰‰ˆ††…„„‚‚~}}}}|{{zxxvvuttsqqqqpoonmmoonmmljjkkjiigffiigffeddddcbb`__bb`__^]]L>ZLJPOOPQQRTTSSTVVWXXXXYZZ[]]]]^__`aa__`aacddaabccdffffghhijjhhijjkmmmmnoopqqoopqqrtt|†{W96BI^nxuww{{|}}~~~€€‚‚…………………………†‡‡ˆ‰‰‰‰ŠŒŒŽŽŒŒŽŽ““““““““••••••••••••••••————————————————””””””””””””””””””””””””Œ‹‹Œ‹‹Š‰‰‰‰ˆ††…„„‚‚~}}}}|{{zxxvvuttsqqqqpoonmmoonmmljjkkjiigffiigffeddddcbb`__bb`__^]]L>ZLJPOOPQQRTTSSTVVWXXXXYZZ[]]]]^__`aa__`aacddaabccdffffghhijjhhijjkmmmmnoopqqoopqqrttk€Šza\huvyxvx}{r{{|}}~~~€€‚‚…………………………†‡‡ˆ‰‰‰‰ŠŒŒŽŽŒŒŽŽ““““““““••••••••••••••••————————————————””””””””””””””””””””””””Œ‹‹Œ‹‹Š‰‰‰‰ˆ††…„„‚‚~}}}}|{{zxxvvuttsqqqqpoonmmoonmmljjkkjiigffiigffeddddcbb`__bb`__^]]L>ZLJPOOPQQRTTSSTVVWXXXXYZZ[]]]]^__`aa__`aacddaabccdffffghhijjhhijjkmmmmnoopqqoopqqrttcrxt|„}yxxxvq{{|}}~~~€€‚‚…………………………†‡‡ˆ‰‰‰‰ŠŒŒŽŽŒŒŽŽ““““““““••••••••••••••••————————————————””””””””””””””””””””””””Œ‹‹Œ‹‹Š‰‰‰‰ˆ††…„„‚‚~}}}}|{{zxxvvuttsqqqqpoonmmoonmmljjkkjiigffiigffeddddcbb`__bb`__^]]L>ZLJPOOPQQRTTSSTVVWXXXXYZZ[]]]]^__`aa__`aacddaabccdffffghhijjhhijjkmmmmnoopqqoopqqrttroqv{||}|yyyyvvx{{|}}~~~€€‚‚…………………………†‡‡ˆ‰‰‰‰ŠŒŒŽŽŒŒŽŽ““““““““••••••••••••••••————————————————””””””””””””””””””””””””Œ‹‹Œ‹‹Š‰‰‰‰ˆ††…„„‚‚~}}}}|{{zxxvvuttsqqqqpoonmmoonmmljjkkjiigffiigffeddddcbb`__bb`__^]]L>ZLJPOOPQQRTTSSTVVWXXXXYZZ[]]]]^__`aa__`aacddaabccdffffghhijjhhijjkmmmmnoopqqoopqqrttŠvhmz}ysuuw{yvx~{{|}}~~~€€‚‚…………………………†‡‡ˆ‰‰‰‰ŠŒŒŽŽŒŒŽŽ““““““““••••••••••••••••————————————————””””””””””””””””””””””””Œ‹‹Œ‹‹Š‰‰‰‰ˆ††…„„‚‚~}}}}|{{zxxvvuttsqqqqpoonmmoonmmljjkkjiigffiigffeddddcbb`__bb`__^]]6LQNPTOOPQQRTTQQRRSTTVXXYZZ[]]]]^__`aa__`aacddffffffffhhhhhhhhffghhijjjjkmmnooppqrrsttqqrttuvvvvwxxy{{xxy{{|}}~~€€‚‚€€‚‚ƒ……‡‡‡‡‡‡‡‡‡‡ˆ‰‰ŠŒŒŒŒŽŽ‘““”••••••••••——————————————————————————————————————————–””“’’’’’’’’’’’’‘Œ‹‹Š‰‰††…„„ƒ‚‚‚‚~}}{{zxxwvvvvuttsqqqqpoonmmoonmmljjkkjiigffffeddcbbddcbb`__bb`__^]]6LQNPSOOPPQRRTRRSSTVVWXXYYZ[[]]]^^_``a__``accdffffffffhhhhhhhhffghhijjjjkmmnooppqrrsttqqrttuvvvvwxxy{{xxy{{|}}~~€€‚‚€€‚‚ƒ……‡‡‡‡‡‡‡‡‡‡ˆ‰‰ŠŒŒŒŒŽŽ‘““”••••••••••——————————————————————————————————————————–””“’’’’’’’’’’’’‘Œ‹‹Š‰‰††…„„ƒ‚‚‚‚~}}{{zxxwvvvvuttsqqqqpoonmmoonmmljjkkjiigffffeddcbbddcbb`__bb`__^]]6KPMMQNOOPQQRRSTTVWWXXWXXYZZ[[\]]^__``^__`aaccddddddddggggggggffghhijjjjkmmnooppqrrsttqqrttuvvvvwxxy{{xxy{{|}}~~€€‚‚€€‚‚ƒ……‡‡‡‡‡‡‡‡‡‡ˆ‰‰ŠŒŒŒŒŽŽ‘““”••••••••••——————————————————————————————————————————–””“’’’’’’’’’’’’‘Œ‹‹Š‰‰††…„„ƒ‚‚‚‚~}}{{zxxwvvvvuttsqqqqpoonmmoonmmljjkkjiigffffeddcbbddcbb`__bb`__^]]6KNKLPNNNOPPQQTTVVWXXYWWWXYYZZ\\\]^^__^^^_``aaccccccccffffffffffghhijjjjkmmnooppqrrsttqqrttuvvvvwxxy{{xxy{{|}}~~€€‚‚€€‚‚ƒ……‡‡‡‡‡‡‡‡‡‡ˆ‰‰ŠŒŒŒŒŽŽ‘““”••••••••••——————————————————————————————————————————–””“’’’’’’’’’’’’‘Œ‹‹Š‰‰††…„„ƒ‚‚‚‚~}}{{zxxwvvvvuttsqqqqpoonmmoonmmljjkkjiigffffeddcbbddcbb`__bb`__^]]5JMJJMMMNNOPPPSSTTVWWXVVWWXYYYZZ\\]^^^]]^^_```ccccccccffffffffffghhijjjjkmmnooppqrrsttqqrttuvvvvwxxy{{xxy{{|}}~~€€‚‚€€‚‚ƒ……‡‡‡‡‡‡‡‡‡‡ˆ‰‰ŠŒŒŒŒŽŽ‘““”••••••••••——————————————————————————————————————————–””“’’’’’’’’’’’’‘Œ‹‹Š‰‰††…„„ƒ‚‚‚‚~}}{{zxxwvvvvuttsqqqqpoonmmoonmmljjkkjiigffffeddcbbddcbb`__bb`__^]]5JLGGKKKMMNOOPQQRRSTTVTTVVWXXYYYZZ\]]^\\]]^__`bbbbbbbbddddddddffghhijjjjkmmnooppqrrsttqqrttuvvvvwxxy{{xxy{{|}}~~€€‚‚€€‚‚ƒ……‡‡‡‡‡‡‡‡‡‡ˆ‰‰ŠŒŒŒŒŽŽ‘““”••••••••••——————————————————————————————————————————–””“’’’’’’’’’’’’‘Œ‹‹Š‰‰††…„„ƒ‚‚‚‚~}}{{zxxwvvvvuttsqqqqpoonmmoonmmljjkkjiigffffeddcbbddcbb`__bb`__^]]5IKFFIJKKMNNOOMOOPQQRRSTTVWWXXXYYZ\\]]Z\\]^^__aaaaaaaaccccccccffghhijjjjkmmnooppqrrsttqqrttuvvvvwxxy{{xxy{{|}}~~€€‚‚€€‚‚ƒ……‡‡‡‡‡‡‡‡‡‡ˆ‰‰ŠŒŒŒŒŽŽ‘““”••••••••••——————————————————————————————————————————–””“’’’’’’’’’’’’‘Œ‹‹Š‰‰††…„„ƒ‚‚‚‚~}}{{zxxwvvvvuttsqqqqpoonmmoonmmljjkkjiigffffeddcbbddcbb`__bb`__^]]5IKFEIJJKMMNOOLLMMOPPQSSTVVWXXXXYZZ\]]ZZ\]]^__aaaaaaaaccccccccffghhijjjjkmmnooppqrrsttqqrttuvvvvwxxy{{xxy{{|}}~~€€‚‚€€‚‚ƒ……‡‡‡‡‡‡‡‡‡‡ˆ‰‰ŠŒŒŒŒŽŽ‘““”••••••••••——————————————————————————————————————————–””“’’’’’’’’’’’’‘Œ‹‹Š‰‰††…„„ƒ‚‚‚‚~}}{{zxxwvvvvuttsqqqqpoonmmoonmmljjkkjiigffffeddcbbddcbb`__bb`__^]].AB=>BCCDEEFGGHHIJJKLLQRRSTTVVWWWXYZZZ[[[\^___```acdddaccdeefffgghiijjjkkmnnoooqqrssttrsstuuvvvwwxyy{{xyy{||}}~€‚‚€€‚‚ƒ……„„…††‡‰‰…†‰Š‹‹Š‰ŒŒŽŽ““““““““’’“””–——””””””””————————————————————————————————””””””””——•””“’’’’‘ŽŒ‹‹Š‰‰‡‡†……ƒ‚‚€€~~|{{xxwvvuttttsqqpoooonmmljjmmljjihhiigffeddffeddcbbbb`__^]]]]]]]]]].AB>>CCCDEEFGGHHIJJKLLPPQQRSSTTTTUWXXXYYYZ[\\\]^^_``aa`aacddeedffghhiiijjkmmnnnooqrrssrrrstuuuvvvwxyyyxxxy{|||~~~€€€‚ƒƒ…„„……†‡‡‰„…‡Š‹‹Š‰ŒŒŽ““““““““’’““”––—””””””””————————————————————————————————””””””””——•””“’’’’‘ŽŒ‹‹Š‰‰‡‡†……ƒ‚‚€€~~|{{xxwvvuttttsqqpoooonmmljjmmljjihhiigffeddffeddcbbbb`__^]]]]]]]]]]/BC>@CCCDEEFGGHHIJJKLLLMMOPPQQQQQRSSTTUUUWXXYYYYZZ\]]]___`accccccdfggghhhijkkkmmmnoqqqoqqrsstttuuvwwxxvwwxyy{{{||~€€€€‚‚ƒƒƒ„„…††‡‡„…‡‰ŠŠ‰‡ŠŒŒŽŽ‘‘‘‘‘‘‘‘‘’’“””––””””””””————————————————————————————————””””””””——•””“’’’’‘ŽŒ‹‹Š‰‰‡‡†……ƒ‚‚€€~~|{{xxwvvuttttsqqpoooonmmljjmmljjihhiigffeddffeddcbbbb`__^]]]]]]]]]]1BD@ADCCDEEFGGHHIJJKLLJKKLMMOOMMMNPQQQRRRSTUUUUUVWWXYY\]]^__```aabccdddffghhiijkklmmnnnnooqrrsrrttuvvwuuvvwxxyzz{{|~~€‚‚ƒƒƒ„……††ƒ„†‰‰‰‡‡ŠŠŠŒŽŽ‘‘‘’““””””””””””————————————————————————————————””””””””——•””“’’’’‘ŽŒ‹‹Š‰‰‡‡†……ƒ‚‚€€~~|{{xxwvvuttttsqqpoooonmmljjmmljjihhiigffeddffeddcbbbb`__^]]]]]]]]]]1CDABECCDEEFGGHHIJJKLLIJJKLLMMKKLMMNPPPPQRRSTTRRRSUVVVYYZZ\]]^^^__`aabbbccdffggghhjkkllmmnooqqpqqrttuurttuvvwwxyyz{{||~~€‚‚ƒƒ„………‚ƒ…‡‰‡‡†‰‰ŠŠŒ‘‘’“““””””””””————————————————————————————————””””””””——•””“’’’’‘ŽŒ‹‹Š‰‰‡‡†……ƒ‚‚€€~~|{{xxwvvuttttsqqpoooonmmljjmmljjihhiigffeddffeddcbbbb`__^]]]]]]]]]]2DEBBGCCDEEFGGHHIJJKLLJJKKLMMOKKLLMNNPPPQQRSSTQQQRSUUUWWWXYZZZ[[[\^___```abccceeefghhhkkllmnnoooppqrrtqqrrtuuvwwxxyzz{||~~€€€€‚‚ƒ„„…€ƒ„†‡‡†…ˆˆ‰‰ŠŒŒ‘’’“””””””””————————————————————————————————””””””””——•””“’’’’‘ŽŒ‹‹Š‰‰‡‡†……ƒ‚‚€€~~|{{xxwvvuttttsqqpoooonmmljjmmljjihhiigffeddffeddcbbbb`__^]]]]]]]]]]3DGBCGCCDEEFGGHHIJJKLLKLLMOOPPLLLMNNPPQQQRSSTTQQRRSUUVUUVVWXXYYYZZ[\\^^^__`aabccddeffgjjjklmmmnnnopqqqpppqrtttuuuwxyyy{||~€€€€‚ƒƒ„„€‚„…††……‡ˆˆ‰ŠŠŒŒŽŽŽŽŽŽŽŽ‘‘’’””””””””————————————————————————————————””””””””——•””“’’’’‘ŽŒ‹‹Š‰‰‡‡†……ƒ‚‚€€~~|{{xxwvvuttttsqqpoooonmmljjmmljjihhiigffeddffeddcbbbb`__^]]]]]]]]]]3EGCCHCCDEEFGGHHIJJKLLLMMOPPQQLMMNPPQQQRRSTTUUQQRSSUVVSSUUVWWXXXYYZ[[\\\^^_``aaaccdeefhhjjkllmmmnnoppqooppqrrtttuuwxxy{{|~~€€€‚‚ƒ„„‚„…††…„‡‡ˆ‰‰ŠŒŒŽŽŽŽŽŽŽŽ‘’’””””””””————————————————————————————————””””””””——•””“’’’’‘ŽŒ‹‹Š‰‰‡‡†……ƒ‚‚€€~~|{{xxwvvuttttsqqpoooonmmljjmmljjihhiigffeddffeddcbbbb`__^]]]]]]]]]]4GICCEEEFGGIJJJJJJJJJJLLMOOPQQOOPQQRSSSSSSSSSSUUUUUUUUUUWXXYZZXXYZZ\]]________aaaaaaaaaabcceffffghhjkkmnnoqqrrrsstuuvvwwwyz{{{|||}~ƒƒƒ„…†††…††‡ˆˆ‰‰‰ŠŠŒŽŽ‘‘’’’““”––——””””””””””””””””————————————————””””””””””””””””’’’’’’’’ŽŒ‹‹‡‡†……ƒ‚‚€€~~|{{xxwvvuttttsqqpoommljjihhjjihhgffiigffeddbbbbbbbbbb`__^]]__^]]\[[4GICCEEEFGGIJJJJJJJJJJLLMOOPQQOOPQQRSSSSSSSSSSUUUUUUUUUUWXXYZZXXYZZ\]]________aaaaaaaaaabcceffffghhjkkllmmnooqpprrsttuuuuvwyyyyyy{|}}}€€‚ƒƒ„„ƒ……†‡‡ˆˆˆ‰‰ŠŒŒŒ‘‘‘’’“””––””””””””””””””””————————————————””””””””””””””””’’’’’’’’ŽŽŒŒ‹‹‡††…ƒƒ‚‚€~||{{xwwvuutttssqppoommljjihhjjihhgffiigffeddbbbbbbbbbb`__^]]__^]]\[[4GICCEEEFGGIJJJJJJJJJJLLMOOPQQOOPQQRSSSSSSSSSSUUUUUUUUUUWXXYZZXXYZZ\]]________aaaaaaaaaabcceffffghhjkkhjjkllmmmnnopprrrrrsttuuvvvwxxyy||}}~‚‚‚ƒ…†††‡‡‡ˆ‰ŠŠŠ‹‹‹Œ‘’“““’’’’’’’’’’’’’’’’””””””””””””””””““““““““““““““““‘‘‘‘‘‘‘‘ŽŽŒ‹‹Š††……ƒ‚‚~~|{{zwwvvuttsssqqpoonmmljjihhjjihhgffiigffeddbbbbbbbbbb`__^]]__^]]\[[4GICCEEEFGGIJJJJJJJJJJLLMOOPQQOOPQQRSSSSSSSSSSUUUUUUUUUUWXXYZZXXYZZ\]]________aaaaaaaaaabcceffffghhjkkfgghjjkkkllmnnoonnnoprrrrrrtuvvvwwxyy{||€€‚‚ƒƒƒ……†‡‡ˆˆˆ‰‰Š‹‹ŒŒŒ‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘““““““““““““““““’’’’’’’’’’’’’’’’ŒŒ‹ŠŠŠ……ƒƒ‚~~||{zzzvvuutsssqqpponnnmmljjihhjjihhgffiigffeddbbbbbbbbbb`__^]]__^]]\[[4GICCEEEFGGIJJJJJJJJJJLLMOOPQQOOPQQRSSSSSSSSSSUUUUUUUUUUWXXYZZXXYZZ\]]________aaaaaaaaaabcceffffghhjkkeffghhjjikklmmnnllmnnoppppqrrtuuuuuvwxxx||~~€€‚‚ƒ……†……††ˆ‰‰ŠŠŠ‹‹ŒŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽ‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘’’’’’’’’’’’’’’’’ŒŒŒ‹ŠŠ‰‰ƒƒƒ‚€€|||{zzyyuuutssqqppponnmmmmljjihhjjihhgffiigffeddbbbbbbbbbb`__^]]__^]]\[[4GICCEEEFGGIJJJJJJJJJJLLMOOPQQOOPQQRSSSSSSSSSSUUUUUUUUUUWXXYZZXXYZZ\]]________aaaaaaaaaabcceffffghhjkkffgghjjkkkllmnnollmmnoopppqqrttutttuvwwwzzz{|~~~€‚‚‚ƒƒƒ„…†††ˆˆˆ‰Š‹‹‹‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘ŽŽŽŽŽŽŽŽŒ‹‹Š‰‰‡‡ƒ‚‚€€|{{zyyxxuttsqqpppoonmmllmmljjihhjjihhgffiigffeddbbbbbbbbbb`__^]]__^]]\[[4GICCEEEFGGIJJJJJJJJJJLLMOOPQQOOPQQRSSSSSSSSSSUUUUUUUUUUWXXYZZXXYZZ\]]________aaaaaaaaaabcceffffghhjkkghhjkklllmmnooppmmmnooppqqqrttuuttuuvwwxxxyyz{{|||~~€€‚‚ƒ„„………††ˆ‰‰Š‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹ŠŠ‰‡‡†‚‚€~{{zzyxxwttssqppooonnmlljmmljjihhjjihhgffiigffeddbbbbbbbbbb`__^]]__^]]\[[4GICCEEEFGGIJJJJJJJJJJLLMOOPQQOOPQQRSSSSSSSSSSUUUUUUUUUUWXXYZZXXYZZ\]]________aaaaaaaaaabcceffffghhjkkhjjkllmmmnnopprrmnnopprrqrrtuuvvttuvvwxxwwxxyzz{{{||~€‚ƒƒ„„„……†ˆˆ‰‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹‹Š‰‰‡††‚‚€€~~{{zyyxwwttsqqpoooonmmljjmmljjihhjjihhgffiigffeddbbbbbbbbbb`__^]]__^]]\[[4FICCEEEFHHIJJJJKLLMNNLLMNNPQQOOPQQRSSSSUVVWXXXXXXXXXXZZZZZZZZ\\\\\\\\__________`aabccffffffffffghhijjhhijjlmmjjlmmnoooopqqsttttttttttttuvvwxxxxz{{|}}}}}}~~}}z}~}z{€„wwz{}€‚„„„ƒƒ‚‚‚†‡‡‡‡†††‡‡‡‡‡‡‡‡‰‰‰‰‰‰‰‰ŽŽŽŽŽŽŽŽ‰‰‰‰‰‰‰‰†‡‡Š‚‚‚‚}{{wuvx{{zttsqqpoooooooooojjjjjjjjjjihhgffffeddcbbbbbbbbbbbb`__^]]]]\[[YXX4FICCEEEFHHIJJJJKLLMNNLLMNNPQQOOPQQRSSSSUVVWXXXXXXXXXXZZZZZZZZ\\\\\\\\__________`aabccffffffffffghhijjhhijjlmmjjlmmnoooopqqsttttttttttttuvvwxxxxz{{|}}}~}}~}~}~‚ƒ‚€€„ˆ„„„ƒ‚€}~~€ƒ„††††…†……†………………………††††††††‹‹‹‹‹‹‹‹ŒŒŒŒŒŒŒŒ‰‰‰‰‰‰‰‰…‹Šƒ…‹‰~}}}}{wuszwtstuvutssqppoooooooooojjjjjjjjjjihhgffffeddcbbbbbbbbbbbb`__^]]]]\[[YXX4FICCEEEFHHIJJJJKLLMNNLLMNNPQQOOPQQRSSSSUVVWXXXXXXXXXXZZZZZZZZ\\\\\\\\__________`aabccffffffffffghhijjhhijjlmmjjlmmnoooopqqsttttttttttttuvvwxxxxz{{|}}}}}}}}}}uy|{yy|€€€€{{|}€‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚ƒƒƒƒƒƒƒƒ‡‡‡‡‡‡‡‡ŠŠŠŠŠŠŠŠ‰‰‰‰‰‰‰‰†‰…ƒ‹‡}}zwuzwuqpopqssqqpoonnnnnnnnnjjjjjjjjjjihhgffffeddcbbbbbbbbbbbb`__^]]]]\[[YXX4FICCEEEFHHIJJJJKLLMNNLLMNNPQQOOPQQRSSSSUVVWXXXXXXXXXXZZZZZZZZ\\\\\\\\__________`aabccffffffffffghhijjhhijjlmmjjlmmnoooopqqsttttttttttttuvvwxxxxz{{|}}}}}}}}}}…‰‰†…ˆŠwyz}€‚„…ˆ‡‡†„ƒ‚‚€€€€€€€€€€€€€ƒƒƒƒƒƒƒƒ††††††††††††††††‡‰„~ƒ‹…x~‚‚~uvvtomnpqqpponnnmmmmmmmmjjjjjjjjjjihhgffffeddcbbbbbbbbbbbb`__^]]]]\[[YXX4FICCEEEFHHIJJJJKLLMNNLLMNNPQQOOPQQRSSSSUVVWXXXXXXXXXXZZZZZZZZ\\\\\\\\__________`aabccffffffffffghhijjhhijjlmmjjlmmnoooopqqsttttttttttttuvvwxxxxz{{|}}}}}}}}}}v|‚€}~|}~€‚ƒ„…ˆˆˆ‡‡‡……~~~‚‚‚‚‚‚‚‚ƒƒƒƒƒƒƒƒ‰‡ƒ~„‰~mgimptuuujqwxsoopppponnmmmmmmmmmmjjjjjjjjjjihhgffffeddcbbbbbbbbbbbb`__^]]]]\[[YXX4FICCEEEFHHIJJJJKLLMNNLLMNNPQQOOPQQRSSSSUVVWXXXXXXXXXXZZZZZZZZ\\\\\\\\__________`aabccffffffffffghhijjhhijjlmmjjlmmnoooopqqsttttttttttttuvvwxxxxz{{|}}~}~}}~}}Ž•›™——˜Ž‹ˆ„}{||}}~€€€€€€€€€€€€~~~~~~~~}}}}}}}}ƒƒ~|‚ƒpYIKOSWXYYWetzvpnppoonmmlllllllllljjjjjjjjjjihhgffffeddcbbbbbbbbbbbb`__^]]]]\[[YXX4FICCEEEFHHIJJJJKLLMNNLLMNNPQQOOPQQRSSSSUVVWXXXXXXXXXXZZZZZZZZ\\\\\\\\__________`aabccffffffffffghhijjhhijjlmmjjlmmnoooopqqsttttttttttttuvvwxxxxz{{|}}}~}~}}~}ÓÚáãáÜÜܹ¸³®©¤ žš™–’ŽŠˆ…€||||||||xxxxxxxxy{xw|x_B?ACEEEDD?Slxvnlloonnmlljjjjjjjjjjjjjjjjjjjihhgffffeddcbbbbbbbbbbbb`__^]]]]\[[YXX4FICCEEEFHHIJJJJKLLMNNLLMNNPQQOOPQQRSSSSUVVWXXXXXXXXXXZZZZZZZZ\\\\\\\\__________`aabccffffffffffghhijjhhijjlmmjjlmmnoooopqqsttttttttttttuvvwxxxxz{{|}}}}}}~}}}ÎÕÝßÝØ××ëêçäâÞÜÛÜ×Ïø­¥ ‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚€€€€€€€€{{{{{{{{uuuuuuuurtrrvpS1HIIIFDB?/Hfvumhhoonmmljjjjjjjjjjjjjjjjjjjjihhgffffeddcbbbbbbbbbbbb`__^]]]]\[[YXX6IKEEHEEFHHIJJLLLLLLLLOOOOOOOOSSSSSSSSVVVVVVVVXXXXXXXX[[[[[[[[ZZ[\\^____`aabccccccccccffffffffffghhijjmmmmmmmmmmnoopqqqqsttuvvvvvvvvvvxxxxxxxx{{{{{{{{‡yhfx™¼ÑÓÓÓÓÒÒÒÑÒÒÔÕØÚÜÜËææÏÕðæÀG{Œ€‚‚}‡‚‚‚‚‚‚‚‚€€€€€€€€}}}}}}}}}}|{{zyyh‰{l~h<9DGIIHIOU'|~r`snmmmmmmmmmmmmmmmmhhhhhhhhffffffffffeddcbb__________^]]\[[[[[[[[[[6IKEEHEEFHHIJJLLLLLLLLOOOOOOOOSSSSSSSSVVVVVVVVXXXXXXXX[[[[[[[[ZZ[\\^____`aabccccccccccffffffffffghhijjmmmmmmmmmmnoopqqqqsttuvvvvvvvvvvxxxxxxxx{{{{{{{{{vt{­ÉÙ××××ÖÖÖÖÖ××ÙÚÜÝÝ×ÝÕÌÚåÁŠI|Œ€‚ƒ‡‚‚‚‚‚‚‚‚€€€€€€€€}}}}}}}}}}|{{zyyvzv{vQ9EDGIIGIOT sxqbtmmmmmmmmmmmmmmmmmhhhhhhhhffffffffffeddcbb__________^]]\[[[[[[[[[[6IKEEHEEFHHIJJLLLLLLLLOOOOOOOOSSSSSSSSVVVVVVVVXXXXXXXX[[[[[[[[ZZ[\\^____`aabccccccccccffffffffffghhijjmmmmmmmmmmnoopqqqqsttuvvvvvvvvvvxxxxxxxx{{{{{{{{nw‡›²Ç×ßÚÚÚÚÚÚÚÚ×ØØØØÙÙÙáÖËÏÚÉŠJN}‹ƒ„~…‚‚‚‚‚‚‚‚€€€€€€€€€€€€€€€€}}}}}}}}}}|{{zyy„kv‡c9;PDGIHGHMRfrqctlllllllllllllllllhhhhhhhhffffffffffeddcbb__________^]]\[[[[[[[[[[6IKEEHEEFHHIJJLLLLLLLLOOOOOOOOSSSSSSSSVVVVVVVVXXXXXXXX[[[[[[[[ZZ[\\^____`aabccccccccccffffffffffghhijjmmmmmmmmmmnoopqqqqsttuvvvvvvvvvvxxxxxxxx{{{z{{{{i|š¸ËÖÙÛÙÙÙÚÚÜÜÜ×××ÖÖÕÕÕßØÖØË[)R€Š}ƒ……‚‚‚‚‚‚‚‚€€€€€€€€}}}}}}}}}}|{{zyy„j|~D/IODHIHFFKP`pretijjjjjjjjjjjjjjjjhhhhhhhhffffffffffeddcbb__________^]]\[[[[[[[[[[6IKEEHEEFHHIJJLLLLLLLLOOOOOOOOSSSSSSSSVVVVVVVVXXXXXXXX[[[[[[[[ZZ[\\^____`aabccccccccccffffffffffghhijjmmmmmmmmmmnoopqqqqsttuvvvvvvvvvvxxxxxxxx{{{z{{{{l„¨ÄÑÒÏÌÑÑÒÓÔÖÖ×ØØØ×××ÖÖÑÝçÖ¨qD0X‚‰{ƒˆ„‚‚‚‚‚‚‚‚€€€€€€€€€€€€€€€€}}}}}}}}}}|{{zyy{ud-9XDFHIGDDIN_nsgtfjjjjjjjjjjjjjjjjhhhhhhhhffffffffffeddcbb__________^]]\[[[[[[[[[[6IKEEHEEFHHIJJLLLLLLLLOOOOOOOOSSSSSSSSVVVVVVVVXXXXXXXX[[[[[[[[ZZ[\\^____`aabccccccccccffffffffffghhijjmmmmmmmmmmnoopqqqqsttuvvvvvvvvvvxxxxxxxx{{{{{{{{q‰¨¾ÃÁ½¼ÃÅÆÇÈÊÌÌÕÕÖÖÖÖ××ÄÝà¶~WIE]„‰z…‰ƒ‚‚‚‚‚‚‚‚€€€€€€€€}}}}}}}}}}|{{zyyu~uH,GX>FHIGCCGK]krgufiiiiiiiiiiiiiiiihhhhhhhhffffffffffeddcbb__________^]]\[[[[[[[[[[6IKEEHEEFHHIJJLLLLLLLLOOOOOOOOSSSSSSSSVVVVVVVVXXXXXXXX[[[[[[[[ZZ[\\^____`aabccccccccccffffffffffghhijjmmmmmmmmmmnoopqqqqsttuvvvvvvvvvvxxxxxxxx{{{{{{{{u‰ ­­«­±µµ¶¹»¼¾¾ÃÄÅÆÈÉÊËÀмYUYQ`…ˆy…Š‚ƒ‚‚‚‚‚‚‚‚€€€€€€€€€€€€€€€€}}}}}}}}}}|{{zyy{|Y9ANIEFHIFBAFJVdnixjhhhhhhhhhhhhhhhhhhhhhhhhffffffffffeddcbb__________^]]\[[[[[[[[[[6IKEEHEEFHHIJJLLLLLLLLOOOOOOOOSSSSSSSSVVVVVVVVXXXXXXXX[[[[[[[[ZZ[\\^____`aabccccccccccffffffffffghhijjmmmmmmmmmmnoopqqqqsttuvvvvvvvvvvxxxxxxxx{{{{{{{{u†—Ÿ¤­«¬®¯²´µ¶±±³´¶¹º»ÂÙZF]fRc‡ˆy…‹‚ƒ‚‚‚‚‚‚‚‚€€€€€€€€€€€€€€€€}}}}}}}}}}|{{zyyƒvC4UN9OFHIFBADIO^kgzmhhhhhhhhhhhhhhhhhhhhhhhhffffffffffeddcbb__________^]]\[[[[[[[[[[6IKEEHHHIJJKLLJJKLLMOOOOOOOOOOSSSSSSSSUUUUUUUUXXXXXXXXXXYZZ[\\]]^__`aaaaaaaaaaddddddddddeffghhkkkkkkkkmmmmmmmmmmnooprrttttttttvvvvvvvvyyyyyyyy}}}}}}~}z‚—™šž ¤¤¤¥¦§§§­¬¬«ªª©©ª¥vP`kWIeŠ‹z‚‡‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚€€€€€€€€€€}}|{{~~|{€T5?JDCNHDCDGEA;@allmnkkkkkkkkkkkkkkkkffffffffffffffffbbbbbbbb________\\\\\\\\\\[ZZYXX6IKEEHHHIJJKLLJJKLLMOOOOOOOOOOSSSSSSSSUUUUUUUUXXXXXXXXXXYZZ[\\]]^__`aaaaaaaaaaddddddddddeffghhkkkkkkkkmmmmmmmmmmnooprrttttttttvvvvvvvvyyyyyyyy}}}}}}~}zƒ•™šŸ ¡¡¢¤¤¥¥ªª¨§§¦¥¥¤žnK[gTFeŠ‹z‚‡‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚€€€€€€€€€€}}|{{~{|€|pM9CKDCNHDCCED@;@`lllnkkkkkkkkkkkkkkkkffffffffffffffffbbbbbbbb________\\\\\\\\\\[ZZYXX6IKEEHHHIJJKLLJJKLLMOOOOOOOOOOSSSSSSSSUUUUUUUUXXXXXXXXXXYZZ[\\]]^__`aaaaaaaaaaddddddddddeffghhkkkkkkkkmmmmmmmmmmnooprrttttttttvvvvvvvvyyyyyyyy||||||||zƒ•˜™œžžŸ   ¥¤¤¢¡¡  š•fDVcQEeŠ‹z‚‡‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚€€€€€€€€€€}}|{{{yz{VC=JNCBMHDBCEC>9>^jjknjjjjjjjjjjjjjjjjffffffffeeeeeeeebbbbbbbb________\\\\\\\\\\[ZZYXX6IKEEHHHIJJKLLJJKLLMOOOOOOOOOOSSSSSSSSUUUUUUUUXXXXXXXXXXYZZ[\\]]^__`aaaaaaaaaaddddddddddeffghhkkkkkkkkmmmmmmmmmmnooprrttttttttvvvvvvvvyyyyyyyy{{{{{{{{zƒ”——™›˜˜™››œŸŸžžœœ›•cBUcREeŠ‹z‚‡‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚€€€€€€€€€€}}|{{zwz€{t@]ggjmhhhhhhhhhhhhhhhhffffffffddddddddbbbbbbbb________\\\\\\\\\\[ZZYXX6IKEEHHHIJJKLLJJKLLMOOOOOOOOOOSSSSSSSSUUUUUUUUXXXXXXXXXXYZZ[\\]]^__`aaaaaaaaaaddddddddddeffghhkkkkkkkkmmmmmmmmmmnooprrttttttttvvvvvvvvyyyyyyyy{{{{{{{{zƒ”––—™–––—˜™™™››š™™˜——•bCVeUHeŠ‹z‚‡‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚€€€€€€€€€€}}|{{€zwz€|pd7;GPNDCIIEBBC@:4=Zdehlhhhhhhhhhhhhhhhhffffffffddddddddbbbbbbbb________\\\\\\\\\\[ZZYXX6IKEEHHHIJJKLLJJKLLMOOOOOOOOOOSSSSSSSSUUUUUUUUXXXXXXXXXXYZZ[\\]]^__`aaaaaaaaaaddddddddddeffghhkkkkkkkkmmmmmmmmmmnooprrttttttttvvvvvvvvyyyyyyyyzzzzzzzz{ƒ“••––•••–—˜˜˜™™˜˜—––•–‘dCWfUHeŠ‹z‚‡‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚€€€€€€€€€€}}|{{€zx|€w`M72&>VZ\enffffffffffffffffddddddddddddddddaaaaaaaa________\\\\\\\\ZZZZZZZZ5GIDEIHHHHHHHHJJJJJJJJLLMMOPPQNNPPQRRSSSTTUWWXUUWWXYYZXXYZZ[\\ZZ[]]^____`aabddaabddeffffghhikkkkkkkkkkmmmmmmmmrrrrrrrrttttttttvvvvvvvvvvwyyz{{{{{{{{{{x€Š‘‘‘’“””””””””————————–ˆYBZcODk{‚‡€ƒ‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚€€€€€€€€€€}}|{{ƒ~€xI JAACJPQMHC=GD5<=$@VZ\dnffffffffffffffffddddddddddddddddaaaaaaaa________\\\\\\\\ZZZZZZZZ4GHDDIGGGGGGGGIIIIIIIIKLLMOOPPMNNPQQRRRSSTUUWWTUUWXXYYXXYZZ[\\ZZ[]]^____`aabddaabddeffffghhikkkkkkkkkkmmmmmmmmrrrrrrrrttttttttvvvvvvvvvvwyyz{{{{{{{{{{x€Š‘‘‘’“””””””””––––––––”†YBYbNCk{‚‡€ƒ‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚€€€€€€€€€€}}|{{{Œk%  .@NRNHDW_J@k{‚‡€ƒ‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚€€€€€€€€€€}}|{{‰fB;FNONIIIMPNHBH:>@69+(GVVWamffffffffffffffffddddddddddddddddaaaaaaaa________\\\\\\\\ZZZZZZZZ1CD@ADCCCCCCCCEEEEEEEEHHIJJKLLJJKLLMNNNNPQQRSSQQRSSTUUXXYZZ[\\ZZ[]]^____`aabddaabddeffffghhikkkkkkkkkkmmmmmmmmrrrrrrrrttttttttvvvvvvvvvvwyyz{{{{{{{{{{x€Š‘‘‘’“””””””””’’’’’’’’‘ƒU=V^J@k{‚‡€ƒ‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚€€€€€€€€€€}}|{{sN369))HVVVamffffffffffffffffddddddddddddddddaaaaaaaa________\\\\\\\\ZZZZZZZZ.@@<>BAAAAAAAAAABCCDFFFFGHHIJJJJKLLNOOOOPQQRSSSSTUUWXXUUWXXYZZZZ[\\^____`aabcccceffghhffghhijjkklmmnoommnooqrrrrrrrrrrttttttttvvvvvvvvyyyyyyyyvwz{{ywvv€‹’“‘‘‘’’’’’’’’’“–——–“’“…XAXaLAy„z‡Œƒ‰„„„„„„„„‚‚‚‚‚‚‚‚€€€€€€€€y……vt€Š‡?@CGIIIIHIHB;9:=C=B;/6( 6EEVYYhffffffffccccccccaaaaaaaaaaaaaaaa________]]]]]]]][[[[[[[[XXXXXXXX.?@<>BAAAAAAAAAABBCDDFFFGGHIIJJJKKLNNOOOPPQRRSSSTTUWWXUUWWXYYZZZ[[\^^___``abbccceefgghffgghiijkkllmnnommnnoqqrrrrrrrrrttttttttvvvvvvvvyyyyyyyyvwyzzxwvv€‹’“‘‘‘’’’’’’’’’“•––•“’“…XAXaLAzŽ„z‡Œ‚ˆ„„„„„„„„‚‚‚‚‚‚‚‚€€€€€€€€}ƒ€x{„‚v?ACGHIIIHIHB<9;?C=B;.6(6EETYXhffffffffccccccccaaaaaaaaaaaaaaaa________]]]]]]]][[[[[[[[XXXXXXXX.??;>:>>>>>>>@@@ABBCCDDDFGGHHIIIJKKLLNNNOPPQQRRRSTTUUTTTUWWXXYYYZ[[\\^^^_``aabbbceeffeeefgghhjjjkllmmlllmnnoooooooooorrrrrrrrttttttttvvvvvvvvuvxyxwvuv€‹’“‘‘‘’’’’’’’’‘’“••“’‘“…XAXaLA{…z‡Š‡„„„„„„„„‚‚‚‚‚‚‚‚€€€€€€€€…|v}‰‚aBABDGHHGGFGGB<:9;@>>>>>>>>??@@ABBBCCDDFGGGHHIIJKKKLLNNOPPPQQRRSTTTSSTTUWWWXXYYZ[[[\\^^_```aabbceeecceefggghhjjklllkkllmnnnoooooooorrrrrrrrttttttttvvvvvvvvtuvxwvutv€‹’“‘‘‘’’’’’’’’‘’““’‘“…XAXaLA~†z‡‰€„„„„„„„„„‚‚‚‚‚‚‚‚€€€€€€€€…yv…uQ5BCFGHGFFDFFB<;=BA;?8,4%;EBPVWhffffffffccccccccaaaaaaaaaaaaaaaa________]]]]]]]][[[[[[[[XXXXXXXX +;<9:?==========??@AABBBCCDFFGGGHHIJJKKKLLNOOPPPQQRSSTRRSSTUUWWWXXYZZ[[[\\^__```aabccebbcceffggghhjkkljjkklmmnnnnnnnnnqqqqqqqqssssssssuuuuuuuurtuvvutsv€‹’“‘‘‘’’’’’’’’‘’’‘“…XAXaLA‘ˆz‡ˆ~ƒ„„„„„„„„‚‚‚‚‚‚‚‚€€€€€€€€€y{€y`D6CDGHHGFDBDDA<;?C?:>7*3%=EAOSWhffffffffccccccccaaaaaaaaaaaaaaaa________]]]]]]]][[[[[[[[XXXXXXXX +;;8:><<<<<<<<<==?@@AAABBCDDFFEGGHIIJJJKKLNNOONPPQRRSSQRRSTTUUUWWXYYZZZ[[\^^___``abbccabbceefffgghjjkkhjjkllmmmmmmmmmmoooooooorrrrrrrrttttttttrtuvvutsv€‹’“‘‘‘’’’’’’’’‘’’‘“…XAXaLA€“ˆ{†ˆ}‚„„„„„„„„‚‚‚‚‚‚‚‚€€€€€€€€{{€€kK8=6*1$>EAMSVhffffffffccccccccaaaaaaaaaaaaaaaa________]]]]]]]][[[[[[[[XXXXXXXX *:;89><<<<<<<<<<=??@AAAABCCDFFEEGHHIJJJJKLLNOONNPQQRSSQQRSSTUUUUWXXYZZZZ[\\^____`aabccaabcceffffghhjkkhhjkklmmmmmmmmmmoooooooorrrrrrrrttttttttqruvvusrv€‹’“‘‘‘’’’’’’’’Ž‘’’‘Ž“…XAXaLA€“ˆ{†ˆ}‚„„„„„„„„‚‚‚‚‚‚‚‚€€€€€€€€w|…€a>8GDFGHGFCBACDA=<@D>8=6)1$>E?LRVhffffffffccccccccaaaaaaaaaaaaaaaa________]]]]]]]][[[[[[[[XXXXXXXX'8;::<788:;;<<::;<<=??ABBCDDFFCCDEEGHHHHIJJKLLLLMNNPQQQQRSSTUUUUWXXYZZZZ[\\^__\\^__`aaffffffffffffffffkkkkkkkkkkkkkkkkmmmmmmmmoooooooooqqrssttooqrqrttm{Œ•”‘“—’’’’’’’’’’‘ŽŽ”{OG_YCE‰‡„ƒ‚‚ƒ„„„„„„„„„‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚„q„{=.LPDGHJJIHG?@BCCB@?85576)07BJOSZ`ccccccccccccccccaaaaaaaa________________]]]]]]]][[[[[[[[XXXXXXXX &7:99;7778:;;;::;;<==?AAABCDDDCCDDEGGHHHIIJKKLLLMMNPPQQQRRSTTUUUWWXYYZZZ[[\^^_\\^^_``affffffffffffffffkkkkkkkkkkkkkkkkmmmmmmmmoooooooooooqrsssooqqqrstm{Œ•”‘“—’’’’’’’’’’‘ŽŽ”zOG_YCFˆ‡„ƒ‚‚ƒƒ„„„„„„„„‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚|~{Y5=NEFGHIJIHG?@ABBA@?85565(08BJOSZ_ccccccccccccccccaaaaaaaa________________]]]]]]]][[[[[[[[XXXXXXXX &59779566788::9::;<<==?@@ABBCCBCCDEEGGGHHIJJKKKLLMNNPPPQQRSSTTTUUWXXYYYZZ[\\^^[\\^__``ccccccccddddddddhhhhhhhhhhhhhhhhkkkkkkkkmmmmmmmmmnnoqqrrnooqqqssm{Œ•”‘“—’’’’’’’’’’‘ŽŽ“zNG_YDGˆ†„‚€‚ƒƒƒƒƒƒƒƒƒ‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚yŠg24LK?FGHIIHFD?@ABBA@?85453'1:CJMRY_ccccccccccccccccaaaaaaaa________________]]]]]]]][[[[[[[[XXXXXXXX %4744544556778999:;;<<==??@AABBBBCDDEEGGGHIIJJKKKLMMNNPPPQRRSSTTTUWWXXYYYZ[[\\[[[\^^__bbbbbbbbccccccccggggggggggggggggjjjjjjjjllllllllllmmnooqnnnopprrm{Œ•”‘“—’’’’’’’’’’‘ŽŽ’xMG`ZEH‡†ƒ‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚„L"BQBGFGHHHFDB=?@AA@?=85131&3:CJMRX^ccccccccccccccccaaaaaaaa________________]]]]]]]][[[[[[[[XXXXXXXX $24212133455668899:;;;;<<=??@@AABBCDDDEEGGHIIIJJKKLMMMNNPPQRRRSSTTUWWWXXYYZ[[[ZZ[[\^^^````````````````eeeeeeeeeeeeeeeeggggggggjjjjjjjjjkklmmnnmmnnopppm{Œ•”‘“—’’’’’’’’’’‘ŽŽ‘wME`\GJ†…‚€€‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚…m5.TK8TFGHHGDB@<=?@@?=<:500.$4;DJMQW[ccccccccccccccccaaaaaaaa________________]]]]]]]][[[[[[[[XXXXXXXX #12..00011344577889::;::;;<==?@@AABCCDDDEEGHHIIIJJKLLMMMNNPQQRRRSSTUUWWWXXYZZ[YYZZ[\\^________________ddddddddddddddddffffffffhhhhhhhhhhjjkllmllmmnoopm{Œ•”‘“—’’’’’’’’’’‘ŽŽvLE`\HK…ƒ€~€‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚wN/BZF;UGGHGFB@?;<=??=<;:4/.-"5@@ABBCCCDDEGGHHGIIJKKLLLMMNPPQQQRRSTTUUUWWXYYZZXYYZ[[\\\\\\\\\\]]]]]]]]aaaaaaaaaaaaaaaaddddddddffffffffggghjkkkjllmnnoom{Œ•”‘“—’’’’’’’’’’‘ŽŽuLE`]HL…ƒ}~~€€€€€€€€€‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚W8;NLFIEGGGGDA?<;<=??=<;;4.,*!6=EKMPVZccccccccccccccccaaaaaaaa________________]]]]]]]][[[[[[[[XXXXXXXX ".0,+,..//0113557889::8899:;;<>>@AABCCCCDEEGHHGGIJJKLLLLMNNPQQQQRSSTUUUUWXXYZZXXYZZ[\\\\\\\\\\]]]]]]]]aaaaaaaaaaaaaaaaddddddddffffffffffgghjjkjjlmmnoom{Œ•”‘“—’’’’’’’’’’‘ŽŽuJE`]ILƒ‚}~~€€€€€€€€€‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚‚;.GR@@ABBCCEFFHIIJJJKKLMMOOLLNOOPQQSUUVWWXXXXXXXXXXZZZZZZZZZZZZZZZZZZZZZZZZ________Z[[]^^___`aabbccdeefgghhnnmlkiig\rŠ–’–’’’’’’’’••“’’‘–xLB]YHL‚‚€€~~…ƒ~{yxx€€€€€€y‡‡{|ƒqT6;BGJIFDFIKHB=<=?@@?=;8763'-5;>>@ABBBEEEFHIIIJJJKLMMMLLNNOPPQSSSUVWWWXXXXXXXXZZZZZZZZZZZZZZZZZZZZZZZZ^^^^^^^^ZZZ[]^^^__^`abbbddddfgggmmljjhhg]rŠ–’Ž–’’’’’’’’••“’’‘•yLD^[GL…ƒ‚€|{z}yvw|ƒˆ€€€€€€}}ƒ~bD9=CGIGECFIJHA<<=??@?=:8553'-5;@@AACDDEFFHHHIIJKKLLKLLNOOPPQRRSUUVVUUUUUUUUXXXXXXXXXXXXXXXXXXXXXXXX]]]]]]]]XYYZ[[]]]^^_``aaacbceefflljkjhhh]rŠ•’–’’’’’’’’••“’’‘’xLF`[FJ†…‚€~{zyƒ}uqr{†Ž€€€€€€…wv„‰qM5?BEGGEC@FIIF@;>@BBCCDEEFFFHHIJJKKKKLNNOOPPQQRSSUTTTTTTTTWWWWWWWWWWWWWWWWWWWWWWWWYYYYYYYYWWXXYZZ[\\]]^__```aacdddjjjiihhi]rŠ–’Ž–’’’’’’’’••“’’‘xNHa[CE{{{zzzzz…xrrv}ƒ€€€€€€„x}…^=5EFGGFDB?GHHC=:;?====;97433(,0;>??ABBCCCDDEFFHIIJJKLLNLLNNOPPQQQQQQQQQSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSTTVWWXXXZYZ[[\]]^^^``aeeffghhh]rŠ–’Ž–’’’’’’’’••”’’‘wOI^P2.HKOU[`dgegkotx|~€€€€€€|‡‚Z;?AAABBBCDEEEHIIJKKLLKKKLNOOONNNNNNNNQQQQQQQQQQQQQQQQQQQQQQQQRRRRRRRRRRRSTVVVWWWXYZZZ[\[]^___ddefghhi]rŠ–’Ž–’’’’’’’’••“’’‘ŒuOHZJ'"FHLQW\_bcccfls{€€€€€€€}‹‡fB8ERJIGFEFFGHGC=75;@:;;;9732.3*** ,;??AAABBCDDEHHIJJKLLJJKKLNNONNNNNNNNQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQRRSTTVVVWWXYYZZZ[\]^^_cccefhij]rŠ–’–’’’’’’’’••“’’‘ŒuNGXE!NQSW[_bcnha^`it{€€€€€€‹|N4????@AABCCCCDEEGHHHHIJJKLLLLLLLLLLNNNNNNNNOOOOOOOOOOOOOOOOLLMOOPQQQQRSSTVVVVWXXYZZYcd][ad_[`fgeegidyœ™’‘”‘‘‘’’’‘’“••–žiDDB0.@OPUY^dgjYg*‚•o†{†…ƒ‚{‚pG2=IEDFGJJIGF;;;::999?=<;9875-34(%<>BEJMQSYZ^`abbaaaaaaaaa________]]]]]]]]]]]]]]]]ZZZZZZZZXXXXXXXXUUUUUUUU!  !##$%%%%&''(****+,,-..../11233556889::::;<<>????@AABCCCCDEEGHHHHIJJKLLLLLLLLLLNNNNNNNNMMMMMMMMOOOOOOOOLMMOPPQQQRRSTTVVVWWXYYZZXac[[ab\_djkihkmaq†ˆ‰Š‹‹ŒŽ‘ŽvQB8/:OWX[_dikmc‰W ,‡“l€~‚ƒ~}„tW=8DJFEFGIJIGF;::::::9?=<;9875-33(&<>BEJMQSYZ^`abbaaaaaaaaa________]]]]]]]]]]]]]]]]ZZZZZZZZXXXXXXXXUUUUUUUU!  !##$%%%%&''(****+,,-..../11233556889::::;<<>????@AABCCCCDEEGHHHHIJJKLLLLLLLLLLNNNNNNNNLLLLLLLLPPPPPPPPMMOOPQQRRRSSTVVWWWXXYZZ\X_`ZZa_WY_dfdcdh[hu{xwz€ƒƒ…ˆŠ‹”“’‹‹—|V5'1J^^_adgilln|> 1‹’hz~‚}}}…^95BKJIEFGIIGED::::::::=<;:8754-13'(<>BEJMQSYZ^`abbaaaaaaaaa________]]]]]]]]]]]]]]]]ZZZZZZZZXXXXXXXXUUUUUUUU!  !##$%%%%&''(****+,,-..../11233556889::::;<<>????@AABCCCCDEEGHHHHIJJKLLLLLLLLLLNNNNNNNNKKKKKKKKQQQQQQQQOOPPQRRRSSTTVWWWXXYYZ\\\Z^_[\c]RJPTWUSVYV]deceinvwx|‚„…ŽŽŽŒŒuK&%A[fbbdeghiirj#8fyƒ|y„†rI.9LJFKEFGGGEDB999::;;;<<;98544-11%*<>BEJMQSYZ^`abbaaaaaaaaa________]]]]]]]]]]]]]]]]ZZZZZZZZXXXXXXXXUUUUUUUU!  !##$%%%%&''(****+,,-..../11233556889::::;<<>????@AABCCCCDEEGHHHHIJJKLLLLLLLLLLNNNNNNNNLLLLLLLLQQQQQQQQPPPQRRSSTTTVWWXXYYYZ\\]]\`_\`e\O@DJKJIKNPRSSSUY]_`ceilmoyy{~‚ƒ„„h>'9]nliijjlmmnhRBŠizƒvv„ŒŠT<4FQF@IEFGGFDB?889::;<<;;:87433-1/$-<>BEJMQSYZ^`abbaaaaaaaaa________]]]]]]]]]]]]]]]]ZZZZZZZZXXXXXXXXUUUUUUUU!  !##$%%%%&''(****+,,-..../11233556889::::;<<>????@AABCCCCDEEGHHHHIJJKLLLLLLLLLLNNNNNNNNOOOOOOOORRRRRRRRPQQRSSTTTVVWXXYYYZZ\]]^^_cb_ei^L?CIJHHILKJIIIJLNIJKNPRSUZ\^aehkl|[;5789;<=?;:985432-0."!/<>BEJMQSYZ^`abbaaaaaaaaa________]]]]]]]]]]]]]]]]ZZZZZZZZXXXXXXXXUUUUUUUU!  !##$%%%%&''(****+,,-..../11233556889::::;<<>????@AABCCCCDEEGHHHHIJJKLLLLLLLLLLNNNNNNNNRRRRRRRRSSSSSSSSQQRRSTTVVVWWXYYZZZ\\]^^_dfdbjm`M>BHIFGIKIGDCDDDCBCCDEGGGGHJLOQRShJ=Tiiddfgiilnoq:( Sƒ~tw‚xŠuR8@EDGLF;FFFFD@><5589;BEJMQSYZ^`abbaaaaaaaaa________]]]]]]]]]]]]]]]]ZZZZZZZZXXXXXXXXUUUUUUUU!  !##$%%%%&''(****+,,-..../11233556889::::;<<>????@AABCCCCDEEGHHHHIJJKLLLLLLLLLLNNNNNNNNSSSSSSSSSSSSSSSSQQRSSTVVVVWXXYZZZZ\]]^__fgeelpbL:>DFCCDHGDBBCC?=GHHIIIIJCCDDEFFFTGD9BSL4FFFFD@=;4579;=?@:9874321-0- "3<>BEJMQSYZ^`abbaaaaaaaaa________]]]]]]]]]]]]]]]]ZZZZZZZZXXXXXXXXUUUUUUUU !$# !!#$$%''((*++,..//122333445667::;;<==>>>@@ABBCCCDDEFFHHHIIJKKLJJKKLMMOLLMMNPPQQQQQQQQQQQRRSTTUUUUUUUUUVVWWXYYZZZ[[]^^___``abbceblhbsrM6>GKJGGIHHHHHHHHHHHHHHHHHHHHHHHHHGHHHHGHHBNQIU\C3U„up{pu‰‰kH6FFFFFFFFLIFA<832:::::::::87643105%' &59>>@@@ABCCCDDDEFHHHIIIJKLLLKKKLMOOOMMMNPQQQQQQQQQQQRRRSTUUUUUUUUUUUWWWXYZZZ[[[]^___```abcccfdlhbtsN6>GKJGGIHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHE?JLDPT;3Ttoury„{[A6FFFFFFFFKHEA<832:::::::::87643104 && '59@@AAABBCDDEEEFFHIIJJJKKLMMOLLMMOPPQNNPPQRRSSSSSSSSSSSTTUWWXXXXXXXXXXXYYZ[[]]]^^_``aaabbceefgenkcutO6>GKJGGIHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHD=HI=IL34 R~qnnu|fH9:FFFFFFFFHGD?:832::::::::8765310/1 &% *49>@AABBBCCDEEFFFHHIJJKKKLLMOOPPMOOPQQRRPQQRSSTTTTTTTTTTTUUWXXYYYYYYYYYYYZZ[]]^^^__`aabbbcceffggjgolevwQ6>GKJGGIHHHHHHHHHHHHHHHHHHHHHHHHHGHHHHGHF@HGGKJGGIHHHHHHHHHHHHHHHHHHHHHHHHHHHGGHHHJBKJ>GI/5 Ksghmz{eG7=HFFFFFFFFEDA>:853::::::::66531/..+#* /39>ABBCDDEEEFFHIIJJJKKLMMOOOPPQRRSSQRRSTTVVSTTUWWXXXXXXXXXXXYYZ[[\\\\\\\\\\]^^_``aaabbdeefffgghiijjmksoizzU6>GKJGGIHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHKCML@IK25 HmdfotkQ=@@@CCCDEFFFHHHIJKKKLLLMOPPPQQQRSTTTSSSTVWWWUUUWXYYYZZZZZZZZZZZ[\^^^___________`abbbdddefggghhhijlllnltrj|{V6>GKJGGIHHHHHHHHHHHHHHHHHHHHHHHHGGHHHGHHIAJK@JL36 Ej`doiU<6DKHFFFFFFFF??>:8753::::::::5431/.-,%$+529@@AACDDEFFHHHIIJKKLLLMMOPPQQQRRSTTVVSTTVWWXXUWWXYYZZZZZZZZZZZ[[\^^___________``abbdddeefgghhhiijllmmomurk||W6>GKJGGIHHHHHHHHHHHHHHHHHHHHHHHHHHHGHHHHE>HI>IL36 Dh^bm`D-3INCFFFFFFFF??>:8753::::::::5431/.-,$%,629@@AAABBCDDEEEFFHIIJJJKKLMMOOOPPQRRSSSTTVWWXXXXXXXXXZZZZZZZZ]]]]]]]]__________``accdffffffffffghhikkjjlmmnoomgtvlvy_/:55431/.-,',&/6<>@CGJLNRTW[^___________]]]]]]]]]]]]]]]][[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTT !..++,///1233366689:::===>@AAABBBCDEEEFFFHIJJJKKKLMOOOPPPQRSSSTTTVWXXXXXXXXXXXZZZZZZZZ]]]]]]]]________```acdddfffffffffgghiikkjllmnnoonhtvlvza/822258:87:==:55431/.-,',% 16<>@CGJLNRTW[^___________]]]]]]]]]]]]]]]][[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTT #//--.112234458899:;;<>>@@ABBCCCDDEFFHHHIIJKKLLLMMOPPQQQRRSTTVVVWWXYYZZZZZZZZZ]]]]]]]]________aaaaaaaaaaccdeefgggggggggghhikklllmmnoopqitvlw{b.;IMJFGKHHHHHHHHHHHHHHHHJJJJJJJJHHHGHHHHLBGJBML/4(,V`_KFBBEHGEDDEEEFFF:852258::768<=844310.-,*'+$#26<>@CGJLNRTW[^___________]]]]]]]]]]]]]]]][[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTT$12//2233455669::;<<==@AABCCDDDEEFHHIIIJJKLLMMMOOPQQRRRSSTVVWWWXXYZZ[[[[[[[[[[^^^^^^^^````````cccccccccddeffgghhhhhhhhhhiiklllmmnnopppsktulw|d.9GMIEFJHHHHHHHHHHHHHHHHJJJJJJJJHHGGHHHHLBGJBLL/3 1]]P??ACEFEDABDEFFEE5322378:8657<<73331/.,**(* %35<>@CGJLNRTW[^___________]]]]]]]]]]]]]]]][[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTT%2423544556889;;<<=>>@BBCCDEEGFFHHIJJKKKLLMOOPPPQQRSSTTTVVWXXYYYZZ[]]^^^^^^^^^````````cccccccceeeeeeeeeeffghhjhhhhhhhhiiikllmmnnnoppqqumtukw~f-9GLGDEIHHHHHHHHHHHHHHHHJJJJJJJJHHHHHHHHLBHJBLL/ *?dU?;=BEEDDD?ADFFEBA2222378:7547;;63110.-*))('(45<>@CGJLNRTW[^___________]]]]]]]]]]]]]]]][[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTT&46458566899::<==>@@AACDDEGGHHHIIJKKLLLMMOPPQQQRRSTTVVVWWXYYZZZ[[]^^__________aaaaaaaaddddddddfffffffffgghjjkkiiiiiiiiikklmmnnnoopqqssxnutky€i+8FKGCDIHHHHHHHHHHHHHHHHJJJJJJJJHHHHHHHHMBHJBML/# M]E;;?DEDCDGABFGFB>:112257787546::6110/.,*)((&+55<>@CGJLNRTW[^___________]]]]]]]]]]]]]]]][[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTT'5868:8889:;;;>>>@ABBBEEEGHIIIJJJKLMMMOOOPQRRRSSSTVWWWXXXYZ[[[]]]^_```aaaaaaaaddddddddffffffffhhhhhhhhhhhjklllkkkkkkkkkkllmnnoooppqsstyoutjyk*7EJFCDGHHHHHHHHHHHHHHHHJJJJJJJJHHHHGHHHLBHJBLL/1WJ4B?DHFBAEJBEGHE?:51223533264358:500/.-*)('*%-64<>@CGJLNRTW[^___________]]]]]]]]]]]]]]]][[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTT'5989;899:;;<<>@@ABBCCEGGHIIJJJKKLMMOOOPPQRRSSSTTVWWXXXYYZ[[]]]^^_``aaaaaaaaaaddddddddffffffffhhhhhhhhhjjkllmmkkkkkkkkkklmmnoooopqqsttzoutjyk*7EJFBDGHHHHHHHHHHHHHHHHJJJJJJJJHHHGGHHHLBGJBLL/AZ9(KCHJFA?ELEFHHE?7212333321643588500/.-*)('*%.84<>@CGJLNRTW[^___________]]]]]]]]]]]]]]]][[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTT+;:68;<<=>>@AAAABCCDEEEEFHHIJJLLMNNPQQQQRSSTUUSSTVVWXXXXYZZ[]]]]^__`aaaabddeffddeffghhffffffffkklmmnookklmmnoommnooprrooprrstttsrrstwxwxz{{zxwQSUVUQMJOMLKIHFEJHFDFHKNBCDEEECBIHHGFDCCAOM?CRH,#+lG/TDDDDDDDDZF:AD70222355788-024555410.-+*)''+6<9<>@EGJLPRV[^`bb]]]]]]]][[[[[[[[[[[[[[[[XXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTT,;;68;<==>@@AAABBCDDEEEFFHIIJJLMMNPPQQQRRSTTUUSTTVWWXXXYYZ[[]]]^^_``aaabbdeeffdeefgghhggggggggkllmnnookllmnnoomnnopprropprssttttsrsuxyxyz{{zyxefiihfdb[XTPKGCBNLHEBBEFDGIMNOOOFGGHHIIIAKI?DQB%@P3%@EGJLPRV[^`bb]]]]]]]][[[[[[[[[[[[[[[[XXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTT,<;88<==>>@AABBBCCDEEFFFHHIJJKMMNNPQQRRRSSTUUWTTVVWXXYYYZZ[]]^^^__`aabbbddeffgeeffghhikkkkkkkkllmmnoopllmmnoopnnooprrspprrsttuuutttwyzxyz{{zyxsuwyzywvonjgc_[Z]ZVQLJIIDEFHFEDCAABEFHIIFJE?IR>?R,$;GHDDDDDDDDMFDB:00722355788013455430.-,*)'&&+5;9<>@EGJLOQVY]_``]]]]]]]][[[[[[[[[[[[[[[[XXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTT-<<89=>>@@ABBBCCDDEFFFHHIIJKKKNNPPQRRRSSTTUWWWVVWWXYYYZZ[[]^^^__``abbbddeefgggffgghiiimmmmmmmmmmnnopppmmnnopppoopprsssrrsstuuuxwuuwyz|yz{||{zystuwxzzzvwxxxyxyromheb`_VVSOJD>;ABBBCCCCKJDBMQ; XQ+JGCDDDDDDDDEFF?3+082235578812355432..-+*'&&%,5:9<>@EGJLNPUY]^__]]]]]]]][[[[[[[[[[[[[[[[XXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTT.==9:>@@@ABBCCDDDEFFHHIIIJKKLLPPPQRRSSTTTUWWXXWWWXYYZZ[[[]^^__```abbddeeefgghhggghiikknnnnnnnnnnnopprrnnnopprrppprssttssstuuvvzyxxyz|~z{|~~|{zooppstuvuuvwyz{|{{{{zxwvttqmhb\YSRQNLKIGKHBCKL78Y= @P?ADDDDDDDD?EF<1-152235578823455321--,*)&%%# ,499<>@EGJLMOTX\^^_]]]]]]]][[[[[[[[[[[[[[[[XXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTT/>>:;>@AABCCDDDEEFHHIIIJJKLLMMPQQRSSTTTUUWXXYYWXXYZZ[[[]]^__```aabddeeeffghhiighhikkllmmmmmmmmnooprrssnooprrssprrsttuusttuvvww{zzyz|€{|~~|{tsrrqtuw~~}|{zyywz|~~}{|}}}|{znmjgc`]\SOLLPLA4\G+/MK<@DDDDDDDD>DA502202235578834554310-,+*'&%$!!-469<>@EGJLMORW[]^^]]]]]]]][[[[[[[[[[[[[[[[XXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTT/@>:;@AABBCDDEEEFFHIIJJJKKLMMOQQRRSTTUUUWWXYYZXXYYZ[[]]]^^_``aaabbdeefffgghiikhhiikllmlllllllloopprsstoopprsstrrsstuuvttuuvwwy||{{{~€{|~~|{|zvttuxx~}}||||{twz}~~{zsuy{}}}~~|zwutskhhgd^[]`1$B:0083)223557884455420.,+*)&%$# #-469<>@EGJLKNRVY\]]]]]]]]]][[[[[[[[[[[[[[[[XXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTT1@@;<@AABCCDEEEEFHHIJJJJKLLMOOQQRSSTUUUUWXXYZZXXYZZ[]]]]^__`aaaabddeffffghhikkhhikklmmkkkkkkkkooprrsttooprrsttrrsttuvvttuvvwyy~|{{|€‚{|€€|{€|yuttvyghlnquwzuwy|}{wvxy{||{zy~~~ƒƒ„‚ztxV"'A6?O?DDDDDDDD?A8+0:5%223557884555420-,+*)&%$# $-359<>@EGJLKNQVY\]]]]]]]]]][[[[[[[[[[[[[[[[XXXXXXXXVVVVVVVVVVVVVVVVTTTTTTTT1CDAADCCDEEGHHHHIJJKLLLLMOOPQQQQRSSTUUUUWXXYZZXXYZZ[]]]]^__`aaaabddeffffffffffkkkkkkkkmmnooprrooprrsttttttttttttuvvwyyyyyyyyyy{{{{{{{{~~~~~~~~yyyyyyyyyyyyyyyyyyyyyyyyyyz{{|}}yyyyyyyyylˆo|„\&1;BCBAEDBABDEG872/++/022222222332110...-,+)'&%#/8;9<>@EGJLQRUWY\^_]]]]]]]][[[[[[[[[[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ1CDAADCCDEEGHHHHIJJKLLLLMOOPQQQQRSSTUUUUWXXYZZXXYZZ[]]]]^__`aaaabddeffffffffffkkkkkkkkmmnooprrooprrsttttttttttttuvvwyyyyyyyyyy{{{{{{{{~~~~~~~~xxxxxxxxyyyyyyyyyyyyyyyyyyz{{|}}yyyyyyyyuw}vu…t@%+4=CDB@BBAABDFG531/-/1222222222332110...-,+)'&%$/8;9<>@EGJLQRUWY\^^]]]]]]]][[[[[[[[[[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ1CDAADCCDEEGHHHHIJJKLLLLMOOPQQQQRSSTUUUUWXXYZZXXYZZ[]]]]^__`aaaabddeffffffffffkkkkkkkkmmnooprrooprrsttttttttttttuvvwyyyyyyyyyy{{{{{{{{~~~~~~~~yyyyyyyyyyyyyyyyxxxxxxxxxxy{{|}}zzzzzzzzs„vjƒT%.3:ADDB@??ABDEEF10//012322222222332110..-,+*'&%$%/8:9<>@EGJLPQTVX[]^]]]]]]]][[[[[[[[[[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ1CDAADCCDEEGHHHHIJJKLLLLMOOPQQQQRSSTUUUUWXXYZZXXYZZ[]]]]^__`aaaabddeffffffffffkkkkkkkkmmnooprrooprrsttttttttttttuvvwyyyyyyyyyy{{{{{{{{~~~~~~~~yyyyyyyyyyyyyyyyyyyyyyyyyyz{{|}}{{{{{{{{w‡rp‹i.$8;@DFDB@>?ABDDDD+--0125722222222332110..,,+)'%$$&1699<>@EGJLPQRUX[\]]]]]]]]][[[[[[[[[[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ1CDAADCCDEEGHHHHIJJKLLLLMOOPQQQQRSSTUUUUWXXYZZXXYZZ[]]]]^__`aaaabddeffffffffffkkkkkkkkmmnooprrooprrsttttttttttttuvvwyyyyyyyyyy{{{{{{{{~~~~~~~~xxxxxxxxxxxxxxxxyyyyyyyyyyz{{|~~{{{{{{{{€s‡C:=@BDFDBA>?BDDA?>*+-1235722222222332110..++*'&$##'1689<>@EGJLOPQTWY[\]]]]]]]][[[[[[[[[[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ1CDAADCCDEEGHHHHIJJKLLLLMOOPQQQQRSSTUUUUWXXYZZXXYZZ[]]]]^__`aaaabddeffffffffffkkkkkkkkmmnooprrooprrsttttttttttttuvvwyyyyyyyyyy{{{{{{{{~~~~~~~~xxxxxxxxyyyyyyyyyyyyyyyyyyz{{|}}||||||||‚yv‚j*H@ABDDDCB?BDEB?:7)+/2333322222222332110..+*)'%$#"(2559<>@EGJLNOQTVX[\]]]]]]]][[[[[[[[[[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ1CDAADCCDEEGHHHHIJJKLLLLMOOPQQQQRSSTUUUUWXXYZZXXYZZ[]]]]^__`aaaabddeffffffffffkkkkkkkkmmnooprrooprrsttttttttttttuvvwyyyyyyyyyy{{{{{{{{~~~~~~~~xxxxxxxxyyyyyyyyyyyyyyyyyyz{{|}}}}}}}}}}|u{l=&4A?@ABCCCCDEGFB:51*+02332122222222332110..*)'&$#" *2549<>@EGJLNNPRUWY[]]]]]]]][[[[[[[[[[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ1CDAADCCDEEGHHHHIJJKLLLLMOOPQQQQRSSTUUUUWXXYZZXXYZZ[]]]]^__`aaaabddeffffffffffkkkkkkkkmmnooprrooprrsttttttttttttuvvwyyyyyyyyyy{{{{{{{{~~~~~~~~xxxxxxxxyyyyyyyyxxxxxxxxxxy{{|}}}}}}}}}}tu}U.N2==?@BCCDFGHGB:2++-13521022222222332110..*)'&$#" +2549<>@EGJLMNPRUWY[]]]]]]]][[[[[[[[[[[[[[[[XXXXXXXXVVVVVVVVTTTTTTTTQQQQQQQQ1CDAADCCDEEGHHGGIJJKLLLLMNNPQQQQRSSTVVVVWXXYZZZZ[]]^__________ddddddddddeffghhkkkkkkkkmmmmmmmmmmnooqrrrrsttuvvvvvvvvvvvvwyyz{{{{{{{{{{}}}}}}}}{{{{{{{{{{{{{{{{€~|{{y}}}}}}}}{xy‚{{€i>'0:7???AABDDM?>GD1%&1111111133333333110..-,,*)'&$#" &-25879<>CEGJLMPRTWYZZZZZZZZZXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVSSSSSSSSQQQQQQQQ1CDAADCCDEEGHHGGIJJKLLLLMNNPQQQQRSSTVVVVWXXYZZZZ[]]^__________ddddddddddeffghhkkkkkkkkmmmmmmmmmmnooqrrrrsttuvvvvvvvvvvvvwyyz{{{{{{{{{{}}}}}}}}{{{{{{{{{{{{{{{{~}}|{{}}}}}}}}‚wx€€x‚oO2,6<9???AABDDIAAF?-%*1111111133333333110..-,,*)'&$#" &-25879<>CEGJLMPRTWYZZZZZZZZZXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVSSSSSSSSQQQQQQQQ1CDAADCCDEEGHHGGIJJKLLLLMNNPQQQQRSSTVVVVWXXYZZZZ[]]^__________ddddddddddeffghhkkkkkkkkmmmmmmmmmmnooqrrrrsttuvvvvvvvvvvvvwyyz{{{{{{{{{{}}}}}}}}{{{{{{{{{{{{{{{{~~}}||{}}}}}}}}‚ƒ~wy‚€w€W/(4<<CEGJLMPRTWYZZZZZZZZZXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVSSSSSSSSQQQQQQQQ1CDAADCCDEEGHHGGIJJKLLLLMNNPQQQQRSSTVVVVWXXYZZZZ[]]^__________ddddddddddeffghhkkkkkkkkmmmmmmmmmmnooqrrrrsttuvvvvvvvvvvvvwyyz{{{{{{{{{{}}}}}}}}{{{{{{{{{{{{{{{{~}}}}}}|}}}}}}}}‚ƒ~yˆ…xi>!,=<:>???AABDD>DG?/$(21111111133333333110..-,,''&$# &-25879<>CEGJLMPRTWYZZZZZZZZZXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVSSSSSSSSQQQQQQQQ1CDAADCCDEEGHHGGIJJKLLLLMNNPQQQQRSSTVVVVWXXYZZZZ[]]^__________ddddddddddeffghhkkkkkkkkmmmmmmmmmmnooqrrrrsttuvvvvvvvvvvvvwyyz{{{{{{{{{{}}}}}}}}{{{{{{{{{{{{{{{{|}}}}}}~}}}}}}}}~†Ž†tI/'9C;7A???AABDD:DE8)$*21111111133333333110..-,,&&%#"&-25879<>CEGJLMPRTWYZZZZZZZZZXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVSSSSSSSSQQQQQQQQ1CDAADCCDEEGHHGGIJJKLLLLMNNPQQQQRSSTVVVVWXXYZZZZ[]]^__________ddddddddddeffghhkkkkkkkkmmmmmmmmmmnooqrrrrsttuvvvvvvvvvvvvwyyz{{{{{{{{{{}}}}}}}}{{{{{{{{{{{{{{{{{||}}~~}}}}}}}}|€‰Œzc3/4AD><@???AABDDCEGJLMPRTWYZZZZZZZZZXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVSSSSSSSSQQQQQQQQ1CDAADCCDEEGHHGGIJJKLLLLMNNPQQQQRSSTVVVVWXXYZZZZ[]]^__________ddddddddddeffghhkkkkkkkkmmmmmmmmmmnooqrrrrsttuvvvvvvvvvvvvwyyz{{{{{{{{{{}}}}}}}}{{{{{{{{{{{{{{{{{{|}}~}}}}}}}}{€†fG/6;;AIECEGJLMPRTWYZZZZZZZZZXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVSSSSSSSSQQQQQQQQ1CDAADCCDEEGHHGGIJJKLLLLMNNPQQQQRSSTVVVVWXXYZZZZ[]]^__________ddddddddddeffghhkkkkkkkkmmmmmmmmmmnooqrrrrsttuvvvvvvvvvvvvwyyz{{{{{{{{{{}}}}}}}}{{{{{{{{{{{{{{{{y{{|~€}}}}}}}}|wU15>;2=RO9???AABDDAA3#"02(1111111133333333110..-,,%$#"&-25879<>CEGJLMPRTWYZZZZZZZZZXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVSSSSSSSSQQQQQQQQ3EGCCGEEGHHIJJJJKLLMNNNNPQQRSSQQRSSTVVVVWXXYZZZZ[]]^____`aabddaabddeffffffffffhhhhhhhhmlkklmormmnooqrrttttttttrtvwyywvyyyyyyyy{{{{{{{{}}}}}}}}{|€€|{€€~~|{{w•‡W3+????????DA?AFHFDB7*%)--+........332110....-,,+**+'$$%##*,.259;=?BDFGJKMPRTWXZZZZZZZZXXXXXXXXXXXXXXXXVVVVVVVVSSSSSSSSQQQQQQQQNNNNNNNN3EGCCGEEGHHIJJJJKLLMNNNNPQQRSSQQRSSTVVVVWXXYZZZZ[]]^____`aabddaabddeffffffffffhhhhhhhhmlkklmormmnooqrrttttttttrtvwyywvyyyyyyyy{{{{{{{{}}}}}}}}{|€€|{€€~~|{{ƒ|ƒŒwJ03????????DA?AFGEA:2)&*-+*........322100...--,++***&$$%#$*-.369;=?BDFGJKMPRTWXZZZZZZZZXXXXXXXXXXXXXXXXVVVVVVVVSSSSSSSSQQQQQQQQNNNNNNNN3EGCCGEEGHHIJJJJKLLMNNNNPQQRSSQQRSSTVVVVWXXYZZZZ[]]^____`aabddaabddeffffffffffhhhhhhhhmlkklmormmnooqrrttttttttrtvwyywvyyyyyyyy{{{{{{{{}}}}}}}}{|€€|{€€~~|{{ˆ‚ƒ}^7/=????????DA?AEEA2+"(-0-++-........0..-,,+++**)''&&&# "'-126:9;=?BDFGJKMPRTWXZZZZZZZZXXXXXXXXXXXXXXXXVVVVVVVVSSSSSSSSQQQQQQQQNNNNNNNN3EGCCGEEGHHIJJJJKLLMNNNNPQQRSSQQRSSTVVVVWXXYZZZZ[]]^____`aabddaabddeffffffffffhhhhhhhhmlkklmormmnooqrrttttttttrtvwyywvyyyyyyyy{{{{{{{{}}}}}}}}{|€€|{€€~~|{{ˆhA.3@A;????????A??BA:0&&+21+*-1..........--,++***))'&&%&# '.136:9;=?BDFGJKMPRTWXZZZZZZZZXXXXXXXXXXXXXXXXVVVVVVVVSSSSSSSSQQQQQQQQNNNNNNNN3EGCCGEEGHHIJJJJKLLMNNNNPQQRSSQQRSSTVVVVWXXYZZZZ[]]^____`aabddaabddeffffffffffhhhhhhhhmlkklmormmnooqrrttttttttrtvwyywvyyyyyyyy{{{{{{{{}}}}}}}}{|€€|{€€~~|{{…`4%6JE4???????????BA:/$+032+*-2..........-,,+****)''&%%%# (.136;9;=?BDFGJKMPRTWXZZZZZZZZXXXXXXXXXXXXXXXXVVVVVVVVSSSSSSSSQQQQQQQQNNNNNNNN4GICCFEEFHHIJJHHIJJKLLOOPQQRSSSSTUUWXXXXYZZ[\\ZZ[]]^____`aabddddddddddffffffffhhikklmmkklmmnoooooooooorrsttuvvttuvvwxxvvwxxz{{yyz{{|}}}|{{|}€‚€€€€€€€€€€€€€€€€€€‚‚ƒ„„t‚‡{yƒ‰…e8$>>>>>>>H85AD2#!+--/0011,,-..011110..-,,*++++*(&!!!!$(.35689;=?BDFGHIKNPRUVXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVSSSSSSSSUUTSSRQQOOOOOOOO4GICCFEFFHIIJJHIIJKKLLOOPQQRSSSSTUUWXXXXYZZ[\\ZZ[]]^____`aabddddddddddffffffffhhikklmmkklmmnoooooooooorrsttuvvttuvvwxxvvwxxz{{yyz{{|}}}|{{|}€‚€€€€€€€€€€€€€€€€€€‚‚ƒ„„~ƒ‚z|†ƒxC32BC77D>>>>>>>>F:8?<+!!+++--/00,,--.001100.--,,*++++)&%!!!!$(.35689;=?BDFGHIKNPRUVXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVSSSSSSSSUTTSRRQQOOOOOOOO4GICCFFFHHIJJKIIJJKLLMOOPQQRSSSSTUUWXXXXYZZ[\\ZZ[]]^____`aabddddddddddffffffffhhikklmmkklmmnoooooooooorrsttuvvttuvvwxxvvwxxz{{yyz{{|}}}|{{|}€‚€€€€€€€€€€€€€€€€€€‚‚ƒ„„‡ƒ|{…ˆw_ 2CF<7;C>>>>>>>>D?><2""))**+++-+,,-..0000..-,,+)*++*)&%!!!!$(.35689;=?BDFGHIKNPRUVXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVSSSSSSSSTTSSRQQPOOOOOOOO4GICCFHHIIJKKKJJKKLMMMOOPQQRSSSSTUUWXXXXYZZ[\\ZZ[]]^____`aabddddddddddffffffffhhikklmmkklmmnoooooooooorrsttuvvttuvvwxxvvwxxz{{yyz{{|}}}|{{|}€‚€€€€€€€€€€€€€€€€€€‚‚ƒ„„‰€{ƒŽ†dB9J@7?C?>>>>>>>>AA?5%!%%&&())*+++,--....--,+++))***(%$!!!!$(.35689;=?BDFGHIKNPRUVXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVSSSSSSSSSSRRQPPPOOOOOOOO4GICCFIIIJKKLLKKKLMMOOOOPQQRSSSSTUUWXXXXYZZ[\\ZZ[]]^____`aabddddddddddffffffffhhikklmmkklmmnoooooooooorrsttuvvttuvvwxxvvwxxz{{yyz{{|}}}|{{|}€‚€€€€€€€€€€€€€€€€€€‚‚ƒ„„ƒ|~‰ŽyO.1DG75GH9>>>>>>>>?A:+!""#$$%%**++,------,++**())*)&$#!!!!$(.35689;=?BDFGHIKNPRUVXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVSSSSSSSSRRRQPPNNOOOOOOOO4GICCFIJJKLLMMKLLMOOPPOOPQQRSSSSTUUWXXXXYZZ[\\ZZ[]]^____`aabddddddddddffffffffhhikklmmkklmmnoooooooooorrsttuvvttuvvwxxvvwxxz{{yyz{{|}}}|{{|}€‚€€€€€€€€€€€€€€€€€€‚‚ƒ„„€{‡`?,CG?28HG8>>>>>>>>??2!!""))**+,,--,,+**))&())(%$"!!!!$(.35689;=?BDFGHIKNPRUVXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVSSSSSSSSRQQPNNMMOOOOOOOO4GICCFJJKKLMMOLLMMOPPQOOPQQRSSSSTUUWXXXXYZZ[\\ZZ[]]^____`aabddddddddddffffffffhhikklmmkklmmnoooooooooorrsttuvvttuvvwxxvvwxxz{{yyz{{|}}}|{{|}€‚€€€€€€€€€€€€€€€€€€‚‚ƒ„„{dD7;B?97;A@;>>>>>>>>?:*!'))*++,,,,++*))'&&((&%#"!!!!$(.35689;=?BDFGHIKNPRUVXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVSSSSSSSSQQPPNMMLOOOOOOOO4GICCFJJKLLMOOLLMOOPQQOOPQQRSSSSTUUWXXXXYZZ[\\ZZ[]]^____`aabddddddddddffffffffhhikklmmkklmmnoooooooooorrsttuvvttuvvwxxvvwxxz{{yyz{{|}}}|{{|}€‚€€€€€€€€€€€€€€€€€€‚‚ƒ„„…qO14I857==9:?>>>>>>>>?8##'')**+,,,,+**)''%&((&%#!!!!!$(.35689;=?BDFGHIKNPRUVXXXXXXXXXXXXXXXXVVVVVVVVVVVVVVVVSSSSSSSSQQPNNMLLOOOOOOOO5IKGGJJJKLLMOOJJKLLMOOQQRSSTVVSSTUUWXXXXYZZ[\\]]^__`aa__`aabddddddddddffffffffhhikklmmkklmmnoooooooooorrrrrrrrvvvvvvvvxxxxxxxxyyz{{|}}}}}}}}}}}}}}}}}}€€‚‚ƒ„„y|‚€‚~Œ‚\92:=@?=<<=?@@=;66678:::>>>>>>>>DCCBAA??BBBBBBBB>CIKIFGJMNOONKIG5IKGGJJJKLLMOOMOOPQQRRQQRSSTVVSSTUUWXXXXYZZ[\\]]^__`aa__`aabddddddddddffffffffhhikklmmkklmmnoooooooooorrrrrrrrvvvvvvvvxxxxxxxxyyz{{|}}}}}}}}}}€€‚‚ƒ„„„~{~„…}uP<19DD<8@?=<<=?@=?ADB7&!"#%')**)'+**)''&&%%$##"!!!!&(,146889;=?BDFGFGIKNPRTSSTWVOC:66678:::;;;;;;;;?>>=<<;;;;;;;;;;;BILKIJLNNONMIGF5IKGGJJJKLLMOOOOPPQRRSQQRSSTVVSSTUUWXXXXYZZ[\\]]^__`aa__`aabddddddddddffffffffhhikklmmkklmmnoooooooooorrrrrrrrvvvvvvvvxxxxxxxxyyz{{|}}}}}}}}}}‚‚‚‚‚‚‚‚€€‚‚ƒ„„‡}…se<34AF? k end) (and (vector-ref (vector-ref *p* i) k) (vector-ref *puzzle* (+ j k)))) (if (> k end) #t #f))))) ;Qobi: resist temptation to optimize (define (place i j) (let ((end (vector-ref *piecemax* i))) (do ((k 0 (+ k 1))) ((> k end)) (cond ((vector-ref (vector-ref *p* i) k) (vector-set! *puzzle* (+ j k) #t) #t))) (vector-set! *piececount* (vector-ref *class* i) (- (vector-ref *piececount* (vector-ref *class* i)) 1)) (do ((k j (+ k 1))) ((or (> k size) (not (vector-ref *puzzle* k))) ;;(newline) ;;(display "*Puzzle* filled") (if (> k size) 0 k))))) (define (puzzle-remove i j) (let ((end (vector-ref *piecemax* i))) (do ((k 0 (+ k 1))) ((> k end)) (cond ((vector-ref (vector-ref *p* i) k) (vector-set! *puzzle* (+ j k) #f) #f))) (vector-set! *piececount* (vector-ref *class* i) (+ (vector-ref *piececount* (vector-ref *class* i)) 1)))) (define (trial j) (let ((k 0)) (call-with-current-continuation (lambda (return) ;; Qobi: changed () to #F in the following (do ((i 0 (+ i 1))) ((> i typemax) (set! *kount* (+ *kount* 1)) #f) (cond ((not (zero? (vector-ref *piececount* (vector-ref *class* i)))) (cond ((fit i j) (set! k (place i j)) (cond ((or (trial k) (zero? k)) ;;(trial-output (+ i 1) (+ k 1)) (set! *kount* (+ *kount* 1)) (return #t)) (else (puzzle-remove i j)))))))))))) (define (trial-output x y) ;Qobi: removed R3RS NUMBER->STRING (newline) (display "Piece ") (display x) (display " at ") (display y) (display ".")) (define (definePiece iclass ii jj kk) (let ((index 0)) (do ((i 0 (+ i 1))) ((> i ii)) (do ((j 0 (+ j 1))) ((> j jj)) (do ((k 0 (+ k 1))) ((> k kk)) (set! index (+ i (* *d* (+ j (* *d* k))))) (vector-set! (vector-ref *p* *iii*) index #t)))) (vector-set! *class* *iii* iclass) (vector-set! *piecemax* *iii* index) (cond ((not (= *iii* typemax)) (set! *iii* (+ *iii* 1)))))) (define (start) (do ((m 0 (+ m 1))) ((> m size)) (vector-set! *puzzle* m #t)) (do ((i 1 (+ i 1))) ((> i 5)) (do ((j 1 (+ j 1))) ((> j 5)) (do ((k 1 (+ k 1))) ((> k 5)) (vector-set! *puzzle* (+ i (* *d* (+ j (* *d* k)))) #f)))) (do ((i 0 (+ i 1))) ((> i typemax)) (do ((m 0 (+ m 1))) ((> m size)) (vector-set! (vector-ref *p* i) m #f))) (set! *iii* 0) (definePiece 0 3 1 0) (definePiece 0 1 0 3) (definePiece 0 0 3 1) (definePiece 0 1 3 0) (definePiece 0 3 0 1) (definePiece 0 0 1 3) (definePiece 1 2 0 0) (definePiece 1 0 2 0) (definePiece 1 0 0 2) (definePiece 2 1 1 0) (definePiece 2 1 0 1) (definePiece 2 0 1 1) (definePiece 3 1 1 1) (vector-set! *piececount* 0 13) (vector-set! *piececount* 1 3) (vector-set! *piececount* 2 1) (vector-set! *piececount* 3 1) (let ((m (+ (* *d* (+ *d* 1)) 1)) (n 0)) (cond ((fit 0 m) (set! n (place 0 m))) (else (newline) (display "Error."))) ;Qobi: removed BEGIN (cond ((trial n) ;Qobi: removed BEGIN (newline) (display "Success in ") (write *kount*) (display " trials.")) (else (newline) (display "Failure."))))) ;Qobi: removed BEGIN ;; Qobi: moved (for-each (lambda (i) (vector-set! *p* i (make-vector (+ size 1)))) (iota (+ typemax 1))) (start) (newline)) ;Qobi: added (do ((i 0 (+ i 1))) ((= i 1000)) (run)) stalin-0.11/benchmarks/rrr.sc0000600017435200151030000004254307244423171014656 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; begin stolen stuff ;;; begin Scheme->C (define (panic s) (error 'panic s)) ;;; end Scheme->C ;;; begin Gambit-C (define (panic s) (error s)) ;;; end Gambit-C ;;; begin Bigloo (define (panic s) (error s 'panic 'panic)) ;;; end Bigloo ;;; begin Chez (define (panic s) (error 'panic s)) ;;; end Chez ;;; begin Chicken (define (panic s) (error s)) ;;; end Chicken (define (first x) (car x)) (define (rest x) (cdr x)) (define (map-n-vector f n) (let ((v (make-vector n))) (let loop ((i 0)) (if (< i n) (begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (every-n p n) (let loop ((i 0)) (or (>= i n) (and (p i) (loop (+ i 1)))))) (define (some p l . &rest) (let loop ((l l) (&rest &rest)) (and (not (null? l)) (or (apply p (first l) (map first &rest)) (loop (rest l) (map rest &rest)))))) (define (some-n p n) (let loop ((i 0)) (and (< i n) (or (p i) (loop (+ i 1)))))) (define (some-vector p v . &rest) (let loop ((i 0)) (and (< i (vector-length v)) (or (apply p (vector-ref v i) (map (lambda (v) (vector-ref v i)) &rest)) (loop (+ i 1)))))) (define (x v) (vector-ref v 0)) (define (y v) (vector-ref v 1)) (define (make-matrix m n . &rest) (cond ((null? &rest) (map-n-vector (lambda (i) (make-vector n)) m)) ((null? (rest &rest)) (map-n-vector (lambda (i) (make-vector n (first &rest))) m)) (else (panic "Too many arguments to MAKE-MATRIX")))) (define (matrix-rows a) (vector-length a)) (define (matrix-columns a) (vector-length (vector-ref a 0))) (define (matrix-ref a i j) (vector-ref (vector-ref a i) j)) (define (matrix-set! a i j x) (vector-set! (vector-ref a i) j x)) (define (pormat control-string . values) (let loop ((i 0) (values values)) (if (not (= i (string-length control-string))) (let ((c (string-ref control-string i))) (cond ((char=? c #\~) (let ((c2 (string-ref control-string (+ i 1)))) (cond ((char=? c2 #\a) (display (car values)) (loop (+ i 2) (cdr values))) ((char=? c2 #\s) (write (car values)) (loop (+ i 2) (cdr values))) ((char=? c2 #\%) (newline) (loop (+ i 2) values)) (else (display c) (loop (+ 1 i) values))))) (else (write-char c) (loop (+ i 1) values))))))) ;;; end stolen stuff ;;; The vertices are s, t, and (y,x). ;;; C-RIGHT[y,x] is the capacity from (y,x) to (y,x+1) which is the same as the ;;; capacity from (y,x+1) to (y,x). ;;; C-DOWN[y,x] is the capacity from (y,x) to (y+1,x) which is the same as the ;;; capacity from (y+1,x) to (y,x). ;;; The capacity from s to (y,0), (0,x), (y,Y-1), (0,X-1) is implicitly ;;; infinite. ;;; The capacity from (x,y) to t is V*W[y,x]. ;;; F-RIGHT[y,x] is the preflow from (y,x) to (y,x+1) which is the negation of ;;; the preflow from (y,x+1) to (y,x). ;;; F-DOWN[y,x] is the preflow from (y,x) to (y+1,x) which is the negation of ;;; the preflow from (y+1,x) to (y,x). ;;; We do not record the preflow from s to (y,X-1), (y,0), (Y-1,x), and (0,x) ;;; and from (y,X-1), (y,0), (Y-1,x), and (0,x) to s. ;;; F-T[y,x] is the preflow from (y,x) to t. ;;; We do not record the preflow from t to (y,x). ;;; {C,F}-RIGHT[0:Y-1,0:X-2]. ;;; {C,F}-DOWN[0:Y-2,0:X-1]. ;;; F-T[0:Y-1,0:X-1] ;;; For now, we will keep all capacities (and thus all preflows) as integers. ;;; (CF-RIGHT y x) is the residual capacity from (y,x) to (y,x+1). ;;; (CF-LEFT y x) is the residual capacity from (y,x) to (y,x-1). ;;; (CF-DOWN y x) is the residual capacity from (y,x) to (y+1,x). ;;; (CF-UP y x) is the residual capacity from (y,x) to (y-1,x). ;;; We do not compute the residual capacities from s to (y,X-1), (y,0), ;;; (Y-1,x), and (0,x) because they are all infinite. ;;; We do not compute the residual capacities from (y,X-1), (y,0), (Y-1,x), ;;; and (0,x) to s because they will never be used. ;;; (CF-T y x) is the residual capacity from (y,x) to t. ;;; We do not compute the residual capacity from t to (y,x) because it will ;;; be used. ;;; (EF-RIGHT? y x) is true if there is an edge from (y,x) to (y,x+1) in the ;;; residual network. ;;; (EF-LEFT? y x) is true if there is an edge from (y,x) to (y,x-1) in the ;;; residual network. ;;; (EF-DOWN? y x) is true if there is an edge from (y,x) to (y+1,x) in the ;;; residual network. ;;; (EF-UP? y x) is true if there is an edge from (y,x) to (y-1,x) in the ;;; residual network. ;;; (EF-T? y x) is true if there is an edge from (y,x) to t in the ;;; residual network. ;;; There are always edges in the residual network from s to (y,X-1), (y,0), ;;; (Y-1,x), and (0,x). ;;; We don't care whether there are edges in the residual network from ;;; (y,X-1), (y,0), (Y-1,x), and (0,x) to s because they will never be used. ;;; We don't care whether there are edges in the residual network from t to ;;; (y,x) because they will never be used. (define (positive-min x y) (if (negative? x) y (min x y))) (define (positive- x y) (if (negative? x) x (- x y))) (define (positive+ x y) (if (negative? x) x (+ x y))) (define (rao-ratio-region c-right c-down w lg-max-v) (let* ((height (matrix-rows w)) (width (matrix-columns w)) (f-right (make-matrix height (- width 1) 0)) (f-down (make-matrix (- height 1) width 0)) (f-t (make-matrix height width 0)) (h (make-matrix height width 0)) (e (make-matrix height width 0)) (marked? (make-matrix height width #f)) (m1 (+ (* height width) 2)) (m2 (+ (* 2 height width) 2)) (q (make-vector (+ (* 2 height width) 3) '()))) (define (cf-right y x) (- (matrix-ref c-right y x) (matrix-ref f-right y x))) (define (cf-left y x) (+ (matrix-ref c-right y (- x 1)) (matrix-ref f-right y (- x 1)))) (define (cf-down y x) (- (matrix-ref c-down y x) (matrix-ref f-down y x))) (define (cf-up y x) (+ (matrix-ref c-down (- y 1) x) (matrix-ref f-down (- y 1) x))) (define (ef-right? y x) (positive? (cf-right y x))) (define (ef-left? y x) (positive? (cf-left y x))) (define (ef-down? y x) (positive? (cf-down y x))) (define (ef-up? y x) (positive? (cf-up y x))) (define (preflow-push! v) (define (enqueue! y x) (if (not (matrix-ref marked? y x)) (begin (vector-set! q (matrix-ref h y x) (cons (vector x y) (vector-ref q (matrix-ref h y x)))) (matrix-set! marked? y x #t)))) (define (cf-t y x) (- (* v (matrix-ref w y x)) (matrix-ref f-t y x))) (define (ef-t? y x) (positive? (cf-t y x))) (define (can-push-right? y x) (and (< x (- width 1)) (not (zero? (matrix-ref e y x))) (ef-right? y x) (= (matrix-ref h y x) (+ (matrix-ref h y (+ x 1)) 1)))) (define (can-push-left? y x) (and (> x 0) (not (zero? (matrix-ref e y x))) (ef-left? y x) (= (matrix-ref h y x) (+ (matrix-ref h y (- x 1)) 1)))) (define (can-push-down? y x) (and (< y (- height 1)) (not (zero? (matrix-ref e y x))) (ef-down? y x) (= (matrix-ref h y x) (+ (matrix-ref h (+ y 1) x) 1)))) (define (can-push-up? y x) (and (> y 0) (not (zero? (matrix-ref e y x))) (ef-up? y x) (= (matrix-ref h y x) (+ (matrix-ref h (- y 1) x) 1)))) (define (can-push-t? y x) (and (not (zero? (matrix-ref e y x))) (ef-t? y x) (= (matrix-ref h y x) 1))) (define (can-lift? y x) (and (not (zero? (matrix-ref e y x))) (if (= x (- width 1)) (<= (matrix-ref h y x) m1) (or (not (ef-right? y x)) (<= (matrix-ref h y x) (matrix-ref h y (+ x 1))))) (if (= x 0) (<= (matrix-ref h y x) m1) (or (not (ef-left? y x)) (<= (matrix-ref h y x) (matrix-ref h y (- x 1))))) (if (= y (- height 1)) (<= (matrix-ref h y x) m1) (or (not (ef-down? y x)) (<= (matrix-ref h y x) (matrix-ref h (+ y 1) x)))) (if (= y 0) (<= (matrix-ref h y x) m1) (or (not (ef-up? y x)) (<= (matrix-ref h y x) (matrix-ref h (- y 1) x)))) (or (not (ef-t? y x)) (= (matrix-ref h y x) 0)))) (define (push-right! y x) ;;(pormat "Push right ~s ~s~%" y x) (let ((df-u-v (positive-min (matrix-ref e y x) (cf-right y x)))) (matrix-set! f-right y x (+ (matrix-ref f-right y x) df-u-v)) (matrix-set! e y x (positive- (matrix-ref e y x) df-u-v)) (matrix-set! e y (+ x 1) (positive+ (matrix-ref e y (+ x 1)) df-u-v)) (enqueue! y (+ x 1)))) (define (push-left! y x) ;;(pormat "Push left ~s ~s~%" y x) (let ((df-u-v (positive-min (matrix-ref e y x) (cf-left y x)))) (matrix-set! f-right y (- x 1) (- (matrix-ref f-right y (- x 1)) df-u-v)) (matrix-set! e y x (positive- (matrix-ref e y x) df-u-v)) (matrix-set! e y (- x 1) (positive+ (matrix-ref e y (- x 1)) df-u-v)) (enqueue! y (- x 1)))) (define (push-down! y x) ;;(pormat "Push down ~s ~s~%" y x) (let ((df-u-v (positive-min (matrix-ref e y x) (cf-down y x)))) (matrix-set! f-down y x (+ (matrix-ref f-down y x) df-u-v)) (matrix-set! e y x (positive- (matrix-ref e y x) df-u-v)) (matrix-set! e (+ y 1) x (positive+ (matrix-ref e (+ y 1) x) df-u-v)) (enqueue! (+ y 1) x))) (define (push-up! y x) ;;(pormat "Push up ~s ~s~%" y x) (let ((df-u-v (positive-min (matrix-ref e y x) (cf-up y x)))) (matrix-set! f-down (- y 1) x (- (matrix-ref f-down (- y 1) x) df-u-v)) (matrix-set! e y x (positive- (matrix-ref e y x) df-u-v)) (matrix-set! e (- y 1) x (positive+ (matrix-ref e (- y 1) x) df-u-v)) (enqueue! (- y 1) x))) (define (push-t! y x) ;;(pormat "Push t ~s ~s~%" y x) (let ((df-u-v (positive-min (matrix-ref e y x) (cf-t y x)))) (matrix-set! f-t y x (+ (matrix-ref f-t y x) df-u-v)) (matrix-set! e y x (positive- (matrix-ref e y x) df-u-v)))) (define (lift! y x) ;;(pormat "Lift ~s ~s~%" y x) (matrix-set! h y x (+ 1 (min (if (= x (- width 1)) m1 (if (ef-right? y x) (matrix-ref h y (+ x 1)) m2)) (if (= x 0) m1 (if (ef-left? y x) (matrix-ref h y (- x 1)) m2)) (if (= y (- height 1)) m1 (if (ef-down? y x) (matrix-ref h (+ y 1) x) m2)) (if (= y 0) m1 (if (ef-up? y x) (matrix-ref h (- y 1) x) m2)) (if (ef-t? y x) 0 m2))))) (define (relabel!) ;;(pormat "Relabel~%") (let ((q '()) (tail #f)) (define (enqueue! y x value) (if (< value (matrix-ref h y x)) (begin (matrix-set! h y x value) (if (not (matrix-ref marked? y x)) (begin (matrix-set! marked? y x #t) (cond ((eq? tail #f) (set! tail (cons (vector x y) '())) (set! q tail)) (else (set-cdr! tail (cons (vector x y) '())) (set! tail (cdr tail))))))))) (define (dequeue!) (let ((p (first q))) (matrix-set! marked? (y p) (x p) #f) (set! q (rest q)) (if (null? q) (set! tail #f)) p)) (do ((y 0 (+ y 1))) ((>= y height)) (do ((x 0 (+ x 1))) ((>= x width)) (matrix-set! h y x m1) (matrix-set! marked? y x #f))) (do ((y 0 (+ y 1))) ((>= y height)) (do ((x 0 (+ x 1))) ((>= x width)) (if (and (ef-t? y x) (> (matrix-ref h y x) 1)) (enqueue! y x 1)))) (let loop () (if (not (null? q)) (begin (let* ((p (dequeue!)) (x (x p)) (y (y p)) (value (+ (matrix-ref h y x) 1))) (if (and (> x 0) (ef-right? y (- x 1))) (enqueue! y (- x 1) value)) (if (and (< x (- width 1)) (ef-left? y (+ x 1))) (enqueue! y (+ x 1) value)) (if (and (> y 0) (ef-down? (- y 1) x)) (enqueue! (- y 1) x value)) (if (and (< y (- height 1)) (ef-up? (+ y 1) x)) (enqueue! (+ y 1) x value))) (loop)))))) (do ((y 0 (+ y 1))) ((>= y height)) (do ((x 0 (+ x 1))) ((>= x width)) (matrix-set! e y x 0) (matrix-set! f-t y x 0))) (do ((y 0 (+ y 1))) ((>= y height)) (do ((x 0 (+ x 1))) ((>= x (- width 1))) (matrix-set! f-right y x 0))) (do ((y 0 (+ y 1))) ((>= y (- height 1))) (do ((x 0 (+ x 1))) ((>= x width)) (matrix-set! f-down y x 0))) (do ((y 0 (+ y 1))) ((>= y height)) (matrix-set! e y (- width 1) -1) (matrix-set! e y 0 -1)) (do ((x 1 (+ x 1))) ((>= x (- width 1))) (matrix-set! e (- height 1) x -1) (matrix-set! e 0 x -1)) (let ((pushes 0) (lifts 0) (relabels 0)) (let loop ((i 0) (p? #f)) (cond ((and (zero? (modulo i 6)) (not p?)) (relabel!) (set! relabels (+ relabels 1)) (cond ((every-n (lambda (y) (every-n (lambda (x) (or (zero? (matrix-ref e y x)) (= (matrix-ref h y x) m1))) width)) height) ;; Every vertex with excess capacity is not reachable from the sink in ;; the inverse residual network. So terminate early because we have ;; already found a min cut. In this case, the preflows and excess ;; capacities will not be correct. But the cut is indicated by the ;; heights. Vertices reachable from the source have height ;; (+ (* HEIGHT WIDTH) 2) while vertices reachable from the sink have ;; smaller height. Early termination is necessary with relabeling to ;; prevent an infinite loop. The loop arises because vertices that are ;; not reachable from the sink in the inverse residual network have ;; their height reset to (+ (* HEIGHT WIDTH) 2) by the relabeling ;; process. If there are such vertices with excess capacity, this is ;; not high enough for the excess capacity to be pushed back to the ;; perimeter. So after relabeling, vertices get lifted to try to push ;; excess capacity back to the perimeter but then a relabeling happens ;; to soon and foils this lifting. Terminating when all vertices with ;; excess capacity are not reachable from the sink in the inverse ;; residual network eliminates this problem. (pormat "~s push~a, ~s lift~a, ~s relabel~a, ~s wave~a, terminated early~%" pushes (if (= pushes 1) "" "es") lifts (if (= lifts 1) "" "s") relabels (if (= relabels 1) "" "s") i (if (= i 1) "" "s"))) (else ;; We need to rebuild the priority queue after relabeling since the ;; heights might have changed and the priority queue is indexed by ;; height. This also assumes that a relabel is done before any pushes ;; or lifts. (do ((k 0 (+ k 1))) ((>= k (vector-length q))) (vector-set! q k '())) (do ((y 0 (+ y 1))) ((>= y height)) (do ((x 0 (+ x 1))) ((>= x width)) (matrix-set! marked? y x #f))) (do ((y 0 (+ y 1))) ((>= y height)) (do ((x 0 (+ x 1))) ((>= x width)) (if (not (zero? (matrix-ref e y x))) (enqueue! y x)))) (loop i #t)))) ((some-vector (lambda (ps) (some (lambda (p) (let ((x (x p)) (y (y p))) (or (can-push-right? y x) (can-push-left? y x) (can-push-down? y x) (can-push-up? y x) (can-push-t? y x) (can-lift? y x)))) ps)) q) (let loop ((k (- (vector-length q) 1))) (if (not (negative? k)) (begin (let ((ps (vector-ref q k))) (vector-set! q k '()) (for-each (lambda (p) (matrix-set! marked? (y p) (x p) #f)) ps) (for-each (lambda (p) (let ((x (x p)) (y (y p))) (if (can-push-right? y x) (begin (set! pushes (+ pushes 1)) (push-right! y x))) (if (can-push-left? y x) (begin (set! pushes (+ pushes 1)) (push-left! y x))) (if (can-push-down? y x) (begin (set! pushes (+ pushes 1)) (push-down! y x))) (if (can-push-up? y x) (begin (set! pushes (+ pushes 1)) (push-up! y x))) (if (can-push-t? y x) (begin (set! pushes (+ pushes 1)) (push-t! y x))) (if (can-lift? y x) (begin (set! lifts (+ lifts 1)) (lift! y x))) (if (not (zero? (matrix-ref e y x))) (enqueue! y x)))) ps)) (loop (- k 1))))) (loop (+ i 1) #f)) (else ;; This is so MIN-CUT and MIN-CUT-INCLUDES-EVERY-EDGE-TO-T? work. (relabel!) (set! relabels (+ relabels 1)) (pormat "~s push~a, ~s lift~a, ~s relabel~a, ~s wave~a~%" pushes (if (= pushes 1) "" "es") lifts (if (= lifts 1) "" "s") relabels (if (= relabels 1) "" "s") i (if (= i 1) "" "s"))))))) (define (min-cut-includes-every-edge-to-t?) ;; This requires that a relabel was done immediately before returning from ;; PREFLOW-PUSH!. (every-n (lambda (y) (every-n (lambda (x) (= (matrix-ref h y x) m1)) width)) height)) (define (min-cut) ;; This requires that a relabel was done immediately before returning from ;; PREFLOW-PUSH!. (map-n-vector (lambda (y) (map-n-vector (lambda (x) (not (= (matrix-ref h y x) m1))) width)) height)) (let loop ((lg-v lg-max-v) (v-max 0)) (cond ((negative? lg-v) (pormat "V-MAX=~s~%" v-max) (preflow-push! (+ v-max 1)) (min-cut)) (else (let ((v (+ v-max (let loop ((i lg-v) (c 1)) (if (zero? i) c (loop (- i 1) (+ c c))))))) (pormat "LG-V=~s, V-MAX=~s, V=~s~%" lg-v v-max v) (preflow-push! v) (loop (- lg-v 1) (if (min-cut-includes-every-edge-to-t?) v v-max)))))))) (let* ((height 512) (width 512) (lg-max-v 15) (c-right (make-matrix height (- width 1))) (c-down (make-matrix (- height 1) width))) (do ((y 0 (+ y 1))) ((>= y height)) (do ((x 0 (+ x 1))) ((>= x (- width 1))) (matrix-set! c-right y x (if (and (>= y (quotient height 4)) (< y (quotient (* 3 height) 4)) (or (= x (- (quotient width 4) 1)) (= x (- (quotient (* 3 width) 4) 1)))) 1 128)))) (do ((y 0 (+ y 1))) ((>= y (- height 1))) (do ((x 0 (+ x 1))) ((>= x width)) (matrix-set! c-down y x (if (and (>= x (quotient width 4)) (< x (quotient (* 3 width) 4)) (or (= y (- (quotient height 4) 1)) (= y (- (quotient (* 3 height) 4) 1)))) 1 128)))) (rao-ratio-region c-right c-down (make-matrix height width 1) lg-max-v)) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/benchmarks/sboyer.sc0000600017435200151030000004525207244422410015347 0ustar qobiqobi;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: sboyer.sc ;;; Description: The Boyer benchmark ;;; Author: Bob Boyer ;;; Created: 5-Apr-85 ;;; Modified: 10-Apr-85 14:52:20 (Bob Shaw) ;;; 22-Jul-87 (Will Clinger) ;;; 2-Jul-88 (Will Clinger -- distinguished #f and the empty ;;; list) ;;; 13-Feb-97 (Will Clinger -- fixed bugs in unifier and rules, ;;; rewrote to eliminate property lists, and added ;;; a scaling parameter suggested by Bob Boyer) ;;; 19-Mar-99 (Will Clinger -- cleaned up comments) ;;; Language: Scheme ;;; Status: Public Domain ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; SBOYER -- Logic programming benchmark, originally written by Bob Boyer. ;;; Much less CONS-intensive than NBOYER because it uses Henry Baker's ;;; "sharing cons". ;;; Note: The version of this benchmark that appears in Dick Gabriel's book ;;; contained several bugs that are corrected here. These bugs are discussed ;;; by Henry Baker, "The Boyer Benchmark Meets Linear Logic", ACM SIGPLAN Lisp ;;; Pointers 6(4), October-December 1993, pages 3-10. The fixed bugs are: ;;; ;;; The benchmark now returns a boolean result. ;;; FALSEP and TRUEP use TERM-MEMBER? rather than MEMV (which is called ;;; MEMBER in Common Lisp) ;;; ONE-WAY-UNIFY1 now treats numbers correctly ;;; ONE-WAY-UNIFY1-LST now treats empty lists correctly ;;; Rule 19 has been corrected (this rule was not touched by the original ;;; benchmark, but is used by this version) ;;; Rules 84 and 101 have been corrected (but these rules are never touched ;;; by the benchmark) ;;; ;;; According to Baker, these bug fixes make the benchmark 10-25% slower. ;;; Please do not compare the timings from this benchmark against those of ;;; the original benchmark. ;;; ;;; This version of the benchmark also prints the number of rewrites as a ;;; sanity check, because it is too easy for a buggy version to return the ;;; correct boolean result. The correct number of rewrites is ;;; ;;; n rewrites peak live storage (approximate, in bytes) ;;; 0 95024 ;;; 1 591777 ;;; 2 1813975 ;;; 3 5375678 ;;; 4 16445406 ;;; 5 51507739 ;;; Sboyer is a 2-phase benchmark. ;;; The first phase attaches lemmas to symbols. This phase is not timed, ;;; but it accounts for very little of the runtime anyway. ;;; The second phase creates the test problem, and tests to see ;;; whether it is implied by the lemmas. ;;; begin Scheme->C (define (panic s) (error 'panic s)) ;;; end Scheme->C ;;; begin Gambit-C (define (panic s) (error s)) ;;; end Gambit-C ;;; begin Bigloo (define (panic s) (error s 'panic 'panic)) ;;; end Bigloo ;;; begin Chez (define (panic s) (error 'panic s)) ;;; end Chez ;;; begin Chicken (define (panic s) (error s)) ;;; end Chicken (define (run-benchmark name count run ok?) (if (not (ok? (run-bench name count run ok?))) (begin (display "*** wrong result ***") (newline)) (begin (display "*** right result ***") (newline)))) (define (run-bench name count run ok?) (let loop ((i 0) (result (list 'undefined))) (if (< i count) (loop (+ i 1) (run)) result))) (define (sboyer-benchmark . args) (let ((n (if (null? args) 0 (car args)))) (setup-boyer) (run-benchmark (string-append "sboyer" (number->string n)) 1 (lambda () (test-boyer n)) (lambda (rewrites) (and (number? rewrites) (case n ((0) (= rewrites 95024)) ((1) (= rewrites 591777)) ((2) (= rewrites 1813975)) ((3) (= rewrites 5375678)) ((4) (= rewrites 16445406)) ((5) (= rewrites 51507739)) ;; If it works for n <= 5, assume it works. (else #t))))))) (define (setup-boyer) #t) ; assigned below (define (test-boyer) #t) ; assigned below ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; The first phase. ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; In the original benchmark, it stored a list of lemmas on the ;;; property lists of symbols. ;;; In the new benchmark, it maintains an association list of ;;; symbols and symbol-records, and stores the list of lemmas ;;; within the symbol-records. (let () (define (setup) (add-lemma-lst '((equal (compile form) (reverse (codegen (optimize form) (nil)))) (equal (eqp x y) (equal (fix x) (fix y))) (equal (greaterp x y) (lessp y x)) (equal (lesseqp x y) (not (lessp y x))) (equal (greatereqp x y) (not (lessp x y))) (equal (boolean x) (or (equal x (t)) (equal x (f)))) (equal (iff x y) (and (implies x y) (implies y x))) (equal (even1 x) (if (zerop x) (t) (odd (sub1 x)))) (equal (countps- l pred) (countps-loop l pred (zero))) (equal (fact- i) (fact-loop i 1)) (equal (reverse- x) (reverse-loop x (nil))) (equal (divides x y) (zerop (remainder y x))) (equal (assume-true var alist) (cons (cons var (t)) alist)) (equal (assume-false var alist) (cons (cons var (f)) alist)) (equal (tautology-checker x) (tautologyp (normalize x) (nil))) (equal (falsify x) (falsify1 (normalize x) (nil))) (equal (prime x) (and (not (zerop x)) (not (equal x (add1 (zero)))) (prime1 x (sub1 x)))) (equal (and p q) (if p (if q (t) (f)) (f))) (equal (or p q) (if p (t) (if q (t) (f)))) (equal (not p) (if p (f) (t))) (equal (implies p q) (if p (if q (t) (f)) (t))) (equal (fix x) (if (numberp x) x (zero))) (equal (if (if a b c) d e) (if a (if b d e) (if c d e))) (equal (zerop x) (or (equal x (zero)) (not (numberp x)))) (equal (plus (plus x y) z) (plus x (plus y z))) (equal (equal (plus a b) (zero)) (and (zerop a) (zerop b))) (equal (difference x x) (zero)) (equal (equal (plus a b) (plus a c)) (equal (fix b) (fix c))) (equal (equal (zero) (difference x y)) (not (lessp y x))) (equal (equal x (difference x y)) (and (numberp x) (or (equal x (zero)) (zerop y)))) (equal (meaning (plus-tree (append x y)) a) (plus (meaning (plus-tree x) a) (meaning (plus-tree y) a))) (equal (meaning (plus-tree (plus-fringe x)) a) (fix (meaning x a))) (equal (append (append x y) z) (append x (append y z))) (equal (reverse (append a b)) (append (reverse b) (reverse a))) (equal (times x (plus y z)) (plus (times x y) (times x z))) (equal (times (times x y) z) (times x (times y z))) (equal (equal (times x y) (zero)) (or (zerop x) (zerop y))) (equal (exec (append x y) pds envrn) (exec y (exec x pds envrn) envrn)) (equal (mc-flatten x y) (append (flatten x) y)) (equal (member x (append a b)) (or (member x a) (member x b))) (equal (member x (reverse y)) (member x y)) (equal (length (reverse x)) (length x)) (equal (member a (intersect b c)) (and (member a b) (member a c))) (equal (nth (zero) i) (zero)) (equal (exp i (plus j k)) (times (exp i j) (exp i k))) (equal (exp i (times j k)) (exp (exp i j) k)) (equal (reverse-loop x y) (append (reverse x) y)) (equal (reverse-loop x (nil)) (reverse x)) (equal (count-list z (sort-lp x y)) (plus (count-list z x) (count-list z y))) (equal (equal (append a b) (append a c)) (equal b c)) (equal (plus (remainder x y) (times y (quotient x y))) (fix x)) (equal (power-eval (big-plus1 l i base) base) (plus (power-eval l base) i)) (equal (power-eval (big-plus x y i base) base) (plus i (plus (power-eval x base) (power-eval y base)))) (equal (remainder y 1) (zero)) (equal (lessp (remainder x y) y) (not (zerop y))) (equal (remainder x x) (zero)) (equal (lessp (quotient i j) i) (and (not (zerop i)) (or (zerop j) (not (equal j 1))))) (equal (lessp (remainder x y) x) (and (not (zerop y)) (not (zerop x)) (not (lessp x y)))) (equal (power-eval (power-rep i base) base) (fix i)) (equal (power-eval (big-plus (power-rep i base) (power-rep j base) (zero) base) base) (plus i j)) (equal (gcd x y) (gcd y x)) (equal (nth (append a b) i) (append (nth a i) (nth b (difference i (length a))))) (equal (difference (plus x y) x) (fix y)) (equal (difference (plus y x) x) (fix y)) (equal (difference (plus x y) (plus x z)) (difference y z)) (equal (times x (difference c w)) (difference (times c x) (times w x))) (equal (remainder (times x z) z) (zero)) (equal (difference (plus b (plus a c)) a) (plus b c)) (equal (difference (add1 (plus y z)) z) (add1 y)) (equal (lessp (plus x y) (plus x z)) (lessp y z)) (equal (lessp (times x z) (times y z)) (and (not (zerop z)) (lessp x y))) (equal (lessp y (plus x y)) (not (zerop x))) (equal (gcd (times x z) (times y z)) (times z (gcd x y))) (equal (value (normalize x) a) (value x a)) (equal (equal (flatten x) (cons y (nil))) (and (nlistp x) (equal x y))) (equal (listp (gopher x)) (listp x)) (equal (samefringe x y) (equal (flatten x) (flatten y))) (equal (equal (greatest-factor x y) (zero)) (and (or (zerop y) (equal y 1)) (equal x (zero)))) (equal (equal (greatest-factor x y) 1) (equal x 1)) (equal (numberp (greatest-factor x y)) (not (and (or (zerop y) (equal y 1)) (not (numberp x))))) (equal (times-list (append x y)) (times (times-list x) (times-list y))) (equal (prime-list (append x y)) (and (prime-list x) (prime-list y))) (equal (equal z (times w z)) (and (numberp z) (or (equal z (zero)) (equal w 1)))) (equal (greatereqp x y) (not (lessp x y))) (equal (equal x (times x y)) (or (equal x (zero)) (and (numberp x) (equal y 1)))) (equal (remainder (times y x) y) (zero)) (equal (equal (times a b) 1) (and (not (equal a (zero))) (not (equal b (zero))) (numberp a) (numberp b) (equal (sub1 a) (zero)) (equal (sub1 b) (zero)))) (equal (lessp (length (delete x l)) (length l)) (member x l)) (equal (sort2 (delete x l)) (delete x (sort2 l))) (equal (dsort x) (sort2 x)) (equal (length (cons x1 (cons x2 (cons x3 (cons x4 (cons x5 (cons x6 x7))))))) (plus 6 (length x7))) (equal (difference (add1 (add1 x)) 2) (fix x)) (equal (quotient (plus x (plus x y)) 2) (plus x (quotient y 2))) (equal (sigma (zero) i) (quotient (times i (add1 i)) 2)) (equal (plus x (add1 y)) (if (numberp y) (add1 (plus x y)) (add1 x))) (equal (equal (difference x y) (difference z y)) (if (lessp x y) (not (lessp y z)) (if (lessp z y) (not (lessp y x)) (equal (fix x) (fix z))))) (equal (meaning (plus-tree (delete x y)) a) (if (member x y) (difference (meaning (plus-tree y) a) (meaning x a)) (meaning (plus-tree y) a))) (equal (times x (add1 y)) (if (numberp y) (plus x (times x y)) (fix x))) (equal (nth (nil) i) (if (zerop i) (nil) (zero))) (equal (last (append a b)) (if (listp b) (last b) (if (listp a) (cons (car (last a)) b) b))) (equal (equal (lessp x y) z) (if (lessp x y) (equal (t) z) (equal (f) z))) (equal (assignment x (append a b)) (if (assignedp x a) (assignment x a) (assignment x b))) (equal (car (gopher x)) (if (listp x) (car (flatten x)) (zero))) (equal (flatten (cdr (gopher x))) (if (listp x) (cdr (flatten x)) (cons (zero) (nil)))) (equal (quotient (times y x) y) (if (zerop y) (zero) (fix x))) (equal (get j (set i val mem)) (if (eqp j i) val (get j mem)))))) (define (add-lemma-lst lst) (cond ((null? lst) #t) (else (add-lemma (car lst)) (add-lemma-lst (cdr lst))))) (define (add-lemma term) (cond ((and (pair? term) (eq? (car term) 'equal) (pair? (cadr term))) (put (car (cadr term)) 'lemmas (cons (translate-term term) (get (car (cadr term)) 'lemmas)))) (else (panic "ADD-LEMMA did not like term: ")))) ;; Translates a term by replacing its constructor symbols by symbol-records. (define (translate-term term) (cond ((not (pair? term)) term) (else (cons (symbol->symbol-record (car term)) (translate-args (cdr term)))))) (define (translate-args lst) (cond ((null? lst) '()) (else (cons (translate-term (car lst)) (translate-args (cdr lst)))))) ;; For debugging only, so the use of MAP does not change ;; the first-order character of the benchmark. (define (untranslate-term term) (cond ((not (pair? term)) term) (else (cons (get-name (car term)) (map untranslate-term (cdr term)))))) ;; A symbol-record is represented as a vector with two fields: ;; the symbol (for debugging) and ;; the list of lemmas associated with the symbol. (define (put sym property value) (put-lemmas! (symbol->symbol-record sym) value)) (define (get sym property) (get-lemmas (symbol->symbol-record sym))) (define (symbol->symbol-record sym) (let ((x (assq sym *symbol-records-alist*))) (if x (cdr x) (let ((r (make-symbol-record sym))) (set! *symbol-records-alist* (cons (cons sym r) *symbol-records-alist*)) r)))) ;; Association list of symbols and symbol-records. (define *symbol-records-alist* '()) ;; A symbol-record is represented as a vector with two fields: ;; the symbol (for debugging) and ;; the list of lemmas associated with the symbol. (define (make-symbol-record sym) (vector sym '())) (define (put-lemmas! symbol-record lemmas) (vector-set! symbol-record 1 lemmas)) (define (get-lemmas symbol-record) (vector-ref symbol-record 1)) (define (get-name symbol-record) (vector-ref symbol-record 0)) (define (symbol-record-equal? r1 r2) (eq? r1 r2)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; The second phase. ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (test n) (let ((term (apply-subst (translate-alist '((x f (plus (plus a b) (plus c (zero)))) (y f (times (times a b) (plus c d))) (z f (reverse (append (append a b) (nil)))) (u equal (plus a b) (difference x y)) (w lessp (remainder a b) (member a (length b))))) (translate-term (do ((term '(implies (and (implies x y) (and (implies y z) (and (implies z u) (implies u w)))) (implies x w)) (list 'or term '(f))) (n n (- n 1))) ((zero? n) term)))))) (tautp term))) (define (translate-alist alist) (cond ((null? alist) '()) (else (cons (cons (caar alist) (translate-term (cdar alist))) (translate-alist (cdr alist)))))) (define (apply-subst alist term) (cond ((not (pair? term)) (let ((temp-temp (assq term alist))) (if temp-temp (cdr temp-temp) term))) (else (cons (car term) (apply-subst-lst alist (cdr term)))))) (define (apply-subst-lst alist lst) (cond ((null? lst) '()) (else (cons (apply-subst alist (car lst)) (apply-subst-lst alist (cdr lst)))))) (define (tautp x) (tautologyp (rewrite x) '() '())) (define (tautologyp x true-lst false-lst) (cond ((truep x true-lst) #t) ((falsep x false-lst) #f) ((not (pair? x)) #f) ((eq? (car x) if-constructor) (cond ((truep (cadr x) true-lst) (tautologyp (caddr x) true-lst false-lst)) ((falsep (cadr x) false-lst) (tautologyp (cadddr x) true-lst false-lst)) (else (and (tautologyp (caddr x) (cons (cadr x) true-lst) false-lst) (tautologyp (cadddr x) true-lst (cons (cadr x) false-lst)))))) (else #f))) (define if-constructor '*) ; becomes (symbol->symbol-record 'if) (define rewrite-count 0) ; sanity check ;; The next procedure is Henry Baker's sharing CONS, which avoids ;; allocation if the result is already in hand. ;; The REWRITE and REWRITE-ARGS procedures have been modified to ;; use SCONS instead of CONS. (define (scons x y original) (if (and (eq? x (car original)) (eq? y (cdr original))) original (cons x y))) (define (rewrite term) (set! rewrite-count (+ rewrite-count 1)) (cond ((not (pair? term)) term) (else (rewrite-with-lemmas (scons (car term) (rewrite-args (cdr term)) term) (get-lemmas (car term)))))) (define (rewrite-args lst) (cond ((null? lst) '()) (else (scons (rewrite (car lst)) (rewrite-args (cdr lst)) lst)))) (define (rewrite-with-lemmas term lst) (cond ((null? lst) term) ((one-way-unify term (cadr (car lst))) (rewrite (apply-subst unify-subst (caddr (car lst))))) (else (rewrite-with-lemmas term (cdr lst))))) (define unify-subst '*) (define (one-way-unify term1 term2) (begin (set! unify-subst '()) (one-way-unify1 term1 term2))) (define (one-way-unify1 term1 term2) (cond ((not (pair? term2)) (let ((temp-temp (assq term2 unify-subst))) (cond (temp-temp (term-equal? term1 (cdr temp-temp))) ((number? term2) ; This bug fix makes (equal? term1 term2)) ; nboyer 10-25% slower! (else (set! unify-subst (cons (cons term2 term1) unify-subst)) #t)))) ((not (pair? term1)) #f) ((eq? (car term1) (car term2)) (one-way-unify1-lst (cdr term1) (cdr term2))) (else #f))) (define (one-way-unify1-lst lst1 lst2) (cond ((null? lst1) (null? lst2)) ((null? lst2) #f) ((one-way-unify1 (car lst1) (car lst2)) (one-way-unify1-lst (cdr lst1) (cdr lst2))) (else #f))) (define (falsep x lst) (or (term-equal? x false-term) (term-member? x lst))) (define (truep x lst) (or (term-equal? x true-term) (term-member? x lst))) (define false-term '*) ; becomes (translate-term '(f)) (define true-term '*) ; becomes (translate-term '(t)) ;; The next two procedures were in the original benchmark ;; but were never used. (define (trans-of-implies n) (translate-term (list 'implies (trans-of-implies1 n) (list 'implies 0 n)))) (define (trans-of-implies1 n) (cond ((equal? n 1) (list 'implies 0 1)) (else (list 'and (list 'implies (- n 1) n) (trans-of-implies1 (- n 1)))))) ;; Translated terms can be circular structures, which can't be ;; compared using Scheme's equal? and member procedures, so we ;; use these instead. (define (term-equal? x y) (cond ((pair? x) (and (pair? y) (symbol-record-equal? (car x) (car y)) (term-args-equal? (cdr x) (cdr y)))) (else (equal? x y)))) (define (term-args-equal? lst1 lst2) (cond ((null? lst1) (null? lst2)) ((null? lst2) #f) ((term-equal? (car lst1) (car lst2)) (term-args-equal? (cdr lst1) (cdr lst2))) (else #f))) (define (term-member? x lst) (cond ((null? lst) #f) ((term-equal? x (car lst)) #t) (else (term-member? x (cdr lst))))) (set! setup-boyer (lambda () (set! *symbol-records-alist* '()) (set! if-constructor (symbol->symbol-record 'if)) (set! false-term (translate-term '(f))) (set! true-term (translate-term '(t))) (setup))) (set! test-boyer (lambda (n) (set! rewrite-count 0) (let ((answer (test n))) (write rewrite-count) (display " rewrites") (newline) (if answer rewrite-count #f))))) (sboyer-benchmark 5) stalin-0.11/benchmarks/run.text0000600017435200151030002455327107067154766015265 0ustar qobiqobiqobi@howard>./make-hello;./make-xhello;./make-define-application-example;./compile-and-run-stalin-old-benchmarks;./compile-and-run-stalin-fdlcc-benchmarks;./compile-and-run-stalin-bcl-benchmarks Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 14617 expressions 0 internal symbol types 0 external symbol types 23 primitive procedure types 213 non-called native procedure types 244 called noop native procedure types 22 called non-noop native procedure types 0 foreign procedure types 0 continuation types 1 string type 0 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 16677 type sets 590 hunoz variables 1468 non-hunoz variables 466 noop environments 1539 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 14617 expressions 0 internal symbol types 0 external symbol types 23 primitive procedure types 213 non-called native procedure types 244 called noop native procedure types 22 called non-noop native procedure types 0 foreign procedure types 0 continuation types 1 string type 0 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 16677 type sets 590 hunoz variables 1468 non-hunoz variables 466 noop environments 1539 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 1 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 1313 expressions 0 internal symbol types 0 external symbol types 23 primitive procedure types 213 non-called native procedure types 244 called noop native procedure types 22 called non-noop native procedure types 0 foreign procedure types 0 continuation types 1 string type 0 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 2017 type sets 245 hunoz variables 457 non-hunoz variables 0 noop environments 22 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 1 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedure will be generated: [inside top level 0] has the following in-lined locals: STRING{1745} PORT{1746} N{1747} I{1750} OBJ{1834} PORT{1835} OBJ{2045} The following non-trivial in-line native procedures will be generated: DISPLAY[1759] has the following parameter: OBJ{2045} local DISPLAY2[1408] has the following parameters: OBJ{1834} local PORT{1835} local LOOP[1276] has the following parameter: I{1750} local [inside DISPLAY-STRING2 1273] has the following parameter: N{1747} local DISPLAY-STRING2[1272] has the following parameters: STRING{1745} local PORT{1746} local [inside top level 1268] has the following parameter: THE-CURRENT-OUTPUT-PORT{1706} global Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W14618 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 29% - Expanding macros 0 - 0% - Fast tree shake 0 - 5% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 1% - Annotating expressions with their environments 0 - 7% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 2 - 31% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 2% - Determining which types and type sets are used 0 - 1% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 0% - Determining which environments are called more than once 0 - 4% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 0 - 4% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 0% - Determining which environments are recursive 0 - 1% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 0 - 3% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 3% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 0 - 1% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 3% - Determining which type sets are squishable 0 - 0% - Determining alignments 0 - 2% - Generating code 0 - 0% - Removing unused declarations 0 - 0% - Removing unused labels 0 - 2% - Writing database 0 - 0% - Compiling C code 6.730u 0.330s 0:08.24 85.6% 0+0k 0+0io 195529pf+0w Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 28983 expressions 0 internal symbol types 0 external symbol types 13 primitive procedure types 220 non-called native procedure types 3790 called noop native procedure types 25 called non-noop native procedure types 2653 foreign procedure types 0 continuation types 2 string types 0 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 38161 type sets 4149 hunoz variables 5027 non-hunoz variables 4014 noop environments 1559 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 1 Maximal clone rate is 1 Determining which call sites to split 1 pass of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 15540 expressions 0 internal symbol types 0 external symbol types 13 primitive procedure types 220 non-called native procedure types 3790 called noop native procedure types 25 called non-noop native procedure types 2653 foreign procedure types 0 continuation types 2 string types 0 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 23343 type sets 3802 hunoz variables 3999 non-hunoz variables 0 noop environments 25 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 1 Maximal clone rate is 1 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedure will be generated: [inside top level 0] has the following in-lined locals: GXCOPY{3536} EXPOSUREMASK{3730} BUTTONPRESSMASK{3743} DISPLAY{7759} SCREEN{7761} ROOT{7762} WINDOW{7763} FONT{7765} EVENT{7767} GC{7768} The following non-trivial in-line native procedures will be generated: [inside top level 15] has the following parameters: EVENT{7767} local GC{7768} local [inside top level 13] has the following parameter: FONT{7765} local [inside top level 10] has the following parameter: WINDOW{7763} local [inside top level 9] has the following parameter: ROOT{7762} local [inside top level 8] has the following parameter: SCREEN{7761} local [inside top level 6] has the following parameter: DISPLAY{7759} local [inside top level 4] has the following parameters: GXCOPY{3536} local EXPOSUREMASK{3730} local BUTTONPRESSMASK{3743} local The following expression, /home/qobi/stalin/stalin-0.9/include/xlib.sc:41:1616, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) 50) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W28984 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 1 - 1% - Reading source 17 - 17% - Expanding macros 8 - 8% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 3 - 3% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 35 - 35% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 0% - Determining which types and type sets are used 0 - 0% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 0% - Determining which environments are called more than once 2 - 2% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 1 - 1% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 0% - Determining which environments are recursive 0 - 0% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 1 - 1% - Performing lightweight closure conversion 0 - 0% - Determining parents 6 - 6% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 18 - 18% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 1 - 1% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 2 - 2% - Generating code 0 - 0% - Removing unused declarations 0 - 0% - Removing unused labels 3 - 3% - Writing database 0 - 0% - Compiling C code 101.650u 0.830s 1:50.59 92.6% 0+0k 0+0io 195271pf+0w Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 37227 expressions 9 internal symbol types 0 external symbol types 70 primitive procedure types 194 non-called native procedure types 4096 called noop native procedure types 680 called non-noop native procedure types 2673 foreign procedure types 4 continuation types 7 string types 101 structure types 7 headed vector types 1 nonheaded vector type 0 displaced vector types 47870 type sets 4959 hunoz variables 5471 non-hunoz variables 4324 noop environments 2187 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 40443 expressions 9 internal symbol types 0 external symbol types 70 primitive procedure types 206 non-called native procedure types 4137 called noop native procedure types 891 called non-noop native procedure types 2673 foreign procedure types 4 continuation types 14 string types 128 structure types 7 headed vector types 1 nonheaded vector type 0 displaced vector types 51491 type sets 5016 hunoz variables 5896 non-hunoz variables 4368 noop environments 2551 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 27 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 24752 expressions 9 internal symbol types 0 external symbol types 70 primitive procedure types 195 non-called native procedure types 4137 called noop native procedure types 891 called non-noop native procedure types 2673 foreign procedure types 4 continuation types 14 string types 128 structure types 7 headed vector types 1 nonheaded vector type 0 displaced vector types 34314 type sets 4462 hunoz variables 4964 non-hunoz variables 0 noop environments 1021 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 27 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: NUMBER->STRING[10635] has the following parameter: NUMBER{15392} local has the following in-lined locals: NUMBER{15414} CHARACTERS{15415} NUMBER{15418} CHARACTERS{15419} FOR-EACH[9995] reentrant has the following parameters: PROC{14976} local LIST1{14977} local has the following in-lined locals: C{9593} C{9689} BUTTON{13257} L{14152} C{14153} LIST1{14981} WINDOW{15975} X{15978} OBJS{16069} MAP[9971] reentrant has the following parameters: PROC{14951} local LIST1{14952} local has the following in-lined locals: HELP-ENTRY{13270} LIST{14325} LIST{14328} R{14329} STRING{14645} LIST1{14956} C{14957} PAIR{15604} PAIR{15630} PAIR{15631} PAIR{15632} LIST->STRING[9825] has the following parameter: LIST{14831} local has the following in-lined locals: R{14832} K{14836} LIST{16046} K{16049} LOOP[9823] reentrant has the following parameter: K{14830} local STRING->LIST[9819] has the following parameter: STRING{14826} global STRING-APPEND[9796] has the following parameter: STRINGS{14808} local has the following in-lined locals: R{14809} K{14810} STRINGS{14814} N{14815} L{14819} K{14824} STRINGS{14825} CHAR-LOWER-CASE?[9653] has the following parameter: LETTER{14630} local has the following in-lined locals: CHAR1{14557} CHAR2{14558} CHAR1{14562} CHAR2{14563} CHAR1{14566} CHAR2{14567} CHAR1{14571} CHAR2{14572} CHAR-ALPHABETIC?[9643] has the following parameter: CHAR{14620} local has the following in-lined locals: v{14621} CHAR1{15666} CHAR2{15667} CHAR1{15671} CHAR2{15672} CHAR1{15675} CHAR2{15676} CHAR1{15680} CHAR2{15681} CHAR1{15684} CHAR2{15685} CHAR1{15689} CHAR2{15690} CHAR1{15693} CHAR2{15694} CHAR1{15698} CHAR2{15699} ASSOC[9369] has the following parameters: OBJ{14351} local ALIST{14352} local LOOP[9280] reentrant has the following parameters: LIST1{14281} local LIST2{14282} local LISTS{14283} local LIST?[9222] has the following parameter: X{14241} local has the following in-lined locals: SLOW{14245} FAST{14246} v{14247} FAST{14248} v{14249} EQUAL?[9178] reentrant has the following parameters: OBJ1{14194} local OBJ2{14195} local has the following in-lined locals: v{14196} v{14197} OBJ1{15913} OBJ2{15914} v{15915} v{15916} [inside MAIN 4687] has the following parameters: X2{14150} local Y2{14151} local [inside MAIN 4680] has the following parameters: X2{14144} local Y2{14145} local HELP-COMMAND[4551] TRACKING-POINTER[4216] has the following parameter: TRACKER{13477} local has the following in-lined locals: Y{13478} X{13479} EVENT{13480} OLD-STATUS{13481} RESULT{13492} EVENT-TYPE{13501} EVENT-TYPE{13506} RESULT{13507} OBJS{15594} PAIR{15602} PAIR{15603} PAIR{15620} PAIR{15621} STRING{15971} STRING{15973} SAY[4179] has the following parameter: STRING{13455} local has the following in-lined local: OBJS{15596} [inside DEFINE-BUTTON 4170] reentrant has parent parameter [inside DEFINE-BUTTON 4166] has the following in-lined locals: TEXT{13447} BOLD?{13448} TEXT-WIDTH{13449} TEXT-X{13450} TEXT-Y{13451} v{14174} OBJ1{15898} v{15900} OBJ1{15903} v{15905} OBJ1{15908} v{15910} DEFINE-BUTTON[4165] has closure has the following parameters: X{13437} local Y{13438} local TEXT-PROCEDURE{13439} slotted BOLD?-PROCEDURE{13440} slotted METHOD{13441} slotted has the following in-lined locals: WINDOW{13249} METHOD{13251} OBJS{15600} WINDOW{15645} METHOD{15647} OBJS{16067} DEFINE-KEY[4151] has the following parameters: CHARACTER{13426} local DOCUMENTATION{13427} local COMMAND{13428} local has the following in-lined locals: L{10103} L{10106} C{10107} CHARACTERS{13433} COMTAB{13434} HELP{13436} OBJS{15598} PAIR{15615} PAIR{15616} PAIR{15617} PAIR{15618} PAIR{15638} PAIR{15639} PAIR{15640} PAIR{15641} PAIR{15642} PAIR{15643} PAIR{15644} S{15959} LIST{16060} LIST{16063} R{16064} META[4150] has the following parameter: CHARACTER{13425} local CONTROL[4128] has the following parameter: CHARACTER{13423} local has the following in-lined locals: CHARACTER{13424} CHAR1{15720} CHAR2{15721} CHAR1{15725} CHAR2{15726} CHAR1{15729} CHAR2{15730} CHAR1{15734} CHAR2{15735} CHAR1{15738} CHAR2{15739} CHAR1{15743} CHAR2{15744} CHAR1{15747} CHAR2{15748} CHAR1{15752} CHAR2{15753} CHAR1{15756} CHAR2{15757} CHAR1{15761} CHAR2{15762} CHAR1{15765} CHAR2{15766} CHAR1{15770} CHAR2{15771} CHAR1{15774} CHAR2{15775} CHAR1{15779} CHAR2{15780} CHAR1{15783} CHAR2{15784} CHAR1{15788} CHAR2{15789} CHAR1{15801} CHAR2{15802} CHAR1{15806} CHAR2{15807} CHAR1{15810} CHAR2{15811} CHAR1{15815} CHAR2{15816} CHAR1{15819} CHAR2{15820} CHAR1{15824} CHAR2{15825} CHAR1{15828} CHAR2{15829} CHAR1{15833} CHAR2{15834} CHAR1{15837} CHAR2{15838} CHAR1{15842} CHAR2{15843} CHAR1{15846} CHAR2{15847} CHAR1{15851} CHAR2{15852} CHAR1{15855} CHAR2{15856} CHAR1{15860} CHAR2{15861} CHAR1{15864} CHAR2{15865} CHAR1{15869} CHAR2{15870} ABORT[4126] QUIT[4124] EXECUTE-KEY[4073] has the following parameter: CHARACTER{13383} local has the following in-lined locals: COMMAND{13384} OLD-STATUS{13390} ABORT-CONTINUATION{13394} STRING{13457} STRING{13459} OBJS{14250} STRING{14799} START{14800} END{14801} R{14802} K{14806} OBJS{15593} STRING{15961} STRING{15983} START{15984} END{15985} R{15986} K{15990} STRING{15992} START{15993} END{15994} R{15995} K{15999} STRING{16001} START{16002} END{16003} R{16004} K{16008} STRING{16010} START{16011} END{16012} R{16013} K{16017} STRING{16019} START{16020} END{16021} R{16022} K{16026} STRING{16028} START{16029} END{16030} R{16031} K{16035} REGION-Y[4004] has the following parameter: S{13306} local REGION-X[3996] has the following parameter: S{13296} local REDRAW-MESSAGE-PANE[3989] reentrant has the following in-lined local: STRING{13289} REDRAW-STATUS-PANE[3985] REDRAW-ECHO-PANE[3981] REDRAW-TRANSCRIPT-PANE[3965] has the following in-lined locals: TRANSCRIPT{13277} Y{13278} LINE{13279} TEXT-HEIGHT{13280} PAIR{15605} PAIR{15606} PAIR{15612} PAIR{15633} PAIR{15634} PAIR{15635} REDRAW-DISPLAY-PANE[3946] reentrant has the following in-lined locals: CHARACTER-STRINGS{13261} N{13262} CHARACTER-STRINGS{13265} DOCUMENTATION-STRINGS{13266} Y{13267} LINE{13268} X{13290} Y{13291} WIDTH{13292} HEIGHT{13293} X{13346} Y{13347} WIDTH{13348} HEIGHT{13349} S{14330} PAIR{15607} PAIR{15608} PAIR{15624} PAIR{15625} PAIR{15626} LIST{15873} LIST{15876} R{15877} S{15958} LIST{16070} LIST{16073} R{16074} REDRAW-BUTTONS[3943] PREFIX-STRING[3937] reentrant has the following parameter: PREFIX{13248} local has the following in-lined locals: PAIR{15613} PAIR{15614} PAIR{15636} PAIR{15637} CHARACTER->PRETTY-NAME[3911] reentrant has the following parameter: CHARACTER{13245} local has the following in-lined locals: I{13246} I{13247} Y[1594] has the following parameter: V{11007} local X[1593] has the following parameter: V{11006} local LINE-SEGMENT-Q[1583] has the following parameter: S{10994} local LINE-SEGMENT-P[1575] has the following parameter: S{10984} local MAKE-LINE-SEGMENT[1573] has the following parameters: P{10981} local Q{10982} local REDUCE[364] has the following parameters: F{9892} local L{9893} local I{9894} local has the following in-lined locals: L{9897} C{9898} S{13271} T{13272} X{14433} XS{14434} R{14438} PAIR{15609} PAIR{15610} PAIR{15611} PAIR{15627} PAIR{15628} PAIR{15629} FUCK-UP[315] YQUERYPOINTER[266] has the following parameters: DISPLAY{9786} local W{9787} local has the following in-lined locals: MASK-RETURN{9788} WIN-Y-RETURN{9789} WIN-X-RETURN{9790} ROOT-Y-RETURN{9791} ROOT-X-RETURN{9792} CHILD-RETURN{9793} ROOT-RETURN{9794} Y{9796} X{9797} OBJS{15595} YLOOKUPSTRING[262] has the following parameter: EVENT{9779} local has the following in-lined locals: RESULT{9780} STRING{16037} START{16038} END{16039} R{16040} K{16044} DISPLAY-TO-RESULT[191] reentrant has parent parameter [inside FORMAT 81] has the following parameter: X{9685} local has the following in-lined locals: X{9736} N{9737} I{9740} N{9753} I{9756} X{9762} WRITE-TO-RESULT[114] reentrant has parent parameter [inside FORMAT 81] has the following parameter: X{9576} local has the following in-lined locals: v{9582} X{9640} N{9641} I{9644} N{9659} I{9662} v{9663} v{9664} X{9670} CHAR1{14530} CHAR2{14531} CHAR1{14535} CHAR2{14536} CHAR1{15702} CHAR2{15703} CHAR1{15707} CHAR2{15708} OBJ1{15918} OBJ2{15919} v{15920} OBJ1{15923} OBJ2{15924} v{15925} FORMAT[15] reentrant has the following parameters: FORMAT-STRING{9524} local ARGUMENTS{9525} local has the following in-lined locals: N{9556} TWIDDLE?{9558} I{9565} CHAR{9566} v{9569} v{9570} v{9573} CHAR1{15792} CHAR2{15793} CHAR1{15797} CHAR2{15798} OBJ1{15928} OBJ2{15929} v{15930} OBJ1{15933} OBJ2{15934} v{15935} OBJ1{15938} OBJ2{15939} v{15940} OBJ1{15943} OBJ2{15944} v{15945} OBJ1{15948} OBJ2{15949} v{15950} OBJ1{15953} OBJ2{15954} v{15955} S{15960} LIST{16055} LIST{16058} R{16059} [inside top level 0] has the following in-lined locals: KILL-APPLICATION{717} *POST-INITIALIZE-PROCEDURE*{761} *WINDOW-POSITION-Y*{762} *WINDOW-POSITION-X*{763} *COLOR-GC*{787} *BOLD-FLIPPING-GC*{810} *DASHED-FLIPPING-GC*{813} *DASHED-GC*{814} *THICK-FLIPPING-GC*{815} *THICK-GC*{816} *MEDIUM-FLIPPING-GC*{817} *MEDIUM-GC*{818} *ROOT-WINDOW*{844} *SCREEN*{845} DELETE{847} RETURN{849} INFINITY{1030} TWO-PI{1086} PI{1088} *PROGRAM*{1496} XK_END{4139} XK_NEXT{4140} XK_PRIOR{4141} XK_DOWN{4142} XK_RIGHT{4143} XK_UP{4144} XK_LEFT{4145} XK_HOME{4146} INPUTHINT{4263} PMAXSIZE{4267} PMINSIZE{4268} JOINROUND{4396} CAPROUND{4399} LINEONOFFDASH{4403} LINESOLID{4404} GXXOR{4414} MOD1MASK{4564} MAPPINGNOTIFY{4569} NOEXPOSE{4589} EXPOSE{4591} KEYPRESS{4601} L{10173} L{10176} WINDOW{13252} X{13255} S{13316} S{13326} S{13336} X{13351} Y{13352} REGION{13353} OLD-STATUS{13354} ABORT-CONTINUATION{13357} REGION{13359} QUIT-CONTINUATION{13370} N{13372} EVENT{13374} WINDOW{13378} EVENT-TYPE{13379} OLD-STATUS{13409} ABORT-CONTINUATION{13412} CHARACTER{13417} DISPLAY-NAME{13836} ROMAN-FONT-NAME{13837} BOLD-FONT-NAME{13838} WINDOW-X{13839} WINDOW-Y{13840} DISPLAY-PANE-HEIGHT{13842} TRANSCRIPT-LINES{13843} BUTTON-ROWS{13844} BUTTON-COLUMNS{13845} BUTTON-WIDTH{13846} BUTTON-HEIGHT{13847} WIDTH{13848} STATUS-PANE-WIDTH{13849} HINTS{14082} HEIGHT{14085} HINTS{14086} v{14139} RESULT{14140} X2{14141} Y2{14142} RESULT{14146} X2{14147} Y2{14148} v{14177} OBJ1{14187} v{14189} PAIR{14206} PAIR{14207} PAIR{14213} LIST{14251} K{14254} S{14256} SS{14273} SS{14276} v{14277} v{14278} SS{14286} SS{14307} OBJS{15597} OBJS{15599} PAIR{15601} PAIR{15619} PAIR{15622} PAIR{15623} WINDOW{15648} WINDOW{15651} WINDOW{15654} WINDOW{15657} WINDOW{15660} WINDOW{15663} OBJ1{15878} v{15880} OBJ1{15883} v{15885} OBJ1{15888} v{15890} OBJ1{15893} v{15895} STRING{15963} STRING{15965} STRING{15967} STRING{15969} WINDOW{15979} &REST{15981} X{15982} OBJS{16051} OBJS{16052} OBJS{16053} OBJS{16054} OBJS{16065} OBJS{16066} OBJS{16068} The following non-trivial in-line native procedures will be generated: [clone LOOP[9342] 11593] has the following parameters: LIST{16073} local R{16074} local [clone LIST-REVERSE[9339] 11590] has the following parameter: LIST{16070} local [clone LIST[9231] 11589] has the following parameter: OBJS{16069} local [clone LIST[9231] 11588] has the following parameter: OBJS{16068} local [clone LIST[9231] 11587] has the following parameter: OBJS{16067} local [clone LIST[9231] 11586] has the following parameter: OBJS{16066} local [clone LIST[9231] 11585] has the following parameter: OBJS{16065} local [clone LOOP[9342] 11583] has the following parameters: LIST{16063} local R{16064} local [clone LIST-REVERSE[9339] 11580] has the following parameter: LIST{16060} local [clone LOOP[9342] 11578] has the following parameters: LIST{16058} local R{16059} local [clone LIST-REVERSE[9339] 11575] has the following parameter: LIST{16055} local [clone LIST[9231] 11574] has the following parameter: OBJS{16054} local [clone LIST[9231] 11573] has the following parameter: OBJS{16053} local [clone LIST[9231] 11572] has the following parameter: OBJS{16052} local [clone LIST[9231] 11571] has the following parameter: OBJS{16051} local [clone LOOP[9235] 11566] has the following parameter: K{16049} local [clone LIST-LENGTH[9232] 11563] has the following parameter: LIST{16046} local [clone LOOP[9791] 11558] has the following parameter: K{16044} local [clone [inside SUBSTRING 9787] 11554] has the following parameter: R{16040} local [clone SUBSTRING[9786] 11553] has the following parameters: STRING{16037} local START{16038} local END{16039} local [clone LOOP[9791] 11548] has the following parameter: K{16035} local [clone [inside SUBSTRING 9787] 11544] has the following parameter: R{16031} local [clone SUBSTRING[9786] 11543] has the following parameters: STRING{16028} local START{16029} local END{16030} local [clone LOOP[9791] 11538] has the following parameter: K{16026} local [clone [inside SUBSTRING 9787] 11534] has the following parameter: R{16022} local [clone SUBSTRING[9786] 11533] has the following parameters: STRING{16019} local START{16020} local END{16021} local [clone LOOP[9791] 11528] has the following parameter: K{16017} local [clone [inside SUBSTRING 9787] 11524] has the following parameter: R{16013} local [clone SUBSTRING[9786] 11523] has the following parameters: STRING{16010} local START{16011} local END{16012} local [clone LOOP[9791] 11518] has the following parameter: K{16008} local [clone [inside SUBSTRING 9787] 11514] has the following parameter: R{16004} local [clone SUBSTRING[9786] 11513] has the following parameters: STRING{16001} local START{16002} local END{16003} local [clone LOOP[9791] 11508] has the following parameter: K{15999} local [clone [inside SUBSTRING 9787] 11504] has the following parameter: R{15995} local [clone SUBSTRING[9786] 11503] has the following parameters: STRING{15992} local START{15993} local END{15994} local [clone LOOP[9791] 11498] has the following parameter: K{15990} local [clone [inside SUBSTRING 9787] 11494] has the following parameter: R{15986} local [clone SUBSTRING[9786] 11493] has the following parameters: STRING{15983} local START{15984} local END{15985} local [clone [inside SEND 3940] 11490] has the following parameter: X{15982} local [clone SEND[3939] 11489] has region has the following parameters: WINDOW{15979} local &REST{15981} local [clone [inside SEND 3941] 11487] reentrant [clone [inside SEND 3940] 11486] reentrant has the following parameter: X{15978} local [clone SEND[3939] 11485] reentrant has the following parameter: WINDOW{15975} local [clone STATUS[4181] 11483] has the following parameter: STRING{15973} local [clone STATUS[4181] 11481] has the following parameter: STRING{15971} local [clone STATUS[4181] 11479] has the following parameter: STRING{15969} local [clone STATUS[4181] 11477] has the following parameter: STRING{15967} local [clone STATUS[4181] 11475] has the following parameter: STRING{15965} local [clone STATUS[4181] 11473] has the following parameter: STRING{15963} local [clone STATUS[4181] 11471] has the following parameter: STRING{15961} local [clone REVERSE[9344] 11465] has the following parameter: S{15960} local [clone REVERSE[9344] 11459] has the following parameter: S{15959} local [clone REVERSE[9344] 11453] has the following parameter: S{15958} local [clone [inside EQV? 9174] 11450] has the following parameter: v{15955} local [clone EQV?[9173] 11449] has the following parameters: OBJ1{15953} local OBJ2{15954} local [clone [inside EQV? 9174] 11446] has the following parameter: v{15950} local [clone EQV?[9173] 11445] has the following parameters: OBJ1{15948} local OBJ2{15949} local [clone [inside EQV? 9174] 11442] has the following parameter: v{15945} local [clone EQV?[9173] 11441] has the following parameters: OBJ1{15943} local OBJ2{15944} local [clone [inside EQV? 9174] 11438] has the following parameter: v{15940} local [clone EQV?[9173] 11437] has the following parameters: OBJ1{15938} local OBJ2{15939} local [clone [inside EQV? 9174] 11434] has the following parameter: v{15935} local [clone EQV?[9173] 11433] has the following parameters: OBJ1{15933} local OBJ2{15934} local [clone [inside EQV? 9174] 11430] has the following parameter: v{15930} local [clone EQV?[9173] 11429] has the following parameters: OBJ1{15928} local OBJ2{15929} local [clone [inside EQV? 9174] 11426] has the following parameter: v{15925} local [clone EQV?[9173] 11425] has the following parameters: OBJ1{15923} local OBJ2{15924} local [clone [inside EQV? 9174] 11422] has the following parameter: v{15920} local [clone EQV?[9173] 11421] has the following parameters: OBJ1{15918} local OBJ2{15919} local [clone [inside EQV? 9175] 11419] has the following parameter: v{15916} local [clone [inside EQV? 9174] 11418] has the following parameter: v{15915} local [clone EQV?[9173] 11417] has the following parameters: OBJ1{15913} local OBJ2{15914} local [clone [inside EQV? 9174] 11414] has the following parameter: v{15910} local [clone EQV?[9173] 11413] has the following parameter: OBJ1{15908} local [clone [inside EQV? 9174] 11410] has the following parameter: v{15905} local [clone EQV?[9173] 11409] has the following parameter: OBJ1{15903} local [clone [inside EQV? 9174] 11406] has the following parameter: v{15900} local [clone EQV?[9173] 11405] has the following parameter: OBJ1{15898} local [clone [inside EQV? 9174] 11402] has the following parameter: v{15895} local [clone EQV?[9173] 11401] has the following parameter: OBJ1{15893} local [clone [inside EQV? 9174] 11398] has the following parameter: v{15890} local [clone EQV?[9173] 11397] has the following parameter: OBJ1{15888} local [clone [inside EQV? 9174] 11394] has the following parameter: v{15885} local [clone EQV?[9173] 11393] has the following parameter: OBJ1{15883} local [clone [inside EQV? 9174] 11390] has the following parameter: v{15880} local [clone EQV?[9173] 11389] has the following parameter: OBJ1{15878} local [clone LOOP[9342] 11387] has the following parameters: LIST{15876} local R{15877} local [clone LIST-REVERSE[9339] 11384] has the following parameter: LIST{15873} local [clone LOOP?[9586] 11381] has the following parameters: CHAR1{15869} local CHAR2{15870} local [clone CHAR=?[9583] 11378] has the following parameters: CHAR1{15864} local CHAR2{15865} local [clone LOOP?[9586] 11375] has the following parameters: CHAR1{15860} local CHAR2{15861} local [clone CHAR=?[9583] 11372] has the following parameters: CHAR1{15855} local CHAR2{15856} local [clone LOOP?[9586] 11369] has the following parameters: CHAR1{15851} local CHAR2{15852} local [clone CHAR=?[9583] 11366] has the following parameters: CHAR1{15846} local CHAR2{15847} local [clone LOOP?[9586] 11363] has the following parameters: CHAR1{15842} local CHAR2{15843} local [clone CHAR=?[9583] 11360] has the following parameters: CHAR1{15837} local CHAR2{15838} local [clone LOOP?[9586] 11357] has the following parameters: CHAR1{15833} local CHAR2{15834} local [clone CHAR=?[9583] 11354] has the following parameters: CHAR1{15828} local CHAR2{15829} local [clone LOOP?[9586] 11351] has the following parameters: CHAR1{15824} local CHAR2{15825} local [clone CHAR=?[9583] 11348] has the following parameters: CHAR1{15819} local CHAR2{15820} local [clone LOOP?[9586] 11345] has the following parameters: CHAR1{15815} local CHAR2{15816} local [clone CHAR=?[9583] 11342] has the following parameters: CHAR1{15810} local CHAR2{15811} local [clone LOOP?[9586] 11339] has the following parameters: CHAR1{15806} local CHAR2{15807} local [clone CHAR=?[9583] 11336] has the following parameters: CHAR1{15801} local CHAR2{15802} local [clone LOOP?[9586] 11333] has the following parameters: CHAR1{15797} local CHAR2{15798} local [clone CHAR=?[9583] 11330] has the following parameters: CHAR1{15792} local CHAR2{15793} local [clone LOOP?[9586] 11327] has the following parameters: CHAR1{15788} local CHAR2{15789} local [clone CHAR=?[9583] 11324] has the following parameters: CHAR1{15783} local CHAR2{15784} local [clone LOOP?[9586] 11321] has the following parameters: CHAR1{15779} local CHAR2{15780} local [clone CHAR=?[9583] 11318] has the following parameters: CHAR1{15774} local CHAR2{15775} local [clone LOOP?[9586] 11315] has the following parameters: CHAR1{15770} local CHAR2{15771} local [clone CHAR=?[9583] 11312] has the following parameters: CHAR1{15765} local CHAR2{15766} local [clone LOOP?[9586] 11309] has the following parameters: CHAR1{15761} local CHAR2{15762} local [clone CHAR=?[9583] 11306] has the following parameters: CHAR1{15756} local CHAR2{15757} local [clone LOOP?[9586] 11303] has the following parameters: CHAR1{15752} local CHAR2{15753} local [clone CHAR=?[9583] 11300] has the following parameters: CHAR1{15747} local CHAR2{15748} local [clone LOOP?[9586] 11297] has the following parameters: CHAR1{15743} local CHAR2{15744} local [clone CHAR=?[9583] 11294] has the following parameters: CHAR1{15738} local CHAR2{15739} local [clone LOOP?[9586] 11291] has the following parameters: CHAR1{15734} local CHAR2{15735} local [clone CHAR=?[9583] 11288] has the following parameters: CHAR1{15729} local CHAR2{15730} local [clone LOOP?[9586] 11285] has the following parameters: CHAR1{15725} local CHAR2{15726} local [clone CHAR=?[9583] 11282] has the following parameters: CHAR1{15720} local CHAR2{15721} local [clone LOOP?[9586] 11273] has the following parameters: CHAR1{15707} local CHAR2{15708} local [clone CHAR=?[9583] 11270] has the following parameters: CHAR1{15702} local CHAR2{15703} local [clone LOOP?[9604] 11267] has the following parameters: CHAR1{15698} local CHAR2{15699} local [clone CHAR<=?[9601] 11264] has the following parameters: CHAR1{15693} local CHAR2{15694} local [clone LOOP?[9604] 11261] has the following parameters: CHAR1{15689} local CHAR2{15690} local [clone CHAR<=?[9601] 11258] has the following parameters: CHAR1{15684} local CHAR2{15685} local [clone LOOP?[9610] 11255] has the following parameters: CHAR1{15680} local CHAR2{15681} local [clone CHAR>=?[9607] 11252] has the following parameters: CHAR1{15675} local CHAR2{15676} local [clone LOOP?[9610] 11249] has the following parameters: CHAR1{15671} local CHAR2{15672} local [clone CHAR>=?[9607] 11246] has the following parameters: CHAR1{15666} local CHAR2{15667} local [clone SET-WINDOW-METHOD![3938] 11245] has the following parameter: WINDOW{15663} local [clone SET-WINDOW-METHOD![3938] 11244] has the following parameter: WINDOW{15660} local [clone SET-WINDOW-METHOD![3938] 11243] has the following parameter: WINDOW{15657} local [clone SET-WINDOW-METHOD![3938] 11242] has the following parameter: WINDOW{15654} local [clone SET-WINDOW-METHOD![3938] 11241] has the following parameter: WINDOW{15651} local [clone SET-WINDOW-METHOD![3938] 11240] has the following parameter: WINDOW{15648} local [clone SET-WINDOW-METHOD![3938] 11239] has the following parameters: WINDOW{15645} local METHOD{15647} local [clone CAR[9189] 11238] has the following parameter: PAIR{15644} local [clone CAR[9189] 11237] has the following parameter: PAIR{15643} local [clone CAR[9189] 11236] has the following parameter: PAIR{15642} local [clone CAR[9189] 11235] has the following parameter: PAIR{15641} local [clone CAR[9189] 11234] has the following parameter: PAIR{15640} local [clone CAR[9189] 11233] has the following parameter: PAIR{15639} local [clone CAR[9189] 11232] has the following parameter: PAIR{15638} local [clone CAR[9189] 11231] has the following parameter: PAIR{15637} local [clone CAR[9189] 11230] has the following parameter: PAIR{15636} local [clone CAR[9189] 11229] has the following parameter: PAIR{15635} local [clone CAR[9189] 11228] has the following parameter: PAIR{15634} local [clone CAR[9189] 11227] has the following parameter: PAIR{15633} local [clone CAR[9189] 11226] has the following parameter: PAIR{15632} local [clone CAR[9189] 11225] has the following parameter: PAIR{15631} local [clone CAR[9189] 11224] has the following parameter: PAIR{15630} local [clone CAR[9189] 11223] has the following parameter: PAIR{15629} local [clone CAR[9189] 11222] has the following parameter: PAIR{15628} local [clone CAR[9189] 11221] has the following parameter: PAIR{15627} local [clone CAR[9189] 11220] has the following parameter: PAIR{15626} local [clone CAR[9189] 11219] has the following parameter: PAIR{15625} local [clone CAR[9189] 11218] has the following parameter: PAIR{15624} local [clone CAR[9189] 11217] has the following parameter: PAIR{15623} local [clone CAR[9189] 11216] has the following parameter: PAIR{15622} local [clone CAR[9189] 11215] has the following parameter: PAIR{15621} local [clone CAR[9189] 11214] has the following parameter: PAIR{15620} local [clone CAR[9189] 11213] has the following parameter: PAIR{15619} local [clone CDR[9190] 11212] has the following parameter: PAIR{15618} local [clone CDR[9190] 11211] has the following parameter: PAIR{15617} local [clone CDR[9190] 11210] has the following parameter: PAIR{15616} local [clone CDR[9190] 11209] has the following parameter: PAIR{15615} local [clone CDR[9190] 11208] has the following parameter: PAIR{15614} local [clone CDR[9190] 11207] has the following parameter: PAIR{15613} local [clone CDR[9190] 11206] has the following parameter: PAIR{15612} local [clone CDR[9190] 11205] has the following parameter: PAIR{15611} local [clone CDR[9190] 11204] has the following parameter: PAIR{15610} local [clone CDR[9190] 11203] has the following parameter: PAIR{15609} local [clone CDR[9190] 11202] has the following parameter: PAIR{15608} local [clone CDR[9190] 11201] has the following parameter: PAIR{15607} local [clone CADR[9194] 11200] has the following parameter: PAIR{15606} local [clone CADR[9194] 11199] has the following parameter: PAIR{15605} local [clone CADR[9194] 11198] has the following parameter: PAIR{15604} local [clone CADR[9194] 11197] has the following parameter: PAIR{15603} local [clone CADR[9194] 11196] has the following parameter: PAIR{15602} local [clone CADR[9194] 11195] has the following parameter: PAIR{15601} local [clone LIST[9231] 11194] has the following parameter: OBJS{15600} local [clone LIST[9231] 11193] has the following parameter: OBJS{15599} local [clone LIST[9231] 11192] has the following parameter: OBJS{15598} local [clone LIST[9231] 11191] has the following parameter: OBJS{15597} local [clone LIST[9231] 11190] has the following parameter: OBJS{15596} local [clone LIST[9231] 11189] has the following parameter: OBJS{15595} local [clone LIST[9231] 11188] has the following parameter: OBJS{15594} local [clone LIST[9231] 11187] has the following parameter: OBJS{15593} local LOOP[10676] has the following parameters: NUMBER{15418} local CHARACTERS{15419} local LOOP[10671] has the following parameters: NUMBER{15414} local CHARACTERS{15415} local [inside LOOP 10001] reentrant [inside LOOP 10000] reentrant LOOP[9999] reentrant has the following parameter: LIST1{14981} local [inside FOR-EACH 9996] reentrant LOOP[9975] reentrant has the following parameters: LIST1{14956} local C{14957} local [inside MAP 9972] reentrant LOOP[9830] has the following parameter: K{14836} local [inside LIST->STRING 9826] has the following parameter: R{14832} local [inside STRING->LIST 9820] has the following parameter: N{14827} global LOOP[9817] has the following parameters: K{14824} local STRINGS{14825} local LOOP[9808] has the following parameter: L{14819} local [inside LOOP 9804] has the following parameter: N{14815} local LOOP[9803] has the following parameter: STRINGS{14814} local [inside STRING-APPEND 9798] has the following parameter: K{14810} local [inside STRING-APPEND 9797] has the following parameter: R{14809} local LOOP[9791] has the following parameter: K{14806} local [inside SUBSTRING 9787] has the following parameter: R{14802} local SUBSTRING[9786] has the following parameters: STRING{14799} local START{14800} local END{14801} local STRING-LENGTH[9671] has the following parameter: STRING{14645} local [inside CHAR-ALPHABETIC? 9644] has the following parameter: v{14621} local LOOP?[9610] has the following parameters: CHAR1{14571} local CHAR2{14572} local CHAR>=?[9607] has the following parameters: CHAR1{14566} local CHAR2{14567} local LOOP?[9604] has the following parameters: CHAR1{14562} local CHAR2{14563} local CHAR<=?[9601] has the following parameters: CHAR1{14557} local CHAR2{14558} local LOOP?[9586] has the following parameters: CHAR1{14535} local CHAR2{14536} local CHAR=?[9583] has the following parameters: CHAR1{14530} local CHAR2{14531} local LOOP[9489] has the following parameter: R{14438} local MAX[9486] has the following parameters: X{14433} local XS{14434} local REVERSE[9344] has the following parameter: S{14330} local LOOP[9342] has the following parameters: LIST{14328} local R{14329} local LIST-REVERSE[9339] has the following parameter: LIST{14325} local LOOP[9312] has the following parameter: SS{14307} local LOOP[9284] has the following parameter: SS{14286} local [inside LOOP 9273] has the following parameter: v{14278} local [inside LOOP 9272] has the following parameter: v{14277} local LOOP[9271] has the following parameter: SS{14276} local APPEND[9267] has the following parameter: SS{14273} local LENGTH[9240] has the following parameter: S{14256} local LOOP[9235] has the following parameter: K{14254} local LIST-LENGTH[9232] has the following parameter: LIST{14251} local LIST[9231] has the following parameter: OBJS{14250} local [inside LOOP? 9229] has the following parameter: v{14249} local [inside LOOP? 9228] has the following parameter: FAST{14248} local [inside LOOP? 9227] has the following parameter: v{14247} local LOOP?[9226] has the following parameters: SLOW{14245} local FAST{14246} local CADR[9194] has the following parameter: PAIR{14213} local CDR[9190] has the following parameter: PAIR{14207} local CAR[9189] has the following parameter: PAIR{14206} local [inside EQUAL? 9180] has the following parameter: v{14197} local [inside EQUAL? 9179] reentrant has the following parameter: v{14196} local [inside EQV? 9174] has the following parameter: v{14189} local EQV?[9173] has the following parameter: OBJ1{14187} local [inside MAIN 4734] has region [inside MAIN 4731] reentrant [inside MAIN 4728] has region [inside MAIN 4725] reentrant [inside MAIN 4718] has the following parameter: v{14177} local [inside MAIN 4717] has region [inside MAIN 4710] has the following parameter: v{14174} local [inside MAIN 4708] has region [inside MAIN 4690] has the following parameter: C{14153} local [inside MAIN 4689] has the following parameter: L{14152} local [inside MAIN 4684] has the following parameter: Y2{14148} local [inside MAIN 4683] has the following parameter: X2{14147} local [inside MAIN 4682] has the following parameter: RESULT{14146} local [inside MAIN 4677] has the following parameter: Y2{14142} local [inside MAIN 4676] has the following parameter: X2{14141} local [inside MAIN 4675] has the following parameter: RESULT{14140} local [inside MAIN 4673] has region has the following parameter: v{14139} local [inside MAIN 4672] has the following parameters: X1{14137} global Y1{14138} global [inside MAIN 4670] reentrant [inside MAIN 4651] has the following parameters: HEIGHT{14085} local HINTS{14086} local [inside MAIN 4649] has the following parameter: HINTS{14082} local [inside MAIN 4644] has region [inside MAIN 4630] has region [inside MAIN 4622] has parent parameter [inside MAIN 4621] has region [inside MAIN 4621] has closure has the following parameter: CHARACTER{14066} slotted [inside MAIN 4567] has the following parameter: STATUS-PANE-WIDTH{13849} local [inside MAIN 4566] has the following parameter: WIDTH{13848} local [inside MAIN 4565] has the following parameter: BUTTON-HEIGHT{13847} local [inside MAIN 4564] has the following parameter: BUTTON-WIDTH{13846} local [inside MAIN 4563] has the following parameter: BUTTON-COLUMNS{13845} local [inside MAIN 4562] has the following parameter: BUTTON-ROWS{13844} local [inside MAIN 4561] has the following parameter: TRANSCRIPT-LINES{13843} local [inside MAIN 4560] has the following parameter: DISPLAY-PANE-HEIGHT{13842} local [inside MAIN 4558] has the following parameter: WINDOW-Y{13840} local [inside MAIN 4557] has the following parameter: WINDOW-X{13839} local [inside MAIN 4556] has the following parameter: BOLD-FONT-NAME{13838} local [inside MAIN 4555] has the following parameter: ROMAN-FONT-NAME{13837} local [inside MAIN 4554] has the following parameter: DISPLAY-NAME{13836} local [inside LOOP 4240] has the following parameter: RESULT{13507} local [inside LOOP2 4233] has the following parameter: EVENT-TYPE{13506} local [inside LOOP 4225] has the following parameter: EVENT-TYPE{13501} local [inside TRACKING-POINTER 4219] has the following parameter: RESULT{13492} local [inside TRACKING-POINTER 4217] has region has the following parameters: Y{13478} local X{13479} local EVENT{13480} local OLD-STATUS{13481} local MESSAGE[4183] has the following parameter: STRING{13459} local STATUS[4181] has the following parameter: STRING{13457} local [inside DEFINE-BUTTON 4178] has parent parameter DEFINE-BUTTON[4165] [inside DEFINE-BUTTON 4177] has parent parameter [inside DEFINE-BUTTON 4166] [inside DEFINE-BUTTON 4176] has parent parameter [inside DEFINE-BUTTON 4166] [inside DEFINE-BUTTON 4175] has parent parameter [inside DEFINE-BUTTON 4166] has the following parameter: TEXT-Y{13451} local [inside DEFINE-BUTTON 4174] has parent parameter [inside DEFINE-BUTTON 4166] has the following parameter: TEXT-X{13450} local [inside DEFINE-BUTTON 4173] has parent parameter [inside DEFINE-BUTTON 4166] has the following parameter: TEXT-WIDTH{13449} local [inside DEFINE-BUTTON 4172] has parent parameter [inside DEFINE-BUTTON 4166] has the following parameter: BOLD?{13448} local [inside DEFINE-BUTTON 4171] has parent parameter [inside DEFINE-BUTTON 4166] has the following parameter: TEXT{13447} local [inside DEFINE-BUTTON 4167] has parent parameter [inside DEFINE-BUTTON 4166] [inside DEFINE-BUTTON 4166] has parent parameter DEFINE-BUTTON[4165] has closure has parent slot DEFINE-BUTTON[4165] has the following parameter: BUTTON{13442} slotted [inside DEFINE-KEY 4162] has the following parameter: HELP{13436} local LOOP[4155] has the following parameters: CHARACTERS{13433} local COMTAB{13434} local [inside CONTROL 4129] has the following parameter: CHARACTER{13424} local [inside LOOP 4121] has region [inside LOOP 4105] has the following parameter: CHARACTER{13417} local [inside LOOP 4102] has region [inside LOOP 4098] has region [inside LOOP 4097] has the following parameter: ABORT-CONTINUATION{13412} local [inside LOOP 4095] has the following parameter: OLD-STATUS{13409} local [inside EXECUTE-KEY 4081] has the following parameter: ABORT-CONTINUATION{13394} local [inside EXECUTE-KEY 4079] has the following parameter: OLD-STATUS{13390} local [inside EXECUTE-KEY 4074] has the following parameter: COMMAND{13384} local [inside LOOP 4070] has the following parameters: WINDOW{13378} local EVENT-TYPE{13379} local [inside PROCESS-EVENTS 4065] has the following parameters: N{13372} local COMTAB{13373} global EVENT{13374} local [inside PROCESS-EVENTS 4063] has the following parameter: QUIT-CONTINUATION{13370} local [inside REGION-HANDLER 4045] has the following parameter: REGION{13359} local [inside REGION-HANDLER 4042] has the following parameter: ABORT-CONTINUATION{13357} local [inside REGION-HANDLER 4040] has the following parameter: OLD-STATUS{13354} local [inside REGION-HANDLER 4038] has the following parameter: REGION{13353} local REGION-HANDLER[4037] has the following parameters: X{13351} local Y{13352} local DEFINE-REGION[4036] has the following parameters: X{13346} local Y{13347} local WIDTH{13348} local HEIGHT{13349} local REGION-METHOD[4028] has the following parameter: S{13336} local REGION-HEIGHT[4020] has the following parameter: S{13326} local REGION-WIDTH[4012] has the following parameter: S{13316} local MAKE-REGION[3994] has the following parameters: X{13290} local Y{13291} local WIDTH{13292} local HEIGHT{13293} local [inside REDRAW-MESSAGE-PANE 3992] has the following parameter: STRING{13289} local [inside REDRAW-MESSAGE-PANE 3990] reentrant [inside LOOP 3974] has the following parameter: TEXT-HEIGHT{13280} local [inside LOOP 3973] has the following parameter: LINE{13279} local LOOP[3970] has the following parameters: TRANSCRIPT{13277} local Y{13278} local [inside REDRAW-DISPLAY-PANE 3963] has region has the following parameters: S{13271} local T{13272} local [inside REDRAW-DISPLAY-PANE 3962] reentrant has the following parameter: HELP-ENTRY{13270} local [inside LOOP 3960] reentrant [inside LOOP 3959] reentrant has the following parameter: LINE{13268} local [inside LOOP 3958] reentrant LOOP[3956] reentrant has the following parameters: CHARACTER-STRINGS{13265} local DOCUMENTATION-STRINGS{13266} local Y{13267} local [inside REDRAW-DISPLAY-PANE 3953] reentrant has region [inside REDRAW-DISPLAY-PANE 3952] reentrant has the following parameter: N{13262} local [inside REDRAW-DISPLAY-PANE 3951] reentrant has the following parameter: CHARACTER-STRINGS{13261} local [inside REDRAW-DISPLAY-PANE 3947] reentrant has region [inside REDRAW-BUTTONS 3945] reentrant has the following parameter: BUTTON{13257} local [inside SEND 3940] has the following parameter: X{13255} local SEND[3939] has region has the following parameter: WINDOW{13252} local SET-WINDOW-METHOD![3938] has the following parameters: WINDOW{13249} local METHOD{13251} local [inside CHARACTER->PRETTY-NAME 3936] reentrant has the following parameter: I{13247} local [inside CHARACTER->PRETTY-NAME 3935] reentrant [inside CHARACTER->PRETTY-NAME 3912] reentrant has the following parameter: I{13246} local LOOP[662] has the following parameter: L{10176} local FIND-IF[659] has the following parameter: L{10173} local LOOP[566] has region has the following parameters: L{10106} local C{10107} local REMOVE-IF[563] has the following parameter: L{10103} local LOOP[370] has the following parameters: L{9897} local C{9898} local [inside YQUERYPOINTER 269] has the following parameters: Y{9796} local X{9797} local [inside YQUERYPOINTER 267] has the following parameters: MASK-RETURN{9788} local WIN-Y-RETURN{9789} local WIN-X-RETURN{9790} local ROOT-Y-RETURN{9791} local ROOT-X-RETURN{9792} local CHILD-RETURN{9793} local ROOT-RETURN{9794} local [inside YLOOKUPSTRING 263] has the following parameter: RESULT{9780} local [inside top level 261] has the following parameter: XLOOKUPSTRING-BUFFER{9778} global [inside LOOP 240] reentrant has parent parameter [inside FORMAT 81] [inside LOOP 239] reentrant has parent parameter [inside FORMAT 81] [inside LOOP 238] reentrant has parent parameter [inside FORMAT 81] [inside LOOP 237] reentrant has parent parameter [inside FORMAT 81] [inside LOOP 236] reentrant has parent parameter [inside FORMAT 81] LOOP[235] reentrant has parent parameter [inside FORMAT 81] has the following parameter: X{9762} local [inside DISPLAY-TO-RESULT 234] has parent parameter [inside FORMAT 81] [inside DISPLAY-TO-RESULT 233] has parent parameter [inside FORMAT 81] has the following parameter: LOOP{9760} hidden as LOOP[235] [inside DISPLAY-TO-RESULT 232] has parent parameter [inside FORMAT 81] [inside DISPLAY-TO-RESULT 231] reentrant has parent parameter [inside FORMAT 81] [inside LOOP 228] has parent parameter [inside FORMAT 81] [inside LOOP 227] has parent parameter [inside FORMAT 81] LOOP[226] has parent parameter [inside FORMAT 81] has the following parameter: I{9756} local [inside DISPLAY-TO-RESULT 225] has parent parameter [inside FORMAT 81] [inside DISPLAY-TO-RESULT 224] has parent parameter [inside FORMAT 81] has the following parameter: LOOP{9754} hidden as LOOP[226] [inside DISPLAY-TO-RESULT 223] has parent parameter [inside FORMAT 81] has the following parameter: N{9753} local [inside DISPLAY-TO-RESULT 222] has parent parameter [inside FORMAT 81] [inside LOOP 217] has parent parameter [inside FORMAT 81] [inside LOOP 216] has parent parameter [inside FORMAT 81] LOOP[215] has parent parameter [inside FORMAT 81] has the following parameter: I{9740} local [inside DISPLAY-TO-RESULT 214] has parent parameter [inside FORMAT 81] [inside DISPLAY-TO-RESULT 213] has parent parameter [inside FORMAT 81] has the following parameter: LOOP{9738} hidden as LOOP[215] [inside DISPLAY-TO-RESULT 212] has parent parameter [inside FORMAT 81] [inside DISPLAY-TO-RESULT 211] has parent parameter [inside FORMAT 81] has the following parameter: N{9737} local [inside DISPLAY-TO-RESULT 210] has parent parameter [inside FORMAT 81] has the following parameter: X{9736} local [inside DISPLAY-TO-RESULT 209] has parent parameter [inside FORMAT 81] [inside DISPLAY-TO-RESULT 200] has parent parameter [inside FORMAT 81] has the following parameter: C{9689} local [inside DISPLAY-TO-RESULT 199] reentrant has parent parameter [inside FORMAT 81] [inside DISPLAY-TO-RESULT 198] has parent parameter [inside FORMAT 81] [inside DISPLAY-TO-RESULT 197] has parent parameter [inside FORMAT 81] [inside DISPLAY-TO-RESULT 196] has parent parameter [inside FORMAT 81] [inside DISPLAY-TO-RESULT 195] has parent parameter [inside FORMAT 81] [inside DISPLAY-TO-RESULT 194] has parent parameter [inside FORMAT 81] [inside DISPLAY-TO-RESULT 193] has parent parameter [inside FORMAT 81] [inside DISPLAY-TO-RESULT 192] has parent parameter [inside FORMAT 81] [inside LOOP 175] reentrant has parent parameter [inside FORMAT 81] [inside LOOP 174] reentrant has parent parameter [inside FORMAT 81] [inside LOOP 173] reentrant has parent parameter [inside FORMAT 81] [inside LOOP 172] reentrant has parent parameter [inside FORMAT 81] [inside LOOP 171] reentrant has parent parameter [inside FORMAT 81] LOOP[170] reentrant has parent parameter [inside FORMAT 81] has the following parameter: X{9670} local [inside WRITE-TO-RESULT 169] has parent parameter [inside FORMAT 81] [inside WRITE-TO-RESULT 168] has parent parameter [inside FORMAT 81] has the following parameter: LOOP{9668} hidden as LOOP[170] [inside WRITE-TO-RESULT 167] has parent parameter [inside FORMAT 81] [inside WRITE-TO-RESULT 166] reentrant has parent parameter [inside FORMAT 81] [inside LOOP 162] has parent parameter [inside FORMAT 81] [inside LOOP 161] has parent parameter [inside FORMAT 81] [inside LOOP 160] has parent parameter [inside FORMAT 81] has the following parameter: v{9664} local [inside LOOP 159] has parent parameter [inside FORMAT 81] has the following parameter: v{9663} local [inside LOOP 158] has parent parameter [inside FORMAT 81] LOOP[157] has parent parameter [inside FORMAT 81] has the following parameter: I{9662} local [inside WRITE-TO-RESULT 156] has parent parameter [inside FORMAT 81] [inside WRITE-TO-RESULT 155] has parent parameter [inside FORMAT 81] has the following parameter: LOOP{9660} hidden as LOOP[157] [inside WRITE-TO-RESULT 154] has parent parameter [inside FORMAT 81] has the following parameter: N{9659} local [inside WRITE-TO-RESULT 153] has parent parameter [inside FORMAT 81] [inside WRITE-TO-RESULT 152] has parent parameter [inside FORMAT 81] [inside LOOP 147] has parent parameter [inside FORMAT 81] [inside LOOP 146] has parent parameter [inside FORMAT 81] LOOP[145] has parent parameter [inside FORMAT 81] has the following parameter: I{9644} local [inside WRITE-TO-RESULT 144] has parent parameter [inside FORMAT 81] [inside WRITE-TO-RESULT 143] has parent parameter [inside FORMAT 81] has the following parameter: LOOP{9642} hidden as LOOP[145] [inside WRITE-TO-RESULT 142] has parent parameter [inside FORMAT 81] [inside WRITE-TO-RESULT 141] has parent parameter [inside FORMAT 81] has the following parameter: N{9641} local [inside WRITE-TO-RESULT 140] has parent parameter [inside FORMAT 81] has the following parameter: X{9640} local [inside WRITE-TO-RESULT 139] has parent parameter [inside FORMAT 81] [inside WRITE-TO-RESULT 130] has parent parameter [inside FORMAT 81] has the following parameter: C{9593} local [inside WRITE-TO-RESULT 129] reentrant has parent parameter [inside FORMAT 81] [inside WRITE-TO-RESULT 128] has parent parameter [inside FORMAT 81] [inside WRITE-TO-RESULT 127] has parent parameter [inside FORMAT 81] [inside WRITE-TO-RESULT 126] has parent parameter [inside FORMAT 81] [inside WRITE-TO-RESULT 125] has parent parameter [inside FORMAT 81] [inside WRITE-TO-RESULT 124] has parent parameter [inside FORMAT 81] [inside WRITE-TO-RESULT 123] has parent parameter [inside FORMAT 81] has the following parameter: v{9582} local [inside WRITE-TO-RESULT 122] has parent parameter [inside FORMAT 81] [inside WRITE-TO-RESULT 121] has parent parameter [inside FORMAT 81] [inside WRITE-TO-RESULT 120] has parent parameter [inside FORMAT 81] [inside WRITE-TO-RESULT 119] has parent parameter [inside FORMAT 81] [inside WRITE-TO-RESULT 118] has parent parameter [inside FORMAT 81] [inside WRITE-TO-RESULT 117] has parent parameter [inside FORMAT 81] [inside WRITE-TO-RESULT 116] has parent parameter [inside FORMAT 81] [inside WRITE-TO-RESULT 115] has parent parameter [inside FORMAT 81] [inside LOOP 112] has parent parameter [inside FORMAT 81] [inside LOOP 109] has parent parameter [inside FORMAT 81] [inside LOOP 108] has parent parameter [inside FORMAT 81] [inside LOOP 104] reentrant has parent parameter [inside FORMAT 81] [inside LOOP 103] has the following parameter: v{9573} local [inside LOOP 99] reentrant has parent parameter [inside FORMAT 81] [inside LOOP 98] has the following parameter: v{9570} local [inside LOOP 97] reentrant has parent parameter [inside FORMAT 81] has the following parameter: v{9569} local [inside LOOP 95] reentrant has parent parameter [inside FORMAT 81] [inside LOOP 94] has parent parameter [inside FORMAT 81] has region [inside LOOP 91] reentrant has parent parameter [inside FORMAT 81] [inside LOOP 90] reentrant has parent parameter [inside FORMAT 81] [inside LOOP 89] reentrant has parent parameter [inside FORMAT 81] has the following parameter: CHAR{9566} local LOOP[88] reentrant has parent parameter [inside FORMAT 81] has the following parameter: I{9565} local [inside FORMAT 87] has parent parameter [inside FORMAT 81] [inside FORMAT 86] has parent parameter [inside FORMAT 81] has the following parameter: LOOP{9563} hidden as LOOP[88] [inside FORMAT 85] reentrant has parent parameter [inside FORMAT 81] [inside FORMAT 83] reentrant has parent parameter [inside FORMAT 81] [inside FORMAT 82] reentrant has parent parameter [inside FORMAT 81] has the following parameters: DISPLAY-TO-RESULT{9559} hidden as DISPLAY-TO-RESULT[191] WRITE-TO-RESULT{9560} hidden as WRITE-TO-RESULT[114] [inside FORMAT 81] reentrant has closure has the following parameters: N{9556} local RESULT{9557} slotted TWIDDLE?{9558} local [inside FORMAT 80] reentrant [inside top level 4] has the following parameters: *K*{650} global *MODE*{651} global *FLAG?*{652} global *OBJECT*{653} global *ELLIPSES*{654} global *LINE-SEGMENTS*{655} global KILL-APPLICATION{717} local *POST-INITIALIZE-PROCEDURE*{761} local *WINDOW-POSITION-Y*{762} local *WINDOW-POSITION-X*{763} local *CLEAR-DISPLAY-PANE?*{765} global *HELP*{766} global *HELP?*{767} global *ABORT-CONTINUATION*{773} global *QUIT-CONTINUATION*{774} global *REDRAW-PROCEDURE*{775} global *MESSAGE*{777} global *STATUS*{778} global *PREFIX*{779} global *COMTAB*{780} global *INPUT-POSITION*{783} global *INPUT*{784} global *TRANSCRIPT*{785} global *WINDOW-METHODS*{786} global *COLOR-GC*{787} local *BOLD-FLIPPING-GC*{810} local *BOLD-GC*{811} global *ROMAN-GC*{812} global *DASHED-FLIPPING-GC*{813} local *DASHED-GC*{814} local *THICK-FLIPPING-GC*{815} local *THICK-GC*{816} local *MEDIUM-FLIPPING-GC*{817} local *MEDIUM-GC*{818} local *THIN-FLIPPING-GC*{819} global *THIN-GC*{820} global *MESSAGE-PANE*{821} global *STATUS-PANE*{822} global *ECHO-PANE*{823} global *TRANSCRIPT-PANE*{824} global *DISPLAY-PANE*{825} global *REGIONS*{826} global *BUTTONS*{827} global *WINDOW*{828} global *STATUS-PANE-WIDTH*{829} global *WHO-LINE-HEIGHT*{830} global *ECHO-PANE-HEIGHT*{831} global *TRANSCRIPT-PANE-HEIGHT*{832} global *DISPLAY-PANE-HEIGHT*{833} global *DISPLAY-PANE-WIDTH*{834} global *TEXT-HEIGHT*{835} global *BOLD-TEXT-HEIGHT*{836} global *ROMAN-TEXT-HEIGHT*{837} global *BOLD-FONT*{838} global *ROMAN-FONT*{839} global *BLACK-PIXEL*{840} global *WHITE-PIXEL*{841} global *BUTTON-HEIGHT*{842} global *BUTTON-WIDTH*{843} global *ROOT-WINDOW*{844} local *SCREEN*{845} local *DISPLAY*{846} global DELETE{847} local RETURN{849} local INFINITY{1030} local TWO-PI{1086} local PI{1088} local *FAIL?*{1377} global *PROGRAM*{1496} local XK_END{4139} local XK_NEXT{4140} local XK_PRIOR{4141} local XK_DOWN{4142} local XK_RIGHT{4143} local XK_UP{4144} local XK_LEFT{4145} local XK_HOME{4146} local INPUTHINT{4263} local PMAXSIZE{4267} local PMINSIZE{4268} local QUEUEDALREADY{4296} global JOINROUND{4396} local CAPROUND{4399} local LINEONOFFDASH{4403} local LINESOLID{4404} local GXXOR{4414} local MOD1MASK{4564} local MAPPINGNOTIFY{4569} local NOEXPOSE{4589} local EXPOSE{4591} local MOTIONNOTIFY{4597} global BUTTONPRESS{4599} global KEYPRESS{4601} local EXPOSUREMASK{4611} global POINTERMOTIONMASK{4620} global BUTTONPRESSMASK{4624} global KEYPRESSMASK{4626} global The following expression allocates on [inside REDRAW-DISPLAY-PANE 3947]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on [inside LOOP 94]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on [inside LOOP 4102]: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START)) The following expression allocates on [inside MAIN 4630]: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START)) The following expression allocates on [inside MAIN 4630]: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START)) The following expression allocates on [inside MAIN 4644]: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START)) The following expression allocates on [inside MAIN 4644]: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START)) The following expression allocates on [inside MAIN 4622]: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START)) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4665:148462, allocates on [clone SEND[3939] 11489]: (LIST WINDOW EVENT-TYPE) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4665:148462, allocates on the stack: (LIST WINDOW EVENT-TYPE) The following expression allocates on [inside REDRAW-DISPLAY-PANE 3953]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148338, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (LIST WINDOW EVENT-TYPE) METHOD) *WINDOW-METHODS*) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148344, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (LIST WINDOW EVENT-TYPE) METHOD) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148350, allocates on the heap: (LIST WINDOW EVENT-TYPE) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148338, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (LIST WINDOW EVENT-TYPE) METHOD) *WINDOW-METHODS*) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148344, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (LIST WINDOW EVENT-TYPE) METHOD) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148350, allocates on the heap: (LIST WINDOW EVENT-TYPE) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148338, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (LIST WINDOW EVENT-TYPE) METHOD) *WINDOW-METHODS*) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148344, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (LIST WINDOW EVENT-TYPE) METHOD) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148350, allocates on the heap: (LIST WINDOW EVENT-TYPE) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148338, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (LIST WINDOW EVENT-TYPE) METHOD) *WINDOW-METHODS*) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148344, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (LIST WINDOW EVENT-TYPE) METHOD) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148350, allocates on the heap: (LIST WINDOW EVENT-TYPE) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148338, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (LIST WINDOW EVENT-TYPE) METHOD) *WINDOW-METHODS*) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148344, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (LIST WINDOW EVENT-TYPE) METHOD) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148350, allocates on the heap: (LIST WINDOW EVENT-TYPE) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148338, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (LIST WINDOW EVENT-TYPE) METHOD) *WINDOW-METHODS*) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148344, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (LIST WINDOW EVENT-TYPE) METHOD) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148350, allocates on the heap: (LIST WINDOW EVENT-TYPE) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148338, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (LIST WINDOW EVENT-TYPE) METHOD) *WINDOW-METHODS*) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148344, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (LIST WINDOW EVENT-TYPE) METHOD) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148350, allocates on the heap: (LIST WINDOW EVENT-TYPE) The following expression allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE INTEGER->CHAR) (# # #)) CHARACTERS) The following expression allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\- CHARACTERS) The following expression allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE INTEGER->CHAR) (# # #)) CHARACTERS) The following expression allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC (# LIST1)) C) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) (LIST-LENGTH LIST)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRING-REF) STRING K) (LOOP (# K 1))) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((# #) 0 STRINGS)) The following expression allocates on [inside MAIN 4622]: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START)) The following expression allocates on [inside REDRAW-DISPLAY-PANE 3947]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1) (LOOP (# LIST1) LIST2 LISTS)) The following expression, define-application-example.sc:34:924, allocates on the heap: (LIST (CONTROL #\x) (CONTROL #\c)) The following expression, define-application-example.sc:33:884, allocates on [inside MAIN 4734]: (FORMAT #F "K=~s" *K*) The following expression, define-application-example.sc:31:801, allocates on the stack: (FORMAT #F "-K ~s" *K*) The following expression, define-application-example.sc:33:884, allocates on [inside MAIN 4728]: (FORMAT #F "K=~s" *K*) The following expression, define-application-example.sc:32:840, allocates on the stack: (FORMAT #F "+K ~s" *K*) The following expression, define-application-example.sc:26:675, allocates on [inside MAIN 4717]: (FORMAT #F "Mode=~s" *MODE*) The following expression, define-application-example.sc:24:589, allocates on [inside MAIN 4708]: (FORMAT #F "Flag=~s" *FLAG?*) The following expression, define-application-example.sc:79:2340, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (MAKE-LINE-SEGMENT (# X1 Y1) (# X2 Y2)) *ELLIPSES*) The following expression, define-application-example.sc:79:2380, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR) X2 Y2) The following expression, define-application-example.sc:79:2365, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR) X1 Y1) The following expression, define-application-example.sc:66:1940, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (MAKE-LINE-SEGMENT (# X1 Y1) (# X2 Y2)) *LINE-SEGMENTS*) The following expression, define-application-example.sc:66:1980, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR) X2 Y2) The following expression, define-application-example.sc:66:1965, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR) X1 Y1) The following expression allocates on the stack: (STRING-APPEND (SUBSTRING *INPUT* 0 (# *INPUT-POSITION* 1)) (SUBSTRING *INPUT* *INPUT-POSITION* (# *INPUT*))) The following expression allocates on the stack: (STRING-APPEND (SUBSTRING *INPUT* 0 *INPUT-POSITION*) (SUBSTRING *INPUT* (# *INPUT-POSITION* 1) (# *INPUT*))) The following expression allocates on the heap: (APPEND (STRING->LIST "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz") (STRING->LIST "1234567890-=\\`!@#$%^&*()_+|~[]{};':\",./<>? ")) The following expression allocates on the stack: (STRING-APPEND (SUBSTRING *INPUT* 0 *INPUT-POSITION*) (LIST->STRING (LIST CHARACTER)) (SUBSTRING *INPUT* *INPUT-POSITION* (# *INPUT*))) The following expression allocates on the stack: (LIST CHARACTER) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (LIST 'USER *INPUT*) *TRANSCRIPT*) The following expression allocates on the heap: (LIST 'USER *INPUT*) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 256 #F) The following expression allocates on the heap: (FORMAT #F "Cannot open font: ~a" BOLD-FONT-NAME) The following expression allocates on the heap: (FORMAT #F "Cannot open font: ~a" ROMAN-FONT-NAME) The following expression allocates on the heap: (FORMAT #F "Cannot connect to X server: ~a" (XDISPLAYNAME DISPLAY-NAME)) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5116:164138, allocates on [inside MAIN 4673]: (LIST X Y) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5021:160812, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (LIST 'SYSTEM STRING) *TRANSCRIPT*) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5021:160818, allocates on the heap: (LIST 'SYSTEM STRING) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5010:160597, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) BUTTON *BUTTONS*) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4960:158622, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (LIST CHARACTER DOCUMENTATION) (REMOVE-IF (LAMBDA # #) *HELP*)) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4960:158628, allocates on the heap: (LIST CHARACTER DOCUMENTATION) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4973:159162, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 256 #F) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4951:158347, allocates on the stack: (FORMAT #F "Can't form control character: ~s" CHARACTER) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4935:157672, allocates on the stack: (FORMAT #F "Can't form control character: ~s" CHARACTER) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4906:156622, allocates on [inside LOOP 4121]: (FORMAT #F "Unrecognized event: ~s" EVENT-TYPE) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4880:155494, allocates on [inside LOOP 4098]: (SEND WINDOW 'BUTTONPRESS (XEVENT-XBUTTON-X EVENT) (XEVENT-XBUTTON-Y EVENT)) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4828:153859, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) CHARACTER *PREFIX*) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4761:151726, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (MAKE-REGION X Y WIDTH HEIGHT METHOD) *REGIONS*) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE REGION 5) X Y WIDTH HEIGHT METHOD) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4681:148943, allocates on [inside REDRAW-DISPLAY-PANE 3963]: (STRING-APPEND S " " T) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4691:149357, allocates on the heap: (FORMAT #F "~a~a~a" (FIRST CHARACTER-STRINGS) ((PRIMITIVE-PROCEDURE MAKE-STRING) (# N #) #\space) (FIRST DOCUMENTATION-STRINGS)) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4693:149419, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) N (# #)) #\space) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4665:148462, allocates on SEND[3939]: (LIST WINDOW EVENT-TYPE) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148338, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (LIST WINDOW EVENT-TYPE) METHOD) *WINDOW-METHODS*) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148344, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (LIST WINDOW EVENT-TYPE) METHOD) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4662:148350, allocates on the heap: (LIST WINDOW EVENT-TYPE) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4656:148148, allocates on the heap: (FORMAT #F "~a ~a" (PREFIX-STRING (REST PREFIX)) (CHARACTER->PRETTY-NAME (FIRST PREFIX))) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4651:148014, allocates on the heap: ((PRIMITIVE-PROCEDURE STRING) CHARACTER) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4650:147962, allocates on the stack: (FORMAT #F "C-~a" ((PRIMITIVE-PROCEDURE INTEGER->CHAR) (# I 96))) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4648:147898, allocates on the stack: (FORMAT #F "M-~a" ((PRIMITIVE-PROCEDURE INTEGER->CHAR) I)) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4647:147843, allocates on the stack: (FORMAT #F "M-C-~a" ((PRIMITIVE-PROCEDURE INTEGER->CHAR) (# I 96))) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE LINE-SEGMENT 2) P Q) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:460:13684, allocates on LOOP[566]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (FIRST L) C) The following expression, /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:270:8460, allocates on the stack: (F C (FIRST L)) The following expression, /home/qobi/stalin/stalin-0.9/include/xlib.sc:89:3005, allocates on [inside TRACKING-POINTER 4217]: (LIST X Y) The following expression, /home/qobi/stalin/stalin-0.9/include/xlib.sc:41:1616, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) 50) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:353:12378, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\space RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:350:12277, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\space RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:344:12096, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\( RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:355:12454, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\) RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:341:12004, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRING-REF) X I) RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:322:11363, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRING-REF) X I) RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:261:9219, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) C RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:259:9144, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:256:9054, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\# RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:257:9091, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\F RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:253:8966, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\# RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:254:9003, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\T RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:250:8875, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\( RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:251:8912, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\) RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:231:8255, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\space RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:228:8156, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\space RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:222:7979, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\( RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:233:8329, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\) RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:218:7855, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRING-REF) X I) RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:217:7820, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\\ RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:211:7623, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\" RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:220:7926, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\" RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:195:7064, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRING-REF) X I) RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:133:4883, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) C RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:114:4182, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\\ RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:113:4145, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\# RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:131:4806, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:129:4722, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\c RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:128:4683, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\a RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:127:4644, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\p RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:126:4605, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\S RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:130:4761, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\e RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:123:4509, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\n RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:122:4470, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\i RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:121:4431, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\l RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:120:4392, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\w RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:119:4353, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\e RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:118:4314, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\N RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:124:4548, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\e RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:110:4055, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\# RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:111:4092, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\F RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:107:3967, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\# RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:108:4004, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\T RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:104:3876, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\( RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:105:3913, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\) RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:388:13630, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) CHAR RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:384:13455, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\newline RESULT) The following expression, /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:383:13407, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\~ RESULT) The closure for [inside MAIN 4621] is allocated on the heap The closure for [inside DEFINE-BUTTON 4166] is allocated on the heap The closure for DEFINE-BUTTON[4165] is allocated on the heap The closure for [inside FORMAT 81] is allocated on the stack Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W40678 is general case for the following reasons: nondegenerate nonheaded vector W28705 is general case for the following reasons: flonum Generating code In [inside LOOP 10001] Argument to STRUCTURE-REF might not be a structure of the correct type define-application-example.sc:40:1096:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:40:1096:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:40:1096:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:40:1096:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:40:1096:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:40:1096:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:40:1096:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:40:1096:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:40:1096:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:47:1300:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:47:1300:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:47:1300:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:47:1300:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:47:1300:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:47:1300:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:47:1300:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:50:1418:Argument to - might not be a number define-application-example.sc:50:1418:Argument to - might not be a number define-application-example.sc:51:1477:Argument to - might not be a number define-application-example.sc:51:1477:Argument to - might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4666:148517:Might call a non-procedure or call a procedure with the wrong number of arguments /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4666:148517:Might call a non-procedure or call a procedure with the wrong number of arguments /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4666:148517:Might call a non-procedure or call a procedure with the wrong number of arguments In [inside LOOP 10000] Argument to STRUCTURE-REF might not be a structure of the correct type In LOOP[9975] Argument to STRUCTURE-REF might not be a structure of the correct type In LOOP[9975] Argument to STRUCTURE-REF might not be a structure of the correct type In LOOP[9975] Argument to STRUCTURE-REF might not be a structure of the correct type In LOOP[9975] Argument to STRUCTURE-REF might not be a structure of the correct type In LOOP[9975] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11226] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11226] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11226] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11226] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11226] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11225] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11225] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11225] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11225] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11225] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11224] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11224] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11224] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11224] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11224] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CADR[9194] 11198] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CADR[9194] 11198] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CADR[9194] 11198] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CADR[9194] 11198] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CADR[9194] 11198] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CADR[9194] 11198] Argument to STRUCTURE-REF might not be a structure of the correct type In STRING-LENGTH[9671] Argument to STRING-LENGTH might not be a string In STRING-LENGTH[9671] Argument to STRING-LENGTH might not be a string In STRING-LENGTH[9671] Argument to STRING-LENGTH might not be a string In STRING-LENGTH[9671] Argument to STRING-LENGTH might not be a string In STRING-LENGTH[9671] Argument to STRING-LENGTH might not be a string In LOOP[9975] Argument to STRUCTURE-REF might not be a structure of the correct type In LOOP[9975] Argument to STRUCTURE-REF might not be a structure of the correct type In LOOP[9975] Argument to STRUCTURE-REF might not be a structure of the correct type In LOOP[9975] Argument to STRUCTURE-REF might not be a structure of the correct type In LOOP[9975] Argument to STRUCTURE-REF might not be a structure of the correct type In [inside LOOP 9831] Third argument to STRING-SET! might not be a character In [inside LOOP 9831] Third argument to STRING-SET! might not be a character In [inside LOOP 9831] Third argument to STRING-SET! might not be a character In [inside LOOP 9831] Argument to STRUCTURE-REF might not be a structure of the correct type In [inside LOOP 9831] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone [inside LOOP 9237] 11568] Argument to STRUCTURE-REF might not be a structure of the correct type In [inside LOOP 9809] First argument to STRING-REF might not be a string In [inside LOOP 9809] First argument to STRING-REF might not be a string In [inside LOOP 9809] First argument to STRING-REF might not be a string In [inside LOOP 9809] First argument to STRING-REF might not be a string In [inside LOOP 9809] First argument to STRING-REF might not be a string In [inside LOOP 9809] Argument to STRUCTURE-REF might not be a structure of the correct type In LOOP[9803] Argument to STRING-LENGTH might not be a string In LOOP[9803] Argument to STRING-LENGTH might not be a string In LOOP[9803] Argument to STRING-LENGTH might not be a string In LOOP[9803] Argument to STRING-LENGTH might not be a string In LOOP[9803] Argument to STRING-LENGTH might not be a string In LOOP[9817] Argument to STRING-LENGTH might not be a string In LOOP[9817] Argument to STRING-LENGTH might not be a string In LOOP[9817] Argument to STRING-LENGTH might not be a string In LOOP[9817] Argument to STRING-LENGTH might not be a string In LOOP[9817] Argument to STRING-LENGTH might not be a string In ASSOC[9369] Argument to STRUCTURE-REF might not be a structure of the correct type In ASSOC[9369] Argument to STRUCTURE-REF might not be a structure of the correct type In ASSOC[9369] Argument to STRUCTURE-REF might not be a structure of the correct type In [inside LOOP? 9229] Argument to STRUCTURE-REF might not be a structure of the correct type define-application-example.sc:73:2149:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:73:2149:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:73:2149:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:73:2149:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:73:2149:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:74:2214:Argument to - might not be a number define-application-example.sc:74:2224:Argument to - might not be a number define-application-example.sc:61:1774:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:61:1774:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:61:1774:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:61:1774:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:61:1774:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:61:1774:Might call a foreign procedure with arguments of the wrong type define-application-example.sc:61:1774:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5072:162479:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5072:162479:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5072:162479:Might call a foreign procedure with arguments of the wrong type In [clone CADR[9194] 11196] Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5080:162797:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5080:162797:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5099:163472:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5099:163472:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5105:163705:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5105:163705:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5100:163516:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5100:163516:Might call a foreign procedure with arguments of the wrong type In [clone CADR[9194] 11197] Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5090:163127:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5090:163127:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5092:163176:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5092:163176:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5112:164005:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5112:164005:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5112:164005:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5115:164117:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5115:164117:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5007:160402:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5007:160402:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5007:160402:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5007:160402:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5006:160365:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5006:160365:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5004:160275:Argument to + might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5005:160313:Argument to - might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5005:160313:Argument to - might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5002:160193:Argument to + might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5003:160230:Argument to - might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:5003:160230:Argument to - might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4999:160130:Argument to - might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4997:160026:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4997:160026:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4986:159684:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4986:159684:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4979:159425:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4979:159425:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4979:159425:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4979:159425:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4979:159425:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4979:159425:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4979:159425:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4980:159475:Argument to + might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4981:159510:Argument to + might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4976:159284:First argument to VECTOR-SET! might not be a vector /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4976:159306:Argument to CHAR->INTEGER might not be a character /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4976:159306:Argument to CHAR->INTEGER might not be a character /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4976:159306:Argument to CHAR->INTEGER might not be a character /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4976:159306:Argument to CHAR->INTEGER might not be a character In [clone CDR[9190] 11212] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CDR[9190] 11212] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CDR[9190] 11212] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CDR[9190] 11212] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CDR[9190] 11212] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CDR[9190] 11209] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CDR[9190] 11209] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CDR[9190] 11209] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CDR[9190] 11209] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CDR[9190] 11209] Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4975:159220:First argument to VECTOR-REF might not be a vector /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4975:159220:First argument to VECTOR-REF might not be a vector /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4975:159220:First argument to VECTOR-REF might not be a vector In [clone CAR[9189] 11232] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11232] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11232] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11232] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11232] Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4969:159025:First argument to VECTOR-REF might not be a vector /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4969:159025:First argument to VECTOR-REF might not be a vector /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4969:159025:First argument to VECTOR-REF might not be a vector In [clone CAR[9189] 11237] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11237] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11237] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11237] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11237] Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4971:159095:First argument to VECTOR-SET! might not be a vector /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4971:159095:First argument to VECTOR-SET! might not be a vector /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4971:159095:First argument to VECTOR-SET! might not be a vector In [clone CAR[9189] 11233] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11233] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11233] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11233] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11233] Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4968:158930:First argument to VECTOR-SET! might not be a vector /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4968:158930:First argument to VECTOR-SET! might not be a vector /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4968:158930:First argument to VECTOR-SET! might not be a vector In [clone CAR[9189] 11234] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11234] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11234] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11234] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11234] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11238] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CDR[9190] 11211] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11235] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CDR[9190] 11210] Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4915:156792:Might call a non-procedure or call a procedure with the wrong number of arguments /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4915:156792:Might call a non-procedure or call a procedure with the wrong number of arguments /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4914:156769:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4914:156769:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4911:156725:Might call a non-procedure or call a procedure with the wrong number of arguments /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4847:154401:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4847:154401:Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4626] Argument to ZERO? might not be a number or a pointer In [inside MAIN 4626] Argument to - might not be a number In [inside MAIN 4630] Argument to = might not be a number In [inside MAIN 4630] Argument to STRING-LENGTH might not be a string In [clone LOOP[9791] 11538] Argument to < might not be a real number In [clone [inside LOOP 9792] 11539] First argument to STRING-REF might not be a string In [clone SUBSTRING[9786] 11533] Argument to - might not be a number In [clone [inside LOOP 9792] 11549] First argument to STRING-REF might not be a string In [inside MAIN 4630] Argument to + might not be a number In [inside MAIN 4630] Argument to STRING-LENGTH might not be a string In [inside MAIN 4634] Argument to STRING-LENGTH might not be a string In [inside MAIN 4636] Argument to = might not be a number In [inside MAIN 4636] Argument to STRING-LENGTH might not be a string In [inside MAIN 4636] Argument to + might not be a number In [inside MAIN 4640] Argument to = might not be a number In [inside MAIN 4640] Argument to STRING-LENGTH might not be a string In [clone LOOP[9791] 11528] Argument to < might not be a real number In [clone [inside LOOP 9792] 11529] First argument to STRING-REF might not be a string In [clone SUBSTRING[9786] 11523] Argument to - might not be a number In [inside MAIN 4644] Argument to ZERO? might not be a number or a pointer In [clone [inside LOOP 9792] 11509] First argument to STRING-REF might not be a string In [inside MAIN 4644] Argument to - might not be a number In [clone LOOP[9791] 11518] Argument to < might not be a real number In [clone [inside LOOP 9792] 11519] Argument to - might not be a number In [clone [inside LOOP 9792] 11519] First argument to STRING-REF might not be a string In [clone SUBSTRING[9786] 11513] Argument to - might not be a number In [inside MAIN 4644] Argument to STRING-LENGTH might not be a string In [inside MAIN 4644] Argument to - might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4842:154269:Might call a non-procedure or call a procedure with the wrong number of arguments /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4842:154269:Might call a non-procedure or call a procedure with the wrong number of arguments In LOOP[9791] Argument to < might not be a real number In [inside LOOP 9792] First argument to STRING-REF might not be a string In SUBSTRING[9786] Argument to - might not be a number In [clone LOOP[9791] 11498] Argument to < might not be a real number In [clone [inside LOOP 9792] 11499] Argument to - might not be a number In [clone [inside LOOP 9792] 11499] First argument to STRING-REF might not be a string In [clone SUBSTRING[9786] 11493] Argument to - might not be a number In [inside MAIN 4622] Argument to STRING-LENGTH might not be a string In [inside MAIN 4622] Argument to + might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4842:154269:Might call a non-procedure or call a procedure with the wrong number of arguments /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4826:153762:First argument to VECTOR-REF might not be a vector /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4756:151588:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4756:151588:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4747:151227:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4747:151227:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4747:151227:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4753:151476:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4753:151476:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4753:151476:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4753:151476:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4753:151476:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4754:151528:Argument to - might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4749:151296:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4749:151296:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4749:151296:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4749:151296:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4749:151296:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4749:151296:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4750:151354:Argument to - might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4751:151395:Argument to STRING-LENGTH might not be a string /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4743:151151:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4743:151151:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4735:150884:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4735:150884:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4735:150884:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4736:150925:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4736:150925:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4736:150925:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4736:150925:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4736:150925:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4736:150925:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4738:150989:Argument to - might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4739:151014:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4739:151014:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4739:151014:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4739:151048:Argument to STRING-LENGTH might not be a string /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4741:151087:Argument to - might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4742:151123:Argument to STRING-LENGTH might not be a string /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4731:150810:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4731:150810:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4723:150444:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4723:150444:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4723:150444:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4724:150483:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4724:150483:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4724:150483:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4724:150483:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4724:150483:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4724:150483:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4724:150531:Argument to - might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4725:150572:Argument to STRING-LENGTH might not be a string /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4726:150599:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4726:150599:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4726:150599:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4726:150599:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4726:150599:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4727:150653:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4727:150653:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4727:150653:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4727:150653:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4729:150724:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4729:150724:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4729:150724:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4729:150724:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4730:150782:Argument to - might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4719:150374:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4719:150374:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4707:149839:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4707:149839:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4707:149839:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4714:150143:Argument to - might not be a number In [clone CDR[9190] 11206] Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4718:150349:Argument to - might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4715:150168:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4715:150168:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4715:150168:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4715:150168:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4715:150168:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4715:150168:Might call a foreign procedure with arguments of the wrong type In [clone CADR[9194] 11199] Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4717:150288:Argument to STRING-LENGTH might not be a string In [clone CADR[9194] 11200] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11229] Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4708:149924:Argument to - might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4703:149757:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4703:149757:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4674:148734:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4674:148734:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4674:148734:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4702:149733:Might call a non-procedure or call a procedure with the wrong number of arguments In [clone CDR[9190] 11202] Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4701:149702:Argument to + might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4701:149702:Argument to + might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4697:149551:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4697:149551:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4697:149551:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4697:149551:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4697:149551:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4697:149551:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4694:149446:Argument to STRING-LENGTH might not be a string /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4694:149446:Argument to STRING-LENGTH might not be a string /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4694:149446:Argument to STRING-LENGTH might not be a string /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4694:149446:Argument to STRING-LENGTH might not be a string /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4694:149446:Argument to STRING-LENGTH might not be a string In [clone CAR[9189] 11220] Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4686:149110:Argument to + might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4686:149110:Argument to + might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4686:149110:Argument to + might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4686:149110:Argument to + might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4686:149110:Argument to + might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4670:148631:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4670:148631:Might call a foreign procedure with arguments of the wrong type In [clone CDR[9190] 11208] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CDR[9190] 11207] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11231] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11230] Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4651:148014:Argument to STRING might not be a character /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4651:148014:Argument to STRING might not be a character /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4651:148014:Argument to STRING might not be a character /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4651:148014:Argument to STRING might not be a character /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4651:148014:Argument to STRING might not be a character /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4621:147202:Argument to CHAR->INTEGER might not be a character /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4621:147202:Argument to CHAR->INTEGER might not be a character /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4621:147202:Argument to CHAR->INTEGER might not be a character /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4621:147202:Argument to CHAR->INTEGER might not be a character /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4621:147202:Argument to CHAR->INTEGER might not be a character In LINE-SEGMENT-Q[1583] Argument to STRUCTURE-REF might not be a structure of the correct type In LINE-SEGMENT-Q[1583] Argument to STRUCTURE-REF might not be a structure of the correct type In LINE-SEGMENT-Q[1583] Argument to STRUCTURE-REF might not be a structure of the correct type In LINE-SEGMENT-P[1575] Argument to STRUCTURE-REF might not be a structure of the correct type In LINE-SEGMENT-P[1575] Argument to STRUCTURE-REF might not be a structure of the correct type In LINE-SEGMENT-P[1575] Argument to STRUCTURE-REF might not be a structure of the correct type In MAX[9486] Argument to MAX might not be a real number In MAX[9486] Argument to MAX might not be a real number In MAX[9486] Argument to MAX might not be a real number In MAX[9486] Argument to MAX might not be a real number In MAX[9486] Argument to MAX might not be a real number In MAX[9486] Argument to MAX might not be a real number In MAX[9486] Argument to MAX might not be a real number In MAX[9486] Argument to MAX might not be a real number In MAX[9486] Argument to MAX might not be a real number In MAX[9486] Argument to MAX might not be a real number /home/qobi/stalin/stalin-0.9/include/xlib.sc:71:2607:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/xlib.sc:71:2607:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/xlib.sc:71:2607:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:346:12158:Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:348:12215:Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:354:12424:Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:352:12352:Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:351:12312:Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:349:12249:Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:347:12192:Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:341:12010:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:341:12010:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:341:12010:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:341:12010:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:341:12010:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:341:12010:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:224:8041:Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:226:8096:Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:232:8299:Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:230:8229:Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:229:8191:Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:227:8128:Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:225:8073:Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:215:7747:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:215:7747:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:215:7747:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:215:7747:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:215:7747:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:215:7747:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:216:7781:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:216:7781:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:216:7781:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:216:7781:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:216:7781:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:216:7781:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:218:7861:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:218:7861:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:218:7861:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:218:7861:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:218:7861:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:218:7861:First argument to STRING-REF might not be a string /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:382:13361:Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:381:13326:Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:378:13208:Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/Scheme-to-C-compatibility.sc:377:13173:Argument to STRUCTURE-REF might not be a structure of the correct type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside KILL-APPLICATION 4663] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Argument to ZERO? might not be a number or a pointer In [inside MAIN 4573] Argument to ZERO? might not be a number or a pointer In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Argument to ZERO? might not be a number or a pointer In [inside MAIN 4573] Argument to ZERO? might not be a number or a pointer In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Argument to ZERO? might not be a number or a pointer In [inside MAIN 4573] Argument to ZERO? might not be a number or a pointer In [inside MAIN 4573] Argument to MAX might not be a real number In [inside MAIN 4573] Argument to MAX might not be a real number In [inside MAIN 4582] Argument to + might not be a number In [inside MAIN 4584] Argument to * might not be a number In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4587] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4587] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4587] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4590] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4590] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4590] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4589] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4589] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4589] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4589] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4589] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4589] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4589] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4589] Argument to + might not be a number In [inside MAIN 4586] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4586] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4586] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4586] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4586] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4586] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4586] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4586] Argument to + might not be a number In [inside MAIN 4586] Argument to + might not be a number In [inside MAIN 4586] Argument to + might not be a number In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In LOOP[9271] Argument to STRUCTURE-REF might not be a structure of the correct type In [inside LOOP 9272] Argument to STRUCTURE-REF might not be a structure of the correct type In [inside LOOP 9273] Argument to STRUCTURE-REF might not be a structure of the correct type In [inside LOOP 9272] Argument to STRUCTURE-REF might not be a structure of the correct type In [inside APPEND 9277] Argument to STRUCTURE-REF might not be a structure of the correct type In [inside APPEND 9277] Argument to STRUCTURE-REF might not be a structure of the correct type In [inside MAIN 4650] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4650] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4650] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4652] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4652] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4652] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Argument to + might not be a number In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type In [inside MAIN 4573] Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4666:148517:Might call a non-procedure or call a procedure with the wrong number of arguments /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4666:148517:Might call a non-procedure or call a procedure with the wrong number of arguments /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4666:148517:Might call a non-procedure or call a procedure with the wrong number of arguments /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4666:148517:Might call a non-procedure or call a procedure with the wrong number of arguments /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4666:148517:Might call a non-procedure or call a procedure with the wrong number of arguments In [clone CADR[9194] 11195] Argument to STRUCTURE-REF might not be a structure of the correct type In CADR[9194] Argument to STRUCTURE-REF might not be a structure of the correct type In REGION-METHOD[4028] Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4768:151900:Argument to + might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4771:151990:Argument to + might not be a number In [clone CAR[9189] 11217] Argument to STRUCTURE-REF might not be a structure of the correct type In CDR[9190] Argument to STRUCTURE-REF might not be a structure of the correct type In [clone CAR[9189] 11216] Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4666:148517:Might call a non-procedure or call a procedure with the wrong number of arguments /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4666:148517:Might call a non-procedure or call a procedure with the wrong number of arguments /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4666:148517:Might call a non-procedure or call a procedure with the wrong number of arguments In [inside MAIN 4726] Argument to = might not be a number In [inside MAIN 4726] Argument to + might not be a number In [inside MAIN 4732] Argument to = might not be a number In [inside MAIN 4732] Argument to - might not be a number /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4666:148517:Might call a non-procedure or call a procedure with the wrong number of arguments /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4666:148517:Might call a non-procedure or call a procedure with the wrong number of arguments /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4666:148517:Might call a non-procedure or call a procedure with the wrong number of arguments In [inside LOOP 9237] Argument to STRUCTURE-REF might not be a structure of the correct type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4860:154831:Might call a non-procedure or call a procedure with the wrong number of arguments /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4666:148517:Might call a non-procedure or call a procedure with the wrong number of arguments /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4666:148517:Might call a non-procedure or call a procedure with the wrong number of arguments /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4666:148517:Might call a non-procedure or call a procedure with the wrong number of arguments /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4822:153574:Might call a foreign procedure with arguments of the wrong type /home/qobi/stalin/stalin-0.9/include/QobiScheme.sc:4822:153574:Might call a foreign procedure with arguments of the wrong type Removing unused declarations Removing unused labels Writing database Compiling C code define-application-example.c: In function `f4126': define-application-example.c:4117: `v39264' undeclared (first use in this function) define-application-example.c:4117: (Each undeclared identifier is reported only once define-application-example.c:4117: for each function it appears in.) define-application-example.c:4123: `v39009' undeclared (first use in this function) define-application-example.c:4126: `v39410' undeclared (first use in this function) define-application-example.c: In function `f3946': define-application-example.c:5847: warning: `t1277' might be used uninitialized in this function define-application-example.c:5872: warning: `t1302' might be used uninitialized in this function define-application-example.c: In function `f15': define-application-example.c:8426: warning: `r15' might be used uninitialized in this function define-application-example.c: In function `f0': define-application-example.c:8898: warning: variable `a761' might be clobbered by `longjmp' or `vfork' define-application-example.c:8902: warning: variable `a810' might be clobbered by `longjmp' or `vfork' define-application-example.c:8903: warning: variable `a813' might be clobbered by `longjmp' or `vfork' define-application-example.c:8905: warning: variable `a815' might be clobbered by `longjmp' or `vfork' define-application-example.c:8907: warning: variable `a817' might be clobbered by `longjmp' or `vfork' define-application-example.c:8952: warning: variable `a13372' might be clobbered by `longjmp' or `vfork' ***** PANIC This shouldn't happen (PANIC ...) (FUCK-UP ...) (MAIN ...) 46301.130u 114.530s 13:10:34.67 7.3% 0+0k 0+0io 19765pf+0w compile boyer Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 20220 expressions 125 internal symbol types 0 external symbol types 31 primitive procedure types 204 non-called native procedure types 274 called noop native procedure types 139 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 1968 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 26317 type sets 629 hunoz variables 1530 non-hunoz variables 494 noop environments 1744 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 20648 expressions 125 internal symbol types 0 external symbol types 30 primitive procedure types 230 non-called native procedure types 273 called noop native procedure types 123 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 1970 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 26763 type sets 633 hunoz variables 1560 non-hunoz variables 494 noop environments 1791 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 8 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 6348 expressions 125 internal symbol types 0 external symbol types 30 primitive procedure types 206 non-called native procedure types 273 called noop native procedure types 123 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 1970 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 11116 type sets 283 hunoz variables 563 non-hunoz variables 0 noop environments 140 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 8 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: DISPLAY-STRING2[1505] has the following parameters: STRING{1846} local PORT{1847} local has the following in-lined locals: N{1848} I{1851} MEMBER[308] has the following parameters: OBJ{911} local LIST{912} local CADDDR[154] has the following parameter: PAIR{797} local EQUAL?[120] reentrant has the following parameters: OBJ1{760} local OBJ2{761} local has the following in-lined locals: OBJ1{753} OBJ2{754} v{755} v{762} v{763} TRUEP[88] has the following parameters: X{748} local LST{749} local has the following in-lined local: v{750} TAUTOLOGYP[73] reentrant has region has the following parameters: X{738} local TRUE-LST{739} local FALSE-LST{740} local has the following in-lined locals: PAIR{779} PAIR{785} PAIR{2169} PAIR{2171} PAIR{2172} PAIR{2173} REWRITE-ARGS[65] reentrant has the following parameter: LST{735} local REWRITE[62] reentrant has region has the following parameter: TERM{734} local has the following in-lined locals: ALIST{717} TERM{718} TERM1{725} TERM2{726} TERM{736} LST{737} PAIR{2170} PAIR{2174} TERM1{2185} TERM2{2186} ONE-WAY-UNIFY1-LST[58] reentrant has the following parameters: LST1{732} local LST2{733} local has the following in-lined locals: TERM1{728} TERM2{729} OBJ{2161} ALIST{2162} FALSEP[44] has the following parameters: X{722} local LST{723} local has the following in-lined local: v{724} APPLY-SUBST-LST[41] reentrant has the following parameters: ALIST{720} local LST{721} local has the following in-lined locals: ALIST{2179} TERM{2180} OBJ{2191} ALIST{2192} GET[16] has the following parameter: X{701} local has the following in-lined locals: W{703} V{704} ALIST{2164} OBJ{2165} ALIST{2166} [inside top level 0] has the following in-lined locals: I{655} X{705} Z{707} W{708} V{710} TERM{712} LST{715} X{741} TERM{742} ANS{743} ALIST{914} OBJ{1901} PORT{1902} OBJ{2144} OBJ{2159} ALIST{2160} PAIR{2175} PAIR{2176} PAIR{2177} ALIST{2182} TERM{2183} The following non-trivial in-line native procedures will be generated: [clone ASSQ[309] 2284] has the following parameters: OBJ{2191} local ALIST{2192} local [clone ONE-WAY-UNIFY1[48] 2270] has the following parameters: TERM1{2185} local TERM2{2186} local [clone APPLY-SUBST[34] 2263] has the following parameters: ALIST{2182} local TERM{2183} local [clone [inside APPLY-SUBST 40] 2262] reentrant [clone APPLY-SUBST[34] 2256] reentrant has the following parameters: ALIST{2179} local TERM{2180} local [clone CADR[136] 2251] has the following parameter: PAIR{2177} local [clone CADR[136] 2250] has the following parameter: PAIR{2176} local [clone CADR[136] 2249] has the following parameter: PAIR{2175} local [clone CADR[136] 2248] has the following parameter: PAIR{2174} local [clone CADR[136] 2247] has the following parameter: PAIR{2173} local [clone CADR[136] 2246] has the following parameter: PAIR{2172} local [clone CADR[136] 2245] has the following parameter: PAIR{2171} local [clone CADDR[142] 2244] has the following parameter: PAIR{2170} local [clone CADDR[142] 2243] has the following parameter: PAIR{2169} local [clone ASSQ[309] 2241] has the following parameters: OBJ{2165} local ALIST{2166} local [clone ASSQ[309] 2240] has the following parameter: ALIST{2164} local [clone ASSQ[309] 2239] has the following parameters: OBJ{2161} local ALIST{2162} local [clone ASSQ[309] 2238] has the following parameters: OBJ{2159} local ALIST{2160} local WRITE[1988] has the following parameter: OBJ{2144} local WRITE2[1581] has the following parameters: OBJ{1901} local PORT{1902} local LOOP[1509] has the following parameter: I{1851} local [inside DISPLAY-STRING2 1506] has the following parameter: N{1848} local [inside top level 1501] has the following parameter: THE-CURRENT-OUTPUT-PORT{1807} global ASSQ[309] has the following parameter: ALIST{914} local CADDR[142] has the following parameter: PAIR{785} local CADR[136] has the following parameter: PAIR{779} local [inside EQUAL? 122] has the following parameter: v{763} local [inside EQUAL? 121] reentrant has the following parameter: v{762} local [inside EQV? 116] has the following parameter: v{755} local EQV?[115] has the following parameters: OBJ1{753} local OBJ2{754} local [inside TRUEP 89] has the following parameter: v{750} local [inside TEST 84] has region has the following parameters: TERM{742} local ANS{743} local TAUTP[82] has the following parameter: X{741} local [inside TAUTOLOGYP 80] reentrant [inside TAUTOLOGYP 79] reentrant [inside TAUTOLOGYP 78] reentrant [inside TAUTOLOGYP 77] reentrant [inside REWRITE-WITH-LEMMAS 71] reentrant [inside REWRITE-WITH-LEMMAS 70] reentrant REWRITE-WITH-LEMMAS[68] reentrant has the following parameters: TERM{736} local LST{737} local [inside REWRITE-ARGS 67] reentrant [inside REWRITE 64] reentrant [inside ONE-WAY-UNIFY1-LST 60] reentrant [inside ONE-WAY-UNIFY1 56] reentrant ONE-WAY-UNIFY1[48] reentrant has the following parameters: TERM1{728} local TERM2{729} local ONE-WAY-UNIFY[46] has the following parameters: TERM1{725} local TERM2{726} local [inside FALSEP 45] has the following parameter: v{724} local [inside APPLY-SUBST-LST 43] reentrant APPLY-SUBST[34] has the following parameters: ALIST{717} local TERM{718} local ADD-LEMMA-LST[30] has the following parameter: LST{715} local ADD-LEMMA[26] has the following parameter: TERM{712} local [inside PUT 22] has the following parameter: V{710} local [inside PUT 20] has the following parameter: W{708} local PUT[19] has the following parameters: X{705} local Z{707} local [inside GET 18] has the following parameter: V{704} local [inside GET 17] has the following parameter: W{703} local [inside RUN 14] has region has the following parameters: TEMP-TEMP{673} global UNIFY-SUBST{674} global *PROPERTY-LISTS*{677} global loop[8] has the following parameter: I{655} local The following expression, boyer-stalin.sc:74:2576, allocates on [inside TEST 84]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TERM) (APPLY-SUBST-LST ALIST (# TERM))) The following expression, boyer-stalin.sc:74:2576, allocates on [inside TEST 84]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TERM) (APPLY-SUBST-LST ALIST (# TERM))) The following expression, boyer-stalin.sc:279:11790, allocates on TAUTOLOGYP[73]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CADR X) FALSE-LST) The following expression, boyer-stalin.sc:275:11687, allocates on TAUTOLOGYP[73]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CADR X) TRUE-LST) The following expression, boyer-stalin.sc:111:3731, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (REWRITE (# LST)) (REWRITE-ARGS (# LST))) The following expression, boyer-stalin.sc:106:3582, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TERM) (REWRITE-ARGS (# TERM))) The following expression, boyer-stalin.sc:91:3157, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TERM2 TERM1) UNIFY-SUBST) The following expression, boyer-stalin.sc:91:3163, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TERM2 TERM1) The following expression, boyer-stalin.sc:78:2710, allocates on [inside TEST 84]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (APPLY-SUBST ALIST (# LST)) (APPLY-SUBST-LST ALIST (# LST))) The following expression, boyer-stalin.sc:74:2576, allocates on REWRITE[62]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TERM) (APPLY-SUBST-LST ALIST (# TERM))) The following expression, boyer-stalin.sc:60:2133, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TERM (GET (# #) 'LEMMAS)) The following expression, boyer-stalin.sc:47:1749, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X '()) The following expression, boyer-stalin.sc:48:1793, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) W *PROPERTY-LISTS*) The following expression, boyer-stalin.sc:50:1890, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) W)) The following expression, boyer-stalin.sc:50:1896, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W20636 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 1% - Expanding macros 3 - 1% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 1 - 0% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 229 - 66% - Performing flow analysis 0 - 0% - Enumerating call sites 3 - 1% - Determining which types and type sets are used 2 - 1% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 0% - Determining which environments are called more than once 0 - 0% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 3 - 1% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 0% - Determining which environments are recursive 0 - 0% - Determining which environments are reentrant 30 - 8% - Asserting uniqueness 40 - 11% - Performing lightweight closure conversion 0 - 0% - Determining parents 2 - 1% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 24 - 7% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 1 - 0% - Generating code 5 - 1% - Removing unused declarations 1 - 0% - Removing unused labels 1 - 0% - Writing database 0 - 0% - Compiling C code 351.19user 0.55system 5:59.62elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32630major+433472minor)pagefaults 0swaps run boyer 65.71user 12.23system 1:18.90elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (99major+465049minor)pagefaults 0swaps compile browse Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 15790 expressions 8 internal symbol types 1 external symbol type 31 primitive procedure types 208 non-called native procedure types 283 called noop native procedure types 179 called non-noop native procedure types 1 foreign procedure type 0 continuation types 2 string types 92 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 18162 type sets 638 hunoz variables 1548 non-hunoz variables 500 noop environments 1668 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 16076 expressions 8 internal symbol types 1 external symbol type 31 primitive procedure types 208 non-called native procedure types 283 called noop native procedure types 189 called non-noop native procedure types 1 foreign procedure type 0 continuation types 2 string types 100 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 18483 type sets 642 hunoz variables 1572 non-hunoz variables 500 noop environments 1687 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 8 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 2959 expressions 8 internal symbol types 1 external symbol type 31 primitive procedure types 208 non-called native procedure types 283 called noop native procedure types 189 called non-noop native procedure types 1 foreign procedure type 0 continuation types 2 string types 100 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 4042 type sets 304 hunoz variables 586 non-hunoz variables 0 noop environments 198 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 8 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: ASSV[357] has the following parameters: OBJ{942} local ALIST{943} local has the following in-lined locals: OBJ1{780} OBJ2{781} v{782} LOOP[269] reentrant has the following parameters: LIST1{874} local LIST2{875} local LISTS{876} local MATCH[95] reentrant has region has the following parameters: PAT{750} local DAT{751} local ALIST{752} local has the following in-lined locals: X{683} Y{684} A{687} B{688} v{753} v{754} v{755} VAL{756} VAL{757} L{760} E{761} D{762} v{763} SS{866} SS{869} v{870} v{871} SS{879} SS{900} GENSYM[34] has the following in-lined locals: STRING{1432} N{1433} R{1434} K{1438} COPY-TREE[24] reentrant has the following parameter: X{690} local [inside top level 0] has the following in-lined locals: I{655} *RAND*{663} *PROPERTY-LISTS*{667} X{691} W{693} V{694} X{695} Y{696} W{698} V{700} N{702} M{703} NPATS{704} IPATS{705} IPATS{706} N{710} I{711} NAME{712} A{713} I{720} I{724} IPATS{725} A{726} J{730} P{734} L{736} A{739} N{741} N{746} X{747} UNITS{764} PATS{765} UNITS{768} PATS{772} P{776} PAIR{806} PAIR{808} LIST{844} K{847} S{849} ALIST{941} OBJ{2186} ALIST{2187} OBJ{2188} ALIST{2189} OBJ{2190} ALIST{2191} X{2192} Z{2194} W{2195} V{2197} X{2199} Y{2200} W{2202} V{2204} OBJ{2206} ALIST{2207} OBJ{2208} ALIST{2209} OBJ{2210} ALIST{2211} ALIST{2213} The following non-trivial in-line native procedures will be generated: [clone ASSQ[356] 2186] has the following parameter: ALIST{2213} local [clone ASSQ[356] 2185] has the following parameters: OBJ{2210} local ALIST{2211} local [clone ASSQ[356] 2184] has the following parameters: OBJ{2208} local ALIST{2209} local [clone ASSQ[356] 2183] has the following parameters: OBJ{2206} local ALIST{2207} local [clone [inside PUT 31] 2180] has the following parameter: V{2204} local [clone [inside PUT 29] 2178] has the following parameter: W{2202} local [clone PUT[28] 2177] has the following parameters: X{2199} local Y{2200} local [clone [inside PUT 31] 2174] has the following parameter: V{2197} local [clone [inside PUT 29] 2172] has the following parameter: W{2195} local [clone PUT[28] 2171] has the following parameters: X{2192} local Z{2194} local [clone ASSQ[356] 2170] has the following parameters: OBJ{2190} local ALIST{2191} local [clone ASSQ[356] 2169] has the following parameters: OBJ{2188} local ALIST{2189} local [clone ASSQ[356] 2168] has the following parameters: OBJ{2186} local ALIST{2187} local LOOP[823] has the following parameter: K{1438} local [inside STRING-COPY 818] has the following parameter: R{1434} local [inside STRING-COPY 817] has the following parameter: N{1433} local STRING-COPY[816] has the following parameter: STRING{1432} local ASSQ[356] has the following parameter: ALIST{941} local LOOP[301] has the following parameter: SS{900} local LOOP[273] has the following parameter: SS{879} local [inside LOOP 262] has the following parameter: v{871} local [inside LOOP 261] has the following parameter: v{870} local LOOP[260] has the following parameter: SS{869} local APPEND[256] has the following parameter: SS{866} local LENGTH[229] has the following parameter: S{849} local LOOP[224] has the following parameter: K{847} local LIST-LENGTH[221] has the following parameter: LIST{844} local CDDR[185] has the following parameter: PAIR{808} local CADR[183] has the following parameter: PAIR{806} local [inside EQV? 163] has the following parameter: v{782} local EQV?[162] has the following parameters: OBJ1{780} local OBJ2{781} local loop[138] has region has the following parameter: P{776} local loop[132] has the following parameter: PATS{772} local loop[126] has the following parameter: UNITS{768} local INVESTIGATE[123] has the following parameters: UNITS{764} local PATS{765} local BROWSE[122] has region [inside MATCH 121] reentrant [inside loop 118] reentrant [inside loop 116] reentrant has the following parameter: v{763} local loop[115] reentrant has the following parameters: L{760} local E{761} local D{762} local [inside MATCH 114] reentrant [inside MATCH 113] reentrant [inside MATCH 112] reentrant [inside MATCH 111] reentrant [inside MATCH 110] reentrant has the following parameter: VAL{757} local [inside MATCH 109] reentrant [inside MATCH 108] reentrant [inside MATCH 107] reentrant [inside MATCH 106] reentrant has the following parameter: VAL{756} local [inside MATCH 105] reentrant [inside MATCH 104] reentrant [inside MATCH 103] reentrant [inside MATCH 102] reentrant has the following parameter: v{755} local [inside MATCH 101] reentrant has the following parameter: v{754} local [inside MATCH 100] reentrant [inside MATCH 99] reentrant [inside MATCH 98] has the following parameter: v{753} local loop[89] has the following parameters: N{746} local X{747} local [inside loop 83] has the following parameter: N{741} local loop[79] has the following parameter: A{739} local RANDOMIZE[76] has the following parameter: L{736} local loop[70] has the following parameter: P{734} local loop[62] has the following parameter: J{730} local loop[55] has the following parameters: I{724} local IPATS{725} local A{726} local loop[48] has the following parameter: I{720} local loop[40] has the following parameters: N{710} local I{711} local NAME{712} local A{713} local [inside INIT 36] has the following parameter: IPATS{706} local INIT[35] has the following parameters: N{702} local M{703} local NPATS{704} local IPATS{705} local [inside PUT 31] has the following parameter: V{700} local [inside PUT 29] has the following parameter: W{698} local PUT[28] has the following parameters: X{695} local Y{696} local [inside GET 27] has the following parameter: V{694} local [inside GET 26] has the following parameter: W{693} local GET[25] has the following parameter: X{691} local loop[19] has the following parameters: A{687} local B{688} local APPEND![16] has the following parameters: X{683} local Y{684} local [inside RUN 14] has region has the following parameters: *RAND*{663} local *PROPERTY-LISTS*{667} local loop[8] has the following parameter: I{655} local The following expression, browse-stalin.sc:55:2228, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X '()) The following expression, browse-stalin.sc:56:2272, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) W *PROPERTY-LISTS*) The following expression, browse-stalin.sc:58:2369, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) W)) The following expression, browse-stalin.sc:58:2375, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) The following expression, browse-stalin.sc:55:2228, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X '()) The following expression, browse-stalin.sc:56:2272, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) W *PROPERTY-LISTS*) The following expression, browse-stalin.sc:58:2369, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) W)) The following expression, browse-stalin.sc:58:2375, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) The following expression allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRING) N) The following expression allocates on MATCH[95]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1) (LOOP (# LIST1) LIST2 LISTS)) The following expression, browse-stalin.sc:135:4679, allocates on loop[138]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (IF (# D) '() (# D)) '()) The following expression, browse-stalin.sc:144:4900, allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (# PAT) L) ALIST) The following expression, browse-stalin.sc:144:4906, allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) PAT) L) The following expression, browse-stalin.sc:139:4766, allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '() DAT) The following expression, browse-stalin.sc:130:4562, allocates on MATCH[95]: (APPEND ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) VAL) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) PAT)) The following expression, browse-stalin.sc:125:4366, allocates on MATCH[95]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (# PAT) (# DAT)) ALIST) The following expression, browse-stalin.sc:125:4372, allocates on MATCH[95]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) PAT) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) DAT)) The following expression, browse-stalin.sc:121:4263, allocates on MATCH[95]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) VAL) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) PAT)) The following expression, browse-stalin.sc:105:3685, allocates on BROWSE[122]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CADR X) A) The following expression, browse-stalin.sc:100:3570, allocates on BROWSE[122]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) L) A) The following expression, browse-stalin.sc:89:3255, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) IPATS) A) The following expression, browse-stalin.sc:83:3066, allocates on BROWSE[122]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NAME A) The following expression, browse-stalin.sc:55:2228, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X '()) The following expression, browse-stalin.sc:56:2272, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) W *PROPERTY-LISTS*) The following expression, browse-stalin.sc:58:2369, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) W)) The following expression, browse-stalin.sc:58:2375, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) The following expression, browse-stalin.sc:41:1882, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (COPY-TREE (# X)) (COPY-TREE (# X))) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W15988 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 9% - Expanding macros 2 - 9% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 1 - 2% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 6 - 26% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 1 - 3% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 1% - Determining which environments are called more than once 0 - 2% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 2 - 10% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 1% - Determining which environments are recursive 0 - 2% - Determining which environments are reentrant 1 - 3% - Asserting uniqueness 4 - 17% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 1% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 1 - 3% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 1% - Determining which type sets are squishable 0 - 0% - Determining alignments 0 - 2% - Generating code 0 - 1% - Removing unused declarations 0 - 1% - Removing unused labels 1 - 2% - Writing database 0 - 0% - Compiling C code 23.63user 0.31system 0:26.25elapsed 91%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32321major+216880minor)pagefaults 0swaps run browse 45.49user 0.00system 0:46.05elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (75major+22minor)pagefaults 0swaps compile cpstak Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 14717 expressions 0 internal symbol types 0 external symbol types 26 primitive procedure types 213 non-called native procedure types 253 called noop native procedure types 52 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 16798 type sets 595 hunoz variables 1484 non-hunoz variables 471 noop environments 1553 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 5 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 14717 expressions 0 internal symbol types 0 external symbol types 26 primitive procedure types 213 non-called native procedure types 253 called noop native procedure types 52 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 16798 type sets 595 hunoz variables 1484 non-hunoz variables 471 noop environments 1553 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 5 Maximal clone rate is 1 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 1539 expressions 0 internal symbol types 0 external symbol types 26 primitive procedure types 213 non-called native procedure types 253 called noop native procedure types 52 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 2278 type sets 257 hunoz variables 480 non-hunoz variables 0 noop environments 52 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 5 Maximal clone rate is 1 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedure will be generated: [inside top level 0] has the following in-lined locals: I{655} X{658} Y{659} Z{660} A{663} V3{670} NUMBER{1773} PORT{1774} I{1777} NUMBER{1778} I{1781} I{1787} NUMBER{1788} I{1791} OBJ{1821} PORT{1822} OBJ{2064} The following non-trivial in-line native procedures will be generated: WRITE[1774] has the following parameter: OBJ{2064} local WRITE2[1367] has the following parameters: OBJ{1821} local PORT{1822} local LOOP[1321] has the following parameter: I{1791} local LOOP[1318] has the following parameters: I{1787} local NUMBER{1788} local LOOP[1307] has the following parameter: I{1781} local LOOP[1304] has the following parameters: I{1777} local NUMBER{1778} local DISPLAY-EXACT-INTEGER2[1300] has the following parameters: NUMBER{1773} local PORT{1774} local [inside top level 1287] has the following parameters: THE-CURRENT-OUTPUT-PORT{1727} global BUFFER{1729} global [inside TAK 20] has parent parameter [inside TAK 19] has the following parameter: V3{670} local [inside TAK 19] has parent parameter [inside TAK 18] has closure has parent slot [inside TAK 18] has the following parameter: V2{669} slotted [inside TAK 18] has parent parameter TAK[17] has closure has parent slot TAK[17] has the following parameter: V1{668} slotted TAK[17] has closure has region has the following parameters: X{664} slotted Y{665} slotted Z{666} slotted K{667} slotted [inside CPSTAK 16] has the following parameter: A{663} local CPSTAK[13] has the following parameters: X{658} local Y{659} local Z{660} local loop[8] has the following parameter: I{655} local The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20) The closure for [inside TAK 19] is allocated on TAK[17] The closure for [inside TAK 18] is allocated on TAK[17] The closure for TAK[17] is allocated on TAK[17] Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W14718 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 17% - Expanding macros 2 - 15% - Fast tree shake 0 - 1% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 1% - Annotating expressions with their environments 2 - 17% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 3 - 21% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 0 - 0% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 0% - Determining which environments are called more than once 0 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 1 - 4% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 0% - Determining which environments are recursive 0 - 1% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 1 - 11% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 2% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 0 - 1% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 2% - Determining which type sets are squishable 0 - 0% - Determining alignments 0 - 1% - Generating code 0 - 0% - Removing unused declarations 0 - 0% - Removing unused labels 0 - 2% - Writing database 0 - 0% - Compiling C code 12.22user 0.26system 0:14.48elapsed 86%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32199major+214662minor)pagefaults 0swaps run cpstak 12.22user 0.03system 0:12.36elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (91major+383minor)pagefaults 0swaps compile ctak Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 14728 expressions 0 internal symbol types 0 external symbol types 27 primitive procedure types 213 non-called native procedure types 253 called noop native procedure types 53 called non-noop native procedure types 1 foreign procedure type 5 continuation types 1 string type 0 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 16810 type sets 595 hunoz variables 1485 non-hunoz variables 471 noop environments 1554 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 14728 expressions 0 internal symbol types 0 external symbol types 27 primitive procedure types 213 non-called native procedure types 253 called noop native procedure types 53 called non-noop native procedure types 1 foreign procedure type 5 continuation types 1 string type 0 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 16810 type sets 595 hunoz variables 1485 non-hunoz variables 471 noop environments 1554 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 1550 expressions 0 internal symbol types 0 external symbol types 27 primitive procedure types 213 non-called native procedure types 253 called noop native procedure types 53 called non-noop native procedure types 1 foreign procedure type 5 continuation types 1 string type 0 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 2290 type sets 257 hunoz variables 481 non-hunoz variables 0 noop environments 53 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: CTAK-AUX[15] reentrant has the following parameters: K{664} local X{665} local Y{666} local Z{667} local has the following in-lined locals: K{668} K{669} K{670} K{671} [inside top level 0] has the following in-lined locals: I{657} X{660} Y{661} Z{662} K{663} NUMBER{1774} PORT{1775} I{1778} NUMBER{1779} I{1782} I{1788} NUMBER{1789} I{1792} OBJ{1822} PORT{1823} OBJ{2065} The following non-trivial in-line native procedures will be generated: WRITE[1775] has the following parameter: OBJ{2065} local WRITE2[1368] has the following parameters: OBJ{1822} local PORT{1823} local LOOP[1322] has the following parameter: I{1792} local LOOP[1319] has the following parameters: I{1788} local NUMBER{1789} local LOOP[1308] has the following parameter: I{1782} local LOOP[1305] has the following parameters: I{1778} local NUMBER{1779} local DISPLAY-EXACT-INTEGER2[1301] has the following parameters: NUMBER{1774} local PORT{1775} local [inside top level 1288] has the following parameters: THE-CURRENT-OUTPUT-PORT{1728} global BUFFER{1730} global [inside CTAK-AUX 21] reentrant has the following parameter: K{671} local [inside CTAK-AUX 20] reentrant has the following parameter: K{670} local [inside CTAK-AUX 19] reentrant has the following parameter: K{669} local [inside CTAK-AUX 18] reentrant has the following parameter: K{668} local [inside CTAK-AUX 17] reentrant [inside CTAK 14] has the following parameter: K{663} local CTAK[13] has the following parameters: X{660} local Y{661} local Z{662} local loop[8] has the following parameter: I{657} local The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W14729 is general case for the following reasons: nondegenerate nonheaded vector W14676 is general case for the following reasons: insufficient squish tag bits (3 needed 2 available) Generating code Removing unused declarations Removing unused labels Writing database Compiling C code ctak-stalin.c: In function `f15': ctak-stalin.c:62: warning: variable `t12' might be clobbered by `longjmp' or `vfork' ctak-stalin.c:71: warning: variable `t20' might be clobbered by `longjmp' or `vfork' ctak-stalin.c:80: warning: variable `t28' might be clobbered by `longjmp' or `vfork' ctak-stalin.c:43: warning: argument `a664' might be clobbered by `longjmp' or `vfork' ctak-stalin.c:43: warning: argument `a665' might be clobbered by `longjmp' or `vfork' ctak-stalin.c:43: warning: argument `a666' might be clobbered by `longjmp' or `vfork' ctak-stalin.c:43: warning: argument `a667' might be clobbered by `longjmp' or `vfork' ctak-stalin.c: In function `f0': ctak-stalin.c:159: warning: variable `a657' might be clobbered by `longjmp' or `vfork' ctak-stalin.c:265: warning: variable `t122' might be clobbered by `longjmp' or `vfork' Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 19% - Expanding macros 2 - 17% - Fast tree shake 0 - 1% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 3% - Annotating expressions with their environments 0 - 4% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 3 - 26% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 3% - Determining which types and type sets are used 0 - 1% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 1% - Determining which environments are called more than once 0 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 1 - 5% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 0% - Determining which environments are recursive 0 - 1% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 1 - 7% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 4% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 0 - 1% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 0 - 2% - Generating code 0 - 0% - Removing unused declarations 0 - 0% - Removing unused labels 0 - 1% - Writing database 0 - 0% - Compiling C code 10.57user 0.24system 0:13.42elapsed 80%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32183major+214638minor)pagefaults 0swaps run ctak 11.70user 0.01system 0:11.78elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (92major+36minor)pagefaults 0swaps compile dderiv Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 15154 expressions 9 internal symbol types 0 external symbol types 17 primitive procedure types 212 non-called native procedure types 260 called noop native procedure types 55 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 96 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 17461 type sets 614 hunoz variables 1499 non-hunoz variables 482 noop environments 1580 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 15899 expressions 9 internal symbol types 0 external symbol types 17 primitive procedure types 215 non-called native procedure types 263 called noop native procedure types 109 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 108 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 18265 type sets 620 hunoz variables 1553 non-hunoz variables 485 noop environments 1676 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 10 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 2420 expressions 9 internal symbol types 0 external symbol types 17 primitive procedure types 212 non-called native procedure types 263 called noop native procedure types 109 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 108 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 3434 type sets 275 hunoz variables 546 non-hunoz variables 0 noop environments 134 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 10 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: MAP[846] reentrant has the following parameters: PROC{1471} local LIST1{1472} local has the following in-lined locals: A{690} LIST{845} LIST{848} R{849} LIST1{1476} C{1477} OBJS{2119} A{2151} DDERIV{2152} A{2153} DDERIV{2154} CADR[78] has the following parameter: PAIR{733} local /DDERIV[27] reentrant has the following parameter: A{694} local has the following in-lined locals: OBJS{2120} OBJS{2121} OBJS{2122} OBJS{2123} A{2155} DDERIV{2156} A{2157} DDERIV{2158} *DDERIV[26] reentrant has the following parameter: A{693} local has the following in-lined local: OBJS{770} -DDERIV[25] reentrant has the following parameter: A{692} local +DDERIV[24] reentrant has the following parameter: A{691} local GET[13] has the following parameter: X{679} local has the following in-lined locals: W{681} V{682} ALIST{868} OBJ{2113} ALIST{2114} [inside top level 0] has the following in-lined locals: I{677} W{686} V{688} A{695} DDERIV{696} I{699} ALIST{2116} ALIST{2118} W{2127} V{2129} W{2134} V{2136} W{2141} V{2143} A{2145} DDERIV{2146} A{2147} DDERIV{2148} A{2149} DDERIV{2150} A{2159} DDERIV{2160} ALIST{2162} ALIST{2164} ALIST{2166} ALIST{2168} ALIST{2170} ALIST{2172} The following non-trivial in-line native procedures will be generated: [clone ASSQ[251] 2160] has the following parameter: ALIST{2172} local [clone ASSQ[251] 2159] has the following parameter: ALIST{2170} local [clone ASSQ[251] 2158] has the following parameter: ALIST{2168} local [clone ASSQ[251] 2157] has the following parameter: ALIST{2166} local [clone ASSQ[251] 2156] has the following parameter: ALIST{2164} local [clone ASSQ[251] 2155] has the following parameter: ALIST{2162} local [clone [inside DDERIV 33] 2152] has the following parameter: DDERIV{2160} local [clone DDERIV[28] 2147] has the following parameter: A{2159} local [clone [inside DDERIV 34] 2145] reentrant [clone [inside DDERIV 33] 2144] reentrant has the following parameter: DDERIV{2158} local [clone [inside DDERIV 32] 2143] reentrant [clone DDERIV[28] 2139] reentrant has the following parameter: A{2157} local [clone [inside DDERIV 34] 2137] reentrant [clone [inside DDERIV 33] 2136] reentrant has the following parameter: DDERIV{2156} local [clone [inside DDERIV 32] 2135] reentrant [clone DDERIV[28] 2131] reentrant has the following parameter: A{2155} local [clone [inside DDERIV 34] 2129] reentrant [clone [inside DDERIV 33] 2128] reentrant has the following parameter: DDERIV{2154} local [clone [inside DDERIV 32] 2127] reentrant [clone DDERIV[28] 2123] reentrant has the following parameter: A{2153} local [clone [inside DDERIV 34] 2121] reentrant [clone [inside DDERIV 33] 2120] reentrant has the following parameter: DDERIV{2152} local [clone [inside DDERIV 32] 2119] reentrant [clone DDERIV[28] 2115] reentrant has the following parameter: A{2151} local [clone [inside DDERIV 33] 2112] has the following parameter: DDERIV{2150} local [clone DDERIV[28] 2107] has the following parameter: A{2149} local [clone [inside DDERIV 33] 2104] has the following parameter: DDERIV{2148} local [clone DDERIV[28] 2099] has the following parameter: A{2147} local [clone [inside DDERIV 33] 2096] has the following parameter: DDERIV{2146} local [clone DDERIV[28] 2091] has the following parameter: A{2145} local [clone [inside PUT 19] 2087] has the following parameter: V{2143} local [clone [inside PUT 17] 2085] has the following parameter: W{2141} local [clone [inside PUT 19] 2080] has the following parameter: V{2136} local [clone [inside PUT 17] 2078] has the following parameter: W{2134} local [clone [inside PUT 19] 2073] has the following parameter: V{2129} local [clone [inside PUT 17] 2071] has the following parameter: W{2127} local [clone LIST[115] 2069] has the following parameter: OBJS{2123} local [clone LIST[115] 2068] has the following parameter: OBJS{2122} local [clone LIST[115] 2067] has the following parameter: OBJS{2121} local [clone LIST[115] 2066] has the following parameter: OBJS{2120} local [clone LIST[115] 2065] has the following parameter: OBJS{2119} local [clone ASSQ[251] 2064] has the following parameter: ALIST{2118} local [clone ASSQ[251] 2063] has the following parameter: ALIST{2116} local [clone ASSQ[251] 2062] has the following parameters: OBJ{2113} local ALIST{2114} local LOOP[850] reentrant has the following parameters: LIST1{1476} local C{1477} local [inside MAP 847] reentrant ASSQ[251] has the following parameter: ALIST{868} local LOOP[226] has the following parameters: LIST{848} local R{849} local LIST-REVERSE[223] has the following parameter: LIST{845} local LIST[115] has the following parameter: OBJS{770} local loop[39] has region has the following parameter: I{699} local [inside DDERIV 33] has the following parameter: DDERIV{696} local DDERIV[28] has the following parameter: A{695} local DDERIV-AUX[23] reentrant has the following parameter: A{690} local [inside PUT 19] has the following parameter: V{688} local [inside PUT 17] has the following parameter: W{686} local [inside GET 15] has the following parameter: V{682} local [inside GET 14] has the following parameter: W{681} local loop[8] has the following parameter: I{677} local [inside top level 4] has the following parameter: *PROPERTY-LISTS*{658} global The following expression, dderiv-stalin.sc:51:2178, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X '()) The following expression, dderiv-stalin.sc:52:2221, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) W *PROPERTY-LISTS*) The following expression, dderiv-stalin.sc:54:2316, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) W)) The following expression, dderiv-stalin.sc:54:2322, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) The following expression, dderiv-stalin.sc:51:2178, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X '()) The following expression, dderiv-stalin.sc:52:2221, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) W *PROPERTY-LISTS*) The following expression, dderiv-stalin.sc:54:2316, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) W)) The following expression, dderiv-stalin.sc:54:2322, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) The following expression, dderiv-stalin.sc:51:2178, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X '()) The following expression, dderiv-stalin.sc:52:2221, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) W *PROPERTY-LISTS*) The following expression, dderiv-stalin.sc:54:2316, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) W)) The following expression, dderiv-stalin.sc:54:2322, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) The following expression allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC (# LIST1)) C) The following expression allocates on loop[39]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression, dderiv-stalin.sc:71:2794, allocates on loop[39]: (LIST '- (LIST '/ (DDERIV #) (CADR A)) (LIST '/ (# A) (LIST # # # #))) The following expression, dderiv-stalin.sc:73:2853, allocates on loop[39]: (LIST '/ ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) A) (LIST '* (CADR A) (CADR A) (DDERIV #))) The following expression, dderiv-stalin.sc:75:2882, allocates on loop[39]: (LIST '* (CADR A) (CADR A) (DDERIV (CADR A))) The following expression, dderiv-stalin.sc:72:2810, allocates on loop[39]: (LIST '/ (DDERIV (# A)) (CADR A)) The following expression, dderiv-stalin.sc:66:2650, allocates on loop[39]: (LIST '* ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '* A) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '+ (MAP DDERIV-AUX A))) The following expression, dderiv-stalin.sc:66:2671, allocates on loop[39]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '+ (MAP DDERIV-AUX A)) The following expression, dderiv-stalin.sc:66:2659, allocates on loop[39]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '* A) The following expression, dderiv-stalin.sc:62:2533, allocates on loop[39]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '- (MAP DDERIV A)) The following expression, dderiv-stalin.sc:58:2416, allocates on loop[39]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '+ (MAP DDERIV A)) The following expression, dderiv-stalin.sc:56:2371, allocates on loop[39]: (LIST '/ (DDERIV A) A) The following expression, dderiv-stalin.sc:51:2178, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X '()) The following expression, dderiv-stalin.sc:52:2221, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) W *PROPERTY-LISTS*) The following expression, dderiv-stalin.sc:54:2316, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) W)) The following expression, dderiv-stalin.sc:54:2322, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W15773 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 11% - Expanding macros 2 - 13% - Fast tree shake 0 - 1% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 0 - 3% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 4 - 22% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 0 - 1% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 1% - Determining which environments are called more than once 0 - 2% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 2 - 11% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 1% - Determining which environments are recursive 0 - 2% - Determining which environments are reentrant 0 - 2% - Asserting uniqueness 2 - 13% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 2% - Determining which expressions need conversion to CPS 0 - 1% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 1 - 6% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 0 - 2% - Generating code 0 - 1% - Removing unused declarations 0 - 1% - Removing unused labels 0 - 2% - Writing database 0 - 0% - Compiling C code 17.87user 0.37system 0:21.17elapsed 86%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32170major+215980minor)pagefaults 0swaps run dderiv 22.38user 0.46system 0:23.14elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (87major+587minor)pagefaults 0swaps compile deriv Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 15041 expressions 8 internal symbol types 0 external symbol types 16 primitive procedure types 214 non-called native procedure types 252 called noop native procedure types 39 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 86 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 17294 type sets 601 hunoz variables 1478 non-hunoz variables 474 noop environments 1567 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 15043 expressions 8 internal symbol types 0 external symbol types 16 primitive procedure types 214 non-called native procedure types 252 called noop native procedure types 39 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 86 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 17296 type sets 601 hunoz variables 1479 non-hunoz variables 474 noop environments 1568 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 2 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 1596 expressions 8 internal symbol types 0 external symbol types 16 primitive procedure types 214 non-called native procedure types 252 called noop native procedure types 39 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 86 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 2494 type sets 256 hunoz variables 469 non-hunoz variables 0 noop environments 40 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 2 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: MAP[825] reentrant has the following parameters: PROC{1437} local LIST1{1438} local has the following in-lined locals: A{661} LIST{811} LIST{814} R{815} LIST1{1442} C{1443} OBJS{2079} DERIV[14] reentrant has the following parameter: A{662} local has the following in-lined local: OBJS{736} [inside top level 0] has the following in-lined locals: I{659} I{665} The following non-trivial in-line native procedures will be generated: [clone LIST[95] 2041] has the following parameter: OBJS{2079} local LOOP[829] reentrant has the following parameters: LIST1{1442} local C{1443} local [inside MAP 826] reentrant LOOP[206] has the following parameters: LIST{814} local R{815} local LIST-REVERSE[203] has the following parameter: LIST{811} local LIST[95] has the following parameter: OBJS{736} local loop[26] has region has the following parameter: I{665} local [inside DERIV 20] reentrant [inside DERIV 18] reentrant DERIV-AUX[13] reentrant has the following parameter: A{661} local loop[8] has the following parameter: I{659} local The following expression allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC (# LIST1)) C) The following expression allocates on loop[26]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression, deriv-stalin.sc:28:1113, allocates on loop[26]: (LIST '* A ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '+ (MAP DERIV-AUX #))) The following expression, deriv-stalin.sc:28:1124, allocates on loop[26]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '+ (MAP DERIV-AUX (# A))) The following expression, deriv-stalin.sc:26:1001, allocates on loop[26]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '+ (MAP DERIV (# A))) The following expression, deriv-stalin.sc:22:878, allocates on loop[26]: (LIST '/ (DERIV A) A) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W15044 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 17% - Expanding macros 2 - 16% - Fast tree shake 0 - 3% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 1% - Annotating expressions with their environments 0 - 4% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 3 - 24% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 2% - Determining which types and type sets are used 0 - 1% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 0% - Determining which environments are called more than once 0 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 2% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 0 - 3% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 0% - Determining which environments are recursive 0 - 1% - Determining which environments are reentrant 0 - 2% - Asserting uniqueness 1 - 8% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 3% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 1 - 5% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 0 - 2% - Generating code 0 - 0% - Removing unused declarations 0 - 1% - Removing unused labels 0 - 4% - Writing database 0 - 0% - Compiling C code 11.88user 0.23system 0:13.74elapsed 88%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32070major+214604minor)pagefaults 0swaps run deriv 9.33user 11.90system 0:21.42elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (81major+447042minor)pagefaults 0swaps compile destruct Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 15009 expressions 0 internal symbol types 0 external symbol types 20 primitive procedure types 215 non-called native procedure types 259 called noop native procedure types 80 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 3 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 17131 type sets 611 hunoz variables 1503 non-hunoz variables 482 noop environments 1600 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 5 Maximal clone rate is 1 Determining which call sites to split 1 pass of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 1638 expressions 0 internal symbol types 0 external symbol types 20 primitive procedure types 215 non-called native procedure types 259 called noop native procedure types 80 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 3 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 2398 type sets 266 hunoz variables 486 non-hunoz variables 0 noop environments 80 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 5 Maximal clone rate is 1 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: LENGTH[151] has the following parameter: S{777} local has the following in-lined locals: LIST{772} K{775} [inside top level 0] has the following in-lined locals: I{657} X{659} Y{660} A{663} B{664} N{666} M{667} L{668} I{671} L{675} v{678} J{681} A{682} L1{685} L2{686} J{690} A{691} N{693} J{697} A{698} X{699} I{704} A{705} The following non-trivial in-line native procedures will be generated: LOOP[146] has the following parameter: K{775} local LIST-LENGTH[143] has the following parameter: LIST{772} local loop[75] has the following parameters: I{704} local A{705} local [inside loop 66] has the following parameter: X{699} local loop[64] has the following parameters: J{697} local A{698} local [inside loop 58] has the following parameter: N{693} local loop[53] has the following parameters: J{690} local A{691} local loop[47] has the following parameters: L1{685} local L2{686} local loop[39] has the following parameters: J{681} local A{682} local [inside loop 36] has the following parameter: v{678} local loop[32] has the following parameter: L{675} local loop[25] has the following parameter: I{671} local [inside DESTRUCTIVE 22] has the following parameter: L{668} local DESTRUCTIVE[21] has region has the following parameters: N{666} local M{667} local loop[16] has the following parameters: A{663} local B{664} local APPEND![13] has the following parameters: X{659} local Y{660} local loop[8] has the following parameter: I{657} local The following expression, destruct-stalin.sc:27:989, allocates on DESTRUCTIVE[21]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '() A) The following expression, destruct-stalin.sc:33:1230, allocates on DESTRUCTIVE[21]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '() A) The following expression, destruct-stalin.sc:31:1154, allocates on DESTRUCTIVE[21]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '() '()) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W15010 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 19% - Expanding macros 2 - 18% - Fast tree shake 0 - 3% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 1% - Annotating expressions with their environments 0 - 4% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 2 - 14% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 0 - 1% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 1% - Determining which environments are called more than once 0 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 1 - 8% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 1% - Determining which environments are recursive 0 - 1% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 2 - 14% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 2% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 0 - 2% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 0 - 3% - Generating code 0 - 0% - Removing unused declarations 0 - 0% - Removing unused labels 0 - 1% - Writing database 0 - 0% - Compiling C code 10.71user 0.29system 0:12.59elapsed 87%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (31991major+214667minor)pagefaults 0swaps run destruct 5.48user 0.64system 0:06.17elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (80major+53042minor)pagefaults 0swaps compile div-iter Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 14771 expressions 0 internal symbol types 0 external symbol types 14 primitive procedure types 216 non-called native procedure types 253 called noop native procedure types 34 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 2 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 16866 type sets 603 hunoz variables 1486 non-hunoz variables 477 noop environments 1563 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 1 Determining which call sites to split 1 pass of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 1357 expressions 0 internal symbol types 0 external symbol types 14 primitive procedure types 216 non-called native procedure types 253 called noop native procedure types 34 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 2 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 2085 type sets 256 hunoz variables 466 non-hunoz variables 0 noop environments 34 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 1 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: ITERATIVE-DIV2[20] has the following parameter: L{668} local has the following in-lined locals: L{671} A{672} PAIR{711} [inside top level 0] has the following in-lined locals: *LL*{651} I{661} N{663} N{666} A{667} L{673} I{676} The following non-trivial in-line native procedures will be generated: CDDR[65] has the following parameter: PAIR{711} local loop[30] has region has the following parameter: I{676} local TEST-1[27] has the following parameter: L{673} local loop[23] has the following parameters: L{671} local A{672} local loop[16] has the following parameters: N{666} local A{667} local CREATE-N[13] has the following parameter: N{663} local loop[8] has the following parameter: I{661} local [inside top level 4] has the following parameter: *LL*{651} local The following expression, div-iter-stalin.sc:23:847, allocates on loop[30]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) L) A) The following expression, div-iter-stalin.sc:18:732, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '() A) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W14772 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 24% - Expanding macros 2 - 22% - Fast tree shake 0 - 4% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 1% - Annotating expressions with their environments 0 - 5% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 1 - 13% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 0 - 1% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 0% - Determining which environments are called more than once 0 - 2% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 0 - 4% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 0% - Determining which environments are recursive 0 - 1% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 1 - 10% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 2% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 0 - 1% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 0 - 4% - Generating code 0 - 0% - Removing unused declarations 0 - 0% - Removing unused labels 0 - 1% - Writing database 0 - 0% - Compiling C code 8.39user 0.29system 0:10.57elapsed 82%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (31848major+214518minor)pagefaults 0swaps run div-iter 4.24user 0.01system 0:04.28elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (85major+177minor)pagefaults 0swaps compile div-rec Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 14758 expressions 0 internal symbol types 0 external symbol types 14 primitive procedure types 216 non-called native procedure types 252 called noop native procedure types 31 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 2 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 16849 type sets 602 hunoz variables 1483 non-hunoz variables 476 noop environments 1560 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 1 Determining which call sites to split 1 pass of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 1344 expressions 0 internal symbol types 0 external symbol types 14 primitive procedure types 216 non-called native procedure types 252 called noop native procedure types 31 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 2 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 2068 type sets 255 hunoz variables 463 non-hunoz variables 0 noop environments 31 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 1 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: RECURSIVE-DIV2[20] reentrant has the following parameter: L{668} local has the following in-lined local: PAIR{707} [inside top level 0] has the following in-lined locals: *LL*{651} I{661} N{663} N{666} A{667} L{669} I{672} The following non-trivial in-line native procedures will be generated: CDDR[61] has the following parameter: PAIR{707} local loop[26] has region has the following parameter: I{672} local TEST-2[23] has the following parameter: L{669} local [inside RECURSIVE-DIV2 22] reentrant loop[16] has the following parameters: N{666} local A{667} local CREATE-N[13] has the following parameter: N{663} local loop[8] has the following parameter: I{661} local [inside top level 4] has the following parameter: *LL*{651} local The following expression, div-rec-stalin.sc:23:848, allocates on loop[26]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) L) (RECURSIVE-DIV2 (CDDR L))) The following expression, div-rec-stalin.sc:18:732, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '() A) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W14759 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 25% - Expanding macros 2 - 23% - Fast tree shake 0 - 4% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 1% - Annotating expressions with their environments 0 - 6% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 1 - 14% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 0 - 1% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 0% - Determining which environments are called more than once 0 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 0 - 4% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 0% - Determining which environments are recursive 0 - 1% - Determining which environments are reentrant 0 - 1% - Asserting uniqueness 1 - 8% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 2% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 0 - 1% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 0 - 4% - Generating code 0 - 0% - Removing unused declarations 0 - 0% - Removing unused labels 0 - 1% - Writing database 0 - 0% - Compiling C code 8.15user 0.27system 0:10.44elapsed 80%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (31848major+214506minor)pagefaults 0swaps run div-rec 6.74user 0.00system 0:06.80elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (85major+177minor)pagefaults 0swaps compile fft Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 15199 expressions 0 internal symbol types 0 external symbol types 36 primitive procedure types 213 non-called native procedure types 270 called noop native procedure types 77 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 3 headed vector types 1 nonheaded vector type 0 displaced vector types 17371 type sets 655 hunoz variables 1513 non-hunoz variables 492 noop environments 1594 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 5 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 15199 expressions 0 internal symbol types 0 external symbol types 36 primitive procedure types 213 non-called native procedure types 270 called noop native procedure types 77 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 3 headed vector types 1 nonheaded vector type 0 displaced vector types 17371 type sets 655 hunoz variables 1513 non-hunoz variables 492 noop environments 1594 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 5 Maximal clone rate is 1 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 1895 expressions 0 internal symbol types 0 external symbol types 36 primitive procedure types 213 non-called native procedure types 270 called noop native procedure types 77 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 3 headed vector types 1 nonheaded vector type 0 displaced vector types 2711 type sets 310 hunoz variables 502 non-hunoz variables 0 noop environments 77 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 5 Maximal clone rate is 1 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedure will be generated: [inside top level 0] has the following in-lined locals: *IM*{651} *RE*{652} PI{653} I{663} AREAL{665} AIMAG{666} TI{667} TR{668} WI{669} WR{670} UI{671} UR{672} NV2{674} IP{675} LE1{676} LE{677} N{678} M{679} K{680} J{681} I{682} AI{683} AR{684} I{705} P{706} L{726} I{740} P{741} J{744} I{748} NTIMES{758} STRING{1855} PORT{1856} N{1857} I{1860} OBJ{1944} PORT{1945} OBJ{2155} The following non-trivial in-line native procedures will be generated: DISPLAY[1840] has the following parameter: OBJ{2155} local DISPLAY2[1489] has the following parameters: OBJ{1944} local PORT{1945} local LOOP[1357] has the following parameter: I{1860} local [inside DISPLAY-STRING2 1354] has the following parameter: N{1857} local DISPLAY-STRING2[1353] has the following parameters: STRING{1855} local PORT{1856} local [inside top level 1349] has the following parameter: THE-CURRENT-OUTPUT-PORT{1816} global loop[75] has the following parameter: NTIMES{758} local loop[65] has the following parameter: I{748} local loop[59] has the following parameter: J{744} local LOOP[55] has the following parameters: I{740} local P{741} local loop[49] has the following parameter: L{726} local LOOP[25] has the following parameters: I{705} local P{706} local [inside FFT 14] has the following parameters: TI{667} local TR{668} local WI{669} local WR{670} local UI{671} local UR{672} local NV2{674} local IP{675} local LE1{676} local LE{677} local N{678} local M{679} local K{680} local J{681} local I{682} local AI{683} local AR{684} local FFT[13] has the following parameters: AREAL{665} local AIMAG{666} local loop[8] has the following parameter: I{663} local [inside top level 4] has the following parameters: *IM*{651} local *RE*{652} local PI{653} local The following expression, fft-stalin.sc:23:797, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 1025 0.) The following expression, fft-stalin.sc:21:759, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 1025 0.) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W15200 is general case for the following reasons: nondegenerate nonheaded vector W14750 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 16% - Expanding macros 2 - 18% - Fast tree shake 0 - 1% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 1% - Annotating expressions with their environments 1 - 4% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 3 - 26% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 0 - 1% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 1% - Determining which environments are called more than once 0 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 1 - 9% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 0% - Determining which environments are recursive 0 - 1% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 1 - 8% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 2% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 0 - 2% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 2% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 0 - 2% - Generating code 0 - 0% - Removing unused declarations 0 - 1% - Removing unused labels 0 - 1% - Writing database 0 - 0% - Compiling C code 12.20user 0.25system 0:15.24elapsed 81%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32746major+216919minor)pagefaults 0swaps run fft 6.67user 0.00system 0:06.78elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (85major+37minor)pagefaults 0swaps compile fprint Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 15028 expressions 21 internal symbol types 0 external symbol types 33 primitive procedure types 212 non-called native procedure types 256 called noop native procedure types 68 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 26 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 17178 type sets 605 hunoz variables 1491 non-hunoz variables 477 noop environments 1589 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 15028 expressions 21 internal symbol types 0 external symbol types 33 primitive procedure types 212 non-called native procedure types 256 called noop native procedure types 68 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 26 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 17178 type sets 605 hunoz variables 1491 non-hunoz variables 477 noop environments 1589 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 1 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 1690 expressions 21 internal symbol types 0 external symbol types 33 primitive procedure types 212 non-called native procedure types 256 called noop native procedure types 68 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 26 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 2499 type sets 269 hunoz variables 486 non-hunoz variables 0 noop environments 68 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 1 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: WRITE2[1409] reentrant has the following parameters: OBJ{1838} local PORT{1839} local has the following in-lined local: OBJ{1854} DISPLAY-STRING2[1333] has the following parameters: STRING{1783} local PORT{1784} local has the following in-lined locals: N{1785} I{1788} COPY[34] reentrant has the following parameter: X{685} local INIT-AUX[13] reentrant has the following parameters: M{665} local N{666} local ATOMS{667} local has the following in-lined locals: I{670} A{671} [inside top level 0] has the following in-lined locals: TEST-PATTERN{650} TEST-ATOMS{653} I{663} M{675} N{676} ATOMS{677} ATOMS{680} A{684} STREAM{686} STRING{1511} OUTPUT-PORT{1513} OBJ{2081} &REST{2082} &REST{2085} The following non-trivial in-line native procedures will be generated: NEWLINE[1824] has the following parameter: &REST{2085} local WRITE[1816] has the following parameters: OBJ{2081} local &REST{2082} local [inside LOOP 1446] reentrant [inside LOOP 1445] reentrant [inside LOOP 1444] reentrant [inside LOOP 1442] reentrant LOOP[1441] reentrant has the following parameter: OBJ{1854} local [inside WRITE2 1438] reentrant [inside WRITE2 1437] reentrant LOOP[1337] has the following parameter: I{1788} local [inside DISPLAY-STRING2 1334] has the following parameter: N{1785} local [inside CALL-WITH-OUTPUT-FILE 915] has the following parameter: OUTPUT-PORT{1513} local CALL-WITH-OUTPUT-FILE[914] has the following parameter: STRING{1511} local [inside FPRINT 38] has region [inside FPRINT 37] has region has the following parameter: STREAM{686} local loop[30] has the following parameter: A{684} local [inside INIT 26] has the following parameter: ATOMS{680} local INIT[23] has the following parameters: M{675} local N{676} local ATOMS{677} local [inside loop 21] reentrant [inside loop 20] reentrant loop[18] reentrant has the following parameters: I{670} local A{671} local [inside INIT-AUX 17] reentrant [inside INIT-AUX 16] reentrant [inside INIT-AUX 15] reentrant loop[8] has the following parameter: I{663} local [inside top level 4] has the following parameters: TEST-PATTERN{650} local TEST-ATOMS{653} local The following expression, fprint-stalin.sc:42:1534, allocates on [inside FPRINT 37]: (NEWLINE STREAM) The following expression, fprint-stalin.sc:43:1554, allocates on [inside FPRINT 38]: (WRITE TEST-PATTERN STREAM) The following expression, fprint-stalin.sc:32:1253, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (COPY (# X)) (COPY (# X))) The following expression, fprint-stalin.sc:29:1154, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (INIT-AUX (# M 1) N ATOMS) A) The following expression, fprint-stalin.sc:27:1085, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) ATOMS) A) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W15029 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 17% - Expanding macros 2 - 16% - Fast tree shake 0 - 3% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 1% - Annotating expressions with their environments 0 - 4% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 3 - 24% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 2% - Determining which types and type sets are used 0 - 1% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 1% - Determining which environments are called more than once 0 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 1 - 7% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 0% - Determining which environments are recursive 0 - 1% - Determining which environments are reentrant 0 - 2% - Asserting uniqueness 1 - 6% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 2% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 0 - 4% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 0 - 3% - Generating code 0 - 0% - Removing unused declarations 0 - 1% - Removing unused labels 1 - 5% - Writing database 0 - 0% - Compiling C code 11.88user 0.50system 0:14.91elapsed 83%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32198major+215162minor)pagefaults 0swaps run fprint 2.24user 0.85system 0:44.58elapsed 6%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (96major+1041minor)pagefaults 0swaps compile fread Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 14659 expressions 12 internal symbol types 1 external symbol type 36 primitive procedure types 194 non-called native procedure types 322 called noop native procedure types 467 called non-noop native procedure types 1 foreign procedure type 0 continuation types 3 string types 106 structure types 2 headed vector types 1 nonheaded vector type 0 displaced vector types 16940 type sets 593 hunoz variables 1473 non-hunoz variables 470 noop environments 1547 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 25753 expressions 12 internal symbol types 1 external symbol type 36 primitive procedure types 194 non-called native procedure types 529 called noop native procedure types 1379 called non-noop native procedure types 1 foreign procedure type 0 continuation types 3 string types 110 structure types 2 headed vector types 1 nonheaded vector type 0 displaced vector types 29704 type sets 800 hunoz variables 3263 non-hunoz variables 677 noop environments 2926 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 108 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 13851 expressions 12 internal symbol types 1 external symbol type 36 primitive procedure types 194 non-called native procedure types 529 called noop native procedure types 1379 called non-noop native procedure types 1 foreign procedure type 0 continuation types 3 string types 110 structure types 2 headed vector types 1 nonheaded vector type 0 displaced vector types 16780 type sets 565 hunoz variables 2476 non-hunoz variables 0 noop environments 1714 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 108 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: LOOKUP-CHARACTER-NAME[1240] has the following parameter: S{1698} local has the following in-lined locals: CHAR1{1048} CHAR2{1049} CHAR1{1053} CHAR2{1054} NAMES{1701} S{1705} NAME{1706} v{1707} CHAR{3278} CHAR{3279} READ-SYMBOL[1234] has region has the following parameter: S{1695} local has the following in-lined locals: C{1696} &REST{2087} &REST{2139} LIST{3232} LIST{3235} R{3236} LIST{3237} LIST{3240} R{3241} CHAR{3280} C{3306} v{3307} v{3308} v{3309} v{3310} CHAR{3356} CHAR1{3357} CHAR2{3358} CHAR1{3362} CHAR2{3363} CHAR1{3366} CHAR2{3367} CHAR1{3371} CHAR2{3372} CHAR1{3375} CHAR2{3376} CHAR1{3380} CHAR2{3381} CHAR1{3384} CHAR2{3385} CHAR1{3389} CHAR2{3390} CHAR1{3393} CHAR2{3394} CHAR1{3398} CHAR2{3399} CHAR-INITIAL?[1214] has the following parameter: C{1675} local has the following in-lined locals: v{1676} v{1677} v{1678} v{1679} v{1680} v{1681} v{1682} v{1683} v{1684} v{1685} v{1686} v{1687} v{1688} v{1689} CHAR1{2997} CHAR2{2998} CHAR1{3002} CHAR2{3003} CHAR1{3006} CHAR2{3007} CHAR1{3011} CHAR2{3012} CHAR1{3015} CHAR2{3016} CHAR1{3020} CHAR2{3021} CHAR1{3024} CHAR2{3025} CHAR1{3029} CHAR2{3030} CHAR1{3033} CHAR2{3034} CHAR1{3038} CHAR2{3039} CHAR1{3042} CHAR2{3043} CHAR1{3047} CHAR2{3048} CHAR1{3051} CHAR2{3052} CHAR1{3056} CHAR2{3057} CHAR1{3060} CHAR2{3061} CHAR1{3065} CHAR2{3066} CHAR1{3069} CHAR2{3070} CHAR1{3074} CHAR2{3075} CHAR1{3078} CHAR2{3079} CHAR1{3083} CHAR2{3084} CHAR1{3087} CHAR2{3088} CHAR1{3092} CHAR2{3093} CHAR1{3096} CHAR2{3097} CHAR1{3101} CHAR2{3102} CHAR1{3105} CHAR2{3106} CHAR1{3110} CHAR2{3111} CHAR1{3114} CHAR2{3115} CHAR1{3119} CHAR2{3120} CHAR{3284} v{3285} CHAR1{3320} CHAR2{3321} CHAR1{3325} CHAR2{3326} CHAR1{3329} CHAR2{3330} CHAR1{3334} CHAR2{3335} CHAR1{3338} CHAR2{3339} CHAR1{3343} CHAR2{3344} CHAR1{3347} CHAR2{3348} CHAR1{3352} CHAR2{3353} READ-NUMBER[1180] has region has the following parameter: N{1653} local has the following in-lined locals: CHAR1{1003} CHAR2{1004} CHAR1{1008} CHAR2{1009} CHAR{1095} C1{1654} v{1657} v{1658} v{1659} v{1660} v{1661} v{1662} v{1663} v{1664} v{1665} C2{1667} C3{1669} C3{1672} &REST{2048} &REST{2088} &REST{2089} &REST{2090} &REST{2091} &REST{2092} &REST{2140} CHAR1{2250} CHAR2{2251} CHAR1{2255} CHAR2{2256} CHAR1{2367} CHAR2{2368} CHAR1{2372} CHAR2{2373} CHAR1{2394} CHAR2{2395} CHAR1{2399} CHAR2{2400} CHAR1{2898} CHAR2{2899} CHAR1{2903} CHAR2{2904} CHAR1{2907} CHAR2{2908} CHAR1{2912} CHAR2{2913} CHAR1{2916} CHAR2{2917} CHAR1{2921} CHAR2{2922} CHAR1{2925} CHAR2{2926} CHAR1{2930} CHAR2{2931} CHAR1{2934} CHAR2{2935} CHAR1{2939} CHAR2{2940} CHAR1{2943} CHAR2{2944} CHAR1{2948} CHAR2{2949} CHAR1{2952} CHAR2{2953} CHAR1{2957} CHAR2{2958} CHAR1{2961} CHAR2{2962} CHAR1{2966} CHAR2{2967} CHAR1{2970} CHAR2{2971} CHAR1{2975} CHAR2{2976} CHAR1{2979} CHAR2{2980} CHAR1{2984} CHAR2{2985} CHAR1{2988} CHAR2{2989} CHAR1{2993} CHAR2{2994} CHAR{3242} CHAR{3243} CHAR{3265} CHAR1{3411} CHAR2{3412} CHAR1{3416} CHAR2{3417} CHAR1{3420} CHAR2{3421} CHAR1{3425} CHAR2{3426} CHAR1{3429} CHAR2{3430} CHAR1{3434} CHAR2{3435} CHAR1{3438} CHAR2{3439} CHAR1{3443} CHAR2{3444} CHAR1{3465} CHAR2{3466} CHAR1{3470} CHAR2{3471} CHAR1{3546} CHAR2{3547} CHAR1{3551} CHAR2{3552} READ-INEXACT-NUMBER[1148] has region has the following parameters: N{1631} local M{1632} local has the following in-lined locals: C1{1633} v{1635} v{1636} v{1637} v{1638} v{1639} v{1640} v{1641} v{1642} v{1643} C2{1645} C3{1647} C3{1650} &REST{2083} &REST{2120} &REST{2121} &REST{2123} &REST{2124} &REST{2125} CHAR1{2565} CHAR2{2566} CHAR1{2570} CHAR2{2571} CHAR1{2574} CHAR2{2575} CHAR1{2579} CHAR2{2580} CHAR1{2583} CHAR2{2584} CHAR1{2588} CHAR2{2589} CHAR1{2592} CHAR2{2593} CHAR1{2597} CHAR2{2598} CHAR1{2601} CHAR2{2602} CHAR1{2606} CHAR2{2607} CHAR1{2610} CHAR2{2611} CHAR1{2615} CHAR2{2616} CHAR1{2619} CHAR2{2620} CHAR1{2624} CHAR2{2625} CHAR1{2628} CHAR2{2629} CHAR1{2633} CHAR2{2634} CHAR1{2637} CHAR2{2638} CHAR1{2642} CHAR2{2643} CHAR1{2646} CHAR2{2647} CHAR1{2651} CHAR2{2652} CHAR1{2655} CHAR2{2656} CHAR1{2660} CHAR2{2661} CHAR1{2664} CHAR2{2665} CHAR1{2669} CHAR2{2670} CHAR{3253} CHAR{3255} CHAR{3256} CHAR{3257} CHAR1{3474} CHAR2{3475} CHAR1{3479} CHAR2{3480} CHAR1{3483} CHAR2{3484} CHAR1{3488} CHAR2{3489} CHAR1{3492} CHAR2{3493} CHAR1{3497} CHAR2{3498} CHAR1{3501} CHAR2{3502} CHAR1{3506} CHAR2{3507} CHAR1{3510} CHAR2{3511} CHAR1{3515} CHAR2{3516} CHAR1{3519} CHAR2{3520} CHAR1{3524} CHAR2{3525} CHAR1{3528} CHAR2{3529} CHAR1{3533} CHAR2{3534} CHAR1{3537} CHAR2{3538} CHAR1{3542} CHAR2{3543} READ-EXACT-HEXADECIMAL-INTEGER[1138] has region has the following parameter: N{1626} local has the following in-lined locals: C{1627} &REST{2084} &REST{2129} &REST{2130} &REST{2131} CHAR1{2169} CHAR2{2170} CHAR1{2174} CHAR2{2175} CHAR1{2178} CHAR2{2179} CHAR1{2183} CHAR2{2184} CHAR1{2313} CHAR2{2314} CHAR1{2318} CHAR2{2319} CHAR1{2322} CHAR2{2323} CHAR1{2327} CHAR2{2328} CHAR{3261} CHAR1{3901} CHAR2{3902} CHAR1{3906} CHAR2{3907} CHAR1{3910} CHAR2{3911} CHAR1{3915} CHAR2{3916} READ-EXACT-DECIMAL-INTEGER[1132] has region has the following parameter: N{1623} local has the following in-lined locals: C{1624} &REST{2082} &REST{2122} CHAR{3254} CHAR1{3447} CHAR2{3448} CHAR1{3452} CHAR2{3453} CHAR1{3456} CHAR2{3457} CHAR1{3461} CHAR2{3462} READ-EXACT-OCTAL-INTEGER[1126] has region has the following parameter: N{1620} local has the following in-lined locals: CHAR1{1039} CHAR2{1040} CHAR1{1044} CHAR2{1045} C{1621} &REST{2081} &REST{2113} CHAR1{2259} CHAR2{2260} CHAR1{2264} CHAR2{2265} READ-EXACT-BINARY-INTEGER[1118] has region has the following parameter: N{1616} local has the following in-lined locals: C{1617} &REST{2080} &REST{2108} &REST{2109} CHAR1{2457} CHAR2{2458} CHAR1{2462} CHAR2{2463} CHAR1{2466} CHAR2{2467} CHAR1{2471} CHAR2{2472} READ[885] reentrant has region has the following parameter: STATE{1498} local has the following in-lined locals: OBJS{723} LIST{798} LIST{801} R{802} CHAR1{1012} CHAR2{1013} CHAR1{1017} CHAR2{1018} CHAR1{1021} CHAR2{1022} CHAR1{1026} CHAR2{1027} CHAR1{1030} CHAR2{1031} CHAR1{1035} CHAR2{1036} CHAR{1093} v{1094} CHAR{1096} C{1097} v{1098} v{1099} v{1100} v{1101} CHAR{1106} LIST{1358} R{1359} K{1363} C1{1521} C2{1526} S{1531} E{1532} E1{1534} S{1538} C{1539} C2{1540} v{1542} v{1543} v{1544} C3{1545} C4{1547} C4{1549} v{1551} C3{1552} C4{1554} v{1557} C4{1558} v{1561} v{1562} C3{1563} C4{1565} C5{1567} C4{1570} C5{1572} C4{1575} v{1578} C3{1579} C4{1581} C4{1583} S{1587} E{1588} C3{1589} S{1593} C{1594} C1{1596} C2{1598} C3{1601} C2{1605} C3{1608} C2{1612} C{1690} v{1691} v{1692} v{1693} v{1694} S{1708} C{1709} &REST{2049} OBJS{2066} OBJS{2067} OBJS{2068} OBJS{2069} OBJS{2070} OBJS{2071} OBJS{2072} OBJS{2073} OBJS{2074} OBJS{2075} &REST{2076} &REST{2077} &REST{2078} &REST{2079} &REST{2085} &REST{2086} &REST{2093} &REST{2094} &REST{2095} &REST{2096} &REST{2097} &REST{2098} &REST{2099} &REST{2100} &REST{2101} &REST{2102} &REST{2103} &REST{2104} &REST{2105} &REST{2106} &REST{2107} &REST{2110} &REST{2111} &REST{2112} &REST{2114} &REST{2115} &REST{2116} &REST{2117} &REST{2118} &REST{2119} &REST{2126} &REST{2127} &REST{2128} &REST{2132} &REST{2133} &REST{2134} &REST{2135} &REST{2136} &REST{2137} &REST{2138} &REST{2141} CHAR1{2142} CHAR2{2143} CHAR1{2147} CHAR2{2148} CHAR1{2151} CHAR2{2152} CHAR1{2156} CHAR2{2157} CHAR1{2160} CHAR2{2161} CHAR1{2165} CHAR2{2166} CHAR1{2187} CHAR2{2188} CHAR1{2192} CHAR2{2193} CHAR1{2196} CHAR2{2197} CHAR1{2201} CHAR2{2202} CHAR1{2205} CHAR2{2206} CHAR1{2210} CHAR2{2211} CHAR1{2214} CHAR2{2215} CHAR1{2219} CHAR2{2220} CHAR1{2232} CHAR2{2233} CHAR1{2237} CHAR2{2238} CHAR1{2241} CHAR2{2242} CHAR1{2246} CHAR2{2247} CHAR1{2268} CHAR2{2269} CHAR1{2273} CHAR2{2274} CHAR1{2277} CHAR2{2278} CHAR1{2282} CHAR2{2283} CHAR1{2286} CHAR2{2287} CHAR1{2291} CHAR2{2292} CHAR1{2295} CHAR2{2296} CHAR1{2300} CHAR2{2301} CHAR1{2304} CHAR2{2305} CHAR1{2309} CHAR2{2310} CHAR1{2331} CHAR2{2332} CHAR1{2336} CHAR2{2337} CHAR1{2340} CHAR2{2341} CHAR1{2345} CHAR2{2346} CHAR1{2358} CHAR2{2359} CHAR1{2363} CHAR2{2364} CHAR1{2376} CHAR2{2377} CHAR1{2381} CHAR2{2382} CHAR1{2385} CHAR2{2386} CHAR1{2390} CHAR2{2391} CHAR1{2403} CHAR2{2404} CHAR1{2408} CHAR2{2409} CHAR1{2412} CHAR2{2413} CHAR1{2417} CHAR2{2418} CHAR1{2421} CHAR2{2422} CHAR1{2426} CHAR2{2427} CHAR1{2430} CHAR2{2431} CHAR1{2435} CHAR2{2436} CHAR1{2439} CHAR2{2440} CHAR1{2444} CHAR2{2445} CHAR1{2448} CHAR2{2449} CHAR1{2453} CHAR2{2454} CHAR1{2475} CHAR2{2476} CHAR1{2480} CHAR2{2481} CHAR1{2484} CHAR2{2485} CHAR1{2489} CHAR2{2490} CHAR1{2493} CHAR2{2494} CHAR1{2498} CHAR2{2499} CHAR1{2502} CHAR2{2503} CHAR1{2507} CHAR2{2508} CHAR1{2511} CHAR2{2512} CHAR1{2516} CHAR2{2517} CHAR1{2520} CHAR2{2521} CHAR1{2525} CHAR2{2526} CHAR1{2529} CHAR2{2530} CHAR1{2534} CHAR2{2535} CHAR1{2538} CHAR2{2539} CHAR1{2543} CHAR2{2544} CHAR1{2547} CHAR2{2548} CHAR1{2552} CHAR2{2553} CHAR1{2556} CHAR2{2557} CHAR1{2561} CHAR2{2562} CHAR1{2673} CHAR2{2674} CHAR1{2678} CHAR2{2679} CHAR1{2682} CHAR2{2683} CHAR1{2687} CHAR2{2688} CHAR1{2691} CHAR2{2692} CHAR1{2696} CHAR2{2697} CHAR1{2700} CHAR2{2701} CHAR1{2705} CHAR2{2706} CHAR1{2709} CHAR2{2710} CHAR1{2714} CHAR2{2715} CHAR1{2718} CHAR2{2719} CHAR1{2723} CHAR2{2724} CHAR1{2727} CHAR2{2728} CHAR1{2732} CHAR2{2733} CHAR1{2736} CHAR2{2737} CHAR1{2741} CHAR2{2742} CHAR1{2745} CHAR2{2746} CHAR1{2750} CHAR2{2751} CHAR1{2754} CHAR2{2755} CHAR1{2759} CHAR2{2760} CHAR1{2763} CHAR2{2764} CHAR1{2768} CHAR2{2769} CHAR1{2772} CHAR2{2773} CHAR1{2777} CHAR2{2778} CHAR1{2781} CHAR2{2782} CHAR1{2786} CHAR2{2787} CHAR1{2790} CHAR2{2791} CHAR1{2795} CHAR2{2796} CHAR1{2799} CHAR2{2800} CHAR1{2804} CHAR2{2805} CHAR1{2808} CHAR2{2809} CHAR1{2813} CHAR2{2814} CHAR1{2817} CHAR2{2818} CHAR1{2822} CHAR2{2823} CHAR1{2826} CHAR2{2827} CHAR1{2831} CHAR2{2832} CHAR1{2835} CHAR2{2836} CHAR1{2840} CHAR2{2841} CHAR1{2844} CHAR2{2845} CHAR1{2849} CHAR2{2850} CHAR1{2853} CHAR2{2854} CHAR1{2858} CHAR2{2859} CHAR1{2871} CHAR2{2872} CHAR1{2876} CHAR2{2877} CHAR1{2880} CHAR2{2881} CHAR1{2885} CHAR2{2886} CHAR1{2889} CHAR2{2890} CHAR1{2894} CHAR2{2895} CHAR1{3123} CHAR2{3124} CHAR1{3128} CHAR2{3129} CHAR1{3132} CHAR2{3133} CHAR1{3137} CHAR2{3138} CHAR1{3141} CHAR2{3142} CHAR1{3146} CHAR2{3147} CHAR1{3150} CHAR2{3151} CHAR1{3155} CHAR2{3156} CHAR1{3159} CHAR2{3160} CHAR1{3164} CHAR2{3165} CHAR1{3168} CHAR2{3169} CHAR1{3173} CHAR2{3174} CHAR1{3177} CHAR2{3178} CHAR1{3182} CHAR2{3183} CHAR1{3186} CHAR2{3187} CHAR1{3191} CHAR2{3192} CHAR1{3195} CHAR2{3196} CHAR1{3200} CHAR2{3201} CHAR1{3204} CHAR2{3205} CHAR1{3209} CHAR2{3210} CHAR1{3213} CHAR2{3214} CHAR1{3218} CHAR2{3219} LIST{3222} LIST{3225} R{3226} LIST{3227} LIST{3230} R{3231} CHAR{3244} CHAR{3245} CHAR{3246} CHAR{3247} CHAR{3248} CHAR{3249} CHAR{3250} CHAR{3251} CHAR{3252} CHAR{3258} CHAR{3259} CHAR{3260} CHAR{3262} CHAR{3263} CHAR{3264} CHAR{3266} CHAR{3267} CHAR{3268} CHAR{3269} CHAR{3270} CHAR{3271} CHAR{3272} CHAR{3273} CHAR{3274} CHAR{3275} CHAR{3276} CHAR{3277} CHAR{3281} CHAR{3282} v{3283} C{3286} v{3287} v{3288} v{3289} v{3290} C{3291} v{3292} v{3293} v{3294} v{3295} C{3296} v{3297} v{3298} v{3299} v{3300} C{3301} v{3302} v{3303} v{3304} v{3305} CHAR1{3311} CHAR2{3312} CHAR1{3316} CHAR2{3317} CHAR1{3402} CHAR2{3403} CHAR1{3407} CHAR2{3408} CHAR1{3555} CHAR2{3556} CHAR1{3560} CHAR2{3561} CHAR1{3564} CHAR2{3565} CHAR1{3569} CHAR2{3570} CHAR1{3573} CHAR2{3574} CHAR1{3578} CHAR2{3579} CHAR1{3582} CHAR2{3583} CHAR1{3587} CHAR2{3588} CHAR1{3591} CHAR2{3592} CHAR1{3596} CHAR2{3597} CHAR{3600} CHAR1{3601} CHAR2{3602} CHAR1{3606} CHAR2{3607} CHAR1{3610} CHAR2{3611} CHAR1{3615} CHAR2{3616} CHAR1{3619} CHAR2{3620} CHAR1{3624} CHAR2{3625} CHAR1{3628} CHAR2{3629} CHAR1{3633} CHAR2{3634} CHAR1{3637} CHAR2{3638} CHAR1{3642} CHAR2{3643} CHAR1{3646} CHAR2{3647} CHAR1{3651} CHAR2{3652} CHAR{3655} CHAR1{3656} CHAR2{3657} CHAR1{3661} CHAR2{3662} CHAR1{3665} CHAR2{3666} CHAR1{3670} CHAR2{3671} CHAR1{3674} CHAR2{3675} CHAR1{3679} CHAR2{3680} CHAR1{3683} CHAR2{3684} CHAR1{3688} CHAR2{3689} CHAR1{3692} CHAR2{3693} CHAR1{3697} CHAR2{3698} CHAR1{3701} CHAR2{3702} CHAR1{3706} CHAR2{3707} CHAR1{3710} CHAR2{3711} CHAR1{3715} CHAR2{3716} CHAR1{3719} CHAR2{3720} CHAR1{3724} CHAR2{3725} CHAR{3728} CHAR1{3729} CHAR2{3730} CHAR1{3734} CHAR2{3735} CHAR1{3738} CHAR2{3739} CHAR1{3743} CHAR2{3744} CHAR1{3747} CHAR2{3748} CHAR1{3752} CHAR2{3753} CHAR1{3756} CHAR2{3757} CHAR1{3761} CHAR2{3762} CHAR1{3765} CHAR2{3766} CHAR1{3770} CHAR2{3771} CHAR1{3774} CHAR2{3775} CHAR1{3779} CHAR2{3780} CHAR{3783} CHAR1{3784} CHAR2{3785} CHAR1{3789} CHAR2{3790} CHAR1{3793} CHAR2{3794} CHAR1{3798} CHAR2{3799} CHAR1{3802} CHAR2{3803} CHAR1{3807} CHAR2{3808} CHAR1{3811} CHAR2{3812} CHAR1{3816} CHAR2{3817} CHAR1{3820} CHAR2{3821} CHAR1{3825} CHAR2{3826} CHAR1{3829} CHAR2{3830} CHAR1{3834} CHAR2{3835} CHAR1{3838} CHAR2{3839} CHAR1{3843} CHAR2{3844} CHAR1{3847} CHAR2{3848} CHAR1{3852} CHAR2{3853} CHAR1{3856} CHAR2{3857} CHAR1{3861} CHAR2{3862} CHAR1{3865} CHAR2{3866} CHAR1{3870} CHAR2{3871} CHAR1{3874} CHAR2{3875} CHAR1{3879} CHAR2{3880} CHAR1{3883} CHAR2{3884} CHAR1{3888} CHAR2{3889} CHAR1{3892} CHAR2{3893} CHAR1{3897} CHAR2{3898} CHAR1{3919} CHAR2{3920} CHAR1{3924} CHAR2{3925} CHAR1{3928} CHAR2{3929} CHAR1{3933} CHAR2{3934} CHAR1{3937} CHAR2{3938} CHAR1{3942} CHAR2{3943} CHAR1{3946} CHAR2{3947} CHAR1{3951} CHAR2{3952} CHAR1{3955} CHAR2{3956} CHAR1{3960} CHAR2{3961} CHAR1{3964} CHAR2{3965} CHAR1{3969} CHAR2{3970} CHAR1{3973} CHAR2{3974} CHAR1{3978} CHAR2{3979} CHAR1{3982} CHAR2{3983} CHAR1{3987} CHAR2{3988} CHAR1{3991} CHAR2{3992} CHAR1{3996} CHAR2{3997} CHAR1{4000} CHAR2{4001} CHAR1{4005} CHAR2{4006} CHAR1{4009} CHAR2{4010} CHAR1{4014} CHAR2{4015} CHAR1{4018} CHAR2{4019} CHAR1{4023} CHAR2{4024} CHAR1{4027} CHAR2{4028} CHAR1{4032} CHAR2{4033} CHAR1{4036} CHAR2{4037} CHAR1{4041} CHAR2{4042} CHAR1{4045} CHAR2{4046} CHAR1{4050} CHAR2{4051} CHAR1{4054} CHAR2{4055} CHAR1{4059} CHAR2{4060} STRING-COPY[665] has the following parameter: STRING{1312} local has the following in-lined locals: N{1313} R{1314} K{1318} LIST->STRING[655] has the following parameter: LIST{1304} local has the following in-lined locals: R{1305} K{1309} STRING=?[504] has the following parameters: STRING1{1124} local STRING2{1125} local has the following in-lined locals: STRING1{1129} STRING2{1130} N{1132} K{1135} v{1136} CHAR1{2862} CHAR2{2863} CHAR1{2867} CHAR2{2868} CHAR-LOWER-CASE?[483] has the following parameter: LETTER{1103} local has the following in-lined locals: CHAR1{2223} CHAR2{2224} CHAR1{2228} CHAR2{2229} CHAR1{2349} CHAR2{2350} CHAR1{2354} CHAR2{2355} [inside top level 254] has the following parameter: STRING{850} local has the following in-lined locals: FOUND{851} PACKAGE{855} LIST-LENGTH[78] has the following parameter: LIST{724} local has the following in-lined local: K{727} [inside top level 0] has the following in-lined locals: I{655} STREAM{657} STRING{1476} INPUT-PORT{1478} The following non-trivial in-line native procedures will be generated: [clone LOOP?[434] 3600] has the following parameters: CHAR1{4059} local CHAR2{4060} local [clone CHAR<=?[431] 3597] has the following parameters: CHAR1{4054} local CHAR2{4055} local [clone LOOP?[434] 3594] has the following parameters: CHAR1{4050} local CHAR2{4051} local [clone CHAR<=?[431] 3591] has the following parameters: CHAR1{4045} local CHAR2{4046} local [clone LOOP?[440] 3588] has the following parameters: CHAR1{4041} local CHAR2{4042} local [clone CHAR>=?[437] 3585] has the following parameters: CHAR1{4036} local CHAR2{4037} local [clone LOOP?[440] 3582] has the following parameters: CHAR1{4032} local CHAR2{4033} local [clone CHAR>=?[437] 3579] has the following parameters: CHAR1{4027} local CHAR2{4028} local [clone LOOP?[434] 3576] has the following parameters: CHAR1{4023} local CHAR2{4024} local [clone CHAR<=?[431] 3573] has the following parameters: CHAR1{4018} local CHAR2{4019} local [clone LOOP?[434] 3570] has the following parameters: CHAR1{4014} local CHAR2{4015} local [clone CHAR<=?[431] 3567] has the following parameters: CHAR1{4009} local CHAR2{4010} local [clone LOOP?[440] 3564] has the following parameters: CHAR1{4005} local CHAR2{4006} local [clone CHAR>=?[437] 3561] has the following parameters: CHAR1{4000} local CHAR2{4001} local [clone LOOP?[440] 3558] has the following parameters: CHAR1{3996} local CHAR2{3997} local [clone CHAR>=?[437] 3555] has the following parameters: CHAR1{3991} local CHAR2{3992} local [clone LOOP?[434] 3552] has the following parameters: CHAR1{3987} local CHAR2{3988} local [clone CHAR<=?[431] 3549] has the following parameters: CHAR1{3982} local CHAR2{3983} local [clone LOOP?[440] 3546] has the following parameters: CHAR1{3978} local CHAR2{3979} local [clone CHAR>=?[437] 3543] has the following parameters: CHAR1{3973} local CHAR2{3974} local [clone LOOP?[434] 3540] has the following parameters: CHAR1{3969} local CHAR2{3970} local [clone CHAR<=?[431] 3537] has the following parameters: CHAR1{3964} local CHAR2{3965} local [clone LOOP?[440] 3534] has the following parameters: CHAR1{3960} local CHAR2{3961} local [clone CHAR>=?[437] 3531] has the following parameters: CHAR1{3955} local CHAR2{3956} local [clone LOOP?[434] 3528] has the following parameters: CHAR1{3951} local CHAR2{3952} local [clone CHAR<=?[431] 3525] has the following parameters: CHAR1{3946} local CHAR2{3947} local [clone LOOP?[434] 3522] has the following parameters: CHAR1{3942} local CHAR2{3943} local [clone CHAR<=?[431] 3519] has the following parameters: CHAR1{3937} local CHAR2{3938} local [clone LOOP?[440] 3516] has the following parameters: CHAR1{3933} local CHAR2{3934} local [clone CHAR>=?[437] 3513] has the following parameters: CHAR1{3928} local CHAR2{3929} local [clone LOOP?[434] 3510] has the following parameters: CHAR1{3924} local CHAR2{3925} local [clone CHAR<=?[431] 3507] has the following parameters: CHAR1{3919} local CHAR2{3920} local [clone LOOP?[434] 3504] has the following parameters: CHAR1{3915} local CHAR2{3916} local [clone CHAR<=?[431] 3501] has the following parameters: CHAR1{3910} local CHAR2{3911} local [clone LOOP?[440] 3498] has the following parameters: CHAR1{3906} local CHAR2{3907} local [clone CHAR>=?[437] 3495] has the following parameters: CHAR1{3901} local CHAR2{3902} local [clone LOOP?[440] 3492] has the following parameters: CHAR1{3897} local CHAR2{3898} local [clone CHAR>=?[437] 3489] has the following parameters: CHAR1{3892} local CHAR2{3893} local [clone LOOP?[440] 3486] has the following parameters: CHAR1{3888} local CHAR2{3889} local [clone CHAR>=?[437] 3483] has the following parameters: CHAR1{3883} local CHAR2{3884} local [clone LOOP?[434] 3480] has the following parameters: CHAR1{3879} local CHAR2{3880} local [clone CHAR<=?[431] 3477] has the following parameters: CHAR1{3874} local CHAR2{3875} local [clone LOOP?[440] 3474] has the following parameters: CHAR1{3870} local CHAR2{3871} local [clone CHAR>=?[437] 3471] has the following parameters: CHAR1{3865} local CHAR2{3866} local [clone LOOP?[434] 3468] has the following parameters: CHAR1{3861} local CHAR2{3862} local [clone CHAR<=?[431] 3465] has the following parameters: CHAR1{3856} local CHAR2{3857} local [clone LOOP?[440] 3462] has the following parameters: CHAR1{3852} local CHAR2{3853} local [clone CHAR>=?[437] 3459] has the following parameters: CHAR1{3847} local CHAR2{3848} local [clone LOOP?[434] 3456] has the following parameters: CHAR1{3843} local CHAR2{3844} local [clone CHAR<=?[431] 3453] has the following parameters: CHAR1{3838} local CHAR2{3839} local [clone LOOP?[434] 3450] has the following parameters: CHAR1{3834} local CHAR2{3835} local [clone CHAR<=?[431] 3447] has the following parameters: CHAR1{3829} local CHAR2{3830} local [clone LOOP?[416] 3444] has the following parameters: CHAR1{3825} local CHAR2{3826} local [clone CHAR=?[413] 3441] has the following parameters: CHAR1{3820} local CHAR2{3821} local [clone LOOP?[416] 3438] has the following parameters: CHAR1{3816} local CHAR2{3817} local [clone CHAR=?[413] 3435] has the following parameters: CHAR1{3811} local CHAR2{3812} local [clone LOOP?[416] 3432] has the following parameters: CHAR1{3807} local CHAR2{3808} local [clone CHAR=?[413] 3429] has the following parameters: CHAR1{3802} local CHAR2{3803} local [clone LOOP?[434] 3426] has the following parameters: CHAR1{3798} local CHAR2{3799} local [clone CHAR<=?[431] 3423] has the following parameters: CHAR1{3793} local CHAR2{3794} local [clone LOOP?[440] 3420] has the following parameters: CHAR1{3789} local CHAR2{3790} local [clone CHAR>=?[437] 3417] has the following parameters: CHAR1{3784} local CHAR2{3785} local [clone CHAR-NUMERIC?[475] 3416] has the following parameter: CHAR{3783} local [clone LOOP?[440] 3413] has the following parameters: CHAR1{3779} local CHAR2{3780} local [clone CHAR>=?[437] 3410] has the following parameters: CHAR1{3774} local CHAR2{3775} local [clone LOOP?[416] 3407] has the following parameters: CHAR1{3770} local CHAR2{3771} local [clone CHAR=?[413] 3404] has the following parameters: CHAR1{3765} local CHAR2{3766} local [clone LOOP?[416] 3401] has the following parameters: CHAR1{3761} local CHAR2{3762} local [clone CHAR=?[413] 3398] has the following parameters: CHAR1{3756} local CHAR2{3757} local [clone LOOP?[416] 3395] has the following parameters: CHAR1{3752} local CHAR2{3753} local [clone CHAR=?[413] 3392] has the following parameters: CHAR1{3747} local CHAR2{3748} local [clone LOOP?[434] 3389] has the following parameters: CHAR1{3743} local CHAR2{3744} local [clone CHAR<=?[431] 3386] has the following parameters: CHAR1{3738} local CHAR2{3739} local [clone LOOP?[440] 3383] has the following parameters: CHAR1{3734} local CHAR2{3735} local [clone CHAR>=?[437] 3380] has the following parameters: CHAR1{3729} local CHAR2{3730} local [clone CHAR-NUMERIC?[475] 3379] has the following parameter: CHAR{3728} local [clone LOOP?[440] 3376] has the following parameters: CHAR1{3724} local CHAR2{3725} local [clone CHAR>=?[437] 3373] has the following parameters: CHAR1{3719} local CHAR2{3720} local [clone LOOP?[434] 3370] has the following parameters: CHAR1{3715} local CHAR2{3716} local [clone CHAR<=?[431] 3367] has the following parameters: CHAR1{3710} local CHAR2{3711} local [clone LOOP?[434] 3364] has the following parameters: CHAR1{3706} local CHAR2{3707} local [clone CHAR<=?[431] 3361] has the following parameters: CHAR1{3701} local CHAR2{3702} local [clone LOOP?[416] 3358] has the following parameters: CHAR1{3697} local CHAR2{3698} local [clone CHAR=?[413] 3355] has the following parameters: CHAR1{3692} local CHAR2{3693} local [clone LOOP?[416] 3352] has the following parameters: CHAR1{3688} local CHAR2{3689} local [clone CHAR=?[413] 3349] has the following parameters: CHAR1{3683} local CHAR2{3684} local [clone LOOP?[416] 3346] has the following parameters: CHAR1{3679} local CHAR2{3680} local [clone CHAR=?[413] 3343] has the following parameters: CHAR1{3674} local CHAR2{3675} local [clone LOOP?[434] 3340] has the following parameters: CHAR1{3670} local CHAR2{3671} local [clone CHAR<=?[431] 3337] has the following parameters: CHAR1{3665} local CHAR2{3666} local [clone LOOP?[440] 3334] has the following parameters: CHAR1{3661} local CHAR2{3662} local [clone CHAR>=?[437] 3331] has the following parameters: CHAR1{3656} local CHAR2{3657} local [clone CHAR-NUMERIC?[475] 3330] has the following parameter: CHAR{3655} local [clone LOOP?[440] 3327] has the following parameters: CHAR1{3651} local CHAR2{3652} local [clone CHAR>=?[437] 3324] has the following parameters: CHAR1{3646} local CHAR2{3647} local [clone LOOP?[416] 3321] has the following parameters: CHAR1{3642} local CHAR2{3643} local [clone CHAR=?[413] 3318] has the following parameters: CHAR1{3637} local CHAR2{3638} local [clone LOOP?[416] 3315] has the following parameters: CHAR1{3633} local CHAR2{3634} local [clone CHAR=?[413] 3312] has the following parameters: CHAR1{3628} local CHAR2{3629} local [clone LOOP?[416] 3309] has the following parameters: CHAR1{3624} local CHAR2{3625} local [clone CHAR=?[413] 3306] has the following parameters: CHAR1{3619} local CHAR2{3620} local [clone LOOP?[434] 3303] has the following parameters: CHAR1{3615} local CHAR2{3616} local [clone CHAR<=?[431] 3300] has the following parameters: CHAR1{3610} local CHAR2{3611} local [clone LOOP?[440] 3297] has the following parameters: CHAR1{3606} local CHAR2{3607} local [clone CHAR>=?[437] 3294] has the following parameters: CHAR1{3601} local CHAR2{3602} local [clone CHAR-NUMERIC?[475] 3293] has the following parameter: CHAR{3600} local [clone LOOP?[440] 3290] has the following parameters: CHAR1{3596} local CHAR2{3597} local [clone CHAR>=?[437] 3287] has the following parameters: CHAR1{3591} local CHAR2{3592} local [clone LOOP?[434] 3284] has the following parameters: CHAR1{3587} local CHAR2{3588} local [clone CHAR<=?[431] 3281] has the following parameters: CHAR1{3582} local CHAR2{3583} local [clone LOOP?[434] 3278] has the following parameters: CHAR1{3578} local CHAR2{3579} local [clone CHAR<=?[431] 3275] has the following parameters: CHAR1{3573} local CHAR2{3574} local [clone LOOP?[440] 3272] has the following parameters: CHAR1{3569} local CHAR2{3570} local [clone CHAR>=?[437] 3269] has the following parameters: CHAR1{3564} local CHAR2{3565} local [clone LOOP?[440] 3266] has the following parameters: CHAR1{3560} local CHAR2{3561} local [clone CHAR>=?[437] 3263] has the following parameters: CHAR1{3555} local CHAR2{3556} local [clone LOOP?[434] 3260] has the following parameters: CHAR1{3551} local CHAR2{3552} local [clone CHAR<=?[431] 3257] has the following parameters: CHAR1{3546} local CHAR2{3547} local [clone LOOP?[434] 3254] has the following parameters: CHAR1{3542} local CHAR2{3543} local [clone CHAR<=?[431] 3251] has the following parameters: CHAR1{3537} local CHAR2{3538} local [clone LOOP?[434] 3248] has the following parameters: CHAR1{3533} local CHAR2{3534} local [clone CHAR<=?[431] 3245] has the following parameters: CHAR1{3528} local CHAR2{3529} local [clone LOOP?[434] 3242] has the following parameters: CHAR1{3524} local CHAR2{3525} local [clone CHAR<=?[431] 3239] has the following parameters: CHAR1{3519} local CHAR2{3520} local [clone LOOP?[440] 3236] has the following parameters: CHAR1{3515} local CHAR2{3516} local [clone CHAR>=?[437] 3233] has the following parameters: CHAR1{3510} local CHAR2{3511} local [clone LOOP?[434] 3230] has the following parameters: CHAR1{3506} local CHAR2{3507} local [clone CHAR<=?[431] 3227] has the following parameters: CHAR1{3501} local CHAR2{3502} local [clone LOOP?[440] 3224] has the following parameters: CHAR1{3497} local CHAR2{3498} local [clone CHAR>=?[437] 3221] has the following parameters: CHAR1{3492} local CHAR2{3493} local [clone LOOP?[440] 3218] has the following parameters: CHAR1{3488} local CHAR2{3489} local [clone CHAR>=?[437] 3215] has the following parameters: CHAR1{3483} local CHAR2{3484} local [clone LOOP?[440] 3212] has the following parameters: CHAR1{3479} local CHAR2{3480} local [clone CHAR>=?[437] 3209] has the following parameters: CHAR1{3474} local CHAR2{3475} local [clone LOOP?[434] 3206] has the following parameters: CHAR1{3470} local CHAR2{3471} local [clone CHAR<=?[431] 3203] has the following parameters: CHAR1{3465} local CHAR2{3466} local [clone LOOP?[434] 3200] has the following parameters: CHAR1{3461} local CHAR2{3462} local [clone CHAR<=?[431] 3197] has the following parameters: CHAR1{3456} local CHAR2{3457} local [clone LOOP?[440] 3194] has the following parameters: CHAR1{3452} local CHAR2{3453} local [clone CHAR>=?[437] 3191] has the following parameters: CHAR1{3447} local CHAR2{3448} local [clone LOOP?[434] 3188] has the following parameters: CHAR1{3443} local CHAR2{3444} local [clone CHAR<=?[431] 3185] has the following parameters: CHAR1{3438} local CHAR2{3439} local [clone LOOP?[440] 3182] has the following parameters: CHAR1{3434} local CHAR2{3435} local [clone CHAR>=?[437] 3179] has the following parameters: CHAR1{3429} local CHAR2{3430} local [clone LOOP?[440] 3176] has the following parameters: CHAR1{3425} local CHAR2{3426} local [clone CHAR>=?[437] 3173] has the following parameters: CHAR1{3420} local CHAR2{3421} local [clone LOOP?[440] 3170] has the following parameters: CHAR1{3416} local CHAR2{3417} local [clone CHAR>=?[437] 3167] has the following parameters: CHAR1{3411} local CHAR2{3412} local [clone LOOP?[434] 3164] has the following parameters: CHAR1{3407} local CHAR2{3408} local [clone CHAR<=?[431] 3161] has the following parameters: CHAR1{3402} local CHAR2{3403} local [clone LOOP?[416] 3158] has the following parameters: CHAR1{3398} local CHAR2{3399} local [clone CHAR=?[413] 3155] has the following parameters: CHAR1{3393} local CHAR2{3394} local [clone LOOP?[416] 3152] has the following parameters: CHAR1{3389} local CHAR2{3390} local [clone CHAR=?[413] 3149] has the following parameters: CHAR1{3384} local CHAR2{3385} local [clone LOOP?[416] 3146] has the following parameters: CHAR1{3380} local CHAR2{3381} local [clone CHAR=?[413] 3143] has the following parameters: CHAR1{3375} local CHAR2{3376} local [clone LOOP?[434] 3140] has the following parameters: CHAR1{3371} local CHAR2{3372} local [clone CHAR<=?[431] 3137] has the following parameters: CHAR1{3366} local CHAR2{3367} local [clone LOOP?[440] 3134] has the following parameters: CHAR1{3362} local CHAR2{3363} local [clone CHAR>=?[437] 3131] has the following parameters: CHAR1{3357} local CHAR2{3358} local [clone CHAR-NUMERIC?[475] 3130] has the following parameter: CHAR{3356} local [clone LOOP?[434] 3127] has the following parameters: CHAR1{3352} local CHAR2{3353} local [clone CHAR<=?[431] 3124] has the following parameters: CHAR1{3347} local CHAR2{3348} local [clone LOOP?[440] 3121] has the following parameters: CHAR1{3343} local CHAR2{3344} local [clone CHAR>=?[437] 3118] has the following parameters: CHAR1{3338} local CHAR2{3339} local [clone LOOP?[434] 3115] has the following parameters: CHAR1{3334} local CHAR2{3335} local [clone CHAR<=?[431] 3112] has the following parameters: CHAR1{3329} local CHAR2{3330} local [clone LOOP?[440] 3109] has the following parameters: CHAR1{3325} local CHAR2{3326} local [clone CHAR>=?[437] 3106] has the following parameters: CHAR1{3320} local CHAR2{3321} local [clone LOOP?[440] 3103] has the following parameters: CHAR1{3316} local CHAR2{3317} local [clone CHAR>=?[437] 3100] has the following parameters: CHAR1{3311} local CHAR2{3312} local [clone [inside CHAR-SUBSEQUENT? 1233] 3099] has the following parameter: v{3310} local [clone [inside CHAR-SUBSEQUENT? 1232] 3098] has the following parameter: v{3309} local [clone [inside CHAR-SUBSEQUENT? 1231] 3097] has the following parameter: v{3308} local [clone [inside CHAR-SUBSEQUENT? 1230] 3096] has the following parameter: v{3307} local [clone CHAR-SUBSEQUENT?[1229] 3095] has the following parameter: C{3306} local [clone [inside CHAR-SUBSEQUENT? 1233] 3094] has the following parameter: v{3305} local [clone [inside CHAR-SUBSEQUENT? 1232] 3093] has the following parameter: v{3304} local [clone [inside CHAR-SUBSEQUENT? 1231] 3092] has the following parameter: v{3303} local [clone [inside CHAR-SUBSEQUENT? 1230] 3091] has the following parameter: v{3302} local [clone CHAR-SUBSEQUENT?[1229] 3090] has the following parameter: C{3301} local [clone [inside CHAR-SUBSEQUENT? 1233] 3089] has the following parameter: v{3300} local [clone [inside CHAR-SUBSEQUENT? 1232] 3088] has the following parameter: v{3299} local [clone [inside CHAR-SUBSEQUENT? 1231] 3087] has the following parameter: v{3298} local [clone [inside CHAR-SUBSEQUENT? 1230] 3086] has the following parameter: v{3297} local [clone CHAR-SUBSEQUENT?[1229] 3085] has the following parameter: C{3296} local [clone [inside CHAR-SUBSEQUENT? 1233] 3084] has the following parameter: v{3295} local [clone [inside CHAR-SUBSEQUENT? 1232] 3083] has the following parameter: v{3294} local [clone [inside CHAR-SUBSEQUENT? 1231] 3082] has the following parameter: v{3293} local [clone [inside CHAR-SUBSEQUENT? 1230] 3081] has the following parameter: v{3292} local [clone CHAR-SUBSEQUENT?[1229] 3080] has the following parameter: C{3291} local [clone [inside CHAR-SUBSEQUENT? 1233] 3079] has the following parameter: v{3290} local [clone [inside CHAR-SUBSEQUENT? 1232] 3078] has the following parameter: v{3289} local [clone [inside CHAR-SUBSEQUENT? 1231] 3077] has the following parameter: v{3288} local [clone [inside CHAR-SUBSEQUENT? 1230] 3076] has the following parameter: v{3287} local [clone CHAR-SUBSEQUENT?[1229] 3075] has the following parameter: C{3286} local [clone [inside CHAR-ALPHABETIC? 474] 3074] has the following parameter: v{3285} local [clone CHAR-ALPHABETIC?[473] 3073] has the following parameter: CHAR{3284} local [clone [inside CHAR-ALPHABETIC? 474] 3072] has the following parameter: v{3283} local [clone CHAR-ALPHABETIC?[473] 3071] has the following parameter: CHAR{3282} local [clone CHAR-UPCASE[486] 3070] has the following parameter: CHAR{3281} local [clone CHAR-UPCASE[486] 3069] has the following parameter: CHAR{3280} local [clone CHAR-UPCASE[486] 3068] has the following parameter: CHAR{3279} local [clone CHAR-UPCASE[486] 3067] has the following parameter: CHAR{3278} local [clone CHAR-UPCASE[486] 3066] has the following parameter: CHAR{3277} local [clone CHAR-UPCASE[486] 3065] has the following parameter: CHAR{3276} local [clone CHAR-UPCASE[486] 3064] has the following parameter: CHAR{3275} local [clone CHAR-UPCASE[486] 3063] has the following parameter: CHAR{3274} local [clone CHAR-UPCASE[486] 3062] has the following parameter: CHAR{3273} local [clone CHAR-UPCASE[486] 3061] has the following parameter: CHAR{3272} local [clone CHAR-UPCASE[486] 3060] has the following parameter: CHAR{3271} local [clone CHAR-UPCASE[486] 3059] has the following parameter: CHAR{3270} local [clone CHAR-UPCASE[486] 3058] has the following parameter: CHAR{3269} local [clone CHAR-UPCASE[486] 3057] has the following parameter: CHAR{3268} local [clone CHAR-UPCASE[486] 3056] has the following parameter: CHAR{3267} local [clone CHAR-NUMERIC?[475] 3055] has the following parameter: CHAR{3266} local [clone CHAR-NUMERIC?[475] 3054] has the following parameter: CHAR{3265} local [clone CHAR-NUMERIC?[475] 3053] has the following parameter: CHAR{3264} local [clone CHAR-NUMERIC?[475] 3052] has the following parameter: CHAR{3263} local [clone CHAR-NUMERIC?[475] 3051] has the following parameter: CHAR{3262} local [clone CHAR-NUMERIC?[475] 3050] has the following parameter: CHAR{3261} local [clone CHAR-NUMERIC?[475] 3049] has the following parameter: CHAR{3260} local [clone CHAR-NUMERIC?[475] 3048] has the following parameter: CHAR{3259} local [clone CHAR-NUMERIC?[475] 3047] has the following parameter: CHAR{3258} local [clone CHAR-NUMERIC?[475] 3046] has the following parameter: CHAR{3257} local [clone CHAR-NUMERIC?[475] 3045] has the following parameter: CHAR{3256} local [clone CHAR-NUMERIC?[475] 3044] has the following parameter: CHAR{3255} local [clone CHAR-NUMERIC?[475] 3043] has the following parameter: CHAR{3254} local [clone CHAR-NUMERIC?[475] 3042] has the following parameter: CHAR{3253} local [clone CHAR-NUMERIC?[475] 3041] has the following parameter: CHAR{3252} local [clone CHAR-NUMERIC?[475] 3040] has the following parameter: CHAR{3251} local [clone CHAR-NUMERIC?[475] 3039] has the following parameter: CHAR{3250} local [clone CHAR-NUMERIC?[475] 3038] has the following parameter: CHAR{3249} local [clone CHAR-NUMERIC?[475] 3037] has the following parameter: CHAR{3248} local [clone CHAR-NUMERIC?[475] 3036] has the following parameter: CHAR{3247} local [clone CHAR-NUMERIC?[475] 3035] has the following parameter: CHAR{3246} local [clone CHAR-NUMERIC?[475] 3034] has the following parameter: CHAR{3245} local [clone CHAR-NUMERIC?[475] 3033] has the following parameter: CHAR{3244} local [clone CHAR-NUMERIC?[475] 3032] has the following parameter: CHAR{3243} local [clone CHAR-NUMERIC?[475] 3031] has the following parameter: CHAR{3242} local [clone LOOP[188] 3029] has the following parameters: LIST{3240} local R{3241} local [clone LIST-REVERSE[185] 3026] has the following parameter: LIST{3237} local [clone LOOP[188] 3024] has the following parameters: LIST{3235} local R{3236} local [clone LIST-REVERSE[185] 3021] has the following parameter: LIST{3232} local [clone LOOP[188] 3019] has the following parameters: LIST{3230} local R{3231} local [clone LIST-REVERSE[185] 3016] has the following parameter: LIST{3227} local [clone LOOP[188] 3014] has the following parameters: LIST{3225} local R{3226} local [clone LIST-REVERSE[185] 3011] has the following parameter: LIST{3222} local [clone LOOP?[416] 3008] has the following parameters: CHAR1{3218} local CHAR2{3219} local [clone CHAR=?[413] 3005] has the following parameters: CHAR1{3213} local CHAR2{3214} local [clone LOOP?[416] 3002] has the following parameters: CHAR1{3209} local CHAR2{3210} local [clone CHAR=?[413] 2999] has the following parameters: CHAR1{3204} local CHAR2{3205} local [clone LOOP?[416] 2996] has the following parameters: CHAR1{3200} local CHAR2{3201} local [clone CHAR=?[413] 2993] has the following parameters: CHAR1{3195} local CHAR2{3196} local [clone LOOP?[416] 2990] has the following parameters: CHAR1{3191} local CHAR2{3192} local [clone CHAR=?[413] 2987] has the following parameters: CHAR1{3186} local CHAR2{3187} local [clone LOOP?[416] 2984] has the following parameters: CHAR1{3182} local CHAR2{3183} local [clone CHAR=?[413] 2981] has the following parameters: CHAR1{3177} local CHAR2{3178} local [clone LOOP?[416] 2978] has the following parameters: CHAR1{3173} local CHAR2{3174} local [clone CHAR=?[413] 2975] has the following parameters: CHAR1{3168} local CHAR2{3169} local [clone LOOP?[416] 2972] has the following parameters: CHAR1{3164} local CHAR2{3165} local [clone CHAR=?[413] 2969] has the following parameters: CHAR1{3159} local CHAR2{3160} local [clone LOOP?[416] 2966] has the following parameters: CHAR1{3155} local CHAR2{3156} local [clone CHAR=?[413] 2963] has the following parameters: CHAR1{3150} local CHAR2{3151} local [clone LOOP?[416] 2960] has the following parameters: CHAR1{3146} local CHAR2{3147} local [clone CHAR=?[413] 2957] has the following parameters: CHAR1{3141} local CHAR2{3142} local [clone LOOP?[416] 2954] has the following parameters: CHAR1{3137} local CHAR2{3138} local [clone CHAR=?[413] 2951] has the following parameters: CHAR1{3132} local CHAR2{3133} local [clone LOOP?[416] 2948] has the following parameters: CHAR1{3128} local CHAR2{3129} local [clone CHAR=?[413] 2945] has the following parameters: CHAR1{3123} local CHAR2{3124} local [clone LOOP?[416] 2942] has the following parameters: CHAR1{3119} local CHAR2{3120} local [clone CHAR=?[413] 2939] has the following parameters: CHAR1{3114} local CHAR2{3115} local [clone LOOP?[416] 2936] has the following parameters: CHAR1{3110} local CHAR2{3111} local [clone CHAR=?[413] 2933] has the following parameters: CHAR1{3105} local CHAR2{3106} local [clone LOOP?[416] 2930] has the following parameters: CHAR1{3101} local CHAR2{3102} local [clone CHAR=?[413] 2927] has the following parameters: CHAR1{3096} local CHAR2{3097} local [clone LOOP?[416] 2924] has the following parameters: CHAR1{3092} local CHAR2{3093} local [clone CHAR=?[413] 2921] has the following parameters: CHAR1{3087} local CHAR2{3088} local [clone LOOP?[416] 2918] has the following parameters: CHAR1{3083} local CHAR2{3084} local [clone CHAR=?[413] 2915] has the following parameters: CHAR1{3078} local CHAR2{3079} local [clone LOOP?[416] 2912] has the following parameters: CHAR1{3074} local CHAR2{3075} local [clone CHAR=?[413] 2909] has the following parameters: CHAR1{3069} local CHAR2{3070} local [clone LOOP?[416] 2906] has the following parameters: CHAR1{3065} local CHAR2{3066} local [clone CHAR=?[413] 2903] has the following parameters: CHAR1{3060} local CHAR2{3061} local [clone LOOP?[416] 2900] has the following parameters: CHAR1{3056} local CHAR2{3057} local [clone CHAR=?[413] 2897] has the following parameters: CHAR1{3051} local CHAR2{3052} local [clone LOOP?[416] 2894] has the following parameters: CHAR1{3047} local CHAR2{3048} local [clone CHAR=?[413] 2891] has the following parameters: CHAR1{3042} local CHAR2{3043} local [clone LOOP?[416] 2888] has the following parameters: CHAR1{3038} local CHAR2{3039} local [clone CHAR=?[413] 2885] has the following parameters: CHAR1{3033} local CHAR2{3034} local [clone LOOP?[416] 2882] has the following parameters: CHAR1{3029} local CHAR2{3030} local [clone CHAR=?[413] 2879] has the following parameters: CHAR1{3024} local CHAR2{3025} local [clone LOOP?[416] 2876] has the following parameters: CHAR1{3020} local CHAR2{3021} local [clone CHAR=?[413] 2873] has the following parameters: CHAR1{3015} local CHAR2{3016} local [clone LOOP?[416] 2870] has the following parameters: CHAR1{3011} local CHAR2{3012} local [clone CHAR=?[413] 2867] has the following parameters: CHAR1{3006} local CHAR2{3007} local [clone LOOP?[416] 2864] has the following parameters: CHAR1{3002} local CHAR2{3003} local [clone CHAR=?[413] 2861] has the following parameters: CHAR1{2997} local CHAR2{2998} local [clone LOOP?[416] 2858] has the following parameters: CHAR1{2993} local CHAR2{2994} local [clone CHAR=?[413] 2855] has the following parameters: CHAR1{2988} local CHAR2{2989} local [clone LOOP?[416] 2852] has the following parameters: CHAR1{2984} local CHAR2{2985} local [clone CHAR=?[413] 2849] has the following parameters: CHAR1{2979} local CHAR2{2980} local [clone LOOP?[416] 2846] has the following parameters: CHAR1{2975} local CHAR2{2976} local [clone CHAR=?[413] 2843] has the following parameters: CHAR1{2970} local CHAR2{2971} local [clone LOOP?[416] 2840] has the following parameters: CHAR1{2966} local CHAR2{2967} local [clone CHAR=?[413] 2837] has the following parameters: CHAR1{2961} local CHAR2{2962} local [clone LOOP?[416] 2834] has the following parameters: CHAR1{2957} local CHAR2{2958} local [clone CHAR=?[413] 2831] has the following parameters: CHAR1{2952} local CHAR2{2953} local [clone LOOP?[416] 2828] has the following parameters: CHAR1{2948} local CHAR2{2949} local [clone CHAR=?[413] 2825] has the following parameters: CHAR1{2943} local CHAR2{2944} local [clone LOOP?[416] 2822] has the following parameters: CHAR1{2939} local CHAR2{2940} local [clone CHAR=?[413] 2819] has the following parameters: CHAR1{2934} local CHAR2{2935} local [clone LOOP?[416] 2816] has the following parameters: CHAR1{2930} local CHAR2{2931} local [clone CHAR=?[413] 2813] has the following parameters: CHAR1{2925} local CHAR2{2926} local [clone LOOP?[416] 2810] has the following parameters: CHAR1{2921} local CHAR2{2922} local [clone CHAR=?[413] 2807] has the following parameters: CHAR1{2916} local CHAR2{2917} local [clone LOOP?[416] 2804] has the following parameters: CHAR1{2912} local CHAR2{2913} local [clone CHAR=?[413] 2801] has the following parameters: CHAR1{2907} local CHAR2{2908} local [clone LOOP?[416] 2798] has the following parameters: CHAR1{2903} local CHAR2{2904} local [clone CHAR=?[413] 2795] has the following parameters: CHAR1{2898} local CHAR2{2899} local [clone LOOP?[416] 2792] has the following parameters: CHAR1{2894} local CHAR2{2895} local [clone CHAR=?[413] 2789] has the following parameters: CHAR1{2889} local CHAR2{2890} local [clone LOOP?[416] 2786] has the following parameters: CHAR1{2885} local CHAR2{2886} local [clone CHAR=?[413] 2783] has the following parameters: CHAR1{2880} local CHAR2{2881} local [clone LOOP?[416] 2780] has the following parameters: CHAR1{2876} local CHAR2{2877} local [clone CHAR=?[413] 2777] has the following parameters: CHAR1{2871} local CHAR2{2872} local [clone LOOP?[416] 2774] has the following parameters: CHAR1{2867} local CHAR2{2868} local [clone CHAR=?[413] 2771] has the following parameters: CHAR1{2862} local CHAR2{2863} local [clone LOOP?[416] 2768] has the following parameters: CHAR1{2858} local CHAR2{2859} local [clone CHAR=?[413] 2765] has the following parameters: CHAR1{2853} local CHAR2{2854} local [clone LOOP?[416] 2762] has the following parameters: CHAR1{2849} local CHAR2{2850} local [clone CHAR=?[413] 2759] has the following parameters: CHAR1{2844} local CHAR2{2845} local [clone LOOP?[416] 2756] has the following parameters: CHAR1{2840} local CHAR2{2841} local [clone CHAR=?[413] 2753] has the following parameters: CHAR1{2835} local CHAR2{2836} local [clone LOOP?[416] 2750] has the following parameters: CHAR1{2831} local CHAR2{2832} local [clone CHAR=?[413] 2747] has the following parameters: CHAR1{2826} local CHAR2{2827} local [clone LOOP?[416] 2744] has the following parameters: CHAR1{2822} local CHAR2{2823} local [clone CHAR=?[413] 2741] has the following parameters: CHAR1{2817} local CHAR2{2818} local [clone LOOP?[416] 2738] has the following parameters: CHAR1{2813} local CHAR2{2814} local [clone CHAR=?[413] 2735] has the following parameters: CHAR1{2808} local CHAR2{2809} local [clone LOOP?[416] 2732] has the following parameters: CHAR1{2804} local CHAR2{2805} local [clone CHAR=?[413] 2729] has the following parameters: CHAR1{2799} local CHAR2{2800} local [clone LOOP?[416] 2726] has the following parameters: CHAR1{2795} local CHAR2{2796} local [clone CHAR=?[413] 2723] has the following parameters: CHAR1{2790} local CHAR2{2791} local [clone LOOP?[416] 2720] has the following parameters: CHAR1{2786} local CHAR2{2787} local [clone CHAR=?[413] 2717] has the following parameters: CHAR1{2781} local CHAR2{2782} local [clone LOOP?[416] 2714] has the following parameters: CHAR1{2777} local CHAR2{2778} local [clone CHAR=?[413] 2711] has the following parameters: CHAR1{2772} local CHAR2{2773} local [clone LOOP?[416] 2708] has the following parameters: CHAR1{2768} local CHAR2{2769} local [clone CHAR=?[413] 2705] has the following parameters: CHAR1{2763} local CHAR2{2764} local [clone LOOP?[416] 2702] has the following parameters: CHAR1{2759} local CHAR2{2760} local [clone CHAR=?[413] 2699] has the following parameters: CHAR1{2754} local CHAR2{2755} local [clone LOOP?[416] 2696] has the following parameters: CHAR1{2750} local CHAR2{2751} local [clone CHAR=?[413] 2693] has the following parameters: CHAR1{2745} local CHAR2{2746} local [clone LOOP?[416] 2690] has the following parameters: CHAR1{2741} local CHAR2{2742} local [clone CHAR=?[413] 2687] has the following parameters: CHAR1{2736} local CHAR2{2737} local [clone LOOP?[416] 2684] has the following parameters: CHAR1{2732} local CHAR2{2733} local [clone CHAR=?[413] 2681] has the following parameters: CHAR1{2727} local CHAR2{2728} local [clone LOOP?[416] 2678] has the following parameters: CHAR1{2723} local CHAR2{2724} local [clone CHAR=?[413] 2675] has the following parameters: CHAR1{2718} local CHAR2{2719} local [clone LOOP?[416] 2672] has the following parameters: CHAR1{2714} local CHAR2{2715} local [clone CHAR=?[413] 2669] has the following parameters: CHAR1{2709} local CHAR2{2710} local [clone LOOP?[416] 2666] has the following parameters: CHAR1{2705} local CHAR2{2706} local [clone CHAR=?[413] 2663] has the following parameters: CHAR1{2700} local CHAR2{2701} local [clone LOOP?[416] 2660] has the following parameters: CHAR1{2696} local CHAR2{2697} local [clone CHAR=?[413] 2657] has the following parameters: CHAR1{2691} local CHAR2{2692} local [clone LOOP?[416] 2654] has the following parameters: CHAR1{2687} local CHAR2{2688} local [clone CHAR=?[413] 2651] has the following parameters: CHAR1{2682} local CHAR2{2683} local [clone LOOP?[416] 2648] has the following parameters: CHAR1{2678} local CHAR2{2679} local [clone CHAR=?[413] 2645] has the following parameters: CHAR1{2673} local CHAR2{2674} local [clone LOOP?[416] 2642] has the following parameters: CHAR1{2669} local CHAR2{2670} local [clone CHAR=?[413] 2639] has the following parameters: CHAR1{2664} local CHAR2{2665} local [clone LOOP?[416] 2636] has the following parameters: CHAR1{2660} local CHAR2{2661} local [clone CHAR=?[413] 2633] has the following parameters: CHAR1{2655} local CHAR2{2656} local [clone LOOP?[416] 2630] has the following parameters: CHAR1{2651} local CHAR2{2652} local [clone CHAR=?[413] 2627] has the following parameters: CHAR1{2646} local CHAR2{2647} local [clone LOOP?[416] 2624] has the following parameters: CHAR1{2642} local CHAR2{2643} local [clone CHAR=?[413] 2621] has the following parameters: CHAR1{2637} local CHAR2{2638} local [clone LOOP?[416] 2618] has the following parameters: CHAR1{2633} local CHAR2{2634} local [clone CHAR=?[413] 2615] has the following parameters: CHAR1{2628} local CHAR2{2629} local [clone LOOP?[416] 2612] has the following parameters: CHAR1{2624} local CHAR2{2625} local [clone CHAR=?[413] 2609] has the following parameters: CHAR1{2619} local CHAR2{2620} local [clone LOOP?[416] 2606] has the following parameters: CHAR1{2615} local CHAR2{2616} local [clone CHAR=?[413] 2603] has the following parameters: CHAR1{2610} local CHAR2{2611} local [clone LOOP?[416] 2600] has the following parameters: CHAR1{2606} local CHAR2{2607} local [clone CHAR=?[413] 2597] has the following parameters: CHAR1{2601} local CHAR2{2602} local [clone LOOP?[416] 2594] has the following parameters: CHAR1{2597} local CHAR2{2598} local [clone CHAR=?[413] 2591] has the following parameters: CHAR1{2592} local CHAR2{2593} local [clone LOOP?[416] 2588] has the following parameters: CHAR1{2588} local CHAR2{2589} local [clone CHAR=?[413] 2585] has the following parameters: CHAR1{2583} local CHAR2{2584} local [clone LOOP?[416] 2582] has the following parameters: CHAR1{2579} local CHAR2{2580} local [clone CHAR=?[413] 2579] has the following parameters: CHAR1{2574} local CHAR2{2575} local [clone LOOP?[416] 2576] has the following parameters: CHAR1{2570} local CHAR2{2571} local [clone CHAR=?[413] 2573] has the following parameters: CHAR1{2565} local CHAR2{2566} local [clone LOOP?[416] 2570] has the following parameters: CHAR1{2561} local CHAR2{2562} local [clone CHAR=?[413] 2567] has the following parameters: CHAR1{2556} local CHAR2{2557} local [clone LOOP?[416] 2564] has the following parameters: CHAR1{2552} local CHAR2{2553} local [clone CHAR=?[413] 2561] has the following parameters: CHAR1{2547} local CHAR2{2548} local [clone LOOP?[416] 2558] has the following parameters: CHAR1{2543} local CHAR2{2544} local [clone CHAR=?[413] 2555] has the following parameters: CHAR1{2538} local CHAR2{2539} local [clone LOOP?[416] 2552] has the following parameters: CHAR1{2534} local CHAR2{2535} local [clone CHAR=?[413] 2549] has the following parameters: CHAR1{2529} local CHAR2{2530} local [clone LOOP?[416] 2546] has the following parameters: CHAR1{2525} local CHAR2{2526} local [clone CHAR=?[413] 2543] has the following parameters: CHAR1{2520} local CHAR2{2521} local [clone LOOP?[416] 2540] has the following parameters: CHAR1{2516} local CHAR2{2517} local [clone CHAR=?[413] 2537] has the following parameters: CHAR1{2511} local CHAR2{2512} local [clone LOOP?[416] 2534] has the following parameters: CHAR1{2507} local CHAR2{2508} local [clone CHAR=?[413] 2531] has the following parameters: CHAR1{2502} local CHAR2{2503} local [clone LOOP?[416] 2528] has the following parameters: CHAR1{2498} local CHAR2{2499} local [clone CHAR=?[413] 2525] has the following parameters: CHAR1{2493} local CHAR2{2494} local [clone LOOP?[416] 2522] has the following parameters: CHAR1{2489} local CHAR2{2490} local [clone CHAR=?[413] 2519] has the following parameters: CHAR1{2484} local CHAR2{2485} local [clone LOOP?[416] 2516] has the following parameters: CHAR1{2480} local CHAR2{2481} local [clone CHAR=?[413] 2513] has the following parameters: CHAR1{2475} local CHAR2{2476} local [clone LOOP?[416] 2510] has the following parameters: CHAR1{2471} local CHAR2{2472} local [clone CHAR=?[413] 2507] has the following parameters: CHAR1{2466} local CHAR2{2467} local [clone LOOP?[416] 2504] has the following parameters: CHAR1{2462} local CHAR2{2463} local [clone CHAR=?[413] 2501] has the following parameters: CHAR1{2457} local CHAR2{2458} local [clone LOOP?[416] 2498] has the following parameters: CHAR1{2453} local CHAR2{2454} local [clone CHAR=?[413] 2495] has the following parameters: CHAR1{2448} local CHAR2{2449} local [clone LOOP?[416] 2492] has the following parameters: CHAR1{2444} local CHAR2{2445} local [clone CHAR=?[413] 2489] has the following parameters: CHAR1{2439} local CHAR2{2440} local [clone LOOP?[416] 2486] has the following parameters: CHAR1{2435} local CHAR2{2436} local [clone CHAR=?[413] 2483] has the following parameters: CHAR1{2430} local CHAR2{2431} local [clone LOOP?[416] 2480] has the following parameters: CHAR1{2426} local CHAR2{2427} local [clone CHAR=?[413] 2477] has the following parameters: CHAR1{2421} local CHAR2{2422} local [clone LOOP?[416] 2474] has the following parameters: CHAR1{2417} local CHAR2{2418} local [clone CHAR=?[413] 2471] has the following parameters: CHAR1{2412} local CHAR2{2413} local [clone LOOP?[416] 2468] has the following parameters: CHAR1{2408} local CHAR2{2409} local [clone CHAR=?[413] 2465] has the following parameters: CHAR1{2403} local CHAR2{2404} local [clone LOOP?[416] 2462] has the following parameters: CHAR1{2399} local CHAR2{2400} local [clone CHAR=?[413] 2459] has the following parameters: CHAR1{2394} local CHAR2{2395} local [clone LOOP?[422] 2456] has the following parameters: CHAR1{2390} local CHAR2{2391} local [clone CHAR?[425] 2447] has the following parameters: CHAR1{2376} local CHAR2{2377} local [clone LOOP?[434] 2444] has the following parameters: CHAR1{2372} local CHAR2{2373} local [clone CHAR<=?[431] 2441] has the following parameters: CHAR1{2367} local CHAR2{2368} local [clone LOOP?[434] 2438] has the following parameters: CHAR1{2363} local CHAR2{2364} local [clone CHAR<=?[431] 2435] has the following parameters: CHAR1{2358} local CHAR2{2359} local [clone LOOP?[434] 2432] has the following parameters: CHAR1{2354} local CHAR2{2355} local [clone CHAR<=?[431] 2429] has the following parameters: CHAR1{2349} local CHAR2{2350} local [clone LOOP?[434] 2426] has the following parameters: CHAR1{2345} local CHAR2{2346} local [clone CHAR<=?[431] 2423] has the following parameters: CHAR1{2340} local CHAR2{2341} local [clone LOOP?[434] 2420] has the following parameters: CHAR1{2336} local CHAR2{2337} local [clone CHAR<=?[431] 2417] has the following parameters: CHAR1{2331} local CHAR2{2332} local [clone LOOP?[434] 2414] has the following parameters: CHAR1{2327} local CHAR2{2328} local [clone CHAR<=?[431] 2411] has the following parameters: CHAR1{2322} local CHAR2{2323} local [clone LOOP?[434] 2408] has the following parameters: CHAR1{2318} local CHAR2{2319} local [clone CHAR<=?[431] 2405] has the following parameters: CHAR1{2313} local CHAR2{2314} local [clone LOOP?[434] 2402] has the following parameters: CHAR1{2309} local CHAR2{2310} local [clone CHAR<=?[431] 2399] has the following parameters: CHAR1{2304} local CHAR2{2305} local [clone LOOP?[434] 2396] has the following parameters: CHAR1{2300} local CHAR2{2301} local [clone CHAR<=?[431] 2393] has the following parameters: CHAR1{2295} local CHAR2{2296} local [clone LOOP?[434] 2390] has the following parameters: CHAR1{2291} local CHAR2{2292} local [clone CHAR<=?[431] 2387] has the following parameters: CHAR1{2286} local CHAR2{2287} local [clone LOOP?[434] 2384] has the following parameters: CHAR1{2282} local CHAR2{2283} local [clone CHAR<=?[431] 2381] has the following parameters: CHAR1{2277} local CHAR2{2278} local [clone LOOP?[434] 2378] has the following parameters: CHAR1{2273} local CHAR2{2274} local [clone CHAR<=?[431] 2375] has the following parameters: CHAR1{2268} local CHAR2{2269} local [clone LOOP?[434] 2372] has the following parameters: CHAR1{2264} local CHAR2{2265} local [clone CHAR<=?[431] 2369] has the following parameters: CHAR1{2259} local CHAR2{2260} local [clone LOOP?[440] 2366] has the following parameters: CHAR1{2255} local CHAR2{2256} local [clone CHAR>=?[437] 2363] has the following parameters: CHAR1{2250} local CHAR2{2251} local [clone LOOP?[440] 2360] has the following parameters: CHAR1{2246} local CHAR2{2247} local [clone CHAR>=?[437] 2357] has the following parameters: CHAR1{2241} local CHAR2{2242} local [clone LOOP?[440] 2354] has the following parameters: CHAR1{2237} local CHAR2{2238} local [clone CHAR>=?[437] 2351] has the following parameters: CHAR1{2232} local CHAR2{2233} local [clone LOOP?[440] 2348] has the following parameters: CHAR1{2228} local CHAR2{2229} local [clone CHAR>=?[437] 2345] has the following parameters: CHAR1{2223} local CHAR2{2224} local [clone LOOP?[440] 2342] has the following parameters: CHAR1{2219} local CHAR2{2220} local [clone CHAR>=?[437] 2339] has the following parameters: CHAR1{2214} local CHAR2{2215} local [clone LOOP?[440] 2336] has the following parameters: CHAR1{2210} local CHAR2{2211} local [clone CHAR>=?[437] 2333] has the following parameters: CHAR1{2205} local CHAR2{2206} local [clone LOOP?[440] 2330] has the following parameters: CHAR1{2201} local CHAR2{2202} local [clone CHAR>=?[437] 2327] has the following parameters: CHAR1{2196} local CHAR2{2197} local [clone LOOP?[440] 2324] has the following parameters: CHAR1{2192} local CHAR2{2193} local [clone CHAR>=?[437] 2321] has the following parameters: CHAR1{2187} local CHAR2{2188} local [clone LOOP?[440] 2318] has the following parameters: CHAR1{2183} local CHAR2{2184} local [clone CHAR>=?[437] 2315] has the following parameters: CHAR1{2178} local CHAR2{2179} local [clone LOOP?[440] 2312] has the following parameters: CHAR1{2174} local CHAR2{2175} local [clone CHAR>=?[437] 2309] has the following parameters: CHAR1{2169} local CHAR2{2170} local [clone LOOP?[440] 2306] has the following parameters: CHAR1{2165} local CHAR2{2166} local [clone CHAR>=?[437] 2303] has the following parameters: CHAR1{2160} local CHAR2{2161} local [clone LOOP?[440] 2300] has the following parameters: CHAR1{2156} local CHAR2{2157} local [clone CHAR>=?[437] 2297] has the following parameters: CHAR1{2151} local CHAR2{2152} local [clone LOOP?[440] 2294] has the following parameters: CHAR1{2147} local CHAR2{2148} local [clone CHAR>=?[437] 2291] has the following parameters: CHAR1{2142} local CHAR2{2143} local [clone READ-CHAR[1755] 2287] has the following parameter: &REST{2141} local [clone READ-CHAR[1755] 2283] has the following parameter: &REST{2140} local [clone READ-CHAR[1755] 2279] has the following parameter: &REST{2139} local [clone READ-CHAR[1755] 2275] has the following parameter: &REST{2138} local [clone READ-CHAR[1755] 2271] has the following parameter: &REST{2137} local [clone READ-CHAR[1755] 2267] has the following parameter: &REST{2136} local [clone READ-CHAR[1755] 2263] has the following parameter: &REST{2135} local [clone READ-CHAR[1755] 2259] has the following parameter: &REST{2134} local [clone READ-CHAR[1755] 2255] has the following parameter: &REST{2133} local [clone READ-CHAR[1755] 2251] has the following parameter: &REST{2132} local [clone READ-CHAR[1755] 2247] has the following parameter: &REST{2131} local [clone READ-CHAR[1755] 2243] has the following parameter: &REST{2130} local [clone READ-CHAR[1755] 2239] has the following parameter: &REST{2129} local [clone READ-CHAR[1755] 2235] has the following parameter: &REST{2128} local [clone READ-CHAR[1755] 2231] has the following parameter: &REST{2127} local [clone READ-CHAR[1755] 2227] has the following parameter: &REST{2126} local [clone READ-CHAR[1755] 2223] has the following parameter: &REST{2125} local [clone READ-CHAR[1755] 2219] has the following parameter: &REST{2124} local [clone READ-CHAR[1755] 2215] has the following parameter: &REST{2123} local [clone READ-CHAR[1755] 2211] has the following parameter: &REST{2122} local [clone READ-CHAR[1755] 2207] has the following parameter: &REST{2121} local [clone READ-CHAR[1755] 2203] has the following parameter: &REST{2120} local [clone READ-CHAR[1755] 2199] has the following parameter: &REST{2119} local [clone READ-CHAR[1755] 2195] has the following parameter: &REST{2118} local [clone READ-CHAR[1755] 2191] has the following parameter: &REST{2117} local [clone READ-CHAR[1755] 2187] has the following parameter: &REST{2116} local [clone READ-CHAR[1755] 2183] has the following parameter: &REST{2115} local [clone READ-CHAR[1755] 2179] has the following parameter: &REST{2114} local [clone READ-CHAR[1755] 2175] has the following parameter: &REST{2113} local [clone READ-CHAR[1755] 2171] has the following parameter: &REST{2112} local [clone READ-CHAR[1755] 2167] has the following parameter: &REST{2111} local [clone READ-CHAR[1755] 2163] has the following parameter: &REST{2110} local [clone READ-CHAR[1755] 2159] has the following parameter: &REST{2109} local [clone READ-CHAR[1755] 2155] has the following parameter: &REST{2108} local [clone READ-CHAR[1755] 2151] has the following parameter: &REST{2107} local [clone READ-CHAR[1755] 2147] has the following parameter: &REST{2106} local [clone READ-CHAR[1755] 2143] has the following parameter: &REST{2105} local [clone READ-CHAR[1755] 2139] has the following parameter: &REST{2104} local [clone READ-CHAR[1755] 2135] has the following parameter: &REST{2103} local [clone READ-CHAR[1755] 2131] has the following parameter: &REST{2102} local [clone READ-CHAR[1755] 2127] has the following parameter: &REST{2101} local [clone READ-CHAR[1755] 2123] has the following parameter: &REST{2100} local [clone READ-CHAR[1755] 2119] has the following parameter: &REST{2099} local [clone READ-CHAR[1755] 2115] has the following parameter: &REST{2098} local [clone READ-CHAR[1755] 2111] has the following parameter: &REST{2097} local [clone READ-CHAR[1755] 2107] has the following parameter: &REST{2096} local [clone READ-CHAR[1755] 2103] has the following parameter: &REST{2095} local [clone READ-CHAR[1755] 2099] has the following parameter: &REST{2094} local [clone READ-CHAR[1755] 2095] has the following parameter: &REST{2093} local [clone READ-CHAR[1755] 2091] has the following parameter: &REST{2092} local [clone READ-CHAR[1755] 2087] has the following parameter: &REST{2091} local [clone READ-CHAR[1755] 2083] has the following parameter: &REST{2090} local [clone READ-CHAR[1755] 2079] has the following parameter: &REST{2089} local [clone PEEK-CHAR[1759] 2075] has the following parameter: &REST{2088} local [clone PEEK-CHAR[1759] 2071] has the following parameter: &REST{2087} local [clone PEEK-CHAR[1759] 2067] has the following parameter: &REST{2086} local [clone PEEK-CHAR[1759] 2063] has the following parameter: &REST{2085} local [clone PEEK-CHAR[1759] 2059] has the following parameter: &REST{2084} local [clone PEEK-CHAR[1759] 2055] has the following parameter: &REST{2083} local [clone PEEK-CHAR[1759] 2051] has the following parameter: &REST{2082} local [clone PEEK-CHAR[1759] 2047] has the following parameter: &REST{2081} local [clone PEEK-CHAR[1759] 2043] has the following parameter: &REST{2080} local [clone PEEK-CHAR[1759] 2039] has the following parameter: &REST{2079} local [clone PEEK-CHAR[1759] 2035] has the following parameter: &REST{2078} local [clone PEEK-CHAR[1759] 2031] has the following parameter: &REST{2077} local [clone PEEK-CHAR[1759] 2027] has the following parameter: &REST{2076} local [clone LIST[77] 2026] has the following parameter: OBJS{2075} local [clone LIST[77] 2025] has the following parameter: OBJS{2074} local [clone LIST[77] 2024] has the following parameter: OBJS{2073} local [clone LIST[77] 2023] has the following parameter: OBJS{2072} local [clone LIST[77] 2022] has the following parameter: OBJS{2071} local [clone LIST[77] 2021] has the following parameter: OBJS{2070} local [clone LIST[77] 2020] has the following parameter: OBJS{2069} local [clone LIST[77] 2019] has the following parameter: OBJS{2068} local [clone LIST[77] 2018] has the following parameter: OBJS{2067} local [clone LIST[77] 2017] has the following parameter: OBJS{2066} local PEEK-CHAR[1759] has the following parameter: &REST{2049} local READ-CHAR[1755] has the following parameter: &REST{2048} local [inside READ-CHARACTER-NAME 1253] has the following parameter: C{1709} local READ-CHARACTER-NAME[1252] has region has the following parameter: S{1708} local [inside LOOP? 1248] has the following parameter: v{1707} local LOOP?[1247] has the following parameters: S{1705} local NAME{1706} local LOOP[1243] has the following parameter: NAMES{1701} local [inside READ-SYMBOL 1239] has region [inside READ-SYMBOL 1236] has region [inside READ-SYMBOL 1235] has the following parameter: C{1696} local [inside CHAR-SUBSEQUENT? 1233] has the following parameter: v{1694} local [inside CHAR-SUBSEQUENT? 1232] has the following parameter: v{1693} local [inside CHAR-SUBSEQUENT? 1231] has the following parameter: v{1692} local [inside CHAR-SUBSEQUENT? 1230] has the following parameter: v{1691} local CHAR-SUBSEQUENT?[1229] has the following parameter: C{1690} local [inside CHAR-INITIAL? 1228] has the following parameter: v{1689} local [inside CHAR-INITIAL? 1227] has the following parameter: v{1688} local [inside CHAR-INITIAL? 1226] has the following parameter: v{1687} local [inside CHAR-INITIAL? 1225] has the following parameter: v{1686} local [inside CHAR-INITIAL? 1224] has the following parameter: v{1685} local [inside CHAR-INITIAL? 1223] has the following parameter: v{1684} local [inside CHAR-INITIAL? 1222] has the following parameter: v{1683} local [inside CHAR-INITIAL? 1221] has the following parameter: v{1682} local [inside CHAR-INITIAL? 1220] has the following parameter: v{1681} local [inside CHAR-INITIAL? 1219] has the following parameter: v{1680} local [inside CHAR-INITIAL? 1218] has the following parameter: v{1679} local [inside CHAR-INITIAL? 1217] has the following parameter: v{1678} local [inside CHAR-INITIAL? 1216] has the following parameter: v{1677} local [inside CHAR-INITIAL? 1215] has the following parameter: v{1676} local [inside READ-NUMBER 1207] has the following parameter: C3{1672} local [inside READ-NUMBER 1206] has region [inside READ-NUMBER 1202] has the following parameter: C3{1669} local [inside READ-NUMBER 1201] has region [inside READ-NUMBER 1198] has the following parameter: C2{1667} local [inside READ-NUMBER 1197] has region [inside READ-NUMBER 1196] has region [inside READ-NUMBER 1195] has the following parameter: v{1665} local [inside READ-NUMBER 1194] has the following parameter: v{1664} local [inside READ-NUMBER 1193] has the following parameter: v{1663} local [inside READ-NUMBER 1192] has the following parameter: v{1662} local [inside READ-NUMBER 1191] has the following parameter: v{1661} local [inside READ-NUMBER 1190] has the following parameter: v{1660} local [inside READ-NUMBER 1189] has the following parameter: v{1659} local [inside READ-NUMBER 1188] has the following parameter: v{1658} local [inside READ-NUMBER 1187] has the following parameter: v{1657} local [inside READ-NUMBER 1185] has region [inside READ-NUMBER 1181] has the following parameter: C1{1654} local [inside READ-INEXACT-NUMBER 1173] has the following parameter: C3{1650} local [inside READ-INEXACT-NUMBER 1172] has region [inside READ-INEXACT-NUMBER 1168] has the following parameter: C3{1647} local [inside READ-INEXACT-NUMBER 1167] has region [inside READ-INEXACT-NUMBER 1164] has the following parameter: C2{1645} local [inside READ-INEXACT-NUMBER 1163] has region [inside READ-INEXACT-NUMBER 1162] has region [inside READ-INEXACT-NUMBER 1161] has the following parameter: v{1643} local [inside READ-INEXACT-NUMBER 1160] has the following parameter: v{1642} local [inside READ-INEXACT-NUMBER 1159] has the following parameter: v{1641} local [inside READ-INEXACT-NUMBER 1158] has the following parameter: v{1640} local [inside READ-INEXACT-NUMBER 1157] has the following parameter: v{1639} local [inside READ-INEXACT-NUMBER 1156] has the following parameter: v{1638} local [inside READ-INEXACT-NUMBER 1155] has the following parameter: v{1637} local [inside READ-INEXACT-NUMBER 1154] has the following parameter: v{1636} local [inside READ-INEXACT-NUMBER 1153] has the following parameter: v{1635} local [inside READ-INEXACT-NUMBER 1149] has the following parameter: C1{1633} local [inside READ-EXACT-HEXADECIMAL-INTEGER 1139] has the following parameter: C{1627} local [inside READ-EXACT-DECIMAL-INTEGER 1133] has the following parameter: C{1624} local [inside READ-EXACT-OCTAL-INTEGER 1127] has the following parameter: C{1621} local [inside READ-EXACT-BINARY-INTEGER 1119] has the following parameter: C{1617} local [inside READ 1116] has region [inside READ 1111] has region [inside READ 1110] has region [inside READ 1108] has region [inside READ 1106] has the following parameter: C2{1612} local [inside READ 1105] has region [inside READ 1103] has region [inside READ 1102] has region [inside READ 1100] has region [inside READ 1099] has region [inside READ 1097] has region [inside READ 1095] has the following parameter: C3{1608} local [inside READ 1094] has region [inside READ 1093] has region [inside READ 1091] has region [inside READ 1089] has the following parameter: C2{1605} local [inside READ 1088] has region [inside READ 1086] has region [inside READ 1085] has region [inside READ 1083] has region [inside READ 1082] has region [inside READ 1080] has region [inside READ 1078] has the following parameter: C3{1601} local [inside READ 1077] has region [inside READ 1076] has region [inside READ 1074] has region [inside READ 1072] has the following parameter: C2{1598} local [inside READ 1071] has region [inside LOOP 1067] has region [inside LOOP 1064] has the following parameter: C1{1596} local [inside LOOP 1061] has the following parameter: C{1594} local LOOP[1060] has region has the following parameter: S{1593} local [inside READ 1053] has region [inside READ 1052] has the following parameter: C3{1589} local [inside READ 1051] has region [inside LOOP 1049] reentrant has the following parameter: E{1588} local LOOP[1048] reentrant has region has the following parameter: S{1587} local [inside READ 1045] reentrant [inside READ 1036] has the following parameter: C4{1583} local [inside READ 1035] has region [inside READ 1028] has the following parameter: C4{1581} local [inside READ 1027] has region [inside READ 1022] has the following parameter: C3{1579} local [inside READ 1021] has region [inside READ 1020] has the following parameter: v{1578} local [inside READ 1013] has the following parameter: C4{1575} local [inside READ 1012] has region [inside READ 1006] has the following parameter: C5{1572} local [inside READ 1005] has region [inside READ 1002] has the following parameter: C4{1570} local [inside READ 1001] has region [inside READ 995] has the following parameter: C5{1567} local [inside READ 994] has region [inside READ 991] has the following parameter: C4{1565} local [inside READ 990] has region [inside READ 988] has the following parameter: C3{1563} local [inside READ 987] has region [inside READ 986] has the following parameter: v{1562} local [inside READ 982] has the following parameter: v{1561} local [inside READ 979] has the following parameter: C4{1558} local [inside READ 978] has region [inside READ 976] has the following parameter: v{1557} local [inside READ 973] has the following parameter: C4{1554} local [inside READ 972] has region [inside READ 969] has the following parameter: C3{1552} local [inside READ 968] has region [inside READ 967] has the following parameter: v{1551} local [inside READ 959] has the following parameter: C4{1549} local [inside READ 958] has region [inside READ 952] has the following parameter: C4{1547} local [inside READ 951] has region [inside READ 947] has the following parameter: C3{1545} local [inside READ 946] has region [inside READ 945] has the following parameter: v{1544} local [inside READ 943] has the following parameter: v{1543} local [inside READ 941] has the following parameter: v{1542} local [inside READ 940] reentrant [inside READ 939] reentrant has the following parameter: C2{1540} local [inside READ 938] reentrant [inside LOOP 936] reentrant LOOP[932] has the following parameters: S{1538} local C{1539} local [inside LOOP 927] reentrant has the following parameter: E1{1534} local [inside LOOP 926] reentrant [inside LOOP 925] reentrant [inside LOOP 924] reentrant has the following parameter: E{1532} local LOOP[923] reentrant has region has the following parameter: S{1531} local [inside READ 920] reentrant [inside READ 918] reentrant [inside READ 917] reentrant [inside READ 916] reentrant [inside READ 915] reentrant [inside READ 914] reentrant has the following parameter: C2{1526} local [inside READ 913] reentrant [inside READ 912] reentrant [inside READ 911] reentrant [inside READ 909] reentrant [inside READ 900] reentrant [inside READ 899] reentrant [inside READ 888] reentrant has the following parameter: C1{1521} local [inside READ 887] reentrant [inside READ 886] reentrant [inside READ 882] has the following parameters: CLOSE{1494} global DOT{1495} global READ[880] has the following parameter: PORT{1492} global [inside CALL-WITH-INPUT-FILE 861] has the following parameter: INPUT-PORT{1478} local CALL-WITH-INPUT-FILE[860] has the following parameter: STRING{1476} local LOOP[725] has the following parameter: K{1363} local [inside LIST->VECTOR 721] has the following parameter: R{1359} local LIST->VECTOR[720] has the following parameter: LIST{1358} local LOOP[672] has the following parameter: K{1318} local [inside STRING-COPY 667] has the following parameter: R{1314} local [inside STRING-COPY 666] has the following parameter: N{1313} local LOOP[660] has the following parameter: K{1309} local [inside LIST->STRING 656] has the following parameter: R{1305} local [inside LOOP? 512] has the following parameter: v{1136} local LOOP?[511] has the following parameter: K{1135} local [inside LOOP? 508] has the following parameter: N{1132} local LOOP?[507] has the following parameters: STRING1{1129} local STRING2{1130} local CHAR-UPCASE[486] has the following parameter: CHAR{1106} local [inside CHAR-WHITESPACE? 481] has the following parameter: v{1101} local [inside CHAR-WHITESPACE? 480] has the following parameter: v{1100} local [inside CHAR-WHITESPACE? 479] has the following parameter: v{1099} local [inside CHAR-WHITESPACE? 478] has the following parameter: v{1098} local [inside CHAR-WHITESPACE? 477] has the following parameter: C{1097} local CHAR-WHITESPACE?[476] has the following parameter: CHAR{1096} local CHAR-NUMERIC?[475] has the following parameter: CHAR{1095} local [inside CHAR-ALPHABETIC? 474] has the following parameter: v{1094} local CHAR-ALPHABETIC?[473] has the following parameter: CHAR{1093} local LOOP?[446] has the following parameters: CHAR1{1053} local CHAR2{1054} local CHAR-CI=?[443] has the following parameters: CHAR1{1048} local CHAR2{1049} local LOOP?[440] has the following parameters: CHAR1{1044} local CHAR2{1045} local CHAR>=?[437] has the following parameters: CHAR1{1039} local CHAR2{1040} local LOOP?[434] has the following parameters: CHAR1{1035} local CHAR2{1036} local CHAR<=?[431] has the following parameters: CHAR1{1030} local CHAR2{1031} local LOOP?[428] has the following parameters: CHAR1{1026} local CHAR2{1027} local CHAR>?[425] has the following parameters: CHAR1{1021} local CHAR2{1022} local LOOP?[422] has the following parameters: CHAR1{1017} local CHAR2{1018} local CHARNUMBER[15] has region has the following parameter: S{801} local has the following in-lined locals: S{804} C{805} CHAR1{1550} CHAR2{1551} CHAR1{1555} CHAR2{1556} CHAR1{1559} CHAR2{1560} CHAR1{1564} CHAR2{1565} CHAR{1615} [inside top level 0] has the following in-lined locals: *RANDOM-STATE*{702} RANDOM:MASK{703} RANDOM:CHUNK-SIZE{704} *MOST-POSITIVE-FIXNUM*{711} I{798} L{809} TRIAL{810} RANDOM-STRINGS{811} NIBBLES{813} I{816} ILEN{825} S{826} SLOP{827} N{830} R{831} L{857} I{858} L{861} C{862} N{898} I{901} C{902} N{904} V{905} I{909} L{912} L{915} C{916} X{917} L{918} L{921} I{922} X{1132} PI{1133} MU{1134} SIGMA{1135} CLIP{1136} EM-KICK-OFF-TOLERANCE{1137} EM-CONVERGENCE-TOLERANCE{1138} JJ{1139} MODELS{1142} OLD-LOG-LIKELIHOOD{1143} STARTING?{1144} LOG-LIKELIHOOD-Z{1145} v{1146} v{1147} J{1148} EPSILON{1149} II{1150} JJ{1151} ZI{1153} X{1155} CLIP{1156} EM-KICK-OFF-TOLERANCE{1157} EM-CONVERGENCE-TOLERANCE{1158} EMS-CONVERGENCE-TOLERANCE{1159} JJ{1162} OLD-LOG-LIKELIHOOD-MODELS{1163} MODELS{1164} NEW-LOG-LIKELIHOOD-MODELS{1165} X{1166} CLIP{1167} EM-KICK-OFF-TOLERANCE{1168} EM-CONVERGENCE-TOLERANCE{1169} EMS-CONVERGENCE-TOLERANCE{1170} Z{1171} CLUSTERS{1172} J{1173} CLUSTER{1174} CLUSTER{1175} I{1176} ZI{1177} OBJ1{1180} OBJ2{1181} v{1182} v{1183} PAIR{1199} PAIR{1206} OBJS{1243} LIST{1318} LIST{1321} R{1322} X{1426} XS{1427} R{1431} STRING{1792} START{1793} END{1794} R{1795} K{1799} LIST1{1945} LIST1{1949} C{1950} OBJ{2571} OBJS{2598} OBJS{2601} PAIR{2602} PAIR{2603} PAIR{2604} PAIR{2606} PAIR{2607} PAIR{2608} PAIR{2609} PAIR{2610} PAIR{2611} PAIR{2612} PAIR{2613} PAIR{2614} PAIR{2615} PAIR{2616} PAIR{2617} V{2964} U{2965} I{2967} V{2969} U{2970} I{2972} V{2974} U{2975} I{2977} K{3025} U{3026} X{3027} V{3111} I{3112} N{3113} I{3116} C{3117} N{3160} V{3161} I{3165} N{3168} V{3169} I{3173} N{3217} I{3220} C{3221} ZS{3222} ZS{3225} R{3226} V{3228} U{3229} I{3231} N{3233} I{3236} N{3535} I{3538} N{3541} I{3544} N{3547} I{3550} The following non-trivial in-line native procedures will be generated: [clone LOOP[61] 3453] has the following parameter: I{3626} local [clone FOR-EACH-N[58] 3450] has the following parameter: N{3623} local [clone LOOP[61] 3445] has the following parameter: I{3620} local [clone FOR-EACH-N[58] 3442] has the following parameter: N{3617} local [clone LOOP[759] 3440] has the following parameters: ZS{3614} local R{3615} local [clone +[756] 3437] has the following parameter: ZS{3611} local [clone LOOP[764] 3435] has the following parameters: ZS{3609} local R{3610} local [clone *[761] 3432] has the following parameter: ZS{3606} local [clone LOOP[61] 3427] has the following parameter: I{3604} local [clone FOR-EACH-N[58] 3424] has the following parameter: N{3601} local [clone LOOP[759] 3422] has the following parameters: ZS{3598} local R{3599} local [clone +[756] 3419] has the following parameter: ZS{3595} local [clone LOOP[97] 3417] has the following parameters: I{3593} local C{3594} local [clone [inside REDUCE-VECTOR 91] 3411] has the following parameter: N{3590} local [clone REDUCE-VECTOR[90] 3410] has the following parameters: V{3588} local I{3589} local [clone LOOP[764] 3408] has the following parameters: ZS{3585} local R{3586} local [clone *[761] 3405] has the following parameter: ZS{3582} local [clone LOOP[61] 3400] has the following parameter: I{3580} local [clone FOR-EACH-N[58] 3397] has the following parameter: N{3577} local [clone [inside MAP-VECTOR-TWO 81] 3396] has region has the following parameter: I{3575} local [clone [inside MAP-VECTOR-TWO 79] 3394] has the following parameter: U{3573} local [clone MAP-VECTOR-TWO[78] 3393] has the following parameters: V1{3571} local V2{3572} local [clone LOOP[61] 3388] has the following parameter: I{3568} local [clone FOR-EACH-N[58] 3385] has the following parameter: N{3565} local [clone LOOP[61] 3380] has the following parameter: I{3562} local [clone FOR-EACH-N[58] 3377] has the following parameter: N{3559} local [clone LOOP[61] 3372] has the following parameter: I{3556} local [clone FOR-EACH-N[58] 3369] has the following parameter: N{3553} local [clone LOOP[61] 3364] has the following parameter: I{3550} local [clone FOR-EACH-N[58] 3361] has the following parameter: N{3547} local [clone LOOP[61] 3356] has the following parameter: I{3544} local [clone FOR-EACH-N[58] 3353] has the following parameter: N{3541} local [clone LOOP[61] 3348] has the following parameter: I{3538} local [clone FOR-EACH-N[58] 3345] has the following parameter: N{3535} local [clone LOOP[759] 3343] has the following parameters: ZS{3532} local R{3533} local [clone +[756] 3340] has the following parameter: ZS{3529} local [clone LOOP[97] 3338] has the following parameters: I{3527} local C{3528} local [clone [inside REDUCE-VECTOR 91] 3332] has the following parameter: N{3524} local [clone REDUCE-VECTOR[90] 3331] has the following parameters: V{3522} local I{3523} local [clone LOOP[764] 3329] has the following parameters: ZS{3519} local R{3520} local [clone *[761] 3326] has the following parameter: ZS{3516} local [clone LOOP[61] 3321] has the following parameter: I{3514} local [clone FOR-EACH-N[58] 3318] has the following parameter: N{3511} local [clone [inside MAP-VECTOR-TWO 81] 3317] has region has the following parameter: I{3509} local [clone [inside MAP-VECTOR-TWO 79] 3315] has the following parameter: U{3507} local [clone MAP-VECTOR-TWO[78] 3314] has the following parameters: V1{3505} local V2{3506} local [clone LOOP[61] 3309] has the following parameter: I{3502} local [clone FOR-EACH-N[58] 3306] has the following parameter: N{3499} local [clone LOOP[61] 3301] has the following parameter: I{3496} local [clone FOR-EACH-N[58] 3298] has the following parameter: N{3493} local [clone LOOP[130] 3293] has the following parameter: I{3490} local [clone [inside MAP-N-VECTOR 126] 3289] has the following parameter: V{3486} local [clone MAP-N-VECTOR[125] 3288] has the following parameter: N{3485} local [clone MATRIX-COLUMNS[156] 3287] has the following parameter: A{3483} local [clone LOOP[130] 3282] has the following parameter: I{3481} local [clone [inside MAP-N-VECTOR 126] 3278] has the following parameter: V{3477} local [clone MAP-N-VECTOR[125] 3277] has the following parameter: N{3476} local [clone MATRIX-COLUMNS[156] 3276] has the following parameter: A{3474} local [clone LOOP[759] 3274] has the following parameters: ZS{3472} local R{3473} local [clone +[756] 3271] has the following parameter: ZS{3469} local [clone LOOP[97] 3269] has the following parameters: I{3467} local C{3468} local [clone [inside REDUCE-VECTOR 91] 3263] has the following parameter: N{3464} local [clone REDUCE-VECTOR[90] 3262] has the following parameters: V{3462} local I{3463} local [clone LOOP[764] 3260] has the following parameters: ZS{3459} local R{3460} local [clone *[761] 3257] has the following parameter: ZS{3456} local [clone LOOP[61] 3252] has the following parameter: I{3454} local [clone FOR-EACH-N[58] 3249] has the following parameter: N{3451} local [clone [inside MAP-VECTOR-TWO 81] 3248] has region has the following parameter: I{3449} local [clone [inside MAP-VECTOR-TWO 79] 3246] has the following parameter: U{3447} local [clone MAP-VECTOR-TWO[78] 3245] has the following parameters: V1{3445} local V2{3446} local [clone DOT[110] 3244] has region has the following parameters: U{3442} local V{3443} local [clone LOOP[61] 3239] has the following parameter: I{3440} local [clone FOR-EACH-N[58] 3236] has the following parameter: N{3437} local [clone [inside MAP-VECTOR 77] 3235] has the following parameter: I{3435} local [clone [inside MAP-VECTOR 75] 3233] has the following parameter: U{3433} local [clone MAP-VECTOR[74] 3232] has the following parameter: V{3432} local [clone LOOP[61] 3227] has the following parameter: I{3429} local [clone FOR-EACH-N[58] 3224] has the following parameter: N{3426} local [clone [inside MAP-VECTOR 77] 3223] has the following parameter: I{3424} local [clone [inside MAP-VECTOR 75] 3221] has the following parameter: U{3422} local [clone MAP-VECTOR[74] 3220] has the following parameter: V{3421} local [clone [inside OUTER-PRODUCT 171] 3219] has the following parameter: VJ{3419} local [clone [inside OUTER-PRODUCT 170] 3218] has the following parameter: UI{3418} local [clone OUTER-PRODUCT[169] 3217] has the following parameters: U{3416} local V{3417} local [clone LOOP[130] 3212] has the following parameter: I{3413} local [clone [inside MAP-N-VECTOR 126] 3208] has the following parameter: V{3409} local [clone MAP-N-VECTOR[125] 3207] has the following parameter: N{3408} local [clone MATRIX-COLUMNS[156] 3206] has the following parameter: A{3406} local [clone [inside TRANSPOSE 168] 3205] has the following parameter: J{3405} local [clone TRANSPOSE[167] 3204] has the following parameter: A{3404} local [clone LOOP[749] 3202] has the following parameter: R{3403} local [clone MAX[746] 3199] has the following parameters: X{3398} local XS{3399} local [clone LOOP[61] 3194] has the following parameter: I{3396} local [clone FOR-EACH-N[58] 3191] has the following parameter: N{3393} local [clone LOOP[130] 3186] has the following parameter: I{3390} local [clone [inside MAP-N-VECTOR 126] 3182] has the following parameter: V{3386} local [clone MAP-N-VECTOR[125] 3181] has the following parameter: N{3385} local [clone MATRIX-COLUMNS[156] 3180] has the following parameter: A{3383} local [clone LOOP[61] 3175] has the following parameter: I{3381} local [clone FOR-EACH-N[58] 3172] has the following parameter: N{3378} local [clone LOOP[61] 3167] has the following parameter: I{3375} local [clone FOR-EACH-N[58] 3164] has the following parameter: N{3372} local [clone LOOP[61] 3159] has the following parameter: I{3369} local [clone FOR-EACH-N[58] 3156] has the following parameter: N{3366} local [clone LOOP[61] 3151] has the following parameter: I{3363} local [clone FOR-EACH-N[58] 3148] has the following parameter: N{3360} local [clone LOOP[61] 3143] has the following parameter: I{3357} local [clone FOR-EACH-N[58] 3140] has the following parameter: N{3354} local [clone LOOP[61] 3135] has the following parameter: I{3351} local [clone FOR-EACH-N[58] 3132] has the following parameter: N{3348} local [clone [inside MAP-VECTOR 77] 3131] has the following parameter: I{3346} local [clone [inside MAP-VECTOR 75] 3129] has the following parameter: U{3344} local [clone MAP-VECTOR[74] 3128] has the following parameter: V{3343} local [clone LOOP[61] 3123] has the following parameter: I{3340} local [clone FOR-EACH-N[58] 3120] has the following parameter: N{3337} local [clone [inside MAP-VECTOR 77] 3119] has the following parameter: I{3335} local [clone [inside MAP-VECTOR 75] 3117] has the following parameter: U{3333} local [clone MAP-VECTOR[74] 3116] has the following parameter: V{3332} local [clone LOOP[764] 3114] has the following parameters: ZS{3329} local R{3330} local [clone *[761] 3111] has the following parameter: ZS{3326} local [clone LOOP[61] 3106] has the following parameter: I{3324} local [clone FOR-EACH-N[58] 3103] has the following parameter: N{3321} local [clone [inside MAP-VECTOR 77] 3102] has the following parameter: I{3319} local [clone [inside MAP-VECTOR 75] 3100] has the following parameter: U{3317} local [clone MAP-VECTOR[74] 3099] has the following parameter: V{3316} local [clone LOOP[61] 3094] has the following parameter: I{3313} local [clone FOR-EACH-N[58] 3091] has the following parameter: N{3310} local [clone [inside MAP-VECTOR 77] 3090] has the following parameter: I{3308} local [clone [inside MAP-VECTOR 75] 3088] has the following parameter: U{3306} local [clone MAP-VECTOR[74] 3087] has the following parameter: V{3305} local [clone LOOP[769] 3085] has the following parameter: R{3303} local [clone -[766] 3082] has the following parameters: Z{3298} local ZS{3299} local [clone LOOP[61] 3077] has the following parameter: I{3296} local [clone FOR-EACH-N[58] 3074] has the following parameter: N{3293} local [clone LOOP[61] 3069] has the following parameter: I{3290} local [clone FOR-EACH-N[58] 3066] has the following parameter: N{3287} local [clone LOOP[61] 3061] has the following parameter: I{3284} local [clone FOR-EACH-N[58] 3058] has the following parameter: N{3281} local [clone LOOP[759] 3056] has the following parameters: ZS{3278} local R{3279} local [clone +[756] 3053] has the following parameter: ZS{3275} local [clone LOOP[61] 3048] has the following parameter: I{3273} local [clone FOR-EACH-N[58] 3045] has the following parameter: N{3270} local [clone LOOP[61] 3040] has the following parameter: I{3267} local [clone FOR-EACH-N[58] 3037] has the following parameter: N{3264} local [clone [inside MAP-VECTOR 77] 3036] has the following parameter: I{3262} local [clone [inside MAP-VECTOR 75] 3034] has the following parameter: U{3260} local [clone MAP-VECTOR[74] 3033] has the following parameter: V{3259} local [clone [inside K*V 114] 3032] has the following parameter: X{3257} local [clone K*V[113] 3031] has the following parameters: K{3255} local U{3256} local [clone LOOP[61] 3026] has the following parameter: I{3253} local [clone FOR-EACH-N[58] 3023] has the following parameter: N{3250} local [clone LOOP[759] 3021] has the following parameters: ZS{3247} local R{3248} local [clone +[756] 3018] has the following parameter: ZS{3244} local [clone LOOP[61] 3013] has the following parameter: I{3242} local [clone FOR-EACH-N[58] 3010] has the following parameter: N{3239} local [clone LOOP[61] 3005] has the following parameter: I{3236} local [clone FOR-EACH-N[58] 3002] has the following parameter: N{3233} local [clone [inside MAP-VECTOR 77] 3001] has the following parameter: I{3231} local [clone [inside MAP-VECTOR 75] 2999] has the following parameter: U{3229} local [clone MAP-VECTOR[74] 2998] has the following parameter: V{3228} local [clone LOOP[759] 2996] has the following parameters: ZS{3225} local R{3226} local [clone +[756] 2993] has the following parameter: ZS{3222} local [clone LOOP[123] 2991] has region has the following parameters: I{3220} local C{3221} local [clone MAP-N[120] 2988] has the following parameter: N{3217} local [clone LOOP[108] 2986] has the following parameters: N{3214} local C{3215} local [clone SUM[105] 2983] has the following parameter: N{3211} local [clone [inside LOOP 103] 2981] has the following parameter: v{3209} local [clone LOOP[102] 2980] has the following parameter: I{3208} local [clone EVERY-N[99] 2977] has the following parameter: N{3205} local [clone LOOP[69] 2972] has the following parameter: I{3202} local [clone FOR-EACH-FROM-A-UP-TO-B[66] 2969] has the following parameters: A{3198} local B{3199} local [clone LOOP[69] 2964] has the following parameter: I{3195} local [clone FOR-EACH-FROM-A-UP-TO-B[66] 2961] has the following parameters: A{3191} local B{3192} local [clone LOOP[69] 2956] has the following parameter: I{3188} local [clone FOR-EACH-FROM-A-UP-TO-B[66] 2953] has the following parameters: A{3184} local B{3185} local [clone M*[173] 2952] has region has the following parameters: A{3181} local B{3182} local [clone [inside TRANSPOSE 168] 2951] has the following parameter: J{3180} local [clone TRANSPOSE[167] 2950] has the following parameter: A{3179} local [clone [inside TRANSPOSE 168] 2949] has the following parameter: J{3178} local [clone TRANSPOSE[167] 2948] has the following parameter: A{3177} local [clone [inside TRANSPOSE 168] 2947] has the following parameter: J{3176} local [clone TRANSPOSE[167] 2946] has the following parameter: A{3175} local [clone LOOP[130] 2941] has the following parameter: I{3173} local [clone [inside MAP-N-VECTOR 126] 2937] has the following parameter: V{3169} local [clone MAP-N-VECTOR[125] 2936] has the following parameter: N{3168} local [clone LOOP[130] 2931] has the following parameter: I{3165} local [clone [inside MAP-N-VECTOR 126] 2927] has the following parameter: V{3161} local [clone MAP-N-VECTOR[125] 2926] has the following parameter: N{3160} local [clone LOOP[130] 2921] has the following parameter: I{3157} local [clone [inside MAP-N-VECTOR 126] 2917] has the following parameter: V{3153} local [clone MAP-N-VECTOR[125] 2916] has the following parameter: N{3152} local [clone LOOP[130] 2911] has the following parameter: I{3149} local [clone [inside MAP-N-VECTOR 126] 2907] has the following parameter: V{3145} local [clone MAP-N-VECTOR[125] 2906] has the following parameter: N{3144} local [clone LOOP[130] 2901] has the following parameter: I{3141} local [clone [inside MAP-N-VECTOR 126] 2897] has the following parameter: V{3137} local [clone MAP-N-VECTOR[125] 2896] has the following parameter: N{3136} local [clone LOOP[130] 2891] has the following parameter: I{3133} local [clone [inside MAP-N-VECTOR 126] 2887] has the following parameter: V{3129} local [clone MAP-N-VECTOR[125] 2886] has the following parameter: N{3128} local [clone [inside OUTER-PRODUCT 171] 2885] has region has the following parameter: VJ{3126} local [clone [inside OUTER-PRODUCT 170] 2884] has the following parameter: UI{3125} local [clone OUTER-PRODUCT[169] 2883] has the following parameters: U{3123} local V{3124} local [clone DOT[110] 2882] has region has the following parameters: U{3120} local V{3121} local [clone DOT[110] 2881] has region has the following parameters: U{3118} local V{3119} local [clone LOOP[97] 2879] has region has the following parameters: I{3116} local C{3117} local [clone [inside REDUCE-VECTOR 91] 2873] has the following parameter: N{3113} local [clone REDUCE-VECTOR[90] 2872] has the following parameters: V{3111} local I{3112} local [clone LOOP[97] 2870] has the following parameters: I{3108} local C{3109} local [clone [inside REDUCE-VECTOR 91] 2864] has the following parameter: N{3105} local [clone REDUCE-VECTOR[90] 2863] has the following parameters: V{3103} local I{3104} local [clone LOOP[97] 2861] has the following parameters: I{3100} local C{3101} local [clone [inside REDUCE-VECTOR 91] 2855] has the following parameter: N{3097} local [clone REDUCE-VECTOR[90] 2854] has the following parameters: V{3095} local I{3096} local [clone LOOP[97] 2852] has the following parameters: I{3092} local C{3093} local [clone [inside REDUCE-VECTOR 91] 2846] has the following parameter: N{3089} local [clone REDUCE-VECTOR[90] 2845] has the following parameters: V{3087} local I{3088} local [clone LOOP[97] 2843] has the following parameters: I{3084} local C{3085} local [clone [inside REDUCE-VECTOR 91] 2837] has the following parameter: N{3081} local [clone REDUCE-VECTOR[90] 2836] has the following parameters: V{3079} local I{3080} local [clone LOOP[97] 2834] has the following parameters: I{3076} local C{3077} local [clone [inside REDUCE-VECTOR 91] 2828] has the following parameter: N{3073} local [clone REDUCE-VECTOR[90] 2827] has the following parameters: V{3071} local I{3072} local [clone [inside MAP-VECTOR-TWO 81] 2826] has the following parameter: I{3069} local [clone [inside MAP-VECTOR-TWO 79] 2824] has the following parameter: U{3067} local [clone MAP-VECTOR-TWO[78] 2823] has the following parameters: V1{3065} local V2{3066} local [clone [inside MAP-VECTOR-TWO 81] 2822] has region has the following parameter: I{3063} local [clone [inside MAP-VECTOR-TWO 79] 2820] has the following parameter: U{3061} local [clone MAP-VECTOR-TWO[78] 2819] has the following parameters: V1{3059} local V2{3060} local [clone [inside MAP-VECTOR-TWO 81] 2818] has the following parameter: I{3057} local [clone [inside MAP-VECTOR-TWO 79] 2816] has the following parameter: U{3055} local [clone MAP-VECTOR-TWO[78] 2815] has the following parameters: V1{3053} local V2{3054} local [clone [inside MAP-VECTOR-TWO 81] 2814] has region has the following parameter: I{3051} local [clone [inside MAP-VECTOR-TWO 79] 2812] has the following parameter: U{3049} local [clone MAP-VECTOR-TWO[78] 2811] has the following parameters: V1{3047} local V2{3048} local [clone [inside MAP-VECTOR-TWO 81] 2810] has the following parameter: I{3045} local [clone [inside MAP-VECTOR-TWO 79] 2808] has the following parameter: U{3043} local [clone MAP-VECTOR-TWO[78] 2807] has the following parameters: V1{3041} local V2{3042} local [clone [inside MAP-VECTOR-TWO 81] 2806] has region has the following parameter: I{3039} local [clone [inside MAP-VECTOR-TWO 79] 2804] has the following parameter: U{3037} local [clone MAP-VECTOR-TWO[78] 2803] has the following parameters: V1{3035} local V2{3036} local [clone [inside MAP-VECTOR-TWO 81] 2802] has region has the following parameter: I{3033} local [clone [inside MAP-VECTOR-TWO 79] 2800] has the following parameter: U{3031} local [clone MAP-VECTOR-TWO[78] 2799] has the following parameters: V1{3029} local V2{3030} local [clone [inside K*V 114] 2798] has the following parameter: X{3027} local [clone K*V[113] 2797] has the following parameters: K{3025} local U{3026} local [clone [inside K*M 176] 2794] has the following parameter: E{3021} local [clone [inside K*M 175] 2793] has the following parameter: ROW{3020} local [clone K*M[174] 2792] has the following parameters: K{3018} local M{3019} local [clone [inside MAP-VECTOR 77] 2791] has the following parameter: I{3017} local [clone [inside MAP-VECTOR 75] 2789] has the following parameter: U{3015} local [clone MAP-VECTOR[74] 2788] has the following parameter: V{3014} local [clone [inside MAP-VECTOR 77] 2787] has the following parameter: I{3012} local [clone [inside MAP-VECTOR 75] 2785] has the following parameter: U{3010} local [clone MAP-VECTOR[74] 2784] has the following parameter: V{3009} local [clone [inside MAP-VECTOR 77] 2783] has the following parameter: I{3007} local [clone [inside MAP-VECTOR 75] 2781] has the following parameter: U{3005} local [clone MAP-VECTOR[74] 2780] has the following parameter: V{3004} local [clone [inside MAP-VECTOR 77] 2779] has the following parameter: I{3002} local [clone [inside MAP-VECTOR 75] 2777] has the following parameter: U{3000} local [clone MAP-VECTOR[74] 2776] has the following parameter: V{2999} local [clone [inside MAP-VECTOR 77] 2775] has the following parameter: I{2997} local [clone [inside MAP-VECTOR 75] 2773] has the following parameter: U{2995} local [clone MAP-VECTOR[74] 2772] has the following parameter: V{2994} local [clone [inside MAP-VECTOR 77] 2771] has the following parameter: I{2992} local [clone [inside MAP-VECTOR 75] 2769] has the following parameter: U{2990} local [clone MAP-VECTOR[74] 2768] has the following parameter: V{2989} local [clone [inside MAP-VECTOR 77] 2767] has the following parameter: I{2987} local [clone [inside MAP-VECTOR 75] 2765] has the following parameter: U{2985} local [clone MAP-VECTOR[74] 2764] has the following parameter: V{2984} local [clone [inside MAP-VECTOR 77] 2763] has the following parameter: I{2982} local [clone [inside MAP-VECTOR 75] 2761] has the following parameter: U{2980} local [clone MAP-VECTOR[74] 2760] has the following parameter: V{2979} local [clone [inside MAP-VECTOR 77] 2759] has the following parameter: I{2977} local [clone [inside MAP-VECTOR 75] 2757] has the following parameter: U{2975} local [clone MAP-VECTOR[74] 2756] has the following parameter: V{2974} local [clone [inside MAP-VECTOR 77] 2755] has the following parameter: I{2972} local [clone [inside MAP-VECTOR 75] 2753] has the following parameter: U{2970} local [clone MAP-VECTOR[74] 2752] has the following parameter: V{2969} local [clone [inside MAP-VECTOR 77] 2751] has the following parameter: I{2967} local [clone [inside MAP-VECTOR 75] 2749] has the following parameter: U{2965} local [clone MAP-VECTOR[74] 2748] has the following parameter: V{2964} local [clone [inside MAP-VECTOR 77] 2747] has the following parameter: I{2962} local [clone [inside MAP-VECTOR 75] 2745] has the following parameter: U{2960} local [clone MAP-VECTOR[74] 2744] has the following parameter: V{2959} local [clone [inside MAP-VECTOR 77] 2743] has the following parameter: I{2957} local [clone [inside MAP-VECTOR 75] 2741] has the following parameter: U{2955} local [clone MAP-VECTOR[74] 2740] has the following parameter: V{2954} local [clone [inside MAP-VECTOR 77] 2739] has the following parameter: I{2952} local [clone [inside MAP-VECTOR 75] 2737] has the following parameter: U{2950} local [clone MAP-VECTOR[74] 2736] has the following parameter: V{2949} local [clone [inside MAP-VECTOR 77] 2735] has the following parameter: I{2947} local [clone [inside MAP-VECTOR 75] 2733] has the following parameter: U{2945} local [clone MAP-VECTOR[74] 2732] has the following parameter: V{2944} local [clone [inside MAP-VECTOR 77] 2731] has the following parameter: I{2942} local [clone [inside MAP-VECTOR 75] 2729] has the following parameter: U{2940} local [clone MAP-VECTOR[74] 2728] has the following parameter: V{2939} local [clone LOOP[61] 2723] has the following parameter: I{2936} local [clone FOR-EACH-N[58] 2720] has the following parameter: N{2933} local [clone LOOP[61] 2715] has the following parameter: I{2930} local [clone FOR-EACH-N[58] 2712] has the following parameter: N{2927} local [clone LOOP[61] 2707] has the following parameter: I{2924} local [clone FOR-EACH-N[58] 2704] has the following parameter: N{2921} local [clone LOOP[61] 2699] has the following parameter: I{2918} local [clone FOR-EACH-N[58] 2696] has the following parameter: N{2915} local [clone LOOP[61] 2691] has the following parameter: I{2912} local [clone FOR-EACH-N[58] 2688] has the following parameter: N{2909} local [clone LOOP[61] 2683] has the following parameter: I{2906} local [clone FOR-EACH-N[58] 2680] has the following parameter: N{2903} local [clone LOOP[61] 2675] has the following parameter: I{2900} local [clone FOR-EACH-N[58] 2672] has the following parameter: N{2897} local [clone LOOP[61] 2667] has the following parameter: I{2894} local [clone FOR-EACH-N[58] 2664] has the following parameter: N{2891} local [clone LOOP[61] 2659] has the following parameter: I{2888} local [clone FOR-EACH-N[58] 2656] has the following parameter: N{2885} local [clone LOOP[61] 2651] has the following parameter: I{2882} local [clone FOR-EACH-N[58] 2648] has the following parameter: N{2879} local [clone LOOP[61] 2643] has the following parameter: I{2876} local [clone FOR-EACH-N[58] 2640] has the following parameter: N{2873} local [clone LOOP[61] 2635] has the following parameter: I{2870} local [clone FOR-EACH-N[58] 2632] has the following parameter: N{2867} local [clone LOOP[61] 2627] has the following parameter: I{2864} local [clone FOR-EACH-N[58] 2624] has the following parameter: N{2861} local [clone LOOP[61] 2619] has the following parameter: I{2858} local [clone FOR-EACH-N[58] 2616] has the following parameter: N{2855} local [clone LOOP[61] 2611] has the following parameter: I{2852} local [clone FOR-EACH-N[58] 2608] has the following parameter: N{2849} local [clone LOOP[61] 2603] has the following parameter: I{2846} local [clone FOR-EACH-N[58] 2600] has the following parameter: N{2843} local [clone LOOP[61] 2595] has the following parameter: I{2840} local [clone FOR-EACH-N[58] 2592] has the following parameter: N{2837} local [clone LOOP[61] 2587] has the following parameter: I{2834} local [clone FOR-EACH-N[58] 2584] has the following parameter: N{2831} local [clone LOOP[61] 2579] has the following parameter: I{2828} local [clone FOR-EACH-N[58] 2576] has the following parameter: N{2825} local [clone LOOP[61] 2571] has the following parameter: I{2822} local [clone FOR-EACH-N[58] 2568] has the following parameter: N{2819} local [clone LOOP[61] 2563] has the following parameter: I{2816} local [clone FOR-EACH-N[58] 2560] has the following parameter: N{2813} local [clone LOOP[618] 2558] has the following parameters: LIST{2810} local R{2811} local [clone LIST-REVERSE[615] 2555] has the following parameter: LIST{2807} local [clone LOOP[759] 2548] has the following parameters: ZS{2799} local R{2800} local [clone +[756] 2545] has the following parameter: ZS{2796} local [clone MATRIX-ROWS[155] 2539] has the following parameter: A{2790} local [clone MATRIX-ROWS[155] 2538] has the following parameter: A{2789} local [clone MATRIX-ROWS[155] 2537] has the following parameter: A{2788} local [clone MATRIX-ROWS[155] 2536] has the following parameter: A{2787} local [clone MATRIX-ROWS[155] 2535] has the following parameter: A{2786} local [clone MATRIX-ROWS[155] 2534] has the following parameter: A{2785} local [clone MATRIX-ROWS[155] 2533] has the following parameter: A{2784} local [clone MATRIX-COLUMNS[156] 2532] has the following parameter: A{2783} local [clone MATRIX-COLUMNS[156] 2531] has the following parameter: A{2782} local [clone MATRIX-COLUMNS[156] 2530] has the following parameter: A{2781} local [clone MATRIX-COLUMNS[156] 2529] has the following parameter: A{2780} local [clone MATRIX-COLUMNS[156] 2528] has the following parameter: A{2779} local [clone MATRIX-REF[157] 2527] has the following parameters: A{2776} local I{2777} local J{2778} local [clone MATRIX-REF[157] 2526] has the following parameters: A{2773} local I{2774} local J{2775} local [clone MATRIX-REF[157] 2525] has the following parameters: A{2770} local I{2771} local J{2772} local [clone MATRIX-REF[157] 2524] has the following parameters: A{2767} local I{2768} local J{2769} local [clone MATRIX-REF[157] 2523] has the following parameters: A{2764} local I{2765} local J{2766} local [clone MATRIX-REF[157] 2522] has the following parameters: A{2761} local I{2762} local J{2763} local [clone MATRIX-REF[157] 2521] has the following parameters: A{2758} local I{2759} local J{2760} local [clone MATRIX-REF[157] 2520] has the following parameters: A{2755} local I{2756} local J{2757} local [clone MATRIX-REF[157] 2519] has the following parameters: A{2752} local I{2753} local J{2754} local [clone MATRIX-REF[157] 2518] has the following parameters: A{2749} local I{2750} local J{2751} local [clone MATRIX-REF[157] 2517] has the following parameters: A{2746} local I{2747} local J{2748} local [clone MATRIX-REF[157] 2516] has the following parameters: A{2743} local I{2744} local J{2745} local [clone MATRIX-REF[157] 2515] has the following parameters: A{2740} local I{2741} local J{2742} local [clone MATRIX-REF[157] 2514] has the following parameters: A{2737} local I{2738} local J{2739} local [clone MATRIX-REF[157] 2513] has the following parameters: A{2734} local I{2735} local J{2736} local [clone MATRIX-REF[157] 2512] has the following parameters: A{2731} local I{2732} local J{2733} local [clone MATRIX-REF[157] 2511] has the following parameters: A{2728} local I{2729} local J{2730} local [clone MATRIX-REF[157] 2510] has the following parameters: A{2725} local I{2726} local J{2727} local [clone MATRIX-REF[157] 2509] has the following parameters: A{2722} local I{2723} local J{2724} local [clone MATRIX-REF[157] 2508] has the following parameters: A{2719} local I{2720} local J{2721} local [clone MATRIX-REF[157] 2507] has the following parameters: A{2716} local I{2717} local J{2718} local [clone MATRIX-REF[157] 2506] has the following parameters: A{2713} local I{2714} local J{2715} local [clone MATRIX-REF[157] 2505] has the following parameters: A{2710} local I{2711} local J{2712} local [clone MATRIX-REF[157] 2504] has the following parameters: A{2707} local I{2708} local J{2709} local [clone MATRIX-REF[157] 2503] has the following parameters: A{2704} local I{2705} local J{2706} local [clone MATRIX-REF[157] 2502] has the following parameters: A{2701} local I{2702} local J{2703} local [clone MATRIX-REF[157] 2501] has the following parameters: A{2698} local I{2699} local J{2700} local [clone MATRIX-REF[157] 2500] has the following parameters: A{2695} local I{2696} local J{2697} local [clone MATRIX-REF[157] 2499] has the following parameters: A{2692} local I{2693} local J{2694} local [clone MATRIX-REF[157] 2498] has the following parameters: A{2689} local I{2690} local J{2691} local [clone MATRIX-REF[157] 2497] has the following parameters: A{2686} local I{2687} local J{2688} local [clone MATRIX-REF[157] 2496] has the following parameters: A{2683} local I{2684} local J{2685} local [clone MATRIX-SET![158] 2495] has the following parameters: A{2679} local I{2680} local J{2681} local X{2682} local [clone MATRIX-SET![158] 2494] has the following parameters: A{2675} local I{2676} local J{2677} local X{2678} local [clone MATRIX-SET![158] 2493] has the following parameters: A{2671} local I{2672} local J{2673} local X{2674} local [clone MATRIX-SET![158] 2492] has the following parameters: A{2667} local I{2668} local J{2669} local X{2670} local [clone MATRIX-SET![158] 2491] has the following parameters: A{2663} local I{2664} local J{2665} local X{2666} local [clone MATRIX-SET![158] 2490] has the following parameters: A{2659} local I{2660} local J{2661} local X{2662} local [clone MATRIX-SET![158] 2489] has the following parameters: A{2655} local I{2656} local J{2657} local X{2658} local [clone MATRIX-SET![158] 2488] has the following parameters: A{2651} local I{2652} local J{2653} local X{2654} local [clone MATRIX-SET![158] 2487] has the following parameters: A{2647} local I{2648} local J{2649} local X{2650} local [clone MATRIX-SET![158] 2486] has the following parameters: A{2643} local I{2644} local J{2645} local X{2646} local [clone MATRIX-SET![158] 2485] has the following parameters: A{2639} local I{2640} local J{2641} local X{2642} local [clone MATRIX-SET![158] 2484] has the following parameters: A{2635} local I{2636} local J{2637} local X{2638} local [clone MATRIX-SET![158] 2483] has the following parameters: A{2631} local I{2632} local J{2633} local X{2634} local [clone MATRIX-SET![158] 2482] has the following parameters: A{2627} local I{2628} local J{2629} local X{2630} local [clone MATRIX-SET![158] 2481] has the following parameters: A{2623} local I{2624} local J{2625} local X{2626} local [clone MATRIX-SET![158] 2480] has the following parameters: A{2619} local I{2620} local J{2621} local X{2622} local [clone CAR[465] 2479] has the following parameter: PAIR{2618} local [clone CAR[465] 2478] has the following parameter: PAIR{2617} local [clone CAR[465] 2477] has the following parameter: PAIR{2616} local [clone CAR[465] 2476] has the following parameter: PAIR{2615} local [clone CAR[465] 2475] has the following parameter: PAIR{2614} local [clone CAR[465] 2474] has the following parameter: PAIR{2613} local [clone CAR[465] 2473] has the following parameter: PAIR{2612} local [clone CAR[465] 2472] has the following parameter: PAIR{2611} local [clone CAR[465] 2471] has the following parameter: PAIR{2610} local [clone CAR[465] 2470] has the following parameter: PAIR{2609} local [clone CAR[465] 2469] has the following parameter: PAIR{2608} local [clone CAR[465] 2468] has the following parameter: PAIR{2607} local [clone CAR[465] 2467] has the following parameter: PAIR{2606} local [clone CADR[470] 2466] has the following parameter: PAIR{2605} local [clone CADR[470] 2465] has the following parameter: PAIR{2604} local [clone CADR[470] 2464] has the following parameter: PAIR{2603} local [clone CADR[470] 2463] has the following parameter: PAIR{2602} local [clone LIST[507] 2462] has the following parameter: OBJS{2601} local [clone LIST[507] 2461] has the following parameter: OBJS{2600} local [clone LIST[507] 2460] has the following parameter: OBJS{2599} local [clone LIST[507] 2459] has the following parameter: OBJS{2598} local [clone ABS[776] 2458] has the following parameter: X{2597} local [clone ABS[776] 2457] has the following parameter: X{2596} local [clone ABS[776] 2456] has the following parameter: X{2595} local [clone ABS[776] 2455] has the following parameter: X{2594} local [clone ABS[776] 2454] has the following parameter: X{2593} local [clone ABS[776] 2453] has the following parameter: X{2592} local [clone ABS[776] 2452] has the following parameter: X{2591} local [clone ABS[776] 2451] has the following parameter: X{2590} local [clone ABS[776] 2450] has the following parameter: X{2589} local [clone ABS[776] 2449] has the following parameter: X{2588} local [clone ABS[776] 2448] has the following parameter: X{2587} local [clone ABS[776] 2447] has the following parameter: X{2586} local WRITE[2197] has the following parameter: OBJ{2571} local [inside LOOP 1838] reentrant [inside LOOP 1837] reentrant LOOP[1836] reentrant has the following parameter: I{2356} local [inside WRITE2 1833] reentrant [inside WRITE2 1832] reentrant [inside WRITE2 1830] reentrant [inside LOOP 1827] reentrant [inside LOOP 1826] reentrant [inside LOOP 1825] reentrant [inside LOOP 1823] reentrant LOOP[1822] reentrant has the following parameter: OBJ{2344} local [inside WRITE2 1819] reentrant [inside WRITE2 1818] reentrant LOOP[1787] has the following parameters: MANTISSA{2326} local EXPONENT{2327} local LOOP[1782] has the following parameters: MANTISSA{2322} local EXPONENT{2323} local DISPLAY-INEXACT-REAL2[1773] has the following parameters: NUMBER{2317} local PORT{2318} local [inside LOOP 1770] has the following parameter: MANTISSA{2316} local [inside LOOP 1767] has the following parameter: DIGIT{2314} local [inside LOOP 1766] has the following parameter: FLOAT-DIGIT{2313} local LOOP[1765] has the following parameter: MANTISSA{2312} local [inside DISPLAY-MANTISSA-EXPONENT2 1754] has the following parameter: DIGIT{2305} local [inside DISPLAY-MANTISSA-EXPONENT2 1753] has the following parameter: FLOAT-DIGIT{2304} local LOOP[1744] has the following parameter: I{2298} local LOOP[1741] has the following parameters: I{2294} local NUMBER{2295} local LOOP[1730] has the following parameter: I{2288} local LOOP[1727] has the following parameters: I{2284} local NUMBER{2285} local LOOP[1718] has the following parameter: I{2278} local [inside DISPLAY-STRING2 1715] has the following parameter: N{2275} local [inside top level 1710] has the following parameters: THE-CURRENT-OUTPUT-PORT{2234} global BUFFER{2236} global LOOP[1235] has region has the following parameters: LIST1{1949} local C{1950} local MAP[1231] has the following parameter: LIST1{1945} local VECTOR->LIST[1145] has the following parameter: VECTOR{1874} global [inside STRING->LIST 1080] has the following parameter: N{1820} global STRING->LIST[1079] has the following parameter: STRING{1819} global LOOP[1051] has the following parameter: K{1799} local [inside SUBSTRING 1047] has the following parameter: R{1795} local SUBSTRING[1046] has the following parameters: STRING{1792} local START{1793} local END{1794} local CHAR-NUMERIC?[905] has the following parameter: CHAR{1615} local LOOP?[870] has the following parameters: CHAR1{1564} local CHAR2{1565} local CHAR>=?[867] has the following parameters: CHAR1{1559} local CHAR2{1560} local LOOP?[864] has the following parameters: CHAR1{1555} local CHAR2{1556} local CHAR<=?[861] has the following parameters: CHAR1{1550} local CHAR2{1551} local EXP[825] has the following parameter: Z{1508} local [inside MODULO 780] has the following parameter: v{1467} local ABS[776] has the following parameter: X{1460} local LOOP[749] has the following parameter: R{1431} local MAX[746] has the following parameters: X{1426} local XS{1427} local LOOP[618] has the following parameters: LIST{1321} local R{1322} local LIST-REVERSE[615] has the following parameter: LIST{1318} local LIST[507] has the following parameter: OBJS{1243} local CADR[470] has the following parameter: PAIR{1206} local CAR[465] has the following parameter: PAIR{1199} local [inside EQV? 451] has the following parameter: v{1183} local [inside EQV? 450] has the following parameter: v{1182} local EQV?[449] has the following parameters: OBJ1{1180} local OBJ2{1181} local [inside EM-CLUSTERER 373] has the following parameter: ZI{1177} local [inside EM-CLUSTERER 372] has region has the following parameter: I{1176} local [inside EM-CLUSTERER 371] has the following parameter: CLUSTER{1175} local [inside EM-CLUSTERER 370] has the following parameter: CLUSTER{1174} local [inside EM-CLUSTERER 369] has the following parameter: J{1173} local [inside EM-CLUSTERER 367] has the following parameter: CLUSTERS{1172} local [inside EM-CLUSTERER 366] has the following parameter: Z{1171} local EM-CLUSTERER[365] has region has the following parameters: X{1166} local CLIP{1167} local EM-KICK-OFF-TOLERANCE{1168} local EM-CONVERGENCE-TOLERANCE{1169} local EMS-CONVERGENCE-TOLERANCE{1170} local [inside LOOP 362] has the following parameter: NEW-LOG-LIKELIHOOD-MODELS{1165} local [inside LOOP 361] has the following parameter: MODELS{1164} local LOOP[360] has region has the following parameters: JJ{1162} local OLD-LOG-LIKELIHOOD-MODELS{1163} local EMS[357] has region has the following parameters: X{1155} local CLIP{1156} local EM-KICK-OFF-TOLERANCE{1157} local EM-CONVERGENCE-TOLERANCE{1158} local EMS-CONVERGENCE-TOLERANCE{1159} local [inside INITIAL-Z 355] has the following parameter: ZI{1153} local [inside INITIAL-Z 354] has region INITIAL-Z[353] has the following parameters: II{1150} local JJ{1151} local NOISE[352] has the following parameter: EPSILON{1149} local [inside EM 351] has the following parameter: J{1148} local [inside LOOP 349] has the following parameter: v{1147} local [inside LOOP 348] has the following parameter: v{1146} local [inside LOOP 347] has the following parameter: LOG-LIKELIHOOD-Z{1145} local LOOP[346] has the following parameters: MODELS{1142} local OLD-LOG-LIKELIHOOD{1143} local STARTING?{1144} local [inside EM 343] has the following parameter: JJ{1139} local EM[342] has the following parameters: X{1132} local PI{1133} local MU{1134} local SIGMA{1135} local CLIP{1136} local EM-KICK-OFF-TOLERANCE{1137} local EM-CONVERGENCE-TOLERANCE{1138} local [inside M-STEP 341] has region has the following parameters: ZIJ{1130} local XI{1131} local [inside M-STEP 339] has the following parameter: SIGMA{1129} local [inside M-STEP 338] has region has the following parameter: MU{1128} local [inside M-STEP 337] has region has the following parameter: ZJ-SUM{1127} local [inside M-STEP 336] has the following parameter: ZJ{1126} local [inside M-STEP 335] has the following parameter: J{1125} local [inside M-STEP 333] has the following parameter: KK{1124} local [inside M-STEP 332] has the following parameter: II{1123} local [inside E-STEP 330] has region has the following parameters: LOG-DETERMINANT-SIGMA{1116} local SIGMA-INVERSE{1117} local MU{1118} local LOG-PI{1119} local [inside E-STEP 329] has the following parameter: MODEL{1115} local [inside E-STEP 328] has the following parameter: XI{1114} local [inside E-STEP 327] has the following parameter: ZI{1113} local [inside E-STEP 326] has the following parameter: ZI{1112} local [inside E-STEP 325] has region has the following parameter: S{1111} local [inside E-STEP 324] has region has the following parameter: Z{1110} local [inside CLIP-EIGENVALUES 322] has region [inside CLIP-EIGENVALUES 321] has the following parameter: E{1107} local [inside CLIP-EIGENVALUES 320] has the following parameter: J{1106} local CLIP-EIGENVALUES[319] has region has the following parameters: A{1104} local V{1105} local [inside VECTOR->DIAGONAL-MATRIX 318] has the following parameter: I{1103} local [inside VECTOR->DIAGONAL-MATRIX 316] has the following parameter: M{1101} local VECTOR->DIAGONAL-MATRIX[315] has the following parameter: V{1100} local [inside JACOBI 313] has the following parameter: J{1099} local [inside JACOBI 312] has the following parameter: I{1098} local [inside JACOBI 311] has the following parameter: X{1097} local [inside JACOBI 310] has the following parameter: ROW{1096} local [inside JACOBI 305] has the following parameter: J{1094} local [inside JACOBI 304] has the following parameter: L{1093} local [inside JACOBI 301] has the following parameter: P{1091} local [inside JACOBI 300] has the following parameter: J{1090} local [inside JACOBI 296] has the following parameters: P{1085} local K{1086} local [inside JACOBI 295] has the following parameter: I{1084} local [inside LOOP 292] has the following parameter: IQ{1083} local [inside LOOP 291] has the following parameter: IR{1082} local [inside LOOP 290] has the following parameter: IP{1081} local [inside LOOP 287] has the following parameter: IP{1078} local [inside LOOP 285] has the following parameter: THETA{1077} local [inside ROTATE 282] has the following parameters: H{1074} local G{1075} local [inside LOOP 275] has the following parameter: J{1067} local [inside LOOP 271] has the following parameter: H{1059} local [inside LOOP 270] has the following parameter: TAU{1058} global [inside LOOP 269] has the following parameter: S{1057} global [inside LOOP 268] has the following parameter: C{1056} local [inside LOOP 267] has the following parameter: T{1055} local [inside LOOP 266] has the following parameter: H{1054} local [inside LOOP 262] has the following parameter: G{1053} local [inside LOOP 261] has the following parameter: IQ{1052} local [inside LOOP 260] has the following parameter: IR{1051} local [inside LOOP 259] has the following parameter: IP{1050} local [inside LOOP 258] has the following parameter: TRESH{1049} local [inside LOOP 255] has the following parameter: SM{1046} local LOOP[253] has the following parameter: I{1044} local [inside JACOBI 249] has the following parameter: IP{1039} local [inside JACOBI 246] has the following parameter: Z{1035} local [inside JACOBI 245] has region has the following parameter: B{1034} local [inside JACOBI 244] has region has the following parameter: V{1033} local [inside JACOBI 243] has the following parameter: D{1032} local [inside JACOBI 242] has the following parameter: N{1031} local [inside JACOBI 241] has the following parameter: A{1030} local [inside JACOBI 240] has region JACOBI[239] has the following parameter: A{1028} local [inside INVERT-MATRIX 234] has the following parameter: E{1026} local [inside INVERT-MATRIX 232] has the following parameter: E{1024} local [inside INVERT-MATRIX 229] has the following parameter: J{1021} local [inside INVERT-MATRIX 225] has the following parameter: J{1017} local [inside INVERT-MATRIX 222] has the following parameter: J{1015} local [inside INVERT-MATRIX 221] has the following parameter: D{1014} local [inside INVERT-MATRIX 220] has the following parameter: K{1013} local [inside INVERT-MATRIX 218] has the following parameter: D{1011} local [inside INVERT-MATRIX 216] has the following parameter: I{1009} local [inside INVERT-MATRIX 215] has the following parameter: I{1008} local [inside INVERT-MATRIX 214] has the following parameter: J{1007} local [inside INVERT-MATRIX 213] has the following parameter: I{1006} local [inside INVERT-MATRIX 210] has the following parameter: B{1002} local [inside INVERT-MATRIX 209] has the following parameter: C{1001} local [inside INVERT-MATRIX 208] has the following parameter: N{1000} local [inside DETERMINANT 202] has the following parameter: V{995} local [inside DETERMINANT 197] has the following parameter: X{993} local [inside DETERMINANT 196] has the following parameter: J{992} local [inside DETERMINANT 195] has the following parameter: J{991} local [inside DETERMINANT 194] has the following parameter: K{990} local [inside DETERMINANT 193] has the following parameter: E{989} local [inside DETERMINANT 192] has the following parameter: J{988} local [inside DETERMINANT 190] has the following parameter: C{985} local [inside DETERMINANT 188] has the following parameters: INDEX{980} local GREATEST{981} local [inside DETERMINANT 187] has the following parameter: I{979} local [inside DETERMINANT 186] has the following parameter: J{978} local [inside DETERMINANT 185] has the following parameter: I{977} local [inside DETERMINANT 182] has the following parameter: D{974} local [inside DETERMINANT 181] has the following parameter: B{973} local [inside DETERMINANT 180] has the following parameter: N{972} local [inside K*M 176] has the following parameter: E{968} local [inside K*M 175] has the following parameter: ROW{967} local K*M[174] has the following parameters: K{965} local M{966} local M*[173] has region has the following parameters: A{963} local B{964} local SELF-OUTER-PRODUCT[172] has the following parameter: V{962} local [inside OUTER-PRODUCT 171] has the following parameter: VJ{960} local [inside OUTER-PRODUCT 170] has the following parameter: UI{959} local OUTER-PRODUCT[169] has the following parameters: U{957} local V{958} local [inside TRANSPOSE 168] has the following parameter: J{955} local TRANSPOSE[167] has the following parameter: A{954} local [inside M*V 166] has the following parameter: U{953} local M*V[165] has the following parameters: A{951} local V{952} local M-[164] has the following parameters: A{949} local B{950} local M+[163] has the following parameters: A{947} local B{948} local [inside MATRIX-COLUMN-REF 161] has the following parameter: V{943} local MATRIX-SET![158] has the following parameters: A{935} local I{936} local J{937} local X{938} local MATRIX-REF[157] has the following parameters: A{932} local I{933} local J{934} local MATRIX-COLUMNS[156] has the following parameter: A{931} local MATRIX-ROWS[155] has the following parameter: A{930} local LOOP[146] has the following parameters: L{921} local I{922} local POSITIONV[143] has the following parameters: X{917} local L{918} local LOOP[138] has region has the following parameters: L{915} local C{916} local REMOVE-IF-NOT[135] has the following parameter: L{912} local LOOP[130] has the following parameter: I{909} local [inside MAP-N-VECTOR 126] has the following parameter: V{905} local MAP-N-VECTOR[125] has the following parameter: N{904} local LOOP[123] has region has the following parameters: I{901} local C{902} local MAP-N[120] has the following parameter: N{898} local [inside ADD-EXP 118] has the following parameter: FACTOR{896} local [inside ADD-EXP 117] has the following parameter: E-MIN{895} local [inside ADD-EXP 116] has the following parameter: E-MAX{894} local ADD-EXP[115] has the following parameters: E1{892} local E2{893} local [inside K*V 114] has the following parameter: X{891} local K*V[113] has the following parameters: K{889} local U{890} local DOT[110] has region has the following parameters: U{883} local V{884} local LOOP[108] has the following parameters: N{881} local C{882} local SUM[105] has the following parameter: N{878} local [inside LOOP 103] has the following parameter: v{876} local LOOP[102] has the following parameter: I{875} local EVERY-N[99] has the following parameter: N{872} local LOOP[97] has the following parameters: I{869} local C{870} local [inside REDUCE-VECTOR 91] has the following parameter: N{866} local REDUCE-VECTOR[90] has the following parameters: V{864} local I{865} local LOOP[88] has region has the following parameters: L{861} local C{862} local REDUCE[82] has the following parameters: L{857} local I{858} local [inside MAP-VECTOR-TWO 81] has the following parameter: I{855} local [inside MAP-VECTOR-TWO 79] has the following parameter: U{853} local MAP-VECTOR-TWO[78] has the following parameters: V1{851} local V2{852} local [inside MAP-VECTOR 77] has the following parameter: I{849} local [inside MAP-VECTOR 75] has the following parameter: U{847} local MAP-VECTOR[74] has the following parameter: V{846} local LOOP[69] has the following parameter: I{843} local FOR-EACH-FROM-A-UP-TO-B[66] has the following parameters: A{839} local B{840} local LOOP[61] has the following parameter: I{836} local FOR-EACH-N[58] has the following parameter: N{833} local LOOP[51] has the following parameters: N{830} local R{831} local [inside loop 48] has the following parameter: SLOP{827} local loop[46] has the following parameters: ILEN{825} local S{826} local [inside RANDOM:CHUNK 40] has the following parameter: ANS{820} local [inside RANDOM:CHUNK 39] has the following parameter: P{819} local loop[33] has region has the following parameter: I{816} local [inside top level 30] has the following parameter: NIBBLES{813} local [inside top level 28] has the following parameter: RANDOM-STRINGS{811} local [inside RANDOM:SIZE-INT 27] has the following parameter: TRIAL{810} local RANDOM:SIZE-INT[26] has region has the following parameter: L{809} local [inside LOGICAL:LOGXOR 24] reentrant LOOP[18] has the following parameters: S{804} local C{805} local loop[8] has region has the following parameter: I{798} local [inside top level 4] has the following parameters: MINUS-INFINITY{698} global LOG-MATH-PRECISION{699} global *RANDOM-STATE*{702} local RANDOM:MASK{703} local RANDOM:CHUNK-SIZE{704} local RANDOM:SIZE{706} global RANDOM:TAP{707} global LOGICAL:BOOLE-XOR{708} global *MOST-POSITIVE-FIXNUM*{711} local The following expression, em-functional-stalin.sc:180:6378, allocates on the stack: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-stalin.sc:163:5840, allocates on [clone DOT[110] 2881]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:165:5921, allocates on [clone [inside MAP-VECTOR-TWO 81] 3396]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-stalin.sc:180:6378, allocates on the stack: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-stalin.sc:163:5840, allocates on [clone DOT[110] 2882]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:165:5921, allocates on [clone [inside MAP-VECTOR-TWO 81] 3317]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-stalin.sc:214:7275, allocates on M*[173]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:214:7275, allocates on [inside CLIP-EIGENVALUES 322]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:180:6378, allocates on the stack: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-stalin.sc:163:5840, allocates on [clone DOT[110] 3244]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:165:5921, allocates on [clone [inside MAP-VECTOR-TWO 81] 3248]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside CLIP-EIGENVALUES 322]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside CLIP-EIGENVALUES 322]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:214:7275, allocates on [clone M*[173] 2952]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:214:7275, allocates on CLIP-EIGENVALUES[319]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside M-STEP 338]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside M-STEP 338]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside M-STEP 341]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside M-STEP 341]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside M-STEP 337]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on EMS[357]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:211:7206, allocates on [clone LOOP[123] 2991]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C) The following expression, em-functional-stalin.sc:214:7275, allocates on LOOP[360]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:214:7275, allocates on [inside INITIAL-Z 354]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:214:7275, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:214:7275, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:214:7275, allocates on [inside E-STEP 325]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:214:7275, allocates on LOOP[360]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:263:8646, allocates on [clone [inside OUTER-PRODUCT 171] 2885]: (F UI VJ) The following expression, em-functional-stalin.sc:180:6378, allocates on [clone LOOP[97] 2879]: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-stalin.sc:180:6378, allocates on the stack: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-stalin.sc:180:6378, allocates on the stack: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-stalin.sc:163:5840, allocates on [inside M-STEP 337]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:163:5840, allocates on [inside M-STEP 337]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:165:5921, allocates on [clone [inside MAP-VECTOR-TWO 81] 2822]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-stalin.sc:163:5840, allocates on [inside M-STEP 338]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:163:5840, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:165:5921, allocates on [clone [inside MAP-VECTOR-TWO 81] 2814]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-stalin.sc:163:5840, allocates on [inside M-STEP 338]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:163:5840, allocates on [inside CLIP-EIGENVALUES 322]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:165:5921, allocates on [clone [inside MAP-VECTOR-TWO 81] 2806]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-stalin.sc:163:5840, allocates on DOT[110]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:165:5921, allocates on [clone [inside MAP-VECTOR-TWO 81] 2802]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-stalin.sc:156:5599, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside M-STEP 338]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside M-STEP 338]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside JACOBI 240]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside JACOBI 240]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on LOOP[360]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on LOOP[360]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on LOOP[360]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on E-STEP[323]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on E-STEP[323]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside E-STEP 330]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside E-STEP 324]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20) The following expression allocates on LOOP[1235]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC (# LIST1)) C) The following expression allocates on [inside EM-CLUSTERER 372]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR-REF) VECTOR K) (LOOP (# K 1))) The following expression allocates on HEX-STRING->NUMBER[15]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRING-REF) STRING K) (LOOP (# K 1))) The following expression allocates on loop[33]: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START)) The following expression allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression, em-functional-stalin.sc:613:19210, allocates on loop[8]: (LIST I (POSITIONV (REDUCE MAX ZI MINUS-INFINITY) ZI)) The following expression, em-functional-stalin.sc:588:18343, allocates on EMS[357]: (LIST MINUS-INFINITY #F) The following expression, em-functional-stalin.sc:547:16971, allocates on EM-CLUSTERER[365]: (MAKE-MODEL ((PRIMITIVE-PROCEDURE VECTOR-REF) PI J) ((PRIMITIVE-PROCEDURE VECTOR-REF) MU J) ((PRIMITIVE-PROCEDURE VECTOR-REF) SIGMA J) ((PRIMITIVE-PROCEDURE LOG) (# PI J)) (INVERT-MATRIX (# SIGMA J)) ((PRIMITIVE-PROCEDURE LOG) (DETERMINANT #))) The following expression, em-functional-stalin.sc:568:17750, allocates on LOOP[360]: (LIST OLD-LOG-LIKELIHOOD MODELS) The following expression, em-functional-stalin.sc:523:16387, allocates on [inside M-STEP 337]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) KK 0.) The following expression, em-functional-stalin.sc:535:16651, allocates on EM-CLUSTERER[365]: (MAKE-MODEL ((PRIMITIVE-PROCEDURE /) ZJ-SUM II) MU SIGMA ((PRIMITIVE-PROCEDURE LOG) (# ZJ-SUM II)) (INVERT-MATRIX SIGMA) ((PRIMITIVE-PROCEDURE LOG) (DETERMINANT SIGMA))) The following expression, em-functional-stalin.sc:507:15858, allocates on EM-CLUSTERER[365]: (LIST (REDUCE-VECTOR + S 0.) (MAP-VECTOR (LAMBDA # #) (M- Z #))) The following expression, em-functional-stalin.sc:509:15960, allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (MATRIX-COLUMNS Z) S) The following expression, em-functional-stalin.sc:378:11938, allocates on CLIP-EIGENVALUES[319]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:380:11994, allocates on [inside JACOBI 244]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:381:12015, allocates on [inside JACOBI 245]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N 0.) The following expression, em-functional-stalin.sc:469:14720, allocates on CLIP-EIGENVALUES[319]: (LIST D (TRANSPOSE V)) The following expression, em-functional-stalin.sc:237:7880, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL) The following expression, em-functional-stalin.sc:234:7789, allocates on LOOP[360]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:225:7554, allocates on LOOP[138]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (FIRST L) C) The following expression, em-functional-stalin.sc:214:7275, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:211:7206, allocates on LOOP[123]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C) The following expression, em-functional-stalin.sc:180:6378, allocates on the stack: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-stalin.sc:173:6163, allocates on LOOP[88]: (F C (FIRST L)) The following expression, em-functional-stalin.sc:163:5840, allocates on [inside E-STEP 325]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:156:5599, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:104:4013, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) RANDOM:SIZE 1) 0) The following expression, em-functional-stalin.sc:87:3190, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE QUOTIENT) RANDOM:CHUNK-SIZE 4) #\f) The following expression, em-functional-stalin.sc:79:2949, allocates on RANDOM:SIZE-INT[26]: ((PRIMITIVE-PROCEDURE MAKE-STRING) L #\f) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W24294 is general case for the following reasons: flonum W21675 is general case for the following reasons: nondegenerate nonheaded vector W8813 is general case for the following reasons: flonum W8767 is general case for the following reasons: flonum W8765 is general case for the following reasons: flonum W8519 is general case for the following reasons: flonum W2187 is general case for the following reasons: flonum W1421 is general case for the following reasons: flonum W1135 is general case for the following reasons: flonum W1033 is general case for the following reasons: flonum W33 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 1% - Expanding macros 4 - 2% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 1 - 0% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 24 - 10% - Performing flow analysis 0 - 0% - Enumerating call sites 1 - 0% - Determining which types and type sets are used 12 - 5% - Determining which call sites to split 0 - 0% - Computing call graph 3 - 1% - Determining which environments are called more than once 1 - 0% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 37 - 16% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 2 - 1% - Determining which environments are recursive 6 - 2% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 103 - 44% - Performing lightweight closure conversion 0 - 0% - Determining parents 2 - 1% - Determining which expressions need conversion to CPS 1 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 2 - 1% - Determining which environments have external continuation calls 3 - 1% - Determining blocked environments 0 - 0% - Determining allocations 5 - 2% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 1 - 1% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 10 - 4% - Generating code 12 - 5% - Removing unused declarations 2 - 1% - Removing unused labels 1 - 1% - Writing database 0 - 0% - Compiling C code 236.75user 3.28system 4:13.96elapsed 94%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33842major+427036minor)pagefaults 0swaps run em-functional 5.84user 0.45system 0:06.40elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (101major+18497minor)pagefaults 0swaps compile em-functional-partial-split Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 19950 expressions 0 internal symbol types 0 external symbol types 66 primitive procedure types 189 non-called native procedure types 463 called noop native procedure types 754 called non-noop native procedure types 1 foreign procedure type 2 continuation types 4 string types 24 structure types 78 headed vector types 1 nonheaded vector type 0 displaced vector types 23067 type sets 855 hunoz variables 2127 non-hunoz variables 657 noop environments 2120 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 22277 expressions 0 internal symbol types 0 external symbol types 66 primitive procedure types 195 non-called native procedure types 567 called noop native procedure types 1023 called non-noop native procedure types 1 foreign procedure type 2 continuation types 4 string types 25 structure types 78 headed vector types 1 nonheaded vector type 0 displaced vector types 25733 type sets 960 hunoz variables 2481 non-hunoz variables 762 noop environments 2516 non-noop environments 4 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 47 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 10117 expressions 0 internal symbol types 0 external symbol types 66 primitive procedure types 189 non-called native procedure types 567 called noop native procedure types 1023 called non-noop native procedure types 1 foreign procedure type 2 continuation types 4 string types 25 structure types 78 headed vector types 1 nonheaded vector type 0 displaced vector types 12369 type sets 660 hunoz variables 1577 non-hunoz variables 0 noop environments 1145 non-noop environments 4 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 47 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: WRITE2[2120] reentrant has the following parameters: OBJ{2724} local PORT{2725} local has the following in-lined locals: NUMBER{2713} PORT{2714} MANTISSA{2718} EXPONENT{2719} MANTISSA{2722} EXPONENT{2723} OBJ{2740} I{2752} DISPLAY-MANTISSA-EXPONENT2[2082] has the following parameters: MANTISSA{2697} local EXPONENT{2698} local PORT{2699} local has the following in-lined locals: FLOAT-DIGIT{2700} DIGIT{2701} MANTISSA{2708} FLOAT-DIGIT{2709} DIGIT{2710} MANTISSA{2712} DISPLAY-EXACT-INTEGER2[2053] has the following parameters: NUMBER{2676} local PORT{2677} local has the following in-lined locals: I{2680} NUMBER{2681} I{2684} I{2690} NUMBER{2691} I{2694} DISPLAY-STRING2[2044] has the following parameters: STRING{2669} local PORT{2670} local has the following in-lined locals: N{2671} I{2674} LOOP[1478] reentrant has the following parameter: K{2273} local LOOP[1413] reentrant has the following parameter: K{2219} local MODULO[1109] has the following parameters: N1{1861} local N2{1862} local has the following in-lined local: v{1863} REVERSE[950] has the following parameter: S{1719} local has the following in-lined locals: LIST{3115} LIST{3118} R{3119} CDR[796] has the following parameter: PAIR{1596} local M-STEP[612] has the following parameters: X{1516} local Z{1517} local CLIP{1518} local has the following in-lined locals: N{931} I{934} V{959} U{960} I{962} V{964} U{965} I{967} V{989} U{990} I{992} V{994} U{995} I{997} V1{1057} V2{1058} U{1059} I{1061} V1{1069} V2{1070} U{1071} I{1073} V1{1075} V2{1076} U{1077} I{1079} V1{1081} V2{1082} U{1083} I{1085} V{1118} I{1119} N{1120} I{1123} C{1124} V{1126} I{1127} N{1128} I{1131} C{1132} V{1134} I{1135} N{1136} I{1139} C{1140} N{1150} I{1153} v{1154} N{1156} I{1159} v{1160} N{1162} N{1165} C{1166} N{1168} N{1171} C{1172} U{1180} N{1224} V{1225} I{1229} N{1232} V{1233} I{1237} N{1240} V{1241} I{1245} N{1256} V{1257} I{1261} M{1309} N{1310} INITIAL{1311} M{1313} N{1314} INITIAL{1315} M{1317} N{1318} INITIAL{1319} A{1338} B{1339} U{1348} V{1349} UI{1350} VJ{1351} V{1358} A{1359} B{1360} M{1362} A{1424} A{1426} N{1427} D{1428} V{1429} B{1430} Z{1431} IP{1435} I{1440} SM{1442} TRESH{1445} IP{1446} IR{1447} IQ{1448} G{1449} H{1450} T{1451} C{1452} H{1455} J{1463} THETA{1473} IP{1474} IP{1477} IR{1478} IQ{1479} I{1480} P{1481} K{1482} J{1486} P{1487} L{1489} J{1490} ROW{1492} X{1493} I{1494} J{1495} V{1496} M{1497} I{1499} A{1500} V{1501} J{1502} E{1503} II{1519} KK{1520} J{1521} ZJ{1522} ZJ-SUM{1523} MU{1524} SIGMA{1525} ZIJ{1526} XI{1527} X{1856} X{2982} X{2983} X{2984} X{2987} X{2988} X{2989} X{2990} X{2991} X{2992} X{2993} OBJS{2996} PAIR{3001} PAIR{3014} A{3019} I{3020} J{3021} X{3022} A{3023} I{3024} J{3025} X{3026} A{3027} I{3028} J{3029} X{3030} A{3067} I{3068} J{3069} X{3070} A{3071} I{3072} J{3073} X{3074} A{3075} I{3076} J{3077} X{3078} A{3082} A{3083} ZS{3084} ZS{3087} R{3088} ZS{3099} ZS{3102} R{3103} X{3109} XS{3110} R{3114} N{3121} I{3124} N{3271} I{3274} N{3277} I{3280} N{3283} I{3286} N{3289} I{3292} N{3295} I{3298} N{3301} I{3304} N{3307} I{3310} N{3313} I{3316} N{3319} I{3322} N{3325} I{3328} N{3331} I{3334} N{3349} I{3352} N{3355} I{3358} N{3367} I{3370} N{3379} I{3382} U{3397} M{3403} A{3433} B{3434} A{3435} A{3438} A{3439} A{3440} E-STEP[604] has region has the following parameters: X{1504} local MODELS{1505} local has the following in-lined locals: V{954} U{955} I{957} V{999} U{1000} I{1002} V{1004} U{1005} I{1007} V{1009} U{1010} I{1012} V{1014} U{1015} I{1017} V{1019} U{1020} I{1022} V1{1063} V2{1064} U{1065} I{1067} V{1102} I{1103} N{1104} I{1107} C{1108} V{1110} I{1111} N{1112} I{1115} C{1116} E1{1182} E2{1183} E-MAX{1184} E-MIN{1185} FACTOR{1186} A{1322} A{1340} B{1341} A{1342} V{1343} U{1344} Z{1506} S{1507} ZI{1508} ZI{1509} XI{1510} MODEL{1511} LOG-DETERMINANT-SIGMA{1512} SIGMA-INVERSE{1513} MU{1514} LOG-PI{1515} ZS{1834} ZS{1837} R{1838} Z{1904} OBJS{2995} A{3081} N{3127} I{3130} N{3133} I{3136} N{3139} I{3142} N{3145} I{3148} N{3151} I{3154} N{3157} I{3160} N{3163} I{3166} ROTATE[562] has the following parameters: A{1465} local I{1466} local J{1467} local K{1468} local L{1469} local has the following in-lined locals: A{1326} I{1327} J{1328} X{1329} H{1470} G{1471} A{3015} I{3016} J{3017} X{3018} INVERT-MATRIX[487] has the following parameter: A{1394} local has the following in-lined locals: N{1208} V{1209} I{1213} N{1216} V{1217} I{1221} M{1302} N{1303} M{1305} N{1306} INITIAL{1307} N{1396} C{1397} B{1398} I{1402} J{1403} I{1404} I{1405} D{1407} K{1409} D{1410} J{1411} J{1413} J{1417} E{1420} E{1422} A{3031} I{3032} J{3033} X{3034} A{3035} I{3036} J{3037} X{3038} A{3039} I{3040} J{3041} X{3042} A{3043} I{3044} J{3045} X{3046} A{3047} I{3048} J{3049} X{3050} A{3051} I{3052} J{3053} X{3054} A{3079} N{3187} I{3190} N{3193} I{3196} N{3199} I{3202} N{3205} I{3208} N{3211} I{3214} N{3217} I{3220} N{3223} I{3226} N{3229} I{3232} DETERMINANT[458] has the following parameter: A{1365} local has the following in-lined locals: A{937} B{938} I{941} N{1200} V{1201} I{1205} M{1299} N{1300} N{1368} B{1369} D{1370} I{1373} J{1374} I{1375} INDEX{1376} GREATEST{1377} C{1381} J{1384} E{1385} K{1386} J{1387} J{1388} X{1389} V{1391} X{2985} X{2986} A{3055} I{3056} J{3057} X{3058} A{3059} I{3060} J{3061} X{3062} A{3063} I{3064} J{3065} X{3066} A{3080} N{3235} I{3238} N{3241} I{3244} N{3247} I{3250} A{3407} B{3408} I{3411} A{3414} B{3415} I{3418} A{3421} B{3422} I{3425} OUTER-PRODUCT2[450] has the following parameters: U{1353} local V{1354} local has the following in-lined locals: V{969} U{970} I{972} V{974} U{975} I{977} UI{1355} VJ{1356} N{3259} I{3262} N{3265} I{3268} MATRIX-ROW-SET![440] has the following parameters: A{1335} local I{1336} local V{1337} local MATRIX-COLUMN-REF[438] has the following parameters: A{1332} local J{1333} local has the following in-lined locals: V{949} U{950} I{952} V{1334} N{3385} I{3388} MATRIX-ROW-REF[437] has the following parameters: A{1330} local I{1331} local MATRIX-REF[435] has the following parameters: A{1323} local I{1324} local J{1325} local MATRIX-ROWS[433] has the following parameter: A{1321} local MAP-N-VECTOR7[355] has the following parameters: F{1247} local N{1248} local has the following in-lined locals: V{1249} I{1253} J{1346} J{3428} J{3430} J{3432} J{3437} V-[277] has the following parameters: U{1177} local V{1178} local has the following in-lined locals: V1{1051} V2{1052} U{1053} I{1055} Z{1844} ZS{1845} R{1849} N{3361} I{3364} V+[276] has the following parameters: U{1175} local V{1176} local has the following in-lined locals: V1{1045} V2{1046} U{1047} I{1049} ZS{3094} ZS{3097} R{3098} N{3373} I{3376} DOT[275] has region has the following parameters: U{1173} local V{1174} local has the following in-lined locals: V1{1039} V2{1040} U{1041} I{1043} V{1094} I{1095} N{1096} I{1099} C{1100} ZS{1839} ZS{1842} R{1843} ZS{3089} ZS{3092} R{3093} N{3253} I{3256} MAP-VECTOR9[106] has the following parameters: F{983} local V{984} local has the following in-lined locals: U{985} I{987} E{1364} N{3337} I{3340} E{3405} MAP-VECTOR8[102] has the following parameters: F{978} local V{979} local has the following in-lined locals: U{980} I{982} ROW{1363} N{3343} I{3346} ROW{3404} MAP-VECTOR1[74] has the following parameters: F{943} local V{944} local has the following in-lined locals: U{945} I{947} X{1181} N{3391} I{3394} X{3398} X{3401} RANDOM:CHUNK[38] has the following parameter: V{916} local has the following in-lined locals: P{917} ANS{918} LOGICAL:ASH-4[25] has the following parameter: X{906} local LOGICAL:LOGXOR[20] reentrant has the following parameters: N1{904} local N2{905} local HEX-STRING->NUMBER[15] has region has the following parameter: S{899} local has the following in-lined locals: S{902} C{903} CHAR1{1946} CHAR2{1947} CHAR1{1951} CHAR2{1952} CHAR1{1955} CHAR2{1956} CHAR1{1960} CHAR2{1961} CHAR{2011} [inside top level 0] has the following in-lined locals: *RANDOM-STATE*{751} RANDOM:MASK{752} RANDOM:CHUNK-SIZE{753} *MOST-POSITIVE-FIXNUM*{760} I{896} L{907} TRIAL{908} RANDOM-STRINGS{909} NIBBLES{911} I{914} ILEN{923} S{924} SLOP{925} N{928} R{929} V{1024} U{1025} I{1027} V{1029} U{1030} I{1032} V{1034} U{1035} I{1037} L{1087} I{1088} L{1091} C{1092} V{1142} I{1143} N{1144} I{1147} C{1148} N{1188} I{1191} C{1192} N{1194} I{1197} C{1198} N{1264} V{1265} I{1269} N{1272} V{1273} I{1277} N{1280} V{1281} I{1285} L{1288} L{1291} C{1292} X{1293} L{1294} L{1297} I{1298} X{1528} PI{1529} MU{1530} SIGMA{1531} CLIP{1532} EM-KICK-OFF-TOLERANCE{1533} EM-CONVERGENCE-TOLERANCE{1534} JJ{1535} MODELS{1538} OLD-LOG-LIKELIHOOD{1539} STARTING?{1540} LOG-LIKELIHOOD-Z{1541} v{1542} v{1543} J{1544} EPSILON{1545} II{1546} JJ{1547} ZI{1549} X{1551} CLIP{1552} EM-KICK-OFF-TOLERANCE{1553} EM-CONVERGENCE-TOLERANCE{1554} EMS-CONVERGENCE-TOLERANCE{1555} JJ{1558} OLD-LOG-LIKELIHOOD-MODELS{1559} MODELS{1560} NEW-LOG-LIKELIHOOD-MODELS{1561} X{1562} CLIP{1563} EM-KICK-OFF-TOLERANCE{1564} EM-CONVERGENCE-TOLERANCE{1565} EMS-CONVERGENCE-TOLERANCE{1566} Z{1567} CLUSTERS{1568} J{1569} CLUSTER{1570} CLUSTER{1571} I{1572} ZI{1573} OBJ1{1576} OBJ2{1577} v{1578} v{1579} PAIR{1595} PAIR{1602} OBJS{1639} LIST{1714} LIST{1717} R{1718} X{1822} XS{1823} R{1827} STRING{2188} START{2189} END{2190} R{2191} K{2195} LIST1{2341} LIST1{2345} C{2346} OBJ{2967} OBJS{2994} OBJS{2997} PAIR{2998} PAIR{2999} PAIR{3000} PAIR{3002} PAIR{3003} PAIR{3004} PAIR{3005} PAIR{3006} PAIR{3007} PAIR{3008} PAIR{3009} PAIR{3010} PAIR{3011} PAIR{3012} PAIR{3013} ZS{3104} ZS{3107} R{3108} N{3169} I{3172} N{3175} I{3178} N{3181} I{3184} U{3400} The following non-trivial in-line native procedures will be generated: [clone MATRIX-COLUMNS[434] 3277] has the following parameter: A{3440} local [clone MATRIX-COLUMNS[434] 3276] has the following parameter: A{3439} local [clone MATRIX-COLUMNS[434] 3275] has the following parameter: A{3438} local [clone [inside TRANSPOSE 446] 3274] has the following parameter: J{3437} local [clone TRANSPOSE[445] 3273] has the following parameter: A{3436} global [clone MATRIX-COLUMNS[434] 3272] has the following parameter: A{3435} local [clone M*[454] 3271] has the following parameters: A{3433} local B{3434} local [clone [inside TRANSPOSE 446] 3270] has the following parameter: J{3432} local [clone TRANSPOSE[445] 3269] has the following parameter: A{3431} global [clone [inside TRANSPOSE 446] 3268] has the following parameter: J{3430} local [clone TRANSPOSE[445] 3267] has the following parameter: A{3429} global [clone [inside TRANSPOSE 446] 3266] has the following parameter: J{3428} local [clone TRANSPOSE[445] 3265] has the following parameter: A{3427} global [clone LOOP[69] 3260] has the following parameter: I{3425} local [clone FOR-EACH-FROM-A-UP-TO-B[66] 3257] has the following parameters: A{3421} local B{3422} local [clone LOOP[69] 3252] has the following parameter: I{3418} local [clone FOR-EACH-FROM-A-UP-TO-B[66] 3249] has the following parameters: A{3414} local B{3415} local [clone LOOP[69] 3244] has the following parameter: I{3411} local [clone FOR-EACH-FROM-A-UP-TO-B[66] 3241] has the following parameters: A{3407} local B{3408} local [clone [inside K*M 457] 3240] has the following parameter: E{3405} local [clone [inside K*M 456] 3239] has the following parameter: ROW{3404} local [clone K*M[455] 3238] has the following parameters: K{3402} global M{3403} local [clone [inside K*V 279] 3237] has the following parameter: X{3401} local [clone K*V[278] 3236] has the following parameters: K{3399} global U{3400} local [clone [inside K*V 279] 3235] has the following parameter: X{3398} local [clone K*V[278] 3234] has the following parameters: K{3396} global U{3397} local [clone LOOP[61] 3229] has the following parameter: I{3394} local [clone FOR-EACH-N[58] 3226] has the following parameter: N{3391} local [clone LOOP[61] 3221] has the following parameter: I{3388} local [clone FOR-EACH-N[58] 3218] has the following parameter: N{3385} local [clone LOOP[61] 3213] has the following parameter: I{3382} local [clone FOR-EACH-N[58] 3210] has the following parameter: N{3379} local [clone LOOP[61] 3205] has the following parameter: I{3376} local [clone FOR-EACH-N[58] 3202] has the following parameter: N{3373} local [clone LOOP[61] 3197] has the following parameter: I{3370} local [clone FOR-EACH-N[58] 3194] has the following parameter: N{3367} local [clone LOOP[61] 3189] has the following parameter: I{3364} local [clone FOR-EACH-N[58] 3186] has the following parameter: N{3361} local [clone LOOP[61] 3181] has the following parameter: I{3358} local [clone FOR-EACH-N[58] 3178] has the following parameter: N{3355} local [clone LOOP[61] 3173] has the following parameter: I{3352} local [clone FOR-EACH-N[58] 3170] has the following parameter: N{3349} local [clone LOOP[61] 3165] has the following parameter: I{3346} local [clone FOR-EACH-N[58] 3162] has the following parameter: N{3343} local [clone LOOP[61] 3157] has the following parameter: I{3340} local [clone FOR-EACH-N[58] 3154] has the following parameter: N{3337} local [clone LOOP[61] 3149] has the following parameter: I{3334} local [clone FOR-EACH-N[58] 3146] has the following parameter: N{3331} local [clone LOOP[61] 3141] has the following parameter: I{3328} local [clone FOR-EACH-N[58] 3138] has the following parameter: N{3325} local [clone LOOP[61] 3133] has the following parameter: I{3322} local [clone FOR-EACH-N[58] 3130] has the following parameter: N{3319} local [clone LOOP[61] 3125] has the following parameter: I{3316} local [clone FOR-EACH-N[58] 3122] has the following parameter: N{3313} local [clone LOOP[61] 3117] has the following parameter: I{3310} local [clone FOR-EACH-N[58] 3114] has the following parameter: N{3307} local [clone LOOP[61] 3109] has the following parameter: I{3304} local [clone FOR-EACH-N[58] 3106] has the following parameter: N{3301} local [clone LOOP[61] 3101] has the following parameter: I{3298} local [clone FOR-EACH-N[58] 3098] has the following parameter: N{3295} local [clone LOOP[61] 3093] has the following parameter: I{3292} local [clone FOR-EACH-N[58] 3090] has the following parameter: N{3289} local [clone LOOP[61] 3085] has the following parameter: I{3286} local [clone FOR-EACH-N[58] 3082] has the following parameter: N{3283} local [clone LOOP[61] 3077] has the following parameter: I{3280} local [clone FOR-EACH-N[58] 3074] has the following parameter: N{3277} local [clone LOOP[61] 3069] has the following parameter: I{3274} local [clone FOR-EACH-N[58] 3066] has the following parameter: N{3271} local [clone LOOP[61] 3061] has the following parameter: I{3268} local [clone FOR-EACH-N[58] 3058] has the following parameter: N{3265} local [clone LOOP[61] 3053] has the following parameter: I{3262} local [clone FOR-EACH-N[58] 3050] has the following parameter: N{3259} local [clone LOOP[61] 3045] has the following parameter: I{3256} local [clone FOR-EACH-N[58] 3042] has the following parameter: N{3253} local [clone LOOP[61] 3037] has the following parameter: I{3250} local [clone FOR-EACH-N[58] 3034] has the following parameter: N{3247} local [clone LOOP[61] 3029] has the following parameter: I{3244} local [clone FOR-EACH-N[58] 3026] has the following parameter: N{3241} local [clone LOOP[61] 3021] has the following parameter: I{3238} local [clone FOR-EACH-N[58] 3018] has the following parameter: N{3235} local [clone LOOP[61] 3013] has the following parameter: I{3232} local [clone FOR-EACH-N[58] 3010] has the following parameter: N{3229} local [clone LOOP[61] 3005] has the following parameter: I{3226} local [clone FOR-EACH-N[58] 3002] has the following parameter: N{3223} local [clone LOOP[61] 2997] has the following parameter: I{3220} local [clone FOR-EACH-N[58] 2994] has the following parameter: N{3217} local [clone LOOP[61] 2989] has the following parameter: I{3214} local [clone FOR-EACH-N[58] 2986] has the following parameter: N{3211} local [clone LOOP[61] 2981] has the following parameter: I{3208} local [clone FOR-EACH-N[58] 2978] has the following parameter: N{3205} local [clone LOOP[61] 2973] has the following parameter: I{3202} local [clone FOR-EACH-N[58] 2970] has the following parameter: N{3199} local [clone LOOP[61] 2965] has the following parameter: I{3196} local [clone FOR-EACH-N[58] 2962] has the following parameter: N{3193} local [clone LOOP[61] 2957] has the following parameter: I{3190} local [clone FOR-EACH-N[58] 2954] has the following parameter: N{3187} local [clone LOOP[61] 2949] has the following parameter: I{3184} local [clone FOR-EACH-N[58] 2946] has the following parameter: N{3181} local [clone LOOP[61] 2941] has the following parameter: I{3178} local [clone FOR-EACH-N[58] 2938] has the following parameter: N{3175} local [clone LOOP[61] 2933] has the following parameter: I{3172} local [clone FOR-EACH-N[58] 2930] has the following parameter: N{3169} local [clone LOOP[61] 2925] has the following parameter: I{3166} local [clone FOR-EACH-N[58] 2922] has the following parameter: N{3163} local [clone LOOP[61] 2917] has the following parameter: I{3160} local [clone FOR-EACH-N[58] 2914] has the following parameter: N{3157} local [clone LOOP[61] 2909] has the following parameter: I{3154} local [clone FOR-EACH-N[58] 2906] has the following parameter: N{3151} local [clone LOOP[61] 2901] has the following parameter: I{3148} local [clone FOR-EACH-N[58] 2898] has the following parameter: N{3145} local [clone LOOP[61] 2893] has the following parameter: I{3142} local [clone FOR-EACH-N[58] 2890] has the following parameter: N{3139} local [clone LOOP[61] 2885] has the following parameter: I{3136} local [clone FOR-EACH-N[58] 2882] has the following parameter: N{3133} local [clone LOOP[61] 2877] has the following parameter: I{3130} local [clone FOR-EACH-N[58] 2874] has the following parameter: N{3127} local [clone LOOP[61] 2869] has the following parameter: I{3124} local [clone FOR-EACH-N[58] 2866] has the following parameter: N{3121} local [clone LOOP[948] 2864] has the following parameters: LIST{3118} local R{3119} local [clone LIST-REVERSE[945] 2861] has the following parameter: LIST{3115} local [clone LOOP[1079] 2859] has the following parameter: R{3114} local [clone MAX[1076] 2856] has the following parameters: X{3109} local XS{3110} local [clone LOOP[1089] 2854] has the following parameters: ZS{3107} local R{3108} local [clone +[1086] 2851] has the following parameter: ZS{3104} local [clone LOOP[1089] 2849] has the following parameters: ZS{3102} local R{3103} local [clone +[1086] 2846] has the following parameter: ZS{3099} local [clone LOOP[1089] 2844] has the following parameters: ZS{3097} local R{3098} local [clone +[1086] 2841] has the following parameter: ZS{3094} local [clone LOOP[1089] 2839] has the following parameters: ZS{3092} local R{3093} local [clone +[1086] 2836] has the following parameter: ZS{3089} local [clone LOOP[1094] 2834] has the following parameters: ZS{3087} local R{3088} local [clone *[1091] 2831] has the following parameter: ZS{3084} local [clone MATRIX-COLUMNS[434] 2830] has the following parameter: A{3083} local [clone MATRIX-COLUMNS[434] 2829] has the following parameter: A{3082} local [clone MATRIX-COLUMNS[434] 2828] has the following parameter: A{3081} local [clone MATRIX-COLUMNS[434] 2827] has the following parameter: A{3080} local [clone MATRIX-COLUMNS[434] 2826] has the following parameter: A{3079} local [clone MATRIX-SET![436] 2825] has the following parameters: A{3075} local I{3076} local J{3077} local X{3078} local [clone MATRIX-SET![436] 2824] has the following parameters: A{3071} local I{3072} local J{3073} local X{3074} local [clone MATRIX-SET![436] 2823] has the following parameters: A{3067} local I{3068} local J{3069} local X{3070} local [clone MATRIX-SET![436] 2822] has the following parameters: A{3063} local I{3064} local J{3065} local X{3066} local [clone MATRIX-SET![436] 2821] has the following parameters: A{3059} local I{3060} local J{3061} local X{3062} local [clone MATRIX-SET![436] 2820] has the following parameters: A{3055} local I{3056} local J{3057} local X{3058} local [clone MATRIX-SET![436] 2819] has the following parameters: A{3051} local I{3052} local J{3053} local X{3054} local [clone MATRIX-SET![436] 2818] has the following parameters: A{3047} local I{3048} local J{3049} local X{3050} local [clone MATRIX-SET![436] 2817] has the following parameters: A{3043} local I{3044} local J{3045} local X{3046} local [clone MATRIX-SET![436] 2816] has the following parameters: A{3039} local I{3040} local J{3041} local X{3042} local [clone MATRIX-SET![436] 2815] has the following parameters: A{3035} local I{3036} local J{3037} local X{3038} local [clone MATRIX-SET![436] 2814] has the following parameters: A{3031} local I{3032} local J{3033} local X{3034} local [clone MATRIX-SET![436] 2813] has the following parameters: A{3027} local I{3028} local J{3029} local X{3030} local [clone MATRIX-SET![436] 2812] has the following parameters: A{3023} local I{3024} local J{3025} local X{3026} local [clone MATRIX-SET![436] 2811] has the following parameters: A{3019} local I{3020} local J{3021} local X{3022} local [clone MATRIX-SET![436] 2810] has the following parameters: A{3015} local I{3016} local J{3017} local X{3018} local [clone CAR[795] 2809] has the following parameter: PAIR{3014} local [clone CAR[795] 2808] has the following parameter: PAIR{3013} local [clone CAR[795] 2807] has the following parameter: PAIR{3012} local [clone CAR[795] 2806] has the following parameter: PAIR{3011} local [clone CAR[795] 2805] has the following parameter: PAIR{3010} local [clone CAR[795] 2804] has the following parameter: PAIR{3009} local [clone CAR[795] 2803] has the following parameter: PAIR{3008} local [clone CAR[795] 2802] has the following parameter: PAIR{3007} local [clone CAR[795] 2801] has the following parameter: PAIR{3006} local [clone CAR[795] 2800] has the following parameter: PAIR{3005} local [clone CAR[795] 2799] has the following parameter: PAIR{3004} local [clone CAR[795] 2798] has the following parameter: PAIR{3003} local [clone CAR[795] 2797] has the following parameter: PAIR{3002} local [clone CADR[800] 2796] has the following parameter: PAIR{3001} local [clone CADR[800] 2795] has the following parameter: PAIR{3000} local [clone CADR[800] 2794] has the following parameter: PAIR{2999} local [clone CADR[800] 2793] has the following parameter: PAIR{2998} local [clone LIST[837] 2792] has the following parameter: OBJS{2997} local [clone LIST[837] 2791] has the following parameter: OBJS{2996} local [clone LIST[837] 2790] has the following parameter: OBJS{2995} local [clone LIST[837] 2789] has the following parameter: OBJS{2994} local [clone ABS[1106] 2788] has the following parameter: X{2993} local [clone ABS[1106] 2787] has the following parameter: X{2992} local [clone ABS[1106] 2786] has the following parameter: X{2991} local [clone ABS[1106] 2785] has the following parameter: X{2990} local [clone ABS[1106] 2784] has the following parameter: X{2989} local [clone ABS[1106] 2783] has the following parameter: X{2988} local [clone ABS[1106] 2782] has the following parameter: X{2987} local [clone ABS[1106] 2781] has the following parameter: X{2986} local [clone ABS[1106] 2780] has the following parameter: X{2985} local [clone ABS[1106] 2779] has the following parameter: X{2984} local [clone ABS[1106] 2778] has the following parameter: X{2983} local [clone ABS[1106] 2777] has the following parameter: X{2982} local WRITE[2527] has the following parameter: OBJ{2967} local [inside LOOP 2168] reentrant [inside LOOP 2167] reentrant LOOP[2166] reentrant has the following parameter: I{2752} local [inside WRITE2 2163] reentrant [inside WRITE2 2162] reentrant [inside WRITE2 2160] reentrant [inside LOOP 2157] reentrant [inside LOOP 2156] reentrant [inside LOOP 2155] reentrant [inside LOOP 2153] reentrant LOOP[2152] reentrant has the following parameter: OBJ{2740} local [inside WRITE2 2149] reentrant [inside WRITE2 2148] reentrant LOOP[2117] has the following parameters: MANTISSA{2722} local EXPONENT{2723} local LOOP[2112] has the following parameters: MANTISSA{2718} local EXPONENT{2719} local DISPLAY-INEXACT-REAL2[2103] has the following parameters: NUMBER{2713} local PORT{2714} local [inside LOOP 2100] has the following parameter: MANTISSA{2712} local [inside LOOP 2097] has the following parameter: DIGIT{2710} local [inside LOOP 2096] has the following parameter: FLOAT-DIGIT{2709} local LOOP[2095] has the following parameter: MANTISSA{2708} local [inside DISPLAY-MANTISSA-EXPONENT2 2084] has the following parameter: DIGIT{2701} local [inside DISPLAY-MANTISSA-EXPONENT2 2083] has the following parameter: FLOAT-DIGIT{2700} local LOOP[2074] has the following parameter: I{2694} local LOOP[2071] has the following parameters: I{2690} local NUMBER{2691} local LOOP[2060] has the following parameter: I{2684} local LOOP[2057] has the following parameters: I{2680} local NUMBER{2681} local LOOP[2048] has the following parameter: I{2674} local [inside DISPLAY-STRING2 2045] has the following parameter: N{2671} local [inside top level 2040] has the following parameters: THE-CURRENT-OUTPUT-PORT{2630} global BUFFER{2632} global LOOP[1565] has region has the following parameters: LIST1{2345} local C{2346} local MAP[1561] has the following parameter: LIST1{2341} local VECTOR->LIST[1475] has the following parameter: VECTOR{2270} global [inside STRING->LIST 1410] has the following parameter: N{2216} global STRING->LIST[1409] has the following parameter: STRING{2215} global LOOP[1381] has the following parameter: K{2195} local [inside SUBSTRING 1377] has the following parameter: R{2191} local SUBSTRING[1376] has the following parameters: STRING{2188} local START{2189} local END{2190} local CHAR-NUMERIC?[1235] has the following parameter: CHAR{2011} local LOOP?[1200] has the following parameters: CHAR1{1960} local CHAR2{1961} local CHAR>=?[1197] has the following parameters: CHAR1{1955} local CHAR2{1956} local LOOP?[1194] has the following parameters: CHAR1{1951} local CHAR2{1952} local CHAR<=?[1191] has the following parameters: CHAR1{1946} local CHAR2{1947} local EXP[1155] has the following parameter: Z{1904} local [inside MODULO 1110] has the following parameter: v{1863} local ABS[1106] has the following parameter: X{1856} local LOOP[1099] has the following parameter: R{1849} local -[1096] has the following parameters: Z{1844} local ZS{1845} local LOOP[1094] has the following parameters: ZS{1842} local R{1843} local *[1091] has the following parameter: ZS{1839} local LOOP[1089] has the following parameters: ZS{1837} local R{1838} local +[1086] has the following parameter: ZS{1834} local LOOP[1079] has the following parameter: R{1827} local MAX[1076] has the following parameters: X{1822} local XS{1823} local LOOP[948] has the following parameters: LIST{1717} local R{1718} local LIST-REVERSE[945] has the following parameter: LIST{1714} local LIST[837] has the following parameter: OBJS{1639} local CADR[800] has the following parameter: PAIR{1602} local CAR[795] has the following parameter: PAIR{1595} local [inside EQV? 781] has the following parameter: v{1579} local [inside EQV? 780] has the following parameter: v{1578} local EQV?[779] has the following parameters: OBJ1{1576} local OBJ2{1577} local [inside EM-CLUSTERER 654] has the following parameter: ZI{1573} local [inside EM-CLUSTERER 653] has region has the following parameter: I{1572} local [inside EM-CLUSTERER 652] has the following parameter: CLUSTER{1571} local [inside EM-CLUSTERER 651] has the following parameter: CLUSTER{1570} local [inside EM-CLUSTERER 650] has the following parameter: J{1569} local [inside EM-CLUSTERER 648] has the following parameter: CLUSTERS{1568} local [inside EM-CLUSTERER 647] has the following parameter: Z{1567} local EM-CLUSTERER[646] has region has the following parameters: X{1562} local CLIP{1563} local EM-KICK-OFF-TOLERANCE{1564} local EM-CONVERGENCE-TOLERANCE{1565} local EMS-CONVERGENCE-TOLERANCE{1566} local [inside LOOP 643] has the following parameter: NEW-LOG-LIKELIHOOD-MODELS{1561} local [inside LOOP 642] has the following parameter: MODELS{1560} local LOOP[641] has region has the following parameters: JJ{1558} local OLD-LOG-LIKELIHOOD-MODELS{1559} local EMS[638] has region has the following parameters: X{1551} local CLIP{1552} local EM-KICK-OFF-TOLERANCE{1553} local EM-CONVERGENCE-TOLERANCE{1554} local EMS-CONVERGENCE-TOLERANCE{1555} local [inside INITIAL-Z 636] has the following parameter: ZI{1549} local [inside INITIAL-Z 635] has region INITIAL-Z[634] has the following parameters: II{1546} local JJ{1547} local NOISE[633] has the following parameter: EPSILON{1545} local [inside EM 632] has the following parameter: J{1544} local [inside LOOP 630] has the following parameter: v{1543} local [inside LOOP 629] has the following parameter: v{1542} local [inside LOOP 628] has the following parameter: LOG-LIKELIHOOD-Z{1541} local LOOP[627] has the following parameters: MODELS{1538} local OLD-LOG-LIKELIHOOD{1539} local STARTING?{1540} local [inside EM 624] has the following parameter: JJ{1535} local EM[623] has the following parameters: X{1528} local PI{1529} local MU{1530} local SIGMA{1531} local CLIP{1532} local EM-KICK-OFF-TOLERANCE{1533} local EM-CONVERGENCE-TOLERANCE{1534} local [inside M-STEP 622] has region has the following parameters: ZIJ{1526} local XI{1527} local [inside M-STEP 620] has the following parameter: SIGMA{1525} local [inside M-STEP 619] has region has the following parameter: MU{1524} local [inside M-STEP 618] has region has the following parameter: ZJ-SUM{1523} local [inside M-STEP 617] has the following parameter: ZJ{1522} local [inside M-STEP 616] has the following parameter: J{1521} local [inside M-STEP 614] has the following parameter: KK{1520} local [inside M-STEP 613] has the following parameter: II{1519} local [inside E-STEP 611] has region has the following parameters: LOG-DETERMINANT-SIGMA{1512} local SIGMA-INVERSE{1513} local MU{1514} local LOG-PI{1515} local [inside E-STEP 610] has the following parameter: MODEL{1511} local [inside E-STEP 609] has the following parameter: XI{1510} local [inside E-STEP 608] has the following parameter: ZI{1509} local [inside E-STEP 607] has the following parameter: ZI{1508} local [inside E-STEP 606] has region has the following parameter: S{1507} local [inside E-STEP 605] has region has the following parameter: Z{1506} local [inside CLIP-EIGENVALUES 603] has region [inside CLIP-EIGENVALUES 602] has the following parameter: E{1503} local [inside CLIP-EIGENVALUES 601] has the following parameter: J{1502} local CLIP-EIGENVALUES[600] has region has the following parameters: A{1500} local V{1501} local [inside VECTOR->DIAGONAL-MATRIX 599] has the following parameter: I{1499} local [inside VECTOR->DIAGONAL-MATRIX 597] has the following parameter: M{1497} local VECTOR->DIAGONAL-MATRIX[596] has the following parameter: V{1496} local [inside JACOBI 594] has the following parameter: J{1495} local [inside JACOBI 593] has the following parameter: I{1494} local [inside JACOBI 592] has the following parameter: X{1493} local [inside JACOBI 591] has the following parameter: ROW{1492} local [inside JACOBI 586] has the following parameter: J{1490} local [inside JACOBI 585] has the following parameter: L{1489} local [inside JACOBI 582] has the following parameter: P{1487} local [inside JACOBI 581] has the following parameter: J{1486} local [inside JACOBI 577] has the following parameters: P{1481} local K{1482} local [inside JACOBI 576] has the following parameter: I{1480} local [inside LOOP 573] has the following parameter: IQ{1479} local [inside LOOP 572] has the following parameter: IR{1478} local [inside LOOP 571] has the following parameter: IP{1477} local [inside LOOP 568] has the following parameter: IP{1474} local [inside LOOP 566] has the following parameter: THETA{1473} local [inside ROTATE 563] has the following parameters: H{1470} local G{1471} local [inside LOOP 556] has the following parameter: J{1463} local [inside LOOP 552] has the following parameter: H{1455} local [inside LOOP 551] has the following parameter: TAU{1454} global [inside LOOP 550] has the following parameter: S{1453} global [inside LOOP 549] has the following parameter: C{1452} local [inside LOOP 548] has the following parameter: T{1451} local [inside LOOP 547] has the following parameter: H{1450} local [inside LOOP 543] has the following parameter: G{1449} local [inside LOOP 542] has the following parameter: IQ{1448} local [inside LOOP 541] has the following parameter: IR{1447} local [inside LOOP 540] has the following parameter: IP{1446} local [inside LOOP 539] has the following parameter: TRESH{1445} local [inside LOOP 536] has the following parameter: SM{1442} local LOOP[534] has the following parameter: I{1440} local [inside JACOBI 530] has the following parameter: IP{1435} local [inside JACOBI 527] has the following parameter: Z{1431} local [inside JACOBI 526] has region has the following parameter: B{1430} local [inside JACOBI 525] has region has the following parameter: V{1429} local [inside JACOBI 524] has region has the following parameter: D{1428} local [inside JACOBI 523] has the following parameter: N{1427} local [inside JACOBI 522] has the following parameter: A{1426} local [inside JACOBI 521] has region JACOBI[520] has the following parameter: A{1424} local [inside INVERT-MATRIX 515] has the following parameter: E{1422} local [inside INVERT-MATRIX 513] has the following parameter: E{1420} local [inside INVERT-MATRIX 510] has the following parameter: J{1417} local [inside INVERT-MATRIX 506] has the following parameter: J{1413} local [inside INVERT-MATRIX 503] has the following parameter: J{1411} local [inside INVERT-MATRIX 502] has the following parameter: D{1410} local [inside INVERT-MATRIX 501] has the following parameter: K{1409} local [inside INVERT-MATRIX 499] has the following parameter: D{1407} local [inside INVERT-MATRIX 497] has the following parameter: I{1405} local [inside INVERT-MATRIX 496] has the following parameter: I{1404} local [inside INVERT-MATRIX 495] has the following parameter: J{1403} local [inside INVERT-MATRIX 494] has the following parameter: I{1402} local [inside INVERT-MATRIX 491] has the following parameter: B{1398} local [inside INVERT-MATRIX 490] has the following parameter: C{1397} local [inside INVERT-MATRIX 489] has region has the following parameter: N{1396} local [inside DETERMINANT 483] has the following parameter: V{1391} local [inside DETERMINANT 478] has the following parameter: X{1389} local [inside DETERMINANT 477] has the following parameter: J{1388} local [inside DETERMINANT 476] has the following parameter: J{1387} local [inside DETERMINANT 475] has the following parameter: K{1386} local [inside DETERMINANT 474] has the following parameter: E{1385} local [inside DETERMINANT 473] has the following parameter: J{1384} local [inside DETERMINANT 471] has the following parameter: C{1381} local [inside DETERMINANT 469] has the following parameters: INDEX{1376} local GREATEST{1377} local [inside DETERMINANT 468] has the following parameter: I{1375} local [inside DETERMINANT 467] has the following parameter: J{1374} local [inside DETERMINANT 466] has the following parameter: I{1373} local [inside DETERMINANT 463] has the following parameter: D{1370} local [inside DETERMINANT 462] has the following parameter: B{1369} local [inside DETERMINANT 461] has region has the following parameter: N{1368} local [inside K*M 457] has the following parameter: E{1364} local [inside K*M 456] has the following parameter: ROW{1363} local K*M[455] has the following parameters: K{1361} global M{1362} local M*[454] has the following parameters: A{1359} local B{1360} local SELF-OUTER-PRODUCT[453] has the following parameter: V{1358} local [inside OUTER-PRODUCT2 452] has the following parameter: VJ{1356} local [inside OUTER-PRODUCT2 451] has the following parameter: UI{1355} local [inside OUTER-PRODUCT1 449] has region has the following parameter: VJ{1351} local [inside OUTER-PRODUCT1 448] has the following parameter: UI{1350} local OUTER-PRODUCT1[447] has the following parameters: U{1348} local V{1349} local [inside TRANSPOSE 446] has the following parameter: J{1346} local TRANSPOSE[445] has the following parameter: A{1345} global [inside M*V 444] has the following parameter: U{1344} local M*V[443] has the following parameters: A{1342} local V{1343} local M-[442] has the following parameters: A{1340} local B{1341} local M+[441] has the following parameters: A{1338} local B{1339} local [inside MATRIX-COLUMN-REF 439] has the following parameter: V{1334} local MATRIX-SET![436] has the following parameters: A{1326} local I{1327} local J{1328} local X{1329} local MATRIX-COLUMNS[434] has the following parameter: A{1322} local MAKE-MATRIX-INITIAL4[431] has the following parameters: M{1317} local N{1318} local INITIAL{1319} local MAKE-MATRIX-INITIAL3[429] has the following parameters: M{1313} local N{1314} local INITIAL{1315} local MAKE-MATRIX-INITIAL2[427] has the following parameters: M{1309} local N{1310} local INITIAL{1311} local MAKE-MATRIX-INITIAL1[425] has the following parameters: M{1305} local N{1306} local INITIAL{1307} local MAKE-MATRIX2[423] has the following parameters: M{1302} local N{1303} local MAKE-MATRIX1[421] has the following parameters: M{1299} local N{1300} local LOOP[416] has the following parameters: L{1297} local I{1298} local POSITIONV[413] has the following parameters: X{1293} local L{1294} local LOOP[408] has region has the following parameters: L{1291} local C{1292} local REMOVE-IF-NOT[405] has the following parameter: L{1288} local LOOP[400] has the following parameter: I{1285} local [inside MAP-N-VECTOR11 396] has the following parameter: V{1281} local MAP-N-VECTOR11[395] has the following parameter: N{1280} local LOOP[390] has the following parameter: I{1277} local [inside MAP-N-VECTOR10 386] has the following parameter: V{1273} local MAP-N-VECTOR10[385] has the following parameter: N{1272} local LOOP[380] has the following parameter: I{1269} local [inside MAP-N-VECTOR9 376] has the following parameter: V{1265} local MAP-N-VECTOR9[375] has the following parameter: N{1264} local LOOP[370] has the following parameter: I{1261} local [inside MAP-N-VECTOR8 366] has the following parameter: V{1257} local MAP-N-VECTOR8[365] has the following parameter: N{1256} local LOOP[360] has the following parameter: I{1253} local [inside MAP-N-VECTOR7 356] has the following parameter: V{1249} local LOOP[350] has the following parameter: I{1245} local [inside MAP-N-VECTOR6 346] has the following parameter: V{1241} local MAP-N-VECTOR6[345] has the following parameter: N{1240} local LOOP[340] has the following parameter: I{1237} local [inside MAP-N-VECTOR5 336] has the following parameter: V{1233} local MAP-N-VECTOR5[335] has the following parameter: N{1232} local LOOP[330] has the following parameter: I{1229} local [inside MAP-N-VECTOR4 326] has the following parameter: V{1225} local MAP-N-VECTOR4[325] has the following parameter: N{1224} local LOOP[320] has the following parameter: I{1221} local [inside MAP-N-VECTOR3 316] has the following parameter: V{1217} local MAP-N-VECTOR3[315] has the following parameter: N{1216} local LOOP[310] has the following parameter: I{1213} local [inside MAP-N-VECTOR2 306] has the following parameter: V{1209} local MAP-N-VECTOR2[305] has the following parameter: N{1208} local LOOP[300] has the following parameter: I{1205} local [inside MAP-N-VECTOR1 296] has the following parameter: V{1201} local MAP-N-VECTOR1[295] has the following parameter: N{1200} local LOOP[293] has region has the following parameters: I{1197} local C{1198} local MAP-N2[290] has the following parameter: N{1194} local LOOP[288] has region has the following parameters: I{1191} local C{1192} local MAP-N1[285] has the following parameter: N{1188} local [inside ADD-EXP 283] has the following parameter: FACTOR{1186} local [inside ADD-EXP 282] has the following parameter: E-MIN{1185} local [inside ADD-EXP 281] has the following parameter: E-MAX{1184} local ADD-EXP[280] has the following parameters: E1{1182} local E2{1183} local [inside K*V 279] has the following parameter: X{1181} local K*V[278] has the following parameters: K{1179} global U{1180} local LOOP[273] has the following parameters: N{1171} local C{1172} local SUM2[270] has the following parameter: N{1168} local LOOP[268] has the following parameters: N{1165} local C{1166} local SUM1[265] has the following parameter: N{1162} local [inside LOOP 263] has the following parameter: v{1160} local LOOP[262] has the following parameter: I{1159} local EVERY-N2[259] has the following parameter: N{1156} local [inside LOOP 257] has the following parameter: v{1154} local LOOP[256] has the following parameter: I{1153} local EVERY-N1[253] has the following parameter: N{1150} local LOOP[251] has region has the following parameters: I{1147} local C{1148} local [inside REDUCE-VECTOR7 245] has the following parameter: N{1144} local REDUCE-VECTOR7[244] has the following parameters: V{1142} local I{1143} local LOOP[242] has the following parameters: I{1139} local C{1140} local [inside REDUCE-VECTOR6 236] has the following parameter: N{1136} local REDUCE-VECTOR6[235] has the following parameters: V{1134} local I{1135} local LOOP[233] has the following parameters: I{1131} local C{1132} local [inside REDUCE-VECTOR5 227] has the following parameter: N{1128} local REDUCE-VECTOR5[226] has the following parameters: V{1126} local I{1127} local LOOP[224] has the following parameters: I{1123} local C{1124} local [inside REDUCE-VECTOR4 218] has the following parameter: N{1120} local REDUCE-VECTOR4[217] has the following parameters: V{1118} local I{1119} local LOOP[215] has the following parameters: I{1115} local C{1116} local [inside REDUCE-VECTOR3 209] has the following parameter: N{1112} local REDUCE-VECTOR3[208] has the following parameters: V{1110} local I{1111} local LOOP[206] has the following parameters: I{1107} local C{1108} local [inside REDUCE-VECTOR2 200] has the following parameter: N{1104} local REDUCE-VECTOR2[199] has the following parameters: V{1102} local I{1103} local LOOP[197] has the following parameters: I{1099} local C{1100} local [inside REDUCE-VECTOR1 191] has the following parameter: N{1096} local REDUCE-VECTOR1[190] has the following parameters: V{1094} local I{1095} local LOOP[188] has region has the following parameters: L{1091} local C{1092} local REDUCE[182] has the following parameters: L{1087} local I{1088} local [inside MAP-VECTOR-TWO8 181] has the following parameter: I{1085} local [inside MAP-VECTOR-TWO8 179] has the following parameter: U{1083} local MAP-VECTOR-TWO8[178] has the following parameters: V1{1081} local V2{1082} local [inside MAP-VECTOR-TWO7 177] has the following parameter: I{1079} local [inside MAP-VECTOR-TWO7 175] has the following parameter: U{1077} local MAP-VECTOR-TWO7[174] has the following parameters: V1{1075} local V2{1076} local [inside MAP-VECTOR-TWO6 173] has region has the following parameter: I{1073} local [inside MAP-VECTOR-TWO6 171] has the following parameter: U{1071} local MAP-VECTOR-TWO6[170] has the following parameters: V1{1069} local V2{1070} local [inside MAP-VECTOR-TWO5 169] has the following parameter: I{1067} local [inside MAP-VECTOR-TWO5 167] has the following parameter: U{1065} local MAP-VECTOR-TWO5[166] has the following parameters: V1{1063} local V2{1064} local [inside MAP-VECTOR-TWO4 165] has the following parameter: I{1061} local [inside MAP-VECTOR-TWO4 163] has the following parameter: U{1059} local MAP-VECTOR-TWO4[162] has the following parameters: V1{1057} local V2{1058} local [inside MAP-VECTOR-TWO3 161] has region has the following parameter: I{1055} local [inside MAP-VECTOR-TWO3 159] has the following parameter: U{1053} local MAP-VECTOR-TWO3[158] has the following parameters: V1{1051} local V2{1052} local [inside MAP-VECTOR-TWO2 157] has region has the following parameter: I{1049} local [inside MAP-VECTOR-TWO2 155] has the following parameter: U{1047} local MAP-VECTOR-TWO2[154] has the following parameters: V1{1045} local V2{1046} local [inside MAP-VECTOR-TWO1 153] has region has the following parameter: I{1043} local [inside MAP-VECTOR-TWO1 151] has the following parameter: U{1041} local MAP-VECTOR-TWO1[150] has the following parameters: V1{1039} local V2{1040} local [inside MAP-VECTOR19 149] has the following parameter: I{1037} local [inside MAP-VECTOR19 147] has the following parameter: U{1035} local MAP-VECTOR19[146] has the following parameter: V{1034} local [inside MAP-VECTOR18 145] has the following parameter: I{1032} local [inside MAP-VECTOR18 143] has the following parameter: U{1030} local MAP-VECTOR18[142] has the following parameter: V{1029} local [inside MAP-VECTOR17 141] has the following parameter: I{1027} local [inside MAP-VECTOR17 139] has the following parameter: U{1025} local MAP-VECTOR17[138] has the following parameter: V{1024} local [inside MAP-VECTOR16 137] has the following parameter: I{1022} local [inside MAP-VECTOR16 135] has the following parameter: U{1020} local MAP-VECTOR16[134] has the following parameter: V{1019} local [inside MAP-VECTOR15 133] has the following parameter: I{1017} local [inside MAP-VECTOR15 131] has the following parameter: U{1015} local MAP-VECTOR15[130] has the following parameter: V{1014} local [inside MAP-VECTOR14 129] has the following parameter: I{1012} local [inside MAP-VECTOR14 127] has the following parameter: U{1010} local MAP-VECTOR14[126] has the following parameter: V{1009} local [inside MAP-VECTOR13 125] has the following parameter: I{1007} local [inside MAP-VECTOR13 123] has the following parameter: U{1005} local MAP-VECTOR13[122] has the following parameter: V{1004} local [inside MAP-VECTOR12 121] has the following parameter: I{1002} local [inside MAP-VECTOR12 119] has the following parameter: U{1000} local MAP-VECTOR12[118] has the following parameter: V{999} local [inside MAP-VECTOR11 117] has the following parameter: I{997} local [inside MAP-VECTOR11 115] has the following parameter: U{995} local MAP-VECTOR11[114] has the following parameter: V{994} local [inside MAP-VECTOR10 113] has the following parameter: I{992} local [inside MAP-VECTOR10 111] has the following parameter: U{990} local MAP-VECTOR10[110] has the following parameter: V{989} local [inside MAP-VECTOR9 109] has the following parameter: I{987} local [inside MAP-VECTOR9 107] has the following parameter: U{985} local [inside MAP-VECTOR8 105] has the following parameter: I{982} local [inside MAP-VECTOR8 103] has the following parameter: U{980} local [inside MAP-VECTOR7 101] has the following parameter: I{977} local [inside MAP-VECTOR7 99] has the following parameter: U{975} local MAP-VECTOR7[98] has the following parameter: V{974} local [inside MAP-VECTOR6 97] has the following parameter: I{972} local [inside MAP-VECTOR6 95] has the following parameter: U{970} local MAP-VECTOR6[94] has the following parameter: V{969} local [inside MAP-VECTOR5 93] has the following parameter: I{967} local [inside MAP-VECTOR5 91] has the following parameter: U{965} local MAP-VECTOR5[90] has the following parameter: V{964} local [inside MAP-VECTOR4 89] has the following parameter: I{962} local [inside MAP-VECTOR4 87] has the following parameter: U{960} local MAP-VECTOR4[86] has the following parameter: V{959} local [inside MAP-VECTOR3 85] has the following parameter: I{957} local [inside MAP-VECTOR3 83] has the following parameter: U{955} local MAP-VECTOR3[82] has the following parameter: V{954} local [inside MAP-VECTOR2 81] has the following parameter: I{952} local [inside MAP-VECTOR2 79] has the following parameter: U{950} local MAP-VECTOR2[78] has the following parameter: V{949} local [inside MAP-VECTOR1 77] has the following parameter: I{947} local [inside MAP-VECTOR1 75] has the following parameter: U{945} local LOOP[69] has the following parameter: I{941} local FOR-EACH-FROM-A-UP-TO-B[66] has the following parameters: A{937} local B{938} local LOOP[61] has the following parameter: I{934} local FOR-EACH-N[58] has the following parameter: N{931} local LOOP[51] has the following parameters: N{928} local R{929} local [inside loop 48] has the following parameter: SLOP{925} local loop[46] has the following parameters: ILEN{923} local S{924} local [inside RANDOM:CHUNK 40] has the following parameter: ANS{918} local [inside RANDOM:CHUNK 39] has the following parameter: P{917} local loop[33] has region has the following parameter: I{914} local [inside top level 30] has the following parameter: NIBBLES{911} local [inside top level 28] has the following parameter: RANDOM-STRINGS{909} local [inside RANDOM:SIZE-INT 27] has the following parameter: TRIAL{908} local RANDOM:SIZE-INT[26] has region has the following parameter: L{907} local [inside LOGICAL:LOGXOR 24] reentrant LOOP[18] has the following parameters: S{902} local C{903} local loop[8] has region has the following parameter: I{896} local [inside top level 4] has the following parameters: MINUS-INFINITY{747} global LOG-MATH-PRECISION{748} global *RANDOM-STATE*{751} local RANDOM:MASK{752} local RANDOM:CHUNK-SIZE{753} local RANDOM:SIZE{755} global RANDOM:TAP{756} global LOGICAL:BOOLE-XOR{757} global *MOST-POSITIVE-FIXNUM*{760} local The following expression allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20) The following expression allocates on LOOP[1565]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC (# LIST1)) C) The following expression allocates on [inside EM-CLUSTERER 653]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR-REF) VECTOR K) (LOOP (# K 1))) The following expression allocates on HEX-STRING->NUMBER[15]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRING-REF) STRING K) (LOOP (# K 1))) The following expression allocates on loop[33]: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START)) The following expression allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression, em-functional-partial-split-stalin.sc:944:29139, allocates on loop[8]: (LIST I (POSITIONV (REDUCE MAX ZI MINUS-INFINITY) ZI)) The following expression, em-functional-partial-split-stalin.sc:919:28263, allocates on EMS[638]: (LIST MINUS-INFINITY #F) The following expression, em-functional-partial-split-stalin.sc:878:26879, allocates on EM-CLUSTERER[646]: (MAKE-MODEL ((PRIMITIVE-PROCEDURE VECTOR-REF) PI J) ((PRIMITIVE-PROCEDURE VECTOR-REF) MU J) ((PRIMITIVE-PROCEDURE VECTOR-REF) SIGMA J) ((PRIMITIVE-PROCEDURE LOG) (# PI J)) (INVERT-MATRIX (# SIGMA J)) ((PRIMITIVE-PROCEDURE LOG) (DETERMINANT #))) The following expression, em-functional-partial-split-stalin.sc:899:27665, allocates on LOOP[641]: (LIST OLD-LOG-LIKELIHOOD MODELS) The following expression, em-functional-partial-split-stalin.sc:854:26290, allocates on [inside M-STEP 618]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) KK 0.) The following expression, em-functional-partial-split-stalin.sc:866:26557, allocates on EM-CLUSTERER[646]: (MAKE-MODEL ((PRIMITIVE-PROCEDURE /) ZJ-SUM II) MU SIGMA ((PRIMITIVE-PROCEDURE LOG) (# ZJ-SUM II)) (INVERT-MATRIX SIGMA) ((PRIMITIVE-PROCEDURE LOG) (DETERMINANT SIGMA))) The following expression, em-functional-partial-split-stalin.sc:837:25749, allocates on EM-CLUSTERER[646]: (LIST (REDUCE-VECTOR3 + S 0.) (MAP-VECTOR15 (LAMBDA # #) (M- Z #))) The following expression, em-functional-partial-split-stalin.sc:840:25859, allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (MATRIX-COLUMNS Z) S) The following expression, em-functional-partial-split-stalin.sc:708:21813, allocates on CLIP-EIGENVALUES[600]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-partial-split-stalin.sc:710:21870, allocates on [inside JACOBI 525]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-partial-split-stalin.sc:711:21891, allocates on [inside JACOBI 526]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N 0.) The following expression, em-functional-partial-split-stalin.sc:799:24606, allocates on CLIP-EIGENVALUES[600]: (LIST D (TRANSPOSE V)) The following expression, em-functional-partial-split-stalin.sc:590:18398, allocates on [inside OUTER-PRODUCT1 449]: (F UI VJ) The following expression, em-functional-partial-split-stalin.sc:564:17624, allocates on [inside M-STEP 619]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL) The following expression, em-functional-partial-split-stalin.sc:561:17523, allocates on [inside CLIP-EIGENVALUES 603]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL) The following expression, em-functional-partial-split-stalin.sc:558:17422, allocates on [inside JACOBI 524]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL) The following expression, em-functional-partial-split-stalin.sc:555:17321, allocates on EM-CLUSTERER[646]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL) The following expression, em-functional-partial-split-stalin.sc:552:17228, allocates on [inside INVERT-MATRIX 489]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-partial-split-stalin.sc:550:17152, allocates on [inside DETERMINANT 461]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-partial-split-stalin.sc:541:16915, allocates on LOOP[408]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (FIRST L) C) The following expression, em-functional-partial-split-stalin.sc:530:16636, allocates on [inside INITIAL-Z 635]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-partial-split-stalin.sc:522:16474, allocates on LOOP[641]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-partial-split-stalin.sc:514:16312, allocates on EM-CLUSTERER[646]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-partial-split-stalin.sc:506:16151, allocates on EM-CLUSTERER[646]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-partial-split-stalin.sc:498:15990, allocates on EM-CLUSTERER[646]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-partial-split-stalin.sc:490:15829, allocates on [inside M-STEP 619]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-partial-split-stalin.sc:482:15668, allocates on [inside CLIP-EIGENVALUES 603]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-partial-split-stalin.sc:474:15507, allocates on [inside JACOBI 524]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-partial-split-stalin.sc:466:15346, allocates on EM-CLUSTERER[646]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-partial-split-stalin.sc:458:15185, allocates on [inside INVERT-MATRIX 489]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-partial-split-stalin.sc:450:15024, allocates on [inside DETERMINANT 461]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-partial-split-stalin.sc:447:14954, allocates on LOOP[293]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C) The following expression, em-functional-partial-split-stalin.sc:442:14808, allocates on LOOP[288]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C) The following expression, em-functional-partial-split-stalin.sc:404:13781, allocates on LOOP[251]: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-partial-split-stalin.sc:383:13109, allocates on the stack: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-partial-split-stalin.sc:376:12885, allocates on the stack: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-partial-split-stalin.sc:362:12437, allocates on the stack: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-partial-split-stalin.sc:355:12221, allocates on LOOP[188]: (F C (FIRST L)) The following expression, em-functional-partial-split-stalin.sc:345:11898, allocates on [inside M-STEP 619]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-partial-split-stalin.sc:337:11636, allocates on [inside M-STEP 618]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-partial-split-stalin.sc:329:11374, allocates on [inside CLIP-EIGENVALUES 603]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-partial-split-stalin.sc:331:11455, allocates on [inside MAP-VECTOR-TWO6 173]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-partial-split-stalin.sc:321:11112, allocates on [inside E-STEP 606]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-partial-split-stalin.sc:313:10850, allocates on [inside M-STEP 619]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-partial-split-stalin.sc:305:10588, allocates on EM-CLUSTERER[646]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-partial-split-stalin.sc:307:10669, allocates on [inside MAP-VECTOR-TWO3 161]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-partial-split-stalin.sc:297:10326, allocates on [inside M-STEP 618]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-partial-split-stalin.sc:299:10407, allocates on [inside MAP-VECTOR-TWO2 157]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-partial-split-stalin.sc:289:10064, allocates on DOT[275]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-partial-split-stalin.sc:291:10145, allocates on [inside MAP-VECTOR-TWO1 153]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-partial-split-stalin.sc:282:9822, allocates on LOOP[641]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-partial-split-stalin.sc:275:9587, allocates on LOOP[641]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-partial-split-stalin.sc:268:9352, allocates on LOOP[641]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-partial-split-stalin.sc:261:9117, allocates on EM-CLUSTERER[646]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-partial-split-stalin.sc:254:8882, allocates on EM-CLUSTERER[646]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-partial-split-stalin.sc:247:8647, allocates on [inside E-STEP 605]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-partial-split-stalin.sc:240:8412, allocates on E-STEP[604]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-partial-split-stalin.sc:233:8177, allocates on E-STEP[604]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-partial-split-stalin.sc:226:7942, allocates on [inside JACOBI 521]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-partial-split-stalin.sc:219:7707, allocates on [inside JACOBI 521]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-partial-split-stalin.sc:212:7472, allocates on [inside M-STEP 619]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-partial-split-stalin.sc:205:7238, allocates on [inside M-STEP 619]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-partial-split-stalin.sc:198:7004, allocates on EM-CLUSTERER[646]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-partial-split-stalin.sc:191:6770, allocates on EM-CLUSTERER[646]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-partial-split-stalin.sc:184:6536, allocates on [inside M-STEP 622]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-partial-split-stalin.sc:177:6302, allocates on [inside M-STEP 622]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-partial-split-stalin.sc:170:6068, allocates on [inside E-STEP 611]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-partial-split-stalin.sc:163:5834, allocates on EM-CLUSTERER[646]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-partial-split-stalin.sc:156:5600, allocates on EM-CLUSTERER[646]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-partial-split-stalin.sc:104:4013, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) RANDOM:SIZE 1) 0) The following expression, em-functional-partial-split-stalin.sc:87:3190, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE QUOTIENT) RANDOM:CHUNK-SIZE 4) #\f) The following expression, em-functional-partial-split-stalin.sc:79:2949, allocates on RANDOM:SIZE-INT[26]: ((PRIMITIVE-PROCEDURE MAKE-STRING) L #\f) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W25590 is general case for the following reasons: flonum W22575 is general case for the following reasons: nondegenerate nonheaded vector W8333 is general case for the following reasons: flonum W8287 is general case for the following reasons: flonum W8285 is general case for the following reasons: flonum W8039 is general case for the following reasons: flonum W2031 is general case for the following reasons: flonum W1858 is general case for the following reasons: flonum W1616 is general case for the following reasons: flonum W1599 is general case for the following reasons: flonum W137 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 1% - Expanding macros 5 - 3% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 3 - 1% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 29 - 14% - Performing flow analysis 0 - 0% - Enumerating call sites 1 - 0% - Determining which types and type sets are used 20 - 9% - Determining which call sites to split 0 - 0% - Computing call graph 3 - 1% - Determining which environments are called more than once 1 - 0% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 21 - 10% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 1 - 1% - Determining which environments are recursive 5 - 2% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 93 - 43% - Performing lightweight closure conversion 0 - 0% - Determining parents 2 - 1% - Determining which expressions need conversion to CPS 1 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 1 - 1% - Determining which environments have external continuation calls 2 - 1% - Determining blocked environments 0 - 0% - Determining allocations 4 - 2% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 1 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 8 - 4% - Generating code 6 - 3% - Removing unused declarations 2 - 1% - Removing unused labels 1 - 1% - Writing database 0 - 0% - Compiling C code 216.74user 1.09system 3:48.47elapsed 95%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33766major+413413minor)pagefaults 0swaps run em-functional-partial-split 5.71user 0.55system 0:06.40elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (101major+20492minor)pagefaults 0swaps compile em-functional-split Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 21761 expressions 0 internal symbol types 0 external symbol types 66 primitive procedure types 191 non-called native procedure types 618 called noop native procedure types 1051 called non-noop native procedure types 1 foreign procedure type 2 continuation types 4 string types 29 structure types 78 headed vector types 1 nonheaded vector type 0 displaced vector types 25316 type sets 1011 hunoz variables 2399 non-hunoz variables 813 noop environments 2424 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 22373 expressions 0 internal symbol types 0 external symbol types 66 primitive procedure types 191 non-called native procedure types 625 called noop native procedure types 1076 called non-noop native procedure types 1 foreign procedure type 2 continuation types 4 string types 30 structure types 78 headed vector types 1 nonheaded vector type 0 displaced vector types 26014 type sets 1018 hunoz variables 2527 non-hunoz variables 820 noop environments 2500 non-noop environments 3 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 17 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 10207 expressions 0 internal symbol types 0 external symbol types 66 primitive procedure types 191 non-called native procedure types 625 called noop native procedure types 1076 called non-noop native procedure types 1 foreign procedure type 2 continuation types 4 string types 30 structure types 78 headed vector types 1 nonheaded vector type 0 displaced vector types 12642 type sets 718 hunoz variables 1621 non-hunoz variables 0 noop environments 1127 non-noop environments 3 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 17 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: WRITE2[2580] reentrant has the following parameters: OBJ{3152} local PORT{3153} local has the following in-lined locals: NUMBER{3141} PORT{3142} MANTISSA{3146} EXPONENT{3147} MANTISSA{3150} EXPONENT{3151} OBJ{3168} I{3180} DISPLAY-MANTISSA-EXPONENT2[2542] has the following parameters: MANTISSA{3125} local EXPONENT{3126} local PORT{3127} local has the following in-lined locals: FLOAT-DIGIT{3128} DIGIT{3129} MANTISSA{3136} FLOAT-DIGIT{3137} DIGIT{3138} MANTISSA{3140} DISPLAY-EXACT-INTEGER2[2513] has the following parameters: NUMBER{3104} local PORT{3105} local has the following in-lined locals: I{3108} NUMBER{3109} I{3112} I{3118} NUMBER{3119} I{3122} DISPLAY-STRING2[2504] has the following parameters: STRING{3097} local PORT{3098} local has the following in-lined locals: N{3099} I{3102} LOOP[1938] reentrant has the following parameter: K{2701} local LOOP[1873] reentrant has the following parameter: K{2647} local MODULO[1569] has the following parameters: N1{2289} local N2{2290} local has the following in-lined local: v{2291} REVERSE[1410] has the following parameter: S{2147} local has the following in-lined locals: LIST{3530} LIST{3533} R{3534} CDR[1256] has the following parameter: PAIR{2024} local M-STEP[1014] has the following parameters: X{1944} local Z{1945} local CLIP{1946} local has the following in-lined locals: X{1046} X{1051} Y{1052} N{1080} I{1083} N{1086} I{1089} N{1116} I{1119} N{1122} I{1125} N{1194} I{1197} N{1206} I{1209} N{1212} I{1215} N{1218} I{1221} N{1290} I{1293} N{1296} I{1299} N{1302} I{1305} N{1308} I{1311} N{1314} I{1317} N{1320} I{1323} N{1326} I{1329} N{1332} I{1335} N{1338} I{1341} V{1387} U{1388} I{1390} V{1392} U{1393} I{1395} V{1417} U{1418} I{1420} V{1422} U{1423} I{1425} V1{1485} V2{1486} U{1487} I{1489} V1{1497} V2{1498} U{1499} I{1501} V1{1503} V2{1504} U{1505} I{1507} V1{1509} V2{1510} U{1511} I{1513} V{1546} I{1547} N{1548} I{1551} C{1552} V{1554} I{1555} N{1556} I{1559} C{1560} V{1562} I{1563} N{1564} I{1567} C{1568} N{1578} I{1581} v{1582} N{1584} I{1587} v{1588} N{1590} N{1593} C{1594} N{1596} N{1599} C{1600} U{1608} N{1652} V{1653} I{1657} N{1660} V{1661} I{1665} N{1668} V{1669} I{1673} N{1684} V{1685} I{1689} M{1737} N{1738} INITIAL{1739} M{1741} N{1742} INITIAL{1743} M{1745} N{1746} INITIAL{1747} A{1766} B{1767} U{1776} V{1777} UI{1778} VJ{1779} V{1786} M{1790} A{1852} A{1854} N{1855} D{1856} V{1857} B{1858} Z{1859} IP{1863} I{1868} SM{1870} TRESH{1873} IP{1874} IR{1875} IQ{1876} G{1877} H{1878} T{1879} C{1880} H{1883} J{1891} THETA{1901} IP{1902} IP{1905} IR{1906} IQ{1907} I{1908} P{1909} K{1910} J{1914} P{1915} L{1917} J{1918} ROW{1920} X{1921} I{1922} J{1923} V{1924} M{1925} I{1927} A{1928} V{1929} J{1930} E{1931} II{1947} KK{1948} J{1949} ZJ{1950} ZJ-SUM{1951} MU{1952} SIGMA{1953} ZIJ{1954} XI{1955} X{2284} X{3410} X{3411} X{3412} X{3415} X{3416} X{3417} X{3418} X{3419} X{3420} X{3421} PAIR{3434} A{3439} I{3440} J{3441} X{3442} A{3443} I{3444} J{3445} X{3446} A{3447} I{3448} J{3449} X{3450} A{3487} I{3488} J{3489} X{3490} A{3491} I{3492} J{3493} X{3494} A{3495} I{3496} J{3497} X{3498} ZS{3499} ZS{3502} R{3503} ZS{3514} ZS{3517} R{3518} X{3524} XS{3525} R{3529} U{3536} M{3542} E-STEP[1006] has region has the following parameters: X{1932} local MODELS{1933} local has the following in-lined locals: X{1053} Y{1054} N{1074} I{1077} N{1128} I{1131} N{1134} I{1137} N{1140} I{1143} N{1146} I{1149} N{1152} I{1155} N{1200} I{1203} V{1382} U{1383} I{1385} V{1427} U{1428} I{1430} V{1432} U{1433} I{1435} V{1437} U{1438} I{1440} V{1442} U{1443} I{1445} V{1447} U{1448} I{1450} V1{1491} V2{1492} U{1493} I{1495} V{1530} I{1531} N{1532} I{1535} C{1536} V{1538} I{1539} N{1540} I{1543} C{1544} E1{1610} E2{1611} E-MAX{1612} E-MIN{1613} FACTOR{1614} A{1768} B{1769} A{1770} V{1771} U{1772} Z{1934} S{1935} ZI{1936} ZI{1937} XI{1938} MODEL{1939} LOG-DETERMINANT-SIGMA{1940} SIGMA-INVERSE{1941} MU{1942} LOG-PI{1943} ZS{2262} ZS{2265} R{2266} Z{2332} ROTATE[964] has the following parameters: A{1893} local I{1894} local J{1895} local K{1896} local L{1897} local has the following in-lined locals: A{1754} I{1755} J{1756} X{1757} H{1898} G{1899} A{3435} I{3436} J{3437} X{3438} INVERT-MATRIX[889] has the following parameter: A{1822} local has the following in-lined locals: N{1242} I{1245} N{1248} I{1251} N{1254} I{1257} N{1260} I{1263} N{1266} I{1269} N{1272} I{1275} N{1278} I{1281} N{1284} I{1287} N{1636} V{1637} I{1641} N{1644} V{1645} I{1649} M{1730} N{1731} M{1733} N{1734} INITIAL{1735} N{1824} C{1825} B{1826} I{1830} J{1831} I{1832} I{1833} D{1835} K{1837} D{1838} J{1839} J{1841} J{1845} E{1848} E{1850} A{3451} I{3452} J{3453} X{3454} A{3455} I{3456} J{3457} X{3458} A{3459} I{3460} J{3461} X{3462} A{3463} I{3464} J{3465} X{3466} A{3467} I{3468} J{3469} X{3470} A{3471} I{3472} J{3473} X{3474} DETERMINANT[860] has the following parameter: A{1793} local has the following in-lined locals: N{1224} I{1227} N{1230} I{1233} N{1236} I{1239} A{1344} B{1345} I{1348} A{1351} B{1352} I{1355} A{1358} B{1359} I{1362} A{1365} B{1366} I{1369} N{1628} V{1629} I{1633} M{1727} N{1728} N{1796} B{1797} D{1798} I{1801} J{1802} I{1803} INDEX{1804} GREATEST{1805} C{1809} J{1812} E{1813} K{1814} J{1815} J{1816} X{1817} V{1819} X{3413} X{3414} A{3475} I{3476} J{3477} X{3478} A{3479} I{3480} J{3481} X{3482} A{3483} I{3484} J{3485} X{3486} M*[856] has the following parameters: A{1787} local B{1788} local has the following in-lined locals: N{1092} I{1095} N{1098} I{1101} V{1397} U{1398} I{1400} V{1402} U{1403} I{1405} U{1781} V{1782} UI{1783} VJ{1784} TRANSPOSE[847] has the following parameter: A{1773} local has the following in-lined locals: N{1676} V{1677} I{1681} J{1774} MATRIX-ROW-SET![842] has the following parameters: A{1763} local I{1764} local V{1765} local MATRIX-COLUMN-REF[840] has the following parameters: A{1760} local J{1761} local has the following in-lined locals: N{1068} I{1071} V{1377} U{1378} I{1380} V{1762} MATRIX-ROW-REF[839] has the following parameters: A{1758} local I{1759} local MATRIX-REF[837] has the following parameters: A{1751} local I{1752} local J{1753} local MATRIX-COLUMNS[836] has the following parameter: A{1750} local MATRIX-ROWS[835] has the following parameter: A{1749} local V-[679] has the following parameters: U{1605} local V{1606} local has the following in-lined locals: N{1188} I{1191} V1{1479} V2{1480} U{1481} I{1483} Z{2272} ZS{2273} R{2277} V+[678] has the following parameters: U{1603} local V{1604} local has the following in-lined locals: N{1182} I{1185} V1{1473} V2{1474} U{1475} I{1477} ZS{3509} ZS{3512} R{3513} DOT[677] has region has the following parameters: U{1601} local V{1602} local has the following in-lined locals: N{1176} I{1179} V1{1467} V2{1468} U{1469} I{1471} V{1522} I{1523} N{1524} I{1527} C{1528} ZS{2267} ZS{2270} R{2271} ZS{3504} ZS{3507} R{3508} MAP-VECTOR9[508] has the following parameters: F{1411} local V{1412} local has the following in-lined locals: N{1110} I{1113} U{1413} I{1415} E{1792} E{3544} MAP-VECTOR8[504] has the following parameters: F{1406} local V{1407} local has the following in-lined locals: N{1104} I{1107} U{1408} I{1410} ROW{1791} ROW{3543} MAP-VECTOR1[476] has the following parameters: F{1371} local V{1372} local has the following in-lined locals: N{1062} I{1065} U{1373} I{1375} X{1609} X{3537} X{3540} RANDOM:CHUNK[38] has the following parameter: V{1032} local has the following in-lined locals: P{1033} ANS{1034} LOGICAL:ASH-4[25] has the following parameter: X{1022} local LOGICAL:LOGXOR[20] reentrant has the following parameters: N1{1020} local N2{1021} local HEX-STRING->NUMBER[15] has region has the following parameter: S{1015} local has the following in-lined locals: S{1018} C{1019} CHAR1{2374} CHAR2{2375} CHAR1{2379} CHAR2{2380} CHAR1{2383} CHAR2{2384} CHAR1{2388} CHAR2{2389} CHAR{2439} [inside top level 0] has the following in-lined locals: *RANDOM-STATE*{809} RANDOM:MASK{810} RANDOM:CHUNK-SIZE{811} *MOST-POSITIVE-FIXNUM*{818} I{1012} L{1023} TRIAL{1024} RANDOM-STRINGS{1025} NIBBLES{1027} I{1030} ILEN{1039} S{1040} SLOP{1041} N{1044} R{1045} X{1047} X{1048} X{1049} X{1050} X{1055} Y{1056} X{1057} X{1059} Y{1060} N{1158} I{1161} N{1164} I{1167} N{1170} I{1173} V{1452} U{1453} I{1455} V{1457} U{1458} I{1460} V{1462} U{1463} I{1465} L{1515} I{1516} L{1519} C{1520} V{1570} I{1571} N{1572} I{1575} C{1576} N{1616} I{1619} C{1620} N{1622} I{1625} C{1626} N{1692} V{1693} I{1697} N{1700} V{1701} I{1705} N{1708} V{1709} I{1713} L{1716} L{1719} C{1720} X{1721} L{1722} L{1725} I{1726} X{1956} PI{1957} MU{1958} SIGMA{1959} CLIP{1960} EM-KICK-OFF-TOLERANCE{1961} EM-CONVERGENCE-TOLERANCE{1962} JJ{1963} MODELS{1966} OLD-LOG-LIKELIHOOD{1967} STARTING?{1968} LOG-LIKELIHOOD-Z{1969} v{1970} v{1971} J{1972} EPSILON{1973} II{1974} JJ{1975} ZI{1977} X{1979} CLIP{1980} EM-KICK-OFF-TOLERANCE{1981} EM-CONVERGENCE-TOLERANCE{1982} EMS-CONVERGENCE-TOLERANCE{1983} JJ{1986} OLD-LOG-LIKELIHOOD-MODELS{1987} MODELS{1988} NEW-LOG-LIKELIHOOD-MODELS{1989} X{1990} CLIP{1991} EM-KICK-OFF-TOLERANCE{1992} EM-CONVERGENCE-TOLERANCE{1993} EMS-CONVERGENCE-TOLERANCE{1994} Z{1995} CLUSTERS{1996} J{1997} CLUSTER{1998} CLUSTER{1999} I{2000} ZI{2001} OBJ1{2004} OBJ2{2005} v{2006} v{2007} PAIR{2023} LIST{2142} LIST{2145} R{2146} X{2250} XS{2251} R{2255} STRING{2616} START{2617} END{2618} R{2619} K{2623} LIST1{2769} LIST1{2773} C{2774} OBJ{3395} PAIR{3422} PAIR{3423} PAIR{3424} PAIR{3425} PAIR{3426} PAIR{3427} PAIR{3428} PAIR{3429} PAIR{3430} PAIR{3431} PAIR{3432} PAIR{3433} ZS{3519} ZS{3522} R{3523} U{3539} The following non-trivial in-line native procedures will be generated: [clone [inside K*M 859] 3319] has the following parameter: E{3544} local [clone [inside K*M 858] 3318] has the following parameter: ROW{3543} local [clone K*M[857] 3317] has the following parameters: K{3541} global M{3542} local [clone [inside K*V 681] 3316] has the following parameter: X{3540} local [clone K*V[680] 3315] has the following parameters: K{3538} global U{3539} local [clone [inside K*V 681] 3314] has the following parameter: X{3537} local [clone K*V[680] 3313] has the following parameters: K{3535} global U{3536} local [clone LOOP[1408] 3311] has the following parameters: LIST{3533} local R{3534} local [clone LIST-REVERSE[1405] 3308] has the following parameter: LIST{3530} local [clone LOOP[1539] 3306] has the following parameter: R{3529} local [clone MAX[1536] 3303] has the following parameters: X{3524} local XS{3525} local [clone LOOP[1549] 3301] has the following parameters: ZS{3522} local R{3523} local [clone +[1546] 3298] has the following parameter: ZS{3519} local [clone LOOP[1549] 3296] has the following parameters: ZS{3517} local R{3518} local [clone +[1546] 3293] has the following parameter: ZS{3514} local [clone LOOP[1549] 3291] has the following parameters: ZS{3512} local R{3513} local [clone +[1546] 3288] has the following parameter: ZS{3509} local [clone LOOP[1549] 3286] has the following parameters: ZS{3507} local R{3508} local [clone +[1546] 3283] has the following parameter: ZS{3504} local [clone LOOP[1554] 3281] has the following parameters: ZS{3502} local R{3503} local [clone *[1551] 3278] has the following parameter: ZS{3499} local [clone MATRIX-SET![838] 3277] has the following parameters: A{3495} local I{3496} local J{3497} local X{3498} local [clone MATRIX-SET![838] 3276] has the following parameters: A{3491} local I{3492} local J{3493} local X{3494} local [clone MATRIX-SET![838] 3275] has the following parameters: A{3487} local I{3488} local J{3489} local X{3490} local [clone MATRIX-SET![838] 3274] has the following parameters: A{3483} local I{3484} local J{3485} local X{3486} local [clone MATRIX-SET![838] 3273] has the following parameters: A{3479} local I{3480} local J{3481} local X{3482} local [clone MATRIX-SET![838] 3272] has the following parameters: A{3475} local I{3476} local J{3477} local X{3478} local [clone MATRIX-SET![838] 3271] has the following parameters: A{3471} local I{3472} local J{3473} local X{3474} local [clone MATRIX-SET![838] 3270] has the following parameters: A{3467} local I{3468} local J{3469} local X{3470} local [clone MATRIX-SET![838] 3269] has the following parameters: A{3463} local I{3464} local J{3465} local X{3466} local [clone MATRIX-SET![838] 3268] has the following parameters: A{3459} local I{3460} local J{3461} local X{3462} local [clone MATRIX-SET![838] 3267] has the following parameters: A{3455} local I{3456} local J{3457} local X{3458} local [clone MATRIX-SET![838] 3266] has the following parameters: A{3451} local I{3452} local J{3453} local X{3454} local [clone MATRIX-SET![838] 3265] has the following parameters: A{3447} local I{3448} local J{3449} local X{3450} local [clone MATRIX-SET![838] 3264] has the following parameters: A{3443} local I{3444} local J{3445} local X{3446} local [clone MATRIX-SET![838] 3263] has the following parameters: A{3439} local I{3440} local J{3441} local X{3442} local [clone MATRIX-SET![838] 3262] has the following parameters: A{3435} local I{3436} local J{3437} local X{3438} local [clone CAR[1255] 3261] has the following parameter: PAIR{3434} local [clone CAR[1255] 3260] has the following parameter: PAIR{3433} local [clone CAR[1255] 3259] has the following parameter: PAIR{3432} local [clone CAR[1255] 3258] has the following parameter: PAIR{3431} local [clone CAR[1255] 3257] has the following parameter: PAIR{3430} local [clone CAR[1255] 3256] has the following parameter: PAIR{3429} local [clone CAR[1255] 3255] has the following parameter: PAIR{3428} local [clone CAR[1255] 3254] has the following parameter: PAIR{3427} local [clone CAR[1255] 3253] has the following parameter: PAIR{3426} local [clone CAR[1255] 3252] has the following parameter: PAIR{3425} local [clone CAR[1255] 3251] has the following parameter: PAIR{3424} local [clone CAR[1255] 3250] has the following parameter: PAIR{3423} local [clone CAR[1255] 3249] has the following parameter: PAIR{3422} local [clone ABS[1566] 3248] has the following parameter: X{3421} local [clone ABS[1566] 3247] has the following parameter: X{3420} local [clone ABS[1566] 3246] has the following parameter: X{3419} local [clone ABS[1566] 3245] has the following parameter: X{3418} local [clone ABS[1566] 3244] has the following parameter: X{3417} local [clone ABS[1566] 3243] has the following parameter: X{3416} local [clone ABS[1566] 3242] has the following parameter: X{3415} local [clone ABS[1566] 3241] has the following parameter: X{3414} local [clone ABS[1566] 3240] has the following parameter: X{3413} local [clone ABS[1566] 3239] has the following parameter: X{3412} local [clone ABS[1566] 3238] has the following parameter: X{3411} local [clone ABS[1566] 3237] has the following parameter: X{3410} local WRITE[2987] has the following parameter: OBJ{3395} local [inside LOOP 2628] reentrant [inside LOOP 2627] reentrant LOOP[2626] reentrant has the following parameter: I{3180} local [inside WRITE2 2623] reentrant [inside WRITE2 2622] reentrant [inside WRITE2 2620] reentrant [inside LOOP 2617] reentrant [inside LOOP 2616] reentrant [inside LOOP 2615] reentrant [inside LOOP 2613] reentrant LOOP[2612] reentrant has the following parameter: OBJ{3168} local [inside WRITE2 2609] reentrant [inside WRITE2 2608] reentrant LOOP[2577] has the following parameters: MANTISSA{3150} local EXPONENT{3151} local LOOP[2572] has the following parameters: MANTISSA{3146} local EXPONENT{3147} local DISPLAY-INEXACT-REAL2[2563] has the following parameters: NUMBER{3141} local PORT{3142} local [inside LOOP 2560] has the following parameter: MANTISSA{3140} local [inside LOOP 2557] has the following parameter: DIGIT{3138} local [inside LOOP 2556] has the following parameter: FLOAT-DIGIT{3137} local LOOP[2555] has the following parameter: MANTISSA{3136} local [inside DISPLAY-MANTISSA-EXPONENT2 2544] has the following parameter: DIGIT{3129} local [inside DISPLAY-MANTISSA-EXPONENT2 2543] has the following parameter: FLOAT-DIGIT{3128} local LOOP[2534] has the following parameter: I{3122} local LOOP[2531] has the following parameters: I{3118} local NUMBER{3119} local LOOP[2520] has the following parameter: I{3112} local LOOP[2517] has the following parameters: I{3108} local NUMBER{3109} local LOOP[2508] has the following parameter: I{3102} local [inside DISPLAY-STRING2 2505] has the following parameter: N{3099} local [inside top level 2500] has the following parameters: THE-CURRENT-OUTPUT-PORT{3058} global BUFFER{3060} global LOOP[2025] has region has the following parameters: LIST1{2773} local C{2774} local MAP[2021] has the following parameter: LIST1{2769} local VECTOR->LIST[1935] has the following parameter: VECTOR{2698} global [inside STRING->LIST 1870] has the following parameter: N{2644} global STRING->LIST[1869] has the following parameter: STRING{2643} global LOOP[1841] has the following parameter: K{2623} local [inside SUBSTRING 1837] has the following parameter: R{2619} local SUBSTRING[1836] has the following parameters: STRING{2616} local START{2617} local END{2618} local CHAR-NUMERIC?[1695] has the following parameter: CHAR{2439} local LOOP?[1660] has the following parameters: CHAR1{2388} local CHAR2{2389} local CHAR>=?[1657] has the following parameters: CHAR1{2383} local CHAR2{2384} local LOOP?[1654] has the following parameters: CHAR1{2379} local CHAR2{2380} local CHAR<=?[1651] has the following parameters: CHAR1{2374} local CHAR2{2375} local EXP[1615] has the following parameter: Z{2332} local [inside MODULO 1570] has the following parameter: v{2291} local ABS[1566] has the following parameter: X{2284} local LOOP[1559] has the following parameter: R{2277} local -[1556] has the following parameters: Z{2272} local ZS{2273} local LOOP[1554] has the following parameters: ZS{2270} local R{2271} local *[1551] has the following parameter: ZS{2267} local LOOP[1549] has the following parameters: ZS{2265} local R{2266} local +[1546] has the following parameter: ZS{2262} local LOOP[1539] has the following parameter: R{2255} local MAX[1536] has the following parameters: X{2250} local XS{2251} local LOOP[1408] has the following parameters: LIST{2145} local R{2146} local LIST-REVERSE[1405] has the following parameter: LIST{2142} local CAR[1255] has the following parameter: PAIR{2023} local [inside EQV? 1241] has the following parameter: v{2007} local [inside EQV? 1240] has the following parameter: v{2006} local EQV?[1239] has the following parameters: OBJ1{2004} local OBJ2{2005} local [inside EM-CLUSTERER 1056] has the following parameter: ZI{2001} local [inside EM-CLUSTERER 1055] has region has the following parameter: I{2000} local [inside EM-CLUSTERER 1054] has the following parameter: CLUSTER{1999} local [inside EM-CLUSTERER 1053] has the following parameter: CLUSTER{1998} local [inside EM-CLUSTERER 1052] has the following parameter: J{1997} local [inside EM-CLUSTERER 1050] has the following parameter: CLUSTERS{1996} local [inside EM-CLUSTERER 1049] has the following parameter: Z{1995} local EM-CLUSTERER[1048] has region has the following parameters: X{1990} local CLIP{1991} local EM-KICK-OFF-TOLERANCE{1992} local EM-CONVERGENCE-TOLERANCE{1993} local EMS-CONVERGENCE-TOLERANCE{1994} local [inside LOOP 1045] has the following parameter: NEW-LOG-LIKELIHOOD-MODELS{1989} local [inside LOOP 1044] has the following parameter: MODELS{1988} local LOOP[1043] has region has the following parameters: JJ{1986} local OLD-LOG-LIKELIHOOD-MODELS{1987} local EMS[1040] has region has the following parameters: X{1979} local CLIP{1980} local EM-KICK-OFF-TOLERANCE{1981} local EM-CONVERGENCE-TOLERANCE{1982} local EMS-CONVERGENCE-TOLERANCE{1983} local [inside INITIAL-Z 1038] has the following parameter: ZI{1977} local [inside INITIAL-Z 1037] has region INITIAL-Z[1036] has the following parameters: II{1974} local JJ{1975} local NOISE[1035] has the following parameter: EPSILON{1973} local [inside EM 1034] has the following parameter: J{1972} local [inside LOOP 1032] has the following parameter: v{1971} local [inside LOOP 1031] has the following parameter: v{1970} local [inside LOOP 1030] has the following parameter: LOG-LIKELIHOOD-Z{1969} local LOOP[1029] has the following parameters: MODELS{1966} local OLD-LOG-LIKELIHOOD{1967} local STARTING?{1968} local [inside EM 1026] has the following parameter: JJ{1963} local EM[1025] has the following parameters: X{1956} local PI{1957} local MU{1958} local SIGMA{1959} local CLIP{1960} local EM-KICK-OFF-TOLERANCE{1961} local EM-CONVERGENCE-TOLERANCE{1962} local [inside M-STEP 1024] has region has the following parameters: ZIJ{1954} local XI{1955} local [inside M-STEP 1022] has the following parameter: SIGMA{1953} local [inside M-STEP 1021] has region has the following parameter: MU{1952} local [inside M-STEP 1020] has region has the following parameter: ZJ-SUM{1951} local [inside M-STEP 1019] has the following parameter: ZJ{1950} local [inside M-STEP 1018] has the following parameter: J{1949} local [inside M-STEP 1016] has the following parameter: KK{1948} local [inside M-STEP 1015] has the following parameter: II{1947} local [inside E-STEP 1013] has region has the following parameters: LOG-DETERMINANT-SIGMA{1940} local SIGMA-INVERSE{1941} local MU{1942} local LOG-PI{1943} local [inside E-STEP 1012] has the following parameter: MODEL{1939} local [inside E-STEP 1011] has the following parameter: XI{1938} local [inside E-STEP 1010] has the following parameter: ZI{1937} local [inside E-STEP 1009] has the following parameter: ZI{1936} local [inside E-STEP 1008] has region has the following parameter: S{1935} local [inside E-STEP 1007] has region has the following parameter: Z{1934} local [inside CLIP-EIGENVALUES 1005] has region [inside CLIP-EIGENVALUES 1004] has the following parameter: E{1931} local [inside CLIP-EIGENVALUES 1003] has the following parameter: J{1930} local CLIP-EIGENVALUES[1002] has region has the following parameters: A{1928} local V{1929} local [inside VECTOR->DIAGONAL-MATRIX 1001] has the following parameter: I{1927} local [inside VECTOR->DIAGONAL-MATRIX 999] has the following parameter: M{1925} local VECTOR->DIAGONAL-MATRIX[998] has the following parameter: V{1924} local [inside JACOBI 996] has the following parameter: J{1923} local [inside JACOBI 995] has the following parameter: I{1922} local [inside JACOBI 994] has the following parameter: X{1921} local [inside JACOBI 993] has the following parameter: ROW{1920} local [inside JACOBI 988] has the following parameter: J{1918} local [inside JACOBI 987] has the following parameter: L{1917} local [inside JACOBI 984] has the following parameter: P{1915} local [inside JACOBI 983] has the following parameter: J{1914} local [inside JACOBI 979] has the following parameters: P{1909} local K{1910} local [inside JACOBI 978] has the following parameter: I{1908} local [inside LOOP 975] has the following parameter: IQ{1907} local [inside LOOP 974] has the following parameter: IR{1906} local [inside LOOP 973] has the following parameter: IP{1905} local [inside LOOP 970] has the following parameter: IP{1902} local [inside LOOP 968] has the following parameter: THETA{1901} local [inside ROTATE 965] has the following parameters: H{1898} local G{1899} local [inside LOOP 958] has the following parameter: J{1891} local [inside LOOP 954] has the following parameter: H{1883} local [inside LOOP 953] has the following parameter: TAU{1882} global [inside LOOP 952] has the following parameter: S{1881} global [inside LOOP 951] has the following parameter: C{1880} local [inside LOOP 950] has the following parameter: T{1879} local [inside LOOP 949] has the following parameter: H{1878} local [inside LOOP 945] has the following parameter: G{1877} local [inside LOOP 944] has the following parameter: IQ{1876} local [inside LOOP 943] has the following parameter: IR{1875} local [inside LOOP 942] has the following parameter: IP{1874} local [inside LOOP 941] has the following parameter: TRESH{1873} local [inside LOOP 938] has the following parameter: SM{1870} local LOOP[936] has the following parameter: I{1868} local [inside JACOBI 932] has the following parameter: IP{1863} local [inside JACOBI 929] has the following parameter: Z{1859} local [inside JACOBI 928] has region has the following parameter: B{1858} local [inside JACOBI 927] has region has the following parameter: V{1857} local [inside JACOBI 926] has region has the following parameter: D{1856} local [inside JACOBI 925] has the following parameter: N{1855} local [inside JACOBI 924] has the following parameter: A{1854} local [inside JACOBI 923] has region JACOBI[922] has the following parameter: A{1852} local [inside INVERT-MATRIX 917] has the following parameter: E{1850} local [inside INVERT-MATRIX 915] has the following parameter: E{1848} local [inside INVERT-MATRIX 912] has the following parameter: J{1845} local [inside INVERT-MATRIX 908] has the following parameter: J{1841} local [inside INVERT-MATRIX 905] has the following parameter: J{1839} local [inside INVERT-MATRIX 904] has the following parameter: D{1838} local [inside INVERT-MATRIX 903] has the following parameter: K{1837} local [inside INVERT-MATRIX 901] has the following parameter: D{1835} local [inside INVERT-MATRIX 899] has the following parameter: I{1833} local [inside INVERT-MATRIX 898] has the following parameter: I{1832} local [inside INVERT-MATRIX 897] has the following parameter: J{1831} local [inside INVERT-MATRIX 896] has the following parameter: I{1830} local [inside INVERT-MATRIX 893] has the following parameter: B{1826} local [inside INVERT-MATRIX 892] has the following parameter: C{1825} local [inside INVERT-MATRIX 891] has region has the following parameter: N{1824} local [inside DETERMINANT 885] has the following parameter: V{1819} local [inside DETERMINANT 880] has the following parameter: X{1817} local [inside DETERMINANT 879] has the following parameter: J{1816} local [inside DETERMINANT 878] has the following parameter: J{1815} local [inside DETERMINANT 877] has the following parameter: K{1814} local [inside DETERMINANT 876] has the following parameter: E{1813} local [inside DETERMINANT 875] has the following parameter: J{1812} local [inside DETERMINANT 873] has the following parameter: C{1809} local [inside DETERMINANT 871] has the following parameters: INDEX{1804} local GREATEST{1805} local [inside DETERMINANT 870] has the following parameter: I{1803} local [inside DETERMINANT 869] has the following parameter: J{1802} local [inside DETERMINANT 868] has the following parameter: I{1801} local [inside DETERMINANT 865] has the following parameter: D{1798} local [inside DETERMINANT 864] has the following parameter: B{1797} local [inside DETERMINANT 863] has region has the following parameter: N{1796} local [inside K*M 859] has the following parameter: E{1792} local [inside K*M 858] has the following parameter: ROW{1791} local K*M[857] has the following parameters: K{1789} global M{1790} local SELF-OUTER-PRODUCT[855] has the following parameter: V{1786} local [inside OUTER-PRODUCT2 854] has the following parameter: VJ{1784} local [inside OUTER-PRODUCT2 853] has the following parameter: UI{1783} local OUTER-PRODUCT2[852] has the following parameters: U{1781} local V{1782} local [inside OUTER-PRODUCT1 851] has region has the following parameter: VJ{1779} local [inside OUTER-PRODUCT1 850] has the following parameter: UI{1778} local OUTER-PRODUCT1[849] has the following parameters: U{1776} local V{1777} local [inside TRANSPOSE 848] has the following parameter: J{1774} local [inside M*V 846] has the following parameter: U{1772} local M*V[845] has the following parameters: A{1770} local V{1771} local M-[844] has the following parameters: A{1768} local B{1769} local M+[843] has the following parameters: A{1766} local B{1767} local [inside MATRIX-COLUMN-REF 841] has the following parameter: V{1762} local MATRIX-SET![838] has the following parameters: A{1754} local I{1755} local J{1756} local X{1757} local MAKE-MATRIX-INITIAL4[833] has the following parameters: M{1745} local N{1746} local INITIAL{1747} local MAKE-MATRIX-INITIAL3[831] has the following parameters: M{1741} local N{1742} local INITIAL{1743} local MAKE-MATRIX-INITIAL2[829] has the following parameters: M{1737} local N{1738} local INITIAL{1739} local MAKE-MATRIX-INITIAL1[827] has the following parameters: M{1733} local N{1734} local INITIAL{1735} local MAKE-MATRIX2[825] has the following parameters: M{1730} local N{1731} local MAKE-MATRIX1[823] has the following parameters: M{1727} local N{1728} local LOOP[818] has the following parameters: L{1725} local I{1726} local POSITIONV[815] has the following parameters: X{1721} local L{1722} local LOOP[810] has region has the following parameters: L{1719} local C{1720} local REMOVE-IF-NOT[807] has the following parameter: L{1716} local LOOP[802] has the following parameter: I{1713} local [inside MAP-N-VECTOR11 798] has the following parameter: V{1709} local MAP-N-VECTOR11[797] has the following parameter: N{1708} local LOOP[792] has the following parameter: I{1705} local [inside MAP-N-VECTOR10 788] has the following parameter: V{1701} local MAP-N-VECTOR10[787] has the following parameter: N{1700} local LOOP[782] has the following parameter: I{1697} local [inside MAP-N-VECTOR9 778] has the following parameter: V{1693} local MAP-N-VECTOR9[777] has the following parameter: N{1692} local LOOP[772] has the following parameter: I{1689} local [inside MAP-N-VECTOR8 768] has the following parameter: V{1685} local MAP-N-VECTOR8[767] has the following parameter: N{1684} local LOOP[762] has the following parameter: I{1681} local [inside MAP-N-VECTOR7 758] has the following parameter: V{1677} local MAP-N-VECTOR7[757] has the following parameter: N{1676} local LOOP[752] has the following parameter: I{1673} local [inside MAP-N-VECTOR6 748] has the following parameter: V{1669} local MAP-N-VECTOR6[747] has the following parameter: N{1668} local LOOP[742] has the following parameter: I{1665} local [inside MAP-N-VECTOR5 738] has the following parameter: V{1661} local MAP-N-VECTOR5[737] has the following parameter: N{1660} local LOOP[732] has the following parameter: I{1657} local [inside MAP-N-VECTOR4 728] has the following parameter: V{1653} local MAP-N-VECTOR4[727] has the following parameter: N{1652} local LOOP[722] has the following parameter: I{1649} local [inside MAP-N-VECTOR3 718] has the following parameter: V{1645} local MAP-N-VECTOR3[717] has the following parameter: N{1644} local LOOP[712] has the following parameter: I{1641} local [inside MAP-N-VECTOR2 708] has the following parameter: V{1637} local MAP-N-VECTOR2[707] has the following parameter: N{1636} local LOOP[702] has the following parameter: I{1633} local [inside MAP-N-VECTOR1 698] has the following parameter: V{1629} local MAP-N-VECTOR1[697] has the following parameter: N{1628} local LOOP[695] has region has the following parameters: I{1625} local C{1626} local MAP-N2[692] has the following parameter: N{1622} local LOOP[690] has region has the following parameters: I{1619} local C{1620} local MAP-N1[687] has the following parameter: N{1616} local [inside ADD-EXP 685] has the following parameter: FACTOR{1614} local [inside ADD-EXP 684] has the following parameter: E-MIN{1613} local [inside ADD-EXP 683] has the following parameter: E-MAX{1612} local ADD-EXP[682] has the following parameters: E1{1610} local E2{1611} local [inside K*V 681] has the following parameter: X{1609} local K*V[680] has the following parameters: K{1607} global U{1608} local LOOP[675] has the following parameters: N{1599} local C{1600} local SUM2[672] has the following parameter: N{1596} local LOOP[670] has the following parameters: N{1593} local C{1594} local SUM1[667] has the following parameter: N{1590} local [inside LOOP 665] has the following parameter: v{1588} local LOOP[664] has the following parameter: I{1587} local EVERY-N2[661] has the following parameter: N{1584} local [inside LOOP 659] has the following parameter: v{1582} local LOOP[658] has the following parameter: I{1581} local EVERY-N1[655] has the following parameter: N{1578} local LOOP[653] has region has the following parameters: I{1575} local C{1576} local [inside REDUCE-VECTOR7 647] has the following parameter: N{1572} local REDUCE-VECTOR7[646] has the following parameters: V{1570} local I{1571} local LOOP[644] has the following parameters: I{1567} local C{1568} local [inside REDUCE-VECTOR6 638] has the following parameter: N{1564} local REDUCE-VECTOR6[637] has the following parameters: V{1562} local I{1563} local LOOP[635] has the following parameters: I{1559} local C{1560} local [inside REDUCE-VECTOR5 629] has the following parameter: N{1556} local REDUCE-VECTOR5[628] has the following parameters: V{1554} local I{1555} local LOOP[626] has the following parameters: I{1551} local C{1552} local [inside REDUCE-VECTOR4 620] has the following parameter: N{1548} local REDUCE-VECTOR4[619] has the following parameters: V{1546} local I{1547} local LOOP[617] has the following parameters: I{1543} local C{1544} local [inside REDUCE-VECTOR3 611] has the following parameter: N{1540} local REDUCE-VECTOR3[610] has the following parameters: V{1538} local I{1539} local LOOP[608] has the following parameters: I{1535} local C{1536} local [inside REDUCE-VECTOR2 602] has the following parameter: N{1532} local REDUCE-VECTOR2[601] has the following parameters: V{1530} local I{1531} local LOOP[599] has the following parameters: I{1527} local C{1528} local [inside REDUCE-VECTOR1 593] has the following parameter: N{1524} local REDUCE-VECTOR1[592] has the following parameters: V{1522} local I{1523} local LOOP[590] has region has the following parameters: L{1519} local C{1520} local REDUCE[584] has the following parameters: L{1515} local I{1516} local [inside MAP-VECTOR-TWO8 583] has the following parameter: I{1513} local [inside MAP-VECTOR-TWO8 581] has the following parameter: U{1511} local MAP-VECTOR-TWO8[580] has the following parameters: V1{1509} local V2{1510} local [inside MAP-VECTOR-TWO7 579] has the following parameter: I{1507} local [inside MAP-VECTOR-TWO7 577] has the following parameter: U{1505} local MAP-VECTOR-TWO7[576] has the following parameters: V1{1503} local V2{1504} local [inside MAP-VECTOR-TWO6 575] has region has the following parameter: I{1501} local [inside MAP-VECTOR-TWO6 573] has the following parameter: U{1499} local MAP-VECTOR-TWO6[572] has the following parameters: V1{1497} local V2{1498} local [inside MAP-VECTOR-TWO5 571] has the following parameter: I{1495} local [inside MAP-VECTOR-TWO5 569] has the following parameter: U{1493} local MAP-VECTOR-TWO5[568] has the following parameters: V1{1491} local V2{1492} local [inside MAP-VECTOR-TWO4 567] has the following parameter: I{1489} local [inside MAP-VECTOR-TWO4 565] has the following parameter: U{1487} local MAP-VECTOR-TWO4[564] has the following parameters: V1{1485} local V2{1486} local [inside MAP-VECTOR-TWO3 563] has region has the following parameter: I{1483} local [inside MAP-VECTOR-TWO3 561] has the following parameter: U{1481} local MAP-VECTOR-TWO3[560] has the following parameters: V1{1479} local V2{1480} local [inside MAP-VECTOR-TWO2 559] has region has the following parameter: I{1477} local [inside MAP-VECTOR-TWO2 557] has the following parameter: U{1475} local MAP-VECTOR-TWO2[556] has the following parameters: V1{1473} local V2{1474} local [inside MAP-VECTOR-TWO1 555] has region has the following parameter: I{1471} local [inside MAP-VECTOR-TWO1 553] has the following parameter: U{1469} local MAP-VECTOR-TWO1[552] has the following parameters: V1{1467} local V2{1468} local [inside MAP-VECTOR19 551] has the following parameter: I{1465} local [inside MAP-VECTOR19 549] has the following parameter: U{1463} local MAP-VECTOR19[548] has the following parameter: V{1462} local [inside MAP-VECTOR18 547] has the following parameter: I{1460} local [inside MAP-VECTOR18 545] has the following parameter: U{1458} local MAP-VECTOR18[544] has the following parameter: V{1457} local [inside MAP-VECTOR17 543] has the following parameter: I{1455} local [inside MAP-VECTOR17 541] has the following parameter: U{1453} local MAP-VECTOR17[540] has the following parameter: V{1452} local [inside MAP-VECTOR16 539] has the following parameter: I{1450} local [inside MAP-VECTOR16 537] has the following parameter: U{1448} local MAP-VECTOR16[536] has the following parameter: V{1447} local [inside MAP-VECTOR15 535] has the following parameter: I{1445} local [inside MAP-VECTOR15 533] has the following parameter: U{1443} local MAP-VECTOR15[532] has the following parameter: V{1442} local [inside MAP-VECTOR14 531] has the following parameter: I{1440} local [inside MAP-VECTOR14 529] has the following parameter: U{1438} local MAP-VECTOR14[528] has the following parameter: V{1437} local [inside MAP-VECTOR13 527] has the following parameter: I{1435} local [inside MAP-VECTOR13 525] has the following parameter: U{1433} local MAP-VECTOR13[524] has the following parameter: V{1432} local [inside MAP-VECTOR12 523] has the following parameter: I{1430} local [inside MAP-VECTOR12 521] has the following parameter: U{1428} local MAP-VECTOR12[520] has the following parameter: V{1427} local [inside MAP-VECTOR11 519] has the following parameter: I{1425} local [inside MAP-VECTOR11 517] has the following parameter: U{1423} local MAP-VECTOR11[516] has the following parameter: V{1422} local [inside MAP-VECTOR10 515] has the following parameter: I{1420} local [inside MAP-VECTOR10 513] has the following parameter: U{1418} local MAP-VECTOR10[512] has the following parameter: V{1417} local [inside MAP-VECTOR9 511] has the following parameter: I{1415} local [inside MAP-VECTOR9 509] has the following parameter: U{1413} local [inside MAP-VECTOR8 507] has the following parameter: I{1410} local [inside MAP-VECTOR8 505] has the following parameter: U{1408} local [inside MAP-VECTOR7 503] has the following parameter: I{1405} local [inside MAP-VECTOR7 501] has the following parameter: U{1403} local MAP-VECTOR7[500] has the following parameter: V{1402} local [inside MAP-VECTOR6 499] has the following parameter: I{1400} local [inside MAP-VECTOR6 497] has the following parameter: U{1398} local MAP-VECTOR6[496] has the following parameter: V{1397} local [inside MAP-VECTOR5 495] has the following parameter: I{1395} local [inside MAP-VECTOR5 493] has the following parameter: U{1393} local MAP-VECTOR5[492] has the following parameter: V{1392} local [inside MAP-VECTOR4 491] has the following parameter: I{1390} local [inside MAP-VECTOR4 489] has the following parameter: U{1388} local MAP-VECTOR4[488] has the following parameter: V{1387} local [inside MAP-VECTOR3 487] has the following parameter: I{1385} local [inside MAP-VECTOR3 485] has the following parameter: U{1383} local MAP-VECTOR3[484] has the following parameter: V{1382} local [inside MAP-VECTOR2 483] has the following parameter: I{1380} local [inside MAP-VECTOR2 481] has the following parameter: U{1378} local MAP-VECTOR2[480] has the following parameter: V{1377} local [inside MAP-VECTOR1 479] has the following parameter: I{1375} local [inside MAP-VECTOR1 477] has the following parameter: U{1373} local LOOP[471] has the following parameter: I{1369} local FOR-EACH-FROM-A-UP-TO-B4[468] has the following parameters: A{1365} local B{1366} local LOOP[463] has the following parameter: I{1362} local FOR-EACH-FROM-A-UP-TO-B3[460] has the following parameters: A{1358} local B{1359} local LOOP[455] has the following parameter: I{1355} local FOR-EACH-FROM-A-UP-TO-B2[452] has the following parameters: A{1351} local B{1352} local LOOP[447] has the following parameter: I{1348} local FOR-EACH-FROM-A-UP-TO-B1[444] has the following parameters: A{1344} local B{1345} local LOOP[439] has the following parameter: I{1341} local FOR-EACH-N47[436] has the following parameter: N{1338} local LOOP[431] has the following parameter: I{1335} local FOR-EACH-N46[428] has the following parameter: N{1332} local LOOP[423] has the following parameter: I{1329} local FOR-EACH-N45[420] has the following parameter: N{1326} local LOOP[415] has the following parameter: I{1323} local FOR-EACH-N44[412] has the following parameter: N{1320} local LOOP[407] has the following parameter: I{1317} local FOR-EACH-N43[404] has the following parameter: N{1314} local LOOP[399] has the following parameter: I{1311} local FOR-EACH-N42[396] has the following parameter: N{1308} local LOOP[391] has the following parameter: I{1305} local FOR-EACH-N41[388] has the following parameter: N{1302} local LOOP[383] has the following parameter: I{1299} local FOR-EACH-N40[380] has the following parameter: N{1296} local LOOP[375] has the following parameter: I{1293} local FOR-EACH-N39[372] has the following parameter: N{1290} local LOOP[367] has the following parameter: I{1287} local FOR-EACH-N38[364] has the following parameter: N{1284} local LOOP[359] has the following parameter: I{1281} local FOR-EACH-N37[356] has the following parameter: N{1278} local LOOP[351] has the following parameter: I{1275} local FOR-EACH-N36[348] has the following parameter: N{1272} local LOOP[343] has the following parameter: I{1269} local FOR-EACH-N35[340] has the following parameter: N{1266} local LOOP[335] has the following parameter: I{1263} local FOR-EACH-N34[332] has the following parameter: N{1260} local LOOP[327] has the following parameter: I{1257} local FOR-EACH-N33[324] has the following parameter: N{1254} local LOOP[319] has the following parameter: I{1251} local FOR-EACH-N32[316] has the following parameter: N{1248} local LOOP[311] has the following parameter: I{1245} local FOR-EACH-N31[308] has the following parameter: N{1242} local LOOP[303] has the following parameter: I{1239} local FOR-EACH-N30[300] has the following parameter: N{1236} local LOOP[295] has the following parameter: I{1233} local FOR-EACH-N29[292] has the following parameter: N{1230} local LOOP[287] has the following parameter: I{1227} local FOR-EACH-N28[284] has the following parameter: N{1224} local LOOP[279] has the following parameter: I{1221} local FOR-EACH-N27[276] has the following parameter: N{1218} local LOOP[271] has the following parameter: I{1215} local FOR-EACH-N26[268] has the following parameter: N{1212} local LOOP[263] has the following parameter: I{1209} local FOR-EACH-N25[260] has the following parameter: N{1206} local LOOP[255] has the following parameter: I{1203} local FOR-EACH-N24[252] has the following parameter: N{1200} local LOOP[247] has the following parameter: I{1197} local FOR-EACH-N23[244] has the following parameter: N{1194} local LOOP[239] has the following parameter: I{1191} local FOR-EACH-N22[236] has the following parameter: N{1188} local LOOP[231] has the following parameter: I{1185} local FOR-EACH-N21[228] has the following parameter: N{1182} local LOOP[223] has the following parameter: I{1179} local FOR-EACH-N20[220] has the following parameter: N{1176} local LOOP[215] has the following parameter: I{1173} local FOR-EACH-N19[212] has the following parameter: N{1170} local LOOP[207] has the following parameter: I{1167} local FOR-EACH-N18[204] has the following parameter: N{1164} local LOOP[199] has the following parameter: I{1161} local FOR-EACH-N17[196] has the following parameter: N{1158} local LOOP[191] has the following parameter: I{1155} local FOR-EACH-N16[188] has the following parameter: N{1152} local LOOP[183] has the following parameter: I{1149} local FOR-EACH-N15[180] has the following parameter: N{1146} local LOOP[175] has the following parameter: I{1143} local FOR-EACH-N14[172] has the following parameter: N{1140} local LOOP[167] has the following parameter: I{1137} local FOR-EACH-N13[164] has the following parameter: N{1134} local LOOP[159] has the following parameter: I{1131} local FOR-EACH-N12[156] has the following parameter: N{1128} local LOOP[151] has the following parameter: I{1125} local FOR-EACH-N11[148] has the following parameter: N{1122} local LOOP[143] has the following parameter: I{1119} local FOR-EACH-N10[140] has the following parameter: N{1116} local LOOP[135] has the following parameter: I{1113} local FOR-EACH-N9[132] has the following parameter: N{1110} local LOOP[127] has the following parameter: I{1107} local FOR-EACH-N8[124] has the following parameter: N{1104} local LOOP[119] has the following parameter: I{1101} local FOR-EACH-N7[116] has the following parameter: N{1098} local LOOP[111] has the following parameter: I{1095} local FOR-EACH-N6[108] has the following parameter: N{1092} local LOOP[103] has the following parameter: I{1089} local FOR-EACH-N5[100] has the following parameter: N{1086} local LOOP[95] has the following parameter: I{1083} local FOR-EACH-N4[92] has the following parameter: N{1080} local LOOP[87] has the following parameter: I{1077} local FOR-EACH-N3[84] has the following parameter: N{1074} local LOOP[79] has the following parameter: I{1071} local FOR-EACH-N2[76] has the following parameter: N{1068} local LOOP[71] has the following parameter: I{1065} local FOR-EACH-N1[68] has the following parameter: N{1062} local LIST-TWO5[67] has the following parameters: X{1059} local Y{1060} local LIST-TWO4[66] has the following parameter: X{1057} local LIST-TWO3[65] has the following parameters: X{1055} local Y{1056} local LIST-TWO2[64] has the following parameters: X{1053} local Y{1054} local LIST-TWO1[63] has the following parameters: X{1051} local Y{1052} local SECOND5[62] has the following parameter: X{1050} local SECOND4[61] has the following parameter: X{1049} local SECOND3[60] has the following parameter: X{1048} local SECOND2[59] has the following parameter: X{1047} local SECOND1[58] has the following parameter: X{1046} local LOOP[51] has the following parameters: N{1044} local R{1045} local [inside loop 48] has the following parameter: SLOP{1041} local loop[46] has the following parameters: ILEN{1039} local S{1040} local [inside RANDOM:CHUNK 40] has the following parameter: ANS{1034} local [inside RANDOM:CHUNK 39] has the following parameter: P{1033} local loop[33] has region has the following parameter: I{1030} local [inside top level 30] has the following parameter: NIBBLES{1027} local [inside top level 28] has the following parameter: RANDOM-STRINGS{1025} local [inside RANDOM:SIZE-INT 27] has the following parameter: TRIAL{1024} local RANDOM:SIZE-INT[26] has region has the following parameter: L{1023} local [inside LOGICAL:LOGXOR 24] reentrant LOOP[18] has the following parameters: S{1018} local C{1019} local loop[8] has region has the following parameter: I{1012} local [inside top level 4] has the following parameters: MINUS-INFINITY{805} global LOG-MATH-PRECISION{806} global *RANDOM-STATE*{809} local RANDOM:MASK{810} local RANDOM:CHUNK-SIZE{811} local RANDOM:SIZE{813} global RANDOM:TAP{814} global LOGICAL:BOOLE-XOR{815} global *MOST-POSITIVE-FIXNUM*{818} local The following expression allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20) The following expression allocates on LOOP[2025]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC (# LIST1)) C) The following expression allocates on [inside EM-CLUSTERER 1055]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR-REF) VECTOR K) (LOOP (# K 1))) The following expression allocates on HEX-STRING->NUMBER[15]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRING-REF) STRING K) (LOOP (# K 1))) The following expression allocates on loop[33]: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START)) The following expression allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression, em-functional-split-stalin.sc:1044:31804, allocates on EM-CLUSTERER[1048]: (MAKE-MODEL ((PRIMITIVE-PROCEDURE VECTOR-REF) PI J) ((PRIMITIVE-PROCEDURE VECTOR-REF) MU J) ((PRIMITIVE-PROCEDURE VECTOR-REF) SIGMA J) ((PRIMITIVE-PROCEDURE LOG) (# PI J)) (INVERT-MATRIX (# SIGMA J)) ((PRIMITIVE-PROCEDURE LOG) (DETERMINANT #))) The following expression, em-functional-split-stalin.sc:1020:31215, allocates on [inside M-STEP 1020]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) KK 0.) The following expression, em-functional-split-stalin.sc:1032:31482, allocates on EM-CLUSTERER[1048]: (MAKE-MODEL ((PRIMITIVE-PROCEDURE /) ZJ-SUM II) MU SIGMA ((PRIMITIVE-PROCEDURE LOG) (# ZJ-SUM II)) (INVERT-MATRIX SIGMA) ((PRIMITIVE-PROCEDURE LOG) (DETERMINANT SIGMA))) The following expression, em-functional-split-stalin.sc:1006:30784, allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (MATRIX-COLUMNS Z) S) The following expression, em-functional-split-stalin.sc:873:26746, allocates on CLIP-EIGENVALUES[1002]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-split-stalin.sc:875:26803, allocates on [inside JACOBI 927]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-split-stalin.sc:876:26824, allocates on [inside JACOBI 928]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N 0.) The following expression, em-functional-split-stalin.sc:755:23295, allocates on [inside OUTER-PRODUCT1 851]: (F UI VJ) The following expression, em-functional-split-stalin.sc:729:22521, allocates on [inside M-STEP 1021]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL) The following expression, em-functional-split-stalin.sc:726:22420, allocates on [inside CLIP-EIGENVALUES 1005]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL) The following expression, em-functional-split-stalin.sc:723:22319, allocates on [inside JACOBI 926]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL) The following expression, em-functional-split-stalin.sc:720:22218, allocates on EM-CLUSTERER[1048]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL) The following expression, em-functional-split-stalin.sc:717:22125, allocates on [inside INVERT-MATRIX 891]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-split-stalin.sc:715:22049, allocates on [inside DETERMINANT 863]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-split-stalin.sc:706:21812, allocates on LOOP[810]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (FIRST L) C) The following expression, em-functional-split-stalin.sc:695:21533, allocates on [inside INITIAL-Z 1037]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-split-stalin.sc:687:21371, allocates on LOOP[1043]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-split-stalin.sc:679:21209, allocates on EM-CLUSTERER[1048]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-split-stalin.sc:671:21048, allocates on EM-CLUSTERER[1048]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-split-stalin.sc:663:20887, allocates on EM-CLUSTERER[1048]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-split-stalin.sc:655:20726, allocates on [inside M-STEP 1021]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-split-stalin.sc:647:20565, allocates on [inside CLIP-EIGENVALUES 1005]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-split-stalin.sc:639:20404, allocates on [inside JACOBI 926]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-split-stalin.sc:631:20243, allocates on EM-CLUSTERER[1048]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-split-stalin.sc:623:20082, allocates on [inside INVERT-MATRIX 891]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-split-stalin.sc:615:19921, allocates on [inside DETERMINANT 863]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-split-stalin.sc:612:19851, allocates on LOOP[695]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C) The following expression, em-functional-split-stalin.sc:607:19705, allocates on LOOP[690]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C) The following expression, em-functional-split-stalin.sc:569:18678, allocates on LOOP[653]: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-split-stalin.sc:548:18006, allocates on the stack: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-split-stalin.sc:541:17782, allocates on the stack: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-split-stalin.sc:527:17334, allocates on the stack: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-split-stalin.sc:520:17118, allocates on LOOP[590]: (F C (FIRST L)) The following expression, em-functional-split-stalin.sc:510:16793, allocates on [inside M-STEP 1021]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-split-stalin.sc:502:16529, allocates on [inside M-STEP 1020]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-split-stalin.sc:494:16265, allocates on [inside CLIP-EIGENVALUES 1005]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-split-stalin.sc:496:16348, allocates on [inside MAP-VECTOR-TWO6 575]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-split-stalin.sc:486:16001, allocates on [inside E-STEP 1008]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-split-stalin.sc:478:15737, allocates on [inside M-STEP 1021]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-split-stalin.sc:470:15473, allocates on EM-CLUSTERER[1048]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-split-stalin.sc:472:15556, allocates on [inside MAP-VECTOR-TWO3 563]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-split-stalin.sc:462:15209, allocates on [inside M-STEP 1020]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-split-stalin.sc:464:15292, allocates on [inside MAP-VECTOR-TWO2 559]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-split-stalin.sc:454:14945, allocates on DOT[677]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-split-stalin.sc:456:15028, allocates on [inside MAP-VECTOR-TWO1 555]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-split-stalin.sc:447:14706, allocates on LOOP[1043]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-split-stalin.sc:440:14474, allocates on LOOP[1043]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-split-stalin.sc:433:14242, allocates on LOOP[1043]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-split-stalin.sc:426:14010, allocates on EM-CLUSTERER[1048]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-split-stalin.sc:419:13778, allocates on EM-CLUSTERER[1048]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-split-stalin.sc:412:13546, allocates on [inside E-STEP 1007]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-split-stalin.sc:405:13314, allocates on E-STEP[1006]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-split-stalin.sc:398:13082, allocates on E-STEP[1006]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-split-stalin.sc:391:12850, allocates on [inside JACOBI 923]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-split-stalin.sc:384:12618, allocates on [inside JACOBI 923]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-split-stalin.sc:377:12381, allocates on [inside M-STEP 1021]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-split-stalin.sc:370:12145, allocates on [inside M-STEP 1021]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-split-stalin.sc:363:11909, allocates on EM-CLUSTERER[1048]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-split-stalin.sc:356:11673, allocates on EM-CLUSTERER[1048]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-split-stalin.sc:349:11437, allocates on [inside M-STEP 1024]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-split-stalin.sc:342:11201, allocates on [inside M-STEP 1024]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-split-stalin.sc:335:10965, allocates on [inside E-STEP 1013]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-split-stalin.sc:328:10729, allocates on EM-CLUSTERER[1048]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-split-stalin.sc:321:10493, allocates on EM-CLUSTERER[1048]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-split-stalin.sc:164:5680, allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '())) The following expression, em-functional-split-stalin.sc:164:5688, allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '()) The following expression, em-functional-split-stalin.sc:162:5632, allocates on EMS[1040]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '())) The following expression, em-functional-split-stalin.sc:162:5640, allocates on EMS[1040]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '()) The following expression, em-functional-split-stalin.sc:160:5584, allocates on LOOP[1043]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '())) The following expression, em-functional-split-stalin.sc:160:5592, allocates on LOOP[1043]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '()) The following expression, em-functional-split-stalin.sc:158:5536, allocates on EM-CLUSTERER[1048]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '())) The following expression, em-functional-split-stalin.sc:158:5544, allocates on EM-CLUSTERER[1048]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '()) The following expression, em-functional-split-stalin.sc:156:5488, allocates on CLIP-EIGENVALUES[1002]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '())) The following expression, em-functional-split-stalin.sc:156:5496, allocates on CLIP-EIGENVALUES[1002]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '()) The following expression, em-functional-split-stalin.sc:104:4013, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) RANDOM:SIZE 1) 0) The following expression, em-functional-split-stalin.sc:87:3190, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE QUOTIENT) RANDOM:CHUNK-SIZE 4) #\f) The following expression, em-functional-split-stalin.sc:79:2949, allocates on RANDOM:SIZE-INT[26]: ((PRIMITIVE-PROCEDURE MAKE-STRING) L #\f) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W22458 is general case for the following reasons: nondegenerate nonheaded vector W6841 is general case for the following reasons: flonum W6795 is general case for the following reasons: flonum W6793 is general case for the following reasons: flonum W6547 is general case for the following reasons: flonum W43 is general case for the following reasons: flonum W7 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 3 - 1% - Expanding macros 7 - 3% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 3 - 1% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 31 - 13% - Performing flow analysis 0 - 0% - Enumerating call sites 1 - 0% - Determining which types and type sets are used 57 - 24% - Determining which call sites to split 0 - 0% - Computing call graph 3 - 1% - Determining which environments are called more than once 1 - 0% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 18 - 7% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 2 - 1% - Determining which environments are recursive 5 - 2% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 81 - 34% - Performing lightweight closure conversion 0 - 0% - Determining parents 2 - 1% - Determining which expressions need conversion to CPS 1 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 1 - 1% - Determining which environments have external continuation calls 2 - 1% - Determining blocked environments 0 - 0% - Determining allocations 4 - 2% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 1 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 7 - 3% - Generating code 6 - 3% - Removing unused declarations 1 - 0% - Removing unused labels 1 - 1% - Writing database 0 - 0% - Compiling C code 243.54user 0.92system 4:16.01elapsed 95%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33719major+434353minor)pagefaults 0swaps run em-functional-split 4.88user 0.43system 0:05.41elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (99major+17676minor)pagefaults 0swaps compile em-functional-do-split Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 21184 expressions 0 internal symbol types 0 external symbol types 66 primitive procedure types 191 non-called native procedure types 567 called noop native procedure types 943 called non-noop native procedure types 1 foreign procedure type 2 continuation types 4 string types 29 structure types 78 headed vector types 1 nonheaded vector type 0 displaced vector types 24480 type sets 960 hunoz variables 2191 non-hunoz variables 762 noop environments 2316 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 21796 expressions 0 internal symbol types 0 external symbol types 66 primitive procedure types 191 non-called native procedure types 574 called noop native procedure types 968 called non-noop native procedure types 1 foreign procedure type 2 continuation types 4 string types 30 structure types 78 headed vector types 1 nonheaded vector type 0 displaced vector types 25178 type sets 967 hunoz variables 2319 non-hunoz variables 769 noop environments 2392 non-noop environments 3 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 17 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 9630 expressions 0 internal symbol types 0 external symbol types 66 primitive procedure types 191 non-called native procedure types 574 called noop native procedure types 968 called non-noop native procedure types 1 foreign procedure type 2 continuation types 4 string types 30 structure types 78 headed vector types 1 nonheaded vector type 0 displaced vector types 11806 type sets 667 hunoz variables 1413 non-hunoz variables 0 noop environments 1019 non-noop environments 3 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 17 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: WRITE2[2421] reentrant has the following parameters: OBJ{2893} local PORT{2894} local has the following in-lined locals: NUMBER{2882} PORT{2883} MANTISSA{2887} EXPONENT{2888} MANTISSA{2891} EXPONENT{2892} OBJ{2909} I{2921} DISPLAY-MANTISSA-EXPONENT2[2383] has the following parameters: MANTISSA{2866} local EXPONENT{2867} local PORT{2868} local has the following in-lined locals: FLOAT-DIGIT{2869} DIGIT{2870} MANTISSA{2877} FLOAT-DIGIT{2878} DIGIT{2879} MANTISSA{2881} DISPLAY-EXACT-INTEGER2[2354] has the following parameters: NUMBER{2845} local PORT{2846} local has the following in-lined locals: I{2849} NUMBER{2850} I{2853} I{2859} NUMBER{2860} I{2863} DISPLAY-STRING2[2345] has the following parameters: STRING{2838} local PORT{2839} local has the following in-lined locals: N{2840} I{2843} LOOP[1779] reentrant has the following parameter: K{2442} local LOOP[1714] reentrant has the following parameter: K{2388} local MODULO[1410] has the following parameters: N1{2030} local N2{2031} local has the following in-lined local: v{2032} REVERSE[1251] has the following parameter: S{1888} local has the following in-lined locals: LIST{3271} LIST{3274} R{3275} CDR[1097] has the following parameter: PAIR{1765} local M-STEP[906] has the following parameters: X{1685} local Z{1686} local CLIP{1687} local has the following in-lined locals: X{944} X{949} Y{950} V{984} U{985} I{989} V{992} U{993} I{997} V{1032} U{1033} I{1037} V{1040} U{1041} I{1045} V1{1139} V2{1140} U{1141} I{1145} V1{1157} V2{1158} U{1159} I{1163} V1{1166} V2{1167} U{1168} I{1172} V1{1175} V2{1176} U{1177} I{1181} V{1215} I{1216} N{1217} I{1220} C{1221} V{1223} I{1224} N{1225} I{1228} C{1229} V{1231} I{1232} N{1233} I{1236} C{1237} N{1247} I{1250} v{1251} N{1253} I{1256} v{1257} N{1259} N{1262} C{1263} N{1265} N{1268} C{1269} U{1277} N{1321} V{1322} I{1326} N{1329} V{1330} I{1334} N{1337} V{1338} I{1342} N{1353} V{1354} I{1358} M{1406} N{1407} INITIAL{1408} M{1410} N{1411} INITIAL{1412} M{1414} N{1415} INITIAL{1416} A{1435} B{1436} U{1445} V{1446} UI{1447} VJ{1448} V{1455} M{1459} A{1566} A{1568} N{1569} D{1570} V{1571} B{1572} Z{1573} IP{1579} I{1585} SM{1587} TRESH{1590} IP{1593} IR{1597} IQ{1599} G{1600} H{1601} T{1602} C{1603} H{1606} J{1616} THETA{1627} IP{1630} IP{1634} IR{1635} IQ{1636} I{1639} P{1641} K{1642} J{1648} P{1650} L{1654} J{1656} ROW{1658} X{1659} I{1660} J{1661} V{1662} M{1663} I{1667} A{1669} V{1670} J{1671} E{1672} II{1688} KK{1689} J{1690} ZJ{1691} ZJ-SUM{1692} MU{1693} SIGMA{1694} ZIJ{1695} XI{1696} X{2025} X{3151} X{3152} X{3153} X{3156} X{3157} X{3158} X{3159} X{3160} X{3161} X{3162} PAIR{3175} A{3180} I{3181} J{3182} X{3183} A{3184} I{3185} J{3186} X{3187} A{3188} I{3189} J{3190} X{3191} A{3228} I{3229} J{3230} X{3231} A{3232} I{3233} J{3234} X{3235} A{3236} I{3237} J{3238} X{3239} ZS{3240} ZS{3243} R{3244} ZS{3255} ZS{3258} R{3259} X{3265} XS{3266} R{3270} U{3277} M{3283} E-STEP[898] has region has the following parameters: X{1673} local MODELS{1674} local has the following in-lined locals: X{951} Y{952} V{976} U{977} I{981} V{1048} U{1049} I{1053} V{1056} U{1057} I{1061} V{1064} U{1065} I{1069} V{1072} U{1073} I{1077} V{1080} U{1081} I{1085} V1{1148} V2{1149} U{1150} I{1154} V{1199} I{1200} N{1201} I{1204} C{1205} V{1207} I{1208} N{1209} I{1212} C{1213} E1{1279} E2{1280} E-MAX{1281} E-MIN{1282} FACTOR{1283} A{1437} B{1438} A{1439} V{1440} U{1441} Z{1675} S{1676} ZI{1677} ZI{1678} XI{1679} MODEL{1680} LOG-DETERMINANT-SIGMA{1681} SIGMA-INVERSE{1682} MU{1683} LOG-PI{1684} ZS{2003} ZS{2006} R{2007} Z{2073} ROTATE[825] has the following parameters: A{1619} local I{1620} local J{1621} local K{1622} local L{1623} local has the following in-lined locals: A{1423} I{1424} J{1425} X{1426} H{1624} G{1625} A{3176} I{3177} J{3178} X{3179} INVERT-MATRIX[685] has the following parameter: A{1512} local has the following in-lined locals: N{1305} V{1306} I{1310} N{1313} V{1314} I{1318} M{1399} N{1400} M{1402} N{1403} INITIAL{1404} N{1514} C{1515} B{1516} I{1522} J{1526} I{1530} I{1534} J{1541} E{1545} E{1547} D{1549} K{1553} D{1555} J{1558} J{1563} A{3192} I{3193} J{3194} X{3195} A{3196} I{3197} J{3198} X{3199} A{3200} I{3201} J{3202} X{3203} A{3204} I{3205} J{3206} X{3207} A{3208} I{3209} J{3210} X{3211} A{3212} I{3213} J{3214} X{3215} DETERMINANT[614] has the following parameter: A{1462} local has the following in-lined locals: N{1297} V{1298} I{1302} M{1396} N{1397} N{1465} B{1466} D{1467} I{1472} J{1476} I{1480} INDEX{1482} GREATEST{1483} C{1487} J{1492} E{1494} K{1497} J{1501} J{1505} X{1507} V{1509} X{3154} X{3155} A{3216} I{3217} J{3218} X{3219} A{3220} I{3221} J{3222} X{3223} A{3224} I{3225} J{3226} X{3227} M*[610] has the following parameters: A{1456} local B{1457} local has the following in-lined locals: V{1000} U{1001} I{1005} V{1008} U{1009} I{1013} U{1450} V{1451} UI{1452} VJ{1453} TRANSPOSE[601] has the following parameter: A{1442} local has the following in-lined locals: N{1345} V{1346} I{1350} J{1443} MATRIX-ROW-SET![596] has the following parameters: A{1432} local I{1433} local V{1434} local MATRIX-COLUMN-REF[594] has the following parameters: A{1429} local J{1430} local has the following in-lined locals: V{968} U{969} I{973} V{1431} MATRIX-ROW-REF[593] has the following parameters: A{1427} local I{1428} local MATRIX-REF[591] has the following parameters: A{1420} local I{1421} local J{1422} local MATRIX-COLUMNS[590] has the following parameter: A{1419} local MATRIX-ROWS[589] has the following parameter: A{1418} local V-[433] has the following parameters: U{1274} local V{1275} local has the following in-lined locals: V1{1130} V2{1131} U{1132} I{1136} Z{2013} ZS{2014} R{2018} V+[432] has the following parameters: U{1272} local V{1273} local has the following in-lined locals: V1{1121} V2{1122} U{1123} I{1127} ZS{3250} ZS{3253} R{3254} DOT[431] has region has the following parameters: U{1270} local V{1271} local has the following in-lined locals: V1{1112} V2{1113} U{1114} I{1118} V{1191} I{1192} N{1193} I{1196} C{1197} ZS{2008} ZS{2011} R{2012} ZS{3245} ZS{3248} R{3249} MAP-VECTOR9[148] has the following parameters: F{1023} local V{1024} local has the following in-lined locals: U{1025} I{1029} E{1461} E{3285} MAP-VECTOR8[138] has the following parameters: F{1015} local V{1016} local has the following in-lined locals: U{1017} I{1021} ROW{1460} ROW{3284} MAP-VECTOR1[68] has the following parameters: F{959} local V{960} local has the following in-lined locals: U{961} I{965} X{1278} X{3278} X{3281} RANDOM:CHUNK[38] has the following parameter: V{930} local has the following in-lined locals: P{931} ANS{932} LOGICAL:ASH-4[25] has the following parameter: X{920} local LOGICAL:LOGXOR[20] reentrant has the following parameters: N1{918} local N2{919} local HEX-STRING->NUMBER[15] has region has the following parameter: S{913} local has the following in-lined locals: S{916} C{917} CHAR1{2115} CHAR2{2116} CHAR1{2120} CHAR2{2121} CHAR1{2124} CHAR2{2125} CHAR1{2129} CHAR2{2130} CHAR{2180} [inside top level 0] has the following in-lined locals: *RANDOM-STATE*{758} RANDOM:MASK{759} RANDOM:CHUNK-SIZE{760} *MOST-POSITIVE-FIXNUM*{767} I{910} L{921} TRIAL{922} RANDOM-STRINGS{923} NIBBLES{925} I{928} ILEN{937} S{938} SLOP{939} N{942} R{943} X{945} X{946} X{947} X{948} X{953} Y{954} X{955} X{957} Y{958} V{1088} U{1089} I{1093} V{1096} U{1097} I{1101} V{1104} U{1105} I{1109} L{1184} I{1185} L{1188} C{1189} V{1239} I{1240} N{1241} I{1244} C{1245} N{1285} I{1288} C{1289} N{1291} I{1294} C{1295} N{1361} V{1362} I{1366} N{1369} V{1370} I{1374} N{1377} V{1378} I{1382} L{1385} L{1388} C{1389} X{1390} L{1391} L{1394} I{1395} X{1697} PI{1698} MU{1699} SIGMA{1700} CLIP{1701} EM-KICK-OFF-TOLERANCE{1702} EM-CONVERGENCE-TOLERANCE{1703} JJ{1704} MODELS{1707} OLD-LOG-LIKELIHOOD{1708} STARTING?{1709} LOG-LIKELIHOOD-Z{1710} v{1711} v{1712} J{1713} EPSILON{1714} II{1715} JJ{1716} ZI{1718} X{1720} CLIP{1721} EM-KICK-OFF-TOLERANCE{1722} EM-CONVERGENCE-TOLERANCE{1723} EMS-CONVERGENCE-TOLERANCE{1724} JJ{1727} OLD-LOG-LIKELIHOOD-MODELS{1728} MODELS{1729} NEW-LOG-LIKELIHOOD-MODELS{1730} X{1731} CLIP{1732} EM-KICK-OFF-TOLERANCE{1733} EM-CONVERGENCE-TOLERANCE{1734} EMS-CONVERGENCE-TOLERANCE{1735} Z{1736} CLUSTERS{1737} J{1738} CLUSTER{1739} CLUSTER{1740} I{1741} ZI{1742} OBJ1{1745} OBJ2{1746} v{1747} v{1748} PAIR{1764} LIST{1883} LIST{1886} R{1887} X{1991} XS{1992} R{1996} STRING{2357} START{2358} END{2359} R{2360} K{2364} LIST1{2510} LIST1{2514} C{2515} OBJ{3136} PAIR{3163} PAIR{3164} PAIR{3165} PAIR{3166} PAIR{3167} PAIR{3168} PAIR{3169} PAIR{3170} PAIR{3171} PAIR{3172} PAIR{3173} PAIR{3174} ZS{3260} ZS{3263} R{3264} U{3280} The following non-trivial in-line native procedures will be generated: [clone [inside K*M 613] 3160] has the following parameter: E{3285} local [clone [inside K*M 612] 3159] has the following parameter: ROW{3284} local [clone K*M[611] 3158] has the following parameters: K{3282} global M{3283} local [clone [inside K*V 435] 3157] has the following parameter: X{3281} local [clone K*V[434] 3156] has the following parameters: K{3279} global U{3280} local [clone [inside K*V 435] 3155] has the following parameter: X{3278} local [clone K*V[434] 3154] has the following parameters: K{3276} global U{3277} local [clone LOOP[1249] 3152] has the following parameters: LIST{3274} local R{3275} local [clone LIST-REVERSE[1246] 3149] has the following parameter: LIST{3271} local [clone LOOP[1380] 3147] has the following parameter: R{3270} local [clone MAX[1377] 3144] has the following parameters: X{3265} local XS{3266} local [clone LOOP[1390] 3142] has the following parameters: ZS{3263} local R{3264} local [clone +[1387] 3139] has the following parameter: ZS{3260} local [clone LOOP[1390] 3137] has the following parameters: ZS{3258} local R{3259} local [clone +[1387] 3134] has the following parameter: ZS{3255} local [clone LOOP[1390] 3132] has the following parameters: ZS{3253} local R{3254} local [clone +[1387] 3129] has the following parameter: ZS{3250} local [clone LOOP[1390] 3127] has the following parameters: ZS{3248} local R{3249} local [clone +[1387] 3124] has the following parameter: ZS{3245} local [clone LOOP[1395] 3122] has the following parameters: ZS{3243} local R{3244} local [clone *[1392] 3119] has the following parameter: ZS{3240} local [clone MATRIX-SET![592] 3118] has the following parameters: A{3236} local I{3237} local J{3238} local X{3239} local [clone MATRIX-SET![592] 3117] has the following parameters: A{3232} local I{3233} local J{3234} local X{3235} local [clone MATRIX-SET![592] 3116] has the following parameters: A{3228} local I{3229} local J{3230} local X{3231} local [clone MATRIX-SET![592] 3115] has the following parameters: A{3224} local I{3225} local J{3226} local X{3227} local [clone MATRIX-SET![592] 3114] has the following parameters: A{3220} local I{3221} local J{3222} local X{3223} local [clone MATRIX-SET![592] 3113] has the following parameters: A{3216} local I{3217} local J{3218} local X{3219} local [clone MATRIX-SET![592] 3112] has the following parameters: A{3212} local I{3213} local J{3214} local X{3215} local [clone MATRIX-SET![592] 3111] has the following parameters: A{3208} local I{3209} local J{3210} local X{3211} local [clone MATRIX-SET![592] 3110] has the following parameters: A{3204} local I{3205} local J{3206} local X{3207} local [clone MATRIX-SET![592] 3109] has the following parameters: A{3200} local I{3201} local J{3202} local X{3203} local [clone MATRIX-SET![592] 3108] has the following parameters: A{3196} local I{3197} local J{3198} local X{3199} local [clone MATRIX-SET![592] 3107] has the following parameters: A{3192} local I{3193} local J{3194} local X{3195} local [clone MATRIX-SET![592] 3106] has the following parameters: A{3188} local I{3189} local J{3190} local X{3191} local [clone MATRIX-SET![592] 3105] has the following parameters: A{3184} local I{3185} local J{3186} local X{3187} local [clone MATRIX-SET![592] 3104] has the following parameters: A{3180} local I{3181} local J{3182} local X{3183} local [clone MATRIX-SET![592] 3103] has the following parameters: A{3176} local I{3177} local J{3178} local X{3179} local [clone CAR[1096] 3102] has the following parameter: PAIR{3175} local [clone CAR[1096] 3101] has the following parameter: PAIR{3174} local [clone CAR[1096] 3100] has the following parameter: PAIR{3173} local [clone CAR[1096] 3099] has the following parameter: PAIR{3172} local [clone CAR[1096] 3098] has the following parameter: PAIR{3171} local [clone CAR[1096] 3097] has the following parameter: PAIR{3170} local [clone CAR[1096] 3096] has the following parameter: PAIR{3169} local [clone CAR[1096] 3095] has the following parameter: PAIR{3168} local [clone CAR[1096] 3094] has the following parameter: PAIR{3167} local [clone CAR[1096] 3093] has the following parameter: PAIR{3166} local [clone CAR[1096] 3092] has the following parameter: PAIR{3165} local [clone CAR[1096] 3091] has the following parameter: PAIR{3164} local [clone CAR[1096] 3090] has the following parameter: PAIR{3163} local [clone ABS[1407] 3089] has the following parameter: X{3162} local [clone ABS[1407] 3088] has the following parameter: X{3161} local [clone ABS[1407] 3087] has the following parameter: X{3160} local [clone ABS[1407] 3086] has the following parameter: X{3159} local [clone ABS[1407] 3085] has the following parameter: X{3158} local [clone ABS[1407] 3084] has the following parameter: X{3157} local [clone ABS[1407] 3083] has the following parameter: X{3156} local [clone ABS[1407] 3082] has the following parameter: X{3155} local [clone ABS[1407] 3081] has the following parameter: X{3154} local [clone ABS[1407] 3080] has the following parameter: X{3153} local [clone ABS[1407] 3079] has the following parameter: X{3152} local [clone ABS[1407] 3078] has the following parameter: X{3151} local WRITE[2828] has the following parameter: OBJ{3136} local [inside LOOP 2469] reentrant [inside LOOP 2468] reentrant LOOP[2467] reentrant has the following parameter: I{2921} local [inside WRITE2 2464] reentrant [inside WRITE2 2463] reentrant [inside WRITE2 2461] reentrant [inside LOOP 2458] reentrant [inside LOOP 2457] reentrant [inside LOOP 2456] reentrant [inside LOOP 2454] reentrant LOOP[2453] reentrant has the following parameter: OBJ{2909} local [inside WRITE2 2450] reentrant [inside WRITE2 2449] reentrant LOOP[2418] has the following parameters: MANTISSA{2891} local EXPONENT{2892} local LOOP[2413] has the following parameters: MANTISSA{2887} local EXPONENT{2888} local DISPLAY-INEXACT-REAL2[2404] has the following parameters: NUMBER{2882} local PORT{2883} local [inside LOOP 2401] has the following parameter: MANTISSA{2881} local [inside LOOP 2398] has the following parameter: DIGIT{2879} local [inside LOOP 2397] has the following parameter: FLOAT-DIGIT{2878} local LOOP[2396] has the following parameter: MANTISSA{2877} local [inside DISPLAY-MANTISSA-EXPONENT2 2385] has the following parameter: DIGIT{2870} local [inside DISPLAY-MANTISSA-EXPONENT2 2384] has the following parameter: FLOAT-DIGIT{2869} local LOOP[2375] has the following parameter: I{2863} local LOOP[2372] has the following parameters: I{2859} local NUMBER{2860} local LOOP[2361] has the following parameter: I{2853} local LOOP[2358] has the following parameters: I{2849} local NUMBER{2850} local LOOP[2349] has the following parameter: I{2843} local [inside DISPLAY-STRING2 2346] has the following parameter: N{2840} local [inside top level 2341] has the following parameters: THE-CURRENT-OUTPUT-PORT{2799} global BUFFER{2801} global LOOP[1866] has region has the following parameters: LIST1{2514} local C{2515} local MAP[1862] has the following parameter: LIST1{2510} local VECTOR->LIST[1776] has the following parameter: VECTOR{2439} global [inside STRING->LIST 1711] has the following parameter: N{2385} global STRING->LIST[1710] has the following parameter: STRING{2384} global LOOP[1682] has the following parameter: K{2364} local [inside SUBSTRING 1678] has the following parameter: R{2360} local SUBSTRING[1677] has the following parameters: STRING{2357} local START{2358} local END{2359} local CHAR-NUMERIC?[1536] has the following parameter: CHAR{2180} local LOOP?[1501] has the following parameters: CHAR1{2129} local CHAR2{2130} local CHAR>=?[1498] has the following parameters: CHAR1{2124} local CHAR2{2125} local LOOP?[1495] has the following parameters: CHAR1{2120} local CHAR2{2121} local CHAR<=?[1492] has the following parameters: CHAR1{2115} local CHAR2{2116} local EXP[1456] has the following parameter: Z{2073} local [inside MODULO 1411] has the following parameter: v{2032} local ABS[1407] has the following parameter: X{2025} local LOOP[1400] has the following parameter: R{2018} local -[1397] has the following parameters: Z{2013} local ZS{2014} local LOOP[1395] has the following parameters: ZS{2011} local R{2012} local *[1392] has the following parameter: ZS{2008} local LOOP[1390] has the following parameters: ZS{2006} local R{2007} local +[1387] has the following parameter: ZS{2003} local LOOP[1380] has the following parameter: R{1996} local MAX[1377] has the following parameters: X{1991} local XS{1992} local LOOP[1249] has the following parameters: LIST{1886} local R{1887} local LIST-REVERSE[1246] has the following parameter: LIST{1883} local CAR[1096] has the following parameter: PAIR{1764} local [inside EQV? 1082] has the following parameter: v{1748} local [inside EQV? 1081] has the following parameter: v{1747} local EQV?[1080] has the following parameters: OBJ1{1745} local OBJ2{1746} local [inside EM-CLUSTERER 948] has the following parameter: ZI{1742} local [inside EM-CLUSTERER 947] has region has the following parameter: I{1741} local [inside EM-CLUSTERER 946] has the following parameter: CLUSTER{1740} local [inside EM-CLUSTERER 945] has the following parameter: CLUSTER{1739} local [inside EM-CLUSTERER 944] has the following parameter: J{1738} local [inside EM-CLUSTERER 942] has the following parameter: CLUSTERS{1737} local [inside EM-CLUSTERER 941] has the following parameter: Z{1736} local EM-CLUSTERER[940] has region has the following parameters: X{1731} local CLIP{1732} local EM-KICK-OFF-TOLERANCE{1733} local EM-CONVERGENCE-TOLERANCE{1734} local EMS-CONVERGENCE-TOLERANCE{1735} local [inside LOOP 937] has the following parameter: NEW-LOG-LIKELIHOOD-MODELS{1730} local [inside LOOP 936] has the following parameter: MODELS{1729} local LOOP[935] has region has the following parameters: JJ{1727} local OLD-LOG-LIKELIHOOD-MODELS{1728} local EMS[932] has region has the following parameters: X{1720} local CLIP{1721} local EM-KICK-OFF-TOLERANCE{1722} local EM-CONVERGENCE-TOLERANCE{1723} local EMS-CONVERGENCE-TOLERANCE{1724} local [inside INITIAL-Z 930] has the following parameter: ZI{1718} local [inside INITIAL-Z 929] has region INITIAL-Z[928] has the following parameters: II{1715} local JJ{1716} local NOISE[927] has the following parameter: EPSILON{1714} local [inside EM 926] has the following parameter: J{1713} local [inside LOOP 924] has the following parameter: v{1712} local [inside LOOP 923] has the following parameter: v{1711} local [inside LOOP 922] has the following parameter: LOG-LIKELIHOOD-Z{1710} local LOOP[921] has the following parameters: MODELS{1707} local OLD-LOG-LIKELIHOOD{1708} local STARTING?{1709} local [inside EM 918] has the following parameter: JJ{1704} local EM[917] has the following parameters: X{1697} local PI{1698} local MU{1699} local SIGMA{1700} local CLIP{1701} local EM-KICK-OFF-TOLERANCE{1702} local EM-CONVERGENCE-TOLERANCE{1703} local [inside M-STEP 916] has region has the following parameters: ZIJ{1695} local XI{1696} local [inside M-STEP 914] has the following parameter: SIGMA{1694} local [inside M-STEP 913] has region has the following parameter: MU{1693} local [inside M-STEP 912] has region has the following parameter: ZJ-SUM{1692} local [inside M-STEP 911] has the following parameter: ZJ{1691} local [inside M-STEP 910] has the following parameter: J{1690} local [inside M-STEP 908] has the following parameter: KK{1689} local [inside M-STEP 907] has the following parameter: II{1688} local [inside E-STEP 905] has region has the following parameters: LOG-DETERMINANT-SIGMA{1681} local SIGMA-INVERSE{1682} local MU{1683} local LOG-PI{1684} local [inside E-STEP 904] has the following parameter: MODEL{1680} local [inside E-STEP 903] has the following parameter: XI{1679} local [inside E-STEP 902] has the following parameter: ZI{1678} local [inside E-STEP 901] has the following parameter: ZI{1677} local [inside E-STEP 900] has region has the following parameter: S{1676} local [inside E-STEP 899] has region has the following parameter: Z{1675} local [inside CLIP-EIGENVALUES 897] has region [inside CLIP-EIGENVALUES 896] has the following parameter: E{1672} local [inside CLIP-EIGENVALUES 895] has the following parameter: J{1671} local CLIP-EIGENVALUES[894] has region has the following parameters: A{1669} local V{1670} local loop[889] has the following parameter: I{1667} local [inside VECTOR->DIAGONAL-MATRIX 885] has the following parameter: M{1663} local VECTOR->DIAGONAL-MATRIX[884] has the following parameter: V{1662} local [inside JACOBI 882] has the following parameter: J{1661} local [inside JACOBI 881] has the following parameter: I{1660} local [inside JACOBI 880] has the following parameter: X{1659} local [inside JACOBI 879] has the following parameter: ROW{1658} local [inside loop 872] has the following parameter: J{1656} local loop[868] has the following parameter: L{1654} local [inside loop 862] has the following parameter: P{1650} local loop[858] has the following parameter: J{1648} local [inside loop 852] has the following parameters: P{1641} local K{1642} local loop[848] has the following parameter: I{1639} local [inside LOOP 843] has the following parameter: IQ{1636} local [inside LOOP 842] has the following parameter: IR{1635} local [inside LOOP 841] has the following parameter: IP{1634} local loop[835] has the following parameter: IP{1630} local [inside loop 829] has the following parameter: THETA{1627} local [inside ROTATE 826] has the following parameters: H{1624} local G{1625} local loop[816] has the following parameter: J{1616} local [inside loop 810] has the following parameter: H{1606} local [inside loop 809] has the following parameter: TAU{1605} global [inside loop 808] has the following parameter: S{1604} global [inside loop 807] has the following parameter: C{1603} local [inside loop 806] has the following parameter: T{1602} local [inside loop 805] has the following parameter: H{1601} local [inside loop 801] has the following parameter: G{1600} local [inside loop 800] has the following parameter: IQ{1599} local loop[796] has the following parameter: IR{1597} local loop[790] has the following parameter: IP{1593} local [inside LOOP 787] has the following parameter: TRESH{1590} local [inside LOOP 784] has the following parameter: SM{1587} local LOOP[782] has the following parameter: I{1585} local loop[775] has the following parameter: IP{1579} local [inside JACOBI 770] has the following parameter: Z{1573} local [inside JACOBI 769] has region has the following parameter: B{1572} local [inside JACOBI 768] has region has the following parameter: V{1571} local [inside JACOBI 767] has region has the following parameter: D{1570} local [inside JACOBI 766] has the following parameter: N{1569} local [inside JACOBI 765] has the following parameter: A{1568} local [inside JACOBI 764] has region JACOBI[763] has the following parameter: A{1566} local loop[756] has the following parameter: J{1563} local loop[747] has the following parameter: J{1558} local [inside loop 744] has the following parameter: D{1555} local loop[740] has the following parameter: K{1553} local [inside loop 736] has the following parameter: D{1549} local [inside loop 731] has the following parameter: E{1547} local [inside loop 729] has the following parameter: E{1545} local loop[723] has the following parameter: J{1541} local loop[715] has the following parameter: I{1534} local loop[708] has the following parameter: I{1530} local loop[700] has the following parameter: J{1526} local loop[694] has the following parameter: I{1522} local [inside INVERT-MATRIX 689] has the following parameter: B{1516} local [inside INVERT-MATRIX 688] has the following parameter: C{1515} local [inside INVERT-MATRIX 687] has region has the following parameter: N{1514} local [inside loop 680] has the following parameter: V{1509} local [inside loop 674] has the following parameter: X{1507} local loop[670] has the following parameter: J{1505} local loop[663] has the following parameter: J{1501} local loop[655] has the following parameter: K{1497} local [inside loop 652] has the following parameter: E{1494} local loop[648] has the following parameter: J{1492} local [inside loop 644] has the following parameter: C{1487} local [inside loop 642] has the following parameters: INDEX{1482} local GREATEST{1483} local loop[638] has the following parameter: I{1480} local loop[630] has the following parameter: J{1476} local loop[624] has the following parameter: I{1472} local [inside DETERMINANT 619] has the following parameter: D{1467} local [inside DETERMINANT 618] has the following parameter: B{1466} local [inside DETERMINANT 617] has region has the following parameter: N{1465} local [inside K*M 613] has the following parameter: E{1461} local [inside K*M 612] has the following parameter: ROW{1460} local K*M[611] has the following parameters: K{1458} global M{1459} local SELF-OUTER-PRODUCT[609] has the following parameter: V{1455} local [inside OUTER-PRODUCT2 608] has the following parameter: VJ{1453} local [inside OUTER-PRODUCT2 607] has the following parameter: UI{1452} local OUTER-PRODUCT2[606] has the following parameters: U{1450} local V{1451} local [inside OUTER-PRODUCT1 605] has region has the following parameter: VJ{1448} local [inside OUTER-PRODUCT1 604] has the following parameter: UI{1447} local OUTER-PRODUCT1[603] has the following parameters: U{1445} local V{1446} local [inside TRANSPOSE 602] has the following parameter: J{1443} local [inside M*V 600] has the following parameter: U{1441} local M*V[599] has the following parameters: A{1439} local V{1440} local M-[598] has the following parameters: A{1437} local B{1438} local M+[597] has the following parameters: A{1435} local B{1436} local [inside MATRIX-COLUMN-REF 595] has the following parameter: V{1431} local MATRIX-SET![592] has the following parameters: A{1423} local I{1424} local J{1425} local X{1426} local MAKE-MATRIX-INITIAL4[587] has the following parameters: M{1414} local N{1415} local INITIAL{1416} local MAKE-MATRIX-INITIAL3[585] has the following parameters: M{1410} local N{1411} local INITIAL{1412} local MAKE-MATRIX-INITIAL2[583] has the following parameters: M{1406} local N{1407} local INITIAL{1408} local MAKE-MATRIX-INITIAL1[581] has the following parameters: M{1402} local N{1403} local INITIAL{1404} local MAKE-MATRIX2[579] has the following parameters: M{1399} local N{1400} local MAKE-MATRIX1[577] has the following parameters: M{1396} local N{1397} local LOOP[572] has the following parameters: L{1394} local I{1395} local POSITIONV[569] has the following parameters: X{1390} local L{1391} local LOOP[564] has region has the following parameters: L{1388} local C{1389} local REMOVE-IF-NOT[561] has the following parameter: L{1385} local LOOP[556] has the following parameter: I{1382} local [inside MAP-N-VECTOR11 552] has the following parameter: V{1378} local MAP-N-VECTOR11[551] has the following parameter: N{1377} local LOOP[546] has the following parameter: I{1374} local [inside MAP-N-VECTOR10 542] has the following parameter: V{1370} local MAP-N-VECTOR10[541] has the following parameter: N{1369} local LOOP[536] has the following parameter: I{1366} local [inside MAP-N-VECTOR9 532] has the following parameter: V{1362} local MAP-N-VECTOR9[531] has the following parameter: N{1361} local LOOP[526] has the following parameter: I{1358} local [inside MAP-N-VECTOR8 522] has the following parameter: V{1354} local MAP-N-VECTOR8[521] has the following parameter: N{1353} local LOOP[516] has the following parameter: I{1350} local [inside MAP-N-VECTOR7 512] has the following parameter: V{1346} local MAP-N-VECTOR7[511] has the following parameter: N{1345} local LOOP[506] has the following parameter: I{1342} local [inside MAP-N-VECTOR6 502] has the following parameter: V{1338} local MAP-N-VECTOR6[501] has the following parameter: N{1337} local LOOP[496] has the following parameter: I{1334} local [inside MAP-N-VECTOR5 492] has the following parameter: V{1330} local MAP-N-VECTOR5[491] has the following parameter: N{1329} local LOOP[486] has the following parameter: I{1326} local [inside MAP-N-VECTOR4 482] has the following parameter: V{1322} local MAP-N-VECTOR4[481] has the following parameter: N{1321} local LOOP[476] has the following parameter: I{1318} local [inside MAP-N-VECTOR3 472] has the following parameter: V{1314} local MAP-N-VECTOR3[471] has the following parameter: N{1313} local LOOP[466] has the following parameter: I{1310} local [inside MAP-N-VECTOR2 462] has the following parameter: V{1306} local MAP-N-VECTOR2[461] has the following parameter: N{1305} local LOOP[456] has the following parameter: I{1302} local [inside MAP-N-VECTOR1 452] has the following parameter: V{1298} local MAP-N-VECTOR1[451] has the following parameter: N{1297} local LOOP[449] has region has the following parameters: I{1294} local C{1295} local MAP-N2[446] has the following parameter: N{1291} local LOOP[444] has region has the following parameters: I{1288} local C{1289} local MAP-N1[441] has the following parameter: N{1285} local [inside ADD-EXP 439] has the following parameter: FACTOR{1283} local [inside ADD-EXP 438] has the following parameter: E-MIN{1282} local [inside ADD-EXP 437] has the following parameter: E-MAX{1281} local ADD-EXP[436] has the following parameters: E1{1279} local E2{1280} local [inside K*V 435] has the following parameter: X{1278} local K*V[434] has the following parameters: K{1276} global U{1277} local LOOP[429] has the following parameters: N{1268} local C{1269} local SUM2[426] has the following parameter: N{1265} local LOOP[424] has the following parameters: N{1262} local C{1263} local SUM1[421] has the following parameter: N{1259} local [inside LOOP 419] has the following parameter: v{1257} local LOOP[418] has the following parameter: I{1256} local EVERY-N2[415] has the following parameter: N{1253} local [inside LOOP 413] has the following parameter: v{1251} local LOOP[412] has the following parameter: I{1250} local EVERY-N1[409] has the following parameter: N{1247} local LOOP[407] has region has the following parameters: I{1244} local C{1245} local [inside REDUCE-VECTOR7 401] has the following parameter: N{1241} local REDUCE-VECTOR7[400] has the following parameters: V{1239} local I{1240} local LOOP[398] has the following parameters: I{1236} local C{1237} local [inside REDUCE-VECTOR6 392] has the following parameter: N{1233} local REDUCE-VECTOR6[391] has the following parameters: V{1231} local I{1232} local LOOP[389] has the following parameters: I{1228} local C{1229} local [inside REDUCE-VECTOR5 383] has the following parameter: N{1225} local REDUCE-VECTOR5[382] has the following parameters: V{1223} local I{1224} local LOOP[380] has the following parameters: I{1220} local C{1221} local [inside REDUCE-VECTOR4 374] has the following parameter: N{1217} local REDUCE-VECTOR4[373] has the following parameters: V{1215} local I{1216} local LOOP[371] has the following parameters: I{1212} local C{1213} local [inside REDUCE-VECTOR3 365] has the following parameter: N{1209} local REDUCE-VECTOR3[364] has the following parameters: V{1207} local I{1208} local LOOP[362] has the following parameters: I{1204} local C{1205} local [inside REDUCE-VECTOR2 356] has the following parameter: N{1201} local REDUCE-VECTOR2[355] has the following parameters: V{1199} local I{1200} local LOOP[353] has the following parameters: I{1196} local C{1197} local [inside REDUCE-VECTOR1 347] has the following parameter: N{1193} local REDUCE-VECTOR1[346] has the following parameters: V{1191} local I{1192} local LOOP[344] has region has the following parameters: L{1188} local C{1189} local REDUCE[338] has the following parameters: L{1184} local I{1185} local loop[333] has the following parameter: I{1181} local [inside MAP-VECTOR-TWO8 329] has the following parameter: U{1177} local MAP-VECTOR-TWO8[328] has the following parameters: V1{1175} local V2{1176} local loop[323] has the following parameter: I{1172} local [inside MAP-VECTOR-TWO7 319] has the following parameter: U{1168} local MAP-VECTOR-TWO7[318] has the following parameters: V1{1166} local V2{1167} local loop[313] has region has the following parameter: I{1163} local [inside MAP-VECTOR-TWO6 309] has the following parameter: U{1159} local MAP-VECTOR-TWO6[308] has the following parameters: V1{1157} local V2{1158} local loop[303] has the following parameter: I{1154} local [inside MAP-VECTOR-TWO5 299] has the following parameter: U{1150} local MAP-VECTOR-TWO5[298] has the following parameters: V1{1148} local V2{1149} local loop[293] has the following parameter: I{1145} local [inside MAP-VECTOR-TWO4 289] has the following parameter: U{1141} local MAP-VECTOR-TWO4[288] has the following parameters: V1{1139} local V2{1140} local loop[283] has region has the following parameter: I{1136} local [inside MAP-VECTOR-TWO3 279] has the following parameter: U{1132} local MAP-VECTOR-TWO3[278] has the following parameters: V1{1130} local V2{1131} local loop[273] has region has the following parameter: I{1127} local [inside MAP-VECTOR-TWO2 269] has the following parameter: U{1123} local MAP-VECTOR-TWO2[268] has the following parameters: V1{1121} local V2{1122} local loop[263] has region has the following parameter: I{1118} local [inside MAP-VECTOR-TWO1 259] has the following parameter: U{1114} local MAP-VECTOR-TWO1[258] has the following parameters: V1{1112} local V2{1113} local loop[253] has the following parameter: I{1109} local [inside MAP-VECTOR19 249] has the following parameter: U{1105} local MAP-VECTOR19[248] has the following parameter: V{1104} local loop[243] has the following parameter: I{1101} local [inside MAP-VECTOR18 239] has the following parameter: U{1097} local MAP-VECTOR18[238] has the following parameter: V{1096} local loop[233] has the following parameter: I{1093} local [inside MAP-VECTOR17 229] has the following parameter: U{1089} local MAP-VECTOR17[228] has the following parameter: V{1088} local loop[223] has the following parameter: I{1085} local [inside MAP-VECTOR16 219] has the following parameter: U{1081} local MAP-VECTOR16[218] has the following parameter: V{1080} local loop[213] has the following parameter: I{1077} local [inside MAP-VECTOR15 209] has the following parameter: U{1073} local MAP-VECTOR15[208] has the following parameter: V{1072} local loop[203] has the following parameter: I{1069} local [inside MAP-VECTOR14 199] has the following parameter: U{1065} local MAP-VECTOR14[198] has the following parameter: V{1064} local loop[193] has the following parameter: I{1061} local [inside MAP-VECTOR13 189] has the following parameter: U{1057} local MAP-VECTOR13[188] has the following parameter: V{1056} local loop[183] has the following parameter: I{1053} local [inside MAP-VECTOR12 179] has the following parameter: U{1049} local MAP-VECTOR12[178] has the following parameter: V{1048} local loop[173] has the following parameter: I{1045} local [inside MAP-VECTOR11 169] has the following parameter: U{1041} local MAP-VECTOR11[168] has the following parameter: V{1040} local loop[163] has the following parameter: I{1037} local [inside MAP-VECTOR10 159] has the following parameter: U{1033} local MAP-VECTOR10[158] has the following parameter: V{1032} local loop[153] has the following parameter: I{1029} local [inside MAP-VECTOR9 149] has the following parameter: U{1025} local loop[143] has the following parameter: I{1021} local [inside MAP-VECTOR8 139] has the following parameter: U{1017} local loop[133] has the following parameter: I{1013} local [inside MAP-VECTOR7 129] has the following parameter: U{1009} local MAP-VECTOR7[128] has the following parameter: V{1008} local loop[123] has the following parameter: I{1005} local [inside MAP-VECTOR6 119] has the following parameter: U{1001} local MAP-VECTOR6[118] has the following parameter: V{1000} local loop[113] has the following parameter: I{997} local [inside MAP-VECTOR5 109] has the following parameter: U{993} local MAP-VECTOR5[108] has the following parameter: V{992} local loop[103] has the following parameter: I{989} local [inside MAP-VECTOR4 99] has the following parameter: U{985} local MAP-VECTOR4[98] has the following parameter: V{984} local loop[93] has the following parameter: I{981} local [inside MAP-VECTOR3 89] has the following parameter: U{977} local MAP-VECTOR3[88] has the following parameter: V{976} local loop[83] has the following parameter: I{973} local [inside MAP-VECTOR2 79] has the following parameter: U{969} local MAP-VECTOR2[78] has the following parameter: V{968} local loop[73] has the following parameter: I{965} local [inside MAP-VECTOR1 69] has the following parameter: U{961} local LIST-TWO5[67] has the following parameters: X{957} local Y{958} local LIST-TWO4[66] has the following parameter: X{955} local LIST-TWO3[65] has the following parameters: X{953} local Y{954} local LIST-TWO2[64] has the following parameters: X{951} local Y{952} local LIST-TWO1[63] has the following parameters: X{949} local Y{950} local SECOND5[62] has the following parameter: X{948} local SECOND4[61] has the following parameter: X{947} local SECOND3[60] has the following parameter: X{946} local SECOND2[59] has the following parameter: X{945} local SECOND1[58] has the following parameter: X{944} local LOOP[51] has the following parameters: N{942} local R{943} local [inside loop 48] has the following parameter: SLOP{939} local loop[46] has the following parameters: ILEN{937} local S{938} local [inside RANDOM:CHUNK 40] has the following parameter: ANS{932} local [inside RANDOM:CHUNK 39] has the following parameter: P{931} local loop[33] has region has the following parameter: I{928} local [inside top level 30] has the following parameter: NIBBLES{925} local [inside top level 28] has the following parameter: RANDOM-STRINGS{923} local [inside RANDOM:SIZE-INT 27] has the following parameter: TRIAL{922} local RANDOM:SIZE-INT[26] has region has the following parameter: L{921} local [inside LOGICAL:LOGXOR 24] reentrant LOOP[18] has the following parameters: S{916} local C{917} local loop[8] has region has the following parameter: I{910} local [inside top level 4] has the following parameters: MINUS-INFINITY{754} global LOG-MATH-PRECISION{755} global *RANDOM-STATE*{758} local RANDOM:MASK{759} local RANDOM:CHUNK-SIZE{760} local RANDOM:SIZE{762} global RANDOM:TAP{763} global LOGICAL:BOOLE-XOR{764} global *MOST-POSITIVE-FIXNUM*{767} local The following expression allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20) The following expression allocates on LOOP[1866]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC (# LIST1)) C) The following expression allocates on [inside EM-CLUSTERER 947]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR-REF) VECTOR K) (LOOP (# K 1))) The following expression allocates on HEX-STRING->NUMBER[15]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRING-REF) STRING K) (LOOP (# K 1))) The following expression allocates on loop[33]: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START)) The following expression allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression, em-functional-do-split-stalin.sc:842:26882, allocates on EM-CLUSTERER[940]: (MAKE-MODEL ((PRIMITIVE-PROCEDURE VECTOR-REF) PI J) ((PRIMITIVE-PROCEDURE VECTOR-REF) MU J) ((PRIMITIVE-PROCEDURE VECTOR-REF) SIGMA J) ((PRIMITIVE-PROCEDURE LOG) (# PI J)) (INVERT-MATRIX (# SIGMA J)) ((PRIMITIVE-PROCEDURE LOG) (DETERMINANT #))) The following expression, em-functional-do-split-stalin.sc:818:26293, allocates on [inside M-STEP 912]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) KK 0.) The following expression, em-functional-do-split-stalin.sc:830:26560, allocates on EM-CLUSTERER[940]: (MAKE-MODEL ((PRIMITIVE-PROCEDURE /) ZJ-SUM II) MU SIGMA ((PRIMITIVE-PROCEDURE LOG) (# ZJ-SUM II)) (INVERT-MATRIX SIGMA) ((PRIMITIVE-PROCEDURE LOG) (DETERMINANT SIGMA))) The following expression, em-functional-do-split-stalin.sc:804:25862, allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (MATRIX-COLUMNS Z) S) The following expression, em-functional-do-split-stalin.sc:687:21877, allocates on CLIP-EIGENVALUES[894]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-do-split-stalin.sc:689:21934, allocates on [inside JACOBI 768]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-do-split-stalin.sc:690:21955, allocates on [inside JACOBI 769]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N 0.) The following expression, em-functional-do-split-stalin.sc:594:18584, allocates on [inside OUTER-PRODUCT1 605]: (F UI VJ) The following expression, em-functional-do-split-stalin.sc:568:17810, allocates on [inside M-STEP 913]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL) The following expression, em-functional-do-split-stalin.sc:565:17709, allocates on [inside CLIP-EIGENVALUES 897]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL) The following expression, em-functional-do-split-stalin.sc:562:17608, allocates on [inside JACOBI 767]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL) The following expression, em-functional-do-split-stalin.sc:559:17507, allocates on EM-CLUSTERER[940]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL) The following expression, em-functional-do-split-stalin.sc:556:17414, allocates on [inside INVERT-MATRIX 687]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-do-split-stalin.sc:554:17338, allocates on [inside DETERMINANT 617]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-do-split-stalin.sc:545:17101, allocates on LOOP[564]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (FIRST L) C) The following expression, em-functional-do-split-stalin.sc:534:16822, allocates on [inside INITIAL-Z 929]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-do-split-stalin.sc:526:16660, allocates on LOOP[935]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-do-split-stalin.sc:518:16498, allocates on EM-CLUSTERER[940]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-do-split-stalin.sc:510:16337, allocates on EM-CLUSTERER[940]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-do-split-stalin.sc:502:16176, allocates on EM-CLUSTERER[940]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-do-split-stalin.sc:494:16015, allocates on [inside M-STEP 913]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-do-split-stalin.sc:486:15854, allocates on [inside CLIP-EIGENVALUES 897]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-do-split-stalin.sc:478:15693, allocates on [inside JACOBI 767]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-do-split-stalin.sc:470:15532, allocates on EM-CLUSTERER[940]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-do-split-stalin.sc:462:15371, allocates on [inside INVERT-MATRIX 687]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-do-split-stalin.sc:454:15210, allocates on [inside DETERMINANT 617]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-do-split-stalin.sc:451:15140, allocates on LOOP[449]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C) The following expression, em-functional-do-split-stalin.sc:446:14994, allocates on LOOP[444]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C) The following expression, em-functional-do-split-stalin.sc:408:13967, allocates on LOOP[407]: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-do-split-stalin.sc:387:13295, allocates on the stack: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-do-split-stalin.sc:380:13071, allocates on the stack: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-do-split-stalin.sc:366:12623, allocates on the stack: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-do-split-stalin.sc:359:12407, allocates on LOOP[344]: (F C (FIRST L)) The following expression, em-functional-do-split-stalin.sc:350:12084, allocates on [inside M-STEP 913]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-do-split-stalin.sc:343:11822, allocates on [inside M-STEP 912]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-do-split-stalin.sc:336:11560, allocates on [inside CLIP-EIGENVALUES 897]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-do-split-stalin.sc:338:11664, allocates on loop[313]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-do-split-stalin.sc:329:11298, allocates on [inside E-STEP 900]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-do-split-stalin.sc:322:11036, allocates on [inside M-STEP 913]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-do-split-stalin.sc:315:10774, allocates on EM-CLUSTERER[940]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-do-split-stalin.sc:317:10878, allocates on loop[283]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-do-split-stalin.sc:308:10512, allocates on [inside M-STEP 912]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-do-split-stalin.sc:310:10616, allocates on loop[273]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-do-split-stalin.sc:301:10250, allocates on DOT[431]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-do-split-stalin.sc:303:10354, allocates on loop[263]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-do-split-stalin.sc:294:10009, allocates on LOOP[935]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-do-split-stalin.sc:287:9775, allocates on LOOP[935]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-do-split-stalin.sc:280:9541, allocates on LOOP[935]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-do-split-stalin.sc:273:9307, allocates on EM-CLUSTERER[940]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-do-split-stalin.sc:266:9073, allocates on EM-CLUSTERER[940]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-do-split-stalin.sc:259:8839, allocates on [inside E-STEP 899]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-do-split-stalin.sc:252:8605, allocates on E-STEP[898]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-do-split-stalin.sc:245:8371, allocates on E-STEP[898]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-do-split-stalin.sc:238:8137, allocates on [inside JACOBI 764]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-do-split-stalin.sc:231:7903, allocates on [inside JACOBI 764]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-do-split-stalin.sc:224:7669, allocates on [inside M-STEP 913]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-do-split-stalin.sc:217:7436, allocates on [inside M-STEP 913]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-do-split-stalin.sc:210:7203, allocates on EM-CLUSTERER[940]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-do-split-stalin.sc:203:6970, allocates on EM-CLUSTERER[940]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-do-split-stalin.sc:196:6737, allocates on [inside M-STEP 916]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-do-split-stalin.sc:189:6504, allocates on [inside M-STEP 916]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-do-split-stalin.sc:182:6271, allocates on [inside E-STEP 905]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-do-split-stalin.sc:175:6038, allocates on EM-CLUSTERER[940]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-do-split-stalin.sc:168:5805, allocates on EM-CLUSTERER[940]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-do-split-stalin.sc:164:5680, allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '())) The following expression, em-functional-do-split-stalin.sc:164:5688, allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '()) The following expression, em-functional-do-split-stalin.sc:162:5632, allocates on EMS[932]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '())) The following expression, em-functional-do-split-stalin.sc:162:5640, allocates on EMS[932]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '()) The following expression, em-functional-do-split-stalin.sc:160:5584, allocates on LOOP[935]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '())) The following expression, em-functional-do-split-stalin.sc:160:5592, allocates on LOOP[935]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '()) The following expression, em-functional-do-split-stalin.sc:158:5536, allocates on EM-CLUSTERER[940]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '())) The following expression, em-functional-do-split-stalin.sc:158:5544, allocates on EM-CLUSTERER[940]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '()) The following expression, em-functional-do-split-stalin.sc:156:5488, allocates on CLIP-EIGENVALUES[894]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '())) The following expression, em-functional-do-split-stalin.sc:156:5496, allocates on CLIP-EIGENVALUES[894]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '()) The following expression, em-functional-do-split-stalin.sc:104:4013, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) RANDOM:SIZE 1) 0) The following expression, em-functional-do-split-stalin.sc:87:3190, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE QUOTIENT) RANDOM:CHUNK-SIZE 4) #\f) The following expression, em-functional-do-split-stalin.sc:79:2949, allocates on RANDOM:SIZE-INT[26]: ((PRIMITIVE-PROCEDURE MAKE-STRING) L #\f) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W21881 is general case for the following reasons: nondegenerate nonheaded vector W6841 is general case for the following reasons: flonum W6795 is general case for the following reasons: flonum W6793 is general case for the following reasons: flonum W6547 is general case for the following reasons: flonum W43 is general case for the following reasons: flonum W7 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 3 - 1% - Expanding macros 6 - 3% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 2 - 1% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 31 - 13% - Performing flow analysis 0 - 0% - Enumerating call sites 1 - 0% - Determining which types and type sets are used 54 - 23% - Determining which call sites to split 0 - 0% - Computing call graph 2 - 1% - Determining which environments are called more than once 1 - 0% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 18 - 8% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 1 - 1% - Determining which environments are recursive 4 - 2% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 82 - 35% - Performing lightweight closure conversion 0 - 0% - Determining parents 2 - 1% - Determining which expressions need conversion to CPS 1 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 1 - 0% - Determining which environments have external continuation calls 2 - 1% - Determining blocked environments 0 - 0% - Determining allocations 4 - 2% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 1 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 7 - 3% - Generating code 6 - 2% - Removing unused declarations 2 - 1% - Removing unused labels 1 - 1% - Writing database 0 - 0% - Compiling C code 234.73user 1.06system 4:06.22elapsed 95%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33707major+428963minor)pagefaults 0swaps run em-functional-do-split 4.98user 0.43system 0:05.58elapsed 96%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (99major+17677minor)pagefaults 0swaps compile em-imperative Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 19041 expressions 0 internal symbol types 0 external symbol types 69 primitive procedure types 193 non-called native procedure types 445 called noop native procedure types 639 called non-noop native procedure types 1 foreign procedure type 2 continuation types 4 string types 11 structure types 36 headed vector types 1 nonheaded vector type 0 displaced vector types 21768 type sets 823 hunoz variables 1841 non-hunoz variables 642 noop environments 2018 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 19644 expressions 0 internal symbol types 0 external symbol types 69 primitive procedure types 199 non-called native procedure types 456 called noop native procedure types 675 called non-noop native procedure types 1 foreign procedure type 2 continuation types 4 string types 13 structure types 40 headed vector types 1 nonheaded vector type 0 displaced vector types 22474 type sets 839 hunoz variables 1968 non-hunoz variables 654 noop environments 2107 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 17 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 7401 expressions 0 internal symbol types 0 external symbol types 69 primitive procedure types 193 non-called native procedure types 456 called noop native procedure types 675 called non-noop native procedure types 1 foreign procedure type 2 continuation types 4 string types 13 structure types 40 headed vector types 1 nonheaded vector type 0 displaced vector types 9010 type sets 536 hunoz variables 1050 non-hunoz variables 0 noop environments 723 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 17 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: WRITE2[2003] reentrant has the following parameters: OBJ{2406} local PORT{2407} local has the following in-lined locals: NUMBER{2395} PORT{2396} MANTISSA{2400} EXPONENT{2401} MANTISSA{2404} EXPONENT{2405} OBJ{2422} I{2434} DISPLAY-MANTISSA-EXPONENT2[1965] has the following parameters: MANTISSA{2379} local EXPONENT{2380} local PORT{2381} local has the following in-lined locals: FLOAT-DIGIT{2382} DIGIT{2383} MANTISSA{2390} FLOAT-DIGIT{2391} DIGIT{2392} MANTISSA{2394} DISPLAY-EXACT-INTEGER2[1936] has the following parameters: NUMBER{2358} local PORT{2359} local has the following in-lined locals: I{2362} NUMBER{2363} I{2366} I{2372} NUMBER{2373} I{2376} DISPLAY-STRING2[1927] has the following parameters: STRING{2351} local PORT{2352} local has the following in-lined locals: N{2353} I{2356} LOOP[1361] reentrant has the following parameter: K{1955} local LOOP[1296] reentrant has the following parameter: K{1901} local MODULO[992] has the following parameters: N1{1543} local N2{1544} local has the following in-lined local: v{1545} REVERSE[833] has the following parameter: S{1401} local has the following in-lined locals: LIST{2752} LIST{2755} R{2756} CDR[679] has the following parameter: PAIR{1278} local M-STEP![483] has the following parameters: X{1139} local MODELS{1140} local Z{1141} local CLIP{1142} local has the following in-lined locals: N{808} I{811} v{812} N{814} N{817} C{818} N{831} V{832} I{836} M{853} N{854} INITIAL{855} A{871} N{874} B{875} D{876} I{881} J{885} I{889} INDEX{891} GREATEST{892} C{896} J{901} E{903} K{906} J{910} J{914} X{916} V{918} A{921} B{922} N{924} C{925} I{930} J{937} E{941} E{943} D{945} K{949} D{951} J{954} J{959} I{964} J{968} I{973} A{975} N{977} D{978} V{979} B{980} Z{981} IP{987} I{993} SM{995} TRESH{998} IP{1001} IR{1005} IQ{1007} G{1008} H{1009} T{1010} C{1011} H{1014} J{1024} THETA{1035} IP{1038} IP{1042} IR{1043} IQ{1044} I{1047} P{1049} K{1050} J{1056} P{1058} L{1062} J{1064} I{1066} J{1067} A{1068} V{1069} J{1070} L{1071} E{1072} K1{1075} E-K1{1077} A-K1{1078} K2{1081} S{1083} E-K2{1084} K{1088} KK{1143} J{1146} MODEL{1148} MU{1149} SIGMA{1150} S{1151} I{1161} SI{1163} K{1166} M{1168} I{1172} SI{1174} K1{1177} MU-K1{1179} SIGMA-K1{1180} K2{1183} M{1185} MU-K2{1186} I{1190} X{1538} X{2664} X{2665} X{2666} X{2667} X{2668} X{2669} X{2670} X{2671} X{2672} X{2673} X{2674} X{2675} OBJS{2677} PAIR{2679} PAIR{2687} A{2692} I{2693} J{2694} X{2695} A{2696} I{2697} J{2698} X{2699} A{2700} I{2701} J{2702} X{2703} A{2704} I{2705} J{2706} X{2707} A{2708} I{2709} J{2710} X{2711} A{2712} I{2713} J{2714} X{2715} A{2716} I{2717} J{2718} X{2719} A{2720} I{2721} J{2722} X{2723} A{2724} I{2725} J{2726} X{2727} A{2728} I{2729} J{2730} X{2731} A{2732} I{2733} J{2734} X{2735} A{2736} I{2737} J{2738} X{2739} A{2740} I{2741} J{2742} X{2743} A{2744} I{2745} J{2746} X{2747} A{2748} I{2749} J{2750} X{2751} N{2790} I{2793} v{2794} N{2796} N{2799} C{2800} E-STEP![418] has the following parameters: X{1090} local Z{1091} local MODELS{1092} local has the following in-lined locals: E1{819} E2{820} E-MAX{821} E-MIN{822} FACTOR{823} L{1094} I{1098} ZI{1100} S{1101} J{1106} J{1110} I{1114} ZI{1116} XI{1117} J{1120} MODEL{1122} LOG-PI{1123} MU{1124} SIGMA-INVERSE{1125} LOG-DETERMINANT-SIGMA{1126} T{1127} K1{1132} SIGMA-INVERSE-K1{1134} K2{1137} ROTATE[332] has the following parameters: A{1027} local I{1028} local J{1029} local K{1030} local L{1031} local has the following in-lined locals: A{862} I{863} J{864} X{865} H{1032} G{1033} A{2688} I{2689} J{2690} X{2691} MATRIX-ROW-SET![122] has the following parameters: A{868} local I{869} local V{870} local MATRIX-ROW-REF[121] has the following parameters: A{866} local I{867} local MATRIX-REF[119] has the following parameters: A{859} local I{860} local J{861} local MATRIX-COLUMNS[118] has the following parameter: A{858} local MATRIX-ROWS[117] has the following parameter: A{857} local MAKE-MATRIX[113] has the following parameters: M{850} local N{851} local has the following in-lined locals: N{2758} V{2759} I{2763} RANDOM:CHUNK[38] has the following parameter: V{786} local has the following in-lined locals: P{787} ANS{788} LOGICAL:ASH-4[25] has the following parameter: X{776} local LOGICAL:LOGXOR[20] reentrant has the following parameters: N1{774} local N2{775} local HEX-STRING->NUMBER[15] has region has the following parameter: S{769} local has the following in-lined locals: S{772} C{773} CHAR1{1628} CHAR2{1629} CHAR1{1633} CHAR2{1634} CHAR1{1637} CHAR2{1638} CHAR1{1642} CHAR2{1643} CHAR{1693} VOID[13] [inside top level 0] has the following in-lined locals: *RANDOM-STATE*{683} RANDOM:MASK{684} RANDOM:CHUNK-SIZE{685} *MOST-POSITIVE-FIXNUM*{692} I{766} L{777} TRIAL{778} RANDOM-STRINGS{779} NIBBLES{781} I{784} ILEN{793} S{794} SLOP{795} N{798} R{799} L{801} I{802} L{805} C{806} N{825} I{828} C{829} L{839} L{842} C{843} X{844} L{845} L{848} I{849} X{1192} Z{1193} MODELS{1194} CLIP{1195} EM-KICK-OFF-TOLERANCE{1196} EM-CONVERGENCE-TOLERANCE{1197} OLD-LOG-LIKELIHOOD{1200} STARTING?{1201} LOG-LIKELIHOOD{1202} v{1203} v{1205} EPSILON{1206} II{1207} JJ{1208} S{1210} ZI{1211} J{1216} SI{1218} J{1221} X{1224} CLIP{1225} EM-KICK-OFF-TOLERANCE{1226} EM-CONVERGENCE-TOLERANCE{1227} EMS-CONVERGENCE-TOLERANCE{1228} JJ{1231} OLD-Z{1232} OLD-MODELS{1233} OLD-LOG-LIKELIHOOD{1234} KK{1235} Z{1236} MODELS{1237} NEW-LOG-LIKELIHOOD{1239} X{1241} CLIP{1242} EM-KICK-OFF-TOLERANCE{1243} EM-CONVERGENCE-TOLERANCE{1244} EMS-CONVERGENCE-TOLERANCE{1245} Z-MODELS{1246} Z{1247} MODELS{1248} CLUSTERS{1250} J{1251} CLUSTER{1252} CLUSTER{1253} I{1254} ZI{1255} OBJ1{1258} OBJ2{1259} v{1260} v{1261} PAIR{1277} PAIR{1284} OBJS{1321} LIST{1396} LIST{1399} R{1400} X{1504} XS{1505} R{1509} STRING{1870} START{1871} END{1872} R{1873} K{1877} LIST1{2023} LIST1{2027} C{2028} OBJ{2649} OBJS{2676} PAIR{2678} PAIR{2680} PAIR{2681} PAIR{2682} PAIR{2683} PAIR{2684} PAIR{2685} PAIR{2686} N{2766} V{2767} I{2771} N{2774} V{2775} I{2779} N{2782} V{2783} I{2787} N{2802} I{2805} C{2806} The following non-trivial in-line native procedures will be generated: [clone LOOP[85] 2759] has region has the following parameters: I{2805} local C{2806} local [clone MAP-N[82] 2756] has the following parameter: N{2802} local [clone LOOP[75] 2754] has the following parameters: N{2799} local C{2800} local [clone SUM[72] 2751] has the following parameter: N{2796} local [clone [inside LOOP 70] 2749] has the following parameter: v{2794} local [clone LOOP[69] 2748] has the following parameter: I{2793} local [clone EVERY-N[66] 2745] has the following parameter: N{2790} local [clone LOOP[92] 2740] has the following parameter: I{2787} local [clone [inside MAP-N-VECTOR 88] 2736] has the following parameter: V{2783} local [clone MAP-N-VECTOR[87] 2735] has the following parameter: N{2782} local [clone LOOP[92] 2730] has the following parameter: I{2779} local [clone [inside MAP-N-VECTOR 88] 2726] has the following parameter: V{2775} local [clone MAP-N-VECTOR[87] 2725] has the following parameter: N{2774} local [clone LOOP[92] 2720] has the following parameter: I{2771} local [clone [inside MAP-N-VECTOR 88] 2716] has the following parameter: V{2767} local [clone MAP-N-VECTOR[87] 2715] has the following parameter: N{2766} local [clone LOOP[92] 2710] has the following parameter: I{2763} local [clone [inside MAP-N-VECTOR 88] 2706] has the following parameter: V{2759} local [clone MAP-N-VECTOR[87] 2705] has the following parameter: N{2758} local [clone LOOP[831] 2703] has the following parameters: LIST{2755} local R{2756} local [clone LIST-REVERSE[828] 2700] has the following parameter: LIST{2752} local [clone MATRIX-SET![120] 2699] has the following parameters: A{2748} local I{2749} local J{2750} local X{2751} local [clone MATRIX-SET![120] 2698] has the following parameters: A{2744} local I{2745} local J{2746} local X{2747} local [clone MATRIX-SET![120] 2697] has the following parameters: A{2740} local I{2741} local J{2742} local X{2743} local [clone MATRIX-SET![120] 2696] has the following parameters: A{2736} local I{2737} local J{2738} local X{2739} local [clone MATRIX-SET![120] 2695] has the following parameters: A{2732} local I{2733} local J{2734} local X{2735} local [clone MATRIX-SET![120] 2694] has the following parameters: A{2728} local I{2729} local J{2730} local X{2731} local [clone MATRIX-SET![120] 2693] has the following parameters: A{2724} local I{2725} local J{2726} local X{2727} local [clone MATRIX-SET![120] 2692] has the following parameters: A{2720} local I{2721} local J{2722} local X{2723} local [clone MATRIX-SET![120] 2691] has the following parameters: A{2716} local I{2717} local J{2718} local X{2719} local [clone MATRIX-SET![120] 2690] has the following parameters: A{2712} local I{2713} local J{2714} local X{2715} local [clone MATRIX-SET![120] 2689] has the following parameters: A{2708} local I{2709} local J{2710} local X{2711} local [clone MATRIX-SET![120] 2688] has the following parameters: A{2704} local I{2705} local J{2706} local X{2707} local [clone MATRIX-SET![120] 2687] has the following parameters: A{2700} local I{2701} local J{2702} local X{2703} local [clone MATRIX-SET![120] 2686] has the following parameters: A{2696} local I{2697} local J{2698} local X{2699} local [clone MATRIX-SET![120] 2685] has the following parameters: A{2692} local I{2693} local J{2694} local X{2695} local [clone MATRIX-SET![120] 2684] has the following parameters: A{2688} local I{2689} local J{2690} local X{2691} local [clone CAR[678] 2683] has the following parameter: PAIR{2687} local [clone CAR[678] 2682] has the following parameter: PAIR{2686} local [clone CAR[678] 2681] has the following parameter: PAIR{2685} local [clone CAR[678] 2680] has the following parameter: PAIR{2684} local [clone CAR[678] 2679] has the following parameter: PAIR{2683} local [clone CAR[678] 2678] has the following parameter: PAIR{2682} local [clone CAR[678] 2677] has the following parameter: PAIR{2681} local [clone CAR[678] 2676] has the following parameter: PAIR{2680} local [clone CADR[683] 2675] has the following parameter: PAIR{2679} local [clone CADR[683] 2674] has the following parameter: PAIR{2678} local [clone LIST[720] 2673] has the following parameter: OBJS{2677} local [clone LIST[720] 2672] has the following parameter: OBJS{2676} local [clone ABS[989] 2671] has the following parameter: X{2675} local [clone ABS[989] 2670] has the following parameter: X{2674} local [clone ABS[989] 2669] has the following parameter: X{2673} local [clone ABS[989] 2668] has the following parameter: X{2672} local [clone ABS[989] 2667] has the following parameter: X{2671} local [clone ABS[989] 2666] has the following parameter: X{2670} local [clone ABS[989] 2665] has the following parameter: X{2669} local [clone ABS[989] 2664] has the following parameter: X{2668} local [clone ABS[989] 2663] has the following parameter: X{2667} local [clone ABS[989] 2662] has the following parameter: X{2666} local [clone ABS[989] 2661] has the following parameter: X{2665} local [clone ABS[989] 2660] has the following parameter: X{2664} local WRITE[2410] has the following parameter: OBJ{2649} local [inside LOOP 2051] reentrant [inside LOOP 2050] reentrant LOOP[2049] reentrant has the following parameter: I{2434} local [inside WRITE2 2046] reentrant [inside WRITE2 2045] reentrant [inside WRITE2 2043] reentrant [inside LOOP 2040] reentrant [inside LOOP 2039] reentrant [inside LOOP 2038] reentrant [inside LOOP 2036] reentrant LOOP[2035] reentrant has the following parameter: OBJ{2422} local [inside WRITE2 2032] reentrant [inside WRITE2 2031] reentrant LOOP[2000] has the following parameters: MANTISSA{2404} local EXPONENT{2405} local LOOP[1995] has the following parameters: MANTISSA{2400} local EXPONENT{2401} local DISPLAY-INEXACT-REAL2[1986] has the following parameters: NUMBER{2395} local PORT{2396} local [inside LOOP 1983] has the following parameter: MANTISSA{2394} local [inside LOOP 1980] has the following parameter: DIGIT{2392} local [inside LOOP 1979] has the following parameter: FLOAT-DIGIT{2391} local LOOP[1978] has the following parameter: MANTISSA{2390} local [inside DISPLAY-MANTISSA-EXPONENT2 1967] has the following parameter: DIGIT{2383} local [inside DISPLAY-MANTISSA-EXPONENT2 1966] has the following parameter: FLOAT-DIGIT{2382} local LOOP[1957] has the following parameter: I{2376} local LOOP[1954] has the following parameters: I{2372} local NUMBER{2373} local LOOP[1943] has the following parameter: I{2366} local LOOP[1940] has the following parameters: I{2362} local NUMBER{2363} local LOOP[1931] has the following parameter: I{2356} local [inside DISPLAY-STRING2 1928] has the following parameter: N{2353} local [inside top level 1923] has the following parameters: THE-CURRENT-OUTPUT-PORT{2312} global BUFFER{2314} global LOOP[1448] has region has the following parameters: LIST1{2027} local C{2028} local MAP[1444] has the following parameter: LIST1{2023} local VECTOR->LIST[1358] has the following parameter: VECTOR{1952} global [inside STRING->LIST 1293] has the following parameter: N{1898} global STRING->LIST[1292] has the following parameter: STRING{1897} global LOOP[1264] has the following parameter: K{1877} local [inside SUBSTRING 1260] has the following parameter: R{1873} local SUBSTRING[1259] has the following parameters: STRING{1870} local START{1871} local END{1872} local CHAR-NUMERIC?[1118] has the following parameter: CHAR{1693} local LOOP?[1083] has the following parameters: CHAR1{1642} local CHAR2{1643} local CHAR>=?[1080] has the following parameters: CHAR1{1637} local CHAR2{1638} local LOOP?[1077] has the following parameters: CHAR1{1633} local CHAR2{1634} local CHAR<=?[1074] has the following parameters: CHAR1{1628} local CHAR2{1629} local [inside MODULO 993] has the following parameter: v{1545} local ABS[989] has the following parameter: X{1538} local LOOP[962] has the following parameter: R{1509} local MAX[959] has the following parameters: X{1504} local XS{1505} local LOOP[831] has the following parameters: LIST{1399} local R{1400} local LIST-REVERSE[828] has the following parameter: LIST{1396} local LIST[720] has the following parameter: OBJS{1321} local CADR[683] has the following parameter: PAIR{1284} local CAR[678] has the following parameter: PAIR{1277} local [inside EQV? 664] has the following parameter: v{1261} local [inside EQV? 663] has the following parameter: v{1260} local EQV?[662] has the following parameters: OBJ1{1258} local OBJ2{1259} local [inside EM-CLUSTERER 602] has the following parameter: ZI{1255} local [inside EM-CLUSTERER 601] has region has the following parameter: I{1254} local [inside EM-CLUSTERER 600] has the following parameter: CLUSTER{1253} local [inside EM-CLUSTERER 599] has the following parameter: CLUSTER{1252} local [inside EM-CLUSTERER 598] has the following parameter: J{1251} local [inside EM-CLUSTERER 597] has the following parameter: CLUSTERS{1250} local [inside EM-CLUSTERER 594] has the following parameter: MODELS{1248} local [inside EM-CLUSTERER 593] has the following parameter: Z{1247} local [inside EM-CLUSTERER 592] has the following parameter: Z-MODELS{1246} local EM-CLUSTERER[591] has region has the following parameters: X{1241} local CLIP{1242} local EM-KICK-OFF-TOLERANCE{1243} local EM-CONVERGENCE-TOLERANCE{1244} local EMS-CONVERGENCE-TOLERANCE{1245} local [inside LOOP 588] has the following parameter: NEW-LOG-LIKELIHOOD{1239} local [inside LOOP 585] has the following parameter: MODELS{1237} local [inside LOOP 584] has the following parameter: Z{1236} local [inside LOOP 583] has the following parameter: KK{1235} local LOOP[582] has the following parameters: JJ{1231} local OLD-Z{1232} local OLD-MODELS{1233} local OLD-LOG-LIKELIHOOD{1234} local EMS[579] has the following parameters: X{1224} local CLIP{1225} local EM-KICK-OFF-TOLERANCE{1226} local EM-CONVERGENCE-TOLERANCE{1227} local EMS-CONVERGENCE-TOLERANCE{1228} local loop[573] has the following parameter: J{1221} local [inside INITIAL-Z 570] has the following parameter: SI{1218} local loop[565] has the following parameter: J{1216} local [inside INITIAL-Z 561] has the following parameters: S{1210} local ZI{1211} local INITIAL-Z[559] has the following parameters: II{1207} local JJ{1208} local NOISE[558] has the following parameter: EPSILON{1206} local [inside LOOP 555] has the following parameter: v{1205} local [inside LOOP 552] has the following parameter: v{1203} local [inside LOOP 551] has the following parameter: LOG-LIKELIHOOD{1202} local LOOP[550] has the following parameters: OLD-LOG-LIKELIHOOD{1200} local STARTING?{1201} local EM![547] has the following parameters: X{1192} local Z{1193} local MODELS{1194} local CLIP{1195} local EM-KICK-OFF-TOLERANCE{1196} local EM-CONVERGENCE-TOLERANCE{1197} local loop[539] has the following parameter: I{1190} local [inside loop 535] has the following parameters: M{1185} local MU-K2{1186} local loop[531] has the following parameter: K2{1183} local [inside loop 528] has the following parameters: MU-K1{1179} local SIGMA-K1{1180} local loop[524] has the following parameter: K1{1177} local [inside loop 521] has the following parameter: SI{1174} local loop[515] has the following parameter: I{1172} local [inside loop 511] has the following parameter: M{1168} local loop[507] has the following parameter: K{1166} local [inside loop 504] has the following parameter: SI{1163} local loop[499] has the following parameter: I{1161} local [inside loop 494] has the following parameter: S{1151} local [inside loop 493] has the following parameter: SIGMA{1150} local [inside loop 492] has the following parameter: MU{1149} local [inside loop 491] has the following parameter: MODEL{1148} local loop[487] has the following parameter: J{1146} local [inside M-STEP! 484] has the following parameter: KK{1143} local loop[475] has the following parameter: K2{1137} local [inside loop 472] has the following parameter: SIGMA-INVERSE-K1{1134} local loop[468] has the following parameter: K1{1132} local [inside loop 463] has the following parameter: T{1127} local [inside loop 462] has the following parameter: LOG-DETERMINANT-SIGMA{1126} local [inside loop 461] has the following parameter: SIGMA-INVERSE{1125} local [inside loop 460] has the following parameter: MU{1124} local [inside loop 459] has the following parameter: LOG-PI{1123} local [inside loop 458] has the following parameter: MODEL{1122} local loop[454] has the following parameter: J{1120} local [inside loop 451] has the following parameters: ZI{1116} local XI{1117} local loop[447] has the following parameter: I{1114} local loop[439] has the following parameter: J{1110} local loop[432] has the following parameter: J{1106} local [inside loop 428] has the following parameters: ZI{1100} local S{1101} local loop[424] has the following parameter: I{1098} local [inside E-STEP! 420] has the following parameter: L{1094} local loop[411] has the following parameter: K{1088} local [inside loop 407] has the following parameters: S{1083} local E-K2{1084} local loop[403] has the following parameter: K2{1081} local [inside loop 400] has the following parameters: E-K1{1077} local A-K1{1078} local loop[396] has the following parameter: K1{1075} local [inside CLIP-EIGENVALUES! 392] has the following parameter: E{1072} local [inside CLIP-EIGENVALUES! 391] has the following parameter: L{1071} local [inside CLIP-EIGENVALUES! 390] has the following parameter: J{1070} local CLIP-EIGENVALUES![389] has region has the following parameters: A{1068} local V{1069} local [inside JACOBI! 387] has the following parameter: J{1067} local [inside JACOBI! 386] has the following parameter: I{1066} local [inside loop 379] has the following parameter: J{1064} local loop[375] has the following parameter: L{1062} local [inside loop 369] has the following parameter: P{1058} local loop[365] has the following parameter: J{1056} local [inside loop 359] has the following parameters: P{1049} local K{1050} local loop[355] has the following parameter: I{1047} local [inside LOOP 350] has the following parameter: IQ{1044} local [inside LOOP 349] has the following parameter: IR{1043} local [inside LOOP 348] has the following parameter: IP{1042} local loop[342] has the following parameter: IP{1038} local [inside loop 336] has the following parameter: THETA{1035} local [inside ROTATE 333] has the following parameters: H{1032} local G{1033} local loop[323] has the following parameter: J{1024} local [inside loop 317] has the following parameter: H{1014} local [inside loop 316] has the following parameter: TAU{1013} global [inside loop 315] has the following parameter: S{1012} global [inside loop 314] has the following parameter: C{1011} local [inside loop 313] has the following parameter: T{1010} local [inside loop 312] has the following parameter: H{1009} local [inside loop 308] has the following parameter: G{1008} local [inside loop 307] has the following parameter: IQ{1007} local loop[303] has the following parameter: IR{1005} local loop[297] has the following parameter: IP{1001} local [inside LOOP 294] has the following parameter: TRESH{998} local [inside LOOP 291] has the following parameter: SM{995} local LOOP[289] has the following parameter: I{993} local loop[282] has the following parameter: IP{987} local [inside JACOBI! 277] has the following parameter: Z{981} local [inside JACOBI! 276] has region has the following parameter: B{980} local [inside JACOBI! 275] has region has the following parameter: V{979} local [inside JACOBI! 274] has the following parameter: D{978} local [inside JACOBI! 273] has the following parameter: N{977} local JACOBI![271] has the following parameter: A{975} local loop[265] has the following parameter: I{973} local loop[257] has the following parameter: J{968} local loop[251] has the following parameter: I{964} local loop[243] has the following parameter: J{959} local loop[234] has the following parameter: J{954} local [inside loop 231] has the following parameter: D{951} local loop[227] has the following parameter: K{949} local [inside loop 223] has the following parameter: D{945} local [inside loop 218] has the following parameter: E{943} local [inside loop 216] has the following parameter: E{941} local loop[210] has the following parameter: J{937} local loop[202] has the following parameter: I{930} local [inside INVERT-MATRIX! 197] has the following parameter: C{925} local [inside INVERT-MATRIX! 196] has the following parameter: N{924} local INVERT-MATRIX![194] has the following parameters: A{921} local B{922} local [inside loop 189] has the following parameter: V{918} local [inside loop 183] has the following parameter: X{916} local loop[179] has the following parameter: J{914} local loop[172] has the following parameter: J{910} local loop[164] has the following parameter: K{906} local [inside loop 161] has the following parameter: E{903} local loop[157] has the following parameter: J{901} local [inside loop 153] has the following parameter: C{896} local [inside loop 151] has the following parameters: INDEX{891} local GREATEST{892} local loop[147] has the following parameter: I{889} local loop[139] has the following parameter: J{885} local loop[133] has the following parameter: I{881} local [inside DETERMINANT 128] has the following parameter: D{876} local [inside DETERMINANT 127] has the following parameter: B{875} local [inside DETERMINANT 126] has the following parameter: N{874} local DETERMINANT[123] has the following parameter: A{871} local MATRIX-SET![120] has the following parameters: A{862} local I{863} local J{864} local X{865} local MAKE-MATRIX-INITIAL[115] has the following parameters: M{853} local N{854} local INITIAL{855} local LOOP[108] has the following parameters: L{848} local I{849} local POSITIONV[105] has the following parameters: X{844} local L{845} local LOOP[100] has region has the following parameters: L{842} local C{843} local REMOVE-IF-NOT[97] has the following parameter: L{839} local LOOP[92] has the following parameter: I{836} local [inside MAP-N-VECTOR 88] has the following parameter: V{832} local MAP-N-VECTOR[87] has the following parameter: N{831} local LOOP[85] has region has the following parameters: I{828} local C{829} local MAP-N[82] has the following parameter: N{825} local [inside ADD-EXP 80] has the following parameter: FACTOR{823} local [inside ADD-EXP 79] has the following parameter: E-MIN{822} local [inside ADD-EXP 78] has the following parameter: E-MAX{821} local ADD-EXP[77] has the following parameters: E1{819} local E2{820} local LOOP[75] has the following parameters: N{817} local C{818} local SUM[72] has the following parameter: N{814} local [inside LOOP 70] has the following parameter: v{812} local LOOP[69] has the following parameter: I{811} local EVERY-N[66] has the following parameter: N{808} local LOOP[64] has region has the following parameters: L{805} local C{806} local REDUCE[58] has the following parameters: L{801} local I{802} local LOOP[51] has the following parameters: N{798} local R{799} local [inside loop 48] has the following parameter: SLOP{795} local loop[46] has the following parameters: ILEN{793} local S{794} local [inside RANDOM:CHUNK 40] has the following parameter: ANS{788} local [inside RANDOM:CHUNK 39] has the following parameter: P{787} local loop[33] has region has the following parameter: I{784} local [inside top level 30] has the following parameter: NIBBLES{781} local [inside top level 28] has the following parameter: RANDOM-STRINGS{779} local [inside RANDOM:SIZE-INT 27] has the following parameter: TRIAL{778} local RANDOM:SIZE-INT[26] has region has the following parameter: L{777} local [inside LOGICAL:LOGXOR 24] reentrant LOOP[18] has the following parameters: S{772} local C{773} local loop[8] has region has the following parameter: I{766} local [inside top level 4] has the following parameters: MINUS-INFINITY{679} global LOG-MATH-PRECISION{680} global *RANDOM-STATE*{683} local RANDOM:MASK{684} local RANDOM:CHUNK-SIZE{685} local RANDOM:SIZE{687} global RANDOM:TAP{688} global LOGICAL:BOOLE-XOR{689} global *MOST-POSITIVE-FIXNUM*{692} local The following expression, em-imperative-stalin.sc:179:6319, allocates on [clone LOOP[85] 2759]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C) The following expression, em-imperative-stalin.sc:182:6388, allocates on EM-CLUSTERER[591]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-stalin.sc:182:6388, allocates on EM-CLUSTERER[591]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-stalin.sc:182:6388, allocates on EM-CLUSTERER[591]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-stalin.sc:182:6388, allocates on EM-CLUSTERER[591]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20) The following expression allocates on LOOP[1448]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC (# LIST1)) C) The following expression allocates on [inside EM-CLUSTERER 601]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR-REF) VECTOR K) (LOOP (# K 1))) The following expression allocates on HEX-STRING->NUMBER[15]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRING-REF) STRING K) (LOOP (# K 1))) The following expression allocates on loop[33]: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START)) The following expression allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression, em-imperative-stalin.sc:537:18609, allocates on loop[8]: (LIST I (POSITIONV (REDUCE MAX ZI MINUS-INFINITY) ZI)) The following expression, em-imperative-stalin.sc:510:17764, allocates on EM-CLUSTERER[591]: (MAKE-MODEL 0. ((PRIMITIVE-PROCEDURE MAKE-VECTOR) KK) (MAKE-MATRIX KK KK) 0. (MAKE-MATRIX KK KK) 0.) The following expression, em-imperative-stalin.sc:511:17790, allocates on EM-CLUSTERER[591]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) KK) The following expression, em-imperative-stalin.sc:524:18181, allocates on EM-CLUSTERER[591]: (LIST OLD-Z OLD-MODELS) The following expression, em-imperative-stalin.sc:299:10238, allocates on CLIP-EIGENVALUES![389]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-stalin.sc:301:10294, allocates on [inside JACOBI! 275]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-stalin.sc:302:10315, allocates on [inside JACOBI! 276]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N 0.) The following expression, em-imperative-stalin.sc:375:12950, allocates on CLIP-EIGENVALUES![389]: (LIST D V) The following expression, em-imperative-stalin.sc:205:6993, allocates on CLIP-EIGENVALUES![389]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL) The following expression, em-imperative-stalin.sc:202:6902, allocates on EM-CLUSTERER[591]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-stalin.sc:193:6667, allocates on LOOP[100]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (FIRST L) C) The following expression, em-imperative-stalin.sc:182:6388, allocates on CLIP-EIGENVALUES![389]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-stalin.sc:179:6319, allocates on LOOP[85]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C) The following expression, em-imperative-stalin.sc:156:5704, allocates on LOOP[64]: (F C (FIRST L)) The following expression, em-imperative-stalin.sc:108:4241, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) RANDOM:SIZE 1) 0) The following expression, em-imperative-stalin.sc:91:3418, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE QUOTIENT) RANDOM:CHUNK-SIZE 4) #\f) The following expression, em-imperative-stalin.sc:83:3177, allocates on RANDOM:SIZE-INT[26]: ((PRIMITIVE-PROCEDURE MAKE-STRING) L #\f) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W19740 is general case for the following reasons: nondegenerate nonheaded vector W16779 is general case for the following reasons: flonum W6611 is general case for the following reasons: flonum W6565 is general case for the following reasons: flonum W6563 is general case for the following reasons: flonum W6317 is general case for the following reasons: flonum W282 is general case for the following reasons: flonum W33 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code em-imperative-stalin.c: In function `f0': em-imperative-stalin.c:5313: warning: `a1232' might be used uninitialized in this function em-imperative-stalin.c:5314: warning: `a1233' might be used uninitialized in this function Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 2% - Expanding macros 4 - 3% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 1 - 1% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 16 - 12% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 0% - Determining which types and type sets are used 18 - 15% - Determining which call sites to split 0 - 0% - Computing call graph 1 - 1% - Determining which environments are called more than once 1 - 0% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 10 - 8% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 1 - 1% - Determining which environments are recursive 2 - 2% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 53 - 42% - Performing lightweight closure conversion 0 - 0% - Determining parents 1 - 1% - Determining which expressions need conversion to CPS 1 - 1% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 1 - 0% - Determining which environments have external continuation calls 1 - 1% - Determining blocked environments 0 - 0% - Determining allocations 2 - 1% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 1 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 4 - 3% - Generating code 3 - 3% - Removing unused declarations 1 - 1% - Removing unused labels 1 - 0% - Writing database 0 - 0% - Compiling C code 127.91user 0.24system 2:16.53elapsed 93%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33467major+222313minor)pagefaults 0swaps run em-imperative 1.81user 0.05system 0:01.90elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (96major+1383minor)pagefaults 0swaps compile em-imperative-split Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 19566 expressions 0 internal symbol types 0 external symbol types 69 primitive procedure types 195 non-called native procedure types 479 called noop native procedure types 713 called non-noop native procedure types 1 foreign procedure type 2 continuation types 4 string types 15 structure types 46 headed vector types 1 nonheaded vector type 0 displaced vector types 22439 type sets 865 hunoz variables 1927 non-hunoz variables 677 noop environments 2099 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 19627 expressions 0 internal symbol types 0 external symbol types 69 primitive procedure types 195 non-called native procedure types 480 called noop native procedure types 716 called non-noop native procedure types 1 foreign procedure type 2 continuation types 4 string types 16 structure types 46 headed vector types 1 nonheaded vector type 0 displaced vector types 22506 type sets 866 hunoz variables 1939 non-hunoz variables 678 noop environments 2111 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 9 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 7378 expressions 0 internal symbol types 0 external symbol types 69 primitive procedure types 195 non-called native procedure types 480 called noop native procedure types 716 called non-noop native procedure types 1 foreign procedure type 2 continuation types 4 string types 16 structure types 46 headed vector types 1 nonheaded vector type 0 displaced vector types 9034 type sets 563 hunoz variables 1019 non-hunoz variables 0 noop environments 725 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 9 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: WRITE2[2119] reentrant has the following parameters: OBJ{2534} local PORT{2535} local has the following in-lined locals: NUMBER{2523} PORT{2524} MANTISSA{2528} EXPONENT{2529} MANTISSA{2532} EXPONENT{2533} OBJ{2550} I{2562} DISPLAY-MANTISSA-EXPONENT2[2081] has the following parameters: MANTISSA{2507} local EXPONENT{2508} local PORT{2509} local has the following in-lined locals: FLOAT-DIGIT{2510} DIGIT{2511} MANTISSA{2518} FLOAT-DIGIT{2519} DIGIT{2520} MANTISSA{2522} DISPLAY-EXACT-INTEGER2[2052] has the following parameters: NUMBER{2486} local PORT{2487} local has the following in-lined locals: I{2490} NUMBER{2491} I{2494} I{2500} NUMBER{2501} I{2504} DISPLAY-STRING2[2043] has the following parameters: STRING{2479} local PORT{2480} local has the following in-lined locals: N{2481} I{2484} LOOP[1477] reentrant has the following parameter: K{2083} local LOOP[1412] reentrant has the following parameter: K{2029} local MODULO[1108] has the following parameters: N1{1671} local N2{1672} local has the following in-lined local: v{1673} ABS[1105] has the following parameter: X{1666} local REVERSE[949] has the following parameter: S{1529} local has the following in-lined locals: LIST{2800} LIST{2803} R{2804} CDR[795] has the following parameter: PAIR{1406} local M-STEP![581] has the following parameters: X{1267} local MODELS{1268} local Z{1269} local CLIP{1270} local has the following in-lined locals: X{836} X{839} Y{840} N{853} I{856} v{857} N{859} I{862} v{863} N{865} N{868} C{869} N{871} N{874} C{875} N{894} V{895} I{899} N{902} V{903} I{907} N{926} V{927} I{931} M{969} N{970} M{972} N{973} M{981} N{982} INITIAL{983} A{999} N{1002} B{1003} D{1004} I{1009} J{1013} I{1017} INDEX{1019} GREATEST{1020} C{1024} J{1029} E{1031} K{1034} J{1038} J{1042} X{1044} V{1046} A{1049} B{1050} N{1052} C{1053} I{1058} J{1065} E{1069} E{1071} D{1073} K{1077} D{1079} J{1082} J{1087} I{1092} J{1096} I{1101} A{1103} N{1105} D{1106} V{1107} B{1108} Z{1109} IP{1115} I{1121} SM{1123} TRESH{1126} IP{1129} IR{1133} IQ{1135} G{1136} H{1137} T{1138} C{1139} H{1142} J{1152} THETA{1163} IP{1166} IP{1170} IR{1171} IQ{1172} I{1175} P{1177} K{1178} J{1184} P{1186} L{1190} J{1192} I{1194} J{1195} A{1196} V{1197} J{1198} L{1199} E{1200} K1{1203} E-K1{1205} A-K1{1206} K2{1209} S{1211} E-K2{1212} K{1216} KK{1271} J{1274} MODEL{1276} MU{1277} SIGMA{1278} S{1279} I{1289} SI{1291} K{1294} M{1296} I{1300} SI{1302} K1{1305} MU-K1{1307} SIGMA-K1{1308} K2{1311} M{1313} MU-K2{1314} I{1318} PAIR{2799} E-STEP![516] has the following parameters: X{1218} local Z{1219} local MODELS{1220} local has the following in-lined locals: E1{876} E2{877} E-MAX{878} E-MIN{879} FACTOR{880} L{1222} I{1226} ZI{1228} S{1229} J{1234} J{1238} I{1242} ZI{1244} XI{1245} J{1248} MODEL{1250} LOG-PI{1251} MU{1252} SIGMA-INVERSE{1253} LOG-DETERMINANT-SIGMA{1254} T{1255} K1{1260} SIGMA-INVERSE-K1{1262} K2{1265} ROTATE[430] has the following parameters: A{1155} local I{1156} local J{1157} local K{1158} local L{1159} local has the following in-lined locals: H{1160} G{1161} MATRIX-ROW-SET![220] has the following parameters: A{996} local I{997} local V{998} local MATRIX-ROW-REF[219] has the following parameters: A{994} local I{995} local MATRIX-SET![218] has the following parameters: A{990} local I{991} local J{992} local X{993} local MATRIX-REF[217] has the following parameters: A{987} local I{988} local J{989} local MATRIX-COLUMNS[216] has the following parameter: A{986} local MATRIX-ROWS[215] has the following parameter: A{985} local RANDOM:CHUNK[38] has the following parameter: V{822} local has the following in-lined locals: P{823} ANS{824} LOGICAL:ASH-4[25] has the following parameter: X{812} local LOGICAL:LOGXOR[20] reentrant has the following parameters: N1{810} local N2{811} local HEX-STRING->NUMBER[15] has region has the following parameter: S{805} local has the following in-lined locals: S{808} C{809} CHAR1{1756} CHAR2{1757} CHAR1{1761} CHAR2{1762} CHAR1{1765} CHAR2{1766} CHAR1{1770} CHAR2{1771} CHAR{1821} VOID[13] [inside top level 0] has the following in-lined locals: *RANDOM-STATE*{701} RANDOM:MASK{702} RANDOM:CHUNK-SIZE{703} *MOST-POSITIVE-FIXNUM*{710} I{802} L{813} TRIAL{814} RANDOM-STRINGS{815} NIBBLES{817} I{820} ILEN{829} S{830} SLOP{831} N{834} R{835} X{837} X{838} X{841} Y{842} X{843} Y{844} L{846} I{847} L{850} C{851} N{882} I{885} C{886} N{888} I{891} C{892} N{910} V{911} I{915} N{918} V{919} I{923} N{934} V{935} I{939} N{942} V{943} I{947} N{950} V{951} I{955} L{958} L{961} C{962} X{963} L{964} L{967} I{968} M{975} N{976} M{978} N{979} X{1320} Z{1321} MODELS{1322} CLIP{1323} EM-KICK-OFF-TOLERANCE{1324} EM-CONVERGENCE-TOLERANCE{1325} OLD-LOG-LIKELIHOOD{1328} STARTING?{1329} LOG-LIKELIHOOD{1330} v{1331} v{1333} EPSILON{1334} II{1335} JJ{1336} S{1338} ZI{1339} J{1344} SI{1346} J{1349} X{1352} CLIP{1353} EM-KICK-OFF-TOLERANCE{1354} EM-CONVERGENCE-TOLERANCE{1355} EMS-CONVERGENCE-TOLERANCE{1356} JJ{1359} OLD-Z{1360} OLD-MODELS{1361} OLD-LOG-LIKELIHOOD{1362} KK{1363} Z{1364} MODELS{1365} NEW-LOG-LIKELIHOOD{1367} X{1369} CLIP{1370} EM-KICK-OFF-TOLERANCE{1371} EM-CONVERGENCE-TOLERANCE{1372} EMS-CONVERGENCE-TOLERANCE{1373} Z-MODELS{1374} Z{1375} MODELS{1376} CLUSTERS{1378} J{1379} CLUSTER{1380} CLUSTER{1381} I{1382} ZI{1383} OBJ1{1386} OBJ2{1387} v{1388} v{1389} PAIR{1405} LIST{1524} LIST{1527} R{1528} X{1632} XS{1633} R{1637} STRING{1998} START{1999} END{2000} R{2001} K{2005} LIST1{2151} LIST1{2155} C{2156} OBJ{2777} PAIR{2792} PAIR{2793} PAIR{2794} PAIR{2795} PAIR{2796} PAIR{2797} PAIR{2798} The following non-trivial in-line native procedures will be generated: [clone LOOP[947] 2787] has the following parameters: LIST{2803} local R{2804} local [clone LIST-REVERSE[944] 2784] has the following parameter: LIST{2800} local [clone CAR[794] 2783] has the following parameter: PAIR{2799} local [clone CAR[794] 2782] has the following parameter: PAIR{2798} local [clone CAR[794] 2781] has the following parameter: PAIR{2797} local [clone CAR[794] 2780] has the following parameter: PAIR{2796} local [clone CAR[794] 2779] has the following parameter: PAIR{2795} local [clone CAR[794] 2778] has the following parameter: PAIR{2794} local [clone CAR[794] 2777] has the following parameter: PAIR{2793} local [clone CAR[794] 2776] has the following parameter: PAIR{2792} local WRITE[2526] has the following parameter: OBJ{2777} local [inside LOOP 2167] reentrant [inside LOOP 2166] reentrant LOOP[2165] reentrant has the following parameter: I{2562} local [inside WRITE2 2162] reentrant [inside WRITE2 2161] reentrant [inside WRITE2 2159] reentrant [inside LOOP 2156] reentrant [inside LOOP 2155] reentrant [inside LOOP 2154] reentrant [inside LOOP 2152] reentrant LOOP[2151] reentrant has the following parameter: OBJ{2550} local [inside WRITE2 2148] reentrant [inside WRITE2 2147] reentrant LOOP[2116] has the following parameters: MANTISSA{2532} local EXPONENT{2533} local LOOP[2111] has the following parameters: MANTISSA{2528} local EXPONENT{2529} local DISPLAY-INEXACT-REAL2[2102] has the following parameters: NUMBER{2523} local PORT{2524} local [inside LOOP 2099] has the following parameter: MANTISSA{2522} local [inside LOOP 2096] has the following parameter: DIGIT{2520} local [inside LOOP 2095] has the following parameter: FLOAT-DIGIT{2519} local LOOP[2094] has the following parameter: MANTISSA{2518} local [inside DISPLAY-MANTISSA-EXPONENT2 2083] has the following parameter: DIGIT{2511} local [inside DISPLAY-MANTISSA-EXPONENT2 2082] has the following parameter: FLOAT-DIGIT{2510} local LOOP[2073] has the following parameter: I{2504} local LOOP[2070] has the following parameters: I{2500} local NUMBER{2501} local LOOP[2059] has the following parameter: I{2494} local LOOP[2056] has the following parameters: I{2490} local NUMBER{2491} local LOOP[2047] has the following parameter: I{2484} local [inside DISPLAY-STRING2 2044] has the following parameter: N{2481} local [inside top level 2039] has the following parameters: THE-CURRENT-OUTPUT-PORT{2440} global BUFFER{2442} global LOOP[1564] has region has the following parameters: LIST1{2155} local C{2156} local MAP[1560] has the following parameter: LIST1{2151} local VECTOR->LIST[1474] has the following parameter: VECTOR{2080} global [inside STRING->LIST 1409] has the following parameter: N{2026} global STRING->LIST[1408] has the following parameter: STRING{2025} global LOOP[1380] has the following parameter: K{2005} local [inside SUBSTRING 1376] has the following parameter: R{2001} local SUBSTRING[1375] has the following parameters: STRING{1998} local START{1999} local END{2000} local CHAR-NUMERIC?[1234] has the following parameter: CHAR{1821} local LOOP?[1199] has the following parameters: CHAR1{1770} local CHAR2{1771} local CHAR>=?[1196] has the following parameters: CHAR1{1765} local CHAR2{1766} local LOOP?[1193] has the following parameters: CHAR1{1761} local CHAR2{1762} local CHAR<=?[1190] has the following parameters: CHAR1{1756} local CHAR2{1757} local [inside MODULO 1109] has the following parameter: v{1673} local LOOP[1078] has the following parameter: R{1637} local MAX[1075] has the following parameters: X{1632} local XS{1633} local LOOP[947] has the following parameters: LIST{1527} local R{1528} local LIST-REVERSE[944] has the following parameter: LIST{1524} local CAR[794] has the following parameter: PAIR{1405} local [inside EQV? 780] has the following parameter: v{1389} local [inside EQV? 779] has the following parameter: v{1388} local EQV?[778] has the following parameters: OBJ1{1386} local OBJ2{1387} local [inside EM-CLUSTERER 700] has the following parameter: ZI{1383} local [inside EM-CLUSTERER 699] has region has the following parameter: I{1382} local [inside EM-CLUSTERER 698] has the following parameter: CLUSTER{1381} local [inside EM-CLUSTERER 697] has the following parameter: CLUSTER{1380} local [inside EM-CLUSTERER 696] has the following parameter: J{1379} local [inside EM-CLUSTERER 695] has the following parameter: CLUSTERS{1378} local [inside EM-CLUSTERER 692] has the following parameter: MODELS{1376} local [inside EM-CLUSTERER 691] has the following parameter: Z{1375} local [inside EM-CLUSTERER 690] has the following parameter: Z-MODELS{1374} local EM-CLUSTERER[689] has region has the following parameters: X{1369} local CLIP{1370} local EM-KICK-OFF-TOLERANCE{1371} local EM-CONVERGENCE-TOLERANCE{1372} local EMS-CONVERGENCE-TOLERANCE{1373} local [inside LOOP 686] has the following parameter: NEW-LOG-LIKELIHOOD{1367} local [inside LOOP 683] has the following parameter: MODELS{1365} local [inside LOOP 682] has the following parameter: Z{1364} local [inside LOOP 681] has the following parameter: KK{1363} local LOOP[680] has the following parameters: JJ{1359} local OLD-Z{1360} local OLD-MODELS{1361} local OLD-LOG-LIKELIHOOD{1362} local EMS[677] has the following parameters: X{1352} local CLIP{1353} local EM-KICK-OFF-TOLERANCE{1354} local EM-CONVERGENCE-TOLERANCE{1355} local EMS-CONVERGENCE-TOLERANCE{1356} local loop[671] has the following parameter: J{1349} local [inside INITIAL-Z 668] has the following parameter: SI{1346} local loop[663] has the following parameter: J{1344} local [inside INITIAL-Z 659] has the following parameters: S{1338} local ZI{1339} local INITIAL-Z[657] has the following parameters: II{1335} local JJ{1336} local NOISE[656] has the following parameter: EPSILON{1334} local [inside LOOP 653] has the following parameter: v{1333} local [inside LOOP 650] has the following parameter: v{1331} local [inside LOOP 649] has the following parameter: LOG-LIKELIHOOD{1330} local LOOP[648] has the following parameters: OLD-LOG-LIKELIHOOD{1328} local STARTING?{1329} local EM![645] has the following parameters: X{1320} local Z{1321} local MODELS{1322} local CLIP{1323} local EM-KICK-OFF-TOLERANCE{1324} local EM-CONVERGENCE-TOLERANCE{1325} local loop[637] has the following parameter: I{1318} local [inside loop 633] has the following parameters: M{1313} local MU-K2{1314} local loop[629] has the following parameter: K2{1311} local [inside loop 626] has the following parameters: MU-K1{1307} local SIGMA-K1{1308} local loop[622] has the following parameter: K1{1305} local [inside loop 619] has the following parameter: SI{1302} local loop[613] has the following parameter: I{1300} local [inside loop 609] has the following parameter: M{1296} local loop[605] has the following parameter: K{1294} local [inside loop 602] has the following parameter: SI{1291} local loop[597] has the following parameter: I{1289} local [inside loop 592] has the following parameter: S{1279} local [inside loop 591] has the following parameter: SIGMA{1278} local [inside loop 590] has the following parameter: MU{1277} local [inside loop 589] has the following parameter: MODEL{1276} local loop[585] has the following parameter: J{1274} local [inside M-STEP! 582] has the following parameter: KK{1271} local loop[573] has the following parameter: K2{1265} local [inside loop 570] has the following parameter: SIGMA-INVERSE-K1{1262} local loop[566] has the following parameter: K1{1260} local [inside loop 561] has the following parameter: T{1255} local [inside loop 560] has the following parameter: LOG-DETERMINANT-SIGMA{1254} local [inside loop 559] has the following parameter: SIGMA-INVERSE{1253} local [inside loop 558] has the following parameter: MU{1252} local [inside loop 557] has the following parameter: LOG-PI{1251} local [inside loop 556] has the following parameter: MODEL{1250} local loop[552] has the following parameter: J{1248} local [inside loop 549] has the following parameters: ZI{1244} local XI{1245} local loop[545] has the following parameter: I{1242} local loop[537] has the following parameter: J{1238} local loop[530] has the following parameter: J{1234} local [inside loop 526] has the following parameters: ZI{1228} local S{1229} local loop[522] has the following parameter: I{1226} local [inside E-STEP! 518] has the following parameter: L{1222} local loop[509] has the following parameter: K{1216} local [inside loop 505] has the following parameters: S{1211} local E-K2{1212} local loop[501] has the following parameter: K2{1209} local [inside loop 498] has the following parameters: E-K1{1205} local A-K1{1206} local loop[494] has the following parameter: K1{1203} local [inside CLIP-EIGENVALUES! 490] has the following parameter: E{1200} local [inside CLIP-EIGENVALUES! 489] has the following parameter: L{1199} local [inside CLIP-EIGENVALUES! 488] has the following parameter: J{1198} local CLIP-EIGENVALUES![487] has region has the following parameters: A{1196} local V{1197} local [inside JACOBI! 485] has the following parameter: J{1195} local [inside JACOBI! 484] has the following parameter: I{1194} local [inside loop 477] has the following parameter: J{1192} local loop[473] has the following parameter: L{1190} local [inside loop 467] has the following parameter: P{1186} local loop[463] has the following parameter: J{1184} local [inside loop 457] has the following parameters: P{1177} local K{1178} local loop[453] has the following parameter: I{1175} local [inside LOOP 448] has the following parameter: IQ{1172} local [inside LOOP 447] has the following parameter: IR{1171} local [inside LOOP 446] has the following parameter: IP{1170} local loop[440] has the following parameter: IP{1166} local [inside loop 434] has the following parameter: THETA{1163} local [inside ROTATE 431] has the following parameters: H{1160} local G{1161} local loop[421] has the following parameter: J{1152} local [inside loop 415] has the following parameter: H{1142} local [inside loop 414] has the following parameter: TAU{1141} global [inside loop 413] has the following parameter: S{1140} global [inside loop 412] has the following parameter: C{1139} local [inside loop 411] has the following parameter: T{1138} local [inside loop 410] has the following parameter: H{1137} local [inside loop 406] has the following parameter: G{1136} local [inside loop 405] has the following parameter: IQ{1135} local loop[401] has the following parameter: IR{1133} local loop[395] has the following parameter: IP{1129} local [inside LOOP 392] has the following parameter: TRESH{1126} local [inside LOOP 389] has the following parameter: SM{1123} local LOOP[387] has the following parameter: I{1121} local loop[380] has the following parameter: IP{1115} local [inside JACOBI! 375] has the following parameter: Z{1109} local [inside JACOBI! 374] has region has the following parameter: B{1108} local [inside JACOBI! 373] has region has the following parameter: V{1107} local [inside JACOBI! 372] has the following parameter: D{1106} local [inside JACOBI! 371] has the following parameter: N{1105} local JACOBI![369] has the following parameter: A{1103} local loop[363] has the following parameter: I{1101} local loop[355] has the following parameter: J{1096} local loop[349] has the following parameter: I{1092} local loop[341] has the following parameter: J{1087} local loop[332] has the following parameter: J{1082} local [inside loop 329] has the following parameter: D{1079} local loop[325] has the following parameter: K{1077} local [inside loop 321] has the following parameter: D{1073} local [inside loop 316] has the following parameter: E{1071} local [inside loop 314] has the following parameter: E{1069} local loop[308] has the following parameter: J{1065} local loop[300] has the following parameter: I{1058} local [inside INVERT-MATRIX! 295] has the following parameter: C{1053} local [inside INVERT-MATRIX! 294] has region has the following parameter: N{1052} local INVERT-MATRIX![292] has the following parameters: A{1049} local B{1050} local [inside loop 287] has the following parameter: V{1046} local [inside loop 281] has the following parameter: X{1044} local loop[277] has the following parameter: J{1042} local loop[270] has the following parameter: J{1038} local loop[262] has the following parameter: K{1034} local [inside loop 259] has the following parameter: E{1031} local loop[255] has the following parameter: J{1029} local [inside loop 251] has the following parameter: C{1024} local [inside loop 249] has the following parameters: INDEX{1019} local GREATEST{1020} local loop[245] has the following parameter: I{1017} local loop[237] has the following parameter: J{1013} local loop[231] has the following parameter: I{1009} local [inside DETERMINANT 226] has the following parameter: D{1004} local [inside DETERMINANT 225] has the following parameter: B{1003} local [inside DETERMINANT 224] has region has the following parameter: N{1002} local DETERMINANT[221] has the following parameter: A{999} local MAKE-MATRIX-INITIAL[213] has the following parameters: M{981} local N{982} local INITIAL{983} local MAKE-MATRIX4[211] has the following parameters: M{978} local N{979} local MAKE-MATRIX3[209] has the following parameters: M{975} local N{976} local MAKE-MATRIX2[207] has the following parameters: M{972} local N{973} local MAKE-MATRIX1[205] has the following parameters: M{969} local N{970} local LOOP[200] has the following parameters: L{967} local I{968} local POSITIONV[197] has the following parameters: X{963} local L{964} local LOOP[192] has region has the following parameters: L{961} local C{962} local REMOVE-IF-NOT[189] has the following parameter: L{958} local LOOP[184] has the following parameter: I{955} local [inside MAP-N-VECTOR8 180] has the following parameter: V{951} local MAP-N-VECTOR8[179] has the following parameter: N{950} local LOOP[174] has the following parameter: I{947} local [inside MAP-N-VECTOR7 170] has the following parameter: V{943} local MAP-N-VECTOR7[169] has the following parameter: N{942} local LOOP[164] has the following parameter: I{939} local [inside MAP-N-VECTOR6 160] has the following parameter: V{935} local MAP-N-VECTOR6[159] has the following parameter: N{934} local LOOP[154] has the following parameter: I{931} local [inside MAP-N-VECTOR5 150] has the following parameter: V{927} local MAP-N-VECTOR5[149] has the following parameter: N{926} local LOOP[144] has the following parameter: I{923} local [inside MAP-N-VECTOR4 140] has the following parameter: V{919} local MAP-N-VECTOR4[139] has the following parameter: N{918} local LOOP[134] has the following parameter: I{915} local [inside MAP-N-VECTOR3 130] has the following parameter: V{911} local MAP-N-VECTOR3[129] has the following parameter: N{910} local LOOP[124] has the following parameter: I{907} local [inside MAP-N-VECTOR2 120] has the following parameter: V{903} local MAP-N-VECTOR2[119] has the following parameter: N{902} local LOOP[114] has the following parameter: I{899} local [inside MAP-N-VECTOR1 110] has the following parameter: V{895} local MAP-N-VECTOR1[109] has the following parameter: N{894} local LOOP[107] has region has the following parameters: I{891} local C{892} local MAP-N2[104] has the following parameter: N{888} local LOOP[102] has region has the following parameters: I{885} local C{886} local MAP-N1[99] has the following parameter: N{882} local [inside ADD-EXP 97] has the following parameter: FACTOR{880} local [inside ADD-EXP 96] has the following parameter: E-MIN{879} local [inside ADD-EXP 95] has the following parameter: E-MAX{878} local ADD-EXP[94] has the following parameters: E1{876} local E2{877} local LOOP[92] has the following parameters: N{874} local C{875} local SUM2[89] has the following parameter: N{871} local LOOP[87] has the following parameters: N{868} local C{869} local SUM1[84] has the following parameter: N{865} local [inside LOOP 82] has the following parameter: v{863} local LOOP[81] has the following parameter: I{862} local EVERY-N2[78] has the following parameter: N{859} local [inside LOOP 76] has the following parameter: v{857} local LOOP[75] has the following parameter: I{856} local EVERY-N1[72] has the following parameter: N{853} local LOOP[70] has region has the following parameters: L{850} local C{851} local REDUCE[64] has the following parameters: L{846} local I{847} local LIST-TWO3[63] has the following parameters: X{843} local Y{844} local LIST-TWO2[62] has the following parameters: X{841} local Y{842} local LIST-TWO1[61] has the following parameters: X{839} local Y{840} local SECOND3[60] has the following parameter: X{838} local SECOND2[59] has the following parameter: X{837} local SECOND1[58] has the following parameter: X{836} local LOOP[51] has the following parameters: N{834} local R{835} local [inside loop 48] has the following parameter: SLOP{831} local loop[46] has the following parameters: ILEN{829} local S{830} local [inside RANDOM:CHUNK 40] has the following parameter: ANS{824} local [inside RANDOM:CHUNK 39] has the following parameter: P{823} local loop[33] has region has the following parameter: I{820} local [inside top level 30] has the following parameter: NIBBLES{817} local [inside top level 28] has the following parameter: RANDOM-STRINGS{815} local [inside RANDOM:SIZE-INT 27] has the following parameter: TRIAL{814} local RANDOM:SIZE-INT[26] has region has the following parameter: L{813} local [inside LOGICAL:LOGXOR 24] reentrant LOOP[18] has the following parameters: S{808} local C{809} local loop[8] has region has the following parameter: I{802} local [inside top level 4] has the following parameters: MINUS-INFINITY{697} global LOG-MATH-PRECISION{698} global *RANDOM-STATE*{701} local RANDOM:MASK{702} local RANDOM:CHUNK-SIZE{703} local RANDOM:SIZE{705} global RANDOM:TAP{706} global LOGICAL:BOOLE-XOR{707} global *MOST-POSITIVE-FIXNUM*{710} local The following expression allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20) The following expression allocates on LOOP[1564]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC (# LIST1)) C) The following expression allocates on [inside EM-CLUSTERER 699]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR-REF) VECTOR K) (LOOP (# K 1))) The following expression allocates on HEX-STRING->NUMBER[15]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRING-REF) STRING K) (LOOP (# K 1))) The following expression allocates on loop[33]: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START)) The following expression allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression, em-imperative-split-stalin.sc:594:19718, allocates on EM-CLUSTERER[689]: (MAKE-MODEL 0. ((PRIMITIVE-PROCEDURE MAKE-VECTOR) KK) (MAKE-MATRIX3 KK KK) 0. (MAKE-MATRIX4 KK KK) 0.) The following expression, em-imperative-split-stalin.sc:595:19744, allocates on EM-CLUSTERER[689]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) KK) The following expression, em-imperative-split-stalin.sc:383:12177, allocates on CLIP-EIGENVALUES![487]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-split-stalin.sc:385:12233, allocates on [inside JACOBI! 373]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-split-stalin.sc:386:12254, allocates on [inside JACOBI! 374]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N 0.) The following expression, em-imperative-split-stalin.sc:289:8922, allocates on CLIP-EIGENVALUES![487]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL) The following expression, em-imperative-split-stalin.sc:286:8830, allocates on EM-CLUSTERER[689]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-split-stalin.sc:284:8754, allocates on EM-CLUSTERER[689]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-split-stalin.sc:282:8678, allocates on [inside INVERT-MATRIX! 294]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-split-stalin.sc:280:8602, allocates on [inside DETERMINANT 224]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-split-stalin.sc:271:8365, allocates on LOOP[192]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (FIRST L) C) The following expression, em-imperative-split-stalin.sc:260:8086, allocates on EM-CLUSTERER[689]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-split-stalin.sc:252:7925, allocates on EM-CLUSTERER[689]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-split-stalin.sc:244:7764, allocates on EM-CLUSTERER[689]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-split-stalin.sc:236:7603, allocates on CLIP-EIGENVALUES![487]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-split-stalin.sc:228:7442, allocates on EM-CLUSTERER[689]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-split-stalin.sc:220:7281, allocates on EM-CLUSTERER[689]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-split-stalin.sc:212:7120, allocates on [inside INVERT-MATRIX! 294]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-split-stalin.sc:204:6959, allocates on [inside DETERMINANT 224]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-split-stalin.sc:201:6889, allocates on LOOP[107]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C) The following expression, em-imperative-split-stalin.sc:196:6743, allocates on LOOP[102]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C) The following expression, em-imperative-split-stalin.sc:166:5934, allocates on LOOP[70]: (F C (FIRST L)) The following expression, em-imperative-split-stalin.sc:160:5740, allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '())) The following expression, em-imperative-split-stalin.sc:160:5748, allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '()) The following expression, em-imperative-split-stalin.sc:158:5692, allocates on EM-CLUSTERER[689]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '())) The following expression, em-imperative-split-stalin.sc:158:5700, allocates on EM-CLUSTERER[689]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '()) The following expression, em-imperative-split-stalin.sc:156:5644, allocates on CLIP-EIGENVALUES![487]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '())) The following expression, em-imperative-split-stalin.sc:156:5652, allocates on CLIP-EIGENVALUES![487]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y '()) The following expression, em-imperative-split-stalin.sc:108:4241, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) RANDOM:SIZE 1) 0) The following expression, em-imperative-split-stalin.sc:91:3418, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE QUOTIENT) RANDOM:CHUNK-SIZE 4) #\f) The following expression, em-imperative-split-stalin.sc:83:3177, allocates on RANDOM:SIZE-INT[26]: ((PRIMITIVE-PROCEDURE MAKE-STRING) L #\f) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W19632 is general case for the following reasons: nondegenerate nonheaded vector W6160 is general case for the following reasons: flonum W6114 is general case for the following reasons: flonum W6112 is general case for the following reasons: flonum W5866 is general case for the following reasons: flonum W35 is general case for the following reasons: flonum W15 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code em-imperative-split-stalin.c: In function `f0': em-imperative-split-stalin.c:5009: warning: `a1360' might be used uninitialized in this function em-imperative-split-stalin.c:5010: warning: `a1361' might be used uninitialized in this function Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 2% - Expanding macros 4 - 3% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 2 - 2% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 16 - 12% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 0% - Determining which types and type sets are used 19 - 15% - Determining which call sites to split 0 - 0% - Computing call graph 1 - 1% - Determining which environments are called more than once 1 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 10 - 8% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 1 - 1% - Determining which environments are recursive 3 - 2% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 54 - 41% - Performing lightweight closure conversion 0 - 0% - Determining parents 2 - 1% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 1 - 0% - Determining which environments have external continuation calls 1 - 1% - Determining blocked environments 0 - 0% - Determining allocations 2 - 2% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 4 - 3% - Generating code 3 - 2% - Removing unused declarations 1 - 1% - Removing unused labels 1 - 1% - Writing database 0 - 0% - Compiling C code 132.04user 0.42system 2:19.47elapsed 94%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33471major+221820minor)pagefaults 0swaps run em-imperative-split 1.80user 0.00system 0:01.88elapsed 95%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (97major+66minor)pagefaults 0swaps compile nfm Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 17496 expressions 18 internal symbol types 1 external symbol type 76 primitive procedure types 185 non-called native procedure types 438 called noop native procedure types 809 called non-noop native procedure types 1 foreign procedure type 3 continuation types 4 string types 142 structure types 16 headed vector types 1 nonheaded vector type 0 displaced vector types 20235 type sets 764 hunoz variables 1668 non-hunoz variables 591 noop environments 1877 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 7 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 29680 expressions 18 internal symbol types 1 external symbol type 76 primitive procedure types 189 non-called native procedure types 645 called noop native procedure types 1762 called non-noop native procedure types 1 foreign procedure type 3 continuation types 4 string types 146 structure types 16 headed vector types 1 nonheaded vector type 0 displaced vector types 34114 type sets 971 hunoz variables 3510 non-hunoz variables 798 noop environments 3372 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 7 Maximal clone rate is 108 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 17375 expressions 18 internal symbol types 1 external symbol type 76 primitive procedure types 185 non-called native procedure types 645 called noop native procedure types 1762 called non-noop native procedure types 1 foreign procedure type 3 continuation types 4 string types 146 structure types 16 headed vector types 1 nonheaded vector type 0 displaced vector types 20784 type sets 716 hunoz variables 2740 non-hunoz variables 0 noop environments 2124 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 7 Maximal clone rate is 108 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: WRITE2[1811] has the following parameters: OBJ{2174} local PORT{2175} local has the following in-lined locals: STRING{2119} PORT{2120} N{2121} I{2124} NUMBER{2126} PORT{2127} I{2130} NUMBER{2131} I{2134} I{2140} NUMBER{2141} I{2144} LOOKUP-CHARACTER-NAME[1691] has the following parameter: S{2064} local has the following in-lined locals: CHAR1{1414} CHAR2{1415} CHAR1{1419} CHAR2{1420} NAMES{2067} S{2071} NAME{2072} v{2073} CHAR{3688} CHAR{3689} READ-SYMBOL[1685] has region has the following parameter: S{2061} local has the following in-lined locals: C{2062} &REST{2458} &REST{2516} LIST{3617} LIST{3620} R{3621} LIST{3622} LIST{3625} R{3626} CHAR{3690} C{3716} v{3717} v{3718} v{3719} v{3720} CHAR{3774} CHAR1{3775} CHAR2{3776} CHAR1{3780} CHAR2{3781} CHAR1{3784} CHAR2{3785} CHAR1{3789} CHAR2{3790} CHAR1{3793} CHAR2{3794} CHAR1{3798} CHAR2{3799} CHAR1{3802} CHAR2{3803} CHAR1{3807} CHAR2{3808} CHAR1{3811} CHAR2{3812} CHAR1{3816} CHAR2{3817} CHAR-INITIAL?[1665] has the following parameter: C{2041} local has the following in-lined locals: v{2042} v{2043} v{2044} v{2045} v{2046} v{2047} v{2048} v{2049} v{2050} v{2051} v{2052} v{2053} v{2054} v{2055} CHAR1{3382} CHAR2{3383} CHAR1{3387} CHAR2{3388} CHAR1{3391} CHAR2{3392} CHAR1{3396} CHAR2{3397} CHAR1{3400} CHAR2{3401} CHAR1{3405} CHAR2{3406} CHAR1{3409} CHAR2{3410} CHAR1{3414} CHAR2{3415} CHAR1{3418} CHAR2{3419} CHAR1{3423} CHAR2{3424} CHAR1{3427} CHAR2{3428} CHAR1{3432} CHAR2{3433} CHAR1{3436} CHAR2{3437} CHAR1{3441} CHAR2{3442} CHAR1{3445} CHAR2{3446} CHAR1{3450} CHAR2{3451} CHAR1{3454} CHAR2{3455} CHAR1{3459} CHAR2{3460} CHAR1{3463} CHAR2{3464} CHAR1{3468} CHAR2{3469} CHAR1{3472} CHAR2{3473} CHAR1{3477} CHAR2{3478} CHAR1{3481} CHAR2{3482} CHAR1{3486} CHAR2{3487} CHAR1{3490} CHAR2{3491} CHAR1{3495} CHAR2{3496} CHAR1{3499} CHAR2{3500} CHAR1{3504} CHAR2{3505} CHAR{3694} v{3695} CHAR1{3738} CHAR2{3739} CHAR1{3743} CHAR2{3744} CHAR1{3747} CHAR2{3748} CHAR1{3752} CHAR2{3753} CHAR1{3756} CHAR2{3757} CHAR1{3761} CHAR2{3762} CHAR1{3765} CHAR2{3766} CHAR1{3770} CHAR2{3771} READ-NUMBER[1631] has region has the following parameter: N{2019} local has the following in-lined locals: CHAR{1461} C1{2020} v{2023} v{2024} v{2025} v{2026} v{2027} v{2028} v{2029} v{2030} v{2031} C2{2033} C3{2035} C3{2038} &REST{2459} &REST{2465} &REST{2466} &REST{2467} &REST{2468} &REST{2469} &REST{2517} CHAR1{2635} CHAR2{2636} CHAR1{2640} CHAR2{2641} CHAR1{2752} CHAR2{2753} CHAR1{2757} CHAR2{2758} CHAR1{2779} CHAR2{2780} CHAR1{2784} CHAR2{2785} CHAR1{2788} CHAR2{2789} CHAR1{2793} CHAR2{2794} CHAR1{3283} CHAR2{3284} CHAR1{3288} CHAR2{3289} CHAR1{3292} CHAR2{3293} CHAR1{3297} CHAR2{3298} CHAR1{3301} CHAR2{3302} CHAR1{3306} CHAR2{3307} CHAR1{3310} CHAR2{3311} CHAR1{3315} CHAR2{3316} CHAR1{3319} CHAR2{3320} CHAR1{3324} CHAR2{3325} CHAR1{3328} CHAR2{3329} CHAR1{3333} CHAR2{3334} CHAR1{3337} CHAR2{3338} CHAR1{3342} CHAR2{3343} CHAR1{3346} CHAR2{3347} CHAR1{3351} CHAR2{3352} CHAR1{3355} CHAR2{3356} CHAR1{3360} CHAR2{3361} CHAR1{3364} CHAR2{3365} CHAR1{3369} CHAR2{3370} CHAR1{3373} CHAR2{3374} CHAR1{3378} CHAR2{3379} CHAR{3627} CHAR{3628} CHAR{3650} CHAR1{3829} CHAR2{3830} CHAR1{3834} CHAR2{3835} CHAR1{3838} CHAR2{3839} CHAR1{3843} CHAR2{3844} CHAR1{3847} CHAR2{3848} CHAR1{3852} CHAR2{3853} CHAR1{3856} CHAR2{3857} CHAR1{3861} CHAR2{3862} CHAR1{3883} CHAR2{3884} CHAR1{3888} CHAR2{3889} CHAR1{3964} CHAR2{3965} CHAR1{3969} CHAR2{3970} READ-INEXACT-NUMBER[1599] has region has the following parameters: N{1997} local M{1998} local has the following in-lined locals: C1{1999} v{2001} v{2002} v{2003} v{2004} v{2005} v{2006} v{2007} v{2008} v{2009} C2{2011} C3{2013} C3{2016} &REST{2454} &REST{2497} &REST{2498} &REST{2500} &REST{2501} &REST{2502} CHAR1{2959} CHAR2{2960} CHAR1{2964} CHAR2{2965} CHAR1{2968} CHAR2{2969} CHAR1{2973} CHAR2{2974} CHAR1{2977} CHAR2{2978} CHAR1{2982} CHAR2{2983} CHAR1{2986} CHAR2{2987} CHAR1{2991} CHAR2{2992} CHAR1{2995} CHAR2{2996} CHAR1{3000} CHAR2{3001} CHAR1{3004} CHAR2{3005} CHAR1{3009} CHAR2{3010} CHAR1{3013} CHAR2{3014} CHAR1{3018} CHAR2{3019} CHAR1{3022} CHAR2{3023} CHAR1{3027} CHAR2{3028} CHAR1{3031} CHAR2{3032} CHAR1{3036} CHAR2{3037} CHAR1{3040} CHAR2{3041} CHAR1{3045} CHAR2{3046} CHAR1{3049} CHAR2{3050} CHAR1{3054} CHAR2{3055} CHAR1{3058} CHAR2{3059} CHAR1{3063} CHAR2{3064} CHAR{3638} CHAR{3640} CHAR{3641} CHAR{3642} CHAR1{3892} CHAR2{3893} CHAR1{3897} CHAR2{3898} CHAR1{3901} CHAR2{3902} CHAR1{3906} CHAR2{3907} CHAR1{3910} CHAR2{3911} CHAR1{3915} CHAR2{3916} CHAR1{3919} CHAR2{3920} CHAR1{3924} CHAR2{3925} CHAR1{3928} CHAR2{3929} CHAR1{3933} CHAR2{3934} CHAR1{3937} CHAR2{3938} CHAR1{3942} CHAR2{3943} CHAR1{3946} CHAR2{3947} CHAR1{3951} CHAR2{3952} CHAR1{3955} CHAR2{3956} CHAR1{3960} CHAR2{3961} READ-EXACT-HEXADECIMAL-INTEGER[1589] has region has the following parameter: N{1992} local has the following in-lined locals: C{1993} &REST{2455} &REST{2506} &REST{2507} &REST{2508} CHAR1{2554} CHAR2{2555} CHAR1{2559} CHAR2{2560} CHAR1{2563} CHAR2{2564} CHAR1{2568} CHAR2{2569} CHAR1{2698} CHAR2{2699} CHAR1{2703} CHAR2{2704} CHAR1{2707} CHAR2{2708} CHAR1{2712} CHAR2{2713} CHAR{3646} CHAR1{4319} CHAR2{4320} CHAR1{4324} CHAR2{4325} CHAR1{4328} CHAR2{4329} CHAR1{4333} CHAR2{4334} READ-EXACT-DECIMAL-INTEGER[1583] has region has the following parameter: N{1989} local has the following in-lined locals: C{1990} &REST{2453} &REST{2499} CHAR{3639} CHAR1{3865} CHAR2{3866} CHAR1{3870} CHAR2{3871} CHAR1{3874} CHAR2{3875} CHAR1{3879} CHAR2{3880} READ-EXACT-OCTAL-INTEGER[1577] has region has the following parameter: N{1986} local has the following in-lined locals: CHAR1{1405} CHAR2{1406} CHAR1{1410} CHAR2{1411} C{1987} &REST{2452} &REST{2490} CHAR1{2644} CHAR2{2645} CHAR1{2649} CHAR2{2650} READ-EXACT-BINARY-INTEGER[1569] has region has the following parameter: N{1982} local has the following in-lined locals: C{1983} &REST{2451} &REST{2485} &REST{2486} CHAR1{2851} CHAR2{2852} CHAR1{2856} CHAR2{2857} CHAR1{2860} CHAR2{2861} CHAR1{2865} CHAR2{2866} READ[1336] reentrant has region has the following parameter: STATE{1864} local has the following in-lined locals: OBJS{1089} LIST{1164} LIST{1167} R{1168} CHAR1{1378} CHAR2{1379} CHAR1{1383} CHAR2{1384} CHAR1{1387} CHAR2{1388} CHAR1{1392} CHAR2{1393} CHAR1{1396} CHAR2{1397} CHAR1{1401} CHAR2{1402} CHAR{1459} v{1460} CHAR{1462} C{1463} v{1464} v{1465} v{1466} v{1467} CHAR{1472} LIST{1724} R{1725} K{1729} C1{1887} C2{1892} S{1897} E{1898} E1{1900} S{1904} C{1905} C2{1906} v{1908} v{1909} v{1910} C3{1911} C4{1913} C4{1915} v{1917} C3{1918} C4{1920} v{1923} C4{1924} v{1927} v{1928} C3{1929} C4{1931} C5{1933} C4{1936} C5{1938} C4{1941} v{1944} C3{1945} C4{1947} C4{1949} S{1953} E{1954} C3{1955} S{1959} C{1960} C1{1962} C2{1964} C3{1967} C2{1971} C3{1974} C2{1978} C{2056} v{2057} v{2058} v{2059} v{2060} S{2074} C{2075} &REST{2415} OBJS{2432} OBJS{2433} OBJS{2434} OBJS{2435} OBJS{2436} OBJS{2437} OBJS{2438} OBJS{2439} OBJS{2440} OBJS{2441} &REST{2447} &REST{2448} &REST{2449} &REST{2450} &REST{2456} &REST{2457} &REST{2470} &REST{2471} &REST{2472} &REST{2473} &REST{2474} &REST{2475} &REST{2476} &REST{2477} &REST{2478} &REST{2479} &REST{2480} &REST{2481} &REST{2482} &REST{2483} &REST{2484} &REST{2487} &REST{2488} &REST{2489} &REST{2491} &REST{2492} &REST{2493} &REST{2494} &REST{2495} &REST{2496} &REST{2503} &REST{2504} &REST{2505} &REST{2509} &REST{2510} &REST{2511} &REST{2512} &REST{2513} &REST{2514} &REST{2515} &REST{2518} CHAR1{2527} CHAR2{2528} CHAR1{2532} CHAR2{2533} CHAR1{2536} CHAR2{2537} CHAR1{2541} CHAR2{2542} CHAR1{2545} CHAR2{2546} CHAR1{2550} CHAR2{2551} CHAR1{2572} CHAR2{2573} CHAR1{2577} CHAR2{2578} CHAR1{2581} CHAR2{2582} CHAR1{2586} CHAR2{2587} CHAR1{2590} CHAR2{2591} CHAR1{2595} CHAR2{2596} CHAR1{2599} CHAR2{2600} CHAR1{2604} CHAR2{2605} CHAR1{2617} CHAR2{2618} CHAR1{2622} CHAR2{2623} CHAR1{2626} CHAR2{2627} CHAR1{2631} CHAR2{2632} CHAR1{2653} CHAR2{2654} CHAR1{2658} CHAR2{2659} CHAR1{2662} CHAR2{2663} CHAR1{2667} CHAR2{2668} CHAR1{2671} CHAR2{2672} CHAR1{2676} CHAR2{2677} CHAR1{2680} CHAR2{2681} CHAR1{2685} CHAR2{2686} CHAR1{2689} CHAR2{2690} CHAR1{2694} CHAR2{2695} CHAR1{2716} CHAR2{2717} CHAR1{2721} CHAR2{2722} CHAR1{2725} CHAR2{2726} CHAR1{2730} CHAR2{2731} CHAR1{2743} CHAR2{2744} CHAR1{2748} CHAR2{2749} CHAR1{2761} CHAR2{2762} CHAR1{2766} CHAR2{2767} CHAR1{2770} CHAR2{2771} CHAR1{2775} CHAR2{2776} CHAR1{2797} CHAR2{2798} CHAR1{2802} CHAR2{2803} CHAR1{2806} CHAR2{2807} CHAR1{2811} CHAR2{2812} CHAR1{2815} CHAR2{2816} CHAR1{2820} CHAR2{2821} CHAR1{2824} CHAR2{2825} CHAR1{2829} CHAR2{2830} CHAR1{2833} CHAR2{2834} CHAR1{2838} CHAR2{2839} CHAR1{2842} CHAR2{2843} CHAR1{2847} CHAR2{2848} CHAR1{2869} CHAR2{2870} CHAR1{2874} CHAR2{2875} CHAR1{2878} CHAR2{2879} CHAR1{2883} CHAR2{2884} CHAR1{2887} CHAR2{2888} CHAR1{2892} CHAR2{2893} CHAR1{2896} CHAR2{2897} CHAR1{2901} CHAR2{2902} CHAR1{2905} CHAR2{2906} CHAR1{2910} CHAR2{2911} CHAR1{2914} CHAR2{2915} CHAR1{2919} CHAR2{2920} CHAR1{2923} CHAR2{2924} CHAR1{2928} CHAR2{2929} CHAR1{2932} CHAR2{2933} CHAR1{2937} CHAR2{2938} CHAR1{2941} CHAR2{2942} CHAR1{2946} CHAR2{2947} CHAR1{2950} CHAR2{2951} CHAR1{2955} CHAR2{2956} CHAR1{3067} CHAR2{3068} CHAR1{3072} CHAR2{3073} CHAR1{3076} CHAR2{3077} CHAR1{3081} CHAR2{3082} CHAR1{3085} CHAR2{3086} CHAR1{3090} CHAR2{3091} CHAR1{3094} CHAR2{3095} CHAR1{3099} CHAR2{3100} CHAR1{3103} CHAR2{3104} CHAR1{3108} CHAR2{3109} CHAR1{3112} CHAR2{3113} CHAR1{3117} CHAR2{3118} CHAR1{3121} CHAR2{3122} CHAR1{3126} CHAR2{3127} CHAR1{3130} CHAR2{3131} CHAR1{3135} CHAR2{3136} CHAR1{3139} CHAR2{3140} CHAR1{3144} CHAR2{3145} CHAR1{3148} CHAR2{3149} CHAR1{3153} CHAR2{3154} CHAR1{3157} CHAR2{3158} CHAR1{3162} CHAR2{3163} CHAR1{3166} CHAR2{3167} CHAR1{3171} CHAR2{3172} CHAR1{3175} CHAR2{3176} CHAR1{3180} CHAR2{3181} CHAR1{3184} CHAR2{3185} CHAR1{3189} CHAR2{3190} CHAR1{3193} CHAR2{3194} CHAR1{3198} CHAR2{3199} CHAR1{3202} CHAR2{3203} CHAR1{3207} CHAR2{3208} CHAR1{3211} CHAR2{3212} CHAR1{3216} CHAR2{3217} CHAR1{3220} CHAR2{3221} CHAR1{3225} CHAR2{3226} CHAR1{3229} CHAR2{3230} CHAR1{3234} CHAR2{3235} CHAR1{3238} CHAR2{3239} CHAR1{3243} CHAR2{3244} CHAR1{3247} CHAR2{3248} CHAR1{3252} CHAR2{3253} CHAR1{3256} CHAR2{3257} CHAR1{3261} CHAR2{3262} CHAR1{3265} CHAR2{3266} CHAR1{3270} CHAR2{3271} CHAR1{3274} CHAR2{3275} CHAR1{3279} CHAR2{3280} CHAR1{3508} CHAR2{3509} CHAR1{3513} CHAR2{3514} CHAR1{3517} CHAR2{3518} CHAR1{3522} CHAR2{3523} CHAR1{3526} CHAR2{3527} CHAR1{3531} CHAR2{3532} CHAR1{3535} CHAR2{3536} CHAR1{3540} CHAR2{3541} CHAR1{3544} CHAR2{3545} CHAR1{3549} CHAR2{3550} CHAR1{3553} CHAR2{3554} CHAR1{3558} CHAR2{3559} CHAR1{3562} CHAR2{3563} CHAR1{3567} CHAR2{3568} CHAR1{3571} CHAR2{3572} CHAR1{3576} CHAR2{3577} CHAR1{3580} CHAR2{3581} CHAR1{3585} CHAR2{3586} CHAR1{3589} CHAR2{3590} CHAR1{3594} CHAR2{3595} CHAR1{3598} CHAR2{3599} CHAR1{3603} CHAR2{3604} LIST{3607} LIST{3610} R{3611} LIST{3612} LIST{3615} R{3616} CHAR{3629} CHAR{3630} CHAR{3631} CHAR{3632} CHAR{3633} CHAR{3634} CHAR{3635} CHAR{3636} CHAR{3637} CHAR{3643} CHAR{3644} CHAR{3645} CHAR{3647} CHAR{3648} CHAR{3649} CHAR{3651} CHAR{3677} CHAR{3678} CHAR{3679} CHAR{3680} CHAR{3681} CHAR{3682} CHAR{3683} CHAR{3684} CHAR{3685} CHAR{3686} CHAR{3687} CHAR{3691} CHAR{3692} v{3693} C{3696} v{3697} v{3698} v{3699} v{3700} C{3701} v{3702} v{3703} v{3704} v{3705} C{3706} v{3707} v{3708} v{3709} v{3710} C{3711} v{3712} v{3713} v{3714} v{3715} CHAR1{3729} CHAR2{3730} CHAR1{3734} CHAR2{3735} CHAR1{3820} CHAR2{3821} CHAR1{3825} CHAR2{3826} CHAR1{3973} CHAR2{3974} CHAR1{3978} CHAR2{3979} CHAR1{3982} CHAR2{3983} CHAR1{3987} CHAR2{3988} CHAR1{3991} CHAR2{3992} CHAR1{3996} CHAR2{3997} CHAR1{4000} CHAR2{4001} CHAR1{4005} CHAR2{4006} CHAR1{4009} CHAR2{4010} CHAR1{4014} CHAR2{4015} CHAR{4018} CHAR1{4019} CHAR2{4020} CHAR1{4024} CHAR2{4025} CHAR1{4028} CHAR2{4029} CHAR1{4033} CHAR2{4034} CHAR1{4037} CHAR2{4038} CHAR1{4042} CHAR2{4043} CHAR1{4046} CHAR2{4047} CHAR1{4051} CHAR2{4052} CHAR1{4055} CHAR2{4056} CHAR1{4060} CHAR2{4061} CHAR1{4064} CHAR2{4065} CHAR1{4069} CHAR2{4070} CHAR{4073} CHAR1{4074} CHAR2{4075} CHAR1{4079} CHAR2{4080} CHAR1{4083} CHAR2{4084} CHAR1{4088} CHAR2{4089} CHAR1{4092} CHAR2{4093} CHAR1{4097} CHAR2{4098} CHAR1{4101} CHAR2{4102} CHAR1{4106} CHAR2{4107} CHAR1{4110} CHAR2{4111} CHAR1{4115} CHAR2{4116} CHAR1{4119} CHAR2{4120} CHAR1{4124} CHAR2{4125} CHAR1{4128} CHAR2{4129} CHAR1{4133} CHAR2{4134} CHAR1{4137} CHAR2{4138} CHAR1{4142} CHAR2{4143} CHAR{4146} CHAR1{4147} CHAR2{4148} CHAR1{4152} CHAR2{4153} CHAR1{4156} CHAR2{4157} CHAR1{4161} CHAR2{4162} CHAR1{4165} CHAR2{4166} CHAR1{4170} CHAR2{4171} CHAR1{4174} CHAR2{4175} CHAR1{4179} CHAR2{4180} CHAR1{4183} CHAR2{4184} CHAR1{4188} CHAR2{4189} CHAR1{4192} CHAR2{4193} CHAR1{4197} CHAR2{4198} CHAR{4201} CHAR1{4202} CHAR2{4203} CHAR1{4207} CHAR2{4208} CHAR1{4211} CHAR2{4212} CHAR1{4216} CHAR2{4217} CHAR1{4220} CHAR2{4221} CHAR1{4225} CHAR2{4226} CHAR1{4229} CHAR2{4230} CHAR1{4234} CHAR2{4235} CHAR1{4238} CHAR2{4239} CHAR1{4243} CHAR2{4244} CHAR1{4247} CHAR2{4248} CHAR1{4252} CHAR2{4253} CHAR1{4256} CHAR2{4257} CHAR1{4261} CHAR2{4262} CHAR1{4265} CHAR2{4266} CHAR1{4270} CHAR2{4271} CHAR1{4274} CHAR2{4275} CHAR1{4279} CHAR2{4280} CHAR1{4283} CHAR2{4284} CHAR1{4288} CHAR2{4289} CHAR1{4292} CHAR2{4293} CHAR1{4297} CHAR2{4298} CHAR1{4301} CHAR2{4302} CHAR1{4306} CHAR2{4307} CHAR1{4310} CHAR2{4311} CHAR1{4315} CHAR2{4316} CHAR1{4337} CHAR2{4338} CHAR1{4342} CHAR2{4343} CHAR1{4346} CHAR2{4347} CHAR1{4351} CHAR2{4352} CHAR1{4355} CHAR2{4356} CHAR1{4360} CHAR2{4361} CHAR1{4364} CHAR2{4365} CHAR1{4369} CHAR2{4370} CHAR1{4373} CHAR2{4374} CHAR1{4378} CHAR2{4379} CHAR1{4382} CHAR2{4383} CHAR1{4387} CHAR2{4388} CHAR1{4391} CHAR2{4392} CHAR1{4396} CHAR2{4397} CHAR1{4400} CHAR2{4401} CHAR1{4405} CHAR2{4406} CHAR1{4409} CHAR2{4410} CHAR1{4414} CHAR2{4415} CHAR1{4418} CHAR2{4419} CHAR1{4423} CHAR2{4424} CHAR1{4427} CHAR2{4428} CHAR1{4432} CHAR2{4433} CHAR1{4436} CHAR2{4437} CHAR1{4441} CHAR2{4442} CHAR1{4445} CHAR2{4446} CHAR1{4450} CHAR2{4451} CHAR1{4454} CHAR2{4455} CHAR1{4459} CHAR2{4460} CHAR1{4463} CHAR2{4464} CHAR1{4468} CHAR2{4469} CHAR1{4472} CHAR2{4473} CHAR1{4477} CHAR2{4478} READ[1331] has the following parameter: PORT{1858} global STRING-COPY[1116] has the following parameter: STRING{1678} local has the following in-lined locals: N{1679} R{1680} K{1684} LIST->STRING[1106] has the following parameter: LIST{1670} local has the following in-lined locals: R{1671} K{1675} STRING=?[955] has the following parameters: STRING1{1490} local STRING2{1491} local has the following in-lined locals: CHAR1{1369} CHAR2{1370} CHAR1{1374} CHAR2{1375} STRING1{1495} STRING2{1496} N{1498} K{1501} v{1502} CHAR-LOWER-CASE?[934] has the following parameter: LETTER{1469} local has the following in-lined locals: CHAR1{2608} CHAR2{2609} CHAR1{2613} CHAR2{2614} CHAR1{2734} CHAR2{2735} CHAR1{2739} CHAR2{2740} [inside top level 699] has the following parameter: STRING{1216} local has the following in-lined locals: FOUND{1217} PACKAGE{1221} LIST-LENGTH[523] has the following parameter: LIST{1090} local has the following in-lined local: K{1093} TEST[430] has region has the following parameters: PGM1{1021} local PGM2{1022} local has the following in-lined locals: PATHNAME{845} PGM1{991} PGM2{992} EPSILON{993} SIGMA{994} SENSITIVITY{995} WIDTH{997} HEIGHT{998} E1{999} E2{1000} M{1001} I{1005} J{1009} EX{1011} EY{1012} ET{1013} L{1014} V{1015} I{1019} X{1306} STRINGS{1647} R{1648} K{1649} STRINGS{1653} N{1654} L{1658} K{1663} STRINGS{1664} STRING{1847} OUTPUT-PORT{1849} PNM{2520} PNM{2521} PNM{2522} PNM{2524} PNM{2525} PNM{2526} PGM-SMOOTH[346] has the following parameters: PGM{960} local SIGMA{961} local has the following in-lined locals: HEIGHT{963} WIDTH{964} GREY1{965} GREY2{966} Y{970} X{974} I{979} J{983} V{985} I{989} PNM{2519} PNM{2523} WRITE-PNM[222] has the following parameter: PORT{848} local has the following in-lined locals: PNM{716} PNM{717} PGM{874} GREY{875} HEIGHT{876} WIDTH{877} Y{889} X{893} Y{897} X{901} Y{906} X{910} OBJ{2417} &REST{2418} &REST{2421} CHAR{2422} &REST{2423} CHAR{2442} &REST{2443} &REST{2444} &REST{2445} &REST{2446} OBJ{3721} &REST{3722} OBJ{3723} &REST{3724} OBJ{3725} &REST{3726} OBJ{3727} &REST{3728} READ-PPM[130] has the following parameter: RAW?{787} local has the following in-lined locals: WIDTH{788} HEIGHT{789} MAXVAL{790} RED{792} GREEN{793} BLUE{794} Y{800} X{804} C1{806} C2{807} C3{808} Y{814} X{818} V1{820} V2{821} V3{822} V{826} I{830} V{832} I{836} V{838} I{842} &REST{2414} &REST{2460} &REST{2461} &REST{2462} READ-PGM[75] has the following parameter: RAW?{752} local has the following in-lined locals: WIDTH{753} HEIGHT{754} MAXVAL{755} GREY{757} Y{763} X{767} C{769} Y{773} X{777} V{779} V{781} I{785} &REST{2463} &REST{2464} READ-PBM[40] has the following parameter: RAW?{730} local has the following in-lined locals: WIDTH{731} HEIGHT{732} BITMAP{733} Y{738} X{742} V{744} V{746} I{750} READ-PNM[28] has the following parameter: PORT{721} global has the following in-lined locals: FORMAT{728} v{729} OBJ1{1026} v{1028} OBJ1{3652} v{3654} OBJ1{3657} v{3659} OBJ1{3662} v{3664} OBJ1{3667} v{3669} OBJ1{3672} v{3674} READ-PNM[25] has the following parameter: PATHNAME{718} local has the following in-lined locals: STRING{1842} INPUT-PORT{1844} R{1845} [inside top level 0] has the following in-lined locals: PGM2{709} PGM1{710} I{713} The following non-trivial in-line native procedures will be generated: [clone LOOP?[885] 4167] has the following parameters: CHAR1{4477} local CHAR2{4478} local [clone CHAR<=?[882] 4164] has the following parameters: CHAR1{4472} local CHAR2{4473} local [clone LOOP?[885] 4161] has the following parameters: CHAR1{4468} local CHAR2{4469} local [clone CHAR<=?[882] 4158] has the following parameters: CHAR1{4463} local CHAR2{4464} local [clone LOOP?[891] 4155] has the following parameters: CHAR1{4459} local CHAR2{4460} local [clone CHAR>=?[888] 4152] has the following parameters: CHAR1{4454} local CHAR2{4455} local [clone LOOP?[891] 4149] has the following parameters: CHAR1{4450} local CHAR2{4451} local [clone CHAR>=?[888] 4146] has the following parameters: CHAR1{4445} local CHAR2{4446} local [clone LOOP?[885] 4143] has the following parameters: CHAR1{4441} local CHAR2{4442} local [clone CHAR<=?[882] 4140] has the following parameters: CHAR1{4436} local CHAR2{4437} local [clone LOOP?[885] 4137] has the following parameters: CHAR1{4432} local CHAR2{4433} local [clone CHAR<=?[882] 4134] has the following parameters: CHAR1{4427} local CHAR2{4428} local [clone LOOP?[891] 4131] has the following parameters: CHAR1{4423} local CHAR2{4424} local [clone CHAR>=?[888] 4128] has the following parameters: CHAR1{4418} local CHAR2{4419} local [clone LOOP?[891] 4125] has the following parameters: CHAR1{4414} local CHAR2{4415} local [clone CHAR>=?[888] 4122] has the following parameters: CHAR1{4409} local CHAR2{4410} local [clone LOOP?[885] 4119] has the following parameters: CHAR1{4405} local CHAR2{4406} local [clone CHAR<=?[882] 4116] has the following parameters: CHAR1{4400} local CHAR2{4401} local [clone LOOP?[891] 4113] has the following parameters: CHAR1{4396} local CHAR2{4397} local [clone CHAR>=?[888] 4110] has the following parameters: CHAR1{4391} local CHAR2{4392} local [clone LOOP?[885] 4107] has the following parameters: CHAR1{4387} local CHAR2{4388} local [clone CHAR<=?[882] 4104] has the following parameters: CHAR1{4382} local CHAR2{4383} local [clone LOOP?[891] 4101] has the following parameters: CHAR1{4378} local CHAR2{4379} local [clone CHAR>=?[888] 4098] has the following parameters: CHAR1{4373} local CHAR2{4374} local [clone LOOP?[885] 4095] has the following parameters: CHAR1{4369} local CHAR2{4370} local [clone CHAR<=?[882] 4092] has the following parameters: CHAR1{4364} local CHAR2{4365} local [clone LOOP?[885] 4089] has the following parameters: CHAR1{4360} local CHAR2{4361} local [clone CHAR<=?[882] 4086] has the following parameters: CHAR1{4355} local CHAR2{4356} local [clone LOOP?[891] 4083] has the following parameters: CHAR1{4351} local CHAR2{4352} local [clone CHAR>=?[888] 4080] has the following parameters: CHAR1{4346} local CHAR2{4347} local [clone LOOP?[885] 4077] has the following parameters: CHAR1{4342} local CHAR2{4343} local [clone CHAR<=?[882] 4074] has the following parameters: CHAR1{4337} local CHAR2{4338} local [clone LOOP?[885] 4071] has the following parameters: CHAR1{4333} local CHAR2{4334} local [clone CHAR<=?[882] 4068] has the following parameters: CHAR1{4328} local CHAR2{4329} local [clone LOOP?[891] 4065] has the following parameters: CHAR1{4324} local CHAR2{4325} local [clone CHAR>=?[888] 4062] has the following parameters: CHAR1{4319} local CHAR2{4320} local [clone LOOP?[891] 4059] has the following parameters: CHAR1{4315} local CHAR2{4316} local [clone CHAR>=?[888] 4056] has the following parameters: CHAR1{4310} local CHAR2{4311} local [clone LOOP?[891] 4053] has the following parameters: CHAR1{4306} local CHAR2{4307} local [clone CHAR>=?[888] 4050] has the following parameters: CHAR1{4301} local CHAR2{4302} local [clone LOOP?[885] 4047] has the following parameters: CHAR1{4297} local CHAR2{4298} local [clone CHAR<=?[882] 4044] has the following parameters: CHAR1{4292} local CHAR2{4293} local [clone LOOP?[891] 4041] has the following parameters: CHAR1{4288} local CHAR2{4289} local [clone CHAR>=?[888] 4038] has the following parameters: CHAR1{4283} local CHAR2{4284} local [clone LOOP?[885] 4035] has the following parameters: CHAR1{4279} local CHAR2{4280} local [clone CHAR<=?[882] 4032] has the following parameters: CHAR1{4274} local CHAR2{4275} local [clone LOOP?[891] 4029] has the following parameters: CHAR1{4270} local CHAR2{4271} local [clone CHAR>=?[888] 4026] has the following parameters: CHAR1{4265} local CHAR2{4266} local [clone LOOP?[885] 4023] has the following parameters: CHAR1{4261} local CHAR2{4262} local [clone CHAR<=?[882] 4020] has the following parameters: CHAR1{4256} local CHAR2{4257} local [clone LOOP?[885] 4017] has the following parameters: CHAR1{4252} local CHAR2{4253} local [clone CHAR<=?[882] 4014] has the following parameters: CHAR1{4247} local CHAR2{4248} local [clone LOOP?[867] 4011] has the following parameters: CHAR1{4243} local CHAR2{4244} local [clone CHAR=?[864] 4008] has the following parameters: CHAR1{4238} local CHAR2{4239} local [clone LOOP?[867] 4005] has the following parameters: CHAR1{4234} local CHAR2{4235} local [clone CHAR=?[864] 4002] has the following parameters: CHAR1{4229} local CHAR2{4230} local [clone LOOP?[867] 3999] has the following parameters: CHAR1{4225} local CHAR2{4226} local [clone CHAR=?[864] 3996] has the following parameters: CHAR1{4220} local CHAR2{4221} local [clone LOOP?[885] 3993] has the following parameters: CHAR1{4216} local CHAR2{4217} local [clone CHAR<=?[882] 3990] has the following parameters: CHAR1{4211} local CHAR2{4212} local [clone LOOP?[891] 3987] has the following parameters: CHAR1{4207} local CHAR2{4208} local [clone CHAR>=?[888] 3984] has the following parameters: CHAR1{4202} local CHAR2{4203} local [clone CHAR-NUMERIC?[926] 3983] has the following parameter: CHAR{4201} local [clone LOOP?[891] 3980] has the following parameters: CHAR1{4197} local CHAR2{4198} local [clone CHAR>=?[888] 3977] has the following parameters: CHAR1{4192} local CHAR2{4193} local [clone LOOP?[867] 3974] has the following parameters: CHAR1{4188} local CHAR2{4189} local [clone CHAR=?[864] 3971] has the following parameters: CHAR1{4183} local CHAR2{4184} local [clone LOOP?[867] 3968] has the following parameters: CHAR1{4179} local CHAR2{4180} local [clone CHAR=?[864] 3965] has the following parameters: CHAR1{4174} local CHAR2{4175} local [clone LOOP?[867] 3962] has the following parameters: CHAR1{4170} local CHAR2{4171} local [clone CHAR=?[864] 3959] has the following parameters: CHAR1{4165} local CHAR2{4166} local [clone LOOP?[885] 3956] has the following parameters: CHAR1{4161} local CHAR2{4162} local [clone CHAR<=?[882] 3953] has the following parameters: CHAR1{4156} local CHAR2{4157} local [clone LOOP?[891] 3950] has the following parameters: CHAR1{4152} local CHAR2{4153} local [clone CHAR>=?[888] 3947] has the following parameters: CHAR1{4147} local CHAR2{4148} local [clone CHAR-NUMERIC?[926] 3946] has the following parameter: CHAR{4146} local [clone LOOP?[891] 3943] has the following parameters: CHAR1{4142} local CHAR2{4143} local [clone CHAR>=?[888] 3940] has the following parameters: CHAR1{4137} local CHAR2{4138} local [clone LOOP?[885] 3937] has the following parameters: CHAR1{4133} local CHAR2{4134} local [clone CHAR<=?[882] 3934] has the following parameters: CHAR1{4128} local CHAR2{4129} local [clone LOOP?[885] 3931] has the following parameters: CHAR1{4124} local CHAR2{4125} local [clone CHAR<=?[882] 3928] has the following parameters: CHAR1{4119} local CHAR2{4120} local [clone LOOP?[867] 3925] has the following parameters: CHAR1{4115} local CHAR2{4116} local [clone CHAR=?[864] 3922] has the following parameters: CHAR1{4110} local CHAR2{4111} local [clone LOOP?[867] 3919] has the following parameters: CHAR1{4106} local CHAR2{4107} local [clone CHAR=?[864] 3916] has the following parameters: CHAR1{4101} local CHAR2{4102} local [clone LOOP?[867] 3913] has the following parameters: CHAR1{4097} local CHAR2{4098} local [clone CHAR=?[864] 3910] has the following parameters: CHAR1{4092} local CHAR2{4093} local [clone LOOP?[885] 3907] has the following parameters: CHAR1{4088} local CHAR2{4089} local [clone CHAR<=?[882] 3904] has the following parameters: CHAR1{4083} local CHAR2{4084} local [clone LOOP?[891] 3901] has the following parameters: CHAR1{4079} local CHAR2{4080} local [clone CHAR>=?[888] 3898] has the following parameters: CHAR1{4074} local CHAR2{4075} local [clone CHAR-NUMERIC?[926] 3897] has the following parameter: CHAR{4073} local [clone LOOP?[891] 3894] has the following parameters: CHAR1{4069} local CHAR2{4070} local [clone CHAR>=?[888] 3891] has the following parameters: CHAR1{4064} local CHAR2{4065} local [clone LOOP?[867] 3888] has the following parameters: CHAR1{4060} local CHAR2{4061} local [clone CHAR=?[864] 3885] has the following parameters: CHAR1{4055} local CHAR2{4056} local [clone LOOP?[867] 3882] has the following parameters: CHAR1{4051} local CHAR2{4052} local [clone CHAR=?[864] 3879] has the following parameters: CHAR1{4046} local CHAR2{4047} local [clone LOOP?[867] 3876] has the following parameters: CHAR1{4042} local CHAR2{4043} local [clone CHAR=?[864] 3873] has the following parameters: CHAR1{4037} local CHAR2{4038} local [clone LOOP?[885] 3870] has the following parameters: CHAR1{4033} local CHAR2{4034} local [clone CHAR<=?[882] 3867] has the following parameters: CHAR1{4028} local CHAR2{4029} local [clone LOOP?[891] 3864] has the following parameters: CHAR1{4024} local CHAR2{4025} local [clone CHAR>=?[888] 3861] has the following parameters: CHAR1{4019} local CHAR2{4020} local [clone CHAR-NUMERIC?[926] 3860] has the following parameter: CHAR{4018} local [clone LOOP?[891] 3857] has the following parameters: CHAR1{4014} local CHAR2{4015} local [clone CHAR>=?[888] 3854] has the following parameters: CHAR1{4009} local CHAR2{4010} local [clone LOOP?[885] 3851] has the following parameters: CHAR1{4005} local CHAR2{4006} local [clone CHAR<=?[882] 3848] has the following parameters: CHAR1{4000} local CHAR2{4001} local [clone LOOP?[885] 3845] has the following parameters: CHAR1{3996} local CHAR2{3997} local [clone CHAR<=?[882] 3842] has the following parameters: CHAR1{3991} local CHAR2{3992} local [clone LOOP?[891] 3839] has the following parameters: CHAR1{3987} local CHAR2{3988} local [clone CHAR>=?[888] 3836] has the following parameters: CHAR1{3982} local CHAR2{3983} local [clone LOOP?[891] 3833] has the following parameters: CHAR1{3978} local CHAR2{3979} local [clone CHAR>=?[888] 3830] has the following parameters: CHAR1{3973} local CHAR2{3974} local [clone LOOP?[885] 3827] has the following parameters: CHAR1{3969} local CHAR2{3970} local [clone CHAR<=?[882] 3824] has the following parameters: CHAR1{3964} local CHAR2{3965} local [clone LOOP?[885] 3821] has the following parameters: CHAR1{3960} local CHAR2{3961} local [clone CHAR<=?[882] 3818] has the following parameters: CHAR1{3955} local CHAR2{3956} local [clone LOOP?[885] 3815] has the following parameters: CHAR1{3951} local CHAR2{3952} local [clone CHAR<=?[882] 3812] has the following parameters: CHAR1{3946} local CHAR2{3947} local [clone LOOP?[885] 3809] has the following parameters: CHAR1{3942} local CHAR2{3943} local [clone CHAR<=?[882] 3806] has the following parameters: CHAR1{3937} local CHAR2{3938} local [clone LOOP?[891] 3803] has the following parameters: CHAR1{3933} local CHAR2{3934} local [clone CHAR>=?[888] 3800] has the following parameters: CHAR1{3928} local CHAR2{3929} local [clone LOOP?[885] 3797] has the following parameters: CHAR1{3924} local CHAR2{3925} local [clone CHAR<=?[882] 3794] has the following parameters: CHAR1{3919} local CHAR2{3920} local [clone LOOP?[891] 3791] has the following parameters: CHAR1{3915} local CHAR2{3916} local [clone CHAR>=?[888] 3788] has the following parameters: CHAR1{3910} local CHAR2{3911} local [clone LOOP?[891] 3785] has the following parameters: CHAR1{3906} local CHAR2{3907} local [clone CHAR>=?[888] 3782] has the following parameters: CHAR1{3901} local CHAR2{3902} local [clone LOOP?[891] 3779] has the following parameters: CHAR1{3897} local CHAR2{3898} local [clone CHAR>=?[888] 3776] has the following parameters: CHAR1{3892} local CHAR2{3893} local [clone LOOP?[885] 3773] has the following parameters: CHAR1{3888} local CHAR2{3889} local [clone CHAR<=?[882] 3770] has the following parameters: CHAR1{3883} local CHAR2{3884} local [clone LOOP?[885] 3767] has the following parameters: CHAR1{3879} local CHAR2{3880} local [clone CHAR<=?[882] 3764] has the following parameters: CHAR1{3874} local CHAR2{3875} local [clone LOOP?[891] 3761] has the following parameters: CHAR1{3870} local CHAR2{3871} local [clone CHAR>=?[888] 3758] has the following parameters: CHAR1{3865} local CHAR2{3866} local [clone LOOP?[885] 3755] has the following parameters: CHAR1{3861} local CHAR2{3862} local [clone CHAR<=?[882] 3752] has the following parameters: CHAR1{3856} local CHAR2{3857} local [clone LOOP?[891] 3749] has the following parameters: CHAR1{3852} local CHAR2{3853} local [clone CHAR>=?[888] 3746] has the following parameters: CHAR1{3847} local CHAR2{3848} local [clone LOOP?[891] 3743] has the following parameters: CHAR1{3843} local CHAR2{3844} local [clone CHAR>=?[888] 3740] has the following parameters: CHAR1{3838} local CHAR2{3839} local [clone LOOP?[891] 3737] has the following parameters: CHAR1{3834} local CHAR2{3835} local [clone CHAR>=?[888] 3734] has the following parameters: CHAR1{3829} local CHAR2{3830} local [clone LOOP?[885] 3731] has the following parameters: CHAR1{3825} local CHAR2{3826} local [clone CHAR<=?[882] 3728] has the following parameters: CHAR1{3820} local CHAR2{3821} local [clone LOOP?[867] 3725] has the following parameters: CHAR1{3816} local CHAR2{3817} local [clone CHAR=?[864] 3722] has the following parameters: CHAR1{3811} local CHAR2{3812} local [clone LOOP?[867] 3719] has the following parameters: CHAR1{3807} local CHAR2{3808} local [clone CHAR=?[864] 3716] has the following parameters: CHAR1{3802} local CHAR2{3803} local [clone LOOP?[867] 3713] has the following parameters: CHAR1{3798} local CHAR2{3799} local [clone CHAR=?[864] 3710] has the following parameters: CHAR1{3793} local CHAR2{3794} local [clone LOOP?[885] 3707] has the following parameters: CHAR1{3789} local CHAR2{3790} local [clone CHAR<=?[882] 3704] has the following parameters: CHAR1{3784} local CHAR2{3785} local [clone LOOP?[891] 3701] has the following parameters: CHAR1{3780} local CHAR2{3781} local [clone CHAR>=?[888] 3698] has the following parameters: CHAR1{3775} local CHAR2{3776} local [clone CHAR-NUMERIC?[926] 3697] has the following parameter: CHAR{3774} local [clone LOOP?[885] 3694] has the following parameters: CHAR1{3770} local CHAR2{3771} local [clone CHAR<=?[882] 3691] has the following parameters: CHAR1{3765} local CHAR2{3766} local [clone LOOP?[891] 3688] has the following parameters: CHAR1{3761} local CHAR2{3762} local [clone CHAR>=?[888] 3685] has the following parameters: CHAR1{3756} local CHAR2{3757} local [clone LOOP?[885] 3682] has the following parameters: CHAR1{3752} local CHAR2{3753} local [clone CHAR<=?[882] 3679] has the following parameters: CHAR1{3747} local CHAR2{3748} local [clone LOOP?[891] 3676] has the following parameters: CHAR1{3743} local CHAR2{3744} local [clone CHAR>=?[888] 3673] has the following parameters: CHAR1{3738} local CHAR2{3739} local [clone LOOP?[891] 3670] has the following parameters: CHAR1{3734} local CHAR2{3735} local [clone CHAR>=?[888] 3667] has the following parameters: CHAR1{3729} local CHAR2{3730} local [clone WRITE[2218] 3663] has the following parameters: OBJ{3727} local &REST{3728} local [clone WRITE[2218] 3659] has the following parameters: OBJ{3725} local &REST{3726} local [clone WRITE[2218] 3655] has the following parameters: OBJ{3723} local &REST{3724} local [clone WRITE[2218] 3651] has the following parameters: OBJ{3721} local &REST{3722} local [clone [inside CHAR-SUBSEQUENT? 1684] 3650] has the following parameter: v{3720} local [clone [inside CHAR-SUBSEQUENT? 1683] 3649] has the following parameter: v{3719} local [clone [inside CHAR-SUBSEQUENT? 1682] 3648] has the following parameter: v{3718} local [clone [inside CHAR-SUBSEQUENT? 1681] 3647] has the following parameter: v{3717} local [clone CHAR-SUBSEQUENT?[1680] 3646] has the following parameter: C{3716} local [clone [inside CHAR-SUBSEQUENT? 1684] 3645] has the following parameter: v{3715} local [clone [inside CHAR-SUBSEQUENT? 1683] 3644] has the following parameter: v{3714} local [clone [inside CHAR-SUBSEQUENT? 1682] 3643] has the following parameter: v{3713} local [clone [inside CHAR-SUBSEQUENT? 1681] 3642] has the following parameter: v{3712} local [clone CHAR-SUBSEQUENT?[1680] 3641] has the following parameter: C{3711} local [clone [inside CHAR-SUBSEQUENT? 1684] 3640] has the following parameter: v{3710} local [clone [inside CHAR-SUBSEQUENT? 1683] 3639] has the following parameter: v{3709} local [clone [inside CHAR-SUBSEQUENT? 1682] 3638] has the following parameter: v{3708} local [clone [inside CHAR-SUBSEQUENT? 1681] 3637] has the following parameter: v{3707} local [clone CHAR-SUBSEQUENT?[1680] 3636] has the following parameter: C{3706} local [clone [inside CHAR-SUBSEQUENT? 1684] 3635] has the following parameter: v{3705} local [clone [inside CHAR-SUBSEQUENT? 1683] 3634] has the following parameter: v{3704} local [clone [inside CHAR-SUBSEQUENT? 1682] 3633] has the following parameter: v{3703} local [clone [inside CHAR-SUBSEQUENT? 1681] 3632] has the following parameter: v{3702} local [clone CHAR-SUBSEQUENT?[1680] 3631] has the following parameter: C{3701} local [clone [inside CHAR-SUBSEQUENT? 1684] 3630] has the following parameter: v{3700} local [clone [inside CHAR-SUBSEQUENT? 1683] 3629] has the following parameter: v{3699} local [clone [inside CHAR-SUBSEQUENT? 1682] 3628] has the following parameter: v{3698} local [clone [inside CHAR-SUBSEQUENT? 1681] 3627] has the following parameter: v{3697} local [clone CHAR-SUBSEQUENT?[1680] 3626] has the following parameter: C{3696} local [clone [inside CHAR-ALPHABETIC? 925] 3625] has the following parameter: v{3695} local [clone CHAR-ALPHABETIC?[924] 3624] has the following parameter: CHAR{3694} local [clone [inside CHAR-ALPHABETIC? 925] 3623] has the following parameter: v{3693} local [clone CHAR-ALPHABETIC?[924] 3622] has the following parameter: CHAR{3692} local [clone CHAR-UPCASE[937] 3621] has the following parameter: CHAR{3691} local [clone CHAR-UPCASE[937] 3620] has the following parameter: CHAR{3690} local [clone CHAR-UPCASE[937] 3619] has the following parameter: CHAR{3689} local [clone CHAR-UPCASE[937] 3618] has the following parameter: CHAR{3688} local [clone CHAR-UPCASE[937] 3617] has the following parameter: CHAR{3687} local [clone CHAR-UPCASE[937] 3616] has the following parameter: CHAR{3686} local [clone CHAR-UPCASE[937] 3615] has the following parameter: CHAR{3685} local [clone CHAR-UPCASE[937] 3614] has the following parameter: CHAR{3684} local [clone CHAR-UPCASE[937] 3613] has the following parameter: CHAR{3683} local [clone CHAR-UPCASE[937] 3612] has the following parameter: CHAR{3682} local [clone CHAR-UPCASE[937] 3611] has the following parameter: CHAR{3681} local [clone CHAR-UPCASE[937] 3610] has the following parameter: CHAR{3680} local [clone CHAR-UPCASE[937] 3609] has the following parameter: CHAR{3679} local [clone CHAR-UPCASE[937] 3608] has the following parameter: CHAR{3678} local [clone CHAR-UPCASE[937] 3607] has the following parameter: CHAR{3677} local [clone [inside EQV? 465] 3604] has the following parameter: v{3674} local [clone EQV?[464] 3603] has the following parameter: OBJ1{3672} local [clone [inside EQV? 465] 3600] has the following parameter: v{3669} local [clone EQV?[464] 3599] has the following parameter: OBJ1{3667} local [clone [inside EQV? 465] 3596] has the following parameter: v{3664} local [clone EQV?[464] 3595] has the following parameter: OBJ1{3662} local [clone [inside EQV? 465] 3592] has the following parameter: v{3659} local [clone EQV?[464] 3591] has the following parameter: OBJ1{3657} local [clone [inside EQV? 465] 3588] has the following parameter: v{3654} local [clone EQV?[464] 3587] has the following parameter: OBJ1{3652} local [clone CHAR-NUMERIC?[926] 3586] has the following parameter: CHAR{3651} local [clone CHAR-NUMERIC?[926] 3585] has the following parameter: CHAR{3650} local [clone CHAR-NUMERIC?[926] 3584] has the following parameter: CHAR{3649} local [clone CHAR-NUMERIC?[926] 3583] has the following parameter: CHAR{3648} local [clone CHAR-NUMERIC?[926] 3582] has the following parameter: CHAR{3647} local [clone CHAR-NUMERIC?[926] 3581] has the following parameter: CHAR{3646} local [clone CHAR-NUMERIC?[926] 3580] has the following parameter: CHAR{3645} local [clone CHAR-NUMERIC?[926] 3579] has the following parameter: CHAR{3644} local [clone CHAR-NUMERIC?[926] 3578] has the following parameter: CHAR{3643} local [clone CHAR-NUMERIC?[926] 3577] has the following parameter: CHAR{3642} local [clone CHAR-NUMERIC?[926] 3576] has the following parameter: CHAR{3641} local [clone CHAR-NUMERIC?[926] 3575] has the following parameter: CHAR{3640} local [clone CHAR-NUMERIC?[926] 3574] has the following parameter: CHAR{3639} local [clone CHAR-NUMERIC?[926] 3573] has the following parameter: CHAR{3638} local [clone CHAR-NUMERIC?[926] 3572] has the following parameter: CHAR{3637} local [clone CHAR-NUMERIC?[926] 3571] has the following parameter: CHAR{3636} local [clone CHAR-NUMERIC?[926] 3570] has the following parameter: CHAR{3635} local [clone CHAR-NUMERIC?[926] 3569] has the following parameter: CHAR{3634} local [clone CHAR-NUMERIC?[926] 3568] has the following parameter: CHAR{3633} local [clone CHAR-NUMERIC?[926] 3567] has the following parameter: CHAR{3632} local [clone CHAR-NUMERIC?[926] 3566] has the following parameter: CHAR{3631} local [clone CHAR-NUMERIC?[926] 3565] has the following parameter: CHAR{3630} local [clone CHAR-NUMERIC?[926] 3564] has the following parameter: CHAR{3629} local [clone CHAR-NUMERIC?[926] 3563] has the following parameter: CHAR{3628} local [clone CHAR-NUMERIC?[926] 3562] has the following parameter: CHAR{3627} local [clone LOOP[633] 3560] has the following parameters: LIST{3625} local R{3626} local [clone LIST-REVERSE[630] 3557] has the following parameter: LIST{3622} local [clone LOOP[633] 3555] has the following parameters: LIST{3620} local R{3621} local [clone LIST-REVERSE[630] 3552] has the following parameter: LIST{3617} local [clone LOOP[633] 3550] has the following parameters: LIST{3615} local R{3616} local [clone LIST-REVERSE[630] 3547] has the following parameter: LIST{3612} local [clone LOOP[633] 3545] has the following parameters: LIST{3610} local R{3611} local [clone LIST-REVERSE[630] 3542] has the following parameter: LIST{3607} local [clone LOOP?[867] 3539] has the following parameters: CHAR1{3603} local CHAR2{3604} local [clone CHAR=?[864] 3536] has the following parameters: CHAR1{3598} local CHAR2{3599} local [clone LOOP?[867] 3533] has the following parameters: CHAR1{3594} local CHAR2{3595} local [clone CHAR=?[864] 3530] has the following parameters: CHAR1{3589} local CHAR2{3590} local [clone LOOP?[867] 3527] has the following parameters: CHAR1{3585} local CHAR2{3586} local [clone CHAR=?[864] 3524] has the following parameters: CHAR1{3580} local CHAR2{3581} local [clone LOOP?[867] 3521] has the following parameters: CHAR1{3576} local CHAR2{3577} local [clone CHAR=?[864] 3518] has the following parameters: CHAR1{3571} local CHAR2{3572} local [clone LOOP?[867] 3515] has the following parameters: CHAR1{3567} local CHAR2{3568} local [clone CHAR=?[864] 3512] has the following parameters: CHAR1{3562} local CHAR2{3563} local [clone LOOP?[867] 3509] has the following parameters: CHAR1{3558} local CHAR2{3559} local [clone CHAR=?[864] 3506] has the following parameters: CHAR1{3553} local CHAR2{3554} local [clone LOOP?[867] 3503] has the following parameters: CHAR1{3549} local CHAR2{3550} local [clone CHAR=?[864] 3500] has the following parameters: CHAR1{3544} local CHAR2{3545} local [clone LOOP?[867] 3497] has the following parameters: CHAR1{3540} local CHAR2{3541} local [clone CHAR=?[864] 3494] has the following parameters: CHAR1{3535} local CHAR2{3536} local [clone LOOP?[867] 3491] has the following parameters: CHAR1{3531} local CHAR2{3532} local [clone CHAR=?[864] 3488] has the following parameters: CHAR1{3526} local CHAR2{3527} local [clone LOOP?[867] 3485] has the following parameters: CHAR1{3522} local CHAR2{3523} local [clone CHAR=?[864] 3482] has the following parameters: CHAR1{3517} local CHAR2{3518} local [clone LOOP?[867] 3479] has the following parameters: CHAR1{3513} local CHAR2{3514} local [clone CHAR=?[864] 3476] has the following parameters: CHAR1{3508} local CHAR2{3509} local [clone LOOP?[867] 3473] has the following parameters: CHAR1{3504} local CHAR2{3505} local [clone CHAR=?[864] 3470] has the following parameters: CHAR1{3499} local CHAR2{3500} local [clone LOOP?[867] 3467] has the following parameters: CHAR1{3495} local CHAR2{3496} local [clone CHAR=?[864] 3464] has the following parameters: CHAR1{3490} local CHAR2{3491} local [clone LOOP?[867] 3461] has the following parameters: CHAR1{3486} local CHAR2{3487} local [clone CHAR=?[864] 3458] has the following parameters: CHAR1{3481} local CHAR2{3482} local [clone LOOP?[867] 3455] has the following parameters: CHAR1{3477} local CHAR2{3478} local [clone CHAR=?[864] 3452] has the following parameters: CHAR1{3472} local CHAR2{3473} local [clone LOOP?[867] 3449] has the following parameters: CHAR1{3468} local CHAR2{3469} local [clone CHAR=?[864] 3446] has the following parameters: CHAR1{3463} local CHAR2{3464} local [clone LOOP?[867] 3443] has the following parameters: CHAR1{3459} local CHAR2{3460} local [clone CHAR=?[864] 3440] has the following parameters: CHAR1{3454} local CHAR2{3455} local [clone LOOP?[867] 3437] has the following parameters: CHAR1{3450} local CHAR2{3451} local [clone CHAR=?[864] 3434] has the following parameters: CHAR1{3445} local CHAR2{3446} local [clone LOOP?[867] 3431] has the following parameters: CHAR1{3441} local CHAR2{3442} local [clone CHAR=?[864] 3428] has the following parameters: CHAR1{3436} local CHAR2{3437} local [clone LOOP?[867] 3425] has the following parameters: CHAR1{3432} local CHAR2{3433} local [clone CHAR=?[864] 3422] has the following parameters: CHAR1{3427} local CHAR2{3428} local [clone LOOP?[867] 3419] has the following parameters: CHAR1{3423} local CHAR2{3424} local [clone CHAR=?[864] 3416] has the following parameters: CHAR1{3418} local CHAR2{3419} local [clone LOOP?[867] 3413] has the following parameters: CHAR1{3414} local CHAR2{3415} local [clone CHAR=?[864] 3410] has the following parameters: CHAR1{3409} local CHAR2{3410} local [clone LOOP?[867] 3407] has the following parameters: CHAR1{3405} local CHAR2{3406} local [clone CHAR=?[864] 3404] has the following parameters: CHAR1{3400} local CHAR2{3401} local [clone LOOP?[867] 3401] has the following parameters: CHAR1{3396} local CHAR2{3397} local [clone CHAR=?[864] 3398] has the following parameters: CHAR1{3391} local CHAR2{3392} local [clone LOOP?[867] 3395] has the following parameters: CHAR1{3387} local CHAR2{3388} local [clone CHAR=?[864] 3392] has the following parameters: CHAR1{3382} local CHAR2{3383} local [clone LOOP?[867] 3389] has the following parameters: CHAR1{3378} local CHAR2{3379} local [clone CHAR=?[864] 3386] has the following parameters: CHAR1{3373} local CHAR2{3374} local [clone LOOP?[867] 3383] has the following parameters: CHAR1{3369} local CHAR2{3370} local [clone CHAR=?[864] 3380] has the following parameters: CHAR1{3364} local CHAR2{3365} local [clone LOOP?[867] 3377] has the following parameters: CHAR1{3360} local CHAR2{3361} local [clone CHAR=?[864] 3374] has the following parameters: CHAR1{3355} local CHAR2{3356} local [clone LOOP?[867] 3371] has the following parameters: CHAR1{3351} local CHAR2{3352} local [clone CHAR=?[864] 3368] has the following parameters: CHAR1{3346} local CHAR2{3347} local [clone LOOP?[867] 3365] has the following parameters: CHAR1{3342} local CHAR2{3343} local [clone CHAR=?[864] 3362] has the following parameters: CHAR1{3337} local CHAR2{3338} local [clone LOOP?[867] 3359] has the following parameters: CHAR1{3333} local CHAR2{3334} local [clone CHAR=?[864] 3356] has the following parameters: CHAR1{3328} local CHAR2{3329} local [clone LOOP?[867] 3353] has the following parameters: CHAR1{3324} local CHAR2{3325} local [clone CHAR=?[864] 3350] has the following parameters: CHAR1{3319} local CHAR2{3320} local [clone LOOP?[867] 3347] has the following parameters: CHAR1{3315} local CHAR2{3316} local [clone CHAR=?[864] 3344] has the following parameters: CHAR1{3310} local CHAR2{3311} local [clone LOOP?[867] 3341] has the following parameters: CHAR1{3306} local CHAR2{3307} local [clone CHAR=?[864] 3338] has the following parameters: CHAR1{3301} local CHAR2{3302} local [clone LOOP?[867] 3335] has the following parameters: CHAR1{3297} local CHAR2{3298} local [clone CHAR=?[864] 3332] has the following parameters: CHAR1{3292} local CHAR2{3293} local [clone LOOP?[867] 3329] has the following parameters: CHAR1{3288} local CHAR2{3289} local [clone CHAR=?[864] 3326] has the following parameters: CHAR1{3283} local CHAR2{3284} local [clone LOOP?[867] 3323] has the following parameters: CHAR1{3279} local CHAR2{3280} local [clone CHAR=?[864] 3320] has the following parameters: CHAR1{3274} local CHAR2{3275} local [clone LOOP?[867] 3317] has the following parameters: CHAR1{3270} local CHAR2{3271} local [clone CHAR=?[864] 3314] has the following parameters: CHAR1{3265} local CHAR2{3266} local [clone LOOP?[867] 3311] has the following parameters: CHAR1{3261} local CHAR2{3262} local [clone CHAR=?[864] 3308] has the following parameters: CHAR1{3256} local CHAR2{3257} local [clone LOOP?[867] 3305] has the following parameters: CHAR1{3252} local CHAR2{3253} local [clone CHAR=?[864] 3302] has the following parameters: CHAR1{3247} local CHAR2{3248} local [clone LOOP?[867] 3299] has the following parameters: CHAR1{3243} local CHAR2{3244} local [clone CHAR=?[864] 3296] has the following parameters: CHAR1{3238} local CHAR2{3239} local [clone LOOP?[867] 3293] has the following parameters: CHAR1{3234} local CHAR2{3235} local [clone CHAR=?[864] 3290] has the following parameters: CHAR1{3229} local CHAR2{3230} local [clone LOOP?[867] 3287] has the following parameters: CHAR1{3225} local CHAR2{3226} local [clone CHAR=?[864] 3284] has the following parameters: CHAR1{3220} local CHAR2{3221} local [clone LOOP?[867] 3281] has the following parameters: CHAR1{3216} local CHAR2{3217} local [clone CHAR=?[864] 3278] has the following parameters: CHAR1{3211} local CHAR2{3212} local [clone LOOP?[867] 3275] has the following parameters: CHAR1{3207} local CHAR2{3208} local [clone CHAR=?[864] 3272] has the following parameters: CHAR1{3202} local CHAR2{3203} local [clone LOOP?[867] 3269] has the following parameters: CHAR1{3198} local CHAR2{3199} local [clone CHAR=?[864] 3266] has the following parameters: CHAR1{3193} local CHAR2{3194} local [clone LOOP?[867] 3263] has the following parameters: CHAR1{3189} local CHAR2{3190} local [clone CHAR=?[864] 3260] has the following parameters: CHAR1{3184} local CHAR2{3185} local [clone LOOP?[867] 3257] has the following parameters: CHAR1{3180} local CHAR2{3181} local [clone CHAR=?[864] 3254] has the following parameters: CHAR1{3175} local CHAR2{3176} local [clone LOOP?[867] 3251] has the following parameters: CHAR1{3171} local CHAR2{3172} local [clone CHAR=?[864] 3248] has the following parameters: CHAR1{3166} local CHAR2{3167} local [clone LOOP?[867] 3245] has the following parameters: CHAR1{3162} local CHAR2{3163} local [clone CHAR=?[864] 3242] has the following parameters: CHAR1{3157} local CHAR2{3158} local [clone LOOP?[867] 3239] has the following parameters: CHAR1{3153} local CHAR2{3154} local [clone CHAR=?[864] 3236] has the following parameters: CHAR1{3148} local CHAR2{3149} local [clone LOOP?[867] 3233] has the following parameters: CHAR1{3144} local CHAR2{3145} local [clone CHAR=?[864] 3230] has the following parameters: CHAR1{3139} local CHAR2{3140} local [clone LOOP?[867] 3227] has the following parameters: CHAR1{3135} local CHAR2{3136} local [clone CHAR=?[864] 3224] has the following parameters: CHAR1{3130} local CHAR2{3131} local [clone LOOP?[867] 3221] has the following parameters: CHAR1{3126} local CHAR2{3127} local [clone CHAR=?[864] 3218] has the following parameters: CHAR1{3121} local CHAR2{3122} local [clone LOOP?[867] 3215] has the following parameters: CHAR1{3117} local CHAR2{3118} local [clone CHAR=?[864] 3212] has the following parameters: CHAR1{3112} local CHAR2{3113} local [clone LOOP?[867] 3209] has the following parameters: CHAR1{3108} local CHAR2{3109} local [clone CHAR=?[864] 3206] has the following parameters: CHAR1{3103} local CHAR2{3104} local [clone LOOP?[867] 3203] has the following parameters: CHAR1{3099} local CHAR2{3100} local [clone CHAR=?[864] 3200] has the following parameters: CHAR1{3094} local CHAR2{3095} local [clone LOOP?[867] 3197] has the following parameters: CHAR1{3090} local CHAR2{3091} local [clone CHAR=?[864] 3194] has the following parameters: CHAR1{3085} local CHAR2{3086} local [clone LOOP?[867] 3191] has the following parameters: CHAR1{3081} local CHAR2{3082} local [clone CHAR=?[864] 3188] has the following parameters: CHAR1{3076} local CHAR2{3077} local [clone LOOP?[867] 3185] has the following parameters: CHAR1{3072} local CHAR2{3073} local [clone CHAR=?[864] 3182] has the following parameters: CHAR1{3067} local CHAR2{3068} local [clone LOOP?[867] 3179] has the following parameters: CHAR1{3063} local CHAR2{3064} local [clone CHAR=?[864] 3176] has the following parameters: CHAR1{3058} local CHAR2{3059} local [clone LOOP?[867] 3173] has the following parameters: CHAR1{3054} local CHAR2{3055} local [clone CHAR=?[864] 3170] has the following parameters: CHAR1{3049} local CHAR2{3050} local [clone LOOP?[867] 3167] has the following parameters: CHAR1{3045} local CHAR2{3046} local [clone CHAR=?[864] 3164] has the following parameters: CHAR1{3040} local CHAR2{3041} local [clone LOOP?[867] 3161] has the following parameters: CHAR1{3036} local CHAR2{3037} local [clone CHAR=?[864] 3158] has the following parameters: CHAR1{3031} local CHAR2{3032} local [clone LOOP?[867] 3155] has the following parameters: CHAR1{3027} local CHAR2{3028} local [clone CHAR=?[864] 3152] has the following parameters: CHAR1{3022} local CHAR2{3023} local [clone LOOP?[867] 3149] has the following parameters: CHAR1{3018} local CHAR2{3019} local [clone CHAR=?[864] 3146] has the following parameters: CHAR1{3013} local CHAR2{3014} local [clone LOOP?[867] 3143] has the following parameters: CHAR1{3009} local CHAR2{3010} local [clone CHAR=?[864] 3140] has the following parameters: CHAR1{3004} local CHAR2{3005} local [clone LOOP?[867] 3137] has the following parameters: CHAR1{3000} local CHAR2{3001} local [clone CHAR=?[864] 3134] has the following parameters: CHAR1{2995} local CHAR2{2996} local [clone LOOP?[867] 3131] has the following parameters: CHAR1{2991} local CHAR2{2992} local [clone CHAR=?[864] 3128] has the following parameters: CHAR1{2986} local CHAR2{2987} local [clone LOOP?[867] 3125] has the following parameters: CHAR1{2982} local CHAR2{2983} local [clone CHAR=?[864] 3122] has the following parameters: CHAR1{2977} local CHAR2{2978} local [clone LOOP?[867] 3119] has the following parameters: CHAR1{2973} local CHAR2{2974} local [clone CHAR=?[864] 3116] has the following parameters: CHAR1{2968} local CHAR2{2969} local [clone LOOP?[867] 3113] has the following parameters: CHAR1{2964} local CHAR2{2965} local [clone CHAR=?[864] 3110] has the following parameters: CHAR1{2959} local CHAR2{2960} local [clone LOOP?[867] 3107] has the following parameters: CHAR1{2955} local CHAR2{2956} local [clone CHAR=?[864] 3104] has the following parameters: CHAR1{2950} local CHAR2{2951} local [clone LOOP?[867] 3101] has the following parameters: CHAR1{2946} local CHAR2{2947} local [clone CHAR=?[864] 3098] has the following parameters: CHAR1{2941} local CHAR2{2942} local [clone LOOP?[867] 3095] has the following parameters: CHAR1{2937} local CHAR2{2938} local [clone CHAR=?[864] 3092] has the following parameters: CHAR1{2932} local CHAR2{2933} local [clone LOOP?[867] 3089] has the following parameters: CHAR1{2928} local CHAR2{2929} local [clone CHAR=?[864] 3086] has the following parameters: CHAR1{2923} local CHAR2{2924} local [clone LOOP?[867] 3083] has the following parameters: CHAR1{2919} local CHAR2{2920} local [clone CHAR=?[864] 3080] has the following parameters: CHAR1{2914} local CHAR2{2915} local [clone LOOP?[867] 3077] has the following parameters: CHAR1{2910} local CHAR2{2911} local [clone CHAR=?[864] 3074] has the following parameters: CHAR1{2905} local CHAR2{2906} local [clone LOOP?[867] 3071] has the following parameters: CHAR1{2901} local CHAR2{2902} local [clone CHAR=?[864] 3068] has the following parameters: CHAR1{2896} local CHAR2{2897} local [clone LOOP?[867] 3065] has the following parameters: CHAR1{2892} local CHAR2{2893} local [clone CHAR=?[864] 3062] has the following parameters: CHAR1{2887} local CHAR2{2888} local [clone LOOP?[867] 3059] has the following parameters: CHAR1{2883} local CHAR2{2884} local [clone CHAR=?[864] 3056] has the following parameters: CHAR1{2878} local CHAR2{2879} local [clone LOOP?[867] 3053] has the following parameters: CHAR1{2874} local CHAR2{2875} local [clone CHAR=?[864] 3050] has the following parameters: CHAR1{2869} local CHAR2{2870} local [clone LOOP?[867] 3047] has the following parameters: CHAR1{2865} local CHAR2{2866} local [clone CHAR=?[864] 3044] has the following parameters: CHAR1{2860} local CHAR2{2861} local [clone LOOP?[867] 3041] has the following parameters: CHAR1{2856} local CHAR2{2857} local [clone CHAR=?[864] 3038] has the following parameters: CHAR1{2851} local CHAR2{2852} local [clone LOOP?[867] 3035] has the following parameters: CHAR1{2847} local CHAR2{2848} local [clone CHAR=?[864] 3032] has the following parameters: CHAR1{2842} local CHAR2{2843} local [clone LOOP?[867] 3029] has the following parameters: CHAR1{2838} local CHAR2{2839} local [clone CHAR=?[864] 3026] has the following parameters: CHAR1{2833} local CHAR2{2834} local [clone LOOP?[867] 3023] has the following parameters: CHAR1{2829} local CHAR2{2830} local [clone CHAR=?[864] 3020] has the following parameters: CHAR1{2824} local CHAR2{2825} local [clone LOOP?[867] 3017] has the following parameters: CHAR1{2820} local CHAR2{2821} local [clone CHAR=?[864] 3014] has the following parameters: CHAR1{2815} local CHAR2{2816} local [clone LOOP?[867] 3011] has the following parameters: CHAR1{2811} local CHAR2{2812} local [clone CHAR=?[864] 3008] has the following parameters: CHAR1{2806} local CHAR2{2807} local [clone LOOP?[867] 3005] has the following parameters: CHAR1{2802} local CHAR2{2803} local [clone CHAR=?[864] 3002] has the following parameters: CHAR1{2797} local CHAR2{2798} local [clone LOOP?[867] 2999] has the following parameters: CHAR1{2793} local CHAR2{2794} local [clone CHAR=?[864] 2996] has the following parameters: CHAR1{2788} local CHAR2{2789} local [clone LOOP?[867] 2993] has the following parameters: CHAR1{2784} local CHAR2{2785} local [clone CHAR=?[864] 2990] has the following parameters: CHAR1{2779} local CHAR2{2780} local [clone LOOP?[873] 2987] has the following parameters: CHAR1{2775} local CHAR2{2776} local [clone CHAR?[876] 2978] has the following parameters: CHAR1{2761} local CHAR2{2762} local [clone LOOP?[885] 2975] has the following parameters: CHAR1{2757} local CHAR2{2758} local [clone CHAR<=?[882] 2972] has the following parameters: CHAR1{2752} local CHAR2{2753} local [clone LOOP?[885] 2969] has the following parameters: CHAR1{2748} local CHAR2{2749} local [clone CHAR<=?[882] 2966] has the following parameters: CHAR1{2743} local CHAR2{2744} local [clone LOOP?[885] 2963] has the following parameters: CHAR1{2739} local CHAR2{2740} local [clone CHAR<=?[882] 2960] has the following parameters: CHAR1{2734} local CHAR2{2735} local [clone LOOP?[885] 2957] has the following parameters: CHAR1{2730} local CHAR2{2731} local [clone CHAR<=?[882] 2954] has the following parameters: CHAR1{2725} local CHAR2{2726} local [clone LOOP?[885] 2951] has the following parameters: CHAR1{2721} local CHAR2{2722} local [clone CHAR<=?[882] 2948] has the following parameters: CHAR1{2716} local CHAR2{2717} local [clone LOOP?[885] 2945] has the following parameters: CHAR1{2712} local CHAR2{2713} local [clone CHAR<=?[882] 2942] has the following parameters: CHAR1{2707} local CHAR2{2708} local [clone LOOP?[885] 2939] has the following parameters: CHAR1{2703} local CHAR2{2704} local [clone CHAR<=?[882] 2936] has the following parameters: CHAR1{2698} local CHAR2{2699} local [clone LOOP?[885] 2933] has the following parameters: CHAR1{2694} local CHAR2{2695} local [clone CHAR<=?[882] 2930] has the following parameters: CHAR1{2689} local CHAR2{2690} local [clone LOOP?[885] 2927] has the following parameters: CHAR1{2685} local CHAR2{2686} local [clone CHAR<=?[882] 2924] has the following parameters: CHAR1{2680} local CHAR2{2681} local [clone LOOP?[885] 2921] has the following parameters: CHAR1{2676} local CHAR2{2677} local [clone CHAR<=?[882] 2918] has the following parameters: CHAR1{2671} local CHAR2{2672} local [clone LOOP?[885] 2915] has the following parameters: CHAR1{2667} local CHAR2{2668} local [clone CHAR<=?[882] 2912] has the following parameters: CHAR1{2662} local CHAR2{2663} local [clone LOOP?[885] 2909] has the following parameters: CHAR1{2658} local CHAR2{2659} local [clone CHAR<=?[882] 2906] has the following parameters: CHAR1{2653} local CHAR2{2654} local [clone LOOP?[885] 2903] has the following parameters: CHAR1{2649} local CHAR2{2650} local [clone CHAR<=?[882] 2900] has the following parameters: CHAR1{2644} local CHAR2{2645} local [clone LOOP?[891] 2897] has the following parameters: CHAR1{2640} local CHAR2{2641} local [clone CHAR>=?[888] 2894] has the following parameters: CHAR1{2635} local CHAR2{2636} local [clone LOOP?[891] 2891] has the following parameters: CHAR1{2631} local CHAR2{2632} local [clone CHAR>=?[888] 2888] has the following parameters: CHAR1{2626} local CHAR2{2627} local [clone LOOP?[891] 2885] has the following parameters: CHAR1{2622} local CHAR2{2623} local [clone CHAR>=?[888] 2882] has the following parameters: CHAR1{2617} local CHAR2{2618} local [clone LOOP?[891] 2879] has the following parameters: CHAR1{2613} local CHAR2{2614} local [clone CHAR>=?[888] 2876] has the following parameters: CHAR1{2608} local CHAR2{2609} local [clone LOOP?[891] 2873] has the following parameters: CHAR1{2604} local CHAR2{2605} local [clone CHAR>=?[888] 2870] has the following parameters: CHAR1{2599} local CHAR2{2600} local [clone LOOP?[891] 2867] has the following parameters: CHAR1{2595} local CHAR2{2596} local [clone CHAR>=?[888] 2864] has the following parameters: CHAR1{2590} local CHAR2{2591} local [clone LOOP?[891] 2861] has the following parameters: CHAR1{2586} local CHAR2{2587} local [clone CHAR>=?[888] 2858] has the following parameters: CHAR1{2581} local CHAR2{2582} local [clone LOOP?[891] 2855] has the following parameters: CHAR1{2577} local CHAR2{2578} local [clone CHAR>=?[888] 2852] has the following parameters: CHAR1{2572} local CHAR2{2573} local [clone LOOP?[891] 2849] has the following parameters: CHAR1{2568} local CHAR2{2569} local [clone CHAR>=?[888] 2846] has the following parameters: CHAR1{2563} local CHAR2{2564} local [clone LOOP?[891] 2843] has the following parameters: CHAR1{2559} local CHAR2{2560} local [clone CHAR>=?[888] 2840] has the following parameters: CHAR1{2554} local CHAR2{2555} local [clone LOOP?[891] 2837] has the following parameters: CHAR1{2550} local CHAR2{2551} local [clone CHAR>=?[888] 2834] has the following parameters: CHAR1{2545} local CHAR2{2546} local [clone LOOP?[891] 2831] has the following parameters: CHAR1{2541} local CHAR2{2542} local [clone CHAR>=?[888] 2828] has the following parameters: CHAR1{2536} local CHAR2{2537} local [clone LOOP?[891] 2825] has the following parameters: CHAR1{2532} local CHAR2{2533} local [clone CHAR>=?[888] 2822] has the following parameters: CHAR1{2527} local CHAR2{2528} local [clone PNM-WIDTH[15] 2817] has the following parameter: PNM{2526} local [clone PNM-WIDTH[15] 2812] has the following parameter: PNM{2525} local [clone PNM-WIDTH[15] 2807] has the following parameter: PNM{2524} local [clone PNM-WIDTH[15] 2802] has the following parameter: PNM{2523} local [clone PNM-HEIGHT[20] 2797] has the following parameter: PNM{2522} local [clone PNM-HEIGHT[20] 2792] has the following parameter: PNM{2521} local [clone PNM-HEIGHT[20] 2787] has the following parameter: PNM{2520} local [clone PNM-HEIGHT[20] 2782] has the following parameter: PNM{2519} local [clone READ-CHAR[2206] 2778] has the following parameter: &REST{2518} local [clone READ-CHAR[2206] 2774] has the following parameter: &REST{2517} local [clone READ-CHAR[2206] 2770] has the following parameter: &REST{2516} local [clone READ-CHAR[2206] 2766] has the following parameter: &REST{2515} local [clone READ-CHAR[2206] 2762] has the following parameter: &REST{2514} local [clone READ-CHAR[2206] 2758] has the following parameter: &REST{2513} local [clone READ-CHAR[2206] 2754] has the following parameter: &REST{2512} local [clone READ-CHAR[2206] 2750] has the following parameter: &REST{2511} local [clone READ-CHAR[2206] 2746] has the following parameter: &REST{2510} local [clone READ-CHAR[2206] 2742] has the following parameter: &REST{2509} local [clone READ-CHAR[2206] 2738] has the following parameter: &REST{2508} local [clone READ-CHAR[2206] 2734] has the following parameter: &REST{2507} local [clone READ-CHAR[2206] 2730] has the following parameter: &REST{2506} local [clone READ-CHAR[2206] 2726] has the following parameter: &REST{2505} local [clone READ-CHAR[2206] 2722] has the following parameter: &REST{2504} local [clone READ-CHAR[2206] 2718] has the following parameter: &REST{2503} local [clone READ-CHAR[2206] 2714] has the following parameter: &REST{2502} local [clone READ-CHAR[2206] 2710] has the following parameter: &REST{2501} local [clone READ-CHAR[2206] 2706] has the following parameter: &REST{2500} local [clone READ-CHAR[2206] 2702] has the following parameter: &REST{2499} local [clone READ-CHAR[2206] 2698] has the following parameter: &REST{2498} local [clone READ-CHAR[2206] 2694] has the following parameter: &REST{2497} local [clone READ-CHAR[2206] 2690] has the following parameter: &REST{2496} local [clone READ-CHAR[2206] 2686] has the following parameter: &REST{2495} local [clone READ-CHAR[2206] 2682] has the following parameter: &REST{2494} local [clone READ-CHAR[2206] 2678] has the following parameter: &REST{2493} local [clone READ-CHAR[2206] 2674] has the following parameter: &REST{2492} local [clone READ-CHAR[2206] 2670] has the following parameter: &REST{2491} local [clone READ-CHAR[2206] 2666] has the following parameter: &REST{2490} local [clone READ-CHAR[2206] 2662] has the following parameter: &REST{2489} local [clone READ-CHAR[2206] 2658] has the following parameter: &REST{2488} local [clone READ-CHAR[2206] 2654] has the following parameter: &REST{2487} local [clone READ-CHAR[2206] 2650] has the following parameter: &REST{2486} local [clone READ-CHAR[2206] 2646] has the following parameter: &REST{2485} local [clone READ-CHAR[2206] 2642] has the following parameter: &REST{2484} local [clone READ-CHAR[2206] 2638] has the following parameter: &REST{2483} local [clone READ-CHAR[2206] 2634] has the following parameter: &REST{2482} local [clone READ-CHAR[2206] 2630] has the following parameter: &REST{2481} local [clone READ-CHAR[2206] 2626] has the following parameter: &REST{2480} local [clone READ-CHAR[2206] 2622] has the following parameter: &REST{2479} local [clone READ-CHAR[2206] 2618] has the following parameter: &REST{2478} local [clone READ-CHAR[2206] 2614] has the following parameter: &REST{2477} local [clone READ-CHAR[2206] 2610] has the following parameter: &REST{2476} local [clone READ-CHAR[2206] 2606] has the following parameter: &REST{2475} local [clone READ-CHAR[2206] 2602] has the following parameter: &REST{2474} local [clone READ-CHAR[2206] 2598] has the following parameter: &REST{2473} local [clone READ-CHAR[2206] 2594] has the following parameter: &REST{2472} local [clone READ-CHAR[2206] 2590] has the following parameter: &REST{2471} local [clone READ-CHAR[2206] 2586] has the following parameter: &REST{2470} local [clone READ-CHAR[2206] 2582] has the following parameter: &REST{2469} local [clone READ-CHAR[2206] 2578] has the following parameter: &REST{2468} local [clone READ-CHAR[2206] 2574] has the following parameter: &REST{2467} local [clone READ-CHAR[2206] 2570] has the following parameter: &REST{2466} local [clone READ-CHAR[2206] 2566] has the following parameter: &REST{2465} local [clone READ-CHAR[2206] 2562] has the following parameter: &REST{2464} local [clone READ-CHAR[2206] 2558] has the following parameter: &REST{2463} local [clone READ-CHAR[2206] 2554] has the following parameter: &REST{2462} local [clone READ-CHAR[2206] 2550] has the following parameter: &REST{2461} local [clone READ-CHAR[2206] 2546] has the following parameter: &REST{2460} local [clone PEEK-CHAR[2210] 2542] has the following parameter: &REST{2459} local [clone PEEK-CHAR[2210] 2538] has the following parameter: &REST{2458} local [clone PEEK-CHAR[2210] 2534] has the following parameter: &REST{2457} local [clone PEEK-CHAR[2210] 2530] has the following parameter: &REST{2456} local [clone PEEK-CHAR[2210] 2526] has the following parameter: &REST{2455} local [clone PEEK-CHAR[2210] 2522] has the following parameter: &REST{2454} local [clone PEEK-CHAR[2210] 2518] has the following parameter: &REST{2453} local [clone PEEK-CHAR[2210] 2514] has the following parameter: &REST{2452} local [clone PEEK-CHAR[2210] 2510] has the following parameter: &REST{2451} local [clone PEEK-CHAR[2210] 2506] has the following parameter: &REST{2450} local [clone PEEK-CHAR[2210] 2502] has the following parameter: &REST{2449} local [clone PEEK-CHAR[2210] 2498] has the following parameter: &REST{2448} local [clone PEEK-CHAR[2210] 2494] has the following parameter: &REST{2447} local [clone NEWLINE[2226] 2490] has the following parameter: &REST{2446} local [clone NEWLINE[2226] 2486] has the following parameter: &REST{2445} local [clone NEWLINE[2226] 2482] has the following parameter: &REST{2444} local [clone WRITE-CHAR[2230] 2478] has the following parameters: CHAR{2442} local &REST{2443} local [clone LIST[522] 2477] has the following parameter: OBJS{2441} local [clone LIST[522] 2476] has the following parameter: OBJS{2440} local [clone LIST[522] 2475] has the following parameter: OBJS{2439} local [clone LIST[522] 2474] has the following parameter: OBJS{2438} local [clone LIST[522] 2473] has the following parameter: OBJS{2437} local [clone LIST[522] 2472] has the following parameter: OBJS{2436} local [clone LIST[522] 2471] has the following parameter: OBJS{2435} local [clone LIST[522] 2470] has the following parameter: OBJS{2434} local [clone LIST[522] 2469] has the following parameter: OBJS{2433} local [clone LIST[522] 2468] has the following parameter: OBJS{2432} local WRITE-CHAR[2230] has the following parameters: CHAR{2422} local &REST{2423} local NEWLINE[2226] has the following parameter: &REST{2421} local WRITE[2218] has the following parameters: OBJ{2417} local &REST{2418} local PEEK-CHAR[2210] has the following parameter: &REST{2415} local READ-CHAR[2206] has the following parameter: &REST{2414} local LOOP[1765] has the following parameter: I{2144} local LOOP[1762] has the following parameters: I{2140} local NUMBER{2141} local LOOP[1751] has the following parameter: I{2134} local LOOP[1748] has the following parameters: I{2130} local NUMBER{2131} local DISPLAY-EXACT-INTEGER2[1744] has the following parameters: NUMBER{2126} local PORT{2127} local LOOP[1739] has the following parameter: I{2124} local [inside DISPLAY-STRING2 1736] has the following parameter: N{2121} local DISPLAY-STRING2[1735] has the following parameters: STRING{2119} local PORT{2120} local [inside top level 1731] has the following parameters: THE-CURRENT-OUTPUT-PORT{2080} global THE-CURRENT-INPUT-PORT{2081} global BUFFER{2082} global [inside READ-CHARACTER-NAME 1704] has the following parameter: C{2075} local READ-CHARACTER-NAME[1703] has region has the following parameter: S{2074} local [inside LOOP? 1699] has the following parameter: v{2073} local LOOP?[1698] has the following parameters: S{2071} local NAME{2072} local LOOP[1694] has the following parameter: NAMES{2067} local [inside READ-SYMBOL 1690] has region [inside READ-SYMBOL 1687] has region [inside READ-SYMBOL 1686] has the following parameter: C{2062} local [inside CHAR-SUBSEQUENT? 1684] has the following parameter: v{2060} local [inside CHAR-SUBSEQUENT? 1683] has the following parameter: v{2059} local [inside CHAR-SUBSEQUENT? 1682] has the following parameter: v{2058} local [inside CHAR-SUBSEQUENT? 1681] has the following parameter: v{2057} local CHAR-SUBSEQUENT?[1680] has the following parameter: C{2056} local [inside CHAR-INITIAL? 1679] has the following parameter: v{2055} local [inside CHAR-INITIAL? 1678] has the following parameter: v{2054} local [inside CHAR-INITIAL? 1677] has the following parameter: v{2053} local [inside CHAR-INITIAL? 1676] has the following parameter: v{2052} local [inside CHAR-INITIAL? 1675] has the following parameter: v{2051} local [inside CHAR-INITIAL? 1674] has the following parameter: v{2050} local [inside CHAR-INITIAL? 1673] has the following parameter: v{2049} local [inside CHAR-INITIAL? 1672] has the following parameter: v{2048} local [inside CHAR-INITIAL? 1671] has the following parameter: v{2047} local [inside CHAR-INITIAL? 1670] has the following parameter: v{2046} local [inside CHAR-INITIAL? 1669] has the following parameter: v{2045} local [inside CHAR-INITIAL? 1668] has the following parameter: v{2044} local [inside CHAR-INITIAL? 1667] has the following parameter: v{2043} local [inside CHAR-INITIAL? 1666] has the following parameter: v{2042} local [inside READ-NUMBER 1658] has the following parameter: C3{2038} local [inside READ-NUMBER 1657] has region [inside READ-NUMBER 1653] has the following parameter: C3{2035} local [inside READ-NUMBER 1652] has region [inside READ-NUMBER 1649] has the following parameter: C2{2033} local [inside READ-NUMBER 1648] has region [inside READ-NUMBER 1647] has region [inside READ-NUMBER 1646] has the following parameter: v{2031} local [inside READ-NUMBER 1645] has the following parameter: v{2030} local [inside READ-NUMBER 1644] has the following parameter: v{2029} local [inside READ-NUMBER 1643] has the following parameter: v{2028} local [inside READ-NUMBER 1642] has the following parameter: v{2027} local [inside READ-NUMBER 1641] has the following parameter: v{2026} local [inside READ-NUMBER 1640] has the following parameter: v{2025} local [inside READ-NUMBER 1639] has the following parameter: v{2024} local [inside READ-NUMBER 1638] has the following parameter: v{2023} local [inside READ-NUMBER 1636] has region [inside READ-NUMBER 1632] has the following parameter: C1{2020} local [inside READ-INEXACT-NUMBER 1624] has the following parameter: C3{2016} local [inside READ-INEXACT-NUMBER 1623] has region [inside READ-INEXACT-NUMBER 1619] has the following parameter: C3{2013} local [inside READ-INEXACT-NUMBER 1618] has region [inside READ-INEXACT-NUMBER 1615] has the following parameter: C2{2011} local [inside READ-INEXACT-NUMBER 1614] has region [inside READ-INEXACT-NUMBER 1613] has region [inside READ-INEXACT-NUMBER 1612] has the following parameter: v{2009} local [inside READ-INEXACT-NUMBER 1611] has the following parameter: v{2008} local [inside READ-INEXACT-NUMBER 1610] has the following parameter: v{2007} local [inside READ-INEXACT-NUMBER 1609] has the following parameter: v{2006} local [inside READ-INEXACT-NUMBER 1608] has the following parameter: v{2005} local [inside READ-INEXACT-NUMBER 1607] has the following parameter: v{2004} local [inside READ-INEXACT-NUMBER 1606] has the following parameter: v{2003} local [inside READ-INEXACT-NUMBER 1605] has the following parameter: v{2002} local [inside READ-INEXACT-NUMBER 1604] has the following parameter: v{2001} local [inside READ-INEXACT-NUMBER 1600] has the following parameter: C1{1999} local [inside READ-EXACT-HEXADECIMAL-INTEGER 1590] has the following parameter: C{1993} local [inside READ-EXACT-DECIMAL-INTEGER 1584] has the following parameter: C{1990} local [inside READ-EXACT-OCTAL-INTEGER 1578] has the following parameter: C{1987} local [inside READ-EXACT-BINARY-INTEGER 1570] has the following parameter: C{1983} local [inside READ 1567] has region [inside READ 1562] has region [inside READ 1561] has region [inside READ 1559] has region [inside READ 1557] has the following parameter: C2{1978} local [inside READ 1556] has region [inside READ 1554] has region [inside READ 1553] has region [inside READ 1551] has region [inside READ 1550] has region [inside READ 1548] has region [inside READ 1546] has the following parameter: C3{1974} local [inside READ 1545] has region [inside READ 1544] has region [inside READ 1542] has region [inside READ 1540] has the following parameter: C2{1971} local [inside READ 1539] has region [inside READ 1537] has region [inside READ 1536] has region [inside READ 1534] has region [inside READ 1533] has region [inside READ 1531] has region [inside READ 1529] has the following parameter: C3{1967} local [inside READ 1528] has region [inside READ 1527] has region [inside READ 1525] has region [inside READ 1523] has the following parameter: C2{1964} local [inside READ 1522] has region [inside LOOP 1518] has region [inside LOOP 1515] has the following parameter: C1{1962} local [inside LOOP 1512] has the following parameter: C{1960} local LOOP[1511] has region has the following parameter: S{1959} local [inside READ 1504] has region [inside READ 1503] has the following parameter: C3{1955} local [inside READ 1502] has region [inside LOOP 1500] reentrant has the following parameter: E{1954} local LOOP[1499] reentrant has region has the following parameter: S{1953} local [inside READ 1496] reentrant [inside READ 1487] has the following parameter: C4{1949} local [inside READ 1486] has region [inside READ 1479] has the following parameter: C4{1947} local [inside READ 1478] has region [inside READ 1473] has the following parameter: C3{1945} local [inside READ 1472] has region [inside READ 1471] has the following parameter: v{1944} local [inside READ 1464] has the following parameter: C4{1941} local [inside READ 1463] has region [inside READ 1457] has the following parameter: C5{1938} local [inside READ 1456] has region [inside READ 1453] has the following parameter: C4{1936} local [inside READ 1452] has region [inside READ 1446] has the following parameter: C5{1933} local [inside READ 1445] has region [inside READ 1442] has the following parameter: C4{1931} local [inside READ 1441] has region [inside READ 1439] has the following parameter: C3{1929} local [inside READ 1438] has region [inside READ 1437] has the following parameter: v{1928} local [inside READ 1433] has the following parameter: v{1927} local [inside READ 1430] has the following parameter: C4{1924} local [inside READ 1429] has region [inside READ 1427] has the following parameter: v{1923} local [inside READ 1424] has the following parameter: C4{1920} local [inside READ 1423] has region [inside READ 1420] has the following parameter: C3{1918} local [inside READ 1419] has region [inside READ 1418] has the following parameter: v{1917} local [inside READ 1410] has the following parameter: C4{1915} local [inside READ 1409] has region [inside READ 1403] has the following parameter: C4{1913} local [inside READ 1402] has region [inside READ 1398] has the following parameter: C3{1911} local [inside READ 1397] has region [inside READ 1396] has the following parameter: v{1910} local [inside READ 1394] has the following parameter: v{1909} local [inside READ 1392] has the following parameter: v{1908} local [inside READ 1391] reentrant [inside READ 1390] reentrant has the following parameter: C2{1906} local [inside READ 1389] reentrant [inside LOOP 1387] reentrant LOOP[1383] has the following parameters: S{1904} local C{1905} local [inside LOOP 1378] reentrant has the following parameter: E1{1900} local [inside LOOP 1377] reentrant [inside LOOP 1376] reentrant [inside LOOP 1375] reentrant has the following parameter: E{1898} local LOOP[1374] reentrant has region has the following parameter: S{1897} local [inside READ 1371] reentrant [inside READ 1369] reentrant [inside READ 1368] reentrant [inside READ 1367] reentrant [inside READ 1366] reentrant [inside READ 1365] reentrant has the following parameter: C2{1892} local [inside READ 1364] reentrant [inside READ 1363] reentrant [inside READ 1362] reentrant [inside READ 1360] reentrant [inside READ 1351] reentrant [inside READ 1350] reentrant [inside READ 1339] reentrant has the following parameter: C1{1887} local [inside READ 1338] reentrant [inside READ 1337] reentrant [inside READ 1333] has the following parameters: CLOSE{1860} global DOT{1861} global [inside CALL-WITH-OUTPUT-FILE 1317] has the following parameter: OUTPUT-PORT{1849} local CALL-WITH-OUTPUT-FILE[1316] has the following parameter: STRING{1847} local [inside CALL-WITH-INPUT-FILE 1313] has the following parameter: R{1845} local [inside CALL-WITH-INPUT-FILE 1312] has the following parameter: INPUT-PORT{1844} local CALL-WITH-INPUT-FILE[1311] has the following parameter: STRING{1842} local LOOP[1176] has the following parameter: K{1729} local [inside LIST->VECTOR 1172] has the following parameter: R{1725} local LIST->VECTOR[1171] has the following parameter: LIST{1724} local LOOP[1123] has the following parameter: K{1684} local [inside STRING-COPY 1118] has the following parameter: R{1680} local [inside STRING-COPY 1117] has the following parameter: N{1679} local LOOP[1111] has the following parameter: K{1675} local [inside LIST->STRING 1107] has the following parameter: R{1671} local LOOP[1098] has the following parameters: K{1663} local STRINGS{1664} local LOOP[1089] has the following parameter: L{1658} local [inside LOOP 1085] has the following parameter: N{1654} local LOOP[1084] has the following parameter: STRINGS{1653} local [inside STRING-APPEND 1079] has the following parameter: K{1649} local [inside STRING-APPEND 1078] has the following parameter: R{1648} local STRING-APPEND[1077] has the following parameter: STRINGS{1647} local [inside LOOP? 963] has the following parameter: v{1502} local LOOP?[962] has the following parameter: K{1501} local [inside LOOP? 959] has the following parameter: N{1498} local LOOP?[958] has the following parameters: STRING1{1495} local STRING2{1496} local CHAR-UPCASE[937] has the following parameter: CHAR{1472} local [inside CHAR-WHITESPACE? 932] has the following parameter: v{1467} local [inside CHAR-WHITESPACE? 931] has the following parameter: v{1466} local [inside CHAR-WHITESPACE? 930] has the following parameter: v{1465} local [inside CHAR-WHITESPACE? 929] has the following parameter: v{1464} local [inside CHAR-WHITESPACE? 928] has the following parameter: C{1463} local CHAR-WHITESPACE?[927] has the following parameter: CHAR{1462} local CHAR-NUMERIC?[926] has the following parameter: CHAR{1461} local [inside CHAR-ALPHABETIC? 925] has the following parameter: v{1460} local CHAR-ALPHABETIC?[924] has the following parameter: CHAR{1459} local LOOP?[897] has the following parameters: CHAR1{1419} local CHAR2{1420} local CHAR-CI=?[894] has the following parameters: CHAR1{1414} local CHAR2{1415} local LOOP?[891] has the following parameters: CHAR1{1410} local CHAR2{1411} local CHAR>=?[888] has the following parameters: CHAR1{1405} local CHAR2{1406} local LOOP?[885] has the following parameters: CHAR1{1401} local CHAR2{1402} local CHAR<=?[882] has the following parameters: CHAR1{1396} local CHAR2{1397} local LOOP?[879] has the following parameters: CHAR1{1392} local CHAR2{1393} local CHAR>?[876] has the following parameters: CHAR1{1387} local CHAR2{1388} local LOOP?[873] has the following parameters: CHAR1{1383} local CHAR2{1384} local CHARCHAR) (# # X)) PORT) The following expression, nfm-stalin.sc:239:8315, allocates on the stack: (STRING-APPEND PATHNAME (IF (PBM? PNM) (#) (IF # # #))) The following expression, nfm-stalin.sc:95:3448, allocates on the stack: (READ PORT) The following expression, nfm-stalin.sc:96:3489, allocates on the stack: (READ PORT) The following expression, nfm-stalin.sc:97:3530, allocates on the stack: (READ PORT) The following expression, nfm-stalin.sc:99:3588, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) HEIGHT) The following expression, nfm-stalin.sc:102:3682, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) WIDTH) The following expression, nfm-stalin.sc:105:3753, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) HEIGHT) The following expression, nfm-stalin.sc:108:3853, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) WIDTH) The following expression, nfm-stalin.sc:111:3927, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) HEIGHT) The following expression, nfm-stalin.sc:114:4024, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) WIDTH) The following expression, nfm-stalin.sc:132:4678, allocates on loop[172]: (READ PORT) The following expression, nfm-stalin.sc:133:4703, allocates on [inside loop 176]: (READ PORT) The following expression, nfm-stalin.sc:134:4728, allocates on [inside loop 177]: (READ PORT) The following expression, nfm-stalin.sc:120:4162, allocates on the stack: (READ-CHAR PORT) The following expression, nfm-stalin.sc:123:4280, allocates on loop[151]: (READ-CHAR PORT) The following expression, nfm-stalin.sc:124:4310, allocates on [inside loop 155]: (READ-CHAR PORT) The following expression, nfm-stalin.sc:125:4340, allocates on [inside loop 156]: (READ-CHAR PORT) The following expression, nfm-stalin.sc:139:4963, allocates on the heap: (MAKE-PPM RAW? MAXVAL RED GREEN BLUE) The following expression, nfm-stalin.sc:69:2530, allocates on the stack: (READ PORT) The following expression, nfm-stalin.sc:70:2571, allocates on the stack: (READ PORT) The following expression, nfm-stalin.sc:71:2612, allocates on the stack: (READ PORT) The following expression, nfm-stalin.sc:73:2671, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) HEIGHT) The following expression, nfm-stalin.sc:76:2768, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) WIDTH) The following expression, nfm-stalin.sc:90:3242, allocates on loop[112]: (READ PORT) The following expression, nfm-stalin.sc:82:2906, allocates on the stack: (READ-CHAR PORT) The following expression, nfm-stalin.sc:85:3022, allocates on loop[94]: (READ-CHAR PORT) The following expression, nfm-stalin.sc:93:3359, allocates on the heap: (MAKE-PGM RAW? MAXVAL GREY) The following expression, nfm-stalin.sc:49:1871, allocates on the stack: (READ PORT) The following expression, nfm-stalin.sc:50:1912, allocates on the stack: (READ PORT) The following expression, nfm-stalin.sc:51:1946, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) HEIGHT) The following expression, nfm-stalin.sc:54:2042, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) WIDTH) The following expression, nfm-stalin.sc:64:2326, allocates on loop[57]: (READ PORT) The following expression, nfm-stalin.sc:67:2446, allocates on the heap: (MAKE-PBM RAW? BITMAP) The following expression, nfm-stalin.sc:140:5019, allocates on the stack: (READ PORT) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W27246 is general case for the following reasons: nondegenerate nonheaded vector W16548 is general case for the following reasons: flonum W16547 is general case for the following reasons: flonum W16530 is general case for the following reasons: flonum W16119 is general case for the following reasons: flonum W16086 is general case for the following reasons: flonum W16085 is general case for the following reasons: flonum W16084 is general case for the following reasons: flonum W15329 is general case for the following reasons: flonum W15317 is general case for the following reasons: flonum W555 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code nfm-stalin.c: In function `f1685': nfm-stalin.c:1770: warning: value computed is not used nfm-stalin.c: In function `f1631': nfm-stalin.c:2772: warning: value computed is not used nfm-stalin.c:2824: warning: value computed is not used nfm-stalin.c:3008: warning: value computed is not used nfm-stalin.c: In function `f1599': nfm-stalin.c:3698: warning: value computed is not used nfm-stalin.c:3890: warning: value computed is not used nfm-stalin.c: In function `f1589': nfm-stalin.c:4357: warning: value computed is not used nfm-stalin.c:4414: warning: value computed is not used nfm-stalin.c:4472: warning: value computed is not used nfm-stalin.c: In function `f1583': nfm-stalin.c:4606: warning: value computed is not used nfm-stalin.c: In function `f1577': nfm-stalin.c:4735: warning: value computed is not used nfm-stalin.c: In function `f1569': nfm-stalin.c:4856: warning: value computed is not used nfm-stalin.c:4894: warning: value computed is not used nfm-stalin.c: In function `f1336': nfm-stalin.c:7736: warning: value computed is not used nfm-stalin.c:10298: warning: value computed is not used nfm-stalin.c:10649: warning: value computed is not used nfm-stalin.c:10704: warning: value computed is not used nfm-stalin.c:10799: warning: value computed is not used nfm-stalin.c:10925: warning: value computed is not used nfm-stalin.c:11149: warning: value computed is not used nfm-stalin.c:11347: warning: value computed is not used nfm-stalin.c:11415: warning: value computed is not used nfm-stalin.c:11510: warning: value computed is not used nfm-stalin.c:11636: warning: value computed is not used nfm-stalin.c:11860: warning: value computed is not used nfm-stalin.c:12053: warning: value computed is not used nfm-stalin.c:12178: warning: value computed is not used nfm-stalin.c: In function `f130': nfm-stalin.c:15019: warning: value computed is not used nfm-stalin.c: In function `f75': nfm-stalin.c:15450: warning: value computed is not used Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 1% - Expanding macros 3 - 1% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 1 - 0% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 37 - 8% - Performing flow analysis 0 - 0% - Enumerating call sites 2 - 0% - Determining which types and type sets are used 29 - 7% - Determining which call sites to split 0 - 0% - Computing call graph 7 - 2% - Determining which environments are called more than once 2 - 0% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 48 - 11% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 4 - 1% - Determining which environments are recursive 13 - 3% - Determining which environments are reentrant 1 - 0% - Asserting uniqueness 205 - 46% - Performing lightweight closure conversion 0 - 0% - Determining parents 4 - 1% - Determining which expressions need conversion to CPS 2 - 0% - Determining environment distances from root 1 - 0% - Determining which environments have external self tail calls 5 - 1% - Determining which environments have external continuation calls 9 - 2% - Determining blocked environments 0 - 0% - Determining allocations 10 - 2% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 3 - 1% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 35 - 8% - Generating code 13 - 3% - Removing unused declarations 2 - 0% - Removing unused labels 1 - 0% - Writing database 0 - 0% - Compiling C code 448.52user 0.84system 7:42.61elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (34019major+448818minor)pagefaults 0swaps run nfm 3.83user 0.09system 0:07.43elapsed 52%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (106major+669minor)pagefaults 0swaps compile integ Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 14891 expressions 0 internal symbol types 0 external symbol types 35 primitive procedure types 210 non-called native procedure types 265 called noop native procedure types 108 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 16997 type sets 600 hunoz variables 1504 non-hunoz variables 476 noop environments 1569 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 14891 expressions 0 internal symbol types 0 external symbol types 35 primitive procedure types 210 non-called native procedure types 265 called noop native procedure types 108 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 16997 type sets 600 hunoz variables 1504 non-hunoz variables 476 noop environments 1569 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 2044 expressions 0 internal symbol types 0 external symbol types 35 primitive procedure types 210 non-called native procedure types 265 called noop native procedure types 108 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 2842 type sets 273 hunoz variables 523 non-hunoz variables 0 noop environments 108 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: DISPLAY-MANTISSA-EXPONENT2[1350] has the following parameters: MANTISSA{1819} local EXPONENT{1820} local PORT{1821} local has the following in-lined locals: NUMBER{1798} PORT{1799} I{1802} NUMBER{1803} I{1806} I{1812} NUMBER{1813} I{1816} FLOAT-DIGIT{1822} DIGIT{1823} MANTISSA{1830} FLOAT-DIGIT{1831} DIGIT{1832} MANTISSA{1834} DISPLAY-STRING2[1312] has the following parameters: STRING{1791} local PORT{1792} local has the following in-lined locals: N{1793} I{1796} [inside INTEGRATE-2D 12] has parent parameter [inside INTEGRATE-2D 11] has the following parameter: X{674} local has the following in-lined locals: X{677} Y{678} [inside INTEGRATE-2D 11] reentrant has closure has the following parameter: Y{673} slotted INTEGRATE-1D[8] reentrant has the following parameters: L{664} local U{665} local F{666} local has the following in-lined local: D{667} [inside top level 0] has the following in-lined locals: L2{670} U2{671} U{675} V{676} N{679} I{682} SUM{683} N{684} I{687} SUM{688} I2{689} N{690} I{693} SUM{694} E{695} NUMBER{1835} PORT{1836} MANTISSA{1840} EXPONENT{1841} MANTISSA{1844} EXPONENT{1845} OBJ{1880} PORT{1881} OBJ{2091} The following non-trivial in-line native procedures will be generated: DISPLAY[1799] has the following parameter: OBJ{2091} local DISPLAY2[1448] has the following parameters: OBJ{1880} local PORT{1881} local LOOP[1385] has the following parameters: MANTISSA{1844} local EXPONENT{1845} local LOOP[1380] has the following parameters: MANTISSA{1840} local EXPONENT{1841} local DISPLAY-INEXACT-REAL2[1371] has the following parameters: NUMBER{1835} local PORT{1836} local [inside LOOP 1368] has the following parameter: MANTISSA{1834} local [inside LOOP 1365] has the following parameter: DIGIT{1832} local [inside LOOP 1364] has the following parameter: FLOAT-DIGIT{1831} local LOOP[1363] has the following parameter: MANTISSA{1830} local [inside DISPLAY-MANTISSA-EXPONENT2 1352] has the following parameter: DIGIT{1823} local [inside DISPLAY-MANTISSA-EXPONENT2 1351] has the following parameter: FLOAT-DIGIT{1822} local LOOP[1342] has the following parameter: I{1816} local LOOP[1339] has the following parameters: I{1812} local NUMBER{1813} local LOOP[1328] has the following parameter: I{1806} local LOOP[1325] has the following parameters: I{1802} local NUMBER{1803} local DISPLAY-EXACT-INTEGER2[1321] has the following parameters: NUMBER{1798} local PORT{1799} local LOOP[1316] has the following parameter: I{1796} local [inside DISPLAY-STRING2 1313] has the following parameter: N{1793} local [inside top level 1308] has the following parameters: THE-CURRENT-OUTPUT-PORT{1752} global BUFFER{1754} global [inside loop 36] has the following parameter: E{695} local loop[33] has the following parameters: I{693} local SUM{694} local ERROR-SUM-OF-SQUARES[30] has the following parameter: N{690} local [inside loop 28] has the following parameter: I2{689} local loop[25] has the following parameters: I{687} local SUM{688} local I-TOTAL[22] has the following parameter: N{684} local loop[18] has the following parameters: I{682} local SUM{683} local R-TOTAL[15] has the following parameter: N{679} local [inside ZARK 14] has the following parameters: X{677} local Y{678} local ZARK[13] has the following parameters: U{675} local V{676} local INTEGRATE-2D[10] has the following parameters: L1{668} global U1{669} global L2{670} local U2{671} local [inside INTEGRATE-1D 9] reentrant has the following parameter: D{667} local The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20) The closure for [inside INTEGRATE-2D 11] is allocated on the stack Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W14892 is general case for the following reasons: nondegenerate nonheaded vector W2425 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 11% - Expanding macros 6 - 32% - Fast tree shake 0 - 1% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 0 - 3% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 3 - 18% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 0 - 3% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 1% - Determining which environments are called more than once 0 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 1 - 6% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 0% - Determining which environments are recursive 0 - 1% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 2 - 12% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 2% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 0 - 1% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 1% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 0 - 1% - Generating code 0 - 0% - Removing unused declarations 0 - 1% - Removing unused labels 0 - 3% - Writing database 0 - 0% - Compiling C code 17.92user 0.26system 0:20.37elapsed 89%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32727major+217034minor)pagefaults 0swaps run integ 1.18user 0.00system 0:01.19elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (93major+33minor)pagefaults 0swaps compile integ2 Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 16514 expressions 0 internal symbol types 0 external symbol types 35 primitive procedure types 210 non-called native procedure types 274 called noop native procedure types 294 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 19082 type sets 609 hunoz variables 1957 non-hunoz variables 485 noop environments 1755 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 16514 expressions 0 internal symbol types 0 external symbol types 35 primitive procedure types 210 non-called native procedure types 274 called noop native procedure types 294 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 19082 type sets 609 hunoz variables 1957 non-hunoz variables 485 noop environments 1755 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 3667 expressions 0 internal symbol types 0 external symbol types 35 primitive procedure types 210 non-called native procedure types 274 called noop native procedure types 294 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 4927 type sets 282 hunoz variables 976 non-hunoz variables 0 noop environments 294 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: DISPLAY-MANTISSA-EXPONENT2[1545] has the following parameters: MANTISSA{2281} local EXPONENT{2282} local PORT{2283} local has the following in-lined locals: NUMBER{2260} PORT{2261} I{2264} NUMBER{2265} I{2268} I{2274} NUMBER{2275} I{2278} FLOAT-DIGIT{2284} DIGIT{2285} MANTISSA{2292} FLOAT-DIGIT{2293} DIGIT{2294} MANTISSA{2296} DISPLAY-STRING2[1507] has the following parameters: STRING{2253} local PORT{2254} local has the following in-lined locals: N{2255} I{2258} [inside top level 0] has the following in-lined locals: L{682} U{683} D{693} L{694} U{695} D{705} L{706} U{707} D{717} L{718} U{719} D{729} L{730} U{731} D{741} L{742} U{743} D{753} L{754} U{755} D{765} L{766} U{767} D{777} L{778} U{779} D{789} L{790} U{791} D{801} L1{802} U1{803} L2{804} U2{805} Y{887} X{888} X{889} X{890} X{891} X{892} X{893} X{894} X{895} X{896} Y{897} X{898} X{899} X{900} X{901} X{902} X{903} X{904} X{905} X{906} Y{907} X{908} X{909} X{910} X{911} X{912} X{913} X{914} X{915} X{916} Y{917} X{918} X{919} X{920} X{921} X{922} X{923} X{924} X{925} X{926} Y{927} X{928} X{929} X{930} X{931} X{932} X{933} X{934} X{935} X{936} Y{937} X{938} X{939} X{940} X{941} X{942} X{943} X{944} X{945} X{946} Y{947} X{948} X{949} X{950} X{951} X{952} X{953} X{954} X{955} X{956} Y{957} X{958} X{959} X{960} X{961} X{962} X{963} X{964} X{965} X{966} Y{967} X{968} X{969} X{970} X{971} X{972} X{973} X{974} X{975} X{976} U{977} V{978} X{979} Y{980} X{981} Y{982} X{983} Y{984} X{985} Y{986} X{987} Y{988} X{989} Y{990} X{991} Y{992} X{993} Y{994} X{995} Y{996} X{997} Y{998} X{999} Y{1000} X{1001} Y{1002} X{1003} Y{1004} X{1005} Y{1006} X{1007} Y{1008} X{1009} Y{1010} X{1011} Y{1012} X{1013} Y{1014} X{1015} Y{1016} X{1017} Y{1018} X{1019} Y{1020} X{1021} Y{1022} X{1023} Y{1024} X{1025} Y{1026} X{1027} Y{1028} X{1029} Y{1030} X{1031} Y{1032} X{1033} Y{1034} X{1035} Y{1036} X{1037} Y{1038} X{1039} Y{1040} X{1041} Y{1042} X{1043} Y{1044} X{1045} Y{1046} X{1047} Y{1048} X{1049} Y{1050} X{1051} Y{1052} X{1053} Y{1054} X{1055} Y{1056} X{1057} Y{1058} X{1059} Y{1060} X{1061} Y{1062} X{1063} Y{1064} X{1065} Y{1066} X{1067} Y{1068} X{1069} Y{1070} X{1071} Y{1072} X{1073} Y{1074} X{1075} Y{1076} X{1077} Y{1078} X{1079} Y{1080} X{1081} Y{1082} X{1083} Y{1084} X{1085} Y{1086} X{1087} Y{1088} X{1089} Y{1090} X{1091} Y{1092} X{1093} Y{1094} X{1095} Y{1096} X{1097} Y{1098} X{1099} Y{1100} X{1101} Y{1102} X{1103} Y{1104} X{1105} Y{1106} X{1107} Y{1108} X{1109} Y{1110} X{1111} Y{1112} X{1113} Y{1114} X{1115} Y{1116} X{1117} Y{1118} X{1119} Y{1120} X{1121} Y{1122} X{1123} Y{1124} X{1125} Y{1126} X{1127} Y{1128} X{1129} Y{1130} X{1131} Y{1132} X{1133} Y{1134} X{1135} Y{1136} X{1137} Y{1138} X{1139} Y{1140} N{1141} I{1144} SUM{1145} N{1146} I{1149} SUM{1150} I2{1151} N{1152} I{1155} SUM{1156} E{1157} NUMBER{2297} PORT{2298} MANTISSA{2302} EXPONENT{2303} MANTISSA{2306} EXPONENT{2307} OBJ{2342} PORT{2343} OBJ{2553} The following non-trivial in-line native procedures will be generated: DISPLAY[1994] has the following parameter: OBJ{2553} local DISPLAY2[1643] has the following parameters: OBJ{2342} local PORT{2343} local LOOP[1580] has the following parameters: MANTISSA{2306} local EXPONENT{2307} local LOOP[1575] has the following parameters: MANTISSA{2302} local EXPONENT{2303} local DISPLAY-INEXACT-REAL2[1566] has the following parameters: NUMBER{2297} local PORT{2298} local [inside LOOP 1563] has the following parameter: MANTISSA{2296} local [inside LOOP 1560] has the following parameter: DIGIT{2294} local [inside LOOP 1559] has the following parameter: FLOAT-DIGIT{2293} local LOOP[1558] has the following parameter: MANTISSA{2292} local [inside DISPLAY-MANTISSA-EXPONENT2 1547] has the following parameter: DIGIT{2285} local [inside DISPLAY-MANTISSA-EXPONENT2 1546] has the following parameter: FLOAT-DIGIT{2284} local LOOP[1537] has the following parameter: I{2278} local LOOP[1534] has the following parameters: I{2274} local NUMBER{2275} local LOOP[1523] has the following parameter: I{2268} local LOOP[1520] has the following parameters: I{2264} local NUMBER{2265} local DISPLAY-EXACT-INTEGER2[1516] has the following parameters: NUMBER{2260} local PORT{2261} local LOOP[1511] has the following parameter: I{2258} local [inside DISPLAY-STRING2 1508] has the following parameter: N{2255} local [inside top level 1503] has the following parameters: THE-CURRENT-OUTPUT-PORT{2214} global BUFFER{2216} global [inside loop 222] has the following parameter: E{1157} local loop[219] has the following parameters: I{1155} local SUM{1156} local ERROR-SUM-OF-SQUARES[216] has the following parameter: N{1152} local [inside loop 214] has the following parameter: I2{1151} local loop[211] has the following parameters: I{1149} local SUM{1150} local I-TOTAL[208] has the following parameter: N{1146} local loop[204] has the following parameters: I{1144} local SUM{1145} local R-TOTAL[201] has the following parameter: N{1141} local [inside ZARK 200] has the following parameters: X{1139} local Y{1140} local [inside ZARK 199] has the following parameters: X{1137} local Y{1138} local [inside ZARK 198] has the following parameters: X{1135} local Y{1136} local [inside ZARK 197] has the following parameters: X{1133} local Y{1134} local [inside ZARK 196] has the following parameters: X{1131} local Y{1132} local [inside ZARK 195] has the following parameters: X{1129} local Y{1130} local [inside ZARK 194] has the following parameters: X{1127} local Y{1128} local [inside ZARK 193] has the following parameters: X{1125} local Y{1126} local [inside ZARK 192] has the following parameters: X{1123} local Y{1124} local [inside ZARK 191] has the following parameters: X{1121} local Y{1122} local [inside ZARK 190] has the following parameters: X{1119} local Y{1120} local [inside ZARK 189] has the following parameters: X{1117} local Y{1118} local [inside ZARK 188] has the following parameters: X{1115} local Y{1116} local [inside ZARK 187] has the following parameters: X{1113} local Y{1114} local [inside ZARK 186] has the following parameters: X{1111} local Y{1112} local [inside ZARK 185] has the following parameters: X{1109} local Y{1110} local [inside ZARK 184] has the following parameters: X{1107} local Y{1108} local [inside ZARK 183] has the following parameters: X{1105} local Y{1106} local [inside ZARK 182] has the following parameters: X{1103} local Y{1104} local [inside ZARK 181] has the following parameters: X{1101} local Y{1102} local [inside ZARK 180] has the following parameters: X{1099} local Y{1100} local [inside ZARK 179] has the following parameters: X{1097} local Y{1098} local [inside ZARK 178] has the following parameters: X{1095} local Y{1096} local [inside ZARK 177] has the following parameters: X{1093} local Y{1094} local [inside ZARK 176] has the following parameters: X{1091} local Y{1092} local [inside ZARK 175] has the following parameters: X{1089} local Y{1090} local [inside ZARK 174] has the following parameters: X{1087} local Y{1088} local [inside ZARK 173] has the following parameters: X{1085} local Y{1086} local [inside ZARK 172] has the following parameters: X{1083} local Y{1084} local [inside ZARK 171] has the following parameters: X{1081} local Y{1082} local [inside ZARK 170] has the following parameters: X{1079} local Y{1080} local [inside ZARK 169] has the following parameters: X{1077} local Y{1078} local [inside ZARK 168] has the following parameters: X{1075} local Y{1076} local [inside ZARK 167] has the following parameters: X{1073} local Y{1074} local [inside ZARK 166] has the following parameters: X{1071} local Y{1072} local [inside ZARK 165] has the following parameters: X{1069} local Y{1070} local [inside ZARK 164] has the following parameters: X{1067} local Y{1068} local [inside ZARK 163] has the following parameters: X{1065} local Y{1066} local [inside ZARK 162] has the following parameters: X{1063} local Y{1064} local [inside ZARK 161] has the following parameters: X{1061} local Y{1062} local [inside ZARK 160] has the following parameters: X{1059} local Y{1060} local [inside ZARK 159] has the following parameters: X{1057} local Y{1058} local [inside ZARK 158] has the following parameters: X{1055} local Y{1056} local [inside ZARK 157] has the following parameters: X{1053} local Y{1054} local [inside ZARK 156] has the following parameters: X{1051} local Y{1052} local [inside ZARK 155] has the following parameters: X{1049} local Y{1050} local [inside ZARK 154] has the following parameters: X{1047} local Y{1048} local [inside ZARK 153] has the following parameters: X{1045} local Y{1046} local [inside ZARK 152] has the following parameters: X{1043} local Y{1044} local [inside ZARK 151] has the following parameters: X{1041} local Y{1042} local [inside ZARK 150] has the following parameters: X{1039} local Y{1040} local [inside ZARK 149] has the following parameters: X{1037} local Y{1038} local [inside ZARK 148] has the following parameters: X{1035} local Y{1036} local [inside ZARK 147] has the following parameters: X{1033} local Y{1034} local [inside ZARK 146] has the following parameters: X{1031} local Y{1032} local [inside ZARK 145] has the following parameters: X{1029} local Y{1030} local [inside ZARK 144] has the following parameters: X{1027} local Y{1028} local [inside ZARK 143] has the following parameters: X{1025} local Y{1026} local [inside ZARK 142] has the following parameters: X{1023} local Y{1024} local [inside ZARK 141] has the following parameters: X{1021} local Y{1022} local [inside ZARK 140] has the following parameters: X{1019} local Y{1020} local [inside ZARK 139] has the following parameters: X{1017} local Y{1018} local [inside ZARK 138] has the following parameters: X{1015} local Y{1016} local [inside ZARK 137] has the following parameters: X{1013} local Y{1014} local [inside ZARK 136] has the following parameters: X{1011} local Y{1012} local [inside ZARK 135] has the following parameters: X{1009} local Y{1010} local [inside ZARK 134] has the following parameters: X{1007} local Y{1008} local [inside ZARK 133] has the following parameters: X{1005} local Y{1006} local [inside ZARK 132] has the following parameters: X{1003} local Y{1004} local [inside ZARK 131] has the following parameters: X{1001} local Y{1002} local [inside ZARK 130] has the following parameters: X{999} local Y{1000} local [inside ZARK 129] has the following parameters: X{997} local Y{998} local [inside ZARK 128] has the following parameters: X{995} local Y{996} local [inside ZARK 127] has the following parameters: X{993} local Y{994} local [inside ZARK 126] has the following parameters: X{991} local Y{992} local [inside ZARK 125] has the following parameters: X{989} local Y{990} local [inside ZARK 124] has the following parameters: X{987} local Y{988} local [inside ZARK 123] has the following parameters: X{985} local Y{986} local [inside ZARK 122] has the following parameters: X{983} local Y{984} local [inside ZARK 121] has the following parameters: X{981} local Y{982} local [inside ZARK 120] has the following parameters: X{979} local Y{980} local ZARK[119] has the following parameters: U{977} local V{978} local [inside INTEGRATE-2D 118] has the following parameter: X{976} local [inside INTEGRATE-2D 117] has the following parameter: X{975} local [inside INTEGRATE-2D 116] has the following parameter: X{974} local [inside INTEGRATE-2D 115] has the following parameter: X{973} local [inside INTEGRATE-2D 114] has the following parameter: X{972} local [inside INTEGRATE-2D 113] has the following parameter: X{971} local [inside INTEGRATE-2D 112] has the following parameter: X{970} local [inside INTEGRATE-2D 111] has the following parameter: X{969} local [inside INTEGRATE-2D 110] has the following parameter: X{968} local [inside INTEGRATE-2D 109] has the following parameter: Y{967} local [inside INTEGRATE-2D 108] has the following parameter: X{966} local [inside INTEGRATE-2D 107] has the following parameter: X{965} local [inside INTEGRATE-2D 106] has the following parameter: X{964} local [inside INTEGRATE-2D 105] has the following parameter: X{963} local [inside INTEGRATE-2D 104] has the following parameter: X{962} local [inside INTEGRATE-2D 103] has the following parameter: X{961} local [inside INTEGRATE-2D 102] has the following parameter: X{960} local [inside INTEGRATE-2D 101] has the following parameter: X{959} local [inside INTEGRATE-2D 100] has the following parameter: X{958} local [inside INTEGRATE-2D 99] has the following parameter: Y{957} local [inside INTEGRATE-2D 98] has the following parameter: X{956} local [inside INTEGRATE-2D 97] has the following parameter: X{955} local [inside INTEGRATE-2D 96] has the following parameter: X{954} local [inside INTEGRATE-2D 95] has the following parameter: X{953} local [inside INTEGRATE-2D 94] has the following parameter: X{952} local [inside INTEGRATE-2D 93] has the following parameter: X{951} local [inside INTEGRATE-2D 92] has the following parameter: X{950} local [inside INTEGRATE-2D 91] has the following parameter: X{949} local [inside INTEGRATE-2D 90] has the following parameter: X{948} local [inside INTEGRATE-2D 89] has the following parameter: Y{947} local [inside INTEGRATE-2D 88] has the following parameter: X{946} local [inside INTEGRATE-2D 87] has the following parameter: X{945} local [inside INTEGRATE-2D 86] has the following parameter: X{944} local [inside INTEGRATE-2D 85] has the following parameter: X{943} local [inside INTEGRATE-2D 84] has the following parameter: X{942} local [inside INTEGRATE-2D 83] has the following parameter: X{941} local [inside INTEGRATE-2D 82] has the following parameter: X{940} local [inside INTEGRATE-2D 81] has the following parameter: X{939} local [inside INTEGRATE-2D 80] has the following parameter: X{938} local [inside INTEGRATE-2D 79] has the following parameter: Y{937} local [inside INTEGRATE-2D 78] has the following parameter: X{936} local [inside INTEGRATE-2D 77] has the following parameter: X{935} local [inside INTEGRATE-2D 76] has the following parameter: X{934} local [inside INTEGRATE-2D 75] has the following parameter: X{933} local [inside INTEGRATE-2D 74] has the following parameter: X{932} local [inside INTEGRATE-2D 73] has the following parameter: X{931} local [inside INTEGRATE-2D 72] has the following parameter: X{930} local [inside INTEGRATE-2D 71] has the following parameter: X{929} local [inside INTEGRATE-2D 70] has the following parameter: X{928} local [inside INTEGRATE-2D 69] has the following parameter: Y{927} local [inside INTEGRATE-2D 68] has the following parameter: X{926} local [inside INTEGRATE-2D 67] has the following parameter: X{925} local [inside INTEGRATE-2D 66] has the following parameter: X{924} local [inside INTEGRATE-2D 65] has the following parameter: X{923} local [inside INTEGRATE-2D 64] has the following parameter: X{922} local [inside INTEGRATE-2D 63] has the following parameter: X{921} local [inside INTEGRATE-2D 62] has the following parameter: X{920} local [inside INTEGRATE-2D 61] has the following parameter: X{919} local [inside INTEGRATE-2D 60] has the following parameter: X{918} local [inside INTEGRATE-2D 59] has the following parameter: Y{917} local [inside INTEGRATE-2D 58] has the following parameter: X{916} local [inside INTEGRATE-2D 57] has the following parameter: X{915} local [inside INTEGRATE-2D 56] has the following parameter: X{914} local [inside INTEGRATE-2D 55] has the following parameter: X{913} local [inside INTEGRATE-2D 54] has the following parameter: X{912} local [inside INTEGRATE-2D 53] has the following parameter: X{911} local [inside INTEGRATE-2D 52] has the following parameter: X{910} local [inside INTEGRATE-2D 51] has the following parameter: X{909} local [inside INTEGRATE-2D 50] has the following parameter: X{908} local [inside INTEGRATE-2D 49] has the following parameter: Y{907} local [inside INTEGRATE-2D 48] has the following parameter: X{906} local [inside INTEGRATE-2D 47] has the following parameter: X{905} local [inside INTEGRATE-2D 46] has the following parameter: X{904} local [inside INTEGRATE-2D 45] has the following parameter: X{903} local [inside INTEGRATE-2D 44] has the following parameter: X{902} local [inside INTEGRATE-2D 43] has the following parameter: X{901} local [inside INTEGRATE-2D 42] has the following parameter: X{900} local [inside INTEGRATE-2D 41] has the following parameter: X{899} local [inside INTEGRATE-2D 40] has the following parameter: X{898} local [inside INTEGRATE-2D 39] has the following parameter: Y{897} local [inside INTEGRATE-2D 38] has the following parameter: X{896} local [inside INTEGRATE-2D 37] has the following parameter: X{895} local [inside INTEGRATE-2D 36] has the following parameter: X{894} local [inside INTEGRATE-2D 35] has the following parameter: X{893} local [inside INTEGRATE-2D 34] has the following parameter: X{892} local [inside INTEGRATE-2D 33] has the following parameter: X{891} local [inside INTEGRATE-2D 32] has the following parameter: X{890} local [inside INTEGRATE-2D 31] has the following parameter: X{889} local [inside INTEGRATE-2D 30] has the following parameter: X{888} local [inside INTEGRATE-2D 29] has the following parameter: Y{887} local INTEGRATE-2D[28] has the following parameters: L1{802} local U1{803} local L2{804} local U2{805} local [inside INTEGRATE-1DB9 27] has the following parameter: D{801} local INTEGRATE-1DB9[26] has the following parameters: L{790} local U{791} local [inside INTEGRATE-1DB8 25] has the following parameter: D{789} local INTEGRATE-1DB8[24] has the following parameters: L{778} local U{779} local [inside INTEGRATE-1DB7 23] has the following parameter: D{777} local INTEGRATE-1DB7[22] has the following parameters: L{766} local U{767} local [inside INTEGRATE-1DB6 21] has the following parameter: D{765} local INTEGRATE-1DB6[20] has the following parameters: L{754} local U{755} local [inside INTEGRATE-1DB5 19] has the following parameter: D{753} local INTEGRATE-1DB5[18] has the following parameters: L{742} local U{743} local [inside INTEGRATE-1DB4 17] has the following parameter: D{741} local INTEGRATE-1DB4[16] has the following parameters: L{730} local U{731} local [inside INTEGRATE-1DB3 15] has the following parameter: D{729} local INTEGRATE-1DB3[14] has the following parameters: L{718} local U{719} local [inside INTEGRATE-1DB2 13] has the following parameter: D{717} local INTEGRATE-1DB2[12] has the following parameters: L{706} local U{707} local [inside INTEGRATE-1DB1 11] has the following parameter: D{705} local INTEGRATE-1DB1[10] has the following parameters: L{694} local U{695} local [inside INTEGRATE-1DA 9] has the following parameter: D{693} local INTEGRATE-1DA[8] has the following parameters: L{682} local U{683} local The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W16515 is general case for the following reasons: nondegenerate nonheaded vector W2667 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 9% - Expanding macros 3 - 10% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 1% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 1 - 3% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 7 - 27% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 1 - 3% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 2% - Determining which environments are called more than once 0 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 3 - 13% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 1% - Determining which environments are recursive 1 - 3% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 2 - 9% - Performing lightweight closure conversion 0 - 0% - Determining parents 1 - 2% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 1% - Determining blocked environments 0 - 0% - Determining allocations 0 - 2% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 1% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 1 - 3% - Generating code 1 - 4% - Removing unused declarations 0 - 1% - Removing unused labels 0 - 2% - Writing database 0 - 0% - Compiling C code 25.17user 0.33system 0:28.20elapsed 90%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32748major+218641minor)pagefaults 0swaps run integ2 0.45user 0.00system 0:00.45elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (92major+34minor)pagefaults 0swaps compile gold Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 15435 expressions 0 internal symbol types 0 external symbol types 37 primitive procedure types 210 non-called native procedure types 279 called noop native procedure types 149 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 2 headed vector types 1 nonheaded vector type 0 displaced vector types 17623 type sets 617 hunoz variables 1568 non-hunoz variables 490 noop environments 1610 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 15435 expressions 0 internal symbol types 0 external symbol types 37 primitive procedure types 210 non-called native procedure types 279 called noop native procedure types 149 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 2 headed vector types 1 nonheaded vector type 0 displaced vector types 17623 type sets 617 hunoz variables 1568 non-hunoz variables 490 noop environments 1610 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 2588 expressions 0 internal symbol types 0 external symbol types 37 primitive procedure types 210 non-called native procedure types 279 called noop native procedure types 149 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 2 headed vector types 1 nonheaded vector type 0 displaced vector types 3468 type sets 290 hunoz variables 587 non-hunoz variables 0 noop environments 149 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: DISPLAY-MANTISSA-EXPONENT2[1407] has the following parameters: MANTISSA{1903} local EXPONENT{1904} local PORT{1905} local has the following in-lined locals: NUMBER{1882} PORT{1883} I{1886} NUMBER{1887} I{1890} I{1896} NUMBER{1897} I{1900} FLOAT-DIGIT{1906} DIGIT{1907} MANTISSA{1914} FLOAT-DIGIT{1915} DIGIT{1916} MANTISSA{1918} DISPLAY-STRING2[1369] has the following parameters: STRING{1875} local PORT{1876} local has the following in-lined locals: N{1877} I{1880} [inside G 57] has the following parameter: FM{762} local [inside G 56] has the following parameters: AX{755} local BX{757} local CX{759} local has the following in-lined locals: X{685} X{686} X{687} X{688} X{689} TOL{722} AX{723} BX{724} CX{725} GOLD{727} R{728} C{729} X1{730} X2{731} X0{735} X1{736} F1{737} X2{738} F2{739} X3{740} XN{741} XN{742} FUNC[53] has the following parameter: X{748} local has the following in-lined locals: X{744} X{745} X{746} X{747} A4{749} A3{750} A2{751} A1{752} LOOP[21] has the following parameters: AX{704} local FA{705} local BX{706} local FB{707} local CX{708} local FC{709} local has the following in-lined locals: X{684} R{710} Q{711} UX{712} UL{713} FU{714} VX{715} FU{716} VX{717} VX{718} X{719} Y{720} [inside top level 0] has the following in-lined locals: AX{691} BX{692} FB{700} FA{701} VX{702} VX{703} L{753} U{754} N{763} EPS{764} SUM{765} I{770} I{774} J{778} NUMBER{1919} PORT{1920} MANTISSA{1924} EXPONENT{1925} MANTISSA{1928} EXPONENT{1929} OBJ{1964} PORT{1965} OBJ{2175} The following non-trivial in-line native procedures will be generated: DISPLAY[1856] has the following parameter: OBJ{2175} local DISPLAY2[1505] has the following parameters: OBJ{1964} local PORT{1965} local LOOP[1442] has the following parameters: MANTISSA{1928} local EXPONENT{1929} local LOOP[1437] has the following parameters: MANTISSA{1924} local EXPONENT{1925} local DISPLAY-INEXACT-REAL2[1428] has the following parameters: NUMBER{1919} local PORT{1920} local [inside LOOP 1425] has the following parameter: MANTISSA{1918} local [inside LOOP 1422] has the following parameter: DIGIT{1916} local [inside LOOP 1421] has the following parameter: FLOAT-DIGIT{1915} local LOOP[1420] has the following parameter: MANTISSA{1914} local [inside DISPLAY-MANTISSA-EXPONENT2 1409] has the following parameter: DIGIT{1907} local [inside DISPLAY-MANTISSA-EXPONENT2 1408] has the following parameter: FLOAT-DIGIT{1906} local LOOP[1399] has the following parameter: I{1900} local LOOP[1396] has the following parameters: I{1896} local NUMBER{1897} local LOOP[1385] has the following parameter: I{1890} local LOOP[1382] has the following parameters: I{1886} local NUMBER{1887} local DISPLAY-EXACT-INTEGER2[1378] has the following parameters: NUMBER{1882} local PORT{1883} local LOOP[1373] has the following parameter: I{1880} local [inside DISPLAY-STRING2 1370] has the following parameter: N{1877} local [inside top level 1365] has the following parameters: THE-CURRENT-OUTPUT-PORT{1836} global BUFFER{1838} global loop[79] has the following parameter: J{778} local loop[73] has the following parameter: I{774} local loop[66] has the following parameter: I{770} local [inside TEST 61] has the following parameter: SUM{765} local [inside TEST 60] has the following parameter: EPS{764} local [inside TEST 59] has the following parameter: N{763} local G[55] has the following parameters: L{753} local U{754} local [inside FUNC 54] has the following parameters: A4{749} local A3{750} local A2{751} local A1{752} local SQR4[52] has the following parameter: X{747} local SQR3[51] has the following parameter: X{746} local SQR2[50] has the following parameter: X{745} local SQR1[49] has the following parameter: X{744} local [inside LOOP 46] has the following parameter: XN{742} local [inside LOOP 45] has the following parameter: XN{741} local LOOP[44] has the following parameters: X0{735} local X1{736} local F1{737} local X2{738} local F2{739} local X3{740} local [inside GOLDEN 39] has the following parameter: X2{731} local [inside GOLDEN 38] has the following parameter: X1{730} local [inside GOLDEN 37] has the following parameter: C{729} local [inside GOLDEN 36] has the following parameter: R{728} local [inside GOLDEN 35] has the following parameter: GOLD{727} local GOLDEN[34] has the following parameters: TOL{722} local AX{723} local BX{724} local CX{725} local [inside MNBRAK 33] has the following parameters: X{719} local Y{720} local [inside LOOP 31] has the following parameter: VX{718} local [inside LOOP 30] has the following parameter: VX{717} local [inside LOOP 29] has the following parameter: FU{716} local [inside LOOP 28] has the following parameter: VX{715} local [inside LOOP 27] has the following parameter: FU{714} local [inside LOOP 25] has the following parameter: UL{713} local [inside LOOP 24] has the following parameter: UX{712} local [inside LOOP 23] has the following parameter: Q{711} local [inside LOOP 22] has the following parameter: R{710} local [inside MNBRAK 20] has the following parameter: VX{703} local [inside MNBRAK 19] has the following parameter: VX{702} local [inside MNBRAK 18] has the following parameters: FB{700} local FA{701} local [inside MNBRAK 15] has the following parameters: TINY{695} global GLIMIT{696} global GOLD{697} global MNBRAK[14] has the following parameters: AX{691} local BX{692} local ABS6[13] has the following parameter: X{689} local ABS5[12] has the following parameter: X{688} local ABS4[11] has the following parameter: X{687} local ABS3[10] has the following parameter: X{686} local ABS2[9] has the following parameter: X{685} local ABS1[8] has the following parameter: X{684} local The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20) The following expression, gold-stalin.sc:88:2704, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N 0.) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W15436 is general case for the following reasons: nondegenerate nonheaded vector W2503 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 11% - Expanding macros 2 - 13% - Fast tree shake 0 - 2% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 1% - Annotating expressions with their environments 1 - 3% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 4 - 24% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 1 - 4% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 1% - Determining which environments are called more than once 0 - 2% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 1 - 8% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 1% - Determining which environments are recursive 0 - 2% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 3 - 16% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 2% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 1 - 4% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 0 - 2% - Generating code 0 - 1% - Removing unused declarations 0 - 0% - Removing unused labels 0 - 1% - Writing database 0 - 0% - Compiling C code 18.68user 0.38system 0:21.23elapsed 89%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32775major+217154minor)pagefaults 0swaps run gold 4.15user 0.00system 0:04.19elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (92major+36minor)pagefaults 0swaps compile gold2 Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 15489 expressions 0 internal symbol types 0 external symbol types 39 primitive procedure types 209 non-called native procedure types 283 called noop native procedure types 155 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 5 structure types 2 headed vector types 1 nonheaded vector type 0 displaced vector types 17691 type sets 621 hunoz variables 1568 non-hunoz variables 494 noop environments 1615 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 15497 expressions 0 internal symbol types 0 external symbol types 39 primitive procedure types 209 non-called native procedure types 283 called noop native procedure types 155 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 5 structure types 2 headed vector types 1 nonheaded vector type 0 displaced vector types 17699 type sets 621 hunoz variables 1572 non-hunoz variables 494 noop environments 1619 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 5 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 2651 expressions 0 internal symbol types 0 external symbol types 39 primitive procedure types 209 non-called native procedure types 283 called noop native procedure types 155 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 5 structure types 2 headed vector types 1 nonheaded vector type 0 displaced vector types 3546 type sets 294 hunoz variables 592 non-hunoz variables 0 noop environments 159 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 5 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: DISPLAY-MANTISSA-EXPONENT2[1418] has the following parameters: MANTISSA{1910} local EXPONENT{1911} local PORT{1912} local has the following in-lined locals: NUMBER{1889} PORT{1890} I{1893} NUMBER{1894} I{1897} I{1903} NUMBER{1904} I{1907} FLOAT-DIGIT{1913} DIGIT{1914} MANTISSA{1921} FLOAT-DIGIT{1922} DIGIT{1923} MANTISSA{1925} DISPLAY-STRING2[1380] has the following parameters: STRING{1882} local PORT{1883} local has the following in-lined locals: N{1884} I{1887} FUNC[58] has the following parameter: X{761} local has the following in-lined locals: X{757} X{758} X{759} X{760} A4{762} A3{763} A2{764} A1{765} LOOP[26] has the following parameters: AX{718} local FA{719} local BX{720} local FB{721} local CX{722} local FC{723} local has the following in-lined locals: X{694} R{724} Q{725} UX{726} UL{727} FU{728} VX{729} FU{730} VX{731} VX{732} X{733} Y{734} OBJS{2196} OBJS{2197} OBJS{2198} [inside top level 0] has the following in-lined locals: X{695} X{696} X{697} X{698} X{699} L{700} L{701} L{702} L{704} AX{706} BX{707} FB{714} FA{715} VX{716} VX{717} TOL{736} AX{737} BX{738} CX{739} GOLD{740} R{741} C{742} X1{743} X2{744} X0{748} X1{749} F1{750} X2{751} F2{752} X3{753} XN{754} XN{755} L{766} U{767} BRACKET{768} BEST{769} N{770} EPS{771} SUM{772} I{777} I{781} J{785} OBJS{852} NUMBER{1926} PORT{1927} MANTISSA{1931} EXPONENT{1932} MANTISSA{1935} EXPONENT{1936} OBJ{1971} PORT{1972} OBJ{2182} OBJS{2195} The following non-trivial in-line native procedures will be generated: [clone LIST[173] 2116] has the following parameter: OBJS{2198} local [clone LIST[173] 2115] has the following parameter: OBJS{2197} local [clone LIST[173] 2114] has the following parameter: OBJS{2196} local [clone LIST[173] 2113] has the following parameter: OBJS{2195} local DISPLAY[1867] has the following parameter: OBJ{2182} local DISPLAY2[1516] has the following parameters: OBJ{1971} local PORT{1972} local LOOP[1453] has the following parameters: MANTISSA{1935} local EXPONENT{1936} local LOOP[1448] has the following parameters: MANTISSA{1931} local EXPONENT{1932} local DISPLAY-INEXACT-REAL2[1439] has the following parameters: NUMBER{1926} local PORT{1927} local [inside LOOP 1436] has the following parameter: MANTISSA{1925} local [inside LOOP 1433] has the following parameter: DIGIT{1923} local [inside LOOP 1432] has the following parameter: FLOAT-DIGIT{1922} local LOOP[1431] has the following parameter: MANTISSA{1921} local [inside DISPLAY-MANTISSA-EXPONENT2 1420] has the following parameter: DIGIT{1914} local [inside DISPLAY-MANTISSA-EXPONENT2 1419] has the following parameter: FLOAT-DIGIT{1913} local LOOP[1410] has the following parameter: I{1907} local LOOP[1407] has the following parameters: I{1903} local NUMBER{1904} local LOOP[1396] has the following parameter: I{1897} local LOOP[1393] has the following parameters: I{1893} local NUMBER{1894} local DISPLAY-EXACT-INTEGER2[1389] has the following parameters: NUMBER{1889} local PORT{1890} local LOOP[1384] has the following parameter: I{1887} local [inside DISPLAY-STRING2 1381] has the following parameter: N{1884} local [inside top level 1376] has the following parameters: THE-CURRENT-OUTPUT-PORT{1843} global BUFFER{1845} global LIST[173] has the following parameter: OBJS{852} local loop[85] has the following parameter: J{785} local loop[79] has the following parameter: I{781} local loop[72] has the following parameter: I{777} local [inside TEST 67] has the following parameter: SUM{772} local [inside TEST 66] has the following parameter: EPS{771} local [inside TEST 65] has the following parameter: N{770} local [inside G 62] has the following parameter: BEST{769} local [inside G 61] has region has the following parameter: BRACKET{768} local G[60] has region has the following parameters: L{766} local U{767} local [inside FUNC 59] has the following parameters: A4{762} local A3{763} local A2{764} local A1{765} local SQR4[57] has the following parameter: X{760} local SQR3[56] has the following parameter: X{759} local SQR2[55] has the following parameter: X{758} local SQR1[54] has the following parameter: X{757} local [inside LOOP 51] has the following parameter: XN{755} local [inside LOOP 50] has the following parameter: XN{754} local LOOP[49] has the following parameters: X0{748} local X1{749} local F1{750} local X2{751} local F2{752} local X3{753} local [inside GOLDEN 44] has the following parameter: X2{744} local [inside GOLDEN 43] has the following parameter: X1{743} local [inside GOLDEN 42] has the following parameter: C{742} local [inside GOLDEN 41] has the following parameter: R{741} local [inside GOLDEN 40] has the following parameter: GOLD{740} local GOLDEN[39] has the following parameters: TOL{736} local AX{737} local BX{738} local CX{739} local [inside MNBRAK 38] has the following parameters: X{733} local Y{734} local [inside LOOP 36] has the following parameter: VX{732} local [inside LOOP 35] has the following parameter: VX{731} local [inside LOOP 34] has the following parameter: FU{730} local [inside LOOP 33] has the following parameter: VX{729} local [inside LOOP 32] has the following parameter: FU{728} local [inside LOOP 30] has the following parameter: UL{727} local [inside LOOP 29] has the following parameter: UX{726} local [inside LOOP 28] has the following parameter: Q{725} local [inside LOOP 27] has the following parameter: R{724} local [inside MNBRAK 25] has the following parameter: VX{717} local [inside MNBRAK 24] has the following parameter: VX{716} local [inside MNBRAK 23] has the following parameters: FB{714} local FA{715} local [inside MNBRAK 20] has the following parameters: TINY{709} global GLIMIT{710} global GOLD{711} global MNBRAK[19] has the following parameters: AX{706} local BX{707} local E5[18] has the following parameter: L{704} local E3[16] has the following parameter: L{702} local E2[15] has the following parameter: L{701} local E1[14] has the following parameter: L{700} local ABS6[13] has the following parameter: X{699} local ABS5[12] has the following parameter: X{698} local ABS4[11] has the following parameter: X{697} local ABS3[10] has the following parameter: X{696} local ABS2[9] has the following parameter: X{695} local ABS1[8] has the following parameter: X{694} local The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20) The following expression, gold2-stalin.sc:95:2911, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N 0.) The following expression, gold2-stalin.sc:68:2265, allocates on [inside G 61]: (LIST X2 F2) The following expression, gold2-stalin.sc:67:2248, allocates on [inside G 61]: (LIST X1 F1) The following expression, gold2-stalin.sc:33:1109, allocates on G[60]: (LIST AX FA BX FB UX FU) The following expression, gold2-stalin.sc:31:1060, allocates on G[60]: (LIST BX FB UX FU CX FC) The following expression, gold2-stalin.sc:22:719, allocates on G[60]: (LIST AX FA BX FB CX FC) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W15498 is general case for the following reasons: nondegenerate nonheaded vector W2518 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 11% - Expanding macros 2 - 12% - Fast tree shake 0 - 1% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 1% - Annotating expressions with their environments 1 - 3% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 5 - 24% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 1 - 3% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 1% - Determining which environments are called more than once 0 - 2% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 1 - 7% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 1% - Determining which environments are recursive 0 - 2% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 4 - 18% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 1% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 1% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 0 - 2% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 1 - 4% - Generating code 0 - 1% - Removing unused declarations 0 - 1% - Removing unused labels 0 - 2% - Writing database 0 - 0% - Compiling C code 20.52user 0.23system 0:23.00elapsed 90%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32890major+218185minor)pagefaults 0swaps run gold2 3.08user 0.00system 0:03.16elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (94major+38minor)pagefaults 0swaps compile sort Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 15227 expressions 0 internal symbol types 0 external symbol types 39 primitive procedure types 208 non-called native procedure types 268 called noop native procedure types 129 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 3 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 17381 type sets 621 hunoz variables 1525 non-hunoz variables 484 noop environments 1620 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 15500 expressions 0 internal symbol types 0 external symbol types 39 primitive procedure types 208 non-called native procedure types 273 called noop native procedure types 153 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 3 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 17694 type sets 628 hunoz variables 1564 non-hunoz variables 489 noop environments 1650 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 5 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 2306 expressions 0 internal symbol types 0 external symbol types 39 primitive procedure types 208 non-called native procedure types 273 called noop native procedure types 153 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 3 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 3177 type sets 290 hunoz variables 579 non-hunoz variables 0 noop environments 159 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 5 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: LOOP[222] reentrant has the following parameters: LIST1{845} local LIST2{846} local LISTS{847} local STEP[58] reentrant has the following parameter: N{712} local has the following in-lined locals: A{688} B{689} R{695} A{696} B{697} J{713} A{714} K{715} B{716} P{717} Y{718} X{719} P{724} PAIR{777} PAIR{779} X1{2166} X2{2167} X1{2174} X2{2175} X1{2182} X2{2183} R{2190} A{2191} B{2192} X1{2195} X2{2196} [inside top level 0] has the following in-lined locals: SEQ{667} LAST{676} NEXT{677} v{678} SEQ{727} L{729} U{730} R{731} I{734} N{738} J{739} L{741} N{743} L{744} I{747} LIST{815} K{818} S{820} SS{837} SS{840} v{841} v{842} SS{850} SS{871} X1{960} X2{961} CHAR1{1094} CHAR2{1095} CHAR1{1099} CHAR2{1100} OBJ{1899} PORT{1900} N{1904} I{1907} C{1908} v{1911} OBJ{2142} CHAR1{2157} CHAR2{2158} CHAR1{2162} CHAR2{2163} The following non-trivial in-line native procedures will be generated: [clone <[383] 2142] has the following parameters: X1{2195} local X2{2196} local [clone LOOP[40] 2137] has the following parameters: R{2190} local A{2191} local B{2192} local [clone <[383] 2131] has the following parameters: X1{2182} local X2{2183} local [clone <[383] 2125] has the following parameters: X1{2174} local X2{2175} local [clone <[383] 2119] has the following parameters: X1{2166} local X2{2167} local [clone LOOP?[512] 2116] has the following parameters: CHAR1{2162} local CHAR2{2163} local [clone CHAR=?[509] 2113] has the following parameters: CHAR1{2157} local CHAR2{2158} local WRITE[1863] has the following parameter: OBJ{2142} local [inside LOOP 1480] has the following parameter: v{1911} local [inside LOOP 1478] has the following parameter: C{1908} local LOOP[1477] has the following parameter: I{1907} local [inside WRITE2 1474] has the following parameter: N{1904} local WRITE2[1456] has the following parameters: OBJ{1899} local PORT{1900} local [inside top level 1376] has the following parameter: THE-CURRENT-OUTPUT-PORT{1805} global LOOP?[512] has the following parameters: CHAR1{1099} local CHAR2{1100} local CHAR=?[509] has the following parameters: CHAR1{1094} local CHAR2{1095} local <[383] has the following parameters: X1{960} local X2{961} local LOOP[254] has the following parameter: SS{871} local LOOP[226] has the following parameter: SS{850} local [inside LOOP 215] has the following parameter: v{842} local [inside LOOP 214] has the following parameter: v{841} local LOOP[213] has the following parameter: SS{840} local APPEND[209] has the following parameter: SS{837} local LENGTH[182] has the following parameter: S{820} local LOOP[177] has the following parameter: K{818} local LIST-LENGTH[174] has the following parameter: LIST{815} local CDDR[138] has the following parameter: PAIR{779} local CADR[136] has the following parameter: PAIR{777} local loop[99] has the following parameter: I{747} local RUN-N-TIMES[96] has the following parameters: N{743} local L{744} local RUN-ONCE[93] has the following parameter: L{741} local loop[87] has the following parameters: N{738} local J{739} local loop[81] has the following parameter: I{734} local [inside MAKE-TEST-LIST 78] has the following parameter: R{731} local MAKE-TEST-LIST[77] has the following parameters: L{729} local U{730} local OK:SORT[76] has region has the following parameter: SEQ{727} local [inside STEP 72] has the following parameter: P{724} local [inside STEP 66] has the following parameters: P{717} local Y{718} local X{719} local [inside STEP 63] has the following parameter: B{716} local [inside STEP 62] reentrant has the following parameter: K{715} local [inside STEP 61] reentrant has the following parameter: A{714} local [inside STEP 60] reentrant has the following parameter: J{713} local [inside STEP 59] reentrant OK:SORT![46] has the following parameter: SEQ{700} global LOOP[40] has the following parameters: R{695} local A{696} local B{697} local OK:MERGE![31] has the following parameters: A{688} local B{689} local [inside LOOP 21] has the following parameter: v{678} local LOOP[20] has the following parameters: LAST{676} local NEXT{677} local SORTED?[6] has the following parameter: SEQ{667} local The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1) (LOOP (# LIST1) LIST2 LISTS)) The following expression, sort-stalin.sc:258:10138, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE /) N (# J)) R) The following expression, sort-stalin.sc:245:9747, allocates on OK:SORT[76]: (APPEND SEQ '()) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W15491 is general case for the following reasons: nondegenerate nonheaded vector W53 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 13% - Expanding macros 2 - 14% - Fast tree shake 0 - 1% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 1% - Annotating expressions with their environments 1 - 3% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 4 - 25% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 0 - 2% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 1% - Determining which environments are called more than once 0 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 2 - 11% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 1% - Determining which environments are recursive 1 - 3% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 2 - 10% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 3% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 0 - 2% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 1% - Determining alignments 0 - 2% - Generating code 0 - 0% - Removing unused declarations 0 - 0% - Removing unused labels 0 - 3% - Writing database 0 - 0% - Compiling C code 16.15user 0.31system 0:18.70elapsed 88%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32284major+215327minor)pagefaults 0swaps run sort 11.57user 0.01system 0:11.73elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (86major+371minor)pagefaults 0swaps compile sort2 Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 15231 expressions 0 internal symbol types 0 external symbol types 39 primitive procedure types 208 non-called native procedure types 268 called noop native procedure types 134 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 3 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 17389 type sets 621 hunoz variables 1529 non-hunoz variables 484 noop environments 1625 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 15401 expressions 0 internal symbol types 0 external symbol types 39 primitive procedure types 208 non-called native procedure types 272 called noop native procedure types 150 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 3 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 17588 type sets 625 hunoz variables 1558 non-hunoz variables 488 noop environments 1645 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 4 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 2223 expressions 0 internal symbol types 0 external symbol types 39 primitive procedure types 208 non-called native procedure types 272 called noop native procedure types 150 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 3 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 3087 type sets 287 hunoz variables 573 non-hunoz variables 0 noop environments 154 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 4 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: LOOP[227] reentrant has the following parameters: LIST1{849} local LIST2{850} local LISTS{851} local STEP[61] reentrant has the following parameter: N{715} local has the following in-lined locals: A{687} B{688} X{693} X{695} J{716} A{717} K{718} B{719} P{720} Y{721} X{722} Z{725} P{728} PAIR{781} PAIR{783} X1{2178} X2{2179} X1{2186} X2{2187} LOOP[41] has the following parameters: R{696} local A{697} local B{698} local has the following in-lined locals: X{700} X{702} X1{2170} X2{2171} [inside top level 0] has the following in-lined locals: SEQ{667} LAST{676} NEXT{677} SEQ{731} L{733} U{734} R{735} I{738} N{742} J{743} L{745} N{747} L{748} I{751} LIST{819} K{822} S{824} SS{841} SS{844} v{845} v{846} SS{854} SS{875} X1{964} X2{965} CHAR1{1098} CHAR2{1099} CHAR1{1103} CHAR2{1104} OBJ{1903} PORT{1904} N{1908} I{1911} C{1912} v{1915} OBJ{2146} CHAR1{2161} CHAR2{2162} CHAR1{2166} CHAR2{2167} The following non-trivial in-line native procedures will be generated: [clone <[388] 2136] has the following parameters: X1{2186} local X2{2187} local [clone <[388] 2130] has the following parameters: X1{2178} local X2{2179} local [clone <[388] 2124] has the following parameters: X1{2170} local X2{2171} local [clone LOOP?[517] 2121] has the following parameters: CHAR1{2166} local CHAR2{2167} local [clone CHAR=?[514] 2118] has the following parameters: CHAR1{2161} local CHAR2{2162} local WRITE[1868] has the following parameter: OBJ{2146} local [inside LOOP 1485] has the following parameter: v{1915} local [inside LOOP 1483] has the following parameter: C{1912} local LOOP[1482] has the following parameter: I{1911} local [inside WRITE2 1479] has the following parameter: N{1908} local WRITE2[1461] has the following parameters: OBJ{1903} local PORT{1904} local [inside top level 1381] has the following parameter: THE-CURRENT-OUTPUT-PORT{1809} global LOOP?[517] has the following parameters: CHAR1{1103} local CHAR2{1104} local CHAR=?[514] has the following parameters: CHAR1{1098} local CHAR2{1099} local <[388] has the following parameters: X1{964} local X2{965} local LOOP[259] has the following parameter: SS{875} local LOOP[231] has the following parameter: SS{854} local [inside LOOP 220] has the following parameter: v{846} local [inside LOOP 219] has the following parameter: v{845} local LOOP[218] has the following parameter: SS{844} local APPEND[214] has the following parameter: SS{841} local LENGTH[187] has the following parameter: S{824} local LOOP[182] has the following parameter: K{822} local LIST-LENGTH[179] has the following parameter: LIST{819} local CDDR[143] has the following parameter: PAIR{783} local CADR[141] has the following parameter: PAIR{781} local loop[104] has the following parameter: I{751} local RUN-N-TIMES[101] has the following parameters: N{747} local L{748} local RUN-ONCE[98] has the following parameter: L{745} local loop[92] has the following parameters: N{742} local J{743} local loop[86] has the following parameter: I{738} local [inside MAKE-TEST-LIST 83] has the following parameter: R{735} local MAKE-TEST-LIST[82] has the following parameters: L{733} local U{734} local OK:SORT[81] has region has the following parameter: SEQ{731} local [inside STEP 77] has the following parameter: P{728} local [inside STEP 71] has the following parameter: Z{725} local [inside STEP 69] has the following parameters: P{720} local Y{721} local X{722} local [inside STEP 66] has the following parameter: B{719} local [inside STEP 65] reentrant has the following parameter: K{718} local [inside STEP 64] reentrant has the following parameter: A{717} local [inside STEP 63] reentrant has the following parameter: J{716} local [inside STEP 62] reentrant OK:SORT![49] has the following parameter: SEQ{703} global [inside LOOP 47] has the following parameter: X{702} local [inside LOOP 44] has the following parameter: X{700} local [inside OK:MERGE! 40] has the following parameter: X{695} local [inside OK:MERGE! 37] has the following parameter: X{693} local OK:MERGE![30] has the following parameters: A{687} local B{688} local LOOP[20] has the following parameters: LAST{676} local NEXT{677} local SORTED?[6] has the following parameter: SEQ{667} local The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1) (LOOP (# LIST1) LIST2 LISTS)) The following expression, sort2-stalin.sc:264:10522, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE /) N (# J)) R) The following expression, sort2-stalin.sc:251:10131, allocates on OK:SORT[81]: (APPEND SEQ '()) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W15431 is general case for the following reasons: nondegenerate nonheaded vector W5 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 13% - Expanding macros 2 - 14% - Fast tree shake 0 - 1% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 1% - Annotating expressions with their environments 1 - 3% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 4 - 25% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 0 - 2% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 1% - Determining which environments are called more than once 0 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 2 - 10% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 1% - Determining which environments are recursive 0 - 2% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 2 - 11% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 2% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 0 - 3% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 0 - 2% - Generating code 0 - 0% - Removing unused declarations 0 - 0% - Removing unused labels 1 - 3% - Writing database 0 - 0% - Compiling C code 15.73user 0.34system 0:18.16elapsed 88%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32284major+215324minor)pagefaults 0swaps run sort2 11.62user 0.01system 0:11.77elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (86major+371minor)pagefaults 0swaps compile dfa Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 16662 expressions 15 internal symbol types 1 external symbol type 61 primitive procedure types 183 non-called native procedure types 449 called noop native procedure types 837 called non-noop native procedure types 1 foreign procedure type 0 continuation types 3 string types 127 structure types 7 headed vector types 1 nonheaded vector type 0 displaced vector types 19405 type sets 732 hunoz variables 1749 non-hunoz variables 575 noop environments 1789 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 28783 expressions 15 internal symbol types 1 external symbol type 61 primitive procedure types 184 non-called native procedure types 671 called noop native procedure types 1812 called non-noop native procedure types 1 foreign procedure type 0 continuation types 3 string types 151 structure types 8 headed vector types 1 nonheaded vector type 0 displaced vector types 33350 type sets 962 hunoz variables 3691 non-hunoz variables 797 noop environments 3296 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 108 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 17973 expressions 15 internal symbol types 1 external symbol type 61 primitive procedure types 183 non-called native procedure types 671 called noop native procedure types 1812 called non-noop native procedure types 1 foreign procedure type 0 continuation types 3 string types 151 structure types 8 headed vector types 1 nonheaded vector type 0 displaced vector types 21624 type sets 765 hunoz variables 2972 non-hunoz variables 0 noop environments 2209 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 108 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: DISPLAY[2339] has the following parameter: OBJ{2685} local DISPLAY2[1988] reentrant has the following parameters: OBJ{2474} local PORT{2475} local has the following in-lined locals: NUMBER{2429} PORT{2430} MANTISSA{2434} EXPONENT{2435} MANTISSA{2438} EXPONENT{2439} OBJ{2479} I{2491} DISPLAY-MANTISSA-EXPONENT2[1890] has the following parameters: MANTISSA{2413} local EXPONENT{2414} local PORT{2415} local has the following in-lined locals: FLOAT-DIGIT{2416} DIGIT{2417} MANTISSA{2424} FLOAT-DIGIT{2425} DIGIT{2426} MANTISSA{2428} DISPLAY-EXACT-INTEGER2[1861] has the following parameters: NUMBER{2392} local PORT{2393} local has the following in-lined locals: I{2396} NUMBER{2397} I{2400} I{2406} NUMBER{2407} I{2410} DISPLAY-STRING2[1852] has the following parameters: STRING{2385} local PORT{2386} local has the following in-lined locals: N{2387} I{2390} LOOKUP-CHARACTER-NAME[1808] has the following parameter: S{2330} local has the following in-lined locals: CHAR1{1680} CHAR2{1681} CHAR1{1685} CHAR2{1686} NAMES{2333} S{2337} NAME{2338} v{2339} CHAR{3988} CHAR{3989} READ-SYMBOL[1802] has region has the following parameter: S{2327} local has the following in-lined locals: C{2328} &REST{2783} &REST{2835} LIST{3942} LIST{3945} R{3946} LIST{3947} LIST{3950} R{3951} CHAR{3990} C{4017} v{4018} v{4019} v{4020} v{4021} CHAR{4131} CHAR1{4132} CHAR2{4133} CHAR1{4137} CHAR2{4138} CHAR1{4141} CHAR2{4142} CHAR1{4146} CHAR2{4147} CHAR1{4150} CHAR2{4151} CHAR1{4155} CHAR2{4156} CHAR1{4159} CHAR2{4160} CHAR1{4164} CHAR2{4165} CHAR1{4168} CHAR2{4169} CHAR1{4173} CHAR2{4174} CHAR-INITIAL?[1782] has the following parameter: C{2307} local has the following in-lined locals: v{2308} v{2309} v{2310} v{2311} v{2312} v{2313} v{2314} v{2315} v{2316} v{2317} v{2318} v{2319} v{2320} v{2321} CHAR1{3702} CHAR2{3703} CHAR1{3707} CHAR2{3708} CHAR1{3711} CHAR2{3712} CHAR1{3716} CHAR2{3717} CHAR1{3720} CHAR2{3721} CHAR1{3725} CHAR2{3726} CHAR1{3729} CHAR2{3730} CHAR1{3734} CHAR2{3735} CHAR1{3738} CHAR2{3739} CHAR1{3743} CHAR2{3744} CHAR1{3747} CHAR2{3748} CHAR1{3752} CHAR2{3753} CHAR1{3756} CHAR2{3757} CHAR1{3761} CHAR2{3762} CHAR1{3765} CHAR2{3766} CHAR1{3770} CHAR2{3771} CHAR1{3774} CHAR2{3775} CHAR1{3779} CHAR2{3780} CHAR1{3783} CHAR2{3784} CHAR1{3788} CHAR2{3789} CHAR1{3792} CHAR2{3793} CHAR1{3797} CHAR2{3798} CHAR1{3801} CHAR2{3802} CHAR1{3806} CHAR2{3807} CHAR1{3810} CHAR2{3811} CHAR1{3815} CHAR2{3816} CHAR1{3819} CHAR2{3820} CHAR1{3824} CHAR2{3825} CHAR{3994} v{3995} CHAR1{4095} CHAR2{4096} CHAR1{4100} CHAR2{4101} CHAR1{4104} CHAR2{4105} CHAR1{4109} CHAR2{4110} CHAR1{4113} CHAR2{4114} CHAR1{4118} CHAR2{4119} CHAR1{4122} CHAR2{4123} CHAR1{4127} CHAR2{4128} READ-NUMBER[1748] has region has the following parameter: N{2285} local has the following in-lined locals: CHAR1{1635} CHAR2{1636} CHAR1{1640} CHAR2{1641} CHAR{1727} C1{2286} v{2289} v{2290} v{2291} v{2292} v{2293} v{2294} v{2295} v{2296} v{2297} C2{2299} C3{2301} C3{2304} &REST{2680} &REST{2784} &REST{2785} &REST{2786} &REST{2787} &REST{2788} &REST{2836} CHAR1{2955} CHAR2{2956} CHAR1{2960} CHAR2{2961} CHAR1{3072} CHAR2{3073} CHAR1{3077} CHAR2{3078} CHAR1{3099} CHAR2{3100} CHAR1{3104} CHAR2{3105} CHAR1{3603} CHAR2{3604} CHAR1{3608} CHAR2{3609} CHAR1{3612} CHAR2{3613} CHAR1{3617} CHAR2{3618} CHAR1{3621} CHAR2{3622} CHAR1{3626} CHAR2{3627} CHAR1{3630} CHAR2{3631} CHAR1{3635} CHAR2{3636} CHAR1{3639} CHAR2{3640} CHAR1{3644} CHAR2{3645} CHAR1{3648} CHAR2{3649} CHAR1{3653} CHAR2{3654} CHAR1{3657} CHAR2{3658} CHAR1{3662} CHAR2{3663} CHAR1{3666} CHAR2{3667} CHAR1{3671} CHAR2{3672} CHAR1{3675} CHAR2{3676} CHAR1{3680} CHAR2{3681} CHAR1{3684} CHAR2{3685} CHAR1{3689} CHAR2{3690} CHAR1{3693} CHAR2{3694} CHAR1{3698} CHAR2{3699} CHAR{3952} CHAR{3953} CHAR{3975} CHAR1{4186} CHAR2{4187} CHAR1{4191} CHAR2{4192} CHAR1{4195} CHAR2{4196} CHAR1{4200} CHAR2{4201} CHAR1{4204} CHAR2{4205} CHAR1{4209} CHAR2{4210} CHAR1{4213} CHAR2{4214} CHAR1{4218} CHAR2{4219} CHAR1{4240} CHAR2{4241} CHAR1{4245} CHAR2{4246} CHAR1{4321} CHAR2{4322} CHAR1{4326} CHAR2{4327} READ-INEXACT-NUMBER[1716] has region has the following parameters: N{2263} local M{2264} local has the following in-lined locals: C1{2265} v{2267} v{2268} v{2269} v{2270} v{2271} v{2272} v{2273} v{2274} v{2275} C2{2277} C3{2279} C3{2282} &REST{2779} &REST{2816} &REST{2817} &REST{2819} &REST{2820} &REST{2821} CHAR1{3270} CHAR2{3271} CHAR1{3275} CHAR2{3276} CHAR1{3279} CHAR2{3280} CHAR1{3284} CHAR2{3285} CHAR1{3288} CHAR2{3289} CHAR1{3293} CHAR2{3294} CHAR1{3297} CHAR2{3298} CHAR1{3302} CHAR2{3303} CHAR1{3306} CHAR2{3307} CHAR1{3311} CHAR2{3312} CHAR1{3315} CHAR2{3316} CHAR1{3320} CHAR2{3321} CHAR1{3324} CHAR2{3325} CHAR1{3329} CHAR2{3330} CHAR1{3333} CHAR2{3334} CHAR1{3338} CHAR2{3339} CHAR1{3342} CHAR2{3343} CHAR1{3347} CHAR2{3348} CHAR1{3351} CHAR2{3352} CHAR1{3356} CHAR2{3357} CHAR1{3360} CHAR2{3361} CHAR1{3365} CHAR2{3366} CHAR1{3369} CHAR2{3370} CHAR1{3374} CHAR2{3375} CHAR{3963} CHAR{3965} CHAR{3966} CHAR{3967} CHAR1{4249} CHAR2{4250} CHAR1{4254} CHAR2{4255} CHAR1{4258} CHAR2{4259} CHAR1{4263} CHAR2{4264} CHAR1{4267} CHAR2{4268} CHAR1{4272} CHAR2{4273} CHAR1{4276} CHAR2{4277} CHAR1{4281} CHAR2{4282} CHAR1{4285} CHAR2{4286} CHAR1{4290} CHAR2{4291} CHAR1{4294} CHAR2{4295} CHAR1{4299} CHAR2{4300} CHAR1{4303} CHAR2{4304} CHAR1{4308} CHAR2{4309} CHAR1{4312} CHAR2{4313} CHAR1{4317} CHAR2{4318} READ-EXACT-HEXADECIMAL-INTEGER[1706] has region has the following parameter: N{2258} local has the following in-lined locals: C{2259} &REST{2780} &REST{2825} &REST{2826} &REST{2827} CHAR1{2874} CHAR2{2875} CHAR1{2879} CHAR2{2880} CHAR1{2883} CHAR2{2884} CHAR1{2888} CHAR2{2889} CHAR1{3018} CHAR2{3019} CHAR1{3023} CHAR2{3024} CHAR1{3027} CHAR2{3028} CHAR1{3032} CHAR2{3033} CHAR{3971} CHAR1{4676} CHAR2{4677} CHAR1{4681} CHAR2{4682} CHAR1{4685} CHAR2{4686} CHAR1{4690} CHAR2{4691} READ-EXACT-DECIMAL-INTEGER[1700] has region has the following parameter: N{2255} local has the following in-lined locals: C{2256} &REST{2778} &REST{2818} CHAR{3964} CHAR1{4222} CHAR2{4223} CHAR1{4227} CHAR2{4228} CHAR1{4231} CHAR2{4232} CHAR1{4236} CHAR2{4237} READ-EXACT-OCTAL-INTEGER[1694] has region has the following parameter: N{2252} local has the following in-lined locals: CHAR1{1671} CHAR2{1672} CHAR1{1676} CHAR2{1677} C{2253} &REST{2777} &REST{2809} CHAR1{2964} CHAR2{2965} CHAR1{2969} CHAR2{2970} READ-EXACT-BINARY-INTEGER[1686] has region has the following parameter: N{2248} local has the following in-lined locals: C{2249} &REST{2776} &REST{2804} &REST{2805} CHAR1{3162} CHAR2{3163} CHAR1{3167} CHAR2{3168} CHAR1{3171} CHAR2{3172} CHAR1{3176} CHAR2{3177} READ[1453] reentrant has region has the following parameter: STATE{2130} local has the following in-lined locals: CHAR1{1644} CHAR2{1645} CHAR1{1649} CHAR2{1650} CHAR1{1653} CHAR2{1654} CHAR1{1658} CHAR2{1659} CHAR1{1662} CHAR2{1663} CHAR1{1667} CHAR2{1668} CHAR{1725} v{1726} CHAR{1728} C{1729} v{1730} v{1731} v{1732} v{1733} CHAR{1738} LIST{1990} R{1991} K{1995} C1{2153} C2{2158} S{2163} E{2164} E1{2166} S{2170} C{2171} C2{2172} v{2174} v{2175} v{2176} C3{2177} C4{2179} C4{2181} v{2183} C3{2184} C4{2186} v{2189} C4{2190} v{2193} v{2194} C3{2195} C4{2197} C5{2199} C4{2202} C5{2204} C4{2207} v{2210} C3{2211} C4{2213} C4{2215} S{2219} E{2220} C3{2221} S{2225} C{2226} C1{2228} C2{2230} C3{2233} C2{2237} C3{2240} C2{2244} C{2322} v{2323} v{2324} v{2325} v{2326} S{2340} C{2341} &REST{2681} OBJS{2698} OBJS{2699} OBJS{2700} OBJS{2701} OBJS{2702} OBJS{2703} OBJS{2704} OBJS{2705} OBJS{2706} OBJS{2707} OBJS{2708} &REST{2772} &REST{2773} &REST{2774} &REST{2775} &REST{2781} &REST{2782} &REST{2789} &REST{2790} &REST{2791} &REST{2792} &REST{2793} &REST{2794} &REST{2795} &REST{2796} &REST{2797} &REST{2798} &REST{2799} &REST{2800} &REST{2801} &REST{2802} &REST{2803} &REST{2806} &REST{2807} &REST{2808} &REST{2810} &REST{2811} &REST{2812} &REST{2813} &REST{2814} &REST{2815} &REST{2822} &REST{2823} &REST{2824} &REST{2828} &REST{2829} &REST{2830} &REST{2831} &REST{2832} &REST{2833} &REST{2834} &REST{2837} CHAR1{2847} CHAR2{2848} CHAR1{2852} CHAR2{2853} CHAR1{2856} CHAR2{2857} CHAR1{2861} CHAR2{2862} CHAR1{2865} CHAR2{2866} CHAR1{2870} CHAR2{2871} CHAR1{2892} CHAR2{2893} CHAR1{2897} CHAR2{2898} CHAR1{2901} CHAR2{2902} CHAR1{2906} CHAR2{2907} CHAR1{2910} CHAR2{2911} CHAR1{2915} CHAR2{2916} CHAR1{2919} CHAR2{2920} CHAR1{2924} CHAR2{2925} CHAR1{2937} CHAR2{2938} CHAR1{2942} CHAR2{2943} CHAR1{2946} CHAR2{2947} CHAR1{2951} CHAR2{2952} CHAR1{2973} CHAR2{2974} CHAR1{2978} CHAR2{2979} CHAR1{2982} CHAR2{2983} CHAR1{2987} CHAR2{2988} CHAR1{2991} CHAR2{2992} CHAR1{2996} CHAR2{2997} CHAR1{3000} CHAR2{3001} CHAR1{3005} CHAR2{3006} CHAR1{3009} CHAR2{3010} CHAR1{3014} CHAR2{3015} CHAR1{3036} CHAR2{3037} CHAR1{3041} CHAR2{3042} CHAR1{3045} CHAR2{3046} CHAR1{3050} CHAR2{3051} CHAR1{3063} CHAR2{3064} CHAR1{3068} CHAR2{3069} CHAR1{3081} CHAR2{3082} CHAR1{3086} CHAR2{3087} CHAR1{3090} CHAR2{3091} CHAR1{3095} CHAR2{3096} CHAR1{3108} CHAR2{3109} CHAR1{3113} CHAR2{3114} CHAR1{3117} CHAR2{3118} CHAR1{3122} CHAR2{3123} CHAR1{3126} CHAR2{3127} CHAR1{3131} CHAR2{3132} CHAR1{3135} CHAR2{3136} CHAR1{3140} CHAR2{3141} CHAR1{3144} CHAR2{3145} CHAR1{3149} CHAR2{3150} CHAR1{3153} CHAR2{3154} CHAR1{3158} CHAR2{3159} CHAR1{3180} CHAR2{3181} CHAR1{3185} CHAR2{3186} CHAR1{3189} CHAR2{3190} CHAR1{3194} CHAR2{3195} CHAR1{3198} CHAR2{3199} CHAR1{3203} CHAR2{3204} CHAR1{3207} CHAR2{3208} CHAR1{3212} CHAR2{3213} CHAR1{3216} CHAR2{3217} CHAR1{3221} CHAR2{3222} CHAR1{3225} CHAR2{3226} CHAR1{3230} CHAR2{3231} CHAR1{3234} CHAR2{3235} CHAR1{3239} CHAR2{3240} CHAR1{3243} CHAR2{3244} CHAR1{3248} CHAR2{3249} CHAR1{3252} CHAR2{3253} CHAR1{3257} CHAR2{3258} CHAR1{3261} CHAR2{3262} CHAR1{3266} CHAR2{3267} CHAR1{3378} CHAR2{3379} CHAR1{3383} CHAR2{3384} CHAR1{3387} CHAR2{3388} CHAR1{3392} CHAR2{3393} CHAR1{3396} CHAR2{3397} CHAR1{3401} CHAR2{3402} CHAR1{3405} CHAR2{3406} CHAR1{3410} CHAR2{3411} CHAR1{3414} CHAR2{3415} CHAR1{3419} CHAR2{3420} CHAR1{3423} CHAR2{3424} CHAR1{3428} CHAR2{3429} CHAR1{3432} CHAR2{3433} CHAR1{3437} CHAR2{3438} CHAR1{3441} CHAR2{3442} CHAR1{3446} CHAR2{3447} CHAR1{3450} CHAR2{3451} CHAR1{3455} CHAR2{3456} CHAR1{3459} CHAR2{3460} CHAR1{3464} CHAR2{3465} CHAR1{3468} CHAR2{3469} CHAR1{3473} CHAR2{3474} CHAR1{3477} CHAR2{3478} CHAR1{3482} CHAR2{3483} CHAR1{3486} CHAR2{3487} CHAR1{3491} CHAR2{3492} CHAR1{3495} CHAR2{3496} CHAR1{3500} CHAR2{3501} CHAR1{3504} CHAR2{3505} CHAR1{3509} CHAR2{3510} CHAR1{3513} CHAR2{3514} CHAR1{3518} CHAR2{3519} CHAR1{3522} CHAR2{3523} CHAR1{3527} CHAR2{3528} CHAR1{3531} CHAR2{3532} CHAR1{3536} CHAR2{3537} CHAR1{3540} CHAR2{3541} CHAR1{3545} CHAR2{3546} CHAR1{3549} CHAR2{3550} CHAR1{3554} CHAR2{3555} CHAR1{3558} CHAR2{3559} CHAR1{3563} CHAR2{3564} CHAR1{3576} CHAR2{3577} CHAR1{3581} CHAR2{3582} CHAR1{3585} CHAR2{3586} CHAR1{3590} CHAR2{3591} CHAR1{3594} CHAR2{3595} CHAR1{3599} CHAR2{3600} CHAR1{3828} CHAR2{3829} CHAR1{3833} CHAR2{3834} CHAR1{3837} CHAR2{3838} CHAR1{3842} CHAR2{3843} CHAR1{3846} CHAR2{3847} CHAR1{3851} CHAR2{3852} CHAR1{3855} CHAR2{3856} CHAR1{3860} CHAR2{3861} CHAR1{3864} CHAR2{3865} CHAR1{3869} CHAR2{3870} CHAR1{3873} CHAR2{3874} CHAR1{3878} CHAR2{3879} CHAR1{3882} CHAR2{3883} CHAR1{3887} CHAR2{3888} CHAR1{3891} CHAR2{3892} CHAR1{3896} CHAR2{3897} CHAR1{3900} CHAR2{3901} CHAR1{3905} CHAR2{3906} CHAR1{3909} CHAR2{3910} CHAR1{3914} CHAR2{3915} CHAR1{3918} CHAR2{3919} CHAR1{3923} CHAR2{3924} LIST{3927} LIST{3930} R{3931} LIST{3932} LIST{3935} R{3936} LIST{3937} LIST{3940} R{3941} CHAR{3954} CHAR{3955} CHAR{3956} CHAR{3957} CHAR{3958} CHAR{3959} CHAR{3960} CHAR{3961} CHAR{3962} CHAR{3968} CHAR{3969} CHAR{3970} CHAR{3972} CHAR{3973} CHAR{3974} CHAR{3976} CHAR{3977} CHAR{3978} CHAR{3979} CHAR{3980} CHAR{3981} CHAR{3982} CHAR{3983} CHAR{3984} CHAR{3985} CHAR{3986} CHAR{3987} CHAR{3991} CHAR{3992} v{3993} C{3997} v{3998} v{3999} v{4000} v{4001} C{4002} v{4003} v{4004} v{4005} v{4006} C{4007} v{4008} v{4009} v{4010} v{4011} C{4012} v{4013} v{4014} v{4015} v{4016} CHAR1{4086} CHAR2{4087} CHAR1{4091} CHAR2{4092} CHAR1{4177} CHAR2{4178} CHAR1{4182} CHAR2{4183} CHAR1{4330} CHAR2{4331} CHAR1{4335} CHAR2{4336} CHAR1{4339} CHAR2{4340} CHAR1{4344} CHAR2{4345} CHAR1{4348} CHAR2{4349} CHAR1{4353} CHAR2{4354} CHAR1{4357} CHAR2{4358} CHAR1{4362} CHAR2{4363} CHAR1{4366} CHAR2{4367} CHAR1{4371} CHAR2{4372} CHAR{4375} CHAR1{4376} CHAR2{4377} CHAR1{4381} CHAR2{4382} CHAR1{4385} CHAR2{4386} CHAR1{4390} CHAR2{4391} CHAR1{4394} CHAR2{4395} CHAR1{4399} CHAR2{4400} CHAR1{4403} CHAR2{4404} CHAR1{4408} CHAR2{4409} CHAR1{4412} CHAR2{4413} CHAR1{4417} CHAR2{4418} CHAR1{4421} CHAR2{4422} CHAR1{4426} CHAR2{4427} CHAR{4430} CHAR1{4431} CHAR2{4432} CHAR1{4436} CHAR2{4437} CHAR1{4440} CHAR2{4441} CHAR1{4445} CHAR2{4446} CHAR1{4449} CHAR2{4450} CHAR1{4454} CHAR2{4455} CHAR1{4458} CHAR2{4459} CHAR1{4463} CHAR2{4464} CHAR1{4467} CHAR2{4468} CHAR1{4472} CHAR2{4473} CHAR1{4476} CHAR2{4477} CHAR1{4481} CHAR2{4482} CHAR1{4485} CHAR2{4486} CHAR1{4490} CHAR2{4491} CHAR1{4494} CHAR2{4495} CHAR1{4499} CHAR2{4500} CHAR{4503} CHAR1{4504} CHAR2{4505} CHAR1{4509} CHAR2{4510} CHAR1{4513} CHAR2{4514} CHAR1{4518} CHAR2{4519} CHAR1{4522} CHAR2{4523} CHAR1{4527} CHAR2{4528} CHAR1{4531} CHAR2{4532} CHAR1{4536} CHAR2{4537} CHAR1{4540} CHAR2{4541} CHAR1{4545} CHAR2{4546} CHAR1{4549} CHAR2{4550} CHAR1{4554} CHAR2{4555} CHAR{4558} CHAR1{4559} CHAR2{4560} CHAR1{4564} CHAR2{4565} CHAR1{4568} CHAR2{4569} CHAR1{4573} CHAR2{4574} CHAR1{4577} CHAR2{4578} CHAR1{4582} CHAR2{4583} CHAR1{4586} CHAR2{4587} CHAR1{4591} CHAR2{4592} CHAR1{4595} CHAR2{4596} CHAR1{4600} CHAR2{4601} CHAR1{4604} CHAR2{4605} CHAR1{4609} CHAR2{4610} CHAR1{4613} CHAR2{4614} CHAR1{4618} CHAR2{4619} CHAR1{4622} CHAR2{4623} CHAR1{4627} CHAR2{4628} CHAR1{4631} CHAR2{4632} CHAR1{4636} CHAR2{4637} CHAR1{4640} CHAR2{4641} CHAR1{4645} CHAR2{4646} CHAR1{4649} CHAR2{4650} CHAR1{4654} CHAR2{4655} CHAR1{4658} CHAR2{4659} CHAR1{4663} CHAR2{4664} CHAR1{4667} CHAR2{4668} CHAR1{4672} CHAR2{4673} CHAR1{4694} CHAR2{4695} CHAR1{4699} CHAR2{4700} CHAR1{4703} CHAR2{4704} CHAR1{4708} CHAR2{4709} CHAR1{4712} CHAR2{4713} CHAR1{4717} CHAR2{4718} CHAR1{4721} CHAR2{4722} CHAR1{4726} CHAR2{4727} CHAR1{4730} CHAR2{4731} CHAR1{4735} CHAR2{4736} CHAR1{4739} CHAR2{4740} CHAR1{4744} CHAR2{4745} CHAR1{4748} CHAR2{4749} CHAR1{4753} CHAR2{4754} CHAR1{4757} CHAR2{4758} CHAR1{4762} CHAR2{4763} CHAR1{4766} CHAR2{4767} CHAR1{4771} CHAR2{4772} CHAR1{4775} CHAR2{4776} CHAR1{4780} CHAR2{4781} CHAR1{4784} CHAR2{4785} CHAR1{4789} CHAR2{4790} CHAR1{4793} CHAR2{4794} CHAR1{4798} CHAR2{4799} CHAR1{4802} CHAR2{4803} CHAR1{4807} CHAR2{4808} CHAR1{4811} CHAR2{4812} CHAR1{4816} CHAR2{4817} CHAR1{4820} CHAR2{4821} CHAR1{4825} CHAR2{4826} CHAR1{4829} CHAR2{4830} CHAR1{4834} CHAR2{4835} STRING-COPY[1233] has the following parameter: STRING{1944} local has the following in-lined locals: N{1945} R{1946} K{1950} LIST->STRING[1223] has the following parameter: LIST{1936} local has the following in-lined locals: R{1937} K{1941} STRING=?[1072] has the following parameters: STRING1{1756} local STRING2{1757} local has the following in-lined locals: STRING1{1761} STRING2{1762} N{1764} K{1767} v{1768} CHAR1{3567} CHAR2{3568} CHAR1{3572} CHAR2{3573} CHAR-LOWER-CASE?[1051] has the following parameter: LETTER{1735} local has the following in-lined locals: CHAR1{2928} CHAR2{2929} CHAR1{2933} CHAR2{2934} CHAR1{3054} CHAR2{3055} CHAR1{3059} CHAR2{3060} [inside top level 819] has the following parameter: STRING{1482} local has the following in-lined locals: FOUND{1483} PACKAGE{1487} ASSQ[778] has the following parameters: OBJ{1452} local ALIST{1453} local LOOP[691] reentrant has the following parameters: LIST1{1386} local LIST2{1387} local LISTS{1388} local LIST-LENGTH[643] has the following parameter: LIST{1356} local has the following in-lined local: K{1359} EQV?[584] has the following parameters: OBJ1{1292} local OBJ2{1293} local has the following in-lined local: v{1294} BACKUP[408] has the following parameters: GUY{1217} local BACKUP-TABLE{1218} local has the following in-lined locals: FROM{864} LEN{865} TO{866} I{870} TABLE{1018} KEY{1019} VALUE{1020} N-ALISTS{1021} ALISTS{1022} HASH{1023} PROBE{1024} X{1088} BACKUP{1219} X{2749} N1{2844} N2{2845} v{2846} LABEL-DEFINED[360] has the following parameter: LAB{1156} local STATE-LABEL[274] has the following parameter: NODE{1066} local GLOID[273] has the following parameter: NODE{1065} local NONDEF?[272] has the following parameter: X{1064} local NONDEF[271] WALK-VECTOR-WITH-OFFSET[260] has the following parameters: OFFSET{1052} local FUN{1053} local VEC{1054} local has the following in-lined locals: X{839} VECLEN{1055} I{1058} X{1148} X{1155} X{1193} Q{2737} OBJ{2738} Q{2739} OBJ{2740} Q{2741} OBJ{2742} TABLE-EXPAND[197] has the following parameter: TABLE{1001} local has the following in-lined locals: TABLE{985} NEW{986} TABLE{987} NEW{988} OLD-N-ALISTS{1002} OLD-ALISTS{1003} NEW-N-ALISTS{1004} NEW-ALISTS{1005} I{1010} A{1014} A{1016} NEW-HASH{1017} N1{1577} N2{1578} v{1579} TABLE-LOOKUP[191] has the following parameters: TABLE{995} local KEY{996} local has the following in-lined locals: N-ALISTS{997} ALISTS{998} HASH{999} PROBE{1000} N1{2838} N2{2839} v{2840} TABLE-TEST[185] has the following parameters: TABLE{989} local KEY{990} local has the following in-lined locals: N-ALISTS{991} ALISTS{992} HASH{993} PROBE{994} N1{2841} N2{2842} v{2843} TABLE-SET-COUNT[182] has the following parameters: TABLE{983} local NEW{984} local TABLE-GET-ALISTS[181] has the following parameter: TABLE{982} local TABLE-GET-N-ALISTS[180] has the following parameter: TABLE{981} local TABLE-GET-COUNT[179] has the following parameter: TABLE{980} local MAKE-TABLE[178] [inside MAKE-COUNTER 175] has the following in-lined locals: OLD-COUNT{978} X{2752} Y{2753} QUEUE-POP[163] has the following parameter: Q{969} local has the following in-lined locals: HEAD{971} Q{973} LIST{1430} LIST{1433} R{1434} S{1435} QUEUE-EMPTY?[161] has the following parameter: Q{966} local MAKE-QUEUE[160] STACK-PUSH[156] has the following parameters: S{961} local OBJ{962} local has the following in-lined locals: X{2756} Y{2757} READ-INT[138] has region has the following parameter: FILE{945} local has the following in-lined local: VAL{946} PORMAT-FUNCTION[25] has the following parameters: CONTROL-STRING{850} local VALUES{851} local has the following in-lined locals: I{854} VALUES{855} C{856} C2{857} UNBOX[7] has the following parameter: X{834} local [inside top level 0] has the following in-lined locals: GLOBAL-NODE-COUNTER{674} ALPHABET-SIZE{685} X{833} X{835} Y{836} L{926} L{930} N{932} I{936} S{960} S{963} L{964} Q{967} OBJ{968} TABLE{1027} TABLE{1029} ALISTS{1030} N-ALISTS{1031} I{1034} P{1038} P{1040} TABLE{1041} KEY{1042} PROBE{1043} TO{1060} FROM{1061} LEN{1062} I{1063} NODE{1067} NODE{1068} I{1069} NODE{1070} VAL{1071} NODE{1072} VAL{1073} NODE{1074} I{1075} VAL{1076} NODE{1078} FATHER{1079} NODE{1080} OLD-COUNTER-VAL{1081} I{1087} TO{1089} FROM{1090} CURNODE{1091} STRING{1092} LABEL{1093} CURSYM{1094} NAME{1100} THE-FILE{1101} N-STRINGS{1102} ROOT{1104} LABEL{1107} STRING-LEN{1108} RB2{1109} NODE{1113} FATHER{1114} I{1117} N-MATCHES{1118} MATCHING-I{1119} START-NODE{1133} SEEN{1137} CURNODE{1145} CURNODE{1152} TR-NODE{1157} GRAPH-NODE{1158} BACKUP-TABLE{1159} TR-NODE{1162} GRAPH-NODE{1163} SEARCH-STACK{1164} BACKUP-TABLE{1165} SPLICES{1166} I{1167} TREE-CHILD{1168} GRAPH-CHILD{1169} CURNODE{1174} POTENTIAL-MATCH{1175} BACKUP-TABLE{1176} SPLICES{1177} SEARCH-STACK{1178} P{1182} T{1183} G{1184} RESULT{1185} CURNODE{1187} UNIQUE-TABLE{1189} UNIQUE-NODES{1190} TODO{1194} UNIQUE-TABLE{1195} UNIQUE-NODES{1196} CURNODE{1197} CURDAD{1198} INCHAR{1199} POTENTIAL-MATCHES{1203} SPLICES{1204} BACKUP-TABLE{1205} POTENTIAL-MATCH{1206} X{1208} ROOT{1211} UNIQUE-NODES{1212} UNIQUE-TABLE{1213} TODO{1214} BACKUP-TABLE{1220} GUY-DOT-BACKUP{1222} BACKUP{1223} GUY{1224} RB{1225} NEW{1226} RB{1227} FILE-NAME{1289} OBJS{1355} SS{1378} SS{1381} v{1382} v{1383} SS{1391} SS{1412} NODE{2709} I{2710} VAL{2711} NODE{2712} I{2713} VAL{2714} NODE{2715} I{2716} VAL{2717} NODE{2718} I{2719} NODE{2721} VAL{2722} NODE{2723} VAL{2724} NODE{2725} VAL{2726} NODE{2727} I{2728} NODE{2729} I{2730} NODE{2731} I{2732} NODE{2733} I{2734} NODE{2735} I{2736} Q{2743} OBJ{2744} Q{2745} OBJ{2746} Q{2747} OBJ{2748} X{2750} X{2751} X{2754} Y{2755} X{2758} Y{2759} X{2760} Y{2761} X{2762} Y{2763} X{2764} Y{2765} X{2770} X{2771} S{3996} N{4022} I{4026} N{4028} I{4032} N{4034} I{4038} N{4040} I{4044} NODE{4047} OLD-COUNTER-VAL{4048} I{4054} TABLE{4055} KEY{4056} N-ALISTS{4058} ALISTS{4059} HASH{4060} PROBE{4061} TABLE{4064} KEY{4065} VALUE{4066} N-ALISTS{4067} ALISTS{4068} HASH{4069} PROBE{4070} TABLE{4073} KEY{4074} N-ALISTS{4076} ALISTS{4077} HASH{4078} PROBE{4079} NODE{4083} NODE{4085} N{4838} I{4842} NODE{4844} I{4845} NODE{4847} NODE{4849} VAL{4850} X{4851} Y{4852} LIST{4853} LIST{4856} R{4857} N1{4858} N2{4859} v{4860} X{4861} N1{4862} N2{4863} v{4864} X{4865} N1{4866} N2{4867} v{4868} X{4869} The following non-trivial in-line native procedures will be generated: [clone ADD-ONE[10] 4313] has the following parameter: X{4869} local [clone [inside MODULO 918] 4312] has the following parameter: v{4868} local [clone MODULO[917] 4311] has the following parameters: N1{4866} local N2{4867} local [clone ADD-ONE[10] 4310] has the following parameter: X{4865} local [clone [inside MODULO 918] 4309] has the following parameter: v{4864} local [clone MODULO[917] 4308] has the following parameters: N1{4862} local N2{4863} local [clone ADD-ONE[10] 4307] has the following parameter: X{4861} local [clone [inside MODULO 918] 4306] has the following parameter: v{4860} local [clone MODULO[917] 4305] has the following parameters: N1{4858} local N2{4859} local [clone LOOP[753] 4303] has the following parameters: LIST{4856} local R{4857} local [clone LIST-REVERSE[750] 4300] has the following parameter: LIST{4853} local [clone SET-BOX![8] 4299] has the following parameters: X{4851} local Y{4852} local [clone SET-STATE-LABEL[277] 4298] has the following parameters: NODE{4849} local VAL{4850} local [clone SET-FATHER[278] 4297] has the following parameter: NODE{4847} local [clone SET-CHILD[279] 4296] has the following parameters: NODE{4844} local I{4845} local [clone LOOP[125] 4291] has the following parameter: I{4842} local [clone DO-TIMES-UP[122] 4288] has the following parameter: N{4838} local [clone LOOP?[1002] 4285] has the following parameters: CHAR1{4834} local CHAR2{4835} local [clone CHAR<=?[999] 4282] has the following parameters: CHAR1{4829} local CHAR2{4830} local [clone LOOP?[1002] 4279] has the following parameters: CHAR1{4825} local CHAR2{4826} local [clone CHAR<=?[999] 4276] has the following parameters: CHAR1{4820} local CHAR2{4821} local [clone LOOP?[1008] 4273] has the following parameters: CHAR1{4816} local CHAR2{4817} local [clone CHAR>=?[1005] 4270] has the following parameters: CHAR1{4811} local CHAR2{4812} local [clone LOOP?[1008] 4267] has the following parameters: CHAR1{4807} local CHAR2{4808} local [clone CHAR>=?[1005] 4264] has the following parameters: CHAR1{4802} local CHAR2{4803} local [clone LOOP?[1002] 4261] has the following parameters: CHAR1{4798} local CHAR2{4799} local [clone CHAR<=?[999] 4258] has the following parameters: CHAR1{4793} local CHAR2{4794} local [clone LOOP?[1002] 4255] has the following parameters: CHAR1{4789} local CHAR2{4790} local [clone CHAR<=?[999] 4252] has the following parameters: CHAR1{4784} local CHAR2{4785} local [clone LOOP?[1008] 4249] has the following parameters: CHAR1{4780} local CHAR2{4781} local [clone CHAR>=?[1005] 4246] has the following parameters: CHAR1{4775} local CHAR2{4776} local [clone LOOP?[1008] 4243] has the following parameters: CHAR1{4771} local CHAR2{4772} local [clone CHAR>=?[1005] 4240] has the following parameters: CHAR1{4766} local CHAR2{4767} local [clone LOOP?[1002] 4237] has the following parameters: CHAR1{4762} local CHAR2{4763} local [clone CHAR<=?[999] 4234] has the following parameters: CHAR1{4757} local CHAR2{4758} local [clone LOOP?[1008] 4231] has the following parameters: CHAR1{4753} local CHAR2{4754} local [clone CHAR>=?[1005] 4228] has the following parameters: CHAR1{4748} local CHAR2{4749} local [clone LOOP?[1002] 4225] has the following parameters: CHAR1{4744} local CHAR2{4745} local [clone CHAR<=?[999] 4222] has the following parameters: CHAR1{4739} local CHAR2{4740} local [clone LOOP?[1008] 4219] has the following parameters: CHAR1{4735} local CHAR2{4736} local [clone CHAR>=?[1005] 4216] has the following parameters: CHAR1{4730} local CHAR2{4731} local [clone LOOP?[1002] 4213] has the following parameters: CHAR1{4726} local CHAR2{4727} local [clone CHAR<=?[999] 4210] has the following parameters: CHAR1{4721} local CHAR2{4722} local [clone LOOP?[1002] 4207] has the following parameters: CHAR1{4717} local CHAR2{4718} local [clone CHAR<=?[999] 4204] has the following parameters: CHAR1{4712} local CHAR2{4713} local [clone LOOP?[1008] 4201] has the following parameters: CHAR1{4708} local CHAR2{4709} local [clone CHAR>=?[1005] 4198] has the following parameters: CHAR1{4703} local CHAR2{4704} local [clone LOOP?[1002] 4195] has the following parameters: CHAR1{4699} local CHAR2{4700} local [clone CHAR<=?[999] 4192] has the following parameters: CHAR1{4694} local CHAR2{4695} local [clone LOOP?[1002] 4189] has the following parameters: CHAR1{4690} local CHAR2{4691} local [clone CHAR<=?[999] 4186] has the following parameters: CHAR1{4685} local CHAR2{4686} local [clone LOOP?[1008] 4183] has the following parameters: CHAR1{4681} local CHAR2{4682} local [clone CHAR>=?[1005] 4180] has the following parameters: CHAR1{4676} local CHAR2{4677} local [clone LOOP?[1008] 4177] has the following parameters: CHAR1{4672} local CHAR2{4673} local [clone CHAR>=?[1005] 4174] has the following parameters: CHAR1{4667} local CHAR2{4668} local [clone LOOP?[1008] 4171] has the following parameters: CHAR1{4663} local CHAR2{4664} local [clone CHAR>=?[1005] 4168] has the following parameters: CHAR1{4658} local CHAR2{4659} local [clone LOOP?[1002] 4165] has the following parameters: CHAR1{4654} local CHAR2{4655} local [clone CHAR<=?[999] 4162] has the following parameters: CHAR1{4649} local CHAR2{4650} local [clone LOOP?[1008] 4159] has the following parameters: CHAR1{4645} local CHAR2{4646} local [clone CHAR>=?[1005] 4156] has the following parameters: CHAR1{4640} local CHAR2{4641} local [clone LOOP?[1002] 4153] has the following parameters: CHAR1{4636} local CHAR2{4637} local [clone CHAR<=?[999] 4150] has the following parameters: CHAR1{4631} local CHAR2{4632} local [clone LOOP?[1008] 4147] has the following parameters: CHAR1{4627} local CHAR2{4628} local [clone CHAR>=?[1005] 4144] has the following parameters: CHAR1{4622} local CHAR2{4623} local [clone LOOP?[1002] 4141] has the following parameters: CHAR1{4618} local CHAR2{4619} local [clone CHAR<=?[999] 4138] has the following parameters: CHAR1{4613} local CHAR2{4614} local [clone LOOP?[1002] 4135] has the following parameters: CHAR1{4609} local CHAR2{4610} local [clone CHAR<=?[999] 4132] has the following parameters: CHAR1{4604} local CHAR2{4605} local [clone LOOP?[984] 4129] has the following parameters: CHAR1{4600} local CHAR2{4601} local [clone CHAR=?[981] 4126] has the following parameters: CHAR1{4595} local CHAR2{4596} local [clone LOOP?[984] 4123] has the following parameters: CHAR1{4591} local CHAR2{4592} local [clone CHAR=?[981] 4120] has the following parameters: CHAR1{4586} local CHAR2{4587} local [clone LOOP?[984] 4117] has the following parameters: CHAR1{4582} local CHAR2{4583} local [clone CHAR=?[981] 4114] has the following parameters: CHAR1{4577} local CHAR2{4578} local [clone LOOP?[1002] 4111] has the following parameters: CHAR1{4573} local CHAR2{4574} local [clone CHAR<=?[999] 4108] has the following parameters: CHAR1{4568} local CHAR2{4569} local [clone LOOP?[1008] 4105] has the following parameters: CHAR1{4564} local CHAR2{4565} local [clone CHAR>=?[1005] 4102] has the following parameters: CHAR1{4559} local CHAR2{4560} local [clone CHAR-NUMERIC?[1043] 4101] has the following parameter: CHAR{4558} local [clone LOOP?[1008] 4098] has the following parameters: CHAR1{4554} local CHAR2{4555} local [clone CHAR>=?[1005] 4095] has the following parameters: CHAR1{4549} local CHAR2{4550} local [clone LOOP?[984] 4092] has the following parameters: CHAR1{4545} local CHAR2{4546} local [clone CHAR=?[981] 4089] has the following parameters: CHAR1{4540} local CHAR2{4541} local [clone LOOP?[984] 4086] has the following parameters: CHAR1{4536} local CHAR2{4537} local [clone CHAR=?[981] 4083] has the following parameters: CHAR1{4531} local CHAR2{4532} local [clone LOOP?[984] 4080] has the following parameters: CHAR1{4527} local CHAR2{4528} local [clone CHAR=?[981] 4077] has the following parameters: CHAR1{4522} local CHAR2{4523} local [clone LOOP?[1002] 4074] has the following parameters: CHAR1{4518} local CHAR2{4519} local [clone CHAR<=?[999] 4071] has the following parameters: CHAR1{4513} local CHAR2{4514} local [clone LOOP?[1008] 4068] has the following parameters: CHAR1{4509} local CHAR2{4510} local [clone CHAR>=?[1005] 4065] has the following parameters: CHAR1{4504} local CHAR2{4505} local [clone CHAR-NUMERIC?[1043] 4064] has the following parameter: CHAR{4503} local [clone LOOP?[1008] 4061] has the following parameters: CHAR1{4499} local CHAR2{4500} local [clone CHAR>=?[1005] 4058] has the following parameters: CHAR1{4494} local CHAR2{4495} local [clone LOOP?[1002] 4055] has the following parameters: CHAR1{4490} local CHAR2{4491} local [clone CHAR<=?[999] 4052] has the following parameters: CHAR1{4485} local CHAR2{4486} local [clone LOOP?[1002] 4049] has the following parameters: CHAR1{4481} local CHAR2{4482} local [clone CHAR<=?[999] 4046] has the following parameters: CHAR1{4476} local CHAR2{4477} local [clone LOOP?[984] 4043] has the following parameters: CHAR1{4472} local CHAR2{4473} local [clone CHAR=?[981] 4040] has the following parameters: CHAR1{4467} local CHAR2{4468} local [clone LOOP?[984] 4037] has the following parameters: CHAR1{4463} local CHAR2{4464} local [clone CHAR=?[981] 4034] has the following parameters: CHAR1{4458} local CHAR2{4459} local [clone LOOP?[984] 4031] has the following parameters: CHAR1{4454} local CHAR2{4455} local [clone CHAR=?[981] 4028] has the following parameters: CHAR1{4449} local CHAR2{4450} local [clone LOOP?[1002] 4025] has the following parameters: CHAR1{4445} local CHAR2{4446} local [clone CHAR<=?[999] 4022] has the following parameters: CHAR1{4440} local CHAR2{4441} local [clone LOOP?[1008] 4019] has the following parameters: CHAR1{4436} local CHAR2{4437} local [clone CHAR>=?[1005] 4016] has the following parameters: CHAR1{4431} local CHAR2{4432} local [clone CHAR-NUMERIC?[1043] 4015] has the following parameter: CHAR{4430} local [clone LOOP?[1008] 4012] has the following parameters: CHAR1{4426} local CHAR2{4427} local [clone CHAR>=?[1005] 4009] has the following parameters: CHAR1{4421} local CHAR2{4422} local [clone LOOP?[984] 4006] has the following parameters: CHAR1{4417} local CHAR2{4418} local [clone CHAR=?[981] 4003] has the following parameters: CHAR1{4412} local CHAR2{4413} local [clone LOOP?[984] 4000] has the following parameters: CHAR1{4408} local CHAR2{4409} local [clone CHAR=?[981] 3997] has the following parameters: CHAR1{4403} local CHAR2{4404} local [clone LOOP?[984] 3994] has the following parameters: CHAR1{4399} local CHAR2{4400} local [clone CHAR=?[981] 3991] has the following parameters: CHAR1{4394} local CHAR2{4395} local [clone LOOP?[1002] 3988] has the following parameters: CHAR1{4390} local CHAR2{4391} local [clone CHAR<=?[999] 3985] has the following parameters: CHAR1{4385} local CHAR2{4386} local [clone LOOP?[1008] 3982] has the following parameters: CHAR1{4381} local CHAR2{4382} local [clone CHAR>=?[1005] 3979] has the following parameters: CHAR1{4376} local CHAR2{4377} local [clone CHAR-NUMERIC?[1043] 3978] has the following parameter: CHAR{4375} local [clone LOOP?[1008] 3975] has the following parameters: CHAR1{4371} local CHAR2{4372} local [clone CHAR>=?[1005] 3972] has the following parameters: CHAR1{4366} local CHAR2{4367} local [clone LOOP?[1002] 3969] has the following parameters: CHAR1{4362} local CHAR2{4363} local [clone CHAR<=?[999] 3966] has the following parameters: CHAR1{4357} local CHAR2{4358} local [clone LOOP?[1002] 3963] has the following parameters: CHAR1{4353} local CHAR2{4354} local [clone CHAR<=?[999] 3960] has the following parameters: CHAR1{4348} local CHAR2{4349} local [clone LOOP?[1008] 3957] has the following parameters: CHAR1{4344} local CHAR2{4345} local [clone CHAR>=?[1005] 3954] has the following parameters: CHAR1{4339} local CHAR2{4340} local [clone LOOP?[1008] 3951] has the following parameters: CHAR1{4335} local CHAR2{4336} local [clone CHAR>=?[1005] 3948] has the following parameters: CHAR1{4330} local CHAR2{4331} local [clone LOOP?[1002] 3945] has the following parameters: CHAR1{4326} local CHAR2{4327} local [clone CHAR<=?[999] 3942] has the following parameters: CHAR1{4321} local CHAR2{4322} local [clone LOOP?[1002] 3939] has the following parameters: CHAR1{4317} local CHAR2{4318} local [clone CHAR<=?[999] 3936] has the following parameters: CHAR1{4312} local CHAR2{4313} local [clone LOOP?[1002] 3933] has the following parameters: CHAR1{4308} local CHAR2{4309} local [clone CHAR<=?[999] 3930] has the following parameters: CHAR1{4303} local CHAR2{4304} local [clone LOOP?[1002] 3927] has the following parameters: CHAR1{4299} local CHAR2{4300} local [clone CHAR<=?[999] 3924] has the following parameters: CHAR1{4294} local CHAR2{4295} local [clone LOOP?[1008] 3921] has the following parameters: CHAR1{4290} local CHAR2{4291} local [clone CHAR>=?[1005] 3918] has the following parameters: CHAR1{4285} local CHAR2{4286} local [clone LOOP?[1002] 3915] has the following parameters: CHAR1{4281} local CHAR2{4282} local [clone CHAR<=?[999] 3912] has the following parameters: CHAR1{4276} local CHAR2{4277} local [clone LOOP?[1008] 3909] has the following parameters: CHAR1{4272} local CHAR2{4273} local [clone CHAR>=?[1005] 3906] has the following parameters: CHAR1{4267} local CHAR2{4268} local [clone LOOP?[1008] 3903] has the following parameters: CHAR1{4263} local CHAR2{4264} local [clone CHAR>=?[1005] 3900] has the following parameters: CHAR1{4258} local CHAR2{4259} local [clone LOOP?[1008] 3897] has the following parameters: CHAR1{4254} local CHAR2{4255} local [clone CHAR>=?[1005] 3894] has the following parameters: CHAR1{4249} local CHAR2{4250} local [clone LOOP?[1002] 3891] has the following parameters: CHAR1{4245} local CHAR2{4246} local [clone CHAR<=?[999] 3888] has the following parameters: CHAR1{4240} local CHAR2{4241} local [clone LOOP?[1002] 3885] has the following parameters: CHAR1{4236} local CHAR2{4237} local [clone CHAR<=?[999] 3882] has the following parameters: CHAR1{4231} local CHAR2{4232} local [clone LOOP?[1008] 3879] has the following parameters: CHAR1{4227} local CHAR2{4228} local [clone CHAR>=?[1005] 3876] has the following parameters: CHAR1{4222} local CHAR2{4223} local [clone LOOP?[1002] 3873] has the following parameters: CHAR1{4218} local CHAR2{4219} local [clone CHAR<=?[999] 3870] has the following parameters: CHAR1{4213} local CHAR2{4214} local [clone LOOP?[1008] 3867] has the following parameters: CHAR1{4209} local CHAR2{4210} local [clone CHAR>=?[1005] 3864] has the following parameters: CHAR1{4204} local CHAR2{4205} local [clone LOOP?[1008] 3861] has the following parameters: CHAR1{4200} local CHAR2{4201} local [clone CHAR>=?[1005] 3858] has the following parameters: CHAR1{4195} local CHAR2{4196} local [clone LOOP?[1008] 3855] has the following parameters: CHAR1{4191} local CHAR2{4192} local [clone CHAR>=?[1005] 3852] has the following parameters: CHAR1{4186} local CHAR2{4187} local [clone LOOP?[1002] 3849] has the following parameters: CHAR1{4182} local CHAR2{4183} local [clone CHAR<=?[999] 3846] has the following parameters: CHAR1{4177} local CHAR2{4178} local [clone LOOP?[984] 3843] has the following parameters: CHAR1{4173} local CHAR2{4174} local [clone CHAR=?[981] 3840] has the following parameters: CHAR1{4168} local CHAR2{4169} local [clone LOOP?[984] 3837] has the following parameters: CHAR1{4164} local CHAR2{4165} local [clone CHAR=?[981] 3834] has the following parameters: CHAR1{4159} local CHAR2{4160} local [clone LOOP?[984] 3831] has the following parameters: CHAR1{4155} local CHAR2{4156} local [clone CHAR=?[981] 3828] has the following parameters: CHAR1{4150} local CHAR2{4151} local [clone LOOP?[1002] 3825] has the following parameters: CHAR1{4146} local CHAR2{4147} local [clone CHAR<=?[999] 3822] has the following parameters: CHAR1{4141} local CHAR2{4142} local [clone LOOP?[1008] 3819] has the following parameters: CHAR1{4137} local CHAR2{4138} local [clone CHAR>=?[1005] 3816] has the following parameters: CHAR1{4132} local CHAR2{4133} local [clone CHAR-NUMERIC?[1043] 3815] has the following parameter: CHAR{4131} local [clone LOOP?[1002] 3812] has the following parameters: CHAR1{4127} local CHAR2{4128} local [clone CHAR<=?[999] 3809] has the following parameters: CHAR1{4122} local CHAR2{4123} local [clone LOOP?[1008] 3806] has the following parameters: CHAR1{4118} local CHAR2{4119} local [clone CHAR>=?[1005] 3803] has the following parameters: CHAR1{4113} local CHAR2{4114} local [clone LOOP?[1002] 3800] has the following parameters: CHAR1{4109} local CHAR2{4110} local [clone CHAR<=?[999] 3797] has the following parameters: CHAR1{4104} local CHAR2{4105} local [clone LOOP?[1008] 3794] has the following parameters: CHAR1{4100} local CHAR2{4101} local [clone CHAR>=?[1005] 3791] has the following parameters: CHAR1{4095} local CHAR2{4096} local [clone LOOP?[1008] 3788] has the following parameters: CHAR1{4091} local CHAR2{4092} local [clone CHAR>=?[1005] 3785] has the following parameters: CHAR1{4086} local CHAR2{4087} local [clone WALK-CHILDREN[280] 3784] has the following parameter: NODE{4085} local [clone WALK-CHILDREN[280] 3783] has the following parameter: NODE{4083} local [clone [inside TABLE-SET! 224] 3778] has the following parameter: PROBE{4079} local [clone [inside TABLE-SET! 223] 3777] has the following parameter: HASH{4078} local [clone [inside TABLE-SET! 222] 3776] has the following parameter: ALISTS{4077} local [clone [inside TABLE-SET! 221] 3775] has the following parameter: N-ALISTS{4076} local [clone TABLE-SET![220] 3774] has the following parameters: TABLE{4073} local KEY{4074} local [clone [inside TABLE-SET! 224] 3769] has the following parameter: PROBE{4070} local [clone [inside TABLE-SET! 223] 3768] has the following parameter: HASH{4069} local [clone [inside TABLE-SET! 222] 3767] has the following parameter: ALISTS{4068} local [clone [inside TABLE-SET! 221] 3766] has the following parameter: N-ALISTS{4067} local [clone TABLE-SET![220] 3765] has the following parameters: TABLE{4064} local KEY{4065} local VALUE{4066} local [clone [inside TABLE-SET! 224] 3760] has the following parameter: PROBE{4061} local [clone [inside TABLE-SET! 223] 3759] has the following parameter: HASH{4060} local [clone [inside TABLE-SET! 222] 3758] has the following parameter: ALISTS{4059} local [clone [inside TABLE-SET! 221] 3757] has the following parameter: N-ALISTS{4058} local [clone TABLE-SET![220] 3756] has the following parameters: TABLE{4055} local KEY{4056} local [clone [inside MAKE-NODE 284] 3755] has the following parameter: I{4054} local [clone [inside MAKE-NODE 282] 3753] has the following parameters: NODE{4047} local OLD-COUNTER-VAL{4048} local [clone LOOP[125] 3747] has the following parameter: I{4044} local [clone DO-TIMES-UP[122] 3744] has the following parameter: N{4040} local [clone LOOP[125] 3739] has the following parameter: I{4038} local [clone DO-TIMES-UP[122] 3736] has the following parameter: N{4034} local [clone LOOP[125] 3731] has the following parameter: I{4032} local [clone DO-TIMES-UP[122] 3728] has the following parameter: N{4028} local [clone LOOP[125] 3723] has the following parameter: I{4026} local [clone DO-TIMES-UP[122] 3720] has the following parameter: N{4022} local [clone [inside CHAR-SUBSEQUENT? 1801] 3719] has the following parameter: v{4021} local [clone [inside CHAR-SUBSEQUENT? 1800] 3718] has the following parameter: v{4020} local [clone [inside CHAR-SUBSEQUENT? 1799] 3717] has the following parameter: v{4019} local [clone [inside CHAR-SUBSEQUENT? 1798] 3716] has the following parameter: v{4018} local [clone CHAR-SUBSEQUENT?[1797] 3715] has the following parameter: C{4017} local [clone [inside CHAR-SUBSEQUENT? 1801] 3714] has the following parameter: v{4016} local [clone [inside CHAR-SUBSEQUENT? 1800] 3713] has the following parameter: v{4015} local [clone [inside CHAR-SUBSEQUENT? 1799] 3712] has the following parameter: v{4014} local [clone [inside CHAR-SUBSEQUENT? 1798] 3711] has the following parameter: v{4013} local [clone CHAR-SUBSEQUENT?[1797] 3710] has the following parameter: C{4012} local [clone [inside CHAR-SUBSEQUENT? 1801] 3709] has the following parameter: v{4011} local [clone [inside CHAR-SUBSEQUENT? 1800] 3708] has the following parameter: v{4010} local [clone [inside CHAR-SUBSEQUENT? 1799] 3707] has the following parameter: v{4009} local [clone [inside CHAR-SUBSEQUENT? 1798] 3706] has the following parameter: v{4008} local [clone CHAR-SUBSEQUENT?[1797] 3705] has the following parameter: C{4007} local [clone [inside CHAR-SUBSEQUENT? 1801] 3704] has the following parameter: v{4006} local [clone [inside CHAR-SUBSEQUENT? 1800] 3703] has the following parameter: v{4005} local [clone [inside CHAR-SUBSEQUENT? 1799] 3702] has the following parameter: v{4004} local [clone [inside CHAR-SUBSEQUENT? 1798] 3701] has the following parameter: v{4003} local [clone CHAR-SUBSEQUENT?[1797] 3700] has the following parameter: C{4002} local [clone [inside CHAR-SUBSEQUENT? 1801] 3699] has the following parameter: v{4001} local [clone [inside CHAR-SUBSEQUENT? 1800] 3698] has the following parameter: v{4000} local [clone [inside CHAR-SUBSEQUENT? 1799] 3697] has the following parameter: v{3999} local [clone [inside CHAR-SUBSEQUENT? 1798] 3696] has the following parameter: v{3998} local [clone CHAR-SUBSEQUENT?[1797] 3695] has the following parameter: C{3997} local [clone REVERSE[755] 3689] has the following parameter: S{3996} local [clone [inside CHAR-ALPHABETIC? 1042] 3688] has the following parameter: v{3995} local [clone CHAR-ALPHABETIC?[1041] 3687] has the following parameter: CHAR{3994} local [clone [inside CHAR-ALPHABETIC? 1042] 3686] has the following parameter: v{3993} local [clone CHAR-ALPHABETIC?[1041] 3685] has the following parameter: CHAR{3992} local [clone CHAR-UPCASE[1054] 3684] has the following parameter: CHAR{3991} local [clone CHAR-UPCASE[1054] 3683] has the following parameter: CHAR{3990} local [clone CHAR-UPCASE[1054] 3682] has the following parameter: CHAR{3989} local [clone CHAR-UPCASE[1054] 3681] has the following parameter: CHAR{3988} local [clone CHAR-UPCASE[1054] 3680] has the following parameter: CHAR{3987} local [clone CHAR-UPCASE[1054] 3679] has the following parameter: CHAR{3986} local [clone CHAR-UPCASE[1054] 3678] has the following parameter: CHAR{3985} local [clone CHAR-UPCASE[1054] 3677] has the following parameter: CHAR{3984} local [clone CHAR-UPCASE[1054] 3676] has the following parameter: CHAR{3983} local [clone CHAR-UPCASE[1054] 3675] has the following parameter: CHAR{3982} local [clone CHAR-UPCASE[1054] 3674] has the following parameter: CHAR{3981} local [clone CHAR-UPCASE[1054] 3673] has the following parameter: CHAR{3980} local [clone CHAR-UPCASE[1054] 3672] has the following parameter: CHAR{3979} local [clone CHAR-UPCASE[1054] 3671] has the following parameter: CHAR{3978} local [clone CHAR-UPCASE[1054] 3670] has the following parameter: CHAR{3977} local [clone CHAR-NUMERIC?[1043] 3669] has the following parameter: CHAR{3976} local [clone CHAR-NUMERIC?[1043] 3668] has the following parameter: CHAR{3975} local [clone CHAR-NUMERIC?[1043] 3667] has the following parameter: CHAR{3974} local [clone CHAR-NUMERIC?[1043] 3666] has the following parameter: CHAR{3973} local [clone CHAR-NUMERIC?[1043] 3665] has the following parameter: CHAR{3972} local [clone CHAR-NUMERIC?[1043] 3664] has the following parameter: CHAR{3971} local [clone CHAR-NUMERIC?[1043] 3663] has the following parameter: CHAR{3970} local [clone CHAR-NUMERIC?[1043] 3662] has the following parameter: CHAR{3969} local [clone CHAR-NUMERIC?[1043] 3661] has the following parameter: CHAR{3968} local [clone CHAR-NUMERIC?[1043] 3660] has the following parameter: CHAR{3967} local [clone CHAR-NUMERIC?[1043] 3659] has the following parameter: CHAR{3966} local [clone CHAR-NUMERIC?[1043] 3658] has the following parameter: CHAR{3965} local [clone CHAR-NUMERIC?[1043] 3657] has the following parameter: CHAR{3964} local [clone CHAR-NUMERIC?[1043] 3656] has the following parameter: CHAR{3963} local [clone CHAR-NUMERIC?[1043] 3655] has the following parameter: CHAR{3962} local [clone CHAR-NUMERIC?[1043] 3654] has the following parameter: CHAR{3961} local [clone CHAR-NUMERIC?[1043] 3653] has the following parameter: CHAR{3960} local [clone CHAR-NUMERIC?[1043] 3652] has the following parameter: CHAR{3959} local [clone CHAR-NUMERIC?[1043] 3651] has the following parameter: CHAR{3958} local [clone CHAR-NUMERIC?[1043] 3650] has the following parameter: CHAR{3957} local [clone CHAR-NUMERIC?[1043] 3649] has the following parameter: CHAR{3956} local [clone CHAR-NUMERIC?[1043] 3648] has the following parameter: CHAR{3955} local [clone CHAR-NUMERIC?[1043] 3647] has the following parameter: CHAR{3954} local [clone CHAR-NUMERIC?[1043] 3646] has the following parameter: CHAR{3953} local [clone CHAR-NUMERIC?[1043] 3645] has the following parameter: CHAR{3952} local [clone LOOP[753] 3643] has the following parameters: LIST{3950} local R{3951} local [clone LIST-REVERSE[750] 3640] has the following parameter: LIST{3947} local [clone LOOP[753] 3638] has the following parameters: LIST{3945} local R{3946} local [clone LIST-REVERSE[750] 3635] has the following parameter: LIST{3942} local [clone LOOP[753] 3633] has the following parameters: LIST{3940} local R{3941} local [clone LIST-REVERSE[750] 3630] has the following parameter: LIST{3937} local [clone LOOP[753] 3628] has the following parameters: LIST{3935} local R{3936} local [clone LIST-REVERSE[750] 3625] has the following parameter: LIST{3932} local [clone LOOP[753] 3623] has the following parameters: LIST{3930} local R{3931} local [clone LIST-REVERSE[750] 3620] has the following parameter: LIST{3927} local [clone LOOP?[984] 3617] has the following parameters: CHAR1{3923} local CHAR2{3924} local [clone CHAR=?[981] 3614] has the following parameters: CHAR1{3918} local CHAR2{3919} local [clone LOOP?[984] 3611] has the following parameters: CHAR1{3914} local CHAR2{3915} local [clone CHAR=?[981] 3608] has the following parameters: CHAR1{3909} local CHAR2{3910} local [clone LOOP?[984] 3605] has the following parameters: CHAR1{3905} local CHAR2{3906} local [clone CHAR=?[981] 3602] has the following parameters: CHAR1{3900} local CHAR2{3901} local [clone LOOP?[984] 3599] has the following parameters: CHAR1{3896} local CHAR2{3897} local [clone CHAR=?[981] 3596] has the following parameters: CHAR1{3891} local CHAR2{3892} local [clone LOOP?[984] 3593] has the following parameters: CHAR1{3887} local CHAR2{3888} local [clone CHAR=?[981] 3590] has the following parameters: CHAR1{3882} local CHAR2{3883} local [clone LOOP?[984] 3587] has the following parameters: CHAR1{3878} local CHAR2{3879} local [clone CHAR=?[981] 3584] has the following parameters: CHAR1{3873} local CHAR2{3874} local [clone LOOP?[984] 3581] has the following parameters: CHAR1{3869} local CHAR2{3870} local [clone CHAR=?[981] 3578] has the following parameters: CHAR1{3864} local CHAR2{3865} local [clone LOOP?[984] 3575] has the following parameters: CHAR1{3860} local CHAR2{3861} local [clone CHAR=?[981] 3572] has the following parameters: CHAR1{3855} local CHAR2{3856} local [clone LOOP?[984] 3569] has the following parameters: CHAR1{3851} local CHAR2{3852} local [clone CHAR=?[981] 3566] has the following parameters: CHAR1{3846} local CHAR2{3847} local [clone LOOP?[984] 3563] has the following parameters: CHAR1{3842} local CHAR2{3843} local [clone CHAR=?[981] 3560] has the following parameters: CHAR1{3837} local CHAR2{3838} local [clone LOOP?[984] 3557] has the following parameters: CHAR1{3833} local CHAR2{3834} local [clone CHAR=?[981] 3554] has the following parameters: CHAR1{3828} local CHAR2{3829} local [clone LOOP?[984] 3551] has the following parameters: CHAR1{3824} local CHAR2{3825} local [clone CHAR=?[981] 3548] has the following parameters: CHAR1{3819} local CHAR2{3820} local [clone LOOP?[984] 3545] has the following parameters: CHAR1{3815} local CHAR2{3816} local [clone CHAR=?[981] 3542] has the following parameters: CHAR1{3810} local CHAR2{3811} local [clone LOOP?[984] 3539] has the following parameters: CHAR1{3806} local CHAR2{3807} local [clone CHAR=?[981] 3536] has the following parameters: CHAR1{3801} local CHAR2{3802} local [clone LOOP?[984] 3533] has the following parameters: CHAR1{3797} local CHAR2{3798} local [clone CHAR=?[981] 3530] has the following parameters: CHAR1{3792} local CHAR2{3793} local [clone LOOP?[984] 3527] has the following parameters: CHAR1{3788} local CHAR2{3789} local [clone CHAR=?[981] 3524] has the following parameters: CHAR1{3783} local CHAR2{3784} local [clone LOOP?[984] 3521] has the following parameters: CHAR1{3779} local CHAR2{3780} local [clone CHAR=?[981] 3518] has the following parameters: CHAR1{3774} local CHAR2{3775} local [clone LOOP?[984] 3515] has the following parameters: CHAR1{3770} local CHAR2{3771} local [clone CHAR=?[981] 3512] has the following parameters: CHAR1{3765} local CHAR2{3766} local [clone LOOP?[984] 3509] has the following parameters: CHAR1{3761} local CHAR2{3762} local [clone CHAR=?[981] 3506] has the following parameters: CHAR1{3756} local CHAR2{3757} local [clone LOOP?[984] 3503] has the following parameters: CHAR1{3752} local CHAR2{3753} local [clone CHAR=?[981] 3500] has the following parameters: CHAR1{3747} local CHAR2{3748} local [clone LOOP?[984] 3497] has the following parameters: CHAR1{3743} local CHAR2{3744} local [clone CHAR=?[981] 3494] has the following parameters: CHAR1{3738} local CHAR2{3739} local [clone LOOP?[984] 3491] has the following parameters: CHAR1{3734} local CHAR2{3735} local [clone CHAR=?[981] 3488] has the following parameters: CHAR1{3729} local CHAR2{3730} local [clone LOOP?[984] 3485] has the following parameters: CHAR1{3725} local CHAR2{3726} local [clone CHAR=?[981] 3482] has the following parameters: CHAR1{3720} local CHAR2{3721} local [clone LOOP?[984] 3479] has the following parameters: CHAR1{3716} local CHAR2{3717} local [clone CHAR=?[981] 3476] has the following parameters: CHAR1{3711} local CHAR2{3712} local [clone LOOP?[984] 3473] has the following parameters: CHAR1{3707} local CHAR2{3708} local [clone CHAR=?[981] 3470] has the following parameters: CHAR1{3702} local CHAR2{3703} local [clone LOOP?[984] 3467] has the following parameters: CHAR1{3698} local CHAR2{3699} local [clone CHAR=?[981] 3464] has the following parameters: CHAR1{3693} local CHAR2{3694} local [clone LOOP?[984] 3461] has the following parameters: CHAR1{3689} local CHAR2{3690} local [clone CHAR=?[981] 3458] has the following parameters: CHAR1{3684} local CHAR2{3685} local [clone LOOP?[984] 3455] has the following parameters: CHAR1{3680} local CHAR2{3681} local [clone CHAR=?[981] 3452] has the following parameters: CHAR1{3675} local CHAR2{3676} local [clone LOOP?[984] 3449] has the following parameters: CHAR1{3671} local CHAR2{3672} local [clone CHAR=?[981] 3446] has the following parameters: CHAR1{3666} local CHAR2{3667} local [clone LOOP?[984] 3443] has the following parameters: CHAR1{3662} local CHAR2{3663} local [clone CHAR=?[981] 3440] has the following parameters: CHAR1{3657} local CHAR2{3658} local [clone LOOP?[984] 3437] has the following parameters: CHAR1{3653} local CHAR2{3654} local [clone CHAR=?[981] 3434] has the following parameters: CHAR1{3648} local CHAR2{3649} local [clone LOOP?[984] 3431] has the following parameters: CHAR1{3644} local CHAR2{3645} local [clone CHAR=?[981] 3428] has the following parameters: CHAR1{3639} local CHAR2{3640} local [clone LOOP?[984] 3425] has the following parameters: CHAR1{3635} local CHAR2{3636} local [clone CHAR=?[981] 3422] has the following parameters: CHAR1{3630} local CHAR2{3631} local [clone LOOP?[984] 3419] has the following parameters: CHAR1{3626} local CHAR2{3627} local [clone CHAR=?[981] 3416] has the following parameters: CHAR1{3621} local CHAR2{3622} local [clone LOOP?[984] 3413] has the following parameters: CHAR1{3617} local CHAR2{3618} local [clone CHAR=?[981] 3410] has the following parameters: CHAR1{3612} local CHAR2{3613} local [clone LOOP?[984] 3407] has the following parameters: CHAR1{3608} local CHAR2{3609} local [clone CHAR=?[981] 3404] has the following parameters: CHAR1{3603} local CHAR2{3604} local [clone LOOP?[984] 3401] has the following parameters: CHAR1{3599} local CHAR2{3600} local [clone CHAR=?[981] 3398] has the following parameters: CHAR1{3594} local CHAR2{3595} local [clone LOOP?[984] 3395] has the following parameters: CHAR1{3590} local CHAR2{3591} local [clone CHAR=?[981] 3392] has the following parameters: CHAR1{3585} local CHAR2{3586} local [clone LOOP?[984] 3389] has the following parameters: CHAR1{3581} local CHAR2{3582} local [clone CHAR=?[981] 3386] has the following parameters: CHAR1{3576} local CHAR2{3577} local [clone LOOP?[984] 3383] has the following parameters: CHAR1{3572} local CHAR2{3573} local [clone CHAR=?[981] 3380] has the following parameters: CHAR1{3567} local CHAR2{3568} local [clone LOOP?[984] 3377] has the following parameters: CHAR1{3563} local CHAR2{3564} local [clone CHAR=?[981] 3374] has the following parameters: CHAR1{3558} local CHAR2{3559} local [clone LOOP?[984] 3371] has the following parameters: CHAR1{3554} local CHAR2{3555} local [clone CHAR=?[981] 3368] has the following parameters: CHAR1{3549} local CHAR2{3550} local [clone LOOP?[984] 3365] has the following parameters: CHAR1{3545} local CHAR2{3546} local [clone CHAR=?[981] 3362] has the following parameters: CHAR1{3540} local CHAR2{3541} local [clone LOOP?[984] 3359] has the following parameters: CHAR1{3536} local CHAR2{3537} local [clone CHAR=?[981] 3356] has the following parameters: CHAR1{3531} local CHAR2{3532} local [clone LOOP?[984] 3353] has the following parameters: CHAR1{3527} local CHAR2{3528} local [clone CHAR=?[981] 3350] has the following parameters: CHAR1{3522} local CHAR2{3523} local [clone LOOP?[984] 3347] has the following parameters: CHAR1{3518} local CHAR2{3519} local [clone CHAR=?[981] 3344] has the following parameters: CHAR1{3513} local CHAR2{3514} local [clone LOOP?[984] 3341] has the following parameters: CHAR1{3509} local CHAR2{3510} local [clone CHAR=?[981] 3338] has the following parameters: CHAR1{3504} local CHAR2{3505} local [clone LOOP?[984] 3335] has the following parameters: CHAR1{3500} local CHAR2{3501} local [clone CHAR=?[981] 3332] has the following parameters: CHAR1{3495} local CHAR2{3496} local [clone LOOP?[984] 3329] has the following parameters: CHAR1{3491} local CHAR2{3492} local [clone CHAR=?[981] 3326] has the following parameters: CHAR1{3486} local CHAR2{3487} local [clone LOOP?[984] 3323] has the following parameters: CHAR1{3482} local CHAR2{3483} local [clone CHAR=?[981] 3320] has the following parameters: CHAR1{3477} local CHAR2{3478} local [clone LOOP?[984] 3317] has the following parameters: CHAR1{3473} local CHAR2{3474} local [clone CHAR=?[981] 3314] has the following parameters: CHAR1{3468} local CHAR2{3469} local [clone LOOP?[984] 3311] has the following parameters: CHAR1{3464} local CHAR2{3465} local [clone CHAR=?[981] 3308] has the following parameters: CHAR1{3459} local CHAR2{3460} local [clone LOOP?[984] 3305] has the following parameters: CHAR1{3455} local CHAR2{3456} local [clone CHAR=?[981] 3302] has the following parameters: CHAR1{3450} local CHAR2{3451} local [clone LOOP?[984] 3299] has the following parameters: CHAR1{3446} local CHAR2{3447} local [clone CHAR=?[981] 3296] has the following parameters: CHAR1{3441} local CHAR2{3442} local [clone LOOP?[984] 3293] has the following parameters: CHAR1{3437} local CHAR2{3438} local [clone CHAR=?[981] 3290] has the following parameters: CHAR1{3432} local CHAR2{3433} local [clone LOOP?[984] 3287] has the following parameters: CHAR1{3428} local CHAR2{3429} local [clone CHAR=?[981] 3284] has the following parameters: CHAR1{3423} local CHAR2{3424} local [clone LOOP?[984] 3281] has the following parameters: CHAR1{3419} local CHAR2{3420} local [clone CHAR=?[981] 3278] has the following parameters: CHAR1{3414} local CHAR2{3415} local [clone LOOP?[984] 3275] has the following parameters: CHAR1{3410} local CHAR2{3411} local [clone CHAR=?[981] 3272] has the following parameters: CHAR1{3405} local CHAR2{3406} local [clone LOOP?[984] 3269] has the following parameters: CHAR1{3401} local CHAR2{3402} local [clone CHAR=?[981] 3266] has the following parameters: CHAR1{3396} local CHAR2{3397} local [clone LOOP?[984] 3263] has the following parameters: CHAR1{3392} local CHAR2{3393} local [clone CHAR=?[981] 3260] has the following parameters: CHAR1{3387} local CHAR2{3388} local [clone LOOP?[984] 3257] has the following parameters: CHAR1{3383} local CHAR2{3384} local [clone CHAR=?[981] 3254] has the following parameters: CHAR1{3378} local CHAR2{3379} local [clone LOOP?[984] 3251] has the following parameters: CHAR1{3374} local CHAR2{3375} local [clone CHAR=?[981] 3248] has the following parameters: CHAR1{3369} local CHAR2{3370} local [clone LOOP?[984] 3245] has the following parameters: CHAR1{3365} local CHAR2{3366} local [clone CHAR=?[981] 3242] has the following parameters: CHAR1{3360} local CHAR2{3361} local [clone LOOP?[984] 3239] has the following parameters: CHAR1{3356} local CHAR2{3357} local [clone CHAR=?[981] 3236] has the following parameters: CHAR1{3351} local CHAR2{3352} local [clone LOOP?[984] 3233] has the following parameters: CHAR1{3347} local CHAR2{3348} local [clone CHAR=?[981] 3230] has the following parameters: CHAR1{3342} local CHAR2{3343} local [clone LOOP?[984] 3227] has the following parameters: CHAR1{3338} local CHAR2{3339} local [clone CHAR=?[981] 3224] has the following parameters: CHAR1{3333} local CHAR2{3334} local [clone LOOP?[984] 3221] has the following parameters: CHAR1{3329} local CHAR2{3330} local [clone CHAR=?[981] 3218] has the following parameters: CHAR1{3324} local CHAR2{3325} local [clone LOOP?[984] 3215] has the following parameters: CHAR1{3320} local CHAR2{3321} local [clone CHAR=?[981] 3212] has the following parameters: CHAR1{3315} local CHAR2{3316} local [clone LOOP?[984] 3209] has the following parameters: CHAR1{3311} local CHAR2{3312} local [clone CHAR=?[981] 3206] has the following parameters: CHAR1{3306} local CHAR2{3307} local [clone LOOP?[984] 3203] has the following parameters: CHAR1{3302} local CHAR2{3303} local [clone CHAR=?[981] 3200] has the following parameters: CHAR1{3297} local CHAR2{3298} local [clone LOOP?[984] 3197] has the following parameters: CHAR1{3293} local CHAR2{3294} local [clone CHAR=?[981] 3194] has the following parameters: CHAR1{3288} local CHAR2{3289} local [clone LOOP?[984] 3191] has the following parameters: CHAR1{3284} local CHAR2{3285} local [clone CHAR=?[981] 3188] has the following parameters: CHAR1{3279} local CHAR2{3280} local [clone LOOP?[984] 3185] has the following parameters: CHAR1{3275} local CHAR2{3276} local [clone CHAR=?[981] 3182] has the following parameters: CHAR1{3270} local CHAR2{3271} local [clone LOOP?[984] 3179] has the following parameters: CHAR1{3266} local CHAR2{3267} local [clone CHAR=?[981] 3176] has the following parameters: CHAR1{3261} local CHAR2{3262} local [clone LOOP?[984] 3173] has the following parameters: CHAR1{3257} local CHAR2{3258} local [clone CHAR=?[981] 3170] has the following parameters: CHAR1{3252} local CHAR2{3253} local [clone LOOP?[984] 3167] has the following parameters: CHAR1{3248} local CHAR2{3249} local [clone CHAR=?[981] 3164] has the following parameters: CHAR1{3243} local CHAR2{3244} local [clone LOOP?[984] 3161] has the following parameters: CHAR1{3239} local CHAR2{3240} local [clone CHAR=?[981] 3158] has the following parameters: CHAR1{3234} local CHAR2{3235} local [clone LOOP?[984] 3155] has the following parameters: CHAR1{3230} local CHAR2{3231} local [clone CHAR=?[981] 3152] has the following parameters: CHAR1{3225} local CHAR2{3226} local [clone LOOP?[984] 3149] has the following parameters: CHAR1{3221} local CHAR2{3222} local [clone CHAR=?[981] 3146] has the following parameters: CHAR1{3216} local CHAR2{3217} local [clone LOOP?[984] 3143] has the following parameters: CHAR1{3212} local CHAR2{3213} local [clone CHAR=?[981] 3140] has the following parameters: CHAR1{3207} local CHAR2{3208} local [clone LOOP?[984] 3137] has the following parameters: CHAR1{3203} local CHAR2{3204} local [clone CHAR=?[981] 3134] has the following parameters: CHAR1{3198} local CHAR2{3199} local [clone LOOP?[984] 3131] has the following parameters: CHAR1{3194} local CHAR2{3195} local [clone CHAR=?[981] 3128] has the following parameters: CHAR1{3189} local CHAR2{3190} local [clone LOOP?[984] 3125] has the following parameters: CHAR1{3185} local CHAR2{3186} local [clone CHAR=?[981] 3122] has the following parameters: CHAR1{3180} local CHAR2{3181} local [clone LOOP?[984] 3119] has the following parameters: CHAR1{3176} local CHAR2{3177} local [clone CHAR=?[981] 3116] has the following parameters: CHAR1{3171} local CHAR2{3172} local [clone LOOP?[984] 3113] has the following parameters: CHAR1{3167} local CHAR2{3168} local [clone CHAR=?[981] 3110] has the following parameters: CHAR1{3162} local CHAR2{3163} local [clone LOOP?[984] 3107] has the following parameters: CHAR1{3158} local CHAR2{3159} local [clone CHAR=?[981] 3104] has the following parameters: CHAR1{3153} local CHAR2{3154} local [clone LOOP?[984] 3101] has the following parameters: CHAR1{3149} local CHAR2{3150} local [clone CHAR=?[981] 3098] has the following parameters: CHAR1{3144} local CHAR2{3145} local [clone LOOP?[984] 3095] has the following parameters: CHAR1{3140} local CHAR2{3141} local [clone CHAR=?[981] 3092] has the following parameters: CHAR1{3135} local CHAR2{3136} local [clone LOOP?[984] 3089] has the following parameters: CHAR1{3131} local CHAR2{3132} local [clone CHAR=?[981] 3086] has the following parameters: CHAR1{3126} local CHAR2{3127} local [clone LOOP?[984] 3083] has the following parameters: CHAR1{3122} local CHAR2{3123} local [clone CHAR=?[981] 3080] has the following parameters: CHAR1{3117} local CHAR2{3118} local [clone LOOP?[984] 3077] has the following parameters: CHAR1{3113} local CHAR2{3114} local [clone CHAR=?[981] 3074] has the following parameters: CHAR1{3108} local CHAR2{3109} local [clone LOOP?[984] 3071] has the following parameters: CHAR1{3104} local CHAR2{3105} local [clone CHAR=?[981] 3068] has the following parameters: CHAR1{3099} local CHAR2{3100} local [clone LOOP?[990] 3065] has the following parameters: CHAR1{3095} local CHAR2{3096} local [clone CHAR?[993] 3056] has the following parameters: CHAR1{3081} local CHAR2{3082} local [clone LOOP?[1002] 3053] has the following parameters: CHAR1{3077} local CHAR2{3078} local [clone CHAR<=?[999] 3050] has the following parameters: CHAR1{3072} local CHAR2{3073} local [clone LOOP?[1002] 3047] has the following parameters: CHAR1{3068} local CHAR2{3069} local [clone CHAR<=?[999] 3044] has the following parameters: CHAR1{3063} local CHAR2{3064} local [clone LOOP?[1002] 3041] has the following parameters: CHAR1{3059} local CHAR2{3060} local [clone CHAR<=?[999] 3038] has the following parameters: CHAR1{3054} local CHAR2{3055} local [clone LOOP?[1002] 3035] has the following parameters: CHAR1{3050} local CHAR2{3051} local [clone CHAR<=?[999] 3032] has the following parameters: CHAR1{3045} local CHAR2{3046} local [clone LOOP?[1002] 3029] has the following parameters: CHAR1{3041} local CHAR2{3042} local [clone CHAR<=?[999] 3026] has the following parameters: CHAR1{3036} local CHAR2{3037} local [clone LOOP?[1002] 3023] has the following parameters: CHAR1{3032} local CHAR2{3033} local [clone CHAR<=?[999] 3020] has the following parameters: CHAR1{3027} local CHAR2{3028} local [clone LOOP?[1002] 3017] has the following parameters: CHAR1{3023} local CHAR2{3024} local [clone CHAR<=?[999] 3014] has the following parameters: CHAR1{3018} local CHAR2{3019} local [clone LOOP?[1002] 3011] has the following parameters: CHAR1{3014} local CHAR2{3015} local [clone CHAR<=?[999] 3008] has the following parameters: CHAR1{3009} local CHAR2{3010} local [clone LOOP?[1002] 3005] has the following parameters: CHAR1{3005} local CHAR2{3006} local [clone CHAR<=?[999] 3002] has the following parameters: CHAR1{3000} local CHAR2{3001} local [clone LOOP?[1002] 2999] has the following parameters: CHAR1{2996} local CHAR2{2997} local [clone CHAR<=?[999] 2996] has the following parameters: CHAR1{2991} local CHAR2{2992} local [clone LOOP?[1002] 2993] has the following parameters: CHAR1{2987} local CHAR2{2988} local [clone CHAR<=?[999] 2990] has the following parameters: CHAR1{2982} local CHAR2{2983} local [clone LOOP?[1002] 2987] has the following parameters: CHAR1{2978} local CHAR2{2979} local [clone CHAR<=?[999] 2984] has the following parameters: CHAR1{2973} local CHAR2{2974} local [clone LOOP?[1002] 2981] has the following parameters: CHAR1{2969} local CHAR2{2970} local [clone CHAR<=?[999] 2978] has the following parameters: CHAR1{2964} local CHAR2{2965} local [clone LOOP?[1008] 2975] has the following parameters: CHAR1{2960} local CHAR2{2961} local [clone CHAR>=?[1005] 2972] has the following parameters: CHAR1{2955} local CHAR2{2956} local [clone LOOP?[1008] 2969] has the following parameters: CHAR1{2951} local CHAR2{2952} local [clone CHAR>=?[1005] 2966] has the following parameters: CHAR1{2946} local CHAR2{2947} local [clone LOOP?[1008] 2963] has the following parameters: CHAR1{2942} local CHAR2{2943} local [clone CHAR>=?[1005] 2960] has the following parameters: CHAR1{2937} local CHAR2{2938} local [clone LOOP?[1008] 2957] has the following parameters: CHAR1{2933} local CHAR2{2934} local [clone CHAR>=?[1005] 2954] has the following parameters: CHAR1{2928} local CHAR2{2929} local [clone LOOP?[1008] 2951] has the following parameters: CHAR1{2924} local CHAR2{2925} local [clone CHAR>=?[1005] 2948] has the following parameters: CHAR1{2919} local CHAR2{2920} local [clone LOOP?[1008] 2945] has the following parameters: CHAR1{2915} local CHAR2{2916} local [clone CHAR>=?[1005] 2942] has the following parameters: CHAR1{2910} local CHAR2{2911} local [clone LOOP?[1008] 2939] has the following parameters: CHAR1{2906} local CHAR2{2907} local [clone CHAR>=?[1005] 2936] has the following parameters: CHAR1{2901} local CHAR2{2902} local [clone LOOP?[1008] 2933] has the following parameters: CHAR1{2897} local CHAR2{2898} local [clone CHAR>=?[1005] 2930] has the following parameters: CHAR1{2892} local CHAR2{2893} local [clone LOOP?[1008] 2927] has the following parameters: CHAR1{2888} local CHAR2{2889} local [clone CHAR>=?[1005] 2924] has the following parameters: CHAR1{2883} local CHAR2{2884} local [clone LOOP?[1008] 2921] has the following parameters: CHAR1{2879} local CHAR2{2880} local [clone CHAR>=?[1005] 2918] has the following parameters: CHAR1{2874} local CHAR2{2875} local [clone LOOP?[1008] 2915] has the following parameters: CHAR1{2870} local CHAR2{2871} local [clone CHAR>=?[1005] 2912] has the following parameters: CHAR1{2865} local CHAR2{2866} local [clone LOOP?[1008] 2909] has the following parameters: CHAR1{2861} local CHAR2{2862} local [clone CHAR>=?[1005] 2906] has the following parameters: CHAR1{2856} local CHAR2{2857} local [clone LOOP?[1008] 2903] has the following parameters: CHAR1{2852} local CHAR2{2853} local [clone CHAR>=?[1005] 2900] has the following parameters: CHAR1{2847} local CHAR2{2848} local [clone [inside MODULO 918] 2899] has the following parameter: v{2846} local [clone MODULO[917] 2898] has the following parameters: N1{2844} local N2{2845} local [clone [inside MODULO 918] 2897] has the following parameter: v{2843} local [clone MODULO[917] 2896] has the following parameters: N1{2841} local N2{2842} local [clone [inside MODULO 918] 2895] has the following parameter: v{2840} local [clone MODULO[917] 2894] has the following parameters: N1{2838} local N2{2839} local [clone READ-CHAR[2323] 2890] has the following parameter: &REST{2837} local [clone READ-CHAR[2323] 2886] has the following parameter: &REST{2836} local [clone READ-CHAR[2323] 2882] has the following parameter: &REST{2835} local [clone READ-CHAR[2323] 2878] has the following parameter: &REST{2834} local [clone READ-CHAR[2323] 2874] has the following parameter: &REST{2833} local [clone READ-CHAR[2323] 2870] has the following parameter: &REST{2832} local [clone READ-CHAR[2323] 2866] has the following parameter: &REST{2831} local [clone READ-CHAR[2323] 2862] has the following parameter: &REST{2830} local [clone READ-CHAR[2323] 2858] has the following parameter: &REST{2829} local [clone READ-CHAR[2323] 2854] has the following parameter: &REST{2828} local [clone READ-CHAR[2323] 2850] has the following parameter: &REST{2827} local [clone READ-CHAR[2323] 2846] has the following parameter: &REST{2826} local [clone READ-CHAR[2323] 2842] has the following parameter: &REST{2825} local [clone READ-CHAR[2323] 2838] has the following parameter: &REST{2824} local [clone READ-CHAR[2323] 2834] has the following parameter: &REST{2823} local [clone READ-CHAR[2323] 2830] has the following parameter: &REST{2822} local [clone READ-CHAR[2323] 2826] has the following parameter: &REST{2821} local [clone READ-CHAR[2323] 2822] has the following parameter: &REST{2820} local [clone READ-CHAR[2323] 2818] has the following parameter: &REST{2819} local [clone READ-CHAR[2323] 2814] has the following parameter: &REST{2818} local [clone READ-CHAR[2323] 2810] has the following parameter: &REST{2817} local [clone READ-CHAR[2323] 2806] has the following parameter: &REST{2816} local [clone READ-CHAR[2323] 2802] has the following parameter: &REST{2815} local [clone READ-CHAR[2323] 2798] has the following parameter: &REST{2814} local [clone READ-CHAR[2323] 2794] has the following parameter: &REST{2813} local [clone READ-CHAR[2323] 2790] has the following parameter: &REST{2812} local [clone READ-CHAR[2323] 2786] has the following parameter: &REST{2811} local [clone READ-CHAR[2323] 2782] has the following parameter: &REST{2810} local [clone READ-CHAR[2323] 2778] has the following parameter: &REST{2809} local [clone READ-CHAR[2323] 2774] has the following parameter: &REST{2808} local [clone READ-CHAR[2323] 2770] has the following parameter: &REST{2807} local [clone READ-CHAR[2323] 2766] has the following parameter: &REST{2806} local [clone READ-CHAR[2323] 2762] has the following parameter: &REST{2805} local [clone READ-CHAR[2323] 2758] has the following parameter: &REST{2804} local [clone READ-CHAR[2323] 2754] has the following parameter: &REST{2803} local [clone READ-CHAR[2323] 2750] has the following parameter: &REST{2802} local [clone READ-CHAR[2323] 2746] has the following parameter: &REST{2801} local [clone READ-CHAR[2323] 2742] has the following parameter: &REST{2800} local [clone READ-CHAR[2323] 2738] has the following parameter: &REST{2799} local [clone READ-CHAR[2323] 2734] has the following parameter: &REST{2798} local [clone READ-CHAR[2323] 2730] has the following parameter: &REST{2797} local [clone READ-CHAR[2323] 2726] has the following parameter: &REST{2796} local [clone READ-CHAR[2323] 2722] has the following parameter: &REST{2795} local [clone READ-CHAR[2323] 2718] has the following parameter: &REST{2794} local [clone READ-CHAR[2323] 2714] has the following parameter: &REST{2793} local [clone READ-CHAR[2323] 2710] has the following parameter: &REST{2792} local [clone READ-CHAR[2323] 2706] has the following parameter: &REST{2791} local [clone READ-CHAR[2323] 2702] has the following parameter: &REST{2790} local [clone READ-CHAR[2323] 2698] has the following parameter: &REST{2789} local [clone READ-CHAR[2323] 2694] has the following parameter: &REST{2788} local [clone READ-CHAR[2323] 2690] has the following parameter: &REST{2787} local [clone READ-CHAR[2323] 2686] has the following parameter: &REST{2786} local [clone READ-CHAR[2323] 2682] has the following parameter: &REST{2785} local [clone PEEK-CHAR[2327] 2678] has the following parameter: &REST{2784} local [clone PEEK-CHAR[2327] 2674] has the following parameter: &REST{2783} local [clone PEEK-CHAR[2327] 2670] has the following parameter: &REST{2782} local [clone PEEK-CHAR[2327] 2666] has the following parameter: &REST{2781} local [clone PEEK-CHAR[2327] 2662] has the following parameter: &REST{2780} local [clone PEEK-CHAR[2327] 2658] has the following parameter: &REST{2779} local [clone PEEK-CHAR[2327] 2654] has the following parameter: &REST{2778} local [clone PEEK-CHAR[2327] 2650] has the following parameter: &REST{2777} local [clone PEEK-CHAR[2327] 2646] has the following parameter: &REST{2776} local [clone PEEK-CHAR[2327] 2642] has the following parameter: &REST{2775} local [clone PEEK-CHAR[2327] 2638] has the following parameter: &REST{2774} local [clone PEEK-CHAR[2327] 2634] has the following parameter: &REST{2773} local [clone PEEK-CHAR[2327] 2630] has the following parameter: &REST{2772} local [clone BOX[6] 2629] has the following parameter: X{2771} local [clone BOX[6] 2628] has the following parameter: X{2770} local [clone SET-BOX![8] 2623] has the following parameters: X{2764} local Y{2765} local [clone SET-BOX![8] 2622] has the following parameters: X{2762} local Y{2763} local [clone SET-BOX![8] 2621] has the following parameters: X{2760} local Y{2761} local [clone SET-BOX![8] 2620] has the following parameters: X{2758} local Y{2759} local [clone SET-BOX![8] 2619] has the following parameters: X{2756} local Y{2757} local [clone SET-BOX![8] 2618] has the following parameters: X{2754} local Y{2755} local [clone SET-BOX![8] 2617] has the following parameters: X{2752} local Y{2753} local [clone ADD-ONE[10] 2616] has the following parameter: X{2751} local [clone ADD-ONE[10] 2615] has the following parameter: X{2750} local [clone ADD-ONE[10] 2614] has the following parameter: X{2749} local [clone QUEUE-PUSH[162] 2613] has the following parameters: Q{2747} local OBJ{2748} local [clone QUEUE-PUSH[162] 2612] has the following parameters: Q{2745} local OBJ{2746} local [clone QUEUE-PUSH[162] 2611] has the following parameters: Q{2743} local OBJ{2744} local [clone QUEUE-PUSH[162] 2610] has the following parameters: Q{2741} local OBJ{2742} local [clone QUEUE-PUSH[162] 2609] has the following parameters: Q{2739} local OBJ{2740} local [clone QUEUE-PUSH[162] 2608] has the following parameters: Q{2737} local OBJ{2738} local [clone GET-CHILD[276] 2607] has the following parameters: NODE{2735} local I{2736} local [clone GET-CHILD[276] 2606] has the following parameters: NODE{2733} local I{2734} local [clone GET-CHILD[276] 2605] has the following parameters: NODE{2731} local I{2732} local [clone GET-CHILD[276] 2604] has the following parameters: NODE{2729} local I{2730} local [clone GET-CHILD[276] 2603] has the following parameters: NODE{2727} local I{2728} local [clone SET-STATE-LABEL[277] 2602] has the following parameters: NODE{2725} local VAL{2726} local [clone SET-STATE-LABEL[277] 2601] has the following parameters: NODE{2723} local VAL{2724} local [clone SET-FATHER[278] 2600] has the following parameters: NODE{2721} local VAL{2722} local [clone SET-CHILD[279] 2599] has the following parameters: NODE{2718} local I{2719} local [clone SET-CHILD[279] 2598] has the following parameters: NODE{2715} local I{2716} local VAL{2717} local [clone SET-CHILD[279] 2597] has the following parameters: NODE{2712} local I{2713} local VAL{2714} local [clone SET-CHILD[279] 2596] has the following parameters: NODE{2709} local I{2710} local VAL{2711} local [clone LIST[642] 2595] has the following parameter: OBJS{2708} local [clone LIST[642] 2594] has the following parameter: OBJS{2707} local [clone LIST[642] 2593] has the following parameter: OBJS{2706} local [clone LIST[642] 2592] has the following parameter: OBJS{2705} local [clone LIST[642] 2591] has the following parameter: OBJS{2704} local [clone LIST[642] 2590] has the following parameter: OBJS{2703} local [clone LIST[642] 2589] has the following parameter: OBJS{2702} local [clone LIST[642] 2588] has the following parameter: OBJS{2701} local [clone LIST[642] 2587] has the following parameter: OBJS{2700} local [clone LIST[642] 2586] has the following parameter: OBJS{2699} local [clone LIST[642] 2585] has the following parameter: OBJS{2698} local PEEK-CHAR[2327] has the following parameter: &REST{2681} local READ-CHAR[2323] has the following parameter: &REST{2680} local [inside LOOP 2021] reentrant [inside LOOP 2020] reentrant LOOP[2019] reentrant has the following parameter: I{2491} local [inside DISPLAY2 2016] reentrant [inside DISPLAY2 2015] reentrant [inside DISPLAY2 2013] reentrant [inside LOOP 2010] reentrant [inside LOOP 2009] reentrant [inside LOOP 2008] reentrant [inside LOOP 2006] reentrant LOOP[2005] reentrant has the following parameter: OBJ{2479} local [inside DISPLAY2 2002] reentrant [inside DISPLAY2 2001] reentrant LOOP[1925] has the following parameters: MANTISSA{2438} local EXPONENT{2439} local LOOP[1920] has the following parameters: MANTISSA{2434} local EXPONENT{2435} local DISPLAY-INEXACT-REAL2[1911] has the following parameters: NUMBER{2429} local PORT{2430} local [inside LOOP 1908] has the following parameter: MANTISSA{2428} local [inside LOOP 1905] has the following parameter: DIGIT{2426} local [inside LOOP 1904] has the following parameter: FLOAT-DIGIT{2425} local LOOP[1903] has the following parameter: MANTISSA{2424} local [inside DISPLAY-MANTISSA-EXPONENT2 1892] has the following parameter: DIGIT{2417} local [inside DISPLAY-MANTISSA-EXPONENT2 1891] has the following parameter: FLOAT-DIGIT{2416} local LOOP[1882] has the following parameter: I{2410} local LOOP[1879] has the following parameters: I{2406} local NUMBER{2407} local LOOP[1868] has the following parameter: I{2400} local LOOP[1865] has the following parameters: I{2396} local NUMBER{2397} local LOOP[1856] has the following parameter: I{2390} local [inside DISPLAY-STRING2 1853] has the following parameter: N{2387} local [inside top level 1848] has the following parameters: THE-CURRENT-OUTPUT-PORT{2346} global BUFFER{2348} global [inside READ-CHARACTER-NAME 1821] has the following parameter: C{2341} local READ-CHARACTER-NAME[1820] has region has the following parameter: S{2340} local [inside LOOP? 1816] has the following parameter: v{2339} local LOOP?[1815] has the following parameters: S{2337} local NAME{2338} local LOOP[1811] has the following parameter: NAMES{2333} local [inside READ-SYMBOL 1807] has region [inside READ-SYMBOL 1804] has region [inside READ-SYMBOL 1803] has the following parameter: C{2328} local [inside CHAR-SUBSEQUENT? 1801] has the following parameter: v{2326} local [inside CHAR-SUBSEQUENT? 1800] has the following parameter: v{2325} local [inside CHAR-SUBSEQUENT? 1799] has the following parameter: v{2324} local [inside CHAR-SUBSEQUENT? 1798] has the following parameter: v{2323} local CHAR-SUBSEQUENT?[1797] has the following parameter: C{2322} local [inside CHAR-INITIAL? 1796] has the following parameter: v{2321} local [inside CHAR-INITIAL? 1795] has the following parameter: v{2320} local [inside CHAR-INITIAL? 1794] has the following parameter: v{2319} local [inside CHAR-INITIAL? 1793] has the following parameter: v{2318} local [inside CHAR-INITIAL? 1792] has the following parameter: v{2317} local [inside CHAR-INITIAL? 1791] has the following parameter: v{2316} local [inside CHAR-INITIAL? 1790] has the following parameter: v{2315} local [inside CHAR-INITIAL? 1789] has the following parameter: v{2314} local [inside CHAR-INITIAL? 1788] has the following parameter: v{2313} local [inside CHAR-INITIAL? 1787] has the following parameter: v{2312} local [inside CHAR-INITIAL? 1786] has the following parameter: v{2311} local [inside CHAR-INITIAL? 1785] has the following parameter: v{2310} local [inside CHAR-INITIAL? 1784] has the following parameter: v{2309} local [inside CHAR-INITIAL? 1783] has the following parameter: v{2308} local [inside READ-NUMBER 1775] has the following parameter: C3{2304} local [inside READ-NUMBER 1774] has region [inside READ-NUMBER 1770] has the following parameter: C3{2301} local [inside READ-NUMBER 1769] has region [inside READ-NUMBER 1766] has the following parameter: C2{2299} local [inside READ-NUMBER 1765] has region [inside READ-NUMBER 1764] has region [inside READ-NUMBER 1763] has the following parameter: v{2297} local [inside READ-NUMBER 1762] has the following parameter: v{2296} local [inside READ-NUMBER 1761] has the following parameter: v{2295} local [inside READ-NUMBER 1760] has the following parameter: v{2294} local [inside READ-NUMBER 1759] has the following parameter: v{2293} local [inside READ-NUMBER 1758] has the following parameter: v{2292} local [inside READ-NUMBER 1757] has the following parameter: v{2291} local [inside READ-NUMBER 1756] has the following parameter: v{2290} local [inside READ-NUMBER 1755] has the following parameter: v{2289} local [inside READ-NUMBER 1753] has region [inside READ-NUMBER 1749] has the following parameter: C1{2286} local [inside READ-INEXACT-NUMBER 1741] has the following parameter: C3{2282} local [inside READ-INEXACT-NUMBER 1740] has region [inside READ-INEXACT-NUMBER 1736] has the following parameter: C3{2279} local [inside READ-INEXACT-NUMBER 1735] has region [inside READ-INEXACT-NUMBER 1732] has the following parameter: C2{2277} local [inside READ-INEXACT-NUMBER 1731] has region [inside READ-INEXACT-NUMBER 1730] has region [inside READ-INEXACT-NUMBER 1729] has the following parameter: v{2275} local [inside READ-INEXACT-NUMBER 1728] has the following parameter: v{2274} local [inside READ-INEXACT-NUMBER 1727] has the following parameter: v{2273} local [inside READ-INEXACT-NUMBER 1726] has the following parameter: v{2272} local [inside READ-INEXACT-NUMBER 1725] has the following parameter: v{2271} local [inside READ-INEXACT-NUMBER 1724] has the following parameter: v{2270} local [inside READ-INEXACT-NUMBER 1723] has the following parameter: v{2269} local [inside READ-INEXACT-NUMBER 1722] has the following parameter: v{2268} local [inside READ-INEXACT-NUMBER 1721] has the following parameter: v{2267} local [inside READ-INEXACT-NUMBER 1717] has the following parameter: C1{2265} local [inside READ-EXACT-HEXADECIMAL-INTEGER 1707] has the following parameter: C{2259} local [inside READ-EXACT-DECIMAL-INTEGER 1701] has the following parameter: C{2256} local [inside READ-EXACT-OCTAL-INTEGER 1695] has the following parameter: C{2253} local [inside READ-EXACT-BINARY-INTEGER 1687] has the following parameter: C{2249} local [inside READ 1684] has region [inside READ 1679] has region [inside READ 1678] has region [inside READ 1676] has region [inside READ 1674] has the following parameter: C2{2244} local [inside READ 1673] has region [inside READ 1671] has region [inside READ 1670] has region [inside READ 1668] has region [inside READ 1667] has region [inside READ 1665] has region [inside READ 1663] has the following parameter: C3{2240} local [inside READ 1662] has region [inside READ 1661] has region [inside READ 1659] has region [inside READ 1657] has the following parameter: C2{2237} local [inside READ 1656] has region [inside READ 1654] has region [inside READ 1653] has region [inside READ 1651] has region [inside READ 1650] has region [inside READ 1648] has region [inside READ 1646] has the following parameter: C3{2233} local [inside READ 1645] has region [inside READ 1644] has region [inside READ 1642] has region [inside READ 1640] has the following parameter: C2{2230} local [inside READ 1639] has region [inside LOOP 1635] has region [inside LOOP 1632] has the following parameter: C1{2228} local [inside LOOP 1629] has the following parameter: C{2226} local LOOP[1628] has region has the following parameter: S{2225} local [inside READ 1621] has region [inside READ 1620] has the following parameter: C3{2221} local [inside READ 1619] has region [inside LOOP 1617] reentrant has the following parameter: E{2220} local LOOP[1616] reentrant has region has the following parameter: S{2219} local [inside READ 1613] reentrant [inside READ 1604] has the following parameter: C4{2215} local [inside READ 1603] has region [inside READ 1596] has the following parameter: C4{2213} local [inside READ 1595] has region [inside READ 1590] has the following parameter: C3{2211} local [inside READ 1589] has region [inside READ 1588] has the following parameter: v{2210} local [inside READ 1581] has the following parameter: C4{2207} local [inside READ 1580] has region [inside READ 1574] has the following parameter: C5{2204} local [inside READ 1573] has region [inside READ 1570] has the following parameter: C4{2202} local [inside READ 1569] has region [inside READ 1563] has the following parameter: C5{2199} local [inside READ 1562] has region [inside READ 1559] has the following parameter: C4{2197} local [inside READ 1558] has region [inside READ 1556] has the following parameter: C3{2195} local [inside READ 1555] has region [inside READ 1554] has the following parameter: v{2194} local [inside READ 1550] has the following parameter: v{2193} local [inside READ 1547] has the following parameter: C4{2190} local [inside READ 1546] has region [inside READ 1544] has the following parameter: v{2189} local [inside READ 1541] has the following parameter: C4{2186} local [inside READ 1540] has region [inside READ 1537] has the following parameter: C3{2184} local [inside READ 1536] has region [inside READ 1535] has the following parameter: v{2183} local [inside READ 1527] has the following parameter: C4{2181} local [inside READ 1526] has region [inside READ 1520] has the following parameter: C4{2179} local [inside READ 1519] has region [inside READ 1515] has the following parameter: C3{2177} local [inside READ 1514] has region [inside READ 1513] has the following parameter: v{2176} local [inside READ 1511] has the following parameter: v{2175} local [inside READ 1509] has the following parameter: v{2174} local [inside READ 1508] reentrant [inside READ 1507] reentrant has the following parameter: C2{2172} local [inside READ 1506] reentrant [inside LOOP 1504] reentrant LOOP[1500] has the following parameters: S{2170} local C{2171} local [inside LOOP 1495] reentrant has the following parameter: E1{2166} local [inside LOOP 1494] reentrant [inside LOOP 1493] reentrant [inside LOOP 1492] reentrant has the following parameter: E{2164} local LOOP[1491] reentrant has region has the following parameter: S{2163} local [inside READ 1488] reentrant [inside READ 1486] reentrant [inside READ 1485] reentrant [inside READ 1484] reentrant [inside READ 1483] reentrant [inside READ 1482] reentrant has the following parameter: C2{2158} local [inside READ 1481] reentrant [inside READ 1480] reentrant [inside READ 1479] reentrant [inside READ 1477] reentrant [inside READ 1468] reentrant [inside READ 1467] reentrant [inside READ 1456] reentrant has the following parameter: C1{2153} local [inside READ 1455] reentrant [inside READ 1454] reentrant [inside READ 1450] has the following parameters: CLOSE{2126} global DOT{2127} global READ[1448] has the following parameter: PORT{2124} global LOOP[1293] has the following parameter: K{1995} local [inside LIST->VECTOR 1289] has the following parameter: R{1991} local LIST->VECTOR[1288] has the following parameter: LIST{1990} local LOOP[1240] has the following parameter: K{1950} local [inside STRING-COPY 1235] has the following parameter: R{1946} local [inside STRING-COPY 1234] has the following parameter: N{1945} local LOOP[1228] has the following parameter: K{1941} local [inside LIST->STRING 1224] has the following parameter: R{1937} local [inside LOOP? 1080] has the following parameter: v{1768} local LOOP?[1079] has the following parameter: K{1767} local [inside LOOP? 1076] has the following parameter: N{1764} local LOOP?[1075] has the following parameters: STRING1{1761} local STRING2{1762} local CHAR-UPCASE[1054] has the following parameter: CHAR{1738} local [inside CHAR-WHITESPACE? 1049] has the following parameter: v{1733} local [inside CHAR-WHITESPACE? 1048] has the following parameter: v{1732} local [inside CHAR-WHITESPACE? 1047] has the following parameter: v{1731} local [inside CHAR-WHITESPACE? 1046] has the following parameter: v{1730} local [inside CHAR-WHITESPACE? 1045] has the following parameter: C{1729} local CHAR-WHITESPACE?[1044] has the following parameter: CHAR{1728} local CHAR-NUMERIC?[1043] has the following parameter: CHAR{1727} local [inside CHAR-ALPHABETIC? 1042] has the following parameter: v{1726} local CHAR-ALPHABETIC?[1041] has the following parameter: CHAR{1725} local LOOP?[1014] has the following parameters: CHAR1{1685} local CHAR2{1686} local CHAR-CI=?[1011] has the following parameters: CHAR1{1680} local CHAR2{1681} local LOOP?[1008] has the following parameters: CHAR1{1676} local CHAR2{1677} local CHAR>=?[1005] has the following parameters: CHAR1{1671} local CHAR2{1672} local LOOP?[1002] has the following parameters: CHAR1{1667} local CHAR2{1668} local CHAR<=?[999] has the following parameters: CHAR1{1662} local CHAR2{1663} local LOOP?[996] has the following parameters: CHAR1{1658} local CHAR2{1659} local CHAR>?[993] has the following parameters: CHAR1{1653} local CHAR2{1654} local LOOP?[990] has the following parameters: CHAR1{1649} local CHAR2{1650} local CHARSTRING[1213] has the following parameter: LIST{1925} local has the following in-lined locals: R{1926} K{1930} STRING=?[1062] has the following parameters: STRING1{1745} local STRING2{1746} local has the following in-lined locals: STRING1{1750} STRING2{1751} N{1753} K{1756} v{1757} CHAR1{3524} CHAR2{3525} CHAR1{3529} CHAR2{3530} CHAR-LOWER-CASE?[1041] has the following parameter: LETTER{1724} local has the following in-lined locals: CHAR1{2885} CHAR2{2886} CHAR1{2890} CHAR2{2891} CHAR1{3011} CHAR2{3012} CHAR1{3016} CHAR2{3017} MODULO[907] has the following parameters: N1{1566} local N2{1567} local has the following in-lined local: v{1568} [inside top level 811] has the following parameter: STRING{1471} local has the following in-lined locals: FOUND{1472} PACKAGE{1476} ASSQ[770] has the following parameters: OBJ{1441} local ALIST{1442} local REVERSE[747] has the following parameter: S{1424} local has the following in-lined locals: LIST{1419} LIST{1422} R{1423} LOOP[683] reentrant has the following parameters: LIST1{1375} local LIST2{1376} local LISTS{1377} local LIST-LENGTH[635] has the following parameter: LIST{1345} local has the following in-lined local: K{1348} EQV?[576] has the following parameters: OBJ1{1281} local OBJ2{1282} local has the following in-lined local: v{1283} BACKUP[399] has the following parameters: GUY{1206} local BACKUP-TABLE{1207} local has the following in-lined locals: FROM{862} LEN{863} TO{864} I{868} TABLE{1007} KEY{1008} VALUE{1009} N-ALISTS{1010} ALISTS{1011} HASH{1012} PROBE{1013} X{1077} BACKUP{1208} LABEL-DEFINED[351] has the following parameter: LAB{1145} local STATE-LABEL[265] has the following parameter: NODE{1055} local GLOID[264] has the following parameter: NODE{1054} local NONDEF?[263] has the following parameter: X{1053} local NONDEF[262] WALK-VECTOR-WITH-OFFSET[251] has the following parameters: OFFSET{1041} local FUN{1042} local VEC{1043} local has the following in-lined locals: VECLEN{1044} I{1047} X{1137} X{1144} X{1182} Q{2726} OBJ{2727} Q{2730} OBJ{2731} Q{2736} OBJ{2737} TABLE-EXPAND[188] has the following parameter: TABLE{990} local has the following in-lined locals: OLD-N-ALISTS{991} OLD-ALISTS{992} NEW-N-ALISTS{993} NEW-ALISTS{994} I{999} A{1003} A{1005} NEW-HASH{1006} TABLE-LOOKUP[182] has the following parameters: TABLE{984} local KEY{985} local has the following in-lined locals: N-ALISTS{986} ALISTS{987} HASH{988} PROBE{989} TABLE-TEST[176] has the following parameters: TABLE{978} local KEY{979} local has the following in-lined locals: N-ALISTS{980} ALISTS{981} HASH{982} PROBE{983} MAKE-TABLE[175] [inside MAKE-COUNTER 172] has the following in-lined local: OLD-COUNT{976} QUEUE-POP[160] has the following parameter: Q{967} local has the following in-lined locals: HEAD{969} Q{971} QUEUE-EMPTY?[158] has the following parameter: Q{964} local MAKE-QUEUE[157] STACK-PUSH[153] has the following parameters: S{959} local OBJ{960} local READ-INT[135] has region has the following parameter: FILE{943} local has the following in-lined local: VAL{944} PORMAT-FUNCTION[22] has the following parameters: CONTROL-STRING{848} local VALUES{849} local has the following in-lined locals: I{852} VALUES{853} C{854} C2{855} ADD-ONE[7] has the following parameter: X{837} local [inside top level 0] has the following in-lined locals: GLOBAL-NODE-COUNTER{674} ALPHABET-SIZE{685} L{924} L{928} N{930} I{934} S{958} S{961} L{962} Q{965} OBJ{966} TABLE{1016} TABLE{1018} ALISTS{1019} N-ALISTS{1020} I{1023} P{1027} P{1029} TABLE{1030} KEY{1031} PROBE{1032} TO{1049} FROM{1050} LEN{1051} I{1052} NODE{1056} NODE{1057} I{1058} NODE{1059} VAL{1060} NODE{1061} VAL{1062} NODE{1063} I{1064} VAL{1065} NODE{1067} FATHER{1068} NODE{1069} OLD-COUNTER-VAL{1070} I{1076} TO{1078} FROM{1079} CURNODE{1080} STRING{1081} LABEL{1082} CURSYM{1083} NAME{1089} THE-FILE{1090} N-STRINGS{1091} ROOT{1093} LABEL{1096} STRING-LEN{1097} RB2{1098} NODE{1102} FATHER{1103} I{1106} N-MATCHES{1107} MATCHING-I{1108} START-NODE{1122} SEEN{1126} CURNODE{1134} CURNODE{1141} TR-NODE{1146} GRAPH-NODE{1147} BACKUP-TABLE{1148} TR-NODE{1151} GRAPH-NODE{1152} SEARCH-STACK{1153} BACKUP-TABLE{1154} SPLICES{1155} I{1156} TREE-CHILD{1157} GRAPH-CHILD{1158} CURNODE{1163} POTENTIAL-MATCH{1164} BACKUP-TABLE{1165} SPLICES{1166} SEARCH-STACK{1167} P{1171} T{1172} G{1173} RESULT{1174} CURNODE{1176} UNIQUE-TABLE{1178} UNIQUE-NODES{1179} TODO{1183} UNIQUE-TABLE{1184} UNIQUE-NODES{1185} CURNODE{1186} CURDAD{1187} INCHAR{1188} POTENTIAL-MATCHES{1192} SPLICES{1193} BACKUP-TABLE{1194} POTENTIAL-MATCH{1195} X{1197} ROOT{1200} UNIQUE-NODES{1201} UNIQUE-TABLE{1202} TODO{1203} BACKUP-TABLE{1209} GUY-DOT-BACKUP{1211} BACKUP{1212} GUY{1213} RB{1214} NEW{1215} RB{1216} FILE-NAME{1278} OBJS{1344} SS{1367} SS{1370} v{1371} v{1372} SS{1380} SS{1401} NODE{2698} I{2699} VAL{2700} NODE{2701} I{2702} VAL{2703} NODE{2704} I{2705} VAL{2706} NODE{2707} I{2708} NODE{2710} VAL{2711} NODE{2712} VAL{2713} NODE{2714} VAL{2715} NODE{2716} I{2717} NODE{2718} I{2719} NODE{2720} I{2721} NODE{2722} I{2723} NODE{2724} I{2725} Q{2728} OBJ{2729} Q{2732} OBJ{2733} Q{2734} OBJ{2735} N{3978} I{3982} N{3984} I{3988} N{3990} I{3994} N{3996} I{4000} NODE{4003} OLD-COUNTER-VAL{4004} I{4010} TABLE{4011} KEY{4012} N-ALISTS{4014} ALISTS{4015} HASH{4016} PROBE{4017} TABLE{4020} KEY{4021} VALUE{4022} N-ALISTS{4023} ALISTS{4024} HASH{4025} PROBE{4026} TABLE{4029} KEY{4030} N-ALISTS{4032} ALISTS{4033} HASH{4034} PROBE{4035} NODE{4039} NODE{4041} N{4794} I{4798} NODE{4800} I{4801} NODE{4803} NODE{4805} VAL{4806} The following non-trivial in-line native procedures will be generated: [clone SET-STATE-LABEL[268] 4260] has the following parameters: NODE{4805} local VAL{4806} local [clone SET-FATHER[269] 4259] has the following parameter: NODE{4803} local [clone SET-CHILD[270] 4258] has the following parameters: NODE{4800} local I{4801} local [clone LOOP[122] 4253] has the following parameter: I{4798} local [clone DO-TIMES-UP[119] 4250] has the following parameter: N{4794} local [clone LOOP?[992] 4247] has the following parameters: CHAR1{4790} local CHAR2{4791} local [clone CHAR<=?[989] 4244] has the following parameters: CHAR1{4785} local CHAR2{4786} local [clone LOOP?[992] 4241] has the following parameters: CHAR1{4781} local CHAR2{4782} local [clone CHAR<=?[989] 4238] has the following parameters: CHAR1{4776} local CHAR2{4777} local [clone LOOP?[998] 4235] has the following parameters: CHAR1{4772} local CHAR2{4773} local [clone CHAR>=?[995] 4232] has the following parameters: CHAR1{4767} local CHAR2{4768} local [clone LOOP?[998] 4229] has the following parameters: CHAR1{4763} local CHAR2{4764} local [clone CHAR>=?[995] 4226] has the following parameters: CHAR1{4758} local CHAR2{4759} local [clone LOOP?[992] 4223] has the following parameters: CHAR1{4754} local CHAR2{4755} local [clone CHAR<=?[989] 4220] has the following parameters: CHAR1{4749} local CHAR2{4750} local [clone LOOP?[992] 4217] has the following parameters: CHAR1{4745} local CHAR2{4746} local [clone CHAR<=?[989] 4214] has the following parameters: CHAR1{4740} local CHAR2{4741} local [clone LOOP?[998] 4211] has the following parameters: CHAR1{4736} local CHAR2{4737} local [clone CHAR>=?[995] 4208] has the following parameters: CHAR1{4731} local CHAR2{4732} local [clone LOOP?[998] 4205] has the following parameters: CHAR1{4727} local CHAR2{4728} local [clone CHAR>=?[995] 4202] has the following parameters: CHAR1{4722} local CHAR2{4723} local [clone LOOP?[992] 4199] has the following parameters: CHAR1{4718} local CHAR2{4719} local [clone CHAR<=?[989] 4196] has the following parameters: CHAR1{4713} local CHAR2{4714} local [clone LOOP?[998] 4193] has the following parameters: CHAR1{4709} local CHAR2{4710} local [clone CHAR>=?[995] 4190] has the following parameters: CHAR1{4704} local CHAR2{4705} local [clone LOOP?[992] 4187] has the following parameters: CHAR1{4700} local CHAR2{4701} local [clone CHAR<=?[989] 4184] has the following parameters: CHAR1{4695} local CHAR2{4696} local [clone LOOP?[998] 4181] has the following parameters: CHAR1{4691} local CHAR2{4692} local [clone CHAR>=?[995] 4178] has the following parameters: CHAR1{4686} local CHAR2{4687} local [clone LOOP?[992] 4175] has the following parameters: CHAR1{4682} local CHAR2{4683} local [clone CHAR<=?[989] 4172] has the following parameters: CHAR1{4677} local CHAR2{4678} local [clone LOOP?[992] 4169] has the following parameters: CHAR1{4673} local CHAR2{4674} local [clone CHAR<=?[989] 4166] has the following parameters: CHAR1{4668} local CHAR2{4669} local [clone LOOP?[998] 4163] has the following parameters: CHAR1{4664} local CHAR2{4665} local [clone CHAR>=?[995] 4160] has the following parameters: CHAR1{4659} local CHAR2{4660} local [clone LOOP?[992] 4157] has the following parameters: CHAR1{4655} local CHAR2{4656} local [clone CHAR<=?[989] 4154] has the following parameters: CHAR1{4650} local CHAR2{4651} local [clone LOOP?[992] 4151] has the following parameters: CHAR1{4646} local CHAR2{4647} local [clone CHAR<=?[989] 4148] has the following parameters: CHAR1{4641} local CHAR2{4642} local [clone LOOP?[998] 4145] has the following parameters: CHAR1{4637} local CHAR2{4638} local [clone CHAR>=?[995] 4142] has the following parameters: CHAR1{4632} local CHAR2{4633} local [clone LOOP?[998] 4139] has the following parameters: CHAR1{4628} local CHAR2{4629} local [clone CHAR>=?[995] 4136] has the following parameters: CHAR1{4623} local CHAR2{4624} local [clone LOOP?[998] 4133] has the following parameters: CHAR1{4619} local CHAR2{4620} local [clone CHAR>=?[995] 4130] has the following parameters: CHAR1{4614} local CHAR2{4615} local [clone LOOP?[992] 4127] has the following parameters: CHAR1{4610} local CHAR2{4611} local [clone CHAR<=?[989] 4124] has the following parameters: CHAR1{4605} local CHAR2{4606} local [clone LOOP?[998] 4121] has the following parameters: CHAR1{4601} local CHAR2{4602} local [clone CHAR>=?[995] 4118] has the following parameters: CHAR1{4596} local CHAR2{4597} local [clone LOOP?[992] 4115] has the following parameters: CHAR1{4592} local CHAR2{4593} local [clone CHAR<=?[989] 4112] has the following parameters: CHAR1{4587} local CHAR2{4588} local [clone LOOP?[998] 4109] has the following parameters: CHAR1{4583} local CHAR2{4584} local [clone CHAR>=?[995] 4106] has the following parameters: CHAR1{4578} local CHAR2{4579} local [clone LOOP?[992] 4103] has the following parameters: CHAR1{4574} local CHAR2{4575} local [clone CHAR<=?[989] 4100] has the following parameters: CHAR1{4569} local CHAR2{4570} local [clone LOOP?[992] 4097] has the following parameters: CHAR1{4565} local CHAR2{4566} local [clone CHAR<=?[989] 4094] has the following parameters: CHAR1{4560} local CHAR2{4561} local [clone LOOP?[974] 4091] has the following parameters: CHAR1{4556} local CHAR2{4557} local [clone CHAR=?[971] 4088] has the following parameters: CHAR1{4551} local CHAR2{4552} local [clone LOOP?[974] 4085] has the following parameters: CHAR1{4547} local CHAR2{4548} local [clone CHAR=?[971] 4082] has the following parameters: CHAR1{4542} local CHAR2{4543} local [clone LOOP?[974] 4079] has the following parameters: CHAR1{4538} local CHAR2{4539} local [clone CHAR=?[971] 4076] has the following parameters: CHAR1{4533} local CHAR2{4534} local [clone LOOP?[992] 4073] has the following parameters: CHAR1{4529} local CHAR2{4530} local [clone CHAR<=?[989] 4070] has the following parameters: CHAR1{4524} local CHAR2{4525} local [clone LOOP?[998] 4067] has the following parameters: CHAR1{4520} local CHAR2{4521} local [clone CHAR>=?[995] 4064] has the following parameters: CHAR1{4515} local CHAR2{4516} local [clone CHAR-NUMERIC?[1033] 4063] has the following parameter: CHAR{4514} local [clone LOOP?[998] 4060] has the following parameters: CHAR1{4510} local CHAR2{4511} local [clone CHAR>=?[995] 4057] has the following parameters: CHAR1{4505} local CHAR2{4506} local [clone LOOP?[974] 4054] has the following parameters: CHAR1{4501} local CHAR2{4502} local [clone CHAR=?[971] 4051] has the following parameters: CHAR1{4496} local CHAR2{4497} local [clone LOOP?[974] 4048] has the following parameters: CHAR1{4492} local CHAR2{4493} local [clone CHAR=?[971] 4045] has the following parameters: CHAR1{4487} local CHAR2{4488} local [clone LOOP?[974] 4042] has the following parameters: CHAR1{4483} local CHAR2{4484} local [clone CHAR=?[971] 4039] has the following parameters: CHAR1{4478} local CHAR2{4479} local [clone LOOP?[992] 4036] has the following parameters: CHAR1{4474} local CHAR2{4475} local [clone CHAR<=?[989] 4033] has the following parameters: CHAR1{4469} local CHAR2{4470} local [clone LOOP?[998] 4030] has the following parameters: CHAR1{4465} local CHAR2{4466} local [clone CHAR>=?[995] 4027] has the following parameters: CHAR1{4460} local CHAR2{4461} local [clone CHAR-NUMERIC?[1033] 4026] has the following parameter: CHAR{4459} local [clone LOOP?[998] 4023] has the following parameters: CHAR1{4455} local CHAR2{4456} local [clone CHAR>=?[995] 4020] has the following parameters: CHAR1{4450} local CHAR2{4451} local [clone LOOP?[992] 4017] has the following parameters: CHAR1{4446} local CHAR2{4447} local [clone CHAR<=?[989] 4014] has the following parameters: CHAR1{4441} local CHAR2{4442} local [clone LOOP?[992] 4011] has the following parameters: CHAR1{4437} local CHAR2{4438} local [clone CHAR<=?[989] 4008] has the following parameters: CHAR1{4432} local CHAR2{4433} local [clone LOOP?[974] 4005] has the following parameters: CHAR1{4428} local CHAR2{4429} local [clone CHAR=?[971] 4002] has the following parameters: CHAR1{4423} local CHAR2{4424} local [clone LOOP?[974] 3999] has the following parameters: CHAR1{4419} local CHAR2{4420} local [clone CHAR=?[971] 3996] has the following parameters: CHAR1{4414} local CHAR2{4415} local [clone LOOP?[974] 3993] has the following parameters: CHAR1{4410} local CHAR2{4411} local [clone CHAR=?[971] 3990] has the following parameters: CHAR1{4405} local CHAR2{4406} local [clone LOOP?[992] 3987] has the following parameters: CHAR1{4401} local CHAR2{4402} local [clone CHAR<=?[989] 3984] has the following parameters: CHAR1{4396} local CHAR2{4397} local [clone LOOP?[998] 3981] has the following parameters: CHAR1{4392} local CHAR2{4393} local [clone CHAR>=?[995] 3978] has the following parameters: CHAR1{4387} local CHAR2{4388} local [clone CHAR-NUMERIC?[1033] 3977] has the following parameter: CHAR{4386} local [clone LOOP?[998] 3974] has the following parameters: CHAR1{4382} local CHAR2{4383} local [clone CHAR>=?[995] 3971] has the following parameters: CHAR1{4377} local CHAR2{4378} local [clone LOOP?[974] 3968] has the following parameters: CHAR1{4373} local CHAR2{4374} local [clone CHAR=?[971] 3965] has the following parameters: CHAR1{4368} local CHAR2{4369} local [clone LOOP?[974] 3962] has the following parameters: CHAR1{4364} local CHAR2{4365} local [clone CHAR=?[971] 3959] has the following parameters: CHAR1{4359} local CHAR2{4360} local [clone LOOP?[974] 3956] has the following parameters: CHAR1{4355} local CHAR2{4356} local [clone CHAR=?[971] 3953] has the following parameters: CHAR1{4350} local CHAR2{4351} local [clone LOOP?[992] 3950] has the following parameters: CHAR1{4346} local CHAR2{4347} local [clone CHAR<=?[989] 3947] has the following parameters: CHAR1{4341} local CHAR2{4342} local [clone LOOP?[998] 3944] has the following parameters: CHAR1{4337} local CHAR2{4338} local [clone CHAR>=?[995] 3941] has the following parameters: CHAR1{4332} local CHAR2{4333} local [clone CHAR-NUMERIC?[1033] 3940] has the following parameter: CHAR{4331} local [clone LOOP?[998] 3937] has the following parameters: CHAR1{4327} local CHAR2{4328} local [clone CHAR>=?[995] 3934] has the following parameters: CHAR1{4322} local CHAR2{4323} local [clone LOOP?[992] 3931] has the following parameters: CHAR1{4318} local CHAR2{4319} local [clone CHAR<=?[989] 3928] has the following parameters: CHAR1{4313} local CHAR2{4314} local [clone LOOP?[992] 3925] has the following parameters: CHAR1{4309} local CHAR2{4310} local [clone CHAR<=?[989] 3922] has the following parameters: CHAR1{4304} local CHAR2{4305} local [clone LOOP?[998] 3919] has the following parameters: CHAR1{4300} local CHAR2{4301} local [clone CHAR>=?[995] 3916] has the following parameters: CHAR1{4295} local CHAR2{4296} local [clone LOOP?[998] 3913] has the following parameters: CHAR1{4291} local CHAR2{4292} local [clone CHAR>=?[995] 3910] has the following parameters: CHAR1{4286} local CHAR2{4287} local [clone LOOP?[992] 3907] has the following parameters: CHAR1{4282} local CHAR2{4283} local [clone CHAR<=?[989] 3904] has the following parameters: CHAR1{4277} local CHAR2{4278} local [clone LOOP?[992] 3901] has the following parameters: CHAR1{4273} local CHAR2{4274} local [clone CHAR<=?[989] 3898] has the following parameters: CHAR1{4268} local CHAR2{4269} local [clone LOOP?[992] 3895] has the following parameters: CHAR1{4264} local CHAR2{4265} local [clone CHAR<=?[989] 3892] has the following parameters: CHAR1{4259} local CHAR2{4260} local [clone LOOP?[992] 3889] has the following parameters: CHAR1{4255} local CHAR2{4256} local [clone CHAR<=?[989] 3886] has the following parameters: CHAR1{4250} local CHAR2{4251} local [clone LOOP?[998] 3883] has the following parameters: CHAR1{4246} local CHAR2{4247} local [clone CHAR>=?[995] 3880] has the following parameters: CHAR1{4241} local CHAR2{4242} local [clone LOOP?[992] 3877] has the following parameters: CHAR1{4237} local CHAR2{4238} local [clone CHAR<=?[989] 3874] has the following parameters: CHAR1{4232} local CHAR2{4233} local [clone LOOP?[998] 3871] has the following parameters: CHAR1{4228} local CHAR2{4229} local [clone CHAR>=?[995] 3868] has the following parameters: CHAR1{4223} local CHAR2{4224} local [clone LOOP?[998] 3865] has the following parameters: CHAR1{4219} local CHAR2{4220} local [clone CHAR>=?[995] 3862] has the following parameters: CHAR1{4214} local CHAR2{4215} local [clone LOOP?[998] 3859] has the following parameters: CHAR1{4210} local CHAR2{4211} local [clone CHAR>=?[995] 3856] has the following parameters: CHAR1{4205} local CHAR2{4206} local [clone LOOP?[992] 3853] has the following parameters: CHAR1{4201} local CHAR2{4202} local [clone CHAR<=?[989] 3850] has the following parameters: CHAR1{4196} local CHAR2{4197} local [clone LOOP?[992] 3847] has the following parameters: CHAR1{4192} local CHAR2{4193} local [clone CHAR<=?[989] 3844] has the following parameters: CHAR1{4187} local CHAR2{4188} local [clone LOOP?[998] 3841] has the following parameters: CHAR1{4183} local CHAR2{4184} local [clone CHAR>=?[995] 3838] has the following parameters: CHAR1{4178} local CHAR2{4179} local [clone LOOP?[992] 3835] has the following parameters: CHAR1{4174} local CHAR2{4175} local [clone CHAR<=?[989] 3832] has the following parameters: CHAR1{4169} local CHAR2{4170} local [clone LOOP?[998] 3829] has the following parameters: CHAR1{4165} local CHAR2{4166} local [clone CHAR>=?[995] 3826] has the following parameters: CHAR1{4160} local CHAR2{4161} local [clone LOOP?[998] 3823] has the following parameters: CHAR1{4156} local CHAR2{4157} local [clone CHAR>=?[995] 3820] has the following parameters: CHAR1{4151} local CHAR2{4152} local [clone LOOP?[998] 3817] has the following parameters: CHAR1{4147} local CHAR2{4148} local [clone CHAR>=?[995] 3814] has the following parameters: CHAR1{4142} local CHAR2{4143} local [clone LOOP?[992] 3811] has the following parameters: CHAR1{4138} local CHAR2{4139} local [clone CHAR<=?[989] 3808] has the following parameters: CHAR1{4133} local CHAR2{4134} local [clone LOOP?[974] 3805] has the following parameters: CHAR1{4129} local CHAR2{4130} local [clone CHAR=?[971] 3802] has the following parameters: CHAR1{4124} local CHAR2{4125} local [clone LOOP?[974] 3799] has the following parameters: CHAR1{4120} local CHAR2{4121} local [clone CHAR=?[971] 3796] has the following parameters: CHAR1{4115} local CHAR2{4116} local [clone LOOP?[974] 3793] has the following parameters: CHAR1{4111} local CHAR2{4112} local [clone CHAR=?[971] 3790] has the following parameters: CHAR1{4106} local CHAR2{4107} local [clone LOOP?[992] 3787] has the following parameters: CHAR1{4102} local CHAR2{4103} local [clone CHAR<=?[989] 3784] has the following parameters: CHAR1{4097} local CHAR2{4098} local [clone LOOP?[998] 3781] has the following parameters: CHAR1{4093} local CHAR2{4094} local [clone CHAR>=?[995] 3778] has the following parameters: CHAR1{4088} local CHAR2{4089} local [clone CHAR-NUMERIC?[1033] 3777] has the following parameter: CHAR{4087} local [clone LOOP?[992] 3774] has the following parameters: CHAR1{4083} local CHAR2{4084} local [clone CHAR<=?[989] 3771] has the following parameters: CHAR1{4078} local CHAR2{4079} local [clone LOOP?[998] 3768] has the following parameters: CHAR1{4074} local CHAR2{4075} local [clone CHAR>=?[995] 3765] has the following parameters: CHAR1{4069} local CHAR2{4070} local [clone LOOP?[992] 3762] has the following parameters: CHAR1{4065} local CHAR2{4066} local [clone CHAR<=?[989] 3759] has the following parameters: CHAR1{4060} local CHAR2{4061} local [clone LOOP?[998] 3756] has the following parameters: CHAR1{4056} local CHAR2{4057} local [clone CHAR>=?[995] 3753] has the following parameters: CHAR1{4051} local CHAR2{4052} local [clone LOOP?[998] 3750] has the following parameters: CHAR1{4047} local CHAR2{4048} local [clone CHAR>=?[995] 3747] has the following parameters: CHAR1{4042} local CHAR2{4043} local [clone WALK-CHILDREN[271] 3746] has the following parameter: NODE{4041} local [clone WALK-CHILDREN[271] 3745] has the following parameter: NODE{4039} local [clone [inside TABLE-SET! 215] 3740] has the following parameter: PROBE{4035} local [clone [inside TABLE-SET! 214] 3739] has the following parameter: HASH{4034} local [clone [inside TABLE-SET! 213] 3738] has the following parameter: ALISTS{4033} local [clone [inside TABLE-SET! 212] 3737] has the following parameter: N-ALISTS{4032} local [clone TABLE-SET![211] 3736] has the following parameters: TABLE{4029} local KEY{4030} local [clone [inside TABLE-SET! 215] 3731] has the following parameter: PROBE{4026} local [clone [inside TABLE-SET! 214] 3730] has the following parameter: HASH{4025} local [clone [inside TABLE-SET! 213] 3729] has the following parameter: ALISTS{4024} local [clone [inside TABLE-SET! 212] 3728] has the following parameter: N-ALISTS{4023} local [clone TABLE-SET![211] 3727] has the following parameters: TABLE{4020} local KEY{4021} local VALUE{4022} local [clone [inside TABLE-SET! 215] 3722] has the following parameter: PROBE{4017} local [clone [inside TABLE-SET! 214] 3721] has the following parameter: HASH{4016} local [clone [inside TABLE-SET! 213] 3720] has the following parameter: ALISTS{4015} local [clone [inside TABLE-SET! 212] 3719] has the following parameter: N-ALISTS{4014} local [clone TABLE-SET![211] 3718] has the following parameters: TABLE{4011} local KEY{4012} local [clone [inside MAKE-NODE 275] 3717] has the following parameter: I{4010} local [clone [inside MAKE-NODE 273] 3715] has the following parameters: NODE{4003} local OLD-COUNTER-VAL{4004} local [clone LOOP[122] 3709] has the following parameter: I{4000} local [clone DO-TIMES-UP[119] 3706] has the following parameter: N{3996} local [clone LOOP[122] 3701] has the following parameter: I{3994} local [clone DO-TIMES-UP[119] 3698] has the following parameter: N{3990} local [clone LOOP[122] 3693] has the following parameter: I{3988} local [clone DO-TIMES-UP[119] 3690] has the following parameter: N{3984} local [clone LOOP[122] 3685] has the following parameter: I{3982} local [clone DO-TIMES-UP[119] 3682] has the following parameter: N{3978} local [clone [inside CHAR-SUBSEQUENT? 1791] 3681] has the following parameter: v{3977} local [clone [inside CHAR-SUBSEQUENT? 1790] 3680] has the following parameter: v{3976} local [clone [inside CHAR-SUBSEQUENT? 1789] 3679] has the following parameter: v{3975} local [clone [inside CHAR-SUBSEQUENT? 1788] 3678] has the following parameter: v{3974} local [clone CHAR-SUBSEQUENT?[1787] 3677] has the following parameter: C{3973} local [clone [inside CHAR-SUBSEQUENT? 1791] 3676] has the following parameter: v{3972} local [clone [inside CHAR-SUBSEQUENT? 1790] 3675] has the following parameter: v{3971} local [clone [inside CHAR-SUBSEQUENT? 1789] 3674] has the following parameter: v{3970} local [clone [inside CHAR-SUBSEQUENT? 1788] 3673] has the following parameter: v{3969} local [clone CHAR-SUBSEQUENT?[1787] 3672] has the following parameter: C{3968} local [clone [inside CHAR-SUBSEQUENT? 1791] 3671] has the following parameter: v{3967} local [clone [inside CHAR-SUBSEQUENT? 1790] 3670] has the following parameter: v{3966} local [clone [inside CHAR-SUBSEQUENT? 1789] 3669] has the following parameter: v{3965} local [clone [inside CHAR-SUBSEQUENT? 1788] 3668] has the following parameter: v{3964} local [clone CHAR-SUBSEQUENT?[1787] 3667] has the following parameter: C{3963} local [clone [inside CHAR-SUBSEQUENT? 1791] 3666] has the following parameter: v{3962} local [clone [inside CHAR-SUBSEQUENT? 1790] 3665] has the following parameter: v{3961} local [clone [inside CHAR-SUBSEQUENT? 1789] 3664] has the following parameter: v{3960} local [clone [inside CHAR-SUBSEQUENT? 1788] 3663] has the following parameter: v{3959} local [clone CHAR-SUBSEQUENT?[1787] 3662] has the following parameter: C{3958} local [clone [inside CHAR-SUBSEQUENT? 1791] 3661] has the following parameter: v{3957} local [clone [inside CHAR-SUBSEQUENT? 1790] 3660] has the following parameter: v{3956} local [clone [inside CHAR-SUBSEQUENT? 1789] 3659] has the following parameter: v{3955} local [clone [inside CHAR-SUBSEQUENT? 1788] 3658] has the following parameter: v{3954} local [clone CHAR-SUBSEQUENT?[1787] 3657] has the following parameter: C{3953} local [clone [inside CHAR-ALPHABETIC? 1032] 3656] has the following parameter: v{3952} local [clone CHAR-ALPHABETIC?[1031] 3655] has the following parameter: CHAR{3951} local [clone [inside CHAR-ALPHABETIC? 1032] 3654] has the following parameter: v{3950} local [clone CHAR-ALPHABETIC?[1031] 3653] has the following parameter: CHAR{3949} local [clone CHAR-UPCASE[1044] 3652] has the following parameter: CHAR{3948} local [clone CHAR-UPCASE[1044] 3651] has the following parameter: CHAR{3947} local [clone CHAR-UPCASE[1044] 3650] has the following parameter: CHAR{3946} local [clone CHAR-UPCASE[1044] 3649] has the following parameter: CHAR{3945} local [clone CHAR-UPCASE[1044] 3648] has the following parameter: CHAR{3944} local [clone CHAR-UPCASE[1044] 3647] has the following parameter: CHAR{3943} local [clone CHAR-UPCASE[1044] 3646] has the following parameter: CHAR{3942} local [clone CHAR-UPCASE[1044] 3645] has the following parameter: CHAR{3941} local [clone CHAR-UPCASE[1044] 3644] has the following parameter: CHAR{3940} local [clone CHAR-UPCASE[1044] 3643] has the following parameter: CHAR{3939} local [clone CHAR-UPCASE[1044] 3642] has the following parameter: CHAR{3938} local [clone CHAR-UPCASE[1044] 3641] has the following parameter: CHAR{3937} local [clone CHAR-UPCASE[1044] 3640] has the following parameter: CHAR{3936} local [clone CHAR-UPCASE[1044] 3639] has the following parameter: CHAR{3935} local [clone CHAR-UPCASE[1044] 3638] has the following parameter: CHAR{3934} local [clone CHAR-NUMERIC?[1033] 3637] has the following parameter: CHAR{3933} local [clone CHAR-NUMERIC?[1033] 3636] has the following parameter: CHAR{3932} local [clone CHAR-NUMERIC?[1033] 3635] has the following parameter: CHAR{3931} local [clone CHAR-NUMERIC?[1033] 3634] has the following parameter: CHAR{3930} local [clone CHAR-NUMERIC?[1033] 3633] has the following parameter: CHAR{3929} local [clone CHAR-NUMERIC?[1033] 3632] has the following parameter: CHAR{3928} local [clone CHAR-NUMERIC?[1033] 3631] has the following parameter: CHAR{3927} local [clone CHAR-NUMERIC?[1033] 3630] has the following parameter: CHAR{3926} local [clone CHAR-NUMERIC?[1033] 3629] has the following parameter: CHAR{3925} local [clone CHAR-NUMERIC?[1033] 3628] has the following parameter: CHAR{3924} local [clone CHAR-NUMERIC?[1033] 3627] has the following parameter: CHAR{3923} local [clone CHAR-NUMERIC?[1033] 3626] has the following parameter: CHAR{3922} local [clone CHAR-NUMERIC?[1033] 3625] has the following parameter: CHAR{3921} local [clone CHAR-NUMERIC?[1033] 3624] has the following parameter: CHAR{3920} local [clone CHAR-NUMERIC?[1033] 3623] has the following parameter: CHAR{3919} local [clone CHAR-NUMERIC?[1033] 3622] has the following parameter: CHAR{3918} local [clone CHAR-NUMERIC?[1033] 3621] has the following parameter: CHAR{3917} local [clone CHAR-NUMERIC?[1033] 3620] has the following parameter: CHAR{3916} local [clone CHAR-NUMERIC?[1033] 3619] has the following parameter: CHAR{3915} local [clone CHAR-NUMERIC?[1033] 3618] has the following parameter: CHAR{3914} local [clone CHAR-NUMERIC?[1033] 3617] has the following parameter: CHAR{3913} local [clone CHAR-NUMERIC?[1033] 3616] has the following parameter: CHAR{3912} local [clone CHAR-NUMERIC?[1033] 3615] has the following parameter: CHAR{3911} local [clone CHAR-NUMERIC?[1033] 3614] has the following parameter: CHAR{3910} local [clone CHAR-NUMERIC?[1033] 3613] has the following parameter: CHAR{3909} local [clone LOOP[745] 3611] has the following parameters: LIST{3907} local R{3908} local [clone LIST-REVERSE[742] 3608] has the following parameter: LIST{3904} local [clone LOOP[745] 3606] has the following parameters: LIST{3902} local R{3903} local [clone LIST-REVERSE[742] 3603] has the following parameter: LIST{3899} local [clone LOOP[745] 3601] has the following parameters: LIST{3897} local R{3898} local [clone LIST-REVERSE[742] 3598] has the following parameter: LIST{3894} local [clone LOOP[745] 3596] has the following parameters: LIST{3892} local R{3893} local [clone LIST-REVERSE[742] 3593] has the following parameter: LIST{3889} local [clone LOOP[745] 3591] has the following parameters: LIST{3887} local R{3888} local [clone LIST-REVERSE[742] 3588] has the following parameter: LIST{3884} local [clone LOOP?[974] 3585] has the following parameters: CHAR1{3880} local CHAR2{3881} local [clone CHAR=?[971] 3582] has the following parameters: CHAR1{3875} local CHAR2{3876} local [clone LOOP?[974] 3579] has the following parameters: CHAR1{3871} local CHAR2{3872} local [clone CHAR=?[971] 3576] has the following parameters: CHAR1{3866} local CHAR2{3867} local [clone LOOP?[974] 3573] has the following parameters: CHAR1{3862} local CHAR2{3863} local [clone CHAR=?[971] 3570] has the following parameters: CHAR1{3857} local CHAR2{3858} local [clone LOOP?[974] 3567] has the following parameters: CHAR1{3853} local CHAR2{3854} local [clone CHAR=?[971] 3564] has the following parameters: CHAR1{3848} local CHAR2{3849} local [clone LOOP?[974] 3561] has the following parameters: CHAR1{3844} local CHAR2{3845} local [clone CHAR=?[971] 3558] has the following parameters: CHAR1{3839} local CHAR2{3840} local [clone LOOP?[974] 3555] has the following parameters: CHAR1{3835} local CHAR2{3836} local [clone CHAR=?[971] 3552] has the following parameters: CHAR1{3830} local CHAR2{3831} local [clone LOOP?[974] 3549] has the following parameters: CHAR1{3826} local CHAR2{3827} local [clone CHAR=?[971] 3546] has the following parameters: CHAR1{3821} local CHAR2{3822} local [clone LOOP?[974] 3543] has the following parameters: CHAR1{3817} local CHAR2{3818} local [clone CHAR=?[971] 3540] has the following parameters: CHAR1{3812} local CHAR2{3813} local [clone LOOP?[974] 3537] has the following parameters: CHAR1{3808} local CHAR2{3809} local [clone CHAR=?[971] 3534] has the following parameters: CHAR1{3803} local CHAR2{3804} local [clone LOOP?[974] 3531] has the following parameters: CHAR1{3799} local CHAR2{3800} local [clone CHAR=?[971] 3528] has the following parameters: CHAR1{3794} local CHAR2{3795} local [clone LOOP?[974] 3525] has the following parameters: CHAR1{3790} local CHAR2{3791} local [clone CHAR=?[971] 3522] has the following parameters: CHAR1{3785} local CHAR2{3786} local [clone LOOP?[974] 3519] has the following parameters: CHAR1{3781} local CHAR2{3782} local [clone CHAR=?[971] 3516] has the following parameters: CHAR1{3776} local CHAR2{3777} local [clone LOOP?[974] 3513] has the following parameters: CHAR1{3772} local CHAR2{3773} local [clone CHAR=?[971] 3510] has the following parameters: CHAR1{3767} local CHAR2{3768} local [clone LOOP?[974] 3507] has the following parameters: CHAR1{3763} local CHAR2{3764} local [clone CHAR=?[971] 3504] has the following parameters: CHAR1{3758} local CHAR2{3759} local [clone LOOP?[974] 3501] has the following parameters: CHAR1{3754} local CHAR2{3755} local [clone CHAR=?[971] 3498] has the following parameters: CHAR1{3749} local CHAR2{3750} local [clone LOOP?[974] 3495] has the following parameters: CHAR1{3745} local CHAR2{3746} local [clone CHAR=?[971] 3492] has the following parameters: CHAR1{3740} local CHAR2{3741} local [clone LOOP?[974] 3489] has the following parameters: CHAR1{3736} local CHAR2{3737} local [clone CHAR=?[971] 3486] has the following parameters: CHAR1{3731} local CHAR2{3732} local [clone LOOP?[974] 3483] has the following parameters: CHAR1{3727} local CHAR2{3728} local [clone CHAR=?[971] 3480] has the following parameters: CHAR1{3722} local CHAR2{3723} local [clone LOOP?[974] 3477] has the following parameters: CHAR1{3718} local CHAR2{3719} local [clone CHAR=?[971] 3474] has the following parameters: CHAR1{3713} local CHAR2{3714} local [clone LOOP?[974] 3471] has the following parameters: CHAR1{3709} local CHAR2{3710} local [clone CHAR=?[971] 3468] has the following parameters: CHAR1{3704} local CHAR2{3705} local [clone LOOP?[974] 3465] has the following parameters: CHAR1{3700} local CHAR2{3701} local [clone CHAR=?[971] 3462] has the following parameters: CHAR1{3695} local CHAR2{3696} local [clone LOOP?[974] 3459] has the following parameters: CHAR1{3691} local CHAR2{3692} local [clone CHAR=?[971] 3456] has the following parameters: CHAR1{3686} local CHAR2{3687} local [clone LOOP?[974] 3453] has the following parameters: CHAR1{3682} local CHAR2{3683} local [clone CHAR=?[971] 3450] has the following parameters: CHAR1{3677} local CHAR2{3678} local [clone LOOP?[974] 3447] has the following parameters: CHAR1{3673} local CHAR2{3674} local [clone CHAR=?[971] 3444] has the following parameters: CHAR1{3668} local CHAR2{3669} local [clone LOOP?[974] 3441] has the following parameters: CHAR1{3664} local CHAR2{3665} local [clone CHAR=?[971] 3438] has the following parameters: CHAR1{3659} local CHAR2{3660} local [clone LOOP?[974] 3435] has the following parameters: CHAR1{3655} local CHAR2{3656} local [clone CHAR=?[971] 3432] has the following parameters: CHAR1{3650} local CHAR2{3651} local [clone LOOP?[974] 3429] has the following parameters: CHAR1{3646} local CHAR2{3647} local [clone CHAR=?[971] 3426] has the following parameters: CHAR1{3641} local CHAR2{3642} local [clone LOOP?[974] 3423] has the following parameters: CHAR1{3637} local CHAR2{3638} local [clone CHAR=?[971] 3420] has the following parameters: CHAR1{3632} local CHAR2{3633} local [clone LOOP?[974] 3417] has the following parameters: CHAR1{3628} local CHAR2{3629} local [clone CHAR=?[971] 3414] has the following parameters: CHAR1{3623} local CHAR2{3624} local [clone LOOP?[974] 3411] has the following parameters: CHAR1{3619} local CHAR2{3620} local [clone CHAR=?[971] 3408] has the following parameters: CHAR1{3614} local CHAR2{3615} local [clone LOOP?[974] 3405] has the following parameters: CHAR1{3610} local CHAR2{3611} local [clone CHAR=?[971] 3402] has the following parameters: CHAR1{3605} local CHAR2{3606} local [clone LOOP?[974] 3399] has the following parameters: CHAR1{3601} local CHAR2{3602} local [clone CHAR=?[971] 3396] has the following parameters: CHAR1{3596} local CHAR2{3597} local [clone LOOP?[974] 3393] has the following parameters: CHAR1{3592} local CHAR2{3593} local [clone CHAR=?[971] 3390] has the following parameters: CHAR1{3587} local CHAR2{3588} local [clone LOOP?[974] 3387] has the following parameters: CHAR1{3583} local CHAR2{3584} local [clone CHAR=?[971] 3384] has the following parameters: CHAR1{3578} local CHAR2{3579} local [clone LOOP?[974] 3381] has the following parameters: CHAR1{3574} local CHAR2{3575} local [clone CHAR=?[971] 3378] has the following parameters: CHAR1{3569} local CHAR2{3570} local [clone LOOP?[974] 3375] has the following parameters: CHAR1{3565} local CHAR2{3566} local [clone CHAR=?[971] 3372] has the following parameters: CHAR1{3560} local CHAR2{3561} local [clone LOOP?[974] 3369] has the following parameters: CHAR1{3556} local CHAR2{3557} local [clone CHAR=?[971] 3366] has the following parameters: CHAR1{3551} local CHAR2{3552} local [clone LOOP?[974] 3363] has the following parameters: CHAR1{3547} local CHAR2{3548} local [clone CHAR=?[971] 3360] has the following parameters: CHAR1{3542} local CHAR2{3543} local [clone LOOP?[974] 3357] has the following parameters: CHAR1{3538} local CHAR2{3539} local [clone CHAR=?[971] 3354] has the following parameters: CHAR1{3533} local CHAR2{3534} local [clone LOOP?[974] 3351] has the following parameters: CHAR1{3529} local CHAR2{3530} local [clone CHAR=?[971] 3348] has the following parameters: CHAR1{3524} local CHAR2{3525} local [clone LOOP?[974] 3345] has the following parameters: CHAR1{3520} local CHAR2{3521} local [clone CHAR=?[971] 3342] has the following parameters: CHAR1{3515} local CHAR2{3516} local [clone LOOP?[974] 3339] has the following parameters: CHAR1{3511} local CHAR2{3512} local [clone CHAR=?[971] 3336] has the following parameters: CHAR1{3506} local CHAR2{3507} local [clone LOOP?[974] 3333] has the following parameters: CHAR1{3502} local CHAR2{3503} local [clone CHAR=?[971] 3330] has the following parameters: CHAR1{3497} local CHAR2{3498} local [clone LOOP?[974] 3327] has the following parameters: CHAR1{3493} local CHAR2{3494} local [clone CHAR=?[971] 3324] has the following parameters: CHAR1{3488} local CHAR2{3489} local [clone LOOP?[974] 3321] has the following parameters: CHAR1{3484} local CHAR2{3485} local [clone CHAR=?[971] 3318] has the following parameters: CHAR1{3479} local CHAR2{3480} local [clone LOOP?[974] 3315] has the following parameters: CHAR1{3475} local CHAR2{3476} local [clone CHAR=?[971] 3312] has the following parameters: CHAR1{3470} local CHAR2{3471} local [clone LOOP?[974] 3309] has the following parameters: CHAR1{3466} local CHAR2{3467} local [clone CHAR=?[971] 3306] has the following parameters: CHAR1{3461} local CHAR2{3462} local [clone LOOP?[974] 3303] has the following parameters: CHAR1{3457} local CHAR2{3458} local [clone CHAR=?[971] 3300] has the following parameters: CHAR1{3452} local CHAR2{3453} local [clone LOOP?[974] 3297] has the following parameters: CHAR1{3448} local CHAR2{3449} local [clone CHAR=?[971] 3294] has the following parameters: CHAR1{3443} local CHAR2{3444} local [clone LOOP?[974] 3291] has the following parameters: CHAR1{3439} local CHAR2{3440} local [clone CHAR=?[971] 3288] has the following parameters: CHAR1{3434} local CHAR2{3435} local [clone LOOP?[974] 3285] has the following parameters: CHAR1{3430} local CHAR2{3431} local [clone CHAR=?[971] 3282] has the following parameters: CHAR1{3425} local CHAR2{3426} local [clone LOOP?[974] 3279] has the following parameters: CHAR1{3421} local CHAR2{3422} local [clone CHAR=?[971] 3276] has the following parameters: CHAR1{3416} local CHAR2{3417} local [clone LOOP?[974] 3273] has the following parameters: CHAR1{3412} local CHAR2{3413} local [clone CHAR=?[971] 3270] has the following parameters: CHAR1{3407} local CHAR2{3408} local [clone LOOP?[974] 3267] has the following parameters: CHAR1{3403} local CHAR2{3404} local [clone CHAR=?[971] 3264] has the following parameters: CHAR1{3398} local CHAR2{3399} local [clone LOOP?[974] 3261] has the following parameters: CHAR1{3394} local CHAR2{3395} local [clone CHAR=?[971] 3258] has the following parameters: CHAR1{3389} local CHAR2{3390} local [clone LOOP?[974] 3255] has the following parameters: CHAR1{3385} local CHAR2{3386} local [clone CHAR=?[971] 3252] has the following parameters: CHAR1{3380} local CHAR2{3381} local [clone LOOP?[974] 3249] has the following parameters: CHAR1{3376} local CHAR2{3377} local [clone CHAR=?[971] 3246] has the following parameters: CHAR1{3371} local CHAR2{3372} local [clone LOOP?[974] 3243] has the following parameters: CHAR1{3367} local CHAR2{3368} local [clone CHAR=?[971] 3240] has the following parameters: CHAR1{3362} local CHAR2{3363} local [clone LOOP?[974] 3237] has the following parameters: CHAR1{3358} local CHAR2{3359} local [clone CHAR=?[971] 3234] has the following parameters: CHAR1{3353} local CHAR2{3354} local [clone LOOP?[974] 3231] has the following parameters: CHAR1{3349} local CHAR2{3350} local [clone CHAR=?[971] 3228] has the following parameters: CHAR1{3344} local CHAR2{3345} local [clone LOOP?[974] 3225] has the following parameters: CHAR1{3340} local CHAR2{3341} local [clone CHAR=?[971] 3222] has the following parameters: CHAR1{3335} local CHAR2{3336} local [clone LOOP?[974] 3219] has the following parameters: CHAR1{3331} local CHAR2{3332} local [clone CHAR=?[971] 3216] has the following parameters: CHAR1{3326} local CHAR2{3327} local [clone LOOP?[974] 3213] has the following parameters: CHAR1{3322} local CHAR2{3323} local [clone CHAR=?[971] 3210] has the following parameters: CHAR1{3317} local CHAR2{3318} local [clone LOOP?[974] 3207] has the following parameters: CHAR1{3313} local CHAR2{3314} local [clone CHAR=?[971] 3204] has the following parameters: CHAR1{3308} local CHAR2{3309} local [clone LOOP?[974] 3201] has the following parameters: CHAR1{3304} local CHAR2{3305} local [clone CHAR=?[971] 3198] has the following parameters: CHAR1{3299} local CHAR2{3300} local [clone LOOP?[974] 3195] has the following parameters: CHAR1{3295} local CHAR2{3296} local [clone CHAR=?[971] 3192] has the following parameters: CHAR1{3290} local CHAR2{3291} local [clone LOOP?[974] 3189] has the following parameters: CHAR1{3286} local CHAR2{3287} local [clone CHAR=?[971] 3186] has the following parameters: CHAR1{3281} local CHAR2{3282} local [clone LOOP?[974] 3183] has the following parameters: CHAR1{3277} local CHAR2{3278} local [clone CHAR=?[971] 3180] has the following parameters: CHAR1{3272} local CHAR2{3273} local [clone LOOP?[974] 3177] has the following parameters: CHAR1{3268} local CHAR2{3269} local [clone CHAR=?[971] 3174] has the following parameters: CHAR1{3263} local CHAR2{3264} local [clone LOOP?[974] 3171] has the following parameters: CHAR1{3259} local CHAR2{3260} local [clone CHAR=?[971] 3168] has the following parameters: CHAR1{3254} local CHAR2{3255} local [clone LOOP?[974] 3165] has the following parameters: CHAR1{3250} local CHAR2{3251} local [clone CHAR=?[971] 3162] has the following parameters: CHAR1{3245} local CHAR2{3246} local [clone LOOP?[974] 3159] has the following parameters: CHAR1{3241} local CHAR2{3242} local [clone CHAR=?[971] 3156] has the following parameters: CHAR1{3236} local CHAR2{3237} local [clone LOOP?[974] 3153] has the following parameters: CHAR1{3232} local CHAR2{3233} local [clone CHAR=?[971] 3150] has the following parameters: CHAR1{3227} local CHAR2{3228} local [clone LOOP?[974] 3147] has the following parameters: CHAR1{3223} local CHAR2{3224} local [clone CHAR=?[971] 3144] has the following parameters: CHAR1{3218} local CHAR2{3219} local [clone LOOP?[974] 3141] has the following parameters: CHAR1{3214} local CHAR2{3215} local [clone CHAR=?[971] 3138] has the following parameters: CHAR1{3209} local CHAR2{3210} local [clone LOOP?[974] 3135] has the following parameters: CHAR1{3205} local CHAR2{3206} local [clone CHAR=?[971] 3132] has the following parameters: CHAR1{3200} local CHAR2{3201} local [clone LOOP?[974] 3129] has the following parameters: CHAR1{3196} local CHAR2{3197} local [clone CHAR=?[971] 3126] has the following parameters: CHAR1{3191} local CHAR2{3192} local [clone LOOP?[974] 3123] has the following parameters: CHAR1{3187} local CHAR2{3188} local [clone CHAR=?[971] 3120] has the following parameters: CHAR1{3182} local CHAR2{3183} local [clone LOOP?[974] 3117] has the following parameters: CHAR1{3178} local CHAR2{3179} local [clone CHAR=?[971] 3114] has the following parameters: CHAR1{3173} local CHAR2{3174} local [clone LOOP?[974] 3111] has the following parameters: CHAR1{3169} local CHAR2{3170} local [clone CHAR=?[971] 3108] has the following parameters: CHAR1{3164} local CHAR2{3165} local [clone LOOP?[974] 3105] has the following parameters: CHAR1{3160} local CHAR2{3161} local [clone CHAR=?[971] 3102] has the following parameters: CHAR1{3155} local CHAR2{3156} local [clone LOOP?[974] 3099] has the following parameters: CHAR1{3151} local CHAR2{3152} local [clone CHAR=?[971] 3096] has the following parameters: CHAR1{3146} local CHAR2{3147} local [clone LOOP?[974] 3093] has the following parameters: CHAR1{3142} local CHAR2{3143} local [clone CHAR=?[971] 3090] has the following parameters: CHAR1{3137} local CHAR2{3138} local [clone LOOP?[974] 3087] has the following parameters: CHAR1{3133} local CHAR2{3134} local [clone CHAR=?[971] 3084] has the following parameters: CHAR1{3128} local CHAR2{3129} local [clone LOOP?[974] 3081] has the following parameters: CHAR1{3124} local CHAR2{3125} local [clone CHAR=?[971] 3078] has the following parameters: CHAR1{3119} local CHAR2{3120} local [clone LOOP?[974] 3075] has the following parameters: CHAR1{3115} local CHAR2{3116} local [clone CHAR=?[971] 3072] has the following parameters: CHAR1{3110} local CHAR2{3111} local [clone LOOP?[974] 3069] has the following parameters: CHAR1{3106} local CHAR2{3107} local [clone CHAR=?[971] 3066] has the following parameters: CHAR1{3101} local CHAR2{3102} local [clone LOOP?[974] 3063] has the following parameters: CHAR1{3097} local CHAR2{3098} local [clone CHAR=?[971] 3060] has the following parameters: CHAR1{3092} local CHAR2{3093} local [clone LOOP?[974] 3057] has the following parameters: CHAR1{3088} local CHAR2{3089} local [clone CHAR=?[971] 3054] has the following parameters: CHAR1{3083} local CHAR2{3084} local [clone LOOP?[974] 3051] has the following parameters: CHAR1{3079} local CHAR2{3080} local [clone CHAR=?[971] 3048] has the following parameters: CHAR1{3074} local CHAR2{3075} local [clone LOOP?[974] 3045] has the following parameters: CHAR1{3070} local CHAR2{3071} local [clone CHAR=?[971] 3042] has the following parameters: CHAR1{3065} local CHAR2{3066} local [clone LOOP?[974] 3039] has the following parameters: CHAR1{3061} local CHAR2{3062} local [clone CHAR=?[971] 3036] has the following parameters: CHAR1{3056} local CHAR2{3057} local [clone LOOP?[980] 3033] has the following parameters: CHAR1{3052} local CHAR2{3053} local [clone CHAR?[983] 3024] has the following parameters: CHAR1{3038} local CHAR2{3039} local [clone LOOP?[992] 3021] has the following parameters: CHAR1{3034} local CHAR2{3035} local [clone CHAR<=?[989] 3018] has the following parameters: CHAR1{3029} local CHAR2{3030} local [clone LOOP?[992] 3015] has the following parameters: CHAR1{3025} local CHAR2{3026} local [clone CHAR<=?[989] 3012] has the following parameters: CHAR1{3020} local CHAR2{3021} local [clone LOOP?[992] 3009] has the following parameters: CHAR1{3016} local CHAR2{3017} local [clone CHAR<=?[989] 3006] has the following parameters: CHAR1{3011} local CHAR2{3012} local [clone LOOP?[992] 3003] has the following parameters: CHAR1{3007} local CHAR2{3008} local [clone CHAR<=?[989] 3000] has the following parameters: CHAR1{3002} local CHAR2{3003} local [clone LOOP?[992] 2997] has the following parameters: CHAR1{2998} local CHAR2{2999} local [clone CHAR<=?[989] 2994] has the following parameters: CHAR1{2993} local CHAR2{2994} local [clone LOOP?[992] 2991] has the following parameters: CHAR1{2989} local CHAR2{2990} local [clone CHAR<=?[989] 2988] has the following parameters: CHAR1{2984} local CHAR2{2985} local [clone LOOP?[992] 2985] has the following parameters: CHAR1{2980} local CHAR2{2981} local [clone CHAR<=?[989] 2982] has the following parameters: CHAR1{2975} local CHAR2{2976} local [clone LOOP?[992] 2979] has the following parameters: CHAR1{2971} local CHAR2{2972} local [clone CHAR<=?[989] 2976] has the following parameters: CHAR1{2966} local CHAR2{2967} local [clone LOOP?[992] 2973] has the following parameters: CHAR1{2962} local CHAR2{2963} local [clone CHAR<=?[989] 2970] has the following parameters: CHAR1{2957} local CHAR2{2958} local [clone LOOP?[992] 2967] has the following parameters: CHAR1{2953} local CHAR2{2954} local [clone CHAR<=?[989] 2964] has the following parameters: CHAR1{2948} local CHAR2{2949} local [clone LOOP?[992] 2961] has the following parameters: CHAR1{2944} local CHAR2{2945} local [clone CHAR<=?[989] 2958] has the following parameters: CHAR1{2939} local CHAR2{2940} local [clone LOOP?[992] 2955] has the following parameters: CHAR1{2935} local CHAR2{2936} local [clone CHAR<=?[989] 2952] has the following parameters: CHAR1{2930} local CHAR2{2931} local [clone LOOP?[992] 2949] has the following parameters: CHAR1{2926} local CHAR2{2927} local [clone CHAR<=?[989] 2946] has the following parameters: CHAR1{2921} local CHAR2{2922} local [clone LOOP?[998] 2943] has the following parameters: CHAR1{2917} local CHAR2{2918} local [clone CHAR>=?[995] 2940] has the following parameters: CHAR1{2912} local CHAR2{2913} local [clone LOOP?[998] 2937] has the following parameters: CHAR1{2908} local CHAR2{2909} local [clone CHAR>=?[995] 2934] has the following parameters: CHAR1{2903} local CHAR2{2904} local [clone LOOP?[998] 2931] has the following parameters: CHAR1{2899} local CHAR2{2900} local [clone CHAR>=?[995] 2928] has the following parameters: CHAR1{2894} local CHAR2{2895} local [clone LOOP?[998] 2925] has the following parameters: CHAR1{2890} local CHAR2{2891} local [clone CHAR>=?[995] 2922] has the following parameters: CHAR1{2885} local CHAR2{2886} local [clone LOOP?[998] 2919] has the following parameters: CHAR1{2881} local CHAR2{2882} local [clone CHAR>=?[995] 2916] has the following parameters: CHAR1{2876} local CHAR2{2877} local [clone LOOP?[998] 2913] has the following parameters: CHAR1{2872} local CHAR2{2873} local [clone CHAR>=?[995] 2910] has the following parameters: CHAR1{2867} local CHAR2{2868} local [clone LOOP?[998] 2907] has the following parameters: CHAR1{2863} local CHAR2{2864} local [clone CHAR>=?[995] 2904] has the following parameters: CHAR1{2858} local CHAR2{2859} local [clone LOOP?[998] 2901] has the following parameters: CHAR1{2854} local CHAR2{2855} local [clone CHAR>=?[995] 2898] has the following parameters: CHAR1{2849} local CHAR2{2850} local [clone LOOP?[998] 2895] has the following parameters: CHAR1{2845} local CHAR2{2846} local [clone CHAR>=?[995] 2892] has the following parameters: CHAR1{2840} local CHAR2{2841} local [clone LOOP?[998] 2889] has the following parameters: CHAR1{2836} local CHAR2{2837} local [clone CHAR>=?[995] 2886] has the following parameters: CHAR1{2831} local CHAR2{2832} local [clone LOOP?[998] 2883] has the following parameters: CHAR1{2827} local CHAR2{2828} local [clone CHAR>=?[995] 2880] has the following parameters: CHAR1{2822} local CHAR2{2823} local [clone LOOP?[998] 2877] has the following parameters: CHAR1{2818} local CHAR2{2819} local [clone CHAR>=?[995] 2874] has the following parameters: CHAR1{2813} local CHAR2{2814} local [clone LOOP?[998] 2871] has the following parameters: CHAR1{2809} local CHAR2{2810} local [clone CHAR>=?[995] 2868] has the following parameters: CHAR1{2804} local CHAR2{2805} local [clone READ-CHAR[2313] 2864] has the following parameter: &REST{2803} local [clone READ-CHAR[2313] 2860] has the following parameter: &REST{2802} local [clone READ-CHAR[2313] 2856] has the following parameter: &REST{2801} local [clone READ-CHAR[2313] 2852] has the following parameter: &REST{2800} local [clone READ-CHAR[2313] 2848] has the following parameter: &REST{2799} local [clone READ-CHAR[2313] 2844] has the following parameter: &REST{2798} local [clone READ-CHAR[2313] 2840] has the following parameter: &REST{2797} local [clone READ-CHAR[2313] 2836] has the following parameter: &REST{2796} local [clone READ-CHAR[2313] 2832] has the following parameter: &REST{2795} local [clone READ-CHAR[2313] 2828] has the following parameter: &REST{2794} local [clone READ-CHAR[2313] 2824] has the following parameter: &REST{2793} local [clone READ-CHAR[2313] 2820] has the following parameter: &REST{2792} local [clone READ-CHAR[2313] 2816] has the following parameter: &REST{2791} local [clone READ-CHAR[2313] 2812] has the following parameter: &REST{2790} local [clone READ-CHAR[2313] 2808] has the following parameter: &REST{2789} local [clone READ-CHAR[2313] 2804] has the following parameter: &REST{2788} local [clone READ-CHAR[2313] 2800] has the following parameter: &REST{2787} local [clone READ-CHAR[2313] 2796] has the following parameter: &REST{2786} local [clone READ-CHAR[2313] 2792] has the following parameter: &REST{2785} local [clone READ-CHAR[2313] 2788] has the following parameter: &REST{2784} local [clone READ-CHAR[2313] 2784] has the following parameter: &REST{2783} local [clone READ-CHAR[2313] 2780] has the following parameter: &REST{2782} local [clone READ-CHAR[2313] 2776] has the following parameter: &REST{2781} local [clone READ-CHAR[2313] 2772] has the following parameter: &REST{2780} local [clone READ-CHAR[2313] 2768] has the following parameter: &REST{2779} local [clone READ-CHAR[2313] 2764] has the following parameter: &REST{2778} local [clone READ-CHAR[2313] 2760] has the following parameter: &REST{2777} local [clone READ-CHAR[2313] 2756] has the following parameter: &REST{2776} local [clone READ-CHAR[2313] 2752] has the following parameter: &REST{2775} local [clone READ-CHAR[2313] 2748] has the following parameter: &REST{2774} local [clone READ-CHAR[2313] 2744] has the following parameter: &REST{2773} local [clone READ-CHAR[2313] 2740] has the following parameter: &REST{2772} local [clone READ-CHAR[2313] 2736] has the following parameter: &REST{2771} local [clone READ-CHAR[2313] 2732] has the following parameter: &REST{2770} local [clone READ-CHAR[2313] 2728] has the following parameter: &REST{2769} local [clone READ-CHAR[2313] 2724] has the following parameter: &REST{2768} local [clone READ-CHAR[2313] 2720] has the following parameter: &REST{2767} local [clone READ-CHAR[2313] 2716] has the following parameter: &REST{2766} local [clone READ-CHAR[2313] 2712] has the following parameter: &REST{2765} local [clone READ-CHAR[2313] 2708] has the following parameter: &REST{2764} local [clone READ-CHAR[2313] 2704] has the following parameter: &REST{2763} local [clone READ-CHAR[2313] 2700] has the following parameter: &REST{2762} local [clone READ-CHAR[2313] 2696] has the following parameter: &REST{2761} local [clone READ-CHAR[2313] 2692] has the following parameter: &REST{2760} local [clone READ-CHAR[2313] 2688] has the following parameter: &REST{2759} local [clone READ-CHAR[2313] 2684] has the following parameter: &REST{2758} local [clone READ-CHAR[2313] 2680] has the following parameter: &REST{2757} local [clone READ-CHAR[2313] 2676] has the following parameter: &REST{2756} local [clone READ-CHAR[2313] 2672] has the following parameter: &REST{2755} local [clone READ-CHAR[2313] 2668] has the following parameter: &REST{2754} local [clone READ-CHAR[2313] 2664] has the following parameter: &REST{2753} local [clone READ-CHAR[2313] 2660] has the following parameter: &REST{2752} local [clone READ-CHAR[2313] 2656] has the following parameter: &REST{2751} local [clone PEEK-CHAR[2317] 2652] has the following parameter: &REST{2750} local [clone PEEK-CHAR[2317] 2648] has the following parameter: &REST{2749} local [clone PEEK-CHAR[2317] 2644] has the following parameter: &REST{2748} local [clone PEEK-CHAR[2317] 2640] has the following parameter: &REST{2747} local [clone PEEK-CHAR[2317] 2636] has the following parameter: &REST{2746} local [clone PEEK-CHAR[2317] 2632] has the following parameter: &REST{2745} local [clone PEEK-CHAR[2317] 2628] has the following parameter: &REST{2744} local [clone PEEK-CHAR[2317] 2624] has the following parameter: &REST{2743} local [clone PEEK-CHAR[2317] 2620] has the following parameter: &REST{2742} local [clone PEEK-CHAR[2317] 2616] has the following parameter: &REST{2741} local [clone PEEK-CHAR[2317] 2612] has the following parameter: &REST{2740} local [clone PEEK-CHAR[2317] 2608] has the following parameter: &REST{2739} local [clone PEEK-CHAR[2317] 2604] has the following parameter: &REST{2738} local [clone QUEUE-PUSH[159] 2603] has the following parameters: Q{2736} local OBJ{2737} local [clone QUEUE-PUSH[159] 2602] has the following parameters: Q{2734} local OBJ{2735} local [clone QUEUE-PUSH[159] 2601] has the following parameters: Q{2732} local OBJ{2733} local [clone QUEUE-PUSH[159] 2600] has the following parameters: Q{2730} local OBJ{2731} local [clone QUEUE-PUSH[159] 2599] has the following parameters: Q{2728} local OBJ{2729} local [clone QUEUE-PUSH[159] 2598] has the following parameters: Q{2726} local OBJ{2727} local [clone GET-CHILD[267] 2597] has the following parameters: NODE{2724} local I{2725} local [clone GET-CHILD[267] 2596] has the following parameters: NODE{2722} local I{2723} local [clone GET-CHILD[267] 2595] has the following parameters: NODE{2720} local I{2721} local [clone GET-CHILD[267] 2594] has the following parameters: NODE{2718} local I{2719} local [clone GET-CHILD[267] 2593] has the following parameters: NODE{2716} local I{2717} local [clone SET-STATE-LABEL[268] 2592] has the following parameters: NODE{2714} local VAL{2715} local [clone SET-STATE-LABEL[268] 2591] has the following parameters: NODE{2712} local VAL{2713} local [clone SET-FATHER[269] 2590] has the following parameters: NODE{2710} local VAL{2711} local [clone SET-CHILD[270] 2589] has the following parameters: NODE{2707} local I{2708} local [clone SET-CHILD[270] 2588] has the following parameters: NODE{2704} local I{2705} local VAL{2706} local [clone SET-CHILD[270] 2587] has the following parameters: NODE{2701} local I{2702} local VAL{2703} local [clone SET-CHILD[270] 2586] has the following parameters: NODE{2698} local I{2699} local VAL{2700} local [clone LIST[634] 2585] has the following parameter: OBJS{2697} local [clone LIST[634] 2584] has the following parameter: OBJS{2696} local [clone LIST[634] 2583] has the following parameter: OBJS{2695} local [clone LIST[634] 2582] has the following parameter: OBJS{2694} local [clone LIST[634] 2581] has the following parameter: OBJS{2693} local [clone LIST[634] 2580] has the following parameter: OBJS{2692} local [clone LIST[634] 2579] has the following parameter: OBJS{2691} local [clone LIST[634] 2578] has the following parameter: OBJS{2690} local [clone LIST[634] 2577] has the following parameter: OBJS{2689} local [clone LIST[634] 2576] has the following parameter: OBJS{2688} local [clone LIST[634] 2575] has the following parameter: OBJS{2687} local PEEK-CHAR[2317] has the following parameter: &REST{2670} local READ-CHAR[2313] has the following parameter: &REST{2669} local [inside LOOP 2011] reentrant [inside LOOP 2010] reentrant LOOP[2009] reentrant has the following parameter: I{2480} local [inside DISPLAY2 2006] reentrant [inside DISPLAY2 2005] reentrant [inside DISPLAY2 2003] reentrant [inside LOOP 2000] reentrant [inside LOOP 1999] reentrant [inside LOOP 1998] reentrant [inside LOOP 1996] reentrant LOOP[1995] reentrant has the following parameter: OBJ{2468} local [inside DISPLAY2 1992] reentrant [inside DISPLAY2 1991] reentrant LOOP[1915] has the following parameters: MANTISSA{2427} local EXPONENT{2428} local LOOP[1910] has the following parameters: MANTISSA{2423} local EXPONENT{2424} local DISPLAY-INEXACT-REAL2[1901] has the following parameters: NUMBER{2418} local PORT{2419} local [inside LOOP 1898] has the following parameter: MANTISSA{2417} local [inside LOOP 1895] has the following parameter: DIGIT{2415} local [inside LOOP 1894] has the following parameter: FLOAT-DIGIT{2414} local LOOP[1893] has the following parameter: MANTISSA{2413} local [inside DISPLAY-MANTISSA-EXPONENT2 1882] has the following parameter: DIGIT{2406} local [inside DISPLAY-MANTISSA-EXPONENT2 1881] has the following parameter: FLOAT-DIGIT{2405} local LOOP[1872] has the following parameter: I{2399} local LOOP[1869] has the following parameters: I{2395} local NUMBER{2396} local LOOP[1858] has the following parameter: I{2389} local LOOP[1855] has the following parameters: I{2385} local NUMBER{2386} local LOOP[1846] has the following parameter: I{2379} local [inside DISPLAY-STRING2 1843] has the following parameter: N{2376} local [inside top level 1838] has the following parameters: THE-CURRENT-OUTPUT-PORT{2335} global BUFFER{2337} global [inside READ-CHARACTER-NAME 1811] has the following parameter: C{2330} local READ-CHARACTER-NAME[1810] has region has the following parameter: S{2329} local [inside LOOP? 1806] has the following parameter: v{2328} local LOOP?[1805] has the following parameters: S{2326} local NAME{2327} local LOOP[1801] has the following parameter: NAMES{2322} local [inside READ-SYMBOL 1797] has region [inside READ-SYMBOL 1794] has region [inside READ-SYMBOL 1793] has the following parameter: C{2317} local [inside CHAR-SUBSEQUENT? 1791] has the following parameter: v{2315} local [inside CHAR-SUBSEQUENT? 1790] has the following parameter: v{2314} local [inside CHAR-SUBSEQUENT? 1789] has the following parameter: v{2313} local [inside CHAR-SUBSEQUENT? 1788] has the following parameter: v{2312} local CHAR-SUBSEQUENT?[1787] has the following parameter: C{2311} local [inside CHAR-INITIAL? 1786] has the following parameter: v{2310} local [inside CHAR-INITIAL? 1785] has the following parameter: v{2309} local [inside CHAR-INITIAL? 1784] has the following parameter: v{2308} local [inside CHAR-INITIAL? 1783] has the following parameter: v{2307} local [inside CHAR-INITIAL? 1782] has the following parameter: v{2306} local [inside CHAR-INITIAL? 1781] has the following parameter: v{2305} local [inside CHAR-INITIAL? 1780] has the following parameter: v{2304} local [inside CHAR-INITIAL? 1779] has the following parameter: v{2303} local [inside CHAR-INITIAL? 1778] has the following parameter: v{2302} local [inside CHAR-INITIAL? 1777] has the following parameter: v{2301} local [inside CHAR-INITIAL? 1776] has the following parameter: v{2300} local [inside CHAR-INITIAL? 1775] has the following parameter: v{2299} local [inside CHAR-INITIAL? 1774] has the following parameter: v{2298} local [inside CHAR-INITIAL? 1773] has the following parameter: v{2297} local [inside READ-NUMBER 1765] has the following parameter: C3{2293} local [inside READ-NUMBER 1764] has region [inside READ-NUMBER 1760] has the following parameter: C3{2290} local [inside READ-NUMBER 1759] has region [inside READ-NUMBER 1756] has the following parameter: C2{2288} local [inside READ-NUMBER 1755] has region [inside READ-NUMBER 1754] has region [inside READ-NUMBER 1753] has the following parameter: v{2286} local [inside READ-NUMBER 1752] has the following parameter: v{2285} local [inside READ-NUMBER 1751] has the following parameter: v{2284} local [inside READ-NUMBER 1750] has the following parameter: v{2283} local [inside READ-NUMBER 1749] has the following parameter: v{2282} local [inside READ-NUMBER 1748] has the following parameter: v{2281} local [inside READ-NUMBER 1747] has the following parameter: v{2280} local [inside READ-NUMBER 1746] has the following parameter: v{2279} local [inside READ-NUMBER 1745] has the following parameter: v{2278} local [inside READ-NUMBER 1743] has region [inside READ-NUMBER 1739] has the following parameter: C1{2275} local [inside READ-INEXACT-NUMBER 1731] has the following parameter: C3{2271} local [inside READ-INEXACT-NUMBER 1730] has region [inside READ-INEXACT-NUMBER 1726] has the following parameter: C3{2268} local [inside READ-INEXACT-NUMBER 1725] has region [inside READ-INEXACT-NUMBER 1722] has the following parameter: C2{2266} local [inside READ-INEXACT-NUMBER 1721] has region [inside READ-INEXACT-NUMBER 1720] has region [inside READ-INEXACT-NUMBER 1719] has the following parameter: v{2264} local [inside READ-INEXACT-NUMBER 1718] has the following parameter: v{2263} local [inside READ-INEXACT-NUMBER 1717] has the following parameter: v{2262} local [inside READ-INEXACT-NUMBER 1716] has the following parameter: v{2261} local [inside READ-INEXACT-NUMBER 1715] has the following parameter: v{2260} local [inside READ-INEXACT-NUMBER 1714] has the following parameter: v{2259} local [inside READ-INEXACT-NUMBER 1713] has the following parameter: v{2258} local [inside READ-INEXACT-NUMBER 1712] has the following parameter: v{2257} local [inside READ-INEXACT-NUMBER 1711] has the following parameter: v{2256} local [inside READ-INEXACT-NUMBER 1707] has the following parameter: C1{2254} local [inside READ-EXACT-HEXADECIMAL-INTEGER 1697] has the following parameter: C{2248} local [inside READ-EXACT-DECIMAL-INTEGER 1691] has the following parameter: C{2245} local [inside READ-EXACT-OCTAL-INTEGER 1685] has the following parameter: C{2242} local [inside READ-EXACT-BINARY-INTEGER 1677] has the following parameter: C{2238} local [inside READ 1674] has region [inside READ 1669] has region [inside READ 1668] has region [inside READ 1666] has region [inside READ 1664] has the following parameter: C2{2233} local [inside READ 1663] has region [inside READ 1661] has region [inside READ 1660] has region [inside READ 1658] has region [inside READ 1657] has region [inside READ 1655] has region [inside READ 1653] has the following parameter: C3{2229} local [inside READ 1652] has region [inside READ 1651] has region [inside READ 1649] has region [inside READ 1647] has the following parameter: C2{2226} local [inside READ 1646] has region [inside READ 1644] has region [inside READ 1643] has region [inside READ 1641] has region [inside READ 1640] has region [inside READ 1638] has region [inside READ 1636] has the following parameter: C3{2222} local [inside READ 1635] has region [inside READ 1634] has region [inside READ 1632] has region [inside READ 1630] has the following parameter: C2{2219} local [inside READ 1629] has region [inside LOOP 1625] has region [inside LOOP 1622] has the following parameter: C1{2217} local [inside LOOP 1619] has the following parameter: C{2215} local LOOP[1618] has region has the following parameter: S{2214} local [inside READ 1611] has region [inside READ 1610] has the following parameter: C3{2210} local [inside READ 1609] has region [inside LOOP 1607] reentrant has the following parameter: E{2209} local LOOP[1606] reentrant has region has the following parameter: S{2208} local [inside READ 1603] reentrant [inside READ 1594] has the following parameter: C4{2204} local [inside READ 1593] has region [inside READ 1586] has the following parameter: C4{2202} local [inside READ 1585] has region [inside READ 1580] has the following parameter: C3{2200} local [inside READ 1579] has region [inside READ 1578] has the following parameter: v{2199} local [inside READ 1571] has the following parameter: C4{2196} local [inside READ 1570] has region [inside READ 1564] has the following parameter: C5{2193} local [inside READ 1563] has region [inside READ 1560] has the following parameter: C4{2191} local [inside READ 1559] has region [inside READ 1553] has the following parameter: C5{2188} local [inside READ 1552] has region [inside READ 1549] has the following parameter: C4{2186} local [inside READ 1548] has region [inside READ 1546] has the following parameter: C3{2184} local [inside READ 1545] has region [inside READ 1544] has the following parameter: v{2183} local [inside READ 1540] has the following parameter: v{2182} local [inside READ 1537] has the following parameter: C4{2179} local [inside READ 1536] has region [inside READ 1534] has the following parameter: v{2178} local [inside READ 1531] has the following parameter: C4{2175} local [inside READ 1530] has region [inside READ 1527] has the following parameter: C3{2173} local [inside READ 1526] has region [inside READ 1525] has the following parameter: v{2172} local [inside READ 1517] has the following parameter: C4{2170} local [inside READ 1516] has region [inside READ 1510] has the following parameter: C4{2168} local [inside READ 1509] has region [inside READ 1505] has the following parameter: C3{2166} local [inside READ 1504] has region [inside READ 1503] has the following parameter: v{2165} local [inside READ 1501] has the following parameter: v{2164} local [inside READ 1499] has the following parameter: v{2163} local [inside READ 1498] reentrant [inside READ 1497] reentrant has the following parameter: C2{2161} local [inside READ 1496] reentrant [inside LOOP 1494] reentrant LOOP[1490] has the following parameters: S{2159} local C{2160} local [inside LOOP 1485] reentrant has the following parameter: E1{2155} local [inside LOOP 1484] reentrant [inside LOOP 1483] reentrant [inside LOOP 1482] reentrant has the following parameter: E{2153} local LOOP[1481] reentrant has region has the following parameter: S{2152} local [inside READ 1478] reentrant [inside READ 1476] reentrant [inside READ 1475] reentrant [inside READ 1474] reentrant [inside READ 1473] reentrant [inside READ 1472] reentrant has the following parameter: C2{2147} local [inside READ 1471] reentrant [inside READ 1470] reentrant [inside READ 1469] reentrant [inside READ 1467] reentrant [inside READ 1458] reentrant [inside READ 1457] reentrant [inside READ 1446] reentrant has the following parameter: C1{2142} local [inside READ 1445] reentrant [inside READ 1444] reentrant [inside READ 1440] has the following parameters: CLOSE{2115} global DOT{2116} global READ[1438] has the following parameter: PORT{2113} global LOOP[1283] has the following parameter: K{1984} local [inside LIST->VECTOR 1279] has the following parameter: R{1980} local LIST->VECTOR[1278] has the following parameter: LIST{1979} local LOOP[1230] has the following parameter: K{1939} local [inside STRING-COPY 1225] has the following parameter: R{1935} local [inside STRING-COPY 1224] has the following parameter: N{1934} local LOOP[1218] has the following parameter: K{1930} local [inside LIST->STRING 1214] has the following parameter: R{1926} local [inside LOOP? 1070] has the following parameter: v{1757} local LOOP?[1069] has the following parameter: K{1756} local [inside LOOP? 1066] has the following parameter: N{1753} local LOOP?[1065] has the following parameters: STRING1{1750} local STRING2{1751} local CHAR-UPCASE[1044] has the following parameter: CHAR{1727} local [inside CHAR-WHITESPACE? 1039] has the following parameter: v{1722} local [inside CHAR-WHITESPACE? 1038] has the following parameter: v{1721} local [inside CHAR-WHITESPACE? 1037] has the following parameter: v{1720} local [inside CHAR-WHITESPACE? 1036] has the following parameter: v{1719} local [inside CHAR-WHITESPACE? 1035] has the following parameter: C{1718} local CHAR-WHITESPACE?[1034] has the following parameter: CHAR{1717} local CHAR-NUMERIC?[1033] has the following parameter: CHAR{1716} local [inside CHAR-ALPHABETIC? 1032] has the following parameter: v{1715} local CHAR-ALPHABETIC?[1031] has the following parameter: CHAR{1714} local LOOP?[1004] has the following parameters: CHAR1{1674} local CHAR2{1675} local CHAR-CI=?[1001] has the following parameters: CHAR1{1669} local CHAR2{1670} local LOOP?[998] has the following parameters: CHAR1{1665} local CHAR2{1666} local CHAR>=?[995] has the following parameters: CHAR1{1660} local CHAR2{1661} local LOOP?[992] has the following parameters: CHAR1{1656} local CHAR2{1657} local CHAR<=?[989] has the following parameters: CHAR1{1651} local CHAR2{1652} local LOOP?[986] has the following parameters: CHAR1{1647} local CHAR2{1648} local CHAR>?[983] has the following parameters: CHAR1{1642} local CHAR2{1643} local LOOP?[980] has the following parameters: CHAR1{1638} local CHAR2{1639} local CHARY?{824} Y->X?{825} [inside MAKE-MINIMAL? 103] has the following parameters: SIZE{796} global GRAPH{797} global FOLDER{798} global has the following in-lined locals: UNIVERSE{766} B-STATE{768} X{2478} v{2479} SLOW{2482} FAST{2483} v{2484} FAST{2485} v{2486} [inside FOLD-OVER-PERM-TREE 99] [inside -**- 96] reentrant has parent parameter [inside -**- 92] -**-[90] reentrant has parent parameter -*-[87] has closure has parent slot -*-[87] has the following parameters: IN{782} local OUT{783} slotted has the following in-lined locals: LST{686} STATE{688} LST{693} STATE{694} ACCROSS{787} NEW-B-STATE{788} PERM-X{803} X{804} DEEPER{806} ACCROSS{807} v{808} OBJ1{2329} OBJ2{2330} OBJ1{2400} v{2402} OBJ1{2405} v{2407} OBJ1{2410} v{2412} X{2469} v{2470} SLOW{2473} FAST{2474} v{2475} FAST{2476} v{2477} -*-[87] reentrant has closure has the following parameters: UNIVERSE{776} local B-STATE{777} slotted ACCROSS{779} slotted has the following in-lined locals: LEAF-DEPTH{810} ACCROSS{812} PERM{894} ACCROSS{896} v{898} v{899} ACCROSS{904} OBJ1{923} v{925} OBJ1{2385} v{2387} OBJ1{2390} v{2392} OBJ1{2395} OBJ2{2396} v{2397} v{2398} GIOTA[38] has the following parameter: LIMIT{718} local has the following in-lined locals: LIMIT{722} RES{723} LIMIT{724} [inside top level 0] has the following in-lined locals: N{683} SIZE{2425} X{2429} I{2433} SIZE{2435} X{2439} I{2443} The following non-trivial in-line native procedures will be generated: [clone [inside LOOP? 294] 2367] has the following parameter: v{2486} local [clone [inside LOOP? 293] 2366] has the following parameter: FAST{2485} local [clone [inside LOOP? 292] 2365] has the following parameter: v{2484} local [clone LOOP?[291] 2364] has the following parameters: SLOW{2482} local FAST{2483} local [clone [inside LIST? 288] 2361] has the following parameter: v{2479} local [clone LIST?[287] 2360] has the following parameter: X{2478} local [clone [inside LOOP? 294] 2358] has the following parameter: v{2477} local [clone [inside LOOP? 293] 2357] has the following parameter: FAST{2476} local [clone [inside LOOP? 292] 2356] has the following parameter: v{2475} local [clone LOOP?[291] 2355] has the following parameters: SLOW{2473} local FAST{2474} local [clone [inside LIST? 288] 2352] has the following parameter: v{2470} local [clone LIST?[287] 2351] has the following parameter: X{2469} local [clone loop[57] 2346] has the following parameter: I{2467} local [clone GNATURAL-FOR-EACH[53] 2342] has region has the following parameter: LIMIT{2461} local [clone loop[57] 2337] has the following parameter: I{2459} local [clone GNATURAL-FOR-EACH[53] 2333] has region has the following parameter: LIMIT{2453} local [clone loop[57] 2328] has the following parameter: I{2451} local [clone GNATURAL-FOR-EACH[53] 2324] has region has the following parameter: LIMIT{2445} local [clone LOOP[22] 2319] has the following parameter: I{2443} local [clone [inside PROC->VECTOR 18] 2315] has the following parameter: X{2439} local [clone PROC->VECTOR[16] 2313] has the following parameter: SIZE{2435} local [clone LOOP[22] 2308] has the following parameter: I{2433} local [clone [inside PROC->VECTOR 18] 2304] has the following parameter: X{2429} local [clone PROC->VECTOR[16] 2302] has the following parameter: SIZE{2425} local [clone LOOP[22] 2297] has the following parameter: I{2423} local [clone [inside PROC->VECTOR 18] 2293] has the following parameter: X{2419} local [clone PROC->VECTOR[16] 2291] has region has the following parameter: SIZE{2415} local [clone [inside EQV? 239] 2288] has the following parameter: v{2412} local [clone EQV?[238] 2287] has the following parameter: OBJ1{2410} local [clone [inside EQV? 239] 2284] has the following parameter: v{2407} local [clone EQV?[238] 2283] has the following parameter: OBJ1{2405} local [clone [inside EQV? 239] 2280] has the following parameter: v{2402} local [clone EQV?[238] 2279] has the following parameter: OBJ1{2400} local [clone [inside EQV? 240] 2277] has the following parameter: v{2398} local [clone [inside EQV? 239] 2276] has the following parameter: v{2397} local [clone EQV?[238] 2275] has the following parameters: OBJ1{2395} local OBJ2{2396} local [clone [inside EQV? 239] 2272] has the following parameter: v{2392} local [clone EQV?[238] 2271] has the following parameter: OBJ1{2390} local [clone [inside EQV? 239] 2268] has the following parameter: v{2387} local [clone EQV?[238] 2267] has the following parameter: OBJ1{2385} local [clone CONS[253] 2239] has the following parameters: OBJ1{2329} local OBJ2{2330} local LOOP[1051] has the following parameter: LIST1{1717} local FOR-EACH[1047] has the following parameter: LIST1{1713} local LENGTH[305] has the following parameter: S{992} local LOOP[300] has the following parameter: K{990} local LIST-LENGTH[297] has the following parameter: LIST{987} local [inside LOOP? 294] has the following parameter: v{985} local [inside LOOP? 293] has the following parameter: FAST{984} local [inside LOOP? 292] has the following parameter: v{983} local LOOP?[291] has the following parameters: SLOW{981} local FAST{982} local [inside LIST? 288] has the following parameter: v{978} local LIST?[287] has the following parameter: X{977} local CONS[253] has the following parameters: OBJ1{940} local OBJ2{941} local [inside EQV? 239] has the following parameter: v{925} local EQV?[238] has the following parameter: OBJ1{923} local [inside MAKE-REACH? 218] has the following parameter: X{920} local [inside MAKE-REACH? 216] has the following parameter: FROM-V{917} local [inside MAKE-REACH? 212] has the following parameter: T{915} local [inside MAKE-REACH? 211] has the following parameter: FROM-F{914} local [inside MAKE-REACH? 210] has the following parameter: F{913} local [inside MAKE-REACH? 209] has the following parameter: FROM-M{912} local [inside MAKE-REACH? 208] has the following parameter: M{911} local [inside MAKE-REACH? 206] has the following parameter: RES{909} local MAKE-REACH?[205] has the following parameters: SIZE{907} global VERTEX->OUT{908} global [inside FOLD-OVER-RDG 203] reentrant [inside FOLD-OVER-RDG 202] reentrant has the following parameter: ACCROSS{904} local [inside FOLD-OVER-RDG 201] has the following parameter: SIZE{901} local [inside FOLD-OVER-RDG 198] reentrant [inside FOLD-OVER-RDG 197] has the following parameter: v{899} local [inside FOLD-OVER-RDG 195] reentrant has the following parameter: v{898} local [inside FOLD-OVER-RDG 194] reentrant [inside FOLD-OVER-RDG 193] reentrant has the following parameters: PERM{894} local ACCROSS{896} local [inside -**- 187] has parent parameter [inside -*- 164] has the following parameter: STATE{890} local [inside -**- 186] reentrant has parent parameter [inside -*- 164] [inside -**- 185] reentrant has parent parameter [inside -*- 164] [inside -**- 183] has parent parameter -*-[140] [inside -**- 182] has parent parameter -*-[140] has the following parameter: STATE{884} local [inside -**- 181] reentrant has parent parameter [inside -*- 164] has the following parameter: STATE{883} local [inside -**- 180] reentrant has parent parameter [inside -*- 164] [inside -**- 179] reentrant has parent parameter [inside -*- 164] [inside -**- 177] has parent parameter [inside -*- 164] has the following parameter: STATE{877} local [inside -**- 176] reentrant has parent parameter [inside -*- 164] [inside -**- 175] reentrant has parent parameter [inside -*- 164] [inside -**- 174] reentrant has parent parameter [inside -*- 164] [inside -**- 173] reentrant has parent parameter [inside -*- 164] has the following parameter: STATE{874} local [inside -**- 172] reentrant has parent parameter [inside -*- 164] has the following parameter: SV-OUT{873} local [inside -**- 171] reentrant has parent parameter [inside -*- 164] has the following parameter: FROM-SV{872} local [inside -**- 170] reentrant has parent parameter [inside -*- 164] has the following parameter: STATE{871} local [inside -**- 169] reentrant has parent parameter -*-[140] [inside -**- 168] reentrant has parent parameter -*-[140] [inside -*- 166] has parent parameter [inside -*- 164] [inside -*- 165] has parent parameter [inside -*- 164] has the following parameter: -**-{865} hidden as -**-[167] [inside -*- 164] reentrant has parent parameter -*-[140] has closure has parent slot -*-[140] has the following parameter: FROM-VERTEX{864} slotted [inside -*- 163] reentrant has parent parameter -*-[140] [inside -*- 162] has region has the following parameter: V{863} local [inside -*- 154] has the following parameter: R{859} local [inside -*- 153] has the following parameter: V{858} local [inside -*- 152] reentrant [inside -*- 151] reentrant has the following parameter: STATE{856} local [inside -*- 150] reentrant [inside -*- 149] reentrant [inside -*- 148] has the following parameter: v{854} local [inside -*- 144] has the following parameters: FROM-ROOT{845} global REACH?{846} global [inside -*- 143] has region [inside FOLD-OVER-RDG 133] has the following parameter: OUT-DEGREES{836} global [inside FOLD-OVER-RDG 132] has the following parameter: EDGES{835} global [inside FOLD-OVER-RDG 131] has the following parameter: EDGE?{834} global [inside FOLD-OVER-RDG 130] has the following parameter: ROOT{833} global FOLD-OVER-RDG[128] has the following parameters: SIZE{826} global MAX-OUT{827} global [inside -*- 121] has the following parameter: Y->X?{825} local [inside -*- 119] has the following parameters: PERM-Y{823} local X->Y?{824} local -*-[118] has the following parameter: Y{822} local [inside CMP-NEXT-VERTEX 115] has the following parameters: FROM-PERM-X{818} local FROM-X{819} local [inside MAKE-MINIMAL? 113] reentrant [inside MAKE-MINIMAL? 112] reentrant has the following parameters: LEAF-DEPTH{810} local ACCROSS{812} local [inside MAKE-MINIMAL? 110] reentrant [inside MAKE-MINIMAL? 109] reentrant [inside MAKE-MINIMAL? 108] reentrant [inside MAKE-MINIMAL? 106] reentrant has the following parameter: v{808} local [inside MAKE-MINIMAL? 105] reentrant has the following parameters: PERM-X{803} local X{804} local DEEPER{806} local ACCROSS{807} local [inside MAKE-MINIMAL? 102] has the following parameters: PERM{794} global IOTAS{795} global MAKE-MINIMAL?[100] has the following parameter: MAX-SIZE{792} global [inside -**- 95] reentrant has parent parameter [inside -**- 92] has region has the following parameter: NEW-B-STATE{788} local [inside -**- 94] reentrant has parent parameter [inside -**- 92] [inside -**- 93] reentrant has parent parameter [inside -**- 92] has the following parameter: ACCROSS{787} local [inside -**- 92] reentrant has parent parameter [inside -**- 91] has closure has parent slot [inside -**- 91] has the following parameter: REST{786} slotted [inside -**- 91] reentrant has parent parameter -**-[90] has closure has parent slot -**-[90] has the following parameter: FIRST{785} slotted [inside -*- 89] has parent parameter -*-[87] [inside -*- 88] has parent parameter -*-[87] has the following parameter: -**-{780} hidden as -**-[90] FOLD-OVER-PERM-TREE[83] has the following parameters: UNIVERSE{766} local B-STATE{768} local [inside -*- 81] has the following parameter: v{765} local -*-[80] has the following parameter: LST{764} local THERE-EXISTS?[76] has region has the following parameter: LST{758} local [inside -*- 67] has the following parameter: v{749} local -*-[66] has the following parameter: I{748} local NATURAL-FOR-ALL?[62] has region has the following parameter: LIMIT{742} local loop[57] has the following parameter: I{740} local GNATURAL-FOR-EACH[53] has region has the following parameter: LIMIT{734} local [inside -*- 43] has the following parameter: LIMIT{724} local -*-[42] has the following parameters: LIMIT{722} local RES{723} local LOOP[22] has the following parameter: I{703} local [inside PROC->VECTOR 18] has the following parameter: X{699} local PROC->VECTOR[16] has region has the following parameter: SIZE{695} local loop[12] has the following parameters: LST{693} local STATE{694} local FOLD[8] has region has the following parameters: LST{686} local STATE{688} local [inside top level 6] has the following parameter: N{683} local Warning! The following tail-recursive tail calls are not merged: From the following expression, graphs-stalin.sc:149:5239: (\-*- (FOLD OUT CONS REST) NEW-B-STATE NEW-T-STATE ACCROSS) to -*-[87] From the following expression, graphs-stalin.sc:144:5105: (\-**- REST ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) FIRST OUT) NEW-T-STATE) to -**-[90] From the following expression, graphs-stalin.sc:136:4908: (((LAMBDA # # \-**-) (#)) UNIVERSE '() T-STATE) to -**-[90] From the following expression, graphs-stalin.sc:199:7032: (ACCROSS STATE) to [inside -**- 96] From the following expression, graphs-stalin.sc:314:10739: (\-*- ((PRIMITIVE-PROCEDURE +) VERTEX 1) STATE) to -*-[140] From the following expression, graphs-stalin.sc:308:10599: (((LAMBDA # # \-**-) (#)) 0 0 STATE) to -**-[167] From the following expression, graphs-stalin.sc:260:9267: (ACCROSS #T) to [inside -**- 96] From the following expression, graphs-stalin.sc:252:8995: (ACCROSS #T) to [inside -**- 96] The following expression, graphs-stalin.sc:68:1934, allocates on [clone GNATURAL-FOR-EACH[53] 2342]: (GRAPHS:ASSERT (IF (# LIMIT) (IF # # #F) #F) LIMIT) The following expression, graphs-stalin.sc:68:1934, allocates on [clone GNATURAL-FOR-EACH[53] 2333]: (GRAPHS:ASSERT (IF (# LIMIT) (IF # # #F) #F) LIMIT) The following expression, graphs-stalin.sc:68:1934, allocates on [clone GNATURAL-FOR-EACH[53] 2324]: (GRAPHS:ASSERT (IF (# LIMIT) (IF # # #F) #F) LIMIT) The following expression, graphs-stalin.sc:20:561, allocates on the heap: (GRAPHS:ASSERT (IF (# SIZE) (IF # # #F) #F) SIZE) The following expression, graphs-stalin.sc:24:714, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE (F 0)) The following expression, graphs-stalin.sc:23:690, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR)) The following expression, graphs-stalin.sc:20:561, allocates on the heap: (GRAPHS:ASSERT (IF (# SIZE) (IF # # #F) #F) SIZE) The following expression, graphs-stalin.sc:24:714, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE (F 0)) The following expression, graphs-stalin.sc:23:690, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR)) The following expression, graphs-stalin.sc:20:561, allocates on [clone PROC->VECTOR[16] 2291]: (GRAPHS:ASSERT (IF (# SIZE) (IF # # #F) #F) SIZE) The following expression, graphs-stalin.sc:24:714, allocates on [inside -*- 143]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE (F 0)) The following expression, graphs-stalin.sc:23:690, allocates on [inside -*- 143]: ((PRIMITIVE-PROCEDURE VECTOR)) The following expression allocates on [inside -**- 95]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2) The following expression, graphs-stalin.sc:381:12598, allocates on [inside -*- 143]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE #F) The following expression, graphs-stalin.sc:241:8541, allocates on the heap: (GRAPHS:ASSERT (IF (# MAX-OUT) (IF # # #F) #F) MAX-OUT) The following expression, graphs-stalin.sc:240:8471, allocates on the heap: (GRAPHS:ASSERT (IF (# SIZE) (IF # # #F) #F) SIZE) The following expression, graphs-stalin.sc:245:8740, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE #F) The following expression, graphs-stalin.sc:246:8774, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE '()) The following expression, graphs-stalin.sc:247:8813, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE 0) The following expression, graphs-stalin.sc:326:11038, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) VERTEX ((PRIMITIVE-PROCEDURE VECTOR-REF) EDGES SV)) The following expression, graphs-stalin.sc:340:11442, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SV ((PRIMITIVE-PROCEDURE VECTOR-REF) EDGES VERTEX)) The following expression, graphs-stalin.sc:364:12051, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SV ((PRIMITIVE-PROCEDURE VECTOR-REF) EDGES VERTEX)) The following expression, graphs-stalin.sc:273:9585, allocates on [inside -*- 162]: (GRAPHS:ASSERT ((PRIMITIVE-PROCEDURE =) (# OUT-DEGREES V) (LENGTH #)) V ((PRIMITIVE-PROCEDURE VECTOR-REF) OUT-DEGREES V) ((PRIMITIVE-PROCEDURE VECTOR-REF) EDGES V)) The following expression, graphs-stalin.sc:291:10112, allocates on -*-[147]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR-REF) REACH? V) EFRR) The following expression, graphs-stalin.sc:290:10089, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) V EFR) The following expression, graphs-stalin.sc:182:6376, allocates on the heap: (GRAPHS:ASSERT (IF (# MAX-SIZE) (IF # # #F) #F) MAX-SIZE) The following expression, graphs-stalin.sc:185:6523, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) MAX-SIZE 0) The following expression, graphs-stalin.sc:191:6734, allocates on the stack: (GRAPHS:ASSERT ((PRIMITIVE-PROCEDURE PROCEDURE?) FOLDER) FOLDER) The following expression, graphs-stalin.sc:190:6692, allocates on the stack: (GRAPHS:ASSERT ((PRIMITIVE-PROCEDURE VECTOR?) GRAPH) GRAPH) The following expression, graphs-stalin.sc:187:6591, allocates on the stack: (GRAPHS:ASSERT (IF (# SIZE) (IF # # #F) #F) SIZE MAX-SIZE) The following expression, graphs-stalin.sc:203:7133, allocates on the stack: (GRAPHS:ASSERT (EQV? LEAF-DEPTH SIZE) LEAF-DEPTH SIZE) The following expression, graphs-stalin.sc:127:4562, allocates on the stack: (GRAPHS:ASSERT (LIST? UNIVERSE) UNIVERSE) The following expression, graphs-stalin.sc:144:5116, allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) FIRST OUT) The following expression, graphs-stalin.sc:88:2616, allocates on THERE-EXISTS?[76]: (GRAPHS:ASSERT (LIST? LST) LST) The following expression, graphs-stalin.sc:74:2148, allocates on NATURAL-FOR-ALL?[62]: (GRAPHS:ASSERT (IF (# LIMIT) (IF # # #F) #F) LIMIT) The following expression, graphs-stalin.sc:68:1934, allocates on GNATURAL-FOR-EACH[53]: (GRAPHS:ASSERT (IF (# LIMIT) (IF # # #F) #F) LIMIT) The following expression, graphs-stalin.sc:48:1325, allocates on the stack: (GRAPHS:ASSERT (IF (# LIMIT) (IF # # #F) #F) LIMIT) The following expression, graphs-stalin.sc:54:1518, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) LIMIT RES) The following expression, graphs-stalin.sc:20:561, allocates on PROC->VECTOR[16]: (GRAPHS:ASSERT (IF (# SIZE) (IF # # #F) #F) SIZE) The following expression, graphs-stalin.sc:24:714, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE (F 0)) The following expression, graphs-stalin.sc:23:690, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR)) The following expression, graphs-stalin.sc:9:207, allocates on FOLD[8]: (GRAPHS:ASSERT (LIST? LST) LST) The closure for [inside -*- 164] is allocated on the stack The closure for -*-[140] is allocated on the stack The closure for [inside -**- 92] is allocated on the stack The closure for [inside -**- 91] is allocated on the stack The closure for -**-[90] is allocated on the stack The closure for -*-[87] is allocated on the stack Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W17254 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code graphs-stalin.c: In function `f140': graphs-stalin.c:1305: warning: statement with no effect Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 7% - Expanding macros 3 - 8% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 1 - 2% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 8 - 25% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 1 - 4% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 2% - Determining which environments are called more than once 1 - 2% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 4 - 14% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 1% - Determining which environments are recursive 1 - 3% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 5 - 17% - Performing lightweight closure conversion 0 - 0% - Determining parents 1 - 2% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 1% - Determining blocked environments 0 - 0% - Determining allocations 1 - 2% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 1 - 2% - Generating code 0 - 1% - Removing unused declarations 0 - 1% - Removing unused labels 1 - 2% - Writing database 0 - 0% - Compiling C code 31.40user 0.61system 0:34.71elapsed 92%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32298major+215645minor)pagefaults 0swaps run graphs 11.76user 0.13system 0:12.06elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (87major+2989minor)pagefaults 0swaps compile lattice Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 15379 expressions 6 internal symbol types 0 external symbol types 23 primitive procedure types 209 non-called native procedure types 275 called noop native procedure types 135 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 16 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 17603 type sets 621 hunoz variables 1569 non-hunoz variables 493 noop environments 1633 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 16210 expressions 6 internal symbol types 0 external symbol types 23 primitive procedure types 209 non-called native procedure types 277 called noop native procedure types 170 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 18 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 18488 type sets 623 hunoz variables 1635 non-hunoz variables 495 noop environments 1686 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 10 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 2667 expressions 6 internal symbol types 0 external symbol types 23 primitive procedure types 209 non-called native procedure types 277 called noop native procedure types 170 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 18 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 3618 type sets 282 hunoz variables 649 non-hunoz variables 0 noop environments 188 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 10 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: MAP[910] reentrant has the following parameters: PROC{1548} local LIST1{1549} local has the following in-lined locals: X{763} LIST{922} LIST{925} R{926} LIST1{1553} C{1554} PAIR{2192} LOOP[229] reentrant has the following parameters: LIST1{878} local LIST2{879} local LISTS{880} local CAR[138] has the following parameter: PAIR{803} local COUNT-MAPS[95] has the following parameters: SOURCE{771} local TARGET{772} local LOOP[93] reentrant has the following parameter: X{770} local has the following in-lined locals: SS{870} SS{873} v{874} v{875} SS{883} SS{904} MAPS[88] has the following parameters: SOURCE{764} local TARGET{765} local has the following in-lined locals: ELEM-LIST{712} CMP-FUNC{713} PAIR{2195} MAPS-REST[85] reentrant has closure has the following parameters: SOURCE{755} slotted TARGET{756} slotted PAS{757} slotted REST{758} local TO-1{759} slotted TO-COLLECT{760} slotted has the following in-lined locals: LST{715} AC{718} LST{719} HEAD{720} LST{730} AC{733} LST{734} HEAD{735} LST{737} LST{740} REST{741} SOURCE{742} TARGET{743} PAS{744} NEW{745} SCMP{747} MORE{748} LESS{749} P{753} P{754} X{766} X{767} X{777} X{780} C{781} PAIR{804} OBJS{847} PAIR{2193} PAIR{2194} LST{2245} AC{2248} LST{2249} HEAD{2250} LST{2252} LST{2255} REST{2256} PAIR{2257} [inside MAPS-1 82] has the following parameter: T2{752} local has the following in-lined locals: OBJ{2190} LIST{2191} [inside MAPS-1 81] has the following parameter: T2{751} local has the following in-lined locals: OBJ{938} LIST{939} [inside top level 60] has the following parameter: LST{723} local has the following in-lined locals: FO{724} FUM{725} NEXT{726} LEX-FIRST[41] reentrant has parent parameter [inside LEXICO 32] has the following parameters: LHS{707} local RHS{708} local has the following in-lined locals: FIXED{698} LHS{699} RHS{700} LHS{703} RHS{704} PROBE{705} v{706} PROBE{709} v{710} v{711} OBJ1{784} v{786} OBJ1{2198} v{2200} OBJ1{2203} v{2205} OBJ1{2208} v{2210} [inside loop 17] has the following parameters: LHS{688} local RHS{689} local has the following in-lined locals: v{690} v{691} v{692} OBJ1{2213} v{2215} OBJ1{2218} v{2220} OBJ1{2223} v{2225} OBJ1{2228} v{2230} OBJ1{2233} v{2235} OBJ1{2238} v{2240} [inside top level 0] has the following in-lined locals: I{679} L2{681} L3{682} L4{683} ELEM-LIST{2196} The following non-trivial in-line native procedures will be generated: [clone CDR[139] 2180] has the following parameter: PAIR{2257} local [clone [inside DRUDGE 75] 2178] has the following parameter: REST{2256} local [clone DRUDGE[74] 2177] has the following parameter: LST{2255} local [clone MAP-AND[71] 2174] has the following parameter: LST{2252} local [clone [inside SELECT-A 69] 2172] has the following parameter: HEAD{2250} local [clone SELECT-A[68] 2171] has the following parameters: AC{2248} local LST{2249} local [clone SELECT-MAP[65] 2168] has the following parameter: LST{2245} local [clone [inside EQV? 123] 2165] has the following parameter: v{2240} local [clone EQV?[122] 2164] has the following parameter: OBJ1{2238} local [clone [inside EQV? 123] 2161] has the following parameter: v{2235} local [clone EQV?[122] 2160] has the following parameter: OBJ1{2233} local [clone [inside EQV? 123] 2157] has the following parameter: v{2230} local [clone EQV?[122] 2156] has the following parameter: OBJ1{2228} local [clone [inside EQV? 123] 2153] has the following parameter: v{2225} local [clone EQV?[122] 2152] has the following parameter: OBJ1{2223} local [clone [inside EQV? 123] 2149] has the following parameter: v{2220} local [clone EQV?[122] 2148] has the following parameter: OBJ1{2218} local [clone [inside EQV? 123] 2145] has the following parameter: v{2215} local [clone EQV?[122] 2144] has the following parameter: OBJ1{2213} local [clone [inside EQV? 123] 2141] has the following parameter: v{2210} local [clone EQV?[122] 2140] has the following parameter: OBJ1{2208} local [clone [inside EQV? 123] 2137] has the following parameter: v{2205} local [clone EQV?[122] 2136] has the following parameter: OBJ1{2203} local [clone [inside EQV? 123] 2133] has the following parameter: v{2200} local [clone EQV?[122] 2132] has the following parameter: OBJ1{2198} local [clone MAKE-LATTICE[51] 2131] has the following parameter: ELEM-LIST{2196} local [clone CDR[139] 2130] has the following parameter: PAIR{2195} local [clone CDR[139] 2129] has the following parameter: PAIR{2194} local [clone CDR[139] 2128] has the following parameter: PAIR{2193} local [clone CDR[139] 2127] has the following parameter: PAIR{2192} local [clone MEMQ[313] 2126] has the following parameters: OBJ{2190} local LIST{2191} local LOOP[914] reentrant has the following parameters: LIST1{1553} local C{1554} local [inside MAP 911] reentrant MEMQ[313] has the following parameters: OBJ{938} local LIST{939} local LOOP[291] has the following parameters: LIST{925} local R{926} local LIST-REVERSE[288] has the following parameter: LIST{922} local LOOP[261] has the following parameter: SS{904} local LOOP[233] has the following parameter: SS{883} local [inside LOOP 222] has the following parameter: v{875} local [inside LOOP 221] has the following parameter: v{874} local LOOP[220] has the following parameter: SS{873} local APPEND[216] has the following parameter: SS{870} local LIST[180] has the following parameter: OBJS{847} local CDR[139] has the following parameter: PAIR{804} local [inside EQV? 123] has the following parameter: v{786} local EQV?[122] has the following parameter: OBJ1{784} local LOOP[104] has the following parameters: X{780} local C{781} local [inside COUNT-MAPS 101] has the following parameter: X{777} local [inside COUNT-MAPS 96] has the following parameter: COUNT{773} global [inside MAPS 90] has the following parameter: X{767} local [inside MAPS 89] reentrant has the following parameter: X{766} local [inside MAPS-REST 87] reentrant has parent parameter [inside MAPS-REST 86] has the following parameter: X{763} local [inside MAPS-REST 86] reentrant has parent parameter MAPS-REST[85] has closure has parent slot MAPS-REST[85] has the following parameters: REST{761} slotted NEXT{762} slotted [inside MAPS-1 84] has the following parameter: P{754} local [inside MAPS-1 83] has the following parameter: P{753} local [inside MAPS-1 80] has the following parameter: T{750} global [inside MAPS-1 79] has the following parameters: MORE{748} local LESS{749} local [inside MAPS-1 78] has the following parameters: TCMP{746} global SCMP{747} local MAPS-1[77] has the following parameters: SOURCE{742} local TARGET{743} local PAS{744} local NEW{745} local [inside DRUDGE 75] has the following parameter: REST{741} local DRUDGE[74] has the following parameter: LST{740} local MAP-AND[71] has the following parameter: LST{737} local [inside SELECT-A 69] has the following parameter: HEAD{735} local SELECT-A[68] has the following parameters: AC{733} local LST{734} local SELECT-MAP[65] has the following parameter: LST{730} local [inside ROTATE 62] has the following parameter: NEXT{726} local ROTATE[61] has the following parameters: FO{724} local FUM{725} local [inside SELECT-A 56] has the following parameter: HEAD{720} local SELECT-A[55] has the following parameters: AC{718} local LST{719} local ZULU-SELECT[52] has the following parameter: LST{715} local MAKE-LATTICE[51] has the following parameters: ELEM-LIST{712} local CMP-FUNC{713} local [inside LEX-FIRST 46] reentrant has parent parameter [inside LEXICO 32] [inside LEX-FIRST 45] reentrant has parent parameter [inside LEXICO 32] [inside LEX-FIRST 44] has the following parameter: v{711} local [inside LEX-FIRST 43] reentrant has parent parameter [inside LEXICO 32] has the following parameter: v{710} local [inside LEX-FIRST 42] reentrant has parent parameter [inside LEXICO 32] has the following parameter: PROBE{709} local [inside CHECK 39] has the following parameter: v{706} local [inside CHECK 38] reentrant has parent parameter LEXICO[31] has the following parameter: PROBE{705} local CHECK[37] reentrant has parent parameter LEXICO[31] has the following parameters: LHS{703} local RHS{704} local [inside LEX-FIXED 36] reentrant has parent parameter LEXICO[31] [inside LEX-FIXED 35] reentrant has parent parameter LEXICO[31] has the following parameter: CHECK{701} hidden as CHECK[37] LEX-FIXED[34] reentrant has parent parameter LEXICO[31] has the following parameters: FIXED{698} local LHS{699} local RHS{700} local [inside LEXICO 33] has parent parameter [inside LEXICO 32] [inside LEXICO 32] has parent parameter LEXICO[31] has closure has parent slot LEXICO[31] has the following parameters: LEX-FIRST{694} slotted LEX-FIXED{695} slotted LEXICO[31] has closure has the following parameter: BASE{693} slotted [inside loop 25] has the following parameter: v{692} local [inside loop 20] has the following parameter: v{691} local [inside loop 18] has the following parameter: v{690} local [inside loop 14] has the following parameter: L4{683} local [inside loop 13] has the following parameter: L3{682} local [inside loop 12] has region has the following parameter: L2{681} local loop[8] has region has the following parameter: I{679} local [inside top level 4] has the following parameter: PRINT-FREQUENCY{650} global The following expression, lattice-stalin.sc:68:1802, allocates on [inside loop 12]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (FUNC HEAD) AC) The following expression, lattice-stalin.sc:33:869, allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ELEM-LIST CMP-FUNC) The following expression allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC (# LIST1)) C) The following expression allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1) (LOOP (# LIST1) LIST2 LISTS)) The following expression, lattice-stalin.sc:121:3230, allocates on the stack: (APPEND ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) X) (LOOP (# X))) The following expression, lattice-stalin.sc:118:3141, allocates on loop[8]: (LIST (MAP CDR X)) The following expression, lattice-stalin.sc:106:2887, allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NEXT X) PAS) The following expression, lattice-stalin.sc:106:2893, allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NEXT X) The following expression, lattice-stalin.sc:68:1802, allocates on [inside loop 12]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (FUNC HEAD) AC) The following expression, lattice-stalin.sc:47:1178, allocates on [inside loop 12]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) HEAD AC) The following expression, lattice-stalin.sc:33:869, allocates on [inside loop 12]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ELEM-LIST CMP-FUNC) The closure for [inside MAPS-REST 86] is allocated on the stack The closure for MAPS-REST[85] is allocated on the stack The closure for [inside LEXICO 32] is allocated on [inside loop 12] The closure for LEXICO[31] is allocated on [inside loop 12] Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W16257 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code lattice-stalin.c: In function `f88': lattice-stalin.c:434: warning: `a694' might be used uninitialized in this function lattice-stalin.c: In function `f41': lattice-stalin.c:1125: warning: `r41' might be used uninitialized in this function Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 9% - Expanding macros 2 - 10% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 1 - 2% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 7 - 33% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 1 - 3% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 1% - Determining which environments are called more than once 0 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 1% - Inverting points-to relation 2 - 8% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 1% - Determining which environments are recursive 0 - 2% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 3 - 13% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 2% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 0 - 2% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 2% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 0 - 2% - Generating code 0 - 1% - Removing unused declarations 0 - 1% - Removing unused labels 0 - 1% - Writing database 0 - 0% - Compiling C code 22.25user 0.29system 0:24.39elapsed 92%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32259major+215072minor)pagefaults 0swaps run lattice 39.94user 0.37system 0:40.92elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (81major+13877minor)pagefaults 0swaps 3802.540u 53.350s 1:08:44.82 93.4% 0+0k 0+0io 1266679pf+0w compile boyer Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 20220 expressions 125 internal symbol types 0 external symbol types 31 primitive procedure types 204 non-called native procedure types 274 called noop native procedure types 139 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 1968 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 26317 type sets 629 hunoz variables 1530 non-hunoz variables 494 noop environments 1744 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 20648 expressions 125 internal symbol types 0 external symbol types 30 primitive procedure types 230 non-called native procedure types 273 called noop native procedure types 123 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 1970 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 26763 type sets 633 hunoz variables 1560 non-hunoz variables 494 noop environments 1791 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 8 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 6348 expressions 125 internal symbol types 0 external symbol types 30 primitive procedure types 206 non-called native procedure types 273 called noop native procedure types 123 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 1970 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 11116 type sets 283 hunoz variables 563 non-hunoz variables 0 noop environments 140 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 3 Maximal clone rate is 8 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: DISPLAY-STRING2[1505] has the following parameters: STRING{1846} local PORT{1847} local has the following in-lined locals: N{1848} I{1851} MEMBER[308] has the following parameters: OBJ{911} local LIST{912} local CADDDR[154] has the following parameter: PAIR{797} local EQUAL?[120] reentrant has the following parameters: OBJ1{760} local OBJ2{761} local has the following in-lined locals: OBJ1{753} OBJ2{754} v{755} v{762} v{763} TRUEP[88] has the following parameters: X{748} local LST{749} local has the following in-lined local: v{750} TAUTOLOGYP[73] reentrant has region has the following parameters: X{738} local TRUE-LST{739} local FALSE-LST{740} local has the following in-lined locals: PAIR{779} PAIR{785} PAIR{2169} PAIR{2171} PAIR{2172} PAIR{2173} REWRITE-ARGS[65] reentrant has the following parameter: LST{735} local REWRITE[62] reentrant has region has the following parameter: TERM{734} local has the following in-lined locals: ALIST{717} TERM{718} TERM1{725} TERM2{726} TERM{736} LST{737} PAIR{2170} PAIR{2174} TERM1{2185} TERM2{2186} ONE-WAY-UNIFY1-LST[58] reentrant has the following parameters: LST1{732} local LST2{733} local has the following in-lined locals: TERM1{728} TERM2{729} OBJ{2161} ALIST{2162} FALSEP[44] has the following parameters: X{722} local LST{723} local has the following in-lined local: v{724} APPLY-SUBST-LST[41] reentrant has the following parameters: ALIST{720} local LST{721} local has the following in-lined locals: ALIST{2179} TERM{2180} OBJ{2191} ALIST{2192} GET[16] has the following parameter: X{701} local has the following in-lined locals: W{703} V{704} ALIST{2164} OBJ{2165} ALIST{2166} [inside top level 0] has the following in-lined locals: I{655} X{705} Z{707} W{708} V{710} TERM{712} LST{715} X{741} TERM{742} ANS{743} ALIST{914} OBJ{1901} PORT{1902} OBJ{2144} OBJ{2159} ALIST{2160} PAIR{2175} PAIR{2176} PAIR{2177} ALIST{2182} TERM{2183} The following non-trivial in-line native procedures will be generated: [clone ASSQ[309] 2284] has the following parameters: OBJ{2191} local ALIST{2192} local [clone ONE-WAY-UNIFY1[48] 2270] has the following parameters: TERM1{2185} local TERM2{2186} local [clone APPLY-SUBST[34] 2263] has the following parameters: ALIST{2182} local TERM{2183} local [clone [inside APPLY-SUBST 40] 2262] reentrant [clone APPLY-SUBST[34] 2256] reentrant has the following parameters: ALIST{2179} local TERM{2180} local [clone CADR[136] 2251] has the following parameter: PAIR{2177} local [clone CADR[136] 2250] has the following parameter: PAIR{2176} local [clone CADR[136] 2249] has the following parameter: PAIR{2175} local [clone CADR[136] 2248] has the following parameter: PAIR{2174} local [clone CADR[136] 2247] has the following parameter: PAIR{2173} local [clone CADR[136] 2246] has the following parameter: PAIR{2172} local [clone CADR[136] 2245] has the following parameter: PAIR{2171} local [clone CADDR[142] 2244] has the following parameter: PAIR{2170} local [clone CADDR[142] 2243] has the following parameter: PAIR{2169} local [clone ASSQ[309] 2241] has the following parameters: OBJ{2165} local ALIST{2166} local [clone ASSQ[309] 2240] has the following parameter: ALIST{2164} local [clone ASSQ[309] 2239] has the following parameters: OBJ{2161} local ALIST{2162} local [clone ASSQ[309] 2238] has the following parameters: OBJ{2159} local ALIST{2160} local WRITE[1988] has the following parameter: OBJ{2144} local WRITE2[1581] has the following parameters: OBJ{1901} local PORT{1902} local LOOP[1509] has the following parameter: I{1851} local [inside DISPLAY-STRING2 1506] has the following parameter: N{1848} local [inside top level 1501] has the following parameter: THE-CURRENT-OUTPUT-PORT{1807} global ASSQ[309] has the following parameter: ALIST{914} local CADDR[142] has the following parameter: PAIR{785} local CADR[136] has the following parameter: PAIR{779} local [inside EQUAL? 122] has the following parameter: v{763} local [inside EQUAL? 121] reentrant has the following parameter: v{762} local [inside EQV? 116] has the following parameter: v{755} local EQV?[115] has the following parameters: OBJ1{753} local OBJ2{754} local [inside TRUEP 89] has the following parameter: v{750} local [inside TEST 84] has region has the following parameters: TERM{742} local ANS{743} local TAUTP[82] has the following parameter: X{741} local [inside TAUTOLOGYP 80] reentrant [inside TAUTOLOGYP 79] reentrant [inside TAUTOLOGYP 78] reentrant [inside TAUTOLOGYP 77] reentrant [inside REWRITE-WITH-LEMMAS 71] reentrant [inside REWRITE-WITH-LEMMAS 70] reentrant REWRITE-WITH-LEMMAS[68] reentrant has the following parameters: TERM{736} local LST{737} local [inside REWRITE-ARGS 67] reentrant [inside REWRITE 64] reentrant [inside ONE-WAY-UNIFY1-LST 60] reentrant [inside ONE-WAY-UNIFY1 56] reentrant ONE-WAY-UNIFY1[48] reentrant has the following parameters: TERM1{728} local TERM2{729} local ONE-WAY-UNIFY[46] has the following parameters: TERM1{725} local TERM2{726} local [inside FALSEP 45] has the following parameter: v{724} local [inside APPLY-SUBST-LST 43] reentrant APPLY-SUBST[34] has the following parameters: ALIST{717} local TERM{718} local ADD-LEMMA-LST[30] has the following parameter: LST{715} local ADD-LEMMA[26] has the following parameter: TERM{712} local [inside PUT 22] has the following parameter: V{710} local [inside PUT 20] has the following parameter: W{708} local PUT[19] has the following parameters: X{705} local Z{707} local [inside GET 18] has the following parameter: V{704} local [inside GET 17] has the following parameter: W{703} local [inside RUN 14] has region has the following parameters: TEMP-TEMP{673} global UNIFY-SUBST{674} global *PROPERTY-LISTS*{677} global loop[8] has the following parameter: I{655} local The following expression, boyer-stalin.sc:74:2576, allocates on [inside TEST 84]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TERM) (APPLY-SUBST-LST ALIST (# TERM))) The following expression, boyer-stalin.sc:74:2576, allocates on [inside TEST 84]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TERM) (APPLY-SUBST-LST ALIST (# TERM))) The following expression, boyer-stalin.sc:279:11790, allocates on TAUTOLOGYP[73]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CADR X) FALSE-LST) The following expression, boyer-stalin.sc:275:11687, allocates on TAUTOLOGYP[73]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CADR X) TRUE-LST) The following expression, boyer-stalin.sc:111:3731, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (REWRITE (# LST)) (REWRITE-ARGS (# LST))) The following expression, boyer-stalin.sc:106:3582, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TERM) (REWRITE-ARGS (# TERM))) The following expression, boyer-stalin.sc:91:3157, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TERM2 TERM1) UNIFY-SUBST) The following expression, boyer-stalin.sc:91:3163, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TERM2 TERM1) The following expression, boyer-stalin.sc:78:2710, allocates on [inside TEST 84]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (APPLY-SUBST ALIST (# LST)) (APPLY-SUBST-LST ALIST (# LST))) The following expression, boyer-stalin.sc:74:2576, allocates on REWRITE[62]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TERM) (APPLY-SUBST-LST ALIST (# TERM))) The following expression, boyer-stalin.sc:60:2133, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TERM (GET (# #) 'LEMMAS)) The following expression, boyer-stalin.sc:47:1749, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X '()) The following expression, boyer-stalin.sc:48:1793, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) W *PROPERTY-LISTS*) The following expression, boyer-stalin.sc:50:1890, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) W)) The following expression, boyer-stalin.sc:50:1896, allocates on [inside RUN 14]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y Z) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W20636 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 1% - Expanding macros 3 - 1% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 1 - 0% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 230 - 66% - Performing flow analysis 0 - 0% - Enumerating call sites 3 - 1% - Determining which types and type sets are used 2 - 1% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 0% - Determining which environments are called more than once 0 - 0% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 3 - 1% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 0% - Determining which environments are recursive 0 - 0% - Determining which environments are reentrant 30 - 8% - Asserting uniqueness 40 - 11% - Performing lightweight closure conversion 0 - 0% - Determining parents 2 - 1% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 24 - 7% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 1 - 0% - Generating code 5 - 1% - Removing unused declarations 1 - 0% - Removing unused labels 1 - 0% - Writing database 0 - 0% - Compiling C code 352.42user 1.18system 6:02.44elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32598major+433472minor)pagefaults 0swaps run boyer 66.63user 11.67system 1:19.57elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (99major+465049minor)pagefaults 0swaps compile graphs Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 16055 expressions 3 internal symbol types 0 external symbol types 31 primitive procedure types 211 non-called native procedure types 275 called noop native procedure types 211 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 33 structure types 8 headed vector types 1 nonheaded vector type 0 displaced vector types 18421 type sets 665 hunoz variables 1626 non-hunoz variables 495 noop environments 1714 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 5 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 17161 expressions 3 internal symbol types 0 external symbol types 31 primitive procedure types 211 non-called native procedure types 289 called noop native procedure types 285 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 46 structure types 14 headed vector types 1 nonheaded vector type 0 displaced vector types 19687 type sets 694 hunoz variables 1779 non-hunoz variables 509 noop environments 1842 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 5 Maximal clone rate is 40 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 3625 expressions 3 internal symbol types 0 external symbol types 31 primitive procedure types 211 non-called native procedure types 289 called noop native procedure types 285 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 46 structure types 14 headed vector types 1 nonheaded vector type 0 displaced vector types 4812 type sets 352 hunoz variables 782 non-hunoz variables 0 noop environments 339 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 5 Maximal clone rate is 40 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: [inside MAKE-REACH? 215] has the following parameter: V{916} local has the following in-lined locals: FROM-V{917} X{920} LIST1{1713} LIST1{1717} [inside FOLD-OVER-RDG 204] -**-[167] reentrant has parent parameter [inside -*- 164] has the following parameters: SV{867} local OUTS{868} local STATE{869} local has the following in-lined locals: STATE{871} FROM-SV{872} SV-OUT{873} STATE{874} STATE{877} STATE{883} STATE{884} STATE{890} [inside -*- 157] has the following parameter: I{861} local -*-[147] reentrant has region has the following parameters: V{849} local OUTS{850} local EFR{851} local EFRR{852} local STATE{853} local has the following in-lined locals: SIZE{695} X{699} I{703} LIMIT{742} I{748} v{749} LST{758} LST{764} v{765} v{854} STATE{856} V{858} R{859} OBJ1{940} OBJ2{941} X{977} v{978} SLOW{981} FAST{982} v{983} FAST{984} v{985} -*-[140] reentrant has closure has the following parameters: VERTEX{842} slotted STATE{843} local has the following in-lined locals: LIMIT{734} I{740} V{863} SIZE{901} RES{909} M{911} FROM-M{912} F{913} FROM-F{914} T{915} LIST{987} K{990} S{992} SIZE{2415} X{2419} I{2423} LIMIT{2445} I{2451} LIMIT{2453} I{2459} LIMIT{2461} I{2467} CMP-NEXT-VERTEX[114] has the following parameters: GRAPH{814} local PERM{815} local X{816} local PERM-X{817} local has the following in-lined locals: FROM-PERM-X{818} FROM-X{819} Y{822} PERM-Y{823} X->Y?{824} Y->X?{825} [inside MAKE-MINIMAL? 103] has the following parameters: SIZE{796} global GRAPH{797} global FOLDER{798} global has the following in-lined locals: UNIVERSE{766} B-STATE{768} X{2478} v{2479} SLOW{2482} FAST{2483} v{2484} FAST{2485} v{2486} [inside FOLD-OVER-PERM-TREE 99] [inside -**- 96] reentrant has parent parameter [inside -**- 92] -**-[90] reentrant has parent parameter -*-[87] has closure has parent slot -*-[87] has the following parameters: IN{782} local OUT{783} slotted has the following in-lined locals: LST{686} STATE{688} LST{693} STATE{694} ACCROSS{787} NEW-B-STATE{788} PERM-X{803} X{804} DEEPER{806} ACCROSS{807} v{808} OBJ1{2329} OBJ2{2330} OBJ1{2400} v{2402} OBJ1{2405} v{2407} OBJ1{2410} v{2412} X{2469} v{2470} SLOW{2473} FAST{2474} v{2475} FAST{2476} v{2477} -*-[87] reentrant has closure has the following parameters: UNIVERSE{776} local B-STATE{777} slotted ACCROSS{779} slotted has the following in-lined locals: LEAF-DEPTH{810} ACCROSS{812} PERM{894} ACCROSS{896} v{898} v{899} ACCROSS{904} OBJ1{923} v{925} OBJ1{2385} v{2387} OBJ1{2390} v{2392} OBJ1{2395} OBJ2{2396} v{2397} v{2398} GIOTA[38] has the following parameter: LIMIT{718} local has the following in-lined locals: LIMIT{722} RES{723} LIMIT{724} [inside top level 0] has the following in-lined locals: N{683} SIZE{2425} X{2429} I{2433} SIZE{2435} X{2439} I{2443} The following non-trivial in-line native procedures will be generated: [clone [inside LOOP? 294] 2367] has the following parameter: v{2486} local [clone [inside LOOP? 293] 2366] has the following parameter: FAST{2485} local [clone [inside LOOP? 292] 2365] has the following parameter: v{2484} local [clone LOOP?[291] 2364] has the following parameters: SLOW{2482} local FAST{2483} local [clone [inside LIST? 288] 2361] has the following parameter: v{2479} local [clone LIST?[287] 2360] has the following parameter: X{2478} local [clone [inside LOOP? 294] 2358] has the following parameter: v{2477} local [clone [inside LOOP? 293] 2357] has the following parameter: FAST{2476} local [clone [inside LOOP? 292] 2356] has the following parameter: v{2475} local [clone LOOP?[291] 2355] has the following parameters: SLOW{2473} local FAST{2474} local [clone [inside LIST? 288] 2352] has the following parameter: v{2470} local [clone LIST?[287] 2351] has the following parameter: X{2469} local [clone loop[57] 2346] has the following parameter: I{2467} local [clone GNATURAL-FOR-EACH[53] 2342] has region has the following parameter: LIMIT{2461} local [clone loop[57] 2337] has the following parameter: I{2459} local [clone GNATURAL-FOR-EACH[53] 2333] has region has the following parameter: LIMIT{2453} local [clone loop[57] 2328] has the following parameter: I{2451} local [clone GNATURAL-FOR-EACH[53] 2324] has region has the following parameter: LIMIT{2445} local [clone LOOP[22] 2319] has the following parameter: I{2443} local [clone [inside PROC->VECTOR 18] 2315] has the following parameter: X{2439} local [clone PROC->VECTOR[16] 2313] has the following parameter: SIZE{2435} local [clone LOOP[22] 2308] has the following parameter: I{2433} local [clone [inside PROC->VECTOR 18] 2304] has the following parameter: X{2429} local [clone PROC->VECTOR[16] 2302] has the following parameter: SIZE{2425} local [clone LOOP[22] 2297] has the following parameter: I{2423} local [clone [inside PROC->VECTOR 18] 2293] has the following parameter: X{2419} local [clone PROC->VECTOR[16] 2291] has region has the following parameter: SIZE{2415} local [clone [inside EQV? 239] 2288] has the following parameter: v{2412} local [clone EQV?[238] 2287] has the following parameter: OBJ1{2410} local [clone [inside EQV? 239] 2284] has the following parameter: v{2407} local [clone EQV?[238] 2283] has the following parameter: OBJ1{2405} local [clone [inside EQV? 239] 2280] has the following parameter: v{2402} local [clone EQV?[238] 2279] has the following parameter: OBJ1{2400} local [clone [inside EQV? 240] 2277] has the following parameter: v{2398} local [clone [inside EQV? 239] 2276] has the following parameter: v{2397} local [clone EQV?[238] 2275] has the following parameters: OBJ1{2395} local OBJ2{2396} local [clone [inside EQV? 239] 2272] has the following parameter: v{2392} local [clone EQV?[238] 2271] has the following parameter: OBJ1{2390} local [clone [inside EQV? 239] 2268] has the following parameter: v{2387} local [clone EQV?[238] 2267] has the following parameter: OBJ1{2385} local [clone CONS[253] 2239] has the following parameters: OBJ1{2329} local OBJ2{2330} local LOOP[1051] has the following parameter: LIST1{1717} local FOR-EACH[1047] has the following parameter: LIST1{1713} local LENGTH[305] has the following parameter: S{992} local LOOP[300] has the following parameter: K{990} local LIST-LENGTH[297] has the following parameter: LIST{987} local [inside LOOP? 294] has the following parameter: v{985} local [inside LOOP? 293] has the following parameter: FAST{984} local [inside LOOP? 292] has the following parameter: v{983} local LOOP?[291] has the following parameters: SLOW{981} local FAST{982} local [inside LIST? 288] has the following parameter: v{978} local LIST?[287] has the following parameter: X{977} local CONS[253] has the following parameters: OBJ1{940} local OBJ2{941} local [inside EQV? 239] has the following parameter: v{925} local EQV?[238] has the following parameter: OBJ1{923} local [inside MAKE-REACH? 218] has the following parameter: X{920} local [inside MAKE-REACH? 216] has the following parameter: FROM-V{917} local [inside MAKE-REACH? 212] has the following parameter: T{915} local [inside MAKE-REACH? 211] has the following parameter: FROM-F{914} local [inside MAKE-REACH? 210] has the following parameter: F{913} local [inside MAKE-REACH? 209] has the following parameter: FROM-M{912} local [inside MAKE-REACH? 208] has the following parameter: M{911} local [inside MAKE-REACH? 206] has the following parameter: RES{909} local MAKE-REACH?[205] has the following parameters: SIZE{907} global VERTEX->OUT{908} global [inside FOLD-OVER-RDG 203] reentrant [inside FOLD-OVER-RDG 202] reentrant has the following parameter: ACCROSS{904} local [inside FOLD-OVER-RDG 201] has the following parameter: SIZE{901} local [inside FOLD-OVER-RDG 198] reentrant [inside FOLD-OVER-RDG 197] has the following parameter: v{899} local [inside FOLD-OVER-RDG 195] reentrant has the following parameter: v{898} local [inside FOLD-OVER-RDG 194] reentrant [inside FOLD-OVER-RDG 193] reentrant has the following parameters: PERM{894} local ACCROSS{896} local [inside -**- 187] has parent parameter [inside -*- 164] has the following parameter: STATE{890} local [inside -**- 186] reentrant has parent parameter [inside -*- 164] [inside -**- 185] reentrant has parent parameter [inside -*- 164] [inside -**- 183] has parent parameter -*-[140] [inside -**- 182] has parent parameter -*-[140] has the following parameter: STATE{884} local [inside -**- 181] reentrant has parent parameter [inside -*- 164] has the following parameter: STATE{883} local [inside -**- 180] reentrant has parent parameter [inside -*- 164] [inside -**- 179] reentrant has parent parameter [inside -*- 164] [inside -**- 177] has parent parameter [inside -*- 164] has the following parameter: STATE{877} local [inside -**- 176] reentrant has parent parameter [inside -*- 164] [inside -**- 175] reentrant has parent parameter [inside -*- 164] [inside -**- 174] reentrant has parent parameter [inside -*- 164] [inside -**- 173] reentrant has parent parameter [inside -*- 164] has the following parameter: STATE{874} local [inside -**- 172] reentrant has parent parameter [inside -*- 164] has the following parameter: SV-OUT{873} local [inside -**- 171] reentrant has parent parameter [inside -*- 164] has the following parameter: FROM-SV{872} local [inside -**- 170] reentrant has parent parameter [inside -*- 164] has the following parameter: STATE{871} local [inside -**- 169] reentrant has parent parameter -*-[140] [inside -**- 168] reentrant has parent parameter -*-[140] [inside -*- 166] has parent parameter [inside -*- 164] [inside -*- 165] has parent parameter [inside -*- 164] has the following parameter: -**-{865} hidden as -**-[167] [inside -*- 164] reentrant has parent parameter -*-[140] has closure has parent slot -*-[140] has the following parameter: FROM-VERTEX{864} slotted [inside -*- 163] reentrant has parent parameter -*-[140] [inside -*- 162] has region has the following parameter: V{863} local [inside -*- 154] has the following parameter: R{859} local [inside -*- 153] has the following parameter: V{858} local [inside -*- 152] reentrant [inside -*- 151] reentrant has the following parameter: STATE{856} local [inside -*- 150] reentrant [inside -*- 149] reentrant [inside -*- 148] has the following parameter: v{854} local [inside -*- 144] has the following parameters: FROM-ROOT{845} global REACH?{846} global [inside -*- 143] has region [inside FOLD-OVER-RDG 133] has the following parameter: OUT-DEGREES{836} global [inside FOLD-OVER-RDG 132] has the following parameter: EDGES{835} global [inside FOLD-OVER-RDG 131] has the following parameter: EDGE?{834} global [inside FOLD-OVER-RDG 130] has the following parameter: ROOT{833} global FOLD-OVER-RDG[128] has the following parameters: SIZE{826} global MAX-OUT{827} global [inside -*- 121] has the following parameter: Y->X?{825} local [inside -*- 119] has the following parameters: PERM-Y{823} local X->Y?{824} local -*-[118] has the following parameter: Y{822} local [inside CMP-NEXT-VERTEX 115] has the following parameters: FROM-PERM-X{818} local FROM-X{819} local [inside MAKE-MINIMAL? 113] reentrant [inside MAKE-MINIMAL? 112] reentrant has the following parameters: LEAF-DEPTH{810} local ACCROSS{812} local [inside MAKE-MINIMAL? 110] reentrant [inside MAKE-MINIMAL? 109] reentrant [inside MAKE-MINIMAL? 108] reentrant [inside MAKE-MINIMAL? 106] reentrant has the following parameter: v{808} local [inside MAKE-MINIMAL? 105] reentrant has the following parameters: PERM-X{803} local X{804} local DEEPER{806} local ACCROSS{807} local [inside MAKE-MINIMAL? 102] has the following parameters: PERM{794} global IOTAS{795} global MAKE-MINIMAL?[100] has the following parameter: MAX-SIZE{792} global [inside -**- 95] reentrant has parent parameter [inside -**- 92] has region has the following parameter: NEW-B-STATE{788} local [inside -**- 94] reentrant has parent parameter [inside -**- 92] [inside -**- 93] reentrant has parent parameter [inside -**- 92] has the following parameter: ACCROSS{787} local [inside -**- 92] reentrant has parent parameter [inside -**- 91] has closure has parent slot [inside -**- 91] has the following parameter: REST{786} slotted [inside -**- 91] reentrant has parent parameter -**-[90] has closure has parent slot -**-[90] has the following parameter: FIRST{785} slotted [inside -*- 89] has parent parameter -*-[87] [inside -*- 88] has parent parameter -*-[87] has the following parameter: -**-{780} hidden as -**-[90] FOLD-OVER-PERM-TREE[83] has the following parameters: UNIVERSE{766} local B-STATE{768} local [inside -*- 81] has the following parameter: v{765} local -*-[80] has the following parameter: LST{764} local THERE-EXISTS?[76] has region has the following parameter: LST{758} local [inside -*- 67] has the following parameter: v{749} local -*-[66] has the following parameter: I{748} local NATURAL-FOR-ALL?[62] has region has the following parameter: LIMIT{742} local loop[57] has the following parameter: I{740} local GNATURAL-FOR-EACH[53] has region has the following parameter: LIMIT{734} local [inside -*- 43] has the following parameter: LIMIT{724} local -*-[42] has the following parameters: LIMIT{722} local RES{723} local LOOP[22] has the following parameter: I{703} local [inside PROC->VECTOR 18] has the following parameter: X{699} local PROC->VECTOR[16] has region has the following parameter: SIZE{695} local loop[12] has the following parameters: LST{693} local STATE{694} local FOLD[8] has region has the following parameters: LST{686} local STATE{688} local [inside top level 6] has the following parameter: N{683} local Warning! The following tail-recursive tail calls are not merged: From the following expression, graphs-stalin.sc:149:5239: (\-*- (FOLD OUT CONS REST) NEW-B-STATE NEW-T-STATE ACCROSS) to -*-[87] From the following expression, graphs-stalin.sc:144:5105: (\-**- REST ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) FIRST OUT) NEW-T-STATE) to -**-[90] From the following expression, graphs-stalin.sc:136:4908: (((LAMBDA # # \-**-) (#)) UNIVERSE '() T-STATE) to -**-[90] From the following expression, graphs-stalin.sc:199:7032: (ACCROSS STATE) to [inside -**- 96] From the following expression, graphs-stalin.sc:314:10739: (\-*- ((PRIMITIVE-PROCEDURE +) VERTEX 1) STATE) to -*-[140] From the following expression, graphs-stalin.sc:308:10599: (((LAMBDA # # \-**-) (#)) 0 0 STATE) to -**-[167] From the following expression, graphs-stalin.sc:260:9267: (ACCROSS #T) to [inside -**- 96] From the following expression, graphs-stalin.sc:252:8995: (ACCROSS #T) to [inside -**- 96] The following expression, graphs-stalin.sc:68:1934, allocates on [clone GNATURAL-FOR-EACH[53] 2342]: (GRAPHS:ASSERT (IF (# LIMIT) (IF # # #F) #F) LIMIT) The following expression, graphs-stalin.sc:68:1934, allocates on [clone GNATURAL-FOR-EACH[53] 2333]: (GRAPHS:ASSERT (IF (# LIMIT) (IF # # #F) #F) LIMIT) The following expression, graphs-stalin.sc:68:1934, allocates on [clone GNATURAL-FOR-EACH[53] 2324]: (GRAPHS:ASSERT (IF (# LIMIT) (IF # # #F) #F) LIMIT) The following expression, graphs-stalin.sc:20:561, allocates on the heap: (GRAPHS:ASSERT (IF (# SIZE) (IF # # #F) #F) SIZE) The following expression, graphs-stalin.sc:24:714, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE (F 0)) The following expression, graphs-stalin.sc:23:690, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR)) The following expression, graphs-stalin.sc:20:561, allocates on the heap: (GRAPHS:ASSERT (IF (# SIZE) (IF # # #F) #F) SIZE) The following expression, graphs-stalin.sc:24:714, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE (F 0)) The following expression, graphs-stalin.sc:23:690, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR)) The following expression, graphs-stalin.sc:20:561, allocates on [clone PROC->VECTOR[16] 2291]: (GRAPHS:ASSERT (IF (# SIZE) (IF # # #F) #F) SIZE) The following expression, graphs-stalin.sc:24:714, allocates on [inside -*- 143]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE (F 0)) The following expression, graphs-stalin.sc:23:690, allocates on [inside -*- 143]: ((PRIMITIVE-PROCEDURE VECTOR)) The following expression allocates on [inside -**- 95]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2) The following expression, graphs-stalin.sc:381:12598, allocates on [inside -*- 143]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE #F) The following expression, graphs-stalin.sc:241:8541, allocates on the heap: (GRAPHS:ASSERT (IF (# MAX-OUT) (IF # # #F) #F) MAX-OUT) The following expression, graphs-stalin.sc:240:8471, allocates on the heap: (GRAPHS:ASSERT (IF (# SIZE) (IF # # #F) #F) SIZE) The following expression, graphs-stalin.sc:245:8740, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE #F) The following expression, graphs-stalin.sc:246:8774, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE '()) The following expression, graphs-stalin.sc:247:8813, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE 0) The following expression, graphs-stalin.sc:326:11038, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) VERTEX ((PRIMITIVE-PROCEDURE VECTOR-REF) EDGES SV)) The following expression, graphs-stalin.sc:340:11442, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SV ((PRIMITIVE-PROCEDURE VECTOR-REF) EDGES VERTEX)) The following expression, graphs-stalin.sc:364:12051, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SV ((PRIMITIVE-PROCEDURE VECTOR-REF) EDGES VERTEX)) The following expression, graphs-stalin.sc:273:9585, allocates on [inside -*- 162]: (GRAPHS:ASSERT ((PRIMITIVE-PROCEDURE =) (# OUT-DEGREES V) (LENGTH #)) V ((PRIMITIVE-PROCEDURE VECTOR-REF) OUT-DEGREES V) ((PRIMITIVE-PROCEDURE VECTOR-REF) EDGES V)) The following expression, graphs-stalin.sc:291:10112, allocates on -*-[147]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR-REF) REACH? V) EFRR) The following expression, graphs-stalin.sc:290:10089, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) V EFR) The following expression, graphs-stalin.sc:182:6376, allocates on the heap: (GRAPHS:ASSERT (IF (# MAX-SIZE) (IF # # #F) #F) MAX-SIZE) The following expression, graphs-stalin.sc:185:6523, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) MAX-SIZE 0) The following expression, graphs-stalin.sc:191:6734, allocates on the stack: (GRAPHS:ASSERT ((PRIMITIVE-PROCEDURE PROCEDURE?) FOLDER) FOLDER) The following expression, graphs-stalin.sc:190:6692, allocates on the stack: (GRAPHS:ASSERT ((PRIMITIVE-PROCEDURE VECTOR?) GRAPH) GRAPH) The following expression, graphs-stalin.sc:187:6591, allocates on the stack: (GRAPHS:ASSERT (IF (# SIZE) (IF # # #F) #F) SIZE MAX-SIZE) The following expression, graphs-stalin.sc:203:7133, allocates on the stack: (GRAPHS:ASSERT (EQV? LEAF-DEPTH SIZE) LEAF-DEPTH SIZE) The following expression, graphs-stalin.sc:127:4562, allocates on the stack: (GRAPHS:ASSERT (LIST? UNIVERSE) UNIVERSE) The following expression, graphs-stalin.sc:144:5116, allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) FIRST OUT) The following expression, graphs-stalin.sc:88:2616, allocates on THERE-EXISTS?[76]: (GRAPHS:ASSERT (LIST? LST) LST) The following expression, graphs-stalin.sc:74:2148, allocates on NATURAL-FOR-ALL?[62]: (GRAPHS:ASSERT (IF (# LIMIT) (IF # # #F) #F) LIMIT) The following expression, graphs-stalin.sc:68:1934, allocates on GNATURAL-FOR-EACH[53]: (GRAPHS:ASSERT (IF (# LIMIT) (IF # # #F) #F) LIMIT) The following expression, graphs-stalin.sc:48:1325, allocates on the stack: (GRAPHS:ASSERT (IF (# LIMIT) (IF # # #F) #F) LIMIT) The following expression, graphs-stalin.sc:54:1518, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) LIMIT RES) The following expression, graphs-stalin.sc:20:561, allocates on PROC->VECTOR[16]: (GRAPHS:ASSERT (IF (# SIZE) (IF # # #F) #F) SIZE) The following expression, graphs-stalin.sc:24:714, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE (F 0)) The following expression, graphs-stalin.sc:23:690, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR)) The following expression, graphs-stalin.sc:9:207, allocates on FOLD[8]: (GRAPHS:ASSERT (LIST? LST) LST) The closure for [inside -*- 164] is allocated on the stack The closure for -*-[140] is allocated on the stack The closure for [inside -**- 92] is allocated on the stack The closure for [inside -**- 91] is allocated on the stack The closure for -**-[90] is allocated on the stack The closure for -*-[87] is allocated on the stack Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W17254 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code graphs-stalin.c: In function `f140': graphs-stalin.c:1305: warning: statement with no effect Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 7% - Expanding macros 3 - 8% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 1 - 2% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 8 - 25% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 1 - 4% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 2% - Determining which environments are called more than once 1 - 2% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 4 - 14% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 1% - Determining which environments are recursive 1 - 3% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 5 - 17% - Performing lightweight closure conversion 0 - 0% - Determining parents 1 - 2% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 1% - Determining blocked environments 0 - 0% - Determining allocations 1 - 2% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 1% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 1 - 2% - Generating code 0 - 1% - Removing unused declarations 0 - 1% - Removing unused labels 0 - 1% - Writing database 0 - 0% - Compiling C code 31.04user 0.31system 0:34.29elapsed 91%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32298major+215645minor)pagefaults 0swaps run graphs 11.83user 0.07system 0:12.11elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (87major+2989minor)pagefaults 0swaps compile lattice Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 15379 expressions 6 internal symbol types 0 external symbol types 23 primitive procedure types 209 non-called native procedure types 275 called noop native procedure types 135 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 16 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 17603 type sets 621 hunoz variables 1569 non-hunoz variables 493 noop environments 1633 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 16210 expressions 6 internal symbol types 0 external symbol types 23 primitive procedure types 209 non-called native procedure types 277 called noop native procedure types 170 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 18 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 18488 type sets 623 hunoz variables 1635 non-hunoz variables 495 noop environments 1686 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 10 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 2667 expressions 6 internal symbol types 0 external symbol types 23 primitive procedure types 209 non-called native procedure types 277 called noop native procedure types 170 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 18 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 3618 type sets 282 hunoz variables 649 non-hunoz variables 0 noop environments 188 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 10 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: MAP[910] reentrant has the following parameters: PROC{1548} local LIST1{1549} local has the following in-lined locals: X{763} LIST{922} LIST{925} R{926} LIST1{1553} C{1554} PAIR{2192} LOOP[229] reentrant has the following parameters: LIST1{878} local LIST2{879} local LISTS{880} local CAR[138] has the following parameter: PAIR{803} local COUNT-MAPS[95] has the following parameters: SOURCE{771} local TARGET{772} local LOOP[93] reentrant has the following parameter: X{770} local has the following in-lined locals: SS{870} SS{873} v{874} v{875} SS{883} SS{904} MAPS[88] has the following parameters: SOURCE{764} local TARGET{765} local has the following in-lined locals: ELEM-LIST{712} CMP-FUNC{713} PAIR{2195} MAPS-REST[85] reentrant has closure has the following parameters: SOURCE{755} slotted TARGET{756} slotted PAS{757} slotted REST{758} local TO-1{759} slotted TO-COLLECT{760} slotted has the following in-lined locals: LST{715} AC{718} LST{719} HEAD{720} LST{730} AC{733} LST{734} HEAD{735} LST{737} LST{740} REST{741} SOURCE{742} TARGET{743} PAS{744} NEW{745} SCMP{747} MORE{748} LESS{749} P{753} P{754} X{766} X{767} X{777} X{780} C{781} PAIR{804} OBJS{847} PAIR{2193} PAIR{2194} LST{2245} AC{2248} LST{2249} HEAD{2250} LST{2252} LST{2255} REST{2256} PAIR{2257} [inside MAPS-1 82] has the following parameter: T2{752} local has the following in-lined locals: OBJ{2190} LIST{2191} [inside MAPS-1 81] has the following parameter: T2{751} local has the following in-lined locals: OBJ{938} LIST{939} [inside top level 60] has the following parameter: LST{723} local has the following in-lined locals: FO{724} FUM{725} NEXT{726} LEX-FIRST[41] reentrant has parent parameter [inside LEXICO 32] has the following parameters: LHS{707} local RHS{708} local has the following in-lined locals: FIXED{698} LHS{699} RHS{700} LHS{703} RHS{704} PROBE{705} v{706} PROBE{709} v{710} v{711} OBJ1{784} v{786} OBJ1{2198} v{2200} OBJ1{2203} v{2205} OBJ1{2208} v{2210} [inside loop 17] has the following parameters: LHS{688} local RHS{689} local has the following in-lined locals: v{690} v{691} v{692} OBJ1{2213} v{2215} OBJ1{2218} v{2220} OBJ1{2223} v{2225} OBJ1{2228} v{2230} OBJ1{2233} v{2235} OBJ1{2238} v{2240} [inside top level 0] has the following in-lined locals: I{679} L2{681} L3{682} L4{683} ELEM-LIST{2196} The following non-trivial in-line native procedures will be generated: [clone CDR[139] 2180] has the following parameter: PAIR{2257} local [clone [inside DRUDGE 75] 2178] has the following parameter: REST{2256} local [clone DRUDGE[74] 2177] has the following parameter: LST{2255} local [clone MAP-AND[71] 2174] has the following parameter: LST{2252} local [clone [inside SELECT-A 69] 2172] has the following parameter: HEAD{2250} local [clone SELECT-A[68] 2171] has the following parameters: AC{2248} local LST{2249} local [clone SELECT-MAP[65] 2168] has the following parameter: LST{2245} local [clone [inside EQV? 123] 2165] has the following parameter: v{2240} local [clone EQV?[122] 2164] has the following parameter: OBJ1{2238} local [clone [inside EQV? 123] 2161] has the following parameter: v{2235} local [clone EQV?[122] 2160] has the following parameter: OBJ1{2233} local [clone [inside EQV? 123] 2157] has the following parameter: v{2230} local [clone EQV?[122] 2156] has the following parameter: OBJ1{2228} local [clone [inside EQV? 123] 2153] has the following parameter: v{2225} local [clone EQV?[122] 2152] has the following parameter: OBJ1{2223} local [clone [inside EQV? 123] 2149] has the following parameter: v{2220} local [clone EQV?[122] 2148] has the following parameter: OBJ1{2218} local [clone [inside EQV? 123] 2145] has the following parameter: v{2215} local [clone EQV?[122] 2144] has the following parameter: OBJ1{2213} local [clone [inside EQV? 123] 2141] has the following parameter: v{2210} local [clone EQV?[122] 2140] has the following parameter: OBJ1{2208} local [clone [inside EQV? 123] 2137] has the following parameter: v{2205} local [clone EQV?[122] 2136] has the following parameter: OBJ1{2203} local [clone [inside EQV? 123] 2133] has the following parameter: v{2200} local [clone EQV?[122] 2132] has the following parameter: OBJ1{2198} local [clone MAKE-LATTICE[51] 2131] has the following parameter: ELEM-LIST{2196} local [clone CDR[139] 2130] has the following parameter: PAIR{2195} local [clone CDR[139] 2129] has the following parameter: PAIR{2194} local [clone CDR[139] 2128] has the following parameter: PAIR{2193} local [clone CDR[139] 2127] has the following parameter: PAIR{2192} local [clone MEMQ[313] 2126] has the following parameters: OBJ{2190} local LIST{2191} local LOOP[914] reentrant has the following parameters: LIST1{1553} local C{1554} local [inside MAP 911] reentrant MEMQ[313] has the following parameters: OBJ{938} local LIST{939} local LOOP[291] has the following parameters: LIST{925} local R{926} local LIST-REVERSE[288] has the following parameter: LIST{922} local LOOP[261] has the following parameter: SS{904} local LOOP[233] has the following parameter: SS{883} local [inside LOOP 222] has the following parameter: v{875} local [inside LOOP 221] has the following parameter: v{874} local LOOP[220] has the following parameter: SS{873} local APPEND[216] has the following parameter: SS{870} local LIST[180] has the following parameter: OBJS{847} local CDR[139] has the following parameter: PAIR{804} local [inside EQV? 123] has the following parameter: v{786} local EQV?[122] has the following parameter: OBJ1{784} local LOOP[104] has the following parameters: X{780} local C{781} local [inside COUNT-MAPS 101] has the following parameter: X{777} local [inside COUNT-MAPS 96] has the following parameter: COUNT{773} global [inside MAPS 90] has the following parameter: X{767} local [inside MAPS 89] reentrant has the following parameter: X{766} local [inside MAPS-REST 87] reentrant has parent parameter [inside MAPS-REST 86] has the following parameter: X{763} local [inside MAPS-REST 86] reentrant has parent parameter MAPS-REST[85] has closure has parent slot MAPS-REST[85] has the following parameters: REST{761} slotted NEXT{762} slotted [inside MAPS-1 84] has the following parameter: P{754} local [inside MAPS-1 83] has the following parameter: P{753} local [inside MAPS-1 80] has the following parameter: T{750} global [inside MAPS-1 79] has the following parameters: MORE{748} local LESS{749} local [inside MAPS-1 78] has the following parameters: TCMP{746} global SCMP{747} local MAPS-1[77] has the following parameters: SOURCE{742} local TARGET{743} local PAS{744} local NEW{745} local [inside DRUDGE 75] has the following parameter: REST{741} local DRUDGE[74] has the following parameter: LST{740} local MAP-AND[71] has the following parameter: LST{737} local [inside SELECT-A 69] has the following parameter: HEAD{735} local SELECT-A[68] has the following parameters: AC{733} local LST{734} local SELECT-MAP[65] has the following parameter: LST{730} local [inside ROTATE 62] has the following parameter: NEXT{726} local ROTATE[61] has the following parameters: FO{724} local FUM{725} local [inside SELECT-A 56] has the following parameter: HEAD{720} local SELECT-A[55] has the following parameters: AC{718} local LST{719} local ZULU-SELECT[52] has the following parameter: LST{715} local MAKE-LATTICE[51] has the following parameters: ELEM-LIST{712} local CMP-FUNC{713} local [inside LEX-FIRST 46] reentrant has parent parameter [inside LEXICO 32] [inside LEX-FIRST 45] reentrant has parent parameter [inside LEXICO 32] [inside LEX-FIRST 44] has the following parameter: v{711} local [inside LEX-FIRST 43] reentrant has parent parameter [inside LEXICO 32] has the following parameter: v{710} local [inside LEX-FIRST 42] reentrant has parent parameter [inside LEXICO 32] has the following parameter: PROBE{709} local [inside CHECK 39] has the following parameter: v{706} local [inside CHECK 38] reentrant has parent parameter LEXICO[31] has the following parameter: PROBE{705} local CHECK[37] reentrant has parent parameter LEXICO[31] has the following parameters: LHS{703} local RHS{704} local [inside LEX-FIXED 36] reentrant has parent parameter LEXICO[31] [inside LEX-FIXED 35] reentrant has parent parameter LEXICO[31] has the following parameter: CHECK{701} hidden as CHECK[37] LEX-FIXED[34] reentrant has parent parameter LEXICO[31] has the following parameters: FIXED{698} local LHS{699} local RHS{700} local [inside LEXICO 33] has parent parameter [inside LEXICO 32] [inside LEXICO 32] has parent parameter LEXICO[31] has closure has parent slot LEXICO[31] has the following parameters: LEX-FIRST{694} slotted LEX-FIXED{695} slotted LEXICO[31] has closure has the following parameter: BASE{693} slotted [inside loop 25] has the following parameter: v{692} local [inside loop 20] has the following parameter: v{691} local [inside loop 18] has the following parameter: v{690} local [inside loop 14] has the following parameter: L4{683} local [inside loop 13] has the following parameter: L3{682} local [inside loop 12] has region has the following parameter: L2{681} local loop[8] has region has the following parameter: I{679} local [inside top level 4] has the following parameter: PRINT-FREQUENCY{650} global The following expression, lattice-stalin.sc:68:1802, allocates on [inside loop 12]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (FUNC HEAD) AC) The following expression, lattice-stalin.sc:33:869, allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ELEM-LIST CMP-FUNC) The following expression allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC (# LIST1)) C) The following expression allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1) (LOOP (# LIST1) LIST2 LISTS)) The following expression, lattice-stalin.sc:121:3230, allocates on the stack: (APPEND ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) X) (LOOP (# X))) The following expression, lattice-stalin.sc:118:3141, allocates on loop[8]: (LIST (MAP CDR X)) The following expression, lattice-stalin.sc:106:2887, allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NEXT X) PAS) The following expression, lattice-stalin.sc:106:2893, allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NEXT X) The following expression, lattice-stalin.sc:68:1802, allocates on [inside loop 12]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (FUNC HEAD) AC) The following expression, lattice-stalin.sc:47:1178, allocates on [inside loop 12]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) HEAD AC) The following expression, lattice-stalin.sc:33:869, allocates on [inside loop 12]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ELEM-LIST CMP-FUNC) The closure for [inside MAPS-REST 86] is allocated on the stack The closure for MAPS-REST[85] is allocated on the stack The closure for [inside LEXICO 32] is allocated on [inside loop 12] The closure for LEXICO[31] is allocated on [inside loop 12] Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W16257 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code lattice-stalin.c: In function `f88': lattice-stalin.c:434: warning: `a694' might be used uninitialized in this function lattice-stalin.c: In function `f41': lattice-stalin.c:1125: warning: `r41' might be used uninitialized in this function Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 9% - Expanding macros 2 - 10% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 1 - 2% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 7 - 33% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 1 - 3% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 1% - Determining which environments are called more than once 0 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 1% - Inverting points-to relation 2 - 9% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 1% - Determining which environments are recursive 0 - 2% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 3 - 13% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 2% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 0 - 2% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 2% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 0 - 2% - Generating code 0 - 1% - Removing unused declarations 0 - 1% - Removing unused labels 0 - 1% - Writing database 0 - 0% - Compiling C code 21.92user 0.74system 0:24.87elapsed 91%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32259major+215072minor)pagefaults 0swaps run lattice 39.89user 0.38system 0:40.69elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (81major+13877minor)pagefaults 0swaps compile nucleic2 Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 29187 expressions 0 internal symbol types 0 external symbol types 203 primitive procedure types 212 non-called native procedure types 555 called noop native procedure types 371 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 1744 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 40517 type sets 896 hunoz variables 1964 non-hunoz variables 773 noop environments 1867 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 30379 expressions 0 internal symbol types 0 external symbol types 203 primitive procedure types 270 non-called native procedure types 555 called noop native procedure types 391 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 1780 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 42029 type sets 896 hunoz variables 2316 non-hunoz variables 773 noop environments 2095 non-noop environments 1 call site dispatches on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 31 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 16728 expressions 0 internal symbol types 0 external symbol types 203 primitive procedure types 228 non-called native procedure types 555 called noop native procedure types 391 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 1780 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 26987 type sets 555 hunoz variables 1266 non-hunoz variables 0 noop environments 509 non-noop environments 1 call site dispatches on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 31 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: MAP[1439] reentrant has the following parameters: PROC{2235} local LIST1{2236} local has the following in-lined locals: NUC{1326} NUC{1327} NUC{1328} NUC{1329} NUC{1330} NUC{1331} NUC{1333} NUC{1334} NUC{1336} NUC{1337} NUC{1338} NUC{1339} NUC{1340} NUC{1342} NUC{1345} NUC{1348} NUC{1349} VAR{1353} P{1354} N{1450} N{1451} N{1452} DISTANCE{1454} POS{1456} ABS-POS{1457} Z{1458} Y{1459} X{1460} S{1461} OBJS{1534} LIST{1609} LIST{1612} R{1613} LIST1{2240} C{2241} OBJS{2877} OBJS{2878} OBJS{2879} OBJS{2880} LOOP[764] reentrant has the following parameters: LIST1{1565} local LIST2{1566} local LISTS{1567} local APPEND[751] has the following parameter: SS{1557} local has the following in-lined locals: SS{1560} v{1561} v{1562} SS{1570} SS{1591} EQV?[657] has the following parameters: OBJ1{1471} local OBJ2{1472} local has the following in-lined locals: v{1473} v{1474} MAXIMUM[341] has the following parameter: LST{1463} local has the following in-lined locals: M{1466} L{1467} X{1468} P-O3*[303] has closure has the following parameters: NUCS{1425} slotted I{1426} slotted J{1427} slotted [inside G37-A38 290] has parent parameter G37-A38[289] has the following parameter: PARTIAL-INST{1408} local has the following in-lined locals: REF{1409} TFO{1410} I{2899} TFO{2900} NUC{2901} G37-A38[289] has closure has the following parameters: NUC{1405} slotted I{1406} slotted J{1407} slotted DGF-BASE[259] has the following parameters: TFO{1373} local REF{1374} local NUC{1375} local has the following in-lined locals: NUC{1321} VAR{1357} REF-NUC{1376} ALIGN{1377} VAR{2923} P{2924} VAR{2926} VAR{2928} VAR{2930} VAR{2932} VAR{2934} VAR{2950} VAR{2952} VAR{2954} VAR{2956} VAR{2958} VAR{2960} VAR{3129} P{3130} VAR{3131} P{3132} VAR{3133} P{3134} VAR{3213} P{3214} VAR{3215} P{3216} VAR{3217} P{3218} VAR{3219} P{3220} VAR{3221} P{3222} VAR{3223} P{3224} VAR{3225} P{3226} VAR{3227} P{3228} TRY-ASSIGNMENTS[253] reentrant has parent parameter [inside SEARCH 250] has the following parameter: LST{1369} local has the following in-lined locals: VAR{1370} SUBSOLS1{1371} SUBSOLS2{1372} V{1443} PARTIAL-INST{1444} v{1445} O3*{1446} P{1447} O3*{1448} P{1449} VAR{2936} VAR{2938} VAR{2940} VAR{2942} VAR{3205} P{3206} VAR{3207} P{3208} VAR{3209} P{3210} VAR{3211} P{3212} SEARCH[249] reentrant has closure has the following parameters: PARTIAL-INST{1363} slotted DOMAINS{1364} local has the following in-lined locals: NUC{1322} NUC{1323} NUC{1324} PARTIAL-INST{1390} REF{1391} TFO{1392} PARTIAL-INST{1396} REF{1397} TFO{1398} PARTIAL-INST{1414} PARTIAL-INST{1428} REF{1429} ALIGN{1430} LST{1433} DOMAINS{1434} NUC{1435} TFO-275{1436} TFO-180{1437} TFO-60{1438} OBJS{2881} OBJS{2884} OBJS{2885} I{2893} TFO{2894} NUC{2895} I{2902} TFO{2903} NUC{2904} I{2905} TFO{2906} NUC{2907} I{2908} TFO{2909} NUC{2910} I{2914} TFO{2915} NUC{2916} VAR{2944} VAR{2946} VAR{2948} PARTIAL-INST{2964} REF{2965} TFO{2966} PARTIAL-INST{2970} REF{2971} TFO{2972} PARTIAL-INST{2976} REF{2977} TFO{2978} PARTIAL-INST{2982} REF{2983} TFO{2984} PARTIAL-INST{2988} REF{2989} TFO{2990} PARTIAL-INST{2994} REF{2995} TFO{2996} PARTIAL-INST{3000} REF{3001} TFO{3002} PARTIAL-INST{3006} REF{3007} TFO{3008} PARTIAL-INST{3060} REF{3061} TFO{3062} PARTIAL-INST{3066} REF{3067} TFO{3068} PARTIAL-INST{3072} REF{3073} TFO{3074} PARTIAL-INST{3078} REF{3079} TFO{3080} PARTIAL-INST{3084} REF{3085} TFO{3086} PARTIAL-INST{3090} REF{3091} TFO{3092} PARTIAL-INST{3096} REF{3097} TFO{3098} PARTIAL-INST{3118} I{3119} TFO{3120} NUC{3121} OBJS{3122} PARTIAL-INST{3126} REF{3127} TFO{3128} I{3135} TFO{3136} NUC{3137} OBJS{3138} I{3139} TFO{3140} NUC{3141} OBJS{3142} I{3143} TFO{3144} NUC{3145} OBJS{3146} I{3147} TFO{3148} NUC{3149} OBJS{3150} I{3151} TFO{3152} NUC{3153} OBJS{3154} I{3155} TFO{3156} NUC{3157} OBJS{3158} I{3159} TFO{3160} NUC{3161} OBJS{3162} I{3163} TFO{3164} NUC{3165} OBJS{3166} I{3167} TFO{3168} NUC{3169} OBJS{3170} I{3171} TFO{3172} NUC{3173} OBJS{3174} I{3175} TFO{3176} NUC{3177} OBJS{3178} I{3179} TFO{3180} NUC{3181} OBJS{3182} I{3183} TFO{3184} NUC{3185} OBJS{3186} I{3187} TFO{3188} NUC{3189} OBJS{3190} I{3191} TFO{3192} NUC{3193} OBJS{3194} VAR{3195} P{3196} VAR{3197} P{3198} VAR{3199} P{3200} I{3201} TFO{3202} NUC{3203} OBJS{3204} GET-VAR[242] has the following parameters: ID{1358} local LST{1359} local has the following in-lined local: V{1360} NUC-C4[220] has the following parameter: NUC{1347} local NUC-C2[214] has the following parameter: NUC{1346} local NUC-N1[202] has the following parameter: NUC{1344} local NUC-O3*[196] has the following parameter: NUC{1343} local NUC-C3*[184] has the following parameter: NUC{1341} local NUC-C1*[148] has the following parameter: NUC{1335} local NUC-C4*[130] has the following parameter: NUC{1332} local NUC-P[88] has the following parameter: NUC{1325} local TFO-ALIGN[35] has the following parameters: P1{1291} local P2{1292} local P3{1293} local has the following in-lined locals: P1{1267} P2{1268} P{1274} X{1275} Y{1276} Z{1277} B{1278} X1{1294} Y1{1295} Z1{1296} X3{1297} Y3{1298} Z3{1299} X31{1300} Y31{1301} Z31{1302} ROTPY{1303} PHI{1304} THETA{1305} SINP{1306} SINT{1307} COSP{1308} COST{1309} SINPSINT{1310} SINPCOST{1311} COSPSINT{1312} COSPCOST{1313} ROTPZ{1314} RHO{1315} COSR{1316} SINR{1317} X{1318} Y{1319} Z{1320} TFO-INV-ORTHO[30] has the following parameter: TFO{1287} local has the following in-lined locals: TX{1288} TY{1289} TZ{1290} TFO-COMBINE[29] has the following parameters: A{1285} local B{1286} local TFO-APPLY[27] has the following parameters: TFO{1280} local P{1281} local has the following in-lined locals: Z{1282} Y{1283} X{1284} PT-THETA[26] has the following parameter: P{1279} local PT-DIST[18] has the following parameters: P1{1269} local P2{1270} local has the following in-lined locals: DZ{1271} DY{1272} DX{1273} MATH-ATAN2[13] has the following parameters: Y{1265} local X{1266} local [inside top level 0] has the following in-lined locals: PSEUDOKNOT-DOMAINS{660} RU*{692} RG*{693} RUS{694} RU10{695} RU09{696} RU08{697} RU07{698} RU06{699} RU05{700} RU04{701} RU03{702} RU02{703} RU01{704} RU{705} RG{717} RCS{718} RC10{719} RC09{720} RC08{721} RC07{722} RC06{723} RC05{724} RC04{725} RC03{726} RC02{727} RC01{728} RC{729} RAS{730} RA10{731} RA09{732} RA08{733} RA07{734} RA06{735} RA05{736} RA04{737} RA03{738} RA02{739} RA01{740} RA{741} I{1263} SOLS{1462} OBJS{2887} OBJS{2888} OBJS{2890} OBJS{2892} The following non-trivial in-line native procedures will be generated: [clone ABSOLUTE-POS[239] 2882] has the following parameters: VAR{3227} local P{3228} local [clone ABSOLUTE-POS[239] 2881] has the following parameters: VAR{3225} local P{3226} local [clone ABSOLUTE-POS[239] 2880] has the following parameters: VAR{3223} local P{3224} local [clone ABSOLUTE-POS[239] 2879] has the following parameters: VAR{3221} local P{3222} local [clone ABSOLUTE-POS[239] 2878] has the following parameters: VAR{3219} local P{3220} local [clone ABSOLUTE-POS[239] 2877] has the following parameters: VAR{3217} local P{3218} local [clone ABSOLUTE-POS[239] 2876] has the following parameters: VAR{3215} local P{3216} local [clone ABSOLUTE-POS[239] 2875] has the following parameters: VAR{3213} local P{3214} local [clone ABSOLUTE-POS[239] 2874] has the following parameters: VAR{3211} local P{3212} local [clone ABSOLUTE-POS[239] 2873] has the following parameters: VAR{3209} local P{3210} local [clone ABSOLUTE-POS[239] 2872] has the following parameters: VAR{3207} local P{3208} local [clone ABSOLUTE-POS[239] 2871] has the following parameters: VAR{3205} local P{3206} local [clone LIST[715] 2870] has the following parameter: OBJS{3204} local [clone MK-VAR[238] 2869] has the following parameters: I{3201} local TFO{3202} local NUC{3203} local [clone ABSOLUTE-POS[239] 2868] has the following parameters: VAR{3199} local P{3200} local [clone ABSOLUTE-POS[239] 2867] has the following parameters: VAR{3197} local P{3198} local [clone ABSOLUTE-POS[239] 2866] has the following parameters: VAR{3195} local P{3196} local [clone LIST[715] 2865] has the following parameter: OBJS{3194} local [clone MK-VAR[238] 2864] has the following parameters: I{3191} local TFO{3192} local NUC{3193} local [clone LIST[715] 2863] has the following parameter: OBJS{3190} local [clone MK-VAR[238] 2862] has the following parameters: I{3187} local TFO{3188} local NUC{3189} local [clone LIST[715] 2861] has the following parameter: OBJS{3186} local [clone MK-VAR[238] 2860] has the following parameters: I{3183} local TFO{3184} local NUC{3185} local [clone LIST[715] 2859] has the following parameter: OBJS{3182} local [clone MK-VAR[238] 2858] has the following parameters: I{3179} local TFO{3180} local NUC{3181} local [clone LIST[715] 2857] has the following parameter: OBJS{3178} local [clone MK-VAR[238] 2856] has the following parameters: I{3175} local TFO{3176} local NUC{3177} local [clone LIST[715] 2855] has the following parameter: OBJS{3174} local [clone MK-VAR[238] 2854] has the following parameters: I{3171} local TFO{3172} local NUC{3173} local [clone LIST[715] 2853] has the following parameter: OBJS{3170} local [clone MK-VAR[238] 2852] has the following parameters: I{3167} local TFO{3168} local NUC{3169} local [clone LIST[715] 2851] has the following parameter: OBJS{3166} local [clone MK-VAR[238] 2850] has the following parameters: I{3163} local TFO{3164} local NUC{3165} local [clone LIST[715] 2849] has the following parameter: OBJS{3162} local [clone MK-VAR[238] 2848] has the following parameters: I{3159} local TFO{3160} local NUC{3161} local [clone LIST[715] 2847] has the following parameter: OBJS{3158} local [clone MK-VAR[238] 2846] has the following parameters: I{3155} local TFO{3156} local NUC{3157} local [clone LIST[715] 2845] has the following parameter: OBJS{3154} local [clone MK-VAR[238] 2844] has the following parameters: I{3151} local TFO{3152} local NUC{3153} local [clone LIST[715] 2843] has the following parameter: OBJS{3150} local [clone MK-VAR[238] 2842] has the following parameters: I{3147} local TFO{3148} local NUC{3149} local [clone LIST[715] 2841] has the following parameter: OBJS{3146} local [clone MK-VAR[238] 2840] has the following parameters: I{3143} local TFO{3144} local NUC{3145} local [clone LIST[715] 2839] has the following parameter: OBJS{3142} local [clone MK-VAR[238] 2838] has the following parameters: I{3139} local TFO{3140} local NUC{3141} local [clone LIST[715] 2837] has the following parameter: OBJS{3138} local [clone MK-VAR[238] 2836] has the following parameters: I{3135} local TFO{3136} local NUC{3137} local [clone ABSOLUTE-POS[239] 2835] has the following parameters: VAR{3133} local P{3134} local [clone ABSOLUTE-POS[239] 2834] has the following parameters: VAR{3131} local P{3132} local [clone ABSOLUTE-POS[239] 2833] has the following parameters: VAR{3129} local P{3130} local [clone [inside HELIX5* 283] 2832] has parent parameter [clone HELIX5*[279] 2828] [clone [inside HELIX5* 282] 2831] has parent parameter [clone HELIX5*[279] 2828] has the following parameter: TFO{3128} local [clone [inside HELIX5* 281] 2830] has parent parameter [clone HELIX5*[279] 2828] has the following parameter: REF{3127} local [clone [inside HELIX5* 280] 2829] has parent parameter [clone HELIX5*[279] 2828] has the following parameter: PARTIAL-INST{3126} local [clone HELIX5*[279] 2828] has closure has the following parameters: NUC{3123} slotted I{3124} slotted J{3125} slotted [clone LIST[715] 2827] has the following parameter: OBJS{3122} local [clone MK-VAR[238] 2826] has the following parameters: I{3119} local TFO{3120} local NUC{3121} local [clone [inside STACKED5* 295] 2825] has region has the following parameter: PARTIAL-INST{3118} local [clone STACKED5*[294] 2824] has the following parameters: NUC{3115} global I{3116} global J{3117} global [clone [inside WC-DUMAS 277] 2814] has the following parameter: TFO{3098} local [clone [inside WC-DUMAS 276] 2813] has the following parameter: REF{3097} local [clone [inside WC-DUMAS 275] 2812] has the following parameter: PARTIAL-INST{3096} local [clone WC-DUMAS[274] 2811] has the following parameters: NUC{3093} global I{3094} global J{3095} global [clone [inside WC-DUMAS 277] 2809] has the following parameter: TFO{3092} local [clone [inside WC-DUMAS 276] 2808] has the following parameter: REF{3091} local [clone [inside WC-DUMAS 275] 2807] has the following parameter: PARTIAL-INST{3090} local [clone WC-DUMAS[274] 2806] has the following parameters: NUC{3087} global I{3088} global J{3089} global [clone [inside WC-DUMAS 277] 2804] has the following parameter: TFO{3086} local [clone [inside WC-DUMAS 276] 2803] has the following parameter: REF{3085} local [clone [inside WC-DUMAS 275] 2802] has the following parameter: PARTIAL-INST{3084} local [clone WC-DUMAS[274] 2801] has the following parameters: NUC{3081} global I{3082} global J{3083} global [clone [inside WC-DUMAS 277] 2799] has the following parameter: TFO{3080} local [clone [inside WC-DUMAS 276] 2798] has the following parameter: REF{3079} local [clone [inside WC-DUMAS 275] 2797] has the following parameter: PARTIAL-INST{3078} local [clone WC-DUMAS[274] 2796] has the following parameters: NUC{3075} global I{3076} global J{3077} global [clone [inside WC-DUMAS 277] 2794] has the following parameter: TFO{3074} local [clone [inside WC-DUMAS 276] 2793] has the following parameter: REF{3073} local [clone [inside WC-DUMAS 275] 2792] has the following parameter: PARTIAL-INST{3072} local [clone WC-DUMAS[274] 2791] has the following parameters: NUC{3069} global I{3070} global J{3071} global [clone [inside WC-DUMAS 277] 2789] has the following parameter: TFO{3068} local [clone [inside WC-DUMAS 276] 2788] has the following parameter: REF{3067} local [clone [inside WC-DUMAS 275] 2787] has the following parameter: PARTIAL-INST{3066} local [clone WC-DUMAS[274] 2786] has the following parameters: NUC{3063} global I{3064} global J{3065} global [clone [inside WC-DUMAS 277] 2784] has the following parameter: TFO{3062} local [clone [inside WC-DUMAS 276] 2783] has the following parameter: REF{3061} local [clone [inside WC-DUMAS 275] 2782] has the following parameter: PARTIAL-INST{3060} local [clone WC-DUMAS[274] 2781] has the following parameters: NUC{3057} global I{3058} global J{3059} global [clone [inside HELIX3* 287] 2739] has the following parameter: TFO{3008} local [clone [inside HELIX3* 286] 2738] has the following parameter: REF{3007} local [clone [inside HELIX3* 285] 2737] has the following parameter: PARTIAL-INST{3006} local [clone HELIX3*[284] 2736] has the following parameters: NUC{3003} global I{3004} global J{3005} global [clone [inside HELIX3* 287] 2734] has the following parameter: TFO{3002} local [clone [inside HELIX3* 286] 2733] has the following parameter: REF{3001} local [clone [inside HELIX3* 285] 2732] has the following parameter: PARTIAL-INST{3000} local [clone HELIX3*[284] 2731] has the following parameters: NUC{2997} global I{2998} global J{2999} global [clone [inside HELIX3* 287] 2729] has the following parameter: TFO{2996} local [clone [inside HELIX3* 286] 2728] has the following parameter: REF{2995} local [clone [inside HELIX3* 285] 2727] has the following parameter: PARTIAL-INST{2994} local [clone HELIX3*[284] 2726] has the following parameters: NUC{2991} global I{2992} global J{2993} global [clone [inside HELIX3* 287] 2724] has the following parameter: TFO{2990} local [clone [inside HELIX3* 286] 2723] has the following parameter: REF{2989} local [clone [inside HELIX3* 285] 2722] has the following parameter: PARTIAL-INST{2988} local [clone HELIX3*[284] 2721] has the following parameters: NUC{2985} global I{2986} global J{2987} global [clone [inside HELIX3* 287] 2719] has the following parameter: TFO{2984} local [clone [inside HELIX3* 286] 2718] has the following parameter: REF{2983} local [clone [inside HELIX3* 285] 2717] has the following parameter: PARTIAL-INST{2982} local [clone HELIX3*[284] 2716] has the following parameters: NUC{2979} global I{2980} global J{2981} global [clone [inside HELIX3* 287] 2714] has the following parameter: TFO{2978} local [clone [inside HELIX3* 286] 2713] has the following parameter: REF{2977} local [clone [inside HELIX3* 285] 2712] has the following parameter: PARTIAL-INST{2976} local [clone HELIX3*[284] 2711] has the following parameters: NUC{2973} global I{2974} global J{2975} global [clone [inside HELIX3* 287] 2709] has the following parameter: TFO{2972} local [clone [inside HELIX3* 286] 2708] has the following parameter: REF{2971} local [clone [inside HELIX3* 285] 2707] has the following parameter: PARTIAL-INST{2970} local [clone HELIX3*[284] 2706] has the following parameters: NUC{2967} global I{2968} global J{2969} global [clone [inside HELIX3* 287] 2704] has the following parameter: TFO{2966} local [clone [inside HELIX3* 286] 2703] has the following parameter: REF{2965} local [clone [inside HELIX3* 285] 2702] has the following parameter: PARTIAL-INST{2964} local [clone HELIX3*[284] 2701] has the following parameters: NUC{2961} global I{2962} global J{2963} global [clone ATOM-POS[241] 2700] has the following parameter: VAR{2960} local [clone ATOM-POS[241] 2699] has the following parameter: VAR{2958} local [clone ATOM-POS[241] 2698] has the following parameter: VAR{2956} local [clone ATOM-POS[241] 2697] has the following parameter: VAR{2954} local [clone ATOM-POS[241] 2696] has the following parameter: VAR{2952} local [clone ATOM-POS[241] 2695] has the following parameter: VAR{2950} local [clone ATOM-POS[241] 2694] has the following parameter: VAR{2948} local [clone ATOM-POS[241] 2693] has the following parameter: VAR{2946} local [clone ATOM-POS[241] 2692] has the following parameter: VAR{2944} local [clone ATOM-POS[241] 2691] has the following parameter: VAR{2942} local [clone ATOM-POS[241] 2690] has the following parameter: VAR{2940} local [clone ATOM-POS[241] 2689] has the following parameter: VAR{2938} local [clone ATOM-POS[241] 2688] has the following parameter: VAR{2936} local [clone ATOM-POS[241] 2687] has the following parameter: VAR{2934} local [clone ATOM-POS[241] 2686] has the following parameter: VAR{2932} local [clone ATOM-POS[241] 2685] has the following parameter: VAR{2930} local [clone ATOM-POS[241] 2684] has the following parameter: VAR{2928} local [clone ATOM-POS[241] 2683] has the following parameter: VAR{2926} local [clone ABSOLUTE-POS[239] 2682] has the following parameters: VAR{2923} local P{2924} local [clone REFERENCE[267] 2680] has the following parameters: NUC{2920} global I{2921} global [clone MK-VAR[238] 2678] has the following parameters: I{2914} local TFO{2915} local NUC{2916} local [clone MK-VAR[238] 2676] has the following parameters: I{2908} local TFO{2909} local NUC{2910} local [clone MK-VAR[238] 2675] has the following parameters: I{2905} local TFO{2906} local NUC{2907} local [clone MK-VAR[238] 2674] has the following parameters: I{2902} local TFO{2903} local NUC{2904} local [clone MK-VAR[238] 2673] has the following parameters: I{2899} local TFO{2900} local NUC{2901} local [clone MK-VAR[238] 2671] has the following parameters: I{2893} local TFO{2894} local NUC{2895} local [clone LIST[715] 2670] has the following parameter: OBJS{2892} local [clone LIST[715] 2668] has the following parameter: OBJS{2890} local [clone LIST[715] 2666] has the following parameter: OBJS{2888} local [clone LIST[715] 2665] has the following parameter: OBJS{2887} local [clone LIST[715] 2663] has the following parameter: OBJS{2885} local [clone LIST[715] 2662] has the following parameter: OBJS{2884} local [clone LIST[715] 2659] has the following parameter: OBJS{2881} local [clone LIST[715] 2658] has the following parameter: OBJS{2880} local [clone LIST[715] 2657] has the following parameter: OBJS{2879} local [clone LIST[715] 2656] has the following parameter: OBJS{2878} local [clone LIST[715] 2655] has the following parameter: OBJS{2877} local LOOP[1443] reentrant has the following parameters: LIST1{2240} local C{2241} local [inside MAP 1440] reentrant LOOP[826] has the following parameters: LIST{1612} local R{1613} local LIST-REVERSE[823] has the following parameter: LIST{1609} local LOOP[796] has the following parameter: SS{1591} local LOOP[768] has the following parameter: SS{1570} local [inside LOOP 757] has the following parameter: v{1562} local [inside LOOP 756] has the following parameter: v{1561} local LOOP[755] has the following parameter: SS{1560} local LIST[715] has the following parameter: OBJS{1534} local [inside EQV? 659] has the following parameter: v{1474} local [inside EQV? 658] has the following parameter: v{1473} local RUN[348] has region [inside LOOP 345] has the following parameter: X{1468} local LOOP[344] has the following parameters: M{1466} local L{1467} local MOST-DISTANT-ATOM[340] has region has the following parameter: SOLS{1462} local SOL-MOST-DISTANT-ATOM[339] reentrant has the following parameter: S{1461} local [inside DISTANCE 337] has the following parameters: Z{1458} local Y{1459} local X{1460} local [inside DISTANCE 336] has the following parameter: ABS-POS{1457} local DISTANCE[335] has parent parameter VAR-MOST-DISTANT-ATOM[332] has the following parameter: POS{1456} local [inside VAR-MOST-DISTANT-ATOM 334] reentrant has parent parameter VAR-MOST-DISTANT-ATOM[332] has region [inside VAR-MOST-DISTANT-ATOM 333] reentrant has parent parameter VAR-MOST-DISTANT-ATOM[332] has the following parameter: DISTANCE{1454} local VAR-MOST-DISTANT-ATOM[332] reentrant has closure has the following parameter: V{1453} slotted LIST-OF-SPECIFIC-ATOMS[327] has the following parameter: N{1452} local LIST-OF-COMMON-ATOMS[326] has the following parameter: N{1451} local LIST-OF-ATOMS[325] has region has the following parameter: N{1450} local [inside PSEUDOKNOT-CONSTRAINT? 322] has the following parameters: O3*{1448} local P{1449} local [inside PSEUDOKNOT-CONSTRAINT? 320] has the following parameters: O3*{1446} local P{1447} local [inside PSEUDOKNOT-CONSTRAINT? 318] has the following parameter: v{1445} local PSEUDOKNOT-CONSTRAINT?[317] has the following parameters: V{1443} local PARTIAL-INST{1444} local [inside LOOP 312] has parent parameter P-O3*[303] has the following parameters: TFO-275{1436} local TFO-180{1437} local TFO-60{1438} local [inside LOOP 311] has parent parameter P-O3*[303] has the following parameter: NUC{1435} local LOOP[310] has parent parameter P-O3*[303] has the following parameters: LST{1433} local DOMAINS{1434} local [inside P-O3* 309] has parent parameter P-O3*[303] [inside P-O3* 308] has parent parameter P-O3*[303] has the following parameter: LOOP{1431} hidden as LOOP[310] [inside P-O3* 307] has parent parameter P-O3*[303] [inside P-O3* 306] has parent parameter P-O3*[303] has the following parameter: ALIGN{1430} local [inside P-O3* 305] has parent parameter P-O3*[303] has the following parameter: REF{1429} local [inside P-O3* 304] has parent parameter P-O3*[303] has the following parameter: PARTIAL-INST{1428} local [inside STACKED5* 295] has region has the following parameter: PARTIAL-INST{1414} local STACKED5*[294] has the following parameters: NUC{1411} global I{1412} global J{1413} global [inside G37-A38 293] has parent parameter G37-A38[289] [inside G37-A38 292] has parent parameter G37-A38[289] has the following parameter: TFO{1410} local [inside G37-A38 291] has parent parameter G37-A38[289] has the following parameter: REF{1409} local [inside HELIX5* 283] has parent parameter HELIX5*[279] [inside HELIX5* 282] has parent parameter HELIX5*[279] has the following parameter: TFO{1398} local [inside HELIX5* 281] has parent parameter HELIX5*[279] has the following parameter: REF{1397} local [inside HELIX5* 280] has parent parameter HELIX5*[279] has the following parameter: PARTIAL-INST{1396} local HELIX5*[279] has closure has the following parameters: NUC{1393} slotted I{1394} slotted J{1395} slotted [inside WC-DUMAS 277] has the following parameter: TFO{1392} local [inside WC-DUMAS 276] has the following parameter: REF{1391} local [inside WC-DUMAS 275] has the following parameter: PARTIAL-INST{1390} local WC-DUMAS[274] has the following parameters: NUC{1387} global I{1388} global J{1389} global [inside DGF-BASE 261] has the following parameter: ALIGN{1377} local [inside DGF-BASE 260] has the following parameter: REF-NUC{1376} local [inside TRY-ASSIGNMENTS 257] has region [inside TRY-ASSIGNMENTS 256] has the following parameter: SUBSOLS2{1372} local [inside TRY-ASSIGNMENTS 255] reentrant has parent parameter [inside SEARCH 250] has the following parameter: SUBSOLS1{1371} local [inside TRY-ASSIGNMENTS 254] reentrant has parent parameter [inside SEARCH 250] has the following parameter: VAR{1370} local [inside SEARCH 252] reentrant has parent parameter [inside SEARCH 250] has region [inside SEARCH 251] reentrant has parent parameter [inside SEARCH 250] has the following parameter: TRY-ASSIGNMENTS{1367} hidden as TRY-ASSIGNMENTS[253] [inside SEARCH 250] reentrant has parent parameter SEARCH[249] has closure has parent slot SEARCH[249] has the following parameter: REMAINING-DOMAINS{1366} slotted [inside GET-VAR 243] has the following parameter: V{1360} local ATOM-POS[241] has the following parameter: VAR{1357} local ABSOLUTE-POS[239] has the following parameters: VAR{1353} local P{1354} local NUC-C6[232] has the following parameter: NUC{1349} local NUC-C5[226] has the following parameter: NUC{1348} local NUC-N3[208] has the following parameter: NUC{1345} local NUC-H3*[190] has the following parameter: NUC{1342} local NUC-H2*[178] has the following parameter: NUC{1340} local NUC-O2*[172] has the following parameter: NUC{1339} local NUC-H2**[166] has the following parameter: NUC{1338} local NUC-C2*[160] has the following parameter: NUC{1337} local NUC-H1*[154] has the following parameter: NUC{1336} local NUC-O4*[142] has the following parameter: NUC{1334} local NUC-H4*[136] has the following parameter: NUC{1333} local NUC-H5**[124] has the following parameter: NUC{1331} local NUC-H5*[118] has the following parameter: NUC{1330} local NUC-C5*[112] has the following parameter: NUC{1329} local NUC-O5*[106] has the following parameter: NUC{1328} local NUC-O2P[100] has the following parameter: NUC{1327} local NUC-O1P[94] has the following parameter: NUC{1326} local NUC-P-O3*-60-TFO[82] has the following parameter: NUC{1324} local NUC-P-O3*-180-TFO[76] has the following parameter: NUC{1323} local NUC-P-O3*-275-TFO[70] has the following parameter: NUC{1322} local NUC-DGF-BASE-TFO[64] has the following parameter: NUC{1321} local [inside TFO-ALIGN 62] has the following parameter: Z{1320} local [inside TFO-ALIGN 61] has the following parameter: Y{1319} local [inside TFO-ALIGN 60] has the following parameter: X{1318} local [inside TFO-ALIGN 59] has the following parameter: SINR{1317} local [inside TFO-ALIGN 58] has the following parameter: COSR{1316} local [inside TFO-ALIGN 57] has the following parameter: RHO{1315} local [inside TFO-ALIGN 56] has the following parameter: ROTPZ{1314} local [inside TFO-ALIGN 55] has the following parameter: COSPCOST{1313} local [inside TFO-ALIGN 54] has the following parameter: COSPSINT{1312} local [inside TFO-ALIGN 53] has the following parameter: SINPCOST{1311} local [inside TFO-ALIGN 52] has the following parameter: SINPSINT{1310} local [inside TFO-ALIGN 51] has the following parameter: COST{1309} local [inside TFO-ALIGN 50] has the following parameter: COSP{1308} local [inside TFO-ALIGN 49] has the following parameter: SINT{1307} local [inside TFO-ALIGN 48] has the following parameter: SINP{1306} local [inside TFO-ALIGN 47] has the following parameter: THETA{1305} local [inside TFO-ALIGN 46] has the following parameter: PHI{1304} local [inside TFO-ALIGN 45] has the following parameter: ROTPY{1303} local [inside TFO-ALIGN 44] has region has the following parameter: Z31{1302} local [inside TFO-ALIGN 43] has the following parameter: Y31{1301} local [inside TFO-ALIGN 42] has the following parameter: X31{1300} local [inside TFO-ALIGN 41] has the following parameter: Z3{1299} local [inside TFO-ALIGN 40] has the following parameter: Y3{1298} local [inside TFO-ALIGN 39] has the following parameter: X3{1297} local [inside TFO-ALIGN 38] has the following parameter: Z1{1296} local [inside TFO-ALIGN 37] has the following parameter: Y1{1295} local [inside TFO-ALIGN 36] has the following parameter: X1{1294} local [inside TFO-INV-ORTHO 33] has the following parameter: TZ{1290} local [inside TFO-INV-ORTHO 32] has the following parameter: TY{1289} local [inside TFO-INV-ORTHO 31] has the following parameter: TX{1288} local [inside TFO-APPLY 28] has the following parameters: Z{1282} local Y{1283} local X{1284} local [inside PT-PHI 24] has the following parameter: B{1278} local [inside PT-PHI 23] has the following parameter: Z{1277} local [inside PT-PHI 22] has the following parameter: Y{1276} local [inside PT-PHI 21] has the following parameter: X{1275} local PT-PHI[20] has the following parameter: P{1274} local [inside PT-DIST 19] has the following parameters: DZ{1271} local DY{1272} local DX{1273} local PT-SUB[17] has the following parameters: P1{1267} local P2{1268} local loop[8] has the following parameter: I{1263} local [inside top level 4] has the following parameters: PSEUDOKNOT-DOMAINS{660} local G37-A38-TFO{670} global HELIX3*-TFO{672} global HELIX5*-TFO{674} global WC-DUMAS-TFO{676} global RU*{692} local RG*{693} local RUS{694} local RU10{695} local RU09{696} local RU08{697} local RU07{698} local RU06{699} local RU05{700} local RU04{701} local RU03{702} local RU02{703} local RU01{704} local RU{705} local RG{717} local RCS{718} local RC10{719} local RC09{720} local RC08{721} local RC07{722} local RC06{723} local RC05{724} local RC04{725} local RC03{726} local RC02{727} local RC01{728} local RC{729} local RAS{730} local RA10{731} local RA09{732} local RA08{733} local RA07{734} local RA06{735} local RA05{736} local RA04{737} local RA03{738} local RA02{739} local RA01{740} local RA{741} local TFO-ID{927} global CONSTANT-MINUS-PI/2{950} global CONSTANT-PI/2{951} global CONSTANT-MINUS-PI{952} global CONSTANT-PI{953} global The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3345:127165, allocates on [inside SEARCH 252]: (LIST (MK-VAR I TFO NUC)) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3373:127847, allocates on [inside SEARCH 252]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((G37-A38 NUC I J) PARTIAL-INST) ((HELIX5* NUC I J) PARTIAL-INST)) The following expression, nucleic2-stalin.sc:3333:126862, allocates on [inside SEARCH 252]: (LIST (MK-VAR I TFO NUC)) The following expression, nucleic2-stalin.sc:3333:126862, allocates on [inside SEARCH 252]: (LIST (MK-VAR I TFO NUC)) The following expression, nucleic2-stalin.sc:3333:126862, allocates on [inside SEARCH 252]: (LIST (MK-VAR I TFO NUC)) The following expression, nucleic2-stalin.sc:3333:126862, allocates on [inside SEARCH 252]: (LIST (MK-VAR I TFO NUC)) The following expression, nucleic2-stalin.sc:3333:126862, allocates on [inside SEARCH 252]: (LIST (MK-VAR I TFO NUC)) The following expression, nucleic2-stalin.sc:3333:126862, allocates on [inside SEARCH 252]: (LIST (MK-VAR I TFO NUC)) The following expression, nucleic2-stalin.sc:3333:126862, allocates on [inside SEARCH 252]: (LIST (MK-VAR I TFO NUC)) The following expression, nucleic2-stalin.sc:3357:127467, allocates on [inside SEARCH 252]: (LIST (MK-VAR I TFO NUC)) The following expression, nucleic2-stalin.sc:3357:127467, allocates on [inside SEARCH 252]: (LIST (MK-VAR I TFO NUC)) The following expression, nucleic2-stalin.sc:3357:127467, allocates on [inside SEARCH 252]: (LIST (MK-VAR I TFO NUC)) The following expression, nucleic2-stalin.sc:3357:127467, allocates on [inside SEARCH 252]: (LIST (MK-VAR I TFO NUC)) The following expression, nucleic2-stalin.sc:3357:127467, allocates on [inside SEARCH 252]: (LIST (MK-VAR I TFO NUC)) The following expression, nucleic2-stalin.sc:3357:127467, allocates on [inside SEARCH 252]: (LIST (MK-VAR I TFO NUC)) The following expression, nucleic2-stalin.sc:3357:127467, allocates on [inside SEARCH 252]: (LIST (MK-VAR I TFO NUC)) The following expression, nucleic2-stalin.sc:3357:127467, allocates on [inside SEARCH 252]: (LIST (MK-VAR I TFO NUC)) The following expression, nucleic2-stalin.sc:3303:126044, allocates on [inside SEARCH 252]: (LIST (MK-VAR I TFO-ID NUC)) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression, nucleic2-stalin.sc:3040:115363, allocates on RUN[348]: (MAKE-VAR I TFO NUC) The following expression allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC (# LIST1)) C) The following expression allocates on MOST-DISTANT-ATOM[340]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on RUN[348]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1) (LOOP (# LIST1) LIST2 LISTS)) The following expression, nucleic2-stalin.sc:3569:132515, allocates on [inside VAR-MOST-DISTANT-ATOM 334]: (LIST (RU-O2 N) (RU-O4 N) (RU-H3 N) (RU-H5 N) (RU-H6 N)) The following expression, nucleic2-stalin.sc:3558:132367, allocates on [inside VAR-MOST-DISTANT-ATOM 334]: (LIST (RG-N2 N) (RG-N7 N) (RG-N9 N) (RG-C8 N) (RG-O6 N) (RG-H1 N) (RG-H21 N) (RG-H22 N) (RG-H8 N)) The following expression, nucleic2-stalin.sc:3550:132258, allocates on [inside VAR-MOST-DISTANT-ATOM 334]: (LIST (RC-N4 N) (RC-O2 N) (RC-H41 N) (RC-H42 N) (RC-H5 N) (RC-H6 N)) The following expression, nucleic2-stalin.sc:3540:132121, allocates on [inside VAR-MOST-DISTANT-ATOM 334]: (LIST (RA-N6 N) (RA-N7 N) (RA-N9 N) (RA-C8 N) (RA-H2 N) (RA-H61 N) (RA-H62 N) (RA-H8 N)) The following expression, nucleic2-stalin.sc:3511:131685, allocates on [inside VAR-MOST-DISTANT-ATOM 334]: (LIST (NUC-P N) (NUC-O1P N) (NUC-O2P N) (NUC-O5* N) (NUC-C5* N) (NUC-H5* N) (NUC-H5** N) (NUC-C4* N) (NUC-H4* N) (NUC-O4* N) (NUC-C1* N) (NUC-H1* N) (NUC-C2* N) (NUC-H2** N) (NUC-O2* N) (NUC-H2* N) (NUC-C3* N) (NUC-H3* N) (NUC-O3* N) (NUC-N1 N) (NUC-N3 N) (NUC-C2 N) (NUC-C4 N) (NUC-C5 N) (NUC-C6 N)) The following expression, nucleic2-stalin.sc:3507:131586, allocates on LIST-OF-ATOMS[325]: (APPEND (LIST-OF-COMMON-ATOMS N) (LIST-OF-SPECIFIC-ATOMS N)) The following expression, nucleic2-stalin.sc:3454:130110, allocates on the heap: (LIST (REFERENCE RA 23) (WC-DUMAS RU 8 23) (HELIX3* RG 22 23) (WC-DUMAS RC 9 22) (HELIX3* RG 21 22) (WC-DUMAS RC 10 21) (HELIX3* RC 20 21) (WC-DUMAS RG 11 20) (HELIX3* RU* 19 20) (WC-DUMAS RA 12 19) (HELIX3* RC 3 19) (WC-DUMAS RG 13 3) (HELIX3* RC 2 3) (WC-DUMAS RG 14 2) (HELIX3* RC 1 2) (WC-DUMAS RG* 15 1) (P-O3* RUS 16 15) (P-O3* RCS 17 16) (P-O3* RAS 18 17) (HELIX3* RU 7 8) (P-O3* RCS 4 3) (STACKED5* RU 5 4) (STACKED5* RC 6 5)) The following expression, nucleic2-stalin.sc:3418:129169, allocates on the heap: (LIST (REFERENCE RC 27) (HELIX5* RC 28 27) (HELIX5* RA 29 28) (HELIX5* RG 30 29) (HELIX5* RA 31 30) (WC RU 39 31) (HELIX5* RC 40 39) (HELIX5* RU 41 40) (HELIX5* RG 42 41) (HELIX5* RG 43 42) (STACKED3* RA 38 39) (STACKED3* RG 37 38) (STACKED3* RA 36 37) (STACKED3* RA 35 36) (STACKED3* RG 34 35) (P-O3* RCS 32 31) (P-O3* RUS 33 32)) The following expression, nucleic2-stalin.sc:3409:128869, allocates on [inside SEARCH 252]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (MK-VAR I TFO-60 NUC) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (MK-VAR I TFO-180 NUC) (# # DOMAINS))) The following expression, nucleic2-stalin.sc:3410:128905, allocates on [inside SEARCH 252]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (MK-VAR I TFO-180 NUC) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (MK-VAR I TFO-275 NUC) DOMAINS)) The following expression, nucleic2-stalin.sc:3411:128941, allocates on [inside SEARCH 252]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (MK-VAR I TFO-275 NUC) DOMAINS) The following expression, nucleic2-stalin.sc:3377:127945, allocates on the heap: (MAKE-TFO 0.9991 -0.0375 0.0189 0.0164 0.7616000000000001 0.6478 -0.0387 -0.647 0.7615 3.3819 0.7718 -2.5321) The following expression, nucleic2-stalin.sc:3373:127847, allocates on [inside SEARCH 252]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((G37-A38 NUC I J) PARTIAL-INST) ((HELIX5* NUC I J) PARTIAL-INST)) The following expression, nucleic2-stalin.sc:3360:127518, allocates on the heap: (MAKE-TFO 0.9991 0.0164 -0.0387 -0.0375 0.7616000000000001 -0.647 0.0189 0.6478 0.7615 -3.3018 0.9974999999999999 2.5585) The following expression, nucleic2-stalin.sc:3348:127216, allocates on the heap: (MAKE-TFO 0.9886 0.1424 -0.0482 -0.0961 0.8452000000000001 0.5258 0.1156 -0.5152 0.8492000000000001 3.4426 2.0474 -3.7042) The following expression, nucleic2-stalin.sc:3345:127165, allocates on [inside SEARCH 252]: (LIST (MK-VAR I TFO NUC)) The following expression, nucleic2-stalin.sc:3336:126913, allocates on the heap: (MAKE-TFO 0.9886 -0.0961 0.1156 0.1424 0.8452000000000001 -0.5152 -0.0482 0.5258 0.8492000000000001 -3.8737 0.548 3.8024) The following expression, nucleic2-stalin.sc:3333:126862, allocates on [inside SEARCH 252]: (LIST (MK-VAR I TFO NUC)) The following expression, nucleic2-stalin.sc:3324:126608, allocates on the heap: (MAKE-TFO -0.9737 -0.1834 0.1352 -0.1779 0.2417 -0.9539000000000001 0.1422 -0.9529000000000001 -0.2679 0.4837 6.264899999999999 8.028499999999999) The following expression, nucleic2-stalin.sc:3312:126313, allocates on the heap: (MAKE-TFO -1. 0.0028 -0.0019 0.0028 0.3468 -0.9379000000000001 -0.0019 -0.9379000000000001 -0.3468 -0.008 6.073 8.720799999999999) The following expression, nucleic2-stalin.sc:3224:123442, allocates on RUN[348]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) VAR PARTIAL-INST) The following expression, nucleic2-stalin.sc:3229:123603, allocates on [inside TRY-ASSIGNMENTS 257]: (APPEND SUBSOLS1 SUBSOLS2) The following expression, nucleic2-stalin.sc:3214:123179, allocates on RUN[348]: (LIST PARTIAL-INST) The following expression, nucleic2-stalin.sc:2984:113113, allocates on the heap: (MAKE-RU (MAKE-TFO -0.0109 0.5907 0.8068000000000001 0.2217 -0.7852999999999999 0.5780000000000001 0.9751 0.1852 -0.1224 -1.4225 -11.0956 -2.5217) (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) (MAKE-PT 2.676 -8.496 3.288) (MAKE-PT 1.495 -7.622999999999999 3.477) (MAKE-PT 2.949 -9.464 4.374) (MAKE-PT 3.973 -7.595 3.034) (MAKE-PT 5.243 -8.241999999999999 2.826) (MAKE-PT 5.197399999999999 -8.8497 1.9223) (MAKE-PT 5.554799999999999 -8.734799999999998 3.7469) (MAKE-PT 6.313999999999999 -7.206 2.551) (MAKE-PT 5.8744 -6.211600000000001 2.4731) (MAKE-PT 7.279800000000001 -7.226 3.642) (MAKE-PT 8.5733 -6.941000000000001 3.1329) (MAKE-PT 8.9047 -6.0374 3.6446) (MAKE-PT 8.4429 -6.6596 1.6327) (MAKE-PT 9.287999999999998 -7.107099999999999 1.1096) (MAKE-PT 8.2502 -5.2799 1.4754) (MAKE-PT 8.7676 -4.7284 2.0667) (MAKE-PT 7.164199999999999 -7.441600000000001 1.3021) (MAKE-PT 7.4125 -8.5002 1.226) (MAKE-PT 6.516 -6.977200000000001 0.1267) (MAKE-PT 9.453100000000001 -8.1107 3.4087) (MAKE-PT 11.5931 -9.0015 3.6357) (MAKE-PT 10.8101 -7.895 3.3748) (MAKE-PT 11.1439 -10.2744 3.9206) (MAKE-PT 9.7056 -10.4026 3.9332) (MAKE-PT 8.9192 -9.341899999999999 3.6833) (MAKE-PT 11.3013 -6.8063 3.1326) (MAKE-PT 11.9431 -11.1876 4.137499999999999) (MAKE-PT 12.584 -8.8673 3.6158) (MAKE-PT 9.289099999999999 -11.2898 4.1313) (MAKE-PT 7.9263 -9.453700000000001 3.6977)) The following expression, nucleic2-stalin.sc:3030:114970, allocates on the heap: (MAKE-PT 7.9263 -9.453700000000001 3.6977) The following expression, nucleic2-stalin.sc:3029:114927, allocates on the heap: (MAKE-PT 9.289099999999999 -11.2898 4.1313) The following expression, nucleic2-stalin.sc:3028:114884, allocates on the heap: (MAKE-PT 12.584 -8.8673 3.6158) The following expression, nucleic2-stalin.sc:3027:114841, allocates on the heap: (MAKE-PT 11.9431 -11.1876 4.137499999999999) The following expression, nucleic2-stalin.sc:3026:114798, allocates on the heap: (MAKE-PT 11.3013 -6.8063 3.1326) The following expression, nucleic2-stalin.sc:3025:114755, allocates on the heap: (MAKE-PT 8.9192 -9.341899999999999 3.6833) The following expression, nucleic2-stalin.sc:3024:114712, allocates on the heap: (MAKE-PT 9.7056 -10.4026 3.9332) The following expression, nucleic2-stalin.sc:3023:114669, allocates on the heap: (MAKE-PT 11.1439 -10.2744 3.9206) The following expression, nucleic2-stalin.sc:3022:114626, allocates on the heap: (MAKE-PT 10.8101 -7.895 3.3748) The following expression, nucleic2-stalin.sc:3021:114583, allocates on the heap: (MAKE-PT 11.5931 -9.0015 3.6357) The following expression, nucleic2-stalin.sc:3020:114540, allocates on the heap: (MAKE-PT 9.453100000000001 -8.1107 3.4087) The following expression, nucleic2-stalin.sc:3019:114496, allocates on the heap: (MAKE-PT 6.516 -6.977200000000001 0.1267) The following expression, nucleic2-stalin.sc:3018:114452, allocates on the heap: (MAKE-PT 7.4125 -8.5002 1.226) The following expression, nucleic2-stalin.sc:3017:114408, allocates on the heap: (MAKE-PT 7.164199999999999 -7.441600000000001 1.3021) The following expression, nucleic2-stalin.sc:3016:114364, allocates on the heap: (MAKE-PT 8.7676 -4.7284 2.0667) The following expression, nucleic2-stalin.sc:3015:114320, allocates on the heap: (MAKE-PT 8.2502 -5.2799 1.4754) The following expression, nucleic2-stalin.sc:3014:114275, allocates on the heap: (MAKE-PT 9.287999999999998 -7.107099999999999 1.1096) The following expression, nucleic2-stalin.sc:3013:114231, allocates on the heap: (MAKE-PT 8.4429 -6.6596 1.6327) The following expression, nucleic2-stalin.sc:3012:114187, allocates on the heap: (MAKE-PT 8.9047 -6.0374 3.6446) The following expression, nucleic2-stalin.sc:3011:114143, allocates on the heap: (MAKE-PT 8.5733 -6.941000000000001 3.1329) The following expression, nucleic2-stalin.sc:3010:114099, allocates on the heap: (MAKE-PT 7.279800000000001 -7.226 3.642) The following expression, nucleic2-stalin.sc:3009:114055, allocates on the heap: (MAKE-PT 5.8744 -6.211600000000001 2.4731) The following expression, nucleic2-stalin.sc:3008:114011, allocates on the heap: (MAKE-PT 6.313999999999999 -7.206 2.551) The following expression, nucleic2-stalin.sc:3007:113966, allocates on the heap: (MAKE-PT 5.554799999999999 -8.734799999999998 3.7469) The following expression, nucleic2-stalin.sc:3006:113922, allocates on the heap: (MAKE-PT 5.197399999999999 -8.8497 1.9223) The following expression, nucleic2-stalin.sc:3005:113878, allocates on the heap: (MAKE-PT 5.243 -8.241999999999999 2.826) The following expression, nucleic2-stalin.sc:3004:113834, allocates on the heap: (MAKE-PT 3.973 -7.595 3.034) The following expression, nucleic2-stalin.sc:3003:113790, allocates on the heap: (MAKE-PT 2.949 -9.464 4.374) The following expression, nucleic2-stalin.sc:3002:113746, allocates on the heap: (MAKE-PT 1.495 -7.622999999999999 3.477) The following expression, nucleic2-stalin.sc:3001:113704, allocates on the heap: (MAKE-PT 2.676 -8.496 3.288) The following expression, nucleic2-stalin.sc:2997:113560, allocates on the heap: (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) The following expression, nucleic2-stalin.sc:2993:113414, allocates on the heap: (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) The following expression, nucleic2-stalin.sc:2989:113269, allocates on the heap: (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) The following expression, nucleic2-stalin.sc:2985:113124, allocates on the heap: (MAKE-TFO -0.0109 0.5907 0.8068000000000001 0.2217 -0.7852999999999999 0.5780000000000001 0.9751 0.1852 -0.1224 -1.4225 -11.0956 -2.5217) The following expression, nucleic2-stalin.sc:2930:111020, allocates on the heap: (MAKE-RG (MAKE-TFO -0.2067 -0.0264 0.978 0.977 -0.05860000000000001 0.2049 0.0519 0.9979 0.0379 1.0331 -46.80779999999999 -36.4742) (MAKE-TFO -0.8644000000000001 -0.4956 -0.08510000000000001 -0.0427 0.2409 -0.9696 0.501 -0.8345 -0.2294 4.0167 54.5377 12.4779) (MAKE-TFO 0.3706 -0.6167 0.6944999999999999 -0.2867 -0.7871999999999999 -0.546 0.8834 0.0032 -0.4686 -52.902 18.6313 -0.6708999999999999) (MAKE-TFO 0.4155 0.9025 -0.1137 0.904 -0.4236 -0.0582 -0.1007 -0.07860000000000002 -0.9918 -7.662399999999999 -25.208 49.5181) (MAKE-PT 31.381 0.14 47.581) (MAKE-PT 29.986 0.6629999999999999 47.629) (MAKE-PT 31.721 -0.646 48.809) (MAKE-PT 32.494 1.254 47.274) (MAKE-PT 32.161 2.237 46.256) (MAKE-PT 31.2986 2.819 46.5812) (MAKE-PT 32.09800000000001 1.7468 45.2845) (MAKE-PT 33.34759999999999 3.1959 46.1947) (MAKE-PT 33.2668 3.895799999999999 45.363) (MAKE-PT 33.3799 3.9183 47.4216) (MAKE-PT 34.6515 3.7222 48.0398) (MAKE-PT 35.29470000000001 4.541200000000001 47.718) (MAKE-PT 35.1756 2.4228 47.4827) (MAKE-PT 34.6778 1.5937 47.9856) (MAKE-PT 36.56310000000001 2.2672 47.4798) (MAKE-PT 37.0163 2.6579 48.23050000000001) (MAKE-PT 34.69530000000001 2.5043 46.0448) (MAKE-PT 34.5444 1.4917 45.6706) (MAKE-PT 35.6679 3.3009 45.3487) (MAKE-PT 37.4804 4.0914 52.2559) (MAKE-PT 36.967 4.131200000000001 49.92810000000001) (MAKE-PT 37.8045 4.2519 50.955) (MAKE-PT 35.7171 3.8264 50.3222) (MAKE-PT 35.2668 3.642 51.6115) (MAKE-PT 36.2037 3.7829 52.6706) (MAKE-PT 39.0869 4.5552 50.7092) (MAKE-PT 33.9075 3.3338 51.6102) (MAKE-PT 34.6126 3.6358 49.5108) (MAKE-PT 33.5805 3.3442 50.3425) (MAKE-PT 35.9958 3.6512 53.8724) (MAKE-PT 38.2106 4.2053 52.9295) (MAKE-PT 39.8218 4.6863 51.38959999999999) (MAKE-PT 39.342 4.6857 49.7407) (MAKE-PT 32.5194 3.107 50.2664)) The following expression, nucleic2-stalin.sc:2980:113053, allocates on the heap: (MAKE-PT 32.5194 3.107 50.2664) The following expression, nucleic2-stalin.sc:2979:113009, allocates on the heap: (MAKE-PT 39.342 4.6857 49.7407) The following expression, nucleic2-stalin.sc:2978:112965, allocates on the heap: (MAKE-PT 39.8218 4.6863 51.38959999999999) The following expression, nucleic2-stalin.sc:2977:112922, allocates on the heap: (MAKE-PT 38.2106 4.2053 52.9295) The following expression, nucleic2-stalin.sc:2976:112879, allocates on the heap: (MAKE-PT 35.9958 3.6512 53.8724) The following expression, nucleic2-stalin.sc:2975:112836, allocates on the heap: (MAKE-PT 33.5805 3.3442 50.3425) The following expression, nucleic2-stalin.sc:2974:112793, allocates on the heap: (MAKE-PT 34.6126 3.6358 49.5108) The following expression, nucleic2-stalin.sc:2973:112750, allocates on the heap: (MAKE-PT 33.9075 3.3338 51.6102) The following expression, nucleic2-stalin.sc:2972:112707, allocates on the heap: (MAKE-PT 39.0869 4.5552 50.7092) The following expression, nucleic2-stalin.sc:2971:112664, allocates on the heap: (MAKE-PT 36.2037 3.7829 52.6706) The following expression, nucleic2-stalin.sc:2970:112621, allocates on the heap: (MAKE-PT 35.2668 3.642 51.6115) The following expression, nucleic2-stalin.sc:2969:112578, allocates on the heap: (MAKE-PT 35.7171 3.8264 50.3222) The following expression, nucleic2-stalin.sc:2968:112535, allocates on the heap: (MAKE-PT 37.8045 4.2519 50.955) The following expression, nucleic2-stalin.sc:2967:112492, allocates on the heap: (MAKE-PT 36.967 4.131200000000001 49.92810000000001) The following expression, nucleic2-stalin.sc:2966:112449, allocates on the heap: (MAKE-PT 37.4804 4.0914 52.2559) The following expression, nucleic2-stalin.sc:2965:112405, allocates on the heap: (MAKE-PT 35.6679 3.3009 45.3487) The following expression, nucleic2-stalin.sc:2964:112361, allocates on the heap: (MAKE-PT 34.5444 1.4917 45.6706) The following expression, nucleic2-stalin.sc:2963:112317, allocates on the heap: (MAKE-PT 34.69530000000001 2.5043 46.0448) The following expression, nucleic2-stalin.sc:2962:112273, allocates on the heap: (MAKE-PT 37.0163 2.6579 48.23050000000001) The following expression, nucleic2-stalin.sc:2961:112229, allocates on the heap: (MAKE-PT 36.56310000000001 2.2672 47.4798) The following expression, nucleic2-stalin.sc:2960:112184, allocates on the heap: (MAKE-PT 34.6778 1.5937 47.9856) The following expression, nucleic2-stalin.sc:2959:112140, allocates on the heap: (MAKE-PT 35.1756 2.4228 47.4827) The following expression, nucleic2-stalin.sc:2958:112096, allocates on the heap: (MAKE-PT 35.29470000000001 4.541200000000001 47.718) The following expression, nucleic2-stalin.sc:2957:112052, allocates on the heap: (MAKE-PT 34.6515 3.7222 48.0398) The following expression, nucleic2-stalin.sc:2956:112008, allocates on the heap: (MAKE-PT 33.3799 3.9183 47.4216) The following expression, nucleic2-stalin.sc:2955:111964, allocates on the heap: (MAKE-PT 33.2668 3.895799999999999 45.363) The following expression, nucleic2-stalin.sc:2954:111920, allocates on the heap: (MAKE-PT 33.34759999999999 3.1959 46.1947) The following expression, nucleic2-stalin.sc:2953:111875, allocates on the heap: (MAKE-PT 32.09800000000001 1.7468 45.2845) The following expression, nucleic2-stalin.sc:2952:111831, allocates on the heap: (MAKE-PT 31.2986 2.819 46.5812) The following expression, nucleic2-stalin.sc:2951:111787, allocates on the heap: (MAKE-PT 32.161 2.237 46.256) The following expression, nucleic2-stalin.sc:2950:111743, allocates on the heap: (MAKE-PT 32.494 1.254 47.274) The following expression, nucleic2-stalin.sc:2949:111699, allocates on the heap: (MAKE-PT 31.721 -0.646 48.809) The following expression, nucleic2-stalin.sc:2948:111655, allocates on the heap: (MAKE-PT 29.986 0.6629999999999999 47.629) The following expression, nucleic2-stalin.sc:2947:111613, allocates on the heap: (MAKE-PT 31.381 0.14 47.581) The following expression, nucleic2-stalin.sc:2943:111468, allocates on the heap: (MAKE-TFO 0.4155 0.9025 -0.1137 0.904 -0.4236 -0.0582 -0.1007 -0.07860000000000002 -0.9918 -7.662399999999999 -25.208 49.5181) The following expression, nucleic2-stalin.sc:2939:111321, allocates on the heap: (MAKE-TFO 0.3706 -0.6167 0.6944999999999999 -0.2867 -0.7871999999999999 -0.546 0.8834 0.0032 -0.4686 -52.902 18.6313 -0.6708999999999999) The following expression, nucleic2-stalin.sc:2935:111175, allocates on the heap: (MAKE-TFO -0.8644000000000001 -0.4956 -0.08510000000000001 -0.0427 0.2409 -0.9696 0.501 -0.8345 -0.2294 4.0167 54.5377 12.4779) The following expression, nucleic2-stalin.sc:2931:111031, allocates on the heap: (MAKE-TFO -0.2067 -0.0264 0.978 0.977 -0.05860000000000001 0.2049 0.0519 0.9979 0.0379 1.0331 -46.80779999999999 -36.4742) The following expression, nucleic2-stalin.sc:2927:110948, allocates on the heap: (LIST RU01 RU02 RU03 RU04 RU05 RU06 RU07 RU08 RU09 RU10) The following expression, nucleic2-stalin.sc:2877:109025, allocates on the heap: (MAKE-RU (MAKE-TFO -0.9673999999999999 0.1021 -0.2318 -0.2514 -0.2766 0.9275 0.0306 0.9555 0.2933000000000001 27.8571 -42.1305 -24.4563) (MAKE-TFO 0.2765 -0.1121 -0.9545 -0.8297000000000001 0.4733000000000001 -0.2959000000000001 0.485 0.8737000000000001 0.0379 -14.7774 -45.2464 21.9088) (MAKE-TFO 0.1063 -0.6334 -0.7665 -0.5931999999999999 -0.6591 0.4624 -0.7979999999999999 0.4055 -0.4458 43.7634 4.3296 28.489) (MAKE-TFO 0.7136 -0.5032 -0.4873000000000001 0.6802999999999999 0.3316999999999999 0.6536000000000001 -0.1673 -0.7978999999999999 0.5791000000000001 -17.1858 41.439 -27.0751) (MAKE-PT 21.388 15.078 45.577) (MAKE-PT 21.998 14.55 46.821) (MAKE-PT 21.145 14.027 44.542) (MAKE-PT 22.125 16.36 44.946) (MAKE-PT 23.5096 16.1227 44.57830000000001) (MAKE-PT 23.5649 15.8588 43.52220000000001) (MAKE-PT 23.9621 15.4341 45.29190000000001) (MAKE-PT 24.2805 17.4138 44.71510000000001) (MAKE-PT 23.8509 18.1819 44.072) (MAKE-PT 24.2506 17.8583 46.0741) (MAKE-PT 25.583 18.032 46.5775) (MAKE-PT 25.8569 19.0761 46.4256) (MAKE-PT 26.441 17.1555 45.70330000000001) (MAKE-PT 26.3459 16.1253 46.0462) (MAKE-PT 27.7649 17.5888 45.6478) (MAKE-PT 28.1004 17.9719 46.4616) (MAKE-PT 25.7796 17.2997 44.35129999999999) (MAKE-PT 25.9478 16.3824 43.7871) (MAKE-PT 26.2154 18.4984 43.6541) (MAKE-PT 25.7321 17.6281 47.9726) (MAKE-PT 25.5136 18.5779 48.956) (MAKE-PT 25.2079 19.7276 48.6503) (MAKE-PT 25.6482 18.1987 50.2518) (MAKE-PT 25.9847 16.9266 50.6092) (MAKE-PT 26.0918 16.6439 51.84159999999999) (MAKE-PT 26.2067 15.9515 49.5943) (MAKE-PT 26.0713 16.3497 48.308) (MAKE-PT 25.489 18.9105 51.0618) (MAKE-PT 26.4742 14.931 49.8682) (MAKE-PT 26.2346 15.6394 47.4975)) The following expression, nucleic2-stalin.sc:2923:110888, allocates on the heap: (MAKE-PT 26.2346 15.6394 47.4975) The following expression, nucleic2-stalin.sc:2922:110845, allocates on the heap: (MAKE-PT 26.4742 14.931 49.8682) The following expression, nucleic2-stalin.sc:2921:110802, allocates on the heap: (MAKE-PT 25.489 18.9105 51.0618) The following expression, nucleic2-stalin.sc:2920:110759, allocates on the heap: (MAKE-PT 26.0713 16.3497 48.308) The following expression, nucleic2-stalin.sc:2919:110716, allocates on the heap: (MAKE-PT 26.2067 15.9515 49.5943) The following expression, nucleic2-stalin.sc:2918:110673, allocates on the heap: (MAKE-PT 26.0918 16.6439 51.84159999999999) The following expression, nucleic2-stalin.sc:2917:110630, allocates on the heap: (MAKE-PT 25.9847 16.9266 50.6092) The following expression, nucleic2-stalin.sc:2916:110587, allocates on the heap: (MAKE-PT 25.6482 18.1987 50.2518) The following expression, nucleic2-stalin.sc:2915:110544, allocates on the heap: (MAKE-PT 25.2079 19.7276 48.6503) The following expression, nucleic2-stalin.sc:2914:110501, allocates on the heap: (MAKE-PT 25.5136 18.5779 48.956) The following expression, nucleic2-stalin.sc:2913:110458, allocates on the heap: (MAKE-PT 25.7321 17.6281 47.9726) The following expression, nucleic2-stalin.sc:2912:110414, allocates on the heap: (MAKE-PT 26.2154 18.4984 43.6541) The following expression, nucleic2-stalin.sc:2911:110370, allocates on the heap: (MAKE-PT 25.9478 16.3824 43.7871) The following expression, nucleic2-stalin.sc:2910:110326, allocates on the heap: (MAKE-PT 25.7796 17.2997 44.35129999999999) The following expression, nucleic2-stalin.sc:2909:110282, allocates on the heap: (MAKE-PT 28.1004 17.9719 46.4616) The following expression, nucleic2-stalin.sc:2908:110238, allocates on the heap: (MAKE-PT 27.7649 17.5888 45.6478) The following expression, nucleic2-stalin.sc:2907:110193, allocates on the heap: (MAKE-PT 26.3459 16.1253 46.0462) The following expression, nucleic2-stalin.sc:2906:110149, allocates on the heap: (MAKE-PT 26.441 17.1555 45.70330000000001) The following expression, nucleic2-stalin.sc:2905:110105, allocates on the heap: (MAKE-PT 25.8569 19.0761 46.4256) The following expression, nucleic2-stalin.sc:2904:110061, allocates on the heap: (MAKE-PT 25.583 18.032 46.5775) The following expression, nucleic2-stalin.sc:2903:110017, allocates on the heap: (MAKE-PT 24.2506 17.8583 46.0741) The following expression, nucleic2-stalin.sc:2902:109973, allocates on the heap: (MAKE-PT 23.8509 18.1819 44.072) The following expression, nucleic2-stalin.sc:2901:109929, allocates on the heap: (MAKE-PT 24.2805 17.4138 44.71510000000001) The following expression, nucleic2-stalin.sc:2900:109884, allocates on the heap: (MAKE-PT 23.9621 15.4341 45.29190000000001) The following expression, nucleic2-stalin.sc:2899:109840, allocates on the heap: (MAKE-PT 23.5649 15.8588 43.52220000000001) The following expression, nucleic2-stalin.sc:2898:109796, allocates on the heap: (MAKE-PT 23.5096 16.1227 44.57830000000001) The following expression, nucleic2-stalin.sc:2897:109752, allocates on the heap: (MAKE-PT 22.125 16.36 44.946) The following expression, nucleic2-stalin.sc:2896:109708, allocates on the heap: (MAKE-PT 21.145 14.027 44.542) The following expression, nucleic2-stalin.sc:2895:109664, allocates on the heap: (MAKE-PT 21.998 14.55 46.821) The following expression, nucleic2-stalin.sc:2894:109622, allocates on the heap: (MAKE-PT 21.388 15.078 45.577) The following expression, nucleic2-stalin.sc:2890:109476, allocates on the heap: (MAKE-TFO 0.7136 -0.5032 -0.4873000000000001 0.6802999999999999 0.3316999999999999 0.6536000000000001 -0.1673 -0.7978999999999999 0.5791000000000001 -17.1858 41.439 -27.0751) The following expression, nucleic2-stalin.sc:2886:109329, allocates on the heap: (MAKE-TFO 0.1063 -0.6334 -0.7665 -0.5931999999999999 -0.6591 0.4624 -0.7979999999999999 0.4055 -0.4458 43.7634 4.3296 28.489) The following expression, nucleic2-stalin.sc:2882:109182, allocates on the heap: (MAKE-TFO 0.2765 -0.1121 -0.9545 -0.8297000000000001 0.4733000000000001 -0.2959000000000001 0.485 0.8737000000000001 0.0379 -14.7774 -45.2464 21.9088) The following expression, nucleic2-stalin.sc:2878:109036, allocates on the heap: (MAKE-TFO -0.9673999999999999 0.1021 -0.2318 -0.2514 -0.2766 0.9275 0.0306 0.9555 0.2933000000000001 27.8571 -42.1305 -24.4563) The following expression, nucleic2-stalin.sc:2827:107100, allocates on the heap: (MAKE-RU (MAKE-TFO -0.0317 0.1374 0.99 -0.3421999999999999 -0.9321 0.1184 0.9391 -0.3351 0.07650000000000001 -32.19290000000001 25.8198 -28.5088) (MAKE-TFO 0.2765 -0.1121 -0.9545 -0.8297000000000001 0.4733000000000001 -0.2959000000000001 0.485 0.8737000000000001 0.0379 -14.7774 -45.2464 21.9088) (MAKE-TFO 0.1063 -0.6334 -0.7665 -0.5931999999999999 -0.6591 0.4624 -0.7979999999999999 0.4055 -0.4458 43.7634 4.3296 28.489) (MAKE-TFO 0.7136 -0.5032 -0.4873000000000001 0.6802999999999999 0.3316999999999999 0.6536000000000001 -0.1673 -0.7978999999999999 0.5791000000000001 -17.1858 41.439 -27.0751) (MAKE-PT 21.388 15.078 45.577) (MAKE-PT 21.998 14.55 46.821) (MAKE-PT 21.145 14.027 44.542) (MAKE-PT 22.125 16.36 44.946) (MAKE-PT 21.5037 16.8594 43.73230000000001) (MAKE-PT 20.8147 17.6663 43.9823) (MAKE-PT 21.1086 16.023 43.1557) (MAKE-PT 22.5654 17.4874 42.8616) (MAKE-PT 23.0565 18.3036 43.3915) (MAKE-PT 23.5375 16.5054 42.49250000000001) (MAKE-PT 23.6574 16.4257 41.0649) (MAKE-PT 24.4701 17.0882 40.76710000000001) (MAKE-PT 22.3525 16.9643 40.5396) (MAKE-PT 21.5993 16.1799 40.6133) (MAKE-PT 22.4693 17.4849 39.2515) (MAKE-PT 23.0899 17.0235 38.6827) (MAKE-PT 22.0341 18.0633 41.5279) (MAKE-PT 20.9509 18.1709 41.58459999999999) (MAKE-PT 22.7249 19.302 41.21) (MAKE-PT 23.858 15.0648 40.5757) (MAKE-PT 25.1556 14.5982 40.4523) (MAKE-PT 26.1047 15.321 40.7448) (MAKE-PT 25.3391 13.3315 40.002) (MAKE-PT 24.2974 12.5148 39.6749) (MAKE-PT 24.545 11.341 39.261) (MAKE-PT 22.9633 12.9979 39.8053) (MAKE-PT 22.8009 14.2648 40.2524) (MAKE-PT 26.3414 12.9194 39.8855) (MAKE-PT 22.1227 12.3533 39.5486) (MAKE-PT 21.7989 14.6788 40.365)) The following expression, nucleic2-stalin.sc:2873:108964, allocates on the heap: (MAKE-PT 21.7989 14.6788 40.365) The following expression, nucleic2-stalin.sc:2872:108921, allocates on the heap: (MAKE-PT 22.1227 12.3533 39.5486) The following expression, nucleic2-stalin.sc:2871:108878, allocates on the heap: (MAKE-PT 26.3414 12.9194 39.8855) The following expression, nucleic2-stalin.sc:2870:108835, allocates on the heap: (MAKE-PT 22.8009 14.2648 40.2524) The following expression, nucleic2-stalin.sc:2869:108792, allocates on the heap: (MAKE-PT 22.9633 12.9979 39.8053) The following expression, nucleic2-stalin.sc:2868:108749, allocates on the heap: (MAKE-PT 24.545 11.341 39.261) The following expression, nucleic2-stalin.sc:2867:108706, allocates on the heap: (MAKE-PT 24.2974 12.5148 39.6749) The following expression, nucleic2-stalin.sc:2866:108663, allocates on the heap: (MAKE-PT 25.3391 13.3315 40.002) The following expression, nucleic2-stalin.sc:2865:108620, allocates on the heap: (MAKE-PT 26.1047 15.321 40.7448) The following expression, nucleic2-stalin.sc:2864:108577, allocates on the heap: (MAKE-PT 25.1556 14.5982 40.4523) The following expression, nucleic2-stalin.sc:2863:108534, allocates on the heap: (MAKE-PT 23.858 15.0648 40.5757) The following expression, nucleic2-stalin.sc:2862:108490, allocates on the heap: (MAKE-PT 22.7249 19.302 41.21) The following expression, nucleic2-stalin.sc:2861:108446, allocates on the heap: (MAKE-PT 20.9509 18.1709 41.58459999999999) The following expression, nucleic2-stalin.sc:2860:108402, allocates on the heap: (MAKE-PT 22.0341 18.0633 41.5279) The following expression, nucleic2-stalin.sc:2859:108358, allocates on the heap: (MAKE-PT 23.0899 17.0235 38.6827) The following expression, nucleic2-stalin.sc:2858:108314, allocates on the heap: (MAKE-PT 22.4693 17.4849 39.2515) The following expression, nucleic2-stalin.sc:2857:108269, allocates on the heap: (MAKE-PT 21.5993 16.1799 40.6133) The following expression, nucleic2-stalin.sc:2856:108225, allocates on the heap: (MAKE-PT 22.3525 16.9643 40.5396) The following expression, nucleic2-stalin.sc:2855:108181, allocates on the heap: (MAKE-PT 24.4701 17.0882 40.76710000000001) The following expression, nucleic2-stalin.sc:2854:108137, allocates on the heap: (MAKE-PT 23.6574 16.4257 41.0649) The following expression, nucleic2-stalin.sc:2853:108093, allocates on the heap: (MAKE-PT 23.5375 16.5054 42.49250000000001) The following expression, nucleic2-stalin.sc:2852:108049, allocates on the heap: (MAKE-PT 23.0565 18.3036 43.3915) The following expression, nucleic2-stalin.sc:2851:108005, allocates on the heap: (MAKE-PT 22.5654 17.4874 42.8616) The following expression, nucleic2-stalin.sc:2850:107960, allocates on the heap: (MAKE-PT 21.1086 16.023 43.1557) The following expression, nucleic2-stalin.sc:2849:107916, allocates on the heap: (MAKE-PT 20.8147 17.6663 43.9823) The following expression, nucleic2-stalin.sc:2848:107872, allocates on the heap: (MAKE-PT 21.5037 16.8594 43.73230000000001) The following expression, nucleic2-stalin.sc:2847:107828, allocates on the heap: (MAKE-PT 22.125 16.36 44.946) The following expression, nucleic2-stalin.sc:2846:107784, allocates on the heap: (MAKE-PT 21.145 14.027 44.542) The following expression, nucleic2-stalin.sc:2845:107740, allocates on the heap: (MAKE-PT 21.998 14.55 46.821) The following expression, nucleic2-stalin.sc:2844:107698, allocates on the heap: (MAKE-PT 21.388 15.078 45.577) The following expression, nucleic2-stalin.sc:2840:107552, allocates on the heap: (MAKE-TFO 0.7136 -0.5032 -0.4873000000000001 0.6802999999999999 0.3316999999999999 0.6536000000000001 -0.1673 -0.7978999999999999 0.5791000000000001 -17.1858 41.439 -27.0751) The following expression, nucleic2-stalin.sc:2836:107405, allocates on the heap: (MAKE-TFO 0.1063 -0.6334 -0.7665 -0.5931999999999999 -0.6591 0.4624 -0.7979999999999999 0.4055 -0.4458 43.7634 4.3296 28.489) The following expression, nucleic2-stalin.sc:2832:107258, allocates on the heap: (MAKE-TFO 0.2765 -0.1121 -0.9545 -0.8297000000000001 0.4733000000000001 -0.2959000000000001 0.485 0.8737000000000001 0.0379 -14.7774 -45.2464 21.9088) The following expression, nucleic2-stalin.sc:2828:107111, allocates on the heap: (MAKE-TFO -0.0317 0.1374 0.99 -0.3421999999999999 -0.9321 0.1184 0.9391 -0.3351 0.07650000000000001 -32.19290000000001 25.8198 -28.5088) The following expression, nucleic2-stalin.sc:2777:105175, allocates on the heap: (MAKE-RU (MAKE-TFO -0.008 -0.7927999999999999 0.6093999999999999 -0.7512 0.4071 0.5197000000000001 -0.6600999999999999 -0.4536 -0.5988 44.1482 30.7036 2.1088) (MAKE-TFO 0.2765 -0.1121 -0.9545 -0.8297000000000001 0.4733000000000001 -0.2959000000000001 0.485 0.8737000000000001 0.0379 -14.7774 -45.2464 21.9088) (MAKE-TFO 0.1063 -0.6334 -0.7665 -0.5931999999999999 -0.6591 0.4624 -0.7979999999999999 0.4055 -0.4458 43.7634 4.3296 28.489) (MAKE-TFO 0.7136 -0.5032 -0.4873000000000001 0.6802999999999999 0.3316999999999999 0.6536000000000001 -0.1673 -0.7978999999999999 0.5791000000000001 -17.1858 41.439 -27.0751) (MAKE-PT 21.388 15.078 45.577) (MAKE-PT 21.998 14.55 46.821) (MAKE-PT 21.145 14.027 44.542) (MAKE-PT 22.125 16.36 44.946) (MAKE-PT 23.5096 16.1227 44.57830000000001) (MAKE-PT 23.5649 15.8588 43.52220000000001) (MAKE-PT 23.9621 15.4341 45.29190000000001) (MAKE-PT 24.2805 17.4138 44.71510000000001) (MAKE-PT 25.3492 17.2309 44.603) (MAKE-PT 23.8497 18.3471 43.7208) (MAKE-PT 23.409 19.5681 44.3321) (MAKE-PT 24.2595 20.2496 44.3524) (MAKE-PT 23.0418 19.1813 45.7407) (MAKE-PT 22.0532 18.7224 45.72730000000001) (MAKE-PT 23.1307 20.2521 46.62910000000001) (MAKE-PT 22.8888 21.1051 46.26110000000001) (MAKE-PT 24.0799 18.1326 46.07) (MAKE-PT 23.649 17.437 46.79000000000001) (MAKE-PT 25.3329 18.7227 46.5109) (MAKE-PT 22.2515 20.1624 43.6698) (MAKE-PT 22.476 21.0609 42.6406) (MAKE-PT 23.6229 21.3462 42.3061) (MAKE-PT 21.3986 21.6081 42.0236) (MAKE-PT 20.1189 21.3012 42.38039999999999) (MAKE-PT 19.1599 21.8516 41.7578) (MAKE-PT 19.8919 20.3745 43.4387) (MAKE-PT 20.979 19.8423 44.044) (MAKE-PT 21.5235 22.3222 41.20970000000001) (MAKE-PT 18.8732 20.12 43.7312) (MAKE-PT 20.8545 19.1313 44.8608)) The following expression, nucleic2-stalin.sc:2823:107039, allocates on the heap: (MAKE-PT 20.8545 19.1313 44.8608) The following expression, nucleic2-stalin.sc:2822:106996, allocates on the heap: (MAKE-PT 18.8732 20.12 43.7312) The following expression, nucleic2-stalin.sc:2821:106953, allocates on the heap: (MAKE-PT 21.5235 22.3222 41.20970000000001) The following expression, nucleic2-stalin.sc:2820:106910, allocates on the heap: (MAKE-PT 20.979 19.8423 44.044) The following expression, nucleic2-stalin.sc:2819:106867, allocates on the heap: (MAKE-PT 19.8919 20.3745 43.4387) The following expression, nucleic2-stalin.sc:2818:106824, allocates on the heap: (MAKE-PT 19.1599 21.8516 41.7578) The following expression, nucleic2-stalin.sc:2817:106781, allocates on the heap: (MAKE-PT 20.1189 21.3012 42.38039999999999) The following expression, nucleic2-stalin.sc:2816:106738, allocates on the heap: (MAKE-PT 21.3986 21.6081 42.0236) The following expression, nucleic2-stalin.sc:2815:106695, allocates on the heap: (MAKE-PT 23.6229 21.3462 42.3061) The following expression, nucleic2-stalin.sc:2814:106652, allocates on the heap: (MAKE-PT 22.476 21.0609 42.6406) The following expression, nucleic2-stalin.sc:2813:106609, allocates on the heap: (MAKE-PT 22.2515 20.1624 43.6698) The following expression, nucleic2-stalin.sc:2812:106565, allocates on the heap: (MAKE-PT 25.3329 18.7227 46.5109) The following expression, nucleic2-stalin.sc:2811:106521, allocates on the heap: (MAKE-PT 23.649 17.437 46.79000000000001) The following expression, nucleic2-stalin.sc:2810:106477, allocates on the heap: (MAKE-PT 24.0799 18.1326 46.07) The following expression, nucleic2-stalin.sc:2809:106433, allocates on the heap: (MAKE-PT 22.8888 21.1051 46.26110000000001) The following expression, nucleic2-stalin.sc:2808:106389, allocates on the heap: (MAKE-PT 23.1307 20.2521 46.62910000000001) The following expression, nucleic2-stalin.sc:2807:106344, allocates on the heap: (MAKE-PT 22.0532 18.7224 45.72730000000001) The following expression, nucleic2-stalin.sc:2806:106300, allocates on the heap: (MAKE-PT 23.0418 19.1813 45.7407) The following expression, nucleic2-stalin.sc:2805:106256, allocates on the heap: (MAKE-PT 24.2595 20.2496 44.3524) The following expression, nucleic2-stalin.sc:2804:106212, allocates on the heap: (MAKE-PT 23.409 19.5681 44.3321) The following expression, nucleic2-stalin.sc:2803:106168, allocates on the heap: (MAKE-PT 23.8497 18.3471 43.7208) The following expression, nucleic2-stalin.sc:2802:106124, allocates on the heap: (MAKE-PT 25.3492 17.2309 44.603) The following expression, nucleic2-stalin.sc:2801:106080, allocates on the heap: (MAKE-PT 24.2805 17.4138 44.71510000000001) The following expression, nucleic2-stalin.sc:2800:106035, allocates on the heap: (MAKE-PT 23.9621 15.4341 45.29190000000001) The following expression, nucleic2-stalin.sc:2799:105991, allocates on the heap: (MAKE-PT 23.5649 15.8588 43.52220000000001) The following expression, nucleic2-stalin.sc:2798:105947, allocates on the heap: (MAKE-PT 23.5096 16.1227 44.57830000000001) The following expression, nucleic2-stalin.sc:2797:105903, allocates on the heap: (MAKE-PT 22.125 16.36 44.946) The following expression, nucleic2-stalin.sc:2796:105859, allocates on the heap: (MAKE-PT 21.145 14.027 44.542) The following expression, nucleic2-stalin.sc:2795:105815, allocates on the heap: (MAKE-PT 21.998 14.55 46.821) The following expression, nucleic2-stalin.sc:2794:105773, allocates on the heap: (MAKE-PT 21.388 15.078 45.577) The following expression, nucleic2-stalin.sc:2790:105627, allocates on the heap: (MAKE-TFO 0.7136 -0.5032 -0.4873000000000001 0.6802999999999999 0.3316999999999999 0.6536000000000001 -0.1673 -0.7978999999999999 0.5791000000000001 -17.1858 41.439 -27.0751) The following expression, nucleic2-stalin.sc:2786:105480, allocates on the heap: (MAKE-TFO 0.1063 -0.6334 -0.7665 -0.5931999999999999 -0.6591 0.4624 -0.7979999999999999 0.4055 -0.4458 43.7634 4.3296 28.489) The following expression, nucleic2-stalin.sc:2782:105333, allocates on the heap: (MAKE-TFO 0.2765 -0.1121 -0.9545 -0.8297000000000001 0.4733000000000001 -0.2959000000000001 0.485 0.8737000000000001 0.0379 -14.7774 -45.2464 21.9088) The following expression, nucleic2-stalin.sc:2778:105186, allocates on the heap: (MAKE-TFO -0.008 -0.7927999999999999 0.6093999999999999 -0.7512 0.4071 0.5197000000000001 -0.6600999999999999 -0.4536 -0.5988 44.1482 30.7036 2.1088) The following expression, nucleic2-stalin.sc:2727:103253, allocates on the heap: (MAKE-RU (MAKE-TFO -0.9434 0.3172 0.09710000000000001 0.2294 0.4125 0.8816000000000001 0.2396 0.8539000000000001 -0.4619 8.362500000000002 -52.7147 1.3745) (MAKE-TFO 0.2765 -0.1121 -0.9545 -0.8297000000000001 0.4733000000000001 -0.2959000000000001 0.485 0.8737000000000001 0.0379 -14.7774 -45.2464 21.9088) (MAKE-TFO 0.1063 -0.6334 -0.7665 -0.5931999999999999 -0.6591 0.4624 -0.7979999999999999 0.4055 -0.4458 43.7634 4.3296 28.489) (MAKE-TFO 0.7136 -0.5032 -0.4873000000000001 0.6802999999999999 0.3316999999999999 0.6536000000000001 -0.1673 -0.7978999999999999 0.5791000000000001 -17.1858 41.439 -27.0751) (MAKE-PT 21.388 15.078 45.577) (MAKE-PT 21.998 14.55 46.821) (MAKE-PT 21.145 14.027 44.542) (MAKE-PT 22.125 16.36 44.946) (MAKE-PT 21.5037 16.8594 43.73230000000001) (MAKE-PT 20.8147 17.6663 43.9823) (MAKE-PT 21.1086 16.023 43.1557) (MAKE-PT 22.5654 17.4874 42.8616) (MAKE-PT 22.1584 17.7243 41.8785) (MAKE-PT 23.0557 18.6826 43.4751) (MAKE-PT 24.4788 18.6151 43.64550000000001) (MAKE-PT 24.9355 19.084 42.7739) (MAKE-PT 24.7958 17.1427 43.6474) (MAKE-PT 24.5652 16.74 44.6336) (MAKE-PT 26.1041 16.8773 43.24550000000001) (MAKE-PT 26.7516 17.5328 43.5149) (MAKE-PT 23.8109 16.5979 42.6377) (MAKE-PT 23.5756 15.5686 42.9084) (MAKE-PT 24.289 16.7447 41.27290000000001) (MAKE-PT 24.942 19.2174 44.89230000000001) (MAKE-PT 25.2655 20.5636 44.8883) (MAKE-PT 25.1663 21.2219 43.8561) (MAKE-PT 25.6911 21.1219 46.0494) (MAKE-PT 25.8051 20.4068 47.2048) (MAKE-PT 26.2093 20.9962 48.2534) (MAKE-PT 25.4692 19.0221 47.20530000000001) (MAKE-PT 25.0502 18.48269999999999 46.037) (MAKE-PT 25.9599 22.1772 46.0966) (MAKE-PT 25.5545 18.4409 48.1234) (MAKE-PT 24.7854 17.4265 45.9883)) The following expression, nucleic2-stalin.sc:2773:105114, allocates on the heap: (MAKE-PT 24.7854 17.4265 45.9883) The following expression, nucleic2-stalin.sc:2772:105071, allocates on the heap: (MAKE-PT 25.5545 18.4409 48.1234) The following expression, nucleic2-stalin.sc:2771:105028, allocates on the heap: (MAKE-PT 25.9599 22.1772 46.0966) The following expression, nucleic2-stalin.sc:2770:104985, allocates on the heap: (MAKE-PT 25.0502 18.48269999999999 46.037) The following expression, nucleic2-stalin.sc:2769:104942, allocates on the heap: (MAKE-PT 25.4692 19.0221 47.20530000000001) The following expression, nucleic2-stalin.sc:2768:104899, allocates on the heap: (MAKE-PT 26.2093 20.9962 48.2534) The following expression, nucleic2-stalin.sc:2767:104856, allocates on the heap: (MAKE-PT 25.8051 20.4068 47.2048) The following expression, nucleic2-stalin.sc:2766:104813, allocates on the heap: (MAKE-PT 25.6911 21.1219 46.0494) The following expression, nucleic2-stalin.sc:2765:104770, allocates on the heap: (MAKE-PT 25.1663 21.2219 43.8561) The following expression, nucleic2-stalin.sc:2764:104727, allocates on the heap: (MAKE-PT 25.2655 20.5636 44.8883) The following expression, nucleic2-stalin.sc:2763:104684, allocates on the heap: (MAKE-PT 24.942 19.2174 44.89230000000001) The following expression, nucleic2-stalin.sc:2762:104640, allocates on the heap: (MAKE-PT 24.289 16.7447 41.27290000000001) The following expression, nucleic2-stalin.sc:2761:104596, allocates on the heap: (MAKE-PT 23.5756 15.5686 42.9084) The following expression, nucleic2-stalin.sc:2760:104552, allocates on the heap: (MAKE-PT 23.8109 16.5979 42.6377) The following expression, nucleic2-stalin.sc:2759:104508, allocates on the heap: (MAKE-PT 26.7516 17.5328 43.5149) The following expression, nucleic2-stalin.sc:2758:104464, allocates on the heap: (MAKE-PT 26.1041 16.8773 43.24550000000001) The following expression, nucleic2-stalin.sc:2757:104419, allocates on the heap: (MAKE-PT 24.5652 16.74 44.6336) The following expression, nucleic2-stalin.sc:2756:104375, allocates on the heap: (MAKE-PT 24.7958 17.1427 43.6474) The following expression, nucleic2-stalin.sc:2755:104331, allocates on the heap: (MAKE-PT 24.9355 19.084 42.7739) The following expression, nucleic2-stalin.sc:2754:104287, allocates on the heap: (MAKE-PT 24.4788 18.6151 43.64550000000001) The following expression, nucleic2-stalin.sc:2753:104243, allocates on the heap: (MAKE-PT 23.0557 18.6826 43.4751) The following expression, nucleic2-stalin.sc:2752:104199, allocates on the heap: (MAKE-PT 22.1584 17.7243 41.8785) The following expression, nucleic2-stalin.sc:2751:104155, allocates on the heap: (MAKE-PT 22.5654 17.4874 42.8616) The following expression, nucleic2-stalin.sc:2750:104110, allocates on the heap: (MAKE-PT 21.1086 16.023 43.1557) The following expression, nucleic2-stalin.sc:2749:104066, allocates on the heap: (MAKE-PT 20.8147 17.6663 43.9823) The following expression, nucleic2-stalin.sc:2748:104022, allocates on the heap: (MAKE-PT 21.5037 16.8594 43.73230000000001) The following expression, nucleic2-stalin.sc:2747:103978, allocates on the heap: (MAKE-PT 22.125 16.36 44.946) The following expression, nucleic2-stalin.sc:2746:103934, allocates on the heap: (MAKE-PT 21.145 14.027 44.542) The following expression, nucleic2-stalin.sc:2745:103890, allocates on the heap: (MAKE-PT 21.998 14.55 46.821) The following expression, nucleic2-stalin.sc:2744:103848, allocates on the heap: (MAKE-PT 21.388 15.078 45.577) The following expression, nucleic2-stalin.sc:2740:103702, allocates on the heap: (MAKE-TFO 0.7136 -0.5032 -0.4873000000000001 0.6802999999999999 0.3316999999999999 0.6536000000000001 -0.1673 -0.7978999999999999 0.5791000000000001 -17.1858 41.439 -27.0751) The following expression, nucleic2-stalin.sc:2736:103555, allocates on the heap: (MAKE-TFO 0.1063 -0.6334 -0.7665 -0.5931999999999999 -0.6591 0.4624 -0.7979999999999999 0.4055 -0.4458 43.7634 4.3296 28.489) The following expression, nucleic2-stalin.sc:2732:103408, allocates on the heap: (MAKE-TFO 0.2765 -0.1121 -0.9545 -0.8297000000000001 0.4733000000000001 -0.2959000000000001 0.485 0.8737000000000001 0.0379 -14.7774 -45.2464 21.9088) The following expression, nucleic2-stalin.sc:2728:103264, allocates on the heap: (MAKE-TFO -0.9434 0.3172 0.09710000000000001 0.2294 0.4125 0.8816000000000001 0.2396 0.8539000000000001 -0.4619 8.362500000000002 -52.7147 1.3745) The following expression, nucleic2-stalin.sc:2677:101334, allocates on the heap: (MAKE-RU (MAKE-TFO -0.9837 0.0476 -0.1733 -0.1792 -0.3353 0.9249000000000001 -0.0141 0.9409000000000001 0.3384 5.779300000000001 -5.230300000000001 4.5997) (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) (MAKE-PT 2.676 -8.496 3.288) (MAKE-PT 1.495 -7.622999999999999 3.477) (MAKE-PT 2.949 -9.464 4.374) (MAKE-PT 3.973 -7.595 3.034) (MAKE-PT 3.9938 -6.7042 1.9023) (MAKE-PT 3.2332 -5.9343 2.0319) (MAKE-PT 3.9666 -7.286300000000001 0.9812) (MAKE-PT 5.3098 -5.9546 1.8564) (MAKE-PT 5.3863 -5.370200000000001 0.9395) (MAKE-PT 5.3851 -5.0642 3.0076) (MAKE-PT 6.7315 -4.9724 3.4462) (MAKE-PT 7.0033 -3.9202 3.3619) (MAKE-PT 7.5997 -5.8018 2.4948) (MAKE-PT 8.362700000000002 -6.325399999999999 3.0707) (MAKE-PT 8.040999999999999 -4.9501 1.4724) (MAKE-PT 8.278099999999998 -4.064399999999999 1.757) (MAKE-PT 6.5701 -6.812899999999999 1.9714) (MAKE-PT 6.418600000000001 -7.5809 2.7299) (MAKE-PT 6.935700000000001 -7.384099999999999 0.7234999999999999) (MAKE-PT 6.8024 -5.471800000000001 4.847499999999999) (MAKE-PT 6.691999999999999 -5.0495 7.1354) (MAKE-PT 6.620099999999999 -4.55 5.8506) (MAKE-PT 6.9254 -6.3614 7.4926) (MAKE-PT 7.1046 -7.2543 6.3718) (MAKE-PT 7.0391 -6.7951 5.1106) (MAKE-PT 6.408300000000001 -3.3696 5.633999999999999) (MAKE-PT 6.967899999999999 -6.690099999999999 8.68) (MAKE-PT 6.5626 -4.3957 7.881200000000001) (MAKE-PT 7.2781 -8.2254 6.535) (MAKE-PT 7.165699999999999 -7.431200000000001 4.3503)) The following expression, nucleic2-stalin.sc:2723:103192, allocates on the heap: (MAKE-PT 7.165699999999999 -7.431200000000001 4.3503) The following expression, nucleic2-stalin.sc:2722:103149, allocates on the heap: (MAKE-PT 7.2781 -8.2254 6.535) The following expression, nucleic2-stalin.sc:2721:103106, allocates on the heap: (MAKE-PT 6.5626 -4.3957 7.881200000000001) The following expression, nucleic2-stalin.sc:2720:103063, allocates on the heap: (MAKE-PT 6.967899999999999 -6.690099999999999 8.68) The following expression, nucleic2-stalin.sc:2719:103020, allocates on the heap: (MAKE-PT 6.408300000000001 -3.3696 5.633999999999999) The following expression, nucleic2-stalin.sc:2718:102977, allocates on the heap: (MAKE-PT 7.0391 -6.7951 5.1106) The following expression, nucleic2-stalin.sc:2717:102934, allocates on the heap: (MAKE-PT 7.1046 -7.2543 6.3718) The following expression, nucleic2-stalin.sc:2716:102891, allocates on the heap: (MAKE-PT 6.9254 -6.3614 7.4926) The following expression, nucleic2-stalin.sc:2715:102848, allocates on the heap: (MAKE-PT 6.620099999999999 -4.55 5.8506) The following expression, nucleic2-stalin.sc:2714:102805, allocates on the heap: (MAKE-PT 6.691999999999999 -5.0495 7.1354) The following expression, nucleic2-stalin.sc:2713:102762, allocates on the heap: (MAKE-PT 6.8024 -5.471800000000001 4.847499999999999) The following expression, nucleic2-stalin.sc:2712:102718, allocates on the heap: (MAKE-PT 6.935700000000001 -7.384099999999999 0.7234999999999999) The following expression, nucleic2-stalin.sc:2711:102674, allocates on the heap: (MAKE-PT 6.418600000000001 -7.5809 2.7299) The following expression, nucleic2-stalin.sc:2710:102630, allocates on the heap: (MAKE-PT 6.5701 -6.812899999999999 1.9714) The following expression, nucleic2-stalin.sc:2709:102586, allocates on the heap: (MAKE-PT 8.278099999999998 -4.064399999999999 1.757) The following expression, nucleic2-stalin.sc:2708:102542, allocates on the heap: (MAKE-PT 8.040999999999999 -4.9501 1.4724) The following expression, nucleic2-stalin.sc:2707:102497, allocates on the heap: (MAKE-PT 8.362700000000002 -6.325399999999999 3.0707) The following expression, nucleic2-stalin.sc:2706:102453, allocates on the heap: (MAKE-PT 7.5997 -5.8018 2.4948) The following expression, nucleic2-stalin.sc:2705:102409, allocates on the heap: (MAKE-PT 7.0033 -3.9202 3.3619) The following expression, nucleic2-stalin.sc:2704:102365, allocates on the heap: (MAKE-PT 6.7315 -4.9724 3.4462) The following expression, nucleic2-stalin.sc:2703:102321, allocates on the heap: (MAKE-PT 5.3851 -5.0642 3.0076) The following expression, nucleic2-stalin.sc:2702:102277, allocates on the heap: (MAKE-PT 5.3863 -5.370200000000001 0.9395) The following expression, nucleic2-stalin.sc:2701:102233, allocates on the heap: (MAKE-PT 5.3098 -5.9546 1.8564) The following expression, nucleic2-stalin.sc:2700:102188, allocates on the heap: (MAKE-PT 3.9666 -7.286300000000001 0.9812) The following expression, nucleic2-stalin.sc:2699:102144, allocates on the heap: (MAKE-PT 3.2332 -5.9343 2.0319) The following expression, nucleic2-stalin.sc:2698:102100, allocates on the heap: (MAKE-PT 3.9938 -6.7042 1.9023) The following expression, nucleic2-stalin.sc:2697:102056, allocates on the heap: (MAKE-PT 3.973 -7.595 3.034) The following expression, nucleic2-stalin.sc:2696:102012, allocates on the heap: (MAKE-PT 2.949 -9.464 4.374) The following expression, nucleic2-stalin.sc:2695:101968, allocates on the heap: (MAKE-PT 1.495 -7.622999999999999 3.477) The following expression, nucleic2-stalin.sc:2694:101926, allocates on the heap: (MAKE-PT 2.676 -8.496 3.288) The following expression, nucleic2-stalin.sc:2690:101782, allocates on the heap: (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) The following expression, nucleic2-stalin.sc:2686:101636, allocates on the heap: (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) The following expression, nucleic2-stalin.sc:2682:101491, allocates on the heap: (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) The following expression, nucleic2-stalin.sc:2678:101345, allocates on the heap: (MAKE-TFO -0.9837 0.0476 -0.1733 -0.1792 -0.3353 0.9249000000000001 -0.0141 0.9409000000000001 0.3384 5.779300000000001 -5.230300000000001 4.5997) The following expression, nucleic2-stalin.sc:2627:99415, allocates on the heap: (MAKE-RU (MAKE-TFO -0.6298 0.0246 0.7763 -0.5226000000000001 -0.7529 -0.4001 0.5746000000000001 -0.6577000000000001 0.487 -0.0208 -3.4598 -9.688199999999998) (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) (MAKE-PT 2.676 -8.496 3.288) (MAKE-PT 1.495 -7.622999999999999 3.477) (MAKE-PT 2.949 -9.464 4.374) (MAKE-PT 3.973 -7.595 3.034) (MAKE-PT 4.382499999999999 -6.658499999999999 4.0489) (MAKE-PT 4.684099999999999 -7.2019 4.9443) (MAKE-PT 3.6189 -5.8889 4.162499999999999) (MAKE-PT 5.625499999999999 -5.9175 3.5998) (MAKE-PT 5.873200000000001 -5.122799999999999 4.3034) (MAKE-PT 6.733700000000001 -6.860499999999999 3.5222) (MAKE-PT 7.5932 -6.4923 2.4548) (MAKE-PT 8.5661 -6.2983 2.9064) (MAKE-PT 7.0527 -5.201200000000001 1.8322) (MAKE-PT 7.162699999999999 -5.2525 0.749) (MAKE-PT 7.6666 -4.124899999999998 2.488) (MAKE-PT 8.5944 -4.2543 2.6981) (MAKE-PT 5.5661 -5.302899999999999 2.2009) (MAKE-PT 5.084099999999999 -6.0018 1.5172) (MAKE-PT 4.906200000000001 -4.0452 2.2042) (MAKE-PT 7.629799999999999 -7.6136 1.4752) (MAKE-PT 8.5977 -9.5977 0.7329) (MAKE-PT 8.5951 -8.5745 1.6594) (MAKE-PT 7.737200000000001 -9.737099999999998 -0.3364) (MAKE-PT 6.759600000000001 -8.680099999999999 -0.4476) (MAKE-PT 6.7338 -7.672099999999999 0.4408) (MAKE-PT 9.3993 -8.537699999999999 2.5743) (MAKE-PT 7.8374 -10.699 -1.1008) (MAKE-PT 9.292400000000001 -10.3081 0.8477000000000001) (MAKE-PT 6.0932 -8.698199999999998 -1.1929) (MAKE-PT 6.0481 -6.9515 0.3446)) The following expression, nucleic2-stalin.sc:2673:101273, allocates on the heap: (MAKE-PT 6.0481 -6.9515 0.3446) The following expression, nucleic2-stalin.sc:2672:101230, allocates on the heap: (MAKE-PT 6.0932 -8.698199999999998 -1.1929) The following expression, nucleic2-stalin.sc:2671:101187, allocates on the heap: (MAKE-PT 9.292400000000001 -10.3081 0.8477000000000001) The following expression, nucleic2-stalin.sc:2670:101144, allocates on the heap: (MAKE-PT 7.8374 -10.699 -1.1008) The following expression, nucleic2-stalin.sc:2669:101101, allocates on the heap: (MAKE-PT 9.3993 -8.537699999999999 2.5743) The following expression, nucleic2-stalin.sc:2668:101058, allocates on the heap: (MAKE-PT 6.7338 -7.672099999999999 0.4408) The following expression, nucleic2-stalin.sc:2667:101015, allocates on the heap: (MAKE-PT 6.759600000000001 -8.680099999999999 -0.4476) The following expression, nucleic2-stalin.sc:2666:100972, allocates on the heap: (MAKE-PT 7.737200000000001 -9.737099999999998 -0.3364) The following expression, nucleic2-stalin.sc:2665:100929, allocates on the heap: (MAKE-PT 8.5951 -8.5745 1.6594) The following expression, nucleic2-stalin.sc:2664:100886, allocates on the heap: (MAKE-PT 8.5977 -9.5977 0.7329) The following expression, nucleic2-stalin.sc:2663:100843, allocates on the heap: (MAKE-PT 7.629799999999999 -7.6136 1.4752) The following expression, nucleic2-stalin.sc:2662:100799, allocates on the heap: (MAKE-PT 4.906200000000001 -4.0452 2.2042) The following expression, nucleic2-stalin.sc:2661:100755, allocates on the heap: (MAKE-PT 5.084099999999999 -6.0018 1.5172) The following expression, nucleic2-stalin.sc:2660:100711, allocates on the heap: (MAKE-PT 5.5661 -5.302899999999999 2.2009) The following expression, nucleic2-stalin.sc:2659:100667, allocates on the heap: (MAKE-PT 8.5944 -4.2543 2.6981) The following expression, nucleic2-stalin.sc:2658:100623, allocates on the heap: (MAKE-PT 7.6666 -4.124899999999998 2.488) The following expression, nucleic2-stalin.sc:2657:100578, allocates on the heap: (MAKE-PT 7.162699999999999 -5.2525 0.749) The following expression, nucleic2-stalin.sc:2656:100534, allocates on the heap: (MAKE-PT 7.0527 -5.201200000000001 1.8322) The following expression, nucleic2-stalin.sc:2655:100490, allocates on the heap: (MAKE-PT 8.5661 -6.2983 2.9064) The following expression, nucleic2-stalin.sc:2654:100446, allocates on the heap: (MAKE-PT 7.5932 -6.4923 2.4548) The following expression, nucleic2-stalin.sc:2653:100402, allocates on the heap: (MAKE-PT 6.733700000000001 -6.860499999999999 3.5222) The following expression, nucleic2-stalin.sc:2652:100358, allocates on the heap: (MAKE-PT 5.873200000000001 -5.122799999999999 4.3034) The following expression, nucleic2-stalin.sc:2651:100314, allocates on the heap: (MAKE-PT 5.625499999999999 -5.9175 3.5998) The following expression, nucleic2-stalin.sc:2650:100269, allocates on the heap: (MAKE-PT 3.6189 -5.8889 4.162499999999999) The following expression, nucleic2-stalin.sc:2649:100225, allocates on the heap: (MAKE-PT 4.684099999999999 -7.2019 4.9443) The following expression, nucleic2-stalin.sc:2648:100181, allocates on the heap: (MAKE-PT 4.382499999999999 -6.658499999999999 4.0489) The following expression, nucleic2-stalin.sc:2647:100137, allocates on the heap: (MAKE-PT 3.973 -7.595 3.034) The following expression, nucleic2-stalin.sc:2646:100093, allocates on the heap: (MAKE-PT 2.949 -9.464 4.374) The following expression, nucleic2-stalin.sc:2645:100049, allocates on the heap: (MAKE-PT 1.495 -7.622999999999999 3.477) The following expression, nucleic2-stalin.sc:2644:100007, allocates on the heap: (MAKE-PT 2.676 -8.496 3.288) The following expression, nucleic2-stalin.sc:2640:99863, allocates on the heap: (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) The following expression, nucleic2-stalin.sc:2636:99717, allocates on the heap: (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) The following expression, nucleic2-stalin.sc:2632:99572, allocates on the heap: (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) The following expression, nucleic2-stalin.sc:2628:99426, allocates on the heap: (MAKE-TFO -0.6298 0.0246 0.7763 -0.5226000000000001 -0.7529 -0.4001 0.5746000000000001 -0.6577000000000001 0.487 -0.0208 -3.4598 -9.688199999999998) The following expression, nucleic2-stalin.sc:2577:97495, allocates on the heap: (MAKE-RU (MAKE-TFO -0.5669000000000001 -0.8012 0.1918 -0.8129000000000001 0.5817 0.0273 -0.1334 -0.1404 -0.9811 -0.3279 8.387400000000001 0.3355) (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) (MAKE-PT 2.676 -8.496 3.288) (MAKE-PT 1.495 -7.622999999999999 3.477) (MAKE-PT 2.949 -9.464 4.374) (MAKE-PT 3.973 -7.595 3.034) (MAKE-PT 5.241600000000001 -8.242199999999999 2.8181) (MAKE-PT 5.205 -8.812800000000001 1.8901) (MAKE-PT 5.5368 -8.7738 3.7227) (MAKE-PT 6.3232 -7.2037 2.6002) (MAKE-PT 7.304799999999999 -7.6757 2.5577) (MAKE-PT 6.063499999999999 -6.509200000000001 1.3456) (MAKE-PT 6.4697 -5.154699999999999 1.4629) (MAKE-PT 7.2354 -5.0043 0.7018) (MAKE-PT 7.0856 -4.961 2.8521) (MAKE-PT 6.7777 -3.9935 3.2487) (MAKE-PT 8.462700000000002 -5.1992 2.7423) (MAKE-PT 8.869300000000001 -4.863799999999999 1.9399) (MAKE-PT 6.3877 -6.0809 3.6362) (MAKE-PT 5.377 -5.756200000000001 3.8834) (MAKE-PT 7.102399999999999 -6.4754 4.7985) (MAKE-PT 5.276400000000001 -4.2883 1.2538) (MAKE-PT 3.8961 -3.0896 -0.1893) (MAKE-PT 5.0095 -3.8907 -0.03460000000000001) (MAKE-PT 3.048 -2.6632 0.8116000000000001) (MAKE-PT 3.4093 -3.131 2.1292) (MAKE-PT 4.4878 -3.912399999999999 2.3088) (MAKE-PT 5.7005 -4.2164 -0.9842) (MAKE-PT 2.08 -1.9458 0.5503) (MAKE-PT 3.6834 -2.7882 -1.119) (MAKE-PT 2.8508 -2.8721 2.9172) (MAKE-PT 4.7188 -4.224699999999999 3.2295)) The following expression, nucleic2-stalin.sc:2623:99354, allocates on the heap: (MAKE-PT 4.7188 -4.224699999999999 3.2295) The following expression, nucleic2-stalin.sc:2622:99311, allocates on the heap: (MAKE-PT 2.8508 -2.8721 2.9172) The following expression, nucleic2-stalin.sc:2621:99268, allocates on the heap: (MAKE-PT 3.6834 -2.7882 -1.119) The following expression, nucleic2-stalin.sc:2620:99225, allocates on the heap: (MAKE-PT 2.08 -1.9458 0.5503) The following expression, nucleic2-stalin.sc:2619:99182, allocates on the heap: (MAKE-PT 5.7005 -4.2164 -0.9842) The following expression, nucleic2-stalin.sc:2618:99139, allocates on the heap: (MAKE-PT 4.4878 -3.912399999999999 2.3088) The following expression, nucleic2-stalin.sc:2617:99096, allocates on the heap: (MAKE-PT 3.4093 -3.131 2.1292) The following expression, nucleic2-stalin.sc:2616:99053, allocates on the heap: (MAKE-PT 3.048 -2.6632 0.8116000000000001) The following expression, nucleic2-stalin.sc:2615:99010, allocates on the heap: (MAKE-PT 5.0095 -3.8907 -0.03460000000000001) The following expression, nucleic2-stalin.sc:2614:98967, allocates on the heap: (MAKE-PT 3.8961 -3.0896 -0.1893) The following expression, nucleic2-stalin.sc:2613:98924, allocates on the heap: (MAKE-PT 5.276400000000001 -4.2883 1.2538) The following expression, nucleic2-stalin.sc:2612:98880, allocates on the heap: (MAKE-PT 7.102399999999999 -6.4754 4.7985) The following expression, nucleic2-stalin.sc:2611:98836, allocates on the heap: (MAKE-PT 5.377 -5.756200000000001 3.8834) The following expression, nucleic2-stalin.sc:2610:98792, allocates on the heap: (MAKE-PT 6.3877 -6.0809 3.6362) The following expression, nucleic2-stalin.sc:2609:98748, allocates on the heap: (MAKE-PT 8.869300000000001 -4.863799999999999 1.9399) The following expression, nucleic2-stalin.sc:2608:98704, allocates on the heap: (MAKE-PT 8.462700000000002 -5.1992 2.7423) The following expression, nucleic2-stalin.sc:2607:98659, allocates on the heap: (MAKE-PT 6.7777 -3.9935 3.2487) The following expression, nucleic2-stalin.sc:2606:98615, allocates on the heap: (MAKE-PT 7.0856 -4.961 2.8521) The following expression, nucleic2-stalin.sc:2605:98571, allocates on the heap: (MAKE-PT 7.2354 -5.0043 0.7018) The following expression, nucleic2-stalin.sc:2604:98527, allocates on the heap: (MAKE-PT 6.4697 -5.154699999999999 1.4629) The following expression, nucleic2-stalin.sc:2603:98483, allocates on the heap: (MAKE-PT 6.063499999999999 -6.509200000000001 1.3456) The following expression, nucleic2-stalin.sc:2602:98439, allocates on the heap: (MAKE-PT 7.304799999999999 -7.6757 2.5577) The following expression, nucleic2-stalin.sc:2601:98395, allocates on the heap: (MAKE-PT 6.3232 -7.2037 2.6002) The following expression, nucleic2-stalin.sc:2600:98350, allocates on the heap: (MAKE-PT 5.5368 -8.7738 3.7227) The following expression, nucleic2-stalin.sc:2599:98306, allocates on the heap: (MAKE-PT 5.205 -8.812800000000001 1.8901) The following expression, nucleic2-stalin.sc:2598:98262, allocates on the heap: (MAKE-PT 5.241600000000001 -8.242199999999999 2.8181) The following expression, nucleic2-stalin.sc:2597:98218, allocates on the heap: (MAKE-PT 3.973 -7.595 3.034) The following expression, nucleic2-stalin.sc:2596:98174, allocates on the heap: (MAKE-PT 2.949 -9.464 4.374) The following expression, nucleic2-stalin.sc:2595:98130, allocates on the heap: (MAKE-PT 1.495 -7.622999999999999 3.477) The following expression, nucleic2-stalin.sc:2594:98088, allocates on the heap: (MAKE-PT 2.676 -8.496 3.288) The following expression, nucleic2-stalin.sc:2590:97944, allocates on the heap: (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) The following expression, nucleic2-stalin.sc:2586:97798, allocates on the heap: (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) The following expression, nucleic2-stalin.sc:2582:97653, allocates on the heap: (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) The following expression, nucleic2-stalin.sc:2578:97506, allocates on the heap: (MAKE-TFO -0.5669000000000001 -0.8012 0.1918 -0.8129000000000001 0.5817 0.0273 -0.1334 -0.1404 -0.9811 -0.3279 8.387400000000001 0.3355) The following expression, nucleic2-stalin.sc:2527:95578, allocates on the heap: (MAKE-RU (MAKE-TFO -0.4993 0.0476 0.8651000000000001 0.8078000000000001 -0.3353 0.4847 0.3132 0.9409000000000001 0.129 6.2989 -5.230300000000001 -3.8577) (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) (MAKE-PT 2.676 -8.496 3.288) (MAKE-PT 1.495 -7.622999999999999 3.477) (MAKE-PT 2.949 -9.464 4.374) (MAKE-PT 3.973 -7.595 3.034) (MAKE-PT 3.9938 -6.7042 1.9023) (MAKE-PT 3.2332 -5.9343 2.0319) (MAKE-PT 3.9666 -7.286300000000001 0.9812) (MAKE-PT 5.3098 -5.9546 1.8564) (MAKE-PT 5.3863 -5.370200000000001 0.9395) (MAKE-PT 5.3851 -5.0642 3.0076) (MAKE-PT 6.7315 -4.9724 3.4462) (MAKE-PT 7.0033 -3.9202 3.3619) (MAKE-PT 7.5997 -5.8018 2.4948) (MAKE-PT 8.362700000000002 -6.325399999999999 3.0707) (MAKE-PT 8.040999999999999 -4.9501 1.4724) (MAKE-PT 8.278099999999998 -4.064399999999999 1.757) (MAKE-PT 6.5701 -6.812899999999999 1.9714) (MAKE-PT 6.418600000000001 -7.5809 2.7299) (MAKE-PT 6.935700000000001 -7.384099999999999 0.7234999999999999) (MAKE-PT 6.8024 -5.471800000000001 4.847499999999999) (MAKE-PT 7.9218 -5.57 6.8877) (MAKE-PT 7.8908 -5.0886 5.594399999999999) (MAKE-PT 6.9789 -6.3827 7.4823) (MAKE-PT 5.8742 -6.7319 6.6202) (MAKE-PT 5.8182 -6.2769 5.356999999999999) (MAKE-PT 8.774699999999999 -4.3728 5.1568) (MAKE-PT 7.115399999999999 -6.7509 8.6509) (MAKE-PT 8.705500000000001 -5.3037 7.4491) (MAKE-PT 5.1416 -7.317799999999999 6.9665) (MAKE-PT 5.044099999999999 -6.531000000000001 4.7784)) The following expression, nucleic2-stalin.sc:2573:97434, allocates on the heap: (MAKE-PT 5.044099999999999 -6.531000000000001 4.7784) The following expression, nucleic2-stalin.sc:2572:97391, allocates on the heap: (MAKE-PT 5.1416 -7.317799999999999 6.9665) The following expression, nucleic2-stalin.sc:2571:97348, allocates on the heap: (MAKE-PT 8.705500000000001 -5.3037 7.4491) The following expression, nucleic2-stalin.sc:2570:97305, allocates on the heap: (MAKE-PT 7.115399999999999 -6.7509 8.6509) The following expression, nucleic2-stalin.sc:2569:97262, allocates on the heap: (MAKE-PT 8.774699999999999 -4.3728 5.1568) The following expression, nucleic2-stalin.sc:2568:97219, allocates on the heap: (MAKE-PT 5.8182 -6.2769 5.356999999999999) The following expression, nucleic2-stalin.sc:2567:97176, allocates on the heap: (MAKE-PT 5.8742 -6.7319 6.6202) The following expression, nucleic2-stalin.sc:2566:97133, allocates on the heap: (MAKE-PT 6.9789 -6.3827 7.4823) The following expression, nucleic2-stalin.sc:2565:97090, allocates on the heap: (MAKE-PT 7.8908 -5.0886 5.594399999999999) The following expression, nucleic2-stalin.sc:2564:97047, allocates on the heap: (MAKE-PT 7.9218 -5.57 6.8877) The following expression, nucleic2-stalin.sc:2563:97004, allocates on the heap: (MAKE-PT 6.8024 -5.471800000000001 4.847499999999999) The following expression, nucleic2-stalin.sc:2562:96960, allocates on the heap: (MAKE-PT 6.935700000000001 -7.384099999999999 0.7234999999999999) The following expression, nucleic2-stalin.sc:2561:96916, allocates on the heap: (MAKE-PT 6.418600000000001 -7.5809 2.7299) The following expression, nucleic2-stalin.sc:2560:96872, allocates on the heap: (MAKE-PT 6.5701 -6.812899999999999 1.9714) The following expression, nucleic2-stalin.sc:2559:96828, allocates on the heap: (MAKE-PT 8.278099999999998 -4.064399999999999 1.757) The following expression, nucleic2-stalin.sc:2558:96784, allocates on the heap: (MAKE-PT 8.040999999999999 -4.9501 1.4724) The following expression, nucleic2-stalin.sc:2557:96739, allocates on the heap: (MAKE-PT 8.362700000000002 -6.325399999999999 3.0707) The following expression, nucleic2-stalin.sc:2556:96695, allocates on the heap: (MAKE-PT 7.5997 -5.8018 2.4948) The following expression, nucleic2-stalin.sc:2555:96651, allocates on the heap: (MAKE-PT 7.0033 -3.9202 3.3619) The following expression, nucleic2-stalin.sc:2554:96607, allocates on the heap: (MAKE-PT 6.7315 -4.9724 3.4462) The following expression, nucleic2-stalin.sc:2553:96563, allocates on the heap: (MAKE-PT 5.3851 -5.0642 3.0076) The following expression, nucleic2-stalin.sc:2552:96519, allocates on the heap: (MAKE-PT 5.3863 -5.370200000000001 0.9395) The following expression, nucleic2-stalin.sc:2551:96475, allocates on the heap: (MAKE-PT 5.3098 -5.9546 1.8564) The following expression, nucleic2-stalin.sc:2550:96430, allocates on the heap: (MAKE-PT 3.9666 -7.286300000000001 0.9812) The following expression, nucleic2-stalin.sc:2549:96386, allocates on the heap: (MAKE-PT 3.2332 -5.9343 2.0319) The following expression, nucleic2-stalin.sc:2548:96342, allocates on the heap: (MAKE-PT 3.9938 -6.7042 1.9023) The following expression, nucleic2-stalin.sc:2547:96298, allocates on the heap: (MAKE-PT 3.973 -7.595 3.034) The following expression, nucleic2-stalin.sc:2546:96254, allocates on the heap: (MAKE-PT 2.949 -9.464 4.374) The following expression, nucleic2-stalin.sc:2545:96210, allocates on the heap: (MAKE-PT 1.495 -7.622999999999999 3.477) The following expression, nucleic2-stalin.sc:2544:96168, allocates on the heap: (MAKE-PT 2.676 -8.496 3.288) The following expression, nucleic2-stalin.sc:2540:96024, allocates on the heap: (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) The following expression, nucleic2-stalin.sc:2536:95878, allocates on the heap: (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) The following expression, nucleic2-stalin.sc:2532:95733, allocates on the heap: (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) The following expression, nucleic2-stalin.sc:2528:95589, allocates on the heap: (MAKE-TFO -0.4993 0.0476 0.8651000000000001 0.8078000000000001 -0.3353 0.4847 0.3132 0.9409000000000001 0.129 6.2989 -5.230300000000001 -3.8577) The following expression, nucleic2-stalin.sc:2477:93660, allocates on the heap: (MAKE-RU (MAKE-TFO 0.5141 0.0246 0.8574000000000001 -0.5547000000000001 -0.7529 0.3542 0.6542 -0.6577000000000001 -0.3734 -9.111099999999999 -3.4598 -3.2939) (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) (MAKE-PT 2.676 -8.496 3.288) (MAKE-PT 1.495 -7.622999999999999 3.477) (MAKE-PT 2.949 -9.464 4.374) (MAKE-PT 3.973 -7.595 3.034) (MAKE-PT 4.382499999999999 -6.658499999999999 4.0489) (MAKE-PT 4.684099999999999 -7.2019 4.9443) (MAKE-PT 3.6189 -5.8889 4.162499999999999) (MAKE-PT 5.625499999999999 -5.9175 3.5998) (MAKE-PT 5.873200000000001 -5.122799999999999 4.3034) (MAKE-PT 6.733700000000001 -6.860499999999999 3.5222) (MAKE-PT 7.5932 -6.4923 2.4548) (MAKE-PT 8.5661 -6.2983 2.9064) (MAKE-PT 7.0527 -5.201200000000001 1.8322) (MAKE-PT 7.162699999999999 -5.2525 0.749) (MAKE-PT 7.6666 -4.124899999999998 2.488) (MAKE-PT 8.5944 -4.2543 2.6981) (MAKE-PT 5.5661 -5.302899999999999 2.2009) (MAKE-PT 5.084099999999999 -6.0018 1.5172) (MAKE-PT 4.906200000000001 -4.0452 2.2042) (MAKE-PT 7.629799999999999 -7.6136 1.4752) (MAKE-PT 8.6945 -8.704599999999999 -0.2857) (MAKE-PT 8.694299999999998 -7.6514 0.6066) (MAKE-PT 7.7426 -9.698699999999999 -0.3801) (MAKE-PT 6.664199999999999 -9.574199999999999 0.5722) (MAKE-PT 6.6391 -8.559200000000001 1.4526) (MAKE-PT 9.584 -6.8186 0.6136) (MAKE-PT 7.850499999999999 -10.5925 -1.2223) (MAKE-PT 9.460100000000001 -8.7514 -0.9277000000000001) (MAKE-PT 5.9281 -10.2509 0.5782) (MAKE-PT 5.8831 -8.4931 2.1028)) The following expression, nucleic2-stalin.sc:2523:95517, allocates on the heap: (MAKE-PT 5.8831 -8.4931 2.1028) The following expression, nucleic2-stalin.sc:2522:95474, allocates on the heap: (MAKE-PT 5.9281 -10.2509 0.5782) The following expression, nucleic2-stalin.sc:2521:95431, allocates on the heap: (MAKE-PT 9.460100000000001 -8.7514 -0.9277000000000001) The following expression, nucleic2-stalin.sc:2520:95388, allocates on the heap: (MAKE-PT 7.850499999999999 -10.5925 -1.2223) The following expression, nucleic2-stalin.sc:2519:95345, allocates on the heap: (MAKE-PT 9.584 -6.8186 0.6136) The following expression, nucleic2-stalin.sc:2518:95302, allocates on the heap: (MAKE-PT 6.6391 -8.559200000000001 1.4526) The following expression, nucleic2-stalin.sc:2517:95259, allocates on the heap: (MAKE-PT 6.664199999999999 -9.574199999999999 0.5722) The following expression, nucleic2-stalin.sc:2516:95216, allocates on the heap: (MAKE-PT 7.7426 -9.698699999999999 -0.3801) The following expression, nucleic2-stalin.sc:2515:95173, allocates on the heap: (MAKE-PT 8.694299999999998 -7.6514 0.6066) The following expression, nucleic2-stalin.sc:2514:95130, allocates on the heap: (MAKE-PT 8.6945 -8.704599999999999 -0.2857) The following expression, nucleic2-stalin.sc:2513:95087, allocates on the heap: (MAKE-PT 7.629799999999999 -7.6136 1.4752) The following expression, nucleic2-stalin.sc:2512:95043, allocates on the heap: (MAKE-PT 4.906200000000001 -4.0452 2.2042) The following expression, nucleic2-stalin.sc:2511:94999, allocates on the heap: (MAKE-PT 5.084099999999999 -6.0018 1.5172) The following expression, nucleic2-stalin.sc:2510:94955, allocates on the heap: (MAKE-PT 5.5661 -5.302899999999999 2.2009) The following expression, nucleic2-stalin.sc:2509:94911, allocates on the heap: (MAKE-PT 8.5944 -4.2543 2.6981) The following expression, nucleic2-stalin.sc:2508:94867, allocates on the heap: (MAKE-PT 7.6666 -4.124899999999998 2.488) The following expression, nucleic2-stalin.sc:2507:94822, allocates on the heap: (MAKE-PT 7.162699999999999 -5.2525 0.749) The following expression, nucleic2-stalin.sc:2506:94778, allocates on the heap: (MAKE-PT 7.0527 -5.201200000000001 1.8322) The following expression, nucleic2-stalin.sc:2505:94734, allocates on the heap: (MAKE-PT 8.5661 -6.2983 2.9064) The following expression, nucleic2-stalin.sc:2504:94690, allocates on the heap: (MAKE-PT 7.5932 -6.4923 2.4548) The following expression, nucleic2-stalin.sc:2503:94646, allocates on the heap: (MAKE-PT 6.733700000000001 -6.860499999999999 3.5222) The following expression, nucleic2-stalin.sc:2502:94602, allocates on the heap: (MAKE-PT 5.873200000000001 -5.122799999999999 4.3034) The following expression, nucleic2-stalin.sc:2501:94558, allocates on the heap: (MAKE-PT 5.625499999999999 -5.9175 3.5998) The following expression, nucleic2-stalin.sc:2500:94513, allocates on the heap: (MAKE-PT 3.6189 -5.8889 4.162499999999999) The following expression, nucleic2-stalin.sc:2499:94469, allocates on the heap: (MAKE-PT 4.684099999999999 -7.2019 4.9443) The following expression, nucleic2-stalin.sc:2498:94425, allocates on the heap: (MAKE-PT 4.382499999999999 -6.658499999999999 4.0489) The following expression, nucleic2-stalin.sc:2497:94381, allocates on the heap: (MAKE-PT 3.973 -7.595 3.034) The following expression, nucleic2-stalin.sc:2496:94337, allocates on the heap: (MAKE-PT 2.949 -9.464 4.374) The following expression, nucleic2-stalin.sc:2495:94293, allocates on the heap: (MAKE-PT 1.495 -7.622999999999999 3.477) The following expression, nucleic2-stalin.sc:2494:94251, allocates on the heap: (MAKE-PT 2.676 -8.496 3.288) The following expression, nucleic2-stalin.sc:2490:94107, allocates on the heap: (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) The following expression, nucleic2-stalin.sc:2486:93961, allocates on the heap: (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) The following expression, nucleic2-stalin.sc:2482:93816, allocates on the heap: (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) The following expression, nucleic2-stalin.sc:2478:93671, allocates on the heap: (MAKE-TFO 0.5141 0.0246 0.8574000000000001 -0.5547000000000001 -0.7529 0.3542 0.6542 -0.6577000000000001 -0.3734 -9.111099999999999 -3.4598 -3.2939) The following expression, nucleic2-stalin.sc:2427:91741, allocates on the heap: (MAKE-RU (MAKE-TFO -0.0137 -0.8012 0.5982999999999999 -0.2523 0.5817 0.7733 -0.9674999999999999 -0.1404 -0.2101 0.2031 8.387400000000001 0.4228000000000001) (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) (MAKE-PT 2.676 -8.496 3.288) (MAKE-PT 1.495 -7.622999999999999 3.477) (MAKE-PT 2.949 -9.464 4.374) (MAKE-PT 3.973 -7.595 3.034) (MAKE-PT 5.241600000000001 -8.242199999999999 2.8181) (MAKE-PT 5.205 -8.812800000000001 1.8901) (MAKE-PT 5.5368 -8.7738 3.7227) (MAKE-PT 6.3232 -7.2037 2.6002) (MAKE-PT 7.304799999999999 -7.6757 2.5577) (MAKE-PT 6.063499999999999 -6.509200000000001 1.3456) (MAKE-PT 6.4697 -5.154699999999999 1.4629) (MAKE-PT 7.2354 -5.0043 0.7018) (MAKE-PT 7.0856 -4.961 2.8521) (MAKE-PT 6.7777 -3.9935 3.2487) (MAKE-PT 8.462700000000002 -5.1992 2.7423) (MAKE-PT 8.869300000000001 -4.863799999999999 1.9399) (MAKE-PT 6.3877 -6.0809 3.6362) (MAKE-PT 5.377 -5.756200000000001 3.8834) (MAKE-PT 7.102399999999999 -6.4754 4.7985) (MAKE-PT 5.276400000000001 -4.2883 1.2538) (MAKE-PT 4.3777 -2.2062 0.7229) (MAKE-PT 5.5069 -2.9779 0.9088000000000001) (MAKE-PT 3.0693 -2.6246 0.8500000000000001) (MAKE-PT 2.9279 -4.0146 1.2149) (MAKE-PT 4.0101 -4.789200000000001 1.4017) (MAKE-PT 6.6267 -2.5166 0.7728) (MAKE-PT 2.1383 -1.8396 0.6581) (MAKE-PT 4.5223 -1.2489 0.4716) (MAKE-PT 2.0151 -4.4065 1.329) (MAKE-PT 3.8886 -5.748600000000001 1.6535)) The following expression, nucleic2-stalin.sc:2473:93599, allocates on the heap: (MAKE-PT 3.8886 -5.748600000000001 1.6535) The following expression, nucleic2-stalin.sc:2472:93556, allocates on the heap: (MAKE-PT 2.0151 -4.4065 1.329) The following expression, nucleic2-stalin.sc:2471:93513, allocates on the heap: (MAKE-PT 4.5223 -1.2489 0.4716) The following expression, nucleic2-stalin.sc:2470:93470, allocates on the heap: (MAKE-PT 2.1383 -1.8396 0.6581) The following expression, nucleic2-stalin.sc:2469:93427, allocates on the heap: (MAKE-PT 6.6267 -2.5166 0.7728) The following expression, nucleic2-stalin.sc:2468:93384, allocates on the heap: (MAKE-PT 4.0101 -4.789200000000001 1.4017) The following expression, nucleic2-stalin.sc:2467:93341, allocates on the heap: (MAKE-PT 2.9279 -4.0146 1.2149) The following expression, nucleic2-stalin.sc:2466:93298, allocates on the heap: (MAKE-PT 3.0693 -2.6246 0.8500000000000001) The following expression, nucleic2-stalin.sc:2465:93255, allocates on the heap: (MAKE-PT 5.5069 -2.9779 0.9088000000000001) The following expression, nucleic2-stalin.sc:2464:93212, allocates on the heap: (MAKE-PT 4.3777 -2.2062 0.7229) The following expression, nucleic2-stalin.sc:2463:93169, allocates on the heap: (MAKE-PT 5.276400000000001 -4.2883 1.2538) The following expression, nucleic2-stalin.sc:2462:93125, allocates on the heap: (MAKE-PT 7.102399999999999 -6.4754 4.7985) The following expression, nucleic2-stalin.sc:2461:93081, allocates on the heap: (MAKE-PT 5.377 -5.756200000000001 3.8834) The following expression, nucleic2-stalin.sc:2460:93037, allocates on the heap: (MAKE-PT 6.3877 -6.0809 3.6362) The following expression, nucleic2-stalin.sc:2459:92993, allocates on the heap: (MAKE-PT 8.869300000000001 -4.863799999999999 1.9399) The following expression, nucleic2-stalin.sc:2458:92949, allocates on the heap: (MAKE-PT 8.462700000000002 -5.1992 2.7423) The following expression, nucleic2-stalin.sc:2457:92904, allocates on the heap: (MAKE-PT 6.7777 -3.9935 3.2487) The following expression, nucleic2-stalin.sc:2456:92860, allocates on the heap: (MAKE-PT 7.0856 -4.961 2.8521) The following expression, nucleic2-stalin.sc:2455:92816, allocates on the heap: (MAKE-PT 7.2354 -5.0043 0.7018) The following expression, nucleic2-stalin.sc:2454:92772, allocates on the heap: (MAKE-PT 6.4697 -5.154699999999999 1.4629) The following expression, nucleic2-stalin.sc:2453:92728, allocates on the heap: (MAKE-PT 6.063499999999999 -6.509200000000001 1.3456) The following expression, nucleic2-stalin.sc:2452:92684, allocates on the heap: (MAKE-PT 7.304799999999999 -7.6757 2.5577) The following expression, nucleic2-stalin.sc:2451:92640, allocates on the heap: (MAKE-PT 6.3232 -7.2037 2.6002) The following expression, nucleic2-stalin.sc:2450:92595, allocates on the heap: (MAKE-PT 5.5368 -8.7738 3.7227) The following expression, nucleic2-stalin.sc:2449:92551, allocates on the heap: (MAKE-PT 5.205 -8.812800000000001 1.8901) The following expression, nucleic2-stalin.sc:2448:92507, allocates on the heap: (MAKE-PT 5.241600000000001 -8.242199999999999 2.8181) The following expression, nucleic2-stalin.sc:2447:92463, allocates on the heap: (MAKE-PT 3.973 -7.595 3.034) The following expression, nucleic2-stalin.sc:2446:92419, allocates on the heap: (MAKE-PT 2.949 -9.464 4.374) The following expression, nucleic2-stalin.sc:2445:92375, allocates on the heap: (MAKE-PT 1.495 -7.622999999999999 3.477) The following expression, nucleic2-stalin.sc:2444:92333, allocates on the heap: (MAKE-PT 2.676 -8.496 3.288) The following expression, nucleic2-stalin.sc:2440:92189, allocates on the heap: (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) The following expression, nucleic2-stalin.sc:2436:92043, allocates on the heap: (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) The following expression, nucleic2-stalin.sc:2432:91898, allocates on the heap: (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) The following expression, nucleic2-stalin.sc:2428:91752, allocates on the heap: (MAKE-TFO -0.0137 -0.8012 0.5982999999999999 -0.2523 0.5817 0.7733 -0.9674999999999999 -0.1404 -0.2101 0.2031 8.387400000000001 0.4228000000000001) The following expression, nucleic2-stalin.sc:2377:89822, allocates on the heap: (MAKE-RU (MAKE-TFO -0.03589999999999999 -0.8071 0.5893999999999999 -0.2669 0.5761000000000001 0.7726000000000001 -0.9631 -0.1296 -0.2361 0.1584 8.343400000000001 0.5434) (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) (MAKE-PT 2.676 -8.496 3.288) (MAKE-PT 1.495 -7.622999999999999 3.477) (MAKE-PT 2.949 -9.464 4.374) (MAKE-PT 3.973 -7.595 3.034) (MAKE-PT 5.243 -8.241999999999999 2.826) (MAKE-PT 5.197399999999999 -8.8497 1.9223) (MAKE-PT 5.554799999999999 -8.734799999999998 3.7469) (MAKE-PT 6.313999999999999 -7.206 2.551) (MAKE-PT 7.2954 -7.676200000000001 2.4898) (MAKE-PT 6.013999999999999 -6.542 1.289) (MAKE-PT 6.419 -5.183999999999999 1.362) (MAKE-PT 7.160799999999999 -5.0495 0.5747000000000001) (MAKE-PT 7.076000000000001 -4.956 2.727) (MAKE-PT 6.777 -3.9803 3.1099) (MAKE-PT 8.450000000000001 -5.193 2.581) (MAKE-PT 8.8309 -4.8755 1.759) (MAKE-PT 6.406000000000001 -6.059 3.558) (MAKE-PT 5.4021 -5.731300000000001 3.8281) (MAKE-PT 7.156999999999999 -6.423999999999999 4.707) (MAKE-PT 5.217 -4.326 1.169) (MAKE-PT 4.296 -2.256 0.629) (MAKE-PT 5.433000000000001 -3.02 0.7989999999999999) (MAKE-PT 2.993 -2.678 0.7939999999999999) (MAKE-PT 2.867 -4.063 1.183) (MAKE-PT 3.957 -4.83 1.355) (MAKE-PT 6.547 -2.556 0.629) (MAKE-PT 2.054 -1.9 0.613) (MAKE-PT 4.430000000000001 -1.302 0.36) (MAKE-PT 1.959 -4.457 1.325) (MAKE-PT 3.846 -5.786 1.624)) The following expression, nucleic2-stalin.sc:2423:91680, allocates on the heap: (MAKE-PT 3.846 -5.786 1.624) The following expression, nucleic2-stalin.sc:2422:91637, allocates on the heap: (MAKE-PT 1.959 -4.457 1.325) The following expression, nucleic2-stalin.sc:2421:91594, allocates on the heap: (MAKE-PT 4.430000000000001 -1.302 0.36) The following expression, nucleic2-stalin.sc:2420:91551, allocates on the heap: (MAKE-PT 2.054 -1.9 0.613) The following expression, nucleic2-stalin.sc:2419:91508, allocates on the heap: (MAKE-PT 6.547 -2.556 0.629) The following expression, nucleic2-stalin.sc:2418:91465, allocates on the heap: (MAKE-PT 3.957 -4.83 1.355) The following expression, nucleic2-stalin.sc:2417:91422, allocates on the heap: (MAKE-PT 2.867 -4.063 1.183) The following expression, nucleic2-stalin.sc:2416:91379, allocates on the heap: (MAKE-PT 2.993 -2.678 0.7939999999999999) The following expression, nucleic2-stalin.sc:2415:91336, allocates on the heap: (MAKE-PT 5.433000000000001 -3.02 0.7989999999999999) The following expression, nucleic2-stalin.sc:2414:91293, allocates on the heap: (MAKE-PT 4.296 -2.256 0.629) The following expression, nucleic2-stalin.sc:2413:91250, allocates on the heap: (MAKE-PT 5.217 -4.326 1.169) The following expression, nucleic2-stalin.sc:2412:91206, allocates on the heap: (MAKE-PT 7.156999999999999 -6.423999999999999 4.707) The following expression, nucleic2-stalin.sc:2411:91162, allocates on the heap: (MAKE-PT 5.4021 -5.731300000000001 3.8281) The following expression, nucleic2-stalin.sc:2410:91118, allocates on the heap: (MAKE-PT 6.406000000000001 -6.059 3.558) The following expression, nucleic2-stalin.sc:2409:91074, allocates on the heap: (MAKE-PT 8.8309 -4.8755 1.759) The following expression, nucleic2-stalin.sc:2408:91030, allocates on the heap: (MAKE-PT 8.450000000000001 -5.193 2.581) The following expression, nucleic2-stalin.sc:2407:90985, allocates on the heap: (MAKE-PT 6.777 -3.9803 3.1099) The following expression, nucleic2-stalin.sc:2406:90941, allocates on the heap: (MAKE-PT 7.076000000000001 -4.956 2.727) The following expression, nucleic2-stalin.sc:2405:90897, allocates on the heap: (MAKE-PT 7.160799999999999 -5.0495 0.5747000000000001) The following expression, nucleic2-stalin.sc:2404:90853, allocates on the heap: (MAKE-PT 6.419 -5.183999999999999 1.362) The following expression, nucleic2-stalin.sc:2403:90809, allocates on the heap: (MAKE-PT 6.013999999999999 -6.542 1.289) The following expression, nucleic2-stalin.sc:2402:90765, allocates on the heap: (MAKE-PT 7.2954 -7.676200000000001 2.4898) The following expression, nucleic2-stalin.sc:2401:90721, allocates on the heap: (MAKE-PT 6.313999999999999 -7.206 2.551) The following expression, nucleic2-stalin.sc:2400:90676, allocates on the heap: (MAKE-PT 5.554799999999999 -8.734799999999998 3.7469) The following expression, nucleic2-stalin.sc:2399:90632, allocates on the heap: (MAKE-PT 5.197399999999999 -8.8497 1.9223) The following expression, nucleic2-stalin.sc:2398:90588, allocates on the heap: (MAKE-PT 5.243 -8.241999999999999 2.826) The following expression, nucleic2-stalin.sc:2397:90544, allocates on the heap: (MAKE-PT 3.973 -7.595 3.034) The following expression, nucleic2-stalin.sc:2396:90500, allocates on the heap: (MAKE-PT 2.949 -9.464 4.374) The following expression, nucleic2-stalin.sc:2395:90456, allocates on the heap: (MAKE-PT 1.495 -7.622999999999999 3.477) The following expression, nucleic2-stalin.sc:2394:90414, allocates on the heap: (MAKE-PT 2.676 -8.496 3.288) The following expression, nucleic2-stalin.sc:2390:90270, allocates on the heap: (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) The following expression, nucleic2-stalin.sc:2386:90124, allocates on the heap: (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) The following expression, nucleic2-stalin.sc:2382:89979, allocates on the heap: (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) The following expression, nucleic2-stalin.sc:2378:89833, allocates on the heap: (MAKE-TFO -0.03589999999999999 -0.8071 0.5893999999999999 -0.2669 0.5761000000000001 0.7726000000000001 -0.9631 -0.1296 -0.2361 0.1584 8.343400000000001 0.5434) The following expression, nucleic2-stalin.sc:2374:89751, allocates on the heap: (LIST RG01 RG02 RG03 RG04 RG05 RG06 RG07 RG08 RG09 RG10) The following expression, nucleic2-stalin.sc:2320:87655, allocates on the heap: (MAKE-RG (MAKE-TFO -0.098 -0.9722999999999999 0.2122 -0.9731 0.1383 0.1841 -0.2083 -0.1885 -0.9597000000000001 17.8469 38.8265 37.0475) (MAKE-TFO -0.8644000000000001 -0.4956 -0.08510000000000001 -0.0427 0.2409 -0.9696 0.501 -0.8345 -0.2294 4.0167 54.5377 12.4779) (MAKE-TFO 0.3706 -0.6167 0.6944999999999999 -0.2867 -0.7871999999999999 -0.546 0.8834 0.0032 -0.4686 -52.902 18.6313 -0.6708999999999999) (MAKE-TFO 0.4155 0.9025 -0.1137 0.904 -0.4236 -0.0582 -0.1007 -0.07860000000000002 -0.9918 -7.662399999999999 -25.208 49.5181) (MAKE-PT 31.381 0.14 47.581) (MAKE-PT 29.986 0.6629999999999999 47.629) (MAKE-PT 31.721 -0.646 48.809) (MAKE-PT 32.494 1.254 47.274) (MAKE-PT 32.5924 2.3488 48.22550000000001) (MAKE-PT 33.3674 2.1246 48.9584) (MAKE-PT 31.5994 2.5917 48.6037) (MAKE-PT 33.0722 3.5577 47.4258) (MAKE-PT 34.0333 3.3761 46.9447) (MAKE-PT 32.089 3.8338 46.4332) (MAKE-PT 31.6377 5.1787 46.5914) (MAKE-PT 32.2499 5.801600000000001 45.9392) (MAKE-PT 31.9167 5.5319 48.0305) (MAKE-PT 31.1507 5.082 48.66210000000001) (MAKE-PT 32.0865 6.889 48.31139999999999) (MAKE-PT 31.5363 7.4819 47.7942) (MAKE-PT 33.2398 4.822399999999999 48.2563) (MAKE-PT 33.31659999999999 4.556999999999999 49.31079999999999) (MAKE-PT 34.2528 5.7056 47.7476) (MAKE-PT 28.2782 6.304899999999999 42.9364) (MAKE-PT 30.4001 5.854699999999999 43.9258) (MAKE-PT 29.6195 6.1568 42.8913) (MAKE-PT 29.7005 5.700600000000001 45.0649) (MAKE-PT 28.3383 5.822099999999999 45.2343) (MAKE-PT 27.5519 6.1461 44.0958) (MAKE-PT 30.1838 6.3385 41.689) (MAKE-PT 27.9936 5.5926 46.56510000000001) (MAKE-PT 30.2046 5.382499999999999 46.31359999999999) (MAKE-PT 29.1371 5.3398 47.1506) (MAKE-PT 26.3361 6.3024 44.0495) (MAKE-PT 27.8122 6.539400000000001 42.0833) (MAKE-PT 29.7125 6.5595 40.8235) (MAKE-PT 31.1859 6.2231 41.63890000000001) (MAKE-PT 28.9406 5.150399999999999 48.20590000000001)) The following expression, nucleic2-stalin.sc:2370:89691, allocates on the heap: (MAKE-PT 28.9406 5.150399999999999 48.20590000000001) The following expression, nucleic2-stalin.sc:2369:89647, allocates on the heap: (MAKE-PT 31.1859 6.2231 41.63890000000001) The following expression, nucleic2-stalin.sc:2368:89603, allocates on the heap: (MAKE-PT 29.7125 6.5595 40.8235) The following expression, nucleic2-stalin.sc:2367:89560, allocates on the heap: (MAKE-PT 27.8122 6.539400000000001 42.0833) The following expression, nucleic2-stalin.sc:2366:89517, allocates on the heap: (MAKE-PT 26.3361 6.3024 44.0495) The following expression, nucleic2-stalin.sc:2365:89474, allocates on the heap: (MAKE-PT 29.1371 5.3398 47.1506) The following expression, nucleic2-stalin.sc:2364:89431, allocates on the heap: (MAKE-PT 30.2046 5.382499999999999 46.31359999999999) The following expression, nucleic2-stalin.sc:2363:89388, allocates on the heap: (MAKE-PT 27.9936 5.5926 46.56510000000001) The following expression, nucleic2-stalin.sc:2362:89345, allocates on the heap: (MAKE-PT 30.1838 6.3385 41.689) The following expression, nucleic2-stalin.sc:2361:89302, allocates on the heap: (MAKE-PT 27.5519 6.1461 44.0958) The following expression, nucleic2-stalin.sc:2360:89259, allocates on the heap: (MAKE-PT 28.3383 5.822099999999999 45.2343) The following expression, nucleic2-stalin.sc:2359:89216, allocates on the heap: (MAKE-PT 29.7005 5.700600000000001 45.0649) The following expression, nucleic2-stalin.sc:2358:89173, allocates on the heap: (MAKE-PT 29.6195 6.1568 42.8913) The following expression, nucleic2-stalin.sc:2357:89130, allocates on the heap: (MAKE-PT 30.4001 5.854699999999999 43.9258) The following expression, nucleic2-stalin.sc:2356:89087, allocates on the heap: (MAKE-PT 28.2782 6.304899999999999 42.9364) The following expression, nucleic2-stalin.sc:2355:89043, allocates on the heap: (MAKE-PT 34.2528 5.7056 47.7476) The following expression, nucleic2-stalin.sc:2354:88999, allocates on the heap: (MAKE-PT 33.31659999999999 4.556999999999999 49.31079999999999) The following expression, nucleic2-stalin.sc:2353:88955, allocates on the heap: (MAKE-PT 33.2398 4.822399999999999 48.2563) The following expression, nucleic2-stalin.sc:2352:88911, allocates on the heap: (MAKE-PT 31.5363 7.4819 47.7942) The following expression, nucleic2-stalin.sc:2351:88867, allocates on the heap: (MAKE-PT 32.0865 6.889 48.31139999999999) The following expression, nucleic2-stalin.sc:2350:88822, allocates on the heap: (MAKE-PT 31.1507 5.082 48.66210000000001) The following expression, nucleic2-stalin.sc:2349:88778, allocates on the heap: (MAKE-PT 31.9167 5.5319 48.0305) The following expression, nucleic2-stalin.sc:2348:88734, allocates on the heap: (MAKE-PT 32.2499 5.801600000000001 45.9392) The following expression, nucleic2-stalin.sc:2347:88690, allocates on the heap: (MAKE-PT 31.6377 5.1787 46.5914) The following expression, nucleic2-stalin.sc:2346:88646, allocates on the heap: (MAKE-PT 32.089 3.8338 46.4332) The following expression, nucleic2-stalin.sc:2345:88602, allocates on the heap: (MAKE-PT 34.0333 3.3761 46.9447) The following expression, nucleic2-stalin.sc:2344:88558, allocates on the heap: (MAKE-PT 33.0722 3.5577 47.4258) The following expression, nucleic2-stalin.sc:2343:88513, allocates on the heap: (MAKE-PT 31.5994 2.5917 48.6037) The following expression, nucleic2-stalin.sc:2342:88469, allocates on the heap: (MAKE-PT 33.3674 2.1246 48.9584) The following expression, nucleic2-stalin.sc:2341:88425, allocates on the heap: (MAKE-PT 32.5924 2.3488 48.22550000000001) The following expression, nucleic2-stalin.sc:2340:88381, allocates on the heap: (MAKE-PT 32.494 1.254 47.274) The following expression, nucleic2-stalin.sc:2339:88337, allocates on the heap: (MAKE-PT 31.721 -0.646 48.809) The following expression, nucleic2-stalin.sc:2338:88293, allocates on the heap: (MAKE-PT 29.986 0.6629999999999999 47.629) The following expression, nucleic2-stalin.sc:2337:88251, allocates on the heap: (MAKE-PT 31.381 0.14 47.581) The following expression, nucleic2-stalin.sc:2333:88106, allocates on the heap: (MAKE-TFO 0.4155 0.9025 -0.1137 0.904 -0.4236 -0.0582 -0.1007 -0.07860000000000002 -0.9918 -7.662399999999999 -25.208 49.5181) The following expression, nucleic2-stalin.sc:2329:87959, allocates on the heap: (MAKE-TFO 0.3706 -0.6167 0.6944999999999999 -0.2867 -0.7871999999999999 -0.546 0.8834 0.0032 -0.4686 -52.902 18.6313 -0.6708999999999999) The following expression, nucleic2-stalin.sc:2325:87813, allocates on the heap: (MAKE-TFO -0.8644000000000001 -0.4956 -0.08510000000000001 -0.0427 0.2409 -0.9696 0.501 -0.8345 -0.2294 4.0167 54.5377 12.4779) The following expression, nucleic2-stalin.sc:2321:87666, allocates on the heap: (MAKE-TFO -0.098 -0.9722999999999999 0.2122 -0.9731 0.1383 0.1841 -0.2083 -0.1885 -0.9597000000000001 17.8469 38.8265 37.0475) The following expression, nucleic2-stalin.sc:2266:85558, allocates on the heap: (MAKE-RG (MAKE-TFO -0.9699 -0.1688 -0.1753 -0.105 -0.3598 0.9271 -0.2196 0.9176000000000001 0.3311999999999999 45.6217 -38.9484 -12.3208) (MAKE-TFO -0.8644000000000001 -0.4956 -0.08510000000000001 -0.0427 0.2409 -0.9696 0.501 -0.8345 -0.2294 4.0167 54.5377 12.4779) (MAKE-TFO 0.3706 -0.6167 0.6944999999999999 -0.2867 -0.7871999999999999 -0.546 0.8834 0.0032 -0.4686 -52.902 18.6313 -0.6708999999999999) (MAKE-TFO 0.4155 0.9025 -0.1137 0.904 -0.4236 -0.0582 -0.1007 -0.07860000000000002 -0.9918 -7.662399999999999 -25.208 49.5181) (MAKE-PT 31.381 0.14 47.581) (MAKE-PT 29.986 0.6629999999999999 47.629) (MAKE-PT 31.721 -0.646 48.809) (MAKE-PT 32.494 1.254 47.274) (MAKE-PT 33.8709 0.7917999999999999 47.2113) (MAKE-PT 34.1386 0.587 46.1747) (MAKE-PT 34.0186 -0.0095 47.93530000000001) (MAKE-PT 34.72970000000001 1.9687 47.66850000000001) (MAKE-PT 34.588 2.8482 47.0404) (MAKE-PT 34.35749999999999 2.277 49.00810000000001) (MAKE-PT 35.5157 2.1993 49.8389) (MAKE-PT 35.9424 3.201 49.8893) (MAKE-PT 36.4701 1.282 49.1169) (MAKE-PT 36.1545 0.2498 49.26830000000001) (MAKE-PT 37.8262 1.4547 49.4008) (MAKE-PT 38.02270000000001 1.6945 50.3094) (MAKE-PT 36.2242 1.6797 47.67250000000001) (MAKE-PT 36.4297 0.8197000000000001 47.03510000000001) (MAKE-PT 37.02890000000001 2.848 47.4426) (MAKE-PT 34.3005 3.5042 54.607) (MAKE-PT 34.76930000000001 3.7936 52.2874) (MAKE-PT 34.4484 4.254099999999999 53.4939) (MAKE-PT 34.9354 2.4584 52.27850000000001) (MAKE-PT 34.8092 1.5915 53.3422) (MAKE-PT 34.4646 2.1367 54.60850000000001) (MAKE-PT 34.2514 5.5708 53.6503) (MAKE-PT 35.0641 0.2835 52.9337) (MAKE-PT 35.26690000000001 1.669 51.1915) (MAKE-PT 35.3288 0.3954 51.6563) (MAKE-PT 34.3151 1.5317 55.66500000000001) (MAKE-PT 34.06230000000001 3.9797 55.4539) (MAKE-PT 33.995 6.0502 54.5016) (MAKE-PT 34.35119999999999 6.1432 52.8242) (MAKE-PT 35.5414 -0.6006 51.2679)) The following expression, nucleic2-stalin.sc:2316:87594, allocates on the heap: (MAKE-PT 35.5414 -0.6006 51.2679) The following expression, nucleic2-stalin.sc:2315:87550, allocates on the heap: (MAKE-PT 34.35119999999999 6.1432 52.8242) The following expression, nucleic2-stalin.sc:2314:87506, allocates on the heap: (MAKE-PT 33.995 6.0502 54.5016) The following expression, nucleic2-stalin.sc:2313:87463, allocates on the heap: (MAKE-PT 34.06230000000001 3.9797 55.4539) The following expression, nucleic2-stalin.sc:2312:87420, allocates on the heap: (MAKE-PT 34.3151 1.5317 55.66500000000001) The following expression, nucleic2-stalin.sc:2311:87377, allocates on the heap: (MAKE-PT 35.3288 0.3954 51.6563) The following expression, nucleic2-stalin.sc:2310:87334, allocates on the heap: (MAKE-PT 35.26690000000001 1.669 51.1915) The following expression, nucleic2-stalin.sc:2309:87291, allocates on the heap: (MAKE-PT 35.0641 0.2835 52.9337) The following expression, nucleic2-stalin.sc:2308:87248, allocates on the heap: (MAKE-PT 34.2514 5.5708 53.6503) The following expression, nucleic2-stalin.sc:2307:87205, allocates on the heap: (MAKE-PT 34.4646 2.1367 54.60850000000001) The following expression, nucleic2-stalin.sc:2306:87162, allocates on the heap: (MAKE-PT 34.8092 1.5915 53.3422) The following expression, nucleic2-stalin.sc:2305:87119, allocates on the heap: (MAKE-PT 34.9354 2.4584 52.27850000000001) The following expression, nucleic2-stalin.sc:2304:87076, allocates on the heap: (MAKE-PT 34.4484 4.254099999999999 53.4939) The following expression, nucleic2-stalin.sc:2303:87033, allocates on the heap: (MAKE-PT 34.76930000000001 3.7936 52.2874) The following expression, nucleic2-stalin.sc:2302:86990, allocates on the heap: (MAKE-PT 34.3005 3.5042 54.607) The following expression, nucleic2-stalin.sc:2301:86946, allocates on the heap: (MAKE-PT 37.02890000000001 2.848 47.4426) The following expression, nucleic2-stalin.sc:2300:86902, allocates on the heap: (MAKE-PT 36.4297 0.8197000000000001 47.03510000000001) The following expression, nucleic2-stalin.sc:2299:86858, allocates on the heap: (MAKE-PT 36.2242 1.6797 47.67250000000001) The following expression, nucleic2-stalin.sc:2298:86814, allocates on the heap: (MAKE-PT 38.02270000000001 1.6945 50.3094) The following expression, nucleic2-stalin.sc:2297:86770, allocates on the heap: (MAKE-PT 37.8262 1.4547 49.4008) The following expression, nucleic2-stalin.sc:2296:86725, allocates on the heap: (MAKE-PT 36.1545 0.2498 49.26830000000001) The following expression, nucleic2-stalin.sc:2295:86681, allocates on the heap: (MAKE-PT 36.4701 1.282 49.1169) The following expression, nucleic2-stalin.sc:2294:86637, allocates on the heap: (MAKE-PT 35.9424 3.201 49.8893) The following expression, nucleic2-stalin.sc:2293:86593, allocates on the heap: (MAKE-PT 35.5157 2.1993 49.8389) The following expression, nucleic2-stalin.sc:2292:86549, allocates on the heap: (MAKE-PT 34.35749999999999 2.277 49.00810000000001) The following expression, nucleic2-stalin.sc:2291:86505, allocates on the heap: (MAKE-PT 34.588 2.8482 47.0404) The following expression, nucleic2-stalin.sc:2290:86461, allocates on the heap: (MAKE-PT 34.72970000000001 1.9687 47.66850000000001) The following expression, nucleic2-stalin.sc:2289:86416, allocates on the heap: (MAKE-PT 34.0186 -0.0095 47.93530000000001) The following expression, nucleic2-stalin.sc:2288:86372, allocates on the heap: (MAKE-PT 34.1386 0.587 46.1747) The following expression, nucleic2-stalin.sc:2287:86328, allocates on the heap: (MAKE-PT 33.8709 0.7917999999999999 47.2113) The following expression, nucleic2-stalin.sc:2286:86284, allocates on the heap: (MAKE-PT 32.494 1.254 47.274) The following expression, nucleic2-stalin.sc:2285:86240, allocates on the heap: (MAKE-PT 31.721 -0.646 48.809) The following expression, nucleic2-stalin.sc:2284:86196, allocates on the heap: (MAKE-PT 29.986 0.6629999999999999 47.629) The following expression, nucleic2-stalin.sc:2283:86154, allocates on the heap: (MAKE-PT 31.381 0.14 47.581) The following expression, nucleic2-stalin.sc:2279:86009, allocates on the heap: (MAKE-TFO 0.4155 0.9025 -0.1137 0.904 -0.4236 -0.0582 -0.1007 -0.07860000000000002 -0.9918 -7.662399999999999 -25.208 49.5181) The following expression, nucleic2-stalin.sc:2275:85862, allocates on the heap: (MAKE-TFO 0.3706 -0.6167 0.6944999999999999 -0.2867 -0.7871999999999999 -0.546 0.8834 0.0032 -0.4686 -52.902 18.6313 -0.6708999999999999) The following expression, nucleic2-stalin.sc:2271:85716, allocates on the heap: (MAKE-TFO -0.8644000000000001 -0.4956 -0.08510000000000001 -0.0427 0.2409 -0.9696 0.501 -0.8345 -0.2294 4.0167 54.5377 12.4779) The following expression, nucleic2-stalin.sc:2267:85569, allocates on the heap: (MAKE-TFO -0.9699 -0.1688 -0.1753 -0.105 -0.3598 0.9271 -0.2196 0.9176000000000001 0.3311999999999999 45.6217 -38.9484 -12.3208) The following expression, nucleic2-stalin.sc:2212:83462, allocates on the heap: (MAKE-RG (MAKE-TFO 0.2224 0.6335 0.7411 -0.3644 -0.651 0.6658999999999999 0.9043 -0.4181 0.08610000000000001 -47.6824 -0.5822999999999999 -31.7554) (MAKE-TFO -0.8644000000000001 -0.4956 -0.08510000000000001 -0.0427 0.2409 -0.9696 0.501 -0.8345 -0.2294 4.0167 54.5377 12.4779) (MAKE-TFO 0.3706 -0.6167 0.6944999999999999 -0.2867 -0.7871999999999999 -0.546 0.8834 0.0032 -0.4686 -52.902 18.6313 -0.6708999999999999) (MAKE-TFO 0.4155 0.9025 -0.1137 0.904 -0.4236 -0.0582 -0.1007 -0.07860000000000002 -0.9918 -7.662399999999999 -25.208 49.5181) (MAKE-PT 31.381 0.14 47.581) (MAKE-PT 29.986 0.6629999999999999 47.629) (MAKE-PT 31.721 -0.646 48.809) (MAKE-PT 32.494 1.254 47.274) (MAKE-PT 32.5924 2.3488 48.22550000000001) (MAKE-PT 33.3674 2.1246 48.9584) (MAKE-PT 31.5994 2.5917 48.6037) (MAKE-PT 33.0722 3.5577 47.4258) (MAKE-PT 33.031 4.4778 48.0089) (MAKE-PT 34.4173 3.3055 47.0316) (MAKE-PT 34.5056 3.391 45.6094) (MAKE-PT 34.78810000000001 4.4152 45.3663) (MAKE-PT 33.1122 3.1198 45.101) (MAKE-PT 32.923 2.0469 45.1369) (MAKE-PT 32.7946 3.659 43.8529) (MAKE-PT 33.517 3.6707 43.22070000000001) (MAKE-PT 32.273 3.8173 46.1566) (MAKE-PT 31.3094 3.3123 46.2244) (MAKE-PT 32.23910000000001 5.2039 45.7807) (MAKE-PT 39.3337 2.7157 44.1441) (MAKE-PT 37.443 3.8242 45.0824) (MAKE-PT 38.7276 3.7646 44.7403) (MAKE-PT 36.77910000000001 2.6963 44.7704) (MAKE-PT 37.286 1.5653 44.1678) (MAKE-PT 38.6647 1.5552 43.8235) (MAKE-PT 39.5123 4.8216 44.9936) (MAKE-PT 36.28290000000001 0.611 44.0078) (MAKE-PT 35.4394 2.4314 44.99310000000001) (MAKE-PT 35.218 1.1815 44.5128) (MAKE-PT 39.29070000000001 0.6514 43.2796) (MAKE-PT 40.30759999999999 2.8048 43.9352) (MAKE-PT 40.4994 4.906600000000001 44.79770000000001) (MAKE-PT 39.0738 5.610799999999999 45.4464) (MAKE-PT 34.3856 0.4842 44.4185)) The following expression, nucleic2-stalin.sc:2262:85497, allocates on the heap: (MAKE-PT 34.3856 0.4842 44.4185) The following expression, nucleic2-stalin.sc:2261:85453, allocates on the heap: (MAKE-PT 39.0738 5.610799999999999 45.4464) The following expression, nucleic2-stalin.sc:2260:85409, allocates on the heap: (MAKE-PT 40.4994 4.906600000000001 44.79770000000001) The following expression, nucleic2-stalin.sc:2259:85366, allocates on the heap: (MAKE-PT 40.30759999999999 2.8048 43.9352) The following expression, nucleic2-stalin.sc:2258:85323, allocates on the heap: (MAKE-PT 39.29070000000001 0.6514 43.2796) The following expression, nucleic2-stalin.sc:2257:85280, allocates on the heap: (MAKE-PT 35.218 1.1815 44.5128) The following expression, nucleic2-stalin.sc:2256:85237, allocates on the heap: (MAKE-PT 35.4394 2.4314 44.99310000000001) The following expression, nucleic2-stalin.sc:2255:85194, allocates on the heap: (MAKE-PT 36.28290000000001 0.611 44.0078) The following expression, nucleic2-stalin.sc:2254:85151, allocates on the heap: (MAKE-PT 39.5123 4.8216 44.9936) The following expression, nucleic2-stalin.sc:2253:85108, allocates on the heap: (MAKE-PT 38.6647 1.5552 43.8235) The following expression, nucleic2-stalin.sc:2252:85065, allocates on the heap: (MAKE-PT 37.286 1.5653 44.1678) The following expression, nucleic2-stalin.sc:2251:85022, allocates on the heap: (MAKE-PT 36.77910000000001 2.6963 44.7704) The following expression, nucleic2-stalin.sc:2250:84979, allocates on the heap: (MAKE-PT 38.7276 3.7646 44.7403) The following expression, nucleic2-stalin.sc:2249:84936, allocates on the heap: (MAKE-PT 37.443 3.8242 45.0824) The following expression, nucleic2-stalin.sc:2248:84893, allocates on the heap: (MAKE-PT 39.3337 2.7157 44.1441) The following expression, nucleic2-stalin.sc:2247:84849, allocates on the heap: (MAKE-PT 32.23910000000001 5.2039 45.7807) The following expression, nucleic2-stalin.sc:2246:84805, allocates on the heap: (MAKE-PT 31.3094 3.3123 46.2244) The following expression, nucleic2-stalin.sc:2245:84761, allocates on the heap: (MAKE-PT 32.273 3.8173 46.1566) The following expression, nucleic2-stalin.sc:2244:84717, allocates on the heap: (MAKE-PT 33.517 3.6707 43.22070000000001) The following expression, nucleic2-stalin.sc:2243:84673, allocates on the heap: (MAKE-PT 32.7946 3.659 43.8529) The following expression, nucleic2-stalin.sc:2242:84628, allocates on the heap: (MAKE-PT 32.923 2.0469 45.1369) The following expression, nucleic2-stalin.sc:2241:84584, allocates on the heap: (MAKE-PT 33.1122 3.1198 45.101) The following expression, nucleic2-stalin.sc:2240:84540, allocates on the heap: (MAKE-PT 34.78810000000001 4.4152 45.3663) The following expression, nucleic2-stalin.sc:2239:84496, allocates on the heap: (MAKE-PT 34.5056 3.391 45.6094) The following expression, nucleic2-stalin.sc:2238:84452, allocates on the heap: (MAKE-PT 34.4173 3.3055 47.0316) The following expression, nucleic2-stalin.sc:2237:84408, allocates on the heap: (MAKE-PT 33.031 4.4778 48.0089) The following expression, nucleic2-stalin.sc:2236:84364, allocates on the heap: (MAKE-PT 33.0722 3.5577 47.4258) The following expression, nucleic2-stalin.sc:2235:84319, allocates on the heap: (MAKE-PT 31.5994 2.5917 48.6037) The following expression, nucleic2-stalin.sc:2234:84275, allocates on the heap: (MAKE-PT 33.3674 2.1246 48.9584) The following expression, nucleic2-stalin.sc:2233:84231, allocates on the heap: (MAKE-PT 32.5924 2.3488 48.22550000000001) The following expression, nucleic2-stalin.sc:2232:84187, allocates on the heap: (MAKE-PT 32.494 1.254 47.274) The following expression, nucleic2-stalin.sc:2231:84143, allocates on the heap: (MAKE-PT 31.721 -0.646 48.809) The following expression, nucleic2-stalin.sc:2230:84099, allocates on the heap: (MAKE-PT 29.986 0.6629999999999999 47.629) The following expression, nucleic2-stalin.sc:2229:84057, allocates on the heap: (MAKE-PT 31.381 0.14 47.581) The following expression, nucleic2-stalin.sc:2225:83912, allocates on the heap: (MAKE-TFO 0.4155 0.9025 -0.1137 0.904 -0.4236 -0.0582 -0.1007 -0.07860000000000002 -0.9918 -7.662399999999999 -25.208 49.5181) The following expression, nucleic2-stalin.sc:2221:83765, allocates on the heap: (MAKE-TFO 0.3706 -0.6167 0.6944999999999999 -0.2867 -0.7871999999999999 -0.546 0.8834 0.0032 -0.4686 -52.902 18.6313 -0.6708999999999999) The following expression, nucleic2-stalin.sc:2217:83619, allocates on the heap: (MAKE-TFO -0.8644000000000001 -0.4956 -0.08510000000000001 -0.0427 0.2409 -0.9696 0.501 -0.8345 -0.2294 4.0167 54.5377 12.4779) The following expression, nucleic2-stalin.sc:2213:83473, allocates on the heap: (MAKE-TFO 0.2224 0.6335 0.7411 -0.3644 -0.651 0.6658999999999999 0.9043 -0.4181 0.08610000000000001 -47.6824 -0.5822999999999999 -31.7554) The following expression, nucleic2-stalin.sc:2158:81366, allocates on the heap: (MAKE-RG (MAKE-TFO 0.08939999999999999 -0.6059 0.7904999999999999 -0.6809999999999999 0.542 0.4924 -0.7268 -0.5823999999999999 -0.3642 34.1424 45.961 -11.86) (MAKE-TFO -0.8644000000000001 -0.4956 -0.08510000000000001 -0.0427 0.2409 -0.9696 0.501 -0.8345 -0.2294 4.0167 54.5377 12.4779) (MAKE-TFO 0.3706 -0.6167 0.6944999999999999 -0.2867 -0.7871999999999999 -0.546 0.8834 0.0032 -0.4686 -52.902 18.6313 -0.6708999999999999) (MAKE-TFO 0.4155 0.9025 -0.1137 0.904 -0.4236 -0.0582 -0.1007 -0.07860000000000002 -0.9918 -7.662399999999999 -25.208 49.5181) (MAKE-PT 31.381 0.14 47.581) (MAKE-PT 29.986 0.6629999999999999 47.629) (MAKE-PT 31.721 -0.646 48.809) (MAKE-PT 32.494 1.254 47.274) (MAKE-PT 33.8709 0.7917999999999999 47.2113) (MAKE-PT 34.1386 0.587 46.1747) (MAKE-PT 34.0186 -0.0095 47.93530000000001) (MAKE-PT 34.72970000000001 1.9687 47.66850000000001) (MAKE-PT 35.77230000000001 1.6845 47.8113) (MAKE-PT 34.64550000000001 2.976799999999999 46.666) (MAKE-PT 34.169 4.182899999999999 47.26270000000001) (MAKE-PT 35.0437 4.7633 47.556) (MAKE-PT 33.4145 3.7532 48.4954) (MAKE-PT 32.434 3.3797 48.20010000000001) (MAKE-PT 33.3209 4.6953 49.5217) (MAKE-PT 33.2374 5.605899999999999 49.22950000000001) (MAKE-PT 34.2724 2.597 48.9773) (MAKE-PT 33.6373 1.8935 49.5157) (MAKE-PT 35.3453 3.1884 49.72850000000001) (MAKE-PT 34.0511 7.893 43.77910000000001) (MAKE-PT 34.9937 6.3369 45.3199) (MAKE-PT 35.0882 7.3126 44.42) (MAKE-PT 33.719 5.965 45.5374) (MAKE-PT 32.5845 6.477 44.9458) (MAKE-PT 32.743 7.517899999999999 43.9914) (MAKE-PT 36.303 7.7827 44.1036) (MAKE-PT 31.4499 5.8335 45.4368) (MAKE-PT 33.276 4.981700000000001 46.4043) (MAKE-PT 31.9235 4.9639 46.29340000000001) (MAKE-PT 31.8602 8.1 43.3695) (MAKE-PT 34.26230000000001 8.622299999999999 43.12830000000001) (MAKE-PT 36.5188 8.508099999999999 43.4347) (MAKE-PT 37.0888 7.352399999999999 44.5699) (MAKE-PT 31.0815 4.4201 46.7218)) The following expression, nucleic2-stalin.sc:2208:83401, allocates on the heap: (MAKE-PT 31.0815 4.4201 46.7218) The following expression, nucleic2-stalin.sc:2207:83357, allocates on the heap: (MAKE-PT 37.0888 7.352399999999999 44.5699) The following expression, nucleic2-stalin.sc:2206:83313, allocates on the heap: (MAKE-PT 36.5188 8.508099999999999 43.4347) The following expression, nucleic2-stalin.sc:2205:83270, allocates on the heap: (MAKE-PT 34.26230000000001 8.622299999999999 43.12830000000001) The following expression, nucleic2-stalin.sc:2204:83227, allocates on the heap: (MAKE-PT 31.8602 8.1 43.3695) The following expression, nucleic2-stalin.sc:2203:83184, allocates on the heap: (MAKE-PT 31.9235 4.9639 46.29340000000001) The following expression, nucleic2-stalin.sc:2202:83141, allocates on the heap: (MAKE-PT 33.276 4.981700000000001 46.4043) The following expression, nucleic2-stalin.sc:2201:83098, allocates on the heap: (MAKE-PT 31.4499 5.8335 45.4368) The following expression, nucleic2-stalin.sc:2200:83055, allocates on the heap: (MAKE-PT 36.303 7.7827 44.1036) The following expression, nucleic2-stalin.sc:2199:83012, allocates on the heap: (MAKE-PT 32.743 7.517899999999999 43.9914) The following expression, nucleic2-stalin.sc:2198:82969, allocates on the heap: (MAKE-PT 32.5845 6.477 44.9458) The following expression, nucleic2-stalin.sc:2197:82926, allocates on the heap: (MAKE-PT 33.719 5.965 45.5374) The following expression, nucleic2-stalin.sc:2196:82883, allocates on the heap: (MAKE-PT 35.0882 7.3126 44.42) The following expression, nucleic2-stalin.sc:2195:82840, allocates on the heap: (MAKE-PT 34.9937 6.3369 45.3199) The following expression, nucleic2-stalin.sc:2194:82797, allocates on the heap: (MAKE-PT 34.0511 7.893 43.77910000000001) The following expression, nucleic2-stalin.sc:2193:82753, allocates on the heap: (MAKE-PT 35.3453 3.1884 49.72850000000001) The following expression, nucleic2-stalin.sc:2192:82709, allocates on the heap: (MAKE-PT 33.6373 1.8935 49.5157) The following expression, nucleic2-stalin.sc:2191:82665, allocates on the heap: (MAKE-PT 34.2724 2.597 48.9773) The following expression, nucleic2-stalin.sc:2190:82621, allocates on the heap: (MAKE-PT 33.2374 5.605899999999999 49.22950000000001) The following expression, nucleic2-stalin.sc:2189:82577, allocates on the heap: (MAKE-PT 33.3209 4.6953 49.5217) The following expression, nucleic2-stalin.sc:2188:82532, allocates on the heap: (MAKE-PT 32.434 3.3797 48.20010000000001) The following expression, nucleic2-stalin.sc:2187:82488, allocates on the heap: (MAKE-PT 33.4145 3.7532 48.4954) The following expression, nucleic2-stalin.sc:2186:82444, allocates on the heap: (MAKE-PT 35.0437 4.7633 47.556) The following expression, nucleic2-stalin.sc:2185:82400, allocates on the heap: (MAKE-PT 34.169 4.182899999999999 47.26270000000001) The following expression, nucleic2-stalin.sc:2184:82356, allocates on the heap: (MAKE-PT 34.64550000000001 2.976799999999999 46.666) The following expression, nucleic2-stalin.sc:2183:82312, allocates on the heap: (MAKE-PT 35.77230000000001 1.6845 47.8113) The following expression, nucleic2-stalin.sc:2182:82268, allocates on the heap: (MAKE-PT 34.72970000000001 1.9687 47.66850000000001) The following expression, nucleic2-stalin.sc:2181:82223, allocates on the heap: (MAKE-PT 34.0186 -0.0095 47.93530000000001) The following expression, nucleic2-stalin.sc:2180:82179, allocates on the heap: (MAKE-PT 34.1386 0.587 46.1747) The following expression, nucleic2-stalin.sc:2179:82135, allocates on the heap: (MAKE-PT 33.8709 0.7917999999999999 47.2113) The following expression, nucleic2-stalin.sc:2178:82091, allocates on the heap: (MAKE-PT 32.494 1.254 47.274) The following expression, nucleic2-stalin.sc:2177:82047, allocates on the heap: (MAKE-PT 31.721 -0.646 48.809) The following expression, nucleic2-stalin.sc:2176:82003, allocates on the heap: (MAKE-PT 29.986 0.6629999999999999 47.629) The following expression, nucleic2-stalin.sc:2175:81961, allocates on the heap: (MAKE-PT 31.381 0.14 47.581) The following expression, nucleic2-stalin.sc:2171:81816, allocates on the heap: (MAKE-TFO 0.4155 0.9025 -0.1137 0.904 -0.4236 -0.0582 -0.1007 -0.07860000000000002 -0.9918 -7.662399999999999 -25.208 49.5181) The following expression, nucleic2-stalin.sc:2167:81669, allocates on the heap: (MAKE-TFO 0.3706 -0.6167 0.6944999999999999 -0.2867 -0.7871999999999999 -0.546 0.8834 0.0032 -0.4686 -52.902 18.6313 -0.6708999999999999) The following expression, nucleic2-stalin.sc:2163:81523, allocates on the heap: (MAKE-TFO -0.8644000000000001 -0.4956 -0.08510000000000001 -0.0427 0.2409 -0.9696 0.501 -0.8345 -0.2294 4.0167 54.5377 12.4779) The following expression, nucleic2-stalin.sc:2159:81377, allocates on the heap: (MAKE-TFO 0.08939999999999999 -0.6059 0.7904999999999999 -0.6809999999999999 0.542 0.4924 -0.7268 -0.5823999999999999 -0.3642 34.1424 45.961 -11.86) The following expression, nucleic2-stalin.sc:2104:79272, allocates on the heap: (MAKE-RG (MAKE-TFO -0.9814999999999999 0.07310000000000001 -0.1772 0.1912 0.3054 -0.9328000000000001 -0.0141 -0.9494 -0.3137 5.7506 -5.194399999999999 4.747) (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) (MAKE-PT 2.893 8.537999999999998 -3.328) (MAKE-PT 1.698 7.696 -3.557) (MAKE-PT 3.226 9.500999999999999 -4.402) (MAKE-PT 4.159 7.603999999999999 -3.034) (MAKE-PT 4.1214 6.711600000000001 -1.9049) (MAKE-PT 3.3465 5.961 -2.0607) (MAKE-PT 4.0789 7.2928 -0.9837) (MAKE-PT 5.417 5.9293 -1.8186) (MAKE-PT 5.450600000000001 5.34 -0.9023) (MAKE-PT 5.5067 5.041700000000001 -2.9703) (MAKE-PT 6.864999999999999 4.9152 -3.3612) (MAKE-PT 7.109 3.8577 -3.2603) (MAKE-PT 7.7152 5.7282 -2.3894) (MAKE-PT 8.5029 6.235600000000001 -2.9463) (MAKE-PT 8.1036 4.8568 -1.3419) (MAKE-PT 8.327 3.9651 -1.6184) (MAKE-PT 6.7003 6.7565 -1.8911) (MAKE-PT 6.5898 7.5329 -2.6482) (MAKE-PT 7.0505 7.2878 -0.6104999999999999) (MAKE-PT 6.662399999999999 3.5061 -8.298599999999999) (MAKE-PT 6.581 3.257 -5.922099999999999) (MAKE-PT 6.515099999999999 2.8263 -7.162499999999999) (MAKE-PT 6.8364 4.581700000000001 -5.8882) (MAKE-PT 7.0116 5.406400000000001 -6.9609) (MAKE-PT 6.9173 4.826 -8.236099999999999) (MAKE-PT 6.271700000000001 1.5402 -7.425) (MAKE-PT 7.2573 6.707 -6.539400000000001) (MAKE-PT 6.974 5.3703 -4.776000000000001) (MAKE-PT 7.2238 6.627499999999999 -5.2453) (MAKE-PT 7.0668 5.5163 -9.376300000000001) (MAKE-PT 6.5754 2.9964 -9.154500000000001) (MAKE-PT 6.190799999999999 1.1105 -8.335400000000002) (MAKE-PT 6.1346 0.9352 -6.627999999999999) (MAKE-PT 7.4108 7.622699999999999 -4.8418)) The following expression, nucleic2-stalin.sc:2154:81305, allocates on the heap: (MAKE-PT 7.4108 7.622699999999999 -4.8418) The following expression, nucleic2-stalin.sc:2153:81261, allocates on the heap: (MAKE-PT 6.1346 0.9352 -6.627999999999999) The following expression, nucleic2-stalin.sc:2152:81217, allocates on the heap: (MAKE-PT 6.190799999999999 1.1105 -8.335400000000002) The following expression, nucleic2-stalin.sc:2151:81174, allocates on the heap: (MAKE-PT 6.5754 2.9964 -9.154500000000001) The following expression, nucleic2-stalin.sc:2150:81131, allocates on the heap: (MAKE-PT 7.0668 5.5163 -9.376300000000001) The following expression, nucleic2-stalin.sc:2149:81088, allocates on the heap: (MAKE-PT 7.2238 6.627499999999999 -5.2453) The following expression, nucleic2-stalin.sc:2148:81045, allocates on the heap: (MAKE-PT 6.974 5.3703 -4.776000000000001) The following expression, nucleic2-stalin.sc:2147:81002, allocates on the heap: (MAKE-PT 7.2573 6.707 -6.539400000000001) The following expression, nucleic2-stalin.sc:2146:80959, allocates on the heap: (MAKE-PT 6.271700000000001 1.5402 -7.425) The following expression, nucleic2-stalin.sc:2145:80916, allocates on the heap: (MAKE-PT 6.9173 4.826 -8.236099999999999) The following expression, nucleic2-stalin.sc:2144:80873, allocates on the heap: (MAKE-PT 7.0116 5.406400000000001 -6.9609) The following expression, nucleic2-stalin.sc:2143:80830, allocates on the heap: (MAKE-PT 6.8364 4.581700000000001 -5.8882) The following expression, nucleic2-stalin.sc:2142:80787, allocates on the heap: (MAKE-PT 6.515099999999999 2.8263 -7.162499999999999) The following expression, nucleic2-stalin.sc:2141:80744, allocates on the heap: (MAKE-PT 6.581 3.257 -5.922099999999999) The following expression, nucleic2-stalin.sc:2140:80701, allocates on the heap: (MAKE-PT 6.662399999999999 3.5061 -8.298599999999999) The following expression, nucleic2-stalin.sc:2139:80657, allocates on the heap: (MAKE-PT 7.0505 7.2878 -0.6104999999999999) The following expression, nucleic2-stalin.sc:2138:80613, allocates on the heap: (MAKE-PT 6.5898 7.5329 -2.6482) The following expression, nucleic2-stalin.sc:2137:80569, allocates on the heap: (MAKE-PT 6.7003 6.7565 -1.8911) The following expression, nucleic2-stalin.sc:2136:80525, allocates on the heap: (MAKE-PT 8.327 3.9651 -1.6184) The following expression, nucleic2-stalin.sc:2135:80481, allocates on the heap: (MAKE-PT 8.1036 4.8568 -1.3419) The following expression, nucleic2-stalin.sc:2134:80436, allocates on the heap: (MAKE-PT 8.5029 6.235600000000001 -2.9463) The following expression, nucleic2-stalin.sc:2133:80392, allocates on the heap: (MAKE-PT 7.7152 5.7282 -2.3894) The following expression, nucleic2-stalin.sc:2132:80348, allocates on the heap: (MAKE-PT 7.109 3.8577 -3.2603) The following expression, nucleic2-stalin.sc:2131:80304, allocates on the heap: (MAKE-PT 6.864999999999999 4.9152 -3.3612) The following expression, nucleic2-stalin.sc:2130:80260, allocates on the heap: (MAKE-PT 5.5067 5.041700000000001 -2.9703) The following expression, nucleic2-stalin.sc:2129:80216, allocates on the heap: (MAKE-PT 5.450600000000001 5.34 -0.9023) The following expression, nucleic2-stalin.sc:2128:80172, allocates on the heap: (MAKE-PT 5.417 5.9293 -1.8186) The following expression, nucleic2-stalin.sc:2127:80127, allocates on the heap: (MAKE-PT 4.0789 7.2928 -0.9837) The following expression, nucleic2-stalin.sc:2126:80083, allocates on the heap: (MAKE-PT 3.3465 5.961 -2.0607) The following expression, nucleic2-stalin.sc:2125:80039, allocates on the heap: (MAKE-PT 4.1214 6.711600000000001 -1.9049) The following expression, nucleic2-stalin.sc:2124:79995, allocates on the heap: (MAKE-PT 4.159 7.603999999999999 -3.034) The following expression, nucleic2-stalin.sc:2123:79951, allocates on the heap: (MAKE-PT 3.226 9.500999999999999 -4.402) The following expression, nucleic2-stalin.sc:2122:79907, allocates on the heap: (MAKE-PT 1.698 7.696 -3.557) The following expression, nucleic2-stalin.sc:2121:79865, allocates on the heap: (MAKE-PT 2.893 8.537999999999998 -3.328) The following expression, nucleic2-stalin.sc:2117:79721, allocates on the heap: (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) The following expression, nucleic2-stalin.sc:2113:79575, allocates on the heap: (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) The following expression, nucleic2-stalin.sc:2109:79428, allocates on the heap: (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) The following expression, nucleic2-stalin.sc:2105:79283, allocates on the heap: (MAKE-TFO -0.9814999999999999 0.07310000000000001 -0.1772 0.1912 0.3054 -0.9328000000000001 -0.0141 -0.9494 -0.3137 5.7506 -5.194399999999999 4.747) The following expression, nucleic2-stalin.sc:2050:77177, allocates on the heap: (MAKE-RG (MAKE-TFO -0.5891 0.0449 0.8068000000000001 0.5375 0.7673 0.3498 -0.6033999999999999 0.6397 -0.4762 -0.3019 -3.7679 -9.591299999999999) (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) (MAKE-PT 2.893 8.537999999999998 -3.328) (MAKE-PT 1.698 7.696 -3.557) (MAKE-PT 3.226 9.500999999999999 -4.402) (MAKE-PT 4.159 7.603999999999999 -3.034) (MAKE-PT 4.5778 6.6594 -4.0364) (MAKE-PT 4.922 7.1963 -4.9204) (MAKE-PT 3.7996 5.9091 -4.1764) (MAKE-PT 5.7873 5.8869 -3.5482) (MAKE-PT 6.0405 5.087499999999999 -4.2446) (MAKE-PT 6.9135 6.8036 -3.431) (MAKE-PT 7.7293 6.4084 -2.3392) (MAKE-PT 8.707799999999999 6.1815 -2.7624) (MAKE-PT 7.1305 5.1418 -1.7347) (MAKE-PT 7.204 5.1982 -0.6486000000000001) (MAKE-PT 7.741700000000001 4.039200000000001 -2.3813) (MAKE-PT 8.6785 4.144299999999999 -2.563) (MAKE-PT 5.6666 5.2728 -2.1536) (MAKE-PT 5.1747 5.9805 -1.4863) (MAKE-PT 4.999700000000001 4.0086 -2.1973) (MAKE-PT 10.2594 10.6774 -1.0056) (MAKE-PT 9.752800000000001 8.707999999999998 -2.263100000000001) (MAKE-PT 10.4471 9.787599999999999 -1.9791) (MAKE-PT 8.727099999999998 8.557500000000001 -1.3991) (MAKE-PT 8.41 9.3803 -0.358) (MAKE-PT 9.2294 10.503 -0.1574) (MAKE-PT 11.511 10.1256 -2.7114) (MAKE-PT 7.2891 8.9068 0.3121) (MAKE-PT 7.796200000000001 7.5519 -1.3859) (MAKE-PT 6.970200000000001 7.8292 -0.3353) (MAKE-PT 9.034899999999999 11.3951 0.8250000000000001) (MAKE-PT 10.9013 11.4422 -0.9512) (MAKE-PT 12.1031 10.9341 -2.5861) (MAKE-PT 11.7369 9.517999999999999 -3.4859) (MAKE-PT 6.0888 7.399 0.1403)) The following expression, nucleic2-stalin.sc:2100:79211, allocates on the heap: (MAKE-PT 6.0888 7.399 0.1403) The following expression, nucleic2-stalin.sc:2099:79167, allocates on the heap: (MAKE-PT 11.7369 9.517999999999999 -3.4859) The following expression, nucleic2-stalin.sc:2098:79123, allocates on the heap: (MAKE-PT 12.1031 10.9341 -2.5861) The following expression, nucleic2-stalin.sc:2097:79080, allocates on the heap: (MAKE-PT 10.9013 11.4422 -0.9512) The following expression, nucleic2-stalin.sc:2096:79037, allocates on the heap: (MAKE-PT 9.034899999999999 11.3951 0.8250000000000001) The following expression, nucleic2-stalin.sc:2095:78994, allocates on the heap: (MAKE-PT 6.970200000000001 7.8292 -0.3353) The following expression, nucleic2-stalin.sc:2094:78951, allocates on the heap: (MAKE-PT 7.796200000000001 7.5519 -1.3859) The following expression, nucleic2-stalin.sc:2093:78908, allocates on the heap: (MAKE-PT 7.2891 8.9068 0.3121) The following expression, nucleic2-stalin.sc:2092:78865, allocates on the heap: (MAKE-PT 11.511 10.1256 -2.7114) The following expression, nucleic2-stalin.sc:2091:78822, allocates on the heap: (MAKE-PT 9.2294 10.503 -0.1574) The following expression, nucleic2-stalin.sc:2090:78779, allocates on the heap: (MAKE-PT 8.41 9.3803 -0.358) The following expression, nucleic2-stalin.sc:2089:78736, allocates on the heap: (MAKE-PT 8.727099999999998 8.557500000000001 -1.3991) The following expression, nucleic2-stalin.sc:2088:78693, allocates on the heap: (MAKE-PT 10.4471 9.787599999999999 -1.9791) The following expression, nucleic2-stalin.sc:2087:78650, allocates on the heap: (MAKE-PT 9.752800000000001 8.707999999999998 -2.263100000000001) The following expression, nucleic2-stalin.sc:2086:78607, allocates on the heap: (MAKE-PT 10.2594 10.6774 -1.0056) The following expression, nucleic2-stalin.sc:2085:78563, allocates on the heap: (MAKE-PT 4.999700000000001 4.0086 -2.1973) The following expression, nucleic2-stalin.sc:2084:78519, allocates on the heap: (MAKE-PT 5.1747 5.9805 -1.4863) The following expression, nucleic2-stalin.sc:2083:78475, allocates on the heap: (MAKE-PT 5.6666 5.2728 -2.1536) The following expression, nucleic2-stalin.sc:2082:78431, allocates on the heap: (MAKE-PT 8.6785 4.144299999999999 -2.563) The following expression, nucleic2-stalin.sc:2081:78387, allocates on the heap: (MAKE-PT 7.741700000000001 4.039200000000001 -2.3813) The following expression, nucleic2-stalin.sc:2080:78342, allocates on the heap: (MAKE-PT 7.204 5.1982 -0.6486000000000001) The following expression, nucleic2-stalin.sc:2079:78298, allocates on the heap: (MAKE-PT 7.1305 5.1418 -1.7347) The following expression, nucleic2-stalin.sc:2078:78254, allocates on the heap: (MAKE-PT 8.707799999999999 6.1815 -2.7624) The following expression, nucleic2-stalin.sc:2077:78210, allocates on the heap: (MAKE-PT 7.7293 6.4084 -2.3392) The following expression, nucleic2-stalin.sc:2076:78166, allocates on the heap: (MAKE-PT 6.9135 6.8036 -3.431) The following expression, nucleic2-stalin.sc:2075:78122, allocates on the heap: (MAKE-PT 6.0405 5.087499999999999 -4.2446) The following expression, nucleic2-stalin.sc:2074:78078, allocates on the heap: (MAKE-PT 5.7873 5.8869 -3.5482) The following expression, nucleic2-stalin.sc:2073:78033, allocates on the heap: (MAKE-PT 3.7996 5.9091 -4.1764) The following expression, nucleic2-stalin.sc:2072:77989, allocates on the heap: (MAKE-PT 4.922 7.1963 -4.9204) The following expression, nucleic2-stalin.sc:2071:77945, allocates on the heap: (MAKE-PT 4.5778 6.6594 -4.0364) The following expression, nucleic2-stalin.sc:2070:77901, allocates on the heap: (MAKE-PT 4.159 7.603999999999999 -3.034) The following expression, nucleic2-stalin.sc:2069:77857, allocates on the heap: (MAKE-PT 3.226 9.500999999999999 -4.402) The following expression, nucleic2-stalin.sc:2068:77813, allocates on the heap: (MAKE-PT 1.698 7.696 -3.557) The following expression, nucleic2-stalin.sc:2067:77771, allocates on the heap: (MAKE-PT 2.893 8.537999999999998 -3.328) The following expression, nucleic2-stalin.sc:2063:77627, allocates on the heap: (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) The following expression, nucleic2-stalin.sc:2059:77481, allocates on the heap: (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) The following expression, nucleic2-stalin.sc:2055:77334, allocates on the heap: (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) The following expression, nucleic2-stalin.sc:2051:77188, allocates on the heap: (MAKE-TFO -0.5891 0.0449 0.8068000000000001 0.5375 0.7673 0.3498 -0.6033999999999999 0.6397 -0.4762 -0.3019 -3.7679 -9.591299999999999) The following expression, nucleic2-stalin.sc:1996:75083, allocates on the heap: (MAKE-RG (MAKE-TFO -0.5426000000000001 -0.8175 0.1929 0.8304 -0.5567000000000001 -0.0237 0.1267 0.1473 0.9809 -0.5075 8.392900000000001 0.2229) (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) (MAKE-PT 2.893 8.537999999999998 -3.328) (MAKE-PT 1.698 7.696 -3.557) (MAKE-PT 3.226 9.500999999999999 -4.402) (MAKE-PT 4.159 7.603999999999999 -3.034) (MAKE-PT 5.435200000000001 8.218299999999997 -2.7757) (MAKE-PT 5.383 8.788299999999998 -1.8481) (MAKE-PT 5.7729 8.743599999999999 -3.6691) (MAKE-PT 6.483000000000001 7.1518 -2.5252) (MAKE-PT 7.4749 7.5972 -2.4482) (MAKE-PT 6.162599999999999 6.462 -1.2827) (MAKE-PT 6.5431 5.099200000000001 -1.3905) (MAKE-PT 7.2871 4.9328 -0.6113999999999999) (MAKE-PT 7.1852 4.8935 -2.7592) (MAKE-PT 6.8573 3.9363 -3.1645) (MAKE-PT 8.577999999999999 5.102499999999999 -2.6046) (MAKE-PT 8.951600000000001 4.7577 -1.7902) (MAKE-PT 6.5522 6.03 -3.5612) (MAKE-PT 5.542 5.735600000000001 -3.8459) (MAKE-PT 7.3487 6.4089 -4.6867) (MAKE-PT 3.6343 2.668 2.0783) (MAKE-PT 5.4505 3.9805 1.2446) (MAKE-PT 4.754 3.3816 2.1851) (MAKE-PT 4.8805 3.7951 0.03539999999999999) (MAKE-PT 3.7416 3.0925 -0.2305) (MAKE-PT 3.0873 2.498 0.8606000000000001) (MAKE-PT 5.1433 3.4373 3.4609) (MAKE-PT 3.4605 3.1184 -1.5906) (MAKE-PT 5.324699999999999 4.2695 -1.171) (MAKE-PT 4.424399999999999 3.8244 -2.0953) (MAKE-PT 1.96 1.7805 0.7462) (MAKE-PT 3.2489 2.2879 2.9191) (MAKE-PT 4.6785 3.0243 4.2568) (MAKE-PT 5.9823 3.9654 3.6539) (MAKE-PT 4.267499999999999 3.8876 -3.1721)) The following expression, nucleic2-stalin.sc:2046:77116, allocates on the heap: (MAKE-PT 4.267499999999999 3.8876 -3.1721) The following expression, nucleic2-stalin.sc:2045:77072, allocates on the heap: (MAKE-PT 5.9823 3.9654 3.6539) The following expression, nucleic2-stalin.sc:2044:77028, allocates on the heap: (MAKE-PT 4.6785 3.0243 4.2568) The following expression, nucleic2-stalin.sc:2043:76985, allocates on the heap: (MAKE-PT 3.2489 2.2879 2.9191) The following expression, nucleic2-stalin.sc:2042:76942, allocates on the heap: (MAKE-PT 1.96 1.7805 0.7462) The following expression, nucleic2-stalin.sc:2041:76899, allocates on the heap: (MAKE-PT 4.424399999999999 3.8244 -2.0953) The following expression, nucleic2-stalin.sc:2040:76856, allocates on the heap: (MAKE-PT 5.324699999999999 4.2695 -1.171) The following expression, nucleic2-stalin.sc:2039:76813, allocates on the heap: (MAKE-PT 3.4605 3.1184 -1.5906) The following expression, nucleic2-stalin.sc:2038:76770, allocates on the heap: (MAKE-PT 5.1433 3.4373 3.4609) The following expression, nucleic2-stalin.sc:2037:76727, allocates on the heap: (MAKE-PT 3.0873 2.498 0.8606000000000001) The following expression, nucleic2-stalin.sc:2036:76684, allocates on the heap: (MAKE-PT 3.7416 3.0925 -0.2305) The following expression, nucleic2-stalin.sc:2035:76641, allocates on the heap: (MAKE-PT 4.8805 3.7951 0.03539999999999999) The following expression, nucleic2-stalin.sc:2034:76598, allocates on the heap: (MAKE-PT 4.754 3.3816 2.1851) The following expression, nucleic2-stalin.sc:2033:76555, allocates on the heap: (MAKE-PT 5.4505 3.9805 1.2446) The following expression, nucleic2-stalin.sc:2032:76512, allocates on the heap: (MAKE-PT 3.6343 2.668 2.0783) The following expression, nucleic2-stalin.sc:2031:76468, allocates on the heap: (MAKE-PT 7.3487 6.4089 -4.6867) The following expression, nucleic2-stalin.sc:2030:76424, allocates on the heap: (MAKE-PT 5.542 5.735600000000001 -3.8459) The following expression, nucleic2-stalin.sc:2029:76380, allocates on the heap: (MAKE-PT 6.5522 6.03 -3.5612) The following expression, nucleic2-stalin.sc:2028:76336, allocates on the heap: (MAKE-PT 8.951600000000001 4.7577 -1.7902) The following expression, nucleic2-stalin.sc:2027:76292, allocates on the heap: (MAKE-PT 8.577999999999999 5.102499999999999 -2.6046) The following expression, nucleic2-stalin.sc:2026:76247, allocates on the heap: (MAKE-PT 6.8573 3.9363 -3.1645) The following expression, nucleic2-stalin.sc:2025:76203, allocates on the heap: (MAKE-PT 7.1852 4.8935 -2.7592) The following expression, nucleic2-stalin.sc:2024:76159, allocates on the heap: (MAKE-PT 7.2871 4.9328 -0.6113999999999999) The following expression, nucleic2-stalin.sc:2023:76115, allocates on the heap: (MAKE-PT 6.5431 5.099200000000001 -1.3905) The following expression, nucleic2-stalin.sc:2022:76071, allocates on the heap: (MAKE-PT 6.162599999999999 6.462 -1.2827) The following expression, nucleic2-stalin.sc:2021:76027, allocates on the heap: (MAKE-PT 7.4749 7.5972 -2.4482) The following expression, nucleic2-stalin.sc:2020:75983, allocates on the heap: (MAKE-PT 6.483000000000001 7.1518 -2.5252) The following expression, nucleic2-stalin.sc:2019:75938, allocates on the heap: (MAKE-PT 5.7729 8.743599999999999 -3.6691) The following expression, nucleic2-stalin.sc:2018:75894, allocates on the heap: (MAKE-PT 5.383 8.788299999999998 -1.8481) The following expression, nucleic2-stalin.sc:2017:75850, allocates on the heap: (MAKE-PT 5.435200000000001 8.218299999999997 -2.7757) The following expression, nucleic2-stalin.sc:2016:75806, allocates on the heap: (MAKE-PT 4.159 7.603999999999999 -3.034) The following expression, nucleic2-stalin.sc:2015:75762, allocates on the heap: (MAKE-PT 3.226 9.500999999999999 -4.402) The following expression, nucleic2-stalin.sc:2014:75718, allocates on the heap: (MAKE-PT 1.698 7.696 -3.557) The following expression, nucleic2-stalin.sc:2013:75676, allocates on the heap: (MAKE-PT 2.893 8.537999999999998 -3.328) The following expression, nucleic2-stalin.sc:2009:75532, allocates on the heap: (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) The following expression, nucleic2-stalin.sc:2005:75386, allocates on the heap: (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) The following expression, nucleic2-stalin.sc:2001:75239, allocates on the heap: (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) The following expression, nucleic2-stalin.sc:1997:75094, allocates on the heap: (MAKE-TFO -0.5426000000000001 -0.8175 0.1929 0.8304 -0.5567000000000001 -0.0237 0.1267 0.1473 0.9809 -0.5075 8.392900000000001 0.2229) The following expression, nucleic2-stalin.sc:1942:72988, allocates on the heap: (MAKE-RG (MAKE-TFO -0.5021 0.07310000000000001 0.8617000000000001 -0.8112 0.3054 -0.4986 -0.2996 -0.9494 -0.094 6.4273 -5.194399999999999 -3.7807) (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) (MAKE-PT 2.893 8.537999999999998 -3.328) (MAKE-PT 1.698 7.696 -3.557) (MAKE-PT 3.226 9.500999999999999 -4.402) (MAKE-PT 4.159 7.603999999999999 -3.034) (MAKE-PT 4.1214 6.711600000000001 -1.9049) (MAKE-PT 3.3465 5.961 -2.0607) (MAKE-PT 4.0789 7.2928 -0.9837) (MAKE-PT 5.417 5.9293 -1.8186) (MAKE-PT 5.450600000000001 5.34 -0.9023) (MAKE-PT 5.5067 5.041700000000001 -2.9703) (MAKE-PT 6.864999999999999 4.9152 -3.3612) (MAKE-PT 7.109 3.8577 -3.2603) (MAKE-PT 7.7152 5.7282 -2.3894) (MAKE-PT 8.5029 6.235600000000001 -2.9463) (MAKE-PT 8.1036 4.8568 -1.3419) (MAKE-PT 8.327 3.9651 -1.6184) (MAKE-PT 6.7003 6.7565 -1.8911) (MAKE-PT 6.5898 7.5329 -2.6482) (MAKE-PT 7.0505 7.2878 -0.6104999999999999) (MAKE-PT 9.673999999999999 4.7656 -7.6614) (MAKE-PT 9.0739 4.3013 -5.394099999999999) (MAKE-PT 9.8416 4.219200000000001 -6.4581) (MAKE-PT 7.9885 5.0632 -5.6446) (MAKE-PT 7.6822 5.6856 -6.8194) (MAKE-PT 8.5831 5.5215 -7.883999999999999) (MAKE-PT 10.9733 3.5117 -6.4286) (MAKE-PT 6.4857 6.381600000000001 -6.7035) (MAKE-PT 6.974 5.3703 -4.776000000000001) (MAKE-PT 6.1133 6.1613 -5.4808) (MAKE-PT 8.4084 6.0747 -9.093299999999999) (MAKE-PT 10.3759 4.5855 -8.350400000000002) (MAKE-PT 11.6254 3.3761 -7.187899999999999) (MAKE-PT 11.1917 3.046 -5.5593) (MAKE-PT 5.1705 6.683 -5.3167)) The following expression, nucleic2-stalin.sc:1992:75022, allocates on the heap: (MAKE-PT 5.1705 6.683 -5.3167) The following expression, nucleic2-stalin.sc:1991:74978, allocates on the heap: (MAKE-PT 11.1917 3.046 -5.5593) The following expression, nucleic2-stalin.sc:1990:74934, allocates on the heap: (MAKE-PT 11.6254 3.3761 -7.187899999999999) The following expression, nucleic2-stalin.sc:1989:74891, allocates on the heap: (MAKE-PT 10.3759 4.5855 -8.350400000000002) The following expression, nucleic2-stalin.sc:1988:74848, allocates on the heap: (MAKE-PT 8.4084 6.0747 -9.093299999999999) The following expression, nucleic2-stalin.sc:1987:74805, allocates on the heap: (MAKE-PT 6.1133 6.1613 -5.4808) The following expression, nucleic2-stalin.sc:1986:74762, allocates on the heap: (MAKE-PT 6.974 5.3703 -4.776000000000001) The following expression, nucleic2-stalin.sc:1985:74719, allocates on the heap: (MAKE-PT 6.4857 6.381600000000001 -6.7035) The following expression, nucleic2-stalin.sc:1984:74676, allocates on the heap: (MAKE-PT 10.9733 3.5117 -6.4286) The following expression, nucleic2-stalin.sc:1983:74633, allocates on the heap: (MAKE-PT 8.5831 5.5215 -7.883999999999999) The following expression, nucleic2-stalin.sc:1982:74590, allocates on the heap: (MAKE-PT 7.6822 5.6856 -6.8194) The following expression, nucleic2-stalin.sc:1981:74547, allocates on the heap: (MAKE-PT 7.9885 5.0632 -5.6446) The following expression, nucleic2-stalin.sc:1980:74504, allocates on the heap: (MAKE-PT 9.8416 4.219200000000001 -6.4581) The following expression, nucleic2-stalin.sc:1979:74461, allocates on the heap: (MAKE-PT 9.0739 4.3013 -5.394099999999999) The following expression, nucleic2-stalin.sc:1978:74418, allocates on the heap: (MAKE-PT 9.673999999999999 4.7656 -7.6614) The following expression, nucleic2-stalin.sc:1977:74374, allocates on the heap: (MAKE-PT 7.0505 7.2878 -0.6104999999999999) The following expression, nucleic2-stalin.sc:1976:74330, allocates on the heap: (MAKE-PT 6.5898 7.5329 -2.6482) The following expression, nucleic2-stalin.sc:1975:74286, allocates on the heap: (MAKE-PT 6.7003 6.7565 -1.8911) The following expression, nucleic2-stalin.sc:1974:74242, allocates on the heap: (MAKE-PT 8.327 3.9651 -1.6184) The following expression, nucleic2-stalin.sc:1973:74198, allocates on the heap: (MAKE-PT 8.1036 4.8568 -1.3419) The following expression, nucleic2-stalin.sc:1972:74153, allocates on the heap: (MAKE-PT 8.5029 6.235600000000001 -2.9463) The following expression, nucleic2-stalin.sc:1971:74109, allocates on the heap: (MAKE-PT 7.7152 5.7282 -2.3894) The following expression, nucleic2-stalin.sc:1970:74065, allocates on the heap: (MAKE-PT 7.109 3.8577 -3.2603) The following expression, nucleic2-stalin.sc:1969:74021, allocates on the heap: (MAKE-PT 6.864999999999999 4.9152 -3.3612) The following expression, nucleic2-stalin.sc:1968:73977, allocates on the heap: (MAKE-PT 5.5067 5.041700000000001 -2.9703) The following expression, nucleic2-stalin.sc:1967:73933, allocates on the heap: (MAKE-PT 5.450600000000001 5.34 -0.9023) The following expression, nucleic2-stalin.sc:1966:73889, allocates on the heap: (MAKE-PT 5.417 5.9293 -1.8186) The following expression, nucleic2-stalin.sc:1965:73844, allocates on the heap: (MAKE-PT 4.0789 7.2928 -0.9837) The following expression, nucleic2-stalin.sc:1964:73800, allocates on the heap: (MAKE-PT 3.3465 5.961 -2.0607) The following expression, nucleic2-stalin.sc:1963:73756, allocates on the heap: (MAKE-PT 4.1214 6.711600000000001 -1.9049) The following expression, nucleic2-stalin.sc:1962:73712, allocates on the heap: (MAKE-PT 4.159 7.603999999999999 -3.034) The following expression, nucleic2-stalin.sc:1961:73668, allocates on the heap: (MAKE-PT 3.226 9.500999999999999 -4.402) The following expression, nucleic2-stalin.sc:1960:73624, allocates on the heap: (MAKE-PT 1.698 7.696 -3.557) The following expression, nucleic2-stalin.sc:1959:73582, allocates on the heap: (MAKE-PT 2.893 8.537999999999998 -3.328) The following expression, nucleic2-stalin.sc:1955:73438, allocates on the heap: (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) The following expression, nucleic2-stalin.sc:1951:73292, allocates on the heap: (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) The following expression, nucleic2-stalin.sc:1947:73145, allocates on the heap: (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) The following expression, nucleic2-stalin.sc:1943:72999, allocates on the heap: (MAKE-TFO -0.5021 0.07310000000000001 0.8617000000000001 -0.8112 0.3054 -0.4986 -0.2996 -0.9494 -0.094 6.4273 -5.194399999999999 -3.7807) The following expression, nucleic2-stalin.sc:1888:70894, allocates on the heap: (MAKE-RG (MAKE-TFO 0.5566000000000001 0.0449 0.8296000000000001 0.5125 0.7673 -0.3854 -0.6538 0.6397 0.4041 -9.116099999999999 -3.7679 -2.996799999999999) (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) (MAKE-PT 2.893 8.537999999999998 -3.328) (MAKE-PT 1.698 7.696 -3.557) (MAKE-PT 3.226 9.500999999999999 -4.402) (MAKE-PT 4.159 7.603999999999999 -3.034) (MAKE-PT 4.5778 6.6594 -4.0364) (MAKE-PT 4.922 7.1963 -4.9204) (MAKE-PT 3.7996 5.9091 -4.1764) (MAKE-PT 5.7873 5.8869 -3.5482) (MAKE-PT 6.0405 5.087499999999999 -4.2446) (MAKE-PT 6.9135 6.8036 -3.431) (MAKE-PT 7.7293 6.4084 -2.3392) (MAKE-PT 8.707799999999999 6.1815 -2.7624) (MAKE-PT 7.1305 5.1418 -1.7347) (MAKE-PT 7.204 5.1982 -0.6486000000000001) (MAKE-PT 7.741700000000001 4.039200000000001 -2.3813) (MAKE-PT 8.6785 4.144299999999999 -2.563) (MAKE-PT 5.6666 5.2728 -2.1536) (MAKE-PT 5.1747 5.9805 -1.4863) (MAKE-PT 4.999700000000001 4.0086 -2.1973) (MAKE-PT 10.3245 8.5459 1.5467) (MAKE-PT 9.805100000000001 6.943200000000001 -0.1497) (MAKE-PT 10.5175 7.4328 0.8408000000000001) (MAKE-PT 8.7523 7.7422 -0.4228000000000001) (MAKE-PT 8.425700000000001 8.906000000000001 0.2099) (MAKE-PT 9.266500000000001 9.324199999999999 1.254) (MAKE-PT 11.6077 6.796600000000001 1.2752) (MAKE-PT 7.275 9.453700000000001 -0.3428) (MAKE-PT 7.796200000000001 7.5519 -1.3859) (MAKE-PT 6.9479 8.6157 -1.2771) (MAKE-PT 9.066400000000002 10.4462 1.961) (MAKE-PT 10.9838 8.752400000000002 2.2697) (MAKE-PT 12.2274 7.089600000000001 2.017) (MAKE-PT 11.8502 5.939800000000001 0.7983999999999999) (MAKE-PT 6.043 8.985300000000001 -1.7594)) The following expression, nucleic2-stalin.sc:1938:72927, allocates on the heap: (MAKE-PT 6.043 8.985300000000001 -1.7594) The following expression, nucleic2-stalin.sc:1937:72883, allocates on the heap: (MAKE-PT 11.8502 5.939800000000001 0.7983999999999999) The following expression, nucleic2-stalin.sc:1936:72839, allocates on the heap: (MAKE-PT 12.2274 7.089600000000001 2.017) The following expression, nucleic2-stalin.sc:1935:72796, allocates on the heap: (MAKE-PT 10.9838 8.752400000000002 2.2697) The following expression, nucleic2-stalin.sc:1934:72753, allocates on the heap: (MAKE-PT 9.066400000000002 10.4462 1.961) The following expression, nucleic2-stalin.sc:1933:72710, allocates on the heap: (MAKE-PT 6.9479 8.6157 -1.2771) The following expression, nucleic2-stalin.sc:1932:72667, allocates on the heap: (MAKE-PT 7.796200000000001 7.5519 -1.3859) The following expression, nucleic2-stalin.sc:1931:72624, allocates on the heap: (MAKE-PT 7.275 9.453700000000001 -0.3428) The following expression, nucleic2-stalin.sc:1930:72581, allocates on the heap: (MAKE-PT 11.6077 6.796600000000001 1.2752) The following expression, nucleic2-stalin.sc:1929:72538, allocates on the heap: (MAKE-PT 9.266500000000001 9.324199999999999 1.254) The following expression, nucleic2-stalin.sc:1928:72495, allocates on the heap: (MAKE-PT 8.425700000000001 8.906000000000001 0.2099) The following expression, nucleic2-stalin.sc:1927:72452, allocates on the heap: (MAKE-PT 8.7523 7.7422 -0.4228000000000001) The following expression, nucleic2-stalin.sc:1926:72409, allocates on the heap: (MAKE-PT 10.5175 7.4328 0.8408000000000001) The following expression, nucleic2-stalin.sc:1925:72366, allocates on the heap: (MAKE-PT 9.805100000000001 6.943200000000001 -0.1497) The following expression, nucleic2-stalin.sc:1924:72323, allocates on the heap: (MAKE-PT 10.3245 8.5459 1.5467) The following expression, nucleic2-stalin.sc:1923:72279, allocates on the heap: (MAKE-PT 4.999700000000001 4.0086 -2.1973) The following expression, nucleic2-stalin.sc:1922:72235, allocates on the heap: (MAKE-PT 5.1747 5.9805 -1.4863) The following expression, nucleic2-stalin.sc:1921:72191, allocates on the heap: (MAKE-PT 5.6666 5.2728 -2.1536) The following expression, nucleic2-stalin.sc:1920:72147, allocates on the heap: (MAKE-PT 8.6785 4.144299999999999 -2.563) The following expression, nucleic2-stalin.sc:1919:72103, allocates on the heap: (MAKE-PT 7.741700000000001 4.039200000000001 -2.3813) The following expression, nucleic2-stalin.sc:1918:72058, allocates on the heap: (MAKE-PT 7.204 5.1982 -0.6486000000000001) The following expression, nucleic2-stalin.sc:1917:72014, allocates on the heap: (MAKE-PT 7.1305 5.1418 -1.7347) The following expression, nucleic2-stalin.sc:1916:71970, allocates on the heap: (MAKE-PT 8.707799999999999 6.1815 -2.7624) The following expression, nucleic2-stalin.sc:1915:71926, allocates on the heap: (MAKE-PT 7.7293 6.4084 -2.3392) The following expression, nucleic2-stalin.sc:1914:71882, allocates on the heap: (MAKE-PT 6.9135 6.8036 -3.431) The following expression, nucleic2-stalin.sc:1913:71838, allocates on the heap: (MAKE-PT 6.0405 5.087499999999999 -4.2446) The following expression, nucleic2-stalin.sc:1912:71794, allocates on the heap: (MAKE-PT 5.7873 5.8869 -3.5482) The following expression, nucleic2-stalin.sc:1911:71749, allocates on the heap: (MAKE-PT 3.7996 5.9091 -4.1764) The following expression, nucleic2-stalin.sc:1910:71705, allocates on the heap: (MAKE-PT 4.922 7.1963 -4.9204) The following expression, nucleic2-stalin.sc:1909:71661, allocates on the heap: (MAKE-PT 4.5778 6.6594 -4.0364) The following expression, nucleic2-stalin.sc:1908:71617, allocates on the heap: (MAKE-PT 4.159 7.603999999999999 -3.034) The following expression, nucleic2-stalin.sc:1907:71573, allocates on the heap: (MAKE-PT 3.226 9.500999999999999 -4.402) The following expression, nucleic2-stalin.sc:1906:71529, allocates on the heap: (MAKE-PT 1.698 7.696 -3.557) The following expression, nucleic2-stalin.sc:1905:71487, allocates on the heap: (MAKE-PT 2.893 8.537999999999998 -3.328) The following expression, nucleic2-stalin.sc:1901:71343, allocates on the heap: (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) The following expression, nucleic2-stalin.sc:1897:71197, allocates on the heap: (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) The following expression, nucleic2-stalin.sc:1893:71050, allocates on the heap: (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) The following expression, nucleic2-stalin.sc:1889:70905, allocates on the heap: (MAKE-TFO 0.5566000000000001 0.0449 0.8296000000000001 0.5125 0.7673 -0.3854 -0.6538 0.6397 0.4041 -9.116099999999999 -3.7679 -2.996799999999999) The following expression, nucleic2-stalin.sc:1834:68801, allocates on the heap: (MAKE-RG (MAKE-TFO -0.0043 -0.8175 0.5759000000000001 0.2617 -0.5567000000000001 -0.7883999999999999 0.9651 0.1473 0.2164 0.03589999999999999 8.392900000000001 0.5532) (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) (MAKE-PT 2.893 8.537999999999998 -3.328) (MAKE-PT 1.698 7.696 -3.557) (MAKE-PT 3.226 9.500999999999999 -4.402) (MAKE-PT 4.159 7.603999999999999 -3.034) (MAKE-PT 5.435200000000001 8.218299999999997 -2.7757) (MAKE-PT 5.383 8.788299999999998 -1.8481) (MAKE-PT 5.7729 8.743599999999999 -3.6691) (MAKE-PT 6.483000000000001 7.1518 -2.5252) (MAKE-PT 7.4749 7.5972 -2.4482) (MAKE-PT 6.162599999999999 6.462 -1.2827) (MAKE-PT 6.5431 5.099200000000001 -1.3905) (MAKE-PT 7.2871 4.9328 -0.6113999999999999) (MAKE-PT 7.1852 4.8935 -2.7592) (MAKE-PT 6.8573 3.9363 -3.1645) (MAKE-PT 8.577999999999999 5.102499999999999 -2.6046) (MAKE-PT 8.951600000000001 4.7577 -1.7902) (MAKE-PT 6.5522 6.03 -3.5612) (MAKE-PT 5.542 5.735600000000001 -3.8459) (MAKE-PT 7.3487 6.4089 -4.6867) (MAKE-PT 4.7442 0.4514 -0.139) (MAKE-PT 6.3687 2.1459 -0.5926) (MAKE-PT 5.979500000000001 0.9335 -0.2657) (MAKE-PT 5.3052 2.9471 -0.8125) (MAKE-PT 3.9891 2.5987 -0.723) (MAKE-PT 3.7016 1.2717 -0.3647) (MAKE-PT 6.874499999999999 -0.0224 -0.0058) (MAKE-PT 3.177 3.6859 -1.0198) (MAKE-PT 5.324699999999999 4.2695 -1.171) (MAKE-PT 4.0156 4.6415 -1.2759) (MAKE-PT 2.4553 0.7924999999999999 -0.239) (MAKE-PT 4.6497 -0.5095 0.1212) (MAKE-PT 6.6836 -0.9771 0.2627) (MAKE-PT 7.847399999999999 0.2424 -0.0653) (MAKE-PT 3.4426 5.5361 -1.5199)) The following expression, nucleic2-stalin.sc:1884:70833, allocates on the heap: (MAKE-PT 3.4426 5.5361 -1.5199) The following expression, nucleic2-stalin.sc:1883:70789, allocates on the heap: (MAKE-PT 7.847399999999999 0.2424 -0.0653) The following expression, nucleic2-stalin.sc:1882:70745, allocates on the heap: (MAKE-PT 6.6836 -0.9771 0.2627) The following expression, nucleic2-stalin.sc:1881:70702, allocates on the heap: (MAKE-PT 4.6497 -0.5095 0.1212) The following expression, nucleic2-stalin.sc:1880:70659, allocates on the heap: (MAKE-PT 2.4553 0.7924999999999999 -0.239) The following expression, nucleic2-stalin.sc:1879:70616, allocates on the heap: (MAKE-PT 4.0156 4.6415 -1.2759) The following expression, nucleic2-stalin.sc:1878:70573, allocates on the heap: (MAKE-PT 5.324699999999999 4.2695 -1.171) The following expression, nucleic2-stalin.sc:1877:70530, allocates on the heap: (MAKE-PT 3.177 3.6859 -1.0198) The following expression, nucleic2-stalin.sc:1876:70487, allocates on the heap: (MAKE-PT 6.874499999999999 -0.0224 -0.0058) The following expression, nucleic2-stalin.sc:1875:70444, allocates on the heap: (MAKE-PT 3.7016 1.2717 -0.3647) The following expression, nucleic2-stalin.sc:1874:70401, allocates on the heap: (MAKE-PT 3.9891 2.5987 -0.723) The following expression, nucleic2-stalin.sc:1873:70358, allocates on the heap: (MAKE-PT 5.3052 2.9471 -0.8125) The following expression, nucleic2-stalin.sc:1872:70315, allocates on the heap: (MAKE-PT 5.979500000000001 0.9335 -0.2657) The following expression, nucleic2-stalin.sc:1871:70272, allocates on the heap: (MAKE-PT 6.3687 2.1459 -0.5926) The following expression, nucleic2-stalin.sc:1870:70229, allocates on the heap: (MAKE-PT 4.7442 0.4514 -0.139) The following expression, nucleic2-stalin.sc:1869:70185, allocates on the heap: (MAKE-PT 7.3487 6.4089 -4.6867) The following expression, nucleic2-stalin.sc:1868:70141, allocates on the heap: (MAKE-PT 5.542 5.735600000000001 -3.8459) The following expression, nucleic2-stalin.sc:1867:70097, allocates on the heap: (MAKE-PT 6.5522 6.03 -3.5612) The following expression, nucleic2-stalin.sc:1866:70053, allocates on the heap: (MAKE-PT 8.951600000000001 4.7577 -1.7902) The following expression, nucleic2-stalin.sc:1865:70009, allocates on the heap: (MAKE-PT 8.577999999999999 5.102499999999999 -2.6046) The following expression, nucleic2-stalin.sc:1864:69964, allocates on the heap: (MAKE-PT 6.8573 3.9363 -3.1645) The following expression, nucleic2-stalin.sc:1863:69920, allocates on the heap: (MAKE-PT 7.1852 4.8935 -2.7592) The following expression, nucleic2-stalin.sc:1862:69876, allocates on the heap: (MAKE-PT 7.2871 4.9328 -0.6113999999999999) The following expression, nucleic2-stalin.sc:1861:69832, allocates on the heap: (MAKE-PT 6.5431 5.099200000000001 -1.3905) The following expression, nucleic2-stalin.sc:1860:69788, allocates on the heap: (MAKE-PT 6.162599999999999 6.462 -1.2827) The following expression, nucleic2-stalin.sc:1859:69744, allocates on the heap: (MAKE-PT 7.4749 7.5972 -2.4482) The following expression, nucleic2-stalin.sc:1858:69700, allocates on the heap: (MAKE-PT 6.483000000000001 7.1518 -2.5252) The following expression, nucleic2-stalin.sc:1857:69655, allocates on the heap: (MAKE-PT 5.7729 8.743599999999999 -3.6691) The following expression, nucleic2-stalin.sc:1856:69611, allocates on the heap: (MAKE-PT 5.383 8.788299999999998 -1.8481) The following expression, nucleic2-stalin.sc:1855:69567, allocates on the heap: (MAKE-PT 5.435200000000001 8.218299999999997 -2.7757) The following expression, nucleic2-stalin.sc:1854:69523, allocates on the heap: (MAKE-PT 4.159 7.603999999999999 -3.034) The following expression, nucleic2-stalin.sc:1853:69479, allocates on the heap: (MAKE-PT 3.226 9.500999999999999 -4.402) The following expression, nucleic2-stalin.sc:1852:69435, allocates on the heap: (MAKE-PT 1.698 7.696 -3.557) The following expression, nucleic2-stalin.sc:1851:69393, allocates on the heap: (MAKE-PT 2.893 8.537999999999998 -3.328) The following expression, nucleic2-stalin.sc:1847:69249, allocates on the heap: (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) The following expression, nucleic2-stalin.sc:1843:69103, allocates on the heap: (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) The following expression, nucleic2-stalin.sc:1839:68956, allocates on the heap: (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) The following expression, nucleic2-stalin.sc:1835:68812, allocates on the heap: (MAKE-TFO -0.0043 -0.8175 0.5759000000000001 0.2617 -0.5567000000000001 -0.7883999999999999 0.9651 0.1473 0.2164 0.03589999999999999 8.392900000000001 0.5532) The following expression, nucleic2-stalin.sc:1780:66708, allocates on the heap: (MAKE-RG (MAKE-TFO -0.0018 -0.8207000000000001 0.5714 0.2679 -0.5509000000000001 -0.7903999999999999 0.9633999999999999 0.1517 0.2209 0.0073 8.403 0.6232) (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) (MAKE-PT 2.893 8.537999999999998 -3.328) (MAKE-PT 1.698 7.696 -3.557) (MAKE-PT 3.226 9.500999999999999 -4.402) (MAKE-PT 4.159 7.603999999999999 -3.034) (MAKE-PT 5.455 8.212 -2.881) (MAKE-PT 5.4546 8.850800000000001 -1.9978) (MAKE-PT 5.7588 8.662500000000001 -3.8259) (MAKE-PT 6.497 7.148 -2.598) (MAKE-PT 7.489600000000001 7.5919 -2.5214) (MAKE-PT 6.162999999999999 6.486000000000001 -1.344) (MAKE-PT 6.54 5.119999999999999 -1.419) (MAKE-PT 7.276300000000001 4.9681 -0.6297) (MAKE-PT 7.193999999999999 4.883 -2.777) (MAKE-PT 6.8667 3.9183 -3.1647) (MAKE-PT 8.586 5.091 -2.614) (MAKE-PT 8.951000000000001 4.7626 -1.789) (MAKE-PT 6.572 6.004 -3.609) (MAKE-PT 5.5636 5.706600000000001 -3.896599999999999) (MAKE-PT 7.3801 6.3562 -4.735) (MAKE-PT 4.715 0.491 -0.136) (MAKE-PT 6.349 2.173 -0.602) (MAKE-PT 5.953 0.965 -0.267) (MAKE-PT 5.29 2.979 -0.8260000000000001) (MAKE-PT 3.972 2.639 -0.733) (MAKE-PT 3.677 1.316 -0.366) (MAKE-PT 6.8426 0.0056 -0.0019) (MAKE-PT 3.166 3.729 -1.036) (MAKE-PT 5.316999999999999 4.299 -1.193) (MAKE-PT 4.01 4.678 -1.299) (MAKE-PT 2.428 0.8450000000000001 -0.236) (MAKE-PT 4.615099999999999 -0.4677 0.1305) (MAKE-PT 6.6463 -0.9463 0.2729) (MAKE-PT 7.816999999999999 0.2642 -0.064) (MAKE-PT 3.4421 5.5744 -1.5482)) The following expression, nucleic2-stalin.sc:1830:68740, allocates on the heap: (MAKE-PT 3.4421 5.5744 -1.5482) The following expression, nucleic2-stalin.sc:1829:68696, allocates on the heap: (MAKE-PT 7.816999999999999 0.2642 -0.064) The following expression, nucleic2-stalin.sc:1828:68652, allocates on the heap: (MAKE-PT 6.6463 -0.9463 0.2729) The following expression, nucleic2-stalin.sc:1827:68609, allocates on the heap: (MAKE-PT 4.615099999999999 -0.4677 0.1305) The following expression, nucleic2-stalin.sc:1826:68566, allocates on the heap: (MAKE-PT 2.428 0.8450000000000001 -0.236) The following expression, nucleic2-stalin.sc:1825:68523, allocates on the heap: (MAKE-PT 4.01 4.678 -1.299) The following expression, nucleic2-stalin.sc:1824:68480, allocates on the heap: (MAKE-PT 5.316999999999999 4.299 -1.193) The following expression, nucleic2-stalin.sc:1823:68437, allocates on the heap: (MAKE-PT 3.166 3.729 -1.036) The following expression, nucleic2-stalin.sc:1822:68394, allocates on the heap: (MAKE-PT 6.8426 0.0056 -0.0019) The following expression, nucleic2-stalin.sc:1821:68351, allocates on the heap: (MAKE-PT 3.677 1.316 -0.366) The following expression, nucleic2-stalin.sc:1820:68308, allocates on the heap: (MAKE-PT 3.972 2.639 -0.733) The following expression, nucleic2-stalin.sc:1819:68265, allocates on the heap: (MAKE-PT 5.29 2.979 -0.8260000000000001) The following expression, nucleic2-stalin.sc:1818:68222, allocates on the heap: (MAKE-PT 5.953 0.965 -0.267) The following expression, nucleic2-stalin.sc:1817:68179, allocates on the heap: (MAKE-PT 6.349 2.173 -0.602) The following expression, nucleic2-stalin.sc:1816:68136, allocates on the heap: (MAKE-PT 4.715 0.491 -0.136) The following expression, nucleic2-stalin.sc:1815:68092, allocates on the heap: (MAKE-PT 7.3801 6.3562 -4.735) The following expression, nucleic2-stalin.sc:1814:68048, allocates on the heap: (MAKE-PT 5.5636 5.706600000000001 -3.896599999999999) The following expression, nucleic2-stalin.sc:1813:68004, allocates on the heap: (MAKE-PT 6.572 6.004 -3.609) The following expression, nucleic2-stalin.sc:1812:67960, allocates on the heap: (MAKE-PT 8.951000000000001 4.7626 -1.789) The following expression, nucleic2-stalin.sc:1811:67916, allocates on the heap: (MAKE-PT 8.586 5.091 -2.614) The following expression, nucleic2-stalin.sc:1810:67871, allocates on the heap: (MAKE-PT 6.8667 3.9183 -3.1647) The following expression, nucleic2-stalin.sc:1809:67827, allocates on the heap: (MAKE-PT 7.193999999999999 4.883 -2.777) The following expression, nucleic2-stalin.sc:1808:67783, allocates on the heap: (MAKE-PT 7.276300000000001 4.9681 -0.6297) The following expression, nucleic2-stalin.sc:1807:67739, allocates on the heap: (MAKE-PT 6.54 5.119999999999999 -1.419) The following expression, nucleic2-stalin.sc:1806:67695, allocates on the heap: (MAKE-PT 6.162999999999999 6.486000000000001 -1.344) The following expression, nucleic2-stalin.sc:1805:67651, allocates on the heap: (MAKE-PT 7.489600000000001 7.5919 -2.5214) The following expression, nucleic2-stalin.sc:1804:67607, allocates on the heap: (MAKE-PT 6.497 7.148 -2.598) The following expression, nucleic2-stalin.sc:1803:67562, allocates on the heap: (MAKE-PT 5.7588 8.662500000000001 -3.8259) The following expression, nucleic2-stalin.sc:1802:67518, allocates on the heap: (MAKE-PT 5.4546 8.850800000000001 -1.9978) The following expression, nucleic2-stalin.sc:1801:67474, allocates on the heap: (MAKE-PT 5.455 8.212 -2.881) The following expression, nucleic2-stalin.sc:1800:67430, allocates on the heap: (MAKE-PT 4.159 7.603999999999999 -3.034) The following expression, nucleic2-stalin.sc:1799:67386, allocates on the heap: (MAKE-PT 3.226 9.500999999999999 -4.402) The following expression, nucleic2-stalin.sc:1798:67342, allocates on the heap: (MAKE-PT 1.698 7.696 -3.557) The following expression, nucleic2-stalin.sc:1797:67300, allocates on the heap: (MAKE-PT 2.893 8.537999999999998 -3.328) The following expression, nucleic2-stalin.sc:1793:67156, allocates on the heap: (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) The following expression, nucleic2-stalin.sc:1789:67010, allocates on the heap: (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) The following expression, nucleic2-stalin.sc:1785:66863, allocates on the heap: (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) The following expression, nucleic2-stalin.sc:1781:66719, allocates on the heap: (MAKE-TFO -0.0018 -0.8207000000000001 0.5714 0.2679 -0.5509000000000001 -0.7903999999999999 0.9633999999999999 0.1517 0.2209 0.0073 8.403 0.6232) The following expression, nucleic2-stalin.sc:1777:66637, allocates on the heap: (LIST RC01 RC02 RC03 RC04 RC05 RC06 RC07 RC08 RC09 RC10) The following expression, nucleic2-stalin.sc:1726:64671, allocates on the heap: (MAKE-RC (MAKE-TFO 0.1549 0.8710000000000001 -0.4663 0.6768 -0.4374000000000001 -0.5921 -0.7197 -0.2239 -0.6572 25.2447 -14.192 50.3201) (MAKE-TFO 0.9187000000000001 0.2887 0.2694 0.0302 -0.7316 0.6810999999999999 0.3938 -0.6176 -0.6808 -48.433 26.3254 13.6383) (MAKE-TFO -0.1504 0.7744 -0.6144999999999999 0.7581 0.4893000000000001 0.4311 0.6345 -0.401 -0.6607 -31.9784 -13.4285 44.965) (MAKE-TFO -0.6236 -0.7809999999999999 -0.0337 -0.6889999999999999 0.5694 -0.4484 0.3694 -0.2564 -0.8932 12.1105 30.8774 46.0946) (MAKE-PT 33.34 11.098 46.175) (MAKE-PT 34.513 10.232 46.466) (MAKE-PT 33.413 12.396 46.934) (MAKE-PT 31.981 10.339 46.482) (MAKE-PT 31.8779 9.9369 47.876) (MAKE-PT 31.3239 10.6931 48.4322) (MAKE-PT 32.8647 9.662400000000002 48.24890000000001) (MAKE-PT 31.0429 8.677299999999999 47.9401) (MAKE-PT 30.044 8.847299999999999 47.53830000000001) (MAKE-PT 31.6749 7.6351 47.2119) (MAKE-PT 31.9159 6.5022 48.0616) (MAKE-PT 31.0691 5.824299999999999 47.95439999999999) (MAKE-PT 31.93 7.068499999999999 49.4493) (MAKE-PT 32.9024 7.528799999999999 49.6245) (MAKE-PT 31.5672 6.175 50.4632) (MAKE-PT 31.8416 5.2663 50.32) (MAKE-PT 30.8618 8.151400000000001 49.3749) (MAKE-PT 31.1122 8.9396 50.085) (MAKE-PT 29.5351 7.624499999999999 49.5409) (MAKE-PT 33.189 5.862899999999999 47.7343) (MAKE-PT 34.4004 4.2636 46.4828) (MAKE-PT 33.2062 4.8497 46.78510000000001) (MAKE-PT 35.56 4.6374 47.0822) (MAKE-PT 35.5444 5.6751 48.0577) (MAKE-PT 34.3565 6.245 48.3432) (MAKE-PT 36.6977 4.0305 46.7598) (MAKE-PT 32.16610000000001 4.5034 46.2348) (MAKE-PT 37.5405 4.3347 47.22590000000001) (MAKE-PT 36.70330000000001 3.2923 46.0706) (MAKE-PT 36.4713 5.981100000000001 48.5428) (MAKE-PT 34.29860000000001 7.0426 49.0839)) The following expression, nucleic2-stalin.sc:1773:66577, allocates on the heap: (MAKE-PT 34.29860000000001 7.0426 49.0839) The following expression, nucleic2-stalin.sc:1772:66534, allocates on the heap: (MAKE-PT 36.4713 5.981100000000001 48.5428) The following expression, nucleic2-stalin.sc:1771:66490, allocates on the heap: (MAKE-PT 36.70330000000001 3.2923 46.0706) The following expression, nucleic2-stalin.sc:1770:66446, allocates on the heap: (MAKE-PT 37.5405 4.3347 47.22590000000001) The following expression, nucleic2-stalin.sc:1769:66403, allocates on the heap: (MAKE-PT 32.16610000000001 4.5034 46.2348) The following expression, nucleic2-stalin.sc:1768:66360, allocates on the heap: (MAKE-PT 36.6977 4.0305 46.7598) The following expression, nucleic2-stalin.sc:1767:66317, allocates on the heap: (MAKE-PT 34.3565 6.245 48.3432) The following expression, nucleic2-stalin.sc:1766:66274, allocates on the heap: (MAKE-PT 35.5444 5.6751 48.0577) The following expression, nucleic2-stalin.sc:1765:66231, allocates on the heap: (MAKE-PT 35.56 4.6374 47.0822) The following expression, nucleic2-stalin.sc:1764:66188, allocates on the heap: (MAKE-PT 33.2062 4.8497 46.78510000000001) The following expression, nucleic2-stalin.sc:1763:66145, allocates on the heap: (MAKE-PT 34.4004 4.2636 46.4828) The following expression, nucleic2-stalin.sc:1762:66102, allocates on the heap: (MAKE-PT 33.189 5.862899999999999 47.7343) The following expression, nucleic2-stalin.sc:1761:66058, allocates on the heap: (MAKE-PT 29.5351 7.624499999999999 49.5409) The following expression, nucleic2-stalin.sc:1760:66014, allocates on the heap: (MAKE-PT 31.1122 8.9396 50.085) The following expression, nucleic2-stalin.sc:1759:65970, allocates on the heap: (MAKE-PT 30.8618 8.151400000000001 49.3749) The following expression, nucleic2-stalin.sc:1758:65926, allocates on the heap: (MAKE-PT 31.8416 5.2663 50.32) The following expression, nucleic2-stalin.sc:1757:65882, allocates on the heap: (MAKE-PT 31.5672 6.175 50.4632) The following expression, nucleic2-stalin.sc:1756:65837, allocates on the heap: (MAKE-PT 32.9024 7.528799999999999 49.6245) The following expression, nucleic2-stalin.sc:1755:65793, allocates on the heap: (MAKE-PT 31.93 7.068499999999999 49.4493) The following expression, nucleic2-stalin.sc:1754:65749, allocates on the heap: (MAKE-PT 31.0691 5.824299999999999 47.95439999999999) The following expression, nucleic2-stalin.sc:1753:65705, allocates on the heap: (MAKE-PT 31.9159 6.5022 48.0616) The following expression, nucleic2-stalin.sc:1752:65661, allocates on the heap: (MAKE-PT 31.6749 7.6351 47.2119) The following expression, nucleic2-stalin.sc:1751:65617, allocates on the heap: (MAKE-PT 30.044 8.847299999999999 47.53830000000001) The following expression, nucleic2-stalin.sc:1750:65573, allocates on the heap: (MAKE-PT 31.0429 8.677299999999999 47.9401) The following expression, nucleic2-stalin.sc:1749:65528, allocates on the heap: (MAKE-PT 32.8647 9.662400000000002 48.24890000000001) The following expression, nucleic2-stalin.sc:1748:65484, allocates on the heap: (MAKE-PT 31.3239 10.6931 48.4322) The following expression, nucleic2-stalin.sc:1747:65440, allocates on the heap: (MAKE-PT 31.8779 9.9369 47.876) The following expression, nucleic2-stalin.sc:1746:65396, allocates on the heap: (MAKE-PT 31.981 10.339 46.482) The following expression, nucleic2-stalin.sc:1745:65352, allocates on the heap: (MAKE-PT 33.413 12.396 46.934) The following expression, nucleic2-stalin.sc:1744:65308, allocates on the heap: (MAKE-PT 34.513 10.232 46.466) The following expression, nucleic2-stalin.sc:1743:65266, allocates on the heap: (MAKE-PT 33.34 11.098 46.175) The following expression, nucleic2-stalin.sc:1739:65120, allocates on the heap: (MAKE-TFO -0.6236 -0.7809999999999999 -0.0337 -0.6889999999999999 0.5694 -0.4484 0.3694 -0.2564 -0.8932 12.1105 30.8774 46.0946) The following expression, nucleic2-stalin.sc:1735:64973, allocates on the heap: (MAKE-TFO -0.1504 0.7744 -0.6144999999999999 0.7581 0.4893000000000001 0.4311 0.6345 -0.401 -0.6607 -31.9784 -13.4285 44.965) The following expression, nucleic2-stalin.sc:1731:64827, allocates on the heap: (MAKE-TFO 0.9187000000000001 0.2887 0.2694 0.0302 -0.7316 0.6810999999999999 0.3938 -0.6176 -0.6808 -48.433 26.3254 13.6383) The following expression, nucleic2-stalin.sc:1727:64682, allocates on the heap: (MAKE-TFO 0.1549 0.8710000000000001 -0.4663 0.6768 -0.4374000000000001 -0.5921 -0.7197 -0.2239 -0.6572 25.2447 -14.192 50.3201) The following expression, nucleic2-stalin.sc:1675:62703, allocates on the heap: (MAKE-RC (MAKE-TFO 0.8727000000000001 0.476 -0.1091 -0.4188000000000001 0.6148 -0.6681999999999999 -0.251 0.6289 0.7359 -8.168699999999999 -52.0761 -25.0726) (MAKE-TFO 0.9187000000000001 0.2887 0.2694 0.0302 -0.7316 0.6810999999999999 0.3938 -0.6176 -0.6808 -48.433 26.3254 13.6383) (MAKE-TFO -0.1504 0.7744 -0.6144999999999999 0.7581 0.4893000000000001 0.4311 0.6345 -0.401 -0.6607 -31.9784 -13.4285 44.965) (MAKE-TFO -0.6236 -0.7809999999999999 -0.0337 -0.6889999999999999 0.5694 -0.4484 0.3694 -0.2564 -0.8932 12.1105 30.8774 46.0946) (MAKE-PT 33.34 11.098 46.175) (MAKE-PT 34.513 10.232 46.466) (MAKE-PT 33.413 12.396 46.934) (MAKE-PT 31.981 10.339 46.482) (MAKE-PT 30.8152 11.1619 46.20030000000001) (MAKE-PT 30.4519 10.9454 45.19570000000001) (MAKE-PT 31.0379 12.2016 46.44) (MAKE-PT 29.7081 10.7448 47.1428) (MAKE-PT 29.4506 9.6945 47.0059) (MAKE-PT 30.1045 10.9634 48.4885) (MAKE-PT 29.1794 11.8418 49.149) (MAKE-PT 28.4388 11.221 49.6533) (MAKE-PT 28.5211 12.6008 48.0367) (MAKE-PT 29.1947 13.3949 47.7147) (MAKE-PT 27.2316 13.0683 48.31339999999999) (MAKE-PT 27.0851 13.3391 49.22270000000001) (MAKE-PT 28.4131 11.5507 46.9391) (MAKE-PT 28.4451 12.0512 45.9713) (MAKE-PT 27.2707 10.6955 47.1097) (MAKE-PT 29.8751 12.7405 50.0682) (MAKE-PT 30.7172 13.1841 52.2328) (MAKE-PT 30.0617 12.3404 51.3847) (MAKE-PT 31.1834 14.3941 51.8297) (MAKE-PT 30.9913 14.8074 50.4803) (MAKE-PT 30.3434 13.961 49.65479999999999) (MAKE-PT 31.809 15.1847 52.69570000000001) (MAKE-PT 29.647 11.2494 51.7616) (MAKE-PT 32.1422 16.0774 52.3606) (MAKE-PT 31.9392 14.8893 53.6527) (MAKE-PT 31.3632 15.7771 50.1491) (MAKE-PT 30.1742 14.2374 48.6141)) The following expression, nucleic2-stalin.sc:1722:64610, allocates on the heap: (MAKE-PT 30.1742 14.2374 48.6141) The following expression, nucleic2-stalin.sc:1721:64567, allocates on the heap: (MAKE-PT 31.3632 15.7771 50.1491) The following expression, nucleic2-stalin.sc:1720:64523, allocates on the heap: (MAKE-PT 31.9392 14.8893 53.6527) The following expression, nucleic2-stalin.sc:1719:64479, allocates on the heap: (MAKE-PT 32.1422 16.0774 52.3606) The following expression, nucleic2-stalin.sc:1718:64436, allocates on the heap: (MAKE-PT 29.647 11.2494 51.7616) The following expression, nucleic2-stalin.sc:1717:64393, allocates on the heap: (MAKE-PT 31.809 15.1847 52.69570000000001) The following expression, nucleic2-stalin.sc:1716:64350, allocates on the heap: (MAKE-PT 30.3434 13.961 49.65479999999999) The following expression, nucleic2-stalin.sc:1715:64307, allocates on the heap: (MAKE-PT 30.9913 14.8074 50.4803) The following expression, nucleic2-stalin.sc:1714:64264, allocates on the heap: (MAKE-PT 31.1834 14.3941 51.8297) The following expression, nucleic2-stalin.sc:1713:64221, allocates on the heap: (MAKE-PT 30.0617 12.3404 51.3847) The following expression, nucleic2-stalin.sc:1712:64178, allocates on the heap: (MAKE-PT 30.7172 13.1841 52.2328) The following expression, nucleic2-stalin.sc:1711:64135, allocates on the heap: (MAKE-PT 29.8751 12.7405 50.0682) The following expression, nucleic2-stalin.sc:1710:64091, allocates on the heap: (MAKE-PT 27.2707 10.6955 47.1097) The following expression, nucleic2-stalin.sc:1709:64047, allocates on the heap: (MAKE-PT 28.4451 12.0512 45.9713) The following expression, nucleic2-stalin.sc:1708:64003, allocates on the heap: (MAKE-PT 28.4131 11.5507 46.9391) The following expression, nucleic2-stalin.sc:1707:63959, allocates on the heap: (MAKE-PT 27.0851 13.3391 49.22270000000001) The following expression, nucleic2-stalin.sc:1706:63915, allocates on the heap: (MAKE-PT 27.2316 13.0683 48.31339999999999) The following expression, nucleic2-stalin.sc:1705:63870, allocates on the heap: (MAKE-PT 29.1947 13.3949 47.7147) The following expression, nucleic2-stalin.sc:1704:63826, allocates on the heap: (MAKE-PT 28.5211 12.6008 48.0367) The following expression, nucleic2-stalin.sc:1703:63782, allocates on the heap: (MAKE-PT 28.4388 11.221 49.6533) The following expression, nucleic2-stalin.sc:1702:63738, allocates on the heap: (MAKE-PT 29.1794 11.8418 49.149) The following expression, nucleic2-stalin.sc:1701:63694, allocates on the heap: (MAKE-PT 30.1045 10.9634 48.4885) The following expression, nucleic2-stalin.sc:1700:63650, allocates on the heap: (MAKE-PT 29.4506 9.6945 47.0059) The following expression, nucleic2-stalin.sc:1699:63606, allocates on the heap: (MAKE-PT 29.7081 10.7448 47.1428) The following expression, nucleic2-stalin.sc:1698:63561, allocates on the heap: (MAKE-PT 31.0379 12.2016 46.44) The following expression, nucleic2-stalin.sc:1697:63517, allocates on the heap: (MAKE-PT 30.4519 10.9454 45.19570000000001) The following expression, nucleic2-stalin.sc:1696:63473, allocates on the heap: (MAKE-PT 30.8152 11.1619 46.20030000000001) The following expression, nucleic2-stalin.sc:1695:63429, allocates on the heap: (MAKE-PT 31.981 10.339 46.482) The following expression, nucleic2-stalin.sc:1694:63385, allocates on the heap: (MAKE-PT 33.413 12.396 46.934) The following expression, nucleic2-stalin.sc:1693:63341, allocates on the heap: (MAKE-PT 34.513 10.232 46.466) The following expression, nucleic2-stalin.sc:1692:63299, allocates on the heap: (MAKE-PT 33.34 11.098 46.175) The following expression, nucleic2-stalin.sc:1688:63153, allocates on the heap: (MAKE-TFO -0.6236 -0.7809999999999999 -0.0337 -0.6889999999999999 0.5694 -0.4484 0.3694 -0.2564 -0.8932 12.1105 30.8774 46.0946) The following expression, nucleic2-stalin.sc:1684:63006, allocates on the heap: (MAKE-TFO -0.1504 0.7744 -0.6144999999999999 0.7581 0.4893000000000001 0.4311 0.6345 -0.401 -0.6607 -31.9784 -13.4285 44.965) The following expression, nucleic2-stalin.sc:1680:62860, allocates on the heap: (MAKE-TFO 0.9187000000000001 0.2887 0.2694 0.0302 -0.7316 0.6810999999999999 0.3938 -0.6176 -0.6808 -48.433 26.3254 13.6383) The following expression, nucleic2-stalin.sc:1676:62714, allocates on the heap: (MAKE-TFO 0.8727000000000001 0.476 -0.1091 -0.4188000000000001 0.6148 -0.6681999999999999 -0.251 0.6289 0.7359 -8.168699999999999 -52.0761 -25.0726) The following expression, nucleic2-stalin.sc:1624:60736, allocates on the heap: (MAKE-RC (MAKE-TFO 0.07970000000000001 -0.6026 -0.7940999999999999 0.7938999999999999 0.5201 -0.315 0.6028 -0.6053999999999999 0.5198 -36.8341 41.52930000000001 1.6628) (MAKE-TFO 0.9187000000000001 0.2887 0.2694 0.0302 -0.7316 0.6810999999999999 0.3938 -0.6176 -0.6808 -48.433 26.3254 13.6383) (MAKE-TFO -0.1504 0.7744 -0.6144999999999999 0.7581 0.4893000000000001 0.4311 0.6345 -0.401 -0.6607 -31.9784 -13.4285 44.965) (MAKE-TFO -0.6236 -0.7809999999999999 -0.0337 -0.6889999999999999 0.5694 -0.4484 0.3694 -0.2564 -0.8932 12.1105 30.8774 46.0946) (MAKE-PT 33.34 11.098 46.175) (MAKE-PT 34.513 10.232 46.466) (MAKE-PT 33.413 12.396 46.934) (MAKE-PT 31.981 10.339 46.482) (MAKE-PT 31.8779 9.9369 47.876) (MAKE-PT 31.3239 10.6931 48.4322) (MAKE-PT 32.8647 9.662400000000002 48.24890000000001) (MAKE-PT 31.0429 8.677299999999999 47.9401) (MAKE-PT 31.0779 8.233099999999999 48.9349) (MAKE-PT 29.6956 8.966900000000001 47.59830000000001) (MAKE-PT 29.2784 8.17 46.4782) (MAKE-PT 28.8006 7.2731 46.8722) (MAKE-PT 30.5544 7.794 45.7875) (MAKE-PT 30.8837 8.640999999999998 45.1856) (MAKE-PT 30.51 6.6007 45.0582) (MAKE-PT 29.6694 6.4168 44.6326) (MAKE-PT 31.5146 7.5954 46.9527) (MAKE-PT 32.52550000000001 7.826099999999999 46.6166) (MAKE-PT 31.3876 6.2951 47.55159999999999) (MAKE-PT 28.3976 8.930199999999999 45.59330000000001) (MAKE-PT 26.2155 9.6135 44.991) (MAKE-PT 27.0281 8.896100000000001 45.8192) (MAKE-PT 26.7044 10.3489 43.9595) (MAKE-PT 28.1088 10.3837 43.72470000000001) (MAKE-PT 28.8978 9.6708 44.5535) (MAKE-PT 25.8715 11.0249 43.1749) (MAKE-PT 26.5733 8.237099999999998 46.7484) (MAKE-PT 26.2707 11.5609 42.4177) (MAKE-PT 24.876 10.9939 43.3427) (MAKE-PT 28.5089 10.9722 42.899) (MAKE-PT 29.9782 9.668699999999999 44.4097)) The following expression, nucleic2-stalin.sc:1671:62642, allocates on the heap: (MAKE-PT 29.9782 9.668699999999999 44.4097) The following expression, nucleic2-stalin.sc:1670:62599, allocates on the heap: (MAKE-PT 28.5089 10.9722 42.899) The following expression, nucleic2-stalin.sc:1669:62555, allocates on the heap: (MAKE-PT 24.876 10.9939 43.3427) The following expression, nucleic2-stalin.sc:1668:62511, allocates on the heap: (MAKE-PT 26.2707 11.5609 42.4177) The following expression, nucleic2-stalin.sc:1667:62468, allocates on the heap: (MAKE-PT 26.5733 8.237099999999998 46.7484) The following expression, nucleic2-stalin.sc:1666:62425, allocates on the heap: (MAKE-PT 25.8715 11.0249 43.1749) The following expression, nucleic2-stalin.sc:1665:62382, allocates on the heap: (MAKE-PT 28.8978 9.6708 44.5535) The following expression, nucleic2-stalin.sc:1664:62339, allocates on the heap: (MAKE-PT 28.1088 10.3837 43.72470000000001) The following expression, nucleic2-stalin.sc:1663:62296, allocates on the heap: (MAKE-PT 26.7044 10.3489 43.9595) The following expression, nucleic2-stalin.sc:1662:62253, allocates on the heap: (MAKE-PT 27.0281 8.896100000000001 45.8192) The following expression, nucleic2-stalin.sc:1661:62210, allocates on the heap: (MAKE-PT 26.2155 9.6135 44.991) The following expression, nucleic2-stalin.sc:1660:62167, allocates on the heap: (MAKE-PT 28.3976 8.930199999999999 45.59330000000001) The following expression, nucleic2-stalin.sc:1659:62123, allocates on the heap: (MAKE-PT 31.3876 6.2951 47.55159999999999) The following expression, nucleic2-stalin.sc:1658:62079, allocates on the heap: (MAKE-PT 32.52550000000001 7.826099999999999 46.6166) The following expression, nucleic2-stalin.sc:1657:62035, allocates on the heap: (MAKE-PT 31.5146 7.5954 46.9527) The following expression, nucleic2-stalin.sc:1656:61991, allocates on the heap: (MAKE-PT 29.6694 6.4168 44.6326) The following expression, nucleic2-stalin.sc:1655:61947, allocates on the heap: (MAKE-PT 30.51 6.6007 45.0582) The following expression, nucleic2-stalin.sc:1654:61902, allocates on the heap: (MAKE-PT 30.8837 8.640999999999998 45.1856) The following expression, nucleic2-stalin.sc:1653:61858, allocates on the heap: (MAKE-PT 30.5544 7.794 45.7875) The following expression, nucleic2-stalin.sc:1652:61814, allocates on the heap: (MAKE-PT 28.8006 7.2731 46.8722) The following expression, nucleic2-stalin.sc:1651:61770, allocates on the heap: (MAKE-PT 29.2784 8.17 46.4782) The following expression, nucleic2-stalin.sc:1650:61726, allocates on the heap: (MAKE-PT 29.6956 8.966900000000001 47.59830000000001) The following expression, nucleic2-stalin.sc:1649:61682, allocates on the heap: (MAKE-PT 31.0779 8.233099999999999 48.9349) The following expression, nucleic2-stalin.sc:1648:61638, allocates on the heap: (MAKE-PT 31.0429 8.677299999999999 47.9401) The following expression, nucleic2-stalin.sc:1647:61593, allocates on the heap: (MAKE-PT 32.8647 9.662400000000002 48.24890000000001) The following expression, nucleic2-stalin.sc:1646:61549, allocates on the heap: (MAKE-PT 31.3239 10.6931 48.4322) The following expression, nucleic2-stalin.sc:1645:61505, allocates on the heap: (MAKE-PT 31.8779 9.9369 47.876) The following expression, nucleic2-stalin.sc:1644:61461, allocates on the heap: (MAKE-PT 31.981 10.339 46.482) The following expression, nucleic2-stalin.sc:1643:61417, allocates on the heap: (MAKE-PT 33.413 12.396 46.934) The following expression, nucleic2-stalin.sc:1642:61373, allocates on the heap: (MAKE-PT 34.513 10.232 46.466) The following expression, nucleic2-stalin.sc:1641:61331, allocates on the heap: (MAKE-PT 33.34 11.098 46.175) The following expression, nucleic2-stalin.sc:1637:61185, allocates on the heap: (MAKE-TFO -0.6236 -0.7809999999999999 -0.0337 -0.6889999999999999 0.5694 -0.4484 0.3694 -0.2564 -0.8932 12.1105 30.8774 46.0946) The following expression, nucleic2-stalin.sc:1633:61038, allocates on the heap: (MAKE-TFO -0.1504 0.7744 -0.6144999999999999 0.7581 0.4893000000000001 0.4311 0.6345 -0.401 -0.6607 -31.9784 -13.4285 44.965) The following expression, nucleic2-stalin.sc:1629:60892, allocates on the heap: (MAKE-TFO 0.9187000000000001 0.2887 0.2694 0.0302 -0.7316 0.6810999999999999 0.3938 -0.6176 -0.6808 -48.433 26.3254 13.6383) The following expression, nucleic2-stalin.sc:1625:60747, allocates on the heap: (MAKE-TFO 0.07970000000000001 -0.6026 -0.7940999999999999 0.7938999999999999 0.5201 -0.315 0.6028 -0.6053999999999999 0.5198 -36.8341 41.52930000000001 1.6628) The following expression, nucleic2-stalin.sc:1573:58769, allocates on the heap: (MAKE-RC (MAKE-TFO 0.0033 0.272 -0.9622999999999999 0.3013 -0.9179 -0.2584 -0.9535 -0.2891 -0.08500000000000001 43.0403 13.7233 34.571) (MAKE-TFO 0.9187000000000001 0.2887 0.2694 0.0302 -0.7316 0.6810999999999999 0.3938 -0.6176 -0.6808 -48.433 26.3254 13.6383) (MAKE-TFO -0.1504 0.7744 -0.6144999999999999 0.7581 0.4893000000000001 0.4311 0.6345 -0.401 -0.6607 -31.9784 -13.4285 44.965) (MAKE-TFO -0.6236 -0.7809999999999999 -0.0337 -0.6889999999999999 0.5694 -0.4484 0.3694 -0.2564 -0.8932 12.1105 30.8774 46.0946) (MAKE-PT 33.34 11.098 46.175) (MAKE-PT 34.513 10.232 46.466) (MAKE-PT 33.413 12.396 46.934) (MAKE-PT 31.981 10.339 46.482) (MAKE-PT 30.8152 11.1619 46.20030000000001) (MAKE-PT 30.4519 10.9454 45.19570000000001) (MAKE-PT 31.0379 12.2016 46.44) (MAKE-PT 29.7081 10.7448 47.1428) (MAKE-PT 28.871 11.4416 47.09820000000001) (MAKE-PT 29.255 9.439400000000001 46.81619999999999) (MAKE-PT 29.3907 8.562500000000002 47.946) (MAKE-PT 28.4416 8.5669 48.4819) (MAKE-PT 30.4468 9.203099999999999 48.79520000000001) (MAKE-PT 31.4222 8.965100000000001 48.3709) (MAKE-PT 30.3701 8.915700000000001 50.16240000000001) (MAKE-PT 30.0652 8.0304 50.374) (MAKE-PT 30.1622 10.6879 48.612) (MAKE-PT 31.0952 11.2399 48.72540000000001) (MAKE-PT 29.1076 11.1535 49.4702) (MAKE-PT 29.7883 7.220899999999999 47.52350000000001) (MAKE-PT 29.1825 5.0438 46.8275) (MAKE-PT 28.8008 6.291200000000001 47.22630000000001) (MAKE-PT 30.4888 4.689 46.7186) (MAKE-PT 31.5034 5.640499999999999 47.0249) (MAKE-PT 31.1091 6.8691 47.4156) (MAKE-PT 30.8109 3.4584 46.3336) (MAKE-PT 27.6171 6.5989 47.3189) (MAKE-PT 31.7923 3.2301 46.2638) (MAKE-PT 30.088 2.7857 46.1215) (MAKE-PT 32.55419999999999 5.3634 46.9395) (MAKE-PT 31.8523 7.627899999999999 47.66030000000001)) The following expression, nucleic2-stalin.sc:1620:60675, allocates on the heap: (MAKE-PT 31.8523 7.627899999999999 47.66030000000001) The following expression, nucleic2-stalin.sc:1619:60632, allocates on the heap: (MAKE-PT 32.55419999999999 5.3634 46.9395) The following expression, nucleic2-stalin.sc:1618:60588, allocates on the heap: (MAKE-PT 30.088 2.7857 46.1215) The following expression, nucleic2-stalin.sc:1617:60544, allocates on the heap: (MAKE-PT 31.7923 3.2301 46.2638) The following expression, nucleic2-stalin.sc:1616:60501, allocates on the heap: (MAKE-PT 27.6171 6.5989 47.3189) The following expression, nucleic2-stalin.sc:1615:60458, allocates on the heap: (MAKE-PT 30.8109 3.4584 46.3336) The following expression, nucleic2-stalin.sc:1614:60415, allocates on the heap: (MAKE-PT 31.1091 6.8691 47.4156) The following expression, nucleic2-stalin.sc:1613:60372, allocates on the heap: (MAKE-PT 31.5034 5.640499999999999 47.0249) The following expression, nucleic2-stalin.sc:1612:60329, allocates on the heap: (MAKE-PT 30.4888 4.689 46.7186) The following expression, nucleic2-stalin.sc:1611:60286, allocates on the heap: (MAKE-PT 28.8008 6.291200000000001 47.22630000000001) The following expression, nucleic2-stalin.sc:1610:60243, allocates on the heap: (MAKE-PT 29.1825 5.0438 46.8275) The following expression, nucleic2-stalin.sc:1609:60200, allocates on the heap: (MAKE-PT 29.7883 7.220899999999999 47.52350000000001) The following expression, nucleic2-stalin.sc:1608:60156, allocates on the heap: (MAKE-PT 29.1076 11.1535 49.4702) The following expression, nucleic2-stalin.sc:1607:60112, allocates on the heap: (MAKE-PT 31.0952 11.2399 48.72540000000001) The following expression, nucleic2-stalin.sc:1606:60068, allocates on the heap: (MAKE-PT 30.1622 10.6879 48.612) The following expression, nucleic2-stalin.sc:1605:60024, allocates on the heap: (MAKE-PT 30.0652 8.0304 50.374) The following expression, nucleic2-stalin.sc:1604:59980, allocates on the heap: (MAKE-PT 30.3701 8.915700000000001 50.16240000000001) The following expression, nucleic2-stalin.sc:1603:59935, allocates on the heap: (MAKE-PT 31.4222 8.965100000000001 48.3709) The following expression, nucleic2-stalin.sc:1602:59891, allocates on the heap: (MAKE-PT 30.4468 9.203099999999999 48.79520000000001) The following expression, nucleic2-stalin.sc:1601:59847, allocates on the heap: (MAKE-PT 28.4416 8.5669 48.4819) The following expression, nucleic2-stalin.sc:1600:59803, allocates on the heap: (MAKE-PT 29.3907 8.562500000000002 47.946) The following expression, nucleic2-stalin.sc:1599:59759, allocates on the heap: (MAKE-PT 29.255 9.439400000000001 46.81619999999999) The following expression, nucleic2-stalin.sc:1598:59715, allocates on the heap: (MAKE-PT 28.871 11.4416 47.09820000000001) The following expression, nucleic2-stalin.sc:1597:59671, allocates on the heap: (MAKE-PT 29.7081 10.7448 47.1428) The following expression, nucleic2-stalin.sc:1596:59626, allocates on the heap: (MAKE-PT 31.0379 12.2016 46.44) The following expression, nucleic2-stalin.sc:1595:59582, allocates on the heap: (MAKE-PT 30.4519 10.9454 45.19570000000001) The following expression, nucleic2-stalin.sc:1594:59538, allocates on the heap: (MAKE-PT 30.8152 11.1619 46.20030000000001) The following expression, nucleic2-stalin.sc:1593:59494, allocates on the heap: (MAKE-PT 31.981 10.339 46.482) The following expression, nucleic2-stalin.sc:1592:59450, allocates on the heap: (MAKE-PT 33.413 12.396 46.934) The following expression, nucleic2-stalin.sc:1591:59406, allocates on the heap: (MAKE-PT 34.513 10.232 46.466) The following expression, nucleic2-stalin.sc:1590:59364, allocates on the heap: (MAKE-PT 33.34 11.098 46.175) The following expression, nucleic2-stalin.sc:1586:59218, allocates on the heap: (MAKE-TFO -0.6236 -0.7809999999999999 -0.0337 -0.6889999999999999 0.5694 -0.4484 0.3694 -0.2564 -0.8932 12.1105 30.8774 46.0946) The following expression, nucleic2-stalin.sc:1582:59071, allocates on the heap: (MAKE-TFO -0.1504 0.7744 -0.6144999999999999 0.7581 0.4893000000000001 0.4311 0.6345 -0.401 -0.6607 -31.9784 -13.4285 44.965) The following expression, nucleic2-stalin.sc:1578:58925, allocates on the heap: (MAKE-TFO 0.9187000000000001 0.2887 0.2694 0.0302 -0.7316 0.6810999999999999 0.3938 -0.6176 -0.6808 -48.433 26.3254 13.6383) The following expression, nucleic2-stalin.sc:1574:58780, allocates on the heap: (MAKE-TFO 0.0033 0.272 -0.9622999999999999 0.3013 -0.9179 -0.2584 -0.9535 -0.2891 -0.08500000000000001 43.0403 13.7233 34.571) The following expression, nucleic2-stalin.sc:1522:56805, allocates on the heap: (MAKE-RC (MAKE-TFO -0.9837 0.0476 -0.1733 -0.1792 -0.3353 0.9249000000000001 -0.0141 0.9409000000000001 0.3384 5.779300000000001 -5.230300000000001 4.5997) (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) (MAKE-PT 2.676 -8.496 3.288) (MAKE-PT 1.495 -7.622999999999999 3.477) (MAKE-PT 2.949 -9.464 4.374) (MAKE-PT 3.973 -7.595 3.034) (MAKE-PT 3.9938 -6.7042 1.9023) (MAKE-PT 3.2332 -5.9343 2.0319) (MAKE-PT 3.9666 -7.286300000000001 0.9812) (MAKE-PT 5.3098 -5.9546 1.8564) (MAKE-PT 5.3863 -5.370200000000001 0.9395) (MAKE-PT 5.3851 -5.0642 3.0076) (MAKE-PT 6.7315 -4.9724 3.4462) (MAKE-PT 7.0033 -3.9202 3.3619) (MAKE-PT 7.5997 -5.8018 2.4948) (MAKE-PT 8.362700000000002 -6.325399999999999 3.0707) (MAKE-PT 8.040999999999999 -4.9501 1.4724) (MAKE-PT 8.278099999999998 -4.064399999999999 1.757) (MAKE-PT 6.5701 -6.812899999999999 1.9714) (MAKE-PT 6.418600000000001 -7.5809 2.7299) (MAKE-PT 6.935700000000001 -7.384099999999999 0.7234999999999999) (MAKE-PT 6.8024 -5.471800000000001 4.847499999999999) (MAKE-PT 6.691999999999999 -5.0495 7.1354) (MAKE-PT 6.620099999999999 -4.55 5.8506) (MAKE-PT 6.9254 -6.3614 7.4926) (MAKE-PT 7.1046 -7.2543 6.3718) (MAKE-PT 7.0391 -6.7951 5.1106) (MAKE-PT 6.9614 -6.664799999999999 8.781499999999999) (MAKE-PT 6.408300000000001 -3.3696 5.633999999999999) (MAKE-PT 7.132899999999999 -7.627999999999999 9.032400000000001) (MAKE-PT 6.820399999999999 -5.9469 9.4777) (MAKE-PT 7.2954 -8.313500000000001 6.544) (MAKE-PT 7.1753 -7.479800000000001 4.2735)) The following expression, nucleic2-stalin.sc:1569:58708, allocates on the heap: (MAKE-PT 7.1753 -7.479800000000001 4.2735) The following expression, nucleic2-stalin.sc:1568:58665, allocates on the heap: (MAKE-PT 7.2954 -8.313500000000001 6.544) The following expression, nucleic2-stalin.sc:1567:58621, allocates on the heap: (MAKE-PT 6.820399999999999 -5.9469 9.4777) The following expression, nucleic2-stalin.sc:1566:58577, allocates on the heap: (MAKE-PT 7.132899999999999 -7.627999999999999 9.032400000000001) The following expression, nucleic2-stalin.sc:1565:58534, allocates on the heap: (MAKE-PT 6.408300000000001 -3.3696 5.633999999999999) The following expression, nucleic2-stalin.sc:1564:58491, allocates on the heap: (MAKE-PT 6.9614 -6.664799999999999 8.781499999999999) The following expression, nucleic2-stalin.sc:1563:58448, allocates on the heap: (MAKE-PT 7.0391 -6.7951 5.1106) The following expression, nucleic2-stalin.sc:1562:58405, allocates on the heap: (MAKE-PT 7.1046 -7.2543 6.3718) The following expression, nucleic2-stalin.sc:1561:58362, allocates on the heap: (MAKE-PT 6.9254 -6.3614 7.4926) The following expression, nucleic2-stalin.sc:1560:58319, allocates on the heap: (MAKE-PT 6.620099999999999 -4.55 5.8506) The following expression, nucleic2-stalin.sc:1559:58276, allocates on the heap: (MAKE-PT 6.691999999999999 -5.0495 7.1354) The following expression, nucleic2-stalin.sc:1558:58233, allocates on the heap: (MAKE-PT 6.8024 -5.471800000000001 4.847499999999999) The following expression, nucleic2-stalin.sc:1557:58189, allocates on the heap: (MAKE-PT 6.935700000000001 -7.384099999999999 0.7234999999999999) The following expression, nucleic2-stalin.sc:1556:58145, allocates on the heap: (MAKE-PT 6.418600000000001 -7.5809 2.7299) The following expression, nucleic2-stalin.sc:1555:58101, allocates on the heap: (MAKE-PT 6.5701 -6.812899999999999 1.9714) The following expression, nucleic2-stalin.sc:1554:58057, allocates on the heap: (MAKE-PT 8.278099999999998 -4.064399999999999 1.757) The following expression, nucleic2-stalin.sc:1553:58013, allocates on the heap: (MAKE-PT 8.040999999999999 -4.9501 1.4724) The following expression, nucleic2-stalin.sc:1552:57968, allocates on the heap: (MAKE-PT 8.362700000000002 -6.325399999999999 3.0707) The following expression, nucleic2-stalin.sc:1551:57924, allocates on the heap: (MAKE-PT 7.5997 -5.8018 2.4948) The following expression, nucleic2-stalin.sc:1550:57880, allocates on the heap: (MAKE-PT 7.0033 -3.9202 3.3619) The following expression, nucleic2-stalin.sc:1549:57836, allocates on the heap: (MAKE-PT 6.7315 -4.9724 3.4462) The following expression, nucleic2-stalin.sc:1548:57792, allocates on the heap: (MAKE-PT 5.3851 -5.0642 3.0076) The following expression, nucleic2-stalin.sc:1547:57748, allocates on the heap: (MAKE-PT 5.3863 -5.370200000000001 0.9395) The following expression, nucleic2-stalin.sc:1546:57704, allocates on the heap: (MAKE-PT 5.3098 -5.9546 1.8564) The following expression, nucleic2-stalin.sc:1545:57659, allocates on the heap: (MAKE-PT 3.9666 -7.286300000000001 0.9812) The following expression, nucleic2-stalin.sc:1544:57615, allocates on the heap: (MAKE-PT 3.2332 -5.9343 2.0319) The following expression, nucleic2-stalin.sc:1543:57571, allocates on the heap: (MAKE-PT 3.9938 -6.7042 1.9023) The following expression, nucleic2-stalin.sc:1542:57527, allocates on the heap: (MAKE-PT 3.973 -7.595 3.034) The following expression, nucleic2-stalin.sc:1541:57483, allocates on the heap: (MAKE-PT 2.949 -9.464 4.374) The following expression, nucleic2-stalin.sc:1540:57439, allocates on the heap: (MAKE-PT 1.495 -7.622999999999999 3.477) The following expression, nucleic2-stalin.sc:1539:57397, allocates on the heap: (MAKE-PT 2.676 -8.496 3.288) The following expression, nucleic2-stalin.sc:1535:57253, allocates on the heap: (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) The following expression, nucleic2-stalin.sc:1531:57107, allocates on the heap: (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) The following expression, nucleic2-stalin.sc:1527:56962, allocates on the heap: (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) The following expression, nucleic2-stalin.sc:1523:56816, allocates on the heap: (MAKE-TFO -0.9837 0.0476 -0.1733 -0.1792 -0.3353 0.9249000000000001 -0.0141 0.9409000000000001 0.3384 5.779300000000001 -5.230300000000001 4.5997) The following expression, nucleic2-stalin.sc:1471:54841, allocates on the heap: (MAKE-RC (MAKE-TFO -0.6298 0.0246 0.7763 -0.5226000000000001 -0.7529 -0.4001 0.5746000000000001 -0.6577000000000001 0.487 -0.0208 -3.4598 -9.688199999999998) (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) (MAKE-PT 2.676 -8.496 3.288) (MAKE-PT 1.495 -7.622999999999999 3.477) (MAKE-PT 2.949 -9.464 4.374) (MAKE-PT 3.973 -7.595 3.034) (MAKE-PT 4.382499999999999 -6.658499999999999 4.0489) (MAKE-PT 4.684099999999999 -7.2019 4.9443) (MAKE-PT 3.6189 -5.8889 4.162499999999999) (MAKE-PT 5.625499999999999 -5.9175 3.5998) (MAKE-PT 5.873200000000001 -5.122799999999999 4.3034) (MAKE-PT 6.733700000000001 -6.860499999999999 3.5222) (MAKE-PT 7.5932 -6.4923 2.4548) (MAKE-PT 8.5661 -6.2983 2.9064) (MAKE-PT 7.0527 -5.201200000000001 1.8322) (MAKE-PT 7.162699999999999 -5.2525 0.749) (MAKE-PT 7.6666 -4.124899999999998 2.488) (MAKE-PT 8.5944 -4.2543 2.6981) (MAKE-PT 5.5661 -5.302899999999999 2.2009) (MAKE-PT 5.084099999999999 -6.0018 1.5172) (MAKE-PT 4.906200000000001 -4.0452 2.2042) (MAKE-PT 7.629799999999999 -7.6136 1.4752) (MAKE-PT 8.5977 -9.5977 0.7329) (MAKE-PT 8.5951 -8.5745 1.6594) (MAKE-PT 7.737200000000001 -9.737099999999998 -0.3364) (MAKE-PT 6.759600000000001 -8.680099999999999 -0.4476) (MAKE-PT 6.7338 -7.672099999999999 0.4408) (MAKE-PT 7.884899999999999 -10.7881 -1.1289) (MAKE-PT 9.3993 -8.537699999999999 2.5743) (MAKE-PT 7.2499 -10.8809 -1.9088) (MAKE-PT 8.6122 -11.4649 -0.9468000000000001) (MAKE-PT 6.031700000000001 -8.694099999999999 -1.2588) (MAKE-PT 5.9901 -6.8809 0.3459)) The following expression, nucleic2-stalin.sc:1518:56744, allocates on the heap: (MAKE-PT 5.9901 -6.8809 0.3459) The following expression, nucleic2-stalin.sc:1517:56701, allocates on the heap: (MAKE-PT 6.031700000000001 -8.694099999999999 -1.2588) The following expression, nucleic2-stalin.sc:1516:56657, allocates on the heap: (MAKE-PT 8.6122 -11.4649 -0.9468000000000001) The following expression, nucleic2-stalin.sc:1515:56613, allocates on the heap: (MAKE-PT 7.2499 -10.8809 -1.9088) The following expression, nucleic2-stalin.sc:1514:56570, allocates on the heap: (MAKE-PT 9.3993 -8.537699999999999 2.5743) The following expression, nucleic2-stalin.sc:1513:56527, allocates on the heap: (MAKE-PT 7.884899999999999 -10.7881 -1.1289) The following expression, nucleic2-stalin.sc:1512:56484, allocates on the heap: (MAKE-PT 6.7338 -7.672099999999999 0.4408) The following expression, nucleic2-stalin.sc:1511:56441, allocates on the heap: (MAKE-PT 6.759600000000001 -8.680099999999999 -0.4476) The following expression, nucleic2-stalin.sc:1510:56398, allocates on the heap: (MAKE-PT 7.737200000000001 -9.737099999999998 -0.3364) The following expression, nucleic2-stalin.sc:1509:56355, allocates on the heap: (MAKE-PT 8.5951 -8.5745 1.6594) The following expression, nucleic2-stalin.sc:1508:56312, allocates on the heap: (MAKE-PT 8.5977 -9.5977 0.7329) The following expression, nucleic2-stalin.sc:1507:56269, allocates on the heap: (MAKE-PT 7.629799999999999 -7.6136 1.4752) The following expression, nucleic2-stalin.sc:1506:56225, allocates on the heap: (MAKE-PT 4.906200000000001 -4.0452 2.2042) The following expression, nucleic2-stalin.sc:1505:56181, allocates on the heap: (MAKE-PT 5.084099999999999 -6.0018 1.5172) The following expression, nucleic2-stalin.sc:1504:56137, allocates on the heap: (MAKE-PT 5.5661 -5.302899999999999 2.2009) The following expression, nucleic2-stalin.sc:1503:56093, allocates on the heap: (MAKE-PT 8.5944 -4.2543 2.6981) The following expression, nucleic2-stalin.sc:1502:56049, allocates on the heap: (MAKE-PT 7.6666 -4.124899999999998 2.488) The following expression, nucleic2-stalin.sc:1501:56004, allocates on the heap: (MAKE-PT 7.162699999999999 -5.2525 0.749) The following expression, nucleic2-stalin.sc:1500:55960, allocates on the heap: (MAKE-PT 7.0527 -5.201200000000001 1.8322) The following expression, nucleic2-stalin.sc:1499:55916, allocates on the heap: (MAKE-PT 8.5661 -6.2983 2.9064) The following expression, nucleic2-stalin.sc:1498:55872, allocates on the heap: (MAKE-PT 7.5932 -6.4923 2.4548) The following expression, nucleic2-stalin.sc:1497:55828, allocates on the heap: (MAKE-PT 6.733700000000001 -6.860499999999999 3.5222) The following expression, nucleic2-stalin.sc:1496:55784, allocates on the heap: (MAKE-PT 5.873200000000001 -5.122799999999999 4.3034) The following expression, nucleic2-stalin.sc:1495:55740, allocates on the heap: (MAKE-PT 5.625499999999999 -5.9175 3.5998) The following expression, nucleic2-stalin.sc:1494:55695, allocates on the heap: (MAKE-PT 3.6189 -5.8889 4.162499999999999) The following expression, nucleic2-stalin.sc:1493:55651, allocates on the heap: (MAKE-PT 4.684099999999999 -7.2019 4.9443) The following expression, nucleic2-stalin.sc:1492:55607, allocates on the heap: (MAKE-PT 4.382499999999999 -6.658499999999999 4.0489) The following expression, nucleic2-stalin.sc:1491:55563, allocates on the heap: (MAKE-PT 3.973 -7.595 3.034) The following expression, nucleic2-stalin.sc:1490:55519, allocates on the heap: (MAKE-PT 2.949 -9.464 4.374) The following expression, nucleic2-stalin.sc:1489:55475, allocates on the heap: (MAKE-PT 1.495 -7.622999999999999 3.477) The following expression, nucleic2-stalin.sc:1488:55433, allocates on the heap: (MAKE-PT 2.676 -8.496 3.288) The following expression, nucleic2-stalin.sc:1484:55289, allocates on the heap: (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) The following expression, nucleic2-stalin.sc:1480:55143, allocates on the heap: (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) The following expression, nucleic2-stalin.sc:1476:54998, allocates on the heap: (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) The following expression, nucleic2-stalin.sc:1472:54852, allocates on the heap: (MAKE-TFO -0.6298 0.0246 0.7763 -0.5226000000000001 -0.7529 -0.4001 0.5746000000000001 -0.6577000000000001 0.487 -0.0208 -3.4598 -9.688199999999998) The following expression, nucleic2-stalin.sc:1420:52876, allocates on the heap: (MAKE-RC (MAKE-TFO -0.5669000000000001 -0.8012 0.1918 -0.8129000000000001 0.5817 0.0273 -0.1334 -0.1404 -0.9811 -0.3279 8.387400000000001 0.3355) (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) (MAKE-PT 2.676 -8.496 3.288) (MAKE-PT 1.495 -7.622999999999999 3.477) (MAKE-PT 2.949 -9.464 4.374) (MAKE-PT 3.973 -7.595 3.034) (MAKE-PT 5.241600000000001 -8.242199999999999 2.8181) (MAKE-PT 5.205 -8.812800000000001 1.8901) (MAKE-PT 5.5368 -8.7738 3.7227) (MAKE-PT 6.3232 -7.2037 2.6002) (MAKE-PT 7.304799999999999 -7.6757 2.5577) (MAKE-PT 6.063499999999999 -6.509200000000001 1.3456) (MAKE-PT 6.4697 -5.154699999999999 1.4629) (MAKE-PT 7.2354 -5.0043 0.7018) (MAKE-PT 7.0856 -4.961 2.8521) (MAKE-PT 6.7777 -3.9935 3.2487) (MAKE-PT 8.462700000000002 -5.1992 2.7423) (MAKE-PT 8.869300000000001 -4.863799999999999 1.9399) (MAKE-PT 6.3877 -6.0809 3.6362) (MAKE-PT 5.377 -5.756200000000001 3.8834) (MAKE-PT 7.102399999999999 -6.4754 4.7985) (MAKE-PT 5.276400000000001 -4.2883 1.2538) (MAKE-PT 3.8961 -3.0896 -0.1893) (MAKE-PT 5.0095 -3.8907 -0.03460000000000001) (MAKE-PT 3.048 -2.6632 0.8116000000000001) (MAKE-PT 3.4093 -3.131 2.1292) (MAKE-PT 4.4878 -3.912399999999999 2.3088) (MAKE-PT 2.0216 -1.8941 0.4804) (MAKE-PT 5.7005 -4.2164 -0.9842) (MAKE-PT 1.4067 -1.5873 1.2205) (MAKE-PT 1.8721 -1.6319 -0.4835) (MAKE-PT 2.8048 -2.8507 2.9918) (MAKE-PT 4.7491 -4.259300000000001 3.3085)) The following expression, nucleic2-stalin.sc:1467:54780, allocates on the heap: (MAKE-PT 4.7491 -4.259300000000001 3.3085) The following expression, nucleic2-stalin.sc:1466:54737, allocates on the heap: (MAKE-PT 2.8048 -2.8507 2.9918) The following expression, nucleic2-stalin.sc:1465:54693, allocates on the heap: (MAKE-PT 1.8721 -1.6319 -0.4835) The following expression, nucleic2-stalin.sc:1464:54649, allocates on the heap: (MAKE-PT 1.4067 -1.5873 1.2205) The following expression, nucleic2-stalin.sc:1463:54606, allocates on the heap: (MAKE-PT 5.7005 -4.2164 -0.9842) The following expression, nucleic2-stalin.sc:1462:54563, allocates on the heap: (MAKE-PT 2.0216 -1.8941 0.4804) The following expression, nucleic2-stalin.sc:1461:54520, allocates on the heap: (MAKE-PT 4.4878 -3.912399999999999 2.3088) The following expression, nucleic2-stalin.sc:1460:54477, allocates on the heap: (MAKE-PT 3.4093 -3.131 2.1292) The following expression, nucleic2-stalin.sc:1459:54434, allocates on the heap: (MAKE-PT 3.048 -2.6632 0.8116000000000001) The following expression, nucleic2-stalin.sc:1458:54391, allocates on the heap: (MAKE-PT 5.0095 -3.8907 -0.03460000000000001) The following expression, nucleic2-stalin.sc:1457:54348, allocates on the heap: (MAKE-PT 3.8961 -3.0896 -0.1893) The following expression, nucleic2-stalin.sc:1456:54305, allocates on the heap: (MAKE-PT 5.276400000000001 -4.2883 1.2538) The following expression, nucleic2-stalin.sc:1455:54261, allocates on the heap: (MAKE-PT 7.102399999999999 -6.4754 4.7985) The following expression, nucleic2-stalin.sc:1454:54217, allocates on the heap: (MAKE-PT 5.377 -5.756200000000001 3.8834) The following expression, nucleic2-stalin.sc:1453:54173, allocates on the heap: (MAKE-PT 6.3877 -6.0809 3.6362) The following expression, nucleic2-stalin.sc:1452:54129, allocates on the heap: (MAKE-PT 8.869300000000001 -4.863799999999999 1.9399) The following expression, nucleic2-stalin.sc:1451:54085, allocates on the heap: (MAKE-PT 8.462700000000002 -5.1992 2.7423) The following expression, nucleic2-stalin.sc:1450:54040, allocates on the heap: (MAKE-PT 6.7777 -3.9935 3.2487) The following expression, nucleic2-stalin.sc:1449:53996, allocates on the heap: (MAKE-PT 7.0856 -4.961 2.8521) The following expression, nucleic2-stalin.sc:1448:53952, allocates on the heap: (MAKE-PT 7.2354 -5.0043 0.7018) The following expression, nucleic2-stalin.sc:1447:53908, allocates on the heap: (MAKE-PT 6.4697 -5.154699999999999 1.4629) The following expression, nucleic2-stalin.sc:1446:53864, allocates on the heap: (MAKE-PT 6.063499999999999 -6.509200000000001 1.3456) The following expression, nucleic2-stalin.sc:1445:53820, allocates on the heap: (MAKE-PT 7.304799999999999 -7.6757 2.5577) The following expression, nucleic2-stalin.sc:1444:53776, allocates on the heap: (MAKE-PT 6.3232 -7.2037 2.6002) The following expression, nucleic2-stalin.sc:1443:53731, allocates on the heap: (MAKE-PT 5.5368 -8.7738 3.7227) The following expression, nucleic2-stalin.sc:1442:53687, allocates on the heap: (MAKE-PT 5.205 -8.812800000000001 1.8901) The following expression, nucleic2-stalin.sc:1441:53643, allocates on the heap: (MAKE-PT 5.241600000000001 -8.242199999999999 2.8181) The following expression, nucleic2-stalin.sc:1440:53599, allocates on the heap: (MAKE-PT 3.973 -7.595 3.034) The following expression, nucleic2-stalin.sc:1439:53555, allocates on the heap: (MAKE-PT 2.949 -9.464 4.374) The following expression, nucleic2-stalin.sc:1438:53511, allocates on the heap: (MAKE-PT 1.495 -7.622999999999999 3.477) The following expression, nucleic2-stalin.sc:1437:53469, allocates on the heap: (MAKE-PT 2.676 -8.496 3.288) The following expression, nucleic2-stalin.sc:1433:53325, allocates on the heap: (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) The following expression, nucleic2-stalin.sc:1429:53179, allocates on the heap: (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) The following expression, nucleic2-stalin.sc:1425:53034, allocates on the heap: (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) The following expression, nucleic2-stalin.sc:1421:52887, allocates on the heap: (MAKE-TFO -0.5669000000000001 -0.8012 0.1918 -0.8129000000000001 0.5817 0.0273 -0.1334 -0.1404 -0.9811 -0.3279 8.387400000000001 0.3355) The following expression, nucleic2-stalin.sc:1369:50914, allocates on the heap: (MAKE-RC (MAKE-TFO -0.4993 0.0476 0.8651000000000001 0.8078000000000001 -0.3353 0.4847 0.3132 0.9409000000000001 0.129 6.2989 -5.230300000000001 -3.8577) (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) (MAKE-PT 2.676 -8.496 3.288) (MAKE-PT 1.495 -7.622999999999999 3.477) (MAKE-PT 2.949 -9.464 4.374) (MAKE-PT 3.973 -7.595 3.034) (MAKE-PT 3.9938 -6.7042 1.9023) (MAKE-PT 3.2332 -5.9343 2.0319) (MAKE-PT 3.9666 -7.286300000000001 0.9812) (MAKE-PT 5.3098 -5.9546 1.8564) (MAKE-PT 5.3863 -5.370200000000001 0.9395) (MAKE-PT 5.3851 -5.0642 3.0076) (MAKE-PT 6.7315 -4.9724 3.4462) (MAKE-PT 7.0033 -3.9202 3.3619) (MAKE-PT 7.5997 -5.8018 2.4948) (MAKE-PT 8.362700000000002 -6.325399999999999 3.0707) (MAKE-PT 8.040999999999999 -4.9501 1.4724) (MAKE-PT 8.278099999999998 -4.064399999999999 1.757) (MAKE-PT 6.5701 -6.812899999999999 1.9714) (MAKE-PT 6.418600000000001 -7.5809 2.7299) (MAKE-PT 6.935700000000001 -7.384099999999999 0.7234999999999999) (MAKE-PT 6.8024 -5.471800000000001 4.847499999999999) (MAKE-PT 7.9218 -5.57 6.8877) (MAKE-PT 7.8908 -5.0886 5.594399999999999) (MAKE-PT 6.9789 -6.3827 7.4823) (MAKE-PT 5.8742 -6.7319 6.6202) (MAKE-PT 5.8182 -6.2769 5.356999999999999) (MAKE-PT 7.1702 -6.7511 8.740199999999998) (MAKE-PT 8.774699999999999 -4.3728 5.1568) (MAKE-PT 6.4741 -7.3461 9.1662) (MAKE-PT 7.9889 -6.439600000000001 9.242899999999999) (MAKE-PT 5.073600000000001 -7.371300000000001 6.9922) (MAKE-PT 4.978400000000001 -6.5473 4.717)) The following expression, nucleic2-stalin.sc:1416:52815, allocates on the heap: (MAKE-PT 4.978400000000001 -6.5473 4.717) The following expression, nucleic2-stalin.sc:1415:52772, allocates on the heap: (MAKE-PT 5.073600000000001 -7.371300000000001 6.9922) The following expression, nucleic2-stalin.sc:1414:52728, allocates on the heap: (MAKE-PT 7.9889 -6.439600000000001 9.242899999999999) The following expression, nucleic2-stalin.sc:1413:52684, allocates on the heap: (MAKE-PT 6.4741 -7.3461 9.1662) The following expression, nucleic2-stalin.sc:1412:52641, allocates on the heap: (MAKE-PT 8.774699999999999 -4.3728 5.1568) The following expression, nucleic2-stalin.sc:1411:52598, allocates on the heap: (MAKE-PT 7.1702 -6.7511 8.740199999999998) The following expression, nucleic2-stalin.sc:1410:52555, allocates on the heap: (MAKE-PT 5.8182 -6.2769 5.356999999999999) The following expression, nucleic2-stalin.sc:1409:52512, allocates on the heap: (MAKE-PT 5.8742 -6.7319 6.6202) The following expression, nucleic2-stalin.sc:1408:52469, allocates on the heap: (MAKE-PT 6.9789 -6.3827 7.4823) The following expression, nucleic2-stalin.sc:1407:52426, allocates on the heap: (MAKE-PT 7.8908 -5.0886 5.594399999999999) The following expression, nucleic2-stalin.sc:1406:52383, allocates on the heap: (MAKE-PT 7.9218 -5.57 6.8877) The following expression, nucleic2-stalin.sc:1405:52340, allocates on the heap: (MAKE-PT 6.8024 -5.471800000000001 4.847499999999999) The following expression, nucleic2-stalin.sc:1404:52296, allocates on the heap: (MAKE-PT 6.935700000000001 -7.384099999999999 0.7234999999999999) The following expression, nucleic2-stalin.sc:1403:52252, allocates on the heap: (MAKE-PT 6.418600000000001 -7.5809 2.7299) The following expression, nucleic2-stalin.sc:1402:52208, allocates on the heap: (MAKE-PT 6.5701 -6.812899999999999 1.9714) The following expression, nucleic2-stalin.sc:1401:52164, allocates on the heap: (MAKE-PT 8.278099999999998 -4.064399999999999 1.757) The following expression, nucleic2-stalin.sc:1400:52120, allocates on the heap: (MAKE-PT 8.040999999999999 -4.9501 1.4724) The following expression, nucleic2-stalin.sc:1399:52075, allocates on the heap: (MAKE-PT 8.362700000000002 -6.325399999999999 3.0707) The following expression, nucleic2-stalin.sc:1398:52031, allocates on the heap: (MAKE-PT 7.5997 -5.8018 2.4948) The following expression, nucleic2-stalin.sc:1397:51987, allocates on the heap: (MAKE-PT 7.0033 -3.9202 3.3619) The following expression, nucleic2-stalin.sc:1396:51943, allocates on the heap: (MAKE-PT 6.7315 -4.9724 3.4462) The following expression, nucleic2-stalin.sc:1395:51899, allocates on the heap: (MAKE-PT 5.3851 -5.0642 3.0076) The following expression, nucleic2-stalin.sc:1394:51855, allocates on the heap: (MAKE-PT 5.3863 -5.370200000000001 0.9395) The following expression, nucleic2-stalin.sc:1393:51811, allocates on the heap: (MAKE-PT 5.3098 -5.9546 1.8564) The following expression, nucleic2-stalin.sc:1392:51766, allocates on the heap: (MAKE-PT 3.9666 -7.286300000000001 0.9812) The following expression, nucleic2-stalin.sc:1391:51722, allocates on the heap: (MAKE-PT 3.2332 -5.9343 2.0319) The following expression, nucleic2-stalin.sc:1390:51678, allocates on the heap: (MAKE-PT 3.9938 -6.7042 1.9023) The following expression, nucleic2-stalin.sc:1389:51634, allocates on the heap: (MAKE-PT 3.973 -7.595 3.034) The following expression, nucleic2-stalin.sc:1388:51590, allocates on the heap: (MAKE-PT 2.949 -9.464 4.374) The following expression, nucleic2-stalin.sc:1387:51546, allocates on the heap: (MAKE-PT 1.495 -7.622999999999999 3.477) The following expression, nucleic2-stalin.sc:1386:51504, allocates on the heap: (MAKE-PT 2.676 -8.496 3.288) The following expression, nucleic2-stalin.sc:1382:51360, allocates on the heap: (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) The following expression, nucleic2-stalin.sc:1378:51214, allocates on the heap: (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) The following expression, nucleic2-stalin.sc:1374:51069, allocates on the heap: (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) The following expression, nucleic2-stalin.sc:1370:50925, allocates on the heap: (MAKE-TFO -0.4993 0.0476 0.8651000000000001 0.8078000000000001 -0.3353 0.4847 0.3132 0.9409000000000001 0.129 6.2989 -5.230300000000001 -3.8577) The following expression, nucleic2-stalin.sc:1318:48951, allocates on the heap: (MAKE-RC (MAKE-TFO 0.5141 0.0246 0.8574000000000001 -0.5547000000000001 -0.7529 0.3542 0.6542 -0.6577000000000001 -0.3734 -9.111099999999999 -3.4598 -3.2939) (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) (MAKE-PT 2.676 -8.496 3.288) (MAKE-PT 1.495 -7.622999999999999 3.477) (MAKE-PT 2.949 -9.464 4.374) (MAKE-PT 3.973 -7.595 3.034) (MAKE-PT 4.382499999999999 -6.658499999999999 4.0489) (MAKE-PT 4.684099999999999 -7.2019 4.9443) (MAKE-PT 3.6189 -5.8889 4.162499999999999) (MAKE-PT 5.625499999999999 -5.9175 3.5998) (MAKE-PT 5.873200000000001 -5.122799999999999 4.3034) (MAKE-PT 6.733700000000001 -6.860499999999999 3.5222) (MAKE-PT 7.5932 -6.4923 2.4548) (MAKE-PT 8.5661 -6.2983 2.9064) (MAKE-PT 7.0527 -5.201200000000001 1.8322) (MAKE-PT 7.162699999999999 -5.2525 0.749) (MAKE-PT 7.6666 -4.124899999999998 2.488) (MAKE-PT 8.5944 -4.2543 2.6981) (MAKE-PT 5.5661 -5.302899999999999 2.2009) (MAKE-PT 5.084099999999999 -6.0018 1.5172) (MAKE-PT 4.906200000000001 -4.0452 2.2042) (MAKE-PT 7.629799999999999 -7.6136 1.4752) (MAKE-PT 8.6945 -8.704599999999999 -0.2857) (MAKE-PT 8.694299999999998 -7.6514 0.6066) (MAKE-PT 7.7426 -9.698699999999999 -0.3801) (MAKE-PT 6.664199999999999 -9.574199999999999 0.5722) (MAKE-PT 6.6391 -8.559200000000001 1.4526) (MAKE-PT 7.903300000000001 -10.6371 -1.301) (MAKE-PT 9.584 -6.8186 0.6136) (MAKE-PT 7.2009 -11.3604 -1.3619) (MAKE-PT 8.7058 -10.6168 -1.914) (MAKE-PT 5.858499999999999 -10.3083 0.5821999999999999) (MAKE-PT 5.8197 -8.4773 2.1667)) The following expression, nucleic2-stalin.sc:1365:50853, allocates on the heap: (MAKE-PT 5.8197 -8.4773 2.1667) The following expression, nucleic2-stalin.sc:1364:50810, allocates on the heap: (MAKE-PT 5.858499999999999 -10.3083 0.5821999999999999) The following expression, nucleic2-stalin.sc:1363:50766, allocates on the heap: (MAKE-PT 8.7058 -10.6168 -1.914) The following expression, nucleic2-stalin.sc:1362:50722, allocates on the heap: (MAKE-PT 7.2009 -11.3604 -1.3619) The following expression, nucleic2-stalin.sc:1361:50679, allocates on the heap: (MAKE-PT 9.584 -6.8186 0.6136) The following expression, nucleic2-stalin.sc:1360:50636, allocates on the heap: (MAKE-PT 7.903300000000001 -10.6371 -1.301) The following expression, nucleic2-stalin.sc:1359:50593, allocates on the heap: (MAKE-PT 6.6391 -8.559200000000001 1.4526) The following expression, nucleic2-stalin.sc:1358:50550, allocates on the heap: (MAKE-PT 6.664199999999999 -9.574199999999999 0.5722) The following expression, nucleic2-stalin.sc:1357:50507, allocates on the heap: (MAKE-PT 7.7426 -9.698699999999999 -0.3801) The following expression, nucleic2-stalin.sc:1356:50464, allocates on the heap: (MAKE-PT 8.694299999999998 -7.6514 0.6066) The following expression, nucleic2-stalin.sc:1355:50421, allocates on the heap: (MAKE-PT 8.6945 -8.704599999999999 -0.2857) The following expression, nucleic2-stalin.sc:1354:50378, allocates on the heap: (MAKE-PT 7.629799999999999 -7.6136 1.4752) The following expression, nucleic2-stalin.sc:1353:50334, allocates on the heap: (MAKE-PT 4.906200000000001 -4.0452 2.2042) The following expression, nucleic2-stalin.sc:1352:50290, allocates on the heap: (MAKE-PT 5.084099999999999 -6.0018 1.5172) The following expression, nucleic2-stalin.sc:1351:50246, allocates on the heap: (MAKE-PT 5.5661 -5.302899999999999 2.2009) The following expression, nucleic2-stalin.sc:1350:50202, allocates on the heap: (MAKE-PT 8.5944 -4.2543 2.6981) The following expression, nucleic2-stalin.sc:1349:50158, allocates on the heap: (MAKE-PT 7.6666 -4.124899999999998 2.488) The following expression, nucleic2-stalin.sc:1348:50113, allocates on the heap: (MAKE-PT 7.162699999999999 -5.2525 0.749) The following expression, nucleic2-stalin.sc:1347:50069, allocates on the heap: (MAKE-PT 7.0527 -5.201200000000001 1.8322) The following expression, nucleic2-stalin.sc:1346:50025, allocates on the heap: (MAKE-PT 8.5661 -6.2983 2.9064) The following expression, nucleic2-stalin.sc:1345:49981, allocates on the heap: (MAKE-PT 7.5932 -6.4923 2.4548) The following expression, nucleic2-stalin.sc:1344:49937, allocates on the heap: (MAKE-PT 6.733700000000001 -6.860499999999999 3.5222) The following expression, nucleic2-stalin.sc:1343:49893, allocates on the heap: (MAKE-PT 5.873200000000001 -5.122799999999999 4.3034) The following expression, nucleic2-stalin.sc:1342:49849, allocates on the heap: (MAKE-PT 5.625499999999999 -5.9175 3.5998) The following expression, nucleic2-stalin.sc:1341:49804, allocates on the heap: (MAKE-PT 3.6189 -5.8889 4.162499999999999) The following expression, nucleic2-stalin.sc:1340:49760, allocates on the heap: (MAKE-PT 4.684099999999999 -7.2019 4.9443) The following expression, nucleic2-stalin.sc:1339:49716, allocates on the heap: (MAKE-PT 4.382499999999999 -6.658499999999999 4.0489) The following expression, nucleic2-stalin.sc:1338:49672, allocates on the heap: (MAKE-PT 3.973 -7.595 3.034) The following expression, nucleic2-stalin.sc:1337:49628, allocates on the heap: (MAKE-PT 2.949 -9.464 4.374) The following expression, nucleic2-stalin.sc:1336:49584, allocates on the heap: (MAKE-PT 1.495 -7.622999999999999 3.477) The following expression, nucleic2-stalin.sc:1335:49542, allocates on the heap: (MAKE-PT 2.676 -8.496 3.288) The following expression, nucleic2-stalin.sc:1331:49398, allocates on the heap: (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) The following expression, nucleic2-stalin.sc:1327:49252, allocates on the heap: (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) The following expression, nucleic2-stalin.sc:1323:49107, allocates on the heap: (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) The following expression, nucleic2-stalin.sc:1319:48962, allocates on the heap: (MAKE-TFO 0.5141 0.0246 0.8574000000000001 -0.5547000000000001 -0.7529 0.3542 0.6542 -0.6577000000000001 -0.3734 -9.111099999999999 -3.4598 -3.2939) The following expression, nucleic2-stalin.sc:1267:46987, allocates on the heap: (MAKE-RC (MAKE-TFO -0.0137 -0.8012 0.5982999999999999 -0.2523 0.5817 0.7733 -0.9674999999999999 -0.1404 -0.2101 0.2031 8.387400000000001 0.4228000000000001) (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) (MAKE-PT 2.676 -8.496 3.288) (MAKE-PT 1.495 -7.622999999999999 3.477) (MAKE-PT 2.949 -9.464 4.374) (MAKE-PT 3.973 -7.595 3.034) (MAKE-PT 5.241600000000001 -8.242199999999999 2.8181) (MAKE-PT 5.205 -8.812800000000001 1.8901) (MAKE-PT 5.5368 -8.7738 3.7227) (MAKE-PT 6.3232 -7.2037 2.6002) (MAKE-PT 7.304799999999999 -7.6757 2.5577) (MAKE-PT 6.063499999999999 -6.509200000000001 1.3456) (MAKE-PT 6.4697 -5.154699999999999 1.4629) (MAKE-PT 7.2354 -5.0043 0.7018) (MAKE-PT 7.0856 -4.961 2.8521) (MAKE-PT 6.7777 -3.9935 3.2487) (MAKE-PT 8.462700000000002 -5.1992 2.7423) (MAKE-PT 8.869300000000001 -4.863799999999999 1.9399) (MAKE-PT 6.3877 -6.0809 3.6362) (MAKE-PT 5.377 -5.756200000000001 3.8834) (MAKE-PT 7.102399999999999 -6.4754 4.7985) (MAKE-PT 5.276400000000001 -4.2883 1.2538) (MAKE-PT 4.3777 -2.2062 0.7229) (MAKE-PT 5.5069 -2.9779 0.9088000000000001) (MAKE-PT 3.0693 -2.6246 0.8500000000000001) (MAKE-PT 2.9279 -4.0146 1.2149) (MAKE-PT 4.0101 -4.789200000000001 1.4017) (MAKE-PT 2.104 -1.7437 0.6331) (MAKE-PT 6.6267 -2.5166 0.7728) (MAKE-PT 1.1496 -2.06 0.7287) (MAKE-PT 2.3303 -0.7920999999999999 0.3815) (MAKE-PT 1.9353 -4.4465 1.3419) (MAKE-PT 3.8895 -5.8371 1.6762)) The following expression, nucleic2-stalin.sc:1314:48890, allocates on the heap: (MAKE-PT 3.8895 -5.8371 1.6762) The following expression, nucleic2-stalin.sc:1313:48847, allocates on the heap: (MAKE-PT 1.9353 -4.4465 1.3419) The following expression, nucleic2-stalin.sc:1312:48803, allocates on the heap: (MAKE-PT 2.3303 -0.7920999999999999 0.3815) The following expression, nucleic2-stalin.sc:1311:48759, allocates on the heap: (MAKE-PT 1.1496 -2.06 0.7287) The following expression, nucleic2-stalin.sc:1310:48716, allocates on the heap: (MAKE-PT 6.6267 -2.5166 0.7728) The following expression, nucleic2-stalin.sc:1309:48673, allocates on the heap: (MAKE-PT 2.104 -1.7437 0.6331) The following expression, nucleic2-stalin.sc:1308:48630, allocates on the heap: (MAKE-PT 4.0101 -4.789200000000001 1.4017) The following expression, nucleic2-stalin.sc:1307:48587, allocates on the heap: (MAKE-PT 2.9279 -4.0146 1.2149) The following expression, nucleic2-stalin.sc:1306:48544, allocates on the heap: (MAKE-PT 3.0693 -2.6246 0.8500000000000001) The following expression, nucleic2-stalin.sc:1305:48501, allocates on the heap: (MAKE-PT 5.5069 -2.9779 0.9088000000000001) The following expression, nucleic2-stalin.sc:1304:48458, allocates on the heap: (MAKE-PT 4.3777 -2.2062 0.7229) The following expression, nucleic2-stalin.sc:1303:48415, allocates on the heap: (MAKE-PT 5.276400000000001 -4.2883 1.2538) The following expression, nucleic2-stalin.sc:1302:48371, allocates on the heap: (MAKE-PT 7.102399999999999 -6.4754 4.7985) The following expression, nucleic2-stalin.sc:1301:48327, allocates on the heap: (MAKE-PT 5.377 -5.756200000000001 3.8834) The following expression, nucleic2-stalin.sc:1300:48283, allocates on the heap: (MAKE-PT 6.3877 -6.0809 3.6362) The following expression, nucleic2-stalin.sc:1299:48239, allocates on the heap: (MAKE-PT 8.869300000000001 -4.863799999999999 1.9399) The following expression, nucleic2-stalin.sc:1298:48195, allocates on the heap: (MAKE-PT 8.462700000000002 -5.1992 2.7423) The following expression, nucleic2-stalin.sc:1297:48150, allocates on the heap: (MAKE-PT 6.7777 -3.9935 3.2487) The following expression, nucleic2-stalin.sc:1296:48106, allocates on the heap: (MAKE-PT 7.0856 -4.961 2.8521) The following expression, nucleic2-stalin.sc:1295:48062, allocates on the heap: (MAKE-PT 7.2354 -5.0043 0.7018) The following expression, nucleic2-stalin.sc:1294:48018, allocates on the heap: (MAKE-PT 6.4697 -5.154699999999999 1.4629) The following expression, nucleic2-stalin.sc:1293:47974, allocates on the heap: (MAKE-PT 6.063499999999999 -6.509200000000001 1.3456) The following expression, nucleic2-stalin.sc:1292:47930, allocates on the heap: (MAKE-PT 7.304799999999999 -7.6757 2.5577) The following expression, nucleic2-stalin.sc:1291:47886, allocates on the heap: (MAKE-PT 6.3232 -7.2037 2.6002) The following expression, nucleic2-stalin.sc:1290:47841, allocates on the heap: (MAKE-PT 5.5368 -8.7738 3.7227) The following expression, nucleic2-stalin.sc:1289:47797, allocates on the heap: (MAKE-PT 5.205 -8.812800000000001 1.8901) The following expression, nucleic2-stalin.sc:1288:47753, allocates on the heap: (MAKE-PT 5.241600000000001 -8.242199999999999 2.8181) The following expression, nucleic2-stalin.sc:1287:47709, allocates on the heap: (MAKE-PT 3.973 -7.595 3.034) The following expression, nucleic2-stalin.sc:1286:47665, allocates on the heap: (MAKE-PT 2.949 -9.464 4.374) The following expression, nucleic2-stalin.sc:1285:47621, allocates on the heap: (MAKE-PT 1.495 -7.622999999999999 3.477) The following expression, nucleic2-stalin.sc:1284:47579, allocates on the heap: (MAKE-PT 2.676 -8.496 3.288) The following expression, nucleic2-stalin.sc:1280:47435, allocates on the heap: (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) The following expression, nucleic2-stalin.sc:1276:47289, allocates on the heap: (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) The following expression, nucleic2-stalin.sc:1272:47144, allocates on the heap: (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) The following expression, nucleic2-stalin.sc:1268:46998, allocates on the heap: (MAKE-TFO -0.0137 -0.8012 0.5982999999999999 -0.2523 0.5817 0.7733 -0.9674999999999999 -0.1404 -0.2101 0.2031 8.387400000000001 0.4228000000000001) The following expression, nucleic2-stalin.sc:1216:45023, allocates on the heap: (MAKE-RC (MAKE-TFO -0.03589999999999999 -0.8071 0.5893999999999999 -0.2669 0.5761000000000001 0.7726000000000001 -0.9631 -0.1296 -0.2361 0.1584 8.343400000000001 0.5434) (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) (MAKE-PT 2.676 -8.496 3.288) (MAKE-PT 1.495 -7.622999999999999 3.477) (MAKE-PT 2.949 -9.464 4.374) (MAKE-PT 3.973 -7.595 3.034) (MAKE-PT 5.243 -8.241999999999999 2.826) (MAKE-PT 5.197399999999999 -8.8497 1.9223) (MAKE-PT 5.554799999999999 -8.734799999999998 3.7469) (MAKE-PT 6.313999999999999 -7.206 2.551) (MAKE-PT 7.2954 -7.676200000000001 2.4898) (MAKE-PT 6.013999999999999 -6.542 1.289) (MAKE-PT 6.419 -5.183999999999999 1.362) (MAKE-PT 7.160799999999999 -5.0495 0.5747000000000001) (MAKE-PT 7.076000000000001 -4.956 2.727) (MAKE-PT 6.777 -3.9803 3.1099) (MAKE-PT 8.450000000000001 -5.193 2.581) (MAKE-PT 8.8309 -4.8755 1.759) (MAKE-PT 6.406000000000001 -6.059 3.558) (MAKE-PT 5.4021 -5.731300000000001 3.8281) (MAKE-PT 7.156999999999999 -6.423999999999999 4.707) (MAKE-PT 5.217 -4.326 1.169) (MAKE-PT 4.296 -2.256 0.629) (MAKE-PT 5.433000000000001 -3.02 0.7989999999999999) (MAKE-PT 2.993 -2.678 0.7939999999999999) (MAKE-PT 2.867 -4.063 1.183) (MAKE-PT 3.957 -4.83 1.355) (MAKE-PT 2.0187 -1.8047 0.5873999999999999) (MAKE-PT 6.547 -2.556 0.629) (MAKE-PT 1.0684 -2.1236 0.7109) (MAKE-PT 2.2344 -0.8560000000000001 0.3162) (MAKE-PT 1.8797 -4.4972 1.3404) (MAKE-PT 3.8479 -5.8742 1.648)) The following expression, nucleic2-stalin.sc:1263:46926, allocates on the heap: (MAKE-PT 3.8479 -5.8742 1.648) The following expression, nucleic2-stalin.sc:1262:46883, allocates on the heap: (MAKE-PT 1.8797 -4.4972 1.3404) The following expression, nucleic2-stalin.sc:1261:46839, allocates on the heap: (MAKE-PT 2.2344 -0.8560000000000001 0.3162) The following expression, nucleic2-stalin.sc:1260:46795, allocates on the heap: (MAKE-PT 1.0684 -2.1236 0.7109) The following expression, nucleic2-stalin.sc:1259:46752, allocates on the heap: (MAKE-PT 6.547 -2.556 0.629) The following expression, nucleic2-stalin.sc:1258:46709, allocates on the heap: (MAKE-PT 2.0187 -1.8047 0.5873999999999999) The following expression, nucleic2-stalin.sc:1257:46666, allocates on the heap: (MAKE-PT 3.957 -4.83 1.355) The following expression, nucleic2-stalin.sc:1256:46623, allocates on the heap: (MAKE-PT 2.867 -4.063 1.183) The following expression, nucleic2-stalin.sc:1255:46580, allocates on the heap: (MAKE-PT 2.993 -2.678 0.7939999999999999) The following expression, nucleic2-stalin.sc:1254:46537, allocates on the heap: (MAKE-PT 5.433000000000001 -3.02 0.7989999999999999) The following expression, nucleic2-stalin.sc:1253:46494, allocates on the heap: (MAKE-PT 4.296 -2.256 0.629) The following expression, nucleic2-stalin.sc:1252:46451, allocates on the heap: (MAKE-PT 5.217 -4.326 1.169) The following expression, nucleic2-stalin.sc:1251:46407, allocates on the heap: (MAKE-PT 7.156999999999999 -6.423999999999999 4.707) The following expression, nucleic2-stalin.sc:1250:46363, allocates on the heap: (MAKE-PT 5.4021 -5.731300000000001 3.8281) The following expression, nucleic2-stalin.sc:1249:46319, allocates on the heap: (MAKE-PT 6.406000000000001 -6.059 3.558) The following expression, nucleic2-stalin.sc:1248:46275, allocates on the heap: (MAKE-PT 8.8309 -4.8755 1.759) The following expression, nucleic2-stalin.sc:1247:46231, allocates on the heap: (MAKE-PT 8.450000000000001 -5.193 2.581) The following expression, nucleic2-stalin.sc:1246:46186, allocates on the heap: (MAKE-PT 6.777 -3.9803 3.1099) The following expression, nucleic2-stalin.sc:1245:46142, allocates on the heap: (MAKE-PT 7.076000000000001 -4.956 2.727) The following expression, nucleic2-stalin.sc:1244:46098, allocates on the heap: (MAKE-PT 7.160799999999999 -5.0495 0.5747000000000001) The following expression, nucleic2-stalin.sc:1243:46054, allocates on the heap: (MAKE-PT 6.419 -5.183999999999999 1.362) The following expression, nucleic2-stalin.sc:1242:46010, allocates on the heap: (MAKE-PT 6.013999999999999 -6.542 1.289) The following expression, nucleic2-stalin.sc:1241:45966, allocates on the heap: (MAKE-PT 7.2954 -7.676200000000001 2.4898) The following expression, nucleic2-stalin.sc:1240:45922, allocates on the heap: (MAKE-PT 6.313999999999999 -7.206 2.551) The following expression, nucleic2-stalin.sc:1239:45877, allocates on the heap: (MAKE-PT 5.554799999999999 -8.734799999999998 3.7469) The following expression, nucleic2-stalin.sc:1238:45833, allocates on the heap: (MAKE-PT 5.197399999999999 -8.8497 1.9223) The following expression, nucleic2-stalin.sc:1237:45789, allocates on the heap: (MAKE-PT 5.243 -8.241999999999999 2.826) The following expression, nucleic2-stalin.sc:1236:45745, allocates on the heap: (MAKE-PT 3.973 -7.595 3.034) The following expression, nucleic2-stalin.sc:1235:45701, allocates on the heap: (MAKE-PT 2.949 -9.464 4.374) The following expression, nucleic2-stalin.sc:1234:45657, allocates on the heap: (MAKE-PT 1.495 -7.622999999999999 3.477) The following expression, nucleic2-stalin.sc:1233:45615, allocates on the heap: (MAKE-PT 2.676 -8.496 3.288) The following expression, nucleic2-stalin.sc:1229:45471, allocates on the heap: (MAKE-TFO 0.5854999999999999 0.7930999999999999 -0.1682 0.8103 -0.5790000000000001 0.0906 -0.0255 -0.1894 -0.9816 6.120299999999999 -7.105099999999999 3.1984) The following expression, nucleic2-stalin.sc:1225:45325, allocates on the heap: (MAKE-TFO 0.3445 -0.763 0.547 -0.4628 -0.645 -0.6082 0.8168000000000001 -0.04360000000000001 -0.5753 -6.817899999999999 -3.9778 -5.988700000000001) The following expression, nucleic2-stalin.sc:1221:45180, allocates on the heap: (MAKE-TFO -0.8313 -0.4738000000000001 -0.2906 0.0649 0.4366 -0.8973 0.5521 -0.7648 -0.3321999999999999 1.6833 6.806 -7.0011) The following expression, nucleic2-stalin.sc:1217:45034, allocates on the heap: (MAKE-TFO -0.03589999999999999 -0.8071 0.5893999999999999 -0.2669 0.5761000000000001 0.7726000000000001 -0.9631 -0.1296 -0.2361 0.1584 8.343400000000001 0.5434) The following expression, nucleic2-stalin.sc:1213:44952, allocates on the heap: (LIST RA01 RA02 RA03 RA04 RA05 RA06 RA07 RA08 RA09 RA10) The following expression, nucleic2-stalin.sc:1160:42901, allocates on the heap: (MAKE-RA (MAKE-TFO 0.7062999999999999 0.6317 -0.3196 -0.0403 -0.4149 -0.909 -0.7068 0.6549 -0.2676 6.440200000000001 -52.1496 30.8246) (MAKE-TFO 0.7529 0.1548 0.6397 0.2952 -0.9481000000000001 -0.118 0.5881999999999999 0.2777 -0.7595 -58.8919 -11.3095 6.086600000000001) (MAKE-TFO -0.0239 0.9667 -0.2546 0.9731 -0.03589999999999999 -0.2275 -0.229 -0.2532 -0.9399000000000001 3.5401 -29.7913 52.2796) (MAKE-TFO -0.8912 -0.4531 0.0242 -0.1183 0.1805 -0.9763999999999999 0.4380000000000001 -0.8730000000000001 -0.2145 19.9023 54.8054 15.2799) (MAKE-PT 41.821 8.388 43.589) (MAKE-PT 42.54 8.045 44.833) (MAKE-PT 42.247 9.692 42.991) (MAKE-PT 40.255 8.202999999999999 43.734) (MAKE-PT 39.485 8.930099999999999 44.6977) (MAKE-PT 39.0638 9.819900000000001 44.2296) (MAKE-PT 40.0757 9.071299999999999 45.60290000000001) (MAKE-PT 38.31019999999999 8.041399999999999 45.0789) (MAKE-PT 37.7099 7.8166 44.19730000000001) (MAKE-PT 38.80119999999999 6.8321 45.63800000000001) (MAKE-PT 38.24310000000001 6.6413 46.9529) (MAKE-PT 37.3505 6.0262 46.8385) (MAKE-PT 37.8484 8.015600000000001 47.4214) (MAKE-PT 38.73810000000001 8.5406 47.76900000000001) (MAKE-PT 36.8286 8.036799999999999 48.3701) (MAKE-PT 36.8392 7.3063 48.99290000000001) (MAKE-PT 37.35759999999999 8.651199999999999 46.1132) (MAKE-PT 37.52070000000001 9.727499999999999 46.1671) (MAKE-PT 35.99850000000001 8.239199999999999 45.9032) (MAKE-PT 39.9117 2.2278 48.8527) (MAKE-PT 38.62070000000001 3.6941 47.4757) (MAKE-PT 38.98719999999999 2.4888 47.9057) (MAKE-PT 39.29610000000001 4.672 48.1174) (MAKE-PT 40.2546 4.5307 49.0912) (MAKE-PT 40.5932 3.2189 49.49850000000001) (MAKE-PT 41.4938 2.9317 50.42290000000001) (MAKE-PT 40.7195 5.7755 49.506) (MAKE-PT 39.173 6.0305 47.91699999999999) (MAKE-PT 40.0413 6.624999999999999 48.7728) (MAKE-PT 38.52570000000001 1.596 47.4838) (MAKE-PT 41.9907 3.6753 50.89210000000001) (MAKE-PT 41.6848 1.9687 50.6599) (MAKE-PT 40.3571 7.632099999999999 49.0452)) The following expression, nucleic2-stalin.sc:1209:44892, allocates on the heap: (MAKE-PT 40.3571 7.632099999999999 49.0452) The following expression, nucleic2-stalin.sc:1208:44848, allocates on the heap: (MAKE-PT 41.6848 1.9687 50.6599) The following expression, nucleic2-stalin.sc:1207:44804, allocates on the heap: (MAKE-PT 41.9907 3.6753 50.89210000000001) The following expression, nucleic2-stalin.sc:1206:44761, allocates on the heap: (MAKE-PT 38.52570000000001 1.596 47.4838) The following expression, nucleic2-stalin.sc:1205:44718, allocates on the heap: (MAKE-PT 40.0413 6.624999999999999 48.7728) The following expression, nucleic2-stalin.sc:1204:44675, allocates on the heap: (MAKE-PT 39.173 6.0305 47.91699999999999) The following expression, nucleic2-stalin.sc:1203:44632, allocates on the heap: (MAKE-PT 40.7195 5.7755 49.506) The following expression, nucleic2-stalin.sc:1202:44589, allocates on the heap: (MAKE-PT 41.4938 2.9317 50.42290000000001) The following expression, nucleic2-stalin.sc:1201:44546, allocates on the heap: (MAKE-PT 40.5932 3.2189 49.49850000000001) The following expression, nucleic2-stalin.sc:1200:44503, allocates on the heap: (MAKE-PT 40.2546 4.5307 49.0912) The following expression, nucleic2-stalin.sc:1199:44460, allocates on the heap: (MAKE-PT 39.29610000000001 4.672 48.1174) The following expression, nucleic2-stalin.sc:1198:44417, allocates on the heap: (MAKE-PT 38.98719999999999 2.4888 47.9057) The following expression, nucleic2-stalin.sc:1197:44374, allocates on the heap: (MAKE-PT 38.62070000000001 3.6941 47.4757) The following expression, nucleic2-stalin.sc:1196:44331, allocates on the heap: (MAKE-PT 39.9117 2.2278 48.8527) The following expression, nucleic2-stalin.sc:1195:44287, allocates on the heap: (MAKE-PT 35.99850000000001 8.239199999999999 45.9032) The following expression, nucleic2-stalin.sc:1194:44243, allocates on the heap: (MAKE-PT 37.52070000000001 9.727499999999999 46.1671) The following expression, nucleic2-stalin.sc:1193:44199, allocates on the heap: (MAKE-PT 37.35759999999999 8.651199999999999 46.1132) The following expression, nucleic2-stalin.sc:1192:44155, allocates on the heap: (MAKE-PT 36.8392 7.3063 48.99290000000001) The following expression, nucleic2-stalin.sc:1191:44111, allocates on the heap: (MAKE-PT 36.8286 8.036799999999999 48.3701) The following expression, nucleic2-stalin.sc:1190:44066, allocates on the heap: (MAKE-PT 38.73810000000001 8.5406 47.76900000000001) The following expression, nucleic2-stalin.sc:1189:44022, allocates on the heap: (MAKE-PT 37.8484 8.015600000000001 47.4214) The following expression, nucleic2-stalin.sc:1188:43978, allocates on the heap: (MAKE-PT 37.3505 6.0262 46.8385) The following expression, nucleic2-stalin.sc:1187:43934, allocates on the heap: (MAKE-PT 38.24310000000001 6.6413 46.9529) The following expression, nucleic2-stalin.sc:1186:43890, allocates on the heap: (MAKE-PT 38.80119999999999 6.8321 45.63800000000001) The following expression, nucleic2-stalin.sc:1185:43846, allocates on the heap: (MAKE-PT 37.7099 7.8166 44.19730000000001) The following expression, nucleic2-stalin.sc:1184:43802, allocates on the heap: (MAKE-PT 38.31019999999999 8.041399999999999 45.0789) The following expression, nucleic2-stalin.sc:1183:43757, allocates on the heap: (MAKE-PT 40.0757 9.071299999999999 45.60290000000001) The following expression, nucleic2-stalin.sc:1182:43713, allocates on the heap: (MAKE-PT 39.0638 9.819900000000001 44.2296) The following expression, nucleic2-stalin.sc:1181:43669, allocates on the heap: (MAKE-PT 39.485 8.930099999999999 44.6977) The following expression, nucleic2-stalin.sc:1180:43625, allocates on the heap: (MAKE-PT 40.255 8.202999999999999 43.734) The following expression, nucleic2-stalin.sc:1179:43581, allocates on the heap: (MAKE-PT 42.247 9.692 42.991) The following expression, nucleic2-stalin.sc:1178:43537, allocates on the heap: (MAKE-PT 42.54 8.045 44.833) The following expression, nucleic2-stalin.sc:1177:43495, allocates on the heap: (MAKE-PT 41.821 8.388 43.589) The following expression, nucleic2-stalin.sc:1173:43349, allocates on the heap: (MAKE-TFO -0.8912 -0.4531 0.0242 -0.1183 0.1805 -0.9763999999999999 0.4380000000000001 -0.8730000000000001 -0.2145 19.9023 54.8054 15.2799) The following expression, nucleic2-stalin.sc:1169:43203, allocates on the heap: (MAKE-TFO -0.0239 0.9667 -0.2546 0.9731 -0.03589999999999999 -0.2275 -0.229 -0.2532 -0.9399000000000001 3.5401 -29.7913 52.2796) The following expression, nucleic2-stalin.sc:1165:43057, allocates on the heap: (MAKE-TFO 0.7529 0.1548 0.6397 0.2952 -0.9481000000000001 -0.118 0.5881999999999999 0.2777 -0.7595 -58.8919 -11.3095 6.086600000000001) The following expression, nucleic2-stalin.sc:1161:42912, allocates on the heap: (MAKE-TFO 0.7062999999999999 0.6317 -0.3196 -0.0403 -0.4149 -0.909 -0.7068 0.6549 -0.2676 6.440200000000001 -52.1496 30.8246) The following expression, nucleic2-stalin.sc:1107:40848, allocates on the heap: (MAKE-RA (MAKE-TFO 0.8467000000000001 0.4166 -0.3310999999999999 -0.3962 0.9089 0.1303 0.3552 0.0209 0.9346000000000001 -42.7319 -26.6223 -29.8163) (MAKE-TFO 0.7529 0.1548 0.6397 0.2952 -0.9481000000000001 -0.118 0.5881999999999999 0.2777 -0.7595 -58.8919 -11.3095 6.086600000000001) (MAKE-TFO -0.0239 0.9667 -0.2546 0.9731 -0.03589999999999999 -0.2275 -0.229 -0.2532 -0.9399000000000001 3.5401 -29.7913 52.2796) (MAKE-TFO -0.8912 -0.4531 0.0242 -0.1183 0.1805 -0.9763999999999999 0.4380000000000001 -0.8730000000000001 -0.2145 19.9023 54.8054 15.2799) (MAKE-PT 41.821 8.388 43.589) (MAKE-PT 42.54 8.045 44.833) (MAKE-PT 42.247 9.692 42.991) (MAKE-PT 40.255 8.202999999999999 43.734) (MAKE-PT 39.3505 8.469700000000001 42.6565) (MAKE-PT 39.1377 7.5433 42.123) (MAKE-PT 39.72030000000001 9.3119 42.0717) (MAKE-PT 38.0405 8.919500000000001 43.2869) (MAKE-PT 37.6479 8.134699999999999 43.9335) (MAKE-PT 38.26910000000001 10.0933 44.0524) (MAKE-PT 37.3999 11.1488 43.5973) (MAKE-PT 36.5061 11.1221 44.2206) (MAKE-PT 37.0364 10.7838 42.1836) (MAKE-PT 37.8636 11.0489 41.52520000000001) (MAKE-PT 35.8275 11.3133 41.7379) (MAKE-PT 35.6214 12.1896 42.0714) (MAKE-PT 36.9316 9.255600000000001 42.2837) (MAKE-PT 37.1778 8.826000000000001 41.3127) (MAKE-PT 35.62850000000001 8.933400000000001 42.79260000000001) (MAKE-PT 38.1482 15.2833 46.4641) (MAKE-PT 37.3641 13.0968 45.9007) (MAKE-PT 37.5032 14.1288 46.73) (MAKE-PT 37.95699999999999 13.3377 44.7113) (MAKE-PT 38.6397 14.466 44.3267) (MAKE-PT 38.7473 15.5229 45.26090000000001) (MAKE-PT 39.372 16.6649 45.02970000000001) (MAKE-PT 39.1079 14.3351 43.02230000000001) (MAKE-PT 38.0132 12.4868 43.62800000000001) (MAKE-PT 38.7058 13.1402 42.66200000000001) (MAKE-PT 37.0731 14.0857 47.7306) (MAKE-PT 39.8113 16.8281 44.13500000000001) (MAKE-PT 39.41 17.3741 45.7478) (MAKE-PT 39.0412 12.966 41.6397)) The following expression, nucleic2-stalin.sc:1156:42840, allocates on the heap: (MAKE-PT 39.0412 12.966 41.6397) The following expression, nucleic2-stalin.sc:1155:42796, allocates on the heap: (MAKE-PT 39.41 17.3741 45.7478) The following expression, nucleic2-stalin.sc:1154:42752, allocates on the heap: (MAKE-PT 39.8113 16.8281 44.13500000000001) The following expression, nucleic2-stalin.sc:1153:42709, allocates on the heap: (MAKE-PT 37.0731 14.0857 47.7306) The following expression, nucleic2-stalin.sc:1152:42666, allocates on the heap: (MAKE-PT 38.7058 13.1402 42.66200000000001) The following expression, nucleic2-stalin.sc:1151:42623, allocates on the heap: (MAKE-PT 38.0132 12.4868 43.62800000000001) The following expression, nucleic2-stalin.sc:1150:42580, allocates on the heap: (MAKE-PT 39.1079 14.3351 43.02230000000001) The following expression, nucleic2-stalin.sc:1149:42537, allocates on the heap: (MAKE-PT 39.372 16.6649 45.02970000000001) The following expression, nucleic2-stalin.sc:1148:42494, allocates on the heap: (MAKE-PT 38.7473 15.5229 45.26090000000001) The following expression, nucleic2-stalin.sc:1147:42451, allocates on the heap: (MAKE-PT 38.6397 14.466 44.3267) The following expression, nucleic2-stalin.sc:1146:42408, allocates on the heap: (MAKE-PT 37.95699999999999 13.3377 44.7113) The following expression, nucleic2-stalin.sc:1145:42365, allocates on the heap: (MAKE-PT 37.5032 14.1288 46.73) The following expression, nucleic2-stalin.sc:1144:42322, allocates on the heap: (MAKE-PT 37.3641 13.0968 45.9007) The following expression, nucleic2-stalin.sc:1143:42279, allocates on the heap: (MAKE-PT 38.1482 15.2833 46.4641) The following expression, nucleic2-stalin.sc:1142:42235, allocates on the heap: (MAKE-PT 35.62850000000001 8.933400000000001 42.79260000000001) The following expression, nucleic2-stalin.sc:1141:42191, allocates on the heap: (MAKE-PT 37.1778 8.826000000000001 41.3127) The following expression, nucleic2-stalin.sc:1140:42147, allocates on the heap: (MAKE-PT 36.9316 9.255600000000001 42.2837) The following expression, nucleic2-stalin.sc:1139:42103, allocates on the heap: (MAKE-PT 35.6214 12.1896 42.0714) The following expression, nucleic2-stalin.sc:1138:42059, allocates on the heap: (MAKE-PT 35.8275 11.3133 41.7379) The following expression, nucleic2-stalin.sc:1137:42014, allocates on the heap: (MAKE-PT 37.8636 11.0489 41.52520000000001) The following expression, nucleic2-stalin.sc:1136:41970, allocates on the heap: (MAKE-PT 37.0364 10.7838 42.1836) The following expression, nucleic2-stalin.sc:1135:41926, allocates on the heap: (MAKE-PT 36.5061 11.1221 44.2206) The following expression, nucleic2-stalin.sc:1134:41882, allocates on the heap: (MAKE-PT 37.3999 11.1488 43.5973) The following expression, nucleic2-stalin.sc:1133:41838, allocates on the heap: (MAKE-PT 38.26910000000001 10.0933 44.0524) The following expression, nucleic2-stalin.sc:1132:41794, allocates on the heap: (MAKE-PT 37.6479 8.134699999999999 43.9335) The following expression, nucleic2-stalin.sc:1131:41750, allocates on the heap: (MAKE-PT 38.0405 8.919500000000001 43.2869) The following expression, nucleic2-stalin.sc:1130:41705, allocates on the heap: (MAKE-PT 39.72030000000001 9.3119 42.0717) The following expression, nucleic2-stalin.sc:1129:41661, allocates on the heap: (MAKE-PT 39.1377 7.5433 42.123) The following expression, nucleic2-stalin.sc:1128:41617, allocates on the heap: (MAKE-PT 39.3505 8.469700000000001 42.6565) The following expression, nucleic2-stalin.sc:1127:41573, allocates on the heap: (MAKE-PT 40.255 8.202999999999999 43.734) The following expression, nucleic2-stalin.sc:1126:41529, allocates on the heap: (MAKE-PT 42.247 9.692 42.991) The following expression, nucleic2-stalin.sc:1125:41485, allocates on the heap: (MAKE-PT 42.54 8.045 44.833) The following expression, nucleic2-stalin.sc:1124:41443, allocates on the heap: (MAKE-PT 41.821 8.388 43.589) The following expression, nucleic2-stalin.sc:1120:41297, allocates on the heap: (MAKE-TFO -0.8912 -0.4531 0.0242 -0.1183 0.1805 -0.9763999999999999 0.4380000000000001 -0.8730000000000001 -0.2145 19.9023 54.8054 15.2799) The following expression, nucleic2-stalin.sc:1116:41151, allocates on the heap: (MAKE-TFO -0.0239 0.9667 -0.2546 0.9731 -0.03589999999999999 -0.2275 -0.229 -0.2532 -0.9399000000000001 3.5401 -29.7913 52.2796) The following expression, nucleic2-stalin.sc:1112:41005, allocates on the heap: (MAKE-TFO 0.7529 0.1548 0.6397 0.2952 -0.9481000000000001 -0.118 0.5881999999999999 0.2777 -0.7595 -58.8919 -11.3095 6.086600000000001) The following expression, nucleic2-stalin.sc:1108:40859, allocates on the heap: (MAKE-TFO 0.8467000000000001 0.4166 -0.3310999999999999 -0.3962 0.9089 0.1303 0.3552 0.0209 0.9346000000000001 -42.7319 -26.6223 -29.8163) The following expression, nucleic2-stalin.sc:1054:38796, allocates on the heap: (MAKE-RA (MAKE-TFO 0.1084 -0.0895 -0.9901 0.9789 -0.1638 0.122 -0.1731 -0.9823999999999999 0.06979999999999999 -2.9039 47.26550000000001 33.0094) (MAKE-TFO 0.7529 0.1548 0.6397 0.2952 -0.9481000000000001 -0.118 0.5881999999999999 0.2777 -0.7595 -58.8919 -11.3095 6.086600000000001) (MAKE-TFO -0.0239 0.9667 -0.2546 0.9731 -0.03589999999999999 -0.2275 -0.229 -0.2532 -0.9399000000000001 3.5401 -29.7913 52.2796) (MAKE-TFO -0.8912 -0.4531 0.0242 -0.1183 0.1805 -0.9763999999999999 0.4380000000000001 -0.8730000000000001 -0.2145 19.9023 54.8054 15.2799) (MAKE-PT 41.821 8.388 43.589) (MAKE-PT 42.54 8.045 44.833) (MAKE-PT 42.247 9.692 42.991) (MAKE-PT 40.255 8.202999999999999 43.734) (MAKE-PT 39.485 8.930099999999999 44.6977) (MAKE-PT 39.0638 9.819900000000001 44.2296) (MAKE-PT 40.0757 9.071299999999999 45.60290000000001) (MAKE-PT 38.31019999999999 8.041399999999999 45.0789) (MAKE-PT 37.7842 8.463700000000001 45.93510000000001) (MAKE-PT 37.42 7.9453 43.9769) (MAKE-PT 37.22490000000001 6.560899999999999 43.62730000000001) (MAKE-PT 36.336 6.2168 44.1561) (MAKE-PT 38.4347 5.8414 44.159) (MAKE-PT 39.26880000000001 5.9974 43.4749) (MAKE-PT 38.2344 4.4907 44.4348) (MAKE-PT 37.6374 4.038600000000001 43.8341) (MAKE-PT 38.69260000000001 6.607899999999999 45.4637) (MAKE-PT 39.75850000000001 6.563999999999999 45.6877) (MAKE-PT 37.8238 6.0705 46.4723) (MAKE-PT 33.9162 6.2598 39.7758) (MAKE-PT 34.6709 6.5759 42.0215) (MAKE-PT 33.72570000000001 6.5186 41.0858) (MAKE-PT 35.8935 6.3324 41.5018) (MAKE-PT 36.2105 6.060099999999999 40.1932) (MAKE-PT 35.1538 6.015099999999999 39.2537) (MAKE-PT 35.3088 5.7642 37.9649) (MAKE-PT 37.58179999999999 5.867699999999999 40.0507) (MAKE-PT 37.0932 6.3197 42.181) (MAKE-PT 38.0509 6.0354 41.26350000000001) (MAKE-PT 32.683 6.6898 41.35319999999999) (MAKE-PT 36.23050000000001 5.5855 37.59250000000001) (MAKE-PT 34.5056 5.751200000000001 37.35279999999999) (MAKE-PT 39.1318 5.8993 41.22850000000001)) The following expression, nucleic2-stalin.sc:1103:40787, allocates on the heap: (MAKE-PT 39.1318 5.8993 41.22850000000001) The following expression, nucleic2-stalin.sc:1102:40743, allocates on the heap: (MAKE-PT 34.5056 5.751200000000001 37.35279999999999) The following expression, nucleic2-stalin.sc:1101:40699, allocates on the heap: (MAKE-PT 36.23050000000001 5.5855 37.59250000000001) The following expression, nucleic2-stalin.sc:1100:40656, allocates on the heap: (MAKE-PT 32.683 6.6898 41.35319999999999) The following expression, nucleic2-stalin.sc:1099:40613, allocates on the heap: (MAKE-PT 38.0509 6.0354 41.26350000000001) The following expression, nucleic2-stalin.sc:1098:40570, allocates on the heap: (MAKE-PT 37.0932 6.3197 42.181) The following expression, nucleic2-stalin.sc:1097:40527, allocates on the heap: (MAKE-PT 37.58179999999999 5.867699999999999 40.0507) The following expression, nucleic2-stalin.sc:1096:40484, allocates on the heap: (MAKE-PT 35.3088 5.7642 37.9649) The following expression, nucleic2-stalin.sc:1095:40441, allocates on the heap: (MAKE-PT 35.1538 6.015099999999999 39.2537) The following expression, nucleic2-stalin.sc:1094:40398, allocates on the heap: (MAKE-PT 36.2105 6.060099999999999 40.1932) The following expression, nucleic2-stalin.sc:1093:40355, allocates on the heap: (MAKE-PT 35.8935 6.3324 41.5018) The following expression, nucleic2-stalin.sc:1092:40312, allocates on the heap: (MAKE-PT 33.72570000000001 6.5186 41.0858) The following expression, nucleic2-stalin.sc:1091:40269, allocates on the heap: (MAKE-PT 34.6709 6.5759 42.0215) The following expression, nucleic2-stalin.sc:1090:40226, allocates on the heap: (MAKE-PT 33.9162 6.2598 39.7758) The following expression, nucleic2-stalin.sc:1089:40182, allocates on the heap: (MAKE-PT 37.8238 6.0705 46.4723) The following expression, nucleic2-stalin.sc:1088:40138, allocates on the heap: (MAKE-PT 39.75850000000001 6.563999999999999 45.6877) The following expression, nucleic2-stalin.sc:1087:40094, allocates on the heap: (MAKE-PT 38.69260000000001 6.607899999999999 45.4637) The following expression, nucleic2-stalin.sc:1086:40050, allocates on the heap: (MAKE-PT 37.6374 4.038600000000001 43.8341) The following expression, nucleic2-stalin.sc:1085:40006, allocates on the heap: (MAKE-PT 38.2344 4.4907 44.4348) The following expression, nucleic2-stalin.sc:1084:39961, allocates on the heap: (MAKE-PT 39.26880000000001 5.9974 43.4749) The following expression, nucleic2-stalin.sc:1083:39917, allocates on the heap: (MAKE-PT 38.4347 5.8414 44.159) The following expression, nucleic2-stalin.sc:1082:39873, allocates on the heap: (MAKE-PT 36.336 6.2168 44.1561) The following expression, nucleic2-stalin.sc:1081:39829, allocates on the heap: (MAKE-PT 37.22490000000001 6.560899999999999 43.62730000000001) The following expression, nucleic2-stalin.sc:1080:39785, allocates on the heap: (MAKE-PT 37.42 7.9453 43.9769) The following expression, nucleic2-stalin.sc:1079:39741, allocates on the heap: (MAKE-PT 37.7842 8.463700000000001 45.93510000000001) The following expression, nucleic2-stalin.sc:1078:39697, allocates on the heap: (MAKE-PT 38.31019999999999 8.041399999999999 45.0789) The following expression, nucleic2-stalin.sc:1077:39652, allocates on the heap: (MAKE-PT 40.0757 9.071299999999999 45.60290000000001) The following expression, nucleic2-stalin.sc:1076:39608, allocates on the heap: (MAKE-PT 39.0638 9.819900000000001 44.2296) The following expression, nucleic2-stalin.sc:1075:39564, allocates on the heap: (MAKE-PT 39.485 8.930099999999999 44.6977) The following expression, nucleic2-stalin.sc:1074:39520, allocates on the heap: (MAKE-PT 40.255 8.202999999999999 43.734) The following expression, nucleic2-stalin.sc:1073:39476, allocates on the heap: (MAKE-PT 42.247 9.692 42.991) The following expression, nucleic2-stalin.sc:1072:39432, allocates on the heap: (MAKE-PT 42.54 8.045 44.833) The following expression, nucleic2-stalin.sc:1071:39390, allocates on the heap: (MAKE-PT 41.821 8.388 43.589) The following expression, nucleic2-stalin.sc:1067:39244, allocates on the heap: (MAKE-TFO -0.8912 -0.4531 0.0242 -0.1183 0.1805 -0.9763999999999999 0.4380000000000001 -0.8730000000000001 -0.2145 19.9023 54.8054 15.2799) The following expression, nucleic2-stalin.sc:1063:39098, allocates on the heap: (MAKE-TFO -0.0239 0.9667 -0.2546 0.9731 -0.03589999999999999 -0.2275 -0.229 -0.2532 -0.9399000000000001 3.5401 -29.7913 52.2796) The following expression, nucleic2-stalin.sc:1059:38952, allocates on the heap: (MAKE-TFO 0.7529 0.1548 0.6397 0.2952 -0.9481000000000001 -0.118 0.5881999999999999 0.2777 -0.7595 -58.8919 -11.3095 6.086600000000001) The following expression, nucleic2-stalin.sc:1055:38807, allocates on the heap: (MAKE-TFO 0.1084 -0.0895 -0.9901 0.9789 -0.1638 0.122 -0.1731 -0.9823999999999999 0.06979999999999999 -2.9039 47.26550000000001 33.0094) The following expression, nucleic2-stalin.sc:1001:36743, allocates on the heap: (MAKE-RA (MAKE-TFO 0.2379 0.131 -0.9623999999999999 -0.5876 -0.7696000000000001 -0.2499 -0.7734 0.6249 -0.1061 30.987 -26.9344 42.6416) (MAKE-TFO 0.7529 0.1548 0.6397 0.2952 -0.9481000000000001 -0.118 0.5881999999999999 0.2777 -0.7595 -58.8919 -11.3095 6.086600000000001) (MAKE-TFO -0.0239 0.9667 -0.2546 0.9731 -0.03589999999999999 -0.2275 -0.229 -0.2532 -0.9399000000000001 3.5401 -29.7913 52.2796) (MAKE-TFO -0.8912 -0.4531 0.0242 -0.1183 0.1805 -0.9763999999999999 0.4380000000000001 -0.8730000000000001 -0.2145 19.9023 54.8054 15.2799) (MAKE-PT 41.821 8.388 43.589) (MAKE-PT 42.54 8.045 44.833) (MAKE-PT 42.247 9.692 42.991) (MAKE-PT 40.255 8.202999999999999 43.734) (MAKE-PT 39.3505 8.469700000000001 42.6565) (MAKE-PT 39.1377 7.5433 42.123) (MAKE-PT 39.72030000000001 9.3119 42.0717) (MAKE-PT 38.0405 8.919500000000001 43.2869) (MAKE-PT 37.3687 9.303600000000001 42.5193) (MAKE-PT 37.4319 7.8146 43.9387) (MAKE-PT 37.19590000000001 8.135400000000001 45.3237) (MAKE-PT 36.1788 8.520199999999999 45.397) (MAKE-PT 38.17210000000001 9.232799999999999 45.6504) (MAKE-PT 39.1555 8.793899999999999 45.8188) (MAKE-PT 37.7862 10.0617 46.7013) (MAKE-PT 37.3087 9.6229 47.4092) (MAKE-PT 38.1844 10.0268 44.3367) (MAKE-PT 39.15779999999999 10.5054 44.22890000000001) (MAKE-PT 37.0547 10.9127 44.3441) (MAKE-PT 34.8811 4.2072 47.5784) (MAKE-PT 35.1084 6.1336 46.1818) (MAKE-PT 34.41079999999999 5.136 46.72070000000001) (MAKE-PT 36.3908 6.122399999999999 46.60530000000001) (MAKE-PT 36.9819 5.2334 47.4697) (MAKE-PT 36.1786 4.198499999999999 48.0035) (MAKE-PT 36.6103 3.2749 48.8452) (MAKE-PT 38.3236 5.5522 47.6595) (MAKE-PT 37.3887 7.0024 46.2437) (MAKE-PT 38.5055 6.6096 46.9057) (MAKE-PT 33.3553 5.0152 46.4771) (MAKE-PT 37.573 3.2804 49.1507) (MAKE-PT 35.9775 2.5638 49.1828) (MAKE-PT 39.5461 6.9184 47.0041)) The following expression, nucleic2-stalin.sc:1050:38735, allocates on the heap: (MAKE-PT 39.5461 6.9184 47.0041) The following expression, nucleic2-stalin.sc:1049:38691, allocates on the heap: (MAKE-PT 35.9775 2.5638 49.1828) The following expression, nucleic2-stalin.sc:1048:38647, allocates on the heap: (MAKE-PT 37.573 3.2804 49.1507) The following expression, nucleic2-stalin.sc:1047:38604, allocates on the heap: (MAKE-PT 33.3553 5.0152 46.4771) The following expression, nucleic2-stalin.sc:1046:38561, allocates on the heap: (MAKE-PT 38.5055 6.6096 46.9057) The following expression, nucleic2-stalin.sc:1045:38518, allocates on the heap: (MAKE-PT 37.3887 7.0024 46.2437) The following expression, nucleic2-stalin.sc:1044:38475, allocates on the heap: (MAKE-PT 38.3236 5.5522 47.6595) The following expression, nucleic2-stalin.sc:1043:38432, allocates on the heap: (MAKE-PT 36.6103 3.2749 48.8452) The following expression, nucleic2-stalin.sc:1042:38389, allocates on the heap: (MAKE-PT 36.1786 4.198499999999999 48.0035) The following expression, nucleic2-stalin.sc:1041:38346, allocates on the heap: (MAKE-PT 36.9819 5.2334 47.4697) The following expression, nucleic2-stalin.sc:1040:38303, allocates on the heap: (MAKE-PT 36.3908 6.122399999999999 46.60530000000001) The following expression, nucleic2-stalin.sc:1039:38260, allocates on the heap: (MAKE-PT 34.41079999999999 5.136 46.72070000000001) The following expression, nucleic2-stalin.sc:1038:38217, allocates on the heap: (MAKE-PT 35.1084 6.1336 46.1818) The following expression, nucleic2-stalin.sc:1037:38174, allocates on the heap: (MAKE-PT 34.8811 4.2072 47.5784) The following expression, nucleic2-stalin.sc:1036:38130, allocates on the heap: (MAKE-PT 37.0547 10.9127 44.3441) The following expression, nucleic2-stalin.sc:1035:38086, allocates on the heap: (MAKE-PT 39.15779999999999 10.5054 44.22890000000001) The following expression, nucleic2-stalin.sc:1034:38042, allocates on the heap: (MAKE-PT 38.1844 10.0268 44.3367) The following expression, nucleic2-stalin.sc:1033:37998, allocates on the heap: (MAKE-PT 37.3087 9.6229 47.4092) The following expression, nucleic2-stalin.sc:1032:37954, allocates on the heap: (MAKE-PT 37.7862 10.0617 46.7013) The following expression, nucleic2-stalin.sc:1031:37909, allocates on the heap: (MAKE-PT 39.1555 8.793899999999999 45.8188) The following expression, nucleic2-stalin.sc:1030:37865, allocates on the heap: (MAKE-PT 38.17210000000001 9.232799999999999 45.6504) The following expression, nucleic2-stalin.sc:1029:37821, allocates on the heap: (MAKE-PT 36.1788 8.520199999999999 45.397) The following expression, nucleic2-stalin.sc:1028:37777, allocates on the heap: (MAKE-PT 37.19590000000001 8.135400000000001 45.3237) The following expression, nucleic2-stalin.sc:1027:37733, allocates on the heap: (MAKE-PT 37.4319 7.8146 43.9387) The following expression, nucleic2-stalin.sc:1026:37689, allocates on the heap: (MAKE-PT 37.3687 9.303600000000001 42.5193) The following expression, nucleic2-stalin.sc:1025:37645, allocates on the heap: (MAKE-PT 38.0405 8.919500000000001 43.2869) The following expression, nucleic2-stalin.sc:1024:37600, allocates on the heap: (MAKE-PT 39.72030000000001 9.3119 42.0717) The following expression, nucleic2-stalin.sc:1023:37556, allocates on the heap: (MAKE-PT 39.1377 7.5433 42.123) The following expression, nucleic2-stalin.sc:1022:37512, allocates on the heap: (MAKE-PT 39.3505 8.469700000000001 42.6565) The following expression, nucleic2-stalin.sc:1021:37468, allocates on the heap: (MAKE-PT 40.255 8.202999999999999 43.734) The following expression, nucleic2-stalin.sc:1020:37424, allocates on the heap: (MAKE-PT 42.247 9.692 42.991) The following expression, nucleic2-stalin.sc:1019:37380, allocates on the heap: (MAKE-PT 42.54 8.045 44.833) The following expression, nucleic2-stalin.sc:1018:37338, allocates on the heap: (MAKE-PT 41.821 8.388 43.589) The following expression, nucleic2-stalin.sc:1014:37192, allocates on the heap: (MAKE-TFO -0.8912 -0.4531 0.0242 -0.1183 0.1805 -0.9763999999999999 0.4380000000000001 -0.8730000000000001 -0.2145 19.9023 54.8054 15.2799) The following expression, nucleic2-stalin.sc:1010:37046, allocates on the heap: (MAKE-TFO -0.0239 0.9667 -0.2546 0.9731 -0.03589999999999999 -0.2275 -0.229 -0.2532 -0.9399000000000001 3.5401 -29.7913 52.2796) The following expression, nucleic2-stalin.sc:1006:36900, allocates on the heap: (MAKE-TFO 0.7529 0.1548 0.6397 0.2952 -0.9481000000000001 -0.118 0.5881999999999999 0.2777 -0.7595 -58.8919 -11.3095 6.086600000000001) The following expression, nucleic2-stalin.sc:1002:36754, allocates on the heap: (MAKE-TFO 0.2379 0.131 -0.9623999999999999 -0.5876 -0.7696000000000001 -0.2499 -0.7734 0.6249 -0.1061 30.987 -26.9344 42.6416) The following expression, nucleic2-stalin.sc:948:34692, allocates on the heap: (MAKE-RA (MAKE-TFO -0.9814999999999999 0.07310000000000001 -0.1772 0.1912 0.3054 -0.9328000000000001 -0.0141 -0.9494 -0.3137 5.7506 -5.194399999999999 4.747) (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) (MAKE-PT 2.893 8.537999999999998 -3.328) (MAKE-PT 1.698 7.696 -3.557) (MAKE-PT 3.226 9.500999999999999 -4.402) (MAKE-PT 4.159 7.603999999999999 -3.034) (MAKE-PT 4.1214 6.711600000000001 -1.9049) (MAKE-PT 3.3465 5.961 -2.0607) (MAKE-PT 4.0789 7.2928 -0.9837) (MAKE-PT 5.417 5.9293 -1.8186) (MAKE-PT 5.450600000000001 5.34 -0.9023) (MAKE-PT 5.5067 5.041700000000001 -2.9703) (MAKE-PT 6.864999999999999 4.9152 -3.3612) (MAKE-PT 7.109 3.8577 -3.2603) (MAKE-PT 7.7152 5.7282 -2.3894) (MAKE-PT 8.5029 6.235600000000001 -2.9463) (MAKE-PT 8.1036 4.8568 -1.3419) (MAKE-PT 8.327 3.9651 -1.6184) (MAKE-PT 6.7003 6.7565 -1.8911) (MAKE-PT 6.5898 7.5329 -2.6482) (MAKE-PT 7.0505 7.2878 -0.6104999999999999) (MAKE-PT 6.662399999999999 3.5061 -8.298599999999999) (MAKE-PT 6.581 3.257 -5.922099999999999) (MAKE-PT 6.515099999999999 2.8263 -7.162499999999999) (MAKE-PT 6.8364 4.581700000000001 -5.8882) (MAKE-PT 7.0116 5.406400000000001 -6.9609) (MAKE-PT 6.9173 4.826 -8.236099999999999) (MAKE-PT 7.0668 5.5163 -9.376300000000001) (MAKE-PT 7.2573 6.707 -6.539400000000001) (MAKE-PT 6.974 5.3703 -4.776000000000001) (MAKE-PT 7.2238 6.627499999999999 -5.2453) (MAKE-PT 6.3146 1.7741 -7.364099999999999) (MAKE-PT 7.2568 6.4972 -9.345600000000001) (MAKE-PT 7.0437 5.0478 -10.2446) (MAKE-PT 7.4108 7.622699999999999 -4.8418)) The following expression, nucleic2-stalin.sc:997:36682, allocates on the heap: (MAKE-PT 7.4108 7.622699999999999 -4.8418) The following expression, nucleic2-stalin.sc:996:36638, allocates on the heap: (MAKE-PT 7.0437 5.0478 -10.2446) The following expression, nucleic2-stalin.sc:995:36594, allocates on the heap: (MAKE-PT 7.2568 6.4972 -9.345600000000001) The following expression, nucleic2-stalin.sc:994:36551, allocates on the heap: (MAKE-PT 6.3146 1.7741 -7.364099999999999) The following expression, nucleic2-stalin.sc:993:36508, allocates on the heap: (MAKE-PT 7.2238 6.627499999999999 -5.2453) The following expression, nucleic2-stalin.sc:992:36465, allocates on the heap: (MAKE-PT 6.974 5.3703 -4.776000000000001) The following expression, nucleic2-stalin.sc:991:36422, allocates on the heap: (MAKE-PT 7.2573 6.707 -6.539400000000001) The following expression, nucleic2-stalin.sc:990:36379, allocates on the heap: (MAKE-PT 7.0668 5.5163 -9.376300000000001) The following expression, nucleic2-stalin.sc:989:36336, allocates on the heap: (MAKE-PT 6.9173 4.826 -8.236099999999999) The following expression, nucleic2-stalin.sc:988:36293, allocates on the heap: (MAKE-PT 7.0116 5.406400000000001 -6.9609) The following expression, nucleic2-stalin.sc:987:36250, allocates on the heap: (MAKE-PT 6.8364 4.581700000000001 -5.8882) The following expression, nucleic2-stalin.sc:986:36207, allocates on the heap: (MAKE-PT 6.515099999999999 2.8263 -7.162499999999999) The following expression, nucleic2-stalin.sc:985:36164, allocates on the heap: (MAKE-PT 6.581 3.257 -5.922099999999999) The following expression, nucleic2-stalin.sc:984:36121, allocates on the heap: (MAKE-PT 6.662399999999999 3.5061 -8.298599999999999) The following expression, nucleic2-stalin.sc:983:36077, allocates on the heap: (MAKE-PT 7.0505 7.2878 -0.6104999999999999) The following expression, nucleic2-stalin.sc:982:36033, allocates on the heap: (MAKE-PT 6.5898 7.5329 -2.6482) The following expression, nucleic2-stalin.sc:981:35989, allocates on the heap: (MAKE-PT 6.7003 6.7565 -1.8911) The following expression, nucleic2-stalin.sc:980:35945, allocates on the heap: (MAKE-PT 8.327 3.9651 -1.6184) The following expression, nucleic2-stalin.sc:979:35901, allocates on the heap: (MAKE-PT 8.1036 4.8568 -1.3419) The following expression, nucleic2-stalin.sc:978:35856, allocates on the heap: (MAKE-PT 8.5029 6.235600000000001 -2.9463) The following expression, nucleic2-stalin.sc:977:35812, allocates on the heap: (MAKE-PT 7.7152 5.7282 -2.3894) The following expression, nucleic2-stalin.sc:976:35768, allocates on the heap: (MAKE-PT 7.109 3.8577 -3.2603) The following expression, nucleic2-stalin.sc:975:35724, allocates on the heap: (MAKE-PT 6.864999999999999 4.9152 -3.3612) The following expression, nucleic2-stalin.sc:974:35680, allocates on the heap: (MAKE-PT 5.5067 5.041700000000001 -2.9703) The following expression, nucleic2-stalin.sc:973:35636, allocates on the heap: (MAKE-PT 5.450600000000001 5.34 -0.9023) The following expression, nucleic2-stalin.sc:972:35592, allocates on the heap: (MAKE-PT 5.417 5.9293 -1.8186) The following expression, nucleic2-stalin.sc:971:35547, allocates on the heap: (MAKE-PT 4.0789 7.2928 -0.9837) The following expression, nucleic2-stalin.sc:970:35503, allocates on the heap: (MAKE-PT 3.3465 5.961 -2.0607) The following expression, nucleic2-stalin.sc:969:35459, allocates on the heap: (MAKE-PT 4.1214 6.711600000000001 -1.9049) The following expression, nucleic2-stalin.sc:968:35415, allocates on the heap: (MAKE-PT 4.159 7.603999999999999 -3.034) The following expression, nucleic2-stalin.sc:967:35371, allocates on the heap: (MAKE-PT 3.226 9.500999999999999 -4.402) The following expression, nucleic2-stalin.sc:966:35327, allocates on the heap: (MAKE-PT 1.698 7.696 -3.557) The following expression, nucleic2-stalin.sc:965:35285, allocates on the heap: (MAKE-PT 2.893 8.537999999999998 -3.328) The following expression, nucleic2-stalin.sc:961:35141, allocates on the heap: (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) The following expression, nucleic2-stalin.sc:957:34995, allocates on the heap: (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) The following expression, nucleic2-stalin.sc:953:34848, allocates on the heap: (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) The following expression, nucleic2-stalin.sc:949:34703, allocates on the heap: (MAKE-TFO -0.9814999999999999 0.07310000000000001 -0.1772 0.1912 0.3054 -0.9328000000000001 -0.0141 -0.9494 -0.3137 5.7506 -5.194399999999999 4.747) The following expression, nucleic2-stalin.sc:895:32640, allocates on the heap: (MAKE-RA (MAKE-TFO -0.5891 0.0449 0.8068000000000001 0.5375 0.7673 0.3498 -0.6033999999999999 0.6397 -0.4762 -0.3019 -3.7679 -9.591299999999999) (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) (MAKE-PT 2.893 8.537999999999998 -3.328) (MAKE-PT 1.698 7.696 -3.557) (MAKE-PT 3.226 9.500999999999999 -4.402) (MAKE-PT 4.159 7.603999999999999 -3.034) (MAKE-PT 4.5778 6.6594 -4.0364) (MAKE-PT 4.922 7.1963 -4.9204) (MAKE-PT 3.7996 5.9091 -4.1764) (MAKE-PT 5.7873 5.8869 -3.5482) (MAKE-PT 6.0405 5.087499999999999 -4.2446) (MAKE-PT 6.9135 6.8036 -3.431) (MAKE-PT 7.7293 6.4084 -2.3392) (MAKE-PT 8.707799999999999 6.1815 -2.7624) (MAKE-PT 7.1305 5.1418 -1.7347) (MAKE-PT 7.204 5.1982 -0.6486000000000001) (MAKE-PT 7.741700000000001 4.039200000000001 -2.3813) (MAKE-PT 8.6785 4.144299999999999 -2.563) (MAKE-PT 5.6666 5.2728 -2.1536) (MAKE-PT 5.1747 5.9805 -1.4863) (MAKE-PT 4.999700000000001 4.0086 -2.1973) (MAKE-PT 10.2594 10.6774 -1.0056) (MAKE-PT 9.752800000000001 8.707999999999998 -2.263100000000001) (MAKE-PT 10.4471 9.787599999999999 -1.9791) (MAKE-PT 8.727099999999998 8.557500000000001 -1.3991) (MAKE-PT 8.41 9.3803 -0.358) (MAKE-PT 9.2294 10.503 -0.1574) (MAKE-PT 9.034899999999999 11.3951 0.8250000000000001) (MAKE-PT 7.2891 8.9068 0.3121) (MAKE-PT 7.796200000000001 7.5519 -1.3859) (MAKE-PT 6.970200000000001 7.8292 -0.3353) (MAKE-PT 11.3132 10.0537 -2.5851) (MAKE-PT 8.274099999999999 11.2784 1.4629) (MAKE-PT 9.673299999999999 12.1368 0.9529000000000001) (MAKE-PT 6.0888 7.399 0.1403)) The following expression, nucleic2-stalin.sc:944:34631, allocates on the heap: (MAKE-PT 6.0888 7.399 0.1403) The following expression, nucleic2-stalin.sc:943:34587, allocates on the heap: (MAKE-PT 9.673299999999999 12.1368 0.9529000000000001) The following expression, nucleic2-stalin.sc:942:34543, allocates on the heap: (MAKE-PT 8.274099999999999 11.2784 1.4629) The following expression, nucleic2-stalin.sc:941:34500, allocates on the heap: (MAKE-PT 11.3132 10.0537 -2.5851) The following expression, nucleic2-stalin.sc:940:34457, allocates on the heap: (MAKE-PT 6.970200000000001 7.8292 -0.3353) The following expression, nucleic2-stalin.sc:939:34414, allocates on the heap: (MAKE-PT 7.796200000000001 7.5519 -1.3859) The following expression, nucleic2-stalin.sc:938:34371, allocates on the heap: (MAKE-PT 7.2891 8.9068 0.3121) The following expression, nucleic2-stalin.sc:937:34328, allocates on the heap: (MAKE-PT 9.034899999999999 11.3951 0.8250000000000001) The following expression, nucleic2-stalin.sc:936:34285, allocates on the heap: (MAKE-PT 9.2294 10.503 -0.1574) The following expression, nucleic2-stalin.sc:935:34242, allocates on the heap: (MAKE-PT 8.41 9.3803 -0.358) The following expression, nucleic2-stalin.sc:934:34199, allocates on the heap: (MAKE-PT 8.727099999999998 8.557500000000001 -1.3991) The following expression, nucleic2-stalin.sc:933:34156, allocates on the heap: (MAKE-PT 10.4471 9.787599999999999 -1.9791) The following expression, nucleic2-stalin.sc:932:34113, allocates on the heap: (MAKE-PT 9.752800000000001 8.707999999999998 -2.263100000000001) The following expression, nucleic2-stalin.sc:931:34070, allocates on the heap: (MAKE-PT 10.2594 10.6774 -1.0056) The following expression, nucleic2-stalin.sc:930:34026, allocates on the heap: (MAKE-PT 4.999700000000001 4.0086 -2.1973) The following expression, nucleic2-stalin.sc:929:33982, allocates on the heap: (MAKE-PT 5.1747 5.9805 -1.4863) The following expression, nucleic2-stalin.sc:928:33938, allocates on the heap: (MAKE-PT 5.6666 5.2728 -2.1536) The following expression, nucleic2-stalin.sc:927:33894, allocates on the heap: (MAKE-PT 8.6785 4.144299999999999 -2.563) The following expression, nucleic2-stalin.sc:926:33850, allocates on the heap: (MAKE-PT 7.741700000000001 4.039200000000001 -2.3813) The following expression, nucleic2-stalin.sc:925:33805, allocates on the heap: (MAKE-PT 7.204 5.1982 -0.6486000000000001) The following expression, nucleic2-stalin.sc:924:33761, allocates on the heap: (MAKE-PT 7.1305 5.1418 -1.7347) The following expression, nucleic2-stalin.sc:923:33717, allocates on the heap: (MAKE-PT 8.707799999999999 6.1815 -2.7624) The following expression, nucleic2-stalin.sc:922:33673, allocates on the heap: (MAKE-PT 7.7293 6.4084 -2.3392) The following expression, nucleic2-stalin.sc:921:33629, allocates on the heap: (MAKE-PT 6.9135 6.8036 -3.431) The following expression, nucleic2-stalin.sc:920:33585, allocates on the heap: (MAKE-PT 6.0405 5.087499999999999 -4.2446) The following expression, nucleic2-stalin.sc:919:33541, allocates on the heap: (MAKE-PT 5.7873 5.8869 -3.5482) The following expression, nucleic2-stalin.sc:918:33496, allocates on the heap: (MAKE-PT 3.7996 5.9091 -4.1764) The following expression, nucleic2-stalin.sc:917:33452, allocates on the heap: (MAKE-PT 4.922 7.1963 -4.9204) The following expression, nucleic2-stalin.sc:916:33408, allocates on the heap: (MAKE-PT 4.5778 6.6594 -4.0364) The following expression, nucleic2-stalin.sc:915:33364, allocates on the heap: (MAKE-PT 4.159 7.603999999999999 -3.034) The following expression, nucleic2-stalin.sc:914:33320, allocates on the heap: (MAKE-PT 3.226 9.500999999999999 -4.402) The following expression, nucleic2-stalin.sc:913:33276, allocates on the heap: (MAKE-PT 1.698 7.696 -3.557) The following expression, nucleic2-stalin.sc:912:33234, allocates on the heap: (MAKE-PT 2.893 8.537999999999998 -3.328) The following expression, nucleic2-stalin.sc:908:33090, allocates on the heap: (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) The following expression, nucleic2-stalin.sc:904:32944, allocates on the heap: (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) The following expression, nucleic2-stalin.sc:900:32797, allocates on the heap: (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) The following expression, nucleic2-stalin.sc:896:32651, allocates on the heap: (MAKE-TFO -0.5891 0.0449 0.8068000000000001 0.5375 0.7673 0.3498 -0.6033999999999999 0.6397 -0.4762 -0.3019 -3.7679 -9.591299999999999) The following expression, nucleic2-stalin.sc:842:30589, allocates on the heap: (MAKE-RA (MAKE-TFO -0.5426000000000001 -0.8175 0.1929 0.8304 -0.5567000000000001 -0.0237 0.1267 0.1473 0.9809 -0.5075 8.392900000000001 0.2229) (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) (MAKE-PT 2.893 8.537999999999998 -3.328) (MAKE-PT 1.698 7.696 -3.557) (MAKE-PT 3.226 9.500999999999999 -4.402) (MAKE-PT 4.159 7.603999999999999 -3.034) (MAKE-PT 5.435200000000001 8.218299999999997 -2.7757) (MAKE-PT 5.383 8.788299999999998 -1.8481) (MAKE-PT 5.7729 8.743599999999999 -3.6691) (MAKE-PT 6.483000000000001 7.1518 -2.5252) (MAKE-PT 7.4749 7.5972 -2.4482) (MAKE-PT 6.162599999999999 6.462 -1.2827) (MAKE-PT 6.5431 5.099200000000001 -1.3905) (MAKE-PT 7.2871 4.9328 -0.6113999999999999) (MAKE-PT 7.1852 4.8935 -2.7592) (MAKE-PT 6.8573 3.9363 -3.1645) (MAKE-PT 8.577999999999999 5.102499999999999 -2.6046) (MAKE-PT 8.951600000000001 4.7577 -1.7902) (MAKE-PT 6.5522 6.03 -3.5612) (MAKE-PT 5.542 5.735600000000001 -3.8459) (MAKE-PT 7.3487 6.4089 -4.6867) (MAKE-PT 3.6343 2.668 2.0783) (MAKE-PT 5.4505 3.9805 1.2446) (MAKE-PT 4.754 3.3816 2.1851) (MAKE-PT 4.8805 3.7951 0.03539999999999999) (MAKE-PT 3.7416 3.0925 -0.2305) (MAKE-PT 3.0873 2.498 0.8606000000000001) (MAKE-PT 1.96 1.7805 0.7462) (MAKE-PT 3.4605 3.1184 -1.5906) (MAKE-PT 5.324699999999999 4.2695 -1.171) (MAKE-PT 4.424399999999999 3.8244 -2.0953) (MAKE-PT 5.0814 3.4352 3.2234) (MAKE-PT 1.5423 1.6454 -0.152) (MAKE-PT 1.5716 1.3398 1.5392) (MAKE-PT 4.267499999999999 3.8876 -3.1721)) The following expression, nucleic2-stalin.sc:891:32579, allocates on the heap: (MAKE-PT 4.267499999999999 3.8876 -3.1721) The following expression, nucleic2-stalin.sc:890:32535, allocates on the heap: (MAKE-PT 1.5716 1.3398 1.5392) The following expression, nucleic2-stalin.sc:889:32491, allocates on the heap: (MAKE-PT 1.5423 1.6454 -0.152) The following expression, nucleic2-stalin.sc:888:32448, allocates on the heap: (MAKE-PT 5.0814 3.4352 3.2234) The following expression, nucleic2-stalin.sc:887:32405, allocates on the heap: (MAKE-PT 4.424399999999999 3.8244 -2.0953) The following expression, nucleic2-stalin.sc:886:32362, allocates on the heap: (MAKE-PT 5.324699999999999 4.2695 -1.171) The following expression, nucleic2-stalin.sc:885:32319, allocates on the heap: (MAKE-PT 3.4605 3.1184 -1.5906) The following expression, nucleic2-stalin.sc:884:32276, allocates on the heap: (MAKE-PT 1.96 1.7805 0.7462) The following expression, nucleic2-stalin.sc:883:32233, allocates on the heap: (MAKE-PT 3.0873 2.498 0.8606000000000001) The following expression, nucleic2-stalin.sc:882:32190, allocates on the heap: (MAKE-PT 3.7416 3.0925 -0.2305) The following expression, nucleic2-stalin.sc:881:32147, allocates on the heap: (MAKE-PT 4.8805 3.7951 0.03539999999999999) The following expression, nucleic2-stalin.sc:880:32104, allocates on the heap: (MAKE-PT 4.754 3.3816 2.1851) The following expression, nucleic2-stalin.sc:879:32061, allocates on the heap: (MAKE-PT 5.4505 3.9805 1.2446) The following expression, nucleic2-stalin.sc:878:32018, allocates on the heap: (MAKE-PT 3.6343 2.668 2.0783) The following expression, nucleic2-stalin.sc:877:31974, allocates on the heap: (MAKE-PT 7.3487 6.4089 -4.6867) The following expression, nucleic2-stalin.sc:876:31930, allocates on the heap: (MAKE-PT 5.542 5.735600000000001 -3.8459) The following expression, nucleic2-stalin.sc:875:31886, allocates on the heap: (MAKE-PT 6.5522 6.03 -3.5612) The following expression, nucleic2-stalin.sc:874:31842, allocates on the heap: (MAKE-PT 8.951600000000001 4.7577 -1.7902) The following expression, nucleic2-stalin.sc:873:31798, allocates on the heap: (MAKE-PT 8.577999999999999 5.102499999999999 -2.6046) The following expression, nucleic2-stalin.sc:872:31753, allocates on the heap: (MAKE-PT 6.8573 3.9363 -3.1645) The following expression, nucleic2-stalin.sc:871:31709, allocates on the heap: (MAKE-PT 7.1852 4.8935 -2.7592) The following expression, nucleic2-stalin.sc:870:31665, allocates on the heap: (MAKE-PT 7.2871 4.9328 -0.6113999999999999) The following expression, nucleic2-stalin.sc:869:31621, allocates on the heap: (MAKE-PT 6.5431 5.099200000000001 -1.3905) The following expression, nucleic2-stalin.sc:868:31577, allocates on the heap: (MAKE-PT 6.162599999999999 6.462 -1.2827) The following expression, nucleic2-stalin.sc:867:31533, allocates on the heap: (MAKE-PT 7.4749 7.5972 -2.4482) The following expression, nucleic2-stalin.sc:866:31489, allocates on the heap: (MAKE-PT 6.483000000000001 7.1518 -2.5252) The following expression, nucleic2-stalin.sc:865:31444, allocates on the heap: (MAKE-PT 5.7729 8.743599999999999 -3.6691) The following expression, nucleic2-stalin.sc:864:31400, allocates on the heap: (MAKE-PT 5.383 8.788299999999998 -1.8481) The following expression, nucleic2-stalin.sc:863:31356, allocates on the heap: (MAKE-PT 5.435200000000001 8.218299999999997 -2.7757) The following expression, nucleic2-stalin.sc:862:31312, allocates on the heap: (MAKE-PT 4.159 7.603999999999999 -3.034) The following expression, nucleic2-stalin.sc:861:31268, allocates on the heap: (MAKE-PT 3.226 9.500999999999999 -4.402) The following expression, nucleic2-stalin.sc:860:31224, allocates on the heap: (MAKE-PT 1.698 7.696 -3.557) The following expression, nucleic2-stalin.sc:859:31182, allocates on the heap: (MAKE-PT 2.893 8.537999999999998 -3.328) The following expression, nucleic2-stalin.sc:855:31038, allocates on the heap: (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) The following expression, nucleic2-stalin.sc:851:30892, allocates on the heap: (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) The following expression, nucleic2-stalin.sc:847:30745, allocates on the heap: (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) The following expression, nucleic2-stalin.sc:843:30600, allocates on the heap: (MAKE-TFO -0.5426000000000001 -0.8175 0.1929 0.8304 -0.5567000000000001 -0.0237 0.1267 0.1473 0.9809 -0.5075 8.392900000000001 0.2229) The following expression, nucleic2-stalin.sc:789:28537, allocates on the heap: (MAKE-RA (MAKE-TFO -0.5021 0.07310000000000001 0.8617000000000001 -0.8112 0.3054 -0.4986 -0.2996 -0.9494 -0.094 6.4273 -5.194399999999999 -3.7807) (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) (MAKE-PT 2.893 8.537999999999998 -3.328) (MAKE-PT 1.698 7.696 -3.557) (MAKE-PT 3.226 9.500999999999999 -4.402) (MAKE-PT 4.159 7.603999999999999 -3.034) (MAKE-PT 4.1214 6.711600000000001 -1.9049) (MAKE-PT 3.3465 5.961 -2.0607) (MAKE-PT 4.0789 7.2928 -0.9837) (MAKE-PT 5.417 5.9293 -1.8186) (MAKE-PT 5.450600000000001 5.34 -0.9023) (MAKE-PT 5.5067 5.041700000000001 -2.9703) (MAKE-PT 6.864999999999999 4.9152 -3.3612) (MAKE-PT 7.109 3.8577 -3.2603) (MAKE-PT 7.7152 5.7282 -2.3894) (MAKE-PT 8.5029 6.235600000000001 -2.9463) (MAKE-PT 8.1036 4.8568 -1.3419) (MAKE-PT 8.327 3.9651 -1.6184) (MAKE-PT 6.7003 6.7565 -1.8911) (MAKE-PT 6.5898 7.5329 -2.6482) (MAKE-PT 7.0505 7.2878 -0.6104999999999999) (MAKE-PT 9.673999999999999 4.7656 -7.6614) (MAKE-PT 9.0739 4.3013 -5.394099999999999) (MAKE-PT 9.8416 4.219200000000001 -6.4581) (MAKE-PT 7.9885 5.0632 -5.6446) (MAKE-PT 7.6822 5.6856 -6.8194) (MAKE-PT 8.5831 5.5215 -7.883999999999999) (MAKE-PT 8.4084 6.0747 -9.093299999999999) (MAKE-PT 6.4857 6.381600000000001 -6.7035) (MAKE-PT 6.974 5.3703 -4.776000000000001) (MAKE-PT 6.1133 6.1613 -5.4808) (MAKE-PT 10.7627 3.6375 -6.422) (MAKE-PT 7.6031 6.639 -9.273299999999999) (MAKE-PT 9.1004 5.970800000000001 -9.789299999999999) (MAKE-PT 5.1705 6.683 -5.3167)) The following expression, nucleic2-stalin.sc:838:30528, allocates on the heap: (MAKE-PT 5.1705 6.683 -5.3167) The following expression, nucleic2-stalin.sc:837:30484, allocates on the heap: (MAKE-PT 9.1004 5.970800000000001 -9.789299999999999) The following expression, nucleic2-stalin.sc:836:30440, allocates on the heap: (MAKE-PT 7.6031 6.639 -9.273299999999999) The following expression, nucleic2-stalin.sc:835:30397, allocates on the heap: (MAKE-PT 10.7627 3.6375 -6.422) The following expression, nucleic2-stalin.sc:834:30354, allocates on the heap: (MAKE-PT 6.1133 6.1613 -5.4808) The following expression, nucleic2-stalin.sc:833:30311, allocates on the heap: (MAKE-PT 6.974 5.3703 -4.776000000000001) The following expression, nucleic2-stalin.sc:832:30268, allocates on the heap: (MAKE-PT 6.4857 6.381600000000001 -6.7035) The following expression, nucleic2-stalin.sc:831:30225, allocates on the heap: (MAKE-PT 8.4084 6.0747 -9.093299999999999) The following expression, nucleic2-stalin.sc:830:30182, allocates on the heap: (MAKE-PT 8.5831 5.5215 -7.883999999999999) The following expression, nucleic2-stalin.sc:829:30139, allocates on the heap: (MAKE-PT 7.6822 5.6856 -6.8194) The following expression, nucleic2-stalin.sc:828:30096, allocates on the heap: (MAKE-PT 7.9885 5.0632 -5.6446) The following expression, nucleic2-stalin.sc:827:30053, allocates on the heap: (MAKE-PT 9.8416 4.219200000000001 -6.4581) The following expression, nucleic2-stalin.sc:826:30010, allocates on the heap: (MAKE-PT 9.0739 4.3013 -5.394099999999999) The following expression, nucleic2-stalin.sc:825:29967, allocates on the heap: (MAKE-PT 9.673999999999999 4.7656 -7.6614) The following expression, nucleic2-stalin.sc:824:29923, allocates on the heap: (MAKE-PT 7.0505 7.2878 -0.6104999999999999) The following expression, nucleic2-stalin.sc:823:29879, allocates on the heap: (MAKE-PT 6.5898 7.5329 -2.6482) The following expression, nucleic2-stalin.sc:822:29835, allocates on the heap: (MAKE-PT 6.7003 6.7565 -1.8911) The following expression, nucleic2-stalin.sc:821:29791, allocates on the heap: (MAKE-PT 8.327 3.9651 -1.6184) The following expression, nucleic2-stalin.sc:820:29747, allocates on the heap: (MAKE-PT 8.1036 4.8568 -1.3419) The following expression, nucleic2-stalin.sc:819:29702, allocates on the heap: (MAKE-PT 8.5029 6.235600000000001 -2.9463) The following expression, nucleic2-stalin.sc:818:29658, allocates on the heap: (MAKE-PT 7.7152 5.7282 -2.3894) The following expression, nucleic2-stalin.sc:817:29614, allocates on the heap: (MAKE-PT 7.109 3.8577 -3.2603) The following expression, nucleic2-stalin.sc:816:29570, allocates on the heap: (MAKE-PT 6.864999999999999 4.9152 -3.3612) The following expression, nucleic2-stalin.sc:815:29526, allocates on the heap: (MAKE-PT 5.5067 5.041700000000001 -2.9703) The following expression, nucleic2-stalin.sc:814:29482, allocates on the heap: (MAKE-PT 5.450600000000001 5.34 -0.9023) The following expression, nucleic2-stalin.sc:813:29438, allocates on the heap: (MAKE-PT 5.417 5.9293 -1.8186) The following expression, nucleic2-stalin.sc:812:29393, allocates on the heap: (MAKE-PT 4.0789 7.2928 -0.9837) The following expression, nucleic2-stalin.sc:811:29349, allocates on the heap: (MAKE-PT 3.3465 5.961 -2.0607) The following expression, nucleic2-stalin.sc:810:29305, allocates on the heap: (MAKE-PT 4.1214 6.711600000000001 -1.9049) The following expression, nucleic2-stalin.sc:809:29261, allocates on the heap: (MAKE-PT 4.159 7.603999999999999 -3.034) The following expression, nucleic2-stalin.sc:808:29217, allocates on the heap: (MAKE-PT 3.226 9.500999999999999 -4.402) The following expression, nucleic2-stalin.sc:807:29173, allocates on the heap: (MAKE-PT 1.698 7.696 -3.557) The following expression, nucleic2-stalin.sc:806:29131, allocates on the heap: (MAKE-PT 2.893 8.537999999999998 -3.328) The following expression, nucleic2-stalin.sc:802:28987, allocates on the heap: (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) The following expression, nucleic2-stalin.sc:798:28841, allocates on the heap: (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) The following expression, nucleic2-stalin.sc:794:28694, allocates on the heap: (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) The following expression, nucleic2-stalin.sc:790:28548, allocates on the heap: (MAKE-TFO -0.5021 0.07310000000000001 0.8617000000000001 -0.8112 0.3054 -0.4986 -0.2996 -0.9494 -0.094 6.4273 -5.194399999999999 -3.7807) The following expression, nucleic2-stalin.sc:736:26486, allocates on the heap: (MAKE-RA (MAKE-TFO 0.5566000000000001 0.0449 0.8296000000000001 0.5125 0.7673 -0.3854 -0.6538 0.6397 0.4041 -9.116099999999999 -3.7679 -2.996799999999999) (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) (MAKE-PT 2.893 8.537999999999998 -3.328) (MAKE-PT 1.698 7.696 -3.557) (MAKE-PT 3.226 9.500999999999999 -4.402) (MAKE-PT 4.159 7.603999999999999 -3.034) (MAKE-PT 4.5778 6.6594 -4.0364) (MAKE-PT 4.922 7.1963 -4.9204) (MAKE-PT 3.7996 5.9091 -4.1764) (MAKE-PT 5.7873 5.8869 -3.5482) (MAKE-PT 6.0405 5.087499999999999 -4.2446) (MAKE-PT 6.9135 6.8036 -3.431) (MAKE-PT 7.7293 6.4084 -2.3392) (MAKE-PT 8.707799999999999 6.1815 -2.7624) (MAKE-PT 7.1305 5.1418 -1.7347) (MAKE-PT 7.204 5.1982 -0.6486000000000001) (MAKE-PT 7.741700000000001 4.039200000000001 -2.3813) (MAKE-PT 8.6785 4.144299999999999 -2.563) (MAKE-PT 5.6666 5.2728 -2.1536) (MAKE-PT 5.1747 5.9805 -1.4863) (MAKE-PT 4.999700000000001 4.0086 -2.1973) (MAKE-PT 10.3245 8.5459 1.5467) (MAKE-PT 9.805100000000001 6.943200000000001 -0.1497) (MAKE-PT 10.5175 7.4328 0.8408000000000001) (MAKE-PT 8.7523 7.7422 -0.4228000000000001) (MAKE-PT 8.425700000000001 8.906000000000001 0.2099) (MAKE-PT 9.266500000000001 9.324199999999999 1.254) (MAKE-PT 9.066400000000002 10.4462 1.961) (MAKE-PT 7.275 9.453700000000001 -0.3428) (MAKE-PT 7.796200000000001 7.5519 -1.3859) (MAKE-PT 6.9479 8.6157 -1.2771) (MAKE-PT 11.4063 6.9047 1.1859) (MAKE-PT 8.2845 11.0341 1.7552) (MAKE-PT 9.6584 10.6647 2.7198) (MAKE-PT 6.043 8.985300000000001 -1.7594)) The following expression, nucleic2-stalin.sc:785:28476, allocates on the heap: (MAKE-PT 6.043 8.985300000000001 -1.7594) The following expression, nucleic2-stalin.sc:784:28432, allocates on the heap: (MAKE-PT 9.6584 10.6647 2.7198) The following expression, nucleic2-stalin.sc:783:28388, allocates on the heap: (MAKE-PT 8.2845 11.0341 1.7552) The following expression, nucleic2-stalin.sc:782:28345, allocates on the heap: (MAKE-PT 11.4063 6.9047 1.1859) The following expression, nucleic2-stalin.sc:781:28302, allocates on the heap: (MAKE-PT 6.9479 8.6157 -1.2771) The following expression, nucleic2-stalin.sc:780:28259, allocates on the heap: (MAKE-PT 7.796200000000001 7.5519 -1.3859) The following expression, nucleic2-stalin.sc:779:28216, allocates on the heap: (MAKE-PT 7.275 9.453700000000001 -0.3428) The following expression, nucleic2-stalin.sc:778:28173, allocates on the heap: (MAKE-PT 9.066400000000002 10.4462 1.961) The following expression, nucleic2-stalin.sc:777:28130, allocates on the heap: (MAKE-PT 9.266500000000001 9.324199999999999 1.254) The following expression, nucleic2-stalin.sc:776:28087, allocates on the heap: (MAKE-PT 8.425700000000001 8.906000000000001 0.2099) The following expression, nucleic2-stalin.sc:775:28044, allocates on the heap: (MAKE-PT 8.7523 7.7422 -0.4228000000000001) The following expression, nucleic2-stalin.sc:774:28001, allocates on the heap: (MAKE-PT 10.5175 7.4328 0.8408000000000001) The following expression, nucleic2-stalin.sc:773:27958, allocates on the heap: (MAKE-PT 9.805100000000001 6.943200000000001 -0.1497) The following expression, nucleic2-stalin.sc:772:27915, allocates on the heap: (MAKE-PT 10.3245 8.5459 1.5467) The following expression, nucleic2-stalin.sc:771:27871, allocates on the heap: (MAKE-PT 4.999700000000001 4.0086 -2.1973) The following expression, nucleic2-stalin.sc:770:27827, allocates on the heap: (MAKE-PT 5.1747 5.9805 -1.4863) The following expression, nucleic2-stalin.sc:769:27783, allocates on the heap: (MAKE-PT 5.6666 5.2728 -2.1536) The following expression, nucleic2-stalin.sc:768:27739, allocates on the heap: (MAKE-PT 8.6785 4.144299999999999 -2.563) The following expression, nucleic2-stalin.sc:767:27695, allocates on the heap: (MAKE-PT 7.741700000000001 4.039200000000001 -2.3813) The following expression, nucleic2-stalin.sc:766:27650, allocates on the heap: (MAKE-PT 7.204 5.1982 -0.6486000000000001) The following expression, nucleic2-stalin.sc:765:27606, allocates on the heap: (MAKE-PT 7.1305 5.1418 -1.7347) The following expression, nucleic2-stalin.sc:764:27562, allocates on the heap: (MAKE-PT 8.707799999999999 6.1815 -2.7624) The following expression, nucleic2-stalin.sc:763:27518, allocates on the heap: (MAKE-PT 7.7293 6.4084 -2.3392) The following expression, nucleic2-stalin.sc:762:27474, allocates on the heap: (MAKE-PT 6.9135 6.8036 -3.431) The following expression, nucleic2-stalin.sc:761:27430, allocates on the heap: (MAKE-PT 6.0405 5.087499999999999 -4.2446) The following expression, nucleic2-stalin.sc:760:27386, allocates on the heap: (MAKE-PT 5.7873 5.8869 -3.5482) The following expression, nucleic2-stalin.sc:759:27341, allocates on the heap: (MAKE-PT 3.7996 5.9091 -4.1764) The following expression, nucleic2-stalin.sc:758:27297, allocates on the heap: (MAKE-PT 4.922 7.1963 -4.9204) The following expression, nucleic2-stalin.sc:757:27253, allocates on the heap: (MAKE-PT 4.5778 6.6594 -4.0364) The following expression, nucleic2-stalin.sc:756:27209, allocates on the heap: (MAKE-PT 4.159 7.603999999999999 -3.034) The following expression, nucleic2-stalin.sc:755:27165, allocates on the heap: (MAKE-PT 3.226 9.500999999999999 -4.402) The following expression, nucleic2-stalin.sc:754:27121, allocates on the heap: (MAKE-PT 1.698 7.696 -3.557) The following expression, nucleic2-stalin.sc:753:27079, allocates on the heap: (MAKE-PT 2.893 8.537999999999998 -3.328) The following expression, nucleic2-stalin.sc:749:26935, allocates on the heap: (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) The following expression, nucleic2-stalin.sc:745:26789, allocates on the heap: (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) The following expression, nucleic2-stalin.sc:741:26642, allocates on the heap: (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) The following expression, nucleic2-stalin.sc:737:26497, allocates on the heap: (MAKE-TFO 0.5566000000000001 0.0449 0.8296000000000001 0.5125 0.7673 -0.3854 -0.6538 0.6397 0.4041 -9.116099999999999 -3.7679 -2.996799999999999) The following expression, nucleic2-stalin.sc:683:24436, allocates on the heap: (MAKE-RA (MAKE-TFO -0.0043 -0.8175 0.5759000000000001 0.2617 -0.5567000000000001 -0.7883999999999999 0.9651 0.1473 0.2164 0.03589999999999999 8.392900000000001 0.5532) (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) (MAKE-PT 2.893 8.537999999999998 -3.328) (MAKE-PT 1.698 7.696 -3.557) (MAKE-PT 3.226 9.500999999999999 -4.402) (MAKE-PT 4.159 7.603999999999999 -3.034) (MAKE-PT 5.435200000000001 8.218299999999997 -2.7757) (MAKE-PT 5.383 8.788299999999998 -1.8481) (MAKE-PT 5.7729 8.743599999999999 -3.6691) (MAKE-PT 6.483000000000001 7.1518 -2.5252) (MAKE-PT 7.4749 7.5972 -2.4482) (MAKE-PT 6.162599999999999 6.462 -1.2827) (MAKE-PT 6.5431 5.099200000000001 -1.3905) (MAKE-PT 7.2871 4.9328 -0.6113999999999999) (MAKE-PT 7.1852 4.8935 -2.7592) (MAKE-PT 6.8573 3.9363 -3.1645) (MAKE-PT 8.577999999999999 5.102499999999999 -2.6046) (MAKE-PT 8.951600000000001 4.7577 -1.7902) (MAKE-PT 6.5522 6.03 -3.5612) (MAKE-PT 5.542 5.735600000000001 -3.8459) (MAKE-PT 7.3487 6.4089 -4.6867) (MAKE-PT 4.7442 0.4514 -0.139) (MAKE-PT 6.3687 2.1459 -0.5926) (MAKE-PT 5.979500000000001 0.9335 -0.2657) (MAKE-PT 5.3052 2.9471 -0.8125) (MAKE-PT 3.9891 2.5987 -0.723) (MAKE-PT 3.7016 1.2717 -0.3647) (MAKE-PT 2.4553 0.7924999999999999 -0.239) (MAKE-PT 3.177 3.6859 -1.0198) (MAKE-PT 5.324699999999999 4.2695 -1.171) (MAKE-PT 4.0156 4.6415 -1.2759) (MAKE-PT 6.7198 0.1618 -0.05470000000000001) (MAKE-PT 1.6709 1.39 -0.4039) (MAKE-PT 2.3107 -0.1627 -0.0373) (MAKE-PT 3.4426 5.5361 -1.5199)) The following expression, nucleic2-stalin.sc:732:26425, allocates on the heap: (MAKE-PT 3.4426 5.5361 -1.5199) The following expression, nucleic2-stalin.sc:731:26381, allocates on the heap: (MAKE-PT 2.3107 -0.1627 -0.0373) The following expression, nucleic2-stalin.sc:730:26337, allocates on the heap: (MAKE-PT 1.6709 1.39 -0.4039) The following expression, nucleic2-stalin.sc:729:26294, allocates on the heap: (MAKE-PT 6.7198 0.1618 -0.05470000000000001) The following expression, nucleic2-stalin.sc:728:26251, allocates on the heap: (MAKE-PT 4.0156 4.6415 -1.2759) The following expression, nucleic2-stalin.sc:727:26208, allocates on the heap: (MAKE-PT 5.324699999999999 4.2695 -1.171) The following expression, nucleic2-stalin.sc:726:26165, allocates on the heap: (MAKE-PT 3.177 3.6859 -1.0198) The following expression, nucleic2-stalin.sc:725:26122, allocates on the heap: (MAKE-PT 2.4553 0.7924999999999999 -0.239) The following expression, nucleic2-stalin.sc:724:26079, allocates on the heap: (MAKE-PT 3.7016 1.2717 -0.3647) The following expression, nucleic2-stalin.sc:723:26036, allocates on the heap: (MAKE-PT 3.9891 2.5987 -0.723) The following expression, nucleic2-stalin.sc:722:25993, allocates on the heap: (MAKE-PT 5.3052 2.9471 -0.8125) The following expression, nucleic2-stalin.sc:721:25950, allocates on the heap: (MAKE-PT 5.979500000000001 0.9335 -0.2657) The following expression, nucleic2-stalin.sc:720:25907, allocates on the heap: (MAKE-PT 6.3687 2.1459 -0.5926) The following expression, nucleic2-stalin.sc:719:25864, allocates on the heap: (MAKE-PT 4.7442 0.4514 -0.139) The following expression, nucleic2-stalin.sc:718:25820, allocates on the heap: (MAKE-PT 7.3487 6.4089 -4.6867) The following expression, nucleic2-stalin.sc:717:25776, allocates on the heap: (MAKE-PT 5.542 5.735600000000001 -3.8459) The following expression, nucleic2-stalin.sc:716:25732, allocates on the heap: (MAKE-PT 6.5522 6.03 -3.5612) The following expression, nucleic2-stalin.sc:715:25688, allocates on the heap: (MAKE-PT 8.951600000000001 4.7577 -1.7902) The following expression, nucleic2-stalin.sc:714:25644, allocates on the heap: (MAKE-PT 8.577999999999999 5.102499999999999 -2.6046) The following expression, nucleic2-stalin.sc:713:25599, allocates on the heap: (MAKE-PT 6.8573 3.9363 -3.1645) The following expression, nucleic2-stalin.sc:712:25555, allocates on the heap: (MAKE-PT 7.1852 4.8935 -2.7592) The following expression, nucleic2-stalin.sc:711:25511, allocates on the heap: (MAKE-PT 7.2871 4.9328 -0.6113999999999999) The following expression, nucleic2-stalin.sc:710:25467, allocates on the heap: (MAKE-PT 6.5431 5.099200000000001 -1.3905) The following expression, nucleic2-stalin.sc:709:25423, allocates on the heap: (MAKE-PT 6.162599999999999 6.462 -1.2827) The following expression, nucleic2-stalin.sc:708:25379, allocates on the heap: (MAKE-PT 7.4749 7.5972 -2.4482) The following expression, nucleic2-stalin.sc:707:25335, allocates on the heap: (MAKE-PT 6.483000000000001 7.1518 -2.5252) The following expression, nucleic2-stalin.sc:706:25290, allocates on the heap: (MAKE-PT 5.7729 8.743599999999999 -3.6691) The following expression, nucleic2-stalin.sc:705:25246, allocates on the heap: (MAKE-PT 5.383 8.788299999999998 -1.8481) The following expression, nucleic2-stalin.sc:704:25202, allocates on the heap: (MAKE-PT 5.435200000000001 8.218299999999997 -2.7757) The following expression, nucleic2-stalin.sc:703:25158, allocates on the heap: (MAKE-PT 4.159 7.603999999999999 -3.034) The following expression, nucleic2-stalin.sc:702:25114, allocates on the heap: (MAKE-PT 3.226 9.500999999999999 -4.402) The following expression, nucleic2-stalin.sc:701:25070, allocates on the heap: (MAKE-PT 1.698 7.696 -3.557) The following expression, nucleic2-stalin.sc:700:25028, allocates on the heap: (MAKE-PT 2.893 8.537999999999998 -3.328) The following expression, nucleic2-stalin.sc:696:24884, allocates on the heap: (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) The following expression, nucleic2-stalin.sc:692:24738, allocates on the heap: (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) The following expression, nucleic2-stalin.sc:688:24591, allocates on the heap: (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) The following expression, nucleic2-stalin.sc:684:24447, allocates on the heap: (MAKE-TFO -0.0043 -0.8175 0.5759000000000001 0.2617 -0.5567000000000001 -0.7883999999999999 0.9651 0.1473 0.2164 0.03589999999999999 8.392900000000001 0.5532) The following expression, nucleic2-stalin.sc:630:22386, allocates on the heap: (MAKE-RA (MAKE-TFO -0.0018 -0.8207000000000001 0.5714 0.2679 -0.5509000000000001 -0.7903999999999999 0.9633999999999999 0.1517 0.2209 0.0073 8.403 0.6232) (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) (MAKE-PT 2.893 8.537999999999998 -3.328) (MAKE-PT 1.698 7.696 -3.557) (MAKE-PT 3.226 9.500999999999999 -4.402) (MAKE-PT 4.159 7.603999999999999 -3.034) (MAKE-PT 5.455 8.212 -2.881) (MAKE-PT 5.4546 8.850800000000001 -1.9978) (MAKE-PT 5.7588 8.662500000000001 -3.8259) (MAKE-PT 6.497 7.148 -2.598) (MAKE-PT 7.489600000000001 7.5919 -2.5214) (MAKE-PT 6.162999999999999 6.486000000000001 -1.344) (MAKE-PT 6.54 5.119999999999999 -1.419) (MAKE-PT 7.276300000000001 4.9681 -0.6297) (MAKE-PT 7.193999999999999 4.883 -2.777) (MAKE-PT 6.8667 3.9183 -3.1647) (MAKE-PT 8.586 5.091 -2.614) (MAKE-PT 8.951000000000001 4.7626 -1.789) (MAKE-PT 6.572 6.004 -3.609) (MAKE-PT 5.5636 5.706600000000001 -3.896599999999999) (MAKE-PT 7.3801 6.3562 -4.735) (MAKE-PT 4.715 0.491 -0.136) (MAKE-PT 6.349 2.173 -0.602) (MAKE-PT 5.953 0.965 -0.267) (MAKE-PT 5.29 2.979 -0.8260000000000001) (MAKE-PT 3.972 2.639 -0.733) (MAKE-PT 3.677 1.316 -0.366) (MAKE-PT 2.428 0.8450000000000001 -0.236) (MAKE-PT 3.166 3.729 -1.036) (MAKE-PT 5.316999999999999 4.299 -1.193) (MAKE-PT 4.01 4.678 -1.299) (MAKE-PT 6.689 0.1903 -0.05180000000000001) (MAKE-PT 1.647 1.446 -0.404) (MAKE-PT 2.278 -0.108 -0.028) (MAKE-PT 3.4421 5.5744 -1.5482)) The following expression, nucleic2-stalin.sc:679:24375, allocates on the heap: (MAKE-PT 3.4421 5.5744 -1.5482) The following expression, nucleic2-stalin.sc:678:24331, allocates on the heap: (MAKE-PT 2.278 -0.108 -0.028) The following expression, nucleic2-stalin.sc:677:24287, allocates on the heap: (MAKE-PT 1.647 1.446 -0.404) The following expression, nucleic2-stalin.sc:676:24244, allocates on the heap: (MAKE-PT 6.689 0.1903 -0.05180000000000001) The following expression, nucleic2-stalin.sc:675:24201, allocates on the heap: (MAKE-PT 4.01 4.678 -1.299) The following expression, nucleic2-stalin.sc:674:24158, allocates on the heap: (MAKE-PT 5.316999999999999 4.299 -1.193) The following expression, nucleic2-stalin.sc:673:24115, allocates on the heap: (MAKE-PT 3.166 3.729 -1.036) The following expression, nucleic2-stalin.sc:672:24072, allocates on the heap: (MAKE-PT 2.428 0.8450000000000001 -0.236) The following expression, nucleic2-stalin.sc:671:24029, allocates on the heap: (MAKE-PT 3.677 1.316 -0.366) The following expression, nucleic2-stalin.sc:670:23986, allocates on the heap: (MAKE-PT 3.972 2.639 -0.733) The following expression, nucleic2-stalin.sc:669:23943, allocates on the heap: (MAKE-PT 5.29 2.979 -0.8260000000000001) The following expression, nucleic2-stalin.sc:668:23900, allocates on the heap: (MAKE-PT 5.953 0.965 -0.267) The following expression, nucleic2-stalin.sc:667:23857, allocates on the heap: (MAKE-PT 6.349 2.173 -0.602) The following expression, nucleic2-stalin.sc:666:23814, allocates on the heap: (MAKE-PT 4.715 0.491 -0.136) The following expression, nucleic2-stalin.sc:665:23770, allocates on the heap: (MAKE-PT 7.3801 6.3562 -4.735) The following expression, nucleic2-stalin.sc:664:23726, allocates on the heap: (MAKE-PT 5.5636 5.706600000000001 -3.896599999999999) The following expression, nucleic2-stalin.sc:663:23682, allocates on the heap: (MAKE-PT 6.572 6.004 -3.609) The following expression, nucleic2-stalin.sc:662:23638, allocates on the heap: (MAKE-PT 8.951000000000001 4.7626 -1.789) The following expression, nucleic2-stalin.sc:661:23594, allocates on the heap: (MAKE-PT 8.586 5.091 -2.614) The following expression, nucleic2-stalin.sc:660:23549, allocates on the heap: (MAKE-PT 6.8667 3.9183 -3.1647) The following expression, nucleic2-stalin.sc:659:23505, allocates on the heap: (MAKE-PT 7.193999999999999 4.883 -2.777) The following expression, nucleic2-stalin.sc:658:23461, allocates on the heap: (MAKE-PT 7.276300000000001 4.9681 -0.6297) The following expression, nucleic2-stalin.sc:657:23417, allocates on the heap: (MAKE-PT 6.54 5.119999999999999 -1.419) The following expression, nucleic2-stalin.sc:656:23373, allocates on the heap: (MAKE-PT 6.162999999999999 6.486000000000001 -1.344) The following expression, nucleic2-stalin.sc:655:23329, allocates on the heap: (MAKE-PT 7.489600000000001 7.5919 -2.5214) The following expression, nucleic2-stalin.sc:654:23285, allocates on the heap: (MAKE-PT 6.497 7.148 -2.598) The following expression, nucleic2-stalin.sc:653:23240, allocates on the heap: (MAKE-PT 5.7588 8.662500000000001 -3.8259) The following expression, nucleic2-stalin.sc:652:23196, allocates on the heap: (MAKE-PT 5.4546 8.850800000000001 -1.9978) The following expression, nucleic2-stalin.sc:651:23152, allocates on the heap: (MAKE-PT 5.455 8.212 -2.881) The following expression, nucleic2-stalin.sc:650:23108, allocates on the heap: (MAKE-PT 4.159 7.603999999999999 -3.034) The following expression, nucleic2-stalin.sc:649:23064, allocates on the heap: (MAKE-PT 3.226 9.500999999999999 -4.402) The following expression, nucleic2-stalin.sc:648:23020, allocates on the heap: (MAKE-PT 1.698 7.696 -3.557) The following expression, nucleic2-stalin.sc:647:22978, allocates on the heap: (MAKE-PT 2.893 8.537999999999998 -3.328) The following expression, nucleic2-stalin.sc:643:22834, allocates on the heap: (MAKE-TFO 0.5640000000000001 0.8007000000000001 -0.2022 -0.8247000000000001 0.5587000000000001 -0.0878 0.04260000000000001 0.2162 0.9753999999999999 6.2694 -7.053999999999999 3.331599999999999) The following expression, nucleic2-stalin.sc:639:22688, allocates on the heap: (MAKE-TFO 0.3822 -0.7477 0.543 0.4552 0.6637 0.5934999999999999 -0.8042 0.0203 0.5941 -6.9472 -4.1186 -5.9108) The following expression, nucleic2-stalin.sc:635:22541, allocates on the heap: (MAKE-TFO -0.8143 -0.5091 -0.2788 -0.04330000000000001 -0.4257 0.9038 -0.5788000000000001 0.748 0.3246 1.5227 6.9114 -7.0765) The following expression, nucleic2-stalin.sc:631:22397, allocates on the heap: (MAKE-TFO -0.0018 -0.8207000000000001 0.5714 0.2679 -0.5509000000000001 -0.7903999999999999 0.9633999999999999 0.1517 0.2209 0.0073 8.403 0.6232) The following expression, nucleic2-stalin.sc:219:6533, allocates on the stack: (MAKE-PT ((PRIMITIVE-PROCEDURE -) (# COST X31) (# SINT Z31)) ((PRIMITIVE-PROCEDURE +) (# SINPSINT X31) (# COSP Y31) (# SINPCOST Z31)) ((PRIMITIVE-PROCEDURE +) (# COSPSINT X31) (# #) (# COSPCOST Z31))) The following expression, nucleic2-stalin.sc:239:6968, allocates on [inside SEARCH 252]: (MAKE-TFO ((PRIMITIVE-PROCEDURE -) (# COST COSR) (# COSPSINT SINR)) SINPSINT ((PRIMITIVE-PROCEDURE +) (# COST SINR) (# COSPSINT COSR)) ((PRIMITIVE-PROCEDURE *) SINP SINR) COSP ((PRIMITIVE-PROCEDURE -) (# SINP COSR)) ((PRIMITIVE-PROCEDURE -) (# #) (# COSPCOST SINR)) SINPCOST ((PRIMITIVE-PROCEDURE +) (# #) (# COSPCOST COSR)) ((PRIMITIVE-PROCEDURE -) (# X COSR) (# Z SINR)) Y ((PRIMITIVE-PROCEDURE +) (# X SINR) (# Z COSR))) The following expression, nucleic2-stalin.sc:179:5527, allocates on [inside SEARCH 252]: (MAKE-TFO (TFO-A TFO) (TFO-D TFO) (TFO-G TFO) (TFO-B TFO) (TFO-E TFO) (TFO-H TFO) (TFO-C TFO) (TFO-F TFO) (TFO-I TFO) ((PRIMITIVE-PROCEDURE -) (# # # #)) ((PRIMITIVE-PROCEDURE -) (# # # #)) ((PRIMITIVE-PROCEDURE -) (# # # #))) The following expression, nucleic2-stalin.sc:131:4207, allocates on RUN[348]: (MAKE-TFO ((PRIMITIVE-PROCEDURE +) (# # #) (# # #) (# # #)) ((PRIMITIVE-PROCEDURE +) (# # #) (# # #) (# # #)) ((PRIMITIVE-PROCEDURE +) (# # #) (# # #) (# # #)) ((PRIMITIVE-PROCEDURE +) (# # #) (# # #) (# # #)) ((PRIMITIVE-PROCEDURE +) (# # #) (# # #) (# # #)) ((PRIMITIVE-PROCEDURE +) (# # #) (# # #) (# # #)) ((PRIMITIVE-PROCEDURE +) (# # #) (# # #) (# # #)) ((PRIMITIVE-PROCEDURE +) (# # #) (# # #) (# # #)) ((PRIMITIVE-PROCEDURE +) (# # #) (# # #) (# # #)) ((PRIMITIVE-PROCEDURE +) (# # #) (# # #) (# # #) (TFO-TX B)) ((PRIMITIVE-PROCEDURE +) (# # #) (# # #) (# # #) (TFO-TY B)) ((PRIMITIVE-PROCEDURE +) (# # #) (# # #) (# # #) (TFO-TZ B))) The following expression, nucleic2-stalin.sc:112:3718, allocates on RUN[348]: (MAKE-PT ((PRIMITIVE-PROCEDURE +) (# X #) (# Y #) (# Z #) (TFO-TX TFO)) ((PRIMITIVE-PROCEDURE +) (# X #) (# Y #) (# Z #) (TFO-TY TFO)) ((PRIMITIVE-PROCEDURE +) (# X #) (# Y #) (# Z #) (TFO-TZ TFO))) The following expression, nucleic2-stalin.sc:100:3431, allocates on the heap: (MAKE-TFO 1. 0. 0. 0. 1. 0. 0. 0. 1. 0. 0. 0.) The following expression, nucleic2-stalin.sc:48:1537, allocates on [inside TFO-ALIGN 44]: (MAKE-PT ((PRIMITIVE-PROCEDURE -) (PT-X P1) (PT-X P2)) ((PRIMITIVE-PROCEDURE -) (PT-Y P1) (PT-Y P2)) ((PRIMITIVE-PROCEDURE -) (PT-Z P1) (PT-Z P2))) The closure for [clone HELIX5*[279] 2828] is allocated on [clone [inside STACKED5* 295] 2825] The closure for VAR-MOST-DISTANT-ATOM[332] is allocated on the stack The closure for P-O3*[303] is allocated on the heap The closure for G37-A38[289] is allocated on [inside SEARCH 252] The closure for HELIX5*[279] is allocated on [inside STACKED5* 295] The closure for [inside SEARCH 250] is allocated on the stack The closure for SEARCH[249] is allocated on the stack Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W30263 is general case for the following reasons: nondegenerate nonheaded vector W10452 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 1 - 0% - Reading source 4 - 1% - Expanding macros 9 - 3% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 1 - 0% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 78 - 27% - Performing flow analysis 0 - 0% - Enumerating call sites 6 - 2% - Determining which types and type sets are used 10 - 3% - Determining which call sites to split 0 - 0% - Computing call graph 1 - 0% - Determining which environments are called more than once 1 - 0% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 22 - 8% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 1 - 0% - Determining which environments are recursive 2 - 1% - Determining which environments are reentrant 6 - 2% - Asserting uniqueness 11 - 4% - Performing lightweight closure conversion 0 - 0% - Determining parents 2 - 1% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 1 - 0% - Determining allocations 20 - 7% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 1 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 8 - 3% - Generating code 98 - 34% - Removing unused declarations 5 - 2% - Removing unused labels 2 - 1% - Writing database 0 - 0% - Compiling C code 329.45user 2.54system 5:48.54elapsed 95%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (34602major+772588minor)pagefaults 0swaps run nucleic2 16.78user 0.08system 0:17.41elapsed 96%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (130major+2456minor)pagefaults 0swaps compile matrix Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 16837 expressions 5 internal symbol types 0 external symbol types 45 primitive procedure types 197 non-called native procedure types 303 called noop native procedure types 311 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 226 structure types 3 headed vector types 1 nonheaded vector type 0 displaced vector types 19708 type sets 648 hunoz variables 1767 non-hunoz variables 519 noop environments 1780 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 19678 expressions 4 internal symbol types 0 external symbol types 43 primitive procedure types 216 non-called native procedure types 306 called noop native procedure types 379 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 243 structure types 3 headed vector types 1 nonheaded vector type 0 displaced vector types 22714 type sets 653 hunoz variables 1964 non-hunoz variables 524 noop environments 2009 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 19 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 4989 expressions 4 internal symbol types 0 external symbol types 43 primitive procedure types 199 non-called native procedure types 306 called noop native procedure types 379 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 243 structure types 3 headed vector types 1 nonheaded vector type 0 displaced vector types 6688 type sets 312 hunoz variables 968 non-hunoz variables 0 noop environments 447 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 19 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: DISPLAY2[1711] has the following parameters: OBJ{2202} local PORT{2203} local has the following in-lined locals: STRING{2113} PORT{2114} N{2115} I{2118} MAP[1092] has the following parameters: PROC{1784} local LIST1{1785} local LISTS{1786} local has the following in-lined locals: X{841} Y{842} X{883} X{889} F{895} Z{896} X{898} R{922} Z{923} PAIR{1040} LIST1{1789} C{1790} LIST1{1793} LIST2{1794} C{1795} LIST{2443} LIST{2446} R{2447} LIST{2448} LIST{2451} R{2452} X{2454} X{2487} Y{2488} X{2489} Y{2490} X{2532} N1{2533} N2{2534} v{2535} X{2539} N1{2540} N2{2541} v{2542} N1{2543} N2{2544} v{2545} LIST-LENGTH[364] has the following parameter: LIST{1084} local has the following in-lined local: K{1087} CDDR[328] has the following parameter: PAIR{1048} local EQUAL?[310] reentrant has the following parameters: OBJ1{1027} local OBJ2{1028} local has the following in-lined locals: OBJ1{1020} OBJ2{1021} v{1022} v{1023} v{1029} v{1030} -*-[266] reentrant has closure has region has the following parameters: SIZE{1009} local UNIVERSE{1010} local FOLDER{1011} slotted CSIZE{1012} local STATE{1013} local has the following in-lined locals: SUB{980} TESTS{981} REST-U{1014} TAIL{1016} STATE{1017} SUB{2508} TESTS{2509} TESTS{2511} TAIL{2512} STATE{2513} SUB{2556} TESTS{2557} [inside FOLD-OVER-ROWS 261] has parent parameter FOLD-OVER-ROWS[259] has the following parameters: TAIL{1000} local STATE{1001} local has the following in-lined locals: TAIL{998} STATE{999} OBJ1{2432} OBJ2{2433} OBJ1{2434} OBJ2{2435} FOLD-OVER-ROWS[259] reentrant has closure has the following parameters: NUMBER-OF-COLS{995} local FOLDER{996} slotted STATE{997} local has the following in-lined locals: OBJ2{2437} TAIL{2522} STATE{2523} OBJ1{2524} OBJ2{2525} -*-[227] reentrant has region has the following parameters: NUMBER-OF-ROWS{957} local REV-MAT{958} local POSSIBLE-FUTURE{959} local STATE{960} local has the following in-lined locals: MAT{730} FIRST-ROW-PERM{733} FIRST-ROW-PERM{734} MAT{735} MAT{739} ROW-PERM{752} MAT{755} NUMBER-OF-COLS{756} ZULU-FUTURE{961} ZULU-FUTURE{964} STATE{965} REST-OF-FUTURE{966} FIRST{967} NEW-REV-MAT{968} MAT{971} OLD-MAT{979} MAT{982} BSIZE.BLEN.BLIST{983} SIZE{984} BSIZE{985} BLIST{986} BLEN{987} BLEN{988} LST{992} UNIVERSE{1002} SIZE{1003} USIZE{1006} PAIR{1046} OBJS{1083} S{1089} LIST{1158} LIST{1161} R{1162} S{1163} OBJS{2426} S{2492} S{2493} S{2514} S{2515} LIST{2546} LIST{2549} R{2550} LIST{2551} LIST{2554} R{2555} [inside MAKE-IN-ROW-SPACE? 174] has parent parameter [inside MAKE-IN-ROW-SPACE? 173] has the following parameter: ROW{909} local has the following in-lined locals: ROW{912} MAT{913} R-REST{914} R-FIRST{915} v{916} ZAP-ROW{917} Z-FIRST{918} Z-REST{919} MAT{920} PAIR{1045} [inside MAKE-IN-ROW-SPACE? 172] has parent parameter [inside MAKE-IN-ROW-SPACE? 171] has the following parameter: MAT{907} local has the following in-lined local: MAT{874} -*-[149] reentrant has parent parameter MAKE-ROW-REDUCE[145] has the following parameter: MAT{877} local has the following in-lined locals: X{835} X{836} v{878} IN{881} OUT{882} PROW{884} PIVOT{885} PREST{886} IN{887} X{2455} N1{2529} N2{2530} v{2531} [inside MAKE-MODULAR 133] has parent parameter [inside MAKE-MODULAR 117] has the following parameter: X{846} local has the following in-lined locals: X{2456} N1{2526} N2{2527} v{2528} [inside MAKE-MODULAR 132] has parent parameter [inside MAKE-MODULAR 117] has the following parameters: X{844} local Y{845} local has the following in-lined locals: X{847} N1{1305} N2{1306} v{1307} [inside MAKE-MODULAR 131] has parent parameter [inside MAKE-MODULAR 117] has the following parameter: X{843} local has the following in-lined locals: X{2453} N1{2536} N2{2537} v{2538} -*-[104] reentrant has the following parameter: I{817} local FOLD[96] has the following parameters: LST{807} local FOLDER{808} local STATE{809} local has the following in-lined locals: LST{812} STATE{813} ROW{890} MAT{891} REST-ROW{892} FIRST-COL{893} ROW{969} ROWS{970} ROW{973} TESTS{976} v{977} E{993} LST{994} OBJ1{1037} OBJ2{1038} -*-[87] has closure has the following parameters: ZULU-FUTURE{803} slotted PAST{804} slotted GEN-PERMS[84] has the following parameter: OBJECTS{800} local [inside top level 77] has the following parameters: LHS{792} local RHS{793} local [inside top level 57] reentrant has the following parameters: OLD-ROW{768} local NEW-ROW-FUNC{769} local PARTITIONS{770} local EQUAL-CONT{771} local has the following in-lined locals: I{745} NEW-PARTITIONS{763} NEW-PARTITIONS{764} P-IN{774} OLD-ROW{775} REV-P-OUT{776} PARTITION{779} OLD-ROW{780} PLUS{781} MINUS{782} OLD-ROW{785} M{786} P-IN{787} REV-P-OUT{788} v{789} NEXT{790} v{791} OBJ1{2457} OBJ2{2458} v{2459} v{2460} OBJ1{2462} OBJ2{2463} v{2464} v{2465} S{2491} LIST{2608} LIST{2611} R{2612} -*-[49] reentrant has closure has region has the following parameters: ROW-PERM{759} slotted MAT{760} slotted PARTITIONS{761} local has the following in-lined locals: v{762} NEW-ROW-PERM{765} v{766} [inside ZUNDA 35] has parent parameter [inside ZUNDA 34] has the following parameter: ROW{742} local has the following in-lined locals: loop{746} I{748} FIRST{749} ROW{750} [inside ZUNDA 34] has closure has the following parameters: IF-EQUAL{740} slotted IF-DIFFERENT{741} slotted [inside top level 0] has the following in-lined locals: RESULT{709} COUNT{711} COUNT{717} I{722} RESULT{723} X{726} X{727} X{728} Y{729} SIZE{818} PROC{819} RES{820} I{824} I{837} INVERSE{839} A{849} B{850} P-A{852} P{853} Q-B{854} Q{855} P{858} P-A{859} P-B{860} Q{861} Q-A{862} Q-B{863} MULT{864} X{865} COEF-ZERO{899} COEF-ONE{900} COEF-RECIP{905} MODULUS{925} BOUND{926} PRIMES{927} LAST{928} TRIAL{932} ENTRY{933} TRIAL{936} PRIMES{939} v{940} P{941} v{942} SIZE{943} MAIN-PART{944} I{947} NUMBER-OF-COLS{948} STATE{951} ALL-ROWS{954} NUMBER-OF-COLS{989} INV-SIZE{990} N{1265} OBJ{2413} OBJS{2427} OBJS{2428} OBJS{2429} OBJS{2430} OBJS{2431} N1{2440} N2{2441} v{2442} OBJ{2516} X{2520} The following non-trivial in-line native procedures will be generated: [clone LOOP[474] 2528] has the following parameters: LIST{2611} local R{2612} local [clone LIST-REVERSE[471] 2525] has the following parameter: LIST{2608} local [clone [inside GO 248] 2484] has region has the following parameters: SUB{2556} local TESTS{2557} local [clone LOOP[474] 2482] has the following parameters: LIST{2554} local R{2555} local [clone LIST-REVERSE[471] 2479] has the following parameter: LIST{2551} local [clone LOOP[474] 2477] has the following parameters: LIST{2549} local R{2550} local [clone LIST-REVERSE[471] 2474] has the following parameter: LIST{2546} local [clone [inside MODULO 641] 2473] has the following parameter: v{2545} local [clone MODULO[640] 2472] has the following parameters: N1{2543} local N2{2544} local [clone [inside MODULO 641] 2471] has the following parameter: v{2542} local [clone MODULO[640] 2470] has the following parameters: N1{2540} local N2{2541} local [clone [inside MAKE-MODULAR 134] 2469] has parent parameter MAKE-MODULAR[116] has the following parameter: X{2539} local [clone [inside MODULO 641] 2468] has the following parameter: v{2538} local [clone MODULO[640] 2467] has the following parameters: N1{2536} local N2{2537} local [clone [inside MODULO 641] 2466] has the following parameter: v{2535} local [clone MODULO[640] 2465] has the following parameters: N1{2533} local N2{2534} local [clone [inside MAKE-MODULAR 134] 2464] has parent parameter MAKE-MODULAR[116] has the following parameter: X{2532} local [clone [inside MODULO 641] 2463] has the following parameter: v{2531} local [clone MODULO[640] 2462] has the following parameters: N1{2529} local N2{2530} local [clone [inside MODULO 641] 2461] has the following parameter: v{2528} local [clone MODULO[640] 2460] has the following parameters: N1{2526} local N2{2527} local [clone CONS[320] 2459] has the following parameters: OBJ1{2524} local OBJ2{2525} local [clone [inside FOLD-OVER-ROWS 260] 2458] has parent parameter FOLD-OVER-ROWS[259] has the following parameters: TAIL{2522} local STATE{2523} local [clone [inside top level 144] 2457] has the following parameter: X{2520} local [clone DISPLAY[2062] 2449] has the following parameter: OBJ{2516} local [clone LENGTH[372] 2443] has the following parameter: S{2515} local [clone LENGTH[372] 2437] has the following parameter: S{2514} local [clone [inside -*- 271] 2436] has parent parameter [inside -*- 270] has the following parameters: TAIL{2512} local STATE{2513} local [clone [inside GO 248] 2435] has region has the following parameter: TESTS{2511} local [clone [inside GO 248] 2434] has region has the following parameters: SUB{2508} local TESTS{2509} local [clone [inside -*- 90] 2429] has parent parameter -*-[87] [clone [inside -*- 89] 2428] has parent parameter -*-[87] [clone [inside -*- 88] 2427] has parent parameter -*-[87] [clone [inside -*- 92] 2424] has parent parameter -*-[87] [clone [inside -*- 89] 2421] has parent parameter -*-[87] [clone [inside -*- 88] 2420] has parent parameter -*-[87] [clone [inside -*- 90] 2415] has parent parameter -*-[87] [clone [inside -*- 89] 2414] has parent parameter -*-[87] [clone [inside -*- 88] 2413] has parent parameter -*-[87] [clone [inside -*- 90] 2408] has parent parameter -*-[87] [clone [inside -*- 89] 2407] has parent parameter -*-[87] [clone [inside -*- 88] 2406] has parent parameter -*-[87] [clone [inside -*- 91] 2402] has parent parameter -*-[87] [clone [inside -*- 89] 2400] has parent parameter -*-[87] [clone [inside -*- 88] 2399] has parent parameter -*-[87] [clone [inside -*- 91] 2395] has parent parameter -*-[87] [clone [inside -*- 89] 2393] has parent parameter -*-[87] [clone [inside -*- 88] 2392] has parent parameter -*-[87] [clone [inside -*- 92] 2389] has parent parameter -*-[87] [clone [inside -*- 89] 2386] has parent parameter -*-[87] [clone [inside -*- 88] 2385] has parent parameter -*-[87] [clone REVERSE[476] 2379] has the following parameter: S{2493} local [clone REVERSE[476] 2373] has the following parameter: S{2492} local [clone REVERSE[476] 2367] has the following parameter: S{2491} local [clone [inside MAKE-MODULAR 130] 2366] has parent parameter [inside MAKE-MODULAR 117] has the following parameters: X{2489} local Y{2490} local [clone [inside MAKE-MODULAR 130] 2365] has parent parameter [inside MAKE-MODULAR 117] has the following parameters: X{2487} local Y{2488} local [clone [inside EQV? 307] 2347] has the following parameter: v{2465} local [clone [inside EQV? 306] 2346] has the following parameter: v{2464} local [clone EQV?[305] 2345] has the following parameters: OBJ1{2462} local OBJ2{2463} local [clone [inside EQV? 307] 2343] has the following parameter: v{2460} local [clone [inside EQV? 306] 2342] has the following parameter: v{2459} local [clone EQV?[305] 2341] has the following parameters: OBJ1{2457} local OBJ2{2458} local [clone [inside MAKE-MODULAR 134] 2340] has parent parameter MAKE-MODULAR[116] has the following parameter: X{2456} local [clone [inside MAKE-MODULAR 134] 2339] has parent parameter MAKE-MODULAR[116] has the following parameter: X{2455} local [clone [inside MAKE-MODULAR 134] 2338] has parent parameter MAKE-MODULAR[116] has the following parameter: X{2454} local [clone [inside MAKE-MODULAR 134] 2337] has parent parameter MAKE-MODULAR[116] has the following parameter: X{2453} local [clone LOOP[474] 2335] has the following parameters: LIST{2451} local R{2452} local [clone LIST-REVERSE[471] 2332] has the following parameter: LIST{2448} local [clone LOOP[474] 2330] has the following parameters: LIST{2446} local R{2447} local [clone LIST-REVERSE[471] 2327] has the following parameter: LIST{2443} local [clone [inside MODULO 641] 2326] has the following parameter: v{2442} local [clone MODULO[640] 2325] has the following parameters: N1{2440} local N2{2441} local [clone CONS[320] 2316] has the following parameter: OBJ2{2437} local [clone CONS[320] 2315] has the following parameters: OBJ1{2434} local OBJ2{2435} local [clone CONS[320] 2314] has the following parameters: OBJ1{2432} local OBJ2{2433} local [clone LIST[363] 2313] has the following parameter: OBJS{2431} local [clone LIST[363] 2312] has the following parameter: OBJS{2430} local [clone LIST[363] 2311] has the following parameter: OBJS{2429} local [clone LIST[363] 2310] has the following parameter: OBJS{2428} local [clone LIST[363] 2309] has the following parameter: OBJS{2427} local [clone LIST[363] 2308] has the following parameter: OBJS{2426} local DISPLAY[2062] has the following parameter: OBJ{2413} local LOOP[1579] has the following parameter: I{2118} local [inside DISPLAY-STRING2 1576] has the following parameter: N{2115} local DISPLAY-STRING2[1575] has the following parameters: STRING{2113} local PORT{2114} local [inside top level 1571] has the following parameter: THE-CURRENT-OUTPUT-PORT{2074} global LOOP[1101] has the following parameters: LIST1{1793} local LIST2{1794} local C{1795} local LOOP[1096] has the following parameters: LIST1{1789} local C{1790} local [inside MODULO 641] has the following parameter: v{1307} local MODULO[640] has the following parameters: N1{1305} local N2{1306} local EVEN?[606] has the following parameter: N{1265} local REVERSE[476] has the following parameter: S{1163} local LOOP[474] has the following parameters: LIST{1161} local R{1162} local LIST-REVERSE[471] has the following parameter: LIST{1158} local LENGTH[372] has the following parameter: S{1089} local LOOP[367] has the following parameter: K{1087} local LIST[363] has the following parameter: OBJS{1083} local CADR[326] has the following parameter: PAIR{1046} local CAAR[325] has the following parameter: PAIR{1045} local CDR[322] has the following parameter: PAIR{1040} local CONS[320] has the following parameters: OBJ1{1037} local OBJ2{1038} local [inside EQUAL? 312] has the following parameter: v{1030} local [inside EQUAL? 311] reentrant has the following parameter: v{1029} local [inside EQV? 307] has the following parameter: v{1023} local [inside EQV? 306] has the following parameter: v{1022} local EQV?[305] has the following parameters: OBJ1{1020} local OBJ2{1021} local [inside -*- 271] has parent parameter [inside -*- 270] has the following parameters: TAIL{1016} local STATE{1017} local [inside -*- 270] reentrant has parent parameter -*-[266] has closure has parent slot -*-[266] has the following parameters: REST-U{1014} local FIRST-U{1015} slotted [inside -*- 269] reentrant has parent parameter -*-[266] [inside -*- 268] has parent parameter -*-[266] [inside -*- 267] has parent parameter -*-[266] [inside FOLD-OVER-SUBS-OF-SIZE 263] has the following parameter: USIZE{1006} local FOLD-OVER-SUBS-OF-SIZE[262] has the following parameters: UNIVERSE{1002} local SIZE{1003} local [inside FOLD-OVER-ROWS 260] has parent parameter FOLD-OVER-ROWS[259] has the following parameters: TAIL{998} local STATE{999} local [inside REMOVE-IN-ORDER 258] has the following parameters: E{993} local LST{994} local REMOVE-IN-ORDER[257] has the following parameters: REMOVE?{991} global LST{992} local REALLY-GO[256] has region has the following parameters: NUMBER-OF-COLS{989} local INV-SIZE{990} local [inside GO-FOLDER 252] has the following parameter: BLEN{988} local [inside GO-FOLDER 251] has the following parameters: BLIST{986} local BLEN{987} local [inside GO-FOLDER 250] has the following parameters: SIZE{984} local BSIZE{985} local GO-FOLDER[249] has the following parameters: MAT{982} local BSIZE.BLEN.BLIST{983} local [inside GO 248] has region has the following parameters: SUB{980} local TESTS{981} local [inside GO 247] has the following parameters: NEW-ROW{978} global OLD-MAT{979} local [inside -*- 245] has the following parameter: v{977} local -*-[244] has the following parameter: TESTS{976} local [inside GO 241] has parent parameter [inside GO 240] has the following parameter: ROW{973} local [inside GO 240] has closure has the following parameter: TESTS{972} slotted [inside GO 239] has the following parameter: MAT{971} local [inside GO 238] has the following parameters: ROW{969} local ROWS{970} local [inside -**- 235] reentrant has region [inside -**- 234] reentrant has the following parameter: NEW-REV-MAT{968} local [inside -**- 233] reentrant has the following parameter: FIRST{967} local [inside -**- 232] reentrant has the following parameter: REST-OF-FUTURE{966} local -**-[231] reentrant has the following parameters: ZULU-FUTURE{964} local STATE{965} local [inside -*- 228] reentrant has the following parameter: ZULU-FUTURE{961} local [inside GO 224] has region [inside GO 223] has the following parameter: ALL-ROWS{954} local [inside GO 222] has region [inside GO 221] has the following parameter: IN-ROW-SPACE?{952} global GO[220] has region has the following parameters: NUMBER-OF-COLS{948} local INV-SIZE{949} global STATE{951} local loop[216] has the following parameter: I{947} local [inside DET-UPPER-BOUND 213] has the following parameter: MAIN-PART{944} local DET-UPPER-BOUND[212] has the following parameter: SIZE{943} local [inside -*- 210] has the following parameter: v{942} local [inside -*- 209] has the following parameter: P{941} local [inside -*- 208] has the following parameter: v{940} local -*-[207] has the following parameter: PRIMES{939} local [inside FIND-PRIME 204] has the following parameter: TRIAL{936} local [inside -*- 201] has the following parameter: ENTRY{933} local -*-[200] has the following parameter: TRIAL{932} local [inside FIND-PRIME 195] has the following parameter: LAST{928} local [inside FIND-PRIME 194] has region has the following parameter: PRIMES{927} local FIND-PRIME[193] has region has the following parameter: BOUND{926} local MAKE-MODULAR-IN-ROW-SPACE?[192] has region has the following parameter: MODULUS{925} local [inside -*- 189] has parent parameter [inside -*- 188] has the following parameters: R{922} local Z{923} local [inside -*- 188] has parent parameter MAKE-IN-ROW-SPACE?[170] has closure has parent slot MAKE-IN-ROW-SPACE?[170] has the following parameter: MULT{921} slotted [inside -*- 187] has parent parameter MAKE-IN-ROW-SPACE?[170] [inside -*- 186] has parent parameter MAKE-IN-ROW-SPACE?[170] has the following parameter: MAT{920} local [inside -*- 185] has parent parameter MAKE-IN-ROW-SPACE?[170] has the following parameter: Z-REST{919} local [inside -*- 184] has parent parameter MAKE-IN-ROW-SPACE?[170] has the following parameter: Z-FIRST{918} local [inside -*- 183] has parent parameter MAKE-IN-ROW-SPACE?[170] has the following parameter: ZAP-ROW{917} local [inside -*- 182] has parent parameter MAKE-IN-ROW-SPACE?[170] [inside -*- 180] has parent parameter MAKE-IN-ROW-SPACE?[170] has the following parameter: v{916} local [inside -*- 179] has parent parameter MAKE-IN-ROW-SPACE?[170] [inside -*- 178] has parent parameter MAKE-IN-ROW-SPACE?[170] has the following parameters: R-REST{914} local R-FIRST{915} local -*-[177] has parent parameter MAKE-IN-ROW-SPACE?[170] has region has the following parameters: ROW{912} local MAT{913} local [inside MAKE-IN-ROW-SPACE? 176] has parent parameter MAKE-IN-ROW-SPACE?[170] [inside MAKE-IN-ROW-SPACE? 175] has parent parameter MAKE-IN-ROW-SPACE?[170] has the following parameter: -*-{910} hidden as -*-[177] [inside MAKE-IN-ROW-SPACE? 173] has parent parameter MAKE-IN-ROW-SPACE?[170] has closure has parent slot MAKE-IN-ROW-SPACE?[170] has the following parameter: MAT{908} slotted [inside MAKE-IN-ROW-SPACE? 171] has parent parameter MAKE-IN-ROW-SPACE?[170] has closure has parent slot MAKE-IN-ROW-SPACE?[170] has the following parameter: ROW-REDUCE{906} slotted MAKE-IN-ROW-SPACE?[170] has closure has the following parameters: COEF-ZERO{899} local COEF-ONE{900} local COEF-ZERO?{901} slotted COEF-+{902} slotted COEF-NEGATE{903} slotted COEF-*{904} slotted COEF-RECIP{905} local [inside -**- 167] has parent parameter [inside -**- 166] has the following parameter: X{898} local [inside -**- 166] has parent parameter MAKE-ROW-REDUCE[145] has closure has parent slot MAKE-ROW-REDUCE[145] has the following parameter: MULT{897} slotted [inside -**- 165] has parent parameter [inside -**- 164] has the following parameters: F{895} local Z{896} local [inside -**- 164] has parent parameter MAKE-ROW-REDUCE[145] has closure has parent slot MAKE-ROW-REDUCE[145] has the following parameter: MULT{894} slotted [inside -**- 163] has parent parameter [inside -**- 160] has region has the following parameters: REST-ROW{892} local FIRST-COL{893} local [inside -**- 162] has parent parameter [inside -**- 160] has the following parameters: ROW{890} local MAT{891} local [inside -**- 161] has parent parameter MAKE-ROW-REDUCE[145] has the following parameter: X{889} local [inside -**- 160] reentrant has parent parameter MAKE-ROW-REDUCE[145] has closure has parent slot MAKE-ROW-REDUCE[145] has the following parameter: ZAP-ROW{888} slotted [inside -**- 159] reentrant has parent parameter MAKE-ROW-REDUCE[145] [inside -**- 158] reentrant has parent parameter MAKE-ROW-REDUCE[145] has the following parameter: IN{887} local [inside -**- 157] reentrant has parent parameter MAKE-ROW-REDUCE[145] has the following parameter: PREST{886} local [inside -**- 156] reentrant has parent parameter MAKE-ROW-REDUCE[145] has the following parameter: PIVOT{885} local [inside -**- 155] reentrant has parent parameter MAKE-ROW-REDUCE[145] has the following parameter: PROW{884} local [inside -**- 154] has parent parameter MAKE-ROW-REDUCE[145] has the following parameter: X{883} local -**-[153] reentrant has parent parameter MAKE-ROW-REDUCE[145] has region has the following parameters: IN{881} local OUT{882} local [inside -*- 152] has parent parameter MAKE-ROW-REDUCE[145] [inside -*- 151] has parent parameter MAKE-ROW-REDUCE[145] has the following parameter: -**-{879} hidden as -**-[153] [inside -*- 150] has the following parameter: v{878} local [inside MAKE-ROW-REDUCE 148] has parent parameter MAKE-ROW-REDUCE[145] [inside MAKE-ROW-REDUCE 147] has parent parameter MAKE-ROW-REDUCE[145] has the following parameter: -*-{875} hidden as -*-[149] [inside MAKE-ROW-REDUCE 146] has parent parameter MAKE-ROW-REDUCE[145] has the following parameter: MAT{874} local MAKE-ROW-REDUCE[145] has closure has the following parameters: COEF-ZERO{867} slotted COEF-ONE{868} slotted COEF-ZERO?{869} slotted COEF-+{870} slotted COEF-NEGATE{871} slotted COEF-*{872} slotted COEF-RECIP{873} slotted [inside top level 144] has the following parameter: X{865} local [inside -*- 142] has the following parameter: MULT{864} local -*-[141] has the following parameters: P{858} local P-A{859} local P-B{860} local Q{861} local Q-A{862} local Q-B{863} local [inside top level 138] has the following parameters: Q-B{854} local Q{855} local [inside top level 137] has the following parameters: P-A{852} local P{853} local [inside top level 136] has the following parameters: A{849} local B{850} local [inside MAKE-MODULAR 134] has parent parameter MAKE-MODULAR[116] has the following parameter: X{847} local [inside MAKE-MODULAR 130] has parent parameter [inside MAKE-MODULAR 117] has the following parameters: X{841} local Y{842} local [inside MAKE-MODULAR 129] has the following parameter: INVERSE{839} local [inside MAKE-MODULAR 128] has parent parameter MAKE-MODULAR[116] has the following parameter: I{837} local [inside MAKE-MODULAR 127] has parent parameter [inside MAKE-MODULAR 125] has the following parameter: X{836} local [inside MAKE-MODULAR 126] has parent parameter [inside MAKE-MODULAR 125] has the following parameter: X{835} local [inside MAKE-MODULAR 125] has parent parameter [inside MAKE-MODULAR 117] has closure has parent slot [inside MAKE-MODULAR 117] has the following parameter: INVERSES{834} slotted [inside MAKE-MODULAR 124] has parent parameter [inside MAKE-MODULAR 122] [inside MAKE-MODULAR 123] has parent parameter [inside MAKE-MODULAR 122] [inside MAKE-MODULAR 122] has parent parameter [inside MAKE-MODULAR 121] has closure has parent slot [inside MAKE-MODULAR 121] has the following parameter: COEF-RECIP{832} slotted [inside MAKE-MODULAR 121] has parent parameter [inside MAKE-MODULAR 120] has closure has parent slot [inside MAKE-MODULAR 120] has the following parameter: COEF-*{831} slotted [inside MAKE-MODULAR 120] has parent parameter [inside MAKE-MODULAR 119] has closure has parent slot [inside MAKE-MODULAR 119] has the following parameter: COEF-NEGATE{830} slotted [inside MAKE-MODULAR 119] has parent parameter [inside MAKE-MODULAR 118] has closure has parent slot [inside MAKE-MODULAR 118] has the following parameter: COEF-+{829} slotted [inside MAKE-MODULAR 118] has parent parameter [inside MAKE-MODULAR 117] has closure has parent slot [inside MAKE-MODULAR 117] has the following parameter: COEF-ZERO?{828} slotted [inside MAKE-MODULAR 117] has parent parameter MAKE-MODULAR[116] has closure has parent slot MAKE-MODULAR[116] has the following parameter: REDUCE{827} slotted MAKE-MODULAR[116] has closure has the following parameter: MODULUS{826} slotted loop[111] has the following parameter: I{824} local [inside PROC->VECTOR 107] has the following parameter: RES{820} local PROC->VECTOR[106] has the following parameters: SIZE{818} local PROC{819} local MIOTA[101] has the following parameter: LEN{814} global -*-[99] has the following parameters: LST{812} local STATE{813} local [inside -*- 92] has parent parameter -*-[87] [inside -*- 89] has parent parameter -*-[87] [inside -*- 88] has parent parameter -*-[87] [inside -SPLIT- 73] reentrant [inside -SPLIT- 72] reentrant [inside -SPLIT- 71] reentrant has the following parameter: v{791} local [inside -SPLIT- 70] reentrant has the following parameter: NEXT{790} local [inside -MINUS- 68] reentrant has the following parameter: v{789} local [inside -MINUS- 67] reentrant has the following parameters: P-IN{787} local REV-P-OUT{788} local -MINUS-[66] reentrant has the following parameters: OLD-ROW{785} local M{786} local -SPLIT-[63] reentrant has the following parameters: PARTITION{779} local OLD-ROW{780} local PLUS{781} local MINUS{782} local -*-[60] reentrant has region has the following parameters: P-IN{774} local OLD-ROW{775} local REV-P-OUT{776} local [inside -*- 54] reentrant has parent parameter -*-[49] has the following parameter: v{766} local [inside -*- 53] reentrant has parent parameter -*-[49] has the following parameter: NEW-ROW-PERM{765} local [inside -*- 52] reentrant has parent parameter -*-[49] has the following parameter: NEW-PARTITIONS{764} local [inside -*- 51] reentrant has parent parameter -*-[49] has the following parameter: NEW-PARTITIONS{763} local [inside -*- 50] reentrant has parent parameter -*-[49] has the following parameter: v{762} local ZEBRA[46] has region has the following parameters: ROW-PERM{752} local ROW->FUNC+{753} global ROW->FUNC-{754} global MAT{755} local NUMBER-OF-COLS{756} local [inside loop 43] has parent parameter [inside ZUNDA 36] loop[41] has parent parameter [inside ZUNDA 36] has the following parameters: I{748} local FIRST{749} local ROW{750} local [inside ZUNDA 39] has parent parameter [inside ZUNDA 36] has the following parameter: loop{746} local [inside ZUNDA 38] has parent parameter [inside ZUNDA 36] has the following parameter: I{745} local [inside ZUNDA 37] has parent parameter [inside ZUNDA 36] [inside ZUNDA 36] has parent parameter [inside ZUNDA 34] has closure has parent slot [inside ZUNDA 34] has the following parameter: VEC{743} slotted [inside ZUNDA 33] has region [inside ZUNDA 32] has the following parameter: MAT{739} local [inside ZUNDA 30] has the following parameter: NUMBER-OF-COLS{737} global [inside ZUNDA 29] has the following parameter: FIRST-ROW{736} global ZUNDA[28] has the following parameters: FIRST-ROW-PERM{734} local MAT{735} local PICK-FIRST-ROW[26] has region has the following parameter: FIRST-ROW-PERM{733} local MAXIMAL?[23] has region has the following parameter: MAT{730} local SET-BOX![22] has the following parameters: X{728} local Y{729} local UNBOX[21] has the following parameter: X{727} local BOX[20] has the following parameter: X{726} local LOOP[16] has the following parameters: I{722} local RESULT{723} local RUN-BENCH[13] has the following parameter: COUNT{717} local RUN-BENCHMARK[8] has the following parameter: COUNT{711} local [inside top level 7] has the following parameter: RESULT{709} local The following expression allocates on -*-[60]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression, matrix-stalin.sc:410:12522, allocates on -*-[227]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (IN-ROW-SPACE? (# NEW-ROW SUB)) TESTS) The following expression, matrix-stalin.sc:411:12552, allocates on [clone [inside GO 248] 2484]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NEW-ROW SUB) The following expression allocates on [inside -**- 235]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on -*-[227]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on [inside GO 222]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2) The following expression, matrix-stalin.sc:483:14732, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) -1 TAIL) The following expression, matrix-stalin.sc:224:6807, allocates on GO[220]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) -1 ((PRIMITIVE-PROCEDURE -) X)) The following expression, matrix-stalin.sc:511:15488, allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) FIRST-U TAIL) The following expression, matrix-stalin.sc:410:12522, allocates on -*-[227]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (IN-ROW-SPACE? (# NEW-ROW SUB)) TESTS) The following expression, matrix-stalin.sc:411:12552, allocates on [clone [inside GO 248] 2435]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NEW-ROW SUB) The following expression, matrix-stalin.sc:410:12522, allocates on -*-[227]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (IN-ROW-SPACE? (# NEW-ROW SUB)) TESTS) The following expression, matrix-stalin.sc:411:12552, allocates on [clone [inside GO 248] 2434]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NEW-ROW SUB) The following expression, matrix-stalin.sc:162:4967, allocates on -*-[49]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) ZULU-FUTURE) PAST) The following expression, matrix-stalin.sc:162:4967, allocates on PICK-FIRST-ROW[26]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) ZULU-FUTURE) PAST) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on [inside GO 222]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2) The following expression allocates on [inside GO 222]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2) The following expression allocates on [inside GO 222]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2) The following expression allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC (# LIST1) (# LIST2)) C) The following expression allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC (# LIST1)) C) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on [inside GO 222]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2) The following expression, matrix-stalin.sc:511:15488, allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) FIRST-U TAIL) The following expression, matrix-stalin.sc:486:14850, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 1 TAIL) The following expression, matrix-stalin.sc:483:14732, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) -1 TAIL) The following expression, matrix-stalin.sc:473:14384, allocates on [inside GO 222]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) E LST) The following expression, matrix-stalin.sc:468:14259, allocates on the heap: (LIST -1 -1) The following expression, matrix-stalin.sc:464:14135, allocates on the heap: (LIST SIZE 1 MAT) The following expression, matrix-stalin.sc:459:13987, allocates on REALLY-GO[256]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) BSIZE ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) BLEN (IF # # #))) The following expression, matrix-stalin.sc:460:14004, allocates on REALLY-GO[256]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) BLEN (IF (# BLEN 3000) (#) (IF # # #))) The following expression, matrix-stalin.sc:462:14083, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) "..." BLIST) The following expression, matrix-stalin.sc:461:14040, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) MAT BLIST) The following expression, matrix-stalin.sc:410:12522, allocates on -*-[227]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (IN-ROW-SPACE? (# NEW-ROW SUB)) TESTS) The following expression, matrix-stalin.sc:411:12552, allocates on [inside GO 248]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NEW-ROW SUB) The following expression, matrix-stalin.sc:421:12879, allocates on [inside GO 222]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 1 ROW) ROWS) The following expression, matrix-stalin.sc:421:12885, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 1 ROW) The following expression, matrix-stalin.sc:424:12961, allocates on [inside GO 224]: (LIST ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) ALL-ROWS)) The following expression, matrix-stalin.sc:441:13504, allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) FIRST REV-MAT) The following expression, matrix-stalin.sc:368:11301, allocates on FIND-PRIME[193]: (LIST 2) The following expression, matrix-stalin.sc:382:11653, allocates on FIND-PRIME[193]: (LIST TRIAL) The following expression, matrix-stalin.sc:345:10659, allocates on -*-[177]: (MAP ((LAMBDA # #) (COEF-NEGATE R-FIRST)) R-REST Z-REST) The following expression, matrix-stalin.sc:281:8753, allocates on -*-[227]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) COEF-ONE ZAP-ROW) (MAP (LAMBDA # #) (\-*- #))) The following expression, matrix-stalin.sc:287:8882, allocates on [inside GO 222]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((LAMBDA # #) (# ROW) (# ROW)) MAT) The following expression, matrix-stalin.sc:292:9014, allocates on [inside -**- 163]: (MAP ((LAMBDA # #) (COEF-NEGATE FIRST-COL)) REST-ROW ZAP-ROW) The following expression, matrix-stalin.sc:283:8812, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) COEF-ZERO X) The following expression, matrix-stalin.sc:282:8765, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) COEF-ONE ZAP-ROW) The following expression, matrix-stalin.sc:276:8611, allocates on -**-[153]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) PREST OUT) The following expression, matrix-stalin.sc:270:8437, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) COEF-ZERO X) The following expression, matrix-stalin.sc:224:6807, allocates on GO[220]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) -1 ((PRIMITIVE-PROCEDURE -) X)) The following expression, matrix-stalin.sc:181:5496, allocates on GO[220]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) SIZE) The following expression, matrix-stalin.sc:177:5413, allocates on ZEBRA[46]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) I (\-*- (# I 1))) The following expression, matrix-stalin.sc:110:3694, allocates on -*-[60]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) LHS RHS) The following expression, matrix-stalin.sc:145:4597, allocates on -*-[60]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NEXT MINUS) The following expression, matrix-stalin.sc:139:4492, allocates on -*-[60]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NEXT PLUS) The following expression, matrix-stalin.sc:92:3128, allocates on ZEBRA[46]: (LIST (MIOTA NUMBER-OF-COLS)) The following expression, matrix-stalin.sc:70:2555, allocates on -*-[49]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) NUMBER-OF-COLS) The following expression, matrix-stalin.sc:21:573, allocates on [inside FIND-PRIME 194]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X '()) The following expression, matrix-stalin.sc:10:338, allocates on the heap: (LIST 'UNDEFINED) The closure for [inside -*- 270] is allocated on -*-[266] The closure for -*-[266] is allocated on the stack The closure for FOLD-OVER-ROWS[259] is allocated on the stack The closure for [inside GO 240] is allocated on -*-[227] The closure for [inside -*- 188] is allocated on -*-[177] The closure for [inside MAKE-IN-ROW-SPACE? 173] is allocated on -*-[227] The closure for [inside MAKE-IN-ROW-SPACE? 171] is allocated on GO[220] The closure for MAKE-IN-ROW-SPACE?[170] is allocated on GO[220] The closure for [inside -**- 166] is allocated on -**-[153] The closure for [inside -**- 164] is allocated on [inside -**- 163] The closure for [inside -**- 160] is allocated on the stack The closure for MAKE-ROW-REDUCE[145] is allocated on GO[220] The closure for [inside MAKE-MODULAR 125] is allocated on GO[220] The closure for [inside MAKE-MODULAR 122] is allocated on MAKE-MODULAR-IN-ROW-SPACE?[192] The closure for [inside MAKE-MODULAR 121] is allocated on MAKE-MODULAR-IN-ROW-SPACE?[192] The closure for [inside MAKE-MODULAR 120] is allocated on MAKE-MODULAR-IN-ROW-SPACE?[192] The closure for [inside MAKE-MODULAR 119] is allocated on MAKE-MODULAR-IN-ROW-SPACE?[192] The closure for [inside MAKE-MODULAR 118] is allocated on MAKE-MODULAR-IN-ROW-SPACE?[192] The closure for [inside MAKE-MODULAR 117] is allocated on GO[220] The closure for MAKE-MODULAR[116] is allocated on GO[220] The closure for -*-[87] is allocated on MAXIMAL?[23] The closure for -*-[49] is allocated on the stack The closure for [inside ZUNDA 36] is allocated on -*-[49] The closure for [inside ZUNDA 34] is allocated on [inside ZUNDA 33] Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W18402 is general case for the following reasons: nondegenerate nonheaded vector W16554 is general case for the following reasons: flonum W10993 is general case for the following reasons: insufficient squish tag bits (3 needed 2 available) Generating code Removing unused declarations Removing unused labels Writing database Compiling C code matrix-stalin.c: In function `f57': matrix-stalin.c:3683: warning: `r57' might be used uninitialized in this function Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 4% - Expanding macros 3 - 5% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 1 - 2% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 11 - 21% - Performing flow analysis 0 - 0% - Enumerating call sites 1 - 1% - Determining which types and type sets are used 4 - 7% - Determining which call sites to split 0 - 0% - Computing call graph 1 - 1% - Determining which environments are called more than once 0 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 6 - 11% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 1% - Determining which environments are recursive 1 - 2% - Determining which environments are reentrant 1 - 1% - Asserting uniqueness 12 - 23% - Performing lightweight closure conversion 0 - 0% - Determining parents 1 - 1% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 1 - 1% - Determining which environments have external continuation calls 0 - 1% - Determining blocked environments 0 - 0% - Determining allocations 2 - 4% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 1 - 3% - Generating code 2 - 3% - Removing unused declarations 1 - 2% - Removing unused labels 1 - 1% - Writing database 0 - 0% - Compiling C code 54.75user 0.37system 1:01.06elapsed 90%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33029major+220840minor)pagefaults 0swaps run matrix 70.10user 0.43system 1:11.50elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (96major+332minor)pagefaults 0swaps compile earley Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 17405 expressions 3 internal symbol types 0 external symbol types 37 primitive procedure types 205 non-called native procedure types 348 called noop native procedure types 410 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 36 structure types 13 headed vector types 1 nonheaded vector type 0 displaced vector types 20074 type sets 715 hunoz variables 1868 non-hunoz variables 559 noop environments 1872 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 7 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 19075 expressions 3 internal symbol types 0 external symbol types 36 primitive procedure types 234 non-called native procedure types 362 called noop native procedure types 493 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 40 structure types 19 headed vector types 1 nonheaded vector type 0 displaced vector types 21995 type sets 792 hunoz variables 2107 non-hunoz variables 579 noop environments 2061 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 7 Maximal clone rate is 23 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 5927 expressions 3 internal symbol types 0 external symbol types 36 primitive procedure types 205 non-called native procedure types 362 called noop native procedure types 493 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 40 structure types 19 headed vector types 1 nonheaded vector type 0 displaced vector types 7501 type sets 455 hunoz variables 1098 non-hunoz variables 0 noop environments 572 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 7 Maximal clone rate is 23 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: DISPLAY2[1853] has the following parameters: OBJ{2385} local PORT{2386} local has the following in-lined locals: STRING{2296} PORT{2297} N{2298} I{2301} MAP[1234] has the following parameters: PROC{1967} local LIST1{1968} local has the following in-lined locals: TOK{766} NTS{767} L1{770} L2{771} I{772} TOK{776} X{1200} LIST{1341} LIST{1344} R{1345} LIST1{1972} C{1973} OBJS{2613} NT{2763} NTS{2764} I{2767} LIST->VECTOR[1153] has the following parameter: LIST{1901} local has the following in-lined locals: R{1902} K{1906} LIST{2797} K{2800} MEMBER[642] has the following parameters: OBJ{1361} local LIST{1362} local REVERSE[620] has the following parameter: S{1346} local has the following in-lined locals: LIST{2649} LIST{2652} R{2653} LOOP[556] reentrant has the following parameters: LIST1{1297} local LIST2{1298} local LISTS{1299} local APPEND[543] has the following parameter: SS{1289} local has the following in-lined locals: SS{1292} v{1293} v{1294} SS{1302} SS{1323} EQUAL?[454] reentrant has the following parameters: OBJ1{1210} local OBJ2{1211} local has the following in-lined locals: OBJ1{1203} OBJ2{1204} v{1205} v{1206} v{1212} v{1213} DERIV-TREES[248] reentrant has the following parameters: CONF{997} local I{998} local J{999} local ENDERS{1000} local STEPS{1001} local NAMES{1002} local TOKS{1003} local STATES{1004} local NB-NTS{1005} local has the following in-lined locals: NAME{1006} PREV{1007} L1{1010} L2{1011} ENDER{1012} ENDER-SET{1013} K{1016} L2{1017} ENDER-TREES{1018} PREV-TREES{1019} L3{1022} L2{1023} ENDER-TREE{1024} L4{1027} L2{1028} OBJS{1266} OBJS{2609} OBJS{2610} OBJS{2611} OBJS{2612} CONF-SET{2626} I{2627} CONF-SET{2628} I{2629} CONF-SET{2640} STATE{2642} CONF{2643} STATE{2654} CONF{2655} I{2656} CONF-SET{2657} CONF-SET{2903} I{2904} FORW[112] has the following parameters: STATES{846} local STATE-NUM{847} local STARTERS{848} local ENDERS{849} local PREDICTORS{850} local STEPS{851} local NTS{852} local has the following in-lined locals: STATE{786} CONF{787} STATE{788} STATE-NUM{789} CONF{790} CONF-SET{791} CONF-SET{792} CONF-SET{802} CONF-SET{803} I{804} STATE{805} CONF{806} I{807} CONF-SET{808} STATE{809} CONF-SET{810} CONF{811} I{812} TAIL{813} STATE{838} CONF-SET{839} CONF{840} OTHER-SET{841} I{844} NB-NTS{857} STATE{858} CONF{861} STEP{862} CONF-SET{863} HEAD{864} PREDS{868} STATE{869} STATE-NUM{870} CONF-SET{871} CONF{872} NT{873} STARTERS{874} ENDERS{875} L{879} ENDER{880} NEXT{881} NEXT-SET{882} L{886} STARTER{887} STARTER-SET{888} STATES{890} STATE{891} STATE-NUM{892} CONF-SET{893} HEAD{894} PREDS{895} L{898} PRED{899} I{902} PRED-SET{903} NEXT{905} NEXT-SET{906} CONF-SET{2618} I{2619} CONF-SET{2620} I{2621} CONF-SET{2622} I{2623} CONF-SET{2624} I{2625} CONF-SET{2634} I{2635} STATE{2646} CONF{2647} STATE{2666} STATE-NUM{2667} CONF{2668} CONF-SET{2669} CONF-SET{2670} STATE{2676} STATE-NUM{2677} CONF{2678} CONF-SET{2679} CONF-SET{2680} STATE{2706} CONF-SET{2707} CONF{2708} I{2709} TAIL{2710} STATE{2789} CONF-SET{2790} CONF{2791} OTHER-SET{2792} I{2795} STATE{2905} CONF{2906} STATE{2907} CONF{2908} CONF-SET{2909} CONF-SET{2910} I{2911} CONF-SET{2912} I{2913} STATE{2914} CONF-SET{2915} CONF{2916} I{2917} TAIL{2918} CONF-SET{2923} I{2924} CONF-SET-MERGE-NEW![73] has the following parameter: CONF-SET{798} local MAKE-STATES[60] has the following parameters: NB-TOKS{777} local NB-CONFS{778} local has the following in-lined locals: STATES{779} I{782} V{783} [inside top level 0] has the following in-lined locals: RESULT{667} COUNT{669} COUNT{675} I{680} RESULT{681} GRAMMAR{684} NTS{692} NB-NTS{693} NB-CONFS{694} STARTERS{695} ENDERS{696} PREDICTORS{697} STEPS{698} NAMES{699} INPUT{704} LEXER{753} NTS{754} STARTERS{755} ENDERS{756} PREDICTORS{757} STEPS{758} NAMES{759} TOKS{760} NTS{762} I{765} INPUT{773} LEXER{774} STATES{818} STATE-NUM{819} L{820} I{821} STATE{822} L1{825} CONF{826} CONF-SET{827} STATES{829} STATES*{830} STATE-NUM{831} CONF{832} I{833} STATE{834} STATE*{835} CONF-SET*{836} STARTERS{907} ENDERS{908} PREDICTORS{909} STEPS{910} NTS{911} TOKS{912} NB-TOKS{913} NB-CONFS{914} STATES{915} GOAL-STARTERS{916} I{922} TOK-NTS{923} CONF{926} I{927} J{928} ENDERS{929} STEPS{930} STATES{932} STATES*{933} NB-NTS{934} PREV{935} L{938} ENDER{939} ENDER-SET{940} K{943} STATES{945} STATES*{946} STATE-NUM{947} ENDERS{948} STEPS{949} NB-NTS{950} STATE*{952} CONF{955} CONF-SET{956} HEAD{957} I{962} STATES{964} ENDERS{965} STEPS{966} NTS{967} TOKS{968} NB-TOKS{969} NB-CONFS{970} NB-NTS{971} STATES*{972} GOAL-ENDERS{973} L{978} CONF{979} I{983} I{1030} J{1031} NTS{1032} ENDERS{1033} STEPS{1034} NAMES{1035} TOKS{1036} STATES{1037} NT*{1038} NB-NTS{1039} L{1042} TREES{1043} CONF{1044} GRAMMAR{1082} NTS{1083} STARTERS{1084} ENDERS{1085} PREDICTORS{1086} STEPS{1087} NAMES{1088} NB-NTS{1091} DEFS{1095} CONF{1096} DEF{1097} RULES{1101} CONF{1102} RULE-NUM{1103} RULE{1104} L{1109} CONF{1110} NT{1111} I{1118} CONF{1122} NTS{1124} CLASS{1125} I{1126} GRAMMAR{1127} DEFS{1132} NTS{1133} DEF{1134} RULES{1138} NTS{1139} RULE{1140} L{1143} NTS{1144} NT{1145} NT{1146} NTS{1147} NTS{1149} I{1152} GRAMMAR{1153} DEFS{1156} NB-CONFS{1157} DEF{1158} RULES{1161} NB-CONFS{1162} RULE{1163} L{1166} NB-CONFS{1167} PARSE{1176} I{1178} J{1179} NTS{1180} ENDERS{1181} STEPS{1182} NAMES{1183} TOKS{1184} STATES{1185} DERIV-TREES*{1186} P{1197} X{1198} L{1199} LIST{1267} K{1270} S{1272} OBJ{2596} OBJS{2614} OBJS{2615} OBJS{2616} OBJS{2617} CONF-SET{2630} I{2631} CONF-SET{2632} I{2633} CONF-SET{2636} I{2637} CONF-SET{2638} I{2639} CONF-SET{2641} STATE{2644} CONF{2645} STATE{2658} CONF{2659} I{2660} CONF-SET{2661} STATE{2662} CONF{2663} I{2664} CONF-SET{2665} STATE{2686} STATE-NUM{2687} CONF{2688} CONF-SET{2689} CONF-SET{2690} STATE{2696} STATE-NUM{2697} CONF{2698} CONF-SET{2699} CONF-SET{2700} STATE{2715} CONF-SET{2716} CONF{2717} I{2718} TAIL{2719} STATE{2724} CONF-SET{2725} CONF{2726} I{2727} TAIL{2728} STATES{2733} STATES*{2734} STATE-NUM{2735} CONF{2736} I{2737} STATE{2738} STATE*{2739} CONF-SET*{2740} STATES{2742} STATES*{2743} STATE-NUM{2744} CONF{2745} I{2746} STATE{2747} STATE*{2748} CONF-SET*{2749} NTS{2752} NT{2753} NTS{2754} I{2757} NTS{2759} I{2762} CONF{2768} NT{2769} NTS{2770} CLASS{2771} I{2772} CONF{2773} NTS{2775} CLASS{2776} I{2777} STATES{2778} STATE-NUM{2779} L{2780} I{2781} STATE{2782} L1{2785} CONF{2786} CONF-SET{2787} OBJ{2802} NTS{2805} I{2808} NT{2809} NTS{2810} I{2813} STATE{2814} CONF{2815} STATE{2816} STATE-NUM{2817} CONF{2818} CONF-SET{2819} CONF-SET{2820} STATE{2826} CONF{2827} CONF-SET{2828} I{2829} STATE{2830} CONF-SET{2831} CONF{2832} I{2833} TAIL{2834} STATE{2839} CONF{2840} I{2841} CONF-SET{2842} CONF-SET{2843} I{2844} STATE{2845} STATE-NUM{2846} CONF{2847} CONF-SET{2848} CONF-SET{2849} STATE{2855} CONF{2856} CONF-SET{2857} I{2858} STATE{2859} CONF-SET{2860} CONF{2861} I{2862} TAIL{2863} CONF-SET{2868} I{2869} STATE{2870} CONF{2871} STATE{2872} CONF{2873} I{2874} CONF-SET{2875} CONF-SET{2876} I{2877} STATE{2878} STATE-NUM{2879} CONF{2880} CONF-SET{2881} CONF-SET{2882} STATE{2888} CONF{2889} CONF-SET{2890} I{2891} STATE{2892} CONF-SET{2893} CONF{2894} I{2895} TAIL{2896} CONF-SET{2901} I{2902} The following non-trivial in-line native procedures will be generated: [clone CONF-SET-NEXT[76] 2658] has the following parameters: CONF-SET{2923} local I{2924} local [clone [inside CONF-SET-ADJOIN 80] 2653] has the following parameter: TAIL{2918} local [clone CONF-SET-ADJOIN[79] 2652] has the following parameters: STATE{2914} local CONF-SET{2915} local CONF{2916} local I{2917} local [clone CONF-SET-NEXT[76] 2651] has the following parameters: CONF-SET{2912} local I{2913} local [clone CONF-SET-NEXT[76] 2650] has the following parameters: CONF-SET{2910} local I{2911} local [clone CONF-SET-HEAD[75] 2649] has the following parameter: CONF-SET{2909} local [clone CONF-SET-GET[68] 2648] has the following parameters: STATE{2907} local CONF{2908} local [clone CONF-SET-GET[68] 2647] has the following parameters: STATE{2905} local CONF{2906} local [clone CONF-SET-NEXT[76] 2646] has the following parameters: CONF-SET{2903} local I{2904} local [clone CONF-SET-NEXT[76] 2645] has the following parameters: CONF-SET{2901} local I{2902} local [clone [inside CONF-SET-ADJOIN 80] 2640] has the following parameter: TAIL{2896} local [clone CONF-SET-ADJOIN[79] 2639] has the following parameters: STATE{2892} local CONF-SET{2893} local CONF{2894} local I{2895} local [clone CONF-SET-NEXT[76] 2638] has the following parameters: CONF-SET{2890} local I{2891} local [clone CONF-SET-GET[68] 2637] has the following parameters: STATE{2888} local CONF{2889} local [clone [inside CONF-SET-GET* 71] 2635] has the following parameter: CONF-SET{2882} local [clone [inside CONF-SET-GET* 70] 2634] has the following parameter: CONF-SET{2881} local [clone CONF-SET-GET*[69] 2633] has the following parameters: STATE{2878} local STATE-NUM{2879} local CONF{2880} local [clone CONF-SET-NEXT[76] 2632] has the following parameters: CONF-SET{2876} local I{2877} local [clone [inside CONF-SET-MEMBER? 78] 2631] has the following parameter: CONF-SET{2875} local [clone CONF-SET-MEMBER?[77] 2630] has the following parameters: STATE{2872} local CONF{2873} local I{2874} local [clone CONF-SET-GET[68] 2629] has the following parameters: STATE{2870} local CONF{2871} local [clone CONF-SET-NEXT[76] 2628] has the following parameters: CONF-SET{2868} local I{2869} local [clone [inside CONF-SET-ADJOIN 80] 2623] has the following parameter: TAIL{2863} local [clone CONF-SET-ADJOIN[79] 2622] has the following parameters: STATE{2859} local CONF-SET{2860} local CONF{2861} local I{2862} local [clone CONF-SET-NEXT[76] 2621] has the following parameters: CONF-SET{2857} local I{2858} local [clone CONF-SET-GET[68] 2620] has the following parameters: STATE{2855} local CONF{2856} local [clone [inside CONF-SET-GET* 71] 2618] has the following parameter: CONF-SET{2849} local [clone [inside CONF-SET-GET* 70] 2617] has the following parameter: CONF-SET{2848} local [clone CONF-SET-GET*[69] 2616] has the following parameters: STATE{2845} local STATE-NUM{2846} local CONF{2847} local [clone CONF-SET-NEXT[76] 2615] has the following parameters: CONF-SET{2843} local I{2844} local [clone [inside CONF-SET-MEMBER? 78] 2614] has the following parameter: CONF-SET{2842} local [clone CONF-SET-MEMBER?[77] 2613] has the following parameters: STATE{2839} local CONF{2840} local I{2841} local [clone [inside CONF-SET-ADJOIN 80] 2608] has the following parameter: TAIL{2834} local [clone CONF-SET-ADJOIN[79] 2607] has the following parameters: STATE{2830} local CONF-SET{2831} local CONF{2832} local I{2833} local [clone CONF-SET-NEXT[76] 2606] has the following parameters: CONF-SET{2828} local I{2829} local [clone CONF-SET-GET[68] 2605] has the following parameters: STATE{2826} local CONF{2827} local [clone [inside CONF-SET-GET* 71] 2603] has the following parameter: CONF-SET{2820} local [clone [inside CONF-SET-GET* 70] 2602] has the following parameter: CONF-SET{2819} local [clone CONF-SET-GET*[69] 2601] has the following parameters: STATE{2816} local STATE-NUM{2817} local CONF{2818} local [clone CONF-SET-GET[68] 2600] has the following parameters: STATE{2814} local CONF{2815} local [clone LOOP[390] 2598] has the following parameter: I{2813} local [clone IND[387] 2595] has the following parameters: NT{2809} local NTS{2810} local [clone LOOP[390] 2593] has the following parameter: I{2808} local [clone IND[387] 2590] has the following parameter: NTS{2805} local [clone DISPLAY[2204] 2586] has the following parameter: OBJ{2802} local [clone LOOP[511] 2581] has the following parameter: K{2800} local [clone LIST-LENGTH[508] 2578] has the following parameter: LIST{2797} local [clone LOOP[107] 2573] has the following parameter: I{2795} local [clone CONF-SET-UNION[104] 2570] has the following parameters: STATE{2789} local CONF-SET{2790} local CONF{2791} local OTHER-SET{2792} local [clone [inside LOOP 91] 2564] has the following parameter: CONF-SET{2787} local [clone [inside LOOP 90] 2563] has the following parameter: CONF{2786} local [clone LOOP[89] 2562] has the following parameter: L1{2785} local [clone [inside CONF-SET-ADJOIN* 86] 2559] has the following parameter: STATE{2782} local [clone CONF-SET-ADJOIN*[85] 2558] has the following parameters: STATES{2778} local STATE-NUM{2779} local L{2780} local I{2781} local [clone [inside ADD-CONF 362] 2557] has the following parameter: I{2777} local [clone ADD-CONF[361] 2556] has the following parameters: CONF{2773} local NTS{2775} local CLASS{2776} local [clone [inside ADD-CONF 362] 2555] has the following parameter: I{2772} local [clone ADD-CONF[361] 2554] has the following parameters: CONF{2768} local NT{2769} local NTS{2770} local CLASS{2771} local [clone LOOP[50] 2552] has the following parameter: I{2767} local [clone IND[47] 2549] has the following parameters: NT{2763} local NTS{2764} local [clone LOOP[390] 2547] has the following parameter: I{2762} local [clone IND[387] 2544] has the following parameter: NTS{2759} local [clone LOOP[390] 2542] has the following parameter: I{2757} local [clone IND[387] 2539] has the following parameters: NT{2753} local NTS{2754} local [clone ADD-NT[385] 2538] has the following parameter: NTS{2752} local [clone [inside CONF-SET-ADJOIN** 100] 2534] has the following parameter: CONF-SET*{2749} local [clone [inside CONF-SET-ADJOIN** 99] 2533] has the following parameter: STATE*{2748} local [clone [inside CONF-SET-ADJOIN** 98] 2532] has the following parameter: STATE{2747} local [clone CONF-SET-ADJOIN**[97] 2531] has the following parameters: STATES{2742} local STATES*{2743} local STATE-NUM{2744} local CONF{2745} local I{2746} local [clone [inside CONF-SET-ADJOIN** 100] 2527] has the following parameter: CONF-SET*{2740} local [clone [inside CONF-SET-ADJOIN** 99] 2526] has the following parameter: STATE*{2739} local [clone [inside CONF-SET-ADJOIN** 98] 2525] has the following parameter: STATE{2738} local [clone CONF-SET-ADJOIN**[97] 2524] has the following parameters: STATES{2733} local STATES*{2734} local STATE-NUM{2735} local CONF{2736} local I{2737} local [clone [inside CONF-SET-ADJOIN 80] 2519] has the following parameter: TAIL{2728} local [clone CONF-SET-ADJOIN[79] 2518] has the following parameters: STATE{2724} local CONF-SET{2725} local CONF{2726} local I{2727} local [clone [inside CONF-SET-ADJOIN 80] 2513] has the following parameter: TAIL{2719} local [clone CONF-SET-ADJOIN[79] 2512] has the following parameters: STATE{2715} local CONF-SET{2716} local CONF{2717} local I{2718} local [clone [inside CONF-SET-ADJOIN 80] 2507] has the following parameter: TAIL{2710} local [clone CONF-SET-ADJOIN[79] 2506] has the following parameters: STATE{2706} local CONF-SET{2707} local CONF{2708} local I{2709} local [clone [inside CONF-SET-GET* 71] 2504] has the following parameter: CONF-SET{2700} local [clone [inside CONF-SET-GET* 70] 2503] has the following parameter: CONF-SET{2699} local [clone CONF-SET-GET*[69] 2502] has the following parameters: STATE{2696} local STATE-NUM{2697} local CONF{2698} local [clone [inside CONF-SET-GET* 71] 2500] has the following parameter: CONF-SET{2690} local [clone [inside CONF-SET-GET* 70] 2499] has the following parameter: CONF-SET{2689} local [clone CONF-SET-GET*[69] 2498] has the following parameters: STATE{2686} local STATE-NUM{2687} local CONF{2688} local [clone [inside CONF-SET-GET* 71] 2496] has the following parameter: CONF-SET{2680} local [clone [inside CONF-SET-GET* 70] 2495] has the following parameter: CONF-SET{2679} local [clone CONF-SET-GET*[69] 2494] has the following parameters: STATE{2676} local STATE-NUM{2677} local CONF{2678} local [clone [inside CONF-SET-GET* 71] 2492] has the following parameter: CONF-SET{2670} local [clone [inside CONF-SET-GET* 70] 2491] has the following parameter: CONF-SET{2669} local [clone CONF-SET-GET*[69] 2490] has the following parameters: STATE{2666} local STATE-NUM{2667} local CONF{2668} local [clone [inside CONF-SET-MEMBER? 78] 2489] has the following parameter: CONF-SET{2665} local [clone CONF-SET-MEMBER?[77] 2488] has the following parameters: STATE{2662} local CONF{2663} local I{2664} local [clone [inside CONF-SET-MEMBER? 78] 2487] has the following parameter: CONF-SET{2661} local [clone CONF-SET-MEMBER?[77] 2486] has the following parameters: STATE{2658} local CONF{2659} local I{2660} local [clone [inside CONF-SET-MEMBER? 78] 2485] has the following parameter: CONF-SET{2657} local [clone CONF-SET-MEMBER?[77] 2484] has the following parameters: STATE{2654} local CONF{2655} local I{2656} local [clone LOOP[618] 2482] has the following parameters: LIST{2652} local R{2653} local [clone LIST-REVERSE[615] 2479] has the following parameter: LIST{2649} local [clone CONF-SET-GET[68] 2474] has the following parameters: STATE{2646} local CONF{2647} local [clone CONF-SET-GET[68] 2473] has the following parameters: STATE{2644} local CONF{2645} local [clone CONF-SET-GET[68] 2472] has the following parameters: STATE{2642} local CONF{2643} local [clone CONF-SET-HEAD[75] 2471] has the following parameter: CONF-SET{2641} local [clone CONF-SET-HEAD[75] 2470] has the following parameter: CONF-SET{2640} local [clone CONF-SET-NEXT[76] 2469] has the following parameters: CONF-SET{2638} local I{2639} local [clone CONF-SET-NEXT[76] 2468] has the following parameters: CONF-SET{2636} local I{2637} local [clone CONF-SET-NEXT[76] 2467] has the following parameters: CONF-SET{2634} local I{2635} local [clone CONF-SET-NEXT[76] 2466] has the following parameters: CONF-SET{2632} local I{2633} local [clone CONF-SET-NEXT[76] 2465] has the following parameters: CONF-SET{2630} local I{2631} local [clone CONF-SET-NEXT[76] 2464] has the following parameters: CONF-SET{2628} local I{2629} local [clone CONF-SET-NEXT[76] 2463] has the following parameters: CONF-SET{2626} local I{2627} local [clone CONF-SET-NEXT[76] 2462] has the following parameters: CONF-SET{2624} local I{2625} local [clone CONF-SET-NEXT[76] 2461] has the following parameters: CONF-SET{2622} local I{2623} local [clone CONF-SET-NEXT[76] 2460] has the following parameters: CONF-SET{2620} local I{2621} local [clone CONF-SET-NEXT[76] 2459] has the following parameters: CONF-SET{2618} local I{2619} local [clone LIST[507] 2458] has the following parameter: OBJS{2617} local [clone LIST[507] 2457] has the following parameter: OBJS{2616} local [clone LIST[507] 2456] has the following parameter: OBJS{2615} local [clone LIST[507] 2455] has the following parameter: OBJS{2614} local [clone LIST[507] 2454] has the following parameter: OBJS{2613} local [clone LIST[507] 2453] has the following parameter: OBJS{2612} local [clone LIST[507] 2452] has the following parameter: OBJS{2611} local [clone LIST[507] 2451] has the following parameter: OBJS{2610} local [clone LIST[507] 2450] has the following parameter: OBJS{2609} local DISPLAY[2204] has the following parameter: OBJ{2596} local LOOP[1721] has the following parameter: I{2301} local [inside DISPLAY-STRING2 1718] has the following parameter: N{2298} local DISPLAY-STRING2[1717] has the following parameters: STRING{2296} local PORT{2297} local [inside top level 1713] has the following parameter: THE-CURRENT-OUTPUT-PORT{2257} global LOOP[1238] has the following parameters: LIST1{1972} local C{1973} local LOOP[1158] has the following parameter: K{1906} local [inside LIST->VECTOR 1154] has the following parameter: R{1902} local LOOP[618] has the following parameters: LIST{1344} local R{1345} local LIST-REVERSE[615] has the following parameter: LIST{1341} local LOOP[588] has the following parameter: SS{1323} local LOOP[560] has the following parameter: SS{1302} local [inside LOOP 549] has the following parameter: v{1294} local [inside LOOP 548] has the following parameter: v{1293} local LOOP[547] has the following parameter: SS{1292} local LENGTH[516] has the following parameter: S{1272} local LOOP[511] has the following parameter: K{1270} local LIST-LENGTH[508] has the following parameter: LIST{1267} local LIST[507] has the following parameter: OBJS{1266} local [inside EQUAL? 456] has the following parameter: v{1213} local [inside EQUAL? 455] reentrant has the following parameter: v{1212} local [inside EQV? 451] has the following parameter: v{1206} local [inside EQV? 450] has the following parameter: v{1205} local EQV?[449] has the following parameters: OBJ1{1203} local OBJ2{1204} local [inside TEST 437] has the following parameter: X{1200} local [inside TEST 436] has the following parameter: L{1199} local [inside TEST 435] has region has the following parameter: X{1198} local [inside TEST 434] has region has the following parameter: P{1197} local TEST[433] has region [inside PARSE->TREES 423] has the following parameter: DERIV-TREES*{1186} local [inside PARSE->TREES 422] has the following parameter: STATES{1185} local [inside PARSE->TREES 421] has the following parameter: TOKS{1184} local [inside PARSE->TREES 420] has the following parameter: NAMES{1183} local [inside PARSE->TREES 419] has the following parameter: STEPS{1182} local [inside PARSE->TREES 418] has the following parameter: ENDERS{1181} local [inside PARSE->TREES 417] has the following parameter: NTS{1180} local PARSE->TREES[416] has the following parameters: PARSE{1176} local I{1178} local J{1179} local LOOP[403] has the following parameters: L{1166} local NB-CONFS{1167} local [inside RULE-LOOP 400] has the following parameter: RULE{1163} local RULE-LOOP[399] has the following parameters: RULES{1161} local NB-CONFS{1162} local [inside DEF-LOOP 396] has the following parameter: DEF{1158} local DEF-LOOP[395] has the following parameters: DEFS{1156} local NB-CONFS{1157} local NB-CONFIGURATIONS[392] has the following parameter: GRAMMAR{1153} local LOOP[390] has the following parameter: I{1152} local IND[387] has the following parameter: NTS{1149} local ADD-NT[385] has the following parameters: NT{1146} local NTS{1147} local [inside LOOP 381] has the following parameter: NT{1145} local LOOP[380] has the following parameters: L{1143} local NTS{1144} local [inside RULE-LOOP 377] has the following parameter: RULE{1140} local RULE-LOOP[376] has the following parameters: RULES{1138} local NTS{1139} local [inside DEF-LOOP 371] has the following parameter: DEF{1134} local DEF-LOOP[370] has region has the following parameters: DEFS{1132} local NTS{1133} local NON-TERMINALS[365] has the following parameter: GRAMMAR{1127} local [inside ADD-CONF 362] has the following parameter: I{1126} local ADD-CONF[361] has the following parameters: CONF{1122} local NTS{1124} local CLASS{1125} local NT-LOOP[356] has the following parameter: I{1118} local [inside LOOP 346] has the following parameter: NT{1111} local LOOP[345] has the following parameters: L{1109} local CONF{1110} local [inside RULE-LOOP 341] has the following parameter: RULE{1104} local RULE-LOOP[340] has the following parameters: RULES{1101} local CONF{1102} local RULE-NUM{1103} local [inside DEF-LOOP 335] has the following parameter: DEF{1097} local DEF-LOOP[334] has the following parameters: DEFS{1095} local CONF{1096} local [inside SETUP-TABLES 330] has the following parameter: NB-NTS{1091} local SETUP-TABLES[327] has the following parameters: GRAMMAR{1082} local NTS{1083} local STARTERS{1084} local ENDERS{1085} local PREDICTORS{1086} local STEPS{1087} local NAMES{1088} local [inside LOOP 278] has the following parameter: CONF{1044} local LOOP[277] has region has the following parameters: L{1042} local TREES{1043} local [inside DERIV-TREES* 274] has the following parameter: NB-NTS{1039} local [inside DERIV-TREES* 273] has the following parameter: NT*{1038} local DERIV-TREES*[272] has the following parameters: I{1030} local J{1031} local NTS{1032} local ENDERS{1033} local STEPS{1034} local NAMES{1035} local TOKS{1036} local STATES{1037} local LOOP4[267] reentrant has the following parameters: L4{1027} local L2{1028} local [inside LOOP3 264] reentrant has the following parameter: ENDER-TREE{1024} local LOOP3[263] reentrant has the following parameters: L3{1022} local L2{1023} local [inside LOOP2 260] reentrant has the following parameters: ENDER-TREES{1018} local PREV-TREES{1019} local LOOP2[259] reentrant has the following parameters: K{1016} local L2{1017} local [inside LOOP1 256] reentrant [inside LOOP1 255] reentrant has the following parameter: ENDER-SET{1013} local [inside LOOP1 254] reentrant has the following parameter: ENDER{1012} local LOOP1[253] reentrant has region has the following parameters: L1{1010} local L2{1011} local [inside DERIV-TREES 250] reentrant has the following parameter: PREV{1007} local [inside DERIV-TREES 249] reentrant has the following parameter: NAME{1006} local LOOP2[235] has the following parameter: I{983} local [inside LOOP1 229] has the following parameter: CONF{979} local LOOP1[228] has the following parameter: L{978} local [inside BACKWARD 223] has the following parameter: GOAL-ENDERS{973} local [inside BACKWARD 222] has the following parameter: STATES*{972} local [inside BACKWARD 221] has the following parameter: NB-NTS{971} local [inside BACKWARD 220] has the following parameter: NB-CONFS{970} local [inside BACKWARD 219] has the following parameter: NB-TOKS{969} local BACKWARD[218] has the following parameters: STATES{964} local ENDERS{965} local STEPS{966} local NTS{967} local TOKS{968} local LOOP2[212] has the following parameter: I{962} local [inside LOOP1 207] has the following parameter: HEAD{957} local [inside LOOP1 206] has the following parameter: CONF-SET{956} local [inside LOOP1 205] has the following parameter: CONF{955} local [inside BACK 201] has the following parameter: STATE*{952} local BACK[200] has the following parameters: STATES{945} local STATES*{946} local STATE-NUM{947} local ENDERS{948} local STEPS{949} local NB-NTS{950} local LOOP2[193] has the following parameter: K{943} local [inside LOOP1 189] has the following parameter: ENDER-SET{940} local [inside LOOP1 188] has the following parameter: ENDER{939} local LOOP1[187] has the following parameter: L{938} local [inside PRODUCE 184] has the following parameter: PREV{935} local PRODUCE[183] has the following parameters: CONF{926} local I{927} local J{928} local ENDERS{929} local STEPS{930} local STATES{932} local STATES*{933} local NB-NTS{934} local [inside LOOP 179] has the following parameter: TOK-NTS{923} local LOOP[178] has the following parameter: I{922} local [inside FORWARD 173] has the following parameter: GOAL-STARTERS{916} local [inside FORWARD 172] has the following parameter: STATES{915} local [inside FORWARD 171] has the following parameter: NB-CONFS{914} local [inside FORWARD 170] has the following parameter: NB-TOKS{913} local FORWARD[169] has the following parameters: STARTERS{907} local ENDERS{908} local PREDICTORS{909} local STEPS{910} local NTS{911} local TOKS{912} local [inside LOOP2 161] has the following parameter: NEXT-SET{906} local [inside LOOP2 160] has the following parameter: NEXT{905} local [inside LOOP2 158] has the following parameter: PRED-SET{903} local LOOP2[157] has the following parameter: I{902} local [inside LOOP1 154] has the following parameter: PRED{899} local LOOP1[153] has the following parameter: L{898} local REDUCE[150] has the following parameters: STATES{890} local STATE{891} local STATE-NUM{892} local CONF-SET{893} local HEAD{894} local PREDS{895} local [inside LOOP1 144] has the following parameter: STARTER-SET{888} local [inside LOOP1 143] has the following parameter: STARTER{887} local LOOP1[142] has the following parameter: L{886} local [inside LOOP2 135] has the following parameter: NEXT-SET{882} local [inside LOOP2 134] has the following parameter: NEXT{881} local [inside LOOP2 133] has the following parameter: ENDER{880} local LOOP2[132] has the following parameter: L{879} local PREDICT[128] has the following parameters: STATE{869} local STATE-NUM{870} local CONF-SET{871} local CONF{872} local NT{873} local STARTERS{874} local ENDERS{875} local [inside LOOP 125] has the following parameter: PREDS{868} local [inside LOOP 122] has the following parameter: HEAD{864} local [inside LOOP 121] has the following parameter: CONF-SET{863} local [inside LOOP 120] has the following parameter: STEP{862} local [inside LOOP 119] has the following parameter: CONF{861} local [inside FORW 115] has the following parameters: NB-NTS{857} local STATE{858} local LOOP[107] has the following parameter: I{844} local CONF-SET-UNION[104] has the following parameters: STATE{838} local CONF-SET{839} local CONF{840} local OTHER-SET{841} local [inside CONF-SET-ADJOIN** 100] has the following parameter: CONF-SET*{836} local [inside CONF-SET-ADJOIN** 99] has the following parameter: STATE*{835} local [inside CONF-SET-ADJOIN** 98] has the following parameter: STATE{834} local CONF-SET-ADJOIN**[97] has the following parameters: STATES{829} local STATES*{830} local STATE-NUM{831} local CONF{832} local I{833} local [inside LOOP 91] has the following parameter: CONF-SET{827} local [inside LOOP 90] has the following parameter: CONF{826} local LOOP[89] has the following parameter: L1{825} local [inside CONF-SET-ADJOIN* 86] has the following parameter: STATE{822} local CONF-SET-ADJOIN*[85] has the following parameters: STATES{818} local STATE-NUM{819} local L{820} local I{821} local [inside CONF-SET-ADJOIN 80] has the following parameter: TAIL{813} local CONF-SET-ADJOIN[79] has the following parameters: STATE{809} local CONF-SET{810} local CONF{811} local I{812} local [inside CONF-SET-MEMBER? 78] has the following parameter: CONF-SET{808} local CONF-SET-MEMBER?[77] has the following parameters: STATE{805} local CONF{806} local I{807} local CONF-SET-NEXT[76] has the following parameters: CONF-SET{803} local I{804} local CONF-SET-HEAD[75] has the following parameter: CONF-SET{802} local [inside CONF-SET-GET* 71] has the following parameter: CONF-SET{792} local [inside CONF-SET-GET* 70] has the following parameter: CONF-SET{791} local CONF-SET-GET*[69] has the following parameters: STATE{788} local STATE-NUM{789} local CONF{790} local CONF-SET-GET[68] has the following parameters: STATE{786} local CONF{787} local [inside LOOP 65] has the following parameter: V{783} local LOOP[64] has the following parameter: I{782} local [inside MAKE-STATES 61] has the following parameter: STATES{779} local [inside INPUT->TOKENS 59] has the following parameter: TOK{776} local INPUT->TOKENS[58] has region has the following parameters: INPUT{773} local LEXER{774} local NTS{775} global [inside LOOP 56] has the following parameter: I{772} local LOOP[55] has region has the following parameters: L1{770} local L2{771} local COMP-TOK[52] has the following parameters: TOK{766} local NTS{767} local LOOP[50] has the following parameter: I{765} local IND[47] has the following parameter: NTS{762} local [inside MAKE-PARSER 45] has the following parameter: TOKS{760} local [inside MAKE-PARSER 44] has the following parameter: NAMES{759} local [inside MAKE-PARSER 43] has parent parameter [inside MAKE-PARSER 34] has the following parameter: STEPS{758} local [inside MAKE-PARSER 42] has parent parameter [inside MAKE-PARSER 34] has the following parameter: PREDICTORS{757} local [inside MAKE-PARSER 41] has parent parameter [inside MAKE-PARSER 34] has the following parameter: ENDERS{756} local [inside MAKE-PARSER 40] has parent parameter [inside MAKE-PARSER 34] has the following parameter: STARTERS{755} local [inside MAKE-PARSER 39] has parent parameter [inside MAKE-PARSER 34] has the following parameter: NTS{754} local [inside MAKE-PARSER 38] has parent parameter [inside MAKE-PARSER 34] has the following parameter: LEXER{753} local [inside MAKE-PARSER 37] has parent parameter [inside MAKE-PARSER 34] [inside MAKE-PARSER 36] has parent parameter [inside MAKE-PARSER 34] [inside MAKE-PARSER 35] has parent parameter [inside MAKE-PARSER 34] has the following parameter: INPUT{704} local [inside MAKE-PARSER 34] has closure has the following parameter: PARSER-DESCR{703} slotted [inside MAKE-PARSER 30] has the following parameter: NAMES{699} local [inside MAKE-PARSER 29] has the following parameter: STEPS{698} local [inside MAKE-PARSER 28] has the following parameter: PREDICTORS{697} local [inside MAKE-PARSER 27] has the following parameter: ENDERS{696} local [inside MAKE-PARSER 26] has the following parameter: STARTERS{695} local [inside MAKE-PARSER 25] has the following parameter: NB-CONFS{694} local [inside MAKE-PARSER 24] has the following parameter: NB-NTS{693} local [inside MAKE-PARSER 23] has the following parameter: NTS{692} local MAKE-PARSER[20] has the following parameter: GRAMMAR{684} local LOOP[16] has the following parameters: I{680} local RESULT{681} local RUN-BENCH[13] has the following parameter: COUNT{675} local RUN-BENCHMARK[8] has the following parameter: COUNT{669} local [inside top level 7] has the following parameter: RESULT{667} local The following expression, earley-stalin.sc:289:10285, allocates on [inside TEST 434]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) STATE-NUM 6) #F) The following expression, earley-stalin.sc:289:10285, allocates on [inside TEST 434]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) STATE-NUM 6) #F) The following expression, earley-stalin.sc:289:10285, allocates on [inside TEST 434]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) STATE-NUM 6) #F) The following expression, earley-stalin.sc:207:7773, allocates on TEST[433]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) CONF ((PRIMITIVE-PROCEDURE VECTOR-REF) CLASS I)) The following expression, earley-stalin.sc:207:7773, allocates on TEST[433]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) CONF ((PRIMITIVE-PROCEDURE VECTOR-REF) CLASS I)) The following expression, earley-stalin.sc:149:5554, allocates on DEF-LOOP[370]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NT NTS) The following expression, earley-stalin.sc:289:10285, allocates on [inside TEST 434]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) STATE-NUM 6) #F) The following expression, earley-stalin.sc:289:10285, allocates on [inside TEST 434]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) STATE-NUM 6) #F) The following expression, earley-stalin.sc:289:10285, allocates on [inside TEST 434]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) STATE-NUM 6) #F) The following expression, earley-stalin.sc:289:10285, allocates on [inside TEST 434]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) STATE-NUM 6) #F) The following expression allocates on TEST[433]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC (# LIST1)) C) The following expression allocates on TEST[433]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH LIST)) The following expression allocates on INPUT->TOKENS[58]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on [inside TEST 435]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1) (LOOP (# LIST1) LIST2 LISTS)) The following expression, earley-stalin.sc:645:22954, allocates on TEST[433]: (LIST X X) The following expression, earley-stalin.sc:149:5554, allocates on DEF-LOOP[370]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NT NTS) The following expression, earley-stalin.sc:197:7277, allocates on TEST[433]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) NB-NTS '()) The following expression, earley-stalin.sc:198:7345, allocates on TEST[433]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) NB-NTS '()) The following expression, earley-stalin.sc:199:7417, allocates on TEST[433]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) NB-NTS '()) The following expression, earley-stalin.sc:200:7484, allocates on TEST[433]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) NB-CONFS #F) The following expression, earley-stalin.sc:201:7553, allocates on TEST[433]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) NB-CONFS #F) The following expression, earley-stalin.sc:207:7773, allocates on TEST[433]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) CONF ((PRIMITIVE-PROCEDURE VECTOR-REF) CLASS I)) The following expression, earley-stalin.sc:215:8024, allocates on TEST[433]: (LIST I) The following expression, earley-stalin.sc:214:7971, allocates on TEST[433]: (LIST ((PRIMITIVE-PROCEDURE VECTOR-REF) NTS I) 0) The following expression, earley-stalin.sc:225:8333, allocates on TEST[433]: (LIST HEAD RULE-NUM) The following expression, earley-stalin.sc:246:9052, allocates on TEST[433]: ((PRIMITIVE-PROCEDURE VECTOR) LEXER NTS STARTERS ENDERS PREDICTORS STEPS NAMES) The following expression, earley-stalin.sc:544:19540, allocates on LOOP[277]: (APPEND (DERIV-TREES CONF I J ENDERS STEPS NAMES TOKS STATES NB-NTS) TREES) The following expression, earley-stalin.sc:521:18571, allocates on [inside TEST 435]: (LIST ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) L3)) The following expression, earley-stalin.sc:525:18767, allocates on [inside TEST 435]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (APPEND (# L4) ENDER-TREE) L2) The following expression, earley-stalin.sc:525:18773, allocates on LOOP1[253]: (APPEND ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) L4) ENDER-TREE) The following expression, earley-stalin.sc:499:17763, allocates on [inside TEST 435]: (LIST (LIST NAME)) The following expression, earley-stalin.sc:499:17769, allocates on [inside TEST 435]: (LIST NAME) The following expression, earley-stalin.sc:498:17711, allocates on [inside TEST 435]: (LIST (LIST NAME (# #))) The following expression, earley-stalin.sc:498:17717, allocates on [inside TEST 435]: (LIST NAME ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) (# TOKS I))) The following expression, earley-stalin.sc:289:10285, allocates on [inside TEST 434]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) STATE-NUM 6) #F) The following expression, earley-stalin.sc:274:9844, allocates on [inside TEST 434]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) NB-TOKS 1) #F) The following expression, earley-stalin.sc:277:9940, allocates on [inside TEST 434]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) NB-CONFS 1) #F) The following expression, earley-stalin.sc:268:9628, allocates on TEST[433]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TOK) (REVERSE L2)) The following expression, earley-stalin.sc:266:9583, allocates on LOOP[55]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) I L2) The following expression, earley-stalin.sc:604:21679, allocates on [inside TEST 434]: ((PRIMITIVE-PROCEDURE VECTOR) NTS STARTERS ENDERS PREDICTORS STEPS NAMES TOKS (BACKWARD (FORWARD STARTERS ENDERS PREDICTORS STEPS NTS TOKS) ENDERS STEPS NTS TOKS) PARSED? DERIV-TREES* NB-DERIV-TREES*) The following expression, earley-stalin.sc:10:338, allocates on the heap: (LIST 'UNDEFINED) The closure for [inside MAKE-PARSER 34] is allocated on TEST[433] Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W18597 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 3% - Expanding macros 3 - 4% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 1 - 1% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 15 - 21% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 9 - 12% - Determining which call sites to split 0 - 0% - Computing call graph 1 - 1% - Determining which environments are called more than once 1 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 11 - 15% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 1 - 1% - Determining which environments are recursive 2 - 2% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 16 - 22% - Performing lightweight closure conversion 0 - 0% - Determining parents 1 - 1% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 1% - Determining blocked environments 0 - 0% - Determining allocations 2 - 3% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 2 - 3% - Generating code 2 - 3% - Removing unused declarations 1 - 1% - Removing unused labels 0 - 1% - Writing database 0 - 0% - Compiling C code 73.65user 1.38system 1:32.76elapsed 80%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32721major+221598minor)pagefaults 0swaps run earley 20.71user 0.00system 0:21.25elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (95major+251minor)pagefaults 0swaps compile scheme Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 20949 expressions 0 internal symbol types 10 external symbol types 82 primitive procedure types 58 non-called native procedure types 568 called noop native procedure types 1966 called non-noop native procedure types 1 foreign procedure type 0 continuation types 10 string types 1 structure type 20 headed vector types 1 nonheaded vector type 0 displaced vector types 23900 type sets 925 hunoz variables 2003 non-hunoz variables 598 noop environments 2175 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 1 Determining which call sites to split 1 pass of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 19477 expressions 0 internal symbol types 10 external symbol types 82 primitive procedure types 58 non-called native procedure types 568 called noop native procedure types 1966 called non-noop native procedure types 1 foreign procedure type 0 continuation types 10 string types 1 structure type 20 headed vector types 1 nonheaded vector type 0 displaced vector types 22215 type sets 884 hunoz variables 1831 non-hunoz variables 0 noop environments 1966 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 1 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: WRITE-CHAR[2535] has the following parameters: CHAR{2918} local &REST{2919} local NEWLINE[2531] has the following parameter: &REST{2917} local DISPLAY[2527] has the following parameters: OBJ{2915} local &REST{2916} local WRITE[2523] has the following parameters: OBJ{2913} local &REST{2914} local PEEK-CHAR[2515] has the following parameter: &REST{2911} local READ-CHAR[2511] has the following parameter: &REST{2910} local CURRENT-OUTPUT-PORT[2496] CURRENT-INPUT-PORT[2495] PARSE-NUMBER[2458] has the following parameter: N{2875} local has the following in-lined locals: C1{2876} v{2878} v{2879} v{2880} v{2881} v{2882} v{2883} v{2884} v{2885} v{2886} C2{2887} K{2889} C3{2890} K{2892} C3{2893} K{2895} PARSE-INEXACT-NUMBER[2430] has the following parameters: N{2853} local M{2854} local has the following in-lined locals: C1{2855} v{2857} v{2858} v{2859} v{2860} v{2861} v{2862} v{2863} v{2864} v{2865} C2{2866} K{2868} C3{2869} K{2871} C3{2872} K{2874} PARSE-EXACT-HEXADECIMAL-INTEGER[2423] has the following parameter: N{2850} local has the following in-lined local: C{2851} PARSE-EXACT-DECIMAL-INTEGER[2418] has the following parameter: N{2847} local has the following in-lined local: C{2848} PARSE-EXACT-OCTAL-INTEGER[2413] has the following parameter: N{2844} local has the following in-lined local: C{2845} PARSE-EXACT-BINARY-INTEGER[2407] has the following parameter: N{2841} local has the following in-lined local: C{2842} NEGATE[2406] has the following parameter: N{2840} local STRING->NUMBER[2292] has the following parameter: STRING{2773} global has the following in-lined locals: C1{2792} C2{2794} v{2796} C3{2797} C4{2799} C4{2801} v{2803} C3{2804} C4{2806} C4{2808} v{2810} C3{2811} C4{2813} C5{2815} C4{2817} C5{2819} C4{2821} v{2823} C3{2824} C4{2826} C4{2828} C2{2830} C3{2832} C2{2834} C3{2836} C2{2838} LOOP[2274] reentrant has the following parameter: MANTISSA{2761} local has the following in-lined locals: FLOAT-DIGIT{2762} DIGIT{2763} MANTISSA{2764} EXPONENT{2767} CHARACTERS{2768} EXPONENT{2771} CHARACTERS{2772} MANTISSA-EXPONENT->CHARACTERS[2265] has the following parameters: MANTISSA{2755} local EXPONENT{2756} global has the following in-lined locals: FLOAT-DIGIT{2757} DIGIT{2758} NUMBER->STRING[2221] has the following parameter: NUMBER{2727} local has the following in-lined locals: NUMBER{2730} MANTISSA{2733} EXPONENT{2734} MANTISSA{2737} EXPONENT{2738} MANTISSA{2741} EXPONENT{2742} MANTISSA{2745} EXPONENT{2746} NUMBER{2749} CHARACTERS{2750} NUMBER{2753} CHARACTERS{2754} DISPLAY2[2176] reentrant has the following parameters: OBJ{2704} local PORT{2705} local has the following in-lined locals: OBJ{2709} I{2721} WRITE2[2116] reentrant has the following parameters: OBJ{2670} local PORT{2671} local has the following in-lined locals: N{2675} I{2678} C{2679} v{2682} OBJ{2686} I{2698} DISPLAY-INEXACT-REAL2[2099] has the following parameters: NUMBER{2659} local PORT{2660} local has the following in-lined locals: MANTISSA{2664} EXPONENT{2665} MANTISSA{2668} EXPONENT{2669} DISPLAY-MANTISSA-EXPONENT2[2078] has the following parameters: MANTISSA{2643} local EXPONENT{2644} local PORT{2645} local has the following in-lined locals: FLOAT-DIGIT{2646} DIGIT{2647} MANTISSA{2654} FLOAT-DIGIT{2655} DIGIT{2656} MANTISSA{2658} DISPLAY-EXACT-INTEGER2[2049] has the following parameters: NUMBER{2622} local PORT{2623} local has the following in-lined locals: I{2626} NUMBER{2627} I{2630} I{2636} NUMBER{2637} I{2640} DISPLAY-STRING2[2040] has the following parameters: STRING{2615} local PORT{2616} local has the following in-lined locals: N{2617} I{2620} EOF-OBJECT?[2028] has the following parameter: OBJ{2573} local LOOKUP-CHARACTER-NAME[1996] has the following parameter: S{2560} local has the following in-lined locals: NAMES{2563} S{2567} NAME{2568} v{2569} READ-SYMBOL[1990] has the following parameter: S{2557} local has the following in-lined local: C{2558} CHAR-SUBSEQUENT?[1985] has the following parameter: C{2552} local has the following in-lined locals: v{2553} v{2554} v{2555} v{2556} CHAR-INITIAL?[1970] has the following parameter: C{2537} local has the following in-lined locals: v{2538} v{2539} v{2540} v{2541} v{2542} v{2543} v{2544} v{2545} v{2546} v{2547} v{2548} v{2549} v{2550} v{2551} READ-NUMBER[1936] has region has the following parameter: N{2515} local has the following in-lined locals: C1{2516} v{2519} v{2520} v{2521} v{2522} v{2523} v{2524} v{2525} v{2526} v{2527} C2{2529} C3{2531} C3{2534} READ-INEXACT-NUMBER[1904] has region has the following parameters: N{2493} local M{2494} local has the following in-lined locals: C1{2495} v{2497} v{2498} v{2499} v{2500} v{2501} v{2502} v{2503} v{2504} v{2505} C2{2507} C3{2509} C3{2512} READ-EXACT-HEXADECIMAL-INTEGER[1894] has region has the following parameter: N{2488} local has the following in-lined local: C{2489} READ-EXACT-DECIMAL-INTEGER[1888] has region has the following parameter: N{2485} local has the following in-lined local: C{2486} READ-EXACT-OCTAL-INTEGER[1882] has region has the following parameter: N{2482} local has the following in-lined local: C{2483} READ-EXACT-BINARY-INTEGER[1874] has region has the following parameter: N{2478} local has the following in-lined local: C{2479} READ[1641] reentrant has the following parameter: STATE{2360} local has the following in-lined locals: LIST{2220} R{2221} K{2225} C1{2383} C2{2388} S{2393} E{2394} E1{2396} S{2400} C{2401} C2{2402} v{2404} v{2405} v{2406} C3{2407} C4{2409} C4{2411} v{2413} C3{2414} C4{2416} v{2419} C4{2420} v{2423} v{2424} C3{2425} C4{2427} C5{2429} C4{2432} C5{2434} C4{2437} v{2440} C3{2441} C4{2443} C4{2445} S{2449} E{2450} C3{2451} S{2455} C{2456} C1{2458} C2{2460} C3{2463} C2{2467} C3{2470} C2{2474} S{2570} C{2571} READ[1636] has the following parameter: PORT{2354} global CLOSE-OUTPUT-PORT[1635] has the following parameter: PORT{2353} local CLOSE-INPUT-PORT[1634] has the following parameter: PORT{2352} local OPEN-OUTPUT-FILE[1633] has the following parameter: FILENAME{2351} local OPEN-INPUT-FILE[1632] has the following parameter: FILENAME{2350} local OUTPUT-PORT?[1627] has the following parameter: OBJ{2349} local INPUT-PORT?[1626] has the following parameter: OBJ{2348} local CALL-WITH-OUTPUT-FILE[1621] reentrant has the following parameters: STRING{2343} local PROC{2344} local has the following in-lined locals: OUTPUT-PORT{2345} R{2346} CALL-WITH-INPUT-FILE[1616] reentrant has the following parameters: STRING{2338} local PROC{2339} local has the following in-lined locals: INPUT-PORT{2340} R{2341} FOR-EACH[1581] reentrant has the following parameters: PROC{2311} local LIST1{2312} local LISTS{2313} local has the following in-lined locals: LIST1{2316} LIST1{2320} LIST2{2321} LIST1{2325} LISTS{2326} LISTS{2330} C{2331} LISTS{2334} C{2335} MAP[1557] reentrant has the following parameters: PROC{2286} local LIST1{2287} local LISTS{2288} local has the following in-lined locals: LIST1{2291} C{2292} LIST1{2295} LIST2{2296} C{2297} LIST1{2300} LISTS{2301} C{2302} LISTS{2305} C{2306} LISTS{2309} C{2310} APPLY[1548] reentrant has the following parameters: PROC{2275} local ARG1{2276} local ARGS{2277} local has the following in-lined locals: ARG1{2280} ARGS{2281} ARG1{2284} ARGS{2285} PROCEDURE?[1547] has the following parameter: OBJ{2274} local VECTOR-SET![1470] has the following parameters: VECTOR{2213} local K{2214} local OBJ{2215} local VECTOR-REF[1469] has the following parameters: VECTOR{2211} local K{2212} local VECTOR-LENGTH[1468] has the following parameter: VECTOR{2210} local VECTOR[1460] has the following parameter: OBJS{2203} local has the following in-lined locals: R{2204} K{2207} OBJS{2208} MAKE-VECTOR[1455] has the following parameters: K{2198} local FILL{2199} local VECTOR?[1454] has the following parameter: OBJ{2197} local STRING-COPY[1421] has the following parameter: STRING{2174} local has the following in-lined locals: N{2175} R{2176} K{2180} LIST->STRING[1411] has the following parameter: LIST{2166} local has the following in-lined locals: R{2167} K{2171} STRING-APPEND[1382] has the following parameter: STRINGS{2143} local has the following in-lined locals: R{2144} K{2145} STRINGS{2149} N{2150} L{2154} K{2159} STRINGS{2160} SUBSTRING[1372] has the following parameters: STRING{2134} local START{2135} local END{2136} local has the following in-lined locals: R{2137} K{2141} STRING-CI>=?[1361] has the following parameters: STRING1{2119} local STRING2{2120} local STRINGS{2121} local has the following in-lined locals: STRING1{2124} N1{2125} STRING2{2126} N2{2127} STRINGS{2128} K{2131} v{2132} v{2133} STRING-CI<=?[1350] has the following parameters: STRING1{2104} local STRING2{2105} local STRINGS{2106} local has the following in-lined locals: STRING1{2109} N1{2110} STRING2{2111} N2{2112} STRINGS{2113} K{2116} v{2117} v{2118} STRING-CI>?[1339] has the following parameters: STRING1{2089} local STRING2{2090} local STRINGS{2091} local has the following in-lined locals: STRING1{2094} N1{2095} STRING2{2096} N2{2097} STRINGS{2098} K{2101} v{2102} v{2103} STRING-CI=?[1317] has the following parameters: STRING1{2059} local STRING2{2060} local STRINGS{2061} local has the following in-lined locals: STRING1{2064} N1{2065} STRING2{2066} N2{2067} STRINGS{2068} K{2071} v{2072} v{2073} STRING<=?[1306] has the following parameters: STRING1{2044} local STRING2{2045} local STRINGS{2046} local has the following in-lined locals: STRING1{2049} N1{2050} STRING2{2051} N2{2052} STRINGS{2053} K{2056} v{2057} v{2058} STRING>?[1295] has the following parameters: STRING1{2029} local STRING2{2030} local STRINGS{2031} local has the following in-lined locals: STRING1{2034} N1{2035} STRING2{2036} N2{2037} STRINGS{2038} K{2041} v{2042} v{2043} STRINGCHAR[1241] has the following parameter: K{1967} local CHAR->INTEGER[1240] has the following parameter: CHAR{1966} local CHAR-LOWER-CASE?[1239] has the following parameter: LETTER{1965} local CHAR-WHITESPACE?[1232] has the following parameter: CHAR{1958} local has the following in-lined locals: C{1959} v{1960} v{1961} v{1962} v{1963} CHAR-NUMERIC?[1231] has the following parameter: CHAR{1957} local CHAR-ALPHABETIC?[1229] has the following parameter: CHAR{1955} local has the following in-lined local: v{1956} CHAR-CI>=?[1223] has the following parameters: CHAR1{1946} local CHAR2{1947} local CHARS{1948} local has the following in-lined locals: CHAR1{1951} CHAR2{1952} CHARS{1953} v{1954} CHAR-CI<=?[1217] has the following parameters: CHAR1{1937} local CHAR2{1938} local CHARS{1939} local has the following in-lined locals: CHAR1{1942} CHAR2{1943} CHARS{1944} v{1945} CHAR-CI>?[1211] has the following parameters: CHAR1{1928} local CHAR2{1929} local CHARS{1930} local has the following in-lined locals: CHAR1{1933} CHAR2{1934} CHARS{1935} v{1936} CHAR-CI=?[1193] has the following parameters: CHAR1{1901} local CHAR2{1902} local CHARS{1903} local has the following in-lined locals: CHAR1{1906} CHAR2{1907} CHARS{1908} v{1909} CHAR<=?[1187] has the following parameters: CHAR1{1892} local CHAR2{1893} local CHARS{1894} local has the following in-lined locals: CHAR1{1897} CHAR2{1898} CHARS{1899} v{1900} CHAR>?[1181] has the following parameters: CHAR1{1883} local CHAR2{1884} local CHARS{1885} local has the following in-lined locals: CHAR1{1888} CHAR2{1889} CHARS{1890} v{1891} CHAREXACT[1165] has the following parameter: Z{1863} local EXACT->INEXACT[1164] has the following parameter: Z{1862} local EXPT[1163] has the following parameters: Z1{1860} local Z2{1861} local SQRT[1162] has the following parameter: Z{1859} local ATAN[1158] has the following parameters: X{1857} local Y{1858} local ACOS[1157] has the following parameter: Z{1856} local ASIN[1156] has the following parameter: Z{1855} local TAN[1155] has the following parameter: Z{1854} local COS[1154] has the following parameter: Z{1853} local SIN[1153] has the following parameter: Z{1852} local LOG[1152] has the following parameter: Z{1851} local EXP[1151] has the following parameter: Z{1850} local ROUND[1150] has the following parameter: X{1849} local TRUNCATE[1149] has the following parameter: X{1848} local CEILING[1148] has the following parameter: X{1847} local FLOOR[1147] has the following parameter: X{1846} local LCM[1119] has the following parameter: NS{1821} local has the following in-lined locals: N1{1824} N2{1825} NS{1826} P?{1827} N{1828} v{1829} v{1830} GCD[1107] has the following parameter: NS{1810} local has the following in-lined locals: N1{1813} N2{1814} NS{1815} P?{1816} v{1817} R{1818} v{1819} v{1820} ABS[1102] has the following parameter: X{1802} local /[1097] has the following parameters: Z{1796} local ZS{1797} local has the following in-lined locals: ZS{1800} R{1801} MIN[1077] has the following parameters: X{1774} local XS{1775} local has the following in-lined locals: XS{1778} R{1779} MAX[1072] has the following parameters: X{1768} local XS{1769} local has the following in-lined locals: XS{1772} R{1773} INEXACT?[1036] has the following parameter: Z{1722} local EXACT?[1035] has the following parameter: Z{1721} local INTEGER?[1034] has the following parameter: OBJ{1720} local REAL?[1033] has the following parameter: OBJ{1719} local NUMBER?[1032] has the following parameter: OBJ{1718} local [inside top level 835] has the following parameter: STRING{1712} local has the following in-lined locals: FOUND{1713} PACKAGE{1717} SYMBOL->STRING[832] has the following parameter: SYMBOL{1709} local SYMBOL?[831] has the following parameter: OBJ{1708} local ASSOC[796] has the following parameters: OBJ{1686} local ALIST{1687} local ASSV[795] has the following parameters: OBJ{1684} local ALIST{1685} local ASSQ[794] has the following parameters: OBJ{1682} local ALIST{1683} local MEMBER[793] has the following parameters: OBJ{1680} local LIST{1681} local MEMV[792] has the following parameters: OBJ{1678} local LIST{1679} local MEMQ[791] has the following parameters: OBJ{1676} local LIST{1677} local LIST-REF[778] has the following parameters: LIST{1668} local K{1669} local REVERSE[771] has the following parameter: S{1665} local has the following in-lined locals: STRING{2189} N{2190} R{2191} K{2195} VECTOR{2260} R{2261} K{2265} LIST-REVERSE[766] has the following parameter: LIST{1660} local has the following in-lined locals: LIST{1663} R{1664} LOOP[707] reentrant has the following parameters: LIST1{1616} local LIST2{1617} local LISTS{1618} local APPEND[694] has the following parameter: SS{1608} local has the following in-lined locals: SS{1611} v{1612} v{1613} SS{1621} v{1622} R{1623} K{1624} STRINGS{1628} N{1629} L{1633} K{1638} STRINGS{1639} SS{1642} v{1643} R{1644} K{1645} VECTORS{1649} L{1653} K{1658} VECTORS{1659} LENGTH[667] has the following parameter: S{1591} local LIST-LENGTH[659] has the following parameter: LIST{1586} local has the following in-lined local: K{1589} LIST[658] has the following parameter: OBJS{1585} local LIST?[649] has the following parameter: X{1576} local has the following in-lined locals: v{1577} SLOW{1580} FAST{1581} v{1582} FAST{1583} v{1584} CDDDDR[647] has the following parameter: PAIR{1574} local CDDDAR[646] has the following parameter: PAIR{1573} local CDDADR[645] has the following parameter: PAIR{1572} local CDDAAR[644] has the following parameter: PAIR{1571} local CDADDR[643] has the following parameter: PAIR{1570} local CDADAR[642] has the following parameter: PAIR{1569} local CDAADR[641] has the following parameter: PAIR{1568} local CDAAAR[640] has the following parameter: PAIR{1567} local CADDDR[639] has the following parameter: PAIR{1566} local CADDAR[638] has the following parameter: PAIR{1565} local CADADR[637] has the following parameter: PAIR{1564} local CADAAR[636] has the following parameter: PAIR{1563} local CAADDR[635] has the following parameter: PAIR{1562} local CAADAR[634] has the following parameter: PAIR{1561} local CAAADR[633] has the following parameter: PAIR{1560} local CAAAAR[632] has the following parameter: PAIR{1559} local CDDDR[631] has the following parameter: PAIR{1558} local CDDAR[630] has the following parameter: PAIR{1557} local CDADR[629] has the following parameter: PAIR{1556} local CDAAR[628] has the following parameter: PAIR{1555} local CADDR[627] has the following parameter: PAIR{1554} local CADAR[626] has the following parameter: PAIR{1553} local CAADR[625] has the following parameter: PAIR{1552} local CAAAR[624] has the following parameter: PAIR{1551} local CDDR[623] has the following parameter: PAIR{1550} local CDAR[622] has the following parameter: PAIR{1549} local CADR[621] has the following parameter: PAIR{1548} local CAAR[620] has the following parameter: PAIR{1547} local SET-CDR![619] has the following parameters: PAIR{1545} local OBJ{1546} local SET-CAR![618] has the following parameters: PAIR{1543} local OBJ{1544} local CONS[615] has the following parameters: OBJ1{1539} local OBJ2{1540} local PAIR?[614] has the following parameter: OBJ{1538} local EQUAL?[605] reentrant has the following parameters: OBJ1{1529} local OBJ2{1530} local has the following in-lined locals: v{1531} v{1532} v{1533} K{1536} v{1537} EQ?[604] has the following parameters: OBJ1{1527} local OBJ2{1528} local EQV?[600] has the following parameters: OBJ1{1522} local OBJ2{1523} local has the following in-lined locals: v{1524} v{1525} v{1526} BOOLEAN?[599] has the following parameter: OBJ{1521} local [inside top level 482] has the following parameter: X{1519} local [inside top level 481] has the following parameter: X{1518} local [inside top level 480] has the following parameter: X{1517} local [inside top level 479] has the following parameter: X{1516} local DEF-PROC[478] has the following parameters: NAME{1514} local VALUE{1515} local SCHEME-GLOBAL-VAR-SET![476] has the following parameters: I{1511} local VAL{1512} local SCHEME-GLOBAL-VAR[471] has the following parameter: NAME{1506} local has the following in-lined locals: X{1507} Y{1508} SCHEME-COMP[447] reentrant has the following parameters: EXPR{1504} local ENV{1505} local has the following in-lined locals: EXPR{1098} ENV{1099} EXPR{1101} EXPR{1103} EXPR{1106} ENV{1107} EXPR{1118} EXPR{1120} EXPR{1122} ENV{1123} EXPR{1126} ENV{1127} PARMS{1129} FRAME{1130} CODE{1131} NB-VARS{1132} PARMS{1137} EXPR{1163} ENV{1164} CODE2{1166} CODE1{1167} EXPR{1168} ENV{1169} EXPR{1176} ENV{1177} REST{1178} EXPR{1183} ENV{1184} REST{1185} EXPR{1190} ENV{1191} EXPR{1197} ENV{1198} X{1200} Y{1202} PROC{1203} EXPR{1211} ENV{1212} BINDINGS{1214} EXPR{1215} ENV{1216} BINDINGS{1218} EXPR{1226} ENV{1227} EXPR{1235} ENV{1236} EXIT{1238} BINDINGS{1239} VARS{1241} NEW-ENV1{1242} NEW-ENV2{1243} EXPR{1246} ENV{1247} PATTERN{1249} X{1250} EXPR{1252} X{1254} EXPR{1255} ENV{1256} NB-VARS{1332} BODY{1333} v{1334} EVALUATE[445] reentrant has the following parameters: L{1502} local RTE{1503} local [inside GEN-COMBINATION-N 442] reentrant has parent parameter GEN-COMBINATION-N[441] has the following parameter: RTE{1499} local [inside GEN-COMBINATION-3 440] reentrant has parent parameter GEN-COMBINATION-3[439] has the following parameter: RTE{1496} local [inside GEN-COMBINATION-2 438] reentrant has parent parameter GEN-COMBINATION-2[437] has the following parameter: RTE{1491} local [inside GEN-COMBINATION-1 436] reentrant has parent parameter GEN-COMBINATION-1[435] has the following parameter: RTE{1487} local [inside GEN-COMBINATION-0 434] reentrant has parent parameter GEN-COMBINATION-0[433] has the following parameter: RTE{1484} local GEN-COMBINATION[426] has the following parameters: OPER{1480} local ARGS{1481} local has the following in-lined local: v{1482} [inside GEN-MACRO 425] has parent parameter GEN-MACRO[424] has the following in-lined locals: NAME{1047} PROC{1048} [inside GEN-LETREC-N 414] reentrant has parent parameter GEN-LETREC-N[413] has the following parameter: RTE{1467} local has the following in-lined locals: X{1468} X{1473} I{1474} L{1475} [inside GEN-LETREC-3 410] reentrant has parent parameter GEN-LETREC-3[409] has the following parameter: RTE{1459} local has the following in-lined local: X{1460} [inside GEN-LETREC-2 406] reentrant has parent parameter GEN-LETREC-2[405] has the following parameter: RTE{1451} local has the following in-lined local: X{1452} [inside GEN-LETREC-1 402] reentrant has parent parameter GEN-LETREC-1[401] has the following parameter: RTE{1445} local has the following in-lined local: X{1446} GEN-LETREC[394] has the following parameters: VALS{1439} local BODY{1440} local has the following in-lined locals: NB-VALS{1441} v{1442} [inside GEN-CASE-ELSE 393] reentrant has parent parameter GEN-CASE-ELSE[392] has the following parameter: RTE{1437} local GEN-CASE-ELSE[392] has closure has the following parameter: CODE{1436} slotted [inside GEN-CASE 389] reentrant has parent parameter GEN-CASE[388] has the following parameter: RTE{1430} local has the following in-lined locals: RTE{1434} KEY{1435} [inside GEN-OR 386] reentrant has parent parameter GEN-OR[385] has the following parameter: RTE{1426} local has the following in-lined local: TEMP{1427} GEN-OR[385] has closure has the following parameters: CODE1{1424} slotted CODE2{1425} slotted [inside GEN-AND 383] reentrant has parent parameter GEN-AND[382] has the following parameter: RTE{1422} local has the following in-lined local: TEMP{1423} [inside GEN-COND-SEND 380] reentrant has parent parameter GEN-COND-SEND[379] has the following parameter: RTE{1418} local has the following in-lined local: TEMP{1419} [inside GEN-IF 378] reentrant has parent parameter GEN-IF[377] has the following parameter: RTE{1414} local GEN-IF[377] has closure has the following parameters: CODE1{1411} slotted CODE2{1412} slotted CODE3{1413} slotted [inside GEN-WHEN 376] reentrant has parent parameter GEN-WHEN[375] has the following parameter: RTE{1410} local [inside GEN-SEQUENCE 373] reentrant has parent parameter GEN-SEQUENCE[372] has the following parameter: RTE{1406} local GEN-SEQUENCE[372] has closure has the following parameters: CODE1{1404} slotted CODE2{1405} slotted [inside GEN-LAMBDA-N 362] reentrant has parent parameter [inside GEN-LAMBDA-N 361] has the following parameters: A{1387} local B{1388} local C{1389} local D{1390} local has the following in-lined locals: X{1391} N{1399} X{1400} I{1401} L{1402} [inside GEN-LAMBDA-N 361] has parent parameter GEN-LAMBDA-N[360] has closure has parent slot GEN-LAMBDA-N[360] has the following parameter: RTE{1386} slotted [inside GEN-LAMBDA-3 359] reentrant has parent parameter [inside GEN-LAMBDA-3 358] has the following parameters: A{1381} local B{1382} local C{1383} local [inside GEN-LAMBDA-3 358] has parent parameter GEN-LAMBDA-3[357] has closure has parent slot GEN-LAMBDA-3[357] has the following parameter: RTE{1380} slotted [inside GEN-LAMBDA-2 356] reentrant has parent parameter [inside GEN-LAMBDA-2 355] has the following parameters: A{1377} local B{1378} local [inside GEN-LAMBDA-2 355] has parent parameter GEN-LAMBDA-2[354] has closure has parent slot GEN-LAMBDA-2[354] has the following parameter: RTE{1376} slotted [inside GEN-LAMBDA-1 353] reentrant has parent parameter [inside GEN-LAMBDA-1 352] has the following parameter: A{1374} local [inside GEN-LAMBDA-1 352] has parent parameter GEN-LAMBDA-1[351] has closure has parent slot GEN-LAMBDA-1[351] has the following parameter: RTE{1373} slotted [inside GEN-LAMBDA-0 350] reentrant has parent parameter [inside GEN-LAMBDA-0 349] [inside GEN-LAMBDA-0 349] has parent parameter GEN-LAMBDA-0[348] has closure has parent slot GEN-LAMBDA-0[348] has the following parameter: RTE{1371} slotted GEN-LAMBDA[341] has the following parameters: NB-VARS{1367} local BODY{1368} local has the following in-lined local: v{1369} [inside GEN-LAMBDA-N-REST 332] reentrant has parent parameter [inside GEN-LAMBDA-N-REST 331] has the following parameters: A{1350} local B{1351} local C{1352} local D{1353} local has the following in-lined locals: X{1354} N{1362} X{1363} I{1364} L{1365} [inside GEN-LAMBDA-N-REST 331] has parent parameter GEN-LAMBDA-N-REST[330] has closure has parent slot GEN-LAMBDA-N-REST[330] has the following parameter: RTE{1349} slotted [inside GEN-LAMBDA-3-REST 329] reentrant has parent parameter [inside GEN-LAMBDA-3-REST 328] has the following parameters: A{1344} local B{1345} local C{1346} local [inside GEN-LAMBDA-3-REST 328] has parent parameter GEN-LAMBDA-3-REST[327] has closure has parent slot GEN-LAMBDA-3-REST[327] has the following parameter: RTE{1343} slotted [inside GEN-LAMBDA-2-REST 326] reentrant has parent parameter [inside GEN-LAMBDA-2-REST 325] has the following parameters: A{1340} local B{1341} local [inside GEN-LAMBDA-2-REST 325] has parent parameter GEN-LAMBDA-2-REST[324] has closure has parent slot GEN-LAMBDA-2-REST[324] has the following parameter: RTE{1339} slotted [inside GEN-LAMBDA-1-REST 323] reentrant has parent parameter [inside GEN-LAMBDA-1-REST 322] has the following parameter: A{1337} local [inside GEN-LAMBDA-1-REST 322] has parent parameter GEN-LAMBDA-1-REST[321] has closure has parent slot GEN-LAMBDA-1-REST[321] has the following parameter: RTE{1336} slotted [inside GEN-GLO-SET 314] reentrant has parent parameter GEN-GLO-SET[313] has the following parameter: RTE{1331} local [inside GEN-SLOT-SET-N 312] reentrant has parent parameter GEN-SLOT-SET-N[301] has the following parameter: RTE{1328} local [inside GEN-SLOT-SET-N 310] reentrant has parent parameter GEN-SLOT-SET-N[301] has the following parameter: RTE{1327} local [inside GEN-SLOT-SET-N 308] reentrant has parent parameter GEN-SLOT-SET-N[301] has the following parameter: RTE{1326} local [inside GEN-SLOT-SET-N 306] reentrant has parent parameter GEN-SLOT-SET-N[301] has the following parameter: RTE{1325} local [inside GEN-SLOT-SET-N 304] reentrant has parent parameter GEN-SLOT-SET-N[301] has the following parameter: RTE{1324} local [inside GEN-SLOT-SET-1 300] reentrant has parent parameter GEN-SLOT-SET-1[289] has the following parameter: RTE{1319} local [inside GEN-SLOT-SET-1 298] reentrant has parent parameter GEN-SLOT-SET-1[289] has the following parameter: RTE{1318} local [inside GEN-SLOT-SET-1 296] reentrant has parent parameter GEN-SLOT-SET-1[289] has the following parameter: RTE{1317} local [inside GEN-SLOT-SET-1 294] reentrant has parent parameter GEN-SLOT-SET-1[289] has the following parameter: RTE{1316} local [inside GEN-SLOT-SET-1 292] reentrant has parent parameter GEN-SLOT-SET-1[289] has the following parameter: RTE{1315} local [inside GEN-SLOT-SET-0 288] reentrant has parent parameter GEN-SLOT-SET-0[277] has the following parameter: RTE{1311} local [inside GEN-SLOT-SET-0 286] reentrant has parent parameter GEN-SLOT-SET-0[277] has the following parameter: RTE{1310} local [inside GEN-SLOT-SET-0 284] reentrant has parent parameter GEN-SLOT-SET-0[277] has the following parameter: RTE{1309} local [inside GEN-SLOT-SET-0 282] reentrant has parent parameter GEN-SLOT-SET-0[277] has the following parameter: RTE{1308} local [inside GEN-SLOT-SET-0 280] reentrant has parent parameter GEN-SLOT-SET-0[277] has the following parameter: RTE{1307} local GEN-VAR-SET[271] has the following parameters: VAR{1298} local CODE{1299} local has the following in-lined locals: UP{1300} OVER{1301} CODE{1302} v{1303} v{1306} v{1314} v{1323} [inside GEN-VECTOR-FORM 270] reentrant has parent parameter GEN-VECTOR-FORM[269] has the following parameter: RTE{1297} local has the following in-lined locals: L{1052} N{1053} V{1054} L{1057} I{1058} [inside GEN-CONS-FORM 268] reentrant has parent parameter GEN-CONS-FORM[267] has the following parameter: RTE{1295} local GEN-CONS-FORM[267] has closure has the following parameters: CODE1{1293} slotted CODE2{1294} slotted [inside GEN-APPEND-FORM 266] reentrant has parent parameter GEN-APPEND-FORM[265] has the following parameter: RTE{1292} local [inside GEN-CST 264] has parent parameter GEN-CST[245] [inside GEN-CST 262] [inside GEN-CST 260] [inside GEN-CST 258] [inside GEN-CST 256] [inside GEN-CST 254] [inside GEN-CST 252] [inside GEN-CST 250] [inside GEN-CST 248] GEN-CST[245] has closure has the following parameter: VAL{1279} slotted has the following in-lined local: v{1280} [inside GEN-GLO-REF 244] has parent parameter GEN-GLO-REF[243] has the following in-lined local: I{1510} [inside GEN-SLOT-REF-UP-2 242] has parent parameter GEN-SLOT-REF-UP-2[241] has the following parameter: RTE{1276} local [inside GEN-SLOT-REF-1 240] has parent parameter GEN-SLOT-REF-1[229] has the following parameter: RTE{1274} local [inside GEN-SLOT-REF-1 238] has the following parameter: RTE{1273} local [inside GEN-SLOT-REF-1 236] has the following parameter: RTE{1272} local [inside GEN-SLOT-REF-1 234] has the following parameter: RTE{1271} local [inside GEN-SLOT-REF-1 232] has the following parameter: RTE{1270} local [inside GEN-SLOT-REF-0 228] has parent parameter GEN-SLOT-REF-0[217] has the following parameter: RTE{1267} local [inside GEN-SLOT-REF-0 226] has the following parameter: RTE{1266} local [inside GEN-SLOT-REF-0 224] has the following parameter: RTE{1265} local [inside GEN-SLOT-REF-0 222] has the following parameter: RTE{1264} local [inside GEN-SLOT-REF-0 220] has the following parameter: RTE{1263} local GEN-RTE-REF[212] reentrant has the following parameters: UP{1258} local OVER{1259} local has the following in-lined locals: v{1260} v{1262} v{1269} GEN-VAR-REF[211] has the following parameter: VAR{1257} local BINDINGS->STEPS[201] reentrant has the following parameter: BINDINGS{1244} local has the following in-lined local: BINDING{1245} COMP-SEQUENCE-AUX[191] reentrant has the following parameters: EXPRS{1231} local ENV{1232} local has the following in-lined locals: REST{1233} CODE{1234} COMP-SEQUENCE[190] reentrant has the following parameters: EXPRS{1229} local ENV{1230} local COMP-VALS[187] reentrant has the following parameters: L{1224} local ENV{1225} local COMP-LETREC-AUX[185] reentrant has the following parameters: VARS{1219} local VALS{1220} local BODY{1221} local ENV{1222} local has the following in-lined local: NEW-ENV{1223} BINDINGS->VALS[177] reentrant has the following parameter: BINDINGS{1209} local has the following in-lined local: BINDING{1210} BINDINGS->VARS[172] reentrant has the following parameter: BINDINGS{1204} local has the following in-lined locals: BINDING{1205} X{1207} COMP-CASE-AUX[160] reentrant has the following parameters: CLAUSES{1193} local ENV{1194} local has the following in-lined local: CLAUSE{1195} COMP-OR-AUX[156] reentrant has the following parameters: L{1186} local ENV{1187} local has the following in-lined locals: REST{1188} CODE{1189} COMP-AND-AUX[152] reentrant has the following parameters: L{1179} local ENV{1180} local has the following in-lined locals: REST{1181} CODE{1182} COMP-COND-AUX[141] reentrant has the following parameters: CLAUSES{1170} local ENV{1171} local has the following in-lined local: CLAUSE{1172} DEFINITION-VALUE[135] has the following parameter: EXPR{1161} local has the following in-lined local: PATTERN{1162} DEFINITION-NAME[129] has the following parameter: EXPR{1156} local has the following in-lined locals: PATTERN{1158} NAME{1159} LETREC-DEFINES*[126] reentrant has the following parameters: VARS{1152} local VALS{1153} local BODY{1154} local ENV{1155} local COMP-BODY[111] reentrant has the following parameters: BODY{1138} local ENV{1139} local has the following in-lined locals: NAME{1081} PROC{1082} ENV{1083} VARS{1144} VALS{1145} BODY{1146} ENV{1147} EXPR{1148} X{1149} X{1151} PARMS->FRAME[100] reentrant has the following parameter: PARMS{1133} local has the following in-lined local: X{1134} COMP-QUASIQUOTATION-LIST[86] reentrant has the following parameters: L{1112} local LEVEL{1113} local ENV{1114} local has the following in-lined locals: FIRST{1115} X{1117} COMP-QUASIQUOTATION[75] reentrant has the following parameters: FORM{1108} local LEVEL{1109} local ENV{1110} local has the following in-lined locals: V{1060} L{1063} I{1064} MACRO-EXPAND[68] has the following parameters: EXPR{1096} local ENV{1097} local has the following in-lined locals: NAME{1084} ENV{1085} SHAPE[60] has the following parameters: FORM{1088} local N{1089} local has the following in-lined locals: FORM{1092} N{1093} L{1094} v{1095} VARIABLE[56] has the following parameter: X{1086} local MACRO?[53] has the following parameters: NAME{1079} local ENV{1080} local LOOKUP-VAR[41] has the following parameters: NAME{1067} local ENV{1068} local has the following in-lined locals: CHAIN{1071} UP{1072} CHAIN{1075} UP{1076} FRAME{1077} OVER{1078} PUSH-FRAME[40] has the following parameters: FRAME{1065} local ENV{1066} local SCHEME-ERROR[24] has the following parameters: MSG{1050} local ARGS{1051} local has the following in-lined local: ARGS{1043} SCHEME-EVAL[20] reentrant has the following parameter: EXPR{1045} local has the following in-lined local: CODE{1046} [inside top level 0] has the following in-lined locals: RESULT{1028} COUNT{1030} COUNT{1036} I{1041} RESULT{1042} The following non-trivial in-line native procedures will be generated: [inside PARSE-NUMBER 2485] has the following parameter: K{2895} local [inside PARSE-NUMBER 2483] has the following parameter: C3{2893} local [inside PARSE-NUMBER 2481] has the following parameter: K{2892} local [inside PARSE-NUMBER 2479] has the following parameter: C3{2890} local [inside PARSE-NUMBER 2476] has the following parameter: K{2889} local [inside PARSE-NUMBER 2473] has the following parameter: C2{2887} local [inside PARSE-NUMBER 2471] has the following parameter: v{2886} local [inside PARSE-NUMBER 2470] has the following parameter: v{2885} local [inside PARSE-NUMBER 2469] has the following parameter: v{2884} local [inside PARSE-NUMBER 2468] has the following parameter: v{2883} local [inside PARSE-NUMBER 2467] has the following parameter: v{2882} local [inside PARSE-NUMBER 2466] has the following parameter: v{2881} local [inside PARSE-NUMBER 2465] has the following parameter: v{2880} local [inside PARSE-NUMBER 2464] has the following parameter: v{2879} local [inside PARSE-NUMBER 2463] has the following parameter: v{2878} local [inside PARSE-NUMBER 2459] has the following parameter: C1{2876} local [inside PARSE-INEXACT-NUMBER 2455] has the following parameter: K{2874} local [inside PARSE-INEXACT-NUMBER 2453] has the following parameter: C3{2872} local [inside PARSE-INEXACT-NUMBER 2451] has the following parameter: K{2871} local [inside PARSE-INEXACT-NUMBER 2449] has the following parameter: C3{2869} local [inside PARSE-INEXACT-NUMBER 2447] has the following parameter: K{2868} local [inside PARSE-INEXACT-NUMBER 2444] has the following parameter: C2{2866} local [inside PARSE-INEXACT-NUMBER 2442] has the following parameter: v{2865} local [inside PARSE-INEXACT-NUMBER 2441] has the following parameter: v{2864} local [inside PARSE-INEXACT-NUMBER 2440] has the following parameter: v{2863} local [inside PARSE-INEXACT-NUMBER 2439] has the following parameter: v{2862} local [inside PARSE-INEXACT-NUMBER 2438] has the following parameter: v{2861} local [inside PARSE-INEXACT-NUMBER 2437] has the following parameter: v{2860} local [inside PARSE-INEXACT-NUMBER 2436] has the following parameter: v{2859} local [inside PARSE-INEXACT-NUMBER 2435] has the following parameter: v{2858} local [inside PARSE-INEXACT-NUMBER 2434] has the following parameter: v{2857} local [inside PARSE-INEXACT-NUMBER 2431] has the following parameter: C1{2855} local [inside PARSE-EXACT-HEXADECIMAL-INTEGER 2424] has the following parameter: C{2851} local [inside PARSE-EXACT-DECIMAL-INTEGER 2419] has the following parameter: C{2848} local [inside PARSE-EXACT-OCTAL-INTEGER 2414] has the following parameter: C{2845} local [inside PARSE-EXACT-BINARY-INTEGER 2408] has the following parameter: C{2842} local [inside LOOP 2401] has the following parameter: C2{2838} local [inside LOOP 2397] has the following parameter: C3{2836} local [inside LOOP 2393] has the following parameter: C2{2834} local [inside LOOP 2389] has the following parameter: C3{2832} local [inside LOOP 2385] has the following parameter: C2{2830} local [inside LOOP 2376] has the following parameter: C4{2828} local [inside LOOP 2369] has the following parameter: C4{2826} local [inside LOOP 2363] has the following parameter: C3{2824} local [inside LOOP 2361] has the following parameter: v{2823} local [inside LOOP 2357] has the following parameter: C4{2821} local [inside LOOP 2353] has the following parameter: C5{2819} local [inside LOOP 2349] has the following parameter: C4{2817} local [inside LOOP 2345] has the following parameter: C5{2815} local [inside LOOP 2341] has the following parameter: C4{2813} local [inside LOOP 2338] has the following parameter: C3{2811} local [inside LOOP 2336] has the following parameter: v{2810} local [inside LOOP 2333] has the following parameter: C4{2808} local [inside LOOP 2330] has the following parameter: C4{2806} local [inside LOOP 2326] has the following parameter: C3{2804} local [inside LOOP 2324] has the following parameter: v{2803} local [inside LOOP 2318] has the following parameter: C4{2801} local [inside LOOP 2312] has the following parameter: C4{2799} local [inside LOOP 2307] has the following parameter: C3{2797} local [inside LOOP 2305] has the following parameter: v{2796} local [inside LOOP 2303] has the following parameter: C2{2794} local [inside LOOP 2299] has the following parameter: C1{2792} local [inside STRING->NUMBER 2293] has the following parameters: L{2774} global I{2775} global LOOP[2287] has the following parameters: EXPONENT{2771} local CHARACTERS{2772} local LOOP[2282] has the following parameters: EXPONENT{2767} local CHARACTERS{2768} local [inside LOOP 2278] reentrant has the following parameter: MANTISSA{2764} local [inside LOOP 2277] reentrant [inside LOOP 2276] reentrant has the following parameter: DIGIT{2763} local [inside LOOP 2275] reentrant has the following parameter: FLOAT-DIGIT{2762} local [inside MANTISSA-EXPONENT->CHARACTERS 2267] has the following parameter: DIGIT{2758} local [inside MANTISSA-EXPONENT->CHARACTERS 2266] has the following parameter: FLOAT-DIGIT{2757} local LOOP[2262] has the following parameters: NUMBER{2753} local CHARACTERS{2754} local LOOP[2257] has the following parameters: NUMBER{2749} local CHARACTERS{2750} local LOOP[2251] has the following parameters: MANTISSA{2745} local EXPONENT{2746} local LOOP[2246] has the following parameters: MANTISSA{2741} local EXPONENT{2742} local LOOP[2239] has the following parameters: MANTISSA{2737} local EXPONENT{2738} local LOOP[2234] has the following parameters: MANTISSA{2733} local EXPONENT{2734} local [inside NUMBER->STRING 2228] has the following parameter: NUMBER{2730} local [inside NUMBER->STRING 2224] has region [inside LOOP 2209] reentrant [inside LOOP 2208] reentrant LOOP[2207] reentrant has the following parameter: I{2721} local [inside DISPLAY2 2204] reentrant [inside DISPLAY2 2203] reentrant [inside DISPLAY2 2201] reentrant [inside LOOP 2198] reentrant [inside LOOP 2197] reentrant [inside LOOP 2196] reentrant [inside LOOP 2194] reentrant LOOP[2193] reentrant has the following parameter: OBJ{2709} local [inside DISPLAY2 2190] reentrant [inside DISPLAY2 2189] reentrant [inside LOOP 2164] reentrant [inside LOOP 2163] reentrant LOOP[2162] reentrant has the following parameter: I{2698} local [inside WRITE2 2159] reentrant [inside WRITE2 2158] reentrant [inside WRITE2 2156] reentrant [inside LOOP 2153] reentrant [inside LOOP 2152] reentrant [inside LOOP 2151] reentrant [inside LOOP 2149] reentrant LOOP[2148] reentrant has the following parameter: OBJ{2686} local [inside WRITE2 2145] reentrant [inside WRITE2 2144] reentrant [inside LOOP 2140] has the following parameter: v{2682} local [inside LOOP 2138] has the following parameter: C{2679} local LOOP[2137] has the following parameter: I{2678} local [inside WRITE2 2134] has the following parameter: N{2675} local LOOP[2113] has the following parameters: MANTISSA{2668} local EXPONENT{2669} local LOOP[2108] has the following parameters: MANTISSA{2664} local EXPONENT{2665} local [inside LOOP 2096] has the following parameter: MANTISSA{2658} local [inside LOOP 2093] has the following parameter: DIGIT{2656} local [inside LOOP 2092] has the following parameter: FLOAT-DIGIT{2655} local LOOP[2091] has the following parameter: MANTISSA{2654} local [inside DISPLAY-MANTISSA-EXPONENT2 2080] has the following parameter: DIGIT{2647} local [inside DISPLAY-MANTISSA-EXPONENT2 2079] has the following parameter: FLOAT-DIGIT{2646} local LOOP[2070] has the following parameter: I{2640} local LOOP[2067] has the following parameters: I{2636} local NUMBER{2637} local LOOP[2056] has the following parameter: I{2630} local LOOP[2053] has the following parameters: I{2626} local NUMBER{2627} local LOOP[2044] has the following parameter: I{2620} local [inside DISPLAY-STRING2 2041] has the following parameter: N{2617} local [inside top level 2036] has the following parameters: THE-CURRENT-OUTPUT-PORT{2576} global THE-CURRENT-INPUT-PORT{2577} global BUFFER{2578} global [inside READ-CHARACTER-NAME 2009] has the following parameter: C{2571} local READ-CHARACTER-NAME[2008] has the following parameter: S{2570} local [inside LOOP? 2004] has the following parameter: v{2569} local LOOP?[2003] has the following parameters: S{2567} local NAME{2568} local LOOP[1999] has the following parameter: NAMES{2563} local [inside READ-SYMBOL 1991] has the following parameter: C{2558} local [inside CHAR-SUBSEQUENT? 1989] has the following parameter: v{2556} local [inside CHAR-SUBSEQUENT? 1988] has the following parameter: v{2555} local [inside CHAR-SUBSEQUENT? 1987] has the following parameter: v{2554} local [inside CHAR-SUBSEQUENT? 1986] has the following parameter: v{2553} local [inside CHAR-INITIAL? 1984] has the following parameter: v{2551} local [inside CHAR-INITIAL? 1983] has the following parameter: v{2550} local [inside CHAR-INITIAL? 1982] has the following parameter: v{2549} local [inside CHAR-INITIAL? 1981] has the following parameter: v{2548} local [inside CHAR-INITIAL? 1980] has the following parameter: v{2547} local [inside CHAR-INITIAL? 1979] has the following parameter: v{2546} local [inside CHAR-INITIAL? 1978] has the following parameter: v{2545} local [inside CHAR-INITIAL? 1977] has the following parameter: v{2544} local [inside CHAR-INITIAL? 1976] has the following parameter: v{2543} local [inside CHAR-INITIAL? 1975] has the following parameter: v{2542} local [inside CHAR-INITIAL? 1974] has the following parameter: v{2541} local [inside CHAR-INITIAL? 1973] has the following parameter: v{2540} local [inside CHAR-INITIAL? 1972] has the following parameter: v{2539} local [inside CHAR-INITIAL? 1971] has the following parameter: v{2538} local [inside READ-NUMBER 1963] has the following parameter: C3{2534} local [inside READ-NUMBER 1962] has region [inside READ-NUMBER 1958] has the following parameter: C3{2531} local [inside READ-NUMBER 1957] has region [inside READ-NUMBER 1954] has the following parameter: C2{2529} local [inside READ-NUMBER 1953] has region [inside READ-NUMBER 1952] has region [inside READ-NUMBER 1951] has the following parameter: v{2527} local [inside READ-NUMBER 1950] has the following parameter: v{2526} local [inside READ-NUMBER 1949] has the following parameter: v{2525} local [inside READ-NUMBER 1948] has the following parameter: v{2524} local [inside READ-NUMBER 1947] has the following parameter: v{2523} local [inside READ-NUMBER 1946] has the following parameter: v{2522} local [inside READ-NUMBER 1945] has the following parameter: v{2521} local [inside READ-NUMBER 1944] has the following parameter: v{2520} local [inside READ-NUMBER 1943] has the following parameter: v{2519} local [inside READ-NUMBER 1941] has region [inside READ-NUMBER 1937] has the following parameter: C1{2516} local [inside READ-INEXACT-NUMBER 1929] has the following parameter: C3{2512} local [inside READ-INEXACT-NUMBER 1928] has region [inside READ-INEXACT-NUMBER 1924] has the following parameter: C3{2509} local [inside READ-INEXACT-NUMBER 1923] has region [inside READ-INEXACT-NUMBER 1920] has the following parameter: C2{2507} local [inside READ-INEXACT-NUMBER 1919] has region [inside READ-INEXACT-NUMBER 1918] has region [inside READ-INEXACT-NUMBER 1917] has the following parameter: v{2505} local [inside READ-INEXACT-NUMBER 1916] has the following parameter: v{2504} local [inside READ-INEXACT-NUMBER 1915] has the following parameter: v{2503} local [inside READ-INEXACT-NUMBER 1914] has the following parameter: v{2502} local [inside READ-INEXACT-NUMBER 1913] has the following parameter: v{2501} local [inside READ-INEXACT-NUMBER 1912] has the following parameter: v{2500} local [inside READ-INEXACT-NUMBER 1911] has the following parameter: v{2499} local [inside READ-INEXACT-NUMBER 1910] has the following parameter: v{2498} local [inside READ-INEXACT-NUMBER 1909] has the following parameter: v{2497} local [inside READ-INEXACT-NUMBER 1905] has the following parameter: C1{2495} local [inside READ-EXACT-HEXADECIMAL-INTEGER 1895] has the following parameter: C{2489} local [inside READ-EXACT-DECIMAL-INTEGER 1889] has the following parameter: C{2486} local [inside READ-EXACT-OCTAL-INTEGER 1883] has the following parameter: C{2483} local [inside READ-EXACT-BINARY-INTEGER 1875] has the following parameter: C{2479} local [inside READ 1864] has region [inside READ 1862] has the following parameter: C2{2474} local [inside READ 1853] has region [inside READ 1851] has the following parameter: C3{2470} local [inside READ 1847] has region [inside READ 1845] has the following parameter: C2{2467} local [inside READ 1836] has region [inside READ 1834] has the following parameter: C3{2463} local [inside READ 1830] has region [inside READ 1828] has the following parameter: C2{2460} local [inside LOOP 1820] has the following parameter: C1{2458} local [inside LOOP 1817] has the following parameter: C{2456} local LOOP[1816] has region has the following parameter: S{2455} local [inside READ 1808] has the following parameter: C3{2451} local [inside LOOP 1805] reentrant has the following parameter: E{2450} local LOOP[1804] reentrant has the following parameter: S{2449} local [inside READ 1801] reentrant [inside READ 1792] has the following parameter: C4{2445} local [inside READ 1791] has region [inside READ 1784] has the following parameter: C4{2443} local [inside READ 1783] has region [inside READ 1778] has the following parameter: C3{2441} local [inside READ 1777] has region [inside READ 1776] has the following parameter: v{2440} local [inside READ 1769] has the following parameter: C4{2437} local [inside READ 1768] has region [inside READ 1762] has the following parameter: C5{2434} local [inside READ 1761] has region [inside READ 1758] has the following parameter: C4{2432} local [inside READ 1757] has region [inside READ 1751] has the following parameter: C5{2429} local [inside READ 1750] has region [inside READ 1747] has the following parameter: C4{2427} local [inside READ 1746] has region [inside READ 1744] has the following parameter: C3{2425} local [inside READ 1743] has region [inside READ 1742] has the following parameter: v{2424} local [inside READ 1738] has the following parameter: v{2423} local [inside READ 1735] has the following parameter: C4{2420} local [inside READ 1734] has region [inside READ 1732] has the following parameter: v{2419} local [inside READ 1729] has the following parameter: C4{2416} local [inside READ 1728] has region [inside READ 1725] has the following parameter: C3{2414} local [inside READ 1724] has region [inside READ 1723] has the following parameter: v{2413} local [inside READ 1715] has the following parameter: C4{2411} local [inside READ 1714] has region [inside READ 1708] has the following parameter: C4{2409} local [inside READ 1707] has region [inside READ 1703] has the following parameter: C3{2407} local [inside READ 1702] has region [inside READ 1701] has the following parameter: v{2406} local [inside READ 1699] has the following parameter: v{2405} local [inside READ 1697] has the following parameter: v{2404} local [inside READ 1696] reentrant [inside READ 1695] reentrant has the following parameter: C2{2402} local [inside READ 1694] reentrant [inside LOOP 1692] reentrant LOOP[1688] has the following parameters: S{2400} local C{2401} local [inside LOOP 1683] reentrant has the following parameter: E1{2396} local [inside LOOP 1682] reentrant [inside LOOP 1681] reentrant [inside LOOP 1680] reentrant has the following parameter: E{2394} local LOOP[1679] reentrant has the following parameter: S{2393} local [inside READ 1676] reentrant [inside READ 1674] reentrant [inside READ 1673] reentrant [inside READ 1672] reentrant [inside READ 1671] reentrant [inside READ 1670] reentrant has the following parameter: C2{2388} local [inside READ 1669] reentrant [inside READ 1668] reentrant [inside READ 1667] reentrant [inside READ 1665] reentrant [inside READ 1656] reentrant [inside READ 1655] reentrant [inside READ 1644] reentrant has the following parameter: C1{2383} local [inside READ 1643] reentrant [inside READ 1642] reentrant [inside READ 1638] has the following parameters: CLOSE{2356} global DOT{2357} global [inside CALL-WITH-OUTPUT-FILE 1623] has the following parameter: R{2346} local [inside CALL-WITH-OUTPUT-FILE 1622] reentrant has the following parameter: OUTPUT-PORT{2345} local [inside CALL-WITH-INPUT-FILE 1618] has the following parameter: R{2341} local [inside CALL-WITH-INPUT-FILE 1617] reentrant has the following parameter: INPUT-PORT{2340} local LOOP[1610] has the following parameters: LISTS{2334} local C{2335} local LOOP[1606] has the following parameters: LISTS{2330} local C{2331} local [inside LOOP 1603] reentrant [inside LOOP 1602] reentrant LOOP[1601] reentrant has the following parameters: LIST1{2325} local LISTS{2326} local [inside FOR-EACH 1598] reentrant [inside LOOP 1595] reentrant [inside LOOP 1594] reentrant LOOP[1593] reentrant has the following parameters: LIST1{2320} local LIST2{2321} local [inside FOR-EACH 1590] reentrant [inside LOOP 1587] reentrant [inside LOOP 1586] reentrant LOOP[1585] reentrant has the following parameter: LIST1{2316} local [inside FOR-EACH 1582] reentrant LOOP[1578] has the following parameters: LISTS{2309} local C{2310} local LOOP[1574] has the following parameters: LISTS{2305} local C{2306} local LOOP[1571] reentrant has the following parameters: LIST1{2300} local LISTS{2301} local C{2302} local [inside MAP 1568] reentrant LOOP[1566] reentrant has the following parameters: LIST1{2295} local LIST2{2296} local C{2297} local [inside MAP 1563] reentrant LOOP[1561] reentrant has the following parameters: LIST1{2291} local C{2292} local [inside MAP 1558] reentrant LOOP[1554] reentrant has the following parameters: ARG1{2284} local ARGS{2285} local LOOP[1551] reentrant has the following parameters: ARG1{2280} local ARGS{2281} local LOOP[1532] has the following parameter: K{2265} local [inside VECTOR-REVERSE 1528] has the following parameter: R{2261} local VECTOR-REVERSE[1527] has the following parameter: VECTOR{2260} local LOOP[1481] has the following parameter: K{2225} local [inside LIST->VECTOR 1477] has the following parameter: R{2221} local LIST->VECTOR[1476] has the following parameter: LIST{2220} local LOOP[1464] has the following parameters: K{2207} local OBJS{2208} local [inside VECTOR 1461] has the following parameter: R{2204} local LOOP[1449] has the following parameter: K{2195} local [inside STRING-REVERSE 1444] has the following parameter: R{2191} local [inside STRING-REVERSE 1443] has the following parameter: N{2190} local STRING-REVERSE[1442] has the following parameter: STRING{2189} local LOOP[1428] has the following parameter: K{2180} local [inside STRING-COPY 1423] has the following parameter: R{2176} local [inside STRING-COPY 1422] has the following parameter: N{2175} local LOOP[1416] has the following parameter: K{2171} local [inside LIST->STRING 1412] has the following parameter: R{2167} local LOOP[1403] has the following parameters: K{2159} local STRINGS{2160} local LOOP[1394] has the following parameter: L{2154} local [inside LOOP 1390] has the following parameter: N{2150} local LOOP[1389] has the following parameter: STRINGS{2149} local [inside STRING-APPEND 1384] has the following parameter: K{2145} local [inside STRING-APPEND 1383] has the following parameter: R{2144} local LOOP[1377] has the following parameter: K{2141} local [inside SUBSTRING 1373] has the following parameter: R{2137} local [inside LOOP? 1370] has the following parameter: v{2133} local [inside LOOP? 1368] has the following parameter: v{2132} local LOOP?[1367] has the following parameter: K{2131} local LOOP?[1364] has the following parameters: STRING1{2124} local N1{2125} local STRING2{2126} local N2{2127} local STRINGS{2128} local [inside LOOP? 1359] has the following parameter: v{2118} local [inside LOOP? 1357] has the following parameter: v{2117} local LOOP?[1356] has the following parameter: K{2116} local LOOP?[1353] has the following parameters: STRING1{2109} local N1{2110} local STRING2{2111} local N2{2112} local STRINGS{2113} local [inside LOOP? 1348] has the following parameter: v{2103} local [inside LOOP? 1346] has the following parameter: v{2102} local LOOP?[1345] has the following parameter: K{2101} local LOOP?[1342] has the following parameters: STRING1{2094} local N1{2095} local STRING2{2096} local N2{2097} local STRINGS{2098} local [inside LOOP? 1337] has the following parameter: v{2088} local [inside LOOP? 1335] has the following parameter: v{2087} local LOOP?[1334] has the following parameter: K{2086} local LOOP?[1331] has the following parameters: STRING1{2079} local N1{2080} local STRING2{2081} local N2{2082} local STRINGS{2083} local [inside LOOP? 1326] has the following parameter: v{2073} local [inside LOOP? 1324] has the following parameter: v{2072} local LOOP?[1323] has the following parameter: K{2071} local LOOP?[1320] has the following parameters: STRING1{2064} local N1{2065} local STRING2{2066} local N2{2067} local STRINGS{2068} local [inside LOOP? 1315] has the following parameter: v{2058} local [inside LOOP? 1313] has the following parameter: v{2057} local LOOP?[1312] has the following parameter: K{2056} local LOOP?[1309] has the following parameters: STRING1{2049} local N1{2050} local STRING2{2051} local N2{2052} local STRINGS{2053} local [inside LOOP? 1304] has the following parameter: v{2043} local [inside LOOP? 1302] has the following parameter: v{2042} local LOOP?[1301] has the following parameter: K{2041} local LOOP?[1298] has the following parameters: STRING1{2034} local N1{2035} local STRING2{2036} local N2{2037} local STRINGS{2038} local [inside LOOP? 1293] has the following parameter: v{2028} local [inside LOOP? 1291] has the following parameter: v{2027} local LOOP?[1290] has the following parameter: K{2026} local LOOP?[1287] has the following parameters: STRING1{2019} local N1{2020} local STRING2{2021} local N2{2022} local STRINGS{2023} local [inside LOOP? 1282] has the following parameter: v{2013} local [inside LOOP? 1280] has the following parameter: v{2012} local LOOP?[1279] has the following parameter: K{2011} local [inside LOOP? 1276] has the following parameter: N{2008} local LOOP?[1275] has the following parameters: STRING1{2005} local STRING2{2006} local STRINGS{2007} local [inside LOOP? 1270] has the following parameter: v{1999} local [inside LOOP? 1268] has the following parameter: v{1998} local LOOP?[1267] has the following parameter: K{1997} local [inside LOOP? 1264] has the following parameter: N{1994} local LOOP?[1263] has the following parameters: STRING1{1991} local STRING2{1992} local STRINGS{1993} local LOOP[1253] has the following parameters: K{1977} local CHARS{1978} local [inside STRING 1250] has the following parameter: R{1974} local CHAR-UPPER-CASE?[1238] has the following parameter: LETTER{1964} local [inside CHAR-WHITESPACE? 1237] has the following parameter: v{1963} local [inside CHAR-WHITESPACE? 1236] has the following parameter: v{1962} local [inside CHAR-WHITESPACE? 1235] has the following parameter: v{1961} local [inside CHAR-WHITESPACE? 1234] has the following parameter: v{1960} local [inside CHAR-WHITESPACE? 1233] has the following parameter: C{1959} local [inside CHAR-ALPHABETIC? 1230] has the following parameter: v{1956} local [inside LOOP? 1227] has the following parameter: v{1954} local LOOP?[1226] has the following parameters: CHAR1{1951} local CHAR2{1952} local CHARS{1953} local [inside LOOP? 1221] has the following parameter: v{1945} local LOOP?[1220] has the following parameters: CHAR1{1942} local CHAR2{1943} local CHARS{1944} local [inside LOOP? 1215] has the following parameter: v{1936} local LOOP?[1214] has the following parameters: CHAR1{1933} local CHAR2{1934} local CHARS{1935} local [inside LOOP? 1209] has the following parameter: v{1927} local LOOP?[1208] has the following parameters: CHAR1{1924} local CHAR2{1925} local CHARS{1926} local [inside LOOP? 1203] has the following parameter: v{1918} local LOOP?[1202] has the following parameters: CHAR1{1915} local CHAR2{1916} local CHARS{1917} local [inside LOOP? 1197] has the following parameter: v{1909} local LOOP?[1196] has the following parameters: CHAR1{1906} local CHAR2{1907} local CHARS{1908} local [inside LOOP? 1191] has the following parameter: v{1900} local LOOP?[1190] has the following parameters: CHAR1{1897} local CHAR2{1898} local CHARS{1899} local [inside LOOP? 1185] has the following parameter: v{1891} local LOOP?[1184] has the following parameters: CHAR1{1888} local CHAR2{1889} local CHARS{1890} local [inside LOOP? 1179] has the following parameter: v{1882} local LOOP?[1178] has the following parameters: CHAR1{1879} local CHAR2{1880} local CHARS{1881} local [inside LOOP? 1173] has the following parameter: v{1873} local LOOP?[1172] has the following parameters: CHAR1{1870} local CHAR2{1871} local CHARS{1872} local [inside LCM 1133] has the following parameter: v{1830} local [inside LOOP 1131] has region [inside LOOP 1127] has the following parameter: v{1829} local [inside LOOP 1126] has the following parameter: N{1828} local LOOP[1125] has the following parameters: N1{1824} local N2{1825} local NS{1826} local P?{1827} local [inside GCD 1118] has the following parameter: v{1820} local [inside LOOP 1116] has the following parameter: v{1819} local [inside LOOP 1115] has the following parameter: R{1818} local [inside LOOP 1114] has the following parameter: v{1817} local LOOP[1113] has the following parameters: N1{1813} local N2{1814} local NS{1815} local P?{1816} local LOOP[1100] has the following parameters: ZS{1800} local R{1801} local LOOP[1080] has the following parameters: XS{1778} local R{1779} local LOOP[1075] has the following parameters: XS{1772} local R{1773} local LOOP[1030] has the following parameter: PACKAGE{1717} local [inside top level 1024] has the following parameter: FOUND{1713} local [inside top level 834] has the following parameter: PACKAGE{1711} global LOOP[769] has the following parameters: LIST{1663} local R{1664} local LOOP[763] has the following parameters: K{1658} local VECTORS{1659} local LOOP[754] has the following parameter: L{1653} local LOOP[749] has the following parameter: VECTORS{1649} local [inside APPEND 744] has the following parameter: K{1645} local [inside APPEND 743] has the following parameter: R{1644} local [inside LOOP 740] has the following parameter: v{1643} local LOOP[739] has the following parameter: SS{1642} local LOOP[735] has the following parameters: K{1638} local STRINGS{1639} local LOOP[726] has the following parameter: L{1633} local [inside LOOP 722] has the following parameter: N{1629} local LOOP[721] has the following parameter: STRINGS{1628} local [inside APPEND 716] has the following parameter: K{1624} local [inside APPEND 715] has the following parameter: R{1623} local [inside LOOP 712] has the following parameter: v{1622} local LOOP[711] has the following parameter: SS{1621} local [inside LOOP 700] has the following parameter: v{1613} local [inside LOOP 699] has the following parameter: v{1612} local LOOP[698] has the following parameter: SS{1611} local LOOP[662] has the following parameter: K{1589} local [inside LOOP? 656] has the following parameter: v{1584} local [inside LOOP? 655] has the following parameter: FAST{1583} local [inside LOOP? 654] has the following parameter: v{1582} local LOOP?[653] has the following parameters: SLOW{1580} local FAST{1581} local [inside LIST? 650] has the following parameter: v{1577} local [inside LOOP? 612] reentrant has the following parameter: v{1537} local LOOP?[611] reentrant has the following parameter: K{1536} local [inside EQUAL? 608] reentrant has the following parameter: v{1533} local [inside EQUAL? 607] reentrant has the following parameter: v{1532} local [inside EQUAL? 606] reentrant has the following parameter: v{1531} local [inside EQV? 603] has the following parameter: v{1526} local [inside EQV? 602] has the following parameter: v{1525} local [inside EQV? 601] has the following parameter: v{1524} local SCHEME-GLOBAL-VAR-REF[475] has the following parameter: I{1510} local [inside SCHEME-GLOBAL-VAR 473] has the following parameter: Y{1508} local [inside SCHEME-GLOBAL-VAR 472] has the following parameter: X{1507} local [inside SCHEME-COMP 470] reentrant [inside SCHEME-COMP 469] reentrant [inside SCHEME-COMP 468] reentrant [inside SCHEME-COMP 467] reentrant [inside SCHEME-COMP 466] reentrant [inside SCHEME-COMP 465] reentrant [inside SCHEME-COMP 464] reentrant [inside SCHEME-COMP 463] reentrant [inside SCHEME-COMP 462] reentrant [inside SCHEME-COMP 461] reentrant [inside SCHEME-COMP 460] reentrant [inside SCHEME-COMP 459] reentrant [inside SCHEME-COMP 458] reentrant [inside SCHEME-COMP 457] reentrant [inside SCHEME-COMP 456] reentrant [inside SCHEME-COMP 453] reentrant [inside SCHEME-COMP 451] reentrant [inside SCHEME-COMP 450] reentrant [inside GEN-COMBINATION-N 444] reentrant has parent parameter GEN-COMBINATION-N[441] [inside GEN-COMBINATION-N 443] reentrant has parent parameter GEN-COMBINATION-N[441] GEN-COMBINATION-N[441] has closure has the following parameters: OPER{1497} slotted ARGS{1498} slotted GEN-COMBINATION-3[439] has closure has the following parameters: OPER{1492} slotted ARG1{1493} slotted ARG2{1494} slotted ARG3{1495} slotted GEN-COMBINATION-2[437] has closure has the following parameters: OPER{1488} slotted ARG1{1489} slotted ARG2{1490} slotted GEN-COMBINATION-1[435] has closure has the following parameters: OPER{1485} slotted ARG1{1486} slotted GEN-COMBINATION-0[433] has closure has the following parameter: OPER{1483} slotted [inside GEN-COMBINATION 427] has the following parameter: v{1482} local GEN-MACRO[424] has closure has the following parameters: NAME{1477} slotted PROC{1478} slotted [inside LOOP 421] reentrant [inside LOOP 420] reentrant LOOP[419] reentrant has the following parameters: X{1473} local I{1474} local L{1475} local [inside GEN-LETREC-N 416] reentrant has parent parameter GEN-LETREC-N[413] [inside GEN-LETREC-N 415] reentrant has parent parameter GEN-LETREC-N[413] has the following parameter: X{1468} local GEN-LETREC-N[413] has closure has the following parameters: NB-VALS{1464} slotted VALS{1465} slotted BODY{1466} slotted [inside GEN-LETREC-3 412] reentrant has parent parameter GEN-LETREC-3[409] [inside GEN-LETREC-3 411] reentrant has parent parameter GEN-LETREC-3[409] has the following parameter: X{1460} local GEN-LETREC-3[409] has closure has the following parameters: VAL1{1455} slotted VAL2{1456} slotted VAL3{1457} slotted BODY{1458} slotted [inside GEN-LETREC-2 408] reentrant has parent parameter GEN-LETREC-2[405] [inside GEN-LETREC-2 407] reentrant has parent parameter GEN-LETREC-2[405] has the following parameter: X{1452} local GEN-LETREC-2[405] has closure has the following parameters: VAL1{1448} slotted VAL2{1449} slotted BODY{1450} slotted [inside GEN-LETREC-1 404] reentrant has parent parameter GEN-LETREC-1[401] [inside GEN-LETREC-1 403] reentrant has parent parameter GEN-LETREC-1[401] has the following parameter: X{1446} local GEN-LETREC-1[401] has closure has the following parameters: VAL1{1443} slotted BODY{1444} slotted [inside GEN-LETREC 396] has the following parameter: v{1442} local [inside GEN-LETREC 395] has the following parameter: NB-VALS{1441} local [inside GEN-CASE-CLAUSE 391] reentrant has parent parameter GEN-CASE-CLAUSE[390] has the following parameters: RTE{1434} local KEY{1435} local GEN-CASE-CLAUSE[390] has closure has the following parameters: DATUMS{1431} slotted CODE1{1432} slotted CODE2{1433} slotted GEN-CASE[388] has closure has the following parameters: CODE1{1428} slotted CODE2{1429} slotted [inside GEN-OR 387] reentrant has parent parameter GEN-OR[385] has the following parameter: TEMP{1427} local [inside GEN-AND 384] reentrant has parent parameter GEN-AND[382] has the following parameter: TEMP{1423} local GEN-AND[382] has closure has the following parameters: CODE1{1420} slotted CODE2{1421} slotted [inside GEN-COND-SEND 381] reentrant has parent parameter GEN-COND-SEND[379] has the following parameter: TEMP{1419} local GEN-COND-SEND[379] has closure has the following parameters: CODE1{1415} slotted CODE2{1416} slotted CODE3{1417} slotted GEN-WHEN[375] has closure has the following parameters: CODE1{1408} slotted CODE2{1409} slotted [inside GEN-SEQUENCE 374] reentrant has parent parameter GEN-SEQUENCE[372] LOOP[367] has the following parameters: N{1399} local X{1400} local I{1401} local L{1402} local [inside GEN-LAMBDA-N 364] reentrant has parent parameter GEN-LAMBDA-N[360] [inside GEN-LAMBDA-N 363] reentrant has parent parameter [inside GEN-LAMBDA-N 361] has the following parameter: X{1391} local GEN-LAMBDA-N[360] has closure has the following parameters: NB-VARS{1384} slotted BODY{1385} slotted GEN-LAMBDA-3[357] has closure has the following parameter: BODY{1379} slotted GEN-LAMBDA-2[354] has closure has the following parameter: BODY{1375} slotted GEN-LAMBDA-1[351] has closure has the following parameter: BODY{1372} slotted GEN-LAMBDA-0[348] has closure has the following parameter: BODY{1370} slotted [inside GEN-LAMBDA 342] has the following parameter: v{1369} local LOOP[337] has the following parameters: N{1362} local X{1363} local I{1364} local L{1365} local [inside GEN-LAMBDA-N-REST 334] reentrant has parent parameter GEN-LAMBDA-N-REST[330] [inside GEN-LAMBDA-N-REST 333] reentrant has parent parameter [inside GEN-LAMBDA-N-REST 331] has the following parameter: X{1354} local GEN-LAMBDA-N-REST[330] has closure has the following parameters: NB-VARS{1347} slotted BODY{1348} slotted GEN-LAMBDA-3-REST[327] has closure has the following parameter: BODY{1342} slotted GEN-LAMBDA-2-REST[324] has closure has the following parameter: BODY{1338} slotted GEN-LAMBDA-1-REST[321] has closure has the following parameter: BODY{1335} slotted [inside GEN-LAMBDA-REST 316] has the following parameter: v{1334} local GEN-LAMBDA-REST[315] has the following parameters: NB-VARS{1332} local BODY{1333} local GEN-GLO-SET[313] has closure has the following parameters: I{1329} slotted CODE{1330} slotted [inside GEN-SLOT-SET-N 311] has parent parameter GEN-SLOT-SET-N[301] [inside GEN-SLOT-SET-N 309] has parent parameter GEN-SLOT-SET-N[301] [inside GEN-SLOT-SET-N 307] has parent parameter GEN-SLOT-SET-N[301] [inside GEN-SLOT-SET-N 305] has parent parameter GEN-SLOT-SET-N[301] [inside GEN-SLOT-SET-N 303] has parent parameter GEN-SLOT-SET-N[301] [inside GEN-SLOT-SET-N 302] has parent parameter GEN-SLOT-SET-N[301] has the following parameter: v{1323} local GEN-SLOT-SET-N[301] has closure has the following parameters: UP{1320} slotted I{1321} slotted CODE{1322} slotted [inside GEN-SLOT-SET-1 299] has parent parameter GEN-SLOT-SET-1[289] [inside GEN-SLOT-SET-1 297] has parent parameter GEN-SLOT-SET-1[289] [inside GEN-SLOT-SET-1 295] has parent parameter GEN-SLOT-SET-1[289] [inside GEN-SLOT-SET-1 293] has parent parameter GEN-SLOT-SET-1[289] [inside GEN-SLOT-SET-1 291] has parent parameter GEN-SLOT-SET-1[289] [inside GEN-SLOT-SET-1 290] has parent parameter GEN-SLOT-SET-1[289] has the following parameter: v{1314} local GEN-SLOT-SET-1[289] has closure has the following parameters: I{1312} slotted CODE{1313} slotted [inside GEN-SLOT-SET-0 287] has parent parameter GEN-SLOT-SET-0[277] [inside GEN-SLOT-SET-0 285] has parent parameter GEN-SLOT-SET-0[277] [inside GEN-SLOT-SET-0 283] has parent parameter GEN-SLOT-SET-0[277] [inside GEN-SLOT-SET-0 281] has parent parameter GEN-SLOT-SET-0[277] [inside GEN-SLOT-SET-0 279] has parent parameter GEN-SLOT-SET-0[277] [inside GEN-SLOT-SET-0 278] has parent parameter GEN-SLOT-SET-0[277] has the following parameter: v{1306} local GEN-SLOT-SET-0[277] has closure has the following parameters: I{1304} slotted CODE{1305} slotted [inside GEN-RTE-SET 273] has the following parameter: v{1303} local GEN-RTE-SET[272] has the following parameters: UP{1300} local OVER{1301} local CODE{1302} local GEN-VECTOR-FORM[269] has closure has the following parameter: CODE{1296} slotted GEN-APPEND-FORM[265] has closure has the following parameters: CODE1{1290} slotted CODE2{1291} slotted [inside GEN-CST 263] has parent parameter GEN-CST[245] [inside GEN-CST 246] has parent parameter GEN-CST[245] has the following parameter: v{1280} local GEN-GLO-REF[243] has closure has the following parameter: I{1277} slotted GEN-SLOT-REF-UP-2[241] has closure has the following parameter: CODE{1275} slotted [inside GEN-SLOT-REF-1 239] has parent parameter GEN-SLOT-REF-1[229] [inside GEN-SLOT-REF-1 230] has parent parameter GEN-SLOT-REF-1[229] has the following parameter: v{1269} local GEN-SLOT-REF-1[229] has closure has the following parameter: I{1268} slotted [inside GEN-SLOT-REF-0 227] has parent parameter GEN-SLOT-REF-0[217] [inside GEN-SLOT-REF-0 218] has parent parameter GEN-SLOT-REF-0[217] has the following parameter: v{1262} local GEN-SLOT-REF-0[217] has closure has the following parameter: I{1261} slotted [inside GEN-RTE-REF 216] reentrant [inside GEN-RTE-REF 213] reentrant has the following parameter: v{1260} local COMP-COMBINATION[210] reentrant has the following parameters: EXPR{1255} local ENV{1256} local [inside COMP-DEFINE-MACRO 209] reentrant has the following parameter: X{1254} local COMP-DEFINE-MACRO[208] reentrant has the following parameter: EXPR{1252} local [inside COMP-DEFINE 207] reentrant [inside COMP-DEFINE 206] reentrant has the following parameter: X{1250} local [inside COMP-DEFINE 205] reentrant has the following parameter: PATTERN{1249} local [inside COMP-DEFINE 204] reentrant COMP-DEFINE[203] reentrant has the following parameters: EXPR{1246} local ENV{1247} local [inside BINDINGS->STEPS 202] reentrant has the following parameter: BINDING{1245} local [inside COMP-DO 200] reentrant [inside COMP-DO 199] reentrant has the following parameter: NEW-ENV2{1243} local [inside COMP-DO 198] reentrant has the following parameter: NEW-ENV1{1242} local [inside COMP-DO 197] reentrant has the following parameter: VARS{1241} local [inside COMP-DO 196] reentrant [inside COMP-DO 195] reentrant has the following parameters: EXIT{1238} local BINDINGS{1239} local [inside COMP-DO 194] reentrant COMP-DO[193] reentrant has the following parameters: EXPR{1235} local ENV{1236} local [inside COMP-SEQUENCE-AUX 192] reentrant has the following parameters: REST{1233} local CODE{1234} local [inside COMP-BEGIN 189] reentrant COMP-BEGIN[188] reentrant has the following parameters: EXPR{1226} local ENV{1227} local [inside COMP-LETREC-AUX 186] reentrant has the following parameter: NEW-ENV{1223} local [inside COMP-LETREC 184] reentrant has the following parameter: BINDINGS{1218} local [inside COMP-LETREC 183] reentrant COMP-LETREC[182] reentrant has the following parameters: EXPR{1215} local ENV{1216} local [inside COMP-LET* 181] reentrant has the following parameter: BINDINGS{1214} local [inside COMP-LET* 180] reentrant COMP-LET*[179] reentrant has the following parameters: EXPR{1211} local ENV{1212} local [inside BINDINGS->VALS 178] reentrant has the following parameter: BINDING{1210} local [inside BINDINGS->VARS 176] reentrant [inside BINDINGS->VARS 175] reentrant has the following parameter: X{1207} local [inside BINDINGS->VARS 174] reentrant [inside BINDINGS->VARS 173] reentrant has the following parameter: BINDING{1205} local [inside COMP-LET 171] reentrant [inside COMP-LET 170] reentrant [inside COMP-LET 169] reentrant has the following parameter: PROC{1203} local [inside COMP-LET 168] reentrant has the following parameter: Y{1202} local [inside COMP-LET 167] reentrant [inside COMP-LET 166] reentrant [inside COMP-LET 165] reentrant has the following parameter: X{1200} local [inside COMP-LET 164] reentrant COMP-LET[163] reentrant has the following parameters: EXPR{1197} local ENV{1198} local [inside COMP-CASE-AUX 162] reentrant [inside COMP-CASE-AUX 161] reentrant has the following parameter: CLAUSE{1195} local [inside COMP-CASE 159] reentrant COMP-CASE[158] reentrant has the following parameters: EXPR{1190} local ENV{1191} local [inside COMP-OR-AUX 157] reentrant has the following parameters: REST{1188} local CODE{1189} local [inside COMP-OR 155] reentrant has the following parameter: REST{1185} local COMP-OR[154] reentrant has the following parameters: EXPR{1183} local ENV{1184} local [inside COMP-AND-AUX 153] reentrant has the following parameters: REST{1181} local CODE{1182} local [inside COMP-AND 151] reentrant has the following parameter: REST{1178} local COMP-AND[150] reentrant has the following parameters: EXPR{1176} local ENV{1177} local [inside COMP-COND-AUX 149] reentrant [inside COMP-COND-AUX 148] reentrant [inside COMP-COND-AUX 147] reentrant [inside COMP-COND-AUX 146] reentrant [inside COMP-COND-AUX 145] reentrant [inside COMP-COND-AUX 144] reentrant [inside COMP-COND-AUX 143] reentrant [inside COMP-COND-AUX 142] reentrant has the following parameter: CLAUSE{1172} local COMP-COND[140] reentrant has the following parameters: EXPR{1168} local ENV{1169} local [inside COMP-IF 139] reentrant has the following parameters: CODE2{1166} local CODE1{1167} local [inside COMP-IF 138] reentrant COMP-IF[137] reentrant has the following parameters: EXPR{1163} local ENV{1164} local [inside DEFINITION-VALUE 136] has the following parameter: PATTERN{1162} local [inside DEFINITION-NAME 132] has the following parameter: NAME{1159} local [inside DEFINITION-NAME 131] has the following parameter: PATTERN{1158} local [inside LETREC-DEFINES 125] reentrant [inside LETREC-DEFINES 124] reentrant has the following parameter: X{1151} local [inside LETREC-DEFINES 123] reentrant [inside LETREC-DEFINES 122] reentrant [inside LETREC-DEFINES 121] reentrant has the following parameter: X{1149} local [inside LETREC-DEFINES 120] reentrant [inside LETREC-DEFINES 119] reentrant [inside LETREC-DEFINES 118] reentrant [inside LETREC-DEFINES 117] reentrant [inside LETREC-DEFINES 116] reentrant [inside LETREC-DEFINES 115] reentrant has the following parameter: EXPR{1148} local LETREC-DEFINES[114] reentrant has the following parameters: VARS{1144} local VALS{1145} local BODY{1146} local ENV{1147} local [inside COMP-BODY 113] reentrant [inside COMP-BODY 112] reentrant REST-PARAM?[107] has the following parameter: PARMS{1137} local [inside PARMS->FRAME 104] reentrant [inside PARMS->FRAME 103] reentrant has the following parameter: X{1134} local [inside PARMS->FRAME 102] reentrant [inside COMP-LAMBDA 99] has the following parameters: CODE{1131} local NB-VARS{1132} local [inside COMP-LAMBDA 98] reentrant has the following parameter: FRAME{1130} local [inside COMP-LAMBDA 97] reentrant has the following parameter: PARMS{1129} local [inside COMP-LAMBDA 96] reentrant COMP-LAMBDA[95] reentrant has the following parameters: EXPR{1126} local ENV{1127} local [inside COMP-SET! 94] reentrant COMP-SET![93] reentrant has the following parameters: EXPR{1122} local ENV{1123} local COMP-UNQUOTE-SPLICING[92] has the following parameter: EXPR{1120} local COMP-UNQUOTE[91] has the following parameter: EXPR{1118} local UNQUOTE-SPLICING?[90] has the following parameter: X{1117} local [inside COMP-QUASIQUOTATION-LIST 89] reentrant [inside COMP-QUASIQUOTATION-LIST 88] reentrant [inside COMP-QUASIQUOTATION-LIST 87] reentrant has the following parameter: FIRST{1115} local [inside COMP-QUASIQUOTATION 84] reentrant [inside COMP-QUASIQUOTATION 83] reentrant [inside COMP-QUASIQUOTATION 81] reentrant [inside COMP-QUASIQUOTATION 80] reentrant [inside COMP-QUASIQUOTATION 79] reentrant [inside COMP-QUASIQUOTATION 78] reentrant [inside COMP-QUASIQUOTATION 77] reentrant [inside COMP-QUASIQUOTATION 76] reentrant COMP-QUASIQUOTE[74] reentrant has the following parameters: EXPR{1106} local ENV{1107} local COMP-QUOTE[72] has the following parameter: EXPR{1103} local COMP-SELF-EVAL[71] has the following parameter: EXPR{1101} local COMP-VAR[69] has the following parameters: EXPR{1098} local ENV{1099} local [inside LOOP 64] has the following parameter: v{1095} local LOOP[63] has the following parameters: FORM{1092} local N{1093} local L{1094} local LOOKUP-MACRO[55] has the following parameters: NAME{1084} local ENV{1085} local PUSH-MACRO[54] has the following parameters: NAME{1081} local PROC{1082} local ENV{1083} local LOOP2[47] has the following parameters: CHAIN{1075} local UP{1076} local FRAME{1077} local OVER{1078} local LOOP1[44] has the following parameters: CHAIN{1071} local UP{1072} local LOOP[38] has the following parameters: L{1063} local I{1064} local VECTOR->LST[35] has the following parameter: V{1060} local LOOP[31] has the following parameters: L{1057} local I{1058} local [inside LST->VECTOR 27] has the following parameter: V{1054} local [inside LST->VECTOR 26] has the following parameter: N{1053} local LST->VECTOR[25] has the following parameter: L{1052} local SCHEME-ADD-MACRO[22] has the following parameters: NAME{1047} local PROC{1048} local [inside SCHEME-EVAL 21] has the following parameter: CODE{1046} local FATAL-ERROR[18] has the following parameter: ARGS{1043} local LOOP[16] has the following parameters: I{1041} local RESULT{1042} local RUN-BENCH[13] has the following parameter: COUNT{1036} local RUN-BENCHMARK[8] has the following parameter: COUNT{1030} local [inside top level 7] has the following parameter: RESULT{1028} local [inside top level 4] has the following parameters: SCHEME-GLOBAL-VARIABLES{651} global SCHEME-SYNTACTIC-KEYWORDS{752} global SCHEME-GLOBAL-ENVIRONMENT{757} global Warning! The following tail-recursive tail calls are not merged: From the following expression, scheme-stalin.sc:121:3650: (COMP-QUASIQUOTATION (CADR EXPR) 1 ENV) to COMP-QUASIQUOTATION[75] From the following expression, scheme-stalin.sc:124:3757: (SCHEME-COMP FORM ENV) to SCHEME-COMP[447] From the following expression, scheme-stalin.sc:127:3847: (COMP-QUASIQUOTATION-LIST FORM ((PRIMITIVE-PROCEDURE +) LEVEL 1) ENV) to COMP-QUASIQUOTATION-LIST[86] From the following expression, scheme-stalin.sc:130:3959: (SCHEME-COMP (CADR FORM) ENV) to SCHEME-COMP[447] From the following expression, scheme-stalin.sc:131:3994: (COMP-QUASIQUOTATION-LIST FORM ((PRIMITIVE-PROCEDURE -) LEVEL 1) ENV) to COMP-QUASIQUOTATION-LIST[86] From the following expression, scheme-stalin.sc:135:4177: (COMP-QUASIQUOTATION-LIST FORM ((PRIMITIVE-PROCEDURE -) LEVEL 1) ENV) to COMP-QUASIQUOTATION-LIST[86] From the following expression, scheme-stalin.sc:136:4239: (COMP-QUASIQUOTATION-LIST FORM LEVEL ENV) to COMP-QUASIQUOTATION-LIST[86] From the following expression, scheme-stalin.sc:154:4913: (COMP-QUASIQUOTATION L LEVEL ENV) to COMP-QUASIQUOTATION[75] From the following expression, scheme-stalin.sc:209:6485: (LETREC-DEFINES* VARS VALS BODY ENV) to LETREC-DEFINES*[126] From the following expression, scheme-stalin.sc:237:7284: (LETREC-DEFINES* VARS VALS BODY ENV) to LETREC-DEFINES*[126] From the following expression, scheme-stalin.sc:244:7507: (COMP-LETREC-AUX VARS VALS BODY ENV) to COMP-LETREC-AUX[185] From the following expression, scheme-stalin.sc:398:12302: (COMP-BODY BODY ENV) to COMP-BODY[111] From the following expression, scheme-stalin.sc:584:18450: (BODY ((PRIMITIVE-PROCEDURE VECTOR) RTE A)) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:588:18542: (BODY ((PRIMITIVE-PROCEDURE VECTOR) RTE A B)) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:593:18641: (BODY ((PRIMITIVE-PROCEDURE VECTOR) RTE A B C)) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:607:19043: (BODY X) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:618:19316: (BODY RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:621:19386: (BODY ((PRIMITIVE-PROCEDURE VECTOR) RTE A)) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:624:19469: (BODY ((PRIMITIVE-PROCEDURE VECTOR) RTE A B)) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:627:19556: (BODY ((PRIMITIVE-PROCEDURE VECTOR) RTE A B C)) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:640:19932: (BODY X) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:645:20089: (CODE2 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] From the following expression, scheme-stalin.sc:650:20247: (CODE2 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:653:20333: (CODE2 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:653:20345: (CODE3 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:660:20539: ((CODE2 RTE) TEMP) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] to [inside GEN-LAMBDA-1 353] to [inside GEN-LAMBDA-2-REST 326] to [inside GEN-LAMBDA-1-REST 323] From the following expression, scheme-stalin.sc:660:20558: (CODE3 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:667:20741: (CODE2 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:674:20933: (CODE2 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:678:21076: (CODE2 RTE (CODE1 RTE)) to [inside GEN-CASE-ELSE 393] From the following expression, scheme-stalin.sc:681:21189: (CODE1 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:681:21201: (CODE2 RTE KEY) to [inside GEN-CASE-ELSE 393] From the following expression, scheme-stalin.sc:683:21268: (CODE RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:699:21759: (BODY X) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:706:21920: (BODY X) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:714:22119: (BODY X) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:723:22377: (BODY X) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:739:22980: ((OPER RTE)) to [inside GEN-LAMBDA-0 350] to [inside GEN-LAMBDA-1-REST 323] From the following expression, scheme-stalin.sc:742:23049: ((OPER RTE) (ARG1 RTE)) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] to [inside GEN-LAMBDA-1 353] to [inside GEN-LAMBDA-2-REST 326] to [inside GEN-LAMBDA-1-REST 323] From the following expression, scheme-stalin.sc:745:23134: ((OPER RTE) (ARG1 RTE) (ARG2 RTE)) to APPLY[1548] to [inside GEN-LAMBDA-2 356] to [inside GEN-LAMBDA-3-REST 329] to [inside GEN-LAMBDA-2-REST 326] to [inside GEN-LAMBDA-1-REST 323] From the following expression, scheme-stalin.sc:748:23235: ((OPER RTE) (ARG1 RTE) (ARG2 RTE) (ARG3 RTE)) to APPLY[1548] to [inside GEN-LAMBDA-N 362] to [inside GEN-LAMBDA-3 359] to [inside GEN-LAMBDA-N-REST 332] to [inside GEN-LAMBDA-3-REST 329] to [inside GEN-LAMBDA-2-REST 326] to [inside GEN-LAMBDA-1-REST 323] From the following expression, scheme-stalin.sc:754:23433: ((PRIMITIVE-PROCEDURE APPLY) (OPER RTE) (EVALUATE ARGS RTE)) to APPLY[1548] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] to [inside GEN-LAMBDA-N 362] to [inside GEN-LAMBDA-3 359] to [inside GEN-LAMBDA-2 356] to [inside GEN-LAMBDA-1 353] to [inside GEN-LAMBDA-0 350] to [inside GEN-LAMBDA-N-REST 332] to [inside GEN-LAMBDA-3-REST 329] to [inside GEN-LAMBDA-2-REST 326] to [inside GEN-LAMBDA-1-REST 323] From the following expression: ((PRIMITIVE-PROCEDURE APPLY) PROC ARG1) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] to [inside GEN-LAMBDA-N 362] to [inside GEN-LAMBDA-3 359] to [inside GEN-LAMBDA-2 356] to [inside GEN-LAMBDA-1 353] to [inside GEN-LAMBDA-0 350] to [inside GEN-LAMBDA-N-REST 332] to [inside GEN-LAMBDA-3-REST 329] to [inside GEN-LAMBDA-2-REST 326] to [inside GEN-LAMBDA-1-REST 323] From the following expression: ((PRIMITIVE-PROCEDURE APPLY) PROC ARG1) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] to [inside GEN-LAMBDA-N 362] to [inside GEN-LAMBDA-3 359] to [inside GEN-LAMBDA-2 356] to [inside GEN-LAMBDA-1 353] to [inside GEN-LAMBDA-0 350] to [inside GEN-LAMBDA-N-REST 332] to [inside GEN-LAMBDA-3-REST 329] to [inside GEN-LAMBDA-2-REST 326] to [inside GEN-LAMBDA-1-REST 323] The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20) The following expression allocates on [inside NUMBER->STRING 2224]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE INTEGER->CHAR) (# # DIGIT)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\. (# #))) The following expression allocates on [inside NUMBER->STRING 2224]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\. ((# #) (# 10. #))) The following expression allocates on [inside NUMBER->STRING 2224]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE INTEGER->CHAR) (# # DIGIT)) ((LAMBDA # #) (# 10. #))) The following expression allocates on [inside NUMBER->STRING 2224]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\e (IF (# EXPONENT) (#) (IF # # #))) The following expression allocates on [inside NUMBER->STRING 2224]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE INTEGER->CHAR) (# # #)) CHARACTERS) The following expression allocates on [inside NUMBER->STRING 2224]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\- CHARACTERS) The following expression allocates on [inside NUMBER->STRING 2224]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE INTEGER->CHAR) (# # #)) CHARACTERS) The following expression allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE INTEGER->CHAR) (# # #)) CHARACTERS) The following expression allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\- CHARACTERS) The following expression allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE INTEGER->CHAR) (# # #)) CHARACTERS) The following expression allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\- (MANTISSA-EXPONENT->CHARACTERS NUMBER 0)) The following expression allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\- (MANTISSA-EXPONENT->CHARACTERS MANTISSA EXPONENT)) The following expression allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\- (MANTISSA-EXPONENT->CHARACTERS MANTISSA EXPONENT)) The following expression allocates on the heap: (PEEK-CHAR PORT) The following expression allocates on the heap: (READ-CHAR PORT) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) C S) The following expression allocates on the heap: (PEEK-CHAR PORT) The following expression allocates on the heap: (READ-CHAR PORT) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CHAR-UPCASE C) S) The following expression allocates on the stack: (PEEK-CHAR PORT) The following expression allocates on [inside READ-NUMBER 1952]: (READ-CHAR PORT) The following expression allocates on [inside READ-NUMBER 1953]: (READ-CHAR PORT) The following expression allocates on [inside READ-NUMBER 1962]: (READ-CHAR PORT) The following expression allocates on [inside READ-NUMBER 1957]: (READ-CHAR PORT) The following expression allocates on [inside READ-NUMBER 1941]: (READ-CHAR PORT) The following expression allocates on READ-NUMBER[1936]: (READ-CHAR PORT) The following expression allocates on the stack: (PEEK-CHAR PORT) The following expression allocates on [inside READ-INEXACT-NUMBER 1918]: (READ-CHAR PORT) The following expression allocates on [inside READ-INEXACT-NUMBER 1919]: (READ-CHAR PORT) The following expression allocates on [inside READ-INEXACT-NUMBER 1928]: (READ-CHAR PORT) The following expression allocates on [inside READ-INEXACT-NUMBER 1923]: (READ-CHAR PORT) The following expression allocates on READ-INEXACT-NUMBER[1904]: (READ-CHAR PORT) The following expression allocates on the stack: (PEEK-CHAR PORT) The following expression allocates on READ-EXACT-HEXADECIMAL-INTEGER[1894]: (READ-CHAR PORT) The following expression allocates on READ-EXACT-HEXADECIMAL-INTEGER[1894]: (READ-CHAR PORT) The following expression allocates on READ-EXACT-HEXADECIMAL-INTEGER[1894]: (READ-CHAR PORT) The following expression allocates on the stack: (PEEK-CHAR PORT) The following expression allocates on READ-EXACT-DECIMAL-INTEGER[1888]: (READ-CHAR PORT) The following expression allocates on the stack: (PEEK-CHAR PORT) The following expression allocates on READ-EXACT-OCTAL-INTEGER[1882]: (READ-CHAR PORT) The following expression allocates on the stack: (PEEK-CHAR PORT) The following expression allocates on READ-EXACT-BINARY-INTEGER[1874]: (READ-CHAR PORT) The following expression allocates on READ-EXACT-BINARY-INTEGER[1874]: (READ-CHAR PORT) The following expression allocates on the heap: (READ-CHAR PORT) The following expression allocates on the heap: (LIST (CHAR-UPCASE C1)) The following expression allocates on the heap: (PEEK-CHAR PORT) The following expression allocates on the heap: (READ-CHAR PORT) The following expression allocates on the heap: (LIST (CHAR-UPCASE C2) (CHAR-UPCASE C1)) The following expression allocates on [inside READ 1864]: (READ-CHAR PORT) The following expression allocates on the heap: (PEEK-CHAR PORT) The following expression allocates on the heap: (READ-CHAR PORT) The following expression allocates on the heap: (LIST (CHAR-UPCASE C2) (CHAR-UPCASE C1)) The following expression allocates on the heap: (READ-CHAR PORT) The following expression allocates on the heap: (PEEK-CHAR PORT) The following expression allocates on the heap: (READ-CHAR PORT) The following expression allocates on the heap: (LIST (CHAR-UPCASE C3) (CHAR-UPCASE C2) (CHAR-UPCASE C1)) The following expression allocates on [inside READ 1853]: (READ-CHAR PORT) The following expression allocates on [inside READ 1847]: (READ-CHAR PORT) The following expression allocates on the heap: (PEEK-CHAR PORT) The following expression allocates on the heap: (READ-CHAR PORT) The following expression allocates on the heap: (LIST (CHAR-UPCASE C2) (CHAR-UPCASE C1)) The following expression allocates on the heap: (READ-CHAR PORT) The following expression allocates on the heap: (PEEK-CHAR PORT) The following expression allocates on the heap: (READ-CHAR PORT) The following expression allocates on the heap: (LIST (CHAR-UPCASE C3) (CHAR-UPCASE C2) (CHAR-UPCASE C1)) The following expression allocates on [inside READ 1836]: (READ-CHAR PORT) The following expression allocates on [inside READ 1830]: (READ-CHAR PORT) The following expression allocates on the stack: (READ-CHAR PORT) The following expression allocates on LOOP[1816]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) C S) The following expression allocates on LOOP[1816]: (READ-CHAR PORT) The following expression allocates on LOOP[1816]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) C1 S) The following expression allocates on the heap: (READ-CHAR PORT) The following expression allocates on the heap: (READ-CHAR PORT) The following expression allocates on the heap: (LIST C3) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) E S) The following expression allocates on [inside READ 1777]: (READ-CHAR PORT) The following expression allocates on [inside READ 1791]: (READ-CHAR PORT) The following expression allocates on [inside READ 1783]: (READ-CHAR PORT) The following expression allocates on [inside READ 1743]: (READ-CHAR PORT) The following expression allocates on [inside READ 1768]: (READ-CHAR PORT) The following expression allocates on [inside READ 1757]: (READ-CHAR PORT) The following expression allocates on [inside READ 1761]: (READ-CHAR PORT) The following expression allocates on [inside READ 1746]: (READ-CHAR PORT) The following expression allocates on [inside READ 1750]: (READ-CHAR PORT) The following expression allocates on [inside READ 1724]: (READ-CHAR PORT) The following expression allocates on [inside READ 1734]: (READ-CHAR PORT) The following expression allocates on [inside READ 1728]: (READ-CHAR PORT) The following expression allocates on [inside READ 1702]: (READ-CHAR PORT) The following expression allocates on [inside READ 1714]: (READ-CHAR PORT) The following expression allocates on [inside READ 1707]: (READ-CHAR PORT) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) E S) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) S) E1) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) S) C) The following expression allocates on the heap: (PEEK-CHAR PORT) The following expression allocates on the heap: (LIST 'UNQUOTE (READ 'UNQUOTE)) The following expression allocates on the heap: (READ-CHAR PORT) The following expression allocates on the heap: (LIST 'UNQUOTE-SPLICING (READ 'UNQUOTE-SPLICING)) The following expression allocates on the heap: (LIST 'QUASIQUOTE (READ 'QUASIQUOTE)) The following expression allocates on the heap: (LIST 'QUOTE (READ 'QUOTE)) The following expression allocates on the stack: (READ-CHAR PORT) The following expression allocates on the heap: (PROC OUTPUT-PORT) The following expression allocates on the heap: (PROC INPUT-PORT) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE APPLY) PROC ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1) ((# #) LISTS '())) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) (# LISTS)) C) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) (# LISTS)) C) The following expression allocates on the heap: (PROC ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST2)) The following expression allocates on the heap: (PROC ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE APPLY) PROC (# LIST1) (# LISTS #)) C) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE APPLY) PROC ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1) ((# #) LISTS '())) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) (# LISTS)) C) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) (# LISTS)) C) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC (# LIST1) (# LIST2)) C) The following expression allocates on the heap: (PROC ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST2)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC (# LIST1)) C) The following expression allocates on the heap: (PROC ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1)) The following expression allocates on the heap: (LIST ARG1) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) ARGS) ARG1) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) ARGS) ARG1) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) VECTOR)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH LIST)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH OBJS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) K ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) FILL)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) K) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) N) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) N) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) (LIST-LENGTH LIST)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((# #) 0 STRINGS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) (LIST-LENGTH CHARS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) K ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) CHAR)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) K) The following expression allocates on [inside LOOP 1131]: (GCD N1 N2) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (STRING-COPY STRING) PACKAGE) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((# #) 0 SS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((# #) 0 SS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1) (LOOP (# LIST1) LIST2 LISTS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OBJ1 OBJ2) The following expression, scheme-stalin.sc:793:25157, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NAME '()) The following expression, scheme-stalin.sc:794:25212, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y SCHEME-GLOBAL-VARIABLES) The following expression, scheme-stalin.sc:753:23381, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((# L) RTE) (EVALUATE (# L) RTE)) The following expression, scheme-stalin.sc:753:23387, allocates on the heap: (((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) L) RTE) The following expression, scheme-stalin.sc:748:23235, allocates on the heap: ((OPER RTE) (ARG1 RTE) (ARG2 RTE) (ARG3 RTE)) The following expression, scheme-stalin.sc:748:23269, allocates on the heap: (ARG3 RTE) The following expression, scheme-stalin.sc:748:23258, allocates on the heap: (ARG2 RTE) The following expression, scheme-stalin.sc:748:23247, allocates on the heap: (ARG1 RTE) The following expression, scheme-stalin.sc:745:23134, allocates on the heap: ((OPER RTE) (ARG1 RTE) (ARG2 RTE)) The following expression, scheme-stalin.sc:745:23157, allocates on the heap: (ARG2 RTE) The following expression, scheme-stalin.sc:745:23146, allocates on the heap: (ARG1 RTE) The following expression, scheme-stalin.sc:742:23049, allocates on the heap: ((OPER RTE) (ARG1 RTE)) The following expression, scheme-stalin.sc:742:23061, allocates on the heap: (ARG1 RTE) The following expression, scheme-stalin.sc:718:22199, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) NB-VALS 1)) The following expression, scheme-stalin.sc:722:22333, allocates on the heap: (((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) L) X) The following expression, scheme-stalin.sc:710:22002, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR) RTE #F #F #F) The following expression, scheme-stalin.sc:713:22106, allocates on the heap: (VAL3 X) The following expression, scheme-stalin.sc:712:22076, allocates on the heap: (VAL2 X) The following expression, scheme-stalin.sc:711:22046, allocates on the heap: (VAL1 X) The following expression, scheme-stalin.sc:703:21836, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR) RTE #F #F) The following expression, scheme-stalin.sc:705:21907, allocates on the heap: (VAL2 X) The following expression, scheme-stalin.sc:704:21877, allocates on the heap: (VAL1 X) The following expression, scheme-stalin.sc:697:21708, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR) RTE #F) The following expression, scheme-stalin.sc:698:21746, allocates on the heap: (VAL1 X) The following expression, scheme-stalin.sc:660:20539, allocates on the heap: ((CODE2 RTE) TEMP) The following expression, scheme-stalin.sc:632:19671, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) NB-VARS 1)) The following expression, scheme-stalin.sc:627:19562, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR) RTE A B C) The following expression, scheme-stalin.sc:624:19475, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR) RTE A B) The following expression, scheme-stalin.sc:621:19392, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR) RTE A) The following expression, scheme-stalin.sc:598:18761, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) NB-VARS 1)) The following expression, scheme-stalin.sc:593:18647, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR) RTE A B C) The following expression, scheme-stalin.sc:588:18548, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR) RTE A B) The following expression, scheme-stalin.sc:584:18456, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR) RTE A) The following expression, scheme-stalin.sc:529:16376, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CODE1 RTE) (CODE2 RTE)) The following expression, scheme-stalin.sc:526:16289, allocates on the heap: (APPEND (CODE1 RTE) (CODE2 RTE)) The following expression, scheme-stalin.sc:459:14178, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'LAMBDA ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (# PATTERN) (CDDR EXPR))) The following expression, scheme-stalin.sc:459:14192, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) PATTERN) (CDDR EXPR)) The following expression, scheme-stalin.sc:444:13721, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (IF (# #) (CADDR BINDING) (# BINDING)) (BINDINGS->STEPS (# BINDINGS))) The following expression, scheme-stalin.sc:428:13215, allocates on the heap: (LIST (GEN-LAMBDA (LENGTH VARS) (GEN-IF # # #))) The following expression, scheme-stalin.sc:401:12367, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (SCHEME-COMP (# L) ENV) (COMP-VALS (# L) ENV)) The following expression, scheme-stalin.sc:377:11644, allocates on the heap: (LIST 'LET (LIST (# BINDINGS)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'LET* (# # #))) The following expression, scheme-stalin.sc:379:11727, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'LET* ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (# BINDINGS) (CDDR EXPR))) The following expression, scheme-stalin.sc:379:11739, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) BINDINGS) (CDDR EXPR)) The following expression, scheme-stalin.sc:378:11680, allocates on the heap: (LIST ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) BINDINGS)) The following expression, scheme-stalin.sc:368:11378, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CADR BINDING) (BINDINGS->VALS (# BINDINGS))) The following expression, scheme-stalin.sc:362:11224, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X (BINDINGS->VARS (# BINDINGS))) The following expression, scheme-stalin.sc:351:10919, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'LAMBDA (# # #)) (BINDINGS->VALS X)) The following expression, scheme-stalin.sc:351:10925, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'LAMBDA ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (BINDINGS->VARS X) (CDDR EXPR))) The following expression, scheme-stalin.sc:351:10939, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (BINDINGS->VARS X) (CDDR EXPR)) The following expression, scheme-stalin.sc:345:10732, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'LAMBDA ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (BINDINGS->VARS Y) (CDDDR EXPR))) The following expression, scheme-stalin.sc:345:10746, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (BINDINGS->VARS Y) (CDDDR EXPR)) The following expression, scheme-stalin.sc:346:10805, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (LIST 'LETREC (LIST #) X) (BINDINGS->VALS Y)) The following expression, scheme-stalin.sc:346:10811, allocates on the heap: (LIST 'LETREC (LIST (LIST X PROC)) X) The following expression, scheme-stalin.sc:346:10825, allocates on the heap: (LIST (LIST X PROC)) The following expression, scheme-stalin.sc:346:10831, allocates on the heap: (LIST X PROC) The following expression, scheme-stalin.sc:259:7900, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'LAMBDA ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (# PATTERN) (CDDR EXPR))) The following expression, scheme-stalin.sc:259:7914, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) PATTERN) (CDDR EXPR)) The following expression, scheme-stalin.sc:253:7755, allocates on the heap: (SCHEME-ERROR "Identifier expected" NAME) The following expression, scheme-stalin.sc:225:6951, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (DEFINITION-VALUE EXPR) VALS) The following expression, scheme-stalin.sc:224:6927, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X VARS) The following expression, scheme-stalin.sc:219:6763, allocates on the heap: (APPEND ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) EXPR) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) BODY)) The following expression, scheme-stalin.sc:213:6605, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (MACRO-EXPAND EXPR ENV) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) BODY)) The following expression, scheme-stalin.sc:195:6179, allocates on the heap: (LIST PARMS) The following expression, scheme-stalin.sc:193:6105, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X (PARMS->FRAME (# PARMS))) The following expression, scheme-stalin.sc:167:5327, allocates on the heap: (SCHEME-ERROR "Ill-placed 'unquote-splicing'" EXPR) The following expression, scheme-stalin.sc:162:5159, allocates on the heap: (SCHEME-ERROR "Ill-placed 'unquote'" EXPR) The following expression, scheme-stalin.sc:134:4116, allocates on the heap: (SCHEME-ERROR "Ill-placed 'unquote-splicing'" FORM) The following expression, scheme-stalin.sc:95:2871, allocates on the heap: (SCHEME-ERROR "Ill-constructed form" FORM) The following expression, scheme-stalin.sc:87:2589, allocates on the heap: (SCHEME-ERROR "Identifier expected" X) The following expression, scheme-stalin.sc:89:2674, allocates on the heap: (SCHEME-ERROR "Variable name can not be a syntactic keyword" X) The following expression, scheme-stalin.sc:79:2344, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) ENV) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (# NAME PROC) (# ENV))) The following expression, scheme-stalin.sc:79:2360, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NAME PROC) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) ENV)) The following expression, scheme-stalin.sc:79:2366, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NAME PROC) The following expression, scheme-stalin.sc:73:2183, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) UP OVER) The following expression, scheme-stalin.sc:62:1828, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (# ENV) FRAME) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) ENV)) The following expression, scheme-stalin.sc:62:1834, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) ENV) FRAME) The following expression, scheme-stalin.sc:49:1400, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR-REF) V I) L) The following expression, scheme-stalin.sc:40:1159, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, scheme-stalin.sc:34:1002, allocates on the heap: (FATAL-ERROR MSG ARGS) The following expression, scheme-stalin.sc:31:903, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NAME PROC) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) SCHEME-GLOBAL-ENVIRONMENT)) The following expression, scheme-stalin.sc:31:909, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NAME PROC) The following expression, scheme-stalin.sc:26:770, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '() '()) The following expression, scheme-stalin.sc:10:338, allocates on the heap: (LIST 'UNDEFINED) The closure for GEN-COMBINATION-N[441] is allocated on the heap The closure for GEN-COMBINATION-3[439] is allocated on the heap The closure for GEN-COMBINATION-2[437] is allocated on the heap The closure for GEN-COMBINATION-1[435] is allocated on the heap The closure for GEN-COMBINATION-0[433] is allocated on the heap The closure for GEN-MACRO[424] is allocated on the heap The closure for GEN-LETREC-N[413] is allocated on the heap The closure for GEN-LETREC-3[409] is allocated on the heap The closure for GEN-LETREC-2[405] is allocated on the heap The closure for GEN-LETREC-1[401] is allocated on the heap The closure for GEN-CASE-ELSE[392] is allocated on the heap The closure for GEN-CASE-CLAUSE[390] is allocated on the heap The closure for GEN-CASE[388] is allocated on the heap The closure for GEN-OR[385] is allocated on the heap The closure for GEN-AND[382] is allocated on the heap The closure for GEN-COND-SEND[379] is allocated on the heap The closure for GEN-IF[377] is allocated on the heap The closure for GEN-WHEN[375] is allocated on the heap The closure for GEN-SEQUENCE[372] is allocated on the heap The closure for [inside GEN-LAMBDA-N 361] is allocated on the heap The closure for GEN-LAMBDA-N[360] is allocated on the heap The closure for [inside GEN-LAMBDA-3 358] is allocated on the heap The closure for GEN-LAMBDA-3[357] is allocated on the heap The closure for [inside GEN-LAMBDA-2 355] is allocated on the heap The closure for GEN-LAMBDA-2[354] is allocated on the heap The closure for [inside GEN-LAMBDA-1 352] is allocated on the heap The closure for GEN-LAMBDA-1[351] is allocated on the heap The closure for [inside GEN-LAMBDA-0 349] is allocated on the heap The closure for GEN-LAMBDA-0[348] is allocated on the heap The closure for [inside GEN-LAMBDA-N-REST 331] is allocated on the heap The closure for GEN-LAMBDA-N-REST[330] is allocated on the heap The closure for [inside GEN-LAMBDA-3-REST 328] is allocated on the heap The closure for GEN-LAMBDA-3-REST[327] is allocated on the heap The closure for [inside GEN-LAMBDA-2-REST 325] is allocated on the heap The closure for GEN-LAMBDA-2-REST[324] is allocated on the heap The closure for [inside GEN-LAMBDA-1-REST 322] is allocated on the heap The closure for GEN-LAMBDA-1-REST[321] is allocated on the heap The closure for GEN-GLO-SET[313] is allocated on the heap The closure for GEN-SLOT-SET-N[301] is allocated on the heap The closure for GEN-SLOT-SET-1[289] is allocated on the heap The closure for GEN-SLOT-SET-0[277] is allocated on the heap The closure for GEN-VECTOR-FORM[269] is allocated on the heap The closure for GEN-CONS-FORM[267] is allocated on the heap The closure for GEN-APPEND-FORM[265] is allocated on the heap The closure for GEN-CST[245] is allocated on the heap The closure for GEN-GLO-REF[243] is allocated on the heap The closure for GEN-SLOT-REF-UP-2[241] is allocated on the heap The closure for GEN-SLOT-REF-1[229] is allocated on the heap The closure for GEN-SLOT-REF-0[217] is allocated on the heap Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W20950 is general case for the following reasons: nondegenerate nonheaded vector W20368 is general case for the following reasons: flonum W18780 is general case for the following reasons: insufficient squish tag bits (4 needed 2 available) W18776 is general case for the following reasons: insufficient squish tag bits (4 needed 2 available) W18706 is general case for the following reasons: insufficient squish tag bits (3 needed 2 available) W18626 is general case for the following reasons: insufficient squish tag bits (3 needed 2 available) W18536 is general case for the following reasons: insufficient squish tag bits (3 needed 2 available) W18334 is general case for the following reasons: insufficient squish tag bits (3 needed 2 available) W17757 is general case for the following reasons: flonum W17753 is general case for the following reasons: flonum W17685 is general case for the following reasons: insufficient squish tag bits (4 needed 2 available) W17675 is general case for the following reasons: insufficient squish tag bits (4 needed 2 available) W17549 is general case for the following reasons: insufficient squish tag bits (3 needed 2 available) W17548 is general case for the following reasons: insufficient squish tag bits (3 needed 2 available) W17547 is general case for the following reasons: insufficient squish tag bits (3 needed 2 available) W17546 is general case for the following reasons: insufficient squish tag bits (4 needed 2 available) W17526 is general case for the following reasons: insufficient squish tag bits (6 needed 2 available) W17506 is general case for the following reasons: flonum W17483 is general case for the following reasons: flonum W15054 is general case for the following reasons: flonum W15047 is general case for the following reasons: flonum W7700 is general case for the following reasons: flonum W7667 is general case for the following reasons: flonum W7666 is general case for the following reasons: flonum W5528 is general case for the following reasons: flonum W5520 is general case for the following reasons: flonum W5505 is general case for the following reasons: insufficient squish tag bits (7 needed 2 available) W5497 is general case for the following reasons: insufficient squish tag bits (6 needed 2 available) W5489 is general case for the following reasons: insufficient squish tag bits (6 needed 2 available) W5473 is general case for the following reasons: insufficient squish tag bits (6 needed 2 available) W5464 is general case for the following reasons: insufficient squish tag bits (6 needed 2 available) W3681 is general case for the following reasons: flonum W2989 is general case for the following reasons: flonum W2937 is general case for the following reasons: flonum W2900 is general case for the following reasons: flonum W2680 is general case for the following reasons: flonum W2679 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code scheme-stalin.c: In function `f2274': scheme-stalin.c:6053: warning: `t1105' might be used uninitialized in this function scheme-stalin.c: In function `f1990': scheme-stalin.c:8169: warning: `t1769' might be used uninitialized in this function scheme-stalin.c: In function `f1894': scheme-stalin.c:9415: warning: `t2167' might be used uninitialized in this function scheme-stalin.c: In function `f1888': scheme-stalin.c:9615: warning: `t2231' might be used uninitialized in this function scheme-stalin.c: In function `f1882': scheme-stalin.c:9687: warning: `t2249' might be used uninitialized in this function scheme-stalin.c: In function `f442': scheme-stalin.c:36788: warning: `t9209' might be used uninitialized in this function scheme-stalin.c:37039: warning: `t9460' might be used uninitialized in this function scheme-stalin.c:37041: warning: `t9462' might be used uninitialized in this function scheme-stalin.c:27680: warning: `r1245' might be used uninitialized in this function scheme-stalin.c: In function `f440': scheme-stalin.c:38592: warning: `t9656' might be used uninitialized in this function scheme-stalin.c:38596: warning: `t9660' might be used uninitialized in this function scheme-stalin.c:38656: warning: `t9720' might be used uninitialized in this function scheme-stalin.c:38730: warning: `t9794' might be used uninitialized in this function scheme-stalin.c:38732: warning: `t9796' might be used uninitialized in this function scheme-stalin.c:38767: warning: `t9831' might be used uninitialized in this function scheme-stalin.c:38841: warning: `t9905' might be used uninitialized in this function scheme-stalin.c:38843: warning: `t9907' might be used uninitialized in this function scheme-stalin.c:38878: warning: `t9942' might be used uninitialized in this function scheme-stalin.c:38952: warning: `t10016' might be used uninitialized in this function scheme-stalin.c:38954: warning: `t10018' might be used uninitialized in this function scheme-stalin.c:27680: warning: `r1245' might be used uninitialized in this function scheme-stalin.c: In function `f438': scheme-stalin.c:42096: warning: `t10174' might be used uninitialized in this function scheme-stalin.c:42099: warning: `t10177' might be used uninitialized in this function scheme-stalin.c:42154: warning: `t10232' might be used uninitialized in this function scheme-stalin.c:42228: warning: `t10306' might be used uninitialized in this function scheme-stalin.c:42230: warning: `t10308' might be used uninitialized in this function scheme-stalin.c:42265: warning: `t10343' might be used uninitialized in this function scheme-stalin.c:42339: warning: `t10417' might be used uninitialized in this function scheme-stalin.c:42341: warning: `t10419' might be used uninitialized in this function scheme-stalin.c:27680: warning: `r1245' might be used uninitialized in this function scheme-stalin.c: In function `f436': scheme-stalin.c:44508: warning: `t10454' might be used uninitialized in this function scheme-stalin.c:44582: warning: `t10528' might be used uninitialized in this function scheme-stalin.c:44584: warning: `t10530' might be used uninitialized in this function scheme-stalin.c:44637: warning: `t10583' might be used uninitialized in this function scheme-stalin.c:44711: warning: `t10657' might be used uninitialized in this function scheme-stalin.c:44713: warning: `t10659' might be used uninitialized in this function scheme-stalin.c: In function `f414': scheme-stalin.c:47094: warning: `t10965' might be used uninitialized in this function scheme-stalin.c:47214: warning: `t11085' might be used uninitialized in this function scheme-stalin.c:47216: warning: `t11087' might be used uninitialized in this function scheme-stalin.c: In function `f410': scheme-stalin.c:48811: warning: `t11296' might be used uninitialized in this function scheme-stalin.c:48931: warning: `t11416' might be used uninitialized in this function scheme-stalin.c:48933: warning: `t11418' might be used uninitialized in this function scheme-stalin.c:49063: warning: `t11548' might be used uninitialized in this function scheme-stalin.c:49183: warning: `t11668' might be used uninitialized in this function scheme-stalin.c:49185: warning: `t11670' might be used uninitialized in this function scheme-stalin.c:49315: warning: `t11800' might be used uninitialized in this function scheme-stalin.c:49435: warning: `t11920' might be used uninitialized in this function scheme-stalin.c:49437: warning: `t11922' might be used uninitialized in this function scheme-stalin.c: In function `f406': scheme-stalin.c:53056: warning: `t12128' might be used uninitialized in this function scheme-stalin.c:53176: warning: `t12248' might be used uninitialized in this function scheme-stalin.c:53178: warning: `t12250' might be used uninitialized in this function scheme-stalin.c:53308: warning: `t12380' might be used uninitialized in this function scheme-stalin.c:53428: warning: `t12500' might be used uninitialized in this function scheme-stalin.c:53430: warning: `t12502' might be used uninitialized in this function scheme-stalin.c: In function `f402': scheme-stalin.c:56022: warning: `t12708' might be used uninitialized in this function scheme-stalin.c:56142: warning: `t12828' might be used uninitialized in this function scheme-stalin.c:56144: warning: `t12830' might be used uninitialized in this function scheme-stalin.c: In function `f68': scheme-stalin.c:74522: warning: `t15365' might be used uninitialized in this function scheme-stalin.c:74773: warning: `t15616' might be used uninitialized in this function scheme-stalin.c:74775: warning: `t15618' might be used uninitialized in this function scheme-stalin.c:27680: warning: `r1245' might be used uninitialized in this function Compilation time summary (in CPU seconds) 0 - 0% - Reading source 3 - 0% - Expanding macros 6 - 0% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 4 - 0% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 4379 - 84% - Performing flow analysis 0 - 0% - Enumerating call sites 26 - 1% - Determining which types and type sets are used 0 - 0% - Determining which call sites to split 2 - 0% - Computing call graph 7 - 0% - Determining which environments are called more than once 11 - 0% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 2 - 0% - Inverting points-to relation 110 - 2% - Determining escaping types 1 - 0% - Determining which environments have unique call sites 6 - 0% - Determining which environments are recursive 25 - 0% - Determining which environments are reentrant 18 - 0% - Asserting uniqueness 108 - 2% - Performing lightweight closure conversion 0 - 0% - Determining parents 28 - 1% - Determining which expressions need conversion to CPS 2 - 0% - Determining environment distances from root 1 - 0% - Determining which environments have external self tail calls 11 - 0% - Determining which environments have external continuation calls 13 - 0% - Determining blocked environments 1 - 0% - Determining allocations 32 - 1% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 6 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 2 - 0% - Determining which type sets are squishable 2 - 0% - Determining alignments 122 - 2% - Generating code 281 - 5% - Removing unused declarations 12 - 0% - Removing unused labels 2 - 0% - Writing database 0 - 0% - Compiling C code 5283.68user 12.62system 1:29:52elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (39248major+1325514minor)pagefaults 0swaps run scheme 184.66user 0.01system 3:07.75elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (171major+571minor)pagefaults 0swaps compile conform Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 16958 expressions 13 internal symbol types 0 external symbol types 43 primitive procedure types 189 non-called native procedure types 397 called noop native procedure types 464 called non-noop native procedure types 1 foreign procedure type 0 continuation types 4 string types 90 structure types 4 headed vector types 1 nonheaded vector type 0 displaced vector types 19629 type sets 732 hunoz variables 1754 non-hunoz variables 578 noop environments 1794 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 5 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 18664 expressions 13 internal symbol types 0 external symbol types 43 primitive procedure types 192 non-called native procedure types 414 called noop native procedure types 598 called non-noop native procedure types 1 foreign procedure type 0 continuation types 4 string types 109 structure types 21 headed vector types 1 nonheaded vector type 0 displaced vector types 21547 type sets 766 hunoz variables 1945 non-hunoz variables 595 noop environments 2031 non-noop environments 2 call sites dispatch on clones Maximal non-LET lexical nesting depth is 5 Maximal clone rate is 18 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 6434 expressions 13 internal symbol types 0 external symbol types 43 primitive procedure types 189 non-called native procedure types 414 called noop native procedure types 598 called non-noop native procedure types 1 foreign procedure type 0 continuation types 4 string types 109 structure types 21 headed vector types 1 nonheaded vector type 0 displaced vector types 8149 type sets 481 hunoz variables 1062 non-hunoz variables 0 noop environments 658 non-noop environments 2 call sites dispatch on clones Maximal non-LET lexical nesting depth is 5 Maximal clone rate is 18 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: [clone [inside MAKE-EDGE-SETTER 62] 2469] reentrant has the following parameters: NODE{2563} local VALUE{2564} local has the following in-lined locals: NODE{868} EDGES{869} [clone [inside MAKE-EDGE-SETTER 62] 2464] reentrant has the following parameters: NODE{2560} local VALUE{2561} local has the following in-lined locals: NODE{864} EDGES{865} [clone [inside MAKE-EDGE-GETTER 59] 2413] reentrant has the following parameter: NODE{2533} local has the following in-lined locals: NODE{861} v{2534} [clone [inside MAKE-EDGE-GETTER 59] 2410] reentrant has the following parameter: NODE{2530} local has the following in-lined locals: NODE{859} v{2531} DISPLAY2[1786] reentrant has the following parameters: OBJ{2277} local PORT{2278} local has the following in-lined locals: OBJ{2282} I{2294} DISPLAY-STRING2[1650] has the following parameters: STRING{2188} local PORT{2189} local has the following in-lined locals: N{2190} I{2193} FOR-EACH[1191] reentrant has the following parameters: PROC{1884} local LIST1{1885} local has the following in-lined locals: EDGE{882} EDGE{883} EDGE{886} VALUE{887} EDGE{888} VALUE{889} NODE{913} v{914} BLUE-EDGE{934} FROM-NODE{984} FROM-NODE{986} SECOND{1070} SS{1181} SS{1184} v{1185} v{1186} SS{1194} v{1195} R{1196} K{1197} STRINGS{1201} N{1202} L{1206} K{1211} STRINGS{1212} SS{1215} v{1216} R{1217} K{1218} VECTORS{1222} L{1226} K{1231} VECTORS{1232} LIST1{1889} NODE{2539} NODE{2543} NODE{2547} OBJ{2667} MAP[1167] reentrant has the following parameters: PROC{1859} local LIST1{1860} local has the following in-lined locals: S{816} OBJ{833} CLASS{922} NODE{923} NODE{930} v{931} CLASS{1004} OP{1047} OP{1057} LIST{1233} LIST{1236} R{1237} CHAR1{1465} CHAR2{1466} CHAR1{1470} CHAR2{1471} CHAR1{1474} CHAR2{1475} CHAR1{1479} CHAR2{1480} LETTER{1537} CHAR{1542} LIST{1739} R{1740} K{1744} LIST1{1864} C{1865} L{2664} LOOP[1084] reentrant has the following parameter: K{1792} local LOOP[1019] reentrant has the following parameter: K{1738} local STRING-APPEND[992] has the following parameter: STRINGS{1716} local has the following in-lined locals: R{1717} K{1718} STRINGS{1722} N{1723} L{1727} K{1732} STRINGS{1733} ASSQ[566] has the following parameters: OBJ{1255} local ALIST{1256} local LOOP[479] reentrant has the following parameters: LIST1{1189} local LIST2{1190} local LISTS{1191} local LENGTH[439] has the following parameter: S{1164} local LIST-LENGTH[431] has the following parameter: LIST{1159} local has the following in-lined local: K{1162} EQUAL?[377] reentrant has the following parameters: OBJ1{1102} local OBJ2{1103} local has the following in-lined locals: OBJ1{1095} OBJ2{1096} v{1097} v{1099} v{1104} v{1105} v{1106} CHAR1{1438} CHAR2{1439} CHAR1{1443} CHAR2{1444} STRING1{1559} STRING2{1560} STRING1{1564} STRING2{1565} N{1567} K{1570} v{1571} JOIN[237] reentrant has closure has the following parameters: GRAPH{1048} slotted NODE1{1049} slotted NODE2{1050} slotted has the following in-lined locals: ELEMENT{847} SET{848} LIST1{856} LIST2{857} NAME{870} NAME{873} v{1051} v{1052} RESULT{1053} OBJ{2507} LIST{2508} OBJS{2628} R{2629} K{2632} OBJS{2633} MEET[224] reentrant has closure has the following parameters: GRAPH{1038} slotted NODE1{1039} slotted NODE2{1040} slotted has the following in-lined locals: LIST1{851} v{1041} v{1042} RESULT{1043} NAME{2635} NAME{2638} OBJS{2719} R{2720} K{2723} OBJS{2724} BLUE-EDGE-OPERATE[223] reentrant has the following parameters: ARG-FN{1032} local RES-FN{1033} local GRAPH{1034} local OP{1035} local SIG1{1036} local SIG2{1037} local has the following in-lined locals: OBJS{2565} R{2566} K{2569} OBJS{2570} INSERT![217] has the following parameters: TABLE{1023} local X{1024} local Y{1025} local VALUE{1026} local has the following in-lined locals: ONE{1029} X{1030} Y{1031} OBJS{2510} LOOKUP[214] has the following parameters: TABLE{1018} local X{1019} local Y{1020} local has the following in-lined locals: ONE{1021} TWO{1022} MAKE-EMPTY-TABLE[213] has the following in-lined local: OBJS{2511} FIND-CANONICAL-REPRESENTATIVE[203] reentrant has the following parameters: ELEMENT{1011} local CLASSIFICATION{1012} local has the following in-lined locals: CLASSES{1015} OBJ{1249} LIST{1250} ADD-NODE[197] reentrant has the following parameter: CLASSES{1010} local has the following in-lined locals: A{997} B{998} PAIR{1120} OBJS{1158} OBJS{2509} DOES-CONFORM[166] reentrant has parent parameter [inside CONFORMS? 157] has the following parameters: T1{987} local T2{988} local has the following in-lined locals: OP{895} NODE{896} FROM-NODE{957} TO-NODE{958} FROM-NODE{959} TO-NODE{960} FROM-NODE{981} TO-NODE{982} v{989} v{990} BLUES{994} CURRENT-EDGE{995} PHI{996} OBJ{2503} LIST{2504} OBJ{2505} LIST{2506} ELEMENT{2521} SET{2522} ELEMENT{2523} SET{2524} NODE{2545} VALUE{2546} OBJ{2715} LIST{2716} OBJ{2717} LIST{2718} CONFORMS?[156] reentrant has the following parameters: T1{967} local T2{968} local has the following in-lined local: RESULT{979} RES[155] has the following parameter: PAIR{966} local ARG[154] has the following parameter: PAIR{965} local [inside top level 152] reentrant has the following parameters: OP{962} local NODE{963} local has the following in-lined locals: THE-EDGE{964} EDGE{2517} EDGE{2518} ANY-NODE?[140] has the following parameter: NODE{956} local NONE-NODE?[139] has the following parameter: NODE{955} local LOOP[126] reentrant has parent parameter FILTER-AND-FIX[123] has the following parameter: LIST{951} local has the following in-lined locals: ENTRY{943} ENTRY{944} LINE{952} ENTRY{953} ENTRY{954} FILTER-AND-FIX[123] reentrant has closure has the following parameters: PREDICATE-FN{946} slotted UPDATE-FN{947} slotted LIST{948} local CANONICAL?[122] has the following parameter: NODE{945} local FIX-TABLE[117] has the following parameter: TABLE{936} local FIX-SET[108] reentrant has the following parameters: OBJECT{927} local SELECTOR{928} local MUTATOR{929} local has the following in-lined locals: NODE{879} VALUE{880} ADD-GRAPH-NODES![86] has the following parameters: GRAPH{903} local NODES{904} local has the following in-lined locals: GRAPH{900} NODES{901} MAKE-GRAPH[85] has the following parameter: NODES{902} local has the following in-lined locals: OBJS{2579} R{2580} K{2583} OBJS{2584} INTERNAL-GRAPH-ALREADY-JOINED[83] has the following parameter: GRAPH{899} local INTERNAL-GRAPH-ALREADY-MET[82] has the following parameter: GRAPH{898} local INTERNAL-GRAPH-NODES[81] has the following parameter: GRAPH{897} local LOOKUP-OP[72] reentrant has the following parameters: OP{890} local NODE{891} local has the following in-lined local: EDGES{894} BLUE-EDGE-OPERATION[66] has the following parameter: EDGE{881} local [inside MAKE-EDGE-GETTER 59] reentrant has the following parameter: NODE{876} local has the following in-lined locals: NODE{860} v{877} SET-INTERNAL-NODE-RED-EDGES![53] has the following parameters: NODE{866} local EDGES{867} local INTERNAL-NODE-NAME[47] has the following parameter: NODE{858} local LOOP[41] reentrant has the following parameter: L{855} local has the following in-lined locals: OBJ{2501} LIST{2502} MERGE[26] reentrant has the following parameters: ONE{845} local TWO{846} local has the following in-lined locals: NODE1{1005} NODE2{1006} SPLIT-LIST[25] reentrant has the following parameters: L{842} local ONE{843} local TWO{844} local has the following in-lined locals: L{841} L{2663} FATAL-ERROR[19] reentrant has the following parameter: ARGS{831} local [inside top level 0] has the following in-lined locals: D{651} C{652} B{653} A{654} RESULT{815} COUNT{818} COUNT{824} I{829} RESULT{830} G{905} L{908} G{909} GRAPH{916} NODES{999} CLASSES{1002} NODES{1003} GRAPH{1016} CLASSES{1017} G{1058} GRAPH{1064} G{1065} G{1072} COUNT{1073} LATTICE{1075} NEW-G{1077} NEW-COUNT{1078} OBJS{1776} R{1777} K{1780} OBJS{1781} LIST{1793} R{1794} K{1798} OBJ{2488} OBJS{2512} OBJS{2513} OBJS{2514} OBJS{2515} OBJS{2516} ELEMENT{2525} SET{2526} ELEMENT{2527} SET{2528} OBJS{2572} R{2573} K{2576} OBJS{2577} OBJS{2586} R{2587} K{2590} OBJS{2591} OBJS{2593} R{2594} K{2597} OBJS{2598} OBJS{2600} R{2601} K{2604} OBJS{2605} OBJS{2607} R{2608} K{2611} OBJS{2612} OBJS{2614} R{2615} K{2618} OBJS{2619} OBJS{2621} R{2622} K{2625} OBJS{2626} NAME{2642} NAME{2646} NAME{2647} NAME{2650} NAME{2651} NAME{2654} NAME{2658} NAME{2662} OBJ{2665} OBJS{2669} R{2670} K{2673} OBJS{2674} OBJS{2676} R{2677} K{2680} OBJS{2681} OBJS{2683} R{2684} K{2687} OBJS{2688} OBJS{2690} R{2691} K{2694} OBJS{2695} OBJS{2697} R{2698} K{2701} OBJS{2702} OBJS{2704} R{2705} K{2708} OBJS{2709} OBJ{2711} LIST{2712} OBJ{2713} LIST{2714} The following non-trivial in-line native procedures will be generated: [clone LOOP[1074] 2633] has the following parameters: K{2723} local OBJS{2724} local [clone [inside VECTOR 1071] 2630] has the following parameter: R{2720} local [clone VECTOR[1070] 2629] has the following parameter: OBJS{2719} local [clone MEMQ[563] 2628] has the following parameters: OBJ{2717} local LIST{2718} local [clone MEMQ[563] 2627] has the following parameters: OBJ{2715} local LIST{2716} local [clone MEMQ[563] 2626] has the following parameters: OBJ{2713} local LIST{2714} local [clone MEMQ[563] 2625] has the following parameters: OBJ{2711} local LIST{2712} local [clone LOOP[1074] 2621] has the following parameters: K{2708} local OBJS{2709} local [clone [inside VECTOR 1071] 2618] has the following parameter: R{2705} local [clone VECTOR[1070] 2617] has the following parameter: OBJS{2704} local [clone LOOP[1074] 2613] has the following parameters: K{2701} local OBJS{2702} local [clone [inside VECTOR 1071] 2610] has the following parameter: R{2698} local [clone VECTOR[1070] 2609] has the following parameter: OBJS{2697} local [clone LOOP[1074] 2605] has the following parameters: K{2694} local OBJS{2695} local [clone [inside VECTOR 1071] 2602] has the following parameter: R{2691} local [clone VECTOR[1070] 2601] has the following parameter: OBJS{2690} local [clone LOOP[1074] 2597] has the following parameters: K{2687} local OBJS{2688} local [clone [inside VECTOR 1071] 2594] has the following parameter: R{2684} local [clone VECTOR[1070] 2593] has the following parameter: OBJS{2683} local [clone LOOP[1074] 2589] has the following parameters: K{2680} local OBJS{2681} local [clone [inside VECTOR 1071] 2586] has the following parameter: R{2677} local [clone VECTOR[1070] 2585] has the following parameter: OBJS{2676} local [clone LOOP[1074] 2581] has the following parameters: K{2673} local OBJS{2674} local [clone [inside VECTOR 1071] 2578] has the following parameter: R{2670} local [clone VECTOR[1070] 2577] has the following parameter: OBJS{2669} local [clone DISPLAY[2137] 2573] has the following parameter: OBJ{2667} local [clone DISPLAY[2137] 2569] has the following parameter: OBJ{2665} local [clone LOOP[24] 2568] has the following parameter: L{2664} local [clone LOOP[24] 2567] reentrant has the following parameter: L{2663} local [clone [inside MAKE-NODE 56] 2566] has the following parameter: NAME{2662} local [clone [inside MAKE-NODE 56] 2564] has the following parameter: NAME{2658} local [clone [inside MAKE-NODE 56] 2562] has region has the following parameter: NAME{2654} local [clone MAKE-NODE[55] 2561] has the following parameter: NAME{2651} local [clone [inside MAKE-NODE 56] 2560] has region has the following parameter: NAME{2650} local [clone MAKE-NODE[55] 2559] has the following parameter: NAME{2647} local [clone [inside MAKE-NODE 56] 2558] has region has the following parameter: NAME{2646} local [clone [inside MAKE-NODE 56] 2556] has region has the following parameter: NAME{2642} local [clone [inside MAKE-NODE 56] 2554] has region has the following parameter: NAME{2638} local [clone MAKE-NODE[55] 2553] has the following parameter: NAME{2635} local [clone LOOP[1074] 2549] has the following parameters: K{2632} local OBJS{2633} local [clone [inside VECTOR 1071] 2546] has the following parameter: R{2629} local [clone VECTOR[1070] 2545] has the following parameter: OBJS{2628} local [clone LOOP[1074] 2541] has the following parameters: K{2625} local OBJS{2626} local [clone [inside VECTOR 1071] 2538] has the following parameter: R{2622} local [clone VECTOR[1070] 2537] has the following parameter: OBJS{2621} local [clone LOOP[1074] 2533] has the following parameters: K{2618} local OBJS{2619} local [clone [inside VECTOR 1071] 2530] has the following parameter: R{2615} local [clone VECTOR[1070] 2529] has the following parameter: OBJS{2614} local [clone LOOP[1074] 2525] has the following parameters: K{2611} local OBJS{2612} local [clone [inside VECTOR 1071] 2522] has the following parameter: R{2608} local [clone VECTOR[1070] 2521] has the following parameter: OBJS{2607} local [clone LOOP[1074] 2517] has the following parameters: K{2604} local OBJS{2605} local [clone [inside VECTOR 1071] 2514] has the following parameter: R{2601} local [clone VECTOR[1070] 2513] has the following parameter: OBJS{2600} local [clone LOOP[1074] 2509] has the following parameters: K{2597} local OBJS{2598} local [clone [inside VECTOR 1071] 2506] has the following parameter: R{2594} local [clone VECTOR[1070] 2505] has the following parameter: OBJS{2593} local [clone LOOP[1074] 2501] has the following parameters: K{2590} local OBJS{2591} local [clone [inside VECTOR 1071] 2498] has the following parameter: R{2587} local [clone VECTOR[1070] 2497] has the following parameter: OBJS{2586} local [clone LOOP[1074] 2493] has the following parameters: K{2583} local OBJS{2584} local [clone [inside VECTOR 1071] 2490] has the following parameter: R{2580} local [clone VECTOR[1070] 2489] has the following parameter: OBJS{2579} local [clone LOOP[1074] 2485] has the following parameters: K{2576} local OBJS{2577} local [clone [inside VECTOR 1071] 2482] has the following parameter: R{2573} local [clone VECTOR[1070] 2481] has the following parameter: OBJS{2572} local [clone LOOP[1074] 2477] has the following parameters: K{2569} local OBJS{2570} local [clone [inside VECTOR 1071] 2474] has the following parameter: R{2566} local [clone VECTOR[1070] 2473] has the following parameter: OBJS{2565} local [clone [inside MAKE-EDGE-SETTER 63] 2470] reentrant [clone [inside MAKE-EDGE-SETTER 63] 2465] reentrant [clone [inside MAKE-EDGE-SETTER 63] 2440] reentrant [clone [inside MAKE-EDGE-SETTER 62] 2439] reentrant has the following parameter: NODE{2547} local [clone [inside MAKE-EDGE-SETTER 63] 2436] reentrant [clone [inside MAKE-EDGE-SETTER 62] 2435] reentrant has the following parameters: NODE{2545} local VALUE{2546} local [clone [inside MAKE-EDGE-SETTER 63] 2432] reentrant [clone [inside MAKE-EDGE-SETTER 62] 2431] reentrant has the following parameter: NODE{2543} local [clone [inside MAKE-EDGE-SETTER 63] 2424] reentrant [clone [inside MAKE-EDGE-SETTER 62] 2423] reentrant has the following parameter: NODE{2539} local [clone [inside MAKE-EDGE-GETTER 60] 2414] has the following parameter: v{2534} local [clone [inside MAKE-EDGE-GETTER 60] 2411] has the following parameter: v{2531} local [clone ADJOIN[33] 2408] has the following parameters: ELEMENT{2527} local SET{2528} local [clone ADJOIN[33] 2407] has the following parameters: ELEMENT{2525} local SET{2526} local [clone ADJOIN[33] 2406] has the following parameters: ELEMENT{2523} local SET{2524} local [clone ADJOIN[33] 2405] has the following parameters: ELEMENT{2521} local SET{2522} local [clone BLUE-EDGE-ARG-NODE[67] 2396] has the following parameter: EDGE{2518} local [clone BLUE-EDGE-RES-NODE[68] 2395] has the following parameter: EDGE{2517} local [clone LIST[430] 2394] has the following parameter: OBJS{2516} local [clone LIST[430] 2393] has the following parameter: OBJS{2515} local [clone LIST[430] 2392] has the following parameter: OBJS{2514} local [clone LIST[430] 2391] has the following parameter: OBJS{2513} local [clone LIST[430] 2390] has the following parameter: OBJS{2512} local [clone LIST[430] 2389] has the following parameter: OBJS{2511} local [clone LIST[430] 2388] has the following parameter: OBJS{2510} local [clone LIST[430] 2387] has the following parameter: OBJS{2509} local [clone MEMQ[563] 2386] has the following parameters: OBJ{2507} local LIST{2508} local [clone MEMQ[563] 2385] has the following parameters: OBJ{2505} local LIST{2506} local [clone MEMQ[563] 2384] has the following parameters: OBJ{2503} local LIST{2504} local [clone MEMQ[563] 2383] has the following parameters: OBJ{2501} local LIST{2502} local DISPLAY[2137] has the following parameter: OBJ{2488} local [inside LOOP 1819] reentrant [inside LOOP 1818] reentrant LOOP[1817] reentrant has the following parameter: I{2294} local [inside DISPLAY2 1814] reentrant [inside DISPLAY2 1813] reentrant [inside DISPLAY2 1811] reentrant [inside LOOP 1808] reentrant [inside LOOP 1807] reentrant [inside LOOP 1806] reentrant [inside LOOP 1804] reentrant LOOP[1803] reentrant has the following parameter: OBJ{2282} local [inside DISPLAY2 1800] reentrant [inside DISPLAY2 1799] reentrant LOOP[1654] has the following parameter: I{2193} local [inside DISPLAY-STRING2 1651] has the following parameter: N{2190} local [inside top level 1646] has the following parameter: THE-CURRENT-OUTPUT-PORT{2149} global [inside LOOP 1197] reentrant [inside LOOP 1196] reentrant LOOP[1195] reentrant has the following parameter: LIST1{1889} local [inside FOR-EACH 1192] reentrant LOOP[1171] reentrant has the following parameters: LIST1{1864} local C{1865} local [inside MAP 1168] reentrant LOOP[1091] has the following parameter: K{1798} local [inside LIST->VECTOR 1087] has the following parameter: R{1794} local LIST->VECTOR[1086] has the following parameter: LIST{1793} local VECTOR->LIST[1081] has the following parameter: VECTOR{1789} global LOOP[1074] has the following parameters: K{1780} local OBJS{1781} local [inside VECTOR 1071] has the following parameter: R{1777} local VECTOR[1070] has the following parameter: OBJS{1776} local LOOP[1026] has the following parameter: K{1744} local [inside LIST->STRING 1022] has the following parameter: R{1740} local LIST->STRING[1021] has the following parameter: LIST{1739} local [inside STRING->LIST 1016] has the following parameter: N{1735} global STRING->LIST[1015] has the following parameter: STRING{1734} global LOOP[1013] has the following parameters: K{1732} local STRINGS{1733} local LOOP[1004] has the following parameter: L{1727} local [inside LOOP 1000] has the following parameter: N{1723} local LOOP[999] has the following parameter: STRINGS{1722} local [inside STRING-APPEND 994] has the following parameter: K{1718} local [inside STRING-APPEND 993] has the following parameter: R{1717} local [inside LOOP? 878] has the following parameter: v{1571} local LOOP?[877] has the following parameter: K{1570} local [inside LOOP? 874] has the following parameter: N{1567} local LOOP?[873] has the following parameters: STRING1{1564} local STRING2{1565} local STRING=?[870] has the following parameters: STRING1{1559} local STRING2{1560} local CHAR-DOWNCASE[853] has the following parameter: CHAR{1542} local CHAR-UPPER-CASE?[848] has the following parameter: LETTER{1537} local LOOP?[806] has the following parameters: CHAR1{1479} local CHAR2{1480} local CHAR>=?[803] has the following parameters: CHAR1{1474} local CHAR2{1475} local LOOP?[800] has the following parameters: CHAR1{1470} local CHAR2{1471} local CHAR<=?[797] has the following parameters: CHAR1{1465} local CHAR2{1466} local LOOP?[782] has the following parameters: CHAR1{1443} local CHAR2{1444} local CHAR=?[779] has the following parameters: CHAR1{1438} local CHAR2{1439} local MEMQ[563] has the following parameters: OBJ{1249} local LIST{1250} local LOOP[541] has the following parameters: LIST{1236} local R{1237} local LIST-REVERSE[538] has the following parameter: LIST{1233} local LOOP[535] has the following parameters: K{1231} local VECTORS{1232} local LOOP[526] has the following parameter: L{1226} local LOOP[521] has the following parameter: VECTORS{1222} local [inside APPEND 516] has the following parameter: K{1218} local [inside APPEND 515] has the following parameter: R{1217} local [inside LOOP 512] has the following parameter: v{1216} local LOOP[511] has the following parameter: SS{1215} local LOOP[507] has the following parameters: K{1211} local STRINGS{1212} local LOOP[498] has the following parameter: L{1206} local [inside LOOP 494] has the following parameter: N{1202} local LOOP[493] has the following parameter: STRINGS{1201} local [inside APPEND 488] has the following parameter: K{1197} local [inside APPEND 487] has the following parameter: R{1196} local [inside LOOP 484] has the following parameter: v{1195} local LOOP[483] has the following parameter: SS{1194} local [inside LOOP 472] has the following parameter: v{1186} local [inside LOOP 471] has the following parameter: v{1185} local LOOP[470] has the following parameter: SS{1184} local APPEND[466] has the following parameter: SS{1181} local LOOP[434] has the following parameter: K{1162} local LIST[430] has the following parameter: OBJS{1158} local CAAR[392] has the following parameter: PAIR{1120} local [inside EQUAL? 380] has the following parameter: v{1106} local [inside EQUAL? 379] has the following parameter: v{1105} local [inside EQUAL? 378] reentrant has the following parameter: v{1104} local [inside EQV? 375] has the following parameter: v{1099} local [inside EQV? 373] has the following parameter: v{1097} local EQV?[372] has the following parameters: OBJ1{1095} local OBJ2{1096} local [inside TEST 286] has region SETUP[283] has region [inside LOOP 267] has the following parameter: NEW-COUNT{1078} local [inside LOOP 266] has the following parameter: NEW-G{1077} local [inside LOOP 264] has the following parameter: LATTICE{1075} local LOOP[262] has region has the following parameters: G{1072} local COUNT{1073} local [inside STEP 261] reentrant has parent parameter [inside STEP 259] [inside STEP 260] reentrant has parent parameter [inside STEP 259] has the following parameter: SECOND{1070} local [inside STEP 259] reentrant has closure has the following parameter: FIRST{1069} slotted [inside STEP 256] has the following parameter: NODES{1067} global [inside STEP 255] has the following parameter: COPY{1066} global STEP[254] has the following parameter: G{1065} local [inside MAKE-LATTICE 253] has the following parameter: GRAPH{1064} local MAKE-LATTICE[250] has the following parameter: G{1058} local [inside JOIN 249] reentrant has parent parameter JOIN[237] has the following parameter: OP{1057} local [inside JOIN 247] reentrant has parent parameter JOIN[237] has region has the following parameter: RESULT{1053} local [inside JOIN 246] reentrant has parent parameter JOIN[237] [inside JOIN 245] has parent parameter JOIN[237] [inside JOIN 244] has parent parameter JOIN[237] [inside JOIN 243] reentrant has parent parameter JOIN[237] has the following parameter: v{1052} local [inside JOIN 241] has parent parameter JOIN[237] has the following parameter: v{1051} local [inside JOIN 240] has parent parameter JOIN[237] [inside JOIN 239] has parent parameter JOIN[237] [inside JOIN 238] has parent parameter JOIN[237] [inside MEET 236] reentrant has parent parameter MEET[224] has the following parameter: OP{1047} local [inside MEET 234] reentrant has parent parameter MEET[224] has region has the following parameter: RESULT{1043} local [inside MEET 233] reentrant has parent parameter MEET[224] [inside MEET 232] has parent parameter MEET[224] [inside MEET 231] has parent parameter MEET[224] [inside MEET 230] reentrant has parent parameter MEET[224] has the following parameter: v{1042} local [inside MEET 229] has parent parameter MEET[224] [inside MEET 228] has parent parameter MEET[224] [inside MEET 226] has parent parameter MEET[224] has the following parameter: v{1041} local [inside MEET 225] has parent parameter MEET[224] MAKE-SINGLETON-TABLE[221] has the following parameters: X{1030} local Y{1031} local [inside INSERT! 220] has the following parameter: ONE{1029} local [inside LOOKUP 216] has the following parameter: TWO{1022} local [inside LOOKUP 215] has the following parameter: ONE{1021} local [inside REDUCE 212] has the following parameter: CLASSES{1017} local REDUCE[211] has the following parameter: GRAPH{1016} local [inside LOOP 209] reentrant [inside LOOP 207] reentrant LOOP[206] reentrant has the following parameter: CLASSES{1015} local [inside ADD-NODE 200] reentrant [inside NODE-LOOP 194] has the following parameter: THIS-NODE{1007} global [inside NODE-LOOP 193] has the following parameters: NODE1{1005} local NODE2{1006} local [inside NODE-LOOP 192] has the following parameter: CLASS{1004} local NODE-LOOP[191] has region has the following parameters: CLASSES{1002} local NODES{1003} local CLASSIFY[188] has the following parameter: NODES{999} local EQUIVALENT?[187] has the following parameters: A{997} local B{998} local [inside LOOP 180] reentrant has parent parameter [inside CONFORMS? 157] [inside LOOP 179] reentrant has parent parameter [inside CONFORMS? 157] has the following parameter: PHI{996} local [inside LOOP 178] reentrant has parent parameter [inside CONFORMS? 157] has the following parameter: CURRENT-EDGE{995} local LOOP[177] reentrant has parent parameter [inside CONFORMS? 157] has the following parameter: BLUES{994} local [inside DOES-CONFORM 176] has parent parameter [inside CONFORMS? 157] [inside DOES-CONFORM 175] has parent parameter [inside CONFORMS? 157] has the following parameter: LOOP{992} hidden as LOOP[177] [inside DOES-CONFORM 174] reentrant has parent parameter [inside CONFORMS? 157] [inside DOES-CONFORM 173] reentrant has parent parameter [inside CONFORMS? 157] [inside DOES-CONFORM 169] has the following parameter: v{990} local [inside DOES-CONFORM 167] has the following parameter: v{989} local DELETE-RED-EDGES![165] reentrant has the following parameter: FROM-NODE{986} local [inside GREENIFY-RED-EDGES! 164] reentrant GREENIFY-RED-EDGES![163] reentrant has the following parameter: FROM-NODE{984} local [inside ADD-RED-EDGE! 162] has parent parameter [inside CONFORMS? 157] ADD-RED-EDGE![161] reentrant has parent parameter [inside CONFORMS? 157] has the following parameters: FROM-NODE{981} local TO-NODE{982} local [inside CONFORMS? 159] reentrant has parent parameter [inside CONFORMS? 157] has the following parameter: RESULT{979} local [inside CONFORMS? 158] reentrant has parent parameter [inside CONFORMS? 157] [inside CONFORMS? 157] reentrant has closure has the following parameters: DOES-CONFORM{969} slotted ADD-RED-EDGE!{972} slotted NODES-WITH-RED-EDGES-OUT{973} slotted [inside top level 153] has the following parameter: THE-EDGE{964} local [inside top level 151] has the following parameter: NONE-COMMA-ANY{961} global RED-EDGE?[146] reentrant has the following parameters: FROM-NODE{959} local TO-NODE{960} local GREEN-EDGE?[141] reentrant has the following parameters: FROM-NODE{957} local TO-NODE{958} local [inside FIX-LINE 133] has the following parameter: ENTRY{954} local [inside FIX-LINE 132] has the following parameter: ENTRY{953} local FIX-LINE[131] reentrant has the following parameter: LINE{952} local [inside LOOP 129] reentrant has parent parameter FILTER-AND-FIX[123] [inside LOOP 128] reentrant has parent parameter FILTER-AND-FIX[123] [inside FILTER-AND-FIX 125] has parent parameter FILTER-AND-FIX[123] [inside FILTER-AND-FIX 124] has parent parameter FILTER-AND-FIX[123] has the following parameter: LOOP{949} hidden as LOOP[126] [inside FIX-TABLE 121] reentrant has the following parameter: ENTRY{944} local [inside FIX-TABLE 120] has the following parameter: ENTRY{943} local [inside FIX 114] reentrant [inside FIX 113] reentrant has the following parameter: BLUE-EDGE{934} local [inside FIX 112] reentrant [inside FIX 111] reentrant [inside FIX 110] has the following parameter: v{931} local [inside FIX-SET 109] reentrant has the following parameter: NODE{930} local [inside FIX 106] reentrant FIX[105] reentrant has the following parameter: NODE{923} local [inside CANONICALIZE-GRAPH 104] reentrant has the following parameter: CLASS{922} local [inside CANONICALIZE-GRAPH 103] has region CANONICALIZE-GRAPH[101] has the following parameters: GRAPH{916} local CLASSES{917} global [inside CLEAN-NODE 98] reentrant [inside CLEAN-NODE 97] reentrant [inside CLEAN-NODE 96] has the following parameter: v{914} local CLEAN-NODE[95] reentrant has the following parameter: NODE{913} local CLEAN-GRAPH[92] has the following parameter: G{909} local COPY-LIST[90] has region has the following parameter: L{908} local [inside COPY-GRAPH 89] has region COPY-GRAPH[87] has the following parameter: G{905} local SET-INTERNAL-GRAPH-NODES![84] has the following parameters: GRAPH{900} local NODES{901} local HAS-OP?[80] reentrant has the following parameters: OP{895} local NODE{896} local LOOP[75] has the following parameter: EDGES{894} local SET-BLUE-EDGE-RES-NODE![71] has the following parameters: EDGE{888} local VALUE{889} local SET-BLUE-EDGE-ARG-NODE![70] has the following parameters: EDGE{886} local VALUE{887} local BLUE-EDGE-RES-NODE[68] has the following parameter: EDGE{883} local BLUE-EDGE-ARG-NODE[67] has the following parameter: EDGE{882} local [inside MAKE-EDGE-SETTER 63] reentrant [inside MAKE-EDGE-SETTER 62] reentrant has the following parameters: NODE{879} local VALUE{880} local [inside MAKE-EDGE-GETTER 60] has the following parameter: v{877} local [inside MAKE-NODE 56] has region has the following parameter: NAME{873} local MAKE-NODE[55] has the following parameter: NAME{870} local SET-INTERNAL-NODE-BLUE-EDGES![54] has the following parameters: NODE{868} local EDGES{869} local SET-INTERNAL-NODE-GREEN-EDGES![52] has the following parameters: NODE{864} local EDGES{865} local INTERNAL-NODE-BLUE-EDGES[50] has the following parameter: NODE{861} local INTERNAL-NODE-RED-EDGES[49] has the following parameter: NODE{860} local INTERNAL-NODE-GREEN-EDGES[48] has the following parameter: NODE{859} local UNION[46] has the following parameters: LIST1{856} local LIST2{857} local [inside LOOP 44] reentrant [inside LOOP 43] reentrant INTERSECT[38] has the following parameters: LIST1{851} local LIST2{852} global ADJOIN[33] has the following parameters: ELEMENT{847} local SET{848} local [inside MERGE 29] reentrant [inside MERGE 28] reentrant LOOP[24] reentrant has the following parameter: L{841} local SORT-LIST[21] has the following parameter: OBJ{833} local LOOP[17] has the following parameters: I{829} local RESULT{830} local RUN-BENCH[14] has the following parameter: COUNT{824} local RUN-BENCHMARK[9] has the following parameter: COUNT{818} local [inside top level 8] reentrant has region has the following parameter: S{816} local [inside top level 7] has the following parameter: RESULT{815} local [inside top level 4] has the following parameters: D{651} local C{652} local B{653} local A{654} local ANY-NODE{673} global NONE-NODE{675} global The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH OBJS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH OBJS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH OBJS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH OBJS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH OBJS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH OBJS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH OBJS)) The following expression, conform-stalin.sc:74:2374, allocates on the heap: (MAKE-INTERNAL-NODE NAME '() '() BLUE-EDGES) The following expression, conform-stalin.sc:74:2374, allocates on the heap: (MAKE-INTERNAL-NODE NAME '() '() BLUE-EDGES) The following expression, conform-stalin.sc:74:2374, allocates on [clone [inside MAKE-NODE 56] 2562]: (MAKE-INTERNAL-NODE NAME '() '() BLUE-EDGES) The following expression, conform-stalin.sc:74:2374, allocates on [clone [inside MAKE-NODE 56] 2560]: (MAKE-INTERNAL-NODE NAME '() '() BLUE-EDGES) The following expression, conform-stalin.sc:74:2374, allocates on [clone [inside MAKE-NODE 56] 2558]: (MAKE-INTERNAL-NODE NAME '() '() BLUE-EDGES) The following expression, conform-stalin.sc:74:2374, allocates on [clone [inside MAKE-NODE 56] 2556]: (MAKE-INTERNAL-NODE NAME '() '() BLUE-EDGES) The following expression, conform-stalin.sc:74:2374, allocates on [clone [inside MAKE-NODE 56] 2554]: (MAKE-INTERNAL-NODE NAME '() '() BLUE-EDGES) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH OBJS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH OBJS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH OBJS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH OBJS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH OBJS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH OBJS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH OBJS)) The following expression allocates on [inside TEST 286]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH OBJS)) The following expression allocates on LOOP[262]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH OBJS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH OBJS)) The following expression, conform-stalin.sc:95:3036, allocates on the stack: (FATAL-ERROR "Can't set edges from the ANY node") The following expression, conform-stalin.sc:95:3036, allocates on the stack: (FATAL-ERROR "Can't set edges from the ANY node") The following expression, conform-stalin.sc:95:3036, allocates on the stack: (FATAL-ERROR "Can't set edges from the ANY node") The following expression, conform-stalin.sc:95:3036, allocates on the stack: (FATAL-ERROR "Can't set edges from the ANY node") The following expression, conform-stalin.sc:95:3036, allocates on the stack: (FATAL-ERROR "Can't set edges from the ANY node") The following expression, conform-stalin.sc:95:3036, allocates on the stack: (FATAL-ERROR "Can't set edges from the ANY node") The following expression, conform-stalin.sc:85:2661, allocates on the stack: (FATAL-ERROR "Can't get edges from the ANY or NONE nodes") The following expression, conform-stalin.sc:85:2661, allocates on the stack: (FATAL-ERROR "Can't get edges from the ANY or NONE nodes") The following expression, conform-stalin.sc:43:1124, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ELEMENT SET) The following expression, conform-stalin.sc:43:1124, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ELEMENT SET) The following expression, conform-stalin.sc:43:1124, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ELEMENT SET) The following expression, conform-stalin.sc:43:1124, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ELEMENT SET) The following expression allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC (# LIST1)) C) The following expression allocates on COPY-LIST[90]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH LIST)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR-REF) VECTOR K) (LOOP (# K 1))) The following expression allocates on [inside TEST 286]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (LIST-LENGTH OBJS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) (LIST-LENGTH LIST)) The following expression allocates on [inside top level 8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRING-REF) STRING K) (LOOP (# K 1))) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((# #) 0 STRINGS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((# #) 0 SS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((# #) 0 SS)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1) (LOOP (# LIST1) LIST2 LISTS)) The following expression, conform-stalin.sc:458:14364, allocates on the heap: (MAKE-GRAPH A B C D ANY-NODE NONE-NODE) The following expression, conform-stalin.sc:451:14196, allocates on the heap: (LIST (MAKE-BLUE-EDGE 'PHI ANY-NODE C) (MAKE-BLUE-EDGE 'THETA ANY-NODE D)) The following expression, conform-stalin.sc:452:14240, allocates on SETUP[283]: (MAKE-BLUE-EDGE 'THETA ANY-NODE D) The following expression, conform-stalin.sc:451:14202, allocates on SETUP[283]: (MAKE-BLUE-EDGE 'PHI ANY-NODE C) The following expression, conform-stalin.sc:450:14133, allocates on the heap: (LIST (MAKE-BLUE-EDGE 'THETA ANY-NODE B)) The following expression, conform-stalin.sc:450:14139, allocates on SETUP[283]: (MAKE-BLUE-EDGE 'THETA ANY-NODE B) The following expression, conform-stalin.sc:446:13980, allocates on the heap: (LIST (MAKE-BLUE-EDGE 'PHI ANY-NODE A) (MAKE-BLUE-EDGE 'THETA ANY-NODE B)) The following expression, conform-stalin.sc:447:14024, allocates on SETUP[283]: (MAKE-BLUE-EDGE 'THETA ANY-NODE B) The following expression, conform-stalin.sc:446:13986, allocates on SETUP[283]: (MAKE-BLUE-EDGE 'PHI ANY-NODE A) The following expression, conform-stalin.sc:445:13919, allocates on the heap: (LIST (MAKE-BLUE-EDGE 'PHI ANY-NODE B)) The following expression, conform-stalin.sc:445:13925, allocates on SETUP[283]: (MAKE-BLUE-EDGE 'PHI ANY-NODE B) The following expression, conform-stalin.sc:392:12468, allocates on the stack: (STRING-APPEND "(" (NAME NODE1) " v " (NAME NODE2) ")") The following expression, conform-stalin.sc:368:11696, allocates on the stack: (STRING-APPEND "(" (NAME NODE1) " ^ " (NAME NODE2) ")") The following expression, conform-stalin.sc:352:11222, allocates on the stack: (MAKE-BLUE-EDGE OP (ARG-FN GRAPH (ARG SIG1) (ARG SIG2)) (RES-FN GRAPH (RES SIG1) (RES SIG2))) The following expression, conform-stalin.sc:341:10868, allocates on the heap: (LIST ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X Y)) The following expression, conform-stalin.sc:341:10874, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X Y) The following expression, conform-stalin.sc:345:11007, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X (MAKE-SINGLETON-TABLE Y VALUE)) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) TABLE)) The following expression, conform-stalin.sc:345:11013, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X (MAKE-SINGLETON-TABLE Y VALUE)) The following expression, conform-stalin.sc:344:10952, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y VALUE) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) ONE)) The following expression, conform-stalin.sc:344:10958, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) Y VALUE) The following expression, conform-stalin.sc:333:10631, allocates on the heap: (LIST 'TABLE) The following expression, conform-stalin.sc:320:10222, allocates on the stack: (FATAL-ERROR "Can't classify" ELEMENT) The following expression, conform-stalin.sc:312:9892, allocates on NODE-LOOP[191]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) CLASSES) (ADD-NODE (# CLASSES))) The following expression, conform-stalin.sc:311:9826, allocates on NODE-LOOP[191]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) THIS-NODE (# CLASSES)) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 1) CLASSES)) The following expression, conform-stalin.sc:311:9832, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) THIS-NODE ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) CLASSES)) The following expression, conform-stalin.sc:309:9746, allocates on NODE-LOOP[191]: (LIST (LIST THIS-NODE)) The following expression, conform-stalin.sc:309:9752, allocates on the heap: (LIST THIS-NODE) The following expression, conform-stalin.sc:264:8377, allocates on the stack: (APPEND (RED-EDGES FROM-NODE) (GREEN-EDGES FROM-NODE)) The following expression, conform-stalin.sc:242:7706, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NONE-NODE ANY-NODE) The following expression, conform-stalin.sc:246:7866, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (ARG-NODE THE-EDGE) (RES-NODE THE-EDGE)) The following expression, conform-stalin.sc:200:6568, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) ENTRY) (FIND-CANONICAL-REPRESENTATIVE (# ENTRY) CLASSES)) The following expression, conform-stalin.sc:195:6377, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (UPDATE-FN (# LIST)) (LOOP (# LIST))) The following expression, conform-stalin.sc:205:6692, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TABLE) (FILTER-AND-FIX (LAMBDA # #) (LAMBDA # #) (# TABLE))) The following expression, conform-stalin.sc:208:6801, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) ENTRY) (FIX-LINE (# ENTRY))) The following expression, conform-stalin.sc:210:6867, allocates on [inside CANONICALIZE-GRAPH 103]: (MAKE-INTERNAL-GRAPH (MAP (LAMBDA # #) CLASSES) (FIX-TABLE (ALREADY-MET GRAPH)) (FIX-TABLE (ALREADY-JOINED GRAPH))) The following expression, conform-stalin.sc:157:5137, allocates on [inside COPY-GRAPH 89]: (MAKE-INTERNAL-GRAPH (COPY-LIST (GRAPH-NODES G)) (ALREADY-MET G) (ALREADY-JOINED G)) The following expression, conform-stalin.sc:153:5021, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NODES (GRAPH-NODES GRAPH)) The following expression, conform-stalin.sc:142:4682, allocates on the stack: (MAKE-INTERNAL-GRAPH NODES (MAKE-EMPTY-TABLE) (MAKE-EMPTY-TABLE)) The following expression, conform-stalin.sc:95:3036, allocates on the stack: (FATAL-ERROR "Can't set edges from the ANY node") The following expression, conform-stalin.sc:85:2661, allocates on the stack: (FATAL-ERROR "Can't get edges from the ANY or NONE nodes") The following expression, conform-stalin.sc:74:2374, allocates on [inside MAKE-NODE 56]: (MAKE-INTERNAL-NODE NAME '() '() BLUE-EDGES) The following expression, conform-stalin.sc:53:1412, allocates on [inside MEET 234]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) L) (LOOP (# L))) The following expression, conform-stalin.sc:43:1124, allocates on [inside JOIN 247]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ELEMENT SET) The following expression, conform-stalin.sc:35:937, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) ONE) (MERGE (# ONE) TWO)) The following expression, conform-stalin.sc:34:890, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TWO) (MERGE (# TWO) ONE)) The following expression, conform-stalin.sc:28:749, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) L) ONE) The following expression, conform-stalin.sc:10:338, allocates on the heap: (LIST 'UNDEFINED) The closure for [inside STEP 259] is allocated on the stack The closure for JOIN[237] is allocated on the stack The closure for MEET[224] is allocated on the stack The closure for [inside CONFORMS? 157] is allocated on the stack The closure for FILTER-AND-FIX[123] is allocated on the stack Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W18373 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code conform-stalin.c: In function `f2413': conform-stalin.c:489: warning: `r2413' might be used uninitialized in this function conform-stalin.c: In function `f2410': conform-stalin.c:516: warning: `r2410' might be used uninitialized in this function conform-stalin.c: In function `f203': conform-stalin.c:3186: warning: `r203' might be used uninitialized in this function conform-stalin.c: In function `f156': conform-stalin.c:3779: warning: `a969' might be used uninitialized in this function conform-stalin.c:3780: warning: `a972' might be used uninitialized in this function conform-stalin.c:3781: warning: `a973' might be used uninitialized in this function conform-stalin.c: In function `f59': conform-stalin.c:4268: warning: `r59' might be used uninitialized in this function Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 2% - Expanding macros 3 - 3% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 1 - 1% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 26 - 23% - Performing flow analysis 0 - 0% - Enumerating call sites 2 - 2% - Determining which types and type sets are used 7 - 6% - Determining which call sites to split 0 - 0% - Computing call graph 1 - 1% - Determining which environments are called more than once 1 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 17 - 16% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 1 - 1% - Determining which environments are recursive 2 - 2% - Determining which environments are reentrant 1 - 1% - Asserting uniqueness 31 - 28% - Performing lightweight closure conversion 0 - 0% - Determining parents 1 - 1% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 1 - 1% - Determining which environments have external continuation calls 1 - 1% - Determining blocked environments 0 - 0% - Determining allocations 4 - 3% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 3 - 3% - Generating code 2 - 2% - Removing unused declarations 1 - 1% - Removing unused labels 0 - 0% - Writing database 0 - 0% - Compiling C code 112.53user 0.66system 1:59.76elapsed 94%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32864major+224810minor)pagefaults 0swaps run conform 140.77user 0.04system 2:22.91elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (96major+335minor)pagefaults 0swaps compile nboyer Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 20692 expressions 123 internal symbol types 0 external symbol types 46 primitive procedure types 203 non-called native procedure types 309 called noop native procedure types 242 called non-noop native procedure types 1 foreign procedure type 0 continuation types 3 string types 1963 structure types 2 headed vector types 1 nonheaded vector type 0 displaced vector types 26865 type sets 654 hunoz variables 1590 non-hunoz variables 513 noop environments 1800 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 22379 expressions 123 internal symbol types 0 external symbol types 45 primitive procedure types 205 non-called native procedure types 311 called noop native procedure types 320 called non-noop native procedure types 1 foreign procedure type 0 continuation types 4 string types 1988 structure types 2 headed vector types 1 nonheaded vector type 0 displaced vector types 28683 type sets 667 hunoz variables 1713 non-hunoz variables 515 noop environments 1951 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 13 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 8442 expressions 123 internal symbol types 0 external symbol types 45 primitive procedure types 203 non-called native procedure types 311 called noop native procedure types 320 called non-noop native procedure types 1 foreign procedure type 0 continuation types 4 string types 1988 structure types 2 headed vector types 1 nonheaded vector type 0 displaced vector types 13474 type sets 348 hunoz variables 760 non-hunoz variables 0 noop environments 375 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 13 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: DISPLAY2[1716] has the following parameters: OBJ{2020} local PORT{2021} local has the following in-lined locals: STRING{1931} PORT{1932} N{1933} I{1936} LIST-LENGTH[251] has the following parameter: LIST{902} local has the following in-lined local: K{905} CADDDR[231] has the following parameter: PAIR{882} local EQUAL?[197] reentrant has the following parameters: OBJ1{845} local OBJ2{846} local has the following in-lined locals: v{847} v{848} K{852} v{853} OBJ1{2286} OBJ2{2287} v{2288} v{2289} TERM-MEMBER?[139] has the following parameters: X{830} local LST{831} local has the following in-lined locals: X{2308} Y{2309} TERM-ARGS-EQUAL?[134] reentrant has the following parameters: LST1{828} local LST2{829} local has the following in-lined locals: X{826} Y{827} TRUEP[125] has the following parameters: X{821} local LST{822} local has the following in-lined locals: v{823} X{2312} Y{2313} FALSEP[123] has the following parameters: X{818} local LST{819} local has the following in-lined locals: v{820} X{2310} Y{2311} ONE-WAY-UNIFY1-LST[118] reentrant has the following parameters: LST1{816} local LST2{817} local has the following in-lined locals: TERM1{812} TERM2{813} TEMP-TEMP{814} OBJ{998} ALIST{999} X{2314} Y{2315} REWRITE-ARGS[98] reentrant has the following parameter: LST{806} local REWRITE[94] reentrant has region has the following parameter: TERM{804} local has the following in-lined locals: SYMBOL-RECORD{784} ALIST{795} TERM{796} TEMP-TEMP{797} TERM{807} LST{808} TERM1{809} TERM2{810} OBJ{2244} ALIST{2245} PAIR{2250} PAIR{2254} TERM1{2326} TERM2{2327} TEMP-TEMP{2328} OBJ{2376} ALIST{2377} X{2378} Y{2379} TAUTOLOGYP[85] reentrant has region has the following parameters: X{801} local TRUE-LST{802} local FALSE-LST{803} local has the following in-lined locals: PAIR{864} PAIR{870} PAIR{2249} PAIR{2251} PAIR{2252} PAIR{2253} APPLY-SUBST-LST[81] reentrant has the following parameters: ALIST{798} local LST{799} local has the following in-lined locals: ALIST{2316} TERM{2317} TEMP-TEMP{2318} OBJ{2374} ALIST{2375} TRANSLATE-ALIST[74] reentrant has the following parameter: ALIST{794} local has the following in-lined locals: TERM{769} PAIR{863} PAIR{865} SYM{2299} X{2300} R{2301} OBJ{2372} ALIST{2373} SYMBOL-RECORD-EQUAL?[65] has the following parameters: R1{786} local R2{787} local MAKE-SYMBOL-RECORD[61] has the following parameter: SYM{781} local TRANSLATE-ARGS[49] reentrant has the following parameter: LST{770} local has the following in-lined locals: TERM{2304} SYM{2354} X{2355} R{2356} OBJ{2358} ALIST{2359} [inside top level 0] has the following in-lined locals: TEST-BOYER{649} SETUP-BOYER{650} COUNT{663} COUNT{669} I{674} RESULT{675} ARGS{676} N{677} REWRITES{679} v{680} N{760} ANSWER{762} LST{766} TERM{768} SYM{772} VALUE{774} SYM{775} SYM{777} X{778} R{779} SYMBOL-RECORD{782} LEMMAS{783} N{788} TERM{789} TERM{792} N{793} X{800} OBJ1{838} OBJ2{839} v{840} v{841} OBJS{901} STRINGS{1459} R{1460} K{1461} STRINGS{1465} N{1466} L{1470} K{1475} STRINGS{1476} LIST{1482} R{1483} K{1487} NUMBER{1938} PORT{1939} I{1942} NUMBER{1943} I{1946} I{1952} NUMBER{1953} I{1956} OBJ{1986} PORT{1987} NUMBER{2043} NUMBER{2065} CHARACTERS{2066} NUMBER{2069} CHARACTERS{2070} OBJ{2229} OBJ{2231} OBJ{2246} ALIST{2247} PAIR{2255} PAIR{2256} PAIR{2257} SYMBOL-RECORD{2258} OBJ1{2261} OBJ2{2262} v{2263} v{2264} OBJ1{2266} OBJ2{2267} v{2268} v{2269} OBJ1{2271} OBJ2{2272} v{2273} v{2274} OBJ1{2276} OBJ2{2277} v{2278} v{2279} OBJ1{2281} OBJ2{2282} v{2283} v{2284} SYM{2291} X{2292} R{2293} X{2296} R{2297} TERM{2303} TERM{2305} ALIST{2319} TERM{2320} OBJ{2322} OBJ{2324} LIST{2330} R{2331} K{2335} X{2339} R{2340} ALIST{2343} X{2345} R{2346} ALIST{2349} ALIST{2351} OBJ{2352} ALIST{2353} X{2361} R{2362} ALIST{2365} SYM{2366} X{2367} R{2368} OBJ{2370} ALIST{2371} The following non-trivial in-line native procedures will be generated: [clone TERM-EQUAL?[131] 2463] has the following parameters: X{2378} local Y{2379} local [clone ASSQ[386] 2462] has the following parameters: OBJ{2376} local ALIST{2377} local [clone ASSQ[386] 2461] has the following parameters: OBJ{2374} local ALIST{2375} local [clone ASSQ[386] 2460] has the following parameters: OBJ{2372} local ALIST{2373} local [clone ASSQ[386] 2459] has the following parameters: OBJ{2370} local ALIST{2371} local [clone [inside SYMBOL->SYMBOL-RECORD 59] 2457] has the following parameter: R{2368} local [clone [inside SYMBOL->SYMBOL-RECORD 58] 2456] has the following parameter: X{2367} local [clone SYMBOL->SYMBOL-RECORD[57] 2455] has the following parameter: SYM{2366} local [clone ASSQ[386] 2454] has the following parameter: ALIST{2365} local [clone [inside SYMBOL->SYMBOL-RECORD 59] 2452] has the following parameter: R{2362} local [clone [inside SYMBOL->SYMBOL-RECORD 58] 2451] has the following parameter: X{2361} local [clone ASSQ[386] 2449] has the following parameters: OBJ{2358} local ALIST{2359} local [clone [inside SYMBOL->SYMBOL-RECORD 59] 2447] has the following parameter: R{2356} local [clone [inside SYMBOL->SYMBOL-RECORD 58] 2446] has the following parameter: X{2355} local [clone SYMBOL->SYMBOL-RECORD[57] 2445] has the following parameter: SYM{2354} local [clone ASSQ[386] 2444] has the following parameters: OBJ{2352} local ALIST{2353} local [clone ASSQ[386] 2443] has the following parameter: ALIST{2351} local [clone ASSQ[386] 2442] has the following parameter: ALIST{2349} local [clone [inside SYMBOL->SYMBOL-RECORD 59] 2440] has the following parameter: R{2346} local [clone [inside SYMBOL->SYMBOL-RECORD 58] 2439] has the following parameter: X{2345} local [clone ASSQ[386] 2437] has the following parameter: ALIST{2343} local [clone [inside SYMBOL->SYMBOL-RECORD 59] 2435] has the following parameter: R{2340} local [clone [inside SYMBOL->SYMBOL-RECORD 58] 2434] has the following parameter: X{2339} local [clone LOOP[956] 2428] has the following parameter: K{2335} local [clone [inside LIST->STRING 952] 2424] has the following parameter: R{2331} local [clone LIST->STRING[951] 2423] has the following parameter: LIST{2330} local [clone [inside ONE-WAY-UNIFY1 110] 2415] has the following parameter: TEMP-TEMP{2328} local [clone ONE-WAY-UNIFY1[108] 2413] has the following parameters: TERM1{2326} local TERM2{2327} local [clone DISPLAY[2067] 2409] has the following parameter: OBJ{2324} local [clone DISPLAY[2067] 2405] has the following parameter: OBJ{2322} local [clone APPLY-SUBST[77] 2401] has the following parameters: ALIST{2319} local TERM{2320} local [clone [inside APPLY-SUBST 80] 2400] reentrant [clone [inside APPLY-SUBST 79] 2399] has the following parameter: TEMP-TEMP{2318} local [clone APPLY-SUBST[77] 2397] reentrant has the following parameters: ALIST{2316} local TERM{2317} local [clone TERM-EQUAL?[131] 2394] has the following parameters: X{2314} local Y{2315} local [clone TERM-EQUAL?[131] 2391] has the following parameters: X{2312} local Y{2313} local [clone TERM-EQUAL?[131] 2388] has the following parameters: X{2310} local Y{2311} local [clone TERM-EQUAL?[131] 2385] has the following parameters: X{2308} local Y{2309} local [clone TRANSLATE-TERM[46] 2376] has the following parameter: TERM{2305} local [clone [inside TRANSLATE-TERM 48] 2375] reentrant [clone TRANSLATE-TERM[46] 2373] reentrant has the following parameter: TERM{2304} local [clone TRANSLATE-TERM[46] 2370] has the following parameter: TERM{2303} local [clone [inside SYMBOL->SYMBOL-RECORD 59] 2368] has the following parameter: R{2301} local [clone [inside SYMBOL->SYMBOL-RECORD 58] 2367] has the following parameter: X{2300} local [clone SYMBOL->SYMBOL-RECORD[57] 2366] has the following parameter: SYM{2299} local [clone [inside SYMBOL->SYMBOL-RECORD 59] 2364] has the following parameter: R{2297} local [clone [inside SYMBOL->SYMBOL-RECORD 58] 2363] has the following parameter: X{2296} local [clone [inside SYMBOL->SYMBOL-RECORD 59] 2360] has the following parameter: R{2293} local [clone [inside SYMBOL->SYMBOL-RECORD 58] 2359] has the following parameter: X{2292} local [clone SYMBOL->SYMBOL-RECORD[57] 2358] has the following parameter: SYM{2291} local [clone [inside EQV? 194] 2356] has the following parameter: v{2289} local [clone [inside EQV? 193] 2355] has the following parameter: v{2288} local [clone EQV?[192] 2354] has the following parameters: OBJ1{2286} local OBJ2{2287} local [clone [inside EQV? 194] 2352] has the following parameter: v{2284} local [clone [inside EQV? 193] 2351] has the following parameter: v{2283} local [clone EQV?[192] 2350] has the following parameters: OBJ1{2281} local OBJ2{2282} local [clone [inside EQV? 194] 2348] has the following parameter: v{2279} local [clone [inside EQV? 193] 2347] has the following parameter: v{2278} local [clone EQV?[192] 2346] has the following parameters: OBJ1{2276} local OBJ2{2277} local [clone [inside EQV? 194] 2344] has the following parameter: v{2274} local [clone [inside EQV? 193] 2343] has the following parameter: v{2273} local [clone EQV?[192] 2342] has the following parameters: OBJ1{2271} local OBJ2{2272} local [clone [inside EQV? 194] 2340] has the following parameter: v{2269} local [clone [inside EQV? 193] 2339] has the following parameter: v{2268} local [clone EQV?[192] 2338] has the following parameters: OBJ1{2266} local OBJ2{2267} local [clone [inside EQV? 194] 2336] has the following parameter: v{2264} local [clone [inside EQV? 193] 2335] has the following parameter: v{2263} local [clone EQV?[192] 2334] has the following parameters: OBJ1{2261} local OBJ2{2262} local [clone GET-LEMMAS[63] 2325] has the following parameter: SYMBOL-RECORD{2258} local [clone CADR[213] 2324] has the following parameter: PAIR{2257} local [clone CADR[213] 2323] has the following parameter: PAIR{2256} local [clone CADR[213] 2322] has the following parameter: PAIR{2255} local [clone CADR[213] 2321] has the following parameter: PAIR{2254} local [clone CADR[213] 2320] has the following parameter: PAIR{2253} local [clone CADR[213] 2319] has the following parameter: PAIR{2252} local [clone CADR[213] 2318] has the following parameter: PAIR{2251} local [clone CADDR[219] 2317] has the following parameter: PAIR{2250} local [clone CADDR[219] 2316] has the following parameter: PAIR{2249} local [clone ASSQ[386] 2314] has the following parameters: OBJ{2246} local ALIST{2247} local [clone ASSQ[386] 2313] has the following parameters: OBJ{2244} local ALIST{2245} local DISPLAY[2067] has the following parameter: OBJ{2231} local WRITE[2063] has the following parameter: OBJ{2229} local LOOP[1802] has region has the following parameters: NUMBER{2069} local CHARACTERS{2070} local LOOP[1797] has region has the following parameters: NUMBER{2065} local CHARACTERS{2066} local NUMBER->STRING[1761] has the following parameter: NUMBER{2043} local WRITE2[1656] has the following parameters: OBJ{1986} local PORT{1987} local LOOP[1610] has the following parameter: I{1956} local LOOP[1607] has the following parameters: I{1952} local NUMBER{1953} local LOOP[1596] has the following parameter: I{1946} local LOOP[1593] has the following parameters: I{1942} local NUMBER{1943} local DISPLAY-EXACT-INTEGER2[1589] has the following parameters: NUMBER{1938} local PORT{1939} local LOOP[1584] has the following parameter: I{1936} local [inside DISPLAY-STRING2 1581] has the following parameter: N{1933} local DISPLAY-STRING2[1580] has the following parameters: STRING{1931} local PORT{1932} local [inside top level 1576] has the following parameters: THE-CURRENT-OUTPUT-PORT{1892} global BUFFER{1894} global LOOP[956] has the following parameter: K{1487} local [inside LIST->STRING 952] has the following parameter: R{1483} local LIST->STRING[951] has the following parameter: LIST{1482} local LOOP[943] has the following parameters: K{1475} local STRINGS{1476} local LOOP[934] has the following parameter: L{1470} local [inside LOOP 930] has the following parameter: N{1466} local LOOP[929] has the following parameter: STRINGS{1465} local [inside STRING-APPEND 924] has the following parameter: K{1461} local [inside STRING-APPEND 923] has the following parameter: R{1460} local STRING-APPEND[922] has the following parameter: STRINGS{1459} local ASSQ[386] has the following parameters: OBJ{998} local ALIST{999} local LOOP[254] has the following parameter: K{905} local LIST[250] has the following parameter: OBJS{901} local CADDR[219] has the following parameter: PAIR{870} local CDAR[214] has the following parameter: PAIR{865} local CADR[213] has the following parameter: PAIR{864} local CAAR[212] has the following parameter: PAIR{863} local [inside LOOP? 204] reentrant has the following parameter: v{853} local LOOP?[203] reentrant has the following parameter: K{852} local [inside EQUAL? 200] reentrant [inside EQUAL? 199] reentrant has the following parameter: v{848} local [inside EQUAL? 198] reentrant has the following parameter: v{847} local [inside EQV? 194] has the following parameter: v{841} local [inside EQV? 193] has the following parameter: v{840} local EQV?[192] has the following parameters: OBJ1{838} local OBJ2{839} local [inside TERM-ARGS-EQUAL? 137] reentrant [inside TERM-EQUAL? 132] reentrant TERM-EQUAL?[131] reentrant has the following parameters: X{826} local Y{827} local [inside TRUEP 126] has the following parameter: v{823} local [inside FALSEP 124] has the following parameter: v{820} local [inside ONE-WAY-UNIFY1-LST 121] reentrant [inside ONE-WAY-UNIFY1 116] reentrant [inside ONE-WAY-UNIFY1 110] has the following parameter: TEMP-TEMP{814} local ONE-WAY-UNIFY1[108] reentrant has the following parameters: TERM1{812} local TERM2{813} local ONE-WAY-UNIFY[105] has the following parameters: TERM1{809} local TERM2{810} local [inside REWRITE-WITH-LEMMAS 104] reentrant [inside REWRITE-WITH-LEMMAS 103] reentrant REWRITE-WITH-LEMMAS[101] reentrant has the following parameters: TERM{807} local LST{808} local [inside REWRITE-ARGS 100] reentrant [inside REWRITE 97] reentrant [inside REWRITE 95] reentrant [inside TAUTOLOGYP 92] reentrant [inside TAUTOLOGYP 91] reentrant [inside TAUTOLOGYP 90] reentrant [inside TAUTOLOGYP 89] reentrant TAUTP[84] has the following parameter: X{800} local [inside APPLY-SUBST-LST 83] reentrant [inside APPLY-SUBST 79] has the following parameter: TEMP-TEMP{797} local APPLY-SUBST[77] has the following parameters: ALIST{795} local TERM{796} local [inside TRANSLATE-ALIST 76] reentrant loop[70] has the following parameters: TERM{792} local N{793} local [inside TEST 67] has the following parameter: TERM{789} local TEST[66] has region has the following parameter: N{788} local GET-LEMMAS[63] has the following parameter: SYMBOL-RECORD{784} local PUT-LEMMAS![62] has the following parameters: SYMBOL-RECORD{782} local LEMMAS{783} local [inside SYMBOL->SYMBOL-RECORD 59] has the following parameter: R{779} local [inside SYMBOL->SYMBOL-RECORD 58] has the following parameter: X{778} local SYMBOL->SYMBOL-RECORD[57] has the following parameter: SYM{777} local GET[56] has the following parameter: SYM{775} local PUT[55] has the following parameters: SYM{772} local VALUE{774} local [inside TRANSLATE-ARGS 51] reentrant TRANSLATE-TERM[46] has the following parameter: TERM{769} local ADD-LEMMA[43] has the following parameter: TERM{768} local ADD-LEMMA-LST[39] has the following parameter: LST{766} local [inside TEST-BOYER 36] has the following parameter: ANSWER{762} local TEST-BOYER[34] has the following parameter: N{760} local [inside top level 32] has the following parameters: TRUE-TERM{686} global FALSE-TERM{687} global UNIFY-SUBST{693} global REWRITE-COUNT{697} global IF-CONSTRUCTOR{698} global *SYMBOL-RECORDS-ALIST*{710} global [inside NBOYER-BENCHMARK 21] has the following parameter: v{680} local [inside NBOYER-BENCHMARK 20] has the following parameter: REWRITES{679} local [inside NBOYER-BENCHMARK 17] has the following parameter: N{677} local NBOYER-BENCHMARK[16] has the following parameter: ARGS{676} local LOOP[14] has the following parameters: I{674} local RESULT{675} local RUN-BENCH[11] has the following parameter: COUNT{669} local RUN-BENCHMARK[6] has the following parameter: COUNT{663} local [inside top level 4] has the following parameters: TEST-BOYER{649} local SETUP-BOYER{650} local The following expression, nboyer-stalin.sc:302:12892, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) *SYMBOL-RECORDS-ALIST*) The following expression, nboyer-stalin.sc:302:12898, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) The following expression, nboyer-stalin.sc:302:12892, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) *SYMBOL-RECORDS-ALIST*) The following expression, nboyer-stalin.sc:302:12898, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) The following expression, nboyer-stalin.sc:302:12892, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) *SYMBOL-RECORDS-ALIST*) The following expression, nboyer-stalin.sc:302:12898, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) The following expression, nboyer-stalin.sc:302:12892, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) *SYMBOL-RECORDS-ALIST*) The following expression, nboyer-stalin.sc:302:12898, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) The following expression, nboyer-stalin.sc:302:12892, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) *SYMBOL-RECORDS-ALIST*) The following expression, nboyer-stalin.sc:302:12898, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) (LIST-LENGTH LIST)) The following expression, nboyer-stalin.sc:417:16401, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TERM2 TERM1) UNIFY-SUBST) The following expression, nboyer-stalin.sc:417:16407, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TERM2 TERM1) The following expression, nboyer-stalin.sc:358:14553, allocates on TEST[66]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TERM) (APPLY-SUBST-LST ALIST (# TERM))) The following expression, nboyer-stalin.sc:358:14553, allocates on TEST[66]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TERM) (APPLY-SUBST-LST ALIST (# TERM))) The following expression, nboyer-stalin.sc:272:11934, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (SYMBOL->SYMBOL-RECORD (# TERM)) (TRANSLATE-ARGS (# TERM))) The following expression, nboyer-stalin.sc:272:11934, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (SYMBOL->SYMBOL-RECORD (# TERM)) (TRANSLATE-ARGS (# TERM))) The following expression, nboyer-stalin.sc:272:11934, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (SYMBOL->SYMBOL-RECORD (# TERM)) (TRANSLATE-ARGS (# TERM))) The following expression, nboyer-stalin.sc:272:11934, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (SYMBOL->SYMBOL-RECORD (# TERM)) (TRANSLATE-ARGS (# TERM))) The following expression, nboyer-stalin.sc:272:11934, allocates on TEST[66]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (SYMBOL->SYMBOL-RECORD (# TERM)) (TRANSLATE-ARGS (# TERM))) The following expression, nboyer-stalin.sc:302:12892, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) *SYMBOL-RECORDS-ALIST*) The following expression, nboyer-stalin.sc:302:12898, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) The following expression, nboyer-stalin.sc:302:12892, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) *SYMBOL-RECORDS-ALIST*) The following expression, nboyer-stalin.sc:302:12898, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) The following expression, nboyer-stalin.sc:302:12892, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) *SYMBOL-RECORDS-ALIST*) The following expression, nboyer-stalin.sc:302:12898, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20) The following expression allocates on LOOP[1802]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE INTEGER->CHAR) (# # #)) CHARACTERS) The following expression allocates on LOOP[1802]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\- CHARACTERS) The following expression allocates on LOOP[1797]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE INTEGER->CHAR) (# # #)) CHARACTERS) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) (LIST-LENGTH LIST)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((# #) 0 STRINGS)) The following expression, nboyer-stalin.sc:417:16401, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TERM2 TERM1) UNIFY-SUBST) The following expression, nboyer-stalin.sc:417:16407, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TERM2 TERM1) The following expression, nboyer-stalin.sc:397:15719, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (REWRITE (# LST)) (REWRITE-ARGS (# LST))) The following expression, nboyer-stalin.sc:391:15572, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TERM) (REWRITE-ARGS (# TERM))) The following expression, nboyer-stalin.sc:381:15287, allocates on TAUTOLOGYP[85]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CADR X) FALSE-LST) The following expression, nboyer-stalin.sc:377:15184, allocates on TAUTOLOGYP[85]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CADR X) TRUE-LST) The following expression, nboyer-stalin.sc:362:14680, allocates on TEST[66]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (APPLY-SUBST ALIST (# LST)) (APPLY-SUBST-LST ALIST (# LST))) The following expression, nboyer-stalin.sc:358:14553, allocates on REWRITE[94]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TERM) (APPLY-SUBST-LST ALIST (# TERM))) The following expression, nboyer-stalin.sc:351:14307, allocates on TEST[66]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CAAR ALIST) (TRANSLATE-TERM #)) (TRANSLATE-ALIST (# ALIST))) The following expression, nboyer-stalin.sc:351:14313, allocates on TEST[66]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CAAR ALIST) (TRANSLATE-TERM (CDAR ALIST))) The following expression, nboyer-stalin.sc:344:14150, allocates on the heap: (LIST 'OR TERM '(F)) The following expression, nboyer-stalin.sc:313:13220, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR) SYM '()) The following expression, nboyer-stalin.sc:302:12892, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) *SYMBOL-RECORDS-ALIST*) The following expression, nboyer-stalin.sc:302:12898, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) The following expression, nboyer-stalin.sc:277:12077, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (TRANSLATE-TERM (# LST)) (TRANSLATE-ARGS (# LST))) The following expression, nboyer-stalin.sc:272:11934, allocates on TEST[66]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (SYMBOL->SYMBOL-RECORD (# TERM)) (TRANSLATE-ARGS (# TERM))) The following expression, nboyer-stalin.sc:265:11668, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (TRANSLATE-TERM TERM) (GET (# #) 'LEMMAS)) The following expression, nboyer-stalin.sc:74:3221, allocates on the heap: (STRING-APPEND "nboyer" (NUMBER->STRING N)) The following expression, nboyer-stalin.sc:490:18443, allocates on the heap: (NBOYER-BENCHMARK 5) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W21999 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 0% - Expanding macros 4 - 0% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 3 - 0% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 50 - 4% - Performing flow analysis 0 - 0% - Enumerating call sites 1 - 0% - Determining which types and type sets are used 2 - 0% - Determining which call sites to split 0 - 0% - Computing call graph 1 - 0% - Determining which environments are called more than once 1 - 0% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 8 - 1% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 0% - Determining which environments are recursive 1 - 0% - Determining which environments are reentrant 131 - 10% - Asserting uniqueness 949 - 73% - Performing lightweight closure conversion 0 - 0% - Determining parents 13 - 1% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 114 - 9% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 5 - 0% - Generating code 9 - 1% - Removing unused declarations 1 - 0% - Removing unused labels 1 - 0% - Writing database 0 - 0% - Compiling C code 1294.61user 6.15system 22:02.67elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33152major+855347minor)pagefaults 0swaps run nboyer 76.76user 6.87system 1:51.90elapsed 74%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (8110major+218029minor)pagefaults 38596swaps compile sboyer Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 20718 expressions 123 internal symbol types 0 external symbol types 46 primitive procedure types 203 non-called native procedure types 310 called noop native procedure types 243 called non-noop native procedure types 1 foreign procedure type 0 continuation types 3 string types 1962 structure types 2 headed vector types 1 nonheaded vector type 0 displaced vector types 26894 type sets 655 hunoz variables 1594 non-hunoz variables 514 noop environments 1801 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 22400 expressions 123 internal symbol types 0 external symbol types 45 primitive procedure types 205 non-called native procedure types 312 called noop native procedure types 321 called non-noop native procedure types 1 foreign procedure type 0 continuation types 4 string types 1987 structure types 2 headed vector types 1 nonheaded vector type 0 displaced vector types 28707 type sets 668 hunoz variables 1716 non-hunoz variables 516 noop environments 1951 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 13 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 8463 expressions 123 internal symbol types 0 external symbol types 45 primitive procedure types 203 non-called native procedure types 312 called noop native procedure types 321 called non-noop native procedure types 1 foreign procedure type 0 continuation types 4 string types 1987 structure types 2 headed vector types 1 nonheaded vector type 0 displaced vector types 13498 type sets 349 hunoz variables 763 non-hunoz variables 0 noop environments 375 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 13 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: DISPLAY2[1718] has the following parameters: OBJ{2025} local PORT{2026} local has the following in-lined locals: STRING{1936} PORT{1937} N{1938} I{1941} LIST-LENGTH[253] has the following parameter: LIST{907} local has the following in-lined local: K{910} CADDDR[233] has the following parameter: PAIR{887} local EQUAL?[199] reentrant has the following parameters: OBJ1{850} local OBJ2{851} local has the following in-lined locals: v{852} v{853} K{857} v{858} OBJ1{2290} OBJ2{2291} v{2292} v{2293} TERM-MEMBER?[140] has the following parameters: X{835} local LST{836} local has the following in-lined locals: X{831} Y{832} TERM-ARGS-EQUAL?[135] reentrant has the following parameters: LST1{833} local LST2{834} local has the following in-lined locals: X{2316} Y{2317} TRUEP[126] has the following parameters: X{826} local LST{827} local has the following in-lined locals: v{828} X{2314} Y{2315} FALSEP[124] has the following parameters: X{823} local LST{824} local has the following in-lined locals: v{825} X{2312} Y{2313} ONE-WAY-UNIFY1-LST[119] reentrant has the following parameters: LST1{821} local LST2{822} local has the following in-lined locals: TERM1{817} TERM2{818} TEMP-TEMP{819} OBJ{1003} ALIST{1004} X{2318} Y{2319} REWRITE-ARGS[99] reentrant has the following parameter: LST{811} local REWRITE[95] reentrant has the following parameter: TERM{809} local has the following in-lined locals: ALIST{797} TERM{798} TEMP-TEMP{799} TERM{812} LST{813} TERM1{814} TERM2{815} OBJ{2249} ALIST{2250} PAIR{2255} PAIR{2259} TERM1{2330} TERM2{2331} TEMP-TEMP{2332} OBJ{2380} ALIST{2381} X{2382} Y{2383} SCONS[94] has the following parameters: X{806} local Y{807} local ORIGINAL{808} local TAUTOLOGYP[85] reentrant has region has the following parameters: X{803} local TRUE-LST{804} local FALSE-LST{805} local has the following in-lined locals: PAIR{869} PAIR{875} PAIR{2254} PAIR{2256} PAIR{2257} PAIR{2258} APPLY-SUBST-LST[81] reentrant has the following parameters: ALIST{800} local LST{801} local has the following in-lined locals: ALIST{2320} TERM{2321} TEMP-TEMP{2322} OBJ{2378} ALIST{2379} TRANSLATE-ALIST[74] reentrant has the following parameter: ALIST{796} local has the following in-lined locals: TERM{771} PAIR{868} PAIR{870} SYM{2303} X{2304} R{2305} OBJ{2376} ALIST{2377} SYMBOL-RECORD-EQUAL?[65] has the following parameters: R1{788} local R2{789} local GET-LEMMAS[63] has the following parameter: SYMBOL-RECORD{786} local MAKE-SYMBOL-RECORD[61] has the following parameter: SYM{783} local TRANSLATE-ARGS[49] reentrant has the following parameter: LST{772} local has the following in-lined locals: TERM{2308} SYM{2358} X{2359} R{2360} OBJ{2362} ALIST{2363} [inside top level 0] has the following in-lined locals: TEST-BOYER{649} SETUP-BOYER{650} COUNT{663} COUNT{669} I{674} RESULT{675} ARGS{676} N{677} REWRITES{679} v{680} N{762} ANSWER{764} LST{768} TERM{770} SYM{774} VALUE{776} SYM{777} SYM{779} X{780} R{781} SYMBOL-RECORD{784} LEMMAS{785} N{790} TERM{791} TERM{794} N{795} X{802} OBJ1{843} OBJ2{844} v{845} v{846} OBJS{906} STRINGS{1464} R{1465} K{1466} STRINGS{1470} N{1471} L{1475} K{1480} STRINGS{1481} LIST{1487} R{1488} K{1492} NUMBER{1943} PORT{1944} I{1947} NUMBER{1948} I{1951} I{1957} NUMBER{1958} I{1961} OBJ{1991} PORT{1992} NUMBER{2048} NUMBER{2070} CHARACTERS{2071} NUMBER{2074} CHARACTERS{2075} OBJ{2234} OBJ{2236} OBJ{2251} ALIST{2252} PAIR{2260} PAIR{2261} PAIR{2262} OBJ1{2265} OBJ2{2266} v{2267} v{2268} OBJ1{2270} OBJ2{2271} v{2272} v{2273} OBJ1{2275} OBJ2{2276} v{2277} v{2278} OBJ1{2280} OBJ2{2281} v{2282} v{2283} OBJ1{2285} OBJ2{2286} v{2287} v{2288} SYM{2295} X{2296} R{2297} X{2300} R{2301} TERM{2307} TERM{2309} ALIST{2323} TERM{2324} OBJ{2326} OBJ{2328} LIST{2334} R{2335} K{2339} X{2343} R{2344} ALIST{2347} X{2349} R{2350} ALIST{2353} ALIST{2355} OBJ{2356} ALIST{2357} X{2365} R{2366} ALIST{2369} SYM{2370} X{2371} R{2372} OBJ{2374} ALIST{2375} The following non-trivial in-line native procedures will be generated: [clone TERM-EQUAL?[132] 2464] has the following parameters: X{2382} local Y{2383} local [clone ASSQ[388] 2463] has the following parameters: OBJ{2380} local ALIST{2381} local [clone ASSQ[388] 2462] has the following parameters: OBJ{2378} local ALIST{2379} local [clone ASSQ[388] 2461] has the following parameters: OBJ{2376} local ALIST{2377} local [clone ASSQ[388] 2460] has the following parameters: OBJ{2374} local ALIST{2375} local [clone [inside SYMBOL->SYMBOL-RECORD 59] 2458] has the following parameter: R{2372} local [clone [inside SYMBOL->SYMBOL-RECORD 58] 2457] has the following parameter: X{2371} local [clone SYMBOL->SYMBOL-RECORD[57] 2456] has the following parameter: SYM{2370} local [clone ASSQ[388] 2455] has the following parameter: ALIST{2369} local [clone [inside SYMBOL->SYMBOL-RECORD 59] 2453] has the following parameter: R{2366} local [clone [inside SYMBOL->SYMBOL-RECORD 58] 2452] has the following parameter: X{2365} local [clone ASSQ[388] 2450] has the following parameters: OBJ{2362} local ALIST{2363} local [clone [inside SYMBOL->SYMBOL-RECORD 59] 2448] has the following parameter: R{2360} local [clone [inside SYMBOL->SYMBOL-RECORD 58] 2447] has the following parameter: X{2359} local [clone SYMBOL->SYMBOL-RECORD[57] 2446] has the following parameter: SYM{2358} local [clone ASSQ[388] 2445] has the following parameters: OBJ{2356} local ALIST{2357} local [clone ASSQ[388] 2444] has the following parameter: ALIST{2355} local [clone ASSQ[388] 2443] has the following parameter: ALIST{2353} local [clone [inside SYMBOL->SYMBOL-RECORD 59] 2441] has the following parameter: R{2350} local [clone [inside SYMBOL->SYMBOL-RECORD 58] 2440] has the following parameter: X{2349} local [clone ASSQ[388] 2438] has the following parameter: ALIST{2347} local [clone [inside SYMBOL->SYMBOL-RECORD 59] 2436] has the following parameter: R{2344} local [clone [inside SYMBOL->SYMBOL-RECORD 58] 2435] has the following parameter: X{2343} local [clone LOOP[958] 2429] has the following parameter: K{2339} local [clone [inside LIST->STRING 954] 2425] has the following parameter: R{2335} local [clone LIST->STRING[953] 2424] has the following parameter: LIST{2334} local [clone [inside ONE-WAY-UNIFY1 111] 2416] has the following parameter: TEMP-TEMP{2332} local [clone ONE-WAY-UNIFY1[109] 2414] has the following parameters: TERM1{2330} local TERM2{2331} local [clone DISPLAY[2069] 2410] has the following parameter: OBJ{2328} local [clone DISPLAY[2069] 2406] has the following parameter: OBJ{2326} local [clone APPLY-SUBST[77] 2402] has the following parameters: ALIST{2323} local TERM{2324} local [clone [inside APPLY-SUBST 80] 2401] reentrant [clone [inside APPLY-SUBST 79] 2400] has the following parameter: TEMP-TEMP{2322} local [clone APPLY-SUBST[77] 2398] reentrant has the following parameters: ALIST{2320} local TERM{2321} local [clone TERM-EQUAL?[132] 2395] has the following parameters: X{2318} local Y{2319} local [clone [inside TERM-EQUAL? 133] 2393] reentrant [clone TERM-EQUAL?[132] 2392] reentrant has the following parameters: X{2316} local Y{2317} local [clone TERM-EQUAL?[132] 2389] has the following parameters: X{2314} local Y{2315} local [clone TERM-EQUAL?[132] 2386] has the following parameters: X{2312} local Y{2313} local [clone TRANSLATE-TERM[46] 2377] has the following parameter: TERM{2309} local [clone [inside TRANSLATE-TERM 48] 2376] reentrant [clone TRANSLATE-TERM[46] 2374] reentrant has the following parameter: TERM{2308} local [clone TRANSLATE-TERM[46] 2371] has the following parameter: TERM{2307} local [clone [inside SYMBOL->SYMBOL-RECORD 59] 2369] has the following parameter: R{2305} local [clone [inside SYMBOL->SYMBOL-RECORD 58] 2368] has the following parameter: X{2304} local [clone SYMBOL->SYMBOL-RECORD[57] 2367] has the following parameter: SYM{2303} local [clone [inside SYMBOL->SYMBOL-RECORD 59] 2365] has the following parameter: R{2301} local [clone [inside SYMBOL->SYMBOL-RECORD 58] 2364] has the following parameter: X{2300} local [clone [inside SYMBOL->SYMBOL-RECORD 59] 2361] has the following parameter: R{2297} local [clone [inside SYMBOL->SYMBOL-RECORD 58] 2360] has the following parameter: X{2296} local [clone SYMBOL->SYMBOL-RECORD[57] 2359] has the following parameter: SYM{2295} local [clone [inside EQV? 196] 2357] has the following parameter: v{2293} local [clone [inside EQV? 195] 2356] has the following parameter: v{2292} local [clone EQV?[194] 2355] has the following parameters: OBJ1{2290} local OBJ2{2291} local [clone [inside EQV? 196] 2353] has the following parameter: v{2288} local [clone [inside EQV? 195] 2352] has the following parameter: v{2287} local [clone EQV?[194] 2351] has the following parameters: OBJ1{2285} local OBJ2{2286} local [clone [inside EQV? 196] 2349] has the following parameter: v{2283} local [clone [inside EQV? 195] 2348] has the following parameter: v{2282} local [clone EQV?[194] 2347] has the following parameters: OBJ1{2280} local OBJ2{2281} local [clone [inside EQV? 196] 2345] has the following parameter: v{2278} local [clone [inside EQV? 195] 2344] has the following parameter: v{2277} local [clone EQV?[194] 2343] has the following parameters: OBJ1{2275} local OBJ2{2276} local [clone [inside EQV? 196] 2341] has the following parameter: v{2273} local [clone [inside EQV? 195] 2340] has the following parameter: v{2272} local [clone EQV?[194] 2339] has the following parameters: OBJ1{2270} local OBJ2{2271} local [clone [inside EQV? 196] 2337] has the following parameter: v{2268} local [clone [inside EQV? 195] 2336] has the following parameter: v{2267} local [clone EQV?[194] 2335] has the following parameters: OBJ1{2265} local OBJ2{2266} local [clone CADR[215] 2326] has the following parameter: PAIR{2262} local [clone CADR[215] 2325] has the following parameter: PAIR{2261} local [clone CADR[215] 2324] has the following parameter: PAIR{2260} local [clone CADR[215] 2323] has the following parameter: PAIR{2259} local [clone CADR[215] 2322] has the following parameter: PAIR{2258} local [clone CADR[215] 2321] has the following parameter: PAIR{2257} local [clone CADR[215] 2320] has the following parameter: PAIR{2256} local [clone CADDR[221] 2319] has the following parameter: PAIR{2255} local [clone CADDR[221] 2318] has the following parameter: PAIR{2254} local [clone ASSQ[388] 2316] has the following parameters: OBJ{2251} local ALIST{2252} local [clone ASSQ[388] 2315] has the following parameters: OBJ{2249} local ALIST{2250} local DISPLAY[2069] has the following parameter: OBJ{2236} local WRITE[2065] has the following parameter: OBJ{2234} local LOOP[1804] has region has the following parameters: NUMBER{2074} local CHARACTERS{2075} local LOOP[1799] has region has the following parameters: NUMBER{2070} local CHARACTERS{2071} local NUMBER->STRING[1763] has the following parameter: NUMBER{2048} local WRITE2[1658] has the following parameters: OBJ{1991} local PORT{1992} local LOOP[1612] has the following parameter: I{1961} local LOOP[1609] has the following parameters: I{1957} local NUMBER{1958} local LOOP[1598] has the following parameter: I{1951} local LOOP[1595] has the following parameters: I{1947} local NUMBER{1948} local DISPLAY-EXACT-INTEGER2[1591] has the following parameters: NUMBER{1943} local PORT{1944} local LOOP[1586] has the following parameter: I{1941} local [inside DISPLAY-STRING2 1583] has the following parameter: N{1938} local DISPLAY-STRING2[1582] has the following parameters: STRING{1936} local PORT{1937} local [inside top level 1578] has the following parameters: THE-CURRENT-OUTPUT-PORT{1897} global BUFFER{1899} global LOOP[958] has the following parameter: K{1492} local [inside LIST->STRING 954] has the following parameter: R{1488} local LIST->STRING[953] has the following parameter: LIST{1487} local LOOP[945] has the following parameters: K{1480} local STRINGS{1481} local LOOP[936] has the following parameter: L{1475} local [inside LOOP 932] has the following parameter: N{1471} local LOOP[931] has the following parameter: STRINGS{1470} local [inside STRING-APPEND 926] has the following parameter: K{1466} local [inside STRING-APPEND 925] has the following parameter: R{1465} local STRING-APPEND[924] has the following parameter: STRINGS{1464} local ASSQ[388] has the following parameters: OBJ{1003} local ALIST{1004} local LOOP[256] has the following parameter: K{910} local LIST[252] has the following parameter: OBJS{906} local CADDR[221] has the following parameter: PAIR{875} local CDAR[216] has the following parameter: PAIR{870} local CADR[215] has the following parameter: PAIR{869} local CAAR[214] has the following parameter: PAIR{868} local [inside LOOP? 206] reentrant has the following parameter: v{858} local LOOP?[205] reentrant has the following parameter: K{857} local [inside EQUAL? 202] reentrant [inside EQUAL? 201] reentrant has the following parameter: v{853} local [inside EQUAL? 200] reentrant has the following parameter: v{852} local [inside EQV? 196] has the following parameter: v{846} local [inside EQV? 195] has the following parameter: v{845} local EQV?[194] has the following parameters: OBJ1{843} local OBJ2{844} local [inside TERM-ARGS-EQUAL? 138] reentrant TERM-EQUAL?[132] has the following parameters: X{831} local Y{832} local [inside TRUEP 127] has the following parameter: v{828} local [inside FALSEP 125] has the following parameter: v{825} local [inside ONE-WAY-UNIFY1-LST 122] reentrant [inside ONE-WAY-UNIFY1 117] reentrant [inside ONE-WAY-UNIFY1 111] has the following parameter: TEMP-TEMP{819} local ONE-WAY-UNIFY1[109] reentrant has the following parameters: TERM1{817} local TERM2{818} local ONE-WAY-UNIFY[106] has the following parameters: TERM1{814} local TERM2{815} local [inside REWRITE-WITH-LEMMAS 105] reentrant [inside REWRITE-WITH-LEMMAS 104] reentrant REWRITE-WITH-LEMMAS[102] reentrant has the following parameters: TERM{812} local LST{813} local [inside REWRITE-ARGS 101] reentrant [inside REWRITE 98] reentrant [inside REWRITE 96] reentrant [inside TAUTOLOGYP 92] reentrant [inside TAUTOLOGYP 91] reentrant [inside TAUTOLOGYP 90] reentrant [inside TAUTOLOGYP 89] reentrant TAUTP[84] has the following parameter: X{802} local [inside APPLY-SUBST-LST 83] reentrant [inside APPLY-SUBST 79] has the following parameter: TEMP-TEMP{799} local APPLY-SUBST[77] has the following parameters: ALIST{797} local TERM{798} local [inside TRANSLATE-ALIST 76] reentrant loop[70] has the following parameters: TERM{794} local N{795} local [inside TEST 67] has the following parameter: TERM{791} local TEST[66] has region has the following parameter: N{790} local PUT-LEMMAS![62] has the following parameters: SYMBOL-RECORD{784} local LEMMAS{785} local [inside SYMBOL->SYMBOL-RECORD 59] has the following parameter: R{781} local [inside SYMBOL->SYMBOL-RECORD 58] has the following parameter: X{780} local SYMBOL->SYMBOL-RECORD[57] has the following parameter: SYM{779} local GET[56] has the following parameter: SYM{777} local PUT[55] has the following parameters: SYM{774} local VALUE{776} local [inside TRANSLATE-ARGS 51] reentrant TRANSLATE-TERM[46] has the following parameter: TERM{771} local ADD-LEMMA[43] has the following parameter: TERM{770} local ADD-LEMMA-LST[39] has the following parameter: LST{768} local [inside TEST-BOYER 36] has the following parameter: ANSWER{764} local TEST-BOYER[34] has the following parameter: N{762} local [inside top level 32] has the following parameters: TRUE-TERM{686} global FALSE-TERM{687} global UNIFY-SUBST{693} global REWRITE-COUNT{698} global IF-CONSTRUCTOR{699} global *SYMBOL-RECORDS-ALIST*{711} global [inside SBOYER-BENCHMARK 21] has the following parameter: v{680} local [inside SBOYER-BENCHMARK 20] has the following parameter: REWRITES{679} local [inside SBOYER-BENCHMARK 17] has the following parameter: N{677} local SBOYER-BENCHMARK[16] has the following parameter: ARGS{676} local LOOP[14] has the following parameters: I{674} local RESULT{675} local RUN-BENCH[11] has the following parameter: COUNT{669} local RUN-BENCHMARK[6] has the following parameter: COUNT{663} local [inside top level 4] has the following parameters: TEST-BOYER{649} local SETUP-BOYER{650} local The following expression, sboyer-stalin.sc:303:12902, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) *SYMBOL-RECORDS-ALIST*) The following expression, sboyer-stalin.sc:303:12908, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) The following expression, sboyer-stalin.sc:303:12902, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) *SYMBOL-RECORDS-ALIST*) The following expression, sboyer-stalin.sc:303:12908, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) The following expression, sboyer-stalin.sc:303:12902, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) *SYMBOL-RECORDS-ALIST*) The following expression, sboyer-stalin.sc:303:12908, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) The following expression, sboyer-stalin.sc:303:12902, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) *SYMBOL-RECORDS-ALIST*) The following expression, sboyer-stalin.sc:303:12908, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) The following expression, sboyer-stalin.sc:303:12902, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) *SYMBOL-RECORDS-ALIST*) The following expression, sboyer-stalin.sc:303:12908, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) (LIST-LENGTH LIST)) The following expression, sboyer-stalin.sc:429:16767, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TERM2 TERM1) UNIFY-SUBST) The following expression, sboyer-stalin.sc:429:16773, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TERM2 TERM1) The following expression, sboyer-stalin.sc:359:14563, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TERM) (APPLY-SUBST-LST ALIST (# TERM))) The following expression, sboyer-stalin.sc:359:14563, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TERM) (APPLY-SUBST-LST ALIST (# TERM))) The following expression, sboyer-stalin.sc:273:11944, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (SYMBOL->SYMBOL-RECORD (# TERM)) (TRANSLATE-ARGS (# TERM))) The following expression, sboyer-stalin.sc:273:11944, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (SYMBOL->SYMBOL-RECORD (# TERM)) (TRANSLATE-ARGS (# TERM))) The following expression, sboyer-stalin.sc:273:11944, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (SYMBOL->SYMBOL-RECORD (# TERM)) (TRANSLATE-ARGS (# TERM))) The following expression, sboyer-stalin.sc:273:11944, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (SYMBOL->SYMBOL-RECORD (# TERM)) (TRANSLATE-ARGS (# TERM))) The following expression, sboyer-stalin.sc:273:11944, allocates on TEST[66]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (SYMBOL->SYMBOL-RECORD (# TERM)) (TRANSLATE-ARGS (# TERM))) The following expression, sboyer-stalin.sc:303:12902, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) *SYMBOL-RECORDS-ALIST*) The following expression, sboyer-stalin.sc:303:12908, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) The following expression, sboyer-stalin.sc:303:12902, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) *SYMBOL-RECORDS-ALIST*) The following expression, sboyer-stalin.sc:303:12908, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) The following expression, sboyer-stalin.sc:303:12902, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) *SYMBOL-RECORDS-ALIST*) The following expression, sboyer-stalin.sc:303:12908, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20) The following expression allocates on LOOP[1804]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE INTEGER->CHAR) (# # #)) CHARACTERS) The following expression allocates on LOOP[1804]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #\- CHARACTERS) The following expression allocates on LOOP[1799]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE INTEGER->CHAR) (# # #)) CHARACTERS) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) (LIST-LENGTH LIST)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((# #) 0 STRINGS)) The following expression, sboyer-stalin.sc:429:16767, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TERM2 TERM1) UNIFY-SUBST) The following expression, sboyer-stalin.sc:429:16773, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TERM2 TERM1) The following expression, sboyer-stalin.sc:397:15776, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) X Y) The following expression, sboyer-stalin.sc:382:15297, allocates on TAUTOLOGYP[85]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CADR X) FALSE-LST) The following expression, sboyer-stalin.sc:378:15194, allocates on TAUTOLOGYP[85]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CADR X) TRUE-LST) The following expression, sboyer-stalin.sc:363:14690, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (APPLY-SUBST ALIST (# LST)) (APPLY-SUBST-LST ALIST (# LST))) The following expression, sboyer-stalin.sc:359:14563, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) TERM) (APPLY-SUBST-LST ALIST (# TERM))) The following expression, sboyer-stalin.sc:352:14317, allocates on TEST[66]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CAAR ALIST) (TRANSLATE-TERM #)) (TRANSLATE-ALIST (# ALIST))) The following expression, sboyer-stalin.sc:352:14323, allocates on TEST[66]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (CAAR ALIST) (TRANSLATE-TERM (CDAR ALIST))) The following expression, sboyer-stalin.sc:345:14160, allocates on the heap: (LIST 'OR TERM '(F)) The following expression, sboyer-stalin.sc:314:13230, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR) SYM '()) The following expression, sboyer-stalin.sc:303:12902, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) *SYMBOL-RECORDS-ALIST*) The following expression, sboyer-stalin.sc:303:12908, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYM R) The following expression, sboyer-stalin.sc:278:12087, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (TRANSLATE-TERM (# LST)) (TRANSLATE-ARGS (# LST))) The following expression, sboyer-stalin.sc:273:11944, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (SYMBOL->SYMBOL-RECORD (# TERM)) (TRANSLATE-ARGS (# TERM))) The following expression, sboyer-stalin.sc:266:11678, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (TRANSLATE-TERM TERM) (GET (# #) 'LEMMAS)) The following expression, sboyer-stalin.sc:75:3231, allocates on the heap: (STRING-APPEND "sboyer" (NUMBER->STRING N)) The following expression, sboyer-stalin.sc:502:18809, allocates on the heap: (SBOYER-BENCHMARK 5) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W22020 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 0% - Expanding macros 4 - 0% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 3 - 0% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 54 - 4% - Performing flow analysis 0 - 0% - Enumerating call sites 1 - 0% - Determining which types and type sets are used 2 - 0% - Determining which call sites to split 0 - 0% - Computing call graph 1 - 0% - Determining which environments are called more than once 0 - 0% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 9 - 1% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 0% - Determining which environments are recursive 1 - 0% - Determining which environments are reentrant 167 - 12% - Asserting uniqueness 970 - 71% - Performing lightweight closure conversion 0 - 0% - Determining parents 14 - 1% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 117 - 9% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 5 - 0% - Generating code 8 - 1% - Removing unused declarations 1 - 0% - Removing unused labels 1 - 0% - Writing database 0 - 0% - Compiling C code 1364.04user 1.72system 23:08.79elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (37873major+855505minor)pagefaults 0swaps run sboyer 22.39user 0.25system 0:23.08elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (102major+12237minor)pagefaults 0swaps compile dynamic Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 21876 expressions 111 internal symbol types 4 external symbol types 53 primitive procedure types 165 non-called native procedure types 572 called noop native procedure types 1333 called non-noop native procedure types 1 foreign procedure type 0 continuation types 5 string types 41 structure types 4 headed vector types 1 nonheaded vector type 0 displaced vector types 25018 type sets 858 hunoz variables 2197 non-hunoz variables 684 noop environments 2229 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 54085 expressions 111 internal symbol types 4 external symbol types 53 primitive procedure types 165 non-called native procedure types 810 called noop native procedure types 3211 called non-noop native procedure types 1 foreign procedure type 0 continuation types 5 string types 41 structure types 6 headed vector types 1 nonheaded vector type 0 displaced vector types 60280 type sets 1138 hunoz variables 6684 non-hunoz variables 922 noop environments 5908 non-noop environments 1 call site dispatches on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 325 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 40501 expressions 111 internal symbol types 4 external symbol types 53 primitive procedure types 165 non-called native procedure types 810 called noop native procedure types 3211 called non-noop native procedure types 1 foreign procedure type 0 continuation types 5 string types 41 structure types 6 headed vector types 1 nonheaded vector type 0 displaced vector types 45848 type sets 945 hunoz variables 6029 non-hunoz variables 0 noop environments 4927 non-noop environments 1 call site dispatches on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 325 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: [clone FIND![256] 5468] reentrant has the following parameter: ELEM{5833} local has the following in-lined locals: P-ELEM{5834} REP-ELEM{5835} [clone FIND![256] 5464] reentrant has the following parameter: ELEM{5829} local has the following in-lined locals: P-ELEM{5830} REP-ELEM{5831} [clone FIND![256] 5460] reentrant has the following parameter: ELEM{5825} local has the following in-lined locals: P-ELEM{5826} REP-ELEM{5827} [clone FIND![256] 5456] reentrant has the following parameter: ELEM{5821} local has the following in-lined locals: P-ELEM{5822} REP-ELEM{5823} [clone FIND![256] 5452] reentrant has the following parameter: ELEM{5817} local has the following in-lined locals: P-ELEM{5818} REP-ELEM{5819} [clone FIND![256] 5448] reentrant has the following parameter: ELEM{5813} local has the following in-lined locals: P-ELEM{5814} REP-ELEM{5815} [clone FIND![256] 5444] reentrant has the following parameter: ELEM{5809} local has the following in-lined locals: P-ELEM{5810} REP-ELEM{5811} [clone FIND![256] 5440] reentrant has the following parameter: ELEM{5805} local has the following in-lined locals: P-ELEM{5806} REP-ELEM{5807} [clone FIND![256] 5436] reentrant has the following parameter: ELEM{5801} local has the following in-lined locals: P-ELEM{5802} REP-ELEM{5803} [clone FIND![256] 5432] reentrant has the following parameter: ELEM{5797} local has the following in-lined locals: P-ELEM{5798} REP-ELEM{5799} [clone FIND![256] 5428] reentrant has the following parameter: ELEM{5793} local has the following in-lined locals: P-ELEM{5794} REP-ELEM{5795} [clone CONVERT-TVARS[531] 5315] reentrant has the following parameter: TVAR-LIST{5665} local has the following in-lined locals: TVAR-1{6854} TVAR-2{6855} OBJS{6856} TARGS{6858} [clone CONVERT-TVARS[531] 5311] reentrant has the following parameter: TVAR-LIST{5664} local has the following in-lined locals: TVAR-1{6953} TVAR-2{6954} OBJS{6955} TARGS{6957} [clone CONVERT-TVARS[531] 5307] reentrant has the following parameter: TVAR-LIST{5663} local has the following in-lined locals: TVAR-1{6926} TVAR-2{6927} OBJS{6928} TARGS{6930} [clone CONVERT-TVARS[531] 5303] reentrant has the following parameter: TVAR-LIST{5662} local has the following in-lined locals: TVAR-1{6934} TVAR-2{6935} OBJS{6936} TARGS{6938} [clone CONVERT-TVARS[531] 5299] reentrant has the following parameter: TVAR-LIST{5661} local has the following in-lined locals: TVAR-1{6942} TVAR-2{6943} OBJS{6944} TARGS{6946} [clone CONVERT-TVARS[531] 5295] reentrant has the following parameter: TVAR-LIST{5660} local has the following in-lined locals: TVAR-1{6878} TVAR-2{6879} OBJS{6880} TARGS{6882} [clone CONVERT-TVARS[531] 5291] reentrant has the following parameter: TVAR-LIST{5659} local has the following in-lined locals: TVAR-1{6886} TVAR-2{6887} OBJS{6888} TARGS{6890} [clone CONVERT-TVARS[531] 5287] reentrant has the following parameter: TVAR-LIST{5658} local has the following in-lined locals: TVAR-1{6894} TVAR-2{6895} OBJS{6896} TARGS{6898} [clone CONVERT-TVARS[531] 5283] reentrant has the following parameter: TVAR-LIST{5657} local has the following in-lined locals: TVAR-1{6902} TVAR-2{6903} OBJS{6904} TARGS{6906} [clone CONVERT-TVARS[531] 5279] reentrant has the following parameter: TVAR-LIST{5656} local has the following in-lined locals: TVAR-1{6910} TVAR-2{6911} OBJS{6912} TARGS{6914} [clone CONVERT-TVARS[531] 5275] reentrant has the following parameter: TVAR-LIST{5655} local has the following in-lined locals: TVAR-1{6918} TVAR-2{6919} OBJS{6920} TARGS{6922} [clone CONVERT-TVARS[531] 5271] reentrant has the following parameter: TVAR-LIST{5654} local has the following in-lined locals: TVAR-1{6870} TVAR-2{6871} OBJS{6872} TARGS{6874} [clone CONVERT-TVARS[531] 5267] reentrant has the following parameter: TVAR-LIST{5653} local has the following in-lined locals: TVAR-1{6862} TVAR-2{6863} OBJS{6864} TARGS{6866} [clone CONVERT-TVARS[531] 5263] reentrant has the following parameter: TVAR-LIST{5652} local has the following in-lined locals: TVAR-1{6962} TVAR-2{6963} OBJS{6964} TARGS{6966} [clone CONVERT-TVARS[531] 5259] reentrant has the following parameter: TVAR-LIST{5651} local has the following in-lined locals: TVAR-1{6970} TVAR-2{6971} OBJS{6972} TARGS{6974} [clone CONVERT-TVARS[531] 5255] reentrant has the following parameter: TVAR-LIST{5650} local has the following in-lined locals: TVAR-1{6978} TVAR-2{6979} OBJS{6980} TARGS{6982} [clone CONVERT-TVARS[531] 5251] reentrant has the following parameter: TVAR-LIST{5649} local has the following in-lined locals: TVAR-1{6986} TVAR-2{6987} OBJS{6988} TARGS{6990} [clone CONVERT-TVARS[531] 5247] reentrant has the following parameter: TVAR-LIST{5648} local has the following in-lined locals: TVAR-1{6994} TVAR-2{6995} OBJS{6996} TARGS{6998} [clone CONVERT-TVARS[531] 5243] reentrant has the following parameter: TVAR-LIST{5647} local has the following in-lined locals: TVAR-1{7002} TVAR-2{7003} OBJS{7004} TARGS{7006} [clone CONVERT-TVARS[531] 5239] reentrant has the following parameter: TVAR-LIST{5646} local has the following in-lined locals: TVAR-1{7010} TVAR-2{7011} OBJS{7012} TARGS{7014} [clone CONVERT-TVARS[531] 5235] reentrant has the following parameter: TVAR-LIST{5645} local has the following in-lined locals: TVAR-1{7018} TVAR-2{7019} OBJS{7020} TARGS{7022} [clone CONVERT-TVARS[531] 5231] reentrant has the following parameter: TVAR-LIST{5644} local has the following in-lined locals: TVAR-1{7036} TVAR-2{7037} OBJS{7038} TARGS{7040} [clone CONVERT-TVARS[531] 5227] reentrant has the following parameter: TVAR-LIST{5643} local has the following in-lined locals: TVAR-1{7044} TVAR-2{7045} OBJS{7046} TARGS{7048} [clone CONVERT-TVARS[531] 5223] reentrant has the following parameter: TVAR-LIST{5642} local has the following in-lined locals: TVAR-1{7052} TVAR-2{7053} OBJS{7054} TARGS{7056} [clone CONVERT-TVARS[531] 5219] reentrant has the following parameter: TVAR-LIST{5641} local has the following in-lined locals: TVAR-1{7060} TVAR-2{7061} OBJS{7062} TARGS{7064} [clone CONVERT-TVARS[531] 5215] reentrant has the following parameter: TVAR-LIST{5640} local has the following in-lined locals: TVAR-1{7068} TVAR-2{7069} OBJS{7070} TARGS{7072} [clone CONVERT-TVARS[531] 5211] reentrant has the following parameter: TVAR-LIST{5639} local has the following in-lined locals: TVAR-1{7076} TVAR-2{7077} OBJS{7078} TARGS{7080} [clone CONVERT-TVARS[531] 5207] reentrant has the following parameter: TVAR-LIST{5638} local has the following in-lined locals: TVAR-1{7084} TVAR-2{7085} OBJS{7086} TARGS{7088} [clone CONVERT-TVARS[531] 5203] reentrant has the following parameter: TVAR-LIST{5637} local has the following in-lined locals: TVAR-1{7092} TVAR-2{7093} OBJS{7094} TARGS{7096} [clone CONVERT-TVARS[531] 5199] reentrant has the following parameter: TVAR-LIST{5636} local has the following in-lined locals: TVAR-1{7100} TVAR-2{7101} OBJS{7102} TARGS{7104} [clone CONVERT-TVARS[531] 5195] reentrant has the following parameter: TVAR-LIST{5635} local has the following in-lined locals: TVAR-1{7108} TVAR-2{7109} OBJS{7110} TARGS{7112} [clone CONVERT-TVARS[531] 5191] reentrant has the following parameter: TVAR-LIST{5634} local has the following in-lined locals: TVAR-1{7116} TVAR-2{7117} OBJS{7118} TARGS{7120} [clone CONVERT-TVARS[531] 5187] reentrant has the following parameter: TVAR-LIST{5633} local has the following in-lined locals: TVAR-1{7124} TVAR-2{7125} OBJS{7126} TARGS{7128} [clone CONVERT-TVARS[531] 5183] reentrant has the following parameter: TVAR-LIST{5632} local has the following in-lined locals: TVAR-1{7132} TVAR-2{7133} OBJS{7134} TARGS{7136} [clone CONVERT-TVARS[531] 5179] reentrant has the following parameter: TVAR-LIST{5631} local has the following in-lined locals: TVAR-1{7140} TVAR-2{7141} OBJS{7142} TARGS{7144} [clone CONVERT-TVARS[531] 5175] reentrant has the following parameter: TVAR-LIST{5630} local has the following in-lined locals: TVAR-1{7148} TVAR-2{7149} OBJS{7150} TARGS{7152} [clone CONVERT-TVARS[531] 5171] reentrant has the following parameter: TVAR-LIST{5629} local has the following in-lined locals: TVAR-1{7156} TVAR-2{7157} OBJS{7158} TARGS{7160} [clone CONVERT-TVARS[531] 5167] reentrant has the following parameter: TVAR-LIST{5628} local has the following in-lined locals: TVAR-1{7164} TVAR-2{7165} OBJS{7166} TARGS{7168} [clone CONVERT-TVARS[531] 5163] reentrant has the following parameter: TVAR-LIST{5627} local has the following in-lined locals: TVAR-1{7712} TVAR-2{7713} OBJS{7714} TARGS{7716} [clone CONVERT-TVARS[531] 5159] reentrant has the following parameter: TVAR-LIST{5626} local has the following in-lined locals: TVAR-1{7957} TVAR-2{7958} OBJS{7959} TARGS{7961} [clone CONVERT-TVARS[531] 5155] reentrant has the following parameter: TVAR-LIST{5625} local has the following in-lined locals: TVAR-1{7815} TVAR-2{7816} OBJS{7817} TARGS{7819} [clone CONVERT-TVARS[531] 5151] reentrant has the following parameter: TVAR-LIST{5624} local has the following in-lined locals: TVAR-1{7832} TVAR-2{7833} OBJS{7834} TARGS{7836} [clone CONVERT-TVARS[531] 5147] reentrant has the following parameter: TVAR-LIST{5623} local has the following in-lined locals: TVAR-1{7849} TVAR-2{7850} OBJS{7851} TARGS{7853} [clone CONVERT-TVARS[531] 5143] reentrant has the following parameter: TVAR-LIST{5622} local has the following in-lined locals: TVAR-1{7866} TVAR-2{7867} OBJS{7868} TARGS{7870} [clone CONVERT-TVARS[531] 5139] reentrant has the following parameter: TVAR-LIST{5621} local has the following in-lined locals: TVAR-1{7883} TVAR-2{7884} OBJS{7885} TARGS{7887} [clone CONVERT-TVARS[531] 5135] reentrant has the following parameter: TVAR-LIST{5620} local has the following in-lined locals: TVAR-1{7900} TVAR-2{7901} OBJS{7902} TARGS{7904} [clone CONVERT-TVARS[531] 5131] reentrant has the following parameter: TVAR-LIST{5619} local has the following in-lined locals: TVAR-1{7917} TVAR-2{7918} OBJS{7919} TARGS{7921} [clone CONVERT-TVARS[531] 5127] reentrant has the following parameter: TVAR-LIST{5618} local has the following in-lined locals: TVAR-1{7934} TVAR-2{7935} OBJS{7936} TARGS{7938} [clone CONVERT-TVARS[531] 5123] reentrant has the following parameter: TVAR-LIST{5617} local has the following in-lined locals: TVAR-1{7726} TVAR-2{7727} OBJS{7728} TARGS{7730} [clone CONVERT-TVARS[531] 5119] reentrant has the following parameter: TVAR-LIST{5616} local has the following in-lined locals: TVAR-1{7740} TVAR-2{7741} OBJS{7742} TARGS{7744} [clone CONVERT-TVARS[531] 5115] reentrant has the following parameter: TVAR-LIST{5615} local has the following in-lined locals: TVAR-1{7754} TVAR-2{7755} OBJS{7756} TARGS{7758} [clone CONVERT-TVARS[531] 5111] reentrant has the following parameter: TVAR-LIST{5614} local has the following in-lined locals: TVAR-1{7768} TVAR-2{7769} OBJS{7770} TARGS{7772} [clone CONVERT-TVARS[531] 5107] reentrant has the following parameter: TVAR-LIST{5613} local has the following in-lined locals: TVAR-1{7450} TVAR-2{7451} OBJS{7452} TARGS{7454} [clone CONVERT-TVARS[531] 5103] reentrant has the following parameter: TVAR-LIST{5612} local has the following in-lined locals: TVAR-1{7461} TVAR-2{7462} OBJS{7463} TARGS{7465} [clone CONVERT-TVARS[531] 5099] reentrant has the following parameter: TVAR-LIST{5611} local has the following in-lined locals: TVAR-1{7472} TVAR-2{7473} OBJS{7474} TARGS{7476} [clone CONVERT-TVARS[531] 5095] reentrant has the following parameter: TVAR-LIST{5610} local has the following in-lined locals: TVAR-1{7483} TVAR-2{7484} OBJS{7485} TARGS{7487} [clone CONVERT-TVARS[531] 5091] reentrant has the following parameter: TVAR-LIST{5609} local has the following in-lined locals: TVAR-1{7494} TVAR-2{7495} OBJS{7496} TARGS{7498} [clone CONVERT-TVARS[531] 5087] reentrant has the following parameter: TVAR-LIST{5608} local has the following in-lined locals: TVAR-1{7505} TVAR-2{7506} OBJS{7507} TARGS{7509} [clone CONVERT-TVARS[531] 5083] reentrant has the following parameter: TVAR-LIST{5607} local has the following in-lined locals: TVAR-1{7516} TVAR-2{7517} OBJS{7518} TARGS{7520} [clone CONVERT-TVARS[531] 5079] reentrant has the following parameter: TVAR-LIST{5606} local has the following in-lined locals: TVAR-1{7527} TVAR-2{7528} OBJS{7529} TARGS{7531} [clone CONVERT-TVARS[531] 5075] reentrant has the following parameter: TVAR-LIST{5605} local has the following in-lined locals: TVAR-1{7541} TVAR-2{7542} OBJS{7543} TARGS{7545} [clone CONVERT-TVARS[531] 5071] reentrant has the following parameter: TVAR-LIST{5604} local has the following in-lined locals: TVAR-1{7555} TVAR-2{7556} OBJS{7557} TARGS{7559} [clone CONVERT-TVARS[531] 5067] reentrant has the following parameter: TVAR-LIST{5603} local has the following in-lined locals: TVAR-1{7569} TVAR-2{7570} OBJS{7571} TARGS{7573} [clone CONVERT-TVARS[531] 5063] reentrant has the following parameter: TVAR-LIST{5602} local has the following in-lined locals: TVAR-1{7577} TVAR-2{7578} OBJS{7579} TARGS{7581} [clone CONVERT-TVARS[531] 5059] reentrant has the following parameter: TVAR-LIST{5601} local has the following in-lined locals: TVAR-1{7585} TVAR-2{7586} OBJS{7587} TARGS{7589} [clone CONVERT-TVARS[531] 5055] reentrant has the following parameter: TVAR-LIST{5600} local has the following in-lined locals: TVAR-1{7593} TVAR-2{7594} OBJS{7595} TARGS{7597} [clone CONVERT-TVARS[531] 5051] reentrant has the following parameter: TVAR-LIST{5599} local has the following in-lined locals: TVAR-1{7601} TVAR-2{7602} OBJS{7603} TARGS{7605} [clone CONVERT-TVARS[531] 5047] reentrant has the following parameter: TVAR-LIST{5598} local has the following in-lined locals: TVAR-1{7609} TVAR-2{7610} OBJS{7611} TARGS{7613} [clone CONVERT-TVARS[531] 5043] reentrant has the following parameter: TVAR-LIST{5597} local has the following in-lined locals: TVAR-1{7617} TVAR-2{7618} OBJS{7619} TARGS{7621} [clone CONVERT-TVARS[531] 5039] reentrant has the following parameter: TVAR-LIST{5596} local has the following in-lined locals: TVAR-1{7625} TVAR-2{7626} OBJS{7627} TARGS{7629} DISPLAY2[2475] has the following parameters: OBJ{2974} local PORT{2975} local has the following in-lined locals: STRING{2885} PORT{2886} N{2887} I{2890} LOOKUP-CHARACTER-NAME[2295] has the following parameter: S{2830} local has the following in-lined locals: CHAR1{2180} CHAR2{2181} CHAR1{2185} CHAR2{2186} NAMES{2833} S{2837} NAME{2838} v{2839} CHAR{5539} CHAR{5540} READ-SYMBOL[2289] has the following parameter: S{2827} local has the following in-lined locals: C{2828} &REST{3418} &REST{3470} LIST{4643} LIST{4646} R{4647} LIST{4648} LIST{4651} R{4652} CHAR{5541} C{5591} v{5592} v{5593} v{5594} v{5595} CHAR{5994} CHAR1{5995} CHAR2{5996} CHAR1{6000} CHAR2{6001} CHAR1{6004} CHAR2{6005} CHAR1{6009} CHAR2{6010} CHAR1{6013} CHAR2{6014} CHAR1{6018} CHAR2{6019} CHAR1{6022} CHAR2{6023} CHAR1{6027} CHAR2{6028} CHAR1{6031} CHAR2{6032} CHAR1{6036} CHAR2{6037} CHAR-INITIAL?[2269] has the following parameter: C{2807} local has the following in-lined locals: v{2808} v{2809} v{2810} v{2811} v{2812} v{2813} v{2814} v{2815} v{2816} v{2817} v{2818} v{2819} v{2820} v{2821} CHAR1{4368} CHAR2{4369} CHAR1{4373} CHAR2{4374} CHAR1{4377} CHAR2{4378} CHAR1{4382} CHAR2{4383} CHAR1{4386} CHAR2{4387} CHAR1{4391} CHAR2{4392} CHAR1{4395} CHAR2{4396} CHAR1{4400} CHAR2{4401} CHAR1{4404} CHAR2{4405} CHAR1{4409} CHAR2{4410} CHAR1{4413} CHAR2{4414} CHAR1{4418} CHAR2{4419} CHAR1{4422} CHAR2{4423} CHAR1{4427} CHAR2{4428} CHAR1{4431} CHAR2{4432} CHAR1{4436} CHAR2{4437} CHAR1{4440} CHAR2{4441} CHAR1{4445} CHAR2{4446} CHAR1{4449} CHAR2{4450} CHAR1{4454} CHAR2{4455} CHAR1{4458} CHAR2{4459} CHAR1{4463} CHAR2{4464} CHAR1{4467} CHAR2{4468} CHAR1{4472} CHAR2{4473} CHAR1{4476} CHAR2{4477} CHAR1{4481} CHAR2{4482} CHAR1{4485} CHAR2{4486} CHAR1{4490} CHAR2{4491} CHAR{5545} v{5546} CHAR1{5958} CHAR2{5959} CHAR1{5963} CHAR2{5964} CHAR1{5967} CHAR2{5968} CHAR1{5972} CHAR2{5973} CHAR1{5976} CHAR2{5977} CHAR1{5981} CHAR2{5982} CHAR1{5985} CHAR2{5986} CHAR1{5990} CHAR2{5991} READ-NUMBER[2235] has region has the following parameter: N{2785} local has the following in-lined locals: CHAR1{2135} CHAR2{2136} CHAR1{2140} CHAR2{2141} CHAR{2227} C1{2786} v{2789} v{2790} v{2791} v{2792} v{2793} v{2794} v{2795} v{2796} v{2797} C2{2799} C3{2801} C3{2804} &REST{3180} &REST{3419} &REST{3420} &REST{3421} &REST{3422} &REST{3423} &REST{3471} CHAR1{3621} CHAR2{3622} CHAR1{3626} CHAR2{3627} CHAR1{3738} CHAR2{3739} CHAR1{3743} CHAR2{3744} CHAR1{3765} CHAR2{3766} CHAR1{3770} CHAR2{3771} CHAR1{4269} CHAR2{4270} CHAR1{4274} CHAR2{4275} CHAR1{4278} CHAR2{4279} CHAR1{4283} CHAR2{4284} CHAR1{4287} CHAR2{4288} CHAR1{4292} CHAR2{4293} CHAR1{4296} CHAR2{4297} CHAR1{4301} CHAR2{4302} CHAR1{4305} CHAR2{4306} CHAR1{4310} CHAR2{4311} CHAR1{4314} CHAR2{4315} CHAR1{4319} CHAR2{4320} CHAR1{4323} CHAR2{4324} CHAR1{4328} CHAR2{4329} CHAR1{4332} CHAR2{4333} CHAR1{4337} CHAR2{4338} CHAR1{4341} CHAR2{4342} CHAR1{4346} CHAR2{4347} CHAR1{4350} CHAR2{4351} CHAR1{4355} CHAR2{4356} CHAR1{4359} CHAR2{4360} CHAR1{4364} CHAR2{4365} CHAR{4673} CHAR{4674} CHAR{4696} CHAR1{6049} CHAR2{6050} CHAR1{6054} CHAR2{6055} CHAR1{6058} CHAR2{6059} CHAR1{6063} CHAR2{6064} CHAR1{6067} CHAR2{6068} CHAR1{6072} CHAR2{6073} CHAR1{6076} CHAR2{6077} CHAR1{6081} CHAR2{6082} CHAR1{6103} CHAR2{6104} CHAR1{6108} CHAR2{6109} CHAR1{6184} CHAR2{6185} CHAR1{6189} CHAR2{6190} READ-INEXACT-NUMBER[2203] has region has the following parameters: N{2763} local M{2764} local has the following in-lined locals: C1{2765} v{2767} v{2768} v{2769} v{2770} v{2771} v{2772} v{2773} v{2774} v{2775} C2{2777} C3{2779} C3{2782} &REST{3414} &REST{3451} &REST{3452} &REST{3454} &REST{3455} &REST{3456} CHAR1{3936} CHAR2{3937} CHAR1{3941} CHAR2{3942} CHAR1{3945} CHAR2{3946} CHAR1{3950} CHAR2{3951} CHAR1{3954} CHAR2{3955} CHAR1{3959} CHAR2{3960} CHAR1{3963} CHAR2{3964} CHAR1{3968} CHAR2{3969} CHAR1{3972} CHAR2{3973} CHAR1{3977} CHAR2{3978} CHAR1{3981} CHAR2{3982} CHAR1{3986} CHAR2{3987} CHAR1{3990} CHAR2{3991} CHAR1{3995} CHAR2{3996} CHAR1{3999} CHAR2{4000} CHAR1{4004} CHAR2{4005} CHAR1{4008} CHAR2{4009} CHAR1{4013} CHAR2{4014} CHAR1{4017} CHAR2{4018} CHAR1{4022} CHAR2{4023} CHAR1{4026} CHAR2{4027} CHAR1{4031} CHAR2{4032} CHAR1{4035} CHAR2{4036} CHAR1{4040} CHAR2{4041} CHAR{4684} CHAR{4686} CHAR{4687} CHAR{4688} CHAR1{6112} CHAR2{6113} CHAR1{6117} CHAR2{6118} CHAR1{6121} CHAR2{6122} CHAR1{6126} CHAR2{6127} CHAR1{6130} CHAR2{6131} CHAR1{6135} CHAR2{6136} CHAR1{6139} CHAR2{6140} CHAR1{6144} CHAR2{6145} CHAR1{6148} CHAR2{6149} CHAR1{6153} CHAR2{6154} CHAR1{6157} CHAR2{6158} CHAR1{6162} CHAR2{6163} CHAR1{6166} CHAR2{6167} CHAR1{6171} CHAR2{6172} CHAR1{6175} CHAR2{6176} CHAR1{6180} CHAR2{6181} READ-EXACT-HEXADECIMAL-INTEGER[2193] has region has the following parameter: N{2758} local has the following in-lined locals: C{2759} &REST{3415} &REST{3460} &REST{3461} &REST{3462} CHAR1{3540} CHAR2{3541} CHAR1{3545} CHAR2{3546} CHAR1{3549} CHAR2{3550} CHAR1{3554} CHAR2{3555} CHAR1{3684} CHAR2{3685} CHAR1{3689} CHAR2{3690} CHAR1{3693} CHAR2{3694} CHAR1{3698} CHAR2{3699} CHAR{4692} CHAR1{6544} CHAR2{6545} CHAR1{6549} CHAR2{6550} CHAR1{6553} CHAR2{6554} CHAR1{6558} CHAR2{6559} READ-EXACT-DECIMAL-INTEGER[2187] has region has the following parameter: N{2755} local has the following in-lined locals: C{2756} &REST{3413} &REST{3453} CHAR{4685} CHAR1{6085} CHAR2{6086} CHAR1{6090} CHAR2{6091} CHAR1{6094} CHAR2{6095} CHAR1{6099} CHAR2{6100} READ-EXACT-OCTAL-INTEGER[2181] has region has the following parameter: N{2752} local has the following in-lined locals: CHAR1{2171} CHAR2{2172} CHAR1{2176} CHAR2{2177} C{2753} &REST{3412} &REST{3444} CHAR1{3630} CHAR2{3631} CHAR1{3635} CHAR2{3636} READ-EXACT-BINARY-INTEGER[2173] has region has the following parameter: N{2748} local has the following in-lined locals: C{2749} &REST{3411} &REST{3439} &REST{3440} CHAR1{3828} CHAR2{3829} CHAR1{3833} CHAR2{3834} CHAR1{3837} CHAR2{3838} CHAR1{3842} CHAR2{3843} READ[1940] reentrant has the following parameter: STATE{2630} local has the following in-lined locals: CHAR1{2144} CHAR2{2145} CHAR1{2149} CHAR2{2150} CHAR1{2153} CHAR2{2154} CHAR1{2158} CHAR2{2159} CHAR1{2162} CHAR2{2163} CHAR1{2167} CHAR2{2168} CHAR{2225} v{2226} CHAR{2228} C{2229} v{2230} v{2231} v{2232} v{2233} CHAR{2238} C1{2653} C2{2658} S{2663} E{2664} E1{2666} S{2670} C{2671} C2{2672} v{2674} v{2675} v{2676} C3{2677} C4{2679} C4{2681} v{2683} C3{2684} C4{2686} v{2689} C4{2690} v{2693} v{2694} C3{2695} C4{2697} C5{2699} C4{2702} C5{2704} C4{2707} v{2710} C3{2711} C4{2713} C4{2715} S{2719} E{2720} C3{2721} S{2725} C{2726} C1{2728} C2{2730} C3{2733} C2{2737} C3{2740} C2{2744} C{2822} v{2823} v{2824} v{2825} v{2826} S{2840} C{2841} &REST{3181} OBJS{3301} OBJS{3302} OBJS{3303} OBJS{3304} OBJS{3305} OBJS{3306} OBJS{3307} OBJS{3308} OBJS{3309} OBJS{3310} OBJS{3311} &REST{3407} &REST{3408} &REST{3409} &REST{3410} &REST{3416} &REST{3417} &REST{3424} &REST{3425} &REST{3426} &REST{3427} &REST{3428} &REST{3429} &REST{3430} &REST{3431} &REST{3432} &REST{3433} &REST{3434} &REST{3435} &REST{3436} &REST{3437} &REST{3438} &REST{3441} &REST{3442} &REST{3443} &REST{3445} &REST{3446} &REST{3447} &REST{3448} &REST{3449} &REST{3450} &REST{3457} &REST{3458} &REST{3459} &REST{3463} &REST{3464} &REST{3465} &REST{3466} &REST{3467} &REST{3468} &REST{3469} &REST{3472} CHAR1{3513} CHAR2{3514} CHAR1{3518} CHAR2{3519} CHAR1{3522} CHAR2{3523} CHAR1{3527} CHAR2{3528} CHAR1{3531} CHAR2{3532} CHAR1{3536} CHAR2{3537} CHAR1{3558} CHAR2{3559} CHAR1{3563} CHAR2{3564} CHAR1{3567} CHAR2{3568} CHAR1{3572} CHAR2{3573} CHAR1{3576} CHAR2{3577} CHAR1{3581} CHAR2{3582} CHAR1{3585} CHAR2{3586} CHAR1{3590} CHAR2{3591} CHAR1{3603} CHAR2{3604} CHAR1{3608} CHAR2{3609} CHAR1{3612} CHAR2{3613} CHAR1{3617} CHAR2{3618} CHAR1{3639} CHAR2{3640} CHAR1{3644} CHAR2{3645} CHAR1{3648} CHAR2{3649} CHAR1{3653} CHAR2{3654} CHAR1{3657} CHAR2{3658} CHAR1{3662} CHAR2{3663} CHAR1{3666} CHAR2{3667} CHAR1{3671} CHAR2{3672} CHAR1{3675} CHAR2{3676} CHAR1{3680} CHAR2{3681} CHAR1{3702} CHAR2{3703} CHAR1{3707} CHAR2{3708} CHAR1{3711} CHAR2{3712} CHAR1{3716} CHAR2{3717} CHAR1{3729} CHAR2{3730} CHAR1{3734} CHAR2{3735} CHAR1{3747} CHAR2{3748} CHAR1{3752} CHAR2{3753} CHAR1{3756} CHAR2{3757} CHAR1{3761} CHAR2{3762} CHAR1{3774} CHAR2{3775} CHAR1{3779} CHAR2{3780} CHAR1{3783} CHAR2{3784} CHAR1{3788} CHAR2{3789} CHAR1{3792} CHAR2{3793} CHAR1{3797} CHAR2{3798} CHAR1{3801} CHAR2{3802} CHAR1{3806} CHAR2{3807} CHAR1{3810} CHAR2{3811} CHAR1{3815} CHAR2{3816} CHAR1{3819} CHAR2{3820} CHAR1{3824} CHAR2{3825} CHAR1{3846} CHAR2{3847} CHAR1{3851} CHAR2{3852} CHAR1{3855} CHAR2{3856} CHAR1{3860} CHAR2{3861} CHAR1{3864} CHAR2{3865} CHAR1{3869} CHAR2{3870} CHAR1{3873} CHAR2{3874} CHAR1{3878} CHAR2{3879} CHAR1{3882} CHAR2{3883} CHAR1{3887} CHAR2{3888} CHAR1{3891} CHAR2{3892} CHAR1{3896} CHAR2{3897} CHAR1{3900} CHAR2{3901} CHAR1{3905} CHAR2{3906} CHAR1{3909} CHAR2{3910} CHAR1{3914} CHAR2{3915} CHAR1{3918} CHAR2{3919} CHAR1{3923} CHAR2{3924} CHAR1{3927} CHAR2{3928} CHAR1{3932} CHAR2{3933} CHAR1{4044} CHAR2{4045} CHAR1{4049} CHAR2{4050} CHAR1{4053} CHAR2{4054} CHAR1{4058} CHAR2{4059} CHAR1{4062} CHAR2{4063} CHAR1{4067} CHAR2{4068} CHAR1{4071} CHAR2{4072} CHAR1{4076} CHAR2{4077} CHAR1{4080} CHAR2{4081} CHAR1{4085} CHAR2{4086} CHAR1{4089} CHAR2{4090} CHAR1{4094} CHAR2{4095} CHAR1{4098} CHAR2{4099} CHAR1{4103} CHAR2{4104} CHAR1{4107} CHAR2{4108} CHAR1{4112} CHAR2{4113} CHAR1{4116} CHAR2{4117} CHAR1{4121} CHAR2{4122} CHAR1{4125} CHAR2{4126} CHAR1{4130} CHAR2{4131} CHAR1{4134} CHAR2{4135} CHAR1{4139} CHAR2{4140} CHAR1{4143} CHAR2{4144} CHAR1{4148} CHAR2{4149} CHAR1{4152} CHAR2{4153} CHAR1{4157} CHAR2{4158} CHAR1{4161} CHAR2{4162} CHAR1{4166} CHAR2{4167} CHAR1{4170} CHAR2{4171} CHAR1{4175} CHAR2{4176} CHAR1{4179} CHAR2{4180} CHAR1{4184} CHAR2{4185} CHAR1{4188} CHAR2{4189} CHAR1{4193} CHAR2{4194} CHAR1{4197} CHAR2{4198} CHAR1{4202} CHAR2{4203} CHAR1{4206} CHAR2{4207} CHAR1{4211} CHAR2{4212} CHAR1{4215} CHAR2{4216} CHAR1{4220} CHAR2{4221} CHAR1{4224} CHAR2{4225} CHAR1{4229} CHAR2{4230} CHAR1{4242} CHAR2{4243} CHAR1{4247} CHAR2{4248} CHAR1{4251} CHAR2{4252} CHAR1{4256} CHAR2{4257} CHAR1{4260} CHAR2{4261} CHAR1{4265} CHAR2{4266} CHAR1{4494} CHAR2{4495} CHAR1{4499} CHAR2{4500} CHAR1{4503} CHAR2{4504} CHAR1{4508} CHAR2{4509} CHAR1{4512} CHAR2{4513} CHAR1{4517} CHAR2{4518} CHAR1{4521} CHAR2{4522} CHAR1{4526} CHAR2{4527} CHAR1{4530} CHAR2{4531} CHAR1{4535} CHAR2{4536} CHAR1{4539} CHAR2{4540} CHAR1{4544} CHAR2{4545} CHAR1{4548} CHAR2{4549} CHAR1{4553} CHAR2{4554} CHAR1{4557} CHAR2{4558} CHAR1{4562} CHAR2{4563} CHAR1{4566} CHAR2{4567} CHAR1{4571} CHAR2{4572} CHAR1{4575} CHAR2{4576} CHAR1{4580} CHAR2{4581} CHAR1{4584} CHAR2{4585} CHAR1{4589} CHAR2{4590} LIST{4628} LIST{4631} R{4632} LIST{4633} LIST{4636} R{4637} LIST{4638} LIST{4641} R{4642} CHAR{4675} CHAR{4676} CHAR{4677} CHAR{4678} CHAR{4679} CHAR{4680} CHAR{4681} CHAR{4682} CHAR{4683} CHAR{4689} CHAR{4690} CHAR{4691} CHAR{4693} CHAR{4694} CHAR{4695} CHAR{4697} CHAR{5528} CHAR{5529} CHAR{5530} CHAR{5531} CHAR{5532} CHAR{5533} CHAR{5534} CHAR{5535} CHAR{5536} CHAR{5537} CHAR{5538} CHAR{5542} CHAR{5543} v{5544} C{5571} v{5572} v{5573} v{5574} v{5575} C{5576} v{5577} v{5578} v{5579} v{5580} C{5581} v{5582} v{5583} v{5584} v{5585} C{5586} v{5587} v{5588} v{5589} v{5590} LIST{5934} R{5935} K{5939} CHAR1{5949} CHAR2{5950} CHAR1{5954} CHAR2{5955} CHAR1{6040} CHAR2{6041} CHAR1{6045} CHAR2{6046} CHAR1{6193} CHAR2{6194} CHAR1{6198} CHAR2{6199} CHAR1{6202} CHAR2{6203} CHAR1{6207} CHAR2{6208} CHAR1{6211} CHAR2{6212} CHAR1{6216} CHAR2{6217} CHAR1{6220} CHAR2{6221} CHAR1{6225} CHAR2{6226} CHAR1{6229} CHAR2{6230} CHAR1{6234} CHAR2{6235} CHAR{6238} CHAR1{6239} CHAR2{6240} CHAR1{6244} CHAR2{6245} CHAR1{6248} CHAR2{6249} CHAR1{6253} CHAR2{6254} CHAR1{6257} CHAR2{6258} CHAR1{6262} CHAR2{6263} CHAR1{6266} CHAR2{6267} CHAR1{6271} CHAR2{6272} CHAR1{6275} CHAR2{6276} CHAR1{6280} CHAR2{6281} CHAR1{6284} CHAR2{6285} CHAR1{6289} CHAR2{6290} CHAR{6293} CHAR1{6294} CHAR2{6295} CHAR1{6299} CHAR2{6300} CHAR1{6303} CHAR2{6304} CHAR1{6308} CHAR2{6309} CHAR1{6312} CHAR2{6313} CHAR1{6317} CHAR2{6318} CHAR1{6321} CHAR2{6322} CHAR1{6326} CHAR2{6327} CHAR1{6330} CHAR2{6331} CHAR1{6335} CHAR2{6336} CHAR1{6339} CHAR2{6340} CHAR1{6344} CHAR2{6345} CHAR1{6348} CHAR2{6349} CHAR1{6353} CHAR2{6354} CHAR1{6357} CHAR2{6358} CHAR1{6362} CHAR2{6363} CHAR{6366} CHAR1{6367} CHAR2{6368} CHAR1{6372} CHAR2{6373} CHAR1{6376} CHAR2{6377} CHAR1{6381} CHAR2{6382} CHAR1{6385} CHAR2{6386} CHAR1{6390} CHAR2{6391} CHAR1{6394} CHAR2{6395} CHAR1{6399} CHAR2{6400} CHAR1{6403} CHAR2{6404} CHAR1{6408} CHAR2{6409} CHAR1{6412} CHAR2{6413} CHAR1{6417} CHAR2{6418} CHAR{6421} CHAR1{6422} CHAR2{6423} CHAR1{6427} CHAR2{6428} CHAR1{6431} CHAR2{6432} CHAR1{6436} CHAR2{6437} CHAR1{6440} CHAR2{6441} CHAR1{6445} CHAR2{6446} CHAR1{6449} CHAR2{6450} CHAR1{6454} CHAR2{6455} CHAR1{6458} CHAR2{6459} CHAR1{6463} CHAR2{6464} CHAR1{6467} CHAR2{6468} CHAR1{6472} CHAR2{6473} CHAR1{6476} CHAR2{6477} CHAR1{6481} CHAR2{6482} CHAR1{6485} CHAR2{6486} CHAR1{6490} CHAR2{6491} CHAR1{6494} CHAR2{6495} CHAR1{6499} CHAR2{6500} CHAR1{6503} CHAR2{6504} CHAR1{6508} CHAR2{6509} CHAR1{6512} CHAR2{6513} CHAR1{6517} CHAR2{6518} LIST{6521} K{6524} CHAR1{6526} CHAR2{6527} CHAR1{6531} CHAR2{6532} CHAR1{6535} CHAR2{6536} CHAR1{6540} CHAR2{6541} CHAR1{6562} CHAR2{6563} CHAR1{6567} CHAR2{6568} CHAR1{6571} CHAR2{6572} CHAR1{6576} CHAR2{6577} CHAR1{6580} CHAR2{6581} CHAR1{6585} CHAR2{6586} CHAR1{6589} CHAR2{6590} CHAR1{6594} CHAR2{6595} CHAR1{6598} CHAR2{6599} CHAR1{6603} CHAR2{6604} CHAR1{6607} CHAR2{6608} CHAR1{6612} CHAR2{6613} CHAR1{6616} CHAR2{6617} CHAR1{6621} CHAR2{6622} CHAR1{6625} CHAR2{6626} CHAR1{6630} CHAR2{6631} CHAR1{6634} CHAR2{6635} CHAR1{6639} CHAR2{6640} CHAR1{6643} CHAR2{6644} CHAR1{6648} CHAR2{6649} CHAR1{6652} CHAR2{6653} CHAR1{6657} CHAR2{6658} CHAR1{6661} CHAR2{6662} CHAR1{6666} CHAR2{6667} CHAR1{6670} CHAR2{6671} CHAR1{6675} CHAR2{6676} CHAR1{6679} CHAR2{6680} CHAR1{6684} CHAR2{6685} CHAR1{6688} CHAR2{6689} CHAR1{6693} CHAR2{6694} CHAR1{6697} CHAR2{6698} CHAR1{6702} CHAR2{6703} FOR-EACH[1880] reentrant has the following parameters: PROC{2581} local LIST1{2582} local LISTS{2583} local has the following in-lined locals: LIST1{2586} LIST1{2590} LIST2{2591} LIST1{2595} LISTS{2596} LISTS{2600} C{2601} LISTS{2604} C{2605} LHS{3476} RHS{3477} LIST{4608} LIST{4611} R{4612} LIST{4613} LIST{4616} R{4617} MAP[1856] reentrant has the following parameters: PROC{2556} local LIST1{2557} local LISTS{2558} local has the following in-lined locals: LIST{1930} LIST{1933} R{1934} LIST1{2561} C{2562} LIST1{2565} LIST2{2566} C{2567} LIST1{2570} LISTS{2571} C{2572} LISTS{2575} C{2576} LISTS{2579} C{2580} PAIR{3366} PAIR{3377} LIST{4593} LIST{4596} R{4597} LIST{4598} LIST{4601} R{4602} LIST{4603} LIST{4606} R{4607} LIST{4618} LIST{4621} R{4622} VECTOR-REVERSE[1826] has the following parameter: VECTOR{2530} local has the following in-lined locals: R{2531} K{2535} LOOP[1773] reentrant has the following parameter: K{2489} local STRING-REVERSE[1741] has the following parameter: STRING{2459} local has the following in-lined locals: N{2460} R{2461} K{2465} STRING-COPY[1720] has the following parameter: STRING{2444} local has the following in-lined locals: N{2445} R{2446} K{2450} LIST->STRING[1710] has the following parameter: LIST{2436} local has the following in-lined locals: R{2437} K{2441} LIST{5921} K{5924} STRING=?[1559] has the following parameters: STRING1{2256} local STRING2{2257} local has the following in-lined locals: STRING1{2261} STRING2{2262} N{2264} K{2267} v{2268} CHAR1{4233} CHAR2{4234} CHAR1{4238} CHAR2{4239} CHAR-LOWER-CASE?[1538] has the following parameter: LETTER{2235} local has the following in-lined locals: CHAR1{3594} CHAR2{3595} CHAR1{3599} CHAR2{3600} CHAR1{3720} CHAR2{3721} CHAR1{3725} CHAR2{3726} [inside top level 1210] has the following parameter: STRING{1982} local has the following in-lined locals: FOUND{1983} PACKAGE{1987} ASSV[1170] has the following parameters: OBJ{1954} local ALIST{1955} local has the following in-lined locals: OBJ1{5063} OBJ2{5064} v{5065} v{5066} v{5067} LOOP[1082] reentrant has the following parameters: LIST1{1886} local LIST2{1887} local LISTS{1888} local APPEND[1069] has the following parameter: SS{1878} local has the following in-lined locals: SS{1881} v{1882} v{1883} SS{1891} v{1892} R{1893} K{1894} STRINGS{1898} N{1899} L{1903} K{1908} STRINGS{1909} SS{1912} v{1913} R{1914} K{1915} VECTORS{1919} L{1923} K{1928} VECTORS{1929} CDADR[1004] has the following parameter: PAIR{1826} local CAADR[1000] has the following parameter: PAIR{1822} local CDAR[997] has the following parameter: PAIR{1819} local CADR[996] has the following parameter: PAIR{1818} local CAAR[995] has the following parameter: PAIR{1817} local CDR[992] has the following parameter: PAIR{1812} local CAR[991] has the following parameter: PAIR{1811} local EQUAL?[980] reentrant has the following parameters: OBJ1{1799} local OBJ2{1800} local has the following in-lined locals: OBJ1{1792} OBJ2{1793} v{1794} v{1795} v{1796} v{1801} v{1802} v{1803} K{1806} v{1807} DYNAMIC-PARSE-FORMS[732] reentrant has the following parameter: FORMS{1783} local has the following in-lined locals: A{1474} B{1475} NEXT-INPUT{1784} C{5943} ARGS{5944} OP{5945} v{5946} OBJ1{7319} v{7321} OBJ1{7324} v{7326} GLOBAL-ENV[711] LIST-TYPE[663] has the following parameter: TV{1670} local has the following in-lined locals: L{1337} TVAR{1359} TCON{1360} TARGS{1361} NEW-TVAR{1415} INST-TVAR{1416} INST-DEF{1417} TV2{1671} PAIR{3324} TVAR{4655} TVAR-1{5522} TVAR-2{5523} OBJS{7029} TARGS{7031} L{7032} PAIR{7033} [inside TAG-AST-SHOW 644] reentrant has the following parameters: VD{1657} local E{1658} local has the following in-lined local: OBJS{3211} [inside TAG-AST-SHOW 642] reentrant has the following parameters: VD{1655} local E{1656} local has the following in-lined local: OBJS{3210} [inside TAG-AST-SHOW 640] reentrant has the following parameters: VD{1653} local E{1654} local has the following in-lined local: OBJS{3209} [inside TAG-AST-SHOW 638] reentrant has the following parameters: VD{1651} local E{1652} local has the following in-lined local: OBJS{3208} [inside TAG-AST-SHOW 635] reentrant has the following parameter: AST{1649} local has the following in-lined locals: BOOL-TVAR{1650} PAIR{3335} [inside TAG-AST-SHOW 632] reentrant has the following parameter: AST{1647} local has the following in-lined locals: BOOL-TVAR{1648} PAIR{3334} [inside TAG-AST-SHOW 629] reentrant has the following parameter: CC{1645} local has the following in-lined locals: DATA{1646} OBJ1{4738} OBJ2{4739} v{4740} v{4741} [inside TAG-AST-SHOW 626] reentrant has the following parameter: CC{1642} local has the following in-lined locals: BODY{1643} GUARD{1644} PAIR{3333} OBJ1{4733} OBJ2{4734} v{4735} v{4736} TAG-AST-SHOW[600] reentrant has the following parameter: AST{1628} local has the following in-lined locals: TVAR-REP{1616} PROG{1617} TVAR-REP{1624} PROG{1625} SYNTAX-ARG{1629} SYNTAX-TVAR{1630} SYNTAX-OP{1631} v{1632} v{1633} v{1634} v{1635} v{1636} v{1637} v{1638} PROC-TVAR{1639} TEST-TVAR{1640} ALT{1641} FUNC-TVAR{1659} PAIR{1820} LIST{2490} R{2491} K{2495} OBJS{3200} OBJS{3201} OBJS{3202} OBJS{3203} OBJS{3204} OBJS{3205} OBJS{3212} OBJS{3213} OBJS{3214} OBJS{3215} PAIR{3312} PAIR{3317} PAIR{3318} PAIR{3319} PAIR{3329} PAIR{3330} PAIR{3331} PAIR{3332} PAIR{3336} PAIR{3337} PAIR{3338} OBJ1{4723} OBJ2{4724} v{4725} OBJ1{4728} OBJ2{4729} v{4730} v{4731} OBJ1{4788} OBJ2{4789} v{4790} OBJ1{4793} OBJ2{4794} v{4795} v{4796} OBJ1{4798} OBJ2{4799} v{4800} v{4801} OBJ1{4803} OBJ2{4804} v{4805} v{4806} OBJ1{4808} OBJ2{4809} v{4810} v{4811} OBJ1{4813} OBJ2{4814} v{4815} v{4816} OBJ1{4818} OBJ2{4819} v{4820} v{4821} OBJ1{4823} OBJ2{4824} v{4825} v{4826} OBJ1{4828} OBJ2{4829} v{4830} v{4831} OBJ1{4833} OBJ2{4834} v{4835} v{4836} OBJ1{4838} OBJ2{4839} v{4840} v{4841} OBJ1{4843} OBJ2{4844} v{4845} v{4846} OBJ1{4848} OBJ2{4849} v{4850} v{4851} OBJ1{4853} OBJ2{4854} v{4855} v{4856} OBJ1{4858} OBJ2{4859} v{4860} v{4861} OBJ1{4863} OBJ2{4864} v{4865} v{4866} OBJ1{4868} OBJ2{4869} v{4870} v{4871} OBJ1{4873} OBJ2{4874} v{4875} v{4876} OBJ1{4878} OBJ2{4879} v{4880} v{4881} OBJ1{4883} OBJ2{4884} v{4885} v{4886} OBJ1{4888} OBJ2{4889} v{4890} v{4891} OBJ1{4893} OBJ2{4894} v{4895} v{4896} OBJ1{4898} OBJ2{4899} v{4900} v{4901} OBJ1{4903} OBJ2{4904} v{4905} v{4906} OBJ1{4908} OBJ2{4909} v{4910} v{4911} OBJ1{4913} OBJ2{4914} v{4915} v{4916} OBJ1{4918} OBJ2{4919} v{4920} v{4921} OBJ1{4923} OBJ2{4924} v{4925} v{4926} OBJ1{4928} OBJ2{4929} v{4930} v{4931} OBJ1{4933} OBJ2{4934} v{4935} v{4936} OBJ1{4938} OBJ2{4939} v{4940} v{4941} OBJ1{4943} OBJ2{4944} v{4945} v{4946} OBJ1{4948} OBJ2{4949} v{4950} v{4951} OBJ1{4953} OBJ2{4954} v{4955} v{4956} TVAR-REP{5547} PROG{5548} TVAR-REP{5551} PROG{5552} TVAR-REP{5555} PROG{5556} TVAR-REP{5559} PROG{5560} TVAR-REP{5563} PROG{5564} LIST{5916} K{5919} OBJ1{7400} OBJ2{7401} v{7402} OBJS{7405} OBJS{7406} OBJ1{7412} OBJ2{7413} v{7414} OBJS{7417} OBJS{7418} OBJ1{7419} OBJ2{7420} v{7421} OBJS{7424} OBJS{7425} OBJ1{7426} OBJ2{7427} v{7428} OBJS{7431} OBJS{7432} OBJ1{7433} OBJ2{7434} v{7435} OBJS{7438} OBJS{7439} UNTAG-SHOW[590] has the following parameters: TVAR-REP{1620} local PROG{1621} local has the following in-lined locals: OBJS{3206} OBJS{3207} OBJ1{4783} OBJ2{4784} v{4785} CONVERT-TVARS[531] reentrant has the following parameter: TVAR-LIST{1582} local has the following in-lined locals: TVAR-1{5524} TVAR-2{5525} OBJS{7311} TARGS{7313} TAIL[530] has the following parameter: L{1581} local [inside AST-GEN 510] has the following parameter: E{1561} local has the following in-lined locals: PAIR{3360} LHS{3503} RHS{3504} [inside AST-GEN 506] has parent parameter [inside AST-GEN 499] has the following parameter: BODY{1558} local has the following in-lined locals: PAIR{3347} LHS{3473} RHS{3474} [inside AST-GEN 505] has parent parameter [inside AST-GEN 500] has the following parameter: E{1557} local has the following in-lined local: PAIR{3346} [inside AST-GEN 504] reentrant has parent parameter [inside AST-GEN 500] has the following parameter: EXPRS{1556} local [inside AST-GEN 497] has the following parameter: E{1550} local has the following in-lined locals: PAIR{3349} LHS{3488} RHS{3489} [inside AST-GEN 496] has parent parameter [inside AST-GEN 494] has the following parameter: BODY{1549} local has the following in-lined locals: PAIR{3348} LHS{3485} RHS{3486} [inside AST-GEN 472] has parent parameter [inside AST-GEN 470] has the following parameter: T{1528} local has the following in-lined locals: LHS{3482} RHS{3483} AST-GEN[458] reentrant has the following parameters: SYNTAX-OP{1520} local ARG{1521} local has the following in-lined locals: TVAR-1{1373} TVAR-2{1374} ARG-TVAR{1376} RES-TVAR{1377} TV-FUNC{1392} TV2{1395} TV2{1398} TV3{1399} TV2{1402} TV3{1403} TV4{1404} TV2{1407} TV3{1408} TV4{1409} TV5{1410} TV{1411} TV-REP{1412} TV-DEF{1413} NTVAR{1522} v{1523} v{1524} v{1525} v{1529} v{1530} T2{1531} T1{1532} IN-ENV{1533} NEW-TVAR{1534} NEW-TVAR{1536} T-ALTERNATE{1538} T-CONSEQUENT{1539} T-TEST{1540} EXP-TVAR{1543} VAR-TVAR{1544} CASE-CLAUSES{1553} v{1559} v{1562} v{1563} BODY-TYPE{1564} DEF-EXPR-TYPES{1565} VAR-DEF-TVARS{1566} NAMED-VAR-TYPE{1568} BODY-TYPE{1569} DEF-EXPR-TYPES{1570} VAR-DEF-TVARS{1571} T-EXP{1574} T-VAR{1575} T-BODY{1577} T-FORMALS{1578} T-VAR{1579} TV{1661} TV{1662} TV{1663} TV{1664} TV{1665} TV{1666} TV{1667} TV{1668} TV{1669} TV1{1672} TV2{1673} TV1{1674} TV2{1675} TV1{1676} TV2{1677} TV1{1678} TV2{1679} TV1{1680} TV2{1681} TV1{1682} TV2{1683} TV1{1684} TV2{1685} TV1{1686} TV2{1687} TV1{1688} TV2{1689} TV3{1690} TV1{1691} TV2{1692} TV3{1693} TV1{1694} TV2{1695} TV3{1696} TV1{1697} TV2{1698} TV3{1699} TV1{1700} TV2{1701} TV3{1702} TV4{1703} TV1{1704} TV2{1705} TV3{1706} TV4{1707} TV1{1708} TV2{1709} TV3{1710} TV4{1711} TV1{1712} TV2{1713} TV3{1714} TV4{1715} TV1{1716} TV2{1717} TV3{1718} TV4{1719} TV1{1720} TV2{1721} TV3{1722} TV4{1723} TV1{1724} TV2{1725} TV3{1726} TV4{1727} TV1{1728} TV2{1729} TV3{1730} TV4{1731} TV1{1732} TV2{1733} TV3{1734} TV4{1735} TV5{1736} TV1{1737} TV2{1738} TV3{1739} TV4{1740} TV5{1741} TV{1742} TV{1743} TV{1744} TV{1745} TV{1746} TV{1747} TV{1748} TV{1749} TV1{1750} TV2{1751} TV1{1752} TV2{1753} TV1{1754} TV2{1755} TV{1756} TV{1757} TV{1758} TV{1759} TV{1760} TV{1761} TV{1762} TV{1763} TV{1764} TV{1765} TV1{1766} TV2{1767} TV1{1768} TV2{1769} TV1{1770} TV2{1771} OBJS{3217} OBJS{3218} OBJS{3219} OBJS{3220} OBJS{3221} OBJS{3222} OBJS{3223} OBJS{3224} OBJS{3225} OBJS{3226} OBJS{3227} OBJS{3228} OBJS{3229} OBJS{3230} OBJS{3231} OBJS{3232} OBJS{3233} OBJS{3234} OBJS{3235} OBJS{3236} OBJS{3237} OBJS{3238} OBJS{3239} OBJS{3240} OBJS{3241} OBJS{3242} OBJS{3243} OBJS{3244} OBJS{3245} OBJS{3246} OBJS{3247} OBJS{3248} OBJS{3249} OBJS{3250} OBJS{3251} OBJS{3252} OBJS{3253} OBJS{3255} OBJS{3256} OBJS{3257} OBJS{3258} OBJS{3259} OBJS{3260} OBJS{3261} OBJS{3262} OBJS{3263} OBJS{3264} OBJS{3265} OBJS{3266} OBJS{3267} OBJS{3268} OBJS{3269} OBJS{3270} OBJS{3271} OBJS{3272} OBJS{3273} OBJS{3274} OBJS{3281} OBJS{3282} PAIR{3325} PAIR{3326} PAIR{3327} PAIR{3350} PAIR{3351} PAIR{3352} PAIR{3353} PAIR{3354} PAIR{3355} PAIR{3356} PAIR{3357} PAIR{3358} PAIR{3359} PAIR{3361} PAIR{3362} PAIR{3363} PAIR{3364} PAIR{3365} PAIR{3367} PAIR{3368} PAIR{3369} PAIR{3370} PAIR{3371} PAIR{3372} PAIR{3373} PAIR{3374} PAIR{3375} PAIR{3376} OBJ1{3382} OBJ2{3383} ENV{3404} BINDING{3405} LHS{3479} RHS{3480} LHS{3491} RHS{3492} LHS{3494} RHS{3495} LHS{3497} RHS{3498} LHS{3500} RHS{3501} LHS{3506} RHS{3507} LHS{3509} RHS{3510} TVAR{4656} TARGS{4658} TARGS{4660} TARGS{4672} OBJ1{5058} v{5060} OBJ1{5068} OBJ2{5069} v{5070} v{5071} OBJ1{5073} OBJ2{5074} v{5075} v{5076} OBJ1{5078} OBJ2{5079} v{5080} v{5081} OBJ1{5083} OBJ2{5084} v{5085} v{5086} OBJ1{5088} OBJ2{5089} v{5090} v{5091} OBJ1{5093} OBJ2{5094} v{5095} v{5096} OBJ1{5098} OBJ2{5099} v{5100} v{5101} OBJ1{5103} OBJ2{5104} v{5105} v{5106} OBJ1{5108} OBJ2{5109} v{5110} v{5111} OBJ1{5113} OBJ2{5114} v{5115} v{5116} OBJ1{5118} OBJ2{5119} v{5120} v{5121} OBJ1{5123} OBJ2{5124} v{5125} v{5126} OBJ1{5128} OBJ2{5129} v{5130} v{5131} OBJ1{5133} OBJ2{5134} v{5135} v{5136} OBJ1{5138} OBJ2{5139} v{5140} v{5141} OBJ1{5143} OBJ2{5144} v{5145} v{5146} OBJ1{5148} OBJ2{5149} v{5150} v{5151} OBJ1{5153} OBJ2{5154} v{5155} v{5156} OBJ1{5158} OBJ2{5159} v{5160} v{5161} OBJ1{5163} OBJ2{5164} v{5165} v{5166} OBJ1{5168} OBJ2{5169} v{5170} v{5171} OBJ1{5173} OBJ2{5174} v{5175} v{5176} OBJ1{5178} OBJ2{5179} v{5180} v{5181} OBJ1{5183} OBJ2{5184} v{5185} v{5186} OBJ1{5188} OBJ2{5189} v{5190} v{5191} OBJ1{5193} OBJ2{5194} v{5195} v{5196} OBJ1{5198} OBJ2{5199} v{5200} v{5201} OBJ1{5203} OBJ2{5204} v{5205} v{5206} OBJ1{5208} OBJ2{5209} v{5210} v{5211} OBJ1{5213} OBJ2{5214} v{5215} v{5216} OBJ1{5218} OBJ2{5219} v{5220} v{5221} OBJ1{5223} OBJ2{5224} v{5225} v{5226} OBJ1{5228} OBJ2{5229} v{5230} v{5231} TV-FUNC{5233} TV-FUNC{5234} TV-FUNC{5235} ARG-TVAR{5264} RES-TVAR{5265} ARG-TVAR{5266} RES-TVAR{5267} ARG-TVAR{5268} RES-TVAR{5269} ARG-TVAR{5270} RES-TVAR{5271} ARG-TVAR{5272} RES-TVAR{5273} ARG-TVAR{5274} RES-TVAR{5275} ARG-TVAR{5276} RES-TVAR{5277} ARG-TVAR{5278} RES-TVAR{5279} ARG-TVAR{5280} RES-TVAR{5281} ARG-TVAR{5282} RES-TVAR{5283} ARG-TVAR{5284} RES-TVAR{5285} ARG-TVAR{5286} RES-TVAR{5287} ARG-TVAR{5288} RES-TVAR{5289} ARG-TVAR{5290} RES-TVAR{5291} ARG-TVAR{5292} RES-TVAR{5293} ARG-TVAR{5294} RES-TVAR{5295} ARG-TVAR{5296} RES-TVAR{5297} ARG-TVAR{5298} RES-TVAR{5299} ARG-TVAR{5300} RES-TVAR{5301} ARG-TVAR{5302} RES-TVAR{5303} ARG-TVAR{5304} RES-TVAR{5305} ARG-TVAR{5306} RES-TVAR{5307} ARG-TVAR{5308} RES-TVAR{5309} ARG-TVAR{5310} RES-TVAR{5311} ARG-TVAR{5312} RES-TVAR{5313} ARG-TVAR{5314} RES-TVAR{5315} ARG-TVAR{5316} RES-TVAR{5317} ARG-TVAR{5318} RES-TVAR{5319} ARG-TVAR{5320} RES-TVAR{5321} ARG-TVAR{5322} RES-TVAR{5323} ARG-TVAR{5324} RES-TVAR{5325} ARG-TVAR{5326} RES-TVAR{5327} ARG-TVAR{5328} RES-TVAR{5329} ARG-TVAR{5330} RES-TVAR{5331} ARG-TVAR{5332} RES-TVAR{5333} ARG-TVAR{5334} RES-TVAR{5335} ARG-TVAR{5336} RES-TVAR{5337} ARG-TVAR{5338} RES-TVAR{5339} ARG-TVAR{5340} RES-TVAR{5341} ARG-TVAR{5342} RES-TVAR{5343} ARG-TVAR{5344} RES-TVAR{5345} ARG-TVAR{5346} RES-TVAR{5347} ARG-TVAR{5348} RES-TVAR{5349} ARG-TVAR{5350} RES-TVAR{5351} ARG-TVAR{5352} RES-TVAR{5353} ARG-TVAR{5354} RES-TVAR{5355} ARG-TVAR{5356} RES-TVAR{5357} ARG-TVAR{5358} RES-TVAR{5359} ARG-TVAR{5360} RES-TVAR{5361} ARG-TVAR{5362} RES-TVAR{5363} ARG-TVAR{5364} RES-TVAR{5365} ARG-TVAR{5366} RES-TVAR{5367} ARG-TVAR{5368} RES-TVAR{5369} ARG-TVAR{5370} RES-TVAR{5371} ARG-TVAR{5372} RES-TVAR{5373} ARG-TVAR{5374} RES-TVAR{5375} ARG-TVAR{5376} RES-TVAR{5377} ARG-TVAR{5378} RES-TVAR{5379} ARG-TVAR{5380} RES-TVAR{5381} ARG-TVAR{5382} RES-TVAR{5383} ARG-TVAR{5384} RES-TVAR{5385} TVAR-1{5414} TVAR-2{5415} TVAR-1{5416} TVAR-2{5417} TVAR-1{5418} TVAR-2{5419} TVAR-1{5420} TVAR-2{5421} TVAR-1{5422} TVAR-2{5423} TVAR-1{5424} TVAR-2{5425} TVAR-1{5426} TVAR-2{5427} TVAR-1{5428} TVAR-2{5429} TVAR-1{5430} TVAR-2{5431} TVAR-1{5432} TVAR-2{5433} TVAR-1{5434} TVAR-2{5435} TVAR-1{5436} TVAR-2{5437} TVAR-1{5438} TVAR-2{5439} TVAR-1{5440} TVAR-2{5441} TVAR-1{5442} TVAR-2{5443} TVAR-1{5444} TVAR-2{5445} TVAR-1{5446} TVAR-2{5447} TVAR-1{5448} TVAR-2{5449} TVAR-1{5450} TVAR-2{5451} TVAR-1{5452} TVAR-2{5453} TVAR-1{5454} TVAR-2{5455} TVAR-1{5456} TVAR-2{5457} TVAR-1{5458} TVAR-2{5459} TVAR-1{5460} TVAR-2{5461} TVAR-1{5462} TVAR-2{5463} TVAR-1{5464} TVAR-2{5465} TVAR-1{5466} TVAR-2{5467} TVAR-1{5468} TVAR-2{5469} TVAR-1{5470} TVAR-2{5471} TVAR-1{5472} TVAR-2{5473} TVAR-1{5474} TVAR-2{5475} TVAR-1{5476} TVAR-2{5477} TVAR-1{5478} TVAR-2{5479} TVAR-1{5480} TVAR-2{5481} TVAR-1{5482} TVAR-2{5483} TVAR-1{5484} TVAR-2{5485} TVAR-1{5486} TVAR-2{5487} TVAR-1{5488} TVAR-2{5489} TVAR-1{5490} TVAR-2{5491} TVAR-1{5492} TVAR-2{5493} TVAR-1{5494} TVAR-2{5495} TVAR-1{5496} TVAR-2{5497} TVAR-1{5498} TVAR-2{5499} TVAR-1{5500} TVAR-2{5501} TVAR-1{5502} TVAR-2{5503} TVAR-1{5504} TVAR-2{5505} TVAR-1{5506} TVAR-2{5507} TVAR-1{5508} TVAR-2{5509} TVAR-1{5510} TVAR-2{5511} TVAR-1{5512} TVAR-2{5513} TVAR-1{5514} TVAR-2{5515} TVAR-1{5516} TVAR-2{5517} TVAR-1{5518} TVAR-2{5519} TVAR-1{5520} TVAR-2{5521} X{5569} L{5570} TV2{5668} TV2{5671} TV2{5674} TV2{5677} TV2{5680} TV2{5683} TV2{5686} TV2{5689} TV2{5692} TV2{5695} TV2{5698} TV2{5701} TV2{5704} TV2{5707} TV2{5710} TV3{5711} TV2{5714} TV3{5715} TV2{5718} TV3{5719} TV2{5722} TV3{5723} TV2{5726} TV3{5727} TV4{5728} TV2{5731} TV3{5732} TV4{5733} TV2{5736} TV3{5737} TV4{5738} TV2{5741} TV3{5742} TV4{5743} TV2{5746} TV3{5747} TV4{5748} TV2{5751} TV3{5752} TV4{5753} TV2{5756} TV3{5757} TV4{5758} TV2{5761} TV3{5762} TV4{5763} TV2{5766} TV3{5767} TV4{5768} TV5{5769} L{6958} PAIR{6959} TARGS{6961} OBJS{6967} TARGS{6969} OBJS{6975} TARGS{6977} OBJS{6983} TARGS{6985} OBJS{6991} TARGS{6993} OBJS{6999} TARGS{7001} OBJS{7007} TARGS{7009} OBJS{7015} TARGS{7017} OBJS{7023} TARGS{7025} OBJS{7026} TARGS{7028} TARGS{7035} OBJS{7041} TARGS{7043} OBJS{7049} TARGS{7051} OBJS{7057} TARGS{7059} OBJS{7065} TARGS{7067} OBJS{7073} TARGS{7075} OBJS{7081} TARGS{7083} OBJS{7089} TARGS{7091} OBJS{7097} TARGS{7099} OBJS{7105} TARGS{7107} OBJS{7113} TARGS{7115} OBJS{7121} TARGS{7123} OBJS{7129} TARGS{7131} OBJS{7137} TARGS{7139} OBJS{7145} TARGS{7147} OBJS{7153} TARGS{7155} OBJS{7161} TARGS{7163} OBJS{7169} TARGS{7171} TV-FUNC{7172} TARGS{7174} TV-FUNC{7175} TARGS{7177} TV-FUNC{7178} TARGS{7180} TV-FUNC{7181} TARGS{7183} TV-FUNC{7184} TARGS{7186} TV-FUNC{7187} TARGS{7189} TV-FUNC{7190} TARGS{7192} TV-FUNC{7193} TARGS{7195} TV-FUNC{7196} TARGS{7198} TV-FUNC{7199} TARGS{7201} TV-FUNC{7202} TARGS{7204} TV-FUNC{7205} TARGS{7207} TV-FUNC{7208} TARGS{7210} TV-FUNC{7211} TARGS{7213} TV2{7216} TV-FUNC{7217} TARGS{7219} TV2{7222} TV-FUNC{7223} TARGS{7225} TV2{7228} TV-FUNC{7229} TARGS{7231} TV2{7234} TV-FUNC{7235} TARGS{7237} TV2{7240} TV3{7241} TV-FUNC{7242} TARGS{7244} TV2{7247} TV3{7248} TV-FUNC{7249} TARGS{7251} TV2{7254} TV3{7255} TV-FUNC{7256} TARGS{7258} TV2{7261} TV3{7262} TV-FUNC{7263} TARGS{7265} TV2{7268} TV3{7269} TV-FUNC{7270} TARGS{7272} TV2{7275} TV3{7276} TV-FUNC{7277} TARGS{7279} TV2{7282} TV3{7283} TV-FUNC{7284} TARGS{7286} TV2{7289} TV3{7290} TV-FUNC{7291} TARGS{7293} TV2{7296} TV3{7297} TV4{7298} TV-FUNC{7299} TARGS{7301} OBJS{7302} TARGS{7304} OBJS{7305} TARGS{7307} OBJS{7308} TARGS{7310} TARGS{7446} OBJS{7447} TARGS{7449} OBJS{7455} TARGS{7457} OBJS{7458} TARGS{7460} OBJS{7466} TARGS{7468} OBJS{7469} TARGS{7471} OBJS{7477} TARGS{7479} OBJS{7480} TARGS{7482} OBJS{7488} TARGS{7490} OBJS{7491} TARGS{7493} OBJS{7499} TARGS{7501} OBJS{7502} TARGS{7504} OBJS{7510} TARGS{7512} OBJS{7513} TARGS{7515} OBJS{7521} TARGS{7523} OBJS{7524} TARGS{7526} OBJS{7532} TARGS{7534} OBJS{7535} TARGS{7537} OBJS{7538} TARGS{7540} OBJS{7546} TARGS{7548} OBJS{7549} TARGS{7551} OBJS{7552} TARGS{7554} OBJS{7560} TARGS{7562} OBJS{7563} TARGS{7565} OBJS{7566} TARGS{7568} OBJS{7574} TARGS{7576} OBJS{7582} TARGS{7584} OBJS{7590} TARGS{7592} OBJS{7598} TARGS{7600} OBJS{7606} TARGS{7608} OBJS{7614} TARGS{7616} OBJS{7622} TARGS{7624} OBJS{7630} TARGS{7632} TV-FUNC{7633} TARGS{7635} TV-FUNC{7636} TARGS{7638} TV-FUNC{7639} TARGS{7641} TV-FUNC{7642} TARGS{7644} TV2{7647} TV-FUNC{7648} TARGS{7650} TV2{7653} TV-FUNC{7654} TARGS{7656} TV2{7659} TV-FUNC{7660} TARGS{7662} TV2{7665} TV-FUNC{7666} TARGS{7668} TV2{7671} TV-FUNC{7672} TARGS{7674} TV2{7677} TV-FUNC{7678} TARGS{7680} TV2{7683} TV-FUNC{7684} TARGS{7686} TV2{7689} TV-FUNC{7690} TARGS{7692} TV2{7695} TV3{7696} TV-FUNC{7697} TARGS{7699} OBJS{7700} TARGS{7702} OBJS{7703} TARGS{7705} OBJS{7706} TARGS{7708} OBJS{7709} TARGS{7711} OBJS{7717} TARGS{7719} OBJS{7720} TARGS{7722} OBJS{7723} TARGS{7725} OBJS{7731} TARGS{7733} OBJS{7734} TARGS{7736} OBJS{7737} TARGS{7739} OBJS{7745} TARGS{7747} OBJS{7748} TARGS{7750} OBJS{7751} TARGS{7753} OBJS{7759} TARGS{7761} OBJS{7762} TARGS{7764} OBJS{7765} TARGS{7767} OBJS{7773} TARGS{7775} TV-FUNC{7776} TARGS{7778} TV-FUNC{7779} TARGS{7781} TV-FUNC{7782} TARGS{7784} TV-FUNC{7785} TARGS{7787} TV-FUNC{7788} TARGS{7790} TV-FUNC{7791} TARGS{7793} TV-FUNC{7794} TARGS{7796} TV-FUNC{7797} TARGS{7799} TV2{7802} TV-FUNC{7803} TARGS{7805} OBJS{7806} TARGS{7808} OBJS{7809} TARGS{7811} OBJS{7812} TARGS{7814} OBJS{7820} TARGS{7822} OBJS{7823} TARGS{7825} OBJS{7826} TARGS{7828} OBJS{7829} TARGS{7831} OBJS{7837} TARGS{7839} OBJS{7840} TARGS{7842} OBJS{7843} TARGS{7845} OBJS{7846} TARGS{7848} OBJS{7854} TARGS{7856} OBJS{7857} TARGS{7859} OBJS{7860} TARGS{7862} OBJS{7863} TARGS{7865} OBJS{7871} TARGS{7873} OBJS{7874} TARGS{7876} OBJS{7877} TARGS{7879} OBJS{7880} TARGS{7882} OBJS{7888} TARGS{7890} OBJS{7891} TARGS{7893} OBJS{7894} TARGS{7896} OBJS{7897} TARGS{7899} OBJS{7905} TARGS{7907} OBJS{7908} TARGS{7910} OBJS{7911} TARGS{7913} OBJS{7914} TARGS{7916} OBJS{7922} TARGS{7924} OBJS{7925} TARGS{7927} OBJS{7928} TARGS{7930} OBJS{7931} TARGS{7933} OBJS{7939} TARGS{7941} TV-FUNC{7942} TARGS{7944} OBJS{7945} TARGS{7947} OBJS{7948} TARGS{7950} OBJS{7951} TARGS{7953} OBJS{7954} TARGS{7956} OBJS{7962} TARGS{7964} DATUM-SHOW[440] reentrant has the following parameter: AST{1503} local has the following in-lined locals: v{1504} v{1505} v{1506} v{1507} v{1508} v{1509} PAIR{3313} PAIR{3314} PAIR{3315} PAIR{3316} OBJ1{4743} OBJ2{4744} v{4745} v{4746} OBJ1{4748} OBJ2{4749} v{4750} v{4751} OBJ1{4753} OBJ2{4754} v{4755} v{4756} OBJ1{4758} OBJ2{4759} v{4760} v{4761} OBJ1{4763} OBJ2{4764} v{4765} v{4766} OBJ1{4768} OBJ2{4769} v{4770} v{4771} OBJ1{4773} OBJ2{4774} v{4775} v{4776} OBJ1{4778} OBJ2{4779} v{4780} v{4781} LIST{5926} R{5927} K{5931} LIST{7407} K{7410} DYNAMIC-PARSE-ACTION-BEGIN-EXPRESSION[381] reentrant has the following parameter: BODY{1454} local DYNAMIC-PARSE-ACTION-EMPTY[379] reentrant DYNAMIC-PARSE-ACTION-CONDITIONAL[378] reentrant has the following parameters: TEST{1449} local THEN-BRANCH{1450} local ELSE-BRANCH{1451} local DYNAMIC-PARSE-ACTION-IDENTIFIER[373] reentrant has the following parameter: E{1442} local DYNAMIC-PARSE-ACTION-VARIABLE[372] reentrant has the following parameter: E{1441} local [inside NORMALIZE! 360] reentrant has the following parameter: C{1429} local has the following in-lined locals: C{1421} C{1422} ADD-CONSTR![354] has the following parameters: LHS{1424} local RHS{1425} local INIT-GLOBAL-CONSTRAINTS![353] GEN-CONSTR[349] has the following parameters: A{1419} local B{1420} local EQUIV-WITH-DYNAMIC![315] reentrant has the following parameter: TV{1387} local has the following in-lined locals: TVAR{1358} TV-REP{1389} TV-DEF{1390} L{3386} X{3387} L{3512} OBJ1{4698} OBJ2{4699} v{4700} PAIR{7444} EQUIV![299] reentrant has the following parameters: TV1{1378} local TV2{1379} local has the following in-lined locals: L{1352} X{1353} TV1-REP{1381} TV2-REP{1382} TV1-DEF{1383} TV2-DEF{1384} L{3384} X{3385} TVAR{4653} TVAR{4654} OBJ1{4703} OBJ2{4704} v{4705} v{4706} v{4707} OBJ1{4708} OBJ2{4709} v{4710} OBJ1{4713} OBJ2{4714} v{4715} OBJ1{4718} OBJ2{4719} v{4720} v{4721} v{4722} L{7440} PAIR{7441} L{7442} PAIR{7443} ARRAY[297] has the following parameter: TVAR{1375} local has the following in-lined locals: TARGS{1356} OBJS{3254} SYMBOL[295] CHARSEQ[294] NUMBER[293] CHARACTER[292] BOOLEAN[291] NULL[290] has the following in-lined locals: TVAR-1{5526} TVAR-2{5527} OBJS{6848} TARGS{6850} TYPE-ARGS[279] has the following parameter: L{1365} local TYPE-CON[278] has the following parameter: L{1364} local GEN-TVAR[271] GEN-ID[269] LINK![260] has the following parameters: ELEM-1{1344} local ELEM-2{1345} local has the following in-lined locals: RANK-2{1346} RANK-1{1347} PAIR{3328} FIND![256] reentrant has the following parameter: ELEM{1340} local has the following in-lined locals: P-ELEM{1341} REP-ELEM{1342} GEN-ELEMENT[253] has the following parameter: INFO{1336} local LIST-OF-LIST-OF-2S?[245] has the following parameter: E{1331} local LIST-OF-2?[243] has the following parameter: L{1329} local has the following in-lined local: PAIR{3323} LIST-OF-1?[242] has the following parameter: L{1328} local DYNAMIC-PARSE-DEFINE[230] reentrant has the following parameters: ENV{1317} local ARGS{1318} local has the following in-lined locals: ENV{1141} EXT-ENV{1142} ENV{1196} E{1197} ASSOC-VAR-DEF{1198} EXP-OR-BODY{1319} PATTERN{1320} FUNCTION-NAME{1321} FUNCTION-ARG-NAMES{1322} ENV-AST{1323} FORMALS-ENV{1324} FORMALS-AST{1325} VARIABLE{1469} EXPR{1470} VARIABLE{1471} FORMALS{1472} BODY{1473} OBJ{3198} LIST{3199} X{5567} L{5568} ENV{5772} E{5773} ASSOC-VAR-DEF{5774} OBJ{7354} LIST{7355} X{7356} L{7357} PAIR{7358} [inside DYNAMIC-PARSE-COMMAND* 229] reentrant has parent parameter DYNAMIC-PARSE-COMMAND*[228] has the following parameter: COMMAND{1316} local has the following in-lined locals: ENV{1309} C{1310} ARGS{1311} OP{1312} v{1313} OBJ1{5048} v{5050} OBJ1{5053} v{5055} DYNAMIC-PARSE-COMMAND*[228] reentrant has closure has the following parameters: ENV{1314} slotted COMMANDS{1315} local has the following in-lined locals: X{5885} v{5886} SLOW{5889} FAST{5890} v{5891} FAST{5892} v{5893} DYNAMIC-PARSE-PARALLEL-BINDINGS[179] reentrant has the following parameters: ENV{1264} local BINDINGS{1265} local has the following in-lined locals: ENV-FORMALS-ASG{1266} NENV{1267} BRESULTS{1268} EXPRS-ASG{1269} ENV{5904} EXPRS{5905} RESULTS{5908} ES{5909} S{7371} LIST{7372} LIST{7375} R{7376} [inside DYNAMIC-PARSE-CASE 155] reentrant has parent parameter DYNAMIC-PARSE-CASE[154] has the following parameter: E{1241} local has the following in-lined locals: ENV{1242} E{1243} OBJS{3216} OBJ1{4963} v{4965} X{5849} v{5850} SLOW{5853} FAST{5854} v{5855} FAST{5856} v{5857} [inside DYNAMIC-PARSE-COND 150] reentrant has parent parameter DYNAMIC-PARSE-COND[149] has the following parameter: E{1232} local has the following in-lined locals: ENV{1233} E{1234} OBJ1{4958} v{4960} DEF-VAR*[130] reentrant has the following parameters: F-ENV{1217} local BODY{1218} local has the following in-lined locals: N-ENV{1219} F-ENV{1220} CLAUSE{1221} v{1222} PATTERN{1223} E{1438} OBJ1{1809} OBJ2{1810} PAIR{3345} OBJ1{3378} OBJ2{3379} ENV{3398} BINDING{3399} ENV{3400} BINDING{3401} OBJ1{4968} v{4970} OBJ1{4973} v{4975} E{5770} DYNAMIC-PARSE-BODY[127] reentrant has the following parameters: ENV{1211} local BODY{1212} local DYNAMIC-PARSE-EXPRESSIONS[107] reentrant has the following parameters: ENV{1190} local EXPRS{1191} local has the following in-lined locals: FST-EXPR{1192} REM-EXPRS{1193} FST-RES{1194} REM-RES{1195} A1{1443} A2{1444} DYNAMIC-PARSE-EXPRESSION[78] reentrant has the following parameters: ENV{1179} local E{1180} local has the following in-lined locals: ARGS{1181} OP{1182} v{1183} ENV{1184} EXPRS{1185} RESULTS{1188} ES{1189} ENV{1199} OP{1200} ARGS{1201} ARGS{1203} ENV{1204} ARGS{1205} FORMALS{1206} BODY{1207} NENV-FRESULTS{1208} NENV{1209} FRESULTS{1210} ENV{1224} ARGS{1225} ENV{1226} ARGS{1227} ENV{1228} ARGS{1229} ARGS{1231} ENV{1235} ARGS{1236} ENV{1237} ARGS{1238} ARGS{1240} ENV{1244} ARGS{1245} ENV{1246} ARGS{1247} BINDINGS{1248} BODY{1249} ENV-AST{1250} NENV{1251} BRESULTS{1252} ENV{1253} ARGS{1254} VARIABLE{1255} BINDINGS{1256} BODY{1257} VBIND-VRES{1258} VBIND{1259} VRES{1260} ENV-AST{1261} NENV{1262} BRESULTS{1263} ENV{1270} ARGS{1271} BINDINGS{1272} BODY{1273} ENV-AST{1274} NENV{1275} BRESULTS{1276} ENV{1277} BINDINGS{1278} ENV-VDEFS-EASGS{1281} F-ENV{1282} C-ENV{1283} VAR-DEFS{1284} EXPR-ASGS{1285} BINDS{1286} FST-BIND{1287} FBINDING-BRES{1288} FBIND{1289} BRES{1290} NEW-EXPR-ASG{1291} ENV{1292} ARGS{1293} BINDINGS{1294} BODY{1295} ENV-AST{1296} NENV{1297} BRESULTS{1298} ENV{1299} BINDINGS{1300} ENV-FORMALS-ASG{1301} FORMALS-ENV{1302} FORMALS-RES{1303} EXPRS-ASG{1304} L{1330} OP{1445} ARGS{1446} FORMALS{1447} BODY{1448} LHS{1452} RHS{1453} CLAUSES{1455} ARGS{1456} ARGS{1457} KEY{1458} CLAUSES{1459} BINDINGS{1460} BODY{1461} VARIABLE{1462} BINDINGS{1463} BODY{1464} BINDINGS{1465} BODY{1466} BINDINGS{1467} BODY{1468} PAIR{1824} PAIR{1828} X{1846} SLOW{1850} FAST{1851} v{1852} FAST{1853} v{1854} LIST{1856} K{1859} S{1861} S{1935} PAIR{3320} PAIR{3321} PAIR{3322} PAIR{3339} PAIR{3340} PAIR{3341} PAIR{3342} PAIR{3343} PAIR{3344} ENV{3392} BINDING{3393} ENV{3394} BINDING{3395} ENV{3396} BINDING{3397} LIST{4623} LIST{4626} R{4627} OBJ1{4978} v{4980} OBJ1{4983} v{4985} OBJ1{4988} v{4990} OBJ1{4993} v{4995} OBJ1{4998} v{5000} OBJ1{5003} v{5005} OBJ1{5008} v{5010} OBJ1{5013} v{5015} OBJ1{5018} v{5020} OBJ1{5023} v{5025} OBJ1{5028} v{5030} OBJ1{5033} v{5035} OBJ1{5038} v{5040} OBJ1{5043} v{5045} ENV{5775} E{5776} ASSOC-VAR-DEF{5777} ENV{5778} E{5779} ASSOC-VAR-DEF{5780} E{5785} DYNAMIC-PARSE-ACTION-RESULT{5786} F-ENV{5787} E{5788} DYNAMIC-PARSE-ACTION-RESULT{5789} ENV{5837} EXT-ENV{5838} ENV{5839} EXT-ENV{5840} ENV{5841} EXT-ENV{5842} ENV{5843} EXT-ENV{5844} ENV{5845} EXT-ENV{5846} ENV{5847} EXT-ENV{5848} X{5858} v{5859} SLOW{5862} FAST{5863} v{5864} FAST{5865} v{5866} X{5867} v{5868} SLOW{5871} FAST{5872} v{5873} FAST{5874} v{5875} X{5876} v{5877} SLOW{5880} FAST{5881} v{5882} FAST{5883} v{5884} S{5894} S{5895} ENV{5898} EXPRS{5899} RESULTS{5902} ES{5903} ENV{5910} EXPRS{5911} RESULTS{5914} ES{5915} OBJ{7314} LIST{7315} X{7316} L{7317} PAIR{7318} S{7341} LIST{7342} LIST{7345} R{7346} OBJ{7359} LIST{7360} X{7361} L{7362} E{7363} OBJ1{7364} OBJ2{7365} LIST{7366} LIST{7369} R{7370} OBJ{7377} LIST{7378} X{7379} E{7381} OBJ1{7382} OBJ2{7383} S{7384} LIST{7385} LIST{7388} R{7389} LIST{7390} LIST{7393} R{7394} OBJ{7395} LIST{7396} X{7397} L{7398} PAIR{7399} PFS[59] reentrant has the following parameters: F-ENV{1165} local FORMALS{1166} local has the following in-lined locals: ENV{1139} BINDING{1140} X{1143} L{1144} F-ENV{1148} E{1149} DYNAMIC-PARSE-ACTION-RESULT{1150} FST-FORMAL{1167} REM-FORMALS{1168} BIND-RES{1169} BIND{1170} RES{1171} NF-ENV{1172} RENV-RES*{1173} RENV{1174} RES*{1175} BIND-RES{1176} BIND{1177} RES{1178} D1{1439} D2{1440} OBJ{1946} LIST{1947} OBJ1{3380} OBJ2{3381} ENV{3388} BINDING{3389} BINDING{3391} E{5771} F-ENV{5781} E{5782} DYNAMIC-PARSE-ACTION-RESULT{5783} OBJ{7347} LIST{7348} X{7349} L{7350} E{7351} OBJ1{7352} OBJ2{7353} DYNAMIC-PARSE-FORMALS[56] reentrant has the following parameter: FORMALS{1162} local DYNAMIC-PARSE-FORMAL*[42] reentrant has the following parameter: FORMALS{1151} local has the following in-lined locals: RENV-RRES{1154} F-ENV{1155} RESULTS{1156} FORMALS{1157} FST-FORMAL{1158} BINDING-RESULT{1159} BINDING{1160} VAR-RESULT{1161} ENV{3402} BINDING{3403} F-ENV{5790} E{5791} DYNAMIC-PARSE-ACTION-RESULT{5792} S{5896} OBJ{7329} LIST{7330} X{7331} L{7332} E{7333} OBJ1{7334} OBJ2{7335} LIST{7336} LIST{7339} R{7340} DYNAMIC-PARSE-DATUM[27] reentrant has the following parameter: E{1147} local has the following in-lined locals: E{1430} E{1431} E{1432} E{1433} E{1434} E{1435} E1{1436} E2{1437} [inside top level 0] has the following in-lined locals: *FORMS*{651} COUNT{1120} COUNT{1126} I{1131} RESULT{1132} REST{1133} N{1134} COUNTERS{1135} CONSTRAINTS{1428} P{1660} PORT{1778} FORMS{1781} FORM{1782} FOO{1786} OBJS{1855} STRING{2608} INPUT-PORT{2610} R{2611} OBJ{3185} OBJS{3275} OBJS{3276} OBJS{3277} OBJS{3278} OBJS{3279} OBJS{3280} OBJS{3283} OBJS{3284} OBJS{3285} OBJS{3286} OBJS{3287} OBJS{3288} OBJS{3289} OBJS{3290} OBJS{3291} OBJS{3292} OBJS{3293} OBJS{3294} OBJS{3295} OBJS{3296} OBJS{3297} OBJS{3298} OBJS{3299} OBJS{3300} ARG-TVAR{5386} RES-TVAR{5387} ARG-TVAR{5388} RES-TVAR{5389} ARG-TVAR{5390} RES-TVAR{5391} ARG-TVAR{5392} RES-TVAR{5393} ARG-TVAR{5394} RES-TVAR{5395} ARG-TVAR{5396} RES-TVAR{5397} ARG-TVAR{5398} RES-TVAR{5399} ARG-TVAR{5400} RES-TVAR{5401} ARG-TVAR{5402} RES-TVAR{5403} ARG-TVAR{5404} RES-TVAR{5405} ARG-TVAR{5406} RES-TVAR{5407} ARG-TVAR{5408} RES-TVAR{5409} ARG-TVAR{5410} RES-TVAR{5411} ARG-TVAR{5412} RES-TVAR{5413} S{5897} OBJ{5947} LIST{6706} LIST{6709} R{6710} OBJS{6851} TARGS{6853} OBJS{6859} TARGS{6861} OBJS{6867} TARGS{6869} OBJS{6875} TARGS{6877} OBJS{6883} TARGS{6885} OBJS{6891} TARGS{6893} OBJS{6899} TARGS{6901} OBJS{6907} TARGS{6909} OBJS{6915} TARGS{6917} OBJS{6923} TARGS{6925} OBJS{6931} TARGS{6933} OBJS{6939} TARGS{6941} OBJS{6947} TARGS{6949} OBJS{6950} TARGS{6952} The following non-trivial in-line native procedures will be generated: [clone GEN-TYPE[272] 6988] has the following parameter: TARGS{7964} local [clone LIST[1033] 6987] has the following parameter: OBJS{7962} local [clone GEN-TYPE[272] 6986] has the following parameter: TARGS{7961} local [clone LIST[1033] 6985] has the following parameter: OBJS{7959} local [clone PAIR[296] 6984] has the following parameters: TVAR-1{7957} local TVAR-2{7958} local [clone GEN-TYPE[272] 6983] has the following parameter: TARGS{7956} local [clone LIST[1033] 6982] has the following parameter: OBJS{7954} local [clone GEN-TYPE[272] 6981] has the following parameter: TARGS{7953} local [clone LIST[1033] 6980] has the following parameter: OBJS{7951} local [clone GEN-TYPE[272] 6979] has the following parameter: TARGS{7950} local [clone LIST[1033] 6978] has the following parameter: OBJS{7948} local [clone GEN-TYPE[272] 6977] has the following parameter: TARGS{7947} local [clone LIST[1033] 6976] has the following parameter: OBJS{7945} local [clone GEN-TYPE[272] 6975] has the following parameter: TARGS{7944} local [clone FORALL[322] 6974] has the following parameter: TV-FUNC{7942} local [clone GEN-TYPE[272] 6973] has the following parameter: TARGS{7941} local [clone LIST[1033] 6972] has the following parameter: OBJS{7939} local [clone GEN-TYPE[272] 6971] has the following parameter: TARGS{7938} local [clone LIST[1033] 6970] has the following parameter: OBJS{7936} local [clone PAIR[296] 6969] has the following parameters: TVAR-1{7934} local TVAR-2{7935} local [clone GEN-TYPE[272] 6968] has the following parameter: TARGS{7933} local [clone LIST[1033] 6967] has the following parameter: OBJS{7931} local [clone GEN-TYPE[272] 6966] has the following parameter: TARGS{7930} local [clone LIST[1033] 6965] has the following parameter: OBJS{7928} local [clone GEN-TYPE[272] 6964] has the following parameter: TARGS{7927} local [clone LIST[1033] 6963] has the following parameter: OBJS{7925} local [clone GEN-TYPE[272] 6962] has the following parameter: TARGS{7924} local [clone LIST[1033] 6961] has the following parameter: OBJS{7922} local [clone GEN-TYPE[272] 6960] has the following parameter: TARGS{7921} local [clone LIST[1033] 6959] has the following parameter: OBJS{7919} local [clone PAIR[296] 6958] has the following parameters: TVAR-1{7917} local TVAR-2{7918} local [clone GEN-TYPE[272] 6957] has the following parameter: TARGS{7916} local [clone LIST[1033] 6956] has the following parameter: OBJS{7914} local [clone GEN-TYPE[272] 6955] has the following parameter: TARGS{7913} local [clone LIST[1033] 6954] has the following parameter: OBJS{7911} local [clone GEN-TYPE[272] 6953] has the following parameter: TARGS{7910} local [clone LIST[1033] 6952] has the following parameter: OBJS{7908} local [clone GEN-TYPE[272] 6951] has the following parameter: TARGS{7907} local [clone LIST[1033] 6950] has the following parameter: OBJS{7905} local [clone GEN-TYPE[272] 6949] has the following parameter: TARGS{7904} local [clone LIST[1033] 6948] has the following parameter: OBJS{7902} local [clone PAIR[296] 6947] has the following parameters: TVAR-1{7900} local TVAR-2{7901} local [clone GEN-TYPE[272] 6946] has the following parameter: TARGS{7899} local [clone LIST[1033] 6945] has the following parameter: OBJS{7897} local [clone GEN-TYPE[272] 6944] has the following parameter: TARGS{7896} local [clone LIST[1033] 6943] has the following parameter: OBJS{7894} local [clone GEN-TYPE[272] 6942] has the following parameter: TARGS{7893} local [clone LIST[1033] 6941] has the following parameter: OBJS{7891} local [clone GEN-TYPE[272] 6940] has the following parameter: TARGS{7890} local [clone LIST[1033] 6939] has the following parameter: OBJS{7888} local [clone GEN-TYPE[272] 6938] has the following parameter: TARGS{7887} local [clone LIST[1033] 6937] has the following parameter: OBJS{7885} local [clone PAIR[296] 6936] has the following parameters: TVAR-1{7883} local TVAR-2{7884} local [clone GEN-TYPE[272] 6935] has the following parameter: TARGS{7882} local [clone LIST[1033] 6934] has the following parameter: OBJS{7880} local [clone GEN-TYPE[272] 6933] has the following parameter: TARGS{7879} local [clone LIST[1033] 6932] has the following parameter: OBJS{7877} local [clone GEN-TYPE[272] 6931] has the following parameter: TARGS{7876} local [clone LIST[1033] 6930] has the following parameter: OBJS{7874} local [clone GEN-TYPE[272] 6929] has the following parameter: TARGS{7873} local [clone LIST[1033] 6928] has the following parameter: OBJS{7871} local [clone GEN-TYPE[272] 6927] has the following parameter: TARGS{7870} local [clone LIST[1033] 6926] has the following parameter: OBJS{7868} local [clone PAIR[296] 6925] has the following parameters: TVAR-1{7866} local TVAR-2{7867} local [clone GEN-TYPE[272] 6924] has the following parameter: TARGS{7865} local [clone LIST[1033] 6923] has the following parameter: OBJS{7863} local [clone GEN-TYPE[272] 6922] has the following parameter: TARGS{7862} local [clone LIST[1033] 6921] has the following parameter: OBJS{7860} local [clone GEN-TYPE[272] 6920] has the following parameter: TARGS{7859} local [clone LIST[1033] 6919] has the following parameter: OBJS{7857} local [clone GEN-TYPE[272] 6918] has the following parameter: TARGS{7856} local [clone LIST[1033] 6917] has the following parameter: OBJS{7854} local [clone GEN-TYPE[272] 6916] has the following parameter: TARGS{7853} local [clone LIST[1033] 6915] has the following parameter: OBJS{7851} local [clone PAIR[296] 6914] has the following parameters: TVAR-1{7849} local TVAR-2{7850} local [clone GEN-TYPE[272] 6913] has the following parameter: TARGS{7848} local [clone LIST[1033] 6912] has the following parameter: OBJS{7846} local [clone GEN-TYPE[272] 6911] has the following parameter: TARGS{7845} local [clone LIST[1033] 6910] has the following parameter: OBJS{7843} local [clone GEN-TYPE[272] 6909] has the following parameter: TARGS{7842} local [clone LIST[1033] 6908] has the following parameter: OBJS{7840} local [clone GEN-TYPE[272] 6907] has the following parameter: TARGS{7839} local [clone LIST[1033] 6906] has the following parameter: OBJS{7837} local [clone GEN-TYPE[272] 6905] has the following parameter: TARGS{7836} local [clone LIST[1033] 6904] has the following parameter: OBJS{7834} local [clone PAIR[296] 6903] has the following parameters: TVAR-1{7832} local TVAR-2{7833} local [clone GEN-TYPE[272] 6902] has the following parameter: TARGS{7831} local [clone LIST[1033] 6901] has the following parameter: OBJS{7829} local [clone GEN-TYPE[272] 6900] has the following parameter: TARGS{7828} local [clone LIST[1033] 6899] has the following parameter: OBJS{7826} local [clone GEN-TYPE[272] 6898] has the following parameter: TARGS{7825} local [clone LIST[1033] 6897] has the following parameter: OBJS{7823} local [clone GEN-TYPE[272] 6896] has the following parameter: TARGS{7822} local [clone LIST[1033] 6895] has the following parameter: OBJS{7820} local [clone GEN-TYPE[272] 6894] has the following parameter: TARGS{7819} local [clone LIST[1033] 6893] has the following parameter: OBJS{7817} local [clone PAIR[296] 6892] has the following parameters: TVAR-1{7815} local TVAR-2{7816} local [clone GEN-TYPE[272] 6891] has the following parameter: TARGS{7814} local [clone LIST[1033] 6890] has the following parameter: OBJS{7812} local [clone GEN-TYPE[272] 6889] has the following parameter: TARGS{7811} local [clone LIST[1033] 6888] has the following parameter: OBJS{7809} local [clone GEN-TYPE[272] 6887] has the following parameter: TARGS{7808} local [clone LIST[1033] 6886] has the following parameter: OBJS{7806} local [clone GEN-TYPE[272] 6885] has the following parameter: TARGS{7805} local [clone FORALL[322] 6884] has the following parameter: TV-FUNC{7803} local [clone [inside FORALL2 325] 6883] has parent parameter [clone [inside FORALL2 324] 6882] has the following parameter: TV2{7802} local [clone [inside FORALL2 324] 6882] has parent parameter [clone FORALL2[323] 6881] has closure has parent slot [clone FORALL2[323] 6881] has the following parameter: TV1{7801} slotted [clone FORALL2[323] 6881] has closure has the following parameter: TV-FUNC2{7800} slotted [clone GEN-TYPE[272] 6880] has the following parameter: TARGS{7799} local [clone FORALL[322] 6879] has the following parameter: TV-FUNC{7797} local [clone GEN-TYPE[272] 6878] has the following parameter: TARGS{7796} local [clone FORALL[322] 6877] has the following parameter: TV-FUNC{7794} local [clone GEN-TYPE[272] 6876] has the following parameter: TARGS{7793} local [clone FORALL[322] 6875] has the following parameter: TV-FUNC{7791} local [clone GEN-TYPE[272] 6874] has the following parameter: TARGS{7790} local [clone FORALL[322] 6873] has the following parameter: TV-FUNC{7788} local [clone GEN-TYPE[272] 6872] has the following parameter: TARGS{7787} local [clone FORALL[322] 6871] has the following parameter: TV-FUNC{7785} local [clone GEN-TYPE[272] 6870] has the following parameter: TARGS{7784} local [clone FORALL[322] 6869] has the following parameter: TV-FUNC{7782} local [clone GEN-TYPE[272] 6868] has the following parameter: TARGS{7781} local [clone FORALL[322] 6867] has the following parameter: TV-FUNC{7779} local [clone GEN-TYPE[272] 6866] has the following parameter: TARGS{7778} local [clone FORALL[322] 6865] has the following parameter: TV-FUNC{7776} local [clone GEN-TYPE[272] 6864] has the following parameter: TARGS{7775} local [clone LIST[1033] 6863] has the following parameter: OBJS{7773} local [clone GEN-TYPE[272] 6862] has the following parameter: TARGS{7772} local [clone LIST[1033] 6861] has the following parameter: OBJS{7770} local [clone PAIR[296] 6860] has the following parameters: TVAR-1{7768} local TVAR-2{7769} local [clone GEN-TYPE[272] 6859] has the following parameter: TARGS{7767} local [clone LIST[1033] 6858] has the following parameter: OBJS{7765} local [clone GEN-TYPE[272] 6857] has the following parameter: TARGS{7764} local [clone LIST[1033] 6856] has the following parameter: OBJS{7762} local [clone GEN-TYPE[272] 6855] has the following parameter: TARGS{7761} local [clone LIST[1033] 6854] has the following parameter: OBJS{7759} local [clone GEN-TYPE[272] 6853] has the following parameter: TARGS{7758} local [clone LIST[1033] 6852] has the following parameter: OBJS{7756} local [clone PAIR[296] 6851] has the following parameters: TVAR-1{7754} local TVAR-2{7755} local [clone GEN-TYPE[272] 6850] has the following parameter: TARGS{7753} local [clone LIST[1033] 6849] has the following parameter: OBJS{7751} local [clone GEN-TYPE[272] 6848] has the following parameter: TARGS{7750} local [clone LIST[1033] 6847] has the following parameter: OBJS{7748} local [clone GEN-TYPE[272] 6846] has the following parameter: TARGS{7747} local [clone LIST[1033] 6845] has the following parameter: OBJS{7745} local [clone GEN-TYPE[272] 6844] has the following parameter: TARGS{7744} local [clone LIST[1033] 6843] has the following parameter: OBJS{7742} local [clone PAIR[296] 6842] has the following parameters: TVAR-1{7740} local TVAR-2{7741} local [clone GEN-TYPE[272] 6841] has the following parameter: TARGS{7739} local [clone LIST[1033] 6840] has the following parameter: OBJS{7737} local [clone GEN-TYPE[272] 6839] has the following parameter: TARGS{7736} local [clone LIST[1033] 6838] has the following parameter: OBJS{7734} local [clone GEN-TYPE[272] 6837] has the following parameter: TARGS{7733} local [clone LIST[1033] 6836] has the following parameter: OBJS{7731} local [clone GEN-TYPE[272] 6835] has the following parameter: TARGS{7730} local [clone LIST[1033] 6834] has the following parameter: OBJS{7728} local [clone PAIR[296] 6833] has the following parameters: TVAR-1{7726} local TVAR-2{7727} local [clone GEN-TYPE[272] 6832] has the following parameter: TARGS{7725} local [clone LIST[1033] 6831] has the following parameter: OBJS{7723} local [clone GEN-TYPE[272] 6830] has the following parameter: TARGS{7722} local [clone LIST[1033] 6829] has the following parameter: OBJS{7720} local [clone GEN-TYPE[272] 6828] has the following parameter: TARGS{7719} local [clone LIST[1033] 6827] has the following parameter: OBJS{7717} local [clone GEN-TYPE[272] 6826] has the following parameter: TARGS{7716} local [clone LIST[1033] 6825] has the following parameter: OBJS{7714} local [clone PAIR[296] 6824] has the following parameters: TVAR-1{7712} local TVAR-2{7713} local [clone GEN-TYPE[272] 6823] has the following parameter: TARGS{7711} local [clone LIST[1033] 6822] has the following parameter: OBJS{7709} local [clone GEN-TYPE[272] 6821] has the following parameter: TARGS{7708} local [clone LIST[1033] 6820] has the following parameter: OBJS{7706} local [clone GEN-TYPE[272] 6819] has the following parameter: TARGS{7705} local [clone LIST[1033] 6818] has the following parameter: OBJS{7703} local [clone GEN-TYPE[272] 6817] has the following parameter: TARGS{7702} local [clone LIST[1033] 6816] has the following parameter: OBJS{7700} local [clone GEN-TYPE[272] 6815] has the following parameter: TARGS{7699} local [clone FORALL[322] 6814] has the following parameter: TV-FUNC{7697} local [clone [inside FORALL3 328] 6813] has parent parameter [clone [inside FORALL3 327] 6812] has the following parameters: TV2{7695} local TV3{7696} local [clone [inside FORALL3 327] 6812] has parent parameter [clone FORALL3[326] 6811] has closure has parent slot [clone FORALL3[326] 6811] has the following parameter: TV1{7694} slotted [clone FORALL3[326] 6811] has closure has the following parameter: TV-FUNC3{7693} slotted [clone GEN-TYPE[272] 6810] has the following parameter: TARGS{7692} local [clone FORALL[322] 6809] has the following parameter: TV-FUNC{7690} local [clone [inside FORALL2 325] 6808] has parent parameter [clone [inside FORALL2 324] 6807] has the following parameter: TV2{7689} local [clone [inside FORALL2 324] 6807] has parent parameter [clone FORALL2[323] 6806] has closure has parent slot [clone FORALL2[323] 6806] has the following parameter: TV1{7688} slotted [clone FORALL2[323] 6806] has closure has the following parameter: TV-FUNC2{7687} slotted [clone GEN-TYPE[272] 6805] has the following parameter: TARGS{7686} local [clone FORALL[322] 6804] has the following parameter: TV-FUNC{7684} local [clone [inside FORALL2 325] 6803] has parent parameter [clone [inside FORALL2 324] 6802] has the following parameter: TV2{7683} local [clone [inside FORALL2 324] 6802] has parent parameter [clone FORALL2[323] 6801] has closure has parent slot [clone FORALL2[323] 6801] has the following parameter: TV1{7682} slotted [clone FORALL2[323] 6801] has closure has the following parameter: TV-FUNC2{7681} slotted [clone GEN-TYPE[272] 6800] has the following parameter: TARGS{7680} local [clone FORALL[322] 6799] has the following parameter: TV-FUNC{7678} local [clone [inside FORALL2 325] 6798] has parent parameter [clone [inside FORALL2 324] 6797] has the following parameter: TV2{7677} local [clone [inside FORALL2 324] 6797] has parent parameter [clone FORALL2[323] 6796] has closure has parent slot [clone FORALL2[323] 6796] has the following parameter: TV1{7676} slotted [clone FORALL2[323] 6796] has closure has the following parameter: TV-FUNC2{7675} slotted [clone GEN-TYPE[272] 6795] has the following parameter: TARGS{7674} local [clone FORALL[322] 6794] has the following parameter: TV-FUNC{7672} local [clone [inside FORALL2 325] 6793] has parent parameter [clone [inside FORALL2 324] 6792] has the following parameter: TV2{7671} local [clone [inside FORALL2 324] 6792] has parent parameter [clone FORALL2[323] 6791] has closure has parent slot [clone FORALL2[323] 6791] has the following parameter: TV1{7670} slotted [clone FORALL2[323] 6791] has closure has the following parameter: TV-FUNC2{7669} slotted [clone GEN-TYPE[272] 6790] has the following parameter: TARGS{7668} local [clone FORALL[322] 6789] has the following parameter: TV-FUNC{7666} local [clone [inside FORALL2 325] 6788] has parent parameter [clone [inside FORALL2 324] 6787] has the following parameter: TV2{7665} local [clone [inside FORALL2 324] 6787] has parent parameter [clone FORALL2[323] 6786] has closure has parent slot [clone FORALL2[323] 6786] has the following parameter: TV1{7664} slotted [clone FORALL2[323] 6786] has closure has the following parameter: TV-FUNC2{7663} slotted [clone GEN-TYPE[272] 6785] has the following parameter: TARGS{7662} local [clone FORALL[322] 6784] has the following parameter: TV-FUNC{7660} local [clone [inside FORALL2 325] 6783] has parent parameter [clone [inside FORALL2 324] 6782] has the following parameter: TV2{7659} local [clone [inside FORALL2 324] 6782] has parent parameter [clone FORALL2[323] 6781] has closure has parent slot [clone FORALL2[323] 6781] has the following parameter: TV1{7658} slotted [clone FORALL2[323] 6781] has closure has the following parameter: TV-FUNC2{7657} slotted [clone GEN-TYPE[272] 6780] has the following parameter: TARGS{7656} local [clone FORALL[322] 6779] has the following parameter: TV-FUNC{7654} local [clone [inside FORALL2 325] 6778] has parent parameter [clone [inside FORALL2 324] 6777] has the following parameter: TV2{7653} local [clone [inside FORALL2 324] 6777] has parent parameter [clone FORALL2[323] 6776] has closure has parent slot [clone FORALL2[323] 6776] has the following parameter: TV1{7652} slotted [clone FORALL2[323] 6776] has closure has the following parameter: TV-FUNC2{7651} slotted [clone GEN-TYPE[272] 6775] has the following parameter: TARGS{7650} local [clone FORALL[322] 6774] has the following parameter: TV-FUNC{7648} local [clone [inside FORALL2 325] 6773] has parent parameter [clone [inside FORALL2 324] 6772] has the following parameter: TV2{7647} local [clone [inside FORALL2 324] 6772] has parent parameter [clone FORALL2[323] 6771] has closure has parent slot [clone FORALL2[323] 6771] has the following parameter: TV1{7646} slotted [clone FORALL2[323] 6771] has closure has the following parameter: TV-FUNC2{7645} slotted [clone GEN-TYPE[272] 6770] has the following parameter: TARGS{7644} local [clone FORALL[322] 6769] has the following parameter: TV-FUNC{7642} local [clone GEN-TYPE[272] 6768] has the following parameter: TARGS{7641} local [clone FORALL[322] 6767] has the following parameter: TV-FUNC{7639} local [clone GEN-TYPE[272] 6766] has the following parameter: TARGS{7638} local [clone FORALL[322] 6765] has the following parameter: TV-FUNC{7636} local [clone GEN-TYPE[272] 6764] has the following parameter: TARGS{7635} local [clone FORALL[322] 6763] has the following parameter: TV-FUNC{7633} local [clone GEN-TYPE[272] 6762] has the following parameter: TARGS{7632} local [clone LIST[1033] 6761] has the following parameter: OBJS{7630} local [clone GEN-TYPE[272] 6760] has the following parameter: TARGS{7629} local [clone LIST[1033] 6759] has the following parameter: OBJS{7627} local [clone PAIR[296] 6758] has the following parameters: TVAR-1{7625} local TVAR-2{7626} local [clone GEN-TYPE[272] 6757] has the following parameter: TARGS{7624} local [clone LIST[1033] 6756] has the following parameter: OBJS{7622} local [clone GEN-TYPE[272] 6755] has the following parameter: TARGS{7621} local [clone LIST[1033] 6754] has the following parameter: OBJS{7619} local [clone PAIR[296] 6753] has the following parameters: TVAR-1{7617} local TVAR-2{7618} local [clone GEN-TYPE[272] 6752] has the following parameter: TARGS{7616} local [clone LIST[1033] 6751] has the following parameter: OBJS{7614} local [clone GEN-TYPE[272] 6750] has the following parameter: TARGS{7613} local [clone LIST[1033] 6749] has the following parameter: OBJS{7611} local [clone PAIR[296] 6748] has the following parameters: TVAR-1{7609} local TVAR-2{7610} local [clone GEN-TYPE[272] 6747] has the following parameter: TARGS{7608} local [clone LIST[1033] 6746] has the following parameter: OBJS{7606} local [clone GEN-TYPE[272] 6745] has the following parameter: TARGS{7605} local [clone LIST[1033] 6744] has the following parameter: OBJS{7603} local [clone PAIR[296] 6743] has the following parameters: TVAR-1{7601} local TVAR-2{7602} local [clone GEN-TYPE[272] 6742] has the following parameter: TARGS{7600} local [clone LIST[1033] 6741] has the following parameter: OBJS{7598} local [clone GEN-TYPE[272] 6740] has the following parameter: TARGS{7597} local [clone LIST[1033] 6739] has the following parameter: OBJS{7595} local [clone PAIR[296] 6738] has the following parameters: TVAR-1{7593} local TVAR-2{7594} local [clone GEN-TYPE[272] 6737] has the following parameter: TARGS{7592} local [clone LIST[1033] 6736] has the following parameter: OBJS{7590} local [clone GEN-TYPE[272] 6735] has the following parameter: TARGS{7589} local [clone LIST[1033] 6734] has the following parameter: OBJS{7587} local [clone PAIR[296] 6733] has the following parameters: TVAR-1{7585} local TVAR-2{7586} local [clone GEN-TYPE[272] 6732] has the following parameter: TARGS{7584} local [clone LIST[1033] 6731] has the following parameter: OBJS{7582} local [clone GEN-TYPE[272] 6730] has the following parameter: TARGS{7581} local [clone LIST[1033] 6729] has the following parameter: OBJS{7579} local [clone PAIR[296] 6728] has the following parameters: TVAR-1{7577} local TVAR-2{7578} local [clone GEN-TYPE[272] 6727] has the following parameter: TARGS{7576} local [clone LIST[1033] 6726] has the following parameter: OBJS{7574} local [clone GEN-TYPE[272] 6725] has the following parameter: TARGS{7573} local [clone LIST[1033] 6724] has the following parameter: OBJS{7571} local [clone PAIR[296] 6723] has the following parameters: TVAR-1{7569} local TVAR-2{7570} local [clone GEN-TYPE[272] 6722] has the following parameter: TARGS{7568} local [clone LIST[1033] 6721] has the following parameter: OBJS{7566} local [clone GEN-TYPE[272] 6720] has the following parameter: TARGS{7565} local [clone LIST[1033] 6719] has the following parameter: OBJS{7563} local [clone GEN-TYPE[272] 6718] has the following parameter: TARGS{7562} local [clone LIST[1033] 6717] has the following parameter: OBJS{7560} local [clone GEN-TYPE[272] 6716] has the following parameter: TARGS{7559} local [clone LIST[1033] 6715] has the following parameter: OBJS{7557} local [clone PAIR[296] 6714] has the following parameters: TVAR-1{7555} local TVAR-2{7556} local [clone GEN-TYPE[272] 6713] has the following parameter: TARGS{7554} local [clone LIST[1033] 6712] has the following parameter: OBJS{7552} local [clone GEN-TYPE[272] 6711] has the following parameter: TARGS{7551} local [clone LIST[1033] 6710] has the following parameter: OBJS{7549} local [clone GEN-TYPE[272] 6709] has the following parameter: TARGS{7548} local [clone LIST[1033] 6708] has the following parameter: OBJS{7546} local [clone GEN-TYPE[272] 6707] has the following parameter: TARGS{7545} local [clone LIST[1033] 6706] has the following parameter: OBJS{7543} local [clone PAIR[296] 6705] has the following parameters: TVAR-1{7541} local TVAR-2{7542} local [clone GEN-TYPE[272] 6704] has the following parameter: TARGS{7540} local [clone LIST[1033] 6703] has the following parameter: OBJS{7538} local [clone GEN-TYPE[272] 6702] has the following parameter: TARGS{7537} local [clone LIST[1033] 6701] has the following parameter: OBJS{7535} local [clone GEN-TYPE[272] 6700] has the following parameter: TARGS{7534} local [clone LIST[1033] 6699] has the following parameter: OBJS{7532} local [clone GEN-TYPE[272] 6698] has the following parameter: TARGS{7531} local [clone LIST[1033] 6697] has the following parameter: OBJS{7529} local [clone PAIR[296] 6696] has the following parameters: TVAR-1{7527} local TVAR-2{7528} local [clone GEN-TYPE[272] 6695] has the following parameter: TARGS{7526} local [clone LIST[1033] 6694] has the following parameter: OBJS{7524} local [clone GEN-TYPE[272] 6693] has the following parameter: TARGS{7523} local [clone LIST[1033] 6692] has the following parameter: OBJS{7521} local [clone GEN-TYPE[272] 6691] has the following parameter: TARGS{7520} local [clone LIST[1033] 6690] has the following parameter: OBJS{7518} local [clone PAIR[296] 6689] has the following parameters: TVAR-1{7516} local TVAR-2{7517} local [clone GEN-TYPE[272] 6688] has the following parameter: TARGS{7515} local [clone LIST[1033] 6687] has the following parameter: OBJS{7513} local [clone GEN-TYPE[272] 6686] has the following parameter: TARGS{7512} local [clone LIST[1033] 6685] has the following parameter: OBJS{7510} local [clone GEN-TYPE[272] 6684] has the following parameter: TARGS{7509} local [clone LIST[1033] 6683] has the following parameter: OBJS{7507} local [clone PAIR[296] 6682] has the following parameters: TVAR-1{7505} local TVAR-2{7506} local [clone GEN-TYPE[272] 6681] has the following parameter: TARGS{7504} local [clone LIST[1033] 6680] has the following parameter: OBJS{7502} local [clone GEN-TYPE[272] 6679] has the following parameter: TARGS{7501} local [clone LIST[1033] 6678] has the following parameter: OBJS{7499} local [clone GEN-TYPE[272] 6677] has the following parameter: TARGS{7498} local [clone LIST[1033] 6676] has the following parameter: OBJS{7496} local [clone PAIR[296] 6675] has the following parameters: TVAR-1{7494} local TVAR-2{7495} local [clone GEN-TYPE[272] 6674] has the following parameter: TARGS{7493} local [clone LIST[1033] 6673] has the following parameter: OBJS{7491} local [clone GEN-TYPE[272] 6672] has the following parameter: TARGS{7490} local [clone LIST[1033] 6671] has the following parameter: OBJS{7488} local [clone GEN-TYPE[272] 6670] has the following parameter: TARGS{7487} local [clone LIST[1033] 6669] has the following parameter: OBJS{7485} local [clone PAIR[296] 6668] has the following parameters: TVAR-1{7483} local TVAR-2{7484} local [clone GEN-TYPE[272] 6667] has the following parameter: TARGS{7482} local [clone LIST[1033] 6666] has the following parameter: OBJS{7480} local [clone GEN-TYPE[272] 6665] has the following parameter: TARGS{7479} local [clone LIST[1033] 6664] has the following parameter: OBJS{7477} local [clone GEN-TYPE[272] 6663] has the following parameter: TARGS{7476} local [clone LIST[1033] 6662] has the following parameter: OBJS{7474} local [clone PAIR[296] 6661] has the following parameters: TVAR-1{7472} local TVAR-2{7473} local [clone GEN-TYPE[272] 6660] has the following parameter: TARGS{7471} local [clone LIST[1033] 6659] has the following parameter: OBJS{7469} local [clone GEN-TYPE[272] 6658] has the following parameter: TARGS{7468} local [clone LIST[1033] 6657] has the following parameter: OBJS{7466} local [clone GEN-TYPE[272] 6656] has the following parameter: TARGS{7465} local [clone LIST[1033] 6655] has the following parameter: OBJS{7463} local [clone PAIR[296] 6654] has the following parameters: TVAR-1{7461} local TVAR-2{7462} local [clone GEN-TYPE[272] 6653] has the following parameter: TARGS{7460} local [clone LIST[1033] 6652] has the following parameter: OBJS{7458} local [clone GEN-TYPE[272] 6651] has the following parameter: TARGS{7457} local [clone LIST[1033] 6650] has the following parameter: OBJS{7455} local [clone GEN-TYPE[272] 6649] has the following parameter: TARGS{7454} local [clone LIST[1033] 6648] has the following parameter: OBJS{7452} local [clone PAIR[296] 6647] has the following parameters: TVAR-1{7450} local TVAR-2{7451} local [clone GEN-TYPE[272] 6646] has the following parameter: TARGS{7449} local [clone LIST[1033] 6645] has the following parameter: OBJS{7447} local [clone GEN-TYPE[272] 6644] has the following parameter: TARGS{7446} local [clone CDDR[998] 6643] has the following parameter: PAIR{7444} local [clone CDDR[998] 6642] has the following parameter: PAIR{7443} local [clone INFO[254] 6641] has the following parameter: L{7442} local [clone CDDR[998] 6640] has the following parameter: PAIR{7441} local [clone INFO[254] 6639] has the following parameter: L{7440} local [clone LIST[1033] 6638] has the following parameter: OBJS{7439} local [clone LIST[1033] 6637] has the following parameter: OBJS{7438} local [clone [inside EQV? 976] 6634] has the following parameter: v{7435} local [clone EQV?[975] 6633] has the following parameters: OBJ1{7433} local OBJ2{7434} local [clone LIST[1033] 6632] has the following parameter: OBJS{7432} local [clone LIST[1033] 6631] has the following parameter: OBJS{7431} local [clone [inside EQV? 976] 6628] has the following parameter: v{7428} local [clone EQV?[975] 6627] has the following parameters: OBJ1{7426} local OBJ2{7427} local [clone LIST[1033] 6626] has the following parameter: OBJS{7425} local [clone LIST[1033] 6625] has the following parameter: OBJS{7424} local [clone [inside EQV? 976] 6622] has the following parameter: v{7421} local [clone EQV?[975] 6621] has the following parameters: OBJ1{7419} local OBJ2{7420} local [clone LIST[1033] 6620] has the following parameter: OBJS{7418} local [clone LIST[1033] 6619] has the following parameter: OBJS{7417} local [clone [inside EQV? 976] 6616] has the following parameter: v{7414} local [clone EQV?[975] 6615] has the following parameters: OBJ1{7412} local OBJ2{7413} local [clone LOOP[1037] 6610] has the following parameter: K{7410} local [clone LIST-LENGTH[1034] 6607] has the following parameter: LIST{7407} local [clone LIST[1033] 6606] has the following parameter: OBJS{7406} local [clone LIST[1033] 6605] has the following parameter: OBJS{7405} local [clone [inside EQV? 976] 6602] has the following parameter: v{7402} local [clone EQV?[975] 6601] has the following parameters: OBJ1{7400} local OBJ2{7401} local [clone CDR[992] 6600] has the following parameter: PAIR{7399} local [clone DYNAMIC-LOOKUP[24] 6599] has the following parameters: X{7397} local L{7398} local [clone MEMQ[1166] 6598] has the following parameters: OBJ{7395} local LIST{7396} local [clone LOOP[1144] 6596] has the following parameters: LIST{7393} local R{7394} local [clone LIST-REVERSE[1141] 6593] has the following parameter: LIST{7390} local [clone LOOP[1144] 6591] has the following parameters: LIST{7388} local R{7389} local [clone LIST-REVERSE[1141] 6588] has the following parameter: LIST{7385} local [clone REVERSE[1146] 6582] has the following parameter: S{7384} local [clone CONS[990] 6581] has the following parameters: OBJ1{7382} local OBJ2{7383} local [clone DYNAMIC-PARSE-ACTION-VAR-DEF[369] 6580] reentrant has the following parameter: E{7381} local [clone DYNAMIC-LOOKUP[24] 6579] has the following parameter: X{7379} local [clone MEMQ[1166] 6578] has the following parameters: OBJ{7377} local LIST{7378} local [clone LOOP[1144] 6576] has the following parameters: LIST{7375} local R{7376} local [clone LIST-REVERSE[1141] 6573] has the following parameter: LIST{7372} local [clone REVERSE[1146] 6567] has the following parameter: S{7371} local [clone LOOP[1144] 6565] has the following parameters: LIST{7369} local R{7370} local [clone LIST-REVERSE[1141] 6562] has the following parameter: LIST{7366} local [clone CONS[990] 6561] has the following parameters: OBJ1{7364} local OBJ2{7365} local [clone DYNAMIC-PARSE-ACTION-VAR-DEF[369] 6560] reentrant has the following parameter: E{7363} local [clone DYNAMIC-LOOKUP[24] 6559] has the following parameters: X{7361} local L{7362} local [clone MEMQ[1166] 6558] has the following parameters: OBJ{7359} local LIST{7360} local [clone CDR[992] 6557] has the following parameter: PAIR{7358} local [clone DYNAMIC-LOOKUP[24] 6556] has the following parameters: X{7356} local L{7357} local [clone MEMQ[1166] 6555] has the following parameters: OBJ{7354} local LIST{7355} local [clone CONS[990] 6554] has the following parameters: OBJ1{7352} local OBJ2{7353} local [clone DYNAMIC-PARSE-ACTION-VAR-DEF[369] 6553] reentrant has the following parameter: E{7351} local [clone DYNAMIC-LOOKUP[24] 6552] has the following parameters: X{7349} local L{7350} local [clone MEMQ[1166] 6551] has the following parameters: OBJ{7347} local LIST{7348} local [clone LOOP[1144] 6549] has the following parameters: LIST{7345} local R{7346} local [clone LIST-REVERSE[1141] 6546] has the following parameter: LIST{7342} local [clone REVERSE[1146] 6540] has the following parameter: S{7341} local [clone LOOP[1144] 6538] has the following parameters: LIST{7339} local R{7340} local [clone LIST-REVERSE[1141] 6535] has the following parameter: LIST{7336} local [clone CONS[990] 6534] has the following parameters: OBJ1{7334} local OBJ2{7335} local [clone DYNAMIC-PARSE-ACTION-VAR-DEF[369] 6533] reentrant has the following parameter: E{7333} local [clone DYNAMIC-LOOKUP[24] 6532] has the following parameters: X{7331} local L{7332} local [clone MEMQ[1166] 6531] has the following parameters: OBJ{7329} local LIST{7330} local [clone [inside EQV? 976] 6528] has the following parameter: v{7326} local [clone EQV?[975] 6527] has the following parameter: OBJ1{7324} local [clone [inside EQV? 976] 6524] has the following parameter: v{7321} local [clone EQV?[975] 6523] has the following parameter: OBJ1{7319} local [clone CDR[992] 6522] has the following parameter: PAIR{7318} local [clone DYNAMIC-LOOKUP[24] 6521] has the following parameters: X{7316} local L{7317} local [clone MEMQ[1166] 6520] has the following parameters: OBJ{7314} local LIST{7315} local [clone GEN-TYPE[272] 6519] has the following parameter: TARGS{7313} local [clone LIST[1033] 6518] has the following parameter: OBJS{7311} local [clone GEN-TYPE[272] 6517] has the following parameter: TARGS{7310} local [clone LIST[1033] 6516] has the following parameter: OBJS{7308} local [clone GEN-TYPE[272] 6515] has the following parameter: TARGS{7307} local [clone LIST[1033] 6514] has the following parameter: OBJS{7305} local [clone GEN-TYPE[272] 6513] has the following parameter: TARGS{7304} local [clone LIST[1033] 6512] has the following parameter: OBJS{7302} local [clone GEN-TYPE[272] 6511] has the following parameter: TARGS{7301} local [clone FORALL[322] 6510] has the following parameter: TV-FUNC{7299} local [clone [inside FORALL4 331] 6509] has parent parameter [clone [inside FORALL4 330] 6508] has the following parameters: TV2{7296} local TV3{7297} local TV4{7298} local [clone [inside FORALL4 330] 6508] has parent parameter [clone FORALL4[329] 6507] has closure has parent slot [clone FORALL4[329] 6507] has the following parameter: TV1{7295} slotted [clone FORALL4[329] 6507] has closure has the following parameter: TV-FUNC4{7294} slotted [clone GEN-TYPE[272] 6506] has the following parameter: TARGS{7293} local [clone FORALL[322] 6505] has the following parameter: TV-FUNC{7291} local [clone [inside FORALL3 328] 6504] has parent parameter [clone [inside FORALL3 327] 6503] has the following parameters: TV2{7289} local TV3{7290} local [clone [inside FORALL3 327] 6503] has parent parameter [clone FORALL3[326] 6502] has closure has parent slot [clone FORALL3[326] 6502] has the following parameter: TV1{7288} slotted [clone FORALL3[326] 6502] has closure has the following parameter: TV-FUNC3{7287} slotted [clone GEN-TYPE[272] 6501] has the following parameter: TARGS{7286} local [clone FORALL[322] 6500] has the following parameter: TV-FUNC{7284} local [clone [inside FORALL3 328] 6499] has parent parameter [clone [inside FORALL3 327] 6498] has the following parameters: TV2{7282} local TV3{7283} local [clone [inside FORALL3 327] 6498] has parent parameter [clone FORALL3[326] 6497] has closure has parent slot [clone FORALL3[326] 6497] has the following parameter: TV1{7281} slotted [clone FORALL3[326] 6497] has closure has the following parameter: TV-FUNC3{7280} slotted [clone GEN-TYPE[272] 6496] has the following parameter: TARGS{7279} local [clone FORALL[322] 6495] has the following parameter: TV-FUNC{7277} local [clone [inside FORALL3 328] 6494] has parent parameter [clone [inside FORALL3 327] 6493] has the following parameters: TV2{7275} local TV3{7276} local [clone [inside FORALL3 327] 6493] has parent parameter [clone FORALL3[326] 6492] has closure has parent slot [clone FORALL3[326] 6492] has the following parameter: TV1{7274} slotted [clone FORALL3[326] 6492] has closure has the following parameter: TV-FUNC3{7273} slotted [clone GEN-TYPE[272] 6491] has the following parameter: TARGS{7272} local [clone FORALL[322] 6490] has the following parameter: TV-FUNC{7270} local [clone [inside FORALL3 328] 6489] has parent parameter [clone [inside FORALL3 327] 6488] has the following parameters: TV2{7268} local TV3{7269} local [clone [inside FORALL3 327] 6488] has parent parameter [clone FORALL3[326] 6487] has closure has parent slot [clone FORALL3[326] 6487] has the following parameter: TV1{7267} slotted [clone FORALL3[326] 6487] has closure has the following parameter: TV-FUNC3{7266} slotted [clone GEN-TYPE[272] 6486] has the following parameter: TARGS{7265} local [clone FORALL[322] 6485] has the following parameter: TV-FUNC{7263} local [clone [inside FORALL3 328] 6484] has parent parameter [clone [inside FORALL3 327] 6483] has the following parameters: TV2{7261} local TV3{7262} local [clone [inside FORALL3 327] 6483] has parent parameter [clone FORALL3[326] 6482] has closure has parent slot [clone FORALL3[326] 6482] has the following parameter: TV1{7260} slotted [clone FORALL3[326] 6482] has closure has the following parameter: TV-FUNC3{7259} slotted [clone GEN-TYPE[272] 6481] has the following parameter: TARGS{7258} local [clone FORALL[322] 6480] has the following parameter: TV-FUNC{7256} local [clone [inside FORALL3 328] 6479] has parent parameter [clone [inside FORALL3 327] 6478] has the following parameters: TV2{7254} local TV3{7255} local [clone [inside FORALL3 327] 6478] has parent parameter [clone FORALL3[326] 6477] has closure has parent slot [clone FORALL3[326] 6477] has the following parameter: TV1{7253} slotted [clone FORALL3[326] 6477] has closure has the following parameter: TV-FUNC3{7252} slotted [clone GEN-TYPE[272] 6476] has the following parameter: TARGS{7251} local [clone FORALL[322] 6475] has the following parameter: TV-FUNC{7249} local [clone [inside FORALL3 328] 6474] has parent parameter [clone [inside FORALL3 327] 6473] has the following parameters: TV2{7247} local TV3{7248} local [clone [inside FORALL3 327] 6473] has parent parameter [clone FORALL3[326] 6472] has closure has parent slot [clone FORALL3[326] 6472] has the following parameter: TV1{7246} slotted [clone FORALL3[326] 6472] has closure has the following parameter: TV-FUNC3{7245} slotted [clone GEN-TYPE[272] 6471] has the following parameter: TARGS{7244} local [clone FORALL[322] 6470] has the following parameter: TV-FUNC{7242} local [clone [inside FORALL3 328] 6469] has parent parameter [clone [inside FORALL3 327] 6468] has the following parameters: TV2{7240} local TV3{7241} local [clone [inside FORALL3 327] 6468] has parent parameter [clone FORALL3[326] 6467] has closure has parent slot [clone FORALL3[326] 6467] has the following parameter: TV1{7239} slotted [clone FORALL3[326] 6467] has closure has the following parameter: TV-FUNC3{7238} slotted [clone GEN-TYPE[272] 6466] has the following parameter: TARGS{7237} local [clone FORALL[322] 6465] has the following parameter: TV-FUNC{7235} local [clone [inside FORALL2 325] 6464] has parent parameter [clone [inside FORALL2 324] 6463] has the following parameter: TV2{7234} local [clone [inside FORALL2 324] 6463] has parent parameter [clone FORALL2[323] 6462] has closure has parent slot [clone FORALL2[323] 6462] has the following parameter: TV1{7233} slotted [clone FORALL2[323] 6462] has closure has the following parameter: TV-FUNC2{7232} slotted [clone GEN-TYPE[272] 6461] has the following parameter: TARGS{7231} local [clone FORALL[322] 6460] has the following parameter: TV-FUNC{7229} local [clone [inside FORALL2 325] 6459] has parent parameter [clone [inside FORALL2 324] 6458] has the following parameter: TV2{7228} local [clone [inside FORALL2 324] 6458] has parent parameter [clone FORALL2[323] 6457] has closure has parent slot [clone FORALL2[323] 6457] has the following parameter: TV1{7227} slotted [clone FORALL2[323] 6457] has closure has the following parameter: TV-FUNC2{7226} slotted [clone GEN-TYPE[272] 6456] has the following parameter: TARGS{7225} local [clone FORALL[322] 6455] has the following parameter: TV-FUNC{7223} local [clone [inside FORALL2 325] 6454] has parent parameter [clone [inside FORALL2 324] 6453] has the following parameter: TV2{7222} local [clone [inside FORALL2 324] 6453] has parent parameter [clone FORALL2[323] 6452] has closure has parent slot [clone FORALL2[323] 6452] has the following parameter: TV1{7221} slotted [clone FORALL2[323] 6452] has closure has the following parameter: TV-FUNC2{7220} slotted [clone GEN-TYPE[272] 6451] has the following parameter: TARGS{7219} local [clone FORALL[322] 6450] has the following parameter: TV-FUNC{7217} local [clone [inside FORALL2 325] 6449] has parent parameter [clone [inside FORALL2 324] 6448] has the following parameter: TV2{7216} local [clone [inside FORALL2 324] 6448] has parent parameter [clone FORALL2[323] 6447] has closure has parent slot [clone FORALL2[323] 6447] has the following parameter: TV1{7215} slotted [clone FORALL2[323] 6447] has closure has the following parameter: TV-FUNC2{7214} slotted [clone GEN-TYPE[272] 6446] has the following parameter: TARGS{7213} local [clone FORALL[322] 6445] has the following parameter: TV-FUNC{7211} local [clone GEN-TYPE[272] 6444] has the following parameter: TARGS{7210} local [clone FORALL[322] 6443] has the following parameter: TV-FUNC{7208} local [clone GEN-TYPE[272] 6442] has the following parameter: TARGS{7207} local [clone FORALL[322] 6441] has the following parameter: TV-FUNC{7205} local [clone GEN-TYPE[272] 6440] has the following parameter: TARGS{7204} local [clone FORALL[322] 6439] has the following parameter: TV-FUNC{7202} local [clone GEN-TYPE[272] 6438] has the following parameter: TARGS{7201} local [clone FORALL[322] 6437] has the following parameter: TV-FUNC{7199} local [clone GEN-TYPE[272] 6436] has the following parameter: TARGS{7198} local [clone FORALL[322] 6435] has the following parameter: TV-FUNC{7196} local [clone GEN-TYPE[272] 6434] has the following parameter: TARGS{7195} local [clone FORALL[322] 6433] has the following parameter: TV-FUNC{7193} local [clone GEN-TYPE[272] 6432] has the following parameter: TARGS{7192} local [clone FORALL[322] 6431] has the following parameter: TV-FUNC{7190} local [clone GEN-TYPE[272] 6430] has the following parameter: TARGS{7189} local [clone FORALL[322] 6429] has the following parameter: TV-FUNC{7187} local [clone GEN-TYPE[272] 6428] has the following parameter: TARGS{7186} local [clone FORALL[322] 6427] has the following parameter: TV-FUNC{7184} local [clone GEN-TYPE[272] 6426] has the following parameter: TARGS{7183} local [clone FORALL[322] 6425] has the following parameter: TV-FUNC{7181} local [clone GEN-TYPE[272] 6424] has the following parameter: TARGS{7180} local [clone FORALL[322] 6423] has the following parameter: TV-FUNC{7178} local [clone GEN-TYPE[272] 6422] has the following parameter: TARGS{7177} local [clone FORALL[322] 6421] has the following parameter: TV-FUNC{7175} local [clone GEN-TYPE[272] 6420] has the following parameter: TARGS{7174} local [clone FORALL[322] 6419] has the following parameter: TV-FUNC{7172} local [clone GEN-TYPE[272] 6418] has the following parameter: TARGS{7171} local [clone LIST[1033] 6417] has the following parameter: OBJS{7169} local [clone GEN-TYPE[272] 6416] has the following parameter: TARGS{7168} local [clone LIST[1033] 6415] has the following parameter: OBJS{7166} local [clone PAIR[296] 6414] has the following parameters: TVAR-1{7164} local TVAR-2{7165} local [clone GEN-TYPE[272] 6413] has the following parameter: TARGS{7163} local [clone LIST[1033] 6412] has the following parameter: OBJS{7161} local [clone GEN-TYPE[272] 6411] has the following parameter: TARGS{7160} local [clone LIST[1033] 6410] has the following parameter: OBJS{7158} local [clone PAIR[296] 6409] has the following parameters: TVAR-1{7156} local TVAR-2{7157} local [clone GEN-TYPE[272] 6408] has the following parameter: TARGS{7155} local [clone LIST[1033] 6407] has the following parameter: OBJS{7153} local [clone GEN-TYPE[272] 6406] has the following parameter: TARGS{7152} local [clone LIST[1033] 6405] has the following parameter: OBJS{7150} local [clone PAIR[296] 6404] has the following parameters: TVAR-1{7148} local TVAR-2{7149} local [clone GEN-TYPE[272] 6403] has the following parameter: TARGS{7147} local [clone LIST[1033] 6402] has the following parameter: OBJS{7145} local [clone GEN-TYPE[272] 6401] has the following parameter: TARGS{7144} local [clone LIST[1033] 6400] has the following parameter: OBJS{7142} local [clone PAIR[296] 6399] has the following parameters: TVAR-1{7140} local TVAR-2{7141} local [clone GEN-TYPE[272] 6398] has the following parameter: TARGS{7139} local [clone LIST[1033] 6397] has the following parameter: OBJS{7137} local [clone GEN-TYPE[272] 6396] has the following parameter: TARGS{7136} local [clone LIST[1033] 6395] has the following parameter: OBJS{7134} local [clone PAIR[296] 6394] has the following parameters: TVAR-1{7132} local TVAR-2{7133} local [clone GEN-TYPE[272] 6393] has the following parameter: TARGS{7131} local [clone LIST[1033] 6392] has the following parameter: OBJS{7129} local [clone GEN-TYPE[272] 6391] has the following parameter: TARGS{7128} local [clone LIST[1033] 6390] has the following parameter: OBJS{7126} local [clone PAIR[296] 6389] has the following parameters: TVAR-1{7124} local TVAR-2{7125} local [clone GEN-TYPE[272] 6388] has the following parameter: TARGS{7123} local [clone LIST[1033] 6387] has the following parameter: OBJS{7121} local [clone GEN-TYPE[272] 6386] has the following parameter: TARGS{7120} local [clone LIST[1033] 6385] has the following parameter: OBJS{7118} local [clone PAIR[296] 6384] has the following parameters: TVAR-1{7116} local TVAR-2{7117} local [clone GEN-TYPE[272] 6383] has the following parameter: TARGS{7115} local [clone LIST[1033] 6382] has the following parameter: OBJS{7113} local [clone GEN-TYPE[272] 6381] has the following parameter: TARGS{7112} local [clone LIST[1033] 6380] has the following parameter: OBJS{7110} local [clone PAIR[296] 6379] has the following parameters: TVAR-1{7108} local TVAR-2{7109} local [clone GEN-TYPE[272] 6378] has the following parameter: TARGS{7107} local [clone LIST[1033] 6377] has the following parameter: OBJS{7105} local [clone GEN-TYPE[272] 6376] has the following parameter: TARGS{7104} local [clone LIST[1033] 6375] has the following parameter: OBJS{7102} local [clone PAIR[296] 6374] has the following parameters: TVAR-1{7100} local TVAR-2{7101} local [clone GEN-TYPE[272] 6373] has the following parameter: TARGS{7099} local [clone LIST[1033] 6372] has the following parameter: OBJS{7097} local [clone GEN-TYPE[272] 6371] has the following parameter: TARGS{7096} local [clone LIST[1033] 6370] has the following parameter: OBJS{7094} local [clone PAIR[296] 6369] has the following parameters: TVAR-1{7092} local TVAR-2{7093} local [clone GEN-TYPE[272] 6368] has the following parameter: TARGS{7091} local [clone LIST[1033] 6367] has the following parameter: OBJS{7089} local [clone GEN-TYPE[272] 6366] has the following parameter: TARGS{7088} local [clone LIST[1033] 6365] has the following parameter: OBJS{7086} local [clone PAIR[296] 6364] has the following parameters: TVAR-1{7084} local TVAR-2{7085} local [clone GEN-TYPE[272] 6363] has the following parameter: TARGS{7083} local [clone LIST[1033] 6362] has the following parameter: OBJS{7081} local [clone GEN-TYPE[272] 6361] has the following parameter: TARGS{7080} local [clone LIST[1033] 6360] has the following parameter: OBJS{7078} local [clone PAIR[296] 6359] has the following parameters: TVAR-1{7076} local TVAR-2{7077} local [clone GEN-TYPE[272] 6358] has the following parameter: TARGS{7075} local [clone LIST[1033] 6357] has the following parameter: OBJS{7073} local [clone GEN-TYPE[272] 6356] has the following parameter: TARGS{7072} local [clone LIST[1033] 6355] has the following parameter: OBJS{7070} local [clone PAIR[296] 6354] has the following parameters: TVAR-1{7068} local TVAR-2{7069} local [clone GEN-TYPE[272] 6353] has the following parameter: TARGS{7067} local [clone LIST[1033] 6352] has the following parameter: OBJS{7065} local [clone GEN-TYPE[272] 6351] has the following parameter: TARGS{7064} local [clone LIST[1033] 6350] has the following parameter: OBJS{7062} local [clone PAIR[296] 6349] has the following parameters: TVAR-1{7060} local TVAR-2{7061} local [clone GEN-TYPE[272] 6348] has the following parameter: TARGS{7059} local [clone LIST[1033] 6347] has the following parameter: OBJS{7057} local [clone GEN-TYPE[272] 6346] has the following parameter: TARGS{7056} local [clone LIST[1033] 6345] has the following parameter: OBJS{7054} local [clone PAIR[296] 6344] has the following parameters: TVAR-1{7052} local TVAR-2{7053} local [clone GEN-TYPE[272] 6343] has the following parameter: TARGS{7051} local [clone LIST[1033] 6342] has the following parameter: OBJS{7049} local [clone GEN-TYPE[272] 6341] has the following parameter: TARGS{7048} local [clone LIST[1033] 6340] has the following parameter: OBJS{7046} local [clone PAIR[296] 6339] has the following parameters: TVAR-1{7044} local TVAR-2{7045} local [clone GEN-TYPE[272] 6338] has the following parameter: TARGS{7043} local [clone LIST[1033] 6337] has the following parameter: OBJS{7041} local [clone GEN-TYPE[272] 6336] has the following parameter: TARGS{7040} local [clone LIST[1033] 6335] has the following parameter: OBJS{7038} local [clone PAIR[296] 6334] has the following parameters: TVAR-1{7036} local TVAR-2{7037} local [clone GEN-TYPE[272] 6333] has the following parameter: TARGS{7035} local [clone CDDR[998] 6332] has the following parameter: PAIR{7033} local [clone INFO[254] 6331] has the following parameter: L{7032} local [clone GEN-TYPE[272] 6330] has the following parameter: TARGS{7031} local [clone LIST[1033] 6329] has the following parameter: OBJS{7029} local [clone GEN-TYPE[272] 6328] has the following parameter: TARGS{7028} local [clone LIST[1033] 6327] has the following parameter: OBJS{7026} local [clone GEN-TYPE[272] 6326] has the following parameter: TARGS{7025} local [clone LIST[1033] 6325] has the following parameter: OBJS{7023} local [clone GEN-TYPE[272] 6324] has the following parameter: TARGS{7022} local [clone LIST[1033] 6323] has the following parameter: OBJS{7020} local [clone PAIR[296] 6322] has the following parameters: TVAR-1{7018} local TVAR-2{7019} local [clone GEN-TYPE[272] 6321] has the following parameter: TARGS{7017} local [clone LIST[1033] 6320] has the following parameter: OBJS{7015} local [clone GEN-TYPE[272] 6319] has the following parameter: TARGS{7014} local [clone LIST[1033] 6318] has the following parameter: OBJS{7012} local [clone PAIR[296] 6317] has the following parameters: TVAR-1{7010} local TVAR-2{7011} local [clone GEN-TYPE[272] 6316] has the following parameter: TARGS{7009} local [clone LIST[1033] 6315] has the following parameter: OBJS{7007} local [clone GEN-TYPE[272] 6314] has the following parameter: TARGS{7006} local [clone LIST[1033] 6313] has the following parameter: OBJS{7004} local [clone PAIR[296] 6312] has the following parameters: TVAR-1{7002} local TVAR-2{7003} local [clone GEN-TYPE[272] 6311] has the following parameter: TARGS{7001} local [clone LIST[1033] 6310] has the following parameter: OBJS{6999} local [clone GEN-TYPE[272] 6309] has the following parameter: TARGS{6998} local [clone LIST[1033] 6308] has the following parameter: OBJS{6996} local [clone PAIR[296] 6307] has the following parameters: TVAR-1{6994} local TVAR-2{6995} local [clone GEN-TYPE[272] 6306] has the following parameter: TARGS{6993} local [clone LIST[1033] 6305] has the following parameter: OBJS{6991} local [clone GEN-TYPE[272] 6304] has the following parameter: TARGS{6990} local [clone LIST[1033] 6303] has the following parameter: OBJS{6988} local [clone PAIR[296] 6302] has the following parameters: TVAR-1{6986} local TVAR-2{6987} local [clone GEN-TYPE[272] 6301] has the following parameter: TARGS{6985} local [clone LIST[1033] 6300] has the following parameter: OBJS{6983} local [clone GEN-TYPE[272] 6299] has the following parameter: TARGS{6982} local [clone LIST[1033] 6298] has the following parameter: OBJS{6980} local [clone PAIR[296] 6297] has the following parameters: TVAR-1{6978} local TVAR-2{6979} local [clone GEN-TYPE[272] 6296] has the following parameter: TARGS{6977} local [clone LIST[1033] 6295] has the following parameter: OBJS{6975} local [clone GEN-TYPE[272] 6294] has the following parameter: TARGS{6974} local [clone LIST[1033] 6293] has the following parameter: OBJS{6972} local [clone PAIR[296] 6292] has the following parameters: TVAR-1{6970} local TVAR-2{6971} local [clone GEN-TYPE[272] 6291] has the following parameter: TARGS{6969} local [clone LIST[1033] 6290] has the following parameter: OBJS{6967} local [clone GEN-TYPE[272] 6289] has the following parameter: TARGS{6966} local [clone LIST[1033] 6288] has the following parameter: OBJS{6964} local [clone PAIR[296] 6287] has the following parameters: TVAR-1{6962} local TVAR-2{6963} local [clone GEN-TYPE[272] 6286] has the following parameter: TARGS{6961} local [clone CDDR[998] 6285] has the following parameter: PAIR{6959} local [clone INFO[254] 6284] has the following parameter: L{6958} local [clone GEN-TYPE[272] 6283] has the following parameter: TARGS{6957} local [clone LIST[1033] 6282] has the following parameter: OBJS{6955} local [clone PAIR[296] 6281] has the following parameters: TVAR-1{6953} local TVAR-2{6954} local [clone GEN-TYPE[272] 6280] has the following parameter: TARGS{6952} local [clone LIST[1033] 6279] has the following parameter: OBJS{6950} local [clone GEN-TYPE[272] 6278] has the following parameter: TARGS{6949} local [clone LIST[1033] 6277] has the following parameter: OBJS{6947} local [clone GEN-TYPE[272] 6276] has the following parameter: TARGS{6946} local [clone LIST[1033] 6275] has the following parameter: OBJS{6944} local [clone PAIR[296] 6274] has the following parameters: TVAR-1{6942} local TVAR-2{6943} local [clone GEN-TYPE[272] 6273] has the following parameter: TARGS{6941} local [clone LIST[1033] 6272] has the following parameter: OBJS{6939} local [clone GEN-TYPE[272] 6271] has the following parameter: TARGS{6938} local [clone LIST[1033] 6270] has the following parameter: OBJS{6936} local [clone PAIR[296] 6269] has the following parameters: TVAR-1{6934} local TVAR-2{6935} local [clone GEN-TYPE[272] 6268] has the following parameter: TARGS{6933} local [clone LIST[1033] 6267] has the following parameter: OBJS{6931} local [clone GEN-TYPE[272] 6266] has the following parameter: TARGS{6930} local [clone LIST[1033] 6265] has the following parameter: OBJS{6928} local [clone PAIR[296] 6264] has the following parameters: TVAR-1{6926} local TVAR-2{6927} local [clone GEN-TYPE[272] 6263] has the following parameter: TARGS{6925} local [clone LIST[1033] 6262] has the following parameter: OBJS{6923} local [clone GEN-TYPE[272] 6261] has the following parameter: TARGS{6922} local [clone LIST[1033] 6260] has the following parameter: OBJS{6920} local [clone PAIR[296] 6259] has the following parameters: TVAR-1{6918} local TVAR-2{6919} local [clone GEN-TYPE[272] 6258] has the following parameter: TARGS{6917} local [clone LIST[1033] 6257] has the following parameter: OBJS{6915} local [clone GEN-TYPE[272] 6256] has the following parameter: TARGS{6914} local [clone LIST[1033] 6255] has the following parameter: OBJS{6912} local [clone PAIR[296] 6254] has the following parameters: TVAR-1{6910} local TVAR-2{6911} local [clone GEN-TYPE[272] 6253] has the following parameter: TARGS{6909} local [clone LIST[1033] 6252] has the following parameter: OBJS{6907} local [clone GEN-TYPE[272] 6251] has the following parameter: TARGS{6906} local [clone LIST[1033] 6250] has the following parameter: OBJS{6904} local [clone PAIR[296] 6249] has the following parameters: TVAR-1{6902} local TVAR-2{6903} local [clone GEN-TYPE[272] 6248] has the following parameter: TARGS{6901} local [clone LIST[1033] 6247] has the following parameter: OBJS{6899} local [clone GEN-TYPE[272] 6246] has the following parameter: TARGS{6898} local [clone LIST[1033] 6245] has the following parameter: OBJS{6896} local [clone PAIR[296] 6244] has the following parameters: TVAR-1{6894} local TVAR-2{6895} local [clone GEN-TYPE[272] 6243] has the following parameter: TARGS{6893} local [clone LIST[1033] 6242] has the following parameter: OBJS{6891} local [clone GEN-TYPE[272] 6241] has the following parameter: TARGS{6890} local [clone LIST[1033] 6240] has the following parameter: OBJS{6888} local [clone PAIR[296] 6239] has the following parameters: TVAR-1{6886} local TVAR-2{6887} local [clone GEN-TYPE[272] 6238] has the following parameter: TARGS{6885} local [clone LIST[1033] 6237] has the following parameter: OBJS{6883} local [clone GEN-TYPE[272] 6236] has the following parameter: TARGS{6882} local [clone LIST[1033] 6235] has the following parameter: OBJS{6880} local [clone PAIR[296] 6234] has the following parameters: TVAR-1{6878} local TVAR-2{6879} local [clone GEN-TYPE[272] 6233] has the following parameter: TARGS{6877} local [clone LIST[1033] 6232] has the following parameter: OBJS{6875} local [clone GEN-TYPE[272] 6231] has the following parameter: TARGS{6874} local [clone LIST[1033] 6230] has the following parameter: OBJS{6872} local [clone PAIR[296] 6229] has the following parameters: TVAR-1{6870} local TVAR-2{6871} local [clone GEN-TYPE[272] 6228] has the following parameter: TARGS{6869} local [clone LIST[1033] 6227] has the following parameter: OBJS{6867} local [clone GEN-TYPE[272] 6226] has the following parameter: TARGS{6866} local [clone LIST[1033] 6225] has the following parameter: OBJS{6864} local [clone PAIR[296] 6224] has the following parameters: TVAR-1{6862} local TVAR-2{6863} local [clone GEN-TYPE[272] 6223] has the following parameter: TARGS{6861} local [clone LIST[1033] 6222] has the following parameter: OBJS{6859} local [clone GEN-TYPE[272] 6221] has the following parameter: TARGS{6858} local [clone LIST[1033] 6220] has the following parameter: OBJS{6856} local [clone PAIR[296] 6219] has the following parameters: TVAR-1{6854} local TVAR-2{6855} local [clone GEN-TYPE[272] 6218] has the following parameter: TARGS{6853} local [clone LIST[1033] 6217] has the following parameter: OBJS{6851} local [clone GEN-TYPE[272] 6216] has the following parameter: TARGS{6850} local [clone LIST[1033] 6215] has the following parameter: OBJS{6848} local [clone LOOP[1144] 6131] has the following parameters: LIST{6709} local R{6710} local [clone LIST-REVERSE[1141] 6128] has the following parameter: LIST{6706} local [clone LOOP?[1489] 6125] has the following parameters: CHAR1{6702} local CHAR2{6703} local [clone CHAR<=?[1486] 6122] has the following parameters: CHAR1{6697} local CHAR2{6698} local [clone LOOP?[1489] 6119] has the following parameters: CHAR1{6693} local CHAR2{6694} local [clone CHAR<=?[1486] 6116] has the following parameters: CHAR1{6688} local CHAR2{6689} local [clone LOOP?[1495] 6113] has the following parameters: CHAR1{6684} local CHAR2{6685} local [clone CHAR>=?[1492] 6110] has the following parameters: CHAR1{6679} local CHAR2{6680} local [clone LOOP?[1495] 6107] has the following parameters: CHAR1{6675} local CHAR2{6676} local [clone CHAR>=?[1492] 6104] has the following parameters: CHAR1{6670} local CHAR2{6671} local [clone LOOP?[1489] 6101] has the following parameters: CHAR1{6666} local CHAR2{6667} local [clone CHAR<=?[1486] 6098] has the following parameters: CHAR1{6661} local CHAR2{6662} local [clone LOOP?[1489] 6095] has the following parameters: CHAR1{6657} local CHAR2{6658} local [clone CHAR<=?[1486] 6092] has the following parameters: CHAR1{6652} local CHAR2{6653} local [clone LOOP?[1495] 6089] has the following parameters: CHAR1{6648} local CHAR2{6649} local [clone CHAR>=?[1492] 6086] has the following parameters: CHAR1{6643} local CHAR2{6644} local [clone LOOP?[1495] 6083] has the following parameters: CHAR1{6639} local CHAR2{6640} local [clone CHAR>=?[1492] 6080] has the following parameters: CHAR1{6634} local CHAR2{6635} local [clone LOOP?[1489] 6077] has the following parameters: CHAR1{6630} local CHAR2{6631} local [clone CHAR<=?[1486] 6074] has the following parameters: CHAR1{6625} local CHAR2{6626} local [clone LOOP?[1495] 6071] has the following parameters: CHAR1{6621} local CHAR2{6622} local [clone CHAR>=?[1492] 6068] has the following parameters: CHAR1{6616} local CHAR2{6617} local [clone LOOP?[1489] 6065] has the following parameters: CHAR1{6612} local CHAR2{6613} local [clone CHAR<=?[1486] 6062] has the following parameters: CHAR1{6607} local CHAR2{6608} local [clone LOOP?[1495] 6059] has the following parameters: CHAR1{6603} local CHAR2{6604} local [clone CHAR>=?[1492] 6056] has the following parameters: CHAR1{6598} local CHAR2{6599} local [clone LOOP?[1489] 6053] has the following parameters: CHAR1{6594} local CHAR2{6595} local [clone CHAR<=?[1486] 6050] has the following parameters: CHAR1{6589} local CHAR2{6590} local [clone LOOP?[1489] 6047] has the following parameters: CHAR1{6585} local CHAR2{6586} local [clone CHAR<=?[1486] 6044] has the following parameters: CHAR1{6580} local CHAR2{6581} local [clone LOOP?[1495] 6041] has the following parameters: CHAR1{6576} local CHAR2{6577} local [clone CHAR>=?[1492] 6038] has the following parameters: CHAR1{6571} local CHAR2{6572} local [clone LOOP?[1489] 6035] has the following parameters: CHAR1{6567} local CHAR2{6568} local [clone CHAR<=?[1486] 6032] has the following parameters: CHAR1{6562} local CHAR2{6563} local [clone LOOP?[1489] 6029] has the following parameters: CHAR1{6558} local CHAR2{6559} local [clone CHAR<=?[1486] 6026] has the following parameters: CHAR1{6553} local CHAR2{6554} local [clone LOOP?[1495] 6023] has the following parameters: CHAR1{6549} local CHAR2{6550} local [clone CHAR>=?[1492] 6020] has the following parameters: CHAR1{6544} local CHAR2{6545} local [clone LOOP?[1495] 6017] has the following parameters: CHAR1{6540} local CHAR2{6541} local [clone CHAR>=?[1492] 6014] has the following parameters: CHAR1{6535} local CHAR2{6536} local [clone LOOP?[1495] 6011] has the following parameters: CHAR1{6531} local CHAR2{6532} local [clone CHAR>=?[1492] 6008] has the following parameters: CHAR1{6526} local CHAR2{6527} local [clone LOOP[1037] 6003] has the following parameter: K{6524} local [clone LIST-LENGTH[1034] 6000] has the following parameter: LIST{6521} local [clone LOOP?[1489] 5997] has the following parameters: CHAR1{6517} local CHAR2{6518} local [clone CHAR<=?[1486] 5994] has the following parameters: CHAR1{6512} local CHAR2{6513} local [clone LOOP?[1495] 5991] has the following parameters: CHAR1{6508} local CHAR2{6509} local [clone CHAR>=?[1492] 5988] has the following parameters: CHAR1{6503} local CHAR2{6504} local [clone LOOP?[1489] 5985] has the following parameters: CHAR1{6499} local CHAR2{6500} local [clone CHAR<=?[1486] 5982] has the following parameters: CHAR1{6494} local CHAR2{6495} local [clone LOOP?[1495] 5979] has the following parameters: CHAR1{6490} local CHAR2{6491} local [clone CHAR>=?[1492] 5976] has the following parameters: CHAR1{6485} local CHAR2{6486} local [clone LOOP?[1489] 5973] has the following parameters: CHAR1{6481} local CHAR2{6482} local [clone CHAR<=?[1486] 5970] has the following parameters: CHAR1{6476} local CHAR2{6477} local [clone LOOP?[1489] 5967] has the following parameters: CHAR1{6472} local CHAR2{6473} local [clone CHAR<=?[1486] 5964] has the following parameters: CHAR1{6467} local CHAR2{6468} local [clone LOOP?[1471] 5961] has the following parameters: CHAR1{6463} local CHAR2{6464} local [clone CHAR=?[1468] 5958] has the following parameters: CHAR1{6458} local CHAR2{6459} local [clone LOOP?[1471] 5955] has the following parameters: CHAR1{6454} local CHAR2{6455} local [clone CHAR=?[1468] 5952] has the following parameters: CHAR1{6449} local CHAR2{6450} local [clone LOOP?[1471] 5949] has the following parameters: CHAR1{6445} local CHAR2{6446} local [clone CHAR=?[1468] 5946] has the following parameters: CHAR1{6440} local CHAR2{6441} local [clone LOOP?[1489] 5943] has the following parameters: CHAR1{6436} local CHAR2{6437} local [clone CHAR<=?[1486] 5940] has the following parameters: CHAR1{6431} local CHAR2{6432} local [clone LOOP?[1495] 5937] has the following parameters: CHAR1{6427} local CHAR2{6428} local [clone CHAR>=?[1492] 5934] has the following parameters: CHAR1{6422} local CHAR2{6423} local [clone CHAR-NUMERIC?[1530] 5933] has the following parameter: CHAR{6421} local [clone LOOP?[1495] 5930] has the following parameters: CHAR1{6417} local CHAR2{6418} local [clone CHAR>=?[1492] 5927] has the following parameters: CHAR1{6412} local CHAR2{6413} local [clone LOOP?[1471] 5924] has the following parameters: CHAR1{6408} local CHAR2{6409} local [clone CHAR=?[1468] 5921] has the following parameters: CHAR1{6403} local CHAR2{6404} local [clone LOOP?[1471] 5918] has the following parameters: CHAR1{6399} local CHAR2{6400} local [clone CHAR=?[1468] 5915] has the following parameters: CHAR1{6394} local CHAR2{6395} local [clone LOOP?[1471] 5912] has the following parameters: CHAR1{6390} local CHAR2{6391} local [clone CHAR=?[1468] 5909] has the following parameters: CHAR1{6385} local CHAR2{6386} local [clone LOOP?[1489] 5906] has the following parameters: CHAR1{6381} local CHAR2{6382} local [clone CHAR<=?[1486] 5903] has the following parameters: CHAR1{6376} local CHAR2{6377} local [clone LOOP?[1495] 5900] has the following parameters: CHAR1{6372} local CHAR2{6373} local [clone CHAR>=?[1492] 5897] has the following parameters: CHAR1{6367} local CHAR2{6368} local [clone CHAR-NUMERIC?[1530] 5896] has the following parameter: CHAR{6366} local [clone LOOP?[1495] 5893] has the following parameters: CHAR1{6362} local CHAR2{6363} local [clone CHAR>=?[1492] 5890] has the following parameters: CHAR1{6357} local CHAR2{6358} local [clone LOOP?[1489] 5887] has the following parameters: CHAR1{6353} local CHAR2{6354} local [clone CHAR<=?[1486] 5884] has the following parameters: CHAR1{6348} local CHAR2{6349} local [clone LOOP?[1489] 5881] has the following parameters: CHAR1{6344} local CHAR2{6345} local [clone CHAR<=?[1486] 5878] has the following parameters: CHAR1{6339} local CHAR2{6340} local [clone LOOP?[1471] 5875] has the following parameters: CHAR1{6335} local CHAR2{6336} local [clone CHAR=?[1468] 5872] has the following parameters: CHAR1{6330} local CHAR2{6331} local [clone LOOP?[1471] 5869] has the following parameters: CHAR1{6326} local CHAR2{6327} local [clone CHAR=?[1468] 5866] has the following parameters: CHAR1{6321} local CHAR2{6322} local [clone LOOP?[1471] 5863] has the following parameters: CHAR1{6317} local CHAR2{6318} local [clone CHAR=?[1468] 5860] has the following parameters: CHAR1{6312} local CHAR2{6313} local [clone LOOP?[1489] 5857] has the following parameters: CHAR1{6308} local CHAR2{6309} local [clone CHAR<=?[1486] 5854] has the following parameters: CHAR1{6303} local CHAR2{6304} local [clone LOOP?[1495] 5851] has the following parameters: CHAR1{6299} local CHAR2{6300} local [clone CHAR>=?[1492] 5848] has the following parameters: CHAR1{6294} local CHAR2{6295} local [clone CHAR-NUMERIC?[1530] 5847] has the following parameter: CHAR{6293} local [clone LOOP?[1495] 5844] has the following parameters: CHAR1{6289} local CHAR2{6290} local [clone CHAR>=?[1492] 5841] has the following parameters: CHAR1{6284} local CHAR2{6285} local [clone LOOP?[1471] 5838] has the following parameters: CHAR1{6280} local CHAR2{6281} local [clone CHAR=?[1468] 5835] has the following parameters: CHAR1{6275} local CHAR2{6276} local [clone LOOP?[1471] 5832] has the following parameters: CHAR1{6271} local CHAR2{6272} local [clone CHAR=?[1468] 5829] has the following parameters: CHAR1{6266} local CHAR2{6267} local [clone LOOP?[1471] 5826] has the following parameters: CHAR1{6262} local CHAR2{6263} local [clone CHAR=?[1468] 5823] has the following parameters: CHAR1{6257} local CHAR2{6258} local [clone LOOP?[1489] 5820] has the following parameters: CHAR1{6253} local CHAR2{6254} local [clone CHAR<=?[1486] 5817] has the following parameters: CHAR1{6248} local CHAR2{6249} local [clone LOOP?[1495] 5814] has the following parameters: CHAR1{6244} local CHAR2{6245} local [clone CHAR>=?[1492] 5811] has the following parameters: CHAR1{6239} local CHAR2{6240} local [clone CHAR-NUMERIC?[1530] 5810] has the following parameter: CHAR{6238} local [clone LOOP?[1495] 5807] has the following parameters: CHAR1{6234} local CHAR2{6235} local [clone CHAR>=?[1492] 5804] has the following parameters: CHAR1{6229} local CHAR2{6230} local [clone LOOP?[1489] 5801] has the following parameters: CHAR1{6225} local CHAR2{6226} local [clone CHAR<=?[1486] 5798] has the following parameters: CHAR1{6220} local CHAR2{6221} local [clone LOOP?[1489] 5795] has the following parameters: CHAR1{6216} local CHAR2{6217} local [clone CHAR<=?[1486] 5792] has the following parameters: CHAR1{6211} local CHAR2{6212} local [clone LOOP?[1495] 5789] has the following parameters: CHAR1{6207} local CHAR2{6208} local [clone CHAR>=?[1492] 5786] has the following parameters: CHAR1{6202} local CHAR2{6203} local [clone LOOP?[1495] 5783] has the following parameters: CHAR1{6198} local CHAR2{6199} local [clone CHAR>=?[1492] 5780] has the following parameters: CHAR1{6193} local CHAR2{6194} local [clone LOOP?[1489] 5777] has the following parameters: CHAR1{6189} local CHAR2{6190} local [clone CHAR<=?[1486] 5774] has the following parameters: CHAR1{6184} local CHAR2{6185} local [clone LOOP?[1489] 5771] has the following parameters: CHAR1{6180} local CHAR2{6181} local [clone CHAR<=?[1486] 5768] has the following parameters: CHAR1{6175} local CHAR2{6176} local [clone LOOP?[1489] 5765] has the following parameters: CHAR1{6171} local CHAR2{6172} local [clone CHAR<=?[1486] 5762] has the following parameters: CHAR1{6166} local CHAR2{6167} local [clone LOOP?[1489] 5759] has the following parameters: CHAR1{6162} local CHAR2{6163} local [clone CHAR<=?[1486] 5756] has the following parameters: CHAR1{6157} local CHAR2{6158} local [clone LOOP?[1495] 5753] has the following parameters: CHAR1{6153} local CHAR2{6154} local [clone CHAR>=?[1492] 5750] has the following parameters: CHAR1{6148} local CHAR2{6149} local [clone LOOP?[1489] 5747] has the following parameters: CHAR1{6144} local CHAR2{6145} local [clone CHAR<=?[1486] 5744] has the following parameters: CHAR1{6139} local CHAR2{6140} local [clone LOOP?[1495] 5741] has the following parameters: CHAR1{6135} local CHAR2{6136} local [clone CHAR>=?[1492] 5738] has the following parameters: CHAR1{6130} local CHAR2{6131} local [clone LOOP?[1495] 5735] has the following parameters: CHAR1{6126} local CHAR2{6127} local [clone CHAR>=?[1492] 5732] has the following parameters: CHAR1{6121} local CHAR2{6122} local [clone LOOP?[1495] 5729] has the following parameters: CHAR1{6117} local CHAR2{6118} local [clone CHAR>=?[1492] 5726] has the following parameters: CHAR1{6112} local CHAR2{6113} local [clone LOOP?[1489] 5723] has the following parameters: CHAR1{6108} local CHAR2{6109} local [clone CHAR<=?[1486] 5720] has the following parameters: CHAR1{6103} local CHAR2{6104} local [clone LOOP?[1489] 5717] has the following parameters: CHAR1{6099} local CHAR2{6100} local [clone CHAR<=?[1486] 5714] has the following parameters: CHAR1{6094} local CHAR2{6095} local [clone LOOP?[1495] 5711] has the following parameters: CHAR1{6090} local CHAR2{6091} local [clone CHAR>=?[1492] 5708] has the following parameters: CHAR1{6085} local CHAR2{6086} local [clone LOOP?[1489] 5705] has the following parameters: CHAR1{6081} local CHAR2{6082} local [clone CHAR<=?[1486] 5702] has the following parameters: CHAR1{6076} local CHAR2{6077} local [clone LOOP?[1495] 5699] has the following parameters: CHAR1{6072} local CHAR2{6073} local [clone CHAR>=?[1492] 5696] has the following parameters: CHAR1{6067} local CHAR2{6068} local [clone LOOP?[1495] 5693] has the following parameters: CHAR1{6063} local CHAR2{6064} local [clone CHAR>=?[1492] 5690] has the following parameters: CHAR1{6058} local CHAR2{6059} local [clone LOOP?[1495] 5687] has the following parameters: CHAR1{6054} local CHAR2{6055} local [clone CHAR>=?[1492] 5684] has the following parameters: CHAR1{6049} local CHAR2{6050} local [clone LOOP?[1489] 5681] has the following parameters: CHAR1{6045} local CHAR2{6046} local [clone CHAR<=?[1486] 5678] has the following parameters: CHAR1{6040} local CHAR2{6041} local [clone LOOP?[1471] 5675] has the following parameters: CHAR1{6036} local CHAR2{6037} local [clone CHAR=?[1468] 5672] has the following parameters: CHAR1{6031} local CHAR2{6032} local [clone LOOP?[1471] 5669] has the following parameters: CHAR1{6027} local CHAR2{6028} local [clone CHAR=?[1468] 5666] has the following parameters: CHAR1{6022} local CHAR2{6023} local [clone LOOP?[1471] 5663] has the following parameters: CHAR1{6018} local CHAR2{6019} local [clone CHAR=?[1468] 5660] has the following parameters: CHAR1{6013} local CHAR2{6014} local [clone LOOP?[1489] 5657] has the following parameters: CHAR1{6009} local CHAR2{6010} local [clone CHAR<=?[1486] 5654] has the following parameters: CHAR1{6004} local CHAR2{6005} local [clone LOOP?[1495] 5651] has the following parameters: CHAR1{6000} local CHAR2{6001} local [clone CHAR>=?[1492] 5648] has the following parameters: CHAR1{5995} local CHAR2{5996} local [clone CHAR-NUMERIC?[1530] 5647] has the following parameter: CHAR{5994} local [clone LOOP?[1489] 5644] has the following parameters: CHAR1{5990} local CHAR2{5991} local [clone CHAR<=?[1486] 5641] has the following parameters: CHAR1{5985} local CHAR2{5986} local [clone LOOP?[1495] 5638] has the following parameters: CHAR1{5981} local CHAR2{5982} local [clone CHAR>=?[1492] 5635] has the following parameters: CHAR1{5976} local CHAR2{5977} local [clone LOOP?[1489] 5632] has the following parameters: CHAR1{5972} local CHAR2{5973} local [clone CHAR<=?[1486] 5629] has the following parameters: CHAR1{5967} local CHAR2{5968} local [clone LOOP?[1495] 5626] has the following parameters: CHAR1{5963} local CHAR2{5964} local [clone CHAR>=?[1492] 5623] has the following parameters: CHAR1{5958} local CHAR2{5959} local [clone LOOP?[1495] 5620] has the following parameters: CHAR1{5954} local CHAR2{5955} local [clone CHAR>=?[1492] 5617] has the following parameters: CHAR1{5949} local CHAR2{5950} local [clone DISPLAY[2826] 5613] has the following parameter: OBJ{5947} local [clone [inside DYNAMIC-PARSE-COMMAND 224] 5609] has the following parameter: v{5946} local [clone [inside DYNAMIC-PARSE-COMMAND 223] 5608] has the following parameters: ARGS{5944} local OP{5945} local [clone DYNAMIC-PARSE-COMMAND[222] 5607] has the following parameter: C{5943} local [clone LOOP[1780] 5602] has the following parameter: K{5939} local [clone [inside LIST->VECTOR 1776] 5598] has the following parameter: R{5935} local [clone LIST->VECTOR[1775] 5597] has the following parameter: LIST{5934} local [clone LOOP[1780] 5592] has the following parameter: K{5931} local [clone [inside LIST->VECTOR 1776] 5588] has the following parameter: R{5927} local [clone LIST->VECTOR[1775] 5587] has the following parameter: LIST{5926} local [clone LOOP[1037] 5582] has the following parameter: K{5924} local [clone LIST-LENGTH[1034] 5579] has the following parameter: LIST{5921} local [clone LOOP[1037] 5574] has the following parameter: K{5919} local [clone LIST-LENGTH[1034] 5571] has the following parameter: LIST{5916} local [clone [inside PE* 104] 5568] reentrant [clone PE*[102] 5566] reentrant has the following parameters: RESULTS{5914} local ES{5915} local [clone [inside DYNAMIC-PARSE-EXPRESSION* 101] 5565] reentrant [clone [inside DYNAMIC-PARSE-EXPRESSION* 100] 5564] reentrant [clone DYNAMIC-PARSE-EXPRESSION*[99] 5563] reentrant has the following parameters: ENV{5910} local EXPRS{5911} local [clone [inside PE* 104] 5560] reentrant [clone PE*[102] 5558] reentrant has the following parameters: RESULTS{5908} local ES{5909} local [clone [inside DYNAMIC-PARSE-EXPRESSION* 101] 5557] reentrant [clone [inside DYNAMIC-PARSE-EXPRESSION* 100] 5556] reentrant [clone DYNAMIC-PARSE-EXPRESSION*[99] 5555] reentrant has the following parameters: ENV{5904} local EXPRS{5905} local [clone [inside PE* 104] 5552] reentrant [clone PE*[102] 5550] reentrant has the following parameters: RESULTS{5902} local ES{5903} local [clone [inside DYNAMIC-PARSE-EXPRESSION* 101] 5549] reentrant [clone [inside DYNAMIC-PARSE-EXPRESSION* 100] 5548] reentrant [clone DYNAMIC-PARSE-EXPRESSION*[99] 5547] reentrant has the following parameters: ENV{5898} local EXPRS{5899} local [clone REVERSE[1146] 5541] has the following parameter: S{5897} local [clone REVERSE[1146] 5535] has the following parameter: S{5896} local [clone REVERSE[1146] 5529] has the following parameter: S{5895} local [clone REVERSE[1146] 5523] has the following parameter: S{5894} local [clone [inside LOOP? 1031] 5521] has the following parameter: v{5893} local [clone [inside LOOP? 1030] 5520] has the following parameter: FAST{5892} local [clone [inside LOOP? 1029] 5519] has the following parameter: v{5891} local [clone LOOP?[1028] 5518] has the following parameters: SLOW{5889} local FAST{5890} local [clone [inside LIST? 1025] 5515] has the following parameter: v{5886} local [clone LIST?[1024] 5514] has the following parameter: X{5885} local [clone [inside LOOP? 1031] 5512] has the following parameter: v{5884} local [clone [inside LOOP? 1030] 5511] has the following parameter: FAST{5883} local [clone [inside LOOP? 1029] 5510] has the following parameter: v{5882} local [clone LOOP?[1028] 5509] has the following parameters: SLOW{5880} local FAST{5881} local [clone [inside LIST? 1025] 5506] has the following parameter: v{5877} local [clone LIST?[1024] 5505] has the following parameter: X{5876} local [clone [inside LOOP? 1031] 5503] has the following parameter: v{5875} local [clone [inside LOOP? 1030] 5502] has the following parameter: FAST{5874} local [clone [inside LOOP? 1029] 5501] has the following parameter: v{5873} local [clone LOOP?[1028] 5500] has the following parameters: SLOW{5871} local FAST{5872} local [clone [inside LIST? 1025] 5497] has the following parameter: v{5868} local [clone LIST?[1024] 5496] has the following parameter: X{5867} local [clone [inside LOOP? 1031] 5494] has the following parameter: v{5866} local [clone [inside LOOP? 1030] 5493] has the following parameter: FAST{5865} local [clone [inside LOOP? 1029] 5492] has the following parameter: v{5864} local [clone LOOP?[1028] 5491] has the following parameters: SLOW{5862} local FAST{5863} local [clone [inside LIST? 1025] 5488] has the following parameter: v{5859} local [clone LIST?[1024] 5487] has the following parameter: X{5858} local [clone [inside LOOP? 1031] 5485] has the following parameter: v{5857} local [clone [inside LOOP? 1030] 5484] has the following parameter: FAST{5856} local [clone [inside LOOP? 1029] 5483] has the following parameter: v{5855} local [clone LOOP?[1028] 5482] has the following parameters: SLOW{5853} local FAST{5854} local [clone [inside LIST? 1025] 5479] has the following parameter: v{5850} local [clone LIST?[1024] 5478] has the following parameter: X{5849} local [clone EXTEND-ENV-WITH-ENV[23] 5477] has the following parameters: ENV{5847} local EXT-ENV{5848} local [clone EXTEND-ENV-WITH-ENV[23] 5476] has the following parameters: ENV{5845} local EXT-ENV{5846} local [clone EXTEND-ENV-WITH-ENV[23] 5475] has the following parameters: ENV{5843} local EXT-ENV{5844} local [clone EXTEND-ENV-WITH-ENV[23] 5474] has the following parameters: ENV{5841} local EXT-ENV{5842} local [clone EXTEND-ENV-WITH-ENV[23] 5473] has the following parameters: ENV{5839} local EXT-ENV{5840} local [clone EXTEND-ENV-WITH-ENV[23] 5472] has the following parameters: ENV{5837} local EXT-ENV{5838} local [clone [inside FIND! 258] 5470] has the following parameter: REP-ELEM{5835} local [clone [inside FIND! 257] 5469] reentrant has the following parameter: P-ELEM{5834} local [clone [inside FIND! 258] 5466] has the following parameter: REP-ELEM{5831} local [clone [inside FIND! 257] 5465] reentrant has the following parameter: P-ELEM{5830} local [clone [inside FIND! 258] 5462] has the following parameter: REP-ELEM{5827} local [clone [inside FIND! 257] 5461] reentrant has the following parameter: P-ELEM{5826} local [clone [inside FIND! 258] 5458] has the following parameter: REP-ELEM{5823} local [clone [inside FIND! 257] 5457] reentrant has the following parameter: P-ELEM{5822} local [clone [inside FIND! 258] 5454] has the following parameter: REP-ELEM{5819} local [clone [inside FIND! 257] 5453] reentrant has the following parameter: P-ELEM{5818} local [clone [inside FIND! 258] 5450] has the following parameter: REP-ELEM{5815} local [clone [inside FIND! 257] 5449] reentrant has the following parameter: P-ELEM{5814} local [clone [inside FIND! 258] 5446] has the following parameter: REP-ELEM{5811} local [clone [inside FIND! 257] 5445] reentrant has the following parameter: P-ELEM{5810} local [clone [inside FIND! 258] 5442] has the following parameter: REP-ELEM{5807} local [clone [inside FIND! 257] 5441] reentrant has the following parameter: P-ELEM{5806} local [clone [inside FIND! 258] 5438] has the following parameter: REP-ELEM{5803} local [clone [inside FIND! 257] 5437] reentrant has the following parameter: P-ELEM{5802} local [clone [inside FIND! 258] 5434] has the following parameter: REP-ELEM{5799} local [clone [inside FIND! 257] 5433] reentrant has the following parameter: P-ELEM{5798} local [clone [inside FIND! 258] 5430] has the following parameter: REP-ELEM{5795} local [clone [inside FIND! 257] 5429] reentrant has the following parameter: P-ELEM{5794} local [clone [inside DYNAMIC-PARSE-FORMAL 41] 5427] has the following parameter: DYNAMIC-PARSE-ACTION-RESULT{5792} local [clone [inside DYNAMIC-PARSE-FORMAL 40] 5426] reentrant [clone DYNAMIC-PARSE-FORMAL[37] 5423] reentrant has the following parameters: F-ENV{5790} local E{5791} local [clone [inside DYNAMIC-PARSE-FORMAL 41] 5422] has the following parameter: DYNAMIC-PARSE-ACTION-RESULT{5789} local [clone [inside DYNAMIC-PARSE-FORMAL 40] 5421] reentrant [clone DYNAMIC-PARSE-FORMAL[37] 5418] reentrant has the following parameters: F-ENV{5787} local E{5788} local [clone [inside DYNAMIC-PARSE-FORMAL 41] 5417] has the following parameter: DYNAMIC-PARSE-ACTION-RESULT{5786} local [clone [inside DYNAMIC-PARSE-FORMAL 40] 5416] reentrant [clone DYNAMIC-PARSE-FORMAL[37] 5413] reentrant has the following parameter: E{5785} local [clone [inside DYNAMIC-PARSE-FORMAL 41] 5412] has the following parameter: DYNAMIC-PARSE-ACTION-RESULT{5783} local [clone [inside DYNAMIC-PARSE-FORMAL 40] 5411] reentrant [clone DYNAMIC-PARSE-FORMAL[37] 5408] reentrant has the following parameters: F-ENV{5781} local E{5782} local [clone [inside DYNAMIC-PARSE-VARIABLE 117] 5407] reentrant has the following parameter: ASSOC-VAR-DEF{5780} local [clone DYNAMIC-PARSE-VARIABLE[116] 5406] reentrant has the following parameters: ENV{5778} local E{5779} local [clone [inside DYNAMIC-PARSE-VARIABLE 117] 5405] reentrant has the following parameter: ASSOC-VAR-DEF{5777} local [clone DYNAMIC-PARSE-VARIABLE[116] 5404] reentrant has the following parameters: ENV{5775} local E{5776} local [clone [inside DYNAMIC-PARSE-VARIABLE 117] 5403] reentrant has the following parameter: ASSOC-VAR-DEF{5774} local [clone DYNAMIC-PARSE-VARIABLE[116] 5402] reentrant has the following parameters: ENV{5772} local E{5773} local [clone DYNAMIC-PARSE-ACTION-VAR-DEF[369] 5401] reentrant has the following parameter: E{5771} local [clone DYNAMIC-PARSE-ACTION-VAR-DEF[369] 5400] reentrant has the following parameter: E{5770} local [clone [inside FORALL5 334] 5399] has parent parameter [clone [inside FORALL5 333] 5398] has the following parameters: TV2{5766} local TV3{5767} local TV4{5768} local TV5{5769} local [clone [inside FORALL5 333] 5398] has closure has the following parameter: TV1{5765} slotted [clone [inside FORALL4 331] 5396] has parent parameter [clone [inside FORALL4 330] 5395] has the following parameters: TV2{5761} local TV3{5762} local TV4{5763} local [clone [inside FORALL4 330] 5395] has closure has the following parameter: TV1{5760} slotted [clone [inside FORALL4 331] 5393] has parent parameter [clone [inside FORALL4 330] 5392] has the following parameters: TV2{5756} local TV3{5757} local TV4{5758} local [clone [inside FORALL4 330] 5392] has closure has the following parameter: TV1{5755} slotted [clone [inside FORALL4 331] 5390] has parent parameter [clone [inside FORALL4 330] 5389] has the following parameters: TV2{5751} local TV3{5752} local TV4{5753} local [clone [inside FORALL4 330] 5389] has closure has the following parameter: TV1{5750} slotted [clone [inside FORALL4 331] 5387] has parent parameter [clone [inside FORALL4 330] 5386] has the following parameters: TV2{5746} local TV3{5747} local TV4{5748} local [clone [inside FORALL4 330] 5386] has closure has the following parameter: TV1{5745} slotted [clone [inside FORALL4 331] 5384] has parent parameter [clone [inside FORALL4 330] 5383] has the following parameters: TV2{5741} local TV3{5742} local TV4{5743} local [clone [inside FORALL4 330] 5383] has closure has the following parameter: TV1{5740} slotted [clone [inside FORALL4 331] 5381] has parent parameter [clone [inside FORALL4 330] 5380] has the following parameters: TV2{5736} local TV3{5737} local TV4{5738} local [clone [inside FORALL4 330] 5380] has closure has the following parameter: TV1{5735} slotted [clone [inside FORALL4 331] 5378] has parent parameter [clone [inside FORALL4 330] 5377] has the following parameters: TV2{5731} local TV3{5732} local TV4{5733} local [clone [inside FORALL4 330] 5377] has closure has the following parameter: TV1{5730} slotted [clone [inside FORALL4 331] 5375] has parent parameter [clone [inside FORALL4 330] 5374] has the following parameters: TV2{5726} local TV3{5727} local TV4{5728} local [clone [inside FORALL4 330] 5374] has closure has the following parameter: TV1{5725} slotted [clone [inside FORALL3 328] 5372] has parent parameter [clone [inside FORALL3 327] 5371] has the following parameters: TV2{5722} local TV3{5723} local [clone [inside FORALL3 327] 5371] has closure has the following parameter: TV1{5721} slotted [clone [inside FORALL3 328] 5369] has parent parameter [clone [inside FORALL3 327] 5368] has the following parameters: TV2{5718} local TV3{5719} local [clone [inside FORALL3 327] 5368] has closure has the following parameter: TV1{5717} slotted [clone [inside FORALL3 328] 5366] has parent parameter [clone [inside FORALL3 327] 5365] has the following parameters: TV2{5714} local TV3{5715} local [clone [inside FORALL3 327] 5365] has closure has the following parameter: TV1{5713} slotted [clone [inside FORALL3 328] 5363] has parent parameter [clone [inside FORALL3 327] 5362] has the following parameters: TV2{5710} local TV3{5711} local [clone [inside FORALL3 327] 5362] has closure has the following parameter: TV1{5709} slotted [clone [inside FORALL2 325] 5360] has parent parameter [clone [inside FORALL2 324] 5359] has the following parameter: TV2{5707} local [clone [inside FORALL2 324] 5359] has closure has the following parameter: TV1{5706} slotted [clone [inside FORALL2 325] 5357] has parent parameter [clone [inside FORALL2 324] 5356] has the following parameter: TV2{5704} local [clone [inside FORALL2 324] 5356] has closure has the following parameter: TV1{5703} slotted [clone [inside FORALL2 325] 5354] has parent parameter [clone [inside FORALL2 324] 5353] has the following parameter: TV2{5701} local [clone [inside FORALL2 324] 5353] has closure has the following parameter: TV1{5700} slotted [clone [inside FORALL2 325] 5351] has parent parameter [clone [inside FORALL2 324] 5350] has the following parameter: TV2{5698} local [clone [inside FORALL2 324] 5350] has closure has the following parameter: TV1{5697} slotted [clone [inside FORALL2 325] 5348] has parent parameter [clone [inside FORALL2 324] 5347] has the following parameter: TV2{5695} local [clone [inside FORALL2 324] 5347] has closure has the following parameter: TV1{5694} slotted [clone [inside FORALL2 325] 5345] has parent parameter [clone [inside FORALL2 324] 5344] has the following parameter: TV2{5692} local [clone [inside FORALL2 324] 5344] has closure has the following parameter: TV1{5691} slotted [clone [inside FORALL2 325] 5342] has parent parameter [clone [inside FORALL2 324] 5341] has the following parameter: TV2{5689} local [clone [inside FORALL2 324] 5341] has closure has the following parameter: TV1{5688} slotted [clone [inside FORALL2 325] 5339] has parent parameter [clone [inside FORALL2 324] 5338] has the following parameter: TV2{5686} local [clone [inside FORALL2 324] 5338] has closure has the following parameter: TV1{5685} slotted [clone [inside FORALL2 325] 5336] has parent parameter [clone [inside FORALL2 324] 5335] has the following parameter: TV2{5683} local [clone [inside FORALL2 324] 5335] has closure has the following parameter: TV1{5682} slotted [clone [inside FORALL2 325] 5333] has parent parameter [clone [inside FORALL2 324] 5332] has the following parameter: TV2{5680} local [clone [inside FORALL2 324] 5332] has closure has the following parameter: TV1{5679} slotted [clone [inside FORALL2 325] 5330] has parent parameter [clone [inside FORALL2 324] 5329] has the following parameter: TV2{5677} local [clone [inside FORALL2 324] 5329] has closure has the following parameter: TV1{5676} slotted [clone [inside FORALL2 325] 5327] has parent parameter [clone [inside FORALL2 324] 5326] has the following parameter: TV2{5674} local [clone [inside FORALL2 324] 5326] has closure has the following parameter: TV1{5673} slotted [clone [inside FORALL2 325] 5324] has parent parameter [clone [inside FORALL2 324] 5323] has the following parameter: TV2{5671} local [clone [inside FORALL2 324] 5323] has closure has the following parameter: TV1{5670} slotted [clone [inside FORALL2 325] 5321] has parent parameter [clone [inside FORALL2 324] 5320] has the following parameter: TV2{5668} local [clone [inside FORALL2 324] 5320] has closure has the following parameter: TV1{5667} slotted [clone [inside CONVERT-TVARS 533] 5317] reentrant [clone [inside CONVERT-TVARS 533] 5313] reentrant [clone [inside CONVERT-TVARS 533] 5309] reentrant [clone [inside CONVERT-TVARS 533] 5305] reentrant [clone [inside CONVERT-TVARS 533] 5301] reentrant [clone [inside CONVERT-TVARS 533] 5297] reentrant [clone [inside CONVERT-TVARS 533] 5293] reentrant [clone [inside CONVERT-TVARS 533] 5289] reentrant [clone [inside CONVERT-TVARS 533] 5285] reentrant [clone [inside CONVERT-TVARS 533] 5281] reentrant [clone [inside CONVERT-TVARS 533] 5277] reentrant [clone [inside CONVERT-TVARS 533] 5273] reentrant [clone [inside CONVERT-TVARS 533] 5269] reentrant [clone [inside CONVERT-TVARS 533] 5265] reentrant [clone [inside CONVERT-TVARS 533] 5261] reentrant [clone [inside CONVERT-TVARS 533] 5257] reentrant [clone [inside CONVERT-TVARS 533] 5253] reentrant [clone [inside CONVERT-TVARS 533] 5249] reentrant [clone [inside CONVERT-TVARS 533] 5245] reentrant [clone [inside CONVERT-TVARS 533] 5241] reentrant [clone [inside CONVERT-TVARS 533] 5237] reentrant [clone [inside CONVERT-TVARS 533] 5233] reentrant [clone [inside CONVERT-TVARS 533] 5229] reentrant [clone [inside CONVERT-TVARS 533] 5225] reentrant [clone [inside CONVERT-TVARS 533] 5221] reentrant [clone [inside CONVERT-TVARS 533] 5217] reentrant [clone [inside CONVERT-TVARS 533] 5213] reentrant [clone [inside CONVERT-TVARS 533] 5209] reentrant [clone [inside CONVERT-TVARS 533] 5205] reentrant [clone [inside CONVERT-TVARS 533] 5201] reentrant [clone [inside CONVERT-TVARS 533] 5197] reentrant [clone [inside CONVERT-TVARS 533] 5193] reentrant [clone [inside CONVERT-TVARS 533] 5189] reentrant [clone [inside CONVERT-TVARS 533] 5185] reentrant [clone [inside CONVERT-TVARS 533] 5181] reentrant [clone [inside CONVERT-TVARS 533] 5177] reentrant [clone [inside CONVERT-TVARS 533] 5173] reentrant [clone [inside CONVERT-TVARS 533] 5169] reentrant [clone [inside CONVERT-TVARS 533] 5165] reentrant [clone [inside CONVERT-TVARS 533] 5161] reentrant [clone [inside CONVERT-TVARS 533] 5157] reentrant [clone [inside CONVERT-TVARS 533] 5153] reentrant [clone [inside CONVERT-TVARS 533] 5149] reentrant [clone [inside CONVERT-TVARS 533] 5145] reentrant [clone [inside CONVERT-TVARS 533] 5141] reentrant [clone [inside CONVERT-TVARS 533] 5137] reentrant [clone [inside CONVERT-TVARS 533] 5133] reentrant [clone [inside CONVERT-TVARS 533] 5129] reentrant [clone [inside CONVERT-TVARS 533] 5125] reentrant [clone [inside CONVERT-TVARS 533] 5121] reentrant [clone [inside CONVERT-TVARS 533] 5117] reentrant [clone [inside CONVERT-TVARS 533] 5113] reentrant [clone [inside CONVERT-TVARS 533] 5109] reentrant [clone [inside CONVERT-TVARS 533] 5105] reentrant [clone [inside CONVERT-TVARS 533] 5101] reentrant [clone [inside CONVERT-TVARS 533] 5097] reentrant [clone [inside CONVERT-TVARS 533] 5093] reentrant [clone [inside CONVERT-TVARS 533] 5089] reentrant [clone [inside CONVERT-TVARS 533] 5085] reentrant [clone [inside CONVERT-TVARS 533] 5081] reentrant [clone [inside CONVERT-TVARS 533] 5077] reentrant [clone [inside CONVERT-TVARS 533] 5073] reentrant [clone [inside CONVERT-TVARS 533] 5069] reentrant [clone [inside CONVERT-TVARS 533] 5065] reentrant [clone [inside CONVERT-TVARS 533] 5061] reentrant [clone [inside CONVERT-TVARS 533] 5057] reentrant [clone [inside CONVERT-TVARS 533] 5053] reentrant [clone [inside CONVERT-TVARS 533] 5049] reentrant [clone [inside CONVERT-TVARS 533] 5045] reentrant [clone [inside CONVERT-TVARS 533] 5041] reentrant [clone [inside CHAR-SUBSEQUENT? 2288] 5038] has the following parameter: v{5595} local [clone [inside CHAR-SUBSEQUENT? 2287] 5037] has the following parameter: v{5594} local [clone [inside CHAR-SUBSEQUENT? 2286] 5036] has the following parameter: v{5593} local [clone [inside CHAR-SUBSEQUENT? 2285] 5035] has the following parameter: v{5592} local [clone CHAR-SUBSEQUENT?[2284] 5034] has the following parameter: C{5591} local [clone [inside CHAR-SUBSEQUENT? 2288] 5033] has the following parameter: v{5590} local [clone [inside CHAR-SUBSEQUENT? 2287] 5032] has the following parameter: v{5589} local [clone [inside CHAR-SUBSEQUENT? 2286] 5031] has the following parameter: v{5588} local [clone [inside CHAR-SUBSEQUENT? 2285] 5030] has the following parameter: v{5587} local [clone CHAR-SUBSEQUENT?[2284] 5029] has the following parameter: C{5586} local [clone [inside CHAR-SUBSEQUENT? 2288] 5028] has the following parameter: v{5585} local [clone [inside CHAR-SUBSEQUENT? 2287] 5027] has the following parameter: v{5584} local [clone [inside CHAR-SUBSEQUENT? 2286] 5026] has the following parameter: v{5583} local [clone [inside CHAR-SUBSEQUENT? 2285] 5025] has the following parameter: v{5582} local [clone CHAR-SUBSEQUENT?[2284] 5024] has the following parameter: C{5581} local [clone [inside CHAR-SUBSEQUENT? 2288] 5023] has the following parameter: v{5580} local [clone [inside CHAR-SUBSEQUENT? 2287] 5022] has the following parameter: v{5579} local [clone [inside CHAR-SUBSEQUENT? 2286] 5021] has the following parameter: v{5578} local [clone [inside CHAR-SUBSEQUENT? 2285] 5020] has the following parameter: v{5577} local [clone CHAR-SUBSEQUENT?[2284] 5019] has the following parameter: C{5576} local [clone [inside CHAR-SUBSEQUENT? 2288] 5018] has the following parameter: v{5575} local [clone [inside CHAR-SUBSEQUENT? 2287] 5017] has the following parameter: v{5574} local [clone [inside CHAR-SUBSEQUENT? 2286] 5016] has the following parameter: v{5573} local [clone [inside CHAR-SUBSEQUENT? 2285] 5015] has the following parameter: v{5572} local [clone CHAR-SUBSEQUENT?[2284] 5014] has the following parameter: C{5571} local [clone DYNAMIC-LOOKUP[24] 5013] has the following parameters: X{5569} local L{5570} local [clone DYNAMIC-LOOKUP[24] 5012] has the following parameters: X{5567} local L{5568} local [clone TAG-SHOW[585] 5007] has the following parameters: TVAR-REP{5563} local PROG{5564} local [clone TAG-SHOW[585] 5002] has the following parameters: TVAR-REP{5559} local PROG{5560} local [clone TAG-SHOW[585] 4997] has the following parameters: TVAR-REP{5555} local PROG{5556} local [clone TAG-SHOW[585] 4992] has the following parameters: TVAR-REP{5551} local PROG{5552} local [clone TAG-SHOW[585] 4987] has the following parameters: TVAR-REP{5547} local PROG{5548} local [clone [inside CHAR-ALPHABETIC? 1529] 4986] has the following parameter: v{5546} local [clone CHAR-ALPHABETIC?[1528] 4985] has the following parameter: CHAR{5545} local [clone [inside CHAR-ALPHABETIC? 1529] 4984] has the following parameter: v{5544} local [clone CHAR-ALPHABETIC?[1528] 4983] has the following parameter: CHAR{5543} local [clone CHAR-UPCASE[1541] 4982] has the following parameter: CHAR{5542} local [clone CHAR-UPCASE[1541] 4981] has the following parameter: CHAR{5541} local [clone CHAR-UPCASE[1541] 4980] has the following parameter: CHAR{5540} local [clone CHAR-UPCASE[1541] 4979] has the following parameter: CHAR{5539} local [clone CHAR-UPCASE[1541] 4978] has the following parameter: CHAR{5538} local [clone CHAR-UPCASE[1541] 4977] has the following parameter: CHAR{5537} local [clone CHAR-UPCASE[1541] 4976] has the following parameter: CHAR{5536} local [clone CHAR-UPCASE[1541] 4975] has the following parameter: CHAR{5535} local [clone CHAR-UPCASE[1541] 4974] has the following parameter: CHAR{5534} local [clone CHAR-UPCASE[1541] 4973] has the following parameter: CHAR{5533} local [clone CHAR-UPCASE[1541] 4972] has the following parameter: CHAR{5532} local [clone CHAR-UPCASE[1541] 4971] has the following parameter: CHAR{5531} local [clone CHAR-UPCASE[1541] 4970] has the following parameter: CHAR{5530} local [clone CHAR-UPCASE[1541] 4969] has the following parameter: CHAR{5529} local [clone CHAR-UPCASE[1541] 4968] has the following parameter: CHAR{5528} local [clone PAIR[296] 4967] has the following parameters: TVAR-1{5526} local TVAR-2{5527} local [clone PAIR[296] 4966] has the following parameters: TVAR-1{5524} local TVAR-2{5525} local [clone PAIR[296] 4965] has the following parameters: TVAR-1{5522} local TVAR-2{5523} local [clone PAIR[296] 4964] has the following parameters: TVAR-1{5520} local TVAR-2{5521} local [clone PAIR[296] 4963] has the following parameters: TVAR-1{5518} local TVAR-2{5519} local [clone PAIR[296] 4962] has the following parameters: TVAR-1{5516} local TVAR-2{5517} local [clone PAIR[296] 4961] has the following parameters: TVAR-1{5514} local TVAR-2{5515} local [clone PAIR[296] 4960] has the following parameters: TVAR-1{5512} local TVAR-2{5513} local [clone PAIR[296] 4959] has the following parameters: TVAR-1{5510} local TVAR-2{5511} local [clone PAIR[296] 4958] has the following parameters: TVAR-1{5508} local TVAR-2{5509} local [clone PAIR[296] 4957] has the following parameters: TVAR-1{5506} local TVAR-2{5507} local [clone PAIR[296] 4956] has the following parameters: TVAR-1{5504} local TVAR-2{5505} local [clone PAIR[296] 4955] has the following parameters: TVAR-1{5502} local TVAR-2{5503} local [clone PAIR[296] 4954] has the following parameters: TVAR-1{5500} local TVAR-2{5501} local [clone PAIR[296] 4953] has the following parameters: TVAR-1{5498} local TVAR-2{5499} local [clone PAIR[296] 4952] has the following parameters: TVAR-1{5496} local TVAR-2{5497} local [clone PAIR[296] 4951] has the following parameters: TVAR-1{5494} local TVAR-2{5495} local [clone PAIR[296] 4950] has the following parameters: TVAR-1{5492} local TVAR-2{5493} local [clone PAIR[296] 4949] has the following parameters: TVAR-1{5490} local TVAR-2{5491} local [clone PAIR[296] 4948] has the following parameters: TVAR-1{5488} local TVAR-2{5489} local [clone PAIR[296] 4947] has the following parameters: TVAR-1{5486} local TVAR-2{5487} local [clone PAIR[296] 4946] has the following parameters: TVAR-1{5484} local TVAR-2{5485} local [clone PAIR[296] 4945] has the following parameters: TVAR-1{5482} local TVAR-2{5483} local [clone PAIR[296] 4944] has the following parameters: TVAR-1{5480} local TVAR-2{5481} local [clone PAIR[296] 4943] has the following parameters: TVAR-1{5478} local TVAR-2{5479} local [clone PAIR[296] 4942] has the following parameters: TVAR-1{5476} local TVAR-2{5477} local [clone PAIR[296] 4941] has the following parameters: TVAR-1{5474} local TVAR-2{5475} local [clone PAIR[296] 4940] has the following parameters: TVAR-1{5472} local TVAR-2{5473} local [clone PAIR[296] 4939] has the following parameters: TVAR-1{5470} local TVAR-2{5471} local [clone PAIR[296] 4938] has the following parameters: TVAR-1{5468} local TVAR-2{5469} local [clone PAIR[296] 4937] has the following parameters: TVAR-1{5466} local TVAR-2{5467} local [clone PAIR[296] 4936] has the following parameters: TVAR-1{5464} local TVAR-2{5465} local [clone PAIR[296] 4935] has the following parameters: TVAR-1{5462} local TVAR-2{5463} local [clone PAIR[296] 4934] has the following parameters: TVAR-1{5460} local TVAR-2{5461} local [clone PAIR[296] 4933] has the following parameters: TVAR-1{5458} local TVAR-2{5459} local [clone PAIR[296] 4932] has the following parameters: TVAR-1{5456} local TVAR-2{5457} local [clone PAIR[296] 4931] has the following parameters: TVAR-1{5454} local TVAR-2{5455} local [clone PAIR[296] 4930] has the following parameters: TVAR-1{5452} local TVAR-2{5453} local [clone PAIR[296] 4929] has the following parameters: TVAR-1{5450} local TVAR-2{5451} local [clone PAIR[296] 4928] has the following parameters: TVAR-1{5448} local TVAR-2{5449} local [clone PAIR[296] 4927] has the following parameters: TVAR-1{5446} local TVAR-2{5447} local [clone PAIR[296] 4926] has the following parameters: TVAR-1{5444} local TVAR-2{5445} local [clone PAIR[296] 4925] has the following parameters: TVAR-1{5442} local TVAR-2{5443} local [clone PAIR[296] 4924] has the following parameters: TVAR-1{5440} local TVAR-2{5441} local [clone PAIR[296] 4923] has the following parameters: TVAR-1{5438} local TVAR-2{5439} local [clone PAIR[296] 4922] has the following parameters: TVAR-1{5436} local TVAR-2{5437} local [clone PAIR[296] 4921] has the following parameters: TVAR-1{5434} local TVAR-2{5435} local [clone PAIR[296] 4920] has the following parameters: TVAR-1{5432} local TVAR-2{5433} local [clone PAIR[296] 4919] has the following parameters: TVAR-1{5430} local TVAR-2{5431} local [clone PAIR[296] 4918] has the following parameters: TVAR-1{5428} local TVAR-2{5429} local [clone PAIR[296] 4917] has the following parameters: TVAR-1{5426} local TVAR-2{5427} local [clone PAIR[296] 4916] has the following parameters: TVAR-1{5424} local TVAR-2{5425} local [clone PAIR[296] 4915] has the following parameters: TVAR-1{5422} local TVAR-2{5423} local [clone PAIR[296] 4914] has the following parameters: TVAR-1{5420} local TVAR-2{5421} local [clone PAIR[296] 4913] has the following parameters: TVAR-1{5418} local TVAR-2{5419} local [clone PAIR[296] 4912] has the following parameters: TVAR-1{5416} local TVAR-2{5417} local [clone PAIR[296] 4911] has the following parameters: TVAR-1{5414} local TVAR-2{5415} local [clone PROCEDURE[298] 4910] has the following parameters: ARG-TVAR{5412} local RES-TVAR{5413} local [clone PROCEDURE[298] 4909] has the following parameters: ARG-TVAR{5410} local RES-TVAR{5411} local [clone PROCEDURE[298] 4908] has the following parameters: ARG-TVAR{5408} local RES-TVAR{5409} local [clone PROCEDURE[298] 4907] has the following parameters: ARG-TVAR{5406} local RES-TVAR{5407} local [clone PROCEDURE[298] 4906] has the following parameters: ARG-TVAR{5404} local RES-TVAR{5405} local [clone PROCEDURE[298] 4905] has the following parameters: ARG-TVAR{5402} local RES-TVAR{5403} local [clone PROCEDURE[298] 4904] has the following parameters: ARG-TVAR{5400} local RES-TVAR{5401} local [clone PROCEDURE[298] 4903] has the following parameters: ARG-TVAR{5398} local RES-TVAR{5399} local [clone PROCEDURE[298] 4902] has the following parameters: ARG-TVAR{5396} local RES-TVAR{5397} local [clone PROCEDURE[298] 4901] has the following parameters: ARG-TVAR{5394} local RES-TVAR{5395} local [clone PROCEDURE[298] 4900] has the following parameters: ARG-TVAR{5392} local RES-TVAR{5393} local [clone PROCEDURE[298] 4899] has the following parameters: ARG-TVAR{5390} local RES-TVAR{5391} local [clone PROCEDURE[298] 4898] has the following parameters: ARG-TVAR{5388} local RES-TVAR{5389} local [clone PROCEDURE[298] 4897] has the following parameters: ARG-TVAR{5386} local RES-TVAR{5387} local [clone PROCEDURE[298] 4896] has the following parameters: ARG-TVAR{5384} local RES-TVAR{5385} local [clone PROCEDURE[298] 4895] has the following parameters: ARG-TVAR{5382} local RES-TVAR{5383} local [clone PROCEDURE[298] 4894] has the following parameters: ARG-TVAR{5380} local RES-TVAR{5381} local [clone PROCEDURE[298] 4893] has the following parameters: ARG-TVAR{5378} local RES-TVAR{5379} local [clone PROCEDURE[298] 4892] has the following parameters: ARG-TVAR{5376} local RES-TVAR{5377} local [clone PROCEDURE[298] 4891] has the following parameters: ARG-TVAR{5374} local RES-TVAR{5375} local [clone PROCEDURE[298] 4890] has the following parameters: ARG-TVAR{5372} local RES-TVAR{5373} local [clone PROCEDURE[298] 4889] has the following parameters: ARG-TVAR{5370} local RES-TVAR{5371} local [clone PROCEDURE[298] 4888] has the following parameters: ARG-TVAR{5368} local RES-TVAR{5369} local [clone PROCEDURE[298] 4887] has the following parameters: ARG-TVAR{5366} local RES-TVAR{5367} local [clone PROCEDURE[298] 4886] has the following parameters: ARG-TVAR{5364} local RES-TVAR{5365} local [clone PROCEDURE[298] 4885] has the following parameters: ARG-TVAR{5362} local RES-TVAR{5363} local [clone PROCEDURE[298] 4884] has the following parameters: ARG-TVAR{5360} local RES-TVAR{5361} local [clone PROCEDURE[298] 4883] has the following parameters: ARG-TVAR{5358} local RES-TVAR{5359} local [clone PROCEDURE[298] 4882] has the following parameters: ARG-TVAR{5356} local RES-TVAR{5357} local [clone PROCEDURE[298] 4881] has the following parameters: ARG-TVAR{5354} local RES-TVAR{5355} local [clone PROCEDURE[298] 4880] has the following parameters: ARG-TVAR{5352} local RES-TVAR{5353} local [clone PROCEDURE[298] 4879] has the following parameters: ARG-TVAR{5350} local RES-TVAR{5351} local [clone PROCEDURE[298] 4878] has the following parameters: ARG-TVAR{5348} local RES-TVAR{5349} local [clone PROCEDURE[298] 4877] has the following parameters: ARG-TVAR{5346} local RES-TVAR{5347} local [clone PROCEDURE[298] 4876] has the following parameters: ARG-TVAR{5344} local RES-TVAR{5345} local [clone PROCEDURE[298] 4875] has the following parameters: ARG-TVAR{5342} local RES-TVAR{5343} local [clone PROCEDURE[298] 4874] has the following parameters: ARG-TVAR{5340} local RES-TVAR{5341} local [clone PROCEDURE[298] 4873] has the following parameters: ARG-TVAR{5338} local RES-TVAR{5339} local [clone PROCEDURE[298] 4872] has the following parameters: ARG-TVAR{5336} local RES-TVAR{5337} local [clone PROCEDURE[298] 4871] has the following parameters: ARG-TVAR{5334} local RES-TVAR{5335} local [clone PROCEDURE[298] 4870] has the following parameters: ARG-TVAR{5332} local RES-TVAR{5333} local [clone PROCEDURE[298] 4869] has the following parameters: ARG-TVAR{5330} local RES-TVAR{5331} local [clone PROCEDURE[298] 4868] has the following parameters: ARG-TVAR{5328} local RES-TVAR{5329} local [clone PROCEDURE[298] 4867] has the following parameters: ARG-TVAR{5326} local RES-TVAR{5327} local [clone PROCEDURE[298] 4866] has the following parameters: ARG-TVAR{5324} local RES-TVAR{5325} local [clone PROCEDURE[298] 4865] has the following parameters: ARG-TVAR{5322} local RES-TVAR{5323} local [clone PROCEDURE[298] 4864] has the following parameters: ARG-TVAR{5320} local RES-TVAR{5321} local [clone PROCEDURE[298] 4863] has the following parameters: ARG-TVAR{5318} local RES-TVAR{5319} local [clone PROCEDURE[298] 4862] has the following parameters: ARG-TVAR{5316} local RES-TVAR{5317} local [clone PROCEDURE[298] 4861] has the following parameters: ARG-TVAR{5314} local RES-TVAR{5315} local [clone PROCEDURE[298] 4860] has the following parameters: ARG-TVAR{5312} local RES-TVAR{5313} local [clone PROCEDURE[298] 4859] has the following parameters: ARG-TVAR{5310} local RES-TVAR{5311} local [clone PROCEDURE[298] 4858] has the following parameters: ARG-TVAR{5308} local RES-TVAR{5309} local [clone PROCEDURE[298] 4857] has the following parameters: ARG-TVAR{5306} local RES-TVAR{5307} local [clone PROCEDURE[298] 4856] has the following parameters: ARG-TVAR{5304} local RES-TVAR{5305} local [clone PROCEDURE[298] 4855] has the following parameters: ARG-TVAR{5302} local RES-TVAR{5303} local [clone PROCEDURE[298] 4854] has the following parameters: ARG-TVAR{5300} local RES-TVAR{5301} local [clone PROCEDURE[298] 4853] has the following parameters: ARG-TVAR{5298} local RES-TVAR{5299} local [clone PROCEDURE[298] 4852] has the following parameters: ARG-TVAR{5296} local RES-TVAR{5297} local [clone PROCEDURE[298] 4851] has the following parameters: ARG-TVAR{5294} local RES-TVAR{5295} local [clone PROCEDURE[298] 4850] has the following parameters: ARG-TVAR{5292} local RES-TVAR{5293} local [clone PROCEDURE[298] 4849] has the following parameters: ARG-TVAR{5290} local RES-TVAR{5291} local [clone PROCEDURE[298] 4848] has the following parameters: ARG-TVAR{5288} local RES-TVAR{5289} local [clone PROCEDURE[298] 4847] has the following parameters: ARG-TVAR{5286} local RES-TVAR{5287} local [clone PROCEDURE[298] 4846] has the following parameters: ARG-TVAR{5284} local RES-TVAR{5285} local [clone PROCEDURE[298] 4845] has the following parameters: ARG-TVAR{5282} local RES-TVAR{5283} local [clone PROCEDURE[298] 4844] has the following parameters: ARG-TVAR{5280} local RES-TVAR{5281} local [clone PROCEDURE[298] 4843] has the following parameters: ARG-TVAR{5278} local RES-TVAR{5279} local [clone PROCEDURE[298] 4842] has the following parameters: ARG-TVAR{5276} local RES-TVAR{5277} local [clone PROCEDURE[298] 4841] has the following parameters: ARG-TVAR{5274} local RES-TVAR{5275} local [clone PROCEDURE[298] 4840] has the following parameters: ARG-TVAR{5272} local RES-TVAR{5273} local [clone PROCEDURE[298] 4839] has the following parameters: ARG-TVAR{5270} local RES-TVAR{5271} local [clone PROCEDURE[298] 4838] has the following parameters: ARG-TVAR{5268} local RES-TVAR{5269} local [clone PROCEDURE[298] 4837] has the following parameters: ARG-TVAR{5266} local RES-TVAR{5267} local [clone PROCEDURE[298] 4836] has the following parameters: ARG-TVAR{5264} local RES-TVAR{5265} local [clone FORALL[322] 4807] has the following parameter: TV-FUNC{5235} local [clone FORALL[322] 4806] has the following parameter: TV-FUNC{5234} local [clone FORALL[322] 4805] has the following parameter: TV-FUNC{5233} local [clone [inside EQV? 977] 4803] has the following parameter: v{5231} local [clone [inside EQV? 976] 4802] has the following parameter: v{5230} local [clone EQV?[975] 4801] has the following parameters: OBJ1{5228} local OBJ2{5229} local [clone [inside EQV? 977] 4799] has the following parameter: v{5226} local [clone [inside EQV? 976] 4798] has the following parameter: v{5225} local [clone EQV?[975] 4797] has the following parameters: OBJ1{5223} local OBJ2{5224} local [clone [inside EQV? 977] 4795] has the following parameter: v{5221} local [clone [inside EQV? 976] 4794] has the following parameter: v{5220} local [clone EQV?[975] 4793] has the following parameters: OBJ1{5218} local OBJ2{5219} local [clone [inside EQV? 977] 4791] has the following parameter: v{5216} local [clone [inside EQV? 976] 4790] has the following parameter: v{5215} local [clone EQV?[975] 4789] has the following parameters: OBJ1{5213} local OBJ2{5214} local [clone [inside EQV? 977] 4787] has the following parameter: v{5211} local [clone [inside EQV? 976] 4786] has the following parameter: v{5210} local [clone EQV?[975] 4785] has the following parameters: OBJ1{5208} local OBJ2{5209} local [clone [inside EQV? 977] 4783] has the following parameter: v{5206} local [clone [inside EQV? 976] 4782] has the following parameter: v{5205} local [clone EQV?[975] 4781] has the following parameters: OBJ1{5203} local OBJ2{5204} local [clone [inside EQV? 977] 4779] has the following parameter: v{5201} local [clone [inside EQV? 976] 4778] has the following parameter: v{5200} local [clone EQV?[975] 4777] has the following parameters: OBJ1{5198} local OBJ2{5199} local [clone [inside EQV? 977] 4775] has the following parameter: v{5196} local [clone [inside EQV? 976] 4774] has the following parameter: v{5195} local [clone EQV?[975] 4773] has the following parameters: OBJ1{5193} local OBJ2{5194} local [clone [inside EQV? 977] 4771] has the following parameter: v{5191} local [clone [inside EQV? 976] 4770] has the following parameter: v{5190} local [clone EQV?[975] 4769] has the following parameters: OBJ1{5188} local OBJ2{5189} local [clone [inside EQV? 977] 4767] has the following parameter: v{5186} local [clone [inside EQV? 976] 4766] has the following parameter: v{5185} local [clone EQV?[975] 4765] has the following parameters: OBJ1{5183} local OBJ2{5184} local [clone [inside EQV? 977] 4763] has the following parameter: v{5181} local [clone [inside EQV? 976] 4762] has the following parameter: v{5180} local [clone EQV?[975] 4761] has the following parameters: OBJ1{5178} local OBJ2{5179} local [clone [inside EQV? 977] 4759] has the following parameter: v{5176} local [clone [inside EQV? 976] 4758] has the following parameter: v{5175} local [clone EQV?[975] 4757] has the following parameters: OBJ1{5173} local OBJ2{5174} local [clone [inside EQV? 977] 4755] has the following parameter: v{5171} local [clone [inside EQV? 976] 4754] has the following parameter: v{5170} local [clone EQV?[975] 4753] has the following parameters: OBJ1{5168} local OBJ2{5169} local [clone [inside EQV? 977] 4751] has the following parameter: v{5166} local [clone [inside EQV? 976] 4750] has the following parameter: v{5165} local [clone EQV?[975] 4749] has the following parameters: OBJ1{5163} local OBJ2{5164} local [clone [inside EQV? 977] 4747] has the following parameter: v{5161} local [clone [inside EQV? 976] 4746] has the following parameter: v{5160} local [clone EQV?[975] 4745] has the following parameters: OBJ1{5158} local OBJ2{5159} local [clone [inside EQV? 977] 4743] has the following parameter: v{5156} local [clone [inside EQV? 976] 4742] has the following parameter: v{5155} local [clone EQV?[975] 4741] has the following parameters: OBJ1{5153} local OBJ2{5154} local [clone [inside EQV? 977] 4739] has the following parameter: v{5151} local [clone [inside EQV? 976] 4738] has the following parameter: v{5150} local [clone EQV?[975] 4737] has the following parameters: OBJ1{5148} local OBJ2{5149} local [clone [inside EQV? 977] 4735] has the following parameter: v{5146} local [clone [inside EQV? 976] 4734] has the following parameter: v{5145} local [clone EQV?[975] 4733] has the following parameters: OBJ1{5143} local OBJ2{5144} local [clone [inside EQV? 977] 4731] has the following parameter: v{5141} local [clone [inside EQV? 976] 4730] has the following parameter: v{5140} local [clone EQV?[975] 4729] has the following parameters: OBJ1{5138} local OBJ2{5139} local [clone [inside EQV? 977] 4727] has the following parameter: v{5136} local [clone [inside EQV? 976] 4726] has the following parameter: v{5135} local [clone EQV?[975] 4725] has the following parameters: OBJ1{5133} local OBJ2{5134} local [clone [inside EQV? 977] 4723] has the following parameter: v{5131} local [clone [inside EQV? 976] 4722] has the following parameter: v{5130} local [clone EQV?[975] 4721] has the following parameters: OBJ1{5128} local OBJ2{5129} local [clone [inside EQV? 977] 4719] has the following parameter: v{5126} local [clone [inside EQV? 976] 4718] has the following parameter: v{5125} local [clone EQV?[975] 4717] has the following parameters: OBJ1{5123} local OBJ2{5124} local [clone [inside EQV? 977] 4715] has the following parameter: v{5121} local [clone [inside EQV? 976] 4714] has the following parameter: v{5120} local [clone EQV?[975] 4713] has the following parameters: OBJ1{5118} local OBJ2{5119} local [clone [inside EQV? 977] 4711] has the following parameter: v{5116} local [clone [inside EQV? 976] 4710] has the following parameter: v{5115} local [clone EQV?[975] 4709] has the following parameters: OBJ1{5113} local OBJ2{5114} local [clone [inside EQV? 977] 4707] has the following parameter: v{5111} local [clone [inside EQV? 976] 4706] has the following parameter: v{5110} local [clone EQV?[975] 4705] has the following parameters: OBJ1{5108} local OBJ2{5109} local [clone [inside EQV? 977] 4703] has the following parameter: v{5106} local [clone [inside EQV? 976] 4702] has the following parameter: v{5105} local [clone EQV?[975] 4701] has the following parameters: OBJ1{5103} local OBJ2{5104} local [clone [inside EQV? 977] 4699] has the following parameter: v{5101} local [clone [inside EQV? 976] 4698] has the following parameter: v{5100} local [clone EQV?[975] 4697] has the following parameters: OBJ1{5098} local OBJ2{5099} local [clone [inside EQV? 977] 4695] has the following parameter: v{5096} local [clone [inside EQV? 976] 4694] has the following parameter: v{5095} local [clone EQV?[975] 4693] has the following parameters: OBJ1{5093} local OBJ2{5094} local [clone [inside EQV? 977] 4691] has the following parameter: v{5091} local [clone [inside EQV? 976] 4690] has the following parameter: v{5090} local [clone EQV?[975] 4689] has the following parameters: OBJ1{5088} local OBJ2{5089} local [clone [inside EQV? 977] 4687] has the following parameter: v{5086} local [clone [inside EQV? 976] 4686] has the following parameter: v{5085} local [clone EQV?[975] 4685] has the following parameters: OBJ1{5083} local OBJ2{5084} local [clone [inside EQV? 977] 4683] has the following parameter: v{5081} local [clone [inside EQV? 976] 4682] has the following parameter: v{5080} local [clone EQV?[975] 4681] has the following parameters: OBJ1{5078} local OBJ2{5079} local [clone [inside EQV? 977] 4679] has the following parameter: v{5076} local [clone [inside EQV? 976] 4678] has the following parameter: v{5075} local [clone EQV?[975] 4677] has the following parameters: OBJ1{5073} local OBJ2{5074} local [clone [inside EQV? 977] 4675] has the following parameter: v{5071} local [clone [inside EQV? 976] 4674] has the following parameter: v{5070} local [clone EQV?[975] 4673] has the following parameters: OBJ1{5068} local OBJ2{5069} local [clone [inside EQV? 978] 4672] has the following parameter: v{5067} local [clone [inside EQV? 977] 4671] has the following parameter: v{5066} local [clone [inside EQV? 976] 4670] has the following parameter: v{5065} local [clone EQV?[975] 4669] has the following parameters: OBJ1{5063} local OBJ2{5064} local [clone [inside EQV? 976] 4666] has the following parameter: v{5060} local [clone EQV?[975] 4665] has the following parameter: OBJ1{5058} local [clone [inside EQV? 976] 4662] has the following parameter: v{5055} local [clone EQV?[975] 4661] has the following parameter: OBJ1{5053} local [clone [inside EQV? 976] 4658] has the following parameter: v{5050} local [clone EQV?[975] 4657] has the following parameter: OBJ1{5048} local [clone [inside EQV? 976] 4654] has the following parameter: v{5045} local [clone EQV?[975] 4653] has the following parameter: OBJ1{5043} local [clone [inside EQV? 976] 4650] has the following parameter: v{5040} local [clone EQV?[975] 4649] has the following parameter: OBJ1{5038} local [clone [inside EQV? 976] 4646] has the following parameter: v{5035} local [clone EQV?[975] 4645] has the following parameter: OBJ1{5033} local [clone [inside EQV? 976] 4642] has the following parameter: v{5030} local [clone EQV?[975] 4641] has the following parameter: OBJ1{5028} local [clone [inside EQV? 976] 4638] has the following parameter: v{5025} local [clone EQV?[975] 4637] has the following parameter: OBJ1{5023} local [clone [inside EQV? 976] 4634] has the following parameter: v{5020} local [clone EQV?[975] 4633] has the following parameter: OBJ1{5018} local [clone [inside EQV? 976] 4630] has the following parameter: v{5015} local [clone EQV?[975] 4629] has the following parameter: OBJ1{5013} local [clone [inside EQV? 976] 4626] has the following parameter: v{5010} local [clone EQV?[975] 4625] has the following parameter: OBJ1{5008} local [clone [inside EQV? 976] 4622] has the following parameter: v{5005} local [clone EQV?[975] 4621] has the following parameter: OBJ1{5003} local [clone [inside EQV? 976] 4618] has the following parameter: v{5000} local [clone EQV?[975] 4617] has the following parameter: OBJ1{4998} local [clone [inside EQV? 976] 4614] has the following parameter: v{4995} local [clone EQV?[975] 4613] has the following parameter: OBJ1{4993} local [clone [inside EQV? 976] 4610] has the following parameter: v{4990} local [clone EQV?[975] 4609] has the following parameter: OBJ1{4988} local [clone [inside EQV? 976] 4606] has the following parameter: v{4985} local [clone EQV?[975] 4605] has the following parameter: OBJ1{4983} local [clone [inside EQV? 976] 4602] has the following parameter: v{4980} local [clone EQV?[975] 4601] has the following parameter: OBJ1{4978} local [clone [inside EQV? 976] 4598] has the following parameter: v{4975} local [clone EQV?[975] 4597] has the following parameter: OBJ1{4973} local [clone [inside EQV? 976] 4594] has the following parameter: v{4970} local [clone EQV?[975] 4593] has the following parameter: OBJ1{4968} local [clone [inside EQV? 976] 4590] has the following parameter: v{4965} local [clone EQV?[975] 4589] has the following parameter: OBJ1{4963} local [clone [inside EQV? 976] 4586] has the following parameter: v{4960} local [clone EQV?[975] 4585] has the following parameter: OBJ1{4958} local [clone [inside EQV? 977] 4583] has the following parameter: v{4956} local [clone [inside EQV? 976] 4582] has the following parameter: v{4955} local [clone EQV?[975] 4581] has the following parameters: OBJ1{4953} local OBJ2{4954} local [clone [inside EQV? 977] 4579] has the following parameter: v{4951} local [clone [inside EQV? 976] 4578] has the following parameter: v{4950} local [clone EQV?[975] 4577] has the following parameters: OBJ1{4948} local OBJ2{4949} local [clone [inside EQV? 977] 4575] has the following parameter: v{4946} local [clone [inside EQV? 976] 4574] has the following parameter: v{4945} local [clone EQV?[975] 4573] has the following parameters: OBJ1{4943} local OBJ2{4944} local [clone [inside EQV? 977] 4571] has the following parameter: v{4941} local [clone [inside EQV? 976] 4570] has the following parameter: v{4940} local [clone EQV?[975] 4569] has the following parameters: OBJ1{4938} local OBJ2{4939} local [clone [inside EQV? 977] 4567] has the following parameter: v{4936} local [clone [inside EQV? 976] 4566] has the following parameter: v{4935} local [clone EQV?[975] 4565] has the following parameters: OBJ1{4933} local OBJ2{4934} local [clone [inside EQV? 977] 4563] has the following parameter: v{4931} local [clone [inside EQV? 976] 4562] has the following parameter: v{4930} local [clone EQV?[975] 4561] has the following parameters: OBJ1{4928} local OBJ2{4929} local [clone [inside EQV? 977] 4559] has the following parameter: v{4926} local [clone [inside EQV? 976] 4558] has the following parameter: v{4925} local [clone EQV?[975] 4557] has the following parameters: OBJ1{4923} local OBJ2{4924} local [clone [inside EQV? 977] 4555] has the following parameter: v{4921} local [clone [inside EQV? 976] 4554] has the following parameter: v{4920} local [clone EQV?[975] 4553] has the following parameters: OBJ1{4918} local OBJ2{4919} local [clone [inside EQV? 977] 4551] has the following parameter: v{4916} local [clone [inside EQV? 976] 4550] has the following parameter: v{4915} local [clone EQV?[975] 4549] has the following parameters: OBJ1{4913} local OBJ2{4914} local [clone [inside EQV? 977] 4547] has the following parameter: v{4911} local [clone [inside EQV? 976] 4546] has the following parameter: v{4910} local [clone EQV?[975] 4545] has the following parameters: OBJ1{4908} local OBJ2{4909} local [clone [inside EQV? 977] 4543] has the following parameter: v{4906} local [clone [inside EQV? 976] 4542] has the following parameter: v{4905} local [clone EQV?[975] 4541] has the following parameters: OBJ1{4903} local OBJ2{4904} local [clone [inside EQV? 977] 4539] has the following parameter: v{4901} local [clone [inside EQV? 976] 4538] has the following parameter: v{4900} local [clone EQV?[975] 4537] has the following parameters: OBJ1{4898} local OBJ2{4899} local [clone [inside EQV? 977] 4535] has the following parameter: v{4896} local [clone [inside EQV? 976] 4534] has the following parameter: v{4895} local [clone EQV?[975] 4533] has the following parameters: OBJ1{4893} local OBJ2{4894} local [clone [inside EQV? 977] 4531] has the following parameter: v{4891} local [clone [inside EQV? 976] 4530] has the following parameter: v{4890} local [clone EQV?[975] 4529] has the following parameters: OBJ1{4888} local OBJ2{4889} local [clone [inside EQV? 977] 4527] has the following parameter: v{4886} local [clone [inside EQV? 976] 4526] has the following parameter: v{4885} local [clone EQV?[975] 4525] has the following parameters: OBJ1{4883} local OBJ2{4884} local [clone [inside EQV? 977] 4523] has the following parameter: v{4881} local [clone [inside EQV? 976] 4522] has the following parameter: v{4880} local [clone EQV?[975] 4521] has the following parameters: OBJ1{4878} local OBJ2{4879} local [clone [inside EQV? 977] 4519] has the following parameter: v{4876} local [clone [inside EQV? 976] 4518] has the following parameter: v{4875} local [clone EQV?[975] 4517] has the following parameters: OBJ1{4873} local OBJ2{4874} local [clone [inside EQV? 977] 4515] has the following parameter: v{4871} local [clone [inside EQV? 976] 4514] has the following parameter: v{4870} local [clone EQV?[975] 4513] has the following parameters: OBJ1{4868} local OBJ2{4869} local [clone [inside EQV? 977] 4511] has the following parameter: v{4866} local [clone [inside EQV? 976] 4510] has the following parameter: v{4865} local [clone EQV?[975] 4509] has the following parameters: OBJ1{4863} local OBJ2{4864} local [clone [inside EQV? 977] 4507] has the following parameter: v{4861} local [clone [inside EQV? 976] 4506] has the following parameter: v{4860} local [clone EQV?[975] 4505] has the following parameters: OBJ1{4858} local OBJ2{4859} local [clone [inside EQV? 977] 4503] has the following parameter: v{4856} local [clone [inside EQV? 976] 4502] has the following parameter: v{4855} local [clone EQV?[975] 4501] has the following parameters: OBJ1{4853} local OBJ2{4854} local [clone [inside EQV? 977] 4499] has the following parameter: v{4851} local [clone [inside EQV? 976] 4498] has the following parameter: v{4850} local [clone EQV?[975] 4497] has the following parameters: OBJ1{4848} local OBJ2{4849} local [clone [inside EQV? 977] 4495] has the following parameter: v{4846} local [clone [inside EQV? 976] 4494] has the following parameter: v{4845} local [clone EQV?[975] 4493] has the following parameters: OBJ1{4843} local OBJ2{4844} local [clone [inside EQV? 977] 4491] has the following parameter: v{4841} local [clone [inside EQV? 976] 4490] has the following parameter: v{4840} local [clone EQV?[975] 4489] has the following parameters: OBJ1{4838} local OBJ2{4839} local [clone [inside EQV? 977] 4487] has the following parameter: v{4836} local [clone [inside EQV? 976] 4486] has the following parameter: v{4835} local [clone EQV?[975] 4485] has the following parameters: OBJ1{4833} local OBJ2{4834} local [clone [inside EQV? 977] 4483] has the following parameter: v{4831} local [clone [inside EQV? 976] 4482] has the following parameter: v{4830} local [clone EQV?[975] 4481] has the following parameters: OBJ1{4828} local OBJ2{4829} local [clone [inside EQV? 977] 4479] has the following parameter: v{4826} local [clone [inside EQV? 976] 4478] has the following parameter: v{4825} local [clone EQV?[975] 4477] has the following parameters: OBJ1{4823} local OBJ2{4824} local [clone [inside EQV? 977] 4475] has the following parameter: v{4821} local [clone [inside EQV? 976] 4474] has the following parameter: v{4820} local [clone EQV?[975] 4473] has the following parameters: OBJ1{4818} local OBJ2{4819} local [clone [inside EQV? 977] 4471] has the following parameter: v{4816} local [clone [inside EQV? 976] 4470] has the following parameter: v{4815} local [clone EQV?[975] 4469] has the following parameters: OBJ1{4813} local OBJ2{4814} local [clone [inside EQV? 977] 4467] has the following parameter: v{4811} local [clone [inside EQV? 976] 4466] has the following parameter: v{4810} local [clone EQV?[975] 4465] has the following parameters: OBJ1{4808} local OBJ2{4809} local [clone [inside EQV? 977] 4463] has the following parameter: v{4806} local [clone [inside EQV? 976] 4462] has the following parameter: v{4805} local [clone EQV?[975] 4461] has the following parameters: OBJ1{4803} local OBJ2{4804} local [clone [inside EQV? 977] 4459] has the following parameter: v{4801} local [clone [inside EQV? 976] 4458] has the following parameter: v{4800} local [clone EQV?[975] 4457] has the following parameters: OBJ1{4798} local OBJ2{4799} local [clone [inside EQV? 977] 4455] has the following parameter: v{4796} local [clone [inside EQV? 976] 4454] has the following parameter: v{4795} local [clone EQV?[975] 4453] has the following parameters: OBJ1{4793} local OBJ2{4794} local [clone [inside EQV? 976] 4450] has the following parameter: v{4790} local [clone EQV?[975] 4449] has the following parameters: OBJ1{4788} local OBJ2{4789} local [clone [inside EQV? 976] 4446] has the following parameter: v{4785} local [clone EQV?[975] 4445] has the following parameters: OBJ1{4783} local OBJ2{4784} local [clone [inside EQV? 977] 4443] has the following parameter: v{4781} local [clone [inside EQV? 976] 4442] has the following parameter: v{4780} local [clone EQV?[975] 4441] has the following parameters: OBJ1{4778} local OBJ2{4779} local [clone [inside EQV? 977] 4439] has the following parameter: v{4776} local [clone [inside EQV? 976] 4438] has the following parameter: v{4775} local [clone EQV?[975] 4437] has the following parameters: OBJ1{4773} local OBJ2{4774} local [clone [inside EQV? 977] 4435] has the following parameter: v{4771} local [clone [inside EQV? 976] 4434] has the following parameter: v{4770} local [clone EQV?[975] 4433] has the following parameters: OBJ1{4768} local OBJ2{4769} local [clone [inside EQV? 977] 4431] has the following parameter: v{4766} local [clone [inside EQV? 976] 4430] has the following parameter: v{4765} local [clone EQV?[975] 4429] has the following parameters: OBJ1{4763} local OBJ2{4764} local [clone [inside EQV? 977] 4427] has the following parameter: v{4761} local [clone [inside EQV? 976] 4426] has the following parameter: v{4760} local [clone EQV?[975] 4425] has the following parameters: OBJ1{4758} local OBJ2{4759} local [clone [inside EQV? 977] 4423] has the following parameter: v{4756} local [clone [inside EQV? 976] 4422] has the following parameter: v{4755} local [clone EQV?[975] 4421] has the following parameters: OBJ1{4753} local OBJ2{4754} local [clone [inside EQV? 977] 4419] has the following parameter: v{4751} local [clone [inside EQV? 976] 4418] has the following parameter: v{4750} local [clone EQV?[975] 4417] has the following parameters: OBJ1{4748} local OBJ2{4749} local [clone [inside EQV? 977] 4415] has the following parameter: v{4746} local [clone [inside EQV? 976] 4414] has the following parameter: v{4745} local [clone EQV?[975] 4413] has the following parameters: OBJ1{4743} local OBJ2{4744} local [clone [inside EQV? 977] 4411] has the following parameter: v{4741} local [clone [inside EQV? 976] 4410] has the following parameter: v{4740} local [clone EQV?[975] 4409] has the following parameters: OBJ1{4738} local OBJ2{4739} local [clone [inside EQV? 977] 4407] has the following parameter: v{4736} local [clone [inside EQV? 976] 4406] has the following parameter: v{4735} local [clone EQV?[975] 4405] has the following parameters: OBJ1{4733} local OBJ2{4734} local [clone [inside EQV? 977] 4403] has the following parameter: v{4731} local [clone [inside EQV? 976] 4402] has the following parameter: v{4730} local [clone EQV?[975] 4401] has the following parameters: OBJ1{4728} local OBJ2{4729} local [clone [inside EQV? 976] 4398] has the following parameter: v{4725} local [clone EQV?[975] 4397] has the following parameters: OBJ1{4723} local OBJ2{4724} local [clone [inside EQV? 978] 4396] has the following parameter: v{4722} local [clone [inside EQV? 977] 4395] has the following parameter: v{4721} local [clone [inside EQV? 976] 4394] has the following parameter: v{4720} local [clone EQV?[975] 4393] has the following parameters: OBJ1{4718} local OBJ2{4719} local [clone [inside EQV? 976] 4390] has the following parameter: v{4715} local [clone EQV?[975] 4389] has the following parameters: OBJ1{4713} local OBJ2{4714} local [clone [inside EQV? 976] 4386] has the following parameter: v{4710} local [clone EQV?[975] 4385] has the following parameters: OBJ1{4708} local OBJ2{4709} local [clone [inside EQV? 978] 4384] has the following parameter: v{4707} local [clone [inside EQV? 977] 4383] has the following parameter: v{4706} local [clone [inside EQV? 976] 4382] has the following parameter: v{4705} local [clone EQV?[975] 4381] has the following parameters: OBJ1{4703} local OBJ2{4704} local [clone [inside EQV? 976] 4378] has the following parameter: v{4700} local [clone EQV?[975] 4377] has the following parameters: OBJ1{4698} local OBJ2{4699} local [clone CHAR-NUMERIC?[1530] 4376] has the following parameter: CHAR{4697} local [clone CHAR-NUMERIC?[1530] 4375] has the following parameter: CHAR{4696} local [clone CHAR-NUMERIC?[1530] 4374] has the following parameter: CHAR{4695} local [clone CHAR-NUMERIC?[1530] 4373] has the following parameter: CHAR{4694} local [clone CHAR-NUMERIC?[1530] 4372] has the following parameter: CHAR{4693} local [clone CHAR-NUMERIC?[1530] 4371] has the following parameter: CHAR{4692} local [clone CHAR-NUMERIC?[1530] 4370] has the following parameter: CHAR{4691} local [clone CHAR-NUMERIC?[1530] 4369] has the following parameter: CHAR{4690} local [clone CHAR-NUMERIC?[1530] 4368] has the following parameter: CHAR{4689} local [clone CHAR-NUMERIC?[1530] 4367] has the following parameter: CHAR{4688} local [clone CHAR-NUMERIC?[1530] 4366] has the following parameter: CHAR{4687} local [clone CHAR-NUMERIC?[1530] 4365] has the following parameter: CHAR{4686} local [clone CHAR-NUMERIC?[1530] 4364] has the following parameter: CHAR{4685} local [clone CHAR-NUMERIC?[1530] 4363] has the following parameter: CHAR{4684} local [clone CHAR-NUMERIC?[1530] 4362] has the following parameter: CHAR{4683} local [clone CHAR-NUMERIC?[1530] 4361] has the following parameter: CHAR{4682} local [clone CHAR-NUMERIC?[1530] 4360] has the following parameter: CHAR{4681} local [clone CHAR-NUMERIC?[1530] 4359] has the following parameter: CHAR{4680} local [clone CHAR-NUMERIC?[1530] 4358] has the following parameter: CHAR{4679} local [clone CHAR-NUMERIC?[1530] 4357] has the following parameter: CHAR{4678} local [clone CHAR-NUMERIC?[1530] 4356] has the following parameter: CHAR{4677} local [clone CHAR-NUMERIC?[1530] 4355] has the following parameter: CHAR{4676} local [clone CHAR-NUMERIC?[1530] 4354] has the following parameter: CHAR{4675} local [clone CHAR-NUMERIC?[1530] 4353] has the following parameter: CHAR{4674} local [clone CHAR-NUMERIC?[1530] 4352] has the following parameter: CHAR{4673} local [clone GEN-TYPE[272] 4351] has the following parameter: TARGS{4672} local [clone GEN-TYPE[272] 4345] has the following parameter: TARGS{4660} local [clone GEN-TYPE[272] 4344] has the following parameter: TARGS{4658} local [clone TVAR-DEF[274] 4343] has the following parameter: TVAR{4656} local [clone TVAR-DEF[274] 4342] has the following parameter: TVAR{4655} local [clone TVAR-DEF[274] 4341] has the following parameter: TVAR{4654} local [clone TVAR-DEF[274] 4340] has the following parameter: TVAR{4653} local [clone LOOP[1144] 4338] has the following parameters: LIST{4651} local R{4652} local [clone LIST-REVERSE[1141] 4335] has the following parameter: LIST{4648} local [clone LOOP[1144] 4333] has the following parameters: LIST{4646} local R{4647} local [clone LIST-REVERSE[1141] 4330] has the following parameter: LIST{4643} local [clone LOOP[1144] 4328] has the following parameters: LIST{4641} local R{4642} local [clone LIST-REVERSE[1141] 4325] has the following parameter: LIST{4638} local [clone LOOP[1144] 4323] has the following parameters: LIST{4636} local R{4637} local [clone LIST-REVERSE[1141] 4320] has the following parameter: LIST{4633} local [clone LOOP[1144] 4318] has the following parameters: LIST{4631} local R{4632} local [clone LIST-REVERSE[1141] 4315] has the following parameter: LIST{4628} local [clone LOOP[1144] 4313] has the following parameters: LIST{4626} local R{4627} local [clone LIST-REVERSE[1141] 4310] has the following parameter: LIST{4623} local [clone LOOP[1144] 4308] has the following parameters: LIST{4621} local R{4622} local [clone LIST-REVERSE[1141] 4305] has the following parameter: LIST{4618} local [clone LOOP[1144] 4303] has the following parameters: LIST{4616} local R{4617} local [clone LIST-REVERSE[1141] 4300] has the following parameter: LIST{4613} local [clone LOOP[1144] 4298] has the following parameters: LIST{4611} local R{4612} local [clone LIST-REVERSE[1141] 4295] has the following parameter: LIST{4608} local [clone LOOP[1144] 4293] has the following parameters: LIST{4606} local R{4607} local [clone LIST-REVERSE[1141] 4290] has the following parameter: LIST{4603} local [clone LOOP[1144] 4288] has the following parameters: LIST{4601} local R{4602} local [clone LIST-REVERSE[1141] 4285] has the following parameter: LIST{4598} local [clone LOOP[1144] 4283] has the following parameters: LIST{4596} local R{4597} local [clone LIST-REVERSE[1141] 4280] has the following parameter: LIST{4593} local [clone LOOP?[1471] 4277] has the following parameters: CHAR1{4589} local CHAR2{4590} local [clone CHAR=?[1468] 4274] has the following parameters: CHAR1{4584} local CHAR2{4585} local [clone LOOP?[1471] 4271] has the following parameters: CHAR1{4580} local CHAR2{4581} local [clone CHAR=?[1468] 4268] has the following parameters: CHAR1{4575} local CHAR2{4576} local [clone LOOP?[1471] 4265] has the following parameters: CHAR1{4571} local CHAR2{4572} local [clone CHAR=?[1468] 4262] has the following parameters: CHAR1{4566} local CHAR2{4567} local [clone LOOP?[1471] 4259] has the following parameters: CHAR1{4562} local CHAR2{4563} local [clone CHAR=?[1468] 4256] has the following parameters: CHAR1{4557} local CHAR2{4558} local [clone LOOP?[1471] 4253] has the following parameters: CHAR1{4553} local CHAR2{4554} local [clone CHAR=?[1468] 4250] has the following parameters: CHAR1{4548} local CHAR2{4549} local [clone LOOP?[1471] 4247] has the following parameters: CHAR1{4544} local CHAR2{4545} local [clone CHAR=?[1468] 4244] has the following parameters: CHAR1{4539} local CHAR2{4540} local [clone LOOP?[1471] 4241] has the following parameters: CHAR1{4535} local CHAR2{4536} local [clone CHAR=?[1468] 4238] has the following parameters: CHAR1{4530} local CHAR2{4531} local [clone LOOP?[1471] 4235] has the following parameters: CHAR1{4526} local CHAR2{4527} local [clone CHAR=?[1468] 4232] has the following parameters: CHAR1{4521} local CHAR2{4522} local [clone LOOP?[1471] 4229] has the following parameters: CHAR1{4517} local CHAR2{4518} local [clone CHAR=?[1468] 4226] has the following parameters: CHAR1{4512} local CHAR2{4513} local [clone LOOP?[1471] 4223] has the following parameters: CHAR1{4508} local CHAR2{4509} local [clone CHAR=?[1468] 4220] has the following parameters: CHAR1{4503} local CHAR2{4504} local [clone LOOP?[1471] 4217] has the following parameters: CHAR1{4499} local CHAR2{4500} local [clone CHAR=?[1468] 4214] has the following parameters: CHAR1{4494} local CHAR2{4495} local [clone LOOP?[1471] 4211] has the following parameters: CHAR1{4490} local CHAR2{4491} local [clone CHAR=?[1468] 4208] has the following parameters: CHAR1{4485} local CHAR2{4486} local [clone LOOP?[1471] 4205] has the following parameters: CHAR1{4481} local CHAR2{4482} local [clone CHAR=?[1468] 4202] has the following parameters: CHAR1{4476} local CHAR2{4477} local [clone LOOP?[1471] 4199] has the following parameters: CHAR1{4472} local CHAR2{4473} local [clone CHAR=?[1468] 4196] has the following parameters: CHAR1{4467} local CHAR2{4468} local [clone LOOP?[1471] 4193] has the following parameters: CHAR1{4463} local CHAR2{4464} local [clone CHAR=?[1468] 4190] has the following parameters: CHAR1{4458} local CHAR2{4459} local [clone LOOP?[1471] 4187] has the following parameters: CHAR1{4454} local CHAR2{4455} local [clone CHAR=?[1468] 4184] has the following parameters: CHAR1{4449} local CHAR2{4450} local [clone LOOP?[1471] 4181] has the following parameters: CHAR1{4445} local CHAR2{4446} local [clone CHAR=?[1468] 4178] has the following parameters: CHAR1{4440} local CHAR2{4441} local [clone LOOP?[1471] 4175] has the following parameters: CHAR1{4436} local CHAR2{4437} local [clone CHAR=?[1468] 4172] has the following parameters: CHAR1{4431} local CHAR2{4432} local [clone LOOP?[1471] 4169] has the following parameters: CHAR1{4427} local CHAR2{4428} local [clone CHAR=?[1468] 4166] has the following parameters: CHAR1{4422} local CHAR2{4423} local [clone LOOP?[1471] 4163] has the following parameters: CHAR1{4418} local CHAR2{4419} local [clone CHAR=?[1468] 4160] has the following parameters: CHAR1{4413} local CHAR2{4414} local [clone LOOP?[1471] 4157] has the following parameters: CHAR1{4409} local CHAR2{4410} local [clone CHAR=?[1468] 4154] has the following parameters: CHAR1{4404} local CHAR2{4405} local [clone LOOP?[1471] 4151] has the following parameters: CHAR1{4400} local CHAR2{4401} local [clone CHAR=?[1468] 4148] has the following parameters: CHAR1{4395} local CHAR2{4396} local [clone LOOP?[1471] 4145] has the following parameters: CHAR1{4391} local CHAR2{4392} local [clone CHAR=?[1468] 4142] has the following parameters: CHAR1{4386} local CHAR2{4387} local [clone LOOP?[1471] 4139] has the following parameters: CHAR1{4382} local CHAR2{4383} local [clone CHAR=?[1468] 4136] has the following parameters: CHAR1{4377} local CHAR2{4378} local [clone LOOP?[1471] 4133] has the following parameters: CHAR1{4373} local CHAR2{4374} local [clone CHAR=?[1468] 4130] has the following parameters: CHAR1{4368} local CHAR2{4369} local [clone LOOP?[1471] 4127] has the following parameters: CHAR1{4364} local CHAR2{4365} local [clone CHAR=?[1468] 4124] has the following parameters: CHAR1{4359} local CHAR2{4360} local [clone LOOP?[1471] 4121] has the following parameters: CHAR1{4355} local CHAR2{4356} local [clone CHAR=?[1468] 4118] has the following parameters: CHAR1{4350} local CHAR2{4351} local [clone LOOP?[1471] 4115] has the following parameters: CHAR1{4346} local CHAR2{4347} local [clone CHAR=?[1468] 4112] has the following parameters: CHAR1{4341} local CHAR2{4342} local [clone LOOP?[1471] 4109] has the following parameters: CHAR1{4337} local CHAR2{4338} local [clone CHAR=?[1468] 4106] has the following parameters: CHAR1{4332} local CHAR2{4333} local [clone LOOP?[1471] 4103] has the following parameters: CHAR1{4328} local CHAR2{4329} local [clone CHAR=?[1468] 4100] has the following parameters: CHAR1{4323} local CHAR2{4324} local [clone LOOP?[1471] 4097] has the following parameters: CHAR1{4319} local CHAR2{4320} local [clone CHAR=?[1468] 4094] has the following parameters: CHAR1{4314} local CHAR2{4315} local [clone LOOP?[1471] 4091] has the following parameters: CHAR1{4310} local CHAR2{4311} local [clone CHAR=?[1468] 4088] has the following parameters: CHAR1{4305} local CHAR2{4306} local [clone LOOP?[1471] 4085] has the following parameters: CHAR1{4301} local CHAR2{4302} local [clone CHAR=?[1468] 4082] has the following parameters: CHAR1{4296} local CHAR2{4297} local [clone LOOP?[1471] 4079] has the following parameters: CHAR1{4292} local CHAR2{4293} local [clone CHAR=?[1468] 4076] has the following parameters: CHAR1{4287} local CHAR2{4288} local [clone LOOP?[1471] 4073] has the following parameters: CHAR1{4283} local CHAR2{4284} local [clone CHAR=?[1468] 4070] has the following parameters: CHAR1{4278} local CHAR2{4279} local [clone LOOP?[1471] 4067] has the following parameters: CHAR1{4274} local CHAR2{4275} local [clone CHAR=?[1468] 4064] has the following parameters: CHAR1{4269} local CHAR2{4270} local [clone LOOP?[1471] 4061] has the following parameters: CHAR1{4265} local CHAR2{4266} local [clone CHAR=?[1468] 4058] has the following parameters: CHAR1{4260} local CHAR2{4261} local [clone LOOP?[1471] 4055] has the following parameters: CHAR1{4256} local CHAR2{4257} local [clone CHAR=?[1468] 4052] has the following parameters: CHAR1{4251} local CHAR2{4252} local [clone LOOP?[1471] 4049] has the following parameters: CHAR1{4247} local CHAR2{4248} local [clone CHAR=?[1468] 4046] has the following parameters: CHAR1{4242} local CHAR2{4243} local [clone LOOP?[1471] 4043] has the following parameters: CHAR1{4238} local CHAR2{4239} local [clone CHAR=?[1468] 4040] has the following parameters: CHAR1{4233} local CHAR2{4234} local [clone LOOP?[1471] 4037] has the following parameters: CHAR1{4229} local CHAR2{4230} local [clone CHAR=?[1468] 4034] has the following parameters: CHAR1{4224} local CHAR2{4225} local [clone LOOP?[1471] 4031] has the following parameters: CHAR1{4220} local CHAR2{4221} local [clone CHAR=?[1468] 4028] has the following parameters: CHAR1{4215} local CHAR2{4216} local [clone LOOP?[1471] 4025] has the following parameters: CHAR1{4211} local CHAR2{4212} local [clone CHAR=?[1468] 4022] has the following parameters: CHAR1{4206} local CHAR2{4207} local [clone LOOP?[1471] 4019] has the following parameters: CHAR1{4202} local CHAR2{4203} local [clone CHAR=?[1468] 4016] has the following parameters: CHAR1{4197} local CHAR2{4198} local [clone LOOP?[1471] 4013] has the following parameters: CHAR1{4193} local CHAR2{4194} local [clone CHAR=?[1468] 4010] has the following parameters: CHAR1{4188} local CHAR2{4189} local [clone LOOP?[1471] 4007] has the following parameters: CHAR1{4184} local CHAR2{4185} local [clone CHAR=?[1468] 4004] has the following parameters: CHAR1{4179} local CHAR2{4180} local [clone LOOP?[1471] 4001] has the following parameters: CHAR1{4175} local CHAR2{4176} local [clone CHAR=?[1468] 3998] has the following parameters: CHAR1{4170} local CHAR2{4171} local [clone LOOP?[1471] 3995] has the following parameters: CHAR1{4166} local CHAR2{4167} local [clone CHAR=?[1468] 3992] has the following parameters: CHAR1{4161} local CHAR2{4162} local [clone LOOP?[1471] 3989] has the following parameters: CHAR1{4157} local CHAR2{4158} local [clone CHAR=?[1468] 3986] has the following parameters: CHAR1{4152} local CHAR2{4153} local [clone LOOP?[1471] 3983] has the following parameters: CHAR1{4148} local CHAR2{4149} local [clone CHAR=?[1468] 3980] has the following parameters: CHAR1{4143} local CHAR2{4144} local [clone LOOP?[1471] 3977] has the following parameters: CHAR1{4139} local CHAR2{4140} local [clone CHAR=?[1468] 3974] has the following parameters: CHAR1{4134} local CHAR2{4135} local [clone LOOP?[1471] 3971] has the following parameters: CHAR1{4130} local CHAR2{4131} local [clone CHAR=?[1468] 3968] has the following parameters: CHAR1{4125} local CHAR2{4126} local [clone LOOP?[1471] 3965] has the following parameters: CHAR1{4121} local CHAR2{4122} local [clone CHAR=?[1468] 3962] has the following parameters: CHAR1{4116} local CHAR2{4117} local [clone LOOP?[1471] 3959] has the following parameters: CHAR1{4112} local CHAR2{4113} local [clone CHAR=?[1468] 3956] has the following parameters: CHAR1{4107} local CHAR2{4108} local [clone LOOP?[1471] 3953] has the following parameters: CHAR1{4103} local CHAR2{4104} local [clone CHAR=?[1468] 3950] has the following parameters: CHAR1{4098} local CHAR2{4099} local [clone LOOP?[1471] 3947] has the following parameters: CHAR1{4094} local CHAR2{4095} local [clone CHAR=?[1468] 3944] has the following parameters: CHAR1{4089} local CHAR2{4090} local [clone LOOP?[1471] 3941] has the following parameters: CHAR1{4085} local CHAR2{4086} local [clone CHAR=?[1468] 3938] has the following parameters: CHAR1{4080} local CHAR2{4081} local [clone LOOP?[1471] 3935] has the following parameters: CHAR1{4076} local CHAR2{4077} local [clone CHAR=?[1468] 3932] has the following parameters: CHAR1{4071} local CHAR2{4072} local [clone LOOP?[1471] 3929] has the following parameters: CHAR1{4067} local CHAR2{4068} local [clone CHAR=?[1468] 3926] has the following parameters: CHAR1{4062} local CHAR2{4063} local [clone LOOP?[1471] 3923] has the following parameters: CHAR1{4058} local CHAR2{4059} local [clone CHAR=?[1468] 3920] has the following parameters: CHAR1{4053} local CHAR2{4054} local [clone LOOP?[1471] 3917] has the following parameters: CHAR1{4049} local CHAR2{4050} local [clone CHAR=?[1468] 3914] has the following parameters: CHAR1{4044} local CHAR2{4045} local [clone LOOP?[1471] 3911] has the following parameters: CHAR1{4040} local CHAR2{4041} local [clone CHAR=?[1468] 3908] has the following parameters: CHAR1{4035} local CHAR2{4036} local [clone LOOP?[1471] 3905] has the following parameters: CHAR1{4031} local CHAR2{4032} local [clone CHAR=?[1468] 3902] has the following parameters: CHAR1{4026} local CHAR2{4027} local [clone LOOP?[1471] 3899] has the following parameters: CHAR1{4022} local CHAR2{4023} local [clone CHAR=?[1468] 3896] has the following parameters: CHAR1{4017} local CHAR2{4018} local [clone LOOP?[1471] 3893] has the following parameters: CHAR1{4013} local CHAR2{4014} local [clone CHAR=?[1468] 3890] has the following parameters: CHAR1{4008} local CHAR2{4009} local [clone LOOP?[1471] 3887] has the following parameters: CHAR1{4004} local CHAR2{4005} local [clone CHAR=?[1468] 3884] has the following parameters: CHAR1{3999} local CHAR2{4000} local [clone LOOP?[1471] 3881] has the following parameters: CHAR1{3995} local CHAR2{3996} local [clone CHAR=?[1468] 3878] has the following parameters: CHAR1{3990} local CHAR2{3991} local [clone LOOP?[1471] 3875] has the following parameters: CHAR1{3986} local CHAR2{3987} local [clone CHAR=?[1468] 3872] has the following parameters: CHAR1{3981} local CHAR2{3982} local [clone LOOP?[1471] 3869] has the following parameters: CHAR1{3977} local CHAR2{3978} local [clone CHAR=?[1468] 3866] has the following parameters: CHAR1{3972} local CHAR2{3973} local [clone LOOP?[1471] 3863] has the following parameters: CHAR1{3968} local CHAR2{3969} local [clone CHAR=?[1468] 3860] has the following parameters: CHAR1{3963} local CHAR2{3964} local [clone LOOP?[1471] 3857] has the following parameters: CHAR1{3959} local CHAR2{3960} local [clone CHAR=?[1468] 3854] has the following parameters: CHAR1{3954} local CHAR2{3955} local [clone LOOP?[1471] 3851] has the following parameters: CHAR1{3950} local CHAR2{3951} local [clone CHAR=?[1468] 3848] has the following parameters: CHAR1{3945} local CHAR2{3946} local [clone LOOP?[1471] 3845] has the following parameters: CHAR1{3941} local CHAR2{3942} local [clone CHAR=?[1468] 3842] has the following parameters: CHAR1{3936} local CHAR2{3937} local [clone LOOP?[1471] 3839] has the following parameters: CHAR1{3932} local CHAR2{3933} local [clone CHAR=?[1468] 3836] has the following parameters: CHAR1{3927} local CHAR2{3928} local [clone LOOP?[1471] 3833] has the following parameters: CHAR1{3923} local CHAR2{3924} local [clone CHAR=?[1468] 3830] has the following parameters: CHAR1{3918} local CHAR2{3919} local [clone LOOP?[1471] 3827] has the following parameters: CHAR1{3914} local CHAR2{3915} local [clone CHAR=?[1468] 3824] has the following parameters: CHAR1{3909} local CHAR2{3910} local [clone LOOP?[1471] 3821] has the following parameters: CHAR1{3905} local CHAR2{3906} local [clone CHAR=?[1468] 3818] has the following parameters: CHAR1{3900} local CHAR2{3901} local [clone LOOP?[1471] 3815] has the following parameters: CHAR1{3896} local CHAR2{3897} local [clone CHAR=?[1468] 3812] has the following parameters: CHAR1{3891} local CHAR2{3892} local [clone LOOP?[1471] 3809] has the following parameters: CHAR1{3887} local CHAR2{3888} local [clone CHAR=?[1468] 3806] has the following parameters: CHAR1{3882} local CHAR2{3883} local [clone LOOP?[1471] 3803] has the following parameters: CHAR1{3878} local CHAR2{3879} local [clone CHAR=?[1468] 3800] has the following parameters: CHAR1{3873} local CHAR2{3874} local [clone LOOP?[1471] 3797] has the following parameters: CHAR1{3869} local CHAR2{3870} local [clone CHAR=?[1468] 3794] has the following parameters: CHAR1{3864} local CHAR2{3865} local [clone LOOP?[1471] 3791] has the following parameters: CHAR1{3860} local CHAR2{3861} local [clone CHAR=?[1468] 3788] has the following parameters: CHAR1{3855} local CHAR2{3856} local [clone LOOP?[1471] 3785] has the following parameters: CHAR1{3851} local CHAR2{3852} local [clone CHAR=?[1468] 3782] has the following parameters: CHAR1{3846} local CHAR2{3847} local [clone LOOP?[1471] 3779] has the following parameters: CHAR1{3842} local CHAR2{3843} local [clone CHAR=?[1468] 3776] has the following parameters: CHAR1{3837} local CHAR2{3838} local [clone LOOP?[1471] 3773] has the following parameters: CHAR1{3833} local CHAR2{3834} local [clone CHAR=?[1468] 3770] has the following parameters: CHAR1{3828} local CHAR2{3829} local [clone LOOP?[1471] 3767] has the following parameters: CHAR1{3824} local CHAR2{3825} local [clone CHAR=?[1468] 3764] has the following parameters: CHAR1{3819} local CHAR2{3820} local [clone LOOP?[1471] 3761] has the following parameters: CHAR1{3815} local CHAR2{3816} local [clone CHAR=?[1468] 3758] has the following parameters: CHAR1{3810} local CHAR2{3811} local [clone LOOP?[1471] 3755] has the following parameters: CHAR1{3806} local CHAR2{3807} local [clone CHAR=?[1468] 3752] has the following parameters: CHAR1{3801} local CHAR2{3802} local [clone LOOP?[1471] 3749] has the following parameters: CHAR1{3797} local CHAR2{3798} local [clone CHAR=?[1468] 3746] has the following parameters: CHAR1{3792} local CHAR2{3793} local [clone LOOP?[1471] 3743] has the following parameters: CHAR1{3788} local CHAR2{3789} local [clone CHAR=?[1468] 3740] has the following parameters: CHAR1{3783} local CHAR2{3784} local [clone LOOP?[1471] 3737] has the following parameters: CHAR1{3779} local CHAR2{3780} local [clone CHAR=?[1468] 3734] has the following parameters: CHAR1{3774} local CHAR2{3775} local [clone LOOP?[1471] 3731] has the following parameters: CHAR1{3770} local CHAR2{3771} local [clone CHAR=?[1468] 3728] has the following parameters: CHAR1{3765} local CHAR2{3766} local [clone LOOP?[1477] 3725] has the following parameters: CHAR1{3761} local CHAR2{3762} local [clone CHAR?[1480] 3716] has the following parameters: CHAR1{3747} local CHAR2{3748} local [clone LOOP?[1489] 3713] has the following parameters: CHAR1{3743} local CHAR2{3744} local [clone CHAR<=?[1486] 3710] has the following parameters: CHAR1{3738} local CHAR2{3739} local [clone LOOP?[1489] 3707] has the following parameters: CHAR1{3734} local CHAR2{3735} local [clone CHAR<=?[1486] 3704] has the following parameters: CHAR1{3729} local CHAR2{3730} local [clone LOOP?[1489] 3701] has the following parameters: CHAR1{3725} local CHAR2{3726} local [clone CHAR<=?[1486] 3698] has the following parameters: CHAR1{3720} local CHAR2{3721} local [clone LOOP?[1489] 3695] has the following parameters: CHAR1{3716} local CHAR2{3717} local [clone CHAR<=?[1486] 3692] has the following parameters: CHAR1{3711} local CHAR2{3712} local [clone LOOP?[1489] 3689] has the following parameters: CHAR1{3707} local CHAR2{3708} local [clone CHAR<=?[1486] 3686] has the following parameters: CHAR1{3702} local CHAR2{3703} local [clone LOOP?[1489] 3683] has the following parameters: CHAR1{3698} local CHAR2{3699} local [clone CHAR<=?[1486] 3680] has the following parameters: CHAR1{3693} local CHAR2{3694} local [clone LOOP?[1489] 3677] has the following parameters: CHAR1{3689} local CHAR2{3690} local [clone CHAR<=?[1486] 3674] has the following parameters: CHAR1{3684} local CHAR2{3685} local [clone LOOP?[1489] 3671] has the following parameters: CHAR1{3680} local CHAR2{3681} local [clone CHAR<=?[1486] 3668] has the following parameters: CHAR1{3675} local CHAR2{3676} local [clone LOOP?[1489] 3665] has the following parameters: CHAR1{3671} local CHAR2{3672} local [clone CHAR<=?[1486] 3662] has the following parameters: CHAR1{3666} local CHAR2{3667} local [clone LOOP?[1489] 3659] has the following parameters: CHAR1{3662} local CHAR2{3663} local [clone CHAR<=?[1486] 3656] has the following parameters: CHAR1{3657} local CHAR2{3658} local [clone LOOP?[1489] 3653] has the following parameters: CHAR1{3653} local CHAR2{3654} local [clone CHAR<=?[1486] 3650] has the following parameters: CHAR1{3648} local CHAR2{3649} local [clone LOOP?[1489] 3647] has the following parameters: CHAR1{3644} local CHAR2{3645} local [clone CHAR<=?[1486] 3644] has the following parameters: CHAR1{3639} local CHAR2{3640} local [clone LOOP?[1489] 3641] has the following parameters: CHAR1{3635} local CHAR2{3636} local [clone CHAR<=?[1486] 3638] has the following parameters: CHAR1{3630} local CHAR2{3631} local [clone LOOP?[1495] 3635] has the following parameters: CHAR1{3626} local CHAR2{3627} local [clone CHAR>=?[1492] 3632] has the following parameters: CHAR1{3621} local CHAR2{3622} local [clone LOOP?[1495] 3629] has the following parameters: CHAR1{3617} local CHAR2{3618} local [clone CHAR>=?[1492] 3626] has the following parameters: CHAR1{3612} local CHAR2{3613} local [clone LOOP?[1495] 3623] has the following parameters: CHAR1{3608} local CHAR2{3609} local [clone CHAR>=?[1492] 3620] has the following parameters: CHAR1{3603} local CHAR2{3604} local [clone LOOP?[1495] 3617] has the following parameters: CHAR1{3599} local CHAR2{3600} local [clone CHAR>=?[1492] 3614] has the following parameters: CHAR1{3594} local CHAR2{3595} local [clone LOOP?[1495] 3611] has the following parameters: CHAR1{3590} local CHAR2{3591} local [clone CHAR>=?[1492] 3608] has the following parameters: CHAR1{3585} local CHAR2{3586} local [clone LOOP?[1495] 3605] has the following parameters: CHAR1{3581} local CHAR2{3582} local [clone CHAR>=?[1492] 3602] has the following parameters: CHAR1{3576} local CHAR2{3577} local [clone LOOP?[1495] 3599] has the following parameters: CHAR1{3572} local CHAR2{3573} local [clone CHAR>=?[1492] 3596] has the following parameters: CHAR1{3567} local CHAR2{3568} local [clone LOOP?[1495] 3593] has the following parameters: CHAR1{3563} local CHAR2{3564} local [clone CHAR>=?[1492] 3590] has the following parameters: CHAR1{3558} local CHAR2{3559} local [clone LOOP?[1495] 3587] has the following parameters: CHAR1{3554} local CHAR2{3555} local [clone CHAR>=?[1492] 3584] has the following parameters: CHAR1{3549} local CHAR2{3550} local [clone LOOP?[1495] 3581] has the following parameters: CHAR1{3545} local CHAR2{3546} local [clone CHAR>=?[1492] 3578] has the following parameters: CHAR1{3540} local CHAR2{3541} local [clone LOOP?[1495] 3575] has the following parameters: CHAR1{3536} local CHAR2{3537} local [clone CHAR>=?[1492] 3572] has the following parameters: CHAR1{3531} local CHAR2{3532} local [clone LOOP?[1495] 3569] has the following parameters: CHAR1{3527} local CHAR2{3528} local [clone CHAR>=?[1492] 3566] has the following parameters: CHAR1{3522} local CHAR2{3523} local [clone LOOP?[1495] 3563] has the following parameters: CHAR1{3518} local CHAR2{3519} local [clone CHAR>=?[1492] 3560] has the following parameters: CHAR1{3513} local CHAR2{3514} local [clone INFO[254] 3559] has the following parameter: L{3512} local [clone ADD-CONSTR![354] 3557] has the following parameters: LHS{3509} local RHS{3510} local [clone ADD-CONSTR![354] 3555] has the following parameters: LHS{3506} local RHS{3507} local [clone ADD-CONSTR![354] 3553] has the following parameters: LHS{3503} local RHS{3504} local [clone ADD-CONSTR![354] 3551] has the following parameters: LHS{3500} local RHS{3501} local [clone ADD-CONSTR![354] 3549] has the following parameters: LHS{3497} local RHS{3498} local [clone ADD-CONSTR![354] 3547] has the following parameters: LHS{3494} local RHS{3495} local [clone ADD-CONSTR![354] 3545] has the following parameters: LHS{3491} local RHS{3492} local [clone ADD-CONSTR![354] 3543] has the following parameters: LHS{3488} local RHS{3489} local [clone ADD-CONSTR![354] 3541] has the following parameters: LHS{3485} local RHS{3486} local [clone ADD-CONSTR![354] 3539] has the following parameters: LHS{3482} local RHS{3483} local [clone ADD-CONSTR![354] 3537] has the following parameters: LHS{3479} local RHS{3480} local [clone ADD-CONSTR![354] 3535] has the following parameters: LHS{3476} local RHS{3477} local [clone ADD-CONSTR![354] 3533] has the following parameters: LHS{3473} local RHS{3474} local [clone READ-CHAR[2810] 3529] has the following parameter: &REST{3472} local [clone READ-CHAR[2810] 3525] has the following parameter: &REST{3471} local [clone READ-CHAR[2810] 3521] has the following parameter: &REST{3470} local [clone READ-CHAR[2810] 3517] has the following parameter: &REST{3469} local [clone READ-CHAR[2810] 3513] has the following parameter: &REST{3468} local [clone READ-CHAR[2810] 3509] has the following parameter: &REST{3467} local [clone READ-CHAR[2810] 3505] has the following parameter: &REST{3466} local [clone READ-CHAR[2810] 3501] has the following parameter: &REST{3465} local [clone READ-CHAR[2810] 3497] has the following parameter: &REST{3464} local [clone READ-CHAR[2810] 3493] has the following parameter: &REST{3463} local [clone READ-CHAR[2810] 3489] has the following parameter: &REST{3462} local [clone READ-CHAR[2810] 3485] has the following parameter: &REST{3461} local [clone READ-CHAR[2810] 3481] has the following parameter: &REST{3460} local [clone READ-CHAR[2810] 3477] has the following parameter: &REST{3459} local [clone READ-CHAR[2810] 3473] has the following parameter: &REST{3458} local [clone READ-CHAR[2810] 3469] has the following parameter: &REST{3457} local [clone READ-CHAR[2810] 3465] has the following parameter: &REST{3456} local [clone READ-CHAR[2810] 3461] has the following parameter: &REST{3455} local [clone READ-CHAR[2810] 3457] has the following parameter: &REST{3454} local [clone READ-CHAR[2810] 3453] has the following parameter: &REST{3453} local [clone READ-CHAR[2810] 3449] has the following parameter: &REST{3452} local [clone READ-CHAR[2810] 3445] has the following parameter: &REST{3451} local [clone READ-CHAR[2810] 3441] has the following parameter: &REST{3450} local [clone READ-CHAR[2810] 3437] has the following parameter: &REST{3449} local [clone READ-CHAR[2810] 3433] has the following parameter: &REST{3448} local [clone READ-CHAR[2810] 3429] has the following parameter: &REST{3447} local [clone READ-CHAR[2810] 3425] has the following parameter: &REST{3446} local [clone READ-CHAR[2810] 3421] has the following parameter: &REST{3445} local [clone READ-CHAR[2810] 3417] has the following parameter: &REST{3444} local [clone READ-CHAR[2810] 3413] has the following parameter: &REST{3443} local [clone READ-CHAR[2810] 3409] has the following parameter: &REST{3442} local [clone READ-CHAR[2810] 3405] has the following parameter: &REST{3441} local [clone READ-CHAR[2810] 3401] has the following parameter: &REST{3440} local [clone READ-CHAR[2810] 3397] has the following parameter: &REST{3439} local [clone READ-CHAR[2810] 3393] has the following parameter: &REST{3438} local [clone READ-CHAR[2810] 3389] has the following parameter: &REST{3437} local [clone READ-CHAR[2810] 3385] has the following parameter: &REST{3436} local [clone READ-CHAR[2810] 3381] has the following parameter: &REST{3435} local [clone READ-CHAR[2810] 3377] has the following parameter: &REST{3434} local [clone READ-CHAR[2810] 3373] has the following parameter: &REST{3433} local [clone READ-CHAR[2810] 3369] has the following parameter: &REST{3432} local [clone READ-CHAR[2810] 3365] has the following parameter: &REST{3431} local [clone READ-CHAR[2810] 3361] has the following parameter: &REST{3430} local [clone READ-CHAR[2810] 3357] has the following parameter: &REST{3429} local [clone READ-CHAR[2810] 3353] has the following parameter: &REST{3428} local [clone READ-CHAR[2810] 3349] has the following parameter: &REST{3427} local [clone READ-CHAR[2810] 3345] has the following parameter: &REST{3426} local [clone READ-CHAR[2810] 3341] has the following parameter: &REST{3425} local [clone READ-CHAR[2810] 3337] has the following parameter: &REST{3424} local [clone READ-CHAR[2810] 3333] has the following parameter: &REST{3423} local [clone READ-CHAR[2810] 3329] has the following parameter: &REST{3422} local [clone READ-CHAR[2810] 3325] has the following parameter: &REST{3421} local [clone READ-CHAR[2810] 3321] has the following parameter: &REST{3420} local [clone PEEK-CHAR[2814] 3317] has the following parameter: &REST{3419} local [clone PEEK-CHAR[2814] 3313] has the following parameter: &REST{3418} local [clone PEEK-CHAR[2814] 3309] has the following parameter: &REST{3417} local [clone PEEK-CHAR[2814] 3305] has the following parameter: &REST{3416} local [clone PEEK-CHAR[2814] 3301] has the following parameter: &REST{3415} local [clone PEEK-CHAR[2814] 3297] has the following parameter: &REST{3414} local [clone PEEK-CHAR[2814] 3293] has the following parameter: &REST{3413} local [clone PEEK-CHAR[2814] 3289] has the following parameter: &REST{3412} local [clone PEEK-CHAR[2814] 3285] has the following parameter: &REST{3411} local [clone PEEK-CHAR[2814] 3281] has the following parameter: &REST{3410} local [clone PEEK-CHAR[2814] 3277] has the following parameter: &REST{3409} local [clone PEEK-CHAR[2814] 3273] has the following parameter: &REST{3408} local [clone PEEK-CHAR[2814] 3269] has the following parameter: &REST{3407} local [clone EXTEND-ENV-WITH-BINDING[22] 3264] has the following parameters: ENV{3404} local BINDING{3405} local [clone EXTEND-ENV-WITH-BINDING[22] 3263] has the following parameters: ENV{3402} local BINDING{3403} local [clone EXTEND-ENV-WITH-BINDING[22] 3262] has the following parameters: ENV{3400} local BINDING{3401} local [clone EXTEND-ENV-WITH-BINDING[22] 3261] has the following parameters: ENV{3398} local BINDING{3399} local [clone EXTEND-ENV-WITH-BINDING[22] 3260] has the following parameters: ENV{3396} local BINDING{3397} local [clone EXTEND-ENV-WITH-BINDING[22] 3259] has the following parameters: ENV{3394} local BINDING{3395} local [clone EXTEND-ENV-WITH-BINDING[22] 3258] has the following parameters: ENV{3392} local BINDING{3393} local [clone EXTEND-ENV-WITH-BINDING[22] 3257] has the following parameter: BINDING{3391} local [clone EXTEND-ENV-WITH-BINDING[22] 3256] has the following parameters: ENV{3388} local BINDING{3389} local [clone ASYMM-LINK![268] 3255] has the following parameters: L{3386} local X{3387} local [clone ASYMM-LINK![268] 3254] has the following parameters: L{3384} local X{3385} local [clone CONS[990] 3253] has the following parameters: OBJ1{3382} local OBJ2{3383} local [clone CONS[990] 3252] has the following parameters: OBJ1{3380} local OBJ2{3381} local [clone CONS[990] 3251] has the following parameters: OBJ1{3378} local OBJ2{3379} local [clone CDR[992] 3250] has the following parameter: PAIR{3377} local [clone CDR[992] 3249] has the following parameter: PAIR{3376} local [clone CADR[996] 3248] has the following parameter: PAIR{3375} local [clone CADR[996] 3247] has the following parameter: PAIR{3374} local [clone CADR[996] 3246] has the following parameter: PAIR{3373} local [clone CADR[996] 3245] has the following parameter: PAIR{3372} local [clone CADR[996] 3244] has the following parameter: PAIR{3371} local [clone CADR[996] 3243] has the following parameter: PAIR{3370} local [clone CADR[996] 3242] has the following parameter: PAIR{3369} local [clone CADR[996] 3241] has the following parameter: PAIR{3368} local [clone CADR[996] 3240] has the following parameter: PAIR{3367} local [clone CADR[996] 3239] has the following parameter: PAIR{3366} local [clone CADR[996] 3238] has the following parameter: PAIR{3365} local [clone CADR[996] 3237] has the following parameter: PAIR{3364} local [clone CADR[996] 3236] has the following parameter: PAIR{3363} local [clone CADR[996] 3235] has the following parameter: PAIR{3362} local [clone CADR[996] 3234] has the following parameter: PAIR{3361} local [clone CADR[996] 3233] has the following parameter: PAIR{3360} local [clone CADR[996] 3232] has the following parameter: PAIR{3359} local [clone CADR[996] 3231] has the following parameter: PAIR{3358} local [clone CADR[996] 3230] has the following parameter: PAIR{3357} local [clone CADR[996] 3229] has the following parameter: PAIR{3356} local [clone CADR[996] 3228] has the following parameter: PAIR{3355} local [clone CADR[996] 3227] has the following parameter: PAIR{3354} local [clone CADR[996] 3226] has the following parameter: PAIR{3353} local [clone CADR[996] 3225] has the following parameter: PAIR{3352} local [clone CADR[996] 3224] has the following parameter: PAIR{3351} local [clone CADR[996] 3223] has the following parameter: PAIR{3350} local [clone CADR[996] 3222] has the following parameter: PAIR{3349} local [clone CADR[996] 3221] has the following parameter: PAIR{3348} local [clone CADR[996] 3220] has the following parameter: PAIR{3347} local [clone CADR[996] 3219] has the following parameter: PAIR{3346} local [clone CADR[996] 3218] has the following parameter: PAIR{3345} local [clone CADR[996] 3217] has the following parameter: PAIR{3344} local [clone CADR[996] 3216] has the following parameter: PAIR{3343} local [clone CADR[996] 3215] has the following parameter: PAIR{3342} local [clone CADR[996] 3214] has the following parameter: PAIR{3341} local [clone CADR[996] 3213] has the following parameter: PAIR{3340} local [clone CADR[996] 3212] has the following parameter: PAIR{3339} local [clone CADR[996] 3211] has the following parameter: PAIR{3338} local [clone CADR[996] 3210] has the following parameter: PAIR{3337} local [clone CADR[996] 3209] has the following parameter: PAIR{3336} local [clone CADR[996] 3208] has the following parameter: PAIR{3335} local [clone CADR[996] 3207] has the following parameter: PAIR{3334} local [clone CADR[996] 3206] has the following parameter: PAIR{3333} local [clone CADR[996] 3205] has the following parameter: PAIR{3332} local [clone CADR[996] 3204] has the following parameter: PAIR{3331} local [clone CADR[996] 3203] has the following parameter: PAIR{3330} local [clone CADR[996] 3202] has the following parameter: PAIR{3329} local [clone CADR[996] 3201] has the following parameter: PAIR{3328} local [clone CDDR[998] 3200] has the following parameter: PAIR{3327} local [clone CDDR[998] 3199] has the following parameter: PAIR{3326} local [clone CDDR[998] 3198] has the following parameter: PAIR{3325} local [clone CDDR[998] 3197] has the following parameter: PAIR{3324} local [clone CDDR[998] 3196] has the following parameter: PAIR{3323} local [clone CDDR[998] 3195] has the following parameter: PAIR{3322} local [clone CDDR[998] 3194] has the following parameter: PAIR{3321} local [clone CDDR[998] 3193] has the following parameter: PAIR{3320} local [clone CDDR[998] 3192] has the following parameter: PAIR{3319} local [clone CDDR[998] 3191] has the following parameter: PAIR{3318} local [clone CDDR[998] 3190] has the following parameter: PAIR{3317} local [clone CDDR[998] 3189] has the following parameter: PAIR{3316} local [clone CDDR[998] 3188] has the following parameter: PAIR{3315} local [clone CDDR[998] 3187] has the following parameter: PAIR{3314} local [clone CDDR[998] 3186] has the following parameter: PAIR{3313} local [clone CDDR[998] 3185] has the following parameter: PAIR{3312} local [clone LIST[1033] 3184] has the following parameter: OBJS{3311} local [clone LIST[1033] 3183] has the following parameter: OBJS{3310} local [clone LIST[1033] 3182] has the following parameter: OBJS{3309} local [clone LIST[1033] 3181] has the following parameter: OBJS{3308} local [clone LIST[1033] 3180] has the following parameter: OBJS{3307} local [clone LIST[1033] 3179] has the following parameter: OBJS{3306} local [clone LIST[1033] 3178] has the following parameter: OBJS{3305} local [clone LIST[1033] 3177] has the following parameter: OBJS{3304} local [clone LIST[1033] 3176] has the following parameter: OBJS{3303} local [clone LIST[1033] 3175] has the following parameter: OBJS{3302} local [clone LIST[1033] 3174] has the following parameter: OBJS{3301} local [clone LIST[1033] 3173] has the following parameter: OBJS{3300} local [clone LIST[1033] 3172] has the following parameter: OBJS{3299} local [clone LIST[1033] 3171] has the following parameter: OBJS{3298} local [clone LIST[1033] 3170] has the following parameter: OBJS{3297} local [clone LIST[1033] 3169] has the following parameter: OBJS{3296} local [clone LIST[1033] 3168] has the following parameter: OBJS{3295} local [clone LIST[1033] 3167] has the following parameter: OBJS{3294} local [clone LIST[1033] 3166] has the following parameter: OBJS{3293} local [clone LIST[1033] 3165] has the following parameter: OBJS{3292} local [clone LIST[1033] 3164] has the following parameter: OBJS{3291} local [clone LIST[1033] 3163] has the following parameter: OBJS{3290} local [clone LIST[1033] 3162] has the following parameter: OBJS{3289} local [clone LIST[1033] 3161] has the following parameter: OBJS{3288} local [clone LIST[1033] 3160] has the following parameter: OBJS{3287} local [clone LIST[1033] 3159] has the following parameter: OBJS{3286} local [clone LIST[1033] 3158] has the following parameter: OBJS{3285} local [clone LIST[1033] 3157] has the following parameter: OBJS{3284} local [clone LIST[1033] 3156] has the following parameter: OBJS{3283} local [clone LIST[1033] 3155] has the following parameter: OBJS{3282} local [clone LIST[1033] 3154] has the following parameter: OBJS{3281} local [clone LIST[1033] 3153] has the following parameter: OBJS{3280} local [clone LIST[1033] 3152] has the following parameter: OBJS{3279} local [clone LIST[1033] 3151] has the following parameter: OBJS{3278} local [clone LIST[1033] 3150] has the following parameter: OBJS{3277} local [clone LIST[1033] 3149] has the following parameter: OBJS{3276} local [clone LIST[1033] 3148] has the following parameter: OBJS{3275} local [clone LIST[1033] 3147] has the following parameter: OBJS{3274} local [clone LIST[1033] 3146] has the following parameter: OBJS{3273} local [clone LIST[1033] 3145] has the following parameter: OBJS{3272} local [clone LIST[1033] 3144] has the following parameter: OBJS{3271} local [clone LIST[1033] 3143] has the following parameter: OBJS{3270} local [clone LIST[1033] 3142] has the following parameter: OBJS{3269} local [clone LIST[1033] 3141] has the following parameter: OBJS{3268} local [clone LIST[1033] 3140] has the following parameter: OBJS{3267} local [clone LIST[1033] 3139] has the following parameter: OBJS{3266} local [clone LIST[1033] 3138] has the following parameter: OBJS{3265} local [clone LIST[1033] 3137] has the following parameter: OBJS{3264} local [clone LIST[1033] 3136] has the following parameter: OBJS{3263} local [clone LIST[1033] 3135] has the following parameter: OBJS{3262} local [clone LIST[1033] 3134] has the following parameter: OBJS{3261} local [clone LIST[1033] 3133] has the following parameter: OBJS{3260} local [clone LIST[1033] 3132] has the following parameter: OBJS{3259} local [clone LIST[1033] 3131] has the following parameter: OBJS{3258} local [clone LIST[1033] 3130] has the following parameter: OBJS{3257} local [clone LIST[1033] 3129] has the following parameter: OBJS{3256} local [clone LIST[1033] 3128] has the following parameter: OBJS{3255} local [clone LIST[1033] 3127] has the following parameter: OBJS{3254} local [clone LIST[1033] 3126] has the following parameter: OBJS{3253} local [clone LIST[1033] 3125] has the following parameter: OBJS{3252} local [clone LIST[1033] 3124] has the following parameter: OBJS{3251} local [clone LIST[1033] 3123] has the following parameter: OBJS{3250} local [clone LIST[1033] 3122] has the following parameter: OBJS{3249} local [clone LIST[1033] 3121] has the following parameter: OBJS{3248} local [clone LIST[1033] 3120] has the following parameter: OBJS{3247} local [clone LIST[1033] 3119] has the following parameter: OBJS{3246} local [clone LIST[1033] 3118] has the following parameter: OBJS{3245} local [clone LIST[1033] 3117] has the following parameter: OBJS{3244} local [clone LIST[1033] 3116] has the following parameter: OBJS{3243} local [clone LIST[1033] 3115] has the following parameter: OBJS{3242} local [clone LIST[1033] 3114] has the following parameter: OBJS{3241} local [clone LIST[1033] 3113] has the following parameter: OBJS{3240} local [clone LIST[1033] 3112] has the following parameter: OBJS{3239} local [clone LIST[1033] 3111] has the following parameter: OBJS{3238} local [clone LIST[1033] 3110] has the following parameter: OBJS{3237} local [clone LIST[1033] 3109] has the following parameter: OBJS{3236} local [clone LIST[1033] 3108] has the following parameter: OBJS{3235} local [clone LIST[1033] 3107] has the following parameter: OBJS{3234} local [clone LIST[1033] 3106] has the following parameter: OBJS{3233} local [clone LIST[1033] 3105] has the following parameter: OBJS{3232} local [clone LIST[1033] 3104] has the following parameter: OBJS{3231} local [clone LIST[1033] 3103] has the following parameter: OBJS{3230} local [clone LIST[1033] 3102] has the following parameter: OBJS{3229} local [clone LIST[1033] 3101] has the following parameter: OBJS{3228} local [clone LIST[1033] 3100] has the following parameter: OBJS{3227} local [clone LIST[1033] 3099] has the following parameter: OBJS{3226} local [clone LIST[1033] 3098] has the following parameter: OBJS{3225} local [clone LIST[1033] 3097] has the following parameter: OBJS{3224} local [clone LIST[1033] 3096] has the following parameter: OBJS{3223} local [clone LIST[1033] 3095] has the following parameter: OBJS{3222} local [clone LIST[1033] 3094] has the following parameter: OBJS{3221} local [clone LIST[1033] 3093] has the following parameter: OBJS{3220} local [clone LIST[1033] 3092] has the following parameter: OBJS{3219} local [clone LIST[1033] 3091] has the following parameter: OBJS{3218} local [clone LIST[1033] 3090] has the following parameter: OBJS{3217} local [clone LIST[1033] 3089] has the following parameter: OBJS{3216} local [clone LIST[1033] 3088] has the following parameter: OBJS{3215} local [clone LIST[1033] 3087] has the following parameter: OBJS{3214} local [clone LIST[1033] 3086] has the following parameter: OBJS{3213} local [clone LIST[1033] 3085] has the following parameter: OBJS{3212} local [clone LIST[1033] 3084] has the following parameter: OBJS{3211} local [clone LIST[1033] 3083] has the following parameter: OBJS{3210} local [clone LIST[1033] 3082] has the following parameter: OBJS{3209} local [clone LIST[1033] 3081] has the following parameter: OBJS{3208} local [clone LIST[1033] 3080] has the following parameter: OBJS{3207} local [clone LIST[1033] 3079] has the following parameter: OBJS{3206} local [clone LIST[1033] 3078] has the following parameter: OBJS{3205} local [clone LIST[1033] 3077] has the following parameter: OBJS{3204} local [clone LIST[1033] 3076] has the following parameter: OBJS{3203} local [clone LIST[1033] 3075] has the following parameter: OBJS{3202} local [clone LIST[1033] 3074] has the following parameter: OBJS{3201} local [clone LIST[1033] 3073] has the following parameter: OBJS{3200} local [clone MEMQ[1166] 3072] has the following parameters: OBJ{3198} local LIST{3199} local DISPLAY[2826] has the following parameter: OBJ{3185} local PEEK-CHAR[2814] has the following parameter: &REST{3181} local READ-CHAR[2810] has the following parameter: &REST{3180} local LOOP[2343] has the following parameter: I{2890} local [inside DISPLAY-STRING2 2340] has the following parameter: N{2887} local DISPLAY-STRING2[2339] has the following parameters: STRING{2885} local PORT{2886} local [inside top level 2335] has the following parameters: THE-CURRENT-OUTPUT-PORT{2846} global THE-CURRENT-INPUT-PORT{2847} global [inside READ-CHARACTER-NAME 2308] has the following parameter: C{2841} local READ-CHARACTER-NAME[2307] has the following parameter: S{2840} local [inside LOOP? 2303] has the following parameter: v{2839} local LOOP?[2302] has the following parameters: S{2837} local NAME{2838} local LOOP[2298] has the following parameter: NAMES{2833} local [inside READ-SYMBOL 2290] has the following parameter: C{2828} local [inside CHAR-SUBSEQUENT? 2288] has the following parameter: v{2826} local [inside CHAR-SUBSEQUENT? 2287] has the following parameter: v{2825} local [inside CHAR-SUBSEQUENT? 2286] has the following parameter: v{2824} local [inside CHAR-SUBSEQUENT? 2285] has the following parameter: v{2823} local CHAR-SUBSEQUENT?[2284] has the following parameter: C{2822} local [inside CHAR-INITIAL? 2283] has the following parameter: v{2821} local [inside CHAR-INITIAL? 2282] has the following parameter: v{2820} local [inside CHAR-INITIAL? 2281] has the following parameter: v{2819} local [inside CHAR-INITIAL? 2280] has the following parameter: v{2818} local [inside CHAR-INITIAL? 2279] has the following parameter: v{2817} local [inside CHAR-INITIAL? 2278] has the following parameter: v{2816} local [inside CHAR-INITIAL? 2277] has the following parameter: v{2815} local [inside CHAR-INITIAL? 2276] has the following parameter: v{2814} local [inside CHAR-INITIAL? 2275] has the following parameter: v{2813} local [inside CHAR-INITIAL? 2274] has the following parameter: v{2812} local [inside CHAR-INITIAL? 2273] has the following parameter: v{2811} local [inside CHAR-INITIAL? 2272] has the following parameter: v{2810} local [inside CHAR-INITIAL? 2271] has the following parameter: v{2809} local [inside CHAR-INITIAL? 2270] has the following parameter: v{2808} local [inside READ-NUMBER 2262] has the following parameter: C3{2804} local [inside READ-NUMBER 2261] has region [inside READ-NUMBER 2257] has the following parameter: C3{2801} local [inside READ-NUMBER 2256] has region [inside READ-NUMBER 2253] has the following parameter: C2{2799} local [inside READ-NUMBER 2252] has region [inside READ-NUMBER 2251] has region [inside READ-NUMBER 2250] has the following parameter: v{2797} local [inside READ-NUMBER 2249] has the following parameter: v{2796} local [inside READ-NUMBER 2248] has the following parameter: v{2795} local [inside READ-NUMBER 2247] has the following parameter: v{2794} local [inside READ-NUMBER 2246] has the following parameter: v{2793} local [inside READ-NUMBER 2245] has the following parameter: v{2792} local [inside READ-NUMBER 2244] has the following parameter: v{2791} local [inside READ-NUMBER 2243] has the following parameter: v{2790} local [inside READ-NUMBER 2242] has the following parameter: v{2789} local [inside READ-NUMBER 2240] has region [inside READ-NUMBER 2236] has the following parameter: C1{2786} local [inside READ-INEXACT-NUMBER 2228] has the following parameter: C3{2782} local [inside READ-INEXACT-NUMBER 2227] has region [inside READ-INEXACT-NUMBER 2223] has the following parameter: C3{2779} local [inside READ-INEXACT-NUMBER 2222] has region [inside READ-INEXACT-NUMBER 2219] has the following parameter: C2{2777} local [inside READ-INEXACT-NUMBER 2218] has region [inside READ-INEXACT-NUMBER 2217] has region [inside READ-INEXACT-NUMBER 2216] has the following parameter: v{2775} local [inside READ-INEXACT-NUMBER 2215] has the following parameter: v{2774} local [inside READ-INEXACT-NUMBER 2214] has the following parameter: v{2773} local [inside READ-INEXACT-NUMBER 2213] has the following parameter: v{2772} local [inside READ-INEXACT-NUMBER 2212] has the following parameter: v{2771} local [inside READ-INEXACT-NUMBER 2211] has the following parameter: v{2770} local [inside READ-INEXACT-NUMBER 2210] has the following parameter: v{2769} local [inside READ-INEXACT-NUMBER 2209] has the following parameter: v{2768} local [inside READ-INEXACT-NUMBER 2208] has the following parameter: v{2767} local [inside READ-INEXACT-NUMBER 2204] has the following parameter: C1{2765} local [inside READ-EXACT-HEXADECIMAL-INTEGER 2194] has the following parameter: C{2759} local [inside READ-EXACT-DECIMAL-INTEGER 2188] has the following parameter: C{2756} local [inside READ-EXACT-OCTAL-INTEGER 2182] has the following parameter: C{2753} local [inside READ-EXACT-BINARY-INTEGER 2174] has the following parameter: C{2749} local [inside READ 2163] has region [inside READ 2161] has the following parameter: C2{2744} local [inside READ 2152] has region [inside READ 2150] has the following parameter: C3{2740} local [inside READ 2146] has region [inside READ 2144] has the following parameter: C2{2737} local [inside READ 2135] has region [inside READ 2133] has the following parameter: C3{2733} local [inside READ 2129] has region [inside READ 2127] has the following parameter: C2{2730} local [inside LOOP 2122] has region [inside LOOP 2119] has the following parameter: C1{2728} local [inside LOOP 2116] has the following parameter: C{2726} local LOOP[2115] has region has the following parameter: S{2725} local [inside READ 2107] has the following parameter: C3{2721} local [inside LOOP 2104] reentrant has the following parameter: E{2720} local LOOP[2103] reentrant has the following parameter: S{2719} local [inside READ 2100] reentrant [inside READ 2091] has the following parameter: C4{2715} local [inside READ 2090] has region [inside READ 2083] has the following parameter: C4{2713} local [inside READ 2082] has region [inside READ 2077] has the following parameter: C3{2711} local [inside READ 2076] has region [inside READ 2075] has the following parameter: v{2710} local [inside READ 2068] has the following parameter: C4{2707} local [inside READ 2067] has region [inside READ 2061] has the following parameter: C5{2704} local [inside READ 2060] has region [inside READ 2057] has the following parameter: C4{2702} local [inside READ 2056] has region [inside READ 2050] has the following parameter: C5{2699} local [inside READ 2049] has region [inside READ 2046] has the following parameter: C4{2697} local [inside READ 2045] has region [inside READ 2043] has the following parameter: C3{2695} local [inside READ 2042] has region [inside READ 2041] has the following parameter: v{2694} local [inside READ 2037] has the following parameter: v{2693} local [inside READ 2034] has the following parameter: C4{2690} local [inside READ 2033] has region [inside READ 2031] has the following parameter: v{2689} local [inside READ 2028] has the following parameter: C4{2686} local [inside READ 2027] has region [inside READ 2024] has the following parameter: C3{2684} local [inside READ 2023] has region [inside READ 2022] has the following parameter: v{2683} local [inside READ 2014] has the following parameter: C4{2681} local [inside READ 2013] has region [inside READ 2007] has the following parameter: C4{2679} local [inside READ 2006] has region [inside READ 2002] has the following parameter: C3{2677} local [inside READ 2001] has region [inside READ 2000] has the following parameter: v{2676} local [inside READ 1998] has the following parameter: v{2675} local [inside READ 1996] has the following parameter: v{2674} local [inside READ 1995] reentrant [inside READ 1994] reentrant has the following parameter: C2{2672} local [inside READ 1993] reentrant [inside LOOP 1991] reentrant LOOP[1987] has the following parameters: S{2670} local C{2671} local [inside LOOP 1982] reentrant has the following parameter: E1{2666} local [inside LOOP 1981] reentrant [inside LOOP 1980] reentrant [inside LOOP 1979] reentrant has the following parameter: E{2664} local LOOP[1978] reentrant has the following parameter: S{2663} local [inside READ 1975] reentrant [inside READ 1973] reentrant [inside READ 1972] reentrant [inside READ 1971] reentrant [inside READ 1970] reentrant [inside READ 1969] reentrant has the following parameter: C2{2658} local [inside READ 1968] reentrant [inside READ 1967] reentrant [inside READ 1966] reentrant [inside READ 1964] reentrant [inside READ 1955] reentrant [inside READ 1954] reentrant [inside READ 1943] reentrant has the following parameter: C1{2653} local [inside READ 1942] reentrant [inside READ 1941] reentrant [inside READ 1937] has the following parameters: CLOSE{2626} global DOT{2627} global READ[1935] has the following parameter: PORT{2624} global [inside CALL-WITH-INPUT-FILE 1917] has the following parameter: R{2611} local [inside CALL-WITH-INPUT-FILE 1916] has the following parameter: INPUT-PORT{2610} local CALL-WITH-INPUT-FILE[1915] has the following parameter: STRING{2608} local LOOP[1909] has the following parameters: LISTS{2604} local C{2605} local LOOP[1905] has the following parameters: LISTS{2600} local C{2601} local [inside LOOP 1902] reentrant [inside LOOP 1901] reentrant LOOP[1900] reentrant has the following parameters: LIST1{2595} local LISTS{2596} local [inside FOR-EACH 1897] reentrant LOOP[1892] has the following parameters: LIST1{2590} local LIST2{2591} local [inside LOOP 1886] reentrant [inside LOOP 1885] reentrant LOOP[1884] reentrant has the following parameter: LIST1{2586} local [inside FOR-EACH 1881] reentrant LOOP[1877] has the following parameters: LISTS{2579} local C{2580} local LOOP[1873] has the following parameters: LISTS{2575} local C{2576} local LOOP[1870] reentrant has the following parameters: LIST1{2570} local LISTS{2571} local C{2572} local [inside MAP 1867] reentrant LOOP[1865] reentrant has the following parameters: LIST1{2565} local LIST2{2566} local C{2567} local [inside MAP 1862] reentrant LOOP[1860] reentrant has the following parameters: LIST1{2561} local C{2562} local [inside MAP 1857] reentrant LOOP[1831] has the following parameter: K{2535} local [inside VECTOR-REVERSE 1827] has the following parameter: R{2531} local LOOP[1780] has the following parameter: K{2495} local [inside LIST->VECTOR 1776] has the following parameter: R{2491} local LIST->VECTOR[1775] has the following parameter: LIST{2490} local VECTOR->LIST[1770] has the following parameter: VECTOR{2486} global LOOP[1748] has the following parameter: K{2465} local [inside STRING-REVERSE 1743] has the following parameter: R{2461} local [inside STRING-REVERSE 1742] has the following parameter: N{2460} local LOOP[1727] has the following parameter: K{2450} local [inside STRING-COPY 1722] has the following parameter: R{2446} local [inside STRING-COPY 1721] has the following parameter: N{2445} local LOOP[1715] has the following parameter: K{2441} local [inside LIST->STRING 1711] has the following parameter: R{2437} local [inside LOOP? 1567] has the following parameter: v{2268} local LOOP?[1566] has the following parameter: K{2267} local [inside LOOP? 1563] has the following parameter: N{2264} local LOOP?[1562] has the following parameters: STRING1{2261} local STRING2{2262} local CHAR-UPCASE[1541] has the following parameter: CHAR{2238} local [inside CHAR-WHITESPACE? 1536] has the following parameter: v{2233} local [inside CHAR-WHITESPACE? 1535] has the following parameter: v{2232} local [inside CHAR-WHITESPACE? 1534] has the following parameter: v{2231} local [inside CHAR-WHITESPACE? 1533] has the following parameter: v{2230} local [inside CHAR-WHITESPACE? 1532] has the following parameter: C{2229} local CHAR-WHITESPACE?[1531] has the following parameter: CHAR{2228} local CHAR-NUMERIC?[1530] has the following parameter: CHAR{2227} local [inside CHAR-ALPHABETIC? 1529] has the following parameter: v{2226} local CHAR-ALPHABETIC?[1528] has the following parameter: CHAR{2225} local LOOP?[1501] has the following parameters: CHAR1{2185} local CHAR2{2186} local CHAR-CI=?[1498] has the following parameters: CHAR1{2180} local CHAR2{2181} local LOOP?[1495] has the following parameters: CHAR1{2176} local CHAR2{2177} local CHAR>=?[1492] has the following parameters: CHAR1{2171} local CHAR2{2172} local LOOP?[1489] has the following parameters: CHAR1{2167} local CHAR2{2168} local CHAR<=?[1486] has the following parameters: CHAR1{2162} local CHAR2{2163} local LOOP?[1483] has the following parameters: CHAR1{2158} local CHAR2{2159} local CHAR>?[1480] has the following parameters: CHAR1{2153} local CHAR2{2154} local LOOP?[1477] has the following parameters: CHAR1{2149} local CHAR2{2150} local CHARINTEGER (PROCEDURE # #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'INTEGER->CHAR (PROCEDURE # #))) The following expression, dynamic-stalin.sc:2124:65018, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'INTEGER->CHAR (PROCEDURE (CONVERT-TVARS #) (CHARACTER))) The following expression, dynamic-stalin.sc:2124:65065, allocates on the heap: (LIST (NUMBER)) The following expression, dynamic-stalin.sc:2122:64932, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CHAR->INTEGER (PROCEDURE (CONVERT-TVARS #) (NUMBER))) The following expression, dynamic-stalin.sc:2122:64979, allocates on the heap: (LIST (CHARACTER)) The following expression, dynamic-stalin.sc:2120:64842, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CHAR? (FORALL (LAMBDA # #))) The following expression, dynamic-stalin.sc:2121:64905, allocates on the heap: (LIST TV) The following expression, dynamic-stalin.sc:2107:64258, allocates on the heap: (LIST ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'NUMBER? (FORALL #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '+ (PROCEDURE # #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '- (PROCEDURE # #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '* (PROCEDURE # #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '/ (PROCEDURE # #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'NUMBER->STRING (PROCEDURE # #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'STRING->NUMBER (PROCEDURE # #))) The following expression, dynamic-stalin.sc:2115:64735, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'STRING->NUMBER (PROCEDURE (CONVERT-TVARS #) (NUMBER))) The following expression, dynamic-stalin.sc:2116:64784, allocates on the heap: (LIST (CHARSEQ)) The following expression, dynamic-stalin.sc:2114:64656, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'NUMBER->STRING (PROCEDURE (CONVERT-TVARS #) (CHARSEQ))) The following expression, dynamic-stalin.sc:2114:64704, allocates on the heap: (LIST (NUMBER)) The following expression, dynamic-stalin.sc:2113:64582, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '/ (PROCEDURE (CONVERT-TVARS #) (NUMBER))) The following expression, dynamic-stalin.sc:2113:64617, allocates on the heap: (LIST (NUMBER) (NUMBER)) The following expression, dynamic-stalin.sc:2112:64508, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '* (PROCEDURE (CONVERT-TVARS #) (NUMBER))) The following expression, dynamic-stalin.sc:2112:64543, allocates on the heap: (LIST (NUMBER) (NUMBER)) The following expression, dynamic-stalin.sc:2111:64434, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '- (PROCEDURE (CONVERT-TVARS #) (NUMBER))) The following expression, dynamic-stalin.sc:2111:64469, allocates on the heap: (LIST (NUMBER) (NUMBER)) The following expression, dynamic-stalin.sc:2110:64360, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '+ (PROCEDURE (CONVERT-TVARS #) (NUMBER))) The following expression, dynamic-stalin.sc:2110:64395, allocates on the heap: (LIST (NUMBER) (NUMBER)) The following expression, dynamic-stalin.sc:2108:64266, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'NUMBER? (FORALL (LAMBDA # #))) The following expression, dynamic-stalin.sc:2109:64333, allocates on the heap: (LIST TV) The following expression, dynamic-stalin.sc:2099:63976, allocates on the heap: (LIST ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'SYMBOL? (FORALL #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'SYMBOL->STRING (PROCEDURE # #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'STRING->SYMBOL (PROCEDURE # #))) The following expression, dynamic-stalin.sc:2103:64157, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'STRING->SYMBOL (PROCEDURE (CONVERT-TVARS #) (SYMBOL))) The following expression, dynamic-stalin.sc:2104:64206, allocates on the heap: (LIST (CHARSEQ)) The following expression, dynamic-stalin.sc:2102:64078, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'SYMBOL->STRING (PROCEDURE (CONVERT-TVARS #) (CHARSEQ))) The following expression, dynamic-stalin.sc:2102:64126, allocates on the heap: (LIST (SYMBOL)) The following expression, dynamic-stalin.sc:2100:63984, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'SYMBOL? (FORALL (LAMBDA # #))) The following expression, dynamic-stalin.sc:2101:64051, allocates on the heap: (LIST TV) The following expression, dynamic-stalin.sc:1954:59479, allocates on the heap: (LIST ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'PAIR? (FORALL2 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'NULL? (FORALL2 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'LIST? (FORALL2 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CONS (FORALL2 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CAR (FORALL2 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CDR (FORALL2 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'SET-CAR! (FORALL2 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'SET-CDR! (FORALL2 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CAAR (FORALL3 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CDAR (FORALL3 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CADR (FORALL3 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CDDR (FORALL3 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CAAAR (FORALL4 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CDAAR (FORALL4 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CADAR (FORALL4 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CDDAR (FORALL4 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CAADR (FORALL4 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CDADR (FORALL4 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CADDR (FORALL4 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CDDDR (FORALL4 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CADDDR (FORALL5 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CDDDDR (FORALL5 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'LIST (FORALL #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'LENGTH (FORALL #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'APPEND (FORALL #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'REVERSE (FORALL #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'LIST-REF (FORALL #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'MEMQ (FORALL #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'MEMV (FORALL #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'MEMBER (FORALL #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'ASSQ (FORALL2 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'ASSV (FORALL2 #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'ASSOC (FORALL2 #))) The following expression, dynamic-stalin.sc:2092:63800, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'ASSOC (FORALL2 (LAMBDA # #))) The following expression, dynamic-stalin.sc:2094:63879, allocates on the heap: (LIST TV1 (LIST-TYPE (PAIR TV1 TV2))) The following expression, dynamic-stalin.sc:2087:63650, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'ASSV (FORALL2 (LAMBDA # #))) The following expression, dynamic-stalin.sc:2089:63726, allocates on the heap: (LIST TV1 (LIST-TYPE (PAIR TV1 TV2))) The following expression, dynamic-stalin.sc:2082:63500, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'ASSQ (FORALL2 (LAMBDA # #))) The following expression, dynamic-stalin.sc:2084:63576, allocates on the heap: (LIST TV1 (LIST-TYPE (PAIR TV1 TV2))) The following expression, dynamic-stalin.sc:2078:63377, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'MEMBER (FORALL (LAMBDA # #))) The following expression, dynamic-stalin.sc:2079:63442, allocates on the heap: (LIST TV (LIST-TYPE TV)) The following expression, dynamic-stalin.sc:2074:63248, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'MEMV (FORALL (LAMBDA # #))) The following expression, dynamic-stalin.sc:2075:63316, allocates on the heap: (LIST TV (LIST-TYPE TV)) The following expression, dynamic-stalin.sc:2070:63119, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'MEMQ (FORALL (LAMBDA # #))) The following expression, dynamic-stalin.sc:2071:63187, allocates on the heap: (LIST TV (LIST-TYPE TV)) The following expression, dynamic-stalin.sc:2066:62989, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'LIST-REF (FORALL (LAMBDA # #))) The following expression, dynamic-stalin.sc:2067:63058, allocates on the heap: (LIST (LIST-TYPE TV) (NUMBER)) The following expression, dynamic-stalin.sc:2063:62869, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'REVERSE (FORALL (LAMBDA # #))) The following expression, dynamic-stalin.sc:2064:62936, allocates on the heap: (LIST (LIST-TYPE TV)) The following expression, dynamic-stalin.sc:2059:62729, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'APPEND (FORALL (LAMBDA # #))) The following expression, dynamic-stalin.sc:2060:62794, allocates on the heap: (LIST (LIST-TYPE TV) (LIST-TYPE TV)) The following expression, dynamic-stalin.sc:2056:62618, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'LENGTH (FORALL (LAMBDA # #))) The following expression, dynamic-stalin.sc:2057:62683, allocates on the heap: (LIST (LIST-TYPE TV)) The following expression, dynamic-stalin.sc:2054:62553, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'LIST (FORALL (LAMBDA # #))) The following expression, dynamic-stalin.sc:2046:62361, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CDDDDR (FORALL5 (LAMBDA # #))) The following expression, dynamic-stalin.sc:2049:62454, allocates on the heap: (LIST (PAIR TV1 (PAIR TV2 #))) The following expression, dynamic-stalin.sc:2038:62169, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CADDDR (FORALL5 (LAMBDA # #))) The following expression, dynamic-stalin.sc:2041:62262, allocates on the heap: (LIST (PAIR TV1 (PAIR TV2 #))) The following expression, dynamic-stalin.sc:2033:62020, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CDDDR (FORALL4 (LAMBDA # #))) The following expression, dynamic-stalin.sc:2036:62107, allocates on the heap: (LIST (PAIR TV1 (PAIR TV2 #))) The following expression, dynamic-stalin.sc:2028:61871, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CADDR (FORALL4 (LAMBDA # #))) The following expression, dynamic-stalin.sc:2031:61958, allocates on the heap: (LIST (PAIR TV1 (PAIR TV2 #))) The following expression, dynamic-stalin.sc:2023:61722, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CDADR (FORALL4 (LAMBDA # #))) The following expression, dynamic-stalin.sc:2026:61809, allocates on the heap: (LIST (PAIR TV1 (PAIR # TV4))) The following expression, dynamic-stalin.sc:2018:61573, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CAADR (FORALL4 (LAMBDA # #))) The following expression, dynamic-stalin.sc:2021:61660, allocates on the heap: (LIST (PAIR TV1 (PAIR # TV4))) The following expression, dynamic-stalin.sc:2013:61424, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CDDAR (FORALL4 (LAMBDA # #))) The following expression, dynamic-stalin.sc:2016:61511, allocates on the heap: (LIST (PAIR (PAIR TV1 #) TV4)) The following expression, dynamic-stalin.sc:2008:61275, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CADAR (FORALL4 (LAMBDA # #))) The following expression, dynamic-stalin.sc:2011:61362, allocates on the heap: (LIST (PAIR (PAIR TV1 #) TV4)) The following expression, dynamic-stalin.sc:2003:61126, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CDAAR (FORALL4 (LAMBDA # #))) The following expression, dynamic-stalin.sc:2006:61213, allocates on the heap: (LIST (PAIR (PAIR # TV3) TV4)) The following expression, dynamic-stalin.sc:1998:60977, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CAAAR (FORALL4 (LAMBDA # #))) The following expression, dynamic-stalin.sc:2001:61064, allocates on the heap: (LIST (PAIR (PAIR # TV3) TV4)) The following expression, dynamic-stalin.sc:1994:60846, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CDDR (FORALL3 (LAMBDA # #))) The following expression, dynamic-stalin.sc:1996:60926, allocates on the heap: (LIST (PAIR TV1 (PAIR TV2 TV3))) The following expression, dynamic-stalin.sc:1990:60715, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CADR (FORALL3 (LAMBDA # #))) The following expression, dynamic-stalin.sc:1992:60795, allocates on the heap: (LIST (PAIR TV1 (PAIR TV2 TV3))) The following expression, dynamic-stalin.sc:1985:60583, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CDAR (FORALL3 (LAMBDA # #))) The following expression, dynamic-stalin.sc:1987:60663, allocates on the heap: (LIST (PAIR (PAIR TV1 TV2) TV3)) The following expression, dynamic-stalin.sc:1981:60452, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CAAR (FORALL3 (LAMBDA # #))) The following expression, dynamic-stalin.sc:1983:60532, allocates on the heap: (LIST (PAIR (PAIR TV1 TV2) TV3)) The following expression, dynamic-stalin.sc:1977:60313, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'SET-CDR! (FORALL2 (LAMBDA # #))) The following expression, dynamic-stalin.sc:1978:60389, allocates on the heap: (LIST (PAIR TV1 TV2) TV2) The following expression, dynamic-stalin.sc:1973:60174, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'SET-CAR! (FORALL2 (LAMBDA # #))) The following expression, dynamic-stalin.sc:1974:60250, allocates on the heap: (LIST (PAIR TV1 TV2) TV1) The following expression, dynamic-stalin.sc:1970:60062, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CDR (FORALL2 (LAMBDA # #))) The following expression, dynamic-stalin.sc:1971:60135, allocates on the heap: (LIST (PAIR TV1 TV2)) The following expression, dynamic-stalin.sc:1967:59950, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CAR (FORALL2 (LAMBDA # #))) The following expression, dynamic-stalin.sc:1968:60023, allocates on the heap: (LIST (PAIR TV1 TV2)) The following expression, dynamic-stalin.sc:1964:59838, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CONS (FORALL2 (LAMBDA # #))) The following expression, dynamic-stalin.sc:1965:59906, allocates on the heap: (LIST TV1 TV2) The following expression, dynamic-stalin.sc:1961:59721, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'LIST? (FORALL2 (LAMBDA # #))) The following expression, dynamic-stalin.sc:1962:59791, allocates on the heap: (LIST (PAIR TV1 TV2)) The following expression, dynamic-stalin.sc:1958:59604, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'NULL? (FORALL2 (LAMBDA # #))) The following expression, dynamic-stalin.sc:1959:59674, allocates on the heap: (LIST (PAIR TV1 TV2)) The following expression, dynamic-stalin.sc:1955:59487, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'PAIR? (FORALL2 (LAMBDA # #))) The following expression, dynamic-stalin.sc:1956:59557, allocates on the heap: (LIST (PAIR TV1 TV2)) The following expression, dynamic-stalin.sc:1941:59099, allocates on the heap: (LIST ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'BOOLEAN? (FORALL #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #T (BOOLEAN)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'NOT (PROCEDURE # #))) The following expression, dynamic-stalin.sc:1946:59288, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'NOT (PROCEDURE (CONVERT-TVARS #) (BOOLEAN))) The following expression, dynamic-stalin.sc:1946:59325, allocates on the heap: (LIST (BOOLEAN)) The following expression, dynamic-stalin.sc:1945:59266, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) #T (BOOLEAN)) The following expression, dynamic-stalin.sc:1942:59107, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'BOOLEAN? (FORALL (LAMBDA # #))) The following expression, dynamic-stalin.sc:1943:59176, allocates on the heap: (LIST TV) The following expression, dynamic-stalin.sc:1924:58466, allocates on the heap: (LIST ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'OPEN-INPUT-FILE (PROCEDURE # DYNAMIC)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'EOF-OBJECT? (PROCEDURE # #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'READ (FORALL #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'WRITE (FORALL #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'DISPLAY (FORALL #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'NEWLINE (PROCEDURE # DYNAMIC)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'PRETTY-PRINT (FORALL #))) The following expression, dynamic-stalin.sc:1934:58946, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'PRETTY-PRINT (FORALL (LAMBDA # #))) The following expression, dynamic-stalin.sc:1936:59017, allocates on the heap: (LIST TV) The following expression, dynamic-stalin.sc:1933:58901, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'NEWLINE (PROCEDURE (NULL) DYNAMIC)) The following expression, dynamic-stalin.sc:1931:58809, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'DISPLAY (FORALL (LAMBDA # #))) The following expression, dynamic-stalin.sc:1932:58876, allocates on the heap: (LIST TV) The following expression, dynamic-stalin.sc:1929:58721, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'WRITE (FORALL (LAMBDA # #))) The following expression, dynamic-stalin.sc:1930:58784, allocates on the heap: (LIST TV) The following expression, dynamic-stalin.sc:1927:58628, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'READ (FORALL (LAMBDA # #))) The following expression, dynamic-stalin.sc:1928:58696, allocates on the heap: (LIST TV) The following expression, dynamic-stalin.sc:1926:58553, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'EOF-OBJECT? (PROCEDURE (CONVERT-TVARS #) (BOOLEAN))) The following expression, dynamic-stalin.sc:1926:58598, allocates on the heap: (LIST DYNAMIC) The following expression, dynamic-stalin.sc:1925:58474, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'OPEN-INPUT-FILE (PROCEDURE (CONVERT-TVARS #) DYNAMIC)) The following expression, dynamic-stalin.sc:1925:58523, allocates on the heap: (LIST (CHARSEQ)) The following expression, dynamic-stalin.sc:1912:58065, allocates on the heap: (LIST ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'QUOTE (FORALL #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'EQV? (FORALL #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'EQ? (FORALL #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'EQUAL? (FORALL #))) The following expression, dynamic-stalin.sc:1918:58313, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'EQUAL? (FORALL (LAMBDA # #))) The following expression, dynamic-stalin.sc:1918:58374, allocates on the heap: (LIST TV TV) The following expression, dynamic-stalin.sc:1916:58215, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'EQ? (FORALL (LAMBDA # #))) The following expression, dynamic-stalin.sc:1916:58273, allocates on the heap: (LIST TV TV) The following expression, dynamic-stalin.sc:1914:58115, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'EQV? (FORALL (LAMBDA # #))) The following expression, dynamic-stalin.sc:1914:58174, allocates on the heap: (LIST TV TV) The following expression, dynamic-stalin.sc:1913:58073, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'QUOTE (FORALL (LAMBDA # TV))) The following expression, dynamic-stalin.sc:1893:57487, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'BEGIN (MAP TAG-AST-SHOW SYNTAX-ARG)) The following expression, dynamic-stalin.sc:1886:57289, allocates on the heap: (LIST 'DEFINE (TAG-AST-SHOW (# SYNTAX-ARG)) (TAG-SHOW FUNC-TVAR (# # #))) The following expression, dynamic-stalin.sc:1890:57365, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'LAMBDA ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (TAG-AST-SHOW #) (MAP TAG-AST-SHOW #))) The following expression, dynamic-stalin.sc:1891:57388, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (TAG-AST-SHOW (CADR SYNTAX-ARG)) (MAP TAG-AST-SHOW (CDDR SYNTAX-ARG))) The following expression, dynamic-stalin.sc:1882:57126, allocates on the heap: (LIST 'DEFINE (TAG-AST-SHOW (# SYNTAX-ARG)) (TAG-AST-SHOW (# SYNTAX-ARG))) The following expression, dynamic-stalin.sc:1878:56953, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'BEGIN (MAP TAG-AST-SHOW SYNTAX-ARG)) The following expression, dynamic-stalin.sc:1871:56737, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'LETREC ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (MAP # # #) (MAP TAG-AST-SHOW #))) The following expression, dynamic-stalin.sc:1872:56759, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (MAP (LAMBDA # #) (CAAR SYNTAX-ARG) (CDAR SYNTAX-ARG)) (MAP TAG-AST-SHOW (# SYNTAX-ARG))) The following expression, dynamic-stalin.sc:1872:56765, allocates on the heap: (MAP (LAMBDA (VD E) (LIST # #)) (CAAR SYNTAX-ARG) (CDAR SYNTAX-ARG)) The following expression, dynamic-stalin.sc:1874:56802, allocates on the heap: (LIST (TAG-AST-SHOW VD) (TAG-AST-SHOW E)) The following expression, dynamic-stalin.sc:1864:56523, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'LET* ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (MAP # # #) (MAP TAG-AST-SHOW #))) The following expression, dynamic-stalin.sc:1865:56543, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (MAP (LAMBDA # #) (CAAR SYNTAX-ARG) (CDAR SYNTAX-ARG)) (MAP TAG-AST-SHOW (# SYNTAX-ARG))) The following expression, dynamic-stalin.sc:1865:56549, allocates on the heap: (MAP (LAMBDA (VD E) (LIST # #)) (CAAR SYNTAX-ARG) (CDAR SYNTAX-ARG)) The following expression, dynamic-stalin.sc:1867:56586, allocates on the heap: (LIST (TAG-AST-SHOW VD) (TAG-AST-SHOW E)) The following expression, dynamic-stalin.sc:1856:56266, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'LET ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (TAG-AST-SHOW #) (# # #))) The following expression, dynamic-stalin.sc:1857:56285, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (TAG-AST-SHOW (# SYNTAX-ARG)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (MAP # # #) (MAP TAG-AST-SHOW #))) The following expression, dynamic-stalin.sc:1858:56330, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (MAP (LAMBDA # #) (CAADR SYNTAX-ARG) (CDADR SYNTAX-ARG)) (MAP TAG-AST-SHOW (CDDR SYNTAX-ARG))) The following expression, dynamic-stalin.sc:1858:56336, allocates on the heap: (MAP (LAMBDA (VD E) (LIST # #)) (CAADR SYNTAX-ARG) (CDADR SYNTAX-ARG)) The following expression, dynamic-stalin.sc:1860:56371, allocates on the heap: (LIST (TAG-AST-SHOW VD) (TAG-AST-SHOW E)) The following expression, dynamic-stalin.sc:1849:56053, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'LET ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (MAP # # #) (MAP TAG-AST-SHOW #))) The following expression, dynamic-stalin.sc:1850:56072, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (MAP (LAMBDA # #) (CAAR SYNTAX-ARG) (CDAR SYNTAX-ARG)) (MAP TAG-AST-SHOW (# SYNTAX-ARG))) The following expression, dynamic-stalin.sc:1850:56078, allocates on the heap: (MAP (LAMBDA (VD E) (LIST # #)) (CAAR SYNTAX-ARG) (CDAR SYNTAX-ARG)) The following expression, dynamic-stalin.sc:1852:56115, allocates on the heap: (LIST (TAG-AST-SHOW VD) (TAG-AST-SHOW E)) The following expression, dynamic-stalin.sc:1844:55888, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'OR (MAP (LAMBDA # #) SYNTAX-ARG)) The following expression, dynamic-stalin.sc:1839:55718, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'AND (MAP (LAMBDA # #) SYNTAX-ARG)) The following expression, dynamic-stalin.sc:1828:55369, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'CASE ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (TAG-AST-SHOW #) (MAP # #))) The following expression, dynamic-stalin.sc:1829:55389, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (TAG-AST-SHOW (# SYNTAX-ARG)) (MAP (LAMBDA # #) (# SYNTAX-ARG))) The following expression, dynamic-stalin.sc:1836:55613, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (MAP DATUM-SHOW DATA) (MAP TAG-AST-SHOW (# CC))) The following expression, dynamic-stalin.sc:1834:55558, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'ELSE (MAP TAG-AST-SHOW (# CC))) The following expression, dynamic-stalin.sc:1817:55068, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'COND (MAP (LAMBDA # #) SYNTAX-ARG)) The following expression, dynamic-stalin.sc:1821:55167, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (IF (EQV? # EMPTY) 'ELSE (UNTAG-SHOW # #)) (MAP TAG-AST-SHOW BODY)) The following expression, dynamic-stalin.sc:1815:54973, allocates on the heap: (LIST 'SET! (TAG-AST-SHOW (# SYNTAX-ARG)) (TAG-AST-SHOW (# SYNTAX-ARG))) The following expression, dynamic-stalin.sc:1808:54713, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'IF ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (UNTAG-SHOW TEST-TVAR #) (# # #))) The following expression, dynamic-stalin.sc:1808:54723, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (UNTAG-SHOW TEST-TVAR (TAG-AST-SHOW #)) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (TAG-AST-SHOW #) (# #))) The following expression, dynamic-stalin.sc:1810:54799, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (TAG-AST-SHOW (CADR SYNTAX-ARG)) ((LAMBDA # #) (CDDR SYNTAX-ARG))) The following expression, dynamic-stalin.sc:1814:54931, allocates on the heap: (LIST (TAG-AST-SHOW ALT)) The following expression, dynamic-stalin.sc:1805:54543, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 'LAMBDA ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (TAG-AST-SHOW #) (MAP TAG-AST-SHOW #))) The following expression, dynamic-stalin.sc:1805:54557, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (TAG-AST-SHOW (# SYNTAX-ARG)) (MAP TAG-AST-SHOW (# SYNTAX-ARG))) The following expression, dynamic-stalin.sc:1801:54402, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (UNTAG-SHOW PROC-TVAR (TAG-AST-SHOW #)) (TAG-AST-SHOW (# SYNTAX-ARG))) The following expression, dynamic-stalin.sc:1797:54218, allocates on the heap: (LIST 'CONS (TAG-AST-SHOW (# SYNTAX-ARG)) (TAG-AST-SHOW (# SYNTAX-ARG))) The following expression, dynamic-stalin.sc:1795:54084, allocates on the heap: (LIST 'QUOTE SYNTAX-ARG) The following expression, dynamic-stalin.sc:1792:53911, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (MAY-UNTAG-SHOW (FIND! #) (TAG-AST-SHOW #)) (TAG-AST-SHOW (# SYNTAX-ARG))) The following expression, dynamic-stalin.sc:1790:53822, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (TAG-AST-SHOW (# SYNTAX-ARG)) (TAG-AST-SHOW (# SYNTAX-ARG))) The following expression, dynamic-stalin.sc:1775:53387, allocates on the heap: (LIST 'NO-MAY-UNTAG PROG) The following expression, dynamic-stalin.sc:1772:53284, allocates on the heap: (LIST 'MAY-UNTAG PROG) The following expression, dynamic-stalin.sc:1765:53066, allocates on the heap: (LIST 'NO-UNTAG PROG) The following expression, dynamic-stalin.sc:1762:52975, allocates on the heap: (LIST 'UNTAG PROG) The following expression, dynamic-stalin.sc:1753:52764, allocates on the heap: (LIST 'NO-TAG PROG) The following expression, dynamic-stalin.sc:1750:52679, allocates on the heap: (LIST 'TAG PROG) The following expression, dynamic-stalin.sc:1738:52369, allocates on the heap: (LIST ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TAG-COUNTER NO-TAG-COUNTER) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) UNTAG-COUNTER NO-UNTAG-COUNTER) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) MAY-UNTAG-COUNTER NO-MAY-UNTAG-COUNTER)) The following expression, dynamic-stalin.sc:1741:52453, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) MAY-UNTAG-COUNTER NO-MAY-UNTAG-COUNTER) The following expression, dynamic-stalin.sc:1740:52413, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) UNTAG-COUNTER NO-UNTAG-COUNTER) The following expression, dynamic-stalin.sc:1739:52377, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TAG-COUNTER NO-TAG-COUNTER) The following expression, dynamic-stalin.sc:1567:47365, allocates on the heap: (FOR-EACH ADD-CONSTR! VAR-DEF-TVARS DEF-EXPR-TYPES) The following expression, dynamic-stalin.sc:1561:47089, allocates on the heap: (FOR-EACH ADD-CONSTR! VAR-DEF-TVARS DEF-EXPR-TYPES) The following expression, dynamic-stalin.sc:1587:48026, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) SYNTAX-OP ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NTVAR ARG)) The following expression, dynamic-stalin.sc:1587:48042, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NTVAR ARG) The following expression, dynamic-stalin.sc:1461:44012, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (DATUM-SHOW (# #)) (DATUM-SHOW (# #))) The following expression, dynamic-stalin.sc:1349:40414, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) A B) The following expression, dynamic-stalin.sc:1347:40323, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) VARIABLE ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) FORMALS BODY)) The following expression, dynamic-stalin.sc:1347:40338, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) FORMALS BODY) The following expression, dynamic-stalin.sc:1343:40146, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) VARIABLE EXPR) The following expression, dynamic-stalin.sc:1339:39997, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) BINDINGS BODY) The following expression, dynamic-stalin.sc:1335:39837, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) BINDINGS BODY) The following expression, dynamic-stalin.sc:1331:39665, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) VARIABLE ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) BINDINGS BODY)) The following expression, dynamic-stalin.sc:1331:39680, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) BINDINGS BODY) The following expression, dynamic-stalin.sc:1327:39484, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) BINDINGS BODY) The following expression, dynamic-stalin.sc:1323:39332, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) KEY CLAUSES) The following expression, dynamic-stalin.sc:1303:38656, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) LHS RHS) The following expression, dynamic-stalin.sc:1295:38387, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TEST ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) THEN-BRANCH ELSE-BRANCH)) The following expression, dynamic-stalin.sc:1295:38398, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) THEN-BRANCH ELSE-BRANCH) The following expression, dynamic-stalin.sc:1291:38201, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) FORMALS BODY) The following expression, dynamic-stalin.sc:1287:38044, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) OP ARGS) The following expression, dynamic-stalin.sc:1282:37863, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) A1 A2) The following expression, dynamic-stalin.sc:1260:37024, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) D1 D2) The following expression, dynamic-stalin.sc:1245:36519, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) E1 E2) The following expression, dynamic-stalin.sc:1081:32135, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (GEN-CONSTR LHS RHS) GLOBAL-CONSTRAINTS) The following expression, dynamic-stalin.sc:1058:31589, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) A B) The following expression, dynamic-stalin.sc:971:29196, allocates on the heap: (MAP EQUIV! (TYPE-ARGS TV1-DEF) (TYPE-ARGS TV2-DEF)) The following expression, dynamic-stalin.sc:942:28338, allocates on the heap: (LIST ARG-TVAR RES-TVAR) The following expression, dynamic-stalin.sc:940:28261, allocates on the heap: (LIST TVAR) The following expression, dynamic-stalin.sc:938:28195, allocates on the heap: (LIST TVAR-1 TVAR-2) The following expression, dynamic-stalin.sc:865:26324, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TCON TARGS) The following expression, dynamic-stalin.sc:851:25922, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 0 '()) The following expression, dynamic-stalin.sc:849:25856, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (GEN-ID) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TCON TARGS)) The following expression, dynamic-stalin.sc:849:25871, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) TCON TARGS) The following expression, dynamic-stalin.sc:845:25720, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (GEN-ID) '()) The following expression, dynamic-stalin.sc:747:22961, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) '() ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 0 INFO)) The following expression, dynamic-stalin.sc:747:22971, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) 0 INFO) The following expression, dynamic-stalin.sc:601:18828, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) FORMALS-ENV ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) FORMALS-RES EXPRS-ASG)) The following expression, dynamic-stalin.sc:603:18860, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) FORMALS-RES EXPRS-ASG) The following expression, dynamic-stalin.sc:563:17559, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NEW-EXPR-ASG EXPR-ASGS) The following expression, dynamic-stalin.sc:562:17530, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) BRES VAR-DEFS) The following expression, dynamic-stalin.sc:549:17072, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) F-ENV ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) VAR-DEFS EXPR-ASGS)) The following expression, dynamic-stalin.sc:549:17084, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) VAR-DEFS EXPR-ASGS) The following expression, dynamic-stalin.sc:568:17774, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) ENV-VDEFS-EASGS) ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (REVERSE #) (REVERSE #))) The following expression, dynamic-stalin.sc:569:17804, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (REVERSE (CADR ENV-VDEFS-EASGS)) (REVERSE (CDDR ENV-VDEFS-EASGS))) The following expression, dynamic-stalin.sc:516:15979, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) NENV ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) BRESULTS EXPRS-ASG)) The following expression, dynamic-stalin.sc:516:15990, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) BRESULTS EXPRS-ASG) The following expression, dynamic-stalin.sc:449:13883, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (IF (EQV? # #) (#) (IF # # #)) (DYNAMIC-PARSE-BODY ENV (# E))) The following expression, dynamic-stalin.sc:452:13931, allocates on the heap: (LIST (DYNAMIC-PARSE-ACTION-EMPTY)) The following expression, dynamic-stalin.sc:411:12860, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (IF (EQV? # #) (DYNAMIC-PARSE-ACTION-EMPTY) (DYNAMIC-PARSE-EXPRESSION ENV #)) (DYNAMIC-PARSE-BODY ENV (# E))) The following expression, dynamic-stalin.sc:266:8439, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (DYNAMIC-PARSE-EXPRESSION ENV (# ES)) RESULTS) The following expression, dynamic-stalin.sc:224:7120, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (EXTEND-ENV-WITH-BINDING DYNAMIC-EMPTY-ENV BIND) RES) The following expression, dynamic-stalin.sc:217:6894, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (EXTEND-ENV-WITH-BINDING RENV BIND) (DYNAMIC-PARSE-ACTION-PAIR-FORMAL RES RES*)) The following expression, dynamic-stalin.sc:206:6486, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) DYNAMIC-EMPTY-ENV (DYNAMIC-PARSE-ACTION-NULL-FORMAL)) The following expression, dynamic-stalin.sc:192:6039, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) VAR-RESULT RESULTS) The following expression, dynamic-stalin.sc:184:5758, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) F-ENV RESULTS) The following expression, dynamic-stalin.sc:196:6193, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) RENV-RRES) (REVERSE (# RENV-RRES))) The following expression, dynamic-stalin.sc:166:5120, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (GEN-BINDING E DYNAMIC-PARSE-ACTION-RESULT) DYNAMIC-PARSE-ACTION-RESULT) The following expression, dynamic-stalin.sc:90:2673, allocates on the heap: (APPEND EXT-ENV ENV) The following expression, dynamic-stalin.sc:83:2417, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) BINDING ENV) The following expression, dynamic-stalin.sc:11:339, allocates on the heap: (LIST 'UNDEFINED) The following expression, dynamic-stalin.sc:2252:68529, allocates on the heap: (DYNAMIC-BENCHMARK 100) The closure for [clone [inside FORALL2 324] 6882] is allocated on the heap The closure for [clone FORALL2[323] 6881] is allocated on the heap The closure for [clone [inside FORALL3 327] 6812] is allocated on the heap The closure for [clone FORALL3[326] 6811] is allocated on the heap The closure for [clone [inside FORALL2 324] 6807] is allocated on the heap The closure for [clone FORALL2[323] 6806] is allocated on the heap The closure for [clone [inside FORALL2 324] 6802] is allocated on the heap The closure for [clone FORALL2[323] 6801] is allocated on the heap The closure for [clone [inside FORALL2 324] 6797] is allocated on the heap The closure for [clone FORALL2[323] 6796] is allocated on the heap The closure for [clone [inside FORALL2 324] 6792] is allocated on the heap The closure for [clone FORALL2[323] 6791] is allocated on the heap The closure for [clone [inside FORALL2 324] 6787] is allocated on the heap The closure for [clone FORALL2[323] 6786] is allocated on the heap The closure for [clone [inside FORALL2 324] 6782] is allocated on the heap The closure for [clone FORALL2[323] 6781] is allocated on the heap The closure for [clone [inside FORALL2 324] 6777] is allocated on the heap The closure for [clone FORALL2[323] 6776] is allocated on the heap The closure for [clone [inside FORALL2 324] 6772] is allocated on the heap The closure for [clone FORALL2[323] 6771] is allocated on the heap The closure for [clone [inside FORALL4 330] 6508] is allocated on the heap The closure for [clone FORALL4[329] 6507] is allocated on the heap The closure for [clone [inside FORALL3 327] 6503] is allocated on the heap The closure for [clone FORALL3[326] 6502] is allocated on the heap The closure for [clone [inside FORALL3 327] 6498] is allocated on the heap The closure for [clone FORALL3[326] 6497] is allocated on the heap The closure for [clone [inside FORALL3 327] 6493] is allocated on the heap The closure for [clone FORALL3[326] 6492] is allocated on the heap The closure for [clone [inside FORALL3 327] 6488] is allocated on the heap The closure for [clone FORALL3[326] 6487] is allocated on the heap The closure for [clone [inside FORALL3 327] 6483] is allocated on the heap The closure for [clone FORALL3[326] 6482] is allocated on the heap The closure for [clone [inside FORALL3 327] 6478] is allocated on the heap The closure for [clone FORALL3[326] 6477] is allocated on the heap The closure for [clone [inside FORALL3 327] 6473] is allocated on the heap The closure for [clone FORALL3[326] 6472] is allocated on the heap The closure for [clone [inside FORALL3 327] 6468] is allocated on the heap The closure for [clone FORALL3[326] 6467] is allocated on the heap The closure for [clone [inside FORALL2 324] 6463] is allocated on the heap The closure for [clone FORALL2[323] 6462] is allocated on the heap The closure for [clone [inside FORALL2 324] 6458] is allocated on the heap The closure for [clone FORALL2[323] 6457] is allocated on the heap The closure for [clone [inside FORALL2 324] 6453] is allocated on the heap The closure for [clone FORALL2[323] 6452] is allocated on the heap The closure for [clone [inside FORALL2 324] 6448] is allocated on the heap The closure for [clone FORALL2[323] 6447] is allocated on the heap The closure for [clone [inside FORALL5 333] 5398] is allocated on the heap The closure for [clone [inside FORALL4 330] 5395] is allocated on the heap The closure for [clone [inside FORALL4 330] 5392] is allocated on the heap The closure for [clone [inside FORALL4 330] 5389] is allocated on the heap The closure for [clone [inside FORALL4 330] 5386] is allocated on the heap The closure for [clone [inside FORALL4 330] 5383] is allocated on the heap The closure for [clone [inside FORALL4 330] 5380] is allocated on the heap The closure for [clone [inside FORALL4 330] 5377] is allocated on the heap The closure for [clone [inside FORALL4 330] 5374] is allocated on the heap The closure for [clone [inside FORALL3 327] 5371] is allocated on the heap The closure for [clone [inside FORALL3 327] 5368] is allocated on the heap The closure for [clone [inside FORALL3 327] 5365] is allocated on the heap The closure for [clone [inside FORALL3 327] 5362] is allocated on the heap The closure for [clone [inside FORALL2 324] 5359] is allocated on the heap The closure for [clone [inside FORALL2 324] 5356] is allocated on the heap The closure for [clone [inside FORALL2 324] 5353] is allocated on the heap The closure for [clone [inside FORALL2 324] 5350] is allocated on the heap The closure for [clone [inside FORALL2 324] 5347] is allocated on the heap The closure for [clone [inside FORALL2 324] 5344] is allocated on the heap The closure for [clone [inside FORALL2 324] 5341] is allocated on the heap The closure for [clone [inside FORALL2 324] 5338] is allocated on the heap The closure for [clone [inside FORALL2 324] 5335] is allocated on the heap The closure for [clone [inside FORALL2 324] 5332] is allocated on the heap The closure for [clone [inside FORALL2 324] 5329] is allocated on the heap The closure for [clone [inside FORALL2 324] 5326] is allocated on the heap The closure for [clone [inside FORALL2 324] 5323] is allocated on the heap The closure for [clone [inside FORALL2 324] 5320] is allocated on the heap The closure for [inside AST-GEN 500] is allocated on the stack The closure for [inside AST-GEN 499] is allocated on the stack The closure for [inside AST-GEN 494] is allocated on the stack The closure for [inside AST-GEN 470] is allocated on the stack The closure for [inside FORALL5 333] is allocated on the heap The closure for [inside FORALL4 330] is allocated on the heap The closure for FORALL4[329] is allocated on the heap The closure for [inside FORALL3 327] is allocated on the heap The closure for FORALL3[326] is allocated on the heap The closure for [inside FORALL2 324] is allocated on the heap The closure for FORALL2[323] is allocated on the heap The closure for DYNAMIC-PARSE-COMMAND*[228] is allocated on the stack The closure for DYNAMIC-PARSE-CASE[154] is allocated on the stack The closure for DYNAMIC-PARSE-COND[149] is allocated on the stack Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W46231 is general case for the following reasons: nondegenerate nonheaded vector W43307 is general case for the following reasons: flonum W43300 is general case for the following reasons: flonum W43293 is general case for the following reasons: insufficient squish tag bits (6 needed 2 available) W43286 is general case for the following reasons: insufficient squish tag bits (6 needed 2 available) W43279 is general case for the following reasons: insufficient squish tag bits (6 needed 2 available) W43267 is general case for the following reasons: insufficient squish tag bits (6 needed 2 available) W42841 is general case for the following reasons: flonum W41815 is general case for the following reasons: flonum W37928 is general case for the following reasons: flonum W34943 is general case for the following reasons: flonum W31179 is general case for the following reasons: insufficient squish tag bits (3 needed 2 available) W29393 is general case for the following reasons: flonum W29360 is general case for the following reasons: flonum W29359 is general case for the following reasons: flonum W28603 is general case for the following reasons: flonum W7961 is general case for the following reasons: flonum W1354 is general case for the following reasons: flonum W443 is general case for the following reasons: flonum W435 is general case for the following reasons: flonum W274 is general case for the following reasons: flonum W36 is general case for the following reasons: flonum W32 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code dynamic-stalin.c: In function `f2289': dynamic-stalin.c:7399: warning: value computed is not used dynamic-stalin.c: In function `f2235': dynamic-stalin.c:8412: warning: value computed is not used dynamic-stalin.c:8472: warning: value computed is not used dynamic-stalin.c:8664: warning: value computed is not used dynamic-stalin.c: In function `f2203': dynamic-stalin.c:9406: warning: value computed is not used dynamic-stalin.c:9606: warning: value computed is not used dynamic-stalin.c: In function `f2193': dynamic-stalin.c:10121: warning: value computed is not used dynamic-stalin.c:10186: warning: value computed is not used dynamic-stalin.c:10252: warning: value computed is not used dynamic-stalin.c:9934: warning: `t2074' might be used uninitialized in this function dynamic-stalin.c: In function `f2187': dynamic-stalin.c:10406: warning: value computed is not used dynamic-stalin.c:10285: warning: `t2185' might be used uninitialized in this function dynamic-stalin.c: In function `f2181': dynamic-stalin.c:10555: warning: value computed is not used dynamic-stalin.c:10437: warning: `t2228' might be used uninitialized in this function dynamic-stalin.c: In function `f2173': dynamic-stalin.c:10698: warning: value computed is not used dynamic-stalin.c:10744: warning: value computed is not used dynamic-stalin.c: In function `f1940': dynamic-stalin.c:13624: warning: value computed is not used dynamic-stalin.c:15948: warning: value computed is not used dynamic-stalin.c:16287: warning: value computed is not used dynamic-stalin.c:16324: warning: value computed is not used dynamic-stalin.c:16409: warning: value computed is not used dynamic-stalin.c:16517: warning: value computed is not used dynamic-stalin.c:16677: warning: value computed is not used dynamic-stalin.c:16822: warning: value computed is not used dynamic-stalin.c:16865: warning: value computed is not used dynamic-stalin.c:16950: warning: value computed is not used dynamic-stalin.c:17058: warning: value computed is not used dynamic-stalin.c:17218: warning: value computed is not used dynamic-stalin.c:17365: warning: value computed is not used dynamic-stalin.c:17472: warning: value computed is not used dynamic-stalin.c: In function `f230': dynamic-stalin.c:38122: warning: `t9370' might be used uninitialized in this function dynamic-stalin.c: In function `f78': dynamic-stalin.c:39868: warning: `a1282' might be used uninitialized in this function dynamic-stalin.c:39870: warning: `a1284' might be used uninitialized in this function dynamic-stalin.c:39871: warning: `a1285' might be used uninitialized in this function dynamic-stalin.c: In function `f59': dynamic-stalin.c:43344: warning: `t10489' might be used uninitialized in this function dynamic-stalin.c:43387: warning: `t10532' might be used uninitialized in this function dynamic-stalin.c: In function `f42': dynamic-stalin.c:44006: warning: `t10602' might be used uninitialized in this function dynamic-stalin.c:44008: warning: `t10604' might be used uninitialized in this function dynamic-stalin.c:44035: warning: `t10631' might be used uninitialized in this function Compilation time summary (in CPU seconds) 0 - 0% - Reading source 3 - 0% - Expanding macros 16 - 1% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 1 - 0% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 226 - 11% - Performing flow analysis 0 - 0% - Enumerating call sites 10 - 1% - Determining which types and type sets are used 139 - 7% - Determining which call sites to split 1 - 0% - Computing call graph 32 - 2% - Determining which environments are called more than once 9 - 0% - Determining which variables are referenced 0 - 0% - Determining free variables 1 - 0% - Annotating environments and continuation types 2 - 0% - Inverting points-to relation 805 - 39% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 18 - 1% - Determining which environments are recursive 58 - 3% - Determining which environments are reentrant 24 - 1% - Asserting uniqueness 173 - 8% - Performing lightweight closure conversion 0 - 0% - Determining parents 21 - 1% - Determining which expressions need conversion to CPS 10 - 1% - Determining environment distances from root 1 - 0% - Determining which environments have external self tail calls 42 - 2% - Determining which environments have external continuation calls 80 - 4% - Determining blocked environments 28 - 1% - Determining allocations 78 - 4% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 25 - 1% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 57 - 3% - Generating code 171 - 8% - Removing unused declarations 5 - 0% - Removing unused labels 4 - 0% - Writing database 0 - 0% - Compiling C code 2051.61user 9.22system 35:18.88elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (36018major+1724643minor)pagefaults 0swaps run dynamic 19.54user 0.11system 0:20.54elapsed 95%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (148major+5111minor)pagefaults 0swaps compile fannkuch Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 15139 expressions 0 internal symbol types 0 external symbol types 28 primitive procedure types 213 non-called native procedure types 276 called noop native procedure types 114 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 5 headed vector types 1 nonheaded vector type 0 displaced vector types 17303 type sets 626 hunoz variables 1532 non-hunoz variables 494 noop environments 1615 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 15139 expressions 0 internal symbol types 0 external symbol types 28 primitive procedure types 213 non-called native procedure types 276 called noop native procedure types 114 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 5 headed vector types 1 nonheaded vector type 0 displaced vector types 17303 type sets 626 hunoz variables 1532 non-hunoz variables 494 noop environments 1615 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 1961 expressions 0 internal symbol types 0 external symbol types 28 primitive procedure types 213 non-called native procedure types 276 called noop native procedure types 114 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 5 headed vector types 1 nonheaded vector type 0 displaced vector types 2783 type sets 288 hunoz variables 528 non-hunoz variables 0 noop environments 114 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedure will be generated: [inside top level 0] has the following in-lined locals: I{657} N{660} PERM{661} PERM1{662} ZAEHL{663} PERMMAX{664} BISHMAX{682} R{683} R{688} I{690} v{692} I{693} COUNT{695} P{697} N{698} I{701} PERM{703} PERM1{704} N{705} I{708} PERM{710} PERM1{711} N{712} I{715} K{717} K2{718} PERM{719} I{723} TEMP{725} J{726} ZAEHL{728} R{729} I{730} R{732} PERM1{733} PERM0{735} I{739} K{740} PERM{742} COUNT{746} K{747} N{749} NUMBER{1852} PORT{1853} I{1856} NUMBER{1857} I{1860} I{1866} NUMBER{1867} I{1870} OBJ{1900} PORT{1901} OBJ{2143} The following non-trivial in-line native procedures will be generated: WRITE[1859] has the following parameter: OBJ{2143} local WRITE2[1452] has the following parameters: OBJ{1900} local PORT{1901} local LOOP[1406] has the following parameter: I{1870} local LOOP[1403] has the following parameters: I{1866} local NUMBER{1867} local LOOP[1392] has the following parameter: I{1860} local LOOP[1389] has the following parameters: I{1856} local NUMBER{1857} local DISPLAY-EXACT-INTEGER2[1385] has the following parameters: NUMBER{1852} local PORT{1853} local [inside top level 1372] has the following parameters: THE-CURRENT-OUTPUT-PORT{1806} global BUFFER{1808} global FANNKUCH[105] has region has the following parameter: N{749} local [inside LOOP 93] has the following parameter: K{747} local LOOP[92] has the following parameter: COUNT{746} local COUNT-FLIPS[89] has the following parameter: PERM{742} local [inside LOOP 85] has the following parameter: K{740} local LOOP[84] has the following parameter: I{739} local [inside SHIFT 80] has the following parameter: PERM0{735} local SHIFT[79] has the following parameters: R{732} local PERM1{733} local [inside KREUZ-LOOP 76] has the following parameter: I{730} local KREUZ-LOOP[75] has the following parameters: ZAEHL{728} local R{729} local [inside loop 71] has the following parameter: J{726} local [inside loop 70] has the following parameter: TEMP{725} local loop[66] has the following parameter: I{723} local FLIP[63] has the following parameters: K{717} local K2{718} local PERM{719} local loop[58] has the following parameter: I{715} local VECTOR-COPY2[55] has the following parameters: PERM{710} local PERM1{711} local N{712} local loop[50] has the following parameter: I{708} local VECTOR-COPY1[47] has the following parameters: PERM{703} local PERM1{704} local N{705} local loop[42] has the following parameter: I{701} local FILL[39] has the following parameters: P{697} local N{698} local [inside MAIN 33] has the following parameter: COUNT{695} local [inside MAIN 30] has the following parameter: I{693} local [inside MAIN 29] has the following parameter: v{692} local [inside LOOP 26] has the following parameter: I{690} local LOOP[22] has the following parameter: R{688} local MAIN[18] has the following parameters: BISHMAX{682} local R{683} local FANNKUCH-1[13] has the following parameters: N{660} local PERM{661} local PERM1{662} local ZAEHL{663} local PERMMAX{664} local loop[8] has the following parameter: I{657} local The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20) The following expression, fannkuch-stalin.sc:60:1820, allocates on FANNKUCH[105]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, fannkuch-stalin.sc:59:1798, allocates on FANNKUCH[105]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, fannkuch-stalin.sc:58:1776, allocates on FANNKUCH[105]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, fannkuch-stalin.sc:57:1754, allocates on FANNKUCH[105]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W15140 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 15% - Expanding macros 2 - 16% - Fast tree shake 0 - 1% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 1% - Annotating expressions with their environments 1 - 4% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 3 - 23% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 0 - 2% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 1% - Determining which environments are called more than once 0 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 1 - 9% - Determining escaping types 0 - 1% - Determining which environments have unique call sites 0 - 1% - Determining which environments are recursive 0 - 2% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 1 - 10% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 2% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 2% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 0 - 2% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 0 - 2% - Generating code 0 - 0% - Removing unused declarations 0 - 0% - Removing unused labels 1 - 4% - Writing database 0 - 0% - Compiling C code 13.55user 0.25system 0:16.17elapsed 85%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32130major+214996minor)pagefaults 0swaps run fannkuch 39.52user 0.01system 0:40.03elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (92major+35minor)pagefaults 0swaps compile simplex Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 16280 expressions 0 internal symbol types 0 external symbol types 25 primitive procedure types 215 non-called native procedure types 306 called noop native procedure types 191 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 1 structure type 13 headed vector types 1 nonheaded vector type 0 displaced vector types 18536 type sets 681 hunoz variables 1559 non-hunoz variables 530 noop environments 1719 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 16280 expressions 0 internal symbol types 0 external symbol types 25 primitive procedure types 215 non-called native procedure types 306 called noop native procedure types 191 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 1 structure type 13 headed vector types 1 nonheaded vector type 0 displaced vector types 18536 type sets 681 hunoz variables 1559 non-hunoz variables 530 noop environments 1719 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 1 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 2870 expressions 0 internal symbol types 0 external symbol types 25 primitive procedure types 215 non-called native procedure types 306 called noop native procedure types 191 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 1 structure type 13 headed vector types 1 nonheaded vector type 0 displaced vector types 3760 type sets 334 hunoz variables 540 non-hunoz variables 0 noop environments 191 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 1 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: ABS[578] has the following parameter: X{1114} local SIMP3[93] has the following parameter: ONE?{745} local has the following in-lined locals: PIV{746} II{751} KK{756} KK{760} SIMP2[63] has the following in-lined locals: FLAG?{727} Q1{728} I{731} Q{733} Q0{735} QP{736} K{740} SIMP1[51] has the following parameters: MM{717} local ABS?{718} local has the following in-lined local: K{723} MATRIX-SET![17] has the following parameters: A{674} local I{675} local J{676} local X{677} local MATRIX-REF[16] has the following parameters: A{671} local I{672} local J{673} local MATRIX-ROWS[14] has the following parameter: A{669} local FUCK-UP[13] [inside top level 0] has the following in-lined locals: I{667} A{670} M1{679} M2{680} M3{681} M12{685} L3{690} IPOSV{692} IZROV{693} ONE?{697} PASS2?{698} T{715} K{764} I{769} I{775} K{788} I{794} IS{798} I{804} T{806} IP1{810} I{815} K{819} K{825} I{829} SUM{830} The following non-trivial in-line native procedures will be generated: TEST[239] has region loop[228] has the following parameters: I{829} local SUM{830} local loop[222] has the following parameter: K{825} local loop[207] has the following parameter: K{819} local loop[201] has the following parameter: I{815} local LOOP[192] has the following parameter: IP1{810} local [inside LOOP 184] has the following parameter: T{806} local loop[178] has the following parameter: I{804} local loop[168] has the following parameter: IS{798} local loop[161] has the following parameter: I{794} local LOOP[155] has the following parameter: K{788} local loop[139] has the following parameter: I{775} local loop[131] has the following parameter: I{769} local loop[124] has the following parameter: K{764} local loop[116] has the following parameter: KK{760} local loop[106] has the following parameter: KK{756} local loop[98] has the following parameter: II{751} local [inside SIMP3 94] has the following parameter: PIV{746} local LOOP[81] has the following parameter: K{740} local [inside loop 76] has the following parameters: Q0{735} local QP{736} local [inside loop 72] has the following parameter: Q{733} local loop[68] has the following parameter: I{731} local [inside SIMP2 65] has the following parameters: FLAG?{727} local Q1{728} local loop[55] has the following parameter: K{723} local [inside LOOP 47] has the following parameter: T{715} local [inside SIMPLEX 34] has the following parameter: PASS2?{698} local [inside SIMPLEX 33] has the following parameter: ONE?{697} local [inside SIMPLEX 32] has the following parameter: BMAX{696} global [inside SIMPLEX 31] has the following parameter: KP{695} global [inside SIMPLEX 30] has the following parameter: IP{694} global [inside SIMPLEX 29] has the following parameter: IZROV{693} local [inside SIMPLEX 28] has the following parameter: IPOSV{692} local [inside SIMPLEX 27] has the following parameter: NL1{691} global [inside SIMPLEX 26] has the following parameter: L3{690} local [inside SIMPLEX 25] has region has the following parameter: L2{689} global [inside SIMPLEX 24] has region has the following parameter: L1{688} global [inside SIMPLEX 23] has region has the following parameter: N{687} global [inside SIMPLEX 22] has the following parameter: M{686} global [inside SIMPLEX 21] has the following parameter: M12{685} local [inside SIMPLEX 19] has the following parameter: *EPSILON*{682} global SIMPLEX[18] has the following parameters: A{678} global M1{679} local M2{680} local M3{681} local MATRIX-COLUMNS[15] has the following parameter: A{670} local loop[8] has the following parameter: I{667} local The following expression, simplex-stalin.sc:160:5284, allocates on TEST[239]: ((PRIMITIVE-PROCEDURE VECTOR) ((PRIMITIVE-PROCEDURE VECTOR) 0. 1. 1. 3. -0.5) ((PRIMITIVE-PROCEDURE VECTOR) 740. -1. 0. -2. 0.) ((PRIMITIVE-PROCEDURE VECTOR) 0. 0. -2. 0. 7.) ((PRIMITIVE-PROCEDURE VECTOR) 0.5 0. -1. 1. -2.) ((PRIMITIVE-PROCEDURE VECTOR) 9. -1. -1. -1. -1.) ((PRIMITIVE-PROCEDURE VECTOR) 0. 0. 0. 0. 0.)) The following expression, simplex-stalin.sc:165:5469, allocates on TEST[239]: ((PRIMITIVE-PROCEDURE VECTOR) 0. 0. 0. 0. 0.) The following expression, simplex-stalin.sc:164:5432, allocates on TEST[239]: ((PRIMITIVE-PROCEDURE VECTOR) 9. -1. -1. -1. -1.) The following expression, simplex-stalin.sc:163:5397, allocates on TEST[239]: ((PRIMITIVE-PROCEDURE VECTOR) 0.5 0. -1. 1. -2.) The following expression, simplex-stalin.sc:162:5363, allocates on TEST[239]: ((PRIMITIVE-PROCEDURE VECTOR) 0. 0. -2. 0. 7.) The following expression, simplex-stalin.sc:161:5326, allocates on TEST[239]: ((PRIMITIVE-PROCEDURE VECTOR) 740. -1. 0. -2. 0.) The following expression, simplex-stalin.sc:160:5292, allocates on TEST[239]: ((PRIMITIVE-PROCEDURE VECTOR) 0. 1. 1. 3. -0.5) The following expression, simplex-stalin.sc:22:607, allocates on [inside SIMPLEX 23]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, simplex-stalin.sc:23:629, allocates on [inside SIMPLEX 24]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) M) The following expression, simplex-stalin.sc:24:651, allocates on [inside SIMPLEX 25]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) M2) The following expression, simplex-stalin.sc:26:686, allocates on TEST[239]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) M) The following expression, simplex-stalin.sc:27:711, allocates on TEST[239]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, simplex-stalin.sc:157:5233, allocates on TEST[239]: (LIST IPOSV IZROV) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W16281 is general case for the following reasons: nondegenerate nonheaded vector W12452 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 10% - Expanding macros 2 - 11% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 2 - 11% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 5 - 23% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 1 - 5% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 1% - Determining which environments are called more than once 0 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 2 - 11% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 1% - Determining which environments are recursive 0 - 2% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 2 - 10% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 2% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 0 - 2% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 0 - 2% - Generating code 0 - 2% - Removing unused declarations 0 - 1% - Removing unused labels 0 - 1% - Writing database 0 - 0% - Compiling C code 22.00user 0.21system 0:24.21elapsed 91%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32385major+216117minor)pagefaults 0swaps run simplex 1.66user 0.00system 0:01.74elapsed 95%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (74major+12minor)pagefaults 0swaps compile em-functional Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 18154 expressions 0 internal symbol types 0 external symbol types 66 primitive procedure types 189 non-called native procedure types 385 called noop native procedure types 502 called non-noop native procedure types 1 foreign procedure type 2 continuation types 4 string types 17 structure types 39 headed vector types 1 nonheaded vector type 0 displaced vector types 20822 type sets 742 hunoz variables 1844 non-hunoz variables 579 noop environments 1868 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 23609 expressions 0 internal symbol types 0 external symbol types 66 primitive procedure types 207 non-called native procedure types 545 called noop native procedure types 1083 called non-noop native procedure types 1 foreign procedure type 2 continuation types 4 string types 31 structure types 83 headed vector types 1 nonheaded vector type 0 displaced vector types 27148 type sets 952 hunoz variables 2676 non-hunoz variables 745 noop environments 2713 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 56 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 11225 expressions 0 internal symbol types 0 external symbol types 66 primitive procedure types 189 non-called native procedure types 545 called noop native procedure types 1083 called non-noop native procedure types 1 foreign procedure type 2 continuation types 4 string types 31 structure types 83 headed vector types 1 nonheaded vector type 0 displaced vector types 13530 type sets 647 hunoz variables 1747 non-hunoz variables 0 noop environments 1320 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 56 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: WRITE2[1790] reentrant has the following parameters: OBJ{2328} local PORT{2329} local has the following in-lined locals: NUMBER{2317} PORT{2318} MANTISSA{2322} EXPONENT{2323} MANTISSA{2326} EXPONENT{2327} OBJ{2344} I{2356} DISPLAY-MANTISSA-EXPONENT2[1752] has the following parameters: MANTISSA{2301} local EXPONENT{2302} local PORT{2303} local has the following in-lined locals: FLOAT-DIGIT{2304} DIGIT{2305} MANTISSA{2312} FLOAT-DIGIT{2313} DIGIT{2314} MANTISSA{2316} DISPLAY-EXACT-INTEGER2[1723] has the following parameters: NUMBER{2280} local PORT{2281} local has the following in-lined locals: I{2284} NUMBER{2285} I{2288} I{2294} NUMBER{2295} I{2298} DISPLAY-STRING2[1714] has the following parameters: STRING{2273} local PORT{2274} local has the following in-lined locals: N{2275} I{2278} LOOP[1148] reentrant has the following parameter: K{1877} local LOOP[1083] reentrant has the following parameter: K{1823} local MODULO[779] has the following parameters: N1{1465} local N2{1466} local has the following in-lined local: v{1467} REVERSE[620] has the following parameter: S{1323} local has the following in-lined locals: LIST{2807} LIST{2810} R{2811} CDR[466] has the following parameter: PAIR{1200} local M-STEP[331] has the following parameters: X{1120} local Z{1121} local CLIP{1122} local has the following in-lined locals: N{833} I{836} N{872} I{875} v{876} N{878} N{881} C{882} K{889} U{890} X{891} A{947} B{948} U{957} V{958} UI{959} VJ{960} V{962} A{963} B{964} K{965} M{966} ROW{967} E{968} A{1028} A{1030} N{1031} D{1032} V{1033} B{1034} Z{1035} IP{1039} I{1044} SM{1046} TRESH{1049} IP{1050} IR{1051} IQ{1052} G{1053} H{1054} T{1055} C{1056} H{1059} J{1067} THETA{1077} IP{1078} IP{1081} IR{1082} IQ{1083} I{1084} P{1085} K{1086} J{1090} P{1091} L{1093} J{1094} ROW{1096} X{1097} I{1098} J{1099} V{1100} M{1101} I{1103} A{1104} V{1105} J{1106} E{1107} II{1123} KK{1124} J{1125} ZJ{1126} ZJ-SUM{1127} MU{1128} SIGMA{1129} ZIJ{1130} XI{1131} X{1460} X{2586} X{2587} X{2588} X{2591} X{2592} X{2593} X{2594} X{2595} X{2596} X{2597} OBJS{2600} PAIR{2605} PAIR{2618} A{2623} I{2624} J{2625} X{2626} A{2627} I{2628} J{2629} X{2630} A{2631} I{2632} J{2633} X{2634} A{2671} I{2672} J{2673} X{2674} A{2675} I{2676} J{2677} X{2678} A{2679} I{2680} J{2681} X{2682} A{2686} I{2687} J{2688} A{2689} I{2690} J{2691} A{2692} I{2693} J{2694} A{2695} I{2696} J{2697} A{2698} I{2699} J{2700} A{2758} I{2759} J{2760} A{2761} I{2762} J{2763} A{2764} I{2765} J{2766} A{2767} I{2768} J{2769} A{2770} I{2771} J{2772} A{2773} I{2774} J{2775} A{2776} I{2777} J{2778} A{2782} A{2783} A{2787} A{2788} A{2789} A{2790} N{2813} I{2816} N{2885} I{2888} N{2891} I{2894} N{2897} I{2900} N{2903} I{2906} N{2909} I{2912} N{2915} I{2918} N{2921} I{2924} V{2979} U{2980} I{2982} V{2984} U{2985} I{2987} V{2989} U{2990} I{2992} V{2994} U{2995} I{2997} V{2999} U{3000} I{3002} V{3004} U{3005} I{3007} V{3014} U{3015} I{3017} K{3018} M{3019} ROW{3020} E{3021} V1{3035} V2{3036} U{3037} I{3039} V1{3041} V2{3042} U{3043} I{3045} V1{3053} V2{3054} U{3055} I{3057} V1{3065} V2{3066} U{3067} I{3069} V{3087} I{3088} N{3089} I{3092} C{3093} V{3095} I{3096} N{3097} I{3100} C{3101} V{3103} I{3104} N{3105} I{3108} C{3109} U{3120} V{3121} U{3123} V{3124} UI{3125} VJ{3126} N{3152} V{3153} I{3157} A{3175} J{3176} A{3177} J{3178} A{3179} J{3180} A{3181} B{3182} N{3205} I{3208} v{3209} N{3211} N{3214} C{3215} ZS{3244} ZS{3247} R{3248} N{3250} I{3253} K{3255} U{3256} X{3257} V{3259} U{3260} I{3262} N{3264} I{3267} N{3281} I{3284} N{3287} I{3290} V{3305} U{3306} I{3308} N{3310} I{3313} V{3316} U{3317} I{3319} N{3321} I{3324} ZS{3326} ZS{3329} R{3330} V{3332} U{3333} I{3335} N{3337} I{3340} V{3343} U{3344} I{3346} N{3348} I{3351} N{3354} I{3357} N{3360} I{3363} N{3366} I{3369} N{3372} I{3375} N{3378} I{3381} A{3383} N{3385} V{3386} I{3390} N{3393} I{3396} X{3398} XS{3399} R{3403} A{3404} J{3405} A{3406} N{3408} V{3409} I{3413} U{3416} V{3417} UI{3418} VJ{3419} V{3421} U{3422} I{3424} N{3426} I{3429} V{3432} U{3433} I{3435} N{3437} I{3440} U{3442} V{3443} V1{3445} V2{3446} U{3447} I{3449} N{3451} I{3454} ZS{3456} ZS{3459} R{3460} V{3462} I{3463} N{3464} I{3467} C{3468} ZS{3469} ZS{3472} R{3473} A{3474} N{3476} V{3477} I{3481} A{3483} N{3485} V{3486} I{3490} N{3493} I{3496} N{3499} I{3502} V1{3505} V2{3506} U{3507} I{3509} N{3511} I{3514} ZS{3516} ZS{3519} R{3520} V{3522} I{3523} N{3524} I{3527} C{3528} ZS{3529} ZS{3532} R{3533} E-STEP[323] has region has the following parameters: X{1108} local MODELS{1109} local has the following in-lined locals: V{846} U{847} I{849} V1{851} V2{852} U{853} I{855} V{864} I{865} N{866} I{869} C{870} U{883} V{884} E1{892} E2{893} E-MAX{894} E-MIN{895} FACTOR{896} A{931} A{949} B{950} A{951} V{952} U{953} A{954} J{955} Z{1110} S{1111} ZI{1112} ZI{1113} XI{1114} MODEL{1115} LOG-DETERMINANT-SIGMA{1116} SIGMA-INVERSE{1117} MU{1118} LOG-PI{1119} Z{1508} OBJS{2599} A{2781} ZS{2796} ZS{2799} R{2800} N{2927} I{2930} N{2933} I{2936} V{2939} U{2940} I{2942} V{2944} U{2945} I{2947} V{2949} U{2950} I{2952} V{2954} U{2955} I{2957} V{2959} U{2960} I{2962} V1{3029} V2{3030} U{3031} I{3033} V{3071} I{3072} N{3073} I{3076} C{3077} V{3079} I{3080} N{3081} I{3084} C{3085} U{3118} V{3119} N{3136} V{3137} I{3141} N{3553} I{3556} N{3559} I{3562} N{3565} I{3568} V1{3571} V2{3572} U{3573} I{3575} N{3577} I{3580} ZS{3582} ZS{3585} R{3586} V{3588} I{3589} N{3590} I{3593} C{3594} ZS{3595} ZS{3598} R{3599} N{3601} I{3604} ZS{3606} ZS{3609} R{3610} ZS{3611} ZS{3614} R{3615} N{3617} I{3620} N{3623} I{3626} ROTATE[281] has the following parameters: A{1069} local I{1070} local J{1071} local K{1072} local L{1073} local has the following in-lined locals: A{932} I{933} J{934} A{935} I{936} J{937} X{938} H{1074} G{1075} A{2619} I{2620} J{2621} X{2622} A{2683} I{2684} J{2685} INVERT-MATRIX[206] has the following parameter: A{998} local has the following in-lined locals: A{930} N{1000} C{1001} B{1002} I{1006} J{1007} I{1008} I{1009} D{1011} K{1013} D{1014} J{1015} J{1017} J{1021} E{1024} E{1026} A{2635} I{2636} J{2637} X{2638} A{2639} I{2640} J{2641} X{2642} A{2643} I{2644} J{2645} X{2646} A{2647} I{2648} J{2649} X{2650} A{2651} I{2652} J{2653} X{2654} A{2655} I{2656} J{2657} X{2658} A{2701} I{2702} J{2703} A{2704} I{2705} J{2706} A{2707} I{2708} J{2709} A{2710} I{2711} J{2712} A{2713} I{2714} J{2715} A{2716} I{2717} J{2718} A{2719} I{2720} J{2721} A{2722} I{2723} J{2724} A{2725} I{2726} J{2727} A{2728} I{2729} J{2730} A{2731} I{2732} J{2733} A{2779} A{2784} N{2819} I{2822} N{2825} I{2828} N{2831} I{2834} N{2837} I{2840} N{2843} I{2846} N{2849} I{2852} N{2855} I{2858} N{2861} I{2864} DETERMINANT[177] has the following parameter: A{969} local has the following in-lined locals: A{839} B{840} I{843} N{972} B{973} D{974} I{977} J{978} I{979} INDEX{980} GREATEST{981} C{985} J{988} E{989} K{990} J{991} J{992} X{993} V{995} X{2589} X{2590} A{2659} I{2660} J{2661} X{2662} A{2663} I{2664} J{2665} X{2666} A{2667} I{2668} J{2669} X{2670} A{2734} I{2735} J{2736} A{2737} I{2738} J{2739} A{2740} I{2741} J{2742} A{2743} I{2744} J{2745} A{2746} I{2747} J{2748} A{2749} I{2750} J{2751} A{2752} I{2753} J{2754} A{2755} I{2756} J{2757} A{2780} A{2785} A{2786} N{2867} I{2870} N{2873} I{2876} N{2879} I{2882} A{3184} B{3185} I{3188} A{3191} B{3192} I{3195} A{3198} B{3199} I{3202} MATRIX-ROW-SET![162] has the following parameters: A{944} local I{945} local V{946} local MATRIX-COLUMN-REF[160] has the following parameters: A{941} local J{942} local has the following in-lined locals: V{943} V{3009} U{3010} I{3012} N{3239} I{3242} MATRIX-ROW-REF[159] has the following parameters: A{939} local I{940} local MAKE-MATRIX-INITIAL[153] has the following parameters: M{926} local N{927} local INITIAL{928} local has the following in-lined locals: N{3144} V{3145} I{3149} MAKE-MATRIX[151] has the following parameters: M{923} local N{924} local has the following in-lined locals: N{3128} V{3129} I{3133} V-[112] has the following parameters: U{887} local V{888} local has the following in-lined locals: V1{3047} V2{3048} U{3049} I{3051} N{3293} I{3296} Z{3298} ZS{3299} R{3303} V+[111] has the following parameters: U{885} local V{886} local has the following in-lined locals: V1{3059} V2{3060} U{3061} I{3063} N{3270} I{3273} ZS{3275} ZS{3278} R{3279} RANDOM:CHUNK[38] has the following parameter: V{818} local has the following in-lined locals: P{819} ANS{820} LOGICAL:ASH-4[25] has the following parameter: X{808} local LOGICAL:LOGXOR[20] reentrant has the following parameters: N1{806} local N2{807} local HEX-STRING->NUMBER[15] has region has the following parameter: S{801} local has the following in-lined locals: S{804} C{805} CHAR1{1550} CHAR2{1551} CHAR1{1555} CHAR2{1556} CHAR1{1559} CHAR2{1560} CHAR1{1564} CHAR2{1565} CHAR{1615} [inside top level 0] has the following in-lined locals: *RANDOM-STATE*{702} RANDOM:MASK{703} RANDOM:CHUNK-SIZE{704} *MOST-POSITIVE-FIXNUM*{711} I{798} L{809} TRIAL{810} RANDOM-STRINGS{811} NIBBLES{813} I{816} ILEN{825} S{826} SLOP{827} N{830} R{831} L{857} I{858} L{861} C{862} N{898} I{901} C{902} N{904} V{905} I{909} L{912} L{915} C{916} X{917} L{918} L{921} I{922} X{1132} PI{1133} MU{1134} SIGMA{1135} CLIP{1136} EM-KICK-OFF-TOLERANCE{1137} EM-CONVERGENCE-TOLERANCE{1138} JJ{1139} MODELS{1142} OLD-LOG-LIKELIHOOD{1143} STARTING?{1144} LOG-LIKELIHOOD-Z{1145} v{1146} v{1147} J{1148} EPSILON{1149} II{1150} JJ{1151} ZI{1153} X{1155} CLIP{1156} EM-KICK-OFF-TOLERANCE{1157} EM-CONVERGENCE-TOLERANCE{1158} EMS-CONVERGENCE-TOLERANCE{1159} JJ{1162} OLD-LOG-LIKELIHOOD-MODELS{1163} MODELS{1164} NEW-LOG-LIKELIHOOD-MODELS{1165} X{1166} CLIP{1167} EM-KICK-OFF-TOLERANCE{1168} EM-CONVERGENCE-TOLERANCE{1169} EMS-CONVERGENCE-TOLERANCE{1170} Z{1171} CLUSTERS{1172} J{1173} CLUSTER{1174} CLUSTER{1175} I{1176} ZI{1177} OBJ1{1180} OBJ2{1181} v{1182} v{1183} PAIR{1199} PAIR{1206} OBJS{1243} LIST{1318} LIST{1321} R{1322} X{1426} XS{1427} R{1431} STRING{1792} START{1793} END{1794} R{1795} K{1799} LIST1{1945} LIST1{1949} C{1950} OBJ{2571} OBJS{2598} OBJS{2601} PAIR{2602} PAIR{2603} PAIR{2604} PAIR{2606} PAIR{2607} PAIR{2608} PAIR{2609} PAIR{2610} PAIR{2611} PAIR{2612} PAIR{2613} PAIR{2614} PAIR{2615} PAIR{2616} PAIR{2617} V{2964} U{2965} I{2967} V{2969} U{2970} I{2972} V{2974} U{2975} I{2977} K{3025} U{3026} X{3027} V{3111} I{3112} N{3113} I{3116} C{3117} N{3160} V{3161} I{3165} N{3168} V{3169} I{3173} N{3217} I{3220} C{3221} ZS{3222} ZS{3225} R{3226} V{3228} U{3229} I{3231} N{3233} I{3236} N{3535} I{3538} N{3541} I{3544} N{3547} I{3550} The following non-trivial in-line native procedures will be generated: [clone LOOP[61] 3453] has the following parameter: I{3626} local [clone FOR-EACH-N[58] 3450] has the following parameter: N{3623} local [clone LOOP[61] 3445] has the following parameter: I{3620} local [clone FOR-EACH-N[58] 3442] has the following parameter: N{3617} local [clone LOOP[759] 3440] has the following parameters: ZS{3614} local R{3615} local [clone +[756] 3437] has the following parameter: ZS{3611} local [clone LOOP[764] 3435] has the following parameters: ZS{3609} local R{3610} local [clone *[761] 3432] has the following parameter: ZS{3606} local [clone LOOP[61] 3427] has the following parameter: I{3604} local [clone FOR-EACH-N[58] 3424] has the following parameter: N{3601} local [clone LOOP[759] 3422] has the following parameters: ZS{3598} local R{3599} local [clone +[756] 3419] has the following parameter: ZS{3595} local [clone LOOP[97] 3417] has the following parameters: I{3593} local C{3594} local [clone [inside REDUCE-VECTOR 91] 3411] has the following parameter: N{3590} local [clone REDUCE-VECTOR[90] 3410] has the following parameters: V{3588} local I{3589} local [clone LOOP[764] 3408] has the following parameters: ZS{3585} local R{3586} local [clone *[761] 3405] has the following parameter: ZS{3582} local [clone LOOP[61] 3400] has the following parameter: I{3580} local [clone FOR-EACH-N[58] 3397] has the following parameter: N{3577} local [clone [inside MAP-VECTOR-TWO 81] 3396] has region has the following parameter: I{3575} local [clone [inside MAP-VECTOR-TWO 79] 3394] has the following parameter: U{3573} local [clone MAP-VECTOR-TWO[78] 3393] has the following parameters: V1{3571} local V2{3572} local [clone LOOP[61] 3388] has the following parameter: I{3568} local [clone FOR-EACH-N[58] 3385] has the following parameter: N{3565} local [clone LOOP[61] 3380] has the following parameter: I{3562} local [clone FOR-EACH-N[58] 3377] has the following parameter: N{3559} local [clone LOOP[61] 3372] has the following parameter: I{3556} local [clone FOR-EACH-N[58] 3369] has the following parameter: N{3553} local [clone LOOP[61] 3364] has the following parameter: I{3550} local [clone FOR-EACH-N[58] 3361] has the following parameter: N{3547} local [clone LOOP[61] 3356] has the following parameter: I{3544} local [clone FOR-EACH-N[58] 3353] has the following parameter: N{3541} local [clone LOOP[61] 3348] has the following parameter: I{3538} local [clone FOR-EACH-N[58] 3345] has the following parameter: N{3535} local [clone LOOP[759] 3343] has the following parameters: ZS{3532} local R{3533} local [clone +[756] 3340] has the following parameter: ZS{3529} local [clone LOOP[97] 3338] has the following parameters: I{3527} local C{3528} local [clone [inside REDUCE-VECTOR 91] 3332] has the following parameter: N{3524} local [clone REDUCE-VECTOR[90] 3331] has the following parameters: V{3522} local I{3523} local [clone LOOP[764] 3329] has the following parameters: ZS{3519} local R{3520} local [clone *[761] 3326] has the following parameter: ZS{3516} local [clone LOOP[61] 3321] has the following parameter: I{3514} local [clone FOR-EACH-N[58] 3318] has the following parameter: N{3511} local [clone [inside MAP-VECTOR-TWO 81] 3317] has region has the following parameter: I{3509} local [clone [inside MAP-VECTOR-TWO 79] 3315] has the following parameter: U{3507} local [clone MAP-VECTOR-TWO[78] 3314] has the following parameters: V1{3505} local V2{3506} local [clone LOOP[61] 3309] has the following parameter: I{3502} local [clone FOR-EACH-N[58] 3306] has the following parameter: N{3499} local [clone LOOP[61] 3301] has the following parameter: I{3496} local [clone FOR-EACH-N[58] 3298] has the following parameter: N{3493} local [clone LOOP[130] 3293] has the following parameter: I{3490} local [clone [inside MAP-N-VECTOR 126] 3289] has the following parameter: V{3486} local [clone MAP-N-VECTOR[125] 3288] has the following parameter: N{3485} local [clone MATRIX-COLUMNS[156] 3287] has the following parameter: A{3483} local [clone LOOP[130] 3282] has the following parameter: I{3481} local [clone [inside MAP-N-VECTOR 126] 3278] has the following parameter: V{3477} local [clone MAP-N-VECTOR[125] 3277] has the following parameter: N{3476} local [clone MATRIX-COLUMNS[156] 3276] has the following parameter: A{3474} local [clone LOOP[759] 3274] has the following parameters: ZS{3472} local R{3473} local [clone +[756] 3271] has the following parameter: ZS{3469} local [clone LOOP[97] 3269] has the following parameters: I{3467} local C{3468} local [clone [inside REDUCE-VECTOR 91] 3263] has the following parameter: N{3464} local [clone REDUCE-VECTOR[90] 3262] has the following parameters: V{3462} local I{3463} local [clone LOOP[764] 3260] has the following parameters: ZS{3459} local R{3460} local [clone *[761] 3257] has the following parameter: ZS{3456} local [clone LOOP[61] 3252] has the following parameter: I{3454} local [clone FOR-EACH-N[58] 3249] has the following parameter: N{3451} local [clone [inside MAP-VECTOR-TWO 81] 3248] has region has the following parameter: I{3449} local [clone [inside MAP-VECTOR-TWO 79] 3246] has the following parameter: U{3447} local [clone MAP-VECTOR-TWO[78] 3245] has the following parameters: V1{3445} local V2{3446} local [clone DOT[110] 3244] has region has the following parameters: U{3442} local V{3443} local [clone LOOP[61] 3239] has the following parameter: I{3440} local [clone FOR-EACH-N[58] 3236] has the following parameter: N{3437} local [clone [inside MAP-VECTOR 77] 3235] has the following parameter: I{3435} local [clone [inside MAP-VECTOR 75] 3233] has the following parameter: U{3433} local [clone MAP-VECTOR[74] 3232] has the following parameter: V{3432} local [clone LOOP[61] 3227] has the following parameter: I{3429} local [clone FOR-EACH-N[58] 3224] has the following parameter: N{3426} local [clone [inside MAP-VECTOR 77] 3223] has the following parameter: I{3424} local [clone [inside MAP-VECTOR 75] 3221] has the following parameter: U{3422} local [clone MAP-VECTOR[74] 3220] has the following parameter: V{3421} local [clone [inside OUTER-PRODUCT 171] 3219] has the following parameter: VJ{3419} local [clone [inside OUTER-PRODUCT 170] 3218] has the following parameter: UI{3418} local [clone OUTER-PRODUCT[169] 3217] has the following parameters: U{3416} local V{3417} local [clone LOOP[130] 3212] has the following parameter: I{3413} local [clone [inside MAP-N-VECTOR 126] 3208] has the following parameter: V{3409} local [clone MAP-N-VECTOR[125] 3207] has the following parameter: N{3408} local [clone MATRIX-COLUMNS[156] 3206] has the following parameter: A{3406} local [clone [inside TRANSPOSE 168] 3205] has the following parameter: J{3405} local [clone TRANSPOSE[167] 3204] has the following parameter: A{3404} local [clone LOOP[749] 3202] has the following parameter: R{3403} local [clone MAX[746] 3199] has the following parameters: X{3398} local XS{3399} local [clone LOOP[61] 3194] has the following parameter: I{3396} local [clone FOR-EACH-N[58] 3191] has the following parameter: N{3393} local [clone LOOP[130] 3186] has the following parameter: I{3390} local [clone [inside MAP-N-VECTOR 126] 3182] has the following parameter: V{3386} local [clone MAP-N-VECTOR[125] 3181] has the following parameter: N{3385} local [clone MATRIX-COLUMNS[156] 3180] has the following parameter: A{3383} local [clone LOOP[61] 3175] has the following parameter: I{3381} local [clone FOR-EACH-N[58] 3172] has the following parameter: N{3378} local [clone LOOP[61] 3167] has the following parameter: I{3375} local [clone FOR-EACH-N[58] 3164] has the following parameter: N{3372} local [clone LOOP[61] 3159] has the following parameter: I{3369} local [clone FOR-EACH-N[58] 3156] has the following parameter: N{3366} local [clone LOOP[61] 3151] has the following parameter: I{3363} local [clone FOR-EACH-N[58] 3148] has the following parameter: N{3360} local [clone LOOP[61] 3143] has the following parameter: I{3357} local [clone FOR-EACH-N[58] 3140] has the following parameter: N{3354} local [clone LOOP[61] 3135] has the following parameter: I{3351} local [clone FOR-EACH-N[58] 3132] has the following parameter: N{3348} local [clone [inside MAP-VECTOR 77] 3131] has the following parameter: I{3346} local [clone [inside MAP-VECTOR 75] 3129] has the following parameter: U{3344} local [clone MAP-VECTOR[74] 3128] has the following parameter: V{3343} local [clone LOOP[61] 3123] has the following parameter: I{3340} local [clone FOR-EACH-N[58] 3120] has the following parameter: N{3337} local [clone [inside MAP-VECTOR 77] 3119] has the following parameter: I{3335} local [clone [inside MAP-VECTOR 75] 3117] has the following parameter: U{3333} local [clone MAP-VECTOR[74] 3116] has the following parameter: V{3332} local [clone LOOP[764] 3114] has the following parameters: ZS{3329} local R{3330} local [clone *[761] 3111] has the following parameter: ZS{3326} local [clone LOOP[61] 3106] has the following parameter: I{3324} local [clone FOR-EACH-N[58] 3103] has the following parameter: N{3321} local [clone [inside MAP-VECTOR 77] 3102] has the following parameter: I{3319} local [clone [inside MAP-VECTOR 75] 3100] has the following parameter: U{3317} local [clone MAP-VECTOR[74] 3099] has the following parameter: V{3316} local [clone LOOP[61] 3094] has the following parameter: I{3313} local [clone FOR-EACH-N[58] 3091] has the following parameter: N{3310} local [clone [inside MAP-VECTOR 77] 3090] has the following parameter: I{3308} local [clone [inside MAP-VECTOR 75] 3088] has the following parameter: U{3306} local [clone MAP-VECTOR[74] 3087] has the following parameter: V{3305} local [clone LOOP[769] 3085] has the following parameter: R{3303} local [clone -[766] 3082] has the following parameters: Z{3298} local ZS{3299} local [clone LOOP[61] 3077] has the following parameter: I{3296} local [clone FOR-EACH-N[58] 3074] has the following parameter: N{3293} local [clone LOOP[61] 3069] has the following parameter: I{3290} local [clone FOR-EACH-N[58] 3066] has the following parameter: N{3287} local [clone LOOP[61] 3061] has the following parameter: I{3284} local [clone FOR-EACH-N[58] 3058] has the following parameter: N{3281} local [clone LOOP[759] 3056] has the following parameters: ZS{3278} local R{3279} local [clone +[756] 3053] has the following parameter: ZS{3275} local [clone LOOP[61] 3048] has the following parameter: I{3273} local [clone FOR-EACH-N[58] 3045] has the following parameter: N{3270} local [clone LOOP[61] 3040] has the following parameter: I{3267} local [clone FOR-EACH-N[58] 3037] has the following parameter: N{3264} local [clone [inside MAP-VECTOR 77] 3036] has the following parameter: I{3262} local [clone [inside MAP-VECTOR 75] 3034] has the following parameter: U{3260} local [clone MAP-VECTOR[74] 3033] has the following parameter: V{3259} local [clone [inside K*V 114] 3032] has the following parameter: X{3257} local [clone K*V[113] 3031] has the following parameters: K{3255} local U{3256} local [clone LOOP[61] 3026] has the following parameter: I{3253} local [clone FOR-EACH-N[58] 3023] has the following parameter: N{3250} local [clone LOOP[759] 3021] has the following parameters: ZS{3247} local R{3248} local [clone +[756] 3018] has the following parameter: ZS{3244} local [clone LOOP[61] 3013] has the following parameter: I{3242} local [clone FOR-EACH-N[58] 3010] has the following parameter: N{3239} local [clone LOOP[61] 3005] has the following parameter: I{3236} local [clone FOR-EACH-N[58] 3002] has the following parameter: N{3233} local [clone [inside MAP-VECTOR 77] 3001] has the following parameter: I{3231} local [clone [inside MAP-VECTOR 75] 2999] has the following parameter: U{3229} local [clone MAP-VECTOR[74] 2998] has the following parameter: V{3228} local [clone LOOP[759] 2996] has the following parameters: ZS{3225} local R{3226} local [clone +[756] 2993] has the following parameter: ZS{3222} local [clone LOOP[123] 2991] has region has the following parameters: I{3220} local C{3221} local [clone MAP-N[120] 2988] has the following parameter: N{3217} local [clone LOOP[108] 2986] has the following parameters: N{3214} local C{3215} local [clone SUM[105] 2983] has the following parameter: N{3211} local [clone [inside LOOP 103] 2981] has the following parameter: v{3209} local [clone LOOP[102] 2980] has the following parameter: I{3208} local [clone EVERY-N[99] 2977] has the following parameter: N{3205} local [clone LOOP[69] 2972] has the following parameter: I{3202} local [clone FOR-EACH-FROM-A-UP-TO-B[66] 2969] has the following parameters: A{3198} local B{3199} local [clone LOOP[69] 2964] has the following parameter: I{3195} local [clone FOR-EACH-FROM-A-UP-TO-B[66] 2961] has the following parameters: A{3191} local B{3192} local [clone LOOP[69] 2956] has the following parameter: I{3188} local [clone FOR-EACH-FROM-A-UP-TO-B[66] 2953] has the following parameters: A{3184} local B{3185} local [clone M*[173] 2952] has region has the following parameters: A{3181} local B{3182} local [clone [inside TRANSPOSE 168] 2951] has the following parameter: J{3180} local [clone TRANSPOSE[167] 2950] has the following parameter: A{3179} local [clone [inside TRANSPOSE 168] 2949] has the following parameter: J{3178} local [clone TRANSPOSE[167] 2948] has the following parameter: A{3177} local [clone [inside TRANSPOSE 168] 2947] has the following parameter: J{3176} local [clone TRANSPOSE[167] 2946] has the following parameter: A{3175} local [clone LOOP[130] 2941] has the following parameter: I{3173} local [clone [inside MAP-N-VECTOR 126] 2937] has the following parameter: V{3169} local [clone MAP-N-VECTOR[125] 2936] has the following parameter: N{3168} local [clone LOOP[130] 2931] has the following parameter: I{3165} local [clone [inside MAP-N-VECTOR 126] 2927] has the following parameter: V{3161} local [clone MAP-N-VECTOR[125] 2926] has the following parameter: N{3160} local [clone LOOP[130] 2921] has the following parameter: I{3157} local [clone [inside MAP-N-VECTOR 126] 2917] has the following parameter: V{3153} local [clone MAP-N-VECTOR[125] 2916] has the following parameter: N{3152} local [clone LOOP[130] 2911] has the following parameter: I{3149} local [clone [inside MAP-N-VECTOR 126] 2907] has the following parameter: V{3145} local [clone MAP-N-VECTOR[125] 2906] has the following parameter: N{3144} local [clone LOOP[130] 2901] has the following parameter: I{3141} local [clone [inside MAP-N-VECTOR 126] 2897] has the following parameter: V{3137} local [clone MAP-N-VECTOR[125] 2896] has the following parameter: N{3136} local [clone LOOP[130] 2891] has the following parameter: I{3133} local [clone [inside MAP-N-VECTOR 126] 2887] has the following parameter: V{3129} local [clone MAP-N-VECTOR[125] 2886] has the following parameter: N{3128} local [clone [inside OUTER-PRODUCT 171] 2885] has region has the following parameter: VJ{3126} local [clone [inside OUTER-PRODUCT 170] 2884] has the following parameter: UI{3125} local [clone OUTER-PRODUCT[169] 2883] has the following parameters: U{3123} local V{3124} local [clone DOT[110] 2882] has region has the following parameters: U{3120} local V{3121} local [clone DOT[110] 2881] has region has the following parameters: U{3118} local V{3119} local [clone LOOP[97] 2879] has region has the following parameters: I{3116} local C{3117} local [clone [inside REDUCE-VECTOR 91] 2873] has the following parameter: N{3113} local [clone REDUCE-VECTOR[90] 2872] has the following parameters: V{3111} local I{3112} local [clone LOOP[97] 2870] has the following parameters: I{3108} local C{3109} local [clone [inside REDUCE-VECTOR 91] 2864] has the following parameter: N{3105} local [clone REDUCE-VECTOR[90] 2863] has the following parameters: V{3103} local I{3104} local [clone LOOP[97] 2861] has the following parameters: I{3100} local C{3101} local [clone [inside REDUCE-VECTOR 91] 2855] has the following parameter: N{3097} local [clone REDUCE-VECTOR[90] 2854] has the following parameters: V{3095} local I{3096} local [clone LOOP[97] 2852] has the following parameters: I{3092} local C{3093} local [clone [inside REDUCE-VECTOR 91] 2846] has the following parameter: N{3089} local [clone REDUCE-VECTOR[90] 2845] has the following parameters: V{3087} local I{3088} local [clone LOOP[97] 2843] has the following parameters: I{3084} local C{3085} local [clone [inside REDUCE-VECTOR 91] 2837] has the following parameter: N{3081} local [clone REDUCE-VECTOR[90] 2836] has the following parameters: V{3079} local I{3080} local [clone LOOP[97] 2834] has the following parameters: I{3076} local C{3077} local [clone [inside REDUCE-VECTOR 91] 2828] has the following parameter: N{3073} local [clone REDUCE-VECTOR[90] 2827] has the following parameters: V{3071} local I{3072} local [clone [inside MAP-VECTOR-TWO 81] 2826] has the following parameter: I{3069} local [clone [inside MAP-VECTOR-TWO 79] 2824] has the following parameter: U{3067} local [clone MAP-VECTOR-TWO[78] 2823] has the following parameters: V1{3065} local V2{3066} local [clone [inside MAP-VECTOR-TWO 81] 2822] has region has the following parameter: I{3063} local [clone [inside MAP-VECTOR-TWO 79] 2820] has the following parameter: U{3061} local [clone MAP-VECTOR-TWO[78] 2819] has the following parameters: V1{3059} local V2{3060} local [clone [inside MAP-VECTOR-TWO 81] 2818] has the following parameter: I{3057} local [clone [inside MAP-VECTOR-TWO 79] 2816] has the following parameter: U{3055} local [clone MAP-VECTOR-TWO[78] 2815] has the following parameters: V1{3053} local V2{3054} local [clone [inside MAP-VECTOR-TWO 81] 2814] has region has the following parameter: I{3051} local [clone [inside MAP-VECTOR-TWO 79] 2812] has the following parameter: U{3049} local [clone MAP-VECTOR-TWO[78] 2811] has the following parameters: V1{3047} local V2{3048} local [clone [inside MAP-VECTOR-TWO 81] 2810] has the following parameter: I{3045} local [clone [inside MAP-VECTOR-TWO 79] 2808] has the following parameter: U{3043} local [clone MAP-VECTOR-TWO[78] 2807] has the following parameters: V1{3041} local V2{3042} local [clone [inside MAP-VECTOR-TWO 81] 2806] has region has the following parameter: I{3039} local [clone [inside MAP-VECTOR-TWO 79] 2804] has the following parameter: U{3037} local [clone MAP-VECTOR-TWO[78] 2803] has the following parameters: V1{3035} local V2{3036} local [clone [inside MAP-VECTOR-TWO 81] 2802] has region has the following parameter: I{3033} local [clone [inside MAP-VECTOR-TWO 79] 2800] has the following parameter: U{3031} local [clone MAP-VECTOR-TWO[78] 2799] has the following parameters: V1{3029} local V2{3030} local [clone [inside K*V 114] 2798] has the following parameter: X{3027} local [clone K*V[113] 2797] has the following parameters: K{3025} local U{3026} local [clone [inside K*M 176] 2794] has the following parameter: E{3021} local [clone [inside K*M 175] 2793] has the following parameter: ROW{3020} local [clone K*M[174] 2792] has the following parameters: K{3018} local M{3019} local [clone [inside MAP-VECTOR 77] 2791] has the following parameter: I{3017} local [clone [inside MAP-VECTOR 75] 2789] has the following parameter: U{3015} local [clone MAP-VECTOR[74] 2788] has the following parameter: V{3014} local [clone [inside MAP-VECTOR 77] 2787] has the following parameter: I{3012} local [clone [inside MAP-VECTOR 75] 2785] has the following parameter: U{3010} local [clone MAP-VECTOR[74] 2784] has the following parameter: V{3009} local [clone [inside MAP-VECTOR 77] 2783] has the following parameter: I{3007} local [clone [inside MAP-VECTOR 75] 2781] has the following parameter: U{3005} local [clone MAP-VECTOR[74] 2780] has the following parameter: V{3004} local [clone [inside MAP-VECTOR 77] 2779] has the following parameter: I{3002} local [clone [inside MAP-VECTOR 75] 2777] has the following parameter: U{3000} local [clone MAP-VECTOR[74] 2776] has the following parameter: V{2999} local [clone [inside MAP-VECTOR 77] 2775] has the following parameter: I{2997} local [clone [inside MAP-VECTOR 75] 2773] has the following parameter: U{2995} local [clone MAP-VECTOR[74] 2772] has the following parameter: V{2994} local [clone [inside MAP-VECTOR 77] 2771] has the following parameter: I{2992} local [clone [inside MAP-VECTOR 75] 2769] has the following parameter: U{2990} local [clone MAP-VECTOR[74] 2768] has the following parameter: V{2989} local [clone [inside MAP-VECTOR 77] 2767] has the following parameter: I{2987} local [clone [inside MAP-VECTOR 75] 2765] has the following parameter: U{2985} local [clone MAP-VECTOR[74] 2764] has the following parameter: V{2984} local [clone [inside MAP-VECTOR 77] 2763] has the following parameter: I{2982} local [clone [inside MAP-VECTOR 75] 2761] has the following parameter: U{2980} local [clone MAP-VECTOR[74] 2760] has the following parameter: V{2979} local [clone [inside MAP-VECTOR 77] 2759] has the following parameter: I{2977} local [clone [inside MAP-VECTOR 75] 2757] has the following parameter: U{2975} local [clone MAP-VECTOR[74] 2756] has the following parameter: V{2974} local [clone [inside MAP-VECTOR 77] 2755] has the following parameter: I{2972} local [clone [inside MAP-VECTOR 75] 2753] has the following parameter: U{2970} local [clone MAP-VECTOR[74] 2752] has the following parameter: V{2969} local [clone [inside MAP-VECTOR 77] 2751] has the following parameter: I{2967} local [clone [inside MAP-VECTOR 75] 2749] has the following parameter: U{2965} local [clone MAP-VECTOR[74] 2748] has the following parameter: V{2964} local [clone [inside MAP-VECTOR 77] 2747] has the following parameter: I{2962} local [clone [inside MAP-VECTOR 75] 2745] has the following parameter: U{2960} local [clone MAP-VECTOR[74] 2744] has the following parameter: V{2959} local [clone [inside MAP-VECTOR 77] 2743] has the following parameter: I{2957} local [clone [inside MAP-VECTOR 75] 2741] has the following parameter: U{2955} local [clone MAP-VECTOR[74] 2740] has the following parameter: V{2954} local [clone [inside MAP-VECTOR 77] 2739] has the following parameter: I{2952} local [clone [inside MAP-VECTOR 75] 2737] has the following parameter: U{2950} local [clone MAP-VECTOR[74] 2736] has the following parameter: V{2949} local [clone [inside MAP-VECTOR 77] 2735] has the following parameter: I{2947} local [clone [inside MAP-VECTOR 75] 2733] has the following parameter: U{2945} local [clone MAP-VECTOR[74] 2732] has the following parameter: V{2944} local [clone [inside MAP-VECTOR 77] 2731] has the following parameter: I{2942} local [clone [inside MAP-VECTOR 75] 2729] has the following parameter: U{2940} local [clone MAP-VECTOR[74] 2728] has the following parameter: V{2939} local [clone LOOP[61] 2723] has the following parameter: I{2936} local [clone FOR-EACH-N[58] 2720] has the following parameter: N{2933} local [clone LOOP[61] 2715] has the following parameter: I{2930} local [clone FOR-EACH-N[58] 2712] has the following parameter: N{2927} local [clone LOOP[61] 2707] has the following parameter: I{2924} local [clone FOR-EACH-N[58] 2704] has the following parameter: N{2921} local [clone LOOP[61] 2699] has the following parameter: I{2918} local [clone FOR-EACH-N[58] 2696] has the following parameter: N{2915} local [clone LOOP[61] 2691] has the following parameter: I{2912} local [clone FOR-EACH-N[58] 2688] has the following parameter: N{2909} local [clone LOOP[61] 2683] has the following parameter: I{2906} local [clone FOR-EACH-N[58] 2680] has the following parameter: N{2903} local [clone LOOP[61] 2675] has the following parameter: I{2900} local [clone FOR-EACH-N[58] 2672] has the following parameter: N{2897} local [clone LOOP[61] 2667] has the following parameter: I{2894} local [clone FOR-EACH-N[58] 2664] has the following parameter: N{2891} local [clone LOOP[61] 2659] has the following parameter: I{2888} local [clone FOR-EACH-N[58] 2656] has the following parameter: N{2885} local [clone LOOP[61] 2651] has the following parameter: I{2882} local [clone FOR-EACH-N[58] 2648] has the following parameter: N{2879} local [clone LOOP[61] 2643] has the following parameter: I{2876} local [clone FOR-EACH-N[58] 2640] has the following parameter: N{2873} local [clone LOOP[61] 2635] has the following parameter: I{2870} local [clone FOR-EACH-N[58] 2632] has the following parameter: N{2867} local [clone LOOP[61] 2627] has the following parameter: I{2864} local [clone FOR-EACH-N[58] 2624] has the following parameter: N{2861} local [clone LOOP[61] 2619] has the following parameter: I{2858} local [clone FOR-EACH-N[58] 2616] has the following parameter: N{2855} local [clone LOOP[61] 2611] has the following parameter: I{2852} local [clone FOR-EACH-N[58] 2608] has the following parameter: N{2849} local [clone LOOP[61] 2603] has the following parameter: I{2846} local [clone FOR-EACH-N[58] 2600] has the following parameter: N{2843} local [clone LOOP[61] 2595] has the following parameter: I{2840} local [clone FOR-EACH-N[58] 2592] has the following parameter: N{2837} local [clone LOOP[61] 2587] has the following parameter: I{2834} local [clone FOR-EACH-N[58] 2584] has the following parameter: N{2831} local [clone LOOP[61] 2579] has the following parameter: I{2828} local [clone FOR-EACH-N[58] 2576] has the following parameter: N{2825} local [clone LOOP[61] 2571] has the following parameter: I{2822} local [clone FOR-EACH-N[58] 2568] has the following parameter: N{2819} local [clone LOOP[61] 2563] has the following parameter: I{2816} local [clone FOR-EACH-N[58] 2560] has the following parameter: N{2813} local [clone LOOP[618] 2558] has the following parameters: LIST{2810} local R{2811} local [clone LIST-REVERSE[615] 2555] has the following parameter: LIST{2807} local [clone LOOP[759] 2548] has the following parameters: ZS{2799} local R{2800} local [clone +[756] 2545] has the following parameter: ZS{2796} local [clone MATRIX-ROWS[155] 2539] has the following parameter: A{2790} local [clone MATRIX-ROWS[155] 2538] has the following parameter: A{2789} local [clone MATRIX-ROWS[155] 2537] has the following parameter: A{2788} local [clone MATRIX-ROWS[155] 2536] has the following parameter: A{2787} local [clone MATRIX-ROWS[155] 2535] has the following parameter: A{2786} local [clone MATRIX-ROWS[155] 2534] has the following parameter: A{2785} local [clone MATRIX-ROWS[155] 2533] has the following parameter: A{2784} local [clone MATRIX-COLUMNS[156] 2532] has the following parameter: A{2783} local [clone MATRIX-COLUMNS[156] 2531] has the following parameter: A{2782} local [clone MATRIX-COLUMNS[156] 2530] has the following parameter: A{2781} local [clone MATRIX-COLUMNS[156] 2529] has the following parameter: A{2780} local [clone MATRIX-COLUMNS[156] 2528] has the following parameter: A{2779} local [clone MATRIX-REF[157] 2527] has the following parameters: A{2776} local I{2777} local J{2778} local [clone MATRIX-REF[157] 2526] has the following parameters: A{2773} local I{2774} local J{2775} local [clone MATRIX-REF[157] 2525] has the following parameters: A{2770} local I{2771} local J{2772} local [clone MATRIX-REF[157] 2524] has the following parameters: A{2767} local I{2768} local J{2769} local [clone MATRIX-REF[157] 2523] has the following parameters: A{2764} local I{2765} local J{2766} local [clone MATRIX-REF[157] 2522] has the following parameters: A{2761} local I{2762} local J{2763} local [clone MATRIX-REF[157] 2521] has the following parameters: A{2758} local I{2759} local J{2760} local [clone MATRIX-REF[157] 2520] has the following parameters: A{2755} local I{2756} local J{2757} local [clone MATRIX-REF[157] 2519] has the following parameters: A{2752} local I{2753} local J{2754} local [clone MATRIX-REF[157] 2518] has the following parameters: A{2749} local I{2750} local J{2751} local [clone MATRIX-REF[157] 2517] has the following parameters: A{2746} local I{2747} local J{2748} local [clone MATRIX-REF[157] 2516] has the following parameters: A{2743} local I{2744} local J{2745} local [clone MATRIX-REF[157] 2515] has the following parameters: A{2740} local I{2741} local J{2742} local [clone MATRIX-REF[157] 2514] has the following parameters: A{2737} local I{2738} local J{2739} local [clone MATRIX-REF[157] 2513] has the following parameters: A{2734} local I{2735} local J{2736} local [clone MATRIX-REF[157] 2512] has the following parameters: A{2731} local I{2732} local J{2733} local [clone MATRIX-REF[157] 2511] has the following parameters: A{2728} local I{2729} local J{2730} local [clone MATRIX-REF[157] 2510] has the following parameters: A{2725} local I{2726} local J{2727} local [clone MATRIX-REF[157] 2509] has the following parameters: A{2722} local I{2723} local J{2724} local [clone MATRIX-REF[157] 2508] has the following parameters: A{2719} local I{2720} local J{2721} local [clone MATRIX-REF[157] 2507] has the following parameters: A{2716} local I{2717} local J{2718} local [clone MATRIX-REF[157] 2506] has the following parameters: A{2713} local I{2714} local J{2715} local [clone MATRIX-REF[157] 2505] has the following parameters: A{2710} local I{2711} local J{2712} local [clone MATRIX-REF[157] 2504] has the following parameters: A{2707} local I{2708} local J{2709} local [clone MATRIX-REF[157] 2503] has the following parameters: A{2704} local I{2705} local J{2706} local [clone MATRIX-REF[157] 2502] has the following parameters: A{2701} local I{2702} local J{2703} local [clone MATRIX-REF[157] 2501] has the following parameters: A{2698} local I{2699} local J{2700} local [clone MATRIX-REF[157] 2500] has the following parameters: A{2695} local I{2696} local J{2697} local [clone MATRIX-REF[157] 2499] has the following parameters: A{2692} local I{2693} local J{2694} local [clone MATRIX-REF[157] 2498] has the following parameters: A{2689} local I{2690} local J{2691} local [clone MATRIX-REF[157] 2497] has the following parameters: A{2686} local I{2687} local J{2688} local [clone MATRIX-REF[157] 2496] has the following parameters: A{2683} local I{2684} local J{2685} local [clone MATRIX-SET![158] 2495] has the following parameters: A{2679} local I{2680} local J{2681} local X{2682} local [clone MATRIX-SET![158] 2494] has the following parameters: A{2675} local I{2676} local J{2677} local X{2678} local [clone MATRIX-SET![158] 2493] has the following parameters: A{2671} local I{2672} local J{2673} local X{2674} local [clone MATRIX-SET![158] 2492] has the following parameters: A{2667} local I{2668} local J{2669} local X{2670} local [clone MATRIX-SET![158] 2491] has the following parameters: A{2663} local I{2664} local J{2665} local X{2666} local [clone MATRIX-SET![158] 2490] has the following parameters: A{2659} local I{2660} local J{2661} local X{2662} local [clone MATRIX-SET![158] 2489] has the following parameters: A{2655} local I{2656} local J{2657} local X{2658} local [clone MATRIX-SET![158] 2488] has the following parameters: A{2651} local I{2652} local J{2653} local X{2654} local [clone MATRIX-SET![158] 2487] has the following parameters: A{2647} local I{2648} local J{2649} local X{2650} local [clone MATRIX-SET![158] 2486] has the following parameters: A{2643} local I{2644} local J{2645} local X{2646} local [clone MATRIX-SET![158] 2485] has the following parameters: A{2639} local I{2640} local J{2641} local X{2642} local [clone MATRIX-SET![158] 2484] has the following parameters: A{2635} local I{2636} local J{2637} local X{2638} local [clone MATRIX-SET![158] 2483] has the following parameters: A{2631} local I{2632} local J{2633} local X{2634} local [clone MATRIX-SET![158] 2482] has the following parameters: A{2627} local I{2628} local J{2629} local X{2630} local [clone MATRIX-SET![158] 2481] has the following parameters: A{2623} local I{2624} local J{2625} local X{2626} local [clone MATRIX-SET![158] 2480] has the following parameters: A{2619} local I{2620} local J{2621} local X{2622} local [clone CAR[465] 2479] has the following parameter: PAIR{2618} local [clone CAR[465] 2478] has the following parameter: PAIR{2617} local [clone CAR[465] 2477] has the following parameter: PAIR{2616} local [clone CAR[465] 2476] has the following parameter: PAIR{2615} local [clone CAR[465] 2475] has the following parameter: PAIR{2614} local [clone CAR[465] 2474] has the following parameter: PAIR{2613} local [clone CAR[465] 2473] has the following parameter: PAIR{2612} local [clone CAR[465] 2472] has the following parameter: PAIR{2611} local [clone CAR[465] 2471] has the following parameter: PAIR{2610} local [clone CAR[465] 2470] has the following parameter: PAIR{2609} local [clone CAR[465] 2469] has the following parameter: PAIR{2608} local [clone CAR[465] 2468] has the following parameter: PAIR{2607} local [clone CAR[465] 2467] has the following parameter: PAIR{2606} local [clone CADR[470] 2466] has the following parameter: PAIR{2605} local [clone CADR[470] 2465] has the following parameter: PAIR{2604} local [clone CADR[470] 2464] has the following parameter: PAIR{2603} local [clone CADR[470] 2463] has the following parameter: PAIR{2602} local [clone LIST[507] 2462] has the following parameter: OBJS{2601} local [clone LIST[507] 2461] has the following parameter: OBJS{2600} local [clone LIST[507] 2460] has the following parameter: OBJS{2599} local [clone LIST[507] 2459] has the following parameter: OBJS{2598} local [clone ABS[776] 2458] has the following parameter: X{2597} local [clone ABS[776] 2457] has the following parameter: X{2596} local [clone ABS[776] 2456] has the following parameter: X{2595} local [clone ABS[776] 2455] has the following parameter: X{2594} local [clone ABS[776] 2454] has the following parameter: X{2593} local [clone ABS[776] 2453] has the following parameter: X{2592} local [clone ABS[776] 2452] has the following parameter: X{2591} local [clone ABS[776] 2451] has the following parameter: X{2590} local [clone ABS[776] 2450] has the following parameter: X{2589} local [clone ABS[776] 2449] has the following parameter: X{2588} local [clone ABS[776] 2448] has the following parameter: X{2587} local [clone ABS[776] 2447] has the following parameter: X{2586} local WRITE[2197] has the following parameter: OBJ{2571} local [inside LOOP 1838] reentrant [inside LOOP 1837] reentrant LOOP[1836] reentrant has the following parameter: I{2356} local [inside WRITE2 1833] reentrant [inside WRITE2 1832] reentrant [inside WRITE2 1830] reentrant [inside LOOP 1827] reentrant [inside LOOP 1826] reentrant [inside LOOP 1825] reentrant [inside LOOP 1823] reentrant LOOP[1822] reentrant has the following parameter: OBJ{2344} local [inside WRITE2 1819] reentrant [inside WRITE2 1818] reentrant LOOP[1787] has the following parameters: MANTISSA{2326} local EXPONENT{2327} local LOOP[1782] has the following parameters: MANTISSA{2322} local EXPONENT{2323} local DISPLAY-INEXACT-REAL2[1773] has the following parameters: NUMBER{2317} local PORT{2318} local [inside LOOP 1770] has the following parameter: MANTISSA{2316} local [inside LOOP 1767] has the following parameter: DIGIT{2314} local [inside LOOP 1766] has the following parameter: FLOAT-DIGIT{2313} local LOOP[1765] has the following parameter: MANTISSA{2312} local [inside DISPLAY-MANTISSA-EXPONENT2 1754] has the following parameter: DIGIT{2305} local [inside DISPLAY-MANTISSA-EXPONENT2 1753] has the following parameter: FLOAT-DIGIT{2304} local LOOP[1744] has the following parameter: I{2298} local LOOP[1741] has the following parameters: I{2294} local NUMBER{2295} local LOOP[1730] has the following parameter: I{2288} local LOOP[1727] has the following parameters: I{2284} local NUMBER{2285} local LOOP[1718] has the following parameter: I{2278} local [inside DISPLAY-STRING2 1715] has the following parameter: N{2275} local [inside top level 1710] has the following parameters: THE-CURRENT-OUTPUT-PORT{2234} global BUFFER{2236} global LOOP[1235] has region has the following parameters: LIST1{1949} local C{1950} local MAP[1231] has the following parameter: LIST1{1945} local VECTOR->LIST[1145] has the following parameter: VECTOR{1874} global [inside STRING->LIST 1080] has the following parameter: N{1820} global STRING->LIST[1079] has the following parameter: STRING{1819} global LOOP[1051] has the following parameter: K{1799} local [inside SUBSTRING 1047] has the following parameter: R{1795} local SUBSTRING[1046] has the following parameters: STRING{1792} local START{1793} local END{1794} local CHAR-NUMERIC?[905] has the following parameter: CHAR{1615} local LOOP?[870] has the following parameters: CHAR1{1564} local CHAR2{1565} local CHAR>=?[867] has the following parameters: CHAR1{1559} local CHAR2{1560} local LOOP?[864] has the following parameters: CHAR1{1555} local CHAR2{1556} local CHAR<=?[861] has the following parameters: CHAR1{1550} local CHAR2{1551} local EXP[825] has the following parameter: Z{1508} local [inside MODULO 780] has the following parameter: v{1467} local ABS[776] has the following parameter: X{1460} local LOOP[749] has the following parameter: R{1431} local MAX[746] has the following parameters: X{1426} local XS{1427} local LOOP[618] has the following parameters: LIST{1321} local R{1322} local LIST-REVERSE[615] has the following parameter: LIST{1318} local LIST[507] has the following parameter: OBJS{1243} local CADR[470] has the following parameter: PAIR{1206} local CAR[465] has the following parameter: PAIR{1199} local [inside EQV? 451] has the following parameter: v{1183} local [inside EQV? 450] has the following parameter: v{1182} local EQV?[449] has the following parameters: OBJ1{1180} local OBJ2{1181} local [inside EM-CLUSTERER 373] has the following parameter: ZI{1177} local [inside EM-CLUSTERER 372] has region has the following parameter: I{1176} local [inside EM-CLUSTERER 371] has the following parameter: CLUSTER{1175} local [inside EM-CLUSTERER 370] has the following parameter: CLUSTER{1174} local [inside EM-CLUSTERER 369] has the following parameter: J{1173} local [inside EM-CLUSTERER 367] has the following parameter: CLUSTERS{1172} local [inside EM-CLUSTERER 366] has the following parameter: Z{1171} local EM-CLUSTERER[365] has region has the following parameters: X{1166} local CLIP{1167} local EM-KICK-OFF-TOLERANCE{1168} local EM-CONVERGENCE-TOLERANCE{1169} local EMS-CONVERGENCE-TOLERANCE{1170} local [inside LOOP 362] has the following parameter: NEW-LOG-LIKELIHOOD-MODELS{1165} local [inside LOOP 361] has the following parameter: MODELS{1164} local LOOP[360] has region has the following parameters: JJ{1162} local OLD-LOG-LIKELIHOOD-MODELS{1163} local EMS[357] has region has the following parameters: X{1155} local CLIP{1156} local EM-KICK-OFF-TOLERANCE{1157} local EM-CONVERGENCE-TOLERANCE{1158} local EMS-CONVERGENCE-TOLERANCE{1159} local [inside INITIAL-Z 355] has the following parameter: ZI{1153} local [inside INITIAL-Z 354] has region INITIAL-Z[353] has the following parameters: II{1150} local JJ{1151} local NOISE[352] has the following parameter: EPSILON{1149} local [inside EM 351] has the following parameter: J{1148} local [inside LOOP 349] has the following parameter: v{1147} local [inside LOOP 348] has the following parameter: v{1146} local [inside LOOP 347] has the following parameter: LOG-LIKELIHOOD-Z{1145} local LOOP[346] has the following parameters: MODELS{1142} local OLD-LOG-LIKELIHOOD{1143} local STARTING?{1144} local [inside EM 343] has the following parameter: JJ{1139} local EM[342] has the following parameters: X{1132} local PI{1133} local MU{1134} local SIGMA{1135} local CLIP{1136} local EM-KICK-OFF-TOLERANCE{1137} local EM-CONVERGENCE-TOLERANCE{1138} local [inside M-STEP 341] has region has the following parameters: ZIJ{1130} local XI{1131} local [inside M-STEP 339] has the following parameter: SIGMA{1129} local [inside M-STEP 338] has region has the following parameter: MU{1128} local [inside M-STEP 337] has region has the following parameter: ZJ-SUM{1127} local [inside M-STEP 336] has the following parameter: ZJ{1126} local [inside M-STEP 335] has the following parameter: J{1125} local [inside M-STEP 333] has the following parameter: KK{1124} local [inside M-STEP 332] has the following parameter: II{1123} local [inside E-STEP 330] has region has the following parameters: LOG-DETERMINANT-SIGMA{1116} local SIGMA-INVERSE{1117} local MU{1118} local LOG-PI{1119} local [inside E-STEP 329] has the following parameter: MODEL{1115} local [inside E-STEP 328] has the following parameter: XI{1114} local [inside E-STEP 327] has the following parameter: ZI{1113} local [inside E-STEP 326] has the following parameter: ZI{1112} local [inside E-STEP 325] has region has the following parameter: S{1111} local [inside E-STEP 324] has region has the following parameter: Z{1110} local [inside CLIP-EIGENVALUES 322] has region [inside CLIP-EIGENVALUES 321] has the following parameter: E{1107} local [inside CLIP-EIGENVALUES 320] has the following parameter: J{1106} local CLIP-EIGENVALUES[319] has region has the following parameters: A{1104} local V{1105} local [inside VECTOR->DIAGONAL-MATRIX 318] has the following parameter: I{1103} local [inside VECTOR->DIAGONAL-MATRIX 316] has the following parameter: M{1101} local VECTOR->DIAGONAL-MATRIX[315] has the following parameter: V{1100} local [inside JACOBI 313] has the following parameter: J{1099} local [inside JACOBI 312] has the following parameter: I{1098} local [inside JACOBI 311] has the following parameter: X{1097} local [inside JACOBI 310] has the following parameter: ROW{1096} local [inside JACOBI 305] has the following parameter: J{1094} local [inside JACOBI 304] has the following parameter: L{1093} local [inside JACOBI 301] has the following parameter: P{1091} local [inside JACOBI 300] has the following parameter: J{1090} local [inside JACOBI 296] has the following parameters: P{1085} local K{1086} local [inside JACOBI 295] has the following parameter: I{1084} local [inside LOOP 292] has the following parameter: IQ{1083} local [inside LOOP 291] has the following parameter: IR{1082} local [inside LOOP 290] has the following parameter: IP{1081} local [inside LOOP 287] has the following parameter: IP{1078} local [inside LOOP 285] has the following parameter: THETA{1077} local [inside ROTATE 282] has the following parameters: H{1074} local G{1075} local [inside LOOP 275] has the following parameter: J{1067} local [inside LOOP 271] has the following parameter: H{1059} local [inside LOOP 270] has the following parameter: TAU{1058} global [inside LOOP 269] has the following parameter: S{1057} global [inside LOOP 268] has the following parameter: C{1056} local [inside LOOP 267] has the following parameter: T{1055} local [inside LOOP 266] has the following parameter: H{1054} local [inside LOOP 262] has the following parameter: G{1053} local [inside LOOP 261] has the following parameter: IQ{1052} local [inside LOOP 260] has the following parameter: IR{1051} local [inside LOOP 259] has the following parameter: IP{1050} local [inside LOOP 258] has the following parameter: TRESH{1049} local [inside LOOP 255] has the following parameter: SM{1046} local LOOP[253] has the following parameter: I{1044} local [inside JACOBI 249] has the following parameter: IP{1039} local [inside JACOBI 246] has the following parameter: Z{1035} local [inside JACOBI 245] has region has the following parameter: B{1034} local [inside JACOBI 244] has region has the following parameter: V{1033} local [inside JACOBI 243] has the following parameter: D{1032} local [inside JACOBI 242] has the following parameter: N{1031} local [inside JACOBI 241] has the following parameter: A{1030} local [inside JACOBI 240] has region JACOBI[239] has the following parameter: A{1028} local [inside INVERT-MATRIX 234] has the following parameter: E{1026} local [inside INVERT-MATRIX 232] has the following parameter: E{1024} local [inside INVERT-MATRIX 229] has the following parameter: J{1021} local [inside INVERT-MATRIX 225] has the following parameter: J{1017} local [inside INVERT-MATRIX 222] has the following parameter: J{1015} local [inside INVERT-MATRIX 221] has the following parameter: D{1014} local [inside INVERT-MATRIX 220] has the following parameter: K{1013} local [inside INVERT-MATRIX 218] has the following parameter: D{1011} local [inside INVERT-MATRIX 216] has the following parameter: I{1009} local [inside INVERT-MATRIX 215] has the following parameter: I{1008} local [inside INVERT-MATRIX 214] has the following parameter: J{1007} local [inside INVERT-MATRIX 213] has the following parameter: I{1006} local [inside INVERT-MATRIX 210] has the following parameter: B{1002} local [inside INVERT-MATRIX 209] has the following parameter: C{1001} local [inside INVERT-MATRIX 208] has the following parameter: N{1000} local [inside DETERMINANT 202] has the following parameter: V{995} local [inside DETERMINANT 197] has the following parameter: X{993} local [inside DETERMINANT 196] has the following parameter: J{992} local [inside DETERMINANT 195] has the following parameter: J{991} local [inside DETERMINANT 194] has the following parameter: K{990} local [inside DETERMINANT 193] has the following parameter: E{989} local [inside DETERMINANT 192] has the following parameter: J{988} local [inside DETERMINANT 190] has the following parameter: C{985} local [inside DETERMINANT 188] has the following parameters: INDEX{980} local GREATEST{981} local [inside DETERMINANT 187] has the following parameter: I{979} local [inside DETERMINANT 186] has the following parameter: J{978} local [inside DETERMINANT 185] has the following parameter: I{977} local [inside DETERMINANT 182] has the following parameter: D{974} local [inside DETERMINANT 181] has the following parameter: B{973} local [inside DETERMINANT 180] has the following parameter: N{972} local [inside K*M 176] has the following parameter: E{968} local [inside K*M 175] has the following parameter: ROW{967} local K*M[174] has the following parameters: K{965} local M{966} local M*[173] has region has the following parameters: A{963} local B{964} local SELF-OUTER-PRODUCT[172] has the following parameter: V{962} local [inside OUTER-PRODUCT 171] has the following parameter: VJ{960} local [inside OUTER-PRODUCT 170] has the following parameter: UI{959} local OUTER-PRODUCT[169] has the following parameters: U{957} local V{958} local [inside TRANSPOSE 168] has the following parameter: J{955} local TRANSPOSE[167] has the following parameter: A{954} local [inside M*V 166] has the following parameter: U{953} local M*V[165] has the following parameters: A{951} local V{952} local M-[164] has the following parameters: A{949} local B{950} local M+[163] has the following parameters: A{947} local B{948} local [inside MATRIX-COLUMN-REF 161] has the following parameter: V{943} local MATRIX-SET![158] has the following parameters: A{935} local I{936} local J{937} local X{938} local MATRIX-REF[157] has the following parameters: A{932} local I{933} local J{934} local MATRIX-COLUMNS[156] has the following parameter: A{931} local MATRIX-ROWS[155] has the following parameter: A{930} local LOOP[146] has the following parameters: L{921} local I{922} local POSITIONV[143] has the following parameters: X{917} local L{918} local LOOP[138] has region has the following parameters: L{915} local C{916} local REMOVE-IF-NOT[135] has the following parameter: L{912} local LOOP[130] has the following parameter: I{909} local [inside MAP-N-VECTOR 126] has the following parameter: V{905} local MAP-N-VECTOR[125] has the following parameter: N{904} local LOOP[123] has region has the following parameters: I{901} local C{902} local MAP-N[120] has the following parameter: N{898} local [inside ADD-EXP 118] has the following parameter: FACTOR{896} local [inside ADD-EXP 117] has the following parameter: E-MIN{895} local [inside ADD-EXP 116] has the following parameter: E-MAX{894} local ADD-EXP[115] has the following parameters: E1{892} local E2{893} local [inside K*V 114] has the following parameter: X{891} local K*V[113] has the following parameters: K{889} local U{890} local DOT[110] has region has the following parameters: U{883} local V{884} local LOOP[108] has the following parameters: N{881} local C{882} local SUM[105] has the following parameter: N{878} local [inside LOOP 103] has the following parameter: v{876} local LOOP[102] has the following parameter: I{875} local EVERY-N[99] has the following parameter: N{872} local LOOP[97] has the following parameters: I{869} local C{870} local [inside REDUCE-VECTOR 91] has the following parameter: N{866} local REDUCE-VECTOR[90] has the following parameters: V{864} local I{865} local LOOP[88] has region has the following parameters: L{861} local C{862} local REDUCE[82] has the following parameters: L{857} local I{858} local [inside MAP-VECTOR-TWO 81] has the following parameter: I{855} local [inside MAP-VECTOR-TWO 79] has the following parameter: U{853} local MAP-VECTOR-TWO[78] has the following parameters: V1{851} local V2{852} local [inside MAP-VECTOR 77] has the following parameter: I{849} local [inside MAP-VECTOR 75] has the following parameter: U{847} local MAP-VECTOR[74] has the following parameter: V{846} local LOOP[69] has the following parameter: I{843} local FOR-EACH-FROM-A-UP-TO-B[66] has the following parameters: A{839} local B{840} local LOOP[61] has the following parameter: I{836} local FOR-EACH-N[58] has the following parameter: N{833} local LOOP[51] has the following parameters: N{830} local R{831} local [inside loop 48] has the following parameter: SLOP{827} local loop[46] has the following parameters: ILEN{825} local S{826} local [inside RANDOM:CHUNK 40] has the following parameter: ANS{820} local [inside RANDOM:CHUNK 39] has the following parameter: P{819} local loop[33] has region has the following parameter: I{816} local [inside top level 30] has the following parameter: NIBBLES{813} local [inside top level 28] has the following parameter: RANDOM-STRINGS{811} local [inside RANDOM:SIZE-INT 27] has the following parameter: TRIAL{810} local RANDOM:SIZE-INT[26] has region has the following parameter: L{809} local [inside LOGICAL:LOGXOR 24] reentrant LOOP[18] has the following parameters: S{804} local C{805} local loop[8] has region has the following parameter: I{798} local [inside top level 4] has the following parameters: MINUS-INFINITY{698} global LOG-MATH-PRECISION{699} global *RANDOM-STATE*{702} local RANDOM:MASK{703} local RANDOM:CHUNK-SIZE{704} local RANDOM:SIZE{706} global RANDOM:TAP{707} global LOGICAL:BOOLE-XOR{708} global *MOST-POSITIVE-FIXNUM*{711} local The following expression, em-functional-stalin.sc:180:6378, allocates on the stack: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-stalin.sc:163:5840, allocates on [clone DOT[110] 2881]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:165:5921, allocates on [clone [inside MAP-VECTOR-TWO 81] 3396]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-stalin.sc:180:6378, allocates on the stack: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-stalin.sc:163:5840, allocates on [clone DOT[110] 2882]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:165:5921, allocates on [clone [inside MAP-VECTOR-TWO 81] 3317]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-stalin.sc:214:7275, allocates on M*[173]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:214:7275, allocates on [inside CLIP-EIGENVALUES 322]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:180:6378, allocates on the stack: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-stalin.sc:163:5840, allocates on [clone DOT[110] 3244]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:165:5921, allocates on [clone [inside MAP-VECTOR-TWO 81] 3248]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside CLIP-EIGENVALUES 322]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside CLIP-EIGENVALUES 322]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:214:7275, allocates on [clone M*[173] 2952]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:214:7275, allocates on CLIP-EIGENVALUES[319]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside M-STEP 338]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside M-STEP 338]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside M-STEP 341]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside M-STEP 341]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside M-STEP 337]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on EMS[357]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:211:7206, allocates on [clone LOOP[123] 2991]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C) The following expression, em-functional-stalin.sc:214:7275, allocates on LOOP[360]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:214:7275, allocates on [inside INITIAL-Z 354]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:214:7275, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:214:7275, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:214:7275, allocates on [inside E-STEP 325]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:214:7275, allocates on LOOP[360]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:263:8646, allocates on [clone [inside OUTER-PRODUCT 171] 2885]: (F UI VJ) The following expression, em-functional-stalin.sc:180:6378, allocates on [clone LOOP[97] 2879]: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-stalin.sc:180:6378, allocates on the stack: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-stalin.sc:180:6378, allocates on the stack: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-stalin.sc:163:5840, allocates on [inside M-STEP 337]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:163:5840, allocates on [inside M-STEP 337]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:165:5921, allocates on [clone [inside MAP-VECTOR-TWO 81] 2822]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-stalin.sc:163:5840, allocates on [inside M-STEP 338]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:163:5840, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:165:5921, allocates on [clone [inside MAP-VECTOR-TWO 81] 2814]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-stalin.sc:163:5840, allocates on [inside M-STEP 338]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:163:5840, allocates on [inside CLIP-EIGENVALUES 322]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:165:5921, allocates on [clone [inside MAP-VECTOR-TWO 81] 2806]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-stalin.sc:163:5840, allocates on DOT[110]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:165:5921, allocates on [clone [inside MAP-VECTOR-TWO 81] 2802]: (F ((PRIMITIVE-PROCEDURE VECTOR-REF) V1 I) ((PRIMITIVE-PROCEDURE VECTOR-REF) V2 I)) The following expression, em-functional-stalin.sc:156:5599, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside M-STEP 338]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside M-STEP 338]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside JACOBI 240]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside JACOBI 240]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on LOOP[360]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on LOOP[360]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on LOOP[360]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on E-STEP[323]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on E-STEP[323]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside E-STEP 330]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on [inside E-STEP 324]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:156:5599, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20) The following expression allocates on LOOP[1235]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC (# LIST1)) C) The following expression allocates on [inside EM-CLUSTERER 372]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR-REF) VECTOR K) (LOOP (# K 1))) The following expression allocates on HEX-STRING->NUMBER[15]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRING-REF) STRING K) (LOOP (# K 1))) The following expression allocates on loop[33]: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START)) The following expression allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression, em-functional-stalin.sc:613:19210, allocates on loop[8]: (LIST I (POSITIONV (REDUCE MAX ZI MINUS-INFINITY) ZI)) The following expression, em-functional-stalin.sc:588:18343, allocates on EMS[357]: (LIST MINUS-INFINITY #F) The following expression, em-functional-stalin.sc:547:16971, allocates on EM-CLUSTERER[365]: (MAKE-MODEL ((PRIMITIVE-PROCEDURE VECTOR-REF) PI J) ((PRIMITIVE-PROCEDURE VECTOR-REF) MU J) ((PRIMITIVE-PROCEDURE VECTOR-REF) SIGMA J) ((PRIMITIVE-PROCEDURE LOG) (# PI J)) (INVERT-MATRIX (# SIGMA J)) ((PRIMITIVE-PROCEDURE LOG) (DETERMINANT #))) The following expression, em-functional-stalin.sc:568:17750, allocates on LOOP[360]: (LIST OLD-LOG-LIKELIHOOD MODELS) The following expression, em-functional-stalin.sc:523:16387, allocates on [inside M-STEP 337]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) KK 0.) The following expression, em-functional-stalin.sc:535:16651, allocates on EM-CLUSTERER[365]: (MAKE-MODEL ((PRIMITIVE-PROCEDURE /) ZJ-SUM II) MU SIGMA ((PRIMITIVE-PROCEDURE LOG) (# ZJ-SUM II)) (INVERT-MATRIX SIGMA) ((PRIMITIVE-PROCEDURE LOG) (DETERMINANT SIGMA))) The following expression, em-functional-stalin.sc:507:15858, allocates on EM-CLUSTERER[365]: (LIST (REDUCE-VECTOR + S 0.) (MAP-VECTOR (LAMBDA # #) (M- Z #))) The following expression, em-functional-stalin.sc:509:15960, allocates on the stack: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) (MATRIX-COLUMNS Z) S) The following expression, em-functional-stalin.sc:378:11938, allocates on CLIP-EIGENVALUES[319]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:380:11994, allocates on [inside JACOBI 244]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:381:12015, allocates on [inside JACOBI 245]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N 0.) The following expression, em-functional-stalin.sc:469:14720, allocates on CLIP-EIGENVALUES[319]: (LIST D (TRANSPOSE V)) The following expression, em-functional-stalin.sc:237:7880, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL) The following expression, em-functional-stalin.sc:234:7789, allocates on LOOP[360]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:225:7554, allocates on LOOP[138]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (FIRST L) C) The following expression, em-functional-stalin.sc:214:7275, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-functional-stalin.sc:211:7206, allocates on LOOP[123]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C) The following expression, em-functional-stalin.sc:180:6378, allocates on the stack: (F C ((PRIMITIVE-PROCEDURE VECTOR-REF) V I)) The following expression, em-functional-stalin.sc:173:6163, allocates on LOOP[88]: (F C (FIRST L)) The following expression, em-functional-stalin.sc:163:5840, allocates on [inside E-STEP 325]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V1)) The following expression, em-functional-stalin.sc:156:5599, allocates on EM-CLUSTERER[365]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE VECTOR-LENGTH) V)) The following expression, em-functional-stalin.sc:104:4013, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) RANDOM:SIZE 1) 0) The following expression, em-functional-stalin.sc:87:3190, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE QUOTIENT) RANDOM:CHUNK-SIZE 4) #\f) The following expression, em-functional-stalin.sc:79:2949, allocates on RANDOM:SIZE-INT[26]: ((PRIMITIVE-PROCEDURE MAKE-STRING) L #\f) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W24294 is general case for the following reasons: flonum W21675 is general case for the following reasons: nondegenerate nonheaded vector W8813 is general case for the following reasons: flonum W8767 is general case for the following reasons: flonum W8765 is general case for the following reasons: flonum W8519 is general case for the following reasons: flonum W2187 is general case for the following reasons: flonum W1421 is general case for the following reasons: flonum W1135 is general case for the following reasons: flonum W1033 is general case for the following reasons: flonum W33 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 1% - Expanding macros 4 - 2% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 1 - 0% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 24 - 10% - Performing flow analysis 0 - 0% - Enumerating call sites 1 - 0% - Determining which types and type sets are used 12 - 5% - Determining which call sites to split 0 - 0% - Computing call graph 3 - 1% - Determining which environments are called more than once 1 - 0% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 37 - 16% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 2 - 1% - Determining which environments are recursive 5 - 2% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 99 - 43% - Performing lightweight closure conversion 0 - 0% - Determining parents 2 - 1% - Determining which expressions need conversion to CPS 1 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 2 - 1% - Determining which environments have external continuation calls 3 - 1% - Determining blocked environments 0 - 0% - Determining allocations 5 - 2% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 1 - 1% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 9 - 4% - Generating code 10 - 5% - Removing unused declarations 1 - 0% - Removing unused labels 2 - 1% - Writing database 0 - 0% - Compiling C code 232.43user 0.62system 4:02.63elapsed 96%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33842major+427036minor)pagefaults 0swaps run em-functional 5.74user 0.44system 0:06.35elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (101major+18497minor)pagefaults 0swaps compile em-imperative Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 19041 expressions 0 internal symbol types 0 external symbol types 69 primitive procedure types 193 non-called native procedure types 445 called noop native procedure types 639 called non-noop native procedure types 1 foreign procedure type 2 continuation types 4 string types 11 structure types 36 headed vector types 1 nonheaded vector type 0 displaced vector types 21768 type sets 823 hunoz variables 1841 non-hunoz variables 642 noop environments 2018 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 19644 expressions 0 internal symbol types 0 external symbol types 69 primitive procedure types 199 non-called native procedure types 456 called noop native procedure types 675 called non-noop native procedure types 1 foreign procedure type 2 continuation types 4 string types 13 structure types 40 headed vector types 1 nonheaded vector type 0 displaced vector types 22474 type sets 839 hunoz variables 1968 non-hunoz variables 654 noop environments 2107 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 17 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 7401 expressions 0 internal symbol types 0 external symbol types 69 primitive procedure types 193 non-called native procedure types 456 called noop native procedure types 675 called non-noop native procedure types 1 foreign procedure type 2 continuation types 4 string types 13 structure types 40 headed vector types 1 nonheaded vector type 0 displaced vector types 9010 type sets 536 hunoz variables 1050 non-hunoz variables 0 noop environments 723 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 17 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: WRITE2[2003] reentrant has the following parameters: OBJ{2406} local PORT{2407} local has the following in-lined locals: NUMBER{2395} PORT{2396} MANTISSA{2400} EXPONENT{2401} MANTISSA{2404} EXPONENT{2405} OBJ{2422} I{2434} DISPLAY-MANTISSA-EXPONENT2[1965] has the following parameters: MANTISSA{2379} local EXPONENT{2380} local PORT{2381} local has the following in-lined locals: FLOAT-DIGIT{2382} DIGIT{2383} MANTISSA{2390} FLOAT-DIGIT{2391} DIGIT{2392} MANTISSA{2394} DISPLAY-EXACT-INTEGER2[1936] has the following parameters: NUMBER{2358} local PORT{2359} local has the following in-lined locals: I{2362} NUMBER{2363} I{2366} I{2372} NUMBER{2373} I{2376} DISPLAY-STRING2[1927] has the following parameters: STRING{2351} local PORT{2352} local has the following in-lined locals: N{2353} I{2356} LOOP[1361] reentrant has the following parameter: K{1955} local LOOP[1296] reentrant has the following parameter: K{1901} local MODULO[992] has the following parameters: N1{1543} local N2{1544} local has the following in-lined local: v{1545} REVERSE[833] has the following parameter: S{1401} local has the following in-lined locals: LIST{2752} LIST{2755} R{2756} CDR[679] has the following parameter: PAIR{1278} local M-STEP![483] has the following parameters: X{1139} local MODELS{1140} local Z{1141} local CLIP{1142} local has the following in-lined locals: N{808} I{811} v{812} N{814} N{817} C{818} N{831} V{832} I{836} M{853} N{854} INITIAL{855} A{871} N{874} B{875} D{876} I{881} J{885} I{889} INDEX{891} GREATEST{892} C{896} J{901} E{903} K{906} J{910} J{914} X{916} V{918} A{921} B{922} N{924} C{925} I{930} J{937} E{941} E{943} D{945} K{949} D{951} J{954} J{959} I{964} J{968} I{973} A{975} N{977} D{978} V{979} B{980} Z{981} IP{987} I{993} SM{995} TRESH{998} IP{1001} IR{1005} IQ{1007} G{1008} H{1009} T{1010} C{1011} H{1014} J{1024} THETA{1035} IP{1038} IP{1042} IR{1043} IQ{1044} I{1047} P{1049} K{1050} J{1056} P{1058} L{1062} J{1064} I{1066} J{1067} A{1068} V{1069} J{1070} L{1071} E{1072} K1{1075} E-K1{1077} A-K1{1078} K2{1081} S{1083} E-K2{1084} K{1088} KK{1143} J{1146} MODEL{1148} MU{1149} SIGMA{1150} S{1151} I{1161} SI{1163} K{1166} M{1168} I{1172} SI{1174} K1{1177} MU-K1{1179} SIGMA-K1{1180} K2{1183} M{1185} MU-K2{1186} I{1190} X{1538} X{2664} X{2665} X{2666} X{2667} X{2668} X{2669} X{2670} X{2671} X{2672} X{2673} X{2674} X{2675} OBJS{2677} PAIR{2679} PAIR{2687} A{2692} I{2693} J{2694} X{2695} A{2696} I{2697} J{2698} X{2699} A{2700} I{2701} J{2702} X{2703} A{2704} I{2705} J{2706} X{2707} A{2708} I{2709} J{2710} X{2711} A{2712} I{2713} J{2714} X{2715} A{2716} I{2717} J{2718} X{2719} A{2720} I{2721} J{2722} X{2723} A{2724} I{2725} J{2726} X{2727} A{2728} I{2729} J{2730} X{2731} A{2732} I{2733} J{2734} X{2735} A{2736} I{2737} J{2738} X{2739} A{2740} I{2741} J{2742} X{2743} A{2744} I{2745} J{2746} X{2747} A{2748} I{2749} J{2750} X{2751} N{2790} I{2793} v{2794} N{2796} N{2799} C{2800} E-STEP![418] has the following parameters: X{1090} local Z{1091} local MODELS{1092} local has the following in-lined locals: E1{819} E2{820} E-MAX{821} E-MIN{822} FACTOR{823} L{1094} I{1098} ZI{1100} S{1101} J{1106} J{1110} I{1114} ZI{1116} XI{1117} J{1120} MODEL{1122} LOG-PI{1123} MU{1124} SIGMA-INVERSE{1125} LOG-DETERMINANT-SIGMA{1126} T{1127} K1{1132} SIGMA-INVERSE-K1{1134} K2{1137} ROTATE[332] has the following parameters: A{1027} local I{1028} local J{1029} local K{1030} local L{1031} local has the following in-lined locals: A{862} I{863} J{864} X{865} H{1032} G{1033} A{2688} I{2689} J{2690} X{2691} MATRIX-ROW-SET![122] has the following parameters: A{868} local I{869} local V{870} local MATRIX-ROW-REF[121] has the following parameters: A{866} local I{867} local MATRIX-REF[119] has the following parameters: A{859} local I{860} local J{861} local MATRIX-COLUMNS[118] has the following parameter: A{858} local MATRIX-ROWS[117] has the following parameter: A{857} local MAKE-MATRIX[113] has the following parameters: M{850} local N{851} local has the following in-lined locals: N{2758} V{2759} I{2763} RANDOM:CHUNK[38] has the following parameter: V{786} local has the following in-lined locals: P{787} ANS{788} LOGICAL:ASH-4[25] has the following parameter: X{776} local LOGICAL:LOGXOR[20] reentrant has the following parameters: N1{774} local N2{775} local HEX-STRING->NUMBER[15] has region has the following parameter: S{769} local has the following in-lined locals: S{772} C{773} CHAR1{1628} CHAR2{1629} CHAR1{1633} CHAR2{1634} CHAR1{1637} CHAR2{1638} CHAR1{1642} CHAR2{1643} CHAR{1693} VOID[13] [inside top level 0] has the following in-lined locals: *RANDOM-STATE*{683} RANDOM:MASK{684} RANDOM:CHUNK-SIZE{685} *MOST-POSITIVE-FIXNUM*{692} I{766} L{777} TRIAL{778} RANDOM-STRINGS{779} NIBBLES{781} I{784} ILEN{793} S{794} SLOP{795} N{798} R{799} L{801} I{802} L{805} C{806} N{825} I{828} C{829} L{839} L{842} C{843} X{844} L{845} L{848} I{849} X{1192} Z{1193} MODELS{1194} CLIP{1195} EM-KICK-OFF-TOLERANCE{1196} EM-CONVERGENCE-TOLERANCE{1197} OLD-LOG-LIKELIHOOD{1200} STARTING?{1201} LOG-LIKELIHOOD{1202} v{1203} v{1205} EPSILON{1206} II{1207} JJ{1208} S{1210} ZI{1211} J{1216} SI{1218} J{1221} X{1224} CLIP{1225} EM-KICK-OFF-TOLERANCE{1226} EM-CONVERGENCE-TOLERANCE{1227} EMS-CONVERGENCE-TOLERANCE{1228} JJ{1231} OLD-Z{1232} OLD-MODELS{1233} OLD-LOG-LIKELIHOOD{1234} KK{1235} Z{1236} MODELS{1237} NEW-LOG-LIKELIHOOD{1239} X{1241} CLIP{1242} EM-KICK-OFF-TOLERANCE{1243} EM-CONVERGENCE-TOLERANCE{1244} EMS-CONVERGENCE-TOLERANCE{1245} Z-MODELS{1246} Z{1247} MODELS{1248} CLUSTERS{1250} J{1251} CLUSTER{1252} CLUSTER{1253} I{1254} ZI{1255} OBJ1{1258} OBJ2{1259} v{1260} v{1261} PAIR{1277} PAIR{1284} OBJS{1321} LIST{1396} LIST{1399} R{1400} X{1504} XS{1505} R{1509} STRING{1870} START{1871} END{1872} R{1873} K{1877} LIST1{2023} LIST1{2027} C{2028} OBJ{2649} OBJS{2676} PAIR{2678} PAIR{2680} PAIR{2681} PAIR{2682} PAIR{2683} PAIR{2684} PAIR{2685} PAIR{2686} N{2766} V{2767} I{2771} N{2774} V{2775} I{2779} N{2782} V{2783} I{2787} N{2802} I{2805} C{2806} The following non-trivial in-line native procedures will be generated: [clone LOOP[85] 2759] has region has the following parameters: I{2805} local C{2806} local [clone MAP-N[82] 2756] has the following parameter: N{2802} local [clone LOOP[75] 2754] has the following parameters: N{2799} local C{2800} local [clone SUM[72] 2751] has the following parameter: N{2796} local [clone [inside LOOP 70] 2749] has the following parameter: v{2794} local [clone LOOP[69] 2748] has the following parameter: I{2793} local [clone EVERY-N[66] 2745] has the following parameter: N{2790} local [clone LOOP[92] 2740] has the following parameter: I{2787} local [clone [inside MAP-N-VECTOR 88] 2736] has the following parameter: V{2783} local [clone MAP-N-VECTOR[87] 2735] has the following parameter: N{2782} local [clone LOOP[92] 2730] has the following parameter: I{2779} local [clone [inside MAP-N-VECTOR 88] 2726] has the following parameter: V{2775} local [clone MAP-N-VECTOR[87] 2725] has the following parameter: N{2774} local [clone LOOP[92] 2720] has the following parameter: I{2771} local [clone [inside MAP-N-VECTOR 88] 2716] has the following parameter: V{2767} local [clone MAP-N-VECTOR[87] 2715] has the following parameter: N{2766} local [clone LOOP[92] 2710] has the following parameter: I{2763} local [clone [inside MAP-N-VECTOR 88] 2706] has the following parameter: V{2759} local [clone MAP-N-VECTOR[87] 2705] has the following parameter: N{2758} local [clone LOOP[831] 2703] has the following parameters: LIST{2755} local R{2756} local [clone LIST-REVERSE[828] 2700] has the following parameter: LIST{2752} local [clone MATRIX-SET![120] 2699] has the following parameters: A{2748} local I{2749} local J{2750} local X{2751} local [clone MATRIX-SET![120] 2698] has the following parameters: A{2744} local I{2745} local J{2746} local X{2747} local [clone MATRIX-SET![120] 2697] has the following parameters: A{2740} local I{2741} local J{2742} local X{2743} local [clone MATRIX-SET![120] 2696] has the following parameters: A{2736} local I{2737} local J{2738} local X{2739} local [clone MATRIX-SET![120] 2695] has the following parameters: A{2732} local I{2733} local J{2734} local X{2735} local [clone MATRIX-SET![120] 2694] has the following parameters: A{2728} local I{2729} local J{2730} local X{2731} local [clone MATRIX-SET![120] 2693] has the following parameters: A{2724} local I{2725} local J{2726} local X{2727} local [clone MATRIX-SET![120] 2692] has the following parameters: A{2720} local I{2721} local J{2722} local X{2723} local [clone MATRIX-SET![120] 2691] has the following parameters: A{2716} local I{2717} local J{2718} local X{2719} local [clone MATRIX-SET![120] 2690] has the following parameters: A{2712} local I{2713} local J{2714} local X{2715} local [clone MATRIX-SET![120] 2689] has the following parameters: A{2708} local I{2709} local J{2710} local X{2711} local [clone MATRIX-SET![120] 2688] has the following parameters: A{2704} local I{2705} local J{2706} local X{2707} local [clone MATRIX-SET![120] 2687] has the following parameters: A{2700} local I{2701} local J{2702} local X{2703} local [clone MATRIX-SET![120] 2686] has the following parameters: A{2696} local I{2697} local J{2698} local X{2699} local [clone MATRIX-SET![120] 2685] has the following parameters: A{2692} local I{2693} local J{2694} local X{2695} local [clone MATRIX-SET![120] 2684] has the following parameters: A{2688} local I{2689} local J{2690} local X{2691} local [clone CAR[678] 2683] has the following parameter: PAIR{2687} local [clone CAR[678] 2682] has the following parameter: PAIR{2686} local [clone CAR[678] 2681] has the following parameter: PAIR{2685} local [clone CAR[678] 2680] has the following parameter: PAIR{2684} local [clone CAR[678] 2679] has the following parameter: PAIR{2683} local [clone CAR[678] 2678] has the following parameter: PAIR{2682} local [clone CAR[678] 2677] has the following parameter: PAIR{2681} local [clone CAR[678] 2676] has the following parameter: PAIR{2680} local [clone CADR[683] 2675] has the following parameter: PAIR{2679} local [clone CADR[683] 2674] has the following parameter: PAIR{2678} local [clone LIST[720] 2673] has the following parameter: OBJS{2677} local [clone LIST[720] 2672] has the following parameter: OBJS{2676} local [clone ABS[989] 2671] has the following parameter: X{2675} local [clone ABS[989] 2670] has the following parameter: X{2674} local [clone ABS[989] 2669] has the following parameter: X{2673} local [clone ABS[989] 2668] has the following parameter: X{2672} local [clone ABS[989] 2667] has the following parameter: X{2671} local [clone ABS[989] 2666] has the following parameter: X{2670} local [clone ABS[989] 2665] has the following parameter: X{2669} local [clone ABS[989] 2664] has the following parameter: X{2668} local [clone ABS[989] 2663] has the following parameter: X{2667} local [clone ABS[989] 2662] has the following parameter: X{2666} local [clone ABS[989] 2661] has the following parameter: X{2665} local [clone ABS[989] 2660] has the following parameter: X{2664} local WRITE[2410] has the following parameter: OBJ{2649} local [inside LOOP 2051] reentrant [inside LOOP 2050] reentrant LOOP[2049] reentrant has the following parameter: I{2434} local [inside WRITE2 2046] reentrant [inside WRITE2 2045] reentrant [inside WRITE2 2043] reentrant [inside LOOP 2040] reentrant [inside LOOP 2039] reentrant [inside LOOP 2038] reentrant [inside LOOP 2036] reentrant LOOP[2035] reentrant has the following parameter: OBJ{2422} local [inside WRITE2 2032] reentrant [inside WRITE2 2031] reentrant LOOP[2000] has the following parameters: MANTISSA{2404} local EXPONENT{2405} local LOOP[1995] has the following parameters: MANTISSA{2400} local EXPONENT{2401} local DISPLAY-INEXACT-REAL2[1986] has the following parameters: NUMBER{2395} local PORT{2396} local [inside LOOP 1983] has the following parameter: MANTISSA{2394} local [inside LOOP 1980] has the following parameter: DIGIT{2392} local [inside LOOP 1979] has the following parameter: FLOAT-DIGIT{2391} local LOOP[1978] has the following parameter: MANTISSA{2390} local [inside DISPLAY-MANTISSA-EXPONENT2 1967] has the following parameter: DIGIT{2383} local [inside DISPLAY-MANTISSA-EXPONENT2 1966] has the following parameter: FLOAT-DIGIT{2382} local LOOP[1957] has the following parameter: I{2376} local LOOP[1954] has the following parameters: I{2372} local NUMBER{2373} local LOOP[1943] has the following parameter: I{2366} local LOOP[1940] has the following parameters: I{2362} local NUMBER{2363} local LOOP[1931] has the following parameter: I{2356} local [inside DISPLAY-STRING2 1928] has the following parameter: N{2353} local [inside top level 1923] has the following parameters: THE-CURRENT-OUTPUT-PORT{2312} global BUFFER{2314} global LOOP[1448] has region has the following parameters: LIST1{2027} local C{2028} local MAP[1444] has the following parameter: LIST1{2023} local VECTOR->LIST[1358] has the following parameter: VECTOR{1952} global [inside STRING->LIST 1293] has the following parameter: N{1898} global STRING->LIST[1292] has the following parameter: STRING{1897} global LOOP[1264] has the following parameter: K{1877} local [inside SUBSTRING 1260] has the following parameter: R{1873} local SUBSTRING[1259] has the following parameters: STRING{1870} local START{1871} local END{1872} local CHAR-NUMERIC?[1118] has the following parameter: CHAR{1693} local LOOP?[1083] has the following parameters: CHAR1{1642} local CHAR2{1643} local CHAR>=?[1080] has the following parameters: CHAR1{1637} local CHAR2{1638} local LOOP?[1077] has the following parameters: CHAR1{1633} local CHAR2{1634} local CHAR<=?[1074] has the following parameters: CHAR1{1628} local CHAR2{1629} local [inside MODULO 993] has the following parameter: v{1545} local ABS[989] has the following parameter: X{1538} local LOOP[962] has the following parameter: R{1509} local MAX[959] has the following parameters: X{1504} local XS{1505} local LOOP[831] has the following parameters: LIST{1399} local R{1400} local LIST-REVERSE[828] has the following parameter: LIST{1396} local LIST[720] has the following parameter: OBJS{1321} local CADR[683] has the following parameter: PAIR{1284} local CAR[678] has the following parameter: PAIR{1277} local [inside EQV? 664] has the following parameter: v{1261} local [inside EQV? 663] has the following parameter: v{1260} local EQV?[662] has the following parameters: OBJ1{1258} local OBJ2{1259} local [inside EM-CLUSTERER 602] has the following parameter: ZI{1255} local [inside EM-CLUSTERER 601] has region has the following parameter: I{1254} local [inside EM-CLUSTERER 600] has the following parameter: CLUSTER{1253} local [inside EM-CLUSTERER 599] has the following parameter: CLUSTER{1252} local [inside EM-CLUSTERER 598] has the following parameter: J{1251} local [inside EM-CLUSTERER 597] has the following parameter: CLUSTERS{1250} local [inside EM-CLUSTERER 594] has the following parameter: MODELS{1248} local [inside EM-CLUSTERER 593] has the following parameter: Z{1247} local [inside EM-CLUSTERER 592] has the following parameter: Z-MODELS{1246} local EM-CLUSTERER[591] has region has the following parameters: X{1241} local CLIP{1242} local EM-KICK-OFF-TOLERANCE{1243} local EM-CONVERGENCE-TOLERANCE{1244} local EMS-CONVERGENCE-TOLERANCE{1245} local [inside LOOP 588] has the following parameter: NEW-LOG-LIKELIHOOD{1239} local [inside LOOP 585] has the following parameter: MODELS{1237} local [inside LOOP 584] has the following parameter: Z{1236} local [inside LOOP 583] has the following parameter: KK{1235} local LOOP[582] has the following parameters: JJ{1231} local OLD-Z{1232} local OLD-MODELS{1233} local OLD-LOG-LIKELIHOOD{1234} local EMS[579] has the following parameters: X{1224} local CLIP{1225} local EM-KICK-OFF-TOLERANCE{1226} local EM-CONVERGENCE-TOLERANCE{1227} local EMS-CONVERGENCE-TOLERANCE{1228} local loop[573] has the following parameter: J{1221} local [inside INITIAL-Z 570] has the following parameter: SI{1218} local loop[565] has the following parameter: J{1216} local [inside INITIAL-Z 561] has the following parameters: S{1210} local ZI{1211} local INITIAL-Z[559] has the following parameters: II{1207} local JJ{1208} local NOISE[558] has the following parameter: EPSILON{1206} local [inside LOOP 555] has the following parameter: v{1205} local [inside LOOP 552] has the following parameter: v{1203} local [inside LOOP 551] has the following parameter: LOG-LIKELIHOOD{1202} local LOOP[550] has the following parameters: OLD-LOG-LIKELIHOOD{1200} local STARTING?{1201} local EM![547] has the following parameters: X{1192} local Z{1193} local MODELS{1194} local CLIP{1195} local EM-KICK-OFF-TOLERANCE{1196} local EM-CONVERGENCE-TOLERANCE{1197} local loop[539] has the following parameter: I{1190} local [inside loop 535] has the following parameters: M{1185} local MU-K2{1186} local loop[531] has the following parameter: K2{1183} local [inside loop 528] has the following parameters: MU-K1{1179} local SIGMA-K1{1180} local loop[524] has the following parameter: K1{1177} local [inside loop 521] has the following parameter: SI{1174} local loop[515] has the following parameter: I{1172} local [inside loop 511] has the following parameter: M{1168} local loop[507] has the following parameter: K{1166} local [inside loop 504] has the following parameter: SI{1163} local loop[499] has the following parameter: I{1161} local [inside loop 494] has the following parameter: S{1151} local [inside loop 493] has the following parameter: SIGMA{1150} local [inside loop 492] has the following parameter: MU{1149} local [inside loop 491] has the following parameter: MODEL{1148} local loop[487] has the following parameter: J{1146} local [inside M-STEP! 484] has the following parameter: KK{1143} local loop[475] has the following parameter: K2{1137} local [inside loop 472] has the following parameter: SIGMA-INVERSE-K1{1134} local loop[468] has the following parameter: K1{1132} local [inside loop 463] has the following parameter: T{1127} local [inside loop 462] has the following parameter: LOG-DETERMINANT-SIGMA{1126} local [inside loop 461] has the following parameter: SIGMA-INVERSE{1125} local [inside loop 460] has the following parameter: MU{1124} local [inside loop 459] has the following parameter: LOG-PI{1123} local [inside loop 458] has the following parameter: MODEL{1122} local loop[454] has the following parameter: J{1120} local [inside loop 451] has the following parameters: ZI{1116} local XI{1117} local loop[447] has the following parameter: I{1114} local loop[439] has the following parameter: J{1110} local loop[432] has the following parameter: J{1106} local [inside loop 428] has the following parameters: ZI{1100} local S{1101} local loop[424] has the following parameter: I{1098} local [inside E-STEP! 420] has the following parameter: L{1094} local loop[411] has the following parameter: K{1088} local [inside loop 407] has the following parameters: S{1083} local E-K2{1084} local loop[403] has the following parameter: K2{1081} local [inside loop 400] has the following parameters: E-K1{1077} local A-K1{1078} local loop[396] has the following parameter: K1{1075} local [inside CLIP-EIGENVALUES! 392] has the following parameter: E{1072} local [inside CLIP-EIGENVALUES! 391] has the following parameter: L{1071} local [inside CLIP-EIGENVALUES! 390] has the following parameter: J{1070} local CLIP-EIGENVALUES![389] has region has the following parameters: A{1068} local V{1069} local [inside JACOBI! 387] has the following parameter: J{1067} local [inside JACOBI! 386] has the following parameter: I{1066} local [inside loop 379] has the following parameter: J{1064} local loop[375] has the following parameter: L{1062} local [inside loop 369] has the following parameter: P{1058} local loop[365] has the following parameter: J{1056} local [inside loop 359] has the following parameters: P{1049} local K{1050} local loop[355] has the following parameter: I{1047} local [inside LOOP 350] has the following parameter: IQ{1044} local [inside LOOP 349] has the following parameter: IR{1043} local [inside LOOP 348] has the following parameter: IP{1042} local loop[342] has the following parameter: IP{1038} local [inside loop 336] has the following parameter: THETA{1035} local [inside ROTATE 333] has the following parameters: H{1032} local G{1033} local loop[323] has the following parameter: J{1024} local [inside loop 317] has the following parameter: H{1014} local [inside loop 316] has the following parameter: TAU{1013} global [inside loop 315] has the following parameter: S{1012} global [inside loop 314] has the following parameter: C{1011} local [inside loop 313] has the following parameter: T{1010} local [inside loop 312] has the following parameter: H{1009} local [inside loop 308] has the following parameter: G{1008} local [inside loop 307] has the following parameter: IQ{1007} local loop[303] has the following parameter: IR{1005} local loop[297] has the following parameter: IP{1001} local [inside LOOP 294] has the following parameter: TRESH{998} local [inside LOOP 291] has the following parameter: SM{995} local LOOP[289] has the following parameter: I{993} local loop[282] has the following parameter: IP{987} local [inside JACOBI! 277] has the following parameter: Z{981} local [inside JACOBI! 276] has region has the following parameter: B{980} local [inside JACOBI! 275] has region has the following parameter: V{979} local [inside JACOBI! 274] has the following parameter: D{978} local [inside JACOBI! 273] has the following parameter: N{977} local JACOBI![271] has the following parameter: A{975} local loop[265] has the following parameter: I{973} local loop[257] has the following parameter: J{968} local loop[251] has the following parameter: I{964} local loop[243] has the following parameter: J{959} local loop[234] has the following parameter: J{954} local [inside loop 231] has the following parameter: D{951} local loop[227] has the following parameter: K{949} local [inside loop 223] has the following parameter: D{945} local [inside loop 218] has the following parameter: E{943} local [inside loop 216] has the following parameter: E{941} local loop[210] has the following parameter: J{937} local loop[202] has the following parameter: I{930} local [inside INVERT-MATRIX! 197] has the following parameter: C{925} local [inside INVERT-MATRIX! 196] has the following parameter: N{924} local INVERT-MATRIX![194] has the following parameters: A{921} local B{922} local [inside loop 189] has the following parameter: V{918} local [inside loop 183] has the following parameter: X{916} local loop[179] has the following parameter: J{914} local loop[172] has the following parameter: J{910} local loop[164] has the following parameter: K{906} local [inside loop 161] has the following parameter: E{903} local loop[157] has the following parameter: J{901} local [inside loop 153] has the following parameter: C{896} local [inside loop 151] has the following parameters: INDEX{891} local GREATEST{892} local loop[147] has the following parameter: I{889} local loop[139] has the following parameter: J{885} local loop[133] has the following parameter: I{881} local [inside DETERMINANT 128] has the following parameter: D{876} local [inside DETERMINANT 127] has the following parameter: B{875} local [inside DETERMINANT 126] has the following parameter: N{874} local DETERMINANT[123] has the following parameter: A{871} local MATRIX-SET![120] has the following parameters: A{862} local I{863} local J{864} local X{865} local MAKE-MATRIX-INITIAL[115] has the following parameters: M{853} local N{854} local INITIAL{855} local LOOP[108] has the following parameters: L{848} local I{849} local POSITIONV[105] has the following parameters: X{844} local L{845} local LOOP[100] has region has the following parameters: L{842} local C{843} local REMOVE-IF-NOT[97] has the following parameter: L{839} local LOOP[92] has the following parameter: I{836} local [inside MAP-N-VECTOR 88] has the following parameter: V{832} local MAP-N-VECTOR[87] has the following parameter: N{831} local LOOP[85] has region has the following parameters: I{828} local C{829} local MAP-N[82] has the following parameter: N{825} local [inside ADD-EXP 80] has the following parameter: FACTOR{823} local [inside ADD-EXP 79] has the following parameter: E-MIN{822} local [inside ADD-EXP 78] has the following parameter: E-MAX{821} local ADD-EXP[77] has the following parameters: E1{819} local E2{820} local LOOP[75] has the following parameters: N{817} local C{818} local SUM[72] has the following parameter: N{814} local [inside LOOP 70] has the following parameter: v{812} local LOOP[69] has the following parameter: I{811} local EVERY-N[66] has the following parameter: N{808} local LOOP[64] has region has the following parameters: L{805} local C{806} local REDUCE[58] has the following parameters: L{801} local I{802} local LOOP[51] has the following parameters: N{798} local R{799} local [inside loop 48] has the following parameter: SLOP{795} local loop[46] has the following parameters: ILEN{793} local S{794} local [inside RANDOM:CHUNK 40] has the following parameter: ANS{788} local [inside RANDOM:CHUNK 39] has the following parameter: P{787} local loop[33] has region has the following parameter: I{784} local [inside top level 30] has the following parameter: NIBBLES{781} local [inside top level 28] has the following parameter: RANDOM-STRINGS{779} local [inside RANDOM:SIZE-INT 27] has the following parameter: TRIAL{778} local RANDOM:SIZE-INT[26] has region has the following parameter: L{777} local [inside LOGICAL:LOGXOR 24] reentrant LOOP[18] has the following parameters: S{772} local C{773} local loop[8] has region has the following parameter: I{766} local [inside top level 4] has the following parameters: MINUS-INFINITY{679} global LOG-MATH-PRECISION{680} global *RANDOM-STATE*{683} local RANDOM:MASK{684} local RANDOM:CHUNK-SIZE{685} local RANDOM:SIZE{687} global RANDOM:TAP{688} global LOGICAL:BOOLE-XOR{689} global *MOST-POSITIVE-FIXNUM*{692} local The following expression, em-imperative-stalin.sc:179:6319, allocates on [clone LOOP[85] 2759]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C) The following expression, em-imperative-stalin.sc:182:6388, allocates on EM-CLUSTERER[591]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-stalin.sc:182:6388, allocates on EM-CLUSTERER[591]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-stalin.sc:182:6388, allocates on EM-CLUSTERER[591]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-stalin.sc:182:6388, allocates on EM-CLUSTERER[591]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20) The following expression allocates on LOOP[1448]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (PROC (# LIST1)) C) The following expression allocates on [inside EM-CLUSTERER 601]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR-REF) VECTOR K) (LOOP (# K 1))) The following expression allocates on HEX-STRING->NUMBER[15]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRING-REF) STRING K) (LOOP (# K 1))) The following expression allocates on loop[33]: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE -) END START)) The following expression allocates on loop[8]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST) R) The following expression, em-imperative-stalin.sc:537:18609, allocates on loop[8]: (LIST I (POSITIONV (REDUCE MAX ZI MINUS-INFINITY) ZI)) The following expression, em-imperative-stalin.sc:510:17764, allocates on EM-CLUSTERER[591]: (MAKE-MODEL 0. ((PRIMITIVE-PROCEDURE MAKE-VECTOR) KK) (MAKE-MATRIX KK KK) 0. (MAKE-MATRIX KK KK) 0.) The following expression, em-imperative-stalin.sc:511:17790, allocates on EM-CLUSTERER[591]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) KK) The following expression, em-imperative-stalin.sc:524:18181, allocates on EM-CLUSTERER[591]: (LIST OLD-Z OLD-MODELS) The following expression, em-imperative-stalin.sc:299:10238, allocates on CLIP-EIGENVALUES![389]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-stalin.sc:301:10294, allocates on [inside JACOBI! 275]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-stalin.sc:302:10315, allocates on [inside JACOBI! 276]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N 0.) The following expression, em-imperative-stalin.sc:375:12950, allocates on CLIP-EIGENVALUES![389]: (LIST D V) The following expression, em-imperative-stalin.sc:205:6993, allocates on CLIP-EIGENVALUES![389]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N INITIAL) The following expression, em-imperative-stalin.sc:202:6902, allocates on EM-CLUSTERER[591]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-stalin.sc:193:6667, allocates on LOOP[100]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (FIRST L) C) The following expression, em-imperative-stalin.sc:182:6388, allocates on CLIP-EIGENVALUES![389]: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, em-imperative-stalin.sc:179:6319, allocates on LOOP[85]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) (F I) C) The following expression, em-imperative-stalin.sc:156:5704, allocates on LOOP[64]: (F C (FIRST L)) The following expression, em-imperative-stalin.sc:108:4241, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) RANDOM:SIZE 1) 0) The following expression, em-imperative-stalin.sc:91:3418, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRING) ((PRIMITIVE-PROCEDURE QUOTIENT) RANDOM:CHUNK-SIZE 4) #\f) The following expression, em-imperative-stalin.sc:83:3177, allocates on RANDOM:SIZE-INT[26]: ((PRIMITIVE-PROCEDURE MAKE-STRING) L #\f) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W19740 is general case for the following reasons: nondegenerate nonheaded vector W16779 is general case for the following reasons: flonum W6611 is general case for the following reasons: flonum W6565 is general case for the following reasons: flonum W6563 is general case for the following reasons: flonum W6317 is general case for the following reasons: flonum W282 is general case for the following reasons: flonum W33 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code em-imperative-stalin.c: In function `f0': em-imperative-stalin.c:5313: warning: `a1232' might be used uninitialized in this function em-imperative-stalin.c:5314: warning: `a1233' might be used uninitialized in this function Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 2% - Expanding macros 4 - 3% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 1 - 1% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 16 - 13% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 0% - Determining which types and type sets are used 18 - 15% - Determining which call sites to split 0 - 0% - Computing call graph 1 - 1% - Determining which environments are called more than once 1 - 0% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 10 - 8% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 1 - 1% - Determining which environments are recursive 3 - 2% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 50 - 41% - Performing lightweight closure conversion 0 - 0% - Determining parents 1 - 1% - Determining which expressions need conversion to CPS 1 - 1% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 1 - 0% - Determining which environments have external continuation calls 1 - 1% - Determining blocked environments 0 - 0% - Determining allocations 2 - 1% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 1 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 4 - 3% - Generating code 3 - 3% - Removing unused declarations 1 - 1% - Removing unused labels 1 - 1% - Writing database 0 - 0% - Compiling C code 124.83user 0.52system 2:12.77elapsed 94%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33467major+222313minor)pagefaults 0swaps run em-imperative 1.82user 0.04system 0:01.97elapsed 94%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (96major+1383minor)pagefaults 0swaps compile nfm Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 17496 expressions 18 internal symbol types 1 external symbol type 76 primitive procedure types 185 non-called native procedure types 438 called noop native procedure types 809 called non-noop native procedure types 1 foreign procedure type 3 continuation types 4 string types 142 structure types 16 headed vector types 1 nonheaded vector type 0 displaced vector types 20235 type sets 764 hunoz variables 1668 non-hunoz variables 591 noop environments 1877 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 7 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 29680 expressions 18 internal symbol types 1 external symbol type 76 primitive procedure types 189 non-called native procedure types 645 called noop native procedure types 1762 called non-noop native procedure types 1 foreign procedure type 3 continuation types 4 string types 146 structure types 16 headed vector types 1 nonheaded vector type 0 displaced vector types 34114 type sets 971 hunoz variables 3510 non-hunoz variables 798 noop environments 3372 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 7 Maximal clone rate is 108 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 17375 expressions 18 internal symbol types 1 external symbol type 76 primitive procedure types 185 non-called native procedure types 645 called noop native procedure types 1762 called non-noop native procedure types 1 foreign procedure type 3 continuation types 4 string types 146 structure types 16 headed vector types 1 nonheaded vector type 0 displaced vector types 20784 type sets 716 hunoz variables 2740 non-hunoz variables 0 noop environments 2124 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 7 Maximal clone rate is 108 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: WRITE2[1811] has the following parameters: OBJ{2174} local PORT{2175} local has the following in-lined locals: STRING{2119} PORT{2120} N{2121} I{2124} NUMBER{2126} PORT{2127} I{2130} NUMBER{2131} I{2134} I{2140} NUMBER{2141} I{2144} LOOKUP-CHARACTER-NAME[1691] has the following parameter: S{2064} local has the following in-lined locals: CHAR1{1414} CHAR2{1415} CHAR1{1419} CHAR2{1420} NAMES{2067} S{2071} NAME{2072} v{2073} CHAR{3688} CHAR{3689} READ-SYMBOL[1685] has region has the following parameter: S{2061} local has the following in-lined locals: C{2062} &REST{2458} &REST{2516} LIST{3617} LIST{3620} R{3621} LIST{3622} LIST{3625} R{3626} CHAR{3690} C{3716} v{3717} v{3718} v{3719} v{3720} CHAR{3774} CHAR1{3775} CHAR2{3776} CHAR1{3780} CHAR2{3781} CHAR1{3784} CHAR2{3785} CHAR1{3789} CHAR2{3790} CHAR1{3793} CHAR2{3794} CHAR1{3798} CHAR2{3799} CHAR1{3802} CHAR2{3803} CHAR1{3807} CHAR2{3808} CHAR1{3811} CHAR2{3812} CHAR1{3816} CHAR2{3817} CHAR-INITIAL?[1665] has the following parameter: C{2041} local has the following in-lined locals: v{2042} v{2043} v{2044} v{2045} v{2046} v{2047} v{2048} v{2049} v{2050} v{2051} v{2052} v{2053} v{2054} v{2055} CHAR1{3382} CHAR2{3383} CHAR1{3387} CHAR2{3388} CHAR1{3391} CHAR2{3392} CHAR1{3396} CHAR2{3397} CHAR1{3400} CHAR2{3401} CHAR1{3405} CHAR2{3406} CHAR1{3409} CHAR2{3410} CHAR1{3414} CHAR2{3415} CHAR1{3418} CHAR2{3419} CHAR1{3423} CHAR2{3424} CHAR1{3427} CHAR2{3428} CHAR1{3432} CHAR2{3433} CHAR1{3436} CHAR2{3437} CHAR1{3441} CHAR2{3442} CHAR1{3445} CHAR2{3446} CHAR1{3450} CHAR2{3451} CHAR1{3454} CHAR2{3455} CHAR1{3459} CHAR2{3460} CHAR1{3463} CHAR2{3464} CHAR1{3468} CHAR2{3469} CHAR1{3472} CHAR2{3473} CHAR1{3477} CHAR2{3478} CHAR1{3481} CHAR2{3482} CHAR1{3486} CHAR2{3487} CHAR1{3490} CHAR2{3491} CHAR1{3495} CHAR2{3496} CHAR1{3499} CHAR2{3500} CHAR1{3504} CHAR2{3505} CHAR{3694} v{3695} CHAR1{3738} CHAR2{3739} CHAR1{3743} CHAR2{3744} CHAR1{3747} CHAR2{3748} CHAR1{3752} CHAR2{3753} CHAR1{3756} CHAR2{3757} CHAR1{3761} CHAR2{3762} CHAR1{3765} CHAR2{3766} CHAR1{3770} CHAR2{3771} READ-NUMBER[1631] has region has the following parameter: N{2019} local has the following in-lined locals: CHAR{1461} C1{2020} v{2023} v{2024} v{2025} v{2026} v{2027} v{2028} v{2029} v{2030} v{2031} C2{2033} C3{2035} C3{2038} &REST{2459} &REST{2465} &REST{2466} &REST{2467} &REST{2468} &REST{2469} &REST{2517} CHAR1{2635} CHAR2{2636} CHAR1{2640} CHAR2{2641} CHAR1{2752} CHAR2{2753} CHAR1{2757} CHAR2{2758} CHAR1{2779} CHAR2{2780} CHAR1{2784} CHAR2{2785} CHAR1{2788} CHAR2{2789} CHAR1{2793} CHAR2{2794} CHAR1{3283} CHAR2{3284} CHAR1{3288} CHAR2{3289} CHAR1{3292} CHAR2{3293} CHAR1{3297} CHAR2{3298} CHAR1{3301} CHAR2{3302} CHAR1{3306} CHAR2{3307} CHAR1{3310} CHAR2{3311} CHAR1{3315} CHAR2{3316} CHAR1{3319} CHAR2{3320} CHAR1{3324} CHAR2{3325} CHAR1{3328} CHAR2{3329} CHAR1{3333} CHAR2{3334} CHAR1{3337} CHAR2{3338} CHAR1{3342} CHAR2{3343} CHAR1{3346} CHAR2{3347} CHAR1{3351} CHAR2{3352} CHAR1{3355} CHAR2{3356} CHAR1{3360} CHAR2{3361} CHAR1{3364} CHAR2{3365} CHAR1{3369} CHAR2{3370} CHAR1{3373} CHAR2{3374} CHAR1{3378} CHAR2{3379} CHAR{3627} CHAR{3628} CHAR{3650} CHAR1{3829} CHAR2{3830} CHAR1{3834} CHAR2{3835} CHAR1{3838} CHAR2{3839} CHAR1{3843} CHAR2{3844} CHAR1{3847} CHAR2{3848} CHAR1{3852} CHAR2{3853} CHAR1{3856} CHAR2{3857} CHAR1{3861} CHAR2{3862} CHAR1{3883} CHAR2{3884} CHAR1{3888} CHAR2{3889} CHAR1{3964} CHAR2{3965} CHAR1{3969} CHAR2{3970} READ-INEXACT-NUMBER[1599] has region has the following parameters: N{1997} local M{1998} local has the following in-lined locals: C1{1999} v{2001} v{2002} v{2003} v{2004} v{2005} v{2006} v{2007} v{2008} v{2009} C2{2011} C3{2013} C3{2016} &REST{2454} &REST{2497} &REST{2498} &REST{2500} &REST{2501} &REST{2502} CHAR1{2959} CHAR2{2960} CHAR1{2964} CHAR2{2965} CHAR1{2968} CHAR2{2969} CHAR1{2973} CHAR2{2974} CHAR1{2977} CHAR2{2978} CHAR1{2982} CHAR2{2983} CHAR1{2986} CHAR2{2987} CHAR1{2991} CHAR2{2992} CHAR1{2995} CHAR2{2996} CHAR1{3000} CHAR2{3001} CHAR1{3004} CHAR2{3005} CHAR1{3009} CHAR2{3010} CHAR1{3013} CHAR2{3014} CHAR1{3018} CHAR2{3019} CHAR1{3022} CHAR2{3023} CHAR1{3027} CHAR2{3028} CHAR1{3031} CHAR2{3032} CHAR1{3036} CHAR2{3037} CHAR1{3040} CHAR2{3041} CHAR1{3045} CHAR2{3046} CHAR1{3049} CHAR2{3050} CHAR1{3054} CHAR2{3055} CHAR1{3058} CHAR2{3059} CHAR1{3063} CHAR2{3064} CHAR{3638} CHAR{3640} CHAR{3641} CHAR{3642} CHAR1{3892} CHAR2{3893} CHAR1{3897} CHAR2{3898} CHAR1{3901} CHAR2{3902} CHAR1{3906} CHAR2{3907} CHAR1{3910} CHAR2{3911} CHAR1{3915} CHAR2{3916} CHAR1{3919} CHAR2{3920} CHAR1{3924} CHAR2{3925} CHAR1{3928} CHAR2{3929} CHAR1{3933} CHAR2{3934} CHAR1{3937} CHAR2{3938} CHAR1{3942} CHAR2{3943} CHAR1{3946} CHAR2{3947} CHAR1{3951} CHAR2{3952} CHAR1{3955} CHAR2{3956} CHAR1{3960} CHAR2{3961} READ-EXACT-HEXADECIMAL-INTEGER[1589] has region has the following parameter: N{1992} local has the following in-lined locals: C{1993} &REST{2455} &REST{2506} &REST{2507} &REST{2508} CHAR1{2554} CHAR2{2555} CHAR1{2559} CHAR2{2560} CHAR1{2563} CHAR2{2564} CHAR1{2568} CHAR2{2569} CHAR1{2698} CHAR2{2699} CHAR1{2703} CHAR2{2704} CHAR1{2707} CHAR2{2708} CHAR1{2712} CHAR2{2713} CHAR{3646} CHAR1{4319} CHAR2{4320} CHAR1{4324} CHAR2{4325} CHAR1{4328} CHAR2{4329} CHAR1{4333} CHAR2{4334} READ-EXACT-DECIMAL-INTEGER[1583] has region has the following parameter: N{1989} local has the following in-lined locals: C{1990} &REST{2453} &REST{2499} CHAR{3639} CHAR1{3865} CHAR2{3866} CHAR1{3870} CHAR2{3871} CHAR1{3874} CHAR2{3875} CHAR1{3879} CHAR2{3880} READ-EXACT-OCTAL-INTEGER[1577] has region has the following parameter: N{1986} local has the following in-lined locals: CHAR1{1405} CHAR2{1406} CHAR1{1410} CHAR2{1411} C{1987} &REST{2452} &REST{2490} CHAR1{2644} CHAR2{2645} CHAR1{2649} CHAR2{2650} READ-EXACT-BINARY-INTEGER[1569] has region has the following parameter: N{1982} local has the following in-lined locals: C{1983} &REST{2451} &REST{2485} &REST{2486} CHAR1{2851} CHAR2{2852} CHAR1{2856} CHAR2{2857} CHAR1{2860} CHAR2{2861} CHAR1{2865} CHAR2{2866} READ[1336] reentrant has region has the following parameter: STATE{1864} local has the following in-lined locals: OBJS{1089} LIST{1164} LIST{1167} R{1168} CHAR1{1378} CHAR2{1379} CHAR1{1383} CHAR2{1384} CHAR1{1387} CHAR2{1388} CHAR1{1392} CHAR2{1393} CHAR1{1396} CHAR2{1397} CHAR1{1401} CHAR2{1402} CHAR{1459} v{1460} CHAR{1462} C{1463} v{1464} v{1465} v{1466} v{1467} CHAR{1472} LIST{1724} R{1725} K{1729} C1{1887} C2{1892} S{1897} E{1898} E1{1900} S{1904} C{1905} C2{1906} v{1908} v{1909} v{1910} C3{1911} C4{1913} C4{1915} v{1917} C3{1918} C4{1920} v{1923} C4{1924} v{1927} v{1928} C3{1929} C4{1931} C5{1933} C4{1936} C5{1938} C4{1941} v{1944} C3{1945} C4{1947} C4{1949} S{1953} E{1954} C3{1955} S{1959} C{1960} C1{1962} C2{1964} C3{1967} C2{1971} C3{1974} C2{1978} C{2056} v{2057} v{2058} v{2059} v{2060} S{2074} C{2075} &REST{2415} OBJS{2432} OBJS{2433} OBJS{2434} OBJS{2435} OBJS{2436} OBJS{2437} OBJS{2438} OBJS{2439} OBJS{2440} OBJS{2441} &REST{2447} &REST{2448} &REST{2449} &REST{2450} &REST{2456} &REST{2457} &REST{2470} &REST{2471} &REST{2472} &REST{2473} &REST{2474} &REST{2475} &REST{2476} &REST{2477} &REST{2478} &REST{2479} &REST{2480} &REST{2481} &REST{2482} &REST{2483} &REST{2484} &REST{2487} &REST{2488} &REST{2489} &REST{2491} &REST{2492} &REST{2493} &REST{2494} &REST{2495} &REST{2496} &REST{2503} &REST{2504} &REST{2505} &REST{2509} &REST{2510} &REST{2511} &REST{2512} &REST{2513} &REST{2514} &REST{2515} &REST{2518} CHAR1{2527} CHAR2{2528} CHAR1{2532} CHAR2{2533} CHAR1{2536} CHAR2{2537} CHAR1{2541} CHAR2{2542} CHAR1{2545} CHAR2{2546} CHAR1{2550} CHAR2{2551} CHAR1{2572} CHAR2{2573} CHAR1{2577} CHAR2{2578} CHAR1{2581} CHAR2{2582} CHAR1{2586} CHAR2{2587} CHAR1{2590} CHAR2{2591} CHAR1{2595} CHAR2{2596} CHAR1{2599} CHAR2{2600} CHAR1{2604} CHAR2{2605} CHAR1{2617} CHAR2{2618} CHAR1{2622} CHAR2{2623} CHAR1{2626} CHAR2{2627} CHAR1{2631} CHAR2{2632} CHAR1{2653} CHAR2{2654} CHAR1{2658} CHAR2{2659} CHAR1{2662} CHAR2{2663} CHAR1{2667} CHAR2{2668} CHAR1{2671} CHAR2{2672} CHAR1{2676} CHAR2{2677} CHAR1{2680} CHAR2{2681} CHAR1{2685} CHAR2{2686} CHAR1{2689} CHAR2{2690} CHAR1{2694} CHAR2{2695} CHAR1{2716} CHAR2{2717} CHAR1{2721} CHAR2{2722} CHAR1{2725} CHAR2{2726} CHAR1{2730} CHAR2{2731} CHAR1{2743} CHAR2{2744} CHAR1{2748} CHAR2{2749} CHAR1{2761} CHAR2{2762} CHAR1{2766} CHAR2{2767} CHAR1{2770} CHAR2{2771} CHAR1{2775} CHAR2{2776} CHAR1{2797} CHAR2{2798} CHAR1{2802} CHAR2{2803} CHAR1{2806} CHAR2{2807} CHAR1{2811} CHAR2{2812} CHAR1{2815} CHAR2{2816} CHAR1{2820} CHAR2{2821} CHAR1{2824} CHAR2{2825} CHAR1{2829} CHAR2{2830} CHAR1{2833} CHAR2{2834} CHAR1{2838} CHAR2{2839} CHAR1{2842} CHAR2{2843} CHAR1{2847} CHAR2{2848} CHAR1{2869} CHAR2{2870} CHAR1{2874} CHAR2{2875} CHAR1{2878} CHAR2{2879} CHAR1{2883} CHAR2{2884} CHAR1{2887} CHAR2{2888} CHAR1{2892} CHAR2{2893} CHAR1{2896} CHAR2{2897} CHAR1{2901} CHAR2{2902} CHAR1{2905} CHAR2{2906} CHAR1{2910} CHAR2{2911} CHAR1{2914} CHAR2{2915} CHAR1{2919} CHAR2{2920} CHAR1{2923} CHAR2{2924} CHAR1{2928} CHAR2{2929} CHAR1{2932} CHAR2{2933} CHAR1{2937} CHAR2{2938} CHAR1{2941} CHAR2{2942} CHAR1{2946} CHAR2{2947} CHAR1{2950} CHAR2{2951} CHAR1{2955} CHAR2{2956} CHAR1{3067} CHAR2{3068} CHAR1{3072} CHAR2{3073} CHAR1{3076} CHAR2{3077} CHAR1{3081} CHAR2{3082} CHAR1{3085} CHAR2{3086} CHAR1{3090} CHAR2{3091} CHAR1{3094} CHAR2{3095} CHAR1{3099} CHAR2{3100} CHAR1{3103} CHAR2{3104} CHAR1{3108} CHAR2{3109} CHAR1{3112} CHAR2{3113} CHAR1{3117} CHAR2{3118} CHAR1{3121} CHAR2{3122} CHAR1{3126} CHAR2{3127} CHAR1{3130} CHAR2{3131} CHAR1{3135} CHAR2{3136} CHAR1{3139} CHAR2{3140} CHAR1{3144} CHAR2{3145} CHAR1{3148} CHAR2{3149} CHAR1{3153} CHAR2{3154} CHAR1{3157} CHAR2{3158} CHAR1{3162} CHAR2{3163} CHAR1{3166} CHAR2{3167} CHAR1{3171} CHAR2{3172} CHAR1{3175} CHAR2{3176} CHAR1{3180} CHAR2{3181} CHAR1{3184} CHAR2{3185} CHAR1{3189} CHAR2{3190} CHAR1{3193} CHAR2{3194} CHAR1{3198} CHAR2{3199} CHAR1{3202} CHAR2{3203} CHAR1{3207} CHAR2{3208} CHAR1{3211} CHAR2{3212} CHAR1{3216} CHAR2{3217} CHAR1{3220} CHAR2{3221} CHAR1{3225} CHAR2{3226} CHAR1{3229} CHAR2{3230} CHAR1{3234} CHAR2{3235} CHAR1{3238} CHAR2{3239} CHAR1{3243} CHAR2{3244} CHAR1{3247} CHAR2{3248} CHAR1{3252} CHAR2{3253} CHAR1{3256} CHAR2{3257} CHAR1{3261} CHAR2{3262} CHAR1{3265} CHAR2{3266} CHAR1{3270} CHAR2{3271} CHAR1{3274} CHAR2{3275} CHAR1{3279} CHAR2{3280} CHAR1{3508} CHAR2{3509} CHAR1{3513} CHAR2{3514} CHAR1{3517} CHAR2{3518} CHAR1{3522} CHAR2{3523} CHAR1{3526} CHAR2{3527} CHAR1{3531} CHAR2{3532} CHAR1{3535} CHAR2{3536} CHAR1{3540} CHAR2{3541} CHAR1{3544} CHAR2{3545} CHAR1{3549} CHAR2{3550} CHAR1{3553} CHAR2{3554} CHAR1{3558} CHAR2{3559} CHAR1{3562} CHAR2{3563} CHAR1{3567} CHAR2{3568} CHAR1{3571} CHAR2{3572} CHAR1{3576} CHAR2{3577} CHAR1{3580} CHAR2{3581} CHAR1{3585} CHAR2{3586} CHAR1{3589} CHAR2{3590} CHAR1{3594} CHAR2{3595} CHAR1{3598} CHAR2{3599} CHAR1{3603} CHAR2{3604} LIST{3607} LIST{3610} R{3611} LIST{3612} LIST{3615} R{3616} CHAR{3629} CHAR{3630} CHAR{3631} CHAR{3632} CHAR{3633} CHAR{3634} CHAR{3635} CHAR{3636} CHAR{3637} CHAR{3643} CHAR{3644} CHAR{3645} CHAR{3647} CHAR{3648} CHAR{3649} CHAR{3651} CHAR{3677} CHAR{3678} CHAR{3679} CHAR{3680} CHAR{3681} CHAR{3682} CHAR{3683} CHAR{3684} CHAR{3685} CHAR{3686} CHAR{3687} CHAR{3691} CHAR{3692} v{3693} C{3696} v{3697} v{3698} v{3699} v{3700} C{3701} v{3702} v{3703} v{3704} v{3705} C{3706} v{3707} v{3708} v{3709} v{3710} C{3711} v{3712} v{3713} v{3714} v{3715} CHAR1{3729} CHAR2{3730} CHAR1{3734} CHAR2{3735} CHAR1{3820} CHAR2{3821} CHAR1{3825} CHAR2{3826} CHAR1{3973} CHAR2{3974} CHAR1{3978} CHAR2{3979} CHAR1{3982} CHAR2{3983} CHAR1{3987} CHAR2{3988} CHAR1{3991} CHAR2{3992} CHAR1{3996} CHAR2{3997} CHAR1{4000} CHAR2{4001} CHAR1{4005} CHAR2{4006} CHAR1{4009} CHAR2{4010} CHAR1{4014} CHAR2{4015} CHAR{4018} CHAR1{4019} CHAR2{4020} CHAR1{4024} CHAR2{4025} CHAR1{4028} CHAR2{4029} CHAR1{4033} CHAR2{4034} CHAR1{4037} CHAR2{4038} CHAR1{4042} CHAR2{4043} CHAR1{4046} CHAR2{4047} CHAR1{4051} CHAR2{4052} CHAR1{4055} CHAR2{4056} CHAR1{4060} CHAR2{4061} CHAR1{4064} CHAR2{4065} CHAR1{4069} CHAR2{4070} CHAR{4073} CHAR1{4074} CHAR2{4075} CHAR1{4079} CHAR2{4080} CHAR1{4083} CHAR2{4084} CHAR1{4088} CHAR2{4089} CHAR1{4092} CHAR2{4093} CHAR1{4097} CHAR2{4098} CHAR1{4101} CHAR2{4102} CHAR1{4106} CHAR2{4107} CHAR1{4110} CHAR2{4111} CHAR1{4115} CHAR2{4116} CHAR1{4119} CHAR2{4120} CHAR1{4124} CHAR2{4125} CHAR1{4128} CHAR2{4129} CHAR1{4133} CHAR2{4134} CHAR1{4137} CHAR2{4138} CHAR1{4142} CHAR2{4143} CHAR{4146} CHAR1{4147} CHAR2{4148} CHAR1{4152} CHAR2{4153} CHAR1{4156} CHAR2{4157} CHAR1{4161} CHAR2{4162} CHAR1{4165} CHAR2{4166} CHAR1{4170} CHAR2{4171} CHAR1{4174} CHAR2{4175} CHAR1{4179} CHAR2{4180} CHAR1{4183} CHAR2{4184} CHAR1{4188} CHAR2{4189} CHAR1{4192} CHAR2{4193} CHAR1{4197} CHAR2{4198} CHAR{4201} CHAR1{4202} CHAR2{4203} CHAR1{4207} CHAR2{4208} CHAR1{4211} CHAR2{4212} CHAR1{4216} CHAR2{4217} CHAR1{4220} CHAR2{4221} CHAR1{4225} CHAR2{4226} CHAR1{4229} CHAR2{4230} CHAR1{4234} CHAR2{4235} CHAR1{4238} CHAR2{4239} CHAR1{4243} CHAR2{4244} CHAR1{4247} CHAR2{4248} CHAR1{4252} CHAR2{4253} CHAR1{4256} CHAR2{4257} CHAR1{4261} CHAR2{4262} CHAR1{4265} CHAR2{4266} CHAR1{4270} CHAR2{4271} CHAR1{4274} CHAR2{4275} CHAR1{4279} CHAR2{4280} CHAR1{4283} CHAR2{4284} CHAR1{4288} CHAR2{4289} CHAR1{4292} CHAR2{4293} CHAR1{4297} CHAR2{4298} CHAR1{4301} CHAR2{4302} CHAR1{4306} CHAR2{4307} CHAR1{4310} CHAR2{4311} CHAR1{4315} CHAR2{4316} CHAR1{4337} CHAR2{4338} CHAR1{4342} CHAR2{4343} CHAR1{4346} CHAR2{4347} CHAR1{4351} CHAR2{4352} CHAR1{4355} CHAR2{4356} CHAR1{4360} CHAR2{4361} CHAR1{4364} CHAR2{4365} CHAR1{4369} CHAR2{4370} CHAR1{4373} CHAR2{4374} CHAR1{4378} CHAR2{4379} CHAR1{4382} CHAR2{4383} CHAR1{4387} CHAR2{4388} CHAR1{4391} CHAR2{4392} CHAR1{4396} CHAR2{4397} CHAR1{4400} CHAR2{4401} CHAR1{4405} CHAR2{4406} CHAR1{4409} CHAR2{4410} CHAR1{4414} CHAR2{4415} CHAR1{4418} CHAR2{4419} CHAR1{4423} CHAR2{4424} CHAR1{4427} CHAR2{4428} CHAR1{4432} CHAR2{4433} CHAR1{4436} CHAR2{4437} CHAR1{4441} CHAR2{4442} CHAR1{4445} CHAR2{4446} CHAR1{4450} CHAR2{4451} CHAR1{4454} CHAR2{4455} CHAR1{4459} CHAR2{4460} CHAR1{4463} CHAR2{4464} CHAR1{4468} CHAR2{4469} CHAR1{4472} CHAR2{4473} CHAR1{4477} CHAR2{4478} READ[1331] has the following parameter: PORT{1858} global STRING-COPY[1116] has the following parameter: STRING{1678} local has the following in-lined locals: N{1679} R{1680} K{1684} LIST->STRING[1106] has the following parameter: LIST{1670} local has the following in-lined locals: R{1671} K{1675} STRING=?[955] has the following parameters: STRING1{1490} local STRING2{1491} local has the following in-lined locals: CHAR1{1369} CHAR2{1370} CHAR1{1374} CHAR2{1375} STRING1{1495} STRING2{1496} N{1498} K{1501} v{1502} CHAR-LOWER-CASE?[934] has the following parameter: LETTER{1469} local has the following in-lined locals: CHAR1{2608} CHAR2{2609} CHAR1{2613} CHAR2{2614} CHAR1{2734} CHAR2{2735} CHAR1{2739} CHAR2{2740} [inside top level 699] has the following parameter: STRING{1216} local has the following in-lined locals: FOUND{1217} PACKAGE{1221} LIST-LENGTH[523] has the following parameter: LIST{1090} local has the following in-lined local: K{1093} TEST[430] has region has the following parameters: PGM1{1021} local PGM2{1022} local has the following in-lined locals: PATHNAME{845} PGM1{991} PGM2{992} EPSILON{993} SIGMA{994} SENSITIVITY{995} WIDTH{997} HEIGHT{998} E1{999} E2{1000} M{1001} I{1005} J{1009} EX{1011} EY{1012} ET{1013} L{1014} V{1015} I{1019} X{1306} STRINGS{1647} R{1648} K{1649} STRINGS{1653} N{1654} L{1658} K{1663} STRINGS{1664} STRING{1847} OUTPUT-PORT{1849} PNM{2520} PNM{2521} PNM{2522} PNM{2524} PNM{2525} PNM{2526} PGM-SMOOTH[346] has the following parameters: PGM{960} local SIGMA{961} local has the following in-lined locals: HEIGHT{963} WIDTH{964} GREY1{965} GREY2{966} Y{970} X{974} I{979} J{983} V{985} I{989} PNM{2519} PNM{2523} WRITE-PNM[222] has the following parameter: PORT{848} local has the following in-lined locals: PNM{716} PNM{717} PGM{874} GREY{875} HEIGHT{876} WIDTH{877} Y{889} X{893} Y{897} X{901} Y{906} X{910} OBJ{2417} &REST{2418} &REST{2421} CHAR{2422} &REST{2423} CHAR{2442} &REST{2443} &REST{2444} &REST{2445} &REST{2446} OBJ{3721} &REST{3722} OBJ{3723} &REST{3724} OBJ{3725} &REST{3726} OBJ{3727} &REST{3728} READ-PPM[130] has the following parameter: RAW?{787} local has the following in-lined locals: WIDTH{788} HEIGHT{789} MAXVAL{790} RED{792} GREEN{793} BLUE{794} Y{800} X{804} C1{806} C2{807} C3{808} Y{814} X{818} V1{820} V2{821} V3{822} V{826} I{830} V{832} I{836} V{838} I{842} &REST{2414} &REST{2460} &REST{2461} &REST{2462} READ-PGM[75] has the following parameter: RAW?{752} local has the following in-lined locals: WIDTH{753} HEIGHT{754} MAXVAL{755} GREY{757} Y{763} X{767} C{769} Y{773} X{777} V{779} V{781} I{785} &REST{2463} &REST{2464} READ-PBM[40] has the following parameter: RAW?{730} local has the following in-lined locals: WIDTH{731} HEIGHT{732} BITMAP{733} Y{738} X{742} V{744} V{746} I{750} READ-PNM[28] has the following parameter: PORT{721} global has the following in-lined locals: FORMAT{728} v{729} OBJ1{1026} v{1028} OBJ1{3652} v{3654} OBJ1{3657} v{3659} OBJ1{3662} v{3664} OBJ1{3667} v{3669} OBJ1{3672} v{3674} READ-PNM[25] has the following parameter: PATHNAME{718} local has the following in-lined locals: STRING{1842} INPUT-PORT{1844} R{1845} [inside top level 0] has the following in-lined locals: PGM2{709} PGM1{710} I{713} The following non-trivial in-line native procedures will be generated: [clone LOOP?[885] 4167] has the following parameters: CHAR1{4477} local CHAR2{4478} local [clone CHAR<=?[882] 4164] has the following parameters: CHAR1{4472} local CHAR2{4473} local [clone LOOP?[885] 4161] has the following parameters: CHAR1{4468} local CHAR2{4469} local [clone CHAR<=?[882] 4158] has the following parameters: CHAR1{4463} local CHAR2{4464} local [clone LOOP?[891] 4155] has the following parameters: CHAR1{4459} local CHAR2{4460} local [clone CHAR>=?[888] 4152] has the following parameters: CHAR1{4454} local CHAR2{4455} local [clone LOOP?[891] 4149] has the following parameters: CHAR1{4450} local CHAR2{4451} local [clone CHAR>=?[888] 4146] has the following parameters: CHAR1{4445} local CHAR2{4446} local [clone LOOP?[885] 4143] has the following parameters: CHAR1{4441} local CHAR2{4442} local [clone CHAR<=?[882] 4140] has the following parameters: CHAR1{4436} local CHAR2{4437} local [clone LOOP?[885] 4137] has the following parameters: CHAR1{4432} local CHAR2{4433} local [clone CHAR<=?[882] 4134] has the following parameters: CHAR1{4427} local CHAR2{4428} local [clone LOOP?[891] 4131] has the following parameters: CHAR1{4423} local CHAR2{4424} local [clone CHAR>=?[888] 4128] has the following parameters: CHAR1{4418} local CHAR2{4419} local [clone LOOP?[891] 4125] has the following parameters: CHAR1{4414} local CHAR2{4415} local [clone CHAR>=?[888] 4122] has the following parameters: CHAR1{4409} local CHAR2{4410} local [clone LOOP?[885] 4119] has the following parameters: CHAR1{4405} local CHAR2{4406} local [clone CHAR<=?[882] 4116] has the following parameters: CHAR1{4400} local CHAR2{4401} local [clone LOOP?[891] 4113] has the following parameters: CHAR1{4396} local CHAR2{4397} local [clone CHAR>=?[888] 4110] has the following parameters: CHAR1{4391} local CHAR2{4392} local [clone LOOP?[885] 4107] has the following parameters: CHAR1{4387} local CHAR2{4388} local [clone CHAR<=?[882] 4104] has the following parameters: CHAR1{4382} local CHAR2{4383} local [clone LOOP?[891] 4101] has the following parameters: CHAR1{4378} local CHAR2{4379} local [clone CHAR>=?[888] 4098] has the following parameters: CHAR1{4373} local CHAR2{4374} local [clone LOOP?[885] 4095] has the following parameters: CHAR1{4369} local CHAR2{4370} local [clone CHAR<=?[882] 4092] has the following parameters: CHAR1{4364} local CHAR2{4365} local [clone LOOP?[885] 4089] has the following parameters: CHAR1{4360} local CHAR2{4361} local [clone CHAR<=?[882] 4086] has the following parameters: CHAR1{4355} local CHAR2{4356} local [clone LOOP?[891] 4083] has the following parameters: CHAR1{4351} local CHAR2{4352} local [clone CHAR>=?[888] 4080] has the following parameters: CHAR1{4346} local CHAR2{4347} local [clone LOOP?[885] 4077] has the following parameters: CHAR1{4342} local CHAR2{4343} local [clone CHAR<=?[882] 4074] has the following parameters: CHAR1{4337} local CHAR2{4338} local [clone LOOP?[885] 4071] has the following parameters: CHAR1{4333} local CHAR2{4334} local [clone CHAR<=?[882] 4068] has the following parameters: CHAR1{4328} local CHAR2{4329} local [clone LOOP?[891] 4065] has the following parameters: CHAR1{4324} local CHAR2{4325} local [clone CHAR>=?[888] 4062] has the following parameters: CHAR1{4319} local CHAR2{4320} local [clone LOOP?[891] 4059] has the following parameters: CHAR1{4315} local CHAR2{4316} local [clone CHAR>=?[888] 4056] has the following parameters: CHAR1{4310} local CHAR2{4311} local [clone LOOP?[891] 4053] has the following parameters: CHAR1{4306} local CHAR2{4307} local [clone CHAR>=?[888] 4050] has the following parameters: CHAR1{4301} local CHAR2{4302} local [clone LOOP?[885] 4047] has the following parameters: CHAR1{4297} local CHAR2{4298} local [clone CHAR<=?[882] 4044] has the following parameters: CHAR1{4292} local CHAR2{4293} local [clone LOOP?[891] 4041] has the following parameters: CHAR1{4288} local CHAR2{4289} local [clone CHAR>=?[888] 4038] has the following parameters: CHAR1{4283} local CHAR2{4284} local [clone LOOP?[885] 4035] has the following parameters: CHAR1{4279} local CHAR2{4280} local [clone CHAR<=?[882] 4032] has the following parameters: CHAR1{4274} local CHAR2{4275} local [clone LOOP?[891] 4029] has the following parameters: CHAR1{4270} local CHAR2{4271} local [clone CHAR>=?[888] 4026] has the following parameters: CHAR1{4265} local CHAR2{4266} local [clone LOOP?[885] 4023] has the following parameters: CHAR1{4261} local CHAR2{4262} local [clone CHAR<=?[882] 4020] has the following parameters: CHAR1{4256} local CHAR2{4257} local [clone LOOP?[885] 4017] has the following parameters: CHAR1{4252} local CHAR2{4253} local [clone CHAR<=?[882] 4014] has the following parameters: CHAR1{4247} local CHAR2{4248} local [clone LOOP?[867] 4011] has the following parameters: CHAR1{4243} local CHAR2{4244} local [clone CHAR=?[864] 4008] has the following parameters: CHAR1{4238} local CHAR2{4239} local [clone LOOP?[867] 4005] has the following parameters: CHAR1{4234} local CHAR2{4235} local [clone CHAR=?[864] 4002] has the following parameters: CHAR1{4229} local CHAR2{4230} local [clone LOOP?[867] 3999] has the following parameters: CHAR1{4225} local CHAR2{4226} local [clone CHAR=?[864] 3996] has the following parameters: CHAR1{4220} local CHAR2{4221} local [clone LOOP?[885] 3993] has the following parameters: CHAR1{4216} local CHAR2{4217} local [clone CHAR<=?[882] 3990] has the following parameters: CHAR1{4211} local CHAR2{4212} local [clone LOOP?[891] 3987] has the following parameters: CHAR1{4207} local CHAR2{4208} local [clone CHAR>=?[888] 3984] has the following parameters: CHAR1{4202} local CHAR2{4203} local [clone CHAR-NUMERIC?[926] 3983] has the following parameter: CHAR{4201} local [clone LOOP?[891] 3980] has the following parameters: CHAR1{4197} local CHAR2{4198} local [clone CHAR>=?[888] 3977] has the following parameters: CHAR1{4192} local CHAR2{4193} local [clone LOOP?[867] 3974] has the following parameters: CHAR1{4188} local CHAR2{4189} local [clone CHAR=?[864] 3971] has the following parameters: CHAR1{4183} local CHAR2{4184} local [clone LOOP?[867] 3968] has the following parameters: CHAR1{4179} local CHAR2{4180} local [clone CHAR=?[864] 3965] has the following parameters: CHAR1{4174} local CHAR2{4175} local [clone LOOP?[867] 3962] has the following parameters: CHAR1{4170} local CHAR2{4171} local [clone CHAR=?[864] 3959] has the following parameters: CHAR1{4165} local CHAR2{4166} local [clone LOOP?[885] 3956] has the following parameters: CHAR1{4161} local CHAR2{4162} local [clone CHAR<=?[882] 3953] has the following parameters: CHAR1{4156} local CHAR2{4157} local [clone LOOP?[891] 3950] has the following parameters: CHAR1{4152} local CHAR2{4153} local [clone CHAR>=?[888] 3947] has the following parameters: CHAR1{4147} local CHAR2{4148} local [clone CHAR-NUMERIC?[926] 3946] has the following parameter: CHAR{4146} local [clone LOOP?[891] 3943] has the following parameters: CHAR1{4142} local CHAR2{4143} local [clone CHAR>=?[888] 3940] has the following parameters: CHAR1{4137} local CHAR2{4138} local [clone LOOP?[885] 3937] has the following parameters: CHAR1{4133} local CHAR2{4134} local [clone CHAR<=?[882] 3934] has the following parameters: CHAR1{4128} local CHAR2{4129} local [clone LOOP?[885] 3931] has the following parameters: CHAR1{4124} local CHAR2{4125} local [clone CHAR<=?[882] 3928] has the following parameters: CHAR1{4119} local CHAR2{4120} local [clone LOOP?[867] 3925] has the following parameters: CHAR1{4115} local CHAR2{4116} local [clone CHAR=?[864] 3922] has the following parameters: CHAR1{4110} local CHAR2{4111} local [clone LOOP?[867] 3919] has the following parameters: CHAR1{4106} local CHAR2{4107} local [clone CHAR=?[864] 3916] has the following parameters: CHAR1{4101} local CHAR2{4102} local [clone LOOP?[867] 3913] has the following parameters: CHAR1{4097} local CHAR2{4098} local [clone CHAR=?[864] 3910] has the following parameters: CHAR1{4092} local CHAR2{4093} local [clone LOOP?[885] 3907] has the following parameters: CHAR1{4088} local CHAR2{4089} local [clone CHAR<=?[882] 3904] has the following parameters: CHAR1{4083} local CHAR2{4084} local [clone LOOP?[891] 3901] has the following parameters: CHAR1{4079} local CHAR2{4080} local [clone CHAR>=?[888] 3898] has the following parameters: CHAR1{4074} local CHAR2{4075} local [clone CHAR-NUMERIC?[926] 3897] has the following parameter: CHAR{4073} local [clone LOOP?[891] 3894] has the following parameters: CHAR1{4069} local CHAR2{4070} local [clone CHAR>=?[888] 3891] has the following parameters: CHAR1{4064} local CHAR2{4065} local [clone LOOP?[867] 3888] has the following parameters: CHAR1{4060} local CHAR2{4061} local [clone CHAR=?[864] 3885] has the following parameters: CHAR1{4055} local CHAR2{4056} local [clone LOOP?[867] 3882] has the following parameters: CHAR1{4051} local CHAR2{4052} local [clone CHAR=?[864] 3879] has the following parameters: CHAR1{4046} local CHAR2{4047} local [clone LOOP?[867] 3876] has the following parameters: CHAR1{4042} local CHAR2{4043} local [clone CHAR=?[864] 3873] has the following parameters: CHAR1{4037} local CHAR2{4038} local [clone LOOP?[885] 3870] has the following parameters: CHAR1{4033} local CHAR2{4034} local [clone CHAR<=?[882] 3867] has the following parameters: CHAR1{4028} local CHAR2{4029} local [clone LOOP?[891] 3864] has the following parameters: CHAR1{4024} local CHAR2{4025} local [clone CHAR>=?[888] 3861] has the following parameters: CHAR1{4019} local CHAR2{4020} local [clone CHAR-NUMERIC?[926] 3860] has the following parameter: CHAR{4018} local [clone LOOP?[891] 3857] has the following parameters: CHAR1{4014} local CHAR2{4015} local [clone CHAR>=?[888] 3854] has the following parameters: CHAR1{4009} local CHAR2{4010} local [clone LOOP?[885] 3851] has the following parameters: CHAR1{4005} local CHAR2{4006} local [clone CHAR<=?[882] 3848] has the following parameters: CHAR1{4000} local CHAR2{4001} local [clone LOOP?[885] 3845] has the following parameters: CHAR1{3996} local CHAR2{3997} local [clone CHAR<=?[882] 3842] has the following parameters: CHAR1{3991} local CHAR2{3992} local [clone LOOP?[891] 3839] has the following parameters: CHAR1{3987} local CHAR2{3988} local [clone CHAR>=?[888] 3836] has the following parameters: CHAR1{3982} local CHAR2{3983} local [clone LOOP?[891] 3833] has the following parameters: CHAR1{3978} local CHAR2{3979} local [clone CHAR>=?[888] 3830] has the following parameters: CHAR1{3973} local CHAR2{3974} local [clone LOOP?[885] 3827] has the following parameters: CHAR1{3969} local CHAR2{3970} local [clone CHAR<=?[882] 3824] has the following parameters: CHAR1{3964} local CHAR2{3965} local [clone LOOP?[885] 3821] has the following parameters: CHAR1{3960} local CHAR2{3961} local [clone CHAR<=?[882] 3818] has the following parameters: CHAR1{3955} local CHAR2{3956} local [clone LOOP?[885] 3815] has the following parameters: CHAR1{3951} local CHAR2{3952} local [clone CHAR<=?[882] 3812] has the following parameters: CHAR1{3946} local CHAR2{3947} local [clone LOOP?[885] 3809] has the following parameters: CHAR1{3942} local CHAR2{3943} local [clone CHAR<=?[882] 3806] has the following parameters: CHAR1{3937} local CHAR2{3938} local [clone LOOP?[891] 3803] has the following parameters: CHAR1{3933} local CHAR2{3934} local [clone CHAR>=?[888] 3800] has the following parameters: CHAR1{3928} local CHAR2{3929} local [clone LOOP?[885] 3797] has the following parameters: CHAR1{3924} local CHAR2{3925} local [clone CHAR<=?[882] 3794] has the following parameters: CHAR1{3919} local CHAR2{3920} local [clone LOOP?[891] 3791] has the following parameters: CHAR1{3915} local CHAR2{3916} local [clone CHAR>=?[888] 3788] has the following parameters: CHAR1{3910} local CHAR2{3911} local [clone LOOP?[891] 3785] has the following parameters: CHAR1{3906} local CHAR2{3907} local [clone CHAR>=?[888] 3782] has the following parameters: CHAR1{3901} local CHAR2{3902} local [clone LOOP?[891] 3779] has the following parameters: CHAR1{3897} local CHAR2{3898} local [clone CHAR>=?[888] 3776] has the following parameters: CHAR1{3892} local CHAR2{3893} local [clone LOOP?[885] 3773] has the following parameters: CHAR1{3888} local CHAR2{3889} local [clone CHAR<=?[882] 3770] has the following parameters: CHAR1{3883} local CHAR2{3884} local [clone LOOP?[885] 3767] has the following parameters: CHAR1{3879} local CHAR2{3880} local [clone CHAR<=?[882] 3764] has the following parameters: CHAR1{3874} local CHAR2{3875} local [clone LOOP?[891] 3761] has the following parameters: CHAR1{3870} local CHAR2{3871} local [clone CHAR>=?[888] 3758] has the following parameters: CHAR1{3865} local CHAR2{3866} local [clone LOOP?[885] 3755] has the following parameters: CHAR1{3861} local CHAR2{3862} local [clone CHAR<=?[882] 3752] has the following parameters: CHAR1{3856} local CHAR2{3857} local [clone LOOP?[891] 3749] has the following parameters: CHAR1{3852} local CHAR2{3853} local [clone CHAR>=?[888] 3746] has the following parameters: CHAR1{3847} local CHAR2{3848} local [clone LOOP?[891] 3743] has the following parameters: CHAR1{3843} local CHAR2{3844} local [clone CHAR>=?[888] 3740] has the following parameters: CHAR1{3838} local CHAR2{3839} local [clone LOOP?[891] 3737] has the following parameters: CHAR1{3834} local CHAR2{3835} local [clone CHAR>=?[888] 3734] has the following parameters: CHAR1{3829} local CHAR2{3830} local [clone LOOP?[885] 3731] has the following parameters: CHAR1{3825} local CHAR2{3826} local [clone CHAR<=?[882] 3728] has the following parameters: CHAR1{3820} local CHAR2{3821} local [clone LOOP?[867] 3725] has the following parameters: CHAR1{3816} local CHAR2{3817} local [clone CHAR=?[864] 3722] has the following parameters: CHAR1{3811} local CHAR2{3812} local [clone LOOP?[867] 3719] has the following parameters: CHAR1{3807} local CHAR2{3808} local [clone CHAR=?[864] 3716] has the following parameters: CHAR1{3802} local CHAR2{3803} local [clone LOOP?[867] 3713] has the following parameters: CHAR1{3798} local CHAR2{3799} local [clone CHAR=?[864] 3710] has the following parameters: CHAR1{3793} local CHAR2{3794} local [clone LOOP?[885] 3707] has the following parameters: CHAR1{3789} local CHAR2{3790} local [clone CHAR<=?[882] 3704] has the following parameters: CHAR1{3784} local CHAR2{3785} local [clone LOOP?[891] 3701] has the following parameters: CHAR1{3780} local CHAR2{3781} local [clone CHAR>=?[888] 3698] has the following parameters: CHAR1{3775} local CHAR2{3776} local [clone CHAR-NUMERIC?[926] 3697] has the following parameter: CHAR{3774} local [clone LOOP?[885] 3694] has the following parameters: CHAR1{3770} local CHAR2{3771} local [clone CHAR<=?[882] 3691] has the following parameters: CHAR1{3765} local CHAR2{3766} local [clone LOOP?[891] 3688] has the following parameters: CHAR1{3761} local CHAR2{3762} local [clone CHAR>=?[888] 3685] has the following parameters: CHAR1{3756} local CHAR2{3757} local [clone LOOP?[885] 3682] has the following parameters: CHAR1{3752} local CHAR2{3753} local [clone CHAR<=?[882] 3679] has the following parameters: CHAR1{3747} local CHAR2{3748} local [clone LOOP?[891] 3676] has the following parameters: CHAR1{3743} local CHAR2{3744} local [clone CHAR>=?[888] 3673] has the following parameters: CHAR1{3738} local CHAR2{3739} local [clone LOOP?[891] 3670] has the following parameters: CHAR1{3734} local CHAR2{3735} local [clone CHAR>=?[888] 3667] has the following parameters: CHAR1{3729} local CHAR2{3730} local [clone WRITE[2218] 3663] has the following parameters: OBJ{3727} local &REST{3728} local [clone WRITE[2218] 3659] has the following parameters: OBJ{3725} local &REST{3726} local [clone WRITE[2218] 3655] has the following parameters: OBJ{3723} local &REST{3724} local [clone WRITE[2218] 3651] has the following parameters: OBJ{3721} local &REST{3722} local [clone [inside CHAR-SUBSEQUENT? 1684] 3650] has the following parameter: v{3720} local [clone [inside CHAR-SUBSEQUENT? 1683] 3649] has the following parameter: v{3719} local [clone [inside CHAR-SUBSEQUENT? 1682] 3648] has the following parameter: v{3718} local [clone [inside CHAR-SUBSEQUENT? 1681] 3647] has the following parameter: v{3717} local [clone CHAR-SUBSEQUENT?[1680] 3646] has the following parameter: C{3716} local [clone [inside CHAR-SUBSEQUENT? 1684] 3645] has the following parameter: v{3715} local [clone [inside CHAR-SUBSEQUENT? 1683] 3644] has the following parameter: v{3714} local [clone [inside CHAR-SUBSEQUENT? 1682] 3643] has the following parameter: v{3713} local [clone [inside CHAR-SUBSEQUENT? 1681] 3642] has the following parameter: v{3712} local [clone CHAR-SUBSEQUENT?[1680] 3641] has the following parameter: C{3711} local [clone [inside CHAR-SUBSEQUENT? 1684] 3640] has the following parameter: v{3710} local [clone [inside CHAR-SUBSEQUENT? 1683] 3639] has the following parameter: v{3709} local [clone [inside CHAR-SUBSEQUENT? 1682] 3638] has the following parameter: v{3708} local [clone [inside CHAR-SUBSEQUENT? 1681] 3637] has the following parameter: v{3707} local [clone CHAR-SUBSEQUENT?[1680] 3636] has the following parameter: C{3706} local [clone [inside CHAR-SUBSEQUENT? 1684] 3635] has the following parameter: v{3705} local [clone [inside CHAR-SUBSEQUENT? 1683] 3634] has the following parameter: v{3704} local [clone [inside CHAR-SUBSEQUENT? 1682] 3633] has the following parameter: v{3703} local [clone [inside CHAR-SUBSEQUENT? 1681] 3632] has the following parameter: v{3702} local [clone CHAR-SUBSEQUENT?[1680] 3631] has the following parameter: C{3701} local [clone [inside CHAR-SUBSEQUENT? 1684] 3630] has the following parameter: v{3700} local [clone [inside CHAR-SUBSEQUENT? 1683] 3629] has the following parameter: v{3699} local [clone [inside CHAR-SUBSEQUENT? 1682] 3628] has the following parameter: v{3698} local [clone [inside CHAR-SUBSEQUENT? 1681] 3627] has the following parameter: v{3697} local [clone CHAR-SUBSEQUENT?[1680] 3626] has the following parameter: C{3696} local [clone [inside CHAR-ALPHABETIC? 925] 3625] has the following parameter: v{3695} local [clone CHAR-ALPHABETIC?[924] 3624] has the following parameter: CHAR{3694} local [clone [inside CHAR-ALPHABETIC? 925] 3623] has the following parameter: v{3693} local [clone CHAR-ALPHABETIC?[924] 3622] has the following parameter: CHAR{3692} local [clone CHAR-UPCASE[937] 3621] has the following parameter: CHAR{3691} local [clone CHAR-UPCASE[937] 3620] has the following parameter: CHAR{3690} local [clone CHAR-UPCASE[937] 3619] has the following parameter: CHAR{3689} local [clone CHAR-UPCASE[937] 3618] has the following parameter: CHAR{3688} local [clone CHAR-UPCASE[937] 3617] has the following parameter: CHAR{3687} local [clone CHAR-UPCASE[937] 3616] has the following parameter: CHAR{3686} local [clone CHAR-UPCASE[937] 3615] has the following parameter: CHAR{3685} local [clone CHAR-UPCASE[937] 3614] has the following parameter: CHAR{3684} local [clone CHAR-UPCASE[937] 3613] has the following parameter: CHAR{3683} local [clone CHAR-UPCASE[937] 3612] has the following parameter: CHAR{3682} local [clone CHAR-UPCASE[937] 3611] has the following parameter: CHAR{3681} local [clone CHAR-UPCASE[937] 3610] has the following parameter: CHAR{3680} local [clone CHAR-UPCASE[937] 3609] has the following parameter: CHAR{3679} local [clone CHAR-UPCASE[937] 3608] has the following parameter: CHAR{3678} local [clone CHAR-UPCASE[937] 3607] has the following parameter: CHAR{3677} local [clone [inside EQV? 465] 3604] has the following parameter: v{3674} local [clone EQV?[464] 3603] has the following parameter: OBJ1{3672} local [clone [inside EQV? 465] 3600] has the following parameter: v{3669} local [clone EQV?[464] 3599] has the following parameter: OBJ1{3667} local [clone [inside EQV? 465] 3596] has the following parameter: v{3664} local [clone EQV?[464] 3595] has the following parameter: OBJ1{3662} local [clone [inside EQV? 465] 3592] has the following parameter: v{3659} local [clone EQV?[464] 3591] has the following parameter: OBJ1{3657} local [clone [inside EQV? 465] 3588] has the following parameter: v{3654} local [clone EQV?[464] 3587] has the following parameter: OBJ1{3652} local [clone CHAR-NUMERIC?[926] 3586] has the following parameter: CHAR{3651} local [clone CHAR-NUMERIC?[926] 3585] has the following parameter: CHAR{3650} local [clone CHAR-NUMERIC?[926] 3584] has the following parameter: CHAR{3649} local [clone CHAR-NUMERIC?[926] 3583] has the following parameter: CHAR{3648} local [clone CHAR-NUMERIC?[926] 3582] has the following parameter: CHAR{3647} local [clone CHAR-NUMERIC?[926] 3581] has the following parameter: CHAR{3646} local [clone CHAR-NUMERIC?[926] 3580] has the following parameter: CHAR{3645} local [clone CHAR-NUMERIC?[926] 3579] has the following parameter: CHAR{3644} local [clone CHAR-NUMERIC?[926] 3578] has the following parameter: CHAR{3643} local [clone CHAR-NUMERIC?[926] 3577] has the following parameter: CHAR{3642} local [clone CHAR-NUMERIC?[926] 3576] has the following parameter: CHAR{3641} local [clone CHAR-NUMERIC?[926] 3575] has the following parameter: CHAR{3640} local [clone CHAR-NUMERIC?[926] 3574] has the following parameter: CHAR{3639} local [clone CHAR-NUMERIC?[926] 3573] has the following parameter: CHAR{3638} local [clone CHAR-NUMERIC?[926] 3572] has the following parameter: CHAR{3637} local [clone CHAR-NUMERIC?[926] 3571] has the following parameter: CHAR{3636} local [clone CHAR-NUMERIC?[926] 3570] has the following parameter: CHAR{3635} local [clone CHAR-NUMERIC?[926] 3569] has the following parameter: CHAR{3634} local [clone CHAR-NUMERIC?[926] 3568] has the following parameter: CHAR{3633} local [clone CHAR-NUMERIC?[926] 3567] has the following parameter: CHAR{3632} local [clone CHAR-NUMERIC?[926] 3566] has the following parameter: CHAR{3631} local [clone CHAR-NUMERIC?[926] 3565] has the following parameter: CHAR{3630} local [clone CHAR-NUMERIC?[926] 3564] has the following parameter: CHAR{3629} local [clone CHAR-NUMERIC?[926] 3563] has the following parameter: CHAR{3628} local [clone CHAR-NUMERIC?[926] 3562] has the following parameter: CHAR{3627} local [clone LOOP[633] 3560] has the following parameters: LIST{3625} local R{3626} local [clone LIST-REVERSE[630] 3557] has the following parameter: LIST{3622} local [clone LOOP[633] 3555] has the following parameters: LIST{3620} local R{3621} local [clone LIST-REVERSE[630] 3552] has the following parameter: LIST{3617} local [clone LOOP[633] 3550] has the following parameters: LIST{3615} local R{3616} local [clone LIST-REVERSE[630] 3547] has the following parameter: LIST{3612} local [clone LOOP[633] 3545] has the following parameters: LIST{3610} local R{3611} local [clone LIST-REVERSE[630] 3542] has the following parameter: LIST{3607} local [clone LOOP?[867] 3539] has the following parameters: CHAR1{3603} local CHAR2{3604} local [clone CHAR=?[864] 3536] has the following parameters: CHAR1{3598} local CHAR2{3599} local [clone LOOP?[867] 3533] has the following parameters: CHAR1{3594} local CHAR2{3595} local [clone CHAR=?[864] 3530] has the following parameters: CHAR1{3589} local CHAR2{3590} local [clone LOOP?[867] 3527] has the following parameters: CHAR1{3585} local CHAR2{3586} local [clone CHAR=?[864] 3524] has the following parameters: CHAR1{3580} local CHAR2{3581} local [clone LOOP?[867] 3521] has the following parameters: CHAR1{3576} local CHAR2{3577} local [clone CHAR=?[864] 3518] has the following parameters: CHAR1{3571} local CHAR2{3572} local [clone LOOP?[867] 3515] has the following parameters: CHAR1{3567} local CHAR2{3568} local [clone CHAR=?[864] 3512] has the following parameters: CHAR1{3562} local CHAR2{3563} local [clone LOOP?[867] 3509] has the following parameters: CHAR1{3558} local CHAR2{3559} local [clone CHAR=?[864] 3506] has the following parameters: CHAR1{3553} local CHAR2{3554} local [clone LOOP?[867] 3503] has the following parameters: CHAR1{3549} local CHAR2{3550} local [clone CHAR=?[864] 3500] has the following parameters: CHAR1{3544} local CHAR2{3545} local [clone LOOP?[867] 3497] has the following parameters: CHAR1{3540} local CHAR2{3541} local [clone CHAR=?[864] 3494] has the following parameters: CHAR1{3535} local CHAR2{3536} local [clone LOOP?[867] 3491] has the following parameters: CHAR1{3531} local CHAR2{3532} local [clone CHAR=?[864] 3488] has the following parameters: CHAR1{3526} local CHAR2{3527} local [clone LOOP?[867] 3485] has the following parameters: CHAR1{3522} local CHAR2{3523} local [clone CHAR=?[864] 3482] has the following parameters: CHAR1{3517} local CHAR2{3518} local [clone LOOP?[867] 3479] has the following parameters: CHAR1{3513} local CHAR2{3514} local [clone CHAR=?[864] 3476] has the following parameters: CHAR1{3508} local CHAR2{3509} local [clone LOOP?[867] 3473] has the following parameters: CHAR1{3504} local CHAR2{3505} local [clone CHAR=?[864] 3470] has the following parameters: CHAR1{3499} local CHAR2{3500} local [clone LOOP?[867] 3467] has the following parameters: CHAR1{3495} local CHAR2{3496} local [clone CHAR=?[864] 3464] has the following parameters: CHAR1{3490} local CHAR2{3491} local [clone LOOP?[867] 3461] has the following parameters: CHAR1{3486} local CHAR2{3487} local [clone CHAR=?[864] 3458] has the following parameters: CHAR1{3481} local CHAR2{3482} local [clone LOOP?[867] 3455] has the following parameters: CHAR1{3477} local CHAR2{3478} local [clone CHAR=?[864] 3452] has the following parameters: CHAR1{3472} local CHAR2{3473} local [clone LOOP?[867] 3449] has the following parameters: CHAR1{3468} local CHAR2{3469} local [clone CHAR=?[864] 3446] has the following parameters: CHAR1{3463} local CHAR2{3464} local [clone LOOP?[867] 3443] has the following parameters: CHAR1{3459} local CHAR2{3460} local [clone CHAR=?[864] 3440] has the following parameters: CHAR1{3454} local CHAR2{3455} local [clone LOOP?[867] 3437] has the following parameters: CHAR1{3450} local CHAR2{3451} local [clone CHAR=?[864] 3434] has the following parameters: CHAR1{3445} local CHAR2{3446} local [clone LOOP?[867] 3431] has the following parameters: CHAR1{3441} local CHAR2{3442} local [clone CHAR=?[864] 3428] has the following parameters: CHAR1{3436} local CHAR2{3437} local [clone LOOP?[867] 3425] has the following parameters: CHAR1{3432} local CHAR2{3433} local [clone CHAR=?[864] 3422] has the following parameters: CHAR1{3427} local CHAR2{3428} local [clone LOOP?[867] 3419] has the following parameters: CHAR1{3423} local CHAR2{3424} local [clone CHAR=?[864] 3416] has the following parameters: CHAR1{3418} local CHAR2{3419} local [clone LOOP?[867] 3413] has the following parameters: CHAR1{3414} local CHAR2{3415} local [clone CHAR=?[864] 3410] has the following parameters: CHAR1{3409} local CHAR2{3410} local [clone LOOP?[867] 3407] has the following parameters: CHAR1{3405} local CHAR2{3406} local [clone CHAR=?[864] 3404] has the following parameters: CHAR1{3400} local CHAR2{3401} local [clone LOOP?[867] 3401] has the following parameters: CHAR1{3396} local CHAR2{3397} local [clone CHAR=?[864] 3398] has the following parameters: CHAR1{3391} local CHAR2{3392} local [clone LOOP?[867] 3395] has the following parameters: CHAR1{3387} local CHAR2{3388} local [clone CHAR=?[864] 3392] has the following parameters: CHAR1{3382} local CHAR2{3383} local [clone LOOP?[867] 3389] has the following parameters: CHAR1{3378} local CHAR2{3379} local [clone CHAR=?[864] 3386] has the following parameters: CHAR1{3373} local CHAR2{3374} local [clone LOOP?[867] 3383] has the following parameters: CHAR1{3369} local CHAR2{3370} local [clone CHAR=?[864] 3380] has the following parameters: CHAR1{3364} local CHAR2{3365} local [clone LOOP?[867] 3377] has the following parameters: CHAR1{3360} local CHAR2{3361} local [clone CHAR=?[864] 3374] has the following parameters: CHAR1{3355} local CHAR2{3356} local [clone LOOP?[867] 3371] has the following parameters: CHAR1{3351} local CHAR2{3352} local [clone CHAR=?[864] 3368] has the following parameters: CHAR1{3346} local CHAR2{3347} local [clone LOOP?[867] 3365] has the following parameters: CHAR1{3342} local CHAR2{3343} local [clone CHAR=?[864] 3362] has the following parameters: CHAR1{3337} local CHAR2{3338} local [clone LOOP?[867] 3359] has the following parameters: CHAR1{3333} local CHAR2{3334} local [clone CHAR=?[864] 3356] has the following parameters: CHAR1{3328} local CHAR2{3329} local [clone LOOP?[867] 3353] has the following parameters: CHAR1{3324} local CHAR2{3325} local [clone CHAR=?[864] 3350] has the following parameters: CHAR1{3319} local CHAR2{3320} local [clone LOOP?[867] 3347] has the following parameters: CHAR1{3315} local CHAR2{3316} local [clone CHAR=?[864] 3344] has the following parameters: CHAR1{3310} local CHAR2{3311} local [clone LOOP?[867] 3341] has the following parameters: CHAR1{3306} local CHAR2{3307} local [clone CHAR=?[864] 3338] has the following parameters: CHAR1{3301} local CHAR2{3302} local [clone LOOP?[867] 3335] has the following parameters: CHAR1{3297} local CHAR2{3298} local [clone CHAR=?[864] 3332] has the following parameters: CHAR1{3292} local CHAR2{3293} local [clone LOOP?[867] 3329] has the following parameters: CHAR1{3288} local CHAR2{3289} local [clone CHAR=?[864] 3326] has the following parameters: CHAR1{3283} local CHAR2{3284} local [clone LOOP?[867] 3323] has the following parameters: CHAR1{3279} local CHAR2{3280} local [clone CHAR=?[864] 3320] has the following parameters: CHAR1{3274} local CHAR2{3275} local [clone LOOP?[867] 3317] has the following parameters: CHAR1{3270} local CHAR2{3271} local [clone CHAR=?[864] 3314] has the following parameters: CHAR1{3265} local CHAR2{3266} local [clone LOOP?[867] 3311] has the following parameters: CHAR1{3261} local CHAR2{3262} local [clone CHAR=?[864] 3308] has the following parameters: CHAR1{3256} local CHAR2{3257} local [clone LOOP?[867] 3305] has the following parameters: CHAR1{3252} local CHAR2{3253} local [clone CHAR=?[864] 3302] has the following parameters: CHAR1{3247} local CHAR2{3248} local [clone LOOP?[867] 3299] has the following parameters: CHAR1{3243} local CHAR2{3244} local [clone CHAR=?[864] 3296] has the following parameters: CHAR1{3238} local CHAR2{3239} local [clone LOOP?[867] 3293] has the following parameters: CHAR1{3234} local CHAR2{3235} local [clone CHAR=?[864] 3290] has the following parameters: CHAR1{3229} local CHAR2{3230} local [clone LOOP?[867] 3287] has the following parameters: CHAR1{3225} local CHAR2{3226} local [clone CHAR=?[864] 3284] has the following parameters: CHAR1{3220} local CHAR2{3221} local [clone LOOP?[867] 3281] has the following parameters: CHAR1{3216} local CHAR2{3217} local [clone CHAR=?[864] 3278] has the following parameters: CHAR1{3211} local CHAR2{3212} local [clone LOOP?[867] 3275] has the following parameters: CHAR1{3207} local CHAR2{3208} local [clone CHAR=?[864] 3272] has the following parameters: CHAR1{3202} local CHAR2{3203} local [clone LOOP?[867] 3269] has the following parameters: CHAR1{3198} local CHAR2{3199} local [clone CHAR=?[864] 3266] has the following parameters: CHAR1{3193} local CHAR2{3194} local [clone LOOP?[867] 3263] has the following parameters: CHAR1{3189} local CHAR2{3190} local [clone CHAR=?[864] 3260] has the following parameters: CHAR1{3184} local CHAR2{3185} local [clone LOOP?[867] 3257] has the following parameters: CHAR1{3180} local CHAR2{3181} local [clone CHAR=?[864] 3254] has the following parameters: CHAR1{3175} local CHAR2{3176} local [clone LOOP?[867] 3251] has the following parameters: CHAR1{3171} local CHAR2{3172} local [clone CHAR=?[864] 3248] has the following parameters: CHAR1{3166} local CHAR2{3167} local [clone LOOP?[867] 3245] has the following parameters: CHAR1{3162} local CHAR2{3163} local [clone CHAR=?[864] 3242] has the following parameters: CHAR1{3157} local CHAR2{3158} local [clone LOOP?[867] 3239] has the following parameters: CHAR1{3153} local CHAR2{3154} local [clone CHAR=?[864] 3236] has the following parameters: CHAR1{3148} local CHAR2{3149} local [clone LOOP?[867] 3233] has the following parameters: CHAR1{3144} local CHAR2{3145} local [clone CHAR=?[864] 3230] has the following parameters: CHAR1{3139} local CHAR2{3140} local [clone LOOP?[867] 3227] has the following parameters: CHAR1{3135} local CHAR2{3136} local [clone CHAR=?[864] 3224] has the following parameters: CHAR1{3130} local CHAR2{3131} local [clone LOOP?[867] 3221] has the following parameters: CHAR1{3126} local CHAR2{3127} local [clone CHAR=?[864] 3218] has the following parameters: CHAR1{3121} local CHAR2{3122} local [clone LOOP?[867] 3215] has the following parameters: CHAR1{3117} local CHAR2{3118} local [clone CHAR=?[864] 3212] has the following parameters: CHAR1{3112} local CHAR2{3113} local [clone LOOP?[867] 3209] has the following parameters: CHAR1{3108} local CHAR2{3109} local [clone CHAR=?[864] 3206] has the following parameters: CHAR1{3103} local CHAR2{3104} local [clone LOOP?[867] 3203] has the following parameters: CHAR1{3099} local CHAR2{3100} local [clone CHAR=?[864] 3200] has the following parameters: CHAR1{3094} local CHAR2{3095} local [clone LOOP?[867] 3197] has the following parameters: CHAR1{3090} local CHAR2{3091} local [clone CHAR=?[864] 3194] has the following parameters: CHAR1{3085} local CHAR2{3086} local [clone LOOP?[867] 3191] has the following parameters: CHAR1{3081} local CHAR2{3082} local [clone CHAR=?[864] 3188] has the following parameters: CHAR1{3076} local CHAR2{3077} local [clone LOOP?[867] 3185] has the following parameters: CHAR1{3072} local CHAR2{3073} local [clone CHAR=?[864] 3182] has the following parameters: CHAR1{3067} local CHAR2{3068} local [clone LOOP?[867] 3179] has the following parameters: CHAR1{3063} local CHAR2{3064} local [clone CHAR=?[864] 3176] has the following parameters: CHAR1{3058} local CHAR2{3059} local [clone LOOP?[867] 3173] has the following parameters: CHAR1{3054} local CHAR2{3055} local [clone CHAR=?[864] 3170] has the following parameters: CHAR1{3049} local CHAR2{3050} local [clone LOOP?[867] 3167] has the following parameters: CHAR1{3045} local CHAR2{3046} local [clone CHAR=?[864] 3164] has the following parameters: CHAR1{3040} local CHAR2{3041} local [clone LOOP?[867] 3161] has the following parameters: CHAR1{3036} local CHAR2{3037} local [clone CHAR=?[864] 3158] has the following parameters: CHAR1{3031} local CHAR2{3032} local [clone LOOP?[867] 3155] has the following parameters: CHAR1{3027} local CHAR2{3028} local [clone CHAR=?[864] 3152] has the following parameters: CHAR1{3022} local CHAR2{3023} local [clone LOOP?[867] 3149] has the following parameters: CHAR1{3018} local CHAR2{3019} local [clone CHAR=?[864] 3146] has the following parameters: CHAR1{3013} local CHAR2{3014} local [clone LOOP?[867] 3143] has the following parameters: CHAR1{3009} local CHAR2{3010} local [clone CHAR=?[864] 3140] has the following parameters: CHAR1{3004} local CHAR2{3005} local [clone LOOP?[867] 3137] has the following parameters: CHAR1{3000} local CHAR2{3001} local [clone CHAR=?[864] 3134] has the following parameters: CHAR1{2995} local CHAR2{2996} local [clone LOOP?[867] 3131] has the following parameters: CHAR1{2991} local CHAR2{2992} local [clone CHAR=?[864] 3128] has the following parameters: CHAR1{2986} local CHAR2{2987} local [clone LOOP?[867] 3125] has the following parameters: CHAR1{2982} local CHAR2{2983} local [clone CHAR=?[864] 3122] has the following parameters: CHAR1{2977} local CHAR2{2978} local [clone LOOP?[867] 3119] has the following parameters: CHAR1{2973} local CHAR2{2974} local [clone CHAR=?[864] 3116] has the following parameters: CHAR1{2968} local CHAR2{2969} local [clone LOOP?[867] 3113] has the following parameters: CHAR1{2964} local CHAR2{2965} local [clone CHAR=?[864] 3110] has the following parameters: CHAR1{2959} local CHAR2{2960} local [clone LOOP?[867] 3107] has the following parameters: CHAR1{2955} local CHAR2{2956} local [clone CHAR=?[864] 3104] has the following parameters: CHAR1{2950} local CHAR2{2951} local [clone LOOP?[867] 3101] has the following parameters: CHAR1{2946} local CHAR2{2947} local [clone CHAR=?[864] 3098] has the following parameters: CHAR1{2941} local CHAR2{2942} local [clone LOOP?[867] 3095] has the following parameters: CHAR1{2937} local CHAR2{2938} local [clone CHAR=?[864] 3092] has the following parameters: CHAR1{2932} local CHAR2{2933} local [clone LOOP?[867] 3089] has the following parameters: CHAR1{2928} local CHAR2{2929} local [clone CHAR=?[864] 3086] has the following parameters: CHAR1{2923} local CHAR2{2924} local [clone LOOP?[867] 3083] has the following parameters: CHAR1{2919} local CHAR2{2920} local [clone CHAR=?[864] 3080] has the following parameters: CHAR1{2914} local CHAR2{2915} local [clone LOOP?[867] 3077] has the following parameters: CHAR1{2910} local CHAR2{2911} local [clone CHAR=?[864] 3074] has the following parameters: CHAR1{2905} local CHAR2{2906} local [clone LOOP?[867] 3071] has the following parameters: CHAR1{2901} local CHAR2{2902} local [clone CHAR=?[864] 3068] has the following parameters: CHAR1{2896} local CHAR2{2897} local [clone LOOP?[867] 3065] has the following parameters: CHAR1{2892} local CHAR2{2893} local [clone CHAR=?[864] 3062] has the following parameters: CHAR1{2887} local CHAR2{2888} local [clone LOOP?[867] 3059] has the following parameters: CHAR1{2883} local CHAR2{2884} local [clone CHAR=?[864] 3056] has the following parameters: CHAR1{2878} local CHAR2{2879} local [clone LOOP?[867] 3053] has the following parameters: CHAR1{2874} local CHAR2{2875} local [clone CHAR=?[864] 3050] has the following parameters: CHAR1{2869} local CHAR2{2870} local [clone LOOP?[867] 3047] has the following parameters: CHAR1{2865} local CHAR2{2866} local [clone CHAR=?[864] 3044] has the following parameters: CHAR1{2860} local CHAR2{2861} local [clone LOOP?[867] 3041] has the following parameters: CHAR1{2856} local CHAR2{2857} local [clone CHAR=?[864] 3038] has the following parameters: CHAR1{2851} local CHAR2{2852} local [clone LOOP?[867] 3035] has the following parameters: CHAR1{2847} local CHAR2{2848} local [clone CHAR=?[864] 3032] has the following parameters: CHAR1{2842} local CHAR2{2843} local [clone LOOP?[867] 3029] has the following parameters: CHAR1{2838} local CHAR2{2839} local [clone CHAR=?[864] 3026] has the following parameters: CHAR1{2833} local CHAR2{2834} local [clone LOOP?[867] 3023] has the following parameters: CHAR1{2829} local CHAR2{2830} local [clone CHAR=?[864] 3020] has the following parameters: CHAR1{2824} local CHAR2{2825} local [clone LOOP?[867] 3017] has the following parameters: CHAR1{2820} local CHAR2{2821} local [clone CHAR=?[864] 3014] has the following parameters: CHAR1{2815} local CHAR2{2816} local [clone LOOP?[867] 3011] has the following parameters: CHAR1{2811} local CHAR2{2812} local [clone CHAR=?[864] 3008] has the following parameters: CHAR1{2806} local CHAR2{2807} local [clone LOOP?[867] 3005] has the following parameters: CHAR1{2802} local CHAR2{2803} local [clone CHAR=?[864] 3002] has the following parameters: CHAR1{2797} local CHAR2{2798} local [clone LOOP?[867] 2999] has the following parameters: CHAR1{2793} local CHAR2{2794} local [clone CHAR=?[864] 2996] has the following parameters: CHAR1{2788} local CHAR2{2789} local [clone LOOP?[867] 2993] has the following parameters: CHAR1{2784} local CHAR2{2785} local [clone CHAR=?[864] 2990] has the following parameters: CHAR1{2779} local CHAR2{2780} local [clone LOOP?[873] 2987] has the following parameters: CHAR1{2775} local CHAR2{2776} local [clone CHAR?[876] 2978] has the following parameters: CHAR1{2761} local CHAR2{2762} local [clone LOOP?[885] 2975] has the following parameters: CHAR1{2757} local CHAR2{2758} local [clone CHAR<=?[882] 2972] has the following parameters: CHAR1{2752} local CHAR2{2753} local [clone LOOP?[885] 2969] has the following parameters: CHAR1{2748} local CHAR2{2749} local [clone CHAR<=?[882] 2966] has the following parameters: CHAR1{2743} local CHAR2{2744} local [clone LOOP?[885] 2963] has the following parameters: CHAR1{2739} local CHAR2{2740} local [clone CHAR<=?[882] 2960] has the following parameters: CHAR1{2734} local CHAR2{2735} local [clone LOOP?[885] 2957] has the following parameters: CHAR1{2730} local CHAR2{2731} local [clone CHAR<=?[882] 2954] has the following parameters: CHAR1{2725} local CHAR2{2726} local [clone LOOP?[885] 2951] has the following parameters: CHAR1{2721} local CHAR2{2722} local [clone CHAR<=?[882] 2948] has the following parameters: CHAR1{2716} local CHAR2{2717} local [clone LOOP?[885] 2945] has the following parameters: CHAR1{2712} local CHAR2{2713} local [clone CHAR<=?[882] 2942] has the following parameters: CHAR1{2707} local CHAR2{2708} local [clone LOOP?[885] 2939] has the following parameters: CHAR1{2703} local CHAR2{2704} local [clone CHAR<=?[882] 2936] has the following parameters: CHAR1{2698} local CHAR2{2699} local [clone LOOP?[885] 2933] has the following parameters: CHAR1{2694} local CHAR2{2695} local [clone CHAR<=?[882] 2930] has the following parameters: CHAR1{2689} local CHAR2{2690} local [clone LOOP?[885] 2927] has the following parameters: CHAR1{2685} local CHAR2{2686} local [clone CHAR<=?[882] 2924] has the following parameters: CHAR1{2680} local CHAR2{2681} local [clone LOOP?[885] 2921] has the following parameters: CHAR1{2676} local CHAR2{2677} local [clone CHAR<=?[882] 2918] has the following parameters: CHAR1{2671} local CHAR2{2672} local [clone LOOP?[885] 2915] has the following parameters: CHAR1{2667} local CHAR2{2668} local [clone CHAR<=?[882] 2912] has the following parameters: CHAR1{2662} local CHAR2{2663} local [clone LOOP?[885] 2909] has the following parameters: CHAR1{2658} local CHAR2{2659} local [clone CHAR<=?[882] 2906] has the following parameters: CHAR1{2653} local CHAR2{2654} local [clone LOOP?[885] 2903] has the following parameters: CHAR1{2649} local CHAR2{2650} local [clone CHAR<=?[882] 2900] has the following parameters: CHAR1{2644} local CHAR2{2645} local [clone LOOP?[891] 2897] has the following parameters: CHAR1{2640} local CHAR2{2641} local [clone CHAR>=?[888] 2894] has the following parameters: CHAR1{2635} local CHAR2{2636} local [clone LOOP?[891] 2891] has the following parameters: CHAR1{2631} local CHAR2{2632} local [clone CHAR>=?[888] 2888] has the following parameters: CHAR1{2626} local CHAR2{2627} local [clone LOOP?[891] 2885] has the following parameters: CHAR1{2622} local CHAR2{2623} local [clone CHAR>=?[888] 2882] has the following parameters: CHAR1{2617} local CHAR2{2618} local [clone LOOP?[891] 2879] has the following parameters: CHAR1{2613} local CHAR2{2614} local [clone CHAR>=?[888] 2876] has the following parameters: CHAR1{2608} local CHAR2{2609} local [clone LOOP?[891] 2873] has the following parameters: CHAR1{2604} local CHAR2{2605} local [clone CHAR>=?[888] 2870] has the following parameters: CHAR1{2599} local CHAR2{2600} local [clone LOOP?[891] 2867] has the following parameters: CHAR1{2595} local CHAR2{2596} local [clone CHAR>=?[888] 2864] has the following parameters: CHAR1{2590} local CHAR2{2591} local [clone LOOP?[891] 2861] has the following parameters: CHAR1{2586} local CHAR2{2587} local [clone CHAR>=?[888] 2858] has the following parameters: CHAR1{2581} local CHAR2{2582} local [clone LOOP?[891] 2855] has the following parameters: CHAR1{2577} local CHAR2{2578} local [clone CHAR>=?[888] 2852] has the following parameters: CHAR1{2572} local CHAR2{2573} local [clone LOOP?[891] 2849] has the following parameters: CHAR1{2568} local CHAR2{2569} local [clone CHAR>=?[888] 2846] has the following parameters: CHAR1{2563} local CHAR2{2564} local [clone LOOP?[891] 2843] has the following parameters: CHAR1{2559} local CHAR2{2560} local [clone CHAR>=?[888] 2840] has the following parameters: CHAR1{2554} local CHAR2{2555} local [clone LOOP?[891] 2837] has the following parameters: CHAR1{2550} local CHAR2{2551} local [clone CHAR>=?[888] 2834] has the following parameters: CHAR1{2545} local CHAR2{2546} local [clone LOOP?[891] 2831] has the following parameters: CHAR1{2541} local CHAR2{2542} local [clone CHAR>=?[888] 2828] has the following parameters: CHAR1{2536} local CHAR2{2537} local [clone LOOP?[891] 2825] has the following parameters: CHAR1{2532} local CHAR2{2533} local [clone CHAR>=?[888] 2822] has the following parameters: CHAR1{2527} local CHAR2{2528} local [clone PNM-WIDTH[15] 2817] has the following parameter: PNM{2526} local [clone PNM-WIDTH[15] 2812] has the following parameter: PNM{2525} local [clone PNM-WIDTH[15] 2807] has the following parameter: PNM{2524} local [clone PNM-WIDTH[15] 2802] has the following parameter: PNM{2523} local [clone PNM-HEIGHT[20] 2797] has the following parameter: PNM{2522} local [clone PNM-HEIGHT[20] 2792] has the following parameter: PNM{2521} local [clone PNM-HEIGHT[20] 2787] has the following parameter: PNM{2520} local [clone PNM-HEIGHT[20] 2782] has the following parameter: PNM{2519} local [clone READ-CHAR[2206] 2778] has the following parameter: &REST{2518} local [clone READ-CHAR[2206] 2774] has the following parameter: &REST{2517} local [clone READ-CHAR[2206] 2770] has the following parameter: &REST{2516} local [clone READ-CHAR[2206] 2766] has the following parameter: &REST{2515} local [clone READ-CHAR[2206] 2762] has the following parameter: &REST{2514} local [clone READ-CHAR[2206] 2758] has the following parameter: &REST{2513} local [clone READ-CHAR[2206] 2754] has the following parameter: &REST{2512} local [clone READ-CHAR[2206] 2750] has the following parameter: &REST{2511} local [clone READ-CHAR[2206] 2746] has the following parameter: &REST{2510} local [clone READ-CHAR[2206] 2742] has the following parameter: &REST{2509} local [clone READ-CHAR[2206] 2738] has the following parameter: &REST{2508} local [clone READ-CHAR[2206] 2734] has the following parameter: &REST{2507} local [clone READ-CHAR[2206] 2730] has the following parameter: &REST{2506} local [clone READ-CHAR[2206] 2726] has the following parameter: &REST{2505} local [clone READ-CHAR[2206] 2722] has the following parameter: &REST{2504} local [clone READ-CHAR[2206] 2718] has the following parameter: &REST{2503} local [clone READ-CHAR[2206] 2714] has the following parameter: &REST{2502} local [clone READ-CHAR[2206] 2710] has the following parameter: &REST{2501} local [clone READ-CHAR[2206] 2706] has the following parameter: &REST{2500} local [clone READ-CHAR[2206] 2702] has the following parameter: &REST{2499} local [clone READ-CHAR[2206] 2698] has the following parameter: &REST{2498} local [clone READ-CHAR[2206] 2694] has the following parameter: &REST{2497} local [clone READ-CHAR[2206] 2690] has the following parameter: &REST{2496} local [clone READ-CHAR[2206] 2686] has the following parameter: &REST{2495} local [clone READ-CHAR[2206] 2682] has the following parameter: &REST{2494} local [clone READ-CHAR[2206] 2678] has the following parameter: &REST{2493} local [clone READ-CHAR[2206] 2674] has the following parameter: &REST{2492} local [clone READ-CHAR[2206] 2670] has the following parameter: &REST{2491} local [clone READ-CHAR[2206] 2666] has the following parameter: &REST{2490} local [clone READ-CHAR[2206] 2662] has the following parameter: &REST{2489} local [clone READ-CHAR[2206] 2658] has the following parameter: &REST{2488} local [clone READ-CHAR[2206] 2654] has the following parameter: &REST{2487} local [clone READ-CHAR[2206] 2650] has the following parameter: &REST{2486} local [clone READ-CHAR[2206] 2646] has the following parameter: &REST{2485} local [clone READ-CHAR[2206] 2642] has the following parameter: &REST{2484} local [clone READ-CHAR[2206] 2638] has the following parameter: &REST{2483} local [clone READ-CHAR[2206] 2634] has the following parameter: &REST{2482} local [clone READ-CHAR[2206] 2630] has the following parameter: &REST{2481} local [clone READ-CHAR[2206] 2626] has the following parameter: &REST{2480} local [clone READ-CHAR[2206] 2622] has the following parameter: &REST{2479} local [clone READ-CHAR[2206] 2618] has the following parameter: &REST{2478} local [clone READ-CHAR[2206] 2614] has the following parameter: &REST{2477} local [clone READ-CHAR[2206] 2610] has the following parameter: &REST{2476} local [clone READ-CHAR[2206] 2606] has the following parameter: &REST{2475} local [clone READ-CHAR[2206] 2602] has the following parameter: &REST{2474} local [clone READ-CHAR[2206] 2598] has the following parameter: &REST{2473} local [clone READ-CHAR[2206] 2594] has the following parameter: &REST{2472} local [clone READ-CHAR[2206] 2590] has the following parameter: &REST{2471} local [clone READ-CHAR[2206] 2586] has the following parameter: &REST{2470} local [clone READ-CHAR[2206] 2582] has the following parameter: &REST{2469} local [clone READ-CHAR[2206] 2578] has the following parameter: &REST{2468} local [clone READ-CHAR[2206] 2574] has the following parameter: &REST{2467} local [clone READ-CHAR[2206] 2570] has the following parameter: &REST{2466} local [clone READ-CHAR[2206] 2566] has the following parameter: &REST{2465} local [clone READ-CHAR[2206] 2562] has the following parameter: &REST{2464} local [clone READ-CHAR[2206] 2558] has the following parameter: &REST{2463} local [clone READ-CHAR[2206] 2554] has the following parameter: &REST{2462} local [clone READ-CHAR[2206] 2550] has the following parameter: &REST{2461} local [clone READ-CHAR[2206] 2546] has the following parameter: &REST{2460} local [clone PEEK-CHAR[2210] 2542] has the following parameter: &REST{2459} local [clone PEEK-CHAR[2210] 2538] has the following parameter: &REST{2458} local [clone PEEK-CHAR[2210] 2534] has the following parameter: &REST{2457} local [clone PEEK-CHAR[2210] 2530] has the following parameter: &REST{2456} local [clone PEEK-CHAR[2210] 2526] has the following parameter: &REST{2455} local [clone PEEK-CHAR[2210] 2522] has the following parameter: &REST{2454} local [clone PEEK-CHAR[2210] 2518] has the following parameter: &REST{2453} local [clone PEEK-CHAR[2210] 2514] has the following parameter: &REST{2452} local [clone PEEK-CHAR[2210] 2510] has the following parameter: &REST{2451} local [clone PEEK-CHAR[2210] 2506] has the following parameter: &REST{2450} local [clone PEEK-CHAR[2210] 2502] has the following parameter: &REST{2449} local [clone PEEK-CHAR[2210] 2498] has the following parameter: &REST{2448} local [clone PEEK-CHAR[2210] 2494] has the following parameter: &REST{2447} local [clone NEWLINE[2226] 2490] has the following parameter: &REST{2446} local [clone NEWLINE[2226] 2486] has the following parameter: &REST{2445} local [clone NEWLINE[2226] 2482] has the following parameter: &REST{2444} local [clone WRITE-CHAR[2230] 2478] has the following parameters: CHAR{2442} local &REST{2443} local [clone LIST[522] 2477] has the following parameter: OBJS{2441} local [clone LIST[522] 2476] has the following parameter: OBJS{2440} local [clone LIST[522] 2475] has the following parameter: OBJS{2439} local [clone LIST[522] 2474] has the following parameter: OBJS{2438} local [clone LIST[522] 2473] has the following parameter: OBJS{2437} local [clone LIST[522] 2472] has the following parameter: OBJS{2436} local [clone LIST[522] 2471] has the following parameter: OBJS{2435} local [clone LIST[522] 2470] has the following parameter: OBJS{2434} local [clone LIST[522] 2469] has the following parameter: OBJS{2433} local [clone LIST[522] 2468] has the following parameter: OBJS{2432} local WRITE-CHAR[2230] has the following parameters: CHAR{2422} local &REST{2423} local NEWLINE[2226] has the following parameter: &REST{2421} local WRITE[2218] has the following parameters: OBJ{2417} local &REST{2418} local PEEK-CHAR[2210] has the following parameter: &REST{2415} local READ-CHAR[2206] has the following parameter: &REST{2414} local LOOP[1765] has the following parameter: I{2144} local LOOP[1762] has the following parameters: I{2140} local NUMBER{2141} local LOOP[1751] has the following parameter: I{2134} local LOOP[1748] has the following parameters: I{2130} local NUMBER{2131} local DISPLAY-EXACT-INTEGER2[1744] has the following parameters: NUMBER{2126} local PORT{2127} local LOOP[1739] has the following parameter: I{2124} local [inside DISPLAY-STRING2 1736] has the following parameter: N{2121} local DISPLAY-STRING2[1735] has the following parameters: STRING{2119} local PORT{2120} local [inside top level 1731] has the following parameters: THE-CURRENT-OUTPUT-PORT{2080} global THE-CURRENT-INPUT-PORT{2081} global BUFFER{2082} global [inside READ-CHARACTER-NAME 1704] has the following parameter: C{2075} local READ-CHARACTER-NAME[1703] has region has the following parameter: S{2074} local [inside LOOP? 1699] has the following parameter: v{2073} local LOOP?[1698] has the following parameters: S{2071} local NAME{2072} local LOOP[1694] has the following parameter: NAMES{2067} local [inside READ-SYMBOL 1690] has region [inside READ-SYMBOL 1687] has region [inside READ-SYMBOL 1686] has the following parameter: C{2062} local [inside CHAR-SUBSEQUENT? 1684] has the following parameter: v{2060} local [inside CHAR-SUBSEQUENT? 1683] has the following parameter: v{2059} local [inside CHAR-SUBSEQUENT? 1682] has the following parameter: v{2058} local [inside CHAR-SUBSEQUENT? 1681] has the following parameter: v{2057} local CHAR-SUBSEQUENT?[1680] has the following parameter: C{2056} local [inside CHAR-INITIAL? 1679] has the following parameter: v{2055} local [inside CHAR-INITIAL? 1678] has the following parameter: v{2054} local [inside CHAR-INITIAL? 1677] has the following parameter: v{2053} local [inside CHAR-INITIAL? 1676] has the following parameter: v{2052} local [inside CHAR-INITIAL? 1675] has the following parameter: v{2051} local [inside CHAR-INITIAL? 1674] has the following parameter: v{2050} local [inside CHAR-INITIAL? 1673] has the following parameter: v{2049} local [inside CHAR-INITIAL? 1672] has the following parameter: v{2048} local [inside CHAR-INITIAL? 1671] has the following parameter: v{2047} local [inside CHAR-INITIAL? 1670] has the following parameter: v{2046} local [inside CHAR-INITIAL? 1669] has the following parameter: v{2045} local [inside CHAR-INITIAL? 1668] has the following parameter: v{2044} local [inside CHAR-INITIAL? 1667] has the following parameter: v{2043} local [inside CHAR-INITIAL? 1666] has the following parameter: v{2042} local [inside READ-NUMBER 1658] has the following parameter: C3{2038} local [inside READ-NUMBER 1657] has region [inside READ-NUMBER 1653] has the following parameter: C3{2035} local [inside READ-NUMBER 1652] has region [inside READ-NUMBER 1649] has the following parameter: C2{2033} local [inside READ-NUMBER 1648] has region [inside READ-NUMBER 1647] has region [inside READ-NUMBER 1646] has the following parameter: v{2031} local [inside READ-NUMBER 1645] has the following parameter: v{2030} local [inside READ-NUMBER 1644] has the following parameter: v{2029} local [inside READ-NUMBER 1643] has the following parameter: v{2028} local [inside READ-NUMBER 1642] has the following parameter: v{2027} local [inside READ-NUMBER 1641] has the following parameter: v{2026} local [inside READ-NUMBER 1640] has the following parameter: v{2025} local [inside READ-NUMBER 1639] has the following parameter: v{2024} local [inside READ-NUMBER 1638] has the following parameter: v{2023} local [inside READ-NUMBER 1636] has region [inside READ-NUMBER 1632] has the following parameter: C1{2020} local [inside READ-INEXACT-NUMBER 1624] has the following parameter: C3{2016} local [inside READ-INEXACT-NUMBER 1623] has region [inside READ-INEXACT-NUMBER 1619] has the following parameter: C3{2013} local [inside READ-INEXACT-NUMBER 1618] has region [inside READ-INEXACT-NUMBER 1615] has the following parameter: C2{2011} local [inside READ-INEXACT-NUMBER 1614] has region [inside READ-INEXACT-NUMBER 1613] has region [inside READ-INEXACT-NUMBER 1612] has the following parameter: v{2009} local [inside READ-INEXACT-NUMBER 1611] has the following parameter: v{2008} local [inside READ-INEXACT-NUMBER 1610] has the following parameter: v{2007} local [inside READ-INEXACT-NUMBER 1609] has the following parameter: v{2006} local [inside READ-INEXACT-NUMBER 1608] has the following parameter: v{2005} local [inside READ-INEXACT-NUMBER 1607] has the following parameter: v{2004} local [inside READ-INEXACT-NUMBER 1606] has the following parameter: v{2003} local [inside READ-INEXACT-NUMBER 1605] has the following parameter: v{2002} local [inside READ-INEXACT-NUMBER 1604] has the following parameter: v{2001} local [inside READ-INEXACT-NUMBER 1600] has the following parameter: C1{1999} local [inside READ-EXACT-HEXADECIMAL-INTEGER 1590] has the following parameter: C{1993} local [inside READ-EXACT-DECIMAL-INTEGER 1584] has the following parameter: C{1990} local [inside READ-EXACT-OCTAL-INTEGER 1578] has the following parameter: C{1987} local [inside READ-EXACT-BINARY-INTEGER 1570] has the following parameter: C{1983} local [inside READ 1567] has region [inside READ 1562] has region [inside READ 1561] has region [inside READ 1559] has region [inside READ 1557] has the following parameter: C2{1978} local [inside READ 1556] has region [inside READ 1554] has region [inside READ 1553] has region [inside READ 1551] has region [inside READ 1550] has region [inside READ 1548] has region [inside READ 1546] has the following parameter: C3{1974} local [inside READ 1545] has region [inside READ 1544] has region [inside READ 1542] has region [inside READ 1540] has the following parameter: C2{1971} local [inside READ 1539] has region [inside READ 1537] has region [inside READ 1536] has region [inside READ 1534] has region [inside READ 1533] has region [inside READ 1531] has region [inside READ 1529] has the following parameter: C3{1967} local [inside READ 1528] has region [inside READ 1527] has region [inside READ 1525] has region [inside READ 1523] has the following parameter: C2{1964} local [inside READ 1522] has region [inside LOOP 1518] has region [inside LOOP 1515] has the following parameter: C1{1962} local [inside LOOP 1512] has the following parameter: C{1960} local LOOP[1511] has region has the following parameter: S{1959} local [inside READ 1504] has region [inside READ 1503] has the following parameter: C3{1955} local [inside READ 1502] has region [inside LOOP 1500] reentrant has the following parameter: E{1954} local LOOP[1499] reentrant has region has the following parameter: S{1953} local [inside READ 1496] reentrant [inside READ 1487] has the following parameter: C4{1949} local [inside READ 1486] has region [inside READ 1479] has the following parameter: C4{1947} local [inside READ 1478] has region [inside READ 1473] has the following parameter: C3{1945} local [inside READ 1472] has region [inside READ 1471] has the following parameter: v{1944} local [inside READ 1464] has the following parameter: C4{1941} local [inside READ 1463] has region [inside READ 1457] has the following parameter: C5{1938} local [inside READ 1456] has region [inside READ 1453] has the following parameter: C4{1936} local [inside READ 1452] has region [inside READ 1446] has the following parameter: C5{1933} local [inside READ 1445] has region [inside READ 1442] has the following parameter: C4{1931} local [inside READ 1441] has region [inside READ 1439] has the following parameter: C3{1929} local [inside READ 1438] has region [inside READ 1437] has the following parameter: v{1928} local [inside READ 1433] has the following parameter: v{1927} local [inside READ 1430] has the following parameter: C4{1924} local [inside READ 1429] has region [inside READ 1427] has the following parameter: v{1923} local [inside READ 1424] has the following parameter: C4{1920} local [inside READ 1423] has region [inside READ 1420] has the following parameter: C3{1918} local [inside READ 1419] has region [inside READ 1418] has the following parameter: v{1917} local [inside READ 1410] has the following parameter: C4{1915} local [inside READ 1409] has region [inside READ 1403] has the following parameter: C4{1913} local [inside READ 1402] has region [inside READ 1398] has the following parameter: C3{1911} local [inside READ 1397] has region [inside READ 1396] has the following parameter: v{1910} local [inside READ 1394] has the following parameter: v{1909} local [inside READ 1392] has the following parameter: v{1908} local [inside READ 1391] reentrant [inside READ 1390] reentrant has the following parameter: C2{1906} local [inside READ 1389] reentrant [inside LOOP 1387] reentrant LOOP[1383] has the following parameters: S{1904} local C{1905} local [inside LOOP 1378] reentrant has the following parameter: E1{1900} local [inside LOOP 1377] reentrant [inside LOOP 1376] reentrant [inside LOOP 1375] reentrant has the following parameter: E{1898} local LOOP[1374] reentrant has region has the following parameter: S{1897} local [inside READ 1371] reentrant [inside READ 1369] reentrant [inside READ 1368] reentrant [inside READ 1367] reentrant [inside READ 1366] reentrant [inside READ 1365] reentrant has the following parameter: C2{1892} local [inside READ 1364] reentrant [inside READ 1363] reentrant [inside READ 1362] reentrant [inside READ 1360] reentrant [inside READ 1351] reentrant [inside READ 1350] reentrant [inside READ 1339] reentrant has the following parameter: C1{1887} local [inside READ 1338] reentrant [inside READ 1337] reentrant [inside READ 1333] has the following parameters: CLOSE{1860} global DOT{1861} global [inside CALL-WITH-OUTPUT-FILE 1317] has the following parameter: OUTPUT-PORT{1849} local CALL-WITH-OUTPUT-FILE[1316] has the following parameter: STRING{1847} local [inside CALL-WITH-INPUT-FILE 1313] has the following parameter: R{1845} local [inside CALL-WITH-INPUT-FILE 1312] has the following parameter: INPUT-PORT{1844} local CALL-WITH-INPUT-FILE[1311] has the following parameter: STRING{1842} local LOOP[1176] has the following parameter: K{1729} local [inside LIST->VECTOR 1172] has the following parameter: R{1725} local LIST->VECTOR[1171] has the following parameter: LIST{1724} local LOOP[1123] has the following parameter: K{1684} local [inside STRING-COPY 1118] has the following parameter: R{1680} local [inside STRING-COPY 1117] has the following parameter: N{1679} local LOOP[1111] has the following parameter: K{1675} local [inside LIST->STRING 1107] has the following parameter: R{1671} local LOOP[1098] has the following parameters: K{1663} local STRINGS{1664} local LOOP[1089] has the following parameter: L{1658} local [inside LOOP 1085] has the following parameter: N{1654} local LOOP[1084] has the following parameter: STRINGS{1653} local [inside STRING-APPEND 1079] has the following parameter: K{1649} local [inside STRING-APPEND 1078] has the following parameter: R{1648} local STRING-APPEND[1077] has the following parameter: STRINGS{1647} local [inside LOOP? 963] has the following parameter: v{1502} local LOOP?[962] has the following parameter: K{1501} local [inside LOOP? 959] has the following parameter: N{1498} local LOOP?[958] has the following parameters: STRING1{1495} local STRING2{1496} local CHAR-UPCASE[937] has the following parameter: CHAR{1472} local [inside CHAR-WHITESPACE? 932] has the following parameter: v{1467} local [inside CHAR-WHITESPACE? 931] has the following parameter: v{1466} local [inside CHAR-WHITESPACE? 930] has the following parameter: v{1465} local [inside CHAR-WHITESPACE? 929] has the following parameter: v{1464} local [inside CHAR-WHITESPACE? 928] has the following parameter: C{1463} local CHAR-WHITESPACE?[927] has the following parameter: CHAR{1462} local CHAR-NUMERIC?[926] has the following parameter: CHAR{1461} local [inside CHAR-ALPHABETIC? 925] has the following parameter: v{1460} local CHAR-ALPHABETIC?[924] has the following parameter: CHAR{1459} local LOOP?[897] has the following parameters: CHAR1{1419} local CHAR2{1420} local CHAR-CI=?[894] has the following parameters: CHAR1{1414} local CHAR2{1415} local LOOP?[891] has the following parameters: CHAR1{1410} local CHAR2{1411} local CHAR>=?[888] has the following parameters: CHAR1{1405} local CHAR2{1406} local LOOP?[885] has the following parameters: CHAR1{1401} local CHAR2{1402} local CHAR<=?[882] has the following parameters: CHAR1{1396} local CHAR2{1397} local LOOP?[879] has the following parameters: CHAR1{1392} local CHAR2{1393} local CHAR>?[876] has the following parameters: CHAR1{1387} local CHAR2{1388} local LOOP?[873] has the following parameters: CHAR1{1383} local CHAR2{1384} local CHARCHAR) (# # X)) PORT) The following expression, nfm-stalin.sc:239:8315, allocates on the stack: (STRING-APPEND PATHNAME (IF (PBM? PNM) (#) (IF # # #))) The following expression, nfm-stalin.sc:95:3448, allocates on the stack: (READ PORT) The following expression, nfm-stalin.sc:96:3489, allocates on the stack: (READ PORT) The following expression, nfm-stalin.sc:97:3530, allocates on the stack: (READ PORT) The following expression, nfm-stalin.sc:99:3588, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) HEIGHT) The following expression, nfm-stalin.sc:102:3682, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) WIDTH) The following expression, nfm-stalin.sc:105:3753, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) HEIGHT) The following expression, nfm-stalin.sc:108:3853, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) WIDTH) The following expression, nfm-stalin.sc:111:3927, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) HEIGHT) The following expression, nfm-stalin.sc:114:4024, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) WIDTH) The following expression, nfm-stalin.sc:132:4678, allocates on loop[172]: (READ PORT) The following expression, nfm-stalin.sc:133:4703, allocates on [inside loop 176]: (READ PORT) The following expression, nfm-stalin.sc:134:4728, allocates on [inside loop 177]: (READ PORT) The following expression, nfm-stalin.sc:120:4162, allocates on the stack: (READ-CHAR PORT) The following expression, nfm-stalin.sc:123:4280, allocates on loop[151]: (READ-CHAR PORT) The following expression, nfm-stalin.sc:124:4310, allocates on [inside loop 155]: (READ-CHAR PORT) The following expression, nfm-stalin.sc:125:4340, allocates on [inside loop 156]: (READ-CHAR PORT) The following expression, nfm-stalin.sc:139:4963, allocates on the heap: (MAKE-PPM RAW? MAXVAL RED GREEN BLUE) The following expression, nfm-stalin.sc:69:2530, allocates on the stack: (READ PORT) The following expression, nfm-stalin.sc:70:2571, allocates on the stack: (READ PORT) The following expression, nfm-stalin.sc:71:2612, allocates on the stack: (READ PORT) The following expression, nfm-stalin.sc:73:2671, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) HEIGHT) The following expression, nfm-stalin.sc:76:2768, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) WIDTH) The following expression, nfm-stalin.sc:90:3242, allocates on loop[112]: (READ PORT) The following expression, nfm-stalin.sc:82:2906, allocates on the stack: (READ-CHAR PORT) The following expression, nfm-stalin.sc:85:3022, allocates on loop[94]: (READ-CHAR PORT) The following expression, nfm-stalin.sc:93:3359, allocates on the heap: (MAKE-PGM RAW? MAXVAL GREY) The following expression, nfm-stalin.sc:49:1871, allocates on the stack: (READ PORT) The following expression, nfm-stalin.sc:50:1912, allocates on the stack: (READ PORT) The following expression, nfm-stalin.sc:51:1946, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) HEIGHT) The following expression, nfm-stalin.sc:54:2042, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) WIDTH) The following expression, nfm-stalin.sc:64:2326, allocates on loop[57]: (READ PORT) The following expression, nfm-stalin.sc:67:2446, allocates on the heap: (MAKE-PBM RAW? BITMAP) The following expression, nfm-stalin.sc:140:5019, allocates on the stack: (READ PORT) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W27246 is general case for the following reasons: nondegenerate nonheaded vector W16548 is general case for the following reasons: flonum W16547 is general case for the following reasons: flonum W16530 is general case for the following reasons: flonum W16119 is general case for the following reasons: flonum W16086 is general case for the following reasons: flonum W16085 is general case for the following reasons: flonum W16084 is general case for the following reasons: flonum W15329 is general case for the following reasons: flonum W15317 is general case for the following reasons: flonum W555 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code nfm-stalin.c: In function `f1685': nfm-stalin.c:1770: warning: value computed is not used nfm-stalin.c: In function `f1631': nfm-stalin.c:2772: warning: value computed is not used nfm-stalin.c:2824: warning: value computed is not used nfm-stalin.c:3008: warning: value computed is not used nfm-stalin.c: In function `f1599': nfm-stalin.c:3698: warning: value computed is not used nfm-stalin.c:3890: warning: value computed is not used nfm-stalin.c: In function `f1589': nfm-stalin.c:4357: warning: value computed is not used nfm-stalin.c:4414: warning: value computed is not used nfm-stalin.c:4472: warning: value computed is not used nfm-stalin.c: In function `f1583': nfm-stalin.c:4606: warning: value computed is not used nfm-stalin.c: In function `f1577': nfm-stalin.c:4735: warning: value computed is not used nfm-stalin.c: In function `f1569': nfm-stalin.c:4856: warning: value computed is not used nfm-stalin.c:4894: warning: value computed is not used nfm-stalin.c: In function `f1336': nfm-stalin.c:7736: warning: value computed is not used nfm-stalin.c:10298: warning: value computed is not used nfm-stalin.c:10649: warning: value computed is not used nfm-stalin.c:10704: warning: value computed is not used nfm-stalin.c:10799: warning: value computed is not used nfm-stalin.c:10925: warning: value computed is not used nfm-stalin.c:11149: warning: value computed is not used nfm-stalin.c:11347: warning: value computed is not used nfm-stalin.c:11415: warning: value computed is not used nfm-stalin.c:11510: warning: value computed is not used nfm-stalin.c:11636: warning: value computed is not used nfm-stalin.c:11860: warning: value computed is not used nfm-stalin.c:12053: warning: value computed is not used nfm-stalin.c:12178: warning: value computed is not used nfm-stalin.c: In function `f130': nfm-stalin.c:15019: warning: value computed is not used nfm-stalin.c: In function `f75': nfm-stalin.c:15450: warning: value computed is not used Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 1% - Expanding macros 3 - 1% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 1 - 0% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 37 - 9% - Performing flow analysis 0 - 0% - Enumerating call sites 2 - 0% - Determining which types and type sets are used 29 - 7% - Determining which call sites to split 0 - 0% - Computing call graph 7 - 2% - Determining which environments are called more than once 2 - 0% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 45 - 11% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 4 - 1% - Determining which environments are recursive 13 - 3% - Determining which environments are reentrant 1 - 0% - Asserting uniqueness 196 - 46% - Performing lightweight closure conversion 0 - 0% - Determining parents 4 - 1% - Determining which expressions need conversion to CPS 2 - 0% - Determining environment distances from root 1 - 0% - Determining which environments have external self tail calls 5 - 1% - Determining which environments have external continuation calls 9 - 2% - Determining blocked environments 0 - 0% - Determining allocations 10 - 2% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 3 - 1% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 34 - 8% - Generating code 13 - 3% - Removing unused declarations 2 - 0% - Removing unused labels 1 - 0% - Writing database 0 - 0% - Compiling C code 434.82user 0.98system 7:27.55elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (34019major+448818minor)pagefaults 0swaps run nfm 3.78user 0.08system 0:08.68elapsed 44%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (106major+669minor)pagefaults 0swaps compile integ Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 14891 expressions 0 internal symbol types 0 external symbol types 35 primitive procedure types 210 non-called native procedure types 265 called noop native procedure types 108 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 16997 type sets 600 hunoz variables 1504 non-hunoz variables 476 noop environments 1569 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 14891 expressions 0 internal symbol types 0 external symbol types 35 primitive procedure types 210 non-called native procedure types 265 called noop native procedure types 108 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 16997 type sets 600 hunoz variables 1504 non-hunoz variables 476 noop environments 1569 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 2044 expressions 0 internal symbol types 0 external symbol types 35 primitive procedure types 210 non-called native procedure types 265 called noop native procedure types 108 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 2842 type sets 273 hunoz variables 523 non-hunoz variables 0 noop environments 108 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: DISPLAY-MANTISSA-EXPONENT2[1350] has the following parameters: MANTISSA{1819} local EXPONENT{1820} local PORT{1821} local has the following in-lined locals: NUMBER{1798} PORT{1799} I{1802} NUMBER{1803} I{1806} I{1812} NUMBER{1813} I{1816} FLOAT-DIGIT{1822} DIGIT{1823} MANTISSA{1830} FLOAT-DIGIT{1831} DIGIT{1832} MANTISSA{1834} DISPLAY-STRING2[1312] has the following parameters: STRING{1791} local PORT{1792} local has the following in-lined locals: N{1793} I{1796} [inside INTEGRATE-2D 12] has parent parameter [inside INTEGRATE-2D 11] has the following parameter: X{674} local has the following in-lined locals: X{677} Y{678} [inside INTEGRATE-2D 11] reentrant has closure has the following parameter: Y{673} slotted INTEGRATE-1D[8] reentrant has the following parameters: L{664} local U{665} local F{666} local has the following in-lined local: D{667} [inside top level 0] has the following in-lined locals: L2{670} U2{671} U{675} V{676} N{679} I{682} SUM{683} N{684} I{687} SUM{688} I2{689} N{690} I{693} SUM{694} E{695} NUMBER{1835} PORT{1836} MANTISSA{1840} EXPONENT{1841} MANTISSA{1844} EXPONENT{1845} OBJ{1880} PORT{1881} OBJ{2091} The following non-trivial in-line native procedures will be generated: DISPLAY[1799] has the following parameter: OBJ{2091} local DISPLAY2[1448] has the following parameters: OBJ{1880} local PORT{1881} local LOOP[1385] has the following parameters: MANTISSA{1844} local EXPONENT{1845} local LOOP[1380] has the following parameters: MANTISSA{1840} local EXPONENT{1841} local DISPLAY-INEXACT-REAL2[1371] has the following parameters: NUMBER{1835} local PORT{1836} local [inside LOOP 1368] has the following parameter: MANTISSA{1834} local [inside LOOP 1365] has the following parameter: DIGIT{1832} local [inside LOOP 1364] has the following parameter: FLOAT-DIGIT{1831} local LOOP[1363] has the following parameter: MANTISSA{1830} local [inside DISPLAY-MANTISSA-EXPONENT2 1352] has the following parameter: DIGIT{1823} local [inside DISPLAY-MANTISSA-EXPONENT2 1351] has the following parameter: FLOAT-DIGIT{1822} local LOOP[1342] has the following parameter: I{1816} local LOOP[1339] has the following parameters: I{1812} local NUMBER{1813} local LOOP[1328] has the following parameter: I{1806} local LOOP[1325] has the following parameters: I{1802} local NUMBER{1803} local DISPLAY-EXACT-INTEGER2[1321] has the following parameters: NUMBER{1798} local PORT{1799} local LOOP[1316] has the following parameter: I{1796} local [inside DISPLAY-STRING2 1313] has the following parameter: N{1793} local [inside top level 1308] has the following parameters: THE-CURRENT-OUTPUT-PORT{1752} global BUFFER{1754} global [inside loop 36] has the following parameter: E{695} local loop[33] has the following parameters: I{693} local SUM{694} local ERROR-SUM-OF-SQUARES[30] has the following parameter: N{690} local [inside loop 28] has the following parameter: I2{689} local loop[25] has the following parameters: I{687} local SUM{688} local I-TOTAL[22] has the following parameter: N{684} local loop[18] has the following parameters: I{682} local SUM{683} local R-TOTAL[15] has the following parameter: N{679} local [inside ZARK 14] has the following parameters: X{677} local Y{678} local ZARK[13] has the following parameters: U{675} local V{676} local INTEGRATE-2D[10] has the following parameters: L1{668} global U1{669} global L2{670} local U2{671} local [inside INTEGRATE-1D 9] reentrant has the following parameter: D{667} local The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20) The closure for [inside INTEGRATE-2D 11] is allocated on the stack Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W14892 is general case for the following reasons: nondegenerate nonheaded vector W2425 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 11% - Expanding macros 6 - 33% - Fast tree shake 0 - 1% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 1% - Annotating expressions with their environments 0 - 3% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 3 - 18% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 0 - 2% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 1% - Determining which environments are called more than once 0 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 1 - 5% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 0% - Determining which environments are recursive 0 - 1% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 2 - 11% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 2% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 0 - 1% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 1% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 0 - 1% - Generating code 0 - 0% - Removing unused declarations 0 - 1% - Removing unused labels 0 - 3% - Writing database 0 - 0% - Compiling C code 17.83user 0.31system 0:20.26elapsed 89%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32727major+217034minor)pagefaults 0swaps run integ 1.18user 0.01system 0:01.26elapsed 93%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (93major+33minor)pagefaults 0swaps compile gold Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 15435 expressions 0 internal symbol types 0 external symbol types 37 primitive procedure types 210 non-called native procedure types 279 called noop native procedure types 149 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 2 headed vector types 1 nonheaded vector type 0 displaced vector types 17623 type sets 617 hunoz variables 1568 non-hunoz variables 490 noop environments 1610 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 15435 expressions 0 internal symbol types 0 external symbol types 37 primitive procedure types 210 non-called native procedure types 279 called noop native procedure types 149 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 2 headed vector types 1 nonheaded vector type 0 displaced vector types 17623 type sets 617 hunoz variables 1568 non-hunoz variables 490 noop environments 1610 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 2588 expressions 0 internal symbol types 0 external symbol types 37 primitive procedure types 210 non-called native procedure types 279 called noop native procedure types 149 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 0 structure types 2 headed vector types 1 nonheaded vector type 0 displaced vector types 3468 type sets 290 hunoz variables 587 non-hunoz variables 0 noop environments 149 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: DISPLAY-MANTISSA-EXPONENT2[1407] has the following parameters: MANTISSA{1903} local EXPONENT{1904} local PORT{1905} local has the following in-lined locals: NUMBER{1882} PORT{1883} I{1886} NUMBER{1887} I{1890} I{1896} NUMBER{1897} I{1900} FLOAT-DIGIT{1906} DIGIT{1907} MANTISSA{1914} FLOAT-DIGIT{1915} DIGIT{1916} MANTISSA{1918} DISPLAY-STRING2[1369] has the following parameters: STRING{1875} local PORT{1876} local has the following in-lined locals: N{1877} I{1880} [inside G 57] has the following parameter: FM{762} local [inside G 56] has the following parameters: AX{755} local BX{757} local CX{759} local has the following in-lined locals: X{685} X{686} X{687} X{688} X{689} TOL{722} AX{723} BX{724} CX{725} GOLD{727} R{728} C{729} X1{730} X2{731} X0{735} X1{736} F1{737} X2{738} F2{739} X3{740} XN{741} XN{742} FUNC[53] has the following parameter: X{748} local has the following in-lined locals: X{744} X{745} X{746} X{747} A4{749} A3{750} A2{751} A1{752} LOOP[21] has the following parameters: AX{704} local FA{705} local BX{706} local FB{707} local CX{708} local FC{709} local has the following in-lined locals: X{684} R{710} Q{711} UX{712} UL{713} FU{714} VX{715} FU{716} VX{717} VX{718} X{719} Y{720} [inside top level 0] has the following in-lined locals: AX{691} BX{692} FB{700} FA{701} VX{702} VX{703} L{753} U{754} N{763} EPS{764} SUM{765} I{770} I{774} J{778} NUMBER{1919} PORT{1920} MANTISSA{1924} EXPONENT{1925} MANTISSA{1928} EXPONENT{1929} OBJ{1964} PORT{1965} OBJ{2175} The following non-trivial in-line native procedures will be generated: DISPLAY[1856] has the following parameter: OBJ{2175} local DISPLAY2[1505] has the following parameters: OBJ{1964} local PORT{1965} local LOOP[1442] has the following parameters: MANTISSA{1928} local EXPONENT{1929} local LOOP[1437] has the following parameters: MANTISSA{1924} local EXPONENT{1925} local DISPLAY-INEXACT-REAL2[1428] has the following parameters: NUMBER{1919} local PORT{1920} local [inside LOOP 1425] has the following parameter: MANTISSA{1918} local [inside LOOP 1422] has the following parameter: DIGIT{1916} local [inside LOOP 1421] has the following parameter: FLOAT-DIGIT{1915} local LOOP[1420] has the following parameter: MANTISSA{1914} local [inside DISPLAY-MANTISSA-EXPONENT2 1409] has the following parameter: DIGIT{1907} local [inside DISPLAY-MANTISSA-EXPONENT2 1408] has the following parameter: FLOAT-DIGIT{1906} local LOOP[1399] has the following parameter: I{1900} local LOOP[1396] has the following parameters: I{1896} local NUMBER{1897} local LOOP[1385] has the following parameter: I{1890} local LOOP[1382] has the following parameters: I{1886} local NUMBER{1887} local DISPLAY-EXACT-INTEGER2[1378] has the following parameters: NUMBER{1882} local PORT{1883} local LOOP[1373] has the following parameter: I{1880} local [inside DISPLAY-STRING2 1370] has the following parameter: N{1877} local [inside top level 1365] has the following parameters: THE-CURRENT-OUTPUT-PORT{1836} global BUFFER{1838} global loop[79] has the following parameter: J{778} local loop[73] has the following parameter: I{774} local loop[66] has the following parameter: I{770} local [inside TEST 61] has the following parameter: SUM{765} local [inside TEST 60] has the following parameter: EPS{764} local [inside TEST 59] has the following parameter: N{763} local G[55] has the following parameters: L{753} local U{754} local [inside FUNC 54] has the following parameters: A4{749} local A3{750} local A2{751} local A1{752} local SQR4[52] has the following parameter: X{747} local SQR3[51] has the following parameter: X{746} local SQR2[50] has the following parameter: X{745} local SQR1[49] has the following parameter: X{744} local [inside LOOP 46] has the following parameter: XN{742} local [inside LOOP 45] has the following parameter: XN{741} local LOOP[44] has the following parameters: X0{735} local X1{736} local F1{737} local X2{738} local F2{739} local X3{740} local [inside GOLDEN 39] has the following parameter: X2{731} local [inside GOLDEN 38] has the following parameter: X1{730} local [inside GOLDEN 37] has the following parameter: C{729} local [inside GOLDEN 36] has the following parameter: R{728} local [inside GOLDEN 35] has the following parameter: GOLD{727} local GOLDEN[34] has the following parameters: TOL{722} local AX{723} local BX{724} local CX{725} local [inside MNBRAK 33] has the following parameters: X{719} local Y{720} local [inside LOOP 31] has the following parameter: VX{718} local [inside LOOP 30] has the following parameter: VX{717} local [inside LOOP 29] has the following parameter: FU{716} local [inside LOOP 28] has the following parameter: VX{715} local [inside LOOP 27] has the following parameter: FU{714} local [inside LOOP 25] has the following parameter: UL{713} local [inside LOOP 24] has the following parameter: UX{712} local [inside LOOP 23] has the following parameter: Q{711} local [inside LOOP 22] has the following parameter: R{710} local [inside MNBRAK 20] has the following parameter: VX{703} local [inside MNBRAK 19] has the following parameter: VX{702} local [inside MNBRAK 18] has the following parameters: FB{700} local FA{701} local [inside MNBRAK 15] has the following parameters: TINY{695} global GLIMIT{696} global GOLD{697} global MNBRAK[14] has the following parameters: AX{691} local BX{692} local ABS6[13] has the following parameter: X{689} local ABS5[12] has the following parameter: X{688} local ABS4[11] has the following parameter: X{687} local ABS3[10] has the following parameter: X{686} local ABS2[9] has the following parameter: X{685} local ABS1[8] has the following parameter: X{684} local The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20) The following expression, gold-stalin.sc:88:2704, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N 0.) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W15436 is general case for the following reasons: nondegenerate nonheaded vector W2503 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 11% - Expanding macros 2 - 13% - Fast tree shake 0 - 1% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 1% - Annotating expressions with their environments 1 - 3% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 4 - 25% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 1 - 4% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 1% - Determining which environments are called more than once 0 - 2% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 1 - 8% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 0% - Determining which environments are recursive 0 - 2% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 3 - 15% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 2% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 1 - 4% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 0 - 2% - Generating code 0 - 1% - Removing unused declarations 0 - 0% - Removing unused labels 0 - 1% - Writing database 0 - 0% - Compiling C code 18.45user 0.33system 0:20.88elapsed 89%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32775major+217154minor)pagefaults 0swaps run gold 4.15user 0.00system 0:04.19elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (92major+36minor)pagefaults 0swaps compile sort Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 15227 expressions 0 internal symbol types 0 external symbol types 39 primitive procedure types 208 non-called native procedure types 268 called noop native procedure types 129 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 3 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 17381 type sets 621 hunoz variables 1525 non-hunoz variables 484 noop environments 1620 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 15500 expressions 0 internal symbol types 0 external symbol types 39 primitive procedure types 208 non-called native procedure types 273 called noop native procedure types 153 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 3 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 17694 type sets 628 hunoz variables 1564 non-hunoz variables 489 noop environments 1650 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 5 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 2306 expressions 0 internal symbol types 0 external symbol types 39 primitive procedure types 208 non-called native procedure types 273 called noop native procedure types 153 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 3 structure types 1 headed vector type 1 nonheaded vector type 0 displaced vector types 3177 type sets 290 hunoz variables 579 non-hunoz variables 0 noop environments 159 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 4 Maximal clone rate is 5 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: LOOP[222] reentrant has the following parameters: LIST1{845} local LIST2{846} local LISTS{847} local STEP[58] reentrant has the following parameter: N{712} local has the following in-lined locals: A{688} B{689} R{695} A{696} B{697} J{713} A{714} K{715} B{716} P{717} Y{718} X{719} P{724} PAIR{777} PAIR{779} X1{2166} X2{2167} X1{2174} X2{2175} X1{2182} X2{2183} R{2190} A{2191} B{2192} X1{2195} X2{2196} [inside top level 0] has the following in-lined locals: SEQ{667} LAST{676} NEXT{677} v{678} SEQ{727} L{729} U{730} R{731} I{734} N{738} J{739} L{741} N{743} L{744} I{747} LIST{815} K{818} S{820} SS{837} SS{840} v{841} v{842} SS{850} SS{871} X1{960} X2{961} CHAR1{1094} CHAR2{1095} CHAR1{1099} CHAR2{1100} OBJ{1899} PORT{1900} N{1904} I{1907} C{1908} v{1911} OBJ{2142} CHAR1{2157} CHAR2{2158} CHAR1{2162} CHAR2{2163} The following non-trivial in-line native procedures will be generated: [clone <[383] 2142] has the following parameters: X1{2195} local X2{2196} local [clone LOOP[40] 2137] has the following parameters: R{2190} local A{2191} local B{2192} local [clone <[383] 2131] has the following parameters: X1{2182} local X2{2183} local [clone <[383] 2125] has the following parameters: X1{2174} local X2{2175} local [clone <[383] 2119] has the following parameters: X1{2166} local X2{2167} local [clone LOOP?[512] 2116] has the following parameters: CHAR1{2162} local CHAR2{2163} local [clone CHAR=?[509] 2113] has the following parameters: CHAR1{2157} local CHAR2{2158} local WRITE[1863] has the following parameter: OBJ{2142} local [inside LOOP 1480] has the following parameter: v{1911} local [inside LOOP 1478] has the following parameter: C{1908} local LOOP[1477] has the following parameter: I{1907} local [inside WRITE2 1474] has the following parameter: N{1904} local WRITE2[1456] has the following parameters: OBJ{1899} local PORT{1900} local [inside top level 1376] has the following parameter: THE-CURRENT-OUTPUT-PORT{1805} global LOOP?[512] has the following parameters: CHAR1{1099} local CHAR2{1100} local CHAR=?[509] has the following parameters: CHAR1{1094} local CHAR2{1095} local <[383] has the following parameters: X1{960} local X2{961} local LOOP[254] has the following parameter: SS{871} local LOOP[226] has the following parameter: SS{850} local [inside LOOP 215] has the following parameter: v{842} local [inside LOOP 214] has the following parameter: v{841} local LOOP[213] has the following parameter: SS{840} local APPEND[209] has the following parameter: SS{837} local LENGTH[182] has the following parameter: S{820} local LOOP[177] has the following parameter: K{818} local LIST-LENGTH[174] has the following parameter: LIST{815} local CDDR[138] has the following parameter: PAIR{779} local CADR[136] has the following parameter: PAIR{777} local loop[99] has the following parameter: I{747} local RUN-N-TIMES[96] has the following parameters: N{743} local L{744} local RUN-ONCE[93] has the following parameter: L{741} local loop[87] has the following parameters: N{738} local J{739} local loop[81] has the following parameter: I{734} local [inside MAKE-TEST-LIST 78] has the following parameter: R{731} local MAKE-TEST-LIST[77] has the following parameters: L{729} local U{730} local OK:SORT[76] has region has the following parameter: SEQ{727} local [inside STEP 72] has the following parameter: P{724} local [inside STEP 66] has the following parameters: P{717} local Y{718} local X{719} local [inside STEP 63] has the following parameter: B{716} local [inside STEP 62] reentrant has the following parameter: K{715} local [inside STEP 61] reentrant has the following parameter: A{714} local [inside STEP 60] reentrant has the following parameter: J{713} local [inside STEP 59] reentrant OK:SORT![46] has the following parameter: SEQ{700} global LOOP[40] has the following parameters: R{695} local A{696} local B{697} local OK:MERGE![31] has the following parameters: A{688} local B{689} local [inside LOOP 21] has the following parameter: v{678} local LOOP[20] has the following parameters: LAST{676} local NEXT{677} local SORTED?[6] has the following parameter: SEQ{667} local The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE STRUCTURE-REF PAIR 0) LIST1) (LOOP (# LIST1) LIST2 LISTS)) The following expression, sort-stalin.sc:258:10138, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE /) N (# J)) R) The following expression, sort-stalin.sc:245:9747, allocates on OK:SORT[76]: (APPEND SEQ '()) Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W15491 is general case for the following reasons: nondegenerate nonheaded vector W53 is general case for the following reasons: flonum Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 12% - Expanding macros 2 - 14% - Fast tree shake 0 - 1% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 1% - Annotating expressions with their environments 1 - 3% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 4 - 25% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 0 - 2% - Determining which call sites to split 0 - 0% - Computing call graph 0 - 1% - Determining which environments are called more than once 0 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 2 - 11% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 1% - Determining which environments are recursive 1 - 3% - Determining which environments are reentrant 0 - 0% - Asserting uniqueness 2 - 10% - Performing lightweight closure conversion 0 - 0% - Determining parents 0 - 3% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 0 - 0% - Determining which environments have external continuation calls 0 - 0% - Determining blocked environments 0 - 0% - Determining allocations 0 - 2% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 0% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 1% - Determining alignments 0 - 2% - Generating code 0 - 0% - Removing unused declarations 0 - 0% - Removing unused labels 1 - 3% - Writing database 0 - 0% - Compiling C code 16.00user 0.17system 0:18.27elapsed 88%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32284major+215327minor)pagefaults 0swaps run sort 11.01user 0.01system 0:11.11elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (86major+371minor)pagefaults 0swaps compile rrr Reading source Expanding macros Fast tree shake Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments In-lining first-order calls to primitive procedures Annotating expressions with their parents Annotating variables with their environments Annotating expressions with their environments Annotating variables with their references Performing flow analysis Enumerating call sites Determining which types and type sets are used 17987 expressions 0 internal symbol types 0 external symbol types 48 primitive procedure types 205 non-called native procedure types 379 called noop native procedure types 406 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 14 structure types 8 headed vector types 1 nonheaded vector type 0 displaced vector types 20524 type sets 761 hunoz variables 1739 non-hunoz variables 587 noop environments 1861 non-noop environments 0 call sites dispatch on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 1 Determining which call sites to split Performing flow analysis Enumerating call sites Determining which types and type sets are used 18976 expressions 0 internal symbol types 0 external symbol types 47 primitive procedure types 208 non-called native procedure types 387 called noop native procedure types 451 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 14 structure types 15 headed vector types 1 nonheaded vector type 0 displaced vector types 21703 type sets 769 hunoz variables 1986 non-hunoz variables 595 noop environments 2005 non-noop environments 1 call site dispatches on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 33 Determining which call sites to split 2 passes of flow analysis Computing call graph Determining which environments are called more than once Determining which variables are referenced Determining free variables Annotating environments and continuation types Inverting points-to relation Determining escaping types Determining which environments have unique call sites Determining which environments are recursive Determining which environments are reentrant Asserting uniqueness Performing lightweight closure conversion Determining parents Determining which expressions need conversion to CPS 5982 expressions 0 internal symbol types 0 external symbol types 47 primitive procedure types 205 non-called native procedure types 387 called noop native procedure types 451 called non-noop native procedure types 1 foreign procedure type 0 continuation types 1 string type 14 structure types 15 headed vector types 1 nonheaded vector type 0 displaced vector types 7411 type sets 443 hunoz variables 1014 non-hunoz variables 0 noop environments 523 non-noop environments 1 call site dispatches on clones Maximal non-LET lexical nesting depth is 6 Maximal clone rate is 33 Determining environment distances from root Determining which environments have external self tail calls Determining which environments have external continuation calls Determining blocked environments Determining allocations Applying closed-world assumption Determining indirect structure types Determining which environments have regions The following non-in-line native procedures will be generated: DISPLAY[2209] has the following parameter: OBJ{2495} local has the following in-lined locals: STRING{2195} PORT{2196} N{2197} I{2200} OBJ{2284} PORT{2285} DISPLAY-EXACT-INTEGER2[1731] has the following parameters: NUMBER{2202} local PORT{2203} local has the following in-lined locals: I{2206} NUMBER{2207} I{2210} I{2216} NUMBER{2217} I{2220} FOR-EACH[1263] has the following parameters: PROC{1891} local LIST1{1892} local has the following in-lined locals: V{752} V{753} A{764} I{765} J{766} X{767} P{943} Y{944} X{945} P{958} Y{985} X{986} DF-U-V{987} Y{991} X{992} DF-U-V{993} Y{997} X{998} DF-U-V{999} Y{1003} X{1004} DF-U-V{1005} Y{1009} X{1010} DF-U-V{1011} Y{1013} X{1014} LIST1{1896} A{2508} I{2509} J{2510} X{2511} A{2512} I{2513} J{2514} X{2515} A{2516} I{2517} J{2518} X{2519} A{2520} I{2521} J{2522} X{2523} A{2524} I{2525} J{2526} X{2527} A{2528} I{2529} J{2530} X{2531} A{2532} I{2533} J{2534} X{2535} A{2536} I{2537} J{2538} X{2539} A{2540} I{2541} J{2542} X{2543} A{2544} I{2545} J{2546} X{2547} A{2548} I{2549} J{2550} X{2551} A{2552} I{2553} J{2554} X{2555} A{2556} I{2557} J{2558} X{2559} A{2560} I{2561} J{2562} X{2563} A{2564} I{2565} J{2566} V{2636} V{2640} MAP[1239] ENQUEUE![300] has the following parameters: Y{1033} local X{1034} local VALUE{1035} local has the following in-lined locals: A{2580} I{2581} J{2582} A{2584} I{2585} J{2586} X{2587} RELABEL![279] has the following in-lined locals: P{1026} X{1027} Y{1028} VALUE{1029} P{1040} Y{1046} X{1050} Y{1055} X{1059} A{2576} I{2577} J{2578} A{2588} I{2589} J{2590} X{2591} A{2592} I{2593} J{2594} V{2638} V{2639} V{2642} V{2643} X{2644} X{2646} CAN-LIFT?[257] has the following parameters: Y{978} local X{979} local has the following in-lined locals: v{980} v{981} v{982} v{983} v{984} CAN-PUSH-T?[256] has the following parameters: Y{976} local X{977} local CAN-PUSH-UP?[255] has the following parameters: Y{974} local X{975} local CAN-PUSH-DOWN?[254] has the following parameters: Y{972} local X{973} local CAN-PUSH-LEFT?[253] has the following parameters: Y{970} local X{971} local CAN-PUSH-RIGHT?[252] has the following parameters: Y{968} local X{969} local EF-T?[251] has the following parameters: Y{966} local X{967} local CF-T[250] has the following parameters: Y{964} local X{965} local ENQUEUE![246] has the following parameters: Y{961} local X{962} local has the following in-lined locals: A{2572} I{2573} J{2574} PREFLOW-PUSH![150] has the following parameter: V{853} global has the following in-lined locals: X{714} X{715} L{731} L{735} v{737} V{745} I{749} v{750} RELABELS{891} I{896} P?{897} Y{900} X{901} v{902} K{908} Y{912} X{916} Y{920} X{924} PS{926} P{927} Y{928} X{929} v{930} v{931} v{932} v{933} v{934} K{938} PS{940} Y{1063} X{1067} Y{1072} X{1076} Y{1080} X{1084} Y{1088} X{1093} N1{1387} N2{1388} v{1389} A{2568} I{2569} J{2570} A{2596} I{2597} J{2598} X{2599} A{2600} I{2601} J{2602} X{2603} A{2604} I{2605} J{2606} X{2607} A{2608} I{2609} J{2610} X{2611} A{2612} I{2613} J{2614} X{2615} A{2616} I{2617} J{2618} X{2619} A{2620} I{2621} J{2622} X{2623} A{2624} I{2625} J{2626} X{2627} V{2637} V{2641} N{2740} I{2743} v{2744} N{2746} I{2749} v{2750} EF-UP?[149] has the following parameters: Y{851} local X{852} local EF-DOWN?[148] has the following parameters: Y{849} local X{850} local EF-LEFT?[147] has the following parameters: Y{847} local X{848} local EF-RIGHT?[146] has the following parameters: Y{845} local X{846} local CF-UP[145] has the following parameters: Y{843} local X{844} local CF-DOWN[144] has the following parameters: Y{841} local X{842} local CF-LEFT[143] has the following parameters: Y{839} local X{840} local CF-RIGHT[142] has the following parameters: Y{837} local X{838} local POSITIVE+[113] has the following parameters: X{785} local Y{786} local POSITIVE-[112] has the following parameters: X{783} local Y{784} local POSITIVE-MIN[111] has the following parameters: X{781} local Y{782} local PORMAT[92] has the following parameters: CONTROL-STRING{768} local VALUES{769} local has the following in-lined locals: I{772} VALUES{773} C{774} C2{775} CHAR1{1445} CHAR2{1446} CHAR1{1450} CHAR2{1451} OBJ{2250} PORT{2251} N{2255} I{2258} C{2259} v{2262} OBJ{2493} CHAR{2498} CHAR1{2648} CHAR2{2649} CHAR1{2653} CHAR2{2654} CHAR1{2657} CHAR2{2658} CHAR1{2662} CHAR2{2663} CHAR1{2666} CHAR2{2667} CHAR1{2671} CHAR2{2672} CHAR1{2675} CHAR2{2676} CHAR1{2680} CHAR2{2681} CHAR1{2684} CHAR2{2685} CHAR1{2689} CHAR2{2690} MATRIX-REF[90] has the following parameters: A{761} local I{762} local J{763} local MAP-N-VECTOR[45] reentrant has the following parameters: F{716} local N{717} local has the following in-lined locals: V{718} I{722} X{1099} X{2752} X{2754} X{2756} X{2758} X{2760} X{2762} [inside top level 0] has the following in-lined locals: HEIGHT{689} WIDTH{690} LG-MAX-V{691} C-RIGHT{692} C-DOWN{693} Y{698} X{702} v{704} Y{707} X{711} v{713} N{725} I{728} v{729} M{754} A{759} A{760} LG-MAX-V{790} LG-V{826} V-MAX{827} V{830} I{835} C{836} Y{1096} X{1097} A{2628} I{2629} J{2630} X{2631} A{2632} I{2633} J{2634} X{2635} M{2693} M{2698} M{2703} M{2708} M{2713} M{2718} M{2723} M{2728} N{2734} I{2737} v{2738} X{2751} X{2753} X{2755} X{2757} X{2759} X{2761} The following non-trivial in-line native procedures will be generated: [clone FIRST[43] 2606] has the following parameter: X{2762} local [clone REST[44] 2605] has the following parameter: X{2761} local [clone FIRST[43] 2604] has the following parameter: X{2760} local [clone REST[44] 2603] has the following parameter: X{2759} local [clone FIRST[43] 2602] has the following parameter: X{2758} local [clone REST[44] 2601] has the following parameter: X{2757} local [clone FIRST[43] 2600] has the following parameter: X{2756} local [clone REST[44] 2599] has the following parameter: X{2755} local [clone FIRST[43] 2598] has the following parameter: X{2754} local [clone REST[44] 2597] has the following parameter: X{2753} local [clone FIRST[43] 2596] has the following parameter: X{2752} local [clone REST[44] 2595] has the following parameter: X{2751} local [clone [inside LOOP 59] 2593] has the following parameter: v{2750} local [clone LOOP[58] 2592] has the following parameter: I{2749} local [clone EVERY-N[55] 2589] has the following parameter: N{2746} local [clone [inside LOOP 59] 2587] has the following parameter: v{2744} local [clone LOOP[58] 2586] has the following parameter: I{2743} local [clone EVERY-N[55] 2583] has the following parameter: N{2740} local [clone [inside LOOP 59] 2581] has the following parameter: v{2738} local [clone LOOP[58] 2580] has the following parameter: I{2737} local [clone EVERY-N[55] 2577] has the following parameter: N{2734} local [clone MAKE-MATRIX[82] 2571] has the following parameters: M{2728} local N{2729} global [clone MAKE-MATRIX[82] 2565] has the following parameters: M{2723} local N{2724} global [clone MAKE-MATRIX[82] 2559] has the following parameters: M{2718} local N{2719} global &REST{2720} global [clone MAKE-MATRIX[82] 2553] has the following parameters: M{2713} local N{2714} global &REST{2715} global [clone MAKE-MATRIX[82] 2547] has the following parameters: M{2708} local N{2709} global &REST{2710} global [clone MAKE-MATRIX[82] 2541] has the following parameters: M{2703} local N{2704} global &REST{2705} global [clone MAKE-MATRIX[82] 2535] has the following parameters: M{2698} local N{2699} global &REST{2700} global [clone MAKE-MATRIX[82] 2529] has the following parameters: M{2693} local N{2694} global &REST{2695} global [clone LOOP?[854] 2526] has the following parameters: CHAR1{2689} local CHAR2{2690} local [clone CHAR=?[851] 2523] has the following parameters: CHAR1{2684} local CHAR2{2685} local [clone LOOP?[854] 2520] has the following parameters: CHAR1{2680} local CHAR2{2681} local [clone CHAR=?[851] 2517] has the following parameters: CHAR1{2675} local CHAR2{2676} local [clone LOOP?[854] 2514] has the following parameters: CHAR1{2671} local CHAR2{2672} local [clone CHAR=?[851] 2511] has the following parameters: CHAR1{2666} local CHAR2{2667} local [clone LOOP?[854] 2508] has the following parameters: CHAR1{2662} local CHAR2{2663} local [clone CHAR=?[851] 2505] has the following parameters: CHAR1{2657} local CHAR2{2658} local [clone LOOP?[854] 2502] has the following parameters: CHAR1{2653} local CHAR2{2654} local [clone CHAR=?[851] 2499] has the following parameters: CHAR1{2648} local CHAR2{2649} local [clone FIRST[43] 2497] has the following parameter: X{2646} local [clone REST[44] 2495] has the following parameter: X{2644} local [clone X[80] 2494] has the following parameter: V{2643} local [clone X[80] 2493] has the following parameter: V{2642} local [clone X[80] 2492] has the following parameter: V{2641} local [clone X[80] 2491] has the following parameter: V{2640} local [clone Y[81] 2490] has the following parameter: V{2639} local [clone Y[81] 2489] has the following parameter: V{2638} local [clone Y[81] 2488] has the following parameter: V{2637} local [clone Y[81] 2487] has the following parameter: V{2636} local [clone MATRIX-SET![91] 2486] has the following parameters: A{2632} local I{2633} local J{2634} local X{2635} local [clone MATRIX-SET![91] 2485] has the following parameters: A{2628} local I{2629} local J{2630} local X{2631} local [clone MATRIX-SET![91] 2484] has the following parameters: A{2624} local I{2625} local J{2626} local X{2627} local [clone MATRIX-SET![91] 2483] has the following parameters: A{2620} local I{2621} local J{2622} local X{2623} local [clone MATRIX-SET![91] 2482] has the following parameters: A{2616} local I{2617} local J{2618} local X{2619} local [clone MATRIX-SET![91] 2481] has the following parameters: A{2612} local I{2613} local J{2614} local X{2615} local [clone MATRIX-SET![91] 2480] has the following parameters: A{2608} local I{2609} local J{2610} local X{2611} local [clone MATRIX-SET![91] 2479] has the following parameters: A{2604} local I{2605} local J{2606} local X{2607} local [clone MATRIX-SET![91] 2478] has the following parameters: A{2600} local I{2601} local J{2602} local X{2603} local [clone MATRIX-SET![91] 2477] has the following parameters: A{2596} local I{2597} local J{2598} local X{2599} local [clone MATRIX-SET![91] 2476] has the following parameters: A{2592} local I{2593} local J{2594} local [clone MATRIX-SET![91] 2475] has the following parameters: A{2588} local I{2589} local J{2590} local X{2591} local [clone MATRIX-SET![91] 2474] has the following parameters: A{2584} local I{2585} local J{2586} local X{2587} local [clone MATRIX-SET![91] 2473] has the following parameters: A{2580} local I{2581} local J{2582} local [clone MATRIX-SET![91] 2472] has the following parameters: A{2576} local I{2577} local J{2578} local [clone MATRIX-SET![91] 2471] has the following parameters: A{2572} local I{2573} local J{2574} local [clone MATRIX-SET![91] 2470] has the following parameters: A{2568} local I{2569} local J{2570} local [clone MATRIX-SET![91] 2469] has the following parameters: A{2564} local I{2565} local J{2566} local [clone MATRIX-SET![91] 2468] has the following parameters: A{2560} local I{2561} local J{2562} local X{2563} local [clone MATRIX-SET![91] 2467] has the following parameters: A{2556} local I{2557} local J{2558} local X{2559} local [clone MATRIX-SET![91] 2466] has the following parameters: A{2552} local I{2553} local J{2554} local X{2555} local [clone MATRIX-SET![91] 2465] has the following parameters: A{2548} local I{2549} local J{2550} local X{2551} local [clone MATRIX-SET![91] 2464] has the following parameters: A{2544} local I{2545} local J{2546} local X{2547} local [clone MATRIX-SET![91] 2463] has the following parameters: A{2540} local I{2541} local J{2542} local X{2543} local [clone MATRIX-SET![91] 2462] has the following parameters: A{2536} local I{2537} local J{2538} local X{2539} local [clone MATRIX-SET![91] 2461] has the following parameters: A{2532} local I{2533} local J{2534} local X{2535} local [clone MATRIX-SET![91] 2460] has the following parameters: A{2528} local I{2529} local J{2530} local X{2531} local [clone MATRIX-SET![91] 2459] has the following parameters: A{2524} local I{2525} local J{2526} local X{2527} local [clone MATRIX-SET![91] 2458] has the following parameters: A{2520} local I{2521} local J{2522} local X{2523} local [clone MATRIX-SET![91] 2457] has the following parameters: A{2516} local I{2517} local J{2518} local X{2519} local [clone MATRIX-SET![91] 2456] has the following parameters: A{2512} local I{2513} local J{2514} local X{2515} local [clone MATRIX-SET![91] 2455] has the following parameters: A{2508} local I{2509} local J{2510} local X{2511} local WRITE-CHAR[2217] has the following parameter: CHAR{2498} local WRITE[2205] has the following parameter: OBJ{2493} local DISPLAY2[1858] has the following parameters: OBJ{2284} local PORT{2285} local [inside LOOP 1822] has the following parameter: v{2262} local [inside LOOP 1820] has the following parameter: C{2259} local LOOP[1819] has the following parameter: I{2258} local [inside WRITE2 1816] has the following parameter: N{2255} local WRITE2[1798] has the following parameters: OBJ{2250} local PORT{2251} local LOOP[1752] has the following parameter: I{2220} local LOOP[1749] has the following parameters: I{2216} local NUMBER{2217} local LOOP[1738] has the following parameter: I{2210} local LOOP[1735] has the following parameters: I{2206} local NUMBER{2207} local LOOP[1726] has the following parameter: I{2200} local [inside DISPLAY-STRING2 1723] has the following parameter: N{2197} local DISPLAY-STRING2[1722] has the following parameters: STRING{2195} local PORT{2196} local [inside top level 1718] has the following parameters: THE-CURRENT-OUTPUT-PORT{2156} global BUFFER{2158} global LOOP[1267] has the following parameter: LIST1{1896} local LOOP?[854] has the following parameters: CHAR1{1450} local CHAR2{1451} local CHAR=?[851] has the following parameters: CHAR1{1445} local CHAR2{1446} local [inside MODULO 788] has the following parameter: v{1389} local MODULO[787] has the following parameters: N1{1387} local N2{1388} local [inside MIN-CUT 423] has parent parameter [inside MIN-CUT 422] has the following parameter: X{1099} local [inside MIN-CUT 422] reentrant has closure has the following parameter: Y{1098} slotted [inside MIN-CUT-INCLUDES-EVERY-EDGE-TO-T? 420] has the following parameter: X{1097} local [inside MIN-CUT-INCLUDES-EVERY-EDGE-TO-T? 419] has the following parameter: Y{1096} local loop[397] has the following parameter: X{1093} local loop[390] has the following parameter: Y{1088} local loop[382] has the following parameter: X{1084} local loop[376] has the following parameter: Y{1080} local loop[368] has the following parameter: X{1076} local loop[362] has the following parameter: Y{1072} local loop[354] has the following parameter: X{1067} local loop[348] has the following parameter: Y{1063} local loop[337] has the following parameter: X{1059} local loop[331] has the following parameter: Y{1055} local loop[323] has the following parameter: X{1050} local loop[317] has the following parameter: Y{1046} local [inside DEQUEUE! 312] has the following parameter: P{1040} local [inside LOOP 291] has the following parameter: VALUE{1029} local [inside LOOP 290] has the following parameter: Y{1028} local [inside LOOP 289] has the following parameter: X{1027} local [inside LOOP 288] has the following parameter: P{1026} local [inside RELABEL! 280] has region has the following parameters: TAIL{1015} global Q{1016} global LIFT![278] has the following parameters: Y{1013} local X{1014} local [inside PUSH-T! 276] has the following parameter: DF-U-V{1011} local PUSH-T![275] has the following parameters: Y{1009} local X{1010} local [inside PUSH-UP! 273] has the following parameter: DF-U-V{1005} local PUSH-UP![272] has the following parameters: Y{1003} local X{1004} local [inside PUSH-DOWN! 270] has the following parameter: DF-U-V{999} local PUSH-DOWN![269] has the following parameters: Y{997} local X{998} local [inside PUSH-LEFT! 267] has the following parameter: DF-U-V{993} local PUSH-LEFT![266] has the following parameters: Y{991} local X{992} local [inside PUSH-RIGHT! 264] has the following parameter: DF-U-V{987} local PUSH-RIGHT![263] has the following parameters: Y{985} local X{986} local [inside CAN-LIFT? 262] has the following parameter: v{984} local [inside CAN-LIFT? 261] has the following parameter: v{983} local [inside CAN-LIFT? 260] has the following parameter: v{982} local [inside CAN-LIFT? 259] has the following parameter: v{981} local [inside CAN-LIFT? 258] has the following parameter: v{980} local [inside LOOP 244] has region [inside LOOP 240] has the following parameter: P{958} local [inside LOOP 219] has the following parameters: Y{944} local X{945} local [inside LOOP 218] has the following parameter: P{943} local [inside LOOP 216] has the following parameter: PS{940} local LOOP[213] has the following parameter: K{938} local [inside LOOP 208] has the following parameter: v{934} local [inside LOOP 207] has the following parameter: v{933} local [inside LOOP 206] has the following parameter: v{932} local [inside LOOP 205] has the following parameter: v{931} local [inside LOOP 204] has the following parameter: v{930} local [inside LOOP 203] has the following parameters: Y{928} local X{929} local [inside LOOP 202] has the following parameter: P{927} local [inside LOOP 201] has the following parameter: PS{926} local loop[194] has the following parameter: X{924} local loop[188] has the following parameter: Y{920} local loop[180] has the following parameter: X{916} local loop[174] has the following parameter: Y{912} local loop[167] has the following parameter: K{908} local [inside LOOP 162] has region [inside LOOP 161] has the following parameter: v{902} local [inside LOOP 160] has the following parameter: X{901} local [inside LOOP 159] has the following parameter: Y{900} local LOOP[156] has the following parameters: I{896} local P?{897} local [inside PREFLOW-PUSH! 153] has the following parameters: RELABELS{891} local LIFTS{892} global PUSHES{893} global LOOP[139] has the following parameters: I{835} local C{836} local [inside LOOP 135] has the following parameter: V{830} local [inside LOOP 132] has region LOOP[131] has region has the following parameters: LG-V{826} local V-MAX{827} local [inside RAO-RATIO-REGION 125] has the following parameter: Q{801} global [inside RAO-RATIO-REGION 124] has the following parameter: M2{800} global [inside RAO-RATIO-REGION 123] has the following parameter: M1{799} global [inside RAO-RATIO-REGION 122] has the following parameter: MARKED?{798} global [inside RAO-RATIO-REGION 121] has the following parameter: E{797} global [inside RAO-RATIO-REGION 120] has the following parameter: H{796} global [inside RAO-RATIO-REGION 119] has the following parameter: F-T{795} global [inside RAO-RATIO-REGION 118] has the following parameter: F-DOWN{794} global [inside RAO-RATIO-REGION 117] has the following parameter: F-RIGHT{793} global [inside RAO-RATIO-REGION 116] has the following parameter: WIDTH{792} global [inside RAO-RATIO-REGION 115] has the following parameter: HEIGHT{791} global RAO-RATIO-REGION[114] has the following parameters: C-RIGHT{787} global C-DOWN{788} global W{789} global LG-MAX-V{790} local [inside LOOP 98] has the following parameter: C2{775} local [inside LOOP 96] has the following parameter: C{774} local LOOP[95] has the following parameters: I{772} local VALUES{773} local MATRIX-SET![91] has the following parameters: A{764} local I{765} local J{766} local X{767} local MATRIX-COLUMNS[89] has the following parameter: A{760} local MATRIX-ROWS[88] has the following parameter: A{759} local MAKE-MATRIX[82] has the following parameters: M{754} local N{755} global Y[81] has the following parameter: V{753} local X[80] has the following parameter: V{752} local [inside LOOP 77] has the following parameter: v{750} local LOOP[76] has the following parameter: I{749} local SOME-VECTOR[73] has the following parameter: V{745} local [inside LOOP 65] has the following parameter: v{737} local LOOP[64] has the following parameter: L{735} local SOME[61] has the following parameter: L{731} local [inside LOOP 59] has the following parameter: v{729} local LOOP[58] has the following parameter: I{728} local EVERY-N[55] has the following parameter: N{725} local [inside LOOP 52] reentrant [inside LOOP 51] reentrant LOOP[50] reentrant has the following parameter: I{722} local [inside MAP-N-VECTOR 46] reentrant has the following parameter: V{718} local REST[44] has the following parameter: X{715} local FIRST[43] has the following parameter: X{714} local [inside loop 40] has the following parameter: v{713} local loop[36] has the following parameter: X{711} local loop[30] has the following parameter: Y{707} local [inside loop 25] has the following parameter: v{704} local loop[21] has the following parameter: X{702} local loop[15] has the following parameter: Y{698} local [inside top level 10] has the following parameter: C-DOWN{693} local [inside top level 9] has the following parameter: C-RIGHT{692} local [inside top level 8] has the following parameter: LG-MAX-V{691} local [inside top level 7] has the following parameter: WIDTH{690} local [inside top level 6] has the following parameter: HEIGHT{689} local The following expression, rrr-stalin.sc:45:1002, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, rrr-stalin.sc:45:1002, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, rrr-stalin.sc:47:1079, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N (FIRST &REST)) The following expression, rrr-stalin.sc:47:1079, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N (FIRST &REST)) The following expression, rrr-stalin.sc:47:1079, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N (FIRST &REST)) The following expression, rrr-stalin.sc:47:1079, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N (FIRST &REST)) The following expression, rrr-stalin.sc:47:1079, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N (FIRST &REST)) The following expression, rrr-stalin.sc:47:1079, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N (FIRST &REST)) The following expression allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) 20) The following expression, rrr-stalin.sc:131:4816, allocates on the heap: (MAKE-MATRIX HEIGHT ((PRIMITIVE-PROCEDURE -) WIDTH 1) 0) The following expression, rrr-stalin.sc:132:4861, allocates on the heap: (MAKE-MATRIX ((PRIMITIVE-PROCEDURE -) HEIGHT 1) WIDTH 0) The following expression, rrr-stalin.sc:133:4903, allocates on the heap: (MAKE-MATRIX HEIGHT WIDTH 0) The following expression, rrr-stalin.sc:134:4937, allocates on the heap: (MAKE-MATRIX HEIGHT WIDTH 0) The following expression, rrr-stalin.sc:135:4971, allocates on the heap: (MAKE-MATRIX HEIGHT WIDTH 0) The following expression, rrr-stalin.sc:139:5106, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) ((PRIMITIVE-PROCEDURE +) (# 2 HEIGHT WIDTH) 3) '()) The following expression, rrr-stalin.sc:268:10127, allocates on [inside RELABEL! 280]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR) X Y) '()) The following expression, rrr-stalin.sc:268:10133, allocates on [inside RELABEL! 280]: ((PRIMITIVE-PROCEDURE VECTOR) X Y) The following expression, rrr-stalin.sc:266:10051, allocates on [inside RELABEL! 280]: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR) X Y) '()) The following expression, rrr-stalin.sc:266:10057, allocates on [inside RELABEL! 280]: ((PRIMITIVE-PROCEDURE VECTOR) X Y) The following expression, rrr-stalin.sc:158:5857, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) ((PRIMITIVE-PROCEDURE VECTOR) X Y) ((PRIMITIVE-PROCEDURE VECTOR-REF) Q (MATRIX-REF H Y X))) The following expression, rrr-stalin.sc:158:5863, allocates on the heap: ((PRIMITIVE-PROCEDURE VECTOR) X Y) The following expression, rrr-stalin.sc:417:15478, allocates on [inside LOOP 244]: (PORMAT "~s push~a, ~s lift~a, ~s relabel~a, ~s wave~a~%" PUSHES (IF (# PUSHES 1) "" "es") LIFTS (IF (# LIFTS 1) "" "s") RELABELS (IF (# RELABELS 1) "" "s") I (IF (# I 1) "" "s")) The following expression, rrr-stalin.sc:346:13259, allocates on [inside LOOP 162]: (PORMAT "~s push~a, ~s lift~a, ~s relabel~a, ~s wave~a, terminated early~%" PUSHES (IF (# PUSHES 1) "" "es") LIFTS (IF (# LIFTS 1) "" "s") RELABELS (IF (# RELABELS 1) "" "s") I (IF (# I 1) "" "s")) The following expression, rrr-stalin.sc:448:16473, allocates on LOOP[131]: (PORMAT "LG-V=~s, V-MAX=~s, V=~s~%" LG-V V-MAX V) The following expression, rrr-stalin.sc:441:16279, allocates on [inside LOOP 132]: (PORMAT "V-MAX=~s~%" V-MAX) The following expression, rrr-stalin.sc:47:1079, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N (FIRST &REST)) The following expression, rrr-stalin.sc:15:207, allocates on the heap: ((PRIMITIVE-PROCEDURE MAKE-VECTOR) N) The following expression, rrr-stalin.sc:475:17400, allocates on the heap: (MAKE-MATRIX HEIGHT WIDTH 1) The closure for [inside MIN-CUT 422] is allocated on the stack Determining which types are never allocated on the heap Determining which type sets are squeezable Determining which type sets are squishable Determining alignments W19112 is general case for the following reasons: nondegenerate nonheaded vector Generating code Removing unused declarations Removing unused labels Writing database Compiling C code Compilation time summary (in CPU seconds) 0 - 0% - Reading source 2 - 4% - Expanding macros 3 - 6% - Fast tree shake 0 - 0% - Annotating expressions with their parents 0 - 0% - Annotating variables with their environments 0 - 0% - Annotating expressions with their environments 1 - 2% - In-lining first-order calls to primitive procedures 0 - 0% - Annotating variables with their references 12 - 23% - Performing flow analysis 0 - 0% - Enumerating call sites 0 - 1% - Determining which types and type sets are used 7 - 14% - Determining which call sites to split 0 - 1% - Computing call graph 1 - 2% - Determining which environments are called more than once 0 - 1% - Determining which variables are referenced 0 - 0% - Determining free variables 0 - 0% - Annotating environments and continuation types 0 - 0% - Inverting points-to relation 7 - 13% - Determining escaping types 0 - 0% - Determining which environments have unique call sites 0 - 1% - Determining which environments are recursive 2 - 3% - Determining which environments are reentrant 0 - 1% - Asserting uniqueness 6 - 11% - Performing lightweight closure conversion 0 - 0% - Determining parents 1 - 2% - Determining which expressions need conversion to CPS 0 - 0% - Determining environment distances from root 0 - 0% - Determining which environments have external self tail calls 1 - 1% - Determining which environments have external continuation calls 0 - 1% - Determining blocked environments 0 - 0% - Determining allocations 1 - 2% - Applying closed-world assumption 0 - 0% - Determining indirect structure types 0 - 1% - Determining which environments have regions 0 - 0% - Determining which types are never allocated on the heap 0 - 0% - Determining which type sets are squeezable 0 - 0% - Determining which type sets are squishable 0 - 0% - Determining alignments 1 - 3% - Generating code 2 - 4% - Removing unused declarations 1 - 1% - Removing unused labels 1 - 1% - Writing database 0 - 0% - Compiling C code 52.22user 0.43system 0:56.31elapsed 93%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32755major+217737minor)pagefaults 0swaps run rrr 113.64user 0.53system 1:55.22elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (94major+9125minor)pagefaults 0swaps 12755.310u 62.070s 3:39:33.62 97.2% 0+0k 0+0io 694349pf+38596w baseline compile boyer (STATIC-COUNTS 2193 2193 2193 2193 0 0 0 2193 2285 1132 34 110 6 31 1.146886016451234 4402 4402 483 263) boyer-stalin.c: In function `f1505': boyer-stalin.c:3659: warning: `a1850' might be used uninitialized in this function boyer-stalin.c:3661: warning: `a1852' might be used uninitialized in this function boyer-stalin.c: In function `f120': boyer-stalin.c:3881: warning: unused variable `e123' boyer-stalin.c:3880: warning: unused variable `e122' boyer-stalin.c:3879: warning: unused variable `e121' boyer-stalin.c:3878: warning: unused variable `e118' boyer-stalin.c:3877: warning: unused variable `e117' boyer-stalin.c:3876: warning: unused variable `e116' boyer-stalin.c:3847: warning: unused variable `a764' boyer-stalin.c:3846: warning: unused variable `a763' boyer-stalin.c:3845: warning: unused variable `a762' boyer-stalin.c:3844: warning: unused variable `a757' boyer-stalin.c:3843: warning: unused variable `a756' boyer-stalin.c:3842: warning: unused variable `a755' boyer-stalin.c: In function `f62': boyer-stalin.c:4507: warning: `a727' might be used uninitialized in this function boyer-stalin.c:4581: warning: `t302' might be used uninitialized in this function boyer-stalin.c: In function `f58': boyer-stalin.c:4916: warning: `a730' might be used uninitialized in this function boyer-stalin.c:4917: warning: `a731' might be used uninitialized in this function boyer-stalin.c: In function `f41': boyer-stalin.c:5229: warning: `a2181' might be used uninitialized in this function boyer-stalin.c: In function `f16': boyer-stalin.c:5431: warning: `a2163' might be used uninitialized in this function boyer-stalin.c: In function `f0': boyer-stalin.c:5542: warning: `a1' might be used uninitialized in this function boyer-stalin.c:5543: warning: `a2' might be used uninitialized in this function boyer-stalin.c:5544: warning: `a3' might be used uninitialized in this function boyer-stalin.c:5545: warning: `a4' might be used uninitialized in this function boyer-stalin.c:5546: warning: `a5' might be used uninitialized in this function boyer-stalin.c:5547: warning: `a6' might be used uninitialized in this function boyer-stalin.c:5548: warning: `a7' might be used uninitialized in this function boyer-stalin.c:5549: warning: `a8' might be used uninitialized in this function boyer-stalin.c:5550: warning: `a9' might be used uninitialized in this function boyer-stalin.c:5551: warning: `a10' might be used uninitialized in this function boyer-stalin.c:5552: warning: `a11' might be used uninitialized in this function boyer-stalin.c:5553: warning: `a12' might be used uninitialized in this function boyer-stalin.c:5554: warning: `a13' might be used uninitialized in this function boyer-stalin.c:5555: warning: `a14' might be used uninitialized in this function boyer-stalin.c:5556: warning: `a15' might be used uninitialized in this function boyer-stalin.c:5557: warning: `a16' might be used uninitialized in this function boyer-stalin.c:5558: warning: `a17' might be used uninitialized in this function boyer-stalin.c:5559: warning: `a18' might be used uninitialized in this function boyer-stalin.c:5560: warning: `a19' might be used uninitialized in this function boyer-stalin.c:5561: warning: `a20' might be used uninitialized in this function boyer-stalin.c:5562: warning: `a21' might be used uninitialized in this function boyer-stalin.c:5563: warning: `a22' might be used uninitialized in this function boyer-stalin.c:5564: warning: `a23' might be used uninitialized in this function boyer-stalin.c:5565: warning: `a24' might be used uninitialized in this function boyer-stalin.c:5566: warning: `a25' might be used uninitialized in this function boyer-stalin.c:5567: warning: `a26' might be used uninitialized in this function boyer-stalin.c:5568: warning: `a27' might be used uninitialized in this function boyer-stalin.c:5569: warning: `a28' might be used uninitialized in this function boyer-stalin.c:5570: warning: `a29' might be used uninitialized in this function boyer-stalin.c:5571: warning: `a30' might be used uninitialized in this function boyer-stalin.c:5572: warning: `a31' might be used uninitialized in this function boyer-stalin.c:5573: warning: `a32' might be used uninitialized in this function boyer-stalin.c:5574: warning: `a33' might be used uninitialized in this function boyer-stalin.c:5575: warning: `a34' might be used uninitialized in this function boyer-stalin.c:5576: warning: `a35' might be used uninitialized in this function boyer-stalin.c:5577: warning: `a36' might be used uninitialized in this function boyer-stalin.c:5578: warning: `a37' might be used uninitialized in this function boyer-stalin.c:5579: warning: `a38' might be used uninitialized in this function boyer-stalin.c:5580: warning: `a39' might be used uninitialized in this function boyer-stalin.c:5581: warning: `a40' might be used uninitialized in this function boyer-stalin.c:5582: warning: `a41' might be used uninitialized in this function boyer-stalin.c:5583: warning: `a42' might be used uninitialized in this function boyer-stalin.c:5584: warning: `a43' might be used uninitialized in this function boyer-stalin.c:5585: warning: `a44' might be used uninitialized in this function boyer-stalin.c:5586: warning: `a45' might be used uninitialized in this function boyer-stalin.c:5587: warning: `a46' might be used uninitialized in this function boyer-stalin.c:5588: warning: `a47' might be used uninitialized in this function boyer-stalin.c:5589: warning: `a48' might be used uninitialized in this function boyer-stalin.c:5590: warning: `a49' might be used uninitialized in this function boyer-stalin.c:5591: warning: `a50' might be used uninitialized in this function boyer-stalin.c:5592: warning: `a51' might be used uninitialized in this function boyer-stalin.c:5593: warning: `a52' might be used uninitialized in this function boyer-stalin.c:5594: warning: `a53' might be used uninitialized in this function boyer-stalin.c:5595: warning: `a54' might be used uninitialized in this function boyer-stalin.c:5596: warning: `a55' might be used uninitialized in this function boyer-stalin.c:5597: warning: `a56' might be used uninitialized in this function boyer-stalin.c:5598: warning: `a57' might be used uninitialized in this function boyer-stalin.c:5599: warning: `a58' might be used uninitialized in this function boyer-stalin.c:5600: warning: `a59' might be used uninitialized in this function boyer-stalin.c:5601: warning: `a60' might be used uninitialized in this function boyer-stalin.c:5602: warning: `a61' might be used uninitialized in this function boyer-stalin.c:5603: warning: `a62' might be used uninitialized in this function boyer-stalin.c:5604: warning: `a63' might be used uninitialized in this function boyer-stalin.c:5605: warning: `a64' might be used uninitialized in this function boyer-stalin.c:5606: warning: `a65' might be used uninitialized in this function boyer-stalin.c:5607: warning: `a66' might be used uninitialized in this function boyer-stalin.c:5608: warning: `a67' might be used uninitialized in this function boyer-stalin.c:5609: warning: `a68' might be used uninitialized in this function boyer-stalin.c:5610: warning: `a69' might be used uninitialized in this function boyer-stalin.c:5611: warning: `a70' might be used uninitialized in this function boyer-stalin.c:5612: warning: `a71' might be used uninitialized in this function boyer-stalin.c:5613: warning: `a72' might be used uninitialized in this function boyer-stalin.c:5614: warning: `a73' might be used uninitialized in this function boyer-stalin.c:5615: warning: `a74' might be used uninitialized in this function boyer-stalin.c:5616: warning: `a75' might be used uninitialized in this function boyer-stalin.c:5617: warning: `a76' might be used uninitialized in this function boyer-stalin.c:5618: warning: `a77' might be used uninitialized in this function boyer-stalin.c:5619: warning: `a78' might be used uninitialized in this function boyer-stalin.c:5620: warning: `a79' might be used uninitialized in this function boyer-stalin.c:5621: warning: `a80' might be used uninitialized in this function boyer-stalin.c:5622: warning: `a81' might be used uninitialized in this function boyer-stalin.c:5623: warning: `a82' might be used uninitialized in this function boyer-stalin.c:5624: warning: `a83' might be used uninitialized in this function boyer-stalin.c:5625: warning: `a84' might be used uninitialized in this function boyer-stalin.c:5626: warning: `a85' might be used uninitialized in this function boyer-stalin.c:5627: warning: `a86' might be used uninitialized in this function boyer-stalin.c:5628: warning: `a87' might be used uninitialized in this function boyer-stalin.c:5629: warning: `a88' might be used uninitialized in this function boyer-stalin.c:5630: warning: `a89' might be used uninitialized in this function boyer-stalin.c:5631: warning: `a90' might be used uninitialized in this function boyer-stalin.c:5632: warning: `a91' might be used uninitialized in this function boyer-stalin.c:5633: warning: `a92' might be used uninitialized in this function boyer-stalin.c:5634: warning: `a93' might be used uninitialized in this function boyer-stalin.c:5635: warning: `a94' might be used uninitialized in this function boyer-stalin.c:5636: warning: `a95' might be used uninitialized in this function boyer-stalin.c:5637: warning: `a96' might be used uninitialized in this function boyer-stalin.c:5638: warning: `a97' might be used uninitialized in this function boyer-stalin.c:5639: warning: `a98' might be used uninitialized in this function boyer-stalin.c:5640: warning: `a99' might be used uninitialized in this function boyer-stalin.c:5641: warning: `a100' might be used uninitialized in this function boyer-stalin.c:5642: warning: `a101' might be used uninitialized in this function boyer-stalin.c:5643: warning: `a102' might be used uninitialized in this function boyer-stalin.c:5644: warning: `a103' might be used uninitialized in this function boyer-stalin.c:5645: warning: `a104' might be used uninitialized in this function boyer-stalin.c:5646: warning: `a105' might be used uninitialized in this function boyer-stalin.c:5647: warning: `a106' might be used uninitialized in this function boyer-stalin.c:5648: warning: `a107' might be used uninitialized in this function boyer-stalin.c:5649: warning: `a108' might be used uninitialized in this function boyer-stalin.c:5650: warning: `a109' might be used uninitialized in this function boyer-stalin.c:5651: warning: `a110' might be used uninitialized in this function boyer-stalin.c:5652: warning: `a111' might be used uninitialized in this function boyer-stalin.c:5653: warning: `a112' might be used uninitialized in this function boyer-stalin.c:5654: warning: `a113' might be used uninitialized in this function boyer-stalin.c:5655: warning: `a114' might be used uninitialized in this function boyer-stalin.c:5656: warning: `a115' might be used uninitialized in this function boyer-stalin.c:5657: warning: `a116' might be used uninitialized in this function boyer-stalin.c:5658: warning: `a117' might be used uninitialized in this function boyer-stalin.c:5659: warning: `a118' might be used uninitialized in this function boyer-stalin.c:5660: warning: `a119' might be used uninitialized in this function boyer-stalin.c:5661: warning: `a120' might be used uninitialized in this function boyer-stalin.c:5662: warning: `a121' might be used uninitialized in this function boyer-stalin.c:5663: warning: `a122' might be used uninitialized in this function boyer-stalin.c:5664: warning: `a123' might be used uninitialized in this function boyer-stalin.c:5665: warning: `a124' might be used uninitialized in this function boyer-stalin.c:5666: warning: `a125' might be used uninitialized in this function boyer-stalin.c:5667: warning: `a126' might be used uninitialized in this function boyer-stalin.c:5668: warning: `a127' might be used uninitialized in this function boyer-stalin.c:5669: warning: `a128' might be used uninitialized in this function boyer-stalin.c:5670: warning: `a129' might be used uninitialized in this function boyer-stalin.c:5671: warning: `a130' might be used uninitialized in this function boyer-stalin.c:5672: warning: `a131' might be used uninitialized in this function boyer-stalin.c:5673: warning: `a132' might be used uninitialized in this function boyer-stalin.c:5674: warning: `a133' might be used uninitialized in this function boyer-stalin.c:5675: warning: `a134' might be used uninitialized in this function boyer-stalin.c:5676: warning: `a135' might be used uninitialized in this function boyer-stalin.c:5677: warning: `a136' might be used uninitialized in this function boyer-stalin.c:5678: warning: `a137' might be used uninitialized in this function boyer-stalin.c:5679: warning: `a138' might be used uninitialized in this function boyer-stalin.c:5680: warning: `a139' might be used uninitialized in this function boyer-stalin.c:5681: warning: `a140' might be used uninitialized in this function boyer-stalin.c:5682: warning: `a141' might be used uninitialized in this function boyer-stalin.c:5683: warning: `a142' might be used uninitialized in this function boyer-stalin.c:5684: warning: `a143' might be used uninitialized in this function boyer-stalin.c:5685: warning: `a144' might be used uninitialized in this function boyer-stalin.c:5686: warning: `a145' might be used uninitialized in this function boyer-stalin.c:5687: warning: `a146' might be used uninitialized in this function boyer-stalin.c:5688: warning: `a147' might be used uninitialized in this function boyer-stalin.c:5689: warning: `a148' might be used uninitialized in this function boyer-stalin.c:5690: warning: `a149' might be used uninitialized in this function boyer-stalin.c:5691: warning: `a150' might be used uninitialized in this function boyer-stalin.c:5692: warning: `a151' might be used uninitialized in this function boyer-stalin.c:5693: warning: `a152' might be used uninitialized in this function boyer-stalin.c:5694: warning: `a153' might be used uninitialized in this function boyer-stalin.c:5695: warning: `a154' might be used uninitialized in this function boyer-stalin.c:5696: warning: `a155' might be used uninitialized in this function boyer-stalin.c:5697: warning: `a156' might be used uninitialized in this function boyer-stalin.c:5698: warning: `a157' might be used uninitialized in this function boyer-stalin.c:5699: warning: `a158' might be used uninitialized in this function boyer-stalin.c:5700: warning: `a159' might be used uninitialized in this function boyer-stalin.c:5701: warning: `a160' might be used uninitialized in this function boyer-stalin.c:5702: warning: `a161' might be used uninitialized in this function boyer-stalin.c:5703: warning: `a162' might be used uninitialized in this function boyer-stalin.c:5704: warning: `a163' might be used uninitialized in this function boyer-stalin.c:5705: warning: `a164' might be used uninitialized in this function boyer-stalin.c:5706: warning: `a165' might be used uninitialized in this function boyer-stalin.c:5707: warning: `a166' might be used uninitialized in this function boyer-stalin.c:5708: warning: `a167' might be used uninitialized in this function boyer-stalin.c:5709: warning: `a168' might be used uninitialized in this function boyer-stalin.c:5710: warning: `a169' might be used uninitialized in this function boyer-stalin.c:5711: warning: `a170' might be used uninitialized in this function boyer-stalin.c:5712: warning: `a171' might be used uninitialized in this function boyer-stalin.c:5713: warning: `a172' might be used uninitialized in this function boyer-stalin.c:5714: warning: `a173' might be used uninitialized in this function boyer-stalin.c:5715: warning: `a174' might be used uninitialized in this function boyer-stalin.c:5716: warning: `a175' might be used uninitialized in this function boyer-stalin.c:5717: warning: `a176' might be used uninitialized in this function boyer-stalin.c:5718: warning: `a177' might be used uninitialized in this function boyer-stalin.c:5719: warning: `a178' might be used uninitialized in this function boyer-stalin.c:5720: warning: `a179' might be used uninitialized in this function boyer-stalin.c:5721: warning: `a180' might be used uninitialized in this function boyer-stalin.c:5722: warning: `a181' might be used uninitialized in this function boyer-stalin.c:5723: warning: `a182' might be used uninitialized in this function boyer-stalin.c:5724: warning: `a183' might be used uninitialized in this function boyer-stalin.c:5725: warning: `a184' might be used uninitialized in this function boyer-stalin.c:5726: warning: `a185' might be used uninitialized in this function boyer-stalin.c:5727: warning: `a186' might be used uninitialized in this function boyer-stalin.c:5728: warning: `a187' might be used uninitialized in this function boyer-stalin.c:5729: warning: `a188' might be used uninitialized in this function boyer-stalin.c:5730: warning: `a189' might be used uninitialized in this function boyer-stalin.c:5731: warning: `a190' might be used uninitialized in this function boyer-stalin.c:5732: warning: `a191' might be used uninitialized in this function boyer-stalin.c:5733: warning: `a192' might be used uninitialized in this function boyer-stalin.c:5734: warning: `a193' might be used uninitialized in this function boyer-stalin.c:5735: warning: `a194' might be used uninitialized in this function boyer-stalin.c:5736: warning: `a195' might be used uninitialized in this function boyer-stalin.c:5737: warning: `a196' might be used uninitialized in this function boyer-stalin.c:5738: warning: `a197' might be used uninitialized in this function boyer-stalin.c:5739: warning: `a198' might be used uninitialized in this function boyer-stalin.c:5740: warning: `a199' might be used uninitialized in this function boyer-stalin.c:5741: warning: `a200' might be used uninitialized in this function boyer-stalin.c:5742: warning: `a201' might be used uninitialized in this function boyer-stalin.c:5743: warning: `a202' might be used uninitialized in this function boyer-stalin.c:5744: warning: `a203' might be used uninitialized in this function boyer-stalin.c:5745: warning: `a204' might be used uninitialized in this function boyer-stalin.c:5746: warning: `a205' might be used uninitialized in this function boyer-stalin.c:5747: warning: `a206' might be used uninitialized in this function boyer-stalin.c:5748: warning: `a207' might be used uninitialized in this function boyer-stalin.c:5749: warning: `a208' might be used uninitialized in this function boyer-stalin.c:5750: warning: `a209' might be used uninitialized in this function boyer-stalin.c:5751: warning: `a210' might be used uninitialized in this function boyer-stalin.c:5752: warning: `a211' might be used uninitialized in this function boyer-stalin.c:5753: warning: `a212' might be used uninitialized in this function boyer-stalin.c:5754: warning: `a213' might be used uninitialized in this function boyer-stalin.c:5755: warning: `a214' might be used uninitialized in this function boyer-stalin.c:5756: warning: `a215' might be used uninitialized in this function boyer-stalin.c:5757: warning: `a216' might be used uninitialized in this function boyer-stalin.c:5758: warning: `a217' might be used uninitialized in this function boyer-stalin.c:5759: warning: `a218' might be used uninitialized in this function boyer-stalin.c:5760: warning: `a219' might be used uninitialized in this function boyer-stalin.c:5761: warning: `a220' might be used uninitialized in this function boyer-stalin.c:5762: warning: `a221' might be used uninitialized in this function boyer-stalin.c:5763: warning: `a222' might be used uninitialized in this function boyer-stalin.c:5764: warning: `a223' might be used uninitialized in this function boyer-stalin.c:5765: warning: `a224' might be used uninitialized in this function boyer-stalin.c:5766: warning: `a225' might be used uninitialized in this function boyer-stalin.c:5767: warning: `a226' might be used uninitialized in this function boyer-stalin.c:5768: warning: `a227' might be used uninitialized in this function boyer-stalin.c:5769: warning: `a228' might be used uninitialized in this function boyer-stalin.c:5770: warning: `a229' might be used uninitialized in this function boyer-stalin.c:5771: warning: `a230' might be used uninitialized in this function boyer-stalin.c:5772: warning: `a231' might be used uninitialized in this function boyer-stalin.c:5773: warning: `a232' might be used uninitialized in this function boyer-stalin.c:5774: warning: `a233' might be used uninitialized in this function boyer-stalin.c:5775: warning: `a234' might be used uninitialized in this function boyer-stalin.c:5776: warning: `a235' might be used uninitialized in this function boyer-stalin.c:5777: warning: `a236' might be used uninitialized in this function boyer-stalin.c:5778: warning: `a237' might be used uninitialized in this function boyer-stalin.c:5779: warning: `a238' might be used uninitialized in this function boyer-stalin.c:5780: warning: `a239' might be used uninitialized in this function boyer-stalin.c:5781: warning: `a240' might be used uninitialized in this function boyer-stalin.c:5782: warning: `a241' might be used uninitialized in this function boyer-stalin.c:5783: warning: `a242' might be used uninitialized in this function boyer-stalin.c:5784: warning: `a243' might be used uninitialized in this function boyer-stalin.c:5785: warning: `a244' might be used uninitialized in this function boyer-stalin.c:5786: warning: `a245' might be used uninitialized in this function boyer-stalin.c:5787: warning: `a246' might be used uninitialized in this function boyer-stalin.c:5788: warning: `a247' might be used uninitialized in this function boyer-stalin.c:5789: warning: `a248' might be used uninitialized in this function boyer-stalin.c:5790: warning: `a249' might be used uninitialized in this function boyer-stalin.c:5791: warning: `a250' might be used uninitialized in this function boyer-stalin.c:5792: warning: `a251' might be used uninitialized in this function boyer-stalin.c:5793: warning: `a252' might be used uninitialized in this function boyer-stalin.c:5794: warning: `a253' might be used uninitialized in this function boyer-stalin.c:5795: warning: `a254' might be used uninitialized in this function boyer-stalin.c:5796: warning: `a255' might be used uninitialized in this function boyer-stalin.c:5797: warning: `a256' might be used uninitialized in this function boyer-stalin.c:5798: warning: `a257' might be used uninitialized in this function boyer-stalin.c:5799: warning: `a258' might be used uninitialized in this function boyer-stalin.c:5800: warning: `a259' might be used uninitialized in this function boyer-stalin.c:5801: warning: `a260' might be used uninitialized in this function boyer-stalin.c:5802: warning: `a261' might be used uninitialized in this function boyer-stalin.c:5803: warning: `a262' might be used uninitialized in this function boyer-stalin.c:5804: warning: `a263' might be used uninitialized in this function boyer-stalin.c:5805: warning: `a264' might be used uninitialized in this function boyer-stalin.c:5806: warning: `a265' might be used uninitialized in this function boyer-stalin.c:5807: warning: `a266' might be used uninitialized in this function boyer-stalin.c:5808: warning: `a267' might be used uninitialized in this function boyer-stalin.c:5809: warning: `a268' might be used uninitialized in this function boyer-stalin.c:5810: warning: `a269' might be used uninitialized in this function boyer-stalin.c:5811: warning: `a270' might be used uninitialized in this function boyer-stalin.c:5812: warning: `a271' might be used uninitialized in this function boyer-stalin.c:5813: warning: `a272' might be used uninitialized in this function boyer-stalin.c:5814: warning: `a273' might be used uninitialized in this function boyer-stalin.c:5815: warning: `a274' might be used uninitialized in this function boyer-stalin.c:5816: warning: `a275' might be used uninitialized in this function boyer-stalin.c:5817: warning: `a276' might be used uninitialized in this function boyer-stalin.c:5818: warning: `a277' might be used uninitialized in this function boyer-stalin.c:5819: warning: `a278' might be used uninitialized in this function boyer-stalin.c:5820: warning: `a279' might be used uninitialized in this function boyer-stalin.c:5821: warning: `a280' might be used uninitialized in this function boyer-stalin.c:5822: warning: `a281' might be used uninitialized in this function boyer-stalin.c:5823: warning: `a282' might be used uninitialized in this function boyer-stalin.c:5824: warning: `a283' might be used uninitialized in this function boyer-stalin.c:5825: warning: `a284' might be used uninitialized in this function boyer-stalin.c:5826: warning: `a285' might be used uninitialized in this function boyer-stalin.c:5827: warning: `a286' might be used uninitialized in this function boyer-stalin.c:5828: warning: `a287' might be used uninitialized in this function boyer-stalin.c:5829: warning: `a288' might be used uninitialized in this function boyer-stalin.c:5830: warning: `a289' might be used uninitialized in this function boyer-stalin.c:5831: warning: `a290' might be used uninitialized in this function boyer-stalin.c:5832: warning: `a291' might be used uninitialized in this function boyer-stalin.c:5833: warning: `a292' might be used uninitialized in this function boyer-stalin.c:5834: warning: `a293' might be used uninitialized in this function boyer-stalin.c:5835: warning: `a294' might be used uninitialized in this function boyer-stalin.c:5836: warning: `a295' might be used uninitialized in this function boyer-stalin.c:5837: warning: `a296' might be used uninitialized in this function boyer-stalin.c:5838: warning: `a297' might be used uninitialized in this function boyer-stalin.c:5839: warning: `a298' might be used uninitialized in this function boyer-stalin.c:5840: warning: `a299' might be used uninitialized in this function boyer-stalin.c:5841: warning: `a300' might be used uninitialized in this function boyer-stalin.c:5842: warning: `a301' might be used uninitialized in this function boyer-stalin.c:5843: warning: `a302' might be used uninitialized in this function boyer-stalin.c:5844: warning: `a303' might be used uninitialized in this function boyer-stalin.c:5845: warning: `a304' might be used uninitialized in this function boyer-stalin.c:5846: warning: `a305' might be used uninitialized in this function boyer-stalin.c:5847: warning: `a306' might be used uninitialized in this function boyer-stalin.c:5848: warning: `a307' might be used uninitialized in this function boyer-stalin.c:5849: warning: `a308' might be used uninitialized in this function boyer-stalin.c:5850: warning: `a309' might be used uninitialized in this function boyer-stalin.c:5851: warning: `a310' might be used uninitialized in this function boyer-stalin.c:5852: warning: `a311' might be used uninitialized in this function boyer-stalin.c:5853: warning: `a312' might be used uninitialized in this function boyer-stalin.c:5854: warning: `a313' might be used uninitialized in this function boyer-stalin.c:5855: warning: `a314' might be used uninitialized in this function boyer-stalin.c:5856: warning: `a315' might be used uninitialized in this function boyer-stalin.c:5857: warning: `a316' might be used uninitialized in this function boyer-stalin.c:5858: warning: `a317' might be used uninitialized in this function boyer-stalin.c:5859: warning: `a318' might be used uninitialized in this function boyer-stalin.c:5860: warning: `a319' might be used uninitialized in this function boyer-stalin.c:5861: warning: `a320' might be used uninitialized in this function boyer-stalin.c:5862: warning: `a321' might be used uninitialized in this function boyer-stalin.c:5863: warning: `a322' might be used uninitialized in this function boyer-stalin.c:5864: warning: `a323' might be used uninitialized in this function boyer-stalin.c:5865: warning: `a324' might be used uninitialized in this function boyer-stalin.c:5866: warning: `a325' might be used uninitialized in this function boyer-stalin.c:5867: warning: `a326' might be used uninitialized in this function boyer-stalin.c:5868: warning: `a327' might be used uninitialized in this function boyer-stalin.c:5869: warning: `a328' might be used uninitialized in this function boyer-stalin.c:5870: warning: `a329' might be used uninitialized in this function boyer-stalin.c:5871: warning: `a330' might be used uninitialized in this function boyer-stalin.c:5872: warning: `a331' might be used uninitialized in this function boyer-stalin.c:5873: warning: `a332' might be used uninitialized in this function boyer-stalin.c:5874: warning: `a333' might be used uninitialized in this function boyer-stalin.c:5875: warning: `a334' might be used uninitialized in this function boyer-stalin.c:5876: warning: `a335' might be used uninitialized in this function boyer-stalin.c:5877: warning: `a336' might be used uninitialized in this function boyer-stalin.c:5878: warning: `a337' might be used uninitialized in this function boyer-stalin.c:5879: warning: `a338' might be used uninitialized in this function boyer-stalin.c:5880: warning: `a339' might be used uninitialized in this function boyer-stalin.c:5881: warning: `a340' might be used uninitialized in this function boyer-stalin.c:5882: warning: `a341' might be used uninitialized in this function boyer-stalin.c:5883: warning: `a342' might be used uninitialized in this function boyer-stalin.c:5884: warning: `a343' might be used uninitialized in this function boyer-stalin.c:5885: warning: `a344' might be used uninitialized in this function boyer-stalin.c:5886: warning: `a345' might be used uninitialized in this function boyer-stalin.c:5887: warning: `a346' might be used uninitialized in this function boyer-stalin.c:5888: warning: `a347' might be used uninitialized in this function boyer-stalin.c:5889: warning: `a348' might be used uninitialized in this function boyer-stalin.c:5890: warning: `a349' might be used uninitialized in this function boyer-stalin.c:5891: warning: `a350' might be used uninitialized in this function boyer-stalin.c:5892: warning: `a351' might be used uninitialized in this function boyer-stalin.c:5893: warning: `a352' might be used uninitialized in this function boyer-stalin.c:5894: warning: `a353' might be used uninitialized in this function boyer-stalin.c:5895: warning: `a354' might be used uninitialized in this function boyer-stalin.c:5896: warning: `a355' might be used uninitialized in this function boyer-stalin.c:5897: warning: `a356' might be used uninitialized in this function boyer-stalin.c:5898: warning: `a357' might be used uninitialized in this function boyer-stalin.c:5899: warning: `a358' might be used uninitialized in this function boyer-stalin.c:5900: warning: `a359' might be used uninitialized in this function boyer-stalin.c:5901: warning: `a360' might be used uninitialized in this function boyer-stalin.c:5902: warning: `a361' might be used uninitialized in this function boyer-stalin.c:5903: warning: `a362' might be used uninitialized in this function boyer-stalin.c:5904: warning: `a363' might be used uninitialized in this function boyer-stalin.c:5905: warning: `a364' might be used uninitialized in this function boyer-stalin.c:5906: warning: `a365' might be used uninitialized in this function boyer-stalin.c:5907: warning: `a366' might be used uninitialized in this function boyer-stalin.c:5908: warning: `a367' might be used uninitialized in this function boyer-stalin.c:5909: warning: `a368' might be used uninitialized in this function boyer-stalin.c:5910: warning: `a369' might be used uninitialized in this function boyer-stalin.c:5911: warning: `a370' might be used uninitialized in this function boyer-stalin.c:5912: warning: `a371' might be used uninitialized in this function boyer-stalin.c:5913: warning: `a372' might be used uninitialized in this function boyer-stalin.c:5914: warning: `a373' might be used uninitialized in this function boyer-stalin.c:5915: warning: `a374' might be used uninitialized in this function boyer-stalin.c:5916: warning: `a375' might be used uninitialized in this function boyer-stalin.c:5917: warning: `a376' might be used uninitialized in this function boyer-stalin.c:5918: warning: `a377' might be used uninitialized in this function boyer-stalin.c:5919: warning: `a378' might be used uninitialized in this function boyer-stalin.c:5920: warning: `a379' might be used uninitialized in this function boyer-stalin.c:5921: warning: `a380' might be used uninitialized in this function boyer-stalin.c:5922: warning: `a381' might be used uninitialized in this function boyer-stalin.c:5923: warning: `a382' might be used uninitialized in this function boyer-stalin.c:5924: warning: `a383' might be used uninitialized in this function boyer-stalin.c:5925: warning: `a384' might be used uninitialized in this function boyer-stalin.c:5926: warning: `a385' might be used uninitialized in this function boyer-stalin.c:5927: warning: `a386' might be used uninitialized in this function boyer-stalin.c:5928: warning: `a387' might be used uninitialized in this function boyer-stalin.c:5929: warning: `a388' might be used uninitialized in this function boyer-stalin.c:5930: warning: `a389' might be used uninitialized in this function boyer-stalin.c:5931: warning: `a390' might be used uninitialized in this function boyer-stalin.c:5932: warning: `a391' might be used uninitialized in this function boyer-stalin.c:5933: warning: `a392' might be used uninitialized in this function boyer-stalin.c:5934: warning: `a393' might be used uninitialized in this function boyer-stalin.c:5935: warning: `a394' might be used uninitialized in this function boyer-stalin.c:5936: warning: `a395' might be used uninitialized in this function boyer-stalin.c:5937: warning: `a396' might be used uninitialized in this function boyer-stalin.c:5938: warning: `a397' might be used uninitialized in this function boyer-stalin.c:5939: warning: `a398' might be used uninitialized in this function boyer-stalin.c:5940: warning: `a399' might be used uninitialized in this function boyer-stalin.c:5941: warning: `a400' might be used uninitialized in this function boyer-stalin.c:5942: warning: `a401' might be used uninitialized in this function boyer-stalin.c:5943: warning: `a402' might be used uninitialized in this function boyer-stalin.c:5944: warning: `a403' might be used uninitialized in this function boyer-stalin.c:5945: warning: `a404' might be used uninitialized in this function boyer-stalin.c:5946: warning: `a405' might be used uninitialized in this function boyer-stalin.c:5947: warning: `a406' might be used uninitialized in this function boyer-stalin.c:5948: warning: `a407' might be used uninitialized in this function boyer-stalin.c:5949: warning: `a408' might be used uninitialized in this function boyer-stalin.c:5950: warning: `a409' might be used uninitialized in this function boyer-stalin.c:5951: warning: `a410' might be used uninitialized in this function boyer-stalin.c:5952: warning: `a411' might be used uninitialized in this function boyer-stalin.c:5953: warning: `a412' might be used uninitialized in this function boyer-stalin.c:5954: warning: `a413' might be used uninitialized in this function boyer-stalin.c:5955: warning: `a414' might be used uninitialized in this function boyer-stalin.c:5956: warning: `a415' might be used uninitialized in this function boyer-stalin.c:5957: warning: `a416' might be used uninitialized in this function boyer-stalin.c:5958: warning: `a417' might be used uninitialized in this function boyer-stalin.c:5959: warning: `a418' might be used uninitialized in this function boyer-stalin.c:5960: warning: `a419' might be used uninitialized in this function boyer-stalin.c:5961: warning: `a420' might be used uninitialized in this function boyer-stalin.c:5962: warning: `a421' might be used uninitialized in this function boyer-stalin.c:5963: warning: `a422' might be used uninitialized in this function boyer-stalin.c:5964: warning: `a423' might be used uninitialized in this function boyer-stalin.c:5965: warning: `a424' might be used uninitialized in this function boyer-stalin.c:5966: warning: `a425' might be used uninitialized in this function boyer-stalin.c:5967: warning: `a426' might be used uninitialized in this function boyer-stalin.c:5968: warning: `a427' might be used uninitialized in this function boyer-stalin.c:5969: warning: `a428' might be used uninitialized in this function boyer-stalin.c:5970: warning: `a429' might be used uninitialized in this function boyer-stalin.c:5971: warning: `a430' might be used uninitialized in this function boyer-stalin.c:5972: warning: `a431' might be used uninitialized in this function boyer-stalin.c:5973: warning: `a432' might be used uninitialized in this function boyer-stalin.c:5974: warning: `a433' might be used uninitialized in this function boyer-stalin.c:5975: warning: `a434' might be used uninitialized in this function boyer-stalin.c:5976: warning: `a435' might be used uninitialized in this function boyer-stalin.c:6190: warning: `a649' might be used uninitialized in this function boyer-stalin.c:6191: warning: `a650' might be used uninitialized in this function boyer-stalin.c:6192: warning: `a651' might be used uninitialized in this function boyer-stalin.c:6193: warning: `a652' might be used uninitialized in this function boyer-stalin.c:6195: warning: `a654' might be used uninitialized in this function boyer-stalin.c:6197: warning: `a656' might be used uninitialized in this function boyer-stalin.c:6198: warning: `a657' might be used uninitialized in this function boyer-stalin.c:6199: warning: `a658' might be used uninitialized in this function boyer-stalin.c:6200: warning: `a659' might be used uninitialized in this function boyer-stalin.c:6201: warning: `a660' might be used uninitialized in this function boyer-stalin.c:6202: warning: `a661' might be used uninitialized in this function boyer-stalin.c:6203: warning: `a662' might be used uninitialized in this function boyer-stalin.c:6204: warning: `a663' might be used uninitialized in this function boyer-stalin.c:6205: warning: `a664' might be used uninitialized in this function boyer-stalin.c:6206: warning: `a665' might be used uninitialized in this function boyer-stalin.c:6207: warning: `a666' might be used uninitialized in this function boyer-stalin.c:6208: warning: `a667' might be used uninitialized in this function boyer-stalin.c:6209: warning: `a668' might be used uninitialized in this function boyer-stalin.c:6210: warning: `a669' might be used uninitialized in this function boyer-stalin.c:6211: warning: `a670' might be used uninitialized in this function boyer-stalin.c:6212: warning: `a671' might be used uninitialized in this function boyer-stalin.c:6213: warning: `a672' might be used uninitialized in this function boyer-stalin.c:6214: warning: `a673' might be used uninitialized in this function boyer-stalin.c:6215: warning: `a674' might be used uninitialized in this function boyer-stalin.c:6216: warning: `a675' might be used uninitialized in this function boyer-stalin.c:6217: warning: `a676' might be used uninitialized in this function boyer-stalin.c:6219: warning: `a678' might be used uninitialized in this function boyer-stalin.c:6220: warning: `a679' might be used uninitialized in this function boyer-stalin.c:6221: warning: `a680' might be used uninitialized in this function boyer-stalin.c:6222: warning: `a681' might be used uninitialized in this function boyer-stalin.c:6223: warning: `a682' might be used uninitialized in this function boyer-stalin.c:6224: warning: `a683' might be used uninitialized in this function boyer-stalin.c:6225: warning: `a684' might be used uninitialized in this function boyer-stalin.c:6226: warning: `a685' might be used uninitialized in this function boyer-stalin.c:6227: warning: `a686' might be used uninitialized in this function boyer-stalin.c:6228: warning: `a687' might be used uninitialized in this function boyer-stalin.c:6229: warning: `a688' might be used uninitialized in this function boyer-stalin.c:6230: warning: `a689' might be used uninitialized in this function boyer-stalin.c:6231: warning: `a690' might be used uninitialized in this function boyer-stalin.c:6232: warning: `a691' might be used uninitialized in this function boyer-stalin.c:6233: warning: `a692' might be used uninitialized in this function boyer-stalin.c:6234: warning: `a693' might be used uninitialized in this function boyer-stalin.c:6235: warning: `a694' might be used uninitialized in this function boyer-stalin.c:6236: warning: `a695' might be used uninitialized in this function boyer-stalin.c:6237: warning: `a696' might be used uninitialized in this function boyer-stalin.c:6238: warning: `a697' might be used uninitialized in this function boyer-stalin.c:6239: warning: `a698' might be used uninitialized in this function boyer-stalin.c:6240: warning: `a699' might be used uninitialized in this function boyer-stalin.c:6241: warning: `a700' might be used uninitialized in this function boyer-stalin.c:6243: warning: `a706' might be used uninitialized in this function boyer-stalin.c:6246: warning: `a709' might be used uninitialized in this function boyer-stalin.c:6248: warning: `a711' might be used uninitialized in this function boyer-stalin.c:6251: warning: `a716' might be used uninitialized in this function boyer-stalin.c:6253: warning: `a742' might be used uninitialized in this function boyer-stalin.c:6255: warning: `a744' might be used uninitialized in this function boyer-stalin.c:6256: warning: `a745' might be used uninitialized in this function boyer-stalin.c:6257: warning: `a746' might be used uninitialized in this function boyer-stalin.c:6258: warning: `a747' might be used uninitialized in this function boyer-stalin.c:6259: warning: `a913' might be used uninitialized in this function boyer-stalin.c:6261: warning: `a942' might be used uninitialized in this function boyer-stalin.c:6262: warning: `a1805' might be used uninitialized in this function boyer-stalin.c:6263: warning: `a1806' might be used uninitialized in this function boyer-stalin.c:6267: warning: `a1810' might be used uninitialized in this function boyer-stalin.c:6268: warning: `a1811' might be used uninitialized in this function boyer-stalin.c:6269: warning: `a1812' might be used uninitialized in this function boyer-stalin.c:6270: warning: `a1813' might be used uninitialized in this function boyer-stalin.c:6271: warning: `a1814' might be used uninitialized in this function boyer-stalin.c:6272: warning: `a1815' might be used uninitialized in this function boyer-stalin.c:6273: warning: `a1816' might be used uninitialized in this function boyer-stalin.c:6274: warning: `a1817' might be used uninitialized in this function boyer-stalin.c:6275: warning: `a1818' might be used uninitialized in this function boyer-stalin.c:6276: warning: `a1819' might be used uninitialized in this function boyer-stalin.c:6277: warning: `a1820' might be used uninitialized in this function boyer-stalin.c:6278: warning: `a1821' might be used uninitialized in this function boyer-stalin.c:6279: warning: `a1822' might be used uninitialized in this function boyer-stalin.c:6280: warning: `a1823' might be used uninitialized in this function boyer-stalin.c:6281: warning: `a1824' might be used uninitialized in this function boyer-stalin.c:6282: warning: `a1825' might be used uninitialized in this function boyer-stalin.c:6283: warning: `a1826' might be used uninitialized in this function boyer-stalin.c:6284: warning: `a1827' might be used uninitialized in this function boyer-stalin.c:6285: warning: `a1828' might be used uninitialized in this function boyer-stalin.c:6286: warning: `a1829' might be used uninitialized in this function boyer-stalin.c:6287: warning: `a1830' might be used uninitialized in this function boyer-stalin.c:6288: warning: `a1831' might be used uninitialized in this function boyer-stalin.c:6289: warning: `a1832' might be used uninitialized in this function boyer-stalin.c:6290: warning: `a1833' might be used uninitialized in this function boyer-stalin.c:6291: warning: `a1834' might be used uninitialized in this function boyer-stalin.c:6292: warning: `a1835' might be used uninitialized in this function boyer-stalin.c:6293: warning: `a1836' might be used uninitialized in this function boyer-stalin.c:6294: warning: `a1837' might be used uninitialized in this function boyer-stalin.c:6295: warning: `a1838' might be used uninitialized in this function boyer-stalin.c:6296: warning: `a1839' might be used uninitialized in this function boyer-stalin.c:6297: warning: `a1840' might be used uninitialized in this function boyer-stalin.c:6298: warning: `a1841' might be used uninitialized in this function boyer-stalin.c:6299: warning: `a1842' might be used uninitialized in this function boyer-stalin.c:6300: warning: `a1843' might be used uninitialized in this function boyer-stalin.c:6304: warning: `a1933' might be used uninitialized in this function boyer-stalin.c:6305: warning: `a1934' might be used uninitialized in this function boyer-stalin.c:6307: warning: `a2145' might be used uninitialized in this function boyer-stalin.c:6308: warning: `a2148' might be used uninitialized in this function boyer-stalin.c:6319: warning: `t935' might be used uninitialized in this function boyer-stalin.c:6320: warning: `t936' might be used uninitialized in this function boyer-stalin.c:6321: warning: `t937' might be used uninitialized in this function boyer-stalin.c:6322: warning: `t938' might be used uninitialized in this function boyer-stalin.c:6323: warning: `t939' might be used uninitialized in this function boyer-stalin.c:6324: warning: `t940' might be used uninitialized in this function boyer-stalin.c:6325: warning: `t941' might be used uninitialized in this function boyer-stalin.c:6326: warning: `t942' might be used uninitialized in this function boyer-stalin.c:6327: warning: `t943' might be used uninitialized in this function boyer-stalin.c:6331: warning: `t947' might be used uninitialized in this function boyer-stalin.c:6332: warning: `t948' might be used uninitialized in this function boyer-stalin.c:6333: warning: `t949' might be used uninitialized in this function boyer-stalin.c:6334: warning: `t950' might be used uninitialized in this function boyer-stalin.c:6335: warning: `t951' might be used uninitialized in this function boyer-stalin.c:6336: warning: `t952' might be used uninitialized in this function boyer-stalin.c:6337: warning: `t953' might be used uninitialized in this function boyer-stalin.c:6338: warning: `t954' might be used uninitialized in this function boyer-stalin.c:6339: warning: `t955' might be used uninitialized in this function boyer-stalin.c:6340: warning: `t956' might be used uninitialized in this function boyer-stalin.c:6341: warning: `t957' might be used uninitialized in this function boyer-stalin.c:6342: warning: `t958' might be used uninitialized in this function boyer-stalin.c:6343: warning: `t959' might be used uninitialized in this function boyer-stalin.c:6344: warning: `t960' might be used uninitialized in this function boyer-stalin.c:6345: warning: `t961' might be used uninitialized in this function boyer-stalin.c:6346: warning: `t962' might be used uninitialized in this function boyer-stalin.c:6347: warning: `t963' might be used uninitialized in this function boyer-stalin.c:6348: warning: `t964' might be used uninitialized in this function boyer-stalin.c:6349: warning: `t965' might be used uninitialized in this function boyer-stalin.c:6350: warning: `t966' might be used uninitialized in this function boyer-stalin.c:6351: warning: `t967' might be used uninitialized in this function boyer-stalin.c:6352: warning: `t968' might be used uninitialized in this function boyer-stalin.c:6353: warning: `t969' might be used uninitialized in this function boyer-stalin.c:6354: warning: `t970' might be used uninitialized in this function boyer-stalin.c:6355: warning: `t971' might be used uninitialized in this function boyer-stalin.c:6356: warning: `t972' might be used uninitialized in this function boyer-stalin.c:6357: warning: `t973' might be used uninitialized in this function boyer-stalin.c:6358: warning: `t974' might be used uninitialized in this function boyer-stalin.c:6359: warning: `t975' might be used uninitialized in this function boyer-stalin.c:6360: warning: `t976' might be used uninitialized in this function boyer-stalin.c:6361: warning: `t977' might be used uninitialized in this function boyer-stalin.c:6362: warning: `t978' might be used uninitialized in this function boyer-stalin.c:6363: warning: `t979' might be used uninitialized in this function boyer-stalin.c:6364: warning: `t980' might be used uninitialized in this function boyer-stalin.c:6365: warning: `t981' might be used uninitialized in this function boyer-stalin.c:6366: warning: `t982' might be used uninitialized in this function boyer-stalin.c:6367: warning: `t983' might be used uninitialized in this function boyer-stalin.c:6368: warning: `t984' might be used uninitialized in this function boyer-stalin.c:6369: warning: `t985' might be used uninitialized in this function boyer-stalin.c:6370: warning: `t986' might be used uninitialized in this function boyer-stalin.c:6371: warning: `t987' might be used uninitialized in this function boyer-stalin.c:6372: warning: `t988' might be used uninitialized in this function boyer-stalin.c:6373: warning: `t989' might be used uninitialized in this function boyer-stalin.c:6374: warning: `t990' might be used uninitialized in this function boyer-stalin.c:6375: warning: `t991' might be used uninitialized in this function boyer-stalin.c:6376: warning: `t992' might be used uninitialized in this function boyer-stalin.c:6377: warning: `t993' might be used uninitialized in this function boyer-stalin.c:6378: warning: `t994' might be used uninitialized in this function boyer-stalin.c:6379: warning: `t995' might be used uninitialized in this function boyer-stalin.c:6380: warning: `t996' might be used uninitialized in this function boyer-stalin.c:6381: warning: `t997' might be used uninitialized in this function boyer-stalin.c:6382: warning: `t998' might be used uninitialized in this function boyer-stalin.c:6383: warning: `t999' might be used uninitialized in this function boyer-stalin.c:6384: warning: `t1000' might be used uninitialized in this function boyer-stalin.c:6385: warning: `t1001' might be used uninitialized in this function boyer-stalin.c:6386: warning: `t1002' might be used uninitialized in this function boyer-stalin.c:6387: warning: `t1003' might be used uninitialized in this function boyer-stalin.c:6388: warning: `t1004' might be used uninitialized in this function boyer-stalin.c:6389: warning: `t1005' might be used uninitialized in this function boyer-stalin.c:6390: warning: `t1006' might be used uninitialized in this function boyer-stalin.c:6391: warning: `t1007' might be used uninitialized in this function boyer-stalin.c:6392: warning: `t1008' might be used uninitialized in this function boyer-stalin.c:6393: warning: `t1009' might be used uninitialized in this function boyer-stalin.c:6394: warning: `t1010' might be used uninitialized in this function boyer-stalin.c:6395: warning: `t1011' might be used uninitialized in this function boyer-stalin.c:6396: warning: `t1012' might be used uninitialized in this function boyer-stalin.c:6397: warning: `t1013' might be used uninitialized in this function boyer-stalin.c:6398: warning: `t1014' might be used uninitialized in this function boyer-stalin.c:6399: warning: `t1015' might be used uninitialized in this function boyer-stalin.c:6400: warning: `t1016' might be used uninitialized in this function boyer-stalin.c:6401: warning: `t1017' might be used uninitialized in this function boyer-stalin.c:6402: warning: `t1018' might be used uninitialized in this function boyer-stalin.c:6403: warning: `t1019' might be used uninitialized in this function boyer-stalin.c:6404: warning: `t1020' might be used uninitialized in this function boyer-stalin.c:6405: warning: `t1021' might be used uninitialized in this function boyer-stalin.c:6406: warning: `t1022' might be used uninitialized in this function boyer-stalin.c:6407: warning: `t1023' might be used uninitialized in this function boyer-stalin.c:6408: warning: `t1024' might be used uninitialized in this function boyer-stalin.c:6409: warning: `t1025' might be used uninitialized in this function boyer-stalin.c:6410: warning: `t1026' might be used uninitialized in this function boyer-stalin.c:6411: warning: `t1027' might be used uninitialized in this function boyer-stalin.c:6412: warning: `t1028' might be used uninitialized in this function boyer-stalin.c:6413: warning: `t1029' might be used uninitialized in this function boyer-stalin.c:6414: warning: `t1030' might be used uninitialized in this function boyer-stalin.c:6415: warning: `t1031' might be used uninitialized in this function boyer-stalin.c:6416: warning: `t1032' might be used uninitialized in this function boyer-stalin.c:6417: warning: `t1033' might be used uninitialized in this function boyer-stalin.c:6418: warning: `t1034' might be used uninitialized in this function boyer-stalin.c:6419: warning: `t1035' might be used uninitialized in this function boyer-stalin.c:6420: warning: `t1036' might be used uninitialized in this function boyer-stalin.c:6421: warning: `t1037' might be used uninitialized in this function boyer-stalin.c:6422: warning: `t1038' might be used uninitialized in this function boyer-stalin.c:6423: warning: `t1039' might be used uninitialized in this function boyer-stalin.c:6424: warning: `t1040' might be used uninitialized in this function boyer-stalin.c:6425: warning: `t1041' might be used uninitialized in this function boyer-stalin.c:6426: warning: `t1042' might be used uninitialized in this function boyer-stalin.c:6427: warning: `t1043' might be used uninitialized in this function boyer-stalin.c:6428: warning: `t1044' might be used uninitialized in this function boyer-stalin.c:6429: warning: `t1045' might be used uninitialized in this function boyer-stalin.c:6430: warning: `t1046' might be used uninitialized in this function boyer-stalin.c:6431: warning: `t1047' might be used uninitialized in this function boyer-stalin.c:6432: warning: `t1048' might be used uninitialized in this function boyer-stalin.c:6433: warning: `t1049' might be used uninitialized in this function boyer-stalin.c:6434: warning: `t1050' might be used uninitialized in this function boyer-stalin.c:6435: warning: `t1051' might be used uninitialized in this function boyer-stalin.c:6436: warning: `t1052' might be used uninitialized in this function boyer-stalin.c:6437: warning: `t1053' might be used uninitialized in this function boyer-stalin.c:6438: warning: `t1054' might be used uninitialized in this function boyer-stalin.c:6439: warning: `t1055' might be used uninitialized in this function boyer-stalin.c:6440: warning: `t1056' might be used uninitialized in this function boyer-stalin.c:6441: warning: `t1057' might be used uninitialized in this function boyer-stalin.c:6442: warning: `t1058' might be used uninitialized in this function boyer-stalin.c:6443: warning: `t1059' might be used uninitialized in this function boyer-stalin.c:6444: warning: `t1060' might be used uninitialized in this function boyer-stalin.c:6445: warning: `t1061' might be used uninitialized in this function boyer-stalin.c:6446: warning: `t1062' might be used uninitialized in this function boyer-stalin.c:6447: warning: `t1063' might be used uninitialized in this function boyer-stalin.c:6448: warning: `t1064' might be used uninitialized in this function boyer-stalin.c:6449: warning: `t1065' might be used uninitialized in this function boyer-stalin.c:6450: warning: `t1066' might be used uninitialized in this function boyer-stalin.c:6451: warning: `t1067' might be used uninitialized in this function boyer-stalin.c:6452: warning: `t1068' might be used uninitialized in this function boyer-stalin.c:6453: warning: `t1069' might be used uninitialized in this function boyer-stalin.c:6454: warning: `t1070' might be used uninitialized in this function boyer-stalin.c:6455: warning: `t1071' might be used uninitialized in this function boyer-stalin.c:6456: warning: `t1072' might be used uninitialized in this function boyer-stalin.c:6457: warning: `t1073' might be used uninitialized in this function boyer-stalin.c:6458: warning: `t1074' might be used uninitialized in this function boyer-stalin.c:6459: warning: `t1075' might be used uninitialized in this function boyer-stalin.c:6460: warning: `t1076' might be used uninitialized in this function boyer-stalin.c:6461: warning: `t1077' might be used uninitialized in this function boyer-stalin.c:6462: warning: `t1078' might be used uninitialized in this function boyer-stalin.c:6463: warning: `t1079' might be used uninitialized in this function boyer-stalin.c:6464: warning: `t1080' might be used uninitialized in this function boyer-stalin.c:6465: warning: `t1081' might be used uninitialized in this function boyer-stalin.c:6466: warning: `t1082' might be used uninitialized in this function boyer-stalin.c:6467: warning: `t1083' might be used uninitialized in this function boyer-stalin.c:6468: warning: `t1084' might be used uninitialized in this function boyer-stalin.c:6469: warning: `t1085' might be used uninitialized in this function boyer-stalin.c:6470: warning: `t1086' might be used uninitialized in this function boyer-stalin.c:6471: warning: `t1087' might be used uninitialized in this function boyer-stalin.c:6472: warning: `t1088' might be used uninitialized in this function boyer-stalin.c:6473: warning: `t1089' might be used uninitialized in this function boyer-stalin.c:6474: warning: `t1090' might be used uninitialized in this function boyer-stalin.c:6477: warning: `t1093' might be used uninitialized in this function boyer-stalin.c:6478: warning: `t1094' might be used uninitialized in this function boyer-stalin.c:6479: warning: `t1095' might be used uninitialized in this function boyer-stalin.c:6480: warning: `t1096' might be used uninitialized in this function boyer-stalin.c:6481: warning: `t1097' might be used uninitialized in this function boyer-stalin.c:6482: warning: `t1098' might be used uninitialized in this function boyer-stalin.c:6483: warning: `t1099' might be used uninitialized in this function boyer-stalin.c:6484: warning: `t1100' might be used uninitialized in this function boyer-stalin.c:6485: warning: `t1101' might be used uninitialized in this function boyer-stalin.c:6486: warning: `t1102' might be used uninitialized in this function boyer-stalin.c:6487: warning: `t1103' might be used uninitialized in this function boyer-stalin.c:6488: warning: `t1104' might be used uninitialized in this function boyer-stalin.c:6489: warning: `t1105' might be used uninitialized in this function boyer-stalin.c:6490: warning: `t1106' might be used uninitialized in this function boyer-stalin.c:6491: warning: `t1107' might be used uninitialized in this function boyer-stalin.c:6492: warning: `t1108' might be used uninitialized in this function boyer-stalin.c:6493: warning: `t1109' might be used uninitialized in this function boyer-stalin.c:6494: warning: `t1110' might be used uninitialized in this function boyer-stalin.c:6495: warning: `t1111' might be used uninitialized in this function boyer-stalin.c:6496: warning: `t1112' might be used uninitialized in this function boyer-stalin.c:6497: warning: `t1113' might be used uninitialized in this function boyer-stalin.c:6498: warning: `t1114' might be used uninitialized in this function boyer-stalin.c:6499: warning: `t1115' might be used uninitialized in this function boyer-stalin.c:6500: warning: `t1116' might be used uninitialized in this function boyer-stalin.c:6502: warning: `t1118' might be used uninitialized in this function boyer-stalin.c:6503: warning: `t1119' might be used uninitialized in this function boyer-stalin.c:6504: warning: `t1120' might be used uninitialized in this function boyer-stalin.c:6505: warning: `t1121' might be used uninitialized in this function boyer-stalin.c:6506: warning: `t1122' might be used uninitialized in this function boyer-stalin.c:6507: warning: `t1123' might be used uninitialized in this function boyer-stalin.c:6508: warning: `t1124' might be used uninitialized in this function boyer-stalin.c:6509: warning: `t1125' might be used uninitialized in this function boyer-stalin.c:6510: warning: `t1126' might be used uninitialized in this function boyer-stalin.c:6511: warning: `t1127' might be used uninitialized in this function boyer-stalin.c:6512: warning: `t1128' might be used uninitialized in this function boyer-stalin.c:6514: warning: `t1130' might be used uninitialized in this function boyer-stalin.c:6515: warning: `t1131' might be used uninitialized in this function boyer-stalin.c:6516: warning: `t1132' might be used uninitialized in this function boyer-stalin.c:6517: warning: `t1133' might be used uninitialized in this function boyer-stalin.c:6518: warning: `t1134' might be used uninitialized in this function boyer-stalin.c:6520: warning: `t1136' might be used uninitialized in this function boyer-stalin.c:6521: warning: `t1137' might be used uninitialized in this function boyer-stalin.c:6522: warning: `t1138' might be used uninitialized in this function boyer-stalin.c:6523: warning: `t1139' might be used uninitialized in this function boyer-stalin.c:6524: warning: `t1140' might be used uninitialized in this function boyer-stalin.c:6525: warning: `t1141' might be used uninitialized in this function boyer-stalin.c:6526: warning: `t1142' might be used uninitialized in this function boyer-stalin.c:6528: warning: `t1144' might be used uninitialized in this function boyer-stalin.c:6529: warning: `t1145' might be used uninitialized in this function boyer-stalin.c:6530: warning: `t1146' might be used uninitialized in this function boyer-stalin.c:6531: warning: `t1147' might be used uninitialized in this function boyer-stalin.c:6623: warning: `t1337' might be used uninitialized in this function boyer-stalin.c:6727: warning: `t3446' might be used uninitialized in this function boyer-stalin.c:6728: warning: `t3447' might be used uninitialized in this function 329.30user 0.67system 5:39.09elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33235major+438649minor)pagefaults 0swaps compile graphs (STATIC-COUNTS 2473 2473 2473 2473 0 0 0 2473 2351 1330 109 270 35 83 1.690238278247502 4604 4604 478 264) Warning! The following tail-recursive tail calls are not merged: From the following expression, graphs-stalin.sc:149:5239: (\-*- (FOLD OUT CONS REST) NEW-B-STATE NEW-T-STATE ACCROSS) to -*-[87] From the following expression, graphs-stalin.sc:144:5105: (\-**- REST ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) FIRST OUT) NEW-T-STATE) to -**-[90] From the following expression, graphs-stalin.sc:136:4908: (((LAMBDA # # \-**-) (#)) UNIVERSE '() T-STATE) to -**-[90] From the following expression, graphs-stalin.sc:199:7032: (ACCROSS STATE) to [inside -**- 96] From the following expression, graphs-stalin.sc:314:10739: (\-*- ((PRIMITIVE-PROCEDURE +) VERTEX 1) STATE) to -*-[140] From the following expression, graphs-stalin.sc:308:10599: (((LAMBDA # # \-**-) (#)) 0 0 STATE) to -**-[167] From the following expression, graphs-stalin.sc:260:9267: (ACCROSS #T) to [inside -**- 96] From the following expression, graphs-stalin.sc:252:8995: (ACCROSS #T) to [inside -**- 96] graphs-stalin.c: In function `f215': graphs-stalin.c:3227: warning: `a918' might be used uninitialized in this function graphs-stalin.c:3228: warning: `a919' might be used uninitialized in this function graphs-stalin.c:3232: warning: `a1714' might be used uninitialized in this function graphs-stalin.c:3234: warning: `a1716' might be used uninitialized in this function graphs-stalin.c:3236: warning: `a1718' might be used uninitialized in this function graphs-stalin.c: In function `f167': graphs-stalin.c:3451: warning: `a870' might be used uninitialized in this function graphs-stalin.c:3456: warning: `a875' might be used uninitialized in this function graphs-stalin.c:3457: warning: `a876' might be used uninitialized in this function graphs-stalin.c:3459: warning: `a878' might be used uninitialized in this function graphs-stalin.c:3460: warning: `a879' might be used uninitialized in this function graphs-stalin.c:3461: warning: `a880' might be used uninitialized in this function graphs-stalin.c:3462: warning: `a881' might be used uninitialized in this function graphs-stalin.c:3463: warning: `a882' might be used uninitialized in this function graphs-stalin.c:3466: warning: `a885' might be used uninitialized in this function graphs-stalin.c:3467: warning: `a886' might be used uninitialized in this function graphs-stalin.c:3468: warning: `a887' might be used uninitialized in this function graphs-stalin.c:3469: warning: `a888' might be used uninitialized in this function graphs-stalin.c:3470: warning: `a889' might be used uninitialized in this function graphs-stalin.c:3472: warning: `a891' might be used uninitialized in this function graphs-stalin.c:3473: warning: `a892' might be used uninitialized in this function graphs-stalin.c: In function `f147': graphs-stalin.c:4295: warning: unused variable `e294' graphs-stalin.c:4293: warning: unused variable `e292' graphs-stalin.c:4289: warning: unused variable `e288' graphs-stalin.c:4280: warning: unused variable `e148' graphs-stalin.c:4279: warning: unused variable `e81' graphs-stalin.c:4273: warning: unused variable `e67' graphs-stalin.c:4070: warning: unused variable `a985' graphs-stalin.c:4068: warning: unused variable `a983' graphs-stalin.c:4063: warning: unused variable `a978' graphs-stalin.c:4053: warning: unused variable `a854' graphs-stalin.c:4052: warning: unused variable `a765' graphs-stalin.c:4044: warning: unused variable `a749' graphs-stalin.c:4029: warning: `a697' might be used uninitialized in this function graphs-stalin.c:4030: warning: `a698' might be used uninitialized in this function graphs-stalin.c:4032: warning: `a700' might be used uninitialized in this function graphs-stalin.c:4034: warning: `a702' might be used uninitialized in this function graphs-stalin.c:4036: warning: `a704' might be used uninitialized in this function graphs-stalin.c:4039: warning: `a744' might be used uninitialized in this function graphs-stalin.c:4040: warning: `a745' might be used uninitialized in this function graphs-stalin.c:4042: warning: `a747' might be used uninitialized in this function graphs-stalin.c:4047: warning: `a760' might be used uninitialized in this function graphs-stalin.c:4048: warning: `a761' might be used uninitialized in this function graphs-stalin.c:4050: warning: `a763' might be used uninitialized in this function graphs-stalin.c:4054: warning: `a855' might be used uninitialized in this function graphs-stalin.c:4056: warning: `a857' might be used uninitialized in this function graphs-stalin.c:4059: warning: `a860' might be used uninitialized in this function graphs-stalin.c:4065: warning: `a980' might be used uninitialized in this function graphs-stalin.c:4073: warning: `a2335' might be used uninitialized in this function graphs-stalin.c:4077: warning: `a2339' might be used uninitialized in this function graphs-stalin.c:4081: warning: `a2377' might be used uninitialized in this function graphs-stalin.c:4116: warning: `t298' might be used uninitialized in this function graphs-stalin.c:4117: warning: `t299' might be used uninitialized in this function graphs-stalin.c:4144: warning: `t340' might be used uninitialized in this function graphs-stalin.c:4154: warning: `t354' might be used uninitialized in this function graphs-stalin.c:4155: warning: `t355' might be used uninitialized in this function graphs-stalin.c:4161: warning: `t365' might be used uninitialized in this function graphs-stalin.c:4168: warning: `t373' might be used uninitialized in this function graphs-stalin.c:4212: warning: `t431' might be used uninitialized in this function graphs-stalin.c:4213: warning: `t432' might be used uninitialized in this function graphs-stalin.c:4219: warning: `t442' might be used uninitialized in this function graphs-stalin.c: In function `f140': graphs-stalin.c:6389: warning: statement with no effect graphs-stalin.c:5460: warning: `a736' might be used uninitialized in this function graphs-stalin.c:5461: warning: `a737' might be used uninitialized in this function graphs-stalin.c:5463: warning: `a739' might be used uninitialized in this function graphs-stalin.c:5465: warning: `a741' might be used uninitialized in this function graphs-stalin.c:5466: warning: `a844' might be used uninitialized in this function graphs-stalin.c:5470: warning: `a848' might be used uninitialized in this function graphs-stalin.c:5471: warning: `a862' might be used uninitialized in this function graphs-stalin.c:5475: warning: `a866' might be used uninitialized in this function graphs-stalin.c:5480: warning: `a910' might be used uninitialized in this function graphs-stalin.c:5488: warning: `a989' might be used uninitialized in this function graphs-stalin.c:5490: warning: `a991' might be used uninitialized in this function graphs-stalin.c:5492: warning: `a2341' might be used uninitialized in this function graphs-stalin.c:5493: warning: `a2342' might be used uninitialized in this function graphs-stalin.c:5498: warning: `a2347' might be used uninitialized in this function graphs-stalin.c:5502: warning: `a2417' might be used uninitialized in this function graphs-stalin.c:5503: warning: `a2418' might be used uninitialized in this function graphs-stalin.c:5505: warning: `a2420' might be used uninitialized in this function graphs-stalin.c:5507: warning: `a2422' might be used uninitialized in this function graphs-stalin.c:5509: warning: `a2424' might be used uninitialized in this function graphs-stalin.c:5512: warning: `a2447' might be used uninitialized in this function graphs-stalin.c:5513: warning: `a2448' might be used uninitialized in this function graphs-stalin.c:5515: warning: `a2450' might be used uninitialized in this function graphs-stalin.c:5517: warning: `a2452' might be used uninitialized in this function graphs-stalin.c:5520: warning: `a2455' might be used uninitialized in this function graphs-stalin.c:5521: warning: `a2456' might be used uninitialized in this function graphs-stalin.c:5523: warning: `a2458' might be used uninitialized in this function graphs-stalin.c:5525: warning: `a2460' might be used uninitialized in this function graphs-stalin.c:5528: warning: `a2463' might be used uninitialized in this function graphs-stalin.c:5529: warning: `a2464' might be used uninitialized in this function graphs-stalin.c:5531: warning: `a2466' might be used uninitialized in this function graphs-stalin.c:5533: warning: `a2468' might be used uninitialized in this function graphs-stalin.c:5534: warning: `a2495' might be used uninitialized in this function graphs-stalin.c:5538: warning: `a2499' might be used uninitialized in this function graphs-stalin.c:5542: warning: `a2503' might be used uninitialized in this function graphs-stalin.c:5546: warning: `a2507' might be used uninitialized in this function graphs-stalin.c:5556: warning: `t502' might be used uninitialized in this function graphs-stalin.c:5663: warning: `t645' might be used uninitialized in this function graphs-stalin.c:5664: warning: `t646' might be used uninitialized in this function graphs-stalin.c:5670: warning: `t656' might be used uninitialized in this function graphs-stalin.c:5677: warning: `t665' might be used uninitialized in this function graphs-stalin.c:5678: warning: `t666' might be used uninitialized in this function graphs-stalin.c:5684: warning: `t676' might be used uninitialized in this function graphs-stalin.c:5691: warning: `t685' might be used uninitialized in this function graphs-stalin.c:5692: warning: `t686' might be used uninitialized in this function graphs-stalin.c:5698: warning: `t696' might be used uninitialized in this function graphs-stalin.c:5733: warning: `t744' might be used uninitialized in this function graphs-stalin.c:5734: warning: `t745' might be used uninitialized in this function graphs-stalin.c:5740: warning: `t755' might be used uninitialized in this function graphs-stalin.c:5764: warning: `t789' might be used uninitialized in this function graphs-stalin.c:5765: warning: `t790' might be used uninitialized in this function graphs-stalin.c:5766: warning: `t791' might be used uninitialized in this function graphs-stalin.c:5767: warning: `t792' might be used uninitialized in this function graphs-stalin.c:5805: warning: `t843' might be used uninitialized in this function graphs-stalin.c:5806: warning: `t844' might be used uninitialized in this function graphs-stalin.c:5812: warning: `t854' might be used uninitialized in this function graphs-stalin.c: In function `f114': graphs-stalin.c:7931: warning: `a821' might be used uninitialized in this function graphs-stalin.c: In function `f103': graphs-stalin.c:8273: warning: unused variable `e2367' graphs-stalin.c:8271: warning: unused variable `e2365' graphs-stalin.c:8267: warning: unused variable `e2361' graphs-stalin.c:8185: warning: unused variable `a2486' graphs-stalin.c:8183: warning: unused variable `a2484' graphs-stalin.c:8178: warning: unused variable `a2479' graphs-stalin.c:8156: warning: `a770' might be used uninitialized in this function graphs-stalin.c:8157: warning: `a771' might be used uninitialized in this function graphs-stalin.c:8158: warning: `a772' might be used uninitialized in this function graphs-stalin.c:8159: warning: `a773' might be used uninitialized in this function graphs-stalin.c:8161: warning: `a775' might be used uninitialized in this function graphs-stalin.c:8162: warning: `a800' might be used uninitialized in this function graphs-stalin.c:8163: warning: `a801' might be used uninitialized in this function graphs-stalin.c:8164: warning: `a802' might be used uninitialized in this function graphs-stalin.c:8167: warning: `a2361' might be used uninitialized in this function graphs-stalin.c:8169: warning: `a2363' might be used uninitialized in this function graphs-stalin.c:8173: warning: `a2367' might be used uninitialized in this function graphs-stalin.c:8175: warning: `a2369' might be used uninitialized in this function graphs-stalin.c:8179: warning: `a2480' might be used uninitialized in this function graphs-stalin.c:8180: warning: `a2481' might be used uninitialized in this function graphs-stalin.c:8196: warning: `t937' might be used uninitialized in this function graphs-stalin.c:8203: warning: `t946' might be used uninitialized in this function graphs-stalin.c:8204: warning: `t947' might be used uninitialized in this function graphs-stalin.c:8231: warning: `t988' might be used uninitialized in this function graphs-stalin.c:8234: warning: `t993' might be used uninitialized in this function graphs-stalin.c:8239: warning: `t1000' might be used uninitialized in this function graphs-stalin.c:8240: warning: `t1001' might be used uninitialized in this function graphs-stalin.c:8241: warning: `t1002' might be used uninitialized in this function graphs-stalin.c:8249: warning: `t1014' might be used uninitialized in this function graphs-stalin.c:8252: warning: `t1019' might be used uninitialized in this function graphs-stalin.c: In function `f99': graphs-stalin.c:8498: warning: `r99' might be used uninitialized in this function graphs-stalin.c: In function `f96': graphs-stalin.c:8507: warning: `t1025' might be used uninitialized in this function graphs-stalin.c: In function `f90': graphs-stalin.c:8730: warning: unused variable `e2358' graphs-stalin.c:8728: warning: unused variable `e2356' graphs-stalin.c:8724: warning: unused variable `e2352' graphs-stalin.c:8722: warning: unused variable `e2290' graphs-stalin.c:8721: warning: unused variable `e2289' graphs-stalin.c:8720: warning: unused variable `e2288' graphs-stalin.c:8718: warning: unused variable `e2286' graphs-stalin.c:8717: warning: unused variable `e2285' graphs-stalin.c:8716: warning: unused variable `e2284' graphs-stalin.c:8714: warning: unused variable `e2282' graphs-stalin.c:8713: warning: unused variable `e2281' graphs-stalin.c:8712: warning: unused variable `e2280' graphs-stalin.c:8578: warning: unused variable `a2477' graphs-stalin.c:8576: warning: unused variable `a2475' graphs-stalin.c:8571: warning: unused variable `a2470' graphs-stalin.c:8569: warning: unused variable `a2414' graphs-stalin.c:8568: warning: unused variable `a2413' graphs-stalin.c:8567: warning: unused variable `a2412' graphs-stalin.c:8564: warning: unused variable `a2409' graphs-stalin.c:8563: warning: unused variable `a2408' graphs-stalin.c:8562: warning: unused variable `a2407' graphs-stalin.c:8559: warning: unused variable `a2404' graphs-stalin.c:8558: warning: unused variable `a2403' graphs-stalin.c:8557: warning: unused variable `a2402' graphs-stalin.c:8529: warning: `a689' might be used uninitialized in this function graphs-stalin.c:8530: warning: `a690' might be used uninitialized in this function graphs-stalin.c:8532: warning: `a692' might be used uninitialized in this function graphs-stalin.c:8539: warning: `a789' might be used uninitialized in this function graphs-stalin.c:8542: warning: `a805' might be used uninitialized in this function graphs-stalin.c:8546: warning: `a809' might be used uninitialized in this function graphs-stalin.c:8551: warning: `a2355' might be used uninitialized in this function graphs-stalin.c:8553: warning: `a2357' might be used uninitialized in this function graphs-stalin.c:8554: warning: `a2358' might be used uninitialized in this function graphs-stalin.c:8556: warning: `a2401' might be used uninitialized in this function graphs-stalin.c:8561: warning: `a2406' might be used uninitialized in this function graphs-stalin.c:8566: warning: `a2411' might be used uninitialized in this function graphs-stalin.c:8573: warning: `a2472' might be used uninitialized in this function graphs-stalin.c:8615: warning: `t1086' might be used uninitialized in this function graphs-stalin.c:8623: warning: `t1097' might be used uninitialized in this function graphs-stalin.c:8650: warning: `t1132' might be used uninitialized in this function graphs-stalin.c:8651: warning: `t1133' might be used uninitialized in this function graphs-stalin.c:8678: warning: `t1174' might be used uninitialized in this function graphs-stalin.c: In function `f87': graphs-stalin.c:9621: warning: unused variable `e2278' graphs-stalin.c:9620: warning: unused variable `e2277' graphs-stalin.c:9619: warning: unused variable `e2276' graphs-stalin.c:9617: warning: unused variable `e2274' graphs-stalin.c:9616: warning: unused variable `e2273' graphs-stalin.c:9615: warning: unused variable `e2272' graphs-stalin.c:9613: warning: unused variable `e2270' graphs-stalin.c:9612: warning: unused variable `e2269' graphs-stalin.c:9611: warning: unused variable `e2268' graphs-stalin.c:9606: warning: unused variable `e241' graphs-stalin.c:9605: warning: unused variable `e240' graphs-stalin.c:9604: warning: unused variable `e239' graphs-stalin.c:9600: warning: unused variable `e197' graphs-stalin.c:9521: warning: unused variable `a2399' graphs-stalin.c:9520: warning: unused variable `a2398' graphs-stalin.c:9519: warning: unused variable `a2397' graphs-stalin.c:9516: warning: unused variable `a2394' graphs-stalin.c:9515: warning: unused variable `a2393' graphs-stalin.c:9514: warning: unused variable `a2392' graphs-stalin.c:9511: warning: unused variable `a2389' graphs-stalin.c:9510: warning: unused variable `a2388' graphs-stalin.c:9509: warning: unused variable `a2387' graphs-stalin.c:9500: warning: unused variable `a927' graphs-stalin.c:9499: warning: unused variable `a926' graphs-stalin.c:9498: warning: unused variable `a925' graphs-stalin.c:9491: warning: unused variable `a899' graphs-stalin.c:9478: warning: `a684' might be used uninitialized in this function graphs-stalin.c:9479: warning: `a685' might be used uninitialized in this function graphs-stalin.c:9481: warning: `a781' might be used uninitialized in this function graphs-stalin.c:9483: warning: `a811' might be used uninitialized in this function graphs-stalin.c:9485: warning: `a813' might be used uninitialized in this function graphs-stalin.c:9487: warning: `a895' might be used uninitialized in this function graphs-stalin.c:9489: warning: `a897' might be used uninitialized in this function graphs-stalin.c:9493: warning: `a903' might be used uninitialized in this function graphs-stalin.c:9495: warning: `a905' might be used uninitialized in this function graphs-stalin.c:9497: warning: `a924' might be used uninitialized in this function graphs-stalin.c:9501: warning: `a2331' might be used uninitialized in this function graphs-stalin.c:9503: warning: `a2349' might be used uninitialized in this function graphs-stalin.c:9508: warning: `a2386' might be used uninitialized in this function graphs-stalin.c:9513: warning: `a2391' might be used uninitialized in this function graphs-stalin.c:9525: warning: `t1201' might be used uninitialized in this function graphs-stalin.c:9563: warning: `t1264' might be used uninitialized in this function graphs-stalin.c:9573: warning: `t1281' might be used uninitialized in this function graphs-stalin.c:9576: warning: `t1290' might be used uninitialized in this function graphs-stalin.c:9577: warning: `t1291' might be used uninitialized in this function graphs-stalin.c:9578: warning: `t1292' might be used uninitialized in this function graphs-stalin.c: In function `f38': graphs-stalin.c:10184: warning: `a719' might be used uninitialized in this function graphs-stalin.c:10185: warning: `a720' might be used uninitialized in this function graphs-stalin.c:10186: warning: `a721' might be used uninitialized in this function graphs-stalin.c:10209: warning: `t1335' might be used uninitialized in this function graphs-stalin.c:10210: warning: `t1336' might be used uninitialized in this function graphs-stalin.c: In function `f0': graphs-stalin.c:10310: warning: `a1' might be used uninitialized in this function graphs-stalin.c:10311: warning: `a2' might be used uninitialized in this function graphs-stalin.c:10312: warning: `a3' might be used uninitialized in this function graphs-stalin.c:10313: warning: `a4' might be used uninitialized in this function graphs-stalin.c:10314: warning: `a5' might be used uninitialized in this function graphs-stalin.c:10315: warning: `a6' might be used uninitialized in this function graphs-stalin.c:10316: warning: `a7' might be used uninitialized in this function graphs-stalin.c:10317: warning: `a8' might be used uninitialized in this function graphs-stalin.c:10318: warning: `a9' might be used uninitialized in this function graphs-stalin.c:10319: warning: `a10' might be used uninitialized in this function graphs-stalin.c:10320: warning: `a11' might be used uninitialized in this function graphs-stalin.c:10321: warning: `a12' might be used uninitialized in this function graphs-stalin.c:10322: warning: `a13' might be used uninitialized in this function graphs-stalin.c:10323: warning: `a14' might be used uninitialized in this function graphs-stalin.c:10324: warning: `a15' might be used uninitialized in this function graphs-stalin.c:10325: warning: `a16' might be used uninitialized in this function graphs-stalin.c:10326: warning: `a17' might be used uninitialized in this function graphs-stalin.c:10327: warning: `a18' might be used uninitialized in this function graphs-stalin.c:10328: warning: `a19' might be used uninitialized in this function graphs-stalin.c:10329: warning: `a20' might be used uninitialized in this function graphs-stalin.c:10330: warning: `a21' might be used uninitialized in this function graphs-stalin.c:10331: warning: `a22' might be used uninitialized in this function graphs-stalin.c:10332: warning: `a23' might be used uninitialized in this function graphs-stalin.c:10333: warning: `a24' might be used uninitialized in this function graphs-stalin.c:10334: warning: `a25' might be used uninitialized in this function graphs-stalin.c:10335: warning: `a26' might be used uninitialized in this function graphs-stalin.c:10336: warning: `a27' might be used uninitialized in this function graphs-stalin.c:10337: warning: `a28' might be used uninitialized in this function graphs-stalin.c:10338: warning: `a29' might be used uninitialized in this function graphs-stalin.c:10339: warning: `a30' might be used uninitialized in this function graphs-stalin.c:10340: warning: `a31' might be used uninitialized in this function graphs-stalin.c:10341: warning: `a32' might be used uninitialized in this function graphs-stalin.c:10342: warning: `a33' might be used uninitialized in this function graphs-stalin.c:10343: warning: `a34' might be used uninitialized in this function graphs-stalin.c:10344: warning: `a35' might be used uninitialized in this function graphs-stalin.c:10345: warning: `a36' might be used uninitialized in this function graphs-stalin.c:10346: warning: `a37' might be used uninitialized in this function graphs-stalin.c:10347: warning: `a38' might be used uninitialized in this function graphs-stalin.c:10348: warning: `a39' might be used uninitialized in this function graphs-stalin.c:10349: warning: `a40' might be used uninitialized in this function graphs-stalin.c:10350: warning: `a41' might be used uninitialized in this function graphs-stalin.c:10351: warning: `a42' might be used uninitialized in this function graphs-stalin.c:10352: warning: `a43' might be used uninitialized in this function graphs-stalin.c:10353: warning: `a44' might be used uninitialized in this function graphs-stalin.c:10354: warning: `a45' might be used uninitialized in this function graphs-stalin.c:10355: warning: `a46' might be used uninitialized in this function graphs-stalin.c:10356: warning: `a47' might be used uninitialized in this function graphs-stalin.c:10357: warning: `a48' might be used uninitialized in this function graphs-stalin.c:10358: warning: `a49' might be used uninitialized in this function graphs-stalin.c:10359: warning: `a50' might be used uninitialized in this function graphs-stalin.c:10360: warning: `a51' might be used uninitialized in this function graphs-stalin.c:10361: warning: `a52' might be used uninitialized in this function graphs-stalin.c:10362: warning: `a53' might be used uninitialized in this function graphs-stalin.c:10363: warning: `a54' might be used uninitialized in this function graphs-stalin.c:10364: warning: `a55' might be used uninitialized in this function graphs-stalin.c:10365: warning: `a56' might be used uninitialized in this function graphs-stalin.c:10366: warning: `a57' might be used uninitialized in this function graphs-stalin.c:10367: warning: `a58' might be used uninitialized in this function graphs-stalin.c:10368: warning: `a59' might be used uninitialized in this function graphs-stalin.c:10369: warning: `a60' might be used uninitialized in this function graphs-stalin.c:10370: warning: `a61' might be used uninitialized in this function graphs-stalin.c:10371: warning: `a62' might be used uninitialized in this function graphs-stalin.c:10372: warning: `a63' might be used uninitialized in this function graphs-stalin.c:10373: warning: `a64' might be used uninitialized in this function graphs-stalin.c:10374: warning: `a65' might be used uninitialized in this function graphs-stalin.c:10375: warning: `a66' might be used uninitialized in this function graphs-stalin.c:10376: warning: `a67' might be used uninitialized in this function graphs-stalin.c:10377: warning: `a68' might be used uninitialized in this function graphs-stalin.c:10378: warning: `a69' might be used uninitialized in this function graphs-stalin.c:10379: warning: `a70' might be used uninitialized in this function graphs-stalin.c:10380: warning: `a71' might be used uninitialized in this function graphs-stalin.c:10381: warning: `a72' might be used uninitialized in this function graphs-stalin.c:10382: warning: `a73' might be used uninitialized in this function graphs-stalin.c:10383: warning: `a74' might be used uninitialized in this function graphs-stalin.c:10384: warning: `a75' might be used uninitialized in this function graphs-stalin.c:10385: warning: `a76' might be used uninitialized in this function graphs-stalin.c:10386: warning: `a77' might be used uninitialized in this function graphs-stalin.c:10387: warning: `a78' might be used uninitialized in this function graphs-stalin.c:10388: warning: `a79' might be used uninitialized in this function graphs-stalin.c:10389: warning: `a80' might be used uninitialized in this function graphs-stalin.c:10390: warning: `a81' might be used uninitialized in this function graphs-stalin.c:10391: warning: `a82' might be used uninitialized in this function graphs-stalin.c:10392: warning: `a83' might be used uninitialized in this function graphs-stalin.c:10393: warning: `a84' might be used uninitialized in this function graphs-stalin.c:10394: warning: `a85' might be used uninitialized in this function graphs-stalin.c:10395: warning: `a86' might be used uninitialized in this function graphs-stalin.c:10396: warning: `a87' might be used uninitialized in this function graphs-stalin.c:10397: warning: `a88' might be used uninitialized in this function graphs-stalin.c:10398: warning: `a89' might be used uninitialized in this function graphs-stalin.c:10399: warning: `a90' might be used uninitialized in this function graphs-stalin.c:10400: warning: `a91' might be used uninitialized in this function graphs-stalin.c:10401: warning: `a92' might be used uninitialized in this function graphs-stalin.c:10402: warning: `a93' might be used uninitialized in this function graphs-stalin.c:10403: warning: `a94' might be used uninitialized in this function graphs-stalin.c:10404: warning: `a95' might be used uninitialized in this function graphs-stalin.c:10405: warning: `a96' might be used uninitialized in this function graphs-stalin.c:10406: warning: `a97' might be used uninitialized in this function graphs-stalin.c:10407: warning: `a98' might be used uninitialized in this function graphs-stalin.c:10408: warning: `a99' might be used uninitialized in this function graphs-stalin.c:10409: warning: `a100' might be used uninitialized in this function graphs-stalin.c:10410: warning: `a101' might be used uninitialized in this function graphs-stalin.c:10411: warning: `a102' might be used uninitialized in this function graphs-stalin.c:10412: warning: `a103' might be used uninitialized in this function graphs-stalin.c:10413: warning: `a104' might be used uninitialized in this function graphs-stalin.c:10414: warning: `a105' might be used uninitialized in this function graphs-stalin.c:10415: warning: `a106' might be used uninitialized in this function graphs-stalin.c:10416: warning: `a107' might be used uninitialized in this function graphs-stalin.c:10417: warning: `a108' might be used uninitialized in this function graphs-stalin.c:10418: warning: `a109' might be used uninitialized in this function graphs-stalin.c:10419: warning: `a110' might be used uninitialized in this function graphs-stalin.c:10420: warning: `a111' might be used uninitialized in this function graphs-stalin.c:10421: warning: `a112' might be used uninitialized in this function graphs-stalin.c:10422: warning: `a113' might be used uninitialized in this function graphs-stalin.c:10423: warning: `a114' might be used uninitialized in this function graphs-stalin.c:10424: warning: `a115' might be used uninitialized in this function graphs-stalin.c:10425: warning: `a116' might be used uninitialized in this function graphs-stalin.c:10426: warning: `a117' might be used uninitialized in this function graphs-stalin.c:10427: warning: `a118' might be used uninitialized in this function graphs-stalin.c:10428: warning: `a119' might be used uninitialized in this function graphs-stalin.c:10429: warning: `a120' might be used uninitialized in this function graphs-stalin.c:10430: warning: `a121' might be used uninitialized in this function graphs-stalin.c:10431: warning: `a122' might be used uninitialized in this function graphs-stalin.c:10432: warning: `a123' might be used uninitialized in this function graphs-stalin.c:10433: warning: `a124' might be used uninitialized in this function graphs-stalin.c:10434: warning: `a125' might be used uninitialized in this function graphs-stalin.c:10435: warning: `a126' might be used uninitialized in this function graphs-stalin.c:10436: warning: `a127' might be used uninitialized in this function graphs-stalin.c:10437: warning: `a128' might be used uninitialized in this function graphs-stalin.c:10438: warning: `a129' might be used uninitialized in this function graphs-stalin.c:10439: warning: `a130' might be used uninitialized in this function graphs-stalin.c:10440: warning: `a131' might be used uninitialized in this function graphs-stalin.c:10441: warning: `a132' might be used uninitialized in this function graphs-stalin.c:10442: warning: `a133' might be used uninitialized in this function graphs-stalin.c:10443: warning: `a134' might be used uninitialized in this function graphs-stalin.c:10444: warning: `a135' might be used uninitialized in this function graphs-stalin.c:10445: warning: `a136' might be used uninitialized in this function graphs-stalin.c:10446: warning: `a137' might be used uninitialized in this function graphs-stalin.c:10447: warning: `a138' might be used uninitialized in this function graphs-stalin.c:10448: warning: `a139' might be used uninitialized in this function graphs-stalin.c:10449: warning: `a140' might be used uninitialized in this function graphs-stalin.c:10450: warning: `a141' might be used uninitialized in this function graphs-stalin.c:10451: warning: `a142' might be used uninitialized in this function graphs-stalin.c:10452: warning: `a143' might be used uninitialized in this function graphs-stalin.c:10453: warning: `a144' might be used uninitialized in this function graphs-stalin.c:10454: warning: `a145' might be used uninitialized in this function graphs-stalin.c:10455: warning: `a146' might be used uninitialized in this function graphs-stalin.c:10456: warning: `a147' might be used uninitialized in this function graphs-stalin.c:10457: warning: `a148' might be used uninitialized in this function graphs-stalin.c:10458: warning: `a149' might be used uninitialized in this function graphs-stalin.c:10459: warning: `a150' might be used uninitialized in this function graphs-stalin.c:10460: warning: `a151' might be used uninitialized in this function graphs-stalin.c:10461: warning: `a152' might be used uninitialized in this function graphs-stalin.c:10462: warning: `a153' might be used uninitialized in this function graphs-stalin.c:10463: warning: `a154' might be used uninitialized in this function graphs-stalin.c:10464: warning: `a155' might be used uninitialized in this function graphs-stalin.c:10465: warning: `a156' might be used uninitialized in this function graphs-stalin.c:10466: warning: `a157' might be used uninitialized in this function graphs-stalin.c:10467: warning: `a158' might be used uninitialized in this function graphs-stalin.c:10468: warning: `a159' might be used uninitialized in this function graphs-stalin.c:10469: warning: `a160' might be used uninitialized in this function graphs-stalin.c:10470: warning: `a161' might be used uninitialized in this function graphs-stalin.c:10471: warning: `a162' might be used uninitialized in this function graphs-stalin.c:10472: warning: `a163' might be used uninitialized in this function graphs-stalin.c:10473: warning: `a164' might be used uninitialized in this function graphs-stalin.c:10474: warning: `a165' might be used uninitialized in this function graphs-stalin.c:10475: warning: `a166' might be used uninitialized in this function graphs-stalin.c:10476: warning: `a167' might be used uninitialized in this function graphs-stalin.c:10477: warning: `a168' might be used uninitialized in this function graphs-stalin.c:10478: warning: `a169' might be used uninitialized in this function graphs-stalin.c:10479: warning: `a170' might be used uninitialized in this function graphs-stalin.c:10480: warning: `a171' might be used uninitialized in this function graphs-stalin.c:10481: warning: `a172' might be used uninitialized in this function graphs-stalin.c:10482: warning: `a173' might be used uninitialized in this function graphs-stalin.c:10483: warning: `a174' might be used uninitialized in this function graphs-stalin.c:10484: warning: `a175' might be used uninitialized in this function graphs-stalin.c:10485: warning: `a176' might be used uninitialized in this function graphs-stalin.c:10486: warning: `a177' might be used uninitialized in this function graphs-stalin.c:10487: warning: `a178' might be used uninitialized in this function graphs-stalin.c:10488: warning: `a179' might be used uninitialized in this function graphs-stalin.c:10489: warning: `a180' might be used uninitialized in this function graphs-stalin.c:10490: warning: `a181' might be used uninitialized in this function graphs-stalin.c:10491: warning: `a182' might be used uninitialized in this function graphs-stalin.c:10492: warning: `a183' might be used uninitialized in this function graphs-stalin.c:10493: warning: `a184' might be used uninitialized in this function graphs-stalin.c:10494: warning: `a185' might be used uninitialized in this function graphs-stalin.c:10495: warning: `a186' might be used uninitialized in this function graphs-stalin.c:10496: warning: `a187' might be used uninitialized in this function graphs-stalin.c:10497: warning: `a188' might be used uninitialized in this function graphs-stalin.c:10498: warning: `a189' might be used uninitialized in this function graphs-stalin.c:10499: warning: `a190' might be used uninitialized in this function graphs-stalin.c:10500: warning: `a191' might be used uninitialized in this function graphs-stalin.c:10501: warning: `a192' might be used uninitialized in this function graphs-stalin.c:10502: warning: `a193' might be used uninitialized in this function graphs-stalin.c:10503: warning: `a194' might be used uninitialized in this function graphs-stalin.c:10504: warning: `a195' might be used uninitialized in this function graphs-stalin.c:10505: warning: `a196' might be used uninitialized in this function graphs-stalin.c:10506: warning: `a197' might be used uninitialized in this function graphs-stalin.c:10507: warning: `a198' might be used uninitialized in this function graphs-stalin.c:10508: warning: `a199' might be used uninitialized in this function graphs-stalin.c:10509: warning: `a200' might be used uninitialized in this function graphs-stalin.c:10510: warning: `a201' might be used uninitialized in this function graphs-stalin.c:10511: warning: `a202' might be used uninitialized in this function graphs-stalin.c:10512: warning: `a203' might be used uninitialized in this function graphs-stalin.c:10513: warning: `a204' might be used uninitialized in this function graphs-stalin.c:10514: warning: `a205' might be used uninitialized in this function graphs-stalin.c:10515: warning: `a206' might be used uninitialized in this function graphs-stalin.c:10516: warning: `a207' might be used uninitialized in this function graphs-stalin.c:10517: warning: `a208' might be used uninitialized in this function graphs-stalin.c:10518: warning: `a209' might be used uninitialized in this function graphs-stalin.c:10519: warning: `a210' might be used uninitialized in this function graphs-stalin.c:10520: warning: `a211' might be used uninitialized in this function graphs-stalin.c:10521: warning: `a212' might be used uninitialized in this function graphs-stalin.c:10522: warning: `a213' might be used uninitialized in this function graphs-stalin.c:10523: warning: `a214' might be used uninitialized in this function graphs-stalin.c:10524: warning: `a215' might be used uninitialized in this function graphs-stalin.c:10525: warning: `a216' might be used uninitialized in this function graphs-stalin.c:10526: warning: `a217' might be used uninitialized in this function graphs-stalin.c:10527: warning: `a218' might be used uninitialized in this function graphs-stalin.c:10528: warning: `a219' might be used uninitialized in this function graphs-stalin.c:10529: warning: `a220' might be used uninitialized in this function graphs-stalin.c:10530: warning: `a221' might be used uninitialized in this function graphs-stalin.c:10531: warning: `a222' might be used uninitialized in this function graphs-stalin.c:10532: warning: `a223' might be used uninitialized in this function graphs-stalin.c:10533: warning: `a224' might be used uninitialized in this function graphs-stalin.c:10534: warning: `a225' might be used uninitialized in this function graphs-stalin.c:10535: warning: `a226' might be used uninitialized in this function graphs-stalin.c:10536: warning: `a227' might be used uninitialized in this function graphs-stalin.c:10537: warning: `a228' might be used uninitialized in this function graphs-stalin.c:10538: warning: `a229' might be used uninitialized in this function graphs-stalin.c:10539: warning: `a230' might be used uninitialized in this function graphs-stalin.c:10540: warning: `a231' might be used uninitialized in this function graphs-stalin.c:10541: warning: `a232' might be used uninitialized in this function graphs-stalin.c:10542: warning: `a233' might be used uninitialized in this function graphs-stalin.c:10543: warning: `a234' might be used uninitialized in this function graphs-stalin.c:10544: warning: `a235' might be used uninitialized in this function graphs-stalin.c:10545: warning: `a236' might be used uninitialized in this function graphs-stalin.c:10546: warning: `a237' might be used uninitialized in this function graphs-stalin.c:10547: warning: `a238' might be used uninitialized in this function graphs-stalin.c:10548: warning: `a239' might be used uninitialized in this function graphs-stalin.c:10549: warning: `a240' might be used uninitialized in this function graphs-stalin.c:10550: warning: `a241' might be used uninitialized in this function graphs-stalin.c:10551: warning: `a242' might be used uninitialized in this function graphs-stalin.c:10552: warning: `a243' might be used uninitialized in this function graphs-stalin.c:10553: warning: `a244' might be used uninitialized in this function graphs-stalin.c:10554: warning: `a245' might be used uninitialized in this function graphs-stalin.c:10555: warning: `a246' might be used uninitialized in this function graphs-stalin.c:10556: warning: `a247' might be used uninitialized in this function graphs-stalin.c:10557: warning: `a248' might be used uninitialized in this function graphs-stalin.c:10558: warning: `a249' might be used uninitialized in this function graphs-stalin.c:10559: warning: `a250' might be used uninitialized in this function graphs-stalin.c:10560: warning: `a251' might be used uninitialized in this function graphs-stalin.c:10561: warning: `a252' might be used uninitialized in this function graphs-stalin.c:10562: warning: `a253' might be used uninitialized in this function graphs-stalin.c:10563: warning: `a254' might be used uninitialized in this function graphs-stalin.c:10564: warning: `a255' might be used uninitialized in this function graphs-stalin.c:10565: warning: `a256' might be used uninitialized in this function graphs-stalin.c:10566: warning: `a257' might be used uninitialized in this function graphs-stalin.c:10567: warning: `a258' might be used uninitialized in this function graphs-stalin.c:10568: warning: `a259' might be used uninitialized in this function graphs-stalin.c:10569: warning: `a260' might be used uninitialized in this function graphs-stalin.c:10570: warning: `a261' might be used uninitialized in this function graphs-stalin.c:10571: warning: `a262' might be used uninitialized in this function graphs-stalin.c:10572: warning: `a263' might be used uninitialized in this function graphs-stalin.c:10573: warning: `a264' might be used uninitialized in this function graphs-stalin.c:10574: warning: `a265' might be used uninitialized in this function graphs-stalin.c:10575: warning: `a266' might be used uninitialized in this function graphs-stalin.c:10576: warning: `a267' might be used uninitialized in this function graphs-stalin.c:10577: warning: `a268' might be used uninitialized in this function graphs-stalin.c:10578: warning: `a269' might be used uninitialized in this function graphs-stalin.c:10579: warning: `a270' might be used uninitialized in this function graphs-stalin.c:10580: warning: `a271' might be used uninitialized in this function graphs-stalin.c:10581: warning: `a272' might be used uninitialized in this function graphs-stalin.c:10582: warning: `a273' might be used uninitialized in this function graphs-stalin.c:10583: warning: `a274' might be used uninitialized in this function graphs-stalin.c:10584: warning: `a275' might be used uninitialized in this function graphs-stalin.c:10585: warning: `a276' might be used uninitialized in this function graphs-stalin.c:10586: warning: `a277' might be used uninitialized in this function graphs-stalin.c:10587: warning: `a278' might be used uninitialized in this function graphs-stalin.c:10588: warning: `a279' might be used uninitialized in this function graphs-stalin.c:10589: warning: `a280' might be used uninitialized in this function graphs-stalin.c:10590: warning: `a281' might be used uninitialized in this function graphs-stalin.c:10591: warning: `a282' might be used uninitialized in this function graphs-stalin.c:10592: warning: `a283' might be used uninitialized in this function graphs-stalin.c:10593: warning: `a284' might be used uninitialized in this function graphs-stalin.c:10594: warning: `a285' might be used uninitialized in this function graphs-stalin.c:10595: warning: `a286' might be used uninitialized in this function graphs-stalin.c:10596: warning: `a287' might be used uninitialized in this function graphs-stalin.c:10597: warning: `a288' might be used uninitialized in this function graphs-stalin.c:10598: warning: `a289' might be used uninitialized in this function graphs-stalin.c:10599: warning: `a290' might be used uninitialized in this function graphs-stalin.c:10600: warning: `a291' might be used uninitialized in this function graphs-stalin.c:10601: warning: `a292' might be used uninitialized in this function graphs-stalin.c:10602: warning: `a293' might be used uninitialized in this function graphs-stalin.c:10603: warning: `a294' might be used uninitialized in this function graphs-stalin.c:10604: warning: `a295' might be used uninitialized in this function graphs-stalin.c:10605: warning: `a296' might be used uninitialized in this function graphs-stalin.c:10606: warning: `a297' might be used uninitialized in this function graphs-stalin.c:10607: warning: `a298' might be used uninitialized in this function graphs-stalin.c:10608: warning: `a299' might be used uninitialized in this function graphs-stalin.c:10609: warning: `a300' might be used uninitialized in this function graphs-stalin.c:10610: warning: `a301' might be used uninitialized in this function graphs-stalin.c:10611: warning: `a302' might be used uninitialized in this function graphs-stalin.c:10612: warning: `a303' might be used uninitialized in this function graphs-stalin.c:10613: warning: `a304' might be used uninitialized in this function graphs-stalin.c:10614: warning: `a305' might be used uninitialized in this function graphs-stalin.c:10615: warning: `a306' might be used uninitialized in this function graphs-stalin.c:10616: warning: `a307' might be used uninitialized in this function graphs-stalin.c:10617: warning: `a308' might be used uninitialized in this function graphs-stalin.c:10618: warning: `a309' might be used uninitialized in this function graphs-stalin.c:10619: warning: `a310' might be used uninitialized in this function graphs-stalin.c:10620: warning: `a311' might be used uninitialized in this function graphs-stalin.c:10621: warning: `a312' might be used uninitialized in this function graphs-stalin.c:10622: warning: `a313' might be used uninitialized in this function graphs-stalin.c:10623: warning: `a314' might be used uninitialized in this function graphs-stalin.c:10624: warning: `a315' might be used uninitialized in this function graphs-stalin.c:10625: warning: `a316' might be used uninitialized in this function graphs-stalin.c:10626: warning: `a317' might be used uninitialized in this function graphs-stalin.c:10627: warning: `a318' might be used uninitialized in this function graphs-stalin.c:10628: warning: `a319' might be used uninitialized in this function graphs-stalin.c:10629: warning: `a320' might be used uninitialized in this function graphs-stalin.c:10630: warning: `a321' might be used uninitialized in this function graphs-stalin.c:10631: warning: `a322' might be used uninitialized in this function graphs-stalin.c:10632: warning: `a323' might be used uninitialized in this function graphs-stalin.c:10633: warning: `a324' might be used uninitialized in this function graphs-stalin.c:10634: warning: `a325' might be used uninitialized in this function graphs-stalin.c:10635: warning: `a326' might be used uninitialized in this function graphs-stalin.c:10636: warning: `a327' might be used uninitialized in this function graphs-stalin.c:10637: warning: `a328' might be used uninitialized in this function graphs-stalin.c:10638: warning: `a329' might be used uninitialized in this function graphs-stalin.c:10639: warning: `a330' might be used uninitialized in this function graphs-stalin.c:10640: warning: `a331' might be used uninitialized in this function graphs-stalin.c:10641: warning: `a332' might be used uninitialized in this function graphs-stalin.c:10642: warning: `a333' might be used uninitialized in this function graphs-stalin.c:10643: warning: `a334' might be used uninitialized in this function graphs-stalin.c:10644: warning: `a335' might be used uninitialized in this function graphs-stalin.c:10645: warning: `a336' might be used uninitialized in this function graphs-stalin.c:10646: warning: `a337' might be used uninitialized in this function graphs-stalin.c:10647: warning: `a338' might be used uninitialized in this function graphs-stalin.c:10648: warning: `a339' might be used uninitialized in this function graphs-stalin.c:10649: warning: `a340' might be used uninitialized in this function graphs-stalin.c:10650: warning: `a341' might be used uninitialized in this function graphs-stalin.c:10651: warning: `a342' might be used uninitialized in this function graphs-stalin.c:10652: warning: `a343' might be used uninitialized in this function graphs-stalin.c:10653: warning: `a344' might be used uninitialized in this function graphs-stalin.c:10654: warning: `a345' might be used uninitialized in this function graphs-stalin.c:10655: warning: `a346' might be used uninitialized in this function graphs-stalin.c:10656: warning: `a347' might be used uninitialized in this function graphs-stalin.c:10657: warning: `a348' might be used uninitialized in this function graphs-stalin.c:10658: warning: `a349' might be used uninitialized in this function graphs-stalin.c:10659: warning: `a350' might be used uninitialized in this function graphs-stalin.c:10660: warning: `a351' might be used uninitialized in this function graphs-stalin.c:10661: warning: `a352' might be used uninitialized in this function graphs-stalin.c:10662: warning: `a353' might be used uninitialized in this function graphs-stalin.c:10663: warning: `a354' might be used uninitialized in this function graphs-stalin.c:10664: warning: `a355' might be used uninitialized in this function graphs-stalin.c:10665: warning: `a356' might be used uninitialized in this function graphs-stalin.c:10666: warning: `a357' might be used uninitialized in this function graphs-stalin.c:10667: warning: `a358' might be used uninitialized in this function graphs-stalin.c:10668: warning: `a359' might be used uninitialized in this function graphs-stalin.c:10669: warning: `a360' might be used uninitialized in this function graphs-stalin.c:10670: warning: `a361' might be used uninitialized in this function graphs-stalin.c:10671: warning: `a362' might be used uninitialized in this function graphs-stalin.c:10672: warning: `a363' might be used uninitialized in this function graphs-stalin.c:10673: warning: `a364' might be used uninitialized in this function graphs-stalin.c:10674: warning: `a365' might be used uninitialized in this function graphs-stalin.c:10675: warning: `a366' might be used uninitialized in this function graphs-stalin.c:10676: warning: `a367' might be used uninitialized in this function graphs-stalin.c:10677: warning: `a368' might be used uninitialized in this function graphs-stalin.c:10678: warning: `a369' might be used uninitialized in this function graphs-stalin.c:10679: warning: `a370' might be used uninitialized in this function graphs-stalin.c:10680: warning: `a371' might be used uninitialized in this function graphs-stalin.c:10681: warning: `a372' might be used uninitialized in this function graphs-stalin.c:10682: warning: `a373' might be used uninitialized in this function graphs-stalin.c:10683: warning: `a374' might be used uninitialized in this function graphs-stalin.c:10684: warning: `a375' might be used uninitialized in this function graphs-stalin.c:10685: warning: `a376' might be used uninitialized in this function graphs-stalin.c:10686: warning: `a377' might be used uninitialized in this function graphs-stalin.c:10687: warning: `a378' might be used uninitialized in this function graphs-stalin.c:10688: warning: `a379' might be used uninitialized in this function graphs-stalin.c:10689: warning: `a380' might be used uninitialized in this function graphs-stalin.c:10690: warning: `a381' might be used uninitialized in this function graphs-stalin.c:10691: warning: `a382' might be used uninitialized in this function graphs-stalin.c:10692: warning: `a383' might be used uninitialized in this function graphs-stalin.c:10693: warning: `a384' might be used uninitialized in this function graphs-stalin.c:10694: warning: `a385' might be used uninitialized in this function graphs-stalin.c:10695: warning: `a386' might be used uninitialized in this function graphs-stalin.c:10696: warning: `a387' might be used uninitialized in this function graphs-stalin.c:10697: warning: `a388' might be used uninitialized in this function graphs-stalin.c:10698: warning: `a389' might be used uninitialized in this function graphs-stalin.c:10699: warning: `a390' might be used uninitialized in this function graphs-stalin.c:10700: warning: `a391' might be used uninitialized in this function graphs-stalin.c:10701: warning: `a392' might be used uninitialized in this function graphs-stalin.c:10702: warning: `a393' might be used uninitialized in this function graphs-stalin.c:10703: warning: `a394' might be used uninitialized in this function graphs-stalin.c:10704: warning: `a395' might be used uninitialized in this function graphs-stalin.c:10705: warning: `a396' might be used uninitialized in this function graphs-stalin.c:10706: warning: `a397' might be used uninitialized in this function graphs-stalin.c:10707: warning: `a398' might be used uninitialized in this function graphs-stalin.c:10708: warning: `a399' might be used uninitialized in this function graphs-stalin.c:10709: warning: `a400' might be used uninitialized in this function graphs-stalin.c:10710: warning: `a401' might be used uninitialized in this function graphs-stalin.c:10711: warning: `a402' might be used uninitialized in this function graphs-stalin.c:10712: warning: `a403' might be used uninitialized in this function graphs-stalin.c:10713: warning: `a404' might be used uninitialized in this function graphs-stalin.c:10714: warning: `a405' might be used uninitialized in this function graphs-stalin.c:10715: warning: `a406' might be used uninitialized in this function graphs-stalin.c:10716: warning: `a407' might be used uninitialized in this function graphs-stalin.c:10717: warning: `a408' might be used uninitialized in this function graphs-stalin.c:10718: warning: `a409' might be used uninitialized in this function graphs-stalin.c:10719: warning: `a410' might be used uninitialized in this function graphs-stalin.c:10720: warning: `a411' might be used uninitialized in this function graphs-stalin.c:10721: warning: `a412' might be used uninitialized in this function graphs-stalin.c:10722: warning: `a413' might be used uninitialized in this function graphs-stalin.c:10723: warning: `a414' might be used uninitialized in this function graphs-stalin.c:10724: warning: `a415' might be used uninitialized in this function graphs-stalin.c:10725: warning: `a416' might be used uninitialized in this function graphs-stalin.c:10726: warning: `a417' might be used uninitialized in this function graphs-stalin.c:10727: warning: `a418' might be used uninitialized in this function graphs-stalin.c:10728: warning: `a419' might be used uninitialized in this function graphs-stalin.c:10729: warning: `a420' might be used uninitialized in this function graphs-stalin.c:10730: warning: `a421' might be used uninitialized in this function graphs-stalin.c:10731: warning: `a422' might be used uninitialized in this function graphs-stalin.c:10732: warning: `a423' might be used uninitialized in this function graphs-stalin.c:10733: warning: `a424' might be used uninitialized in this function graphs-stalin.c:10734: warning: `a425' might be used uninitialized in this function graphs-stalin.c:10735: warning: `a426' might be used uninitialized in this function graphs-stalin.c:10736: warning: `a427' might be used uninitialized in this function graphs-stalin.c:10737: warning: `a428' might be used uninitialized in this function graphs-stalin.c:10738: warning: `a429' might be used uninitialized in this function graphs-stalin.c:10739: warning: `a430' might be used uninitialized in this function graphs-stalin.c:10740: warning: `a431' might be used uninitialized in this function graphs-stalin.c:10741: warning: `a432' might be used uninitialized in this function graphs-stalin.c:10742: warning: `a433' might be used uninitialized in this function graphs-stalin.c:10743: warning: `a434' might be used uninitialized in this function graphs-stalin.c:10744: warning: `a435' might be used uninitialized in this function graphs-stalin.c:10958: warning: `a649' might be used uninitialized in this function graphs-stalin.c:10959: warning: `a650' might be used uninitialized in this function graphs-stalin.c:10960: warning: `a651' might be used uninitialized in this function graphs-stalin.c:10961: warning: `a652' might be used uninitialized in this function graphs-stalin.c:10962: warning: `a653' might be used uninitialized in this function graphs-stalin.c:10963: warning: `a654' might be used uninitialized in this function graphs-stalin.c:10964: warning: `a656' might be used uninitialized in this function graphs-stalin.c:10965: warning: `a657' might be used uninitialized in this function graphs-stalin.c:10966: warning: `a659' might be used uninitialized in this function graphs-stalin.c:10967: warning: `a662' might be used uninitialized in this function graphs-stalin.c:10968: warning: `a663' might be used uninitialized in this function graphs-stalin.c:10969: warning: `a664' might be used uninitialized in this function graphs-stalin.c:10970: warning: `a665' might be used uninitialized in this function graphs-stalin.c:10971: warning: `a666' might be used uninitialized in this function graphs-stalin.c:10972: warning: `a667' might be used uninitialized in this function graphs-stalin.c:10973: warning: `a668' might be used uninitialized in this function graphs-stalin.c:10974: warning: `a669' might be used uninitialized in this function graphs-stalin.c:10975: warning: `a670' might be used uninitialized in this function graphs-stalin.c:10976: warning: `a671' might be used uninitialized in this function graphs-stalin.c:10977: warning: `a672' might be used uninitialized in this function graphs-stalin.c:10978: warning: `a673' might be used uninitialized in this function graphs-stalin.c:10979: warning: `a674' might be used uninitialized in this function graphs-stalin.c:10980: warning: `a675' might be used uninitialized in this function graphs-stalin.c:10981: warning: `a676' might be used uninitialized in this function graphs-stalin.c:10982: warning: `a677' might be used uninitialized in this function graphs-stalin.c:10983: warning: `a678' might be used uninitialized in this function graphs-stalin.c:10986: warning: `a793' might be used uninitialized in this function graphs-stalin.c:10992: warning: `a829' might be used uninitialized in this function graphs-stalin.c:10993: warning: `a830' might be used uninitialized in this function graphs-stalin.c:10994: warning: `a831' might be used uninitialized in this function graphs-stalin.c:10995: warning: `a832' might be used uninitialized in this function graphs-stalin.c:11004: warning: `a841' might be used uninitialized in this function graphs-stalin.c:11007: warning: `a1112' might be used uninitialized in this function graphs-stalin.c:11008: warning: `a1975' might be used uninitialized in this function graphs-stalin.c:11009: warning: `a1976' might be used uninitialized in this function graphs-stalin.c:11013: warning: `a1980' might be used uninitialized in this function graphs-stalin.c:11014: warning: `a1981' might be used uninitialized in this function graphs-stalin.c:11015: warning: `a1982' might be used uninitialized in this function graphs-stalin.c:11016: warning: `a1983' might be used uninitialized in this function graphs-stalin.c:11017: warning: `a1984' might be used uninitialized in this function graphs-stalin.c:11018: warning: `a1985' might be used uninitialized in this function graphs-stalin.c:11019: warning: `a1986' might be used uninitialized in this function graphs-stalin.c:11020: warning: `a1987' might be used uninitialized in this function graphs-stalin.c:11021: warning: `a1988' might be used uninitialized in this function graphs-stalin.c:11022: warning: `a1989' might be used uninitialized in this function graphs-stalin.c:11023: warning: `a1990' might be used uninitialized in this function graphs-stalin.c:11024: warning: `a1991' might be used uninitialized in this function graphs-stalin.c:11025: warning: `a1992' might be used uninitialized in this function graphs-stalin.c:11026: warning: `a1993' might be used uninitialized in this function graphs-stalin.c:11027: warning: `a1994' might be used uninitialized in this function graphs-stalin.c:11028: warning: `a1995' might be used uninitialized in this function graphs-stalin.c:11029: warning: `a1996' might be used uninitialized in this function graphs-stalin.c:11030: warning: `a1997' might be used uninitialized in this function graphs-stalin.c:11031: warning: `a1998' might be used uninitialized in this function graphs-stalin.c:11032: warning: `a1999' might be used uninitialized in this function graphs-stalin.c:11033: warning: `a2000' might be used uninitialized in this function graphs-stalin.c:11034: warning: `a2001' might be used uninitialized in this function graphs-stalin.c:11035: warning: `a2002' might be used uninitialized in this function graphs-stalin.c:11036: warning: `a2003' might be used uninitialized in this function graphs-stalin.c:11037: warning: `a2004' might be used uninitialized in this function graphs-stalin.c:11038: warning: `a2005' might be used uninitialized in this function graphs-stalin.c:11039: warning: `a2006' might be used uninitialized in this function graphs-stalin.c:11040: warning: `a2007' might be used uninitialized in this function graphs-stalin.c:11041: warning: `a2008' might be used uninitialized in this function graphs-stalin.c:11042: warning: `a2009' might be used uninitialized in this function graphs-stalin.c:11043: warning: `a2010' might be used uninitialized in this function graphs-stalin.c:11044: warning: `a2011' might be used uninitialized in this function graphs-stalin.c:11045: warning: `a2012' might be used uninitialized in this function graphs-stalin.c:11046: warning: `a2013' might be used uninitialized in this function graphs-stalin.c:11053: warning: `a2383' might be used uninitialized in this function graphs-stalin.c:11057: warning: `a2427' might be used uninitialized in this function graphs-stalin.c:11058: warning: `a2428' might be used uninitialized in this function graphs-stalin.c:11060: warning: `a2430' might be used uninitialized in this function graphs-stalin.c:11062: warning: `a2432' might be used uninitialized in this function graphs-stalin.c:11064: warning: `a2434' might be used uninitialized in this function graphs-stalin.c:11067: warning: `a2437' might be used uninitialized in this function graphs-stalin.c:11068: warning: `a2438' might be used uninitialized in this function graphs-stalin.c:11070: warning: `a2440' might be used uninitialized in this function graphs-stalin.c:11072: warning: `a2442' might be used uninitialized in this function graphs-stalin.c:11074: warning: `a2444' might be used uninitialized in this function graphs-stalin.c:11075: warning: `a2487' might be used uninitialized in this function graphs-stalin.c:11079: warning: `a2491' might be used uninitialized in this function graphs-stalin.c:11086: warning: `t1782' might be used uninitialized in this function graphs-stalin.c:11087: warning: `t1783' might be used uninitialized in this function graphs-stalin.c:11088: warning: `t1784' might be used uninitialized in this function graphs-stalin.c:11089: warning: `t1785' might be used uninitialized in this function graphs-stalin.c:11090: warning: `t1786' might be used uninitialized in this function graphs-stalin.c:11091: warning: `t1787' might be used uninitialized in this function graphs-stalin.c:11092: warning: `t1788' might be used uninitialized in this function graphs-stalin.c:11093: warning: `t1789' might be used uninitialized in this function graphs-stalin.c:11094: warning: `t1790' might be used uninitialized in this function graphs-stalin.c:11095: warning: `t1791' might be used uninitialized in this function graphs-stalin.c:11096: warning: `t1792' might be used uninitialized in this function graphs-stalin.c:11097: warning: `t1793' might be used uninitialized in this function graphs-stalin.c:11098: warning: `t1794' might be used uninitialized in this function graphs-stalin.c:11099: warning: `t1795' might be used uninitialized in this function graphs-stalin.c:11100: warning: `t1796' might be used uninitialized in this function graphs-stalin.c:11101: warning: `t1797' might be used uninitialized in this function graphs-stalin.c:11102: warning: `t1798' might be used uninitialized in this function graphs-stalin.c:11103: warning: `t1799' might be used uninitialized in this function graphs-stalin.c:11104: warning: `t1800' might be used uninitialized in this function graphs-stalin.c:11105: warning: `t1801' might be used uninitialized in this function graphs-stalin.c:11106: warning: `t1802' might be used uninitialized in this function graphs-stalin.c:11107: warning: `t1803' might be used uninitialized in this function graphs-stalin.c:11108: warning: `t1804' might be used uninitialized in this function graphs-stalin.c:11109: warning: `t1805' might be used uninitialized in this function graphs-stalin.c:11110: warning: `t1806' might be used uninitialized in this function graphs-stalin.c:11111: warning: `t1807' might be used uninitialized in this function graphs-stalin.c:11112: warning: `t1808' might be used uninitialized in this function graphs-stalin.c:11113: warning: `t1809' might be used uninitialized in this function graphs-stalin.c:11114: warning: `t1810' might be used uninitialized in this function graphs-stalin.c:11115: warning: `t1811' might be used uninitialized in this function graphs-stalin.c:11116: warning: `t1812' might be used uninitialized in this function graphs-stalin.c:11118: warning: `t1814' might be used uninitialized in this function graphs-stalin.c:11119: warning: `t1815' might be used uninitialized in this function graphs-stalin.c:11120: warning: `t1816' might be used uninitialized in this function graphs-stalin.c:11121: warning: `t1817' might be used uninitialized in this function graphs-stalin.c:11122: warning: `t1818' might be used uninitialized in this function graphs-stalin.c:11123: warning: `t1819' might be used uninitialized in this function graphs-stalin.c:11124: warning: `t1820' might be used uninitialized in this function graphs-stalin.c:11125: warning: `t1821' might be used uninitialized in this function graphs-stalin.c:11126: warning: `t1822' might be used uninitialized in this function graphs-stalin.c:11127: warning: `t1823' might be used uninitialized in this function graphs-stalin.c:11128: warning: `t1824' might be used uninitialized in this function graphs-stalin.c:11129: warning: `t1825' might be used uninitialized in this function graphs-stalin.c:11130: warning: `t1826' might be used uninitialized in this function graphs-stalin.c:11131: warning: `t1827' might be used uninitialized in this function graphs-stalin.c:11132: warning: `t1828' might be used uninitialized in this function graphs-stalin.c:11133: warning: `t1829' might be used uninitialized in this function graphs-stalin.c:11134: warning: `t1830' might be used uninitialized in this function graphs-stalin.c:11135: warning: `t1831' might be used uninitialized in this function graphs-stalin.c:11136: warning: `t1832' might be used uninitialized in this function graphs-stalin.c:11137: warning: `t1833' might be used uninitialized in this function graphs-stalin.c:11138: warning: `t1834' might be used uninitialized in this function graphs-stalin.c:11139: warning: `t1835' might be used uninitialized in this function graphs-stalin.c:11140: warning: `t1836' might be used uninitialized in this function graphs-stalin.c:11141: warning: `t1837' might be used uninitialized in this function graphs-stalin.c:11142: warning: `t1838' might be used uninitialized in this function graphs-stalin.c:11143: warning: `t1839' might be used uninitialized in this function graphs-stalin.c:11144: warning: `t1840' might be used uninitialized in this function graphs-stalin.c:11145: warning: `t1841' might be used uninitialized in this function graphs-stalin.c:11146: warning: `t1842' might be used uninitialized in this function graphs-stalin.c:11147: warning: `t1843' might be used uninitialized in this function graphs-stalin.c:11148: warning: `t1844' might be used uninitialized in this function graphs-stalin.c:11149: warning: `t1845' might be used uninitialized in this function graphs-stalin.c:11150: warning: `t1846' might be used uninitialized in this function graphs-stalin.c:11151: warning: `t1847' might be used uninitialized in this function graphs-stalin.c:11152: warning: `t1848' might be used uninitialized in this function graphs-stalin.c:11153: warning: `t1849' might be used uninitialized in this function graphs-stalin.c:11154: warning: `t1850' might be used uninitialized in this function graphs-stalin.c:11155: warning: `t1851' might be used uninitialized in this function graphs-stalin.c:11156: warning: `t1852' might be used uninitialized in this function graphs-stalin.c:11157: warning: `t1853' might be used uninitialized in this function graphs-stalin.c:11158: warning: `t1854' might be used uninitialized in this function graphs-stalin.c:11159: warning: `t1855' might be used uninitialized in this function graphs-stalin.c:11160: warning: `t1856' might be used uninitialized in this function graphs-stalin.c:11161: warning: `t1857' might be used uninitialized in this function graphs-stalin.c:11162: warning: `t1858' might be used uninitialized in this function graphs-stalin.c:11163: warning: `t1859' might be used uninitialized in this function graphs-stalin.c:11164: warning: `t1860' might be used uninitialized in this function graphs-stalin.c:11165: warning: `t1861' might be used uninitialized in this function graphs-stalin.c:11166: warning: `t1862' might be used uninitialized in this function graphs-stalin.c:11167: warning: `t1863' might be used uninitialized in this function graphs-stalin.c:11168: warning: `t1864' might be used uninitialized in this function graphs-stalin.c:11169: warning: `t1865' might be used uninitialized in this function graphs-stalin.c:11170: warning: `t1866' might be used uninitialized in this function graphs-stalin.c:11171: warning: `t1867' might be used uninitialized in this function graphs-stalin.c:11172: warning: `t1868' might be used uninitialized in this function graphs-stalin.c:11173: warning: `t1869' might be used uninitialized in this function graphs-stalin.c:11174: warning: `t1870' might be used uninitialized in this function graphs-stalin.c:11175: warning: `t1871' might be used uninitialized in this function graphs-stalin.c:11176: warning: `t1872' might be used uninitialized in this function graphs-stalin.c:11177: warning: `t1873' might be used uninitialized in this function graphs-stalin.c:11178: warning: `t1874' might be used uninitialized in this function graphs-stalin.c:11179: warning: `t1875' might be used uninitialized in this function graphs-stalin.c:11180: warning: `t1876' might be used uninitialized in this function graphs-stalin.c:11181: warning: `t1877' might be used uninitialized in this function graphs-stalin.c:11182: warning: `t1878' might be used uninitialized in this function graphs-stalin.c:11183: warning: `t1879' might be used uninitialized in this function graphs-stalin.c:11184: warning: `t1880' might be used uninitialized in this function graphs-stalin.c:11185: warning: `t1881' might be used uninitialized in this function graphs-stalin.c:11186: warning: `t1882' might be used uninitialized in this function graphs-stalin.c:11187: warning: `t1883' might be used uninitialized in this function graphs-stalin.c:11188: warning: `t1884' might be used uninitialized in this function graphs-stalin.c:11189: warning: `t1885' might be used uninitialized in this function graphs-stalin.c:11190: warning: `t1886' might be used uninitialized in this function graphs-stalin.c:11191: warning: `t1887' might be used uninitialized in this function graphs-stalin.c:11192: warning: `t1888' might be used uninitialized in this function graphs-stalin.c:11193: warning: `t1889' might be used uninitialized in this function graphs-stalin.c:11194: warning: `t1890' might be used uninitialized in this function graphs-stalin.c:11195: warning: `t1891' might be used uninitialized in this function graphs-stalin.c:11196: warning: `t1892' might be used uninitialized in this function graphs-stalin.c:11197: warning: `t1893' might be used uninitialized in this function graphs-stalin.c:11198: warning: `t1894' might be used uninitialized in this function graphs-stalin.c:11199: warning: `t1895' might be used uninitialized in this function graphs-stalin.c:11200: warning: `t1896' might be used uninitialized in this function graphs-stalin.c:11201: warning: `t1897' might be used uninitialized in this function graphs-stalin.c:11202: warning: `t1898' might be used uninitialized in this function graphs-stalin.c:11203: warning: `t1899' might be used uninitialized in this function graphs-stalin.c:11204: warning: `t1900' might be used uninitialized in this function graphs-stalin.c:11205: warning: `t1901' might be used uninitialized in this function graphs-stalin.c:11206: warning: `t1902' might be used uninitialized in this function graphs-stalin.c:11207: warning: `t1903' might be used uninitialized in this function graphs-stalin.c:11208: warning: `t1904' might be used uninitialized in this function graphs-stalin.c:11209: warning: `t1905' might be used uninitialized in this function graphs-stalin.c:11210: warning: `t1906' might be used uninitialized in this function graphs-stalin.c:11211: warning: `t1907' might be used uninitialized in this function graphs-stalin.c:11212: warning: `t1908' might be used uninitialized in this function graphs-stalin.c:11213: warning: `t1909' might be used uninitialized in this function graphs-stalin.c:11214: warning: `t1910' might be used uninitialized in this function graphs-stalin.c:11215: warning: `t1911' might be used uninitialized in this function graphs-stalin.c:11216: warning: `t1912' might be used uninitialized in this function graphs-stalin.c:11217: warning: `t1913' might be used uninitialized in this function graphs-stalin.c:11218: warning: `t1914' might be used uninitialized in this function graphs-stalin.c:11219: warning: `t1915' might be used uninitialized in this function graphs-stalin.c:11220: warning: `t1916' might be used uninitialized in this function graphs-stalin.c:11221: warning: `t1917' might be used uninitialized in this function graphs-stalin.c:11222: warning: `t1918' might be used uninitialized in this function graphs-stalin.c:11223: warning: `t1919' might be used uninitialized in this function graphs-stalin.c:11224: warning: `t1920' might be used uninitialized in this function graphs-stalin.c:11225: warning: `t1921' might be used uninitialized in this function graphs-stalin.c:11226: warning: `t1922' might be used uninitialized in this function graphs-stalin.c:11227: warning: `t1923' might be used uninitialized in this function graphs-stalin.c:11228: warning: `t1924' might be used uninitialized in this function graphs-stalin.c:11229: warning: `t1925' might be used uninitialized in this function graphs-stalin.c:11230: warning: `t1926' might be used uninitialized in this function graphs-stalin.c:11231: warning: `t1927' might be used uninitialized in this function graphs-stalin.c:11232: warning: `t1928' might be used uninitialized in this function graphs-stalin.c:11233: warning: `t1929' might be used uninitialized in this function graphs-stalin.c:11234: warning: `t1930' might be used uninitialized in this function graphs-stalin.c:11235: warning: `t1931' might be used uninitialized in this function graphs-stalin.c:11236: warning: `t1932' might be used uninitialized in this function graphs-stalin.c:11237: warning: `t1933' might be used uninitialized in this function graphs-stalin.c:11238: warning: `t1934' might be used uninitialized in this function graphs-stalin.c:11239: warning: `t1935' might be used uninitialized in this function graphs-stalin.c:11240: warning: `t1936' might be used uninitialized in this function graphs-stalin.c:11241: warning: `t1937' might be used uninitialized in this function graphs-stalin.c:11242: warning: `t1938' might be used uninitialized in this function graphs-stalin.c:11243: warning: `t1939' might be used uninitialized in this function graphs-stalin.c:11244: warning: `t1940' might be used uninitialized in this function graphs-stalin.c:11245: warning: `t1941' might be used uninitialized in this function graphs-stalin.c:11246: warning: `t1942' might be used uninitialized in this function graphs-stalin.c:11247: warning: `t1943' might be used uninitialized in this function graphs-stalin.c:11248: warning: `t1944' might be used uninitialized in this function graphs-stalin.c:11249: warning: `t1945' might be used uninitialized in this function graphs-stalin.c:11250: warning: `t1946' might be used uninitialized in this function graphs-stalin.c:11251: warning: `t1947' might be used uninitialized in this function graphs-stalin.c:11252: warning: `t1948' might be used uninitialized in this function graphs-stalin.c:11253: warning: `t1949' might be used uninitialized in this function graphs-stalin.c:11254: warning: `t1950' might be used uninitialized in this function graphs-stalin.c:11256: warning: `t1952' might be used uninitialized in this function graphs-stalin.c:11257: warning: `t1953' might be used uninitialized in this function graphs-stalin.c:11259: warning: `t1955' might be used uninitialized in this function graphs-stalin.c:11260: warning: `t1956' might be used uninitialized in this function graphs-stalin.c:11261: warning: `t1957' might be used uninitialized in this function graphs-stalin.c:11262: warning: `t1958' might be used uninitialized in this function graphs-stalin.c:11263: warning: `t1959' might be used uninitialized in this function graphs-stalin.c:11264: warning: `t1960' might be used uninitialized in this function graphs-stalin.c:11265: warning: `t1961' might be used uninitialized in this function graphs-stalin.c:11266: warning: `t1962' might be used uninitialized in this function graphs-stalin.c:11267: warning: `t1963' might be used uninitialized in this function graphs-stalin.c:11268: warning: `t1964' might be used uninitialized in this function graphs-stalin.c:11269: warning: `t1965' might be used uninitialized in this function graphs-stalin.c:11270: warning: `t1966' might be used uninitialized in this function graphs-stalin.c:11271: warning: `t1967' might be used uninitialized in this function graphs-stalin.c:11272: warning: `t1968' might be used uninitialized in this function graphs-stalin.c:11273: warning: `t1969' might be used uninitialized in this function graphs-stalin.c:11274: warning: `t1970' might be used uninitialized in this function graphs-stalin.c:11275: warning: `t1971' might be used uninitialized in this function graphs-stalin.c:11276: warning: `t1972' might be used uninitialized in this function graphs-stalin.c:11277: warning: `t1973' might be used uninitialized in this function graphs-stalin.c:11278: warning: `t1974' might be used uninitialized in this function graphs-stalin.c:11279: warning: `t1975' might be used uninitialized in this function graphs-stalin.c:11280: warning: `t1976' might be used uninitialized in this function graphs-stalin.c:11281: warning: `t1977' might be used uninitialized in this function graphs-stalin.c:11282: warning: `t1978' might be used uninitialized in this function graphs-stalin.c:11283: warning: `t1979' might be used uninitialized in this function graphs-stalin.c:11284: warning: `t1980' might be used uninitialized in this function graphs-stalin.c:11285: warning: `t1981' might be used uninitialized in this function graphs-stalin.c:11286: warning: `t1982' might be used uninitialized in this function graphs-stalin.c:11287: warning: `t1983' might be used uninitialized in this function graphs-stalin.c:11288: warning: `t1984' might be used uninitialized in this function graphs-stalin.c:11289: warning: `t1985' might be used uninitialized in this function graphs-stalin.c:11290: warning: `t1986' might be used uninitialized in this function graphs-stalin.c:11291: warning: `t1987' might be used uninitialized in this function graphs-stalin.c:11293: warning: `t1989' might be used uninitialized in this function graphs-stalin.c:11294: warning: `t1990' might be used uninitialized in this function graphs-stalin.c:11295: warning: `t1991' might be used uninitialized in this function graphs-stalin.c:11297: warning: `t1993' might be used uninitialized in this function graphs-stalin.c:11298: warning: `t1994' might be used uninitialized in this function graphs-stalin.c:11376: warning: `t2119' might be used uninitialized in this function graphs-stalin.c:11377: warning: `t2120' might be used uninitialized in this function graphs-stalin.c:11383: warning: `t2130' might be used uninitialized in this function graphs-stalin.c:11388: warning: `t2137' might be used uninitialized in this function graphs-stalin.c:11389: warning: `t2138' might be used uninitialized in this function graphs-stalin.c:11422: warning: `t2185' might be used uninitialized in this function graphs-stalin.c:11430: warning: `t2196' might be used uninitialized in this function graphs-stalin.c:11432: warning: `t2199' might be used uninitialized in this function graphs-stalin.c:11433: warning: `t2200' might be used uninitialized in this function graphs-stalin.c:11439: warning: `t2210' might be used uninitialized in this function graphs-stalin.c:11444: warning: `t2217' might be used uninitialized in this function graphs-stalin.c:11445: warning: `t2218' might be used uninitialized in this function graphs-stalin.c:11451: warning: `t2227' might be used uninitialized in this function graphs-stalin.c:11452: warning: `t2228' might be used uninitialized in this function graphs-stalin.c:11458: warning: `t2238' might be used uninitialized in this function graphs-stalin.c:11490: warning: `t2274' might be used uninitialized in this function graphs-stalin.c:11491: warning: `t2275' might be used uninitialized in this function graphs-stalin.c:11492: warning: `t2276' might be used uninitialized in this function 45.74user 0.46system 0:50.79elapsed 90%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33514major+309645minor)pagefaults 0swaps compile lattice (STATIC-COUNTS 2258 2258 2258 2258 0 0 0 2258 2181 1195 47 143 8 43 1.164077669902913 4311 4311 472 260) lattice-stalin.c: In function `f910': lattice-stalin.c:2108: warning: `a924' might be used uninitialized in this function lattice-stalin.c:2112: warning: `a1552' might be used uninitialized in this function lattice-stalin.c: In function `f93': lattice-stalin.c:2638: warning: unused variable `e262' lattice-stalin.c:2634: warning: unused variable `e234' lattice-stalin.c:2628: warning: unused variable `e222' lattice-stalin.c:2627: warning: unused variable `e221' lattice-stalin.c:2561: warning: unused variable `a905' lattice-stalin.c:2557: warning: unused variable `a884' lattice-stalin.c:2551: warning: unused variable `a875' lattice-stalin.c:2550: warning: unused variable `a874' lattice-stalin.c:2548: warning: `a872' might be used uninitialized in this function lattice-stalin.c:2553: warning: `a877' might be used uninitialized in this function lattice-stalin.c:2555: warning: `a882' might be used uninitialized in this function lattice-stalin.c:2559: warning: `a903' might be used uninitialized in this function lattice-stalin.c: In function `f88': lattice-stalin.c:3031: warning: `a694' might be used uninitialized in this function lattice-stalin.c:3033: warning: `a696' might be used uninitialized in this function lattice-stalin.c:3034: warning: `a697' might be used uninitialized in this function lattice-stalin.c: In function `f85': lattice-stalin.c:3165: warning: `a717' might be used uninitialized in this function lattice-stalin.c:3173: warning: `a732' might be used uninitialized in this function lattice-stalin.c:3180: warning: `a739' might be used uninitialized in this function lattice-stalin.c:3199: warning: `a769' might be used uninitialized in this function lattice-stalin.c:3201: warning: `a775' might be used uninitialized in this function lattice-stalin.c:3202: warning: `a776' might be used uninitialized in this function lattice-stalin.c:3205: warning: `a779' might be used uninitialized in this function lattice-stalin.c:3216: warning: `a2247' might be used uninitialized in this function lattice-stalin.c:3223: warning: `a2254' might be used uninitialized in this function lattice-stalin.c:3257: warning: `t267' might be used uninitialized in this function lattice-stalin.c:3425: warning: `t487' might be used uninitialized in this function lattice-stalin.c: In function `f60': lattice-stalin.c:4944: warning: `a727' might be used uninitialized in this function lattice-stalin.c: In function `f41': lattice-stalin.c:5171: warning: unused variable `e2143' lattice-stalin.c:5170: warning: unused variable `e2142' lattice-stalin.c:5169: warning: unused variable `e2141' lattice-stalin.c:5167: warning: unused variable `e2139' lattice-stalin.c:5166: warning: unused variable `e2138' lattice-stalin.c:5165: warning: unused variable `e2137' lattice-stalin.c:5163: warning: unused variable `e2135' lattice-stalin.c:5162: warning: unused variable `e2134' lattice-stalin.c:5161: warning: unused variable `e2133' lattice-stalin.c:5159: warning: unused variable `e125' lattice-stalin.c:5158: warning: unused variable `e124' lattice-stalin.c:5157: warning: unused variable `e123' lattice-stalin.c:5155: warning: unused variable `e44' lattice-stalin.c:5152: warning: unused variable `e39' lattice-stalin.c:5072: warning: unused variable `a2212' lattice-stalin.c:5071: warning: unused variable `a2211' lattice-stalin.c:5070: warning: unused variable `a2210' lattice-stalin.c:5067: warning: unused variable `a2207' lattice-stalin.c:5066: warning: unused variable `a2206' lattice-stalin.c:5065: warning: unused variable `a2205' lattice-stalin.c:5062: warning: unused variable `a2202' lattice-stalin.c:5061: warning: unused variable `a2201' lattice-stalin.c:5060: warning: unused variable `a2200' lattice-stalin.c:5057: warning: unused variable `a788' lattice-stalin.c:5056: warning: unused variable `a787' lattice-stalin.c:5055: warning: unused variable `a786' lattice-stalin.c:5052: warning: unused variable `a711' lattice-stalin.c:5049: warning: unused variable `a706' lattice-stalin.c:5038: warning: `r41' might be used uninitialized in this function lattice-stalin.c:5044: warning: `a701' might be used uninitialized in this function lattice-stalin.c:5045: warning: `a702' might be used uninitialized in this function lattice-stalin.c:5054: warning: `a785' might be used uninitialized in this function lattice-stalin.c:5059: warning: `a2199' might be used uninitialized in this function lattice-stalin.c:5064: warning: `a2204' might be used uninitialized in this function lattice-stalin.c:5069: warning: `a2209' might be used uninitialized in this function lattice-stalin.c: In function `f17': lattice-stalin.c:5762: warning: unused variable `e2167' lattice-stalin.c:5761: warning: unused variable `e2166' lattice-stalin.c:5760: warning: unused variable `e2165' lattice-stalin.c:5758: warning: unused variable `e2163' lattice-stalin.c:5757: warning: unused variable `e2162' lattice-stalin.c:5756: warning: unused variable `e2161' lattice-stalin.c:5754: warning: unused variable `e2159' lattice-stalin.c:5753: warning: unused variable `e2158' lattice-stalin.c:5752: warning: unused variable `e2157' lattice-stalin.c:5750: warning: unused variable `e2155' lattice-stalin.c:5749: warning: unused variable `e2154' lattice-stalin.c:5748: warning: unused variable `e2153' lattice-stalin.c:5746: warning: unused variable `e2151' lattice-stalin.c:5745: warning: unused variable `e2150' lattice-stalin.c:5744: warning: unused variable `e2149' lattice-stalin.c:5742: warning: unused variable `e2147' lattice-stalin.c:5741: warning: unused variable `e2146' lattice-stalin.c:5740: warning: unused variable `e2145' lattice-stalin.c:5680: warning: unused variable `a2242' lattice-stalin.c:5679: warning: unused variable `a2241' lattice-stalin.c:5678: warning: unused variable `a2240' lattice-stalin.c:5675: warning: unused variable `a2237' lattice-stalin.c:5674: warning: unused variable `a2236' lattice-stalin.c:5673: warning: unused variable `a2235' lattice-stalin.c:5670: warning: unused variable `a2232' lattice-stalin.c:5669: warning: unused variable `a2231' lattice-stalin.c:5668: warning: unused variable `a2230' lattice-stalin.c:5665: warning: unused variable `a2227' lattice-stalin.c:5664: warning: unused variable `a2226' lattice-stalin.c:5663: warning: unused variable `a2225' lattice-stalin.c:5660: warning: unused variable `a2222' lattice-stalin.c:5659: warning: unused variable `a2221' lattice-stalin.c:5658: warning: unused variable `a2220' lattice-stalin.c:5655: warning: unused variable `a2217' lattice-stalin.c:5654: warning: unused variable `a2216' lattice-stalin.c:5653: warning: unused variable `a2215' lattice-stalin.c:5652: warning: `a2214' might be used uninitialized in this function lattice-stalin.c:5657: warning: `a2219' might be used uninitialized in this function lattice-stalin.c:5662: warning: `a2224' might be used uninitialized in this function lattice-stalin.c:5667: warning: `a2229' might be used uninitialized in this function lattice-stalin.c:5672: warning: `a2234' might be used uninitialized in this function lattice-stalin.c:5677: warning: `a2239' might be used uninitialized in this function lattice-stalin.c: In function `f0': lattice-stalin.c:5944: warning: `a1' might be used uninitialized in this function lattice-stalin.c:5945: warning: `a2' might be used uninitialized in this function lattice-stalin.c:5946: warning: `a3' might be used uninitialized in this function lattice-stalin.c:5947: warning: `a4' might be used uninitialized in this function lattice-stalin.c:5948: warning: `a5' might be used uninitialized in this function lattice-stalin.c:5949: warning: `a6' might be used uninitialized in this function lattice-stalin.c:5950: warning: `a7' might be used uninitialized in this function lattice-stalin.c:5951: warning: `a8' might be used uninitialized in this function lattice-stalin.c:5952: warning: `a9' might be used uninitialized in this function lattice-stalin.c:5953: warning: `a10' might be used uninitialized in this function lattice-stalin.c:5954: warning: `a11' might be used uninitialized in this function lattice-stalin.c:5955: warning: `a12' might be used uninitialized in this function lattice-stalin.c:5956: warning: `a13' might be used uninitialized in this function lattice-stalin.c:5957: warning: `a14' might be used uninitialized in this function lattice-stalin.c:5958: warning: `a15' might be used uninitialized in this function lattice-stalin.c:5959: warning: `a16' might be used uninitialized in this function lattice-stalin.c:5960: warning: `a17' might be used uninitialized in this function lattice-stalin.c:5961: warning: `a18' might be used uninitialized in this function lattice-stalin.c:5962: warning: `a19' might be used uninitialized in this function lattice-stalin.c:5963: warning: `a20' might be used uninitialized in this function lattice-stalin.c:5964: warning: `a21' might be used uninitialized in this function lattice-stalin.c:5965: warning: `a22' might be used uninitialized in this function lattice-stalin.c:5966: warning: `a23' might be used uninitialized in this function lattice-stalin.c:5967: warning: `a24' might be used uninitialized in this function lattice-stalin.c:5968: warning: `a25' might be used uninitialized in this function lattice-stalin.c:5969: warning: `a26' might be used uninitialized in this function lattice-stalin.c:5970: warning: `a27' might be used uninitialized in this function lattice-stalin.c:5971: warning: `a28' might be used uninitialized in this function lattice-stalin.c:5972: warning: `a29' might be used uninitialized in this function lattice-stalin.c:5973: warning: `a30' might be used uninitialized in this function lattice-stalin.c:5974: warning: `a31' might be used uninitialized in this function lattice-stalin.c:5975: warning: `a32' might be used uninitialized in this function lattice-stalin.c:5976: warning: `a33' might be used uninitialized in this function lattice-stalin.c:5977: warning: `a34' might be used uninitialized in this function lattice-stalin.c:5978: warning: `a35' might be used uninitialized in this function lattice-stalin.c:5979: warning: `a36' might be used uninitialized in this function lattice-stalin.c:5980: warning: `a37' might be used uninitialized in this function lattice-stalin.c:5981: warning: `a38' might be used uninitialized in this function lattice-stalin.c:5982: warning: `a39' might be used uninitialized in this function lattice-stalin.c:5983: warning: `a40' might be used uninitialized in this function lattice-stalin.c:5984: warning: `a41' might be used uninitialized in this function lattice-stalin.c:5985: warning: `a42' might be used uninitialized in this function lattice-stalin.c:5986: warning: `a43' might be used uninitialized in this function lattice-stalin.c:5987: warning: `a44' might be used uninitialized in this function lattice-stalin.c:5988: warning: `a45' might be used uninitialized in this function lattice-stalin.c:5989: warning: `a46' might be used uninitialized in this function lattice-stalin.c:5990: warning: `a47' might be used uninitialized in this function lattice-stalin.c:5991: warning: `a48' might be used uninitialized in this function lattice-stalin.c:5992: warning: `a49' might be used uninitialized in this function lattice-stalin.c:5993: warning: `a50' might be used uninitialized in this function lattice-stalin.c:5994: warning: `a51' might be used uninitialized in this function lattice-stalin.c:5995: warning: `a52' might be used uninitialized in this function lattice-stalin.c:5996: warning: `a53' might be used uninitialized in this function lattice-stalin.c:5997: warning: `a54' might be used uninitialized in this function lattice-stalin.c:5998: warning: `a55' might be used uninitialized in this function lattice-stalin.c:5999: warning: `a56' might be used uninitialized in this function lattice-stalin.c:6000: warning: `a57' might be used uninitialized in this function lattice-stalin.c:6001: warning: `a58' might be used uninitialized in this function lattice-stalin.c:6002: warning: `a59' might be used uninitialized in this function lattice-stalin.c:6003: warning: `a60' might be used uninitialized in this function lattice-stalin.c:6004: warning: `a61' might be used uninitialized in this function lattice-stalin.c:6005: warning: `a62' might be used uninitialized in this function lattice-stalin.c:6006: warning: `a63' might be used uninitialized in this function lattice-stalin.c:6007: warning: `a64' might be used uninitialized in this function lattice-stalin.c:6008: warning: `a65' might be used uninitialized in this function lattice-stalin.c:6009: warning: `a66' might be used uninitialized in this function lattice-stalin.c:6010: warning: `a67' might be used uninitialized in this function lattice-stalin.c:6011: warning: `a68' might be used uninitialized in this function lattice-stalin.c:6012: warning: `a69' might be used uninitialized in this function lattice-stalin.c:6013: warning: `a70' might be used uninitialized in this function lattice-stalin.c:6014: warning: `a71' might be used uninitialized in this function lattice-stalin.c:6015: warning: `a72' might be used uninitialized in this function lattice-stalin.c:6016: warning: `a73' might be used uninitialized in this function lattice-stalin.c:6017: warning: `a74' might be used uninitialized in this function lattice-stalin.c:6018: warning: `a75' might be used uninitialized in this function lattice-stalin.c:6019: warning: `a76' might be used uninitialized in this function lattice-stalin.c:6020: warning: `a77' might be used uninitialized in this function lattice-stalin.c:6021: warning: `a78' might be used uninitialized in this function lattice-stalin.c:6022: warning: `a79' might be used uninitialized in this function lattice-stalin.c:6023: warning: `a80' might be used uninitialized in this function lattice-stalin.c:6024: warning: `a81' might be used uninitialized in this function lattice-stalin.c:6025: warning: `a82' might be used uninitialized in this function lattice-stalin.c:6026: warning: `a83' might be used uninitialized in this function lattice-stalin.c:6027: warning: `a84' might be used uninitialized in this function lattice-stalin.c:6028: warning: `a85' might be used uninitialized in this function lattice-stalin.c:6029: warning: `a86' might be used uninitialized in this function lattice-stalin.c:6030: warning: `a87' might be used uninitialized in this function lattice-stalin.c:6031: warning: `a88' might be used uninitialized in this function lattice-stalin.c:6032: warning: `a89' might be used uninitialized in this function lattice-stalin.c:6033: warning: `a90' might be used uninitialized in this function lattice-stalin.c:6034: warning: `a91' might be used uninitialized in this function lattice-stalin.c:6035: warning: `a92' might be used uninitialized in this function lattice-stalin.c:6036: warning: `a93' might be used uninitialized in this function lattice-stalin.c:6037: warning: `a94' might be used uninitialized in this function lattice-stalin.c:6038: warning: `a95' might be used uninitialized in this function lattice-stalin.c:6039: warning: `a96' might be used uninitialized in this function lattice-stalin.c:6040: warning: `a97' might be used uninitialized in this function lattice-stalin.c:6041: warning: `a98' might be used uninitialized in this function lattice-stalin.c:6042: warning: `a99' might be used uninitialized in this function lattice-stalin.c:6043: warning: `a100' might be used uninitialized in this function lattice-stalin.c:6044: warning: `a101' might be used uninitialized in this function lattice-stalin.c:6045: warning: `a102' might be used uninitialized in this function lattice-stalin.c:6046: warning: `a103' might be used uninitialized in this function lattice-stalin.c:6047: warning: `a104' might be used uninitialized in this function lattice-stalin.c:6048: warning: `a105' might be used uninitialized in this function lattice-stalin.c:6049: warning: `a106' might be used uninitialized in this function lattice-stalin.c:6050: warning: `a107' might be used uninitialized in this function lattice-stalin.c:6051: warning: `a108' might be used uninitialized in this function lattice-stalin.c:6052: warning: `a109' might be used uninitialized in this function lattice-stalin.c:6053: warning: `a110' might be used uninitialized in this function lattice-stalin.c:6054: warning: `a111' might be used uninitialized in this function lattice-stalin.c:6055: warning: `a112' might be used uninitialized in this function lattice-stalin.c:6056: warning: `a113' might be used uninitialized in this function lattice-stalin.c:6057: warning: `a114' might be used uninitialized in this function lattice-stalin.c:6058: warning: `a115' might be used uninitialized in this function lattice-stalin.c:6059: warning: `a116' might be used uninitialized in this function lattice-stalin.c:6060: warning: `a117' might be used uninitialized in this function lattice-stalin.c:6061: warning: `a118' might be used uninitialized in this function lattice-stalin.c:6062: warning: `a119' might be used uninitialized in this function lattice-stalin.c:6063: warning: `a120' might be used uninitialized in this function lattice-stalin.c:6064: warning: `a121' might be used uninitialized in this function lattice-stalin.c:6065: warning: `a122' might be used uninitialized in this function lattice-stalin.c:6066: warning: `a123' might be used uninitialized in this function lattice-stalin.c:6067: warning: `a124' might be used uninitialized in this function lattice-stalin.c:6068: warning: `a125' might be used uninitialized in this function lattice-stalin.c:6069: warning: `a126' might be used uninitialized in this function lattice-stalin.c:6070: warning: `a127' might be used uninitialized in this function lattice-stalin.c:6071: warning: `a128' might be used uninitialized in this function lattice-stalin.c:6072: warning: `a129' might be used uninitialized in this function lattice-stalin.c:6073: warning: `a130' might be used uninitialized in this function lattice-stalin.c:6074: warning: `a131' might be used uninitialized in this function lattice-stalin.c:6075: warning: `a132' might be used uninitialized in this function lattice-stalin.c:6076: warning: `a133' might be used uninitialized in this function lattice-stalin.c:6077: warning: `a134' might be used uninitialized in this function lattice-stalin.c:6078: warning: `a135' might be used uninitialized in this function lattice-stalin.c:6079: warning: `a136' might be used uninitialized in this function lattice-stalin.c:6080: warning: `a137' might be used uninitialized in this function lattice-stalin.c:6081: warning: `a138' might be used uninitialized in this function lattice-stalin.c:6082: warning: `a139' might be used uninitialized in this function lattice-stalin.c:6083: warning: `a140' might be used uninitialized in this function lattice-stalin.c:6084: warning: `a141' might be used uninitialized in this function lattice-stalin.c:6085: warning: `a142' might be used uninitialized in this function lattice-stalin.c:6086: warning: `a143' might be used uninitialized in this function lattice-stalin.c:6087: warning: `a144' might be used uninitialized in this function lattice-stalin.c:6088: warning: `a145' might be used uninitialized in this function lattice-stalin.c:6089: warning: `a146' might be used uninitialized in this function lattice-stalin.c:6090: warning: `a147' might be used uninitialized in this function lattice-stalin.c:6091: warning: `a148' might be used uninitialized in this function lattice-stalin.c:6092: warning: `a149' might be used uninitialized in this function lattice-stalin.c:6093: warning: `a150' might be used uninitialized in this function lattice-stalin.c:6094: warning: `a151' might be used uninitialized in this function lattice-stalin.c:6095: warning: `a152' might be used uninitialized in this function lattice-stalin.c:6096: warning: `a153' might be used uninitialized in this function lattice-stalin.c:6097: warning: `a154' might be used uninitialized in this function lattice-stalin.c:6098: warning: `a155' might be used uninitialized in this function lattice-stalin.c:6099: warning: `a156' might be used uninitialized in this function lattice-stalin.c:6100: warning: `a157' might be used uninitialized in this function lattice-stalin.c:6101: warning: `a158' might be used uninitialized in this function lattice-stalin.c:6102: warning: `a159' might be used uninitialized in this function lattice-stalin.c:6103: warning: `a160' might be used uninitialized in this function lattice-stalin.c:6104: warning: `a161' might be used uninitialized in this function lattice-stalin.c:6105: warning: `a162' might be used uninitialized in this function lattice-stalin.c:6106: warning: `a163' might be used uninitialized in this function lattice-stalin.c:6107: warning: `a164' might be used uninitialized in this function lattice-stalin.c:6108: warning: `a165' might be used uninitialized in this function lattice-stalin.c:6109: warning: `a166' might be used uninitialized in this function lattice-stalin.c:6110: warning: `a167' might be used uninitialized in this function lattice-stalin.c:6111: warning: `a168' might be used uninitialized in this function lattice-stalin.c:6112: warning: `a169' might be used uninitialized in this function lattice-stalin.c:6113: warning: `a170' might be used uninitialized in this function lattice-stalin.c:6114: warning: `a171' might be used uninitialized in this function lattice-stalin.c:6115: warning: `a172' might be used uninitialized in this function lattice-stalin.c:6116: warning: `a173' might be used uninitialized in this function lattice-stalin.c:6117: warning: `a174' might be used uninitialized in this function lattice-stalin.c:6118: warning: `a175' might be used uninitialized in this function lattice-stalin.c:6119: warning: `a176' might be used uninitialized in this function lattice-stalin.c:6120: warning: `a177' might be used uninitialized in this function lattice-stalin.c:6121: warning: `a178' might be used uninitialized in this function lattice-stalin.c:6122: warning: `a179' might be used uninitialized in this function lattice-stalin.c:6123: warning: `a180' might be used uninitialized in this function lattice-stalin.c:6124: warning: `a181' might be used uninitialized in this function lattice-stalin.c:6125: warning: `a182' might be used uninitialized in this function lattice-stalin.c:6126: warning: `a183' might be used uninitialized in this function lattice-stalin.c:6127: warning: `a184' might be used uninitialized in this function lattice-stalin.c:6128: warning: `a185' might be used uninitialized in this function lattice-stalin.c:6129: warning: `a186' might be used uninitialized in this function lattice-stalin.c:6130: warning: `a187' might be used uninitialized in this function lattice-stalin.c:6131: warning: `a188' might be used uninitialized in this function lattice-stalin.c:6132: warning: `a189' might be used uninitialized in this function lattice-stalin.c:6133: warning: `a190' might be used uninitialized in this function lattice-stalin.c:6134: warning: `a191' might be used uninitialized in this function lattice-stalin.c:6135: warning: `a192' might be used uninitialized in this function lattice-stalin.c:6136: warning: `a193' might be used uninitialized in this function lattice-stalin.c:6137: warning: `a194' might be used uninitialized in this function lattice-stalin.c:6138: warning: `a195' might be used uninitialized in this function lattice-stalin.c:6139: warning: `a196' might be used uninitialized in this function lattice-stalin.c:6140: warning: `a197' might be used uninitialized in this function lattice-stalin.c:6141: warning: `a198' might be used uninitialized in this function lattice-stalin.c:6142: warning: `a199' might be used uninitialized in this function lattice-stalin.c:6143: warning: `a200' might be used uninitialized in this function lattice-stalin.c:6144: warning: `a201' might be used uninitialized in this function lattice-stalin.c:6145: warning: `a202' might be used uninitialized in this function lattice-stalin.c:6146: warning: `a203' might be used uninitialized in this function lattice-stalin.c:6147: warning: `a204' might be used uninitialized in this function lattice-stalin.c:6148: warning: `a205' might be used uninitialized in this function lattice-stalin.c:6149: warning: `a206' might be used uninitialized in this function lattice-stalin.c:6150: warning: `a207' might be used uninitialized in this function lattice-stalin.c:6151: warning: `a208' might be used uninitialized in this function lattice-stalin.c:6152: warning: `a209' might be used uninitialized in this function lattice-stalin.c:6153: warning: `a210' might be used uninitialized in this function lattice-stalin.c:6154: warning: `a211' might be used uninitialized in this function lattice-stalin.c:6155: warning: `a212' might be used uninitialized in this function lattice-stalin.c:6156: warning: `a213' might be used uninitialized in this function lattice-stalin.c:6157: warning: `a214' might be used uninitialized in this function lattice-stalin.c:6158: warning: `a215' might be used uninitialized in this function lattice-stalin.c:6159: warning: `a216' might be used uninitialized in this function lattice-stalin.c:6160: warning: `a217' might be used uninitialized in this function lattice-stalin.c:6161: warning: `a218' might be used uninitialized in this function lattice-stalin.c:6162: warning: `a219' might be used uninitialized in this function lattice-stalin.c:6163: warning: `a220' might be used uninitialized in this function lattice-stalin.c:6164: warning: `a221' might be used uninitialized in this function lattice-stalin.c:6165: warning: `a222' might be used uninitialized in this function lattice-stalin.c:6166: warning: `a223' might be used uninitialized in this function lattice-stalin.c:6167: warning: `a224' might be used uninitialized in this function lattice-stalin.c:6168: warning: `a225' might be used uninitialized in this function lattice-stalin.c:6169: warning: `a226' might be used uninitialized in this function lattice-stalin.c:6170: warning: `a227' might be used uninitialized in this function lattice-stalin.c:6171: warning: `a228' might be used uninitialized in this function lattice-stalin.c:6172: warning: `a229' might be used uninitialized in this function lattice-stalin.c:6173: warning: `a230' might be used uninitialized in this function lattice-stalin.c:6174: warning: `a231' might be used uninitialized in this function lattice-stalin.c:6175: warning: `a232' might be used uninitialized in this function lattice-stalin.c:6176: warning: `a233' might be used uninitialized in this function lattice-stalin.c:6177: warning: `a234' might be used uninitialized in this function lattice-stalin.c:6178: warning: `a235' might be used uninitialized in this function lattice-stalin.c:6179: warning: `a236' might be used uninitialized in this function lattice-stalin.c:6180: warning: `a237' might be used uninitialized in this function lattice-stalin.c:6181: warning: `a238' might be used uninitialized in this function lattice-stalin.c:6182: warning: `a239' might be used uninitialized in this function lattice-stalin.c:6183: warning: `a240' might be used uninitialized in this function lattice-stalin.c:6184: warning: `a241' might be used uninitialized in this function lattice-stalin.c:6185: warning: `a242' might be used uninitialized in this function lattice-stalin.c:6186: warning: `a243' might be used uninitialized in this function lattice-stalin.c:6187: warning: `a244' might be used uninitialized in this function lattice-stalin.c:6188: warning: `a245' might be used uninitialized in this function lattice-stalin.c:6189: warning: `a246' might be used uninitialized in this function lattice-stalin.c:6190: warning: `a247' might be used uninitialized in this function lattice-stalin.c:6191: warning: `a248' might be used uninitialized in this function lattice-stalin.c:6192: warning: `a249' might be used uninitialized in this function lattice-stalin.c:6193: warning: `a250' might be used uninitialized in this function lattice-stalin.c:6194: warning: `a251' might be used uninitialized in this function lattice-stalin.c:6195: warning: `a252' might be used uninitialized in this function lattice-stalin.c:6196: warning: `a253' might be used uninitialized in this function lattice-stalin.c:6197: warning: `a254' might be used uninitialized in this function lattice-stalin.c:6198: warning: `a255' might be used uninitialized in this function lattice-stalin.c:6199: warning: `a256' might be used uninitialized in this function lattice-stalin.c:6200: warning: `a257' might be used uninitialized in this function lattice-stalin.c:6201: warning: `a258' might be used uninitialized in this function lattice-stalin.c:6202: warning: `a259' might be used uninitialized in this function lattice-stalin.c:6203: warning: `a260' might be used uninitialized in this function lattice-stalin.c:6204: warning: `a261' might be used uninitialized in this function lattice-stalin.c:6205: warning: `a262' might be used uninitialized in this function lattice-stalin.c:6206: warning: `a263' might be used uninitialized in this function lattice-stalin.c:6207: warning: `a264' might be used uninitialized in this function lattice-stalin.c:6208: warning: `a265' might be used uninitialized in this function lattice-stalin.c:6209: warning: `a266' might be used uninitialized in this function lattice-stalin.c:6210: warning: `a267' might be used uninitialized in this function lattice-stalin.c:6211: warning: `a268' might be used uninitialized in this function lattice-stalin.c:6212: warning: `a269' might be used uninitialized in this function lattice-stalin.c:6213: warning: `a270' might be used uninitialized in this function lattice-stalin.c:6214: warning: `a271' might be used uninitialized in this function lattice-stalin.c:6215: warning: `a272' might be used uninitialized in this function lattice-stalin.c:6216: warning: `a273' might be used uninitialized in this function lattice-stalin.c:6217: warning: `a274' might be used uninitialized in this function lattice-stalin.c:6218: warning: `a275' might be used uninitialized in this function lattice-stalin.c:6219: warning: `a276' might be used uninitialized in this function lattice-stalin.c:6220: warning: `a277' might be used uninitialized in this function lattice-stalin.c:6221: warning: `a278' might be used uninitialized in this function lattice-stalin.c:6222: warning: `a279' might be used uninitialized in this function lattice-stalin.c:6223: warning: `a280' might be used uninitialized in this function lattice-stalin.c:6224: warning: `a281' might be used uninitialized in this function lattice-stalin.c:6225: warning: `a282' might be used uninitialized in this function lattice-stalin.c:6226: warning: `a283' might be used uninitialized in this function lattice-stalin.c:6227: warning: `a284' might be used uninitialized in this function lattice-stalin.c:6228: warning: `a285' might be used uninitialized in this function lattice-stalin.c:6229: warning: `a286' might be used uninitialized in this function lattice-stalin.c:6230: warning: `a287' might be used uninitialized in this function lattice-stalin.c:6231: warning: `a288' might be used uninitialized in this function lattice-stalin.c:6232: warning: `a289' might be used uninitialized in this function lattice-stalin.c:6233: warning: `a290' might be used uninitialized in this function lattice-stalin.c:6234: warning: `a291' might be used uninitialized in this function lattice-stalin.c:6235: warning: `a292' might be used uninitialized in this function lattice-stalin.c:6236: warning: `a293' might be used uninitialized in this function lattice-stalin.c:6237: warning: `a294' might be used uninitialized in this function lattice-stalin.c:6238: warning: `a295' might be used uninitialized in this function lattice-stalin.c:6239: warning: `a296' might be used uninitialized in this function lattice-stalin.c:6240: warning: `a297' might be used uninitialized in this function lattice-stalin.c:6241: warning: `a298' might be used uninitialized in this function lattice-stalin.c:6242: warning: `a299' might be used uninitialized in this function lattice-stalin.c:6243: warning: `a300' might be used uninitialized in this function lattice-stalin.c:6244: warning: `a301' might be used uninitialized in this function lattice-stalin.c:6245: warning: `a302' might be used uninitialized in this function lattice-stalin.c:6246: warning: `a303' might be used uninitialized in this function lattice-stalin.c:6247: warning: `a304' might be used uninitialized in this function lattice-stalin.c:6248: warning: `a305' might be used uninitialized in this function lattice-stalin.c:6249: warning: `a306' might be used uninitialized in this function lattice-stalin.c:6250: warning: `a307' might be used uninitialized in this function lattice-stalin.c:6251: warning: `a308' might be used uninitialized in this function lattice-stalin.c:6252: warning: `a309' might be used uninitialized in this function lattice-stalin.c:6253: warning: `a310' might be used uninitialized in this function lattice-stalin.c:6254: warning: `a311' might be used uninitialized in this function lattice-stalin.c:6255: warning: `a312' might be used uninitialized in this function lattice-stalin.c:6256: warning: `a313' might be used uninitialized in this function lattice-stalin.c:6257: warning: `a314' might be used uninitialized in this function lattice-stalin.c:6258: warning: `a315' might be used uninitialized in this function lattice-stalin.c:6259: warning: `a316' might be used uninitialized in this function lattice-stalin.c:6260: warning: `a317' might be used uninitialized in this function lattice-stalin.c:6261: warning: `a318' might be used uninitialized in this function lattice-stalin.c:6262: warning: `a319' might be used uninitialized in this function lattice-stalin.c:6263: warning: `a320' might be used uninitialized in this function lattice-stalin.c:6264: warning: `a321' might be used uninitialized in this function lattice-stalin.c:6265: warning: `a322' might be used uninitialized in this function lattice-stalin.c:6266: warning: `a323' might be used uninitialized in this function lattice-stalin.c:6267: warning: `a324' might be used uninitialized in this function lattice-stalin.c:6268: warning: `a325' might be used uninitialized in this function lattice-stalin.c:6269: warning: `a326' might be used uninitialized in this function lattice-stalin.c:6270: warning: `a327' might be used uninitialized in this function lattice-stalin.c:6271: warning: `a328' might be used uninitialized in this function lattice-stalin.c:6272: warning: `a329' might be used uninitialized in this function lattice-stalin.c:6273: warning: `a330' might be used uninitialized in this function lattice-stalin.c:6274: warning: `a331' might be used uninitialized in this function lattice-stalin.c:6275: warning: `a332' might be used uninitialized in this function lattice-stalin.c:6276: warning: `a333' might be used uninitialized in this function lattice-stalin.c:6277: warning: `a334' might be used uninitialized in this function lattice-stalin.c:6278: warning: `a335' might be used uninitialized in this function lattice-stalin.c:6279: warning: `a336' might be used uninitialized in this function lattice-stalin.c:6280: warning: `a337' might be used uninitialized in this function lattice-stalin.c:6281: warning: `a338' might be used uninitialized in this function lattice-stalin.c:6282: warning: `a339' might be used uninitialized in this function lattice-stalin.c:6283: warning: `a340' might be used uninitialized in this function lattice-stalin.c:6284: warning: `a341' might be used uninitialized in this function lattice-stalin.c:6285: warning: `a342' might be used uninitialized in this function lattice-stalin.c:6286: warning: `a343' might be used uninitialized in this function lattice-stalin.c:6287: warning: `a344' might be used uninitialized in this function lattice-stalin.c:6288: warning: `a345' might be used uninitialized in this function lattice-stalin.c:6289: warning: `a346' might be used uninitialized in this function lattice-stalin.c:6290: warning: `a347' might be used uninitialized in this function lattice-stalin.c:6291: warning: `a348' might be used uninitialized in this function lattice-stalin.c:6292: warning: `a349' might be used uninitialized in this function lattice-stalin.c:6293: warning: `a350' might be used uninitialized in this function lattice-stalin.c:6294: warning: `a351' might be used uninitialized in this function lattice-stalin.c:6295: warning: `a352' might be used uninitialized in this function lattice-stalin.c:6296: warning: `a353' might be used uninitialized in this function lattice-stalin.c:6297: warning: `a354' might be used uninitialized in this function lattice-stalin.c:6298: warning: `a355' might be used uninitialized in this function lattice-stalin.c:6299: warning: `a356' might be used uninitialized in this function lattice-stalin.c:6300: warning: `a357' might be used uninitialized in this function lattice-stalin.c:6301: warning: `a358' might be used uninitialized in this function lattice-stalin.c:6302: warning: `a359' might be used uninitialized in this function lattice-stalin.c:6303: warning: `a360' might be used uninitialized in this function lattice-stalin.c:6304: warning: `a361' might be used uninitialized in this function lattice-stalin.c:6305: warning: `a362' might be used uninitialized in this function lattice-stalin.c:6306: warning: `a363' might be used uninitialized in this function lattice-stalin.c:6307: warning: `a364' might be used uninitialized in this function lattice-stalin.c:6308: warning: `a365' might be used uninitialized in this function lattice-stalin.c:6309: warning: `a366' might be used uninitialized in this function lattice-stalin.c:6310: warning: `a367' might be used uninitialized in this function lattice-stalin.c:6311: warning: `a368' might be used uninitialized in this function lattice-stalin.c:6312: warning: `a369' might be used uninitialized in this function lattice-stalin.c:6313: warning: `a370' might be used uninitialized in this function lattice-stalin.c:6314: warning: `a371' might be used uninitialized in this function lattice-stalin.c:6315: warning: `a372' might be used uninitialized in this function lattice-stalin.c:6316: warning: `a373' might be used uninitialized in this function lattice-stalin.c:6317: warning: `a374' might be used uninitialized in this function lattice-stalin.c:6318: warning: `a375' might be used uninitialized in this function lattice-stalin.c:6319: warning: `a376' might be used uninitialized in this function lattice-stalin.c:6320: warning: `a377' might be used uninitialized in this function lattice-stalin.c:6321: warning: `a378' might be used uninitialized in this function lattice-stalin.c:6322: warning: `a379' might be used uninitialized in this function lattice-stalin.c:6323: warning: `a380' might be used uninitialized in this function lattice-stalin.c:6324: warning: `a381' might be used uninitialized in this function lattice-stalin.c:6325: warning: `a382' might be used uninitialized in this function lattice-stalin.c:6326: warning: `a383' might be used uninitialized in this function lattice-stalin.c:6327: warning: `a384' might be used uninitialized in this function lattice-stalin.c:6328: warning: `a385' might be used uninitialized in this function lattice-stalin.c:6329: warning: `a386' might be used uninitialized in this function lattice-stalin.c:6330: warning: `a387' might be used uninitialized in this function lattice-stalin.c:6331: warning: `a388' might be used uninitialized in this function lattice-stalin.c:6332: warning: `a389' might be used uninitialized in this function lattice-stalin.c:6333: warning: `a390' might be used uninitialized in this function lattice-stalin.c:6334: warning: `a391' might be used uninitialized in this function lattice-stalin.c:6335: warning: `a392' might be used uninitialized in this function lattice-stalin.c:6336: warning: `a393' might be used uninitialized in this function lattice-stalin.c:6337: warning: `a394' might be used uninitialized in this function lattice-stalin.c:6338: warning: `a395' might be used uninitialized in this function lattice-stalin.c:6339: warning: `a396' might be used uninitialized in this function lattice-stalin.c:6340: warning: `a397' might be used uninitialized in this function lattice-stalin.c:6341: warning: `a398' might be used uninitialized in this function lattice-stalin.c:6342: warning: `a399' might be used uninitialized in this function lattice-stalin.c:6343: warning: `a400' might be used uninitialized in this function lattice-stalin.c:6344: warning: `a401' might be used uninitialized in this function lattice-stalin.c:6345: warning: `a402' might be used uninitialized in this function lattice-stalin.c:6346: warning: `a403' might be used uninitialized in this function lattice-stalin.c:6347: warning: `a404' might be used uninitialized in this function lattice-stalin.c:6348: warning: `a405' might be used uninitialized in this function lattice-stalin.c:6349: warning: `a406' might be used uninitialized in this function lattice-stalin.c:6350: warning: `a407' might be used uninitialized in this function lattice-stalin.c:6351: warning: `a408' might be used uninitialized in this function lattice-stalin.c:6352: warning: `a409' might be used uninitialized in this function lattice-stalin.c:6353: warning: `a410' might be used uninitialized in this function lattice-stalin.c:6354: warning: `a411' might be used uninitialized in this function lattice-stalin.c:6355: warning: `a412' might be used uninitialized in this function lattice-stalin.c:6356: warning: `a413' might be used uninitialized in this function lattice-stalin.c:6357: warning: `a414' might be used uninitialized in this function lattice-stalin.c:6358: warning: `a415' might be used uninitialized in this function lattice-stalin.c:6359: warning: `a416' might be used uninitialized in this function lattice-stalin.c:6360: warning: `a417' might be used uninitialized in this function lattice-stalin.c:6361: warning: `a418' might be used uninitialized in this function lattice-stalin.c:6362: warning: `a419' might be used uninitialized in this function lattice-stalin.c:6363: warning: `a420' might be used uninitialized in this function lattice-stalin.c:6364: warning: `a421' might be used uninitialized in this function lattice-stalin.c:6365: warning: `a422' might be used uninitialized in this function lattice-stalin.c:6366: warning: `a423' might be used uninitialized in this function lattice-stalin.c:6367: warning: `a424' might be used uninitialized in this function lattice-stalin.c:6368: warning: `a425' might be used uninitialized in this function lattice-stalin.c:6369: warning: `a426' might be used uninitialized in this function lattice-stalin.c:6370: warning: `a427' might be used uninitialized in this function lattice-stalin.c:6371: warning: `a428' might be used uninitialized in this function lattice-stalin.c:6372: warning: `a429' might be used uninitialized in this function lattice-stalin.c:6373: warning: `a430' might be used uninitialized in this function lattice-stalin.c:6374: warning: `a431' might be used uninitialized in this function lattice-stalin.c:6375: warning: `a432' might be used uninitialized in this function lattice-stalin.c:6376: warning: `a433' might be used uninitialized in this function lattice-stalin.c:6377: warning: `a434' might be used uninitialized in this function lattice-stalin.c:6378: warning: `a435' might be used uninitialized in this function lattice-stalin.c:6592: warning: `a649' might be used uninitialized in this function lattice-stalin.c:6593: warning: `a650' might be used uninitialized in this function lattice-stalin.c:6594: warning: `a651' might be used uninitialized in this function lattice-stalin.c:6595: warning: `a652' might be used uninitialized in this function lattice-stalin.c:6596: warning: `a653' might be used uninitialized in this function lattice-stalin.c:6597: warning: `a654' might be used uninitialized in this function lattice-stalin.c:6598: warning: `a655' might be used uninitialized in this function lattice-stalin.c:6599: warning: `a656' might be used uninitialized in this function lattice-stalin.c:6600: warning: `a657' might be used uninitialized in this function lattice-stalin.c:6601: warning: `a658' might be used uninitialized in this function lattice-stalin.c:6602: warning: `a659' might be used uninitialized in this function lattice-stalin.c:6603: warning: `a660' might be used uninitialized in this function lattice-stalin.c:6604: warning: `a661' might be used uninitialized in this function lattice-stalin.c:6605: warning: `a662' might be used uninitialized in this function lattice-stalin.c:6606: warning: `a663' might be used uninitialized in this function lattice-stalin.c:6607: warning: `a664' might be used uninitialized in this function lattice-stalin.c:6608: warning: `a665' might be used uninitialized in this function lattice-stalin.c:6609: warning: `a666' might be used uninitialized in this function lattice-stalin.c:6610: warning: `a667' might be used uninitialized in this function lattice-stalin.c:6611: warning: `a668' might be used uninitialized in this function lattice-stalin.c:6612: warning: `a669' might be used uninitialized in this function lattice-stalin.c:6613: warning: `a670' might be used uninitialized in this function lattice-stalin.c:6614: warning: `a671' might be used uninitialized in this function lattice-stalin.c:6615: warning: `a672' might be used uninitialized in this function lattice-stalin.c:6616: warning: `a673' might be used uninitialized in this function lattice-stalin.c:6617: warning: `a674' might be used uninitialized in this function lattice-stalin.c:6618: warning: `a675' might be used uninitialized in this function lattice-stalin.c:6619: warning: `a676' might be used uninitialized in this function lattice-stalin.c:6621: warning: `a678' might be used uninitialized in this function lattice-stalin.c:6632: warning: `a722' might be used uninitialized in this function lattice-stalin.c:6633: warning: `a973' might be used uninitialized in this function lattice-stalin.c:6634: warning: `a1836' might be used uninitialized in this function lattice-stalin.c:6635: warning: `a1837' might be used uninitialized in this function lattice-stalin.c:6639: warning: `a1841' might be used uninitialized in this function lattice-stalin.c:6640: warning: `a1842' might be used uninitialized in this function lattice-stalin.c:6641: warning: `a1843' might be used uninitialized in this function lattice-stalin.c:6642: warning: `a1844' might be used uninitialized in this function lattice-stalin.c:6643: warning: `a1845' might be used uninitialized in this function lattice-stalin.c:6644: warning: `a1846' might be used uninitialized in this function lattice-stalin.c:6645: warning: `a1847' might be used uninitialized in this function lattice-stalin.c:6646: warning: `a1848' might be used uninitialized in this function lattice-stalin.c:6647: warning: `a1849' might be used uninitialized in this function lattice-stalin.c:6648: warning: `a1850' might be used uninitialized in this function lattice-stalin.c:6649: warning: `a1851' might be used uninitialized in this function lattice-stalin.c:6650: warning: `a1852' might be used uninitialized in this function lattice-stalin.c:6651: warning: `a1853' might be used uninitialized in this function lattice-stalin.c:6652: warning: `a1854' might be used uninitialized in this function lattice-stalin.c:6653: warning: `a1855' might be used uninitialized in this function lattice-stalin.c:6654: warning: `a1856' might be used uninitialized in this function lattice-stalin.c:6655: warning: `a1857' might be used uninitialized in this function lattice-stalin.c:6656: warning: `a1858' might be used uninitialized in this function lattice-stalin.c:6657: warning: `a1859' might be used uninitialized in this function lattice-stalin.c:6658: warning: `a1860' might be used uninitialized in this function lattice-stalin.c:6659: warning: `a1861' might be used uninitialized in this function lattice-stalin.c:6660: warning: `a1862' might be used uninitialized in this function lattice-stalin.c:6661: warning: `a1863' might be used uninitialized in this function lattice-stalin.c:6662: warning: `a1864' might be used uninitialized in this function lattice-stalin.c:6663: warning: `a1865' might be used uninitialized in this function lattice-stalin.c:6664: warning: `a1866' might be used uninitialized in this function lattice-stalin.c:6665: warning: `a1867' might be used uninitialized in this function lattice-stalin.c:6666: warning: `a1868' might be used uninitialized in this function lattice-stalin.c:6667: warning: `a1869' might be used uninitialized in this function lattice-stalin.c:6668: warning: `a1870' might be used uninitialized in this function lattice-stalin.c:6669: warning: `a1871' might be used uninitialized in this function lattice-stalin.c:6670: warning: `a1872' might be used uninitialized in this function lattice-stalin.c:6671: warning: `a1873' might be used uninitialized in this function lattice-stalin.c:6672: warning: `a1874' might be used uninitialized in this function lattice-stalin.c:6678: warning: `t1206' might be used uninitialized in this function lattice-stalin.c:6679: warning: `t1207' might be used uninitialized in this function lattice-stalin.c:6680: warning: `t1208' might be used uninitialized in this function lattice-stalin.c:6681: warning: `t1209' might be used uninitialized in this function lattice-stalin.c:6682: warning: `t1210' might be used uninitialized in this function lattice-stalin.c:6683: warning: `t1211' might be used uninitialized in this function lattice-stalin.c:6684: warning: `t1212' might be used uninitialized in this function lattice-stalin.c:6685: warning: `t1213' might be used uninitialized in this function lattice-stalin.c:6686: warning: `t1214' might be used uninitialized in this function lattice-stalin.c:6687: warning: `t1215' might be used uninitialized in this function lattice-stalin.c:6688: warning: `t1216' might be used uninitialized in this function lattice-stalin.c:6689: warning: `t1217' might be used uninitialized in this function lattice-stalin.c:6690: warning: `t1218' might be used uninitialized in this function lattice-stalin.c:6691: warning: `t1219' might be used uninitialized in this function lattice-stalin.c:6692: warning: `t1220' might be used uninitialized in this function lattice-stalin.c:6693: warning: `t1221' might be used uninitialized in this function lattice-stalin.c:6694: warning: `t1222' might be used uninitialized in this function lattice-stalin.c:6695: warning: `t1223' might be used uninitialized in this function lattice-stalin.c:6696: warning: `t1224' might be used uninitialized in this function lattice-stalin.c:6697: warning: `t1225' might be used uninitialized in this function lattice-stalin.c:6698: warning: `t1226' might be used uninitialized in this function lattice-stalin.c:6699: warning: `t1227' might be used uninitialized in this function lattice-stalin.c:6700: warning: `t1228' might be used uninitialized in this function lattice-stalin.c:6701: warning: `t1229' might be used uninitialized in this function lattice-stalin.c:6702: warning: `t1230' might be used uninitialized in this function lattice-stalin.c:6703: warning: `t1231' might be used uninitialized in this function lattice-stalin.c:6704: warning: `t1232' might be used uninitialized in this function lattice-stalin.c:6705: warning: `t1233' might be used uninitialized in this function lattice-stalin.c:6706: warning: `t1234' might be used uninitialized in this function lattice-stalin.c:6707: warning: `t1235' might be used uninitialized in this function lattice-stalin.c:6708: warning: `t1236' might be used uninitialized in this function lattice-stalin.c:6709: warning: `t1237' might be used uninitialized in this function lattice-stalin.c:6711: warning: `t1239' might be used uninitialized in this function lattice-stalin.c:6712: warning: `t1240' might be used uninitialized in this function lattice-stalin.c:6713: warning: `t1241' might be used uninitialized in this function lattice-stalin.c:6714: warning: `t1242' might be used uninitialized in this function lattice-stalin.c:6715: warning: `t1243' might be used uninitialized in this function lattice-stalin.c:6716: warning: `t1244' might be used uninitialized in this function lattice-stalin.c:6717: warning: `t1245' might be used uninitialized in this function lattice-stalin.c:6718: warning: `t1246' might be used uninitialized in this function lattice-stalin.c:6719: warning: `t1247' might be used uninitialized in this function lattice-stalin.c:6720: warning: `t1248' might be used uninitialized in this function lattice-stalin.c:6721: warning: `t1249' might be used uninitialized in this function lattice-stalin.c:6722: warning: `t1250' might be used uninitialized in this function lattice-stalin.c:6723: warning: `t1251' might be used uninitialized in this function lattice-stalin.c:6724: warning: `t1252' might be used uninitialized in this function lattice-stalin.c:6725: warning: `t1253' might be used uninitialized in this function lattice-stalin.c:6726: warning: `t1254' might be used uninitialized in this function lattice-stalin.c:6727: warning: `t1255' might be used uninitialized in this function lattice-stalin.c:6728: warning: `t1256' might be used uninitialized in this function lattice-stalin.c:6729: warning: `t1257' might be used uninitialized in this function lattice-stalin.c:6730: warning: `t1258' might be used uninitialized in this function lattice-stalin.c:6731: warning: `t1259' might be used uninitialized in this function lattice-stalin.c:6732: warning: `t1260' might be used uninitialized in this function lattice-stalin.c:6733: warning: `t1261' might be used uninitialized in this function lattice-stalin.c:6734: warning: `t1262' might be used uninitialized in this function lattice-stalin.c:6735: warning: `t1263' might be used uninitialized in this function lattice-stalin.c:6736: warning: `t1264' might be used uninitialized in this function lattice-stalin.c:6737: warning: `t1265' might be used uninitialized in this function lattice-stalin.c:6738: warning: `t1266' might be used uninitialized in this function lattice-stalin.c:6739: warning: `t1267' might be used uninitialized in this function lattice-stalin.c:6740: warning: `t1268' might be used uninitialized in this function lattice-stalin.c:6741: warning: `t1269' might be used uninitialized in this function lattice-stalin.c:6742: warning: `t1270' might be used uninitialized in this function lattice-stalin.c:6743: warning: `t1271' might be used uninitialized in this function lattice-stalin.c:6744: warning: `t1272' might be used uninitialized in this function lattice-stalin.c:6745: warning: `t1273' might be used uninitialized in this function lattice-stalin.c:6746: warning: `t1274' might be used uninitialized in this function lattice-stalin.c:6747: warning: `t1275' might be used uninitialized in this function lattice-stalin.c:6748: warning: `t1276' might be used uninitialized in this function lattice-stalin.c:6749: warning: `t1277' might be used uninitialized in this function lattice-stalin.c:6750: warning: `t1278' might be used uninitialized in this function lattice-stalin.c:6751: warning: `t1279' might be used uninitialized in this function lattice-stalin.c:6752: warning: `t1280' might be used uninitialized in this function lattice-stalin.c:6753: warning: `t1281' might be used uninitialized in this function lattice-stalin.c:6754: warning: `t1282' might be used uninitialized in this function lattice-stalin.c:6755: warning: `t1283' might be used uninitialized in this function lattice-stalin.c:6756: warning: `t1284' might be used uninitialized in this function lattice-stalin.c:6757: warning: `t1285' might be used uninitialized in this function lattice-stalin.c:6758: warning: `t1286' might be used uninitialized in this function lattice-stalin.c:6759: warning: `t1287' might be used uninitialized in this function lattice-stalin.c:6760: warning: `t1288' might be used uninitialized in this function lattice-stalin.c:6761: warning: `t1289' might be used uninitialized in this function lattice-stalin.c:6762: warning: `t1290' might be used uninitialized in this function lattice-stalin.c:6763: warning: `t1291' might be used uninitialized in this function lattice-stalin.c:6764: warning: `t1292' might be used uninitialized in this function lattice-stalin.c:6765: warning: `t1293' might be used uninitialized in this function lattice-stalin.c:6766: warning: `t1294' might be used uninitialized in this function lattice-stalin.c:6767: warning: `t1295' might be used uninitialized in this function lattice-stalin.c:6768: warning: `t1296' might be used uninitialized in this function lattice-stalin.c:6769: warning: `t1297' might be used uninitialized in this function lattice-stalin.c:6770: warning: `t1298' might be used uninitialized in this function lattice-stalin.c:6771: warning: `t1299' might be used uninitialized in this function lattice-stalin.c:6772: warning: `t1300' might be used uninitialized in this function lattice-stalin.c:6773: warning: `t1301' might be used uninitialized in this function lattice-stalin.c:6774: warning: `t1302' might be used uninitialized in this function lattice-stalin.c:6775: warning: `t1303' might be used uninitialized in this function lattice-stalin.c:6776: warning: `t1304' might be used uninitialized in this function lattice-stalin.c:6777: warning: `t1305' might be used uninitialized in this function lattice-stalin.c:6778: warning: `t1306' might be used uninitialized in this function lattice-stalin.c:6779: warning: `t1307' might be used uninitialized in this function lattice-stalin.c:6780: warning: `t1308' might be used uninitialized in this function lattice-stalin.c:6781: warning: `t1309' might be used uninitialized in this function lattice-stalin.c:6782: warning: `t1310' might be used uninitialized in this function lattice-stalin.c:6783: warning: `t1311' might be used uninitialized in this function lattice-stalin.c:6784: warning: `t1312' might be used uninitialized in this function lattice-stalin.c:6785: warning: `t1313' might be used uninitialized in this function lattice-stalin.c:6786: warning: `t1314' might be used uninitialized in this function lattice-stalin.c:6787: warning: `t1315' might be used uninitialized in this function lattice-stalin.c:6788: warning: `t1316' might be used uninitialized in this function lattice-stalin.c:6789: warning: `t1317' might be used uninitialized in this function lattice-stalin.c:6790: warning: `t1318' might be used uninitialized in this function lattice-stalin.c:6791: warning: `t1319' might be used uninitialized in this function lattice-stalin.c:6792: warning: `t1320' might be used uninitialized in this function lattice-stalin.c:6793: warning: `t1321' might be used uninitialized in this function lattice-stalin.c:6794: warning: `t1322' might be used uninitialized in this function lattice-stalin.c:6795: warning: `t1323' might be used uninitialized in this function lattice-stalin.c:6796: warning: `t1324' might be used uninitialized in this function lattice-stalin.c:6797: warning: `t1325' might be used uninitialized in this function lattice-stalin.c:6798: warning: `t1326' might be used uninitialized in this function lattice-stalin.c:6799: warning: `t1327' might be used uninitialized in this function lattice-stalin.c:6800: warning: `t1328' might be used uninitialized in this function lattice-stalin.c:6801: warning: `t1329' might be used uninitialized in this function lattice-stalin.c:6802: warning: `t1330' might be used uninitialized in this function lattice-stalin.c:6803: warning: `t1331' might be used uninitialized in this function lattice-stalin.c:6804: warning: `t1332' might be used uninitialized in this function lattice-stalin.c:6805: warning: `t1333' might be used uninitialized in this function lattice-stalin.c:6806: warning: `t1334' might be used uninitialized in this function lattice-stalin.c:6807: warning: `t1335' might be used uninitialized in this function lattice-stalin.c:6808: warning: `t1336' might be used uninitialized in this function lattice-stalin.c:6809: warning: `t1337' might be used uninitialized in this function lattice-stalin.c:6810: warning: `t1338' might be used uninitialized in this function lattice-stalin.c:6811: warning: `t1339' might be used uninitialized in this function lattice-stalin.c:6812: warning: `t1340' might be used uninitialized in this function lattice-stalin.c:6813: warning: `t1341' might be used uninitialized in this function lattice-stalin.c:6814: warning: `t1342' might be used uninitialized in this function lattice-stalin.c:6815: warning: `t1343' might be used uninitialized in this function lattice-stalin.c:6816: warning: `t1344' might be used uninitialized in this function lattice-stalin.c:6817: warning: `t1345' might be used uninitialized in this function lattice-stalin.c:6818: warning: `t1346' might be used uninitialized in this function lattice-stalin.c:6819: warning: `t1347' might be used uninitialized in this function lattice-stalin.c:6820: warning: `t1348' might be used uninitialized in this function lattice-stalin.c:6821: warning: `t1349' might be used uninitialized in this function lattice-stalin.c:6822: warning: `t1350' might be used uninitialized in this function lattice-stalin.c:6823: warning: `t1351' might be used uninitialized in this function lattice-stalin.c:6824: warning: `t1352' might be used uninitialized in this function lattice-stalin.c:6825: warning: `t1353' might be used uninitialized in this function lattice-stalin.c:6826: warning: `t1354' might be used uninitialized in this function lattice-stalin.c:6827: warning: `t1355' might be used uninitialized in this function lattice-stalin.c:6828: warning: `t1356' might be used uninitialized in this function lattice-stalin.c:6829: warning: `t1357' might be used uninitialized in this function lattice-stalin.c:6830: warning: `t1358' might be used uninitialized in this function lattice-stalin.c:6831: warning: `t1359' might be used uninitialized in this function lattice-stalin.c:6832: warning: `t1360' might be used uninitialized in this function lattice-stalin.c:6833: warning: `t1361' might be used uninitialized in this function lattice-stalin.c:6834: warning: `t1362' might be used uninitialized in this function lattice-stalin.c:6835: warning: `t1363' might be used uninitialized in this function lattice-stalin.c:6836: warning: `t1364' might be used uninitialized in this function lattice-stalin.c:6838: warning: `t1366' might be used uninitialized in this function lattice-stalin.c:6839: warning: `t1367' might be used uninitialized in this function lattice-stalin.c:6840: warning: `t1368' might be used uninitialized in this function lattice-stalin.c:6841: warning: `t1369' might be used uninitialized in this function lattice-stalin.c:6842: warning: `t1370' might be used uninitialized in this function lattice-stalin.c:6844: warning: `t1372' might be used uninitialized in this function lattice-stalin.c:6845: warning: `t1373' might be used uninitialized in this function lattice-stalin.c:6846: warning: `t1374' might be used uninitialized in this function lattice-stalin.c:6847: warning: `t1375' might be used uninitialized in this function lattice-stalin.c:6848: warning: `t1376' might be used uninitialized in this function lattice-stalin.c:6850: warning: `t1378' might be used uninitialized in this function lattice-stalin.c:6851: warning: `t1379' might be used uninitialized in this function lattice-stalin.c:6852: warning: `t1380' might be used uninitialized in this function lattice-stalin.c:6853: warning: `t1381' might be used uninitialized in this function lattice-stalin.c:6854: warning: `t1382' might be used uninitialized in this function lattice-stalin.c:6855: warning: `t1383' might be used uninitialized in this function lattice-stalin.c:6856: warning: `t1384' might be used uninitialized in this function lattice-stalin.c:6857: warning: `t1385' might be used uninitialized in this function lattice-stalin.c:6858: warning: `t1386' might be used uninitialized in this function lattice-stalin.c:6859: warning: `t1387' might be used uninitialized in this function lattice-stalin.c:6860: warning: `t1388' might be used uninitialized in this function lattice-stalin.c:6861: warning: `t1389' might be used uninitialized in this function lattice-stalin.c:6862: warning: `t1390' might be used uninitialized in this function lattice-stalin.c:6863: warning: `t1391' might be used uninitialized in this function lattice-stalin.c:6864: warning: `t1392' might be used uninitialized in this function lattice-stalin.c:6865: warning: `t1393' might be used uninitialized in this function lattice-stalin.c:6866: warning: `t1394' might be used uninitialized in this function lattice-stalin.c:6867: warning: `t1395' might be used uninitialized in this function lattice-stalin.c:6868: warning: `t1396' might be used uninitialized in this function lattice-stalin.c:6869: warning: `t1397' might be used uninitialized in this function lattice-stalin.c:6870: warning: `t1398' might be used uninitialized in this function lattice-stalin.c:6871: warning: `t1399' might be used uninitialized in this function lattice-stalin.c:6872: warning: `t1400' might be used uninitialized in this function lattice-stalin.c:6873: warning: `t1401' might be used uninitialized in this function lattice-stalin.c:6874: warning: `t1402' might be used uninitialized in this function lattice-stalin.c:6875: warning: `t1403' might be used uninitialized in this function lattice-stalin.c:6876: warning: `t1404' might be used uninitialized in this function lattice-stalin.c:6877: warning: `t1405' might be used uninitialized in this function lattice-stalin.c:6878: warning: `t1406' might be used uninitialized in this function lattice-stalin.c:6879: warning: `t1407' might be used uninitialized in this function lattice-stalin.c:6880: warning: `t1408' might be used uninitialized in this function lattice-stalin.c:6881: warning: `t1409' might be used uninitialized in this function lattice-stalin.c:6884: warning: `t1412' might be used uninitialized in this function lattice-stalin.c:6885: warning: `t1413' might be used uninitialized in this function lattice-stalin.c:6886: warning: `t1414' might be used uninitialized in this function lattice-stalin.c:6887: warning: `t1415' might be used uninitialized in this function lattice-stalin.c:6888: warning: `t1416' might be used uninitialized in this function lattice-stalin.c:6889: warning: `t1417' might be used uninitialized in this function lattice-stalin.c:6890: warning: `t1418' might be used uninitialized in this function lattice-stalin.c:6901: warning: `t1460' might be used uninitialized in this function lattice-stalin.c:6914: warning: `t1474' might be used uninitialized in this function lattice-stalin.c:6915: warning: `t1475' might be used uninitialized in this function lattice-stalin.c:6916: warning: `t1476' might be used uninitialized in this function lattice-stalin.c:6917: warning: `t1477' might be used uninitialized in this function lattice-stalin.c:6980: warning: `t1548' might be used uninitialized in this function lattice-stalin.c:6981: warning: `t1549' might be used uninitialized in this function lattice-stalin.c:6982: warning: `t1550' might be used uninitialized in this function 31.75user 0.29system 0:37.37elapsed 85%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33017major+223096minor)pagefaults 0swaps compile nucleic2 (STATIC-COUNTS 3212 3212 3212 3212 0 0 0 3212 2868 1427 137 462 27 64 1.31647561249719 7659 7659 751 539) nucleic2-stalin.c: In function `f1439': nucleic2-stalin.c:4407: warning: `a1454' might be used uninitialized in this function nucleic2-stalin.c:4408: warning: `a1455' might be used uninitialized in this function nucleic2-stalin.c:4418: warning: `a1611' might be used uninitialized in this function nucleic2-stalin.c:4422: warning: `a2239' might be used uninitialized in this function nucleic2-stalin.c:4476: warning: `t64' might be used uninitialized in this function nucleic2-stalin.c:4892: warning: `t648' might be used uninitialized in this function nucleic2-stalin.c: In function `f751': nucleic2-stalin.c:7682: warning: unused variable `e797' nucleic2-stalin.c:7678: warning: unused variable `e769' nucleic2-stalin.c:7672: warning: unused variable `e757' nucleic2-stalin.c:7671: warning: unused variable `e756' nucleic2-stalin.c:7615: warning: unused variable `a1592' nucleic2-stalin.c:7611: warning: unused variable `a1571' nucleic2-stalin.c:7605: warning: unused variable `a1562' nucleic2-stalin.c:7604: warning: unused variable `a1561' nucleic2-stalin.c:7601: warning: `a1558' might be used uninitialized in this function nucleic2-stalin.c:7602: warning: `a1559' might be used uninitialized in this function nucleic2-stalin.c:7606: warning: `a1563' might be used uninitialized in this function nucleic2-stalin.c:7607: warning: `a1564' might be used uninitialized in this function nucleic2-stalin.c:7608: warning: `a1568' might be used uninitialized in this function nucleic2-stalin.c:7609: warning: `a1569' might be used uninitialized in this function nucleic2-stalin.c:7612: warning: `a1589' might be used uninitialized in this function nucleic2-stalin.c:7613: warning: `a1590' might be used uninitialized in this function nucleic2-stalin.c: In function `f657': nucleic2-stalin.c:7842: warning: unused variable `e660' nucleic2-stalin.c:7841: warning: unused variable `e659' nucleic2-stalin.c:7840: warning: unused variable `e658' nucleic2-stalin.c:7830: warning: unused variable `a1475' nucleic2-stalin.c:7829: warning: unused variable `a1474' nucleic2-stalin.c:7828: warning: unused variable `a1473' nucleic2-stalin.c: In function `f341': nucleic2-stalin.c:7868: warning: `a1464' might be used uninitialized in this function nucleic2-stalin.c:7869: warning: `a1465' might be used uninitialized in this function nucleic2-stalin.c: In function `f259': nucleic2-stalin.c:8095: warning: `a2925' might be used uninitialized in this function nucleic2-stalin.c:8107: warning: `a2951' might be used uninitialized in this function nucleic2-stalin.c: In function `f249': nucleic2-stalin.c:9576: warning: `a1367' might be used uninitialized in this function nucleic2-stalin.c:9577: warning: `a1368' might be used uninitialized in this function nucleic2-stalin.c:9592: warning: `a1432' might be used uninitialized in this function nucleic2-stalin.c: In function `f0': nucleic2-stalin.c:16968: warning: `a1' might be used uninitialized in this function nucleic2-stalin.c:16969: warning: `a2' might be used uninitialized in this function nucleic2-stalin.c:16970: warning: `a3' might be used uninitialized in this function nucleic2-stalin.c:16971: warning: `a4' might be used uninitialized in this function nucleic2-stalin.c:16972: warning: `a5' might be used uninitialized in this function nucleic2-stalin.c:16973: warning: `a6' might be used uninitialized in this function nucleic2-stalin.c:16974: warning: `a7' might be used uninitialized in this function nucleic2-stalin.c:16975: warning: `a8' might be used uninitialized in this function nucleic2-stalin.c:16976: warning: `a9' might be used uninitialized in this function nucleic2-stalin.c:16977: warning: `a10' might be used uninitialized in this function nucleic2-stalin.c:16978: warning: `a11' might be used uninitialized in this function nucleic2-stalin.c:16979: warning: `a12' might be used uninitialized in this function nucleic2-stalin.c:16980: warning: `a13' might be used uninitialized in this function nucleic2-stalin.c:16981: warning: `a14' might be used uninitialized in this function nucleic2-stalin.c:16982: warning: `a15' might be used uninitialized in this function nucleic2-stalin.c:16983: warning: `a16' might be used uninitialized in this function nucleic2-stalin.c:16984: warning: `a17' might be used uninitialized in this function nucleic2-stalin.c:16985: warning: `a18' might be used uninitialized in this function nucleic2-stalin.c:16986: warning: `a19' might be used uninitialized in this function nucleic2-stalin.c:16987: warning: `a20' might be used uninitialized in this function nucleic2-stalin.c:16988: warning: `a21' might be used uninitialized in this function nucleic2-stalin.c:16989: warning: `a22' might be used uninitialized in this function nucleic2-stalin.c:16990: warning: `a23' might be used uninitialized in this function nucleic2-stalin.c:16991: warning: `a24' might be used uninitialized in this function nucleic2-stalin.c:16992: warning: `a25' might be used uninitialized in this function nucleic2-stalin.c:16993: warning: `a26' might be used uninitialized in this function nucleic2-stalin.c:16994: warning: `a27' might be used uninitialized in this function nucleic2-stalin.c:16995: warning: `a28' might be used uninitialized in this function nucleic2-stalin.c:16996: warning: `a29' might be used uninitialized in this function nucleic2-stalin.c:16997: warning: `a30' might be used uninitialized in this function nucleic2-stalin.c:16998: warning: `a31' might be used uninitialized in this function nucleic2-stalin.c:16999: warning: `a32' might be used uninitialized in this function nucleic2-stalin.c:17000: warning: `a33' might be used uninitialized in this function nucleic2-stalin.c:17001: warning: `a34' might be used uninitialized in this function nucleic2-stalin.c:17002: warning: `a35' might be used uninitialized in this function nucleic2-stalin.c:17003: warning: `a36' might be used uninitialized in this function nucleic2-stalin.c:17004: warning: `a37' might be used uninitialized in this function nucleic2-stalin.c:17005: warning: `a38' might be used uninitialized in this function nucleic2-stalin.c:17006: warning: `a39' might be used uninitialized in this function nucleic2-stalin.c:17007: warning: `a40' might be used uninitialized in this function nucleic2-stalin.c:17008: warning: `a41' might be used uninitialized in this function nucleic2-stalin.c:17009: warning: `a42' might be used uninitialized in this function nucleic2-stalin.c:17010: warning: `a43' might be used uninitialized in this function nucleic2-stalin.c:17011: warning: `a44' might be used uninitialized in this function nucleic2-stalin.c:17012: warning: `a45' might be used uninitialized in this function nucleic2-stalin.c:17013: warning: `a46' might be used uninitialized in this function nucleic2-stalin.c:17014: warning: `a47' might be used uninitialized in this function nucleic2-stalin.c:17015: warning: `a48' might be used uninitialized in this function nucleic2-stalin.c:17016: warning: `a49' might be used uninitialized in this function nucleic2-stalin.c:17017: warning: `a50' might be used uninitialized in this function nucleic2-stalin.c:17018: warning: `a51' might be used uninitialized in this function nucleic2-stalin.c:17019: warning: `a52' might be used uninitialized in this function nucleic2-stalin.c:17020: warning: `a53' might be used uninitialized in this function nucleic2-stalin.c:17021: warning: `a54' might be used uninitialized in this function nucleic2-stalin.c:17022: warning: `a55' might be used uninitialized in this function nucleic2-stalin.c:17023: warning: `a56' might be used uninitialized in this function nucleic2-stalin.c:17024: warning: `a57' might be used uninitialized in this function nucleic2-stalin.c:17025: warning: `a58' might be used uninitialized in this function nucleic2-stalin.c:17026: warning: `a59' might be used uninitialized in this function nucleic2-stalin.c:17027: warning: `a60' might be used uninitialized in this function nucleic2-stalin.c:17028: warning: `a61' might be used uninitialized in this function nucleic2-stalin.c:17029: warning: `a62' might be used uninitialized in this function nucleic2-stalin.c:17030: warning: `a63' might be used uninitialized in this function nucleic2-stalin.c:17031: warning: `a64' might be used uninitialized in this function nucleic2-stalin.c:17032: warning: `a65' might be used uninitialized in this function nucleic2-stalin.c:17033: warning: `a66' might be used uninitialized in this function nucleic2-stalin.c:17034: warning: `a67' might be used uninitialized in this function nucleic2-stalin.c:17035: warning: `a68' might be used uninitialized in this function nucleic2-stalin.c:17036: warning: `a69' might be used uninitialized in this function nucleic2-stalin.c:17037: warning: `a70' might be used uninitialized in this function nucleic2-stalin.c:17038: warning: `a71' might be used uninitialized in this function nucleic2-stalin.c:17039: warning: `a72' might be used uninitialized in this function nucleic2-stalin.c:17040: warning: `a73' might be used uninitialized in this function nucleic2-stalin.c:17041: warning: `a74' might be used uninitialized in this function nucleic2-stalin.c:17042: warning: `a75' might be used uninitialized in this function nucleic2-stalin.c:17043: warning: `a76' might be used uninitialized in this function nucleic2-stalin.c:17044: warning: `a77' might be used uninitialized in this function nucleic2-stalin.c:17045: warning: `a78' might be used uninitialized in this function nucleic2-stalin.c:17046: warning: `a79' might be used uninitialized in this function nucleic2-stalin.c:17047: warning: `a80' might be used uninitialized in this function nucleic2-stalin.c:17048: warning: `a81' might be used uninitialized in this function nucleic2-stalin.c:17049: warning: `a82' might be used uninitialized in this function nucleic2-stalin.c:17050: warning: `a83' might be used uninitialized in this function nucleic2-stalin.c:17051: warning: `a84' might be used uninitialized in this function nucleic2-stalin.c:17052: warning: `a85' might be used uninitialized in this function nucleic2-stalin.c:17053: warning: `a86' might be used uninitialized in this function nucleic2-stalin.c:17054: warning: `a87' might be used uninitialized in this function nucleic2-stalin.c:17055: warning: `a88' might be used uninitialized in this function nucleic2-stalin.c:17056: warning: `a89' might be used uninitialized in this function nucleic2-stalin.c:17057: warning: `a90' might be used uninitialized in this function nucleic2-stalin.c:17058: warning: `a91' might be used uninitialized in this function nucleic2-stalin.c:17059: warning: `a92' might be used uninitialized in this function nucleic2-stalin.c:17060: warning: `a93' might be used uninitialized in this function nucleic2-stalin.c:17061: warning: `a94' might be used uninitialized in this function nucleic2-stalin.c:17062: warning: `a95' might be used uninitialized in this function nucleic2-stalin.c:17063: warning: `a96' might be used uninitialized in this function nucleic2-stalin.c:17064: warning: `a97' might be used uninitialized in this function nucleic2-stalin.c:17065: warning: `a98' might be used uninitialized in this function nucleic2-stalin.c:17066: warning: `a99' might be used uninitialized in this function nucleic2-stalin.c:17067: warning: `a100' might be used uninitialized in this function nucleic2-stalin.c:17068: warning: `a101' might be used uninitialized in this function nucleic2-stalin.c:17069: warning: `a102' might be used uninitialized in this function nucleic2-stalin.c:17070: warning: `a103' might be used uninitialized in this function nucleic2-stalin.c:17071: warning: `a104' might be used uninitialized in this function nucleic2-stalin.c:17072: warning: `a105' might be used uninitialized in this function nucleic2-stalin.c:17073: warning: `a106' might be used uninitialized in this function nucleic2-stalin.c:17074: warning: `a107' might be used uninitialized in this function nucleic2-stalin.c:17075: warning: `a108' might be used uninitialized in this function nucleic2-stalin.c:17076: warning: `a109' might be used uninitialized in this function nucleic2-stalin.c:17077: warning: `a110' might be used uninitialized in this function nucleic2-stalin.c:17078: warning: `a111' might be used uninitialized in this function nucleic2-stalin.c:17079: warning: `a112' might be used uninitialized in this function nucleic2-stalin.c:17080: warning: `a113' might be used uninitialized in this function nucleic2-stalin.c:17081: warning: `a114' might be used uninitialized in this function nucleic2-stalin.c:17082: warning: `a115' might be used uninitialized in this function nucleic2-stalin.c:17083: warning: `a116' might be used uninitialized in this function nucleic2-stalin.c:17084: warning: `a117' might be used uninitialized in this function nucleic2-stalin.c:17085: warning: `a118' might be used uninitialized in this function nucleic2-stalin.c:17086: warning: `a119' might be used uninitialized in this function nucleic2-stalin.c:17087: warning: `a120' might be used uninitialized in this function nucleic2-stalin.c:17088: warning: `a121' might be used uninitialized in this function nucleic2-stalin.c:17089: warning: `a122' might be used uninitialized in this function nucleic2-stalin.c:17090: warning: `a123' might be used uninitialized in this function nucleic2-stalin.c:17091: warning: `a124' might be used uninitialized in this function nucleic2-stalin.c:17092: warning: `a125' might be used uninitialized in this function nucleic2-stalin.c:17093: warning: `a126' might be used uninitialized in this function nucleic2-stalin.c:17094: warning: `a127' might be used uninitialized in this function nucleic2-stalin.c:17095: warning: `a128' might be used uninitialized in this function nucleic2-stalin.c:17096: warning: `a129' might be used uninitialized in this function nucleic2-stalin.c:17097: warning: `a130' might be used uninitialized in this function nucleic2-stalin.c:17098: warning: `a131' might be used uninitialized in this function nucleic2-stalin.c:17099: warning: `a132' might be used uninitialized in this function nucleic2-stalin.c:17100: warning: `a133' might be used uninitialized in this function nucleic2-stalin.c:17101: warning: `a134' might be used uninitialized in this function nucleic2-stalin.c:17102: warning: `a135' might be used uninitialized in this function nucleic2-stalin.c:17103: warning: `a136' might be used uninitialized in this function nucleic2-stalin.c:17104: warning: `a137' might be used uninitialized in this function nucleic2-stalin.c:17105: warning: `a138' might be used uninitialized in this function nucleic2-stalin.c:17106: warning: `a139' might be used uninitialized in this function nucleic2-stalin.c:17107: warning: `a140' might be used uninitialized in this function nucleic2-stalin.c:17108: warning: `a141' might be used uninitialized in this function nucleic2-stalin.c:17109: warning: `a142' might be used uninitialized in this function nucleic2-stalin.c:17110: warning: `a143' might be used uninitialized in this function nucleic2-stalin.c:17111: warning: `a144' might be used uninitialized in this function nucleic2-stalin.c:17112: warning: `a145' might be used uninitialized in this function nucleic2-stalin.c:17113: warning: `a146' might be used uninitialized in this function nucleic2-stalin.c:17114: warning: `a147' might be used uninitialized in this function nucleic2-stalin.c:17115: warning: `a148' might be used uninitialized in this function nucleic2-stalin.c:17116: warning: `a149' might be used uninitialized in this function nucleic2-stalin.c:17117: warning: `a150' might be used uninitialized in this function nucleic2-stalin.c:17118: warning: `a151' might be used uninitialized in this function nucleic2-stalin.c:17119: warning: `a152' might be used uninitialized in this function nucleic2-stalin.c:17120: warning: `a153' might be used uninitialized in this function nucleic2-stalin.c:17121: warning: `a154' might be used uninitialized in this function nucleic2-stalin.c:17122: warning: `a155' might be used uninitialized in this function nucleic2-stalin.c:17123: warning: `a156' might be used uninitialized in this function nucleic2-stalin.c:17124: warning: `a157' might be used uninitialized in this function nucleic2-stalin.c:17125: warning: `a158' might be used uninitialized in this function nucleic2-stalin.c:17126: warning: `a159' might be used uninitialized in this function nucleic2-stalin.c:17127: warning: `a160' might be used uninitialized in this function nucleic2-stalin.c:17128: warning: `a161' might be used uninitialized in this function nucleic2-stalin.c:17129: warning: `a162' might be used uninitialized in this function nucleic2-stalin.c:17130: warning: `a163' might be used uninitialized in this function nucleic2-stalin.c:17131: warning: `a164' might be used uninitialized in this function nucleic2-stalin.c:17132: warning: `a165' might be used uninitialized in this function nucleic2-stalin.c:17133: warning: `a166' might be used uninitialized in this function nucleic2-stalin.c:17134: warning: `a167' might be used uninitialized in this function nucleic2-stalin.c:17135: warning: `a168' might be used uninitialized in this function nucleic2-stalin.c:17136: warning: `a169' might be used uninitialized in this function nucleic2-stalin.c:17137: warning: `a170' might be used uninitialized in this function nucleic2-stalin.c:17138: warning: `a171' might be used uninitialized in this function nucleic2-stalin.c:17139: warning: `a172' might be used uninitialized in this function nucleic2-stalin.c:17140: warning: `a173' might be used uninitialized in this function nucleic2-stalin.c:17141: warning: `a174' might be used uninitialized in this function nucleic2-stalin.c:17142: warning: `a175' might be used uninitialized in this function nucleic2-stalin.c:17143: warning: `a176' might be used uninitialized in this function nucleic2-stalin.c:17144: warning: `a177' might be used uninitialized in this function nucleic2-stalin.c:17145: warning: `a178' might be used uninitialized in this function nucleic2-stalin.c:17146: warning: `a179' might be used uninitialized in this function nucleic2-stalin.c:17147: warning: `a180' might be used uninitialized in this function nucleic2-stalin.c:17148: warning: `a181' might be used uninitialized in this function nucleic2-stalin.c:17149: warning: `a182' might be used uninitialized in this function nucleic2-stalin.c:17150: warning: `a183' might be used uninitialized in this function nucleic2-stalin.c:17151: warning: `a184' might be used uninitialized in this function nucleic2-stalin.c:17152: warning: `a185' might be used uninitialized in this function nucleic2-stalin.c:17153: warning: `a186' might be used uninitialized in this function nucleic2-stalin.c:17154: warning: `a187' might be used uninitialized in this function nucleic2-stalin.c:17155: warning: `a188' might be used uninitialized in this function nucleic2-stalin.c:17156: warning: `a189' might be used uninitialized in this function nucleic2-stalin.c:17157: warning: `a190' might be used uninitialized in this function nucleic2-stalin.c:17158: warning: `a191' might be used uninitialized in this function nucleic2-stalin.c:17159: warning: `a192' might be used uninitialized in this function nucleic2-stalin.c:17160: warning: `a193' might be used uninitialized in this function nucleic2-stalin.c:17161: warning: `a194' might be used uninitialized in this function nucleic2-stalin.c:17162: warning: `a195' might be used uninitialized in this function nucleic2-stalin.c:17163: warning: `a196' might be used uninitialized in this function nucleic2-stalin.c:17164: warning: `a197' might be used uninitialized in this function nucleic2-stalin.c:17165: warning: `a198' might be used uninitialized in this function nucleic2-stalin.c:17166: warning: `a199' might be used uninitialized in this function nucleic2-stalin.c:17167: warning: `a200' might be used uninitialized in this function nucleic2-stalin.c:17168: warning: `a201' might be used uninitialized in this function nucleic2-stalin.c:17169: warning: `a202' might be used uninitialized in this function nucleic2-stalin.c:17170: warning: `a203' might be used uninitialized in this function nucleic2-stalin.c:17171: warning: `a204' might be used uninitialized in this function nucleic2-stalin.c:17172: warning: `a205' might be used uninitialized in this function nucleic2-stalin.c:17173: warning: `a206' might be used uninitialized in this function nucleic2-stalin.c:17174: warning: `a207' might be used uninitialized in this function nucleic2-stalin.c:17175: warning: `a208' might be used uninitialized in this function nucleic2-stalin.c:17176: warning: `a209' might be used uninitialized in this function nucleic2-stalin.c:17177: warning: `a210' might be used uninitialized in this function nucleic2-stalin.c:17178: warning: `a211' might be used uninitialized in this function nucleic2-stalin.c:17179: warning: `a212' might be used uninitialized in this function nucleic2-stalin.c:17180: warning: `a213' might be used uninitialized in this function nucleic2-stalin.c:17181: warning: `a214' might be used uninitialized in this function nucleic2-stalin.c:17182: warning: `a215' might be used uninitialized in this function nucleic2-stalin.c:17183: warning: `a216' might be used uninitialized in this function nucleic2-stalin.c:17184: warning: `a217' might be used uninitialized in this function nucleic2-stalin.c:17185: warning: `a218' might be used uninitialized in this function nucleic2-stalin.c:17186: warning: `a219' might be used uninitialized in this function nucleic2-stalin.c:17187: warning: `a220' might be used uninitialized in this function nucleic2-stalin.c:17188: warning: `a221' might be used uninitialized in this function nucleic2-stalin.c:17189: warning: `a222' might be used uninitialized in this function nucleic2-stalin.c:17190: warning: `a223' might be used uninitialized in this function nucleic2-stalin.c:17191: warning: `a224' might be used uninitialized in this function nucleic2-stalin.c:17192: warning: `a225' might be used uninitialized in this function nucleic2-stalin.c:17193: warning: `a226' might be used uninitialized in this function nucleic2-stalin.c:17194: warning: `a227' might be used uninitialized in this function nucleic2-stalin.c:17195: warning: `a228' might be used uninitialized in this function nucleic2-stalin.c:17196: warning: `a229' might be used uninitialized in this function nucleic2-stalin.c:17197: warning: `a230' might be used uninitialized in this function nucleic2-stalin.c:17198: warning: `a231' might be used uninitialized in this function nucleic2-stalin.c:17199: warning: `a232' might be used uninitialized in this function nucleic2-stalin.c:17200: warning: `a233' might be used uninitialized in this function nucleic2-stalin.c:17201: warning: `a234' might be used uninitialized in this function nucleic2-stalin.c:17202: warning: `a235' might be used uninitialized in this function nucleic2-stalin.c:17203: warning: `a236' might be used uninitialized in this function nucleic2-stalin.c:17204: warning: `a237' might be used uninitialized in this function nucleic2-stalin.c:17205: warning: `a238' might be used uninitialized in this function nucleic2-stalin.c:17206: warning: `a239' might be used uninitialized in this function nucleic2-stalin.c:17207: warning: `a240' might be used uninitialized in this function nucleic2-stalin.c:17208: warning: `a241' might be used uninitialized in this function nucleic2-stalin.c:17209: warning: `a242' might be used uninitialized in this function nucleic2-stalin.c:17210: warning: `a243' might be used uninitialized in this function nucleic2-stalin.c:17211: warning: `a244' might be used uninitialized in this function nucleic2-stalin.c:17212: warning: `a245' might be used uninitialized in this function nucleic2-stalin.c:17213: warning: `a246' might be used uninitialized in this function nucleic2-stalin.c:17214: warning: `a247' might be used uninitialized in this function nucleic2-stalin.c:17215: warning: `a248' might be used uninitialized in this function nucleic2-stalin.c:17216: warning: `a249' might be used uninitialized in this function nucleic2-stalin.c:17217: warning: `a250' might be used uninitialized in this function nucleic2-stalin.c:17218: warning: `a251' might be used uninitialized in this function nucleic2-stalin.c:17219: warning: `a252' might be used uninitialized in this function nucleic2-stalin.c:17220: warning: `a253' might be used uninitialized in this function nucleic2-stalin.c:17221: warning: `a254' might be used uninitialized in this function nucleic2-stalin.c:17222: warning: `a255' might be used uninitialized in this function nucleic2-stalin.c:17223: warning: `a256' might be used uninitialized in this function nucleic2-stalin.c:17224: warning: `a257' might be used uninitialized in this function nucleic2-stalin.c:17225: warning: `a258' might be used uninitialized in this function nucleic2-stalin.c:17226: warning: `a259' might be used uninitialized in this function nucleic2-stalin.c:17227: warning: `a260' might be used uninitialized in this function nucleic2-stalin.c:17228: warning: `a261' might be used uninitialized in this function nucleic2-stalin.c:17229: warning: `a262' might be used uninitialized in this function nucleic2-stalin.c:17230: warning: `a263' might be used uninitialized in this function nucleic2-stalin.c:17231: warning: `a264' might be used uninitialized in this function nucleic2-stalin.c:17232: warning: `a265' might be used uninitialized in this function nucleic2-stalin.c:17233: warning: `a266' might be used uninitialized in this function nucleic2-stalin.c:17234: warning: `a267' might be used uninitialized in this function nucleic2-stalin.c:17235: warning: `a268' might be used uninitialized in this function nucleic2-stalin.c:17236: warning: `a269' might be used uninitialized in this function nucleic2-stalin.c:17237: warning: `a270' might be used uninitialized in this function nucleic2-stalin.c:17238: warning: `a271' might be used uninitialized in this function nucleic2-stalin.c:17239: warning: `a272' might be used uninitialized in this function nucleic2-stalin.c:17240: warning: `a273' might be used uninitialized in this function nucleic2-stalin.c:17241: warning: `a274' might be used uninitialized in this function nucleic2-stalin.c:17242: warning: `a275' might be used uninitialized in this function nucleic2-stalin.c:17243: warning: `a276' might be used uninitialized in this function nucleic2-stalin.c:17244: warning: `a277' might be used uninitialized in this function nucleic2-stalin.c:17245: warning: `a278' might be used uninitialized in this function nucleic2-stalin.c:17246: warning: `a279' might be used uninitialized in this function nucleic2-stalin.c:17247: warning: `a280' might be used uninitialized in this function nucleic2-stalin.c:17248: warning: `a281' might be used uninitialized in this function nucleic2-stalin.c:17249: warning: `a282' might be used uninitialized in this function nucleic2-stalin.c:17250: warning: `a283' might be used uninitialized in this function nucleic2-stalin.c:17251: warning: `a284' might be used uninitialized in this function nucleic2-stalin.c:17252: warning: `a285' might be used uninitialized in this function nucleic2-stalin.c:17253: warning: `a286' might be used uninitialized in this function nucleic2-stalin.c:17254: warning: `a287' might be used uninitialized in this function nucleic2-stalin.c:17255: warning: `a288' might be used uninitialized in this function nucleic2-stalin.c:17256: warning: `a289' might be used uninitialized in this function nucleic2-stalin.c:17257: warning: `a290' might be used uninitialized in this function nucleic2-stalin.c:17258: warning: `a291' might be used uninitialized in this function nucleic2-stalin.c:17259: warning: `a292' might be used uninitialized in this function nucleic2-stalin.c:17260: warning: `a293' might be used uninitialized in this function nucleic2-stalin.c:17261: warning: `a294' might be used uninitialized in this function nucleic2-stalin.c:17262: warning: `a295' might be used uninitialized in this function nucleic2-stalin.c:17263: warning: `a296' might be used uninitialized in this function nucleic2-stalin.c:17264: warning: `a297' might be used uninitialized in this function nucleic2-stalin.c:17265: warning: `a298' might be used uninitialized in this function nucleic2-stalin.c:17266: warning: `a299' might be used uninitialized in this function nucleic2-stalin.c:17267: warning: `a300' might be used uninitialized in this function nucleic2-stalin.c:17268: warning: `a301' might be used uninitialized in this function nucleic2-stalin.c:17269: warning: `a302' might be used uninitialized in this function nucleic2-stalin.c:17270: warning: `a303' might be used uninitialized in this function nucleic2-stalin.c:17271: warning: `a304' might be used uninitialized in this function nucleic2-stalin.c:17272: warning: `a305' might be used uninitialized in this function nucleic2-stalin.c:17273: warning: `a306' might be used uninitialized in this function nucleic2-stalin.c:17274: warning: `a307' might be used uninitialized in this function nucleic2-stalin.c:17275: warning: `a308' might be used uninitialized in this function nucleic2-stalin.c:17276: warning: `a309' might be used uninitialized in this function nucleic2-stalin.c:17277: warning: `a310' might be used uninitialized in this function nucleic2-stalin.c:17278: warning: `a311' might be used uninitialized in this function nucleic2-stalin.c:17279: warning: `a312' might be used uninitialized in this function nucleic2-stalin.c:17280: warning: `a313' might be used uninitialized in this function nucleic2-stalin.c:17281: warning: `a314' might be used uninitialized in this function nucleic2-stalin.c:17282: warning: `a315' might be used uninitialized in this function nucleic2-stalin.c:17283: warning: `a316' might be used uninitialized in this function nucleic2-stalin.c:17284: warning: `a317' might be used uninitialized in this function nucleic2-stalin.c:17285: warning: `a318' might be used uninitialized in this function nucleic2-stalin.c:17286: warning: `a319' might be used uninitialized in this function nucleic2-stalin.c:17287: warning: `a320' might be used uninitialized in this function nucleic2-stalin.c:17288: warning: `a321' might be used uninitialized in this function nucleic2-stalin.c:17289: warning: `a322' might be used uninitialized in this function nucleic2-stalin.c:17290: warning: `a323' might be used uninitialized in this function nucleic2-stalin.c:17291: warning: `a324' might be used uninitialized in this function nucleic2-stalin.c:17292: warning: `a325' might be used uninitialized in this function nucleic2-stalin.c:17293: warning: `a326' might be used uninitialized in this function nucleic2-stalin.c:17294: warning: `a327' might be used uninitialized in this function nucleic2-stalin.c:17295: warning: `a328' might be used uninitialized in this function nucleic2-stalin.c:17296: warning: `a329' might be used uninitialized in this function nucleic2-stalin.c:17297: warning: `a330' might be used uninitialized in this function nucleic2-stalin.c:17298: warning: `a331' might be used uninitialized in this function nucleic2-stalin.c:17299: warning: `a332' might be used uninitialized in this function nucleic2-stalin.c:17300: warning: `a333' might be used uninitialized in this function nucleic2-stalin.c:17301: warning: `a334' might be used uninitialized in this function nucleic2-stalin.c:17302: warning: `a335' might be used uninitialized in this function nucleic2-stalin.c:17303: warning: `a336' might be used uninitialized in this function nucleic2-stalin.c:17304: warning: `a337' might be used uninitialized in this function nucleic2-stalin.c:17305: warning: `a338' might be used uninitialized in this function nucleic2-stalin.c:17306: warning: `a339' might be used uninitialized in this function nucleic2-stalin.c:17307: warning: `a340' might be used uninitialized in this function nucleic2-stalin.c:17308: warning: `a341' might be used uninitialized in this function nucleic2-stalin.c:17309: warning: `a342' might be used uninitialized in this function nucleic2-stalin.c:17310: warning: `a343' might be used uninitialized in this function nucleic2-stalin.c:17311: warning: `a344' might be used uninitialized in this function nucleic2-stalin.c:17312: warning: `a345' might be used uninitialized in this function nucleic2-stalin.c:17313: warning: `a346' might be used uninitialized in this function nucleic2-stalin.c:17314: warning: `a347' might be used uninitialized in this function nucleic2-stalin.c:17315: warning: `a348' might be used uninitialized in this function nucleic2-stalin.c:17316: warning: `a349' might be used uninitialized in this function nucleic2-stalin.c:17317: warning: `a350' might be used uninitialized in this function nucleic2-stalin.c:17318: warning: `a351' might be used uninitialized in this function nucleic2-stalin.c:17319: warning: `a352' might be used uninitialized in this function nucleic2-stalin.c:17320: warning: `a353' might be used uninitialized in this function nucleic2-stalin.c:17321: warning: `a354' might be used uninitialized in this function nucleic2-stalin.c:17322: warning: `a355' might be used uninitialized in this function nucleic2-stalin.c:17323: warning: `a356' might be used uninitialized in this function nucleic2-stalin.c:17324: warning: `a357' might be used uninitialized in this function nucleic2-stalin.c:17325: warning: `a358' might be used uninitialized in this function nucleic2-stalin.c:17326: warning: `a359' might be used uninitialized in this function nucleic2-stalin.c:17327: warning: `a360' might be used uninitialized in this function nucleic2-stalin.c:17328: warning: `a361' might be used uninitialized in this function nucleic2-stalin.c:17329: warning: `a362' might be used uninitialized in this function nucleic2-stalin.c:17330: warning: `a363' might be used uninitialized in this function nucleic2-stalin.c:17331: warning: `a364' might be used uninitialized in this function nucleic2-stalin.c:17332: warning: `a365' might be used uninitialized in this function nucleic2-stalin.c:17333: warning: `a366' might be used uninitialized in this function nucleic2-stalin.c:17334: warning: `a367' might be used uninitialized in this function nucleic2-stalin.c:17335: warning: `a368' might be used uninitialized in this function nucleic2-stalin.c:17336: warning: `a369' might be used uninitialized in this function nucleic2-stalin.c:17337: warning: `a370' might be used uninitialized in this function nucleic2-stalin.c:17338: warning: `a371' might be used uninitialized in this function nucleic2-stalin.c:17339: warning: `a372' might be used uninitialized in this function nucleic2-stalin.c:17340: warning: `a373' might be used uninitialized in this function nucleic2-stalin.c:17341: warning: `a374' might be used uninitialized in this function nucleic2-stalin.c:17342: warning: `a375' might be used uninitialized in this function nucleic2-stalin.c:17343: warning: `a376' might be used uninitialized in this function nucleic2-stalin.c:17344: warning: `a377' might be used uninitialized in this function nucleic2-stalin.c:17345: warning: `a378' might be used uninitialized in this function nucleic2-stalin.c:17346: warning: `a379' might be used uninitialized in this function nucleic2-stalin.c:17347: warning: `a380' might be used uninitialized in this function nucleic2-stalin.c:17348: warning: `a381' might be used uninitialized in this function nucleic2-stalin.c:17349: warning: `a382' might be used uninitialized in this function nucleic2-stalin.c:17350: warning: `a383' might be used uninitialized in this function nucleic2-stalin.c:17351: warning: `a384' might be used uninitialized in this function nucleic2-stalin.c:17352: warning: `a385' might be used uninitialized in this function nucleic2-stalin.c:17353: warning: `a386' might be used uninitialized in this function nucleic2-stalin.c:17354: warning: `a387' might be used uninitialized in this function nucleic2-stalin.c:17355: warning: `a388' might be used uninitialized in this function nucleic2-stalin.c:17356: warning: `a389' might be used uninitialized in this function nucleic2-stalin.c:17357: warning: `a390' might be used uninitialized in this function nucleic2-stalin.c:17358: warning: `a391' might be used uninitialized in this function nucleic2-stalin.c:17359: warning: `a392' might be used uninitialized in this function nucleic2-stalin.c:17360: warning: `a393' might be used uninitialized in this function nucleic2-stalin.c:17361: warning: `a394' might be used uninitialized in this function nucleic2-stalin.c:17362: warning: `a395' might be used uninitialized in this function nucleic2-stalin.c:17363: warning: `a396' might be used uninitialized in this function nucleic2-stalin.c:17364: warning: `a397' might be used uninitialized in this function nucleic2-stalin.c:17365: warning: `a398' might be used uninitialized in this function nucleic2-stalin.c:17366: warning: `a399' might be used uninitialized in this function nucleic2-stalin.c:17367: warning: `a400' might be used uninitialized in this function nucleic2-stalin.c:17368: warning: `a401' might be used uninitialized in this function nucleic2-stalin.c:17369: warning: `a402' might be used uninitialized in this function nucleic2-stalin.c:17370: warning: `a403' might be used uninitialized in this function nucleic2-stalin.c:17371: warning: `a404' might be used uninitialized in this function nucleic2-stalin.c:17372: warning: `a405' might be used uninitialized in this function nucleic2-stalin.c:17373: warning: `a406' might be used uninitialized in this function nucleic2-stalin.c:17374: warning: `a407' might be used uninitialized in this function nucleic2-stalin.c:17375: warning: `a408' might be used uninitialized in this function nucleic2-stalin.c:17376: warning: `a409' might be used uninitialized in this function nucleic2-stalin.c:17377: warning: `a410' might be used uninitialized in this function nucleic2-stalin.c:17378: warning: `a411' might be used uninitialized in this function nucleic2-stalin.c:17379: warning: `a412' might be used uninitialized in this function nucleic2-stalin.c:17380: warning: `a413' might be used uninitialized in this function nucleic2-stalin.c:17381: warning: `a414' might be used uninitialized in this function nucleic2-stalin.c:17382: warning: `a415' might be used uninitialized in this function nucleic2-stalin.c:17383: warning: `a416' might be used uninitialized in this function nucleic2-stalin.c:17384: warning: `a417' might be used uninitialized in this function nucleic2-stalin.c:17385: warning: `a418' might be used uninitialized in this function nucleic2-stalin.c:17386: warning: `a419' might be used uninitialized in this function nucleic2-stalin.c:17387: warning: `a420' might be used uninitialized in this function nucleic2-stalin.c:17388: warning: `a421' might be used uninitialized in this function nucleic2-stalin.c:17389: warning: `a422' might be used uninitialized in this function nucleic2-stalin.c:17390: warning: `a423' might be used uninitialized in this function nucleic2-stalin.c:17391: warning: `a424' might be used uninitialized in this function nucleic2-stalin.c:17392: warning: `a425' might be used uninitialized in this function nucleic2-stalin.c:17393: warning: `a426' might be used uninitialized in this function nucleic2-stalin.c:17394: warning: `a427' might be used uninitialized in this function nucleic2-stalin.c:17395: warning: `a428' might be used uninitialized in this function nucleic2-stalin.c:17396: warning: `a429' might be used uninitialized in this function nucleic2-stalin.c:17397: warning: `a430' might be used uninitialized in this function nucleic2-stalin.c:17398: warning: `a431' might be used uninitialized in this function nucleic2-stalin.c:17399: warning: `a432' might be used uninitialized in this function nucleic2-stalin.c:17400: warning: `a433' might be used uninitialized in this function nucleic2-stalin.c:17401: warning: `a434' might be used uninitialized in this function nucleic2-stalin.c:17402: warning: `a435' might be used uninitialized in this function nucleic2-stalin.c:17616: warning: `a649' might be used uninitialized in this function nucleic2-stalin.c:17617: warning: `a651' might be used uninitialized in this function nucleic2-stalin.c:17618: warning: `a652' might be used uninitialized in this function nucleic2-stalin.c:17619: warning: `a653' might be used uninitialized in this function nucleic2-stalin.c:17620: warning: `a654' might be used uninitialized in this function nucleic2-stalin.c:17621: warning: `a655' might be used uninitialized in this function nucleic2-stalin.c:17622: warning: `a656' might be used uninitialized in this function nucleic2-stalin.c:17623: warning: `a657' might be used uninitialized in this function nucleic2-stalin.c:17624: warning: `a658' might be used uninitialized in this function nucleic2-stalin.c:17625: warning: `a659' might be used uninitialized in this function nucleic2-stalin.c:17626: warning: `a660' might be used uninitialized in this function nucleic2-stalin.c:17627: warning: `a663' might be used uninitialized in this function nucleic2-stalin.c:17628: warning: `a664' might be used uninitialized in this function nucleic2-stalin.c:17629: warning: `a665' might be used uninitialized in this function nucleic2-stalin.c:17630: warning: `a666' might be used uninitialized in this function nucleic2-stalin.c:17631: warning: `a667' might be used uninitialized in this function nucleic2-stalin.c:17632: warning: `a668' might be used uninitialized in this function nucleic2-stalin.c:17633: warning: `a669' might be used uninitialized in this function nucleic2-stalin.c:17634: warning: `a670' might be used uninitialized in this function nucleic2-stalin.c:17635: warning: `a671' might be used uninitialized in this function nucleic2-stalin.c:17636: warning: `a672' might be used uninitialized in this function nucleic2-stalin.c:17637: warning: `a673' might be used uninitialized in this function nucleic2-stalin.c:17638: warning: `a674' might be used uninitialized in this function nucleic2-stalin.c:17639: warning: `a675' might be used uninitialized in this function nucleic2-stalin.c:17640: warning: `a676' might be used uninitialized in this function nucleic2-stalin.c:17641: warning: `a677' might be used uninitialized in this function nucleic2-stalin.c:17642: warning: `a678' might be used uninitialized in this function nucleic2-stalin.c:17643: warning: `a679' might be used uninitialized in this function nucleic2-stalin.c:17644: warning: `a680' might be used uninitialized in this function nucleic2-stalin.c:17645: warning: `a681' might be used uninitialized in this function nucleic2-stalin.c:17646: warning: `a683' might be used uninitialized in this function nucleic2-stalin.c:17647: warning: `a684' might be used uninitialized in this function nucleic2-stalin.c:17648: warning: `a686' might be used uninitialized in this function nucleic2-stalin.c:17649: warning: `a687' might be used uninitialized in this function nucleic2-stalin.c:17650: warning: `a688' might be used uninitialized in this function nucleic2-stalin.c:17651: warning: `a689' might be used uninitialized in this function nucleic2-stalin.c:17652: warning: `a690' might be used uninitialized in this function nucleic2-stalin.c:17653: warning: `a691' might be used uninitialized in this function nucleic2-stalin.c:17654: warning: `a692' might be used uninitialized in this function nucleic2-stalin.c:17655: warning: `a693' might be used uninitialized in this function nucleic2-stalin.c:17656: warning: `a694' might be used uninitialized in this function nucleic2-stalin.c:17657: warning: `a695' might be used uninitialized in this function nucleic2-stalin.c:17658: warning: `a696' might be used uninitialized in this function nucleic2-stalin.c:17659: warning: `a697' might be used uninitialized in this function nucleic2-stalin.c:17660: warning: `a698' might be used uninitialized in this function nucleic2-stalin.c:17661: warning: `a699' might be used uninitialized in this function nucleic2-stalin.c:17662: warning: `a700' might be used uninitialized in this function nucleic2-stalin.c:17663: warning: `a701' might be used uninitialized in this function nucleic2-stalin.c:17664: warning: `a702' might be used uninitialized in this function nucleic2-stalin.c:17665: warning: `a703' might be used uninitialized in this function nucleic2-stalin.c:17666: warning: `a704' might be used uninitialized in this function nucleic2-stalin.c:17667: warning: `a705' might be used uninitialized in this function nucleic2-stalin.c:17668: warning: `a706' might be used uninitialized in this function nucleic2-stalin.c:17669: warning: `a707' might be used uninitialized in this function nucleic2-stalin.c:17670: warning: `a708' might be used uninitialized in this function nucleic2-stalin.c:17671: warning: `a709' might be used uninitialized in this function nucleic2-stalin.c:17672: warning: `a710' might be used uninitialized in this function nucleic2-stalin.c:17673: warning: `a711' might be used uninitialized in this function nucleic2-stalin.c:17674: warning: `a712' might be used uninitialized in this function nucleic2-stalin.c:17675: warning: `a713' might be used uninitialized in this function nucleic2-stalin.c:17676: warning: `a714' might be used uninitialized in this function nucleic2-stalin.c:17677: warning: `a715' might be used uninitialized in this function nucleic2-stalin.c:17678: warning: `a716' might be used uninitialized in this function nucleic2-stalin.c:17679: warning: `a717' might be used uninitialized in this function nucleic2-stalin.c:17680: warning: `a718' might be used uninitialized in this function nucleic2-stalin.c:17681: warning: `a719' might be used uninitialized in this function nucleic2-stalin.c:17682: warning: `a720' might be used uninitialized in this function nucleic2-stalin.c:17683: warning: `a721' might be used uninitialized in this function nucleic2-stalin.c:17684: warning: `a722' might be used uninitialized in this function nucleic2-stalin.c:17685: warning: `a723' might be used uninitialized in this function nucleic2-stalin.c:17686: warning: `a724' might be used uninitialized in this function nucleic2-stalin.c:17687: warning: `a725' might be used uninitialized in this function nucleic2-stalin.c:17688: warning: `a726' might be used uninitialized in this function nucleic2-stalin.c:17689: warning: `a727' might be used uninitialized in this function nucleic2-stalin.c:17690: warning: `a728' might be used uninitialized in this function nucleic2-stalin.c:17691: warning: `a729' might be used uninitialized in this function nucleic2-stalin.c:17692: warning: `a730' might be used uninitialized in this function nucleic2-stalin.c:17693: warning: `a731' might be used uninitialized in this function nucleic2-stalin.c:17694: warning: `a732' might be used uninitialized in this function nucleic2-stalin.c:17695: warning: `a733' might be used uninitialized in this function nucleic2-stalin.c:17696: warning: `a734' might be used uninitialized in this function nucleic2-stalin.c:17697: warning: `a735' might be used uninitialized in this function nucleic2-stalin.c:17698: warning: `a736' might be used uninitialized in this function nucleic2-stalin.c:17699: warning: `a737' might be used uninitialized in this function nucleic2-stalin.c:17700: warning: `a738' might be used uninitialized in this function nucleic2-stalin.c:17701: warning: `a739' might be used uninitialized in this function nucleic2-stalin.c:17702: warning: `a740' might be used uninitialized in this function nucleic2-stalin.c:17703: warning: `a741' might be used uninitialized in this function nucleic2-stalin.c:17704: warning: `a742' might be used uninitialized in this function nucleic2-stalin.c:17705: warning: `a743' might be used uninitialized in this function nucleic2-stalin.c:17706: warning: `a744' might be used uninitialized in this function nucleic2-stalin.c:17707: warning: `a745' might be used uninitialized in this function nucleic2-stalin.c:17708: warning: `a746' might be used uninitialized in this function nucleic2-stalin.c:17709: warning: `a747' might be used uninitialized in this function nucleic2-stalin.c:17710: warning: `a748' might be used uninitialized in this function nucleic2-stalin.c:17711: warning: `a749' might be used uninitialized in this function nucleic2-stalin.c:17712: warning: `a750' might be used uninitialized in this function nucleic2-stalin.c:17713: warning: `a751' might be used uninitialized in this function nucleic2-stalin.c:17714: warning: `a752' might be used uninitialized in this function nucleic2-stalin.c:17715: warning: `a753' might be used uninitialized in this function nucleic2-stalin.c:17716: warning: `a754' might be used uninitialized in this function nucleic2-stalin.c:17717: warning: `a755' might be used uninitialized in this function nucleic2-stalin.c:17718: warning: `a756' might be used uninitialized in this function nucleic2-stalin.c:17719: warning: `a757' might be used uninitialized in this function nucleic2-stalin.c:17720: warning: `a758' might be used uninitialized in this function nucleic2-stalin.c:17721: warning: `a759' might be used uninitialized in this function nucleic2-stalin.c:17722: warning: `a760' might be used uninitialized in this function nucleic2-stalin.c:17723: warning: `a761' might be used uninitialized in this function nucleic2-stalin.c:17724: warning: `a762' might be used uninitialized in this function nucleic2-stalin.c:17725: warning: `a763' might be used uninitialized in this function nucleic2-stalin.c:17726: warning: `a764' might be used uninitialized in this function nucleic2-stalin.c:17727: warning: `a765' might be used uninitialized in this function nucleic2-stalin.c:17728: warning: `a766' might be used uninitialized in this function nucleic2-stalin.c:17729: warning: `a767' might be used uninitialized in this function nucleic2-stalin.c:17730: warning: `a768' might be used uninitialized in this function nucleic2-stalin.c:17731: warning: `a769' might be used uninitialized in this function nucleic2-stalin.c:17732: warning: `a770' might be used uninitialized in this function nucleic2-stalin.c:17733: warning: `a771' might be used uninitialized in this function nucleic2-stalin.c:17734: warning: `a772' might be used uninitialized in this function nucleic2-stalin.c:17735: warning: `a773' might be used uninitialized in this function nucleic2-stalin.c:17736: warning: `a774' might be used uninitialized in this function nucleic2-stalin.c:17737: warning: `a775' might be used uninitialized in this function nucleic2-stalin.c:17738: warning: `a776' might be used uninitialized in this function nucleic2-stalin.c:17739: warning: `a777' might be used uninitialized in this function nucleic2-stalin.c:17740: warning: `a778' might be used uninitialized in this function nucleic2-stalin.c:17741: warning: `a779' might be used uninitialized in this function nucleic2-stalin.c:17742: warning: `a780' might be used uninitialized in this function nucleic2-stalin.c:17743: warning: `a781' might be used uninitialized in this function nucleic2-stalin.c:17744: warning: `a782' might be used uninitialized in this function nucleic2-stalin.c:17745: warning: `a783' might be used uninitialized in this function nucleic2-stalin.c:17746: warning: `a784' might be used uninitialized in this function nucleic2-stalin.c:17747: warning: `a785' might be used uninitialized in this function nucleic2-stalin.c:17748: warning: `a786' might be used uninitialized in this function nucleic2-stalin.c:17749: warning: `a787' might be used uninitialized in this function nucleic2-stalin.c:17750: warning: `a788' might be used uninitialized in this function nucleic2-stalin.c:17751: warning: `a789' might be used uninitialized in this function nucleic2-stalin.c:17752: warning: `a790' might be used uninitialized in this function nucleic2-stalin.c:17753: warning: `a791' might be used uninitialized in this function nucleic2-stalin.c:17754: warning: `a792' might be used uninitialized in this function nucleic2-stalin.c:17755: warning: `a793' might be used uninitialized in this function nucleic2-stalin.c:17756: warning: `a794' might be used uninitialized in this function nucleic2-stalin.c:17757: warning: `a795' might be used uninitialized in this function nucleic2-stalin.c:17758: warning: `a796' might be used uninitialized in this function nucleic2-stalin.c:17759: warning: `a797' might be used uninitialized in this function nucleic2-stalin.c:17760: warning: `a798' might be used uninitialized in this function nucleic2-stalin.c:17761: warning: `a799' might be used uninitialized in this function nucleic2-stalin.c:17762: warning: `a800' might be used uninitialized in this function nucleic2-stalin.c:17763: warning: `a801' might be used uninitialized in this function nucleic2-stalin.c:17764: warning: `a802' might be used uninitialized in this function nucleic2-stalin.c:17765: warning: `a803' might be used uninitialized in this function nucleic2-stalin.c:17766: warning: `a804' might be used uninitialized in this function nucleic2-stalin.c:17767: warning: `a805' might be used uninitialized in this function nucleic2-stalin.c:17768: warning: `a806' might be used uninitialized in this function nucleic2-stalin.c:17769: warning: `a807' might be used uninitialized in this function nucleic2-stalin.c:17770: warning: `a808' might be used uninitialized in this function nucleic2-stalin.c:17771: warning: `a809' might be used uninitialized in this function nucleic2-stalin.c:17772: warning: `a810' might be used uninitialized in this function nucleic2-stalin.c:17773: warning: `a811' might be used uninitialized in this function nucleic2-stalin.c:17774: warning: `a812' might be used uninitialized in this function nucleic2-stalin.c:17775: warning: `a813' might be used uninitialized in this function nucleic2-stalin.c:17776: warning: `a814' might be used uninitialized in this function nucleic2-stalin.c:17777: warning: `a815' might be used uninitialized in this function nucleic2-stalin.c:17778: warning: `a816' might be used uninitialized in this function nucleic2-stalin.c:17779: warning: `a817' might be used uninitialized in this function nucleic2-stalin.c:17780: warning: `a818' might be used uninitialized in this function nucleic2-stalin.c:17781: warning: `a819' might be used uninitialized in this function nucleic2-stalin.c:17782: warning: `a820' might be used uninitialized in this function nucleic2-stalin.c:17783: warning: `a821' might be used uninitialized in this function nucleic2-stalin.c:17784: warning: `a822' might be used uninitialized in this function nucleic2-stalin.c:17785: warning: `a823' might be used uninitialized in this function nucleic2-stalin.c:17786: warning: `a824' might be used uninitialized in this function nucleic2-stalin.c:17787: warning: `a825' might be used uninitialized in this function nucleic2-stalin.c:17788: warning: `a826' might be used uninitialized in this function nucleic2-stalin.c:17789: warning: `a827' might be used uninitialized in this function nucleic2-stalin.c:17790: warning: `a828' might be used uninitialized in this function nucleic2-stalin.c:17791: warning: `a829' might be used uninitialized in this function nucleic2-stalin.c:17792: warning: `a830' might be used uninitialized in this function nucleic2-stalin.c:17793: warning: `a831' might be used uninitialized in this function nucleic2-stalin.c:17794: warning: `a832' might be used uninitialized in this function nucleic2-stalin.c:17795: warning: `a833' might be used uninitialized in this function nucleic2-stalin.c:17796: warning: `a834' might be used uninitialized in this function nucleic2-stalin.c:17797: warning: `a835' might be used uninitialized in this function nucleic2-stalin.c:17798: warning: `a836' might be used uninitialized in this function nucleic2-stalin.c:17799: warning: `a837' might be used uninitialized in this function nucleic2-stalin.c:17800: warning: `a838' might be used uninitialized in this function nucleic2-stalin.c:17801: warning: `a839' might be used uninitialized in this function nucleic2-stalin.c:17802: warning: `a840' might be used uninitialized in this function nucleic2-stalin.c:17803: warning: `a841' might be used uninitialized in this function nucleic2-stalin.c:17804: warning: `a842' might be used uninitialized in this function nucleic2-stalin.c:17805: warning: `a843' might be used uninitialized in this function nucleic2-stalin.c:17806: warning: `a844' might be used uninitialized in this function nucleic2-stalin.c:17807: warning: `a845' might be used uninitialized in this function nucleic2-stalin.c:17808: warning: `a846' might be used uninitialized in this function nucleic2-stalin.c:17809: warning: `a847' might be used uninitialized in this function nucleic2-stalin.c:17810: warning: `a848' might be used uninitialized in this function nucleic2-stalin.c:17811: warning: `a849' might be used uninitialized in this function nucleic2-stalin.c:17812: warning: `a850' might be used uninitialized in this function nucleic2-stalin.c:17813: warning: `a851' might be used uninitialized in this function nucleic2-stalin.c:17814: warning: `a852' might be used uninitialized in this function nucleic2-stalin.c:17815: warning: `a853' might be used uninitialized in this function nucleic2-stalin.c:17816: warning: `a854' might be used uninitialized in this function nucleic2-stalin.c:17817: warning: `a855' might be used uninitialized in this function nucleic2-stalin.c:17818: warning: `a856' might be used uninitialized in this function nucleic2-stalin.c:17819: warning: `a857' might be used uninitialized in this function nucleic2-stalin.c:17820: warning: `a858' might be used uninitialized in this function nucleic2-stalin.c:17821: warning: `a859' might be used uninitialized in this function nucleic2-stalin.c:17822: warning: `a860' might be used uninitialized in this function nucleic2-stalin.c:17823: warning: `a861' might be used uninitialized in this function nucleic2-stalin.c:17824: warning: `a862' might be used uninitialized in this function nucleic2-stalin.c:17825: warning: `a863' might be used uninitialized in this function nucleic2-stalin.c:17826: warning: `a864' might be used uninitialized in this function nucleic2-stalin.c:17827: warning: `a865' might be used uninitialized in this function nucleic2-stalin.c:17828: warning: `a866' might be used uninitialized in this function nucleic2-stalin.c:17829: warning: `a867' might be used uninitialized in this function nucleic2-stalin.c:17830: warning: `a868' might be used uninitialized in this function nucleic2-stalin.c:17831: warning: `a869' might be used uninitialized in this function nucleic2-stalin.c:17832: warning: `a870' might be used uninitialized in this function nucleic2-stalin.c:17833: warning: `a871' might be used uninitialized in this function nucleic2-stalin.c:17834: warning: `a872' might be used uninitialized in this function nucleic2-stalin.c:17835: warning: `a873' might be used uninitialized in this function nucleic2-stalin.c:17836: warning: `a874' might be used uninitialized in this function nucleic2-stalin.c:17837: warning: `a875' might be used uninitialized in this function nucleic2-stalin.c:17838: warning: `a876' might be used uninitialized in this function nucleic2-stalin.c:17839: warning: `a877' might be used uninitialized in this function nucleic2-stalin.c:17840: warning: `a878' might be used uninitialized in this function nucleic2-stalin.c:17841: warning: `a879' might be used uninitialized in this function nucleic2-stalin.c:17842: warning: `a880' might be used uninitialized in this function nucleic2-stalin.c:17843: warning: `a881' might be used uninitialized in this function nucleic2-stalin.c:17844: warning: `a882' might be used uninitialized in this function nucleic2-stalin.c:17845: warning: `a883' might be used uninitialized in this function nucleic2-stalin.c:17846: warning: `a884' might be used uninitialized in this function nucleic2-stalin.c:17847: warning: `a885' might be used uninitialized in this function nucleic2-stalin.c:17848: warning: `a886' might be used uninitialized in this function nucleic2-stalin.c:17849: warning: `a887' might be used uninitialized in this function nucleic2-stalin.c:17850: warning: `a888' might be used uninitialized in this function nucleic2-stalin.c:17851: warning: `a889' might be used uninitialized in this function nucleic2-stalin.c:17852: warning: `a890' might be used uninitialized in this function nucleic2-stalin.c:17853: warning: `a891' might be used uninitialized in this function nucleic2-stalin.c:17854: warning: `a892' might be used uninitialized in this function nucleic2-stalin.c:17855: warning: `a893' might be used uninitialized in this function nucleic2-stalin.c:17856: warning: `a894' might be used uninitialized in this function nucleic2-stalin.c:17857: warning: `a895' might be used uninitialized in this function nucleic2-stalin.c:17858: warning: `a896' might be used uninitialized in this function nucleic2-stalin.c:17859: warning: `a897' might be used uninitialized in this function nucleic2-stalin.c:17860: warning: `a898' might be used uninitialized in this function nucleic2-stalin.c:17861: warning: `a899' might be used uninitialized in this function nucleic2-stalin.c:17862: warning: `a900' might be used uninitialized in this function nucleic2-stalin.c:17863: warning: `a901' might be used uninitialized in this function nucleic2-stalin.c:17864: warning: `a902' might be used uninitialized in this function nucleic2-stalin.c:17865: warning: `a903' might be used uninitialized in this function nucleic2-stalin.c:17866: warning: `a904' might be used uninitialized in this function nucleic2-stalin.c:17867: warning: `a905' might be used uninitialized in this function nucleic2-stalin.c:17868: warning: `a906' might be used uninitialized in this function nucleic2-stalin.c:17869: warning: `a907' might be used uninitialized in this function nucleic2-stalin.c:17870: warning: `a908' might be used uninitialized in this function nucleic2-stalin.c:17871: warning: `a909' might be used uninitialized in this function nucleic2-stalin.c:17872: warning: `a910' might be used uninitialized in this function nucleic2-stalin.c:17873: warning: `a911' might be used uninitialized in this function nucleic2-stalin.c:17874: warning: `a912' might be used uninitialized in this function nucleic2-stalin.c:17875: warning: `a913' might be used uninitialized in this function nucleic2-stalin.c:17876: warning: `a914' might be used uninitialized in this function nucleic2-stalin.c:17877: warning: `a915' might be used uninitialized in this function nucleic2-stalin.c:17878: warning: `a916' might be used uninitialized in this function nucleic2-stalin.c:17879: warning: `a917' might be used uninitialized in this function nucleic2-stalin.c:17880: warning: `a918' might be used uninitialized in this function nucleic2-stalin.c:17881: warning: `a919' might be used uninitialized in this function nucleic2-stalin.c:17882: warning: `a920' might be used uninitialized in this function nucleic2-stalin.c:17883: warning: `a921' might be used uninitialized in this function nucleic2-stalin.c:17884: warning: `a922' might be used uninitialized in this function nucleic2-stalin.c:17885: warning: `a923' might be used uninitialized in this function nucleic2-stalin.c:17886: warning: `a924' might be used uninitialized in this function nucleic2-stalin.c:17887: warning: `a925' might be used uninitialized in this function nucleic2-stalin.c:17888: warning: `a926' might be used uninitialized in this function nucleic2-stalin.c:17889: warning: `a927' might be used uninitialized in this function nucleic2-stalin.c:17890: warning: `a928' might be used uninitialized in this function nucleic2-stalin.c:17891: warning: `a929' might be used uninitialized in this function nucleic2-stalin.c:17892: warning: `a930' might be used uninitialized in this function nucleic2-stalin.c:17893: warning: `a931' might be used uninitialized in this function nucleic2-stalin.c:17894: warning: `a932' might be used uninitialized in this function nucleic2-stalin.c:17895: warning: `a933' might be used uninitialized in this function nucleic2-stalin.c:17896: warning: `a934' might be used uninitialized in this function nucleic2-stalin.c:17897: warning: `a935' might be used uninitialized in this function nucleic2-stalin.c:17898: warning: `a936' might be used uninitialized in this function nucleic2-stalin.c:17899: warning: `a937' might be used uninitialized in this function nucleic2-stalin.c:17900: warning: `a938' might be used uninitialized in this function nucleic2-stalin.c:17901: warning: `a939' might be used uninitialized in this function nucleic2-stalin.c:17902: warning: `a940' might be used uninitialized in this function nucleic2-stalin.c:17903: warning: `a941' might be used uninitialized in this function nucleic2-stalin.c:17904: warning: `a942' might be used uninitialized in this function nucleic2-stalin.c:17905: warning: `a943' might be used uninitialized in this function nucleic2-stalin.c:17906: warning: `a944' might be used uninitialized in this function nucleic2-stalin.c:17907: warning: `a945' might be used uninitialized in this function nucleic2-stalin.c:17908: warning: `a946' might be used uninitialized in this function nucleic2-stalin.c:17909: warning: `a947' might be used uninitialized in this function nucleic2-stalin.c:17910: warning: `a948' might be used uninitialized in this function nucleic2-stalin.c:17911: warning: `a949' might be used uninitialized in this function nucleic2-stalin.c:17912: warning: `a950' might be used uninitialized in this function nucleic2-stalin.c:17913: warning: `a951' might be used uninitialized in this function nucleic2-stalin.c:17914: warning: `a952' might be used uninitialized in this function nucleic2-stalin.c:17915: warning: `a953' might be used uninitialized in this function nucleic2-stalin.c:17916: warning: `a954' might be used uninitialized in this function nucleic2-stalin.c:17917: warning: `a955' might be used uninitialized in this function nucleic2-stalin.c:17918: warning: `a956' might be used uninitialized in this function nucleic2-stalin.c:17919: warning: `a957' might be used uninitialized in this function nucleic2-stalin.c:17920: warning: `a958' might be used uninitialized in this function nucleic2-stalin.c:17921: warning: `a959' might be used uninitialized in this function nucleic2-stalin.c:17922: warning: `a960' might be used uninitialized in this function nucleic2-stalin.c:17923: warning: `a961' might be used uninitialized in this function nucleic2-stalin.c:17924: warning: `a962' might be used uninitialized in this function nucleic2-stalin.c:17925: warning: `a963' might be used uninitialized in this function nucleic2-stalin.c:17926: warning: `a964' might be used uninitialized in this function nucleic2-stalin.c:17927: warning: `a965' might be used uninitialized in this function nucleic2-stalin.c:17928: warning: `a966' might be used uninitialized in this function nucleic2-stalin.c:17929: warning: `a967' might be used uninitialized in this function nucleic2-stalin.c:17930: warning: `a968' might be used uninitialized in this function nucleic2-stalin.c:17931: warning: `a969' might be used uninitialized in this function nucleic2-stalin.c:17932: warning: `a970' might be used uninitialized in this function nucleic2-stalin.c:17933: warning: `a971' might be used uninitialized in this function nucleic2-stalin.c:17934: warning: `a972' might be used uninitialized in this function nucleic2-stalin.c:17935: warning: `a973' might be used uninitialized in this function nucleic2-stalin.c:17936: warning: `a974' might be used uninitialized in this function nucleic2-stalin.c:17937: warning: `a975' might be used uninitialized in this function nucleic2-stalin.c:17938: warning: `a976' might be used uninitialized in this function nucleic2-stalin.c:17939: warning: `a977' might be used uninitialized in this function nucleic2-stalin.c:17940: warning: `a978' might be used uninitialized in this function nucleic2-stalin.c:17941: warning: `a979' might be used uninitialized in this function nucleic2-stalin.c:17942: warning: `a980' might be used uninitialized in this function nucleic2-stalin.c:17943: warning: `a981' might be used uninitialized in this function nucleic2-stalin.c:17944: warning: `a982' might be used uninitialized in this function nucleic2-stalin.c:17945: warning: `a983' might be used uninitialized in this function nucleic2-stalin.c:17946: warning: `a984' might be used uninitialized in this function nucleic2-stalin.c:17947: warning: `a985' might be used uninitialized in this function nucleic2-stalin.c:17948: warning: `a986' might be used uninitialized in this function nucleic2-stalin.c:17949: warning: `a987' might be used uninitialized in this function nucleic2-stalin.c:17950: warning: `a988' might be used uninitialized in this function nucleic2-stalin.c:17951: warning: `a989' might be used uninitialized in this function nucleic2-stalin.c:17952: warning: `a990' might be used uninitialized in this function nucleic2-stalin.c:17953: warning: `a991' might be used uninitialized in this function nucleic2-stalin.c:17954: warning: `a992' might be used uninitialized in this function nucleic2-stalin.c:17955: warning: `a993' might be used uninitialized in this function nucleic2-stalin.c:17956: warning: `a994' might be used uninitialized in this function nucleic2-stalin.c:17957: warning: `a995' might be used uninitialized in this function nucleic2-stalin.c:17958: warning: `a996' might be used uninitialized in this function nucleic2-stalin.c:17959: warning: `a997' might be used uninitialized in this function nucleic2-stalin.c:17960: warning: `a998' might be used uninitialized in this function nucleic2-stalin.c:17961: warning: `a999' might be used uninitialized in this function nucleic2-stalin.c:17962: warning: `a1000' might be used uninitialized in this function nucleic2-stalin.c:17963: warning: `a1001' might be used uninitialized in this function nucleic2-stalin.c:17964: warning: `a1002' might be used uninitialized in this function nucleic2-stalin.c:17965: warning: `a1003' might be used uninitialized in this function nucleic2-stalin.c:17966: warning: `a1004' might be used uninitialized in this function nucleic2-stalin.c:17967: warning: `a1005' might be used uninitialized in this function nucleic2-stalin.c:17968: warning: `a1006' might be used uninitialized in this function nucleic2-stalin.c:17969: warning: `a1007' might be used uninitialized in this function nucleic2-stalin.c:17970: warning: `a1008' might be used uninitialized in this function nucleic2-stalin.c:17971: warning: `a1009' might be used uninitialized in this function nucleic2-stalin.c:17972: warning: `a1010' might be used uninitialized in this function nucleic2-stalin.c:17973: warning: `a1011' might be used uninitialized in this function nucleic2-stalin.c:17974: warning: `a1012' might be used uninitialized in this function nucleic2-stalin.c:17975: warning: `a1013' might be used uninitialized in this function nucleic2-stalin.c:17976: warning: `a1014' might be used uninitialized in this function nucleic2-stalin.c:17977: warning: `a1015' might be used uninitialized in this function nucleic2-stalin.c:17978: warning: `a1016' might be used uninitialized in this function nucleic2-stalin.c:17979: warning: `a1017' might be used uninitialized in this function nucleic2-stalin.c:17980: warning: `a1018' might be used uninitialized in this function nucleic2-stalin.c:17981: warning: `a1019' might be used uninitialized in this function nucleic2-stalin.c:17982: warning: `a1020' might be used uninitialized in this function nucleic2-stalin.c:17983: warning: `a1021' might be used uninitialized in this function nucleic2-stalin.c:17984: warning: `a1022' might be used uninitialized in this function nucleic2-stalin.c:17985: warning: `a1023' might be used uninitialized in this function nucleic2-stalin.c:17986: warning: `a1024' might be used uninitialized in this function nucleic2-stalin.c:17987: warning: `a1025' might be used uninitialized in this function nucleic2-stalin.c:17988: warning: `a1026' might be used uninitialized in this function nucleic2-stalin.c:17989: warning: `a1027' might be used uninitialized in this function nucleic2-stalin.c:17990: warning: `a1028' might be used uninitialized in this function nucleic2-stalin.c:17991: warning: `a1029' might be used uninitialized in this function nucleic2-stalin.c:17992: warning: `a1030' might be used uninitialized in this function nucleic2-stalin.c:17993: warning: `a1031' might be used uninitialized in this function nucleic2-stalin.c:17994: warning: `a1032' might be used uninitialized in this function nucleic2-stalin.c:17995: warning: `a1033' might be used uninitialized in this function nucleic2-stalin.c:17996: warning: `a1034' might be used uninitialized in this function nucleic2-stalin.c:17997: warning: `a1035' might be used uninitialized in this function nucleic2-stalin.c:17998: warning: `a1036' might be used uninitialized in this function nucleic2-stalin.c:17999: warning: `a1037' might be used uninitialized in this function nucleic2-stalin.c:18000: warning: `a1038' might be used uninitialized in this function nucleic2-stalin.c:18001: warning: `a1039' might be used uninitialized in this function nucleic2-stalin.c:18002: warning: `a1040' might be used uninitialized in this function nucleic2-stalin.c:18003: warning: `a1041' might be used uninitialized in this function nucleic2-stalin.c:18004: warning: `a1042' might be used uninitialized in this function nucleic2-stalin.c:18005: warning: `a1043' might be used uninitialized in this function nucleic2-stalin.c:18006: warning: `a1044' might be used uninitialized in this function nucleic2-stalin.c:18007: warning: `a1045' might be used uninitialized in this function nucleic2-stalin.c:18008: warning: `a1046' might be used uninitialized in this function nucleic2-stalin.c:18009: warning: `a1047' might be used uninitialized in this function nucleic2-stalin.c:18010: warning: `a1048' might be used uninitialized in this function nucleic2-stalin.c:18011: warning: `a1049' might be used uninitialized in this function nucleic2-stalin.c:18012: warning: `a1050' might be used uninitialized in this function nucleic2-stalin.c:18013: warning: `a1051' might be used uninitialized in this function nucleic2-stalin.c:18014: warning: `a1052' might be used uninitialized in this function nucleic2-stalin.c:18015: warning: `a1053' might be used uninitialized in this function nucleic2-stalin.c:18016: warning: `a1054' might be used uninitialized in this function nucleic2-stalin.c:18017: warning: `a1055' might be used uninitialized in this function nucleic2-stalin.c:18018: warning: `a1056' might be used uninitialized in this function nucleic2-stalin.c:18019: warning: `a1057' might be used uninitialized in this function nucleic2-stalin.c:18020: warning: `a1058' might be used uninitialized in this function nucleic2-stalin.c:18021: warning: `a1059' might be used uninitialized in this function nucleic2-stalin.c:18022: warning: `a1060' might be used uninitialized in this function nucleic2-stalin.c:18023: warning: `a1061' might be used uninitialized in this function nucleic2-stalin.c:18024: warning: `a1062' might be used uninitialized in this function nucleic2-stalin.c:18025: warning: `a1063' might be used uninitialized in this function nucleic2-stalin.c:18026: warning: `a1064' might be used uninitialized in this function nucleic2-stalin.c:18027: warning: `a1065' might be used uninitialized in this function nucleic2-stalin.c:18028: warning: `a1066' might be used uninitialized in this function nucleic2-stalin.c:18029: warning: `a1067' might be used uninitialized in this function nucleic2-stalin.c:18030: warning: `a1068' might be used uninitialized in this function nucleic2-stalin.c:18031: warning: `a1069' might be used uninitialized in this function nucleic2-stalin.c:18032: warning: `a1070' might be used uninitialized in this function nucleic2-stalin.c:18033: warning: `a1071' might be used uninitialized in this function nucleic2-stalin.c:18034: warning: `a1072' might be used uninitialized in this function nucleic2-stalin.c:18035: warning: `a1073' might be used uninitialized in this function nucleic2-stalin.c:18036: warning: `a1074' might be used uninitialized in this function nucleic2-stalin.c:18037: warning: `a1075' might be used uninitialized in this function nucleic2-stalin.c:18038: warning: `a1076' might be used uninitialized in this function nucleic2-stalin.c:18039: warning: `a1077' might be used uninitialized in this function nucleic2-stalin.c:18040: warning: `a1078' might be used uninitialized in this function nucleic2-stalin.c:18041: warning: `a1079' might be used uninitialized in this function nucleic2-stalin.c:18042: warning: `a1080' might be used uninitialized in this function nucleic2-stalin.c:18043: warning: `a1081' might be used uninitialized in this function nucleic2-stalin.c:18044: warning: `a1082' might be used uninitialized in this function nucleic2-stalin.c:18045: warning: `a1083' might be used uninitialized in this function nucleic2-stalin.c:18046: warning: `a1084' might be used uninitialized in this function nucleic2-stalin.c:18047: warning: `a1085' might be used uninitialized in this function nucleic2-stalin.c:18048: warning: `a1086' might be used uninitialized in this function nucleic2-stalin.c:18049: warning: `a1087' might be used uninitialized in this function nucleic2-stalin.c:18050: warning: `a1088' might be used uninitialized in this function nucleic2-stalin.c:18051: warning: `a1089' might be used uninitialized in this function nucleic2-stalin.c:18052: warning: `a1090' might be used uninitialized in this function nucleic2-stalin.c:18053: warning: `a1091' might be used uninitialized in this function nucleic2-stalin.c:18054: warning: `a1092' might be used uninitialized in this function nucleic2-stalin.c:18055: warning: `a1093' might be used uninitialized in this function nucleic2-stalin.c:18056: warning: `a1094' might be used uninitialized in this function nucleic2-stalin.c:18057: warning: `a1095' might be used uninitialized in this function nucleic2-stalin.c:18058: warning: `a1096' might be used uninitialized in this function nucleic2-stalin.c:18059: warning: `a1097' might be used uninitialized in this function nucleic2-stalin.c:18060: warning: `a1098' might be used uninitialized in this function nucleic2-stalin.c:18061: warning: `a1099' might be used uninitialized in this function nucleic2-stalin.c:18062: warning: `a1100' might be used uninitialized in this function nucleic2-stalin.c:18063: warning: `a1101' might be used uninitialized in this function nucleic2-stalin.c:18064: warning: `a1102' might be used uninitialized in this function nucleic2-stalin.c:18065: warning: `a1103' might be used uninitialized in this function nucleic2-stalin.c:18066: warning: `a1104' might be used uninitialized in this function nucleic2-stalin.c:18067: warning: `a1105' might be used uninitialized in this function nucleic2-stalin.c:18068: warning: `a1106' might be used uninitialized in this function nucleic2-stalin.c:18069: warning: `a1107' might be used uninitialized in this function nucleic2-stalin.c:18070: warning: `a1108' might be used uninitialized in this function nucleic2-stalin.c:18071: warning: `a1109' might be used uninitialized in this function nucleic2-stalin.c:18072: warning: `a1110' might be used uninitialized in this function nucleic2-stalin.c:18073: warning: `a1111' might be used uninitialized in this function nucleic2-stalin.c:18074: warning: `a1112' might be used uninitialized in this function nucleic2-stalin.c:18075: warning: `a1113' might be used uninitialized in this function nucleic2-stalin.c:18076: warning: `a1114' might be used uninitialized in this function nucleic2-stalin.c:18077: warning: `a1115' might be used uninitialized in this function nucleic2-stalin.c:18078: warning: `a1116' might be used uninitialized in this function nucleic2-stalin.c:18079: warning: `a1117' might be used uninitialized in this function nucleic2-stalin.c:18080: warning: `a1118' might be used uninitialized in this function nucleic2-stalin.c:18081: warning: `a1119' might be used uninitialized in this function nucleic2-stalin.c:18082: warning: `a1120' might be used uninitialized in this function nucleic2-stalin.c:18083: warning: `a1121' might be used uninitialized in this function nucleic2-stalin.c:18084: warning: `a1122' might be used uninitialized in this function nucleic2-stalin.c:18085: warning: `a1123' might be used uninitialized in this function nucleic2-stalin.c:18086: warning: `a1124' might be used uninitialized in this function nucleic2-stalin.c:18087: warning: `a1125' might be used uninitialized in this function nucleic2-stalin.c:18088: warning: `a1126' might be used uninitialized in this function nucleic2-stalin.c:18089: warning: `a1127' might be used uninitialized in this function nucleic2-stalin.c:18090: warning: `a1128' might be used uninitialized in this function nucleic2-stalin.c:18091: warning: `a1129' might be used uninitialized in this function nucleic2-stalin.c:18092: warning: `a1130' might be used uninitialized in this function nucleic2-stalin.c:18093: warning: `a1131' might be used uninitialized in this function nucleic2-stalin.c:18094: warning: `a1132' might be used uninitialized in this function nucleic2-stalin.c:18095: warning: `a1133' might be used uninitialized in this function nucleic2-stalin.c:18096: warning: `a1134' might be used uninitialized in this function nucleic2-stalin.c:18097: warning: `a1135' might be used uninitialized in this function nucleic2-stalin.c:18098: warning: `a1136' might be used uninitialized in this function nucleic2-stalin.c:18099: warning: `a1137' might be used uninitialized in this function nucleic2-stalin.c:18100: warning: `a1138' might be used uninitialized in this function nucleic2-stalin.c:18101: warning: `a1139' might be used uninitialized in this function nucleic2-stalin.c:18102: warning: `a1140' might be used uninitialized in this function nucleic2-stalin.c:18103: warning: `a1141' might be used uninitialized in this function nucleic2-stalin.c:18104: warning: `a1142' might be used uninitialized in this function nucleic2-stalin.c:18105: warning: `a1143' might be used uninitialized in this function nucleic2-stalin.c:18106: warning: `a1144' might be used uninitialized in this function nucleic2-stalin.c:18107: warning: `a1145' might be used uninitialized in this function nucleic2-stalin.c:18108: warning: `a1146' might be used uninitialized in this function nucleic2-stalin.c:18109: warning: `a1147' might be used uninitialized in this function nucleic2-stalin.c:18110: warning: `a1148' might be used uninitialized in this function nucleic2-stalin.c:18111: warning: `a1149' might be used uninitialized in this function nucleic2-stalin.c:18112: warning: `a1150' might be used uninitialized in this function nucleic2-stalin.c:18113: warning: `a1151' might be used uninitialized in this function nucleic2-stalin.c:18114: warning: `a1152' might be used uninitialized in this function nucleic2-stalin.c:18115: warning: `a1153' might be used uninitialized in this function nucleic2-stalin.c:18116: warning: `a1154' might be used uninitialized in this function nucleic2-stalin.c:18117: warning: `a1155' might be used uninitialized in this function nucleic2-stalin.c:18118: warning: `a1156' might be used uninitialized in this function nucleic2-stalin.c:18119: warning: `a1157' might be used uninitialized in this function nucleic2-stalin.c:18120: warning: `a1158' might be used uninitialized in this function nucleic2-stalin.c:18121: warning: `a1159' might be used uninitialized in this function nucleic2-stalin.c:18122: warning: `a1160' might be used uninitialized in this function nucleic2-stalin.c:18123: warning: `a1161' might be used uninitialized in this function nucleic2-stalin.c:18124: warning: `a1162' might be used uninitialized in this function nucleic2-stalin.c:18125: warning: `a1163' might be used uninitialized in this function nucleic2-stalin.c:18126: warning: `a1164' might be used uninitialized in this function nucleic2-stalin.c:18127: warning: `a1165' might be used uninitialized in this function nucleic2-stalin.c:18128: warning: `a1166' might be used uninitialized in this function nucleic2-stalin.c:18129: warning: `a1167' might be used uninitialized in this function nucleic2-stalin.c:18130: warning: `a1168' might be used uninitialized in this function nucleic2-stalin.c:18131: warning: `a1169' might be used uninitialized in this function nucleic2-stalin.c:18132: warning: `a1170' might be used uninitialized in this function nucleic2-stalin.c:18133: warning: `a1171' might be used uninitialized in this function nucleic2-stalin.c:18134: warning: `a1172' might be used uninitialized in this function nucleic2-stalin.c:18135: warning: `a1173' might be used uninitialized in this function nucleic2-stalin.c:18136: warning: `a1174' might be used uninitialized in this function nucleic2-stalin.c:18137: warning: `a1175' might be used uninitialized in this function nucleic2-stalin.c:18138: warning: `a1176' might be used uninitialized in this function nucleic2-stalin.c:18139: warning: `a1177' might be used uninitialized in this function nucleic2-stalin.c:18140: warning: `a1178' might be used uninitialized in this function nucleic2-stalin.c:18141: warning: `a1179' might be used uninitialized in this function nucleic2-stalin.c:18142: warning: `a1180' might be used uninitialized in this function nucleic2-stalin.c:18143: warning: `a1181' might be used uninitialized in this function nucleic2-stalin.c:18144: warning: `a1182' might be used uninitialized in this function nucleic2-stalin.c:18145: warning: `a1183' might be used uninitialized in this function nucleic2-stalin.c:18146: warning: `a1184' might be used uninitialized in this function nucleic2-stalin.c:18147: warning: `a1185' might be used uninitialized in this function nucleic2-stalin.c:18148: warning: `a1186' might be used uninitialized in this function nucleic2-stalin.c:18149: warning: `a1187' might be used uninitialized in this function nucleic2-stalin.c:18150: warning: `a1188' might be used uninitialized in this function nucleic2-stalin.c:18151: warning: `a1189' might be used uninitialized in this function nucleic2-stalin.c:18152: warning: `a1190' might be used uninitialized in this function nucleic2-stalin.c:18153: warning: `a1191' might be used uninitialized in this function nucleic2-stalin.c:18154: warning: `a1192' might be used uninitialized in this function nucleic2-stalin.c:18155: warning: `a1193' might be used uninitialized in this function nucleic2-stalin.c:18156: warning: `a1194' might be used uninitialized in this function nucleic2-stalin.c:18157: warning: `a1195' might be used uninitialized in this function nucleic2-stalin.c:18158: warning: `a1196' might be used uninitialized in this function nucleic2-stalin.c:18159: warning: `a1197' might be used uninitialized in this function nucleic2-stalin.c:18160: warning: `a1198' might be used uninitialized in this function nucleic2-stalin.c:18161: warning: `a1199' might be used uninitialized in this function nucleic2-stalin.c:18162: warning: `a1200' might be used uninitialized in this function nucleic2-stalin.c:18163: warning: `a1201' might be used uninitialized in this function nucleic2-stalin.c:18164: warning: `a1202' might be used uninitialized in this function nucleic2-stalin.c:18165: warning: `a1203' might be used uninitialized in this function nucleic2-stalin.c:18166: warning: `a1204' might be used uninitialized in this function nucleic2-stalin.c:18167: warning: `a1205' might be used uninitialized in this function nucleic2-stalin.c:18168: warning: `a1206' might be used uninitialized in this function nucleic2-stalin.c:18169: warning: `a1207' might be used uninitialized in this function nucleic2-stalin.c:18170: warning: `a1208' might be used uninitialized in this function nucleic2-stalin.c:18171: warning: `a1209' might be used uninitialized in this function nucleic2-stalin.c:18172: warning: `a1210' might be used uninitialized in this function nucleic2-stalin.c:18173: warning: `a1211' might be used uninitialized in this function nucleic2-stalin.c:18174: warning: `a1212' might be used uninitialized in this function nucleic2-stalin.c:18175: warning: `a1213' might be used uninitialized in this function nucleic2-stalin.c:18176: warning: `a1214' might be used uninitialized in this function nucleic2-stalin.c:18177: warning: `a1215' might be used uninitialized in this function nucleic2-stalin.c:18178: warning: `a1216' might be used uninitialized in this function nucleic2-stalin.c:18179: warning: `a1217' might be used uninitialized in this function nucleic2-stalin.c:18180: warning: `a1218' might be used uninitialized in this function nucleic2-stalin.c:18181: warning: `a1219' might be used uninitialized in this function nucleic2-stalin.c:18182: warning: `a1220' might be used uninitialized in this function nucleic2-stalin.c:18183: warning: `a1221' might be used uninitialized in this function nucleic2-stalin.c:18184: warning: `a1222' might be used uninitialized in this function nucleic2-stalin.c:18185: warning: `a1223' might be used uninitialized in this function nucleic2-stalin.c:18186: warning: `a1224' might be used uninitialized in this function nucleic2-stalin.c:18187: warning: `a1225' might be used uninitialized in this function nucleic2-stalin.c:18188: warning: `a1226' might be used uninitialized in this function nucleic2-stalin.c:18189: warning: `a1227' might be used uninitialized in this function nucleic2-stalin.c:18190: warning: `a1228' might be used uninitialized in this function nucleic2-stalin.c:18191: warning: `a1229' might be used uninitialized in this function nucleic2-stalin.c:18192: warning: `a1230' might be used uninitialized in this function nucleic2-stalin.c:18193: warning: `a1231' might be used uninitialized in this function nucleic2-stalin.c:18194: warning: `a1232' might be used uninitialized in this function nucleic2-stalin.c:18195: warning: `a1233' might be used uninitialized in this function nucleic2-stalin.c:18196: warning: `a1234' might be used uninitialized in this function nucleic2-stalin.c:18197: warning: `a1235' might be used uninitialized in this function nucleic2-stalin.c:18198: warning: `a1236' might be used uninitialized in this function nucleic2-stalin.c:18199: warning: `a1237' might be used uninitialized in this function nucleic2-stalin.c:18200: warning: `a1238' might be used uninitialized in this function nucleic2-stalin.c:18201: warning: `a1239' might be used uninitialized in this function nucleic2-stalin.c:18202: warning: `a1240' might be used uninitialized in this function nucleic2-stalin.c:18203: warning: `a1241' might be used uninitialized in this function nucleic2-stalin.c:18204: warning: `a1242' might be used uninitialized in this function nucleic2-stalin.c:18205: warning: `a1243' might be used uninitialized in this function nucleic2-stalin.c:18206: warning: `a1244' might be used uninitialized in this function nucleic2-stalin.c:18207: warning: `a1245' might be used uninitialized in this function nucleic2-stalin.c:18208: warning: `a1246' might be used uninitialized in this function nucleic2-stalin.c:18209: warning: `a1247' might be used uninitialized in this function nucleic2-stalin.c:18210: warning: `a1248' might be used uninitialized in this function nucleic2-stalin.c:18211: warning: `a1249' might be used uninitialized in this function nucleic2-stalin.c:18212: warning: `a1250' might be used uninitialized in this function nucleic2-stalin.c:18213: warning: `a1251' might be used uninitialized in this function nucleic2-stalin.c:18214: warning: `a1252' might be used uninitialized in this function nucleic2-stalin.c:18215: warning: `a1253' might be used uninitialized in this function nucleic2-stalin.c:18216: warning: `a1254' might be used uninitialized in this function nucleic2-stalin.c:18217: warning: `a1255' might be used uninitialized in this function nucleic2-stalin.c:18219: warning: `a1262' might be used uninitialized in this function nucleic2-stalin.c:18237: warning: `a1660' might be used uninitialized in this function nucleic2-stalin.c:18238: warning: `a2523' might be used uninitialized in this function nucleic2-stalin.c:18239: warning: `a2524' might be used uninitialized in this function nucleic2-stalin.c:18243: warning: `a2528' might be used uninitialized in this function nucleic2-stalin.c:18244: warning: `a2529' might be used uninitialized in this function nucleic2-stalin.c:18245: warning: `a2530' might be used uninitialized in this function nucleic2-stalin.c:18246: warning: `a2531' might be used uninitialized in this function nucleic2-stalin.c:18247: warning: `a2532' might be used uninitialized in this function nucleic2-stalin.c:18248: warning: `a2533' might be used uninitialized in this function nucleic2-stalin.c:18249: warning: `a2534' might be used uninitialized in this function nucleic2-stalin.c:18250: warning: `a2535' might be used uninitialized in this function nucleic2-stalin.c:18251: warning: `a2536' might be used uninitialized in this function nucleic2-stalin.c:18252: warning: `a2537' might be used uninitialized in this function nucleic2-stalin.c:18253: warning: `a2538' might be used uninitialized in this function nucleic2-stalin.c:18254: warning: `a2539' might be used uninitialized in this function nucleic2-stalin.c:18255: warning: `a2540' might be used uninitialized in this function nucleic2-stalin.c:18256: warning: `a2541' might be used uninitialized in this function nucleic2-stalin.c:18257: warning: `a2542' might be used uninitialized in this function nucleic2-stalin.c:18258: warning: `a2543' might be used uninitialized in this function nucleic2-stalin.c:18259: warning: `a2544' might be used uninitialized in this function nucleic2-stalin.c:18260: warning: `a2545' might be used uninitialized in this function nucleic2-stalin.c:18261: warning: `a2546' might be used uninitialized in this function nucleic2-stalin.c:18262: warning: `a2547' might be used uninitialized in this function nucleic2-stalin.c:18263: warning: `a2548' might be used uninitialized in this function nucleic2-stalin.c:18264: warning: `a2549' might be used uninitialized in this function nucleic2-stalin.c:18265: warning: `a2550' might be used uninitialized in this function nucleic2-stalin.c:18266: warning: `a2551' might be used uninitialized in this function nucleic2-stalin.c:18267: warning: `a2552' might be used uninitialized in this function nucleic2-stalin.c:18268: warning: `a2553' might be used uninitialized in this function nucleic2-stalin.c:18269: warning: `a2554' might be used uninitialized in this function nucleic2-stalin.c:18270: warning: `a2555' might be used uninitialized in this function nucleic2-stalin.c:18271: warning: `a2556' might be used uninitialized in this function nucleic2-stalin.c:18272: warning: `a2557' might be used uninitialized in this function nucleic2-stalin.c:18273: warning: `a2558' might be used uninitialized in this function nucleic2-stalin.c:18274: warning: `a2559' might be used uninitialized in this function nucleic2-stalin.c:18275: warning: `a2560' might be used uninitialized in this function nucleic2-stalin.c:18276: warning: `a2561' might be used uninitialized in this function nucleic2-stalin.c:18372: warning: `t3431' might be used uninitialized in this function nucleic2-stalin.c:18373: warning: `t3432' might be used uninitialized in this function nucleic2-stalin.c:18374: warning: `t3433' might be used uninitialized in this function nucleic2-stalin.c:18375: warning: `t3434' might be used uninitialized in this function nucleic2-stalin.c:18376: warning: `t3435' might be used uninitialized in this function nucleic2-stalin.c:18377: warning: `t3436' might be used uninitialized in this function nucleic2-stalin.c:18378: warning: `t3437' might be used uninitialized in this function nucleic2-stalin.c:18379: warning: `t3438' might be used uninitialized in this function nucleic2-stalin.c:18380: warning: `t3439' might be used uninitialized in this function nucleic2-stalin.c:18381: warning: `t3440' might be used uninitialized in this function nucleic2-stalin.c:18382: warning: `t3441' might be used uninitialized in this function nucleic2-stalin.c:18383: warning: `t3442' might be used uninitialized in this function nucleic2-stalin.c:18384: warning: `t3443' might be used uninitialized in this function nucleic2-stalin.c:18385: warning: `t3444' might be used uninitialized in this function nucleic2-stalin.c:18386: warning: `t3445' might be used uninitialized in this function nucleic2-stalin.c:18387: warning: `t3446' might be used uninitialized in this function nucleic2-stalin.c:18388: warning: `t3447' might be used uninitialized in this function nucleic2-stalin.c:18389: warning: `t3448' might be used uninitialized in this function nucleic2-stalin.c:18390: warning: `t3449' might be used uninitialized in this function nucleic2-stalin.c:18391: warning: `t3450' might be used uninitialized in this function nucleic2-stalin.c:18392: warning: `t3451' might be used uninitialized in this function nucleic2-stalin.c:18393: warning: `t3452' might be used uninitialized in this function nucleic2-stalin.c:18394: warning: `t3453' might be used uninitialized in this function nucleic2-stalin.c:18395: warning: `t3454' might be used uninitialized in this function nucleic2-stalin.c:18396: warning: `t3455' might be used uninitialized in this function nucleic2-stalin.c:18397: warning: `t3456' might be used uninitialized in this function nucleic2-stalin.c:18398: warning: `t3457' might be used uninitialized in this function nucleic2-stalin.c:18399: warning: `t3458' might be used uninitialized in this function nucleic2-stalin.c:18400: warning: `t3459' might be used uninitialized in this function nucleic2-stalin.c:18401: warning: `t3460' might be used uninitialized in this function nucleic2-stalin.c:18402: warning: `t3461' might be used uninitialized in this function nucleic2-stalin.c:18403: warning: `t3462' might be used uninitialized in this function nucleic2-stalin.c:18405: warning: `t3464' might be used uninitialized in this function nucleic2-stalin.c:18406: warning: `t3465' might be used uninitialized in this function nucleic2-stalin.c:18407: warning: `t3466' might be used uninitialized in this function nucleic2-stalin.c:18408: warning: `t3467' might be used uninitialized in this function nucleic2-stalin.c:18409: warning: `t3468' might be used uninitialized in this function nucleic2-stalin.c:18410: warning: `t3469' might be used uninitialized in this function nucleic2-stalin.c:18411: warning: `t3470' might be used uninitialized in this function nucleic2-stalin.c:18412: warning: `t3471' might be used uninitialized in this function nucleic2-stalin.c:18413: warning: `t3472' might be used uninitialized in this function nucleic2-stalin.c:18414: warning: `t3473' might be used uninitialized in this function nucleic2-stalin.c:18415: warning: `t3474' might be used uninitialized in this function nucleic2-stalin.c:18416: warning: `t3475' might be used uninitialized in this function nucleic2-stalin.c:18417: warning: `t3476' might be used uninitialized in this function nucleic2-stalin.c:18418: warning: `t3477' might be used uninitialized in this function nucleic2-stalin.c:18419: warning: `t3478' might be used uninitialized in this function nucleic2-stalin.c:18420: warning: `t3479' might be used uninitialized in this function nucleic2-stalin.c:18421: warning: `t3480' might be used uninitialized in this function nucleic2-stalin.c:18422: warning: `t3481' might be used uninitialized in this function nucleic2-stalin.c:18423: warning: `t3482' might be used uninitialized in this function nucleic2-stalin.c:18424: warning: `t3483' might be used uninitialized in this function nucleic2-stalin.c:18425: warning: `t3484' might be used uninitialized in this function nucleic2-stalin.c:18426: warning: `t3485' might be used uninitialized in this function nucleic2-stalin.c:18427: warning: `t3486' might be used uninitialized in this function nucleic2-stalin.c:18428: warning: `t3487' might be used uninitialized in this function nucleic2-stalin.c:18429: warning: `t3488' might be used uninitialized in this function nucleic2-stalin.c:18430: warning: `t3489' might be used uninitialized in this function nucleic2-stalin.c:18431: warning: `t3490' might be used uninitialized in this function nucleic2-stalin.c:18432: warning: `t3491' might be used uninitialized in this function nucleic2-stalin.c:18433: warning: `t3492' might be used uninitialized in this function nucleic2-stalin.c:18434: warning: `t3493' might be used uninitialized in this function nucleic2-stalin.c:18435: warning: `t3494' might be used uninitialized in this function nucleic2-stalin.c:18436: warning: `t3495' might be used uninitialized in this function nucleic2-stalin.c:18437: warning: `t3496' might be used uninitialized in this function nucleic2-stalin.c:18438: warning: `t3497' might be used uninitialized in this function nucleic2-stalin.c:18439: warning: `t3498' might be used uninitialized in this function nucleic2-stalin.c:18440: warning: `t3499' might be used uninitialized in this function nucleic2-stalin.c:18441: warning: `t3500' might be used uninitialized in this function nucleic2-stalin.c:18442: warning: `t3501' might be used uninitialized in this function nucleic2-stalin.c:18443: warning: `t3502' might be used uninitialized in this function nucleic2-stalin.c:18444: warning: `t3503' might be used uninitialized in this function nucleic2-stalin.c:18445: warning: `t3504' might be used uninitialized in this function nucleic2-stalin.c:18446: warning: `t3505' might be used uninitialized in this function nucleic2-stalin.c:18447: warning: `t3506' might be used uninitialized in this function nucleic2-stalin.c:18448: warning: `t3507' might be used uninitialized in this function nucleic2-stalin.c:18449: warning: `t3508' might be used uninitialized in this function nucleic2-stalin.c:18450: warning: `t3509' might be used uninitialized in this function nucleic2-stalin.c:18451: warning: `t3510' might be used uninitialized in this function nucleic2-stalin.c:18452: warning: `t3511' might be used uninitialized in this function nucleic2-stalin.c:18453: warning: `t3512' might be used uninitialized in this function nucleic2-stalin.c:18454: warning: `t3513' might be used uninitialized in this function nucleic2-stalin.c:18455: warning: `t3514' might be used uninitialized in this function nucleic2-stalin.c:18456: warning: `t3515' might be used uninitialized in this function nucleic2-stalin.c:18457: warning: `t3516' might be used uninitialized in this function nucleic2-stalin.c:18458: warning: `t3517' might be used uninitialized in this function nucleic2-stalin.c:18459: warning: `t3518' might be used uninitialized in this function nucleic2-stalin.c:18460: warning: `t3519' might be used uninitialized in this function nucleic2-stalin.c:18461: warning: `t3520' might be used uninitialized in this function nucleic2-stalin.c:18462: warning: `t3521' might be used uninitialized in this function nucleic2-stalin.c:18463: warning: `t3522' might be used uninitialized in this function nucleic2-stalin.c:18464: warning: `t3523' might be used uninitialized in this function nucleic2-stalin.c:18465: warning: `t3524' might be used uninitialized in this function nucleic2-stalin.c:18466: warning: `t3525' might be used uninitialized in this function nucleic2-stalin.c:18467: warning: `t3526' might be used uninitialized in this function nucleic2-stalin.c:18468: warning: `t3527' might be used uninitialized in this function nucleic2-stalin.c:18469: warning: `t3528' might be used uninitialized in this function nucleic2-stalin.c:18470: warning: `t3529' might be used uninitialized in this function nucleic2-stalin.c:18471: warning: `t3530' might be used uninitialized in this function nucleic2-stalin.c:18472: warning: `t3531' might be used uninitialized in this function nucleic2-stalin.c:18473: warning: `t3532' might be used uninitialized in this function nucleic2-stalin.c:18474: warning: `t3533' might be used uninitialized in this function nucleic2-stalin.c:18475: warning: `t3534' might be used uninitialized in this function nucleic2-stalin.c:18476: warning: `t3535' might be used uninitialized in this function nucleic2-stalin.c:18477: warning: `t3536' might be used uninitialized in this function nucleic2-stalin.c:18478: warning: `t3537' might be used uninitialized in this function nucleic2-stalin.c:18479: warning: `t3538' might be used uninitialized in this function nucleic2-stalin.c:18480: warning: `t3539' might be used uninitialized in this function nucleic2-stalin.c:18481: warning: `t3540' might be used uninitialized in this function nucleic2-stalin.c:18482: warning: `t3541' might be used uninitialized in this function nucleic2-stalin.c:18483: warning: `t3542' might be used uninitialized in this function nucleic2-stalin.c:18484: warning: `t3543' might be used uninitialized in this function nucleic2-stalin.c:18485: warning: `t3544' might be used uninitialized in this function nucleic2-stalin.c:18486: warning: `t3545' might be used uninitialized in this function nucleic2-stalin.c:18487: warning: `t3546' might be used uninitialized in this function nucleic2-stalin.c:18488: warning: `t3547' might be used uninitialized in this function nucleic2-stalin.c:18489: warning: `t3548' might be used uninitialized in this function nucleic2-stalin.c:18490: warning: `t3549' might be used uninitialized in this function nucleic2-stalin.c:18491: warning: `t3550' might be used uninitialized in this function nucleic2-stalin.c:18492: warning: `t3551' might be used uninitialized in this function nucleic2-stalin.c:18493: warning: `t3552' might be used uninitialized in this function nucleic2-stalin.c:18494: warning: `t3553' might be used uninitialized in this function nucleic2-stalin.c:18495: warning: `t3554' might be used uninitialized in this function nucleic2-stalin.c:18496: warning: `t3555' might be used uninitialized in this function nucleic2-stalin.c:18497: warning: `t3556' might be used uninitialized in this function nucleic2-stalin.c:18498: warning: `t3557' might be used uninitialized in this function nucleic2-stalin.c:18499: warning: `t3558' might be used uninitialized in this function nucleic2-stalin.c:18500: warning: `t3559' might be used uninitialized in this function nucleic2-stalin.c:18501: warning: `t3560' might be used uninitialized in this function nucleic2-stalin.c:18502: warning: `t3561' might be used uninitialized in this function nucleic2-stalin.c:18503: warning: `t3562' might be used uninitialized in this function nucleic2-stalin.c:18504: warning: `t3563' might be used uninitialized in this function nucleic2-stalin.c:18505: warning: `t3564' might be used uninitialized in this function nucleic2-stalin.c:18506: warning: `t3565' might be used uninitialized in this function nucleic2-stalin.c:18507: warning: `t3566' might be used uninitialized in this function nucleic2-stalin.c:18508: warning: `t3567' might be used uninitialized in this function nucleic2-stalin.c:18509: warning: `t3568' might be used uninitialized in this function nucleic2-stalin.c:18510: warning: `t3569' might be used uninitialized in this function nucleic2-stalin.c:18511: warning: `t3570' might be used uninitialized in this function nucleic2-stalin.c:18512: warning: `t3571' might be used uninitialized in this function nucleic2-stalin.c:18513: warning: `t3572' might be used uninitialized in this function nucleic2-stalin.c:18514: warning: `t3573' might be used uninitialized in this function nucleic2-stalin.c:18515: warning: `t3574' might be used uninitialized in this function nucleic2-stalin.c:18516: warning: `t3575' might be used uninitialized in this function nucleic2-stalin.c:18517: warning: `t3576' might be used uninitialized in this function nucleic2-stalin.c:18518: warning: `t3577' might be used uninitialized in this function nucleic2-stalin.c:18519: warning: `t3578' might be used uninitialized in this function nucleic2-stalin.c:18520: warning: `t3579' might be used uninitialized in this function nucleic2-stalin.c:18521: warning: `t3580' might be used uninitialized in this function nucleic2-stalin.c:18522: warning: `t3581' might be used uninitialized in this function nucleic2-stalin.c:18523: warning: `t3582' might be used uninitialized in this function nucleic2-stalin.c:18524: warning: `t3583' might be used uninitialized in this function nucleic2-stalin.c:18525: warning: `t3584' might be used uninitialized in this function nucleic2-stalin.c:18526: warning: `t3585' might be used uninitialized in this function nucleic2-stalin.c:18527: warning: `t3586' might be used uninitialized in this function nucleic2-stalin.c:18528: warning: `t3587' might be used uninitialized in this function nucleic2-stalin.c:18529: warning: `t3588' might be used uninitialized in this function nucleic2-stalin.c:18530: warning: `t3589' might be used uninitialized in this function nucleic2-stalin.c:18531: warning: `t3590' might be used uninitialized in this function nucleic2-stalin.c:18532: warning: `t3591' might be used uninitialized in this function nucleic2-stalin.c:18533: warning: `t3592' might be used uninitialized in this function nucleic2-stalin.c:18534: warning: `t3593' might be used uninitialized in this function nucleic2-stalin.c:18535: warning: `t3594' might be used uninitialized in this function nucleic2-stalin.c:18536: warning: `t3595' might be used uninitialized in this function nucleic2-stalin.c:18538: warning: `t3597' might be used uninitialized in this function nucleic2-stalin.c:18539: warning: `t3598' might be used uninitialized in this function nucleic2-stalin.c:18540: warning: `t3599' might be used uninitialized in this function nucleic2-stalin.c:18541: warning: `t3600' might be used uninitialized in this function nucleic2-stalin.c:18542: warning: `t3601' might be used uninitialized in this function nucleic2-stalin.c:18544: warning: `t3603' might be used uninitialized in this function nucleic2-stalin.c:18545: warning: `t3604' might be used uninitialized in this function nucleic2-stalin.c:18546: warning: `t3605' might be used uninitialized in this function nucleic2-stalin.c:18547: warning: `t3606' might be used uninitialized in this function nucleic2-stalin.c:18548: warning: `t3607' might be used uninitialized in this function nucleic2-stalin.c:18549: warning: `t3608' might be used uninitialized in this function nucleic2-stalin.c:18550: warning: `t3609' might be used uninitialized in this function nucleic2-stalin.c:18551: warning: `t3610' might be used uninitialized in this function nucleic2-stalin.c:18552: warning: `t3611' might be used uninitialized in this function nucleic2-stalin.c:18553: warning: `t3612' might be used uninitialized in this function nucleic2-stalin.c:18554: warning: `t3613' might be used uninitialized in this function nucleic2-stalin.c:18555: warning: `t3614' might be used uninitialized in this function nucleic2-stalin.c:18556: warning: `t3615' might be used uninitialized in this function nucleic2-stalin.c:18557: warning: `t3616' might be used uninitialized in this function nucleic2-stalin.c:18558: warning: `t3617' might be used uninitialized in this function nucleic2-stalin.c:18559: warning: `t3618' might be used uninitialized in this function nucleic2-stalin.c:18560: warning: `t3619' might be used uninitialized in this function nucleic2-stalin.c:18561: warning: `t3620' might be used uninitialized in this function nucleic2-stalin.c:18562: warning: `t3621' might be used uninitialized in this function nucleic2-stalin.c:18563: warning: `t3622' might be used uninitialized in this function nucleic2-stalin.c:18564: warning: `t3623' might be used uninitialized in this function nucleic2-stalin.c:18565: warning: `t3624' might be used uninitialized in this function nucleic2-stalin.c:18566: warning: `t3625' might be used uninitialized in this function nucleic2-stalin.c:18567: warning: `t3626' might be used uninitialized in this function nucleic2-stalin.c:18568: warning: `t3627' might be used uninitialized in this function nucleic2-stalin.c:18569: warning: `t3628' might be used uninitialized in this function nucleic2-stalin.c:18570: warning: `t3629' might be used uninitialized in this function nucleic2-stalin.c:18571: warning: `t3630' might be used uninitialized in this function nucleic2-stalin.c:18572: warning: `t3631' might be used uninitialized in this function nucleic2-stalin.c:18573: warning: `t3632' might be used uninitialized in this function nucleic2-stalin.c:18574: warning: `t3633' might be used uninitialized in this function nucleic2-stalin.c:18575: warning: `t3634' might be used uninitialized in this function nucleic2-stalin.c:18576: warning: `t3635' might be used uninitialized in this function nucleic2-stalin.c:18577: warning: `t3636' might be used uninitialized in this function nucleic2-stalin.c:18578: warning: `t3637' might be used uninitialized in this function nucleic2-stalin.c:18579: warning: `t3638' might be used uninitialized in this function nucleic2-stalin.c:18580: warning: `t3639' might be used uninitialized in this function nucleic2-stalin.c:18581: warning: `t3640' might be used uninitialized in this function nucleic2-stalin.c:18582: warning: `t3641' might be used uninitialized in this function nucleic2-stalin.c:18583: warning: `t3642' might be used uninitialized in this function nucleic2-stalin.c:18584: warning: `t3643' might be used uninitialized in this function nucleic2-stalin.c:18595: warning: `t4259' might be used uninitialized in this function nucleic2-stalin.c:18610: warning: `t4275' might be used uninitialized in this function nucleic2-stalin.c:24700: warning: `t11610' might be used uninitialized in this function nucleic2-stalin.c:24701: warning: `t11611' might be used uninitialized in this function nucleic2-stalin.c:24702: warning: `t11612' might be used uninitialized in this function nucleic2-stalin.c:24703: warning: `t11613' might be used uninitialized in this function nucleic2-stalin.c:24704: warning: `t11614' might be used uninitialized in this function nucleic2-stalin.c:24705: warning: `t11615' might be used uninitialized in this function nucleic2-stalin.c:24706: warning: `t11616' might be used uninitialized in this function nucleic2-stalin.c:24707: warning: `t11617' might be used uninitialized in this function nucleic2-stalin.c:24708: warning: `t11618' might be used uninitialized in this function nucleic2-stalin.c:24709: warning: `t11619' might be used uninitialized in this function nucleic2-stalin.c:27064: warning: `t14439' might be used uninitialized in this function nucleic2-stalin.c:27065: warning: `t14440' might be used uninitialized in this function nucleic2-stalin.c:27066: warning: `t14441' might be used uninitialized in this function nucleic2-stalin.c:27067: warning: `t14442' might be used uninitialized in this function nucleic2-stalin.c:27068: warning: `t14443' might be used uninitialized in this function nucleic2-stalin.c:27069: warning: `t14444' might be used uninitialized in this function nucleic2-stalin.c:27070: warning: `t14445' might be used uninitialized in this function nucleic2-stalin.c:27071: warning: `t14446' might be used uninitialized in this function nucleic2-stalin.c:27072: warning: `t14447' might be used uninitialized in this function nucleic2-stalin.c:27073: warning: `t14448' might be used uninitialized in this function nucleic2-stalin.c:27074: warning: `t14449' might be used uninitialized in this function nucleic2-stalin.c:27075: warning: `t14450' might be used uninitialized in this function nucleic2-stalin.c:27076: warning: `t14451' might be used uninitialized in this function nucleic2-stalin.c:27077: warning: `t14452' might be used uninitialized in this function nucleic2-stalin.c:27078: warning: `t14453' might be used uninitialized in this function nucleic2-stalin.c:27079: warning: `t14454' might be used uninitialized in this function nucleic2-stalin.c:27080: warning: `t14455' might be used uninitialized in this function nucleic2-stalin.c:27098: warning: `t14473' might be used uninitialized in this function nucleic2-stalin.c:27099: warning: `t14474' might be used uninitialized in this function nucleic2-stalin.c:27101: warning: `t14476' might be used uninitialized in this function nucleic2-stalin.c:27102: warning: `t14477' might be used uninitialized in this function nucleic2-stalin.c:27103: warning: `t14478' might be used uninitialized in this function nucleic2-stalin.c:27105: warning: `t14480' might be used uninitialized in this function nucleic2-stalin.c:27106: warning: `t14481' might be used uninitialized in this function nucleic2-stalin.c:27107: warning: `t14482' might be used uninitialized in this function nucleic2-stalin.c:27109: warning: `t14484' might be used uninitialized in this function nucleic2-stalin.c:27110: warning: `t14485' might be used uninitialized in this function nucleic2-stalin.c:27111: warning: `t14486' might be used uninitialized in this function nucleic2-stalin.c:27113: warning: `t14488' might be used uninitialized in this function nucleic2-stalin.c:27114: warning: `t14489' might be used uninitialized in this function nucleic2-stalin.c:27115: warning: `t14490' might be used uninitialized in this function nucleic2-stalin.c:27117: warning: `t14492' might be used uninitialized in this function nucleic2-stalin.c:27118: warning: `t14493' might be used uninitialized in this function nucleic2-stalin.c:27119: warning: `t14494' might be used uninitialized in this function nucleic2-stalin.c:27121: warning: `t14496' might be used uninitialized in this function nucleic2-stalin.c:27122: warning: `t14497' might be used uninitialized in this function nucleic2-stalin.c:27123: warning: `t14498' might be used uninitialized in this function nucleic2-stalin.c:27125: warning: `t14500' might be used uninitialized in this function nucleic2-stalin.c:27126: warning: `t14501' might be used uninitialized in this function nucleic2-stalin.c:27127: warning: `t14502' might be used uninitialized in this function nucleic2-stalin.c:27129: warning: `t14504' might be used uninitialized in this function nucleic2-stalin.c:27130: warning: `t14505' might be used uninitialized in this function nucleic2-stalin.c:27131: warning: `t14506' might be used uninitialized in this function nucleic2-stalin.c:27133: warning: `t14508' might be used uninitialized in this function nucleic2-stalin.c:27134: warning: `t14509' might be used uninitialized in this function nucleic2-stalin.c:27135: warning: `t14510' might be used uninitialized in this function nucleic2-stalin.c:27137: warning: `t14512' might be used uninitialized in this function nucleic2-stalin.c:27138: warning: `t14513' might be used uninitialized in this function nucleic2-stalin.c:27139: warning: `t14514' might be used uninitialized in this function nucleic2-stalin.c:27141: warning: `t14516' might be used uninitialized in this function nucleic2-stalin.c:27142: warning: `t14517' might be used uninitialized in this function nucleic2-stalin.c:27143: warning: `t14518' might be used uninitialized in this function nucleic2-stalin.c:27145: warning: `t14520' might be used uninitialized in this function nucleic2-stalin.c:27146: warning: `t14521' might be used uninitialized in this function nucleic2-stalin.c:27147: warning: `t14522' might be used uninitialized in this function nucleic2-stalin.c:27149: warning: `t14524' might be used uninitialized in this function nucleic2-stalin.c:27150: warning: `t14525' might be used uninitialized in this function nucleic2-stalin.c:27151: warning: `t14526' might be used uninitialized in this function nucleic2-stalin.c:27153: warning: `t14528' might be used uninitialized in this function nucleic2-stalin.c:27154: warning: `t14529' might be used uninitialized in this function nucleic2-stalin.c:27155: warning: `t14530' might be used uninitialized in this function nucleic2-stalin.c:27619: warning: `t14997' might be used uninitialized in this function nucleic2-stalin.c:27620: warning: `t14998' might be used uninitialized in this function nucleic2-stalin.c:27621: warning: `t14999' might be used uninitialized in this function 458.66user 1.72system 8:02.36elapsed 95%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (35674major+932271minor)pagefaults 0swaps compile matrix (STATIC-COUNTS 2617 2617 2617 2617 0 0 0 2617 2533 1432 136 368 30 96 1.424944812362031 5280 5280 500 288) matrix-stalin.c: In function `f1711': matrix-stalin.c:5202: warning: `a2117' might be used uninitialized in this function matrix-stalin.c:5204: warning: `a2119' might be used uninitialized in this function matrix-stalin.c: In function `f1092': matrix-stalin.c:5670: warning: unused variable `e2473' matrix-stalin.c:5668: warning: unused variable `e2471' matrix-stalin.c:5665: warning: unused variable `e2466' matrix-stalin.c:5496: warning: unused variable `a2545' matrix-stalin.c:5493: warning: unused variable `a2542' matrix-stalin.c:5489: warning: unused variable `a2535' matrix-stalin.c:5463: warning: `a1788' might be used uninitialized in this function matrix-stalin.c:5467: warning: `a1792' might be used uninitialized in this function matrix-stalin.c:5473: warning: `a2445' might be used uninitialized in this function matrix-stalin.c:5478: warning: `a2450' might be used uninitialized in this function matrix-stalin.c: In function `f364': matrix-stalin.c:6688: warning: `a1086' might be used uninitialized in this function matrix-stalin.c:6690: warning: `a1088' might be used uninitialized in this function matrix-stalin.c: In function `f310': matrix-stalin.c:6913: warning: unused variable `e313' matrix-stalin.c:6912: warning: unused variable `e312' matrix-stalin.c:6911: warning: unused variable `e311' matrix-stalin.c:6910: warning: unused variable `e308' matrix-stalin.c:6909: warning: unused variable `e307' matrix-stalin.c:6908: warning: unused variable `e306' matrix-stalin.c:6875: warning: unused variable `a1031' matrix-stalin.c:6874: warning: unused variable `a1030' matrix-stalin.c:6873: warning: unused variable `a1029' matrix-stalin.c:6872: warning: unused variable `a1024' matrix-stalin.c:6871: warning: unused variable `a1023' matrix-stalin.c:6870: warning: unused variable `a1022' matrix-stalin.c: In function `f266': matrix-stalin.c:7086: warning: `a2510' might be used uninitialized in this function matrix-stalin.c: In function `f259': matrix-stalin.c:7820: warning: `a2436' might be used uninitialized in this function matrix-stalin.c: In function `f227': matrix-stalin.c:8616: warning: unused variable `p2522' matrix-stalin.c:8612: warning: unused variable `p2498' matrix-stalin.c:8605: warning: unused variable `p2486' matrix-stalin.c:8541: warning: unused variable `e2522' matrix-stalin.c:8539: warning: unused variable `e2520' matrix-stalin.c:8538: warning: unused variable `e2519' matrix-stalin.c:8537: warning: unused variable `e2518' matrix-stalin.c:8535: warning: unused variable `e2498' matrix-stalin.c:8533: warning: unused variable `e2496' matrix-stalin.c:8532: warning: unused variable `e2495' matrix-stalin.c:8531: warning: unused variable `e2494' matrix-stalin.c:8529: warning: unused variable `e2492' matrix-stalin.c:8528: warning: unused variable `e2491' matrix-stalin.c:8527: warning: unused variable `e2490' matrix-stalin.c:8525: warning: unused variable `e2486' matrix-stalin.c:8167: warning: unused variable `a2605' matrix-stalin.c:8164: warning: unused variable `a2602' matrix-stalin.c:8163: warning: unused variable `a2601' matrix-stalin.c:8162: warning: unused variable `a2600' matrix-stalin.c:8159: warning: unused variable `a2575' matrix-stalin.c:8156: warning: unused variable `a2572' matrix-stalin.c:8155: warning: unused variable `a2571' matrix-stalin.c:8154: warning: unused variable `a2570' matrix-stalin.c:8151: warning: unused variable `a2567' matrix-stalin.c:8150: warning: unused variable `a2566' matrix-stalin.c:8149: warning: unused variable `a2565' matrix-stalin.c:8146: warning: unused variable `a2560' matrix-stalin.c:8068: warning: `a732' might be used uninitialized in this function matrix-stalin.c:8082: warning: `a758' might be used uninitialized in this function matrix-stalin.c:8085: warning: `a816' might be used uninitialized in this function matrix-stalin.c:8088: warning: `a963' might be used uninitialized in this function matrix-stalin.c:8110: warning: `a1005' might be used uninitialized in this function matrix-stalin.c:8113: warning: `a1008' might be used uninitialized in this function matrix-stalin.c:8119: warning: `a1160' might be used uninitialized in this function matrix-stalin.c:8126: warning: `a2496' might be used uninitialized in this function matrix-stalin.c:8127: warning: `a2497' might be used uninitialized in this function matrix-stalin.c:8128: warning: `a2504' might be used uninitialized in this function matrix-stalin.c:8129: warning: `a2505' might be used uninitialized in this function matrix-stalin.c:8130: warning: `a2506' might be used uninitialized in this function matrix-stalin.c:8131: warning: `a2507' might be used uninitialized in this function matrix-stalin.c:8136: warning: `a2548' might be used uninitialized in this function matrix-stalin.c:8141: warning: `a2553' might be used uninitialized in this function matrix-stalin.c:8144: warning: `a2558' might be used uninitialized in this function matrix-stalin.c:8145: warning: `a2559' might be used uninitialized in this function matrix-stalin.c:8147: warning: `a2563' might be used uninitialized in this function matrix-stalin.c:8148: warning: `a2564' might be used uninitialized in this function matrix-stalin.c:8152: warning: `a2568' might be used uninitialized in this function matrix-stalin.c:8153: warning: `a2569' might be used uninitialized in this function matrix-stalin.c:8157: warning: `a2573' might be used uninitialized in this function matrix-stalin.c:8158: warning: `a2574' might be used uninitialized in this function matrix-stalin.c:8160: warning: `a2598' might be used uninitialized in this function matrix-stalin.c:8161: warning: `a2599' might be used uninitialized in this function matrix-stalin.c:8165: warning: `a2603' might be used uninitialized in this function matrix-stalin.c:8166: warning: `a2604' might be used uninitialized in this function matrix-stalin.c: In function `f174': matrix-stalin.c:10886: warning: unused variable `e180' matrix-stalin.c:10804: warning: unused variable `a916' matrix-stalin.c:10799: warning: `a911' might be used uninitialized in this function matrix-stalin.c: In function `f172': matrix-stalin.c:11238: warning: `a876' might be used uninitialized in this function matrix-stalin.c: In function `f149': matrix-stalin.c:11493: warning: unused variable `e2463' matrix-stalin.c:11481: warning: unused variable `e150' matrix-stalin.c:11390: warning: unused variable `a2531' matrix-stalin.c:11376: warning: unused variable `a878' matrix-stalin.c:11378: warning: `a880' might be used uninitialized in this function matrix-stalin.c: In function `f133': matrix-stalin.c:12001: warning: unused variable `e2461' matrix-stalin.c:11981: warning: unused variable `a2528' matrix-stalin.c: In function `f132': matrix-stalin.c:12134: warning: unused variable `e641' matrix-stalin.c:12113: warning: unused variable `a1307' matrix-stalin.c: In function `f131': matrix-stalin.c:12265: warning: unused variable `e2468' matrix-stalin.c:12245: warning: unused variable `a2538' matrix-stalin.c: In function `f96': matrix-stalin.c:12527: warning: unused variable `e245' matrix-stalin.c:12453: warning: unused variable `a977' matrix-stalin.c:12439: warning: `a811' might be used uninitialized in this function matrix-stalin.c:12451: warning: `a975' might be used uninitialized in this function matrix-stalin.c: In function `f84': matrix-stalin.c:13043: warning: `a802' might be used uninitialized in this function matrix-stalin.c: In function `f57': matrix-stalin.c:13514: warning: unused variable `p2539' matrix-stalin.c:13494: warning: unused variable `p2354' matrix-stalin.c:13466: warning: unused variable `e2539' matrix-stalin.c:13464: warning: unused variable `e2537' matrix-stalin.c:13463: warning: unused variable `e2536' matrix-stalin.c:13462: warning: unused variable `e2535' matrix-stalin.c:13460: warning: unused variable `e2533' matrix-stalin.c:13459: warning: unused variable `e2532' matrix-stalin.c:13458: warning: unused variable `e2531' matrix-stalin.c:13449: warning: unused variable `e2364' matrix-stalin.c:13448: warning: unused variable `e2363' matrix-stalin.c:13447: warning: unused variable `e2362' matrix-stalin.c:13445: warning: unused variable `e2360' matrix-stalin.c:13444: warning: unused variable `e2359' matrix-stalin.c:13443: warning: unused variable `e2358' matrix-stalin.c:13441: warning: unused variable `e2354' matrix-stalin.c:13439: warning: unused variable `e2348' matrix-stalin.c:13438: warning: unused variable `e2347' matrix-stalin.c:13437: warning: unused variable `e2346' matrix-stalin.c:13435: warning: unused variable `e2344' matrix-stalin.c:13434: warning: unused variable `e2343' matrix-stalin.c:13433: warning: unused variable `e2342' matrix-stalin.c:13427: warning: unused variable `e68' matrix-stalin.c:13253: warning: unused variable `a2625' matrix-stalin.c:13250: warning: unused variable `a2622' matrix-stalin.c:13249: warning: unused variable `a2621' matrix-stalin.c:13248: warning: unused variable `a2620' matrix-stalin.c:13245: warning: unused variable `a2617' matrix-stalin.c:13244: warning: unused variable `a2616' matrix-stalin.c:13243: warning: unused variable `a2615' matrix-stalin.c:13232: warning: unused variable `a2486' matrix-stalin.c:13231: warning: unused variable `a2485' matrix-stalin.c:13230: warning: unused variable `a2484' matrix-stalin.c:13227: warning: unused variable `a2481' matrix-stalin.c:13226: warning: unused variable `a2480' matrix-stalin.c:13225: warning: unused variable `a2479' matrix-stalin.c:13222: warning: unused variable `a2474' matrix-stalin.c:13219: warning: unused variable `a2466' matrix-stalin.c:13218: warning: unused variable `a2465' matrix-stalin.c:13217: warning: unused variable `a2464' matrix-stalin.c:13214: warning: unused variable `a2461' matrix-stalin.c:13213: warning: unused variable `a2460' matrix-stalin.c:13212: warning: unused variable `a2459' matrix-stalin.c:13205: warning: unused variable `a789' matrix-stalin.c:13180: warning: `r57' might be used uninitialized in this function matrix-stalin.c:13189: warning: `a773' might be used uninitialized in this function matrix-stalin.c:13194: warning: `a778' might be used uninitialized in this function matrix-stalin.c:13200: warning: `a784' might be used uninitialized in this function matrix-stalin.c:13208: warning: `a805' might be used uninitialized in this function matrix-stalin.c:13209: warning: `a806' might be used uninitialized in this function matrix-stalin.c:13220: warning: `a2472' might be used uninitialized in this function matrix-stalin.c:13221: warning: `a2473' might be used uninitialized in this function matrix-stalin.c:13223: warning: `a2477' might be used uninitialized in this function matrix-stalin.c:13224: warning: `a2478' might be used uninitialized in this function matrix-stalin.c:13228: warning: `a2482' might be used uninitialized in this function matrix-stalin.c:13229: warning: `a2483' might be used uninitialized in this function matrix-stalin.c:13234: warning: `a2494' might be used uninitialized in this function matrix-stalin.c:13235: warning: `a2495' might be used uninitialized in this function matrix-stalin.c:13238: warning: `a2610' might be used uninitialized in this function matrix-stalin.c:13241: warning: `a2613' might be used uninitialized in this function matrix-stalin.c:13242: warning: `a2614' might be used uninitialized in this function matrix-stalin.c:13246: warning: `a2618' might be used uninitialized in this function matrix-stalin.c:13247: warning: `a2619' might be used uninitialized in this function matrix-stalin.c:13251: warning: `a2623' might be used uninitialized in this function matrix-stalin.c:13252: warning: `a2624' might be used uninitialized in this function matrix-stalin.c: In function `f49': matrix-stalin.c:14795: warning: unused variable `p2514' matrix-stalin.c:14791: warning: unused variable `p2506' matrix-stalin.c:14790: warning: unused variable `p2502' matrix-stalin.c:14777: warning: unused variable `e2514' matrix-stalin.c:14775: warning: unused variable `e2512' matrix-stalin.c:14774: warning: unused variable `e2511' matrix-stalin.c:14773: warning: unused variable `e2510' matrix-stalin.c:14771: warning: unused variable `e2506' matrix-stalin.c:14769: warning: unused variable `e2502' matrix-stalin.c:14761: warning: unused variable `e54' matrix-stalin.c:14759: warning: unused variable `e50' matrix-stalin.c:14710: warning: unused variable `a2595' matrix-stalin.c:14707: warning: unused variable `a2592' matrix-stalin.c:14706: warning: unused variable `a2591' matrix-stalin.c:14705: warning: unused variable `a2590' matrix-stalin.c:14702: warning: unused variable `a2585' matrix-stalin.c:14699: warning: unused variable `a2580' matrix-stalin.c:14690: warning: unused variable `a766' matrix-stalin.c:14688: warning: unused variable `a762' matrix-stalin.c:14691: warning: `a2498' might be used uninitialized in this function matrix-stalin.c:14692: warning: `a2499' might be used uninitialized in this function matrix-stalin.c:14693: warning: `a2500' might be used uninitialized in this function matrix-stalin.c:14694: warning: `a2501' might be used uninitialized in this function matrix-stalin.c:14695: warning: `a2502' might be used uninitialized in this function matrix-stalin.c:14696: warning: `a2503' might be used uninitialized in this function matrix-stalin.c:14697: warning: `a2578' might be used uninitialized in this function matrix-stalin.c:14698: warning: `a2579' might be used uninitialized in this function matrix-stalin.c:14700: warning: `a2583' might be used uninitialized in this function matrix-stalin.c:14701: warning: `a2584' might be used uninitialized in this function matrix-stalin.c:14703: warning: `a2588' might be used uninitialized in this function matrix-stalin.c:14704: warning: `a2589' might be used uninitialized in this function matrix-stalin.c:14708: warning: `a2593' might be used uninitialized in this function matrix-stalin.c:14709: warning: `a2594' might be used uninitialized in this function matrix-stalin.c: In function `f35': matrix-stalin.c:15178: warning: `a744' might be used uninitialized in this function matrix-stalin.c:15180: warning: `a747' might be used uninitialized in this function matrix-stalin.c:15184: warning: `a751' might be used uninitialized in this function matrix-stalin.c: In function `f0': matrix-stalin.c:17264: warning: unused variable `e2326' matrix-stalin.c:17237: warning: unused variable `e210' matrix-stalin.c:17235: warning: unused variable `e208' matrix-stalin.c:16325: warning: unused variable `a2442' matrix-stalin.c:16256: warning: unused variable `a942' matrix-stalin.c:16254: warning: unused variable `a940' matrix-stalin.c:15460: warning: `a1' might be used uninitialized in this function matrix-stalin.c:15461: warning: `a2' might be used uninitialized in this function matrix-stalin.c:15462: warning: `a3' might be used uninitialized in this function matrix-stalin.c:15463: warning: `a4' might be used uninitialized in this function matrix-stalin.c:15464: warning: `a5' might be used uninitialized in this function matrix-stalin.c:15465: warning: `a6' might be used uninitialized in this function matrix-stalin.c:15466: warning: `a7' might be used uninitialized in this function matrix-stalin.c:15467: warning: `a8' might be used uninitialized in this function matrix-stalin.c:15468: warning: `a9' might be used uninitialized in this function matrix-stalin.c:15469: warning: `a10' might be used uninitialized in this function matrix-stalin.c:15470: warning: `a11' might be used uninitialized in this function matrix-stalin.c:15471: warning: `a12' might be used uninitialized in this function matrix-stalin.c:15472: warning: `a13' might be used uninitialized in this function matrix-stalin.c:15473: warning: `a14' might be used uninitialized in this function matrix-stalin.c:15474: warning: `a15' might be used uninitialized in this function matrix-stalin.c:15475: warning: `a16' might be used uninitialized in this function matrix-stalin.c:15476: warning: `a17' might be used uninitialized in this function matrix-stalin.c:15477: warning: `a18' might be used uninitialized in this function matrix-stalin.c:15478: warning: `a19' might be used uninitialized in this function matrix-stalin.c:15479: warning: `a20' might be used uninitialized in this function matrix-stalin.c:15480: warning: `a21' might be used uninitialized in this function matrix-stalin.c:15481: warning: `a22' might be used uninitialized in this function matrix-stalin.c:15482: warning: `a23' might be used uninitialized in this function matrix-stalin.c:15483: warning: `a24' might be used uninitialized in this function matrix-stalin.c:15484: warning: `a25' might be used uninitialized in this function matrix-stalin.c:15485: warning: `a26' might be used uninitialized in this function matrix-stalin.c:15486: warning: `a27' might be used uninitialized in this function matrix-stalin.c:15487: warning: `a28' might be used uninitialized in this function matrix-stalin.c:15488: warning: `a29' might be used uninitialized in this function matrix-stalin.c:15489: warning: `a30' might be used uninitialized in this function matrix-stalin.c:15490: warning: `a31' might be used uninitialized in this function matrix-stalin.c:15491: warning: `a32' might be used uninitialized in this function matrix-stalin.c:15492: warning: `a33' might be used uninitialized in this function matrix-stalin.c:15493: warning: `a34' might be used uninitialized in this function matrix-stalin.c:15494: warning: `a35' might be used uninitialized in this function matrix-stalin.c:15495: warning: `a36' might be used uninitialized in this function matrix-stalin.c:15496: warning: `a37' might be used uninitialized in this function matrix-stalin.c:15497: warning: `a38' might be used uninitialized in this function matrix-stalin.c:15498: warning: `a39' might be used uninitialized in this function matrix-stalin.c:15499: warning: `a40' might be used uninitialized in this function matrix-stalin.c:15500: warning: `a41' might be used uninitialized in this function matrix-stalin.c:15501: warning: `a42' might be used uninitialized in this function matrix-stalin.c:15502: warning: `a43' might be used uninitialized in this function matrix-stalin.c:15503: warning: `a44' might be used uninitialized in this function matrix-stalin.c:15504: warning: `a45' might be used uninitialized in this function matrix-stalin.c:15505: warning: `a46' might be used uninitialized in this function matrix-stalin.c:15506: warning: `a47' might be used uninitialized in this function matrix-stalin.c:15507: warning: `a48' might be used uninitialized in this function matrix-stalin.c:15508: warning: `a49' might be used uninitialized in this function matrix-stalin.c:15509: warning: `a50' might be used uninitialized in this function matrix-stalin.c:15510: warning: `a51' might be used uninitialized in this function matrix-stalin.c:15511: warning: `a52' might be used uninitialized in this function matrix-stalin.c:15512: warning: `a53' might be used uninitialized in this function matrix-stalin.c:15513: warning: `a54' might be used uninitialized in this function matrix-stalin.c:15514: warning: `a55' might be used uninitialized in this function matrix-stalin.c:15515: warning: `a56' might be used uninitialized in this function matrix-stalin.c:15516: warning: `a57' might be used uninitialized in this function matrix-stalin.c:15517: warning: `a58' might be used uninitialized in this function matrix-stalin.c:15518: warning: `a59' might be used uninitialized in this function matrix-stalin.c:15519: warning: `a60' might be used uninitialized in this function matrix-stalin.c:15520: warning: `a61' might be used uninitialized in this function matrix-stalin.c:15521: warning: `a62' might be used uninitialized in this function matrix-stalin.c:15522: warning: `a63' might be used uninitialized in this function matrix-stalin.c:15523: warning: `a64' might be used uninitialized in this function matrix-stalin.c:15524: warning: `a65' might be used uninitialized in this function matrix-stalin.c:15525: warning: `a66' might be used uninitialized in this function matrix-stalin.c:15526: warning: `a67' might be used uninitialized in this function matrix-stalin.c:15527: warning: `a68' might be used uninitialized in this function matrix-stalin.c:15528: warning: `a69' might be used uninitialized in this function matrix-stalin.c:15529: warning: `a70' might be used uninitialized in this function matrix-stalin.c:15530: warning: `a71' might be used uninitialized in this function matrix-stalin.c:15531: warning: `a72' might be used uninitialized in this function matrix-stalin.c:15532: warning: `a73' might be used uninitialized in this function matrix-stalin.c:15533: warning: `a74' might be used uninitialized in this function matrix-stalin.c:15534: warning: `a75' might be used uninitialized in this function matrix-stalin.c:15535: warning: `a76' might be used uninitialized in this function matrix-stalin.c:15536: warning: `a77' might be used uninitialized in this function matrix-stalin.c:15537: warning: `a78' might be used uninitialized in this function matrix-stalin.c:15538: warning: `a79' might be used uninitialized in this function matrix-stalin.c:15539: warning: `a80' might be used uninitialized in this function matrix-stalin.c:15540: warning: `a81' might be used uninitialized in this function matrix-stalin.c:15541: warning: `a82' might be used uninitialized in this function matrix-stalin.c:15542: warning: `a83' might be used uninitialized in this function matrix-stalin.c:15543: warning: `a84' might be used uninitialized in this function matrix-stalin.c:15544: warning: `a85' might be used uninitialized in this function matrix-stalin.c:15545: warning: `a86' might be used uninitialized in this function matrix-stalin.c:15546: warning: `a87' might be used uninitialized in this function matrix-stalin.c:15547: warning: `a88' might be used uninitialized in this function matrix-stalin.c:15548: warning: `a89' might be used uninitialized in this function matrix-stalin.c:15549: warning: `a90' might be used uninitialized in this function matrix-stalin.c:15550: warning: `a91' might be used uninitialized in this function matrix-stalin.c:15551: warning: `a92' might be used uninitialized in this function matrix-stalin.c:15552: warning: `a93' might be used uninitialized in this function matrix-stalin.c:15553: warning: `a94' might be used uninitialized in this function matrix-stalin.c:15554: warning: `a95' might be used uninitialized in this function matrix-stalin.c:15555: warning: `a96' might be used uninitialized in this function matrix-stalin.c:15556: warning: `a97' might be used uninitialized in this function matrix-stalin.c:15557: warning: `a98' might be used uninitialized in this function matrix-stalin.c:15558: warning: `a99' might be used uninitialized in this function matrix-stalin.c:15559: warning: `a100' might be used uninitialized in this function matrix-stalin.c:15560: warning: `a101' might be used uninitialized in this function matrix-stalin.c:15561: warning: `a102' might be used uninitialized in this function matrix-stalin.c:15562: warning: `a103' might be used uninitialized in this function matrix-stalin.c:15563: warning: `a104' might be used uninitialized in this function matrix-stalin.c:15564: warning: `a105' might be used uninitialized in this function matrix-stalin.c:15565: warning: `a106' might be used uninitialized in this function matrix-stalin.c:15566: warning: `a107' might be used uninitialized in this function matrix-stalin.c:15567: warning: `a108' might be used uninitialized in this function matrix-stalin.c:15568: warning: `a109' might be used uninitialized in this function matrix-stalin.c:15569: warning: `a110' might be used uninitialized in this function matrix-stalin.c:15570: warning: `a111' might be used uninitialized in this function matrix-stalin.c:15571: warning: `a112' might be used uninitialized in this function matrix-stalin.c:15572: warning: `a113' might be used uninitialized in this function matrix-stalin.c:15573: warning: `a114' might be used uninitialized in this function matrix-stalin.c:15574: warning: `a115' might be used uninitialized in this function matrix-stalin.c:15575: warning: `a116' might be used uninitialized in this function matrix-stalin.c:15576: warning: `a117' might be used uninitialized in this function matrix-stalin.c:15577: warning: `a118' might be used uninitialized in this function matrix-stalin.c:15578: warning: `a119' might be used uninitialized in this function matrix-stalin.c:15579: warning: `a120' might be used uninitialized in this function matrix-stalin.c:15580: warning: `a121' might be used uninitialized in this function matrix-stalin.c:15581: warning: `a122' might be used uninitialized in this function matrix-stalin.c:15582: warning: `a123' might be used uninitialized in this function matrix-stalin.c:15583: warning: `a124' might be used uninitialized in this function matrix-stalin.c:15584: warning: `a125' might be used uninitialized in this function matrix-stalin.c:15585: warning: `a126' might be used uninitialized in this function matrix-stalin.c:15586: warning: `a127' might be used uninitialized in this function matrix-stalin.c:15587: warning: `a128' might be used uninitialized in this function matrix-stalin.c:15588: warning: `a129' might be used uninitialized in this function matrix-stalin.c:15589: warning: `a130' might be used uninitialized in this function matrix-stalin.c:15590: warning: `a131' might be used uninitialized in this function matrix-stalin.c:15591: warning: `a132' might be used uninitialized in this function matrix-stalin.c:15592: warning: `a133' might be used uninitialized in this function matrix-stalin.c:15593: warning: `a134' might be used uninitialized in this function matrix-stalin.c:15594: warning: `a135' might be used uninitialized in this function matrix-stalin.c:15595: warning: `a136' might be used uninitialized in this function matrix-stalin.c:15596: warning: `a137' might be used uninitialized in this function matrix-stalin.c:15597: warning: `a138' might be used uninitialized in this function matrix-stalin.c:15598: warning: `a139' might be used uninitialized in this function matrix-stalin.c:15599: warning: `a140' might be used uninitialized in this function matrix-stalin.c:15600: warning: `a141' might be used uninitialized in this function matrix-stalin.c:15601: warning: `a142' might be used uninitialized in this function matrix-stalin.c:15602: warning: `a143' might be used uninitialized in this function matrix-stalin.c:15603: warning: `a144' might be used uninitialized in this function matrix-stalin.c:15604: warning: `a145' might be used uninitialized in this function matrix-stalin.c:15605: warning: `a146' might be used uninitialized in this function matrix-stalin.c:15606: warning: `a147' might be used uninitialized in this function matrix-stalin.c:15607: warning: `a148' might be used uninitialized in this function matrix-stalin.c:15608: warning: `a149' might be used uninitialized in this function matrix-stalin.c:15609: warning: `a150' might be used uninitialized in this function matrix-stalin.c:15610: warning: `a151' might be used uninitialized in this function matrix-stalin.c:15611: warning: `a152' might be used uninitialized in this function matrix-stalin.c:15612: warning: `a153' might be used uninitialized in this function matrix-stalin.c:15613: warning: `a154' might be used uninitialized in this function matrix-stalin.c:15614: warning: `a155' might be used uninitialized in this function matrix-stalin.c:15615: warning: `a156' might be used uninitialized in this function matrix-stalin.c:15616: warning: `a157' might be used uninitialized in this function matrix-stalin.c:15617: warning: `a158' might be used uninitialized in this function matrix-stalin.c:15618: warning: `a159' might be used uninitialized in this function matrix-stalin.c:15619: warning: `a160' might be used uninitialized in this function matrix-stalin.c:15620: warning: `a161' might be used uninitialized in this function matrix-stalin.c:15621: warning: `a162' might be used uninitialized in this function matrix-stalin.c:15622: warning: `a163' might be used uninitialized in this function matrix-stalin.c:15623: warning: `a164' might be used uninitialized in this function matrix-stalin.c:15624: warning: `a165' might be used uninitialized in this function matrix-stalin.c:15625: warning: `a166' might be used uninitialized in this function matrix-stalin.c:15626: warning: `a167' might be used uninitialized in this function matrix-stalin.c:15627: warning: `a168' might be used uninitialized in this function matrix-stalin.c:15628: warning: `a169' might be used uninitialized in this function matrix-stalin.c:15629: warning: `a170' might be used uninitialized in this function matrix-stalin.c:15630: warning: `a171' might be used uninitialized in this function matrix-stalin.c:15631: warning: `a172' might be used uninitialized in this function matrix-stalin.c:15632: warning: `a173' might be used uninitialized in this function matrix-stalin.c:15633: warning: `a174' might be used uninitialized in this function matrix-stalin.c:15634: warning: `a175' might be used uninitialized in this function matrix-stalin.c:15635: warning: `a176' might be used uninitialized in this function matrix-stalin.c:15636: warning: `a177' might be used uninitialized in this function matrix-stalin.c:15637: warning: `a178' might be used uninitialized in this function matrix-stalin.c:15638: warning: `a179' might be used uninitialized in this function matrix-stalin.c:15639: warning: `a180' might be used uninitialized in this function matrix-stalin.c:15640: warning: `a181' might be used uninitialized in this function matrix-stalin.c:15641: warning: `a182' might be used uninitialized in this function matrix-stalin.c:15642: warning: `a183' might be used uninitialized in this function matrix-stalin.c:15643: warning: `a184' might be used uninitialized in this function matrix-stalin.c:15644: warning: `a185' might be used uninitialized in this function matrix-stalin.c:15645: warning: `a186' might be used uninitialized in this function matrix-stalin.c:15646: warning: `a187' might be used uninitialized in this function matrix-stalin.c:15647: warning: `a188' might be used uninitialized in this function matrix-stalin.c:15648: warning: `a189' might be used uninitialized in this function matrix-stalin.c:15649: warning: `a190' might be used uninitialized in this function matrix-stalin.c:15650: warning: `a191' might be used uninitialized in this function matrix-stalin.c:15651: warning: `a192' might be used uninitialized in this function matrix-stalin.c:15652: warning: `a193' might be used uninitialized in this function matrix-stalin.c:15653: warning: `a194' might be used uninitialized in this function matrix-stalin.c:15654: warning: `a195' might be used uninitialized in this function matrix-stalin.c:15655: warning: `a196' might be used uninitialized in this function matrix-stalin.c:15656: warning: `a197' might be used uninitialized in this function matrix-stalin.c:15657: warning: `a198' might be used uninitialized in this function matrix-stalin.c:15658: warning: `a199' might be used uninitialized in this function matrix-stalin.c:15659: warning: `a200' might be used uninitialized in this function matrix-stalin.c:15660: warning: `a201' might be used uninitialized in this function matrix-stalin.c:15661: warning: `a202' might be used uninitialized in this function matrix-stalin.c:15662: warning: `a203' might be used uninitialized in this function matrix-stalin.c:15663: warning: `a204' might be used uninitialized in this function matrix-stalin.c:15664: warning: `a205' might be used uninitialized in this function matrix-stalin.c:15665: warning: `a206' might be used uninitialized in this function matrix-stalin.c:15666: warning: `a207' might be used uninitialized in this function matrix-stalin.c:15667: warning: `a208' might be used uninitialized in this function matrix-stalin.c:15668: warning: `a209' might be used uninitialized in this function matrix-stalin.c:15669: warning: `a210' might be used uninitialized in this function matrix-stalin.c:15670: warning: `a211' might be used uninitialized in this function matrix-stalin.c:15671: warning: `a212' might be used uninitialized in this function matrix-stalin.c:15672: warning: `a213' might be used uninitialized in this function matrix-stalin.c:15673: warning: `a214' might be used uninitialized in this function matrix-stalin.c:15674: warning: `a215' might be used uninitialized in this function matrix-stalin.c:15675: warning: `a216' might be used uninitialized in this function matrix-stalin.c:15676: warning: `a217' might be used uninitialized in this function matrix-stalin.c:15677: warning: `a218' might be used uninitialized in this function matrix-stalin.c:15678: warning: `a219' might be used uninitialized in this function matrix-stalin.c:15679: warning: `a220' might be used uninitialized in this function matrix-stalin.c:15680: warning: `a221' might be used uninitialized in this function matrix-stalin.c:15681: warning: `a222' might be used uninitialized in this function matrix-stalin.c:15682: warning: `a223' might be used uninitialized in this function matrix-stalin.c:15683: warning: `a224' might be used uninitialized in this function matrix-stalin.c:15684: warning: `a225' might be used uninitialized in this function matrix-stalin.c:15685: warning: `a226' might be used uninitialized in this function matrix-stalin.c:15686: warning: `a227' might be used uninitialized in this function matrix-stalin.c:15687: warning: `a228' might be used uninitialized in this function matrix-stalin.c:15688: warning: `a229' might be used uninitialized in this function matrix-stalin.c:15689: warning: `a230' might be used uninitialized in this function matrix-stalin.c:15690: warning: `a231' might be used uninitialized in this function matrix-stalin.c:15691: warning: `a232' might be used uninitialized in this function matrix-stalin.c:15692: warning: `a233' might be used uninitialized in this function matrix-stalin.c:15693: warning: `a234' might be used uninitialized in this function matrix-stalin.c:15694: warning: `a235' might be used uninitialized in this function matrix-stalin.c:15695: warning: `a236' might be used uninitialized in this function matrix-stalin.c:15696: warning: `a237' might be used uninitialized in this function matrix-stalin.c:15697: warning: `a238' might be used uninitialized in this function matrix-stalin.c:15698: warning: `a239' might be used uninitialized in this function matrix-stalin.c:15699: warning: `a240' might be used uninitialized in this function matrix-stalin.c:15700: warning: `a241' might be used uninitialized in this function matrix-stalin.c:15701: warning: `a242' might be used uninitialized in this function matrix-stalin.c:15702: warning: `a243' might be used uninitialized in this function matrix-stalin.c:15703: warning: `a244' might be used uninitialized in this function matrix-stalin.c:15704: warning: `a245' might be used uninitialized in this function matrix-stalin.c:15705: warning: `a246' might be used uninitialized in this function matrix-stalin.c:15706: warning: `a247' might be used uninitialized in this function matrix-stalin.c:15707: warning: `a248' might be used uninitialized in this function matrix-stalin.c:15708: warning: `a249' might be used uninitialized in this function matrix-stalin.c:15709: warning: `a250' might be used uninitialized in this function matrix-stalin.c:15710: warning: `a251' might be used uninitialized in this function matrix-stalin.c:15711: warning: `a252' might be used uninitialized in this function matrix-stalin.c:15712: warning: `a253' might be used uninitialized in this function matrix-stalin.c:15713: warning: `a254' might be used uninitialized in this function matrix-stalin.c:15714: warning: `a255' might be used uninitialized in this function matrix-stalin.c:15715: warning: `a256' might be used uninitialized in this function matrix-stalin.c:15716: warning: `a257' might be used uninitialized in this function matrix-stalin.c:15717: warning: `a258' might be used uninitialized in this function matrix-stalin.c:15718: warning: `a259' might be used uninitialized in this function matrix-stalin.c:15719: warning: `a260' might be used uninitialized in this function matrix-stalin.c:15720: warning: `a261' might be used uninitialized in this function matrix-stalin.c:15721: warning: `a262' might be used uninitialized in this function matrix-stalin.c:15722: warning: `a263' might be used uninitialized in this function matrix-stalin.c:15723: warning: `a264' might be used uninitialized in this function matrix-stalin.c:15724: warning: `a265' might be used uninitialized in this function matrix-stalin.c:15725: warning: `a266' might be used uninitialized in this function matrix-stalin.c:15726: warning: `a267' might be used uninitialized in this function matrix-stalin.c:15727: warning: `a268' might be used uninitialized in this function matrix-stalin.c:15728: warning: `a269' might be used uninitialized in this function matrix-stalin.c:15729: warning: `a270' might be used uninitialized in this function matrix-stalin.c:15730: warning: `a271' might be used uninitialized in this function matrix-stalin.c:15731: warning: `a272' might be used uninitialized in this function matrix-stalin.c:15732: warning: `a273' might be used uninitialized in this function matrix-stalin.c:15733: warning: `a274' might be used uninitialized in this function matrix-stalin.c:15734: warning: `a275' might be used uninitialized in this function matrix-stalin.c:15735: warning: `a276' might be used uninitialized in this function matrix-stalin.c:15736: warning: `a277' might be used uninitialized in this function matrix-stalin.c:15737: warning: `a278' might be used uninitialized in this function matrix-stalin.c:15738: warning: `a279' might be used uninitialized in this function matrix-stalin.c:15739: warning: `a280' might be used uninitialized in this function matrix-stalin.c:15740: warning: `a281' might be used uninitialized in this function matrix-stalin.c:15741: warning: `a282' might be used uninitialized in this function matrix-stalin.c:15742: warning: `a283' might be used uninitialized in this function matrix-stalin.c:15743: warning: `a284' might be used uninitialized in this function matrix-stalin.c:15744: warning: `a285' might be used uninitialized in this function matrix-stalin.c:15745: warning: `a286' might be used uninitialized in this function matrix-stalin.c:15746: warning: `a287' might be used uninitialized in this function matrix-stalin.c:15747: warning: `a288' might be used uninitialized in this function matrix-stalin.c:15748: warning: `a289' might be used uninitialized in this function matrix-stalin.c:15749: warning: `a290' might be used uninitialized in this function matrix-stalin.c:15750: warning: `a291' might be used uninitialized in this function matrix-stalin.c:15751: warning: `a292' might be used uninitialized in this function matrix-stalin.c:15752: warning: `a293' might be used uninitialized in this function matrix-stalin.c:15753: warning: `a294' might be used uninitialized in this function matrix-stalin.c:15754: warning: `a295' might be used uninitialized in this function matrix-stalin.c:15755: warning: `a296' might be used uninitialized in this function matrix-stalin.c:15756: warning: `a297' might be used uninitialized in this function matrix-stalin.c:15757: warning: `a298' might be used uninitialized in this function matrix-stalin.c:15758: warning: `a299' might be used uninitialized in this function matrix-stalin.c:15759: warning: `a300' might be used uninitialized in this function matrix-stalin.c:15760: warning: `a301' might be used uninitialized in this function matrix-stalin.c:15761: warning: `a302' might be used uninitialized in this function matrix-stalin.c:15762: warning: `a303' might be used uninitialized in this function matrix-stalin.c:15763: warning: `a304' might be used uninitialized in this function matrix-stalin.c:15764: warning: `a305' might be used uninitialized in this function matrix-stalin.c:15765: warning: `a306' might be used uninitialized in this function matrix-stalin.c:15766: warning: `a307' might be used uninitialized in this function matrix-stalin.c:15767: warning: `a308' might be used uninitialized in this function matrix-stalin.c:15768: warning: `a309' might be used uninitialized in this function matrix-stalin.c:15769: warning: `a310' might be used uninitialized in this function matrix-stalin.c:15770: warning: `a311' might be used uninitialized in this function matrix-stalin.c:15771: warning: `a312' might be used uninitialized in this function matrix-stalin.c:15772: warning: `a313' might be used uninitialized in this function matrix-stalin.c:15773: warning: `a314' might be used uninitialized in this function matrix-stalin.c:15774: warning: `a315' might be used uninitialized in this function matrix-stalin.c:15775: warning: `a316' might be used uninitialized in this function matrix-stalin.c:15776: warning: `a317' might be used uninitialized in this function matrix-stalin.c:15777: warning: `a318' might be used uninitialized in this function matrix-stalin.c:15778: warning: `a319' might be used uninitialized in this function matrix-stalin.c:15779: warning: `a320' might be used uninitialized in this function matrix-stalin.c:15780: warning: `a321' might be used uninitialized in this function matrix-stalin.c:15781: warning: `a322' might be used uninitialized in this function matrix-stalin.c:15782: warning: `a323' might be used uninitialized in this function matrix-stalin.c:15783: warning: `a324' might be used uninitialized in this function matrix-stalin.c:15784: warning: `a325' might be used uninitialized in this function matrix-stalin.c:15785: warning: `a326' might be used uninitialized in this function matrix-stalin.c:15786: warning: `a327' might be used uninitialized in this function matrix-stalin.c:15787: warning: `a328' might be used uninitialized in this function matrix-stalin.c:15788: warning: `a329' might be used uninitialized in this function matrix-stalin.c:15789: warning: `a330' might be used uninitialized in this function matrix-stalin.c:15790: warning: `a331' might be used uninitialized in this function matrix-stalin.c:15791: warning: `a332' might be used uninitialized in this function matrix-stalin.c:15792: warning: `a333' might be used uninitialized in this function matrix-stalin.c:15793: warning: `a334' might be used uninitialized in this function matrix-stalin.c:15794: warning: `a335' might be used uninitialized in this function matrix-stalin.c:15795: warning: `a336' might be used uninitialized in this function matrix-stalin.c:15796: warning: `a337' might be used uninitialized in this function matrix-stalin.c:15797: warning: `a338' might be used uninitialized in this function matrix-stalin.c:15798: warning: `a339' might be used uninitialized in this function matrix-stalin.c:15799: warning: `a340' might be used uninitialized in this function matrix-stalin.c:15800: warning: `a341' might be used uninitialized in this function matrix-stalin.c:15801: warning: `a342' might be used uninitialized in this function matrix-stalin.c:15802: warning: `a343' might be used uninitialized in this function matrix-stalin.c:15803: warning: `a344' might be used uninitialized in this function matrix-stalin.c:15804: warning: `a345' might be used uninitialized in this function matrix-stalin.c:15805: warning: `a346' might be used uninitialized in this function matrix-stalin.c:15806: warning: `a347' might be used uninitialized in this function matrix-stalin.c:15807: warning: `a348' might be used uninitialized in this function matrix-stalin.c:15808: warning: `a349' might be used uninitialized in this function matrix-stalin.c:15809: warning: `a350' might be used uninitialized in this function matrix-stalin.c:15810: warning: `a351' might be used uninitialized in this function matrix-stalin.c:15811: warning: `a352' might be used uninitialized in this function matrix-stalin.c:15812: warning: `a353' might be used uninitialized in this function matrix-stalin.c:15813: warning: `a354' might be used uninitialized in this function matrix-stalin.c:15814: warning: `a355' might be used uninitialized in this function matrix-stalin.c:15815: warning: `a356' might be used uninitialized in this function matrix-stalin.c:15816: warning: `a357' might be used uninitialized in this function matrix-stalin.c:15817: warning: `a358' might be used uninitialized in this function matrix-stalin.c:15818: warning: `a359' might be used uninitialized in this function matrix-stalin.c:15819: warning: `a360' might be used uninitialized in this function matrix-stalin.c:15820: warning: `a361' might be used uninitialized in this function matrix-stalin.c:15821: warning: `a362' might be used uninitialized in this function matrix-stalin.c:15822: warning: `a363' might be used uninitialized in this function matrix-stalin.c:15823: warning: `a364' might be used uninitialized in this function matrix-stalin.c:15824: warning: `a365' might be used uninitialized in this function matrix-stalin.c:15825: warning: `a366' might be used uninitialized in this function matrix-stalin.c:15826: warning: `a367' might be used uninitialized in this function matrix-stalin.c:15827: warning: `a368' might be used uninitialized in this function matrix-stalin.c:15828: warning: `a369' might be used uninitialized in this function matrix-stalin.c:15829: warning: `a370' might be used uninitialized in this function matrix-stalin.c:15830: warning: `a371' might be used uninitialized in this function matrix-stalin.c:15831: warning: `a372' might be used uninitialized in this function matrix-stalin.c:15832: warning: `a373' might be used uninitialized in this function matrix-stalin.c:15833: warning: `a374' might be used uninitialized in this function matrix-stalin.c:15834: warning: `a375' might be used uninitialized in this function matrix-stalin.c:15835: warning: `a376' might be used uninitialized in this function matrix-stalin.c:15836: warning: `a377' might be used uninitialized in this function matrix-stalin.c:15837: warning: `a378' might be used uninitialized in this function matrix-stalin.c:15838: warning: `a379' might be used uninitialized in this function matrix-stalin.c:15839: warning: `a380' might be used uninitialized in this function matrix-stalin.c:15840: warning: `a381' might be used uninitialized in this function matrix-stalin.c:15841: warning: `a382' might be used uninitialized in this function matrix-stalin.c:15842: warning: `a383' might be used uninitialized in this function matrix-stalin.c:15843: warning: `a384' might be used uninitialized in this function matrix-stalin.c:15844: warning: `a385' might be used uninitialized in this function matrix-stalin.c:15845: warning: `a386' might be used uninitialized in this function matrix-stalin.c:15846: warning: `a387' might be used uninitialized in this function matrix-stalin.c:15847: warning: `a388' might be used uninitialized in this function matrix-stalin.c:15848: warning: `a389' might be used uninitialized in this function matrix-stalin.c:15849: warning: `a390' might be used uninitialized in this function matrix-stalin.c:15850: warning: `a391' might be used uninitialized in this function matrix-stalin.c:15851: warning: `a392' might be used uninitialized in this function matrix-stalin.c:15852: warning: `a393' might be used uninitialized in this function matrix-stalin.c:15853: warning: `a394' might be used uninitialized in this function matrix-stalin.c:15854: warning: `a395' might be used uninitialized in this function matrix-stalin.c:15855: warning: `a396' might be used uninitialized in this function matrix-stalin.c:15856: warning: `a397' might be used uninitialized in this function matrix-stalin.c:15857: warning: `a398' might be used uninitialized in this function matrix-stalin.c:15858: warning: `a399' might be used uninitialized in this function matrix-stalin.c:15859: warning: `a400' might be used uninitialized in this function matrix-stalin.c:15860: warning: `a401' might be used uninitialized in this function matrix-stalin.c:15861: warning: `a402' might be used uninitialized in this function matrix-stalin.c:15862: warning: `a403' might be used uninitialized in this function matrix-stalin.c:15863: warning: `a404' might be used uninitialized in this function matrix-stalin.c:15864: warning: `a405' might be used uninitialized in this function matrix-stalin.c:15865: warning: `a406' might be used uninitialized in this function matrix-stalin.c:15866: warning: `a407' might be used uninitialized in this function matrix-stalin.c:15867: warning: `a408' might be used uninitialized in this function matrix-stalin.c:15868: warning: `a409' might be used uninitialized in this function matrix-stalin.c:15869: warning: `a410' might be used uninitialized in this function matrix-stalin.c:15870: warning: `a411' might be used uninitialized in this function matrix-stalin.c:15871: warning: `a412' might be used uninitialized in this function matrix-stalin.c:15872: warning: `a413' might be used uninitialized in this function matrix-stalin.c:15873: warning: `a414' might be used uninitialized in this function matrix-stalin.c:15874: warning: `a415' might be used uninitialized in this function matrix-stalin.c:15875: warning: `a416' might be used uninitialized in this function matrix-stalin.c:15876: warning: `a417' might be used uninitialized in this function matrix-stalin.c:15877: warning: `a418' might be used uninitialized in this function matrix-stalin.c:15878: warning: `a419' might be used uninitialized in this function matrix-stalin.c:15879: warning: `a420' might be used uninitialized in this function matrix-stalin.c:15880: warning: `a421' might be used uninitialized in this function matrix-stalin.c:15881: warning: `a422' might be used uninitialized in this function matrix-stalin.c:15882: warning: `a423' might be used uninitialized in this function matrix-stalin.c:15883: warning: `a424' might be used uninitialized in this function matrix-stalin.c:15884: warning: `a425' might be used uninitialized in this function matrix-stalin.c:15885: warning: `a426' might be used uninitialized in this function matrix-stalin.c:15886: warning: `a427' might be used uninitialized in this function matrix-stalin.c:15887: warning: `a428' might be used uninitialized in this function matrix-stalin.c:15888: warning: `a429' might be used uninitialized in this function matrix-stalin.c:15889: warning: `a430' might be used uninitialized in this function matrix-stalin.c:15890: warning: `a431' might be used uninitialized in this function matrix-stalin.c:15891: warning: `a432' might be used uninitialized in this function matrix-stalin.c:15892: warning: `a433' might be used uninitialized in this function matrix-stalin.c:15893: warning: `a434' might be used uninitialized in this function matrix-stalin.c:15894: warning: `a435' might be used uninitialized in this function matrix-stalin.c:16108: warning: `a649' might be used uninitialized in this function matrix-stalin.c:16109: warning: `a650' might be used uninitialized in this function matrix-stalin.c:16110: warning: `a651' might be used uninitialized in this function matrix-stalin.c:16111: warning: `a652' might be used uninitialized in this function matrix-stalin.c:16112: warning: `a653' might be used uninitialized in this function matrix-stalin.c:16113: warning: `a654' might be used uninitialized in this function matrix-stalin.c:16114: warning: `a655' might be used uninitialized in this function matrix-stalin.c:16115: warning: `a656' might be used uninitialized in this function matrix-stalin.c:16116: warning: `a657' might be used uninitialized in this function matrix-stalin.c:16117: warning: `a659' might be used uninitialized in this function matrix-stalin.c:16118: warning: `a660' might be used uninitialized in this function matrix-stalin.c:16119: warning: `a661' might be used uninitialized in this function matrix-stalin.c:16120: warning: `a662' might be used uninitialized in this function matrix-stalin.c:16121: warning: `a663' might be used uninitialized in this function matrix-stalin.c:16122: warning: `a664' might be used uninitialized in this function matrix-stalin.c:16123: warning: `a665' might be used uninitialized in this function matrix-stalin.c:16124: warning: `a666' might be used uninitialized in this function matrix-stalin.c:16125: warning: `a668' might be used uninitialized in this function matrix-stalin.c:16126: warning: `a669' might be used uninitialized in this function matrix-stalin.c:16127: warning: `a670' might be used uninitialized in this function matrix-stalin.c:16128: warning: `a671' might be used uninitialized in this function matrix-stalin.c:16129: warning: `a672' might be used uninitialized in this function matrix-stalin.c:16130: warning: `a673' might be used uninitialized in this function matrix-stalin.c:16131: warning: `a674' might be used uninitialized in this function matrix-stalin.c:16132: warning: `a675' might be used uninitialized in this function matrix-stalin.c:16133: warning: `a676' might be used uninitialized in this function matrix-stalin.c:16134: warning: `a677' might be used uninitialized in this function matrix-stalin.c:16135: warning: `a678' might be used uninitialized in this function matrix-stalin.c:16136: warning: `a679' might be used uninitialized in this function matrix-stalin.c:16137: warning: `a680' might be used uninitialized in this function matrix-stalin.c:16138: warning: `a681' might be used uninitialized in this function matrix-stalin.c:16139: warning: `a682' might be used uninitialized in this function matrix-stalin.c:16140: warning: `a683' might be used uninitialized in this function matrix-stalin.c:16141: warning: `a684' might be used uninitialized in this function matrix-stalin.c:16142: warning: `a685' might be used uninitialized in this function matrix-stalin.c:16143: warning: `a686' might be used uninitialized in this function matrix-stalin.c:16144: warning: `a687' might be used uninitialized in this function matrix-stalin.c:16145: warning: `a688' might be used uninitialized in this function matrix-stalin.c:16146: warning: `a689' might be used uninitialized in this function matrix-stalin.c:16147: warning: `a690' might be used uninitialized in this function matrix-stalin.c:16148: warning: `a691' might be used uninitialized in this function matrix-stalin.c:16149: warning: `a692' might be used uninitialized in this function matrix-stalin.c:16150: warning: `a693' might be used uninitialized in this function matrix-stalin.c:16151: warning: `a694' might be used uninitialized in this function matrix-stalin.c:16152: warning: `a695' might be used uninitialized in this function matrix-stalin.c:16153: warning: `a696' might be used uninitialized in this function matrix-stalin.c:16154: warning: `a697' might be used uninitialized in this function matrix-stalin.c:16155: warning: `a698' might be used uninitialized in this function matrix-stalin.c:16156: warning: `a699' might be used uninitialized in this function matrix-stalin.c:16157: warning: `a700' might be used uninitialized in this function matrix-stalin.c:16158: warning: `a701' might be used uninitialized in this function matrix-stalin.c:16159: warning: `a702' might be used uninitialized in this function matrix-stalin.c:16160: warning: `a703' might be used uninitialized in this function matrix-stalin.c:16161: warning: `a704' might be used uninitialized in this function matrix-stalin.c:16162: warning: `a705' might be used uninitialized in this function matrix-stalin.c:16163: warning: `a706' might be used uninitialized in this function matrix-stalin.c:16169: warning: `a714' might be used uninitialized in this function matrix-stalin.c:16170: warning: `a715' might be used uninitialized in this function matrix-stalin.c:16176: warning: `a721' might be used uninitialized in this function matrix-stalin.c:16187: warning: `a821' might be used uninitialized in this function matrix-stalin.c:16189: warning: `a823' might be used uninitialized in this function matrix-stalin.c:16191: warning: `a825' might be used uninitialized in this function matrix-stalin.c:16214: warning: `a857' might be used uninitialized in this function matrix-stalin.c:16245: warning: `a931' might be used uninitialized in this function matrix-stalin.c:16248: warning: `a934' might be used uninitialized in this function matrix-stalin.c:16249: warning: `a935' might be used uninitialized in this function matrix-stalin.c:16252: warning: `a938' might be used uninitialized in this function matrix-stalin.c:16260: warning: `a946' might be used uninitialized in this function matrix-stalin.c:16270: warning: `a956' might be used uninitialized in this function matrix-stalin.c:16273: warning: `a1209' might be used uninitialized in this function matrix-stalin.c:16275: warning: `a2072' might be used uninitialized in this function matrix-stalin.c:16276: warning: `a2073' might be used uninitialized in this function matrix-stalin.c:16280: warning: `a2077' might be used uninitialized in this function matrix-stalin.c:16281: warning: `a2078' might be used uninitialized in this function matrix-stalin.c:16282: warning: `a2079' might be used uninitialized in this function matrix-stalin.c:16283: warning: `a2080' might be used uninitialized in this function matrix-stalin.c:16284: warning: `a2081' might be used uninitialized in this function matrix-stalin.c:16285: warning: `a2082' might be used uninitialized in this function matrix-stalin.c:16286: warning: `a2083' might be used uninitialized in this function matrix-stalin.c:16287: warning: `a2084' might be used uninitialized in this function matrix-stalin.c:16288: warning: `a2085' might be used uninitialized in this function matrix-stalin.c:16289: warning: `a2086' might be used uninitialized in this function matrix-stalin.c:16290: warning: `a2087' might be used uninitialized in this function matrix-stalin.c:16291: warning: `a2088' might be used uninitialized in this function matrix-stalin.c:16292: warning: `a2089' might be used uninitialized in this function matrix-stalin.c:16293: warning: `a2090' might be used uninitialized in this function matrix-stalin.c:16294: warning: `a2091' might be used uninitialized in this function matrix-stalin.c:16295: warning: `a2092' might be used uninitialized in this function matrix-stalin.c:16296: warning: `a2093' might be used uninitialized in this function matrix-stalin.c:16297: warning: `a2094' might be used uninitialized in this function matrix-stalin.c:16298: warning: `a2095' might be used uninitialized in this function matrix-stalin.c:16299: warning: `a2096' might be used uninitialized in this function matrix-stalin.c:16300: warning: `a2097' might be used uninitialized in this function matrix-stalin.c:16301: warning: `a2098' might be used uninitialized in this function matrix-stalin.c:16302: warning: `a2099' might be used uninitialized in this function matrix-stalin.c:16303: warning: `a2100' might be used uninitialized in this function matrix-stalin.c:16304: warning: `a2101' might be used uninitialized in this function matrix-stalin.c:16305: warning: `a2102' might be used uninitialized in this function matrix-stalin.c:16306: warning: `a2103' might be used uninitialized in this function matrix-stalin.c:16307: warning: `a2104' might be used uninitialized in this function matrix-stalin.c:16308: warning: `a2105' might be used uninitialized in this function matrix-stalin.c:16309: warning: `a2106' might be used uninitialized in this function matrix-stalin.c:16310: warning: `a2107' might be used uninitialized in this function matrix-stalin.c:16311: warning: `a2108' might be used uninitialized in this function matrix-stalin.c:16312: warning: `a2109' might be used uninitialized in this function matrix-stalin.c:16313: warning: `a2110' might be used uninitialized in this function matrix-stalin.c:16315: warning: `a2414' might be used uninitialized in this function matrix-stalin.c:16316: warning: `a2415' might be used uninitialized in this function matrix-stalin.c:16322: warning: `a2438' might be used uninitialized in this function matrix-stalin.c:16327: warning: `a2517' might be used uninitialized in this function matrix-stalin.c:16333: warning: `t2105' might be used uninitialized in this function matrix-stalin.c:16334: warning: `t2106' might be used uninitialized in this function matrix-stalin.c:16335: warning: `t2107' might be used uninitialized in this function matrix-stalin.c:16336: warning: `t2108' might be used uninitialized in this function matrix-stalin.c:16337: warning: `t2109' might be used uninitialized in this function matrix-stalin.c:16338: warning: `t2110' might be used uninitialized in this function matrix-stalin.c:16339: warning: `t2111' might be used uninitialized in this function matrix-stalin.c:16340: warning: `t2112' might be used uninitialized in this function matrix-stalin.c:16341: warning: `t2113' might be used uninitialized in this function matrix-stalin.c:16344: warning: `t2116' might be used uninitialized in this function matrix-stalin.c:16345: warning: `t2117' might be used uninitialized in this function matrix-stalin.c:16346: warning: `t2118' might be used uninitialized in this function matrix-stalin.c:16347: warning: `t2119' might be used uninitialized in this function matrix-stalin.c:16348: warning: `t2120' might be used uninitialized in this function matrix-stalin.c:16349: warning: `t2121' might be used uninitialized in this function matrix-stalin.c:16350: warning: `t2122' might be used uninitialized in this function matrix-stalin.c:16351: warning: `t2123' might be used uninitialized in this function matrix-stalin.c:16352: warning: `t2124' might be used uninitialized in this function matrix-stalin.c:16353: warning: `t2125' might be used uninitialized in this function matrix-stalin.c:16354: warning: `t2126' might be used uninitialized in this function matrix-stalin.c:16355: warning: `t2127' might be used uninitialized in this function matrix-stalin.c:16356: warning: `t2128' might be used uninitialized in this function matrix-stalin.c:16357: warning: `t2129' might be used uninitialized in this function matrix-stalin.c:16358: warning: `t2130' might be used uninitialized in this function matrix-stalin.c:16359: warning: `t2131' might be used uninitialized in this function matrix-stalin.c:16360: warning: `t2132' might be used uninitialized in this function matrix-stalin.c:16361: warning: `t2133' might be used uninitialized in this function matrix-stalin.c:16362: warning: `t2134' might be used uninitialized in this function matrix-stalin.c:16363: warning: `t2135' might be used uninitialized in this function matrix-stalin.c:16366: warning: `t2138' might be used uninitialized in this function matrix-stalin.c:16367: warning: `t2139' might be used uninitialized in this function matrix-stalin.c:16368: warning: `t2140' might be used uninitialized in this function matrix-stalin.c:16369: warning: `t2141' might be used uninitialized in this function matrix-stalin.c:16370: warning: `t2142' might be used uninitialized in this function matrix-stalin.c:16371: warning: `t2143' might be used uninitialized in this function matrix-stalin.c:16372: warning: `t2144' might be used uninitialized in this function matrix-stalin.c:16373: warning: `t2145' might be used uninitialized in this function matrix-stalin.c:16374: warning: `t2146' might be used uninitialized in this function matrix-stalin.c:16375: warning: `t2147' might be used uninitialized in this function matrix-stalin.c:16376: warning: `t2148' might be used uninitialized in this function matrix-stalin.c:16377: warning: `t2149' might be used uninitialized in this function matrix-stalin.c:16378: warning: `t2150' might be used uninitialized in this function matrix-stalin.c:16379: warning: `t2151' might be used uninitialized in this function matrix-stalin.c:16380: warning: `t2152' might be used uninitialized in this function matrix-stalin.c:16381: warning: `t2153' might be used uninitialized in this function matrix-stalin.c:16382: warning: `t2154' might be used uninitialized in this function matrix-stalin.c:16383: warning: `t2155' might be used uninitialized in this function matrix-stalin.c:16384: warning: `t2156' might be used uninitialized in this function matrix-stalin.c:16385: warning: `t2157' might be used uninitialized in this function matrix-stalin.c:16386: warning: `t2158' might be used uninitialized in this function matrix-stalin.c:16387: warning: `t2159' might be used uninitialized in this function matrix-stalin.c:16388: warning: `t2160' might be used uninitialized in this function matrix-stalin.c:16389: warning: `t2161' might be used uninitialized in this function matrix-stalin.c:16390: warning: `t2162' might be used uninitialized in this function matrix-stalin.c:16391: warning: `t2163' might be used uninitialized in this function matrix-stalin.c:16392: warning: `t2164' might be used uninitialized in this function matrix-stalin.c:16393: warning: `t2165' might be used uninitialized in this function matrix-stalin.c:16394: warning: `t2166' might be used uninitialized in this function matrix-stalin.c:16395: warning: `t2167' might be used uninitialized in this function matrix-stalin.c:16396: warning: `t2168' might be used uninitialized in this function matrix-stalin.c:16397: warning: `t2169' might be used uninitialized in this function matrix-stalin.c:16398: warning: `t2170' might be used uninitialized in this function matrix-stalin.c:16399: warning: `t2171' might be used uninitialized in this function matrix-stalin.c:16400: warning: `t2172' might be used uninitialized in this function matrix-stalin.c:16401: warning: `t2173' might be used uninitialized in this function matrix-stalin.c:16402: warning: `t2174' might be used uninitialized in this function matrix-stalin.c:16403: warning: `t2175' might be used uninitialized in this function matrix-stalin.c:16404: warning: `t2176' might be used uninitialized in this function matrix-stalin.c:16405: warning: `t2177' might be used uninitialized in this function matrix-stalin.c:16406: warning: `t2178' might be used uninitialized in this function matrix-stalin.c:16407: warning: `t2179' might be used uninitialized in this function matrix-stalin.c:16408: warning: `t2180' might be used uninitialized in this function matrix-stalin.c:16409: warning: `t2181' might be used uninitialized in this function matrix-stalin.c:16410: warning: `t2182' might be used uninitialized in this function matrix-stalin.c:16411: warning: `t2183' might be used uninitialized in this function matrix-stalin.c:16412: warning: `t2184' might be used uninitialized in this function matrix-stalin.c:16413: warning: `t2185' might be used uninitialized in this function matrix-stalin.c:16414: warning: `t2186' might be used uninitialized in this function matrix-stalin.c:16415: warning: `t2187' might be used uninitialized in this function matrix-stalin.c:16416: warning: `t2188' might be used uninitialized in this function matrix-stalin.c:16417: warning: `t2189' might be used uninitialized in this function matrix-stalin.c:16418: warning: `t2190' might be used uninitialized in this function matrix-stalin.c:16419: warning: `t2191' might be used uninitialized in this function matrix-stalin.c:16420: warning: `t2192' might be used uninitialized in this function matrix-stalin.c:16421: warning: `t2193' might be used uninitialized in this function matrix-stalin.c:16422: warning: `t2194' might be used uninitialized in this function matrix-stalin.c:16423: warning: `t2195' might be used uninitialized in this function matrix-stalin.c:16424: warning: `t2196' might be used uninitialized in this function matrix-stalin.c:16425: warning: `t2197' might be used uninitialized in this function matrix-stalin.c:16426: warning: `t2198' might be used uninitialized in this function matrix-stalin.c:16427: warning: `t2199' might be used uninitialized in this function matrix-stalin.c:16428: warning: `t2200' might be used uninitialized in this function matrix-stalin.c:16429: warning: `t2201' might be used uninitialized in this function matrix-stalin.c:16430: warning: `t2202' might be used uninitialized in this function matrix-stalin.c:16431: warning: `t2203' might be used uninitialized in this function matrix-stalin.c:16432: warning: `t2204' might be used uninitialized in this function matrix-stalin.c:16433: warning: `t2205' might be used uninitialized in this function matrix-stalin.c:16434: warning: `t2206' might be used uninitialized in this function matrix-stalin.c:16435: warning: `t2207' might be used uninitialized in this function matrix-stalin.c:16436: warning: `t2208' might be used uninitialized in this function matrix-stalin.c:16437: warning: `t2209' might be used uninitialized in this function matrix-stalin.c:16438: warning: `t2210' might be used uninitialized in this function matrix-stalin.c:16439: warning: `t2211' might be used uninitialized in this function matrix-stalin.c:16440: warning: `t2212' might be used uninitialized in this function matrix-stalin.c:16441: warning: `t2213' might be used uninitialized in this function matrix-stalin.c:16442: warning: `t2214' might be used uninitialized in this function matrix-stalin.c:16443: warning: `t2215' might be used uninitialized in this function matrix-stalin.c:16444: warning: `t2216' might be used uninitialized in this function matrix-stalin.c:16445: warning: `t2217' might be used uninitialized in this function matrix-stalin.c:16446: warning: `t2218' might be used uninitialized in this function matrix-stalin.c:16447: warning: `t2219' might be used uninitialized in this function matrix-stalin.c:16448: warning: `t2220' might be used uninitialized in this function matrix-stalin.c:16449: warning: `t2221' might be used uninitialized in this function matrix-stalin.c:16451: warning: `t2223' might be used uninitialized in this function matrix-stalin.c:16452: warning: `t2224' might be used uninitialized in this function matrix-stalin.c:16453: warning: `t2225' might be used uninitialized in this function matrix-stalin.c:16454: warning: `t2226' might be used uninitialized in this function matrix-stalin.c:16455: warning: `t2227' might be used uninitialized in this function matrix-stalin.c:16456: warning: `t2228' might be used uninitialized in this function matrix-stalin.c:16457: warning: `t2229' might be used uninitialized in this function matrix-stalin.c:16458: warning: `t2230' might be used uninitialized in this function matrix-stalin.c:16459: warning: `t2231' might be used uninitialized in this function matrix-stalin.c:16461: warning: `t2233' might be used uninitialized in this function matrix-stalin.c:16462: warning: `t2234' might be used uninitialized in this function matrix-stalin.c:16463: warning: `t2235' might be used uninitialized in this function matrix-stalin.c:16464: warning: `t2236' might be used uninitialized in this function matrix-stalin.c:16465: warning: `t2237' might be used uninitialized in this function matrix-stalin.c:16466: warning: `t2238' might be used uninitialized in this function matrix-stalin.c:16467: warning: `t2239' might be used uninitialized in this function matrix-stalin.c:16468: warning: `t2240' might be used uninitialized in this function matrix-stalin.c:16469: warning: `t2241' might be used uninitialized in this function matrix-stalin.c:16470: warning: `t2242' might be used uninitialized in this function matrix-stalin.c:16471: warning: `t2243' might be used uninitialized in this function matrix-stalin.c:16472: warning: `t2244' might be used uninitialized in this function matrix-stalin.c:16473: warning: `t2245' might be used uninitialized in this function matrix-stalin.c:16474: warning: `t2246' might be used uninitialized in this function matrix-stalin.c:16475: warning: `t2247' might be used uninitialized in this function matrix-stalin.c:16476: warning: `t2248' might be used uninitialized in this function matrix-stalin.c:16477: warning: `t2249' might be used uninitialized in this function matrix-stalin.c:16478: warning: `t2250' might be used uninitialized in this function matrix-stalin.c:16479: warning: `t2251' might be used uninitialized in this function matrix-stalin.c:16480: warning: `t2252' might be used uninitialized in this function matrix-stalin.c:16481: warning: `t2253' might be used uninitialized in this function matrix-stalin.c:16482: warning: `t2254' might be used uninitialized in this function matrix-stalin.c:16483: warning: `t2255' might be used uninitialized in this function matrix-stalin.c:16484: warning: `t2256' might be used uninitialized in this function matrix-stalin.c:16485: warning: `t2257' might be used uninitialized in this function matrix-stalin.c:16486: warning: `t2258' might be used uninitialized in this function matrix-stalin.c:16487: warning: `t2259' might be used uninitialized in this function matrix-stalin.c:16488: warning: `t2260' might be used uninitialized in this function matrix-stalin.c:16489: warning: `t2261' might be used uninitialized in this function matrix-stalin.c:16490: warning: `t2262' might be used uninitialized in this function matrix-stalin.c:16491: warning: `t2263' might be used uninitialized in this function matrix-stalin.c:16492: warning: `t2264' might be used uninitialized in this function matrix-stalin.c:16493: warning: `t2265' might be used uninitialized in this function matrix-stalin.c:16494: warning: `t2266' might be used uninitialized in this function matrix-stalin.c:16495: warning: `t2267' might be used uninitialized in this function matrix-stalin.c:16497: warning: `t2269' might be used uninitialized in this function matrix-stalin.c:16498: warning: `t2270' might be used uninitialized in this function matrix-stalin.c:16499: warning: `t2271' might be used uninitialized in this function matrix-stalin.c:16500: warning: `t2272' might be used uninitialized in this function matrix-stalin.c:16501: warning: `t2273' might be used uninitialized in this function matrix-stalin.c:16503: warning: `t2275' might be used uninitialized in this function matrix-stalin.c:16505: warning: `t2277' might be used uninitialized in this function matrix-stalin.c:16506: warning: `t2278' might be used uninitialized in this function matrix-stalin.c:16507: warning: `t2279' might be used uninitialized in this function matrix-stalin.c:16508: warning: `t2280' might be used uninitialized in this function matrix-stalin.c:16509: warning: `t2281' might be used uninitialized in this function matrix-stalin.c:16510: warning: `t2282' might be used uninitialized in this function matrix-stalin.c:16511: warning: `t2283' might be used uninitialized in this function matrix-stalin.c:16512: warning: `t2284' might be used uninitialized in this function matrix-stalin.c:16513: warning: `t2285' might be used uninitialized in this function matrix-stalin.c:16514: warning: `t2286' might be used uninitialized in this function matrix-stalin.c:16515: warning: `t2287' might be used uninitialized in this function matrix-stalin.c:16516: warning: `t2288' might be used uninitialized in this function matrix-stalin.c:16517: warning: `t2289' might be used uninitialized in this function matrix-stalin.c:16518: warning: `t2290' might be used uninitialized in this function matrix-stalin.c:16519: warning: `t2291' might be used uninitialized in this function matrix-stalin.c:16520: warning: `t2292' might be used uninitialized in this function matrix-stalin.c:16521: warning: `t2293' might be used uninitialized in this function matrix-stalin.c:16522: warning: `t2294' might be used uninitialized in this function matrix-stalin.c:16523: warning: `t2295' might be used uninitialized in this function matrix-stalin.c:16524: warning: `t2296' might be used uninitialized in this function matrix-stalin.c:16525: warning: `t2297' might be used uninitialized in this function matrix-stalin.c:16526: warning: `t2298' might be used uninitialized in this function matrix-stalin.c:16527: warning: `t2299' might be used uninitialized in this function matrix-stalin.c:16528: warning: `t2300' might be used uninitialized in this function matrix-stalin.c:16529: warning: `t2301' might be used uninitialized in this function matrix-stalin.c:16530: warning: `t2302' might be used uninitialized in this function matrix-stalin.c:16532: warning: `t2304' might be used uninitialized in this function matrix-stalin.c:16535: warning: `t2307' might be used uninitialized in this function matrix-stalin.c:16536: warning: `t2308' might be used uninitialized in this function matrix-stalin.c:16538: warning: `t2310' might be used uninitialized in this function matrix-stalin.c:16540: warning: `t2312' might be used uninitialized in this function matrix-stalin.c:16542: warning: `t2314' might be used uninitialized in this function matrix-stalin.c:16543: warning: `t2315' might be used uninitialized in this function matrix-stalin.c:16544: warning: `t2316' might be used uninitialized in this function matrix-stalin.c:16545: warning: `t2317' might be used uninitialized in this function matrix-stalin.c:16549: warning: `t2377' might be used uninitialized in this function matrix-stalin.c:16561: warning: `t2574' might be used uninitialized in this function matrix-stalin.c:16564: warning: `t2577' might be used uninitialized in this function matrix-stalin.c:16738: warning: `t2781' might be used uninitialized in this function matrix-stalin.c:16740: warning: `t2783' might be used uninitialized in this function matrix-stalin.c:16941: warning: `t3045' might be used uninitialized in this function matrix-stalin.c:16942: warning: `t3046' might be used uninitialized in this function 69.53user 0.56system 1:16.62elapsed 91%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (34484major+406017minor)pagefaults 0swaps compile earley (STATIC-COUNTS 2899 2899 2899 2899 0 0 0 2899 2640 1536 241 489 53 121 1.861569215392304 5246 5246 531 320) earley-stalin.c: In function `f1853': earley-stalin.c:5722: warning: `a2300' might be used uninitialized in this function earley-stalin.c:5724: warning: `a2302' might be used uninitialized in this function earley-stalin.c: In function `f1234': earley-stalin.c:5896: warning: `a769' might be used uninitialized in this function earley-stalin.c:5904: warning: `a1343' might be used uninitialized in this function earley-stalin.c:5908: warning: `a1971' might be used uninitialized in this function earley-stalin.c:5915: warning: `a2766' might be used uninitialized in this function earley-stalin.c: In function `f1153': earley-stalin.c:6584: warning: `a1903' might be used uninitialized in this function earley-stalin.c:6586: warning: `a1905' might be used uninitialized in this function earley-stalin.c:6588: warning: `a1907' might be used uninitialized in this function earley-stalin.c:6589: warning: `a1908' might be used uninitialized in this function earley-stalin.c:6592: warning: `a2799' might be used uninitialized in this function earley-stalin.c:6594: warning: `a2801' might be used uninitialized in this function earley-stalin.c: In function `f620': earley-stalin.c:6894: warning: `a2650' might be used uninitialized in this function earley-stalin.c:6895: warning: `a2651' might be used uninitialized in this function earley-stalin.c: In function `f543': earley-stalin.c:7135: warning: unused variable `e589' earley-stalin.c:7131: warning: unused variable `e561' earley-stalin.c:7125: warning: unused variable `e549' earley-stalin.c:7124: warning: unused variable `e548' earley-stalin.c:7068: warning: unused variable `a1324' earley-stalin.c:7064: warning: unused variable `a1303' earley-stalin.c:7058: warning: unused variable `a1294' earley-stalin.c:7057: warning: unused variable `a1293' earley-stalin.c:7054: warning: `a1290' might be used uninitialized in this function earley-stalin.c:7055: warning: `a1291' might be used uninitialized in this function earley-stalin.c:7059: warning: `a1295' might be used uninitialized in this function earley-stalin.c:7060: warning: `a1296' might be used uninitialized in this function earley-stalin.c:7061: warning: `a1300' might be used uninitialized in this function earley-stalin.c:7062: warning: `a1301' might be used uninitialized in this function earley-stalin.c:7065: warning: `a1321' might be used uninitialized in this function earley-stalin.c:7066: warning: `a1322' might be used uninitialized in this function earley-stalin.c: In function `f454': earley-stalin.c:7327: warning: unused variable `e457' earley-stalin.c:7326: warning: unused variable `e456' earley-stalin.c:7325: warning: unused variable `e455' earley-stalin.c:7324: warning: unused variable `e452' earley-stalin.c:7323: warning: unused variable `e451' earley-stalin.c:7322: warning: unused variable `e450' earley-stalin.c:7288: warning: unused variable `a1214' earley-stalin.c:7287: warning: unused variable `a1213' earley-stalin.c:7286: warning: unused variable `a1212' earley-stalin.c:7285: warning: unused variable `a1207' earley-stalin.c:7284: warning: unused variable `a1206' earley-stalin.c:7283: warning: unused variable `a1205' earley-stalin.c: In function `f248': earley-stalin.c:7466: warning: `a1009' might be used uninitialized in this function earley-stalin.c:7472: warning: `a1015' might be used uninitialized in this function earley-stalin.c:7478: warning: `a1021' might be used uninitialized in this function earley-stalin.c:7483: warning: `a1026' might be used uninitialized in this function earley-stalin.c: In function `f112': earley-stalin.c:8685: warning: `a793' might be used uninitialized in this function earley-stalin.c:8686: warning: `a794' might be used uninitialized in this function earley-stalin.c:8687: warning: `a795' might be used uninitialized in this function earley-stalin.c:8688: warning: `a796' might be used uninitialized in this function earley-stalin.c:8689: warning: `a797' might be used uninitialized in this function earley-stalin.c:8702: warning: `a814' might be used uninitialized in this function earley-stalin.c:8703: warning: `a815' might be used uninitialized in this function earley-stalin.c:8704: warning: `a816' might be used uninitialized in this function earley-stalin.c:8705: warning: `a817' might be used uninitialized in this function earley-stalin.c:8711: warning: `a843' might be used uninitialized in this function earley-stalin.c:8713: warning: `a845' might be used uninitialized in this function earley-stalin.c:8714: warning: `a853' might be used uninitialized in this function earley-stalin.c:8715: warning: `a854' might be used uninitialized in this function earley-stalin.c:8716: warning: `a855' might be used uninitialized in this function earley-stalin.c:8717: warning: `a856' might be used uninitialized in this function earley-stalin.c:8721: warning: `a860' might be used uninitialized in this function earley-stalin.c:8726: warning: `a865' might be used uninitialized in this function earley-stalin.c:8727: warning: `a866' might be used uninitialized in this function earley-stalin.c:8728: warning: `a867' might be used uninitialized in this function earley-stalin.c:8737: warning: `a876' might be used uninitialized in this function earley-stalin.c:8739: warning: `a878' might be used uninitialized in this function earley-stalin.c:8744: warning: `a883' might be used uninitialized in this function earley-stalin.c:8746: warning: `a885' might be used uninitialized in this function earley-stalin.c:8750: warning: `a889' might be used uninitialized in this function earley-stalin.c:8758: warning: `a897' might be used uninitialized in this function earley-stalin.c:8762: warning: `a901' might be used uninitialized in this function earley-stalin.c:8765: warning: `a904' might be used uninitialized in this function earley-stalin.c:8785: warning: `a2671' might be used uninitialized in this function earley-stalin.c:8786: warning: `a2672' might be used uninitialized in this function earley-stalin.c:8787: warning: `a2673' might be used uninitialized in this function earley-stalin.c:8788: warning: `a2674' might be used uninitialized in this function earley-stalin.c:8789: warning: `a2675' might be used uninitialized in this function earley-stalin.c:8795: warning: `a2681' might be used uninitialized in this function earley-stalin.c:8796: warning: `a2682' might be used uninitialized in this function earley-stalin.c:8797: warning: `a2683' might be used uninitialized in this function earley-stalin.c:8798: warning: `a2684' might be used uninitialized in this function earley-stalin.c:8799: warning: `a2685' might be used uninitialized in this function earley-stalin.c:8805: warning: `a2711' might be used uninitialized in this function earley-stalin.c:8806: warning: `a2712' might be used uninitialized in this function earley-stalin.c:8807: warning: `a2713' might be used uninitialized in this function earley-stalin.c:8808: warning: `a2714' might be used uninitialized in this function earley-stalin.c:8814: warning: `a2794' might be used uninitialized in this function earley-stalin.c:8816: warning: `a2796' might be used uninitialized in this function earley-stalin.c:8831: warning: `a2919' might be used uninitialized in this function earley-stalin.c:8832: warning: `a2920' might be used uninitialized in this function earley-stalin.c:8833: warning: `a2921' might be used uninitialized in this function earley-stalin.c:8834: warning: `a2922' might be used uninitialized in this function earley-stalin.c: In function `f73': earley-stalin.c:12065: warning: `a799' might be used uninitialized in this function earley-stalin.c:12066: warning: `a800' might be used uninitialized in this function earley-stalin.c:12067: warning: `a801' might be used uninitialized in this function earley-stalin.c: In function `f60': earley-stalin.c:12128: warning: `a781' might be used uninitialized in this function earley-stalin.c:12131: warning: `a784' might be used uninitialized in this function earley-stalin.c:12132: warning: `a785' might be used uninitialized in this function earley-stalin.c: In function `f0': earley-stalin.c:12318: warning: `a1' might be used uninitialized in this function earley-stalin.c:12319: warning: `a2' might be used uninitialized in this function earley-stalin.c:12320: warning: `a3' might be used uninitialized in this function earley-stalin.c:12321: warning: `a4' might be used uninitialized in this function earley-stalin.c:12322: warning: `a5' might be used uninitialized in this function earley-stalin.c:12323: warning: `a6' might be used uninitialized in this function earley-stalin.c:12324: warning: `a7' might be used uninitialized in this function earley-stalin.c:12325: warning: `a8' might be used uninitialized in this function earley-stalin.c:12326: warning: `a9' might be used uninitialized in this function earley-stalin.c:12327: warning: `a10' might be used uninitialized in this function earley-stalin.c:12328: warning: `a11' might be used uninitialized in this function earley-stalin.c:12329: warning: `a12' might be used uninitialized in this function earley-stalin.c:12330: warning: `a13' might be used uninitialized in this function earley-stalin.c:12331: warning: `a14' might be used uninitialized in this function earley-stalin.c:12332: warning: `a15' might be used uninitialized in this function earley-stalin.c:12333: warning: `a16' might be used uninitialized in this function earley-stalin.c:12334: warning: `a17' might be used uninitialized in this function earley-stalin.c:12335: warning: `a18' might be used uninitialized in this function earley-stalin.c:12336: warning: `a19' might be used uninitialized in this function earley-stalin.c:12337: warning: `a20' might be used uninitialized in this function earley-stalin.c:12338: warning: `a21' might be used uninitialized in this function earley-stalin.c:12339: warning: `a22' might be used uninitialized in this function earley-stalin.c:12340: warning: `a23' might be used uninitialized in this function earley-stalin.c:12341: warning: `a24' might be used uninitialized in this function earley-stalin.c:12342: warning: `a25' might be used uninitialized in this function earley-stalin.c:12343: warning: `a26' might be used uninitialized in this function earley-stalin.c:12344: warning: `a27' might be used uninitialized in this function earley-stalin.c:12345: warning: `a28' might be used uninitialized in this function earley-stalin.c:12346: warning: `a29' might be used uninitialized in this function earley-stalin.c:12347: warning: `a30' might be used uninitialized in this function earley-stalin.c:12348: warning: `a31' might be used uninitialized in this function earley-stalin.c:12349: warning: `a32' might be used uninitialized in this function earley-stalin.c:12350: warning: `a33' might be used uninitialized in this function earley-stalin.c:12351: warning: `a34' might be used uninitialized in this function earley-stalin.c:12352: warning: `a35' might be used uninitialized in this function earley-stalin.c:12353: warning: `a36' might be used uninitialized in this function earley-stalin.c:12354: warning: `a37' might be used uninitialized in this function earley-stalin.c:12355: warning: `a38' might be used uninitialized in this function earley-stalin.c:12356: warning: `a39' might be used uninitialized in this function earley-stalin.c:12357: warning: `a40' might be used uninitialized in this function earley-stalin.c:12358: warning: `a41' might be used uninitialized in this function earley-stalin.c:12359: warning: `a42' might be used uninitialized in this function earley-stalin.c:12360: warning: `a43' might be used uninitialized in this function earley-stalin.c:12361: warning: `a44' might be used uninitialized in this function earley-stalin.c:12362: warning: `a45' might be used uninitialized in this function earley-stalin.c:12363: warning: `a46' might be used uninitialized in this function earley-stalin.c:12364: warning: `a47' might be used uninitialized in this function earley-stalin.c:12365: warning: `a48' might be used uninitialized in this function earley-stalin.c:12366: warning: `a49' might be used uninitialized in this function earley-stalin.c:12367: warning: `a50' might be used uninitialized in this function earley-stalin.c:12368: warning: `a51' might be used uninitialized in this function earley-stalin.c:12369: warning: `a52' might be used uninitialized in this function earley-stalin.c:12370: warning: `a53' might be used uninitialized in this function earley-stalin.c:12371: warning: `a54' might be used uninitialized in this function earley-stalin.c:12372: warning: `a55' might be used uninitialized in this function earley-stalin.c:12373: warning: `a56' might be used uninitialized in this function earley-stalin.c:12374: warning: `a57' might be used uninitialized in this function earley-stalin.c:12375: warning: `a58' might be used uninitialized in this function earley-stalin.c:12376: warning: `a59' might be used uninitialized in this function earley-stalin.c:12377: warning: `a60' might be used uninitialized in this function earley-stalin.c:12378: warning: `a61' might be used uninitialized in this function earley-stalin.c:12379: warning: `a62' might be used uninitialized in this function earley-stalin.c:12380: warning: `a63' might be used uninitialized in this function earley-stalin.c:12381: warning: `a64' might be used uninitialized in this function earley-stalin.c:12382: warning: `a65' might be used uninitialized in this function earley-stalin.c:12383: warning: `a66' might be used uninitialized in this function earley-stalin.c:12384: warning: `a67' might be used uninitialized in this function earley-stalin.c:12385: warning: `a68' might be used uninitialized in this function earley-stalin.c:12386: warning: `a69' might be used uninitialized in this function earley-stalin.c:12387: warning: `a70' might be used uninitialized in this function earley-stalin.c:12388: warning: `a71' might be used uninitialized in this function earley-stalin.c:12389: warning: `a72' might be used uninitialized in this function earley-stalin.c:12390: warning: `a73' might be used uninitialized in this function earley-stalin.c:12391: warning: `a74' might be used uninitialized in this function earley-stalin.c:12392: warning: `a75' might be used uninitialized in this function earley-stalin.c:12393: warning: `a76' might be used uninitialized in this function earley-stalin.c:12394: warning: `a77' might be used uninitialized in this function earley-stalin.c:12395: warning: `a78' might be used uninitialized in this function earley-stalin.c:12396: warning: `a79' might be used uninitialized in this function earley-stalin.c:12397: warning: `a80' might be used uninitialized in this function earley-stalin.c:12398: warning: `a81' might be used uninitialized in this function earley-stalin.c:12399: warning: `a82' might be used uninitialized in this function earley-stalin.c:12400: warning: `a83' might be used uninitialized in this function earley-stalin.c:12401: warning: `a84' might be used uninitialized in this function earley-stalin.c:12402: warning: `a85' might be used uninitialized in this function earley-stalin.c:12403: warning: `a86' might be used uninitialized in this function earley-stalin.c:12404: warning: `a87' might be used uninitialized in this function earley-stalin.c:12405: warning: `a88' might be used uninitialized in this function earley-stalin.c:12406: warning: `a89' might be used uninitialized in this function earley-stalin.c:12407: warning: `a90' might be used uninitialized in this function earley-stalin.c:12408: warning: `a91' might be used uninitialized in this function earley-stalin.c:12409: warning: `a92' might be used uninitialized in this function earley-stalin.c:12410: warning: `a93' might be used uninitialized in this function earley-stalin.c:12411: warning: `a94' might be used uninitialized in this function earley-stalin.c:12412: warning: `a95' might be used uninitialized in this function earley-stalin.c:12413: warning: `a96' might be used uninitialized in this function earley-stalin.c:12414: warning: `a97' might be used uninitialized in this function earley-stalin.c:12415: warning: `a98' might be used uninitialized in this function earley-stalin.c:12416: warning: `a99' might be used uninitialized in this function earley-stalin.c:12417: warning: `a100' might be used uninitialized in this function earley-stalin.c:12418: warning: `a101' might be used uninitialized in this function earley-stalin.c:12419: warning: `a102' might be used uninitialized in this function earley-stalin.c:12420: warning: `a103' might be used uninitialized in this function earley-stalin.c:12421: warning: `a104' might be used uninitialized in this function earley-stalin.c:12422: warning: `a105' might be used uninitialized in this function earley-stalin.c:12423: warning: `a106' might be used uninitialized in this function earley-stalin.c:12424: warning: `a107' might be used uninitialized in this function earley-stalin.c:12425: warning: `a108' might be used uninitialized in this function earley-stalin.c:12426: warning: `a109' might be used uninitialized in this function earley-stalin.c:12427: warning: `a110' might be used uninitialized in this function earley-stalin.c:12428: warning: `a111' might be used uninitialized in this function earley-stalin.c:12429: warning: `a112' might be used uninitialized in this function earley-stalin.c:12430: warning: `a113' might be used uninitialized in this function earley-stalin.c:12431: warning: `a114' might be used uninitialized in this function earley-stalin.c:12432: warning: `a115' might be used uninitialized in this function earley-stalin.c:12433: warning: `a116' might be used uninitialized in this function earley-stalin.c:12434: warning: `a117' might be used uninitialized in this function earley-stalin.c:12435: warning: `a118' might be used uninitialized in this function earley-stalin.c:12436: warning: `a119' might be used uninitialized in this function earley-stalin.c:12437: warning: `a120' might be used uninitialized in this function earley-stalin.c:12438: warning: `a121' might be used uninitialized in this function earley-stalin.c:12439: warning: `a122' might be used uninitialized in this function earley-stalin.c:12440: warning: `a123' might be used uninitialized in this function earley-stalin.c:12441: warning: `a124' might be used uninitialized in this function earley-stalin.c:12442: warning: `a125' might be used uninitialized in this function earley-stalin.c:12443: warning: `a126' might be used uninitialized in this function earley-stalin.c:12444: warning: `a127' might be used uninitialized in this function earley-stalin.c:12445: warning: `a128' might be used uninitialized in this function earley-stalin.c:12446: warning: `a129' might be used uninitialized in this function earley-stalin.c:12447: warning: `a130' might be used uninitialized in this function earley-stalin.c:12448: warning: `a131' might be used uninitialized in this function earley-stalin.c:12449: warning: `a132' might be used uninitialized in this function earley-stalin.c:12450: warning: `a133' might be used uninitialized in this function earley-stalin.c:12451: warning: `a134' might be used uninitialized in this function earley-stalin.c:12452: warning: `a135' might be used uninitialized in this function earley-stalin.c:12453: warning: `a136' might be used uninitialized in this function earley-stalin.c:12454: warning: `a137' might be used uninitialized in this function earley-stalin.c:12455: warning: `a138' might be used uninitialized in this function earley-stalin.c:12456: warning: `a139' might be used uninitialized in this function earley-stalin.c:12457: warning: `a140' might be used uninitialized in this function earley-stalin.c:12458: warning: `a141' might be used uninitialized in this function earley-stalin.c:12459: warning: `a142' might be used uninitialized in this function earley-stalin.c:12460: warning: `a143' might be used uninitialized in this function earley-stalin.c:12461: warning: `a144' might be used uninitialized in this function earley-stalin.c:12462: warning: `a145' might be used uninitialized in this function earley-stalin.c:12463: warning: `a146' might be used uninitialized in this function earley-stalin.c:12464: warning: `a147' might be used uninitialized in this function earley-stalin.c:12465: warning: `a148' might be used uninitialized in this function earley-stalin.c:12466: warning: `a149' might be used uninitialized in this function earley-stalin.c:12467: warning: `a150' might be used uninitialized in this function earley-stalin.c:12468: warning: `a151' might be used uninitialized in this function earley-stalin.c:12469: warning: `a152' might be used uninitialized in this function earley-stalin.c:12470: warning: `a153' might be used uninitialized in this function earley-stalin.c:12471: warning: `a154' might be used uninitialized in this function earley-stalin.c:12472: warning: `a155' might be used uninitialized in this function earley-stalin.c:12473: warning: `a156' might be used uninitialized in this function earley-stalin.c:12474: warning: `a157' might be used uninitialized in this function earley-stalin.c:12475: warning: `a158' might be used uninitialized in this function earley-stalin.c:12476: warning: `a159' might be used uninitialized in this function earley-stalin.c:12477: warning: `a160' might be used uninitialized in this function earley-stalin.c:12478: warning: `a161' might be used uninitialized in this function earley-stalin.c:12479: warning: `a162' might be used uninitialized in this function earley-stalin.c:12480: warning: `a163' might be used uninitialized in this function earley-stalin.c:12481: warning: `a164' might be used uninitialized in this function earley-stalin.c:12482: warning: `a165' might be used uninitialized in this function earley-stalin.c:12483: warning: `a166' might be used uninitialized in this function earley-stalin.c:12484: warning: `a167' might be used uninitialized in this function earley-stalin.c:12485: warning: `a168' might be used uninitialized in this function earley-stalin.c:12486: warning: `a169' might be used uninitialized in this function earley-stalin.c:12487: warning: `a170' might be used uninitialized in this function earley-stalin.c:12488: warning: `a171' might be used uninitialized in this function earley-stalin.c:12489: warning: `a172' might be used uninitialized in this function earley-stalin.c:12490: warning: `a173' might be used uninitialized in this function earley-stalin.c:12491: warning: `a174' might be used uninitialized in this function earley-stalin.c:12492: warning: `a175' might be used uninitialized in this function earley-stalin.c:12493: warning: `a176' might be used uninitialized in this function earley-stalin.c:12494: warning: `a177' might be used uninitialized in this function earley-stalin.c:12495: warning: `a178' might be used uninitialized in this function earley-stalin.c:12496: warning: `a179' might be used uninitialized in this function earley-stalin.c:12497: warning: `a180' might be used uninitialized in this function earley-stalin.c:12498: warning: `a181' might be used uninitialized in this function earley-stalin.c:12499: warning: `a182' might be used uninitialized in this function earley-stalin.c:12500: warning: `a183' might be used uninitialized in this function earley-stalin.c:12501: warning: `a184' might be used uninitialized in this function earley-stalin.c:12502: warning: `a185' might be used uninitialized in this function earley-stalin.c:12503: warning: `a186' might be used uninitialized in this function earley-stalin.c:12504: warning: `a187' might be used uninitialized in this function earley-stalin.c:12505: warning: `a188' might be used uninitialized in this function earley-stalin.c:12506: warning: `a189' might be used uninitialized in this function earley-stalin.c:12507: warning: `a190' might be used uninitialized in this function earley-stalin.c:12508: warning: `a191' might be used uninitialized in this function earley-stalin.c:12509: warning: `a192' might be used uninitialized in this function earley-stalin.c:12510: warning: `a193' might be used uninitialized in this function earley-stalin.c:12511: warning: `a194' might be used uninitialized in this function earley-stalin.c:12512: warning: `a195' might be used uninitialized in this function earley-stalin.c:12513: warning: `a196' might be used uninitialized in this function earley-stalin.c:12514: warning: `a197' might be used uninitialized in this function earley-stalin.c:12515: warning: `a198' might be used uninitialized in this function earley-stalin.c:12516: warning: `a199' might be used uninitialized in this function earley-stalin.c:12517: warning: `a200' might be used uninitialized in this function earley-stalin.c:12518: warning: `a201' might be used uninitialized in this function earley-stalin.c:12519: warning: `a202' might be used uninitialized in this function earley-stalin.c:12520: warning: `a203' might be used uninitialized in this function earley-stalin.c:12521: warning: `a204' might be used uninitialized in this function earley-stalin.c:12522: warning: `a205' might be used uninitialized in this function earley-stalin.c:12523: warning: `a206' might be used uninitialized in this function earley-stalin.c:12524: warning: `a207' might be used uninitialized in this function earley-stalin.c:12525: warning: `a208' might be used uninitialized in this function earley-stalin.c:12526: warning: `a209' might be used uninitialized in this function earley-stalin.c:12527: warning: `a210' might be used uninitialized in this function earley-stalin.c:12528: warning: `a211' might be used uninitialized in this function earley-stalin.c:12529: warning: `a212' might be used uninitialized in this function earley-stalin.c:12530: warning: `a213' might be used uninitialized in this function earley-stalin.c:12531: warning: `a214' might be used uninitialized in this function earley-stalin.c:12532: warning: `a215' might be used uninitialized in this function earley-stalin.c:12533: warning: `a216' might be used uninitialized in this function earley-stalin.c:12534: warning: `a217' might be used uninitialized in this function earley-stalin.c:12535: warning: `a218' might be used uninitialized in this function earley-stalin.c:12536: warning: `a219' might be used uninitialized in this function earley-stalin.c:12537: warning: `a220' might be used uninitialized in this function earley-stalin.c:12538: warning: `a221' might be used uninitialized in this function earley-stalin.c:12539: warning: `a222' might be used uninitialized in this function earley-stalin.c:12540: warning: `a223' might be used uninitialized in this function earley-stalin.c:12541: warning: `a224' might be used uninitialized in this function earley-stalin.c:12542: warning: `a225' might be used uninitialized in this function earley-stalin.c:12543: warning: `a226' might be used uninitialized in this function earley-stalin.c:12544: warning: `a227' might be used uninitialized in this function earley-stalin.c:12545: warning: `a228' might be used uninitialized in this function earley-stalin.c:12546: warning: `a229' might be used uninitialized in this function earley-stalin.c:12547: warning: `a230' might be used uninitialized in this function earley-stalin.c:12548: warning: `a231' might be used uninitialized in this function earley-stalin.c:12549: warning: `a232' might be used uninitialized in this function earley-stalin.c:12550: warning: `a233' might be used uninitialized in this function earley-stalin.c:12551: warning: `a234' might be used uninitialized in this function earley-stalin.c:12552: warning: `a235' might be used uninitialized in this function earley-stalin.c:12553: warning: `a236' might be used uninitialized in this function earley-stalin.c:12554: warning: `a237' might be used uninitialized in this function earley-stalin.c:12555: warning: `a238' might be used uninitialized in this function earley-stalin.c:12556: warning: `a239' might be used uninitialized in this function earley-stalin.c:12557: warning: `a240' might be used uninitialized in this function earley-stalin.c:12558: warning: `a241' might be used uninitialized in this function earley-stalin.c:12559: warning: `a242' might be used uninitialized in this function earley-stalin.c:12560: warning: `a243' might be used uninitialized in this function earley-stalin.c:12561: warning: `a244' might be used uninitialized in this function earley-stalin.c:12562: warning: `a245' might be used uninitialized in this function earley-stalin.c:12563: warning: `a246' might be used uninitialized in this function earley-stalin.c:12564: warning: `a247' might be used uninitialized in this function earley-stalin.c:12565: warning: `a248' might be used uninitialized in this function earley-stalin.c:12566: warning: `a249' might be used uninitialized in this function earley-stalin.c:12567: warning: `a250' might be used uninitialized in this function earley-stalin.c:12568: warning: `a251' might be used uninitialized in this function earley-stalin.c:12569: warning: `a252' might be used uninitialized in this function earley-stalin.c:12570: warning: `a253' might be used uninitialized in this function earley-stalin.c:12571: warning: `a254' might be used uninitialized in this function earley-stalin.c:12572: warning: `a255' might be used uninitialized in this function earley-stalin.c:12573: warning: `a256' might be used uninitialized in this function earley-stalin.c:12574: warning: `a257' might be used uninitialized in this function earley-stalin.c:12575: warning: `a258' might be used uninitialized in this function earley-stalin.c:12576: warning: `a259' might be used uninitialized in this function earley-stalin.c:12577: warning: `a260' might be used uninitialized in this function earley-stalin.c:12578: warning: `a261' might be used uninitialized in this function earley-stalin.c:12579: warning: `a262' might be used uninitialized in this function earley-stalin.c:12580: warning: `a263' might be used uninitialized in this function earley-stalin.c:12581: warning: `a264' might be used uninitialized in this function earley-stalin.c:12582: warning: `a265' might be used uninitialized in this function earley-stalin.c:12583: warning: `a266' might be used uninitialized in this function earley-stalin.c:12584: warning: `a267' might be used uninitialized in this function earley-stalin.c:12585: warning: `a268' might be used uninitialized in this function earley-stalin.c:12586: warning: `a269' might be used uninitialized in this function earley-stalin.c:12587: warning: `a270' might be used uninitialized in this function earley-stalin.c:12588: warning: `a271' might be used uninitialized in this function earley-stalin.c:12589: warning: `a272' might be used uninitialized in this function earley-stalin.c:12590: warning: `a273' might be used uninitialized in this function earley-stalin.c:12591: warning: `a274' might be used uninitialized in this function earley-stalin.c:12592: warning: `a275' might be used uninitialized in this function earley-stalin.c:12593: warning: `a276' might be used uninitialized in this function earley-stalin.c:12594: warning: `a277' might be used uninitialized in this function earley-stalin.c:12595: warning: `a278' might be used uninitialized in this function earley-stalin.c:12596: warning: `a279' might be used uninitialized in this function earley-stalin.c:12597: warning: `a280' might be used uninitialized in this function earley-stalin.c:12598: warning: `a281' might be used uninitialized in this function earley-stalin.c:12599: warning: `a282' might be used uninitialized in this function earley-stalin.c:12600: warning: `a283' might be used uninitialized in this function earley-stalin.c:12601: warning: `a284' might be used uninitialized in this function earley-stalin.c:12602: warning: `a285' might be used uninitialized in this function earley-stalin.c:12603: warning: `a286' might be used uninitialized in this function earley-stalin.c:12604: warning: `a287' might be used uninitialized in this function earley-stalin.c:12605: warning: `a288' might be used uninitialized in this function earley-stalin.c:12606: warning: `a289' might be used uninitialized in this function earley-stalin.c:12607: warning: `a290' might be used uninitialized in this function earley-stalin.c:12608: warning: `a291' might be used uninitialized in this function earley-stalin.c:12609: warning: `a292' might be used uninitialized in this function earley-stalin.c:12610: warning: `a293' might be used uninitialized in this function earley-stalin.c:12611: warning: `a294' might be used uninitialized in this function earley-stalin.c:12612: warning: `a295' might be used uninitialized in this function earley-stalin.c:12613: warning: `a296' might be used uninitialized in this function earley-stalin.c:12614: warning: `a297' might be used uninitialized in this function earley-stalin.c:12615: warning: `a298' might be used uninitialized in this function earley-stalin.c:12616: warning: `a299' might be used uninitialized in this function earley-stalin.c:12617: warning: `a300' might be used uninitialized in this function earley-stalin.c:12618: warning: `a301' might be used uninitialized in this function earley-stalin.c:12619: warning: `a302' might be used uninitialized in this function earley-stalin.c:12620: warning: `a303' might be used uninitialized in this function earley-stalin.c:12621: warning: `a304' might be used uninitialized in this function earley-stalin.c:12622: warning: `a305' might be used uninitialized in this function earley-stalin.c:12623: warning: `a306' might be used uninitialized in this function earley-stalin.c:12624: warning: `a307' might be used uninitialized in this function earley-stalin.c:12625: warning: `a308' might be used uninitialized in this function earley-stalin.c:12626: warning: `a309' might be used uninitialized in this function earley-stalin.c:12627: warning: `a310' might be used uninitialized in this function earley-stalin.c:12628: warning: `a311' might be used uninitialized in this function earley-stalin.c:12629: warning: `a312' might be used uninitialized in this function earley-stalin.c:12630: warning: `a313' might be used uninitialized in this function earley-stalin.c:12631: warning: `a314' might be used uninitialized in this function earley-stalin.c:12632: warning: `a315' might be used uninitialized in this function earley-stalin.c:12633: warning: `a316' might be used uninitialized in this function earley-stalin.c:12634: warning: `a317' might be used uninitialized in this function earley-stalin.c:12635: warning: `a318' might be used uninitialized in this function earley-stalin.c:12636: warning: `a319' might be used uninitialized in this function earley-stalin.c:12637: warning: `a320' might be used uninitialized in this function earley-stalin.c:12638: warning: `a321' might be used uninitialized in this function earley-stalin.c:12639: warning: `a322' might be used uninitialized in this function earley-stalin.c:12640: warning: `a323' might be used uninitialized in this function earley-stalin.c:12641: warning: `a324' might be used uninitialized in this function earley-stalin.c:12642: warning: `a325' might be used uninitialized in this function earley-stalin.c:12643: warning: `a326' might be used uninitialized in this function earley-stalin.c:12644: warning: `a327' might be used uninitialized in this function earley-stalin.c:12645: warning: `a328' might be used uninitialized in this function earley-stalin.c:12646: warning: `a329' might be used uninitialized in this function earley-stalin.c:12647: warning: `a330' might be used uninitialized in this function earley-stalin.c:12648: warning: `a331' might be used uninitialized in this function earley-stalin.c:12649: warning: `a332' might be used uninitialized in this function earley-stalin.c:12650: warning: `a333' might be used uninitialized in this function earley-stalin.c:12651: warning: `a334' might be used uninitialized in this function earley-stalin.c:12652: warning: `a335' might be used uninitialized in this function earley-stalin.c:12653: warning: `a336' might be used uninitialized in this function earley-stalin.c:12654: warning: `a337' might be used uninitialized in this function earley-stalin.c:12655: warning: `a338' might be used uninitialized in this function earley-stalin.c:12656: warning: `a339' might be used uninitialized in this function earley-stalin.c:12657: warning: `a340' might be used uninitialized in this function earley-stalin.c:12658: warning: `a341' might be used uninitialized in this function earley-stalin.c:12659: warning: `a342' might be used uninitialized in this function earley-stalin.c:12660: warning: `a343' might be used uninitialized in this function earley-stalin.c:12661: warning: `a344' might be used uninitialized in this function earley-stalin.c:12662: warning: `a345' might be used uninitialized in this function earley-stalin.c:12663: warning: `a346' might be used uninitialized in this function earley-stalin.c:12664: warning: `a347' might be used uninitialized in this function earley-stalin.c:12665: warning: `a348' might be used uninitialized in this function earley-stalin.c:12666: warning: `a349' might be used uninitialized in this function earley-stalin.c:12667: warning: `a350' might be used uninitialized in this function earley-stalin.c:12668: warning: `a351' might be used uninitialized in this function earley-stalin.c:12669: warning: `a352' might be used uninitialized in this function earley-stalin.c:12670: warning: `a353' might be used uninitialized in this function earley-stalin.c:12671: warning: `a354' might be used uninitialized in this function earley-stalin.c:12672: warning: `a355' might be used uninitialized in this function earley-stalin.c:12673: warning: `a356' might be used uninitialized in this function earley-stalin.c:12674: warning: `a357' might be used uninitialized in this function earley-stalin.c:12675: warning: `a358' might be used uninitialized in this function earley-stalin.c:12676: warning: `a359' might be used uninitialized in this function earley-stalin.c:12677: warning: `a360' might be used uninitialized in this function earley-stalin.c:12678: warning: `a361' might be used uninitialized in this function earley-stalin.c:12679: warning: `a362' might be used uninitialized in this function earley-stalin.c:12680: warning: `a363' might be used uninitialized in this function earley-stalin.c:12681: warning: `a364' might be used uninitialized in this function earley-stalin.c:12682: warning: `a365' might be used uninitialized in this function earley-stalin.c:12683: warning: `a366' might be used uninitialized in this function earley-stalin.c:12684: warning: `a367' might be used uninitialized in this function earley-stalin.c:12685: warning: `a368' might be used uninitialized in this function earley-stalin.c:12686: warning: `a369' might be used uninitialized in this function earley-stalin.c:12687: warning: `a370' might be used uninitialized in this function earley-stalin.c:12688: warning: `a371' might be used uninitialized in this function earley-stalin.c:12689: warning: `a372' might be used uninitialized in this function earley-stalin.c:12690: warning: `a373' might be used uninitialized in this function earley-stalin.c:12691: warning: `a374' might be used uninitialized in this function earley-stalin.c:12692: warning: `a375' might be used uninitialized in this function earley-stalin.c:12693: warning: `a376' might be used uninitialized in this function earley-stalin.c:12694: warning: `a377' might be used uninitialized in this function earley-stalin.c:12695: warning: `a378' might be used uninitialized in this function earley-stalin.c:12696: warning: `a379' might be used uninitialized in this function earley-stalin.c:12697: warning: `a380' might be used uninitialized in this function earley-stalin.c:12698: warning: `a381' might be used uninitialized in this function earley-stalin.c:12699: warning: `a382' might be used uninitialized in this function earley-stalin.c:12700: warning: `a383' might be used uninitialized in this function earley-stalin.c:12701: warning: `a384' might be used uninitialized in this function earley-stalin.c:12702: warning: `a385' might be used uninitialized in this function earley-stalin.c:12703: warning: `a386' might be used uninitialized in this function earley-stalin.c:12704: warning: `a387' might be used uninitialized in this function earley-stalin.c:12705: warning: `a388' might be used uninitialized in this function earley-stalin.c:12706: warning: `a389' might be used uninitialized in this function earley-stalin.c:12707: warning: `a390' might be used uninitialized in this function earley-stalin.c:12708: warning: `a391' might be used uninitialized in this function earley-stalin.c:12709: warning: `a392' might be used uninitialized in this function earley-stalin.c:12710: warning: `a393' might be used uninitialized in this function earley-stalin.c:12711: warning: `a394' might be used uninitialized in this function earley-stalin.c:12712: warning: `a395' might be used uninitialized in this function earley-stalin.c:12713: warning: `a396' might be used uninitialized in this function earley-stalin.c:12714: warning: `a397' might be used uninitialized in this function earley-stalin.c:12715: warning: `a398' might be used uninitialized in this function earley-stalin.c:12716: warning: `a399' might be used uninitialized in this function earley-stalin.c:12717: warning: `a400' might be used uninitialized in this function earley-stalin.c:12718: warning: `a401' might be used uninitialized in this function earley-stalin.c:12719: warning: `a402' might be used uninitialized in this function earley-stalin.c:12720: warning: `a403' might be used uninitialized in this function earley-stalin.c:12721: warning: `a404' might be used uninitialized in this function earley-stalin.c:12722: warning: `a405' might be used uninitialized in this function earley-stalin.c:12723: warning: `a406' might be used uninitialized in this function earley-stalin.c:12724: warning: `a407' might be used uninitialized in this function earley-stalin.c:12725: warning: `a408' might be used uninitialized in this function earley-stalin.c:12726: warning: `a409' might be used uninitialized in this function earley-stalin.c:12727: warning: `a410' might be used uninitialized in this function earley-stalin.c:12728: warning: `a411' might be used uninitialized in this function earley-stalin.c:12729: warning: `a412' might be used uninitialized in this function earley-stalin.c:12730: warning: `a413' might be used uninitialized in this function earley-stalin.c:12731: warning: `a414' might be used uninitialized in this function earley-stalin.c:12732: warning: `a415' might be used uninitialized in this function earley-stalin.c:12733: warning: `a416' might be used uninitialized in this function earley-stalin.c:12734: warning: `a417' might be used uninitialized in this function earley-stalin.c:12735: warning: `a418' might be used uninitialized in this function earley-stalin.c:12736: warning: `a419' might be used uninitialized in this function earley-stalin.c:12737: warning: `a420' might be used uninitialized in this function earley-stalin.c:12738: warning: `a421' might be used uninitialized in this function earley-stalin.c:12739: warning: `a422' might be used uninitialized in this function earley-stalin.c:12740: warning: `a423' might be used uninitialized in this function earley-stalin.c:12741: warning: `a424' might be used uninitialized in this function earley-stalin.c:12742: warning: `a425' might be used uninitialized in this function earley-stalin.c:12743: warning: `a426' might be used uninitialized in this function earley-stalin.c:12744: warning: `a427' might be used uninitialized in this function earley-stalin.c:12745: warning: `a428' might be used uninitialized in this function earley-stalin.c:12746: warning: `a429' might be used uninitialized in this function earley-stalin.c:12747: warning: `a430' might be used uninitialized in this function earley-stalin.c:12748: warning: `a431' might be used uninitialized in this function earley-stalin.c:12749: warning: `a432' might be used uninitialized in this function earley-stalin.c:12750: warning: `a433' might be used uninitialized in this function earley-stalin.c:12751: warning: `a434' might be used uninitialized in this function earley-stalin.c:12752: warning: `a435' might be used uninitialized in this function earley-stalin.c:12966: warning: `a649' might be used uninitialized in this function earley-stalin.c:12967: warning: `a651' might be used uninitialized in this function earley-stalin.c:12968: warning: `a653' might be used uninitialized in this function earley-stalin.c:12969: warning: `a655' might be used uninitialized in this function earley-stalin.c:12970: warning: `a656' might be used uninitialized in this function earley-stalin.c:12971: warning: `a657' might be used uninitialized in this function earley-stalin.c:12972: warning: `a658' might be used uninitialized in this function earley-stalin.c:12973: warning: `a659' might be used uninitialized in this function earley-stalin.c:12974: warning: `a660' might be used uninitialized in this function earley-stalin.c:12975: warning: `a661' might be used uninitialized in this function earley-stalin.c:12976: warning: `a662' might be used uninitialized in this function earley-stalin.c:12977: warning: `a663' might be used uninitialized in this function earley-stalin.c:12983: warning: `a672' might be used uninitialized in this function earley-stalin.c:12984: warning: `a673' might be used uninitialized in this function earley-stalin.c:12990: warning: `a679' might be used uninitialized in this function earley-stalin.c:12995: warning: `a686' might be used uninitialized in this function earley-stalin.c:12996: warning: `a687' might be used uninitialized in this function earley-stalin.c:12997: warning: `a688' might be used uninitialized in this function earley-stalin.c:12998: warning: `a689' might be used uninitialized in this function earley-stalin.c:12999: warning: `a690' might be used uninitialized in this function earley-stalin.c:13000: warning: `a691' might be used uninitialized in this function earley-stalin.c:13009: warning: `a700' might be used uninitialized in this function earley-stalin.c:13010: warning: `a701' might be used uninitialized in this function earley-stalin.c:13011: warning: `a702' might be used uninitialized in this function earley-stalin.c:13014: warning: `a705' might be used uninitialized in this function earley-stalin.c:13015: warning: `a706' might be used uninitialized in this function earley-stalin.c:13016: warning: `a707' might be used uninitialized in this function earley-stalin.c:13017: warning: `a708' might be used uninitialized in this function earley-stalin.c:13018: warning: `a709' might be used uninitialized in this function earley-stalin.c:13019: warning: `a710' might be used uninitialized in this function earley-stalin.c:13020: warning: `a711' might be used uninitialized in this function earley-stalin.c:13021: warning: `a712' might be used uninitialized in this function earley-stalin.c:13022: warning: `a713' might be used uninitialized in this function earley-stalin.c:13023: warning: `a714' might be used uninitialized in this function earley-stalin.c:13024: warning: `a715' might be used uninitialized in this function earley-stalin.c:13025: warning: `a716' might be used uninitialized in this function earley-stalin.c:13026: warning: `a717' might be used uninitialized in this function earley-stalin.c:13027: warning: `a718' might be used uninitialized in this function earley-stalin.c:13028: warning: `a719' might be used uninitialized in this function earley-stalin.c:13029: warning: `a720' might be used uninitialized in this function earley-stalin.c:13030: warning: `a721' might be used uninitialized in this function earley-stalin.c:13031: warning: `a722' might be used uninitialized in this function earley-stalin.c:13032: warning: `a723' might be used uninitialized in this function earley-stalin.c:13033: warning: `a724' might be used uninitialized in this function earley-stalin.c:13034: warning: `a725' might be used uninitialized in this function earley-stalin.c:13035: warning: `a726' might be used uninitialized in this function earley-stalin.c:13036: warning: `a727' might be used uninitialized in this function earley-stalin.c:13037: warning: `a728' might be used uninitialized in this function earley-stalin.c:13038: warning: `a729' might be used uninitialized in this function earley-stalin.c:13039: warning: `a730' might be used uninitialized in this function earley-stalin.c:13040: warning: `a731' might be used uninitialized in this function earley-stalin.c:13041: warning: `a732' might be used uninitialized in this function earley-stalin.c:13042: warning: `a733' might be used uninitialized in this function earley-stalin.c:13043: warning: `a734' might be used uninitialized in this function earley-stalin.c:13044: warning: `a735' might be used uninitialized in this function earley-stalin.c:13045: warning: `a736' might be used uninitialized in this function earley-stalin.c:13046: warning: `a737' might be used uninitialized in this function earley-stalin.c:13047: warning: `a738' might be used uninitialized in this function earley-stalin.c:13048: warning: `a739' might be used uninitialized in this function earley-stalin.c:13049: warning: `a740' might be used uninitialized in this function earley-stalin.c:13050: warning: `a741' might be used uninitialized in this function earley-stalin.c:13051: warning: `a742' might be used uninitialized in this function earley-stalin.c:13052: warning: `a743' might be used uninitialized in this function earley-stalin.c:13053: warning: `a744' might be used uninitialized in this function earley-stalin.c:13054: warning: `a745' might be used uninitialized in this function earley-stalin.c:13055: warning: `a746' might be used uninitialized in this function earley-stalin.c:13056: warning: `a747' might be used uninitialized in this function earley-stalin.c:13057: warning: `a748' might be used uninitialized in this function earley-stalin.c:13058: warning: `a749' might be used uninitialized in this function earley-stalin.c:13059: warning: `a750' might be used uninitialized in this function earley-stalin.c:13060: warning: `a751' might be used uninitialized in this function earley-stalin.c:13061: warning: `a752' might be used uninitialized in this function earley-stalin.c:13070: warning: `a761' might be used uninitialized in this function earley-stalin.c:13073: warning: `a764' might be used uninitialized in this function earley-stalin.c:13084: warning: `a824' might be used uninitialized in this function earley-stalin.c:13088: warning: `a828' might be used uninitialized in this function earley-stalin.c:13097: warning: `a837' might be used uninitialized in this function earley-stalin.c:13108: warning: `a917' might be used uninitialized in this function earley-stalin.c:13109: warning: `a918' might be used uninitialized in this function earley-stalin.c:13110: warning: `a919' might be used uninitialized in this function earley-stalin.c:13112: warning: `a921' might be used uninitialized in this function earley-stalin.c:13115: warning: `a924' might be used uninitialized in this function earley-stalin.c:13116: warning: `a925' might be used uninitialized in this function earley-stalin.c:13128: warning: `a937' might be used uninitialized in this function earley-stalin.c:13133: warning: `a942' might be used uninitialized in this function earley-stalin.c:13145: warning: `a954' might be used uninitialized in this function earley-stalin.c:13149: warning: `a958' might be used uninitialized in this function earley-stalin.c:13150: warning: `a959' might be used uninitialized in this function earley-stalin.c:13152: warning: `a961' might be used uninitialized in this function earley-stalin.c:13154: warning: `a963' might be used uninitialized in this function earley-stalin.c:13165: warning: `a974' might be used uninitialized in this function earley-stalin.c:13166: warning: `a975' might be used uninitialized in this function earley-stalin.c:13168: warning: `a977' might be used uninitialized in this function earley-stalin.c:13173: warning: `a982' might be used uninitialized in this function earley-stalin.c:13175: warning: `a984' might be used uninitialized in this function earley-stalin.c:13176: warning: `a1029' might be used uninitialized in this function earley-stalin.c:13188: warning: `a1041' might be used uninitialized in this function earley-stalin.c:13199: warning: `a1089' might be used uninitialized in this function earley-stalin.c:13200: warning: `a1090' might be used uninitialized in this function earley-stalin.c:13202: warning: `a1092' might be used uninitialized in this function earley-stalin.c:13204: warning: `a1094' might be used uninitialized in this function earley-stalin.c:13208: warning: `a1098' might be used uninitialized in this function earley-stalin.c:13210: warning: `a1100' might be used uninitialized in this function earley-stalin.c:13215: warning: `a1105' might be used uninitialized in this function earley-stalin.c:13216: warning: `a1106' might be used uninitialized in this function earley-stalin.c:13218: warning: `a1108' might be used uninitialized in this function earley-stalin.c:13222: warning: `a1112' might be used uninitialized in this function earley-stalin.c:13223: warning: `a1113' might be used uninitialized in this function earley-stalin.c:13224: warning: `a1114' might be used uninitialized in this function earley-stalin.c:13225: warning: `a1115' might be used uninitialized in this function earley-stalin.c:13227: warning: `a1117' might be used uninitialized in this function earley-stalin.c:13229: warning: `a1119' might be used uninitialized in this function earley-stalin.c:13230: warning: `a1120' might be used uninitialized in this function earley-stalin.c:13231: warning: `a1121' might be used uninitialized in this function earley-stalin.c:13233: warning: `a1123' might be used uninitialized in this function earley-stalin.c:13238: warning: `a1128' might be used uninitialized in this function earley-stalin.c:13239: warning: `a1129' might be used uninitialized in this function earley-stalin.c:13241: warning: `a1131' might be used uninitialized in this function earley-stalin.c:13245: warning: `a1135' might be used uninitialized in this function earley-stalin.c:13247: warning: `a1137' might be used uninitialized in this function earley-stalin.c:13252: warning: `a1142' might be used uninitialized in this function earley-stalin.c:13258: warning: `a1148' might be used uninitialized in this function earley-stalin.c:13261: warning: `a1151' might be used uninitialized in this function earley-stalin.c:13265: warning: `a1155' might be used uninitialized in this function earley-stalin.c:13270: warning: `a1160' might be used uninitialized in this function earley-stalin.c:13275: warning: `a1165' might be used uninitialized in this function earley-stalin.c:13279: warning: `a1177' might be used uninitialized in this function earley-stalin.c:13294: warning: `a1269' might be used uninitialized in this function earley-stalin.c:13296: warning: `a1271' might be used uninitialized in this function earley-stalin.c:13298: warning: `a1392' might be used uninitialized in this function earley-stalin.c:13299: warning: `a2255' might be used uninitialized in this function earley-stalin.c:13300: warning: `a2256' might be used uninitialized in this function earley-stalin.c:13304: warning: `a2260' might be used uninitialized in this function earley-stalin.c:13305: warning: `a2261' might be used uninitialized in this function earley-stalin.c:13306: warning: `a2262' might be used uninitialized in this function earley-stalin.c:13307: warning: `a2263' might be used uninitialized in this function earley-stalin.c:13308: warning: `a2264' might be used uninitialized in this function earley-stalin.c:13309: warning: `a2265' might be used uninitialized in this function earley-stalin.c:13310: warning: `a2266' might be used uninitialized in this function earley-stalin.c:13311: warning: `a2267' might be used uninitialized in this function earley-stalin.c:13312: warning: `a2268' might be used uninitialized in this function earley-stalin.c:13313: warning: `a2269' might be used uninitialized in this function earley-stalin.c:13314: warning: `a2270' might be used uninitialized in this function earley-stalin.c:13315: warning: `a2271' might be used uninitialized in this function earley-stalin.c:13316: warning: `a2272' might be used uninitialized in this function earley-stalin.c:13317: warning: `a2273' might be used uninitialized in this function earley-stalin.c:13318: warning: `a2274' might be used uninitialized in this function earley-stalin.c:13319: warning: `a2275' might be used uninitialized in this function earley-stalin.c:13320: warning: `a2276' might be used uninitialized in this function earley-stalin.c:13321: warning: `a2277' might be used uninitialized in this function earley-stalin.c:13322: warning: `a2278' might be used uninitialized in this function earley-stalin.c:13323: warning: `a2279' might be used uninitialized in this function earley-stalin.c:13324: warning: `a2280' might be used uninitialized in this function earley-stalin.c:13325: warning: `a2281' might be used uninitialized in this function earley-stalin.c:13326: warning: `a2282' might be used uninitialized in this function earley-stalin.c:13327: warning: `a2283' might be used uninitialized in this function earley-stalin.c:13328: warning: `a2284' might be used uninitialized in this function earley-stalin.c:13329: warning: `a2285' might be used uninitialized in this function earley-stalin.c:13330: warning: `a2286' might be used uninitialized in this function earley-stalin.c:13331: warning: `a2287' might be used uninitialized in this function earley-stalin.c:13332: warning: `a2288' might be used uninitialized in this function earley-stalin.c:13333: warning: `a2289' might be used uninitialized in this function earley-stalin.c:13334: warning: `a2290' might be used uninitialized in this function earley-stalin.c:13335: warning: `a2291' might be used uninitialized in this function earley-stalin.c:13336: warning: `a2292' might be used uninitialized in this function earley-stalin.c:13337: warning: `a2293' might be used uninitialized in this function earley-stalin.c:13339: warning: `a2597' might be used uninitialized in this function earley-stalin.c:13340: warning: `a2598' might be used uninitialized in this function earley-stalin.c:13356: warning: `a2648' might be used uninitialized in this function earley-stalin.c:13370: warning: `a2691' might be used uninitialized in this function earley-stalin.c:13371: warning: `a2692' might be used uninitialized in this function earley-stalin.c:13372: warning: `a2693' might be used uninitialized in this function earley-stalin.c:13373: warning: `a2694' might be used uninitialized in this function earley-stalin.c:13374: warning: `a2695' might be used uninitialized in this function earley-stalin.c:13380: warning: `a2701' might be used uninitialized in this function earley-stalin.c:13381: warning: `a2702' might be used uninitialized in this function earley-stalin.c:13382: warning: `a2703' might be used uninitialized in this function earley-stalin.c:13383: warning: `a2704' might be used uninitialized in this function earley-stalin.c:13384: warning: `a2705' might be used uninitialized in this function earley-stalin.c:13390: warning: `a2720' might be used uninitialized in this function earley-stalin.c:13391: warning: `a2721' might be used uninitialized in this function earley-stalin.c:13392: warning: `a2722' might be used uninitialized in this function earley-stalin.c:13393: warning: `a2723' might be used uninitialized in this function earley-stalin.c:13399: warning: `a2729' might be used uninitialized in this function earley-stalin.c:13400: warning: `a2730' might be used uninitialized in this function earley-stalin.c:13401: warning: `a2731' might be used uninitialized in this function earley-stalin.c:13402: warning: `a2732' might be used uninitialized in this function earley-stalin.c:13411: warning: `a2741' might be used uninitialized in this function earley-stalin.c:13420: warning: `a2750' might be used uninitialized in this function earley-stalin.c:13421: warning: `a2751' might be used uninitialized in this function earley-stalin.c:13426: warning: `a2756' might be used uninitialized in this function earley-stalin.c:13428: warning: `a2758' might be used uninitialized in this function earley-stalin.c:13431: warning: `a2761' might be used uninitialized in this function earley-stalin.c:13439: warning: `a2774' might be used uninitialized in this function earley-stalin.c:13449: warning: `a2784' might be used uninitialized in this function earley-stalin.c:13453: warning: `a2788' might be used uninitialized in this function earley-stalin.c:13455: warning: `a2803' might be used uninitialized in this function earley-stalin.c:13456: warning: `a2804' might be used uninitialized in this function earley-stalin.c:13459: warning: `a2807' might be used uninitialized in this function earley-stalin.c:13464: warning: `a2812' might be used uninitialized in this function earley-stalin.c:13473: warning: `a2821' might be used uninitialized in this function earley-stalin.c:13474: warning: `a2822' might be used uninitialized in this function earley-stalin.c:13475: warning: `a2823' might be used uninitialized in this function earley-stalin.c:13476: warning: `a2824' might be used uninitialized in this function earley-stalin.c:13477: warning: `a2825' might be used uninitialized in this function earley-stalin.c:13487: warning: `a2835' might be used uninitialized in this function earley-stalin.c:13488: warning: `a2836' might be used uninitialized in this function earley-stalin.c:13489: warning: `a2837' might be used uninitialized in this function earley-stalin.c:13490: warning: `a2838' might be used uninitialized in this function earley-stalin.c:13502: warning: `a2850' might be used uninitialized in this function earley-stalin.c:13503: warning: `a2851' might be used uninitialized in this function earley-stalin.c:13504: warning: `a2852' might be used uninitialized in this function earley-stalin.c:13505: warning: `a2853' might be used uninitialized in this function earley-stalin.c:13506: warning: `a2854' might be used uninitialized in this function earley-stalin.c:13516: warning: `a2864' might be used uninitialized in this function earley-stalin.c:13517: warning: `a2865' might be used uninitialized in this function earley-stalin.c:13518: warning: `a2866' might be used uninitialized in this function earley-stalin.c:13519: warning: `a2867' might be used uninitialized in this function earley-stalin.c:13535: warning: `a2883' might be used uninitialized in this function earley-stalin.c:13536: warning: `a2884' might be used uninitialized in this function earley-stalin.c:13537: warning: `a2885' might be used uninitialized in this function earley-stalin.c:13538: warning: `a2886' might be used uninitialized in this function earley-stalin.c:13539: warning: `a2887' might be used uninitialized in this function earley-stalin.c:13549: warning: `a2897' might be used uninitialized in this function earley-stalin.c:13550: warning: `a2898' might be used uninitialized in this function earley-stalin.c:13551: warning: `a2899' might be used uninitialized in this function earley-stalin.c:13552: warning: `a2900' might be used uninitialized in this function earley-stalin.c:13558: warning: `t1821' might be used uninitialized in this function earley-stalin.c:13559: warning: `t1822' might be used uninitialized in this function earley-stalin.c:13560: warning: `t1823' might be used uninitialized in this function earley-stalin.c:13561: warning: `t1824' might be used uninitialized in this function earley-stalin.c:13562: warning: `t1825' might be used uninitialized in this function earley-stalin.c:13563: warning: `t1826' might be used uninitialized in this function earley-stalin.c:13564: warning: `t1827' might be used uninitialized in this function earley-stalin.c:13565: warning: `t1828' might be used uninitialized in this function earley-stalin.c:13566: warning: `t1829' might be used uninitialized in this function earley-stalin.c:13569: warning: `t1832' might be used uninitialized in this function earley-stalin.c:13570: warning: `t1833' might be used uninitialized in this function earley-stalin.c:13571: warning: `t1834' might be used uninitialized in this function earley-stalin.c:13572: warning: `t1835' might be used uninitialized in this function earley-stalin.c:13573: warning: `t1836' might be used uninitialized in this function earley-stalin.c:13574: warning: `t1837' might be used uninitialized in this function earley-stalin.c:13575: warning: `t1838' might be used uninitialized in this function earley-stalin.c:13576: warning: `t1839' might be used uninitialized in this function earley-stalin.c:13577: warning: `t1840' might be used uninitialized in this function earley-stalin.c:13578: warning: `t1841' might be used uninitialized in this function earley-stalin.c:13579: warning: `t1842' might be used uninitialized in this function earley-stalin.c:13580: warning: `t1843' might be used uninitialized in this function earley-stalin.c:13581: warning: `t1844' might be used uninitialized in this function earley-stalin.c:13582: warning: `t1845' might be used uninitialized in this function earley-stalin.c:13583: warning: `t1846' might be used uninitialized in this function earley-stalin.c:13584: warning: `t1847' might be used uninitialized in this function earley-stalin.c:13585: warning: `t1848' might be used uninitialized in this function earley-stalin.c:13586: warning: `t1849' might be used uninitialized in this function earley-stalin.c:13587: warning: `t1850' might be used uninitialized in this function earley-stalin.c:13588: warning: `t1851' might be used uninitialized in this function earley-stalin.c:13589: warning: `t1852' might be used uninitialized in this function earley-stalin.c:13591: warning: `t1854' might be used uninitialized in this function earley-stalin.c:13592: warning: `t1855' might be used uninitialized in this function earley-stalin.c:13593: warning: `t1856' might be used uninitialized in this function earley-stalin.c:13594: warning: `t1857' might be used uninitialized in this function earley-stalin.c:13595: warning: `t1858' might be used uninitialized in this function earley-stalin.c:13596: warning: `t1859' might be used uninitialized in this function earley-stalin.c:13597: warning: `t1860' might be used uninitialized in this function earley-stalin.c:13599: warning: `t1862' might be used uninitialized in this function earley-stalin.c:13600: warning: `t1863' might be used uninitialized in this function earley-stalin.c:13601: warning: `t1864' might be used uninitialized in this function earley-stalin.c:13602: warning: `t1865' might be used uninitialized in this function earley-stalin.c:13603: warning: `t1866' might be used uninitialized in this function earley-stalin.c:13604: warning: `t1867' might be used uninitialized in this function earley-stalin.c:13605: warning: `t1868' might be used uninitialized in this function earley-stalin.c:13606: warning: `t1869' might be used uninitialized in this function earley-stalin.c:13607: warning: `t1870' might be used uninitialized in this function earley-stalin.c:13608: warning: `t1871' might be used uninitialized in this function earley-stalin.c:13609: warning: `t1872' might be used uninitialized in this function earley-stalin.c:13610: warning: `t1873' might be used uninitialized in this function earley-stalin.c:13611: warning: `t1874' might be used uninitialized in this function earley-stalin.c:13612: warning: `t1875' might be used uninitialized in this function earley-stalin.c:13613: warning: `t1876' might be used uninitialized in this function earley-stalin.c:13614: warning: `t1877' might be used uninitialized in this function earley-stalin.c:13615: warning: `t1878' might be used uninitialized in this function earley-stalin.c:13616: warning: `t1879' might be used uninitialized in this function earley-stalin.c:13617: warning: `t1880' might be used uninitialized in this function earley-stalin.c:13618: warning: `t1881' might be used uninitialized in this function earley-stalin.c:13619: warning: `t1882' might be used uninitialized in this function earley-stalin.c:13620: warning: `t1883' might be used uninitialized in this function earley-stalin.c:13621: warning: `t1884' might be used uninitialized in this function earley-stalin.c:13622: warning: `t1885' might be used uninitialized in this function earley-stalin.c:13623: warning: `t1886' might be used uninitialized in this function earley-stalin.c:13624: warning: `t1887' might be used uninitialized in this function earley-stalin.c:13625: warning: `t1888' might be used uninitialized in this function earley-stalin.c:13626: warning: `t1889' might be used uninitialized in this function earley-stalin.c:13627: warning: `t1890' might be used uninitialized in this function earley-stalin.c:13628: warning: `t1891' might be used uninitialized in this function earley-stalin.c:13629: warning: `t1892' might be used uninitialized in this function earley-stalin.c:13630: warning: `t1893' might be used uninitialized in this function earley-stalin.c:13631: warning: `t1894' might be used uninitialized in this function earley-stalin.c:13632: warning: `t1895' might be used uninitialized in this function earley-stalin.c:13633: warning: `t1896' might be used uninitialized in this function earley-stalin.c:13634: warning: `t1897' might be used uninitialized in this function earley-stalin.c:13635: warning: `t1898' might be used uninitialized in this function earley-stalin.c:13636: warning: `t1899' might be used uninitialized in this function earley-stalin.c:13637: warning: `t1900' might be used uninitialized in this function earley-stalin.c:13638: warning: `t1901' might be used uninitialized in this function earley-stalin.c:13639: warning: `t1902' might be used uninitialized in this function earley-stalin.c:13640: warning: `t1903' might be used uninitialized in this function earley-stalin.c:13641: warning: `t1904' might be used uninitialized in this function earley-stalin.c:13642: warning: `t1905' might be used uninitialized in this function earley-stalin.c:13643: warning: `t1906' might be used uninitialized in this function earley-stalin.c:13644: warning: `t1907' might be used uninitialized in this function earley-stalin.c:13645: warning: `t1908' might be used uninitialized in this function earley-stalin.c:13646: warning: `t1909' might be used uninitialized in this function earley-stalin.c:13647: warning: `t1910' might be used uninitialized in this function earley-stalin.c:13648: warning: `t1911' might be used uninitialized in this function earley-stalin.c:13649: warning: `t1912' might be used uninitialized in this function earley-stalin.c:13650: warning: `t1913' might be used uninitialized in this function earley-stalin.c:13651: warning: `t1914' might be used uninitialized in this function earley-stalin.c:13652: warning: `t1915' might be used uninitialized in this function earley-stalin.c:13653: warning: `t1916' might be used uninitialized in this function earley-stalin.c:13654: warning: `t1917' might be used uninitialized in this function earley-stalin.c:13655: warning: `t1918' might be used uninitialized in this function earley-stalin.c:13656: warning: `t1919' might be used uninitialized in this function earley-stalin.c:13657: warning: `t1920' might be used uninitialized in this function earley-stalin.c:13658: warning: `t1921' might be used uninitialized in this function earley-stalin.c:13659: warning: `t1922' might be used uninitialized in this function earley-stalin.c:13660: warning: `t1923' might be used uninitialized in this function earley-stalin.c:13661: warning: `t1924' might be used uninitialized in this function earley-stalin.c:13662: warning: `t1925' might be used uninitialized in this function earley-stalin.c:13663: warning: `t1926' might be used uninitialized in this function earley-stalin.c:13664: warning: `t1927' might be used uninitialized in this function earley-stalin.c:13665: warning: `t1928' might be used uninitialized in this function earley-stalin.c:13666: warning: `t1929' might be used uninitialized in this function earley-stalin.c:13667: warning: `t1930' might be used uninitialized in this function earley-stalin.c:13668: warning: `t1931' might be used uninitialized in this function earley-stalin.c:13669: warning: `t1932' might be used uninitialized in this function earley-stalin.c:13670: warning: `t1933' might be used uninitialized in this function earley-stalin.c:13671: warning: `t1934' might be used uninitialized in this function earley-stalin.c:13672: warning: `t1935' might be used uninitialized in this function earley-stalin.c:13673: warning: `t1936' might be used uninitialized in this function earley-stalin.c:13674: warning: `t1937' might be used uninitialized in this function earley-stalin.c:13675: warning: `t1938' might be used uninitialized in this function earley-stalin.c:13676: warning: `t1939' might be used uninitialized in this function earley-stalin.c:13677: warning: `t1940' might be used uninitialized in this function earley-stalin.c:13678: warning: `t1941' might be used uninitialized in this function earley-stalin.c:13679: warning: `t1942' might be used uninitialized in this function earley-stalin.c:13680: warning: `t1943' might be used uninitialized in this function earley-stalin.c:13681: warning: `t1944' might be used uninitialized in this function earley-stalin.c:13682: warning: `t1945' might be used uninitialized in this function earley-stalin.c:13683: warning: `t1946' might be used uninitialized in this function earley-stalin.c:13684: warning: `t1947' might be used uninitialized in this function earley-stalin.c:13685: warning: `t1948' might be used uninitialized in this function earley-stalin.c:13686: warning: `t1949' might be used uninitialized in this function earley-stalin.c:13687: warning: `t1950' might be used uninitialized in this function earley-stalin.c:13688: warning: `t1951' might be used uninitialized in this function earley-stalin.c:13689: warning: `t1952' might be used uninitialized in this function earley-stalin.c:13690: warning: `t1953' might be used uninitialized in this function earley-stalin.c:13691: warning: `t1954' might be used uninitialized in this function earley-stalin.c:13692: warning: `t1955' might be used uninitialized in this function earley-stalin.c:13693: warning: `t1956' might be used uninitialized in this function earley-stalin.c:13694: warning: `t1957' might be used uninitialized in this function earley-stalin.c:13695: warning: `t1958' might be used uninitialized in this function earley-stalin.c:13696: warning: `t1959' might be used uninitialized in this function earley-stalin.c:13697: warning: `t1960' might be used uninitialized in this function earley-stalin.c:13698: warning: `t1961' might be used uninitialized in this function earley-stalin.c:13699: warning: `t1962' might be used uninitialized in this function earley-stalin.c:13700: warning: `t1963' might be used uninitialized in this function earley-stalin.c:13701: warning: `t1964' might be used uninitialized in this function earley-stalin.c:13702: warning: `t1965' might be used uninitialized in this function earley-stalin.c:13703: warning: `t1966' might be used uninitialized in this function earley-stalin.c:13704: warning: `t1967' might be used uninitialized in this function earley-stalin.c:13705: warning: `t1968' might be used uninitialized in this function earley-stalin.c:13706: warning: `t1969' might be used uninitialized in this function earley-stalin.c:13707: warning: `t1970' might be used uninitialized in this function earley-stalin.c:13708: warning: `t1971' might be used uninitialized in this function earley-stalin.c:13709: warning: `t1972' might be used uninitialized in this function earley-stalin.c:13710: warning: `t1973' might be used uninitialized in this function earley-stalin.c:13711: warning: `t1974' might be used uninitialized in this function earley-stalin.c:13712: warning: `t1975' might be used uninitialized in this function earley-stalin.c:13713: warning: `t1976' might be used uninitialized in this function earley-stalin.c:13714: warning: `t1977' might be used uninitialized in this function earley-stalin.c:13716: warning: `t1979' might be used uninitialized in this function earley-stalin.c:13717: warning: `t1980' might be used uninitialized in this function earley-stalin.c:13718: warning: `t1981' might be used uninitialized in this function earley-stalin.c:13719: warning: `t1982' might be used uninitialized in this function earley-stalin.c:13720: warning: `t1983' might be used uninitialized in this function earley-stalin.c:13722: warning: `t1985' might be used uninitialized in this function earley-stalin.c:13724: warning: `t1987' might be used uninitialized in this function earley-stalin.c:13725: warning: `t1988' might be used uninitialized in this function earley-stalin.c:13726: warning: `t1989' might be used uninitialized in this function earley-stalin.c:13728: warning: `t1991' might be used uninitialized in this function earley-stalin.c:13730: warning: `t1993' might be used uninitialized in this function earley-stalin.c:13731: warning: `t1994' might be used uninitialized in this function earley-stalin.c:13732: warning: `t1995' might be used uninitialized in this function earley-stalin.c:13733: warning: `t1996' might be used uninitialized in this function earley-stalin.c:13734: warning: `t1997' might be used uninitialized in this function earley-stalin.c:13735: warning: `t1998' might be used uninitialized in this function earley-stalin.c:13736: warning: `t1999' might be used uninitialized in this function earley-stalin.c:13737: warning: `t2000' might be used uninitialized in this function earley-stalin.c:13738: warning: `t2001' might be used uninitialized in this function earley-stalin.c:13739: warning: `t2002' might be used uninitialized in this function earley-stalin.c:13740: warning: `t2003' might be used uninitialized in this function earley-stalin.c:13741: warning: `t2004' might be used uninitialized in this function earley-stalin.c:13742: warning: `t2005' might be used uninitialized in this function earley-stalin.c:13743: warning: `t2006' might be used uninitialized in this function earley-stalin.c:13744: warning: `t2007' might be used uninitialized in this function earley-stalin.c:13745: warning: `t2008' might be used uninitialized in this function earley-stalin.c:13746: warning: `t2009' might be used uninitialized in this function earley-stalin.c:13747: warning: `t2010' might be used uninitialized in this function earley-stalin.c:13748: warning: `t2011' might be used uninitialized in this function earley-stalin.c:13749: warning: `t2012' might be used uninitialized in this function earley-stalin.c:13750: warning: `t2013' might be used uninitialized in this function earley-stalin.c:13751: warning: `t2014' might be used uninitialized in this function earley-stalin.c:13752: warning: `t2015' might be used uninitialized in this function earley-stalin.c:13753: warning: `t2016' might be used uninitialized in this function earley-stalin.c:13754: warning: `t2017' might be used uninitialized in this function earley-stalin.c:13755: warning: `t2018' might be used uninitialized in this function earley-stalin.c:13756: warning: `t2019' might be used uninitialized in this function earley-stalin.c:13757: warning: `t2020' might be used uninitialized in this function earley-stalin.c:13758: warning: `t2021' might be used uninitialized in this function earley-stalin.c:13759: warning: `t2022' might be used uninitialized in this function earley-stalin.c:13760: warning: `t2023' might be used uninitialized in this function earley-stalin.c:13761: warning: `t2024' might be used uninitialized in this function earley-stalin.c:13762: warning: `t2025' might be used uninitialized in this function earley-stalin.c:13763: warning: `t2026' might be used uninitialized in this function earley-stalin.c:13764: warning: `t2027' might be used uninitialized in this function earley-stalin.c:13765: warning: `t2028' might be used uninitialized in this function earley-stalin.c:13767: warning: `t2030' might be used uninitialized in this function earley-stalin.c:13768: warning: `t2031' might be used uninitialized in this function earley-stalin.c:13769: warning: `t2032' might be used uninitialized in this function earley-stalin.c:13770: warning: `t2033' might be used uninitialized in this function earley-stalin.c:13774: warning: `t2049' might be used uninitialized in this function earley-stalin.c:13786: warning: `t2061' might be used uninitialized in this function earley-stalin.c:13789: warning: `t2064' might be used uninitialized in this function earley-stalin.c:14009: warning: `t2383' might be used uninitialized in this function earley-stalin.c:14151: warning: `t2571' might be used uninitialized in this function earley-stalin.c:14188: warning: `t2615' might be used uninitialized in this function earley-stalin.c:14222: warning: `t2656' might be used uninitialized in this function earley-stalin.c:14819: warning: `t3459' might be used uninitialized in this function earley-stalin.c:14827: warning: `t3467' might be used uninitialized in this function earley-stalin.c:15357: warning: `t4208' might be used uninitialized in this function earley-stalin.c:15358: warning: `t4209' might be used uninitialized in this function 149.59user 0.98system 2:41.99elapsed 92%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (34653major+513596minor)pagefaults 0swaps compile scheme (STATIC-COUNTS 2928 2928 2928 2928 0 0 0 2928 2773 1404 444 1495 163 629 1.743460764587525 5823 5823 572 524) Warning! The following tail-recursive tail calls are not merged: From the following expression, scheme-stalin.sc:121:3650: (COMP-QUASIQUOTATION (CADR EXPR) 1 ENV) to COMP-QUASIQUOTATION[75] From the following expression, scheme-stalin.sc:124:3757: (SCHEME-COMP FORM ENV) to SCHEME-COMP[447] From the following expression, scheme-stalin.sc:127:3847: (COMP-QUASIQUOTATION-LIST FORM ((PRIMITIVE-PROCEDURE +) LEVEL 1) ENV) to COMP-QUASIQUOTATION-LIST[86] From the following expression, scheme-stalin.sc:130:3959: (SCHEME-COMP (CADR FORM) ENV) to SCHEME-COMP[447] From the following expression, scheme-stalin.sc:131:3994: (COMP-QUASIQUOTATION-LIST FORM ((PRIMITIVE-PROCEDURE -) LEVEL 1) ENV) to COMP-QUASIQUOTATION-LIST[86] From the following expression, scheme-stalin.sc:135:4177: (COMP-QUASIQUOTATION-LIST FORM ((PRIMITIVE-PROCEDURE -) LEVEL 1) ENV) to COMP-QUASIQUOTATION-LIST[86] From the following expression, scheme-stalin.sc:136:4239: (COMP-QUASIQUOTATION-LIST FORM LEVEL ENV) to COMP-QUASIQUOTATION-LIST[86] From the following expression, scheme-stalin.sc:154:4913: (COMP-QUASIQUOTATION L LEVEL ENV) to COMP-QUASIQUOTATION[75] From the following expression, scheme-stalin.sc:209:6485: (LETREC-DEFINES* VARS VALS BODY ENV) to LETREC-DEFINES*[126] From the following expression, scheme-stalin.sc:237:7284: (LETREC-DEFINES* VARS VALS BODY ENV) to LETREC-DEFINES*[126] From the following expression, scheme-stalin.sc:244:7507: (COMP-LETREC-AUX VARS VALS BODY ENV) to COMP-LETREC-AUX[185] From the following expression, scheme-stalin.sc:398:12302: (COMP-BODY BODY ENV) to COMP-BODY[111] From the following expression, scheme-stalin.sc:584:18450: (BODY ((PRIMITIVE-PROCEDURE VECTOR) RTE A)) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:588:18542: (BODY ((PRIMITIVE-PROCEDURE VECTOR) RTE A B)) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:593:18641: (BODY ((PRIMITIVE-PROCEDURE VECTOR) RTE A B C)) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:607:19043: (BODY X) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:618:19316: (BODY RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:621:19386: (BODY ((PRIMITIVE-PROCEDURE VECTOR) RTE A)) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:624:19469: (BODY ((PRIMITIVE-PROCEDURE VECTOR) RTE A B)) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:627:19556: (BODY ((PRIMITIVE-PROCEDURE VECTOR) RTE A B C)) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:640:19932: (BODY X) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:645:20089: (CODE2 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] From the following expression, scheme-stalin.sc:650:20247: (CODE2 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:653:20333: (CODE2 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:653:20345: (CODE3 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:660:20539: ((CODE2 RTE) TEMP) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] to [inside GEN-LAMBDA-1 353] to [inside GEN-LAMBDA-2-REST 326] to [inside GEN-LAMBDA-1-REST 323] From the following expression, scheme-stalin.sc:660:20558: (CODE3 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:667:20741: (CODE2 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:674:20933: (CODE2 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:678:21076: (CODE2 RTE (CODE1 RTE)) to [inside GEN-CASE-ELSE 393] From the following expression, scheme-stalin.sc:681:21189: (CODE1 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:681:21201: (CODE2 RTE KEY) to [inside GEN-CASE-ELSE 393] From the following expression, scheme-stalin.sc:683:21268: (CODE RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:699:21759: (BODY X) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:706:21920: (BODY X) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:714:22119: (BODY X) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:723:22377: (BODY X) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:739:22980: ((OPER RTE)) to [inside GEN-LAMBDA-0 350] to [inside GEN-LAMBDA-1-REST 323] From the following expression, scheme-stalin.sc:742:23049: ((OPER RTE) (ARG1 RTE)) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] to [inside GEN-LAMBDA-1 353] to [inside GEN-LAMBDA-2-REST 326] to [inside GEN-LAMBDA-1-REST 323] From the following expression, scheme-stalin.sc:745:23134: ((OPER RTE) (ARG1 RTE) (ARG2 RTE)) to APPLY[1548] to [inside GEN-LAMBDA-2 356] to [inside GEN-LAMBDA-3-REST 329] to [inside GEN-LAMBDA-2-REST 326] to [inside GEN-LAMBDA-1-REST 323] From the following expression, scheme-stalin.sc:748:23235: ((OPER RTE) (ARG1 RTE) (ARG2 RTE) (ARG3 RTE)) to APPLY[1548] to [inside GEN-LAMBDA-N 362] to [inside GEN-LAMBDA-3 359] to [inside GEN-LAMBDA-N-REST 332] to [inside GEN-LAMBDA-3-REST 329] to [inside GEN-LAMBDA-2-REST 326] to [inside GEN-LAMBDA-1-REST 323] From the following expression, scheme-stalin.sc:754:23433: ((PRIMITIVE-PROCEDURE APPLY) (OPER RTE) (EVALUATE ARGS RTE)) to APPLY[1548] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] to [inside GEN-LAMBDA-N 362] to [inside GEN-LAMBDA-3 359] to [inside GEN-LAMBDA-2 356] to [inside GEN-LAMBDA-1 353] to [inside GEN-LAMBDA-0 350] to [inside GEN-LAMBDA-N-REST 332] to [inside GEN-LAMBDA-3-REST 329] to [inside GEN-LAMBDA-2-REST 326] to [inside GEN-LAMBDA-1-REST 323] From the following expression: ((PRIMITIVE-PROCEDURE APPLY) PROC ARG1) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] to [inside GEN-LAMBDA-N 362] to [inside GEN-LAMBDA-3 359] to [inside GEN-LAMBDA-2 356] to [inside GEN-LAMBDA-1 353] to [inside GEN-LAMBDA-0 350] to [inside GEN-LAMBDA-N-REST 332] to [inside GEN-LAMBDA-3-REST 329] to [inside GEN-LAMBDA-2-REST 326] to [inside GEN-LAMBDA-1-REST 323] From the following expression: ((PRIMITIVE-PROCEDURE APPLY) PROC ARG1) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] to [inside GEN-LAMBDA-N 362] to [inside GEN-LAMBDA-3 359] to [inside GEN-LAMBDA-2 356] to [inside GEN-LAMBDA-1 353] to [inside GEN-LAMBDA-0 350] to [inside GEN-LAMBDA-N-REST 332] to [inside GEN-LAMBDA-3-REST 329] to [inside GEN-LAMBDA-2-REST 326] to [inside GEN-LAMBDA-1-REST 323] scheme-stalin.c: In function `f2535': scheme-stalin.c:14615: warning: `r2535' might be used uninitialized in this function scheme-stalin.c: In function `f2531': scheme-stalin.c:14659: warning: `r2531' might be used uninitialized in this function scheme-stalin.c: In function `f2527': scheme-stalin.c:14702: warning: `r2527' might be used uninitialized in this function scheme-stalin.c: In function `f2523': scheme-stalin.c:14753: warning: `r2523' might be used uninitialized in this function scheme-stalin.c: In function `f2458': scheme-stalin.c:15106: warning: unused variable `e2471' scheme-stalin.c:15105: warning: unused variable `e2470' scheme-stalin.c:15104: warning: unused variable `e2469' scheme-stalin.c:15103: warning: unused variable `e2468' scheme-stalin.c:15102: warning: unused variable `e2467' scheme-stalin.c:15101: warning: unused variable `e2466' scheme-stalin.c:15100: warning: unused variable `e2465' scheme-stalin.c:15099: warning: unused variable `e2464' scheme-stalin.c:15098: warning: unused variable `e2463' scheme-stalin.c:14895: warning: unused variable `a2886' scheme-stalin.c:14894: warning: unused variable `a2885' scheme-stalin.c:14893: warning: unused variable `a2884' scheme-stalin.c:14892: warning: unused variable `a2883' scheme-stalin.c:14891: warning: unused variable `a2882' scheme-stalin.c:14890: warning: unused variable `a2881' scheme-stalin.c:14889: warning: unused variable `a2880' scheme-stalin.c:14888: warning: unused variable `a2879' scheme-stalin.c:14887: warning: unused variable `a2878' scheme-stalin.c:14886: warning: `a2877' might be used uninitialized in this function scheme-stalin.c:14897: warning: `a2888' might be used uninitialized in this function scheme-stalin.c:14900: warning: `a2891' might be used uninitialized in this function scheme-stalin.c:14903: warning: `a2894' might be used uninitialized in this function scheme-stalin.c: In function `f2430': scheme-stalin.c:15957: warning: unused variable `e2442' scheme-stalin.c:15956: warning: unused variable `e2441' scheme-stalin.c:15955: warning: unused variable `e2440' scheme-stalin.c:15954: warning: unused variable `e2439' scheme-stalin.c:15953: warning: unused variable `e2438' scheme-stalin.c:15952: warning: unused variable `e2437' scheme-stalin.c:15951: warning: unused variable `e2436' scheme-stalin.c:15950: warning: unused variable `e2435' scheme-stalin.c:15949: warning: unused variable `e2434' scheme-stalin.c:15759: warning: unused variable `a2865' scheme-stalin.c:15758: warning: unused variable `a2864' scheme-stalin.c:15757: warning: unused variable `a2863' scheme-stalin.c:15756: warning: unused variable `a2862' scheme-stalin.c:15755: warning: unused variable `a2861' scheme-stalin.c:15754: warning: unused variable `a2860' scheme-stalin.c:15753: warning: unused variable `a2859' scheme-stalin.c:15752: warning: unused variable `a2858' scheme-stalin.c:15751: warning: unused variable `a2857' scheme-stalin.c:15750: warning: `a2856' might be used uninitialized in this function scheme-stalin.c:15761: warning: `a2867' might be used uninitialized in this function scheme-stalin.c:15764: warning: `a2870' might be used uninitialized in this function scheme-stalin.c:15767: warning: `a2873' might be used uninitialized in this function scheme-stalin.c: In function `f2423': scheme-stalin.c:16585: warning: `a2852' might be used uninitialized in this function scheme-stalin.c: In function `f2418': scheme-stalin.c:16807: warning: `a2849' might be used uninitialized in this function scheme-stalin.c: In function `f2413': scheme-stalin.c:16917: warning: `a2846' might be used uninitialized in this function scheme-stalin.c: In function `f2407': scheme-stalin.c:17046: warning: `a2843' might be used uninitialized in this function scheme-stalin.c: In function `f2292': scheme-stalin.c:18150: warning: unused variable `e2361' scheme-stalin.c:18137: warning: unused variable `e2336' scheme-stalin.c:18130: warning: unused variable `e2324' scheme-stalin.c:18123: warning: unused variable `e2305' scheme-stalin.c:17250: warning: unused variable `a2823' scheme-stalin.c:17237: warning: unused variable `a2810' scheme-stalin.c:17230: warning: unused variable `a2803' scheme-stalin.c:17223: warning: unused variable `a2796' scheme-stalin.c:17203: warning: `a2776' might be used uninitialized in this function scheme-stalin.c:17204: warning: `a2777' might be used uninitialized in this function scheme-stalin.c:17205: warning: `a2778' might be used uninitialized in this function scheme-stalin.c:17206: warning: `a2779' might be used uninitialized in this function scheme-stalin.c:17207: warning: `a2780' might be used uninitialized in this function scheme-stalin.c:17208: warning: `a2781' might be used uninitialized in this function scheme-stalin.c:17209: warning: `a2782' might be used uninitialized in this function scheme-stalin.c:17210: warning: `a2783' might be used uninitialized in this function scheme-stalin.c:17211: warning: `a2784' might be used uninitialized in this function scheme-stalin.c:17212: warning: `a2785' might be used uninitialized in this function scheme-stalin.c:17213: warning: `a2786' might be used uninitialized in this function scheme-stalin.c:17214: warning: `a2787' might be used uninitialized in this function scheme-stalin.c:17215: warning: `a2788' might be used uninitialized in this function scheme-stalin.c:17216: warning: `a2789' might be used uninitialized in this function scheme-stalin.c:17218: warning: `a2791' might be used uninitialized in this function scheme-stalin.c:17220: warning: `a2793' might be used uninitialized in this function scheme-stalin.c:17222: warning: `a2795' might be used uninitialized in this function scheme-stalin.c:17225: warning: `a2798' might be used uninitialized in this function scheme-stalin.c:17227: warning: `a2800' might be used uninitialized in this function scheme-stalin.c:17229: warning: `a2802' might be used uninitialized in this function scheme-stalin.c:17232: warning: `a2805' might be used uninitialized in this function scheme-stalin.c:17234: warning: `a2807' might be used uninitialized in this function scheme-stalin.c:17236: warning: `a2809' might be used uninitialized in this function scheme-stalin.c:17239: warning: `a2812' might be used uninitialized in this function scheme-stalin.c:17241: warning: `a2814' might be used uninitialized in this function scheme-stalin.c:17243: warning: `a2816' might be used uninitialized in this function scheme-stalin.c:17245: warning: `a2818' might be used uninitialized in this function scheme-stalin.c:17247: warning: `a2820' might be used uninitialized in this function scheme-stalin.c:17249: warning: `a2822' might be used uninitialized in this function scheme-stalin.c:17252: warning: `a2825' might be used uninitialized in this function scheme-stalin.c:17254: warning: `a2827' might be used uninitialized in this function scheme-stalin.c:17256: warning: `a2829' might be used uninitialized in this function scheme-stalin.c:17258: warning: `a2831' might be used uninitialized in this function scheme-stalin.c:17260: warning: `a2833' might be used uninitialized in this function scheme-stalin.c:17262: warning: `a2835' might be used uninitialized in this function scheme-stalin.c:17264: warning: `a2837' might be used uninitialized in this function scheme-stalin.c:17266: warning: `a2839' might be used uninitialized in this function scheme-stalin.c: In function `f2274': scheme-stalin.c:20657: warning: `a2766' might be used uninitialized in this function scheme-stalin.c:20661: warning: `a2770' might be used uninitialized in this function scheme-stalin.c:20683: warning: `t1828' might be used uninitialized in this function scheme-stalin.c: In function `f2265': scheme-stalin.c:21075: warning: `a2760' might be used uninitialized in this function scheme-stalin.c: In function `f2221': scheme-stalin.c:21317: warning: `a2728' might be used uninitialized in this function scheme-stalin.c:21318: warning: `a2729' might be used uninitialized in this function scheme-stalin.c:21320: warning: `a2731' might be used uninitialized in this function scheme-stalin.c:21321: warning: `a2732' might be used uninitialized in this function scheme-stalin.c:21324: warning: `a2735' might be used uninitialized in this function scheme-stalin.c:21325: warning: `a2736' might be used uninitialized in this function scheme-stalin.c:21328: warning: `a2739' might be used uninitialized in this function scheme-stalin.c:21329: warning: `a2740' might be used uninitialized in this function scheme-stalin.c:21332: warning: `a2743' might be used uninitialized in this function scheme-stalin.c:21333: warning: `a2744' might be used uninitialized in this function scheme-stalin.c:21336: warning: `a2747' might be used uninitialized in this function scheme-stalin.c:21337: warning: `a2748' might be used uninitialized in this function scheme-stalin.c:21340: warning: `a2751' might be used uninitialized in this function scheme-stalin.c:21341: warning: `a2752' might be used uninitialized in this function scheme-stalin.c: In function `f2176': scheme-stalin.c:22030: warning: `r2176' might be used uninitialized in this function scheme-stalin.c:22035: warning: `a2706' might be used uninitialized in this function scheme-stalin.c:22037: warning: `a2708' might be used uninitialized in this function scheme-stalin.c:22039: warning: `a2710' might be used uninitialized in this function scheme-stalin.c:22040: warning: `a2711' might be used uninitialized in this function scheme-stalin.c:22041: warning: `a2712' might be used uninitialized in this function scheme-stalin.c:22042: warning: `a2713' might be used uninitialized in this function scheme-stalin.c:22043: warning: `a2714' might be used uninitialized in this function scheme-stalin.c:22044: warning: `a2715' might be used uninitialized in this function scheme-stalin.c:22045: warning: `a2716' might be used uninitialized in this function scheme-stalin.c:22046: warning: `a2717' might be used uninitialized in this function scheme-stalin.c:22047: warning: `a2718' might be used uninitialized in this function scheme-stalin.c:22049: warning: `a2720' might be used uninitialized in this function scheme-stalin.c:22051: warning: `a2722' might be used uninitialized in this function scheme-stalin.c:22052: warning: `a2723' might be used uninitialized in this function scheme-stalin.c:22054: warning: `a2725' might be used uninitialized in this function scheme-stalin.c:22055: warning: `a2726' might be used uninitialized in this function scheme-stalin.c: In function `f2116': scheme-stalin.c:23137: warning: unused variable `e2140' scheme-stalin.c:22886: warning: unused variable `a2682' scheme-stalin.c:22871: warning: `r2116' might be used uninitialized in this function scheme-stalin.c:22876: warning: `a2672' might be used uninitialized in this function scheme-stalin.c:22877: warning: `a2673' might be used uninitialized in this function scheme-stalin.c:22878: warning: `a2674' might be used uninitialized in this function scheme-stalin.c:22881: warning: `a2677' might be used uninitialized in this function scheme-stalin.c:22884: warning: `a2680' might be used uninitialized in this function scheme-stalin.c:22885: warning: `a2681' might be used uninitialized in this function scheme-stalin.c:22887: warning: `a2683' might be used uninitialized in this function scheme-stalin.c:22889: warning: `a2685' might be used uninitialized in this function scheme-stalin.c:22891: warning: `a2687' might be used uninitialized in this function scheme-stalin.c:22892: warning: `a2688' might be used uninitialized in this function scheme-stalin.c:22893: warning: `a2689' might be used uninitialized in this function scheme-stalin.c:22894: warning: `a2690' might be used uninitialized in this function scheme-stalin.c:22895: warning: `a2691' might be used uninitialized in this function scheme-stalin.c:22896: warning: `a2692' might be used uninitialized in this function scheme-stalin.c:22897: warning: `a2693' might be used uninitialized in this function scheme-stalin.c:22898: warning: `a2694' might be used uninitialized in this function scheme-stalin.c:22899: warning: `a2695' might be used uninitialized in this function scheme-stalin.c:22901: warning: `a2697' might be used uninitialized in this function scheme-stalin.c:22903: warning: `a2699' might be used uninitialized in this function scheme-stalin.c:22904: warning: `a2700' might be used uninitialized in this function scheme-stalin.c:22906: warning: `a2702' might be used uninitialized in this function scheme-stalin.c:22907: warning: `a2703' might be used uninitialized in this function scheme-stalin.c: In function `f2099': scheme-stalin.c:24061: warning: `r2099' might be used uninitialized in this function scheme-stalin.c:24062: warning: `a2661' might be used uninitialized in this function scheme-stalin.c:24064: warning: `a2663' might be used uninitialized in this function scheme-stalin.c:24068: warning: `a2667' might be used uninitialized in this function scheme-stalin.c: In function `f2078': scheme-stalin.c:24431: warning: `r2078' might be used uninitialized in this function scheme-stalin.c:24434: warning: `a2648' might be used uninitialized in this function scheme-stalin.c:24435: warning: `a2649' might be used uninitialized in this function scheme-stalin.c:24436: warning: `a2650' might be used uninitialized in this function scheme-stalin.c:24437: warning: `a2651' might be used uninitialized in this function scheme-stalin.c:24439: warning: `a2653' might be used uninitialized in this function scheme-stalin.c:24443: warning: `a2657' might be used uninitialized in this function scheme-stalin.c: In function `f2049': scheme-stalin.c:24884: warning: `r2049' might be used uninitialized in this function scheme-stalin.c:24886: warning: `a2625' might be used uninitialized in this function scheme-stalin.c:24890: warning: `a2629' might be used uninitialized in this function scheme-stalin.c:24892: warning: `a2631' might be used uninitialized in this function scheme-stalin.c:24893: warning: `a2632' might be used uninitialized in this function scheme-stalin.c:24894: warning: `a2633' might be used uninitialized in this function scheme-stalin.c:24896: warning: `a2635' might be used uninitialized in this function scheme-stalin.c:24900: warning: `a2639' might be used uninitialized in this function scheme-stalin.c:24902: warning: `a2641' might be used uninitialized in this function scheme-stalin.c:24903: warning: `a2642' might be used uninitialized in this function scheme-stalin.c: In function `f2040': scheme-stalin.c:25432: warning: `r2040' might be used uninitialized in this function scheme-stalin.c:25435: warning: `a2619' might be used uninitialized in this function scheme-stalin.c:25437: warning: `a2621' might be used uninitialized in this function scheme-stalin.c: In function `f1996': scheme-stalin.c:25629: warning: unused variable `e2004' scheme-stalin.c:25581: warning: unused variable `a2569' scheme-stalin.c:25574: warning: `a2562' might be used uninitialized in this function scheme-stalin.c:25576: warning: `a2564' might be used uninitialized in this function scheme-stalin.c:25578: warning: `a2566' might be used uninitialized in this function scheme-stalin.c: In function `f1990': scheme-stalin.c:25840: warning: `t3219' might be used uninitialized in this function scheme-stalin.c: In function `f1985': scheme-stalin.c:26017: warning: unused variable `e1989' scheme-stalin.c:26016: warning: unused variable `e1988' scheme-stalin.c:26015: warning: unused variable `e1987' scheme-stalin.c:26014: warning: unused variable `e1986' scheme-stalin.c:25989: warning: unused variable `a2556' scheme-stalin.c:25988: warning: unused variable `a2555' scheme-stalin.c:25987: warning: unused variable `a2554' scheme-stalin.c:25986: warning: unused variable `a2553' scheme-stalin.c: In function `f1970': scheme-stalin.c:26177: warning: unused variable `e1984' scheme-stalin.c:26176: warning: unused variable `e1983' scheme-stalin.c:26175: warning: unused variable `e1982' scheme-stalin.c:26174: warning: unused variable `e1981' scheme-stalin.c:26173: warning: unused variable `e1980' scheme-stalin.c:26172: warning: unused variable `e1979' scheme-stalin.c:26171: warning: unused variable `e1978' scheme-stalin.c:26170: warning: unused variable `e1977' scheme-stalin.c:26169: warning: unused variable `e1976' scheme-stalin.c:26168: warning: unused variable `e1975' scheme-stalin.c:26167: warning: unused variable `e1974' scheme-stalin.c:26166: warning: unused variable `e1973' scheme-stalin.c:26165: warning: unused variable `e1972' scheme-stalin.c:26164: warning: unused variable `e1971' scheme-stalin.c:26075: warning: unused variable `a2551' scheme-stalin.c:26074: warning: unused variable `a2550' scheme-stalin.c:26073: warning: unused variable `a2549' scheme-stalin.c:26072: warning: unused variable `a2548' scheme-stalin.c:26071: warning: unused variable `a2547' scheme-stalin.c:26070: warning: unused variable `a2546' scheme-stalin.c:26069: warning: unused variable `a2545' scheme-stalin.c:26068: warning: unused variable `a2544' scheme-stalin.c:26067: warning: unused variable `a2543' scheme-stalin.c:26066: warning: unused variable `a2542' scheme-stalin.c:26065: warning: unused variable `a2541' scheme-stalin.c:26064: warning: unused variable `a2540' scheme-stalin.c:26063: warning: unused variable `a2539' scheme-stalin.c:26062: warning: unused variable `a2538' scheme-stalin.c: In function `f1936': scheme-stalin.c:26551: warning: unused variable `e1951' scheme-stalin.c:26550: warning: unused variable `e1950' scheme-stalin.c:26549: warning: unused variable `e1949' scheme-stalin.c:26548: warning: unused variable `e1948' scheme-stalin.c:26547: warning: unused variable `e1947' scheme-stalin.c:26546: warning: unused variable `e1946' scheme-stalin.c:26545: warning: unused variable `e1945' scheme-stalin.c:26544: warning: unused variable `e1944' scheme-stalin.c:26543: warning: unused variable `e1943' scheme-stalin.c:26328: warning: unused variable `a2527' scheme-stalin.c:26327: warning: unused variable `a2526' scheme-stalin.c:26326: warning: unused variable `a2525' scheme-stalin.c:26325: warning: unused variable `a2524' scheme-stalin.c:26324: warning: unused variable `a2523' scheme-stalin.c:26323: warning: unused variable `a2522' scheme-stalin.c:26322: warning: unused variable `a2521' scheme-stalin.c:26321: warning: unused variable `a2520' scheme-stalin.c:26320: warning: unused variable `a2519' scheme-stalin.c:26331: warning: `a2530' might be used uninitialized in this function scheme-stalin.c:26333: warning: `a2532' might be used uninitialized in this function scheme-stalin.c:26334: warning: `a2533' might be used uninitialized in this function scheme-stalin.c:26336: warning: `a2535' might be used uninitialized in this function scheme-stalin.c:26337: warning: `a2536' might be used uninitialized in this function scheme-stalin.c:26413: warning: `t3429' might be used uninitialized in this function scheme-stalin.c:26510: warning: `t3559' might be used uninitialized in this function scheme-stalin.c:26521: warning: `t3571' might be used uninitialized in this function scheme-stalin.c: In function `f1904': scheme-stalin.c:27511: warning: unused variable `e1917' scheme-stalin.c:27510: warning: unused variable `e1916' scheme-stalin.c:27509: warning: unused variable `e1915' scheme-stalin.c:27508: warning: unused variable `e1914' scheme-stalin.c:27507: warning: unused variable `e1913' scheme-stalin.c:27506: warning: unused variable `e1912' scheme-stalin.c:27505: warning: unused variable `e1911' scheme-stalin.c:27504: warning: unused variable `e1910' scheme-stalin.c:27503: warning: unused variable `e1909' scheme-stalin.c:27306: warning: unused variable `a2505' scheme-stalin.c:27305: warning: unused variable `a2504' scheme-stalin.c:27304: warning: unused variable `a2503' scheme-stalin.c:27303: warning: unused variable `a2502' scheme-stalin.c:27302: warning: unused variable `a2501' scheme-stalin.c:27301: warning: unused variable `a2500' scheme-stalin.c:27300: warning: unused variable `a2499' scheme-stalin.c:27299: warning: unused variable `a2498' scheme-stalin.c:27298: warning: unused variable `a2497' scheme-stalin.c:27309: warning: `a2508' might be used uninitialized in this function scheme-stalin.c:27311: warning: `a2510' might be used uninitialized in this function scheme-stalin.c:27312: warning: `a2511' might be used uninitialized in this function scheme-stalin.c:27314: warning: `a2513' might be used uninitialized in this function scheme-stalin.c:27315: warning: `a2514' might be used uninitialized in this function scheme-stalin.c:27385: warning: `t3664' might be used uninitialized in this function scheme-stalin.c:27479: warning: `t3788' might be used uninitialized in this function scheme-stalin.c: In function `f1894': scheme-stalin.c:28215: warning: `t3849' might be used uninitialized in this function scheme-stalin.c:28232: warning: `t3871' might be used uninitialized in this function scheme-stalin.c:28249: warning: `t3893' might be used uninitialized in this function scheme-stalin.c: In function `f1888': scheme-stalin.c:28522: warning: `t3926' might be used uninitialized in this function scheme-stalin.c: In function `f1882': scheme-stalin.c:28668: warning: `t3968' might be used uninitialized in this function scheme-stalin.c: In function `f1874': scheme-stalin.c:28825: warning: `t4010' might be used uninitialized in this function scheme-stalin.c:28837: warning: `t4024' might be used uninitialized in this function scheme-stalin.c: In function `f1641': scheme-stalin.c:30625: warning: unused variable `e1776' scheme-stalin.c:30612: warning: unused variable `e1742' scheme-stalin.c:30611: warning: unused variable `e1738' scheme-stalin.c:30608: warning: unused variable `e1732' scheme-stalin.c:30603: warning: unused variable `e1723' scheme-stalin.c:30596: warning: unused variable `e1701' scheme-stalin.c:30595: warning: unused variable `e1699' scheme-stalin.c:30594: warning: unused variable `e1697' scheme-stalin.c:29102: warning: unused variable `a2440' scheme-stalin.c:29086: warning: unused variable `a2424' scheme-stalin.c:29085: warning: unused variable `a2423' scheme-stalin.c:29081: warning: unused variable `a2419' scheme-stalin.c:29075: warning: unused variable `a2413' scheme-stalin.c:29068: warning: unused variable `a2406' scheme-stalin.c:29067: warning: unused variable `a2405' scheme-stalin.c:29066: warning: unused variable `a2404' scheme-stalin.c:29017: warning: `a2222' might be used uninitialized in this function scheme-stalin.c:29019: warning: `a2224' might be used uninitialized in this function scheme-stalin.c:29021: warning: `a2226' might be used uninitialized in this function scheme-stalin.c:29022: warning: `a2227' might be used uninitialized in this function scheme-stalin.c:29023: warning: `a2361' might be used uninitialized in this function scheme-stalin.c:29024: warning: `a2362' might be used uninitialized in this function scheme-stalin.c:29025: warning: `a2363' might be used uninitialized in this function scheme-stalin.c:29026: warning: `a2364' might be used uninitialized in this function scheme-stalin.c:29027: warning: `a2365' might be used uninitialized in this function scheme-stalin.c:29028: warning: `a2366' might be used uninitialized in this function scheme-stalin.c:29029: warning: `a2367' might be used uninitialized in this function scheme-stalin.c:29030: warning: `a2368' might be used uninitialized in this function scheme-stalin.c:29031: warning: `a2369' might be used uninitialized in this function scheme-stalin.c:29032: warning: `a2370' might be used uninitialized in this function scheme-stalin.c:29034: warning: `a2372' might be used uninitialized in this function scheme-stalin.c:29035: warning: `a2373' might be used uninitialized in this function scheme-stalin.c:29036: warning: `a2374' might be used uninitialized in this function scheme-stalin.c:29037: warning: `a2375' might be used uninitialized in this function scheme-stalin.c:29038: warning: `a2376' might be used uninitialized in this function scheme-stalin.c:29039: warning: `a2377' might be used uninitialized in this function scheme-stalin.c:29040: warning: `a2378' might be used uninitialized in this function scheme-stalin.c:29041: warning: `a2379' might be used uninitialized in this function scheme-stalin.c:29042: warning: `a2380' might be used uninitialized in this function scheme-stalin.c:29043: warning: `a2381' might be used uninitialized in this function scheme-stalin.c:29044: warning: `a2382' might be used uninitialized in this function scheme-stalin.c:29046: warning: `a2384' might be used uninitialized in this function scheme-stalin.c:29048: warning: `a2386' might be used uninitialized in this function scheme-stalin.c:29049: warning: `a2387' might be used uninitialized in this function scheme-stalin.c:29051: warning: `a2389' might be used uninitialized in this function scheme-stalin.c:29054: warning: `a2392' might be used uninitialized in this function scheme-stalin.c:29057: warning: `a2395' might be used uninitialized in this function scheme-stalin.c:29061: warning: `a2399' might be used uninitialized in this function scheme-stalin.c:29065: warning: `a2403' might be used uninitialized in this function scheme-stalin.c:29070: warning: `a2408' might be used uninitialized in this function scheme-stalin.c:29072: warning: `a2410' might be used uninitialized in this function scheme-stalin.c:29074: warning: `a2412' might be used uninitialized in this function scheme-stalin.c:29077: warning: `a2415' might be used uninitialized in this function scheme-stalin.c:29079: warning: `a2417' might be used uninitialized in this function scheme-stalin.c:29080: warning: `a2418' might be used uninitialized in this function scheme-stalin.c:29083: warning: `a2421' might be used uninitialized in this function scheme-stalin.c:29084: warning: `a2422' might be used uninitialized in this function scheme-stalin.c:29088: warning: `a2426' might be used uninitialized in this function scheme-stalin.c:29090: warning: `a2428' might be used uninitialized in this function scheme-stalin.c:29092: warning: `a2430' might be used uninitialized in this function scheme-stalin.c:29093: warning: `a2431' might be used uninitialized in this function scheme-stalin.c:29095: warning: `a2433' might be used uninitialized in this function scheme-stalin.c:29097: warning: `a2435' might be used uninitialized in this function scheme-stalin.c:29098: warning: `a2436' might be used uninitialized in this function scheme-stalin.c:29100: warning: `a2438' might be used uninitialized in this function scheme-stalin.c:29101: warning: `a2439' might be used uninitialized in this function scheme-stalin.c:29104: warning: `a2442' might be used uninitialized in this function scheme-stalin.c:29106: warning: `a2444' might be used uninitialized in this function scheme-stalin.c:29108: warning: `a2446' might be used uninitialized in this function scheme-stalin.c:29110: warning: `a2448' might be used uninitialized in this function scheme-stalin.c:29114: warning: `a2452' might be used uninitialized in this function scheme-stalin.c:29116: warning: `a2454' might be used uninitialized in this function scheme-stalin.c:29119: warning: `a2457' might be used uninitialized in this function scheme-stalin.c:29121: warning: `a2459' might be used uninitialized in this function scheme-stalin.c:29137: warning: `a2475' might be used uninitialized in this function scheme-stalin.c:29261: warning: `t4186' might be used uninitialized in this function scheme-stalin.c:29281: warning: `t4206' might be used uninitialized in this function scheme-stalin.c:29320: warning: `t4252' might be used uninitialized in this function scheme-stalin.c:29340: warning: `t4272' might be used uninitialized in this function scheme-stalin.c:29353: warning: `t4286' might be used uninitialized in this function scheme-stalin.c:29378: warning: `t4311' might be used uninitialized in this function scheme-stalin.c:29401: warning: `t4339' might be used uninitialized in this function scheme-stalin.c:29435: warning: `t4378' might be used uninitialized in this function scheme-stalin.c:29455: warning: `t4398' might be used uninitialized in this function scheme-stalin.c:29468: warning: `t4412' might be used uninitialized in this function scheme-stalin.c:29493: warning: `t4437' might be used uninitialized in this function scheme-stalin.c:29516: warning: `t4464' might be used uninitialized in this function scheme-stalin.c:29698: warning: `t4668' might be used uninitialized in this function scheme-stalin.c:30449: warning: `t5595' might be used uninitialized in this function scheme-stalin.c: In function `f1636': scheme-stalin.c:35980: warning: `a2355' might be used uninitialized in this function scheme-stalin.c:35984: warning: `a2359' might be used uninitialized in this function scheme-stalin.c: In function `f1635': scheme-stalin.c:36092: warning: control reaches end of non-void function scheme-stalin.c: In function `f1634': scheme-stalin.c:36099: warning: control reaches end of non-void function scheme-stalin.c: In function `f1621': scheme-stalin.c:36133: warning: `a2347' might be used uninitialized in this function scheme-stalin.c: In function `f1616': scheme-stalin.c:37524: warning: `a2342' might be used uninitialized in this function scheme-stalin.c: In function `f1581': scheme-stalin.c:38913: warning: `r1581' might be used uninitialized in this function scheme-stalin.c:38921: warning: `a2315' might be used uninitialized in this function scheme-stalin.c:38925: warning: `a2319' might be used uninitialized in this function scheme-stalin.c:38930: warning: `a2324' might be used uninitialized in this function scheme-stalin.c:38935: warning: `a2329' might be used uninitialized in this function scheme-stalin.c:38939: warning: `a2333' might be used uninitialized in this function scheme-stalin.c: In function `f1557': scheme-stalin.c:42160: warning: `a2290' might be used uninitialized in this function scheme-stalin.c:42164: warning: `a2294' might be used uninitialized in this function scheme-stalin.c:42169: warning: `a2299' might be used uninitialized in this function scheme-stalin.c:42174: warning: `a2304' might be used uninitialized in this function scheme-stalin.c:42178: warning: `a2308' might be used uninitialized in this function scheme-stalin.c: In function `f1548': scheme-stalin.c:45960: warning: `a2279' might be used uninitialized in this function scheme-stalin.c:45964: warning: `a2283' might be used uninitialized in this function scheme-stalin.c: In function `f1470': scheme-stalin.c:52697: warning: `r1470' might be used uninitialized in this function scheme-stalin.c: In function `f1460': scheme-stalin.c:52731: warning: `a2206' might be used uninitialized in this function scheme-stalin.c:52734: warning: `a2209' might be used uninitialized in this function scheme-stalin.c: In function `f1421': scheme-stalin.c:53872: warning: `a2177' might be used uninitialized in this function scheme-stalin.c:53874: warning: `a2179' might be used uninitialized in this function scheme-stalin.c:53876: warning: `a2181' might be used uninitialized in this function scheme-stalin.c: In function `f1411': scheme-stalin.c:54034: warning: `a2168' might be used uninitialized in this function scheme-stalin.c:54036: warning: `a2170' might be used uninitialized in this function scheme-stalin.c:54038: warning: `a2172' might be used uninitialized in this function scheme-stalin.c:54039: warning: `a2173' might be used uninitialized in this function scheme-stalin.c: In function `f1382': scheme-stalin.c:54186: warning: `a2146' might be used uninitialized in this function scheme-stalin.c:54188: warning: `a2148' might be used uninitialized in this function scheme-stalin.c:54191: warning: `a2151' might be used uninitialized in this function scheme-stalin.c:54193: warning: `a2153' might be used uninitialized in this function scheme-stalin.c:54195: warning: `a2155' might be used uninitialized in this function scheme-stalin.c:54196: warning: `a2156' might be used uninitialized in this function scheme-stalin.c:54197: warning: `a2157' might be used uninitialized in this function scheme-stalin.c:54198: warning: `a2158' might be used uninitialized in this function scheme-stalin.c: In function `f1372': scheme-stalin.c:54549: warning: `a2138' might be used uninitialized in this function scheme-stalin.c:54551: warning: `a2140' might be used uninitialized in this function scheme-stalin.c:54553: warning: `a2142' might be used uninitialized in this function scheme-stalin.c: In function `f1361': scheme-stalin.c:54818: warning: unused variable `e1370' scheme-stalin.c:54817: warning: unused variable `e1368' scheme-stalin.c:54752: warning: unused variable `a2133' scheme-stalin.c:54751: warning: unused variable `a2132' scheme-stalin.c:54741: warning: `a2122' might be used uninitialized in this function scheme-stalin.c:54742: warning: `a2123' might be used uninitialized in this function scheme-stalin.c:54749: warning: `a2130' might be used uninitialized in this function scheme-stalin.c: In function `f1350': scheme-stalin.c:55074: warning: unused variable `e1359' scheme-stalin.c:55073: warning: unused variable `e1357' scheme-stalin.c:55008: warning: unused variable `a2118' scheme-stalin.c:55007: warning: unused variable `a2117' scheme-stalin.c:54997: warning: `a2107' might be used uninitialized in this function scheme-stalin.c:54998: warning: `a2108' might be used uninitialized in this function scheme-stalin.c:55005: warning: `a2115' might be used uninitialized in this function scheme-stalin.c: In function `f1339': scheme-stalin.c:55330: warning: unused variable `e1348' scheme-stalin.c:55329: warning: unused variable `e1346' scheme-stalin.c:55264: warning: unused variable `a2103' scheme-stalin.c:55263: warning: unused variable `a2102' scheme-stalin.c:55253: warning: `a2092' might be used uninitialized in this function scheme-stalin.c:55254: warning: `a2093' might be used uninitialized in this function scheme-stalin.c:55261: warning: `a2100' might be used uninitialized in this function scheme-stalin.c: In function `f1328': scheme-stalin.c:55586: warning: unused variable `e1337' scheme-stalin.c:55585: warning: unused variable `e1335' scheme-stalin.c:55520: warning: unused variable `a2088' scheme-stalin.c:55519: warning: unused variable `a2087' scheme-stalin.c:55509: warning: `a2077' might be used uninitialized in this function scheme-stalin.c:55510: warning: `a2078' might be used uninitialized in this function scheme-stalin.c:55517: warning: `a2085' might be used uninitialized in this function scheme-stalin.c: In function `f1317': scheme-stalin.c:55842: warning: unused variable `e1326' scheme-stalin.c:55841: warning: unused variable `e1324' scheme-stalin.c:55776: warning: unused variable `a2073' scheme-stalin.c:55775: warning: unused variable `a2072' scheme-stalin.c:55765: warning: `a2062' might be used uninitialized in this function scheme-stalin.c:55766: warning: `a2063' might be used uninitialized in this function scheme-stalin.c:55773: warning: `a2070' might be used uninitialized in this function scheme-stalin.c: In function `f1306': scheme-stalin.c:56098: warning: unused variable `e1315' scheme-stalin.c:56097: warning: unused variable `e1313' scheme-stalin.c:56032: warning: unused variable `a2058' scheme-stalin.c:56031: warning: unused variable `a2057' scheme-stalin.c:56021: warning: `a2047' might be used uninitialized in this function scheme-stalin.c:56022: warning: `a2048' might be used uninitialized in this function scheme-stalin.c:56029: warning: `a2055' might be used uninitialized in this function scheme-stalin.c: In function `f1295': scheme-stalin.c:56354: warning: unused variable `e1304' scheme-stalin.c:56353: warning: unused variable `e1302' scheme-stalin.c:56288: warning: unused variable `a2043' scheme-stalin.c:56287: warning: unused variable `a2042' scheme-stalin.c:56277: warning: `a2032' might be used uninitialized in this function scheme-stalin.c:56278: warning: `a2033' might be used uninitialized in this function scheme-stalin.c:56285: warning: `a2040' might be used uninitialized in this function scheme-stalin.c: In function `f1284': scheme-stalin.c:56610: warning: unused variable `e1293' scheme-stalin.c:56609: warning: unused variable `e1291' scheme-stalin.c:56544: warning: unused variable `a2028' scheme-stalin.c:56543: warning: unused variable `a2027' scheme-stalin.c:56533: warning: `a2017' might be used uninitialized in this function scheme-stalin.c:56534: warning: `a2018' might be used uninitialized in this function scheme-stalin.c:56541: warning: `a2025' might be used uninitialized in this function scheme-stalin.c: In function `f1272': scheme-stalin.c:56850: warning: unused variable `e1282' scheme-stalin.c:56849: warning: unused variable `e1280' scheme-stalin.c:56799: warning: unused variable `a2013' scheme-stalin.c:56798: warning: unused variable `a2012' scheme-stalin.c:56789: warning: `a2003' might be used uninitialized in this function scheme-stalin.c:56790: warning: `a2004' might be used uninitialized in this function scheme-stalin.c:56796: warning: `a2010' might be used uninitialized in this function scheme-stalin.c: In function `f1260': scheme-stalin.c:57080: warning: unused variable `e1270' scheme-stalin.c:57079: warning: unused variable `e1268' scheme-stalin.c:57029: warning: unused variable `a1999' scheme-stalin.c:57028: warning: unused variable `a1998' scheme-stalin.c:57019: warning: `a1989' might be used uninitialized in this function scheme-stalin.c:57020: warning: `a1990' might be used uninitialized in this function scheme-stalin.c:57026: warning: `a1996' might be used uninitialized in this function scheme-stalin.c: In function `f1259': scheme-stalin.c:57249: warning: `r1259' might be used uninitialized in this function scheme-stalin.c: In function `f1249': scheme-stalin.c:57283: warning: `a1976' might be used uninitialized in this function scheme-stalin.c:57286: warning: `a1979' might be used uninitialized in this function scheme-stalin.c: In function `f1232': scheme-stalin.c:57626: warning: unused variable `e1237' scheme-stalin.c:57625: warning: unused variable `e1236' scheme-stalin.c:57624: warning: unused variable `e1235' scheme-stalin.c:57623: warning: unused variable `e1234' scheme-stalin.c:57607: warning: unused variable `a1963' scheme-stalin.c:57606: warning: unused variable `a1962' scheme-stalin.c:57605: warning: unused variable `a1961' scheme-stalin.c:57604: warning: unused variable `a1960' scheme-stalin.c: In function `f1229': scheme-stalin.c:57722: warning: unused variable `e1230' scheme-stalin.c:57696: warning: unused variable `a1956' scheme-stalin.c: In function `f1223': scheme-stalin.c:57796: warning: unused variable `e1227' scheme-stalin.c:57767: warning: unused variable `a1954' scheme-stalin.c:57762: warning: `a1949' might be used uninitialized in this function scheme-stalin.c:57763: warning: `a1950' might be used uninitialized in this function scheme-stalin.c: In function `f1217': scheme-stalin.c:57902: warning: unused variable `e1221' scheme-stalin.c:57873: warning: unused variable `a1945' scheme-stalin.c:57868: warning: `a1940' might be used uninitialized in this function scheme-stalin.c:57869: warning: `a1941' might be used uninitialized in this function scheme-stalin.c: In function `f1211': scheme-stalin.c:58008: warning: unused variable `e1215' scheme-stalin.c:57979: warning: unused variable `a1936' scheme-stalin.c:57974: warning: `a1931' might be used uninitialized in this function scheme-stalin.c:57975: warning: `a1932' might be used uninitialized in this function scheme-stalin.c: In function `f1205': scheme-stalin.c:58114: warning: unused variable `e1209' scheme-stalin.c:58085: warning: unused variable `a1927' scheme-stalin.c:58080: warning: `a1922' might be used uninitialized in this function scheme-stalin.c:58081: warning: `a1923' might be used uninitialized in this function scheme-stalin.c: In function `f1199': scheme-stalin.c:58220: warning: unused variable `e1203' scheme-stalin.c:58191: warning: unused variable `a1918' scheme-stalin.c:58186: warning: `a1913' might be used uninitialized in this function scheme-stalin.c:58187: warning: `a1914' might be used uninitialized in this function scheme-stalin.c: In function `f1193': scheme-stalin.c:58320: warning: unused variable `e1197' scheme-stalin.c:58297: warning: unused variable `a1909' scheme-stalin.c:58292: warning: `a1904' might be used uninitialized in this function scheme-stalin.c:58293: warning: `a1905' might be used uninitialized in this function scheme-stalin.c: In function `f1187': scheme-stalin.c:58411: warning: unused variable `e1191' scheme-stalin.c:58388: warning: unused variable `a1900' scheme-stalin.c:58383: warning: `a1895' might be used uninitialized in this function scheme-stalin.c:58384: warning: `a1896' might be used uninitialized in this function scheme-stalin.c: In function `f1181': scheme-stalin.c:58502: warning: unused variable `e1185' scheme-stalin.c:58479: warning: unused variable `a1891' scheme-stalin.c:58474: warning: `a1886' might be used uninitialized in this function scheme-stalin.c:58475: warning: `a1887' might be used uninitialized in this function scheme-stalin.c: In function `f1175': scheme-stalin.c:58593: warning: unused variable `e1179' scheme-stalin.c:58570: warning: unused variable `a1882' scheme-stalin.c:58565: warning: `a1877' might be used uninitialized in this function scheme-stalin.c:58566: warning: `a1878' might be used uninitialized in this function scheme-stalin.c: In function `f1169': scheme-stalin.c:58684: warning: unused variable `e1173' scheme-stalin.c:58661: warning: unused variable `a1873' scheme-stalin.c:58656: warning: `a1868' might be used uninitialized in this function scheme-stalin.c:58657: warning: `a1869' might be used uninitialized in this function scheme-stalin.c: In function `f1119': scheme-stalin.c:59047: warning: unused variable `e1133' scheme-stalin.c:59046: warning: unused variable `e1127' scheme-stalin.c:58973: warning: unused variable `a1830' scheme-stalin.c:58972: warning: unused variable `a1829' scheme-stalin.c:58965: warning: `a1822' might be used uninitialized in this function scheme-stalin.c:58966: warning: `a1823' might be used uninitialized in this function scheme-stalin.c: In function `f1107': scheme-stalin.c:59430: warning: unused variable `e1118' scheme-stalin.c:59429: warning: unused variable `e1116' scheme-stalin.c:59427: warning: unused variable `e1114' scheme-stalin.c:59354: warning: unused variable `a1820' scheme-stalin.c:59353: warning: unused variable `a1819' scheme-stalin.c:59351: warning: unused variable `a1817' scheme-stalin.c:59345: warning: `a1811' might be used uninitialized in this function scheme-stalin.c:59346: warning: `a1812' might be used uninitialized in this function scheme-stalin.c: In function `f1097': scheme-stalin.c:59689: warning: `a1798' might be used uninitialized in this function scheme-stalin.c:59690: warning: `a1799' might be used uninitialized in this function scheme-stalin.c: In function `f1077': scheme-stalin.c:59768: warning: `a1776' might be used uninitialized in this function scheme-stalin.c:59769: warning: `a1777' might be used uninitialized in this function scheme-stalin.c: In function `f1072': scheme-stalin.c:59878: warning: `a1770' might be used uninitialized in this function scheme-stalin.c:59879: warning: `a1771' might be used uninitialized in this function scheme-stalin.c: In function `f835': scheme-stalin.c:60042: warning: `a1714' might be used uninitialized in this function scheme-stalin.c:60044: warning: `a1716' might be used uninitialized in this function scheme-stalin.c: In function `f778': scheme-stalin.c:65199: warning: `a1671' might be used uninitialized in this function scheme-stalin.c:65200: warning: `a1672' might be used uninitialized in this function scheme-stalin.c:65201: warning: `a1673' might be used uninitialized in this function scheme-stalin.c: In function `f771': scheme-stalin.c:65325: warning: `a2192' might be used uninitialized in this function scheme-stalin.c:65327: warning: `a2194' might be used uninitialized in this function scheme-stalin.c:65329: warning: `a2196' might be used uninitialized in this function scheme-stalin.c:65332: warning: `a2262' might be used uninitialized in this function scheme-stalin.c:65334: warning: `a2264' might be used uninitialized in this function scheme-stalin.c:65336: warning: `a2266' might be used uninitialized in this function scheme-stalin.c: In function `f766': scheme-stalin.c:65711: warning: `a1661' might be used uninitialized in this function scheme-stalin.c:65712: warning: `a1662' might be used uninitialized in this function scheme-stalin.c: In function `f694': scheme-stalin.c:66088: warning: unused variable `e740' scheme-stalin.c:66069: warning: unused variable `e712' scheme-stalin.c:66063: warning: unused variable `e700' scheme-stalin.c:66062: warning: unused variable `e699' scheme-stalin.c:65863: warning: unused variable `a1643' scheme-stalin.c:65842: warning: unused variable `a1622' scheme-stalin.c:65836: warning: unused variable `a1613' scheme-stalin.c:65835: warning: unused variable `a1612' scheme-stalin.c:65832: warning: `a1609' might be used uninitialized in this function scheme-stalin.c:65833: warning: `a1610' might be used uninitialized in this function scheme-stalin.c:65837: warning: `a1614' might be used uninitialized in this function scheme-stalin.c:65838: warning: `a1615' might be used uninitialized in this function scheme-stalin.c:65839: warning: `a1619' might be used uninitialized in this function scheme-stalin.c:65840: warning: `a1620' might be used uninitialized in this function scheme-stalin.c:65845: warning: `a1625' might be used uninitialized in this function scheme-stalin.c:65847: warning: `a1627' might be used uninitialized in this function scheme-stalin.c:65850: warning: `a1630' might be used uninitialized in this function scheme-stalin.c:65852: warning: `a1632' might be used uninitialized in this function scheme-stalin.c:65854: warning: `a1634' might be used uninitialized in this function scheme-stalin.c:65855: warning: `a1635' might be used uninitialized in this function scheme-stalin.c:65856: warning: `a1636' might be used uninitialized in this function scheme-stalin.c:65857: warning: `a1637' might be used uninitialized in this function scheme-stalin.c:65860: warning: `a1640' might be used uninitialized in this function scheme-stalin.c:65861: warning: `a1641' might be used uninitialized in this function scheme-stalin.c:65866: warning: `a1646' might be used uninitialized in this function scheme-stalin.c:65868: warning: `a1648' might be used uninitialized in this function scheme-stalin.c:65870: warning: `a1650' might be used uninitialized in this function scheme-stalin.c:65872: warning: `a1652' might be used uninitialized in this function scheme-stalin.c:65874: warning: `a1654' might be used uninitialized in this function scheme-stalin.c:65875: warning: `a1655' might be used uninitialized in this function scheme-stalin.c:65876: warning: `a1656' might be used uninitialized in this function scheme-stalin.c:65877: warning: `a1657' might be used uninitialized in this function scheme-stalin.c: In function `f659': scheme-stalin.c:66876: warning: `a1588' might be used uninitialized in this function scheme-stalin.c:66878: warning: `a1590' might be used uninitialized in this function scheme-stalin.c: In function `f649': scheme-stalin.c:67028: warning: unused variable `e656' scheme-stalin.c:67026: warning: unused variable `e654' scheme-stalin.c:67022: warning: unused variable `e650' scheme-stalin.c:66997: warning: unused variable `a1584' scheme-stalin.c:66995: warning: unused variable `a1582' scheme-stalin.c:66990: warning: unused variable `a1577' scheme-stalin.c:66991: warning: `a1578' might be used uninitialized in this function scheme-stalin.c:66992: warning: `a1579' might be used uninitialized in this function scheme-stalin.c: In function `f619': scheme-stalin.c:67450: warning: `r619' might be used uninitialized in this function scheme-stalin.c: In function `f618': scheme-stalin.c:67462: warning: `r618' might be used uninitialized in this function scheme-stalin.c: In function `f605': scheme-stalin.c:67560: warning: unused variable `e612' scheme-stalin.c:67556: warning: unused variable `e608' scheme-stalin.c:67555: warning: unused variable `e607' scheme-stalin.c:67554: warning: unused variable `e606' scheme-stalin.c:67504: warning: unused variable `a1537' scheme-stalin.c:67500: warning: unused variable `a1533' scheme-stalin.c:67499: warning: unused variable `a1532' scheme-stalin.c:67498: warning: unused variable `a1531' scheme-stalin.c:67502: warning: `a1535' might be used uninitialized in this function scheme-stalin.c: In function `f600': scheme-stalin.c:68437: warning: unused variable `e603' scheme-stalin.c:68436: warning: unused variable `e602' scheme-stalin.c:68435: warning: unused variable `e601' scheme-stalin.c:68415: warning: unused variable `a1526' scheme-stalin.c:68414: warning: unused variable `a1525' scheme-stalin.c:68413: warning: unused variable `a1524' scheme-stalin.c: In function `f476': scheme-stalin.c:69264: warning: `r476' might be used uninitialized in this function scheme-stalin.c:69265: warning: `a1513' might be used uninitialized in this function scheme-stalin.c: In function `f471': scheme-stalin.c:69285: warning: `a1509' might be used uninitialized in this function scheme-stalin.c: In function `f447': scheme-stalin.c:69359: warning: `a1100' might be used uninitialized in this function scheme-stalin.c:69364: warning: `a1105' might be used uninitialized in this function scheme-stalin.c:69373: warning: `a1124' might be used uninitialized in this function scheme-stalin.c:69374: warning: `a1125' might be used uninitialized in this function scheme-stalin.c:69377: warning: `a1128' might be used uninitialized in this function scheme-stalin.c:69385: warning: `a1165' might be used uninitialized in this function scheme-stalin.c:69398: warning: `a1192' might be used uninitialized in this function scheme-stalin.c:69401: warning: `a1199' might be used uninitialized in this function scheme-stalin.c:69403: warning: `a1201' might be used uninitialized in this function scheme-stalin.c:69408: warning: `a1213' might be used uninitialized in this function scheme-stalin.c:69412: warning: `a1217' might be used uninitialized in this function scheme-stalin.c:69416: warning: `a1228' might be used uninitialized in this function scheme-stalin.c:69419: warning: `a1237' might be used uninitialized in this function scheme-stalin.c:69422: warning: `a1240' might be used uninitialized in this function scheme-stalin.c:69428: warning: `a1248' might be used uninitialized in this function scheme-stalin.c:69431: warning: `a1251' might be used uninitialized in this function scheme-stalin.c:69531: warning: `t13269' might be used uninitialized in this function scheme-stalin.c:70078: warning: `t13866' might be used uninitialized in this function scheme-stalin.c:70087: warning: `t13876' might be used uninitialized in this function scheme-stalin.c:70107: warning: `t13897' might be used uninitialized in this function scheme-stalin.c:70129: warning: `t13920' might be used uninitialized in this function scheme-stalin.c: In function `f442': scheme-stalin.c:73075: warning: `a1501' might be used uninitialized in this function scheme-stalin.c: In function `f425': scheme-stalin.c:85071: warning: `a1049' might be used uninitialized in this function scheme-stalin.c: In function `f414': scheme-stalin.c:85124: warning: `a1469' might be used uninitialized in this function scheme-stalin.c:85125: warning: `a1470' might be used uninitialized in this function scheme-stalin.c:85127: warning: `a1472' might be used uninitialized in this function scheme-stalin.c:85131: warning: `a1476' might be used uninitialized in this function scheme-stalin.c: In function `f410': scheme-stalin.c:87552: warning: `a1461' might be used uninitialized in this function scheme-stalin.c:87553: warning: `a1462' might be used uninitialized in this function scheme-stalin.c:87554: warning: `a1463' might be used uninitialized in this function scheme-stalin.c: In function `f406': scheme-stalin.c:92461: warning: `a1453' might be used uninitialized in this function scheme-stalin.c:92462: warning: `a1454' might be used uninitialized in this function scheme-stalin.c: In function `f402': scheme-stalin.c:96054: warning: `a1447' might be used uninitialized in this function scheme-stalin.c: In function `f362': scheme-stalin.c:107441: warning: `a1392' might be used uninitialized in this function scheme-stalin.c:107442: warning: `a1393' might be used uninitialized in this function scheme-stalin.c:107443: warning: `a1394' might be used uninitialized in this function scheme-stalin.c:107444: warning: `a1395' might be used uninitialized in this function scheme-stalin.c:107445: warning: `a1396' might be used uninitialized in this function scheme-stalin.c:107447: warning: `a1398' might be used uninitialized in this function scheme-stalin.c:107452: warning: `a1403' might be used uninitialized in this function scheme-stalin.c: In function `f332': scheme-stalin.c:109819: warning: `a1355' might be used uninitialized in this function scheme-stalin.c:109820: warning: `a1356' might be used uninitialized in this function scheme-stalin.c:109821: warning: `a1357' might be used uninitialized in this function scheme-stalin.c:109822: warning: `a1358' might be used uninitialized in this function scheme-stalin.c:109823: warning: `a1359' might be used uninitialized in this function scheme-stalin.c:109825: warning: `a1361' might be used uninitialized in this function scheme-stalin.c:109830: warning: `a1366' might be used uninitialized in this function scheme-stalin.c: In function `f314': scheme-stalin.c:111809: warning: `r314' might be used uninitialized in this function scheme-stalin.c: In function `f312': scheme-stalin.c:112075: warning: `r312' might be used uninitialized in this function scheme-stalin.c: In function `f310': scheme-stalin.c:112381: warning: `r310' might be used uninitialized in this function scheme-stalin.c: In function `f308': scheme-stalin.c:112687: warning: `r308' might be used uninitialized in this function scheme-stalin.c: In function `f306': scheme-stalin.c:112993: warning: `r306' might be used uninitialized in this function scheme-stalin.c: In function `f304': scheme-stalin.c:113299: warning: `r304' might be used uninitialized in this function scheme-stalin.c: In function `f300': scheme-stalin.c:113605: warning: `r300' might be used uninitialized in this function scheme-stalin.c: In function `f298': scheme-stalin.c:113875: warning: `r298' might be used uninitialized in this function scheme-stalin.c: In function `f296': scheme-stalin.c:114145: warning: `r296' might be used uninitialized in this function scheme-stalin.c: In function `f294': scheme-stalin.c:114415: warning: `r294' might be used uninitialized in this function scheme-stalin.c: In function `f292': scheme-stalin.c:114685: warning: `r292' might be used uninitialized in this function scheme-stalin.c: In function `f288': scheme-stalin.c:114955: warning: `r288' might be used uninitialized in this function scheme-stalin.c: In function `f286': scheme-stalin.c:115221: warning: `r286' might be used uninitialized in this function scheme-stalin.c: In function `f284': scheme-stalin.c:115487: warning: `r284' might be used uninitialized in this function scheme-stalin.c: In function `f282': scheme-stalin.c:115753: warning: `r282' might be used uninitialized in this function scheme-stalin.c: In function `f280': scheme-stalin.c:116019: warning: `r280' might be used uninitialized in this function scheme-stalin.c: In function `f270': scheme-stalin.c:116740: warning: `a1056' might be used uninitialized in this function scheme-stalin.c:116743: warning: `a1059' might be used uninitialized in this function scheme-stalin.c: In function `f252': scheme-stalin.c:118315: warning: `r252' might be used uninitialized in this function scheme-stalin.c: In function `f250': scheme-stalin.c:118321: warning: `r250' might be used uninitialized in this function scheme-stalin.c: In function `f248': scheme-stalin.c:118327: warning: `r248' might be used uninitialized in this function scheme-stalin.c: In function `f172': scheme-stalin.c:119306: warning: `a1206' might be used uninitialized in this function scheme-stalin.c:119308: warning: `a1208' might be used uninitialized in this function scheme-stalin.c: In function `f160': scheme-stalin.c:119390: warning: `a1196' might be used uninitialized in this function scheme-stalin.c: In function `f141': scheme-stalin.c:119623: warning: `a1173' might be used uninitialized in this function scheme-stalin.c:119624: warning: `a1174' might be used uninitialized in this function scheme-stalin.c:119625: warning: `a1175' might be used uninitialized in this function scheme-stalin.c: In function `f129': scheme-stalin.c:119921: warning: `a1157' might be used uninitialized in this function scheme-stalin.c:119924: warning: `a1160' might be used uninitialized in this function scheme-stalin.c: In function `f111': scheme-stalin.c:120055: warning: `a1140' might be used uninitialized in this function scheme-stalin.c:120056: warning: `a1141' might be used uninitialized in this function scheme-stalin.c:120057: warning: `a1142' might be used uninitialized in this function scheme-stalin.c:120058: warning: `a1143' might be used uninitialized in this function scheme-stalin.c:120065: warning: `a1150' might be used uninitialized in this function scheme-stalin.c: In function `f100': scheme-stalin.c:120536: warning: `a1135' might be used uninitialized in this function scheme-stalin.c:120537: warning: `a1136' might be used uninitialized in this function scheme-stalin.c: In function `f86': scheme-stalin.c:120648: warning: `a1116' might be used uninitialized in this function scheme-stalin.c: In function `f75': scheme-stalin.c:120846: warning: `a1062' might be used uninitialized in this function scheme-stalin.c:120849: warning: `a1111' might be used uninitialized in this function scheme-stalin.c: In function `f60': scheme-stalin.c:122733: warning: `a1091' might be used uninitialized in this function scheme-stalin.c: In function `f56': scheme-stalin.c:122881: warning: `a1087' might be used uninitialized in this function scheme-stalin.c: In function `f41': scheme-stalin.c:122959: warning: `a1070' might be used uninitialized in this function scheme-stalin.c:122963: warning: `a1074' might be used uninitialized in this function scheme-stalin.c: In function `f24': scheme-stalin.c:123927: warning: `r24' might be used uninitialized in this function scheme-stalin.c:123929: warning: `a1044' might be used uninitialized in this function scheme-stalin.c: In function `f0': scheme-stalin.c:124380: warning: `a1' might be used uninitialized in this function scheme-stalin.c:124381: warning: `a2' might be used uninitialized in this function scheme-stalin.c:124382: warning: `a3' might be used uninitialized in this function scheme-stalin.c:124383: warning: `a4' might be used uninitialized in this function scheme-stalin.c:124384: warning: `a5' might be used uninitialized in this function scheme-stalin.c:124385: warning: `a6' might be used uninitialized in this function scheme-stalin.c:124386: warning: `a7' might be used uninitialized in this function scheme-stalin.c:124387: warning: `a8' might be used uninitialized in this function scheme-stalin.c:124388: warning: `a9' might be used uninitialized in this function scheme-stalin.c:124389: warning: `a10' might be used uninitialized in this function scheme-stalin.c:124390: warning: `a11' might be used uninitialized in this function scheme-stalin.c:124391: warning: `a12' might be used uninitialized in this function scheme-stalin.c:124392: warning: `a13' might be used uninitialized in this function scheme-stalin.c:124393: warning: `a14' might be used uninitialized in this function scheme-stalin.c:124394: warning: `a15' might be used uninitialized in this function scheme-stalin.c:124395: warning: `a16' might be used uninitialized in this function scheme-stalin.c:124396: warning: `a17' might be used uninitialized in this function scheme-stalin.c:124397: warning: `a18' might be used uninitialized in this function scheme-stalin.c:124398: warning: `a19' might be used uninitialized in this function scheme-stalin.c:124399: warning: `a20' might be used uninitialized in this function scheme-stalin.c:124400: warning: `a21' might be used uninitialized in this function scheme-stalin.c:124401: warning: `a22' might be used uninitialized in this function scheme-stalin.c:124402: warning: `a23' might be used uninitialized in this function scheme-stalin.c:124403: warning: `a24' might be used uninitialized in this function scheme-stalin.c:124404: warning: `a25' might be used uninitialized in this function scheme-stalin.c:124405: warning: `a26' might be used uninitialized in this function scheme-stalin.c:124406: warning: `a27' might be used uninitialized in this function scheme-stalin.c:124407: warning: `a28' might be used uninitialized in this function scheme-stalin.c:124408: warning: `a29' might be used uninitialized in this function scheme-stalin.c:124409: warning: `a30' might be used uninitialized in this function scheme-stalin.c:124410: warning: `a31' might be used uninitialized in this function scheme-stalin.c:124411: warning: `a32' might be used uninitialized in this function scheme-stalin.c:124412: warning: `a33' might be used uninitialized in this function scheme-stalin.c:124413: warning: `a34' might be used uninitialized in this function scheme-stalin.c:124414: warning: `a35' might be used uninitialized in this function scheme-stalin.c:124415: warning: `a36' might be used uninitialized in this function scheme-stalin.c:124416: warning: `a37' might be used uninitialized in this function scheme-stalin.c:124417: warning: `a38' might be used uninitialized in this function scheme-stalin.c:124418: warning: `a39' might be used uninitialized in this function scheme-stalin.c:124419: warning: `a40' might be used uninitialized in this function scheme-stalin.c:124420: warning: `a41' might be used uninitialized in this function scheme-stalin.c:124421: warning: `a42' might be used uninitialized in this function scheme-stalin.c:124422: warning: `a43' might be used uninitialized in this function scheme-stalin.c:124423: warning: `a44' might be used uninitialized in this function scheme-stalin.c:124424: warning: `a45' might be used uninitialized in this function scheme-stalin.c:124425: warning: `a46' might be used uninitialized in this function scheme-stalin.c:124426: warning: `a47' might be used uninitialized in this function scheme-stalin.c:124427: warning: `a48' might be used uninitialized in this function scheme-stalin.c:124428: warning: `a49' might be used uninitialized in this function scheme-stalin.c:124429: warning: `a50' might be used uninitialized in this function scheme-stalin.c:124430: warning: `a51' might be used uninitialized in this function scheme-stalin.c:124431: warning: `a52' might be used uninitialized in this function scheme-stalin.c:124432: warning: `a53' might be used uninitialized in this function scheme-stalin.c:124433: warning: `a54' might be used uninitialized in this function scheme-stalin.c:124434: warning: `a55' might be used uninitialized in this function scheme-stalin.c:124435: warning: `a56' might be used uninitialized in this function scheme-stalin.c:124436: warning: `a57' might be used uninitialized in this function scheme-stalin.c:124437: warning: `a58' might be used uninitialized in this function scheme-stalin.c:124438: warning: `a59' might be used uninitialized in this function scheme-stalin.c:124439: warning: `a60' might be used uninitialized in this function scheme-stalin.c:124440: warning: `a61' might be used uninitialized in this function scheme-stalin.c:124441: warning: `a62' might be used uninitialized in this function scheme-stalin.c:124442: warning: `a63' might be used uninitialized in this function scheme-stalin.c:124443: warning: `a64' might be used uninitialized in this function scheme-stalin.c:124444: warning: `a65' might be used uninitialized in this function scheme-stalin.c:124445: warning: `a66' might be used uninitialized in this function scheme-stalin.c:124446: warning: `a67' might be used uninitialized in this function scheme-stalin.c:124447: warning: `a68' might be used uninitialized in this function scheme-stalin.c:124448: warning: `a69' might be used uninitialized in this function scheme-stalin.c:124449: warning: `a70' might be used uninitialized in this function scheme-stalin.c:124450: warning: `a71' might be used uninitialized in this function scheme-stalin.c:124451: warning: `a72' might be used uninitialized in this function scheme-stalin.c:124452: warning: `a73' might be used uninitialized in this function scheme-stalin.c:124453: warning: `a74' might be used uninitialized in this function scheme-stalin.c:124454: warning: `a75' might be used uninitialized in this function scheme-stalin.c:124455: warning: `a76' might be used uninitialized in this function scheme-stalin.c:124456: warning: `a77' might be used uninitialized in this function scheme-stalin.c:124457: warning: `a78' might be used uninitialized in this function scheme-stalin.c:124458: warning: `a79' might be used uninitialized in this function scheme-stalin.c:124459: warning: `a80' might be used uninitialized in this function scheme-stalin.c:124460: warning: `a81' might be used uninitialized in this function scheme-stalin.c:124461: warning: `a82' might be used uninitialized in this function scheme-stalin.c:124462: warning: `a83' might be used uninitialized in this function scheme-stalin.c:124463: warning: `a84' might be used uninitialized in this function scheme-stalin.c:124464: warning: `a85' might be used uninitialized in this function scheme-stalin.c:124465: warning: `a86' might be used uninitialized in this function scheme-stalin.c:124466: warning: `a87' might be used uninitialized in this function scheme-stalin.c:124467: warning: `a88' might be used uninitialized in this function scheme-stalin.c:124468: warning: `a89' might be used uninitialized in this function scheme-stalin.c:124469: warning: `a90' might be used uninitialized in this function scheme-stalin.c:124470: warning: `a91' might be used uninitialized in this function scheme-stalin.c:124471: warning: `a92' might be used uninitialized in this function scheme-stalin.c:124472: warning: `a93' might be used uninitialized in this function scheme-stalin.c:124473: warning: `a94' might be used uninitialized in this function scheme-stalin.c:124474: warning: `a95' might be used uninitialized in this function scheme-stalin.c:124475: warning: `a96' might be used uninitialized in this function scheme-stalin.c:124476: warning: `a97' might be used uninitialized in this function scheme-stalin.c:124477: warning: `a98' might be used uninitialized in this function scheme-stalin.c:124478: warning: `a99' might be used uninitialized in this function scheme-stalin.c:124479: warning: `a100' might be used uninitialized in this function scheme-stalin.c:124480: warning: `a101' might be used uninitialized in this function scheme-stalin.c:124481: warning: `a102' might be used uninitialized in this function scheme-stalin.c:124482: warning: `a103' might be used uninitialized in this function scheme-stalin.c:124483: warning: `a104' might be used uninitialized in this function scheme-stalin.c:124484: warning: `a105' might be used uninitialized in this function scheme-stalin.c:124485: warning: `a106' might be used uninitialized in this function scheme-stalin.c:124486: warning: `a107' might be used uninitialized in this function scheme-stalin.c:124487: warning: `a108' might be used uninitialized in this function scheme-stalin.c:124488: warning: `a109' might be used uninitialized in this function scheme-stalin.c:124489: warning: `a110' might be used uninitialized in this function scheme-stalin.c:124490: warning: `a111' might be used uninitialized in this function scheme-stalin.c:124491: warning: `a112' might be used uninitialized in this function scheme-stalin.c:124492: warning: `a113' might be used uninitialized in this function scheme-stalin.c:124493: warning: `a114' might be used uninitialized in this function scheme-stalin.c:124494: warning: `a115' might be used uninitialized in this function scheme-stalin.c:124495: warning: `a116' might be used uninitialized in this function scheme-stalin.c:124496: warning: `a117' might be used uninitialized in this function scheme-stalin.c:124497: warning: `a118' might be used uninitialized in this function scheme-stalin.c:124498: warning: `a119' might be used uninitialized in this function scheme-stalin.c:124499: warning: `a120' might be used uninitialized in this function scheme-stalin.c:124500: warning: `a121' might be used uninitialized in this function scheme-stalin.c:124501: warning: `a122' might be used uninitialized in this function scheme-stalin.c:124502: warning: `a123' might be used uninitialized in this function scheme-stalin.c:124503: warning: `a124' might be used uninitialized in this function scheme-stalin.c:124504: warning: `a125' might be used uninitialized in this function scheme-stalin.c:124505: warning: `a126' might be used uninitialized in this function scheme-stalin.c:124506: warning: `a127' might be used uninitialized in this function scheme-stalin.c:124507: warning: `a128' might be used uninitialized in this function scheme-stalin.c:124508: warning: `a129' might be used uninitialized in this function scheme-stalin.c:124509: warning: `a130' might be used uninitialized in this function scheme-stalin.c:124510: warning: `a131' might be used uninitialized in this function scheme-stalin.c:124511: warning: `a132' might be used uninitialized in this function scheme-stalin.c:124512: warning: `a133' might be used uninitialized in this function scheme-stalin.c:124513: warning: `a134' might be used uninitialized in this function scheme-stalin.c:124514: warning: `a135' might be used uninitialized in this function scheme-stalin.c:124515: warning: `a136' might be used uninitialized in this function scheme-stalin.c:124516: warning: `a137' might be used uninitialized in this function scheme-stalin.c:124517: warning: `a138' might be used uninitialized in this function scheme-stalin.c:124518: warning: `a139' might be used uninitialized in this function scheme-stalin.c:124519: warning: `a140' might be used uninitialized in this function scheme-stalin.c:124520: warning: `a141' might be used uninitialized in this function scheme-stalin.c:124521: warning: `a142' might be used uninitialized in this function scheme-stalin.c:124522: warning: `a143' might be used uninitialized in this function scheme-stalin.c:124523: warning: `a144' might be used uninitialized in this function scheme-stalin.c:124524: warning: `a145' might be used uninitialized in this function scheme-stalin.c:124525: warning: `a146' might be used uninitialized in this function scheme-stalin.c:124526: warning: `a147' might be used uninitialized in this function scheme-stalin.c:124527: warning: `a148' might be used uninitialized in this function scheme-stalin.c:124528: warning: `a149' might be used uninitialized in this function scheme-stalin.c:124529: warning: `a150' might be used uninitialized in this function scheme-stalin.c:124530: warning: `a151' might be used uninitialized in this function scheme-stalin.c:124531: warning: `a152' might be used uninitialized in this function scheme-stalin.c:124532: warning: `a153' might be used uninitialized in this function scheme-stalin.c:124533: warning: `a154' might be used uninitialized in this function scheme-stalin.c:124534: warning: `a155' might be used uninitialized in this function scheme-stalin.c:124535: warning: `a156' might be used uninitialized in this function scheme-stalin.c:124536: warning: `a157' might be used uninitialized in this function scheme-stalin.c:124537: warning: `a158' might be used uninitialized in this function scheme-stalin.c:124538: warning: `a159' might be used uninitialized in this function scheme-stalin.c:124539: warning: `a160' might be used uninitialized in this function scheme-stalin.c:124540: warning: `a161' might be used uninitialized in this function scheme-stalin.c:124541: warning: `a162' might be used uninitialized in this function scheme-stalin.c:124542: warning: `a163' might be used uninitialized in this function scheme-stalin.c:124543: warning: `a164' might be used uninitialized in this function scheme-stalin.c:124544: warning: `a165' might be used uninitialized in this function scheme-stalin.c:124545: warning: `a166' might be used uninitialized in this function scheme-stalin.c:124546: warning: `a167' might be used uninitialized in this function scheme-stalin.c:124547: warning: `a168' might be used uninitialized in this function scheme-stalin.c:124548: warning: `a169' might be used uninitialized in this function scheme-stalin.c:124549: warning: `a170' might be used uninitialized in this function scheme-stalin.c:124550: warning: `a171' might be used uninitialized in this function scheme-stalin.c:124551: warning: `a172' might be used uninitialized in this function scheme-stalin.c:124552: warning: `a173' might be used uninitialized in this function scheme-stalin.c:124553: warning: `a174' might be used uninitialized in this function scheme-stalin.c:124554: warning: `a175' might be used uninitialized in this function scheme-stalin.c:124555: warning: `a176' might be used uninitialized in this function scheme-stalin.c:124556: warning: `a177' might be used uninitialized in this function scheme-stalin.c:124557: warning: `a178' might be used uninitialized in this function scheme-stalin.c:124558: warning: `a179' might be used uninitialized in this function scheme-stalin.c:124559: warning: `a180' might be used uninitialized in this function scheme-stalin.c:124560: warning: `a181' might be used uninitialized in this function scheme-stalin.c:124561: warning: `a182' might be used uninitialized in this function scheme-stalin.c:124562: warning: `a183' might be used uninitialized in this function scheme-stalin.c:124563: warning: `a184' might be used uninitialized in this function scheme-stalin.c:124564: warning: `a185' might be used uninitialized in this function scheme-stalin.c:124565: warning: `a186' might be used uninitialized in this function scheme-stalin.c:124566: warning: `a187' might be used uninitialized in this function scheme-stalin.c:124567: warning: `a188' might be used uninitialized in this function scheme-stalin.c:124568: warning: `a189' might be used uninitialized in this function scheme-stalin.c:124569: warning: `a190' might be used uninitialized in this function scheme-stalin.c:124570: warning: `a191' might be used uninitialized in this function scheme-stalin.c:124571: warning: `a192' might be used uninitialized in this function scheme-stalin.c:124572: warning: `a193' might be used uninitialized in this function scheme-stalin.c:124573: warning: `a194' might be used uninitialized in this function scheme-stalin.c:124574: warning: `a195' might be used uninitialized in this function scheme-stalin.c:124575: warning: `a196' might be used uninitialized in this function scheme-stalin.c:124576: warning: `a197' might be used uninitialized in this function scheme-stalin.c:124577: warning: `a198' might be used uninitialized in this function scheme-stalin.c:124578: warning: `a199' might be used uninitialized in this function scheme-stalin.c:124579: warning: `a200' might be used uninitialized in this function scheme-stalin.c:124580: warning: `a201' might be used uninitialized in this function scheme-stalin.c:124581: warning: `a202' might be used uninitialized in this function scheme-stalin.c:124582: warning: `a203' might be used uninitialized in this function scheme-stalin.c:124583: warning: `a204' might be used uninitialized in this function scheme-stalin.c:124584: warning: `a205' might be used uninitialized in this function scheme-stalin.c:124585: warning: `a206' might be used uninitialized in this function scheme-stalin.c:124586: warning: `a207' might be used uninitialized in this function scheme-stalin.c:124587: warning: `a208' might be used uninitialized in this function scheme-stalin.c:124588: warning: `a209' might be used uninitialized in this function scheme-stalin.c:124589: warning: `a210' might be used uninitialized in this function scheme-stalin.c:124590: warning: `a211' might be used uninitialized in this function scheme-stalin.c:124591: warning: `a212' might be used uninitialized in this function scheme-stalin.c:124592: warning: `a213' might be used uninitialized in this function scheme-stalin.c:124593: warning: `a214' might be used uninitialized in this function scheme-stalin.c:124594: warning: `a215' might be used uninitialized in this function scheme-stalin.c:124595: warning: `a216' might be used uninitialized in this function scheme-stalin.c:124596: warning: `a217' might be used uninitialized in this function scheme-stalin.c:124597: warning: `a218' might be used uninitialized in this function scheme-stalin.c:124598: warning: `a219' might be used uninitialized in this function scheme-stalin.c:124599: warning: `a220' might be used uninitialized in this function scheme-stalin.c:124600: warning: `a221' might be used uninitialized in this function scheme-stalin.c:124601: warning: `a222' might be used uninitialized in this function scheme-stalin.c:124602: warning: `a223' might be used uninitialized in this function scheme-stalin.c:124603: warning: `a224' might be used uninitialized in this function scheme-stalin.c:124604: warning: `a225' might be used uninitialized in this function scheme-stalin.c:124605: warning: `a226' might be used uninitialized in this function scheme-stalin.c:124606: warning: `a227' might be used uninitialized in this function scheme-stalin.c:124607: warning: `a228' might be used uninitialized in this function scheme-stalin.c:124608: warning: `a229' might be used uninitialized in this function scheme-stalin.c:124609: warning: `a230' might be used uninitialized in this function scheme-stalin.c:124610: warning: `a231' might be used uninitialized in this function scheme-stalin.c:124611: warning: `a232' might be used uninitialized in this function scheme-stalin.c:124612: warning: `a233' might be used uninitialized in this function scheme-stalin.c:124613: warning: `a234' might be used uninitialized in this function scheme-stalin.c:124614: warning: `a235' might be used uninitialized in this function scheme-stalin.c:124615: warning: `a236' might be used uninitialized in this function scheme-stalin.c:124616: warning: `a237' might be used uninitialized in this function scheme-stalin.c:124617: warning: `a238' might be used uninitialized in this function scheme-stalin.c:124618: warning: `a239' might be used uninitialized in this function scheme-stalin.c:124619: warning: `a240' might be used uninitialized in this function scheme-stalin.c:124620: warning: `a241' might be used uninitialized in this function scheme-stalin.c:124621: warning: `a242' might be used uninitialized in this function scheme-stalin.c:124622: warning: `a243' might be used uninitialized in this function scheme-stalin.c:124623: warning: `a244' might be used uninitialized in this function scheme-stalin.c:124624: warning: `a245' might be used uninitialized in this function scheme-stalin.c:124625: warning: `a246' might be used uninitialized in this function scheme-stalin.c:124626: warning: `a247' might be used uninitialized in this function scheme-stalin.c:124627: warning: `a248' might be used uninitialized in this function scheme-stalin.c:124628: warning: `a249' might be used uninitialized in this function scheme-stalin.c:124629: warning: `a250' might be used uninitialized in this function scheme-stalin.c:124630: warning: `a251' might be used uninitialized in this function scheme-stalin.c:124631: warning: `a252' might be used uninitialized in this function scheme-stalin.c:124632: warning: `a253' might be used uninitialized in this function scheme-stalin.c:124633: warning: `a254' might be used uninitialized in this function scheme-stalin.c:124634: warning: `a255' might be used uninitialized in this function scheme-stalin.c:124635: warning: `a256' might be used uninitialized in this function scheme-stalin.c:124636: warning: `a257' might be used uninitialized in this function scheme-stalin.c:124637: warning: `a258' might be used uninitialized in this function scheme-stalin.c:124638: warning: `a259' might be used uninitialized in this function scheme-stalin.c:124639: warning: `a260' might be used uninitialized in this function scheme-stalin.c:124640: warning: `a261' might be used uninitialized in this function scheme-stalin.c:124641: warning: `a262' might be used uninitialized in this function scheme-stalin.c:124642: warning: `a263' might be used uninitialized in this function scheme-stalin.c:124643: warning: `a264' might be used uninitialized in this function scheme-stalin.c:124644: warning: `a265' might be used uninitialized in this function scheme-stalin.c:124645: warning: `a266' might be used uninitialized in this function scheme-stalin.c:124646: warning: `a267' might be used uninitialized in this function scheme-stalin.c:124647: warning: `a268' might be used uninitialized in this function scheme-stalin.c:124648: warning: `a269' might be used uninitialized in this function scheme-stalin.c:124649: warning: `a270' might be used uninitialized in this function scheme-stalin.c:124650: warning: `a271' might be used uninitialized in this function scheme-stalin.c:124651: warning: `a272' might be used uninitialized in this function scheme-stalin.c:124652: warning: `a273' might be used uninitialized in this function scheme-stalin.c:124653: warning: `a274' might be used uninitialized in this function scheme-stalin.c:124654: warning: `a275' might be used uninitialized in this function scheme-stalin.c:124655: warning: `a276' might be used uninitialized in this function scheme-stalin.c:124656: warning: `a277' might be used uninitialized in this function scheme-stalin.c:124657: warning: `a278' might be used uninitialized in this function scheme-stalin.c:124658: warning: `a279' might be used uninitialized in this function scheme-stalin.c:124659: warning: `a280' might be used uninitialized in this function scheme-stalin.c:124660: warning: `a281' might be used uninitialized in this function scheme-stalin.c:124661: warning: `a282' might be used uninitialized in this function scheme-stalin.c:124662: warning: `a283' might be used uninitialized in this function scheme-stalin.c:124663: warning: `a284' might be used uninitialized in this function scheme-stalin.c:124664: warning: `a285' might be used uninitialized in this function scheme-stalin.c:124665: warning: `a286' might be used uninitialized in this function scheme-stalin.c:124666: warning: `a287' might be used uninitialized in this function scheme-stalin.c:124667: warning: `a288' might be used uninitialized in this function scheme-stalin.c:124668: warning: `a289' might be used uninitialized in this function scheme-stalin.c:124669: warning: `a290' might be used uninitialized in this function scheme-stalin.c:124670: warning: `a291' might be used uninitialized in this function scheme-stalin.c:124671: warning: `a292' might be used uninitialized in this function scheme-stalin.c:124672: warning: `a293' might be used uninitialized in this function scheme-stalin.c:124673: warning: `a294' might be used uninitialized in this function scheme-stalin.c:124674: warning: `a295' might be used uninitialized in this function scheme-stalin.c:124675: warning: `a296' might be used uninitialized in this function scheme-stalin.c:124676: warning: `a297' might be used uninitialized in this function scheme-stalin.c:124677: warning: `a298' might be used uninitialized in this function scheme-stalin.c:124678: warning: `a299' might be used uninitialized in this function scheme-stalin.c:124679: warning: `a300' might be used uninitialized in this function scheme-stalin.c:124680: warning: `a301' might be used uninitialized in this function scheme-stalin.c:124681: warning: `a302' might be used uninitialized in this function scheme-stalin.c:124682: warning: `a303' might be used uninitialized in this function scheme-stalin.c:124683: warning: `a304' might be used uninitialized in this function scheme-stalin.c:124684: warning: `a305' might be used uninitialized in this function scheme-stalin.c:124685: warning: `a306' might be used uninitialized in this function scheme-stalin.c:124686: warning: `a307' might be used uninitialized in this function scheme-stalin.c:124687: warning: `a308' might be used uninitialized in this function scheme-stalin.c:124688: warning: `a309' might be used uninitialized in this function scheme-stalin.c:124689: warning: `a310' might be used uninitialized in this function scheme-stalin.c:124690: warning: `a311' might be used uninitialized in this function scheme-stalin.c:124691: warning: `a312' might be used uninitialized in this function scheme-stalin.c:124692: warning: `a313' might be used uninitialized in this function scheme-stalin.c:124693: warning: `a314' might be used uninitialized in this function scheme-stalin.c:124694: warning: `a315' might be used uninitialized in this function scheme-stalin.c:124695: warning: `a316' might be used uninitialized in this function scheme-stalin.c:124696: warning: `a317' might be used uninitialized in this function scheme-stalin.c:124697: warning: `a318' might be used uninitialized in this function scheme-stalin.c:124698: warning: `a319' might be used uninitialized in this function scheme-stalin.c:124699: warning: `a320' might be used uninitialized in this function scheme-stalin.c:124700: warning: `a321' might be used uninitialized in this function scheme-stalin.c:124701: warning: `a322' might be used uninitialized in this function scheme-stalin.c:124702: warning: `a323' might be used uninitialized in this function scheme-stalin.c:124703: warning: `a324' might be used uninitialized in this function scheme-stalin.c:124704: warning: `a325' might be used uninitialized in this function scheme-stalin.c:124705: warning: `a326' might be used uninitialized in this function scheme-stalin.c:124706: warning: `a327' might be used uninitialized in this function scheme-stalin.c:124707: warning: `a328' might be used uninitialized in this function scheme-stalin.c:124708: warning: `a329' might be used uninitialized in this function scheme-stalin.c:124709: warning: `a330' might be used uninitialized in this function scheme-stalin.c:124710: warning: `a331' might be used uninitialized in this function scheme-stalin.c:124711: warning: `a332' might be used uninitialized in this function scheme-stalin.c:124712: warning: `a333' might be used uninitialized in this function scheme-stalin.c:124713: warning: `a334' might be used uninitialized in this function scheme-stalin.c:124714: warning: `a335' might be used uninitialized in this function scheme-stalin.c:124715: warning: `a336' might be used uninitialized in this function scheme-stalin.c:124716: warning: `a337' might be used uninitialized in this function scheme-stalin.c:124717: warning: `a338' might be used uninitialized in this function scheme-stalin.c:124718: warning: `a339' might be used uninitialized in this function scheme-stalin.c:124719: warning: `a340' might be used uninitialized in this function scheme-stalin.c:124720: warning: `a341' might be used uninitialized in this function scheme-stalin.c:124721: warning: `a342' might be used uninitialized in this function scheme-stalin.c:124722: warning: `a343' might be used uninitialized in this function scheme-stalin.c:124723: warning: `a344' might be used uninitialized in this function scheme-stalin.c:124724: warning: `a345' might be used uninitialized in this function scheme-stalin.c:124725: warning: `a346' might be used uninitialized in this function scheme-stalin.c:124726: warning: `a347' might be used uninitialized in this function scheme-stalin.c:124727: warning: `a348' might be used uninitialized in this function scheme-stalin.c:124728: warning: `a349' might be used uninitialized in this function scheme-stalin.c:124729: warning: `a350' might be used uninitialized in this function scheme-stalin.c:124730: warning: `a351' might be used uninitialized in this function scheme-stalin.c:124731: warning: `a352' might be used uninitialized in this function scheme-stalin.c:124732: warning: `a353' might be used uninitialized in this function scheme-stalin.c:124733: warning: `a354' might be used uninitialized in this function scheme-stalin.c:124734: warning: `a355' might be used uninitialized in this function scheme-stalin.c:124735: warning: `a356' might be used uninitialized in this function scheme-stalin.c:124736: warning: `a357' might be used uninitialized in this function scheme-stalin.c:124737: warning: `a358' might be used uninitialized in this function scheme-stalin.c:124738: warning: `a359' might be used uninitialized in this function scheme-stalin.c:124739: warning: `a360' might be used uninitialized in this function scheme-stalin.c:124740: warning: `a361' might be used uninitialized in this function scheme-stalin.c:124741: warning: `a362' might be used uninitialized in this function scheme-stalin.c:124742: warning: `a363' might be used uninitialized in this function scheme-stalin.c:124743: warning: `a364' might be used uninitialized in this function scheme-stalin.c:124744: warning: `a365' might be used uninitialized in this function scheme-stalin.c:124745: warning: `a366' might be used uninitialized in this function scheme-stalin.c:124746: warning: `a367' might be used uninitialized in this function scheme-stalin.c:124747: warning: `a368' might be used uninitialized in this function scheme-stalin.c:124748: warning: `a369' might be used uninitialized in this function scheme-stalin.c:124749: warning: `a370' might be used uninitialized in this function scheme-stalin.c:124750: warning: `a371' might be used uninitialized in this function scheme-stalin.c:124751: warning: `a372' might be used uninitialized in this function scheme-stalin.c:124752: warning: `a373' might be used uninitialized in this function scheme-stalin.c:124753: warning: `a374' might be used uninitialized in this function scheme-stalin.c:124754: warning: `a375' might be used uninitialized in this function scheme-stalin.c:124755: warning: `a376' might be used uninitialized in this function scheme-stalin.c:124756: warning: `a377' might be used uninitialized in this function scheme-stalin.c:124757: warning: `a378' might be used uninitialized in this function scheme-stalin.c:124758: warning: `a379' might be used uninitialized in this function scheme-stalin.c:124759: warning: `a380' might be used uninitialized in this function scheme-stalin.c:124760: warning: `a381' might be used uninitialized in this function scheme-stalin.c:124761: warning: `a382' might be used uninitialized in this function scheme-stalin.c:124762: warning: `a383' might be used uninitialized in this function scheme-stalin.c:124763: warning: `a384' might be used uninitialized in this function scheme-stalin.c:124764: warning: `a385' might be used uninitialized in this function scheme-stalin.c:124765: warning: `a386' might be used uninitialized in this function scheme-stalin.c:124766: warning: `a387' might be used uninitialized in this function scheme-stalin.c:124767: warning: `a388' might be used uninitialized in this function scheme-stalin.c:124768: warning: `a389' might be used uninitialized in this function scheme-stalin.c:124769: warning: `a390' might be used uninitialized in this function scheme-stalin.c:124770: warning: `a391' might be used uninitialized in this function scheme-stalin.c:124771: warning: `a392' might be used uninitialized in this function scheme-stalin.c:124772: warning: `a393' might be used uninitialized in this function scheme-stalin.c:124773: warning: `a394' might be used uninitialized in this function scheme-stalin.c:124774: warning: `a395' might be used uninitialized in this function scheme-stalin.c:124775: warning: `a396' might be used uninitialized in this function scheme-stalin.c:124776: warning: `a397' might be used uninitialized in this function scheme-stalin.c:124777: warning: `a398' might be used uninitialized in this function scheme-stalin.c:124778: warning: `a399' might be used uninitialized in this function scheme-stalin.c:124779: warning: `a400' might be used uninitialized in this function scheme-stalin.c:124780: warning: `a401' might be used uninitialized in this function scheme-stalin.c:124781: warning: `a402' might be used uninitialized in this function scheme-stalin.c:124782: warning: `a403' might be used uninitialized in this function scheme-stalin.c:124783: warning: `a404' might be used uninitialized in this function scheme-stalin.c:124784: warning: `a405' might be used uninitialized in this function scheme-stalin.c:124785: warning: `a406' might be used uninitialized in this function scheme-stalin.c:124786: warning: `a407' might be used uninitialized in this function scheme-stalin.c:124787: warning: `a408' might be used uninitialized in this function scheme-stalin.c:124788: warning: `a409' might be used uninitialized in this function scheme-stalin.c:124789: warning: `a410' might be used uninitialized in this function scheme-stalin.c:124790: warning: `a411' might be used uninitialized in this function scheme-stalin.c:124791: warning: `a412' might be used uninitialized in this function scheme-stalin.c:124792: warning: `a413' might be used uninitialized in this function scheme-stalin.c:124793: warning: `a414' might be used uninitialized in this function scheme-stalin.c:124794: warning: `a415' might be used uninitialized in this function scheme-stalin.c:124795: warning: `a416' might be used uninitialized in this function scheme-stalin.c:124796: warning: `a417' might be used uninitialized in this function scheme-stalin.c:124797: warning: `a418' might be used uninitialized in this function scheme-stalin.c:124798: warning: `a419' might be used uninitialized in this function scheme-stalin.c:124799: warning: `a420' might be used uninitialized in this function scheme-stalin.c:124800: warning: `a421' might be used uninitialized in this function scheme-stalin.c:124801: warning: `a422' might be used uninitialized in this function scheme-stalin.c:124802: warning: `a423' might be used uninitialized in this function scheme-stalin.c:124803: warning: `a424' might be used uninitialized in this function scheme-stalin.c:124804: warning: `a425' might be used uninitialized in this function scheme-stalin.c:124805: warning: `a426' might be used uninitialized in this function scheme-stalin.c:124806: warning: `a427' might be used uninitialized in this function scheme-stalin.c:124807: warning: `a428' might be used uninitialized in this function scheme-stalin.c:124808: warning: `a429' might be used uninitialized in this function scheme-stalin.c:124809: warning: `a430' might be used uninitialized in this function scheme-stalin.c:124810: warning: `a431' might be used uninitialized in this function scheme-stalin.c:124811: warning: `a432' might be used uninitialized in this function scheme-stalin.c:124812: warning: `a433' might be used uninitialized in this function scheme-stalin.c:124813: warning: `a434' might be used uninitialized in this function scheme-stalin.c:124814: warning: `a435' might be used uninitialized in this function scheme-stalin.c:125028: warning: `a649' might be used uninitialized in this function scheme-stalin.c:125029: warning: `a650' might be used uninitialized in this function scheme-stalin.c:125030: warning: `a651' might be used uninitialized in this function scheme-stalin.c:125031: warning: `a652' might be used uninitialized in this function scheme-stalin.c:125032: warning: `a653' might be used uninitialized in this function scheme-stalin.c:125033: warning: `a654' might be used uninitialized in this function scheme-stalin.c:125034: warning: `a655' might be used uninitialized in this function scheme-stalin.c:125035: warning: `a656' might be used uninitialized in this function scheme-stalin.c:125036: warning: `a657' might be used uninitialized in this function scheme-stalin.c:125037: warning: `a658' might be used uninitialized in this function scheme-stalin.c:125038: warning: `a659' might be used uninitialized in this function scheme-stalin.c:125039: warning: `a660' might be used uninitialized in this function scheme-stalin.c:125040: warning: `a661' might be used uninitialized in this function scheme-stalin.c:125041: warning: `a662' might be used uninitialized in this function scheme-stalin.c:125042: warning: `a663' might be used uninitialized in this function scheme-stalin.c:125043: warning: `a664' might be used uninitialized in this function scheme-stalin.c:125044: warning: `a665' might be used uninitialized in this function scheme-stalin.c:125045: warning: `a666' might be used uninitialized in this function scheme-stalin.c:125046: warning: `a667' might be used uninitialized in this function scheme-stalin.c:125047: warning: `a668' might be used uninitialized in this function scheme-stalin.c:125048: warning: `a669' might be used uninitialized in this function scheme-stalin.c:125049: warning: `a670' might be used uninitialized in this function scheme-stalin.c:125050: warning: `a671' might be used uninitialized in this function scheme-stalin.c:125051: warning: `a672' might be used uninitialized in this function scheme-stalin.c:125052: warning: `a673' might be used uninitialized in this function scheme-stalin.c:125053: warning: `a674' might be used uninitialized in this function scheme-stalin.c:125054: warning: `a675' might be used uninitialized in this function scheme-stalin.c:125055: warning: `a676' might be used uninitialized in this function scheme-stalin.c:125056: warning: `a677' might be used uninitialized in this function scheme-stalin.c:125057: warning: `a678' might be used uninitialized in this function scheme-stalin.c:125058: warning: `a679' might be used uninitialized in this function scheme-stalin.c:125059: warning: `a680' might be used uninitialized in this function scheme-stalin.c:125060: warning: `a681' might be used uninitialized in this function scheme-stalin.c:125061: warning: `a682' might be used uninitialized in this function scheme-stalin.c:125062: warning: `a683' might be used uninitialized in this function scheme-stalin.c:125063: warning: `a684' might be used uninitialized in this function scheme-stalin.c:125064: warning: `a685' might be used uninitialized in this function scheme-stalin.c:125065: warning: `a686' might be used uninitialized in this function scheme-stalin.c:125066: warning: `a687' might be used uninitialized in this function scheme-stalin.c:125067: warning: `a688' might be used uninitialized in this function scheme-stalin.c:125068: warning: `a689' might be used uninitialized in this function scheme-stalin.c:125069: warning: `a690' might be used uninitialized in this function scheme-stalin.c:125070: warning: `a691' might be used uninitialized in this function scheme-stalin.c:125071: warning: `a692' might be used uninitialized in this function scheme-stalin.c:125072: warning: `a693' might be used uninitialized in this function scheme-stalin.c:125073: warning: `a694' might be used uninitialized in this function scheme-stalin.c:125074: warning: `a695' might be used uninitialized in this function scheme-stalin.c:125075: warning: `a696' might be used uninitialized in this function scheme-stalin.c:125076: warning: `a697' might be used uninitialized in this function scheme-stalin.c:125077: warning: `a698' might be used uninitialized in this function scheme-stalin.c:125078: warning: `a699' might be used uninitialized in this function scheme-stalin.c:125079: warning: `a700' might be used uninitialized in this function scheme-stalin.c:125080: warning: `a701' might be used uninitialized in this function scheme-stalin.c:125081: warning: `a702' might be used uninitialized in this function scheme-stalin.c:125082: warning: `a703' might be used uninitialized in this function scheme-stalin.c:125083: warning: `a704' might be used uninitialized in this function scheme-stalin.c:125084: warning: `a705' might be used uninitialized in this function scheme-stalin.c:125085: warning: `a706' might be used uninitialized in this function scheme-stalin.c:125086: warning: `a707' might be used uninitialized in this function scheme-stalin.c:125087: warning: `a708' might be used uninitialized in this function scheme-stalin.c:125088: warning: `a709' might be used uninitialized in this function scheme-stalin.c:125089: warning: `a710' might be used uninitialized in this function scheme-stalin.c:125090: warning: `a711' might be used uninitialized in this function scheme-stalin.c:125091: warning: `a712' might be used uninitialized in this function scheme-stalin.c:125092: warning: `a713' might be used uninitialized in this function scheme-stalin.c:125093: warning: `a714' might be used uninitialized in this function scheme-stalin.c:125094: warning: `a715' might be used uninitialized in this function scheme-stalin.c:125095: warning: `a716' might be used uninitialized in this function scheme-stalin.c:125096: warning: `a717' might be used uninitialized in this function scheme-stalin.c:125097: warning: `a718' might be used uninitialized in this function scheme-stalin.c:125098: warning: `a719' might be used uninitialized in this function scheme-stalin.c:125099: warning: `a720' might be used uninitialized in this function scheme-stalin.c:125100: warning: `a721' might be used uninitialized in this function scheme-stalin.c:125101: warning: `a722' might be used uninitialized in this function scheme-stalin.c:125102: warning: `a723' might be used uninitialized in this function scheme-stalin.c:125103: warning: `a724' might be used uninitialized in this function scheme-stalin.c:125104: warning: `a725' might be used uninitialized in this function scheme-stalin.c:125105: warning: `a726' might be used uninitialized in this function scheme-stalin.c:125106: warning: `a727' might be used uninitialized in this function scheme-stalin.c:125107: warning: `a728' might be used uninitialized in this function scheme-stalin.c:125108: warning: `a729' might be used uninitialized in this function scheme-stalin.c:125109: warning: `a730' might be used uninitialized in this function scheme-stalin.c:125110: warning: `a731' might be used uninitialized in this function scheme-stalin.c:125111: warning: `a732' might be used uninitialized in this function scheme-stalin.c:125112: warning: `a733' might be used uninitialized in this function scheme-stalin.c:125113: warning: `a734' might be used uninitialized in this function scheme-stalin.c:125114: warning: `a735' might be used uninitialized in this function scheme-stalin.c:125115: warning: `a736' might be used uninitialized in this function scheme-stalin.c:125116: warning: `a737' might be used uninitialized in this function scheme-stalin.c:125117: warning: `a738' might be used uninitialized in this function scheme-stalin.c:125118: warning: `a739' might be used uninitialized in this function scheme-stalin.c:125119: warning: `a740' might be used uninitialized in this function scheme-stalin.c:125120: warning: `a741' might be used uninitialized in this function scheme-stalin.c:125121: warning: `a742' might be used uninitialized in this function scheme-stalin.c:125122: warning: `a743' might be used uninitialized in this function scheme-stalin.c:125123: warning: `a744' might be used uninitialized in this function scheme-stalin.c:125124: warning: `a745' might be used uninitialized in this function scheme-stalin.c:125125: warning: `a746' might be used uninitialized in this function scheme-stalin.c:125126: warning: `a747' might be used uninitialized in this function scheme-stalin.c:125127: warning: `a748' might be used uninitialized in this function scheme-stalin.c:125128: warning: `a749' might be used uninitialized in this function scheme-stalin.c:125129: warning: `a750' might be used uninitialized in this function scheme-stalin.c:125130: warning: `a751' might be used uninitialized in this function scheme-stalin.c:125131: warning: `a752' might be used uninitialized in this function scheme-stalin.c:125132: warning: `a753' might be used uninitialized in this function scheme-stalin.c:125133: warning: `a754' might be used uninitialized in this function scheme-stalin.c:125134: warning: `a755' might be used uninitialized in this function scheme-stalin.c:125135: warning: `a756' might be used uninitialized in this function scheme-stalin.c:125136: warning: `a757' might be used uninitialized in this function scheme-stalin.c:125137: warning: `a758' might be used uninitialized in this function scheme-stalin.c:125138: warning: `a759' might be used uninitialized in this function scheme-stalin.c:125139: warning: `a760' might be used uninitialized in this function scheme-stalin.c:125140: warning: `a761' might be used uninitialized in this function scheme-stalin.c:125141: warning: `a762' might be used uninitialized in this function scheme-stalin.c:125142: warning: `a763' might be used uninitialized in this function scheme-stalin.c:125143: warning: `a764' might be used uninitialized in this function scheme-stalin.c:125144: warning: `a765' might be used uninitialized in this function scheme-stalin.c:125145: warning: `a766' might be used uninitialized in this function scheme-stalin.c:125146: warning: `a767' might be used uninitialized in this function scheme-stalin.c:125147: warning: `a768' might be used uninitialized in this function scheme-stalin.c:125148: warning: `a769' might be used uninitialized in this function scheme-stalin.c:125149: warning: `a770' might be used uninitialized in this function scheme-stalin.c:125150: warning: `a771' might be used uninitialized in this function scheme-stalin.c:125151: warning: `a772' might be used uninitialized in this function scheme-stalin.c:125152: warning: `a773' might be used uninitialized in this function scheme-stalin.c:125153: warning: `a774' might be used uninitialized in this function scheme-stalin.c:125154: warning: `a775' might be used uninitialized in this function scheme-stalin.c:125155: warning: `a776' might be used uninitialized in this function scheme-stalin.c:125156: warning: `a777' might be used uninitialized in this function scheme-stalin.c:125157: warning: `a778' might be used uninitialized in this function scheme-stalin.c:125158: warning: `a779' might be used uninitialized in this function scheme-stalin.c:125159: warning: `a780' might be used uninitialized in this function scheme-stalin.c:125160: warning: `a781' might be used uninitialized in this function scheme-stalin.c:125161: warning: `a782' might be used uninitialized in this function scheme-stalin.c:125162: warning: `a783' might be used uninitialized in this function scheme-stalin.c:125163: warning: `a784' might be used uninitialized in this function scheme-stalin.c:125164: warning: `a785' might be used uninitialized in this function scheme-stalin.c:125165: warning: `a786' might be used uninitialized in this function scheme-stalin.c:125166: warning: `a787' might be used uninitialized in this function scheme-stalin.c:125167: warning: `a788' might be used uninitialized in this function scheme-stalin.c:125168: warning: `a789' might be used uninitialized in this function scheme-stalin.c:125169: warning: `a790' might be used uninitialized in this function scheme-stalin.c:125170: warning: `a791' might be used uninitialized in this function scheme-stalin.c:125171: warning: `a792' might be used uninitialized in this function scheme-stalin.c:125172: warning: `a793' might be used uninitialized in this function scheme-stalin.c:125173: warning: `a794' might be used uninitialized in this function scheme-stalin.c:125174: warning: `a795' might be used uninitialized in this function scheme-stalin.c:125175: warning: `a796' might be used uninitialized in this function scheme-stalin.c:125176: warning: `a797' might be used uninitialized in this function scheme-stalin.c:125177: warning: `a798' might be used uninitialized in this function scheme-stalin.c:125178: warning: `a799' might be used uninitialized in this function scheme-stalin.c:125179: warning: `a800' might be used uninitialized in this function scheme-stalin.c:125180: warning: `a801' might be used uninitialized in this function scheme-stalin.c:125181: warning: `a802' might be used uninitialized in this function scheme-stalin.c:125182: warning: `a803' might be used uninitialized in this function scheme-stalin.c:125183: warning: `a804' might be used uninitialized in this function scheme-stalin.c:125184: warning: `a805' might be used uninitialized in this function scheme-stalin.c:125185: warning: `a806' might be used uninitialized in this function scheme-stalin.c:125186: warning: `a807' might be used uninitialized in this function scheme-stalin.c:125187: warning: `a808' might be used uninitialized in this function scheme-stalin.c:125188: warning: `a809' might be used uninitialized in this function scheme-stalin.c:125189: warning: `a810' might be used uninitialized in this function scheme-stalin.c:125190: warning: `a811' might be used uninitialized in this function scheme-stalin.c:125191: warning: `a812' might be used uninitialized in this function scheme-stalin.c:125192: warning: `a813' might be used uninitialized in this function scheme-stalin.c:125193: warning: `a814' might be used uninitialized in this function scheme-stalin.c:125194: warning: `a815' might be used uninitialized in this function scheme-stalin.c:125195: warning: `a816' might be used uninitialized in this function scheme-stalin.c:125196: warning: `a817' might be used uninitialized in this function scheme-stalin.c:125197: warning: `a818' might be used uninitialized in this function scheme-stalin.c:125198: warning: `a819' might be used uninitialized in this function scheme-stalin.c:125199: warning: `a820' might be used uninitialized in this function scheme-stalin.c:125200: warning: `a821' might be used uninitialized in this function scheme-stalin.c:125201: warning: `a822' might be used uninitialized in this function scheme-stalin.c:125202: warning: `a823' might be used uninitialized in this function scheme-stalin.c:125203: warning: `a824' might be used uninitialized in this function scheme-stalin.c:125204: warning: `a825' might be used uninitialized in this function scheme-stalin.c:125205: warning: `a826' might be used uninitialized in this function scheme-stalin.c:125206: warning: `a827' might be used uninitialized in this function scheme-stalin.c:125207: warning: `a828' might be used uninitialized in this function scheme-stalin.c:125208: warning: `a829' might be used uninitialized in this function scheme-stalin.c:125209: warning: `a830' might be used uninitialized in this function scheme-stalin.c:125210: warning: `a831' might be used uninitialized in this function scheme-stalin.c:125211: warning: `a832' might be used uninitialized in this function scheme-stalin.c:125212: warning: `a833' might be used uninitialized in this function scheme-stalin.c:125213: warning: `a834' might be used uninitialized in this function scheme-stalin.c:125214: warning: `a835' might be used uninitialized in this function scheme-stalin.c:125215: warning: `a836' might be used uninitialized in this function scheme-stalin.c:125216: warning: `a837' might be used uninitialized in this function scheme-stalin.c:125217: warning: `a838' might be used uninitialized in this function scheme-stalin.c:125218: warning: `a839' might be used uninitialized in this function scheme-stalin.c:125219: warning: `a840' might be used uninitialized in this function scheme-stalin.c:125220: warning: `a841' might be used uninitialized in this function scheme-stalin.c:125221: warning: `a842' might be used uninitialized in this function scheme-stalin.c:125222: warning: `a843' might be used uninitialized in this function scheme-stalin.c:125223: warning: `a844' might be used uninitialized in this function scheme-stalin.c:125224: warning: `a845' might be used uninitialized in this function scheme-stalin.c:125225: warning: `a846' might be used uninitialized in this function scheme-stalin.c:125226: warning: `a847' might be used uninitialized in this function scheme-stalin.c:125227: warning: `a848' might be used uninitialized in this function scheme-stalin.c:125228: warning: `a849' might be used uninitialized in this function scheme-stalin.c:125229: warning: `a850' might be used uninitialized in this function scheme-stalin.c:125230: warning: `a851' might be used uninitialized in this function scheme-stalin.c:125231: warning: `a852' might be used uninitialized in this function scheme-stalin.c:125232: warning: `a853' might be used uninitialized in this function scheme-stalin.c:125233: warning: `a854' might be used uninitialized in this function scheme-stalin.c:125234: warning: `a855' might be used uninitialized in this function scheme-stalin.c:125235: warning: `a856' might be used uninitialized in this function scheme-stalin.c:125236: warning: `a857' might be used uninitialized in this function scheme-stalin.c:125237: warning: `a858' might be used uninitialized in this function scheme-stalin.c:125238: warning: `a859' might be used uninitialized in this function scheme-stalin.c:125239: warning: `a860' might be used uninitialized in this function scheme-stalin.c:125240: warning: `a861' might be used uninitialized in this function scheme-stalin.c:125241: warning: `a862' might be used uninitialized in this function scheme-stalin.c:125242: warning: `a863' might be used uninitialized in this function scheme-stalin.c:125243: warning: `a864' might be used uninitialized in this function scheme-stalin.c:125244: warning: `a865' might be used uninitialized in this function scheme-stalin.c:125245: warning: `a866' might be used uninitialized in this function scheme-stalin.c:125246: warning: `a867' might be used uninitialized in this function scheme-stalin.c:125247: warning: `a868' might be used uninitialized in this function scheme-stalin.c:125248: warning: `a869' might be used uninitialized in this function scheme-stalin.c:125249: warning: `a870' might be used uninitialized in this function scheme-stalin.c:125250: warning: `a871' might be used uninitialized in this function scheme-stalin.c:125251: warning: `a872' might be used uninitialized in this function scheme-stalin.c:125252: warning: `a873' might be used uninitialized in this function scheme-stalin.c:125253: warning: `a874' might be used uninitialized in this function scheme-stalin.c:125254: warning: `a875' might be used uninitialized in this function scheme-stalin.c:125255: warning: `a876' might be used uninitialized in this function scheme-stalin.c:125256: warning: `a877' might be used uninitialized in this function scheme-stalin.c:125257: warning: `a878' might be used uninitialized in this function scheme-stalin.c:125258: warning: `a879' might be used uninitialized in this function scheme-stalin.c:125259: warning: `a880' might be used uninitialized in this function scheme-stalin.c:125260: warning: `a881' might be used uninitialized in this function scheme-stalin.c:125261: warning: `a882' might be used uninitialized in this function scheme-stalin.c:125262: warning: `a883' might be used uninitialized in this function scheme-stalin.c:125263: warning: `a884' might be used uninitialized in this function scheme-stalin.c:125264: warning: `a885' might be used uninitialized in this function scheme-stalin.c:125265: warning: `a886' might be used uninitialized in this function scheme-stalin.c:125266: warning: `a887' might be used uninitialized in this function scheme-stalin.c:125267: warning: `a888' might be used uninitialized in this function scheme-stalin.c:125268: warning: `a889' might be used uninitialized in this function scheme-stalin.c:125269: warning: `a890' might be used uninitialized in this function scheme-stalin.c:125270: warning: `a891' might be used uninitialized in this function scheme-stalin.c:125271: warning: `a892' might be used uninitialized in this function scheme-stalin.c:125272: warning: `a893' might be used uninitialized in this function scheme-stalin.c:125273: warning: `a894' might be used uninitialized in this function scheme-stalin.c:125274: warning: `a895' might be used uninitialized in this function scheme-stalin.c:125275: warning: `a896' might be used uninitialized in this function scheme-stalin.c:125276: warning: `a897' might be used uninitialized in this function scheme-stalin.c:125277: warning: `a898' might be used uninitialized in this function scheme-stalin.c:125278: warning: `a899' might be used uninitialized in this function scheme-stalin.c:125279: warning: `a900' might be used uninitialized in this function scheme-stalin.c:125280: warning: `a901' might be used uninitialized in this function scheme-stalin.c:125281: warning: `a902' might be used uninitialized in this function scheme-stalin.c:125282: warning: `a903' might be used uninitialized in this function scheme-stalin.c:125283: warning: `a904' might be used uninitialized in this function scheme-stalin.c:125284: warning: `a905' might be used uninitialized in this function scheme-stalin.c:125285: warning: `a906' might be used uninitialized in this function scheme-stalin.c:125286: warning: `a907' might be used uninitialized in this function scheme-stalin.c:125287: warning: `a908' might be used uninitialized in this function scheme-stalin.c:125288: warning: `a909' might be used uninitialized in this function scheme-stalin.c:125289: warning: `a910' might be used uninitialized in this function scheme-stalin.c:125290: warning: `a911' might be used uninitialized in this function scheme-stalin.c:125291: warning: `a912' might be used uninitialized in this function scheme-stalin.c:125292: warning: `a913' might be used uninitialized in this function scheme-stalin.c:125293: warning: `a914' might be used uninitialized in this function scheme-stalin.c:125294: warning: `a915' might be used uninitialized in this function scheme-stalin.c:125295: warning: `a916' might be used uninitialized in this function scheme-stalin.c:125296: warning: `a917' might be used uninitialized in this function scheme-stalin.c:125297: warning: `a918' might be used uninitialized in this function scheme-stalin.c:125298: warning: `a919' might be used uninitialized in this function scheme-stalin.c:125299: warning: `a920' might be used uninitialized in this function scheme-stalin.c:125300: warning: `a921' might be used uninitialized in this function scheme-stalin.c:125301: warning: `a922' might be used uninitialized in this function scheme-stalin.c:125302: warning: `a923' might be used uninitialized in this function scheme-stalin.c:125303: warning: `a924' might be used uninitialized in this function scheme-stalin.c:125304: warning: `a925' might be used uninitialized in this function scheme-stalin.c:125305: warning: `a926' might be used uninitialized in this function scheme-stalin.c:125306: warning: `a927' might be used uninitialized in this function scheme-stalin.c:125307: warning: `a928' might be used uninitialized in this function scheme-stalin.c:125308: warning: `a929' might be used uninitialized in this function scheme-stalin.c:125309: warning: `a930' might be used uninitialized in this function scheme-stalin.c:125310: warning: `a931' might be used uninitialized in this function scheme-stalin.c:125311: warning: `a932' might be used uninitialized in this function scheme-stalin.c:125312: warning: `a933' might be used uninitialized in this function scheme-stalin.c:125313: warning: `a934' might be used uninitialized in this function scheme-stalin.c:125314: warning: `a935' might be used uninitialized in this function scheme-stalin.c:125315: warning: `a936' might be used uninitialized in this function scheme-stalin.c:125316: warning: `a937' might be used uninitialized in this function scheme-stalin.c:125317: warning: `a938' might be used uninitialized in this function scheme-stalin.c:125318: warning: `a939' might be used uninitialized in this function scheme-stalin.c:125319: warning: `a940' might be used uninitialized in this function scheme-stalin.c:125320: warning: `a941' might be used uninitialized in this function scheme-stalin.c:125321: warning: `a942' might be used uninitialized in this function scheme-stalin.c:125322: warning: `a943' might be used uninitialized in this function scheme-stalin.c:125323: warning: `a944' might be used uninitialized in this function scheme-stalin.c:125324: warning: `a945' might be used uninitialized in this function scheme-stalin.c:125325: warning: `a946' might be used uninitialized in this function scheme-stalin.c:125326: warning: `a947' might be used uninitialized in this function scheme-stalin.c:125327: warning: `a948' might be used uninitialized in this function scheme-stalin.c:125328: warning: `a949' might be used uninitialized in this function scheme-stalin.c:125329: warning: `a950' might be used uninitialized in this function scheme-stalin.c:125330: warning: `a951' might be used uninitialized in this function scheme-stalin.c:125331: warning: `a952' might be used uninitialized in this function scheme-stalin.c:125332: warning: `a953' might be used uninitialized in this function scheme-stalin.c:125333: warning: `a954' might be used uninitialized in this function scheme-stalin.c:125334: warning: `a955' might be used uninitialized in this function scheme-stalin.c:125335: warning: `a956' might be used uninitialized in this function scheme-stalin.c:125336: warning: `a957' might be used uninitialized in this function scheme-stalin.c:125337: warning: `a958' might be used uninitialized in this function scheme-stalin.c:125338: warning: `a959' might be used uninitialized in this function scheme-stalin.c:125339: warning: `a960' might be used uninitialized in this function scheme-stalin.c:125340: warning: `a961' might be used uninitialized in this function scheme-stalin.c:125341: warning: `a962' might be used uninitialized in this function scheme-stalin.c:125342: warning: `a963' might be used uninitialized in this function scheme-stalin.c:125343: warning: `a964' might be used uninitialized in this function scheme-stalin.c:125344: warning: `a965' might be used uninitialized in this function scheme-stalin.c:125345: warning: `a966' might be used uninitialized in this function scheme-stalin.c:125346: warning: `a967' might be used uninitialized in this function scheme-stalin.c:125347: warning: `a968' might be used uninitialized in this function scheme-stalin.c:125348: warning: `a969' might be used uninitialized in this function scheme-stalin.c:125349: warning: `a970' might be used uninitialized in this function scheme-stalin.c:125350: warning: `a971' might be used uninitialized in this function scheme-stalin.c:125351: warning: `a972' might be used uninitialized in this function scheme-stalin.c:125352: warning: `a973' might be used uninitialized in this function scheme-stalin.c:125353: warning: `a974' might be used uninitialized in this function scheme-stalin.c:125354: warning: `a975' might be used uninitialized in this function scheme-stalin.c:125355: warning: `a976' might be used uninitialized in this function scheme-stalin.c:125356: warning: `a977' might be used uninitialized in this function scheme-stalin.c:125357: warning: `a978' might be used uninitialized in this function scheme-stalin.c:125358: warning: `a979' might be used uninitialized in this function scheme-stalin.c:125359: warning: `a980' might be used uninitialized in this function scheme-stalin.c:125360: warning: `a981' might be used uninitialized in this function scheme-stalin.c:125361: warning: `a982' might be used uninitialized in this function scheme-stalin.c:125362: warning: `a983' might be used uninitialized in this function scheme-stalin.c:125363: warning: `a984' might be used uninitialized in this function scheme-stalin.c:125364: warning: `a985' might be used uninitialized in this function scheme-stalin.c:125365: warning: `a986' might be used uninitialized in this function scheme-stalin.c:125366: warning: `a987' might be used uninitialized in this function scheme-stalin.c:125367: warning: `a988' might be used uninitialized in this function scheme-stalin.c:125368: warning: `a989' might be used uninitialized in this function scheme-stalin.c:125369: warning: `a990' might be used uninitialized in this function scheme-stalin.c:125370: warning: `a991' might be used uninitialized in this function scheme-stalin.c:125371: warning: `a992' might be used uninitialized in this function scheme-stalin.c:125372: warning: `a993' might be used uninitialized in this function scheme-stalin.c:125373: warning: `a994' might be used uninitialized in this function scheme-stalin.c:125374: warning: `a995' might be used uninitialized in this function scheme-stalin.c:125375: warning: `a996' might be used uninitialized in this function scheme-stalin.c:125376: warning: `a997' might be used uninitialized in this function scheme-stalin.c:125377: warning: `a998' might be used uninitialized in this function scheme-stalin.c:125378: warning: `a999' might be used uninitialized in this function scheme-stalin.c:125379: warning: `a1000' might be used uninitialized in this function scheme-stalin.c:125380: warning: `a1001' might be used uninitialized in this function scheme-stalin.c:125381: warning: `a1002' might be used uninitialized in this function scheme-stalin.c:125382: warning: `a1003' might be used uninitialized in this function scheme-stalin.c:125383: warning: `a1004' might be used uninitialized in this function scheme-stalin.c:125384: warning: `a1005' might be used uninitialized in this function scheme-stalin.c:125385: warning: `a1006' might be used uninitialized in this function scheme-stalin.c:125386: warning: `a1007' might be used uninitialized in this function scheme-stalin.c:125387: warning: `a1008' might be used uninitialized in this function scheme-stalin.c:125388: warning: `a1009' might be used uninitialized in this function scheme-stalin.c:125389: warning: `a1010' might be used uninitialized in this function scheme-stalin.c:125390: warning: `a1011' might be used uninitialized in this function scheme-stalin.c:125391: warning: `a1012' might be used uninitialized in this function scheme-stalin.c:125392: warning: `a1013' might be used uninitialized in this function scheme-stalin.c:125393: warning: `a1014' might be used uninitialized in this function scheme-stalin.c:125394: warning: `a1015' might be used uninitialized in this function scheme-stalin.c:125395: warning: `a1016' might be used uninitialized in this function scheme-stalin.c:125396: warning: `a1017' might be used uninitialized in this function scheme-stalin.c:125397: warning: `a1018' might be used uninitialized in this function scheme-stalin.c:125398: warning: `a1019' might be used uninitialized in this function scheme-stalin.c:125399: warning: `a1020' might be used uninitialized in this function scheme-stalin.c:125400: warning: `a1021' might be used uninitialized in this function scheme-stalin.c:125401: warning: `a1022' might be used uninitialized in this function scheme-stalin.c:125402: warning: `a1023' might be used uninitialized in this function scheme-stalin.c:125403: warning: `a1024' might be used uninitialized in this function scheme-stalin.c:125404: warning: `a1025' might be used uninitialized in this function scheme-stalin.c:125405: warning: `a1026' might be used uninitialized in this function scheme-stalin.c:125406: warning: `a1027' might be used uninitialized in this function scheme-stalin.c:125412: warning: `a1033' might be used uninitialized in this function scheme-stalin.c:125413: warning: `a1034' might be used uninitialized in this function scheme-stalin.c:125419: warning: `a1040' might be used uninitialized in this function scheme-stalin.c:125423: warning: `a2574' might be used uninitialized in this function scheme-stalin.c:125424: warning: `a2575' might be used uninitialized in this function scheme-stalin.c:125428: warning: `a2579' might be used uninitialized in this function scheme-stalin.c:125429: warning: `a2580' might be used uninitialized in this function scheme-stalin.c:125430: warning: `a2581' might be used uninitialized in this function scheme-stalin.c:125431: warning: `a2582' might be used uninitialized in this function scheme-stalin.c:125432: warning: `a2583' might be used uninitialized in this function scheme-stalin.c:125433: warning: `a2584' might be used uninitialized in this function scheme-stalin.c:125434: warning: `a2585' might be used uninitialized in this function scheme-stalin.c:125435: warning: `a2586' might be used uninitialized in this function scheme-stalin.c:125436: warning: `a2587' might be used uninitialized in this function scheme-stalin.c:125437: warning: `a2588' might be used uninitialized in this function scheme-stalin.c:125438: warning: `a2589' might be used uninitialized in this function scheme-stalin.c:125439: warning: `a2590' might be used uninitialized in this function scheme-stalin.c:125440: warning: `a2591' might be used uninitialized in this function scheme-stalin.c:125441: warning: `a2592' might be used uninitialized in this function scheme-stalin.c:125442: warning: `a2593' might be used uninitialized in this function scheme-stalin.c:125443: warning: `a2594' might be used uninitialized in this function scheme-stalin.c:125444: warning: `a2595' might be used uninitialized in this function scheme-stalin.c:125445: warning: `a2596' might be used uninitialized in this function scheme-stalin.c:125446: warning: `a2597' might be used uninitialized in this function scheme-stalin.c:125447: warning: `a2598' might be used uninitialized in this function scheme-stalin.c:125448: warning: `a2599' might be used uninitialized in this function scheme-stalin.c:125449: warning: `a2600' might be used uninitialized in this function scheme-stalin.c:125450: warning: `a2601' might be used uninitialized in this function scheme-stalin.c:125451: warning: `a2602' might be used uninitialized in this function scheme-stalin.c:125452: warning: `a2603' might be used uninitialized in this function scheme-stalin.c:125453: warning: `a2604' might be used uninitialized in this function scheme-stalin.c:125454: warning: `a2605' might be used uninitialized in this function scheme-stalin.c:125455: warning: `a2606' might be used uninitialized in this function scheme-stalin.c:125456: warning: `a2607' might be used uninitialized in this function scheme-stalin.c:125457: warning: `a2608' might be used uninitialized in this function scheme-stalin.c:125458: warning: `a2609' might be used uninitialized in this function scheme-stalin.c:125459: warning: `a2610' might be used uninitialized in this function scheme-stalin.c:125460: warning: `a2611' might be used uninitialized in this function scheme-stalin.c:125461: warning: `a2612' might be used uninitialized in this function scheme-stalin.c:125465: warning: `t23725' might be used uninitialized in this function scheme-stalin.c:125466: warning: `t23726' might be used uninitialized in this function scheme-stalin.c:125467: warning: `t23727' might be used uninitialized in this function scheme-stalin.c:125468: warning: `t23728' might be used uninitialized in this function scheme-stalin.c:125469: warning: `t23729' might be used uninitialized in this function scheme-stalin.c:125470: warning: `t23730' might be used uninitialized in this function scheme-stalin.c:125471: warning: `t23731' might be used uninitialized in this function scheme-stalin.c:125472: warning: `t23732' might be used uninitialized in this function scheme-stalin.c:125477: warning: `t23737' might be used uninitialized in this function scheme-stalin.c:125486: warning: `t23746' might be used uninitialized in this function scheme-stalin.c:125487: warning: `t23747' might be used uninitialized in this function scheme-stalin.c:125494: warning: `t23754' might be used uninitialized in this function scheme-stalin.c:125495: warning: `t23755' might be used uninitialized in this function scheme-stalin.c:125500: warning: `t23760' might be used uninitialized in this function scheme-stalin.c:125501: warning: `t23761' might be used uninitialized in this function scheme-stalin.c:125502: warning: `t23762' might be used uninitialized in this function scheme-stalin.c:125503: warning: `t23763' might be used uninitialized in this function scheme-stalin.c:125504: warning: `t23764' might be used uninitialized in this function scheme-stalin.c:125505: warning: `t23765' might be used uninitialized in this function scheme-stalin.c:125506: warning: `t23766' might be used uninitialized in this function scheme-stalin.c:125511: warning: `t23771' might be used uninitialized in this function scheme-stalin.c:125514: warning: `t23774' might be used uninitialized in this function scheme-stalin.c:125515: warning: `t23775' might be used uninitialized in this function scheme-stalin.c:125516: warning: `t23776' might be used uninitialized in this function scheme-stalin.c:125517: warning: `t23777' might be used uninitialized in this function scheme-stalin.c:125518: warning: `t23778' might be used uninitialized in this function scheme-stalin.c:125542: warning: `t23802' might be used uninitialized in this function scheme-stalin.c:125575: warning: `t23835' might be used uninitialized in this function scheme-stalin.c:125576: warning: `t23836' might be used uninitialized in this function scheme-stalin.c:125577: warning: `t23837' might be used uninitialized in this function scheme-stalin.c:125578: warning: `t23838' might be used uninitialized in this function scheme-stalin.c:125579: warning: `t23839' might be used uninitialized in this function scheme-stalin.c:125582: warning: `t23842' might be used uninitialized in this function scheme-stalin.c:125583: warning: `t23843' might be used uninitialized in this function scheme-stalin.c:125584: warning: `t23844' might be used uninitialized in this function scheme-stalin.c:125587: warning: `t23847' might be used uninitialized in this function scheme-stalin.c:125588: warning: `t23848' might be used uninitialized in this function scheme-stalin.c:125589: warning: `t23849' might be used uninitialized in this function scheme-stalin.c:125592: warning: `t23852' might be used uninitialized in this function scheme-stalin.c:125593: warning: `t23853' might be used uninitialized in this function scheme-stalin.c:125594: warning: `t23854' might be used uninitialized in this function scheme-stalin.c:125595: warning: `t23855' might be used uninitialized in this function scheme-stalin.c:125596: warning: `t23856' might be used uninitialized in this function scheme-stalin.c:125597: warning: `t23857' might be used uninitialized in this function scheme-stalin.c:125598: warning: `t23858' might be used uninitialized in this function scheme-stalin.c:125599: warning: `t23859' might be used uninitialized in this function scheme-stalin.c:125600: warning: `t23860' might be used uninitialized in this function scheme-stalin.c:125601: warning: `t23861' might be used uninitialized in this function scheme-stalin.c:125610: warning: `t23870' might be used uninitialized in this function scheme-stalin.c:125613: warning: `t23873' might be used uninitialized in this function scheme-stalin.c:125614: warning: `t23874' might be used uninitialized in this function scheme-stalin.c:125615: warning: `t23875' might be used uninitialized in this function scheme-stalin.c:125616: warning: `t23876' might be used uninitialized in this function scheme-stalin.c:125617: warning: `t23877' might be used uninitialized in this function scheme-stalin.c:125618: warning: `t23878' might be used uninitialized in this function scheme-stalin.c:125625: warning: `t23885' might be used uninitialized in this function scheme-stalin.c:125627: warning: `t23887' might be used uninitialized in this function scheme-stalin.c:125629: warning: `t23889' might be used uninitialized in this function scheme-stalin.c:125631: warning: `t23891' might be used uninitialized in this function scheme-stalin.c:125632: warning: `t23892' might be used uninitialized in this function scheme-stalin.c:125633: warning: `t23893' might be used uninitialized in this function scheme-stalin.c:125635: warning: `t23895' might be used uninitialized in this function scheme-stalin.c:125638: warning: `t23898' might be used uninitialized in this function scheme-stalin.c:125669: warning: `t23929' might be used uninitialized in this function scheme-stalin.c:125670: warning: `t23930' might be used uninitialized in this function scheme-stalin.c:125677: warning: `t23937' might be used uninitialized in this function scheme-stalin.c:125681: warning: `t24320' might be used uninitialized in this function scheme-stalin.c:125692: warning: `t24343' might be used uninitialized in this function scheme-stalin.c:125695: warning: `t24346' might be used uninitialized in this function 5709.66user 15.46system 1:37:05elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (43176major+1846927minor)pagefaults 0swaps compile conform (STATIC-COUNTS 2711 2711 2711 2711 0 0 0 2711 2626 1414 214 576 31 155 1.336448598130841 5144 5144 573 392) conform-stalin.c: In function `f2413': conform-stalin.c:5542: warning: unused variable `e2414' conform-stalin.c:5528: warning: unused variable `a2534' conform-stalin.c:5526: warning: `r2413' might be used uninitialized in this function conform-stalin.c: In function `f2410': conform-stalin.c:5615: warning: unused variable `e2411' conform-stalin.c:5601: warning: unused variable `a2531' conform-stalin.c:5599: warning: `r2410' might be used uninitialized in this function conform-stalin.c: In function `f1786': conform-stalin.c:5676: warning: `a2279' might be used uninitialized in this function conform-stalin.c:5678: warning: `a2281' might be used uninitialized in this function conform-stalin.c:5680: warning: `a2283' might be used uninitialized in this function conform-stalin.c:5681: warning: `a2284' might be used uninitialized in this function conform-stalin.c:5682: warning: `a2285' might be used uninitialized in this function conform-stalin.c:5683: warning: `a2286' might be used uninitialized in this function conform-stalin.c:5684: warning: `a2287' might be used uninitialized in this function conform-stalin.c:5685: warning: `a2288' might be used uninitialized in this function conform-stalin.c:5686: warning: `a2289' might be used uninitialized in this function conform-stalin.c:5687: warning: `a2290' might be used uninitialized in this function conform-stalin.c:5688: warning: `a2291' might be used uninitialized in this function conform-stalin.c:5690: warning: `a2293' might be used uninitialized in this function conform-stalin.c:5692: warning: `a2295' might be used uninitialized in this function conform-stalin.c:5693: warning: `a2296' might be used uninitialized in this function conform-stalin.c:5695: warning: `a2298' might be used uninitialized in this function conform-stalin.c:5696: warning: `a2299' might be used uninitialized in this function conform-stalin.c: In function `f1650': conform-stalin.c:6407: warning: `a2192' might be used uninitialized in this function conform-stalin.c:6409: warning: `a2194' might be used uninitialized in this function conform-stalin.c: In function `f1191': conform-stalin.c:6971: warning: unused variable `e512' conform-stalin.c:6952: warning: unused variable `e484' conform-stalin.c:6946: warning: unused variable `e472' conform-stalin.c:6945: warning: unused variable `e471' conform-stalin.c:6931: warning: unused variable `e96' conform-stalin.c:6588: warning: unused variable `a1216' conform-stalin.c:6567: warning: unused variable `a1195' conform-stalin.c:6561: warning: unused variable `a1186' conform-stalin.c:6560: warning: unused variable `a1185' conform-stalin.c:6546: warning: unused variable `a914' conform-stalin.c:6547: warning: `a915' might be used uninitialized in this function conform-stalin.c:6549: warning: `a935' might be used uninitialized in this function conform-stalin.c:6551: warning: `a985' might be used uninitialized in this function conform-stalin.c:6558: warning: `a1183' might be used uninitialized in this function conform-stalin.c:6563: warning: `a1188' might be used uninitialized in this function conform-stalin.c:6565: warning: `a1193' might be used uninitialized in this function conform-stalin.c:6570: warning: `a1198' might be used uninitialized in this function conform-stalin.c:6572: warning: `a1200' might be used uninitialized in this function conform-stalin.c:6575: warning: `a1203' might be used uninitialized in this function conform-stalin.c:6577: warning: `a1205' might be used uninitialized in this function conform-stalin.c:6579: warning: `a1207' might be used uninitialized in this function conform-stalin.c:6580: warning: `a1208' might be used uninitialized in this function conform-stalin.c:6582: warning: `a1210' might be used uninitialized in this function conform-stalin.c:6586: warning: `a1214' might be used uninitialized in this function conform-stalin.c:6591: warning: `a1219' might be used uninitialized in this function conform-stalin.c:6593: warning: `a1221' might be used uninitialized in this function conform-stalin.c:6595: warning: `a1223' might be used uninitialized in this function conform-stalin.c:6597: warning: `a1225' might be used uninitialized in this function conform-stalin.c:6599: warning: `a1227' might be used uninitialized in this function conform-stalin.c:6600: warning: `a1228' might be used uninitialized in this function conform-stalin.c:6602: warning: `a1230' might be used uninitialized in this function conform-stalin.c:6606: warning: `a1888' might be used uninitialized in this function conform-stalin.c:6610: warning: `a2540' might be used uninitialized in this function conform-stalin.c:6612: warning: `a2544' might be used uninitialized in this function conform-stalin.c:6614: warning: `a2548' might be used uninitialized in this function conform-stalin.c:6616: warning: `a2668' might be used uninitialized in this function conform-stalin.c:6624: warning: `t288' might be used uninitialized in this function conform-stalin.c:6877: warning: `t637' might be used uninitialized in this function conform-stalin.c:6891: warning: `t651' might be used uninitialized in this function conform-stalin.c: In function `f1167': conform-stalin.c:8947: warning: unused variable `p807' conform-stalin.c:8944: warning: unused variable `p801' conform-stalin.c:8908: warning: unused variable `e807' conform-stalin.c:8903: warning: unused variable `e801' conform-stalin.c:8890: warning: unused variable `e110' conform-stalin.c:8669: warning: unused variable `a1482' conform-stalin.c:8660: warning: unused variable `a1473' conform-stalin.c:8641: warning: unused variable `a931' conform-stalin.c:8629: warning: `a835' might be used uninitialized in this function conform-stalin.c:8630: warning: `a836' might be used uninitialized in this function conform-stalin.c:8632: warning: `a838' might be used uninitialized in this function conform-stalin.c:8633: warning: `a839' might be used uninitialized in this function conform-stalin.c:8634: warning: `a840' might be used uninitialized in this function conform-stalin.c:8637: warning: `a924' might be used uninitialized in this function conform-stalin.c:8638: warning: `a925' might be used uninitialized in this function conform-stalin.c:8639: warning: `a926' might be used uninitialized in this function conform-stalin.c:8642: warning: `a932' might be used uninitialized in this function conform-stalin.c:8643: warning: `a933' might be used uninitialized in this function conform-stalin.c:8649: warning: `a1235' might be used uninitialized in this function conform-stalin.c:8654: warning: `a1467' might be used uninitialized in this function conform-stalin.c:8656: warning: `a1469' might be used uninitialized in this function conform-stalin.c:8659: warning: `a1472' might be used uninitialized in this function conform-stalin.c:8663: warning: `a1476' might be used uninitialized in this function conform-stalin.c:8665: warning: `a1478' might be used uninitialized in this function conform-stalin.c:8668: warning: `a1481' might be used uninitialized in this function conform-stalin.c:8675: warning: `a1737' might be used uninitialized in this function conform-stalin.c:8678: warning: `a1741' might be used uninitialized in this function conform-stalin.c:8680: warning: `a1743' might be used uninitialized in this function conform-stalin.c:8682: warning: `a1745' might be used uninitialized in this function conform-stalin.c:8683: warning: `a1746' might be used uninitialized in this function conform-stalin.c:8685: warning: `a1863' might be used uninitialized in this function conform-stalin.c:8733: warning: `t755' might be used uninitialized in this function conform-stalin.c:8763: warning: `t793' might be used uninitialized in this function conform-stalin.c: In function `f992': conform-stalin.c:10111: warning: `a1719' might be used uninitialized in this function conform-stalin.c:10113: warning: `a1721' might be used uninitialized in this function conform-stalin.c:10116: warning: `a1724' might be used uninitialized in this function conform-stalin.c:10118: warning: `a1726' might be used uninitialized in this function conform-stalin.c:10120: warning: `a1728' might be used uninitialized in this function conform-stalin.c:10121: warning: `a1729' might be used uninitialized in this function conform-stalin.c:10122: warning: `a1730' might be used uninitialized in this function conform-stalin.c:10123: warning: `a1731' might be used uninitialized in this function conform-stalin.c: In function `f431': conform-stalin.c:10589: warning: `a1161' might be used uninitialized in this function conform-stalin.c:10591: warning: `a1163' might be used uninitialized in this function conform-stalin.c: In function `f377': conform-stalin.c:10845: warning: unused variable `p880' conform-stalin.c:10835: warning: unused variable `p783' conform-stalin.c:10826: warning: unused variable `e880' conform-stalin.c:10825: warning: unused variable `e878' conform-stalin.c:10816: warning: unused variable `e783' conform-stalin.c:10811: warning: unused variable `e380' conform-stalin.c:10810: warning: unused variable `e379' conform-stalin.c:10809: warning: unused variable `e378' conform-stalin.c:10808: warning: unused variable `e375' conform-stalin.c:10807: warning: unused variable `e374' conform-stalin.c:10806: warning: unused variable `e373' conform-stalin.c:10728: warning: unused variable `a1572' conform-stalin.c:10727: warning: unused variable `a1571' conform-stalin.c:10714: warning: unused variable `a1446' conform-stalin.c:10705: warning: unused variable `a1106' conform-stalin.c:10704: warning: unused variable `a1105' conform-stalin.c:10703: warning: unused variable `a1104' conform-stalin.c:10702: warning: unused variable `a1099' conform-stalin.c:10701: warning: unused variable `a1098' conform-stalin.c:10700: warning: unused variable `a1097' conform-stalin.c:10708: warning: `a1440' might be used uninitialized in this function conform-stalin.c:10710: warning: `a1442' might be used uninitialized in this function conform-stalin.c:10713: warning: `a1445' might be used uninitialized in this function conform-stalin.c:10717: warning: `a1561' might be used uninitialized in this function conform-stalin.c:10719: warning: `a1563' might be used uninitialized in this function conform-stalin.c:10722: warning: `a1566' might be used uninitialized in this function conform-stalin.c:10725: warning: `a1569' might be used uninitialized in this function conform-stalin.c: In function `f237': conform-stalin.c:11478: warning: unused variable `e241' conform-stalin.c:11313: warning: unused variable `a1051' conform-stalin.c:11310: warning: `a871' might be used uninitialized in this function conform-stalin.c:11311: warning: `a872' might be used uninitialized in this function conform-stalin.c:11316: warning: `a1054' might be used uninitialized in this function conform-stalin.c:11317: warning: `a1055' might be used uninitialized in this function conform-stalin.c:11318: warning: `a1056' might be used uninitialized in this function conform-stalin.c:11324: warning: `a2631' might be used uninitialized in this function conform-stalin.c:11327: warning: `a2634' might be used uninitialized in this function conform-stalin.c:11369: warning: `t1297' might be used uninitialized in this function conform-stalin.c:11400: warning: `t1336' might be used uninitialized in this function conform-stalin.c:11408: warning: `t1344' might be used uninitialized in this function conform-stalin.c: In function `f224': conform-stalin.c:12219: warning: unused variable `e226' conform-stalin.c:12069: warning: unused variable `a1041' conform-stalin.c:12068: warning: `a854' might be used uninitialized in this function conform-stalin.c:12072: warning: `a1044' might be used uninitialized in this function conform-stalin.c:12073: warning: `a1045' might be used uninitialized in this function conform-stalin.c:12074: warning: `a1046' might be used uninitialized in this function conform-stalin.c:12076: warning: `a2636' might be used uninitialized in this function conform-stalin.c:12077: warning: `a2637' might be used uninitialized in this function conform-stalin.c:12082: warning: `a2722' might be used uninitialized in this function conform-stalin.c:12085: warning: `a2725' might be used uninitialized in this function conform-stalin.c:12127: warning: `t1470' might be used uninitialized in this function conform-stalin.c:12142: warning: `t1487' might be used uninitialized in this function conform-stalin.c:12150: warning: `t1495' might be used uninitialized in this function conform-stalin.c: In function `f223': conform-stalin.c:12780: warning: `a2568' might be used uninitialized in this function conform-stalin.c:12783: warning: `a2571' might be used uninitialized in this function conform-stalin.c: In function `f217': conform-stalin.c:13032: warning: `a1027' might be used uninitialized in this function conform-stalin.c:13033: warning: `a1028' might be used uninitialized in this function conform-stalin.c: In function `f203': conform-stalin.c:13224: warning: `r203' might be used uninitialized in this function conform-stalin.c:13227: warning: `a1014' might be used uninitialized in this function conform-stalin.c: In function `f166': conform-stalin.c:13845: warning: unused variable `e169' conform-stalin.c:13844: warning: unused variable `e167' conform-stalin.c:13649: warning: unused variable `a990' conform-stalin.c:13648: warning: unused variable `a989' conform-stalin.c:13647: warning: `a983' might be used uninitialized in this function conform-stalin.c:13650: warning: `a991' might be used uninitialized in this function conform-stalin.c:13652: warning: `a993' might be used uninitialized in this function conform-stalin.c: In function `f156': conform-stalin.c:14426: warning: `a969' might be used uninitialized in this function conform-stalin.c:14427: warning: `a970' might be used uninitialized in this function conform-stalin.c:14428: warning: `a971' might be used uninitialized in this function conform-stalin.c:14429: warning: `a972' might be used uninitialized in this function conform-stalin.c:14430: warning: `a973' might be used uninitialized in this function conform-stalin.c:14431: warning: `a974' might be used uninitialized in this function conform-stalin.c:14432: warning: `a975' might be used uninitialized in this function conform-stalin.c:14433: warning: `a976' might be used uninitialized in this function conform-stalin.c:14434: warning: `a977' might be used uninitialized in this function conform-stalin.c:14435: warning: `a978' might be used uninitialized in this function conform-stalin.c:14437: warning: `a980' might be used uninitialized in this function conform-stalin.c:14448: warning: `t1995' might be used uninitialized in this function conform-stalin.c: In function `f123': conform-stalin.c:14919: warning: `a950' might be used uninitialized in this function conform-stalin.c: In function `f117': conform-stalin.c:15006: warning: `a937' might be used uninitialized in this function conform-stalin.c:15007: warning: `a938' might be used uninitialized in this function conform-stalin.c:15008: warning: `a939' might be used uninitialized in this function conform-stalin.c:15009: warning: `a940' might be used uninitialized in this function conform-stalin.c:15010: warning: `a941' might be used uninitialized in this function conform-stalin.c:15011: warning: `a942' might be used uninitialized in this function conform-stalin.c: In function `f108': conform-stalin.c:15103: warning: `t2154' might be used uninitialized in this function conform-stalin.c: In function `f85': conform-stalin.c:15208: warning: `a2582' might be used uninitialized in this function conform-stalin.c:15211: warning: `a2585' might be used uninitialized in this function conform-stalin.c: In function `f72': conform-stalin.c:15419: warning: `a893' might be used uninitialized in this function conform-stalin.c: In function `f59': conform-stalin.c:15571: warning: unused variable `e60' conform-stalin.c:15557: warning: unused variable `a877' conform-stalin.c:15555: warning: `r59' might be used uninitialized in this function conform-stalin.c: In function `f19': conform-stalin.c:15987: warning: `r19' might be used uninitialized in this function conform-stalin.c:15988: warning: `a832' might be used uninitialized in this function conform-stalin.c:15989: warning: `a2520' might be used uninitialized in this function conform-stalin.c:16000: warning: `t2409' might be used uninitialized in this function conform-stalin.c: In function `f0': conform-stalin.c:16069: warning: `a1' might be used uninitialized in this function conform-stalin.c:16070: warning: `a2' might be used uninitialized in this function conform-stalin.c:16071: warning: `a3' might be used uninitialized in this function conform-stalin.c:16072: warning: `a4' might be used uninitialized in this function conform-stalin.c:16073: warning: `a5' might be used uninitialized in this function conform-stalin.c:16074: warning: `a6' might be used uninitialized in this function conform-stalin.c:16075: warning: `a7' might be used uninitialized in this function conform-stalin.c:16076: warning: `a8' might be used uninitialized in this function conform-stalin.c:16077: warning: `a9' might be used uninitialized in this function conform-stalin.c:16078: warning: `a10' might be used uninitialized in this function conform-stalin.c:16079: warning: `a11' might be used uninitialized in this function conform-stalin.c:16080: warning: `a12' might be used uninitialized in this function conform-stalin.c:16081: warning: `a13' might be used uninitialized in this function conform-stalin.c:16082: warning: `a14' might be used uninitialized in this function conform-stalin.c:16083: warning: `a15' might be used uninitialized in this function conform-stalin.c:16084: warning: `a16' might be used uninitialized in this function conform-stalin.c:16085: warning: `a17' might be used uninitialized in this function conform-stalin.c:16086: warning: `a18' might be used uninitialized in this function conform-stalin.c:16087: warning: `a19' might be used uninitialized in this function conform-stalin.c:16088: warning: `a20' might be used uninitialized in this function conform-stalin.c:16089: warning: `a21' might be used uninitialized in this function conform-stalin.c:16090: warning: `a22' might be used uninitialized in this function conform-stalin.c:16091: warning: `a23' might be used uninitialized in this function conform-stalin.c:16092: warning: `a24' might be used uninitialized in this function conform-stalin.c:16093: warning: `a25' might be used uninitialized in this function conform-stalin.c:16094: warning: `a26' might be used uninitialized in this function conform-stalin.c:16095: warning: `a27' might be used uninitialized in this function conform-stalin.c:16096: warning: `a28' might be used uninitialized in this function conform-stalin.c:16097: warning: `a29' might be used uninitialized in this function conform-stalin.c:16098: warning: `a30' might be used uninitialized in this function conform-stalin.c:16099: warning: `a31' might be used uninitialized in this function conform-stalin.c:16100: warning: `a32' might be used uninitialized in this function conform-stalin.c:16101: warning: `a33' might be used uninitialized in this function conform-stalin.c:16102: warning: `a34' might be used uninitialized in this function conform-stalin.c:16103: warning: `a35' might be used uninitialized in this function conform-stalin.c:16104: warning: `a36' might be used uninitialized in this function conform-stalin.c:16105: warning: `a37' might be used uninitialized in this function conform-stalin.c:16106: warning: `a38' might be used uninitialized in this function conform-stalin.c:16107: warning: `a39' might be used uninitialized in this function conform-stalin.c:16108: warning: `a40' might be used uninitialized in this function conform-stalin.c:16109: warning: `a41' might be used uninitialized in this function conform-stalin.c:16110: warning: `a42' might be used uninitialized in this function conform-stalin.c:16111: warning: `a43' might be used uninitialized in this function conform-stalin.c:16112: warning: `a44' might be used uninitialized in this function conform-stalin.c:16113: warning: `a45' might be used uninitialized in this function conform-stalin.c:16114: warning: `a46' might be used uninitialized in this function conform-stalin.c:16115: warning: `a47' might be used uninitialized in this function conform-stalin.c:16116: warning: `a48' might be used uninitialized in this function conform-stalin.c:16117: warning: `a49' might be used uninitialized in this function conform-stalin.c:16118: warning: `a50' might be used uninitialized in this function conform-stalin.c:16119: warning: `a51' might be used uninitialized in this function conform-stalin.c:16120: warning: `a52' might be used uninitialized in this function conform-stalin.c:16121: warning: `a53' might be used uninitialized in this function conform-stalin.c:16122: warning: `a54' might be used uninitialized in this function conform-stalin.c:16123: warning: `a55' might be used uninitialized in this function conform-stalin.c:16124: warning: `a56' might be used uninitialized in this function conform-stalin.c:16125: warning: `a57' might be used uninitialized in this function conform-stalin.c:16126: warning: `a58' might be used uninitialized in this function conform-stalin.c:16127: warning: `a59' might be used uninitialized in this function conform-stalin.c:16128: warning: `a60' might be used uninitialized in this function conform-stalin.c:16129: warning: `a61' might be used uninitialized in this function conform-stalin.c:16130: warning: `a62' might be used uninitialized in this function conform-stalin.c:16131: warning: `a63' might be used uninitialized in this function conform-stalin.c:16132: warning: `a64' might be used uninitialized in this function conform-stalin.c:16133: warning: `a65' might be used uninitialized in this function conform-stalin.c:16134: warning: `a66' might be used uninitialized in this function conform-stalin.c:16135: warning: `a67' might be used uninitialized in this function conform-stalin.c:16136: warning: `a68' might be used uninitialized in this function conform-stalin.c:16137: warning: `a69' might be used uninitialized in this function conform-stalin.c:16138: warning: `a70' might be used uninitialized in this function conform-stalin.c:16139: warning: `a71' might be used uninitialized in this function conform-stalin.c:16140: warning: `a72' might be used uninitialized in this function conform-stalin.c:16141: warning: `a73' might be used uninitialized in this function conform-stalin.c:16142: warning: `a74' might be used uninitialized in this function conform-stalin.c:16143: warning: `a75' might be used uninitialized in this function conform-stalin.c:16144: warning: `a76' might be used uninitialized in this function conform-stalin.c:16145: warning: `a77' might be used uninitialized in this function conform-stalin.c:16146: warning: `a78' might be used uninitialized in this function conform-stalin.c:16147: warning: `a79' might be used uninitialized in this function conform-stalin.c:16148: warning: `a80' might be used uninitialized in this function conform-stalin.c:16149: warning: `a81' might be used uninitialized in this function conform-stalin.c:16150: warning: `a82' might be used uninitialized in this function conform-stalin.c:16151: warning: `a83' might be used uninitialized in this function conform-stalin.c:16152: warning: `a84' might be used uninitialized in this function conform-stalin.c:16153: warning: `a85' might be used uninitialized in this function conform-stalin.c:16154: warning: `a86' might be used uninitialized in this function conform-stalin.c:16155: warning: `a87' might be used uninitialized in this function conform-stalin.c:16156: warning: `a88' might be used uninitialized in this function conform-stalin.c:16157: warning: `a89' might be used uninitialized in this function conform-stalin.c:16158: warning: `a90' might be used uninitialized in this function conform-stalin.c:16159: warning: `a91' might be used uninitialized in this function conform-stalin.c:16160: warning: `a92' might be used uninitialized in this function conform-stalin.c:16161: warning: `a93' might be used uninitialized in this function conform-stalin.c:16162: warning: `a94' might be used uninitialized in this function conform-stalin.c:16163: warning: `a95' might be used uninitialized in this function conform-stalin.c:16164: warning: `a96' might be used uninitialized in this function conform-stalin.c:16165: warning: `a97' might be used uninitialized in this function conform-stalin.c:16166: warning: `a98' might be used uninitialized in this function conform-stalin.c:16167: warning: `a99' might be used uninitialized in this function conform-stalin.c:16168: warning: `a100' might be used uninitialized in this function conform-stalin.c:16169: warning: `a101' might be used uninitialized in this function conform-stalin.c:16170: warning: `a102' might be used uninitialized in this function conform-stalin.c:16171: warning: `a103' might be used uninitialized in this function conform-stalin.c:16172: warning: `a104' might be used uninitialized in this function conform-stalin.c:16173: warning: `a105' might be used uninitialized in this function conform-stalin.c:16174: warning: `a106' might be used uninitialized in this function conform-stalin.c:16175: warning: `a107' might be used uninitialized in this function conform-stalin.c:16176: warning: `a108' might be used uninitialized in this function conform-stalin.c:16177: warning: `a109' might be used uninitialized in this function conform-stalin.c:16178: warning: `a110' might be used uninitialized in this function conform-stalin.c:16179: warning: `a111' might be used uninitialized in this function conform-stalin.c:16180: warning: `a112' might be used uninitialized in this function conform-stalin.c:16181: warning: `a113' might be used uninitialized in this function conform-stalin.c:16182: warning: `a114' might be used uninitialized in this function conform-stalin.c:16183: warning: `a115' might be used uninitialized in this function conform-stalin.c:16184: warning: `a116' might be used uninitialized in this function conform-stalin.c:16185: warning: `a117' might be used uninitialized in this function conform-stalin.c:16186: warning: `a118' might be used uninitialized in this function conform-stalin.c:16187: warning: `a119' might be used uninitialized in this function conform-stalin.c:16188: warning: `a120' might be used uninitialized in this function conform-stalin.c:16189: warning: `a121' might be used uninitialized in this function conform-stalin.c:16190: warning: `a122' might be used uninitialized in this function conform-stalin.c:16191: warning: `a123' might be used uninitialized in this function conform-stalin.c:16192: warning: `a124' might be used uninitialized in this function conform-stalin.c:16193: warning: `a125' might be used uninitialized in this function conform-stalin.c:16194: warning: `a126' might be used uninitialized in this function conform-stalin.c:16195: warning: `a127' might be used uninitialized in this function conform-stalin.c:16196: warning: `a128' might be used uninitialized in this function conform-stalin.c:16197: warning: `a129' might be used uninitialized in this function conform-stalin.c:16198: warning: `a130' might be used uninitialized in this function conform-stalin.c:16199: warning: `a131' might be used uninitialized in this function conform-stalin.c:16200: warning: `a132' might be used uninitialized in this function conform-stalin.c:16201: warning: `a133' might be used uninitialized in this function conform-stalin.c:16202: warning: `a134' might be used uninitialized in this function conform-stalin.c:16203: warning: `a135' might be used uninitialized in this function conform-stalin.c:16204: warning: `a136' might be used uninitialized in this function conform-stalin.c:16205: warning: `a137' might be used uninitialized in this function conform-stalin.c:16206: warning: `a138' might be used uninitialized in this function conform-stalin.c:16207: warning: `a139' might be used uninitialized in this function conform-stalin.c:16208: warning: `a140' might be used uninitialized in this function conform-stalin.c:16209: warning: `a141' might be used uninitialized in this function conform-stalin.c:16210: warning: `a142' might be used uninitialized in this function conform-stalin.c:16211: warning: `a143' might be used uninitialized in this function conform-stalin.c:16212: warning: `a144' might be used uninitialized in this function conform-stalin.c:16213: warning: `a145' might be used uninitialized in this function conform-stalin.c:16214: warning: `a146' might be used uninitialized in this function conform-stalin.c:16215: warning: `a147' might be used uninitialized in this function conform-stalin.c:16216: warning: `a148' might be used uninitialized in this function conform-stalin.c:16217: warning: `a149' might be used uninitialized in this function conform-stalin.c:16218: warning: `a150' might be used uninitialized in this function conform-stalin.c:16219: warning: `a151' might be used uninitialized in this function conform-stalin.c:16220: warning: `a152' might be used uninitialized in this function conform-stalin.c:16221: warning: `a153' might be used uninitialized in this function conform-stalin.c:16222: warning: `a154' might be used uninitialized in this function conform-stalin.c:16223: warning: `a155' might be used uninitialized in this function conform-stalin.c:16224: warning: `a156' might be used uninitialized in this function conform-stalin.c:16225: warning: `a157' might be used uninitialized in this function conform-stalin.c:16226: warning: `a158' might be used uninitialized in this function conform-stalin.c:16227: warning: `a159' might be used uninitialized in this function conform-stalin.c:16228: warning: `a160' might be used uninitialized in this function conform-stalin.c:16229: warning: `a161' might be used uninitialized in this function conform-stalin.c:16230: warning: `a162' might be used uninitialized in this function conform-stalin.c:16231: warning: `a163' might be used uninitialized in this function conform-stalin.c:16232: warning: `a164' might be used uninitialized in this function conform-stalin.c:16233: warning: `a165' might be used uninitialized in this function conform-stalin.c:16234: warning: `a166' might be used uninitialized in this function conform-stalin.c:16235: warning: `a167' might be used uninitialized in this function conform-stalin.c:16236: warning: `a168' might be used uninitialized in this function conform-stalin.c:16237: warning: `a169' might be used uninitialized in this function conform-stalin.c:16238: warning: `a170' might be used uninitialized in this function conform-stalin.c:16239: warning: `a171' might be used uninitialized in this function conform-stalin.c:16240: warning: `a172' might be used uninitialized in this function conform-stalin.c:16241: warning: `a173' might be used uninitialized in this function conform-stalin.c:16242: warning: `a174' might be used uninitialized in this function conform-stalin.c:16243: warning: `a175' might be used uninitialized in this function conform-stalin.c:16244: warning: `a176' might be used uninitialized in this function conform-stalin.c:16245: warning: `a177' might be used uninitialized in this function conform-stalin.c:16246: warning: `a178' might be used uninitialized in this function conform-stalin.c:16247: warning: `a179' might be used uninitialized in this function conform-stalin.c:16248: warning: `a180' might be used uninitialized in this function conform-stalin.c:16249: warning: `a181' might be used uninitialized in this function conform-stalin.c:16250: warning: `a182' might be used uninitialized in this function conform-stalin.c:16251: warning: `a183' might be used uninitialized in this function conform-stalin.c:16252: warning: `a184' might be used uninitialized in this function conform-stalin.c:16253: warning: `a185' might be used uninitialized in this function conform-stalin.c:16254: warning: `a186' might be used uninitialized in this function conform-stalin.c:16255: warning: `a187' might be used uninitialized in this function conform-stalin.c:16256: warning: `a188' might be used uninitialized in this function conform-stalin.c:16257: warning: `a189' might be used uninitialized in this function conform-stalin.c:16258: warning: `a190' might be used uninitialized in this function conform-stalin.c:16259: warning: `a191' might be used uninitialized in this function conform-stalin.c:16260: warning: `a192' might be used uninitialized in this function conform-stalin.c:16261: warning: `a193' might be used uninitialized in this function conform-stalin.c:16262: warning: `a194' might be used uninitialized in this function conform-stalin.c:16263: warning: `a195' might be used uninitialized in this function conform-stalin.c:16264: warning: `a196' might be used uninitialized in this function conform-stalin.c:16265: warning: `a197' might be used uninitialized in this function conform-stalin.c:16266: warning: `a198' might be used uninitialized in this function conform-stalin.c:16267: warning: `a199' might be used uninitialized in this function conform-stalin.c:16268: warning: `a200' might be used uninitialized in this function conform-stalin.c:16269: warning: `a201' might be used uninitialized in this function conform-stalin.c:16270: warning: `a202' might be used uninitialized in this function conform-stalin.c:16271: warning: `a203' might be used uninitialized in this function conform-stalin.c:16272: warning: `a204' might be used uninitialized in this function conform-stalin.c:16273: warning: `a205' might be used uninitialized in this function conform-stalin.c:16274: warning: `a206' might be used uninitialized in this function conform-stalin.c:16275: warning: `a207' might be used uninitialized in this function conform-stalin.c:16276: warning: `a208' might be used uninitialized in this function conform-stalin.c:16277: warning: `a209' might be used uninitialized in this function conform-stalin.c:16278: warning: `a210' might be used uninitialized in this function conform-stalin.c:16279: warning: `a211' might be used uninitialized in this function conform-stalin.c:16280: warning: `a212' might be used uninitialized in this function conform-stalin.c:16281: warning: `a213' might be used uninitialized in this function conform-stalin.c:16282: warning: `a214' might be used uninitialized in this function conform-stalin.c:16283: warning: `a215' might be used uninitialized in this function conform-stalin.c:16284: warning: `a216' might be used uninitialized in this function conform-stalin.c:16285: warning: `a217' might be used uninitialized in this function conform-stalin.c:16286: warning: `a218' might be used uninitialized in this function conform-stalin.c:16287: warning: `a219' might be used uninitialized in this function conform-stalin.c:16288: warning: `a220' might be used uninitialized in this function conform-stalin.c:16289: warning: `a221' might be used uninitialized in this function conform-stalin.c:16290: warning: `a222' might be used uninitialized in this function conform-stalin.c:16291: warning: `a223' might be used uninitialized in this function conform-stalin.c:16292: warning: `a224' might be used uninitialized in this function conform-stalin.c:16293: warning: `a225' might be used uninitialized in this function conform-stalin.c:16294: warning: `a226' might be used uninitialized in this function conform-stalin.c:16295: warning: `a227' might be used uninitialized in this function conform-stalin.c:16296: warning: `a228' might be used uninitialized in this function conform-stalin.c:16297: warning: `a229' might be used uninitialized in this function conform-stalin.c:16298: warning: `a230' might be used uninitialized in this function conform-stalin.c:16299: warning: `a231' might be used uninitialized in this function conform-stalin.c:16300: warning: `a232' might be used uninitialized in this function conform-stalin.c:16301: warning: `a233' might be used uninitialized in this function conform-stalin.c:16302: warning: `a234' might be used uninitialized in this function conform-stalin.c:16303: warning: `a235' might be used uninitialized in this function conform-stalin.c:16304: warning: `a236' might be used uninitialized in this function conform-stalin.c:16305: warning: `a237' might be used uninitialized in this function conform-stalin.c:16306: warning: `a238' might be used uninitialized in this function conform-stalin.c:16307: warning: `a239' might be used uninitialized in this function conform-stalin.c:16308: warning: `a240' might be used uninitialized in this function conform-stalin.c:16309: warning: `a241' might be used uninitialized in this function conform-stalin.c:16310: warning: `a242' might be used uninitialized in this function conform-stalin.c:16311: warning: `a243' might be used uninitialized in this function conform-stalin.c:16312: warning: `a244' might be used uninitialized in this function conform-stalin.c:16313: warning: `a245' might be used uninitialized in this function conform-stalin.c:16314: warning: `a246' might be used uninitialized in this function conform-stalin.c:16315: warning: `a247' might be used uninitialized in this function conform-stalin.c:16316: warning: `a248' might be used uninitialized in this function conform-stalin.c:16317: warning: `a249' might be used uninitialized in this function conform-stalin.c:16318: warning: `a250' might be used uninitialized in this function conform-stalin.c:16319: warning: `a251' might be used uninitialized in this function conform-stalin.c:16320: warning: `a252' might be used uninitialized in this function conform-stalin.c:16321: warning: `a253' might be used uninitialized in this function conform-stalin.c:16322: warning: `a254' might be used uninitialized in this function conform-stalin.c:16323: warning: `a255' might be used uninitialized in this function conform-stalin.c:16324: warning: `a256' might be used uninitialized in this function conform-stalin.c:16325: warning: `a257' might be used uninitialized in this function conform-stalin.c:16326: warning: `a258' might be used uninitialized in this function conform-stalin.c:16327: warning: `a259' might be used uninitialized in this function conform-stalin.c:16328: warning: `a260' might be used uninitialized in this function conform-stalin.c:16329: warning: `a261' might be used uninitialized in this function conform-stalin.c:16330: warning: `a262' might be used uninitialized in this function conform-stalin.c:16331: warning: `a263' might be used uninitialized in this function conform-stalin.c:16332: warning: `a264' might be used uninitialized in this function conform-stalin.c:16333: warning: `a265' might be used uninitialized in this function conform-stalin.c:16334: warning: `a266' might be used uninitialized in this function conform-stalin.c:16335: warning: `a267' might be used uninitialized in this function conform-stalin.c:16336: warning: `a268' might be used uninitialized in this function conform-stalin.c:16337: warning: `a269' might be used uninitialized in this function conform-stalin.c:16338: warning: `a270' might be used uninitialized in this function conform-stalin.c:16339: warning: `a271' might be used uninitialized in this function conform-stalin.c:16340: warning: `a272' might be used uninitialized in this function conform-stalin.c:16341: warning: `a273' might be used uninitialized in this function conform-stalin.c:16342: warning: `a274' might be used uninitialized in this function conform-stalin.c:16343: warning: `a275' might be used uninitialized in this function conform-stalin.c:16344: warning: `a276' might be used uninitialized in this function conform-stalin.c:16345: warning: `a277' might be used uninitialized in this function conform-stalin.c:16346: warning: `a278' might be used uninitialized in this function conform-stalin.c:16347: warning: `a279' might be used uninitialized in this function conform-stalin.c:16348: warning: `a280' might be used uninitialized in this function conform-stalin.c:16349: warning: `a281' might be used uninitialized in this function conform-stalin.c:16350: warning: `a282' might be used uninitialized in this function conform-stalin.c:16351: warning: `a283' might be used uninitialized in this function conform-stalin.c:16352: warning: `a284' might be used uninitialized in this function conform-stalin.c:16353: warning: `a285' might be used uninitialized in this function conform-stalin.c:16354: warning: `a286' might be used uninitialized in this function conform-stalin.c:16355: warning: `a287' might be used uninitialized in this function conform-stalin.c:16356: warning: `a288' might be used uninitialized in this function conform-stalin.c:16357: warning: `a289' might be used uninitialized in this function conform-stalin.c:16358: warning: `a290' might be used uninitialized in this function conform-stalin.c:16359: warning: `a291' might be used uninitialized in this function conform-stalin.c:16360: warning: `a292' might be used uninitialized in this function conform-stalin.c:16361: warning: `a293' might be used uninitialized in this function conform-stalin.c:16362: warning: `a294' might be used uninitialized in this function conform-stalin.c:16363: warning: `a295' might be used uninitialized in this function conform-stalin.c:16364: warning: `a296' might be used uninitialized in this function conform-stalin.c:16365: warning: `a297' might be used uninitialized in this function conform-stalin.c:16366: warning: `a298' might be used uninitialized in this function conform-stalin.c:16367: warning: `a299' might be used uninitialized in this function conform-stalin.c:16368: warning: `a300' might be used uninitialized in this function conform-stalin.c:16369: warning: `a301' might be used uninitialized in this function conform-stalin.c:16370: warning: `a302' might be used uninitialized in this function conform-stalin.c:16371: warning: `a303' might be used uninitialized in this function conform-stalin.c:16372: warning: `a304' might be used uninitialized in this function conform-stalin.c:16373: warning: `a305' might be used uninitialized in this function conform-stalin.c:16374: warning: `a306' might be used uninitialized in this function conform-stalin.c:16375: warning: `a307' might be used uninitialized in this function conform-stalin.c:16376: warning: `a308' might be used uninitialized in this function conform-stalin.c:16377: warning: `a309' might be used uninitialized in this function conform-stalin.c:16378: warning: `a310' might be used uninitialized in this function conform-stalin.c:16379: warning: `a311' might be used uninitialized in this function conform-stalin.c:16380: warning: `a312' might be used uninitialized in this function conform-stalin.c:16381: warning: `a313' might be used uninitialized in this function conform-stalin.c:16382: warning: `a314' might be used uninitialized in this function conform-stalin.c:16383: warning: `a315' might be used uninitialized in this function conform-stalin.c:16384: warning: `a316' might be used uninitialized in this function conform-stalin.c:16385: warning: `a317' might be used uninitialized in this function conform-stalin.c:16386: warning: `a318' might be used uninitialized in this function conform-stalin.c:16387: warning: `a319' might be used uninitialized in this function conform-stalin.c:16388: warning: `a320' might be used uninitialized in this function conform-stalin.c:16389: warning: `a321' might be used uninitialized in this function conform-stalin.c:16390: warning: `a322' might be used uninitialized in this function conform-stalin.c:16391: warning: `a323' might be used uninitialized in this function conform-stalin.c:16392: warning: `a324' might be used uninitialized in this function conform-stalin.c:16393: warning: `a325' might be used uninitialized in this function conform-stalin.c:16394: warning: `a326' might be used uninitialized in this function conform-stalin.c:16395: warning: `a327' might be used uninitialized in this function conform-stalin.c:16396: warning: `a328' might be used uninitialized in this function conform-stalin.c:16397: warning: `a329' might be used uninitialized in this function conform-stalin.c:16398: warning: `a330' might be used uninitialized in this function conform-stalin.c:16399: warning: `a331' might be used uninitialized in this function conform-stalin.c:16400: warning: `a332' might be used uninitialized in this function conform-stalin.c:16401: warning: `a333' might be used uninitialized in this function conform-stalin.c:16402: warning: `a334' might be used uninitialized in this function conform-stalin.c:16403: warning: `a335' might be used uninitialized in this function conform-stalin.c:16404: warning: `a336' might be used uninitialized in this function conform-stalin.c:16405: warning: `a337' might be used uninitialized in this function conform-stalin.c:16406: warning: `a338' might be used uninitialized in this function conform-stalin.c:16407: warning: `a339' might be used uninitialized in this function conform-stalin.c:16408: warning: `a340' might be used uninitialized in this function conform-stalin.c:16409: warning: `a341' might be used uninitialized in this function conform-stalin.c:16410: warning: `a342' might be used uninitialized in this function conform-stalin.c:16411: warning: `a343' might be used uninitialized in this function conform-stalin.c:16412: warning: `a344' might be used uninitialized in this function conform-stalin.c:16413: warning: `a345' might be used uninitialized in this function conform-stalin.c:16414: warning: `a346' might be used uninitialized in this function conform-stalin.c:16415: warning: `a347' might be used uninitialized in this function conform-stalin.c:16416: warning: `a348' might be used uninitialized in this function conform-stalin.c:16417: warning: `a349' might be used uninitialized in this function conform-stalin.c:16418: warning: `a350' might be used uninitialized in this function conform-stalin.c:16419: warning: `a351' might be used uninitialized in this function conform-stalin.c:16420: warning: `a352' might be used uninitialized in this function conform-stalin.c:16421: warning: `a353' might be used uninitialized in this function conform-stalin.c:16422: warning: `a354' might be used uninitialized in this function conform-stalin.c:16423: warning: `a355' might be used uninitialized in this function conform-stalin.c:16424: warning: `a356' might be used uninitialized in this function conform-stalin.c:16425: warning: `a357' might be used uninitialized in this function conform-stalin.c:16426: warning: `a358' might be used uninitialized in this function conform-stalin.c:16427: warning: `a359' might be used uninitialized in this function conform-stalin.c:16428: warning: `a360' might be used uninitialized in this function conform-stalin.c:16429: warning: `a361' might be used uninitialized in this function conform-stalin.c:16430: warning: `a362' might be used uninitialized in this function conform-stalin.c:16431: warning: `a363' might be used uninitialized in this function conform-stalin.c:16432: warning: `a364' might be used uninitialized in this function conform-stalin.c:16433: warning: `a365' might be used uninitialized in this function conform-stalin.c:16434: warning: `a366' might be used uninitialized in this function conform-stalin.c:16435: warning: `a367' might be used uninitialized in this function conform-stalin.c:16436: warning: `a368' might be used uninitialized in this function conform-stalin.c:16437: warning: `a369' might be used uninitialized in this function conform-stalin.c:16438: warning: `a370' might be used uninitialized in this function conform-stalin.c:16439: warning: `a371' might be used uninitialized in this function conform-stalin.c:16440: warning: `a372' might be used uninitialized in this function conform-stalin.c:16441: warning: `a373' might be used uninitialized in this function conform-stalin.c:16442: warning: `a374' might be used uninitialized in this function conform-stalin.c:16443: warning: `a375' might be used uninitialized in this function conform-stalin.c:16444: warning: `a376' might be used uninitialized in this function conform-stalin.c:16445: warning: `a377' might be used uninitialized in this function conform-stalin.c:16446: warning: `a378' might be used uninitialized in this function conform-stalin.c:16447: warning: `a379' might be used uninitialized in this function conform-stalin.c:16448: warning: `a380' might be used uninitialized in this function conform-stalin.c:16449: warning: `a381' might be used uninitialized in this function conform-stalin.c:16450: warning: `a382' might be used uninitialized in this function conform-stalin.c:16451: warning: `a383' might be used uninitialized in this function conform-stalin.c:16452: warning: `a384' might be used uninitialized in this function conform-stalin.c:16453: warning: `a385' might be used uninitialized in this function conform-stalin.c:16454: warning: `a386' might be used uninitialized in this function conform-stalin.c:16455: warning: `a387' might be used uninitialized in this function conform-stalin.c:16456: warning: `a388' might be used uninitialized in this function conform-stalin.c:16457: warning: `a389' might be used uninitialized in this function conform-stalin.c:16458: warning: `a390' might be used uninitialized in this function conform-stalin.c:16459: warning: `a391' might be used uninitialized in this function conform-stalin.c:16460: warning: `a392' might be used uninitialized in this function conform-stalin.c:16461: warning: `a393' might be used uninitialized in this function conform-stalin.c:16462: warning: `a394' might be used uninitialized in this function conform-stalin.c:16463: warning: `a395' might be used uninitialized in this function conform-stalin.c:16464: warning: `a396' might be used uninitialized in this function conform-stalin.c:16465: warning: `a397' might be used uninitialized in this function conform-stalin.c:16466: warning: `a398' might be used uninitialized in this function conform-stalin.c:16467: warning: `a399' might be used uninitialized in this function conform-stalin.c:16468: warning: `a400' might be used uninitialized in this function conform-stalin.c:16469: warning: `a401' might be used uninitialized in this function conform-stalin.c:16470: warning: `a402' might be used uninitialized in this function conform-stalin.c:16471: warning: `a403' might be used uninitialized in this function conform-stalin.c:16472: warning: `a404' might be used uninitialized in this function conform-stalin.c:16473: warning: `a405' might be used uninitialized in this function conform-stalin.c:16474: warning: `a406' might be used uninitialized in this function conform-stalin.c:16475: warning: `a407' might be used uninitialized in this function conform-stalin.c:16476: warning: `a408' might be used uninitialized in this function conform-stalin.c:16477: warning: `a409' might be used uninitialized in this function conform-stalin.c:16478: warning: `a410' might be used uninitialized in this function conform-stalin.c:16479: warning: `a411' might be used uninitialized in this function conform-stalin.c:16480: warning: `a412' might be used uninitialized in this function conform-stalin.c:16481: warning: `a413' might be used uninitialized in this function conform-stalin.c:16482: warning: `a414' might be used uninitialized in this function conform-stalin.c:16483: warning: `a415' might be used uninitialized in this function conform-stalin.c:16484: warning: `a416' might be used uninitialized in this function conform-stalin.c:16485: warning: `a417' might be used uninitialized in this function conform-stalin.c:16486: warning: `a418' might be used uninitialized in this function conform-stalin.c:16487: warning: `a419' might be used uninitialized in this function conform-stalin.c:16488: warning: `a420' might be used uninitialized in this function conform-stalin.c:16489: warning: `a421' might be used uninitialized in this function conform-stalin.c:16490: warning: `a422' might be used uninitialized in this function conform-stalin.c:16491: warning: `a423' might be used uninitialized in this function conform-stalin.c:16492: warning: `a424' might be used uninitialized in this function conform-stalin.c:16493: warning: `a425' might be used uninitialized in this function conform-stalin.c:16494: warning: `a426' might be used uninitialized in this function conform-stalin.c:16495: warning: `a427' might be used uninitialized in this function conform-stalin.c:16496: warning: `a428' might be used uninitialized in this function conform-stalin.c:16497: warning: `a429' might be used uninitialized in this function conform-stalin.c:16498: warning: `a430' might be used uninitialized in this function conform-stalin.c:16499: warning: `a431' might be used uninitialized in this function conform-stalin.c:16500: warning: `a432' might be used uninitialized in this function conform-stalin.c:16501: warning: `a433' might be used uninitialized in this function conform-stalin.c:16502: warning: `a434' might be used uninitialized in this function conform-stalin.c:16503: warning: `a435' might be used uninitialized in this function conform-stalin.c:16717: warning: `a649' might be used uninitialized in this function conform-stalin.c:16718: warning: `a650' might be used uninitialized in this function conform-stalin.c:16719: warning: `a651' might be used uninitialized in this function conform-stalin.c:16720: warning: `a652' might be used uninitialized in this function conform-stalin.c:16721: warning: `a653' might be used uninitialized in this function conform-stalin.c:16722: warning: `a654' might be used uninitialized in this function conform-stalin.c:16723: warning: `a655' might be used uninitialized in this function conform-stalin.c:16724: warning: `a656' might be used uninitialized in this function conform-stalin.c:16725: warning: `a657' might be used uninitialized in this function conform-stalin.c:16726: warning: `a658' might be used uninitialized in this function conform-stalin.c:16727: warning: `a659' might be used uninitialized in this function conform-stalin.c:16728: warning: `a660' might be used uninitialized in this function conform-stalin.c:16729: warning: `a661' might be used uninitialized in this function conform-stalin.c:16730: warning: `a662' might be used uninitialized in this function conform-stalin.c:16731: warning: `a663' might be used uninitialized in this function conform-stalin.c:16732: warning: `a664' might be used uninitialized in this function conform-stalin.c:16733: warning: `a665' might be used uninitialized in this function conform-stalin.c:16734: warning: `a666' might be used uninitialized in this function conform-stalin.c:16735: warning: `a667' might be used uninitialized in this function conform-stalin.c:16736: warning: `a668' might be used uninitialized in this function conform-stalin.c:16737: warning: `a669' might be used uninitialized in this function conform-stalin.c:16738: warning: `a670' might be used uninitialized in this function conform-stalin.c:16739: warning: `a671' might be used uninitialized in this function conform-stalin.c:16740: warning: `a672' might be used uninitialized in this function conform-stalin.c:16741: warning: `a673' might be used uninitialized in this function conform-stalin.c:16742: warning: `a674' might be used uninitialized in this function conform-stalin.c:16743: warning: `a675' might be used uninitialized in this function conform-stalin.c:16744: warning: `a676' might be used uninitialized in this function conform-stalin.c:16745: warning: `a677' might be used uninitialized in this function conform-stalin.c:16746: warning: `a678' might be used uninitialized in this function conform-stalin.c:16747: warning: `a679' might be used uninitialized in this function conform-stalin.c:16748: warning: `a680' might be used uninitialized in this function conform-stalin.c:16749: warning: `a681' might be used uninitialized in this function conform-stalin.c:16750: warning: `a682' might be used uninitialized in this function conform-stalin.c:16751: warning: `a683' might be used uninitialized in this function conform-stalin.c:16752: warning: `a684' might be used uninitialized in this function conform-stalin.c:16753: warning: `a685' might be used uninitialized in this function conform-stalin.c:16754: warning: `a686' might be used uninitialized in this function conform-stalin.c:16755: warning: `a687' might be used uninitialized in this function conform-stalin.c:16756: warning: `a688' might be used uninitialized in this function conform-stalin.c:16757: warning: `a689' might be used uninitialized in this function conform-stalin.c:16758: warning: `a690' might be used uninitialized in this function conform-stalin.c:16759: warning: `a691' might be used uninitialized in this function conform-stalin.c:16760: warning: `a692' might be used uninitialized in this function conform-stalin.c:16761: warning: `a693' might be used uninitialized in this function conform-stalin.c:16762: warning: `a694' might be used uninitialized in this function conform-stalin.c:16763: warning: `a695' might be used uninitialized in this function conform-stalin.c:16764: warning: `a696' might be used uninitialized in this function conform-stalin.c:16765: warning: `a697' might be used uninitialized in this function conform-stalin.c:16766: warning: `a699' might be used uninitialized in this function conform-stalin.c:16767: warning: `a700' might be used uninitialized in this function conform-stalin.c:16768: warning: `a701' might be used uninitialized in this function conform-stalin.c:16769: warning: `a702' might be used uninitialized in this function conform-stalin.c:16770: warning: `a703' might be used uninitialized in this function conform-stalin.c:16771: warning: `a704' might be used uninitialized in this function conform-stalin.c:16772: warning: `a705' might be used uninitialized in this function conform-stalin.c:16773: warning: `a706' might be used uninitialized in this function conform-stalin.c:16774: warning: `a707' might be used uninitialized in this function conform-stalin.c:16775: warning: `a708' might be used uninitialized in this function conform-stalin.c:16776: warning: `a709' might be used uninitialized in this function conform-stalin.c:16777: warning: `a710' might be used uninitialized in this function conform-stalin.c:16778: warning: `a711' might be used uninitialized in this function conform-stalin.c:16779: warning: `a713' might be used uninitialized in this function conform-stalin.c:16780: warning: `a714' might be used uninitialized in this function conform-stalin.c:16781: warning: `a715' might be used uninitialized in this function conform-stalin.c:16782: warning: `a716' might be used uninitialized in this function conform-stalin.c:16783: warning: `a718' might be used uninitialized in this function conform-stalin.c:16784: warning: `a719' might be used uninitialized in this function conform-stalin.c:16785: warning: `a720' might be used uninitialized in this function conform-stalin.c:16786: warning: `a721' might be used uninitialized in this function conform-stalin.c:16787: warning: `a722' might be used uninitialized in this function conform-stalin.c:16788: warning: `a723' might be used uninitialized in this function conform-stalin.c:16789: warning: `a724' might be used uninitialized in this function conform-stalin.c:16790: warning: `a726' might be used uninitialized in this function conform-stalin.c:16791: warning: `a727' might be used uninitialized in this function conform-stalin.c:16792: warning: `a728' might be used uninitialized in this function conform-stalin.c:16793: warning: `a729' might be used uninitialized in this function conform-stalin.c:16794: warning: `a730' might be used uninitialized in this function conform-stalin.c:16795: warning: `a731' might be used uninitialized in this function conform-stalin.c:16796: warning: `a732' might be used uninitialized in this function conform-stalin.c:16797: warning: `a733' might be used uninitialized in this function conform-stalin.c:16798: warning: `a734' might be used uninitialized in this function conform-stalin.c:16799: warning: `a735' might be used uninitialized in this function conform-stalin.c:16800: warning: `a736' might be used uninitialized in this function conform-stalin.c:16801: warning: `a737' might be used uninitialized in this function conform-stalin.c:16802: warning: `a738' might be used uninitialized in this function conform-stalin.c:16803: warning: `a739' might be used uninitialized in this function conform-stalin.c:16804: warning: `a740' might be used uninitialized in this function conform-stalin.c:16805: warning: `a741' might be used uninitialized in this function conform-stalin.c:16806: warning: `a742' might be used uninitialized in this function conform-stalin.c:16807: warning: `a743' might be used uninitialized in this function conform-stalin.c:16808: warning: `a744' might be used uninitialized in this function conform-stalin.c:16809: warning: `a745' might be used uninitialized in this function conform-stalin.c:16810: warning: `a746' might be used uninitialized in this function conform-stalin.c:16811: warning: `a747' might be used uninitialized in this function conform-stalin.c:16812: warning: `a748' might be used uninitialized in this function conform-stalin.c:16813: warning: `a749' might be used uninitialized in this function conform-stalin.c:16814: warning: `a750' might be used uninitialized in this function conform-stalin.c:16815: warning: `a751' might be used uninitialized in this function conform-stalin.c:16816: warning: `a752' might be used uninitialized in this function conform-stalin.c:16817: warning: `a753' might be used uninitialized in this function conform-stalin.c:16818: warning: `a754' might be used uninitialized in this function conform-stalin.c:16819: warning: `a755' might be used uninitialized in this function conform-stalin.c:16820: warning: `a756' might be used uninitialized in this function conform-stalin.c:16821: warning: `a757' might be used uninitialized in this function conform-stalin.c:16822: warning: `a758' might be used uninitialized in this function conform-stalin.c:16823: warning: `a759' might be used uninitialized in this function conform-stalin.c:16824: warning: `a760' might be used uninitialized in this function conform-stalin.c:16825: warning: `a761' might be used uninitialized in this function conform-stalin.c:16826: warning: `a762' might be used uninitialized in this function conform-stalin.c:16827: warning: `a763' might be used uninitialized in this function conform-stalin.c:16828: warning: `a764' might be used uninitialized in this function conform-stalin.c:16829: warning: `a765' might be used uninitialized in this function conform-stalin.c:16830: warning: `a766' might be used uninitialized in this function conform-stalin.c:16831: warning: `a767' might be used uninitialized in this function conform-stalin.c:16832: warning: `a768' might be used uninitialized in this function conform-stalin.c:16833: warning: `a769' might be used uninitialized in this function conform-stalin.c:16834: warning: `a770' might be used uninitialized in this function conform-stalin.c:16835: warning: `a771' might be used uninitialized in this function conform-stalin.c:16836: warning: `a772' might be used uninitialized in this function conform-stalin.c:16837: warning: `a773' might be used uninitialized in this function conform-stalin.c:16838: warning: `a774' might be used uninitialized in this function conform-stalin.c:16839: warning: `a775' might be used uninitialized in this function conform-stalin.c:16840: warning: `a776' might be used uninitialized in this function conform-stalin.c:16841: warning: `a777' might be used uninitialized in this function conform-stalin.c:16842: warning: `a778' might be used uninitialized in this function conform-stalin.c:16843: warning: `a779' might be used uninitialized in this function conform-stalin.c:16844: warning: `a780' might be used uninitialized in this function conform-stalin.c:16845: warning: `a781' might be used uninitialized in this function conform-stalin.c:16846: warning: `a782' might be used uninitialized in this function conform-stalin.c:16847: warning: `a783' might be used uninitialized in this function conform-stalin.c:16848: warning: `a784' might be used uninitialized in this function conform-stalin.c:16849: warning: `a785' might be used uninitialized in this function conform-stalin.c:16850: warning: `a786' might be used uninitialized in this function conform-stalin.c:16851: warning: `a787' might be used uninitialized in this function conform-stalin.c:16852: warning: `a788' might be used uninitialized in this function conform-stalin.c:16853: warning: `a789' might be used uninitialized in this function conform-stalin.c:16854: warning: `a790' might be used uninitialized in this function conform-stalin.c:16855: warning: `a791' might be used uninitialized in this function conform-stalin.c:16856: warning: `a792' might be used uninitialized in this function conform-stalin.c:16857: warning: `a793' might be used uninitialized in this function conform-stalin.c:16858: warning: `a794' might be used uninitialized in this function conform-stalin.c:16859: warning: `a795' might be used uninitialized in this function conform-stalin.c:16860: warning: `a796' might be used uninitialized in this function conform-stalin.c:16861: warning: `a797' might be used uninitialized in this function conform-stalin.c:16862: warning: `a798' might be used uninitialized in this function conform-stalin.c:16863: warning: `a799' might be used uninitialized in this function conform-stalin.c:16864: warning: `a800' might be used uninitialized in this function conform-stalin.c:16865: warning: `a801' might be used uninitialized in this function conform-stalin.c:16866: warning: `a802' might be used uninitialized in this function conform-stalin.c:16867: warning: `a803' might be used uninitialized in this function conform-stalin.c:16868: warning: `a804' might be used uninitialized in this function conform-stalin.c:16869: warning: `a805' might be used uninitialized in this function conform-stalin.c:16870: warning: `a806' might be used uninitialized in this function conform-stalin.c:16871: warning: `a807' might be used uninitialized in this function conform-stalin.c:16872: warning: `a808' might be used uninitialized in this function conform-stalin.c:16873: warning: `a809' might be used uninitialized in this function conform-stalin.c:16874: warning: `a810' might be used uninitialized in this function conform-stalin.c:16880: warning: `a821' might be used uninitialized in this function conform-stalin.c:16881: warning: `a822' might be used uninitialized in this function conform-stalin.c:16887: warning: `a828' might be used uninitialized in this function conform-stalin.c:16893: warning: `a906' might be used uninitialized in this function conform-stalin.c:16894: warning: `a907' might be used uninitialized in this function conform-stalin.c:16897: warning: `a910' might be used uninitialized in this function conform-stalin.c:16898: warning: `a911' might be used uninitialized in this function conform-stalin.c:16899: warning: `a912' might be used uninitialized in this function conform-stalin.c:16902: warning: `a918' might be used uninitialized in this function conform-stalin.c:16904: warning: `a920' might be used uninitialized in this function conform-stalin.c:16905: warning: `a921' might be used uninitialized in this function conform-stalin.c:16909: warning: `a1001' might be used uninitialized in this function conform-stalin.c:16914: warning: `a1009' might be used uninitialized in this function conform-stalin.c:16918: warning: `a1059' might be used uninitialized in this function conform-stalin.c:16919: warning: `a1060' might be used uninitialized in this function conform-stalin.c:16920: warning: `a1061' might be used uninitialized in this function conform-stalin.c:16921: warning: `a1062' might be used uninitialized in this function conform-stalin.c:16922: warning: `a1063' might be used uninitialized in this function conform-stalin.c:16927: warning: `a1068' might be used uninitialized in this function conform-stalin.c:16930: warning: `a1074' might be used uninitialized in this function conform-stalin.c:16932: warning: `a1076' might be used uninitialized in this function conform-stalin.c:16935: warning: `a1079' might be used uninitialized in this function conform-stalin.c:16936: warning: `a1080' might be used uninitialized in this function conform-stalin.c:16937: warning: `a1084' might be used uninitialized in this function conform-stalin.c:16938: warning: `a1085' might be used uninitialized in this function conform-stalin.c:16939: warning: `a1086' might be used uninitialized in this function conform-stalin.c:16940: warning: `a1087' might be used uninitialized in this function conform-stalin.c:16941: warning: `a1088' might be used uninitialized in this function conform-stalin.c:16942: warning: `a1089' might be used uninitialized in this function conform-stalin.c:16943: warning: `a1090' might be used uninitialized in this function conform-stalin.c:16944: warning: `a1091' might be used uninitialized in this function conform-stalin.c:16946: warning: `a1284' might be used uninitialized in this function conform-stalin.c:16950: warning: `a1779' might be used uninitialized in this function conform-stalin.c:16953: warning: `a1782' might be used uninitialized in this function conform-stalin.c:16956: warning: `a1791' might be used uninitialized in this function conform-stalin.c:16959: warning: `a1795' might be used uninitialized in this function conform-stalin.c:16961: warning: `a1797' might be used uninitialized in this function conform-stalin.c:16963: warning: `a1799' might be used uninitialized in this function conform-stalin.c:16964: warning: `a1800' might be used uninitialized in this function conform-stalin.c:16965: warning: `a2147' might be used uninitialized in this function conform-stalin.c:16966: warning: `a2148' might be used uninitialized in this function conform-stalin.c:16970: warning: `a2152' might be used uninitialized in this function conform-stalin.c:16971: warning: `a2153' might be used uninitialized in this function conform-stalin.c:16972: warning: `a2154' might be used uninitialized in this function conform-stalin.c:16973: warning: `a2155' might be used uninitialized in this function conform-stalin.c:16974: warning: `a2156' might be used uninitialized in this function conform-stalin.c:16975: warning: `a2157' might be used uninitialized in this function conform-stalin.c:16976: warning: `a2158' might be used uninitialized in this function conform-stalin.c:16977: warning: `a2159' might be used uninitialized in this function conform-stalin.c:16978: warning: `a2160' might be used uninitialized in this function conform-stalin.c:16979: warning: `a2161' might be used uninitialized in this function conform-stalin.c:16980: warning: `a2162' might be used uninitialized in this function conform-stalin.c:16981: warning: `a2163' might be used uninitialized in this function conform-stalin.c:16982: warning: `a2164' might be used uninitialized in this function conform-stalin.c:16983: warning: `a2165' might be used uninitialized in this function conform-stalin.c:16984: warning: `a2166' might be used uninitialized in this function conform-stalin.c:16985: warning: `a2167' might be used uninitialized in this function conform-stalin.c:16986: warning: `a2168' might be used uninitialized in this function conform-stalin.c:16987: warning: `a2169' might be used uninitialized in this function conform-stalin.c:16988: warning: `a2170' might be used uninitialized in this function conform-stalin.c:16989: warning: `a2171' might be used uninitialized in this function conform-stalin.c:16990: warning: `a2172' might be used uninitialized in this function conform-stalin.c:16991: warning: `a2173' might be used uninitialized in this function conform-stalin.c:16992: warning: `a2174' might be used uninitialized in this function conform-stalin.c:16993: warning: `a2175' might be used uninitialized in this function conform-stalin.c:16994: warning: `a2176' might be used uninitialized in this function conform-stalin.c:16995: warning: `a2177' might be used uninitialized in this function conform-stalin.c:16996: warning: `a2178' might be used uninitialized in this function conform-stalin.c:16997: warning: `a2179' might be used uninitialized in this function conform-stalin.c:16998: warning: `a2180' might be used uninitialized in this function conform-stalin.c:16999: warning: `a2181' might be used uninitialized in this function conform-stalin.c:17000: warning: `a2182' might be used uninitialized in this function conform-stalin.c:17001: warning: `a2183' might be used uninitialized in this function conform-stalin.c:17002: warning: `a2184' might be used uninitialized in this function conform-stalin.c:17003: warning: `a2185' might be used uninitialized in this function conform-stalin.c:17005: warning: `a2489' might be used uninitialized in this function conform-stalin.c:17006: warning: `a2490' might be used uninitialized in this function conform-stalin.c:17012: warning: `a2519' might be used uninitialized in this function conform-stalin.c:17024: warning: `a2575' might be used uninitialized in this function conform-stalin.c:17027: warning: `a2578' might be used uninitialized in this function conform-stalin.c:17031: warning: `a2589' might be used uninitialized in this function conform-stalin.c:17034: warning: `a2592' might be used uninitialized in this function conform-stalin.c:17038: warning: `a2596' might be used uninitialized in this function conform-stalin.c:17041: warning: `a2599' might be used uninitialized in this function conform-stalin.c:17045: warning: `a2603' might be used uninitialized in this function conform-stalin.c:17048: warning: `a2606' might be used uninitialized in this function conform-stalin.c:17052: warning: `a2610' might be used uninitialized in this function conform-stalin.c:17055: warning: `a2613' might be used uninitialized in this function conform-stalin.c:17059: warning: `a2617' might be used uninitialized in this function conform-stalin.c:17062: warning: `a2620' might be used uninitialized in this function conform-stalin.c:17066: warning: `a2624' might be used uninitialized in this function conform-stalin.c:17069: warning: `a2627' might be used uninitialized in this function conform-stalin.c:17070: warning: `a2639' might be used uninitialized in this function conform-stalin.c:17071: warning: `a2640' might be used uninitialized in this function conform-stalin.c:17072: warning: `a2641' might be used uninitialized in this function conform-stalin.c:17074: warning: `a2643' might be used uninitialized in this function conform-stalin.c:17075: warning: `a2644' might be used uninitialized in this function conform-stalin.c:17076: warning: `a2645' might be used uninitialized in this function conform-stalin.c:17079: warning: `a2648' might be used uninitialized in this function conform-stalin.c:17080: warning: `a2649' might be used uninitialized in this function conform-stalin.c:17083: warning: `a2652' might be used uninitialized in this function conform-stalin.c:17084: warning: `a2653' might be used uninitialized in this function conform-stalin.c:17086: warning: `a2655' might be used uninitialized in this function conform-stalin.c:17088: warning: `a2657' might be used uninitialized in this function conform-stalin.c:17090: warning: `a2659' might be used uninitialized in this function conform-stalin.c:17092: warning: `a2661' might be used uninitialized in this function conform-stalin.c:17095: warning: `a2666' might be used uninitialized in this function conform-stalin.c:17099: warning: `a2672' might be used uninitialized in this function conform-stalin.c:17102: warning: `a2675' might be used uninitialized in this function conform-stalin.c:17106: warning: `a2679' might be used uninitialized in this function conform-stalin.c:17109: warning: `a2682' might be used uninitialized in this function conform-stalin.c:17113: warning: `a2686' might be used uninitialized in this function conform-stalin.c:17116: warning: `a2689' might be used uninitialized in this function conform-stalin.c:17120: warning: `a2693' might be used uninitialized in this function conform-stalin.c:17123: warning: `a2696' might be used uninitialized in this function conform-stalin.c:17127: warning: `a2700' might be used uninitialized in this function conform-stalin.c:17130: warning: `a2703' might be used uninitialized in this function conform-stalin.c:17134: warning: `a2707' might be used uninitialized in this function conform-stalin.c:17137: warning: `a2710' might be used uninitialized in this function conform-stalin.c:17145: warning: `t2848' might be used uninitialized in this function conform-stalin.c:17146: warning: `t2849' might be used uninitialized in this function conform-stalin.c:17147: warning: `t2850' might be used uninitialized in this function conform-stalin.c:17148: warning: `t2851' might be used uninitialized in this function conform-stalin.c:17149: warning: `t2852' might be used uninitialized in this function conform-stalin.c:17150: warning: `t2853' might be used uninitialized in this function conform-stalin.c:17151: warning: `t2854' might be used uninitialized in this function conform-stalin.c:17152: warning: `t2855' might be used uninitialized in this function conform-stalin.c:17153: warning: `t2856' might be used uninitialized in this function conform-stalin.c:17156: warning: `t2859' might be used uninitialized in this function conform-stalin.c:17157: warning: `t2860' might be used uninitialized in this function conform-stalin.c:17158: warning: `t2861' might be used uninitialized in this function conform-stalin.c:17159: warning: `t2862' might be used uninitialized in this function conform-stalin.c:17160: warning: `t2863' might be used uninitialized in this function conform-stalin.c:17161: warning: `t2864' might be used uninitialized in this function conform-stalin.c:17162: warning: `t2865' might be used uninitialized in this function conform-stalin.c:17163: warning: `t2866' might be used uninitialized in this function conform-stalin.c:17164: warning: `t2867' might be used uninitialized in this function conform-stalin.c:17165: warning: `t2868' might be used uninitialized in this function conform-stalin.c:17166: warning: `t2869' might be used uninitialized in this function conform-stalin.c:17167: warning: `t2870' might be used uninitialized in this function conform-stalin.c:17168: warning: `t2871' might be used uninitialized in this function conform-stalin.c:17169: warning: `t2872' might be used uninitialized in this function conform-stalin.c:17170: warning: `t2873' might be used uninitialized in this function conform-stalin.c:17171: warning: `t2874' might be used uninitialized in this function conform-stalin.c:17172: warning: `t2875' might be used uninitialized in this function conform-stalin.c:17173: warning: `t2876' might be used uninitialized in this function conform-stalin.c:17174: warning: `t2877' might be used uninitialized in this function conform-stalin.c:17175: warning: `t2878' might be used uninitialized in this function conform-stalin.c:17178: warning: `t2881' might be used uninitialized in this function conform-stalin.c:17179: warning: `t2882' might be used uninitialized in this function conform-stalin.c:17180: warning: `t2883' might be used uninitialized in this function conform-stalin.c:17181: warning: `t2884' might be used uninitialized in this function conform-stalin.c:17182: warning: `t2885' might be used uninitialized in this function conform-stalin.c:17183: warning: `t2886' might be used uninitialized in this function conform-stalin.c:17184: warning: `t2887' might be used uninitialized in this function conform-stalin.c:17187: warning: `t2890' might be used uninitialized in this function conform-stalin.c:17188: warning: `t2891' might be used uninitialized in this function conform-stalin.c:17189: warning: `t2892' might be used uninitialized in this function conform-stalin.c:17191: warning: `t2894' might be used uninitialized in this function conform-stalin.c:17192: warning: `t2895' might be used uninitialized in this function conform-stalin.c:17193: warning: `t2896' might be used uninitialized in this function conform-stalin.c:17194: warning: `t2897' might be used uninitialized in this function conform-stalin.c:17195: warning: `t2898' might be used uninitialized in this function conform-stalin.c:17196: warning: `t2899' might be used uninitialized in this function conform-stalin.c:17200: warning: `t2903' might be used uninitialized in this function conform-stalin.c:17201: warning: `t2904' might be used uninitialized in this function conform-stalin.c:17202: warning: `t2905' might be used uninitialized in this function conform-stalin.c:17203: warning: `t2906' might be used uninitialized in this function conform-stalin.c:17204: warning: `t2907' might be used uninitialized in this function conform-stalin.c:17205: warning: `t2908' might be used uninitialized in this function conform-stalin.c:17206: warning: `t2909' might be used uninitialized in this function conform-stalin.c:17207: warning: `t2910' might be used uninitialized in this function conform-stalin.c:17208: warning: `t2911' might be used uninitialized in this function conform-stalin.c:17209: warning: `t2912' might be used uninitialized in this function conform-stalin.c:17210: warning: `t2913' might be used uninitialized in this function conform-stalin.c:17211: warning: `t2914' might be used uninitialized in this function conform-stalin.c:17212: warning: `t2915' might be used uninitialized in this function conform-stalin.c:17213: warning: `t2916' might be used uninitialized in this function conform-stalin.c:17214: warning: `t2917' might be used uninitialized in this function conform-stalin.c:17215: warning: `t2918' might be used uninitialized in this function conform-stalin.c:17216: warning: `t2919' might be used uninitialized in this function conform-stalin.c:17218: warning: `t2921' might be used uninitialized in this function conform-stalin.c:17219: warning: `t2922' might be used uninitialized in this function conform-stalin.c:17220: warning: `t2923' might be used uninitialized in this function conform-stalin.c:17221: warning: `t2924' might be used uninitialized in this function conform-stalin.c:17222: warning: `t2925' might be used uninitialized in this function conform-stalin.c:17223: warning: `t2926' might be used uninitialized in this function conform-stalin.c:17224: warning: `t2927' might be used uninitialized in this function conform-stalin.c:17225: warning: `t2928' might be used uninitialized in this function conform-stalin.c:17226: warning: `t2929' might be used uninitialized in this function conform-stalin.c:17227: warning: `t2930' might be used uninitialized in this function conform-stalin.c:17228: warning: `t2931' might be used uninitialized in this function conform-stalin.c:17229: warning: `t2932' might be used uninitialized in this function conform-stalin.c:17230: warning: `t2933' might be used uninitialized in this function conform-stalin.c:17231: warning: `t2934' might be used uninitialized in this function conform-stalin.c:17232: warning: `t2935' might be used uninitialized in this function conform-stalin.c:17233: warning: `t2936' might be used uninitialized in this function conform-stalin.c:17234: warning: `t2937' might be used uninitialized in this function conform-stalin.c:17235: warning: `t2938' might be used uninitialized in this function conform-stalin.c:17236: warning: `t2939' might be used uninitialized in this function conform-stalin.c:17237: warning: `t2940' might be used uninitialized in this function conform-stalin.c:17238: warning: `t2941' might be used uninitialized in this function conform-stalin.c:17239: warning: `t2942' might be used uninitialized in this function conform-stalin.c:17240: warning: `t2943' might be used uninitialized in this function conform-stalin.c:17241: warning: `t2944' might be used uninitialized in this function conform-stalin.c:17242: warning: `t2945' might be used uninitialized in this function conform-stalin.c:17243: warning: `t2946' might be used uninitialized in this function conform-stalin.c:17244: warning: `t2947' might be used uninitialized in this function conform-stalin.c:17245: warning: `t2948' might be used uninitialized in this function conform-stalin.c:17246: warning: `t2949' might be used uninitialized in this function conform-stalin.c:17247: warning: `t2950' might be used uninitialized in this function conform-stalin.c:17248: warning: `t2951' might be used uninitialized in this function conform-stalin.c:17249: warning: `t2952' might be used uninitialized in this function conform-stalin.c:17250: warning: `t2953' might be used uninitialized in this function conform-stalin.c:17251: warning: `t2954' might be used uninitialized in this function conform-stalin.c:17252: warning: `t2955' might be used uninitialized in this function conform-stalin.c:17253: warning: `t2956' might be used uninitialized in this function conform-stalin.c:17254: warning: `t2957' might be used uninitialized in this function conform-stalin.c:17255: warning: `t2958' might be used uninitialized in this function conform-stalin.c:17256: warning: `t2959' might be used uninitialized in this function conform-stalin.c:17257: warning: `t2960' might be used uninitialized in this function conform-stalin.c:17258: warning: `t2961' might be used uninitialized in this function conform-stalin.c:17259: warning: `t2962' might be used uninitialized in this function conform-stalin.c:17260: warning: `t2963' might be used uninitialized in this function conform-stalin.c:17261: warning: `t2964' might be used uninitialized in this function conform-stalin.c:17262: warning: `t2965' might be used uninitialized in this function conform-stalin.c:17263: warning: `t2966' might be used uninitialized in this function conform-stalin.c:17264: warning: `t2967' might be used uninitialized in this function conform-stalin.c:17265: warning: `t2968' might be used uninitialized in this function conform-stalin.c:17266: warning: `t2969' might be used uninitialized in this function conform-stalin.c:17267: warning: `t2970' might be used uninitialized in this function conform-stalin.c:17268: warning: `t2971' might be used uninitialized in this function conform-stalin.c:17269: warning: `t2972' might be used uninitialized in this function conform-stalin.c:17270: warning: `t2973' might be used uninitialized in this function conform-stalin.c:17271: warning: `t2974' might be used uninitialized in this function conform-stalin.c:17272: warning: `t2975' might be used uninitialized in this function conform-stalin.c:17273: warning: `t2976' might be used uninitialized in this function conform-stalin.c:17274: warning: `t2977' might be used uninitialized in this function conform-stalin.c:17275: warning: `t2978' might be used uninitialized in this function conform-stalin.c:17276: warning: `t2979' might be used uninitialized in this function conform-stalin.c:17277: warning: `t2980' might be used uninitialized in this function conform-stalin.c:17278: warning: `t2981' might be used uninitialized in this function conform-stalin.c:17279: warning: `t2982' might be used uninitialized in this function conform-stalin.c:17280: warning: `t2983' might be used uninitialized in this function conform-stalin.c:17281: warning: `t2984' might be used uninitialized in this function conform-stalin.c:17282: warning: `t2985' might be used uninitialized in this function conform-stalin.c:17283: warning: `t2986' might be used uninitialized in this function conform-stalin.c:17284: warning: `t2987' might be used uninitialized in this function conform-stalin.c:17285: warning: `t2988' might be used uninitialized in this function conform-stalin.c:17286: warning: `t2989' might be used uninitialized in this function conform-stalin.c:17287: warning: `t2990' might be used uninitialized in this function conform-stalin.c:17288: warning: `t2991' might be used uninitialized in this function conform-stalin.c:17289: warning: `t2992' might be used uninitialized in this function conform-stalin.c:17290: warning: `t2993' might be used uninitialized in this function conform-stalin.c:17291: warning: `t2994' might be used uninitialized in this function conform-stalin.c:17292: warning: `t2995' might be used uninitialized in this function conform-stalin.c:17293: warning: `t2996' might be used uninitialized in this function conform-stalin.c:17294: warning: `t2997' might be used uninitialized in this function conform-stalin.c:17295: warning: `t2998' might be used uninitialized in this function conform-stalin.c:17296: warning: `t2999' might be used uninitialized in this function conform-stalin.c:17297: warning: `t3000' might be used uninitialized in this function conform-stalin.c:17298: warning: `t3001' might be used uninitialized in this function conform-stalin.c:17299: warning: `t3002' might be used uninitialized in this function conform-stalin.c:17300: warning: `t3003' might be used uninitialized in this function conform-stalin.c:17302: warning: `t3005' might be used uninitialized in this function conform-stalin.c:17303: warning: `t3006' might be used uninitialized in this function conform-stalin.c:17305: warning: `t3008' might be used uninitialized in this function conform-stalin.c:17306: warning: `t3009' might be used uninitialized in this function conform-stalin.c:17307: warning: `t3010' might be used uninitialized in this function conform-stalin.c:17308: warning: `t3011' might be used uninitialized in this function conform-stalin.c:17309: warning: `t3012' might be used uninitialized in this function conform-stalin.c:17311: warning: `t3014' might be used uninitialized in this function conform-stalin.c:17312: warning: `t3015' might be used uninitialized in this function conform-stalin.c:17313: warning: `t3016' might be used uninitialized in this function conform-stalin.c:17315: warning: `t3018' might be used uninitialized in this function conform-stalin.c:17317: warning: `t3020' might be used uninitialized in this function conform-stalin.c:17318: warning: `t3021' might be used uninitialized in this function conform-stalin.c:17319: warning: `t3022' might be used uninitialized in this function conform-stalin.c:17320: warning: `t3023' might be used uninitialized in this function conform-stalin.c:17321: warning: `t3024' might be used uninitialized in this function conform-stalin.c:17322: warning: `t3025' might be used uninitialized in this function conform-stalin.c:17323: warning: `t3026' might be used uninitialized in this function conform-stalin.c:17324: warning: `t3027' might be used uninitialized in this function conform-stalin.c:17325: warning: `t3028' might be used uninitialized in this function conform-stalin.c:17326: warning: `t3029' might be used uninitialized in this function conform-stalin.c:17327: warning: `t3030' might be used uninitialized in this function conform-stalin.c:17328: warning: `t3031' might be used uninitialized in this function conform-stalin.c:17329: warning: `t3032' might be used uninitialized in this function conform-stalin.c:17330: warning: `t3033' might be used uninitialized in this function conform-stalin.c:17331: warning: `t3034' might be used uninitialized in this function conform-stalin.c:17332: warning: `t3035' might be used uninitialized in this function conform-stalin.c:17333: warning: `t3036' might be used uninitialized in this function conform-stalin.c:17334: warning: `t3037' might be used uninitialized in this function conform-stalin.c:17335: warning: `t3038' might be used uninitialized in this function conform-stalin.c:17336: warning: `t3039' might be used uninitialized in this function conform-stalin.c:17337: warning: `t3040' might be used uninitialized in this function conform-stalin.c:17338: warning: `t3041' might be used uninitialized in this function conform-stalin.c:17339: warning: `t3042' might be used uninitialized in this function conform-stalin.c:17340: warning: `t3043' might be used uninitialized in this function conform-stalin.c:17341: warning: `t3044' might be used uninitialized in this function conform-stalin.c:17342: warning: `t3045' might be used uninitialized in this function conform-stalin.c:17343: warning: `t3046' might be used uninitialized in this function conform-stalin.c:17344: warning: `t3047' might be used uninitialized in this function conform-stalin.c:17345: warning: `t3048' might be used uninitialized in this function conform-stalin.c:17347: warning: `t3050' might be used uninitialized in this function conform-stalin.c:17348: warning: `t3051' might be used uninitialized in this function conform-stalin.c:17349: warning: `t3052' might be used uninitialized in this function conform-stalin.c:17350: warning: `t3053' might be used uninitialized in this function conform-stalin.c:17351: warning: `t3054' might be used uninitialized in this function conform-stalin.c:17352: warning: `t3055' might be used uninitialized in this function conform-stalin.c:17354: warning: `t3057' might be used uninitialized in this function conform-stalin.c:17355: warning: `t3058' might be used uninitialized in this function conform-stalin.c:17356: warning: `t3059' might be used uninitialized in this function conform-stalin.c:17357: warning: `t3060' might be used uninitialized in this function conform-stalin.c:17361: warning: `t3222' might be used uninitialized in this function conform-stalin.c:17377: warning: `t3238' might be used uninitialized in this function conform-stalin.c:17379: warning: `t3271' might be used uninitialized in this function conform-stalin.c:17382: warning: `t3274' might be used uninitialized in this function conform-stalin.c:17396: warning: `t3290' might be used uninitialized in this function conform-stalin.c:17402: warning: `t3296' might be used uninitialized in this function conform-stalin.c:17483: warning: `t3400' might be used uninitialized in this function conform-stalin.c:17516: warning: `t3439' might be used uninitialized in this function conform-stalin.c:17536: warning: `t3462' might be used uninitialized in this function conform-stalin.c:17667: warning: `t3631' might be used uninitialized in this function conform-stalin.c:18245: warning: `t4415' might be used uninitialized in this function conform-stalin.c:18246: warning: `t4416' might be used uninitialized in this function 120.89user 0.99system 2:11.31elapsed 92%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (34595major+465944minor)pagefaults 0swaps compile nboyer (STATIC-COUNTS 2380 2380 2380 2380 0 0 0 2380 2466 1243 109 319 27 85 1.257348138471587 4898 4898 514 313) nboyer-stalin.c: In function `f1716': nboyer-stalin.c:4903: warning: `a1935' might be used uninitialized in this function nboyer-stalin.c:4905: warning: `a1937' might be used uninitialized in this function nboyer-stalin.c: In function `f251': nboyer-stalin.c:5075: warning: `a904' might be used uninitialized in this function nboyer-stalin.c:5077: warning: `a906' might be used uninitialized in this function nboyer-stalin.c: In function `f197': nboyer-stalin.c:5282: warning: unused variable `e2357' nboyer-stalin.c:5281: warning: unused variable `e2356' nboyer-stalin.c:5280: warning: unused variable `e2355' nboyer-stalin.c:5278: warning: unused variable `e204' nboyer-stalin.c:5274: warning: unused variable `e200' nboyer-stalin.c:5273: warning: unused variable `e199' nboyer-stalin.c:5272: warning: unused variable `e198' nboyer-stalin.c:5210: warning: unused variable `a2290' nboyer-stalin.c:5209: warning: unused variable `a2289' nboyer-stalin.c:5208: warning: unused variable `a2288' nboyer-stalin.c:5205: warning: unused variable `a853' nboyer-stalin.c:5201: warning: unused variable `a849' nboyer-stalin.c:5200: warning: unused variable `a848' nboyer-stalin.c:5199: warning: unused variable `a847' nboyer-stalin.c:5203: warning: `a851' might be used uninitialized in this function nboyer-stalin.c: In function `f125': nboyer-stalin.c:5783: warning: unused variable `e126' nboyer-stalin.c:5753: warning: unused variable `a823' nboyer-stalin.c: In function `f123': nboyer-stalin.c:5878: warning: unused variable `e124' nboyer-stalin.c:5848: warning: unused variable `a820' nboyer-stalin.c: In function `f118': nboyer-stalin.c:5946: warning: `a815' might be used uninitialized in this function nboyer-stalin.c: In function `f94': nboyer-stalin.c:6352: warning: `a805' might be used uninitialized in this function nboyer-stalin.c:6357: warning: `a811' might be used uninitialized in this function nboyer-stalin.c:6365: warning: `a2329' might be used uninitialized in this function nboyer-stalin.c: In function `f74': nboyer-stalin.c:7748: warning: `a2302' might be used uninitialized in this function nboyer-stalin.c: In function `f49': nboyer-stalin.c:8151: warning: `a2357' might be used uninitialized in this function nboyer-stalin.c: In function `f0': nboyer-stalin.c:10804: warning: unused variable `e2353' nboyer-stalin.c:10803: warning: unused variable `e2352' nboyer-stalin.c:10802: warning: unused variable `e2351' nboyer-stalin.c:10800: warning: unused variable `e2349' nboyer-stalin.c:10799: warning: unused variable `e2348' nboyer-stalin.c:10798: warning: unused variable `e2347' nboyer-stalin.c:10796: warning: unused variable `e2345' nboyer-stalin.c:10795: warning: unused variable `e2344' nboyer-stalin.c:10794: warning: unused variable `e2343' nboyer-stalin.c:10792: warning: unused variable `e2341' nboyer-stalin.c:10791: warning: unused variable `e2340' nboyer-stalin.c:10790: warning: unused variable `e2339' nboyer-stalin.c:10788: warning: unused variable `e2337' nboyer-stalin.c:10787: warning: unused variable `e2336' nboyer-stalin.c:10786: warning: unused variable `e2335' nboyer-stalin.c:10717: warning: unused variable `e195' nboyer-stalin.c:10716: warning: unused variable `e194' nboyer-stalin.c:10715: warning: unused variable `e193' nboyer-stalin.c:9348: warning: unused variable `a2285' nboyer-stalin.c:9347: warning: unused variable `a2284' nboyer-stalin.c:9346: warning: unused variable `a2283' nboyer-stalin.c:9343: warning: unused variable `a2280' nboyer-stalin.c:9342: warning: unused variable `a2279' nboyer-stalin.c:9341: warning: unused variable `a2278' nboyer-stalin.c:9338: warning: unused variable `a2275' nboyer-stalin.c:9337: warning: unused variable `a2274' nboyer-stalin.c:9336: warning: unused variable `a2273' nboyer-stalin.c:9333: warning: unused variable `a2270' nboyer-stalin.c:9332: warning: unused variable `a2269' nboyer-stalin.c:9331: warning: unused variable `a2268' nboyer-stalin.c:9328: warning: unused variable `a2265' nboyer-stalin.c:9327: warning: unused variable `a2264' nboyer-stalin.c:9326: warning: unused variable `a2263' nboyer-stalin.c:9208: warning: unused variable `a842' nboyer-stalin.c:9207: warning: unused variable `a841' nboyer-stalin.c:9206: warning: unused variable `a840' nboyer-stalin.c:8414: warning: `a1' might be used uninitialized in this function nboyer-stalin.c:8415: warning: `a2' might be used uninitialized in this function nboyer-stalin.c:8416: warning: `a3' might be used uninitialized in this function nboyer-stalin.c:8417: warning: `a4' might be used uninitialized in this function nboyer-stalin.c:8418: warning: `a5' might be used uninitialized in this function nboyer-stalin.c:8419: warning: `a6' might be used uninitialized in this function nboyer-stalin.c:8420: warning: `a7' might be used uninitialized in this function nboyer-stalin.c:8421: warning: `a8' might be used uninitialized in this function nboyer-stalin.c:8422: warning: `a9' might be used uninitialized in this function nboyer-stalin.c:8423: warning: `a10' might be used uninitialized in this function nboyer-stalin.c:8424: warning: `a11' might be used uninitialized in this function nboyer-stalin.c:8425: warning: `a12' might be used uninitialized in this function nboyer-stalin.c:8426: warning: `a13' might be used uninitialized in this function nboyer-stalin.c:8427: warning: `a14' might be used uninitialized in this function nboyer-stalin.c:8428: warning: `a15' might be used uninitialized in this function nboyer-stalin.c:8429: warning: `a16' might be used uninitialized in this function nboyer-stalin.c:8430: warning: `a17' might be used uninitialized in this function nboyer-stalin.c:8431: warning: `a18' might be used uninitialized in this function nboyer-stalin.c:8432: warning: `a19' might be used uninitialized in this function nboyer-stalin.c:8433: warning: `a20' might be used uninitialized in this function nboyer-stalin.c:8434: warning: `a21' might be used uninitialized in this function nboyer-stalin.c:8435: warning: `a22' might be used uninitialized in this function nboyer-stalin.c:8436: warning: `a23' might be used uninitialized in this function nboyer-stalin.c:8437: warning: `a24' might be used uninitialized in this function nboyer-stalin.c:8438: warning: `a25' might be used uninitialized in this function nboyer-stalin.c:8439: warning: `a26' might be used uninitialized in this function nboyer-stalin.c:8440: warning: `a27' might be used uninitialized in this function nboyer-stalin.c:8441: warning: `a28' might be used uninitialized in this function nboyer-stalin.c:8442: warning: `a29' might be used uninitialized in this function nboyer-stalin.c:8443: warning: `a30' might be used uninitialized in this function nboyer-stalin.c:8444: warning: `a31' might be used uninitialized in this function nboyer-stalin.c:8445: warning: `a32' might be used uninitialized in this function nboyer-stalin.c:8446: warning: `a33' might be used uninitialized in this function nboyer-stalin.c:8447: warning: `a34' might be used uninitialized in this function nboyer-stalin.c:8448: warning: `a35' might be used uninitialized in this function nboyer-stalin.c:8449: warning: `a36' might be used uninitialized in this function nboyer-stalin.c:8450: warning: `a37' might be used uninitialized in this function nboyer-stalin.c:8451: warning: `a38' might be used uninitialized in this function nboyer-stalin.c:8452: warning: `a39' might be used uninitialized in this function nboyer-stalin.c:8453: warning: `a40' might be used uninitialized in this function nboyer-stalin.c:8454: warning: `a41' might be used uninitialized in this function nboyer-stalin.c:8455: warning: `a42' might be used uninitialized in this function nboyer-stalin.c:8456: warning: `a43' might be used uninitialized in this function nboyer-stalin.c:8457: warning: `a44' might be used uninitialized in this function nboyer-stalin.c:8458: warning: `a45' might be used uninitialized in this function nboyer-stalin.c:8459: warning: `a46' might be used uninitialized in this function nboyer-stalin.c:8460: warning: `a47' might be used uninitialized in this function nboyer-stalin.c:8461: warning: `a48' might be used uninitialized in this function nboyer-stalin.c:8462: warning: `a49' might be used uninitialized in this function nboyer-stalin.c:8463: warning: `a50' might be used uninitialized in this function nboyer-stalin.c:8464: warning: `a51' might be used uninitialized in this function nboyer-stalin.c:8465: warning: `a52' might be used uninitialized in this function nboyer-stalin.c:8466: warning: `a53' might be used uninitialized in this function nboyer-stalin.c:8467: warning: `a54' might be used uninitialized in this function nboyer-stalin.c:8468: warning: `a55' might be used uninitialized in this function nboyer-stalin.c:8469: warning: `a56' might be used uninitialized in this function nboyer-stalin.c:8470: warning: `a57' might be used uninitialized in this function nboyer-stalin.c:8471: warning: `a58' might be used uninitialized in this function nboyer-stalin.c:8472: warning: `a59' might be used uninitialized in this function nboyer-stalin.c:8473: warning: `a60' might be used uninitialized in this function nboyer-stalin.c:8474: warning: `a61' might be used uninitialized in this function nboyer-stalin.c:8475: warning: `a62' might be used uninitialized in this function nboyer-stalin.c:8476: warning: `a63' might be used uninitialized in this function nboyer-stalin.c:8477: warning: `a64' might be used uninitialized in this function nboyer-stalin.c:8478: warning: `a65' might be used uninitialized in this function nboyer-stalin.c:8479: warning: `a66' might be used uninitialized in this function nboyer-stalin.c:8480: warning: `a67' might be used uninitialized in this function nboyer-stalin.c:8481: warning: `a68' might be used uninitialized in this function nboyer-stalin.c:8482: warning: `a69' might be used uninitialized in this function nboyer-stalin.c:8483: warning: `a70' might be used uninitialized in this function nboyer-stalin.c:8484: warning: `a71' might be used uninitialized in this function nboyer-stalin.c:8485: warning: `a72' might be used uninitialized in this function nboyer-stalin.c:8486: warning: `a73' might be used uninitialized in this function nboyer-stalin.c:8487: warning: `a74' might be used uninitialized in this function nboyer-stalin.c:8488: warning: `a75' might be used uninitialized in this function nboyer-stalin.c:8489: warning: `a76' might be used uninitialized in this function nboyer-stalin.c:8490: warning: `a77' might be used uninitialized in this function nboyer-stalin.c:8491: warning: `a78' might be used uninitialized in this function nboyer-stalin.c:8492: warning: `a79' might be used uninitialized in this function nboyer-stalin.c:8493: warning: `a80' might be used uninitialized in this function nboyer-stalin.c:8494: warning: `a81' might be used uninitialized in this function nboyer-stalin.c:8495: warning: `a82' might be used uninitialized in this function nboyer-stalin.c:8496: warning: `a83' might be used uninitialized in this function nboyer-stalin.c:8497: warning: `a84' might be used uninitialized in this function nboyer-stalin.c:8498: warning: `a85' might be used uninitialized in this function nboyer-stalin.c:8499: warning: `a86' might be used uninitialized in this function nboyer-stalin.c:8500: warning: `a87' might be used uninitialized in this function nboyer-stalin.c:8501: warning: `a88' might be used uninitialized in this function nboyer-stalin.c:8502: warning: `a89' might be used uninitialized in this function nboyer-stalin.c:8503: warning: `a90' might be used uninitialized in this function nboyer-stalin.c:8504: warning: `a91' might be used uninitialized in this function nboyer-stalin.c:8505: warning: `a92' might be used uninitialized in this function nboyer-stalin.c:8506: warning: `a93' might be used uninitialized in this function nboyer-stalin.c:8507: warning: `a94' might be used uninitialized in this function nboyer-stalin.c:8508: warning: `a95' might be used uninitialized in this function nboyer-stalin.c:8509: warning: `a96' might be used uninitialized in this function nboyer-stalin.c:8510: warning: `a97' might be used uninitialized in this function nboyer-stalin.c:8511: warning: `a98' might be used uninitialized in this function nboyer-stalin.c:8512: warning: `a99' might be used uninitialized in this function nboyer-stalin.c:8513: warning: `a100' might be used uninitialized in this function nboyer-stalin.c:8514: warning: `a101' might be used uninitialized in this function nboyer-stalin.c:8515: warning: `a102' might be used uninitialized in this function nboyer-stalin.c:8516: warning: `a103' might be used uninitialized in this function nboyer-stalin.c:8517: warning: `a104' might be used uninitialized in this function nboyer-stalin.c:8518: warning: `a105' might be used uninitialized in this function nboyer-stalin.c:8519: warning: `a106' might be used uninitialized in this function nboyer-stalin.c:8520: warning: `a107' might be used uninitialized in this function nboyer-stalin.c:8521: warning: `a108' might be used uninitialized in this function nboyer-stalin.c:8522: warning: `a109' might be used uninitialized in this function nboyer-stalin.c:8523: warning: `a110' might be used uninitialized in this function nboyer-stalin.c:8524: warning: `a111' might be used uninitialized in this function nboyer-stalin.c:8525: warning: `a112' might be used uninitialized in this function nboyer-stalin.c:8526: warning: `a113' might be used uninitialized in this function nboyer-stalin.c:8527: warning: `a114' might be used uninitialized in this function nboyer-stalin.c:8528: warning: `a115' might be used uninitialized in this function nboyer-stalin.c:8529: warning: `a116' might be used uninitialized in this function nboyer-stalin.c:8530: warning: `a117' might be used uninitialized in this function nboyer-stalin.c:8531: warning: `a118' might be used uninitialized in this function nboyer-stalin.c:8532: warning: `a119' might be used uninitialized in this function nboyer-stalin.c:8533: warning: `a120' might be used uninitialized in this function nboyer-stalin.c:8534: warning: `a121' might be used uninitialized in this function nboyer-stalin.c:8535: warning: `a122' might be used uninitialized in this function nboyer-stalin.c:8536: warning: `a123' might be used uninitialized in this function nboyer-stalin.c:8537: warning: `a124' might be used uninitialized in this function nboyer-stalin.c:8538: warning: `a125' might be used uninitialized in this function nboyer-stalin.c:8539: warning: `a126' might be used uninitialized in this function nboyer-stalin.c:8540: warning: `a127' might be used uninitialized in this function nboyer-stalin.c:8541: warning: `a128' might be used uninitialized in this function nboyer-stalin.c:8542: warning: `a129' might be used uninitialized in this function nboyer-stalin.c:8543: warning: `a130' might be used uninitialized in this function nboyer-stalin.c:8544: warning: `a131' might be used uninitialized in this function nboyer-stalin.c:8545: warning: `a132' might be used uninitialized in this function nboyer-stalin.c:8546: warning: `a133' might be used uninitialized in this function nboyer-stalin.c:8547: warning: `a134' might be used uninitialized in this function nboyer-stalin.c:8548: warning: `a135' might be used uninitialized in this function nboyer-stalin.c:8549: warning: `a136' might be used uninitialized in this function nboyer-stalin.c:8550: warning: `a137' might be used uninitialized in this function nboyer-stalin.c:8551: warning: `a138' might be used uninitialized in this function nboyer-stalin.c:8552: warning: `a139' might be used uninitialized in this function nboyer-stalin.c:8553: warning: `a140' might be used uninitialized in this function nboyer-stalin.c:8554: warning: `a141' might be used uninitialized in this function nboyer-stalin.c:8555: warning: `a142' might be used uninitialized in this function nboyer-stalin.c:8556: warning: `a143' might be used uninitialized in this function nboyer-stalin.c:8557: warning: `a144' might be used uninitialized in this function nboyer-stalin.c:8558: warning: `a145' might be used uninitialized in this function nboyer-stalin.c:8559: warning: `a146' might be used uninitialized in this function nboyer-stalin.c:8560: warning: `a147' might be used uninitialized in this function nboyer-stalin.c:8561: warning: `a148' might be used uninitialized in this function nboyer-stalin.c:8562: warning: `a149' might be used uninitialized in this function nboyer-stalin.c:8563: warning: `a150' might be used uninitialized in this function nboyer-stalin.c:8564: warning: `a151' might be used uninitialized in this function nboyer-stalin.c:8565: warning: `a152' might be used uninitialized in this function nboyer-stalin.c:8566: warning: `a153' might be used uninitialized in this function nboyer-stalin.c:8567: warning: `a154' might be used uninitialized in this function nboyer-stalin.c:8568: warning: `a155' might be used uninitialized in this function nboyer-stalin.c:8569: warning: `a156' might be used uninitialized in this function nboyer-stalin.c:8570: warning: `a157' might be used uninitialized in this function nboyer-stalin.c:8571: warning: `a158' might be used uninitialized in this function nboyer-stalin.c:8572: warning: `a159' might be used uninitialized in this function nboyer-stalin.c:8573: warning: `a160' might be used uninitialized in this function nboyer-stalin.c:8574: warning: `a161' might be used uninitialized in this function nboyer-stalin.c:8575: warning: `a162' might be used uninitialized in this function nboyer-stalin.c:8576: warning: `a163' might be used uninitialized in this function nboyer-stalin.c:8577: warning: `a164' might be used uninitialized in this function nboyer-stalin.c:8578: warning: `a165' might be used uninitialized in this function nboyer-stalin.c:8579: warning: `a166' might be used uninitialized in this function nboyer-stalin.c:8580: warning: `a167' might be used uninitialized in this function nboyer-stalin.c:8581: warning: `a168' might be used uninitialized in this function nboyer-stalin.c:8582: warning: `a169' might be used uninitialized in this function nboyer-stalin.c:8583: warning: `a170' might be used uninitialized in this function nboyer-stalin.c:8584: warning: `a171' might be used uninitialized in this function nboyer-stalin.c:8585: warning: `a172' might be used uninitialized in this function nboyer-stalin.c:8586: warning: `a173' might be used uninitialized in this function nboyer-stalin.c:8587: warning: `a174' might be used uninitialized in this function nboyer-stalin.c:8588: warning: `a175' might be used uninitialized in this function nboyer-stalin.c:8589: warning: `a176' might be used uninitialized in this function nboyer-stalin.c:8590: warning: `a177' might be used uninitialized in this function nboyer-stalin.c:8591: warning: `a178' might be used uninitialized in this function nboyer-stalin.c:8592: warning: `a179' might be used uninitialized in this function nboyer-stalin.c:8593: warning: `a180' might be used uninitialized in this function nboyer-stalin.c:8594: warning: `a181' might be used uninitialized in this function nboyer-stalin.c:8595: warning: `a182' might be used uninitialized in this function nboyer-stalin.c:8596: warning: `a183' might be used uninitialized in this function nboyer-stalin.c:8597: warning: `a184' might be used uninitialized in this function nboyer-stalin.c:8598: warning: `a185' might be used uninitialized in this function nboyer-stalin.c:8599: warning: `a186' might be used uninitialized in this function nboyer-stalin.c:8600: warning: `a187' might be used uninitialized in this function nboyer-stalin.c:8601: warning: `a188' might be used uninitialized in this function nboyer-stalin.c:8602: warning: `a189' might be used uninitialized in this function nboyer-stalin.c:8603: warning: `a190' might be used uninitialized in this function nboyer-stalin.c:8604: warning: `a191' might be used uninitialized in this function nboyer-stalin.c:8605: warning: `a192' might be used uninitialized in this function nboyer-stalin.c:8606: warning: `a193' might be used uninitialized in this function nboyer-stalin.c:8607: warning: `a194' might be used uninitialized in this function nboyer-stalin.c:8608: warning: `a195' might be used uninitialized in this function nboyer-stalin.c:8609: warning: `a196' might be used uninitialized in this function nboyer-stalin.c:8610: warning: `a197' might be used uninitialized in this function nboyer-stalin.c:8611: warning: `a198' might be used uninitialized in this function nboyer-stalin.c:8612: warning: `a199' might be used uninitialized in this function nboyer-stalin.c:8613: warning: `a200' might be used uninitialized in this function nboyer-stalin.c:8614: warning: `a201' might be used uninitialized in this function nboyer-stalin.c:8615: warning: `a202' might be used uninitialized in this function nboyer-stalin.c:8616: warning: `a203' might be used uninitialized in this function nboyer-stalin.c:8617: warning: `a204' might be used uninitialized in this function nboyer-stalin.c:8618: warning: `a205' might be used uninitialized in this function nboyer-stalin.c:8619: warning: `a206' might be used uninitialized in this function nboyer-stalin.c:8620: warning: `a207' might be used uninitialized in this function nboyer-stalin.c:8621: warning: `a208' might be used uninitialized in this function nboyer-stalin.c:8622: warning: `a209' might be used uninitialized in this function nboyer-stalin.c:8623: warning: `a210' might be used uninitialized in this function nboyer-stalin.c:8624: warning: `a211' might be used uninitialized in this function nboyer-stalin.c:8625: warning: `a212' might be used uninitialized in this function nboyer-stalin.c:8626: warning: `a213' might be used uninitialized in this function nboyer-stalin.c:8627: warning: `a214' might be used uninitialized in this function nboyer-stalin.c:8628: warning: `a215' might be used uninitialized in this function nboyer-stalin.c:8629: warning: `a216' might be used uninitialized in this function nboyer-stalin.c:8630: warning: `a217' might be used uninitialized in this function nboyer-stalin.c:8631: warning: `a218' might be used uninitialized in this function nboyer-stalin.c:8632: warning: `a219' might be used uninitialized in this function nboyer-stalin.c:8633: warning: `a220' might be used uninitialized in this function nboyer-stalin.c:8634: warning: `a221' might be used uninitialized in this function nboyer-stalin.c:8635: warning: `a222' might be used uninitialized in this function nboyer-stalin.c:8636: warning: `a223' might be used uninitialized in this function nboyer-stalin.c:8637: warning: `a224' might be used uninitialized in this function nboyer-stalin.c:8638: warning: `a225' might be used uninitialized in this function nboyer-stalin.c:8639: warning: `a226' might be used uninitialized in this function nboyer-stalin.c:8640: warning: `a227' might be used uninitialized in this function nboyer-stalin.c:8641: warning: `a228' might be used uninitialized in this function nboyer-stalin.c:8642: warning: `a229' might be used uninitialized in this function nboyer-stalin.c:8643: warning: `a230' might be used uninitialized in this function nboyer-stalin.c:8644: warning: `a231' might be used uninitialized in this function nboyer-stalin.c:8645: warning: `a232' might be used uninitialized in this function nboyer-stalin.c:8646: warning: `a233' might be used uninitialized in this function nboyer-stalin.c:8647: warning: `a234' might be used uninitialized in this function nboyer-stalin.c:8648: warning: `a235' might be used uninitialized in this function nboyer-stalin.c:8649: warning: `a236' might be used uninitialized in this function nboyer-stalin.c:8650: warning: `a237' might be used uninitialized in this function nboyer-stalin.c:8651: warning: `a238' might be used uninitialized in this function nboyer-stalin.c:8652: warning: `a239' might be used uninitialized in this function nboyer-stalin.c:8653: warning: `a240' might be used uninitialized in this function nboyer-stalin.c:8654: warning: `a241' might be used uninitialized in this function nboyer-stalin.c:8655: warning: `a242' might be used uninitialized in this function nboyer-stalin.c:8656: warning: `a243' might be used uninitialized in this function nboyer-stalin.c:8657: warning: `a244' might be used uninitialized in this function nboyer-stalin.c:8658: warning: `a245' might be used uninitialized in this function nboyer-stalin.c:8659: warning: `a246' might be used uninitialized in this function nboyer-stalin.c:8660: warning: `a247' might be used uninitialized in this function nboyer-stalin.c:8661: warning: `a248' might be used uninitialized in this function nboyer-stalin.c:8662: warning: `a249' might be used uninitialized in this function nboyer-stalin.c:8663: warning: `a250' might be used uninitialized in this function nboyer-stalin.c:8664: warning: `a251' might be used uninitialized in this function nboyer-stalin.c:8665: warning: `a252' might be used uninitialized in this function nboyer-stalin.c:8666: warning: `a253' might be used uninitialized in this function nboyer-stalin.c:8667: warning: `a254' might be used uninitialized in this function nboyer-stalin.c:8668: warning: `a255' might be used uninitialized in this function nboyer-stalin.c:8669: warning: `a256' might be used uninitialized in this function nboyer-stalin.c:8670: warning: `a257' might be used uninitialized in this function nboyer-stalin.c:8671: warning: `a258' might be used uninitialized in this function nboyer-stalin.c:8672: warning: `a259' might be used uninitialized in this function nboyer-stalin.c:8673: warning: `a260' might be used uninitialized in this function nboyer-stalin.c:8674: warning: `a261' might be used uninitialized in this function nboyer-stalin.c:8675: warning: `a262' might be used uninitialized in this function nboyer-stalin.c:8676: warning: `a263' might be used uninitialized in this function nboyer-stalin.c:8677: warning: `a264' might be used uninitialized in this function nboyer-stalin.c:8678: warning: `a265' might be used uninitialized in this function nboyer-stalin.c:8679: warning: `a266' might be used uninitialized in this function nboyer-stalin.c:8680: warning: `a267' might be used uninitialized in this function nboyer-stalin.c:8681: warning: `a268' might be used uninitialized in this function nboyer-stalin.c:8682: warning: `a269' might be used uninitialized in this function nboyer-stalin.c:8683: warning: `a270' might be used uninitialized in this function nboyer-stalin.c:8684: warning: `a271' might be used uninitialized in this function nboyer-stalin.c:8685: warning: `a272' might be used uninitialized in this function nboyer-stalin.c:8686: warning: `a273' might be used uninitialized in this function nboyer-stalin.c:8687: warning: `a274' might be used uninitialized in this function nboyer-stalin.c:8688: warning: `a275' might be used uninitialized in this function nboyer-stalin.c:8689: warning: `a276' might be used uninitialized in this function nboyer-stalin.c:8690: warning: `a277' might be used uninitialized in this function nboyer-stalin.c:8691: warning: `a278' might be used uninitialized in this function nboyer-stalin.c:8692: warning: `a279' might be used uninitialized in this function nboyer-stalin.c:8693: warning: `a280' might be used uninitialized in this function nboyer-stalin.c:8694: warning: `a281' might be used uninitialized in this function nboyer-stalin.c:8695: warning: `a282' might be used uninitialized in this function nboyer-stalin.c:8696: warning: `a283' might be used uninitialized in this function nboyer-stalin.c:8697: warning: `a284' might be used uninitialized in this function nboyer-stalin.c:8698: warning: `a285' might be used uninitialized in this function nboyer-stalin.c:8699: warning: `a286' might be used uninitialized in this function nboyer-stalin.c:8700: warning: `a287' might be used uninitialized in this function nboyer-stalin.c:8701: warning: `a288' might be used uninitialized in this function nboyer-stalin.c:8702: warning: `a289' might be used uninitialized in this function nboyer-stalin.c:8703: warning: `a290' might be used uninitialized in this function nboyer-stalin.c:8704: warning: `a291' might be used uninitialized in this function nboyer-stalin.c:8705: warning: `a292' might be used uninitialized in this function nboyer-stalin.c:8706: warning: `a293' might be used uninitialized in this function nboyer-stalin.c:8707: warning: `a294' might be used uninitialized in this function nboyer-stalin.c:8708: warning: `a295' might be used uninitialized in this function nboyer-stalin.c:8709: warning: `a296' might be used uninitialized in this function nboyer-stalin.c:8710: warning: `a297' might be used uninitialized in this function nboyer-stalin.c:8711: warning: `a298' might be used uninitialized in this function nboyer-stalin.c:8712: warning: `a299' might be used uninitialized in this function nboyer-stalin.c:8713: warning: `a300' might be used uninitialized in this function nboyer-stalin.c:8714: warning: `a301' might be used uninitialized in this function nboyer-stalin.c:8715: warning: `a302' might be used uninitialized in this function nboyer-stalin.c:8716: warning: `a303' might be used uninitialized in this function nboyer-stalin.c:8717: warning: `a304' might be used uninitialized in this function nboyer-stalin.c:8718: warning: `a305' might be used uninitialized in this function nboyer-stalin.c:8719: warning: `a306' might be used uninitialized in this function nboyer-stalin.c:8720: warning: `a307' might be used uninitialized in this function nboyer-stalin.c:8721: warning: `a308' might be used uninitialized in this function nboyer-stalin.c:8722: warning: `a309' might be used uninitialized in this function nboyer-stalin.c:8723: warning: `a310' might be used uninitialized in this function nboyer-stalin.c:8724: warning: `a311' might be used uninitialized in this function nboyer-stalin.c:8725: warning: `a312' might be used uninitialized in this function nboyer-stalin.c:8726: warning: `a313' might be used uninitialized in this function nboyer-stalin.c:8727: warning: `a314' might be used uninitialized in this function nboyer-stalin.c:8728: warning: `a315' might be used uninitialized in this function nboyer-stalin.c:8729: warning: `a316' might be used uninitialized in this function nboyer-stalin.c:8730: warning: `a317' might be used uninitialized in this function nboyer-stalin.c:8731: warning: `a318' might be used uninitialized in this function nboyer-stalin.c:8732: warning: `a319' might be used uninitialized in this function nboyer-stalin.c:8733: warning: `a320' might be used uninitialized in this function nboyer-stalin.c:8734: warning: `a321' might be used uninitialized in this function nboyer-stalin.c:8735: warning: `a322' might be used uninitialized in this function nboyer-stalin.c:8736: warning: `a323' might be used uninitialized in this function nboyer-stalin.c:8737: warning: `a324' might be used uninitialized in this function nboyer-stalin.c:8738: warning: `a325' might be used uninitialized in this function nboyer-stalin.c:8739: warning: `a326' might be used uninitialized in this function nboyer-stalin.c:8740: warning: `a327' might be used uninitialized in this function nboyer-stalin.c:8741: warning: `a328' might be used uninitialized in this function nboyer-stalin.c:8742: warning: `a329' might be used uninitialized in this function nboyer-stalin.c:8743: warning: `a330' might be used uninitialized in this function nboyer-stalin.c:8744: warning: `a331' might be used uninitialized in this function nboyer-stalin.c:8745: warning: `a332' might be used uninitialized in this function nboyer-stalin.c:8746: warning: `a333' might be used uninitialized in this function nboyer-stalin.c:8747: warning: `a334' might be used uninitialized in this function nboyer-stalin.c:8748: warning: `a335' might be used uninitialized in this function nboyer-stalin.c:8749: warning: `a336' might be used uninitialized in this function nboyer-stalin.c:8750: warning: `a337' might be used uninitialized in this function nboyer-stalin.c:8751: warning: `a338' might be used uninitialized in this function nboyer-stalin.c:8752: warning: `a339' might be used uninitialized in this function nboyer-stalin.c:8753: warning: `a340' might be used uninitialized in this function nboyer-stalin.c:8754: warning: `a341' might be used uninitialized in this function nboyer-stalin.c:8755: warning: `a342' might be used uninitialized in this function nboyer-stalin.c:8756: warning: `a343' might be used uninitialized in this function nboyer-stalin.c:8757: warning: `a344' might be used uninitialized in this function nboyer-stalin.c:8758: warning: `a345' might be used uninitialized in this function nboyer-stalin.c:8759: warning: `a346' might be used uninitialized in this function nboyer-stalin.c:8760: warning: `a347' might be used uninitialized in this function nboyer-stalin.c:8761: warning: `a348' might be used uninitialized in this function nboyer-stalin.c:8762: warning: `a349' might be used uninitialized in this function nboyer-stalin.c:8763: warning: `a350' might be used uninitialized in this function nboyer-stalin.c:8764: warning: `a351' might be used uninitialized in this function nboyer-stalin.c:8765: warning: `a352' might be used uninitialized in this function nboyer-stalin.c:8766: warning: `a353' might be used uninitialized in this function nboyer-stalin.c:8767: warning: `a354' might be used uninitialized in this function nboyer-stalin.c:8768: warning: `a355' might be used uninitialized in this function nboyer-stalin.c:8769: warning: `a356' might be used uninitialized in this function nboyer-stalin.c:8770: warning: `a357' might be used uninitialized in this function nboyer-stalin.c:8771: warning: `a358' might be used uninitialized in this function nboyer-stalin.c:8772: warning: `a359' might be used uninitialized in this function nboyer-stalin.c:8773: warning: `a360' might be used uninitialized in this function nboyer-stalin.c:8774: warning: `a361' might be used uninitialized in this function nboyer-stalin.c:8775: warning: `a362' might be used uninitialized in this function nboyer-stalin.c:8776: warning: `a363' might be used uninitialized in this function nboyer-stalin.c:8777: warning: `a364' might be used uninitialized in this function nboyer-stalin.c:8778: warning: `a365' might be used uninitialized in this function nboyer-stalin.c:8779: warning: `a366' might be used uninitialized in this function nboyer-stalin.c:8780: warning: `a367' might be used uninitialized in this function nboyer-stalin.c:8781: warning: `a368' might be used uninitialized in this function nboyer-stalin.c:8782: warning: `a369' might be used uninitialized in this function nboyer-stalin.c:8783: warning: `a370' might be used uninitialized in this function nboyer-stalin.c:8784: warning: `a371' might be used uninitialized in this function nboyer-stalin.c:8785: warning: `a372' might be used uninitialized in this function nboyer-stalin.c:8786: warning: `a373' might be used uninitialized in this function nboyer-stalin.c:8787: warning: `a374' might be used uninitialized in this function nboyer-stalin.c:8788: warning: `a375' might be used uninitialized in this function nboyer-stalin.c:8789: warning: `a376' might be used uninitialized in this function nboyer-stalin.c:8790: warning: `a377' might be used uninitialized in this function nboyer-stalin.c:8791: warning: `a378' might be used uninitialized in this function nboyer-stalin.c:8792: warning: `a379' might be used uninitialized in this function nboyer-stalin.c:8793: warning: `a380' might be used uninitialized in this function nboyer-stalin.c:8794: warning: `a381' might be used uninitialized in this function nboyer-stalin.c:8795: warning: `a382' might be used uninitialized in this function nboyer-stalin.c:8796: warning: `a383' might be used uninitialized in this function nboyer-stalin.c:8797: warning: `a384' might be used uninitialized in this function nboyer-stalin.c:8798: warning: `a385' might be used uninitialized in this function nboyer-stalin.c:8799: warning: `a386' might be used uninitialized in this function nboyer-stalin.c:8800: warning: `a387' might be used uninitialized in this function nboyer-stalin.c:8801: warning: `a388' might be used uninitialized in this function nboyer-stalin.c:8802: warning: `a389' might be used uninitialized in this function nboyer-stalin.c:8803: warning: `a390' might be used uninitialized in this function nboyer-stalin.c:8804: warning: `a391' might be used uninitialized in this function nboyer-stalin.c:8805: warning: `a392' might be used uninitialized in this function nboyer-stalin.c:8806: warning: `a393' might be used uninitialized in this function nboyer-stalin.c:8807: warning: `a394' might be used uninitialized in this function nboyer-stalin.c:8808: warning: `a395' might be used uninitialized in this function nboyer-stalin.c:8809: warning: `a396' might be used uninitialized in this function nboyer-stalin.c:8810: warning: `a397' might be used uninitialized in this function nboyer-stalin.c:8811: warning: `a398' might be used uninitialized in this function nboyer-stalin.c:8812: warning: `a399' might be used uninitialized in this function nboyer-stalin.c:8813: warning: `a400' might be used uninitialized in this function nboyer-stalin.c:8814: warning: `a401' might be used uninitialized in this function nboyer-stalin.c:8815: warning: `a402' might be used uninitialized in this function nboyer-stalin.c:8816: warning: `a403' might be used uninitialized in this function nboyer-stalin.c:8817: warning: `a404' might be used uninitialized in this function nboyer-stalin.c:8818: warning: `a405' might be used uninitialized in this function nboyer-stalin.c:8819: warning: `a406' might be used uninitialized in this function nboyer-stalin.c:8820: warning: `a407' might be used uninitialized in this function nboyer-stalin.c:8821: warning: `a408' might be used uninitialized in this function nboyer-stalin.c:8822: warning: `a409' might be used uninitialized in this function nboyer-stalin.c:8823: warning: `a410' might be used uninitialized in this function nboyer-stalin.c:8824: warning: `a411' might be used uninitialized in this function nboyer-stalin.c:8825: warning: `a412' might be used uninitialized in this function nboyer-stalin.c:8826: warning: `a413' might be used uninitialized in this function nboyer-stalin.c:8827: warning: `a414' might be used uninitialized in this function nboyer-stalin.c:8828: warning: `a415' might be used uninitialized in this function nboyer-stalin.c:8829: warning: `a416' might be used uninitialized in this function nboyer-stalin.c:8830: warning: `a417' might be used uninitialized in this function nboyer-stalin.c:8831: warning: `a418' might be used uninitialized in this function nboyer-stalin.c:8832: warning: `a419' might be used uninitialized in this function nboyer-stalin.c:8833: warning: `a420' might be used uninitialized in this function nboyer-stalin.c:8834: warning: `a421' might be used uninitialized in this function nboyer-stalin.c:8835: warning: `a422' might be used uninitialized in this function nboyer-stalin.c:8836: warning: `a423' might be used uninitialized in this function nboyer-stalin.c:8837: warning: `a424' might be used uninitialized in this function nboyer-stalin.c:8838: warning: `a425' might be used uninitialized in this function nboyer-stalin.c:8839: warning: `a426' might be used uninitialized in this function nboyer-stalin.c:8840: warning: `a427' might be used uninitialized in this function nboyer-stalin.c:8841: warning: `a428' might be used uninitialized in this function nboyer-stalin.c:8842: warning: `a429' might be used uninitialized in this function nboyer-stalin.c:8843: warning: `a430' might be used uninitialized in this function nboyer-stalin.c:8844: warning: `a431' might be used uninitialized in this function nboyer-stalin.c:8845: warning: `a432' might be used uninitialized in this function nboyer-stalin.c:8846: warning: `a433' might be used uninitialized in this function nboyer-stalin.c:8847: warning: `a434' might be used uninitialized in this function nboyer-stalin.c:8848: warning: `a435' might be used uninitialized in this function nboyer-stalin.c:9062: warning: `a649' might be used uninitialized in this function nboyer-stalin.c:9063: warning: `a650' might be used uninitialized in this function nboyer-stalin.c:9064: warning: `a651' might be used uninitialized in this function nboyer-stalin.c:9065: warning: `a652' might be used uninitialized in this function nboyer-stalin.c:9066: warning: `a653' might be used uninitialized in this function nboyer-stalin.c:9067: warning: `a654' might be used uninitialized in this function nboyer-stalin.c:9068: warning: `a655' might be used uninitialized in this function nboyer-stalin.c:9069: warning: `a656' might be used uninitialized in this function nboyer-stalin.c:9070: warning: `a657' might be used uninitialized in this function nboyer-stalin.c:9071: warning: `a658' might be used uninitialized in this function nboyer-stalin.c:9072: warning: `a659' might be used uninitialized in this function nboyer-stalin.c:9073: warning: `a660' might be used uninitialized in this function nboyer-stalin.c:9074: warning: `a661' might be used uninitialized in this function nboyer-stalin.c:9079: warning: `a666' might be used uninitialized in this function nboyer-stalin.c:9080: warning: `a667' might be used uninitialized in this function nboyer-stalin.c:9086: warning: `a673' might be used uninitialized in this function nboyer-stalin.c:9091: warning: `a678' might be used uninitialized in this function nboyer-stalin.c:9094: warning: `a681' might be used uninitialized in this function nboyer-stalin.c:9095: warning: `a682' might be used uninitialized in this function nboyer-stalin.c:9096: warning: `a683' might be used uninitialized in this function nboyer-stalin.c:9097: warning: `a684' might be used uninitialized in this function nboyer-stalin.c:9098: warning: `a685' might be used uninitialized in this function nboyer-stalin.c:9099: warning: `a686' might be used uninitialized in this function nboyer-stalin.c:9100: warning: `a687' might be used uninitialized in this function nboyer-stalin.c:9101: warning: `a688' might be used uninitialized in this function nboyer-stalin.c:9102: warning: `a689' might be used uninitialized in this function nboyer-stalin.c:9103: warning: `a690' might be used uninitialized in this function nboyer-stalin.c:9104: warning: `a691' might be used uninitialized in this function nboyer-stalin.c:9105: warning: `a692' might be used uninitialized in this function nboyer-stalin.c:9106: warning: `a693' might be used uninitialized in this function nboyer-stalin.c:9107: warning: `a694' might be used uninitialized in this function nboyer-stalin.c:9108: warning: `a695' might be used uninitialized in this function nboyer-stalin.c:9109: warning: `a696' might be used uninitialized in this function nboyer-stalin.c:9110: warning: `a697' might be used uninitialized in this function nboyer-stalin.c:9111: warning: `a698' might be used uninitialized in this function nboyer-stalin.c:9112: warning: `a699' might be used uninitialized in this function nboyer-stalin.c:9113: warning: `a700' might be used uninitialized in this function nboyer-stalin.c:9114: warning: `a701' might be used uninitialized in this function nboyer-stalin.c:9115: warning: `a702' might be used uninitialized in this function nboyer-stalin.c:9116: warning: `a703' might be used uninitialized in this function nboyer-stalin.c:9117: warning: `a704' might be used uninitialized in this function nboyer-stalin.c:9118: warning: `a705' might be used uninitialized in this function nboyer-stalin.c:9119: warning: `a706' might be used uninitialized in this function nboyer-stalin.c:9120: warning: `a707' might be used uninitialized in this function nboyer-stalin.c:9121: warning: `a708' might be used uninitialized in this function nboyer-stalin.c:9122: warning: `a709' might be used uninitialized in this function nboyer-stalin.c:9123: warning: `a710' might be used uninitialized in this function nboyer-stalin.c:9124: warning: `a711' might be used uninitialized in this function nboyer-stalin.c:9125: warning: `a712' might be used uninitialized in this function nboyer-stalin.c:9126: warning: `a713' might be used uninitialized in this function nboyer-stalin.c:9127: warning: `a714' might be used uninitialized in this function nboyer-stalin.c:9128: warning: `a715' might be used uninitialized in this function nboyer-stalin.c:9129: warning: `a716' might be used uninitialized in this function nboyer-stalin.c:9130: warning: `a717' might be used uninitialized in this function nboyer-stalin.c:9131: warning: `a718' might be used uninitialized in this function nboyer-stalin.c:9133: warning: `a720' might be used uninitialized in this function nboyer-stalin.c:9134: warning: `a721' might be used uninitialized in this function nboyer-stalin.c:9135: warning: `a722' might be used uninitialized in this function nboyer-stalin.c:9136: warning: `a723' might be used uninitialized in this function nboyer-stalin.c:9137: warning: `a724' might be used uninitialized in this function nboyer-stalin.c:9138: warning: `a725' might be used uninitialized in this function nboyer-stalin.c:9139: warning: `a726' might be used uninitialized in this function nboyer-stalin.c:9140: warning: `a727' might be used uninitialized in this function nboyer-stalin.c:9141: warning: `a728' might be used uninitialized in this function nboyer-stalin.c:9142: warning: `a729' might be used uninitialized in this function nboyer-stalin.c:9143: warning: `a730' might be used uninitialized in this function nboyer-stalin.c:9144: warning: `a731' might be used uninitialized in this function nboyer-stalin.c:9145: warning: `a732' might be used uninitialized in this function nboyer-stalin.c:9146: warning: `a733' might be used uninitialized in this function nboyer-stalin.c:9147: warning: `a734' might be used uninitialized in this function nboyer-stalin.c:9148: warning: `a735' might be used uninitialized in this function nboyer-stalin.c:9149: warning: `a736' might be used uninitialized in this function nboyer-stalin.c:9150: warning: `a737' might be used uninitialized in this function nboyer-stalin.c:9151: warning: `a738' might be used uninitialized in this function nboyer-stalin.c:9152: warning: `a739' might be used uninitialized in this function nboyer-stalin.c:9153: warning: `a740' might be used uninitialized in this function nboyer-stalin.c:9154: warning: `a741' might be used uninitialized in this function nboyer-stalin.c:9155: warning: `a742' might be used uninitialized in this function nboyer-stalin.c:9156: warning: `a743' might be used uninitialized in this function nboyer-stalin.c:9157: warning: `a744' might be used uninitialized in this function nboyer-stalin.c:9158: warning: `a745' might be used uninitialized in this function nboyer-stalin.c:9159: warning: `a746' might be used uninitialized in this function nboyer-stalin.c:9160: warning: `a747' might be used uninitialized in this function nboyer-stalin.c:9161: warning: `a748' might be used uninitialized in this function nboyer-stalin.c:9162: warning: `a749' might be used uninitialized in this function nboyer-stalin.c:9163: warning: `a750' might be used uninitialized in this function nboyer-stalin.c:9164: warning: `a751' might be used uninitialized in this function nboyer-stalin.c:9165: warning: `a752' might be used uninitialized in this function nboyer-stalin.c:9166: warning: `a753' might be used uninitialized in this function nboyer-stalin.c:9167: warning: `a754' might be used uninitialized in this function nboyer-stalin.c:9168: warning: `a755' might be used uninitialized in this function nboyer-stalin.c:9169: warning: `a756' might be used uninitialized in this function nboyer-stalin.c:9170: warning: `a757' might be used uninitialized in this function nboyer-stalin.c:9171: warning: `a758' might be used uninitialized in this function nboyer-stalin.c:9172: warning: `a759' might be used uninitialized in this function nboyer-stalin.c:9174: warning: `a761' might be used uninitialized in this function nboyer-stalin.c:9176: warning: `a763' might be used uninitialized in this function nboyer-stalin.c:9177: warning: `a764' might be used uninitialized in this function nboyer-stalin.c:9178: warning: `a765' might be used uninitialized in this function nboyer-stalin.c:9180: warning: `a767' might be used uninitialized in this function nboyer-stalin.c:9183: warning: `a773' might be used uninitialized in this function nboyer-stalin.c:9186: warning: `a776' might be used uninitialized in this function nboyer-stalin.c:9190: warning: `a780' might be used uninitialized in this function nboyer-stalin.c:9196: warning: `a791' might be used uninitialized in this function nboyer-stalin.c:9200: warning: `a832' might be used uninitialized in this function nboyer-stalin.c:9201: warning: `a833' might be used uninitialized in this function nboyer-stalin.c:9202: warning: `a834' might be used uninitialized in this function nboyer-stalin.c:9203: warning: `a835' might be used uninitialized in this function nboyer-stalin.c:9210: warning: `a1027' might be used uninitialized in this function nboyer-stalin.c:9214: warning: `a1462' might be used uninitialized in this function nboyer-stalin.c:9216: warning: `a1464' might be used uninitialized in this function nboyer-stalin.c:9219: warning: `a1467' might be used uninitialized in this function nboyer-stalin.c:9221: warning: `a1469' might be used uninitialized in this function nboyer-stalin.c:9223: warning: `a1471' might be used uninitialized in this function nboyer-stalin.c:9224: warning: `a1472' might be used uninitialized in this function nboyer-stalin.c:9226: warning: `a1474' might be used uninitialized in this function nboyer-stalin.c:9231: warning: `a1484' might be used uninitialized in this function nboyer-stalin.c:9233: warning: `a1486' might be used uninitialized in this function nboyer-stalin.c:9235: warning: `a1488' might be used uninitialized in this function nboyer-stalin.c:9236: warning: `a1489' might be used uninitialized in this function nboyer-stalin.c:9237: warning: `a1890' might be used uninitialized in this function nboyer-stalin.c:9238: warning: `a1891' might be used uninitialized in this function nboyer-stalin.c:9242: warning: `a1895' might be used uninitialized in this function nboyer-stalin.c:9243: warning: `a1896' might be used uninitialized in this function nboyer-stalin.c:9244: warning: `a1897' might be used uninitialized in this function nboyer-stalin.c:9245: warning: `a1898' might be used uninitialized in this function nboyer-stalin.c:9246: warning: `a1899' might be used uninitialized in this function nboyer-stalin.c:9247: warning: `a1900' might be used uninitialized in this function nboyer-stalin.c:9248: warning: `a1901' might be used uninitialized in this function nboyer-stalin.c:9249: warning: `a1902' might be used uninitialized in this function nboyer-stalin.c:9250: warning: `a1903' might be used uninitialized in this function nboyer-stalin.c:9251: warning: `a1904' might be used uninitialized in this function nboyer-stalin.c:9252: warning: `a1905' might be used uninitialized in this function nboyer-stalin.c:9253: warning: `a1906' might be used uninitialized in this function nboyer-stalin.c:9254: warning: `a1907' might be used uninitialized in this function nboyer-stalin.c:9255: warning: `a1908' might be used uninitialized in this function nboyer-stalin.c:9256: warning: `a1909' might be used uninitialized in this function nboyer-stalin.c:9257: warning: `a1910' might be used uninitialized in this function nboyer-stalin.c:9258: warning: `a1911' might be used uninitialized in this function nboyer-stalin.c:9259: warning: `a1912' might be used uninitialized in this function nboyer-stalin.c:9260: warning: `a1913' might be used uninitialized in this function nboyer-stalin.c:9261: warning: `a1914' might be used uninitialized in this function nboyer-stalin.c:9262: warning: `a1915' might be used uninitialized in this function nboyer-stalin.c:9263: warning: `a1916' might be used uninitialized in this function nboyer-stalin.c:9264: warning: `a1917' might be used uninitialized in this function nboyer-stalin.c:9265: warning: `a1918' might be used uninitialized in this function nboyer-stalin.c:9266: warning: `a1919' might be used uninitialized in this function nboyer-stalin.c:9267: warning: `a1920' might be used uninitialized in this function nboyer-stalin.c:9268: warning: `a1921' might be used uninitialized in this function nboyer-stalin.c:9269: warning: `a1922' might be used uninitialized in this function nboyer-stalin.c:9270: warning: `a1923' might be used uninitialized in this function nboyer-stalin.c:9271: warning: `a1924' might be used uninitialized in this function nboyer-stalin.c:9272: warning: `a1925' might be used uninitialized in this function nboyer-stalin.c:9273: warning: `a1926' might be used uninitialized in this function nboyer-stalin.c:9274: warning: `a1927' might be used uninitialized in this function nboyer-stalin.c:9275: warning: `a1928' might be used uninitialized in this function nboyer-stalin.c:9279: warning: `a1941' might be used uninitialized in this function nboyer-stalin.c:9283: warning: `a1945' might be used uninitialized in this function nboyer-stalin.c:9285: warning: `a1947' might be used uninitialized in this function nboyer-stalin.c:9286: warning: `a1948' might be used uninitialized in this function nboyer-stalin.c:9287: warning: `a1949' might be used uninitialized in this function nboyer-stalin.c:9289: warning: `a1951' might be used uninitialized in this function nboyer-stalin.c:9293: warning: `a1955' might be used uninitialized in this function nboyer-stalin.c:9295: warning: `a1957' might be used uninitialized in this function nboyer-stalin.c:9296: warning: `a1958' might be used uninitialized in this function nboyer-stalin.c:9300: warning: `a2044' might be used uninitialized in this function nboyer-stalin.c:9301: warning: `a2045' might be used uninitialized in this function nboyer-stalin.c:9303: warning: `a2064' might be used uninitialized in this function nboyer-stalin.c:9307: warning: `a2068' might be used uninitialized in this function nboyer-stalin.c:9311: warning: `a2230' might be used uninitialized in this function nboyer-stalin.c:9313: warning: `a2232' might be used uninitialized in this function nboyer-stalin.c:9314: warning: `a2233' might be used uninitialized in this function nboyer-stalin.c:9322: warning: `a2259' might be used uninitialized in this function nboyer-stalin.c:9323: warning: `a2260' might be used uninitialized in this function nboyer-stalin.c:9352: warning: `a2294' might be used uninitialized in this function nboyer-stalin.c:9353: warning: `a2295' might be used uninitialized in this function nboyer-stalin.c:9356: warning: `a2298' might be used uninitialized in this function nboyer-stalin.c:9364: warning: `a2323' might be used uninitialized in this function nboyer-stalin.c:9366: warning: `a2325' might be used uninitialized in this function nboyer-stalin.c:9369: warning: `a2332' might be used uninitialized in this function nboyer-stalin.c:9371: warning: `a2334' might be used uninitialized in this function nboyer-stalin.c:9373: warning: `a2336' might be used uninitialized in this function nboyer-stalin.c:9374: warning: `a2337' might be used uninitialized in this function nboyer-stalin.c:9375: warning: `a2338' might be used uninitialized in this function nboyer-stalin.c:9378: warning: `a2341' might be used uninitialized in this function nboyer-stalin.c:9379: warning: `a2342' might be used uninitialized in this function nboyer-stalin.c:9381: warning: `a2344' might be used uninitialized in this function nboyer-stalin.c:9384: warning: `a2347' might be used uninitialized in this function nboyer-stalin.c:9385: warning: `a2348' might be used uninitialized in this function nboyer-stalin.c:9387: warning: `a2350' might be used uninitialized in this function nboyer-stalin.c:9391: warning: `a2360' might be used uninitialized in this function nboyer-stalin.c:9394: warning: `a2363' might be used uninitialized in this function nboyer-stalin.c:9395: warning: `a2364' might be used uninitialized in this function nboyer-stalin.c:9400: warning: `a2369' might be used uninitialized in this function nboyer-stalin.c:9406: warning: `t1384' might be used uninitialized in this function nboyer-stalin.c:9407: warning: `t1385' might be used uninitialized in this function nboyer-stalin.c:9408: warning: `t1386' might be used uninitialized in this function nboyer-stalin.c:9409: warning: `t1387' might be used uninitialized in this function nboyer-stalin.c:9410: warning: `t1388' might be used uninitialized in this function nboyer-stalin.c:9411: warning: `t1389' might be used uninitialized in this function nboyer-stalin.c:9412: warning: `t1390' might be used uninitialized in this function nboyer-stalin.c:9413: warning: `t1391' might be used uninitialized in this function nboyer-stalin.c:9414: warning: `t1392' might be used uninitialized in this function nboyer-stalin.c:9418: warning: `t1396' might be used uninitialized in this function nboyer-stalin.c:9419: warning: `t1397' might be used uninitialized in this function nboyer-stalin.c:9420: warning: `t1398' might be used uninitialized in this function nboyer-stalin.c:9421: warning: `t1399' might be used uninitialized in this function nboyer-stalin.c:9422: warning: `t1400' might be used uninitialized in this function nboyer-stalin.c:9423: warning: `t1401' might be used uninitialized in this function nboyer-stalin.c:9424: warning: `t1402' might be used uninitialized in this function nboyer-stalin.c:9425: warning: `t1403' might be used uninitialized in this function nboyer-stalin.c:9426: warning: `t1404' might be used uninitialized in this function nboyer-stalin.c:9427: warning: `t1405' might be used uninitialized in this function nboyer-stalin.c:9428: warning: `t1406' might be used uninitialized in this function nboyer-stalin.c:9429: warning: `t1407' might be used uninitialized in this function nboyer-stalin.c:9430: warning: `t1408' might be used uninitialized in this function nboyer-stalin.c:9431: warning: `t1409' might be used uninitialized in this function nboyer-stalin.c:9432: warning: `t1410' might be used uninitialized in this function nboyer-stalin.c:9433: warning: `t1411' might be used uninitialized in this function nboyer-stalin.c:9434: warning: `t1412' might be used uninitialized in this function nboyer-stalin.c:9435: warning: `t1413' might be used uninitialized in this function nboyer-stalin.c:9436: warning: `t1414' might be used uninitialized in this function nboyer-stalin.c:9437: warning: `t1415' might be used uninitialized in this function nboyer-stalin.c:9439: warning: `t1417' might be used uninitialized in this function nboyer-stalin.c:9440: warning: `t1418' might be used uninitialized in this function nboyer-stalin.c:9441: warning: `t1419' might be used uninitialized in this function nboyer-stalin.c:9442: warning: `t1420' might be used uninitialized in this function nboyer-stalin.c:9443: warning: `t1421' might be used uninitialized in this function nboyer-stalin.c:9444: warning: `t1422' might be used uninitialized in this function nboyer-stalin.c:9445: warning: `t1423' might be used uninitialized in this function nboyer-stalin.c:9446: warning: `t1424' might be used uninitialized in this function nboyer-stalin.c:9447: warning: `t1425' might be used uninitialized in this function nboyer-stalin.c:9448: warning: `t1426' might be used uninitialized in this function nboyer-stalin.c:9449: warning: `t1427' might be used uninitialized in this function nboyer-stalin.c:9450: warning: `t1428' might be used uninitialized in this function nboyer-stalin.c:9451: warning: `t1429' might be used uninitialized in this function nboyer-stalin.c:9452: warning: `t1430' might be used uninitialized in this function nboyer-stalin.c:9453: warning: `t1431' might be used uninitialized in this function nboyer-stalin.c:9454: warning: `t1432' might be used uninitialized in this function nboyer-stalin.c:9455: warning: `t1433' might be used uninitialized in this function nboyer-stalin.c:9456: warning: `t1434' might be used uninitialized in this function nboyer-stalin.c:9457: warning: `t1435' might be used uninitialized in this function nboyer-stalin.c:9458: warning: `t1436' might be used uninitialized in this function nboyer-stalin.c:9459: warning: `t1437' might be used uninitialized in this function nboyer-stalin.c:9461: warning: `t1439' might be used uninitialized in this function nboyer-stalin.c:9462: warning: `t1440' might be used uninitialized in this function nboyer-stalin.c:9463: warning: `t1441' might be used uninitialized in this function nboyer-stalin.c:9464: warning: `t1442' might be used uninitialized in this function nboyer-stalin.c:9465: warning: `t1443' might be used uninitialized in this function nboyer-stalin.c:9466: warning: `t1444' might be used uninitialized in this function nboyer-stalin.c:9467: warning: `t1445' might be used uninitialized in this function nboyer-stalin.c:9468: warning: `t1446' might be used uninitialized in this function nboyer-stalin.c:9469: warning: `t1447' might be used uninitialized in this function nboyer-stalin.c:9470: warning: `t1448' might be used uninitialized in this function nboyer-stalin.c:9471: warning: `t1449' might be used uninitialized in this function nboyer-stalin.c:9472: warning: `t1450' might be used uninitialized in this function nboyer-stalin.c:9473: warning: `t1451' might be used uninitialized in this function nboyer-stalin.c:9474: warning: `t1452' might be used uninitialized in this function nboyer-stalin.c:9475: warning: `t1453' might be used uninitialized in this function nboyer-stalin.c:9476: warning: `t1454' might be used uninitialized in this function nboyer-stalin.c:9477: warning: `t1455' might be used uninitialized in this function nboyer-stalin.c:9478: warning: `t1456' might be used uninitialized in this function nboyer-stalin.c:9479: warning: `t1457' might be used uninitialized in this function nboyer-stalin.c:9480: warning: `t1458' might be used uninitialized in this function nboyer-stalin.c:9481: warning: `t1459' might be used uninitialized in this function nboyer-stalin.c:9482: warning: `t1460' might be used uninitialized in this function nboyer-stalin.c:9483: warning: `t1461' might be used uninitialized in this function nboyer-stalin.c:9484: warning: `t1462' might be used uninitialized in this function nboyer-stalin.c:9485: warning: `t1463' might be used uninitialized in this function nboyer-stalin.c:9486: warning: `t1464' might be used uninitialized in this function nboyer-stalin.c:9487: warning: `t1465' might be used uninitialized in this function nboyer-stalin.c:9488: warning: `t1466' might be used uninitialized in this function nboyer-stalin.c:9489: warning: `t1467' might be used uninitialized in this function nboyer-stalin.c:9490: warning: `t1468' might be used uninitialized in this function nboyer-stalin.c:9491: warning: `t1469' might be used uninitialized in this function nboyer-stalin.c:9492: warning: `t1470' might be used uninitialized in this function nboyer-stalin.c:9493: warning: `t1471' might be used uninitialized in this function nboyer-stalin.c:9494: warning: `t1472' might be used uninitialized in this function nboyer-stalin.c:9495: warning: `t1473' might be used uninitialized in this function nboyer-stalin.c:9496: warning: `t1474' might be used uninitialized in this function nboyer-stalin.c:9497: warning: `t1475' might be used uninitialized in this function nboyer-stalin.c:9498: warning: `t1476' might be used uninitialized in this function nboyer-stalin.c:9500: warning: `t1478' might be used uninitialized in this function nboyer-stalin.c:9501: warning: `t1479' might be used uninitialized in this function nboyer-stalin.c:9502: warning: `t1480' might be used uninitialized in this function nboyer-stalin.c:9503: warning: `t1481' might be used uninitialized in this function nboyer-stalin.c:9504: warning: `t1482' might be used uninitialized in this function nboyer-stalin.c:9505: warning: `t1483' might be used uninitialized in this function nboyer-stalin.c:9506: warning: `t1484' might be used uninitialized in this function nboyer-stalin.c:9507: warning: `t1485' might be used uninitialized in this function nboyer-stalin.c:9508: warning: `t1486' might be used uninitialized in this function nboyer-stalin.c:9509: warning: `t1487' might be used uninitialized in this function nboyer-stalin.c:9510: warning: `t1488' might be used uninitialized in this function nboyer-stalin.c:9511: warning: `t1489' might be used uninitialized in this function nboyer-stalin.c:9512: warning: `t1490' might be used uninitialized in this function nboyer-stalin.c:9513: warning: `t1491' might be used uninitialized in this function nboyer-stalin.c:9514: warning: `t1492' might be used uninitialized in this function nboyer-stalin.c:9515: warning: `t1493' might be used uninitialized in this function nboyer-stalin.c:9516: warning: `t1494' might be used uninitialized in this function nboyer-stalin.c:9517: warning: `t1495' might be used uninitialized in this function nboyer-stalin.c:9518: warning: `t1496' might be used uninitialized in this function nboyer-stalin.c:9519: warning: `t1497' might be used uninitialized in this function nboyer-stalin.c:9520: warning: `t1498' might be used uninitialized in this function nboyer-stalin.c:9521: warning: `t1499' might be used uninitialized in this function nboyer-stalin.c:9522: warning: `t1500' might be used uninitialized in this function nboyer-stalin.c:9523: warning: `t1501' might be used uninitialized in this function nboyer-stalin.c:9524: warning: `t1502' might be used uninitialized in this function nboyer-stalin.c:9525: warning: `t1503' might be used uninitialized in this function nboyer-stalin.c:9526: warning: `t1504' might be used uninitialized in this function nboyer-stalin.c:9527: warning: `t1505' might be used uninitialized in this function nboyer-stalin.c:9528: warning: `t1506' might be used uninitialized in this function nboyer-stalin.c:9529: warning: `t1507' might be used uninitialized in this function nboyer-stalin.c:9530: warning: `t1508' might be used uninitialized in this function nboyer-stalin.c:9531: warning: `t1509' might be used uninitialized in this function nboyer-stalin.c:9532: warning: `t1510' might be used uninitialized in this function nboyer-stalin.c:9533: warning: `t1511' might be used uninitialized in this function nboyer-stalin.c:9534: warning: `t1512' might be used uninitialized in this function nboyer-stalin.c:9535: warning: `t1513' might be used uninitialized in this function nboyer-stalin.c:9536: warning: `t1514' might be used uninitialized in this function nboyer-stalin.c:9537: warning: `t1515' might be used uninitialized in this function nboyer-stalin.c:9538: warning: `t1516' might be used uninitialized in this function nboyer-stalin.c:9539: warning: `t1517' might be used uninitialized in this function nboyer-stalin.c:9540: warning: `t1518' might be used uninitialized in this function nboyer-stalin.c:9541: warning: `t1519' might be used uninitialized in this function nboyer-stalin.c:9542: warning: `t1520' might be used uninitialized in this function nboyer-stalin.c:9543: warning: `t1521' might be used uninitialized in this function nboyer-stalin.c:9544: warning: `t1522' might be used uninitialized in this function nboyer-stalin.c:9545: warning: `t1523' might be used uninitialized in this function nboyer-stalin.c:9546: warning: `t1524' might be used uninitialized in this function nboyer-stalin.c:9547: warning: `t1525' might be used uninitialized in this function nboyer-stalin.c:9548: warning: `t1526' might be used uninitialized in this function nboyer-stalin.c:9549: warning: `t1527' might be used uninitialized in this function nboyer-stalin.c:9550: warning: `t1528' might be used uninitialized in this function nboyer-stalin.c:9551: warning: `t1529' might be used uninitialized in this function nboyer-stalin.c:9552: warning: `t1530' might be used uninitialized in this function nboyer-stalin.c:9553: warning: `t1531' might be used uninitialized in this function nboyer-stalin.c:9554: warning: `t1532' might be used uninitialized in this function nboyer-stalin.c:9555: warning: `t1533' might be used uninitialized in this function nboyer-stalin.c:9556: warning: `t1534' might be used uninitialized in this function nboyer-stalin.c:9557: warning: `t1535' might be used uninitialized in this function nboyer-stalin.c:9558: warning: `t1536' might be used uninitialized in this function nboyer-stalin.c:9559: warning: `t1537' might be used uninitialized in this function nboyer-stalin.c:9560: warning: `t1538' might be used uninitialized in this function nboyer-stalin.c:9561: warning: `t1539' might be used uninitialized in this function nboyer-stalin.c:9563: warning: `t1541' might be used uninitialized in this function nboyer-stalin.c:9564: warning: `t1542' might be used uninitialized in this function nboyer-stalin.c:9565: warning: `t1543' might be used uninitialized in this function nboyer-stalin.c:9566: warning: `t1544' might be used uninitialized in this function nboyer-stalin.c:9567: warning: `t1545' might be used uninitialized in this function nboyer-stalin.c:9568: warning: `t1546' might be used uninitialized in this function nboyer-stalin.c:9569: warning: `t1547' might be used uninitialized in this function nboyer-stalin.c:9570: warning: `t1548' might be used uninitialized in this function nboyer-stalin.c:9571: warning: `t1549' might be used uninitialized in this function nboyer-stalin.c:9572: warning: `t1550' might be used uninitialized in this function nboyer-stalin.c:9573: warning: `t1551' might be used uninitialized in this function nboyer-stalin.c:9574: warning: `t1552' might be used uninitialized in this function nboyer-stalin.c:9575: warning: `t1553' might be used uninitialized in this function nboyer-stalin.c:9576: warning: `t1554' might be used uninitialized in this function nboyer-stalin.c:9578: warning: `t1556' might be used uninitialized in this function nboyer-stalin.c:9579: warning: `t1557' might be used uninitialized in this function nboyer-stalin.c:9580: warning: `t1558' might be used uninitialized in this function nboyer-stalin.c:9581: warning: `t1559' might be used uninitialized in this function nboyer-stalin.c:9582: warning: `t1560' might be used uninitialized in this function nboyer-stalin.c:9583: warning: `t1561' might be used uninitialized in this function nboyer-stalin.c:9584: warning: `t1562' might be used uninitialized in this function nboyer-stalin.c:9585: warning: `t1563' might be used uninitialized in this function nboyer-stalin.c:9586: warning: `t1564' might be used uninitialized in this function nboyer-stalin.c:9587: warning: `t1565' might be used uninitialized in this function nboyer-stalin.c:9589: warning: `t1567' might be used uninitialized in this function nboyer-stalin.c:9590: warning: `t1568' might be used uninitialized in this function nboyer-stalin.c:9591: warning: `t1569' might be used uninitialized in this function nboyer-stalin.c:9592: warning: `t1570' might be used uninitialized in this function nboyer-stalin.c:9593: warning: `t1571' might be used uninitialized in this function nboyer-stalin.c:9594: warning: `t1572' might be used uninitialized in this function nboyer-stalin.c:9595: warning: `t1573' might be used uninitialized in this function nboyer-stalin.c:9596: warning: `t1574' might be used uninitialized in this function nboyer-stalin.c:9597: warning: `t1575' might be used uninitialized in this function nboyer-stalin.c:9598: warning: `t1576' might be used uninitialized in this function nboyer-stalin.c:9599: warning: `t1577' might be used uninitialized in this function nboyer-stalin.c:9601: warning: `t1579' might be used uninitialized in this function nboyer-stalin.c:9602: warning: `t1580' might be used uninitialized in this function nboyer-stalin.c:9603: warning: `t1581' might be used uninitialized in this function nboyer-stalin.c:9604: warning: `t1582' might be used uninitialized in this function nboyer-stalin.c:9608: warning: `t1586' might be used uninitialized in this function nboyer-stalin.c:9609: warning: `t1587' might be used uninitialized in this function nboyer-stalin.c:9610: warning: `t1588' might be used uninitialized in this function nboyer-stalin.c:9611: warning: `t1589' might be used uninitialized in this function nboyer-stalin.c:9612: warning: `t1590' might be used uninitialized in this function nboyer-stalin.c:9613: warning: `t1591' might be used uninitialized in this function nboyer-stalin.c:9615: warning: `t1593' might be used uninitialized in this function nboyer-stalin.c:9616: warning: `t1594' might be used uninitialized in this function nboyer-stalin.c:9617: warning: `t1595' might be used uninitialized in this function nboyer-stalin.c:9618: warning: `t1596' might be used uninitialized in this function nboyer-stalin.c:9627: warning: `t1619' might be used uninitialized in this function nboyer-stalin.c:9722: warning: `t1757' might be used uninitialized in this function nboyer-stalin.c:9725: warning: `t1760' might be used uninitialized in this function nboyer-stalin.c:10441: warning: `t4803' might be used uninitialized in this function 419.73user 1.28system 7:12.30elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (34176major+872919minor)pagefaults 0swaps compile sboyer (STATIC-COUNTS 2384 2384 2384 2384 0 0 0 2384 2467 1243 109 319 27 85 1.256809338521401 4908 4908 515 314) sboyer-stalin.c: In function `f1718': sboyer-stalin.c:4889: warning: `a1940' might be used uninitialized in this function sboyer-stalin.c:4891: warning: `a1942' might be used uninitialized in this function sboyer-stalin.c: In function `f253': sboyer-stalin.c:5061: warning: `a909' might be used uninitialized in this function sboyer-stalin.c:5063: warning: `a911' might be used uninitialized in this function sboyer-stalin.c: In function `f199': sboyer-stalin.c:5268: warning: unused variable `e2358' sboyer-stalin.c:5267: warning: unused variable `e2357' sboyer-stalin.c:5266: warning: unused variable `e2356' sboyer-stalin.c:5264: warning: unused variable `e206' sboyer-stalin.c:5260: warning: unused variable `e202' sboyer-stalin.c:5259: warning: unused variable `e201' sboyer-stalin.c:5258: warning: unused variable `e200' sboyer-stalin.c:5196: warning: unused variable `a2294' sboyer-stalin.c:5195: warning: unused variable `a2293' sboyer-stalin.c:5194: warning: unused variable `a2292' sboyer-stalin.c:5191: warning: unused variable `a858' sboyer-stalin.c:5187: warning: unused variable `a854' sboyer-stalin.c:5186: warning: unused variable `a853' sboyer-stalin.c:5185: warning: unused variable `a852' sboyer-stalin.c:5189: warning: `a856' might be used uninitialized in this function sboyer-stalin.c: In function `f126': sboyer-stalin.c:5759: warning: unused variable `e127' sboyer-stalin.c:5729: warning: unused variable `a828' sboyer-stalin.c: In function `f124': sboyer-stalin.c:5851: warning: unused variable `e125' sboyer-stalin.c:5821: warning: unused variable `a825' sboyer-stalin.c: In function `f119': sboyer-stalin.c:5916: warning: `a820' might be used uninitialized in this function sboyer-stalin.c: In function `f95': sboyer-stalin.c:6316: warning: `a810' might be used uninitialized in this function sboyer-stalin.c:6321: warning: `a816' might be used uninitialized in this function sboyer-stalin.c:6329: warning: `a2333' might be used uninitialized in this function sboyer-stalin.c: In function `f74': sboyer-stalin.c:7682: warning: `a2306' might be used uninitialized in this function sboyer-stalin.c: In function `f49': sboyer-stalin.c:8083: warning: `a2361' might be used uninitialized in this function sboyer-stalin.c: In function `f0': sboyer-stalin.c:10736: warning: unused variable `e2354' sboyer-stalin.c:10735: warning: unused variable `e2353' sboyer-stalin.c:10734: warning: unused variable `e2352' sboyer-stalin.c:10732: warning: unused variable `e2350' sboyer-stalin.c:10731: warning: unused variable `e2349' sboyer-stalin.c:10730: warning: unused variable `e2348' sboyer-stalin.c:10728: warning: unused variable `e2346' sboyer-stalin.c:10727: warning: unused variable `e2345' sboyer-stalin.c:10726: warning: unused variable `e2344' sboyer-stalin.c:10724: warning: unused variable `e2342' sboyer-stalin.c:10723: warning: unused variable `e2341' sboyer-stalin.c:10722: warning: unused variable `e2340' sboyer-stalin.c:10720: warning: unused variable `e2338' sboyer-stalin.c:10719: warning: unused variable `e2337' sboyer-stalin.c:10718: warning: unused variable `e2336' sboyer-stalin.c:10650: warning: unused variable `e197' sboyer-stalin.c:10649: warning: unused variable `e196' sboyer-stalin.c:10648: warning: unused variable `e195' sboyer-stalin.c:9281: warning: unused variable `a2289' sboyer-stalin.c:9280: warning: unused variable `a2288' sboyer-stalin.c:9279: warning: unused variable `a2287' sboyer-stalin.c:9276: warning: unused variable `a2284' sboyer-stalin.c:9275: warning: unused variable `a2283' sboyer-stalin.c:9274: warning: unused variable `a2282' sboyer-stalin.c:9271: warning: unused variable `a2279' sboyer-stalin.c:9270: warning: unused variable `a2278' sboyer-stalin.c:9269: warning: unused variable `a2277' sboyer-stalin.c:9266: warning: unused variable `a2274' sboyer-stalin.c:9265: warning: unused variable `a2273' sboyer-stalin.c:9264: warning: unused variable `a2272' sboyer-stalin.c:9261: warning: unused variable `a2269' sboyer-stalin.c:9260: warning: unused variable `a2268' sboyer-stalin.c:9259: warning: unused variable `a2267' sboyer-stalin.c:9142: warning: unused variable `a847' sboyer-stalin.c:9141: warning: unused variable `a846' sboyer-stalin.c:9140: warning: unused variable `a845' sboyer-stalin.c:8346: warning: `a1' might be used uninitialized in this function sboyer-stalin.c:8347: warning: `a2' might be used uninitialized in this function sboyer-stalin.c:8348: warning: `a3' might be used uninitialized in this function sboyer-stalin.c:8349: warning: `a4' might be used uninitialized in this function sboyer-stalin.c:8350: warning: `a5' might be used uninitialized in this function sboyer-stalin.c:8351: warning: `a6' might be used uninitialized in this function sboyer-stalin.c:8352: warning: `a7' might be used uninitialized in this function sboyer-stalin.c:8353: warning: `a8' might be used uninitialized in this function sboyer-stalin.c:8354: warning: `a9' might be used uninitialized in this function sboyer-stalin.c:8355: warning: `a10' might be used uninitialized in this function sboyer-stalin.c:8356: warning: `a11' might be used uninitialized in this function sboyer-stalin.c:8357: warning: `a12' might be used uninitialized in this function sboyer-stalin.c:8358: warning: `a13' might be used uninitialized in this function sboyer-stalin.c:8359: warning: `a14' might be used uninitialized in this function sboyer-stalin.c:8360: warning: `a15' might be used uninitialized in this function sboyer-stalin.c:8361: warning: `a16' might be used uninitialized in this function sboyer-stalin.c:8362: warning: `a17' might be used uninitialized in this function sboyer-stalin.c:8363: warning: `a18' might be used uninitialized in this function sboyer-stalin.c:8364: warning: `a19' might be used uninitialized in this function sboyer-stalin.c:8365: warning: `a20' might be used uninitialized in this function sboyer-stalin.c:8366: warning: `a21' might be used uninitialized in this function sboyer-stalin.c:8367: warning: `a22' might be used uninitialized in this function sboyer-stalin.c:8368: warning: `a23' might be used uninitialized in this function sboyer-stalin.c:8369: warning: `a24' might be used uninitialized in this function sboyer-stalin.c:8370: warning: `a25' might be used uninitialized in this function sboyer-stalin.c:8371: warning: `a26' might be used uninitialized in this function sboyer-stalin.c:8372: warning: `a27' might be used uninitialized in this function sboyer-stalin.c:8373: warning: `a28' might be used uninitialized in this function sboyer-stalin.c:8374: warning: `a29' might be used uninitialized in this function sboyer-stalin.c:8375: warning: `a30' might be used uninitialized in this function sboyer-stalin.c:8376: warning: `a31' might be used uninitialized in this function sboyer-stalin.c:8377: warning: `a32' might be used uninitialized in this function sboyer-stalin.c:8378: warning: `a33' might be used uninitialized in this function sboyer-stalin.c:8379: warning: `a34' might be used uninitialized in this function sboyer-stalin.c:8380: warning: `a35' might be used uninitialized in this function sboyer-stalin.c:8381: warning: `a36' might be used uninitialized in this function sboyer-stalin.c:8382: warning: `a37' might be used uninitialized in this function sboyer-stalin.c:8383: warning: `a38' might be used uninitialized in this function sboyer-stalin.c:8384: warning: `a39' might be used uninitialized in this function sboyer-stalin.c:8385: warning: `a40' might be used uninitialized in this function sboyer-stalin.c:8386: warning: `a41' might be used uninitialized in this function sboyer-stalin.c:8387: warning: `a42' might be used uninitialized in this function sboyer-stalin.c:8388: warning: `a43' might be used uninitialized in this function sboyer-stalin.c:8389: warning: `a44' might be used uninitialized in this function sboyer-stalin.c:8390: warning: `a45' might be used uninitialized in this function sboyer-stalin.c:8391: warning: `a46' might be used uninitialized in this function sboyer-stalin.c:8392: warning: `a47' might be used uninitialized in this function sboyer-stalin.c:8393: warning: `a48' might be used uninitialized in this function sboyer-stalin.c:8394: warning: `a49' might be used uninitialized in this function sboyer-stalin.c:8395: warning: `a50' might be used uninitialized in this function sboyer-stalin.c:8396: warning: `a51' might be used uninitialized in this function sboyer-stalin.c:8397: warning: `a52' might be used uninitialized in this function sboyer-stalin.c:8398: warning: `a53' might be used uninitialized in this function sboyer-stalin.c:8399: warning: `a54' might be used uninitialized in this function sboyer-stalin.c:8400: warning: `a55' might be used uninitialized in this function sboyer-stalin.c:8401: warning: `a56' might be used uninitialized in this function sboyer-stalin.c:8402: warning: `a57' might be used uninitialized in this function sboyer-stalin.c:8403: warning: `a58' might be used uninitialized in this function sboyer-stalin.c:8404: warning: `a59' might be used uninitialized in this function sboyer-stalin.c:8405: warning: `a60' might be used uninitialized in this function sboyer-stalin.c:8406: warning: `a61' might be used uninitialized in this function sboyer-stalin.c:8407: warning: `a62' might be used uninitialized in this function sboyer-stalin.c:8408: warning: `a63' might be used uninitialized in this function sboyer-stalin.c:8409: warning: `a64' might be used uninitialized in this function sboyer-stalin.c:8410: warning: `a65' might be used uninitialized in this function sboyer-stalin.c:8411: warning: `a66' might be used uninitialized in this function sboyer-stalin.c:8412: warning: `a67' might be used uninitialized in this function sboyer-stalin.c:8413: warning: `a68' might be used uninitialized in this function sboyer-stalin.c:8414: warning: `a69' might be used uninitialized in this function sboyer-stalin.c:8415: warning: `a70' might be used uninitialized in this function sboyer-stalin.c:8416: warning: `a71' might be used uninitialized in this function sboyer-stalin.c:8417: warning: `a72' might be used uninitialized in this function sboyer-stalin.c:8418: warning: `a73' might be used uninitialized in this function sboyer-stalin.c:8419: warning: `a74' might be used uninitialized in this function sboyer-stalin.c:8420: warning: `a75' might be used uninitialized in this function sboyer-stalin.c:8421: warning: `a76' might be used uninitialized in this function sboyer-stalin.c:8422: warning: `a77' might be used uninitialized in this function sboyer-stalin.c:8423: warning: `a78' might be used uninitialized in this function sboyer-stalin.c:8424: warning: `a79' might be used uninitialized in this function sboyer-stalin.c:8425: warning: `a80' might be used uninitialized in this function sboyer-stalin.c:8426: warning: `a81' might be used uninitialized in this function sboyer-stalin.c:8427: warning: `a82' might be used uninitialized in this function sboyer-stalin.c:8428: warning: `a83' might be used uninitialized in this function sboyer-stalin.c:8429: warning: `a84' might be used uninitialized in this function sboyer-stalin.c:8430: warning: `a85' might be used uninitialized in this function sboyer-stalin.c:8431: warning: `a86' might be used uninitialized in this function sboyer-stalin.c:8432: warning: `a87' might be used uninitialized in this function sboyer-stalin.c:8433: warning: `a88' might be used uninitialized in this function sboyer-stalin.c:8434: warning: `a89' might be used uninitialized in this function sboyer-stalin.c:8435: warning: `a90' might be used uninitialized in this function sboyer-stalin.c:8436: warning: `a91' might be used uninitialized in this function sboyer-stalin.c:8437: warning: `a92' might be used uninitialized in this function sboyer-stalin.c:8438: warning: `a93' might be used uninitialized in this function sboyer-stalin.c:8439: warning: `a94' might be used uninitialized in this function sboyer-stalin.c:8440: warning: `a95' might be used uninitialized in this function sboyer-stalin.c:8441: warning: `a96' might be used uninitialized in this function sboyer-stalin.c:8442: warning: `a97' might be used uninitialized in this function sboyer-stalin.c:8443: warning: `a98' might be used uninitialized in this function sboyer-stalin.c:8444: warning: `a99' might be used uninitialized in this function sboyer-stalin.c:8445: warning: `a100' might be used uninitialized in this function sboyer-stalin.c:8446: warning: `a101' might be used uninitialized in this function sboyer-stalin.c:8447: warning: `a102' might be used uninitialized in this function sboyer-stalin.c:8448: warning: `a103' might be used uninitialized in this function sboyer-stalin.c:8449: warning: `a104' might be used uninitialized in this function sboyer-stalin.c:8450: warning: `a105' might be used uninitialized in this function sboyer-stalin.c:8451: warning: `a106' might be used uninitialized in this function sboyer-stalin.c:8452: warning: `a107' might be used uninitialized in this function sboyer-stalin.c:8453: warning: `a108' might be used uninitialized in this function sboyer-stalin.c:8454: warning: `a109' might be used uninitialized in this function sboyer-stalin.c:8455: warning: `a110' might be used uninitialized in this function sboyer-stalin.c:8456: warning: `a111' might be used uninitialized in this function sboyer-stalin.c:8457: warning: `a112' might be used uninitialized in this function sboyer-stalin.c:8458: warning: `a113' might be used uninitialized in this function sboyer-stalin.c:8459: warning: `a114' might be used uninitialized in this function sboyer-stalin.c:8460: warning: `a115' might be used uninitialized in this function sboyer-stalin.c:8461: warning: `a116' might be used uninitialized in this function sboyer-stalin.c:8462: warning: `a117' might be used uninitialized in this function sboyer-stalin.c:8463: warning: `a118' might be used uninitialized in this function sboyer-stalin.c:8464: warning: `a119' might be used uninitialized in this function sboyer-stalin.c:8465: warning: `a120' might be used uninitialized in this function sboyer-stalin.c:8466: warning: `a121' might be used uninitialized in this function sboyer-stalin.c:8467: warning: `a122' might be used uninitialized in this function sboyer-stalin.c:8468: warning: `a123' might be used uninitialized in this function sboyer-stalin.c:8469: warning: `a124' might be used uninitialized in this function sboyer-stalin.c:8470: warning: `a125' might be used uninitialized in this function sboyer-stalin.c:8471: warning: `a126' might be used uninitialized in this function sboyer-stalin.c:8472: warning: `a127' might be used uninitialized in this function sboyer-stalin.c:8473: warning: `a128' might be used uninitialized in this function sboyer-stalin.c:8474: warning: `a129' might be used uninitialized in this function sboyer-stalin.c:8475: warning: `a130' might be used uninitialized in this function sboyer-stalin.c:8476: warning: `a131' might be used uninitialized in this function sboyer-stalin.c:8477: warning: `a132' might be used uninitialized in this function sboyer-stalin.c:8478: warning: `a133' might be used uninitialized in this function sboyer-stalin.c:8479: warning: `a134' might be used uninitialized in this function sboyer-stalin.c:8480: warning: `a135' might be used uninitialized in this function sboyer-stalin.c:8481: warning: `a136' might be used uninitialized in this function sboyer-stalin.c:8482: warning: `a137' might be used uninitialized in this function sboyer-stalin.c:8483: warning: `a138' might be used uninitialized in this function sboyer-stalin.c:8484: warning: `a139' might be used uninitialized in this function sboyer-stalin.c:8485: warning: `a140' might be used uninitialized in this function sboyer-stalin.c:8486: warning: `a141' might be used uninitialized in this function sboyer-stalin.c:8487: warning: `a142' might be used uninitialized in this function sboyer-stalin.c:8488: warning: `a143' might be used uninitialized in this function sboyer-stalin.c:8489: warning: `a144' might be used uninitialized in this function sboyer-stalin.c:8490: warning: `a145' might be used uninitialized in this function sboyer-stalin.c:8491: warning: `a146' might be used uninitialized in this function sboyer-stalin.c:8492: warning: `a147' might be used uninitialized in this function sboyer-stalin.c:8493: warning: `a148' might be used uninitialized in this function sboyer-stalin.c:8494: warning: `a149' might be used uninitialized in this function sboyer-stalin.c:8495: warning: `a150' might be used uninitialized in this function sboyer-stalin.c:8496: warning: `a151' might be used uninitialized in this function sboyer-stalin.c:8497: warning: `a152' might be used uninitialized in this function sboyer-stalin.c:8498: warning: `a153' might be used uninitialized in this function sboyer-stalin.c:8499: warning: `a154' might be used uninitialized in this function sboyer-stalin.c:8500: warning: `a155' might be used uninitialized in this function sboyer-stalin.c:8501: warning: `a156' might be used uninitialized in this function sboyer-stalin.c:8502: warning: `a157' might be used uninitialized in this function sboyer-stalin.c:8503: warning: `a158' might be used uninitialized in this function sboyer-stalin.c:8504: warning: `a159' might be used uninitialized in this function sboyer-stalin.c:8505: warning: `a160' might be used uninitialized in this function sboyer-stalin.c:8506: warning: `a161' might be used uninitialized in this function sboyer-stalin.c:8507: warning: `a162' might be used uninitialized in this function sboyer-stalin.c:8508: warning: `a163' might be used uninitialized in this function sboyer-stalin.c:8509: warning: `a164' might be used uninitialized in this function sboyer-stalin.c:8510: warning: `a165' might be used uninitialized in this function sboyer-stalin.c:8511: warning: `a166' might be used uninitialized in this function sboyer-stalin.c:8512: warning: `a167' might be used uninitialized in this function sboyer-stalin.c:8513: warning: `a168' might be used uninitialized in this function sboyer-stalin.c:8514: warning: `a169' might be used uninitialized in this function sboyer-stalin.c:8515: warning: `a170' might be used uninitialized in this function sboyer-stalin.c:8516: warning: `a171' might be used uninitialized in this function sboyer-stalin.c:8517: warning: `a172' might be used uninitialized in this function sboyer-stalin.c:8518: warning: `a173' might be used uninitialized in this function sboyer-stalin.c:8519: warning: `a174' might be used uninitialized in this function sboyer-stalin.c:8520: warning: `a175' might be used uninitialized in this function sboyer-stalin.c:8521: warning: `a176' might be used uninitialized in this function sboyer-stalin.c:8522: warning: `a177' might be used uninitialized in this function sboyer-stalin.c:8523: warning: `a178' might be used uninitialized in this function sboyer-stalin.c:8524: warning: `a179' might be used uninitialized in this function sboyer-stalin.c:8525: warning: `a180' might be used uninitialized in this function sboyer-stalin.c:8526: warning: `a181' might be used uninitialized in this function sboyer-stalin.c:8527: warning: `a182' might be used uninitialized in this function sboyer-stalin.c:8528: warning: `a183' might be used uninitialized in this function sboyer-stalin.c:8529: warning: `a184' might be used uninitialized in this function sboyer-stalin.c:8530: warning: `a185' might be used uninitialized in this function sboyer-stalin.c:8531: warning: `a186' might be used uninitialized in this function sboyer-stalin.c:8532: warning: `a187' might be used uninitialized in this function sboyer-stalin.c:8533: warning: `a188' might be used uninitialized in this function sboyer-stalin.c:8534: warning: `a189' might be used uninitialized in this function sboyer-stalin.c:8535: warning: `a190' might be used uninitialized in this function sboyer-stalin.c:8536: warning: `a191' might be used uninitialized in this function sboyer-stalin.c:8537: warning: `a192' might be used uninitialized in this function sboyer-stalin.c:8538: warning: `a193' might be used uninitialized in this function sboyer-stalin.c:8539: warning: `a194' might be used uninitialized in this function sboyer-stalin.c:8540: warning: `a195' might be used uninitialized in this function sboyer-stalin.c:8541: warning: `a196' might be used uninitialized in this function sboyer-stalin.c:8542: warning: `a197' might be used uninitialized in this function sboyer-stalin.c:8543: warning: `a198' might be used uninitialized in this function sboyer-stalin.c:8544: warning: `a199' might be used uninitialized in this function sboyer-stalin.c:8545: warning: `a200' might be used uninitialized in this function sboyer-stalin.c:8546: warning: `a201' might be used uninitialized in this function sboyer-stalin.c:8547: warning: `a202' might be used uninitialized in this function sboyer-stalin.c:8548: warning: `a203' might be used uninitialized in this function sboyer-stalin.c:8549: warning: `a204' might be used uninitialized in this function sboyer-stalin.c:8550: warning: `a205' might be used uninitialized in this function sboyer-stalin.c:8551: warning: `a206' might be used uninitialized in this function sboyer-stalin.c:8552: warning: `a207' might be used uninitialized in this function sboyer-stalin.c:8553: warning: `a208' might be used uninitialized in this function sboyer-stalin.c:8554: warning: `a209' might be used uninitialized in this function sboyer-stalin.c:8555: warning: `a210' might be used uninitialized in this function sboyer-stalin.c:8556: warning: `a211' might be used uninitialized in this function sboyer-stalin.c:8557: warning: `a212' might be used uninitialized in this function sboyer-stalin.c:8558: warning: `a213' might be used uninitialized in this function sboyer-stalin.c:8559: warning: `a214' might be used uninitialized in this function sboyer-stalin.c:8560: warning: `a215' might be used uninitialized in this function sboyer-stalin.c:8561: warning: `a216' might be used uninitialized in this function sboyer-stalin.c:8562: warning: `a217' might be used uninitialized in this function sboyer-stalin.c:8563: warning: `a218' might be used uninitialized in this function sboyer-stalin.c:8564: warning: `a219' might be used uninitialized in this function sboyer-stalin.c:8565: warning: `a220' might be used uninitialized in this function sboyer-stalin.c:8566: warning: `a221' might be used uninitialized in this function sboyer-stalin.c:8567: warning: `a222' might be used uninitialized in this function sboyer-stalin.c:8568: warning: `a223' might be used uninitialized in this function sboyer-stalin.c:8569: warning: `a224' might be used uninitialized in this function sboyer-stalin.c:8570: warning: `a225' might be used uninitialized in this function sboyer-stalin.c:8571: warning: `a226' might be used uninitialized in this function sboyer-stalin.c:8572: warning: `a227' might be used uninitialized in this function sboyer-stalin.c:8573: warning: `a228' might be used uninitialized in this function sboyer-stalin.c:8574: warning: `a229' might be used uninitialized in this function sboyer-stalin.c:8575: warning: `a230' might be used uninitialized in this function sboyer-stalin.c:8576: warning: `a231' might be used uninitialized in this function sboyer-stalin.c:8577: warning: `a232' might be used uninitialized in this function sboyer-stalin.c:8578: warning: `a233' might be used uninitialized in this function sboyer-stalin.c:8579: warning: `a234' might be used uninitialized in this function sboyer-stalin.c:8580: warning: `a235' might be used uninitialized in this function sboyer-stalin.c:8581: warning: `a236' might be used uninitialized in this function sboyer-stalin.c:8582: warning: `a237' might be used uninitialized in this function sboyer-stalin.c:8583: warning: `a238' might be used uninitialized in this function sboyer-stalin.c:8584: warning: `a239' might be used uninitialized in this function sboyer-stalin.c:8585: warning: `a240' might be used uninitialized in this function sboyer-stalin.c:8586: warning: `a241' might be used uninitialized in this function sboyer-stalin.c:8587: warning: `a242' might be used uninitialized in this function sboyer-stalin.c:8588: warning: `a243' might be used uninitialized in this function sboyer-stalin.c:8589: warning: `a244' might be used uninitialized in this function sboyer-stalin.c:8590: warning: `a245' might be used uninitialized in this function sboyer-stalin.c:8591: warning: `a246' might be used uninitialized in this function sboyer-stalin.c:8592: warning: `a247' might be used uninitialized in this function sboyer-stalin.c:8593: warning: `a248' might be used uninitialized in this function sboyer-stalin.c:8594: warning: `a249' might be used uninitialized in this function sboyer-stalin.c:8595: warning: `a250' might be used uninitialized in this function sboyer-stalin.c:8596: warning: `a251' might be used uninitialized in this function sboyer-stalin.c:8597: warning: `a252' might be used uninitialized in this function sboyer-stalin.c:8598: warning: `a253' might be used uninitialized in this function sboyer-stalin.c:8599: warning: `a254' might be used uninitialized in this function sboyer-stalin.c:8600: warning: `a255' might be used uninitialized in this function sboyer-stalin.c:8601: warning: `a256' might be used uninitialized in this function sboyer-stalin.c:8602: warning: `a257' might be used uninitialized in this function sboyer-stalin.c:8603: warning: `a258' might be used uninitialized in this function sboyer-stalin.c:8604: warning: `a259' might be used uninitialized in this function sboyer-stalin.c:8605: warning: `a260' might be used uninitialized in this function sboyer-stalin.c:8606: warning: `a261' might be used uninitialized in this function sboyer-stalin.c:8607: warning: `a262' might be used uninitialized in this function sboyer-stalin.c:8608: warning: `a263' might be used uninitialized in this function sboyer-stalin.c:8609: warning: `a264' might be used uninitialized in this function sboyer-stalin.c:8610: warning: `a265' might be used uninitialized in this function sboyer-stalin.c:8611: warning: `a266' might be used uninitialized in this function sboyer-stalin.c:8612: warning: `a267' might be used uninitialized in this function sboyer-stalin.c:8613: warning: `a268' might be used uninitialized in this function sboyer-stalin.c:8614: warning: `a269' might be used uninitialized in this function sboyer-stalin.c:8615: warning: `a270' might be used uninitialized in this function sboyer-stalin.c:8616: warning: `a271' might be used uninitialized in this function sboyer-stalin.c:8617: warning: `a272' might be used uninitialized in this function sboyer-stalin.c:8618: warning: `a273' might be used uninitialized in this function sboyer-stalin.c:8619: warning: `a274' might be used uninitialized in this function sboyer-stalin.c:8620: warning: `a275' might be used uninitialized in this function sboyer-stalin.c:8621: warning: `a276' might be used uninitialized in this function sboyer-stalin.c:8622: warning: `a277' might be used uninitialized in this function sboyer-stalin.c:8623: warning: `a278' might be used uninitialized in this function sboyer-stalin.c:8624: warning: `a279' might be used uninitialized in this function sboyer-stalin.c:8625: warning: `a280' might be used uninitialized in this function sboyer-stalin.c:8626: warning: `a281' might be used uninitialized in this function sboyer-stalin.c:8627: warning: `a282' might be used uninitialized in this function sboyer-stalin.c:8628: warning: `a283' might be used uninitialized in this function sboyer-stalin.c:8629: warning: `a284' might be used uninitialized in this function sboyer-stalin.c:8630: warning: `a285' might be used uninitialized in this function sboyer-stalin.c:8631: warning: `a286' might be used uninitialized in this function sboyer-stalin.c:8632: warning: `a287' might be used uninitialized in this function sboyer-stalin.c:8633: warning: `a288' might be used uninitialized in this function sboyer-stalin.c:8634: warning: `a289' might be used uninitialized in this function sboyer-stalin.c:8635: warning: `a290' might be used uninitialized in this function sboyer-stalin.c:8636: warning: `a291' might be used uninitialized in this function sboyer-stalin.c:8637: warning: `a292' might be used uninitialized in this function sboyer-stalin.c:8638: warning: `a293' might be used uninitialized in this function sboyer-stalin.c:8639: warning: `a294' might be used uninitialized in this function sboyer-stalin.c:8640: warning: `a295' might be used uninitialized in this function sboyer-stalin.c:8641: warning: `a296' might be used uninitialized in this function sboyer-stalin.c:8642: warning: `a297' might be used uninitialized in this function sboyer-stalin.c:8643: warning: `a298' might be used uninitialized in this function sboyer-stalin.c:8644: warning: `a299' might be used uninitialized in this function sboyer-stalin.c:8645: warning: `a300' might be used uninitialized in this function sboyer-stalin.c:8646: warning: `a301' might be used uninitialized in this function sboyer-stalin.c:8647: warning: `a302' might be used uninitialized in this function sboyer-stalin.c:8648: warning: `a303' might be used uninitialized in this function sboyer-stalin.c:8649: warning: `a304' might be used uninitialized in this function sboyer-stalin.c:8650: warning: `a305' might be used uninitialized in this function sboyer-stalin.c:8651: warning: `a306' might be used uninitialized in this function sboyer-stalin.c:8652: warning: `a307' might be used uninitialized in this function sboyer-stalin.c:8653: warning: `a308' might be used uninitialized in this function sboyer-stalin.c:8654: warning: `a309' might be used uninitialized in this function sboyer-stalin.c:8655: warning: `a310' might be used uninitialized in this function sboyer-stalin.c:8656: warning: `a311' might be used uninitialized in this function sboyer-stalin.c:8657: warning: `a312' might be used uninitialized in this function sboyer-stalin.c:8658: warning: `a313' might be used uninitialized in this function sboyer-stalin.c:8659: warning: `a314' might be used uninitialized in this function sboyer-stalin.c:8660: warning: `a315' might be used uninitialized in this function sboyer-stalin.c:8661: warning: `a316' might be used uninitialized in this function sboyer-stalin.c:8662: warning: `a317' might be used uninitialized in this function sboyer-stalin.c:8663: warning: `a318' might be used uninitialized in this function sboyer-stalin.c:8664: warning: `a319' might be used uninitialized in this function sboyer-stalin.c:8665: warning: `a320' might be used uninitialized in this function sboyer-stalin.c:8666: warning: `a321' might be used uninitialized in this function sboyer-stalin.c:8667: warning: `a322' might be used uninitialized in this function sboyer-stalin.c:8668: warning: `a323' might be used uninitialized in this function sboyer-stalin.c:8669: warning: `a324' might be used uninitialized in this function sboyer-stalin.c:8670: warning: `a325' might be used uninitialized in this function sboyer-stalin.c:8671: warning: `a326' might be used uninitialized in this function sboyer-stalin.c:8672: warning: `a327' might be used uninitialized in this function sboyer-stalin.c:8673: warning: `a328' might be used uninitialized in this function sboyer-stalin.c:8674: warning: `a329' might be used uninitialized in this function sboyer-stalin.c:8675: warning: `a330' might be used uninitialized in this function sboyer-stalin.c:8676: warning: `a331' might be used uninitialized in this function sboyer-stalin.c:8677: warning: `a332' might be used uninitialized in this function sboyer-stalin.c:8678: warning: `a333' might be used uninitialized in this function sboyer-stalin.c:8679: warning: `a334' might be used uninitialized in this function sboyer-stalin.c:8680: warning: `a335' might be used uninitialized in this function sboyer-stalin.c:8681: warning: `a336' might be used uninitialized in this function sboyer-stalin.c:8682: warning: `a337' might be used uninitialized in this function sboyer-stalin.c:8683: warning: `a338' might be used uninitialized in this function sboyer-stalin.c:8684: warning: `a339' might be used uninitialized in this function sboyer-stalin.c:8685: warning: `a340' might be used uninitialized in this function sboyer-stalin.c:8686: warning: `a341' might be used uninitialized in this function sboyer-stalin.c:8687: warning: `a342' might be used uninitialized in this function sboyer-stalin.c:8688: warning: `a343' might be used uninitialized in this function sboyer-stalin.c:8689: warning: `a344' might be used uninitialized in this function sboyer-stalin.c:8690: warning: `a345' might be used uninitialized in this function sboyer-stalin.c:8691: warning: `a346' might be used uninitialized in this function sboyer-stalin.c:8692: warning: `a347' might be used uninitialized in this function sboyer-stalin.c:8693: warning: `a348' might be used uninitialized in this function sboyer-stalin.c:8694: warning: `a349' might be used uninitialized in this function sboyer-stalin.c:8695: warning: `a350' might be used uninitialized in this function sboyer-stalin.c:8696: warning: `a351' might be used uninitialized in this function sboyer-stalin.c:8697: warning: `a352' might be used uninitialized in this function sboyer-stalin.c:8698: warning: `a353' might be used uninitialized in this function sboyer-stalin.c:8699: warning: `a354' might be used uninitialized in this function sboyer-stalin.c:8700: warning: `a355' might be used uninitialized in this function sboyer-stalin.c:8701: warning: `a356' might be used uninitialized in this function sboyer-stalin.c:8702: warning: `a357' might be used uninitialized in this function sboyer-stalin.c:8703: warning: `a358' might be used uninitialized in this function sboyer-stalin.c:8704: warning: `a359' might be used uninitialized in this function sboyer-stalin.c:8705: warning: `a360' might be used uninitialized in this function sboyer-stalin.c:8706: warning: `a361' might be used uninitialized in this function sboyer-stalin.c:8707: warning: `a362' might be used uninitialized in this function sboyer-stalin.c:8708: warning: `a363' might be used uninitialized in this function sboyer-stalin.c:8709: warning: `a364' might be used uninitialized in this function sboyer-stalin.c:8710: warning: `a365' might be used uninitialized in this function sboyer-stalin.c:8711: warning: `a366' might be used uninitialized in this function sboyer-stalin.c:8712: warning: `a367' might be used uninitialized in this function sboyer-stalin.c:8713: warning: `a368' might be used uninitialized in this function sboyer-stalin.c:8714: warning: `a369' might be used uninitialized in this function sboyer-stalin.c:8715: warning: `a370' might be used uninitialized in this function sboyer-stalin.c:8716: warning: `a371' might be used uninitialized in this function sboyer-stalin.c:8717: warning: `a372' might be used uninitialized in this function sboyer-stalin.c:8718: warning: `a373' might be used uninitialized in this function sboyer-stalin.c:8719: warning: `a374' might be used uninitialized in this function sboyer-stalin.c:8720: warning: `a375' might be used uninitialized in this function sboyer-stalin.c:8721: warning: `a376' might be used uninitialized in this function sboyer-stalin.c:8722: warning: `a377' might be used uninitialized in this function sboyer-stalin.c:8723: warning: `a378' might be used uninitialized in this function sboyer-stalin.c:8724: warning: `a379' might be used uninitialized in this function sboyer-stalin.c:8725: warning: `a380' might be used uninitialized in this function sboyer-stalin.c:8726: warning: `a381' might be used uninitialized in this function sboyer-stalin.c:8727: warning: `a382' might be used uninitialized in this function sboyer-stalin.c:8728: warning: `a383' might be used uninitialized in this function sboyer-stalin.c:8729: warning: `a384' might be used uninitialized in this function sboyer-stalin.c:8730: warning: `a385' might be used uninitialized in this function sboyer-stalin.c:8731: warning: `a386' might be used uninitialized in this function sboyer-stalin.c:8732: warning: `a387' might be used uninitialized in this function sboyer-stalin.c:8733: warning: `a388' might be used uninitialized in this function sboyer-stalin.c:8734: warning: `a389' might be used uninitialized in this function sboyer-stalin.c:8735: warning: `a390' might be used uninitialized in this function sboyer-stalin.c:8736: warning: `a391' might be used uninitialized in this function sboyer-stalin.c:8737: warning: `a392' might be used uninitialized in this function sboyer-stalin.c:8738: warning: `a393' might be used uninitialized in this function sboyer-stalin.c:8739: warning: `a394' might be used uninitialized in this function sboyer-stalin.c:8740: warning: `a395' might be used uninitialized in this function sboyer-stalin.c:8741: warning: `a396' might be used uninitialized in this function sboyer-stalin.c:8742: warning: `a397' might be used uninitialized in this function sboyer-stalin.c:8743: warning: `a398' might be used uninitialized in this function sboyer-stalin.c:8744: warning: `a399' might be used uninitialized in this function sboyer-stalin.c:8745: warning: `a400' might be used uninitialized in this function sboyer-stalin.c:8746: warning: `a401' might be used uninitialized in this function sboyer-stalin.c:8747: warning: `a402' might be used uninitialized in this function sboyer-stalin.c:8748: warning: `a403' might be used uninitialized in this function sboyer-stalin.c:8749: warning: `a404' might be used uninitialized in this function sboyer-stalin.c:8750: warning: `a405' might be used uninitialized in this function sboyer-stalin.c:8751: warning: `a406' might be used uninitialized in this function sboyer-stalin.c:8752: warning: `a407' might be used uninitialized in this function sboyer-stalin.c:8753: warning: `a408' might be used uninitialized in this function sboyer-stalin.c:8754: warning: `a409' might be used uninitialized in this function sboyer-stalin.c:8755: warning: `a410' might be used uninitialized in this function sboyer-stalin.c:8756: warning: `a411' might be used uninitialized in this function sboyer-stalin.c:8757: warning: `a412' might be used uninitialized in this function sboyer-stalin.c:8758: warning: `a413' might be used uninitialized in this function sboyer-stalin.c:8759: warning: `a414' might be used uninitialized in this function sboyer-stalin.c:8760: warning: `a415' might be used uninitialized in this function sboyer-stalin.c:8761: warning: `a416' might be used uninitialized in this function sboyer-stalin.c:8762: warning: `a417' might be used uninitialized in this function sboyer-stalin.c:8763: warning: `a418' might be used uninitialized in this function sboyer-stalin.c:8764: warning: `a419' might be used uninitialized in this function sboyer-stalin.c:8765: warning: `a420' might be used uninitialized in this function sboyer-stalin.c:8766: warning: `a421' might be used uninitialized in this function sboyer-stalin.c:8767: warning: `a422' might be used uninitialized in this function sboyer-stalin.c:8768: warning: `a423' might be used uninitialized in this function sboyer-stalin.c:8769: warning: `a424' might be used uninitialized in this function sboyer-stalin.c:8770: warning: `a425' might be used uninitialized in this function sboyer-stalin.c:8771: warning: `a426' might be used uninitialized in this function sboyer-stalin.c:8772: warning: `a427' might be used uninitialized in this function sboyer-stalin.c:8773: warning: `a428' might be used uninitialized in this function sboyer-stalin.c:8774: warning: `a429' might be used uninitialized in this function sboyer-stalin.c:8775: warning: `a430' might be used uninitialized in this function sboyer-stalin.c:8776: warning: `a431' might be used uninitialized in this function sboyer-stalin.c:8777: warning: `a432' might be used uninitialized in this function sboyer-stalin.c:8778: warning: `a433' might be used uninitialized in this function sboyer-stalin.c:8779: warning: `a434' might be used uninitialized in this function sboyer-stalin.c:8780: warning: `a435' might be used uninitialized in this function sboyer-stalin.c:8994: warning: `a649' might be used uninitialized in this function sboyer-stalin.c:8995: warning: `a650' might be used uninitialized in this function sboyer-stalin.c:8996: warning: `a651' might be used uninitialized in this function sboyer-stalin.c:8997: warning: `a652' might be used uninitialized in this function sboyer-stalin.c:8998: warning: `a653' might be used uninitialized in this function sboyer-stalin.c:8999: warning: `a654' might be used uninitialized in this function sboyer-stalin.c:9000: warning: `a655' might be used uninitialized in this function sboyer-stalin.c:9001: warning: `a656' might be used uninitialized in this function sboyer-stalin.c:9002: warning: `a657' might be used uninitialized in this function sboyer-stalin.c:9003: warning: `a658' might be used uninitialized in this function sboyer-stalin.c:9004: warning: `a659' might be used uninitialized in this function sboyer-stalin.c:9005: warning: `a660' might be used uninitialized in this function sboyer-stalin.c:9006: warning: `a661' might be used uninitialized in this function sboyer-stalin.c:9011: warning: `a666' might be used uninitialized in this function sboyer-stalin.c:9012: warning: `a667' might be used uninitialized in this function sboyer-stalin.c:9018: warning: `a673' might be used uninitialized in this function sboyer-stalin.c:9023: warning: `a678' might be used uninitialized in this function sboyer-stalin.c:9026: warning: `a681' might be used uninitialized in this function sboyer-stalin.c:9027: warning: `a682' might be used uninitialized in this function sboyer-stalin.c:9028: warning: `a683' might be used uninitialized in this function sboyer-stalin.c:9029: warning: `a684' might be used uninitialized in this function sboyer-stalin.c:9030: warning: `a685' might be used uninitialized in this function sboyer-stalin.c:9031: warning: `a686' might be used uninitialized in this function sboyer-stalin.c:9032: warning: `a687' might be used uninitialized in this function sboyer-stalin.c:9033: warning: `a688' might be used uninitialized in this function sboyer-stalin.c:9034: warning: `a689' might be used uninitialized in this function sboyer-stalin.c:9035: warning: `a690' might be used uninitialized in this function sboyer-stalin.c:9036: warning: `a691' might be used uninitialized in this function sboyer-stalin.c:9037: warning: `a692' might be used uninitialized in this function sboyer-stalin.c:9038: warning: `a693' might be used uninitialized in this function sboyer-stalin.c:9039: warning: `a694' might be used uninitialized in this function sboyer-stalin.c:9040: warning: `a695' might be used uninitialized in this function sboyer-stalin.c:9041: warning: `a696' might be used uninitialized in this function sboyer-stalin.c:9042: warning: `a697' might be used uninitialized in this function sboyer-stalin.c:9043: warning: `a698' might be used uninitialized in this function sboyer-stalin.c:9044: warning: `a699' might be used uninitialized in this function sboyer-stalin.c:9045: warning: `a700' might be used uninitialized in this function sboyer-stalin.c:9046: warning: `a701' might be used uninitialized in this function sboyer-stalin.c:9047: warning: `a702' might be used uninitialized in this function sboyer-stalin.c:9048: warning: `a703' might be used uninitialized in this function sboyer-stalin.c:9049: warning: `a704' might be used uninitialized in this function sboyer-stalin.c:9050: warning: `a705' might be used uninitialized in this function sboyer-stalin.c:9051: warning: `a706' might be used uninitialized in this function sboyer-stalin.c:9052: warning: `a707' might be used uninitialized in this function sboyer-stalin.c:9053: warning: `a708' might be used uninitialized in this function sboyer-stalin.c:9054: warning: `a709' might be used uninitialized in this function sboyer-stalin.c:9055: warning: `a710' might be used uninitialized in this function sboyer-stalin.c:9056: warning: `a711' might be used uninitialized in this function sboyer-stalin.c:9057: warning: `a712' might be used uninitialized in this function sboyer-stalin.c:9058: warning: `a713' might be used uninitialized in this function sboyer-stalin.c:9059: warning: `a714' might be used uninitialized in this function sboyer-stalin.c:9060: warning: `a715' might be used uninitialized in this function sboyer-stalin.c:9061: warning: `a716' might be used uninitialized in this function sboyer-stalin.c:9062: warning: `a717' might be used uninitialized in this function sboyer-stalin.c:9063: warning: `a718' might be used uninitialized in this function sboyer-stalin.c:9064: warning: `a719' might be used uninitialized in this function sboyer-stalin.c:9066: warning: `a721' might be used uninitialized in this function sboyer-stalin.c:9067: warning: `a722' might be used uninitialized in this function sboyer-stalin.c:9068: warning: `a723' might be used uninitialized in this function sboyer-stalin.c:9069: warning: `a724' might be used uninitialized in this function sboyer-stalin.c:9070: warning: `a725' might be used uninitialized in this function sboyer-stalin.c:9071: warning: `a726' might be used uninitialized in this function sboyer-stalin.c:9072: warning: `a727' might be used uninitialized in this function sboyer-stalin.c:9073: warning: `a728' might be used uninitialized in this function sboyer-stalin.c:9074: warning: `a729' might be used uninitialized in this function sboyer-stalin.c:9075: warning: `a730' might be used uninitialized in this function sboyer-stalin.c:9076: warning: `a731' might be used uninitialized in this function sboyer-stalin.c:9077: warning: `a732' might be used uninitialized in this function sboyer-stalin.c:9078: warning: `a733' might be used uninitialized in this function sboyer-stalin.c:9079: warning: `a734' might be used uninitialized in this function sboyer-stalin.c:9080: warning: `a735' might be used uninitialized in this function sboyer-stalin.c:9081: warning: `a736' might be used uninitialized in this function sboyer-stalin.c:9082: warning: `a737' might be used uninitialized in this function sboyer-stalin.c:9083: warning: `a738' might be used uninitialized in this function sboyer-stalin.c:9084: warning: `a739' might be used uninitialized in this function sboyer-stalin.c:9085: warning: `a740' might be used uninitialized in this function sboyer-stalin.c:9086: warning: `a741' might be used uninitialized in this function sboyer-stalin.c:9087: warning: `a742' might be used uninitialized in this function sboyer-stalin.c:9088: warning: `a743' might be used uninitialized in this function sboyer-stalin.c:9089: warning: `a744' might be used uninitialized in this function sboyer-stalin.c:9090: warning: `a745' might be used uninitialized in this function sboyer-stalin.c:9091: warning: `a746' might be used uninitialized in this function sboyer-stalin.c:9092: warning: `a747' might be used uninitialized in this function sboyer-stalin.c:9093: warning: `a748' might be used uninitialized in this function sboyer-stalin.c:9094: warning: `a749' might be used uninitialized in this function sboyer-stalin.c:9095: warning: `a750' might be used uninitialized in this function sboyer-stalin.c:9096: warning: `a751' might be used uninitialized in this function sboyer-stalin.c:9097: warning: `a752' might be used uninitialized in this function sboyer-stalin.c:9098: warning: `a753' might be used uninitialized in this function sboyer-stalin.c:9099: warning: `a754' might be used uninitialized in this function sboyer-stalin.c:9100: warning: `a755' might be used uninitialized in this function sboyer-stalin.c:9101: warning: `a756' might be used uninitialized in this function sboyer-stalin.c:9102: warning: `a757' might be used uninitialized in this function sboyer-stalin.c:9103: warning: `a758' might be used uninitialized in this function sboyer-stalin.c:9104: warning: `a759' might be used uninitialized in this function sboyer-stalin.c:9105: warning: `a760' might be used uninitialized in this function sboyer-stalin.c:9106: warning: `a761' might be used uninitialized in this function sboyer-stalin.c:9108: warning: `a763' might be used uninitialized in this function sboyer-stalin.c:9110: warning: `a765' might be used uninitialized in this function sboyer-stalin.c:9111: warning: `a766' might be used uninitialized in this function sboyer-stalin.c:9112: warning: `a767' might be used uninitialized in this function sboyer-stalin.c:9114: warning: `a769' might be used uninitialized in this function sboyer-stalin.c:9117: warning: `a775' might be used uninitialized in this function sboyer-stalin.c:9120: warning: `a778' might be used uninitialized in this function sboyer-stalin.c:9124: warning: `a782' might be used uninitialized in this function sboyer-stalin.c:9130: warning: `a793' might be used uninitialized in this function sboyer-stalin.c:9134: warning: `a837' might be used uninitialized in this function sboyer-stalin.c:9135: warning: `a838' might be used uninitialized in this function sboyer-stalin.c:9136: warning: `a839' might be used uninitialized in this function sboyer-stalin.c:9137: warning: `a840' might be used uninitialized in this function sboyer-stalin.c:9144: warning: `a1032' might be used uninitialized in this function sboyer-stalin.c:9148: warning: `a1467' might be used uninitialized in this function sboyer-stalin.c:9150: warning: `a1469' might be used uninitialized in this function sboyer-stalin.c:9153: warning: `a1472' might be used uninitialized in this function sboyer-stalin.c:9155: warning: `a1474' might be used uninitialized in this function sboyer-stalin.c:9157: warning: `a1476' might be used uninitialized in this function sboyer-stalin.c:9158: warning: `a1477' might be used uninitialized in this function sboyer-stalin.c:9160: warning: `a1479' might be used uninitialized in this function sboyer-stalin.c:9165: warning: `a1489' might be used uninitialized in this function sboyer-stalin.c:9167: warning: `a1491' might be used uninitialized in this function sboyer-stalin.c:9169: warning: `a1493' might be used uninitialized in this function sboyer-stalin.c:9170: warning: `a1494' might be used uninitialized in this function sboyer-stalin.c:9171: warning: `a1895' might be used uninitialized in this function sboyer-stalin.c:9172: warning: `a1896' might be used uninitialized in this function sboyer-stalin.c:9176: warning: `a1900' might be used uninitialized in this function sboyer-stalin.c:9177: warning: `a1901' might be used uninitialized in this function sboyer-stalin.c:9178: warning: `a1902' might be used uninitialized in this function sboyer-stalin.c:9179: warning: `a1903' might be used uninitialized in this function sboyer-stalin.c:9180: warning: `a1904' might be used uninitialized in this function sboyer-stalin.c:9181: warning: `a1905' might be used uninitialized in this function sboyer-stalin.c:9182: warning: `a1906' might be used uninitialized in this function sboyer-stalin.c:9183: warning: `a1907' might be used uninitialized in this function sboyer-stalin.c:9184: warning: `a1908' might be used uninitialized in this function sboyer-stalin.c:9185: warning: `a1909' might be used uninitialized in this function sboyer-stalin.c:9186: warning: `a1910' might be used uninitialized in this function sboyer-stalin.c:9187: warning: `a1911' might be used uninitialized in this function sboyer-stalin.c:9188: warning: `a1912' might be used uninitialized in this function sboyer-stalin.c:9189: warning: `a1913' might be used uninitialized in this function sboyer-stalin.c:9190: warning: `a1914' might be used uninitialized in this function sboyer-stalin.c:9191: warning: `a1915' might be used uninitialized in this function sboyer-stalin.c:9192: warning: `a1916' might be used uninitialized in this function sboyer-stalin.c:9193: warning: `a1917' might be used uninitialized in this function sboyer-stalin.c:9194: warning: `a1918' might be used uninitialized in this function sboyer-stalin.c:9195: warning: `a1919' might be used uninitialized in this function sboyer-stalin.c:9196: warning: `a1920' might be used uninitialized in this function sboyer-stalin.c:9197: warning: `a1921' might be used uninitialized in this function sboyer-stalin.c:9198: warning: `a1922' might be used uninitialized in this function sboyer-stalin.c:9199: warning: `a1923' might be used uninitialized in this function sboyer-stalin.c:9200: warning: `a1924' might be used uninitialized in this function sboyer-stalin.c:9201: warning: `a1925' might be used uninitialized in this function sboyer-stalin.c:9202: warning: `a1926' might be used uninitialized in this function sboyer-stalin.c:9203: warning: `a1927' might be used uninitialized in this function sboyer-stalin.c:9204: warning: `a1928' might be used uninitialized in this function sboyer-stalin.c:9205: warning: `a1929' might be used uninitialized in this function sboyer-stalin.c:9206: warning: `a1930' might be used uninitialized in this function sboyer-stalin.c:9207: warning: `a1931' might be used uninitialized in this function sboyer-stalin.c:9208: warning: `a1932' might be used uninitialized in this function sboyer-stalin.c:9209: warning: `a1933' might be used uninitialized in this function sboyer-stalin.c:9213: warning: `a1946' might be used uninitialized in this function sboyer-stalin.c:9217: warning: `a1950' might be used uninitialized in this function sboyer-stalin.c:9219: warning: `a1952' might be used uninitialized in this function sboyer-stalin.c:9220: warning: `a1953' might be used uninitialized in this function sboyer-stalin.c:9221: warning: `a1954' might be used uninitialized in this function sboyer-stalin.c:9223: warning: `a1956' might be used uninitialized in this function sboyer-stalin.c:9227: warning: `a1960' might be used uninitialized in this function sboyer-stalin.c:9229: warning: `a1962' might be used uninitialized in this function sboyer-stalin.c:9230: warning: `a1963' might be used uninitialized in this function sboyer-stalin.c:9234: warning: `a2049' might be used uninitialized in this function sboyer-stalin.c:9235: warning: `a2050' might be used uninitialized in this function sboyer-stalin.c:9237: warning: `a2069' might be used uninitialized in this function sboyer-stalin.c:9241: warning: `a2073' might be used uninitialized in this function sboyer-stalin.c:9245: warning: `a2235' might be used uninitialized in this function sboyer-stalin.c:9247: warning: `a2237' might be used uninitialized in this function sboyer-stalin.c:9248: warning: `a2238' might be used uninitialized in this function sboyer-stalin.c:9255: warning: `a2263' might be used uninitialized in this function sboyer-stalin.c:9256: warning: `a2264' might be used uninitialized in this function sboyer-stalin.c:9285: warning: `a2298' might be used uninitialized in this function sboyer-stalin.c:9286: warning: `a2299' might be used uninitialized in this function sboyer-stalin.c:9289: warning: `a2302' might be used uninitialized in this function sboyer-stalin.c:9297: warning: `a2327' might be used uninitialized in this function sboyer-stalin.c:9299: warning: `a2329' might be used uninitialized in this function sboyer-stalin.c:9302: warning: `a2336' might be used uninitialized in this function sboyer-stalin.c:9304: warning: `a2338' might be used uninitialized in this function sboyer-stalin.c:9306: warning: `a2340' might be used uninitialized in this function sboyer-stalin.c:9307: warning: `a2341' might be used uninitialized in this function sboyer-stalin.c:9308: warning: `a2342' might be used uninitialized in this function sboyer-stalin.c:9311: warning: `a2345' might be used uninitialized in this function sboyer-stalin.c:9312: warning: `a2346' might be used uninitialized in this function sboyer-stalin.c:9314: warning: `a2348' might be used uninitialized in this function sboyer-stalin.c:9317: warning: `a2351' might be used uninitialized in this function sboyer-stalin.c:9318: warning: `a2352' might be used uninitialized in this function sboyer-stalin.c:9320: warning: `a2354' might be used uninitialized in this function sboyer-stalin.c:9324: warning: `a2364' might be used uninitialized in this function sboyer-stalin.c:9327: warning: `a2367' might be used uninitialized in this function sboyer-stalin.c:9328: warning: `a2368' might be used uninitialized in this function sboyer-stalin.c:9333: warning: `a2373' might be used uninitialized in this function sboyer-stalin.c:9339: warning: `t1400' might be used uninitialized in this function sboyer-stalin.c:9340: warning: `t1401' might be used uninitialized in this function sboyer-stalin.c:9341: warning: `t1402' might be used uninitialized in this function sboyer-stalin.c:9342: warning: `t1403' might be used uninitialized in this function sboyer-stalin.c:9343: warning: `t1404' might be used uninitialized in this function sboyer-stalin.c:9344: warning: `t1405' might be used uninitialized in this function sboyer-stalin.c:9345: warning: `t1406' might be used uninitialized in this function sboyer-stalin.c:9346: warning: `t1407' might be used uninitialized in this function sboyer-stalin.c:9347: warning: `t1408' might be used uninitialized in this function sboyer-stalin.c:9351: warning: `t1412' might be used uninitialized in this function sboyer-stalin.c:9352: warning: `t1413' might be used uninitialized in this function sboyer-stalin.c:9353: warning: `t1414' might be used uninitialized in this function sboyer-stalin.c:9354: warning: `t1415' might be used uninitialized in this function sboyer-stalin.c:9355: warning: `t1416' might be used uninitialized in this function sboyer-stalin.c:9356: warning: `t1417' might be used uninitialized in this function sboyer-stalin.c:9357: warning: `t1418' might be used uninitialized in this function sboyer-stalin.c:9358: warning: `t1419' might be used uninitialized in this function sboyer-stalin.c:9359: warning: `t1420' might be used uninitialized in this function sboyer-stalin.c:9360: warning: `t1421' might be used uninitialized in this function sboyer-stalin.c:9361: warning: `t1422' might be used uninitialized in this function sboyer-stalin.c:9362: warning: `t1423' might be used uninitialized in this function sboyer-stalin.c:9363: warning: `t1424' might be used uninitialized in this function sboyer-stalin.c:9364: warning: `t1425' might be used uninitialized in this function sboyer-stalin.c:9365: warning: `t1426' might be used uninitialized in this function sboyer-stalin.c:9366: warning: `t1427' might be used uninitialized in this function sboyer-stalin.c:9367: warning: `t1428' might be used uninitialized in this function sboyer-stalin.c:9368: warning: `t1429' might be used uninitialized in this function sboyer-stalin.c:9369: warning: `t1430' might be used uninitialized in this function sboyer-stalin.c:9370: warning: `t1431' might be used uninitialized in this function sboyer-stalin.c:9372: warning: `t1433' might be used uninitialized in this function sboyer-stalin.c:9373: warning: `t1434' might be used uninitialized in this function sboyer-stalin.c:9374: warning: `t1435' might be used uninitialized in this function sboyer-stalin.c:9375: warning: `t1436' might be used uninitialized in this function sboyer-stalin.c:9376: warning: `t1437' might be used uninitialized in this function sboyer-stalin.c:9377: warning: `t1438' might be used uninitialized in this function sboyer-stalin.c:9378: warning: `t1439' might be used uninitialized in this function sboyer-stalin.c:9379: warning: `t1440' might be used uninitialized in this function sboyer-stalin.c:9380: warning: `t1441' might be used uninitialized in this function sboyer-stalin.c:9381: warning: `t1442' might be used uninitialized in this function sboyer-stalin.c:9382: warning: `t1443' might be used uninitialized in this function sboyer-stalin.c:9383: warning: `t1444' might be used uninitialized in this function sboyer-stalin.c:9384: warning: `t1445' might be used uninitialized in this function sboyer-stalin.c:9385: warning: `t1446' might be used uninitialized in this function sboyer-stalin.c:9386: warning: `t1447' might be used uninitialized in this function sboyer-stalin.c:9387: warning: `t1448' might be used uninitialized in this function sboyer-stalin.c:9388: warning: `t1449' might be used uninitialized in this function sboyer-stalin.c:9389: warning: `t1450' might be used uninitialized in this function sboyer-stalin.c:9390: warning: `t1451' might be used uninitialized in this function sboyer-stalin.c:9391: warning: `t1452' might be used uninitialized in this function sboyer-stalin.c:9392: warning: `t1453' might be used uninitialized in this function sboyer-stalin.c:9394: warning: `t1455' might be used uninitialized in this function sboyer-stalin.c:9395: warning: `t1456' might be used uninitialized in this function sboyer-stalin.c:9396: warning: `t1457' might be used uninitialized in this function sboyer-stalin.c:9397: warning: `t1458' might be used uninitialized in this function sboyer-stalin.c:9398: warning: `t1459' might be used uninitialized in this function sboyer-stalin.c:9399: warning: `t1460' might be used uninitialized in this function sboyer-stalin.c:9400: warning: `t1461' might be used uninitialized in this function sboyer-stalin.c:9401: warning: `t1462' might be used uninitialized in this function sboyer-stalin.c:9402: warning: `t1463' might be used uninitialized in this function sboyer-stalin.c:9403: warning: `t1464' might be used uninitialized in this function sboyer-stalin.c:9404: warning: `t1465' might be used uninitialized in this function sboyer-stalin.c:9405: warning: `t1466' might be used uninitialized in this function sboyer-stalin.c:9406: warning: `t1467' might be used uninitialized in this function sboyer-stalin.c:9407: warning: `t1468' might be used uninitialized in this function sboyer-stalin.c:9408: warning: `t1469' might be used uninitialized in this function sboyer-stalin.c:9409: warning: `t1470' might be used uninitialized in this function sboyer-stalin.c:9410: warning: `t1471' might be used uninitialized in this function sboyer-stalin.c:9411: warning: `t1472' might be used uninitialized in this function sboyer-stalin.c:9412: warning: `t1473' might be used uninitialized in this function sboyer-stalin.c:9413: warning: `t1474' might be used uninitialized in this function sboyer-stalin.c:9414: warning: `t1475' might be used uninitialized in this function sboyer-stalin.c:9415: warning: `t1476' might be used uninitialized in this function sboyer-stalin.c:9416: warning: `t1477' might be used uninitialized in this function sboyer-stalin.c:9417: warning: `t1478' might be used uninitialized in this function sboyer-stalin.c:9418: warning: `t1479' might be used uninitialized in this function sboyer-stalin.c:9419: warning: `t1480' might be used uninitialized in this function sboyer-stalin.c:9420: warning: `t1481' might be used uninitialized in this function sboyer-stalin.c:9421: warning: `t1482' might be used uninitialized in this function sboyer-stalin.c:9422: warning: `t1483' might be used uninitialized in this function sboyer-stalin.c:9423: warning: `t1484' might be used uninitialized in this function sboyer-stalin.c:9424: warning: `t1485' might be used uninitialized in this function sboyer-stalin.c:9425: warning: `t1486' might be used uninitialized in this function sboyer-stalin.c:9426: warning: `t1487' might be used uninitialized in this function sboyer-stalin.c:9427: warning: `t1488' might be used uninitialized in this function sboyer-stalin.c:9428: warning: `t1489' might be used uninitialized in this function sboyer-stalin.c:9429: warning: `t1490' might be used uninitialized in this function sboyer-stalin.c:9430: warning: `t1491' might be used uninitialized in this function sboyer-stalin.c:9431: warning: `t1492' might be used uninitialized in this function sboyer-stalin.c:9433: warning: `t1494' might be used uninitialized in this function sboyer-stalin.c:9434: warning: `t1495' might be used uninitialized in this function sboyer-stalin.c:9435: warning: `t1496' might be used uninitialized in this function sboyer-stalin.c:9436: warning: `t1497' might be used uninitialized in this function sboyer-stalin.c:9437: warning: `t1498' might be used uninitialized in this function sboyer-stalin.c:9438: warning: `t1499' might be used uninitialized in this function sboyer-stalin.c:9439: warning: `t1500' might be used uninitialized in this function sboyer-stalin.c:9440: warning: `t1501' might be used uninitialized in this function sboyer-stalin.c:9441: warning: `t1502' might be used uninitialized in this function sboyer-stalin.c:9442: warning: `t1503' might be used uninitialized in this function sboyer-stalin.c:9443: warning: `t1504' might be used uninitialized in this function sboyer-stalin.c:9444: warning: `t1505' might be used uninitialized in this function sboyer-stalin.c:9445: warning: `t1506' might be used uninitialized in this function sboyer-stalin.c:9446: warning: `t1507' might be used uninitialized in this function sboyer-stalin.c:9447: warning: `t1508' might be used uninitialized in this function sboyer-stalin.c:9448: warning: `t1509' might be used uninitialized in this function sboyer-stalin.c:9449: warning: `t1510' might be used uninitialized in this function sboyer-stalin.c:9450: warning: `t1511' might be used uninitialized in this function sboyer-stalin.c:9451: warning: `t1512' might be used uninitialized in this function sboyer-stalin.c:9452: warning: `t1513' might be used uninitialized in this function sboyer-stalin.c:9453: warning: `t1514' might be used uninitialized in this function sboyer-stalin.c:9454: warning: `t1515' might be used uninitialized in this function sboyer-stalin.c:9455: warning: `t1516' might be used uninitialized in this function sboyer-stalin.c:9456: warning: `t1517' might be used uninitialized in this function sboyer-stalin.c:9457: warning: `t1518' might be used uninitialized in this function sboyer-stalin.c:9458: warning: `t1519' might be used uninitialized in this function sboyer-stalin.c:9459: warning: `t1520' might be used uninitialized in this function sboyer-stalin.c:9460: warning: `t1521' might be used uninitialized in this function sboyer-stalin.c:9461: warning: `t1522' might be used uninitialized in this function sboyer-stalin.c:9462: warning: `t1523' might be used uninitialized in this function sboyer-stalin.c:9463: warning: `t1524' might be used uninitialized in this function sboyer-stalin.c:9464: warning: `t1525' might be used uninitialized in this function sboyer-stalin.c:9465: warning: `t1526' might be used uninitialized in this function sboyer-stalin.c:9466: warning: `t1527' might be used uninitialized in this function sboyer-stalin.c:9467: warning: `t1528' might be used uninitialized in this function sboyer-stalin.c:9468: warning: `t1529' might be used uninitialized in this function sboyer-stalin.c:9469: warning: `t1530' might be used uninitialized in this function sboyer-stalin.c:9470: warning: `t1531' might be used uninitialized in this function sboyer-stalin.c:9471: warning: `t1532' might be used uninitialized in this function sboyer-stalin.c:9472: warning: `t1533' might be used uninitialized in this function sboyer-stalin.c:9473: warning: `t1534' might be used uninitialized in this function sboyer-stalin.c:9474: warning: `t1535' might be used uninitialized in this function sboyer-stalin.c:9475: warning: `t1536' might be used uninitialized in this function sboyer-stalin.c:9476: warning: `t1537' might be used uninitialized in this function sboyer-stalin.c:9477: warning: `t1538' might be used uninitialized in this function sboyer-stalin.c:9478: warning: `t1539' might be used uninitialized in this function sboyer-stalin.c:9479: warning: `t1540' might be used uninitialized in this function sboyer-stalin.c:9480: warning: `t1541' might be used uninitialized in this function sboyer-stalin.c:9481: warning: `t1542' might be used uninitialized in this function sboyer-stalin.c:9482: warning: `t1543' might be used uninitialized in this function sboyer-stalin.c:9483: warning: `t1544' might be used uninitialized in this function sboyer-stalin.c:9484: warning: `t1545' might be used uninitialized in this function sboyer-stalin.c:9485: warning: `t1546' might be used uninitialized in this function sboyer-stalin.c:9486: warning: `t1547' might be used uninitialized in this function sboyer-stalin.c:9487: warning: `t1548' might be used uninitialized in this function sboyer-stalin.c:9488: warning: `t1549' might be used uninitialized in this function sboyer-stalin.c:9489: warning: `t1550' might be used uninitialized in this function sboyer-stalin.c:9490: warning: `t1551' might be used uninitialized in this function sboyer-stalin.c:9491: warning: `t1552' might be used uninitialized in this function sboyer-stalin.c:9492: warning: `t1553' might be used uninitialized in this function sboyer-stalin.c:9493: warning: `t1554' might be used uninitialized in this function sboyer-stalin.c:9494: warning: `t1555' might be used uninitialized in this function sboyer-stalin.c:9496: warning: `t1557' might be used uninitialized in this function sboyer-stalin.c:9497: warning: `t1558' might be used uninitialized in this function sboyer-stalin.c:9498: warning: `t1559' might be used uninitialized in this function sboyer-stalin.c:9499: warning: `t1560' might be used uninitialized in this function sboyer-stalin.c:9500: warning: `t1561' might be used uninitialized in this function sboyer-stalin.c:9501: warning: `t1562' might be used uninitialized in this function sboyer-stalin.c:9502: warning: `t1563' might be used uninitialized in this function sboyer-stalin.c:9503: warning: `t1564' might be used uninitialized in this function sboyer-stalin.c:9504: warning: `t1565' might be used uninitialized in this function sboyer-stalin.c:9505: warning: `t1566' might be used uninitialized in this function sboyer-stalin.c:9506: warning: `t1567' might be used uninitialized in this function sboyer-stalin.c:9507: warning: `t1568' might be used uninitialized in this function sboyer-stalin.c:9508: warning: `t1569' might be used uninitialized in this function sboyer-stalin.c:9509: warning: `t1570' might be used uninitialized in this function sboyer-stalin.c:9511: warning: `t1572' might be used uninitialized in this function sboyer-stalin.c:9512: warning: `t1573' might be used uninitialized in this function sboyer-stalin.c:9513: warning: `t1574' might be used uninitialized in this function sboyer-stalin.c:9514: warning: `t1575' might be used uninitialized in this function sboyer-stalin.c:9515: warning: `t1576' might be used uninitialized in this function sboyer-stalin.c:9516: warning: `t1577' might be used uninitialized in this function sboyer-stalin.c:9517: warning: `t1578' might be used uninitialized in this function sboyer-stalin.c:9518: warning: `t1579' might be used uninitialized in this function sboyer-stalin.c:9519: warning: `t1580' might be used uninitialized in this function sboyer-stalin.c:9520: warning: `t1581' might be used uninitialized in this function sboyer-stalin.c:9522: warning: `t1583' might be used uninitialized in this function sboyer-stalin.c:9523: warning: `t1584' might be used uninitialized in this function sboyer-stalin.c:9524: warning: `t1585' might be used uninitialized in this function sboyer-stalin.c:9525: warning: `t1586' might be used uninitialized in this function sboyer-stalin.c:9526: warning: `t1587' might be used uninitialized in this function sboyer-stalin.c:9527: warning: `t1588' might be used uninitialized in this function sboyer-stalin.c:9528: warning: `t1589' might be used uninitialized in this function sboyer-stalin.c:9529: warning: `t1590' might be used uninitialized in this function sboyer-stalin.c:9530: warning: `t1591' might be used uninitialized in this function sboyer-stalin.c:9531: warning: `t1592' might be used uninitialized in this function sboyer-stalin.c:9532: warning: `t1593' might be used uninitialized in this function sboyer-stalin.c:9534: warning: `t1595' might be used uninitialized in this function sboyer-stalin.c:9535: warning: `t1596' might be used uninitialized in this function sboyer-stalin.c:9536: warning: `t1597' might be used uninitialized in this function sboyer-stalin.c:9537: warning: `t1598' might be used uninitialized in this function sboyer-stalin.c:9541: warning: `t1602' might be used uninitialized in this function sboyer-stalin.c:9542: warning: `t1603' might be used uninitialized in this function sboyer-stalin.c:9543: warning: `t1604' might be used uninitialized in this function sboyer-stalin.c:9544: warning: `t1605' might be used uninitialized in this function sboyer-stalin.c:9545: warning: `t1606' might be used uninitialized in this function sboyer-stalin.c:9546: warning: `t1607' might be used uninitialized in this function sboyer-stalin.c:9548: warning: `t1609' might be used uninitialized in this function sboyer-stalin.c:9549: warning: `t1610' might be used uninitialized in this function sboyer-stalin.c:9550: warning: `t1611' might be used uninitialized in this function sboyer-stalin.c:9551: warning: `t1612' might be used uninitialized in this function sboyer-stalin.c:9560: warning: `t1635' might be used uninitialized in this function sboyer-stalin.c:9655: warning: `t1773' might be used uninitialized in this function sboyer-stalin.c:9658: warning: `t1776' might be used uninitialized in this function sboyer-stalin.c:10374: warning: `t4820' might be used uninitialized in this function 422.29user 1.25system 7:14.93elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (34158major+886742minor)pagefaults 0swaps compile dynamic (STATIC-COUNTS 7822 7822 7822 7822 0 0 0 7822 6830 4656 845 3532 112 810 1.321693612509939 16602 16602 945 793) dynamic-stalin.c: In function `f5468': dynamic-stalin.c:44721: warning: `a5836' might be used uninitialized in this function dynamic-stalin.c: In function `f5464': dynamic-stalin.c:44814: warning: `a5832' might be used uninitialized in this function dynamic-stalin.c: In function `f5460': dynamic-stalin.c:44907: warning: `a5828' might be used uninitialized in this function dynamic-stalin.c: In function `f5456': dynamic-stalin.c:45000: warning: `a5824' might be used uninitialized in this function dynamic-stalin.c: In function `f5452': dynamic-stalin.c:45093: warning: `a5820' might be used uninitialized in this function dynamic-stalin.c: In function `f5448': dynamic-stalin.c:45186: warning: `a5816' might be used uninitialized in this function dynamic-stalin.c: In function `f5444': dynamic-stalin.c:45279: warning: `a5812' might be used uninitialized in this function dynamic-stalin.c: In function `f5440': dynamic-stalin.c:45372: warning: `a5808' might be used uninitialized in this function dynamic-stalin.c: In function `f5436': dynamic-stalin.c:45465: warning: `a5804' might be used uninitialized in this function dynamic-stalin.c: In function `f5432': dynamic-stalin.c:45558: warning: `a5800' might be used uninitialized in this function dynamic-stalin.c: In function `f5428': dynamic-stalin.c:45651: warning: `a5796' might be used uninitialized in this function dynamic-stalin.c: In function `f5315': dynamic-stalin.c:45745: warning: `a6857' might be used uninitialized in this function dynamic-stalin.c: In function `f5311': dynamic-stalin.c:45907: warning: `a6956' might be used uninitialized in this function dynamic-stalin.c: In function `f5307': dynamic-stalin.c:46069: warning: `a6929' might be used uninitialized in this function dynamic-stalin.c: In function `f5303': dynamic-stalin.c:46231: warning: `a6937' might be used uninitialized in this function dynamic-stalin.c: In function `f5299': dynamic-stalin.c:46393: warning: `a6945' might be used uninitialized in this function dynamic-stalin.c: In function `f5295': dynamic-stalin.c:46555: warning: `a6881' might be used uninitialized in this function dynamic-stalin.c: In function `f5291': dynamic-stalin.c:46717: warning: `a6889' might be used uninitialized in this function dynamic-stalin.c: In function `f5287': dynamic-stalin.c:46879: warning: `a6897' might be used uninitialized in this function dynamic-stalin.c: In function `f5283': dynamic-stalin.c:47041: warning: `a6905' might be used uninitialized in this function dynamic-stalin.c: In function `f5279': dynamic-stalin.c:47203: warning: `a6913' might be used uninitialized in this function dynamic-stalin.c: In function `f5275': dynamic-stalin.c:47365: warning: `a6921' might be used uninitialized in this function dynamic-stalin.c: In function `f5271': dynamic-stalin.c:47527: warning: `a6873' might be used uninitialized in this function dynamic-stalin.c: In function `f5267': dynamic-stalin.c:47689: warning: `a6865' might be used uninitialized in this function dynamic-stalin.c: In function `f5263': dynamic-stalin.c:47851: warning: `a6965' might be used uninitialized in this function dynamic-stalin.c: In function `f5259': dynamic-stalin.c:48013: warning: `a6973' might be used uninitialized in this function dynamic-stalin.c: In function `f5255': dynamic-stalin.c:48175: warning: `a6981' might be used uninitialized in this function dynamic-stalin.c: In function `f5251': dynamic-stalin.c:48337: warning: `a6989' might be used uninitialized in this function dynamic-stalin.c: In function `f5247': dynamic-stalin.c:48499: warning: `a6997' might be used uninitialized in this function dynamic-stalin.c: In function `f5243': dynamic-stalin.c:48661: warning: `a7005' might be used uninitialized in this function dynamic-stalin.c: In function `f5239': dynamic-stalin.c:48823: warning: `a7013' might be used uninitialized in this function dynamic-stalin.c: In function `f5235': dynamic-stalin.c:48985: warning: `a7021' might be used uninitialized in this function dynamic-stalin.c: In function `f5231': dynamic-stalin.c:49147: warning: `a7039' might be used uninitialized in this function dynamic-stalin.c: In function `f5227': dynamic-stalin.c:49309: warning: `a7047' might be used uninitialized in this function dynamic-stalin.c: In function `f5223': dynamic-stalin.c:49471: warning: `a7055' might be used uninitialized in this function dynamic-stalin.c: In function `f5219': dynamic-stalin.c:49633: warning: `a7063' might be used uninitialized in this function dynamic-stalin.c: In function `f5215': dynamic-stalin.c:49795: warning: `a7071' might be used uninitialized in this function dynamic-stalin.c: In function `f5211': dynamic-stalin.c:49957: warning: `a7079' might be used uninitialized in this function dynamic-stalin.c: In function `f5207': dynamic-stalin.c:50119: warning: `a7087' might be used uninitialized in this function dynamic-stalin.c: In function `f5203': dynamic-stalin.c:50281: warning: `a7095' might be used uninitialized in this function dynamic-stalin.c: In function `f5199': dynamic-stalin.c:50443: warning: `a7103' might be used uninitialized in this function dynamic-stalin.c: In function `f5195': dynamic-stalin.c:50605: warning: `a7111' might be used uninitialized in this function dynamic-stalin.c: In function `f5191': dynamic-stalin.c:50767: warning: `a7119' might be used uninitialized in this function dynamic-stalin.c: In function `f5187': dynamic-stalin.c:50929: warning: `a7127' might be used uninitialized in this function dynamic-stalin.c: In function `f5183': dynamic-stalin.c:51091: warning: `a7135' might be used uninitialized in this function dynamic-stalin.c: In function `f5179': dynamic-stalin.c:51253: warning: `a7143' might be used uninitialized in this function dynamic-stalin.c: In function `f5175': dynamic-stalin.c:51415: warning: `a7151' might be used uninitialized in this function dynamic-stalin.c: In function `f5171': dynamic-stalin.c:51577: warning: `a7159' might be used uninitialized in this function dynamic-stalin.c: In function `f5167': dynamic-stalin.c:51739: warning: `a7167' might be used uninitialized in this function dynamic-stalin.c: In function `f5163': dynamic-stalin.c:51901: warning: `a7715' might be used uninitialized in this function dynamic-stalin.c: In function `f5159': dynamic-stalin.c:52063: warning: `a7960' might be used uninitialized in this function dynamic-stalin.c: In function `f5155': dynamic-stalin.c:52225: warning: `a7818' might be used uninitialized in this function dynamic-stalin.c: In function `f5151': dynamic-stalin.c:52387: warning: `a7835' might be used uninitialized in this function dynamic-stalin.c: In function `f5147': dynamic-stalin.c:52549: warning: `a7852' might be used uninitialized in this function dynamic-stalin.c: In function `f5143': dynamic-stalin.c:52711: warning: `a7869' might be used uninitialized in this function dynamic-stalin.c: In function `f5139': dynamic-stalin.c:52873: warning: `a7886' might be used uninitialized in this function dynamic-stalin.c: In function `f5135': dynamic-stalin.c:53035: warning: `a7903' might be used uninitialized in this function dynamic-stalin.c: In function `f5131': dynamic-stalin.c:53197: warning: `a7920' might be used uninitialized in this function dynamic-stalin.c: In function `f5127': dynamic-stalin.c:53359: warning: `a7937' might be used uninitialized in this function dynamic-stalin.c: In function `f5123': dynamic-stalin.c:53521: warning: `a7729' might be used uninitialized in this function dynamic-stalin.c: In function `f5119': dynamic-stalin.c:53683: warning: `a7743' might be used uninitialized in this function dynamic-stalin.c: In function `f5115': dynamic-stalin.c:53845: warning: `a7757' might be used uninitialized in this function dynamic-stalin.c: In function `f5111': dynamic-stalin.c:54007: warning: `a7771' might be used uninitialized in this function dynamic-stalin.c: In function `f5107': dynamic-stalin.c:54169: warning: `a7453' might be used uninitialized in this function dynamic-stalin.c: In function `f5103': dynamic-stalin.c:54331: warning: `a7464' might be used uninitialized in this function dynamic-stalin.c: In function `f5099': dynamic-stalin.c:54493: warning: `a7475' might be used uninitialized in this function dynamic-stalin.c: In function `f5095': dynamic-stalin.c:54655: warning: `a7486' might be used uninitialized in this function dynamic-stalin.c: In function `f5091': dynamic-stalin.c:54817: warning: `a7497' might be used uninitialized in this function dynamic-stalin.c: In function `f5087': dynamic-stalin.c:54979: warning: `a7508' might be used uninitialized in this function dynamic-stalin.c: In function `f5083': dynamic-stalin.c:55141: warning: `a7519' might be used uninitialized in this function dynamic-stalin.c: In function `f5079': dynamic-stalin.c:55303: warning: `a7530' might be used uninitialized in this function dynamic-stalin.c: In function `f5075': dynamic-stalin.c:55465: warning: `a7544' might be used uninitialized in this function dynamic-stalin.c: In function `f5071': dynamic-stalin.c:55627: warning: `a7558' might be used uninitialized in this function dynamic-stalin.c: In function `f5067': dynamic-stalin.c:55789: warning: `a7572' might be used uninitialized in this function dynamic-stalin.c: In function `f5063': dynamic-stalin.c:55951: warning: `a7580' might be used uninitialized in this function dynamic-stalin.c: In function `f5059': dynamic-stalin.c:56113: warning: `a7588' might be used uninitialized in this function dynamic-stalin.c: In function `f5055': dynamic-stalin.c:56275: warning: `a7596' might be used uninitialized in this function dynamic-stalin.c: In function `f5051': dynamic-stalin.c:56437: warning: `a7604' might be used uninitialized in this function dynamic-stalin.c: In function `f5047': dynamic-stalin.c:56599: warning: `a7612' might be used uninitialized in this function dynamic-stalin.c: In function `f5043': dynamic-stalin.c:56761: warning: `a7620' might be used uninitialized in this function dynamic-stalin.c: In function `f5039': dynamic-stalin.c:56923: warning: `a7628' might be used uninitialized in this function dynamic-stalin.c: In function `f2475': dynamic-stalin.c:57086: warning: `a2889' might be used uninitialized in this function dynamic-stalin.c:57088: warning: `a2891' might be used uninitialized in this function dynamic-stalin.c: In function `f2295': dynamic-stalin.c:57359: warning: unused variable `p1502' dynamic-stalin.c:57352: warning: unused variable `e2303' dynamic-stalin.c:57344: warning: unused variable `e1502' dynamic-stalin.c:57274: warning: unused variable `a2839' dynamic-stalin.c:57265: warning: unused variable `a2188' dynamic-stalin.c:57259: warning: `a2182' might be used uninitialized in this function dynamic-stalin.c:57261: warning: `a2184' might be used uninitialized in this function dynamic-stalin.c:57264: warning: `a2187' might be used uninitialized in this function dynamic-stalin.c:57267: warning: `a2832' might be used uninitialized in this function dynamic-stalin.c:57269: warning: `a2834' might be used uninitialized in this function dynamic-stalin.c:57271: warning: `a2836' might be used uninitialized in this function dynamic-stalin.c: In function `f2289': dynamic-stalin.c:58907: warning: value computed is not used dynamic-stalin.c:58030: warning: unused variable `p5676' dynamic-stalin.c:58027: warning: unused variable `p5670' dynamic-stalin.c:58024: warning: unused variable `p5664' dynamic-stalin.c:58021: warning: unused variable `p5658' dynamic-stalin.c:58018: warning: unused variable `p5652' dynamic-stalin.c:57995: warning: unused variable `e5676' dynamic-stalin.c:57990: warning: unused variable `e5670' dynamic-stalin.c:57985: warning: unused variable `e5664' dynamic-stalin.c:57980: warning: unused variable `e5658' dynamic-stalin.c:57975: warning: unused variable `e5652' dynamic-stalin.c:57969: warning: unused variable `e5038' dynamic-stalin.c:57968: warning: unused variable `e5037' dynamic-stalin.c:57967: warning: unused variable `e5036' dynamic-stalin.c:57966: warning: unused variable `e5035' dynamic-stalin.c:57797: warning: unused variable `a6039' dynamic-stalin.c:57788: warning: unused variable `a6030' dynamic-stalin.c:57779: warning: unused variable `a6021' dynamic-stalin.c:57770: warning: unused variable `a6012' dynamic-stalin.c:57761: warning: unused variable `a6003' dynamic-stalin.c:57751: warning: unused variable `a5595' dynamic-stalin.c:57750: warning: unused variable `a5594' dynamic-stalin.c:57749: warning: unused variable `a5593' dynamic-stalin.c:57748: warning: unused variable `a5592' dynamic-stalin.c:57738: warning: `a4645' might be used uninitialized in this function dynamic-stalin.c:57743: warning: `a4650' might be used uninitialized in this function dynamic-stalin.c:57755: warning: `a5997' might be used uninitialized in this function dynamic-stalin.c:57757: warning: `a5999' might be used uninitialized in this function dynamic-stalin.c:57760: warning: `a6002' might be used uninitialized in this function dynamic-stalin.c:57764: warning: `a6006' might be used uninitialized in this function dynamic-stalin.c:57766: warning: `a6008' might be used uninitialized in this function dynamic-stalin.c:57769: warning: `a6011' might be used uninitialized in this function dynamic-stalin.c:57773: warning: `a6015' might be used uninitialized in this function dynamic-stalin.c:57775: warning: `a6017' might be used uninitialized in this function dynamic-stalin.c:57778: warning: `a6020' might be used uninitialized in this function dynamic-stalin.c:57782: warning: `a6024' might be used uninitialized in this function dynamic-stalin.c:57784: warning: `a6026' might be used uninitialized in this function dynamic-stalin.c:57787: warning: `a6029' might be used uninitialized in this function dynamic-stalin.c:57791: warning: `a6033' might be used uninitialized in this function dynamic-stalin.c:57793: warning: `a6035' might be used uninitialized in this function dynamic-stalin.c:57796: warning: `a6038' might be used uninitialized in this function dynamic-stalin.c:57896: warning: `t2940' might be used uninitialized in this function dynamic-stalin.c: In function `f2269': dynamic-stalin.c:59684: warning: unused variable `p5645' dynamic-stalin.c:59681: warning: unused variable `p5639' dynamic-stalin.c:59678: warning: unused variable `p5633' dynamic-stalin.c:59675: warning: unused variable `p5627' dynamic-stalin.c:59670: warning: unused variable `p4212' dynamic-stalin.c:59667: warning: unused variable `p4206' dynamic-stalin.c:59664: warning: unused variable `p4200' dynamic-stalin.c:59661: warning: unused variable `p4194' dynamic-stalin.c:59658: warning: unused variable `p4188' dynamic-stalin.c:59655: warning: unused variable `p4182' dynamic-stalin.c:59652: warning: unused variable `p4176' dynamic-stalin.c:59649: warning: unused variable `p4170' dynamic-stalin.c:59646: warning: unused variable `p4164' dynamic-stalin.c:59643: warning: unused variable `p4158' dynamic-stalin.c:59640: warning: unused variable `p4152' dynamic-stalin.c:59637: warning: unused variable `p4146' dynamic-stalin.c:59634: warning: unused variable `p4140' dynamic-stalin.c:59631: warning: unused variable `p4134' dynamic-stalin.c:59614: warning: unused variable `e5645' dynamic-stalin.c:59609: warning: unused variable `e5639' dynamic-stalin.c:59604: warning: unused variable `e5633' dynamic-stalin.c:59599: warning: unused variable `e5627' dynamic-stalin.c:59594: warning: unused variable `e4986' dynamic-stalin.c:59592: warning: unused variable `e4212' dynamic-stalin.c:59587: warning: unused variable `e4206' dynamic-stalin.c:59582: warning: unused variable `e4200' dynamic-stalin.c:59577: warning: unused variable `e4194' dynamic-stalin.c:59572: warning: unused variable `e4188' dynamic-stalin.c:59567: warning: unused variable `e4182' dynamic-stalin.c:59562: warning: unused variable `e4176' dynamic-stalin.c:59557: warning: unused variable `e4170' dynamic-stalin.c:59552: warning: unused variable `e4164' dynamic-stalin.c:59547: warning: unused variable `e4158' dynamic-stalin.c:59542: warning: unused variable `e4152' dynamic-stalin.c:59537: warning: unused variable `e4146' dynamic-stalin.c:59532: warning: unused variable `e4140' dynamic-stalin.c:59527: warning: unused variable `e4134' dynamic-stalin.c:59522: warning: unused variable `e2283' dynamic-stalin.c:59521: warning: unused variable `e2282' dynamic-stalin.c:59520: warning: unused variable `e2281' dynamic-stalin.c:59519: warning: unused variable `e2280' dynamic-stalin.c:59518: warning: unused variable `e2279' dynamic-stalin.c:59517: warning: unused variable `e2278' dynamic-stalin.c:59516: warning: unused variable `e2277' dynamic-stalin.c:59515: warning: unused variable `e2276' dynamic-stalin.c:59514: warning: unused variable `e2275' dynamic-stalin.c:59513: warning: unused variable `e2274' dynamic-stalin.c:59512: warning: unused variable `e2273' dynamic-stalin.c:59511: warning: unused variable `e2272' dynamic-stalin.c:59510: warning: unused variable `e2271' dynamic-stalin.c:59509: warning: unused variable `e2270' dynamic-stalin.c:59271: warning: unused variable `a5993' dynamic-stalin.c:59262: warning: unused variable `a5984' dynamic-stalin.c:59253: warning: unused variable `a5975' dynamic-stalin.c:59244: warning: unused variable `a5966' dynamic-stalin.c:59235: warning: unused variable `a5546' dynamic-stalin.c:59233: warning: unused variable `a4493' dynamic-stalin.c:59224: warning: unused variable `a4484' dynamic-stalin.c:59215: warning: unused variable `a4475' dynamic-stalin.c:59206: warning: unused variable `a4466' dynamic-stalin.c:59197: warning: unused variable `a4457' dynamic-stalin.c:59188: warning: unused variable `a4448' dynamic-stalin.c:59179: warning: unused variable `a4439' dynamic-stalin.c:59170: warning: unused variable `a4430' dynamic-stalin.c:59161: warning: unused variable `a4421' dynamic-stalin.c:59152: warning: unused variable `a4412' dynamic-stalin.c:59143: warning: unused variable `a4403' dynamic-stalin.c:59134: warning: unused variable `a4394' dynamic-stalin.c:59125: warning: unused variable `a4385' dynamic-stalin.c:59116: warning: unused variable `a4376' dynamic-stalin.c:59107: warning: unused variable `a2821' dynamic-stalin.c:59106: warning: unused variable `a2820' dynamic-stalin.c:59105: warning: unused variable `a2819' dynamic-stalin.c:59104: warning: unused variable `a2818' dynamic-stalin.c:59103: warning: unused variable `a2817' dynamic-stalin.c:59102: warning: unused variable `a2816' dynamic-stalin.c:59101: warning: unused variable `a2815' dynamic-stalin.c:59100: warning: unused variable `a2814' dynamic-stalin.c:59099: warning: unused variable `a2813' dynamic-stalin.c:59098: warning: unused variable `a2812' dynamic-stalin.c:59097: warning: unused variable `a2811' dynamic-stalin.c:59096: warning: unused variable `a2810' dynamic-stalin.c:59095: warning: unused variable `a2809' dynamic-stalin.c:59094: warning: unused variable `a2808' dynamic-stalin.c:59110: warning: `a4370' might be used uninitialized in this function dynamic-stalin.c:59111: warning: `a4371' might be used uninitialized in this function dynamic-stalin.c:59112: warning: `a4372' might be used uninitialized in this function dynamic-stalin.c:59115: warning: `a4375' might be used uninitialized in this function dynamic-stalin.c:59119: warning: `a4379' might be used uninitialized in this function dynamic-stalin.c:59120: warning: `a4380' might be used uninitialized in this function dynamic-stalin.c:59121: warning: `a4381' might be used uninitialized in this function dynamic-stalin.c:59124: warning: `a4384' might be used uninitialized in this function dynamic-stalin.c:59128: warning: `a4388' might be used uninitialized in this function dynamic-stalin.c:59129: warning: `a4389' might be used uninitialized in this function dynamic-stalin.c:59130: warning: `a4390' might be used uninitialized in this function dynamic-stalin.c:59133: warning: `a4393' might be used uninitialized in this function dynamic-stalin.c:59137: warning: `a4397' might be used uninitialized in this function dynamic-stalin.c:59138: warning: `a4398' might be used uninitialized in this function dynamic-stalin.c:59139: warning: `a4399' might be used uninitialized in this function dynamic-stalin.c:59142: warning: `a4402' might be used uninitialized in this function dynamic-stalin.c:59146: warning: `a4406' might be used uninitialized in this function dynamic-stalin.c:59147: warning: `a4407' might be used uninitialized in this function dynamic-stalin.c:59148: warning: `a4408' might be used uninitialized in this function dynamic-stalin.c:59151: warning: `a4411' might be used uninitialized in this function dynamic-stalin.c:59155: warning: `a4415' might be used uninitialized in this function dynamic-stalin.c:59156: warning: `a4416' might be used uninitialized in this function dynamic-stalin.c:59157: warning: `a4417' might be used uninitialized in this function dynamic-stalin.c:59160: warning: `a4420' might be used uninitialized in this function dynamic-stalin.c:59164: warning: `a4424' might be used uninitialized in this function dynamic-stalin.c:59165: warning: `a4425' might be used uninitialized in this function dynamic-stalin.c:59166: warning: `a4426' might be used uninitialized in this function dynamic-stalin.c:59169: warning: `a4429' might be used uninitialized in this function dynamic-stalin.c:59173: warning: `a4433' might be used uninitialized in this function dynamic-stalin.c:59174: warning: `a4434' might be used uninitialized in this function dynamic-stalin.c:59175: warning: `a4435' might be used uninitialized in this function dynamic-stalin.c:59178: warning: `a4438' might be used uninitialized in this function dynamic-stalin.c:59182: warning: `a4442' might be used uninitialized in this function dynamic-stalin.c:59183: warning: `a4443' might be used uninitialized in this function dynamic-stalin.c:59184: warning: `a4444' might be used uninitialized in this function dynamic-stalin.c:59187: warning: `a4447' might be used uninitialized in this function dynamic-stalin.c:59191: warning: `a4451' might be used uninitialized in this function dynamic-stalin.c:59192: warning: `a4452' might be used uninitialized in this function dynamic-stalin.c:59193: warning: `a4453' might be used uninitialized in this function dynamic-stalin.c:59196: warning: `a4456' might be used uninitialized in this function dynamic-stalin.c:59200: warning: `a4460' might be used uninitialized in this function dynamic-stalin.c:59201: warning: `a4461' might be used uninitialized in this function dynamic-stalin.c:59202: warning: `a4462' might be used uninitialized in this function dynamic-stalin.c:59205: warning: `a4465' might be used uninitialized in this function dynamic-stalin.c:59209: warning: `a4469' might be used uninitialized in this function dynamic-stalin.c:59210: warning: `a4470' might be used uninitialized in this function dynamic-stalin.c:59211: warning: `a4471' might be used uninitialized in this function dynamic-stalin.c:59214: warning: `a4474' might be used uninitialized in this function dynamic-stalin.c:59218: warning: `a4478' might be used uninitialized in this function dynamic-stalin.c:59219: warning: `a4479' might be used uninitialized in this function dynamic-stalin.c:59220: warning: `a4480' might be used uninitialized in this function dynamic-stalin.c:59223: warning: `a4483' might be used uninitialized in this function dynamic-stalin.c:59227: warning: `a4487' might be used uninitialized in this function dynamic-stalin.c:59228: warning: `a4488' might be used uninitialized in this function dynamic-stalin.c:59229: warning: `a4489' might be used uninitialized in this function dynamic-stalin.c:59232: warning: `a4492' might be used uninitialized in this function dynamic-stalin.c:59238: warning: `a5960' might be used uninitialized in this function dynamic-stalin.c:59239: warning: `a5961' might be used uninitialized in this function dynamic-stalin.c:59240: warning: `a5962' might be used uninitialized in this function dynamic-stalin.c:59243: warning: `a5965' might be used uninitialized in this function dynamic-stalin.c:59247: warning: `a5969' might be used uninitialized in this function dynamic-stalin.c:59248: warning: `a5970' might be used uninitialized in this function dynamic-stalin.c:59249: warning: `a5971' might be used uninitialized in this function dynamic-stalin.c:59252: warning: `a5974' might be used uninitialized in this function dynamic-stalin.c:59256: warning: `a5978' might be used uninitialized in this function dynamic-stalin.c:59257: warning: `a5979' might be used uninitialized in this function dynamic-stalin.c:59258: warning: `a5980' might be used uninitialized in this function dynamic-stalin.c:59261: warning: `a5983' might be used uninitialized in this function dynamic-stalin.c:59265: warning: `a5987' might be used uninitialized in this function dynamic-stalin.c:59266: warning: `a5988' might be used uninitialized in this function dynamic-stalin.c:59267: warning: `a5989' might be used uninitialized in this function dynamic-stalin.c:59270: warning: `a5992' might be used uninitialized in this function dynamic-stalin.c: In function `f2235': dynamic-stalin.c:61638: warning: value computed is not used dynamic-stalin.c:61842: warning: value computed is not used dynamic-stalin.c:63139: warning: value computed is not used dynamic-stalin.c:61263: warning: unused variable `p5778' dynamic-stalin.c:61260: warning: unused variable `p5724' dynamic-stalin.c:61257: warning: unused variable `p5706' dynamic-stalin.c:61254: warning: unused variable `p5700' dynamic-stalin.c:61251: warning: unused variable `p5694' dynamic-stalin.c:61248: warning: unused variable `p5688' dynamic-stalin.c:61242: warning: unused variable `p4128' dynamic-stalin.c:61239: warning: unused variable `p4122' dynamic-stalin.c:61236: warning: unused variable `p4116' dynamic-stalin.c:61233: warning: unused variable `p4110' dynamic-stalin.c:61230: warning: unused variable `p4104' dynamic-stalin.c:61227: warning: unused variable `p4098' dynamic-stalin.c:61224: warning: unused variable `p4092' dynamic-stalin.c:61221: warning: unused variable `p4086' dynamic-stalin.c:61218: warning: unused variable `p4080' dynamic-stalin.c:61215: warning: unused variable `p4074' dynamic-stalin.c:61212: warning: unused variable `p4068' dynamic-stalin.c:61209: warning: unused variable `p3732' dynamic-stalin.c:61206: warning: unused variable `p3714' dynamic-stalin.c:61203: warning: unused variable `p3636' dynamic-stalin.c:61158: warning: unused variable `p1472' dynamic-stalin.c:61155: warning: unused variable `e5778' dynamic-stalin.c:61150: warning: unused variable `e5724' dynamic-stalin.c:61145: warning: unused variable `e5706' dynamic-stalin.c:61140: warning: unused variable `e5700' dynamic-stalin.c:61135: warning: unused variable `e5694' dynamic-stalin.c:61130: warning: unused variable `e5688' dynamic-stalin.c:61122: warning: unused variable `e4128' dynamic-stalin.c:61117: warning: unused variable `e4122' dynamic-stalin.c:61112: warning: unused variable `e4116' dynamic-stalin.c:61107: warning: unused variable `e4110' dynamic-stalin.c:61102: warning: unused variable `e4104' dynamic-stalin.c:61097: warning: unused variable `e4098' dynamic-stalin.c:61092: warning: unused variable `e4092' dynamic-stalin.c:61087: warning: unused variable `e4086' dynamic-stalin.c:61082: warning: unused variable `e4080' dynamic-stalin.c:61077: warning: unused variable `e4074' dynamic-stalin.c:61072: warning: unused variable `e4068' dynamic-stalin.c:61067: warning: unused variable `e3732' dynamic-stalin.c:61062: warning: unused variable `e3714' dynamic-stalin.c:61057: warning: unused variable `e3636' dynamic-stalin.c:61038: warning: unused variable `e2250' dynamic-stalin.c:61037: warning: unused variable `e2249' dynamic-stalin.c:61036: warning: unused variable `e2248' dynamic-stalin.c:61035: warning: unused variable `e2247' dynamic-stalin.c:61034: warning: unused variable `e2246' dynamic-stalin.c:61033: warning: unused variable `e2245' dynamic-stalin.c:61032: warning: unused variable `e2244' dynamic-stalin.c:61031: warning: unused variable `e2243' dynamic-stalin.c:61030: warning: unused variable `e2242' dynamic-stalin.c:61025: warning: unused variable `e1472' dynamic-stalin.c:60578: warning: unused variable `a6192' dynamic-stalin.c:60569: warning: unused variable `a6111' dynamic-stalin.c:60560: warning: unused variable `a6084' dynamic-stalin.c:60551: warning: unused variable `a6075' dynamic-stalin.c:60542: warning: unused variable `a6066' dynamic-stalin.c:60533: warning: unused variable `a6057' dynamic-stalin.c:60521: warning: unused variable `a4367' dynamic-stalin.c:60512: warning: unused variable `a4358' dynamic-stalin.c:60503: warning: unused variable `a4349' dynamic-stalin.c:60494: warning: unused variable `a4340' dynamic-stalin.c:60485: warning: unused variable `a4331' dynamic-stalin.c:60476: warning: unused variable `a4322' dynamic-stalin.c:60467: warning: unused variable `a4313' dynamic-stalin.c:60458: warning: unused variable `a4304' dynamic-stalin.c:60449: warning: unused variable `a4295' dynamic-stalin.c:60440: warning: unused variable `a4286' dynamic-stalin.c:60431: warning: unused variable `a4277' dynamic-stalin.c:60422: warning: unused variable `a3773' dynamic-stalin.c:60413: warning: unused variable `a3746' dynamic-stalin.c:60404: warning: unused variable `a3629' dynamic-stalin.c:60379: warning: unused variable `a2797' dynamic-stalin.c:60378: warning: unused variable `a2796' dynamic-stalin.c:60377: warning: unused variable `a2795' dynamic-stalin.c:60376: warning: unused variable `a2794' dynamic-stalin.c:60375: warning: unused variable `a2793' dynamic-stalin.c:60374: warning: unused variable `a2792' dynamic-stalin.c:60373: warning: unused variable `a2791' dynamic-stalin.c:60372: warning: unused variable `a2790' dynamic-stalin.c:60371: warning: unused variable `a2789' dynamic-stalin.c:60366: warning: unused variable `a2143' dynamic-stalin.c:60360: warning: `a2137' might be used uninitialized in this function dynamic-stalin.c:60362: warning: `a2139' might be used uninitialized in this function dynamic-stalin.c:60365: warning: `a2142' might be used uninitialized in this function dynamic-stalin.c:60382: warning: `a2800' might be used uninitialized in this function dynamic-stalin.c:60384: warning: `a2802' might be used uninitialized in this function dynamic-stalin.c:60385: warning: `a2803' might be used uninitialized in this function dynamic-stalin.c:60387: warning: `a2805' might be used uninitialized in this function dynamic-stalin.c:60388: warning: `a2806' might be used uninitialized in this function dynamic-stalin.c:60398: warning: `a3623' might be used uninitialized in this function dynamic-stalin.c:60400: warning: `a3625' might be used uninitialized in this function dynamic-stalin.c:60403: warning: `a3628' might be used uninitialized in this function dynamic-stalin.c:60407: warning: `a3740' might be used uninitialized in this function dynamic-stalin.c:60409: warning: `a3742' might be used uninitialized in this function dynamic-stalin.c:60412: warning: `a3745' might be used uninitialized in this function dynamic-stalin.c:60416: warning: `a3767' might be used uninitialized in this function dynamic-stalin.c:60418: warning: `a3769' might be used uninitialized in this function dynamic-stalin.c:60421: warning: `a3772' might be used uninitialized in this function dynamic-stalin.c:60425: warning: `a4271' might be used uninitialized in this function dynamic-stalin.c:60427: warning: `a4273' might be used uninitialized in this function dynamic-stalin.c:60430: warning: `a4276' might be used uninitialized in this function dynamic-stalin.c:60434: warning: `a4280' might be used uninitialized in this function dynamic-stalin.c:60436: warning: `a4282' might be used uninitialized in this function dynamic-stalin.c:60439: warning: `a4285' might be used uninitialized in this function dynamic-stalin.c:60443: warning: `a4289' might be used uninitialized in this function dynamic-stalin.c:60445: warning: `a4291' might be used uninitialized in this function dynamic-stalin.c:60448: warning: `a4294' might be used uninitialized in this function dynamic-stalin.c:60452: warning: `a4298' might be used uninitialized in this function dynamic-stalin.c:60454: warning: `a4300' might be used uninitialized in this function dynamic-stalin.c:60457: warning: `a4303' might be used uninitialized in this function dynamic-stalin.c:60461: warning: `a4307' might be used uninitialized in this function dynamic-stalin.c:60463: warning: `a4309' might be used uninitialized in this function dynamic-stalin.c:60466: warning: `a4312' might be used uninitialized in this function dynamic-stalin.c:60470: warning: `a4316' might be used uninitialized in this function dynamic-stalin.c:60472: warning: `a4318' might be used uninitialized in this function dynamic-stalin.c:60475: warning: `a4321' might be used uninitialized in this function dynamic-stalin.c:60479: warning: `a4325' might be used uninitialized in this function dynamic-stalin.c:60481: warning: `a4327' might be used uninitialized in this function dynamic-stalin.c:60484: warning: `a4330' might be used uninitialized in this function dynamic-stalin.c:60488: warning: `a4334' might be used uninitialized in this function dynamic-stalin.c:60490: warning: `a4336' might be used uninitialized in this function dynamic-stalin.c:60493: warning: `a4339' might be used uninitialized in this function dynamic-stalin.c:60497: warning: `a4343' might be used uninitialized in this function dynamic-stalin.c:60499: warning: `a4345' might be used uninitialized in this function dynamic-stalin.c:60502: warning: `a4348' might be used uninitialized in this function dynamic-stalin.c:60506: warning: `a4352' might be used uninitialized in this function dynamic-stalin.c:60508: warning: `a4354' might be used uninitialized in this function dynamic-stalin.c:60511: warning: `a4357' might be used uninitialized in this function dynamic-stalin.c:60515: warning: `a4361' might be used uninitialized in this function dynamic-stalin.c:60517: warning: `a4363' might be used uninitialized in this function dynamic-stalin.c:60520: warning: `a4366' might be used uninitialized in this function dynamic-stalin.c:60527: warning: `a6051' might be used uninitialized in this function dynamic-stalin.c:60529: warning: `a6053' might be used uninitialized in this function dynamic-stalin.c:60532: warning: `a6056' might be used uninitialized in this function dynamic-stalin.c:60536: warning: `a6060' might be used uninitialized in this function dynamic-stalin.c:60538: warning: `a6062' might be used uninitialized in this function dynamic-stalin.c:60541: warning: `a6065' might be used uninitialized in this function dynamic-stalin.c:60545: warning: `a6069' might be used uninitialized in this function dynamic-stalin.c:60547: warning: `a6071' might be used uninitialized in this function dynamic-stalin.c:60550: warning: `a6074' might be used uninitialized in this function dynamic-stalin.c:60554: warning: `a6078' might be used uninitialized in this function dynamic-stalin.c:60556: warning: `a6080' might be used uninitialized in this function dynamic-stalin.c:60559: warning: `a6083' might be used uninitialized in this function dynamic-stalin.c:60563: warning: `a6105' might be used uninitialized in this function dynamic-stalin.c:60565: warning: `a6107' might be used uninitialized in this function dynamic-stalin.c:60568: warning: `a6110' might be used uninitialized in this function dynamic-stalin.c:60572: warning: `a6186' might be used uninitialized in this function dynamic-stalin.c:60574: warning: `a6188' might be used uninitialized in this function dynamic-stalin.c:60577: warning: `a6191' might be used uninitialized in this function dynamic-stalin.c:60756: warning: `t3680' might be used uninitialized in this function dynamic-stalin.c:60970: warning: `t4015' might be used uninitialized in this function dynamic-stalin.c:60988: warning: `t4040' might be used uninitialized in this function dynamic-stalin.c: In function `f2203': dynamic-stalin.c:65774: warning: value computed is not used dynamic-stalin.c:67072: warning: value computed is not used dynamic-stalin.c:65400: warning: unused variable `p5772' dynamic-stalin.c:65397: warning: unused variable `p5766' dynamic-stalin.c:65394: warning: unused variable `p5760' dynamic-stalin.c:65391: warning: unused variable `p5754' dynamic-stalin.c:65388: warning: unused variable `p5748' dynamic-stalin.c:65385: warning: unused variable `p5742' dynamic-stalin.c:65382: warning: unused variable `p5736' dynamic-stalin.c:65379: warning: unused variable `p5730' dynamic-stalin.c:65372: warning: unused variable `p3912' dynamic-stalin.c:65369: warning: unused variable `p3906' dynamic-stalin.c:65366: warning: unused variable `p3900' dynamic-stalin.c:65363: warning: unused variable `p3894' dynamic-stalin.c:65360: warning: unused variable `p3888' dynamic-stalin.c:65357: warning: unused variable `p3882' dynamic-stalin.c:65354: warning: unused variable `p3876' dynamic-stalin.c:65351: warning: unused variable `p3870' dynamic-stalin.c:65348: warning: unused variable `p3864' dynamic-stalin.c:65345: warning: unused variable `p3858' dynamic-stalin.c:65342: warning: unused variable `p3852' dynamic-stalin.c:65339: warning: unused variable `p3846' dynamic-stalin.c:65299: warning: unused variable `e5772' dynamic-stalin.c:65294: warning: unused variable `e5766' dynamic-stalin.c:65289: warning: unused variable `e5760' dynamic-stalin.c:65284: warning: unused variable `e5754' dynamic-stalin.c:65279: warning: unused variable `e5748' dynamic-stalin.c:65274: warning: unused variable `e5742' dynamic-stalin.c:65269: warning: unused variable `e5736' dynamic-stalin.c:65264: warning: unused variable `e5730' dynamic-stalin.c:65255: warning: unused variable `e3912' dynamic-stalin.c:65250: warning: unused variable `e3906' dynamic-stalin.c:65245: warning: unused variable `e3900' dynamic-stalin.c:65240: warning: unused variable `e3894' dynamic-stalin.c:65235: warning: unused variable `e3888' dynamic-stalin.c:65230: warning: unused variable `e3882' dynamic-stalin.c:65225: warning: unused variable `e3876' dynamic-stalin.c:65220: warning: unused variable `e3870' dynamic-stalin.c:65215: warning: unused variable `e3864' dynamic-stalin.c:65210: warning: unused variable `e3858' dynamic-stalin.c:65205: warning: unused variable `e3852' dynamic-stalin.c:65200: warning: unused variable `e3846' dynamic-stalin.c:65182: warning: unused variable `e2216' dynamic-stalin.c:65181: warning: unused variable `e2215' dynamic-stalin.c:65180: warning: unused variable `e2214' dynamic-stalin.c:65179: warning: unused variable `e2213' dynamic-stalin.c:65178: warning: unused variable `e2212' dynamic-stalin.c:65177: warning: unused variable `e2211' dynamic-stalin.c:65176: warning: unused variable `e2210' dynamic-stalin.c:65175: warning: unused variable `e2209' dynamic-stalin.c:65174: warning: unused variable `e2208' dynamic-stalin.c:64760: warning: unused variable `a6183' dynamic-stalin.c:64751: warning: unused variable `a6174' dynamic-stalin.c:64742: warning: unused variable `a6165' dynamic-stalin.c:64733: warning: unused variable `a6156' dynamic-stalin.c:64724: warning: unused variable `a6147' dynamic-stalin.c:64715: warning: unused variable `a6138' dynamic-stalin.c:64706: warning: unused variable `a6129' dynamic-stalin.c:64697: warning: unused variable `a6120' dynamic-stalin.c:64684: warning: unused variable `a4043' dynamic-stalin.c:64675: warning: unused variable `a4034' dynamic-stalin.c:64666: warning: unused variable `a4025' dynamic-stalin.c:64657: warning: unused variable `a4016' dynamic-stalin.c:64648: warning: unused variable `a4007' dynamic-stalin.c:64639: warning: unused variable `a3998' dynamic-stalin.c:64630: warning: unused variable `a3989' dynamic-stalin.c:64621: warning: unused variable `a3980' dynamic-stalin.c:64612: warning: unused variable `a3971' dynamic-stalin.c:64603: warning: unused variable `a3962' dynamic-stalin.c:64594: warning: unused variable `a3953' dynamic-stalin.c:64585: warning: unused variable `a3944' dynamic-stalin.c:64561: warning: unused variable `a2775' dynamic-stalin.c:64560: warning: unused variable `a2774' dynamic-stalin.c:64559: warning: unused variable `a2773' dynamic-stalin.c:64558: warning: unused variable `a2772' dynamic-stalin.c:64557: warning: unused variable `a2771' dynamic-stalin.c:64556: warning: unused variable `a2770' dynamic-stalin.c:64555: warning: unused variable `a2769' dynamic-stalin.c:64554: warning: unused variable `a2768' dynamic-stalin.c:64553: warning: unused variable `a2767' dynamic-stalin.c:64564: warning: `a2778' might be used uninitialized in this function dynamic-stalin.c:64566: warning: `a2780' might be used uninitialized in this function dynamic-stalin.c:64567: warning: `a2781' might be used uninitialized in this function dynamic-stalin.c:64569: warning: `a2783' might be used uninitialized in this function dynamic-stalin.c:64570: warning: `a2784' might be used uninitialized in this function dynamic-stalin.c:64579: warning: `a3938' might be used uninitialized in this function dynamic-stalin.c:64581: warning: `a3940' might be used uninitialized in this function dynamic-stalin.c:64584: warning: `a3943' might be used uninitialized in this function dynamic-stalin.c:64588: warning: `a3947' might be used uninitialized in this function dynamic-stalin.c:64590: warning: `a3949' might be used uninitialized in this function dynamic-stalin.c:64593: warning: `a3952' might be used uninitialized in this function dynamic-stalin.c:64597: warning: `a3956' might be used uninitialized in this function dynamic-stalin.c:64599: warning: `a3958' might be used uninitialized in this function dynamic-stalin.c:64602: warning: `a3961' might be used uninitialized in this function dynamic-stalin.c:64606: warning: `a3965' might be used uninitialized in this function dynamic-stalin.c:64608: warning: `a3967' might be used uninitialized in this function dynamic-stalin.c:64611: warning: `a3970' might be used uninitialized in this function dynamic-stalin.c:64615: warning: `a3974' might be used uninitialized in this function dynamic-stalin.c:64617: warning: `a3976' might be used uninitialized in this function dynamic-stalin.c:64620: warning: `a3979' might be used uninitialized in this function dynamic-stalin.c:64624: warning: `a3983' might be used uninitialized in this function dynamic-stalin.c:64626: warning: `a3985' might be used uninitialized in this function dynamic-stalin.c:64629: warning: `a3988' might be used uninitialized in this function dynamic-stalin.c:64633: warning: `a3992' might be used uninitialized in this function dynamic-stalin.c:64635: warning: `a3994' might be used uninitialized in this function dynamic-stalin.c:64638: warning: `a3997' might be used uninitialized in this function dynamic-stalin.c:64642: warning: `a4001' might be used uninitialized in this function dynamic-stalin.c:64644: warning: `a4003' might be used uninitialized in this function dynamic-stalin.c:64647: warning: `a4006' might be used uninitialized in this function dynamic-stalin.c:64651: warning: `a4010' might be used uninitialized in this function dynamic-stalin.c:64653: warning: `a4012' might be used uninitialized in this function dynamic-stalin.c:64656: warning: `a4015' might be used uninitialized in this function dynamic-stalin.c:64660: warning: `a4019' might be used uninitialized in this function dynamic-stalin.c:64662: warning: `a4021' might be used uninitialized in this function dynamic-stalin.c:64665: warning: `a4024' might be used uninitialized in this function dynamic-stalin.c:64669: warning: `a4028' might be used uninitialized in this function dynamic-stalin.c:64671: warning: `a4030' might be used uninitialized in this function dynamic-stalin.c:64674: warning: `a4033' might be used uninitialized in this function dynamic-stalin.c:64678: warning: `a4037' might be used uninitialized in this function dynamic-stalin.c:64680: warning: `a4039' might be used uninitialized in this function dynamic-stalin.c:64683: warning: `a4042' might be used uninitialized in this function dynamic-stalin.c:64691: warning: `a6114' might be used uninitialized in this function dynamic-stalin.c:64693: warning: `a6116' might be used uninitialized in this function dynamic-stalin.c:64696: warning: `a6119' might be used uninitialized in this function dynamic-stalin.c:64700: warning: `a6123' might be used uninitialized in this function dynamic-stalin.c:64702: warning: `a6125' might be used uninitialized in this function dynamic-stalin.c:64705: warning: `a6128' might be used uninitialized in this function dynamic-stalin.c:64709: warning: `a6132' might be used uninitialized in this function dynamic-stalin.c:64711: warning: `a6134' might be used uninitialized in this function dynamic-stalin.c:64714: warning: `a6137' might be used uninitialized in this function dynamic-stalin.c:64718: warning: `a6141' might be used uninitialized in this function dynamic-stalin.c:64720: warning: `a6143' might be used uninitialized in this function dynamic-stalin.c:64723: warning: `a6146' might be used uninitialized in this function dynamic-stalin.c:64727: warning: `a6150' might be used uninitialized in this function dynamic-stalin.c:64729: warning: `a6152' might be used uninitialized in this function dynamic-stalin.c:64732: warning: `a6155' might be used uninitialized in this function dynamic-stalin.c:64736: warning: `a6159' might be used uninitialized in this function dynamic-stalin.c:64738: warning: `a6161' might be used uninitialized in this function dynamic-stalin.c:64741: warning: `a6164' might be used uninitialized in this function dynamic-stalin.c:64745: warning: `a6168' might be used uninitialized in this function dynamic-stalin.c:64747: warning: `a6170' might be used uninitialized in this function dynamic-stalin.c:64750: warning: `a6173' might be used uninitialized in this function dynamic-stalin.c:64754: warning: `a6177' might be used uninitialized in this function dynamic-stalin.c:64756: warning: `a6179' might be used uninitialized in this function dynamic-stalin.c:64759: warning: `a6182' might be used uninitialized in this function dynamic-stalin.c:64925: warning: `t4350' might be used uninitialized in this function dynamic-stalin.c:65136: warning: `t4679' might be used uninitialized in this function dynamic-stalin.c: In function `f2193': dynamic-stalin.c:69150: warning: value computed is not used dynamic-stalin.c:69456: warning: value computed is not used dynamic-stalin.c:69763: warning: value computed is not used dynamic-stalin.c:68777: warning: unused variable `p6030' dynamic-stalin.c:68774: warning: unused variable `p6024' dynamic-stalin.c:68770: warning: unused variable `p3684' dynamic-stalin.c:68767: warning: unused variable `p3678' dynamic-stalin.c:68764: warning: unused variable `p3588' dynamic-stalin.c:68761: warning: unused variable `p3582' dynamic-stalin.c:68741: warning: unused variable `e6030' dynamic-stalin.c:68736: warning: unused variable `e6024' dynamic-stalin.c:68730: warning: unused variable `e3684' dynamic-stalin.c:68725: warning: unused variable `e3678' dynamic-stalin.c:68720: warning: unused variable `e3588' dynamic-stalin.c:68715: warning: unused variable `e3582' dynamic-stalin.c:68535: warning: unused variable `a6561' dynamic-stalin.c:68526: warning: unused variable `a6552' dynamic-stalin.c:68516: warning: unused variable `a3701' dynamic-stalin.c:68507: warning: unused variable `a3692' dynamic-stalin.c:68498: warning: unused variable `a3557' dynamic-stalin.c:68489: warning: unused variable `a3548' dynamic-stalin.c:68483: warning: `a3542' might be used uninitialized in this function dynamic-stalin.c:68485: warning: `a3544' might be used uninitialized in this function dynamic-stalin.c:68488: warning: `a3547' might be used uninitialized in this function dynamic-stalin.c:68492: warning: `a3551' might be used uninitialized in this function dynamic-stalin.c:68494: warning: `a3553' might be used uninitialized in this function dynamic-stalin.c:68497: warning: `a3556' might be used uninitialized in this function dynamic-stalin.c:68501: warning: `a3686' might be used uninitialized in this function dynamic-stalin.c:68503: warning: `a3688' might be used uninitialized in this function dynamic-stalin.c:68506: warning: `a3691' might be used uninitialized in this function dynamic-stalin.c:68510: warning: `a3695' might be used uninitialized in this function dynamic-stalin.c:68512: warning: `a3697' might be used uninitialized in this function dynamic-stalin.c:68515: warning: `a3700' might be used uninitialized in this function dynamic-stalin.c:68520: warning: `a6546' might be used uninitialized in this function dynamic-stalin.c:68522: warning: `a6548' might be used uninitialized in this function dynamic-stalin.c:68525: warning: `a6551' might be used uninitialized in this function dynamic-stalin.c:68529: warning: `a6555' might be used uninitialized in this function dynamic-stalin.c:68531: warning: `a6557' might be used uninitialized in this function dynamic-stalin.c:68534: warning: `a6560' might be used uninitialized in this function dynamic-stalin.c:68622: warning: `t4867' might be used uninitialized in this function dynamic-stalin.c:68646: warning: `t4902' might be used uninitialized in this function dynamic-stalin.c:68670: warning: `t4937' might be used uninitialized in this function dynamic-stalin.c: In function `f2187': dynamic-stalin.c:70298: warning: value computed is not used dynamic-stalin.c:69925: warning: unused variable `p5718' dynamic-stalin.c:69922: warning: unused variable `p5712' dynamic-stalin.c:69909: warning: unused variable `e5718' dynamic-stalin.c:69904: warning: unused variable `e5712' dynamic-stalin.c:69827: warning: unused variable `a6102' dynamic-stalin.c:69818: warning: unused variable `a6093' dynamic-stalin.c:69812: warning: `a6087' might be used uninitialized in this function dynamic-stalin.c:69814: warning: `a6089' might be used uninitialized in this function dynamic-stalin.c:69817: warning: `a6092' might be used uninitialized in this function dynamic-stalin.c:69821: warning: `a6096' might be used uninitialized in this function dynamic-stalin.c:69823: warning: `a6098' might be used uninitialized in this function dynamic-stalin.c:69826: warning: `a6101' might be used uninitialized in this function dynamic-stalin.c:69862: warning: `t5037' might be used uninitialized in this function dynamic-stalin.c: In function `f2181': dynamic-stalin.c:70802: warning: value computed is not used dynamic-stalin.c:70454: warning: unused variable `p3642' dynamic-stalin.c:70442: warning: unused variable `p1496' dynamic-stalin.c:70439: warning: unused variable `e3642' dynamic-stalin.c:70430: warning: unused variable `e1496' dynamic-stalin.c:70360: warning: unused variable `a3638' dynamic-stalin.c:70347: warning: unused variable `a2179' dynamic-stalin.c:70341: warning: `a2173' might be used uninitialized in this function dynamic-stalin.c:70343: warning: `a2175' might be used uninitialized in this function dynamic-stalin.c:70346: warning: `a2178' might be used uninitialized in this function dynamic-stalin.c:70354: warning: `a3632' might be used uninitialized in this function dynamic-stalin.c:70356: warning: `a3634' might be used uninitialized in this function dynamic-stalin.c:70359: warning: `a3637' might be used uninitialized in this function dynamic-stalin.c:70393: warning: `t5135' might be used uninitialized in this function dynamic-stalin.c: In function `f2173': dynamic-stalin.c:71216: warning: value computed is not used dynamic-stalin.c:71406: warning: value computed is not used dynamic-stalin.c:70979: warning: unused variable `p3780' dynamic-stalin.c:70976: warning: unused variable `p3774' dynamic-stalin.c:70960: warning: unused variable `e3780' dynamic-stalin.c:70955: warning: unused variable `e3774' dynamic-stalin.c:70866: warning: unused variable `a3845' dynamic-stalin.c:70857: warning: unused variable `a3836' dynamic-stalin.c:70851: warning: `a3830' might be used uninitialized in this function dynamic-stalin.c:70853: warning: `a3832' might be used uninitialized in this function dynamic-stalin.c:70856: warning: `a3835' might be used uninitialized in this function dynamic-stalin.c:70860: warning: `a3839' might be used uninitialized in this function dynamic-stalin.c:70862: warning: `a3841' might be used uninitialized in this function dynamic-stalin.c:70865: warning: `a3844' might be used uninitialized in this function dynamic-stalin.c:70899: warning: `t5233' might be used uninitialized in this function dynamic-stalin.c:70918: warning: `t5260' might be used uninitialized in this function dynamic-stalin.c: In function `f1940': dynamic-stalin.c:79051: warning: value computed is not used dynamic-stalin.c:91602: warning: value computed is not used dynamic-stalin.c:92947: warning: value computed is not used dynamic-stalin.c:93142: warning: value computed is not used dynamic-stalin.c:93556: warning: value computed is not used dynamic-stalin.c:94294: warning: value computed is not used dynamic-stalin.c:95186: warning: value computed is not used dynamic-stalin.c:95845: warning: value computed is not used dynamic-stalin.c:96053: warning: value computed is not used dynamic-stalin.c:96467: warning: value computed is not used dynamic-stalin.c:97205: warning: value computed is not used dynamic-stalin.c:98097: warning: value computed is not used dynamic-stalin.c:98774: warning: value computed is not used dynamic-stalin.c:99511: warning: value computed is not used dynamic-stalin.c:77603: warning: unused variable `p6126' dynamic-stalin.c:77600: warning: unused variable `p6120' dynamic-stalin.c:77597: warning: unused variable `p6114' dynamic-stalin.c:77594: warning: unused variable `p6108' dynamic-stalin.c:77591: warning: unused variable `p6102' dynamic-stalin.c:77588: warning: unused variable `p6096' dynamic-stalin.c:77585: warning: unused variable `p6090' dynamic-stalin.c:77582: warning: unused variable `p6084' dynamic-stalin.c:77579: warning: unused variable `p6078' dynamic-stalin.c:77576: warning: unused variable `p6072' dynamic-stalin.c:77573: warning: unused variable `p6066' dynamic-stalin.c:77570: warning: unused variable `p6060' dynamic-stalin.c:77567: warning: unused variable `p6054' dynamic-stalin.c:77564: warning: unused variable `p6048' dynamic-stalin.c:77561: warning: unused variable `p6042' dynamic-stalin.c:77558: warning: unused variable `p6036' dynamic-stalin.c:77555: warning: unused variable `p6018' dynamic-stalin.c:77552: warning: unused variable `p6012' dynamic-stalin.c:77543: warning: unused variable `p5998' dynamic-stalin.c:77540: warning: unused variable `p5992' dynamic-stalin.c:77537: warning: unused variable `p5986' dynamic-stalin.c:77534: warning: unused variable `p5980' dynamic-stalin.c:77531: warning: unused variable `p5974' dynamic-stalin.c:77528: warning: unused variable `p5968' dynamic-stalin.c:77525: warning: unused variable `p5962' dynamic-stalin.c:77522: warning: unused variable `p5956' dynamic-stalin.c:77519: warning: unused variable `p5950' dynamic-stalin.c:77516: warning: unused variable `p5944' dynamic-stalin.c:77513: warning: unused variable `p5938' dynamic-stalin.c:77509: warning: unused variable `p5931' dynamic-stalin.c:77506: warning: unused variable `p5925' dynamic-stalin.c:77503: warning: unused variable `p5919' dynamic-stalin.c:77500: warning: unused variable `p5913' dynamic-stalin.c:77497: warning: unused variable `p5907' dynamic-stalin.c:77494: warning: unused variable `p5901' dynamic-stalin.c:77490: warning: unused variable `p5894' dynamic-stalin.c:77487: warning: unused variable `p5888' dynamic-stalin.c:77484: warning: unused variable `p5882' dynamic-stalin.c:77481: warning: unused variable `p5876' dynamic-stalin.c:77478: warning: unused variable `p5870' dynamic-stalin.c:77475: warning: unused variable `p5864' dynamic-stalin.c:77472: warning: unused variable `p5858' dynamic-stalin.c:77469: warning: unused variable `p5852' dynamic-stalin.c:77465: warning: unused variable `p5845' dynamic-stalin.c:77462: warning: unused variable `p5839' dynamic-stalin.c:77459: warning: unused variable `p5833' dynamic-stalin.c:77456: warning: unused variable `p5827' dynamic-stalin.c:77453: warning: unused variable `p5821' dynamic-stalin.c:77450: warning: unused variable `p5815' dynamic-stalin.c:77446: warning: unused variable `p5808' dynamic-stalin.c:77443: warning: unused variable `p5802' dynamic-stalin.c:77440: warning: unused variable `p5796' dynamic-stalin.c:77437: warning: unused variable `p5790' dynamic-stalin.c:77434: warning: unused variable `p5784' dynamic-stalin.c:77431: warning: unused variable `p5682' dynamic-stalin.c:77428: warning: unused variable `p5621' dynamic-stalin.c:77361: warning: unused variable `p4278' dynamic-stalin.c:77358: warning: unused variable `p4272' dynamic-stalin.c:77355: warning: unused variable `p4266' dynamic-stalin.c:77352: warning: unused variable `p4260' dynamic-stalin.c:77349: warning: unused variable `p4254' dynamic-stalin.c:77346: warning: unused variable `p4248' dynamic-stalin.c:77343: warning: unused variable `p4242' dynamic-stalin.c:77340: warning: unused variable `p4236' dynamic-stalin.c:77337: warning: unused variable `p4230' dynamic-stalin.c:77334: warning: unused variable `p4224' dynamic-stalin.c:77331: warning: unused variable `p4218' dynamic-stalin.c:77328: warning: unused variable `p4062' dynamic-stalin.c:77325: warning: unused variable `p4056' dynamic-stalin.c:77322: warning: unused variable `p4050' dynamic-stalin.c:77319: warning: unused variable `p4038' dynamic-stalin.c:77316: warning: unused variable `p4032' dynamic-stalin.c:77313: warning: unused variable `p4026' dynamic-stalin.c:77310: warning: unused variable `p4020' dynamic-stalin.c:77307: warning: unused variable `p4014' dynamic-stalin.c:77304: warning: unused variable `p4008' dynamic-stalin.c:77301: warning: unused variable `p4002' dynamic-stalin.c:77298: warning: unused variable `p3996' dynamic-stalin.c:77295: warning: unused variable `p3990' dynamic-stalin.c:77292: warning: unused variable `p3984' dynamic-stalin.c:77289: warning: unused variable `p3978' dynamic-stalin.c:77286: warning: unused variable `p3972' dynamic-stalin.c:77283: warning: unused variable `p3966' dynamic-stalin.c:77280: warning: unused variable `p3960' dynamic-stalin.c:77277: warning: unused variable `p3954' dynamic-stalin.c:77274: warning: unused variable `p3948' dynamic-stalin.c:77271: warning: unused variable `p3942' dynamic-stalin.c:77268: warning: unused variable `p3936' dynamic-stalin.c:77265: warning: unused variable `p3930' dynamic-stalin.c:77262: warning: unused variable `p3924' dynamic-stalin.c:77259: warning: unused variable `p3918' dynamic-stalin.c:77256: warning: unused variable `p3840' dynamic-stalin.c:77253: warning: unused variable `p3834' dynamic-stalin.c:77250: warning: unused variable `p3828' dynamic-stalin.c:77247: warning: unused variable `p3822' dynamic-stalin.c:77244: warning: unused variable `p3816' dynamic-stalin.c:77241: warning: unused variable `p3810' dynamic-stalin.c:77238: warning: unused variable `p3804' dynamic-stalin.c:77235: warning: unused variable `p3798' dynamic-stalin.c:77232: warning: unused variable `p3792' dynamic-stalin.c:77229: warning: unused variable `p3786' dynamic-stalin.c:77226: warning: unused variable `p3768' dynamic-stalin.c:77223: warning: unused variable `p3762' dynamic-stalin.c:77220: warning: unused variable `p3756' dynamic-stalin.c:77217: warning: unused variable `p3750' dynamic-stalin.c:77214: warning: unused variable `p3744' dynamic-stalin.c:77211: warning: unused variable `p3738' dynamic-stalin.c:77208: warning: unused variable `p3726' dynamic-stalin.c:77205: warning: unused variable `p3720' dynamic-stalin.c:77202: warning: unused variable `p3708' dynamic-stalin.c:77199: warning: unused variable `p3696' dynamic-stalin.c:77196: warning: unused variable `p3690' dynamic-stalin.c:77193: warning: unused variable `p3672' dynamic-stalin.c:77190: warning: unused variable `p3666' dynamic-stalin.c:77187: warning: unused variable `p3660' dynamic-stalin.c:77184: warning: unused variable `p3654' dynamic-stalin.c:77181: warning: unused variable `p3648' dynamic-stalin.c:77178: warning: unused variable `p3630' dynamic-stalin.c:77175: warning: unused variable `p3624' dynamic-stalin.c:77172: warning: unused variable `p3612' dynamic-stalin.c:77169: warning: unused variable `p3606' dynamic-stalin.c:77166: warning: unused variable `p3600' dynamic-stalin.c:77163: warning: unused variable `p3594' dynamic-stalin.c:77160: warning: unused variable `p3576' dynamic-stalin.c:77157: warning: unused variable `p3570' dynamic-stalin.c:77154: warning: unused variable `p3564' dynamic-stalin.c:76884: warning: unused variable `p1490' dynamic-stalin.c:76881: warning: unused variable `p1484' dynamic-stalin.c:76878: warning: unused variable `p1478' dynamic-stalin.c:76875: warning: unused variable `e6126' dynamic-stalin.c:76870: warning: unused variable `e6120' dynamic-stalin.c:76865: warning: unused variable `e6114' dynamic-stalin.c:76860: warning: unused variable `e6108' dynamic-stalin.c:76855: warning: unused variable `e6102' dynamic-stalin.c:76850: warning: unused variable `e6096' dynamic-stalin.c:76845: warning: unused variable `e6090' dynamic-stalin.c:76840: warning: unused variable `e6084' dynamic-stalin.c:76835: warning: unused variable `e6078' dynamic-stalin.c:76830: warning: unused variable `e6072' dynamic-stalin.c:76825: warning: unused variable `e6066' dynamic-stalin.c:76820: warning: unused variable `e6060' dynamic-stalin.c:76815: warning: unused variable `e6054' dynamic-stalin.c:76810: warning: unused variable `e6048' dynamic-stalin.c:76805: warning: unused variable `e6042' dynamic-stalin.c:76800: warning: unused variable `e6036' dynamic-stalin.c:76795: warning: unused variable `e6018' dynamic-stalin.c:76790: warning: unused variable `e6012' dynamic-stalin.c:76780: warning: unused variable `e5998' dynamic-stalin.c:76775: warning: unused variable `e5992' dynamic-stalin.c:76770: warning: unused variable `e5986' dynamic-stalin.c:76765: warning: unused variable `e5980' dynamic-stalin.c:76760: warning: unused variable `e5974' dynamic-stalin.c:76755: warning: unused variable `e5968' dynamic-stalin.c:76750: warning: unused variable `e5962' dynamic-stalin.c:76745: warning: unused variable `e5956' dynamic-stalin.c:76740: warning: unused variable `e5950' dynamic-stalin.c:76735: warning: unused variable `e5944' dynamic-stalin.c:76730: warning: unused variable `e5938' dynamic-stalin.c:76724: warning: unused variable `e5931' dynamic-stalin.c:76719: warning: unused variable `e5925' dynamic-stalin.c:76714: warning: unused variable `e5919' dynamic-stalin.c:76709: warning: unused variable `e5913' dynamic-stalin.c:76704: warning: unused variable `e5907' dynamic-stalin.c:76699: warning: unused variable `e5901' dynamic-stalin.c:76693: warning: unused variable `e5894' dynamic-stalin.c:76688: warning: unused variable `e5888' dynamic-stalin.c:76683: warning: unused variable `e5882' dynamic-stalin.c:76678: warning: unused variable `e5876' dynamic-stalin.c:76673: warning: unused variable `e5870' dynamic-stalin.c:76668: warning: unused variable `e5864' dynamic-stalin.c:76663: warning: unused variable `e5858' dynamic-stalin.c:76658: warning: unused variable `e5852' dynamic-stalin.c:76652: warning: unused variable `e5845' dynamic-stalin.c:76647: warning: unused variable `e5839' dynamic-stalin.c:76642: warning: unused variable `e5833' dynamic-stalin.c:76637: warning: unused variable `e5827' dynamic-stalin.c:76632: warning: unused variable `e5821' dynamic-stalin.c:76627: warning: unused variable `e5815' dynamic-stalin.c:76621: warning: unused variable `e5808' dynamic-stalin.c:76616: warning: unused variable `e5802' dynamic-stalin.c:76611: warning: unused variable `e5796' dynamic-stalin.c:76606: warning: unused variable `e5790' dynamic-stalin.c:76601: warning: unused variable `e5784' dynamic-stalin.c:76596: warning: unused variable `e5682' dynamic-stalin.c:76591: warning: unused variable `e5621' dynamic-stalin.c:76579: warning: unused variable `e5033' dynamic-stalin.c:76578: warning: unused variable `e5032' dynamic-stalin.c:76577: warning: unused variable `e5031' dynamic-stalin.c:76576: warning: unused variable `e5030' dynamic-stalin.c:76574: warning: unused variable `e5028' dynamic-stalin.c:76573: warning: unused variable `e5027' dynamic-stalin.c:76572: warning: unused variable `e5026' dynamic-stalin.c:76571: warning: unused variable `e5025' dynamic-stalin.c:76569: warning: unused variable `e5023' dynamic-stalin.c:76568: warning: unused variable `e5022' dynamic-stalin.c:76567: warning: unused variable `e5021' dynamic-stalin.c:76566: warning: unused variable `e5020' dynamic-stalin.c:76564: warning: unused variable `e5018' dynamic-stalin.c:76563: warning: unused variable `e5017' dynamic-stalin.c:76562: warning: unused variable `e5016' dynamic-stalin.c:76561: warning: unused variable `e5015' dynamic-stalin.c:76559: warning: unused variable `e4984' dynamic-stalin.c:76517: warning: unused variable `e4278' dynamic-stalin.c:76512: warning: unused variable `e4272' dynamic-stalin.c:76507: warning: unused variable `e4266' dynamic-stalin.c:76502: warning: unused variable `e4260' dynamic-stalin.c:76497: warning: unused variable `e4254' dynamic-stalin.c:76492: warning: unused variable `e4248' dynamic-stalin.c:76487: warning: unused variable `e4242' dynamic-stalin.c:76482: warning: unused variable `e4236' dynamic-stalin.c:76477: warning: unused variable `e4230' dynamic-stalin.c:76472: warning: unused variable `e4224' dynamic-stalin.c:76467: warning: unused variable `e4218' dynamic-stalin.c:76462: warning: unused variable `e4062' dynamic-stalin.c:76457: warning: unused variable `e4056' dynamic-stalin.c:76452: warning: unused variable `e4050' dynamic-stalin.c:76447: warning: unused variable `e4038' dynamic-stalin.c:76442: warning: unused variable `e4032' dynamic-stalin.c:76437: warning: unused variable `e4026' dynamic-stalin.c:76432: warning: unused variable `e4020' dynamic-stalin.c:76427: warning: unused variable `e4014' dynamic-stalin.c:76422: warning: unused variable `e4008' dynamic-stalin.c:76417: warning: unused variable `e4002' dynamic-stalin.c:76412: warning: unused variable `e3996' dynamic-stalin.c:76407: warning: unused variable `e3990' dynamic-stalin.c:76402: warning: unused variable `e3984' dynamic-stalin.c:76397: warning: unused variable `e3978' dynamic-stalin.c:76392: warning: unused variable `e3972' dynamic-stalin.c:76387: warning: unused variable `e3966' dynamic-stalin.c:76382: warning: unused variable `e3960' dynamic-stalin.c:76377: warning: unused variable `e3954' dynamic-stalin.c:76372: warning: unused variable `e3948' dynamic-stalin.c:76367: warning: unused variable `e3942' dynamic-stalin.c:76362: warning: unused variable `e3936' dynamic-stalin.c:76357: warning: unused variable `e3930' dynamic-stalin.c:76352: warning: unused variable `e3924' dynamic-stalin.c:76347: warning: unused variable `e3918' dynamic-stalin.c:76342: warning: unused variable `e3840' dynamic-stalin.c:76337: warning: unused variable `e3834' dynamic-stalin.c:76332: warning: unused variable `e3828' dynamic-stalin.c:76327: warning: unused variable `e3822' dynamic-stalin.c:76322: warning: unused variable `e3816' dynamic-stalin.c:76317: warning: unused variable `e3810' dynamic-stalin.c:76312: warning: unused variable `e3804' dynamic-stalin.c:76307: warning: unused variable `e3798' dynamic-stalin.c:76302: warning: unused variable `e3792' dynamic-stalin.c:76297: warning: unused variable `e3786' dynamic-stalin.c:76292: warning: unused variable `e3768' dynamic-stalin.c:76287: warning: unused variable `e3762' dynamic-stalin.c:76282: warning: unused variable `e3756' dynamic-stalin.c:76277: warning: unused variable `e3750' dynamic-stalin.c:76272: warning: unused variable `e3744' dynamic-stalin.c:76267: warning: unused variable `e3738' dynamic-stalin.c:76262: warning: unused variable `e3726' dynamic-stalin.c:76257: warning: unused variable `e3720' dynamic-stalin.c:76252: warning: unused variable `e3708' dynamic-stalin.c:76247: warning: unused variable `e3696' dynamic-stalin.c:76242: warning: unused variable `e3690' dynamic-stalin.c:76237: warning: unused variable `e3672' dynamic-stalin.c:76232: warning: unused variable `e3666' dynamic-stalin.c:76227: warning: unused variable `e3660' dynamic-stalin.c:76222: warning: unused variable `e3654' dynamic-stalin.c:76217: warning: unused variable `e3648' dynamic-stalin.c:76212: warning: unused variable `e3630' dynamic-stalin.c:76207: warning: unused variable `e3624' dynamic-stalin.c:76202: warning: unused variable `e3612' dynamic-stalin.c:76197: warning: unused variable `e3606' dynamic-stalin.c:76192: warning: unused variable `e3600' dynamic-stalin.c:76187: warning: unused variable `e3594' dynamic-stalin.c:76182: warning: unused variable `e3576' dynamic-stalin.c:76177: warning: unused variable `e3570' dynamic-stalin.c:76172: warning: unused variable `e3564' dynamic-stalin.c:76111: warning: unused variable `e2288' dynamic-stalin.c:76110: warning: unused variable `e2287' dynamic-stalin.c:76109: warning: unused variable `e2286' dynamic-stalin.c:76108: warning: unused variable `e2285' dynamic-stalin.c:76069: warning: unused variable `e2075' dynamic-stalin.c:76056: warning: unused variable `e2041' dynamic-stalin.c:76055: warning: unused variable `e2037' dynamic-stalin.c:76052: warning: unused variable `e2031' dynamic-stalin.c:76047: warning: unused variable `e2022' dynamic-stalin.c:76040: warning: unused variable `e2000' dynamic-stalin.c:76039: warning: unused variable `e1998' dynamic-stalin.c:76038: warning: unused variable `e1996' dynamic-stalin.c:76014: warning: unused variable `e1536' dynamic-stalin.c:76013: warning: unused variable `e1535' dynamic-stalin.c:76012: warning: unused variable `e1534' dynamic-stalin.c:76011: warning: unused variable `e1533' dynamic-stalin.c:76008: warning: unused variable `e1529' dynamic-stalin.c:76006: warning: unused variable `e1490' dynamic-stalin.c:76001: warning: unused variable `e1484' dynamic-stalin.c:75996: warning: unused variable `e1478' dynamic-stalin.c:72878: warning: unused variable `a6705' dynamic-stalin.c:72869: warning: unused variable `a6696' dynamic-stalin.c:72860: warning: unused variable `a6687' dynamic-stalin.c:72851: warning: unused variable `a6678' dynamic-stalin.c:72842: warning: unused variable `a6669' dynamic-stalin.c:72833: warning: unused variable `a6660' dynamic-stalin.c:72824: warning: unused variable `a6651' dynamic-stalin.c:72815: warning: unused variable `a6642' dynamic-stalin.c:72806: warning: unused variable `a6633' dynamic-stalin.c:72797: warning: unused variable `a6624' dynamic-stalin.c:72788: warning: unused variable `a6615' dynamic-stalin.c:72779: warning: unused variable `a6606' dynamic-stalin.c:72770: warning: unused variable `a6597' dynamic-stalin.c:72761: warning: unused variable `a6588' dynamic-stalin.c:72752: warning: unused variable `a6579' dynamic-stalin.c:72743: warning: unused variable `a6570' dynamic-stalin.c:72734: warning: unused variable `a6543' dynamic-stalin.c:72725: warning: unused variable `a6534' dynamic-stalin.c:72711: warning: unused variable `a6520' dynamic-stalin.c:72702: warning: unused variable `a6511' dynamic-stalin.c:72693: warning: unused variable `a6502' dynamic-stalin.c:72684: warning: unused variable `a6493' dynamic-stalin.c:72675: warning: unused variable `a6484' dynamic-stalin.c:72666: warning: unused variable `a6475' dynamic-stalin.c:72657: warning: unused variable `a6466' dynamic-stalin.c:72648: warning: unused variable `a6457' dynamic-stalin.c:72639: warning: unused variable `a6448' dynamic-stalin.c:72630: warning: unused variable `a6439' dynamic-stalin.c:72621: warning: unused variable `a6430' dynamic-stalin.c:72611: warning: unused variable `a6420' dynamic-stalin.c:72602: warning: unused variable `a6411' dynamic-stalin.c:72593: warning: unused variable `a6402' dynamic-stalin.c:72584: warning: unused variable `a6393' dynamic-stalin.c:72575: warning: unused variable `a6384' dynamic-stalin.c:72566: warning: unused variable `a6375' dynamic-stalin.c:72556: warning: unused variable `a6365' dynamic-stalin.c:72547: warning: unused variable `a6356' dynamic-stalin.c:72538: warning: unused variable `a6347' dynamic-stalin.c:72529: warning: unused variable `a6338' dynamic-stalin.c:72520: warning: unused variable `a6329' dynamic-stalin.c:72511: warning: unused variable `a6320' dynamic-stalin.c:72502: warning: unused variable `a6311' dynamic-stalin.c:72493: warning: unused variable `a6302' dynamic-stalin.c:72483: warning: unused variable `a6292' dynamic-stalin.c:72474: warning: unused variable `a6283' dynamic-stalin.c:72465: warning: unused variable `a6274' dynamic-stalin.c:72456: warning: unused variable `a6265' dynamic-stalin.c:72447: warning: unused variable `a6256' dynamic-stalin.c:72438: warning: unused variable `a6247' dynamic-stalin.c:72428: warning: unused variable `a6237' dynamic-stalin.c:72419: warning: unused variable `a6228' dynamic-stalin.c:72410: warning: unused variable `a6219' dynamic-stalin.c:72401: warning: unused variable `a6210' dynamic-stalin.c:72392: warning: unused variable `a6201' dynamic-stalin.c:72383: warning: unused variable `a6048' dynamic-stalin.c:72374: warning: unused variable `a5957' dynamic-stalin.c:72357: warning: unused variable `a5590' dynamic-stalin.c:72356: warning: unused variable `a5589' dynamic-stalin.c:72355: warning: unused variable `a5588' dynamic-stalin.c:72354: warning: unused variable `a5587' dynamic-stalin.c:72352: warning: unused variable `a5585' dynamic-stalin.c:72351: warning: unused variable `a5584' dynamic-stalin.c:72350: warning: unused variable `a5583' dynamic-stalin.c:72349: warning: unused variable `a5582' dynamic-stalin.c:72347: warning: unused variable `a5580' dynamic-stalin.c:72346: warning: unused variable `a5579' dynamic-stalin.c:72345: warning: unused variable `a5578' dynamic-stalin.c:72344: warning: unused variable `a5577' dynamic-stalin.c:72342: warning: unused variable `a5575' dynamic-stalin.c:72341: warning: unused variable `a5574' dynamic-stalin.c:72340: warning: unused variable `a5573' dynamic-stalin.c:72339: warning: unused variable `a5572' dynamic-stalin.c:72337: warning: unused variable `a5544' dynamic-stalin.c:72292: warning: unused variable `a4592' dynamic-stalin.c:72283: warning: unused variable `a4583' dynamic-stalin.c:72274: warning: unused variable `a4574' dynamic-stalin.c:72265: warning: unused variable `a4565' dynamic-stalin.c:72256: warning: unused variable `a4556' dynamic-stalin.c:72247: warning: unused variable `a4547' dynamic-stalin.c:72238: warning: unused variable `a4538' dynamic-stalin.c:72229: warning: unused variable `a4529' dynamic-stalin.c:72220: warning: unused variable `a4520' dynamic-stalin.c:72211: warning: unused variable `a4511' dynamic-stalin.c:72202: warning: unused variable `a4502' dynamic-stalin.c:72193: warning: unused variable `a4268' dynamic-stalin.c:72184: warning: unused variable `a4259' dynamic-stalin.c:72175: warning: unused variable `a4250' dynamic-stalin.c:72166: warning: unused variable `a4232' dynamic-stalin.c:72157: warning: unused variable `a4223' dynamic-stalin.c:72148: warning: unused variable `a4214' dynamic-stalin.c:72139: warning: unused variable `a4205' dynamic-stalin.c:72130: warning: unused variable `a4196' dynamic-stalin.c:72121: warning: unused variable `a4187' dynamic-stalin.c:72112: warning: unused variable `a4178' dynamic-stalin.c:72103: warning: unused variable `a4169' dynamic-stalin.c:72094: warning: unused variable `a4160' dynamic-stalin.c:72085: warning: unused variable `a4151' dynamic-stalin.c:72076: warning: unused variable `a4142' dynamic-stalin.c:72067: warning: unused variable `a4133' dynamic-stalin.c:72058: warning: unused variable `a4124' dynamic-stalin.c:72049: warning: unused variable `a4115' dynamic-stalin.c:72040: warning: unused variable `a4106' dynamic-stalin.c:72031: warning: unused variable `a4097' dynamic-stalin.c:72022: warning: unused variable `a4088' dynamic-stalin.c:72013: warning: unused variable `a4079' dynamic-stalin.c:72004: warning: unused variable `a4070' dynamic-stalin.c:71995: warning: unused variable `a4061' dynamic-stalin.c:71986: warning: unused variable `a4052' dynamic-stalin.c:71977: warning: unused variable `a3935' dynamic-stalin.c:71968: warning: unused variable `a3926' dynamic-stalin.c:71959: warning: unused variable `a3917' dynamic-stalin.c:71950: warning: unused variable `a3908' dynamic-stalin.c:71941: warning: unused variable `a3899' dynamic-stalin.c:71932: warning: unused variable `a3890' dynamic-stalin.c:71923: warning: unused variable `a3881' dynamic-stalin.c:71914: warning: unused variable `a3872' dynamic-stalin.c:71905: warning: unused variable `a3863' dynamic-stalin.c:71896: warning: unused variable `a3854' dynamic-stalin.c:71887: warning: unused variable `a3827' dynamic-stalin.c:71878: warning: unused variable `a3818' dynamic-stalin.c:71869: warning: unused variable `a3809' dynamic-stalin.c:71860: warning: unused variable `a3800' dynamic-stalin.c:71851: warning: unused variable `a3791' dynamic-stalin.c:71842: warning: unused variable `a3782' dynamic-stalin.c:71833: warning: unused variable `a3764' dynamic-stalin.c:71824: warning: unused variable `a3755' dynamic-stalin.c:71815: warning: unused variable `a3737' dynamic-stalin.c:71806: warning: unused variable `a3719' dynamic-stalin.c:71797: warning: unused variable `a3710' dynamic-stalin.c:71788: warning: unused variable `a3683' dynamic-stalin.c:71779: warning: unused variable `a3674' dynamic-stalin.c:71770: warning: unused variable `a3665' dynamic-stalin.c:71761: warning: unused variable `a3656' dynamic-stalin.c:71752: warning: unused variable `a3647' dynamic-stalin.c:71743: warning: unused variable `a3620' dynamic-stalin.c:71734: warning: unused variable `a3611' dynamic-stalin.c:71725: warning: unused variable `a3593' dynamic-stalin.c:71716: warning: unused variable `a3584' dynamic-stalin.c:71707: warning: unused variable `a3575' dynamic-stalin.c:71698: warning: unused variable `a3566' dynamic-stalin.c:71689: warning: unused variable `a3539' dynamic-stalin.c:71680: warning: unused variable `a3530' dynamic-stalin.c:71671: warning: unused variable `a3521' dynamic-stalin.c:71606: warning: unused variable `a2826' dynamic-stalin.c:71605: warning: unused variable `a2825' dynamic-stalin.c:71604: warning: unused variable `a2824' dynamic-stalin.c:71603: warning: unused variable `a2823' dynamic-stalin.c:71564: warning: unused variable `a2710' dynamic-stalin.c:71548: warning: unused variable `a2694' dynamic-stalin.c:71547: warning: unused variable `a2693' dynamic-stalin.c:71543: warning: unused variable `a2689' dynamic-stalin.c:71537: warning: unused variable `a2683' dynamic-stalin.c:71530: warning: unused variable `a2676' dynamic-stalin.c:71529: warning: unused variable `a2675' dynamic-stalin.c:71528: warning: unused variable `a2674' dynamic-stalin.c:71483: warning: unused variable `a2233' dynamic-stalin.c:71482: warning: unused variable `a2232' dynamic-stalin.c:71481: warning: unused variable `a2231' dynamic-stalin.c:71480: warning: unused variable `a2230' dynamic-stalin.c:71477: warning: unused variable `a2226' dynamic-stalin.c:71475: warning: unused variable `a2170' dynamic-stalin.c:71466: warning: unused variable `a2161' dynamic-stalin.c:71457: warning: unused variable `a2152' dynamic-stalin.c:71451: warning: `a2146' might be used uninitialized in this function dynamic-stalin.c:71453: warning: `a2148' might be used uninitialized in this function dynamic-stalin.c:71456: warning: `a2151' might be used uninitialized in this function dynamic-stalin.c:71460: warning: `a2155' might be used uninitialized in this function dynamic-stalin.c:71462: warning: `a2157' might be used uninitialized in this function dynamic-stalin.c:71465: warning: `a2160' might be used uninitialized in this function dynamic-stalin.c:71469: warning: `a2164' might be used uninitialized in this function dynamic-stalin.c:71471: warning: `a2166' might be used uninitialized in this function dynamic-stalin.c:71474: warning: `a2169' might be used uninitialized in this function dynamic-stalin.c:71485: warning: `a2631' might be used uninitialized in this function dynamic-stalin.c:71486: warning: `a2632' might be used uninitialized in this function dynamic-stalin.c:71487: warning: `a2633' might be used uninitialized in this function dynamic-stalin.c:71488: warning: `a2634' might be used uninitialized in this function dynamic-stalin.c:71489: warning: `a2635' might be used uninitialized in this function dynamic-stalin.c:71490: warning: `a2636' might be used uninitialized in this function dynamic-stalin.c:71491: warning: `a2637' might be used uninitialized in this function dynamic-stalin.c:71492: warning: `a2638' might be used uninitialized in this function dynamic-stalin.c:71493: warning: `a2639' might be used uninitialized in this function dynamic-stalin.c:71494: warning: `a2640' might be used uninitialized in this function dynamic-stalin.c:71496: warning: `a2642' might be used uninitialized in this function dynamic-stalin.c:71497: warning: `a2643' might be used uninitialized in this function dynamic-stalin.c:71498: warning: `a2644' might be used uninitialized in this function dynamic-stalin.c:71499: warning: `a2645' might be used uninitialized in this function dynamic-stalin.c:71500: warning: `a2646' might be used uninitialized in this function dynamic-stalin.c:71501: warning: `a2647' might be used uninitialized in this function dynamic-stalin.c:71502: warning: `a2648' might be used uninitialized in this function dynamic-stalin.c:71503: warning: `a2649' might be used uninitialized in this function dynamic-stalin.c:71504: warning: `a2650' might be used uninitialized in this function dynamic-stalin.c:71505: warning: `a2651' might be used uninitialized in this function dynamic-stalin.c:71506: warning: `a2652' might be used uninitialized in this function dynamic-stalin.c:71508: warning: `a2654' might be used uninitialized in this function dynamic-stalin.c:71510: warning: `a2656' might be used uninitialized in this function dynamic-stalin.c:71511: warning: `a2657' might be used uninitialized in this function dynamic-stalin.c:71513: warning: `a2659' might be used uninitialized in this function dynamic-stalin.c:71516: warning: `a2662' might be used uninitialized in this function dynamic-stalin.c:71519: warning: `a2665' might be used uninitialized in this function dynamic-stalin.c:71523: warning: `a2669' might be used uninitialized in this function dynamic-stalin.c:71527: warning: `a2673' might be used uninitialized in this function dynamic-stalin.c:71532: warning: `a2678' might be used uninitialized in this function dynamic-stalin.c:71534: warning: `a2680' might be used uninitialized in this function dynamic-stalin.c:71536: warning: `a2682' might be used uninitialized in this function dynamic-stalin.c:71539: warning: `a2685' might be used uninitialized in this function dynamic-stalin.c:71541: warning: `a2687' might be used uninitialized in this function dynamic-stalin.c:71542: warning: `a2688' might be used uninitialized in this function dynamic-stalin.c:71545: warning: `a2691' might be used uninitialized in this function dynamic-stalin.c:71546: warning: `a2692' might be used uninitialized in this function dynamic-stalin.c:71550: warning: `a2696' might be used uninitialized in this function dynamic-stalin.c:71552: warning: `a2698' might be used uninitialized in this function dynamic-stalin.c:71554: warning: `a2700' might be used uninitialized in this function dynamic-stalin.c:71555: warning: `a2701' might be used uninitialized in this function dynamic-stalin.c:71557: warning: `a2703' might be used uninitialized in this function dynamic-stalin.c:71559: warning: `a2705' might be used uninitialized in this function dynamic-stalin.c:71560: warning: `a2706' might be used uninitialized in this function dynamic-stalin.c:71562: warning: `a2708' might be used uninitialized in this function dynamic-stalin.c:71563: warning: `a2709' might be used uninitialized in this function dynamic-stalin.c:71566: warning: `a2712' might be used uninitialized in this function dynamic-stalin.c:71568: warning: `a2714' might be used uninitialized in this function dynamic-stalin.c:71570: warning: `a2716' might be used uninitialized in this function dynamic-stalin.c:71572: warning: `a2718' might be used uninitialized in this function dynamic-stalin.c:71576: warning: `a2722' might be used uninitialized in this function dynamic-stalin.c:71578: warning: `a2724' might be used uninitialized in this function dynamic-stalin.c:71581: warning: `a2727' might be used uninitialized in this function dynamic-stalin.c:71583: warning: `a2729' might be used uninitialized in this function dynamic-stalin.c:71599: warning: `a2745' might be used uninitialized in this function dynamic-stalin.c:71665: warning: `a3515' might be used uninitialized in this function dynamic-stalin.c:71667: warning: `a3517' might be used uninitialized in this function dynamic-stalin.c:71670: warning: `a3520' might be used uninitialized in this function dynamic-stalin.c:71674: warning: `a3524' might be used uninitialized in this function dynamic-stalin.c:71676: warning: `a3526' might be used uninitialized in this function dynamic-stalin.c:71679: warning: `a3529' might be used uninitialized in this function dynamic-stalin.c:71683: warning: `a3533' might be used uninitialized in this function dynamic-stalin.c:71685: warning: `a3535' might be used uninitialized in this function dynamic-stalin.c:71688: warning: `a3538' might be used uninitialized in this function dynamic-stalin.c:71692: warning: `a3560' might be used uninitialized in this function dynamic-stalin.c:71694: warning: `a3562' might be used uninitialized in this function dynamic-stalin.c:71697: warning: `a3565' might be used uninitialized in this function dynamic-stalin.c:71701: warning: `a3569' might be used uninitialized in this function dynamic-stalin.c:71703: warning: `a3571' might be used uninitialized in this function dynamic-stalin.c:71706: warning: `a3574' might be used uninitialized in this function dynamic-stalin.c:71710: warning: `a3578' might be used uninitialized in this function dynamic-stalin.c:71712: warning: `a3580' might be used uninitialized in this function dynamic-stalin.c:71715: warning: `a3583' might be used uninitialized in this function dynamic-stalin.c:71719: warning: `a3587' might be used uninitialized in this function dynamic-stalin.c:71721: warning: `a3589' might be used uninitialized in this function dynamic-stalin.c:71724: warning: `a3592' might be used uninitialized in this function dynamic-stalin.c:71728: warning: `a3605' might be used uninitialized in this function dynamic-stalin.c:71730: warning: `a3607' might be used uninitialized in this function dynamic-stalin.c:71733: warning: `a3610' might be used uninitialized in this function dynamic-stalin.c:71737: warning: `a3614' might be used uninitialized in this function dynamic-stalin.c:71739: warning: `a3616' might be used uninitialized in this function dynamic-stalin.c:71742: warning: `a3619' might be used uninitialized in this function dynamic-stalin.c:71746: warning: `a3641' might be used uninitialized in this function dynamic-stalin.c:71748: warning: `a3643' might be used uninitialized in this function dynamic-stalin.c:71751: warning: `a3646' might be used uninitialized in this function dynamic-stalin.c:71755: warning: `a3650' might be used uninitialized in this function dynamic-stalin.c:71757: warning: `a3652' might be used uninitialized in this function dynamic-stalin.c:71760: warning: `a3655' might be used uninitialized in this function dynamic-stalin.c:71764: warning: `a3659' might be used uninitialized in this function dynamic-stalin.c:71766: warning: `a3661' might be used uninitialized in this function dynamic-stalin.c:71769: warning: `a3664' might be used uninitialized in this function dynamic-stalin.c:71773: warning: `a3668' might be used uninitialized in this function dynamic-stalin.c:71775: warning: `a3670' might be used uninitialized in this function dynamic-stalin.c:71778: warning: `a3673' might be used uninitialized in this function dynamic-stalin.c:71782: warning: `a3677' might be used uninitialized in this function dynamic-stalin.c:71784: warning: `a3679' might be used uninitialized in this function dynamic-stalin.c:71787: warning: `a3682' might be used uninitialized in this function dynamic-stalin.c:71791: warning: `a3704' might be used uninitialized in this function dynamic-stalin.c:71793: warning: `a3706' might be used uninitialized in this function dynamic-stalin.c:71796: warning: `a3709' might be used uninitialized in this function dynamic-stalin.c:71800: warning: `a3713' might be used uninitialized in this function dynamic-stalin.c:71802: warning: `a3715' might be used uninitialized in this function dynamic-stalin.c:71805: warning: `a3718' might be used uninitialized in this function dynamic-stalin.c:71809: warning: `a3731' might be used uninitialized in this function dynamic-stalin.c:71811: warning: `a3733' might be used uninitialized in this function dynamic-stalin.c:71814: warning: `a3736' might be used uninitialized in this function dynamic-stalin.c:71818: warning: `a3749' might be used uninitialized in this function dynamic-stalin.c:71820: warning: `a3751' might be used uninitialized in this function dynamic-stalin.c:71823: warning: `a3754' might be used uninitialized in this function dynamic-stalin.c:71827: warning: `a3758' might be used uninitialized in this function dynamic-stalin.c:71829: warning: `a3760' might be used uninitialized in this function dynamic-stalin.c:71832: warning: `a3763' might be used uninitialized in this function dynamic-stalin.c:71836: warning: `a3776' might be used uninitialized in this function dynamic-stalin.c:71838: warning: `a3778' might be used uninitialized in this function dynamic-stalin.c:71841: warning: `a3781' might be used uninitialized in this function dynamic-stalin.c:71845: warning: `a3785' might be used uninitialized in this function dynamic-stalin.c:71847: warning: `a3787' might be used uninitialized in this function dynamic-stalin.c:71850: warning: `a3790' might be used uninitialized in this function dynamic-stalin.c:71854: warning: `a3794' might be used uninitialized in this function dynamic-stalin.c:71856: warning: `a3796' might be used uninitialized in this function dynamic-stalin.c:71859: warning: `a3799' might be used uninitialized in this function dynamic-stalin.c:71863: warning: `a3803' might be used uninitialized in this function dynamic-stalin.c:71865: warning: `a3805' might be used uninitialized in this function dynamic-stalin.c:71868: warning: `a3808' might be used uninitialized in this function dynamic-stalin.c:71872: warning: `a3812' might be used uninitialized in this function dynamic-stalin.c:71874: warning: `a3814' might be used uninitialized in this function dynamic-stalin.c:71877: warning: `a3817' might be used uninitialized in this function dynamic-stalin.c:71881: warning: `a3821' might be used uninitialized in this function dynamic-stalin.c:71883: warning: `a3823' might be used uninitialized in this function dynamic-stalin.c:71886: warning: `a3826' might be used uninitialized in this function dynamic-stalin.c:71890: warning: `a3848' might be used uninitialized in this function dynamic-stalin.c:71892: warning: `a3850' might be used uninitialized in this function dynamic-stalin.c:71895: warning: `a3853' might be used uninitialized in this function dynamic-stalin.c:71899: warning: `a3857' might be used uninitialized in this function dynamic-stalin.c:71901: warning: `a3859' might be used uninitialized in this function dynamic-stalin.c:71904: warning: `a3862' might be used uninitialized in this function dynamic-stalin.c:71908: warning: `a3866' might be used uninitialized in this function dynamic-stalin.c:71910: warning: `a3868' might be used uninitialized in this function dynamic-stalin.c:71913: warning: `a3871' might be used uninitialized in this function dynamic-stalin.c:71917: warning: `a3875' might be used uninitialized in this function dynamic-stalin.c:71919: warning: `a3877' might be used uninitialized in this function dynamic-stalin.c:71922: warning: `a3880' might be used uninitialized in this function dynamic-stalin.c:71926: warning: `a3884' might be used uninitialized in this function dynamic-stalin.c:71928: warning: `a3886' might be used uninitialized in this function dynamic-stalin.c:71931: warning: `a3889' might be used uninitialized in this function dynamic-stalin.c:71935: warning: `a3893' might be used uninitialized in this function dynamic-stalin.c:71937: warning: `a3895' might be used uninitialized in this function dynamic-stalin.c:71940: warning: `a3898' might be used uninitialized in this function dynamic-stalin.c:71944: warning: `a3902' might be used uninitialized in this function dynamic-stalin.c:71946: warning: `a3904' might be used uninitialized in this function dynamic-stalin.c:71949: warning: `a3907' might be used uninitialized in this function dynamic-stalin.c:71953: warning: `a3911' might be used uninitialized in this function dynamic-stalin.c:71955: warning: `a3913' might be used uninitialized in this function dynamic-stalin.c:71958: warning: `a3916' might be used uninitialized in this function dynamic-stalin.c:71962: warning: `a3920' might be used uninitialized in this function dynamic-stalin.c:71964: warning: `a3922' might be used uninitialized in this function dynamic-stalin.c:71967: warning: `a3925' might be used uninitialized in this function dynamic-stalin.c:71971: warning: `a3929' might be used uninitialized in this function dynamic-stalin.c:71973: warning: `a3931' might be used uninitialized in this function dynamic-stalin.c:71976: warning: `a3934' might be used uninitialized in this function dynamic-stalin.c:71980: warning: `a4046' might be used uninitialized in this function dynamic-stalin.c:71982: warning: `a4048' might be used uninitialized in this function dynamic-stalin.c:71985: warning: `a4051' might be used uninitialized in this function dynamic-stalin.c:71989: warning: `a4055' might be used uninitialized in this function dynamic-stalin.c:71991: warning: `a4057' might be used uninitialized in this function dynamic-stalin.c:71994: warning: `a4060' might be used uninitialized in this function dynamic-stalin.c:71998: warning: `a4064' might be used uninitialized in this function dynamic-stalin.c:72000: warning: `a4066' might be used uninitialized in this function dynamic-stalin.c:72003: warning: `a4069' might be used uninitialized in this function dynamic-stalin.c:72007: warning: `a4073' might be used uninitialized in this function dynamic-stalin.c:72009: warning: `a4075' might be used uninitialized in this function dynamic-stalin.c:72012: warning: `a4078' might be used uninitialized in this function dynamic-stalin.c:72016: warning: `a4082' might be used uninitialized in this function dynamic-stalin.c:72018: warning: `a4084' might be used uninitialized in this function dynamic-stalin.c:72021: warning: `a4087' might be used uninitialized in this function dynamic-stalin.c:72025: warning: `a4091' might be used uninitialized in this function dynamic-stalin.c:72027: warning: `a4093' might be used uninitialized in this function dynamic-stalin.c:72030: warning: `a4096' might be used uninitialized in this function dynamic-stalin.c:72034: warning: `a4100' might be used uninitialized in this function dynamic-stalin.c:72036: warning: `a4102' might be used uninitialized in this function dynamic-stalin.c:72039: warning: `a4105' might be used uninitialized in this function dynamic-stalin.c:72043: warning: `a4109' might be used uninitialized in this function dynamic-stalin.c:72045: warning: `a4111' might be used uninitialized in this function dynamic-stalin.c:72048: warning: `a4114' might be used uninitialized in this function dynamic-stalin.c:72052: warning: `a4118' might be used uninitialized in this function dynamic-stalin.c:72054: warning: `a4120' might be used uninitialized in this function dynamic-stalin.c:72057: warning: `a4123' might be used uninitialized in this function dynamic-stalin.c:72061: warning: `a4127' might be used uninitialized in this function dynamic-stalin.c:72063: warning: `a4129' might be used uninitialized in this function dynamic-stalin.c:72066: warning: `a4132' might be used uninitialized in this function dynamic-stalin.c:72070: warning: `a4136' might be used uninitialized in this function dynamic-stalin.c:72072: warning: `a4138' might be used uninitialized in this function dynamic-stalin.c:72075: warning: `a4141' might be used uninitialized in this function dynamic-stalin.c:72079: warning: `a4145' might be used uninitialized in this function dynamic-stalin.c:72081: warning: `a4147' might be used uninitialized in this function dynamic-stalin.c:72084: warning: `a4150' might be used uninitialized in this function dynamic-stalin.c:72088: warning: `a4154' might be used uninitialized in this function dynamic-stalin.c:72090: warning: `a4156' might be used uninitialized in this function dynamic-stalin.c:72093: warning: `a4159' might be used uninitialized in this function dynamic-stalin.c:72097: warning: `a4163' might be used uninitialized in this function dynamic-stalin.c:72099: warning: `a4165' might be used uninitialized in this function dynamic-stalin.c:72102: warning: `a4168' might be used uninitialized in this function dynamic-stalin.c:72106: warning: `a4172' might be used uninitialized in this function dynamic-stalin.c:72108: warning: `a4174' might be used uninitialized in this function dynamic-stalin.c:72111: warning: `a4177' might be used uninitialized in this function dynamic-stalin.c:72115: warning: `a4181' might be used uninitialized in this function dynamic-stalin.c:72117: warning: `a4183' might be used uninitialized in this function dynamic-stalin.c:72120: warning: `a4186' might be used uninitialized in this function dynamic-stalin.c:72124: warning: `a4190' might be used uninitialized in this function dynamic-stalin.c:72126: warning: `a4192' might be used uninitialized in this function dynamic-stalin.c:72129: warning: `a4195' might be used uninitialized in this function dynamic-stalin.c:72133: warning: `a4199' might be used uninitialized in this function dynamic-stalin.c:72135: warning: `a4201' might be used uninitialized in this function dynamic-stalin.c:72138: warning: `a4204' might be used uninitialized in this function dynamic-stalin.c:72142: warning: `a4208' might be used uninitialized in this function dynamic-stalin.c:72144: warning: `a4210' might be used uninitialized in this function dynamic-stalin.c:72147: warning: `a4213' might be used uninitialized in this function dynamic-stalin.c:72151: warning: `a4217' might be used uninitialized in this function dynamic-stalin.c:72153: warning: `a4219' might be used uninitialized in this function dynamic-stalin.c:72156: warning: `a4222' might be used uninitialized in this function dynamic-stalin.c:72160: warning: `a4226' might be used uninitialized in this function dynamic-stalin.c:72162: warning: `a4228' might be used uninitialized in this function dynamic-stalin.c:72165: warning: `a4231' might be used uninitialized in this function dynamic-stalin.c:72169: warning: `a4244' might be used uninitialized in this function dynamic-stalin.c:72171: warning: `a4246' might be used uninitialized in this function dynamic-stalin.c:72174: warning: `a4249' might be used uninitialized in this function dynamic-stalin.c:72178: warning: `a4253' might be used uninitialized in this function dynamic-stalin.c:72180: warning: `a4255' might be used uninitialized in this function dynamic-stalin.c:72183: warning: `a4258' might be used uninitialized in this function dynamic-stalin.c:72187: warning: `a4262' might be used uninitialized in this function dynamic-stalin.c:72189: warning: `a4264' might be used uninitialized in this function dynamic-stalin.c:72192: warning: `a4267' might be used uninitialized in this function dynamic-stalin.c:72196: warning: `a4496' might be used uninitialized in this function dynamic-stalin.c:72198: warning: `a4498' might be used uninitialized in this function dynamic-stalin.c:72201: warning: `a4501' might be used uninitialized in this function dynamic-stalin.c:72205: warning: `a4505' might be used uninitialized in this function dynamic-stalin.c:72207: warning: `a4507' might be used uninitialized in this function dynamic-stalin.c:72210: warning: `a4510' might be used uninitialized in this function dynamic-stalin.c:72214: warning: `a4514' might be used uninitialized in this function dynamic-stalin.c:72216: warning: `a4516' might be used uninitialized in this function dynamic-stalin.c:72219: warning: `a4519' might be used uninitialized in this function dynamic-stalin.c:72223: warning: `a4523' might be used uninitialized in this function dynamic-stalin.c:72225: warning: `a4525' might be used uninitialized in this function dynamic-stalin.c:72228: warning: `a4528' might be used uninitialized in this function dynamic-stalin.c:72232: warning: `a4532' might be used uninitialized in this function dynamic-stalin.c:72234: warning: `a4534' might be used uninitialized in this function dynamic-stalin.c:72237: warning: `a4537' might be used uninitialized in this function dynamic-stalin.c:72241: warning: `a4541' might be used uninitialized in this function dynamic-stalin.c:72243: warning: `a4543' might be used uninitialized in this function dynamic-stalin.c:72246: warning: `a4546' might be used uninitialized in this function dynamic-stalin.c:72250: warning: `a4550' might be used uninitialized in this function dynamic-stalin.c:72252: warning: `a4552' might be used uninitialized in this function dynamic-stalin.c:72255: warning: `a4555' might be used uninitialized in this function dynamic-stalin.c:72259: warning: `a4559' might be used uninitialized in this function dynamic-stalin.c:72261: warning: `a4561' might be used uninitialized in this function dynamic-stalin.c:72264: warning: `a4564' might be used uninitialized in this function dynamic-stalin.c:72268: warning: `a4568' might be used uninitialized in this function dynamic-stalin.c:72270: warning: `a4570' might be used uninitialized in this function dynamic-stalin.c:72273: warning: `a4573' might be used uninitialized in this function dynamic-stalin.c:72277: warning: `a4577' might be used uninitialized in this function dynamic-stalin.c:72279: warning: `a4579' might be used uninitialized in this function dynamic-stalin.c:72282: warning: `a4582' might be used uninitialized in this function dynamic-stalin.c:72286: warning: `a4586' might be used uninitialized in this function dynamic-stalin.c:72288: warning: `a4588' might be used uninitialized in this function dynamic-stalin.c:72291: warning: `a4591' might be used uninitialized in this function dynamic-stalin.c:72295: warning: `a4630' might be used uninitialized in this function dynamic-stalin.c:72300: warning: `a4635' might be used uninitialized in this function dynamic-stalin.c:72305: warning: `a4640' might be used uninitialized in this function dynamic-stalin.c:72360: warning: `a5936' might be used uninitialized in this function dynamic-stalin.c:72362: warning: `a5938' might be used uninitialized in this function dynamic-stalin.c:72364: warning: `a5940' might be used uninitialized in this function dynamic-stalin.c:72365: warning: `a5941' might be used uninitialized in this function dynamic-stalin.c:72368: warning: `a5951' might be used uninitialized in this function dynamic-stalin.c:72370: warning: `a5953' might be used uninitialized in this function dynamic-stalin.c:72373: warning: `a5956' might be used uninitialized in this function dynamic-stalin.c:72377: warning: `a6042' might be used uninitialized in this function dynamic-stalin.c:72379: warning: `a6044' might be used uninitialized in this function dynamic-stalin.c:72382: warning: `a6047' might be used uninitialized in this function dynamic-stalin.c:72386: warning: `a6195' might be used uninitialized in this function dynamic-stalin.c:72388: warning: `a6197' might be used uninitialized in this function dynamic-stalin.c:72391: warning: `a6200' might be used uninitialized in this function dynamic-stalin.c:72395: warning: `a6204' might be used uninitialized in this function dynamic-stalin.c:72397: warning: `a6206' might be used uninitialized in this function dynamic-stalin.c:72400: warning: `a6209' might be used uninitialized in this function dynamic-stalin.c:72404: warning: `a6213' might be used uninitialized in this function dynamic-stalin.c:72406: warning: `a6215' might be used uninitialized in this function dynamic-stalin.c:72409: warning: `a6218' might be used uninitialized in this function dynamic-stalin.c:72413: warning: `a6222' might be used uninitialized in this function dynamic-stalin.c:72415: warning: `a6224' might be used uninitialized in this function dynamic-stalin.c:72418: warning: `a6227' might be used uninitialized in this function dynamic-stalin.c:72422: warning: `a6231' might be used uninitialized in this function dynamic-stalin.c:72424: warning: `a6233' might be used uninitialized in this function dynamic-stalin.c:72427: warning: `a6236' might be used uninitialized in this function dynamic-stalin.c:72432: warning: `a6241' might be used uninitialized in this function dynamic-stalin.c:72434: warning: `a6243' might be used uninitialized in this function dynamic-stalin.c:72437: warning: `a6246' might be used uninitialized in this function dynamic-stalin.c:72441: warning: `a6250' might be used uninitialized in this function dynamic-stalin.c:72443: warning: `a6252' might be used uninitialized in this function dynamic-stalin.c:72446: warning: `a6255' might be used uninitialized in this function dynamic-stalin.c:72450: warning: `a6259' might be used uninitialized in this function dynamic-stalin.c:72452: warning: `a6261' might be used uninitialized in this function dynamic-stalin.c:72455: warning: `a6264' might be used uninitialized in this function dynamic-stalin.c:72459: warning: `a6268' might be used uninitialized in this function dynamic-stalin.c:72461: warning: `a6270' might be used uninitialized in this function dynamic-stalin.c:72464: warning: `a6273' might be used uninitialized in this function dynamic-stalin.c:72468: warning: `a6277' might be used uninitialized in this function dynamic-stalin.c:72470: warning: `a6279' might be used uninitialized in this function dynamic-stalin.c:72473: warning: `a6282' might be used uninitialized in this function dynamic-stalin.c:72477: warning: `a6286' might be used uninitialized in this function dynamic-stalin.c:72479: warning: `a6288' might be used uninitialized in this function dynamic-stalin.c:72482: warning: `a6291' might be used uninitialized in this function dynamic-stalin.c:72487: warning: `a6296' might be used uninitialized in this function dynamic-stalin.c:72489: warning: `a6298' might be used uninitialized in this function dynamic-stalin.c:72492: warning: `a6301' might be used uninitialized in this function dynamic-stalin.c:72496: warning: `a6305' might be used uninitialized in this function dynamic-stalin.c:72498: warning: `a6307' might be used uninitialized in this function dynamic-stalin.c:72501: warning: `a6310' might be used uninitialized in this function dynamic-stalin.c:72505: warning: `a6314' might be used uninitialized in this function dynamic-stalin.c:72507: warning: `a6316' might be used uninitialized in this function dynamic-stalin.c:72510: warning: `a6319' might be used uninitialized in this function dynamic-stalin.c:72514: warning: `a6323' might be used uninitialized in this function dynamic-stalin.c:72516: warning: `a6325' might be used uninitialized in this function dynamic-stalin.c:72519: warning: `a6328' might be used uninitialized in this function dynamic-stalin.c:72523: warning: `a6332' might be used uninitialized in this function dynamic-stalin.c:72525: warning: `a6334' might be used uninitialized in this function dynamic-stalin.c:72528: warning: `a6337' might be used uninitialized in this function dynamic-stalin.c:72532: warning: `a6341' might be used uninitialized in this function dynamic-stalin.c:72534: warning: `a6343' might be used uninitialized in this function dynamic-stalin.c:72537: warning: `a6346' might be used uninitialized in this function dynamic-stalin.c:72541: warning: `a6350' might be used uninitialized in this function dynamic-stalin.c:72543: warning: `a6352' might be used uninitialized in this function dynamic-stalin.c:72546: warning: `a6355' might be used uninitialized in this function dynamic-stalin.c:72550: warning: `a6359' might be used uninitialized in this function dynamic-stalin.c:72552: warning: `a6361' might be used uninitialized in this function dynamic-stalin.c:72555: warning: `a6364' might be used uninitialized in this function dynamic-stalin.c:72560: warning: `a6369' might be used uninitialized in this function dynamic-stalin.c:72562: warning: `a6371' might be used uninitialized in this function dynamic-stalin.c:72565: warning: `a6374' might be used uninitialized in this function dynamic-stalin.c:72569: warning: `a6378' might be used uninitialized in this function dynamic-stalin.c:72571: warning: `a6380' might be used uninitialized in this function dynamic-stalin.c:72574: warning: `a6383' might be used uninitialized in this function dynamic-stalin.c:72578: warning: `a6387' might be used uninitialized in this function dynamic-stalin.c:72580: warning: `a6389' might be used uninitialized in this function dynamic-stalin.c:72583: warning: `a6392' might be used uninitialized in this function dynamic-stalin.c:72587: warning: `a6396' might be used uninitialized in this function dynamic-stalin.c:72589: warning: `a6398' might be used uninitialized in this function dynamic-stalin.c:72592: warning: `a6401' might be used uninitialized in this function dynamic-stalin.c:72596: warning: `a6405' might be used uninitialized in this function dynamic-stalin.c:72598: warning: `a6407' might be used uninitialized in this function dynamic-stalin.c:72601: warning: `a6410' might be used uninitialized in this function dynamic-stalin.c:72605: warning: `a6414' might be used uninitialized in this function dynamic-stalin.c:72607: warning: `a6416' might be used uninitialized in this function dynamic-stalin.c:72610: warning: `a6419' might be used uninitialized in this function dynamic-stalin.c:72615: warning: `a6424' might be used uninitialized in this function dynamic-stalin.c:72617: warning: `a6426' might be used uninitialized in this function dynamic-stalin.c:72620: warning: `a6429' might be used uninitialized in this function dynamic-stalin.c:72624: warning: `a6433' might be used uninitialized in this function dynamic-stalin.c:72626: warning: `a6435' might be used uninitialized in this function dynamic-stalin.c:72629: warning: `a6438' might be used uninitialized in this function dynamic-stalin.c:72633: warning: `a6442' might be used uninitialized in this function dynamic-stalin.c:72635: warning: `a6444' might be used uninitialized in this function dynamic-stalin.c:72638: warning: `a6447' might be used uninitialized in this function dynamic-stalin.c:72642: warning: `a6451' might be used uninitialized in this function dynamic-stalin.c:72644: warning: `a6453' might be used uninitialized in this function dynamic-stalin.c:72647: warning: `a6456' might be used uninitialized in this function dynamic-stalin.c:72651: warning: `a6460' might be used uninitialized in this function dynamic-stalin.c:72653: warning: `a6462' might be used uninitialized in this function dynamic-stalin.c:72656: warning: `a6465' might be used uninitialized in this function dynamic-stalin.c:72660: warning: `a6469' might be used uninitialized in this function dynamic-stalin.c:72662: warning: `a6471' might be used uninitialized in this function dynamic-stalin.c:72665: warning: `a6474' might be used uninitialized in this function dynamic-stalin.c:72669: warning: `a6478' might be used uninitialized in this function dynamic-stalin.c:72671: warning: `a6480' might be used uninitialized in this function dynamic-stalin.c:72674: warning: `a6483' might be used uninitialized in this function dynamic-stalin.c:72678: warning: `a6487' might be used uninitialized in this function dynamic-stalin.c:72680: warning: `a6489' might be used uninitialized in this function dynamic-stalin.c:72683: warning: `a6492' might be used uninitialized in this function dynamic-stalin.c:72687: warning: `a6496' might be used uninitialized in this function dynamic-stalin.c:72689: warning: `a6498' might be used uninitialized in this function dynamic-stalin.c:72692: warning: `a6501' might be used uninitialized in this function dynamic-stalin.c:72696: warning: `a6505' might be used uninitialized in this function dynamic-stalin.c:72698: warning: `a6507' might be used uninitialized in this function dynamic-stalin.c:72701: warning: `a6510' might be used uninitialized in this function dynamic-stalin.c:72705: warning: `a6514' might be used uninitialized in this function dynamic-stalin.c:72707: warning: `a6516' might be used uninitialized in this function dynamic-stalin.c:72710: warning: `a6519' might be used uninitialized in this function dynamic-stalin.c:72714: warning: `a6523' might be used uninitialized in this function dynamic-stalin.c:72716: warning: `a6525' might be used uninitialized in this function dynamic-stalin.c:72719: warning: `a6528' might be used uninitialized in this function dynamic-stalin.c:72721: warning: `a6530' might be used uninitialized in this function dynamic-stalin.c:72724: warning: `a6533' might be used uninitialized in this function dynamic-stalin.c:72728: warning: `a6537' might be used uninitialized in this function dynamic-stalin.c:72730: warning: `a6539' might be used uninitialized in this function dynamic-stalin.c:72733: warning: `a6542' might be used uninitialized in this function dynamic-stalin.c:72737: warning: `a6564' might be used uninitialized in this function dynamic-stalin.c:72739: warning: `a6566' might be used uninitialized in this function dynamic-stalin.c:72742: warning: `a6569' might be used uninitialized in this function dynamic-stalin.c:72746: warning: `a6573' might be used uninitialized in this function dynamic-stalin.c:72748: warning: `a6575' might be used uninitialized in this function dynamic-stalin.c:72751: warning: `a6578' might be used uninitialized in this function dynamic-stalin.c:72755: warning: `a6582' might be used uninitialized in this function dynamic-stalin.c:72757: warning: `a6584' might be used uninitialized in this function dynamic-stalin.c:72760: warning: `a6587' might be used uninitialized in this function dynamic-stalin.c:72764: warning: `a6591' might be used uninitialized in this function dynamic-stalin.c:72766: warning: `a6593' might be used uninitialized in this function dynamic-stalin.c:72769: warning: `a6596' might be used uninitialized in this function dynamic-stalin.c:72773: warning: `a6600' might be used uninitialized in this function dynamic-stalin.c:72775: warning: `a6602' might be used uninitialized in this function dynamic-stalin.c:72778: warning: `a6605' might be used uninitialized in this function dynamic-stalin.c:72782: warning: `a6609' might be used uninitialized in this function dynamic-stalin.c:72784: warning: `a6611' might be used uninitialized in this function dynamic-stalin.c:72787: warning: `a6614' might be used uninitialized in this function dynamic-stalin.c:72791: warning: `a6618' might be used uninitialized in this function dynamic-stalin.c:72793: warning: `a6620' might be used uninitialized in this function dynamic-stalin.c:72796: warning: `a6623' might be used uninitialized in this function dynamic-stalin.c:72800: warning: `a6627' might be used uninitialized in this function dynamic-stalin.c:72802: warning: `a6629' might be used uninitialized in this function dynamic-stalin.c:72805: warning: `a6632' might be used uninitialized in this function dynamic-stalin.c:72809: warning: `a6636' might be used uninitialized in this function dynamic-stalin.c:72811: warning: `a6638' might be used uninitialized in this function dynamic-stalin.c:72814: warning: `a6641' might be used uninitialized in this function dynamic-stalin.c:72818: warning: `a6645' might be used uninitialized in this function dynamic-stalin.c:72820: warning: `a6647' might be used uninitialized in this function dynamic-stalin.c:72823: warning: `a6650' might be used uninitialized in this function dynamic-stalin.c:72827: warning: `a6654' might be used uninitialized in this function dynamic-stalin.c:72829: warning: `a6656' might be used uninitialized in this function dynamic-stalin.c:72832: warning: `a6659' might be used uninitialized in this function dynamic-stalin.c:72836: warning: `a6663' might be used uninitialized in this function dynamic-stalin.c:72838: warning: `a6665' might be used uninitialized in this function dynamic-stalin.c:72841: warning: `a6668' might be used uninitialized in this function dynamic-stalin.c:72845: warning: `a6672' might be used uninitialized in this function dynamic-stalin.c:72847: warning: `a6674' might be used uninitialized in this function dynamic-stalin.c:72850: warning: `a6677' might be used uninitialized in this function dynamic-stalin.c:72854: warning: `a6681' might be used uninitialized in this function dynamic-stalin.c:72856: warning: `a6683' might be used uninitialized in this function dynamic-stalin.c:72859: warning: `a6686' might be used uninitialized in this function dynamic-stalin.c:72863: warning: `a6690' might be used uninitialized in this function dynamic-stalin.c:72865: warning: `a6692' might be used uninitialized in this function dynamic-stalin.c:72868: warning: `a6695' might be used uninitialized in this function dynamic-stalin.c:72872: warning: `a6699' might be used uninitialized in this function dynamic-stalin.c:72874: warning: `a6701' might be used uninitialized in this function dynamic-stalin.c:72877: warning: `a6704' might be used uninitialized in this function dynamic-stalin.c:73208: warning: `t5830' might be used uninitialized in this function dynamic-stalin.c:73246: warning: `t5880' might be used uninitialized in this function dynamic-stalin.c:73400: warning: `t6117' might be used uninitialized in this function dynamic-stalin.c:73438: warning: `t6167' might be used uninitialized in this function dynamic-stalin.c:73545: warning: `t6331' might be used uninitialized in this function dynamic-stalin.c:73594: warning: `t6395' might be used uninitialized in this function dynamic-stalin.c:73638: warning: `t6462' might be used uninitialized in this function dynamic-stalin.c:73787: warning: `t6692' might be used uninitialized in this function dynamic-stalin.c:73825: warning: `t6742' might be used uninitialized in this function dynamic-stalin.c:73932: warning: `t6906' might be used uninitialized in this function dynamic-stalin.c:73981: warning: `t6970' might be used uninitialized in this function dynamic-stalin.c:74025: warning: `t7036' might be used uninitialized in this function dynamic-stalin.c:74462: warning: `t7718' might be used uninitialized in this function dynamic-stalin.c:75858: warning: `t9862' might be used uninitialized in this function dynamic-stalin.c: In function `f1880': dynamic-stalin.c:100041: warning: `a2585' might be used uninitialized in this function dynamic-stalin.c:100043: warning: `a2587' might be used uninitialized in this function dynamic-stalin.c:100045: warning: `a2589' might be used uninitialized in this function dynamic-stalin.c:100048: warning: `a2592' might be used uninitialized in this function dynamic-stalin.c:100050: warning: `a2594' might be used uninitialized in this function dynamic-stalin.c:100053: warning: `a2597' might be used uninitialized in this function dynamic-stalin.c:100055: warning: `a2599' might be used uninitialized in this function dynamic-stalin.c:100059: warning: `a2603' might be used uninitialized in this function dynamic-stalin.c:100064: warning: `a3478' might be used uninitialized in this function dynamic-stalin.c:100067: warning: `a4610' might be used uninitialized in this function dynamic-stalin.c:100072: warning: `a4615' might be used uninitialized in this function dynamic-stalin.c: In function `f1856': dynamic-stalin.c:101098: warning: `a1932' might be used uninitialized in this function dynamic-stalin.c:101102: warning: `a2560' might be used uninitialized in this function dynamic-stalin.c:101106: warning: `a2564' might be used uninitialized in this function dynamic-stalin.c:101111: warning: `a2569' might be used uninitialized in this function dynamic-stalin.c:101116: warning: `a2574' might be used uninitialized in this function dynamic-stalin.c:101120: warning: `a2578' might be used uninitialized in this function dynamic-stalin.c:101127: warning: `a4595' might be used uninitialized in this function dynamic-stalin.c:101132: warning: `a4600' might be used uninitialized in this function dynamic-stalin.c:101137: warning: `a4605' might be used uninitialized in this function dynamic-stalin.c:101142: warning: `a4620' might be used uninitialized in this function dynamic-stalin.c: In function `f1826': dynamic-stalin.c:102659: warning: `a2532' might be used uninitialized in this function dynamic-stalin.c:102661: warning: `a2534' might be used uninitialized in this function dynamic-stalin.c:102663: warning: `a2536' might be used uninitialized in this function dynamic-stalin.c: In function `f1741': dynamic-stalin.c:102855: warning: `a2462' might be used uninitialized in this function dynamic-stalin.c:102857: warning: `a2464' might be used uninitialized in this function dynamic-stalin.c:102859: warning: `a2466' might be used uninitialized in this function dynamic-stalin.c: In function `f1720': dynamic-stalin.c:103026: warning: `a2447' might be used uninitialized in this function dynamic-stalin.c:103028: warning: `a2449' might be used uninitialized in this function dynamic-stalin.c:103030: warning: `a2451' might be used uninitialized in this function dynamic-stalin.c: In function `f1710': dynamic-stalin.c:103188: warning: `a2438' might be used uninitialized in this function dynamic-stalin.c:103190: warning: `a2440' might be used uninitialized in this function dynamic-stalin.c:103192: warning: `a2442' might be used uninitialized in this function dynamic-stalin.c:103193: warning: `a2443' might be used uninitialized in this function dynamic-stalin.c:103196: warning: `a5923' might be used uninitialized in this function dynamic-stalin.c:103198: warning: `a5925' might be used uninitialized in this function dynamic-stalin.c: In function `f1559': dynamic-stalin.c:103536: warning: unused variable `p4044' dynamic-stalin.c:103533: warning: unused variable `p1569' dynamic-stalin.c:103524: warning: unused variable `e4044' dynamic-stalin.c:103519: warning: unused variable `e1569' dynamic-stalin.c:103518: warning: unused variable `e1567' dynamic-stalin.c:103469: warning: unused variable `a4241' dynamic-stalin.c:103460: warning: unused variable `a2269' dynamic-stalin.c:103459: warning: unused variable `a2268' dynamic-stalin.c:103450: warning: `a2259' might be used uninitialized in this function dynamic-stalin.c:103451: warning: `a2260' might be used uninitialized in this function dynamic-stalin.c:103454: warning: `a2263' might be used uninitialized in this function dynamic-stalin.c:103457: warning: `a2266' might be used uninitialized in this function dynamic-stalin.c:103463: warning: `a4235' might be used uninitialized in this function dynamic-stalin.c:103465: warning: `a4237' might be used uninitialized in this function dynamic-stalin.c:103468: warning: `a4240' might be used uninitialized in this function dynamic-stalin.c: In function `f1538': dynamic-stalin.c:103811: warning: unused variable `p3702' dynamic-stalin.c:103808: warning: unused variable `p3618' dynamic-stalin.c:103805: warning: unused variable `e3702' dynamic-stalin.c:103800: warning: unused variable `e3618' dynamic-stalin.c:103768: warning: unused variable `a3728' dynamic-stalin.c:103759: warning: unused variable `a3602' dynamic-stalin.c:103753: warning: `a3596' might be used uninitialized in this function dynamic-stalin.c:103754: warning: `a3597' might be used uninitialized in this function dynamic-stalin.c:103755: warning: `a3598' might be used uninitialized in this function dynamic-stalin.c:103758: warning: `a3601' might be used uninitialized in this function dynamic-stalin.c:103762: warning: `a3722' might be used uninitialized in this function dynamic-stalin.c:103763: warning: `a3723' might be used uninitialized in this function dynamic-stalin.c:103764: warning: `a3724' might be used uninitialized in this function dynamic-stalin.c:103767: warning: `a3727' might be used uninitialized in this function dynamic-stalin.c: In function `f1210': dynamic-stalin.c:103887: warning: `a1984' might be used uninitialized in this function dynamic-stalin.c:103889: warning: `a1986' might be used uninitialized in this function dynamic-stalin.c:103896: warning: `t10871' might be used uninitialized in this function dynamic-stalin.c:103902: warning: `t10877' might be used uninitialized in this function dynamic-stalin.c:103908: warning: `t10883' might be used uninitialized in this function dynamic-stalin.c:103914: warning: `t10889' might be used uninitialized in this function dynamic-stalin.c:103920: warning: `t10895' might be used uninitialized in this function dynamic-stalin.c:103926: warning: `t10901' might be used uninitialized in this function dynamic-stalin.c:103932: warning: `t10907' might be used uninitialized in this function dynamic-stalin.c:103938: warning: `t10913' might be used uninitialized in this function dynamic-stalin.c:103944: warning: `t10919' might be used uninitialized in this function dynamic-stalin.c:103950: warning: `t10925' might be used uninitialized in this function dynamic-stalin.c:103956: warning: `t10931' might be used uninitialized in this function dynamic-stalin.c:103962: warning: `t10937' might be used uninitialized in this function dynamic-stalin.c:103968: warning: `t10943' might be used uninitialized in this function dynamic-stalin.c:103974: warning: `t10949' might be used uninitialized in this function dynamic-stalin.c:103980: warning: `t10955' might be used uninitialized in this function dynamic-stalin.c:103986: warning: `t10961' might be used uninitialized in this function dynamic-stalin.c:103992: warning: `t10967' might be used uninitialized in this function dynamic-stalin.c:103998: warning: `t10973' might be used uninitialized in this function dynamic-stalin.c:104004: warning: `t10979' might be used uninitialized in this function dynamic-stalin.c:104010: warning: `t10985' might be used uninitialized in this function dynamic-stalin.c:104016: warning: `t10991' might be used uninitialized in this function dynamic-stalin.c:104022: warning: `t10997' might be used uninitialized in this function dynamic-stalin.c:104028: warning: `t11003' might be used uninitialized in this function dynamic-stalin.c:104034: warning: `t11009' might be used uninitialized in this function dynamic-stalin.c:104040: warning: `t11015' might be used uninitialized in this function dynamic-stalin.c:104046: warning: `t11021' might be used uninitialized in this function dynamic-stalin.c:104052: warning: `t11027' might be used uninitialized in this function dynamic-stalin.c:104058: warning: `t11033' might be used uninitialized in this function dynamic-stalin.c:104064: warning: `t11039' might be used uninitialized in this function dynamic-stalin.c:104070: warning: `t11045' might be used uninitialized in this function dynamic-stalin.c:104076: warning: `t11051' might be used uninitialized in this function dynamic-stalin.c:104082: warning: `t11057' might be used uninitialized in this function dynamic-stalin.c:104088: warning: `t11063' might be used uninitialized in this function dynamic-stalin.c:104094: warning: `t11069' might be used uninitialized in this function dynamic-stalin.c:104100: warning: `t11075' might be used uninitialized in this function dynamic-stalin.c:104106: warning: `t11081' might be used uninitialized in this function dynamic-stalin.c:104112: warning: `t11087' might be used uninitialized in this function dynamic-stalin.c:104118: warning: `t11093' might be used uninitialized in this function dynamic-stalin.c:104124: warning: `t11099' might be used uninitialized in this function dynamic-stalin.c:104130: warning: `t11105' might be used uninitialized in this function dynamic-stalin.c:104136: warning: `t11111' might be used uninitialized in this function dynamic-stalin.c:104142: warning: `t11117' might be used uninitialized in this function dynamic-stalin.c:104148: warning: `t11123' might be used uninitialized in this function dynamic-stalin.c:104154: warning: `t11129' might be used uninitialized in this function dynamic-stalin.c:104160: warning: `t11135' might be used uninitialized in this function dynamic-stalin.c:104166: warning: `t11141' might be used uninitialized in this function dynamic-stalin.c:104172: warning: `t11147' might be used uninitialized in this function dynamic-stalin.c:104178: warning: `t11153' might be used uninitialized in this function dynamic-stalin.c:104184: warning: `t11159' might be used uninitialized in this function dynamic-stalin.c:104190: warning: `t11165' might be used uninitialized in this function dynamic-stalin.c:104196: warning: `t11171' might be used uninitialized in this function dynamic-stalin.c:104202: warning: `t11177' might be used uninitialized in this function dynamic-stalin.c:104208: warning: `t11183' might be used uninitialized in this function dynamic-stalin.c:104214: warning: `t11189' might be used uninitialized in this function dynamic-stalin.c:104220: warning: `t11195' might be used uninitialized in this function dynamic-stalin.c:104226: warning: `t11201' might be used uninitialized in this function dynamic-stalin.c:104232: warning: `t11207' might be used uninitialized in this function dynamic-stalin.c:104238: warning: `t11213' might be used uninitialized in this function dynamic-stalin.c:104244: warning: `t11219' might be used uninitialized in this function dynamic-stalin.c:104250: warning: `t11225' might be used uninitialized in this function dynamic-stalin.c:104256: warning: `t11231' might be used uninitialized in this function dynamic-stalin.c:104262: warning: `t11237' might be used uninitialized in this function dynamic-stalin.c:104268: warning: `t11243' might be used uninitialized in this function dynamic-stalin.c:104274: warning: `t11249' might be used uninitialized in this function dynamic-stalin.c:104280: warning: `t11255' might be used uninitialized in this function dynamic-stalin.c:104286: warning: `t11261' might be used uninitialized in this function dynamic-stalin.c:104292: warning: `t11267' might be used uninitialized in this function dynamic-stalin.c:104298: warning: `t11273' might be used uninitialized in this function dynamic-stalin.c:104304: warning: `t11279' might be used uninitialized in this function dynamic-stalin.c:104310: warning: `t11285' might be used uninitialized in this function dynamic-stalin.c:104316: warning: `t11291' might be used uninitialized in this function dynamic-stalin.c:104322: warning: `t11297' might be used uninitialized in this function dynamic-stalin.c:104328: warning: `t11303' might be used uninitialized in this function dynamic-stalin.c:104334: warning: `t11309' might be used uninitialized in this function dynamic-stalin.c:104340: warning: `t11315' might be used uninitialized in this function dynamic-stalin.c:104346: warning: `t11321' might be used uninitialized in this function dynamic-stalin.c:104352: warning: `t11327' might be used uninitialized in this function dynamic-stalin.c:104358: warning: `t11333' might be used uninitialized in this function dynamic-stalin.c:104364: warning: `t11339' might be used uninitialized in this function dynamic-stalin.c:104370: warning: `t11345' might be used uninitialized in this function dynamic-stalin.c:104376: warning: `t11351' might be used uninitialized in this function dynamic-stalin.c:104382: warning: `t11357' might be used uninitialized in this function dynamic-stalin.c:104388: warning: `t11363' might be used uninitialized in this function dynamic-stalin.c:104394: warning: `t11369' might be used uninitialized in this function dynamic-stalin.c:104400: warning: `t11375' might be used uninitialized in this function dynamic-stalin.c:104406: warning: `t11381' might be used uninitialized in this function dynamic-stalin.c:104412: warning: `t11387' might be used uninitialized in this function dynamic-stalin.c:104418: warning: `t11393' might be used uninitialized in this function dynamic-stalin.c:104424: warning: `t11399' might be used uninitialized in this function dynamic-stalin.c:104430: warning: `t11405' might be used uninitialized in this function dynamic-stalin.c:104436: warning: `t11411' might be used uninitialized in this function dynamic-stalin.c:104442: warning: `t11417' might be used uninitialized in this function dynamic-stalin.c:104448: warning: `t11423' might be used uninitialized in this function dynamic-stalin.c:104454: warning: `t11429' might be used uninitialized in this function dynamic-stalin.c:104460: warning: `t11435' might be used uninitialized in this function dynamic-stalin.c:104466: warning: `t11441' might be used uninitialized in this function dynamic-stalin.c:104472: warning: `t11447' might be used uninitialized in this function dynamic-stalin.c:104478: warning: `t11453' might be used uninitialized in this function dynamic-stalin.c:104484: warning: `t11459' might be used uninitialized in this function dynamic-stalin.c:104490: warning: `t11465' might be used uninitialized in this function dynamic-stalin.c:104496: warning: `t11471' might be used uninitialized in this function dynamic-stalin.c:104502: warning: `t11477' might be used uninitialized in this function dynamic-stalin.c:104508: warning: `t11483' might be used uninitialized in this function dynamic-stalin.c:104514: warning: `t11489' might be used uninitialized in this function dynamic-stalin.c:104520: warning: `t11495' might be used uninitialized in this function dynamic-stalin.c:104526: warning: `t11501' might be used uninitialized in this function dynamic-stalin.c:104532: warning: `t11507' might be used uninitialized in this function dynamic-stalin.c:104538: warning: `t11513' might be used uninitialized in this function dynamic-stalin.c:104544: warning: `t11519' might be used uninitialized in this function dynamic-stalin.c:104550: warning: `t11525' might be used uninitialized in this function dynamic-stalin.c:104556: warning: `t11531' might be used uninitialized in this function dynamic-stalin.c:104579: warning: `t11561' might be used uninitialized in this function dynamic-stalin.c: In function `f1170': dynamic-stalin.c:105965: warning: unused variable `e4672' dynamic-stalin.c:105964: warning: unused variable `e4671' dynamic-stalin.c:105963: warning: unused variable `e4670' dynamic-stalin.c:105931: warning: unused variable `a5067' dynamic-stalin.c:105930: warning: unused variable `a5066' dynamic-stalin.c:105929: warning: unused variable `a5065' dynamic-stalin.c: In function `f1069': dynamic-stalin.c:106758: warning: unused variable `e1115' dynamic-stalin.c:106739: warning: unused variable `e1087' dynamic-stalin.c:106733: warning: unused variable `e1075' dynamic-stalin.c:106732: warning: unused variable `e1074' dynamic-stalin.c:106534: warning: unused variable `a1913' dynamic-stalin.c:106513: warning: unused variable `a1892' dynamic-stalin.c:106507: warning: unused variable `a1883' dynamic-stalin.c:106506: warning: unused variable `a1882' dynamic-stalin.c:106503: warning: `a1879' might be used uninitialized in this function dynamic-stalin.c:106504: warning: `a1880' might be used uninitialized in this function dynamic-stalin.c:106508: warning: `a1884' might be used uninitialized in this function dynamic-stalin.c:106509: warning: `a1885' might be used uninitialized in this function dynamic-stalin.c:106510: warning: `a1889' might be used uninitialized in this function dynamic-stalin.c:106511: warning: `a1890' might be used uninitialized in this function dynamic-stalin.c:106516: warning: `a1895' might be used uninitialized in this function dynamic-stalin.c:106518: warning: `a1897' might be used uninitialized in this function dynamic-stalin.c:106521: warning: `a1900' might be used uninitialized in this function dynamic-stalin.c:106523: warning: `a1902' might be used uninitialized in this function dynamic-stalin.c:106525: warning: `a1904' might be used uninitialized in this function dynamic-stalin.c:106526: warning: `a1905' might be used uninitialized in this function dynamic-stalin.c:106527: warning: `a1906' might be used uninitialized in this function dynamic-stalin.c:106528: warning: `a1907' might be used uninitialized in this function dynamic-stalin.c:106531: warning: `a1910' might be used uninitialized in this function dynamic-stalin.c:106532: warning: `a1911' might be used uninitialized in this function dynamic-stalin.c:106537: warning: `a1916' might be used uninitialized in this function dynamic-stalin.c:106539: warning: `a1918' might be used uninitialized in this function dynamic-stalin.c:106541: warning: `a1920' might be used uninitialized in this function dynamic-stalin.c:106543: warning: `a1922' might be used uninitialized in this function dynamic-stalin.c:106545: warning: `a1924' might be used uninitialized in this function dynamic-stalin.c:106546: warning: `a1925' might be used uninitialized in this function dynamic-stalin.c:106547: warning: `a1926' might be used uninitialized in this function dynamic-stalin.c:106548: warning: `a1927' might be used uninitialized in this function dynamic-stalin.c: In function `f980': dynamic-stalin.c:107646: warning: unused variable `e987' dynamic-stalin.c:107642: warning: unused variable `e983' dynamic-stalin.c:107641: warning: unused variable `e982' dynamic-stalin.c:107640: warning: unused variable `e981' dynamic-stalin.c:107639: warning: unused variable `e978' dynamic-stalin.c:107638: warning: unused variable `e977' dynamic-stalin.c:107637: warning: unused variable `e976' dynamic-stalin.c:107568: warning: unused variable `a1807' dynamic-stalin.c:107564: warning: unused variable `a1803' dynamic-stalin.c:107563: warning: unused variable `a1802' dynamic-stalin.c:107562: warning: unused variable `a1801' dynamic-stalin.c:107561: warning: unused variable `a1796' dynamic-stalin.c:107560: warning: unused variable `a1795' dynamic-stalin.c:107559: warning: unused variable `a1794' dynamic-stalin.c:107566: warning: `a1805' might be used uninitialized in this function dynamic-stalin.c:107609: warning: `t12111' might be used uninitialized in this function dynamic-stalin.c: In function `f732': dynamic-stalin.c:108326: warning: unused variable `e6530' dynamic-stalin.c:108325: warning: unused variable `e6529' dynamic-stalin.c:108324: warning: unused variable `e6528' dynamic-stalin.c:108322: warning: unused variable `e6526' dynamic-stalin.c:108321: warning: unused variable `e6525' dynamic-stalin.c:108320: warning: unused variable `e6524' dynamic-stalin.c:108259: warning: unused variable `a7328' dynamic-stalin.c:108258: warning: unused variable `a7327' dynamic-stalin.c:108257: warning: unused variable `a7326' dynamic-stalin.c:108254: warning: unused variable `a7323' dynamic-stalin.c:108253: warning: unused variable `a7322' dynamic-stalin.c:108252: warning: unused variable `a7321' dynamic-stalin.c:108245: warning: `a5942' might be used uninitialized in this function dynamic-stalin.c:108251: warning: `a7320' might be used uninitialized in this function dynamic-stalin.c:108256: warning: `a7325' might be used uninitialized in this function dynamic-stalin.c: In function `f663': dynamic-stalin.c:108741: warning: `a1362' might be used uninitialized in this function dynamic-stalin.c:108746: warning: `a1418' might be used uninitialized in this function dynamic-stalin.c:108753: warning: `a7030' might be used uninitialized in this function dynamic-stalin.c: In function `f629': dynamic-stalin.c:109387: warning: unused variable `e4412' dynamic-stalin.c:109386: warning: unused variable `e4411' dynamic-stalin.c:109385: warning: unused variable `e4410' dynamic-stalin.c:109338: warning: unused variable `a4742' dynamic-stalin.c:109337: warning: unused variable `a4741' dynamic-stalin.c:109336: warning: unused variable `a4740' dynamic-stalin.c: In function `f626': dynamic-stalin.c:109590: warning: unused variable `e4408' dynamic-stalin.c:109589: warning: unused variable `e4407' dynamic-stalin.c:109588: warning: unused variable `e4406' dynamic-stalin.c:109543: warning: unused variable `a4737' dynamic-stalin.c:109542: warning: unused variable `a4736' dynamic-stalin.c:109541: warning: unused variable `a4735' dynamic-stalin.c: In function `f600': dynamic-stalin.c:111325: warning: unused variable `e6636' dynamic-stalin.c:111324: warning: unused variable `e6635' dynamic-stalin.c:111323: warning: unused variable `e6634' dynamic-stalin.c:111319: warning: unused variable `e6630' dynamic-stalin.c:111318: warning: unused variable `e6629' dynamic-stalin.c:111317: warning: unused variable `e6628' dynamic-stalin.c:111313: warning: unused variable `e6624' dynamic-stalin.c:111312: warning: unused variable `e6623' dynamic-stalin.c:111311: warning: unused variable `e6622' dynamic-stalin.c:111307: warning: unused variable `e6618' dynamic-stalin.c:111306: warning: unused variable `e6617' dynamic-stalin.c:111305: warning: unused variable `e6616' dynamic-stalin.c:111301: warning: unused variable `e6604' dynamic-stalin.c:111300: warning: unused variable `e6603' dynamic-stalin.c:111299: warning: unused variable `e6602' dynamic-stalin.c:111277: warning: unused variable `e4584' dynamic-stalin.c:111276: warning: unused variable `e4583' dynamic-stalin.c:111275: warning: unused variable `e4582' dynamic-stalin.c:111273: warning: unused variable `e4580' dynamic-stalin.c:111272: warning: unused variable `e4579' dynamic-stalin.c:111271: warning: unused variable `e4578' dynamic-stalin.c:111269: warning: unused variable `e4576' dynamic-stalin.c:111268: warning: unused variable `e4575' dynamic-stalin.c:111267: warning: unused variable `e4574' dynamic-stalin.c:111265: warning: unused variable `e4572' dynamic-stalin.c:111264: warning: unused variable `e4571' dynamic-stalin.c:111263: warning: unused variable `e4570' dynamic-stalin.c:111261: warning: unused variable `e4568' dynamic-stalin.c:111260: warning: unused variable `e4567' dynamic-stalin.c:111259: warning: unused variable `e4566' dynamic-stalin.c:111257: warning: unused variable `e4564' dynamic-stalin.c:111256: warning: unused variable `e4563' dynamic-stalin.c:111255: warning: unused variable `e4562' dynamic-stalin.c:111253: warning: unused variable `e4560' dynamic-stalin.c:111252: warning: unused variable `e4559' dynamic-stalin.c:111251: warning: unused variable `e4558' dynamic-stalin.c:111249: warning: unused variable `e4556' dynamic-stalin.c:111248: warning: unused variable `e4555' dynamic-stalin.c:111247: warning: unused variable `e4554' dynamic-stalin.c:111245: warning: unused variable `e4552' dynamic-stalin.c:111244: warning: unused variable `e4551' dynamic-stalin.c:111243: warning: unused variable `e4550' dynamic-stalin.c:111241: warning: unused variable `e4548' dynamic-stalin.c:111240: warning: unused variable `e4547' dynamic-stalin.c:111239: warning: unused variable `e4546' dynamic-stalin.c:111237: warning: unused variable `e4544' dynamic-stalin.c:111236: warning: unused variable `e4543' dynamic-stalin.c:111235: warning: unused variable `e4542' dynamic-stalin.c:111233: warning: unused variable `e4540' dynamic-stalin.c:111232: warning: unused variable `e4539' dynamic-stalin.c:111231: warning: unused variable `e4538' dynamic-stalin.c:111229: warning: unused variable `e4536' dynamic-stalin.c:111228: warning: unused variable `e4535' dynamic-stalin.c:111227: warning: unused variable `e4534' dynamic-stalin.c:111225: warning: unused variable `e4532' dynamic-stalin.c:111224: warning: unused variable `e4531' dynamic-stalin.c:111223: warning: unused variable `e4530' dynamic-stalin.c:111221: warning: unused variable `e4528' dynamic-stalin.c:111220: warning: unused variable `e4527' dynamic-stalin.c:111219: warning: unused variable `e4526' dynamic-stalin.c:111217: warning: unused variable `e4524' dynamic-stalin.c:111216: warning: unused variable `e4523' dynamic-stalin.c:111215: warning: unused variable `e4522' dynamic-stalin.c:111213: warning: unused variable `e4520' dynamic-stalin.c:111212: warning: unused variable `e4519' dynamic-stalin.c:111211: warning: unused variable `e4518' dynamic-stalin.c:111209: warning: unused variable `e4516' dynamic-stalin.c:111208: warning: unused variable `e4515' dynamic-stalin.c:111207: warning: unused variable `e4514' dynamic-stalin.c:111205: warning: unused variable `e4512' dynamic-stalin.c:111204: warning: unused variable `e4511' dynamic-stalin.c:111203: warning: unused variable `e4510' dynamic-stalin.c:111201: warning: unused variable `e4508' dynamic-stalin.c:111200: warning: unused variable `e4507' dynamic-stalin.c:111199: warning: unused variable `e4506' dynamic-stalin.c:111197: warning: unused variable `e4504' dynamic-stalin.c:111196: warning: unused variable `e4503' dynamic-stalin.c:111195: warning: unused variable `e4502' dynamic-stalin.c:111193: warning: unused variable `e4500' dynamic-stalin.c:111192: warning: unused variable `e4499' dynamic-stalin.c:111191: warning: unused variable `e4498' dynamic-stalin.c:111189: warning: unused variable `e4496' dynamic-stalin.c:111188: warning: unused variable `e4495' dynamic-stalin.c:111187: warning: unused variable `e4494' dynamic-stalin.c:111185: warning: unused variable `e4492' dynamic-stalin.c:111184: warning: unused variable `e4491' dynamic-stalin.c:111183: warning: unused variable `e4490' dynamic-stalin.c:111181: warning: unused variable `e4488' dynamic-stalin.c:111180: warning: unused variable `e4487' dynamic-stalin.c:111179: warning: unused variable `e4486' dynamic-stalin.c:111177: warning: unused variable `e4484' dynamic-stalin.c:111176: warning: unused variable `e4483' dynamic-stalin.c:111175: warning: unused variable `e4482' dynamic-stalin.c:111173: warning: unused variable `e4480' dynamic-stalin.c:111172: warning: unused variable `e4479' dynamic-stalin.c:111171: warning: unused variable `e4478' dynamic-stalin.c:111169: warning: unused variable `e4476' dynamic-stalin.c:111168: warning: unused variable `e4475' dynamic-stalin.c:111167: warning: unused variable `e4474' dynamic-stalin.c:111165: warning: unused variable `e4472' dynamic-stalin.c:111164: warning: unused variable `e4471' dynamic-stalin.c:111163: warning: unused variable `e4470' dynamic-stalin.c:111161: warning: unused variable `e4468' dynamic-stalin.c:111160: warning: unused variable `e4467' dynamic-stalin.c:111159: warning: unused variable `e4466' dynamic-stalin.c:111157: warning: unused variable `e4464' dynamic-stalin.c:111156: warning: unused variable `e4463' dynamic-stalin.c:111155: warning: unused variable `e4462' dynamic-stalin.c:111153: warning: unused variable `e4460' dynamic-stalin.c:111152: warning: unused variable `e4459' dynamic-stalin.c:111151: warning: unused variable `e4458' dynamic-stalin.c:111149: warning: unused variable `e4456' dynamic-stalin.c:111148: warning: unused variable `e4455' dynamic-stalin.c:111147: warning: unused variable `e4454' dynamic-stalin.c:111145: warning: unused variable `e4452' dynamic-stalin.c:111144: warning: unused variable `e4451' dynamic-stalin.c:111143: warning: unused variable `e4450' dynamic-stalin.c:111141: warning: unused variable `e4404' dynamic-stalin.c:111140: warning: unused variable `e4403' dynamic-stalin.c:111139: warning: unused variable `e4402' dynamic-stalin.c:111137: warning: unused variable `e4400' dynamic-stalin.c:111136: warning: unused variable `e4399' dynamic-stalin.c:111135: warning: unused variable `e4398' dynamic-stalin.c:111100: warning: unused variable `e610' dynamic-stalin.c:111099: warning: unused variable `e608' dynamic-stalin.c:111098: warning: unused variable `e606' dynamic-stalin.c:111097: warning: unused variable `e605' dynamic-stalin.c:111096: warning: unused variable `e604' dynamic-stalin.c:111095: warning: unused variable `e603' dynamic-stalin.c:110040: warning: unused variable `a7437' dynamic-stalin.c:110039: warning: unused variable `a7436' dynamic-stalin.c:110038: warning: unused variable `a7435' dynamic-stalin.c:110033: warning: unused variable `a7430' dynamic-stalin.c:110032: warning: unused variable `a7429' dynamic-stalin.c:110031: warning: unused variable `a7428' dynamic-stalin.c:110026: warning: unused variable `a7423' dynamic-stalin.c:110025: warning: unused variable `a7422' dynamic-stalin.c:110024: warning: unused variable `a7421' dynamic-stalin.c:110019: warning: unused variable `a7416' dynamic-stalin.c:110018: warning: unused variable `a7415' dynamic-stalin.c:110017: warning: unused variable `a7414' dynamic-stalin.c:110012: warning: unused variable `a7404' dynamic-stalin.c:110011: warning: unused variable `a7403' dynamic-stalin.c:110010: warning: unused variable `a7402' dynamic-stalin.c:109982: warning: unused variable `a4957' dynamic-stalin.c:109981: warning: unused variable `a4956' dynamic-stalin.c:109980: warning: unused variable `a4955' dynamic-stalin.c:109977: warning: unused variable `a4952' dynamic-stalin.c:109976: warning: unused variable `a4951' dynamic-stalin.c:109975: warning: unused variable `a4950' dynamic-stalin.c:109972: warning: unused variable `a4947' dynamic-stalin.c:109971: warning: unused variable `a4946' dynamic-stalin.c:109970: warning: unused variable `a4945' dynamic-stalin.c:109967: warning: unused variable `a4942' dynamic-stalin.c:109966: warning: unused variable `a4941' dynamic-stalin.c:109965: warning: unused variable `a4940' dynamic-stalin.c:109962: warning: unused variable `a4937' dynamic-stalin.c:109961: warning: unused variable `a4936' dynamic-stalin.c:109960: warning: unused variable `a4935' dynamic-stalin.c:109957: warning: unused variable `a4932' dynamic-stalin.c:109956: warning: unused variable `a4931' dynamic-stalin.c:109955: warning: unused variable `a4930' dynamic-stalin.c:109952: warning: unused variable `a4927' dynamic-stalin.c:109951: warning: unused variable `a4926' dynamic-stalin.c:109950: warning: unused variable `a4925' dynamic-stalin.c:109947: warning: unused variable `a4922' dynamic-stalin.c:109946: warning: unused variable `a4921' dynamic-stalin.c:109945: warning: unused variable `a4920' dynamic-stalin.c:109942: warning: unused variable `a4917' dynamic-stalin.c:109941: warning: unused variable `a4916' dynamic-stalin.c:109940: warning: unused variable `a4915' dynamic-stalin.c:109937: warning: unused variable `a4912' dynamic-stalin.c:109936: warning: unused variable `a4911' dynamic-stalin.c:109935: warning: unused variable `a4910' dynamic-stalin.c:109932: warning: unused variable `a4907' dynamic-stalin.c:109931: warning: unused variable `a4906' dynamic-stalin.c:109930: warning: unused variable `a4905' dynamic-stalin.c:109927: warning: unused variable `a4902' dynamic-stalin.c:109926: warning: unused variable `a4901' dynamic-stalin.c:109925: warning: unused variable `a4900' dynamic-stalin.c:109922: warning: unused variable `a4897' dynamic-stalin.c:109921: warning: unused variable `a4896' dynamic-stalin.c:109920: warning: unused variable `a4895' dynamic-stalin.c:109917: warning: unused variable `a4892' dynamic-stalin.c:109916: warning: unused variable `a4891' dynamic-stalin.c:109915: warning: unused variable `a4890' dynamic-stalin.c:109912: warning: unused variable `a4887' dynamic-stalin.c:109911: warning: unused variable `a4886' dynamic-stalin.c:109910: warning: unused variable `a4885' dynamic-stalin.c:109907: warning: unused variable `a4882' dynamic-stalin.c:109906: warning: unused variable `a4881' dynamic-stalin.c:109905: warning: unused variable `a4880' dynamic-stalin.c:109902: warning: unused variable `a4877' dynamic-stalin.c:109901: warning: unused variable `a4876' dynamic-stalin.c:109900: warning: unused variable `a4875' dynamic-stalin.c:109897: warning: unused variable `a4872' dynamic-stalin.c:109896: warning: unused variable `a4871' dynamic-stalin.c:109895: warning: unused variable `a4870' dynamic-stalin.c:109892: warning: unused variable `a4867' dynamic-stalin.c:109891: warning: unused variable `a4866' dynamic-stalin.c:109890: warning: unused variable `a4865' dynamic-stalin.c:109887: warning: unused variable `a4862' dynamic-stalin.c:109886: warning: unused variable `a4861' dynamic-stalin.c:109885: warning: unused variable `a4860' dynamic-stalin.c:109882: warning: unused variable `a4857' dynamic-stalin.c:109881: warning: unused variable `a4856' dynamic-stalin.c:109880: warning: unused variable `a4855' dynamic-stalin.c:109877: warning: unused variable `a4852' dynamic-stalin.c:109876: warning: unused variable `a4851' dynamic-stalin.c:109875: warning: unused variable `a4850' dynamic-stalin.c:109872: warning: unused variable `a4847' dynamic-stalin.c:109871: warning: unused variable `a4846' dynamic-stalin.c:109870: warning: unused variable `a4845' dynamic-stalin.c:109867: warning: unused variable `a4842' dynamic-stalin.c:109866: warning: unused variable `a4841' dynamic-stalin.c:109865: warning: unused variable `a4840' dynamic-stalin.c:109862: warning: unused variable `a4837' dynamic-stalin.c:109861: warning: unused variable `a4836' dynamic-stalin.c:109860: warning: unused variable `a4835' dynamic-stalin.c:109857: warning: unused variable `a4832' dynamic-stalin.c:109856: warning: unused variable `a4831' dynamic-stalin.c:109855: warning: unused variable `a4830' dynamic-stalin.c:109852: warning: unused variable `a4827' dynamic-stalin.c:109851: warning: unused variable `a4826' dynamic-stalin.c:109850: warning: unused variable `a4825' dynamic-stalin.c:109847: warning: unused variable `a4822' dynamic-stalin.c:109846: warning: unused variable `a4821' dynamic-stalin.c:109845: warning: unused variable `a4820' dynamic-stalin.c:109842: warning: unused variable `a4817' dynamic-stalin.c:109841: warning: unused variable `a4816' dynamic-stalin.c:109840: warning: unused variable `a4815' dynamic-stalin.c:109837: warning: unused variable `a4812' dynamic-stalin.c:109836: warning: unused variable `a4811' dynamic-stalin.c:109835: warning: unused variable `a4810' dynamic-stalin.c:109832: warning: unused variable `a4807' dynamic-stalin.c:109831: warning: unused variable `a4806' dynamic-stalin.c:109830: warning: unused variable `a4805' dynamic-stalin.c:109827: warning: unused variable `a4802' dynamic-stalin.c:109826: warning: unused variable `a4801' dynamic-stalin.c:109825: warning: unused variable `a4800' dynamic-stalin.c:109822: warning: unused variable `a4797' dynamic-stalin.c:109821: warning: unused variable `a4796' dynamic-stalin.c:109820: warning: unused variable `a4795' dynamic-stalin.c:109817: warning: unused variable `a4792' dynamic-stalin.c:109816: warning: unused variable `a4791' dynamic-stalin.c:109815: warning: unused variable `a4790' dynamic-stalin.c:109812: warning: unused variable `a4732' dynamic-stalin.c:109811: warning: unused variable `a4731' dynamic-stalin.c:109810: warning: unused variable `a4730' dynamic-stalin.c:109807: warning: unused variable `a4727' dynamic-stalin.c:109806: warning: unused variable `a4726' dynamic-stalin.c:109805: warning: unused variable `a4725' dynamic-stalin.c:109768: warning: unused variable `a1638' dynamic-stalin.c:109767: warning: unused variable `a1637' dynamic-stalin.c:109766: warning: unused variable `a1636' dynamic-stalin.c:109765: warning: unused variable `a1635' dynamic-stalin.c:109764: warning: unused variable `a1634' dynamic-stalin.c:109763: warning: unused variable `a1633' dynamic-stalin.c:109753: warning: `a1618' might be used uninitialized in this function dynamic-stalin.c:109754: warning: `a1619' might be used uninitialized in this function dynamic-stalin.c:109757: warning: `a1626' might be used uninitialized in this function dynamic-stalin.c:109758: warning: `a1627' might be used uninitialized in this function dynamic-stalin.c:109776: warning: `a2492' might be used uninitialized in this function dynamic-stalin.c:109778: warning: `a2494' might be used uninitialized in this function dynamic-stalin.c:109780: warning: `a2496' might be used uninitialized in this function dynamic-stalin.c:109781: warning: `a2497' might be used uninitialized in this function dynamic-stalin.c:109985: warning: `a5549' might be used uninitialized in this function dynamic-stalin.c:109986: warning: `a5550' might be used uninitialized in this function dynamic-stalin.c:109989: warning: `a5553' might be used uninitialized in this function dynamic-stalin.c:109990: warning: `a5554' might be used uninitialized in this function dynamic-stalin.c:109993: warning: `a5557' might be used uninitialized in this function dynamic-stalin.c:109994: warning: `a5558' might be used uninitialized in this function dynamic-stalin.c:109997: warning: `a5561' might be used uninitialized in this function dynamic-stalin.c:109998: warning: `a5562' might be used uninitialized in this function dynamic-stalin.c:110001: warning: `a5565' might be used uninitialized in this function dynamic-stalin.c:110002: warning: `a5566' might be used uninitialized in this function dynamic-stalin.c:110005: warning: `a5918' might be used uninitialized in this function dynamic-stalin.c:110007: warning: `a5920' might be used uninitialized in this function dynamic-stalin.c: In function `f590': dynamic-stalin.c:117334: warning: unused variable `e4448' dynamic-stalin.c:117333: warning: unused variable `e4447' dynamic-stalin.c:117332: warning: unused variable `e4446' dynamic-stalin.c:117300: warning: unused variable `a4787' dynamic-stalin.c:117299: warning: unused variable `a4786' dynamic-stalin.c:117298: warning: unused variable `a4785' dynamic-stalin.c:117292: warning: `a1622' might be used uninitialized in this function dynamic-stalin.c:117293: warning: `a1623' might be used uninitialized in this function dynamic-stalin.c: In function `f531': dynamic-stalin.c:117425: warning: `a7312' might be used uninitialized in this function dynamic-stalin.c: In function `f510': dynamic-stalin.c:117610: warning: `a3505' might be used uninitialized in this function dynamic-stalin.c: In function `f506': dynamic-stalin.c:117673: warning: `a3475' might be used uninitialized in this function dynamic-stalin.c: In function `f497': dynamic-stalin.c:117782: warning: `a3490' might be used uninitialized in this function dynamic-stalin.c: In function `f496': dynamic-stalin.c:117845: warning: `a3487' might be used uninitialized in this function dynamic-stalin.c: In function `f472': dynamic-stalin.c:117909: warning: `a3484' might be used uninitialized in this function dynamic-stalin.c: In function `f458': dynamic-stalin.c:123471: warning: unused variable `e4804' dynamic-stalin.c:123470: warning: unused variable `e4803' dynamic-stalin.c:123469: warning: unused variable `e4802' dynamic-stalin.c:123467: warning: unused variable `e4800' dynamic-stalin.c:123466: warning: unused variable `e4799' dynamic-stalin.c:123465: warning: unused variable `e4798' dynamic-stalin.c:123463: warning: unused variable `e4796' dynamic-stalin.c:123462: warning: unused variable `e4795' dynamic-stalin.c:123461: warning: unused variable `e4794' dynamic-stalin.c:123459: warning: unused variable `e4792' dynamic-stalin.c:123458: warning: unused variable `e4791' dynamic-stalin.c:123457: warning: unused variable `e4790' dynamic-stalin.c:123455: warning: unused variable `e4788' dynamic-stalin.c:123454: warning: unused variable `e4787' dynamic-stalin.c:123453: warning: unused variable `e4786' dynamic-stalin.c:123451: warning: unused variable `e4784' dynamic-stalin.c:123450: warning: unused variable `e4783' dynamic-stalin.c:123449: warning: unused variable `e4782' dynamic-stalin.c:123447: warning: unused variable `e4780' dynamic-stalin.c:123446: warning: unused variable `e4779' dynamic-stalin.c:123445: warning: unused variable `e4778' dynamic-stalin.c:123443: warning: unused variable `e4776' dynamic-stalin.c:123442: warning: unused variable `e4775' dynamic-stalin.c:123441: warning: unused variable `e4774' dynamic-stalin.c:123439: warning: unused variable `e4772' dynamic-stalin.c:123438: warning: unused variable `e4771' dynamic-stalin.c:123437: warning: unused variable `e4770' dynamic-stalin.c:123435: warning: unused variable `e4768' dynamic-stalin.c:123434: warning: unused variable `e4767' dynamic-stalin.c:123433: warning: unused variable `e4766' dynamic-stalin.c:123431: warning: unused variable `e4764' dynamic-stalin.c:123430: warning: unused variable `e4763' dynamic-stalin.c:123429: warning: unused variable `e4762' dynamic-stalin.c:123427: warning: unused variable `e4760' dynamic-stalin.c:123426: warning: unused variable `e4759' dynamic-stalin.c:123425: warning: unused variable `e4758' dynamic-stalin.c:123423: warning: unused variable `e4756' dynamic-stalin.c:123422: warning: unused variable `e4755' dynamic-stalin.c:123421: warning: unused variable `e4754' dynamic-stalin.c:123419: warning: unused variable `e4752' dynamic-stalin.c:123418: warning: unused variable `e4751' dynamic-stalin.c:123417: warning: unused variable `e4750' dynamic-stalin.c:123415: warning: unused variable `e4748' dynamic-stalin.c:123414: warning: unused variable `e4747' dynamic-stalin.c:123413: warning: unused variable `e4746' dynamic-stalin.c:123411: warning: unused variable `e4744' dynamic-stalin.c:123410: warning: unused variable `e4743' dynamic-stalin.c:123409: warning: unused variable `e4742' dynamic-stalin.c:123407: warning: unused variable `e4740' dynamic-stalin.c:123406: warning: unused variable `e4739' dynamic-stalin.c:123405: warning: unused variable `e4738' dynamic-stalin.c:123403: warning: unused variable `e4736' dynamic-stalin.c:123402: warning: unused variable `e4735' dynamic-stalin.c:123401: warning: unused variable `e4734' dynamic-stalin.c:123399: warning: unused variable `e4732' dynamic-stalin.c:123398: warning: unused variable `e4731' dynamic-stalin.c:123397: warning: unused variable `e4730' dynamic-stalin.c:123395: warning: unused variable `e4728' dynamic-stalin.c:123394: warning: unused variable `e4727' dynamic-stalin.c:123393: warning: unused variable `e4726' dynamic-stalin.c:123391: warning: unused variable `e4724' dynamic-stalin.c:123390: warning: unused variable `e4723' dynamic-stalin.c:123389: warning: unused variable `e4722' dynamic-stalin.c:123387: warning: unused variable `e4720' dynamic-stalin.c:123386: warning: unused variable `e4719' dynamic-stalin.c:123385: warning: unused variable `e4718' dynamic-stalin.c:123383: warning: unused variable `e4716' dynamic-stalin.c:123382: warning: unused variable `e4715' dynamic-stalin.c:123381: warning: unused variable `e4714' dynamic-stalin.c:123379: warning: unused variable `e4712' dynamic-stalin.c:123378: warning: unused variable `e4711' dynamic-stalin.c:123377: warning: unused variable `e4710' dynamic-stalin.c:123375: warning: unused variable `e4708' dynamic-stalin.c:123374: warning: unused variable `e4707' dynamic-stalin.c:123373: warning: unused variable `e4706' dynamic-stalin.c:123371: warning: unused variable `e4704' dynamic-stalin.c:123370: warning: unused variable `e4703' dynamic-stalin.c:123369: warning: unused variable `e4702' dynamic-stalin.c:123367: warning: unused variable `e4700' dynamic-stalin.c:123366: warning: unused variable `e4699' dynamic-stalin.c:123365: warning: unused variable `e4698' dynamic-stalin.c:123363: warning: unused variable `e4696' dynamic-stalin.c:123362: warning: unused variable `e4695' dynamic-stalin.c:123361: warning: unused variable `e4694' dynamic-stalin.c:123359: warning: unused variable `e4692' dynamic-stalin.c:123358: warning: unused variable `e4691' dynamic-stalin.c:123357: warning: unused variable `e4690' dynamic-stalin.c:123355: warning: unused variable `e4688' dynamic-stalin.c:123354: warning: unused variable `e4687' dynamic-stalin.c:123353: warning: unused variable `e4686' dynamic-stalin.c:123351: warning: unused variable `e4684' dynamic-stalin.c:123350: warning: unused variable `e4683' dynamic-stalin.c:123349: warning: unused variable `e4682' dynamic-stalin.c:123347: warning: unused variable `e4680' dynamic-stalin.c:123346: warning: unused variable `e4679' dynamic-stalin.c:123345: warning: unused variable `e4678' dynamic-stalin.c:123343: warning: unused variable `e4676' dynamic-stalin.c:123342: warning: unused variable `e4675' dynamic-stalin.c:123341: warning: unused variable `e4674' dynamic-stalin.c:123339: warning: unused variable `e4668' dynamic-stalin.c:123338: warning: unused variable `e4667' dynamic-stalin.c:123337: warning: unused variable `e4666' dynamic-stalin.c:123165: warning: unused variable `e512' dynamic-stalin.c:123164: warning: unused variable `e511' dynamic-stalin.c:123162: warning: unused variable `e507' dynamic-stalin.c:123145: warning: unused variable `e474' dynamic-stalin.c:123144: warning: unused variable `e473' dynamic-stalin.c:123141: warning: unused variable `e462' dynamic-stalin.c:123140: warning: unused variable `e461' dynamic-stalin.c:118430: warning: unused variable `a5232' dynamic-stalin.c:118429: warning: unused variable `a5231' dynamic-stalin.c:118428: warning: unused variable `a5230' dynamic-stalin.c:118425: warning: unused variable `a5227' dynamic-stalin.c:118424: warning: unused variable `a5226' dynamic-stalin.c:118423: warning: unused variable `a5225' dynamic-stalin.c:118420: warning: unused variable `a5222' dynamic-stalin.c:118419: warning: unused variable `a5221' dynamic-stalin.c:118418: warning: unused variable `a5220' dynamic-stalin.c:118415: warning: unused variable `a5217' dynamic-stalin.c:118414: warning: unused variable `a5216' dynamic-stalin.c:118413: warning: unused variable `a5215' dynamic-stalin.c:118410: warning: unused variable `a5212' dynamic-stalin.c:118409: warning: unused variable `a5211' dynamic-stalin.c:118408: warning: unused variable `a5210' dynamic-stalin.c:118405: warning: unused variable `a5207' dynamic-stalin.c:118404: warning: unused variable `a5206' dynamic-stalin.c:118403: warning: unused variable `a5205' dynamic-stalin.c:118400: warning: unused variable `a5202' dynamic-stalin.c:118399: warning: unused variable `a5201' dynamic-stalin.c:118398: warning: unused variable `a5200' dynamic-stalin.c:118395: warning: unused variable `a5197' dynamic-stalin.c:118394: warning: unused variable `a5196' dynamic-stalin.c:118393: warning: unused variable `a5195' dynamic-stalin.c:118390: warning: unused variable `a5192' dynamic-stalin.c:118389: warning: unused variable `a5191' dynamic-stalin.c:118388: warning: unused variable `a5190' dynamic-stalin.c:118385: warning: unused variable `a5187' dynamic-stalin.c:118384: warning: unused variable `a5186' dynamic-stalin.c:118383: warning: unused variable `a5185' dynamic-stalin.c:118380: warning: unused variable `a5182' dynamic-stalin.c:118379: warning: unused variable `a5181' dynamic-stalin.c:118378: warning: unused variable `a5180' dynamic-stalin.c:118375: warning: unused variable `a5177' dynamic-stalin.c:118374: warning: unused variable `a5176' dynamic-stalin.c:118373: warning: unused variable `a5175' dynamic-stalin.c:118370: warning: unused variable `a5172' dynamic-stalin.c:118369: warning: unused variable `a5171' dynamic-stalin.c:118368: warning: unused variable `a5170' dynamic-stalin.c:118365: warning: unused variable `a5167' dynamic-stalin.c:118364: warning: unused variable `a5166' dynamic-stalin.c:118363: warning: unused variable `a5165' dynamic-stalin.c:118360: warning: unused variable `a5162' dynamic-stalin.c:118359: warning: unused variable `a5161' dynamic-stalin.c:118358: warning: unused variable `a5160' dynamic-stalin.c:118355: warning: unused variable `a5157' dynamic-stalin.c:118354: warning: unused variable `a5156' dynamic-stalin.c:118353: warning: unused variable `a5155' dynamic-stalin.c:118350: warning: unused variable `a5152' dynamic-stalin.c:118349: warning: unused variable `a5151' dynamic-stalin.c:118348: warning: unused variable `a5150' dynamic-stalin.c:118345: warning: unused variable `a5147' dynamic-stalin.c:118344: warning: unused variable `a5146' dynamic-stalin.c:118343: warning: unused variable `a5145' dynamic-stalin.c:118340: warning: unused variable `a5142' dynamic-stalin.c:118339: warning: unused variable `a5141' dynamic-stalin.c:118338: warning: unused variable `a5140' dynamic-stalin.c:118335: warning: unused variable `a5137' dynamic-stalin.c:118334: warning: unused variable `a5136' dynamic-stalin.c:118333: warning: unused variable `a5135' dynamic-stalin.c:118330: warning: unused variable `a5132' dynamic-stalin.c:118329: warning: unused variable `a5131' dynamic-stalin.c:118328: warning: unused variable `a5130' dynamic-stalin.c:118325: warning: unused variable `a5127' dynamic-stalin.c:118324: warning: unused variable `a5126' dynamic-stalin.c:118323: warning: unused variable `a5125' dynamic-stalin.c:118320: warning: unused variable `a5122' dynamic-stalin.c:118319: warning: unused variable `a5121' dynamic-stalin.c:118318: warning: unused variable `a5120' dynamic-stalin.c:118315: warning: unused variable `a5117' dynamic-stalin.c:118314: warning: unused variable `a5116' dynamic-stalin.c:118313: warning: unused variable `a5115' dynamic-stalin.c:118310: warning: unused variable `a5112' dynamic-stalin.c:118309: warning: unused variable `a5111' dynamic-stalin.c:118308: warning: unused variable `a5110' dynamic-stalin.c:118305: warning: unused variable `a5107' dynamic-stalin.c:118304: warning: unused variable `a5106' dynamic-stalin.c:118303: warning: unused variable `a5105' dynamic-stalin.c:118300: warning: unused variable `a5102' dynamic-stalin.c:118299: warning: unused variable `a5101' dynamic-stalin.c:118298: warning: unused variable `a5100' dynamic-stalin.c:118295: warning: unused variable `a5097' dynamic-stalin.c:118294: warning: unused variable `a5096' dynamic-stalin.c:118293: warning: unused variable `a5095' dynamic-stalin.c:118290: warning: unused variable `a5092' dynamic-stalin.c:118289: warning: unused variable `a5091' dynamic-stalin.c:118288: warning: unused variable `a5090' dynamic-stalin.c:118285: warning: unused variable `a5087' dynamic-stalin.c:118284: warning: unused variable `a5086' dynamic-stalin.c:118283: warning: unused variable `a5085' dynamic-stalin.c:118280: warning: unused variable `a5082' dynamic-stalin.c:118279: warning: unused variable `a5081' dynamic-stalin.c:118278: warning: unused variable `a5080' dynamic-stalin.c:118275: warning: unused variable `a5077' dynamic-stalin.c:118274: warning: unused variable `a5076' dynamic-stalin.c:118273: warning: unused variable `a5075' dynamic-stalin.c:118270: warning: unused variable `a5072' dynamic-stalin.c:118269: warning: unused variable `a5071' dynamic-stalin.c:118268: warning: unused variable `a5070' dynamic-stalin.c:118265: warning: unused variable `a5062' dynamic-stalin.c:118264: warning: unused variable `a5061' dynamic-stalin.c:118263: warning: unused variable `a5060' dynamic-stalin.c:118015: warning: unused variable `a1563' dynamic-stalin.c:118014: warning: unused variable `a1562' dynamic-stalin.c:118012: warning: unused variable `a1559' dynamic-stalin.c:117988: warning: unused variable `a1530' dynamic-stalin.c:117987: warning: unused variable `a1529' dynamic-stalin.c:117984: warning: unused variable `a1525' dynamic-stalin.c:117983: warning: unused variable `a1524' dynamic-stalin.c:117986: warning: `a1527' might be used uninitialized in this function dynamic-stalin.c:117993: warning: `a1535' might be used uninitialized in this function dynamic-stalin.c:117995: warning: `a1537' might be used uninitialized in this function dynamic-stalin.c:117999: warning: `a1541' might be used uninitialized in this function dynamic-stalin.c:118000: warning: `a1542' might be used uninitialized in this function dynamic-stalin.c:118003: warning: `a1545' might be used uninitialized in this function dynamic-stalin.c:118005: warning: `a1547' might be used uninitialized in this function dynamic-stalin.c:118006: warning: `a1548' might be used uninitialized in this function dynamic-stalin.c:118010: warning: `a1554' might be used uninitialized in this function dynamic-stalin.c:118011: warning: `a1555' might be used uninitialized in this function dynamic-stalin.c:118013: warning: `a1560' might be used uninitialized in this function dynamic-stalin.c:118019: warning: `a1567' might be used uninitialized in this function dynamic-stalin.c:118024: warning: `a1572' might be used uninitialized in this function dynamic-stalin.c:118025: warning: `a1573' might be used uninitialized in this function dynamic-stalin.c:118028: warning: `a1576' might be used uninitialized in this function dynamic-stalin.c:118032: warning: `a1580' might be used uninitialized in this function dynamic-stalin.c:118235: warning: `a3481' might be used uninitialized in this function dynamic-stalin.c:118238: warning: `a3493' might be used uninitialized in this function dynamic-stalin.c:118241: warning: `a3496' might be used uninitialized in this function dynamic-stalin.c:118244: warning: `a3499' might be used uninitialized in this function dynamic-stalin.c:118247: warning: `a3502' might be used uninitialized in this function dynamic-stalin.c:118250: warning: `a3508' might be used uninitialized in this function dynamic-stalin.c:118253: warning: `a3511' might be used uninitialized in this function dynamic-stalin.c:118255: warning: `a4657' might be used uninitialized in this function dynamic-stalin.c:118257: warning: `a4659' might be used uninitialized in this function dynamic-stalin.c:118259: warning: `a4671' might be used uninitialized in this function dynamic-stalin.c:118262: warning: `a5059' might be used uninitialized in this function dynamic-stalin.c:118745: warning: `a6960' might be used uninitialized in this function dynamic-stalin.c:118748: warning: `a6968' might be used uninitialized in this function dynamic-stalin.c:118751: warning: `a6976' might be used uninitialized in this function dynamic-stalin.c:118754: warning: `a6984' might be used uninitialized in this function dynamic-stalin.c:118757: warning: `a6992' might be used uninitialized in this function dynamic-stalin.c:118760: warning: `a7000' might be used uninitialized in this function dynamic-stalin.c:118763: warning: `a7008' might be used uninitialized in this function dynamic-stalin.c:118766: warning: `a7016' might be used uninitialized in this function dynamic-stalin.c:118769: warning: `a7024' might be used uninitialized in this function dynamic-stalin.c:118772: warning: `a7027' might be used uninitialized in this function dynamic-stalin.c:118774: warning: `a7034' might be used uninitialized in this function dynamic-stalin.c:118777: warning: `a7042' might be used uninitialized in this function dynamic-stalin.c:118780: warning: `a7050' might be used uninitialized in this function dynamic-stalin.c:118783: warning: `a7058' might be used uninitialized in this function dynamic-stalin.c:118786: warning: `a7066' might be used uninitialized in this function dynamic-stalin.c:118789: warning: `a7074' might be used uninitialized in this function dynamic-stalin.c:118792: warning: `a7082' might be used uninitialized in this function dynamic-stalin.c:118795: warning: `a7090' might be used uninitialized in this function dynamic-stalin.c:118798: warning: `a7098' might be used uninitialized in this function dynamic-stalin.c:118801: warning: `a7106' might be used uninitialized in this function dynamic-stalin.c:118804: warning: `a7114' might be used uninitialized in this function dynamic-stalin.c:118807: warning: `a7122' might be used uninitialized in this function dynamic-stalin.c:118810: warning: `a7130' might be used uninitialized in this function dynamic-stalin.c:118813: warning: `a7138' might be used uninitialized in this function dynamic-stalin.c:118816: warning: `a7146' might be used uninitialized in this function dynamic-stalin.c:118819: warning: `a7154' might be used uninitialized in this function dynamic-stalin.c:118822: warning: `a7162' might be used uninitialized in this function dynamic-stalin.c:118825: warning: `a7170' might be used uninitialized in this function dynamic-stalin.c:118828: warning: `a7173' might be used uninitialized in this function dynamic-stalin.c:118831: warning: `a7176' might be used uninitialized in this function dynamic-stalin.c:118834: warning: `a7179' might be used uninitialized in this function dynamic-stalin.c:118837: warning: `a7182' might be used uninitialized in this function dynamic-stalin.c:118840: warning: `a7185' might be used uninitialized in this function dynamic-stalin.c:118843: warning: `a7188' might be used uninitialized in this function dynamic-stalin.c:118846: warning: `a7191' might be used uninitialized in this function dynamic-stalin.c:118849: warning: `a7194' might be used uninitialized in this function dynamic-stalin.c:118852: warning: `a7197' might be used uninitialized in this function dynamic-stalin.c:118855: warning: `a7200' might be used uninitialized in this function dynamic-stalin.c:118858: warning: `a7203' might be used uninitialized in this function dynamic-stalin.c:118861: warning: `a7206' might be used uninitialized in this function dynamic-stalin.c:118864: warning: `a7209' might be used uninitialized in this function dynamic-stalin.c:118867: warning: `a7212' might be used uninitialized in this function dynamic-stalin.c:118873: warning: `a7218' might be used uninitialized in this function dynamic-stalin.c:118879: warning: `a7224' might be used uninitialized in this function dynamic-stalin.c:118885: warning: `a7230' might be used uninitialized in this function dynamic-stalin.c:118891: warning: `a7236' might be used uninitialized in this function dynamic-stalin.c:118898: warning: `a7243' might be used uninitialized in this function dynamic-stalin.c:118905: warning: `a7250' might be used uninitialized in this function dynamic-stalin.c:118912: warning: `a7257' might be used uninitialized in this function dynamic-stalin.c:118919: warning: `a7264' might be used uninitialized in this function dynamic-stalin.c:118926: warning: `a7271' might be used uninitialized in this function dynamic-stalin.c:118933: warning: `a7278' might be used uninitialized in this function dynamic-stalin.c:118940: warning: `a7285' might be used uninitialized in this function dynamic-stalin.c:118947: warning: `a7292' might be used uninitialized in this function dynamic-stalin.c:118955: warning: `a7300' might be used uninitialized in this function dynamic-stalin.c:118958: warning: `a7303' might be used uninitialized in this function dynamic-stalin.c:118961: warning: `a7306' might be used uninitialized in this function dynamic-stalin.c:118964: warning: `a7309' might be used uninitialized in this function dynamic-stalin.c:118966: warning: `a7445' might be used uninitialized in this function dynamic-stalin.c:118969: warning: `a7448' might be used uninitialized in this function dynamic-stalin.c:118972: warning: `a7456' might be used uninitialized in this function dynamic-stalin.c:118975: warning: `a7459' might be used uninitialized in this function dynamic-stalin.c:118978: warning: `a7467' might be used uninitialized in this function dynamic-stalin.c:118981: warning: `a7470' might be used uninitialized in this function dynamic-stalin.c:118984: warning: `a7478' might be used uninitialized in this function dynamic-stalin.c:118987: warning: `a7481' might be used uninitialized in this function dynamic-stalin.c:118990: warning: `a7489' might be used uninitialized in this function dynamic-stalin.c:118993: warning: `a7492' might be used uninitialized in this function dynamic-stalin.c:118996: warning: `a7500' might be used uninitialized in this function dynamic-stalin.c:118999: warning: `a7503' might be used uninitialized in this function dynamic-stalin.c:119002: warning: `a7511' might be used uninitialized in this function dynamic-stalin.c:119005: warning: `a7514' might be used uninitialized in this function dynamic-stalin.c:119008: warning: `a7522' might be used uninitialized in this function dynamic-stalin.c:119011: warning: `a7525' might be used uninitialized in this function dynamic-stalin.c:119014: warning: `a7533' might be used uninitialized in this function dynamic-stalin.c:119017: warning: `a7536' might be used uninitialized in this function dynamic-stalin.c:119020: warning: `a7539' might be used uninitialized in this function dynamic-stalin.c:119023: warning: `a7547' might be used uninitialized in this function dynamic-stalin.c:119026: warning: `a7550' might be used uninitialized in this function dynamic-stalin.c:119029: warning: `a7553' might be used uninitialized in this function dynamic-stalin.c:119032: warning: `a7561' might be used uninitialized in this function dynamic-stalin.c:119035: warning: `a7564' might be used uninitialized in this function dynamic-stalin.c:119038: warning: `a7567' might be used uninitialized in this function dynamic-stalin.c:119041: warning: `a7575' might be used uninitialized in this function dynamic-stalin.c:119044: warning: `a7583' might be used uninitialized in this function dynamic-stalin.c:119047: warning: `a7591' might be used uninitialized in this function dynamic-stalin.c:119050: warning: `a7599' might be used uninitialized in this function dynamic-stalin.c:119053: warning: `a7607' might be used uninitialized in this function dynamic-stalin.c:119056: warning: `a7615' might be used uninitialized in this function dynamic-stalin.c:119059: warning: `a7623' might be used uninitialized in this function dynamic-stalin.c:119062: warning: `a7631' might be used uninitialized in this function dynamic-stalin.c:119065: warning: `a7634' might be used uninitialized in this function dynamic-stalin.c:119068: warning: `a7637' might be used uninitialized in this function dynamic-stalin.c:119071: warning: `a7640' might be used uninitialized in this function dynamic-stalin.c:119074: warning: `a7643' might be used uninitialized in this function dynamic-stalin.c:119080: warning: `a7649' might be used uninitialized in this function dynamic-stalin.c:119086: warning: `a7655' might be used uninitialized in this function dynamic-stalin.c:119092: warning: `a7661' might be used uninitialized in this function dynamic-stalin.c:119098: warning: `a7667' might be used uninitialized in this function dynamic-stalin.c:119104: warning: `a7673' might be used uninitialized in this function dynamic-stalin.c:119110: warning: `a7679' might be used uninitialized in this function dynamic-stalin.c:119116: warning: `a7685' might be used uninitialized in this function dynamic-stalin.c:119122: warning: `a7691' might be used uninitialized in this function dynamic-stalin.c:119129: warning: `a7698' might be used uninitialized in this function dynamic-stalin.c:119132: warning: `a7701' might be used uninitialized in this function dynamic-stalin.c:119135: warning: `a7704' might be used uninitialized in this function dynamic-stalin.c:119138: warning: `a7707' might be used uninitialized in this function dynamic-stalin.c:119141: warning: `a7710' might be used uninitialized in this function dynamic-stalin.c:119144: warning: `a7718' might be used uninitialized in this function dynamic-stalin.c:119147: warning: `a7721' might be used uninitialized in this function dynamic-stalin.c:119150: warning: `a7724' might be used uninitialized in this function dynamic-stalin.c:119153: warning: `a7732' might be used uninitialized in this function dynamic-stalin.c:119156: warning: `a7735' might be used uninitialized in this function dynamic-stalin.c:119159: warning: `a7738' might be used uninitialized in this function dynamic-stalin.c:119162: warning: `a7746' might be used uninitialized in this function dynamic-stalin.c:119165: warning: `a7749' might be used uninitialized in this function dynamic-stalin.c:119168: warning: `a7752' might be used uninitialized in this function dynamic-stalin.c:119171: warning: `a7760' might be used uninitialized in this function dynamic-stalin.c:119174: warning: `a7763' might be used uninitialized in this function dynamic-stalin.c:119177: warning: `a7766' might be used uninitialized in this function dynamic-stalin.c:119180: warning: `a7774' might be used uninitialized in this function dynamic-stalin.c:119183: warning: `a7777' might be used uninitialized in this function dynamic-stalin.c:119186: warning: `a7780' might be used uninitialized in this function dynamic-stalin.c:119189: warning: `a7783' might be used uninitialized in this function dynamic-stalin.c:119192: warning: `a7786' might be used uninitialized in this function dynamic-stalin.c:119195: warning: `a7789' might be used uninitialized in this function dynamic-stalin.c:119198: warning: `a7792' might be used uninitialized in this function dynamic-stalin.c:119201: warning: `a7795' might be used uninitialized in this function dynamic-stalin.c:119204: warning: `a7798' might be used uninitialized in this function dynamic-stalin.c:119210: warning: `a7804' might be used uninitialized in this function dynamic-stalin.c:119213: warning: `a7807' might be used uninitialized in this function dynamic-stalin.c:119216: warning: `a7810' might be used uninitialized in this function dynamic-stalin.c:119219: warning: `a7813' might be used uninitialized in this function dynamic-stalin.c:119222: warning: `a7821' might be used uninitialized in this function dynamic-stalin.c:119225: warning: `a7824' might be used uninitialized in this function dynamic-stalin.c:119228: warning: `a7827' might be used uninitialized in this function dynamic-stalin.c:119231: warning: `a7830' might be used uninitialized in this function dynamic-stalin.c:119234: warning: `a7838' might be used uninitialized in this function dynamic-stalin.c:119237: warning: `a7841' might be used uninitialized in this function dynamic-stalin.c:119240: warning: `a7844' might be used uninitialized in this function dynamic-stalin.c:119243: warning: `a7847' might be used uninitialized in this function dynamic-stalin.c:119246: warning: `a7855' might be used uninitialized in this function dynamic-stalin.c:119249: warning: `a7858' might be used uninitialized in this function dynamic-stalin.c:119252: warning: `a7861' might be used uninitialized in this function dynamic-stalin.c:119255: warning: `a7864' might be used uninitialized in this function dynamic-stalin.c:119258: warning: `a7872' might be used uninitialized in this function dynamic-stalin.c:119261: warning: `a7875' might be used uninitialized in this function dynamic-stalin.c:119264: warning: `a7878' might be used uninitialized in this function dynamic-stalin.c:119267: warning: `a7881' might be used uninitialized in this function dynamic-stalin.c:119270: warning: `a7889' might be used uninitialized in this function dynamic-stalin.c:119273: warning: `a7892' might be used uninitialized in this function dynamic-stalin.c:119276: warning: `a7895' might be used uninitialized in this function dynamic-stalin.c:119279: warning: `a7898' might be used uninitialized in this function dynamic-stalin.c:119282: warning: `a7906' might be used uninitialized in this function dynamic-stalin.c:119285: warning: `a7909' might be used uninitialized in this function dynamic-stalin.c:119288: warning: `a7912' might be used uninitialized in this function dynamic-stalin.c:119291: warning: `a7915' might be used uninitialized in this function dynamic-stalin.c:119294: warning: `a7923' might be used uninitialized in this function dynamic-stalin.c:119297: warning: `a7926' might be used uninitialized in this function dynamic-stalin.c:119300: warning: `a7929' might be used uninitialized in this function dynamic-stalin.c:119303: warning: `a7932' might be used uninitialized in this function dynamic-stalin.c:119306: warning: `a7940' might be used uninitialized in this function dynamic-stalin.c:119309: warning: `a7943' might be used uninitialized in this function dynamic-stalin.c:119312: warning: `a7946' might be used uninitialized in this function dynamic-stalin.c:119315: warning: `a7949' might be used uninitialized in this function dynamic-stalin.c:119318: warning: `a7952' might be used uninitialized in this function dynamic-stalin.c:119321: warning: `a7955' might be used uninitialized in this function dynamic-stalin.c:119324: warning: `a7963' might be used uninitialized in this function dynamic-stalin.c: In function `f440': dynamic-stalin.c:150626: warning: unused variable `e4444' dynamic-stalin.c:150625: warning: unused variable `e4443' dynamic-stalin.c:150624: warning: unused variable `e4442' dynamic-stalin.c:150622: warning: unused variable `e4440' dynamic-stalin.c:150621: warning: unused variable `e4439' dynamic-stalin.c:150620: warning: unused variable `e4438' dynamic-stalin.c:150618: warning: unused variable `e4436' dynamic-stalin.c:150617: warning: unused variable `e4435' dynamic-stalin.c:150616: warning: unused variable `e4434' dynamic-stalin.c:150614: warning: unused variable `e4432' dynamic-stalin.c:150613: warning: unused variable `e4431' dynamic-stalin.c:150612: warning: unused variable `e4430' dynamic-stalin.c:150610: warning: unused variable `e4428' dynamic-stalin.c:150609: warning: unused variable `e4427' dynamic-stalin.c:150608: warning: unused variable `e4426' dynamic-stalin.c:150606: warning: unused variable `e4424' dynamic-stalin.c:150605: warning: unused variable `e4423' dynamic-stalin.c:150604: warning: unused variable `e4422' dynamic-stalin.c:150602: warning: unused variable `e4420' dynamic-stalin.c:150601: warning: unused variable `e4419' dynamic-stalin.c:150600: warning: unused variable `e4418' dynamic-stalin.c:150598: warning: unused variable `e4416' dynamic-stalin.c:150597: warning: unused variable `e4415' dynamic-stalin.c:150596: warning: unused variable `e4414' dynamic-stalin.c:150590: warning: unused variable `e446' dynamic-stalin.c:150589: warning: unused variable `e445' dynamic-stalin.c:150588: warning: unused variable `e444' dynamic-stalin.c:150587: warning: unused variable `e443' dynamic-stalin.c:150586: warning: unused variable `e442' dynamic-stalin.c:150387: warning: unused variable `a4782' dynamic-stalin.c:150386: warning: unused variable `a4781' dynamic-stalin.c:150385: warning: unused variable `a4780' dynamic-stalin.c:150382: warning: unused variable `a4777' dynamic-stalin.c:150381: warning: unused variable `a4776' dynamic-stalin.c:150380: warning: unused variable `a4775' dynamic-stalin.c:150377: warning: unused variable `a4772' dynamic-stalin.c:150376: warning: unused variable `a4771' dynamic-stalin.c:150375: warning: unused variable `a4770' dynamic-stalin.c:150372: warning: unused variable `a4767' dynamic-stalin.c:150371: warning: unused variable `a4766' dynamic-stalin.c:150370: warning: unused variable `a4765' dynamic-stalin.c:150367: warning: unused variable `a4762' dynamic-stalin.c:150366: warning: unused variable `a4761' dynamic-stalin.c:150365: warning: unused variable `a4760' dynamic-stalin.c:150362: warning: unused variable `a4757' dynamic-stalin.c:150361: warning: unused variable `a4756' dynamic-stalin.c:150360: warning: unused variable `a4755' dynamic-stalin.c:150357: warning: unused variable `a4752' dynamic-stalin.c:150356: warning: unused variable `a4751' dynamic-stalin.c:150355: warning: unused variable `a4750' dynamic-stalin.c:150352: warning: unused variable `a4747' dynamic-stalin.c:150351: warning: unused variable `a4746' dynamic-stalin.c:150350: warning: unused variable `a4745' dynamic-stalin.c:150343: warning: unused variable `a1509' dynamic-stalin.c:150342: warning: unused variable `a1508' dynamic-stalin.c:150341: warning: unused variable `a1507' dynamic-stalin.c:150340: warning: unused variable `a1506' dynamic-stalin.c:150339: warning: unused variable `a1505' dynamic-stalin.c:150390: warning: `a5928' might be used uninitialized in this function dynamic-stalin.c:150392: warning: `a5930' might be used uninitialized in this function dynamic-stalin.c:150394: warning: `a5932' might be used uninitialized in this function dynamic-stalin.c:150395: warning: `a5933' might be used uninitialized in this function dynamic-stalin.c:150398: warning: `a7409' might be used uninitialized in this function dynamic-stalin.c:150400: warning: `a7411' might be used uninitialized in this function dynamic-stalin.c: In function `f360': dynamic-stalin.c:151894: warning: `r360' might be used uninitialized in this function dynamic-stalin.c: In function `f354': dynamic-stalin.c:151967: warning: `a1426' might be used uninitialized in this function dynamic-stalin.c: In function `f315': dynamic-stalin.c:152085: warning: unused variable `e4380' dynamic-stalin.c:152084: warning: unused variable `e4379' dynamic-stalin.c:152083: warning: unused variable `e4378' dynamic-stalin.c:152027: warning: unused variable `a4702' dynamic-stalin.c:152026: warning: unused variable `a4701' dynamic-stalin.c:152025: warning: unused variable `a4700' dynamic-stalin.c:152014: warning: `r315' might be used uninitialized in this function dynamic-stalin.c:152019: warning: `a1391' might be used uninitialized in this function dynamic-stalin.c:152030: warning: `t19338' might be used uninitialized in this function dynamic-stalin.c: In function `f299': dynamic-stalin.c:152558: warning: unused variable `e4396' dynamic-stalin.c:152557: warning: unused variable `e4395' dynamic-stalin.c:152556: warning: unused variable `e4394' dynamic-stalin.c:152554: warning: unused variable `e4392' dynamic-stalin.c:152553: warning: unused variable `e4391' dynamic-stalin.c:152552: warning: unused variable `e4390' dynamic-stalin.c:152550: warning: unused variable `e4388' dynamic-stalin.c:152549: warning: unused variable `e4387' dynamic-stalin.c:152548: warning: unused variable `e4386' dynamic-stalin.c:152546: warning: unused variable `e4384' dynamic-stalin.c:152545: warning: unused variable `e4383' dynamic-stalin.c:152544: warning: unused variable `e4382' dynamic-stalin.c:152377: warning: unused variable `a4722' dynamic-stalin.c:152376: warning: unused variable `a4721' dynamic-stalin.c:152375: warning: unused variable `a4720' dynamic-stalin.c:152372: warning: unused variable `a4717' dynamic-stalin.c:152371: warning: unused variable `a4716' dynamic-stalin.c:152370: warning: unused variable `a4715' dynamic-stalin.c:152367: warning: unused variable `a4712' dynamic-stalin.c:152366: warning: unused variable `a4711' dynamic-stalin.c:152365: warning: unused variable `a4710' dynamic-stalin.c:152362: warning: unused variable `a4707' dynamic-stalin.c:152361: warning: unused variable `a4706' dynamic-stalin.c:152360: warning: unused variable `a4705' dynamic-stalin.c:152344: warning: `r299' might be used uninitialized in this function dynamic-stalin.c:152353: warning: `a1386' might be used uninitialized in this function dynamic-stalin.c: In function `f297': dynamic-stalin.c:154017: warning: `a1355' might be used uninitialized in this function dynamic-stalin.c: In function `f295': dynamic-stalin.c:154066: warning: `a4669' might be used uninitialized in this function dynamic-stalin.c:154067: warning: `a4670' might be used uninitialized in this function dynamic-stalin.c: In function `f294': dynamic-stalin.c:154094: warning: `a4667' might be used uninitialized in this function dynamic-stalin.c:154095: warning: `a4668' might be used uninitialized in this function dynamic-stalin.c: In function `f293': dynamic-stalin.c:154122: warning: `a4665' might be used uninitialized in this function dynamic-stalin.c:154123: warning: `a4666' might be used uninitialized in this function dynamic-stalin.c: In function `f292': dynamic-stalin.c:154150: warning: `a4663' might be used uninitialized in this function dynamic-stalin.c:154151: warning: `a4664' might be used uninitialized in this function dynamic-stalin.c: In function `f291': dynamic-stalin.c:154178: warning: `a4661' might be used uninitialized in this function dynamic-stalin.c:154179: warning: `a4662' might be used uninitialized in this function dynamic-stalin.c: In function `f290': dynamic-stalin.c:154209: warning: `a6849' might be used uninitialized in this function dynamic-stalin.c: In function `f269': dynamic-stalin.c:154307: warning: `a1354' might be used uninitialized in this function dynamic-stalin.c: In function `f260': dynamic-stalin.c:154324: warning: `a1348' might be used uninitialized in this function dynamic-stalin.c:154325: warning: `a1349' might be used uninitialized in this function dynamic-stalin.c:154326: warning: `a1350' might be used uninitialized in this function dynamic-stalin.c:154327: warning: `a1351' might be used uninitialized in this function dynamic-stalin.c: In function `f256': dynamic-stalin.c:154462: warning: `a1343' might be used uninitialized in this function dynamic-stalin.c: In function `f229': dynamic-stalin.c:155573: warning: unused variable `e4664' dynamic-stalin.c:155572: warning: unused variable `e4663' dynamic-stalin.c:155571: warning: unused variable `e4662' dynamic-stalin.c:155569: warning: unused variable `e4660' dynamic-stalin.c:155568: warning: unused variable `e4659' dynamic-stalin.c:155567: warning: unused variable `e4658' dynamic-stalin.c:155519: warning: unused variable `a5057' dynamic-stalin.c:155518: warning: unused variable `a5056' dynamic-stalin.c:155517: warning: unused variable `a5055' dynamic-stalin.c:155514: warning: unused variable `a5052' dynamic-stalin.c:155513: warning: unused variable `a5051' dynamic-stalin.c:155512: warning: unused variable `a5050' dynamic-stalin.c:155511: warning: `a5049' might be used uninitialized in this function dynamic-stalin.c:155516: warning: `a5054' might be used uninitialized in this function dynamic-stalin.c: In function `f228': dynamic-stalin.c:155836: warning: unused variable `e5521' dynamic-stalin.c:155834: warning: unused variable `e5519' dynamic-stalin.c:155830: warning: unused variable `e5515' dynamic-stalin.c:155795: warning: unused variable `a5893' dynamic-stalin.c:155793: warning: unused variable `a5891' dynamic-stalin.c:155788: warning: unused variable `a5886' dynamic-stalin.c:155790: warning: `a5888' might be used uninitialized in this function dynamic-stalin.c: In function `f179': dynamic-stalin.c:156013: warning: `a5906' might be used uninitialized in this function dynamic-stalin.c:156014: warning: `a5907' might be used uninitialized in this function dynamic-stalin.c:156020: warning: `a7374' might be used uninitialized in this function dynamic-stalin.c: In function `f155': dynamic-stalin.c:156524: warning: unused variable `e5485' dynamic-stalin.c:156522: warning: unused variable `e5483' dynamic-stalin.c:156518: warning: unused variable `e5479' dynamic-stalin.c:156516: warning: unused variable `e4592' dynamic-stalin.c:156515: warning: unused variable `e4591' dynamic-stalin.c:156514: warning: unused variable `e4590' dynamic-stalin.c:156451: warning: unused variable `a5857' dynamic-stalin.c:156449: warning: unused variable `a5855' dynamic-stalin.c:156444: warning: unused variable `a5850' dynamic-stalin.c:156442: warning: unused variable `a4967' dynamic-stalin.c:156441: warning: unused variable `a4966' dynamic-stalin.c:156440: warning: unused variable `a4965' dynamic-stalin.c:156439: warning: `a4964' might be used uninitialized in this function dynamic-stalin.c:156446: warning: `a5852' might be used uninitialized in this function dynamic-stalin.c: In function `f150': dynamic-stalin.c:156877: warning: unused variable `e4588' dynamic-stalin.c:156876: warning: unused variable `e4587' dynamic-stalin.c:156875: warning: unused variable `e4586' dynamic-stalin.c:156848: warning: unused variable `a4962' dynamic-stalin.c:156847: warning: unused variable `a4961' dynamic-stalin.c:156846: warning: unused variable `a4960' dynamic-stalin.c:156845: warning: `a4959' might be used uninitialized in this function dynamic-stalin.c: In function `f130': dynamic-stalin.c:157120: warning: unused variable `e4600' dynamic-stalin.c:157119: warning: unused variable `e4599' dynamic-stalin.c:157118: warning: unused variable `e4598' dynamic-stalin.c:157116: warning: unused variable `e4596' dynamic-stalin.c:157115: warning: unused variable `e4595' dynamic-stalin.c:157114: warning: unused variable `e4594' dynamic-stalin.c:157018: warning: unused variable `a4977' dynamic-stalin.c:157017: warning: unused variable `a4976' dynamic-stalin.c:157016: warning: unused variable `a4975' dynamic-stalin.c:157013: warning: unused variable `a4972' dynamic-stalin.c:157012: warning: unused variable `a4971' dynamic-stalin.c:157011: warning: unused variable `a4970' dynamic-stalin.c:157010: warning: `a4969' might be used uninitialized in this function dynamic-stalin.c:157015: warning: `a4974' might be used uninitialized in this function dynamic-stalin.c: In function `f127': dynamic-stalin.c:157824: warning: `a1213' might be used uninitialized in this function dynamic-stalin.c:157825: warning: `a1214' might be used uninitialized in this function dynamic-stalin.c:157826: warning: `a1215' might be used uninitialized in this function dynamic-stalin.c:157827: warning: `a1216' might be used uninitialized in this function dynamic-stalin.c: In function `f78': dynamic-stalin.c:159715: warning: unused variable `e5512' dynamic-stalin.c:159713: warning: unused variable `e5510' dynamic-stalin.c:159709: warning: unused variable `e5506' dynamic-stalin.c:159707: warning: unused variable `e5503' dynamic-stalin.c:159705: warning: unused variable `e5501' dynamic-stalin.c:159701: warning: unused variable `e5497' dynamic-stalin.c:159699: warning: unused variable `e5494' dynamic-stalin.c:159697: warning: unused variable `e5492' dynamic-stalin.c:159693: warning: unused variable `e5488' dynamic-stalin.c:159677: warning: unused variable `e4656' dynamic-stalin.c:159676: warning: unused variable `e4655' dynamic-stalin.c:159675: warning: unused variable `e4654' dynamic-stalin.c:159673: warning: unused variable `e4652' dynamic-stalin.c:159672: warning: unused variable `e4651' dynamic-stalin.c:159671: warning: unused variable `e4650' dynamic-stalin.c:159669: warning: unused variable `e4648' dynamic-stalin.c:159668: warning: unused variable `e4647' dynamic-stalin.c:159667: warning: unused variable `e4646' dynamic-stalin.c:159665: warning: unused variable `e4644' dynamic-stalin.c:159664: warning: unused variable `e4643' dynamic-stalin.c:159663: warning: unused variable `e4642' dynamic-stalin.c:159661: warning: unused variable `e4640' dynamic-stalin.c:159660: warning: unused variable `e4639' dynamic-stalin.c:159659: warning: unused variable `e4638' dynamic-stalin.c:159657: warning: unused variable `e4636' dynamic-stalin.c:159656: warning: unused variable `e4635' dynamic-stalin.c:159655: warning: unused variable `e4634' dynamic-stalin.c:159653: warning: unused variable `e4632' dynamic-stalin.c:159652: warning: unused variable `e4631' dynamic-stalin.c:159651: warning: unused variable `e4630' dynamic-stalin.c:159649: warning: unused variable `e4628' dynamic-stalin.c:159648: warning: unused variable `e4627' dynamic-stalin.c:159647: warning: unused variable `e4626' dynamic-stalin.c:159645: warning: unused variable `e4624' dynamic-stalin.c:159644: warning: unused variable `e4623' dynamic-stalin.c:159643: warning: unused variable `e4622' dynamic-stalin.c:159641: warning: unused variable `e4620' dynamic-stalin.c:159640: warning: unused variable `e4619' dynamic-stalin.c:159639: warning: unused variable `e4618' dynamic-stalin.c:159637: warning: unused variable `e4616' dynamic-stalin.c:159636: warning: unused variable `e4615' dynamic-stalin.c:159635: warning: unused variable `e4614' dynamic-stalin.c:159633: warning: unused variable `e4612' dynamic-stalin.c:159632: warning: unused variable `e4611' dynamic-stalin.c:159631: warning: unused variable `e4610' dynamic-stalin.c:159629: warning: unused variable `e4608' dynamic-stalin.c:159628: warning: unused variable `e4607' dynamic-stalin.c:159627: warning: unused variable `e4606' dynamic-stalin.c:159625: warning: unused variable `e4604' dynamic-stalin.c:159624: warning: unused variable `e4603' dynamic-stalin.c:159623: warning: unused variable `e4602' dynamic-stalin.c:159598: warning: unused variable `e1031' dynamic-stalin.c:159596: warning: unused variable `e1029' dynamic-stalin.c:159592: warning: unused variable `e1025' dynamic-stalin.c:158297: warning: unused variable `a5884' dynamic-stalin.c:158295: warning: unused variable `a5882' dynamic-stalin.c:158290: warning: unused variable `a5877' dynamic-stalin.c:158288: warning: unused variable `a5875' dynamic-stalin.c:158286: warning: unused variable `a5873' dynamic-stalin.c:158281: warning: unused variable `a5868' dynamic-stalin.c:158279: warning: unused variable `a5866' dynamic-stalin.c:158277: warning: unused variable `a5864' dynamic-stalin.c:158272: warning: unused variable `a5859' dynamic-stalin.c:158246: warning: unused variable `a5047' dynamic-stalin.c:158245: warning: unused variable `a5046' dynamic-stalin.c:158244: warning: unused variable `a5045' dynamic-stalin.c:158241: warning: unused variable `a5042' dynamic-stalin.c:158240: warning: unused variable `a5041' dynamic-stalin.c:158239: warning: unused variable `a5040' dynamic-stalin.c:158236: warning: unused variable `a5037' dynamic-stalin.c:158235: warning: unused variable `a5036' dynamic-stalin.c:158234: warning: unused variable `a5035' dynamic-stalin.c:158231: warning: unused variable `a5032' dynamic-stalin.c:158230: warning: unused variable `a5031' dynamic-stalin.c:158229: warning: unused variable `a5030' dynamic-stalin.c:158226: warning: unused variable `a5027' dynamic-stalin.c:158225: warning: unused variable `a5026' dynamic-stalin.c:158224: warning: unused variable `a5025' dynamic-stalin.c:158221: warning: unused variable `a5022' dynamic-stalin.c:158220: warning: unused variable `a5021' dynamic-stalin.c:158219: warning: unused variable `a5020' dynamic-stalin.c:158216: warning: unused variable `a5017' dynamic-stalin.c:158215: warning: unused variable `a5016' dynamic-stalin.c:158214: warning: unused variable `a5015' dynamic-stalin.c:158211: warning: unused variable `a5012' dynamic-stalin.c:158210: warning: unused variable `a5011' dynamic-stalin.c:158209: warning: unused variable `a5010' dynamic-stalin.c:158206: warning: unused variable `a5007' dynamic-stalin.c:158205: warning: unused variable `a5006' dynamic-stalin.c:158204: warning: unused variable `a5005' dynamic-stalin.c:158201: warning: unused variable `a5002' dynamic-stalin.c:158200: warning: unused variable `a5001' dynamic-stalin.c:158199: warning: unused variable `a5000' dynamic-stalin.c:158196: warning: unused variable `a4997' dynamic-stalin.c:158195: warning: unused variable `a4996' dynamic-stalin.c:158194: warning: unused variable `a4995' dynamic-stalin.c:158191: warning: unused variable `a4992' dynamic-stalin.c:158190: warning: unused variable `a4991' dynamic-stalin.c:158189: warning: unused variable `a4990' dynamic-stalin.c:158186: warning: unused variable `a4987' dynamic-stalin.c:158185: warning: unused variable `a4986' dynamic-stalin.c:158184: warning: unused variable `a4985' dynamic-stalin.c:158181: warning: unused variable `a4982' dynamic-stalin.c:158180: warning: unused variable `a4981' dynamic-stalin.c:158179: warning: unused variable `a4980' dynamic-stalin.c:158149: warning: unused variable `a1854' dynamic-stalin.c:158147: warning: unused variable `a1852' dynamic-stalin.c:158142: warning: unused variable `a1847' dynamic-stalin.c:158023: warning: `sfp196' might be used uninitialized in this function dynamic-stalin.c:158029: warning: `a1186' might be used uninitialized in this function dynamic-stalin.c:158030: warning: `a1187' might be used uninitialized in this function dynamic-stalin.c:158088: warning: `a1279' might be used uninitialized in this function dynamic-stalin.c:158089: warning: `a1280' might be used uninitialized in this function dynamic-stalin.c:158144: warning: `a1849' might be used uninitialized in this function dynamic-stalin.c:158152: warning: `a1858' might be used uninitialized in this function dynamic-stalin.c:158154: warning: `a1860' might be used uninitialized in this function dynamic-stalin.c:158174: warning: `a4625' might be used uninitialized in this function dynamic-stalin.c:158178: warning: `a4979' might be used uninitialized in this function dynamic-stalin.c:158183: warning: `a4984' might be used uninitialized in this function dynamic-stalin.c:158188: warning: `a4989' might be used uninitialized in this function dynamic-stalin.c:158193: warning: `a4994' might be used uninitialized in this function dynamic-stalin.c:158198: warning: `a4999' might be used uninitialized in this function dynamic-stalin.c:158203: warning: `a5004' might be used uninitialized in this function dynamic-stalin.c:158208: warning: `a5009' might be used uninitialized in this function dynamic-stalin.c:158213: warning: `a5014' might be used uninitialized in this function dynamic-stalin.c:158218: warning: `a5019' might be used uninitialized in this function dynamic-stalin.c:158223: warning: `a5024' might be used uninitialized in this function dynamic-stalin.c:158228: warning: `a5029' might be used uninitialized in this function dynamic-stalin.c:158233: warning: `a5034' might be used uninitialized in this function dynamic-stalin.c:158238: warning: `a5039' might be used uninitialized in this function dynamic-stalin.c:158243: warning: `a5044' might be used uninitialized in this function dynamic-stalin.c:158253: warning: `a5784' might be used uninitialized in this function dynamic-stalin.c:158274: warning: `a5861' might be used uninitialized in this function dynamic-stalin.c:158283: warning: `a5870' might be used uninitialized in this function dynamic-stalin.c:158292: warning: `a5879' might be used uninitialized in this function dynamic-stalin.c:158302: warning: `a5900' might be used uninitialized in this function dynamic-stalin.c:158303: warning: `a5901' might be used uninitialized in this function dynamic-stalin.c:158308: warning: `a5912' might be used uninitialized in this function dynamic-stalin.c:158309: warning: `a5913' might be used uninitialized in this function dynamic-stalin.c:158320: warning: `a7344' might be used uninitialized in this function dynamic-stalin.c:158332: warning: `a7368' might be used uninitialized in this function dynamic-stalin.c:158338: warning: `a7380' might be used uninitialized in this function dynamic-stalin.c:158345: warning: `a7387' might be used uninitialized in this function dynamic-stalin.c:158350: warning: `a7392' might be used uninitialized in this function dynamic-stalin.c:159550: warning: `e187' might be used uninitialized in this function dynamic-stalin.c:159559: warning: `e199' might be used uninitialized in this function dynamic-stalin.c:159684: warning: `e5418' might be used uninitialized in this function dynamic-stalin.c:159830: warning: `p194' might be used uninitialized in this function dynamic-stalin.c:159937: warning: `p5418' might be used uninitialized in this function dynamic-stalin.c: In function `f59': dynamic-stalin.c:165861: warning: `a3390' might be used uninitialized in this function dynamic-stalin.c: In function `f56': dynamic-stalin.c:167011: warning: `a1163' might be used uninitialized in this function dynamic-stalin.c:167012: warning: `a1164' might be used uninitialized in this function dynamic-stalin.c: In function `f42': dynamic-stalin.c:167045: warning: `a1152' might be used uninitialized in this function dynamic-stalin.c:167046: warning: `a1153' might be used uninitialized in this function dynamic-stalin.c:167070: warning: `a7338' might be used uninitialized in this function dynamic-stalin.c:167203: warning: `e5423' might be used uninitialized in this function dynamic-stalin.c:167220: warning: `p49' might be used uninitialized in this function dynamic-stalin.c:167225: warning: `p5423' might be used uninitialized in this function dynamic-stalin.c: In function `f27': dynamic-stalin.c:167965: warning: `a2488' might be used uninitialized in this function dynamic-stalin.c: In function `f0': dynamic-stalin.c:168440: warning: `a1' might be used uninitialized in this function dynamic-stalin.c:168441: warning: `a2' might be used uninitialized in this function dynamic-stalin.c:168442: warning: `a3' might be used uninitialized in this function dynamic-stalin.c:168443: warning: `a4' might be used uninitialized in this function dynamic-stalin.c:168444: warning: `a5' might be used uninitialized in this function dynamic-stalin.c:168445: warning: `a6' might be used uninitialized in this function dynamic-stalin.c:168446: warning: `a7' might be used uninitialized in this function dynamic-stalin.c:168447: warning: `a8' might be used uninitialized in this function dynamic-stalin.c:168448: warning: `a9' might be used uninitialized in this function dynamic-stalin.c:168449: warning: `a10' might be used uninitialized in this function dynamic-stalin.c:168450: warning: `a11' might be used uninitialized in this function dynamic-stalin.c:168451: warning: `a12' might be used uninitialized in this function dynamic-stalin.c:168452: warning: `a13' might be used uninitialized in this function dynamic-stalin.c:168453: warning: `a14' might be used uninitialized in this function dynamic-stalin.c:168454: warning: `a15' might be used uninitialized in this function dynamic-stalin.c:168455: warning: `a16' might be used uninitialized in this function dynamic-stalin.c:168456: warning: `a17' might be used uninitialized in this function dynamic-stalin.c:168457: warning: `a18' might be used uninitialized in this function dynamic-stalin.c:168458: warning: `a19' might be used uninitialized in this function dynamic-stalin.c:168459: warning: `a20' might be used uninitialized in this function dynamic-stalin.c:168460: warning: `a21' might be used uninitialized in this function dynamic-stalin.c:168461: warning: `a22' might be used uninitialized in this function dynamic-stalin.c:168462: warning: `a23' might be used uninitialized in this function dynamic-stalin.c:168463: warning: `a24' might be used uninitialized in this function dynamic-stalin.c:168464: warning: `a25' might be used uninitialized in this function dynamic-stalin.c:168465: warning: `a26' might be used uninitialized in this function dynamic-stalin.c:168466: warning: `a27' might be used uninitialized in this function dynamic-stalin.c:168467: warning: `a28' might be used uninitialized in this function dynamic-stalin.c:168468: warning: `a29' might be used uninitialized in this function dynamic-stalin.c:168469: warning: `a30' might be used uninitialized in this function dynamic-stalin.c:168470: warning: `a31' might be used uninitialized in this function dynamic-stalin.c:168471: warning: `a32' might be used uninitialized in this function dynamic-stalin.c:168472: warning: `a33' might be used uninitialized in this function dynamic-stalin.c:168473: warning: `a34' might be used uninitialized in this function dynamic-stalin.c:168474: warning: `a35' might be used uninitialized in this function dynamic-stalin.c:168475: warning: `a36' might be used uninitialized in this function dynamic-stalin.c:168476: warning: `a37' might be used uninitialized in this function dynamic-stalin.c:168477: warning: `a38' might be used uninitialized in this function dynamic-stalin.c:168478: warning: `a39' might be used uninitialized in this function dynamic-stalin.c:168479: warning: `a40' might be used uninitialized in this function dynamic-stalin.c:168480: warning: `a41' might be used uninitialized in this function dynamic-stalin.c:168481: warning: `a42' might be used uninitialized in this function dynamic-stalin.c:168482: warning: `a43' might be used uninitialized in this function dynamic-stalin.c:168483: warning: `a44' might be used uninitialized in this function dynamic-stalin.c:168484: warning: `a45' might be used uninitialized in this function dynamic-stalin.c:168485: warning: `a46' might be used uninitialized in this function dynamic-stalin.c:168486: warning: `a47' might be used uninitialized in this function dynamic-stalin.c:168487: warning: `a48' might be used uninitialized in this function dynamic-stalin.c:168488: warning: `a49' might be used uninitialized in this function dynamic-stalin.c:168489: warning: `a50' might be used uninitialized in this function dynamic-stalin.c:168490: warning: `a51' might be used uninitialized in this function dynamic-stalin.c:168491: warning: `a52' might be used uninitialized in this function dynamic-stalin.c:168492: warning: `a53' might be used uninitialized in this function dynamic-stalin.c:168493: warning: `a54' might be used uninitialized in this function dynamic-stalin.c:168494: warning: `a55' might be used uninitialized in this function dynamic-stalin.c:168495: warning: `a56' might be used uninitialized in this function dynamic-stalin.c:168496: warning: `a57' might be used uninitialized in this function dynamic-stalin.c:168497: warning: `a58' might be used uninitialized in this function dynamic-stalin.c:168498: warning: `a59' might be used uninitialized in this function dynamic-stalin.c:168499: warning: `a60' might be used uninitialized in this function dynamic-stalin.c:168500: warning: `a61' might be used uninitialized in this function dynamic-stalin.c:168501: warning: `a62' might be used uninitialized in this function dynamic-stalin.c:168502: warning: `a63' might be used uninitialized in this function dynamic-stalin.c:168503: warning: `a64' might be used uninitialized in this function dynamic-stalin.c:168504: warning: `a65' might be used uninitialized in this function dynamic-stalin.c:168505: warning: `a66' might be used uninitialized in this function dynamic-stalin.c:168506: warning: `a67' might be used uninitialized in this function dynamic-stalin.c:168507: warning: `a68' might be used uninitialized in this function dynamic-stalin.c:168508: warning: `a69' might be used uninitialized in this function dynamic-stalin.c:168509: warning: `a70' might be used uninitialized in this function dynamic-stalin.c:168510: warning: `a71' might be used uninitialized in this function dynamic-stalin.c:168511: warning: `a72' might be used uninitialized in this function dynamic-stalin.c:168512: warning: `a73' might be used uninitialized in this function dynamic-stalin.c:168513: warning: `a74' might be used uninitialized in this function dynamic-stalin.c:168514: warning: `a75' might be used uninitialized in this function dynamic-stalin.c:168515: warning: `a76' might be used uninitialized in this function dynamic-stalin.c:168516: warning: `a77' might be used uninitialized in this function dynamic-stalin.c:168517: warning: `a78' might be used uninitialized in this function dynamic-stalin.c:168518: warning: `a79' might be used uninitialized in this function dynamic-stalin.c:168519: warning: `a80' might be used uninitialized in this function dynamic-stalin.c:168520: warning: `a81' might be used uninitialized in this function dynamic-stalin.c:168521: warning: `a82' might be used uninitialized in this function dynamic-stalin.c:168522: warning: `a83' might be used uninitialized in this function dynamic-stalin.c:168523: warning: `a84' might be used uninitialized in this function dynamic-stalin.c:168524: warning: `a85' might be used uninitialized in this function dynamic-stalin.c:168525: warning: `a86' might be used uninitialized in this function dynamic-stalin.c:168526: warning: `a87' might be used uninitialized in this function dynamic-stalin.c:168527: warning: `a88' might be used uninitialized in this function dynamic-stalin.c:168528: warning: `a89' might be used uninitialized in this function dynamic-stalin.c:168529: warning: `a90' might be used uninitialized in this function dynamic-stalin.c:168530: warning: `a91' might be used uninitialized in this function dynamic-stalin.c:168531: warning: `a92' might be used uninitialized in this function dynamic-stalin.c:168532: warning: `a93' might be used uninitialized in this function dynamic-stalin.c:168533: warning: `a94' might be used uninitialized in this function dynamic-stalin.c:168534: warning: `a95' might be used uninitialized in this function dynamic-stalin.c:168535: warning: `a96' might be used uninitialized in this function dynamic-stalin.c:168536: warning: `a97' might be used uninitialized in this function dynamic-stalin.c:168537: warning: `a98' might be used uninitialized in this function dynamic-stalin.c:168538: warning: `a99' might be used uninitialized in this function dynamic-stalin.c:168539: warning: `a100' might be used uninitialized in this function dynamic-stalin.c:168540: warning: `a101' might be used uninitialized in this function dynamic-stalin.c:168541: warning: `a102' might be used uninitialized in this function dynamic-stalin.c:168542: warning: `a103' might be used uninitialized in this function dynamic-stalin.c:168543: warning: `a104' might be used uninitialized in this function dynamic-stalin.c:168544: warning: `a105' might be used uninitialized in this function dynamic-stalin.c:168545: warning: `a106' might be used uninitialized in this function dynamic-stalin.c:168546: warning: `a107' might be used uninitialized in this function dynamic-stalin.c:168547: warning: `a108' might be used uninitialized in this function dynamic-stalin.c:168548: warning: `a109' might be used uninitialized in this function dynamic-stalin.c:168549: warning: `a110' might be used uninitialized in this function dynamic-stalin.c:168550: warning: `a111' might be used uninitialized in this function dynamic-stalin.c:168551: warning: `a112' might be used uninitialized in this function dynamic-stalin.c:168552: warning: `a113' might be used uninitialized in this function dynamic-stalin.c:168553: warning: `a114' might be used uninitialized in this function dynamic-stalin.c:168554: warning: `a115' might be used uninitialized in this function dynamic-stalin.c:168555: warning: `a116' might be used uninitialized in this function dynamic-stalin.c:168556: warning: `a117' might be used uninitialized in this function dynamic-stalin.c:168557: warning: `a118' might be used uninitialized in this function dynamic-stalin.c:168558: warning: `a119' might be used uninitialized in this function dynamic-stalin.c:168559: warning: `a120' might be used uninitialized in this function dynamic-stalin.c:168560: warning: `a121' might be used uninitialized in this function dynamic-stalin.c:168561: warning: `a122' might be used uninitialized in this function dynamic-stalin.c:168562: warning: `a123' might be used uninitialized in this function dynamic-stalin.c:168563: warning: `a124' might be used uninitialized in this function dynamic-stalin.c:168564: warning: `a125' might be used uninitialized in this function dynamic-stalin.c:168565: warning: `a126' might be used uninitialized in this function dynamic-stalin.c:168566: warning: `a127' might be used uninitialized in this function dynamic-stalin.c:168567: warning: `a128' might be used uninitialized in this function dynamic-stalin.c:168568: warning: `a129' might be used uninitialized in this function dynamic-stalin.c:168569: warning: `a130' might be used uninitialized in this function dynamic-stalin.c:168570: warning: `a131' might be used uninitialized in this function dynamic-stalin.c:168571: warning: `a132' might be used uninitialized in this function dynamic-stalin.c:168572: warning: `a133' might be used uninitialized in this function dynamic-stalin.c:168573: warning: `a134' might be used uninitialized in this function dynamic-stalin.c:168574: warning: `a135' might be used uninitialized in this function dynamic-stalin.c:168575: warning: `a136' might be used uninitialized in this function dynamic-stalin.c:168576: warning: `a137' might be used uninitialized in this function dynamic-stalin.c:168577: warning: `a138' might be used uninitialized in this function dynamic-stalin.c:168578: warning: `a139' might be used uninitialized in this function dynamic-stalin.c:168579: warning: `a140' might be used uninitialized in this function dynamic-stalin.c:168580: warning: `a141' might be used uninitialized in this function dynamic-stalin.c:168581: warning: `a142' might be used uninitialized in this function dynamic-stalin.c:168582: warning: `a143' might be used uninitialized in this function dynamic-stalin.c:168583: warning: `a144' might be used uninitialized in this function dynamic-stalin.c:168584: warning: `a145' might be used uninitialized in this function dynamic-stalin.c:168585: warning: `a146' might be used uninitialized in this function dynamic-stalin.c:168586: warning: `a147' might be used uninitialized in this function dynamic-stalin.c:168587: warning: `a148' might be used uninitialized in this function dynamic-stalin.c:168588: warning: `a149' might be used uninitialized in this function dynamic-stalin.c:168589: warning: `a150' might be used uninitialized in this function dynamic-stalin.c:168590: warning: `a151' might be used uninitialized in this function dynamic-stalin.c:168591: warning: `a152' might be used uninitialized in this function dynamic-stalin.c:168592: warning: `a153' might be used uninitialized in this function dynamic-stalin.c:168593: warning: `a154' might be used uninitialized in this function dynamic-stalin.c:168594: warning: `a155' might be used uninitialized in this function dynamic-stalin.c:168595: warning: `a156' might be used uninitialized in this function dynamic-stalin.c:168596: warning: `a157' might be used uninitialized in this function dynamic-stalin.c:168597: warning: `a158' might be used uninitialized in this function dynamic-stalin.c:168598: warning: `a159' might be used uninitialized in this function dynamic-stalin.c:168599: warning: `a160' might be used uninitialized in this function dynamic-stalin.c:168600: warning: `a161' might be used uninitialized in this function dynamic-stalin.c:168601: warning: `a162' might be used uninitialized in this function dynamic-stalin.c:168602: warning: `a163' might be used uninitialized in this function dynamic-stalin.c:168603: warning: `a164' might be used uninitialized in this function dynamic-stalin.c:168604: warning: `a165' might be used uninitialized in this function dynamic-stalin.c:168605: warning: `a166' might be used uninitialized in this function dynamic-stalin.c:168606: warning: `a167' might be used uninitialized in this function dynamic-stalin.c:168607: warning: `a168' might be used uninitialized in this function dynamic-stalin.c:168608: warning: `a169' might be used uninitialized in this function dynamic-stalin.c:168609: warning: `a170' might be used uninitialized in this function dynamic-stalin.c:168610: warning: `a171' might be used uninitialized in this function dynamic-stalin.c:168611: warning: `a172' might be used uninitialized in this function dynamic-stalin.c:168612: warning: `a173' might be used uninitialized in this function dynamic-stalin.c:168613: warning: `a174' might be used uninitialized in this function dynamic-stalin.c:168614: warning: `a175' might be used uninitialized in this function dynamic-stalin.c:168615: warning: `a176' might be used uninitialized in this function dynamic-stalin.c:168616: warning: `a177' might be used uninitialized in this function dynamic-stalin.c:168617: warning: `a178' might be used uninitialized in this function dynamic-stalin.c:168618: warning: `a179' might be used uninitialized in this function dynamic-stalin.c:168619: warning: `a180' might be used uninitialized in this function dynamic-stalin.c:168620: warning: `a181' might be used uninitialized in this function dynamic-stalin.c:168621: warning: `a182' might be used uninitialized in this function dynamic-stalin.c:168622: warning: `a183' might be used uninitialized in this function dynamic-stalin.c:168623: warning: `a184' might be used uninitialized in this function dynamic-stalin.c:168624: warning: `a185' might be used uninitialized in this function dynamic-stalin.c:168625: warning: `a186' might be used uninitialized in this function dynamic-stalin.c:168626: warning: `a187' might be used uninitialized in this function dynamic-stalin.c:168627: warning: `a188' might be used uninitialized in this function dynamic-stalin.c:168628: warning: `a189' might be used uninitialized in this function dynamic-stalin.c:168629: warning: `a190' might be used uninitialized in this function dynamic-stalin.c:168630: warning: `a191' might be used uninitialized in this function dynamic-stalin.c:168631: warning: `a192' might be used uninitialized in this function dynamic-stalin.c:168632: warning: `a193' might be used uninitialized in this function dynamic-stalin.c:168633: warning: `a194' might be used uninitialized in this function dynamic-stalin.c:168634: warning: `a195' might be used uninitialized in this function dynamic-stalin.c:168635: warning: `a196' might be used uninitialized in this function dynamic-stalin.c:168636: warning: `a197' might be used uninitialized in this function dynamic-stalin.c:168637: warning: `a198' might be used uninitialized in this function dynamic-stalin.c:168638: warning: `a199' might be used uninitialized in this function dynamic-stalin.c:168639: warning: `a200' might be used uninitialized in this function dynamic-stalin.c:168640: warning: `a201' might be used uninitialized in this function dynamic-stalin.c:168641: warning: `a202' might be used uninitialized in this function dynamic-stalin.c:168642: warning: `a203' might be used uninitialized in this function dynamic-stalin.c:168643: warning: `a204' might be used uninitialized in this function dynamic-stalin.c:168644: warning: `a205' might be used uninitialized in this function dynamic-stalin.c:168645: warning: `a206' might be used uninitialized in this function dynamic-stalin.c:168646: warning: `a207' might be used uninitialized in this function dynamic-stalin.c:168647: warning: `a208' might be used uninitialized in this function dynamic-stalin.c:168648: warning: `a209' might be used uninitialized in this function dynamic-stalin.c:168649: warning: `a210' might be used uninitialized in this function dynamic-stalin.c:168650: warning: `a211' might be used uninitialized in this function dynamic-stalin.c:168651: warning: `a212' might be used uninitialized in this function dynamic-stalin.c:168652: warning: `a213' might be used uninitialized in this function dynamic-stalin.c:168653: warning: `a214' might be used uninitialized in this function dynamic-stalin.c:168654: warning: `a215' might be used uninitialized in this function dynamic-stalin.c:168655: warning: `a216' might be used uninitialized in this function dynamic-stalin.c:168656: warning: `a217' might be used uninitialized in this function dynamic-stalin.c:168657: warning: `a218' might be used uninitialized in this function dynamic-stalin.c:168658: warning: `a219' might be used uninitialized in this function dynamic-stalin.c:168659: warning: `a220' might be used uninitialized in this function dynamic-stalin.c:168660: warning: `a221' might be used uninitialized in this function dynamic-stalin.c:168661: warning: `a222' might be used uninitialized in this function dynamic-stalin.c:168662: warning: `a223' might be used uninitialized in this function dynamic-stalin.c:168663: warning: `a224' might be used uninitialized in this function dynamic-stalin.c:168664: warning: `a225' might be used uninitialized in this function dynamic-stalin.c:168665: warning: `a226' might be used uninitialized in this function dynamic-stalin.c:168666: warning: `a227' might be used uninitialized in this function dynamic-stalin.c:168667: warning: `a228' might be used uninitialized in this function dynamic-stalin.c:168668: warning: `a229' might be used uninitialized in this function dynamic-stalin.c:168669: warning: `a230' might be used uninitialized in this function dynamic-stalin.c:168670: warning: `a231' might be used uninitialized in this function dynamic-stalin.c:168671: warning: `a232' might be used uninitialized in this function dynamic-stalin.c:168672: warning: `a233' might be used uninitialized in this function dynamic-stalin.c:168673: warning: `a234' might be used uninitialized in this function dynamic-stalin.c:168674: warning: `a235' might be used uninitialized in this function dynamic-stalin.c:168675: warning: `a236' might be used uninitialized in this function dynamic-stalin.c:168676: warning: `a237' might be used uninitialized in this function dynamic-stalin.c:168677: warning: `a238' might be used uninitialized in this function dynamic-stalin.c:168678: warning: `a239' might be used uninitialized in this function dynamic-stalin.c:168679: warning: `a240' might be used uninitialized in this function dynamic-stalin.c:168680: warning: `a241' might be used uninitialized in this function dynamic-stalin.c:168681: warning: `a242' might be used uninitialized in this function dynamic-stalin.c:168682: warning: `a243' might be used uninitialized in this function dynamic-stalin.c:168683: warning: `a244' might be used uninitialized in this function dynamic-stalin.c:168684: warning: `a245' might be used uninitialized in this function dynamic-stalin.c:168685: warning: `a246' might be used uninitialized in this function dynamic-stalin.c:168686: warning: `a247' might be used uninitialized in this function dynamic-stalin.c:168687: warning: `a248' might be used uninitialized in this function dynamic-stalin.c:168688: warning: `a249' might be used uninitialized in this function dynamic-stalin.c:168689: warning: `a250' might be used uninitialized in this function dynamic-stalin.c:168690: warning: `a251' might be used uninitialized in this function dynamic-stalin.c:168691: warning: `a252' might be used uninitialized in this function dynamic-stalin.c:168692: warning: `a253' might be used uninitialized in this function dynamic-stalin.c:168693: warning: `a254' might be used uninitialized in this function dynamic-stalin.c:168694: warning: `a255' might be used uninitialized in this function dynamic-stalin.c:168695: warning: `a256' might be used uninitialized in this function dynamic-stalin.c:168696: warning: `a257' might be used uninitialized in this function dynamic-stalin.c:168697: warning: `a258' might be used uninitialized in this function dynamic-stalin.c:168698: warning: `a259' might be used uninitialized in this function dynamic-stalin.c:168699: warning: `a260' might be used uninitialized in this function dynamic-stalin.c:168700: warning: `a261' might be used uninitialized in this function dynamic-stalin.c:168701: warning: `a262' might be used uninitialized in this function dynamic-stalin.c:168702: warning: `a263' might be used uninitialized in this function dynamic-stalin.c:168703: warning: `a264' might be used uninitialized in this function dynamic-stalin.c:168704: warning: `a265' might be used uninitialized in this function dynamic-stalin.c:168705: warning: `a266' might be used uninitialized in this function dynamic-stalin.c:168706: warning: `a267' might be used uninitialized in this function dynamic-stalin.c:168707: warning: `a268' might be used uninitialized in this function dynamic-stalin.c:168708: warning: `a269' might be used uninitialized in this function dynamic-stalin.c:168709: warning: `a270' might be used uninitialized in this function dynamic-stalin.c:168710: warning: `a271' might be used uninitialized in this function dynamic-stalin.c:168711: warning: `a272' might be used uninitialized in this function dynamic-stalin.c:168712: warning: `a273' might be used uninitialized in this function dynamic-stalin.c:168713: warning: `a274' might be used uninitialized in this function dynamic-stalin.c:168714: warning: `a275' might be used uninitialized in this function dynamic-stalin.c:168715: warning: `a276' might be used uninitialized in this function dynamic-stalin.c:168716: warning: `a277' might be used uninitialized in this function dynamic-stalin.c:168717: warning: `a278' might be used uninitialized in this function dynamic-stalin.c:168718: warning: `a279' might be used uninitialized in this function dynamic-stalin.c:168719: warning: `a280' might be used uninitialized in this function dynamic-stalin.c:168720: warning: `a281' might be used uninitialized in this function dynamic-stalin.c:168721: warning: `a282' might be used uninitialized in this function dynamic-stalin.c:168722: warning: `a283' might be used uninitialized in this function dynamic-stalin.c:168723: warning: `a284' might be used uninitialized in this function dynamic-stalin.c:168724: warning: `a285' might be used uninitialized in this function dynamic-stalin.c:168725: warning: `a286' might be used uninitialized in this function dynamic-stalin.c:168726: warning: `a287' might be used uninitialized in this function dynamic-stalin.c:168727: warning: `a288' might be used uninitialized in this function dynamic-stalin.c:168728: warning: `a289' might be used uninitialized in this function dynamic-stalin.c:168729: warning: `a290' might be used uninitialized in this function dynamic-stalin.c:168730: warning: `a291' might be used uninitialized in this function dynamic-stalin.c:168731: warning: `a292' might be used uninitialized in this function dynamic-stalin.c:168732: warning: `a293' might be used uninitialized in this function dynamic-stalin.c:168733: warning: `a294' might be used uninitialized in this function dynamic-stalin.c:168734: warning: `a295' might be used uninitialized in this function dynamic-stalin.c:168735: warning: `a296' might be used uninitialized in this function dynamic-stalin.c:168736: warning: `a297' might be used uninitialized in this function dynamic-stalin.c:168737: warning: `a298' might be used uninitialized in this function dynamic-stalin.c:168738: warning: `a299' might be used uninitialized in this function dynamic-stalin.c:168739: warning: `a300' might be used uninitialized in this function dynamic-stalin.c:168740: warning: `a301' might be used uninitialized in this function dynamic-stalin.c:168741: warning: `a302' might be used uninitialized in this function dynamic-stalin.c:168742: warning: `a303' might be used uninitialized in this function dynamic-stalin.c:168743: warning: `a304' might be used uninitialized in this function dynamic-stalin.c:168744: warning: `a305' might be used uninitialized in this function dynamic-stalin.c:168745: warning: `a306' might be used uninitialized in this function dynamic-stalin.c:168746: warning: `a307' might be used uninitialized in this function dynamic-stalin.c:168747: warning: `a308' might be used uninitialized in this function dynamic-stalin.c:168748: warning: `a309' might be used uninitialized in this function dynamic-stalin.c:168749: warning: `a310' might be used uninitialized in this function dynamic-stalin.c:168750: warning: `a311' might be used uninitialized in this function dynamic-stalin.c:168751: warning: `a312' might be used uninitialized in this function dynamic-stalin.c:168752: warning: `a313' might be used uninitialized in this function dynamic-stalin.c:168753: warning: `a314' might be used uninitialized in this function dynamic-stalin.c:168754: warning: `a315' might be used uninitialized in this function dynamic-stalin.c:168755: warning: `a316' might be used uninitialized in this function dynamic-stalin.c:168756: warning: `a317' might be used uninitialized in this function dynamic-stalin.c:168757: warning: `a318' might be used uninitialized in this function dynamic-stalin.c:168758: warning: `a319' might be used uninitialized in this function dynamic-stalin.c:168759: warning: `a320' might be used uninitialized in this function dynamic-stalin.c:168760: warning: `a321' might be used uninitialized in this function dynamic-stalin.c:168761: warning: `a322' might be used uninitialized in this function dynamic-stalin.c:168762: warning: `a323' might be used uninitialized in this function dynamic-stalin.c:168763: warning: `a324' might be used uninitialized in this function dynamic-stalin.c:168764: warning: `a325' might be used uninitialized in this function dynamic-stalin.c:168765: warning: `a326' might be used uninitialized in this function dynamic-stalin.c:168766: warning: `a327' might be used uninitialized in this function dynamic-stalin.c:168767: warning: `a328' might be used uninitialized in this function dynamic-stalin.c:168768: warning: `a329' might be used uninitialized in this function dynamic-stalin.c:168769: warning: `a330' might be used uninitialized in this function dynamic-stalin.c:168770: warning: `a331' might be used uninitialized in this function dynamic-stalin.c:168771: warning: `a332' might be used uninitialized in this function dynamic-stalin.c:168772: warning: `a333' might be used uninitialized in this function dynamic-stalin.c:168773: warning: `a334' might be used uninitialized in this function dynamic-stalin.c:168774: warning: `a335' might be used uninitialized in this function dynamic-stalin.c:168775: warning: `a336' might be used uninitialized in this function dynamic-stalin.c:168776: warning: `a337' might be used uninitialized in this function dynamic-stalin.c:168777: warning: `a338' might be used uninitialized in this function dynamic-stalin.c:168778: warning: `a339' might be used uninitialized in this function dynamic-stalin.c:168779: warning: `a340' might be used uninitialized in this function dynamic-stalin.c:168780: warning: `a341' might be used uninitialized in this function dynamic-stalin.c:168781: warning: `a342' might be used uninitialized in this function dynamic-stalin.c:168782: warning: `a343' might be used uninitialized in this function dynamic-stalin.c:168783: warning: `a344' might be used uninitialized in this function dynamic-stalin.c:168784: warning: `a345' might be used uninitialized in this function dynamic-stalin.c:168785: warning: `a346' might be used uninitialized in this function dynamic-stalin.c:168786: warning: `a347' might be used uninitialized in this function dynamic-stalin.c:168787: warning: `a348' might be used uninitialized in this function dynamic-stalin.c:168788: warning: `a349' might be used uninitialized in this function dynamic-stalin.c:168789: warning: `a350' might be used uninitialized in this function dynamic-stalin.c:168790: warning: `a351' might be used uninitialized in this function dynamic-stalin.c:168791: warning: `a352' might be used uninitialized in this function dynamic-stalin.c:168792: warning: `a353' might be used uninitialized in this function dynamic-stalin.c:168793: warning: `a354' might be used uninitialized in this function dynamic-stalin.c:168794: warning: `a355' might be used uninitialized in this function dynamic-stalin.c:168795: warning: `a356' might be used uninitialized in this function dynamic-stalin.c:168796: warning: `a357' might be used uninitialized in this function dynamic-stalin.c:168797: warning: `a358' might be used uninitialized in this function dynamic-stalin.c:168798: warning: `a359' might be used uninitialized in this function dynamic-stalin.c:168799: warning: `a360' might be used uninitialized in this function dynamic-stalin.c:168800: warning: `a361' might be used uninitialized in this function dynamic-stalin.c:168801: warning: `a362' might be used uninitialized in this function dynamic-stalin.c:168802: warning: `a363' might be used uninitialized in this function dynamic-stalin.c:168803: warning: `a364' might be used uninitialized in this function dynamic-stalin.c:168804: warning: `a365' might be used uninitialized in this function dynamic-stalin.c:168805: warning: `a366' might be used uninitialized in this function dynamic-stalin.c:168806: warning: `a367' might be used uninitialized in this function dynamic-stalin.c:168807: warning: `a368' might be used uninitialized in this function dynamic-stalin.c:168808: warning: `a369' might be used uninitialized in this function dynamic-stalin.c:168809: warning: `a370' might be used uninitialized in this function dynamic-stalin.c:168810: warning: `a371' might be used uninitialized in this function dynamic-stalin.c:168811: warning: `a372' might be used uninitialized in this function dynamic-stalin.c:168812: warning: `a373' might be used uninitialized in this function dynamic-stalin.c:168813: warning: `a374' might be used uninitialized in this function dynamic-stalin.c:168814: warning: `a375' might be used uninitialized in this function dynamic-stalin.c:168815: warning: `a376' might be used uninitialized in this function dynamic-stalin.c:168816: warning: `a377' might be used uninitialized in this function dynamic-stalin.c:168817: warning: `a378' might be used uninitialized in this function dynamic-stalin.c:168818: warning: `a379' might be used uninitialized in this function dynamic-stalin.c:168819: warning: `a380' might be used uninitialized in this function dynamic-stalin.c:168820: warning: `a381' might be used uninitialized in this function dynamic-stalin.c:168821: warning: `a382' might be used uninitialized in this function dynamic-stalin.c:168822: warning: `a383' might be used uninitialized in this function dynamic-stalin.c:168823: warning: `a384' might be used uninitialized in this function dynamic-stalin.c:168824: warning: `a385' might be used uninitialized in this function dynamic-stalin.c:168825: warning: `a386' might be used uninitialized in this function dynamic-stalin.c:168826: warning: `a387' might be used uninitialized in this function dynamic-stalin.c:168827: warning: `a388' might be used uninitialized in this function dynamic-stalin.c:168828: warning: `a389' might be used uninitialized in this function dynamic-stalin.c:168829: warning: `a390' might be used uninitialized in this function dynamic-stalin.c:168830: warning: `a391' might be used uninitialized in this function dynamic-stalin.c:168831: warning: `a392' might be used uninitialized in this function dynamic-stalin.c:168832: warning: `a393' might be used uninitialized in this function dynamic-stalin.c:168833: warning: `a394' might be used uninitialized in this function dynamic-stalin.c:168834: warning: `a395' might be used uninitialized in this function dynamic-stalin.c:168835: warning: `a396' might be used uninitialized in this function dynamic-stalin.c:168836: warning: `a397' might be used uninitialized in this function dynamic-stalin.c:168837: warning: `a398' might be used uninitialized in this function dynamic-stalin.c:168838: warning: `a399' might be used uninitialized in this function dynamic-stalin.c:168839: warning: `a400' might be used uninitialized in this function dynamic-stalin.c:168840: warning: `a401' might be used uninitialized in this function dynamic-stalin.c:168841: warning: `a402' might be used uninitialized in this function dynamic-stalin.c:168842: warning: `a403' might be used uninitialized in this function dynamic-stalin.c:168843: warning: `a404' might be used uninitialized in this function dynamic-stalin.c:168844: warning: `a405' might be used uninitialized in this function dynamic-stalin.c:168845: warning: `a406' might be used uninitialized in this function dynamic-stalin.c:168846: warning: `a407' might be used uninitialized in this function dynamic-stalin.c:168847: warning: `a408' might be used uninitialized in this function dynamic-stalin.c:168848: warning: `a409' might be used uninitialized in this function dynamic-stalin.c:168849: warning: `a410' might be used uninitialized in this function dynamic-stalin.c:168850: warning: `a411' might be used uninitialized in this function dynamic-stalin.c:168851: warning: `a412' might be used uninitialized in this function dynamic-stalin.c:168852: warning: `a413' might be used uninitialized in this function dynamic-stalin.c:168853: warning: `a414' might be used uninitialized in this function dynamic-stalin.c:168854: warning: `a415' might be used uninitialized in this function dynamic-stalin.c:168855: warning: `a416' might be used uninitialized in this function dynamic-stalin.c:168856: warning: `a417' might be used uninitialized in this function dynamic-stalin.c:168857: warning: `a418' might be used uninitialized in this function dynamic-stalin.c:168858: warning: `a419' might be used uninitialized in this function dynamic-stalin.c:168859: warning: `a420' might be used uninitialized in this function dynamic-stalin.c:168860: warning: `a421' might be used uninitialized in this function dynamic-stalin.c:168861: warning: `a422' might be used uninitialized in this function dynamic-stalin.c:168862: warning: `a423' might be used uninitialized in this function dynamic-stalin.c:168863: warning: `a424' might be used uninitialized in this function dynamic-stalin.c:168864: warning: `a425' might be used uninitialized in this function dynamic-stalin.c:168865: warning: `a426' might be used uninitialized in this function dynamic-stalin.c:168866: warning: `a427' might be used uninitialized in this function dynamic-stalin.c:168867: warning: `a428' might be used uninitialized in this function dynamic-stalin.c:168868: warning: `a429' might be used uninitialized in this function dynamic-stalin.c:168869: warning: `a430' might be used uninitialized in this function dynamic-stalin.c:168870: warning: `a431' might be used uninitialized in this function dynamic-stalin.c:168871: warning: `a432' might be used uninitialized in this function dynamic-stalin.c:168872: warning: `a433' might be used uninitialized in this function dynamic-stalin.c:168873: warning: `a434' might be used uninitialized in this function dynamic-stalin.c:168874: warning: `a435' might be used uninitialized in this function dynamic-stalin.c:169088: warning: `a649' might be used uninitialized in this function dynamic-stalin.c:169089: warning: `a650' might be used uninitialized in this function dynamic-stalin.c:169090: warning: `a651' might be used uninitialized in this function dynamic-stalin.c:169091: warning: `a652' might be used uninitialized in this function dynamic-stalin.c:169092: warning: `a653' might be used uninitialized in this function dynamic-stalin.c:169093: warning: `a654' might be used uninitialized in this function dynamic-stalin.c:169094: warning: `a655' might be used uninitialized in this function dynamic-stalin.c:169095: warning: `a656' might be used uninitialized in this function dynamic-stalin.c:169096: warning: `a661' might be used uninitialized in this function dynamic-stalin.c:169097: warning: `a663' might be used uninitialized in this function dynamic-stalin.c:169099: warning: `a665' might be used uninitialized in this function dynamic-stalin.c:169100: warning: `a666' might be used uninitialized in this function dynamic-stalin.c:169101: warning: `a667' might be used uninitialized in this function dynamic-stalin.c:169102: warning: `a668' might be used uninitialized in this function dynamic-stalin.c:169103: warning: `a669' might be used uninitialized in this function dynamic-stalin.c:169104: warning: `a670' might be used uninitialized in this function dynamic-stalin.c:169105: warning: `a671' might be used uninitialized in this function dynamic-stalin.c:169106: warning: `a672' might be used uninitialized in this function dynamic-stalin.c:169107: warning: `a673' might be used uninitialized in this function dynamic-stalin.c:169108: warning: `a674' might be used uninitialized in this function dynamic-stalin.c:169109: warning: `a675' might be used uninitialized in this function dynamic-stalin.c:169110: warning: `a676' might be used uninitialized in this function dynamic-stalin.c:169111: warning: `a677' might be used uninitialized in this function dynamic-stalin.c:169112: warning: `a678' might be used uninitialized in this function dynamic-stalin.c:169113: warning: `a679' might be used uninitialized in this function dynamic-stalin.c:169114: warning: `a680' might be used uninitialized in this function dynamic-stalin.c:169115: warning: `a681' might be used uninitialized in this function dynamic-stalin.c:169116: warning: `a682' might be used uninitialized in this function dynamic-stalin.c:169117: warning: `a683' might be used uninitialized in this function dynamic-stalin.c:169118: warning: `a684' might be used uninitialized in this function dynamic-stalin.c:169119: warning: `a685' might be used uninitialized in this function dynamic-stalin.c:169120: warning: `a686' might be used uninitialized in this function dynamic-stalin.c:169121: warning: `a687' might be used uninitialized in this function dynamic-stalin.c:169122: warning: `a688' might be used uninitialized in this function dynamic-stalin.c:169123: warning: `a689' might be used uninitialized in this function dynamic-stalin.c:169124: warning: `a692' might be used uninitialized in this function dynamic-stalin.c:169125: warning: `a693' might be used uninitialized in this function dynamic-stalin.c:169126: warning: `a694' might be used uninitialized in this function dynamic-stalin.c:169127: warning: `a695' might be used uninitialized in this function dynamic-stalin.c:169128: warning: `a696' might be used uninitialized in this function dynamic-stalin.c:169129: warning: `a697' might be used uninitialized in this function dynamic-stalin.c:169130: warning: `a700' might be used uninitialized in this function dynamic-stalin.c:169131: warning: `a703' might be used uninitialized in this function dynamic-stalin.c:169132: warning: `a704' might be used uninitialized in this function dynamic-stalin.c:169133: warning: `a705' might be used uninitialized in this function dynamic-stalin.c:169134: warning: `a706' might be used uninitialized in this function dynamic-stalin.c:169135: warning: `a707' might be used uninitialized in this function dynamic-stalin.c:169136: warning: `a708' might be used uninitialized in this function dynamic-stalin.c:169137: warning: `a709' might be used uninitialized in this function dynamic-stalin.c:169138: warning: `a710' might be used uninitialized in this function dynamic-stalin.c:169139: warning: `a711' might be used uninitialized in this function dynamic-stalin.c:169140: warning: `a712' might be used uninitialized in this function dynamic-stalin.c:169141: warning: `a713' might be used uninitialized in this function dynamic-stalin.c:169142: warning: `a714' might be used uninitialized in this function dynamic-stalin.c:169143: warning: `a715' might be used uninitialized in this function dynamic-stalin.c:169144: warning: `a716' might be used uninitialized in this function dynamic-stalin.c:169145: warning: `a717' might be used uninitialized in this function dynamic-stalin.c:169146: warning: `a718' might be used uninitialized in this function dynamic-stalin.c:169147: warning: `a719' might be used uninitialized in this function dynamic-stalin.c:169148: warning: `a720' might be used uninitialized in this function dynamic-stalin.c:169149: warning: `a721' might be used uninitialized in this function dynamic-stalin.c:169150: warning: `a722' might be used uninitialized in this function dynamic-stalin.c:169151: warning: `a723' might be used uninitialized in this function dynamic-stalin.c:169152: warning: `a724' might be used uninitialized in this function dynamic-stalin.c:169153: warning: `a725' might be used uninitialized in this function dynamic-stalin.c:169154: warning: `a726' might be used uninitialized in this function dynamic-stalin.c:169155: warning: `a727' might be used uninitialized in this function dynamic-stalin.c:169156: warning: `a728' might be used uninitialized in this function dynamic-stalin.c:169157: warning: `a729' might be used uninitialized in this function dynamic-stalin.c:169158: warning: `a730' might be used uninitialized in this function dynamic-stalin.c:169159: warning: `a731' might be used uninitialized in this function dynamic-stalin.c:169160: warning: `a732' might be used uninitialized in this function dynamic-stalin.c:169161: warning: `a733' might be used uninitialized in this function dynamic-stalin.c:169162: warning: `a734' might be used uninitialized in this function dynamic-stalin.c:169163: warning: `a735' might be used uninitialized in this function dynamic-stalin.c:169164: warning: `a736' might be used uninitialized in this function dynamic-stalin.c:169165: warning: `a737' might be used uninitialized in this function dynamic-stalin.c:169166: warning: `a738' might be used uninitialized in this function dynamic-stalin.c:169167: warning: `a739' might be used uninitialized in this function dynamic-stalin.c:169168: warning: `a740' might be used uninitialized in this function dynamic-stalin.c:169169: warning: `a741' might be used uninitialized in this function dynamic-stalin.c:169170: warning: `a742' might be used uninitialized in this function dynamic-stalin.c:169171: warning: `a743' might be used uninitialized in this function dynamic-stalin.c:169172: warning: `a744' might be used uninitialized in this function dynamic-stalin.c:169173: warning: `a745' might be used uninitialized in this function dynamic-stalin.c:169174: warning: `a746' might be used uninitialized in this function dynamic-stalin.c:169175: warning: `a747' might be used uninitialized in this function dynamic-stalin.c:169176: warning: `a748' might be used uninitialized in this function dynamic-stalin.c:169177: warning: `a749' might be used uninitialized in this function dynamic-stalin.c:169178: warning: `a750' might be used uninitialized in this function dynamic-stalin.c:169179: warning: `a751' might be used uninitialized in this function dynamic-stalin.c:169180: warning: `a752' might be used uninitialized in this function dynamic-stalin.c:169181: warning: `a753' might be used uninitialized in this function dynamic-stalin.c:169182: warning: `a754' might be used uninitialized in this function dynamic-stalin.c:169183: warning: `a755' might be used uninitialized in this function dynamic-stalin.c:169184: warning: `a756' might be used uninitialized in this function dynamic-stalin.c:169185: warning: `a757' might be used uninitialized in this function dynamic-stalin.c:169186: warning: `a758' might be used uninitialized in this function dynamic-stalin.c:169187: warning: `a759' might be used uninitialized in this function dynamic-stalin.c:169188: warning: `a760' might be used uninitialized in this function dynamic-stalin.c:169189: warning: `a761' might be used uninitialized in this function dynamic-stalin.c:169190: warning: `a762' might be used uninitialized in this function dynamic-stalin.c:169191: warning: `a763' might be used uninitialized in this function dynamic-stalin.c:169192: warning: `a764' might be used uninitialized in this function dynamic-stalin.c:169193: warning: `a765' might be used uninitialized in this function dynamic-stalin.c:169194: warning: `a766' might be used uninitialized in this function dynamic-stalin.c:169195: warning: `a767' might be used uninitialized in this function dynamic-stalin.c:169196: warning: `a768' might be used uninitialized in this function dynamic-stalin.c:169197: warning: `a769' might be used uninitialized in this function dynamic-stalin.c:169198: warning: `a771' might be used uninitialized in this function dynamic-stalin.c:169199: warning: `a772' might be used uninitialized in this function dynamic-stalin.c:169200: warning: `a773' might be used uninitialized in this function dynamic-stalin.c:169201: warning: `a775' might be used uninitialized in this function dynamic-stalin.c:169202: warning: `a776' might be used uninitialized in this function dynamic-stalin.c:169203: warning: `a777' might be used uninitialized in this function dynamic-stalin.c:169204: warning: `a778' might be used uninitialized in this function dynamic-stalin.c:169205: warning: `a779' might be used uninitialized in this function dynamic-stalin.c:169206: warning: `a780' might be used uninitialized in this function dynamic-stalin.c:169207: warning: `a781' might be used uninitialized in this function dynamic-stalin.c:169208: warning: `a782' might be used uninitialized in this function dynamic-stalin.c:169209: warning: `a783' might be used uninitialized in this function dynamic-stalin.c:169210: warning: `a784' might be used uninitialized in this function dynamic-stalin.c:169211: warning: `a785' might be used uninitialized in this function dynamic-stalin.c:169212: warning: `a786' might be used uninitialized in this function dynamic-stalin.c:169213: warning: `a787' might be used uninitialized in this function dynamic-stalin.c:169214: warning: `a788' might be used uninitialized in this function dynamic-stalin.c:169215: warning: `a789' might be used uninitialized in this function dynamic-stalin.c:169216: warning: `a790' might be used uninitialized in this function dynamic-stalin.c:169217: warning: `a791' might be used uninitialized in this function dynamic-stalin.c:169218: warning: `a792' might be used uninitialized in this function dynamic-stalin.c:169219: warning: `a793' might be used uninitialized in this function dynamic-stalin.c:169220: warning: `a794' might be used uninitialized in this function dynamic-stalin.c:169221: warning: `a795' might be used uninitialized in this function dynamic-stalin.c:169222: warning: `a796' might be used uninitialized in this function dynamic-stalin.c:169223: warning: `a797' might be used uninitialized in this function dynamic-stalin.c:169224: warning: `a798' might be used uninitialized in this function dynamic-stalin.c:169225: warning: `a799' might be used uninitialized in this function dynamic-stalin.c:169226: warning: `a800' might be used uninitialized in this function dynamic-stalin.c:169227: warning: `a801' might be used uninitialized in this function dynamic-stalin.c:169228: warning: `a802' might be used uninitialized in this function dynamic-stalin.c:169229: warning: `a803' might be used uninitialized in this function dynamic-stalin.c:169230: warning: `a804' might be used uninitialized in this function dynamic-stalin.c:169231: warning: `a805' might be used uninitialized in this function dynamic-stalin.c:169232: warning: `a809' might be used uninitialized in this function dynamic-stalin.c:169233: warning: `a810' might be used uninitialized in this function dynamic-stalin.c:169234: warning: `a812' might be used uninitialized in this function dynamic-stalin.c:169235: warning: `a813' might be used uninitialized in this function dynamic-stalin.c:169236: warning: `a815' might be used uninitialized in this function dynamic-stalin.c:169237: warning: `a816' might be used uninitialized in this function dynamic-stalin.c:169238: warning: `a817' might be used uninitialized in this function dynamic-stalin.c:169239: warning: `a818' might be used uninitialized in this function dynamic-stalin.c:169240: warning: `a819' might be used uninitialized in this function dynamic-stalin.c:169241: warning: `a820' might be used uninitialized in this function dynamic-stalin.c:169242: warning: `a821' might be used uninitialized in this function dynamic-stalin.c:169243: warning: `a822' might be used uninitialized in this function dynamic-stalin.c:169244: warning: `a824' might be used uninitialized in this function dynamic-stalin.c:169245: warning: `a825' might be used uninitialized in this function dynamic-stalin.c:169246: warning: `a828' might be used uninitialized in this function dynamic-stalin.c:169247: warning: `a829' might be used uninitialized in this function dynamic-stalin.c:169248: warning: `a830' might be used uninitialized in this function dynamic-stalin.c:169249: warning: `a831' might be used uninitialized in this function dynamic-stalin.c:169250: warning: `a833' might be used uninitialized in this function dynamic-stalin.c:169251: warning: `a834' might be used uninitialized in this function dynamic-stalin.c:169252: warning: `a835' might be used uninitialized in this function dynamic-stalin.c:169253: warning: `a836' might be used uninitialized in this function dynamic-stalin.c:169254: warning: `a837' might be used uninitialized in this function dynamic-stalin.c:169255: warning: `a838' might be used uninitialized in this function dynamic-stalin.c:169256: warning: `a839' might be used uninitialized in this function dynamic-stalin.c:169257: warning: `a840' might be used uninitialized in this function dynamic-stalin.c:169258: warning: `a841' might be used uninitialized in this function dynamic-stalin.c:169259: warning: `a842' might be used uninitialized in this function dynamic-stalin.c:169260: warning: `a843' might be used uninitialized in this function dynamic-stalin.c:169261: warning: `a844' might be used uninitialized in this function dynamic-stalin.c:169262: warning: `a845' might be used uninitialized in this function dynamic-stalin.c:169263: warning: `a846' might be used uninitialized in this function dynamic-stalin.c:169264: warning: `a847' might be used uninitialized in this function dynamic-stalin.c:169265: warning: `a848' might be used uninitialized in this function dynamic-stalin.c:169266: warning: `a849' might be used uninitialized in this function dynamic-stalin.c:169267: warning: `a850' might be used uninitialized in this function dynamic-stalin.c:169268: warning: `a851' might be used uninitialized in this function dynamic-stalin.c:169269: warning: `a852' might be used uninitialized in this function dynamic-stalin.c:169270: warning: `a853' might be used uninitialized in this function dynamic-stalin.c:169271: warning: `a854' might be used uninitialized in this function dynamic-stalin.c:169272: warning: `a855' might be used uninitialized in this function dynamic-stalin.c:169273: warning: `a856' might be used uninitialized in this function dynamic-stalin.c:169274: warning: `a857' might be used uninitialized in this function dynamic-stalin.c:169275: warning: `a858' might be used uninitialized in this function dynamic-stalin.c:169276: warning: `a859' might be used uninitialized in this function dynamic-stalin.c:169277: warning: `a860' might be used uninitialized in this function dynamic-stalin.c:169278: warning: `a861' might be used uninitialized in this function dynamic-stalin.c:169279: warning: `a862' might be used uninitialized in this function dynamic-stalin.c:169280: warning: `a863' might be used uninitialized in this function dynamic-stalin.c:169281: warning: `a864' might be used uninitialized in this function dynamic-stalin.c:169282: warning: `a865' might be used uninitialized in this function dynamic-stalin.c:169283: warning: `a866' might be used uninitialized in this function dynamic-stalin.c:169284: warning: `a867' might be used uninitialized in this function dynamic-stalin.c:169285: warning: `a870' might be used uninitialized in this function dynamic-stalin.c:169286: warning: `a871' might be used uninitialized in this function dynamic-stalin.c:169287: warning: `a872' might be used uninitialized in this function dynamic-stalin.c:169288: warning: `a873' might be used uninitialized in this function dynamic-stalin.c:169289: warning: `a877' might be used uninitialized in this function dynamic-stalin.c:169290: warning: `a878' might be used uninitialized in this function dynamic-stalin.c:169291: warning: `a879' might be used uninitialized in this function dynamic-stalin.c:169292: warning: `a880' might be used uninitialized in this function dynamic-stalin.c:169293: warning: `a881' might be used uninitialized in this function dynamic-stalin.c:169294: warning: `a882' might be used uninitialized in this function dynamic-stalin.c:169295: warning: `a883' might be used uninitialized in this function dynamic-stalin.c:169296: warning: `a884' might be used uninitialized in this function dynamic-stalin.c:169297: warning: `a885' might be used uninitialized in this function dynamic-stalin.c:169298: warning: `a886' might be used uninitialized in this function dynamic-stalin.c:169299: warning: `a887' might be used uninitialized in this function dynamic-stalin.c:169300: warning: `a888' might be used uninitialized in this function dynamic-stalin.c:169301: warning: `a889' might be used uninitialized in this function dynamic-stalin.c:169302: warning: `a890' might be used uninitialized in this function dynamic-stalin.c:169303: warning: `a891' might be used uninitialized in this function dynamic-stalin.c:169304: warning: `a892' might be used uninitialized in this function dynamic-stalin.c:169305: warning: `a893' might be used uninitialized in this function dynamic-stalin.c:169306: warning: `a894' might be used uninitialized in this function dynamic-stalin.c:169307: warning: `a895' might be used uninitialized in this function dynamic-stalin.c:169308: warning: `a896' might be used uninitialized in this function dynamic-stalin.c:169309: warning: `a897' might be used uninitialized in this function dynamic-stalin.c:169310: warning: `a898' might be used uninitialized in this function dynamic-stalin.c:169311: warning: `a899' might be used uninitialized in this function dynamic-stalin.c:169312: warning: `a900' might be used uninitialized in this function dynamic-stalin.c:169313: warning: `a901' might be used uninitialized in this function dynamic-stalin.c:169314: warning: `a902' might be used uninitialized in this function dynamic-stalin.c:169315: warning: `a903' might be used uninitialized in this function dynamic-stalin.c:169316: warning: `a904' might be used uninitialized in this function dynamic-stalin.c:169317: warning: `a905' might be used uninitialized in this function dynamic-stalin.c:169318: warning: `a906' might be used uninitialized in this function dynamic-stalin.c:169319: warning: `a907' might be used uninitialized in this function dynamic-stalin.c:169320: warning: `a908' might be used uninitialized in this function dynamic-stalin.c:169321: warning: `a909' might be used uninitialized in this function dynamic-stalin.c:169322: warning: `a910' might be used uninitialized in this function dynamic-stalin.c:169323: warning: `a911' might be used uninitialized in this function dynamic-stalin.c:169324: warning: `a912' might be used uninitialized in this function dynamic-stalin.c:169325: warning: `a913' might be used uninitialized in this function dynamic-stalin.c:169326: warning: `a914' might be used uninitialized in this function dynamic-stalin.c:169327: warning: `a915' might be used uninitialized in this function dynamic-stalin.c:169328: warning: `a916' might be used uninitialized in this function dynamic-stalin.c:169329: warning: `a917' might be used uninitialized in this function dynamic-stalin.c:169330: warning: `a918' might be used uninitialized in this function dynamic-stalin.c:169331: warning: `a919' might be used uninitialized in this function dynamic-stalin.c:169332: warning: `a920' might be used uninitialized in this function dynamic-stalin.c:169333: warning: `a921' might be used uninitialized in this function dynamic-stalin.c:169334: warning: `a922' might be used uninitialized in this function dynamic-stalin.c:169335: warning: `a923' might be used uninitialized in this function dynamic-stalin.c:169336: warning: `a924' might be used uninitialized in this function dynamic-stalin.c:169337: warning: `a925' might be used uninitialized in this function dynamic-stalin.c:169338: warning: `a926' might be used uninitialized in this function dynamic-stalin.c:169339: warning: `a927' might be used uninitialized in this function dynamic-stalin.c:169340: warning: `a928' might be used uninitialized in this function dynamic-stalin.c:169341: warning: `a929' might be used uninitialized in this function dynamic-stalin.c:169342: warning: `a930' might be used uninitialized in this function dynamic-stalin.c:169343: warning: `a931' might be used uninitialized in this function dynamic-stalin.c:169344: warning: `a932' might be used uninitialized in this function dynamic-stalin.c:169345: warning: `a933' might be used uninitialized in this function dynamic-stalin.c:169346: warning: `a934' might be used uninitialized in this function dynamic-stalin.c:169347: warning: `a935' might be used uninitialized in this function dynamic-stalin.c:169348: warning: `a936' might be used uninitialized in this function dynamic-stalin.c:169349: warning: `a937' might be used uninitialized in this function dynamic-stalin.c:169350: warning: `a938' might be used uninitialized in this function dynamic-stalin.c:169351: warning: `a939' might be used uninitialized in this function dynamic-stalin.c:169352: warning: `a940' might be used uninitialized in this function dynamic-stalin.c:169353: warning: `a941' might be used uninitialized in this function dynamic-stalin.c:169354: warning: `a942' might be used uninitialized in this function dynamic-stalin.c:169355: warning: `a943' might be used uninitialized in this function dynamic-stalin.c:169356: warning: `a944' might be used uninitialized in this function dynamic-stalin.c:169357: warning: `a945' might be used uninitialized in this function dynamic-stalin.c:169358: warning: `a946' might be used uninitialized in this function dynamic-stalin.c:169359: warning: `a947' might be used uninitialized in this function dynamic-stalin.c:169360: warning: `a948' might be used uninitialized in this function dynamic-stalin.c:169361: warning: `a949' might be used uninitialized in this function dynamic-stalin.c:169362: warning: `a950' might be used uninitialized in this function dynamic-stalin.c:169363: warning: `a951' might be used uninitialized in this function dynamic-stalin.c:169364: warning: `a952' might be used uninitialized in this function dynamic-stalin.c:169365: warning: `a953' might be used uninitialized in this function dynamic-stalin.c:169366: warning: `a954' might be used uninitialized in this function dynamic-stalin.c:169367: warning: `a955' might be used uninitialized in this function dynamic-stalin.c:169368: warning: `a956' might be used uninitialized in this function dynamic-stalin.c:169369: warning: `a957' might be used uninitialized in this function dynamic-stalin.c:169370: warning: `a958' might be used uninitialized in this function dynamic-stalin.c:169371: warning: `a959' might be used uninitialized in this function dynamic-stalin.c:169372: warning: `a960' might be used uninitialized in this function dynamic-stalin.c:169373: warning: `a961' might be used uninitialized in this function dynamic-stalin.c:169374: warning: `a962' might be used uninitialized in this function dynamic-stalin.c:169375: warning: `a963' might be used uninitialized in this function dynamic-stalin.c:169376: warning: `a964' might be used uninitialized in this function dynamic-stalin.c:169377: warning: `a965' might be used uninitialized in this function dynamic-stalin.c:169378: warning: `a966' might be used uninitialized in this function dynamic-stalin.c:169379: warning: `a967' might be used uninitialized in this function dynamic-stalin.c:169380: warning: `a968' might be used uninitialized in this function dynamic-stalin.c:169381: warning: `a969' might be used uninitialized in this function dynamic-stalin.c:169382: warning: `a970' might be used uninitialized in this function dynamic-stalin.c:169383: warning: `a971' might be used uninitialized in this function dynamic-stalin.c:169384: warning: `a972' might be used uninitialized in this function dynamic-stalin.c:169385: warning: `a973' might be used uninitialized in this function dynamic-stalin.c:169386: warning: `a974' might be used uninitialized in this function dynamic-stalin.c:169387: warning: `a975' might be used uninitialized in this function dynamic-stalin.c:169388: warning: `a976' might be used uninitialized in this function dynamic-stalin.c:169389: warning: `a977' might be used uninitialized in this function dynamic-stalin.c:169390: warning: `a978' might be used uninitialized in this function dynamic-stalin.c:169391: warning: `a979' might be used uninitialized in this function dynamic-stalin.c:169392: warning: `a980' might be used uninitialized in this function dynamic-stalin.c:169393: warning: `a981' might be used uninitialized in this function dynamic-stalin.c:169394: warning: `a982' might be used uninitialized in this function dynamic-stalin.c:169395: warning: `a983' might be used uninitialized in this function dynamic-stalin.c:169396: warning: `a984' might be used uninitialized in this function dynamic-stalin.c:169397: warning: `a985' might be used uninitialized in this function dynamic-stalin.c:169398: warning: `a986' might be used uninitialized in this function dynamic-stalin.c:169399: warning: `a987' might be used uninitialized in this function dynamic-stalin.c:169400: warning: `a988' might be used uninitialized in this function dynamic-stalin.c:169401: warning: `a989' might be used uninitialized in this function dynamic-stalin.c:169402: warning: `a990' might be used uninitialized in this function dynamic-stalin.c:169403: warning: `a991' might be used uninitialized in this function dynamic-stalin.c:169404: warning: `a992' might be used uninitialized in this function dynamic-stalin.c:169405: warning: `a993' might be used uninitialized in this function dynamic-stalin.c:169406: warning: `a994' might be used uninitialized in this function dynamic-stalin.c:169407: warning: `a995' might be used uninitialized in this function dynamic-stalin.c:169408: warning: `a996' might be used uninitialized in this function dynamic-stalin.c:169409: warning: `a997' might be used uninitialized in this function dynamic-stalin.c:169410: warning: `a998' might be used uninitialized in this function dynamic-stalin.c:169411: warning: `a999' might be used uninitialized in this function dynamic-stalin.c:169412: warning: `a1000' might be used uninitialized in this function dynamic-stalin.c:169413: warning: `a1001' might be used uninitialized in this function dynamic-stalin.c:169414: warning: `a1002' might be used uninitialized in this function dynamic-stalin.c:169415: warning: `a1003' might be used uninitialized in this function dynamic-stalin.c:169416: warning: `a1004' might be used uninitialized in this function dynamic-stalin.c:169417: warning: `a1005' might be used uninitialized in this function dynamic-stalin.c:169418: warning: `a1006' might be used uninitialized in this function dynamic-stalin.c:169419: warning: `a1007' might be used uninitialized in this function dynamic-stalin.c:169420: warning: `a1008' might be used uninitialized in this function dynamic-stalin.c:169421: warning: `a1009' might be used uninitialized in this function dynamic-stalin.c:169422: warning: `a1010' might be used uninitialized in this function dynamic-stalin.c:169423: warning: `a1011' might be used uninitialized in this function dynamic-stalin.c:169424: warning: `a1012' might be used uninitialized in this function dynamic-stalin.c:169425: warning: `a1013' might be used uninitialized in this function dynamic-stalin.c:169426: warning: `a1014' might be used uninitialized in this function dynamic-stalin.c:169427: warning: `a1015' might be used uninitialized in this function dynamic-stalin.c:169428: warning: `a1016' might be used uninitialized in this function dynamic-stalin.c:169429: warning: `a1017' might be used uninitialized in this function dynamic-stalin.c:169430: warning: `a1018' might be used uninitialized in this function dynamic-stalin.c:169431: warning: `a1019' might be used uninitialized in this function dynamic-stalin.c:169432: warning: `a1020' might be used uninitialized in this function dynamic-stalin.c:169433: warning: `a1021' might be used uninitialized in this function dynamic-stalin.c:169434: warning: `a1022' might be used uninitialized in this function dynamic-stalin.c:169435: warning: `a1023' might be used uninitialized in this function dynamic-stalin.c:169436: warning: `a1024' might be used uninitialized in this function dynamic-stalin.c:169437: warning: `a1025' might be used uninitialized in this function dynamic-stalin.c:169438: warning: `a1026' might be used uninitialized in this function dynamic-stalin.c:169439: warning: `a1027' might be used uninitialized in this function dynamic-stalin.c:169440: warning: `a1028' might be used uninitialized in this function dynamic-stalin.c:169441: warning: `a1029' might be used uninitialized in this function dynamic-stalin.c:169442: warning: `a1030' might be used uninitialized in this function dynamic-stalin.c:169443: warning: `a1031' might be used uninitialized in this function dynamic-stalin.c:169444: warning: `a1032' might be used uninitialized in this function dynamic-stalin.c:169445: warning: `a1033' might be used uninitialized in this function dynamic-stalin.c:169446: warning: `a1034' might be used uninitialized in this function dynamic-stalin.c:169447: warning: `a1035' might be used uninitialized in this function dynamic-stalin.c:169448: warning: `a1036' might be used uninitialized in this function dynamic-stalin.c:169449: warning: `a1037' might be used uninitialized in this function dynamic-stalin.c:169450: warning: `a1038' might be used uninitialized in this function dynamic-stalin.c:169451: warning: `a1039' might be used uninitialized in this function dynamic-stalin.c:169452: warning: `a1040' might be used uninitialized in this function dynamic-stalin.c:169453: warning: `a1041' might be used uninitialized in this function dynamic-stalin.c:169454: warning: `a1042' might be used uninitialized in this function dynamic-stalin.c:169455: warning: `a1043' might be used uninitialized in this function dynamic-stalin.c:169456: warning: `a1044' might be used uninitialized in this function dynamic-stalin.c:169457: warning: `a1045' might be used uninitialized in this function dynamic-stalin.c:169458: warning: `a1046' might be used uninitialized in this function dynamic-stalin.c:169459: warning: `a1047' might be used uninitialized in this function dynamic-stalin.c:169460: warning: `a1048' might be used uninitialized in this function dynamic-stalin.c:169461: warning: `a1049' might be used uninitialized in this function dynamic-stalin.c:169462: warning: `a1050' might be used uninitialized in this function dynamic-stalin.c:169463: warning: `a1051' might be used uninitialized in this function dynamic-stalin.c:169464: warning: `a1052' might be used uninitialized in this function dynamic-stalin.c:169465: warning: `a1053' might be used uninitialized in this function dynamic-stalin.c:169466: warning: `a1054' might be used uninitialized in this function dynamic-stalin.c:169467: warning: `a1055' might be used uninitialized in this function dynamic-stalin.c:169468: warning: `a1056' might be used uninitialized in this function dynamic-stalin.c:169469: warning: `a1057' might be used uninitialized in this function dynamic-stalin.c:169470: warning: `a1058' might be used uninitialized in this function dynamic-stalin.c:169471: warning: `a1059' might be used uninitialized in this function dynamic-stalin.c:169472: warning: `a1060' might be used uninitialized in this function dynamic-stalin.c:169473: warning: `a1061' might be used uninitialized in this function dynamic-stalin.c:169474: warning: `a1062' might be used uninitialized in this function dynamic-stalin.c:169475: warning: `a1063' might be used uninitialized in this function dynamic-stalin.c:169476: warning: `a1064' might be used uninitialized in this function dynamic-stalin.c:169477: warning: `a1065' might be used uninitialized in this function dynamic-stalin.c:169478: warning: `a1066' might be used uninitialized in this function dynamic-stalin.c:169479: warning: `a1067' might be used uninitialized in this function dynamic-stalin.c:169480: warning: `a1068' might be used uninitialized in this function dynamic-stalin.c:169481: warning: `a1069' might be used uninitialized in this function dynamic-stalin.c:169482: warning: `a1070' might be used uninitialized in this function dynamic-stalin.c:169483: warning: `a1071' might be used uninitialized in this function dynamic-stalin.c:169484: warning: `a1072' might be used uninitialized in this function dynamic-stalin.c:169485: warning: `a1073' might be used uninitialized in this function dynamic-stalin.c:169486: warning: `a1074' might be used uninitialized in this function dynamic-stalin.c:169487: warning: `a1075' might be used uninitialized in this function dynamic-stalin.c:169488: warning: `a1076' might be used uninitialized in this function dynamic-stalin.c:169489: warning: `a1077' might be used uninitialized in this function dynamic-stalin.c:169490: warning: `a1078' might be used uninitialized in this function dynamic-stalin.c:169491: warning: `a1079' might be used uninitialized in this function dynamic-stalin.c:169492: warning: `a1080' might be used uninitialized in this function dynamic-stalin.c:169493: warning: `a1081' might be used uninitialized in this function dynamic-stalin.c:169494: warning: `a1082' might be used uninitialized in this function dynamic-stalin.c:169495: warning: `a1083' might be used uninitialized in this function dynamic-stalin.c:169496: warning: `a1084' might be used uninitialized in this function dynamic-stalin.c:169497: warning: `a1085' might be used uninitialized in this function dynamic-stalin.c:169498: warning: `a1086' might be used uninitialized in this function dynamic-stalin.c:169499: warning: `a1087' might be used uninitialized in this function dynamic-stalin.c:169500: warning: `a1088' might be used uninitialized in this function dynamic-stalin.c:169501: warning: `a1089' might be used uninitialized in this function dynamic-stalin.c:169502: warning: `a1090' might be used uninitialized in this function dynamic-stalin.c:169503: warning: `a1091' might be used uninitialized in this function dynamic-stalin.c:169508: warning: `a1123' might be used uninitialized in this function dynamic-stalin.c:169509: warning: `a1124' might be used uninitialized in this function dynamic-stalin.c:169515: warning: `a1130' might be used uninitialized in this function dynamic-stalin.c:169524: warning: `a1611' might be used uninitialized in this function dynamic-stalin.c:169525: warning: `a1612' might be used uninitialized in this function dynamic-stalin.c:169526: warning: `a1613' might be used uninitialized in this function dynamic-stalin.c:169527: warning: `a1614' might be used uninitialized in this function dynamic-stalin.c:169528: warning: `a1615' might be used uninitialized in this function dynamic-stalin.c:169530: warning: `a1772' might be used uninitialized in this function dynamic-stalin.c:169531: warning: `a1774' might be used uninitialized in this function dynamic-stalin.c:169532: warning: `a1775' might be used uninitialized in this function dynamic-stalin.c:169533: warning: `a1776' might be used uninitialized in this function dynamic-stalin.c:169534: warning: `a1777' might be used uninitialized in this function dynamic-stalin.c:169537: warning: `a1780' might be used uninitialized in this function dynamic-stalin.c:169540: warning: `a1785' might be used uninitialized in this function dynamic-stalin.c:169542: warning: `a1787' might be used uninitialized in this function dynamic-stalin.c:169543: warning: `a1788' might be used uninitialized in this function dynamic-stalin.c:169551: warning: `a2612' might be used uninitialized in this function dynamic-stalin.c:169553: warning: `a2625' might be used uninitialized in this function dynamic-stalin.c:169557: warning: `a2629' might be used uninitialized in this function dynamic-stalin.c:169558: warning: `a2844' might be used uninitialized in this function dynamic-stalin.c:169559: warning: `a2845' might be used uninitialized in this function dynamic-stalin.c:169563: warning: `a2849' might be used uninitialized in this function dynamic-stalin.c:169564: warning: `a2850' might be used uninitialized in this function dynamic-stalin.c:169565: warning: `a2851' might be used uninitialized in this function dynamic-stalin.c:169566: warning: `a2852' might be used uninitialized in this function dynamic-stalin.c:169567: warning: `a2853' might be used uninitialized in this function dynamic-stalin.c:169568: warning: `a2854' might be used uninitialized in this function dynamic-stalin.c:169569: warning: `a2855' might be used uninitialized in this function dynamic-stalin.c:169570: warning: `a2856' might be used uninitialized in this function dynamic-stalin.c:169571: warning: `a2857' might be used uninitialized in this function dynamic-stalin.c:169572: warning: `a2858' might be used uninitialized in this function dynamic-stalin.c:169573: warning: `a2859' might be used uninitialized in this function dynamic-stalin.c:169574: warning: `a2860' might be used uninitialized in this function dynamic-stalin.c:169575: warning: `a2861' might be used uninitialized in this function dynamic-stalin.c:169576: warning: `a2862' might be used uninitialized in this function dynamic-stalin.c:169577: warning: `a2863' might be used uninitialized in this function dynamic-stalin.c:169578: warning: `a2864' might be used uninitialized in this function dynamic-stalin.c:169579: warning: `a2865' might be used uninitialized in this function dynamic-stalin.c:169580: warning: `a2866' might be used uninitialized in this function dynamic-stalin.c:169581: warning: `a2867' might be used uninitialized in this function dynamic-stalin.c:169582: warning: `a2868' might be used uninitialized in this function dynamic-stalin.c:169583: warning: `a2869' might be used uninitialized in this function dynamic-stalin.c:169584: warning: `a2870' might be used uninitialized in this function dynamic-stalin.c:169585: warning: `a2871' might be used uninitialized in this function dynamic-stalin.c:169586: warning: `a2872' might be used uninitialized in this function dynamic-stalin.c:169587: warning: `a2873' might be used uninitialized in this function dynamic-stalin.c:169588: warning: `a2874' might be used uninitialized in this function dynamic-stalin.c:169589: warning: `a2875' might be used uninitialized in this function dynamic-stalin.c:169590: warning: `a2876' might be used uninitialized in this function dynamic-stalin.c:169591: warning: `a2877' might be used uninitialized in this function dynamic-stalin.c:169592: warning: `a2878' might be used uninitialized in this function dynamic-stalin.c:169593: warning: `a2879' might be used uninitialized in this function dynamic-stalin.c:169594: warning: `a2880' might be used uninitialized in this function dynamic-stalin.c:169595: warning: `a2881' might be used uninitialized in this function dynamic-stalin.c:169596: warning: `a2882' might be used uninitialized in this function dynamic-stalin.c:169598: warning: `a3186' might be used uninitialized in this function dynamic-stalin.c:169599: warning: `a3187' might be used uninitialized in this function dynamic-stalin.c:169624: warning: `a3406' might be used uninitialized in this function dynamic-stalin.c:169710: warning: `a5948' might be used uninitialized in this function dynamic-stalin.c:169713: warning: `a6708' might be used uninitialized in this function dynamic-stalin.c:169743: warning: `a6738' might be used uninitialized in this function dynamic-stalin.c:169745: warning: `a6740' might be used uninitialized in this function dynamic-stalin.c:169747: warning: `a6742' might be used uninitialized in this function dynamic-stalin.c:169749: warning: `a6744' might be used uninitialized in this function dynamic-stalin.c:169751: warning: `a6746' might be used uninitialized in this function dynamic-stalin.c:169753: warning: `a6748' might be used uninitialized in this function dynamic-stalin.c:169755: warning: `a6750' might be used uninitialized in this function dynamic-stalin.c:169757: warning: `a6752' might be used uninitialized in this function dynamic-stalin.c:169759: warning: `a6754' might be used uninitialized in this function dynamic-stalin.c:169761: warning: `a6756' might be used uninitialized in this function dynamic-stalin.c:169763: warning: `a6758' might be used uninitialized in this function dynamic-stalin.c:169765: warning: `a6760' might be used uninitialized in this function dynamic-stalin.c:169767: warning: `a6762' might be used uninitialized in this function dynamic-stalin.c:169769: warning: `a6764' might be used uninitialized in this function dynamic-stalin.c:169771: warning: `a6766' might be used uninitialized in this function dynamic-stalin.c:169773: warning: `a6768' might be used uninitialized in this function dynamic-stalin.c:169775: warning: `a6770' might be used uninitialized in this function dynamic-stalin.c:169777: warning: `a6772' might be used uninitialized in this function dynamic-stalin.c:169779: warning: `a6774' might be used uninitialized in this function dynamic-stalin.c:169781: warning: `a6776' might be used uninitialized in this function dynamic-stalin.c:169783: warning: `a6778' might be used uninitialized in this function dynamic-stalin.c:169785: warning: `a6780' might be used uninitialized in this function dynamic-stalin.c:169787: warning: `a6782' might be used uninitialized in this function dynamic-stalin.c:169789: warning: `a6784' might be used uninitialized in this function dynamic-stalin.c:169791: warning: `a6786' might be used uninitialized in this function dynamic-stalin.c:169793: warning: `a6788' might be used uninitialized in this function dynamic-stalin.c:169795: warning: `a6790' might be used uninitialized in this function dynamic-stalin.c:169797: warning: `a6792' might be used uninitialized in this function dynamic-stalin.c:169799: warning: `a6794' might be used uninitialized in this function dynamic-stalin.c:169801: warning: `a6796' might be used uninitialized in this function dynamic-stalin.c:169803: warning: `a6798' might be used uninitialized in this function dynamic-stalin.c:169805: warning: `a6800' might be used uninitialized in this function dynamic-stalin.c:169807: warning: `a6802' might be used uninitialized in this function dynamic-stalin.c:169809: warning: `a6804' might be used uninitialized in this function dynamic-stalin.c:169811: warning: `a6806' might be used uninitialized in this function dynamic-stalin.c:169813: warning: `a6808' might be used uninitialized in this function dynamic-stalin.c:169815: warning: `a6810' might be used uninitialized in this function dynamic-stalin.c:169817: warning: `a6812' might be used uninitialized in this function dynamic-stalin.c:169819: warning: `a6814' might be used uninitialized in this function dynamic-stalin.c:169821: warning: `a6816' might be used uninitialized in this function dynamic-stalin.c:169823: warning: `a6818' might be used uninitialized in this function dynamic-stalin.c:169825: warning: `a6820' might be used uninitialized in this function dynamic-stalin.c:169827: warning: `a6822' might be used uninitialized in this function dynamic-stalin.c:169829: warning: `a6824' might be used uninitialized in this function dynamic-stalin.c:169831: warning: `a6826' might be used uninitialized in this function dynamic-stalin.c:169833: warning: `a6828' might be used uninitialized in this function dynamic-stalin.c:169835: warning: `a6830' might be used uninitialized in this function dynamic-stalin.c:169837: warning: `a6832' might be used uninitialized in this function dynamic-stalin.c:169839: warning: `a6834' might be used uninitialized in this function dynamic-stalin.c:169841: warning: `a6836' might be used uninitialized in this function dynamic-stalin.c:169843: warning: `a6838' might be used uninitialized in this function dynamic-stalin.c:169845: warning: `a6840' might be used uninitialized in this function dynamic-stalin.c:169847: warning: `a6842' might be used uninitialized in this function dynamic-stalin.c:169849: warning: `a6844' might be used uninitialized in this function dynamic-stalin.c:169851: warning: `a6846' might be used uninitialized in this function dynamic-stalin.c:169854: warning: `a6852' might be used uninitialized in this function dynamic-stalin.c:169857: warning: `a6860' might be used uninitialized in this function dynamic-stalin.c:169860: warning: `a6868' might be used uninitialized in this function dynamic-stalin.c:169863: warning: `a6876' might be used uninitialized in this function dynamic-stalin.c:169866: warning: `a6884' might be used uninitialized in this function dynamic-stalin.c:169869: warning: `a6892' might be used uninitialized in this function dynamic-stalin.c:169872: warning: `a6900' might be used uninitialized in this function dynamic-stalin.c:169875: warning: `a6908' might be used uninitialized in this function dynamic-stalin.c:169878: warning: `a6916' might be used uninitialized in this function dynamic-stalin.c:169881: warning: `a6924' might be used uninitialized in this function dynamic-stalin.c:169884: warning: `a6932' might be used uninitialized in this function dynamic-stalin.c:169887: warning: `a6940' might be used uninitialized in this function dynamic-stalin.c:169890: warning: `a6948' might be used uninitialized in this function dynamic-stalin.c:169893: warning: `a6951' might be used uninitialized in this function dynamic-stalin.c:169898: warning: `t23045' might be used uninitialized in this function dynamic-stalin.c:169899: warning: `t23046' might be used uninitialized in this function dynamic-stalin.c:169900: warning: `t23047' might be used uninitialized in this function dynamic-stalin.c:169901: warning: `t23048' might be used uninitialized in this function dynamic-stalin.c:169902: warning: `t23049' might be used uninitialized in this function dynamic-stalin.c:169903: warning: `t23050' might be used uninitialized in this function dynamic-stalin.c:169904: warning: `t23051' might be used uninitialized in this function dynamic-stalin.c:169905: warning: `t23052' might be used uninitialized in this function dynamic-stalin.c:169906: warning: `t23053' might be used uninitialized in this function dynamic-stalin.c:169909: warning: `t23056' might be used uninitialized in this function dynamic-stalin.c:169910: warning: `t23057' might be used uninitialized in this function dynamic-stalin.c:169911: warning: `t23058' might be used uninitialized in this function dynamic-stalin.c:169912: warning: `t23059' might be used uninitialized in this function dynamic-stalin.c:169913: warning: `t23060' might be used uninitialized in this function dynamic-stalin.c:169915: warning: `t23062' might be used uninitialized in this function dynamic-stalin.c:169916: warning: `t23063' might be used uninitialized in this function dynamic-stalin.c:169917: warning: `t23064' might be used uninitialized in this function dynamic-stalin.c:169918: warning: `t23065' might be used uninitialized in this function dynamic-stalin.c:169919: warning: `t23066' might be used uninitialized in this function dynamic-stalin.c:169920: warning: `t23067' might be used uninitialized in this function dynamic-stalin.c:169921: warning: `t23068' might be used uninitialized in this function dynamic-stalin.c:169922: warning: `t23069' might be used uninitialized in this function dynamic-stalin.c:169923: warning: `t23070' might be used uninitialized in this function dynamic-stalin.c:169924: warning: `t23071' might be used uninitialized in this function dynamic-stalin.c:169925: warning: `t23072' might be used uninitialized in this function dynamic-stalin.c:169927: warning: `t23074' might be used uninitialized in this function dynamic-stalin.c:169928: warning: `t23075' might be used uninitialized in this function dynamic-stalin.c:169931: warning: `t23078' might be used uninitialized in this function dynamic-stalin.c:169932: warning: `t23079' might be used uninitialized in this function dynamic-stalin.c:169933: warning: `t23080' might be used uninitialized in this function dynamic-stalin.c:169934: warning: `t23081' might be used uninitialized in this function dynamic-stalin.c:169935: warning: `t23082' might be used uninitialized in this function dynamic-stalin.c:169936: warning: `t23083' might be used uninitialized in this function dynamic-stalin.c:169937: warning: `t23084' might be used uninitialized in this function dynamic-stalin.c:169940: warning: `t23087' might be used uninitialized in this function dynamic-stalin.c:169941: warning: `t23088' might be used uninitialized in this function dynamic-stalin.c:169942: warning: `t23089' might be used uninitialized in this function dynamic-stalin.c:169943: warning: `t23090' might be used uninitialized in this function dynamic-stalin.c:169944: warning: `t23091' might be used uninitialized in this function dynamic-stalin.c:169945: warning: `t23092' might be used uninitialized in this function dynamic-stalin.c:169946: warning: `t23093' might be used uninitialized in this function dynamic-stalin.c:169947: warning: `t23094' might be used uninitialized in this function dynamic-stalin.c:169948: warning: `t23095' might be used uninitialized in this function dynamic-stalin.c:169949: warning: `t23096' might be used uninitialized in this function dynamic-stalin.c:169950: warning: `t23097' might be used uninitialized in this function dynamic-stalin.c:169951: warning: `t23098' might be used uninitialized in this function dynamic-stalin.c:169952: warning: `t23099' might be used uninitialized in this function dynamic-stalin.c:169953: warning: `t23100' might be used uninitialized in this function dynamic-stalin.c:169954: warning: `t23101' might be used uninitialized in this function dynamic-stalin.c:169955: warning: `t23102' might be used uninitialized in this function dynamic-stalin.c:169956: warning: `t23103' might be used uninitialized in this function dynamic-stalin.c:169957: warning: `t23104' might be used uninitialized in this function dynamic-stalin.c:169958: warning: `t23105' might be used uninitialized in this function dynamic-stalin.c:169959: warning: `t23106' might be used uninitialized in this function dynamic-stalin.c:169960: warning: `t23107' might be used uninitialized in this function dynamic-stalin.c:169961: warning: `t23108' might be used uninitialized in this function dynamic-stalin.c:169962: warning: `t23109' might be used uninitialized in this function dynamic-stalin.c:169963: warning: `t23110' might be used uninitialized in this function dynamic-stalin.c:169964: warning: `t23111' might be used uninitialized in this function dynamic-stalin.c:169965: warning: `t23112' might be used uninitialized in this function dynamic-stalin.c:169966: warning: `t23113' might be used uninitialized in this function dynamic-stalin.c:169967: warning: `t23114' might be used uninitialized in this function dynamic-stalin.c:169968: warning: `t23115' might be used uninitialized in this function dynamic-stalin.c:169969: warning: `t23116' might be used uninitialized in this function dynamic-stalin.c:169970: warning: `t23117' might be used uninitialized in this function dynamic-stalin.c:169971: warning: `t23118' might be used uninitialized in this function dynamic-stalin.c:169972: warning: `t23119' might be used uninitialized in this function dynamic-stalin.c:169973: warning: `t23120' might be used uninitialized in this function dynamic-stalin.c:169974: warning: `t23121' might be used uninitialized in this function dynamic-stalin.c:169975: warning: `t23122' might be used uninitialized in this function dynamic-stalin.c:169976: warning: `t23123' might be used uninitialized in this function dynamic-stalin.c:169977: warning: `t23124' might be used uninitialized in this function dynamic-stalin.c:169978: warning: `t23125' might be used uninitialized in this function dynamic-stalin.c:169979: warning: `t23126' might be used uninitialized in this function dynamic-stalin.c:169980: warning: `t23127' might be used uninitialized in this function dynamic-stalin.c:169981: warning: `t23128' might be used uninitialized in this function dynamic-stalin.c:169982: warning: `t23129' might be used uninitialized in this function dynamic-stalin.c:169983: warning: `t23130' might be used uninitialized in this function dynamic-stalin.c:169984: warning: `t23131' might be used uninitialized in this function dynamic-stalin.c:169985: warning: `t23132' might be used uninitialized in this function dynamic-stalin.c:169986: warning: `t23133' might be used uninitialized in this function dynamic-stalin.c:169987: warning: `t23134' might be used uninitialized in this function dynamic-stalin.c:169988: warning: `t23135' might be used uninitialized in this function dynamic-stalin.c:169989: warning: `t23136' might be used uninitialized in this function dynamic-stalin.c:169990: warning: `t23137' might be used uninitialized in this function dynamic-stalin.c:169991: warning: `t23138' might be used uninitialized in this function dynamic-stalin.c:169992: warning: `t23139' might be used uninitialized in this function dynamic-stalin.c:169993: warning: `t23140' might be used uninitialized in this function dynamic-stalin.c:169994: warning: `t23141' might be used uninitialized in this function dynamic-stalin.c:169995: warning: `t23142' might be used uninitialized in this function dynamic-stalin.c:169996: warning: `t23143' might be used uninitialized in this function dynamic-stalin.c:169997: warning: `t23144' might be used uninitialized in this function dynamic-stalin.c:169998: warning: `t23145' might be used uninitialized in this function dynamic-stalin.c:169999: warning: `t23146' might be used uninitialized in this function dynamic-stalin.c:170000: warning: `t23147' might be used uninitialized in this function dynamic-stalin.c:170001: warning: `t23148' might be used uninitialized in this function dynamic-stalin.c:170002: warning: `t23149' might be used uninitialized in this function dynamic-stalin.c:170003: warning: `t23150' might be used uninitialized in this function dynamic-stalin.c:170004: warning: `t23151' might be used uninitialized in this function dynamic-stalin.c:170005: warning: `t23152' might be used uninitialized in this function dynamic-stalin.c:170006: warning: `t23153' might be used uninitialized in this function dynamic-stalin.c:170007: warning: `t23154' might be used uninitialized in this function dynamic-stalin.c:170008: warning: `t23155' might be used uninitialized in this function dynamic-stalin.c:170009: warning: `t23156' might be used uninitialized in this function dynamic-stalin.c:170010: warning: `t23157' might be used uninitialized in this function dynamic-stalin.c:170011: warning: `t23158' might be used uninitialized in this function dynamic-stalin.c:170012: warning: `t23159' might be used uninitialized in this function dynamic-stalin.c:170013: warning: `t23160' might be used uninitialized in this function dynamic-stalin.c:170014: warning: `t23161' might be used uninitialized in this function dynamic-stalin.c:170015: warning: `t23162' might be used uninitialized in this function dynamic-stalin.c:170016: warning: `t23163' might be used uninitialized in this function dynamic-stalin.c:170017: warning: `t23164' might be used uninitialized in this function dynamic-stalin.c:170018: warning: `t23165' might be used uninitialized in this function dynamic-stalin.c:170019: warning: `t23166' might be used uninitialized in this function dynamic-stalin.c:170020: warning: `t23167' might be used uninitialized in this function dynamic-stalin.c:170021: warning: `t23168' might be used uninitialized in this function dynamic-stalin.c:170022: warning: `t23169' might be used uninitialized in this function dynamic-stalin.c:170023: warning: `t23170' might be used uninitialized in this function dynamic-stalin.c:170024: warning: `t23171' might be used uninitialized in this function dynamic-stalin.c:170025: warning: `t23172' might be used uninitialized in this function dynamic-stalin.c:170026: warning: `t23173' might be used uninitialized in this function dynamic-stalin.c:170027: warning: `t23174' might be used uninitialized in this function dynamic-stalin.c:170028: warning: `t23175' might be used uninitialized in this function dynamic-stalin.c:170029: warning: `t23176' might be used uninitialized in this function dynamic-stalin.c:170030: warning: `t23177' might be used uninitialized in this function dynamic-stalin.c:170031: warning: `t23178' might be used uninitialized in this function dynamic-stalin.c:170032: warning: `t23179' might be used uninitialized in this function dynamic-stalin.c:170033: warning: `t23180' might be used uninitialized in this function dynamic-stalin.c:170034: warning: `t23181' might be used uninitialized in this function dynamic-stalin.c:170035: warning: `t23182' might be used uninitialized in this function dynamic-stalin.c:170036: warning: `t23183' might be used uninitialized in this function dynamic-stalin.c:170037: warning: `t23184' might be used uninitialized in this function dynamic-stalin.c:170038: warning: `t23185' might be used uninitialized in this function dynamic-stalin.c:170039: warning: `t23186' might be used uninitialized in this function dynamic-stalin.c:170040: warning: `t23187' might be used uninitialized in this function dynamic-stalin.c:170041: warning: `t23188' might be used uninitialized in this function dynamic-stalin.c:170042: warning: `t23189' might be used uninitialized in this function dynamic-stalin.c:170043: warning: `t23190' might be used uninitialized in this function dynamic-stalin.c:170044: warning: `t23191' might be used uninitialized in this function dynamic-stalin.c:170045: warning: `t23192' might be used uninitialized in this function dynamic-stalin.c:170046: warning: `t23193' might be used uninitialized in this function dynamic-stalin.c:170047: warning: `t23194' might be used uninitialized in this function dynamic-stalin.c:170048: warning: `t23195' might be used uninitialized in this function dynamic-stalin.c:170049: warning: `t23196' might be used uninitialized in this function dynamic-stalin.c:170050: warning: `t23197' might be used uninitialized in this function dynamic-stalin.c:170051: warning: `t23198' might be used uninitialized in this function dynamic-stalin.c:170052: warning: `t23199' might be used uninitialized in this function dynamic-stalin.c:170054: warning: `t23201' might be used uninitialized in this function dynamic-stalin.c:170055: warning: `t23202' might be used uninitialized in this function dynamic-stalin.c:170056: warning: `t23203' might be used uninitialized in this function dynamic-stalin.c:170058: warning: `t23205' might be used uninitialized in this function dynamic-stalin.c:170059: warning: `t23206' might be used uninitialized in this function dynamic-stalin.c:170060: warning: `t23207' might be used uninitialized in this function dynamic-stalin.c:170062: warning: `t23209' might be used uninitialized in this function dynamic-stalin.c:170064: warning: `t23211' might be used uninitialized in this function dynamic-stalin.c:170065: warning: `t23212' might be used uninitialized in this function dynamic-stalin.c:170066: warning: `t23213' might be used uninitialized in this function dynamic-stalin.c:170068: warning: `t23215' might be used uninitialized in this function dynamic-stalin.c:170071: warning: `t23218' might be used uninitialized in this function dynamic-stalin.c:170072: warning: `t23219' might be used uninitialized in this function dynamic-stalin.c:170073: warning: `t23220' might be used uninitialized in this function dynamic-stalin.c:170074: warning: `t23221' might be used uninitialized in this function dynamic-stalin.c:170075: warning: `t23222' might be used uninitialized in this function dynamic-stalin.c:170076: warning: `t23223' might be used uninitialized in this function dynamic-stalin.c:170077: warning: `t23224' might be used uninitialized in this function dynamic-stalin.c:170078: warning: `t23225' might be used uninitialized in this function dynamic-stalin.c:170079: warning: `t23226' might be used uninitialized in this function dynamic-stalin.c:170080: warning: `t23227' might be used uninitialized in this function dynamic-stalin.c:170081: warning: `t23228' might be used uninitialized in this function dynamic-stalin.c:170082: warning: `t23229' might be used uninitialized in this function dynamic-stalin.c:170083: warning: `t23230' might be used uninitialized in this function dynamic-stalin.c:170084: warning: `t23231' might be used uninitialized in this function dynamic-stalin.c:170085: warning: `t23232' might be used uninitialized in this function dynamic-stalin.c:170086: warning: `t23233' might be used uninitialized in this function dynamic-stalin.c:170087: warning: `t23234' might be used uninitialized in this function dynamic-stalin.c:170089: warning: `t23236' might be used uninitialized in this function dynamic-stalin.c:170091: warning: `t23238' might be used uninitialized in this function dynamic-stalin.c:170093: warning: `t23240' might be used uninitialized in this function dynamic-stalin.c:170095: warning: `t23242' might be used uninitialized in this function dynamic-stalin.c:170100: warning: `t23247' might be used uninitialized in this function dynamic-stalin.c:170101: warning: `t23248' might be used uninitialized in this function dynamic-stalin.c:170105: warning: `t23252' might be used uninitialized in this function dynamic-stalin.c:170107: warning: `t23254' might be used uninitialized in this function dynamic-stalin.c:170109: warning: `t23256' might be used uninitialized in this function dynamic-stalin.c:170110: warning: `t23257' might be used uninitialized in this function dynamic-stalin.c:170118: warning: `t23681' might be used uninitialized in this function dynamic-stalin.c:170130: warning: `t23699' might be used uninitialized in this function dynamic-stalin.c:170133: warning: `t23702' might be used uninitialized in this function dynamic-stalin.c:170149: warning: `t23723' might be used uninitialized in this function dynamic-stalin.c:170165: warning: `t23742' might be used uninitialized in this function dynamic-stalin.c:171653: warning: `t25721' might be used uninitialized in this function 2961.16user 14.41system 50:54.08elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (46361major+3824393minor)pagefaults 0swaps compile fannkuch (STATIC-COUNTS 2158 2158 2158 2158 0 0 0 2158 2109 1133 43 105 11 30 1.266955266955267 3995 3995 465 251) fannkuch-stalin.c: In function `f0': fannkuch-stalin.c:3221: warning: unused variable `e29' fannkuch-stalin.c:2217: warning: unused variable `a692' fannkuch-stalin.c:1526: warning: `a1' might be used uninitialized in this function fannkuch-stalin.c:1527: warning: `a2' might be used uninitialized in this function fannkuch-stalin.c:1528: warning: `a3' might be used uninitialized in this function fannkuch-stalin.c:1529: warning: `a4' might be used uninitialized in this function fannkuch-stalin.c:1530: warning: `a5' might be used uninitialized in this function fannkuch-stalin.c:1531: warning: `a6' might be used uninitialized in this function fannkuch-stalin.c:1532: warning: `a7' might be used uninitialized in this function fannkuch-stalin.c:1533: warning: `a8' might be used uninitialized in this function fannkuch-stalin.c:1534: warning: `a9' might be used uninitialized in this function fannkuch-stalin.c:1535: warning: `a10' might be used uninitialized in this function fannkuch-stalin.c:1536: warning: `a11' might be used uninitialized in this function fannkuch-stalin.c:1537: warning: `a12' might be used uninitialized in this function fannkuch-stalin.c:1538: warning: `a13' might be used uninitialized in this function fannkuch-stalin.c:1539: warning: `a14' might be used uninitialized in this function fannkuch-stalin.c:1540: warning: `a15' might be used uninitialized in this function fannkuch-stalin.c:1541: warning: `a16' might be used uninitialized in this function fannkuch-stalin.c:1542: warning: `a17' might be used uninitialized in this function fannkuch-stalin.c:1543: warning: `a18' might be used uninitialized in this function fannkuch-stalin.c:1544: warning: `a19' might be used uninitialized in this function fannkuch-stalin.c:1545: warning: `a20' might be used uninitialized in this function fannkuch-stalin.c:1546: warning: `a21' might be used uninitialized in this function fannkuch-stalin.c:1547: warning: `a22' might be used uninitialized in this function fannkuch-stalin.c:1548: warning: `a23' might be used uninitialized in this function fannkuch-stalin.c:1549: warning: `a24' might be used uninitialized in this function fannkuch-stalin.c:1550: warning: `a25' might be used uninitialized in this function fannkuch-stalin.c:1551: warning: `a26' might be used uninitialized in this function fannkuch-stalin.c:1552: warning: `a27' might be used uninitialized in this function fannkuch-stalin.c:1553: warning: `a28' might be used uninitialized in this function fannkuch-stalin.c:1554: warning: `a29' might be used uninitialized in this function fannkuch-stalin.c:1555: warning: `a30' might be used uninitialized in this function fannkuch-stalin.c:1556: warning: `a31' might be used uninitialized in this function fannkuch-stalin.c:1557: warning: `a32' might be used uninitialized in this function fannkuch-stalin.c:1558: warning: `a33' might be used uninitialized in this function fannkuch-stalin.c:1559: warning: `a34' might be used uninitialized in this function fannkuch-stalin.c:1560: warning: `a35' might be used uninitialized in this function fannkuch-stalin.c:1561: warning: `a36' might be used uninitialized in this function fannkuch-stalin.c:1562: warning: `a37' might be used uninitialized in this function fannkuch-stalin.c:1563: warning: `a38' might be used uninitialized in this function fannkuch-stalin.c:1564: warning: `a39' might be used uninitialized in this function fannkuch-stalin.c:1565: warning: `a40' might be used uninitialized in this function fannkuch-stalin.c:1566: warning: `a41' might be used uninitialized in this function fannkuch-stalin.c:1567: warning: `a42' might be used uninitialized in this function fannkuch-stalin.c:1568: warning: `a43' might be used uninitialized in this function fannkuch-stalin.c:1569: warning: `a44' might be used uninitialized in this function fannkuch-stalin.c:1570: warning: `a45' might be used uninitialized in this function fannkuch-stalin.c:1571: warning: `a46' might be used uninitialized in this function fannkuch-stalin.c:1572: warning: `a47' might be used uninitialized in this function fannkuch-stalin.c:1573: warning: `a48' might be used uninitialized in this function fannkuch-stalin.c:1574: warning: `a49' might be used uninitialized in this function fannkuch-stalin.c:1575: warning: `a50' might be used uninitialized in this function fannkuch-stalin.c:1576: warning: `a51' might be used uninitialized in this function fannkuch-stalin.c:1577: warning: `a52' might be used uninitialized in this function fannkuch-stalin.c:1578: warning: `a53' might be used uninitialized in this function fannkuch-stalin.c:1579: warning: `a54' might be used uninitialized in this function fannkuch-stalin.c:1580: warning: `a55' might be used uninitialized in this function fannkuch-stalin.c:1581: warning: `a56' might be used uninitialized in this function fannkuch-stalin.c:1582: warning: `a57' might be used uninitialized in this function fannkuch-stalin.c:1583: warning: `a58' might be used uninitialized in this function fannkuch-stalin.c:1584: warning: `a59' might be used uninitialized in this function fannkuch-stalin.c:1585: warning: `a60' might be used uninitialized in this function fannkuch-stalin.c:1586: warning: `a61' might be used uninitialized in this function fannkuch-stalin.c:1587: warning: `a62' might be used uninitialized in this function fannkuch-stalin.c:1588: warning: `a63' might be used uninitialized in this function fannkuch-stalin.c:1589: warning: `a64' might be used uninitialized in this function fannkuch-stalin.c:1590: warning: `a65' might be used uninitialized in this function fannkuch-stalin.c:1591: warning: `a66' might be used uninitialized in this function fannkuch-stalin.c:1592: warning: `a67' might be used uninitialized in this function fannkuch-stalin.c:1593: warning: `a68' might be used uninitialized in this function fannkuch-stalin.c:1594: warning: `a69' might be used uninitialized in this function fannkuch-stalin.c:1595: warning: `a70' might be used uninitialized in this function fannkuch-stalin.c:1596: warning: `a71' might be used uninitialized in this function fannkuch-stalin.c:1597: warning: `a72' might be used uninitialized in this function fannkuch-stalin.c:1598: warning: `a73' might be used uninitialized in this function fannkuch-stalin.c:1599: warning: `a74' might be used uninitialized in this function fannkuch-stalin.c:1600: warning: `a75' might be used uninitialized in this function fannkuch-stalin.c:1601: warning: `a76' might be used uninitialized in this function fannkuch-stalin.c:1602: warning: `a77' might be used uninitialized in this function fannkuch-stalin.c:1603: warning: `a78' might be used uninitialized in this function fannkuch-stalin.c:1604: warning: `a79' might be used uninitialized in this function fannkuch-stalin.c:1605: warning: `a80' might be used uninitialized in this function fannkuch-stalin.c:1606: warning: `a81' might be used uninitialized in this function fannkuch-stalin.c:1607: warning: `a82' might be used uninitialized in this function fannkuch-stalin.c:1608: warning: `a83' might be used uninitialized in this function fannkuch-stalin.c:1609: warning: `a84' might be used uninitialized in this function fannkuch-stalin.c:1610: warning: `a85' might be used uninitialized in this function fannkuch-stalin.c:1611: warning: `a86' might be used uninitialized in this function fannkuch-stalin.c:1612: warning: `a87' might be used uninitialized in this function fannkuch-stalin.c:1613: warning: `a88' might be used uninitialized in this function fannkuch-stalin.c:1614: warning: `a89' might be used uninitialized in this function fannkuch-stalin.c:1615: warning: `a90' might be used uninitialized in this function fannkuch-stalin.c:1616: warning: `a91' might be used uninitialized in this function fannkuch-stalin.c:1617: warning: `a92' might be used uninitialized in this function fannkuch-stalin.c:1618: warning: `a93' might be used uninitialized in this function fannkuch-stalin.c:1619: warning: `a94' might be used uninitialized in this function fannkuch-stalin.c:1620: warning: `a95' might be used uninitialized in this function fannkuch-stalin.c:1621: warning: `a96' might be used uninitialized in this function fannkuch-stalin.c:1622: warning: `a97' might be used uninitialized in this function fannkuch-stalin.c:1623: warning: `a98' might be used uninitialized in this function fannkuch-stalin.c:1624: warning: `a99' might be used uninitialized in this function fannkuch-stalin.c:1625: warning: `a100' might be used uninitialized in this function fannkuch-stalin.c:1626: warning: `a101' might be used uninitialized in this function fannkuch-stalin.c:1627: warning: `a102' might be used uninitialized in this function fannkuch-stalin.c:1628: warning: `a103' might be used uninitialized in this function fannkuch-stalin.c:1629: warning: `a104' might be used uninitialized in this function fannkuch-stalin.c:1630: warning: `a105' might be used uninitialized in this function fannkuch-stalin.c:1631: warning: `a106' might be used uninitialized in this function fannkuch-stalin.c:1632: warning: `a107' might be used uninitialized in this function fannkuch-stalin.c:1633: warning: `a108' might be used uninitialized in this function fannkuch-stalin.c:1634: warning: `a109' might be used uninitialized in this function fannkuch-stalin.c:1635: warning: `a110' might be used uninitialized in this function fannkuch-stalin.c:1636: warning: `a111' might be used uninitialized in this function fannkuch-stalin.c:1637: warning: `a112' might be used uninitialized in this function fannkuch-stalin.c:1638: warning: `a113' might be used uninitialized in this function fannkuch-stalin.c:1639: warning: `a114' might be used uninitialized in this function fannkuch-stalin.c:1640: warning: `a115' might be used uninitialized in this function fannkuch-stalin.c:1641: warning: `a116' might be used uninitialized in this function fannkuch-stalin.c:1642: warning: `a117' might be used uninitialized in this function fannkuch-stalin.c:1643: warning: `a118' might be used uninitialized in this function fannkuch-stalin.c:1644: warning: `a119' might be used uninitialized in this function fannkuch-stalin.c:1645: warning: `a120' might be used uninitialized in this function fannkuch-stalin.c:1646: warning: `a121' might be used uninitialized in this function fannkuch-stalin.c:1647: warning: `a122' might be used uninitialized in this function fannkuch-stalin.c:1648: warning: `a123' might be used uninitialized in this function fannkuch-stalin.c:1649: warning: `a124' might be used uninitialized in this function fannkuch-stalin.c:1650: warning: `a125' might be used uninitialized in this function fannkuch-stalin.c:1651: warning: `a126' might be used uninitialized in this function fannkuch-stalin.c:1652: warning: `a127' might be used uninitialized in this function fannkuch-stalin.c:1653: warning: `a128' might be used uninitialized in this function fannkuch-stalin.c:1654: warning: `a129' might be used uninitialized in this function fannkuch-stalin.c:1655: warning: `a130' might be used uninitialized in this function fannkuch-stalin.c:1656: warning: `a131' might be used uninitialized in this function fannkuch-stalin.c:1657: warning: `a132' might be used uninitialized in this function fannkuch-stalin.c:1658: warning: `a133' might be used uninitialized in this function fannkuch-stalin.c:1659: warning: `a134' might be used uninitialized in this function fannkuch-stalin.c:1660: warning: `a135' might be used uninitialized in this function fannkuch-stalin.c:1661: warning: `a136' might be used uninitialized in this function fannkuch-stalin.c:1662: warning: `a137' might be used uninitialized in this function fannkuch-stalin.c:1663: warning: `a138' might be used uninitialized in this function fannkuch-stalin.c:1664: warning: `a139' might be used uninitialized in this function fannkuch-stalin.c:1665: warning: `a140' might be used uninitialized in this function fannkuch-stalin.c:1666: warning: `a141' might be used uninitialized in this function fannkuch-stalin.c:1667: warning: `a142' might be used uninitialized in this function fannkuch-stalin.c:1668: warning: `a143' might be used uninitialized in this function fannkuch-stalin.c:1669: warning: `a144' might be used uninitialized in this function fannkuch-stalin.c:1670: warning: `a145' might be used uninitialized in this function fannkuch-stalin.c:1671: warning: `a146' might be used uninitialized in this function fannkuch-stalin.c:1672: warning: `a147' might be used uninitialized in this function fannkuch-stalin.c:1673: warning: `a148' might be used uninitialized in this function fannkuch-stalin.c:1674: warning: `a149' might be used uninitialized in this function fannkuch-stalin.c:1675: warning: `a150' might be used uninitialized in this function fannkuch-stalin.c:1676: warning: `a151' might be used uninitialized in this function fannkuch-stalin.c:1677: warning: `a152' might be used uninitialized in this function fannkuch-stalin.c:1678: warning: `a153' might be used uninitialized in this function fannkuch-stalin.c:1679: warning: `a154' might be used uninitialized in this function fannkuch-stalin.c:1680: warning: `a155' might be used uninitialized in this function fannkuch-stalin.c:1681: warning: `a156' might be used uninitialized in this function fannkuch-stalin.c:1682: warning: `a157' might be used uninitialized in this function fannkuch-stalin.c:1683: warning: `a158' might be used uninitialized in this function fannkuch-stalin.c:1684: warning: `a159' might be used uninitialized in this function fannkuch-stalin.c:1685: warning: `a160' might be used uninitialized in this function fannkuch-stalin.c:1686: warning: `a161' might be used uninitialized in this function fannkuch-stalin.c:1687: warning: `a162' might be used uninitialized in this function fannkuch-stalin.c:1688: warning: `a163' might be used uninitialized in this function fannkuch-stalin.c:1689: warning: `a164' might be used uninitialized in this function fannkuch-stalin.c:1690: warning: `a165' might be used uninitialized in this function fannkuch-stalin.c:1691: warning: `a166' might be used uninitialized in this function fannkuch-stalin.c:1692: warning: `a167' might be used uninitialized in this function fannkuch-stalin.c:1693: warning: `a168' might be used uninitialized in this function fannkuch-stalin.c:1694: warning: `a169' might be used uninitialized in this function fannkuch-stalin.c:1695: warning: `a170' might be used uninitialized in this function fannkuch-stalin.c:1696: warning: `a171' might be used uninitialized in this function fannkuch-stalin.c:1697: warning: `a172' might be used uninitialized in this function fannkuch-stalin.c:1698: warning: `a173' might be used uninitialized in this function fannkuch-stalin.c:1699: warning: `a174' might be used uninitialized in this function fannkuch-stalin.c:1700: warning: `a175' might be used uninitialized in this function fannkuch-stalin.c:1701: warning: `a176' might be used uninitialized in this function fannkuch-stalin.c:1702: warning: `a177' might be used uninitialized in this function fannkuch-stalin.c:1703: warning: `a178' might be used uninitialized in this function fannkuch-stalin.c:1704: warning: `a179' might be used uninitialized in this function fannkuch-stalin.c:1705: warning: `a180' might be used uninitialized in this function fannkuch-stalin.c:1706: warning: `a181' might be used uninitialized in this function fannkuch-stalin.c:1707: warning: `a182' might be used uninitialized in this function fannkuch-stalin.c:1708: warning: `a183' might be used uninitialized in this function fannkuch-stalin.c:1709: warning: `a184' might be used uninitialized in this function fannkuch-stalin.c:1710: warning: `a185' might be used uninitialized in this function fannkuch-stalin.c:1711: warning: `a186' might be used uninitialized in this function fannkuch-stalin.c:1712: warning: `a187' might be used uninitialized in this function fannkuch-stalin.c:1713: warning: `a188' might be used uninitialized in this function fannkuch-stalin.c:1714: warning: `a189' might be used uninitialized in this function fannkuch-stalin.c:1715: warning: `a190' might be used uninitialized in this function fannkuch-stalin.c:1716: warning: `a191' might be used uninitialized in this function fannkuch-stalin.c:1717: warning: `a192' might be used uninitialized in this function fannkuch-stalin.c:1718: warning: `a193' might be used uninitialized in this function fannkuch-stalin.c:1719: warning: `a194' might be used uninitialized in this function fannkuch-stalin.c:1720: warning: `a195' might be used uninitialized in this function fannkuch-stalin.c:1721: warning: `a196' might be used uninitialized in this function fannkuch-stalin.c:1722: warning: `a197' might be used uninitialized in this function fannkuch-stalin.c:1723: warning: `a198' might be used uninitialized in this function fannkuch-stalin.c:1724: warning: `a199' might be used uninitialized in this function fannkuch-stalin.c:1725: warning: `a200' might be used uninitialized in this function fannkuch-stalin.c:1726: warning: `a201' might be used uninitialized in this function fannkuch-stalin.c:1727: warning: `a202' might be used uninitialized in this function fannkuch-stalin.c:1728: warning: `a203' might be used uninitialized in this function fannkuch-stalin.c:1729: warning: `a204' might be used uninitialized in this function fannkuch-stalin.c:1730: warning: `a205' might be used uninitialized in this function fannkuch-stalin.c:1731: warning: `a206' might be used uninitialized in this function fannkuch-stalin.c:1732: warning: `a207' might be used uninitialized in this function fannkuch-stalin.c:1733: warning: `a208' might be used uninitialized in this function fannkuch-stalin.c:1734: warning: `a209' might be used uninitialized in this function fannkuch-stalin.c:1735: warning: `a210' might be used uninitialized in this function fannkuch-stalin.c:1736: warning: `a211' might be used uninitialized in this function fannkuch-stalin.c:1737: warning: `a212' might be used uninitialized in this function fannkuch-stalin.c:1738: warning: `a213' might be used uninitialized in this function fannkuch-stalin.c:1739: warning: `a214' might be used uninitialized in this function fannkuch-stalin.c:1740: warning: `a215' might be used uninitialized in this function fannkuch-stalin.c:1741: warning: `a216' might be used uninitialized in this function fannkuch-stalin.c:1742: warning: `a217' might be used uninitialized in this function fannkuch-stalin.c:1743: warning: `a218' might be used uninitialized in this function fannkuch-stalin.c:1744: warning: `a219' might be used uninitialized in this function fannkuch-stalin.c:1745: warning: `a220' might be used uninitialized in this function fannkuch-stalin.c:1746: warning: `a221' might be used uninitialized in this function fannkuch-stalin.c:1747: warning: `a222' might be used uninitialized in this function fannkuch-stalin.c:1748: warning: `a223' might be used uninitialized in this function fannkuch-stalin.c:1749: warning: `a224' might be used uninitialized in this function fannkuch-stalin.c:1750: warning: `a225' might be used uninitialized in this function fannkuch-stalin.c:1751: warning: `a226' might be used uninitialized in this function fannkuch-stalin.c:1752: warning: `a227' might be used uninitialized in this function fannkuch-stalin.c:1753: warning: `a228' might be used uninitialized in this function fannkuch-stalin.c:1754: warning: `a229' might be used uninitialized in this function fannkuch-stalin.c:1755: warning: `a230' might be used uninitialized in this function fannkuch-stalin.c:1756: warning: `a231' might be used uninitialized in this function fannkuch-stalin.c:1757: warning: `a232' might be used uninitialized in this function fannkuch-stalin.c:1758: warning: `a233' might be used uninitialized in this function fannkuch-stalin.c:1759: warning: `a234' might be used uninitialized in this function fannkuch-stalin.c:1760: warning: `a235' might be used uninitialized in this function fannkuch-stalin.c:1761: warning: `a236' might be used uninitialized in this function fannkuch-stalin.c:1762: warning: `a237' might be used uninitialized in this function fannkuch-stalin.c:1763: warning: `a238' might be used uninitialized in this function fannkuch-stalin.c:1764: warning: `a239' might be used uninitialized in this function fannkuch-stalin.c:1765: warning: `a240' might be used uninitialized in this function fannkuch-stalin.c:1766: warning: `a241' might be used uninitialized in this function fannkuch-stalin.c:1767: warning: `a242' might be used uninitialized in this function fannkuch-stalin.c:1768: warning: `a243' might be used uninitialized in this function fannkuch-stalin.c:1769: warning: `a244' might be used uninitialized in this function fannkuch-stalin.c:1770: warning: `a245' might be used uninitialized in this function fannkuch-stalin.c:1771: warning: `a246' might be used uninitialized in this function fannkuch-stalin.c:1772: warning: `a247' might be used uninitialized in this function fannkuch-stalin.c:1773: warning: `a248' might be used uninitialized in this function fannkuch-stalin.c:1774: warning: `a249' might be used uninitialized in this function fannkuch-stalin.c:1775: warning: `a250' might be used uninitialized in this function fannkuch-stalin.c:1776: warning: `a251' might be used uninitialized in this function fannkuch-stalin.c:1777: warning: `a252' might be used uninitialized in this function fannkuch-stalin.c:1778: warning: `a253' might be used uninitialized in this function fannkuch-stalin.c:1779: warning: `a254' might be used uninitialized in this function fannkuch-stalin.c:1780: warning: `a255' might be used uninitialized in this function fannkuch-stalin.c:1781: warning: `a256' might be used uninitialized in this function fannkuch-stalin.c:1782: warning: `a257' might be used uninitialized in this function fannkuch-stalin.c:1783: warning: `a258' might be used uninitialized in this function fannkuch-stalin.c:1784: warning: `a259' might be used uninitialized in this function fannkuch-stalin.c:1785: warning: `a260' might be used uninitialized in this function fannkuch-stalin.c:1786: warning: `a261' might be used uninitialized in this function fannkuch-stalin.c:1787: warning: `a262' might be used uninitialized in this function fannkuch-stalin.c:1788: warning: `a263' might be used uninitialized in this function fannkuch-stalin.c:1789: warning: `a264' might be used uninitialized in this function fannkuch-stalin.c:1790: warning: `a265' might be used uninitialized in this function fannkuch-stalin.c:1791: warning: `a266' might be used uninitialized in this function fannkuch-stalin.c:1792: warning: `a267' might be used uninitialized in this function fannkuch-stalin.c:1793: warning: `a268' might be used uninitialized in this function fannkuch-stalin.c:1794: warning: `a269' might be used uninitialized in this function fannkuch-stalin.c:1795: warning: `a270' might be used uninitialized in this function fannkuch-stalin.c:1796: warning: `a271' might be used uninitialized in this function fannkuch-stalin.c:1797: warning: `a272' might be used uninitialized in this function fannkuch-stalin.c:1798: warning: `a273' might be used uninitialized in this function fannkuch-stalin.c:1799: warning: `a274' might be used uninitialized in this function fannkuch-stalin.c:1800: warning: `a275' might be used uninitialized in this function fannkuch-stalin.c:1801: warning: `a276' might be used uninitialized in this function fannkuch-stalin.c:1802: warning: `a277' might be used uninitialized in this function fannkuch-stalin.c:1803: warning: `a278' might be used uninitialized in this function fannkuch-stalin.c:1804: warning: `a279' might be used uninitialized in this function fannkuch-stalin.c:1805: warning: `a280' might be used uninitialized in this function fannkuch-stalin.c:1806: warning: `a281' might be used uninitialized in this function fannkuch-stalin.c:1807: warning: `a282' might be used uninitialized in this function fannkuch-stalin.c:1808: warning: `a283' might be used uninitialized in this function fannkuch-stalin.c:1809: warning: `a284' might be used uninitialized in this function fannkuch-stalin.c:1810: warning: `a285' might be used uninitialized in this function fannkuch-stalin.c:1811: warning: `a286' might be used uninitialized in this function fannkuch-stalin.c:1812: warning: `a287' might be used uninitialized in this function fannkuch-stalin.c:1813: warning: `a288' might be used uninitialized in this function fannkuch-stalin.c:1814: warning: `a289' might be used uninitialized in this function fannkuch-stalin.c:1815: warning: `a290' might be used uninitialized in this function fannkuch-stalin.c:1816: warning: `a291' might be used uninitialized in this function fannkuch-stalin.c:1817: warning: `a292' might be used uninitialized in this function fannkuch-stalin.c:1818: warning: `a293' might be used uninitialized in this function fannkuch-stalin.c:1819: warning: `a294' might be used uninitialized in this function fannkuch-stalin.c:1820: warning: `a295' might be used uninitialized in this function fannkuch-stalin.c:1821: warning: `a296' might be used uninitialized in this function fannkuch-stalin.c:1822: warning: `a297' might be used uninitialized in this function fannkuch-stalin.c:1823: warning: `a298' might be used uninitialized in this function fannkuch-stalin.c:1824: warning: `a299' might be used uninitialized in this function fannkuch-stalin.c:1825: warning: `a300' might be used uninitialized in this function fannkuch-stalin.c:1826: warning: `a301' might be used uninitialized in this function fannkuch-stalin.c:1827: warning: `a302' might be used uninitialized in this function fannkuch-stalin.c:1828: warning: `a303' might be used uninitialized in this function fannkuch-stalin.c:1829: warning: `a304' might be used uninitialized in this function fannkuch-stalin.c:1830: warning: `a305' might be used uninitialized in this function fannkuch-stalin.c:1831: warning: `a306' might be used uninitialized in this function fannkuch-stalin.c:1832: warning: `a307' might be used uninitialized in this function fannkuch-stalin.c:1833: warning: `a308' might be used uninitialized in this function fannkuch-stalin.c:1834: warning: `a309' might be used uninitialized in this function fannkuch-stalin.c:1835: warning: `a310' might be used uninitialized in this function fannkuch-stalin.c:1836: warning: `a311' might be used uninitialized in this function fannkuch-stalin.c:1837: warning: `a312' might be used uninitialized in this function fannkuch-stalin.c:1838: warning: `a313' might be used uninitialized in this function fannkuch-stalin.c:1839: warning: `a314' might be used uninitialized in this function fannkuch-stalin.c:1840: warning: `a315' might be used uninitialized in this function fannkuch-stalin.c:1841: warning: `a316' might be used uninitialized in this function fannkuch-stalin.c:1842: warning: `a317' might be used uninitialized in this function fannkuch-stalin.c:1843: warning: `a318' might be used uninitialized in this function fannkuch-stalin.c:1844: warning: `a319' might be used uninitialized in this function fannkuch-stalin.c:1845: warning: `a320' might be used uninitialized in this function fannkuch-stalin.c:1846: warning: `a321' might be used uninitialized in this function fannkuch-stalin.c:1847: warning: `a322' might be used uninitialized in this function fannkuch-stalin.c:1848: warning: `a323' might be used uninitialized in this function fannkuch-stalin.c:1849: warning: `a324' might be used uninitialized in this function fannkuch-stalin.c:1850: warning: `a325' might be used uninitialized in this function fannkuch-stalin.c:1851: warning: `a326' might be used uninitialized in this function fannkuch-stalin.c:1852: warning: `a327' might be used uninitialized in this function fannkuch-stalin.c:1853: warning: `a328' might be used uninitialized in this function fannkuch-stalin.c:1854: warning: `a329' might be used uninitialized in this function fannkuch-stalin.c:1855: warning: `a330' might be used uninitialized in this function fannkuch-stalin.c:1856: warning: `a331' might be used uninitialized in this function fannkuch-stalin.c:1857: warning: `a332' might be used uninitialized in this function fannkuch-stalin.c:1858: warning: `a333' might be used uninitialized in this function fannkuch-stalin.c:1859: warning: `a334' might be used uninitialized in this function fannkuch-stalin.c:1860: warning: `a335' might be used uninitialized in this function fannkuch-stalin.c:1861: warning: `a336' might be used uninitialized in this function fannkuch-stalin.c:1862: warning: `a337' might be used uninitialized in this function fannkuch-stalin.c:1863: warning: `a338' might be used uninitialized in this function fannkuch-stalin.c:1864: warning: `a339' might be used uninitialized in this function fannkuch-stalin.c:1865: warning: `a340' might be used uninitialized in this function fannkuch-stalin.c:1866: warning: `a341' might be used uninitialized in this function fannkuch-stalin.c:1867: warning: `a342' might be used uninitialized in this function fannkuch-stalin.c:1868: warning: `a343' might be used uninitialized in this function fannkuch-stalin.c:1869: warning: `a344' might be used uninitialized in this function fannkuch-stalin.c:1870: warning: `a345' might be used uninitialized in this function fannkuch-stalin.c:1871: warning: `a346' might be used uninitialized in this function fannkuch-stalin.c:1872: warning: `a347' might be used uninitialized in this function fannkuch-stalin.c:1873: warning: `a348' might be used uninitialized in this function fannkuch-stalin.c:1874: warning: `a349' might be used uninitialized in this function fannkuch-stalin.c:1875: warning: `a350' might be used uninitialized in this function fannkuch-stalin.c:1876: warning: `a351' might be used uninitialized in this function fannkuch-stalin.c:1877: warning: `a352' might be used uninitialized in this function fannkuch-stalin.c:1878: warning: `a353' might be used uninitialized in this function fannkuch-stalin.c:1879: warning: `a354' might be used uninitialized in this function fannkuch-stalin.c:1880: warning: `a355' might be used uninitialized in this function fannkuch-stalin.c:1881: warning: `a356' might be used uninitialized in this function fannkuch-stalin.c:1882: warning: `a357' might be used uninitialized in this function fannkuch-stalin.c:1883: warning: `a358' might be used uninitialized in this function fannkuch-stalin.c:1884: warning: `a359' might be used uninitialized in this function fannkuch-stalin.c:1885: warning: `a360' might be used uninitialized in this function fannkuch-stalin.c:1886: warning: `a361' might be used uninitialized in this function fannkuch-stalin.c:1887: warning: `a362' might be used uninitialized in this function fannkuch-stalin.c:1888: warning: `a363' might be used uninitialized in this function fannkuch-stalin.c:1889: warning: `a364' might be used uninitialized in this function fannkuch-stalin.c:1890: warning: `a365' might be used uninitialized in this function fannkuch-stalin.c:1891: warning: `a366' might be used uninitialized in this function fannkuch-stalin.c:1892: warning: `a367' might be used uninitialized in this function fannkuch-stalin.c:1893: warning: `a368' might be used uninitialized in this function fannkuch-stalin.c:1894: warning: `a369' might be used uninitialized in this function fannkuch-stalin.c:1895: warning: `a370' might be used uninitialized in this function fannkuch-stalin.c:1896: warning: `a371' might be used uninitialized in this function fannkuch-stalin.c:1897: warning: `a372' might be used uninitialized in this function fannkuch-stalin.c:1898: warning: `a373' might be used uninitialized in this function fannkuch-stalin.c:1899: warning: `a374' might be used uninitialized in this function fannkuch-stalin.c:1900: warning: `a375' might be used uninitialized in this function fannkuch-stalin.c:1901: warning: `a376' might be used uninitialized in this function fannkuch-stalin.c:1902: warning: `a377' might be used uninitialized in this function fannkuch-stalin.c:1903: warning: `a378' might be used uninitialized in this function fannkuch-stalin.c:1904: warning: `a379' might be used uninitialized in this function fannkuch-stalin.c:1905: warning: `a380' might be used uninitialized in this function fannkuch-stalin.c:1906: warning: `a381' might be used uninitialized in this function fannkuch-stalin.c:1907: warning: `a382' might be used uninitialized in this function fannkuch-stalin.c:1908: warning: `a383' might be used uninitialized in this function fannkuch-stalin.c:1909: warning: `a384' might be used uninitialized in this function fannkuch-stalin.c:1910: warning: `a385' might be used uninitialized in this function fannkuch-stalin.c:1911: warning: `a386' might be used uninitialized in this function fannkuch-stalin.c:1912: warning: `a387' might be used uninitialized in this function fannkuch-stalin.c:1913: warning: `a388' might be used uninitialized in this function fannkuch-stalin.c:1914: warning: `a389' might be used uninitialized in this function fannkuch-stalin.c:1915: warning: `a390' might be used uninitialized in this function fannkuch-stalin.c:1916: warning: `a391' might be used uninitialized in this function fannkuch-stalin.c:1917: warning: `a392' might be used uninitialized in this function fannkuch-stalin.c:1918: warning: `a393' might be used uninitialized in this function fannkuch-stalin.c:1919: warning: `a394' might be used uninitialized in this function fannkuch-stalin.c:1920: warning: `a395' might be used uninitialized in this function fannkuch-stalin.c:1921: warning: `a396' might be used uninitialized in this function fannkuch-stalin.c:1922: warning: `a397' might be used uninitialized in this function fannkuch-stalin.c:1923: warning: `a398' might be used uninitialized in this function fannkuch-stalin.c:1924: warning: `a399' might be used uninitialized in this function fannkuch-stalin.c:1925: warning: `a400' might be used uninitialized in this function fannkuch-stalin.c:1926: warning: `a401' might be used uninitialized in this function fannkuch-stalin.c:1927: warning: `a402' might be used uninitialized in this function fannkuch-stalin.c:1928: warning: `a403' might be used uninitialized in this function fannkuch-stalin.c:1929: warning: `a404' might be used uninitialized in this function fannkuch-stalin.c:1930: warning: `a405' might be used uninitialized in this function fannkuch-stalin.c:1931: warning: `a406' might be used uninitialized in this function fannkuch-stalin.c:1932: warning: `a407' might be used uninitialized in this function fannkuch-stalin.c:1933: warning: `a408' might be used uninitialized in this function fannkuch-stalin.c:1934: warning: `a409' might be used uninitialized in this function fannkuch-stalin.c:1935: warning: `a410' might be used uninitialized in this function fannkuch-stalin.c:1936: warning: `a411' might be used uninitialized in this function fannkuch-stalin.c:1937: warning: `a412' might be used uninitialized in this function fannkuch-stalin.c:1938: warning: `a413' might be used uninitialized in this function fannkuch-stalin.c:1939: warning: `a414' might be used uninitialized in this function fannkuch-stalin.c:1940: warning: `a415' might be used uninitialized in this function fannkuch-stalin.c:1941: warning: `a416' might be used uninitialized in this function fannkuch-stalin.c:1942: warning: `a417' might be used uninitialized in this function fannkuch-stalin.c:1943: warning: `a418' might be used uninitialized in this function fannkuch-stalin.c:1944: warning: `a419' might be used uninitialized in this function fannkuch-stalin.c:1945: warning: `a420' might be used uninitialized in this function fannkuch-stalin.c:1946: warning: `a421' might be used uninitialized in this function fannkuch-stalin.c:1947: warning: `a422' might be used uninitialized in this function fannkuch-stalin.c:1948: warning: `a423' might be used uninitialized in this function fannkuch-stalin.c:1949: warning: `a424' might be used uninitialized in this function fannkuch-stalin.c:1950: warning: `a425' might be used uninitialized in this function fannkuch-stalin.c:1951: warning: `a426' might be used uninitialized in this function fannkuch-stalin.c:1952: warning: `a427' might be used uninitialized in this function fannkuch-stalin.c:1953: warning: `a428' might be used uninitialized in this function fannkuch-stalin.c:1954: warning: `a429' might be used uninitialized in this function fannkuch-stalin.c:1955: warning: `a430' might be used uninitialized in this function fannkuch-stalin.c:1956: warning: `a431' might be used uninitialized in this function fannkuch-stalin.c:1957: warning: `a432' might be used uninitialized in this function fannkuch-stalin.c:1958: warning: `a433' might be used uninitialized in this function fannkuch-stalin.c:1959: warning: `a434' might be used uninitialized in this function fannkuch-stalin.c:1960: warning: `a435' might be used uninitialized in this function fannkuch-stalin.c:2174: warning: `a649' might be used uninitialized in this function fannkuch-stalin.c:2175: warning: `a650' might be used uninitialized in this function fannkuch-stalin.c:2176: warning: `a651' might be used uninitialized in this function fannkuch-stalin.c:2177: warning: `a652' might be used uninitialized in this function fannkuch-stalin.c:2178: warning: `a653' might be used uninitialized in this function fannkuch-stalin.c:2179: warning: `a654' might be used uninitialized in this function fannkuch-stalin.c:2181: warning: `a656' might be used uninitialized in this function fannkuch-stalin.c:2183: warning: `a658' might be used uninitialized in this function fannkuch-stalin.c:2184: warning: `a659' might be used uninitialized in this function fannkuch-stalin.c:2190: warning: `a665' might be used uninitialized in this function fannkuch-stalin.c:2191: warning: `a666' might be used uninitialized in this function fannkuch-stalin.c:2192: warning: `a667' might be used uninitialized in this function fannkuch-stalin.c:2193: warning: `a668' might be used uninitialized in this function fannkuch-stalin.c:2194: warning: `a669' might be used uninitialized in this function fannkuch-stalin.c:2195: warning: `a670' might be used uninitialized in this function fannkuch-stalin.c:2196: warning: `a671' might be used uninitialized in this function fannkuch-stalin.c:2197: warning: `a672' might be used uninitialized in this function fannkuch-stalin.c:2198: warning: `a673' might be used uninitialized in this function fannkuch-stalin.c:2199: warning: `a674' might be used uninitialized in this function fannkuch-stalin.c:2200: warning: `a675' might be used uninitialized in this function fannkuch-stalin.c:2201: warning: `a676' might be used uninitialized in this function fannkuch-stalin.c:2202: warning: `a677' might be used uninitialized in this function fannkuch-stalin.c:2203: warning: `a678' might be used uninitialized in this function fannkuch-stalin.c:2204: warning: `a679' might be used uninitialized in this function fannkuch-stalin.c:2206: warning: `a681' might be used uninitialized in this function fannkuch-stalin.c:2209: warning: `a684' might be used uninitialized in this function fannkuch-stalin.c:2210: warning: `a685' might be used uninitialized in this function fannkuch-stalin.c:2212: warning: `a687' might be used uninitialized in this function fannkuch-stalin.c:2214: warning: `a689' might be used uninitialized in this function fannkuch-stalin.c:2216: warning: `a691' might be used uninitialized in this function fannkuch-stalin.c:2219: warning: `a694' might be used uninitialized in this function fannkuch-stalin.c:2221: warning: `a696' might be used uninitialized in this function fannkuch-stalin.c:2225: warning: `a700' might be used uninitialized in this function fannkuch-stalin.c:2227: warning: `a702' might be used uninitialized in this function fannkuch-stalin.c:2232: warning: `a707' might be used uninitialized in this function fannkuch-stalin.c:2234: warning: `a709' might be used uninitialized in this function fannkuch-stalin.c:2239: warning: `a714' might be used uninitialized in this function fannkuch-stalin.c:2241: warning: `a716' might be used uninitialized in this function fannkuch-stalin.c:2247: warning: `a722' might be used uninitialized in this function fannkuch-stalin.c:2249: warning: `a724' might be used uninitialized in this function fannkuch-stalin.c:2252: warning: `a727' might be used uninitialized in this function fannkuch-stalin.c:2256: warning: `a731' might be used uninitialized in this function fannkuch-stalin.c:2261: warning: `a736' might be used uninitialized in this function fannkuch-stalin.c:2263: warning: `a738' might be used uninitialized in this function fannkuch-stalin.c:2266: warning: `a741' might be used uninitialized in this function fannkuch-stalin.c:2270: warning: `a745' might be used uninitialized in this function fannkuch-stalin.c:2273: warning: `a748' might be used uninitialized in this function fannkuch-stalin.c:2275: warning: `a941' might be used uninitialized in this function fannkuch-stalin.c:2276: warning: `a1804' might be used uninitialized in this function fannkuch-stalin.c:2277: warning: `a1805' might be used uninitialized in this function fannkuch-stalin.c:2281: warning: `a1809' might be used uninitialized in this function fannkuch-stalin.c:2282: warning: `a1810' might be used uninitialized in this function fannkuch-stalin.c:2283: warning: `a1811' might be used uninitialized in this function fannkuch-stalin.c:2284: warning: `a1812' might be used uninitialized in this function fannkuch-stalin.c:2285: warning: `a1813' might be used uninitialized in this function fannkuch-stalin.c:2286: warning: `a1814' might be used uninitialized in this function fannkuch-stalin.c:2287: warning: `a1815' might be used uninitialized in this function fannkuch-stalin.c:2288: warning: `a1816' might be used uninitialized in this function fannkuch-stalin.c:2289: warning: `a1817' might be used uninitialized in this function fannkuch-stalin.c:2290: warning: `a1818' might be used uninitialized in this function fannkuch-stalin.c:2291: warning: `a1819' might be used uninitialized in this function fannkuch-stalin.c:2292: warning: `a1820' might be used uninitialized in this function fannkuch-stalin.c:2293: warning: `a1821' might be used uninitialized in this function fannkuch-stalin.c:2294: warning: `a1822' might be used uninitialized in this function fannkuch-stalin.c:2295: warning: `a1823' might be used uninitialized in this function fannkuch-stalin.c:2296: warning: `a1824' might be used uninitialized in this function fannkuch-stalin.c:2297: warning: `a1825' might be used uninitialized in this function fannkuch-stalin.c:2298: warning: `a1826' might be used uninitialized in this function fannkuch-stalin.c:2299: warning: `a1827' might be used uninitialized in this function fannkuch-stalin.c:2300: warning: `a1828' might be used uninitialized in this function fannkuch-stalin.c:2301: warning: `a1829' might be used uninitialized in this function fannkuch-stalin.c:2302: warning: `a1830' might be used uninitialized in this function fannkuch-stalin.c:2303: warning: `a1831' might be used uninitialized in this function fannkuch-stalin.c:2304: warning: `a1832' might be used uninitialized in this function fannkuch-stalin.c:2305: warning: `a1833' might be used uninitialized in this function fannkuch-stalin.c:2306: warning: `a1834' might be used uninitialized in this function fannkuch-stalin.c:2307: warning: `a1835' might be used uninitialized in this function fannkuch-stalin.c:2308: warning: `a1836' might be used uninitialized in this function fannkuch-stalin.c:2309: warning: `a1837' might be used uninitialized in this function fannkuch-stalin.c:2310: warning: `a1838' might be used uninitialized in this function fannkuch-stalin.c:2311: warning: `a1839' might be used uninitialized in this function fannkuch-stalin.c:2312: warning: `a1840' might be used uninitialized in this function fannkuch-stalin.c:2313: warning: `a1841' might be used uninitialized in this function fannkuch-stalin.c:2314: warning: `a1842' might be used uninitialized in this function fannkuch-stalin.c:2318: warning: `a1855' might be used uninitialized in this function fannkuch-stalin.c:2322: warning: `a1859' might be used uninitialized in this function fannkuch-stalin.c:2324: warning: `a1861' might be used uninitialized in this function fannkuch-stalin.c:2325: warning: `a1862' might be used uninitialized in this function fannkuch-stalin.c:2326: warning: `a1863' might be used uninitialized in this function fannkuch-stalin.c:2328: warning: `a1865' might be used uninitialized in this function fannkuch-stalin.c:2332: warning: `a1869' might be used uninitialized in this function fannkuch-stalin.c:2334: warning: `a1871' might be used uninitialized in this function fannkuch-stalin.c:2335: warning: `a1872' might be used uninitialized in this function fannkuch-stalin.c:2339: warning: `a2144' might be used uninitialized in this function fannkuch-stalin.c:2340: warning: `a2147' might be used uninitialized in this function fannkuch-stalin.c:2344: warning: `t438' might be used uninitialized in this function fannkuch-stalin.c:2345: warning: `t439' might be used uninitialized in this function fannkuch-stalin.c:2346: warning: `t440' might be used uninitialized in this function fannkuch-stalin.c:2347: warning: `t441' might be used uninitialized in this function fannkuch-stalin.c:2348: warning: `t442' might be used uninitialized in this function fannkuch-stalin.c:2349: warning: `t443' might be used uninitialized in this function fannkuch-stalin.c:2350: warning: `t444' might be used uninitialized in this function fannkuch-stalin.c:2351: warning: `t445' might be used uninitialized in this function fannkuch-stalin.c:2352: warning: `t446' might be used uninitialized in this function fannkuch-stalin.c:2354: warning: `t448' might be used uninitialized in this function fannkuch-stalin.c:2356: warning: `t450' might be used uninitialized in this function fannkuch-stalin.c:2357: warning: `t451' might be used uninitialized in this function fannkuch-stalin.c:2358: warning: `t452' might be used uninitialized in this function fannkuch-stalin.c:2359: warning: `t453' might be used uninitialized in this function fannkuch-stalin.c:2360: warning: `t454' might be used uninitialized in this function fannkuch-stalin.c:2361: warning: `t455' might be used uninitialized in this function fannkuch-stalin.c:2362: warning: `t456' might be used uninitialized in this function fannkuch-stalin.c:2363: warning: `t457' might be used uninitialized in this function fannkuch-stalin.c:2364: warning: `t458' might be used uninitialized in this function fannkuch-stalin.c:2365: warning: `t459' might be used uninitialized in this function fannkuch-stalin.c:2366: warning: `t460' might be used uninitialized in this function fannkuch-stalin.c:2367: warning: `t461' might be used uninitialized in this function fannkuch-stalin.c:2368: warning: `t462' might be used uninitialized in this function fannkuch-stalin.c:2369: warning: `t463' might be used uninitialized in this function fannkuch-stalin.c:2370: warning: `t464' might be used uninitialized in this function fannkuch-stalin.c:2371: warning: `t465' might be used uninitialized in this function fannkuch-stalin.c:2372: warning: `t466' might be used uninitialized in this function fannkuch-stalin.c:2373: warning: `t467' might be used uninitialized in this function fannkuch-stalin.c:2374: warning: `t468' might be used uninitialized in this function fannkuch-stalin.c:2375: warning: `t469' might be used uninitialized in this function fannkuch-stalin.c:2376: warning: `t470' might be used uninitialized in this function fannkuch-stalin.c:2377: warning: `t471' might be used uninitialized in this function fannkuch-stalin.c:2378: warning: `t472' might be used uninitialized in this function fannkuch-stalin.c:2379: warning: `t473' might be used uninitialized in this function fannkuch-stalin.c:2380: warning: `t474' might be used uninitialized in this function fannkuch-stalin.c:2381: warning: `t475' might be used uninitialized in this function fannkuch-stalin.c:2382: warning: `t476' might be used uninitialized in this function fannkuch-stalin.c:2383: warning: `t477' might be used uninitialized in this function fannkuch-stalin.c:2384: warning: `t478' might be used uninitialized in this function fannkuch-stalin.c:2385: warning: `t479' might be used uninitialized in this function fannkuch-stalin.c:2386: warning: `t480' might be used uninitialized in this function fannkuch-stalin.c:2387: warning: `t481' might be used uninitialized in this function fannkuch-stalin.c:2388: warning: `t482' might be used uninitialized in this function fannkuch-stalin.c:2389: warning: `t483' might be used uninitialized in this function fannkuch-stalin.c:2390: warning: `t484' might be used uninitialized in this function fannkuch-stalin.c:2391: warning: `t485' might be used uninitialized in this function fannkuch-stalin.c:2392: warning: `t486' might be used uninitialized in this function fannkuch-stalin.c:2393: warning: `t487' might be used uninitialized in this function fannkuch-stalin.c:2394: warning: `t488' might be used uninitialized in this function fannkuch-stalin.c:2395: warning: `t489' might be used uninitialized in this function fannkuch-stalin.c:2396: warning: `t490' might be used uninitialized in this function fannkuch-stalin.c:2397: warning: `t491' might be used uninitialized in this function fannkuch-stalin.c:2398: warning: `t492' might be used uninitialized in this function fannkuch-stalin.c:2399: warning: `t493' might be used uninitialized in this function fannkuch-stalin.c:2400: warning: `t494' might be used uninitialized in this function fannkuch-stalin.c:2401: warning: `t495' might be used uninitialized in this function fannkuch-stalin.c:2402: warning: `t496' might be used uninitialized in this function fannkuch-stalin.c:2403: warning: `t497' might be used uninitialized in this function fannkuch-stalin.c:2404: warning: `t498' might be used uninitialized in this function fannkuch-stalin.c:2405: warning: `t499' might be used uninitialized in this function fannkuch-stalin.c:2406: warning: `t500' might be used uninitialized in this function fannkuch-stalin.c:2407: warning: `t501' might be used uninitialized in this function fannkuch-stalin.c:2408: warning: `t502' might be used uninitialized in this function fannkuch-stalin.c:2409: warning: `t503' might be used uninitialized in this function fannkuch-stalin.c:2410: warning: `t504' might be used uninitialized in this function fannkuch-stalin.c:2411: warning: `t505' might be used uninitialized in this function fannkuch-stalin.c:2412: warning: `t506' might be used uninitialized in this function fannkuch-stalin.c:2413: warning: `t507' might be used uninitialized in this function fannkuch-stalin.c:2414: warning: `t508' might be used uninitialized in this function fannkuch-stalin.c:2415: warning: `t509' might be used uninitialized in this function fannkuch-stalin.c:2416: warning: `t510' might be used uninitialized in this function fannkuch-stalin.c:2417: warning: `t511' might be used uninitialized in this function fannkuch-stalin.c:2418: warning: `t512' might be used uninitialized in this function fannkuch-stalin.c:2419: warning: `t513' might be used uninitialized in this function fannkuch-stalin.c:2420: warning: `t514' might be used uninitialized in this function fannkuch-stalin.c:2421: warning: `t515' might be used uninitialized in this function fannkuch-stalin.c:2422: warning: `t516' might be used uninitialized in this function fannkuch-stalin.c:2423: warning: `t517' might be used uninitialized in this function fannkuch-stalin.c:2424: warning: `t518' might be used uninitialized in this function fannkuch-stalin.c:2425: warning: `t519' might be used uninitialized in this function fannkuch-stalin.c:2426: warning: `t520' might be used uninitialized in this function fannkuch-stalin.c:2427: warning: `t521' might be used uninitialized in this function fannkuch-stalin.c:2428: warning: `t522' might be used uninitialized in this function fannkuch-stalin.c:2429: warning: `t523' might be used uninitialized in this function fannkuch-stalin.c:2430: warning: `t524' might be used uninitialized in this function fannkuch-stalin.c:2431: warning: `t525' might be used uninitialized in this function fannkuch-stalin.c:2432: warning: `t526' might be used uninitialized in this function fannkuch-stalin.c:2433: warning: `t527' might be used uninitialized in this function fannkuch-stalin.c:2434: warning: `t528' might be used uninitialized in this function fannkuch-stalin.c:2435: warning: `t529' might be used uninitialized in this function fannkuch-stalin.c:2436: warning: `t530' might be used uninitialized in this function fannkuch-stalin.c:2437: warning: `t531' might be used uninitialized in this function fannkuch-stalin.c:2438: warning: `t532' might be used uninitialized in this function fannkuch-stalin.c:2439: warning: `t533' might be used uninitialized in this function fannkuch-stalin.c:2440: warning: `t534' might be used uninitialized in this function fannkuch-stalin.c:2441: warning: `t535' might be used uninitialized in this function fannkuch-stalin.c:2442: warning: `t536' might be used uninitialized in this function fannkuch-stalin.c:2443: warning: `t537' might be used uninitialized in this function fannkuch-stalin.c:2444: warning: `t538' might be used uninitialized in this function fannkuch-stalin.c:2445: warning: `t539' might be used uninitialized in this function fannkuch-stalin.c:2446: warning: `t540' might be used uninitialized in this function fannkuch-stalin.c:2447: warning: `t541' might be used uninitialized in this function fannkuch-stalin.c:2448: warning: `t542' might be used uninitialized in this function fannkuch-stalin.c:2449: warning: `t543' might be used uninitialized in this function fannkuch-stalin.c:2450: warning: `t544' might be used uninitialized in this function fannkuch-stalin.c:2451: warning: `t545' might be used uninitialized in this function fannkuch-stalin.c:2452: warning: `t546' might be used uninitialized in this function fannkuch-stalin.c:2453: warning: `t547' might be used uninitialized in this function fannkuch-stalin.c:2454: warning: `t548' might be used uninitialized in this function fannkuch-stalin.c:2455: warning: `t549' might be used uninitialized in this function fannkuch-stalin.c:2456: warning: `t550' might be used uninitialized in this function fannkuch-stalin.c:2457: warning: `t551' might be used uninitialized in this function fannkuch-stalin.c:2458: warning: `t552' might be used uninitialized in this function fannkuch-stalin.c:2459: warning: `t553' might be used uninitialized in this function fannkuch-stalin.c:2460: warning: `t554' might be used uninitialized in this function fannkuch-stalin.c:2461: warning: `t555' might be used uninitialized in this function fannkuch-stalin.c:2462: warning: `t556' might be used uninitialized in this function fannkuch-stalin.c:2463: warning: `t557' might be used uninitialized in this function fannkuch-stalin.c:2464: warning: `t558' might be used uninitialized in this function fannkuch-stalin.c:2465: warning: `t559' might be used uninitialized in this function fannkuch-stalin.c:2466: warning: `t560' might be used uninitialized in this function fannkuch-stalin.c:2467: warning: `t561' might be used uninitialized in this function fannkuch-stalin.c:2468: warning: `t562' might be used uninitialized in this function fannkuch-stalin.c:2469: warning: `t563' might be used uninitialized in this function fannkuch-stalin.c:2470: warning: `t564' might be used uninitialized in this function fannkuch-stalin.c:2471: warning: `t565' might be used uninitialized in this function fannkuch-stalin.c:2472: warning: `t566' might be used uninitialized in this function fannkuch-stalin.c:2473: warning: `t567' might be used uninitialized in this function fannkuch-stalin.c:2474: warning: `t568' might be used uninitialized in this function fannkuch-stalin.c:2475: warning: `t569' might be used uninitialized in this function fannkuch-stalin.c:2476: warning: `t570' might be used uninitialized in this function fannkuch-stalin.c:2477: warning: `t571' might be used uninitialized in this function fannkuch-stalin.c:2478: warning: `t572' might be used uninitialized in this function fannkuch-stalin.c:2479: warning: `t573' might be used uninitialized in this function fannkuch-stalin.c:2480: warning: `t574' might be used uninitialized in this function fannkuch-stalin.c:2481: warning: `t575' might be used uninitialized in this function fannkuch-stalin.c:2482: warning: `t576' might be used uninitialized in this function fannkuch-stalin.c:2483: warning: `t577' might be used uninitialized in this function fannkuch-stalin.c:2484: warning: `t578' might be used uninitialized in this function fannkuch-stalin.c:2485: warning: `t579' might be used uninitialized in this function fannkuch-stalin.c:2486: warning: `t580' might be used uninitialized in this function fannkuch-stalin.c:2487: warning: `t581' might be used uninitialized in this function fannkuch-stalin.c:2488: warning: `t582' might be used uninitialized in this function fannkuch-stalin.c:2489: warning: `t583' might be used uninitialized in this function fannkuch-stalin.c:2490: warning: `t584' might be used uninitialized in this function fannkuch-stalin.c:2491: warning: `t585' might be used uninitialized in this function fannkuch-stalin.c:2492: warning: `t586' might be used uninitialized in this function fannkuch-stalin.c:2493: warning: `t587' might be used uninitialized in this function fannkuch-stalin.c:2494: warning: `t588' might be used uninitialized in this function fannkuch-stalin.c:2495: warning: `t589' might be used uninitialized in this function fannkuch-stalin.c:2496: warning: `t590' might be used uninitialized in this function fannkuch-stalin.c:2497: warning: `t591' might be used uninitialized in this function fannkuch-stalin.c:2498: warning: `t592' might be used uninitialized in this function fannkuch-stalin.c:2499: warning: `t593' might be used uninitialized in this function fannkuch-stalin.c:2500: warning: `t594' might be used uninitialized in this function fannkuch-stalin.c:2501: warning: `t595' might be used uninitialized in this function fannkuch-stalin.c:2502: warning: `t596' might be used uninitialized in this function fannkuch-stalin.c:2503: warning: `t597' might be used uninitialized in this function fannkuch-stalin.c:2504: warning: `t598' might be used uninitialized in this function fannkuch-stalin.c:2505: warning: `t599' might be used uninitialized in this function fannkuch-stalin.c:2506: warning: `t600' might be used uninitialized in this function fannkuch-stalin.c:2507: warning: `t601' might be used uninitialized in this function fannkuch-stalin.c:2508: warning: `t602' might be used uninitialized in this function fannkuch-stalin.c:2509: warning: `t603' might be used uninitialized in this function fannkuch-stalin.c:2510: warning: `t604' might be used uninitialized in this function fannkuch-stalin.c:2511: warning: `t605' might be used uninitialized in this function fannkuch-stalin.c:2512: warning: `t606' might be used uninitialized in this function fannkuch-stalin.c:2513: warning: `t607' might be used uninitialized in this function fannkuch-stalin.c:2514: warning: `t608' might be used uninitialized in this function fannkuch-stalin.c:2515: warning: `t609' might be used uninitialized in this function fannkuch-stalin.c:2516: warning: `t610' might be used uninitialized in this function fannkuch-stalin.c:2517: warning: `t611' might be used uninitialized in this function fannkuch-stalin.c:2518: warning: `t612' might be used uninitialized in this function fannkuch-stalin.c:2519: warning: `t613' might be used uninitialized in this function fannkuch-stalin.c:2520: warning: `t614' might be used uninitialized in this function fannkuch-stalin.c:2521: warning: `t615' might be used uninitialized in this function fannkuch-stalin.c:2522: warning: `t616' might be used uninitialized in this function fannkuch-stalin.c:2523: warning: `t617' might be used uninitialized in this function fannkuch-stalin.c:2524: warning: `t618' might be used uninitialized in this function fannkuch-stalin.c:2525: warning: `t619' might be used uninitialized in this function fannkuch-stalin.c:2526: warning: `t620' might be used uninitialized in this function fannkuch-stalin.c:2527: warning: `t621' might be used uninitialized in this function fannkuch-stalin.c:2528: warning: `t622' might be used uninitialized in this function fannkuch-stalin.c:2529: warning: `t623' might be used uninitialized in this function fannkuch-stalin.c:2530: warning: `t624' might be used uninitialized in this function fannkuch-stalin.c:2531: warning: `t625' might be used uninitialized in this function fannkuch-stalin.c:2532: warning: `t626' might be used uninitialized in this function fannkuch-stalin.c:2533: warning: `t627' might be used uninitialized in this function fannkuch-stalin.c:2534: warning: `t628' might be used uninitialized in this function fannkuch-stalin.c:2535: warning: `t629' might be used uninitialized in this function fannkuch-stalin.c:2536: warning: `t630' might be used uninitialized in this function fannkuch-stalin.c:2537: warning: `t631' might be used uninitialized in this function fannkuch-stalin.c:2538: warning: `t632' might be used uninitialized in this function fannkuch-stalin.c:2539: warning: `t633' might be used uninitialized in this function fannkuch-stalin.c:2540: warning: `t634' might be used uninitialized in this function fannkuch-stalin.c:2541: warning: `t635' might be used uninitialized in this function fannkuch-stalin.c:2542: warning: `t636' might be used uninitialized in this function fannkuch-stalin.c:2543: warning: `t637' might be used uninitialized in this function fannkuch-stalin.c:2544: warning: `t638' might be used uninitialized in this function fannkuch-stalin.c:2545: warning: `t639' might be used uninitialized in this function fannkuch-stalin.c:2546: warning: `t640' might be used uninitialized in this function fannkuch-stalin.c:2547: warning: `t641' might be used uninitialized in this function fannkuch-stalin.c:2548: warning: `t642' might be used uninitialized in this function fannkuch-stalin.c:2549: warning: `t643' might be used uninitialized in this function fannkuch-stalin.c:2550: warning: `t644' might be used uninitialized in this function fannkuch-stalin.c:2551: warning: `t645' might be used uninitialized in this function fannkuch-stalin.c:2552: warning: `t646' might be used uninitialized in this function fannkuch-stalin.c:2553: warning: `t647' might be used uninitialized in this function fannkuch-stalin.c:2554: warning: `t648' might be used uninitialized in this function fannkuch-stalin.c:2555: warning: `t649' might be used uninitialized in this function fannkuch-stalin.c:2556: warning: `t650' might be used uninitialized in this function fannkuch-stalin.c:2725: warning: `t908' might be used uninitialized in this function fannkuch-stalin.c:2822: warning: `t1036' might be used uninitialized in this function fannkuch-stalin.c:2839: warning: `t1056' might be used uninitialized in this function fannkuch-stalin.c:2966: warning: `t1224' might be used uninitialized in this function 24.73user 0.39system 0:28.01elapsed 89%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32820major+226574minor)pagefaults 0swaps compile simplex (STATIC-COUNTS 2240 2240 2240 2240 0 0 0 2240 2249 1201 67 179 26 78 3.529473684210526 4289 4289 500 282) simplex-stalin.c: In function `f93': simplex-stalin.c:2055: warning: `a747' might be used uninitialized in this function simplex-stalin.c:2056: warning: `a748' might be used uninitialized in this function simplex-stalin.c:2057: warning: `a749' might be used uninitialized in this function simplex-stalin.c:2058: warning: `a750' might be used uninitialized in this function simplex-stalin.c:2060: warning: `a752' might be used uninitialized in this function simplex-stalin.c:2061: warning: `a753' might be used uninitialized in this function simplex-stalin.c:2063: warning: `a755' might be used uninitialized in this function simplex-stalin.c:2065: warning: `a757' might be used uninitialized in this function simplex-stalin.c:2066: warning: `a758' might be used uninitialized in this function simplex-stalin.c:2067: warning: `a759' might be used uninitialized in this function simplex-stalin.c:2069: warning: `a761' might be used uninitialized in this function simplex-stalin.c: In function `f63': simplex-stalin.c:2565: warning: `a726' might be used uninitialized in this function simplex-stalin.c:2568: warning: `a729' might be used uninitialized in this function simplex-stalin.c:2569: warning: `a730' might be used uninitialized in this function simplex-stalin.c:2571: warning: `a732' might be used uninitialized in this function simplex-stalin.c:2573: warning: `a734' might be used uninitialized in this function simplex-stalin.c:2576: warning: `a737' might be used uninitialized in this function simplex-stalin.c:2578: warning: `a739' might be used uninitialized in this function simplex-stalin.c:2580: warning: `a741' might be used uninitialized in this function simplex-stalin.c:2581: warning: `a742' might be used uninitialized in this function simplex-stalin.c:2582: warning: `a743' might be used uninitialized in this function simplex-stalin.c:2583: warning: `a744' might be used uninitialized in this function simplex-stalin.c: In function `f51': simplex-stalin.c:3173: warning: `a719' might be used uninitialized in this function simplex-stalin.c:3174: warning: `a720' might be used uninitialized in this function simplex-stalin.c:3175: warning: `a721' might be used uninitialized in this function simplex-stalin.c:3176: warning: `a722' might be used uninitialized in this function simplex-stalin.c:3178: warning: `a724' might be used uninitialized in this function simplex-stalin.c:3179: warning: `a725' might be used uninitialized in this function simplex-stalin.c: In function `f0': simplex-stalin.c:3434: warning: `a1' might be used uninitialized in this function simplex-stalin.c:3435: warning: `a2' might be used uninitialized in this function simplex-stalin.c:3436: warning: `a3' might be used uninitialized in this function simplex-stalin.c:3437: warning: `a4' might be used uninitialized in this function simplex-stalin.c:3438: warning: `a5' might be used uninitialized in this function simplex-stalin.c:3439: warning: `a6' might be used uninitialized in this function simplex-stalin.c:3440: warning: `a7' might be used uninitialized in this function simplex-stalin.c:3441: warning: `a8' might be used uninitialized in this function simplex-stalin.c:3442: warning: `a9' might be used uninitialized in this function simplex-stalin.c:3443: warning: `a10' might be used uninitialized in this function simplex-stalin.c:3444: warning: `a11' might be used uninitialized in this function simplex-stalin.c:3445: warning: `a12' might be used uninitialized in this function simplex-stalin.c:3446: warning: `a13' might be used uninitialized in this function simplex-stalin.c:3447: warning: `a14' might be used uninitialized in this function simplex-stalin.c:3448: warning: `a15' might be used uninitialized in this function simplex-stalin.c:3449: warning: `a16' might be used uninitialized in this function simplex-stalin.c:3450: warning: `a17' might be used uninitialized in this function simplex-stalin.c:3451: warning: `a18' might be used uninitialized in this function simplex-stalin.c:3452: warning: `a19' might be used uninitialized in this function simplex-stalin.c:3453: warning: `a20' might be used uninitialized in this function simplex-stalin.c:3454: warning: `a21' might be used uninitialized in this function simplex-stalin.c:3455: warning: `a22' might be used uninitialized in this function simplex-stalin.c:3456: warning: `a23' might be used uninitialized in this function simplex-stalin.c:3457: warning: `a24' might be used uninitialized in this function simplex-stalin.c:3458: warning: `a25' might be used uninitialized in this function simplex-stalin.c:3459: warning: `a26' might be used uninitialized in this function simplex-stalin.c:3460: warning: `a27' might be used uninitialized in this function simplex-stalin.c:3461: warning: `a28' might be used uninitialized in this function simplex-stalin.c:3462: warning: `a29' might be used uninitialized in this function simplex-stalin.c:3463: warning: `a30' might be used uninitialized in this function simplex-stalin.c:3464: warning: `a31' might be used uninitialized in this function simplex-stalin.c:3465: warning: `a32' might be used uninitialized in this function simplex-stalin.c:3466: warning: `a33' might be used uninitialized in this function simplex-stalin.c:3467: warning: `a34' might be used uninitialized in this function simplex-stalin.c:3468: warning: `a35' might be used uninitialized in this function simplex-stalin.c:3469: warning: `a36' might be used uninitialized in this function simplex-stalin.c:3470: warning: `a37' might be used uninitialized in this function simplex-stalin.c:3471: warning: `a38' might be used uninitialized in this function simplex-stalin.c:3472: warning: `a39' might be used uninitialized in this function simplex-stalin.c:3473: warning: `a40' might be used uninitialized in this function simplex-stalin.c:3474: warning: `a41' might be used uninitialized in this function simplex-stalin.c:3475: warning: `a42' might be used uninitialized in this function simplex-stalin.c:3476: warning: `a43' might be used uninitialized in this function simplex-stalin.c:3477: warning: `a44' might be used uninitialized in this function simplex-stalin.c:3478: warning: `a45' might be used uninitialized in this function simplex-stalin.c:3479: warning: `a46' might be used uninitialized in this function simplex-stalin.c:3480: warning: `a47' might be used uninitialized in this function simplex-stalin.c:3481: warning: `a48' might be used uninitialized in this function simplex-stalin.c:3482: warning: `a49' might be used uninitialized in this function simplex-stalin.c:3483: warning: `a50' might be used uninitialized in this function simplex-stalin.c:3484: warning: `a51' might be used uninitialized in this function simplex-stalin.c:3485: warning: `a52' might be used uninitialized in this function simplex-stalin.c:3486: warning: `a53' might be used uninitialized in this function simplex-stalin.c:3487: warning: `a54' might be used uninitialized in this function simplex-stalin.c:3488: warning: `a55' might be used uninitialized in this function simplex-stalin.c:3489: warning: `a56' might be used uninitialized in this function simplex-stalin.c:3490: warning: `a57' might be used uninitialized in this function simplex-stalin.c:3491: warning: `a58' might be used uninitialized in this function simplex-stalin.c:3492: warning: `a59' might be used uninitialized in this function simplex-stalin.c:3493: warning: `a60' might be used uninitialized in this function simplex-stalin.c:3494: warning: `a61' might be used uninitialized in this function simplex-stalin.c:3495: warning: `a62' might be used uninitialized in this function simplex-stalin.c:3496: warning: `a63' might be used uninitialized in this function simplex-stalin.c:3497: warning: `a64' might be used uninitialized in this function simplex-stalin.c:3498: warning: `a65' might be used uninitialized in this function simplex-stalin.c:3499: warning: `a66' might be used uninitialized in this function simplex-stalin.c:3500: warning: `a67' might be used uninitialized in this function simplex-stalin.c:3501: warning: `a68' might be used uninitialized in this function simplex-stalin.c:3502: warning: `a69' might be used uninitialized in this function simplex-stalin.c:3503: warning: `a70' might be used uninitialized in this function simplex-stalin.c:3504: warning: `a71' might be used uninitialized in this function simplex-stalin.c:3505: warning: `a72' might be used uninitialized in this function simplex-stalin.c:3506: warning: `a73' might be used uninitialized in this function simplex-stalin.c:3507: warning: `a74' might be used uninitialized in this function simplex-stalin.c:3508: warning: `a75' might be used uninitialized in this function simplex-stalin.c:3509: warning: `a76' might be used uninitialized in this function simplex-stalin.c:3510: warning: `a77' might be used uninitialized in this function simplex-stalin.c:3511: warning: `a78' might be used uninitialized in this function simplex-stalin.c:3512: warning: `a79' might be used uninitialized in this function simplex-stalin.c:3513: warning: `a80' might be used uninitialized in this function simplex-stalin.c:3514: warning: `a81' might be used uninitialized in this function simplex-stalin.c:3515: warning: `a82' might be used uninitialized in this function simplex-stalin.c:3516: warning: `a83' might be used uninitialized in this function simplex-stalin.c:3517: warning: `a84' might be used uninitialized in this function simplex-stalin.c:3518: warning: `a85' might be used uninitialized in this function simplex-stalin.c:3519: warning: `a86' might be used uninitialized in this function simplex-stalin.c:3520: warning: `a87' might be used uninitialized in this function simplex-stalin.c:3521: warning: `a88' might be used uninitialized in this function simplex-stalin.c:3522: warning: `a89' might be used uninitialized in this function simplex-stalin.c:3523: warning: `a90' might be used uninitialized in this function simplex-stalin.c:3524: warning: `a91' might be used uninitialized in this function simplex-stalin.c:3525: warning: `a92' might be used uninitialized in this function simplex-stalin.c:3526: warning: `a93' might be used uninitialized in this function simplex-stalin.c:3527: warning: `a94' might be used uninitialized in this function simplex-stalin.c:3528: warning: `a95' might be used uninitialized in this function simplex-stalin.c:3529: warning: `a96' might be used uninitialized in this function simplex-stalin.c:3530: warning: `a97' might be used uninitialized in this function simplex-stalin.c:3531: warning: `a98' might be used uninitialized in this function simplex-stalin.c:3532: warning: `a99' might be used uninitialized in this function simplex-stalin.c:3533: warning: `a100' might be used uninitialized in this function simplex-stalin.c:3534: warning: `a101' might be used uninitialized in this function simplex-stalin.c:3535: warning: `a102' might be used uninitialized in this function simplex-stalin.c:3536: warning: `a103' might be used uninitialized in this function simplex-stalin.c:3537: warning: `a104' might be used uninitialized in this function simplex-stalin.c:3538: warning: `a105' might be used uninitialized in this function simplex-stalin.c:3539: warning: `a106' might be used uninitialized in this function simplex-stalin.c:3540: warning: `a107' might be used uninitialized in this function simplex-stalin.c:3541: warning: `a108' might be used uninitialized in this function simplex-stalin.c:3542: warning: `a109' might be used uninitialized in this function simplex-stalin.c:3543: warning: `a110' might be used uninitialized in this function simplex-stalin.c:3544: warning: `a111' might be used uninitialized in this function simplex-stalin.c:3545: warning: `a112' might be used uninitialized in this function simplex-stalin.c:3546: warning: `a113' might be used uninitialized in this function simplex-stalin.c:3547: warning: `a114' might be used uninitialized in this function simplex-stalin.c:3548: warning: `a115' might be used uninitialized in this function simplex-stalin.c:3549: warning: `a116' might be used uninitialized in this function simplex-stalin.c:3550: warning: `a117' might be used uninitialized in this function simplex-stalin.c:3551: warning: `a118' might be used uninitialized in this function simplex-stalin.c:3552: warning: `a119' might be used uninitialized in this function simplex-stalin.c:3553: warning: `a120' might be used uninitialized in this function simplex-stalin.c:3554: warning: `a121' might be used uninitialized in this function simplex-stalin.c:3555: warning: `a122' might be used uninitialized in this function simplex-stalin.c:3556: warning: `a123' might be used uninitialized in this function simplex-stalin.c:3557: warning: `a124' might be used uninitialized in this function simplex-stalin.c:3558: warning: `a125' might be used uninitialized in this function simplex-stalin.c:3559: warning: `a126' might be used uninitialized in this function simplex-stalin.c:3560: warning: `a127' might be used uninitialized in this function simplex-stalin.c:3561: warning: `a128' might be used uninitialized in this function simplex-stalin.c:3562: warning: `a129' might be used uninitialized in this function simplex-stalin.c:3563: warning: `a130' might be used uninitialized in this function simplex-stalin.c:3564: warning: `a131' might be used uninitialized in this function simplex-stalin.c:3565: warning: `a132' might be used uninitialized in this function simplex-stalin.c:3566: warning: `a133' might be used uninitialized in this function simplex-stalin.c:3567: warning: `a134' might be used uninitialized in this function simplex-stalin.c:3568: warning: `a135' might be used uninitialized in this function simplex-stalin.c:3569: warning: `a136' might be used uninitialized in this function simplex-stalin.c:3570: warning: `a137' might be used uninitialized in this function simplex-stalin.c:3571: warning: `a138' might be used uninitialized in this function simplex-stalin.c:3572: warning: `a139' might be used uninitialized in this function simplex-stalin.c:3573: warning: `a140' might be used uninitialized in this function simplex-stalin.c:3574: warning: `a141' might be used uninitialized in this function simplex-stalin.c:3575: warning: `a142' might be used uninitialized in this function simplex-stalin.c:3576: warning: `a143' might be used uninitialized in this function simplex-stalin.c:3577: warning: `a144' might be used uninitialized in this function simplex-stalin.c:3578: warning: `a145' might be used uninitialized in this function simplex-stalin.c:3579: warning: `a146' might be used uninitialized in this function simplex-stalin.c:3580: warning: `a147' might be used uninitialized in this function simplex-stalin.c:3581: warning: `a148' might be used uninitialized in this function simplex-stalin.c:3582: warning: `a149' might be used uninitialized in this function simplex-stalin.c:3583: warning: `a150' might be used uninitialized in this function simplex-stalin.c:3584: warning: `a151' might be used uninitialized in this function simplex-stalin.c:3585: warning: `a152' might be used uninitialized in this function simplex-stalin.c:3586: warning: `a153' might be used uninitialized in this function simplex-stalin.c:3587: warning: `a154' might be used uninitialized in this function simplex-stalin.c:3588: warning: `a155' might be used uninitialized in this function simplex-stalin.c:3589: warning: `a156' might be used uninitialized in this function simplex-stalin.c:3590: warning: `a157' might be used uninitialized in this function simplex-stalin.c:3591: warning: `a158' might be used uninitialized in this function simplex-stalin.c:3592: warning: `a159' might be used uninitialized in this function simplex-stalin.c:3593: warning: `a160' might be used uninitialized in this function simplex-stalin.c:3594: warning: `a161' might be used uninitialized in this function simplex-stalin.c:3595: warning: `a162' might be used uninitialized in this function simplex-stalin.c:3596: warning: `a163' might be used uninitialized in this function simplex-stalin.c:3597: warning: `a164' might be used uninitialized in this function simplex-stalin.c:3598: warning: `a165' might be used uninitialized in this function simplex-stalin.c:3599: warning: `a166' might be used uninitialized in this function simplex-stalin.c:3600: warning: `a167' might be used uninitialized in this function simplex-stalin.c:3601: warning: `a168' might be used uninitialized in this function simplex-stalin.c:3602: warning: `a169' might be used uninitialized in this function simplex-stalin.c:3603: warning: `a170' might be used uninitialized in this function simplex-stalin.c:3604: warning: `a171' might be used uninitialized in this function simplex-stalin.c:3605: warning: `a172' might be used uninitialized in this function simplex-stalin.c:3606: warning: `a173' might be used uninitialized in this function simplex-stalin.c:3607: warning: `a174' might be used uninitialized in this function simplex-stalin.c:3608: warning: `a175' might be used uninitialized in this function simplex-stalin.c:3609: warning: `a176' might be used uninitialized in this function simplex-stalin.c:3610: warning: `a177' might be used uninitialized in this function simplex-stalin.c:3611: warning: `a178' might be used uninitialized in this function simplex-stalin.c:3612: warning: `a179' might be used uninitialized in this function simplex-stalin.c:3613: warning: `a180' might be used uninitialized in this function simplex-stalin.c:3614: warning: `a181' might be used uninitialized in this function simplex-stalin.c:3615: warning: `a182' might be used uninitialized in this function simplex-stalin.c:3616: warning: `a183' might be used uninitialized in this function simplex-stalin.c:3617: warning: `a184' might be used uninitialized in this function simplex-stalin.c:3618: warning: `a185' might be used uninitialized in this function simplex-stalin.c:3619: warning: `a186' might be used uninitialized in this function simplex-stalin.c:3620: warning: `a187' might be used uninitialized in this function simplex-stalin.c:3621: warning: `a188' might be used uninitialized in this function simplex-stalin.c:3622: warning: `a189' might be used uninitialized in this function simplex-stalin.c:3623: warning: `a190' might be used uninitialized in this function simplex-stalin.c:3624: warning: `a191' might be used uninitialized in this function simplex-stalin.c:3625: warning: `a192' might be used uninitialized in this function simplex-stalin.c:3626: warning: `a193' might be used uninitialized in this function simplex-stalin.c:3627: warning: `a194' might be used uninitialized in this function simplex-stalin.c:3628: warning: `a195' might be used uninitialized in this function simplex-stalin.c:3629: warning: `a196' might be used uninitialized in this function simplex-stalin.c:3630: warning: `a197' might be used uninitialized in this function simplex-stalin.c:3631: warning: `a198' might be used uninitialized in this function simplex-stalin.c:3632: warning: `a199' might be used uninitialized in this function simplex-stalin.c:3633: warning: `a200' might be used uninitialized in this function simplex-stalin.c:3634: warning: `a201' might be used uninitialized in this function simplex-stalin.c:3635: warning: `a202' might be used uninitialized in this function simplex-stalin.c:3636: warning: `a203' might be used uninitialized in this function simplex-stalin.c:3637: warning: `a204' might be used uninitialized in this function simplex-stalin.c:3638: warning: `a205' might be used uninitialized in this function simplex-stalin.c:3639: warning: `a206' might be used uninitialized in this function simplex-stalin.c:3640: warning: `a207' might be used uninitialized in this function simplex-stalin.c:3641: warning: `a208' might be used uninitialized in this function simplex-stalin.c:3642: warning: `a209' might be used uninitialized in this function simplex-stalin.c:3643: warning: `a210' might be used uninitialized in this function simplex-stalin.c:3644: warning: `a211' might be used uninitialized in this function simplex-stalin.c:3645: warning: `a212' might be used uninitialized in this function simplex-stalin.c:3646: warning: `a213' might be used uninitialized in this function simplex-stalin.c:3647: warning: `a214' might be used uninitialized in this function simplex-stalin.c:3648: warning: `a215' might be used uninitialized in this function simplex-stalin.c:3649: warning: `a216' might be used uninitialized in this function simplex-stalin.c:3650: warning: `a217' might be used uninitialized in this function simplex-stalin.c:3651: warning: `a218' might be used uninitialized in this function simplex-stalin.c:3652: warning: `a219' might be used uninitialized in this function simplex-stalin.c:3653: warning: `a220' might be used uninitialized in this function simplex-stalin.c:3654: warning: `a221' might be used uninitialized in this function simplex-stalin.c:3655: warning: `a222' might be used uninitialized in this function simplex-stalin.c:3656: warning: `a223' might be used uninitialized in this function simplex-stalin.c:3657: warning: `a224' might be used uninitialized in this function simplex-stalin.c:3658: warning: `a225' might be used uninitialized in this function simplex-stalin.c:3659: warning: `a226' might be used uninitialized in this function simplex-stalin.c:3660: warning: `a227' might be used uninitialized in this function simplex-stalin.c:3661: warning: `a228' might be used uninitialized in this function simplex-stalin.c:3662: warning: `a229' might be used uninitialized in this function simplex-stalin.c:3663: warning: `a230' might be used uninitialized in this function simplex-stalin.c:3664: warning: `a231' might be used uninitialized in this function simplex-stalin.c:3665: warning: `a232' might be used uninitialized in this function simplex-stalin.c:3666: warning: `a233' might be used uninitialized in this function simplex-stalin.c:3667: warning: `a234' might be used uninitialized in this function simplex-stalin.c:3668: warning: `a235' might be used uninitialized in this function simplex-stalin.c:3669: warning: `a236' might be used uninitialized in this function simplex-stalin.c:3670: warning: `a237' might be used uninitialized in this function simplex-stalin.c:3671: warning: `a238' might be used uninitialized in this function simplex-stalin.c:3672: warning: `a239' might be used uninitialized in this function simplex-stalin.c:3673: warning: `a240' might be used uninitialized in this function simplex-stalin.c:3674: warning: `a241' might be used uninitialized in this function simplex-stalin.c:3675: warning: `a242' might be used uninitialized in this function simplex-stalin.c:3676: warning: `a243' might be used uninitialized in this function simplex-stalin.c:3677: warning: `a244' might be used uninitialized in this function simplex-stalin.c:3678: warning: `a245' might be used uninitialized in this function simplex-stalin.c:3679: warning: `a246' might be used uninitialized in this function simplex-stalin.c:3680: warning: `a247' might be used uninitialized in this function simplex-stalin.c:3681: warning: `a248' might be used uninitialized in this function simplex-stalin.c:3682: warning: `a249' might be used uninitialized in this function simplex-stalin.c:3683: warning: `a250' might be used uninitialized in this function simplex-stalin.c:3684: warning: `a251' might be used uninitialized in this function simplex-stalin.c:3685: warning: `a252' might be used uninitialized in this function simplex-stalin.c:3686: warning: `a253' might be used uninitialized in this function simplex-stalin.c:3687: warning: `a254' might be used uninitialized in this function simplex-stalin.c:3688: warning: `a255' might be used uninitialized in this function simplex-stalin.c:3689: warning: `a256' might be used uninitialized in this function simplex-stalin.c:3690: warning: `a257' might be used uninitialized in this function simplex-stalin.c:3691: warning: `a258' might be used uninitialized in this function simplex-stalin.c:3692: warning: `a259' might be used uninitialized in this function simplex-stalin.c:3693: warning: `a260' might be used uninitialized in this function simplex-stalin.c:3694: warning: `a261' might be used uninitialized in this function simplex-stalin.c:3695: warning: `a262' might be used uninitialized in this function simplex-stalin.c:3696: warning: `a263' might be used uninitialized in this function simplex-stalin.c:3697: warning: `a264' might be used uninitialized in this function simplex-stalin.c:3698: warning: `a265' might be used uninitialized in this function simplex-stalin.c:3699: warning: `a266' might be used uninitialized in this function simplex-stalin.c:3700: warning: `a267' might be used uninitialized in this function simplex-stalin.c:3701: warning: `a268' might be used uninitialized in this function simplex-stalin.c:3702: warning: `a269' might be used uninitialized in this function simplex-stalin.c:3703: warning: `a270' might be used uninitialized in this function simplex-stalin.c:3704: warning: `a271' might be used uninitialized in this function simplex-stalin.c:3705: warning: `a272' might be used uninitialized in this function simplex-stalin.c:3706: warning: `a273' might be used uninitialized in this function simplex-stalin.c:3707: warning: `a274' might be used uninitialized in this function simplex-stalin.c:3708: warning: `a275' might be used uninitialized in this function simplex-stalin.c:3709: warning: `a276' might be used uninitialized in this function simplex-stalin.c:3710: warning: `a277' might be used uninitialized in this function simplex-stalin.c:3711: warning: `a278' might be used uninitialized in this function simplex-stalin.c:3712: warning: `a279' might be used uninitialized in this function simplex-stalin.c:3713: warning: `a280' might be used uninitialized in this function simplex-stalin.c:3714: warning: `a281' might be used uninitialized in this function simplex-stalin.c:3715: warning: `a282' might be used uninitialized in this function simplex-stalin.c:3716: warning: `a283' might be used uninitialized in this function simplex-stalin.c:3717: warning: `a284' might be used uninitialized in this function simplex-stalin.c:3718: warning: `a285' might be used uninitialized in this function simplex-stalin.c:3719: warning: `a286' might be used uninitialized in this function simplex-stalin.c:3720: warning: `a287' might be used uninitialized in this function simplex-stalin.c:3721: warning: `a288' might be used uninitialized in this function simplex-stalin.c:3722: warning: `a289' might be used uninitialized in this function simplex-stalin.c:3723: warning: `a290' might be used uninitialized in this function simplex-stalin.c:3724: warning: `a291' might be used uninitialized in this function simplex-stalin.c:3725: warning: `a292' might be used uninitialized in this function simplex-stalin.c:3726: warning: `a293' might be used uninitialized in this function simplex-stalin.c:3727: warning: `a294' might be used uninitialized in this function simplex-stalin.c:3728: warning: `a295' might be used uninitialized in this function simplex-stalin.c:3729: warning: `a296' might be used uninitialized in this function simplex-stalin.c:3730: warning: `a297' might be used uninitialized in this function simplex-stalin.c:3731: warning: `a298' might be used uninitialized in this function simplex-stalin.c:3732: warning: `a299' might be used uninitialized in this function simplex-stalin.c:3733: warning: `a300' might be used uninitialized in this function simplex-stalin.c:3734: warning: `a301' might be used uninitialized in this function simplex-stalin.c:3735: warning: `a302' might be used uninitialized in this function simplex-stalin.c:3736: warning: `a303' might be used uninitialized in this function simplex-stalin.c:3737: warning: `a304' might be used uninitialized in this function simplex-stalin.c:3738: warning: `a305' might be used uninitialized in this function simplex-stalin.c:3739: warning: `a306' might be used uninitialized in this function simplex-stalin.c:3740: warning: `a307' might be used uninitialized in this function simplex-stalin.c:3741: warning: `a308' might be used uninitialized in this function simplex-stalin.c:3742: warning: `a309' might be used uninitialized in this function simplex-stalin.c:3743: warning: `a310' might be used uninitialized in this function simplex-stalin.c:3744: warning: `a311' might be used uninitialized in this function simplex-stalin.c:3745: warning: `a312' might be used uninitialized in this function simplex-stalin.c:3746: warning: `a313' might be used uninitialized in this function simplex-stalin.c:3747: warning: `a314' might be used uninitialized in this function simplex-stalin.c:3748: warning: `a315' might be used uninitialized in this function simplex-stalin.c:3749: warning: `a316' might be used uninitialized in this function simplex-stalin.c:3750: warning: `a317' might be used uninitialized in this function simplex-stalin.c:3751: warning: `a318' might be used uninitialized in this function simplex-stalin.c:3752: warning: `a319' might be used uninitialized in this function simplex-stalin.c:3753: warning: `a320' might be used uninitialized in this function simplex-stalin.c:3754: warning: `a321' might be used uninitialized in this function simplex-stalin.c:3755: warning: `a322' might be used uninitialized in this function simplex-stalin.c:3756: warning: `a323' might be used uninitialized in this function simplex-stalin.c:3757: warning: `a324' might be used uninitialized in this function simplex-stalin.c:3758: warning: `a325' might be used uninitialized in this function simplex-stalin.c:3759: warning: `a326' might be used uninitialized in this function simplex-stalin.c:3760: warning: `a327' might be used uninitialized in this function simplex-stalin.c:3761: warning: `a328' might be used uninitialized in this function simplex-stalin.c:3762: warning: `a329' might be used uninitialized in this function simplex-stalin.c:3763: warning: `a330' might be used uninitialized in this function simplex-stalin.c:3764: warning: `a331' might be used uninitialized in this function simplex-stalin.c:3765: warning: `a332' might be used uninitialized in this function simplex-stalin.c:3766: warning: `a333' might be used uninitialized in this function simplex-stalin.c:3767: warning: `a334' might be used uninitialized in this function simplex-stalin.c:3768: warning: `a335' might be used uninitialized in this function simplex-stalin.c:3769: warning: `a336' might be used uninitialized in this function simplex-stalin.c:3770: warning: `a337' might be used uninitialized in this function simplex-stalin.c:3771: warning: `a338' might be used uninitialized in this function simplex-stalin.c:3772: warning: `a339' might be used uninitialized in this function simplex-stalin.c:3773: warning: `a340' might be used uninitialized in this function simplex-stalin.c:3774: warning: `a341' might be used uninitialized in this function simplex-stalin.c:3775: warning: `a342' might be used uninitialized in this function simplex-stalin.c:3776: warning: `a343' might be used uninitialized in this function simplex-stalin.c:3777: warning: `a344' might be used uninitialized in this function simplex-stalin.c:3778: warning: `a345' might be used uninitialized in this function simplex-stalin.c:3779: warning: `a346' might be used uninitialized in this function simplex-stalin.c:3780: warning: `a347' might be used uninitialized in this function simplex-stalin.c:3781: warning: `a348' might be used uninitialized in this function simplex-stalin.c:3782: warning: `a349' might be used uninitialized in this function simplex-stalin.c:3783: warning: `a350' might be used uninitialized in this function simplex-stalin.c:3784: warning: `a351' might be used uninitialized in this function simplex-stalin.c:3785: warning: `a352' might be used uninitialized in this function simplex-stalin.c:3786: warning: `a353' might be used uninitialized in this function simplex-stalin.c:3787: warning: `a354' might be used uninitialized in this function simplex-stalin.c:3788: warning: `a355' might be used uninitialized in this function simplex-stalin.c:3789: warning: `a356' might be used uninitialized in this function simplex-stalin.c:3790: warning: `a357' might be used uninitialized in this function simplex-stalin.c:3791: warning: `a358' might be used uninitialized in this function simplex-stalin.c:3792: warning: `a359' might be used uninitialized in this function simplex-stalin.c:3793: warning: `a360' might be used uninitialized in this function simplex-stalin.c:3794: warning: `a361' might be used uninitialized in this function simplex-stalin.c:3795: warning: `a362' might be used uninitialized in this function simplex-stalin.c:3796: warning: `a363' might be used uninitialized in this function simplex-stalin.c:3797: warning: `a364' might be used uninitialized in this function simplex-stalin.c:3798: warning: `a365' might be used uninitialized in this function simplex-stalin.c:3799: warning: `a366' might be used uninitialized in this function simplex-stalin.c:3800: warning: `a367' might be used uninitialized in this function simplex-stalin.c:3801: warning: `a368' might be used uninitialized in this function simplex-stalin.c:3802: warning: `a369' might be used uninitialized in this function simplex-stalin.c:3803: warning: `a370' might be used uninitialized in this function simplex-stalin.c:3804: warning: `a371' might be used uninitialized in this function simplex-stalin.c:3805: warning: `a372' might be used uninitialized in this function simplex-stalin.c:3806: warning: `a373' might be used uninitialized in this function simplex-stalin.c:3807: warning: `a374' might be used uninitialized in this function simplex-stalin.c:3808: warning: `a375' might be used uninitialized in this function simplex-stalin.c:3809: warning: `a376' might be used uninitialized in this function simplex-stalin.c:3810: warning: `a377' might be used uninitialized in this function simplex-stalin.c:3811: warning: `a378' might be used uninitialized in this function simplex-stalin.c:3812: warning: `a379' might be used uninitialized in this function simplex-stalin.c:3813: warning: `a380' might be used uninitialized in this function simplex-stalin.c:3814: warning: `a381' might be used uninitialized in this function simplex-stalin.c:3815: warning: `a382' might be used uninitialized in this function simplex-stalin.c:3816: warning: `a383' might be used uninitialized in this function simplex-stalin.c:3817: warning: `a384' might be used uninitialized in this function simplex-stalin.c:3818: warning: `a385' might be used uninitialized in this function simplex-stalin.c:3819: warning: `a386' might be used uninitialized in this function simplex-stalin.c:3820: warning: `a387' might be used uninitialized in this function simplex-stalin.c:3821: warning: `a388' might be used uninitialized in this function simplex-stalin.c:3822: warning: `a389' might be used uninitialized in this function simplex-stalin.c:3823: warning: `a390' might be used uninitialized in this function simplex-stalin.c:3824: warning: `a391' might be used uninitialized in this function simplex-stalin.c:3825: warning: `a392' might be used uninitialized in this function simplex-stalin.c:3826: warning: `a393' might be used uninitialized in this function simplex-stalin.c:3827: warning: `a394' might be used uninitialized in this function simplex-stalin.c:3828: warning: `a395' might be used uninitialized in this function simplex-stalin.c:3829: warning: `a396' might be used uninitialized in this function simplex-stalin.c:3830: warning: `a397' might be used uninitialized in this function simplex-stalin.c:3831: warning: `a398' might be used uninitialized in this function simplex-stalin.c:3832: warning: `a399' might be used uninitialized in this function simplex-stalin.c:3833: warning: `a400' might be used uninitialized in this function simplex-stalin.c:3834: warning: `a401' might be used uninitialized in this function simplex-stalin.c:3835: warning: `a402' might be used uninitialized in this function simplex-stalin.c:3836: warning: `a403' might be used uninitialized in this function simplex-stalin.c:3837: warning: `a404' might be used uninitialized in this function simplex-stalin.c:3838: warning: `a405' might be used uninitialized in this function simplex-stalin.c:3839: warning: `a406' might be used uninitialized in this function simplex-stalin.c:3840: warning: `a407' might be used uninitialized in this function simplex-stalin.c:3841: warning: `a408' might be used uninitialized in this function simplex-stalin.c:3842: warning: `a409' might be used uninitialized in this function simplex-stalin.c:3843: warning: `a410' might be used uninitialized in this function simplex-stalin.c:3844: warning: `a411' might be used uninitialized in this function simplex-stalin.c:3845: warning: `a412' might be used uninitialized in this function simplex-stalin.c:3846: warning: `a413' might be used uninitialized in this function simplex-stalin.c:3847: warning: `a414' might be used uninitialized in this function simplex-stalin.c:3848: warning: `a415' might be used uninitialized in this function simplex-stalin.c:3849: warning: `a416' might be used uninitialized in this function simplex-stalin.c:3850: warning: `a417' might be used uninitialized in this function simplex-stalin.c:3851: warning: `a418' might be used uninitialized in this function simplex-stalin.c:3852: warning: `a419' might be used uninitialized in this function simplex-stalin.c:3853: warning: `a420' might be used uninitialized in this function simplex-stalin.c:3854: warning: `a421' might be used uninitialized in this function simplex-stalin.c:3855: warning: `a422' might be used uninitialized in this function simplex-stalin.c:3856: warning: `a423' might be used uninitialized in this function simplex-stalin.c:3857: warning: `a424' might be used uninitialized in this function simplex-stalin.c:3858: warning: `a425' might be used uninitialized in this function simplex-stalin.c:3859: warning: `a426' might be used uninitialized in this function simplex-stalin.c:3860: warning: `a427' might be used uninitialized in this function simplex-stalin.c:3861: warning: `a428' might be used uninitialized in this function simplex-stalin.c:3862: warning: `a429' might be used uninitialized in this function simplex-stalin.c:3863: warning: `a430' might be used uninitialized in this function simplex-stalin.c:3864: warning: `a431' might be used uninitialized in this function simplex-stalin.c:3865: warning: `a432' might be used uninitialized in this function simplex-stalin.c:3866: warning: `a433' might be used uninitialized in this function simplex-stalin.c:3867: warning: `a434' might be used uninitialized in this function simplex-stalin.c:3868: warning: `a435' might be used uninitialized in this function simplex-stalin.c:4082: warning: `a649' might be used uninitialized in this function simplex-stalin.c:4083: warning: `a650' might be used uninitialized in this function simplex-stalin.c:4084: warning: `a651' might be used uninitialized in this function simplex-stalin.c:4085: warning: `a652' might be used uninitialized in this function simplex-stalin.c:4086: warning: `a653' might be used uninitialized in this function simplex-stalin.c:4087: warning: `a654' might be used uninitialized in this function simplex-stalin.c:4088: warning: `a655' might be used uninitialized in this function simplex-stalin.c:4089: warning: `a656' might be used uninitialized in this function simplex-stalin.c:4090: warning: `a657' might be used uninitialized in this function simplex-stalin.c:4091: warning: `a658' might be used uninitialized in this function simplex-stalin.c:4092: warning: `a659' might be used uninitialized in this function simplex-stalin.c:4093: warning: `a660' might be used uninitialized in this function simplex-stalin.c:4094: warning: `a661' might be used uninitialized in this function simplex-stalin.c:4095: warning: `a662' might be used uninitialized in this function simplex-stalin.c:4096: warning: `a663' might be used uninitialized in this function simplex-stalin.c:4097: warning: `a664' might be used uninitialized in this function simplex-stalin.c:4099: warning: `a666' might be used uninitialized in this function simplex-stalin.c:4101: warning: `a668' might be used uninitialized in this function simplex-stalin.c:4108: warning: `a683' might be used uninitialized in this function simplex-stalin.c:4109: warning: `a684' might be used uninitialized in this function simplex-stalin.c:4124: warning: `a699' might be used uninitialized in this function simplex-stalin.c:4125: warning: `a700' might be used uninitialized in this function simplex-stalin.c:4126: warning: `a701' might be used uninitialized in this function simplex-stalin.c:4127: warning: `a702' might be used uninitialized in this function simplex-stalin.c:4128: warning: `a703' might be used uninitialized in this function simplex-stalin.c:4129: warning: `a704' might be used uninitialized in this function simplex-stalin.c:4130: warning: `a705' might be used uninitialized in this function simplex-stalin.c:4131: warning: `a706' might be used uninitialized in this function simplex-stalin.c:4132: warning: `a707' might be used uninitialized in this function simplex-stalin.c:4133: warning: `a708' might be used uninitialized in this function simplex-stalin.c:4135: warning: `a710' might be used uninitialized in this function simplex-stalin.c:4136: warning: `a711' might be used uninitialized in this function simplex-stalin.c:4137: warning: `a712' might be used uninitialized in this function simplex-stalin.c:4138: warning: `a713' might be used uninitialized in this function simplex-stalin.c:4139: warning: `a714' might be used uninitialized in this function simplex-stalin.c:4141: warning: `a716' might be used uninitialized in this function simplex-stalin.c:4143: warning: `a763' might be used uninitialized in this function simplex-stalin.c:4145: warning: `a765' might be used uninitialized in this function simplex-stalin.c:4146: warning: `a766' might be used uninitialized in this function simplex-stalin.c:4148: warning: `a768' might be used uninitialized in this function simplex-stalin.c:4150: warning: `a770' might be used uninitialized in this function simplex-stalin.c:4151: warning: `a771' might be used uninitialized in this function simplex-stalin.c:4152: warning: `a772' might be used uninitialized in this function simplex-stalin.c:4154: warning: `a774' might be used uninitialized in this function simplex-stalin.c:4156: warning: `a776' might be used uninitialized in this function simplex-stalin.c:4157: warning: `a777' might be used uninitialized in this function simplex-stalin.c:4159: warning: `a779' might be used uninitialized in this function simplex-stalin.c:4160: warning: `a780' might be used uninitialized in this function simplex-stalin.c:4161: warning: `a781' might be used uninitialized in this function simplex-stalin.c:4162: warning: `a782' might be used uninitialized in this function simplex-stalin.c:4163: warning: `a783' might be used uninitialized in this function simplex-stalin.c:4164: warning: `a784' might be used uninitialized in this function simplex-stalin.c:4165: warning: `a785' might be used uninitialized in this function simplex-stalin.c:4167: warning: `a787' might be used uninitialized in this function simplex-stalin.c:4169: warning: `a789' might be used uninitialized in this function simplex-stalin.c:4170: warning: `a790' might be used uninitialized in this function simplex-stalin.c:4171: warning: `a791' might be used uninitialized in this function simplex-stalin.c:4173: warning: `a793' might be used uninitialized in this function simplex-stalin.c:4175: warning: `a795' might be used uninitialized in this function simplex-stalin.c:4177: warning: `a797' might be used uninitialized in this function simplex-stalin.c:4179: warning: `a799' might be used uninitialized in this function simplex-stalin.c:4180: warning: `a800' might be used uninitialized in this function simplex-stalin.c:4181: warning: `a801' might be used uninitialized in this function simplex-stalin.c:4183: warning: `a803' might be used uninitialized in this function simplex-stalin.c:4185: warning: `a805' might be used uninitialized in this function simplex-stalin.c:4187: warning: `a807' might be used uninitialized in this function simplex-stalin.c:4189: warning: `a809' might be used uninitialized in this function simplex-stalin.c:4191: warning: `a811' might be used uninitialized in this function simplex-stalin.c:4192: warning: `a812' might be used uninitialized in this function simplex-stalin.c:4194: warning: `a814' might be used uninitialized in this function simplex-stalin.c:4196: warning: `a816' might be used uninitialized in this function simplex-stalin.c:4198: warning: `a818' might be used uninitialized in this function simplex-stalin.c:4200: warning: `a820' might be used uninitialized in this function simplex-stalin.c:4201: warning: `a821' might be used uninitialized in this function simplex-stalin.c:4202: warning: `a822' might be used uninitialized in this function simplex-stalin.c:4204: warning: `a824' might be used uninitialized in this function simplex-stalin.c:4206: warning: `a826' might be used uninitialized in this function simplex-stalin.c:4208: warning: `a828' might be used uninitialized in this function simplex-stalin.c:4213: warning: `a1023' might be used uninitialized in this function simplex-stalin.c:4214: warning: `a1886' might be used uninitialized in this function simplex-stalin.c:4215: warning: `a1887' might be used uninitialized in this function simplex-stalin.c:4219: warning: `a1891' might be used uninitialized in this function simplex-stalin.c:4220: warning: `a1892' might be used uninitialized in this function simplex-stalin.c:4221: warning: `a1893' might be used uninitialized in this function simplex-stalin.c:4222: warning: `a1894' might be used uninitialized in this function simplex-stalin.c:4223: warning: `a1895' might be used uninitialized in this function simplex-stalin.c:4224: warning: `a1896' might be used uninitialized in this function simplex-stalin.c:4225: warning: `a1897' might be used uninitialized in this function simplex-stalin.c:4226: warning: `a1898' might be used uninitialized in this function simplex-stalin.c:4227: warning: `a1899' might be used uninitialized in this function simplex-stalin.c:4228: warning: `a1900' might be used uninitialized in this function simplex-stalin.c:4229: warning: `a1901' might be used uninitialized in this function simplex-stalin.c:4230: warning: `a1902' might be used uninitialized in this function simplex-stalin.c:4231: warning: `a1903' might be used uninitialized in this function simplex-stalin.c:4232: warning: `a1904' might be used uninitialized in this function simplex-stalin.c:4233: warning: `a1905' might be used uninitialized in this function simplex-stalin.c:4234: warning: `a1906' might be used uninitialized in this function simplex-stalin.c:4235: warning: `a1907' might be used uninitialized in this function simplex-stalin.c:4236: warning: `a1908' might be used uninitialized in this function simplex-stalin.c:4237: warning: `a1909' might be used uninitialized in this function simplex-stalin.c:4238: warning: `a1910' might be used uninitialized in this function simplex-stalin.c:4239: warning: `a1911' might be used uninitialized in this function simplex-stalin.c:4240: warning: `a1912' might be used uninitialized in this function simplex-stalin.c:4241: warning: `a1913' might be used uninitialized in this function simplex-stalin.c:4242: warning: `a1914' might be used uninitialized in this function simplex-stalin.c:4243: warning: `a1915' might be used uninitialized in this function simplex-stalin.c:4244: warning: `a1916' might be used uninitialized in this function simplex-stalin.c:4245: warning: `a1917' might be used uninitialized in this function simplex-stalin.c:4246: warning: `a1918' might be used uninitialized in this function simplex-stalin.c:4247: warning: `a1919' might be used uninitialized in this function simplex-stalin.c:4248: warning: `a1920' might be used uninitialized in this function simplex-stalin.c:4249: warning: `a1921' might be used uninitialized in this function simplex-stalin.c:4250: warning: `a1922' might be used uninitialized in this function simplex-stalin.c:4251: warning: `a1923' might be used uninitialized in this function simplex-stalin.c:4252: warning: `a1924' might be used uninitialized in this function simplex-stalin.c:4256: warning: `t853' might be used uninitialized in this function simplex-stalin.c:4257: warning: `t854' might be used uninitialized in this function simplex-stalin.c:4258: warning: `t855' might be used uninitialized in this function simplex-stalin.c:4259: warning: `t856' might be used uninitialized in this function simplex-stalin.c:4260: warning: `t857' might be used uninitialized in this function simplex-stalin.c:4261: warning: `t858' might be used uninitialized in this function simplex-stalin.c:4262: warning: `t859' might be used uninitialized in this function simplex-stalin.c:4263: warning: `t860' might be used uninitialized in this function simplex-stalin.c:4264: warning: `t861' might be used uninitialized in this function simplex-stalin.c:4265: warning: `t862' might be used uninitialized in this function simplex-stalin.c:4266: warning: `t863' might be used uninitialized in this function simplex-stalin.c:4267: warning: `t864' might be used uninitialized in this function simplex-stalin.c:4268: warning: `t865' might be used uninitialized in this function simplex-stalin.c:4269: warning: `t866' might be used uninitialized in this function simplex-stalin.c:4270: warning: `t867' might be used uninitialized in this function simplex-stalin.c:4271: warning: `t868' might be used uninitialized in this function simplex-stalin.c:4272: warning: `t869' might be used uninitialized in this function simplex-stalin.c:4273: warning: `t870' might be used uninitialized in this function simplex-stalin.c:4274: warning: `t871' might be used uninitialized in this function simplex-stalin.c:4275: warning: `t872' might be used uninitialized in this function simplex-stalin.c:4276: warning: `t873' might be used uninitialized in this function simplex-stalin.c:4277: warning: `t874' might be used uninitialized in this function simplex-stalin.c:4278: warning: `t875' might be used uninitialized in this function simplex-stalin.c:4279: warning: `t876' might be used uninitialized in this function simplex-stalin.c:4280: warning: `t877' might be used uninitialized in this function simplex-stalin.c:4281: warning: `t878' might be used uninitialized in this function simplex-stalin.c:4282: warning: `t879' might be used uninitialized in this function simplex-stalin.c:4283: warning: `t880' might be used uninitialized in this function simplex-stalin.c:4284: warning: `t881' might be used uninitialized in this function simplex-stalin.c:4285: warning: `t882' might be used uninitialized in this function simplex-stalin.c:4286: warning: `t883' might be used uninitialized in this function simplex-stalin.c:4287: warning: `t884' might be used uninitialized in this function simplex-stalin.c:4288: warning: `t885' might be used uninitialized in this function simplex-stalin.c:4289: warning: `t886' might be used uninitialized in this function simplex-stalin.c:4290: warning: `t887' might be used uninitialized in this function simplex-stalin.c:4291: warning: `t888' might be used uninitialized in this function simplex-stalin.c:4292: warning: `t889' might be used uninitialized in this function simplex-stalin.c:4293: warning: `t890' might be used uninitialized in this function simplex-stalin.c:4294: warning: `t891' might be used uninitialized in this function simplex-stalin.c:4295: warning: `t892' might be used uninitialized in this function simplex-stalin.c:4296: warning: `t893' might be used uninitialized in this function simplex-stalin.c:4297: warning: `t894' might be used uninitialized in this function simplex-stalin.c:4298: warning: `t895' might be used uninitialized in this function simplex-stalin.c:4299: warning: `t896' might be used uninitialized in this function simplex-stalin.c:4300: warning: `t897' might be used uninitialized in this function simplex-stalin.c:4301: warning: `t898' might be used uninitialized in this function simplex-stalin.c:4302: warning: `t899' might be used uninitialized in this function simplex-stalin.c:4303: warning: `t900' might be used uninitialized in this function simplex-stalin.c:4304: warning: `t901' might be used uninitialized in this function simplex-stalin.c:4305: warning: `t902' might be used uninitialized in this function simplex-stalin.c:4306: warning: `t903' might be used uninitialized in this function simplex-stalin.c:4307: warning: `t904' might be used uninitialized in this function simplex-stalin.c:4308: warning: `t905' might be used uninitialized in this function simplex-stalin.c:4309: warning: `t906' might be used uninitialized in this function simplex-stalin.c:4310: warning: `t907' might be used uninitialized in this function simplex-stalin.c:4311: warning: `t908' might be used uninitialized in this function simplex-stalin.c:4312: warning: `t909' might be used uninitialized in this function simplex-stalin.c:4313: warning: `t910' might be used uninitialized in this function simplex-stalin.c:4314: warning: `t911' might be used uninitialized in this function simplex-stalin.c:4315: warning: `t912' might be used uninitialized in this function simplex-stalin.c:4316: warning: `t913' might be used uninitialized in this function simplex-stalin.c:4317: warning: `t914' might be used uninitialized in this function simplex-stalin.c:4318: warning: `t915' might be used uninitialized in this function simplex-stalin.c:4319: warning: `t916' might be used uninitialized in this function simplex-stalin.c:4320: warning: `t917' might be used uninitialized in this function simplex-stalin.c:4321: warning: `t918' might be used uninitialized in this function simplex-stalin.c:4322: warning: `t919' might be used uninitialized in this function simplex-stalin.c:4323: warning: `t920' might be used uninitialized in this function simplex-stalin.c:4324: warning: `t921' might be used uninitialized in this function simplex-stalin.c:4325: warning: `t922' might be used uninitialized in this function simplex-stalin.c:4326: warning: `t923' might be used uninitialized in this function simplex-stalin.c:4327: warning: `t924' might be used uninitialized in this function simplex-stalin.c:4328: warning: `t925' might be used uninitialized in this function simplex-stalin.c:4329: warning: `t926' might be used uninitialized in this function simplex-stalin.c:4330: warning: `t927' might be used uninitialized in this function simplex-stalin.c:4331: warning: `t928' might be used uninitialized in this function simplex-stalin.c:4332: warning: `t929' might be used uninitialized in this function simplex-stalin.c:4333: warning: `t930' might be used uninitialized in this function simplex-stalin.c:4334: warning: `t931' might be used uninitialized in this function simplex-stalin.c:4335: warning: `t932' might be used uninitialized in this function simplex-stalin.c:4336: warning: `t933' might be used uninitialized in this function simplex-stalin.c:4337: warning: `t934' might be used uninitialized in this function simplex-stalin.c:4338: warning: `t935' might be used uninitialized in this function simplex-stalin.c:4339: warning: `t936' might be used uninitialized in this function simplex-stalin.c:4340: warning: `t937' might be used uninitialized in this function simplex-stalin.c:4341: warning: `t938' might be used uninitialized in this function simplex-stalin.c:4342: warning: `t939' might be used uninitialized in this function simplex-stalin.c:4343: warning: `t940' might be used uninitialized in this function simplex-stalin.c:4344: warning: `t941' might be used uninitialized in this function simplex-stalin.c:4345: warning: `t942' might be used uninitialized in this function simplex-stalin.c:4346: warning: `t943' might be used uninitialized in this function simplex-stalin.c:4347: warning: `t944' might be used uninitialized in this function simplex-stalin.c:4348: warning: `t945' might be used uninitialized in this function simplex-stalin.c:4349: warning: `t946' might be used uninitialized in this function simplex-stalin.c:4350: warning: `t947' might be used uninitialized in this function simplex-stalin.c:4351: warning: `t948' might be used uninitialized in this function simplex-stalin.c:4352: warning: `t949' might be used uninitialized in this function simplex-stalin.c:4353: warning: `t950' might be used uninitialized in this function simplex-stalin.c:4354: warning: `t951' might be used uninitialized in this function simplex-stalin.c:4355: warning: `t952' might be used uninitialized in this function simplex-stalin.c:4356: warning: `t953' might be used uninitialized in this function simplex-stalin.c:4357: warning: `t954' might be used uninitialized in this function simplex-stalin.c:4358: warning: `t955' might be used uninitialized in this function simplex-stalin.c:4359: warning: `t956' might be used uninitialized in this function simplex-stalin.c:4360: warning: `t957' might be used uninitialized in this function simplex-stalin.c:4361: warning: `t958' might be used uninitialized in this function simplex-stalin.c:4362: warning: `t959' might be used uninitialized in this function simplex-stalin.c:4363: warning: `t960' might be used uninitialized in this function simplex-stalin.c:4364: warning: `t961' might be used uninitialized in this function simplex-stalin.c:4365: warning: `t962' might be used uninitialized in this function simplex-stalin.c:4366: warning: `t963' might be used uninitialized in this function simplex-stalin.c:4367: warning: `t964' might be used uninitialized in this function simplex-stalin.c:4368: warning: `t965' might be used uninitialized in this function simplex-stalin.c:4369: warning: `t966' might be used uninitialized in this function simplex-stalin.c:4370: warning: `t967' might be used uninitialized in this function simplex-stalin.c:4371: warning: `t968' might be used uninitialized in this function simplex-stalin.c:4372: warning: `t969' might be used uninitialized in this function simplex-stalin.c:4373: warning: `t970' might be used uninitialized in this function simplex-stalin.c:4374: warning: `t971' might be used uninitialized in this function simplex-stalin.c:4375: warning: `t972' might be used uninitialized in this function simplex-stalin.c:4377: warning: `t974' might be used uninitialized in this function simplex-stalin.c:4378: warning: `t975' might be used uninitialized in this function simplex-stalin.c:4379: warning: `t976' might be used uninitialized in this function simplex-stalin.c:4380: warning: `t977' might be used uninitialized in this function simplex-stalin.c:4381: warning: `t978' might be used uninitialized in this function simplex-stalin.c:4382: warning: `t979' might be used uninitialized in this function simplex-stalin.c:4383: warning: `t980' might be used uninitialized in this function simplex-stalin.c:4384: warning: `t981' might be used uninitialized in this function simplex-stalin.c:4385: warning: `t982' might be used uninitialized in this function simplex-stalin.c:4386: warning: `t983' might be used uninitialized in this function simplex-stalin.c:4387: warning: `t984' might be used uninitialized in this function simplex-stalin.c:4388: warning: `t985' might be used uninitialized in this function simplex-stalin.c:4389: warning: `t986' might be used uninitialized in this function simplex-stalin.c:4390: warning: `t987' might be used uninitialized in this function simplex-stalin.c:4391: warning: `t988' might be used uninitialized in this function simplex-stalin.c:4392: warning: `t989' might be used uninitialized in this function simplex-stalin.c:4393: warning: `t990' might be used uninitialized in this function simplex-stalin.c:4394: warning: `t991' might be used uninitialized in this function simplex-stalin.c:4395: warning: `t992' might be used uninitialized in this function simplex-stalin.c:4396: warning: `t993' might be used uninitialized in this function simplex-stalin.c:4397: warning: `t994' might be used uninitialized in this function simplex-stalin.c:4398: warning: `t995' might be used uninitialized in this function simplex-stalin.c:4399: warning: `t996' might be used uninitialized in this function simplex-stalin.c:4400: warning: `t997' might be used uninitialized in this function simplex-stalin.c:4401: warning: `t998' might be used uninitialized in this function simplex-stalin.c:4402: warning: `t999' might be used uninitialized in this function simplex-stalin.c:4403: warning: `t1000' might be used uninitialized in this function simplex-stalin.c:4404: warning: `t1001' might be used uninitialized in this function simplex-stalin.c:4405: warning: `t1002' might be used uninitialized in this function simplex-stalin.c:4406: warning: `t1003' might be used uninitialized in this function simplex-stalin.c:4407: warning: `t1004' might be used uninitialized in this function simplex-stalin.c:4408: warning: `t1005' might be used uninitialized in this function simplex-stalin.c:4409: warning: `t1006' might be used uninitialized in this function simplex-stalin.c:4410: warning: `t1007' might be used uninitialized in this function simplex-stalin.c:4411: warning: `t1008' might be used uninitialized in this function simplex-stalin.c:4412: warning: `t1009' might be used uninitialized in this function simplex-stalin.c:4413: warning: `t1010' might be used uninitialized in this function simplex-stalin.c:4414: warning: `t1011' might be used uninitialized in this function simplex-stalin.c:4415: warning: `t1012' might be used uninitialized in this function simplex-stalin.c:4416: warning: `t1013' might be used uninitialized in this function simplex-stalin.c:4417: warning: `t1014' might be used uninitialized in this function simplex-stalin.c:4418: warning: `t1015' might be used uninitialized in this function simplex-stalin.c:4419: warning: `t1016' might be used uninitialized in this function simplex-stalin.c:4420: warning: `t1017' might be used uninitialized in this function simplex-stalin.c:4421: warning: `t1018' might be used uninitialized in this function simplex-stalin.c:4422: warning: `t1019' might be used uninitialized in this function simplex-stalin.c:4423: warning: `t1020' might be used uninitialized in this function simplex-stalin.c:4424: warning: `t1021' might be used uninitialized in this function simplex-stalin.c:4425: warning: `t1022' might be used uninitialized in this function simplex-stalin.c:4426: warning: `t1023' might be used uninitialized in this function simplex-stalin.c:4428: warning: `t1025' might be used uninitialized in this function simplex-stalin.c:4429: warning: `t1026' might be used uninitialized in this function simplex-stalin.c:4430: warning: `t1027' might be used uninitialized in this function simplex-stalin.c:4431: warning: `t1028' might be used uninitialized in this function simplex-stalin.c:4432: warning: `t1029' might be used uninitialized in this function simplex-stalin.c:4433: warning: `t1030' might be used uninitialized in this function simplex-stalin.c:4434: warning: `t1031' might be used uninitialized in this function simplex-stalin.c:4435: warning: `t1032' might be used uninitialized in this function simplex-stalin.c:4436: warning: `t1033' might be used uninitialized in this function simplex-stalin.c:4437: warning: `t1034' might be used uninitialized in this function simplex-stalin.c:4438: warning: `t1035' might be used uninitialized in this function simplex-stalin.c:4439: warning: `t1036' might be used uninitialized in this function simplex-stalin.c:4440: warning: `t1037' might be used uninitialized in this function simplex-stalin.c:4441: warning: `t1038' might be used uninitialized in this function simplex-stalin.c:4442: warning: `t1039' might be used uninitialized in this function simplex-stalin.c:4443: warning: `t1040' might be used uninitialized in this function simplex-stalin.c:4444: warning: `t1041' might be used uninitialized in this function simplex-stalin.c:4445: warning: `t1042' might be used uninitialized in this function simplex-stalin.c:4446: warning: `t1043' might be used uninitialized in this function simplex-stalin.c:4447: warning: `t1044' might be used uninitialized in this function simplex-stalin.c:4448: warning: `t1045' might be used uninitialized in this function simplex-stalin.c:4449: warning: `t1046' might be used uninitialized in this function simplex-stalin.c:4450: warning: `t1047' might be used uninitialized in this function simplex-stalin.c:4451: warning: `t1048' might be used uninitialized in this function simplex-stalin.c:4452: warning: `t1049' might be used uninitialized in this function simplex-stalin.c:4453: warning: `t1050' might be used uninitialized in this function simplex-stalin.c:4454: warning: `t1051' might be used uninitialized in this function simplex-stalin.c:4455: warning: `t1052' might be used uninitialized in this function simplex-stalin.c:4456: warning: `t1053' might be used uninitialized in this function simplex-stalin.c:4457: warning: `t1054' might be used uninitialized in this function simplex-stalin.c:4458: warning: `t1055' might be used uninitialized in this function simplex-stalin.c:4459: warning: `t1056' might be used uninitialized in this function simplex-stalin.c:4460: warning: `t1057' might be used uninitialized in this function simplex-stalin.c:4461: warning: `t1058' might be used uninitialized in this function simplex-stalin.c:4462: warning: `t1059' might be used uninitialized in this function simplex-stalin.c:4463: warning: `t1060' might be used uninitialized in this function simplex-stalin.c:4464: warning: `t1061' might be used uninitialized in this function simplex-stalin.c:4465: warning: `t1062' might be used uninitialized in this function simplex-stalin.c:4466: warning: `t1063' might be used uninitialized in this function simplex-stalin.c:4467: warning: `t1064' might be used uninitialized in this function simplex-stalin.c:4468: warning: `t1065' might be used uninitialized in this function simplex-stalin.c:4485: warning: `t1103' might be used uninitialized in this function simplex-stalin.c:4527: warning: `t1162' might be used uninitialized in this function simplex-stalin.c:4528: warning: `t1163' might be used uninitialized in this function simplex-stalin.c:5104: warning: `t1942' might be used uninitialized in this function simplex-stalin.c:5105: warning: `t1943' might be used uninitialized in this function simplex-stalin.c:5106: warning: `t1944' might be used uninitialized in this function 36.11user 0.63system 0:42.77elapsed 85%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32911major+234861minor)pagefaults 0swaps compile em-functional (STATIC-COUNTS 3628 3628 3628 3628 0 0 0 3628 3458 2097 437 1071 59 212 1.770054945054945 6505 6505 642 440) em-functional-stalin.c: In function `f1790': em-functional-stalin.c:12281: warning: `a2319' might be used uninitialized in this function em-functional-stalin.c:12283: warning: `a2321' might be used uninitialized in this function em-functional-stalin.c:12287: warning: `a2325' might be used uninitialized in this function em-functional-stalin.c:12290: warning: `a2341' might be used uninitialized in this function em-functional-stalin.c:12292: warning: `a2343' might be used uninitialized in this function em-functional-stalin.c:12294: warning: `a2345' might be used uninitialized in this function em-functional-stalin.c:12295: warning: `a2346' might be used uninitialized in this function em-functional-stalin.c:12296: warning: `a2347' might be used uninitialized in this function em-functional-stalin.c:12297: warning: `a2348' might be used uninitialized in this function em-functional-stalin.c:12298: warning: `a2349' might be used uninitialized in this function em-functional-stalin.c:12299: warning: `a2350' might be used uninitialized in this function em-functional-stalin.c:12300: warning: `a2351' might be used uninitialized in this function em-functional-stalin.c:12301: warning: `a2352' might be used uninitialized in this function em-functional-stalin.c:12302: warning: `a2353' might be used uninitialized in this function em-functional-stalin.c:12304: warning: `a2355' might be used uninitialized in this function em-functional-stalin.c:12306: warning: `a2357' might be used uninitialized in this function em-functional-stalin.c:12307: warning: `a2358' might be used uninitialized in this function em-functional-stalin.c: In function `f1752': em-functional-stalin.c:13263: warning: `a2306' might be used uninitialized in this function em-functional-stalin.c:13264: warning: `a2307' might be used uninitialized in this function em-functional-stalin.c:13265: warning: `a2308' might be used uninitialized in this function em-functional-stalin.c:13266: warning: `a2309' might be used uninitialized in this function em-functional-stalin.c:13268: warning: `a2311' might be used uninitialized in this function em-functional-stalin.c:13272: warning: `a2315' might be used uninitialized in this function em-functional-stalin.c: In function `f1723': em-functional-stalin.c:13714: warning: `a2283' might be used uninitialized in this function em-functional-stalin.c:13718: warning: `a2287' might be used uninitialized in this function em-functional-stalin.c:13720: warning: `a2289' might be used uninitialized in this function em-functional-stalin.c:13721: warning: `a2290' might be used uninitialized in this function em-functional-stalin.c:13722: warning: `a2291' might be used uninitialized in this function em-functional-stalin.c:13724: warning: `a2293' might be used uninitialized in this function em-functional-stalin.c:13728: warning: `a2297' might be used uninitialized in this function em-functional-stalin.c:13730: warning: `a2299' might be used uninitialized in this function em-functional-stalin.c:13731: warning: `a2300' might be used uninitialized in this function em-functional-stalin.c: In function `f1714': em-functional-stalin.c:14262: warning: `a2277' might be used uninitialized in this function em-functional-stalin.c:14264: warning: `a2279' might be used uninitialized in this function em-functional-stalin.c: In function `f779': em-functional-stalin.c:14493: warning: unused variable `e780' em-functional-stalin.c:14481: warning: unused variable `a1467' em-functional-stalin.c: In function `f620': em-functional-stalin.c:14520: warning: `a2808' might be used uninitialized in this function em-functional-stalin.c:14521: warning: `a2809' might be used uninitialized in this function em-functional-stalin.c: In function `f331': em-functional-stalin.c:17610: warning: unused variable `e2981' em-functional-stalin.c:17365: warning: unused variable `e103' em-functional-stalin.c:14981: warning: unused variable `a3209' em-functional-stalin.c:14632: warning: unused variable `a876' em-functional-stalin.c:14624: warning: `a835' might be used uninitialized in this function em-functional-stalin.c:14626: warning: `a837' might be used uninitialized in this function em-functional-stalin.c:14630: warning: `a874' might be used uninitialized in this function em-functional-stalin.c:14636: warning: `a880' might be used uninitialized in this function em-functional-stalin.c:14658: warning: `a1029' might be used uninitialized in this function em-functional-stalin.c:14665: warning: `a1036' might be used uninitialized in this function em-functional-stalin.c:14666: warning: `a1037' might be used uninitialized in this function em-functional-stalin.c:14667: warning: `a1038' might be used uninitialized in this function em-functional-stalin.c:14669: warning: `a1040' might be used uninitialized in this function em-functional-stalin.c:14670: warning: `a1041' might be used uninitialized in this function em-functional-stalin.c:14672: warning: `a1043' might be used uninitialized in this function em-functional-stalin.c:14674: warning: `a1045' might be used uninitialized in this function em-functional-stalin.c:14676: warning: `a1047' might be used uninitialized in this function em-functional-stalin.c:14677: warning: `a1048' might be used uninitialized in this function em-functional-stalin.c:14689: warning: `a1060' might be used uninitialized in this function em-functional-stalin.c:14690: warning: `a1061' might be used uninitialized in this function em-functional-stalin.c:14691: warning: `a1062' might be used uninitialized in this function em-functional-stalin.c:14692: warning: `a1063' might be used uninitialized in this function em-functional-stalin.c:14693: warning: `a1064' might be used uninitialized in this function em-functional-stalin.c:14694: warning: `a1065' might be used uninitialized in this function em-functional-stalin.c:14695: warning: `a1066' might be used uninitialized in this function em-functional-stalin.c:14697: warning: `a1068' might be used uninitialized in this function em-functional-stalin.c:14700: warning: `a1079' might be used uninitialized in this function em-functional-stalin.c:14701: warning: `a1080' might be used uninitialized in this function em-functional-stalin.c:14708: warning: `a1087' might be used uninitialized in this function em-functional-stalin.c:14709: warning: `a1088' might be used uninitialized in this function em-functional-stalin.c:14710: warning: `a1089' might be used uninitialized in this function em-functional-stalin.c:14713: warning: `a1092' might be used uninitialized in this function em-functional-stalin.c:14716: warning: `a1095' might be used uninitialized in this function em-functional-stalin.c:14723: warning: `a1102' might be used uninitialized in this function em-functional-stalin.c:14821: warning: `a2815' might be used uninitialized in this function em-functional-stalin.c:14823: warning: `a2817' might be used uninitialized in this function em-functional-stalin.c:14827: warning: `a2887' might be used uninitialized in this function em-functional-stalin.c:14829: warning: `a2889' might be used uninitialized in this function em-functional-stalin.c:14833: warning: `a2893' might be used uninitialized in this function em-functional-stalin.c:14835: warning: `a2895' might be used uninitialized in this function em-functional-stalin.c:14839: warning: `a2899' might be used uninitialized in this function em-functional-stalin.c:14841: warning: `a2901' might be used uninitialized in this function em-functional-stalin.c:14845: warning: `a2905' might be used uninitialized in this function em-functional-stalin.c:14847: warning: `a2907' might be used uninitialized in this function em-functional-stalin.c:14851: warning: `a2911' might be used uninitialized in this function em-functional-stalin.c:14853: warning: `a2913' might be used uninitialized in this function em-functional-stalin.c:14857: warning: `a2917' might be used uninitialized in this function em-functional-stalin.c:14859: warning: `a2919' might be used uninitialized in this function em-functional-stalin.c:14863: warning: `a2923' might be used uninitialized in this function em-functional-stalin.c:14865: warning: `a2925' might be used uninitialized in this function em-functional-stalin.c:14869: warning: `a2981' might be used uninitialized in this function em-functional-stalin.c:14874: warning: `a2986' might be used uninitialized in this function em-functional-stalin.c:14879: warning: `a2991' might be used uninitialized in this function em-functional-stalin.c:14884: warning: `a2996' might be used uninitialized in this function em-functional-stalin.c:14889: warning: `a3001' might be used uninitialized in this function em-functional-stalin.c:14894: warning: `a3006' might be used uninitialized in this function em-functional-stalin.c:14899: warning: `a3016' might be used uninitialized in this function em-functional-stalin.c:14909: warning: `a3038' might be used uninitialized in this function em-functional-stalin.c:14915: warning: `a3044' might be used uninitialized in this function em-functional-stalin.c:14921: warning: `a3056' might be used uninitialized in this function em-functional-stalin.c:14927: warning: `a3068' might be used uninitialized in this function em-functional-stalin.c:14934: warning: `a3091' might be used uninitialized in this function em-functional-stalin.c:14942: warning: `a3099' might be used uninitialized in this function em-functional-stalin.c:14950: warning: `a3107' might be used uninitialized in this function em-functional-stalin.c:14963: warning: `a3154' might be used uninitialized in this function em-functional-stalin.c:14965: warning: `a3156' might be used uninitialized in this function em-functional-stalin.c:14967: warning: `a3158' might be used uninitialized in this function em-functional-stalin.c:14979: warning: `a3207' might be used uninitialized in this function em-functional-stalin.c:14985: warning: `a3213' might be used uninitialized in this function em-functional-stalin.c:14990: warning: `a3246' might be used uninitialized in this function em-functional-stalin.c:14996: warning: `a3252' might be used uninitialized in this function em-functional-stalin.c:14998: warning: `a3254' might be used uninitialized in this function em-functional-stalin.c:15005: warning: `a3261' might be used uninitialized in this function em-functional-stalin.c:15010: warning: `a3266' might be used uninitialized in this function em-functional-stalin.c:15012: warning: `a3268' might be used uninitialized in this function em-functional-stalin.c:15016: warning: `a3283' might be used uninitialized in this function em-functional-stalin.c:15018: warning: `a3285' might be used uninitialized in this function em-functional-stalin.c:15022: warning: `a3289' might be used uninitialized in this function em-functional-stalin.c:15024: warning: `a3291' might be used uninitialized in this function em-functional-stalin.c:15028: warning: `a3307' might be used uninitialized in this function em-functional-stalin.c:15033: warning: `a3312' might be used uninitialized in this function em-functional-stalin.c:15035: warning: `a3314' might be used uninitialized in this function em-functional-stalin.c:15039: warning: `a3318' might be used uninitialized in this function em-functional-stalin.c:15044: warning: `a3323' might be used uninitialized in this function em-functional-stalin.c:15046: warning: `a3325' might be used uninitialized in this function em-functional-stalin.c:15049: warning: `a3328' might be used uninitialized in this function em-functional-stalin.c:15055: warning: `a3334' might be used uninitialized in this function em-functional-stalin.c:15060: warning: `a3339' might be used uninitialized in this function em-functional-stalin.c:15062: warning: `a3341' might be used uninitialized in this function em-functional-stalin.c:15066: warning: `a3345' might be used uninitialized in this function em-functional-stalin.c:15071: warning: `a3350' might be used uninitialized in this function em-functional-stalin.c:15073: warning: `a3352' might be used uninitialized in this function em-functional-stalin.c:15077: warning: `a3356' might be used uninitialized in this function em-functional-stalin.c:15079: warning: `a3358' might be used uninitialized in this function em-functional-stalin.c:15083: warning: `a3362' might be used uninitialized in this function em-functional-stalin.c:15085: warning: `a3364' might be used uninitialized in this function em-functional-stalin.c:15089: warning: `a3368' might be used uninitialized in this function em-functional-stalin.c:15091: warning: `a3370' might be used uninitialized in this function em-functional-stalin.c:15095: warning: `a3374' might be used uninitialized in this function em-functional-stalin.c:15097: warning: `a3376' might be used uninitialized in this function em-functional-stalin.c:15101: warning: `a3380' might be used uninitialized in this function em-functional-stalin.c:15103: warning: `a3382' might be used uninitialized in this function em-functional-stalin.c:15108: warning: `a3387' might be used uninitialized in this function em-functional-stalin.c:15110: warning: `a3389' might be used uninitialized in this function em-functional-stalin.c:15112: warning: `a3391' might be used uninitialized in this function em-functional-stalin.c:15116: warning: `a3395' might be used uninitialized in this function em-functional-stalin.c:15118: warning: `a3397' might be used uninitialized in this function em-functional-stalin.c:15122: warning: `a3401' might be used uninitialized in this function em-functional-stalin.c:15123: warning: `a3402' might be used uninitialized in this function em-functional-stalin.c:15131: warning: `a3410' might be used uninitialized in this function em-functional-stalin.c:15133: warning: `a3412' might be used uninitialized in this function em-functional-stalin.c:15135: warning: `a3414' might be used uninitialized in this function em-functional-stalin.c:15144: warning: `a3423' might be used uninitialized in this function em-functional-stalin.c:15149: warning: `a3428' might be used uninitialized in this function em-functional-stalin.c:15151: warning: `a3430' might be used uninitialized in this function em-functional-stalin.c:15155: warning: `a3434' might be used uninitialized in this function em-functional-stalin.c:15160: warning: `a3439' might be used uninitialized in this function em-functional-stalin.c:15162: warning: `a3441' might be used uninitialized in this function em-functional-stalin.c:15169: warning: `a3448' might be used uninitialized in this function em-functional-stalin.c:15174: warning: `a3453' might be used uninitialized in this function em-functional-stalin.c:15176: warning: `a3455' might be used uninitialized in this function em-functional-stalin.c:15179: warning: `a3458' might be used uninitialized in this function em-functional-stalin.c:15187: warning: `a3466' might be used uninitialized in this function em-functional-stalin.c:15192: warning: `a3471' might be used uninitialized in this function em-functional-stalin.c:15199: warning: `a3478' might be used uninitialized in this function em-functional-stalin.c:15201: warning: `a3480' might be used uninitialized in this function em-functional-stalin.c:15203: warning: `a3482' might be used uninitialized in this function em-functional-stalin.c:15208: warning: `a3487' might be used uninitialized in this function em-functional-stalin.c:15210: warning: `a3489' might be used uninitialized in this function em-functional-stalin.c:15212: warning: `a3491' might be used uninitialized in this function em-functional-stalin.c:15216: warning: `a3495' might be used uninitialized in this function em-functional-stalin.c:15218: warning: `a3497' might be used uninitialized in this function em-functional-stalin.c:15222: warning: `a3501' might be used uninitialized in this function em-functional-stalin.c:15224: warning: `a3503' might be used uninitialized in this function em-functional-stalin.c:15229: warning: `a3508' might be used uninitialized in this function em-functional-stalin.c:15234: warning: `a3513' might be used uninitialized in this function em-functional-stalin.c:15236: warning: `a3515' might be used uninitialized in this function em-functional-stalin.c:15239: warning: `a3518' might be used uninitialized in this function em-functional-stalin.c:15247: warning: `a3526' might be used uninitialized in this function em-functional-stalin.c:15252: warning: `a3531' might be used uninitialized in this function em-functional-stalin.c: In function `f323': em-functional-stalin.c:31302: warning: `a848' might be used uninitialized in this function em-functional-stalin.c:31308: warning: `a854' might be used uninitialized in this function em-functional-stalin.c:31315: warning: `a868' might be used uninitialized in this function em-functional-stalin.c:31348: warning: `a2798' might be used uninitialized in this function em-functional-stalin.c:31354: warning: `a2929' might be used uninitialized in this function em-functional-stalin.c:31356: warning: `a2931' might be used uninitialized in this function em-functional-stalin.c:31360: warning: `a2935' might be used uninitialized in this function em-functional-stalin.c:31362: warning: `a2937' might be used uninitialized in this function em-functional-stalin.c:31366: warning: `a2941' might be used uninitialized in this function em-functional-stalin.c:31371: warning: `a2946' might be used uninitialized in this function em-functional-stalin.c:31376: warning: `a2951' might be used uninitialized in this function em-functional-stalin.c:31381: warning: `a2956' might be used uninitialized in this function em-functional-stalin.c:31386: warning: `a2961' might be used uninitialized in this function em-functional-stalin.c:31392: warning: `a3032' might be used uninitialized in this function em-functional-stalin.c:31399: warning: `a3075' might be used uninitialized in this function em-functional-stalin.c:31407: warning: `a3083' might be used uninitialized in this function em-functional-stalin.c:31415: warning: `a3138' might be used uninitialized in this function em-functional-stalin.c:31417: warning: `a3140' might be used uninitialized in this function em-functional-stalin.c:31419: warning: `a3142' might be used uninitialized in this function em-functional-stalin.c:31423: warning: `a3555' might be used uninitialized in this function em-functional-stalin.c:31425: warning: `a3557' might be used uninitialized in this function em-functional-stalin.c:31429: warning: `a3561' might be used uninitialized in this function em-functional-stalin.c:31431: warning: `a3563' might be used uninitialized in this function em-functional-stalin.c:31435: warning: `a3567' might be used uninitialized in this function em-functional-stalin.c:31437: warning: `a3569' might be used uninitialized in this function em-functional-stalin.c:31442: warning: `a3574' might be used uninitialized in this function em-functional-stalin.c:31447: warning: `a3579' might be used uninitialized in this function em-functional-stalin.c:31449: warning: `a3581' might be used uninitialized in this function em-functional-stalin.c:31452: warning: `a3584' might be used uninitialized in this function em-functional-stalin.c:31460: warning: `a3592' might be used uninitialized in this function em-functional-stalin.c:31465: warning: `a3597' might be used uninitialized in this function em-functional-stalin.c:31471: warning: `a3603' might be used uninitialized in this function em-functional-stalin.c:31473: warning: `a3605' might be used uninitialized in this function em-functional-stalin.c:31476: warning: `a3608' might be used uninitialized in this function em-functional-stalin.c:31481: warning: `a3613' might be used uninitialized in this function em-functional-stalin.c:31487: warning: `a3619' might be used uninitialized in this function em-functional-stalin.c:31489: warning: `a3621' might be used uninitialized in this function em-functional-stalin.c:31493: warning: `a3625' might be used uninitialized in this function em-functional-stalin.c:31495: warning: `a3627' might be used uninitialized in this function em-functional-stalin.c: In function `f281': em-functional-stalin.c:36134: warning: `a1076' might be used uninitialized in this function em-functional-stalin.c: In function `f206': em-functional-stalin.c:36317: warning: `a999' might be used uninitialized in this function em-functional-stalin.c:36321: warning: `a1003' might be used uninitialized in this function em-functional-stalin.c:36322: warning: `a1004' might be used uninitialized in this function em-functional-stalin.c:36323: warning: `a1005' might be used uninitialized in this function em-functional-stalin.c:36328: warning: `a1010' might be used uninitialized in this function em-functional-stalin.c:36330: warning: `a1012' might be used uninitialized in this function em-functional-stalin.c:36334: warning: `a1016' might be used uninitialized in this function em-functional-stalin.c:36336: warning: `a1018' might be used uninitialized in this function em-functional-stalin.c:36338: warning: `a1020' might be used uninitialized in this function em-functional-stalin.c:36340: warning: `a1022' might be used uninitialized in this function em-functional-stalin.c:36341: warning: `a1023' might be used uninitialized in this function em-functional-stalin.c:36343: warning: `a1025' might be used uninitialized in this function em-functional-stalin.c:36345: warning: `a1027' might be used uninitialized in this function em-functional-stalin.c:36408: warning: `a2821' might be used uninitialized in this function em-functional-stalin.c:36410: warning: `a2823' might be used uninitialized in this function em-functional-stalin.c:36414: warning: `a2827' might be used uninitialized in this function em-functional-stalin.c:36416: warning: `a2829' might be used uninitialized in this function em-functional-stalin.c:36420: warning: `a2833' might be used uninitialized in this function em-functional-stalin.c:36422: warning: `a2835' might be used uninitialized in this function em-functional-stalin.c:36426: warning: `a2839' might be used uninitialized in this function em-functional-stalin.c:36428: warning: `a2841' might be used uninitialized in this function em-functional-stalin.c:36432: warning: `a2845' might be used uninitialized in this function em-functional-stalin.c:36434: warning: `a2847' might be used uninitialized in this function em-functional-stalin.c:36438: warning: `a2851' might be used uninitialized in this function em-functional-stalin.c:36440: warning: `a2853' might be used uninitialized in this function em-functional-stalin.c:36444: warning: `a2857' might be used uninitialized in this function em-functional-stalin.c:36446: warning: `a2859' might be used uninitialized in this function em-functional-stalin.c:36450: warning: `a2863' might be used uninitialized in this function em-functional-stalin.c:36452: warning: `a2865' might be used uninitialized in this function em-functional-stalin.c:36760: warning: `t4766' might be used uninitialized in this function em-functional-stalin.c: In function `f177': em-functional-stalin.c:39110: warning: `a842' might be used uninitialized in this function em-functional-stalin.c:39112: warning: `a844' might be used uninitialized in this function em-functional-stalin.c:39113: warning: `a970' might be used uninitialized in this function em-functional-stalin.c:39118: warning: `a975' might be used uninitialized in this function em-functional-stalin.c:39119: warning: `a976' might be used uninitialized in this function em-functional-stalin.c:39125: warning: `a982' might be used uninitialized in this function em-functional-stalin.c:39126: warning: `a983' might be used uninitialized in this function em-functional-stalin.c:39127: warning: `a984' might be used uninitialized in this function em-functional-stalin.c:39129: warning: `a986' might be used uninitialized in this function em-functional-stalin.c:39130: warning: `a987' might be used uninitialized in this function em-functional-stalin.c:39137: warning: `a994' might be used uninitialized in this function em-functional-stalin.c:39139: warning: `a996' might be used uninitialized in this function em-functional-stalin.c:39140: warning: `a997' might be used uninitialized in this function em-functional-stalin.c:39185: warning: `a2869' might be used uninitialized in this function em-functional-stalin.c:39187: warning: `a2871' might be used uninitialized in this function em-functional-stalin.c:39191: warning: `a2875' might be used uninitialized in this function em-functional-stalin.c:39193: warning: `a2877' might be used uninitialized in this function em-functional-stalin.c:39197: warning: `a2881' might be used uninitialized in this function em-functional-stalin.c:39199: warning: `a2883' might be used uninitialized in this function em-functional-stalin.c:39204: warning: `a3187' might be used uninitialized in this function em-functional-stalin.c:39206: warning: `a3189' might be used uninitialized in this function em-functional-stalin.c:39211: warning: `a3194' might be used uninitialized in this function em-functional-stalin.c:39213: warning: `a3196' might be used uninitialized in this function em-functional-stalin.c:39218: warning: `a3201' might be used uninitialized in this function em-functional-stalin.c:39220: warning: `a3203' might be used uninitialized in this function em-functional-stalin.c:39223: warning: `t4892' might be used uninitialized in this function em-functional-stalin.c: In function `f160': em-functional-stalin.c:41448: warning: `a3011' might be used uninitialized in this function em-functional-stalin.c:41453: warning: `a3241' might be used uninitialized in this function em-functional-stalin.c:41455: warning: `a3243' might be used uninitialized in this function em-functional-stalin.c: In function `f153': em-functional-stalin.c:41713: warning: `a3146' might be used uninitialized in this function em-functional-stalin.c:41715: warning: `a3148' might be used uninitialized in this function em-functional-stalin.c:41717: warning: `a3150' might be used uninitialized in this function em-functional-stalin.c:41739: warning: `t5384' might be used uninitialized in this function em-functional-stalin.c: In function `f151': em-functional-stalin.c:41928: warning: `a3130' might be used uninitialized in this function em-functional-stalin.c:41930: warning: `a3132' might be used uninitialized in this function em-functional-stalin.c:41932: warning: `a3134' might be used uninitialized in this function em-functional-stalin.c:41954: warning: `t5422' might be used uninitialized in this function em-functional-stalin.c: In function `f112': em-functional-stalin.c:42137: warning: `a3050' might be used uninitialized in this function em-functional-stalin.c:42142: warning: `a3295' might be used uninitialized in this function em-functional-stalin.c:42144: warning: `a3297' might be used uninitialized in this function em-functional-stalin.c:42148: warning: `a3301' might be used uninitialized in this function em-functional-stalin.c:42149: warning: `a3302' might be used uninitialized in this function em-functional-stalin.c: In function `f111': em-functional-stalin.c:42508: warning: `a3062' might be used uninitialized in this function em-functional-stalin.c:42513: warning: `a3272' might be used uninitialized in this function em-functional-stalin.c:42515: warning: `a3274' might be used uninitialized in this function em-functional-stalin.c:42518: warning: `a3277' might be used uninitialized in this function em-functional-stalin.c: In function `f38': em-functional-stalin.c:42897: warning: `a821' might be used uninitialized in this function em-functional-stalin.c:42898: warning: `a822' might be used uninitialized in this function em-functional-stalin.c: In function `f15': em-functional-stalin.c:43217: warning: unused variable `p871' em-functional-stalin.c:43214: warning: unused variable `p865' em-functional-stalin.c:43203: warning: unused variable `e871' em-functional-stalin.c:43198: warning: unused variable `e865' em-functional-stalin.c:43118: warning: unused variable `a1567' em-functional-stalin.c:43109: warning: unused variable `a1558' em-functional-stalin.c:43097: warning: `a802' might be used uninitialized in this function em-functional-stalin.c:43098: warning: `a803' might be used uninitialized in this function em-functional-stalin.c:43103: warning: `a1552' might be used uninitialized in this function em-functional-stalin.c:43105: warning: `a1554' might be used uninitialized in this function em-functional-stalin.c:43108: warning: `a1557' might be used uninitialized in this function em-functional-stalin.c:43112: warning: `a1561' might be used uninitialized in this function em-functional-stalin.c:43114: warning: `a1563' might be used uninitialized in this function em-functional-stalin.c:43117: warning: `a1566' might be used uninitialized in this function em-functional-stalin.c:43123: warning: `a1822' might be used uninitialized in this function em-functional-stalin.c: In function `f0': em-functional-stalin.c:46128: warning: unused variable `e452' em-functional-stalin.c:46127: warning: unused variable `e451' em-functional-stalin.c:46126: warning: unused variable `e450' em-functional-stalin.c:46104: warning: unused variable `e349' em-functional-stalin.c:46103: warning: unused variable `e348' em-functional-stalin.c:44478: warning: unused variable `a1184' em-functional-stalin.c:44477: warning: unused variable `a1183' em-functional-stalin.c:44476: warning: unused variable `a1182' em-functional-stalin.c:44443: warning: unused variable `a1147' em-functional-stalin.c:44442: warning: unused variable `a1146' em-functional-stalin.c:43577: warning: `a1' might be used uninitialized in this function em-functional-stalin.c:43578: warning: `a2' might be used uninitialized in this function em-functional-stalin.c:43579: warning: `a3' might be used uninitialized in this function em-functional-stalin.c:43580: warning: `a4' might be used uninitialized in this function em-functional-stalin.c:43581: warning: `a5' might be used uninitialized in this function em-functional-stalin.c:43582: warning: `a6' might be used uninitialized in this function em-functional-stalin.c:43583: warning: `a7' might be used uninitialized in this function em-functional-stalin.c:43584: warning: `a8' might be used uninitialized in this function em-functional-stalin.c:43585: warning: `a9' might be used uninitialized in this function em-functional-stalin.c:43586: warning: `a10' might be used uninitialized in this function em-functional-stalin.c:43587: warning: `a11' might be used uninitialized in this function em-functional-stalin.c:43588: warning: `a12' might be used uninitialized in this function em-functional-stalin.c:43589: warning: `a13' might be used uninitialized in this function em-functional-stalin.c:43590: warning: `a14' might be used uninitialized in this function em-functional-stalin.c:43591: warning: `a15' might be used uninitialized in this function em-functional-stalin.c:43592: warning: `a16' might be used uninitialized in this function em-functional-stalin.c:43593: warning: `a17' might be used uninitialized in this function em-functional-stalin.c:43594: warning: `a18' might be used uninitialized in this function em-functional-stalin.c:43595: warning: `a19' might be used uninitialized in this function em-functional-stalin.c:43596: warning: `a20' might be used uninitialized in this function em-functional-stalin.c:43597: warning: `a21' might be used uninitialized in this function em-functional-stalin.c:43598: warning: `a22' might be used uninitialized in this function em-functional-stalin.c:43599: warning: `a23' might be used uninitialized in this function em-functional-stalin.c:43600: warning: `a24' might be used uninitialized in this function em-functional-stalin.c:43601: warning: `a25' might be used uninitialized in this function em-functional-stalin.c:43602: warning: `a26' might be used uninitialized in this function em-functional-stalin.c:43603: warning: `a27' might be used uninitialized in this function em-functional-stalin.c:43604: warning: `a28' might be used uninitialized in this function em-functional-stalin.c:43605: warning: `a29' might be used uninitialized in this function em-functional-stalin.c:43606: warning: `a30' might be used uninitialized in this function em-functional-stalin.c:43607: warning: `a31' might be used uninitialized in this function em-functional-stalin.c:43608: warning: `a32' might be used uninitialized in this function em-functional-stalin.c:43609: warning: `a33' might be used uninitialized in this function em-functional-stalin.c:43610: warning: `a34' might be used uninitialized in this function em-functional-stalin.c:43611: warning: `a35' might be used uninitialized in this function em-functional-stalin.c:43612: warning: `a36' might be used uninitialized in this function em-functional-stalin.c:43613: warning: `a37' might be used uninitialized in this function em-functional-stalin.c:43614: warning: `a38' might be used uninitialized in this function em-functional-stalin.c:43615: warning: `a39' might be used uninitialized in this function em-functional-stalin.c:43616: warning: `a40' might be used uninitialized in this function em-functional-stalin.c:43617: warning: `a41' might be used uninitialized in this function em-functional-stalin.c:43618: warning: `a42' might be used uninitialized in this function em-functional-stalin.c:43619: warning: `a43' might be used uninitialized in this function em-functional-stalin.c:43620: warning: `a44' might be used uninitialized in this function em-functional-stalin.c:43621: warning: `a45' might be used uninitialized in this function em-functional-stalin.c:43622: warning: `a46' might be used uninitialized in this function em-functional-stalin.c:43623: warning: `a47' might be used uninitialized in this function em-functional-stalin.c:43624: warning: `a48' might be used uninitialized in this function em-functional-stalin.c:43625: warning: `a49' might be used uninitialized in this function em-functional-stalin.c:43626: warning: `a50' might be used uninitialized in this function em-functional-stalin.c:43627: warning: `a51' might be used uninitialized in this function em-functional-stalin.c:43628: warning: `a52' might be used uninitialized in this function em-functional-stalin.c:43629: warning: `a53' might be used uninitialized in this function em-functional-stalin.c:43630: warning: `a54' might be used uninitialized in this function em-functional-stalin.c:43631: warning: `a55' might be used uninitialized in this function em-functional-stalin.c:43632: warning: `a56' might be used uninitialized in this function em-functional-stalin.c:43633: warning: `a57' might be used uninitialized in this function em-functional-stalin.c:43634: warning: `a58' might be used uninitialized in this function em-functional-stalin.c:43635: warning: `a59' might be used uninitialized in this function em-functional-stalin.c:43636: warning: `a60' might be used uninitialized in this function em-functional-stalin.c:43637: warning: `a61' might be used uninitialized in this function em-functional-stalin.c:43638: warning: `a62' might be used uninitialized in this function em-functional-stalin.c:43639: warning: `a63' might be used uninitialized in this function em-functional-stalin.c:43640: warning: `a64' might be used uninitialized in this function em-functional-stalin.c:43641: warning: `a65' might be used uninitialized in this function em-functional-stalin.c:43642: warning: `a66' might be used uninitialized in this function em-functional-stalin.c:43643: warning: `a67' might be used uninitialized in this function em-functional-stalin.c:43644: warning: `a68' might be used uninitialized in this function em-functional-stalin.c:43645: warning: `a69' might be used uninitialized in this function em-functional-stalin.c:43646: warning: `a70' might be used uninitialized in this function em-functional-stalin.c:43647: warning: `a71' might be used uninitialized in this function em-functional-stalin.c:43648: warning: `a72' might be used uninitialized in this function em-functional-stalin.c:43649: warning: `a73' might be used uninitialized in this function em-functional-stalin.c:43650: warning: `a74' might be used uninitialized in this function em-functional-stalin.c:43651: warning: `a75' might be used uninitialized in this function em-functional-stalin.c:43652: warning: `a76' might be used uninitialized in this function em-functional-stalin.c:43653: warning: `a77' might be used uninitialized in this function em-functional-stalin.c:43654: warning: `a78' might be used uninitialized in this function em-functional-stalin.c:43655: warning: `a79' might be used uninitialized in this function em-functional-stalin.c:43656: warning: `a80' might be used uninitialized in this function em-functional-stalin.c:43657: warning: `a81' might be used uninitialized in this function em-functional-stalin.c:43658: warning: `a82' might be used uninitialized in this function em-functional-stalin.c:43659: warning: `a83' might be used uninitialized in this function em-functional-stalin.c:43660: warning: `a84' might be used uninitialized in this function em-functional-stalin.c:43661: warning: `a85' might be used uninitialized in this function em-functional-stalin.c:43662: warning: `a86' might be used uninitialized in this function em-functional-stalin.c:43663: warning: `a87' might be used uninitialized in this function em-functional-stalin.c:43664: warning: `a88' might be used uninitialized in this function em-functional-stalin.c:43665: warning: `a89' might be used uninitialized in this function em-functional-stalin.c:43666: warning: `a90' might be used uninitialized in this function em-functional-stalin.c:43667: warning: `a91' might be used uninitialized in this function em-functional-stalin.c:43668: warning: `a92' might be used uninitialized in this function em-functional-stalin.c:43669: warning: `a93' might be used uninitialized in this function em-functional-stalin.c:43670: warning: `a94' might be used uninitialized in this function em-functional-stalin.c:43671: warning: `a95' might be used uninitialized in this function em-functional-stalin.c:43672: warning: `a96' might be used uninitialized in this function em-functional-stalin.c:43673: warning: `a97' might be used uninitialized in this function em-functional-stalin.c:43674: warning: `a98' might be used uninitialized in this function em-functional-stalin.c:43675: warning: `a99' might be used uninitialized in this function em-functional-stalin.c:43676: warning: `a100' might be used uninitialized in this function em-functional-stalin.c:43677: warning: `a101' might be used uninitialized in this function em-functional-stalin.c:43678: warning: `a102' might be used uninitialized in this function em-functional-stalin.c:43679: warning: `a103' might be used uninitialized in this function em-functional-stalin.c:43680: warning: `a104' might be used uninitialized in this function em-functional-stalin.c:43681: warning: `a105' might be used uninitialized in this function em-functional-stalin.c:43682: warning: `a106' might be used uninitialized in this function em-functional-stalin.c:43683: warning: `a107' might be used uninitialized in this function em-functional-stalin.c:43684: warning: `a108' might be used uninitialized in this function em-functional-stalin.c:43685: warning: `a109' might be used uninitialized in this function em-functional-stalin.c:43686: warning: `a110' might be used uninitialized in this function em-functional-stalin.c:43687: warning: `a111' might be used uninitialized in this function em-functional-stalin.c:43688: warning: `a112' might be used uninitialized in this function em-functional-stalin.c:43689: warning: `a113' might be used uninitialized in this function em-functional-stalin.c:43690: warning: `a114' might be used uninitialized in this function em-functional-stalin.c:43691: warning: `a115' might be used uninitialized in this function em-functional-stalin.c:43692: warning: `a116' might be used uninitialized in this function em-functional-stalin.c:43693: warning: `a117' might be used uninitialized in this function em-functional-stalin.c:43694: warning: `a118' might be used uninitialized in this function em-functional-stalin.c:43695: warning: `a119' might be used uninitialized in this function em-functional-stalin.c:43696: warning: `a120' might be used uninitialized in this function em-functional-stalin.c:43697: warning: `a121' might be used uninitialized in this function em-functional-stalin.c:43698: warning: `a122' might be used uninitialized in this function em-functional-stalin.c:43699: warning: `a123' might be used uninitialized in this function em-functional-stalin.c:43700: warning: `a124' might be used uninitialized in this function em-functional-stalin.c:43701: warning: `a125' might be used uninitialized in this function em-functional-stalin.c:43702: warning: `a126' might be used uninitialized in this function em-functional-stalin.c:43703: warning: `a127' might be used uninitialized in this function em-functional-stalin.c:43704: warning: `a128' might be used uninitialized in this function em-functional-stalin.c:43705: warning: `a129' might be used uninitialized in this function em-functional-stalin.c:43706: warning: `a130' might be used uninitialized in this function em-functional-stalin.c:43707: warning: `a131' might be used uninitialized in this function em-functional-stalin.c:43708: warning: `a132' might be used uninitialized in this function em-functional-stalin.c:43709: warning: `a133' might be used uninitialized in this function em-functional-stalin.c:43710: warning: `a134' might be used uninitialized in this function em-functional-stalin.c:43711: warning: `a135' might be used uninitialized in this function em-functional-stalin.c:43712: warning: `a136' might be used uninitialized in this function em-functional-stalin.c:43713: warning: `a137' might be used uninitialized in this function em-functional-stalin.c:43714: warning: `a138' might be used uninitialized in this function em-functional-stalin.c:43715: warning: `a139' might be used uninitialized in this function em-functional-stalin.c:43716: warning: `a140' might be used uninitialized in this function em-functional-stalin.c:43717: warning: `a141' might be used uninitialized in this function em-functional-stalin.c:43718: warning: `a142' might be used uninitialized in this function em-functional-stalin.c:43719: warning: `a143' might be used uninitialized in this function em-functional-stalin.c:43720: warning: `a144' might be used uninitialized in this function em-functional-stalin.c:43721: warning: `a145' might be used uninitialized in this function em-functional-stalin.c:43722: warning: `a146' might be used uninitialized in this function em-functional-stalin.c:43723: warning: `a147' might be used uninitialized in this function em-functional-stalin.c:43724: warning: `a148' might be used uninitialized in this function em-functional-stalin.c:43725: warning: `a149' might be used uninitialized in this function em-functional-stalin.c:43726: warning: `a150' might be used uninitialized in this function em-functional-stalin.c:43727: warning: `a151' might be used uninitialized in this function em-functional-stalin.c:43728: warning: `a152' might be used uninitialized in this function em-functional-stalin.c:43729: warning: `a153' might be used uninitialized in this function em-functional-stalin.c:43730: warning: `a154' might be used uninitialized in this function em-functional-stalin.c:43731: warning: `a155' might be used uninitialized in this function em-functional-stalin.c:43732: warning: `a156' might be used uninitialized in this function em-functional-stalin.c:43733: warning: `a157' might be used uninitialized in this function em-functional-stalin.c:43734: warning: `a158' might be used uninitialized in this function em-functional-stalin.c:43735: warning: `a159' might be used uninitialized in this function em-functional-stalin.c:43736: warning: `a160' might be used uninitialized in this function em-functional-stalin.c:43737: warning: `a161' might be used uninitialized in this function em-functional-stalin.c:43738: warning: `a162' might be used uninitialized in this function em-functional-stalin.c:43739: warning: `a163' might be used uninitialized in this function em-functional-stalin.c:43740: warning: `a164' might be used uninitialized in this function em-functional-stalin.c:43741: warning: `a165' might be used uninitialized in this function em-functional-stalin.c:43742: warning: `a166' might be used uninitialized in this function em-functional-stalin.c:43743: warning: `a167' might be used uninitialized in this function em-functional-stalin.c:43744: warning: `a168' might be used uninitialized in this function em-functional-stalin.c:43745: warning: `a169' might be used uninitialized in this function em-functional-stalin.c:43746: warning: `a170' might be used uninitialized in this function em-functional-stalin.c:43747: warning: `a171' might be used uninitialized in this function em-functional-stalin.c:43748: warning: `a172' might be used uninitialized in this function em-functional-stalin.c:43749: warning: `a173' might be used uninitialized in this function em-functional-stalin.c:43750: warning: `a174' might be used uninitialized in this function em-functional-stalin.c:43751: warning: `a175' might be used uninitialized in this function em-functional-stalin.c:43752: warning: `a176' might be used uninitialized in this function em-functional-stalin.c:43753: warning: `a177' might be used uninitialized in this function em-functional-stalin.c:43754: warning: `a178' might be used uninitialized in this function em-functional-stalin.c:43755: warning: `a179' might be used uninitialized in this function em-functional-stalin.c:43756: warning: `a180' might be used uninitialized in this function em-functional-stalin.c:43757: warning: `a181' might be used uninitialized in this function em-functional-stalin.c:43758: warning: `a182' might be used uninitialized in this function em-functional-stalin.c:43759: warning: `a183' might be used uninitialized in this function em-functional-stalin.c:43760: warning: `a184' might be used uninitialized in this function em-functional-stalin.c:43761: warning: `a185' might be used uninitialized in this function em-functional-stalin.c:43762: warning: `a186' might be used uninitialized in this function em-functional-stalin.c:43763: warning: `a187' might be used uninitialized in this function em-functional-stalin.c:43764: warning: `a188' might be used uninitialized in this function em-functional-stalin.c:43765: warning: `a189' might be used uninitialized in this function em-functional-stalin.c:43766: warning: `a190' might be used uninitialized in this function em-functional-stalin.c:43767: warning: `a191' might be used uninitialized in this function em-functional-stalin.c:43768: warning: `a192' might be used uninitialized in this function em-functional-stalin.c:43769: warning: `a193' might be used uninitialized in this function em-functional-stalin.c:43770: warning: `a194' might be used uninitialized in this function em-functional-stalin.c:43771: warning: `a195' might be used uninitialized in this function em-functional-stalin.c:43772: warning: `a196' might be used uninitialized in this function em-functional-stalin.c:43773: warning: `a197' might be used uninitialized in this function em-functional-stalin.c:43774: warning: `a198' might be used uninitialized in this function em-functional-stalin.c:43775: warning: `a199' might be used uninitialized in this function em-functional-stalin.c:43776: warning: `a200' might be used uninitialized in this function em-functional-stalin.c:43777: warning: `a201' might be used uninitialized in this function em-functional-stalin.c:43778: warning: `a202' might be used uninitialized in this function em-functional-stalin.c:43779: warning: `a203' might be used uninitialized in this function em-functional-stalin.c:43780: warning: `a204' might be used uninitialized in this function em-functional-stalin.c:43781: warning: `a205' might be used uninitialized in this function em-functional-stalin.c:43782: warning: `a206' might be used uninitialized in this function em-functional-stalin.c:43783: warning: `a207' might be used uninitialized in this function em-functional-stalin.c:43784: warning: `a208' might be used uninitialized in this function em-functional-stalin.c:43785: warning: `a209' might be used uninitialized in this function em-functional-stalin.c:43786: warning: `a210' might be used uninitialized in this function em-functional-stalin.c:43787: warning: `a211' might be used uninitialized in this function em-functional-stalin.c:43788: warning: `a212' might be used uninitialized in this function em-functional-stalin.c:43789: warning: `a213' might be used uninitialized in this function em-functional-stalin.c:43790: warning: `a214' might be used uninitialized in this function em-functional-stalin.c:43791: warning: `a215' might be used uninitialized in this function em-functional-stalin.c:43792: warning: `a216' might be used uninitialized in this function em-functional-stalin.c:43793: warning: `a217' might be used uninitialized in this function em-functional-stalin.c:43794: warning: `a218' might be used uninitialized in this function em-functional-stalin.c:43795: warning: `a219' might be used uninitialized in this function em-functional-stalin.c:43796: warning: `a220' might be used uninitialized in this function em-functional-stalin.c:43797: warning: `a221' might be used uninitialized in this function em-functional-stalin.c:43798: warning: `a222' might be used uninitialized in this function em-functional-stalin.c:43799: warning: `a223' might be used uninitialized in this function em-functional-stalin.c:43800: warning: `a224' might be used uninitialized in this function em-functional-stalin.c:43801: warning: `a225' might be used uninitialized in this function em-functional-stalin.c:43802: warning: `a226' might be used uninitialized in this function em-functional-stalin.c:43803: warning: `a227' might be used uninitialized in this function em-functional-stalin.c:43804: warning: `a228' might be used uninitialized in this function em-functional-stalin.c:43805: warning: `a229' might be used uninitialized in this function em-functional-stalin.c:43806: warning: `a230' might be used uninitialized in this function em-functional-stalin.c:43807: warning: `a231' might be used uninitialized in this function em-functional-stalin.c:43808: warning: `a232' might be used uninitialized in this function em-functional-stalin.c:43809: warning: `a233' might be used uninitialized in this function em-functional-stalin.c:43810: warning: `a234' might be used uninitialized in this function em-functional-stalin.c:43811: warning: `a235' might be used uninitialized in this function em-functional-stalin.c:43812: warning: `a236' might be used uninitialized in this function em-functional-stalin.c:43813: warning: `a237' might be used uninitialized in this function em-functional-stalin.c:43814: warning: `a238' might be used uninitialized in this function em-functional-stalin.c:43815: warning: `a239' might be used uninitialized in this function em-functional-stalin.c:43816: warning: `a240' might be used uninitialized in this function em-functional-stalin.c:43817: warning: `a241' might be used uninitialized in this function em-functional-stalin.c:43818: warning: `a242' might be used uninitialized in this function em-functional-stalin.c:43819: warning: `a243' might be used uninitialized in this function em-functional-stalin.c:43820: warning: `a244' might be used uninitialized in this function em-functional-stalin.c:43821: warning: `a245' might be used uninitialized in this function em-functional-stalin.c:43822: warning: `a246' might be used uninitialized in this function em-functional-stalin.c:43823: warning: `a247' might be used uninitialized in this function em-functional-stalin.c:43824: warning: `a248' might be used uninitialized in this function em-functional-stalin.c:43825: warning: `a249' might be used uninitialized in this function em-functional-stalin.c:43826: warning: `a250' might be used uninitialized in this function em-functional-stalin.c:43827: warning: `a251' might be used uninitialized in this function em-functional-stalin.c:43828: warning: `a252' might be used uninitialized in this function em-functional-stalin.c:43829: warning: `a253' might be used uninitialized in this function em-functional-stalin.c:43830: warning: `a254' might be used uninitialized in this function em-functional-stalin.c:43831: warning: `a255' might be used uninitialized in this function em-functional-stalin.c:43832: warning: `a256' might be used uninitialized in this function em-functional-stalin.c:43833: warning: `a257' might be used uninitialized in this function em-functional-stalin.c:43834: warning: `a258' might be used uninitialized in this function em-functional-stalin.c:43835: warning: `a259' might be used uninitialized in this function em-functional-stalin.c:43836: warning: `a260' might be used uninitialized in this function em-functional-stalin.c:43837: warning: `a261' might be used uninitialized in this function em-functional-stalin.c:43838: warning: `a262' might be used uninitialized in this function em-functional-stalin.c:43839: warning: `a263' might be used uninitialized in this function em-functional-stalin.c:43840: warning: `a264' might be used uninitialized in this function em-functional-stalin.c:43841: warning: `a265' might be used uninitialized in this function em-functional-stalin.c:43842: warning: `a266' might be used uninitialized in this function em-functional-stalin.c:43843: warning: `a267' might be used uninitialized in this function em-functional-stalin.c:43844: warning: `a268' might be used uninitialized in this function em-functional-stalin.c:43845: warning: `a269' might be used uninitialized in this function em-functional-stalin.c:43846: warning: `a270' might be used uninitialized in this function em-functional-stalin.c:43847: warning: `a271' might be used uninitialized in this function em-functional-stalin.c:43848: warning: `a272' might be used uninitialized in this function em-functional-stalin.c:43849: warning: `a273' might be used uninitialized in this function em-functional-stalin.c:43850: warning: `a274' might be used uninitialized in this function em-functional-stalin.c:43851: warning: `a275' might be used uninitialized in this function em-functional-stalin.c:43852: warning: `a276' might be used uninitialized in this function em-functional-stalin.c:43853: warning: `a277' might be used uninitialized in this function em-functional-stalin.c:43854: warning: `a278' might be used uninitialized in this function em-functional-stalin.c:43855: warning: `a279' might be used uninitialized in this function em-functional-stalin.c:43856: warning: `a280' might be used uninitialized in this function em-functional-stalin.c:43857: warning: `a281' might be used uninitialized in this function em-functional-stalin.c:43858: warning: `a282' might be used uninitialized in this function em-functional-stalin.c:43859: warning: `a283' might be used uninitialized in this function em-functional-stalin.c:43860: warning: `a284' might be used uninitialized in this function em-functional-stalin.c:43861: warning: `a285' might be used uninitialized in this function em-functional-stalin.c:43862: warning: `a286' might be used uninitialized in this function em-functional-stalin.c:43863: warning: `a287' might be used uninitialized in this function em-functional-stalin.c:43864: warning: `a288' might be used uninitialized in this function em-functional-stalin.c:43865: warning: `a289' might be used uninitialized in this function em-functional-stalin.c:43866: warning: `a290' might be used uninitialized in this function em-functional-stalin.c:43867: warning: `a291' might be used uninitialized in this function em-functional-stalin.c:43868: warning: `a292' might be used uninitialized in this function em-functional-stalin.c:43869: warning: `a293' might be used uninitialized in this function em-functional-stalin.c:43870: warning: `a294' might be used uninitialized in this function em-functional-stalin.c:43871: warning: `a295' might be used uninitialized in this function em-functional-stalin.c:43872: warning: `a296' might be used uninitialized in this function em-functional-stalin.c:43873: warning: `a297' might be used uninitialized in this function em-functional-stalin.c:43874: warning: `a298' might be used uninitialized in this function em-functional-stalin.c:43875: warning: `a299' might be used uninitialized in this function em-functional-stalin.c:43876: warning: `a300' might be used uninitialized in this function em-functional-stalin.c:43877: warning: `a301' might be used uninitialized in this function em-functional-stalin.c:43878: warning: `a302' might be used uninitialized in this function em-functional-stalin.c:43879: warning: `a303' might be used uninitialized in this function em-functional-stalin.c:43880: warning: `a304' might be used uninitialized in this function em-functional-stalin.c:43881: warning: `a305' might be used uninitialized in this function em-functional-stalin.c:43882: warning: `a306' might be used uninitialized in this function em-functional-stalin.c:43883: warning: `a307' might be used uninitialized in this function em-functional-stalin.c:43884: warning: `a308' might be used uninitialized in this function em-functional-stalin.c:43885: warning: `a309' might be used uninitialized in this function em-functional-stalin.c:43886: warning: `a310' might be used uninitialized in this function em-functional-stalin.c:43887: warning: `a311' might be used uninitialized in this function em-functional-stalin.c:43888: warning: `a312' might be used uninitialized in this function em-functional-stalin.c:43889: warning: `a313' might be used uninitialized in this function em-functional-stalin.c:43890: warning: `a314' might be used uninitialized in this function em-functional-stalin.c:43891: warning: `a315' might be used uninitialized in this function em-functional-stalin.c:43892: warning: `a316' might be used uninitialized in this function em-functional-stalin.c:43893: warning: `a317' might be used uninitialized in this function em-functional-stalin.c:43894: warning: `a318' might be used uninitialized in this function em-functional-stalin.c:43895: warning: `a319' might be used uninitialized in this function em-functional-stalin.c:43896: warning: `a320' might be used uninitialized in this function em-functional-stalin.c:43897: warning: `a321' might be used uninitialized in this function em-functional-stalin.c:43898: warning: `a322' might be used uninitialized in this function em-functional-stalin.c:43899: warning: `a323' might be used uninitialized in this function em-functional-stalin.c:43900: warning: `a324' might be used uninitialized in this function em-functional-stalin.c:43901: warning: `a325' might be used uninitialized in this function em-functional-stalin.c:43902: warning: `a326' might be used uninitialized in this function em-functional-stalin.c:43903: warning: `a327' might be used uninitialized in this function em-functional-stalin.c:43904: warning: `a328' might be used uninitialized in this function em-functional-stalin.c:43905: warning: `a329' might be used uninitialized in this function em-functional-stalin.c:43906: warning: `a330' might be used uninitialized in this function em-functional-stalin.c:43907: warning: `a331' might be used uninitialized in this function em-functional-stalin.c:43908: warning: `a332' might be used uninitialized in this function em-functional-stalin.c:43909: warning: `a333' might be used uninitialized in this function em-functional-stalin.c:43910: warning: `a334' might be used uninitialized in this function em-functional-stalin.c:43911: warning: `a335' might be used uninitialized in this function em-functional-stalin.c:43912: warning: `a336' might be used uninitialized in this function em-functional-stalin.c:43913: warning: `a337' might be used uninitialized in this function em-functional-stalin.c:43914: warning: `a338' might be used uninitialized in this function em-functional-stalin.c:43915: warning: `a339' might be used uninitialized in this function em-functional-stalin.c:43916: warning: `a340' might be used uninitialized in this function em-functional-stalin.c:43917: warning: `a341' might be used uninitialized in this function em-functional-stalin.c:43918: warning: `a342' might be used uninitialized in this function em-functional-stalin.c:43919: warning: `a343' might be used uninitialized in this function em-functional-stalin.c:43920: warning: `a344' might be used uninitialized in this function em-functional-stalin.c:43921: warning: `a345' might be used uninitialized in this function em-functional-stalin.c:43922: warning: `a346' might be used uninitialized in this function em-functional-stalin.c:43923: warning: `a347' might be used uninitialized in this function em-functional-stalin.c:43924: warning: `a348' might be used uninitialized in this function em-functional-stalin.c:43925: warning: `a349' might be used uninitialized in this function em-functional-stalin.c:43926: warning: `a350' might be used uninitialized in this function em-functional-stalin.c:43927: warning: `a351' might be used uninitialized in this function em-functional-stalin.c:43928: warning: `a352' might be used uninitialized in this function em-functional-stalin.c:43929: warning: `a353' might be used uninitialized in this function em-functional-stalin.c:43930: warning: `a354' might be used uninitialized in this function em-functional-stalin.c:43931: warning: `a355' might be used uninitialized in this function em-functional-stalin.c:43932: warning: `a356' might be used uninitialized in this function em-functional-stalin.c:43933: warning: `a357' might be used uninitialized in this function em-functional-stalin.c:43934: warning: `a358' might be used uninitialized in this function em-functional-stalin.c:43935: warning: `a359' might be used uninitialized in this function em-functional-stalin.c:43936: warning: `a360' might be used uninitialized in this function em-functional-stalin.c:43937: warning: `a361' might be used uninitialized in this function em-functional-stalin.c:43938: warning: `a362' might be used uninitialized in this function em-functional-stalin.c:43939: warning: `a363' might be used uninitialized in this function em-functional-stalin.c:43940: warning: `a364' might be used uninitialized in this function em-functional-stalin.c:43941: warning: `a365' might be used uninitialized in this function em-functional-stalin.c:43942: warning: `a366' might be used uninitialized in this function em-functional-stalin.c:43943: warning: `a367' might be used uninitialized in this function em-functional-stalin.c:43944: warning: `a368' might be used uninitialized in this function em-functional-stalin.c:43945: warning: `a369' might be used uninitialized in this function em-functional-stalin.c:43946: warning: `a370' might be used uninitialized in this function em-functional-stalin.c:43947: warning: `a371' might be used uninitialized in this function em-functional-stalin.c:43948: warning: `a372' might be used uninitialized in this function em-functional-stalin.c:43949: warning: `a373' might be used uninitialized in this function em-functional-stalin.c:43950: warning: `a374' might be used uninitialized in this function em-functional-stalin.c:43951: warning: `a375' might be used uninitialized in this function em-functional-stalin.c:43952: warning: `a376' might be used uninitialized in this function em-functional-stalin.c:43953: warning: `a377' might be used uninitialized in this function em-functional-stalin.c:43954: warning: `a378' might be used uninitialized in this function em-functional-stalin.c:43955: warning: `a379' might be used uninitialized in this function em-functional-stalin.c:43956: warning: `a380' might be used uninitialized in this function em-functional-stalin.c:43957: warning: `a381' might be used uninitialized in this function em-functional-stalin.c:43958: warning: `a382' might be used uninitialized in this function em-functional-stalin.c:43959: warning: `a383' might be used uninitialized in this function em-functional-stalin.c:43960: warning: `a384' might be used uninitialized in this function em-functional-stalin.c:43961: warning: `a385' might be used uninitialized in this function em-functional-stalin.c:43962: warning: `a386' might be used uninitialized in this function em-functional-stalin.c:43963: warning: `a387' might be used uninitialized in this function em-functional-stalin.c:43964: warning: `a388' might be used uninitialized in this function em-functional-stalin.c:43965: warning: `a389' might be used uninitialized in this function em-functional-stalin.c:43966: warning: `a390' might be used uninitialized in this function em-functional-stalin.c:43967: warning: `a391' might be used uninitialized in this function em-functional-stalin.c:43968: warning: `a392' might be used uninitialized in this function em-functional-stalin.c:43969: warning: `a393' might be used uninitialized in this function em-functional-stalin.c:43970: warning: `a394' might be used uninitialized in this function em-functional-stalin.c:43971: warning: `a395' might be used uninitialized in this function em-functional-stalin.c:43972: warning: `a396' might be used uninitialized in this function em-functional-stalin.c:43973: warning: `a397' might be used uninitialized in this function em-functional-stalin.c:43974: warning: `a398' might be used uninitialized in this function em-functional-stalin.c:43975: warning: `a399' might be used uninitialized in this function em-functional-stalin.c:43976: warning: `a400' might be used uninitialized in this function em-functional-stalin.c:43977: warning: `a401' might be used uninitialized in this function em-functional-stalin.c:43978: warning: `a402' might be used uninitialized in this function em-functional-stalin.c:43979: warning: `a403' might be used uninitialized in this function em-functional-stalin.c:43980: warning: `a404' might be used uninitialized in this function em-functional-stalin.c:43981: warning: `a405' might be used uninitialized in this function em-functional-stalin.c:43982: warning: `a406' might be used uninitialized in this function em-functional-stalin.c:43983: warning: `a407' might be used uninitialized in this function em-functional-stalin.c:43984: warning: `a408' might be used uninitialized in this function em-functional-stalin.c:43985: warning: `a409' might be used uninitialized in this function em-functional-stalin.c:43986: warning: `a410' might be used uninitialized in this function em-functional-stalin.c:43987: warning: `a411' might be used uninitialized in this function em-functional-stalin.c:43988: warning: `a412' might be used uninitialized in this function em-functional-stalin.c:43989: warning: `a413' might be used uninitialized in this function em-functional-stalin.c:43990: warning: `a414' might be used uninitialized in this function em-functional-stalin.c:43991: warning: `a415' might be used uninitialized in this function em-functional-stalin.c:43992: warning: `a416' might be used uninitialized in this function em-functional-stalin.c:43993: warning: `a417' might be used uninitialized in this function em-functional-stalin.c:43994: warning: `a418' might be used uninitialized in this function em-functional-stalin.c:43995: warning: `a419' might be used uninitialized in this function em-functional-stalin.c:43996: warning: `a420' might be used uninitialized in this function em-functional-stalin.c:43997: warning: `a421' might be used uninitialized in this function em-functional-stalin.c:43998: warning: `a422' might be used uninitialized in this function em-functional-stalin.c:43999: warning: `a423' might be used uninitialized in this function em-functional-stalin.c:44000: warning: `a424' might be used uninitialized in this function em-functional-stalin.c:44001: warning: `a425' might be used uninitialized in this function em-functional-stalin.c:44002: warning: `a426' might be used uninitialized in this function em-functional-stalin.c:44003: warning: `a427' might be used uninitialized in this function em-functional-stalin.c:44004: warning: `a428' might be used uninitialized in this function em-functional-stalin.c:44005: warning: `a429' might be used uninitialized in this function em-functional-stalin.c:44006: warning: `a430' might be used uninitialized in this function em-functional-stalin.c:44007: warning: `a431' might be used uninitialized in this function em-functional-stalin.c:44008: warning: `a432' might be used uninitialized in this function em-functional-stalin.c:44009: warning: `a433' might be used uninitialized in this function em-functional-stalin.c:44010: warning: `a434' might be used uninitialized in this function em-functional-stalin.c:44011: warning: `a435' might be used uninitialized in this function em-functional-stalin.c:44225: warning: `a649' might be used uninitialized in this function em-functional-stalin.c:44226: warning: `a650' might be used uninitialized in this function em-functional-stalin.c:44227: warning: `a651' might be used uninitialized in this function em-functional-stalin.c:44228: warning: `a652' might be used uninitialized in this function em-functional-stalin.c:44229: warning: `a653' might be used uninitialized in this function em-functional-stalin.c:44230: warning: `a654' might be used uninitialized in this function em-functional-stalin.c:44231: warning: `a655' might be used uninitialized in this function em-functional-stalin.c:44232: warning: `a656' might be used uninitialized in this function em-functional-stalin.c:44233: warning: `a657' might be used uninitialized in this function em-functional-stalin.c:44234: warning: `a658' might be used uninitialized in this function em-functional-stalin.c:44235: warning: `a659' might be used uninitialized in this function em-functional-stalin.c:44236: warning: `a660' might be used uninitialized in this function em-functional-stalin.c:44237: warning: `a661' might be used uninitialized in this function em-functional-stalin.c:44238: warning: `a662' might be used uninitialized in this function em-functional-stalin.c:44239: warning: `a663' might be used uninitialized in this function em-functional-stalin.c:44240: warning: `a664' might be used uninitialized in this function em-functional-stalin.c:44241: warning: `a665' might be used uninitialized in this function em-functional-stalin.c:44242: warning: `a666' might be used uninitialized in this function em-functional-stalin.c:44243: warning: `a667' might be used uninitialized in this function em-functional-stalin.c:44244: warning: `a668' might be used uninitialized in this function em-functional-stalin.c:44245: warning: `a669' might be used uninitialized in this function em-functional-stalin.c:44246: warning: `a670' might be used uninitialized in this function em-functional-stalin.c:44247: warning: `a671' might be used uninitialized in this function em-functional-stalin.c:44248: warning: `a672' might be used uninitialized in this function em-functional-stalin.c:44249: warning: `a673' might be used uninitialized in this function em-functional-stalin.c:44250: warning: `a674' might be used uninitialized in this function em-functional-stalin.c:44251: warning: `a675' might be used uninitialized in this function em-functional-stalin.c:44252: warning: `a676' might be used uninitialized in this function em-functional-stalin.c:44253: warning: `a677' might be used uninitialized in this function em-functional-stalin.c:44254: warning: `a678' might be used uninitialized in this function em-functional-stalin.c:44255: warning: `a679' might be used uninitialized in this function em-functional-stalin.c:44256: warning: `a680' might be used uninitialized in this function em-functional-stalin.c:44257: warning: `a681' might be used uninitialized in this function em-functional-stalin.c:44258: warning: `a682' might be used uninitialized in this function em-functional-stalin.c:44259: warning: `a683' might be used uninitialized in this function em-functional-stalin.c:44260: warning: `a684' might be used uninitialized in this function em-functional-stalin.c:44261: warning: `a685' might be used uninitialized in this function em-functional-stalin.c:44262: warning: `a686' might be used uninitialized in this function em-functional-stalin.c:44263: warning: `a687' might be used uninitialized in this function em-functional-stalin.c:44264: warning: `a688' might be used uninitialized in this function em-functional-stalin.c:44265: warning: `a689' might be used uninitialized in this function em-functional-stalin.c:44266: warning: `a690' might be used uninitialized in this function em-functional-stalin.c:44267: warning: `a691' might be used uninitialized in this function em-functional-stalin.c:44268: warning: `a692' might be used uninitialized in this function em-functional-stalin.c:44269: warning: `a693' might be used uninitialized in this function em-functional-stalin.c:44270: warning: `a694' might be used uninitialized in this function em-functional-stalin.c:44271: warning: `a695' might be used uninitialized in this function em-functional-stalin.c:44272: warning: `a696' might be used uninitialized in this function em-functional-stalin.c:44273: warning: `a697' might be used uninitialized in this function em-functional-stalin.c:44274: warning: `a698' might be used uninitialized in this function em-functional-stalin.c:44275: warning: `a699' might be used uninitialized in this function em-functional-stalin.c:44276: warning: `a700' might be used uninitialized in this function em-functional-stalin.c:44277: warning: `a701' might be used uninitialized in this function em-functional-stalin.c:44278: warning: `a702' might be used uninitialized in this function em-functional-stalin.c:44279: warning: `a703' might be used uninitialized in this function em-functional-stalin.c:44280: warning: `a704' might be used uninitialized in this function em-functional-stalin.c:44281: warning: `a705' might be used uninitialized in this function em-functional-stalin.c:44282: warning: `a706' might be used uninitialized in this function em-functional-stalin.c:44283: warning: `a707' might be used uninitialized in this function em-functional-stalin.c:44284: warning: `a708' might be used uninitialized in this function em-functional-stalin.c:44285: warning: `a709' might be used uninitialized in this function em-functional-stalin.c:44286: warning: `a710' might be used uninitialized in this function em-functional-stalin.c:44287: warning: `a711' might be used uninitialized in this function em-functional-stalin.c:44288: warning: `a712' might be used uninitialized in this function em-functional-stalin.c:44289: warning: `a713' might be used uninitialized in this function em-functional-stalin.c:44290: warning: `a714' might be used uninitialized in this function em-functional-stalin.c:44291: warning: `a715' might be used uninitialized in this function em-functional-stalin.c:44292: warning: `a716' might be used uninitialized in this function em-functional-stalin.c:44293: warning: `a717' might be used uninitialized in this function em-functional-stalin.c:44294: warning: `a718' might be used uninitialized in this function em-functional-stalin.c:44295: warning: `a719' might be used uninitialized in this function em-functional-stalin.c:44296: warning: `a720' might be used uninitialized in this function em-functional-stalin.c:44297: warning: `a721' might be used uninitialized in this function em-functional-stalin.c:44298: warning: `a722' might be used uninitialized in this function em-functional-stalin.c:44299: warning: `a723' might be used uninitialized in this function em-functional-stalin.c:44300: warning: `a724' might be used uninitialized in this function em-functional-stalin.c:44301: warning: `a725' might be used uninitialized in this function em-functional-stalin.c:44302: warning: `a726' might be used uninitialized in this function em-functional-stalin.c:44303: warning: `a727' might be used uninitialized in this function em-functional-stalin.c:44304: warning: `a728' might be used uninitialized in this function em-functional-stalin.c:44305: warning: `a729' might be used uninitialized in this function em-functional-stalin.c:44306: warning: `a730' might be used uninitialized in this function em-functional-stalin.c:44307: warning: `a731' might be used uninitialized in this function em-functional-stalin.c:44308: warning: `a732' might be used uninitialized in this function em-functional-stalin.c:44309: warning: `a733' might be used uninitialized in this function em-functional-stalin.c:44310: warning: `a734' might be used uninitialized in this function em-functional-stalin.c:44311: warning: `a735' might be used uninitialized in this function em-functional-stalin.c:44312: warning: `a736' might be used uninitialized in this function em-functional-stalin.c:44313: warning: `a737' might be used uninitialized in this function em-functional-stalin.c:44314: warning: `a738' might be used uninitialized in this function em-functional-stalin.c:44315: warning: `a739' might be used uninitialized in this function em-functional-stalin.c:44316: warning: `a740' might be used uninitialized in this function em-functional-stalin.c:44317: warning: `a741' might be used uninitialized in this function em-functional-stalin.c:44318: warning: `a742' might be used uninitialized in this function em-functional-stalin.c:44319: warning: `a743' might be used uninitialized in this function em-functional-stalin.c:44320: warning: `a744' might be used uninitialized in this function em-functional-stalin.c:44321: warning: `a745' might be used uninitialized in this function em-functional-stalin.c:44322: warning: `a746' might be used uninitialized in this function em-functional-stalin.c:44323: warning: `a747' might be used uninitialized in this function em-functional-stalin.c:44324: warning: `a748' might be used uninitialized in this function em-functional-stalin.c:44325: warning: `a749' might be used uninitialized in this function em-functional-stalin.c:44326: warning: `a750' might be used uninitialized in this function em-functional-stalin.c:44327: warning: `a751' might be used uninitialized in this function em-functional-stalin.c:44328: warning: `a752' might be used uninitialized in this function em-functional-stalin.c:44329: warning: `a753' might be used uninitialized in this function em-functional-stalin.c:44330: warning: `a754' might be used uninitialized in this function em-functional-stalin.c:44331: warning: `a755' might be used uninitialized in this function em-functional-stalin.c:44332: warning: `a756' might be used uninitialized in this function em-functional-stalin.c:44333: warning: `a757' might be used uninitialized in this function em-functional-stalin.c:44334: warning: `a758' might be used uninitialized in this function em-functional-stalin.c:44335: warning: `a759' might be used uninitialized in this function em-functional-stalin.c:44336: warning: `a760' might be used uninitialized in this function em-functional-stalin.c:44337: warning: `a761' might be used uninitialized in this function em-functional-stalin.c:44338: warning: `a762' might be used uninitialized in this function em-functional-stalin.c:44339: warning: `a763' might be used uninitialized in this function em-functional-stalin.c:44340: warning: `a764' might be used uninitialized in this function em-functional-stalin.c:44341: warning: `a765' might be used uninitialized in this function em-functional-stalin.c:44342: warning: `a766' might be used uninitialized in this function em-functional-stalin.c:44343: warning: `a767' might be used uninitialized in this function em-functional-stalin.c:44344: warning: `a768' might be used uninitialized in this function em-functional-stalin.c:44345: warning: `a769' might be used uninitialized in this function em-functional-stalin.c:44346: warning: `a770' might be used uninitialized in this function em-functional-stalin.c:44347: warning: `a771' might be used uninitialized in this function em-functional-stalin.c:44348: warning: `a772' might be used uninitialized in this function em-functional-stalin.c:44349: warning: `a773' might be used uninitialized in this function em-functional-stalin.c:44350: warning: `a774' might be used uninitialized in this function em-functional-stalin.c:44351: warning: `a775' might be used uninitialized in this function em-functional-stalin.c:44352: warning: `a776' might be used uninitialized in this function em-functional-stalin.c:44353: warning: `a777' might be used uninitialized in this function em-functional-stalin.c:44354: warning: `a778' might be used uninitialized in this function em-functional-stalin.c:44355: warning: `a779' might be used uninitialized in this function em-functional-stalin.c:44356: warning: `a780' might be used uninitialized in this function em-functional-stalin.c:44357: warning: `a781' might be used uninitialized in this function em-functional-stalin.c:44358: warning: `a782' might be used uninitialized in this function em-functional-stalin.c:44359: warning: `a783' might be used uninitialized in this function em-functional-stalin.c:44360: warning: `a784' might be used uninitialized in this function em-functional-stalin.c:44361: warning: `a785' might be used uninitialized in this function em-functional-stalin.c:44362: warning: `a786' might be used uninitialized in this function em-functional-stalin.c:44363: warning: `a787' might be used uninitialized in this function em-functional-stalin.c:44364: warning: `a788' might be used uninitialized in this function em-functional-stalin.c:44365: warning: `a789' might be used uninitialized in this function em-functional-stalin.c:44366: warning: `a790' might be used uninitialized in this function em-functional-stalin.c:44367: warning: `a791' might be used uninitialized in this function em-functional-stalin.c:44368: warning: `a792' might be used uninitialized in this function em-functional-stalin.c:44369: warning: `a793' might be used uninitialized in this function em-functional-stalin.c:44370: warning: `a794' might be used uninitialized in this function em-functional-stalin.c:44371: warning: `a795' might be used uninitialized in this function em-functional-stalin.c:44373: warning: `a797' might be used uninitialized in this function em-functional-stalin.c:44375: warning: `a799' might be used uninitialized in this function em-functional-stalin.c:44376: warning: `a800' might be used uninitialized in this function em-functional-stalin.c:44380: warning: `a812' might be used uninitialized in this function em-functional-stalin.c:44383: warning: `a815' might be used uninitialized in this function em-functional-stalin.c:44385: warning: `a817' might be used uninitialized in this function em-functional-stalin.c:44387: warning: `a824' might be used uninitialized in this function em-functional-stalin.c:44392: warning: `a829' might be used uninitialized in this function em-functional-stalin.c:44399: warning: `a860' might be used uninitialized in this function em-functional-stalin.c:44405: warning: `a900' might be used uninitialized in this function em-functional-stalin.c:44411: warning: `a906' might be used uninitialized in this function em-functional-stalin.c:44413: warning: `a908' might be used uninitialized in this function em-functional-stalin.c:44415: warning: `a910' might be used uninitialized in this function em-functional-stalin.c:44419: warning: `a914' might be used uninitialized in this function em-functional-stalin.c:44425: warning: `a920' might be used uninitialized in this function em-functional-stalin.c:44437: warning: `a1141' might be used uninitialized in this function em-functional-stalin.c:44457: warning: `a1161' might be used uninitialized in this function em-functional-stalin.c:44484: warning: `a1320' might be used uninitialized in this function em-functional-stalin.c:44487: warning: `a1369' might be used uninitialized in this function em-functional-stalin.c:44491: warning: `a1429' might be used uninitialized in this function em-functional-stalin.c:44492: warning: `a1430' might be used uninitialized in this function em-functional-stalin.c:44498: warning: `a1796' might be used uninitialized in this function em-functional-stalin.c:44500: warning: `a1798' might be used uninitialized in this function em-functional-stalin.c:44502: warning: `a1800' might be used uninitialized in this function em-functional-stalin.c:44505: warning: `a1876' might be used uninitialized in this function em-functional-stalin.c:44508: warning: `a1946' might be used uninitialized in this function em-functional-stalin.c:44510: warning: `a1948' might be used uninitialized in this function em-functional-stalin.c:44513: warning: `a2232' might be used uninitialized in this function em-functional-stalin.c:44514: warning: `a2233' might be used uninitialized in this function em-functional-stalin.c:44518: warning: `a2237' might be used uninitialized in this function em-functional-stalin.c:44519: warning: `a2238' might be used uninitialized in this function em-functional-stalin.c:44520: warning: `a2239' might be used uninitialized in this function em-functional-stalin.c:44521: warning: `a2240' might be used uninitialized in this function em-functional-stalin.c:44522: warning: `a2241' might be used uninitialized in this function em-functional-stalin.c:44523: warning: `a2242' might be used uninitialized in this function em-functional-stalin.c:44524: warning: `a2243' might be used uninitialized in this function em-functional-stalin.c:44525: warning: `a2244' might be used uninitialized in this function em-functional-stalin.c:44526: warning: `a2245' might be used uninitialized in this function em-functional-stalin.c:44527: warning: `a2246' might be used uninitialized in this function em-functional-stalin.c:44528: warning: `a2247' might be used uninitialized in this function em-functional-stalin.c:44529: warning: `a2248' might be used uninitialized in this function em-functional-stalin.c:44530: warning: `a2249' might be used uninitialized in this function em-functional-stalin.c:44531: warning: `a2250' might be used uninitialized in this function em-functional-stalin.c:44532: warning: `a2251' might be used uninitialized in this function em-functional-stalin.c:44533: warning: `a2252' might be used uninitialized in this function em-functional-stalin.c:44534: warning: `a2253' might be used uninitialized in this function em-functional-stalin.c:44535: warning: `a2254' might be used uninitialized in this function em-functional-stalin.c:44536: warning: `a2255' might be used uninitialized in this function em-functional-stalin.c:44537: warning: `a2256' might be used uninitialized in this function em-functional-stalin.c:44538: warning: `a2257' might be used uninitialized in this function em-functional-stalin.c:44539: warning: `a2258' might be used uninitialized in this function em-functional-stalin.c:44540: warning: `a2259' might be used uninitialized in this function em-functional-stalin.c:44541: warning: `a2260' might be used uninitialized in this function em-functional-stalin.c:44542: warning: `a2261' might be used uninitialized in this function em-functional-stalin.c:44543: warning: `a2262' might be used uninitialized in this function em-functional-stalin.c:44544: warning: `a2263' might be used uninitialized in this function em-functional-stalin.c:44545: warning: `a2264' might be used uninitialized in this function em-functional-stalin.c:44546: warning: `a2265' might be used uninitialized in this function em-functional-stalin.c:44547: warning: `a2266' might be used uninitialized in this function em-functional-stalin.c:44548: warning: `a2267' might be used uninitialized in this function em-functional-stalin.c:44549: warning: `a2268' might be used uninitialized in this function em-functional-stalin.c:44550: warning: `a2269' might be used uninitialized in this function em-functional-stalin.c:44551: warning: `a2270' might be used uninitialized in this function em-functional-stalin.c:44553: warning: `a2572' might be used uninitialized in this function em-functional-stalin.c:44554: warning: `a2575' might be used uninitialized in this function em-functional-stalin.c:44572: warning: `a2963' might be used uninitialized in this function em-functional-stalin.c:44575: warning: `a2966' might be used uninitialized in this function em-functional-stalin.c:44577: warning: `a2968' might be used uninitialized in this function em-functional-stalin.c:44580: warning: `a2971' might be used uninitialized in this function em-functional-stalin.c:44582: warning: `a2973' might be used uninitialized in this function em-functional-stalin.c:44585: warning: `a2976' might be used uninitialized in this function em-functional-stalin.c:44595: warning: `a3115' might be used uninitialized in this function em-functional-stalin.c:44601: warning: `a3162' might be used uninitialized in this function em-functional-stalin.c:44603: warning: `a3164' might be used uninitialized in this function em-functional-stalin.c:44605: warning: `a3166' might be used uninitialized in this function em-functional-stalin.c:44609: warning: `a3170' might be used uninitialized in this function em-functional-stalin.c:44611: warning: `a3172' might be used uninitialized in this function em-functional-stalin.c:44613: warning: `a3174' might be used uninitialized in this function em-functional-stalin.c:44617: warning: `a3219' might be used uninitialized in this function em-functional-stalin.c:44622: warning: `a3224' might be used uninitialized in this function em-functional-stalin.c:44628: warning: `a3230' might be used uninitialized in this function em-functional-stalin.c:44633: warning: `a3235' might be used uninitialized in this function em-functional-stalin.c:44635: warning: `a3237' might be used uninitialized in this function em-functional-stalin.c:44639: warning: `a3537' might be used uninitialized in this function em-functional-stalin.c:44641: warning: `a3539' might be used uninitialized in this function em-functional-stalin.c:44645: warning: `a3543' might be used uninitialized in this function em-functional-stalin.c:44647: warning: `a3545' might be used uninitialized in this function em-functional-stalin.c:44651: warning: `a3549' might be used uninitialized in this function em-functional-stalin.c:44653: warning: `a3551' might be used uninitialized in this function em-functional-stalin.c:44657: warning: `t6211' might be used uninitialized in this function em-functional-stalin.c:44658: warning: `t6212' might be used uninitialized in this function em-functional-stalin.c:44659: warning: `t6213' might be used uninitialized in this function em-functional-stalin.c:44660: warning: `t6214' might be used uninitialized in this function em-functional-stalin.c:44661: warning: `t6215' might be used uninitialized in this function em-functional-stalin.c:44662: warning: `t6216' might be used uninitialized in this function em-functional-stalin.c:44663: warning: `t6217' might be used uninitialized in this function em-functional-stalin.c:44664: warning: `t6218' might be used uninitialized in this function em-functional-stalin.c:44665: warning: `t6219' might be used uninitialized in this function em-functional-stalin.c:44667: warning: `t6221' might be used uninitialized in this function em-functional-stalin.c:44669: warning: `t6223' might be used uninitialized in this function em-functional-stalin.c:44670: warning: `t6224' might be used uninitialized in this function em-functional-stalin.c:44671: warning: `t6225' might be used uninitialized in this function em-functional-stalin.c:44672: warning: `t6226' might be used uninitialized in this function em-functional-stalin.c:44673: warning: `t6227' might be used uninitialized in this function em-functional-stalin.c:44674: warning: `t6228' might be used uninitialized in this function em-functional-stalin.c:44675: warning: `t6229' might be used uninitialized in this function em-functional-stalin.c:44676: warning: `t6230' might be used uninitialized in this function em-functional-stalin.c:44677: warning: `t6231' might be used uninitialized in this function em-functional-stalin.c:44678: warning: `t6232' might be used uninitialized in this function em-functional-stalin.c:44679: warning: `t6233' might be used uninitialized in this function em-functional-stalin.c:44680: warning: `t6234' might be used uninitialized in this function em-functional-stalin.c:44681: warning: `t6235' might be used uninitialized in this function em-functional-stalin.c:44682: warning: `t6236' might be used uninitialized in this function em-functional-stalin.c:44683: warning: `t6237' might be used uninitialized in this function em-functional-stalin.c:44684: warning: `t6238' might be used uninitialized in this function em-functional-stalin.c:44685: warning: `t6239' might be used uninitialized in this function em-functional-stalin.c:44686: warning: `t6240' might be used uninitialized in this function em-functional-stalin.c:44687: warning: `t6241' might be used uninitialized in this function em-functional-stalin.c:44688: warning: `t6242' might be used uninitialized in this function em-functional-stalin.c:44690: warning: `t6244' might be used uninitialized in this function em-functional-stalin.c:44691: warning: `t6245' might be used uninitialized in this function em-functional-stalin.c:44692: warning: `t6246' might be used uninitialized in this function em-functional-stalin.c:44693: warning: `t6247' might be used uninitialized in this function em-functional-stalin.c:44694: warning: `t6248' might be used uninitialized in this function em-functional-stalin.c:44695: warning: `t6249' might be used uninitialized in this function em-functional-stalin.c:44696: warning: `t6250' might be used uninitialized in this function em-functional-stalin.c:44697: warning: `t6251' might be used uninitialized in this function em-functional-stalin.c:44699: warning: `t6253' might be used uninitialized in this function em-functional-stalin.c:44700: warning: `t6254' might be used uninitialized in this function em-functional-stalin.c:44701: warning: `t6255' might be used uninitialized in this function em-functional-stalin.c:44702: warning: `t6256' might be used uninitialized in this function em-functional-stalin.c:44703: warning: `t6257' might be used uninitialized in this function em-functional-stalin.c:44704: warning: `t6258' might be used uninitialized in this function em-functional-stalin.c:44705: warning: `t6259' might be used uninitialized in this function em-functional-stalin.c:44706: warning: `t6260' might be used uninitialized in this function em-functional-stalin.c:44707: warning: `t6261' might be used uninitialized in this function em-functional-stalin.c:44708: warning: `t6262' might be used uninitialized in this function em-functional-stalin.c:44709: warning: `t6263' might be used uninitialized in this function em-functional-stalin.c:44711: warning: `t6265' might be used uninitialized in this function em-functional-stalin.c:44713: warning: `t6267' might be used uninitialized in this function em-functional-stalin.c:44714: warning: `t6268' might be used uninitialized in this function em-functional-stalin.c:44715: warning: `t6269' might be used uninitialized in this function em-functional-stalin.c:44716: warning: `t6270' might be used uninitialized in this function em-functional-stalin.c:44717: warning: `t6271' might be used uninitialized in this function em-functional-stalin.c:44718: warning: `t6272' might be used uninitialized in this function em-functional-stalin.c:44719: warning: `t6273' might be used uninitialized in this function em-functional-stalin.c:44720: warning: `t6274' might be used uninitialized in this function em-functional-stalin.c:44721: warning: `t6275' might be used uninitialized in this function em-functional-stalin.c:44722: warning: `t6276' might be used uninitialized in this function em-functional-stalin.c:44723: warning: `t6277' might be used uninitialized in this function em-functional-stalin.c:44724: warning: `t6278' might be used uninitialized in this function em-functional-stalin.c:44725: warning: `t6279' might be used uninitialized in this function em-functional-stalin.c:44726: warning: `t6280' might be used uninitialized in this function em-functional-stalin.c:44727: warning: `t6281' might be used uninitialized in this function em-functional-stalin.c:44728: warning: `t6282' might be used uninitialized in this function em-functional-stalin.c:44729: warning: `t6283' might be used uninitialized in this function em-functional-stalin.c:44730: warning: `t6284' might be used uninitialized in this function em-functional-stalin.c:44731: warning: `t6285' might be used uninitialized in this function em-functional-stalin.c:44732: warning: `t6286' might be used uninitialized in this function em-functional-stalin.c:44733: warning: `t6287' might be used uninitialized in this function em-functional-stalin.c:44734: warning: `t6288' might be used uninitialized in this function em-functional-stalin.c:44735: warning: `t6289' might be used uninitialized in this function em-functional-stalin.c:44737: warning: `t6291' might be used uninitialized in this function em-functional-stalin.c:44738: warning: `t6292' might be used uninitialized in this function em-functional-stalin.c:44739: warning: `t6293' might be used uninitialized in this function em-functional-stalin.c:44740: warning: `t6294' might be used uninitialized in this function em-functional-stalin.c:44741: warning: `t6295' might be used uninitialized in this function em-functional-stalin.c:44742: warning: `t6296' might be used uninitialized in this function em-functional-stalin.c:44743: warning: `t6297' might be used uninitialized in this function em-functional-stalin.c:44744: warning: `t6298' might be used uninitialized in this function em-functional-stalin.c:44745: warning: `t6299' might be used uninitialized in this function em-functional-stalin.c:44746: warning: `t6300' might be used uninitialized in this function em-functional-stalin.c:44747: warning: `t6301' might be used uninitialized in this function em-functional-stalin.c:44748: warning: `t6302' might be used uninitialized in this function em-functional-stalin.c:44749: warning: `t6303' might be used uninitialized in this function em-functional-stalin.c:44750: warning: `t6304' might be used uninitialized in this function em-functional-stalin.c:44751: warning: `t6305' might be used uninitialized in this function em-functional-stalin.c:44752: warning: `t6306' might be used uninitialized in this function em-functional-stalin.c:44753: warning: `t6307' might be used uninitialized in this function em-functional-stalin.c:44754: warning: `t6308' might be used uninitialized in this function em-functional-stalin.c:44755: warning: `t6309' might be used uninitialized in this function em-functional-stalin.c:44756: warning: `t6310' might be used uninitialized in this function em-functional-stalin.c:44757: warning: `t6311' might be used uninitialized in this function em-functional-stalin.c:44758: warning: `t6312' might be used uninitialized in this function em-functional-stalin.c:44759: warning: `t6313' might be used uninitialized in this function em-functional-stalin.c:44760: warning: `t6314' might be used uninitialized in this function em-functional-stalin.c:44761: warning: `t6315' might be used uninitialized in this function em-functional-stalin.c:44763: warning: `t6317' might be used uninitialized in this function em-functional-stalin.c:44764: warning: `t6318' might be used uninitialized in this function em-functional-stalin.c:44765: warning: `t6319' might be used uninitialized in this function em-functional-stalin.c:44766: warning: `t6320' might be used uninitialized in this function em-functional-stalin.c:44767: warning: `t6321' might be used uninitialized in this function em-functional-stalin.c:44768: warning: `t6322' might be used uninitialized in this function em-functional-stalin.c:44769: warning: `t6323' might be used uninitialized in this function em-functional-stalin.c:44770: warning: `t6324' might be used uninitialized in this function em-functional-stalin.c:44771: warning: `t6325' might be used uninitialized in this function em-functional-stalin.c:44772: warning: `t6326' might be used uninitialized in this function em-functional-stalin.c:44773: warning: `t6327' might be used uninitialized in this function em-functional-stalin.c:44775: warning: `t6329' might be used uninitialized in this function em-functional-stalin.c:44776: warning: `t6330' might be used uninitialized in this function em-functional-stalin.c:44778: warning: `t6332' might be used uninitialized in this function em-functional-stalin.c:44782: warning: `t6336' might be used uninitialized in this function em-functional-stalin.c:44784: warning: `t6338' might be used uninitialized in this function em-functional-stalin.c:44785: warning: `t6339' might be used uninitialized in this function em-functional-stalin.c:44786: warning: `t6340' might be used uninitialized in this function em-functional-stalin.c:44787: warning: `t6341' might be used uninitialized in this function em-functional-stalin.c:44788: warning: `t6342' might be used uninitialized in this function em-functional-stalin.c:44789: warning: `t6343' might be used uninitialized in this function em-functional-stalin.c:44790: warning: `t6344' might be used uninitialized in this function em-functional-stalin.c:44791: warning: `t6345' might be used uninitialized in this function em-functional-stalin.c:44792: warning: `t6346' might be used uninitialized in this function em-functional-stalin.c:44793: warning: `t6347' might be used uninitialized in this function em-functional-stalin.c:44794: warning: `t6348' might be used uninitialized in this function em-functional-stalin.c:44795: warning: `t6349' might be used uninitialized in this function em-functional-stalin.c:44796: warning: `t6350' might be used uninitialized in this function em-functional-stalin.c:44797: warning: `t6351' might be used uninitialized in this function em-functional-stalin.c:44798: warning: `t6352' might be used uninitialized in this function em-functional-stalin.c:44799: warning: `t6353' might be used uninitialized in this function em-functional-stalin.c:44800: warning: `t6354' might be used uninitialized in this function em-functional-stalin.c:44801: warning: `t6355' might be used uninitialized in this function em-functional-stalin.c:44802: warning: `t6356' might be used uninitialized in this function em-functional-stalin.c:44803: warning: `t6357' might be used uninitialized in this function em-functional-stalin.c:44804: warning: `t6358' might be used uninitialized in this function em-functional-stalin.c:44805: warning: `t6359' might be used uninitialized in this function em-functional-stalin.c:44806: warning: `t6360' might be used uninitialized in this function em-functional-stalin.c:44807: warning: `t6361' might be used uninitialized in this function em-functional-stalin.c:44808: warning: `t6362' might be used uninitialized in this function em-functional-stalin.c:44809: warning: `t6363' might be used uninitialized in this function em-functional-stalin.c:44810: warning: `t6364' might be used uninitialized in this function em-functional-stalin.c:44811: warning: `t6365' might be used uninitialized in this function em-functional-stalin.c:44812: warning: `t6366' might be used uninitialized in this function em-functional-stalin.c:44813: warning: `t6367' might be used uninitialized in this function em-functional-stalin.c:44814: warning: `t6368' might be used uninitialized in this function em-functional-stalin.c:44815: warning: `t6369' might be used uninitialized in this function em-functional-stalin.c:44816: warning: `t6370' might be used uninitialized in this function em-functional-stalin.c:44817: warning: `t6371' might be used uninitialized in this function em-functional-stalin.c:44818: warning: `t6372' might be used uninitialized in this function em-functional-stalin.c:44819: warning: `t6373' might be used uninitialized in this function em-functional-stalin.c:44821: warning: `t6375' might be used uninitialized in this function em-functional-stalin.c:44822: warning: `t6376' might be used uninitialized in this function em-functional-stalin.c:44823: warning: `t6377' might be used uninitialized in this function em-functional-stalin.c:44824: warning: `t6378' might be used uninitialized in this function em-functional-stalin.c:44825: warning: `t6379' might be used uninitialized in this function em-functional-stalin.c:44826: warning: `t6380' might be used uninitialized in this function em-functional-stalin.c:44827: warning: `t6381' might be used uninitialized in this function em-functional-stalin.c:44829: warning: `t6383' might be used uninitialized in this function em-functional-stalin.c:44830: warning: `t6384' might be used uninitialized in this function em-functional-stalin.c:44831: warning: `t6385' might be used uninitialized in this function em-functional-stalin.c:44832: warning: `t6386' might be used uninitialized in this function em-functional-stalin.c:44833: warning: `t6387' might be used uninitialized in this function em-functional-stalin.c:44834: warning: `t6388' might be used uninitialized in this function em-functional-stalin.c:44835: warning: `t6389' might be used uninitialized in this function em-functional-stalin.c:44836: warning: `t6390' might be used uninitialized in this function em-functional-stalin.c:44837: warning: `t6391' might be used uninitialized in this function em-functional-stalin.c:44838: warning: `t6392' might be used uninitialized in this function em-functional-stalin.c:44839: warning: `t6393' might be used uninitialized in this function em-functional-stalin.c:44840: warning: `t6394' might be used uninitialized in this function em-functional-stalin.c:44841: warning: `t6395' might be used uninitialized in this function em-functional-stalin.c:44842: warning: `t6396' might be used uninitialized in this function em-functional-stalin.c:44843: warning: `t6397' might be used uninitialized in this function em-functional-stalin.c:44844: warning: `t6398' might be used uninitialized in this function em-functional-stalin.c:44845: warning: `t6399' might be used uninitialized in this function em-functional-stalin.c:44846: warning: `t6400' might be used uninitialized in this function em-functional-stalin.c:44847: warning: `t6401' might be used uninitialized in this function em-functional-stalin.c:44848: warning: `t6402' might be used uninitialized in this function em-functional-stalin.c:44849: warning: `t6403' might be used uninitialized in this function em-functional-stalin.c:44850: warning: `t6404' might be used uninitialized in this function em-functional-stalin.c:44851: warning: `t6405' might be used uninitialized in this function em-functional-stalin.c:44852: warning: `t6406' might be used uninitialized in this function em-functional-stalin.c:44853: warning: `t6407' might be used uninitialized in this function em-functional-stalin.c:44854: warning: `t6408' might be used uninitialized in this function em-functional-stalin.c:44855: warning: `t6409' might be used uninitialized in this function em-functional-stalin.c:44856: warning: `t6410' might be used uninitialized in this function em-functional-stalin.c:44858: warning: `t6412' might be used uninitialized in this function em-functional-stalin.c:44859: warning: `t6413' might be used uninitialized in this function em-functional-stalin.c:44860: warning: `t6414' might be used uninitialized in this function em-functional-stalin.c:44863: warning: `t6417' might be used uninitialized in this function em-functional-stalin.c:44864: warning: `t6418' might be used uninitialized in this function em-functional-stalin.c:44865: warning: `t6419' might be used uninitialized in this function em-functional-stalin.c:44866: warning: `t6420' might be used uninitialized in this function em-functional-stalin.c:44868: warning: `t6422' might be used uninitialized in this function em-functional-stalin.c:44869: warning: `t6423' might be used uninitialized in this function em-functional-stalin.c:45408: warning: `t7279' might be used uninitialized in this function em-functional-stalin.c:45527: warning: `t7436' might be used uninitialized in this function em-functional-stalin.c:45816: warning: `t7826' might be used uninitialized in this function 272.36user 3.30system 6:26.23elapsed 71%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (37292major+1019492minor)pagefaults 0swaps compile em-imperative (STATIC-COUNTS 2807 2807 2807 2807 0 0 0 2807 2761 1543 273 639 75 187 2.299615877080666 5239 5239 584 384) em-imperative-stalin.c: In function `f2003': em-imperative-stalin.c:6943: warning: `a2397' might be used uninitialized in this function em-imperative-stalin.c:6945: warning: `a2399' might be used uninitialized in this function em-imperative-stalin.c:6949: warning: `a2403' might be used uninitialized in this function em-imperative-stalin.c:6952: warning: `a2419' might be used uninitialized in this function em-imperative-stalin.c:6954: warning: `a2421' might be used uninitialized in this function em-imperative-stalin.c:6956: warning: `a2423' might be used uninitialized in this function em-imperative-stalin.c:6957: warning: `a2424' might be used uninitialized in this function em-imperative-stalin.c:6958: warning: `a2425' might be used uninitialized in this function em-imperative-stalin.c:6959: warning: `a2426' might be used uninitialized in this function em-imperative-stalin.c:6960: warning: `a2427' might be used uninitialized in this function em-imperative-stalin.c:6961: warning: `a2428' might be used uninitialized in this function em-imperative-stalin.c:6962: warning: `a2429' might be used uninitialized in this function em-imperative-stalin.c:6963: warning: `a2430' might be used uninitialized in this function em-imperative-stalin.c:6964: warning: `a2431' might be used uninitialized in this function em-imperative-stalin.c:6966: warning: `a2433' might be used uninitialized in this function em-imperative-stalin.c:6968: warning: `a2435' might be used uninitialized in this function em-imperative-stalin.c:6969: warning: `a2436' might be used uninitialized in this function em-imperative-stalin.c: In function `f1965': em-imperative-stalin.c:7925: warning: `a2384' might be used uninitialized in this function em-imperative-stalin.c:7926: warning: `a2385' might be used uninitialized in this function em-imperative-stalin.c:7927: warning: `a2386' might be used uninitialized in this function em-imperative-stalin.c:7928: warning: `a2387' might be used uninitialized in this function em-imperative-stalin.c:7930: warning: `a2389' might be used uninitialized in this function em-imperative-stalin.c:7934: warning: `a2393' might be used uninitialized in this function em-imperative-stalin.c: In function `f1936': em-imperative-stalin.c:8376: warning: `a2361' might be used uninitialized in this function em-imperative-stalin.c:8380: warning: `a2365' might be used uninitialized in this function em-imperative-stalin.c:8382: warning: `a2367' might be used uninitialized in this function em-imperative-stalin.c:8383: warning: `a2368' might be used uninitialized in this function em-imperative-stalin.c:8384: warning: `a2369' might be used uninitialized in this function em-imperative-stalin.c:8386: warning: `a2371' might be used uninitialized in this function em-imperative-stalin.c:8390: warning: `a2375' might be used uninitialized in this function em-imperative-stalin.c:8392: warning: `a2377' might be used uninitialized in this function em-imperative-stalin.c:8393: warning: `a2378' might be used uninitialized in this function em-imperative-stalin.c: In function `f1927': em-imperative-stalin.c:8924: warning: `a2355' might be used uninitialized in this function em-imperative-stalin.c:8926: warning: `a2357' might be used uninitialized in this function em-imperative-stalin.c: In function `f992': em-imperative-stalin.c:9155: warning: unused variable `e993' em-imperative-stalin.c:9143: warning: unused variable `a1545' em-imperative-stalin.c: In function `f833': em-imperative-stalin.c:9182: warning: `a2753' might be used uninitialized in this function em-imperative-stalin.c:9183: warning: `a2754' might be used uninitialized in this function em-imperative-stalin.c: In function `f483': em-imperative-stalin.c:11465: warning: unused variable `e2749' em-imperative-stalin.c:11195: warning: unused variable `e70' em-imperative-stalin.c:9648: warning: unused variable `a2794' em-imperative-stalin.c:9288: warning: unused variable `a812' em-imperative-stalin.c:9286: warning: `a810' might be used uninitialized in this function em-imperative-stalin.c:9292: warning: `a816' might be used uninitialized in this function em-imperative-stalin.c:9298: warning: `a833' might be used uninitialized in this function em-imperative-stalin.c:9300: warning: `a835' might be used uninitialized in this function em-imperative-stalin.c:9302: warning: `a837' might be used uninitialized in this function em-imperative-stalin.c:9308: warning: `a872' might be used uninitialized in this function em-imperative-stalin.c:9313: warning: `a877' might be used uninitialized in this function em-imperative-stalin.c:9314: warning: `a878' might be used uninitialized in this function em-imperative-stalin.c:9316: warning: `a880' might be used uninitialized in this function em-imperative-stalin.c:9318: warning: `a882' might be used uninitialized in this function em-imperative-stalin.c:9320: warning: `a884' might be used uninitialized in this function em-imperative-stalin.c:9322: warning: `a886' might be used uninitialized in this function em-imperative-stalin.c:9324: warning: `a888' might be used uninitialized in this function em-imperative-stalin.c:9326: warning: `a890' might be used uninitialized in this function em-imperative-stalin.c:9329: warning: `a893' might be used uninitialized in this function em-imperative-stalin.c:9330: warning: `a894' might be used uninitialized in this function em-imperative-stalin.c:9331: warning: `a895' might be used uninitialized in this function em-imperative-stalin.c:9333: warning: `a897' might be used uninitialized in this function em-imperative-stalin.c:9334: warning: `a898' might be used uninitialized in this function em-imperative-stalin.c:9336: warning: `a900' might be used uninitialized in this function em-imperative-stalin.c:9338: warning: `a902' might be used uninitialized in this function em-imperative-stalin.c:9341: warning: `a905' might be used uninitialized in this function em-imperative-stalin.c:9343: warning: `a907' might be used uninitialized in this function em-imperative-stalin.c:9345: warning: `a909' might be used uninitialized in this function em-imperative-stalin.c:9347: warning: `a911' might be used uninitialized in this function em-imperative-stalin.c:9349: warning: `a913' might be used uninitialized in this function em-imperative-stalin.c:9351: warning: `a915' might be used uninitialized in this function em-imperative-stalin.c:9353: warning: `a917' might be used uninitialized in this function em-imperative-stalin.c:9355: warning: `a919' might be used uninitialized in this function em-imperative-stalin.c:9356: warning: `a920' might be used uninitialized in this function em-imperative-stalin.c:9359: warning: `a923' might be used uninitialized in this function em-imperative-stalin.c:9362: warning: `a926' might be used uninitialized in this function em-imperative-stalin.c:9363: warning: `a927' might be used uninitialized in this function em-imperative-stalin.c:9365: warning: `a929' might be used uninitialized in this function em-imperative-stalin.c:9367: warning: `a931' might be used uninitialized in this function em-imperative-stalin.c:9368: warning: `a932' might be used uninitialized in this function em-imperative-stalin.c:9370: warning: `a934' might be used uninitialized in this function em-imperative-stalin.c:9372: warning: `a936' might be used uninitialized in this function em-imperative-stalin.c:9374: warning: `a938' might be used uninitialized in this function em-imperative-stalin.c:9375: warning: `a939' might be used uninitialized in this function em-imperative-stalin.c:9376: warning: `a940' might be used uninitialized in this function em-imperative-stalin.c:9378: warning: `a942' might be used uninitialized in this function em-imperative-stalin.c:9380: warning: `a944' might be used uninitialized in this function em-imperative-stalin.c:9382: warning: `a946' might be used uninitialized in this function em-imperative-stalin.c:9384: warning: `a948' might be used uninitialized in this function em-imperative-stalin.c:9386: warning: `a950' might be used uninitialized in this function em-imperative-stalin.c:9389: warning: `a953' might be used uninitialized in this function em-imperative-stalin.c:9391: warning: `a955' might be used uninitialized in this function em-imperative-stalin.c:9392: warning: `a956' might be used uninitialized in this function em-imperative-stalin.c:9394: warning: `a958' might be used uninitialized in this function em-imperative-stalin.c:9396: warning: `a960' might be used uninitialized in this function em-imperative-stalin.c:9397: warning: `a961' might be used uninitialized in this function em-imperative-stalin.c:9399: warning: `a963' might be used uninitialized in this function em-imperative-stalin.c:9401: warning: `a965' might be used uninitialized in this function em-imperative-stalin.c:9403: warning: `a967' might be used uninitialized in this function em-imperative-stalin.c:9405: warning: `a969' might be used uninitialized in this function em-imperative-stalin.c:9406: warning: `a970' might be used uninitialized in this function em-imperative-stalin.c:9408: warning: `a972' might be used uninitialized in this function em-imperative-stalin.c:9410: warning: `a974' might be used uninitialized in this function em-imperative-stalin.c:9412: warning: `a976' might be used uninitialized in this function em-imperative-stalin.c:9418: warning: `a982' might be used uninitialized in this function em-imperative-stalin.c:9419: warning: `a983' might be used uninitialized in this function em-imperative-stalin.c:9420: warning: `a984' might be used uninitialized in this function em-imperative-stalin.c:9422: warning: `a986' might be used uninitialized in this function em-imperative-stalin.c:9424: warning: `a988' might be used uninitialized in this function em-imperative-stalin.c:9425: warning: `a989' might be used uninitialized in this function em-imperative-stalin.c:9426: warning: `a990' might be used uninitialized in this function em-imperative-stalin.c:9428: warning: `a992' might be used uninitialized in this function em-imperative-stalin.c:9430: warning: `a994' might be used uninitialized in this function em-imperative-stalin.c:9432: warning: `a996' might be used uninitialized in this function em-imperative-stalin.c:9433: warning: `a997' might be used uninitialized in this function em-imperative-stalin.c:9436: warning: `a1000' might be used uninitialized in this function em-imperative-stalin.c:9438: warning: `a1002' might be used uninitialized in this function em-imperative-stalin.c:9440: warning: `a1004' might be used uninitialized in this function em-imperative-stalin.c:9442: warning: `a1006' might be used uninitialized in this function em-imperative-stalin.c:9451: warning: `a1015' might be used uninitialized in this function em-imperative-stalin.c:9452: warning: `a1016' might be used uninitialized in this function em-imperative-stalin.c:9453: warning: `a1017' might be used uninitialized in this function em-imperative-stalin.c:9454: warning: `a1018' might be used uninitialized in this function em-imperative-stalin.c:9455: warning: `a1019' might be used uninitialized in this function em-imperative-stalin.c:9456: warning: `a1020' might be used uninitialized in this function em-imperative-stalin.c:9457: warning: `a1021' might be used uninitialized in this function em-imperative-stalin.c:9459: warning: `a1023' might be used uninitialized in this function em-imperative-stalin.c:9461: warning: `a1025' might be used uninitialized in this function em-imperative-stalin.c:9462: warning: `a1026' might be used uninitialized in this function em-imperative-stalin.c:9465: warning: `a1037' might be used uninitialized in this function em-imperative-stalin.c:9467: warning: `a1039' might be used uninitialized in this function em-imperative-stalin.c:9468: warning: `a1040' might be used uninitialized in this function em-imperative-stalin.c:9469: warning: `a1041' might be used uninitialized in this function em-imperative-stalin.c:9474: warning: `a1046' might be used uninitialized in this function em-imperative-stalin.c:9476: warning: `a1048' might be used uninitialized in this function em-imperative-stalin.c:9479: warning: `a1051' might be used uninitialized in this function em-imperative-stalin.c:9480: warning: `a1052' might be used uninitialized in this function em-imperative-stalin.c:9481: warning: `a1053' might be used uninitialized in this function em-imperative-stalin.c:9483: warning: `a1055' might be used uninitialized in this function em-imperative-stalin.c:9485: warning: `a1057' might be used uninitialized in this function em-imperative-stalin.c:9487: warning: `a1059' might be used uninitialized in this function em-imperative-stalin.c:9489: warning: `a1061' might be used uninitialized in this function em-imperative-stalin.c:9491: warning: `a1063' might be used uninitialized in this function em-imperative-stalin.c:9493: warning: `a1065' might be used uninitialized in this function em-imperative-stalin.c:9502: warning: `a1074' might be used uninitialized in this function em-imperative-stalin.c:9504: warning: `a1076' might be used uninitialized in this function em-imperative-stalin.c:9508: warning: `a1080' might be used uninitialized in this function em-imperative-stalin.c:9510: warning: `a1082' might be used uninitialized in this function em-imperative-stalin.c:9513: warning: `a1085' might be used uninitialized in this function em-imperative-stalin.c:9515: warning: `a1087' might be used uninitialized in this function em-imperative-stalin.c:9517: warning: `a1089' might be used uninitialized in this function em-imperative-stalin.c:9519: warning: `a1144' might be used uninitialized in this function em-imperative-stalin.c:9520: warning: `a1145' might be used uninitialized in this function em-imperative-stalin.c:9522: warning: `a1147' might be used uninitialized in this function em-imperative-stalin.c:9527: warning: `a1152' might be used uninitialized in this function em-imperative-stalin.c:9528: warning: `a1153' might be used uninitialized in this function em-imperative-stalin.c:9529: warning: `a1154' might be used uninitialized in this function em-imperative-stalin.c:9530: warning: `a1155' might be used uninitialized in this function em-imperative-stalin.c:9531: warning: `a1156' might be used uninitialized in this function em-imperative-stalin.c:9532: warning: `a1157' might be used uninitialized in this function em-imperative-stalin.c:9533: warning: `a1158' might be used uninitialized in this function em-imperative-stalin.c:9535: warning: `a1160' might be used uninitialized in this function em-imperative-stalin.c:9537: warning: `a1162' might be used uninitialized in this function em-imperative-stalin.c:9540: warning: `a1165' might be used uninitialized in this function em-imperative-stalin.c:9542: warning: `a1167' might be used uninitialized in this function em-imperative-stalin.c:9544: warning: `a1169' might be used uninitialized in this function em-imperative-stalin.c:9546: warning: `a1171' might be used uninitialized in this function em-imperative-stalin.c:9548: warning: `a1173' might be used uninitialized in this function em-imperative-stalin.c:9551: warning: `a1176' might be used uninitialized in this function em-imperative-stalin.c:9553: warning: `a1178' might be used uninitialized in this function em-imperative-stalin.c:9557: warning: `a1182' might be used uninitialized in this function em-imperative-stalin.c:9559: warning: `a1184' might be used uninitialized in this function em-imperative-stalin.c:9562: warning: `a1187' might be used uninitialized in this function em-imperative-stalin.c:9564: warning: `a1189' might be used uninitialized in this function em-imperative-stalin.c:9566: warning: `a1191' might be used uninitialized in this function em-imperative-stalin.c:9646: warning: `a2792' might be used uninitialized in this function em-imperative-stalin.c:9652: warning: `a2798' might be used uninitialized in this function em-imperative-stalin.c:9687: warning: `t680' might be used uninitialized in this function em-imperative-stalin.c:10793: warning: `t2156' might be used uninitialized in this function em-imperative-stalin.c:10898: warning: `t2295' might be used uninitialized in this function em-imperative-stalin.c: In function `f418': em-imperative-stalin.c:19667: warning: `a1093' might be used uninitialized in this function em-imperative-stalin.c:19669: warning: `a1095' might be used uninitialized in this function em-imperative-stalin.c:19670: warning: `a1096' might be used uninitialized in this function em-imperative-stalin.c:19671: warning: `a1097' might be used uninitialized in this function em-imperative-stalin.c:19673: warning: `a1099' might be used uninitialized in this function em-imperative-stalin.c:19676: warning: `a1102' might be used uninitialized in this function em-imperative-stalin.c:19677: warning: `a1103' might be used uninitialized in this function em-imperative-stalin.c:19679: warning: `a1105' might be used uninitialized in this function em-imperative-stalin.c:19681: warning: `a1107' might be used uninitialized in this function em-imperative-stalin.c:19683: warning: `a1109' might be used uninitialized in this function em-imperative-stalin.c:19685: warning: `a1111' might be used uninitialized in this function em-imperative-stalin.c:19686: warning: `a1112' might be used uninitialized in this function em-imperative-stalin.c:19687: warning: `a1113' might be used uninitialized in this function em-imperative-stalin.c:19689: warning: `a1115' might be used uninitialized in this function em-imperative-stalin.c:19693: warning: `a1119' might be used uninitialized in this function em-imperative-stalin.c:19695: warning: `a1121' might be used uninitialized in this function em-imperative-stalin.c:19702: warning: `a1128' might be used uninitialized in this function em-imperative-stalin.c:19703: warning: `a1129' might be used uninitialized in this function em-imperative-stalin.c:19705: warning: `a1131' might be used uninitialized in this function em-imperative-stalin.c:19707: warning: `a1133' might be used uninitialized in this function em-imperative-stalin.c:19710: warning: `a1136' might be used uninitialized in this function em-imperative-stalin.c:19712: warning: `a1138' might be used uninitialized in this function em-imperative-stalin.c: In function `f332': em-imperative-stalin.c:21155: warning: `a1034' might be used uninitialized in this function em-imperative-stalin.c: In function `f113': em-imperative-stalin.c:21364: warning: `a2760' might be used uninitialized in this function em-imperative-stalin.c:21366: warning: `a2762' might be used uninitialized in this function em-imperative-stalin.c:21368: warning: `a2764' might be used uninitialized in this function em-imperative-stalin.c:21390: warning: `t3088' might be used uninitialized in this function em-imperative-stalin.c: In function `f38': em-imperative-stalin.c:21572: warning: `a789' might be used uninitialized in this function em-imperative-stalin.c:21573: warning: `a790' might be used uninitialized in this function em-imperative-stalin.c: In function `f15': em-imperative-stalin.c:21892: warning: unused variable `p1084' em-imperative-stalin.c:21889: warning: unused variable `p1078' em-imperative-stalin.c:21878: warning: unused variable `e1084' em-imperative-stalin.c:21873: warning: unused variable `e1078' em-imperative-stalin.c:21793: warning: unused variable `a1645' em-imperative-stalin.c:21784: warning: unused variable `a1636' em-imperative-stalin.c:21772: warning: `a770' might be used uninitialized in this function em-imperative-stalin.c:21773: warning: `a771' might be used uninitialized in this function em-imperative-stalin.c:21778: warning: `a1630' might be used uninitialized in this function em-imperative-stalin.c:21780: warning: `a1632' might be used uninitialized in this function em-imperative-stalin.c:21783: warning: `a1635' might be used uninitialized in this function em-imperative-stalin.c:21787: warning: `a1639' might be used uninitialized in this function em-imperative-stalin.c:21789: warning: `a1641' might be used uninitialized in this function em-imperative-stalin.c:21792: warning: `a1644' might be used uninitialized in this function em-imperative-stalin.c:21798: warning: `a1900' might be used uninitialized in this function em-imperative-stalin.c: In function `f0': em-imperative-stalin.c:24550: warning: unused variable `e665' em-imperative-stalin.c:24549: warning: unused variable `e664' em-imperative-stalin.c:24548: warning: unused variable `e663' em-imperative-stalin.c:24510: warning: unused variable `e555' em-imperative-stalin.c:24508: warning: unused variable `e552' em-imperative-stalin.c:23136: warning: unused variable `a1262' em-imperative-stalin.c:23135: warning: unused variable `a1261' em-imperative-stalin.c:23134: warning: unused variable `a1260' em-imperative-stalin.c:23081: warning: unused variable `a1205' em-imperative-stalin.c:23079: warning: unused variable `a1203' em-imperative-stalin.c:22257: warning: `a1' might be used uninitialized in this function em-imperative-stalin.c:22258: warning: `a2' might be used uninitialized in this function em-imperative-stalin.c:22259: warning: `a3' might be used uninitialized in this function em-imperative-stalin.c:22260: warning: `a4' might be used uninitialized in this function em-imperative-stalin.c:22261: warning: `a5' might be used uninitialized in this function em-imperative-stalin.c:22262: warning: `a6' might be used uninitialized in this function em-imperative-stalin.c:22263: warning: `a7' might be used uninitialized in this function em-imperative-stalin.c:22264: warning: `a8' might be used uninitialized in this function em-imperative-stalin.c:22265: warning: `a9' might be used uninitialized in this function em-imperative-stalin.c:22266: warning: `a10' might be used uninitialized in this function em-imperative-stalin.c:22267: warning: `a11' might be used uninitialized in this function em-imperative-stalin.c:22268: warning: `a12' might be used uninitialized in this function em-imperative-stalin.c:22269: warning: `a13' might be used uninitialized in this function em-imperative-stalin.c:22270: warning: `a14' might be used uninitialized in this function em-imperative-stalin.c:22271: warning: `a15' might be used uninitialized in this function em-imperative-stalin.c:22272: warning: `a16' might be used uninitialized in this function em-imperative-stalin.c:22273: warning: `a17' might be used uninitialized in this function em-imperative-stalin.c:22274: warning: `a18' might be used uninitialized in this function em-imperative-stalin.c:22275: warning: `a19' might be used uninitialized in this function em-imperative-stalin.c:22276: warning: `a20' might be used uninitialized in this function em-imperative-stalin.c:22277: warning: `a21' might be used uninitialized in this function em-imperative-stalin.c:22278: warning: `a22' might be used uninitialized in this function em-imperative-stalin.c:22279: warning: `a23' might be used uninitialized in this function em-imperative-stalin.c:22280: warning: `a24' might be used uninitialized in this function em-imperative-stalin.c:22281: warning: `a25' might be used uninitialized in this function em-imperative-stalin.c:22282: warning: `a26' might be used uninitialized in this function em-imperative-stalin.c:22283: warning: `a27' might be used uninitialized in this function em-imperative-stalin.c:22284: warning: `a28' might be used uninitialized in this function em-imperative-stalin.c:22285: warning: `a29' might be used uninitialized in this function em-imperative-stalin.c:22286: warning: `a30' might be used uninitialized in this function em-imperative-stalin.c:22287: warning: `a31' might be used uninitialized in this function em-imperative-stalin.c:22288: warning: `a32' might be used uninitialized in this function em-imperative-stalin.c:22289: warning: `a33' might be used uninitialized in this function em-imperative-stalin.c:22290: warning: `a34' might be used uninitialized in this function em-imperative-stalin.c:22291: warning: `a35' might be used uninitialized in this function em-imperative-stalin.c:22292: warning: `a36' might be used uninitialized in this function em-imperative-stalin.c:22293: warning: `a37' might be used uninitialized in this function em-imperative-stalin.c:22294: warning: `a38' might be used uninitialized in this function em-imperative-stalin.c:22295: warning: `a39' might be used uninitialized in this function em-imperative-stalin.c:22296: warning: `a40' might be used uninitialized in this function em-imperative-stalin.c:22297: warning: `a41' might be used uninitialized in this function em-imperative-stalin.c:22298: warning: `a42' might be used uninitialized in this function em-imperative-stalin.c:22299: warning: `a43' might be used uninitialized in this function em-imperative-stalin.c:22300: warning: `a44' might be used uninitialized in this function em-imperative-stalin.c:22301: warning: `a45' might be used uninitialized in this function em-imperative-stalin.c:22302: warning: `a46' might be used uninitialized in this function em-imperative-stalin.c:22303: warning: `a47' might be used uninitialized in this function em-imperative-stalin.c:22304: warning: `a48' might be used uninitialized in this function em-imperative-stalin.c:22305: warning: `a49' might be used uninitialized in this function em-imperative-stalin.c:22306: warning: `a50' might be used uninitialized in this function em-imperative-stalin.c:22307: warning: `a51' might be used uninitialized in this function em-imperative-stalin.c:22308: warning: `a52' might be used uninitialized in this function em-imperative-stalin.c:22309: warning: `a53' might be used uninitialized in this function em-imperative-stalin.c:22310: warning: `a54' might be used uninitialized in this function em-imperative-stalin.c:22311: warning: `a55' might be used uninitialized in this function em-imperative-stalin.c:22312: warning: `a56' might be used uninitialized in this function em-imperative-stalin.c:22313: warning: `a57' might be used uninitialized in this function em-imperative-stalin.c:22314: warning: `a58' might be used uninitialized in this function em-imperative-stalin.c:22315: warning: `a59' might be used uninitialized in this function em-imperative-stalin.c:22316: warning: `a60' might be used uninitialized in this function em-imperative-stalin.c:22317: warning: `a61' might be used uninitialized in this function em-imperative-stalin.c:22318: warning: `a62' might be used uninitialized in this function em-imperative-stalin.c:22319: warning: `a63' might be used uninitialized in this function em-imperative-stalin.c:22320: warning: `a64' might be used uninitialized in this function em-imperative-stalin.c:22321: warning: `a65' might be used uninitialized in this function em-imperative-stalin.c:22322: warning: `a66' might be used uninitialized in this function em-imperative-stalin.c:22323: warning: `a67' might be used uninitialized in this function em-imperative-stalin.c:22324: warning: `a68' might be used uninitialized in this function em-imperative-stalin.c:22325: warning: `a69' might be used uninitialized in this function em-imperative-stalin.c:22326: warning: `a70' might be used uninitialized in this function em-imperative-stalin.c:22327: warning: `a71' might be used uninitialized in this function em-imperative-stalin.c:22328: warning: `a72' might be used uninitialized in this function em-imperative-stalin.c:22329: warning: `a73' might be used uninitialized in this function em-imperative-stalin.c:22330: warning: `a74' might be used uninitialized in this function em-imperative-stalin.c:22331: warning: `a75' might be used uninitialized in this function em-imperative-stalin.c:22332: warning: `a76' might be used uninitialized in this function em-imperative-stalin.c:22333: warning: `a77' might be used uninitialized in this function em-imperative-stalin.c:22334: warning: `a78' might be used uninitialized in this function em-imperative-stalin.c:22335: warning: `a79' might be used uninitialized in this function em-imperative-stalin.c:22336: warning: `a80' might be used uninitialized in this function em-imperative-stalin.c:22337: warning: `a81' might be used uninitialized in this function em-imperative-stalin.c:22338: warning: `a82' might be used uninitialized in this function em-imperative-stalin.c:22339: warning: `a83' might be used uninitialized in this function em-imperative-stalin.c:22340: warning: `a84' might be used uninitialized in this function em-imperative-stalin.c:22341: warning: `a85' might be used uninitialized in this function em-imperative-stalin.c:22342: warning: `a86' might be used uninitialized in this function em-imperative-stalin.c:22343: warning: `a87' might be used uninitialized in this function em-imperative-stalin.c:22344: warning: `a88' might be used uninitialized in this function em-imperative-stalin.c:22345: warning: `a89' might be used uninitialized in this function em-imperative-stalin.c:22346: warning: `a90' might be used uninitialized in this function em-imperative-stalin.c:22347: warning: `a91' might be used uninitialized in this function em-imperative-stalin.c:22348: warning: `a92' might be used uninitialized in this function em-imperative-stalin.c:22349: warning: `a93' might be used uninitialized in this function em-imperative-stalin.c:22350: warning: `a94' might be used uninitialized in this function em-imperative-stalin.c:22351: warning: `a95' might be used uninitialized in this function em-imperative-stalin.c:22352: warning: `a96' might be used uninitialized in this function em-imperative-stalin.c:22353: warning: `a97' might be used uninitialized in this function em-imperative-stalin.c:22354: warning: `a98' might be used uninitialized in this function em-imperative-stalin.c:22355: warning: `a99' might be used uninitialized in this function em-imperative-stalin.c:22356: warning: `a100' might be used uninitialized in this function em-imperative-stalin.c:22357: warning: `a101' might be used uninitialized in this function em-imperative-stalin.c:22358: warning: `a102' might be used uninitialized in this function em-imperative-stalin.c:22359: warning: `a103' might be used uninitialized in this function em-imperative-stalin.c:22360: warning: `a104' might be used uninitialized in this function em-imperative-stalin.c:22361: warning: `a105' might be used uninitialized in this function em-imperative-stalin.c:22362: warning: `a106' might be used uninitialized in this function em-imperative-stalin.c:22363: warning: `a107' might be used uninitialized in this function em-imperative-stalin.c:22364: warning: `a108' might be used uninitialized in this function em-imperative-stalin.c:22365: warning: `a109' might be used uninitialized in this function em-imperative-stalin.c:22366: warning: `a110' might be used uninitialized in this function em-imperative-stalin.c:22367: warning: `a111' might be used uninitialized in this function em-imperative-stalin.c:22368: warning: `a112' might be used uninitialized in this function em-imperative-stalin.c:22369: warning: `a113' might be used uninitialized in this function em-imperative-stalin.c:22370: warning: `a114' might be used uninitialized in this function em-imperative-stalin.c:22371: warning: `a115' might be used uninitialized in this function em-imperative-stalin.c:22372: warning: `a116' might be used uninitialized in this function em-imperative-stalin.c:22373: warning: `a117' might be used uninitialized in this function em-imperative-stalin.c:22374: warning: `a118' might be used uninitialized in this function em-imperative-stalin.c:22375: warning: `a119' might be used uninitialized in this function em-imperative-stalin.c:22376: warning: `a120' might be used uninitialized in this function em-imperative-stalin.c:22377: warning: `a121' might be used uninitialized in this function em-imperative-stalin.c:22378: warning: `a122' might be used uninitialized in this function em-imperative-stalin.c:22379: warning: `a123' might be used uninitialized in this function em-imperative-stalin.c:22380: warning: `a124' might be used uninitialized in this function em-imperative-stalin.c:22381: warning: `a125' might be used uninitialized in this function em-imperative-stalin.c:22382: warning: `a126' might be used uninitialized in this function em-imperative-stalin.c:22383: warning: `a127' might be used uninitialized in this function em-imperative-stalin.c:22384: warning: `a128' might be used uninitialized in this function em-imperative-stalin.c:22385: warning: `a129' might be used uninitialized in this function em-imperative-stalin.c:22386: warning: `a130' might be used uninitialized in this function em-imperative-stalin.c:22387: warning: `a131' might be used uninitialized in this function em-imperative-stalin.c:22388: warning: `a132' might be used uninitialized in this function em-imperative-stalin.c:22389: warning: `a133' might be used uninitialized in this function em-imperative-stalin.c:22390: warning: `a134' might be used uninitialized in this function em-imperative-stalin.c:22391: warning: `a135' might be used uninitialized in this function em-imperative-stalin.c:22392: warning: `a136' might be used uninitialized in this function em-imperative-stalin.c:22393: warning: `a137' might be used uninitialized in this function em-imperative-stalin.c:22394: warning: `a138' might be used uninitialized in this function em-imperative-stalin.c:22395: warning: `a139' might be used uninitialized in this function em-imperative-stalin.c:22396: warning: `a140' might be used uninitialized in this function em-imperative-stalin.c:22397: warning: `a141' might be used uninitialized in this function em-imperative-stalin.c:22398: warning: `a142' might be used uninitialized in this function em-imperative-stalin.c:22399: warning: `a143' might be used uninitialized in this function em-imperative-stalin.c:22400: warning: `a144' might be used uninitialized in this function em-imperative-stalin.c:22401: warning: `a145' might be used uninitialized in this function em-imperative-stalin.c:22402: warning: `a146' might be used uninitialized in this function em-imperative-stalin.c:22403: warning: `a147' might be used uninitialized in this function em-imperative-stalin.c:22404: warning: `a148' might be used uninitialized in this function em-imperative-stalin.c:22405: warning: `a149' might be used uninitialized in this function em-imperative-stalin.c:22406: warning: `a150' might be used uninitialized in this function em-imperative-stalin.c:22407: warning: `a151' might be used uninitialized in this function em-imperative-stalin.c:22408: warning: `a152' might be used uninitialized in this function em-imperative-stalin.c:22409: warning: `a153' might be used uninitialized in this function em-imperative-stalin.c:22410: warning: `a154' might be used uninitialized in this function em-imperative-stalin.c:22411: warning: `a155' might be used uninitialized in this function em-imperative-stalin.c:22412: warning: `a156' might be used uninitialized in this function em-imperative-stalin.c:22413: warning: `a157' might be used uninitialized in this function em-imperative-stalin.c:22414: warning: `a158' might be used uninitialized in this function em-imperative-stalin.c:22415: warning: `a159' might be used uninitialized in this function em-imperative-stalin.c:22416: warning: `a160' might be used uninitialized in this function em-imperative-stalin.c:22417: warning: `a161' might be used uninitialized in this function em-imperative-stalin.c:22418: warning: `a162' might be used uninitialized in this function em-imperative-stalin.c:22419: warning: `a163' might be used uninitialized in this function em-imperative-stalin.c:22420: warning: `a164' might be used uninitialized in this function em-imperative-stalin.c:22421: warning: `a165' might be used uninitialized in this function em-imperative-stalin.c:22422: warning: `a166' might be used uninitialized in this function em-imperative-stalin.c:22423: warning: `a167' might be used uninitialized in this function em-imperative-stalin.c:22424: warning: `a168' might be used uninitialized in this function em-imperative-stalin.c:22425: warning: `a169' might be used uninitialized in this function em-imperative-stalin.c:22426: warning: `a170' might be used uninitialized in this function em-imperative-stalin.c:22427: warning: `a171' might be used uninitialized in this function em-imperative-stalin.c:22428: warning: `a172' might be used uninitialized in this function em-imperative-stalin.c:22429: warning: `a173' might be used uninitialized in this function em-imperative-stalin.c:22430: warning: `a174' might be used uninitialized in this function em-imperative-stalin.c:22431: warning: `a175' might be used uninitialized in this function em-imperative-stalin.c:22432: warning: `a176' might be used uninitialized in this function em-imperative-stalin.c:22433: warning: `a177' might be used uninitialized in this function em-imperative-stalin.c:22434: warning: `a178' might be used uninitialized in this function em-imperative-stalin.c:22435: warning: `a179' might be used uninitialized in this function em-imperative-stalin.c:22436: warning: `a180' might be used uninitialized in this function em-imperative-stalin.c:22437: warning: `a181' might be used uninitialized in this function em-imperative-stalin.c:22438: warning: `a182' might be used uninitialized in this function em-imperative-stalin.c:22439: warning: `a183' might be used uninitialized in this function em-imperative-stalin.c:22440: warning: `a184' might be used uninitialized in this function em-imperative-stalin.c:22441: warning: `a185' might be used uninitialized in this function em-imperative-stalin.c:22442: warning: `a186' might be used uninitialized in this function em-imperative-stalin.c:22443: warning: `a187' might be used uninitialized in this function em-imperative-stalin.c:22444: warning: `a188' might be used uninitialized in this function em-imperative-stalin.c:22445: warning: `a189' might be used uninitialized in this function em-imperative-stalin.c:22446: warning: `a190' might be used uninitialized in this function em-imperative-stalin.c:22447: warning: `a191' might be used uninitialized in this function em-imperative-stalin.c:22448: warning: `a192' might be used uninitialized in this function em-imperative-stalin.c:22449: warning: `a193' might be used uninitialized in this function em-imperative-stalin.c:22450: warning: `a194' might be used uninitialized in this function em-imperative-stalin.c:22451: warning: `a195' might be used uninitialized in this function em-imperative-stalin.c:22452: warning: `a196' might be used uninitialized in this function em-imperative-stalin.c:22453: warning: `a197' might be used uninitialized in this function em-imperative-stalin.c:22454: warning: `a198' might be used uninitialized in this function em-imperative-stalin.c:22455: warning: `a199' might be used uninitialized in this function em-imperative-stalin.c:22456: warning: `a200' might be used uninitialized in this function em-imperative-stalin.c:22457: warning: `a201' might be used uninitialized in this function em-imperative-stalin.c:22458: warning: `a202' might be used uninitialized in this function em-imperative-stalin.c:22459: warning: `a203' might be used uninitialized in this function em-imperative-stalin.c:22460: warning: `a204' might be used uninitialized in this function em-imperative-stalin.c:22461: warning: `a205' might be used uninitialized in this function em-imperative-stalin.c:22462: warning: `a206' might be used uninitialized in this function em-imperative-stalin.c:22463: warning: `a207' might be used uninitialized in this function em-imperative-stalin.c:22464: warning: `a208' might be used uninitialized in this function em-imperative-stalin.c:22465: warning: `a209' might be used uninitialized in this function em-imperative-stalin.c:22466: warning: `a210' might be used uninitialized in this function em-imperative-stalin.c:22467: warning: `a211' might be used uninitialized in this function em-imperative-stalin.c:22468: warning: `a212' might be used uninitialized in this function em-imperative-stalin.c:22469: warning: `a213' might be used uninitialized in this function em-imperative-stalin.c:22470: warning: `a214' might be used uninitialized in this function em-imperative-stalin.c:22471: warning: `a215' might be used uninitialized in this function em-imperative-stalin.c:22472: warning: `a216' might be used uninitialized in this function em-imperative-stalin.c:22473: warning: `a217' might be used uninitialized in this function em-imperative-stalin.c:22474: warning: `a218' might be used uninitialized in this function em-imperative-stalin.c:22475: warning: `a219' might be used uninitialized in this function em-imperative-stalin.c:22476: warning: `a220' might be used uninitialized in this function em-imperative-stalin.c:22477: warning: `a221' might be used uninitialized in this function em-imperative-stalin.c:22478: warning: `a222' might be used uninitialized in this function em-imperative-stalin.c:22479: warning: `a223' might be used uninitialized in this function em-imperative-stalin.c:22480: warning: `a224' might be used uninitialized in this function em-imperative-stalin.c:22481: warning: `a225' might be used uninitialized in this function em-imperative-stalin.c:22482: warning: `a226' might be used uninitialized in this function em-imperative-stalin.c:22483: warning: `a227' might be used uninitialized in this function em-imperative-stalin.c:22484: warning: `a228' might be used uninitialized in this function em-imperative-stalin.c:22485: warning: `a229' might be used uninitialized in this function em-imperative-stalin.c:22486: warning: `a230' might be used uninitialized in this function em-imperative-stalin.c:22487: warning: `a231' might be used uninitialized in this function em-imperative-stalin.c:22488: warning: `a232' might be used uninitialized in this function em-imperative-stalin.c:22489: warning: `a233' might be used uninitialized in this function em-imperative-stalin.c:22490: warning: `a234' might be used uninitialized in this function em-imperative-stalin.c:22491: warning: `a235' might be used uninitialized in this function em-imperative-stalin.c:22492: warning: `a236' might be used uninitialized in this function em-imperative-stalin.c:22493: warning: `a237' might be used uninitialized in this function em-imperative-stalin.c:22494: warning: `a238' might be used uninitialized in this function em-imperative-stalin.c:22495: warning: `a239' might be used uninitialized in this function em-imperative-stalin.c:22496: warning: `a240' might be used uninitialized in this function em-imperative-stalin.c:22497: warning: `a241' might be used uninitialized in this function em-imperative-stalin.c:22498: warning: `a242' might be used uninitialized in this function em-imperative-stalin.c:22499: warning: `a243' might be used uninitialized in this function em-imperative-stalin.c:22500: warning: `a244' might be used uninitialized in this function em-imperative-stalin.c:22501: warning: `a245' might be used uninitialized in this function em-imperative-stalin.c:22502: warning: `a246' might be used uninitialized in this function em-imperative-stalin.c:22503: warning: `a247' might be used uninitialized in this function em-imperative-stalin.c:22504: warning: `a248' might be used uninitialized in this function em-imperative-stalin.c:22505: warning: `a249' might be used uninitialized in this function em-imperative-stalin.c:22506: warning: `a250' might be used uninitialized in this function em-imperative-stalin.c:22507: warning: `a251' might be used uninitialized in this function em-imperative-stalin.c:22508: warning: `a252' might be used uninitialized in this function em-imperative-stalin.c:22509: warning: `a253' might be used uninitialized in this function em-imperative-stalin.c:22510: warning: `a254' might be used uninitialized in this function em-imperative-stalin.c:22511: warning: `a255' might be used uninitialized in this function em-imperative-stalin.c:22512: warning: `a256' might be used uninitialized in this function em-imperative-stalin.c:22513: warning: `a257' might be used uninitialized in this function em-imperative-stalin.c:22514: warning: `a258' might be used uninitialized in this function em-imperative-stalin.c:22515: warning: `a259' might be used uninitialized in this function em-imperative-stalin.c:22516: warning: `a260' might be used uninitialized in this function em-imperative-stalin.c:22517: warning: `a261' might be used uninitialized in this function em-imperative-stalin.c:22518: warning: `a262' might be used uninitialized in this function em-imperative-stalin.c:22519: warning: `a263' might be used uninitialized in this function em-imperative-stalin.c:22520: warning: `a264' might be used uninitialized in this function em-imperative-stalin.c:22521: warning: `a265' might be used uninitialized in this function em-imperative-stalin.c:22522: warning: `a266' might be used uninitialized in this function em-imperative-stalin.c:22523: warning: `a267' might be used uninitialized in this function em-imperative-stalin.c:22524: warning: `a268' might be used uninitialized in this function em-imperative-stalin.c:22525: warning: `a269' might be used uninitialized in this function em-imperative-stalin.c:22526: warning: `a270' might be used uninitialized in this function em-imperative-stalin.c:22527: warning: `a271' might be used uninitialized in this function em-imperative-stalin.c:22528: warning: `a272' might be used uninitialized in this function em-imperative-stalin.c:22529: warning: `a273' might be used uninitialized in this function em-imperative-stalin.c:22530: warning: `a274' might be used uninitialized in this function em-imperative-stalin.c:22531: warning: `a275' might be used uninitialized in this function em-imperative-stalin.c:22532: warning: `a276' might be used uninitialized in this function em-imperative-stalin.c:22533: warning: `a277' might be used uninitialized in this function em-imperative-stalin.c:22534: warning: `a278' might be used uninitialized in this function em-imperative-stalin.c:22535: warning: `a279' might be used uninitialized in this function em-imperative-stalin.c:22536: warning: `a280' might be used uninitialized in this function em-imperative-stalin.c:22537: warning: `a281' might be used uninitialized in this function em-imperative-stalin.c:22538: warning: `a282' might be used uninitialized in this function em-imperative-stalin.c:22539: warning: `a283' might be used uninitialized in this function em-imperative-stalin.c:22540: warning: `a284' might be used uninitialized in this function em-imperative-stalin.c:22541: warning: `a285' might be used uninitialized in this function em-imperative-stalin.c:22542: warning: `a286' might be used uninitialized in this function em-imperative-stalin.c:22543: warning: `a287' might be used uninitialized in this function em-imperative-stalin.c:22544: warning: `a288' might be used uninitialized in this function em-imperative-stalin.c:22545: warning: `a289' might be used uninitialized in this function em-imperative-stalin.c:22546: warning: `a290' might be used uninitialized in this function em-imperative-stalin.c:22547: warning: `a291' might be used uninitialized in this function em-imperative-stalin.c:22548: warning: `a292' might be used uninitialized in this function em-imperative-stalin.c:22549: warning: `a293' might be used uninitialized in this function em-imperative-stalin.c:22550: warning: `a294' might be used uninitialized in this function em-imperative-stalin.c:22551: warning: `a295' might be used uninitialized in this function em-imperative-stalin.c:22552: warning: `a296' might be used uninitialized in this function em-imperative-stalin.c:22553: warning: `a297' might be used uninitialized in this function em-imperative-stalin.c:22554: warning: `a298' might be used uninitialized in this function em-imperative-stalin.c:22555: warning: `a299' might be used uninitialized in this function em-imperative-stalin.c:22556: warning: `a300' might be used uninitialized in this function em-imperative-stalin.c:22557: warning: `a301' might be used uninitialized in this function em-imperative-stalin.c:22558: warning: `a302' might be used uninitialized in this function em-imperative-stalin.c:22559: warning: `a303' might be used uninitialized in this function em-imperative-stalin.c:22560: warning: `a304' might be used uninitialized in this function em-imperative-stalin.c:22561: warning: `a305' might be used uninitialized in this function em-imperative-stalin.c:22562: warning: `a306' might be used uninitialized in this function em-imperative-stalin.c:22563: warning: `a307' might be used uninitialized in this function em-imperative-stalin.c:22564: warning: `a308' might be used uninitialized in this function em-imperative-stalin.c:22565: warning: `a309' might be used uninitialized in this function em-imperative-stalin.c:22566: warning: `a310' might be used uninitialized in this function em-imperative-stalin.c:22567: warning: `a311' might be used uninitialized in this function em-imperative-stalin.c:22568: warning: `a312' might be used uninitialized in this function em-imperative-stalin.c:22569: warning: `a313' might be used uninitialized in this function em-imperative-stalin.c:22570: warning: `a314' might be used uninitialized in this function em-imperative-stalin.c:22571: warning: `a315' might be used uninitialized in this function em-imperative-stalin.c:22572: warning: `a316' might be used uninitialized in this function em-imperative-stalin.c:22573: warning: `a317' might be used uninitialized in this function em-imperative-stalin.c:22574: warning: `a318' might be used uninitialized in this function em-imperative-stalin.c:22575: warning: `a319' might be used uninitialized in this function em-imperative-stalin.c:22576: warning: `a320' might be used uninitialized in this function em-imperative-stalin.c:22577: warning: `a321' might be used uninitialized in this function em-imperative-stalin.c:22578: warning: `a322' might be used uninitialized in this function em-imperative-stalin.c:22579: warning: `a323' might be used uninitialized in this function em-imperative-stalin.c:22580: warning: `a324' might be used uninitialized in this function em-imperative-stalin.c:22581: warning: `a325' might be used uninitialized in this function em-imperative-stalin.c:22582: warning: `a326' might be used uninitialized in this function em-imperative-stalin.c:22583: warning: `a327' might be used uninitialized in this function em-imperative-stalin.c:22584: warning: `a328' might be used uninitialized in this function em-imperative-stalin.c:22585: warning: `a329' might be used uninitialized in this function em-imperative-stalin.c:22586: warning: `a330' might be used uninitialized in this function em-imperative-stalin.c:22587: warning: `a331' might be used uninitialized in this function em-imperative-stalin.c:22588: warning: `a332' might be used uninitialized in this function em-imperative-stalin.c:22589: warning: `a333' might be used uninitialized in this function em-imperative-stalin.c:22590: warning: `a334' might be used uninitialized in this function em-imperative-stalin.c:22591: warning: `a335' might be used uninitialized in this function em-imperative-stalin.c:22592: warning: `a336' might be used uninitialized in this function em-imperative-stalin.c:22593: warning: `a337' might be used uninitialized in this function em-imperative-stalin.c:22594: warning: `a338' might be used uninitialized in this function em-imperative-stalin.c:22595: warning: `a339' might be used uninitialized in this function em-imperative-stalin.c:22596: warning: `a340' might be used uninitialized in this function em-imperative-stalin.c:22597: warning: `a341' might be used uninitialized in this function em-imperative-stalin.c:22598: warning: `a342' might be used uninitialized in this function em-imperative-stalin.c:22599: warning: `a343' might be used uninitialized in this function em-imperative-stalin.c:22600: warning: `a344' might be used uninitialized in this function em-imperative-stalin.c:22601: warning: `a345' might be used uninitialized in this function em-imperative-stalin.c:22602: warning: `a346' might be used uninitialized in this function em-imperative-stalin.c:22603: warning: `a347' might be used uninitialized in this function em-imperative-stalin.c:22604: warning: `a348' might be used uninitialized in this function em-imperative-stalin.c:22605: warning: `a349' might be used uninitialized in this function em-imperative-stalin.c:22606: warning: `a350' might be used uninitialized in this function em-imperative-stalin.c:22607: warning: `a351' might be used uninitialized in this function em-imperative-stalin.c:22608: warning: `a352' might be used uninitialized in this function em-imperative-stalin.c:22609: warning: `a353' might be used uninitialized in this function em-imperative-stalin.c:22610: warning: `a354' might be used uninitialized in this function em-imperative-stalin.c:22611: warning: `a355' might be used uninitialized in this function em-imperative-stalin.c:22612: warning: `a356' might be used uninitialized in this function em-imperative-stalin.c:22613: warning: `a357' might be used uninitialized in this function em-imperative-stalin.c:22614: warning: `a358' might be used uninitialized in this function em-imperative-stalin.c:22615: warning: `a359' might be used uninitialized in this function em-imperative-stalin.c:22616: warning: `a360' might be used uninitialized in this function em-imperative-stalin.c:22617: warning: `a361' might be used uninitialized in this function em-imperative-stalin.c:22618: warning: `a362' might be used uninitialized in this function em-imperative-stalin.c:22619: warning: `a363' might be used uninitialized in this function em-imperative-stalin.c:22620: warning: `a364' might be used uninitialized in this function em-imperative-stalin.c:22621: warning: `a365' might be used uninitialized in this function em-imperative-stalin.c:22622: warning: `a366' might be used uninitialized in this function em-imperative-stalin.c:22623: warning: `a367' might be used uninitialized in this function em-imperative-stalin.c:22624: warning: `a368' might be used uninitialized in this function em-imperative-stalin.c:22625: warning: `a369' might be used uninitialized in this function em-imperative-stalin.c:22626: warning: `a370' might be used uninitialized in this function em-imperative-stalin.c:22627: warning: `a371' might be used uninitialized in this function em-imperative-stalin.c:22628: warning: `a372' might be used uninitialized in this function em-imperative-stalin.c:22629: warning: `a373' might be used uninitialized in this function em-imperative-stalin.c:22630: warning: `a374' might be used uninitialized in this function em-imperative-stalin.c:22631: warning: `a375' might be used uninitialized in this function em-imperative-stalin.c:22632: warning: `a376' might be used uninitialized in this function em-imperative-stalin.c:22633: warning: `a377' might be used uninitialized in this function em-imperative-stalin.c:22634: warning: `a378' might be used uninitialized in this function em-imperative-stalin.c:22635: warning: `a379' might be used uninitialized in this function em-imperative-stalin.c:22636: warning: `a380' might be used uninitialized in this function em-imperative-stalin.c:22637: warning: `a381' might be used uninitialized in this function em-imperative-stalin.c:22638: warning: `a382' might be used uninitialized in this function em-imperative-stalin.c:22639: warning: `a383' might be used uninitialized in this function em-imperative-stalin.c:22640: warning: `a384' might be used uninitialized in this function em-imperative-stalin.c:22641: warning: `a385' might be used uninitialized in this function em-imperative-stalin.c:22642: warning: `a386' might be used uninitialized in this function em-imperative-stalin.c:22643: warning: `a387' might be used uninitialized in this function em-imperative-stalin.c:22644: warning: `a388' might be used uninitialized in this function em-imperative-stalin.c:22645: warning: `a389' might be used uninitialized in this function em-imperative-stalin.c:22646: warning: `a390' might be used uninitialized in this function em-imperative-stalin.c:22647: warning: `a391' might be used uninitialized in this function em-imperative-stalin.c:22648: warning: `a392' might be used uninitialized in this function em-imperative-stalin.c:22649: warning: `a393' might be used uninitialized in this function em-imperative-stalin.c:22650: warning: `a394' might be used uninitialized in this function em-imperative-stalin.c:22651: warning: `a395' might be used uninitialized in this function em-imperative-stalin.c:22652: warning: `a396' might be used uninitialized in this function em-imperative-stalin.c:22653: warning: `a397' might be used uninitialized in this function em-imperative-stalin.c:22654: warning: `a398' might be used uninitialized in this function em-imperative-stalin.c:22655: warning: `a399' might be used uninitialized in this function em-imperative-stalin.c:22656: warning: `a400' might be used uninitialized in this function em-imperative-stalin.c:22657: warning: `a401' might be used uninitialized in this function em-imperative-stalin.c:22658: warning: `a402' might be used uninitialized in this function em-imperative-stalin.c:22659: warning: `a403' might be used uninitialized in this function em-imperative-stalin.c:22660: warning: `a404' might be used uninitialized in this function em-imperative-stalin.c:22661: warning: `a405' might be used uninitialized in this function em-imperative-stalin.c:22662: warning: `a406' might be used uninitialized in this function em-imperative-stalin.c:22663: warning: `a407' might be used uninitialized in this function em-imperative-stalin.c:22664: warning: `a408' might be used uninitialized in this function em-imperative-stalin.c:22665: warning: `a409' might be used uninitialized in this function em-imperative-stalin.c:22666: warning: `a410' might be used uninitialized in this function em-imperative-stalin.c:22667: warning: `a411' might be used uninitialized in this function em-imperative-stalin.c:22668: warning: `a412' might be used uninitialized in this function em-imperative-stalin.c:22669: warning: `a413' might be used uninitialized in this function em-imperative-stalin.c:22670: warning: `a414' might be used uninitialized in this function em-imperative-stalin.c:22671: warning: `a415' might be used uninitialized in this function em-imperative-stalin.c:22672: warning: `a416' might be used uninitialized in this function em-imperative-stalin.c:22673: warning: `a417' might be used uninitialized in this function em-imperative-stalin.c:22674: warning: `a418' might be used uninitialized in this function em-imperative-stalin.c:22675: warning: `a419' might be used uninitialized in this function em-imperative-stalin.c:22676: warning: `a420' might be used uninitialized in this function em-imperative-stalin.c:22677: warning: `a421' might be used uninitialized in this function em-imperative-stalin.c:22678: warning: `a422' might be used uninitialized in this function em-imperative-stalin.c:22679: warning: `a423' might be used uninitialized in this function em-imperative-stalin.c:22680: warning: `a424' might be used uninitialized in this function em-imperative-stalin.c:22681: warning: `a425' might be used uninitialized in this function em-imperative-stalin.c:22682: warning: `a426' might be used uninitialized in this function em-imperative-stalin.c:22683: warning: `a427' might be used uninitialized in this function em-imperative-stalin.c:22684: warning: `a428' might be used uninitialized in this function em-imperative-stalin.c:22685: warning: `a429' might be used uninitialized in this function em-imperative-stalin.c:22686: warning: `a430' might be used uninitialized in this function em-imperative-stalin.c:22687: warning: `a431' might be used uninitialized in this function em-imperative-stalin.c:22688: warning: `a432' might be used uninitialized in this function em-imperative-stalin.c:22689: warning: `a433' might be used uninitialized in this function em-imperative-stalin.c:22690: warning: `a434' might be used uninitialized in this function em-imperative-stalin.c:22691: warning: `a435' might be used uninitialized in this function em-imperative-stalin.c:22905: warning: `a649' might be used uninitialized in this function em-imperative-stalin.c:22906: warning: `a650' might be used uninitialized in this function em-imperative-stalin.c:22907: warning: `a651' might be used uninitialized in this function em-imperative-stalin.c:22908: warning: `a652' might be used uninitialized in this function em-imperative-stalin.c:22909: warning: `a653' might be used uninitialized in this function em-imperative-stalin.c:22910: warning: `a654' might be used uninitialized in this function em-imperative-stalin.c:22911: warning: `a655' might be used uninitialized in this function em-imperative-stalin.c:22912: warning: `a656' might be used uninitialized in this function em-imperative-stalin.c:22913: warning: `a657' might be used uninitialized in this function em-imperative-stalin.c:22914: warning: `a658' might be used uninitialized in this function em-imperative-stalin.c:22915: warning: `a659' might be used uninitialized in this function em-imperative-stalin.c:22916: warning: `a660' might be used uninitialized in this function em-imperative-stalin.c:22917: warning: `a661' might be used uninitialized in this function em-imperative-stalin.c:22918: warning: `a662' might be used uninitialized in this function em-imperative-stalin.c:22919: warning: `a663' might be used uninitialized in this function em-imperative-stalin.c:22920: warning: `a664' might be used uninitialized in this function em-imperative-stalin.c:22921: warning: `a665' might be used uninitialized in this function em-imperative-stalin.c:22922: warning: `a666' might be used uninitialized in this function em-imperative-stalin.c:22923: warning: `a667' might be used uninitialized in this function em-imperative-stalin.c:22924: warning: `a668' might be used uninitialized in this function em-imperative-stalin.c:22925: warning: `a669' might be used uninitialized in this function em-imperative-stalin.c:22926: warning: `a670' might be used uninitialized in this function em-imperative-stalin.c:22927: warning: `a671' might be used uninitialized in this function em-imperative-stalin.c:22928: warning: `a672' might be used uninitialized in this function em-imperative-stalin.c:22929: warning: `a673' might be used uninitialized in this function em-imperative-stalin.c:22930: warning: `a674' might be used uninitialized in this function em-imperative-stalin.c:22931: warning: `a675' might be used uninitialized in this function em-imperative-stalin.c:22932: warning: `a676' might be used uninitialized in this function em-imperative-stalin.c:22933: warning: `a677' might be used uninitialized in this function em-imperative-stalin.c:22934: warning: `a678' might be used uninitialized in this function em-imperative-stalin.c:22935: warning: `a679' might be used uninitialized in this function em-imperative-stalin.c:22936: warning: `a680' might be used uninitialized in this function em-imperative-stalin.c:22937: warning: `a681' might be used uninitialized in this function em-imperative-stalin.c:22938: warning: `a682' might be used uninitialized in this function em-imperative-stalin.c:22939: warning: `a683' might be used uninitialized in this function em-imperative-stalin.c:22940: warning: `a684' might be used uninitialized in this function em-imperative-stalin.c:22941: warning: `a685' might be used uninitialized in this function em-imperative-stalin.c:22942: warning: `a686' might be used uninitialized in this function em-imperative-stalin.c:22943: warning: `a687' might be used uninitialized in this function em-imperative-stalin.c:22944: warning: `a688' might be used uninitialized in this function em-imperative-stalin.c:22945: warning: `a689' might be used uninitialized in this function em-imperative-stalin.c:22946: warning: `a690' might be used uninitialized in this function em-imperative-stalin.c:22947: warning: `a691' might be used uninitialized in this function em-imperative-stalin.c:22948: warning: `a692' might be used uninitialized in this function em-imperative-stalin.c:22949: warning: `a693' might be used uninitialized in this function em-imperative-stalin.c:22950: warning: `a694' might be used uninitialized in this function em-imperative-stalin.c:22951: warning: `a695' might be used uninitialized in this function em-imperative-stalin.c:22952: warning: `a696' might be used uninitialized in this function em-imperative-stalin.c:22953: warning: `a697' might be used uninitialized in this function em-imperative-stalin.c:22954: warning: `a698' might be used uninitialized in this function em-imperative-stalin.c:22955: warning: `a699' might be used uninitialized in this function em-imperative-stalin.c:22956: warning: `a700' might be used uninitialized in this function em-imperative-stalin.c:22957: warning: `a701' might be used uninitialized in this function em-imperative-stalin.c:22958: warning: `a702' might be used uninitialized in this function em-imperative-stalin.c:22959: warning: `a703' might be used uninitialized in this function em-imperative-stalin.c:22960: warning: `a704' might be used uninitialized in this function em-imperative-stalin.c:22961: warning: `a705' might be used uninitialized in this function em-imperative-stalin.c:22962: warning: `a706' might be used uninitialized in this function em-imperative-stalin.c:22963: warning: `a707' might be used uninitialized in this function em-imperative-stalin.c:22964: warning: `a708' might be used uninitialized in this function em-imperative-stalin.c:22965: warning: `a709' might be used uninitialized in this function em-imperative-stalin.c:22966: warning: `a710' might be used uninitialized in this function em-imperative-stalin.c:22967: warning: `a711' might be used uninitialized in this function em-imperative-stalin.c:22968: warning: `a712' might be used uninitialized in this function em-imperative-stalin.c:22969: warning: `a713' might be used uninitialized in this function em-imperative-stalin.c:22970: warning: `a714' might be used uninitialized in this function em-imperative-stalin.c:22971: warning: `a715' might be used uninitialized in this function em-imperative-stalin.c:22972: warning: `a716' might be used uninitialized in this function em-imperative-stalin.c:22973: warning: `a717' might be used uninitialized in this function em-imperative-stalin.c:22974: warning: `a718' might be used uninitialized in this function em-imperative-stalin.c:22975: warning: `a719' might be used uninitialized in this function em-imperative-stalin.c:22976: warning: `a720' might be used uninitialized in this function em-imperative-stalin.c:22977: warning: `a721' might be used uninitialized in this function em-imperative-stalin.c:22978: warning: `a722' might be used uninitialized in this function em-imperative-stalin.c:22979: warning: `a723' might be used uninitialized in this function em-imperative-stalin.c:22980: warning: `a724' might be used uninitialized in this function em-imperative-stalin.c:22981: warning: `a725' might be used uninitialized in this function em-imperative-stalin.c:22982: warning: `a726' might be used uninitialized in this function em-imperative-stalin.c:22983: warning: `a727' might be used uninitialized in this function em-imperative-stalin.c:22984: warning: `a728' might be used uninitialized in this function em-imperative-stalin.c:22985: warning: `a729' might be used uninitialized in this function em-imperative-stalin.c:22986: warning: `a730' might be used uninitialized in this function em-imperative-stalin.c:22987: warning: `a731' might be used uninitialized in this function em-imperative-stalin.c:22988: warning: `a732' might be used uninitialized in this function em-imperative-stalin.c:22989: warning: `a733' might be used uninitialized in this function em-imperative-stalin.c:22990: warning: `a734' might be used uninitialized in this function em-imperative-stalin.c:22991: warning: `a735' might be used uninitialized in this function em-imperative-stalin.c:22992: warning: `a736' might be used uninitialized in this function em-imperative-stalin.c:22993: warning: `a737' might be used uninitialized in this function em-imperative-stalin.c:22994: warning: `a738' might be used uninitialized in this function em-imperative-stalin.c:22995: warning: `a739' might be used uninitialized in this function em-imperative-stalin.c:22996: warning: `a740' might be used uninitialized in this function em-imperative-stalin.c:22997: warning: `a741' might be used uninitialized in this function em-imperative-stalin.c:22998: warning: `a742' might be used uninitialized in this function em-imperative-stalin.c:22999: warning: `a743' might be used uninitialized in this function em-imperative-stalin.c:23000: warning: `a744' might be used uninitialized in this function em-imperative-stalin.c:23001: warning: `a745' might be used uninitialized in this function em-imperative-stalin.c:23002: warning: `a746' might be used uninitialized in this function em-imperative-stalin.c:23003: warning: `a747' might be used uninitialized in this function em-imperative-stalin.c:23004: warning: `a748' might be used uninitialized in this function em-imperative-stalin.c:23005: warning: `a749' might be used uninitialized in this function em-imperative-stalin.c:23006: warning: `a750' might be used uninitialized in this function em-imperative-stalin.c:23007: warning: `a751' might be used uninitialized in this function em-imperative-stalin.c:23008: warning: `a752' might be used uninitialized in this function em-imperative-stalin.c:23009: warning: `a753' might be used uninitialized in this function em-imperative-stalin.c:23010: warning: `a754' might be used uninitialized in this function em-imperative-stalin.c:23011: warning: `a755' might be used uninitialized in this function em-imperative-stalin.c:23012: warning: `a756' might be used uninitialized in this function em-imperative-stalin.c:23013: warning: `a757' might be used uninitialized in this function em-imperative-stalin.c:23014: warning: `a758' might be used uninitialized in this function em-imperative-stalin.c:23015: warning: `a759' might be used uninitialized in this function em-imperative-stalin.c:23016: warning: `a760' might be used uninitialized in this function em-imperative-stalin.c:23017: warning: `a761' might be used uninitialized in this function em-imperative-stalin.c:23018: warning: `a762' might be used uninitialized in this function em-imperative-stalin.c:23019: warning: `a763' might be used uninitialized in this function em-imperative-stalin.c:23021: warning: `a765' might be used uninitialized in this function em-imperative-stalin.c:23023: warning: `a767' might be used uninitialized in this function em-imperative-stalin.c:23024: warning: `a768' might be used uninitialized in this function em-imperative-stalin.c:23028: warning: `a780' might be used uninitialized in this function em-imperative-stalin.c:23031: warning: `a783' might be used uninitialized in this function em-imperative-stalin.c:23033: warning: `a785' might be used uninitialized in this function em-imperative-stalin.c:23035: warning: `a792' might be used uninitialized in this function em-imperative-stalin.c:23040: warning: `a797' might be used uninitialized in this function em-imperative-stalin.c:23047: warning: `a804' might be used uninitialized in this function em-imperative-stalin.c:23053: warning: `a827' might be used uninitialized in this function em-imperative-stalin.c:23059: warning: `a841' might be used uninitialized in this function em-imperative-stalin.c:23065: warning: `a847' might be used uninitialized in this function em-imperative-stalin.c:23075: warning: `a1199' might be used uninitialized in this function em-imperative-stalin.c:23080: warning: `a1204' might be used uninitialized in this function em-imperative-stalin.c:23088: warning: `a1212' might be used uninitialized in this function em-imperative-stalin.c:23089: warning: `a1213' might be used uninitialized in this function em-imperative-stalin.c:23091: warning: `a1215' might be used uninitialized in this function em-imperative-stalin.c:23093: warning: `a1217' might be used uninitialized in this function em-imperative-stalin.c:23096: warning: `a1220' might be used uninitialized in this function em-imperative-stalin.c:23098: warning: `a1222' might be used uninitialized in this function em-imperative-stalin.c:23106: warning: `a1230' might be used uninitialized in this function em-imperative-stalin.c:23108: warning: `a1232' might be used uninitialized in this function em-imperative-stalin.c:23109: warning: `a1233' might be used uninitialized in this function em-imperative-stalin.c:23114: warning: `a1238' might be used uninitialized in this function em-imperative-stalin.c:23142: warning: `a1398' might be used uninitialized in this function em-imperative-stalin.c:23145: warning: `a1447' might be used uninitialized in this function em-imperative-stalin.c:23149: warning: `a1507' might be used uninitialized in this function em-imperative-stalin.c:23150: warning: `a1508' might be used uninitialized in this function em-imperative-stalin.c:23156: warning: `a1874' might be used uninitialized in this function em-imperative-stalin.c:23158: warning: `a1876' might be used uninitialized in this function em-imperative-stalin.c:23160: warning: `a1878' might be used uninitialized in this function em-imperative-stalin.c:23163: warning: `a1954' might be used uninitialized in this function em-imperative-stalin.c:23166: warning: `a2024' might be used uninitialized in this function em-imperative-stalin.c:23168: warning: `a2026' might be used uninitialized in this function em-imperative-stalin.c:23171: warning: `a2310' might be used uninitialized in this function em-imperative-stalin.c:23172: warning: `a2311' might be used uninitialized in this function em-imperative-stalin.c:23176: warning: `a2315' might be used uninitialized in this function em-imperative-stalin.c:23177: warning: `a2316' might be used uninitialized in this function em-imperative-stalin.c:23178: warning: `a2317' might be used uninitialized in this function em-imperative-stalin.c:23179: warning: `a2318' might be used uninitialized in this function em-imperative-stalin.c:23180: warning: `a2319' might be used uninitialized in this function em-imperative-stalin.c:23181: warning: `a2320' might be used uninitialized in this function em-imperative-stalin.c:23182: warning: `a2321' might be used uninitialized in this function em-imperative-stalin.c:23183: warning: `a2322' might be used uninitialized in this function em-imperative-stalin.c:23184: warning: `a2323' might be used uninitialized in this function em-imperative-stalin.c:23185: warning: `a2324' might be used uninitialized in this function em-imperative-stalin.c:23186: warning: `a2325' might be used uninitialized in this function em-imperative-stalin.c:23187: warning: `a2326' might be used uninitialized in this function em-imperative-stalin.c:23188: warning: `a2327' might be used uninitialized in this function em-imperative-stalin.c:23189: warning: `a2328' might be used uninitialized in this function em-imperative-stalin.c:23190: warning: `a2329' might be used uninitialized in this function em-imperative-stalin.c:23191: warning: `a2330' might be used uninitialized in this function em-imperative-stalin.c:23192: warning: `a2331' might be used uninitialized in this function em-imperative-stalin.c:23193: warning: `a2332' might be used uninitialized in this function em-imperative-stalin.c:23194: warning: `a2333' might be used uninitialized in this function em-imperative-stalin.c:23195: warning: `a2334' might be used uninitialized in this function em-imperative-stalin.c:23196: warning: `a2335' might be used uninitialized in this function em-imperative-stalin.c:23197: warning: `a2336' might be used uninitialized in this function em-imperative-stalin.c:23198: warning: `a2337' might be used uninitialized in this function em-imperative-stalin.c:23199: warning: `a2338' might be used uninitialized in this function em-imperative-stalin.c:23200: warning: `a2339' might be used uninitialized in this function em-imperative-stalin.c:23201: warning: `a2340' might be used uninitialized in this function em-imperative-stalin.c:23202: warning: `a2341' might be used uninitialized in this function em-imperative-stalin.c:23203: warning: `a2342' might be used uninitialized in this function em-imperative-stalin.c:23204: warning: `a2343' might be used uninitialized in this function em-imperative-stalin.c:23205: warning: `a2344' might be used uninitialized in this function em-imperative-stalin.c:23206: warning: `a2345' might be used uninitialized in this function em-imperative-stalin.c:23207: warning: `a2346' might be used uninitialized in this function em-imperative-stalin.c:23208: warning: `a2347' might be used uninitialized in this function em-imperative-stalin.c:23209: warning: `a2348' might be used uninitialized in this function em-imperative-stalin.c:23211: warning: `a2650' might be used uninitialized in this function em-imperative-stalin.c:23212: warning: `a2653' might be used uninitialized in this function em-imperative-stalin.c:23225: warning: `a2768' might be used uninitialized in this function em-imperative-stalin.c:23227: warning: `a2770' might be used uninitialized in this function em-imperative-stalin.c:23229: warning: `a2772' might be used uninitialized in this function em-imperative-stalin.c:23233: warning: `a2776' might be used uninitialized in this function em-imperative-stalin.c:23235: warning: `a2778' might be used uninitialized in this function em-imperative-stalin.c:23237: warning: `a2780' might be used uninitialized in this function em-imperative-stalin.c:23241: warning: `a2784' might be used uninitialized in this function em-imperative-stalin.c:23243: warning: `a2786' might be used uninitialized in this function em-imperative-stalin.c:23245: warning: `a2788' might be used uninitialized in this function em-imperative-stalin.c:23249: warning: `a2804' might be used uninitialized in this function em-imperative-stalin.c:23255: warning: `t3728' might be used uninitialized in this function em-imperative-stalin.c:23256: warning: `t3729' might be used uninitialized in this function em-imperative-stalin.c:23257: warning: `t3730' might be used uninitialized in this function em-imperative-stalin.c:23258: warning: `t3731' might be used uninitialized in this function em-imperative-stalin.c:23259: warning: `t3732' might be used uninitialized in this function em-imperative-stalin.c:23260: warning: `t3733' might be used uninitialized in this function em-imperative-stalin.c:23261: warning: `t3734' might be used uninitialized in this function em-imperative-stalin.c:23262: warning: `t3735' might be used uninitialized in this function em-imperative-stalin.c:23263: warning: `t3736' might be used uninitialized in this function em-imperative-stalin.c:23265: warning: `t3738' might be used uninitialized in this function em-imperative-stalin.c:23267: warning: `t3740' might be used uninitialized in this function em-imperative-stalin.c:23268: warning: `t3741' might be used uninitialized in this function em-imperative-stalin.c:23269: warning: `t3742' might be used uninitialized in this function em-imperative-stalin.c:23270: warning: `t3743' might be used uninitialized in this function em-imperative-stalin.c:23271: warning: `t3744' might be used uninitialized in this function em-imperative-stalin.c:23272: warning: `t3745' might be used uninitialized in this function em-imperative-stalin.c:23273: warning: `t3746' might be used uninitialized in this function em-imperative-stalin.c:23274: warning: `t3747' might be used uninitialized in this function em-imperative-stalin.c:23275: warning: `t3748' might be used uninitialized in this function em-imperative-stalin.c:23276: warning: `t3749' might be used uninitialized in this function em-imperative-stalin.c:23277: warning: `t3750' might be used uninitialized in this function em-imperative-stalin.c:23278: warning: `t3751' might be used uninitialized in this function em-imperative-stalin.c:23279: warning: `t3752' might be used uninitialized in this function em-imperative-stalin.c:23280: warning: `t3753' might be used uninitialized in this function em-imperative-stalin.c:23281: warning: `t3754' might be used uninitialized in this function em-imperative-stalin.c:23282: warning: `t3755' might be used uninitialized in this function em-imperative-stalin.c:23283: warning: `t3756' might be used uninitialized in this function em-imperative-stalin.c:23284: warning: `t3757' might be used uninitialized in this function em-imperative-stalin.c:23285: warning: `t3758' might be used uninitialized in this function em-imperative-stalin.c:23286: warning: `t3759' might be used uninitialized in this function em-imperative-stalin.c:23288: warning: `t3761' might be used uninitialized in this function em-imperative-stalin.c:23289: warning: `t3762' might be used uninitialized in this function em-imperative-stalin.c:23290: warning: `t3763' might be used uninitialized in this function em-imperative-stalin.c:23291: warning: `t3764' might be used uninitialized in this function em-imperative-stalin.c:23292: warning: `t3765' might be used uninitialized in this function em-imperative-stalin.c:23293: warning: `t3766' might be used uninitialized in this function em-imperative-stalin.c:23294: warning: `t3767' might be used uninitialized in this function em-imperative-stalin.c:23295: warning: `t3768' might be used uninitialized in this function em-imperative-stalin.c:23297: warning: `t3770' might be used uninitialized in this function em-imperative-stalin.c:23298: warning: `t3771' might be used uninitialized in this function em-imperative-stalin.c:23299: warning: `t3772' might be used uninitialized in this function em-imperative-stalin.c:23300: warning: `t3773' might be used uninitialized in this function em-imperative-stalin.c:23301: warning: `t3774' might be used uninitialized in this function em-imperative-stalin.c:23302: warning: `t3775' might be used uninitialized in this function em-imperative-stalin.c:23303: warning: `t3776' might be used uninitialized in this function em-imperative-stalin.c:23304: warning: `t3777' might be used uninitialized in this function em-imperative-stalin.c:23305: warning: `t3778' might be used uninitialized in this function em-imperative-stalin.c:23306: warning: `t3779' might be used uninitialized in this function em-imperative-stalin.c:23307: warning: `t3780' might be used uninitialized in this function em-imperative-stalin.c:23309: warning: `t3782' might be used uninitialized in this function em-imperative-stalin.c:23311: warning: `t3784' might be used uninitialized in this function em-imperative-stalin.c:23312: warning: `t3785' might be used uninitialized in this function em-imperative-stalin.c:23313: warning: `t3786' might be used uninitialized in this function em-imperative-stalin.c:23314: warning: `t3787' might be used uninitialized in this function em-imperative-stalin.c:23315: warning: `t3788' might be used uninitialized in this function em-imperative-stalin.c:23316: warning: `t3789' might be used uninitialized in this function em-imperative-stalin.c:23317: warning: `t3790' might be used uninitialized in this function em-imperative-stalin.c:23318: warning: `t3791' might be used uninitialized in this function em-imperative-stalin.c:23319: warning: `t3792' might be used uninitialized in this function em-imperative-stalin.c:23320: warning: `t3793' might be used uninitialized in this function em-imperative-stalin.c:23321: warning: `t3794' might be used uninitialized in this function em-imperative-stalin.c:23322: warning: `t3795' might be used uninitialized in this function em-imperative-stalin.c:23323: warning: `t3796' might be used uninitialized in this function em-imperative-stalin.c:23324: warning: `t3797' might be used uninitialized in this function em-imperative-stalin.c:23325: warning: `t3798' might be used uninitialized in this function em-imperative-stalin.c:23326: warning: `t3799' might be used uninitialized in this function em-imperative-stalin.c:23327: warning: `t3800' might be used uninitialized in this function em-imperative-stalin.c:23328: warning: `t3801' might be used uninitialized in this function em-imperative-stalin.c:23329: warning: `t3802' might be used uninitialized in this function em-imperative-stalin.c:23330: warning: `t3803' might be used uninitialized in this function em-imperative-stalin.c:23331: warning: `t3804' might be used uninitialized in this function em-imperative-stalin.c:23332: warning: `t3805' might be used uninitialized in this function em-imperative-stalin.c:23333: warning: `t3806' might be used uninitialized in this function em-imperative-stalin.c:23335: warning: `t3808' might be used uninitialized in this function em-imperative-stalin.c:23336: warning: `t3809' might be used uninitialized in this function em-imperative-stalin.c:23337: warning: `t3810' might be used uninitialized in this function em-imperative-stalin.c:23338: warning: `t3811' might be used uninitialized in this function em-imperative-stalin.c:23339: warning: `t3812' might be used uninitialized in this function em-imperative-stalin.c:23340: warning: `t3813' might be used uninitialized in this function em-imperative-stalin.c:23341: warning: `t3814' might be used uninitialized in this function em-imperative-stalin.c:23342: warning: `t3815' might be used uninitialized in this function em-imperative-stalin.c:23343: warning: `t3816' might be used uninitialized in this function em-imperative-stalin.c:23344: warning: `t3817' might be used uninitialized in this function em-imperative-stalin.c:23345: warning: `t3818' might be used uninitialized in this function em-imperative-stalin.c:23346: warning: `t3819' might be used uninitialized in this function em-imperative-stalin.c:23347: warning: `t3820' might be used uninitialized in this function em-imperative-stalin.c:23348: warning: `t3821' might be used uninitialized in this function em-imperative-stalin.c:23349: warning: `t3822' might be used uninitialized in this function em-imperative-stalin.c:23350: warning: `t3823' might be used uninitialized in this function em-imperative-stalin.c:23351: warning: `t3824' might be used uninitialized in this function em-imperative-stalin.c:23352: warning: `t3825' might be used uninitialized in this function em-imperative-stalin.c:23353: warning: `t3826' might be used uninitialized in this function em-imperative-stalin.c:23354: warning: `t3827' might be used uninitialized in this function em-imperative-stalin.c:23355: warning: `t3828' might be used uninitialized in this function em-imperative-stalin.c:23356: warning: `t3829' might be used uninitialized in this function em-imperative-stalin.c:23357: warning: `t3830' might be used uninitialized in this function em-imperative-stalin.c:23358: warning: `t3831' might be used uninitialized in this function em-imperative-stalin.c:23359: warning: `t3832' might be used uninitialized in this function em-imperative-stalin.c:23360: warning: `t3833' might be used uninitialized in this function em-imperative-stalin.c:23361: warning: `t3834' might be used uninitialized in this function em-imperative-stalin.c:23362: warning: `t3835' might be used uninitialized in this function em-imperative-stalin.c:23363: warning: `t3836' might be used uninitialized in this function em-imperative-stalin.c:23364: warning: `t3837' might be used uninitialized in this function em-imperative-stalin.c:23365: warning: `t3838' might be used uninitialized in this function em-imperative-stalin.c:23366: warning: `t3839' might be used uninitialized in this function em-imperative-stalin.c:23367: warning: `t3840' might be used uninitialized in this function em-imperative-stalin.c:23368: warning: `t3841' might be used uninitialized in this function em-imperative-stalin.c:23369: warning: `t3842' might be used uninitialized in this function em-imperative-stalin.c:23370: warning: `t3843' might be used uninitialized in this function em-imperative-stalin.c:23371: warning: `t3844' might be used uninitialized in this function em-imperative-stalin.c:23373: warning: `t3846' might be used uninitialized in this function em-imperative-stalin.c:23374: warning: `t3847' might be used uninitialized in this function em-imperative-stalin.c:23376: warning: `t3849' might be used uninitialized in this function em-imperative-stalin.c:23377: warning: `t3850' might be used uninitialized in this function em-imperative-stalin.c:23378: warning: `t3851' might be used uninitialized in this function em-imperative-stalin.c:23379: warning: `t3852' might be used uninitialized in this function em-imperative-stalin.c:23380: warning: `t3853' might be used uninitialized in this function em-imperative-stalin.c:23382: warning: `t3855' might be used uninitialized in this function em-imperative-stalin.c:23383: warning: `t3856' might be used uninitialized in this function em-imperative-stalin.c:23384: warning: `t3857' might be used uninitialized in this function em-imperative-stalin.c:23385: warning: `t3858' might be used uninitialized in this function em-imperative-stalin.c:23386: warning: `t3859' might be used uninitialized in this function em-imperative-stalin.c:23387: warning: `t3860' might be used uninitialized in this function em-imperative-stalin.c:23388: warning: `t3861' might be used uninitialized in this function em-imperative-stalin.c:23389: warning: `t3862' might be used uninitialized in this function em-imperative-stalin.c:23390: warning: `t3863' might be used uninitialized in this function em-imperative-stalin.c:23391: warning: `t3864' might be used uninitialized in this function em-imperative-stalin.c:23392: warning: `t3865' might be used uninitialized in this function em-imperative-stalin.c:23393: warning: `t3866' might be used uninitialized in this function em-imperative-stalin.c:23394: warning: `t3867' might be used uninitialized in this function em-imperative-stalin.c:23395: warning: `t3868' might be used uninitialized in this function em-imperative-stalin.c:23396: warning: `t3869' might be used uninitialized in this function em-imperative-stalin.c:23397: warning: `t3870' might be used uninitialized in this function em-imperative-stalin.c:23398: warning: `t3871' might be used uninitialized in this function em-imperative-stalin.c:23399: warning: `t3872' might be used uninitialized in this function em-imperative-stalin.c:23400: warning: `t3873' might be used uninitialized in this function em-imperative-stalin.c:23401: warning: `t3874' might be used uninitialized in this function em-imperative-stalin.c:23402: warning: `t3875' might be used uninitialized in this function em-imperative-stalin.c:23403: warning: `t3876' might be used uninitialized in this function em-imperative-stalin.c:23404: warning: `t3877' might be used uninitialized in this function em-imperative-stalin.c:23405: warning: `t3878' might be used uninitialized in this function em-imperative-stalin.c:23406: warning: `t3879' might be used uninitialized in this function em-imperative-stalin.c:23407: warning: `t3880' might be used uninitialized in this function em-imperative-stalin.c:23408: warning: `t3881' might be used uninitialized in this function em-imperative-stalin.c:23409: warning: `t3882' might be used uninitialized in this function em-imperative-stalin.c:23410: warning: `t3883' might be used uninitialized in this function em-imperative-stalin.c:23411: warning: `t3884' might be used uninitialized in this function em-imperative-stalin.c:23412: warning: `t3885' might be used uninitialized in this function em-imperative-stalin.c:23413: warning: `t3886' might be used uninitialized in this function em-imperative-stalin.c:23414: warning: `t3887' might be used uninitialized in this function em-imperative-stalin.c:23415: warning: `t3888' might be used uninitialized in this function em-imperative-stalin.c:23416: warning: `t3889' might be used uninitialized in this function em-imperative-stalin.c:23417: warning: `t3890' might be used uninitialized in this function em-imperative-stalin.c:23419: warning: `t3892' might be used uninitialized in this function em-imperative-stalin.c:23420: warning: `t3893' might be used uninitialized in this function em-imperative-stalin.c:23421: warning: `t3894' might be used uninitialized in this function em-imperative-stalin.c:23422: warning: `t3895' might be used uninitialized in this function em-imperative-stalin.c:23423: warning: `t3896' might be used uninitialized in this function em-imperative-stalin.c:23424: warning: `t3897' might be used uninitialized in this function em-imperative-stalin.c:23425: warning: `t3898' might be used uninitialized in this function em-imperative-stalin.c:23427: warning: `t3900' might be used uninitialized in this function em-imperative-stalin.c:23428: warning: `t3901' might be used uninitialized in this function em-imperative-stalin.c:23429: warning: `t3902' might be used uninitialized in this function em-imperative-stalin.c:23430: warning: `t3903' might be used uninitialized in this function em-imperative-stalin.c:23431: warning: `t3904' might be used uninitialized in this function em-imperative-stalin.c:23432: warning: `t3905' might be used uninitialized in this function em-imperative-stalin.c:23433: warning: `t3906' might be used uninitialized in this function em-imperative-stalin.c:23434: warning: `t3907' might be used uninitialized in this function em-imperative-stalin.c:23435: warning: `t3908' might be used uninitialized in this function em-imperative-stalin.c:23436: warning: `t3909' might be used uninitialized in this function em-imperative-stalin.c:23437: warning: `t3910' might be used uninitialized in this function em-imperative-stalin.c:23438: warning: `t3911' might be used uninitialized in this function em-imperative-stalin.c:23439: warning: `t3912' might be used uninitialized in this function em-imperative-stalin.c:23440: warning: `t3913' might be used uninitialized in this function em-imperative-stalin.c:23441: warning: `t3914' might be used uninitialized in this function em-imperative-stalin.c:23442: warning: `t3915' might be used uninitialized in this function em-imperative-stalin.c:23443: warning: `t3916' might be used uninitialized in this function em-imperative-stalin.c:23444: warning: `t3917' might be used uninitialized in this function em-imperative-stalin.c:23445: warning: `t3918' might be used uninitialized in this function em-imperative-stalin.c:23446: warning: `t3919' might be used uninitialized in this function em-imperative-stalin.c:23447: warning: `t3920' might be used uninitialized in this function em-imperative-stalin.c:23448: warning: `t3921' might be used uninitialized in this function em-imperative-stalin.c:23449: warning: `t3922' might be used uninitialized in this function em-imperative-stalin.c:23450: warning: `t3923' might be used uninitialized in this function em-imperative-stalin.c:23451: warning: `t3924' might be used uninitialized in this function em-imperative-stalin.c:23452: warning: `t3925' might be used uninitialized in this function em-imperative-stalin.c:23453: warning: `t3926' might be used uninitialized in this function em-imperative-stalin.c:23454: warning: `t3927' might be used uninitialized in this function em-imperative-stalin.c:23456: warning: `t3929' might be used uninitialized in this function em-imperative-stalin.c:23457: warning: `t3930' might be used uninitialized in this function em-imperative-stalin.c:23458: warning: `t3931' might be used uninitialized in this function em-imperative-stalin.c:23461: warning: `t3934' might be used uninitialized in this function em-imperative-stalin.c:23462: warning: `t3935' might be used uninitialized in this function em-imperative-stalin.c:23463: warning: `t3936' might be used uninitialized in this function em-imperative-stalin.c:23464: warning: `t3937' might be used uninitialized in this function em-imperative-stalin.c:23466: warning: `t3939' might be used uninitialized in this function em-imperative-stalin.c:23467: warning: `t3940' might be used uninitialized in this function em-imperative-stalin.c:23503: warning: `t4099' might be used uninitialized in this function em-imperative-stalin.c:23844: warning: `t4541' might be used uninitialized in this function em-imperative-stalin.c:23886: warning: `t4593' might be used uninitialized in this function em-imperative-stalin.c:23954: warning: `t4684' might be used uninitialized in this function em-imperative-stalin.c:24229: warning: `t5061' might be used uninitialized in this function em-imperative-stalin.c: In function `f13': em-imperative-stalin.c:22252: warning: `r13' might be used uninitialized in this function 138.54user 1.18system 2:51.72elapsed 81%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (35399major+509143minor)pagefaults 0swaps compile nfm (STATIC-COUNTS 4481 4481 4481 4481 0 0 0 4481 4170 2548 554 1613 98 348 1.650910881339242 8282 8282 728 549) nfm-stalin.c: In function `f1811': nfm-stalin.c:20176: warning: `a2123' might be used uninitialized in this function nfm-stalin.c:20178: warning: `a2125' might be used uninitialized in this function nfm-stalin.c:20182: warning: `a2129' might be used uninitialized in this function nfm-stalin.c:20186: warning: `a2133' might be used uninitialized in this function nfm-stalin.c:20188: warning: `a2135' might be used uninitialized in this function nfm-stalin.c:20189: warning: `a2136' might be used uninitialized in this function nfm-stalin.c:20190: warning: `a2137' might be used uninitialized in this function nfm-stalin.c:20192: warning: `a2139' might be used uninitialized in this function nfm-stalin.c:20196: warning: `a2143' might be used uninitialized in this function nfm-stalin.c:20198: warning: `a2145' might be used uninitialized in this function nfm-stalin.c:20199: warning: `a2146' might be used uninitialized in this function nfm-stalin.c: In function `f1691': nfm-stalin.c:21014: warning: unused variable `p898' nfm-stalin.c:21007: warning: unused variable `e1699' nfm-stalin.c:20999: warning: unused variable `e898' nfm-stalin.c:20928: warning: unused variable `a2073' nfm-stalin.c:20919: warning: unused variable `a1422' nfm-stalin.c:20913: warning: `a1416' might be used uninitialized in this function nfm-stalin.c:20915: warning: `a1418' might be used uninitialized in this function nfm-stalin.c:20918: warning: `a1421' might be used uninitialized in this function nfm-stalin.c:20921: warning: `a2066' might be used uninitialized in this function nfm-stalin.c:20923: warning: `a2068' might be used uninitialized in this function nfm-stalin.c:20925: warning: `a2070' might be used uninitialized in this function nfm-stalin.c: In function `f1685': nfm-stalin.c:22561: warning: value computed is not used nfm-stalin.c:21676: warning: unused variable `p3726' nfm-stalin.c:21673: warning: unused variable `p3720' nfm-stalin.c:21670: warning: unused variable `p3714' nfm-stalin.c:21667: warning: unused variable `p3708' nfm-stalin.c:21664: warning: unused variable `p3702' nfm-stalin.c:21641: warning: unused variable `e3726' nfm-stalin.c:21636: warning: unused variable `e3720' nfm-stalin.c:21631: warning: unused variable `e3714' nfm-stalin.c:21626: warning: unused variable `e3708' nfm-stalin.c:21621: warning: unused variable `e3702' nfm-stalin.c:21615: warning: unused variable `e3650' nfm-stalin.c:21614: warning: unused variable `e3649' nfm-stalin.c:21613: warning: unused variable `e3648' nfm-stalin.c:21612: warning: unused variable `e3647' nfm-stalin.c:21451: warning: unused variable `a3819' nfm-stalin.c:21442: warning: unused variable `a3810' nfm-stalin.c:21433: warning: unused variable `a3801' nfm-stalin.c:21424: warning: unused variable `a3792' nfm-stalin.c:21415: warning: unused variable `a3783' nfm-stalin.c:21405: warning: unused variable `a3720' nfm-stalin.c:21404: warning: unused variable `a3719' nfm-stalin.c:21403: warning: unused variable `a3718' nfm-stalin.c:21402: warning: unused variable `a3717' nfm-stalin.c:21392: warning: `a3619' might be used uninitialized in this function nfm-stalin.c:21397: warning: `a3624' might be used uninitialized in this function nfm-stalin.c:21409: warning: `a3777' might be used uninitialized in this function nfm-stalin.c:21411: warning: `a3779' might be used uninitialized in this function nfm-stalin.c:21414: warning: `a3782' might be used uninitialized in this function nfm-stalin.c:21418: warning: `a3786' might be used uninitialized in this function nfm-stalin.c:21420: warning: `a3788' might be used uninitialized in this function nfm-stalin.c:21423: warning: `a3791' might be used uninitialized in this function nfm-stalin.c:21427: warning: `a3795' might be used uninitialized in this function nfm-stalin.c:21429: warning: `a3797' might be used uninitialized in this function nfm-stalin.c:21432: warning: `a3800' might be used uninitialized in this function nfm-stalin.c:21436: warning: `a3804' might be used uninitialized in this function nfm-stalin.c:21438: warning: `a3806' might be used uninitialized in this function nfm-stalin.c:21441: warning: `a3809' might be used uninitialized in this function nfm-stalin.c:21445: warning: `a3813' might be used uninitialized in this function nfm-stalin.c:21447: warning: `a3815' might be used uninitialized in this function nfm-stalin.c:21450: warning: `a3818' might be used uninitialized in this function nfm-stalin.c:21549: warning: `t459' might be used uninitialized in this function nfm-stalin.c: In function `f1665': nfm-stalin.c:23351: warning: unused variable `p3695' nfm-stalin.c:23348: warning: unused variable `p3689' nfm-stalin.c:23345: warning: unused variable `p3683' nfm-stalin.c:23342: warning: unused variable `p3677' nfm-stalin.c:23337: warning: unused variable `p3474' nfm-stalin.c:23334: warning: unused variable `p3468' nfm-stalin.c:23331: warning: unused variable `p3462' nfm-stalin.c:23328: warning: unused variable `p3456' nfm-stalin.c:23325: warning: unused variable `p3450' nfm-stalin.c:23322: warning: unused variable `p3444' nfm-stalin.c:23319: warning: unused variable `p3438' nfm-stalin.c:23316: warning: unused variable `p3432' nfm-stalin.c:23313: warning: unused variable `p3426' nfm-stalin.c:23310: warning: unused variable `p3420' nfm-stalin.c:23307: warning: unused variable `p3414' nfm-stalin.c:23304: warning: unused variable `p3408' nfm-stalin.c:23301: warning: unused variable `p3402' nfm-stalin.c:23298: warning: unused variable `p3396' nfm-stalin.c:23281: warning: unused variable `e3695' nfm-stalin.c:23276: warning: unused variable `e3689' nfm-stalin.c:23271: warning: unused variable `e3683' nfm-stalin.c:23266: warning: unused variable `e3677' nfm-stalin.c:23261: warning: unused variable `e3625' nfm-stalin.c:23259: warning: unused variable `e3474' nfm-stalin.c:23254: warning: unused variable `e3468' nfm-stalin.c:23249: warning: unused variable `e3462' nfm-stalin.c:23244: warning: unused variable `e3456' nfm-stalin.c:23239: warning: unused variable `e3450' nfm-stalin.c:23234: warning: unused variable `e3444' nfm-stalin.c:23229: warning: unused variable `e3438' nfm-stalin.c:23224: warning: unused variable `e3432' nfm-stalin.c:23219: warning: unused variable `e3426' nfm-stalin.c:23214: warning: unused variable `e3420' nfm-stalin.c:23209: warning: unused variable `e3414' nfm-stalin.c:23204: warning: unused variable `e3408' nfm-stalin.c:23199: warning: unused variable `e3402' nfm-stalin.c:23194: warning: unused variable `e3396' nfm-stalin.c:23189: warning: unused variable `e1679' nfm-stalin.c:23188: warning: unused variable `e1678' nfm-stalin.c:23187: warning: unused variable `e1677' nfm-stalin.c:23186: warning: unused variable `e1676' nfm-stalin.c:23185: warning: unused variable `e1675' nfm-stalin.c:23184: warning: unused variable `e1674' nfm-stalin.c:23183: warning: unused variable `e1673' nfm-stalin.c:23182: warning: unused variable `e1672' nfm-stalin.c:23181: warning: unused variable `e1671' nfm-stalin.c:23180: warning: unused variable `e1670' nfm-stalin.c:23179: warning: unused variable `e1669' nfm-stalin.c:23178: warning: unused variable `e1668' nfm-stalin.c:23177: warning: unused variable `e1667' nfm-stalin.c:23176: warning: unused variable `e1666' nfm-stalin.c:22938: warning: unused variable `a3773' nfm-stalin.c:22929: warning: unused variable `a3764' nfm-stalin.c:22920: warning: unused variable `a3755' nfm-stalin.c:22911: warning: unused variable `a3746' nfm-stalin.c:22902: warning: unused variable `a3695' nfm-stalin.c:22900: warning: unused variable `a3507' nfm-stalin.c:22891: warning: unused variable `a3498' nfm-stalin.c:22882: warning: unused variable `a3489' nfm-stalin.c:22873: warning: unused variable `a3480' nfm-stalin.c:22864: warning: unused variable `a3471' nfm-stalin.c:22855: warning: unused variable `a3462' nfm-stalin.c:22846: warning: unused variable `a3453' nfm-stalin.c:22837: warning: unused variable `a3444' nfm-stalin.c:22828: warning: unused variable `a3435' nfm-stalin.c:22819: warning: unused variable `a3426' nfm-stalin.c:22810: warning: unused variable `a3417' nfm-stalin.c:22801: warning: unused variable `a3408' nfm-stalin.c:22792: warning: unused variable `a3399' nfm-stalin.c:22783: warning: unused variable `a3390' nfm-stalin.c:22774: warning: unused variable `a2055' nfm-stalin.c:22773: warning: unused variable `a2054' nfm-stalin.c:22772: warning: unused variable `a2053' nfm-stalin.c:22771: warning: unused variable `a2052' nfm-stalin.c:22770: warning: unused variable `a2051' nfm-stalin.c:22769: warning: unused variable `a2050' nfm-stalin.c:22768: warning: unused variable `a2049' nfm-stalin.c:22767: warning: unused variable `a2048' nfm-stalin.c:22766: warning: unused variable `a2047' nfm-stalin.c:22765: warning: unused variable `a2046' nfm-stalin.c:22764: warning: unused variable `a2045' nfm-stalin.c:22763: warning: unused variable `a2044' nfm-stalin.c:22762: warning: unused variable `a2043' nfm-stalin.c:22761: warning: unused variable `a2042' nfm-stalin.c:22777: warning: `a3384' might be used uninitialized in this function nfm-stalin.c:22778: warning: `a3385' might be used uninitialized in this function nfm-stalin.c:22779: warning: `a3386' might be used uninitialized in this function nfm-stalin.c:22782: warning: `a3389' might be used uninitialized in this function nfm-stalin.c:22786: warning: `a3393' might be used uninitialized in this function nfm-stalin.c:22787: warning: `a3394' might be used uninitialized in this function nfm-stalin.c:22788: warning: `a3395' might be used uninitialized in this function nfm-stalin.c:22791: warning: `a3398' might be used uninitialized in this function nfm-stalin.c:22795: warning: `a3402' might be used uninitialized in this function nfm-stalin.c:22796: warning: `a3403' might be used uninitialized in this function nfm-stalin.c:22797: warning: `a3404' might be used uninitialized in this function nfm-stalin.c:22800: warning: `a3407' might be used uninitialized in this function nfm-stalin.c:22804: warning: `a3411' might be used uninitialized in this function nfm-stalin.c:22805: warning: `a3412' might be used uninitialized in this function nfm-stalin.c:22806: warning: `a3413' might be used uninitialized in this function nfm-stalin.c:22809: warning: `a3416' might be used uninitialized in this function nfm-stalin.c:22813: warning: `a3420' might be used uninitialized in this function nfm-stalin.c:22814: warning: `a3421' might be used uninitialized in this function nfm-stalin.c:22815: warning: `a3422' might be used uninitialized in this function nfm-stalin.c:22818: warning: `a3425' might be used uninitialized in this function nfm-stalin.c:22822: warning: `a3429' might be used uninitialized in this function nfm-stalin.c:22823: warning: `a3430' might be used uninitialized in this function nfm-stalin.c:22824: warning: `a3431' might be used uninitialized in this function nfm-stalin.c:22827: warning: `a3434' might be used uninitialized in this function nfm-stalin.c:22831: warning: `a3438' might be used uninitialized in this function nfm-stalin.c:22832: warning: `a3439' might be used uninitialized in this function nfm-stalin.c:22833: warning: `a3440' might be used uninitialized in this function nfm-stalin.c:22836: warning: `a3443' might be used uninitialized in this function nfm-stalin.c:22840: warning: `a3447' might be used uninitialized in this function nfm-stalin.c:22841: warning: `a3448' might be used uninitialized in this function nfm-stalin.c:22842: warning: `a3449' might be used uninitialized in this function nfm-stalin.c:22845: warning: `a3452' might be used uninitialized in this function nfm-stalin.c:22849: warning: `a3456' might be used uninitialized in this function nfm-stalin.c:22850: warning: `a3457' might be used uninitialized in this function nfm-stalin.c:22851: warning: `a3458' might be used uninitialized in this function nfm-stalin.c:22854: warning: `a3461' might be used uninitialized in this function nfm-stalin.c:22858: warning: `a3465' might be used uninitialized in this function nfm-stalin.c:22859: warning: `a3466' might be used uninitialized in this function nfm-stalin.c:22860: warning: `a3467' might be used uninitialized in this function nfm-stalin.c:22863: warning: `a3470' might be used uninitialized in this function nfm-stalin.c:22867: warning: `a3474' might be used uninitialized in this function nfm-stalin.c:22868: warning: `a3475' might be used uninitialized in this function nfm-stalin.c:22869: warning: `a3476' might be used uninitialized in this function nfm-stalin.c:22872: warning: `a3479' might be used uninitialized in this function nfm-stalin.c:22876: warning: `a3483' might be used uninitialized in this function nfm-stalin.c:22877: warning: `a3484' might be used uninitialized in this function nfm-stalin.c:22878: warning: `a3485' might be used uninitialized in this function nfm-stalin.c:22881: warning: `a3488' might be used uninitialized in this function nfm-stalin.c:22885: warning: `a3492' might be used uninitialized in this function nfm-stalin.c:22886: warning: `a3493' might be used uninitialized in this function nfm-stalin.c:22887: warning: `a3494' might be used uninitialized in this function nfm-stalin.c:22890: warning: `a3497' might be used uninitialized in this function nfm-stalin.c:22894: warning: `a3501' might be used uninitialized in this function nfm-stalin.c:22895: warning: `a3502' might be used uninitialized in this function nfm-stalin.c:22896: warning: `a3503' might be used uninitialized in this function nfm-stalin.c:22899: warning: `a3506' might be used uninitialized in this function nfm-stalin.c:22905: warning: `a3740' might be used uninitialized in this function nfm-stalin.c:22906: warning: `a3741' might be used uninitialized in this function nfm-stalin.c:22907: warning: `a3742' might be used uninitialized in this function nfm-stalin.c:22910: warning: `a3745' might be used uninitialized in this function nfm-stalin.c:22914: warning: `a3749' might be used uninitialized in this function nfm-stalin.c:22915: warning: `a3750' might be used uninitialized in this function nfm-stalin.c:22916: warning: `a3751' might be used uninitialized in this function nfm-stalin.c:22919: warning: `a3754' might be used uninitialized in this function nfm-stalin.c:22923: warning: `a3758' might be used uninitialized in this function nfm-stalin.c:22924: warning: `a3759' might be used uninitialized in this function nfm-stalin.c:22925: warning: `a3760' might be used uninitialized in this function nfm-stalin.c:22928: warning: `a3763' might be used uninitialized in this function nfm-stalin.c:22932: warning: `a3767' might be used uninitialized in this function nfm-stalin.c:22933: warning: `a3768' might be used uninitialized in this function nfm-stalin.c:22934: warning: `a3769' might be used uninitialized in this function nfm-stalin.c:22937: warning: `a3772' might be used uninitialized in this function nfm-stalin.c: In function `f1631': nfm-stalin.c:25272: warning: value computed is not used nfm-stalin.c:25467: warning: value computed is not used nfm-stalin.c:26755: warning: value computed is not used nfm-stalin.c:24909: warning: unused variable `p3828' nfm-stalin.c:24906: warning: unused variable `p3774' nfm-stalin.c:24903: warning: unused variable `p3756' nfm-stalin.c:24900: warning: unused variable `p3750' nfm-stalin.c:24897: warning: unused variable `p3744' nfm-stalin.c:24894: warning: unused variable `p3738' nfm-stalin.c:24888: warning: unused variable `p3390' nfm-stalin.c:24885: warning: unused variable `p3384' nfm-stalin.c:24882: warning: unused variable `p3378' nfm-stalin.c:24879: warning: unused variable `p3372' nfm-stalin.c:24876: warning: unused variable `p3366' nfm-stalin.c:24873: warning: unused variable `p3360' nfm-stalin.c:24870: warning: unused variable `p3354' nfm-stalin.c:24867: warning: unused variable `p3348' nfm-stalin.c:24864: warning: unused variable `p3342' nfm-stalin.c:24861: warning: unused variable `p3336' nfm-stalin.c:24858: warning: unused variable `p3330' nfm-stalin.c:24855: warning: unused variable `p3000' nfm-stalin.c:24852: warning: unused variable `p2994' nfm-stalin.c:24849: warning: unused variable `p2976' nfm-stalin.c:24846: warning: unused variable `p2898' nfm-stalin.c:24801: warning: unused variable `e3828' nfm-stalin.c:24796: warning: unused variable `e3774' nfm-stalin.c:24791: warning: unused variable `e3756' nfm-stalin.c:24786: warning: unused variable `e3750' nfm-stalin.c:24781: warning: unused variable `e3744' nfm-stalin.c:24776: warning: unused variable `e3738' nfm-stalin.c:24768: warning: unused variable `e3390' nfm-stalin.c:24763: warning: unused variable `e3384' nfm-stalin.c:24758: warning: unused variable `e3378' nfm-stalin.c:24753: warning: unused variable `e3372' nfm-stalin.c:24748: warning: unused variable `e3366' nfm-stalin.c:24743: warning: unused variable `e3360' nfm-stalin.c:24738: warning: unused variable `e3354' nfm-stalin.c:24733: warning: unused variable `e3348' nfm-stalin.c:24728: warning: unused variable `e3342' nfm-stalin.c:24723: warning: unused variable `e3336' nfm-stalin.c:24718: warning: unused variable `e3330' nfm-stalin.c:24713: warning: unused variable `e3000' nfm-stalin.c:24708: warning: unused variable `e2994' nfm-stalin.c:24703: warning: unused variable `e2976' nfm-stalin.c:24698: warning: unused variable `e2898' nfm-stalin.c:24679: warning: unused variable `e1646' nfm-stalin.c:24678: warning: unused variable `e1645' nfm-stalin.c:24677: warning: unused variable `e1644' nfm-stalin.c:24676: warning: unused variable `e1643' nfm-stalin.c:24675: warning: unused variable `e1642' nfm-stalin.c:24674: warning: unused variable `e1641' nfm-stalin.c:24673: warning: unused variable `e1640' nfm-stalin.c:24672: warning: unused variable `e1639' nfm-stalin.c:24671: warning: unused variable `e1638' nfm-stalin.c:24245: warning: unused variable `a3972' nfm-stalin.c:24236: warning: unused variable `a3891' nfm-stalin.c:24227: warning: unused variable `a3864' nfm-stalin.c:24218: warning: unused variable `a3855' nfm-stalin.c:24209: warning: unused variable `a3846' nfm-stalin.c:24200: warning: unused variable `a3837' nfm-stalin.c:24188: warning: unused variable `a3381' nfm-stalin.c:24179: warning: unused variable `a3372' nfm-stalin.c:24170: warning: unused variable `a3363' nfm-stalin.c:24161: warning: unused variable `a3354' nfm-stalin.c:24152: warning: unused variable `a3345' nfm-stalin.c:24143: warning: unused variable `a3336' nfm-stalin.c:24134: warning: unused variable `a3327' nfm-stalin.c:24125: warning: unused variable `a3318' nfm-stalin.c:24116: warning: unused variable `a3309' nfm-stalin.c:24107: warning: unused variable `a3300' nfm-stalin.c:24098: warning: unused variable `a3291' nfm-stalin.c:24089: warning: unused variable `a2796' nfm-stalin.c:24080: warning: unused variable `a2787' nfm-stalin.c:24071: warning: unused variable `a2760' nfm-stalin.c:24062: warning: unused variable `a2643' nfm-stalin.c:24037: warning: unused variable `a2031' nfm-stalin.c:24036: warning: unused variable `a2030' nfm-stalin.c:24035: warning: unused variable `a2029' nfm-stalin.c:24034: warning: unused variable `a2028' nfm-stalin.c:24033: warning: unused variable `a2027' nfm-stalin.c:24032: warning: unused variable `a2026' nfm-stalin.c:24031: warning: unused variable `a2025' nfm-stalin.c:24030: warning: unused variable `a2024' nfm-stalin.c:24029: warning: unused variable `a2023' nfm-stalin.c:24040: warning: `a2034' might be used uninitialized in this function nfm-stalin.c:24042: warning: `a2036' might be used uninitialized in this function nfm-stalin.c:24043: warning: `a2037' might be used uninitialized in this function nfm-stalin.c:24045: warning: `a2039' might be used uninitialized in this function nfm-stalin.c:24046: warning: `a2040' might be used uninitialized in this function nfm-stalin.c:24056: warning: `a2637' might be used uninitialized in this function nfm-stalin.c:24058: warning: `a2639' might be used uninitialized in this function nfm-stalin.c:24061: warning: `a2642' might be used uninitialized in this function nfm-stalin.c:24065: warning: `a2754' might be used uninitialized in this function nfm-stalin.c:24067: warning: `a2756' might be used uninitialized in this function nfm-stalin.c:24070: warning: `a2759' might be used uninitialized in this function nfm-stalin.c:24074: warning: `a2781' might be used uninitialized in this function nfm-stalin.c:24076: warning: `a2783' might be used uninitialized in this function nfm-stalin.c:24079: warning: `a2786' might be used uninitialized in this function nfm-stalin.c:24083: warning: `a2790' might be used uninitialized in this function nfm-stalin.c:24085: warning: `a2792' might be used uninitialized in this function nfm-stalin.c:24088: warning: `a2795' might be used uninitialized in this function nfm-stalin.c:24092: warning: `a3285' might be used uninitialized in this function nfm-stalin.c:24094: warning: `a3287' might be used uninitialized in this function nfm-stalin.c:24097: warning: `a3290' might be used uninitialized in this function nfm-stalin.c:24101: warning: `a3294' might be used uninitialized in this function nfm-stalin.c:24103: warning: `a3296' might be used uninitialized in this function nfm-stalin.c:24106: warning: `a3299' might be used uninitialized in this function nfm-stalin.c:24110: warning: `a3303' might be used uninitialized in this function nfm-stalin.c:24112: warning: `a3305' might be used uninitialized in this function nfm-stalin.c:24115: warning: `a3308' might be used uninitialized in this function nfm-stalin.c:24119: warning: `a3312' might be used uninitialized in this function nfm-stalin.c:24121: warning: `a3314' might be used uninitialized in this function nfm-stalin.c:24124: warning: `a3317' might be used uninitialized in this function nfm-stalin.c:24128: warning: `a3321' might be used uninitialized in this function nfm-stalin.c:24130: warning: `a3323' might be used uninitialized in this function nfm-stalin.c:24133: warning: `a3326' might be used uninitialized in this function nfm-stalin.c:24137: warning: `a3330' might be used uninitialized in this function nfm-stalin.c:24139: warning: `a3332' might be used uninitialized in this function nfm-stalin.c:24142: warning: `a3335' might be used uninitialized in this function nfm-stalin.c:24146: warning: `a3339' might be used uninitialized in this function nfm-stalin.c:24148: warning: `a3341' might be used uninitialized in this function nfm-stalin.c:24151: warning: `a3344' might be used uninitialized in this function nfm-stalin.c:24155: warning: `a3348' might be used uninitialized in this function nfm-stalin.c:24157: warning: `a3350' might be used uninitialized in this function nfm-stalin.c:24160: warning: `a3353' might be used uninitialized in this function nfm-stalin.c:24164: warning: `a3357' might be used uninitialized in this function nfm-stalin.c:24166: warning: `a3359' might be used uninitialized in this function nfm-stalin.c:24169: warning: `a3362' might be used uninitialized in this function nfm-stalin.c:24173: warning: `a3366' might be used uninitialized in this function nfm-stalin.c:24175: warning: `a3368' might be used uninitialized in this function nfm-stalin.c:24178: warning: `a3371' might be used uninitialized in this function nfm-stalin.c:24182: warning: `a3375' might be used uninitialized in this function nfm-stalin.c:24184: warning: `a3377' might be used uninitialized in this function nfm-stalin.c:24187: warning: `a3380' might be used uninitialized in this function nfm-stalin.c:24194: warning: `a3831' might be used uninitialized in this function nfm-stalin.c:24196: warning: `a3833' might be used uninitialized in this function nfm-stalin.c:24199: warning: `a3836' might be used uninitialized in this function nfm-stalin.c:24203: warning: `a3840' might be used uninitialized in this function nfm-stalin.c:24205: warning: `a3842' might be used uninitialized in this function nfm-stalin.c:24208: warning: `a3845' might be used uninitialized in this function nfm-stalin.c:24212: warning: `a3849' might be used uninitialized in this function nfm-stalin.c:24214: warning: `a3851' might be used uninitialized in this function nfm-stalin.c:24217: warning: `a3854' might be used uninitialized in this function nfm-stalin.c:24221: warning: `a3858' might be used uninitialized in this function nfm-stalin.c:24223: warning: `a3860' might be used uninitialized in this function nfm-stalin.c:24226: warning: `a3863' might be used uninitialized in this function nfm-stalin.c:24230: warning: `a3885' might be used uninitialized in this function nfm-stalin.c:24232: warning: `a3887' might be used uninitialized in this function nfm-stalin.c:24235: warning: `a3890' might be used uninitialized in this function nfm-stalin.c:24239: warning: `a3966' might be used uninitialized in this function nfm-stalin.c:24241: warning: `a3968' might be used uninitialized in this function nfm-stalin.c:24244: warning: `a3971' might be used uninitialized in this function nfm-stalin.c:24423: warning: `t1192' might be used uninitialized in this function nfm-stalin.c:24625: warning: `t1515' might be used uninitialized in this function nfm-stalin.c:24640: warning: `t1537' might be used uninitialized in this function nfm-stalin.c: In function `f1599': nfm-stalin.c:29327: warning: value computed is not used nfm-stalin.c:30616: warning: value computed is not used nfm-stalin.c:28965: warning: unused variable `p3822' nfm-stalin.c:28962: warning: unused variable `p3816' nfm-stalin.c:28959: warning: unused variable `p3810' nfm-stalin.c:28956: warning: unused variable `p3804' nfm-stalin.c:28953: warning: unused variable `p3798' nfm-stalin.c:28950: warning: unused variable `p3792' nfm-stalin.c:28947: warning: unused variable `p3786' nfm-stalin.c:28944: warning: unused variable `p3780' nfm-stalin.c:28937: warning: unused variable `p3180' nfm-stalin.c:28934: warning: unused variable `p3174' nfm-stalin.c:28931: warning: unused variable `p3168' nfm-stalin.c:28928: warning: unused variable `p3162' nfm-stalin.c:28925: warning: unused variable `p3156' nfm-stalin.c:28922: warning: unused variable `p3150' nfm-stalin.c:28919: warning: unused variable `p3144' nfm-stalin.c:28916: warning: unused variable `p3138' nfm-stalin.c:28913: warning: unused variable `p3132' nfm-stalin.c:28910: warning: unused variable `p3126' nfm-stalin.c:28907: warning: unused variable `p3120' nfm-stalin.c:28904: warning: unused variable `p3114' nfm-stalin.c:28864: warning: unused variable `e3822' nfm-stalin.c:28859: warning: unused variable `e3816' nfm-stalin.c:28854: warning: unused variable `e3810' nfm-stalin.c:28849: warning: unused variable `e3804' nfm-stalin.c:28844: warning: unused variable `e3798' nfm-stalin.c:28839: warning: unused variable `e3792' nfm-stalin.c:28834: warning: unused variable `e3786' nfm-stalin.c:28829: warning: unused variable `e3780' nfm-stalin.c:28820: warning: unused variable `e3180' nfm-stalin.c:28815: warning: unused variable `e3174' nfm-stalin.c:28810: warning: unused variable `e3168' nfm-stalin.c:28805: warning: unused variable `e3162' nfm-stalin.c:28800: warning: unused variable `e3156' nfm-stalin.c:28795: warning: unused variable `e3150' nfm-stalin.c:28790: warning: unused variable `e3144' nfm-stalin.c:28785: warning: unused variable `e3138' nfm-stalin.c:28780: warning: unused variable `e3132' nfm-stalin.c:28775: warning: unused variable `e3126' nfm-stalin.c:28770: warning: unused variable `e3120' nfm-stalin.c:28765: warning: unused variable `e3114' nfm-stalin.c:28747: warning: unused variable `e1612' nfm-stalin.c:28746: warning: unused variable `e1611' nfm-stalin.c:28745: warning: unused variable `e1610' nfm-stalin.c:28744: warning: unused variable `e1609' nfm-stalin.c:28743: warning: unused variable `e1608' nfm-stalin.c:28742: warning: unused variable `e1607' nfm-stalin.c:28741: warning: unused variable `e1606' nfm-stalin.c:28740: warning: unused variable `e1605' nfm-stalin.c:28739: warning: unused variable `e1604' nfm-stalin.c:28343: warning: unused variable `a3963' nfm-stalin.c:28334: warning: unused variable `a3954' nfm-stalin.c:28325: warning: unused variable `a3945' nfm-stalin.c:28316: warning: unused variable `a3936' nfm-stalin.c:28307: warning: unused variable `a3927' nfm-stalin.c:28298: warning: unused variable `a3918' nfm-stalin.c:28289: warning: unused variable `a3909' nfm-stalin.c:28280: warning: unused variable `a3900' nfm-stalin.c:28267: warning: unused variable `a3066' nfm-stalin.c:28258: warning: unused variable `a3057' nfm-stalin.c:28249: warning: unused variable `a3048' nfm-stalin.c:28240: warning: unused variable `a3039' nfm-stalin.c:28231: warning: unused variable `a3030' nfm-stalin.c:28222: warning: unused variable `a3021' nfm-stalin.c:28213: warning: unused variable `a3012' nfm-stalin.c:28204: warning: unused variable `a3003' nfm-stalin.c:28195: warning: unused variable `a2994' nfm-stalin.c:28186: warning: unused variable `a2985' nfm-stalin.c:28177: warning: unused variable `a2976' nfm-stalin.c:28168: warning: unused variable `a2967' nfm-stalin.c:28144: warning: unused variable `a2009' nfm-stalin.c:28143: warning: unused variable `a2008' nfm-stalin.c:28142: warning: unused variable `a2007' nfm-stalin.c:28141: warning: unused variable `a2006' nfm-stalin.c:28140: warning: unused variable `a2005' nfm-stalin.c:28139: warning: unused variable `a2004' nfm-stalin.c:28138: warning: unused variable `a2003' nfm-stalin.c:28137: warning: unused variable `a2002' nfm-stalin.c:28136: warning: unused variable `a2001' nfm-stalin.c:28147: warning: `a2012' might be used uninitialized in this function nfm-stalin.c:28149: warning: `a2014' might be used uninitialized in this function nfm-stalin.c:28150: warning: `a2015' might be used uninitialized in this function nfm-stalin.c:28152: warning: `a2017' might be used uninitialized in this function nfm-stalin.c:28153: warning: `a2018' might be used uninitialized in this function nfm-stalin.c:28162: warning: `a2961' might be used uninitialized in this function nfm-stalin.c:28164: warning: `a2963' might be used uninitialized in this function nfm-stalin.c:28167: warning: `a2966' might be used uninitialized in this function nfm-stalin.c:28171: warning: `a2970' might be used uninitialized in this function nfm-stalin.c:28173: warning: `a2972' might be used uninitialized in this function nfm-stalin.c:28176: warning: `a2975' might be used uninitialized in this function nfm-stalin.c:28180: warning: `a2979' might be used uninitialized in this function nfm-stalin.c:28182: warning: `a2981' might be used uninitialized in this function nfm-stalin.c:28185: warning: `a2984' might be used uninitialized in this function nfm-stalin.c:28189: warning: `a2988' might be used uninitialized in this function nfm-stalin.c:28191: warning: `a2990' might be used uninitialized in this function nfm-stalin.c:28194: warning: `a2993' might be used uninitialized in this function nfm-stalin.c:28198: warning: `a2997' might be used uninitialized in this function nfm-stalin.c:28200: warning: `a2999' might be used uninitialized in this function nfm-stalin.c:28203: warning: `a3002' might be used uninitialized in this function nfm-stalin.c:28207: warning: `a3006' might be used uninitialized in this function nfm-stalin.c:28209: warning: `a3008' might be used uninitialized in this function nfm-stalin.c:28212: warning: `a3011' might be used uninitialized in this function nfm-stalin.c:28216: warning: `a3015' might be used uninitialized in this function nfm-stalin.c:28218: warning: `a3017' might be used uninitialized in this function nfm-stalin.c:28221: warning: `a3020' might be used uninitialized in this function nfm-stalin.c:28225: warning: `a3024' might be used uninitialized in this function nfm-stalin.c:28227: warning: `a3026' might be used uninitialized in this function nfm-stalin.c:28230: warning: `a3029' might be used uninitialized in this function nfm-stalin.c:28234: warning: `a3033' might be used uninitialized in this function nfm-stalin.c:28236: warning: `a3035' might be used uninitialized in this function nfm-stalin.c:28239: warning: `a3038' might be used uninitialized in this function nfm-stalin.c:28243: warning: `a3042' might be used uninitialized in this function nfm-stalin.c:28245: warning: `a3044' might be used uninitialized in this function nfm-stalin.c:28248: warning: `a3047' might be used uninitialized in this function nfm-stalin.c:28252: warning: `a3051' might be used uninitialized in this function nfm-stalin.c:28254: warning: `a3053' might be used uninitialized in this function nfm-stalin.c:28257: warning: `a3056' might be used uninitialized in this function nfm-stalin.c:28261: warning: `a3060' might be used uninitialized in this function nfm-stalin.c:28263: warning: `a3062' might be used uninitialized in this function nfm-stalin.c:28266: warning: `a3065' might be used uninitialized in this function nfm-stalin.c:28274: warning: `a3894' might be used uninitialized in this function nfm-stalin.c:28276: warning: `a3896' might be used uninitialized in this function nfm-stalin.c:28279: warning: `a3899' might be used uninitialized in this function nfm-stalin.c:28283: warning: `a3903' might be used uninitialized in this function nfm-stalin.c:28285: warning: `a3905' might be used uninitialized in this function nfm-stalin.c:28288: warning: `a3908' might be used uninitialized in this function nfm-stalin.c:28292: warning: `a3912' might be used uninitialized in this function nfm-stalin.c:28294: warning: `a3914' might be used uninitialized in this function nfm-stalin.c:28297: warning: `a3917' might be used uninitialized in this function nfm-stalin.c:28301: warning: `a3921' might be used uninitialized in this function nfm-stalin.c:28303: warning: `a3923' might be used uninitialized in this function nfm-stalin.c:28306: warning: `a3926' might be used uninitialized in this function nfm-stalin.c:28310: warning: `a3930' might be used uninitialized in this function nfm-stalin.c:28312: warning: `a3932' might be used uninitialized in this function nfm-stalin.c:28315: warning: `a3935' might be used uninitialized in this function nfm-stalin.c:28319: warning: `a3939' might be used uninitialized in this function nfm-stalin.c:28321: warning: `a3941' might be used uninitialized in this function nfm-stalin.c:28324: warning: `a3944' might be used uninitialized in this function nfm-stalin.c:28328: warning: `a3948' might be used uninitialized in this function nfm-stalin.c:28330: warning: `a3950' might be used uninitialized in this function nfm-stalin.c:28333: warning: `a3953' might be used uninitialized in this function nfm-stalin.c:28337: warning: `a3957' might be used uninitialized in this function nfm-stalin.c:28339: warning: `a3959' might be used uninitialized in this function nfm-stalin.c:28342: warning: `a3962' might be used uninitialized in this function nfm-stalin.c:28508: warning: `t1841' might be used uninitialized in this function nfm-stalin.c:28707: warning: `t2158' might be used uninitialized in this function nfm-stalin.c: In function `f1589': nfm-stalin.c:32637: warning: value computed is not used nfm-stalin.c:32934: warning: value computed is not used nfm-stalin.c:33232: warning: value computed is not used nfm-stalin.c:32276: warning: unused variable `p4072' nfm-stalin.c:32273: warning: unused variable `p4066' nfm-stalin.c:32269: warning: unused variable `p2946' nfm-stalin.c:32266: warning: unused variable `p2940' nfm-stalin.c:32263: warning: unused variable `p2850' nfm-stalin.c:32260: warning: unused variable `p2844' nfm-stalin.c:32240: warning: unused variable `e4072' nfm-stalin.c:32235: warning: unused variable `e4066' nfm-stalin.c:32229: warning: unused variable `e2946' nfm-stalin.c:32224: warning: unused variable `e2940' nfm-stalin.c:32219: warning: unused variable `e2850' nfm-stalin.c:32214: warning: unused variable `e2844' nfm-stalin.c:32046: warning: unused variable `a4336' nfm-stalin.c:32037: warning: unused variable `a4327' nfm-stalin.c:32027: warning: unused variable `a2715' nfm-stalin.c:32018: warning: unused variable `a2706' nfm-stalin.c:32009: warning: unused variable `a2571' nfm-stalin.c:32000: warning: unused variable `a2562' nfm-stalin.c:31994: warning: `a2556' might be used uninitialized in this function nfm-stalin.c:31996: warning: `a2558' might be used uninitialized in this function nfm-stalin.c:31999: warning: `a2561' might be used uninitialized in this function nfm-stalin.c:32003: warning: `a2565' might be used uninitialized in this function nfm-stalin.c:32005: warning: `a2567' might be used uninitialized in this function nfm-stalin.c:32008: warning: `a2570' might be used uninitialized in this function nfm-stalin.c:32012: warning: `a2700' might be used uninitialized in this function nfm-stalin.c:32014: warning: `a2702' might be used uninitialized in this function nfm-stalin.c:32017: warning: `a2705' might be used uninitialized in this function nfm-stalin.c:32021: warning: `a2709' might be used uninitialized in this function nfm-stalin.c:32023: warning: `a2711' might be used uninitialized in this function nfm-stalin.c:32026: warning: `a2714' might be used uninitialized in this function nfm-stalin.c:32031: warning: `a4321' might be used uninitialized in this function nfm-stalin.c:32033: warning: `a4323' might be used uninitialized in this function nfm-stalin.c:32036: warning: `a4326' might be used uninitialized in this function nfm-stalin.c:32040: warning: `a4330' might be used uninitialized in this function nfm-stalin.c:32042: warning: `a4332' might be used uninitialized in this function nfm-stalin.c:32045: warning: `a4335' might be used uninitialized in this function nfm-stalin.c:32133: warning: `t2340' might be used uninitialized in this function nfm-stalin.c:32154: warning: `t2372' might be used uninitialized in this function nfm-stalin.c:32175: warning: `t2404' might be used uninitialized in this function nfm-stalin.c: In function `f1583': nfm-stalin.c:33743: warning: value computed is not used nfm-stalin.c:33382: warning: unused variable `p3768' nfm-stalin.c:33379: warning: unused variable `p3762' nfm-stalin.c:33366: warning: unused variable `e3768' nfm-stalin.c:33361: warning: unused variable `e3762' nfm-stalin.c:33290: warning: unused variable `a3882' nfm-stalin.c:33281: warning: unused variable `a3873' nfm-stalin.c:33275: warning: `a3867' might be used uninitialized in this function nfm-stalin.c:33277: warning: `a3869' might be used uninitialized in this function nfm-stalin.c:33280: warning: `a3872' might be used uninitialized in this function nfm-stalin.c:33284: warning: `a3876' might be used uninitialized in this function nfm-stalin.c:33286: warning: `a3878' might be used uninitialized in this function nfm-stalin.c:33289: warning: `a3881' might be used uninitialized in this function nfm-stalin.c:33325: warning: `t2498' might be used uninitialized in this function nfm-stalin.c: In function `f1577': nfm-stalin.c:34223: warning: value computed is not used nfm-stalin.c:33887: warning: unused variable `p2904' nfm-stalin.c:33875: warning: unused variable `p892' nfm-stalin.c:33872: warning: unused variable `e2904' nfm-stalin.c:33863: warning: unused variable `e892' nfm-stalin.c:33799: warning: unused variable `a2652' nfm-stalin.c:33786: warning: unused variable `a1413' nfm-stalin.c:33780: warning: `a1407' might be used uninitialized in this function nfm-stalin.c:33782: warning: `a1409' might be used uninitialized in this function nfm-stalin.c:33785: warning: `a1412' might be used uninitialized in this function nfm-stalin.c:33793: warning: `a2646' might be used uninitialized in this function nfm-stalin.c:33795: warning: `a2648' might be used uninitialized in this function nfm-stalin.c:33798: warning: `a2651' might be used uninitialized in this function nfm-stalin.c:33832: warning: `t2590' might be used uninitialized in this function nfm-stalin.c: In function `f1569': nfm-stalin.c:34610: warning: value computed is not used nfm-stalin.c:34791: warning: value computed is not used nfm-stalin.c:34385: warning: unused variable `p3048' nfm-stalin.c:34382: warning: unused variable `p3042' nfm-stalin.c:34366: warning: unused variable `e3048' nfm-stalin.c:34361: warning: unused variable `e3042' nfm-stalin.c:34281: warning: unused variable `a2868' nfm-stalin.c:34272: warning: unused variable `a2859' nfm-stalin.c:34266: warning: `a2853' might be used uninitialized in this function nfm-stalin.c:34268: warning: `a2855' might be used uninitialized in this function nfm-stalin.c:34271: warning: `a2858' might be used uninitialized in this function nfm-stalin.c:34275: warning: `a2862' might be used uninitialized in this function nfm-stalin.c:34277: warning: `a2864' might be used uninitialized in this function nfm-stalin.c:34280: warning: `a2867' might be used uninitialized in this function nfm-stalin.c:34314: warning: `t2682' might be used uninitialized in this function nfm-stalin.c:34330: warning: `t2706' might be used uninitialized in this function nfm-stalin.c: In function `f1336': nfm-stalin.c:42298: warning: value computed is not used nfm-stalin.c:54707: warning: value computed is not used nfm-stalin.c:56025: warning: value computed is not used nfm-stalin.c:56230: warning: value computed is not used nfm-stalin.c:56637: warning: value computed is not used nfm-stalin.c:57385: warning: value computed is not used nfm-stalin.c:58318: warning: value computed is not used nfm-stalin.c:58999: warning: value computed is not used nfm-stalin.c:59217: warning: value computed is not used nfm-stalin.c:59624: warning: value computed is not used nfm-stalin.c:60372: warning: value computed is not used nfm-stalin.c:61305: warning: value computed is not used nfm-stalin.c:62004: warning: value computed is not used nfm-stalin.c:62751: warning: value computed is not used nfm-stalin.c:40824: warning: unused variable `p4168' nfm-stalin.c:40821: warning: unused variable `p4162' nfm-stalin.c:40818: warning: unused variable `p4156' nfm-stalin.c:40815: warning: unused variable `p4150' nfm-stalin.c:40812: warning: unused variable `p4144' nfm-stalin.c:40809: warning: unused variable `p4138' nfm-stalin.c:40806: warning: unused variable `p4132' nfm-stalin.c:40803: warning: unused variable `p4126' nfm-stalin.c:40800: warning: unused variable `p4120' nfm-stalin.c:40797: warning: unused variable `p4114' nfm-stalin.c:40794: warning: unused variable `p4108' nfm-stalin.c:40791: warning: unused variable `p4102' nfm-stalin.c:40788: warning: unused variable `p4096' nfm-stalin.c:40785: warning: unused variable `p4090' nfm-stalin.c:40782: warning: unused variable `p4084' nfm-stalin.c:40779: warning: unused variable `p4078' nfm-stalin.c:40776: warning: unused variable `p4060' nfm-stalin.c:40773: warning: unused variable `p4054' nfm-stalin.c:40770: warning: unused variable `p4048' nfm-stalin.c:40767: warning: unused variable `p4042' nfm-stalin.c:40764: warning: unused variable `p4036' nfm-stalin.c:40761: warning: unused variable `p4030' nfm-stalin.c:40758: warning: unused variable `p4024' nfm-stalin.c:40755: warning: unused variable `p4018' nfm-stalin.c:40752: warning: unused variable `p4012' nfm-stalin.c:40749: warning: unused variable `p4006' nfm-stalin.c:40746: warning: unused variable `p4000' nfm-stalin.c:40743: warning: unused variable `p3994' nfm-stalin.c:40740: warning: unused variable `p3988' nfm-stalin.c:40736: warning: unused variable `p3981' nfm-stalin.c:40733: warning: unused variable `p3975' nfm-stalin.c:40730: warning: unused variable `p3969' nfm-stalin.c:40727: warning: unused variable `p3963' nfm-stalin.c:40724: warning: unused variable `p3957' nfm-stalin.c:40721: warning: unused variable `p3951' nfm-stalin.c:40717: warning: unused variable `p3944' nfm-stalin.c:40714: warning: unused variable `p3938' nfm-stalin.c:40711: warning: unused variable `p3932' nfm-stalin.c:40708: warning: unused variable `p3926' nfm-stalin.c:40705: warning: unused variable `p3920' nfm-stalin.c:40702: warning: unused variable `p3914' nfm-stalin.c:40699: warning: unused variable `p3908' nfm-stalin.c:40696: warning: unused variable `p3902' nfm-stalin.c:40692: warning: unused variable `p3895' nfm-stalin.c:40689: warning: unused variable `p3889' nfm-stalin.c:40686: warning: unused variable `p3883' nfm-stalin.c:40683: warning: unused variable `p3877' nfm-stalin.c:40680: warning: unused variable `p3871' nfm-stalin.c:40677: warning: unused variable `p3865' nfm-stalin.c:40673: warning: unused variable `p3858' nfm-stalin.c:40670: warning: unused variable `p3852' nfm-stalin.c:40667: warning: unused variable `p3846' nfm-stalin.c:40664: warning: unused variable `p3840' nfm-stalin.c:40661: warning: unused variable `p3834' nfm-stalin.c:40658: warning: unused variable `p3732' nfm-stalin.c:40655: warning: unused variable `p3671' nfm-stalin.c:40598: warning: unused variable `p3540' nfm-stalin.c:40595: warning: unused variable `p3534' nfm-stalin.c:40592: warning: unused variable `p3528' nfm-stalin.c:40589: warning: unused variable `p3522' nfm-stalin.c:40586: warning: unused variable `p3516' nfm-stalin.c:40583: warning: unused variable `p3510' nfm-stalin.c:40580: warning: unused variable `p3504' nfm-stalin.c:40577: warning: unused variable `p3498' nfm-stalin.c:40574: warning: unused variable `p3492' nfm-stalin.c:40571: warning: unused variable `p3486' nfm-stalin.c:40568: warning: unused variable `p3480' nfm-stalin.c:40565: warning: unused variable `p3324' nfm-stalin.c:40562: warning: unused variable `p3318' nfm-stalin.c:40559: warning: unused variable `p3312' nfm-stalin.c:40556: warning: unused variable `p3306' nfm-stalin.c:40553: warning: unused variable `p3300' nfm-stalin.c:40550: warning: unused variable `p3294' nfm-stalin.c:40547: warning: unused variable `p3288' nfm-stalin.c:40544: warning: unused variable `p3282' nfm-stalin.c:40541: warning: unused variable `p3276' nfm-stalin.c:40538: warning: unused variable `p3270' nfm-stalin.c:40535: warning: unused variable `p3264' nfm-stalin.c:40532: warning: unused variable `p3258' nfm-stalin.c:40529: warning: unused variable `p3252' nfm-stalin.c:40526: warning: unused variable `p3246' nfm-stalin.c:40523: warning: unused variable `p3240' nfm-stalin.c:40520: warning: unused variable `p3234' nfm-stalin.c:40517: warning: unused variable `p3228' nfm-stalin.c:40514: warning: unused variable `p3222' nfm-stalin.c:40511: warning: unused variable `p3216' nfm-stalin.c:40508: warning: unused variable `p3210' nfm-stalin.c:40505: warning: unused variable `p3204' nfm-stalin.c:40502: warning: unused variable `p3198' nfm-stalin.c:40499: warning: unused variable `p3192' nfm-stalin.c:40496: warning: unused variable `p3186' nfm-stalin.c:40493: warning: unused variable `p3108' nfm-stalin.c:40490: warning: unused variable `p3102' nfm-stalin.c:40487: warning: unused variable `p3096' nfm-stalin.c:40484: warning: unused variable `p3090' nfm-stalin.c:40481: warning: unused variable `p3084' nfm-stalin.c:40478: warning: unused variable `p3078' nfm-stalin.c:40475: warning: unused variable `p3072' nfm-stalin.c:40472: warning: unused variable `p3066' nfm-stalin.c:40469: warning: unused variable `p3060' nfm-stalin.c:40466: warning: unused variable `p3054' nfm-stalin.c:40463: warning: unused variable `p3036' nfm-stalin.c:40460: warning: unused variable `p3030' nfm-stalin.c:40457: warning: unused variable `p3024' nfm-stalin.c:40454: warning: unused variable `p3018' nfm-stalin.c:40451: warning: unused variable `p3012' nfm-stalin.c:40448: warning: unused variable `p3006' nfm-stalin.c:40445: warning: unused variable `p2988' nfm-stalin.c:40442: warning: unused variable `p2982' nfm-stalin.c:40439: warning: unused variable `p2970' nfm-stalin.c:40436: warning: unused variable `p2958' nfm-stalin.c:40433: warning: unused variable `p2952' nfm-stalin.c:40430: warning: unused variable `p2934' nfm-stalin.c:40427: warning: unused variable `p2928' nfm-stalin.c:40424: warning: unused variable `p2922' nfm-stalin.c:40421: warning: unused variable `p2916' nfm-stalin.c:40418: warning: unused variable `p2910' nfm-stalin.c:40415: warning: unused variable `p2892' nfm-stalin.c:40412: warning: unused variable `p2886' nfm-stalin.c:40409: warning: unused variable `p2874' nfm-stalin.c:40406: warning: unused variable `p2868' nfm-stalin.c:40403: warning: unused variable `p2862' nfm-stalin.c:40400: warning: unused variable `p2856' nfm-stalin.c:40397: warning: unused variable `p2838' nfm-stalin.c:40394: warning: unused variable `p2832' nfm-stalin.c:40391: warning: unused variable `p2826' nfm-stalin.c:40113: warning: unused variable `p886' nfm-stalin.c:40110: warning: unused variable `p880' nfm-stalin.c:40107: warning: unused variable `p874' nfm-stalin.c:40102: warning: unused variable `e4168' nfm-stalin.c:40097: warning: unused variable `e4162' nfm-stalin.c:40092: warning: unused variable `e4156' nfm-stalin.c:40087: warning: unused variable `e4150' nfm-stalin.c:40082: warning: unused variable `e4144' nfm-stalin.c:40077: warning: unused variable `e4138' nfm-stalin.c:40072: warning: unused variable `e4132' nfm-stalin.c:40067: warning: unused variable `e4126' nfm-stalin.c:40062: warning: unused variable `e4120' nfm-stalin.c:40057: warning: unused variable `e4114' nfm-stalin.c:40052: warning: unused variable `e4108' nfm-stalin.c:40047: warning: unused variable `e4102' nfm-stalin.c:40042: warning: unused variable `e4096' nfm-stalin.c:40037: warning: unused variable `e4090' nfm-stalin.c:40032: warning: unused variable `e4084' nfm-stalin.c:40027: warning: unused variable `e4078' nfm-stalin.c:40022: warning: unused variable `e4060' nfm-stalin.c:40017: warning: unused variable `e4054' nfm-stalin.c:40012: warning: unused variable `e4048' nfm-stalin.c:40007: warning: unused variable `e4042' nfm-stalin.c:40002: warning: unused variable `e4036' nfm-stalin.c:39997: warning: unused variable `e4030' nfm-stalin.c:39992: warning: unused variable `e4024' nfm-stalin.c:39987: warning: unused variable `e4018' nfm-stalin.c:39982: warning: unused variable `e4012' nfm-stalin.c:39977: warning: unused variable `e4006' nfm-stalin.c:39972: warning: unused variable `e4000' nfm-stalin.c:39967: warning: unused variable `e3994' nfm-stalin.c:39962: warning: unused variable `e3988' nfm-stalin.c:39956: warning: unused variable `e3981' nfm-stalin.c:39951: warning: unused variable `e3975' nfm-stalin.c:39946: warning: unused variable `e3969' nfm-stalin.c:39941: warning: unused variable `e3963' nfm-stalin.c:39936: warning: unused variable `e3957' nfm-stalin.c:39931: warning: unused variable `e3951' nfm-stalin.c:39925: warning: unused variable `e3944' nfm-stalin.c:39920: warning: unused variable `e3938' nfm-stalin.c:39915: warning: unused variable `e3932' nfm-stalin.c:39910: warning: unused variable `e3926' nfm-stalin.c:39905: warning: unused variable `e3920' nfm-stalin.c:39900: warning: unused variable `e3914' nfm-stalin.c:39895: warning: unused variable `e3908' nfm-stalin.c:39890: warning: unused variable `e3902' nfm-stalin.c:39884: warning: unused variable `e3895' nfm-stalin.c:39879: warning: unused variable `e3889' nfm-stalin.c:39874: warning: unused variable `e3883' nfm-stalin.c:39869: warning: unused variable `e3877' nfm-stalin.c:39864: warning: unused variable `e3871' nfm-stalin.c:39859: warning: unused variable `e3865' nfm-stalin.c:39853: warning: unused variable `e3858' nfm-stalin.c:39848: warning: unused variable `e3852' nfm-stalin.c:39843: warning: unused variable `e3846' nfm-stalin.c:39838: warning: unused variable `e3840' nfm-stalin.c:39833: warning: unused variable `e3834' nfm-stalin.c:39828: warning: unused variable `e3732' nfm-stalin.c:39823: warning: unused variable `e3671' nfm-stalin.c:39818: warning: unused variable `e3645' nfm-stalin.c:39817: warning: unused variable `e3644' nfm-stalin.c:39816: warning: unused variable `e3643' nfm-stalin.c:39815: warning: unused variable `e3642' nfm-stalin.c:39813: warning: unused variable `e3640' nfm-stalin.c:39812: warning: unused variable `e3639' nfm-stalin.c:39811: warning: unused variable `e3638' nfm-stalin.c:39810: warning: unused variable `e3637' nfm-stalin.c:39808: warning: unused variable `e3635' nfm-stalin.c:39807: warning: unused variable `e3634' nfm-stalin.c:39806: warning: unused variable `e3633' nfm-stalin.c:39805: warning: unused variable `e3632' nfm-stalin.c:39803: warning: unused variable `e3630' nfm-stalin.c:39802: warning: unused variable `e3629' nfm-stalin.c:39801: warning: unused variable `e3628' nfm-stalin.c:39800: warning: unused variable `e3627' nfm-stalin.c:39798: warning: unused variable `e3623' nfm-stalin.c:39760: warning: unused variable `e3540' nfm-stalin.c:39755: warning: unused variable `e3534' nfm-stalin.c:39750: warning: unused variable `e3528' nfm-stalin.c:39745: warning: unused variable `e3522' nfm-stalin.c:39740: warning: unused variable `e3516' nfm-stalin.c:39735: warning: unused variable `e3510' nfm-stalin.c:39730: warning: unused variable `e3504' nfm-stalin.c:39725: warning: unused variable `e3498' nfm-stalin.c:39720: warning: unused variable `e3492' nfm-stalin.c:39715: warning: unused variable `e3486' nfm-stalin.c:39710: warning: unused variable `e3480' nfm-stalin.c:39705: warning: unused variable `e3324' nfm-stalin.c:39700: warning: unused variable `e3318' nfm-stalin.c:39695: warning: unused variable `e3312' nfm-stalin.c:39690: warning: unused variable `e3306' nfm-stalin.c:39685: warning: unused variable `e3300' nfm-stalin.c:39680: warning: unused variable `e3294' nfm-stalin.c:39675: warning: unused variable `e3288' nfm-stalin.c:39670: warning: unused variable `e3282' nfm-stalin.c:39665: warning: unused variable `e3276' nfm-stalin.c:39660: warning: unused variable `e3270' nfm-stalin.c:39655: warning: unused variable `e3264' nfm-stalin.c:39650: warning: unused variable `e3258' nfm-stalin.c:39645: warning: unused variable `e3252' nfm-stalin.c:39640: warning: unused variable `e3246' nfm-stalin.c:39635: warning: unused variable `e3240' nfm-stalin.c:39630: warning: unused variable `e3234' nfm-stalin.c:39625: warning: unused variable `e3228' nfm-stalin.c:39620: warning: unused variable `e3222' nfm-stalin.c:39615: warning: unused variable `e3216' nfm-stalin.c:39610: warning: unused variable `e3210' nfm-stalin.c:39605: warning: unused variable `e3204' nfm-stalin.c:39600: warning: unused variable `e3198' nfm-stalin.c:39595: warning: unused variable `e3192' nfm-stalin.c:39590: warning: unused variable `e3186' nfm-stalin.c:39585: warning: unused variable `e3108' nfm-stalin.c:39580: warning: unused variable `e3102' nfm-stalin.c:39575: warning: unused variable `e3096' nfm-stalin.c:39570: warning: unused variable `e3090' nfm-stalin.c:39565: warning: unused variable `e3084' nfm-stalin.c:39560: warning: unused variable `e3078' nfm-stalin.c:39555: warning: unused variable `e3072' nfm-stalin.c:39550: warning: unused variable `e3066' nfm-stalin.c:39545: warning: unused variable `e3060' nfm-stalin.c:39540: warning: unused variable `e3054' nfm-stalin.c:39535: warning: unused variable `e3036' nfm-stalin.c:39530: warning: unused variable `e3030' nfm-stalin.c:39525: warning: unused variable `e3024' nfm-stalin.c:39520: warning: unused variable `e3018' nfm-stalin.c:39515: warning: unused variable `e3012' nfm-stalin.c:39510: warning: unused variable `e3006' nfm-stalin.c:39505: warning: unused variable `e2988' nfm-stalin.c:39500: warning: unused variable `e2982' nfm-stalin.c:39495: warning: unused variable `e2970' nfm-stalin.c:39490: warning: unused variable `e2958' nfm-stalin.c:39485: warning: unused variable `e2952' nfm-stalin.c:39480: warning: unused variable `e2934' nfm-stalin.c:39475: warning: unused variable `e2928' nfm-stalin.c:39470: warning: unused variable `e2922' nfm-stalin.c:39465: warning: unused variable `e2916' nfm-stalin.c:39460: warning: unused variable `e2910' nfm-stalin.c:39455: warning: unused variable `e2892' nfm-stalin.c:39450: warning: unused variable `e2886' nfm-stalin.c:39445: warning: unused variable `e2874' nfm-stalin.c:39440: warning: unused variable `e2868' nfm-stalin.c:39435: warning: unused variable `e2862' nfm-stalin.c:39430: warning: unused variable `e2856' nfm-stalin.c:39425: warning: unused variable `e2838' nfm-stalin.c:39420: warning: unused variable `e2832' nfm-stalin.c:39415: warning: unused variable `e2826' nfm-stalin.c:39355: warning: unused variable `e1684' nfm-stalin.c:39354: warning: unused variable `e1683' nfm-stalin.c:39353: warning: unused variable `e1682' nfm-stalin.c:39352: warning: unused variable `e1681' nfm-stalin.c:39313: warning: unused variable `e1471' nfm-stalin.c:39300: warning: unused variable `e1437' nfm-stalin.c:39299: warning: unused variable `e1433' nfm-stalin.c:39296: warning: unused variable `e1427' nfm-stalin.c:39291: warning: unused variable `e1418' nfm-stalin.c:39284: warning: unused variable `e1396' nfm-stalin.c:39283: warning: unused variable `e1394' nfm-stalin.c:39282: warning: unused variable `e1392' nfm-stalin.c:39251: warning: unused variable `e932' nfm-stalin.c:39250: warning: unused variable `e931' nfm-stalin.c:39249: warning: unused variable `e930' nfm-stalin.c:39248: warning: unused variable `e929' nfm-stalin.c:39245: warning: unused variable `e925' nfm-stalin.c:39243: warning: unused variable `e886' nfm-stalin.c:39238: warning: unused variable `e880' nfm-stalin.c:39233: warning: unused variable `e874' nfm-stalin.c:36252: warning: unused variable `a4480' nfm-stalin.c:36243: warning: unused variable `a4471' nfm-stalin.c:36234: warning: unused variable `a4462' nfm-stalin.c:36225: warning: unused variable `a4453' nfm-stalin.c:36216: warning: unused variable `a4444' nfm-stalin.c:36207: warning: unused variable `a4435' nfm-stalin.c:36198: warning: unused variable `a4426' nfm-stalin.c:36189: warning: unused variable `a4417' nfm-stalin.c:36180: warning: unused variable `a4408' nfm-stalin.c:36171: warning: unused variable `a4399' nfm-stalin.c:36162: warning: unused variable `a4390' nfm-stalin.c:36153: warning: unused variable `a4381' nfm-stalin.c:36144: warning: unused variable `a4372' nfm-stalin.c:36135: warning: unused variable `a4363' nfm-stalin.c:36126: warning: unused variable `a4354' nfm-stalin.c:36117: warning: unused variable `a4345' nfm-stalin.c:36108: warning: unused variable `a4318' nfm-stalin.c:36099: warning: unused variable `a4309' nfm-stalin.c:36090: warning: unused variable `a4300' nfm-stalin.c:36081: warning: unused variable `a4291' nfm-stalin.c:36072: warning: unused variable `a4282' nfm-stalin.c:36063: warning: unused variable `a4273' nfm-stalin.c:36054: warning: unused variable `a4264' nfm-stalin.c:36045: warning: unused variable `a4255' nfm-stalin.c:36036: warning: unused variable `a4246' nfm-stalin.c:36027: warning: unused variable `a4237' nfm-stalin.c:36018: warning: unused variable `a4228' nfm-stalin.c:36009: warning: unused variable `a4219' nfm-stalin.c:36000: warning: unused variable `a4210' nfm-stalin.c:35990: warning: unused variable `a4200' nfm-stalin.c:35981: warning: unused variable `a4191' nfm-stalin.c:35972: warning: unused variable `a4182' nfm-stalin.c:35963: warning: unused variable `a4173' nfm-stalin.c:35954: warning: unused variable `a4164' nfm-stalin.c:35945: warning: unused variable `a4155' nfm-stalin.c:35935: warning: unused variable `a4145' nfm-stalin.c:35926: warning: unused variable `a4136' nfm-stalin.c:35917: warning: unused variable `a4127' nfm-stalin.c:35908: warning: unused variable `a4118' nfm-stalin.c:35899: warning: unused variable `a4109' nfm-stalin.c:35890: warning: unused variable `a4100' nfm-stalin.c:35881: warning: unused variable `a4091' nfm-stalin.c:35872: warning: unused variable `a4082' nfm-stalin.c:35862: warning: unused variable `a4072' nfm-stalin.c:35853: warning: unused variable `a4063' nfm-stalin.c:35844: warning: unused variable `a4054' nfm-stalin.c:35835: warning: unused variable `a4045' nfm-stalin.c:35826: warning: unused variable `a4036' nfm-stalin.c:35817: warning: unused variable `a4027' nfm-stalin.c:35807: warning: unused variable `a4017' nfm-stalin.c:35798: warning: unused variable `a4008' nfm-stalin.c:35789: warning: unused variable `a3999' nfm-stalin.c:35780: warning: unused variable `a3990' nfm-stalin.c:35771: warning: unused variable `a3981' nfm-stalin.c:35762: warning: unused variable `a3828' nfm-stalin.c:35753: warning: unused variable `a3737' nfm-stalin.c:35744: warning: unused variable `a3715' nfm-stalin.c:35743: warning: unused variable `a3714' nfm-stalin.c:35742: warning: unused variable `a3713' nfm-stalin.c:35741: warning: unused variable `a3712' nfm-stalin.c:35739: warning: unused variable `a3710' nfm-stalin.c:35738: warning: unused variable `a3709' nfm-stalin.c:35737: warning: unused variable `a3708' nfm-stalin.c:35736: warning: unused variable `a3707' nfm-stalin.c:35734: warning: unused variable `a3705' nfm-stalin.c:35733: warning: unused variable `a3704' nfm-stalin.c:35732: warning: unused variable `a3703' nfm-stalin.c:35731: warning: unused variable `a3702' nfm-stalin.c:35729: warning: unused variable `a3700' nfm-stalin.c:35728: warning: unused variable `a3699' nfm-stalin.c:35727: warning: unused variable `a3698' nfm-stalin.c:35726: warning: unused variable `a3697' nfm-stalin.c:35724: warning: unused variable `a3693' nfm-stalin.c:35684: warning: unused variable `a3606' nfm-stalin.c:35675: warning: unused variable `a3597' nfm-stalin.c:35666: warning: unused variable `a3588' nfm-stalin.c:35657: warning: unused variable `a3579' nfm-stalin.c:35648: warning: unused variable `a3570' nfm-stalin.c:35639: warning: unused variable `a3561' nfm-stalin.c:35630: warning: unused variable `a3552' nfm-stalin.c:35621: warning: unused variable `a3543' nfm-stalin.c:35612: warning: unused variable `a3534' nfm-stalin.c:35603: warning: unused variable `a3525' nfm-stalin.c:35594: warning: unused variable `a3516' nfm-stalin.c:35585: warning: unused variable `a3282' nfm-stalin.c:35576: warning: unused variable `a3273' nfm-stalin.c:35567: warning: unused variable `a3264' nfm-stalin.c:35558: warning: unused variable `a3255' nfm-stalin.c:35549: warning: unused variable `a3246' nfm-stalin.c:35540: warning: unused variable `a3237' nfm-stalin.c:35531: warning: unused variable `a3228' nfm-stalin.c:35522: warning: unused variable `a3219' nfm-stalin.c:35513: warning: unused variable `a3210' nfm-stalin.c:35504: warning: unused variable `a3201' nfm-stalin.c:35495: warning: unused variable `a3192' nfm-stalin.c:35486: warning: unused variable `a3183' nfm-stalin.c:35477: warning: unused variable `a3174' nfm-stalin.c:35468: warning: unused variable `a3165' nfm-stalin.c:35459: warning: unused variable `a3156' nfm-stalin.c:35450: warning: unused variable `a3147' nfm-stalin.c:35441: warning: unused variable `a3138' nfm-stalin.c:35432: warning: unused variable `a3129' nfm-stalin.c:35423: warning: unused variable `a3120' nfm-stalin.c:35414: warning: unused variable `a3111' nfm-stalin.c:35405: warning: unused variable `a3102' nfm-stalin.c:35396: warning: unused variable `a3093' nfm-stalin.c:35387: warning: unused variable `a3084' nfm-stalin.c:35378: warning: unused variable `a3075' nfm-stalin.c:35369: warning: unused variable `a2958' nfm-stalin.c:35360: warning: unused variable `a2949' nfm-stalin.c:35351: warning: unused variable `a2940' nfm-stalin.c:35342: warning: unused variable `a2931' nfm-stalin.c:35333: warning: unused variable `a2922' nfm-stalin.c:35324: warning: unused variable `a2913' nfm-stalin.c:35315: warning: unused variable `a2904' nfm-stalin.c:35306: warning: unused variable `a2895' nfm-stalin.c:35297: warning: unused variable `a2886' nfm-stalin.c:35288: warning: unused variable `a2877' nfm-stalin.c:35279: warning: unused variable `a2850' nfm-stalin.c:35270: warning: unused variable `a2841' nfm-stalin.c:35261: warning: unused variable `a2832' nfm-stalin.c:35252: warning: unused variable `a2823' nfm-stalin.c:35243: warning: unused variable `a2814' nfm-stalin.c:35234: warning: unused variable `a2805' nfm-stalin.c:35225: warning: unused variable `a2778' nfm-stalin.c:35216: warning: unused variable `a2769' nfm-stalin.c:35207: warning: unused variable `a2751' nfm-stalin.c:35198: warning: unused variable `a2733' nfm-stalin.c:35189: warning: unused variable `a2724' nfm-stalin.c:35180: warning: unused variable `a2697' nfm-stalin.c:35171: warning: unused variable `a2688' nfm-stalin.c:35162: warning: unused variable `a2679' nfm-stalin.c:35153: warning: unused variable `a2670' nfm-stalin.c:35144: warning: unused variable `a2661' nfm-stalin.c:35135: warning: unused variable `a2634' nfm-stalin.c:35126: warning: unused variable `a2625' nfm-stalin.c:35117: warning: unused variable `a2607' nfm-stalin.c:35108: warning: unused variable `a2598' nfm-stalin.c:35099: warning: unused variable `a2589' nfm-stalin.c:35090: warning: unused variable `a2580' nfm-stalin.c:35081: warning: unused variable `a2553' nfm-stalin.c:35072: warning: unused variable `a2544' nfm-stalin.c:35063: warning: unused variable `a2535' nfm-stalin.c:34999: warning: unused variable `a2060' nfm-stalin.c:34998: warning: unused variable `a2059' nfm-stalin.c:34997: warning: unused variable `a2058' nfm-stalin.c:34996: warning: unused variable `a2057' nfm-stalin.c:34957: warning: unused variable `a1944' nfm-stalin.c:34941: warning: unused variable `a1928' nfm-stalin.c:34940: warning: unused variable `a1927' nfm-stalin.c:34936: warning: unused variable `a1923' nfm-stalin.c:34930: warning: unused variable `a1917' nfm-stalin.c:34923: warning: unused variable `a1910' nfm-stalin.c:34922: warning: unused variable `a1909' nfm-stalin.c:34921: warning: unused variable `a1908' nfm-stalin.c:34868: warning: unused variable `a1467' nfm-stalin.c:34867: warning: unused variable `a1466' nfm-stalin.c:34866: warning: unused variable `a1465' nfm-stalin.c:34865: warning: unused variable `a1464' nfm-stalin.c:34862: warning: unused variable `a1460' nfm-stalin.c:34860: warning: unused variable `a1404' nfm-stalin.c:34851: warning: unused variable `a1395' nfm-stalin.c:34842: warning: unused variable `a1386' nfm-stalin.c:34831: warning: `a1166' might be used uninitialized in this function nfm-stalin.c:34836: warning: `a1380' might be used uninitialized in this function nfm-stalin.c:34838: warning: `a1382' might be used uninitialized in this function nfm-stalin.c:34841: warning: `a1385' might be used uninitialized in this function nfm-stalin.c:34845: warning: `a1389' might be used uninitialized in this function nfm-stalin.c:34847: warning: `a1391' might be used uninitialized in this function nfm-stalin.c:34850: warning: `a1394' might be used uninitialized in this function nfm-stalin.c:34854: warning: `a1398' might be used uninitialized in this function nfm-stalin.c:34856: warning: `a1400' might be used uninitialized in this function nfm-stalin.c:34859: warning: `a1403' might be used uninitialized in this function nfm-stalin.c:34872: warning: `a1726' might be used uninitialized in this function nfm-stalin.c:34874: warning: `a1728' might be used uninitialized in this function nfm-stalin.c:34876: warning: `a1730' might be used uninitialized in this function nfm-stalin.c:34877: warning: `a1731' might be used uninitialized in this function nfm-stalin.c:34878: warning: `a1865' might be used uninitialized in this function nfm-stalin.c:34879: warning: `a1866' might be used uninitialized in this function nfm-stalin.c:34880: warning: `a1867' might be used uninitialized in this function nfm-stalin.c:34881: warning: `a1868' might be used uninitialized in this function nfm-stalin.c:34882: warning: `a1869' might be used uninitialized in this function nfm-stalin.c:34883: warning: `a1870' might be used uninitialized in this function nfm-stalin.c:34884: warning: `a1871' might be used uninitialized in this function nfm-stalin.c:34885: warning: `a1872' might be used uninitialized in this function nfm-stalin.c:34886: warning: `a1873' might be used uninitialized in this function nfm-stalin.c:34887: warning: `a1874' might be used uninitialized in this function nfm-stalin.c:34889: warning: `a1876' might be used uninitialized in this function nfm-stalin.c:34890: warning: `a1877' might be used uninitialized in this function nfm-stalin.c:34891: warning: `a1878' might be used uninitialized in this function nfm-stalin.c:34892: warning: `a1879' might be used uninitialized in this function nfm-stalin.c:34893: warning: `a1880' might be used uninitialized in this function nfm-stalin.c:34894: warning: `a1881' might be used uninitialized in this function nfm-stalin.c:34895: warning: `a1882' might be used uninitialized in this function nfm-stalin.c:34896: warning: `a1883' might be used uninitialized in this function nfm-stalin.c:34897: warning: `a1884' might be used uninitialized in this function nfm-stalin.c:34898: warning: `a1885' might be used uninitialized in this function nfm-stalin.c:34899: warning: `a1886' might be used uninitialized in this function nfm-stalin.c:34901: warning: `a1888' might be used uninitialized in this function nfm-stalin.c:34903: warning: `a1890' might be used uninitialized in this function nfm-stalin.c:34904: warning: `a1891' might be used uninitialized in this function nfm-stalin.c:34906: warning: `a1893' might be used uninitialized in this function nfm-stalin.c:34909: warning: `a1896' might be used uninitialized in this function nfm-stalin.c:34912: warning: `a1899' might be used uninitialized in this function nfm-stalin.c:34916: warning: `a1903' might be used uninitialized in this function nfm-stalin.c:34920: warning: `a1907' might be used uninitialized in this function nfm-stalin.c:34925: warning: `a1912' might be used uninitialized in this function nfm-stalin.c:34927: warning: `a1914' might be used uninitialized in this function nfm-stalin.c:34929: warning: `a1916' might be used uninitialized in this function nfm-stalin.c:34932: warning: `a1919' might be used uninitialized in this function nfm-stalin.c:34934: warning: `a1921' might be used uninitialized in this function nfm-stalin.c:34935: warning: `a1922' might be used uninitialized in this function nfm-stalin.c:34938: warning: `a1925' might be used uninitialized in this function nfm-stalin.c:34939: warning: `a1926' might be used uninitialized in this function nfm-stalin.c:34943: warning: `a1930' might be used uninitialized in this function nfm-stalin.c:34945: warning: `a1932' might be used uninitialized in this function nfm-stalin.c:34947: warning: `a1934' might be used uninitialized in this function nfm-stalin.c:34948: warning: `a1935' might be used uninitialized in this function nfm-stalin.c:34950: warning: `a1937' might be used uninitialized in this function nfm-stalin.c:34952: warning: `a1939' might be used uninitialized in this function nfm-stalin.c:34953: warning: `a1940' might be used uninitialized in this function nfm-stalin.c:34955: warning: `a1942' might be used uninitialized in this function nfm-stalin.c:34956: warning: `a1943' might be used uninitialized in this function nfm-stalin.c:34959: warning: `a1946' might be used uninitialized in this function nfm-stalin.c:34961: warning: `a1948' might be used uninitialized in this function nfm-stalin.c:34963: warning: `a1950' might be used uninitialized in this function nfm-stalin.c:34965: warning: `a1952' might be used uninitialized in this function nfm-stalin.c:34969: warning: `a1956' might be used uninitialized in this function nfm-stalin.c:34971: warning: `a1958' might be used uninitialized in this function nfm-stalin.c:34974: warning: `a1961' might be used uninitialized in this function nfm-stalin.c:34976: warning: `a1963' might be used uninitialized in this function nfm-stalin.c:34992: warning: `a1979' might be used uninitialized in this function nfm-stalin.c:35057: warning: `a2529' might be used uninitialized in this function nfm-stalin.c:35059: warning: `a2531' might be used uninitialized in this function nfm-stalin.c:35062: warning: `a2534' might be used uninitialized in this function nfm-stalin.c:35066: warning: `a2538' might be used uninitialized in this function nfm-stalin.c:35068: warning: `a2540' might be used uninitialized in this function nfm-stalin.c:35071: warning: `a2543' might be used uninitialized in this function nfm-stalin.c:35075: warning: `a2547' might be used uninitialized in this function nfm-stalin.c:35077: warning: `a2549' might be used uninitialized in this function nfm-stalin.c:35080: warning: `a2552' might be used uninitialized in this function nfm-stalin.c:35084: warning: `a2574' might be used uninitialized in this function nfm-stalin.c:35086: warning: `a2576' might be used uninitialized in this function nfm-stalin.c:35089: warning: `a2579' might be used uninitialized in this function nfm-stalin.c:35093: warning: `a2583' might be used uninitialized in this function nfm-stalin.c:35095: warning: `a2585' might be used uninitialized in this function nfm-stalin.c:35098: warning: `a2588' might be used uninitialized in this function nfm-stalin.c:35102: warning: `a2592' might be used uninitialized in this function nfm-stalin.c:35104: warning: `a2594' might be used uninitialized in this function nfm-stalin.c:35107: warning: `a2597' might be used uninitialized in this function nfm-stalin.c:35111: warning: `a2601' might be used uninitialized in this function nfm-stalin.c:35113: warning: `a2603' might be used uninitialized in this function nfm-stalin.c:35116: warning: `a2606' might be used uninitialized in this function nfm-stalin.c:35120: warning: `a2619' might be used uninitialized in this function nfm-stalin.c:35122: warning: `a2621' might be used uninitialized in this function nfm-stalin.c:35125: warning: `a2624' might be used uninitialized in this function nfm-stalin.c:35129: warning: `a2628' might be used uninitialized in this function nfm-stalin.c:35131: warning: `a2630' might be used uninitialized in this function nfm-stalin.c:35134: warning: `a2633' might be used uninitialized in this function nfm-stalin.c:35138: warning: `a2655' might be used uninitialized in this function nfm-stalin.c:35140: warning: `a2657' might be used uninitialized in this function nfm-stalin.c:35143: warning: `a2660' might be used uninitialized in this function nfm-stalin.c:35147: warning: `a2664' might be used uninitialized in this function nfm-stalin.c:35149: warning: `a2666' might be used uninitialized in this function nfm-stalin.c:35152: warning: `a2669' might be used uninitialized in this function nfm-stalin.c:35156: warning: `a2673' might be used uninitialized in this function nfm-stalin.c:35158: warning: `a2675' might be used uninitialized in this function nfm-stalin.c:35161: warning: `a2678' might be used uninitialized in this function nfm-stalin.c:35165: warning: `a2682' might be used uninitialized in this function nfm-stalin.c:35167: warning: `a2684' might be used uninitialized in this function nfm-stalin.c:35170: warning: `a2687' might be used uninitialized in this function nfm-stalin.c:35174: warning: `a2691' might be used uninitialized in this function nfm-stalin.c:35176: warning: `a2693' might be used uninitialized in this function nfm-stalin.c:35179: warning: `a2696' might be used uninitialized in this function nfm-stalin.c:35183: warning: `a2718' might be used uninitialized in this function nfm-stalin.c:35185: warning: `a2720' might be used uninitialized in this function nfm-stalin.c:35188: warning: `a2723' might be used uninitialized in this function nfm-stalin.c:35192: warning: `a2727' might be used uninitialized in this function nfm-stalin.c:35194: warning: `a2729' might be used uninitialized in this function nfm-stalin.c:35197: warning: `a2732' might be used uninitialized in this function nfm-stalin.c:35201: warning: `a2745' might be used uninitialized in this function nfm-stalin.c:35203: warning: `a2747' might be used uninitialized in this function nfm-stalin.c:35206: warning: `a2750' might be used uninitialized in this function nfm-stalin.c:35210: warning: `a2763' might be used uninitialized in this function nfm-stalin.c:35212: warning: `a2765' might be used uninitialized in this function nfm-stalin.c:35215: warning: `a2768' might be used uninitialized in this function nfm-stalin.c:35219: warning: `a2772' might be used uninitialized in this function nfm-stalin.c:35221: warning: `a2774' might be used uninitialized in this function nfm-stalin.c:35224: warning: `a2777' might be used uninitialized in this function nfm-stalin.c:35228: warning: `a2799' might be used uninitialized in this function nfm-stalin.c:35230: warning: `a2801' might be used uninitialized in this function nfm-stalin.c:35233: warning: `a2804' might be used uninitialized in this function nfm-stalin.c:35237: warning: `a2808' might be used uninitialized in this function nfm-stalin.c:35239: warning: `a2810' might be used uninitialized in this function nfm-stalin.c:35242: warning: `a2813' might be used uninitialized in this function nfm-stalin.c:35246: warning: `a2817' might be used uninitialized in this function nfm-stalin.c:35248: warning: `a2819' might be used uninitialized in this function nfm-stalin.c:35251: warning: `a2822' might be used uninitialized in this function nfm-stalin.c:35255: warning: `a2826' might be used uninitialized in this function nfm-stalin.c:35257: warning: `a2828' might be used uninitialized in this function nfm-stalin.c:35260: warning: `a2831' might be used uninitialized in this function nfm-stalin.c:35264: warning: `a2835' might be used uninitialized in this function nfm-stalin.c:35266: warning: `a2837' might be used uninitialized in this function nfm-stalin.c:35269: warning: `a2840' might be used uninitialized in this function nfm-stalin.c:35273: warning: `a2844' might be used uninitialized in this function nfm-stalin.c:35275: warning: `a2846' might be used uninitialized in this function nfm-stalin.c:35278: warning: `a2849' might be used uninitialized in this function nfm-stalin.c:35282: warning: `a2871' might be used uninitialized in this function nfm-stalin.c:35284: warning: `a2873' might be used uninitialized in this function nfm-stalin.c:35287: warning: `a2876' might be used uninitialized in this function nfm-stalin.c:35291: warning: `a2880' might be used uninitialized in this function nfm-stalin.c:35293: warning: `a2882' might be used uninitialized in this function nfm-stalin.c:35296: warning: `a2885' might be used uninitialized in this function nfm-stalin.c:35300: warning: `a2889' might be used uninitialized in this function nfm-stalin.c:35302: warning: `a2891' might be used uninitialized in this function nfm-stalin.c:35305: warning: `a2894' might be used uninitialized in this function nfm-stalin.c:35309: warning: `a2898' might be used uninitialized in this function nfm-stalin.c:35311: warning: `a2900' might be used uninitialized in this function nfm-stalin.c:35314: warning: `a2903' might be used uninitialized in this function nfm-stalin.c:35318: warning: `a2907' might be used uninitialized in this function nfm-stalin.c:35320: warning: `a2909' might be used uninitialized in this function nfm-stalin.c:35323: warning: `a2912' might be used uninitialized in this function nfm-stalin.c:35327: warning: `a2916' might be used uninitialized in this function nfm-stalin.c:35329: warning: `a2918' might be used uninitialized in this function nfm-stalin.c:35332: warning: `a2921' might be used uninitialized in this function nfm-stalin.c:35336: warning: `a2925' might be used uninitialized in this function nfm-stalin.c:35338: warning: `a2927' might be used uninitialized in this function nfm-stalin.c:35341: warning: `a2930' might be used uninitialized in this function nfm-stalin.c:35345: warning: `a2934' might be used uninitialized in this function nfm-stalin.c:35347: warning: `a2936' might be used uninitialized in this function nfm-stalin.c:35350: warning: `a2939' might be used uninitialized in this function nfm-stalin.c:35354: warning: `a2943' might be used uninitialized in this function nfm-stalin.c:35356: warning: `a2945' might be used uninitialized in this function nfm-stalin.c:35359: warning: `a2948' might be used uninitialized in this function nfm-stalin.c:35363: warning: `a2952' might be used uninitialized in this function nfm-stalin.c:35365: warning: `a2954' might be used uninitialized in this function nfm-stalin.c:35368: warning: `a2957' might be used uninitialized in this function nfm-stalin.c:35372: warning: `a3069' might be used uninitialized in this function nfm-stalin.c:35374: warning: `a3071' might be used uninitialized in this function nfm-stalin.c:35377: warning: `a3074' might be used uninitialized in this function nfm-stalin.c:35381: warning: `a3078' might be used uninitialized in this function nfm-stalin.c:35383: warning: `a3080' might be used uninitialized in this function nfm-stalin.c:35386: warning: `a3083' might be used uninitialized in this function nfm-stalin.c:35390: warning: `a3087' might be used uninitialized in this function nfm-stalin.c:35392: warning: `a3089' might be used uninitialized in this function nfm-stalin.c:35395: warning: `a3092' might be used uninitialized in this function nfm-stalin.c:35399: warning: `a3096' might be used uninitialized in this function nfm-stalin.c:35401: warning: `a3098' might be used uninitialized in this function nfm-stalin.c:35404: warning: `a3101' might be used uninitialized in this function nfm-stalin.c:35408: warning: `a3105' might be used uninitialized in this function nfm-stalin.c:35410: warning: `a3107' might be used uninitialized in this function nfm-stalin.c:35413: warning: `a3110' might be used uninitialized in this function nfm-stalin.c:35417: warning: `a3114' might be used uninitialized in this function nfm-stalin.c:35419: warning: `a3116' might be used uninitialized in this function nfm-stalin.c:35422: warning: `a3119' might be used uninitialized in this function nfm-stalin.c:35426: warning: `a3123' might be used uninitialized in this function nfm-stalin.c:35428: warning: `a3125' might be used uninitialized in this function nfm-stalin.c:35431: warning: `a3128' might be used uninitialized in this function nfm-stalin.c:35435: warning: `a3132' might be used uninitialized in this function nfm-stalin.c:35437: warning: `a3134' might be used uninitialized in this function nfm-stalin.c:35440: warning: `a3137' might be used uninitialized in this function nfm-stalin.c:35444: warning: `a3141' might be used uninitialized in this function nfm-stalin.c:35446: warning: `a3143' might be used uninitialized in this function nfm-stalin.c:35449: warning: `a3146' might be used uninitialized in this function nfm-stalin.c:35453: warning: `a3150' might be used uninitialized in this function nfm-stalin.c:35455: warning: `a3152' might be used uninitialized in this function nfm-stalin.c:35458: warning: `a3155' might be used uninitialized in this function nfm-stalin.c:35462: warning: `a3159' might be used uninitialized in this function nfm-stalin.c:35464: warning: `a3161' might be used uninitialized in this function nfm-stalin.c:35467: warning: `a3164' might be used uninitialized in this function nfm-stalin.c:35471: warning: `a3168' might be used uninitialized in this function nfm-stalin.c:35473: warning: `a3170' might be used uninitialized in this function nfm-stalin.c:35476: warning: `a3173' might be used uninitialized in this function nfm-stalin.c:35480: warning: `a3177' might be used uninitialized in this function nfm-stalin.c:35482: warning: `a3179' might be used uninitialized in this function nfm-stalin.c:35485: warning: `a3182' might be used uninitialized in this function nfm-stalin.c:35489: warning: `a3186' might be used uninitialized in this function nfm-stalin.c:35491: warning: `a3188' might be used uninitialized in this function nfm-stalin.c:35494: warning: `a3191' might be used uninitialized in this function nfm-stalin.c:35498: warning: `a3195' might be used uninitialized in this function nfm-stalin.c:35500: warning: `a3197' might be used uninitialized in this function nfm-stalin.c:35503: warning: `a3200' might be used uninitialized in this function nfm-stalin.c:35507: warning: `a3204' might be used uninitialized in this function nfm-stalin.c:35509: warning: `a3206' might be used uninitialized in this function nfm-stalin.c:35512: warning: `a3209' might be used uninitialized in this function nfm-stalin.c:35516: warning: `a3213' might be used uninitialized in this function nfm-stalin.c:35518: warning: `a3215' might be used uninitialized in this function nfm-stalin.c:35521: warning: `a3218' might be used uninitialized in this function nfm-stalin.c:35525: warning: `a3222' might be used uninitialized in this function nfm-stalin.c:35527: warning: `a3224' might be used uninitialized in this function nfm-stalin.c:35530: warning: `a3227' might be used uninitialized in this function nfm-stalin.c:35534: warning: `a3231' might be used uninitialized in this function nfm-stalin.c:35536: warning: `a3233' might be used uninitialized in this function nfm-stalin.c:35539: warning: `a3236' might be used uninitialized in this function nfm-stalin.c:35543: warning: `a3240' might be used uninitialized in this function nfm-stalin.c:35545: warning: `a3242' might be used uninitialized in this function nfm-stalin.c:35548: warning: `a3245' might be used uninitialized in this function nfm-stalin.c:35552: warning: `a3249' might be used uninitialized in this function nfm-stalin.c:35554: warning: `a3251' might be used uninitialized in this function nfm-stalin.c:35557: warning: `a3254' might be used uninitialized in this function nfm-stalin.c:35561: warning: `a3258' might be used uninitialized in this function nfm-stalin.c:35563: warning: `a3260' might be used uninitialized in this function nfm-stalin.c:35566: warning: `a3263' might be used uninitialized in this function nfm-stalin.c:35570: warning: `a3267' might be used uninitialized in this function nfm-stalin.c:35572: warning: `a3269' might be used uninitialized in this function nfm-stalin.c:35575: warning: `a3272' might be used uninitialized in this function nfm-stalin.c:35579: warning: `a3276' might be used uninitialized in this function nfm-stalin.c:35581: warning: `a3278' might be used uninitialized in this function nfm-stalin.c:35584: warning: `a3281' might be used uninitialized in this function nfm-stalin.c:35588: warning: `a3510' might be used uninitialized in this function nfm-stalin.c:35590: warning: `a3512' might be used uninitialized in this function nfm-stalin.c:35593: warning: `a3515' might be used uninitialized in this function nfm-stalin.c:35597: warning: `a3519' might be used uninitialized in this function nfm-stalin.c:35599: warning: `a3521' might be used uninitialized in this function nfm-stalin.c:35602: warning: `a3524' might be used uninitialized in this function nfm-stalin.c:35606: warning: `a3528' might be used uninitialized in this function nfm-stalin.c:35608: warning: `a3530' might be used uninitialized in this function nfm-stalin.c:35611: warning: `a3533' might be used uninitialized in this function nfm-stalin.c:35615: warning: `a3537' might be used uninitialized in this function nfm-stalin.c:35617: warning: `a3539' might be used uninitialized in this function nfm-stalin.c:35620: warning: `a3542' might be used uninitialized in this function nfm-stalin.c:35624: warning: `a3546' might be used uninitialized in this function nfm-stalin.c:35626: warning: `a3548' might be used uninitialized in this function nfm-stalin.c:35629: warning: `a3551' might be used uninitialized in this function nfm-stalin.c:35633: warning: `a3555' might be used uninitialized in this function nfm-stalin.c:35635: warning: `a3557' might be used uninitialized in this function nfm-stalin.c:35638: warning: `a3560' might be used uninitialized in this function nfm-stalin.c:35642: warning: `a3564' might be used uninitialized in this function nfm-stalin.c:35644: warning: `a3566' might be used uninitialized in this function nfm-stalin.c:35647: warning: `a3569' might be used uninitialized in this function nfm-stalin.c:35651: warning: `a3573' might be used uninitialized in this function nfm-stalin.c:35653: warning: `a3575' might be used uninitialized in this function nfm-stalin.c:35656: warning: `a3578' might be used uninitialized in this function nfm-stalin.c:35660: warning: `a3582' might be used uninitialized in this function nfm-stalin.c:35662: warning: `a3584' might be used uninitialized in this function nfm-stalin.c:35665: warning: `a3587' might be used uninitialized in this function nfm-stalin.c:35669: warning: `a3591' might be used uninitialized in this function nfm-stalin.c:35671: warning: `a3593' might be used uninitialized in this function nfm-stalin.c:35674: warning: `a3596' might be used uninitialized in this function nfm-stalin.c:35678: warning: `a3600' might be used uninitialized in this function nfm-stalin.c:35680: warning: `a3602' might be used uninitialized in this function nfm-stalin.c:35683: warning: `a3605' might be used uninitialized in this function nfm-stalin.c:35687: warning: `a3609' might be used uninitialized in this function nfm-stalin.c:35692: warning: `a3614' might be used uninitialized in this function nfm-stalin.c:35747: warning: `a3731' might be used uninitialized in this function nfm-stalin.c:35749: warning: `a3733' might be used uninitialized in this function nfm-stalin.c:35752: warning: `a3736' might be used uninitialized in this function nfm-stalin.c:35756: warning: `a3822' might be used uninitialized in this function nfm-stalin.c:35758: warning: `a3824' might be used uninitialized in this function nfm-stalin.c:35761: warning: `a3827' might be used uninitialized in this function nfm-stalin.c:35765: warning: `a3975' might be used uninitialized in this function nfm-stalin.c:35767: warning: `a3977' might be used uninitialized in this function nfm-stalin.c:35770: warning: `a3980' might be used uninitialized in this function nfm-stalin.c:35774: warning: `a3984' might be used uninitialized in this function nfm-stalin.c:35776: warning: `a3986' might be used uninitialized in this function nfm-stalin.c:35779: warning: `a3989' might be used uninitialized in this function nfm-stalin.c:35783: warning: `a3993' might be used uninitialized in this function nfm-stalin.c:35785: warning: `a3995' might be used uninitialized in this function nfm-stalin.c:35788: warning: `a3998' might be used uninitialized in this function nfm-stalin.c:35792: warning: `a4002' might be used uninitialized in this function nfm-stalin.c:35794: warning: `a4004' might be used uninitialized in this function nfm-stalin.c:35797: warning: `a4007' might be used uninitialized in this function nfm-stalin.c:35801: warning: `a4011' might be used uninitialized in this function nfm-stalin.c:35803: warning: `a4013' might be used uninitialized in this function nfm-stalin.c:35806: warning: `a4016' might be used uninitialized in this function nfm-stalin.c:35811: warning: `a4021' might be used uninitialized in this function nfm-stalin.c:35813: warning: `a4023' might be used uninitialized in this function nfm-stalin.c:35816: warning: `a4026' might be used uninitialized in this function nfm-stalin.c:35820: warning: `a4030' might be used uninitialized in this function nfm-stalin.c:35822: warning: `a4032' might be used uninitialized in this function nfm-stalin.c:35825: warning: `a4035' might be used uninitialized in this function nfm-stalin.c:35829: warning: `a4039' might be used uninitialized in this function nfm-stalin.c:35831: warning: `a4041' might be used uninitialized in this function nfm-stalin.c:35834: warning: `a4044' might be used uninitialized in this function nfm-stalin.c:35838: warning: `a4048' might be used uninitialized in this function nfm-stalin.c:35840: warning: `a4050' might be used uninitialized in this function nfm-stalin.c:35843: warning: `a4053' might be used uninitialized in this function nfm-stalin.c:35847: warning: `a4057' might be used uninitialized in this function nfm-stalin.c:35849: warning: `a4059' might be used uninitialized in this function nfm-stalin.c:35852: warning: `a4062' might be used uninitialized in this function nfm-stalin.c:35856: warning: `a4066' might be used uninitialized in this function nfm-stalin.c:35858: warning: `a4068' might be used uninitialized in this function nfm-stalin.c:35861: warning: `a4071' might be used uninitialized in this function nfm-stalin.c:35866: warning: `a4076' might be used uninitialized in this function nfm-stalin.c:35868: warning: `a4078' might be used uninitialized in this function nfm-stalin.c:35871: warning: `a4081' might be used uninitialized in this function nfm-stalin.c:35875: warning: `a4085' might be used uninitialized in this function nfm-stalin.c:35877: warning: `a4087' might be used uninitialized in this function nfm-stalin.c:35880: warning: `a4090' might be used uninitialized in this function nfm-stalin.c:35884: warning: `a4094' might be used uninitialized in this function nfm-stalin.c:35886: warning: `a4096' might be used uninitialized in this function nfm-stalin.c:35889: warning: `a4099' might be used uninitialized in this function nfm-stalin.c:35893: warning: `a4103' might be used uninitialized in this function nfm-stalin.c:35895: warning: `a4105' might be used uninitialized in this function nfm-stalin.c:35898: warning: `a4108' might be used uninitialized in this function nfm-stalin.c:35902: warning: `a4112' might be used uninitialized in this function nfm-stalin.c:35904: warning: `a4114' might be used uninitialized in this function nfm-stalin.c:35907: warning: `a4117' might be used uninitialized in this function nfm-stalin.c:35911: warning: `a4121' might be used uninitialized in this function nfm-stalin.c:35913: warning: `a4123' might be used uninitialized in this function nfm-stalin.c:35916: warning: `a4126' might be used uninitialized in this function nfm-stalin.c:35920: warning: `a4130' might be used uninitialized in this function nfm-stalin.c:35922: warning: `a4132' might be used uninitialized in this function nfm-stalin.c:35925: warning: `a4135' might be used uninitialized in this function nfm-stalin.c:35929: warning: `a4139' might be used uninitialized in this function nfm-stalin.c:35931: warning: `a4141' might be used uninitialized in this function nfm-stalin.c:35934: warning: `a4144' might be used uninitialized in this function nfm-stalin.c:35939: warning: `a4149' might be used uninitialized in this function nfm-stalin.c:35941: warning: `a4151' might be used uninitialized in this function nfm-stalin.c:35944: warning: `a4154' might be used uninitialized in this function nfm-stalin.c:35948: warning: `a4158' might be used uninitialized in this function nfm-stalin.c:35950: warning: `a4160' might be used uninitialized in this function nfm-stalin.c:35953: warning: `a4163' might be used uninitialized in this function nfm-stalin.c:35957: warning: `a4167' might be used uninitialized in this function nfm-stalin.c:35959: warning: `a4169' might be used uninitialized in this function nfm-stalin.c:35962: warning: `a4172' might be used uninitialized in this function nfm-stalin.c:35966: warning: `a4176' might be used uninitialized in this function nfm-stalin.c:35968: warning: `a4178' might be used uninitialized in this function nfm-stalin.c:35971: warning: `a4181' might be used uninitialized in this function nfm-stalin.c:35975: warning: `a4185' might be used uninitialized in this function nfm-stalin.c:35977: warning: `a4187' might be used uninitialized in this function nfm-stalin.c:35980: warning: `a4190' might be used uninitialized in this function nfm-stalin.c:35984: warning: `a4194' might be used uninitialized in this function nfm-stalin.c:35986: warning: `a4196' might be used uninitialized in this function nfm-stalin.c:35989: warning: `a4199' might be used uninitialized in this function nfm-stalin.c:35994: warning: `a4204' might be used uninitialized in this function nfm-stalin.c:35996: warning: `a4206' might be used uninitialized in this function nfm-stalin.c:35999: warning: `a4209' might be used uninitialized in this function nfm-stalin.c:36003: warning: `a4213' might be used uninitialized in this function nfm-stalin.c:36005: warning: `a4215' might be used uninitialized in this function nfm-stalin.c:36008: warning: `a4218' might be used uninitialized in this function nfm-stalin.c:36012: warning: `a4222' might be used uninitialized in this function nfm-stalin.c:36014: warning: `a4224' might be used uninitialized in this function nfm-stalin.c:36017: warning: `a4227' might be used uninitialized in this function nfm-stalin.c:36021: warning: `a4231' might be used uninitialized in this function nfm-stalin.c:36023: warning: `a4233' might be used uninitialized in this function nfm-stalin.c:36026: warning: `a4236' might be used uninitialized in this function nfm-stalin.c:36030: warning: `a4240' might be used uninitialized in this function nfm-stalin.c:36032: warning: `a4242' might be used uninitialized in this function nfm-stalin.c:36035: warning: `a4245' might be used uninitialized in this function nfm-stalin.c:36039: warning: `a4249' might be used uninitialized in this function nfm-stalin.c:36041: warning: `a4251' might be used uninitialized in this function nfm-stalin.c:36044: warning: `a4254' might be used uninitialized in this function nfm-stalin.c:36048: warning: `a4258' might be used uninitialized in this function nfm-stalin.c:36050: warning: `a4260' might be used uninitialized in this function nfm-stalin.c:36053: warning: `a4263' might be used uninitialized in this function nfm-stalin.c:36057: warning: `a4267' might be used uninitialized in this function nfm-stalin.c:36059: warning: `a4269' might be used uninitialized in this function nfm-stalin.c:36062: warning: `a4272' might be used uninitialized in this function nfm-stalin.c:36066: warning: `a4276' might be used uninitialized in this function nfm-stalin.c:36068: warning: `a4278' might be used uninitialized in this function nfm-stalin.c:36071: warning: `a4281' might be used uninitialized in this function nfm-stalin.c:36075: warning: `a4285' might be used uninitialized in this function nfm-stalin.c:36077: warning: `a4287' might be used uninitialized in this function nfm-stalin.c:36080: warning: `a4290' might be used uninitialized in this function nfm-stalin.c:36084: warning: `a4294' might be used uninitialized in this function nfm-stalin.c:36086: warning: `a4296' might be used uninitialized in this function nfm-stalin.c:36089: warning: `a4299' might be used uninitialized in this function nfm-stalin.c:36093: warning: `a4303' might be used uninitialized in this function nfm-stalin.c:36095: warning: `a4305' might be used uninitialized in this function nfm-stalin.c:36098: warning: `a4308' might be used uninitialized in this function nfm-stalin.c:36102: warning: `a4312' might be used uninitialized in this function nfm-stalin.c:36104: warning: `a4314' might be used uninitialized in this function nfm-stalin.c:36107: warning: `a4317' might be used uninitialized in this function nfm-stalin.c:36111: warning: `a4339' might be used uninitialized in this function nfm-stalin.c:36113: warning: `a4341' might be used uninitialized in this function nfm-stalin.c:36116: warning: `a4344' might be used uninitialized in this function nfm-stalin.c:36120: warning: `a4348' might be used uninitialized in this function nfm-stalin.c:36122: warning: `a4350' might be used uninitialized in this function nfm-stalin.c:36125: warning: `a4353' might be used uninitialized in this function nfm-stalin.c:36129: warning: `a4357' might be used uninitialized in this function nfm-stalin.c:36131: warning: `a4359' might be used uninitialized in this function nfm-stalin.c:36134: warning: `a4362' might be used uninitialized in this function nfm-stalin.c:36138: warning: `a4366' might be used uninitialized in this function nfm-stalin.c:36140: warning: `a4368' might be used uninitialized in this function nfm-stalin.c:36143: warning: `a4371' might be used uninitialized in this function nfm-stalin.c:36147: warning: `a4375' might be used uninitialized in this function nfm-stalin.c:36149: warning: `a4377' might be used uninitialized in this function nfm-stalin.c:36152: warning: `a4380' might be used uninitialized in this function nfm-stalin.c:36156: warning: `a4384' might be used uninitialized in this function nfm-stalin.c:36158: warning: `a4386' might be used uninitialized in this function nfm-stalin.c:36161: warning: `a4389' might be used uninitialized in this function nfm-stalin.c:36165: warning: `a4393' might be used uninitialized in this function nfm-stalin.c:36167: warning: `a4395' might be used uninitialized in this function nfm-stalin.c:36170: warning: `a4398' might be used uninitialized in this function nfm-stalin.c:36174: warning: `a4402' might be used uninitialized in this function nfm-stalin.c:36176: warning: `a4404' might be used uninitialized in this function nfm-stalin.c:36179: warning: `a4407' might be used uninitialized in this function nfm-stalin.c:36183: warning: `a4411' might be used uninitialized in this function nfm-stalin.c:36185: warning: `a4413' might be used uninitialized in this function nfm-stalin.c:36188: warning: `a4416' might be used uninitialized in this function nfm-stalin.c:36192: warning: `a4420' might be used uninitialized in this function nfm-stalin.c:36194: warning: `a4422' might be used uninitialized in this function nfm-stalin.c:36197: warning: `a4425' might be used uninitialized in this function nfm-stalin.c:36201: warning: `a4429' might be used uninitialized in this function nfm-stalin.c:36203: warning: `a4431' might be used uninitialized in this function nfm-stalin.c:36206: warning: `a4434' might be used uninitialized in this function nfm-stalin.c:36210: warning: `a4438' might be used uninitialized in this function nfm-stalin.c:36212: warning: `a4440' might be used uninitialized in this function nfm-stalin.c:36215: warning: `a4443' might be used uninitialized in this function nfm-stalin.c:36219: warning: `a4447' might be used uninitialized in this function nfm-stalin.c:36221: warning: `a4449' might be used uninitialized in this function nfm-stalin.c:36224: warning: `a4452' might be used uninitialized in this function nfm-stalin.c:36228: warning: `a4456' might be used uninitialized in this function nfm-stalin.c:36230: warning: `a4458' might be used uninitialized in this function nfm-stalin.c:36233: warning: `a4461' might be used uninitialized in this function nfm-stalin.c:36237: warning: `a4465' might be used uninitialized in this function nfm-stalin.c:36239: warning: `a4467' might be used uninitialized in this function nfm-stalin.c:36242: warning: `a4470' might be used uninitialized in this function nfm-stalin.c:36246: warning: `a4474' might be used uninitialized in this function nfm-stalin.c:36248: warning: `a4476' might be used uninitialized in this function nfm-stalin.c:36251: warning: `a4479' might be used uninitialized in this function nfm-stalin.c:36582: warning: `t3270' might be used uninitialized in this function nfm-stalin.c:36616: warning: `t3316' might be used uninitialized in this function nfm-stalin.c:36764: warning: `t3547' might be used uninitialized in this function nfm-stalin.c:36799: warning: `t3594' might be used uninitialized in this function nfm-stalin.c:36906: warning: `t3758' might be used uninitialized in this function nfm-stalin.c:36952: warning: `t3819' might be used uninitialized in this function nfm-stalin.c:36987: warning: `t3877' might be used uninitialized in this function nfm-stalin.c:37130: warning: `t4101' might be used uninitialized in this function nfm-stalin.c:37165: warning: `t4148' might be used uninitialized in this function nfm-stalin.c:37272: warning: `t4312' might be used uninitialized in this function nfm-stalin.c:37318: warning: `t4373' might be used uninitialized in this function nfm-stalin.c:37353: warning: `t4430' might be used uninitialized in this function nfm-stalin.c:37777: warning: `t5099' might be used uninitialized in this function nfm-stalin.c:39102: warning: `t7166' might be used uninitialized in this function nfm-stalin.c: In function `f1331': nfm-stalin.c:63309: warning: `a1859' might be used uninitialized in this function nfm-stalin.c:63313: warning: `a1863' might be used uninitialized in this function nfm-stalin.c: In function `f1116': nfm-stalin.c:63402: warning: `a1681' might be used uninitialized in this function nfm-stalin.c:63404: warning: `a1683' might be used uninitialized in this function nfm-stalin.c:63406: warning: `a1685' might be used uninitialized in this function nfm-stalin.c: In function `f1106': nfm-stalin.c:63564: warning: `a1672' might be used uninitialized in this function nfm-stalin.c:63566: warning: `a1674' might be used uninitialized in this function nfm-stalin.c:63568: warning: `a1676' might be used uninitialized in this function nfm-stalin.c:63569: warning: `a1677' might be used uninitialized in this function nfm-stalin.c: In function `f955': nfm-stalin.c:63811: warning: unused variable `p965' nfm-stalin.c:63802: warning: unused variable `p868' nfm-stalin.c:63799: warning: unused variable `e965' nfm-stalin.c:63798: warning: unused variable `e963' nfm-stalin.c:63790: warning: unused variable `e868' nfm-stalin.c:63744: warning: unused variable `a1503' nfm-stalin.c:63743: warning: unused variable `a1502' nfm-stalin.c:63733: warning: unused variable `a1377' nfm-stalin.c:63727: warning: `a1371' might be used uninitialized in this function nfm-stalin.c:63729: warning: `a1373' might be used uninitialized in this function nfm-stalin.c:63732: warning: `a1376' might be used uninitialized in this function nfm-stalin.c:63734: warning: `a1493' might be used uninitialized in this function nfm-stalin.c:63735: warning: `a1494' might be used uninitialized in this function nfm-stalin.c:63738: warning: `a1497' might be used uninitialized in this function nfm-stalin.c:63741: warning: `a1500' might be used uninitialized in this function nfm-stalin.c: In function `f934': nfm-stalin.c:64086: warning: unused variable `p2964' nfm-stalin.c:64083: warning: unused variable `p2880' nfm-stalin.c:64080: warning: unused variable `e2964' nfm-stalin.c:64075: warning: unused variable `e2880' nfm-stalin.c:64043: warning: unused variable `a2742' nfm-stalin.c:64034: warning: unused variable `a2616' nfm-stalin.c:64028: warning: `a2610' might be used uninitialized in this function nfm-stalin.c:64029: warning: `a2611' might be used uninitialized in this function nfm-stalin.c:64030: warning: `a2612' might be used uninitialized in this function nfm-stalin.c:64033: warning: `a2615' might be used uninitialized in this function nfm-stalin.c:64037: warning: `a2736' might be used uninitialized in this function nfm-stalin.c:64038: warning: `a2737' might be used uninitialized in this function nfm-stalin.c:64039: warning: `a2738' might be used uninitialized in this function nfm-stalin.c:64042: warning: `a2741' might be used uninitialized in this function nfm-stalin.c: In function `f699': nfm-stalin.c:64162: warning: `a1218' might be used uninitialized in this function nfm-stalin.c:64164: warning: `a1220' might be used uninitialized in this function nfm-stalin.c:64171: warning: `t7571' might be used uninitialized in this function nfm-stalin.c:64177: warning: `t7577' might be used uninitialized in this function nfm-stalin.c:64183: warning: `t7583' might be used uninitialized in this function nfm-stalin.c:64189: warning: `t7589' might be used uninitialized in this function nfm-stalin.c:64195: warning: `t7595' might be used uninitialized in this function nfm-stalin.c:64201: warning: `t7601' might be used uninitialized in this function nfm-stalin.c:64207: warning: `t7607' might be used uninitialized in this function nfm-stalin.c:64213: warning: `t7613' might be used uninitialized in this function nfm-stalin.c:64219: warning: `t7619' might be used uninitialized in this function nfm-stalin.c:64225: warning: `t7625' might be used uninitialized in this function nfm-stalin.c:64231: warning: `t7631' might be used uninitialized in this function nfm-stalin.c:64237: warning: `t7637' might be used uninitialized in this function nfm-stalin.c:64243: warning: `t7643' might be used uninitialized in this function nfm-stalin.c:64249: warning: `t7649' might be used uninitialized in this function nfm-stalin.c:64255: warning: `t7655' might be used uninitialized in this function nfm-stalin.c:64261: warning: `t7661' might be used uninitialized in this function nfm-stalin.c:64267: warning: `t7667' might be used uninitialized in this function nfm-stalin.c:64273: warning: `t7673' might be used uninitialized in this function nfm-stalin.c:64296: warning: `t7703' might be used uninitialized in this function nfm-stalin.c: In function `f523': nfm-stalin.c:64594: warning: `a1092' might be used uninitialized in this function nfm-stalin.c:64596: warning: `a1094' might be used uninitialized in this function nfm-stalin.c: In function `f430': nfm-stalin.c:64705: warning: `a846' might be used uninitialized in this function nfm-stalin.c:64706: warning: `a847' might be used uninitialized in this function nfm-stalin.c:64712: warning: `a996' might be used uninitialized in this function nfm-stalin.c:64718: warning: `a1002' might be used uninitialized in this function nfm-stalin.c:64719: warning: `a1003' might be used uninitialized in this function nfm-stalin.c:64720: warning: `a1004' might be used uninitialized in this function nfm-stalin.c:64722: warning: `a1006' might be used uninitialized in this function nfm-stalin.c:64724: warning: `a1008' might be used uninitialized in this function nfm-stalin.c:64726: warning: `a1010' might be used uninitialized in this function nfm-stalin.c:64732: warning: `a1016' might be used uninitialized in this function nfm-stalin.c:64734: warning: `a1018' might be used uninitialized in this function nfm-stalin.c:64736: warning: `a1020' might be used uninitialized in this function nfm-stalin.c:64737: warning: `a1023' might be used uninitialized in this function nfm-stalin.c:64742: warning: `a1650' might be used uninitialized in this function nfm-stalin.c:64744: warning: `a1652' might be used uninitialized in this function nfm-stalin.c:64747: warning: `a1655' might be used uninitialized in this function nfm-stalin.c:64749: warning: `a1657' might be used uninitialized in this function nfm-stalin.c:64751: warning: `a1659' might be used uninitialized in this function nfm-stalin.c:64752: warning: `a1660' might be used uninitialized in this function nfm-stalin.c:64753: warning: `a1661' might be used uninitialized in this function nfm-stalin.c:64754: warning: `a1662' might be used uninitialized in this function nfm-stalin.c:64760: warning: `a1850' might be used uninitialized in this function nfm-stalin.c:64761: warning: `a1851' might be used uninitialized in this function nfm-stalin.c:64779: warning: `t7767' might be used uninitialized in this function nfm-stalin.c: In function `f346': nfm-stalin.c:66592: warning: `a962' might be used uninitialized in this function nfm-stalin.c:66597: warning: `a967' might be used uninitialized in this function nfm-stalin.c:66598: warning: `a968' might be used uninitialized in this function nfm-stalin.c:66599: warning: `a969' might be used uninitialized in this function nfm-stalin.c:66601: warning: `a971' might be used uninitialized in this function nfm-stalin.c:66603: warning: `a973' might be used uninitialized in this function nfm-stalin.c:66605: warning: `a975' might be used uninitialized in this function nfm-stalin.c:66606: warning: `a976' might be used uninitialized in this function nfm-stalin.c:66608: warning: `a978' might be used uninitialized in this function nfm-stalin.c:66610: warning: `a980' might be used uninitialized in this function nfm-stalin.c:66612: warning: `a982' might be used uninitialized in this function nfm-stalin.c:66614: warning: `a984' might be used uninitialized in this function nfm-stalin.c:66616: warning: `a986' might be used uninitialized in this function nfm-stalin.c:66618: warning: `a988' might be used uninitialized in this function nfm-stalin.c:66620: warning: `a990' might be used uninitialized in this function nfm-stalin.c: In function `f222': nfm-stalin.c:67526: warning: `a849' might be used uninitialized in this function nfm-stalin.c:67527: warning: `a850' might be used uninitialized in this function nfm-stalin.c:67528: warning: `a851' might be used uninitialized in this function nfm-stalin.c:67529: warning: `a852' might be used uninitialized in this function nfm-stalin.c:67530: warning: `a853' might be used uninitialized in this function nfm-stalin.c:67531: warning: `a854' might be used uninitialized in this function nfm-stalin.c:67536: warning: `a878' might be used uninitialized in this function nfm-stalin.c:67537: warning: `a879' might be used uninitialized in this function nfm-stalin.c:67538: warning: `a880' might be used uninitialized in this function nfm-stalin.c:67539: warning: `a881' might be used uninitialized in this function nfm-stalin.c:67540: warning: `a882' might be used uninitialized in this function nfm-stalin.c:67541: warning: `a883' might be used uninitialized in this function nfm-stalin.c:67542: warning: `a884' might be used uninitialized in this function nfm-stalin.c:67543: warning: `a885' might be used uninitialized in this function nfm-stalin.c:67544: warning: `a886' might be used uninitialized in this function nfm-stalin.c:67545: warning: `a887' might be used uninitialized in this function nfm-stalin.c:67546: warning: `a888' might be used uninitialized in this function nfm-stalin.c:67548: warning: `a890' might be used uninitialized in this function nfm-stalin.c:67550: warning: `a892' might be used uninitialized in this function nfm-stalin.c:67552: warning: `a894' might be used uninitialized in this function nfm-stalin.c:67553: warning: `a895' might be used uninitialized in this function nfm-stalin.c:67554: warning: `a896' might be used uninitialized in this function nfm-stalin.c:67556: warning: `a898' might be used uninitialized in this function nfm-stalin.c:67558: warning: `a900' might be used uninitialized in this function nfm-stalin.c:67560: warning: `a902' might be used uninitialized in this function nfm-stalin.c:67561: warning: `a903' might be used uninitialized in this function nfm-stalin.c:67562: warning: `a904' might be used uninitialized in this function nfm-stalin.c:67563: warning: `a905' might be used uninitialized in this function nfm-stalin.c:67565: warning: `a907' might be used uninitialized in this function nfm-stalin.c:67567: warning: `a909' might be used uninitialized in this function nfm-stalin.c:67569: warning: `a911' might be used uninitialized in this function nfm-stalin.c: In function `f130': nfm-stalin.c:69648: warning: value computed is not used nfm-stalin.c:68828: warning: `a795' might be used uninitialized in this function nfm-stalin.c:68831: warning: `a798' might be used uninitialized in this function nfm-stalin.c:68832: warning: `a799' might be used uninitialized in this function nfm-stalin.c:68834: warning: `a801' might be used uninitialized in this function nfm-stalin.c:68836: warning: `a803' might be used uninitialized in this function nfm-stalin.c:68838: warning: `a805' might be used uninitialized in this function nfm-stalin.c:68842: warning: `a809' might be used uninitialized in this function nfm-stalin.c:68843: warning: `a810' might be used uninitialized in this function nfm-stalin.c:68844: warning: `a811' might be used uninitialized in this function nfm-stalin.c:68845: warning: `a812' might be used uninitialized in this function nfm-stalin.c:68846: warning: `a813' might be used uninitialized in this function nfm-stalin.c:68848: warning: `a815' might be used uninitialized in this function nfm-stalin.c:68850: warning: `a817' might be used uninitialized in this function nfm-stalin.c:68852: warning: `a819' might be used uninitialized in this function nfm-stalin.c:68856: warning: `a823' might be used uninitialized in this function nfm-stalin.c:68857: warning: `a824' might be used uninitialized in this function nfm-stalin.c:68858: warning: `a825' might be used uninitialized in this function nfm-stalin.c:68860: warning: `a827' might be used uninitialized in this function nfm-stalin.c:68862: warning: `a829' might be used uninitialized in this function nfm-stalin.c:68864: warning: `a831' might be used uninitialized in this function nfm-stalin.c:68866: warning: `a833' might be used uninitialized in this function nfm-stalin.c:68868: warning: `a835' might be used uninitialized in this function nfm-stalin.c:68870: warning: `a837' might be used uninitialized in this function nfm-stalin.c:68872: warning: `a839' might be used uninitialized in this function nfm-stalin.c:68874: warning: `a841' might be used uninitialized in this function nfm-stalin.c:68876: warning: `a843' might be used uninitialized in this function nfm-stalin.c:68888: warning: `t9067' might be used uninitialized in this function nfm-stalin.c:68903: warning: `t9085' might be used uninitialized in this function nfm-stalin.c:68973: warning: `t9179' might be used uninitialized in this function nfm-stalin.c: In function `f75': nfm-stalin.c:70878: warning: value computed is not used nfm-stalin.c:70436: warning: `a758' might be used uninitialized in this function nfm-stalin.c:70439: warning: `a761' might be used uninitialized in this function nfm-stalin.c:70440: warning: `a762' might be used uninitialized in this function nfm-stalin.c:70442: warning: `a764' might be used uninitialized in this function nfm-stalin.c:70444: warning: `a766' might be used uninitialized in this function nfm-stalin.c:70446: warning: `a768' might be used uninitialized in this function nfm-stalin.c:70448: warning: `a770' might be used uninitialized in this function nfm-stalin.c:70449: warning: `a771' might be used uninitialized in this function nfm-stalin.c:70450: warning: `a772' might be used uninitialized in this function nfm-stalin.c:70452: warning: `a774' might be used uninitialized in this function nfm-stalin.c:70454: warning: `a776' might be used uninitialized in this function nfm-stalin.c:70456: warning: `a778' might be used uninitialized in this function nfm-stalin.c:70458: warning: `a780' might be used uninitialized in this function nfm-stalin.c:70460: warning: `a782' might be used uninitialized in this function nfm-stalin.c:70462: warning: `a784' might be used uninitialized in this function nfm-stalin.c:70464: warning: `a786' might be used uninitialized in this function nfm-stalin.c:70474: warning: `t9431' might be used uninitialized in this function nfm-stalin.c:70483: warning: `t9443' might be used uninitialized in this function nfm-stalin.c:70530: warning: `t9506' might be used uninitialized in this function nfm-stalin.c: In function `f40': nfm-stalin.c:71402: warning: `a734' might be used uninitialized in this function nfm-stalin.c:71404: warning: `a736' might be used uninitialized in this function nfm-stalin.c:71405: warning: `a737' might be used uninitialized in this function nfm-stalin.c:71407: warning: `a739' might be used uninitialized in this function nfm-stalin.c:71409: warning: `a741' might be used uninitialized in this function nfm-stalin.c:71411: warning: `a743' might be used uninitialized in this function nfm-stalin.c:71413: warning: `a745' might be used uninitialized in this function nfm-stalin.c:71415: warning: `a747' might be used uninitialized in this function nfm-stalin.c:71417: warning: `a749' might be used uninitialized in this function nfm-stalin.c:71419: warning: `a751' might be used uninitialized in this function nfm-stalin.c:71431: warning: `t9652' might be used uninitialized in this function nfm-stalin.c: In function `f28': nfm-stalin.c:72101: warning: unused variable `e3606' nfm-stalin.c:72100: warning: unused variable `e3605' nfm-stalin.c:72099: warning: unused variable `e3604' nfm-stalin.c:72097: warning: unused variable `e3602' nfm-stalin.c:72096: warning: unused variable `e3601' nfm-stalin.c:72095: warning: unused variable `e3600' nfm-stalin.c:72093: warning: unused variable `e3598' nfm-stalin.c:72092: warning: unused variable `e3597' nfm-stalin.c:72091: warning: unused variable `e3596' nfm-stalin.c:72089: warning: unused variable `e3594' nfm-stalin.c:72088: warning: unused variable `e3593' nfm-stalin.c:72087: warning: unused variable `e3592' nfm-stalin.c:72085: warning: unused variable `e3590' nfm-stalin.c:72084: warning: unused variable `e3589' nfm-stalin.c:72083: warning: unused variable `e3588' nfm-stalin.c:72081: warning: unused variable `e467' nfm-stalin.c:72080: warning: unused variable `e466' nfm-stalin.c:72079: warning: unused variable `e465' nfm-stalin.c:71998: warning: unused variable `a3676' nfm-stalin.c:71997: warning: unused variable `a3675' nfm-stalin.c:71996: warning: unused variable `a3674' nfm-stalin.c:71993: warning: unused variable `a3671' nfm-stalin.c:71992: warning: unused variable `a3670' nfm-stalin.c:71991: warning: unused variable `a3669' nfm-stalin.c:71988: warning: unused variable `a3666' nfm-stalin.c:71987: warning: unused variable `a3665' nfm-stalin.c:71986: warning: unused variable `a3664' nfm-stalin.c:71983: warning: unused variable `a3661' nfm-stalin.c:71982: warning: unused variable `a3660' nfm-stalin.c:71981: warning: unused variable `a3659' nfm-stalin.c:71978: warning: unused variable `a3656' nfm-stalin.c:71977: warning: unused variable `a3655' nfm-stalin.c:71976: warning: unused variable `a3654' nfm-stalin.c:71973: warning: unused variable `a1030' nfm-stalin.c:71972: warning: unused variable `a1029' nfm-stalin.c:71971: warning: unused variable `a1028' nfm-stalin.c:71961: warning: `a722' might be used uninitialized in this function nfm-stalin.c:71962: warning: `a723' might be used uninitialized in this function nfm-stalin.c:71963: warning: `a724' might be used uninitialized in this function nfm-stalin.c:71964: warning: `a725' might be used uninitialized in this function nfm-stalin.c:71965: warning: `a726' might be used uninitialized in this function nfm-stalin.c:71966: warning: `a727' might be used uninitialized in this function nfm-stalin.c:71970: warning: `a1027' might be used uninitialized in this function nfm-stalin.c:71975: warning: `a3653' might be used uninitialized in this function nfm-stalin.c:71980: warning: `a3658' might be used uninitialized in this function nfm-stalin.c:71985: warning: `a3663' might be used uninitialized in this function nfm-stalin.c:71990: warning: `a3668' might be used uninitialized in this function nfm-stalin.c:71995: warning: `a3673' might be used uninitialized in this function nfm-stalin.c: In function `f25': nfm-stalin.c:72378: warning: `a719' might be used uninitialized in this function nfm-stalin.c:72379: warning: `a720' might be used uninitialized in this function nfm-stalin.c:72384: warning: `a1846' might be used uninitialized in this function nfm-stalin.c:72392: warning: `t9925' might be used uninitialized in this function nfm-stalin.c: In function `f0': nfm-stalin.c:72485: warning: `a1' might be used uninitialized in this function nfm-stalin.c:72486: warning: `a2' might be used uninitialized in this function nfm-stalin.c:72487: warning: `a3' might be used uninitialized in this function nfm-stalin.c:72488: warning: `a4' might be used uninitialized in this function nfm-stalin.c:72489: warning: `a5' might be used uninitialized in this function nfm-stalin.c:72490: warning: `a6' might be used uninitialized in this function nfm-stalin.c:72491: warning: `a7' might be used uninitialized in this function nfm-stalin.c:72492: warning: `a8' might be used uninitialized in this function nfm-stalin.c:72493: warning: `a9' might be used uninitialized in this function nfm-stalin.c:72494: warning: `a10' might be used uninitialized in this function nfm-stalin.c:72495: warning: `a11' might be used uninitialized in this function nfm-stalin.c:72496: warning: `a12' might be used uninitialized in this function nfm-stalin.c:72497: warning: `a13' might be used uninitialized in this function nfm-stalin.c:72498: warning: `a14' might be used uninitialized in this function nfm-stalin.c:72499: warning: `a15' might be used uninitialized in this function nfm-stalin.c:72500: warning: `a16' might be used uninitialized in this function nfm-stalin.c:72501: warning: `a17' might be used uninitialized in this function nfm-stalin.c:72502: warning: `a18' might be used uninitialized in this function nfm-stalin.c:72503: warning: `a19' might be used uninitialized in this function nfm-stalin.c:72504: warning: `a20' might be used uninitialized in this function nfm-stalin.c:72505: warning: `a21' might be used uninitialized in this function nfm-stalin.c:72506: warning: `a22' might be used uninitialized in this function nfm-stalin.c:72507: warning: `a23' might be used uninitialized in this function nfm-stalin.c:72508: warning: `a24' might be used uninitialized in this function nfm-stalin.c:72509: warning: `a25' might be used uninitialized in this function nfm-stalin.c:72510: warning: `a26' might be used uninitialized in this function nfm-stalin.c:72511: warning: `a27' might be used uninitialized in this function nfm-stalin.c:72512: warning: `a28' might be used uninitialized in this function nfm-stalin.c:72513: warning: `a29' might be used uninitialized in this function nfm-stalin.c:72514: warning: `a30' might be used uninitialized in this function nfm-stalin.c:72515: warning: `a31' might be used uninitialized in this function nfm-stalin.c:72516: warning: `a32' might be used uninitialized in this function nfm-stalin.c:72517: warning: `a33' might be used uninitialized in this function nfm-stalin.c:72518: warning: `a34' might be used uninitialized in this function nfm-stalin.c:72519: warning: `a35' might be used uninitialized in this function nfm-stalin.c:72520: warning: `a36' might be used uninitialized in this function nfm-stalin.c:72521: warning: `a37' might be used uninitialized in this function nfm-stalin.c:72522: warning: `a38' might be used uninitialized in this function nfm-stalin.c:72523: warning: `a39' might be used uninitialized in this function nfm-stalin.c:72524: warning: `a40' might be used uninitialized in this function nfm-stalin.c:72525: warning: `a41' might be used uninitialized in this function nfm-stalin.c:72526: warning: `a42' might be used uninitialized in this function nfm-stalin.c:72527: warning: `a43' might be used uninitialized in this function nfm-stalin.c:72528: warning: `a44' might be used uninitialized in this function nfm-stalin.c:72529: warning: `a45' might be used uninitialized in this function nfm-stalin.c:72530: warning: `a46' might be used uninitialized in this function nfm-stalin.c:72531: warning: `a47' might be used uninitialized in this function nfm-stalin.c:72532: warning: `a48' might be used uninitialized in this function nfm-stalin.c:72533: warning: `a49' might be used uninitialized in this function nfm-stalin.c:72534: warning: `a50' might be used uninitialized in this function nfm-stalin.c:72535: warning: `a51' might be used uninitialized in this function nfm-stalin.c:72536: warning: `a52' might be used uninitialized in this function nfm-stalin.c:72537: warning: `a53' might be used uninitialized in this function nfm-stalin.c:72538: warning: `a54' might be used uninitialized in this function nfm-stalin.c:72539: warning: `a55' might be used uninitialized in this function nfm-stalin.c:72540: warning: `a56' might be used uninitialized in this function nfm-stalin.c:72541: warning: `a57' might be used uninitialized in this function nfm-stalin.c:72542: warning: `a58' might be used uninitialized in this function nfm-stalin.c:72543: warning: `a59' might be used uninitialized in this function nfm-stalin.c:72544: warning: `a60' might be used uninitialized in this function nfm-stalin.c:72545: warning: `a61' might be used uninitialized in this function nfm-stalin.c:72546: warning: `a62' might be used uninitialized in this function nfm-stalin.c:72547: warning: `a63' might be used uninitialized in this function nfm-stalin.c:72548: warning: `a64' might be used uninitialized in this function nfm-stalin.c:72549: warning: `a65' might be used uninitialized in this function nfm-stalin.c:72550: warning: `a66' might be used uninitialized in this function nfm-stalin.c:72551: warning: `a67' might be used uninitialized in this function nfm-stalin.c:72552: warning: `a68' might be used uninitialized in this function nfm-stalin.c:72553: warning: `a69' might be used uninitialized in this function nfm-stalin.c:72554: warning: `a70' might be used uninitialized in this function nfm-stalin.c:72555: warning: `a71' might be used uninitialized in this function nfm-stalin.c:72556: warning: `a72' might be used uninitialized in this function nfm-stalin.c:72557: warning: `a73' might be used uninitialized in this function nfm-stalin.c:72558: warning: `a74' might be used uninitialized in this function nfm-stalin.c:72559: warning: `a75' might be used uninitialized in this function nfm-stalin.c:72560: warning: `a76' might be used uninitialized in this function nfm-stalin.c:72561: warning: `a77' might be used uninitialized in this function nfm-stalin.c:72562: warning: `a78' might be used uninitialized in this function nfm-stalin.c:72563: warning: `a79' might be used uninitialized in this function nfm-stalin.c:72564: warning: `a80' might be used uninitialized in this function nfm-stalin.c:72565: warning: `a81' might be used uninitialized in this function nfm-stalin.c:72566: warning: `a82' might be used uninitialized in this function nfm-stalin.c:72567: warning: `a83' might be used uninitialized in this function nfm-stalin.c:72568: warning: `a84' might be used uninitialized in this function nfm-stalin.c:72569: warning: `a85' might be used uninitialized in this function nfm-stalin.c:72570: warning: `a86' might be used uninitialized in this function nfm-stalin.c:72571: warning: `a87' might be used uninitialized in this function nfm-stalin.c:72572: warning: `a88' might be used uninitialized in this function nfm-stalin.c:72573: warning: `a89' might be used uninitialized in this function nfm-stalin.c:72574: warning: `a90' might be used uninitialized in this function nfm-stalin.c:72575: warning: `a91' might be used uninitialized in this function nfm-stalin.c:72576: warning: `a92' might be used uninitialized in this function nfm-stalin.c:72577: warning: `a93' might be used uninitialized in this function nfm-stalin.c:72578: warning: `a94' might be used uninitialized in this function nfm-stalin.c:72579: warning: `a95' might be used uninitialized in this function nfm-stalin.c:72580: warning: `a96' might be used uninitialized in this function nfm-stalin.c:72581: warning: `a97' might be used uninitialized in this function nfm-stalin.c:72582: warning: `a98' might be used uninitialized in this function nfm-stalin.c:72583: warning: `a99' might be used uninitialized in this function nfm-stalin.c:72584: warning: `a100' might be used uninitialized in this function nfm-stalin.c:72585: warning: `a101' might be used uninitialized in this function nfm-stalin.c:72586: warning: `a102' might be used uninitialized in this function nfm-stalin.c:72587: warning: `a103' might be used uninitialized in this function nfm-stalin.c:72588: warning: `a104' might be used uninitialized in this function nfm-stalin.c:72589: warning: `a105' might be used uninitialized in this function nfm-stalin.c:72590: warning: `a106' might be used uninitialized in this function nfm-stalin.c:72591: warning: `a107' might be used uninitialized in this function nfm-stalin.c:72592: warning: `a108' might be used uninitialized in this function nfm-stalin.c:72593: warning: `a109' might be used uninitialized in this function nfm-stalin.c:72594: warning: `a110' might be used uninitialized in this function nfm-stalin.c:72595: warning: `a111' might be used uninitialized in this function nfm-stalin.c:72596: warning: `a112' might be used uninitialized in this function nfm-stalin.c:72597: warning: `a113' might be used uninitialized in this function nfm-stalin.c:72598: warning: `a114' might be used uninitialized in this function nfm-stalin.c:72599: warning: `a115' might be used uninitialized in this function nfm-stalin.c:72600: warning: `a116' might be used uninitialized in this function nfm-stalin.c:72601: warning: `a117' might be used uninitialized in this function nfm-stalin.c:72602: warning: `a118' might be used uninitialized in this function nfm-stalin.c:72603: warning: `a119' might be used uninitialized in this function nfm-stalin.c:72604: warning: `a120' might be used uninitialized in this function nfm-stalin.c:72605: warning: `a121' might be used uninitialized in this function nfm-stalin.c:72606: warning: `a122' might be used uninitialized in this function nfm-stalin.c:72607: warning: `a123' might be used uninitialized in this function nfm-stalin.c:72608: warning: `a124' might be used uninitialized in this function nfm-stalin.c:72609: warning: `a125' might be used uninitialized in this function nfm-stalin.c:72610: warning: `a126' might be used uninitialized in this function nfm-stalin.c:72611: warning: `a127' might be used uninitialized in this function nfm-stalin.c:72612: warning: `a128' might be used uninitialized in this function nfm-stalin.c:72613: warning: `a129' might be used uninitialized in this function nfm-stalin.c:72614: warning: `a130' might be used uninitialized in this function nfm-stalin.c:72615: warning: `a131' might be used uninitialized in this function nfm-stalin.c:72616: warning: `a132' might be used uninitialized in this function nfm-stalin.c:72617: warning: `a133' might be used uninitialized in this function nfm-stalin.c:72618: warning: `a134' might be used uninitialized in this function nfm-stalin.c:72619: warning: `a135' might be used uninitialized in this function nfm-stalin.c:72620: warning: `a136' might be used uninitialized in this function nfm-stalin.c:72621: warning: `a137' might be used uninitialized in this function nfm-stalin.c:72622: warning: `a138' might be used uninitialized in this function nfm-stalin.c:72623: warning: `a139' might be used uninitialized in this function nfm-stalin.c:72624: warning: `a140' might be used uninitialized in this function nfm-stalin.c:72625: warning: `a141' might be used uninitialized in this function nfm-stalin.c:72626: warning: `a142' might be used uninitialized in this function nfm-stalin.c:72627: warning: `a143' might be used uninitialized in this function nfm-stalin.c:72628: warning: `a144' might be used uninitialized in this function nfm-stalin.c:72629: warning: `a145' might be used uninitialized in this function nfm-stalin.c:72630: warning: `a146' might be used uninitialized in this function nfm-stalin.c:72631: warning: `a147' might be used uninitialized in this function nfm-stalin.c:72632: warning: `a148' might be used uninitialized in this function nfm-stalin.c:72633: warning: `a149' might be used uninitialized in this function nfm-stalin.c:72634: warning: `a150' might be used uninitialized in this function nfm-stalin.c:72635: warning: `a151' might be used uninitialized in this function nfm-stalin.c:72636: warning: `a152' might be used uninitialized in this function nfm-stalin.c:72637: warning: `a153' might be used uninitialized in this function nfm-stalin.c:72638: warning: `a154' might be used uninitialized in this function nfm-stalin.c:72639: warning: `a155' might be used uninitialized in this function nfm-stalin.c:72640: warning: `a156' might be used uninitialized in this function nfm-stalin.c:72641: warning: `a157' might be used uninitialized in this function nfm-stalin.c:72642: warning: `a158' might be used uninitialized in this function nfm-stalin.c:72643: warning: `a159' might be used uninitialized in this function nfm-stalin.c:72644: warning: `a160' might be used uninitialized in this function nfm-stalin.c:72645: warning: `a161' might be used uninitialized in this function nfm-stalin.c:72646: warning: `a162' might be used uninitialized in this function nfm-stalin.c:72647: warning: `a163' might be used uninitialized in this function nfm-stalin.c:72648: warning: `a164' might be used uninitialized in this function nfm-stalin.c:72649: warning: `a165' might be used uninitialized in this function nfm-stalin.c:72650: warning: `a166' might be used uninitialized in this function nfm-stalin.c:72651: warning: `a167' might be used uninitialized in this function nfm-stalin.c:72652: warning: `a168' might be used uninitialized in this function nfm-stalin.c:72653: warning: `a169' might be used uninitialized in this function nfm-stalin.c:72654: warning: `a170' might be used uninitialized in this function nfm-stalin.c:72655: warning: `a171' might be used uninitialized in this function nfm-stalin.c:72656: warning: `a172' might be used uninitialized in this function nfm-stalin.c:72657: warning: `a173' might be used uninitialized in this function nfm-stalin.c:72658: warning: `a174' might be used uninitialized in this function nfm-stalin.c:72659: warning: `a175' might be used uninitialized in this function nfm-stalin.c:72660: warning: `a176' might be used uninitialized in this function nfm-stalin.c:72661: warning: `a177' might be used uninitialized in this function nfm-stalin.c:72662: warning: `a178' might be used uninitialized in this function nfm-stalin.c:72663: warning: `a179' might be used uninitialized in this function nfm-stalin.c:72664: warning: `a180' might be used uninitialized in this function nfm-stalin.c:72665: warning: `a181' might be used uninitialized in this function nfm-stalin.c:72666: warning: `a182' might be used uninitialized in this function nfm-stalin.c:72667: warning: `a183' might be used uninitialized in this function nfm-stalin.c:72668: warning: `a184' might be used uninitialized in this function nfm-stalin.c:72669: warning: `a185' might be used uninitialized in this function nfm-stalin.c:72670: warning: `a186' might be used uninitialized in this function nfm-stalin.c:72671: warning: `a187' might be used uninitialized in this function nfm-stalin.c:72672: warning: `a188' might be used uninitialized in this function nfm-stalin.c:72673: warning: `a189' might be used uninitialized in this function nfm-stalin.c:72674: warning: `a190' might be used uninitialized in this function nfm-stalin.c:72675: warning: `a191' might be used uninitialized in this function nfm-stalin.c:72676: warning: `a192' might be used uninitialized in this function nfm-stalin.c:72677: warning: `a193' might be used uninitialized in this function nfm-stalin.c:72678: warning: `a194' might be used uninitialized in this function nfm-stalin.c:72679: warning: `a195' might be used uninitialized in this function nfm-stalin.c:72680: warning: `a196' might be used uninitialized in this function nfm-stalin.c:72681: warning: `a197' might be used uninitialized in this function nfm-stalin.c:72682: warning: `a198' might be used uninitialized in this function nfm-stalin.c:72683: warning: `a199' might be used uninitialized in this function nfm-stalin.c:72684: warning: `a200' might be used uninitialized in this function nfm-stalin.c:72685: warning: `a201' might be used uninitialized in this function nfm-stalin.c:72686: warning: `a202' might be used uninitialized in this function nfm-stalin.c:72687: warning: `a203' might be used uninitialized in this function nfm-stalin.c:72688: warning: `a204' might be used uninitialized in this function nfm-stalin.c:72689: warning: `a205' might be used uninitialized in this function nfm-stalin.c:72690: warning: `a206' might be used uninitialized in this function nfm-stalin.c:72691: warning: `a207' might be used uninitialized in this function nfm-stalin.c:72692: warning: `a208' might be used uninitialized in this function nfm-stalin.c:72693: warning: `a209' might be used uninitialized in this function nfm-stalin.c:72694: warning: `a210' might be used uninitialized in this function nfm-stalin.c:72695: warning: `a211' might be used uninitialized in this function nfm-stalin.c:72696: warning: `a212' might be used uninitialized in this function nfm-stalin.c:72697: warning: `a213' might be used uninitialized in this function nfm-stalin.c:72698: warning: `a214' might be used uninitialized in this function nfm-stalin.c:72699: warning: `a215' might be used uninitialized in this function nfm-stalin.c:72700: warning: `a216' might be used uninitialized in this function nfm-stalin.c:72701: warning: `a217' might be used uninitialized in this function nfm-stalin.c:72702: warning: `a218' might be used uninitialized in this function nfm-stalin.c:72703: warning: `a219' might be used uninitialized in this function nfm-stalin.c:72704: warning: `a220' might be used uninitialized in this function nfm-stalin.c:72705: warning: `a221' might be used uninitialized in this function nfm-stalin.c:72706: warning: `a222' might be used uninitialized in this function nfm-stalin.c:72707: warning: `a223' might be used uninitialized in this function nfm-stalin.c:72708: warning: `a224' might be used uninitialized in this function nfm-stalin.c:72709: warning: `a225' might be used uninitialized in this function nfm-stalin.c:72710: warning: `a226' might be used uninitialized in this function nfm-stalin.c:72711: warning: `a227' might be used uninitialized in this function nfm-stalin.c:72712: warning: `a228' might be used uninitialized in this function nfm-stalin.c:72713: warning: `a229' might be used uninitialized in this function nfm-stalin.c:72714: warning: `a230' might be used uninitialized in this function nfm-stalin.c:72715: warning: `a231' might be used uninitialized in this function nfm-stalin.c:72716: warning: `a232' might be used uninitialized in this function nfm-stalin.c:72717: warning: `a233' might be used uninitialized in this function nfm-stalin.c:72718: warning: `a234' might be used uninitialized in this function nfm-stalin.c:72719: warning: `a235' might be used uninitialized in this function nfm-stalin.c:72720: warning: `a236' might be used uninitialized in this function nfm-stalin.c:72721: warning: `a237' might be used uninitialized in this function nfm-stalin.c:72722: warning: `a238' might be used uninitialized in this function nfm-stalin.c:72723: warning: `a239' might be used uninitialized in this function nfm-stalin.c:72724: warning: `a240' might be used uninitialized in this function nfm-stalin.c:72725: warning: `a241' might be used uninitialized in this function nfm-stalin.c:72726: warning: `a242' might be used uninitialized in this function nfm-stalin.c:72727: warning: `a243' might be used uninitialized in this function nfm-stalin.c:72728: warning: `a244' might be used uninitialized in this function nfm-stalin.c:72729: warning: `a245' might be used uninitialized in this function nfm-stalin.c:72730: warning: `a246' might be used uninitialized in this function nfm-stalin.c:72731: warning: `a247' might be used uninitialized in this function nfm-stalin.c:72732: warning: `a248' might be used uninitialized in this function nfm-stalin.c:72733: warning: `a249' might be used uninitialized in this function nfm-stalin.c:72734: warning: `a250' might be used uninitialized in this function nfm-stalin.c:72735: warning: `a251' might be used uninitialized in this function nfm-stalin.c:72736: warning: `a252' might be used uninitialized in this function nfm-stalin.c:72737: warning: `a253' might be used uninitialized in this function nfm-stalin.c:72738: warning: `a254' might be used uninitialized in this function nfm-stalin.c:72739: warning: `a255' might be used uninitialized in this function nfm-stalin.c:72740: warning: `a256' might be used uninitialized in this function nfm-stalin.c:72741: warning: `a257' might be used uninitialized in this function nfm-stalin.c:72742: warning: `a258' might be used uninitialized in this function nfm-stalin.c:72743: warning: `a259' might be used uninitialized in this function nfm-stalin.c:72744: warning: `a260' might be used uninitialized in this function nfm-stalin.c:72745: warning: `a261' might be used uninitialized in this function nfm-stalin.c:72746: warning: `a262' might be used uninitialized in this function nfm-stalin.c:72747: warning: `a263' might be used uninitialized in this function nfm-stalin.c:72748: warning: `a264' might be used uninitialized in this function nfm-stalin.c:72749: warning: `a265' might be used uninitialized in this function nfm-stalin.c:72750: warning: `a266' might be used uninitialized in this function nfm-stalin.c:72751: warning: `a267' might be used uninitialized in this function nfm-stalin.c:72752: warning: `a268' might be used uninitialized in this function nfm-stalin.c:72753: warning: `a269' might be used uninitialized in this function nfm-stalin.c:72754: warning: `a270' might be used uninitialized in this function nfm-stalin.c:72755: warning: `a271' might be used uninitialized in this function nfm-stalin.c:72756: warning: `a272' might be used uninitialized in this function nfm-stalin.c:72757: warning: `a273' might be used uninitialized in this function nfm-stalin.c:72758: warning: `a274' might be used uninitialized in this function nfm-stalin.c:72759: warning: `a275' might be used uninitialized in this function nfm-stalin.c:72760: warning: `a276' might be used uninitialized in this function nfm-stalin.c:72761: warning: `a277' might be used uninitialized in this function nfm-stalin.c:72762: warning: `a278' might be used uninitialized in this function nfm-stalin.c:72763: warning: `a279' might be used uninitialized in this function nfm-stalin.c:72764: warning: `a280' might be used uninitialized in this function nfm-stalin.c:72765: warning: `a281' might be used uninitialized in this function nfm-stalin.c:72766: warning: `a282' might be used uninitialized in this function nfm-stalin.c:72767: warning: `a283' might be used uninitialized in this function nfm-stalin.c:72768: warning: `a284' might be used uninitialized in this function nfm-stalin.c:72769: warning: `a285' might be used uninitialized in this function nfm-stalin.c:72770: warning: `a286' might be used uninitialized in this function nfm-stalin.c:72771: warning: `a287' might be used uninitialized in this function nfm-stalin.c:72772: warning: `a288' might be used uninitialized in this function nfm-stalin.c:72773: warning: `a289' might be used uninitialized in this function nfm-stalin.c:72774: warning: `a290' might be used uninitialized in this function nfm-stalin.c:72775: warning: `a291' might be used uninitialized in this function nfm-stalin.c:72776: warning: `a292' might be used uninitialized in this function nfm-stalin.c:72777: warning: `a293' might be used uninitialized in this function nfm-stalin.c:72778: warning: `a294' might be used uninitialized in this function nfm-stalin.c:72779: warning: `a295' might be used uninitialized in this function nfm-stalin.c:72780: warning: `a296' might be used uninitialized in this function nfm-stalin.c:72781: warning: `a297' might be used uninitialized in this function nfm-stalin.c:72782: warning: `a298' might be used uninitialized in this function nfm-stalin.c:72783: warning: `a299' might be used uninitialized in this function nfm-stalin.c:72784: warning: `a300' might be used uninitialized in this function nfm-stalin.c:72785: warning: `a301' might be used uninitialized in this function nfm-stalin.c:72786: warning: `a302' might be used uninitialized in this function nfm-stalin.c:72787: warning: `a303' might be used uninitialized in this function nfm-stalin.c:72788: warning: `a304' might be used uninitialized in this function nfm-stalin.c:72789: warning: `a305' might be used uninitialized in this function nfm-stalin.c:72790: warning: `a306' might be used uninitialized in this function nfm-stalin.c:72791: warning: `a307' might be used uninitialized in this function nfm-stalin.c:72792: warning: `a308' might be used uninitialized in this function nfm-stalin.c:72793: warning: `a309' might be used uninitialized in this function nfm-stalin.c:72794: warning: `a310' might be used uninitialized in this function nfm-stalin.c:72795: warning: `a311' might be used uninitialized in this function nfm-stalin.c:72796: warning: `a312' might be used uninitialized in this function nfm-stalin.c:72797: warning: `a313' might be used uninitialized in this function nfm-stalin.c:72798: warning: `a314' might be used uninitialized in this function nfm-stalin.c:72799: warning: `a315' might be used uninitialized in this function nfm-stalin.c:72800: warning: `a316' might be used uninitialized in this function nfm-stalin.c:72801: warning: `a317' might be used uninitialized in this function nfm-stalin.c:72802: warning: `a318' might be used uninitialized in this function nfm-stalin.c:72803: warning: `a319' might be used uninitialized in this function nfm-stalin.c:72804: warning: `a320' might be used uninitialized in this function nfm-stalin.c:72805: warning: `a321' might be used uninitialized in this function nfm-stalin.c:72806: warning: `a322' might be used uninitialized in this function nfm-stalin.c:72807: warning: `a323' might be used uninitialized in this function nfm-stalin.c:72808: warning: `a324' might be used uninitialized in this function nfm-stalin.c:72809: warning: `a325' might be used uninitialized in this function nfm-stalin.c:72810: warning: `a326' might be used uninitialized in this function nfm-stalin.c:72811: warning: `a327' might be used uninitialized in this function nfm-stalin.c:72812: warning: `a328' might be used uninitialized in this function nfm-stalin.c:72813: warning: `a329' might be used uninitialized in this function nfm-stalin.c:72814: warning: `a330' might be used uninitialized in this function nfm-stalin.c:72815: warning: `a331' might be used uninitialized in this function nfm-stalin.c:72816: warning: `a332' might be used uninitialized in this function nfm-stalin.c:72817: warning: `a333' might be used uninitialized in this function nfm-stalin.c:72818: warning: `a334' might be used uninitialized in this function nfm-stalin.c:72819: warning: `a335' might be used uninitialized in this function nfm-stalin.c:72820: warning: `a336' might be used uninitialized in this function nfm-stalin.c:72821: warning: `a337' might be used uninitialized in this function nfm-stalin.c:72822: warning: `a338' might be used uninitialized in this function nfm-stalin.c:72823: warning: `a339' might be used uninitialized in this function nfm-stalin.c:72824: warning: `a340' might be used uninitialized in this function nfm-stalin.c:72825: warning: `a341' might be used uninitialized in this function nfm-stalin.c:72826: warning: `a342' might be used uninitialized in this function nfm-stalin.c:72827: warning: `a343' might be used uninitialized in this function nfm-stalin.c:72828: warning: `a344' might be used uninitialized in this function nfm-stalin.c:72829: warning: `a345' might be used uninitialized in this function nfm-stalin.c:72830: warning: `a346' might be used uninitialized in this function nfm-stalin.c:72831: warning: `a347' might be used uninitialized in this function nfm-stalin.c:72832: warning: `a348' might be used uninitialized in this function nfm-stalin.c:72833: warning: `a349' might be used uninitialized in this function nfm-stalin.c:72834: warning: `a350' might be used uninitialized in this function nfm-stalin.c:72835: warning: `a351' might be used uninitialized in this function nfm-stalin.c:72836: warning: `a352' might be used uninitialized in this function nfm-stalin.c:72837: warning: `a353' might be used uninitialized in this function nfm-stalin.c:72838: warning: `a354' might be used uninitialized in this function nfm-stalin.c:72839: warning: `a355' might be used uninitialized in this function nfm-stalin.c:72840: warning: `a356' might be used uninitialized in this function nfm-stalin.c:72841: warning: `a357' might be used uninitialized in this function nfm-stalin.c:72842: warning: `a358' might be used uninitialized in this function nfm-stalin.c:72843: warning: `a359' might be used uninitialized in this function nfm-stalin.c:72844: warning: `a360' might be used uninitialized in this function nfm-stalin.c:72845: warning: `a361' might be used uninitialized in this function nfm-stalin.c:72846: warning: `a362' might be used uninitialized in this function nfm-stalin.c:72847: warning: `a363' might be used uninitialized in this function nfm-stalin.c:72848: warning: `a364' might be used uninitialized in this function nfm-stalin.c:72849: warning: `a365' might be used uninitialized in this function nfm-stalin.c:72850: warning: `a366' might be used uninitialized in this function nfm-stalin.c:72851: warning: `a367' might be used uninitialized in this function nfm-stalin.c:72852: warning: `a368' might be used uninitialized in this function nfm-stalin.c:72853: warning: `a369' might be used uninitialized in this function nfm-stalin.c:72854: warning: `a370' might be used uninitialized in this function nfm-stalin.c:72855: warning: `a371' might be used uninitialized in this function nfm-stalin.c:72856: warning: `a372' might be used uninitialized in this function nfm-stalin.c:72857: warning: `a373' might be used uninitialized in this function nfm-stalin.c:72858: warning: `a374' might be used uninitialized in this function nfm-stalin.c:72859: warning: `a375' might be used uninitialized in this function nfm-stalin.c:72860: warning: `a376' might be used uninitialized in this function nfm-stalin.c:72861: warning: `a377' might be used uninitialized in this function nfm-stalin.c:72862: warning: `a378' might be used uninitialized in this function nfm-stalin.c:72863: warning: `a379' might be used uninitialized in this function nfm-stalin.c:72864: warning: `a380' might be used uninitialized in this function nfm-stalin.c:72865: warning: `a381' might be used uninitialized in this function nfm-stalin.c:72866: warning: `a382' might be used uninitialized in this function nfm-stalin.c:72867: warning: `a383' might be used uninitialized in this function nfm-stalin.c:72868: warning: `a384' might be used uninitialized in this function nfm-stalin.c:72869: warning: `a385' might be used uninitialized in this function nfm-stalin.c:72870: warning: `a386' might be used uninitialized in this function nfm-stalin.c:72871: warning: `a387' might be used uninitialized in this function nfm-stalin.c:72872: warning: `a388' might be used uninitialized in this function nfm-stalin.c:72873: warning: `a389' might be used uninitialized in this function nfm-stalin.c:72874: warning: `a390' might be used uninitialized in this function nfm-stalin.c:72875: warning: `a391' might be used uninitialized in this function nfm-stalin.c:72876: warning: `a392' might be used uninitialized in this function nfm-stalin.c:72877: warning: `a393' might be used uninitialized in this function nfm-stalin.c:72878: warning: `a394' might be used uninitialized in this function nfm-stalin.c:72879: warning: `a395' might be used uninitialized in this function nfm-stalin.c:72880: warning: `a396' might be used uninitialized in this function nfm-stalin.c:72881: warning: `a397' might be used uninitialized in this function nfm-stalin.c:72882: warning: `a398' might be used uninitialized in this function nfm-stalin.c:72883: warning: `a399' might be used uninitialized in this function nfm-stalin.c:72884: warning: `a400' might be used uninitialized in this function nfm-stalin.c:72885: warning: `a401' might be used uninitialized in this function nfm-stalin.c:72886: warning: `a402' might be used uninitialized in this function nfm-stalin.c:72887: warning: `a403' might be used uninitialized in this function nfm-stalin.c:72888: warning: `a404' might be used uninitialized in this function nfm-stalin.c:72889: warning: `a405' might be used uninitialized in this function nfm-stalin.c:72890: warning: `a406' might be used uninitialized in this function nfm-stalin.c:72891: warning: `a407' might be used uninitialized in this function nfm-stalin.c:72892: warning: `a408' might be used uninitialized in this function nfm-stalin.c:72893: warning: `a409' might be used uninitialized in this function nfm-stalin.c:72894: warning: `a410' might be used uninitialized in this function nfm-stalin.c:72895: warning: `a411' might be used uninitialized in this function nfm-stalin.c:72896: warning: `a412' might be used uninitialized in this function nfm-stalin.c:72897: warning: `a413' might be used uninitialized in this function nfm-stalin.c:72898: warning: `a414' might be used uninitialized in this function nfm-stalin.c:72899: warning: `a415' might be used uninitialized in this function nfm-stalin.c:72900: warning: `a416' might be used uninitialized in this function nfm-stalin.c:72901: warning: `a417' might be used uninitialized in this function nfm-stalin.c:72902: warning: `a418' might be used uninitialized in this function nfm-stalin.c:72903: warning: `a419' might be used uninitialized in this function nfm-stalin.c:72904: warning: `a420' might be used uninitialized in this function nfm-stalin.c:72905: warning: `a421' might be used uninitialized in this function nfm-stalin.c:72906: warning: `a422' might be used uninitialized in this function nfm-stalin.c:72907: warning: `a423' might be used uninitialized in this function nfm-stalin.c:72908: warning: `a424' might be used uninitialized in this function nfm-stalin.c:72909: warning: `a425' might be used uninitialized in this function nfm-stalin.c:72910: warning: `a426' might be used uninitialized in this function nfm-stalin.c:72911: warning: `a427' might be used uninitialized in this function nfm-stalin.c:72912: warning: `a428' might be used uninitialized in this function nfm-stalin.c:72913: warning: `a429' might be used uninitialized in this function nfm-stalin.c:72914: warning: `a430' might be used uninitialized in this function nfm-stalin.c:72915: warning: `a431' might be used uninitialized in this function nfm-stalin.c:72916: warning: `a432' might be used uninitialized in this function nfm-stalin.c:72917: warning: `a433' might be used uninitialized in this function nfm-stalin.c:72918: warning: `a434' might be used uninitialized in this function nfm-stalin.c:72919: warning: `a435' might be used uninitialized in this function nfm-stalin.c:73133: warning: `a649' might be used uninitialized in this function nfm-stalin.c:73134: warning: `a650' might be used uninitialized in this function nfm-stalin.c:73135: warning: `a651' might be used uninitialized in this function nfm-stalin.c:73136: warning: `a652' might be used uninitialized in this function nfm-stalin.c:73137: warning: `a653' might be used uninitialized in this function nfm-stalin.c:73138: warning: `a654' might be used uninitialized in this function nfm-stalin.c:73139: warning: `a655' might be used uninitialized in this function nfm-stalin.c:73140: warning: `a656' might be used uninitialized in this function nfm-stalin.c:73141: warning: `a657' might be used uninitialized in this function nfm-stalin.c:73142: warning: `a658' might be used uninitialized in this function nfm-stalin.c:73143: warning: `a659' might be used uninitialized in this function nfm-stalin.c:73144: warning: `a660' might be used uninitialized in this function nfm-stalin.c:73145: warning: `a661' might be used uninitialized in this function nfm-stalin.c:73146: warning: `a662' might be used uninitialized in this function nfm-stalin.c:73147: warning: `a663' might be used uninitialized in this function nfm-stalin.c:73148: warning: `a664' might be used uninitialized in this function nfm-stalin.c:73149: warning: `a665' might be used uninitialized in this function nfm-stalin.c:73150: warning: `a666' might be used uninitialized in this function nfm-stalin.c:73151: warning: `a667' might be used uninitialized in this function nfm-stalin.c:73152: warning: `a668' might be used uninitialized in this function nfm-stalin.c:73153: warning: `a669' might be used uninitialized in this function nfm-stalin.c:73154: warning: `a670' might be used uninitialized in this function nfm-stalin.c:73155: warning: `a671' might be used uninitialized in this function nfm-stalin.c:73156: warning: `a672' might be used uninitialized in this function nfm-stalin.c:73157: warning: `a673' might be used uninitialized in this function nfm-stalin.c:73158: warning: `a674' might be used uninitialized in this function nfm-stalin.c:73159: warning: `a675' might be used uninitialized in this function nfm-stalin.c:73160: warning: `a676' might be used uninitialized in this function nfm-stalin.c:73161: warning: `a677' might be used uninitialized in this function nfm-stalin.c:73162: warning: `a678' might be used uninitialized in this function nfm-stalin.c:73163: warning: `a679' might be used uninitialized in this function nfm-stalin.c:73164: warning: `a680' might be used uninitialized in this function nfm-stalin.c:73165: warning: `a681' might be used uninitialized in this function nfm-stalin.c:73166: warning: `a682' might be used uninitialized in this function nfm-stalin.c:73167: warning: `a683' might be used uninitialized in this function nfm-stalin.c:73168: warning: `a684' might be used uninitialized in this function nfm-stalin.c:73169: warning: `a685' might be used uninitialized in this function nfm-stalin.c:73170: warning: `a686' might be used uninitialized in this function nfm-stalin.c:73171: warning: `a687' might be used uninitialized in this function nfm-stalin.c:73172: warning: `a688' might be used uninitialized in this function nfm-stalin.c:73173: warning: `a689' might be used uninitialized in this function nfm-stalin.c:73174: warning: `a690' might be used uninitialized in this function nfm-stalin.c:73175: warning: `a691' might be used uninitialized in this function nfm-stalin.c:73176: warning: `a692' might be used uninitialized in this function nfm-stalin.c:73177: warning: `a693' might be used uninitialized in this function nfm-stalin.c:73178: warning: `a694' might be used uninitialized in this function nfm-stalin.c:73179: warning: `a695' might be used uninitialized in this function nfm-stalin.c:73180: warning: `a696' might be used uninitialized in this function nfm-stalin.c:73181: warning: `a697' might be used uninitialized in this function nfm-stalin.c:73182: warning: `a698' might be used uninitialized in this function nfm-stalin.c:73183: warning: `a699' might be used uninitialized in this function nfm-stalin.c:73184: warning: `a700' might be used uninitialized in this function nfm-stalin.c:73185: warning: `a701' might be used uninitialized in this function nfm-stalin.c:73186: warning: `a702' might be used uninitialized in this function nfm-stalin.c:73187: warning: `a703' might be used uninitialized in this function nfm-stalin.c:73188: warning: `a704' might be used uninitialized in this function nfm-stalin.c:73189: warning: `a705' might be used uninitialized in this function nfm-stalin.c:73190: warning: `a706' might be used uninitialized in this function nfm-stalin.c:73191: warning: `a707' might be used uninitialized in this function nfm-stalin.c:73192: warning: `a708' might be used uninitialized in this function nfm-stalin.c:73196: warning: `a712' might be used uninitialized in this function nfm-stalin.c:73198: warning: `a714' might be used uninitialized in this function nfm-stalin.c:73199: warning: `a715' might be used uninitialized in this function nfm-stalin.c:73201: warning: `a2078' might be used uninitialized in this function nfm-stalin.c:73202: warning: `a2079' might be used uninitialized in this function nfm-stalin.c:73206: warning: `a2083' might be used uninitialized in this function nfm-stalin.c:73207: warning: `a2084' might be used uninitialized in this function nfm-stalin.c:73208: warning: `a2085' might be used uninitialized in this function nfm-stalin.c:73209: warning: `a2086' might be used uninitialized in this function nfm-stalin.c:73210: warning: `a2087' might be used uninitialized in this function nfm-stalin.c:73211: warning: `a2088' might be used uninitialized in this function nfm-stalin.c:73212: warning: `a2089' might be used uninitialized in this function nfm-stalin.c:73213: warning: `a2090' might be used uninitialized in this function nfm-stalin.c:73214: warning: `a2091' might be used uninitialized in this function nfm-stalin.c:73215: warning: `a2092' might be used uninitialized in this function nfm-stalin.c:73216: warning: `a2093' might be used uninitialized in this function nfm-stalin.c:73217: warning: `a2094' might be used uninitialized in this function nfm-stalin.c:73218: warning: `a2095' might be used uninitialized in this function nfm-stalin.c:73219: warning: `a2096' might be used uninitialized in this function nfm-stalin.c:73220: warning: `a2097' might be used uninitialized in this function nfm-stalin.c:73221: warning: `a2098' might be used uninitialized in this function nfm-stalin.c:73222: warning: `a2099' might be used uninitialized in this function nfm-stalin.c:73223: warning: `a2100' might be used uninitialized in this function nfm-stalin.c:73224: warning: `a2101' might be used uninitialized in this function nfm-stalin.c:73225: warning: `a2102' might be used uninitialized in this function nfm-stalin.c:73226: warning: `a2103' might be used uninitialized in this function nfm-stalin.c:73227: warning: `a2104' might be used uninitialized in this function nfm-stalin.c:73228: warning: `a2105' might be used uninitialized in this function nfm-stalin.c:73229: warning: `a2106' might be used uninitialized in this function nfm-stalin.c:73230: warning: `a2107' might be used uninitialized in this function nfm-stalin.c:73231: warning: `a2108' might be used uninitialized in this function nfm-stalin.c:73232: warning: `a2109' might be used uninitialized in this function nfm-stalin.c:73233: warning: `a2110' might be used uninitialized in this function nfm-stalin.c:73234: warning: `a2111' might be used uninitialized in this function nfm-stalin.c:73235: warning: `a2112' might be used uninitialized in this function nfm-stalin.c:73236: warning: `a2113' might be used uninitialized in this function nfm-stalin.c:73237: warning: `a2114' might be used uninitialized in this function nfm-stalin.c:73238: warning: `a2115' might be used uninitialized in this function nfm-stalin.c:73239: warning: `a2116' might be used uninitialized in this function nfm-stalin.c:73243: warning: `t10384' might be used uninitialized in this function nfm-stalin.c:73244: warning: `t10385' might be used uninitialized in this function nfm-stalin.c:73245: warning: `t10386' might be used uninitialized in this function nfm-stalin.c:73246: warning: `t10387' might be used uninitialized in this function nfm-stalin.c:73247: warning: `t10388' might be used uninitialized in this function nfm-stalin.c:73248: warning: `t10389' might be used uninitialized in this function nfm-stalin.c:73249: warning: `t10390' might be used uninitialized in this function nfm-stalin.c:73250: warning: `t10391' might be used uninitialized in this function nfm-stalin.c:73253: warning: `t10394' might be used uninitialized in this function nfm-stalin.c:73255: warning: `t10396' might be used uninitialized in this function nfm-stalin.c:73256: warning: `t10397' might be used uninitialized in this function nfm-stalin.c:73257: warning: `t10398' might be used uninitialized in this function nfm-stalin.c:73260: warning: `t10401' might be used uninitialized in this function nfm-stalin.c:73261: warning: `t10402' might be used uninitialized in this function nfm-stalin.c:73262: warning: `t10403' might be used uninitialized in this function nfm-stalin.c:73263: warning: `t10404' might be used uninitialized in this function nfm-stalin.c:73264: warning: `t10405' might be used uninitialized in this function nfm-stalin.c:73265: warning: `t10406' might be used uninitialized in this function nfm-stalin.c:73268: warning: `t10409' might be used uninitialized in this function nfm-stalin.c:73269: warning: `t10410' might be used uninitialized in this function nfm-stalin.c:73272: warning: `t10413' might be used uninitialized in this function nfm-stalin.c:73273: warning: `t10414' might be used uninitialized in this function nfm-stalin.c:73274: warning: `t10415' might be used uninitialized in this function nfm-stalin.c:73275: warning: `t10416' might be used uninitialized in this function nfm-stalin.c:73276: warning: `t10417' might be used uninitialized in this function nfm-stalin.c:73277: warning: `t10418' might be used uninitialized in this function nfm-stalin.c:73278: warning: `t10419' might be used uninitialized in this function nfm-stalin.c:73279: warning: `t10420' might be used uninitialized in this function nfm-stalin.c:73280: warning: `t10421' might be used uninitialized in this function nfm-stalin.c:73281: warning: `t10422' might be used uninitialized in this function nfm-stalin.c:73282: warning: `t10423' might be used uninitialized in this function nfm-stalin.c:73283: warning: `t10424' might be used uninitialized in this function nfm-stalin.c:73284: warning: `t10425' might be used uninitialized in this function nfm-stalin.c:73285: warning: `t10426' might be used uninitialized in this function nfm-stalin.c:73286: warning: `t10427' might be used uninitialized in this function nfm-stalin.c:73287: warning: `t10428' might be used uninitialized in this function nfm-stalin.c:73288: warning: `t10429' might be used uninitialized in this function nfm-stalin.c:73289: warning: `t10430' might be used uninitialized in this function nfm-stalin.c:73290: warning: `t10431' might be used uninitialized in this function nfm-stalin.c:73291: warning: `t10432' might be used uninitialized in this function nfm-stalin.c:73292: warning: `t10433' might be used uninitialized in this function nfm-stalin.c:73293: warning: `t10434' might be used uninitialized in this function nfm-stalin.c:73294: warning: `t10435' might be used uninitialized in this function nfm-stalin.c:73295: warning: `t10436' might be used uninitialized in this function nfm-stalin.c:73296: warning: `t10437' might be used uninitialized in this function nfm-stalin.c:73298: warning: `t10439' might be used uninitialized in this function nfm-stalin.c:73299: warning: `t10440' might be used uninitialized in this function nfm-stalin.c:73300: warning: `t10441' might be used uninitialized in this function nfm-stalin.c:73301: warning: `t10442' might be used uninitialized in this function nfm-stalin.c:73302: warning: `t10443' might be used uninitialized in this function nfm-stalin.c:73303: warning: `t10444' might be used uninitialized in this function nfm-stalin.c:73304: warning: `t10445' might be used uninitialized in this function nfm-stalin.c:73305: warning: `t10446' might be used uninitialized in this function nfm-stalin.c:73306: warning: `t10447' might be used uninitialized in this function nfm-stalin.c:73307: warning: `t10448' might be used uninitialized in this function nfm-stalin.c:73309: warning: `t10450' might be used uninitialized in this function nfm-stalin.c:73310: warning: `t10451' might be used uninitialized in this function nfm-stalin.c:73311: warning: `t10452' might be used uninitialized in this function nfm-stalin.c:73312: warning: `t10453' might be used uninitialized in this function nfm-stalin.c:73313: warning: `t10454' might be used uninitialized in this function nfm-stalin.c:73314: warning: `t10455' might be used uninitialized in this function nfm-stalin.c:73315: warning: `t10456' might be used uninitialized in this function nfm-stalin.c:73316: warning: `t10457' might be used uninitialized in this function nfm-stalin.c:73317: warning: `t10458' might be used uninitialized in this function nfm-stalin.c:73318: warning: `t10459' might be used uninitialized in this function nfm-stalin.c:73319: warning: `t10460' might be used uninitialized in this function nfm-stalin.c:73320: warning: `t10461' might be used uninitialized in this function nfm-stalin.c:73321: warning: `t10462' might be used uninitialized in this function nfm-stalin.c:73322: warning: `t10463' might be used uninitialized in this function nfm-stalin.c:73323: warning: `t10464' might be used uninitialized in this function nfm-stalin.c:73324: warning: `t10465' might be used uninitialized in this function nfm-stalin.c:73325: warning: `t10466' might be used uninitialized in this function nfm-stalin.c:73326: warning: `t10467' might be used uninitialized in this function nfm-stalin.c:73327: warning: `t10468' might be used uninitialized in this function nfm-stalin.c:73328: warning: `t10469' might be used uninitialized in this function nfm-stalin.c:73329: warning: `t10470' might be used uninitialized in this function nfm-stalin.c:73330: warning: `t10471' might be used uninitialized in this function nfm-stalin.c:73331: warning: `t10472' might be used uninitialized in this function nfm-stalin.c:73332: warning: `t10473' might be used uninitialized in this function nfm-stalin.c:73333: warning: `t10474' might be used uninitialized in this function nfm-stalin.c:73334: warning: `t10475' might be used uninitialized in this function nfm-stalin.c:73335: warning: `t10476' might be used uninitialized in this function nfm-stalin.c:73336: warning: `t10477' might be used uninitialized in this function nfm-stalin.c:73337: warning: `t10478' might be used uninitialized in this function nfm-stalin.c:73338: warning: `t10479' might be used uninitialized in this function nfm-stalin.c:73339: warning: `t10480' might be used uninitialized in this function nfm-stalin.c:73340: warning: `t10481' might be used uninitialized in this function nfm-stalin.c:73341: warning: `t10482' might be used uninitialized in this function nfm-stalin.c:73342: warning: `t10483' might be used uninitialized in this function nfm-stalin.c:73343: warning: `t10484' might be used uninitialized in this function nfm-stalin.c:73344: warning: `t10485' might be used uninitialized in this function nfm-stalin.c:73345: warning: `t10486' might be used uninitialized in this function nfm-stalin.c:73346: warning: `t10487' might be used uninitialized in this function nfm-stalin.c:73347: warning: `t10488' might be used uninitialized in this function nfm-stalin.c:73348: warning: `t10489' might be used uninitialized in this function nfm-stalin.c:73349: warning: `t10490' might be used uninitialized in this function nfm-stalin.c:73350: warning: `t10491' might be used uninitialized in this function nfm-stalin.c:73351: warning: `t10492' might be used uninitialized in this function nfm-stalin.c:73352: warning: `t10493' might be used uninitialized in this function nfm-stalin.c:73353: warning: `t10494' might be used uninitialized in this function nfm-stalin.c:73354: warning: `t10495' might be used uninitialized in this function nfm-stalin.c:73355: warning: `t10496' might be used uninitialized in this function nfm-stalin.c:73356: warning: `t10497' might be used uninitialized in this function nfm-stalin.c:73357: warning: `t10498' might be used uninitialized in this function nfm-stalin.c:73358: warning: `t10499' might be used uninitialized in this function nfm-stalin.c:73359: warning: `t10500' might be used uninitialized in this function nfm-stalin.c:73360: warning: `t10501' might be used uninitialized in this function nfm-stalin.c:73361: warning: `t10502' might be used uninitialized in this function nfm-stalin.c:73362: warning: `t10503' might be used uninitialized in this function nfm-stalin.c:73364: warning: `t10505' might be used uninitialized in this function nfm-stalin.c:73365: warning: `t10506' might be used uninitialized in this function nfm-stalin.c:73366: warning: `t10507' might be used uninitialized in this function nfm-stalin.c:73367: warning: `t10508' might be used uninitialized in this function nfm-stalin.c:73368: warning: `t10509' might be used uninitialized in this function nfm-stalin.c:73369: warning: `t10510' might be used uninitialized in this function nfm-stalin.c:73370: warning: `t10511' might be used uninitialized in this function nfm-stalin.c:73371: warning: `t10512' might be used uninitialized in this function nfm-stalin.c:73372: warning: `t10513' might be used uninitialized in this function nfm-stalin.c:73373: warning: `t10514' might be used uninitialized in this function nfm-stalin.c:73374: warning: `t10515' might be used uninitialized in this function nfm-stalin.c:73375: warning: `t10516' might be used uninitialized in this function nfm-stalin.c:73376: warning: `t10517' might be used uninitialized in this function nfm-stalin.c:73377: warning: `t10518' might be used uninitialized in this function nfm-stalin.c:73378: warning: `t10519' might be used uninitialized in this function nfm-stalin.c:73379: warning: `t10520' might be used uninitialized in this function nfm-stalin.c:73380: warning: `t10521' might be used uninitialized in this function nfm-stalin.c:73381: warning: `t10522' might be used uninitialized in this function nfm-stalin.c:73382: warning: `t10523' might be used uninitialized in this function nfm-stalin.c:73383: warning: `t10524' might be used uninitialized in this function nfm-stalin.c:73384: warning: `t10525' might be used uninitialized in this function nfm-stalin.c:73385: warning: `t10526' might be used uninitialized in this function nfm-stalin.c:73386: warning: `t10527' might be used uninitialized in this function nfm-stalin.c:73387: warning: `t10528' might be used uninitialized in this function nfm-stalin.c:73388: warning: `t10529' might be used uninitialized in this function nfm-stalin.c:73389: warning: `t10530' might be used uninitialized in this function nfm-stalin.c:73390: warning: `t10531' might be used uninitialized in this function nfm-stalin.c:73391: warning: `t10532' might be used uninitialized in this function nfm-stalin.c:73392: warning: `t10533' might be used uninitialized in this function nfm-stalin.c:73393: warning: `t10534' might be used uninitialized in this function nfm-stalin.c:73394: warning: `t10535' might be used uninitialized in this function nfm-stalin.c:73395: warning: `t10536' might be used uninitialized in this function nfm-stalin.c:73396: warning: `t10537' might be used uninitialized in this function nfm-stalin.c:73397: warning: `t10538' might be used uninitialized in this function nfm-stalin.c:73398: warning: `t10539' might be used uninitialized in this function nfm-stalin.c:73399: warning: `t10540' might be used uninitialized in this function nfm-stalin.c:73400: warning: `t10541' might be used uninitialized in this function nfm-stalin.c:73401: warning: `t10542' might be used uninitialized in this function nfm-stalin.c:73402: warning: `t10543' might be used uninitialized in this function nfm-stalin.c:73403: warning: `t10544' might be used uninitialized in this function nfm-stalin.c:73404: warning: `t10545' might be used uninitialized in this function nfm-stalin.c:73405: warning: `t10546' might be used uninitialized in this function nfm-stalin.c:73406: warning: `t10547' might be used uninitialized in this function nfm-stalin.c:73407: warning: `t10548' might be used uninitialized in this function nfm-stalin.c:73408: warning: `t10549' might be used uninitialized in this function nfm-stalin.c:73409: warning: `t10550' might be used uninitialized in this function nfm-stalin.c:73410: warning: `t10551' might be used uninitialized in this function nfm-stalin.c:73411: warning: `t10552' might be used uninitialized in this function nfm-stalin.c:73412: warning: `t10553' might be used uninitialized in this function nfm-stalin.c:73413: warning: `t10554' might be used uninitialized in this function nfm-stalin.c:73414: warning: `t10555' might be used uninitialized in this function nfm-stalin.c:73415: warning: `t10556' might be used uninitialized in this function nfm-stalin.c:73416: warning: `t10557' might be used uninitialized in this function nfm-stalin.c:73417: warning: `t10558' might be used uninitialized in this function nfm-stalin.c:73418: warning: `t10559' might be used uninitialized in this function nfm-stalin.c:73419: warning: `t10560' might be used uninitialized in this function nfm-stalin.c:73420: warning: `t10561' might be used uninitialized in this function nfm-stalin.c:73421: warning: `t10562' might be used uninitialized in this function nfm-stalin.c:73422: warning: `t10563' might be used uninitialized in this function nfm-stalin.c:73423: warning: `t10564' might be used uninitialized in this function nfm-stalin.c:73424: warning: `t10565' might be used uninitialized in this function nfm-stalin.c:73425: warning: `t10566' might be used uninitialized in this function nfm-stalin.c:73426: warning: `t10567' might be used uninitialized in this function nfm-stalin.c:73427: warning: `t10568' might be used uninitialized in this function nfm-stalin.c:73428: warning: `t10569' might be used uninitialized in this function nfm-stalin.c:73429: warning: `t10570' might be used uninitialized in this function nfm-stalin.c:73430: warning: `t10571' might be used uninitialized in this function nfm-stalin.c:73431: warning: `t10572' might be used uninitialized in this function nfm-stalin.c:73432: warning: `t10573' might be used uninitialized in this function nfm-stalin.c:73433: warning: `t10574' might be used uninitialized in this function nfm-stalin.c:73434: warning: `t10575' might be used uninitialized in this function nfm-stalin.c:73435: warning: `t10576' might be used uninitialized in this function nfm-stalin.c:73436: warning: `t10577' might be used uninitialized in this function nfm-stalin.c:73437: warning: `t10578' might be used uninitialized in this function nfm-stalin.c:73438: warning: `t10579' might be used uninitialized in this function nfm-stalin.c:73439: warning: `t10580' might be used uninitialized in this function nfm-stalin.c:73440: warning: `t10581' might be used uninitialized in this function nfm-stalin.c:73441: warning: `t10582' might be used uninitialized in this function nfm-stalin.c:73442: warning: `t10583' might be used uninitialized in this function nfm-stalin.c:73443: warning: `t10584' might be used uninitialized in this function nfm-stalin.c:73444: warning: `t10585' might be used uninitialized in this function nfm-stalin.c:73445: warning: `t10586' might be used uninitialized in this function nfm-stalin.c:73446: warning: `t10587' might be used uninitialized in this function nfm-stalin.c:73447: warning: `t10588' might be used uninitialized in this function nfm-stalin.c:73448: warning: `t10589' might be used uninitialized in this function nfm-stalin.c:73449: warning: `t10590' might be used uninitialized in this function nfm-stalin.c:73450: warning: `t10591' might be used uninitialized in this function nfm-stalin.c:73451: warning: `t10592' might be used uninitialized in this function nfm-stalin.c:73452: warning: `t10593' might be used uninitialized in this function nfm-stalin.c:73453: warning: `t10594' might be used uninitialized in this function nfm-stalin.c:73454: warning: `t10595' might be used uninitialized in this function nfm-stalin.c:73455: warning: `t10596' might be used uninitialized in this function 591.24user 3.92system 11:33.87elapsed 85%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (38835major+1548855minor)pagefaults 0swaps compile integ (STATIC-COUNTS 2104 2104 2104 2104 0 0 0 2104 2045 1092 38 100 7 24 1.161785216178522 3938 3938 455 245) integ-stalin.c: In function `f1350': integ-stalin.c:1340: warning: `a1801' might be used uninitialized in this function integ-stalin.c:1344: warning: `a1805' might be used uninitialized in this function integ-stalin.c:1346: warning: `a1807' might be used uninitialized in this function integ-stalin.c:1347: warning: `a1808' might be used uninitialized in this function integ-stalin.c:1348: warning: `a1809' might be used uninitialized in this function integ-stalin.c:1350: warning: `a1811' might be used uninitialized in this function integ-stalin.c:1354: warning: `a1815' might be used uninitialized in this function integ-stalin.c:1356: warning: `a1817' might be used uninitialized in this function integ-stalin.c:1357: warning: `a1818' might be used uninitialized in this function integ-stalin.c:1360: warning: `a1824' might be used uninitialized in this function integ-stalin.c:1361: warning: `a1825' might be used uninitialized in this function integ-stalin.c:1362: warning: `a1826' might be used uninitialized in this function integ-stalin.c:1363: warning: `a1827' might be used uninitialized in this function integ-stalin.c:1365: warning: `a1829' might be used uninitialized in this function integ-stalin.c:1369: warning: `a1833' might be used uninitialized in this function integ-stalin.c: In function `f1312': integ-stalin.c:2409: warning: `a1795' might be used uninitialized in this function integ-stalin.c:2411: warning: `a1797' might be used uninitialized in this function integ-stalin.c: In function `f0': integ-stalin.c:2718: warning: `a1' might be used uninitialized in this function integ-stalin.c:2719: warning: `a2' might be used uninitialized in this function integ-stalin.c:2720: warning: `a3' might be used uninitialized in this function integ-stalin.c:2721: warning: `a4' might be used uninitialized in this function integ-stalin.c:2722: warning: `a5' might be used uninitialized in this function integ-stalin.c:2723: warning: `a6' might be used uninitialized in this function integ-stalin.c:2724: warning: `a7' might be used uninitialized in this function integ-stalin.c:2725: warning: `a8' might be used uninitialized in this function integ-stalin.c:2726: warning: `a9' might be used uninitialized in this function integ-stalin.c:2727: warning: `a10' might be used uninitialized in this function integ-stalin.c:2728: warning: `a11' might be used uninitialized in this function integ-stalin.c:2729: warning: `a12' might be used uninitialized in this function integ-stalin.c:2730: warning: `a13' might be used uninitialized in this function integ-stalin.c:2731: warning: `a14' might be used uninitialized in this function integ-stalin.c:2732: warning: `a15' might be used uninitialized in this function integ-stalin.c:2733: warning: `a16' might be used uninitialized in this function integ-stalin.c:2734: warning: `a17' might be used uninitialized in this function integ-stalin.c:2735: warning: `a18' might be used uninitialized in this function integ-stalin.c:2736: warning: `a19' might be used uninitialized in this function integ-stalin.c:2737: warning: `a20' might be used uninitialized in this function integ-stalin.c:2738: warning: `a21' might be used uninitialized in this function integ-stalin.c:2739: warning: `a22' might be used uninitialized in this function integ-stalin.c:2740: warning: `a23' might be used uninitialized in this function integ-stalin.c:2741: warning: `a24' might be used uninitialized in this function integ-stalin.c:2742: warning: `a25' might be used uninitialized in this function integ-stalin.c:2743: warning: `a26' might be used uninitialized in this function integ-stalin.c:2744: warning: `a27' might be used uninitialized in this function integ-stalin.c:2745: warning: `a28' might be used uninitialized in this function integ-stalin.c:2746: warning: `a29' might be used uninitialized in this function integ-stalin.c:2747: warning: `a30' might be used uninitialized in this function integ-stalin.c:2748: warning: `a31' might be used uninitialized in this function integ-stalin.c:2749: warning: `a32' might be used uninitialized in this function integ-stalin.c:2750: warning: `a33' might be used uninitialized in this function integ-stalin.c:2751: warning: `a34' might be used uninitialized in this function integ-stalin.c:2752: warning: `a35' might be used uninitialized in this function integ-stalin.c:2753: warning: `a36' might be used uninitialized in this function integ-stalin.c:2754: warning: `a37' might be used uninitialized in this function integ-stalin.c:2755: warning: `a38' might be used uninitialized in this function integ-stalin.c:2756: warning: `a39' might be used uninitialized in this function integ-stalin.c:2757: warning: `a40' might be used uninitialized in this function integ-stalin.c:2758: warning: `a41' might be used uninitialized in this function integ-stalin.c:2759: warning: `a42' might be used uninitialized in this function integ-stalin.c:2760: warning: `a43' might be used uninitialized in this function integ-stalin.c:2761: warning: `a44' might be used uninitialized in this function integ-stalin.c:2762: warning: `a45' might be used uninitialized in this function integ-stalin.c:2763: warning: `a46' might be used uninitialized in this function integ-stalin.c:2764: warning: `a47' might be used uninitialized in this function integ-stalin.c:2765: warning: `a48' might be used uninitialized in this function integ-stalin.c:2766: warning: `a49' might be used uninitialized in this function integ-stalin.c:2767: warning: `a50' might be used uninitialized in this function integ-stalin.c:2768: warning: `a51' might be used uninitialized in this function integ-stalin.c:2769: warning: `a52' might be used uninitialized in this function integ-stalin.c:2770: warning: `a53' might be used uninitialized in this function integ-stalin.c:2771: warning: `a54' might be used uninitialized in this function integ-stalin.c:2772: warning: `a55' might be used uninitialized in this function integ-stalin.c:2773: warning: `a56' might be used uninitialized in this function integ-stalin.c:2774: warning: `a57' might be used uninitialized in this function integ-stalin.c:2775: warning: `a58' might be used uninitialized in this function integ-stalin.c:2776: warning: `a59' might be used uninitialized in this function integ-stalin.c:2777: warning: `a60' might be used uninitialized in this function integ-stalin.c:2778: warning: `a61' might be used uninitialized in this function integ-stalin.c:2779: warning: `a62' might be used uninitialized in this function integ-stalin.c:2780: warning: `a63' might be used uninitialized in this function integ-stalin.c:2781: warning: `a64' might be used uninitialized in this function integ-stalin.c:2782: warning: `a65' might be used uninitialized in this function integ-stalin.c:2783: warning: `a66' might be used uninitialized in this function integ-stalin.c:2784: warning: `a67' might be used uninitialized in this function integ-stalin.c:2785: warning: `a68' might be used uninitialized in this function integ-stalin.c:2786: warning: `a69' might be used uninitialized in this function integ-stalin.c:2787: warning: `a70' might be used uninitialized in this function integ-stalin.c:2788: warning: `a71' might be used uninitialized in this function integ-stalin.c:2789: warning: `a72' might be used uninitialized in this function integ-stalin.c:2790: warning: `a73' might be used uninitialized in this function integ-stalin.c:2791: warning: `a74' might be used uninitialized in this function integ-stalin.c:2792: warning: `a75' might be used uninitialized in this function integ-stalin.c:2793: warning: `a76' might be used uninitialized in this function integ-stalin.c:2794: warning: `a77' might be used uninitialized in this function integ-stalin.c:2795: warning: `a78' might be used uninitialized in this function integ-stalin.c:2796: warning: `a79' might be used uninitialized in this function integ-stalin.c:2797: warning: `a80' might be used uninitialized in this function integ-stalin.c:2798: warning: `a81' might be used uninitialized in this function integ-stalin.c:2799: warning: `a82' might be used uninitialized in this function integ-stalin.c:2800: warning: `a83' might be used uninitialized in this function integ-stalin.c:2801: warning: `a84' might be used uninitialized in this function integ-stalin.c:2802: warning: `a85' might be used uninitialized in this function integ-stalin.c:2803: warning: `a86' might be used uninitialized in this function integ-stalin.c:2804: warning: `a87' might be used uninitialized in this function integ-stalin.c:2805: warning: `a88' might be used uninitialized in this function integ-stalin.c:2806: warning: `a89' might be used uninitialized in this function integ-stalin.c:2807: warning: `a90' might be used uninitialized in this function integ-stalin.c:2808: warning: `a91' might be used uninitialized in this function integ-stalin.c:2809: warning: `a92' might be used uninitialized in this function integ-stalin.c:2810: warning: `a93' might be used uninitialized in this function integ-stalin.c:2811: warning: `a94' might be used uninitialized in this function integ-stalin.c:2812: warning: `a95' might be used uninitialized in this function integ-stalin.c:2813: warning: `a96' might be used uninitialized in this function integ-stalin.c:2814: warning: `a97' might be used uninitialized in this function integ-stalin.c:2815: warning: `a98' might be used uninitialized in this function integ-stalin.c:2816: warning: `a99' might be used uninitialized in this function integ-stalin.c:2817: warning: `a100' might be used uninitialized in this function integ-stalin.c:2818: warning: `a101' might be used uninitialized in this function integ-stalin.c:2819: warning: `a102' might be used uninitialized in this function integ-stalin.c:2820: warning: `a103' might be used uninitialized in this function integ-stalin.c:2821: warning: `a104' might be used uninitialized in this function integ-stalin.c:2822: warning: `a105' might be used uninitialized in this function integ-stalin.c:2823: warning: `a106' might be used uninitialized in this function integ-stalin.c:2824: warning: `a107' might be used uninitialized in this function integ-stalin.c:2825: warning: `a108' might be used uninitialized in this function integ-stalin.c:2826: warning: `a109' might be used uninitialized in this function integ-stalin.c:2827: warning: `a110' might be used uninitialized in this function integ-stalin.c:2828: warning: `a111' might be used uninitialized in this function integ-stalin.c:2829: warning: `a112' might be used uninitialized in this function integ-stalin.c:2830: warning: `a113' might be used uninitialized in this function integ-stalin.c:2831: warning: `a114' might be used uninitialized in this function integ-stalin.c:2832: warning: `a115' might be used uninitialized in this function integ-stalin.c:2833: warning: `a116' might be used uninitialized in this function integ-stalin.c:2834: warning: `a117' might be used uninitialized in this function integ-stalin.c:2835: warning: `a118' might be used uninitialized in this function integ-stalin.c:2836: warning: `a119' might be used uninitialized in this function integ-stalin.c:2837: warning: `a120' might be used uninitialized in this function integ-stalin.c:2838: warning: `a121' might be used uninitialized in this function integ-stalin.c:2839: warning: `a122' might be used uninitialized in this function integ-stalin.c:2840: warning: `a123' might be used uninitialized in this function integ-stalin.c:2841: warning: `a124' might be used uninitialized in this function integ-stalin.c:2842: warning: `a125' might be used uninitialized in this function integ-stalin.c:2843: warning: `a126' might be used uninitialized in this function integ-stalin.c:2844: warning: `a127' might be used uninitialized in this function integ-stalin.c:2845: warning: `a128' might be used uninitialized in this function integ-stalin.c:2846: warning: `a129' might be used uninitialized in this function integ-stalin.c:2847: warning: `a130' might be used uninitialized in this function integ-stalin.c:2848: warning: `a131' might be used uninitialized in this function integ-stalin.c:2849: warning: `a132' might be used uninitialized in this function integ-stalin.c:2850: warning: `a133' might be used uninitialized in this function integ-stalin.c:2851: warning: `a134' might be used uninitialized in this function integ-stalin.c:2852: warning: `a135' might be used uninitialized in this function integ-stalin.c:2853: warning: `a136' might be used uninitialized in this function integ-stalin.c:2854: warning: `a137' might be used uninitialized in this function integ-stalin.c:2855: warning: `a138' might be used uninitialized in this function integ-stalin.c:2856: warning: `a139' might be used uninitialized in this function integ-stalin.c:2857: warning: `a140' might be used uninitialized in this function integ-stalin.c:2858: warning: `a141' might be used uninitialized in this function integ-stalin.c:2859: warning: `a142' might be used uninitialized in this function integ-stalin.c:2860: warning: `a143' might be used uninitialized in this function integ-stalin.c:2861: warning: `a144' might be used uninitialized in this function integ-stalin.c:2862: warning: `a145' might be used uninitialized in this function integ-stalin.c:2863: warning: `a146' might be used uninitialized in this function integ-stalin.c:2864: warning: `a147' might be used uninitialized in this function integ-stalin.c:2865: warning: `a148' might be used uninitialized in this function integ-stalin.c:2866: warning: `a149' might be used uninitialized in this function integ-stalin.c:2867: warning: `a150' might be used uninitialized in this function integ-stalin.c:2868: warning: `a151' might be used uninitialized in this function integ-stalin.c:2869: warning: `a152' might be used uninitialized in this function integ-stalin.c:2870: warning: `a153' might be used uninitialized in this function integ-stalin.c:2871: warning: `a154' might be used uninitialized in this function integ-stalin.c:2872: warning: `a155' might be used uninitialized in this function integ-stalin.c:2873: warning: `a156' might be used uninitialized in this function integ-stalin.c:2874: warning: `a157' might be used uninitialized in this function integ-stalin.c:2875: warning: `a158' might be used uninitialized in this function integ-stalin.c:2876: warning: `a159' might be used uninitialized in this function integ-stalin.c:2877: warning: `a160' might be used uninitialized in this function integ-stalin.c:2878: warning: `a161' might be used uninitialized in this function integ-stalin.c:2879: warning: `a162' might be used uninitialized in this function integ-stalin.c:2880: warning: `a163' might be used uninitialized in this function integ-stalin.c:2881: warning: `a164' might be used uninitialized in this function integ-stalin.c:2882: warning: `a165' might be used uninitialized in this function integ-stalin.c:2883: warning: `a166' might be used uninitialized in this function integ-stalin.c:2884: warning: `a167' might be used uninitialized in this function integ-stalin.c:2885: warning: `a168' might be used uninitialized in this function integ-stalin.c:2886: warning: `a169' might be used uninitialized in this function integ-stalin.c:2887: warning: `a170' might be used uninitialized in this function integ-stalin.c:2888: warning: `a171' might be used uninitialized in this function integ-stalin.c:2889: warning: `a172' might be used uninitialized in this function integ-stalin.c:2890: warning: `a173' might be used uninitialized in this function integ-stalin.c:2891: warning: `a174' might be used uninitialized in this function integ-stalin.c:2892: warning: `a175' might be used uninitialized in this function integ-stalin.c:2893: warning: `a176' might be used uninitialized in this function integ-stalin.c:2894: warning: `a177' might be used uninitialized in this function integ-stalin.c:2895: warning: `a178' might be used uninitialized in this function integ-stalin.c:2896: warning: `a179' might be used uninitialized in this function integ-stalin.c:2897: warning: `a180' might be used uninitialized in this function integ-stalin.c:2898: warning: `a181' might be used uninitialized in this function integ-stalin.c:2899: warning: `a182' might be used uninitialized in this function integ-stalin.c:2900: warning: `a183' might be used uninitialized in this function integ-stalin.c:2901: warning: `a184' might be used uninitialized in this function integ-stalin.c:2902: warning: `a185' might be used uninitialized in this function integ-stalin.c:2903: warning: `a186' might be used uninitialized in this function integ-stalin.c:2904: warning: `a187' might be used uninitialized in this function integ-stalin.c:2905: warning: `a188' might be used uninitialized in this function integ-stalin.c:2906: warning: `a189' might be used uninitialized in this function integ-stalin.c:2907: warning: `a190' might be used uninitialized in this function integ-stalin.c:2908: warning: `a191' might be used uninitialized in this function integ-stalin.c:2909: warning: `a192' might be used uninitialized in this function integ-stalin.c:2910: warning: `a193' might be used uninitialized in this function integ-stalin.c:2911: warning: `a194' might be used uninitialized in this function integ-stalin.c:2912: warning: `a195' might be used uninitialized in this function integ-stalin.c:2913: warning: `a196' might be used uninitialized in this function integ-stalin.c:2914: warning: `a197' might be used uninitialized in this function integ-stalin.c:2915: warning: `a198' might be used uninitialized in this function integ-stalin.c:2916: warning: `a199' might be used uninitialized in this function integ-stalin.c:2917: warning: `a200' might be used uninitialized in this function integ-stalin.c:2918: warning: `a201' might be used uninitialized in this function integ-stalin.c:2919: warning: `a202' might be used uninitialized in this function integ-stalin.c:2920: warning: `a203' might be used uninitialized in this function integ-stalin.c:2921: warning: `a204' might be used uninitialized in this function integ-stalin.c:2922: warning: `a205' might be used uninitialized in this function integ-stalin.c:2923: warning: `a206' might be used uninitialized in this function integ-stalin.c:2924: warning: `a207' might be used uninitialized in this function integ-stalin.c:2925: warning: `a208' might be used uninitialized in this function integ-stalin.c:2926: warning: `a209' might be used uninitialized in this function integ-stalin.c:2927: warning: `a210' might be used uninitialized in this function integ-stalin.c:2928: warning: `a211' might be used uninitialized in this function integ-stalin.c:2929: warning: `a212' might be used uninitialized in this function integ-stalin.c:2930: warning: `a213' might be used uninitialized in this function integ-stalin.c:2931: warning: `a214' might be used uninitialized in this function integ-stalin.c:2932: warning: `a215' might be used uninitialized in this function integ-stalin.c:2933: warning: `a216' might be used uninitialized in this function integ-stalin.c:2934: warning: `a217' might be used uninitialized in this function integ-stalin.c:2935: warning: `a218' might be used uninitialized in this function integ-stalin.c:2936: warning: `a219' might be used uninitialized in this function integ-stalin.c:2937: warning: `a220' might be used uninitialized in this function integ-stalin.c:2938: warning: `a221' might be used uninitialized in this function integ-stalin.c:2939: warning: `a222' might be used uninitialized in this function integ-stalin.c:2940: warning: `a223' might be used uninitialized in this function integ-stalin.c:2941: warning: `a224' might be used uninitialized in this function integ-stalin.c:2942: warning: `a225' might be used uninitialized in this function integ-stalin.c:2943: warning: `a226' might be used uninitialized in this function integ-stalin.c:2944: warning: `a227' might be used uninitialized in this function integ-stalin.c:2945: warning: `a228' might be used uninitialized in this function integ-stalin.c:2946: warning: `a229' might be used uninitialized in this function integ-stalin.c:2947: warning: `a230' might be used uninitialized in this function integ-stalin.c:2948: warning: `a231' might be used uninitialized in this function integ-stalin.c:2949: warning: `a232' might be used uninitialized in this function integ-stalin.c:2950: warning: `a233' might be used uninitialized in this function integ-stalin.c:2951: warning: `a234' might be used uninitialized in this function integ-stalin.c:2952: warning: `a235' might be used uninitialized in this function integ-stalin.c:2953: warning: `a236' might be used uninitialized in this function integ-stalin.c:2954: warning: `a237' might be used uninitialized in this function integ-stalin.c:2955: warning: `a238' might be used uninitialized in this function integ-stalin.c:2956: warning: `a239' might be used uninitialized in this function integ-stalin.c:2957: warning: `a240' might be used uninitialized in this function integ-stalin.c:2958: warning: `a241' might be used uninitialized in this function integ-stalin.c:2959: warning: `a242' might be used uninitialized in this function integ-stalin.c:2960: warning: `a243' might be used uninitialized in this function integ-stalin.c:2961: warning: `a244' might be used uninitialized in this function integ-stalin.c:2962: warning: `a245' might be used uninitialized in this function integ-stalin.c:2963: warning: `a246' might be used uninitialized in this function integ-stalin.c:2964: warning: `a247' might be used uninitialized in this function integ-stalin.c:2965: warning: `a248' might be used uninitialized in this function integ-stalin.c:2966: warning: `a249' might be used uninitialized in this function integ-stalin.c:2967: warning: `a250' might be used uninitialized in this function integ-stalin.c:2968: warning: `a251' might be used uninitialized in this function integ-stalin.c:2969: warning: `a252' might be used uninitialized in this function integ-stalin.c:2970: warning: `a253' might be used uninitialized in this function integ-stalin.c:2971: warning: `a254' might be used uninitialized in this function integ-stalin.c:2972: warning: `a255' might be used uninitialized in this function integ-stalin.c:2973: warning: `a256' might be used uninitialized in this function integ-stalin.c:2974: warning: `a257' might be used uninitialized in this function integ-stalin.c:2975: warning: `a258' might be used uninitialized in this function integ-stalin.c:2976: warning: `a259' might be used uninitialized in this function integ-stalin.c:2977: warning: `a260' might be used uninitialized in this function integ-stalin.c:2978: warning: `a261' might be used uninitialized in this function integ-stalin.c:2979: warning: `a262' might be used uninitialized in this function integ-stalin.c:2980: warning: `a263' might be used uninitialized in this function integ-stalin.c:2981: warning: `a264' might be used uninitialized in this function integ-stalin.c:2982: warning: `a265' might be used uninitialized in this function integ-stalin.c:2983: warning: `a266' might be used uninitialized in this function integ-stalin.c:2984: warning: `a267' might be used uninitialized in this function integ-stalin.c:2985: warning: `a268' might be used uninitialized in this function integ-stalin.c:2986: warning: `a269' might be used uninitialized in this function integ-stalin.c:2987: warning: `a270' might be used uninitialized in this function integ-stalin.c:2988: warning: `a271' might be used uninitialized in this function integ-stalin.c:2989: warning: `a272' might be used uninitialized in this function integ-stalin.c:2990: warning: `a273' might be used uninitialized in this function integ-stalin.c:2991: warning: `a274' might be used uninitialized in this function integ-stalin.c:2992: warning: `a275' might be used uninitialized in this function integ-stalin.c:2993: warning: `a276' might be used uninitialized in this function integ-stalin.c:2994: warning: `a277' might be used uninitialized in this function integ-stalin.c:2995: warning: `a278' might be used uninitialized in this function integ-stalin.c:2996: warning: `a279' might be used uninitialized in this function integ-stalin.c:2997: warning: `a280' might be used uninitialized in this function integ-stalin.c:2998: warning: `a281' might be used uninitialized in this function integ-stalin.c:2999: warning: `a282' might be used uninitialized in this function integ-stalin.c:3000: warning: `a283' might be used uninitialized in this function integ-stalin.c:3001: warning: `a284' might be used uninitialized in this function integ-stalin.c:3002: warning: `a285' might be used uninitialized in this function integ-stalin.c:3003: warning: `a286' might be used uninitialized in this function integ-stalin.c:3004: warning: `a287' might be used uninitialized in this function integ-stalin.c:3005: warning: `a288' might be used uninitialized in this function integ-stalin.c:3006: warning: `a289' might be used uninitialized in this function integ-stalin.c:3007: warning: `a290' might be used uninitialized in this function integ-stalin.c:3008: warning: `a291' might be used uninitialized in this function integ-stalin.c:3009: warning: `a292' might be used uninitialized in this function integ-stalin.c:3010: warning: `a293' might be used uninitialized in this function integ-stalin.c:3011: warning: `a294' might be used uninitialized in this function integ-stalin.c:3012: warning: `a295' might be used uninitialized in this function integ-stalin.c:3013: warning: `a296' might be used uninitialized in this function integ-stalin.c:3014: warning: `a297' might be used uninitialized in this function integ-stalin.c:3015: warning: `a298' might be used uninitialized in this function integ-stalin.c:3016: warning: `a299' might be used uninitialized in this function integ-stalin.c:3017: warning: `a300' might be used uninitialized in this function integ-stalin.c:3018: warning: `a301' might be used uninitialized in this function integ-stalin.c:3019: warning: `a302' might be used uninitialized in this function integ-stalin.c:3020: warning: `a303' might be used uninitialized in this function integ-stalin.c:3021: warning: `a304' might be used uninitialized in this function integ-stalin.c:3022: warning: `a305' might be used uninitialized in this function integ-stalin.c:3023: warning: `a306' might be used uninitialized in this function integ-stalin.c:3024: warning: `a307' might be used uninitialized in this function integ-stalin.c:3025: warning: `a308' might be used uninitialized in this function integ-stalin.c:3026: warning: `a309' might be used uninitialized in this function integ-stalin.c:3027: warning: `a310' might be used uninitialized in this function integ-stalin.c:3028: warning: `a311' might be used uninitialized in this function integ-stalin.c:3029: warning: `a312' might be used uninitialized in this function integ-stalin.c:3030: warning: `a313' might be used uninitialized in this function integ-stalin.c:3031: warning: `a314' might be used uninitialized in this function integ-stalin.c:3032: warning: `a315' might be used uninitialized in this function integ-stalin.c:3033: warning: `a316' might be used uninitialized in this function integ-stalin.c:3034: warning: `a317' might be used uninitialized in this function integ-stalin.c:3035: warning: `a318' might be used uninitialized in this function integ-stalin.c:3036: warning: `a319' might be used uninitialized in this function integ-stalin.c:3037: warning: `a320' might be used uninitialized in this function integ-stalin.c:3038: warning: `a321' might be used uninitialized in this function integ-stalin.c:3039: warning: `a322' might be used uninitialized in this function integ-stalin.c:3040: warning: `a323' might be used uninitialized in this function integ-stalin.c:3041: warning: `a324' might be used uninitialized in this function integ-stalin.c:3042: warning: `a325' might be used uninitialized in this function integ-stalin.c:3043: warning: `a326' might be used uninitialized in this function integ-stalin.c:3044: warning: `a327' might be used uninitialized in this function integ-stalin.c:3045: warning: `a328' might be used uninitialized in this function integ-stalin.c:3046: warning: `a329' might be used uninitialized in this function integ-stalin.c:3047: warning: `a330' might be used uninitialized in this function integ-stalin.c:3048: warning: `a331' might be used uninitialized in this function integ-stalin.c:3049: warning: `a332' might be used uninitialized in this function integ-stalin.c:3050: warning: `a333' might be used uninitialized in this function integ-stalin.c:3051: warning: `a334' might be used uninitialized in this function integ-stalin.c:3052: warning: `a335' might be used uninitialized in this function integ-stalin.c:3053: warning: `a336' might be used uninitialized in this function integ-stalin.c:3054: warning: `a337' might be used uninitialized in this function integ-stalin.c:3055: warning: `a338' might be used uninitialized in this function integ-stalin.c:3056: warning: `a339' might be used uninitialized in this function integ-stalin.c:3057: warning: `a340' might be used uninitialized in this function integ-stalin.c:3058: warning: `a341' might be used uninitialized in this function integ-stalin.c:3059: warning: `a342' might be used uninitialized in this function integ-stalin.c:3060: warning: `a343' might be used uninitialized in this function integ-stalin.c:3061: warning: `a344' might be used uninitialized in this function integ-stalin.c:3062: warning: `a345' might be used uninitialized in this function integ-stalin.c:3063: warning: `a346' might be used uninitialized in this function integ-stalin.c:3064: warning: `a347' might be used uninitialized in this function integ-stalin.c:3065: warning: `a348' might be used uninitialized in this function integ-stalin.c:3066: warning: `a349' might be used uninitialized in this function integ-stalin.c:3067: warning: `a350' might be used uninitialized in this function integ-stalin.c:3068: warning: `a351' might be used uninitialized in this function integ-stalin.c:3069: warning: `a352' might be used uninitialized in this function integ-stalin.c:3070: warning: `a353' might be used uninitialized in this function integ-stalin.c:3071: warning: `a354' might be used uninitialized in this function integ-stalin.c:3072: warning: `a355' might be used uninitialized in this function integ-stalin.c:3073: warning: `a356' might be used uninitialized in this function integ-stalin.c:3074: warning: `a357' might be used uninitialized in this function integ-stalin.c:3075: warning: `a358' might be used uninitialized in this function integ-stalin.c:3076: warning: `a359' might be used uninitialized in this function integ-stalin.c:3077: warning: `a360' might be used uninitialized in this function integ-stalin.c:3078: warning: `a361' might be used uninitialized in this function integ-stalin.c:3079: warning: `a362' might be used uninitialized in this function integ-stalin.c:3080: warning: `a363' might be used uninitialized in this function integ-stalin.c:3081: warning: `a364' might be used uninitialized in this function integ-stalin.c:3082: warning: `a365' might be used uninitialized in this function integ-stalin.c:3083: warning: `a366' might be used uninitialized in this function integ-stalin.c:3084: warning: `a367' might be used uninitialized in this function integ-stalin.c:3085: warning: `a368' might be used uninitialized in this function integ-stalin.c:3086: warning: `a369' might be used uninitialized in this function integ-stalin.c:3087: warning: `a370' might be used uninitialized in this function integ-stalin.c:3088: warning: `a371' might be used uninitialized in this function integ-stalin.c:3089: warning: `a372' might be used uninitialized in this function integ-stalin.c:3090: warning: `a373' might be used uninitialized in this function integ-stalin.c:3091: warning: `a374' might be used uninitialized in this function integ-stalin.c:3092: warning: `a375' might be used uninitialized in this function integ-stalin.c:3093: warning: `a376' might be used uninitialized in this function integ-stalin.c:3094: warning: `a377' might be used uninitialized in this function integ-stalin.c:3095: warning: `a378' might be used uninitialized in this function integ-stalin.c:3096: warning: `a379' might be used uninitialized in this function integ-stalin.c:3097: warning: `a380' might be used uninitialized in this function integ-stalin.c:3098: warning: `a381' might be used uninitialized in this function integ-stalin.c:3099: warning: `a382' might be used uninitialized in this function integ-stalin.c:3100: warning: `a383' might be used uninitialized in this function integ-stalin.c:3101: warning: `a384' might be used uninitialized in this function integ-stalin.c:3102: warning: `a385' might be used uninitialized in this function integ-stalin.c:3103: warning: `a386' might be used uninitialized in this function integ-stalin.c:3104: warning: `a387' might be used uninitialized in this function integ-stalin.c:3105: warning: `a388' might be used uninitialized in this function integ-stalin.c:3106: warning: `a389' might be used uninitialized in this function integ-stalin.c:3107: warning: `a390' might be used uninitialized in this function integ-stalin.c:3108: warning: `a391' might be used uninitialized in this function integ-stalin.c:3109: warning: `a392' might be used uninitialized in this function integ-stalin.c:3110: warning: `a393' might be used uninitialized in this function integ-stalin.c:3111: warning: `a394' might be used uninitialized in this function integ-stalin.c:3112: warning: `a395' might be used uninitialized in this function integ-stalin.c:3113: warning: `a396' might be used uninitialized in this function integ-stalin.c:3114: warning: `a397' might be used uninitialized in this function integ-stalin.c:3115: warning: `a398' might be used uninitialized in this function integ-stalin.c:3116: warning: `a399' might be used uninitialized in this function integ-stalin.c:3117: warning: `a400' might be used uninitialized in this function integ-stalin.c:3118: warning: `a401' might be used uninitialized in this function integ-stalin.c:3119: warning: `a402' might be used uninitialized in this function integ-stalin.c:3120: warning: `a403' might be used uninitialized in this function integ-stalin.c:3121: warning: `a404' might be used uninitialized in this function integ-stalin.c:3122: warning: `a405' might be used uninitialized in this function integ-stalin.c:3123: warning: `a406' might be used uninitialized in this function integ-stalin.c:3124: warning: `a407' might be used uninitialized in this function integ-stalin.c:3125: warning: `a408' might be used uninitialized in this function integ-stalin.c:3126: warning: `a409' might be used uninitialized in this function integ-stalin.c:3127: warning: `a410' might be used uninitialized in this function integ-stalin.c:3128: warning: `a411' might be used uninitialized in this function integ-stalin.c:3129: warning: `a412' might be used uninitialized in this function integ-stalin.c:3130: warning: `a413' might be used uninitialized in this function integ-stalin.c:3131: warning: `a414' might be used uninitialized in this function integ-stalin.c:3132: warning: `a415' might be used uninitialized in this function integ-stalin.c:3133: warning: `a416' might be used uninitialized in this function integ-stalin.c:3134: warning: `a417' might be used uninitialized in this function integ-stalin.c:3135: warning: `a418' might be used uninitialized in this function integ-stalin.c:3136: warning: `a419' might be used uninitialized in this function integ-stalin.c:3137: warning: `a420' might be used uninitialized in this function integ-stalin.c:3138: warning: `a421' might be used uninitialized in this function integ-stalin.c:3139: warning: `a422' might be used uninitialized in this function integ-stalin.c:3140: warning: `a423' might be used uninitialized in this function integ-stalin.c:3141: warning: `a424' might be used uninitialized in this function integ-stalin.c:3142: warning: `a425' might be used uninitialized in this function integ-stalin.c:3143: warning: `a426' might be used uninitialized in this function integ-stalin.c:3144: warning: `a427' might be used uninitialized in this function integ-stalin.c:3145: warning: `a428' might be used uninitialized in this function integ-stalin.c:3146: warning: `a429' might be used uninitialized in this function integ-stalin.c:3147: warning: `a430' might be used uninitialized in this function integ-stalin.c:3148: warning: `a431' might be used uninitialized in this function integ-stalin.c:3149: warning: `a432' might be used uninitialized in this function integ-stalin.c:3150: warning: `a433' might be used uninitialized in this function integ-stalin.c:3151: warning: `a434' might be used uninitialized in this function integ-stalin.c:3152: warning: `a435' might be used uninitialized in this function integ-stalin.c:3366: warning: `a649' might be used uninitialized in this function integ-stalin.c:3367: warning: `a650' might be used uninitialized in this function integ-stalin.c:3368: warning: `a651' might be used uninitialized in this function integ-stalin.c:3369: warning: `a652' might be used uninitialized in this function integ-stalin.c:3370: warning: `a653' might be used uninitialized in this function integ-stalin.c:3371: warning: `a654' might be used uninitialized in this function integ-stalin.c:3372: warning: `a655' might be used uninitialized in this function integ-stalin.c:3373: warning: `a656' might be used uninitialized in this function integ-stalin.c:3374: warning: `a657' might be used uninitialized in this function integ-stalin.c:3375: warning: `a658' might be used uninitialized in this function integ-stalin.c:3376: warning: `a659' might be used uninitialized in this function integ-stalin.c:3377: warning: `a660' might be used uninitialized in this function integ-stalin.c:3378: warning: `a661' might be used uninitialized in this function integ-stalin.c:3379: warning: `a662' might be used uninitialized in this function integ-stalin.c:3380: warning: `a663' might be used uninitialized in this function integ-stalin.c:3390: warning: `a681' might be used uninitialized in this function integ-stalin.c:3395: warning: `a686' might be used uninitialized in this function integ-stalin.c:3401: warning: `a692' might be used uninitialized in this function integ-stalin.c:3405: warning: `a887' might be used uninitialized in this function integ-stalin.c:3406: warning: `a1750' might be used uninitialized in this function integ-stalin.c:3407: warning: `a1751' might be used uninitialized in this function integ-stalin.c:3411: warning: `a1755' might be used uninitialized in this function integ-stalin.c:3412: warning: `a1756' might be used uninitialized in this function integ-stalin.c:3413: warning: `a1757' might be used uninitialized in this function integ-stalin.c:3414: warning: `a1758' might be used uninitialized in this function integ-stalin.c:3415: warning: `a1759' might be used uninitialized in this function integ-stalin.c:3416: warning: `a1760' might be used uninitialized in this function integ-stalin.c:3417: warning: `a1761' might be used uninitialized in this function integ-stalin.c:3418: warning: `a1762' might be used uninitialized in this function integ-stalin.c:3419: warning: `a1763' might be used uninitialized in this function integ-stalin.c:3420: warning: `a1764' might be used uninitialized in this function integ-stalin.c:3421: warning: `a1765' might be used uninitialized in this function integ-stalin.c:3422: warning: `a1766' might be used uninitialized in this function integ-stalin.c:3423: warning: `a1767' might be used uninitialized in this function integ-stalin.c:3424: warning: `a1768' might be used uninitialized in this function integ-stalin.c:3425: warning: `a1769' might be used uninitialized in this function integ-stalin.c:3426: warning: `a1770' might be used uninitialized in this function integ-stalin.c:3427: warning: `a1771' might be used uninitialized in this function integ-stalin.c:3428: warning: `a1772' might be used uninitialized in this function integ-stalin.c:3429: warning: `a1773' might be used uninitialized in this function integ-stalin.c:3430: warning: `a1774' might be used uninitialized in this function integ-stalin.c:3431: warning: `a1775' might be used uninitialized in this function integ-stalin.c:3432: warning: `a1776' might be used uninitialized in this function integ-stalin.c:3433: warning: `a1777' might be used uninitialized in this function integ-stalin.c:3434: warning: `a1778' might be used uninitialized in this function integ-stalin.c:3435: warning: `a1779' might be used uninitialized in this function integ-stalin.c:3436: warning: `a1780' might be used uninitialized in this function integ-stalin.c:3437: warning: `a1781' might be used uninitialized in this function integ-stalin.c:3438: warning: `a1782' might be used uninitialized in this function integ-stalin.c:3439: warning: `a1783' might be used uninitialized in this function integ-stalin.c:3440: warning: `a1784' might be used uninitialized in this function integ-stalin.c:3441: warning: `a1785' might be used uninitialized in this function integ-stalin.c:3442: warning: `a1786' might be used uninitialized in this function integ-stalin.c:3443: warning: `a1787' might be used uninitialized in this function integ-stalin.c:3444: warning: `a1788' might be used uninitialized in this function integ-stalin.c:3447: warning: `a1837' might be used uninitialized in this function integ-stalin.c:3449: warning: `a1839' might be used uninitialized in this function integ-stalin.c:3453: warning: `a1843' might be used uninitialized in this function integ-stalin.c:3459: warning: `a2092' might be used uninitialized in this function integ-stalin.c:3460: warning: `a2093' might be used uninitialized in this function integ-stalin.c:3464: warning: `t814' might be used uninitialized in this function integ-stalin.c:3465: warning: `t815' might be used uninitialized in this function integ-stalin.c:3466: warning: `t816' might be used uninitialized in this function integ-stalin.c:3467: warning: `t817' might be used uninitialized in this function integ-stalin.c:3468: warning: `t818' might be used uninitialized in this function integ-stalin.c:3469: warning: `t819' might be used uninitialized in this function integ-stalin.c:3470: warning: `t820' might be used uninitialized in this function integ-stalin.c:3471: warning: `t821' might be used uninitialized in this function integ-stalin.c:3472: warning: `t822' might be used uninitialized in this function integ-stalin.c:3475: warning: `t825' might be used uninitialized in this function integ-stalin.c:3476: warning: `t826' might be used uninitialized in this function integ-stalin.c:3477: warning: `t827' might be used uninitialized in this function integ-stalin.c:3478: warning: `t828' might be used uninitialized in this function integ-stalin.c:3479: warning: `t829' might be used uninitialized in this function integ-stalin.c:3480: warning: `t830' might be used uninitialized in this function integ-stalin.c:3481: warning: `t831' might be used uninitialized in this function integ-stalin.c:3482: warning: `t832' might be used uninitialized in this function integ-stalin.c:3483: warning: `t833' might be used uninitialized in this function integ-stalin.c:3484: warning: `t834' might be used uninitialized in this function integ-stalin.c:3485: warning: `t835' might be used uninitialized in this function integ-stalin.c:3486: warning: `t836' might be used uninitialized in this function integ-stalin.c:3487: warning: `t837' might be used uninitialized in this function integ-stalin.c:3488: warning: `t838' might be used uninitialized in this function integ-stalin.c:3489: warning: `t839' might be used uninitialized in this function integ-stalin.c:3490: warning: `t840' might be used uninitialized in this function integ-stalin.c:3491: warning: `t841' might be used uninitialized in this function integ-stalin.c:3492: warning: `t842' might be used uninitialized in this function integ-stalin.c:3493: warning: `t843' might be used uninitialized in this function integ-stalin.c:3494: warning: `t844' might be used uninitialized in this function integ-stalin.c:3495: warning: `t845' might be used uninitialized in this function integ-stalin.c:3496: warning: `t846' might be used uninitialized in this function integ-stalin.c:3497: warning: `t847' might be used uninitialized in this function integ-stalin.c:3498: warning: `t848' might be used uninitialized in this function integ-stalin.c:3499: warning: `t849' might be used uninitialized in this function integ-stalin.c:3500: warning: `t850' might be used uninitialized in this function integ-stalin.c:3501: warning: `t851' might be used uninitialized in this function integ-stalin.c:3502: warning: `t852' might be used uninitialized in this function integ-stalin.c:3503: warning: `t853' might be used uninitialized in this function integ-stalin.c:3504: warning: `t854' might be used uninitialized in this function integ-stalin.c:3505: warning: `t855' might be used uninitialized in this function integ-stalin.c:3506: warning: `t856' might be used uninitialized in this function integ-stalin.c:3507: warning: `t857' might be used uninitialized in this function integ-stalin.c:3508: warning: `t858' might be used uninitialized in this function integ-stalin.c:3509: warning: `t859' might be used uninitialized in this function integ-stalin.c:3510: warning: `t860' might be used uninitialized in this function integ-stalin.c:3511: warning: `t861' might be used uninitialized in this function integ-stalin.c:3512: warning: `t862' might be used uninitialized in this function integ-stalin.c:3513: warning: `t863' might be used uninitialized in this function integ-stalin.c:3514: warning: `t864' might be used uninitialized in this function integ-stalin.c:3515: warning: `t865' might be used uninitialized in this function integ-stalin.c:3516: warning: `t866' might be used uninitialized in this function integ-stalin.c:3517: warning: `t867' might be used uninitialized in this function integ-stalin.c:3518: warning: `t868' might be used uninitialized in this function integ-stalin.c:3519: warning: `t869' might be used uninitialized in this function integ-stalin.c:3520: warning: `t870' might be used uninitialized in this function integ-stalin.c:3521: warning: `t871' might be used uninitialized in this function integ-stalin.c:3522: warning: `t872' might be used uninitialized in this function integ-stalin.c:3523: warning: `t873' might be used uninitialized in this function integ-stalin.c:3524: warning: `t874' might be used uninitialized in this function integ-stalin.c:3525: warning: `t875' might be used uninitialized in this function integ-stalin.c:3526: warning: `t876' might be used uninitialized in this function integ-stalin.c:3527: warning: `t877' might be used uninitialized in this function integ-stalin.c:3528: warning: `t878' might be used uninitialized in this function integ-stalin.c:3529: warning: `t879' might be used uninitialized in this function integ-stalin.c:3530: warning: `t880' might be used uninitialized in this function integ-stalin.c:3531: warning: `t881' might be used uninitialized in this function integ-stalin.c:3532: warning: `t882' might be used uninitialized in this function integ-stalin.c:3533: warning: `t883' might be used uninitialized in this function integ-stalin.c:3534: warning: `t884' might be used uninitialized in this function integ-stalin.c:3535: warning: `t885' might be used uninitialized in this function integ-stalin.c:3536: warning: `t886' might be used uninitialized in this function integ-stalin.c:3537: warning: `t887' might be used uninitialized in this function integ-stalin.c:3538: warning: `t888' might be used uninitialized in this function integ-stalin.c:3539: warning: `t889' might be used uninitialized in this function integ-stalin.c:3540: warning: `t890' might be used uninitialized in this function integ-stalin.c:3541: warning: `t891' might be used uninitialized in this function integ-stalin.c:3542: warning: `t892' might be used uninitialized in this function integ-stalin.c:3543: warning: `t893' might be used uninitialized in this function integ-stalin.c:3544: warning: `t894' might be used uninitialized in this function integ-stalin.c:3545: warning: `t895' might be used uninitialized in this function integ-stalin.c:3546: warning: `t896' might be used uninitialized in this function integ-stalin.c:3547: warning: `t897' might be used uninitialized in this function integ-stalin.c:3548: warning: `t898' might be used uninitialized in this function integ-stalin.c:3549: warning: `t899' might be used uninitialized in this function integ-stalin.c:3550: warning: `t900' might be used uninitialized in this function integ-stalin.c:3551: warning: `t901' might be used uninitialized in this function integ-stalin.c:3552: warning: `t902' might be used uninitialized in this function integ-stalin.c:3553: warning: `t903' might be used uninitialized in this function integ-stalin.c:3554: warning: `t904' might be used uninitialized in this function integ-stalin.c:3555: warning: `t905' might be used uninitialized in this function integ-stalin.c:3556: warning: `t906' might be used uninitialized in this function integ-stalin.c:3557: warning: `t907' might be used uninitialized in this function integ-stalin.c:3558: warning: `t908' might be used uninitialized in this function integ-stalin.c:3559: warning: `t909' might be used uninitialized in this function integ-stalin.c:3560: warning: `t910' might be used uninitialized in this function integ-stalin.c:3561: warning: `t911' might be used uninitialized in this function integ-stalin.c:3562: warning: `t912' might be used uninitialized in this function integ-stalin.c:3563: warning: `t913' might be used uninitialized in this function integ-stalin.c:3564: warning: `t914' might be used uninitialized in this function integ-stalin.c:3565: warning: `t915' might be used uninitialized in this function integ-stalin.c:3566: warning: `t916' might be used uninitialized in this function integ-stalin.c:3567: warning: `t917' might be used uninitialized in this function integ-stalin.c:3568: warning: `t918' might be used uninitialized in this function integ-stalin.c:3569: warning: `t919' might be used uninitialized in this function integ-stalin.c:3570: warning: `t920' might be used uninitialized in this function integ-stalin.c:3571: warning: `t921' might be used uninitialized in this function integ-stalin.c:3572: warning: `t922' might be used uninitialized in this function integ-stalin.c:3573: warning: `t923' might be used uninitialized in this function integ-stalin.c:3574: warning: `t924' might be used uninitialized in this function integ-stalin.c:3575: warning: `t925' might be used uninitialized in this function integ-stalin.c:3576: warning: `t926' might be used uninitialized in this function integ-stalin.c:3577: warning: `t927' might be used uninitialized in this function integ-stalin.c:3578: warning: `t928' might be used uninitialized in this function integ-stalin.c:3579: warning: `t929' might be used uninitialized in this function integ-stalin.c:3580: warning: `t930' might be used uninitialized in this function integ-stalin.c:3581: warning: `t931' might be used uninitialized in this function integ-stalin.c:3582: warning: `t932' might be used uninitialized in this function integ-stalin.c:3583: warning: `t933' might be used uninitialized in this function integ-stalin.c:3584: warning: `t934' might be used uninitialized in this function integ-stalin.c:3585: warning: `t935' might be used uninitialized in this function integ-stalin.c:3586: warning: `t936' might be used uninitialized in this function integ-stalin.c:3587: warning: `t937' might be used uninitialized in this function integ-stalin.c:3588: warning: `t938' might be used uninitialized in this function integ-stalin.c:3589: warning: `t939' might be used uninitialized in this function integ-stalin.c:3590: warning: `t940' might be used uninitialized in this function integ-stalin.c:3591: warning: `t941' might be used uninitialized in this function integ-stalin.c:3592: warning: `t942' might be used uninitialized in this function integ-stalin.c:3593: warning: `t943' might be used uninitialized in this function integ-stalin.c:3594: warning: `t944' might be used uninitialized in this function integ-stalin.c:3595: warning: `t945' might be used uninitialized in this function integ-stalin.c:3596: warning: `t946' might be used uninitialized in this function integ-stalin.c:3597: warning: `t947' might be used uninitialized in this function integ-stalin.c:3598: warning: `t948' might be used uninitialized in this function integ-stalin.c:3599: warning: `t949' might be used uninitialized in this function integ-stalin.c:3600: warning: `t950' might be used uninitialized in this function integ-stalin.c:3601: warning: `t951' might be used uninitialized in this function integ-stalin.c:3602: warning: `t952' might be used uninitialized in this function integ-stalin.c:3603: warning: `t953' might be used uninitialized in this function integ-stalin.c:3604: warning: `t954' might be used uninitialized in this function integ-stalin.c:3605: warning: `t955' might be used uninitialized in this function integ-stalin.c:3606: warning: `t956' might be used uninitialized in this function integ-stalin.c:3607: warning: `t957' might be used uninitialized in this function integ-stalin.c:3608: warning: `t958' might be used uninitialized in this function integ-stalin.c:3609: warning: `t959' might be used uninitialized in this function integ-stalin.c:3610: warning: `t960' might be used uninitialized in this function integ-stalin.c:3611: warning: `t961' might be used uninitialized in this function integ-stalin.c:3612: warning: `t962' might be used uninitialized in this function integ-stalin.c:3613: warning: `t963' might be used uninitialized in this function integ-stalin.c:3614: warning: `t964' might be used uninitialized in this function integ-stalin.c:3615: warning: `t965' might be used uninitialized in this function integ-stalin.c:3616: warning: `t966' might be used uninitialized in this function integ-stalin.c:3617: warning: `t967' might be used uninitialized in this function integ-stalin.c:3618: warning: `t968' might be used uninitialized in this function integ-stalin.c:3619: warning: `t969' might be used uninitialized in this function integ-stalin.c:3620: warning: `t970' might be used uninitialized in this function integ-stalin.c:3621: warning: `t971' might be used uninitialized in this function integ-stalin.c:3622: warning: `t972' might be used uninitialized in this function integ-stalin.c:3623: warning: `t973' might be used uninitialized in this function integ-stalin.c:3624: warning: `t974' might be used uninitialized in this function integ-stalin.c:3625: warning: `t975' might be used uninitialized in this function integ-stalin.c:3626: warning: `t976' might be used uninitialized in this function integ-stalin.c:3627: warning: `t977' might be used uninitialized in this function integ-stalin.c:3628: warning: `t978' might be used uninitialized in this function integ-stalin.c:3629: warning: `t979' might be used uninitialized in this function integ-stalin.c:3630: warning: `t980' might be used uninitialized in this function integ-stalin.c:3631: warning: `t981' might be used uninitialized in this function integ-stalin.c:3632: warning: `t982' might be used uninitialized in this function integ-stalin.c:3633: warning: `t983' might be used uninitialized in this function integ-stalin.c:3634: warning: `t984' might be used uninitialized in this function integ-stalin.c:3635: warning: `t985' might be used uninitialized in this function integ-stalin.c:3636: warning: `t986' might be used uninitialized in this function integ-stalin.c:3637: warning: `t987' might be used uninitialized in this function integ-stalin.c:3638: warning: `t988' might be used uninitialized in this function integ-stalin.c:3639: warning: `t989' might be used uninitialized in this function integ-stalin.c:3640: warning: `t990' might be used uninitialized in this function integ-stalin.c:3641: warning: `t991' might be used uninitialized in this function integ-stalin.c:3642: warning: `t992' might be used uninitialized in this function integ-stalin.c:3643: warning: `t993' might be used uninitialized in this function integ-stalin.c:3644: warning: `t994' might be used uninitialized in this function integ-stalin.c:3645: warning: `t995' might be used uninitialized in this function integ-stalin.c:3646: warning: `t996' might be used uninitialized in this function integ-stalin.c:3647: warning: `t997' might be used uninitialized in this function integ-stalin.c:3648: warning: `t998' might be used uninitialized in this function integ-stalin.c:3649: warning: `t999' might be used uninitialized in this function integ-stalin.c:3650: warning: `t1000' might be used uninitialized in this function integ-stalin.c:3651: warning: `t1001' might be used uninitialized in this function integ-stalin.c:3652: warning: `t1002' might be used uninitialized in this function integ-stalin.c:3653: warning: `t1003' might be used uninitialized in this function integ-stalin.c:3654: warning: `t1004' might be used uninitialized in this function integ-stalin.c:3655: warning: `t1005' might be used uninitialized in this function integ-stalin.c:3656: warning: `t1006' might be used uninitialized in this function integ-stalin.c:3657: warning: `t1007' might be used uninitialized in this function integ-stalin.c:3658: warning: `t1008' might be used uninitialized in this function integ-stalin.c:3659: warning: `t1009' might be used uninitialized in this function integ-stalin.c:3660: warning: `t1010' might be used uninitialized in this function integ-stalin.c:3661: warning: `t1011' might be used uninitialized in this function integ-stalin.c:3662: warning: `t1012' might be used uninitialized in this function integ-stalin.c:3663: warning: `t1013' might be used uninitialized in this function integ-stalin.c:3664: warning: `t1014' might be used uninitialized in this function integ-stalin.c:3665: warning: `t1015' might be used uninitialized in this function integ-stalin.c:3666: warning: `t1016' might be used uninitialized in this function integ-stalin.c:3667: warning: `t1017' might be used uninitialized in this function integ-stalin.c:3668: warning: `t1018' might be used uninitialized in this function integ-stalin.c:3669: warning: `t1019' might be used uninitialized in this function integ-stalin.c:3670: warning: `t1020' might be used uninitialized in this function integ-stalin.c:3671: warning: `t1021' might be used uninitialized in this function integ-stalin.c:3672: warning: `t1022' might be used uninitialized in this function integ-stalin.c:3673: warning: `t1023' might be used uninitialized in this function integ-stalin.c:3674: warning: `t1024' might be used uninitialized in this function integ-stalin.c:3675: warning: `t1025' might be used uninitialized in this function integ-stalin.c:3676: warning: `t1026' might be used uninitialized in this function integ-stalin.c:3892: warning: `t1314' might be used uninitialized in this function 26.16user 1.34system 0:33.51elapsed 82%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33099major+223873minor)pagefaults 0swaps compile gold (STATIC-COUNTS 2185 2185 2185 2185 0 0 0 2185 2100 1132 54 134 16 42 1.448058761804827 4160 4160 469 259) gold-stalin.c: In function `f1407': gold-stalin.c:1561: warning: `a1885' might be used uninitialized in this function gold-stalin.c:1565: warning: `a1889' might be used uninitialized in this function gold-stalin.c:1567: warning: `a1891' might be used uninitialized in this function gold-stalin.c:1568: warning: `a1892' might be used uninitialized in this function gold-stalin.c:1569: warning: `a1893' might be used uninitialized in this function gold-stalin.c:1571: warning: `a1895' might be used uninitialized in this function gold-stalin.c:1575: warning: `a1899' might be used uninitialized in this function gold-stalin.c:1577: warning: `a1901' might be used uninitialized in this function gold-stalin.c:1578: warning: `a1902' might be used uninitialized in this function gold-stalin.c:1581: warning: `a1908' might be used uninitialized in this function gold-stalin.c:1582: warning: `a1909' might be used uninitialized in this function gold-stalin.c:1583: warning: `a1910' might be used uninitialized in this function gold-stalin.c:1584: warning: `a1911' might be used uninitialized in this function gold-stalin.c:1586: warning: `a1913' might be used uninitialized in this function gold-stalin.c:1590: warning: `a1917' might be used uninitialized in this function gold-stalin.c: In function `f1369': gold-stalin.c:2630: warning: `a1879' might be used uninitialized in this function gold-stalin.c:2632: warning: `a1881' might be used uninitialized in this function gold-stalin.c: In function `f56': gold-stalin.c:2782: warning: `a732' might be used uninitialized in this function gold-stalin.c:2784: warning: `a734' might be used uninitialized in this function gold-stalin.c:2878: warning: `t388' might be used uninitialized in this function gold-stalin.c:2881: warning: `t391' might be used uninitialized in this function gold-stalin.c: In function `f21': gold-stalin.c:3571: warning: `t630' might be used uninitialized in this function gold-stalin.c:3573: warning: `t632' might be used uninitialized in this function gold-stalin.c:3575: warning: `t634' might be used uninitialized in this function gold-stalin.c:3578: warning: `t637' might be used uninitialized in this function gold-stalin.c:3580: warning: `t639' might be used uninitialized in this function gold-stalin.c:3582: warning: `t641' might be used uninitialized in this function gold-stalin.c:3638: warning: `t721' might be used uninitialized in this function gold-stalin.c:3640: warning: `t723' might be used uninitialized in this function gold-stalin.c:3642: warning: `t725' might be used uninitialized in this function gold-stalin.c: In function `f0': gold-stalin.c:4115: warning: `a1' might be used uninitialized in this function gold-stalin.c:4116: warning: `a2' might be used uninitialized in this function gold-stalin.c:4117: warning: `a3' might be used uninitialized in this function gold-stalin.c:4118: warning: `a4' might be used uninitialized in this function gold-stalin.c:4119: warning: `a5' might be used uninitialized in this function gold-stalin.c:4120: warning: `a6' might be used uninitialized in this function gold-stalin.c:4121: warning: `a7' might be used uninitialized in this function gold-stalin.c:4122: warning: `a8' might be used uninitialized in this function gold-stalin.c:4123: warning: `a9' might be used uninitialized in this function gold-stalin.c:4124: warning: `a10' might be used uninitialized in this function gold-stalin.c:4125: warning: `a11' might be used uninitialized in this function gold-stalin.c:4126: warning: `a12' might be used uninitialized in this function gold-stalin.c:4127: warning: `a13' might be used uninitialized in this function gold-stalin.c:4128: warning: `a14' might be used uninitialized in this function gold-stalin.c:4129: warning: `a15' might be used uninitialized in this function gold-stalin.c:4130: warning: `a16' might be used uninitialized in this function gold-stalin.c:4131: warning: `a17' might be used uninitialized in this function gold-stalin.c:4132: warning: `a18' might be used uninitialized in this function gold-stalin.c:4133: warning: `a19' might be used uninitialized in this function gold-stalin.c:4134: warning: `a20' might be used uninitialized in this function gold-stalin.c:4135: warning: `a21' might be used uninitialized in this function gold-stalin.c:4136: warning: `a22' might be used uninitialized in this function gold-stalin.c:4137: warning: `a23' might be used uninitialized in this function gold-stalin.c:4138: warning: `a24' might be used uninitialized in this function gold-stalin.c:4139: warning: `a25' might be used uninitialized in this function gold-stalin.c:4140: warning: `a26' might be used uninitialized in this function gold-stalin.c:4141: warning: `a27' might be used uninitialized in this function gold-stalin.c:4142: warning: `a28' might be used uninitialized in this function gold-stalin.c:4143: warning: `a29' might be used uninitialized in this function gold-stalin.c:4144: warning: `a30' might be used uninitialized in this function gold-stalin.c:4145: warning: `a31' might be used uninitialized in this function gold-stalin.c:4146: warning: `a32' might be used uninitialized in this function gold-stalin.c:4147: warning: `a33' might be used uninitialized in this function gold-stalin.c:4148: warning: `a34' might be used uninitialized in this function gold-stalin.c:4149: warning: `a35' might be used uninitialized in this function gold-stalin.c:4150: warning: `a36' might be used uninitialized in this function gold-stalin.c:4151: warning: `a37' might be used uninitialized in this function gold-stalin.c:4152: warning: `a38' might be used uninitialized in this function gold-stalin.c:4153: warning: `a39' might be used uninitialized in this function gold-stalin.c:4154: warning: `a40' might be used uninitialized in this function gold-stalin.c:4155: warning: `a41' might be used uninitialized in this function gold-stalin.c:4156: warning: `a42' might be used uninitialized in this function gold-stalin.c:4157: warning: `a43' might be used uninitialized in this function gold-stalin.c:4158: warning: `a44' might be used uninitialized in this function gold-stalin.c:4159: warning: `a45' might be used uninitialized in this function gold-stalin.c:4160: warning: `a46' might be used uninitialized in this function gold-stalin.c:4161: warning: `a47' might be used uninitialized in this function gold-stalin.c:4162: warning: `a48' might be used uninitialized in this function gold-stalin.c:4163: warning: `a49' might be used uninitialized in this function gold-stalin.c:4164: warning: `a50' might be used uninitialized in this function gold-stalin.c:4165: warning: `a51' might be used uninitialized in this function gold-stalin.c:4166: warning: `a52' might be used uninitialized in this function gold-stalin.c:4167: warning: `a53' might be used uninitialized in this function gold-stalin.c:4168: warning: `a54' might be used uninitialized in this function gold-stalin.c:4169: warning: `a55' might be used uninitialized in this function gold-stalin.c:4170: warning: `a56' might be used uninitialized in this function gold-stalin.c:4171: warning: `a57' might be used uninitialized in this function gold-stalin.c:4172: warning: `a58' might be used uninitialized in this function gold-stalin.c:4173: warning: `a59' might be used uninitialized in this function gold-stalin.c:4174: warning: `a60' might be used uninitialized in this function gold-stalin.c:4175: warning: `a61' might be used uninitialized in this function gold-stalin.c:4176: warning: `a62' might be used uninitialized in this function gold-stalin.c:4177: warning: `a63' might be used uninitialized in this function gold-stalin.c:4178: warning: `a64' might be used uninitialized in this function gold-stalin.c:4179: warning: `a65' might be used uninitialized in this function gold-stalin.c:4180: warning: `a66' might be used uninitialized in this function gold-stalin.c:4181: warning: `a67' might be used uninitialized in this function gold-stalin.c:4182: warning: `a68' might be used uninitialized in this function gold-stalin.c:4183: warning: `a69' might be used uninitialized in this function gold-stalin.c:4184: warning: `a70' might be used uninitialized in this function gold-stalin.c:4185: warning: `a71' might be used uninitialized in this function gold-stalin.c:4186: warning: `a72' might be used uninitialized in this function gold-stalin.c:4187: warning: `a73' might be used uninitialized in this function gold-stalin.c:4188: warning: `a74' might be used uninitialized in this function gold-stalin.c:4189: warning: `a75' might be used uninitialized in this function gold-stalin.c:4190: warning: `a76' might be used uninitialized in this function gold-stalin.c:4191: warning: `a77' might be used uninitialized in this function gold-stalin.c:4192: warning: `a78' might be used uninitialized in this function gold-stalin.c:4193: warning: `a79' might be used uninitialized in this function gold-stalin.c:4194: warning: `a80' might be used uninitialized in this function gold-stalin.c:4195: warning: `a81' might be used uninitialized in this function gold-stalin.c:4196: warning: `a82' might be used uninitialized in this function gold-stalin.c:4197: warning: `a83' might be used uninitialized in this function gold-stalin.c:4198: warning: `a84' might be used uninitialized in this function gold-stalin.c:4199: warning: `a85' might be used uninitialized in this function gold-stalin.c:4200: warning: `a86' might be used uninitialized in this function gold-stalin.c:4201: warning: `a87' might be used uninitialized in this function gold-stalin.c:4202: warning: `a88' might be used uninitialized in this function gold-stalin.c:4203: warning: `a89' might be used uninitialized in this function gold-stalin.c:4204: warning: `a90' might be used uninitialized in this function gold-stalin.c:4205: warning: `a91' might be used uninitialized in this function gold-stalin.c:4206: warning: `a92' might be used uninitialized in this function gold-stalin.c:4207: warning: `a93' might be used uninitialized in this function gold-stalin.c:4208: warning: `a94' might be used uninitialized in this function gold-stalin.c:4209: warning: `a95' might be used uninitialized in this function gold-stalin.c:4210: warning: `a96' might be used uninitialized in this function gold-stalin.c:4211: warning: `a97' might be used uninitialized in this function gold-stalin.c:4212: warning: `a98' might be used uninitialized in this function gold-stalin.c:4213: warning: `a99' might be used uninitialized in this function gold-stalin.c:4214: warning: `a100' might be used uninitialized in this function gold-stalin.c:4215: warning: `a101' might be used uninitialized in this function gold-stalin.c:4216: warning: `a102' might be used uninitialized in this function gold-stalin.c:4217: warning: `a103' might be used uninitialized in this function gold-stalin.c:4218: warning: `a104' might be used uninitialized in this function gold-stalin.c:4219: warning: `a105' might be used uninitialized in this function gold-stalin.c:4220: warning: `a106' might be used uninitialized in this function gold-stalin.c:4221: warning: `a107' might be used uninitialized in this function gold-stalin.c:4222: warning: `a108' might be used uninitialized in this function gold-stalin.c:4223: warning: `a109' might be used uninitialized in this function gold-stalin.c:4224: warning: `a110' might be used uninitialized in this function gold-stalin.c:4225: warning: `a111' might be used uninitialized in this function gold-stalin.c:4226: warning: `a112' might be used uninitialized in this function gold-stalin.c:4227: warning: `a113' might be used uninitialized in this function gold-stalin.c:4228: warning: `a114' might be used uninitialized in this function gold-stalin.c:4229: warning: `a115' might be used uninitialized in this function gold-stalin.c:4230: warning: `a116' might be used uninitialized in this function gold-stalin.c:4231: warning: `a117' might be used uninitialized in this function gold-stalin.c:4232: warning: `a118' might be used uninitialized in this function gold-stalin.c:4233: warning: `a119' might be used uninitialized in this function gold-stalin.c:4234: warning: `a120' might be used uninitialized in this function gold-stalin.c:4235: warning: `a121' might be used uninitialized in this function gold-stalin.c:4236: warning: `a122' might be used uninitialized in this function gold-stalin.c:4237: warning: `a123' might be used uninitialized in this function gold-stalin.c:4238: warning: `a124' might be used uninitialized in this function gold-stalin.c:4239: warning: `a125' might be used uninitialized in this function gold-stalin.c:4240: warning: `a126' might be used uninitialized in this function gold-stalin.c:4241: warning: `a127' might be used uninitialized in this function gold-stalin.c:4242: warning: `a128' might be used uninitialized in this function gold-stalin.c:4243: warning: `a129' might be used uninitialized in this function gold-stalin.c:4244: warning: `a130' might be used uninitialized in this function gold-stalin.c:4245: warning: `a131' might be used uninitialized in this function gold-stalin.c:4246: warning: `a132' might be used uninitialized in this function gold-stalin.c:4247: warning: `a133' might be used uninitialized in this function gold-stalin.c:4248: warning: `a134' might be used uninitialized in this function gold-stalin.c:4249: warning: `a135' might be used uninitialized in this function gold-stalin.c:4250: warning: `a136' might be used uninitialized in this function gold-stalin.c:4251: warning: `a137' might be used uninitialized in this function gold-stalin.c:4252: warning: `a138' might be used uninitialized in this function gold-stalin.c:4253: warning: `a139' might be used uninitialized in this function gold-stalin.c:4254: warning: `a140' might be used uninitialized in this function gold-stalin.c:4255: warning: `a141' might be used uninitialized in this function gold-stalin.c:4256: warning: `a142' might be used uninitialized in this function gold-stalin.c:4257: warning: `a143' might be used uninitialized in this function gold-stalin.c:4258: warning: `a144' might be used uninitialized in this function gold-stalin.c:4259: warning: `a145' might be used uninitialized in this function gold-stalin.c:4260: warning: `a146' might be used uninitialized in this function gold-stalin.c:4261: warning: `a147' might be used uninitialized in this function gold-stalin.c:4262: warning: `a148' might be used uninitialized in this function gold-stalin.c:4263: warning: `a149' might be used uninitialized in this function gold-stalin.c:4264: warning: `a150' might be used uninitialized in this function gold-stalin.c:4265: warning: `a151' might be used uninitialized in this function gold-stalin.c:4266: warning: `a152' might be used uninitialized in this function gold-stalin.c:4267: warning: `a153' might be used uninitialized in this function gold-stalin.c:4268: warning: `a154' might be used uninitialized in this function gold-stalin.c:4269: warning: `a155' might be used uninitialized in this function gold-stalin.c:4270: warning: `a156' might be used uninitialized in this function gold-stalin.c:4271: warning: `a157' might be used uninitialized in this function gold-stalin.c:4272: warning: `a158' might be used uninitialized in this function gold-stalin.c:4273: warning: `a159' might be used uninitialized in this function gold-stalin.c:4274: warning: `a160' might be used uninitialized in this function gold-stalin.c:4275: warning: `a161' might be used uninitialized in this function gold-stalin.c:4276: warning: `a162' might be used uninitialized in this function gold-stalin.c:4277: warning: `a163' might be used uninitialized in this function gold-stalin.c:4278: warning: `a164' might be used uninitialized in this function gold-stalin.c:4279: warning: `a165' might be used uninitialized in this function gold-stalin.c:4280: warning: `a166' might be used uninitialized in this function gold-stalin.c:4281: warning: `a167' might be used uninitialized in this function gold-stalin.c:4282: warning: `a168' might be used uninitialized in this function gold-stalin.c:4283: warning: `a169' might be used uninitialized in this function gold-stalin.c:4284: warning: `a170' might be used uninitialized in this function gold-stalin.c:4285: warning: `a171' might be used uninitialized in this function gold-stalin.c:4286: warning: `a172' might be used uninitialized in this function gold-stalin.c:4287: warning: `a173' might be used uninitialized in this function gold-stalin.c:4288: warning: `a174' might be used uninitialized in this function gold-stalin.c:4289: warning: `a175' might be used uninitialized in this function gold-stalin.c:4290: warning: `a176' might be used uninitialized in this function gold-stalin.c:4291: warning: `a177' might be used uninitialized in this function gold-stalin.c:4292: warning: `a178' might be used uninitialized in this function gold-stalin.c:4293: warning: `a179' might be used uninitialized in this function gold-stalin.c:4294: warning: `a180' might be used uninitialized in this function gold-stalin.c:4295: warning: `a181' might be used uninitialized in this function gold-stalin.c:4296: warning: `a182' might be used uninitialized in this function gold-stalin.c:4297: warning: `a183' might be used uninitialized in this function gold-stalin.c:4298: warning: `a184' might be used uninitialized in this function gold-stalin.c:4299: warning: `a185' might be used uninitialized in this function gold-stalin.c:4300: warning: `a186' might be used uninitialized in this function gold-stalin.c:4301: warning: `a187' might be used uninitialized in this function gold-stalin.c:4302: warning: `a188' might be used uninitialized in this function gold-stalin.c:4303: warning: `a189' might be used uninitialized in this function gold-stalin.c:4304: warning: `a190' might be used uninitialized in this function gold-stalin.c:4305: warning: `a191' might be used uninitialized in this function gold-stalin.c:4306: warning: `a192' might be used uninitialized in this function gold-stalin.c:4307: warning: `a193' might be used uninitialized in this function gold-stalin.c:4308: warning: `a194' might be used uninitialized in this function gold-stalin.c:4309: warning: `a195' might be used uninitialized in this function gold-stalin.c:4310: warning: `a196' might be used uninitialized in this function gold-stalin.c:4311: warning: `a197' might be used uninitialized in this function gold-stalin.c:4312: warning: `a198' might be used uninitialized in this function gold-stalin.c:4313: warning: `a199' might be used uninitialized in this function gold-stalin.c:4314: warning: `a200' might be used uninitialized in this function gold-stalin.c:4315: warning: `a201' might be used uninitialized in this function gold-stalin.c:4316: warning: `a202' might be used uninitialized in this function gold-stalin.c:4317: warning: `a203' might be used uninitialized in this function gold-stalin.c:4318: warning: `a204' might be used uninitialized in this function gold-stalin.c:4319: warning: `a205' might be used uninitialized in this function gold-stalin.c:4320: warning: `a206' might be used uninitialized in this function gold-stalin.c:4321: warning: `a207' might be used uninitialized in this function gold-stalin.c:4322: warning: `a208' might be used uninitialized in this function gold-stalin.c:4323: warning: `a209' might be used uninitialized in this function gold-stalin.c:4324: warning: `a210' might be used uninitialized in this function gold-stalin.c:4325: warning: `a211' might be used uninitialized in this function gold-stalin.c:4326: warning: `a212' might be used uninitialized in this function gold-stalin.c:4327: warning: `a213' might be used uninitialized in this function gold-stalin.c:4328: warning: `a214' might be used uninitialized in this function gold-stalin.c:4329: warning: `a215' might be used uninitialized in this function gold-stalin.c:4330: warning: `a216' might be used uninitialized in this function gold-stalin.c:4331: warning: `a217' might be used uninitialized in this function gold-stalin.c:4332: warning: `a218' might be used uninitialized in this function gold-stalin.c:4333: warning: `a219' might be used uninitialized in this function gold-stalin.c:4334: warning: `a220' might be used uninitialized in this function gold-stalin.c:4335: warning: `a221' might be used uninitialized in this function gold-stalin.c:4336: warning: `a222' might be used uninitialized in this function gold-stalin.c:4337: warning: `a223' might be used uninitialized in this function gold-stalin.c:4338: warning: `a224' might be used uninitialized in this function gold-stalin.c:4339: warning: `a225' might be used uninitialized in this function gold-stalin.c:4340: warning: `a226' might be used uninitialized in this function gold-stalin.c:4341: warning: `a227' might be used uninitialized in this function gold-stalin.c:4342: warning: `a228' might be used uninitialized in this function gold-stalin.c:4343: warning: `a229' might be used uninitialized in this function gold-stalin.c:4344: warning: `a230' might be used uninitialized in this function gold-stalin.c:4345: warning: `a231' might be used uninitialized in this function gold-stalin.c:4346: warning: `a232' might be used uninitialized in this function gold-stalin.c:4347: warning: `a233' might be used uninitialized in this function gold-stalin.c:4348: warning: `a234' might be used uninitialized in this function gold-stalin.c:4349: warning: `a235' might be used uninitialized in this function gold-stalin.c:4350: warning: `a236' might be used uninitialized in this function gold-stalin.c:4351: warning: `a237' might be used uninitialized in this function gold-stalin.c:4352: warning: `a238' might be used uninitialized in this function gold-stalin.c:4353: warning: `a239' might be used uninitialized in this function gold-stalin.c:4354: warning: `a240' might be used uninitialized in this function gold-stalin.c:4355: warning: `a241' might be used uninitialized in this function gold-stalin.c:4356: warning: `a242' might be used uninitialized in this function gold-stalin.c:4357: warning: `a243' might be used uninitialized in this function gold-stalin.c:4358: warning: `a244' might be used uninitialized in this function gold-stalin.c:4359: warning: `a245' might be used uninitialized in this function gold-stalin.c:4360: warning: `a246' might be used uninitialized in this function gold-stalin.c:4361: warning: `a247' might be used uninitialized in this function gold-stalin.c:4362: warning: `a248' might be used uninitialized in this function gold-stalin.c:4363: warning: `a249' might be used uninitialized in this function gold-stalin.c:4364: warning: `a250' might be used uninitialized in this function gold-stalin.c:4365: warning: `a251' might be used uninitialized in this function gold-stalin.c:4366: warning: `a252' might be used uninitialized in this function gold-stalin.c:4367: warning: `a253' might be used uninitialized in this function gold-stalin.c:4368: warning: `a254' might be used uninitialized in this function gold-stalin.c:4369: warning: `a255' might be used uninitialized in this function gold-stalin.c:4370: warning: `a256' might be used uninitialized in this function gold-stalin.c:4371: warning: `a257' might be used uninitialized in this function gold-stalin.c:4372: warning: `a258' might be used uninitialized in this function gold-stalin.c:4373: warning: `a259' might be used uninitialized in this function gold-stalin.c:4374: warning: `a260' might be used uninitialized in this function gold-stalin.c:4375: warning: `a261' might be used uninitialized in this function gold-stalin.c:4376: warning: `a262' might be used uninitialized in this function gold-stalin.c:4377: warning: `a263' might be used uninitialized in this function gold-stalin.c:4378: warning: `a264' might be used uninitialized in this function gold-stalin.c:4379: warning: `a265' might be used uninitialized in this function gold-stalin.c:4380: warning: `a266' might be used uninitialized in this function gold-stalin.c:4381: warning: `a267' might be used uninitialized in this function gold-stalin.c:4382: warning: `a268' might be used uninitialized in this function gold-stalin.c:4383: warning: `a269' might be used uninitialized in this function gold-stalin.c:4384: warning: `a270' might be used uninitialized in this function gold-stalin.c:4385: warning: `a271' might be used uninitialized in this function gold-stalin.c:4386: warning: `a272' might be used uninitialized in this function gold-stalin.c:4387: warning: `a273' might be used uninitialized in this function gold-stalin.c:4388: warning: `a274' might be used uninitialized in this function gold-stalin.c:4389: warning: `a275' might be used uninitialized in this function gold-stalin.c:4390: warning: `a276' might be used uninitialized in this function gold-stalin.c:4391: warning: `a277' might be used uninitialized in this function gold-stalin.c:4392: warning: `a278' might be used uninitialized in this function gold-stalin.c:4393: warning: `a279' might be used uninitialized in this function gold-stalin.c:4394: warning: `a280' might be used uninitialized in this function gold-stalin.c:4395: warning: `a281' might be used uninitialized in this function gold-stalin.c:4396: warning: `a282' might be used uninitialized in this function gold-stalin.c:4397: warning: `a283' might be used uninitialized in this function gold-stalin.c:4398: warning: `a284' might be used uninitialized in this function gold-stalin.c:4399: warning: `a285' might be used uninitialized in this function gold-stalin.c:4400: warning: `a286' might be used uninitialized in this function gold-stalin.c:4401: warning: `a287' might be used uninitialized in this function gold-stalin.c:4402: warning: `a288' might be used uninitialized in this function gold-stalin.c:4403: warning: `a289' might be used uninitialized in this function gold-stalin.c:4404: warning: `a290' might be used uninitialized in this function gold-stalin.c:4405: warning: `a291' might be used uninitialized in this function gold-stalin.c:4406: warning: `a292' might be used uninitialized in this function gold-stalin.c:4407: warning: `a293' might be used uninitialized in this function gold-stalin.c:4408: warning: `a294' might be used uninitialized in this function gold-stalin.c:4409: warning: `a295' might be used uninitialized in this function gold-stalin.c:4410: warning: `a296' might be used uninitialized in this function gold-stalin.c:4411: warning: `a297' might be used uninitialized in this function gold-stalin.c:4412: warning: `a298' might be used uninitialized in this function gold-stalin.c:4413: warning: `a299' might be used uninitialized in this function gold-stalin.c:4414: warning: `a300' might be used uninitialized in this function gold-stalin.c:4415: warning: `a301' might be used uninitialized in this function gold-stalin.c:4416: warning: `a302' might be used uninitialized in this function gold-stalin.c:4417: warning: `a303' might be used uninitialized in this function gold-stalin.c:4418: warning: `a304' might be used uninitialized in this function gold-stalin.c:4419: warning: `a305' might be used uninitialized in this function gold-stalin.c:4420: warning: `a306' might be used uninitialized in this function gold-stalin.c:4421: warning: `a307' might be used uninitialized in this function gold-stalin.c:4422: warning: `a308' might be used uninitialized in this function gold-stalin.c:4423: warning: `a309' might be used uninitialized in this function gold-stalin.c:4424: warning: `a310' might be used uninitialized in this function gold-stalin.c:4425: warning: `a311' might be used uninitialized in this function gold-stalin.c:4426: warning: `a312' might be used uninitialized in this function gold-stalin.c:4427: warning: `a313' might be used uninitialized in this function gold-stalin.c:4428: warning: `a314' might be used uninitialized in this function gold-stalin.c:4429: warning: `a315' might be used uninitialized in this function gold-stalin.c:4430: warning: `a316' might be used uninitialized in this function gold-stalin.c:4431: warning: `a317' might be used uninitialized in this function gold-stalin.c:4432: warning: `a318' might be used uninitialized in this function gold-stalin.c:4433: warning: `a319' might be used uninitialized in this function gold-stalin.c:4434: warning: `a320' might be used uninitialized in this function gold-stalin.c:4435: warning: `a321' might be used uninitialized in this function gold-stalin.c:4436: warning: `a322' might be used uninitialized in this function gold-stalin.c:4437: warning: `a323' might be used uninitialized in this function gold-stalin.c:4438: warning: `a324' might be used uninitialized in this function gold-stalin.c:4439: warning: `a325' might be used uninitialized in this function gold-stalin.c:4440: warning: `a326' might be used uninitialized in this function gold-stalin.c:4441: warning: `a327' might be used uninitialized in this function gold-stalin.c:4442: warning: `a328' might be used uninitialized in this function gold-stalin.c:4443: warning: `a329' might be used uninitialized in this function gold-stalin.c:4444: warning: `a330' might be used uninitialized in this function gold-stalin.c:4445: warning: `a331' might be used uninitialized in this function gold-stalin.c:4446: warning: `a332' might be used uninitialized in this function gold-stalin.c:4447: warning: `a333' might be used uninitialized in this function gold-stalin.c:4448: warning: `a334' might be used uninitialized in this function gold-stalin.c:4449: warning: `a335' might be used uninitialized in this function gold-stalin.c:4450: warning: `a336' might be used uninitialized in this function gold-stalin.c:4451: warning: `a337' might be used uninitialized in this function gold-stalin.c:4452: warning: `a338' might be used uninitialized in this function gold-stalin.c:4453: warning: `a339' might be used uninitialized in this function gold-stalin.c:4454: warning: `a340' might be used uninitialized in this function gold-stalin.c:4455: warning: `a341' might be used uninitialized in this function gold-stalin.c:4456: warning: `a342' might be used uninitialized in this function gold-stalin.c:4457: warning: `a343' might be used uninitialized in this function gold-stalin.c:4458: warning: `a344' might be used uninitialized in this function gold-stalin.c:4459: warning: `a345' might be used uninitialized in this function gold-stalin.c:4460: warning: `a346' might be used uninitialized in this function gold-stalin.c:4461: warning: `a347' might be used uninitialized in this function gold-stalin.c:4462: warning: `a348' might be used uninitialized in this function gold-stalin.c:4463: warning: `a349' might be used uninitialized in this function gold-stalin.c:4464: warning: `a350' might be used uninitialized in this function gold-stalin.c:4465: warning: `a351' might be used uninitialized in this function gold-stalin.c:4466: warning: `a352' might be used uninitialized in this function gold-stalin.c:4467: warning: `a353' might be used uninitialized in this function gold-stalin.c:4468: warning: `a354' might be used uninitialized in this function gold-stalin.c:4469: warning: `a355' might be used uninitialized in this function gold-stalin.c:4470: warning: `a356' might be used uninitialized in this function gold-stalin.c:4471: warning: `a357' might be used uninitialized in this function gold-stalin.c:4472: warning: `a358' might be used uninitialized in this function gold-stalin.c:4473: warning: `a359' might be used uninitialized in this function gold-stalin.c:4474: warning: `a360' might be used uninitialized in this function gold-stalin.c:4475: warning: `a361' might be used uninitialized in this function gold-stalin.c:4476: warning: `a362' might be used uninitialized in this function gold-stalin.c:4477: warning: `a363' might be used uninitialized in this function gold-stalin.c:4478: warning: `a364' might be used uninitialized in this function gold-stalin.c:4479: warning: `a365' might be used uninitialized in this function gold-stalin.c:4480: warning: `a366' might be used uninitialized in this function gold-stalin.c:4481: warning: `a367' might be used uninitialized in this function gold-stalin.c:4482: warning: `a368' might be used uninitialized in this function gold-stalin.c:4483: warning: `a369' might be used uninitialized in this function gold-stalin.c:4484: warning: `a370' might be used uninitialized in this function gold-stalin.c:4485: warning: `a371' might be used uninitialized in this function gold-stalin.c:4486: warning: `a372' might be used uninitialized in this function gold-stalin.c:4487: warning: `a373' might be used uninitialized in this function gold-stalin.c:4488: warning: `a374' might be used uninitialized in this function gold-stalin.c:4489: warning: `a375' might be used uninitialized in this function gold-stalin.c:4490: warning: `a376' might be used uninitialized in this function gold-stalin.c:4491: warning: `a377' might be used uninitialized in this function gold-stalin.c:4492: warning: `a378' might be used uninitialized in this function gold-stalin.c:4493: warning: `a379' might be used uninitialized in this function gold-stalin.c:4494: warning: `a380' might be used uninitialized in this function gold-stalin.c:4495: warning: `a381' might be used uninitialized in this function gold-stalin.c:4496: warning: `a382' might be used uninitialized in this function gold-stalin.c:4497: warning: `a383' might be used uninitialized in this function gold-stalin.c:4498: warning: `a384' might be used uninitialized in this function gold-stalin.c:4499: warning: `a385' might be used uninitialized in this function gold-stalin.c:4500: warning: `a386' might be used uninitialized in this function gold-stalin.c:4501: warning: `a387' might be used uninitialized in this function gold-stalin.c:4502: warning: `a388' might be used uninitialized in this function gold-stalin.c:4503: warning: `a389' might be used uninitialized in this function gold-stalin.c:4504: warning: `a390' might be used uninitialized in this function gold-stalin.c:4505: warning: `a391' might be used uninitialized in this function gold-stalin.c:4506: warning: `a392' might be used uninitialized in this function gold-stalin.c:4507: warning: `a393' might be used uninitialized in this function gold-stalin.c:4508: warning: `a394' might be used uninitialized in this function gold-stalin.c:4509: warning: `a395' might be used uninitialized in this function gold-stalin.c:4510: warning: `a396' might be used uninitialized in this function gold-stalin.c:4511: warning: `a397' might be used uninitialized in this function gold-stalin.c:4512: warning: `a398' might be used uninitialized in this function gold-stalin.c:4513: warning: `a399' might be used uninitialized in this function gold-stalin.c:4514: warning: `a400' might be used uninitialized in this function gold-stalin.c:4515: warning: `a401' might be used uninitialized in this function gold-stalin.c:4516: warning: `a402' might be used uninitialized in this function gold-stalin.c:4517: warning: `a403' might be used uninitialized in this function gold-stalin.c:4518: warning: `a404' might be used uninitialized in this function gold-stalin.c:4519: warning: `a405' might be used uninitialized in this function gold-stalin.c:4520: warning: `a406' might be used uninitialized in this function gold-stalin.c:4521: warning: `a407' might be used uninitialized in this function gold-stalin.c:4522: warning: `a408' might be used uninitialized in this function gold-stalin.c:4523: warning: `a409' might be used uninitialized in this function gold-stalin.c:4524: warning: `a410' might be used uninitialized in this function gold-stalin.c:4525: warning: `a411' might be used uninitialized in this function gold-stalin.c:4526: warning: `a412' might be used uninitialized in this function gold-stalin.c:4527: warning: `a413' might be used uninitialized in this function gold-stalin.c:4528: warning: `a414' might be used uninitialized in this function gold-stalin.c:4529: warning: `a415' might be used uninitialized in this function gold-stalin.c:4530: warning: `a416' might be used uninitialized in this function gold-stalin.c:4531: warning: `a417' might be used uninitialized in this function gold-stalin.c:4532: warning: `a418' might be used uninitialized in this function gold-stalin.c:4533: warning: `a419' might be used uninitialized in this function gold-stalin.c:4534: warning: `a420' might be used uninitialized in this function gold-stalin.c:4535: warning: `a421' might be used uninitialized in this function gold-stalin.c:4536: warning: `a422' might be used uninitialized in this function gold-stalin.c:4537: warning: `a423' might be used uninitialized in this function gold-stalin.c:4538: warning: `a424' might be used uninitialized in this function gold-stalin.c:4539: warning: `a425' might be used uninitialized in this function gold-stalin.c:4540: warning: `a426' might be used uninitialized in this function gold-stalin.c:4541: warning: `a427' might be used uninitialized in this function gold-stalin.c:4542: warning: `a428' might be used uninitialized in this function gold-stalin.c:4543: warning: `a429' might be used uninitialized in this function gold-stalin.c:4544: warning: `a430' might be used uninitialized in this function gold-stalin.c:4545: warning: `a431' might be used uninitialized in this function gold-stalin.c:4546: warning: `a432' might be used uninitialized in this function gold-stalin.c:4547: warning: `a433' might be used uninitialized in this function gold-stalin.c:4548: warning: `a434' might be used uninitialized in this function gold-stalin.c:4549: warning: `a435' might be used uninitialized in this function gold-stalin.c:4763: warning: `a649' might be used uninitialized in this function gold-stalin.c:4764: warning: `a650' might be used uninitialized in this function gold-stalin.c:4765: warning: `a651' might be used uninitialized in this function gold-stalin.c:4766: warning: `a652' might be used uninitialized in this function gold-stalin.c:4767: warning: `a653' might be used uninitialized in this function gold-stalin.c:4768: warning: `a654' might be used uninitialized in this function gold-stalin.c:4769: warning: `a655' might be used uninitialized in this function gold-stalin.c:4770: warning: `a657' might be used uninitialized in this function gold-stalin.c:4771: warning: `a658' might be used uninitialized in this function gold-stalin.c:4772: warning: `a659' might be used uninitialized in this function gold-stalin.c:4773: warning: `a660' might be used uninitialized in this function gold-stalin.c:4774: warning: `a661' might be used uninitialized in this function gold-stalin.c:4775: warning: `a662' might be used uninitialized in this function gold-stalin.c:4776: warning: `a663' might be used uninitialized in this function gold-stalin.c:4777: warning: `a664' might be used uninitialized in this function gold-stalin.c:4778: warning: `a665' might be used uninitialized in this function gold-stalin.c:4779: warning: `a666' might be used uninitialized in this function gold-stalin.c:4780: warning: `a667' might be used uninitialized in this function gold-stalin.c:4781: warning: `a668' might be used uninitialized in this function gold-stalin.c:4782: warning: `a669' might be used uninitialized in this function gold-stalin.c:4783: warning: `a670' might be used uninitialized in this function gold-stalin.c:4784: warning: `a671' might be used uninitialized in this function gold-stalin.c:4785: warning: `a672' might be used uninitialized in this function gold-stalin.c:4786: warning: `a673' might be used uninitialized in this function gold-stalin.c:4787: warning: `a674' might be used uninitialized in this function gold-stalin.c:4788: warning: `a675' might be used uninitialized in this function gold-stalin.c:4789: warning: `a676' might be used uninitialized in this function gold-stalin.c:4790: warning: `a677' might be used uninitialized in this function gold-stalin.c:4791: warning: `a678' might be used uninitialized in this function gold-stalin.c:4792: warning: `a679' might be used uninitialized in this function gold-stalin.c:4793: warning: `a680' might be used uninitialized in this function gold-stalin.c:4794: warning: `a681' might be used uninitialized in this function gold-stalin.c:4795: warning: `a683' might be used uninitialized in this function gold-stalin.c:4805: warning: `a699' might be used uninitialized in this function gold-stalin.c:4815: warning: `a766' might be used uninitialized in this function gold-stalin.c:4816: warning: `a767' might be used uninitialized in this function gold-stalin.c:4818: warning: `a769' might be used uninitialized in this function gold-stalin.c:4820: warning: `a771' might be used uninitialized in this function gold-stalin.c:4822: warning: `a773' might be used uninitialized in this function gold-stalin.c:4824: warning: `a775' might be used uninitialized in this function gold-stalin.c:4826: warning: `a777' might be used uninitialized in this function gold-stalin.c:4828: warning: `a779' might be used uninitialized in this function gold-stalin.c:4829: warning: `a971' might be used uninitialized in this function gold-stalin.c:4830: warning: `a1834' might be used uninitialized in this function gold-stalin.c:4831: warning: `a1835' might be used uninitialized in this function gold-stalin.c:4835: warning: `a1839' might be used uninitialized in this function gold-stalin.c:4836: warning: `a1840' might be used uninitialized in this function gold-stalin.c:4837: warning: `a1841' might be used uninitialized in this function gold-stalin.c:4838: warning: `a1842' might be used uninitialized in this function gold-stalin.c:4839: warning: `a1843' might be used uninitialized in this function gold-stalin.c:4840: warning: `a1844' might be used uninitialized in this function gold-stalin.c:4841: warning: `a1845' might be used uninitialized in this function gold-stalin.c:4842: warning: `a1846' might be used uninitialized in this function gold-stalin.c:4843: warning: `a1847' might be used uninitialized in this function gold-stalin.c:4844: warning: `a1848' might be used uninitialized in this function gold-stalin.c:4845: warning: `a1849' might be used uninitialized in this function gold-stalin.c:4846: warning: `a1850' might be used uninitialized in this function gold-stalin.c:4847: warning: `a1851' might be used uninitialized in this function gold-stalin.c:4848: warning: `a1852' might be used uninitialized in this function gold-stalin.c:4849: warning: `a1853' might be used uninitialized in this function gold-stalin.c:4850: warning: `a1854' might be used uninitialized in this function gold-stalin.c:4851: warning: `a1855' might be used uninitialized in this function gold-stalin.c:4852: warning: `a1856' might be used uninitialized in this function gold-stalin.c:4853: warning: `a1857' might be used uninitialized in this function gold-stalin.c:4854: warning: `a1858' might be used uninitialized in this function gold-stalin.c:4855: warning: `a1859' might be used uninitialized in this function gold-stalin.c:4856: warning: `a1860' might be used uninitialized in this function gold-stalin.c:4857: warning: `a1861' might be used uninitialized in this function gold-stalin.c:4858: warning: `a1862' might be used uninitialized in this function gold-stalin.c:4859: warning: `a1863' might be used uninitialized in this function gold-stalin.c:4860: warning: `a1864' might be used uninitialized in this function gold-stalin.c:4861: warning: `a1865' might be used uninitialized in this function gold-stalin.c:4862: warning: `a1866' might be used uninitialized in this function gold-stalin.c:4863: warning: `a1867' might be used uninitialized in this function gold-stalin.c:4864: warning: `a1868' might be used uninitialized in this function gold-stalin.c:4865: warning: `a1869' might be used uninitialized in this function gold-stalin.c:4866: warning: `a1870' might be used uninitialized in this function gold-stalin.c:4867: warning: `a1871' might be used uninitialized in this function gold-stalin.c:4868: warning: `a1872' might be used uninitialized in this function gold-stalin.c:4871: warning: `a1921' might be used uninitialized in this function gold-stalin.c:4873: warning: `a1923' might be used uninitialized in this function gold-stalin.c:4877: warning: `a1927' might be used uninitialized in this function gold-stalin.c:4883: warning: `a2176' might be used uninitialized in this function gold-stalin.c:4884: warning: `a2177' might be used uninitialized in this function gold-stalin.c:4888: warning: `t1164' might be used uninitialized in this function gold-stalin.c:4889: warning: `t1165' might be used uninitialized in this function gold-stalin.c:4890: warning: `t1166' might be used uninitialized in this function gold-stalin.c:4891: warning: `t1167' might be used uninitialized in this function gold-stalin.c:4892: warning: `t1168' might be used uninitialized in this function gold-stalin.c:4893: warning: `t1169' might be used uninitialized in this function gold-stalin.c:4894: warning: `t1170' might be used uninitialized in this function gold-stalin.c:4895: warning: `t1171' might be used uninitialized in this function gold-stalin.c:4896: warning: `t1172' might be used uninitialized in this function gold-stalin.c:4899: warning: `t1175' might be used uninitialized in this function gold-stalin.c:4900: warning: `t1176' might be used uninitialized in this function gold-stalin.c:4901: warning: `t1177' might be used uninitialized in this function gold-stalin.c:4902: warning: `t1178' might be used uninitialized in this function gold-stalin.c:4903: warning: `t1179' might be used uninitialized in this function gold-stalin.c:4904: warning: `t1180' might be used uninitialized in this function gold-stalin.c:4905: warning: `t1181' might be used uninitialized in this function gold-stalin.c:4906: warning: `t1182' might be used uninitialized in this function gold-stalin.c:4907: warning: `t1183' might be used uninitialized in this function gold-stalin.c:4908: warning: `t1184' might be used uninitialized in this function gold-stalin.c:4909: warning: `t1185' might be used uninitialized in this function gold-stalin.c:4910: warning: `t1186' might be used uninitialized in this function gold-stalin.c:4911: warning: `t1187' might be used uninitialized in this function gold-stalin.c:4912: warning: `t1188' might be used uninitialized in this function gold-stalin.c:4913: warning: `t1189' might be used uninitialized in this function gold-stalin.c:4914: warning: `t1190' might be used uninitialized in this function gold-stalin.c:4915: warning: `t1191' might be used uninitialized in this function gold-stalin.c:4916: warning: `t1192' might be used uninitialized in this function gold-stalin.c:4917: warning: `t1193' might be used uninitialized in this function gold-stalin.c:4918: warning: `t1194' might be used uninitialized in this function gold-stalin.c:4919: warning: `t1195' might be used uninitialized in this function gold-stalin.c:4920: warning: `t1196' might be used uninitialized in this function gold-stalin.c:4921: warning: `t1197' might be used uninitialized in this function gold-stalin.c:4922: warning: `t1198' might be used uninitialized in this function gold-stalin.c:4923: warning: `t1199' might be used uninitialized in this function gold-stalin.c:4924: warning: `t1200' might be used uninitialized in this function gold-stalin.c:4925: warning: `t1201' might be used uninitialized in this function gold-stalin.c:4926: warning: `t1202' might be used uninitialized in this function gold-stalin.c:4927: warning: `t1203' might be used uninitialized in this function gold-stalin.c:4928: warning: `t1204' might be used uninitialized in this function gold-stalin.c:4929: warning: `t1205' might be used uninitialized in this function gold-stalin.c:4930: warning: `t1206' might be used uninitialized in this function gold-stalin.c:4931: warning: `t1207' might be used uninitialized in this function gold-stalin.c:4932: warning: `t1208' might be used uninitialized in this function gold-stalin.c:4933: warning: `t1209' might be used uninitialized in this function gold-stalin.c:4934: warning: `t1210' might be used uninitialized in this function gold-stalin.c:4935: warning: `t1211' might be used uninitialized in this function gold-stalin.c:4936: warning: `t1212' might be used uninitialized in this function gold-stalin.c:4937: warning: `t1213' might be used uninitialized in this function gold-stalin.c:4938: warning: `t1214' might be used uninitialized in this function gold-stalin.c:4939: warning: `t1215' might be used uninitialized in this function gold-stalin.c:4940: warning: `t1216' might be used uninitialized in this function gold-stalin.c:4941: warning: `t1217' might be used uninitialized in this function gold-stalin.c:4942: warning: `t1218' might be used uninitialized in this function gold-stalin.c:4943: warning: `t1219' might be used uninitialized in this function gold-stalin.c:4944: warning: `t1220' might be used uninitialized in this function gold-stalin.c:4945: warning: `t1221' might be used uninitialized in this function gold-stalin.c:4946: warning: `t1222' might be used uninitialized in this function gold-stalin.c:4947: warning: `t1223' might be used uninitialized in this function gold-stalin.c:4948: warning: `t1224' might be used uninitialized in this function gold-stalin.c:4949: warning: `t1225' might be used uninitialized in this function gold-stalin.c:4950: warning: `t1226' might be used uninitialized in this function gold-stalin.c:4951: warning: `t1227' might be used uninitialized in this function gold-stalin.c:4952: warning: `t1228' might be used uninitialized in this function gold-stalin.c:4953: warning: `t1229' might be used uninitialized in this function gold-stalin.c:4954: warning: `t1230' might be used uninitialized in this function gold-stalin.c:4955: warning: `t1231' might be used uninitialized in this function gold-stalin.c:4956: warning: `t1232' might be used uninitialized in this function gold-stalin.c:4957: warning: `t1233' might be used uninitialized in this function gold-stalin.c:4958: warning: `t1234' might be used uninitialized in this function gold-stalin.c:4959: warning: `t1235' might be used uninitialized in this function gold-stalin.c:4960: warning: `t1236' might be used uninitialized in this function gold-stalin.c:4961: warning: `t1237' might be used uninitialized in this function gold-stalin.c:4962: warning: `t1238' might be used uninitialized in this function gold-stalin.c:4963: warning: `t1239' might be used uninitialized in this function gold-stalin.c:4964: warning: `t1240' might be used uninitialized in this function gold-stalin.c:4965: warning: `t1241' might be used uninitialized in this function gold-stalin.c:4966: warning: `t1242' might be used uninitialized in this function gold-stalin.c:4967: warning: `t1243' might be used uninitialized in this function gold-stalin.c:4968: warning: `t1244' might be used uninitialized in this function gold-stalin.c:4969: warning: `t1245' might be used uninitialized in this function gold-stalin.c:4970: warning: `t1246' might be used uninitialized in this function gold-stalin.c:4971: warning: `t1247' might be used uninitialized in this function gold-stalin.c:4972: warning: `t1248' might be used uninitialized in this function gold-stalin.c:4973: warning: `t1249' might be used uninitialized in this function gold-stalin.c:4974: warning: `t1250' might be used uninitialized in this function gold-stalin.c:4975: warning: `t1251' might be used uninitialized in this function gold-stalin.c:4976: warning: `t1252' might be used uninitialized in this function gold-stalin.c:4977: warning: `t1253' might be used uninitialized in this function gold-stalin.c:4978: warning: `t1254' might be used uninitialized in this function gold-stalin.c:4979: warning: `t1255' might be used uninitialized in this function gold-stalin.c:4980: warning: `t1256' might be used uninitialized in this function gold-stalin.c:4981: warning: `t1257' might be used uninitialized in this function gold-stalin.c:4982: warning: `t1258' might be used uninitialized in this function gold-stalin.c:4983: warning: `t1259' might be used uninitialized in this function gold-stalin.c:4984: warning: `t1260' might be used uninitialized in this function gold-stalin.c:4985: warning: `t1261' might be used uninitialized in this function gold-stalin.c:4986: warning: `t1262' might be used uninitialized in this function gold-stalin.c:4987: warning: `t1263' might be used uninitialized in this function gold-stalin.c:4988: warning: `t1264' might be used uninitialized in this function gold-stalin.c:4989: warning: `t1265' might be used uninitialized in this function gold-stalin.c:4990: warning: `t1266' might be used uninitialized in this function gold-stalin.c:4991: warning: `t1267' might be used uninitialized in this function gold-stalin.c:4992: warning: `t1268' might be used uninitialized in this function gold-stalin.c:4993: warning: `t1269' might be used uninitialized in this function gold-stalin.c:4994: warning: `t1270' might be used uninitialized in this function gold-stalin.c:4995: warning: `t1271' might be used uninitialized in this function gold-stalin.c:4996: warning: `t1272' might be used uninitialized in this function gold-stalin.c:4997: warning: `t1273' might be used uninitialized in this function gold-stalin.c:4998: warning: `t1274' might be used uninitialized in this function gold-stalin.c:4999: warning: `t1275' might be used uninitialized in this function gold-stalin.c:5000: warning: `t1276' might be used uninitialized in this function gold-stalin.c:5001: warning: `t1277' might be used uninitialized in this function gold-stalin.c:5002: warning: `t1278' might be used uninitialized in this function gold-stalin.c:5003: warning: `t1279' might be used uninitialized in this function gold-stalin.c:5004: warning: `t1280' might be used uninitialized in this function gold-stalin.c:5005: warning: `t1281' might be used uninitialized in this function gold-stalin.c:5006: warning: `t1282' might be used uninitialized in this function gold-stalin.c:5007: warning: `t1283' might be used uninitialized in this function gold-stalin.c:5008: warning: `t1284' might be used uninitialized in this function gold-stalin.c:5009: warning: `t1285' might be used uninitialized in this function gold-stalin.c:5010: warning: `t1286' might be used uninitialized in this function gold-stalin.c:5011: warning: `t1287' might be used uninitialized in this function gold-stalin.c:5012: warning: `t1288' might be used uninitialized in this function gold-stalin.c:5013: warning: `t1289' might be used uninitialized in this function gold-stalin.c:5014: warning: `t1290' might be used uninitialized in this function gold-stalin.c:5015: warning: `t1291' might be used uninitialized in this function gold-stalin.c:5016: warning: `t1292' might be used uninitialized in this function gold-stalin.c:5017: warning: `t1293' might be used uninitialized in this function gold-stalin.c:5018: warning: `t1294' might be used uninitialized in this function gold-stalin.c:5019: warning: `t1295' might be used uninitialized in this function gold-stalin.c:5020: warning: `t1296' might be used uninitialized in this function gold-stalin.c:5021: warning: `t1297' might be used uninitialized in this function gold-stalin.c:5022: warning: `t1298' might be used uninitialized in this function gold-stalin.c:5023: warning: `t1299' might be used uninitialized in this function gold-stalin.c:5024: warning: `t1300' might be used uninitialized in this function gold-stalin.c:5025: warning: `t1301' might be used uninitialized in this function gold-stalin.c:5026: warning: `t1302' might be used uninitialized in this function gold-stalin.c:5027: warning: `t1303' might be used uninitialized in this function gold-stalin.c:5028: warning: `t1304' might be used uninitialized in this function gold-stalin.c:5029: warning: `t1305' might be used uninitialized in this function gold-stalin.c:5030: warning: `t1306' might be used uninitialized in this function gold-stalin.c:5031: warning: `t1307' might be used uninitialized in this function gold-stalin.c:5032: warning: `t1308' might be used uninitialized in this function gold-stalin.c:5033: warning: `t1309' might be used uninitialized in this function gold-stalin.c:5034: warning: `t1310' might be used uninitialized in this function gold-stalin.c:5035: warning: `t1311' might be used uninitialized in this function gold-stalin.c:5036: warning: `t1312' might be used uninitialized in this function gold-stalin.c:5037: warning: `t1313' might be used uninitialized in this function gold-stalin.c:5038: warning: `t1314' might be used uninitialized in this function gold-stalin.c:5039: warning: `t1315' might be used uninitialized in this function gold-stalin.c:5040: warning: `t1316' might be used uninitialized in this function gold-stalin.c:5041: warning: `t1317' might be used uninitialized in this function gold-stalin.c:5042: warning: `t1318' might be used uninitialized in this function gold-stalin.c:5043: warning: `t1319' might be used uninitialized in this function gold-stalin.c:5044: warning: `t1320' might be used uninitialized in this function gold-stalin.c:5045: warning: `t1321' might be used uninitialized in this function gold-stalin.c:5046: warning: `t1322' might be used uninitialized in this function gold-stalin.c:5047: warning: `t1323' might be used uninitialized in this function gold-stalin.c:5048: warning: `t1324' might be used uninitialized in this function gold-stalin.c:5049: warning: `t1325' might be used uninitialized in this function gold-stalin.c:5050: warning: `t1326' might be used uninitialized in this function gold-stalin.c:5051: warning: `t1327' might be used uninitialized in this function gold-stalin.c:5052: warning: `t1328' might be used uninitialized in this function gold-stalin.c:5053: warning: `t1329' might be used uninitialized in this function gold-stalin.c:5054: warning: `t1330' might be used uninitialized in this function gold-stalin.c:5055: warning: `t1331' might be used uninitialized in this function gold-stalin.c:5056: warning: `t1332' might be used uninitialized in this function gold-stalin.c:5057: warning: `t1333' might be used uninitialized in this function gold-stalin.c:5058: warning: `t1334' might be used uninitialized in this function gold-stalin.c:5059: warning: `t1335' might be used uninitialized in this function gold-stalin.c:5060: warning: `t1336' might be used uninitialized in this function gold-stalin.c:5061: warning: `t1337' might be used uninitialized in this function gold-stalin.c:5062: warning: `t1338' might be used uninitialized in this function gold-stalin.c:5063: warning: `t1339' might be used uninitialized in this function gold-stalin.c:5064: warning: `t1340' might be used uninitialized in this function gold-stalin.c:5065: warning: `t1341' might be used uninitialized in this function gold-stalin.c:5066: warning: `t1342' might be used uninitialized in this function gold-stalin.c:5067: warning: `t1343' might be used uninitialized in this function gold-stalin.c:5068: warning: `t1344' might be used uninitialized in this function gold-stalin.c:5069: warning: `t1345' might be used uninitialized in this function gold-stalin.c:5070: warning: `t1346' might be used uninitialized in this function gold-stalin.c:5071: warning: `t1347' might be used uninitialized in this function gold-stalin.c:5072: warning: `t1348' might be used uninitialized in this function gold-stalin.c:5073: warning: `t1349' might be used uninitialized in this function gold-stalin.c:5074: warning: `t1350' might be used uninitialized in this function gold-stalin.c:5075: warning: `t1351' might be used uninitialized in this function gold-stalin.c:5076: warning: `t1352' might be used uninitialized in this function gold-stalin.c:5077: warning: `t1353' might be used uninitialized in this function gold-stalin.c:5078: warning: `t1354' might be used uninitialized in this function gold-stalin.c:5079: warning: `t1355' might be used uninitialized in this function gold-stalin.c:5080: warning: `t1356' might be used uninitialized in this function gold-stalin.c:5081: warning: `t1357' might be used uninitialized in this function gold-stalin.c:5082: warning: `t1358' might be used uninitialized in this function gold-stalin.c:5083: warning: `t1359' might be used uninitialized in this function gold-stalin.c:5084: warning: `t1360' might be used uninitialized in this function gold-stalin.c:5085: warning: `t1361' might be used uninitialized in this function gold-stalin.c:5086: warning: `t1362' might be used uninitialized in this function gold-stalin.c:5087: warning: `t1363' might be used uninitialized in this function gold-stalin.c:5088: warning: `t1364' might be used uninitialized in this function gold-stalin.c:5089: warning: `t1365' might be used uninitialized in this function gold-stalin.c:5090: warning: `t1366' might be used uninitialized in this function gold-stalin.c:5091: warning: `t1367' might be used uninitialized in this function gold-stalin.c:5092: warning: `t1368' might be used uninitialized in this function gold-stalin.c:5093: warning: `t1369' might be used uninitialized in this function gold-stalin.c:5094: warning: `t1370' might be used uninitialized in this function gold-stalin.c:5095: warning: `t1371' might be used uninitialized in this function gold-stalin.c:5096: warning: `t1372' might be used uninitialized in this function gold-stalin.c:5097: warning: `t1373' might be used uninitialized in this function gold-stalin.c:5098: warning: `t1374' might be used uninitialized in this function gold-stalin.c:5099: warning: `t1375' might be used uninitialized in this function gold-stalin.c:5100: warning: `t1376' might be used uninitialized in this function gold-stalin.c:5366: warning: `t1745' might be used uninitialized in this function 27.16user 1.50system 0:32.65elapsed 87%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33131major+225067minor)pagefaults 0swaps compile sort (STATIC-COUNTS 2192 2192 2192 2192 0 0 0 2192 2139 1153 43 124 7 31 1.186761229314421 4114 4114 470 258) sort-stalin.c: In function `f58': sort-stalin.c:2386: warning: unused variable `p2146' sort-stalin.c:2378: warning: unused variable `p2135' sort-stalin.c:2375: warning: unused variable `p2129' sort-stalin.c:2372: warning: unused variable `p2123' sort-stalin.c:2342: warning: unused variable `e2146' sort-stalin.c:2334: warning: unused variable `e2135' sort-stalin.c:2329: warning: unused variable `e2129' sort-stalin.c:2324: warning: unused variable `e2123' sort-stalin.c:2112: warning: unused variable `a2202' sort-stalin.c:2099: warning: unused variable `a2189' sort-stalin.c:2091: warning: unused variable `a2181' sort-stalin.c:2083: warning: unused variable `a2173' sort-stalin.c:2052: warning: `a692' might be used uninitialized in this function sort-stalin.c:2053: warning: `a693' might be used uninitialized in this function sort-stalin.c:2054: warning: `a694' might be used uninitialized in this function sort-stalin.c:2058: warning: `a698' might be used uninitialized in this function sort-stalin.c:2059: warning: `a699' might be used uninitialized in this function sort-stalin.c:2067: warning: `a720' might be used uninitialized in this function sort-stalin.c:2068: warning: `a721' might be used uninitialized in this function sort-stalin.c:2069: warning: `a722' might be used uninitialized in this function sort-stalin.c:2070: warning: `a723' might be used uninitialized in this function sort-stalin.c:2072: warning: `a725' might be used uninitialized in this function sort-stalin.c:2073: warning: `a726' might be used uninitialized in this function sort-stalin.c:2078: warning: `a2168' might be used uninitialized in this function sort-stalin.c:2080: warning: `a2170' might be used uninitialized in this function sort-stalin.c:2082: warning: `a2172' might be used uninitialized in this function sort-stalin.c:2086: warning: `a2176' might be used uninitialized in this function sort-stalin.c:2088: warning: `a2178' might be used uninitialized in this function sort-stalin.c:2090: warning: `a2180' might be used uninitialized in this function sort-stalin.c:2094: warning: `a2184' might be used uninitialized in this function sort-stalin.c:2096: warning: `a2186' might be used uninitialized in this function sort-stalin.c:2098: warning: `a2188' might be used uninitialized in this function sort-stalin.c:2103: warning: `a2193' might be used uninitialized in this function sort-stalin.c:2104: warning: `a2194' might be used uninitialized in this function sort-stalin.c:2107: warning: `a2197' might be used uninitialized in this function sort-stalin.c:2109: warning: `a2199' might be used uninitialized in this function sort-stalin.c:2111: warning: `a2201' might be used uninitialized in this function sort-stalin.c:2142: warning: `t66' might be used uninitialized in this function sort-stalin.c:2185: warning: `t129' might be used uninitialized in this function sort-stalin.c:2205: warning: `t160' might be used uninitialized in this function sort-stalin.c:2254: warning: `t234' might be used uninitialized in this function sort-stalin.c: In function `f0': sort-stalin.c:5157: warning: unused variable `p2117' sort-stalin.c:5139: warning: unused variable `p513' sort-stalin.c:5136: warning: unused variable `p387' sort-stalin.c:5079: warning: unused variable `e2117' sort-stalin.c:5073: warning: unused variable `e1480' sort-stalin.c:5061: warning: unused variable `e513' sort-stalin.c:5056: warning: unused variable `e387' sort-stalin.c:5050: warning: unused variable `e255' sort-stalin.c:5046: warning: unused variable `e227' sort-stalin.c:5040: warning: unused variable `e215' sort-stalin.c:5039: warning: unused variable `e214' sort-stalin.c:5007: warning: unused variable `e21' sort-stalin.c:4263: warning: unused variable `a2165' sort-stalin.c:4252: warning: unused variable `a1911' sort-stalin.c:4201: warning: unused variable `a1102' sort-stalin.c:4192: warning: unused variable `a967' sort-stalin.c:4183: warning: unused variable `a872' sort-stalin.c:4179: warning: unused variable `a851' sort-stalin.c:4173: warning: unused variable `a842' sort-stalin.c:4172: warning: unused variable `a841' sort-stalin.c:4135: warning: unused variable `a678' sort-stalin.c:3465: warning: `a1' might be used uninitialized in this function sort-stalin.c:3466: warning: `a2' might be used uninitialized in this function sort-stalin.c:3467: warning: `a3' might be used uninitialized in this function sort-stalin.c:3468: warning: `a4' might be used uninitialized in this function sort-stalin.c:3469: warning: `a5' might be used uninitialized in this function sort-stalin.c:3470: warning: `a6' might be used uninitialized in this function sort-stalin.c:3471: warning: `a7' might be used uninitialized in this function sort-stalin.c:3472: warning: `a8' might be used uninitialized in this function sort-stalin.c:3473: warning: `a9' might be used uninitialized in this function sort-stalin.c:3474: warning: `a10' might be used uninitialized in this function sort-stalin.c:3475: warning: `a11' might be used uninitialized in this function sort-stalin.c:3476: warning: `a12' might be used uninitialized in this function sort-stalin.c:3477: warning: `a13' might be used uninitialized in this function sort-stalin.c:3478: warning: `a14' might be used uninitialized in this function sort-stalin.c:3479: warning: `a15' might be used uninitialized in this function sort-stalin.c:3480: warning: `a16' might be used uninitialized in this function sort-stalin.c:3481: warning: `a17' might be used uninitialized in this function sort-stalin.c:3482: warning: `a18' might be used uninitialized in this function sort-stalin.c:3483: warning: `a19' might be used uninitialized in this function sort-stalin.c:3484: warning: `a20' might be used uninitialized in this function sort-stalin.c:3485: warning: `a21' might be used uninitialized in this function sort-stalin.c:3486: warning: `a22' might be used uninitialized in this function sort-stalin.c:3487: warning: `a23' might be used uninitialized in this function sort-stalin.c:3488: warning: `a24' might be used uninitialized in this function sort-stalin.c:3489: warning: `a25' might be used uninitialized in this function sort-stalin.c:3490: warning: `a26' might be used uninitialized in this function sort-stalin.c:3491: warning: `a27' might be used uninitialized in this function sort-stalin.c:3492: warning: `a28' might be used uninitialized in this function sort-stalin.c:3493: warning: `a29' might be used uninitialized in this function sort-stalin.c:3494: warning: `a30' might be used uninitialized in this function sort-stalin.c:3495: warning: `a31' might be used uninitialized in this function sort-stalin.c:3496: warning: `a32' might be used uninitialized in this function sort-stalin.c:3497: warning: `a33' might be used uninitialized in this function sort-stalin.c:3498: warning: `a34' might be used uninitialized in this function sort-stalin.c:3499: warning: `a35' might be used uninitialized in this function sort-stalin.c:3500: warning: `a36' might be used uninitialized in this function sort-stalin.c:3501: warning: `a37' might be used uninitialized in this function sort-stalin.c:3502: warning: `a38' might be used uninitialized in this function sort-stalin.c:3503: warning: `a39' might be used uninitialized in this function sort-stalin.c:3504: warning: `a40' might be used uninitialized in this function sort-stalin.c:3505: warning: `a41' might be used uninitialized in this function sort-stalin.c:3506: warning: `a42' might be used uninitialized in this function sort-stalin.c:3507: warning: `a43' might be used uninitialized in this function sort-stalin.c:3508: warning: `a44' might be used uninitialized in this function sort-stalin.c:3509: warning: `a45' might be used uninitialized in this function sort-stalin.c:3510: warning: `a46' might be used uninitialized in this function sort-stalin.c:3511: warning: `a47' might be used uninitialized in this function sort-stalin.c:3512: warning: `a48' might be used uninitialized in this function sort-stalin.c:3513: warning: `a49' might be used uninitialized in this function sort-stalin.c:3514: warning: `a50' might be used uninitialized in this function sort-stalin.c:3515: warning: `a51' might be used uninitialized in this function sort-stalin.c:3516: warning: `a52' might be used uninitialized in this function sort-stalin.c:3517: warning: `a53' might be used uninitialized in this function sort-stalin.c:3518: warning: `a54' might be used uninitialized in this function sort-stalin.c:3519: warning: `a55' might be used uninitialized in this function sort-stalin.c:3520: warning: `a56' might be used uninitialized in this function sort-stalin.c:3521: warning: `a57' might be used uninitialized in this function sort-stalin.c:3522: warning: `a58' might be used uninitialized in this function sort-stalin.c:3523: warning: `a59' might be used uninitialized in this function sort-stalin.c:3524: warning: `a60' might be used uninitialized in this function sort-stalin.c:3525: warning: `a61' might be used uninitialized in this function sort-stalin.c:3526: warning: `a62' might be used uninitialized in this function sort-stalin.c:3527: warning: `a63' might be used uninitialized in this function sort-stalin.c:3528: warning: `a64' might be used uninitialized in this function sort-stalin.c:3529: warning: `a65' might be used uninitialized in this function sort-stalin.c:3530: warning: `a66' might be used uninitialized in this function sort-stalin.c:3531: warning: `a67' might be used uninitialized in this function sort-stalin.c:3532: warning: `a68' might be used uninitialized in this function sort-stalin.c:3533: warning: `a69' might be used uninitialized in this function sort-stalin.c:3534: warning: `a70' might be used uninitialized in this function sort-stalin.c:3535: warning: `a71' might be used uninitialized in this function sort-stalin.c:3536: warning: `a72' might be used uninitialized in this function sort-stalin.c:3537: warning: `a73' might be used uninitialized in this function sort-stalin.c:3538: warning: `a74' might be used uninitialized in this function sort-stalin.c:3539: warning: `a75' might be used uninitialized in this function sort-stalin.c:3540: warning: `a76' might be used uninitialized in this function sort-stalin.c:3541: warning: `a77' might be used uninitialized in this function sort-stalin.c:3542: warning: `a78' might be used uninitialized in this function sort-stalin.c:3543: warning: `a79' might be used uninitialized in this function sort-stalin.c:3544: warning: `a80' might be used uninitialized in this function sort-stalin.c:3545: warning: `a81' might be used uninitialized in this function sort-stalin.c:3546: warning: `a82' might be used uninitialized in this function sort-stalin.c:3547: warning: `a83' might be used uninitialized in this function sort-stalin.c:3548: warning: `a84' might be used uninitialized in this function sort-stalin.c:3549: warning: `a85' might be used uninitialized in this function sort-stalin.c:3550: warning: `a86' might be used uninitialized in this function sort-stalin.c:3551: warning: `a87' might be used uninitialized in this function sort-stalin.c:3552: warning: `a88' might be used uninitialized in this function sort-stalin.c:3553: warning: `a89' might be used uninitialized in this function sort-stalin.c:3554: warning: `a90' might be used uninitialized in this function sort-stalin.c:3555: warning: `a91' might be used uninitialized in this function sort-stalin.c:3556: warning: `a92' might be used uninitialized in this function sort-stalin.c:3557: warning: `a93' might be used uninitialized in this function sort-stalin.c:3558: warning: `a94' might be used uninitialized in this function sort-stalin.c:3559: warning: `a95' might be used uninitialized in this function sort-stalin.c:3560: warning: `a96' might be used uninitialized in this function sort-stalin.c:3561: warning: `a97' might be used uninitialized in this function sort-stalin.c:3562: warning: `a98' might be used uninitialized in this function sort-stalin.c:3563: warning: `a99' might be used uninitialized in this function sort-stalin.c:3564: warning: `a100' might be used uninitialized in this function sort-stalin.c:3565: warning: `a101' might be used uninitialized in this function sort-stalin.c:3566: warning: `a102' might be used uninitialized in this function sort-stalin.c:3567: warning: `a103' might be used uninitialized in this function sort-stalin.c:3568: warning: `a104' might be used uninitialized in this function sort-stalin.c:3569: warning: `a105' might be used uninitialized in this function sort-stalin.c:3570: warning: `a106' might be used uninitialized in this function sort-stalin.c:3571: warning: `a107' might be used uninitialized in this function sort-stalin.c:3572: warning: `a108' might be used uninitialized in this function sort-stalin.c:3573: warning: `a109' might be used uninitialized in this function sort-stalin.c:3574: warning: `a110' might be used uninitialized in this function sort-stalin.c:3575: warning: `a111' might be used uninitialized in this function sort-stalin.c:3576: warning: `a112' might be used uninitialized in this function sort-stalin.c:3577: warning: `a113' might be used uninitialized in this function sort-stalin.c:3578: warning: `a114' might be used uninitialized in this function sort-stalin.c:3579: warning: `a115' might be used uninitialized in this function sort-stalin.c:3580: warning: `a116' might be used uninitialized in this function sort-stalin.c:3581: warning: `a117' might be used uninitialized in this function sort-stalin.c:3582: warning: `a118' might be used uninitialized in this function sort-stalin.c:3583: warning: `a119' might be used uninitialized in this function sort-stalin.c:3584: warning: `a120' might be used uninitialized in this function sort-stalin.c:3585: warning: `a121' might be used uninitialized in this function sort-stalin.c:3586: warning: `a122' might be used uninitialized in this function sort-stalin.c:3587: warning: `a123' might be used uninitialized in this function sort-stalin.c:3588: warning: `a124' might be used uninitialized in this function sort-stalin.c:3589: warning: `a125' might be used uninitialized in this function sort-stalin.c:3590: warning: `a126' might be used uninitialized in this function sort-stalin.c:3591: warning: `a127' might be used uninitialized in this function sort-stalin.c:3592: warning: `a128' might be used uninitialized in this function sort-stalin.c:3593: warning: `a129' might be used uninitialized in this function sort-stalin.c:3594: warning: `a130' might be used uninitialized in this function sort-stalin.c:3595: warning: `a131' might be used uninitialized in this function sort-stalin.c:3596: warning: `a132' might be used uninitialized in this function sort-stalin.c:3597: warning: `a133' might be used uninitialized in this function sort-stalin.c:3598: warning: `a134' might be used uninitialized in this function sort-stalin.c:3599: warning: `a135' might be used uninitialized in this function sort-stalin.c:3600: warning: `a136' might be used uninitialized in this function sort-stalin.c:3601: warning: `a137' might be used uninitialized in this function sort-stalin.c:3602: warning: `a138' might be used uninitialized in this function sort-stalin.c:3603: warning: `a139' might be used uninitialized in this function sort-stalin.c:3604: warning: `a140' might be used uninitialized in this function sort-stalin.c:3605: warning: `a141' might be used uninitialized in this function sort-stalin.c:3606: warning: `a142' might be used uninitialized in this function sort-stalin.c:3607: warning: `a143' might be used uninitialized in this function sort-stalin.c:3608: warning: `a144' might be used uninitialized in this function sort-stalin.c:3609: warning: `a145' might be used uninitialized in this function sort-stalin.c:3610: warning: `a146' might be used uninitialized in this function sort-stalin.c:3611: warning: `a147' might be used uninitialized in this function sort-stalin.c:3612: warning: `a148' might be used uninitialized in this function sort-stalin.c:3613: warning: `a149' might be used uninitialized in this function sort-stalin.c:3614: warning: `a150' might be used uninitialized in this function sort-stalin.c:3615: warning: `a151' might be used uninitialized in this function sort-stalin.c:3616: warning: `a152' might be used uninitialized in this function sort-stalin.c:3617: warning: `a153' might be used uninitialized in this function sort-stalin.c:3618: warning: `a154' might be used uninitialized in this function sort-stalin.c:3619: warning: `a155' might be used uninitialized in this function sort-stalin.c:3620: warning: `a156' might be used uninitialized in this function sort-stalin.c:3621: warning: `a157' might be used uninitialized in this function sort-stalin.c:3622: warning: `a158' might be used uninitialized in this function sort-stalin.c:3623: warning: `a159' might be used uninitialized in this function sort-stalin.c:3624: warning: `a160' might be used uninitialized in this function sort-stalin.c:3625: warning: `a161' might be used uninitialized in this function sort-stalin.c:3626: warning: `a162' might be used uninitialized in this function sort-stalin.c:3627: warning: `a163' might be used uninitialized in this function sort-stalin.c:3628: warning: `a164' might be used uninitialized in this function sort-stalin.c:3629: warning: `a165' might be used uninitialized in this function sort-stalin.c:3630: warning: `a166' might be used uninitialized in this function sort-stalin.c:3631: warning: `a167' might be used uninitialized in this function sort-stalin.c:3632: warning: `a168' might be used uninitialized in this function sort-stalin.c:3633: warning: `a169' might be used uninitialized in this function sort-stalin.c:3634: warning: `a170' might be used uninitialized in this function sort-stalin.c:3635: warning: `a171' might be used uninitialized in this function sort-stalin.c:3636: warning: `a172' might be used uninitialized in this function sort-stalin.c:3637: warning: `a173' might be used uninitialized in this function sort-stalin.c:3638: warning: `a174' might be used uninitialized in this function sort-stalin.c:3639: warning: `a175' might be used uninitialized in this function sort-stalin.c:3640: warning: `a176' might be used uninitialized in this function sort-stalin.c:3641: warning: `a177' might be used uninitialized in this function sort-stalin.c:3642: warning: `a178' might be used uninitialized in this function sort-stalin.c:3643: warning: `a179' might be used uninitialized in this function sort-stalin.c:3644: warning: `a180' might be used uninitialized in this function sort-stalin.c:3645: warning: `a181' might be used uninitialized in this function sort-stalin.c:3646: warning: `a182' might be used uninitialized in this function sort-stalin.c:3647: warning: `a183' might be used uninitialized in this function sort-stalin.c:3648: warning: `a184' might be used uninitialized in this function sort-stalin.c:3649: warning: `a185' might be used uninitialized in this function sort-stalin.c:3650: warning: `a186' might be used uninitialized in this function sort-stalin.c:3651: warning: `a187' might be used uninitialized in this function sort-stalin.c:3652: warning: `a188' might be used uninitialized in this function sort-stalin.c:3653: warning: `a189' might be used uninitialized in this function sort-stalin.c:3654: warning: `a190' might be used uninitialized in this function sort-stalin.c:3655: warning: `a191' might be used uninitialized in this function sort-stalin.c:3656: warning: `a192' might be used uninitialized in this function sort-stalin.c:3657: warning: `a193' might be used uninitialized in this function sort-stalin.c:3658: warning: `a194' might be used uninitialized in this function sort-stalin.c:3659: warning: `a195' might be used uninitialized in this function sort-stalin.c:3660: warning: `a196' might be used uninitialized in this function sort-stalin.c:3661: warning: `a197' might be used uninitialized in this function sort-stalin.c:3662: warning: `a198' might be used uninitialized in this function sort-stalin.c:3663: warning: `a199' might be used uninitialized in this function sort-stalin.c:3664: warning: `a200' might be used uninitialized in this function sort-stalin.c:3665: warning: `a201' might be used uninitialized in this function sort-stalin.c:3666: warning: `a202' might be used uninitialized in this function sort-stalin.c:3667: warning: `a203' might be used uninitialized in this function sort-stalin.c:3668: warning: `a204' might be used uninitialized in this function sort-stalin.c:3669: warning: `a205' might be used uninitialized in this function sort-stalin.c:3670: warning: `a206' might be used uninitialized in this function sort-stalin.c:3671: warning: `a207' might be used uninitialized in this function sort-stalin.c:3672: warning: `a208' might be used uninitialized in this function sort-stalin.c:3673: warning: `a209' might be used uninitialized in this function sort-stalin.c:3674: warning: `a210' might be used uninitialized in this function sort-stalin.c:3675: warning: `a211' might be used uninitialized in this function sort-stalin.c:3676: warning: `a212' might be used uninitialized in this function sort-stalin.c:3677: warning: `a213' might be used uninitialized in this function sort-stalin.c:3678: warning: `a214' might be used uninitialized in this function sort-stalin.c:3679: warning: `a215' might be used uninitialized in this function sort-stalin.c:3680: warning: `a216' might be used uninitialized in this function sort-stalin.c:3681: warning: `a217' might be used uninitialized in this function sort-stalin.c:3682: warning: `a218' might be used uninitialized in this function sort-stalin.c:3683: warning: `a219' might be used uninitialized in this function sort-stalin.c:3684: warning: `a220' might be used uninitialized in this function sort-stalin.c:3685: warning: `a221' might be used uninitialized in this function sort-stalin.c:3686: warning: `a222' might be used uninitialized in this function sort-stalin.c:3687: warning: `a223' might be used uninitialized in this function sort-stalin.c:3688: warning: `a224' might be used uninitialized in this function sort-stalin.c:3689: warning: `a225' might be used uninitialized in this function sort-stalin.c:3690: warning: `a226' might be used uninitialized in this function sort-stalin.c:3691: warning: `a227' might be used uninitialized in this function sort-stalin.c:3692: warning: `a228' might be used uninitialized in this function sort-stalin.c:3693: warning: `a229' might be used uninitialized in this function sort-stalin.c:3694: warning: `a230' might be used uninitialized in this function sort-stalin.c:3695: warning: `a231' might be used uninitialized in this function sort-stalin.c:3696: warning: `a232' might be used uninitialized in this function sort-stalin.c:3697: warning: `a233' might be used uninitialized in this function sort-stalin.c:3698: warning: `a234' might be used uninitialized in this function sort-stalin.c:3699: warning: `a235' might be used uninitialized in this function sort-stalin.c:3700: warning: `a236' might be used uninitialized in this function sort-stalin.c:3701: warning: `a237' might be used uninitialized in this function sort-stalin.c:3702: warning: `a238' might be used uninitialized in this function sort-stalin.c:3703: warning: `a239' might be used uninitialized in this function sort-stalin.c:3704: warning: `a240' might be used uninitialized in this function sort-stalin.c:3705: warning: `a241' might be used uninitialized in this function sort-stalin.c:3706: warning: `a242' might be used uninitialized in this function sort-stalin.c:3707: warning: `a243' might be used uninitialized in this function sort-stalin.c:3708: warning: `a244' might be used uninitialized in this function sort-stalin.c:3709: warning: `a245' might be used uninitialized in this function sort-stalin.c:3710: warning: `a246' might be used uninitialized in this function sort-stalin.c:3711: warning: `a247' might be used uninitialized in this function sort-stalin.c:3712: warning: `a248' might be used uninitialized in this function sort-stalin.c:3713: warning: `a249' might be used uninitialized in this function sort-stalin.c:3714: warning: `a250' might be used uninitialized in this function sort-stalin.c:3715: warning: `a251' might be used uninitialized in this function sort-stalin.c:3716: warning: `a252' might be used uninitialized in this function sort-stalin.c:3717: warning: `a253' might be used uninitialized in this function sort-stalin.c:3718: warning: `a254' might be used uninitialized in this function sort-stalin.c:3719: warning: `a255' might be used uninitialized in this function sort-stalin.c:3720: warning: `a256' might be used uninitialized in this function sort-stalin.c:3721: warning: `a257' might be used uninitialized in this function sort-stalin.c:3722: warning: `a258' might be used uninitialized in this function sort-stalin.c:3723: warning: `a259' might be used uninitialized in this function sort-stalin.c:3724: warning: `a260' might be used uninitialized in this function sort-stalin.c:3725: warning: `a261' might be used uninitialized in this function sort-stalin.c:3726: warning: `a262' might be used uninitialized in this function sort-stalin.c:3727: warning: `a263' might be used uninitialized in this function sort-stalin.c:3728: warning: `a264' might be used uninitialized in this function sort-stalin.c:3729: warning: `a265' might be used uninitialized in this function sort-stalin.c:3730: warning: `a266' might be used uninitialized in this function sort-stalin.c:3731: warning: `a267' might be used uninitialized in this function sort-stalin.c:3732: warning: `a268' might be used uninitialized in this function sort-stalin.c:3733: warning: `a269' might be used uninitialized in this function sort-stalin.c:3734: warning: `a270' might be used uninitialized in this function sort-stalin.c:3735: warning: `a271' might be used uninitialized in this function sort-stalin.c:3736: warning: `a272' might be used uninitialized in this function sort-stalin.c:3737: warning: `a273' might be used uninitialized in this function sort-stalin.c:3738: warning: `a274' might be used uninitialized in this function sort-stalin.c:3739: warning: `a275' might be used uninitialized in this function sort-stalin.c:3740: warning: `a276' might be used uninitialized in this function sort-stalin.c:3741: warning: `a277' might be used uninitialized in this function sort-stalin.c:3742: warning: `a278' might be used uninitialized in this function sort-stalin.c:3743: warning: `a279' might be used uninitialized in this function sort-stalin.c:3744: warning: `a280' might be used uninitialized in this function sort-stalin.c:3745: warning: `a281' might be used uninitialized in this function sort-stalin.c:3746: warning: `a282' might be used uninitialized in this function sort-stalin.c:3747: warning: `a283' might be used uninitialized in this function sort-stalin.c:3748: warning: `a284' might be used uninitialized in this function sort-stalin.c:3749: warning: `a285' might be used uninitialized in this function sort-stalin.c:3750: warning: `a286' might be used uninitialized in this function sort-stalin.c:3751: warning: `a287' might be used uninitialized in this function sort-stalin.c:3752: warning: `a288' might be used uninitialized in this function sort-stalin.c:3753: warning: `a289' might be used uninitialized in this function sort-stalin.c:3754: warning: `a290' might be used uninitialized in this function sort-stalin.c:3755: warning: `a291' might be used uninitialized in this function sort-stalin.c:3756: warning: `a292' might be used uninitialized in this function sort-stalin.c:3757: warning: `a293' might be used uninitialized in this function sort-stalin.c:3758: warning: `a294' might be used uninitialized in this function sort-stalin.c:3759: warning: `a295' might be used uninitialized in this function sort-stalin.c:3760: warning: `a296' might be used uninitialized in this function sort-stalin.c:3761: warning: `a297' might be used uninitialized in this function sort-stalin.c:3762: warning: `a298' might be used uninitialized in this function sort-stalin.c:3763: warning: `a299' might be used uninitialized in this function sort-stalin.c:3764: warning: `a300' might be used uninitialized in this function sort-stalin.c:3765: warning: `a301' might be used uninitialized in this function sort-stalin.c:3766: warning: `a302' might be used uninitialized in this function sort-stalin.c:3767: warning: `a303' might be used uninitialized in this function sort-stalin.c:3768: warning: `a304' might be used uninitialized in this function sort-stalin.c:3769: warning: `a305' might be used uninitialized in this function sort-stalin.c:3770: warning: `a306' might be used uninitialized in this function sort-stalin.c:3771: warning: `a307' might be used uninitialized in this function sort-stalin.c:3772: warning: `a308' might be used uninitialized in this function sort-stalin.c:3773: warning: `a309' might be used uninitialized in this function sort-stalin.c:3774: warning: `a310' might be used uninitialized in this function sort-stalin.c:3775: warning: `a311' might be used uninitialized in this function sort-stalin.c:3776: warning: `a312' might be used uninitialized in this function sort-stalin.c:3777: warning: `a313' might be used uninitialized in this function sort-stalin.c:3778: warning: `a314' might be used uninitialized in this function sort-stalin.c:3779: warning: `a315' might be used uninitialized in this function sort-stalin.c:3780: warning: `a316' might be used uninitialized in this function sort-stalin.c:3781: warning: `a317' might be used uninitialized in this function sort-stalin.c:3782: warning: `a318' might be used uninitialized in this function sort-stalin.c:3783: warning: `a319' might be used uninitialized in this function sort-stalin.c:3784: warning: `a320' might be used uninitialized in this function sort-stalin.c:3785: warning: `a321' might be used uninitialized in this function sort-stalin.c:3786: warning: `a322' might be used uninitialized in this function sort-stalin.c:3787: warning: `a323' might be used uninitialized in this function sort-stalin.c:3788: warning: `a324' might be used uninitialized in this function sort-stalin.c:3789: warning: `a325' might be used uninitialized in this function sort-stalin.c:3790: warning: `a326' might be used uninitialized in this function sort-stalin.c:3791: warning: `a327' might be used uninitialized in this function sort-stalin.c:3792: warning: `a328' might be used uninitialized in this function sort-stalin.c:3793: warning: `a329' might be used uninitialized in this function sort-stalin.c:3794: warning: `a330' might be used uninitialized in this function sort-stalin.c:3795: warning: `a331' might be used uninitialized in this function sort-stalin.c:3796: warning: `a332' might be used uninitialized in this function sort-stalin.c:3797: warning: `a333' might be used uninitialized in this function sort-stalin.c:3798: warning: `a334' might be used uninitialized in this function sort-stalin.c:3799: warning: `a335' might be used uninitialized in this function sort-stalin.c:3800: warning: `a336' might be used uninitialized in this function sort-stalin.c:3801: warning: `a337' might be used uninitialized in this function sort-stalin.c:3802: warning: `a338' might be used uninitialized in this function sort-stalin.c:3803: warning: `a339' might be used uninitialized in this function sort-stalin.c:3804: warning: `a340' might be used uninitialized in this function sort-stalin.c:3805: warning: `a341' might be used uninitialized in this function sort-stalin.c:3806: warning: `a342' might be used uninitialized in this function sort-stalin.c:3807: warning: `a343' might be used uninitialized in this function sort-stalin.c:3808: warning: `a344' might be used uninitialized in this function sort-stalin.c:3809: warning: `a345' might be used uninitialized in this function sort-stalin.c:3810: warning: `a346' might be used uninitialized in this function sort-stalin.c:3811: warning: `a347' might be used uninitialized in this function sort-stalin.c:3812: warning: `a348' might be used uninitialized in this function sort-stalin.c:3813: warning: `a349' might be used uninitialized in this function sort-stalin.c:3814: warning: `a350' might be used uninitialized in this function sort-stalin.c:3815: warning: `a351' might be used uninitialized in this function sort-stalin.c:3816: warning: `a352' might be used uninitialized in this function sort-stalin.c:3817: warning: `a353' might be used uninitialized in this function sort-stalin.c:3818: warning: `a354' might be used uninitialized in this function sort-stalin.c:3819: warning: `a355' might be used uninitialized in this function sort-stalin.c:3820: warning: `a356' might be used uninitialized in this function sort-stalin.c:3821: warning: `a357' might be used uninitialized in this function sort-stalin.c:3822: warning: `a358' might be used uninitialized in this function sort-stalin.c:3823: warning: `a359' might be used uninitialized in this function sort-stalin.c:3824: warning: `a360' might be used uninitialized in this function sort-stalin.c:3825: warning: `a361' might be used uninitialized in this function sort-stalin.c:3826: warning: `a362' might be used uninitialized in this function sort-stalin.c:3827: warning: `a363' might be used uninitialized in this function sort-stalin.c:3828: warning: `a364' might be used uninitialized in this function sort-stalin.c:3829: warning: `a365' might be used uninitialized in this function sort-stalin.c:3830: warning: `a366' might be used uninitialized in this function sort-stalin.c:3831: warning: `a367' might be used uninitialized in this function sort-stalin.c:3832: warning: `a368' might be used uninitialized in this function sort-stalin.c:3833: warning: `a369' might be used uninitialized in this function sort-stalin.c:3834: warning: `a370' might be used uninitialized in this function sort-stalin.c:3835: warning: `a371' might be used uninitialized in this function sort-stalin.c:3836: warning: `a372' might be used uninitialized in this function sort-stalin.c:3837: warning: `a373' might be used uninitialized in this function sort-stalin.c:3838: warning: `a374' might be used uninitialized in this function sort-stalin.c:3839: warning: `a375' might be used uninitialized in this function sort-stalin.c:3840: warning: `a376' might be used uninitialized in this function sort-stalin.c:3841: warning: `a377' might be used uninitialized in this function sort-stalin.c:3842: warning: `a378' might be used uninitialized in this function sort-stalin.c:3843: warning: `a379' might be used uninitialized in this function sort-stalin.c:3844: warning: `a380' might be used uninitialized in this function sort-stalin.c:3845: warning: `a381' might be used uninitialized in this function sort-stalin.c:3846: warning: `a382' might be used uninitialized in this function sort-stalin.c:3847: warning: `a383' might be used uninitialized in this function sort-stalin.c:3848: warning: `a384' might be used uninitialized in this function sort-stalin.c:3849: warning: `a385' might be used uninitialized in this function sort-stalin.c:3850: warning: `a386' might be used uninitialized in this function sort-stalin.c:3851: warning: `a387' might be used uninitialized in this function sort-stalin.c:3852: warning: `a388' might be used uninitialized in this function sort-stalin.c:3853: warning: `a389' might be used uninitialized in this function sort-stalin.c:3854: warning: `a390' might be used uninitialized in this function sort-stalin.c:3855: warning: `a391' might be used uninitialized in this function sort-stalin.c:3856: warning: `a392' might be used uninitialized in this function sort-stalin.c:3857: warning: `a393' might be used uninitialized in this function sort-stalin.c:3858: warning: `a394' might be used uninitialized in this function sort-stalin.c:3859: warning: `a395' might be used uninitialized in this function sort-stalin.c:3860: warning: `a396' might be used uninitialized in this function sort-stalin.c:3861: warning: `a397' might be used uninitialized in this function sort-stalin.c:3862: warning: `a398' might be used uninitialized in this function sort-stalin.c:3863: warning: `a399' might be used uninitialized in this function sort-stalin.c:3864: warning: `a400' might be used uninitialized in this function sort-stalin.c:3865: warning: `a401' might be used uninitialized in this function sort-stalin.c:3866: warning: `a402' might be used uninitialized in this function sort-stalin.c:3867: warning: `a403' might be used uninitialized in this function sort-stalin.c:3868: warning: `a404' might be used uninitialized in this function sort-stalin.c:3869: warning: `a405' might be used uninitialized in this function sort-stalin.c:3870: warning: `a406' might be used uninitialized in this function sort-stalin.c:3871: warning: `a407' might be used uninitialized in this function sort-stalin.c:3872: warning: `a408' might be used uninitialized in this function sort-stalin.c:3873: warning: `a409' might be used uninitialized in this function sort-stalin.c:3874: warning: `a410' might be used uninitialized in this function sort-stalin.c:3875: warning: `a411' might be used uninitialized in this function sort-stalin.c:3876: warning: `a412' might be used uninitialized in this function sort-stalin.c:3877: warning: `a413' might be used uninitialized in this function sort-stalin.c:3878: warning: `a414' might be used uninitialized in this function sort-stalin.c:3879: warning: `a415' might be used uninitialized in this function sort-stalin.c:3880: warning: `a416' might be used uninitialized in this function sort-stalin.c:3881: warning: `a417' might be used uninitialized in this function sort-stalin.c:3882: warning: `a418' might be used uninitialized in this function sort-stalin.c:3883: warning: `a419' might be used uninitialized in this function sort-stalin.c:3884: warning: `a420' might be used uninitialized in this function sort-stalin.c:3885: warning: `a421' might be used uninitialized in this function sort-stalin.c:3886: warning: `a422' might be used uninitialized in this function sort-stalin.c:3887: warning: `a423' might be used uninitialized in this function sort-stalin.c:3888: warning: `a424' might be used uninitialized in this function sort-stalin.c:3889: warning: `a425' might be used uninitialized in this function sort-stalin.c:3890: warning: `a426' might be used uninitialized in this function sort-stalin.c:3891: warning: `a427' might be used uninitialized in this function sort-stalin.c:3892: warning: `a428' might be used uninitialized in this function sort-stalin.c:3893: warning: `a429' might be used uninitialized in this function sort-stalin.c:3894: warning: `a430' might be used uninitialized in this function sort-stalin.c:3895: warning: `a431' might be used uninitialized in this function sort-stalin.c:3896: warning: `a432' might be used uninitialized in this function sort-stalin.c:3897: warning: `a433' might be used uninitialized in this function sort-stalin.c:3898: warning: `a434' might be used uninitialized in this function sort-stalin.c:3899: warning: `a435' might be used uninitialized in this function sort-stalin.c:4113: warning: `a649' might be used uninitialized in this function sort-stalin.c:4114: warning: `a650' might be used uninitialized in this function sort-stalin.c:4115: warning: `a651' might be used uninitialized in this function sort-stalin.c:4116: warning: `a652' might be used uninitialized in this function sort-stalin.c:4117: warning: `a653' might be used uninitialized in this function sort-stalin.c:4118: warning: `a654' might be used uninitialized in this function sort-stalin.c:4119: warning: `a656' might be used uninitialized in this function sort-stalin.c:4120: warning: `a657' might be used uninitialized in this function sort-stalin.c:4121: warning: `a658' might be used uninitialized in this function sort-stalin.c:4122: warning: `a659' might be used uninitialized in this function sort-stalin.c:4123: warning: `a660' might be used uninitialized in this function sort-stalin.c:4124: warning: `a661' might be used uninitialized in this function sort-stalin.c:4125: warning: `a662' might be used uninitialized in this function sort-stalin.c:4126: warning: `a663' might be used uninitialized in this function sort-stalin.c:4127: warning: `a664' might be used uninitialized in this function sort-stalin.c:4128: warning: `a665' might be used uninitialized in this function sort-stalin.c:4132: warning: `a675' might be used uninitialized in this function sort-stalin.c:4139: warning: `a703' might be used uninitialized in this function sort-stalin.c:4146: warning: `a733' might be used uninitialized in this function sort-stalin.c:4150: warning: `a737' might be used uninitialized in this function sort-stalin.c:4153: warning: `a740' might be used uninitialized in this function sort-stalin.c:4155: warning: `a742' might be used uninitialized in this function sort-stalin.c:4159: warning: `a746' might be used uninitialized in this function sort-stalin.c:4161: warning: `a748' might be used uninitialized in this function sort-stalin.c:4164: warning: `a817' might be used uninitialized in this function sort-stalin.c:4166: warning: `a819' might be used uninitialized in this function sort-stalin.c:4170: warning: `a839' might be used uninitialized in this function sort-stalin.c:4175: warning: `a844' might be used uninitialized in this function sort-stalin.c:4177: warning: `a849' might be used uninitialized in this function sort-stalin.c:4181: warning: `a870' might be used uninitialized in this function sort-stalin.c:4184: warning: `a940' might be used uninitialized in this function sort-stalin.c:4187: warning: `a962' might be used uninitialized in this function sort-stalin.c:4189: warning: `a964' might be used uninitialized in this function sort-stalin.c:4191: warning: `a966' might be used uninitialized in this function sort-stalin.c:4195: warning: `a1096' might be used uninitialized in this function sort-stalin.c:4197: warning: `a1098' might be used uninitialized in this function sort-stalin.c:4200: warning: `a1101' might be used uninitialized in this function sort-stalin.c:4202: warning: `a1803' might be used uninitialized in this function sort-stalin.c:4203: warning: `a1804' might be used uninitialized in this function sort-stalin.c:4207: warning: `a1808' might be used uninitialized in this function sort-stalin.c:4208: warning: `a1809' might be used uninitialized in this function sort-stalin.c:4209: warning: `a1810' might be used uninitialized in this function sort-stalin.c:4210: warning: `a1811' might be used uninitialized in this function sort-stalin.c:4211: warning: `a1812' might be used uninitialized in this function sort-stalin.c:4212: warning: `a1813' might be used uninitialized in this function sort-stalin.c:4213: warning: `a1814' might be used uninitialized in this function sort-stalin.c:4214: warning: `a1815' might be used uninitialized in this function sort-stalin.c:4215: warning: `a1816' might be used uninitialized in this function sort-stalin.c:4216: warning: `a1817' might be used uninitialized in this function sort-stalin.c:4217: warning: `a1818' might be used uninitialized in this function sort-stalin.c:4218: warning: `a1819' might be used uninitialized in this function sort-stalin.c:4219: warning: `a1820' might be used uninitialized in this function sort-stalin.c:4220: warning: `a1821' might be used uninitialized in this function sort-stalin.c:4221: warning: `a1822' might be used uninitialized in this function sort-stalin.c:4222: warning: `a1823' might be used uninitialized in this function sort-stalin.c:4223: warning: `a1824' might be used uninitialized in this function sort-stalin.c:4224: warning: `a1825' might be used uninitialized in this function sort-stalin.c:4225: warning: `a1826' might be used uninitialized in this function sort-stalin.c:4226: warning: `a1827' might be used uninitialized in this function sort-stalin.c:4227: warning: `a1828' might be used uninitialized in this function sort-stalin.c:4228: warning: `a1829' might be used uninitialized in this function sort-stalin.c:4229: warning: `a1830' might be used uninitialized in this function sort-stalin.c:4230: warning: `a1831' might be used uninitialized in this function sort-stalin.c:4231: warning: `a1832' might be used uninitialized in this function sort-stalin.c:4232: warning: `a1833' might be used uninitialized in this function sort-stalin.c:4233: warning: `a1834' might be used uninitialized in this function sort-stalin.c:4234: warning: `a1835' might be used uninitialized in this function sort-stalin.c:4235: warning: `a1836' might be used uninitialized in this function sort-stalin.c:4236: warning: `a1837' might be used uninitialized in this function sort-stalin.c:4237: warning: `a1838' might be used uninitialized in this function sort-stalin.c:4238: warning: `a1839' might be used uninitialized in this function sort-stalin.c:4239: warning: `a1840' might be used uninitialized in this function sort-stalin.c:4240: warning: `a1841' might be used uninitialized in this function sort-stalin.c:4243: warning: `a1902' might be used uninitialized in this function sort-stalin.c:4244: warning: `a1903' might be used uninitialized in this function sort-stalin.c:4247: warning: `a1906' might be used uninitialized in this function sort-stalin.c:4250: warning: `a1909' might be used uninitialized in this function sort-stalin.c:4251: warning: `a1910' might be used uninitialized in this function sort-stalin.c:4254: warning: `a2143' might be used uninitialized in this function sort-stalin.c:4257: warning: `a2159' might be used uninitialized in this function sort-stalin.c:4259: warning: `a2161' might be used uninitialized in this function sort-stalin.c:4262: warning: `a2164' might be used uninitialized in this function sort-stalin.c:4267: warning: `t741' might be used uninitialized in this function sort-stalin.c:4268: warning: `t742' might be used uninitialized in this function sort-stalin.c:4269: warning: `t743' might be used uninitialized in this function sort-stalin.c:4270: warning: `t744' might be used uninitialized in this function sort-stalin.c:4271: warning: `t745' might be used uninitialized in this function sort-stalin.c:4272: warning: `t746' might be used uninitialized in this function sort-stalin.c:4273: warning: `t747' might be used uninitialized in this function sort-stalin.c:4274: warning: `t748' might be used uninitialized in this function sort-stalin.c:4275: warning: `t749' might be used uninitialized in this function sort-stalin.c:4276: warning: `t750' might be used uninitialized in this function sort-stalin.c:4277: warning: `t751' might be used uninitialized in this function sort-stalin.c:4279: warning: `t753' might be used uninitialized in this function sort-stalin.c:4280: warning: `t754' might be used uninitialized in this function sort-stalin.c:4281: warning: `t755' might be used uninitialized in this function sort-stalin.c:4282: warning: `t756' might be used uninitialized in this function sort-stalin.c:4283: warning: `t757' might be used uninitialized in this function sort-stalin.c:4284: warning: `t758' might be used uninitialized in this function sort-stalin.c:4285: warning: `t759' might be used uninitialized in this function sort-stalin.c:4286: warning: `t760' might be used uninitialized in this function sort-stalin.c:4287: warning: `t761' might be used uninitialized in this function sort-stalin.c:4288: warning: `t762' might be used uninitialized in this function sort-stalin.c:4289: warning: `t763' might be used uninitialized in this function sort-stalin.c:4290: warning: `t764' might be used uninitialized in this function sort-stalin.c:4291: warning: `t765' might be used uninitialized in this function sort-stalin.c:4292: warning: `t766' might be used uninitialized in this function sort-stalin.c:4293: warning: `t767' might be used uninitialized in this function sort-stalin.c:4294: warning: `t768' might be used uninitialized in this function sort-stalin.c:4295: warning: `t769' might be used uninitialized in this function sort-stalin.c:4296: warning: `t770' might be used uninitialized in this function sort-stalin.c:4297: warning: `t771' might be used uninitialized in this function sort-stalin.c:4298: warning: `t772' might be used uninitialized in this function sort-stalin.c:4299: warning: `t773' might be used uninitialized in this function sort-stalin.c:4300: warning: `t774' might be used uninitialized in this function sort-stalin.c:4301: warning: `t775' might be used uninitialized in this function sort-stalin.c:4302: warning: `t776' might be used uninitialized in this function sort-stalin.c:4303: warning: `t777' might be used uninitialized in this function sort-stalin.c:4304: warning: `t778' might be used uninitialized in this function sort-stalin.c:4305: warning: `t779' might be used uninitialized in this function sort-stalin.c:4306: warning: `t780' might be used uninitialized in this function sort-stalin.c:4309: warning: `t783' might be used uninitialized in this function sort-stalin.c:4310: warning: `t784' might be used uninitialized in this function sort-stalin.c:4311: warning: `t785' might be used uninitialized in this function sort-stalin.c:4312: warning: `t786' might be used uninitialized in this function sort-stalin.c:4313: warning: `t787' might be used uninitialized in this function sort-stalin.c:4314: warning: `t788' might be used uninitialized in this function sort-stalin.c:4315: warning: `t789' might be used uninitialized in this function sort-stalin.c:4316: warning: `t790' might be used uninitialized in this function sort-stalin.c:4317: warning: `t791' might be used uninitialized in this function sort-stalin.c:4318: warning: `t792' might be used uninitialized in this function sort-stalin.c:4319: warning: `t793' might be used uninitialized in this function sort-stalin.c:4320: warning: `t794' might be used uninitialized in this function sort-stalin.c:4321: warning: `t795' might be used uninitialized in this function sort-stalin.c:4322: warning: `t796' might be used uninitialized in this function sort-stalin.c:4323: warning: `t797' might be used uninitialized in this function sort-stalin.c:4324: warning: `t798' might be used uninitialized in this function sort-stalin.c:4325: warning: `t799' might be used uninitialized in this function sort-stalin.c:4326: warning: `t800' might be used uninitialized in this function sort-stalin.c:4327: warning: `t801' might be used uninitialized in this function sort-stalin.c:4328: warning: `t802' might be used uninitialized in this function sort-stalin.c:4329: warning: `t803' might be used uninitialized in this function sort-stalin.c:4330: warning: `t804' might be used uninitialized in this function sort-stalin.c:4331: warning: `t805' might be used uninitialized in this function sort-stalin.c:4332: warning: `t806' might be used uninitialized in this function sort-stalin.c:4333: warning: `t807' might be used uninitialized in this function sort-stalin.c:4334: warning: `t808' might be used uninitialized in this function sort-stalin.c:4335: warning: `t809' might be used uninitialized in this function sort-stalin.c:4336: warning: `t810' might be used uninitialized in this function sort-stalin.c:4337: warning: `t811' might be used uninitialized in this function sort-stalin.c:4338: warning: `t812' might be used uninitialized in this function sort-stalin.c:4339: warning: `t813' might be used uninitialized in this function sort-stalin.c:4340: warning: `t814' might be used uninitialized in this function sort-stalin.c:4341: warning: `t815' might be used uninitialized in this function sort-stalin.c:4342: warning: `t816' might be used uninitialized in this function sort-stalin.c:4343: warning: `t817' might be used uninitialized in this function sort-stalin.c:4344: warning: `t818' might be used uninitialized in this function sort-stalin.c:4345: warning: `t819' might be used uninitialized in this function sort-stalin.c:4346: warning: `t820' might be used uninitialized in this function sort-stalin.c:4347: warning: `t821' might be used uninitialized in this function sort-stalin.c:4348: warning: `t822' might be used uninitialized in this function sort-stalin.c:4349: warning: `t823' might be used uninitialized in this function sort-stalin.c:4350: warning: `t824' might be used uninitialized in this function sort-stalin.c:4351: warning: `t825' might be used uninitialized in this function sort-stalin.c:4352: warning: `t826' might be used uninitialized in this function sort-stalin.c:4353: warning: `t827' might be used uninitialized in this function sort-stalin.c:4354: warning: `t828' might be used uninitialized in this function sort-stalin.c:4355: warning: `t829' might be used uninitialized in this function sort-stalin.c:4356: warning: `t830' might be used uninitialized in this function sort-stalin.c:4357: warning: `t831' might be used uninitialized in this function sort-stalin.c:4358: warning: `t832' might be used uninitialized in this function sort-stalin.c:4359: warning: `t833' might be used uninitialized in this function sort-stalin.c:4360: warning: `t834' might be used uninitialized in this function sort-stalin.c:4361: warning: `t835' might be used uninitialized in this function sort-stalin.c:4362: warning: `t836' might be used uninitialized in this function sort-stalin.c:4363: warning: `t837' might be used uninitialized in this function sort-stalin.c:4364: warning: `t838' might be used uninitialized in this function sort-stalin.c:4365: warning: `t839' might be used uninitialized in this function sort-stalin.c:4366: warning: `t840' might be used uninitialized in this function sort-stalin.c:4367: warning: `t841' might be used uninitialized in this function sort-stalin.c:4368: warning: `t842' might be used uninitialized in this function sort-stalin.c:4369: warning: `t843' might be used uninitialized in this function sort-stalin.c:4370: warning: `t844' might be used uninitialized in this function sort-stalin.c:4371: warning: `t845' might be used uninitialized in this function sort-stalin.c:4372: warning: `t846' might be used uninitialized in this function sort-stalin.c:4373: warning: `t847' might be used uninitialized in this function sort-stalin.c:4374: warning: `t848' might be used uninitialized in this function sort-stalin.c:4375: warning: `t849' might be used uninitialized in this function sort-stalin.c:4376: warning: `t850' might be used uninitialized in this function sort-stalin.c:4377: warning: `t851' might be used uninitialized in this function sort-stalin.c:4378: warning: `t852' might be used uninitialized in this function sort-stalin.c:4379: warning: `t853' might be used uninitialized in this function sort-stalin.c:4380: warning: `t854' might be used uninitialized in this function sort-stalin.c:4381: warning: `t855' might be used uninitialized in this function sort-stalin.c:4382: warning: `t856' might be used uninitialized in this function sort-stalin.c:4383: warning: `t857' might be used uninitialized in this function sort-stalin.c:4384: warning: `t858' might be used uninitialized in this function sort-stalin.c:4385: warning: `t859' might be used uninitialized in this function sort-stalin.c:4386: warning: `t860' might be used uninitialized in this function sort-stalin.c:4387: warning: `t861' might be used uninitialized in this function sort-stalin.c:4388: warning: `t862' might be used uninitialized in this function sort-stalin.c:4389: warning: `t863' might be used uninitialized in this function sort-stalin.c:4390: warning: `t864' might be used uninitialized in this function sort-stalin.c:4391: warning: `t865' might be used uninitialized in this function sort-stalin.c:4392: warning: `t866' might be used uninitialized in this function sort-stalin.c:4393: warning: `t867' might be used uninitialized in this function sort-stalin.c:4394: warning: `t868' might be used uninitialized in this function sort-stalin.c:4395: warning: `t869' might be used uninitialized in this function sort-stalin.c:4396: warning: `t870' might be used uninitialized in this function sort-stalin.c:4397: warning: `t871' might be used uninitialized in this function sort-stalin.c:4398: warning: `t872' might be used uninitialized in this function sort-stalin.c:4399: warning: `t873' might be used uninitialized in this function sort-stalin.c:4400: warning: `t874' might be used uninitialized in this function sort-stalin.c:4401: warning: `t875' might be used uninitialized in this function sort-stalin.c:4403: warning: `t877' might be used uninitialized in this function sort-stalin.c:4404: warning: `t878' might be used uninitialized in this function sort-stalin.c:4405: warning: `t879' might be used uninitialized in this function sort-stalin.c:4406: warning: `t880' might be used uninitialized in this function sort-stalin.c:4407: warning: `t881' might be used uninitialized in this function sort-stalin.c:4408: warning: `t882' might be used uninitialized in this function sort-stalin.c:4409: warning: `t883' might be used uninitialized in this function sort-stalin.c:4410: warning: `t884' might be used uninitialized in this function sort-stalin.c:4411: warning: `t885' might be used uninitialized in this function sort-stalin.c:4412: warning: `t886' might be used uninitialized in this function sort-stalin.c:4413: warning: `t887' might be used uninitialized in this function sort-stalin.c:4414: warning: `t888' might be used uninitialized in this function sort-stalin.c:4415: warning: `t889' might be used uninitialized in this function sort-stalin.c:4416: warning: `t890' might be used uninitialized in this function sort-stalin.c:4417: warning: `t891' might be used uninitialized in this function sort-stalin.c:4418: warning: `t892' might be used uninitialized in this function sort-stalin.c:4419: warning: `t893' might be used uninitialized in this function sort-stalin.c:4420: warning: `t894' might be used uninitialized in this function sort-stalin.c:4421: warning: `t895' might be used uninitialized in this function sort-stalin.c:4422: warning: `t896' might be used uninitialized in this function sort-stalin.c:4423: warning: `t897' might be used uninitialized in this function sort-stalin.c:4424: warning: `t898' might be used uninitialized in this function sort-stalin.c:4425: warning: `t899' might be used uninitialized in this function sort-stalin.c:4426: warning: `t900' might be used uninitialized in this function sort-stalin.c:4427: warning: `t901' might be used uninitialized in this function sort-stalin.c:4428: warning: `t902' might be used uninitialized in this function sort-stalin.c:4429: warning: `t903' might be used uninitialized in this function sort-stalin.c:4430: warning: `t904' might be used uninitialized in this function sort-stalin.c:4431: warning: `t905' might be used uninitialized in this function sort-stalin.c:4433: warning: `t907' might be used uninitialized in this function sort-stalin.c:4434: warning: `t908' might be used uninitialized in this function sort-stalin.c:4435: warning: `t909' might be used uninitialized in this function sort-stalin.c:4437: warning: `t911' might be used uninitialized in this function sort-stalin.c:4438: warning: `t912' might be used uninitialized in this function sort-stalin.c:4439: warning: `t913' might be used uninitialized in this function sort-stalin.c:4440: warning: `t914' might be used uninitialized in this function sort-stalin.c:4441: warning: `t915' might be used uninitialized in this function sort-stalin.c:4442: warning: `t916' might be used uninitialized in this function sort-stalin.c:4443: warning: `t917' might be used uninitialized in this function sort-stalin.c:4444: warning: `t918' might be used uninitialized in this function sort-stalin.c:4445: warning: `t919' might be used uninitialized in this function sort-stalin.c:4446: warning: `t920' might be used uninitialized in this function sort-stalin.c:4447: warning: `t921' might be used uninitialized in this function sort-stalin.c:4448: warning: `t922' might be used uninitialized in this function sort-stalin.c:4449: warning: `t923' might be used uninitialized in this function sort-stalin.c:4450: warning: `t924' might be used uninitialized in this function sort-stalin.c:4451: warning: `t925' might be used uninitialized in this function sort-stalin.c:4452: warning: `t926' might be used uninitialized in this function sort-stalin.c:4453: warning: `t927' might be used uninitialized in this function sort-stalin.c:4454: warning: `t928' might be used uninitialized in this function sort-stalin.c:4455: warning: `t929' might be used uninitialized in this function sort-stalin.c:4456: warning: `t930' might be used uninitialized in this function sort-stalin.c:4457: warning: `t931' might be used uninitialized in this function sort-stalin.c:4458: warning: `t932' might be used uninitialized in this function sort-stalin.c:4459: warning: `t933' might be used uninitialized in this function sort-stalin.c:4460: warning: `t934' might be used uninitialized in this function sort-stalin.c:4461: warning: `t935' might be used uninitialized in this function sort-stalin.c:4462: warning: `t936' might be used uninitialized in this function sort-stalin.c:4463: warning: `t937' might be used uninitialized in this function sort-stalin.c:4464: warning: `t938' might be used uninitialized in this function sort-stalin.c:4466: warning: `t940' might be used uninitialized in this function sort-stalin.c:4468: warning: `t942' might be used uninitialized in this function sort-stalin.c:4469: warning: `t943' might be used uninitialized in this function sort-stalin.c:4470: warning: `t944' might be used uninitialized in this function sort-stalin.c:4471: warning: `t945' might be used uninitialized in this function sort-stalin.c:4472: warning: `t946' might be used uninitialized in this function sort-stalin.c:4473: warning: `t947' might be used uninitialized in this function sort-stalin.c:4474: warning: `t948' might be used uninitialized in this function sort-stalin.c:4475: warning: `t949' might be used uninitialized in this function sort-stalin.c:4476: warning: `t950' might be used uninitialized in this function sort-stalin.c:4477: warning: `t951' might be used uninitialized in this function sort-stalin.c:4478: warning: `t952' might be used uninitialized in this function sort-stalin.c:4479: warning: `t953' might be used uninitialized in this function sort-stalin.c:4516: warning: `t1016' might be used uninitialized in this function sort-stalin.c:4710: warning: `t1314' might be used uninitialized in this function sort-stalin.c:4765: warning: `t1382' might be used uninitialized in this function sort-stalin.c:4766: warning: `t1383' might be used uninitialized in this function 25.88user 0.46system 0:38.08elapsed 69%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33046major+226941minor)pagefaults 0swaps compile rrr (STATIC-COUNTS 2755 2755 2755 2755 0 0 0 2755 2600 1452 160 432 47 149 2.80437756497948 5319 5319 545 337) rrr-stalin.c: In function `f2209': rrr-stalin.c:4666: warning: `a2199' might be used uninitialized in this function rrr-stalin.c:4668: warning: `a2201' might be used uninitialized in this function rrr-stalin.c: In function `f1731': rrr-stalin.c:4887: warning: `a2205' might be used uninitialized in this function rrr-stalin.c:4891: warning: `a2209' might be used uninitialized in this function rrr-stalin.c:4893: warning: `a2211' might be used uninitialized in this function rrr-stalin.c:4894: warning: `a2212' might be used uninitialized in this function rrr-stalin.c:4895: warning: `a2213' might be used uninitialized in this function rrr-stalin.c:4897: warning: `a2215' might be used uninitialized in this function rrr-stalin.c:4901: warning: `a2219' might be used uninitialized in this function rrr-stalin.c:4903: warning: `a2221' might be used uninitialized in this function rrr-stalin.c:4904: warning: `a2222' might be used uninitialized in this function rrr-stalin.c: In function `f1263': rrr-stalin.c:5442: warning: `a946' might be used uninitialized in this function rrr-stalin.c:5443: warning: `a947' might be used uninitialized in this function rrr-stalin.c:5444: warning: `a948' might be used uninitialized in this function rrr-stalin.c:5445: warning: `a949' might be used uninitialized in this function rrr-stalin.c:5446: warning: `a950' might be used uninitialized in this function rrr-stalin.c:5447: warning: `a951' might be used uninitialized in this function rrr-stalin.c:5448: warning: `a952' might be used uninitialized in this function rrr-stalin.c:5449: warning: `a953' might be used uninitialized in this function rrr-stalin.c:5450: warning: `a954' might be used uninitialized in this function rrr-stalin.c:5451: warning: `a955' might be used uninitialized in this function rrr-stalin.c:5452: warning: `a956' might be used uninitialized in this function rrr-stalin.c:5453: warning: `a957' might be used uninitialized in this function rrr-stalin.c:5458: warning: `a988' might be used uninitialized in this function rrr-stalin.c:5459: warning: `a989' might be used uninitialized in this function rrr-stalin.c:5460: warning: `a990' might be used uninitialized in this function rrr-stalin.c:5464: warning: `a994' might be used uninitialized in this function rrr-stalin.c:5465: warning: `a995' might be used uninitialized in this function rrr-stalin.c:5466: warning: `a996' might be used uninitialized in this function rrr-stalin.c:5470: warning: `a1000' might be used uninitialized in this function rrr-stalin.c:5471: warning: `a1001' might be used uninitialized in this function rrr-stalin.c:5472: warning: `a1002' might be used uninitialized in this function rrr-stalin.c:5476: warning: `a1006' might be used uninitialized in this function rrr-stalin.c:5477: warning: `a1007' might be used uninitialized in this function rrr-stalin.c:5478: warning: `a1008' might be used uninitialized in this function rrr-stalin.c:5482: warning: `a1012' might be used uninitialized in this function rrr-stalin.c:5486: warning: `a1895' might be used uninitialized in this function rrr-stalin.c:5488: warning: `a1897' might be used uninitialized in this function rrr-stalin.c:5548: warning: `a2567' might be used uninitialized in this function rrr-stalin.c: In function `f1239': rrr-stalin.c:8030: warning: `r1239' might be used uninitialized in this function rrr-stalin.c:8031: warning: `a1240' might be used uninitialized in this function rrr-stalin.c:8032: warning: `a1241' might be used uninitialized in this function rrr-stalin.c:8033: warning: `a1242' might be used uninitialized in this function rrr-stalin.c:8034: warning: `a1243' might be used uninitialized in this function rrr-stalin.c:8035: warning: `a1244' might be used uninitialized in this function rrr-stalin.c:8037: warning: `a1870' might be used uninitialized in this function rrr-stalin.c:8038: warning: `a1871' might be used uninitialized in this function rrr-stalin.c:8039: warning: `a1872' might be used uninitialized in this function rrr-stalin.c: In function `f300': rrr-stalin.c:8125: warning: `a1036' might be used uninitialized in this function rrr-stalin.c:8126: warning: `a1037' might be used uninitialized in this function rrr-stalin.c:8127: warning: `a1038' might be used uninitialized in this function rrr-stalin.c:8128: warning: `a1039' might be used uninitialized in this function rrr-stalin.c:8132: warning: `a2583' might be used uninitialized in this function rrr-stalin.c: In function `f279': rrr-stalin.c:8359: warning: `a1017' might be used uninitialized in this function rrr-stalin.c:8360: warning: `a1018' might be used uninitialized in this function rrr-stalin.c:8361: warning: `a1019' might be used uninitialized in this function rrr-stalin.c:8362: warning: `a1020' might be used uninitialized in this function rrr-stalin.c:8363: warning: `a1021' might be used uninitialized in this function rrr-stalin.c:8364: warning: `a1022' might be used uninitialized in this function rrr-stalin.c:8366: warning: `a1024' might be used uninitialized in this function rrr-stalin.c:8367: warning: `a1025' might be used uninitialized in this function rrr-stalin.c:8372: warning: `a1030' might be used uninitialized in this function rrr-stalin.c:8373: warning: `a1031' might be used uninitialized in this function rrr-stalin.c:8374: warning: `a1032' might be used uninitialized in this function rrr-stalin.c:8376: warning: `a1041' might be used uninitialized in this function rrr-stalin.c:8377: warning: `a1042' might be used uninitialized in this function rrr-stalin.c:8378: warning: `a1043' might be used uninitialized in this function rrr-stalin.c:8379: warning: `a1044' might be used uninitialized in this function rrr-stalin.c:8380: warning: `a1045' might be used uninitialized in this function rrr-stalin.c:8382: warning: `a1047' might be used uninitialized in this function rrr-stalin.c:8384: warning: `a1049' might be used uninitialized in this function rrr-stalin.c:8386: warning: `a1051' might be used uninitialized in this function rrr-stalin.c:8387: warning: `a1052' might be used uninitialized in this function rrr-stalin.c:8388: warning: `a1053' might be used uninitialized in this function rrr-stalin.c:8389: warning: `a1054' might be used uninitialized in this function rrr-stalin.c:8391: warning: `a1056' might be used uninitialized in this function rrr-stalin.c:8393: warning: `a1058' might be used uninitialized in this function rrr-stalin.c:8395: warning: `a1060' might be used uninitialized in this function rrr-stalin.c:8399: warning: `a2579' might be used uninitialized in this function rrr-stalin.c:8407: warning: `a2595' might be used uninitialized in this function rrr-stalin.c: In function `f257': rrr-stalin.c:9799: warning: unused variable `e262' rrr-stalin.c:9798: warning: unused variable `e261' rrr-stalin.c:9797: warning: unused variable `e260' rrr-stalin.c:9796: warning: unused variable `e259' rrr-stalin.c:9795: warning: unused variable `e258' rrr-stalin.c:9683: warning: unused variable `a984' rrr-stalin.c:9682: warning: unused variable `a983' rrr-stalin.c:9681: warning: unused variable `a982' rrr-stalin.c:9680: warning: unused variable `a981' rrr-stalin.c:9679: warning: unused variable `a980' rrr-stalin.c: In function `f246': rrr-stalin.c:10296: warning: `a963' might be used uninitialized in this function rrr-stalin.c:10300: warning: `a2575' might be used uninitialized in this function rrr-stalin.c: In function `f150': rrr-stalin.c:11276: warning: unused variable `e2593' rrr-stalin.c:11271: warning: unused variable `e2587' rrr-stalin.c:11255: warning: unused variable `e788' rrr-stalin.c:11213: warning: unused variable `e208' rrr-stalin.c:11212: warning: unused variable `e207' rrr-stalin.c:11211: warning: unused variable `e206' rrr-stalin.c:11210: warning: unused variable `e205' rrr-stalin.c:11209: warning: unused variable `e204' rrr-stalin.c:11184: warning: unused variable `e161' rrr-stalin.c:11174: warning: unused variable `e77' rrr-stalin.c:11169: warning: unused variable `e65' rrr-stalin.c:10593: warning: unused variable `a2750' rrr-stalin.c:10587: warning: unused variable `a2744' rrr-stalin.c:10543: warning: unused variable `a1389' rrr-stalin.c:10495: warning: unused variable `a934' rrr-stalin.c:10494: warning: unused variable `a933' rrr-stalin.c:10493: warning: unused variable `a932' rrr-stalin.c:10492: warning: unused variable `a931' rrr-stalin.c:10491: warning: unused variable `a930' rrr-stalin.c:10463: warning: unused variable `a902' rrr-stalin.c:10414: warning: unused variable `a750' rrr-stalin.c:10407: warning: unused variable `a737' rrr-stalin.c:10402: warning: `a732' might be used uninitialized in this function rrr-stalin.c:10404: warning: `a734' might be used uninitialized in this function rrr-stalin.c:10406: warning: `a736' might be used uninitialized in this function rrr-stalin.c:10410: warning: `a746' might be used uninitialized in this function rrr-stalin.c:10412: warning: `a748' might be used uninitialized in this function rrr-stalin.c:10415: warning: `a854' might be used uninitialized in this function rrr-stalin.c:10416: warning: `a855' might be used uninitialized in this function rrr-stalin.c:10417: warning: `a856' might be used uninitialized in this function rrr-stalin.c:10418: warning: `a857' might be used uninitialized in this function rrr-stalin.c:10419: warning: `a858' might be used uninitialized in this function rrr-stalin.c:10420: warning: `a859' might be used uninitialized in this function rrr-stalin.c:10421: warning: `a860' might be used uninitialized in this function rrr-stalin.c:10422: warning: `a861' might be used uninitialized in this function rrr-stalin.c:10423: warning: `a862' might be used uninitialized in this function rrr-stalin.c:10424: warning: `a863' might be used uninitialized in this function rrr-stalin.c:10425: warning: `a864' might be used uninitialized in this function rrr-stalin.c:10426: warning: `a865' might be used uninitialized in this function rrr-stalin.c:10427: warning: `a866' might be used uninitialized in this function rrr-stalin.c:10428: warning: `a867' might be used uninitialized in this function rrr-stalin.c:10429: warning: `a868' might be used uninitialized in this function rrr-stalin.c:10430: warning: `a869' might be used uninitialized in this function rrr-stalin.c:10431: warning: `a870' might be used uninitialized in this function rrr-stalin.c:10432: warning: `a871' might be used uninitialized in this function rrr-stalin.c:10433: warning: `a872' might be used uninitialized in this function rrr-stalin.c:10434: warning: `a873' might be used uninitialized in this function rrr-stalin.c:10435: warning: `a874' might be used uninitialized in this function rrr-stalin.c:10436: warning: `a875' might be used uninitialized in this function rrr-stalin.c:10437: warning: `a876' might be used uninitialized in this function rrr-stalin.c:10438: warning: `a877' might be used uninitialized in this function rrr-stalin.c:10439: warning: `a878' might be used uninitialized in this function rrr-stalin.c:10440: warning: `a879' might be used uninitialized in this function rrr-stalin.c:10441: warning: `a880' might be used uninitialized in this function rrr-stalin.c:10442: warning: `a881' might be used uninitialized in this function rrr-stalin.c:10443: warning: `a882' might be used uninitialized in this function rrr-stalin.c:10444: warning: `a883' might be used uninitialized in this function rrr-stalin.c:10445: warning: `a884' might be used uninitialized in this function rrr-stalin.c:10446: warning: `a885' might be used uninitialized in this function rrr-stalin.c:10447: warning: `a886' might be used uninitialized in this function rrr-stalin.c:10448: warning: `a887' might be used uninitialized in this function rrr-stalin.c:10449: warning: `a888' might be used uninitialized in this function rrr-stalin.c:10450: warning: `a889' might be used uninitialized in this function rrr-stalin.c:10451: warning: `a890' might be used uninitialized in this function rrr-stalin.c:10456: warning: `a895' might be used uninitialized in this function rrr-stalin.c:10459: warning: `a898' might be used uninitialized in this function rrr-stalin.c:10460: warning: `a899' might be used uninitialized in this function rrr-stalin.c:10464: warning: `a903' might be used uninitialized in this function rrr-stalin.c:10465: warning: `a904' might be used uninitialized in this function rrr-stalin.c:10466: warning: `a905' might be used uninitialized in this function rrr-stalin.c:10468: warning: `a907' might be used uninitialized in this function rrr-stalin.c:10470: warning: `a909' might be used uninitialized in this function rrr-stalin.c:10472: warning: `a911' might be used uninitialized in this function rrr-stalin.c:10474: warning: `a913' might be used uninitialized in this function rrr-stalin.c:10476: warning: `a915' might be used uninitialized in this function rrr-stalin.c:10478: warning: `a917' might be used uninitialized in this function rrr-stalin.c:10480: warning: `a919' might be used uninitialized in this function rrr-stalin.c:10482: warning: `a921' might be used uninitialized in this function rrr-stalin.c:10484: warning: `a923' might be used uninitialized in this function rrr-stalin.c:10486: warning: `a925' might be used uninitialized in this function rrr-stalin.c:10496: warning: `a935' might be used uninitialized in this function rrr-stalin.c:10498: warning: `a937' might be used uninitialized in this function rrr-stalin.c:10500: warning: `a939' might be used uninitialized in this function rrr-stalin.c:10502: warning: `a941' might be used uninitialized in this function rrr-stalin.c:10503: warning: `a942' might be used uninitialized in this function rrr-stalin.c:10504: warning: `a959' might be used uninitialized in this function rrr-stalin.c:10505: warning: `a960' might be used uninitialized in this function rrr-stalin.c:10506: warning: `a1061' might be used uninitialized in this function rrr-stalin.c:10507: warning: `a1062' might be used uninitialized in this function rrr-stalin.c:10509: warning: `a1064' might be used uninitialized in this function rrr-stalin.c:10511: warning: `a1066' might be used uninitialized in this function rrr-stalin.c:10513: warning: `a1068' might be used uninitialized in this function rrr-stalin.c:10514: warning: `a1069' might be used uninitialized in this function rrr-stalin.c:10515: warning: `a1070' might be used uninitialized in this function rrr-stalin.c:10516: warning: `a1071' might be used uninitialized in this function rrr-stalin.c:10518: warning: `a1073' might be used uninitialized in this function rrr-stalin.c:10520: warning: `a1075' might be used uninitialized in this function rrr-stalin.c:10522: warning: `a1077' might be used uninitialized in this function rrr-stalin.c:10523: warning: `a1078' might be used uninitialized in this function rrr-stalin.c:10524: warning: `a1079' might be used uninitialized in this function rrr-stalin.c:10526: warning: `a1081' might be used uninitialized in this function rrr-stalin.c:10528: warning: `a1083' might be used uninitialized in this function rrr-stalin.c:10530: warning: `a1085' might be used uninitialized in this function rrr-stalin.c:10531: warning: `a1086' might be used uninitialized in this function rrr-stalin.c:10532: warning: `a1087' might be used uninitialized in this function rrr-stalin.c:10534: warning: `a1089' might be used uninitialized in this function rrr-stalin.c:10535: warning: `a1090' might be used uninitialized in this function rrr-stalin.c:10536: warning: `a1091' might be used uninitialized in this function rrr-stalin.c:10537: warning: `a1092' might be used uninitialized in this function rrr-stalin.c:10539: warning: `a1094' might be used uninitialized in this function rrr-stalin.c:10540: warning: `a1095' might be used uninitialized in this function rrr-stalin.c:10547: warning: `a2571' might be used uninitialized in this function rrr-stalin.c:10585: warning: `a2742' might be used uninitialized in this function rrr-stalin.c:10591: warning: `a2748' might be used uninitialized in this function rrr-stalin.c:10669: warning: `t1694' might be used uninitialized in this function rrr-stalin.c:10670: warning: `t1695' might be used uninitialized in this function rrr-stalin.c:10679: warning: `t1707' might be used uninitialized in this function rrr-stalin.c:10680: warning: `t1708' might be used uninitialized in this function rrr-stalin.c:10689: warning: `t1721' might be used uninitialized in this function rrr-stalin.c:10690: warning: `t1722' might be used uninitialized in this function rrr-stalin.c:10754: warning: `t1804' might be used uninitialized in this function rrr-stalin.c:10762: warning: `t1814' might be used uninitialized in this function rrr-stalin.c: In function `f92': rrr-stalin.c:14957: warning: unused variable `p2527' rrr-stalin.c:14954: warning: unused variable `p2521' rrr-stalin.c:14951: warning: unused variable `p2515' rrr-stalin.c:14948: warning: unused variable `p2509' rrr-stalin.c:14945: warning: unused variable `p2503' rrr-stalin.c:14925: warning: unused variable `p855' rrr-stalin.c:14906: warning: unused variable `e2527' rrr-stalin.c:14901: warning: unused variable `e2521' rrr-stalin.c:14896: warning: unused variable `e2515' rrr-stalin.c:14891: warning: unused variable `e2509' rrr-stalin.c:14886: warning: unused variable `e2503' rrr-stalin.c:14878: warning: unused variable `e1822' rrr-stalin.c:14869: warning: unused variable `e855' rrr-stalin.c:14645: warning: unused variable `a2692' rrr-stalin.c:14636: warning: unused variable `a2683' rrr-stalin.c:14627: warning: unused variable `a2674' rrr-stalin.c:14618: warning: unused variable `a2665' rrr-stalin.c:14609: warning: unused variable `a2656' rrr-stalin.c:14595: warning: unused variable `a2262' rrr-stalin.c:14583: warning: unused variable `a1453' rrr-stalin.c:14565: warning: `a771' might be used uninitialized in this function rrr-stalin.c:14570: warning: `a776' might be used uninitialized in this function rrr-stalin.c:14571: warning: `a777' might be used uninitialized in this function rrr-stalin.c:14572: warning: `a778' might be used uninitialized in this function rrr-stalin.c:14573: warning: `a779' might be used uninitialized in this function rrr-stalin.c:14574: warning: `a780' might be used uninitialized in this function rrr-stalin.c:14577: warning: `a1447' might be used uninitialized in this function rrr-stalin.c:14579: warning: `a1449' might be used uninitialized in this function rrr-stalin.c:14582: warning: `a1452' might be used uninitialized in this function rrr-stalin.c:14586: warning: `a2253' might be used uninitialized in this function rrr-stalin.c:14587: warning: `a2254' might be used uninitialized in this function rrr-stalin.c:14590: warning: `a2257' might be used uninitialized in this function rrr-stalin.c:14593: warning: `a2260' might be used uninitialized in this function rrr-stalin.c:14594: warning: `a2261' might be used uninitialized in this function rrr-stalin.c:14597: warning: `a2494' might be used uninitialized in this function rrr-stalin.c:14598: warning: `a2497' might be used uninitialized in this function rrr-stalin.c:14600: warning: `a2499' might be used uninitialized in this function rrr-stalin.c:14603: warning: `a2650' might be used uninitialized in this function rrr-stalin.c:14605: warning: `a2652' might be used uninitialized in this function rrr-stalin.c:14608: warning: `a2655' might be used uninitialized in this function rrr-stalin.c:14612: warning: `a2659' might be used uninitialized in this function rrr-stalin.c:14614: warning: `a2661' might be used uninitialized in this function rrr-stalin.c:14617: warning: `a2664' might be used uninitialized in this function rrr-stalin.c:14621: warning: `a2668' might be used uninitialized in this function rrr-stalin.c:14623: warning: `a2670' might be used uninitialized in this function rrr-stalin.c:14626: warning: `a2673' might be used uninitialized in this function rrr-stalin.c:14630: warning: `a2677' might be used uninitialized in this function rrr-stalin.c:14632: warning: `a2679' might be used uninitialized in this function rrr-stalin.c:14635: warning: `a2682' might be used uninitialized in this function rrr-stalin.c:14639: warning: `a2686' might be used uninitialized in this function rrr-stalin.c:14641: warning: `a2688' might be used uninitialized in this function rrr-stalin.c:14644: warning: `a2691' might be used uninitialized in this function rrr-stalin.c:14732: warning: `t2557' might be used uninitialized in this function rrr-stalin.c:14843: warning: `t2725' might be used uninitialized in this function rrr-stalin.c: In function `f45': rrr-stalin.c:16215: warning: `a719' might be used uninitialized in this function rrr-stalin.c:16217: warning: `a721' might be used uninitialized in this function rrr-stalin.c:16219: warning: `a723' might be used uninitialized in this function rrr-stalin.c: In function `f0': rrr-stalin.c:18835: warning: unused variable `e2581' rrr-stalin.c:18787: warning: unused variable `e59' rrr-stalin.c:18782: warning: unused variable `e40' rrr-stalin.c:18773: warning: unused variable `e25' rrr-stalin.c:17842: warning: unused variable `a2738' rrr-stalin.c:17706: warning: unused variable `a729' rrr-stalin.c:17700: warning: unused variable `a713' rrr-stalin.c:17691: warning: unused variable `a704' rrr-stalin.c:16990: warning: `a1' might be used uninitialized in this function rrr-stalin.c:16991: warning: `a2' might be used uninitialized in this function rrr-stalin.c:16992: warning: `a3' might be used uninitialized in this function rrr-stalin.c:16993: warning: `a4' might be used uninitialized in this function rrr-stalin.c:16994: warning: `a5' might be used uninitialized in this function rrr-stalin.c:16995: warning: `a6' might be used uninitialized in this function rrr-stalin.c:16996: warning: `a7' might be used uninitialized in this function rrr-stalin.c:16997: warning: `a8' might be used uninitialized in this function rrr-stalin.c:16998: warning: `a9' might be used uninitialized in this function rrr-stalin.c:16999: warning: `a10' might be used uninitialized in this function rrr-stalin.c:17000: warning: `a11' might be used uninitialized in this function rrr-stalin.c:17001: warning: `a12' might be used uninitialized in this function rrr-stalin.c:17002: warning: `a13' might be used uninitialized in this function rrr-stalin.c:17003: warning: `a14' might be used uninitialized in this function rrr-stalin.c:17004: warning: `a15' might be used uninitialized in this function rrr-stalin.c:17005: warning: `a16' might be used uninitialized in this function rrr-stalin.c:17006: warning: `a17' might be used uninitialized in this function rrr-stalin.c:17007: warning: `a18' might be used uninitialized in this function rrr-stalin.c:17008: warning: `a19' might be used uninitialized in this function rrr-stalin.c:17009: warning: `a20' might be used uninitialized in this function rrr-stalin.c:17010: warning: `a21' might be used uninitialized in this function rrr-stalin.c:17011: warning: `a22' might be used uninitialized in this function rrr-stalin.c:17012: warning: `a23' might be used uninitialized in this function rrr-stalin.c:17013: warning: `a24' might be used uninitialized in this function rrr-stalin.c:17014: warning: `a25' might be used uninitialized in this function rrr-stalin.c:17015: warning: `a26' might be used uninitialized in this function rrr-stalin.c:17016: warning: `a27' might be used uninitialized in this function rrr-stalin.c:17017: warning: `a28' might be used uninitialized in this function rrr-stalin.c:17018: warning: `a29' might be used uninitialized in this function rrr-stalin.c:17019: warning: `a30' might be used uninitialized in this function rrr-stalin.c:17020: warning: `a31' might be used uninitialized in this function rrr-stalin.c:17021: warning: `a32' might be used uninitialized in this function rrr-stalin.c:17022: warning: `a33' might be used uninitialized in this function rrr-stalin.c:17023: warning: `a34' might be used uninitialized in this function rrr-stalin.c:17024: warning: `a35' might be used uninitialized in this function rrr-stalin.c:17025: warning: `a36' might be used uninitialized in this function rrr-stalin.c:17026: warning: `a37' might be used uninitialized in this function rrr-stalin.c:17027: warning: `a38' might be used uninitialized in this function rrr-stalin.c:17028: warning: `a39' might be used uninitialized in this function rrr-stalin.c:17029: warning: `a40' might be used uninitialized in this function rrr-stalin.c:17030: warning: `a41' might be used uninitialized in this function rrr-stalin.c:17031: warning: `a42' might be used uninitialized in this function rrr-stalin.c:17032: warning: `a43' might be used uninitialized in this function rrr-stalin.c:17033: warning: `a44' might be used uninitialized in this function rrr-stalin.c:17034: warning: `a45' might be used uninitialized in this function rrr-stalin.c:17035: warning: `a46' might be used uninitialized in this function rrr-stalin.c:17036: warning: `a47' might be used uninitialized in this function rrr-stalin.c:17037: warning: `a48' might be used uninitialized in this function rrr-stalin.c:17038: warning: `a49' might be used uninitialized in this function rrr-stalin.c:17039: warning: `a50' might be used uninitialized in this function rrr-stalin.c:17040: warning: `a51' might be used uninitialized in this function rrr-stalin.c:17041: warning: `a52' might be used uninitialized in this function rrr-stalin.c:17042: warning: `a53' might be used uninitialized in this function rrr-stalin.c:17043: warning: `a54' might be used uninitialized in this function rrr-stalin.c:17044: warning: `a55' might be used uninitialized in this function rrr-stalin.c:17045: warning: `a56' might be used uninitialized in this function rrr-stalin.c:17046: warning: `a57' might be used uninitialized in this function rrr-stalin.c:17047: warning: `a58' might be used uninitialized in this function rrr-stalin.c:17048: warning: `a59' might be used uninitialized in this function rrr-stalin.c:17049: warning: `a60' might be used uninitialized in this function rrr-stalin.c:17050: warning: `a61' might be used uninitialized in this function rrr-stalin.c:17051: warning: `a62' might be used uninitialized in this function rrr-stalin.c:17052: warning: `a63' might be used uninitialized in this function rrr-stalin.c:17053: warning: `a64' might be used uninitialized in this function rrr-stalin.c:17054: warning: `a65' might be used uninitialized in this function rrr-stalin.c:17055: warning: `a66' might be used uninitialized in this function rrr-stalin.c:17056: warning: `a67' might be used uninitialized in this function rrr-stalin.c:17057: warning: `a68' might be used uninitialized in this function rrr-stalin.c:17058: warning: `a69' might be used uninitialized in this function rrr-stalin.c:17059: warning: `a70' might be used uninitialized in this function rrr-stalin.c:17060: warning: `a71' might be used uninitialized in this function rrr-stalin.c:17061: warning: `a72' might be used uninitialized in this function rrr-stalin.c:17062: warning: `a73' might be used uninitialized in this function rrr-stalin.c:17063: warning: `a74' might be used uninitialized in this function rrr-stalin.c:17064: warning: `a75' might be used uninitialized in this function rrr-stalin.c:17065: warning: `a76' might be used uninitialized in this function rrr-stalin.c:17066: warning: `a77' might be used uninitialized in this function rrr-stalin.c:17067: warning: `a78' might be used uninitialized in this function rrr-stalin.c:17068: warning: `a79' might be used uninitialized in this function rrr-stalin.c:17069: warning: `a80' might be used uninitialized in this function rrr-stalin.c:17070: warning: `a81' might be used uninitialized in this function rrr-stalin.c:17071: warning: `a82' might be used uninitialized in this function rrr-stalin.c:17072: warning: `a83' might be used uninitialized in this function rrr-stalin.c:17073: warning: `a84' might be used uninitialized in this function rrr-stalin.c:17074: warning: `a85' might be used uninitialized in this function rrr-stalin.c:17075: warning: `a86' might be used uninitialized in this function rrr-stalin.c:17076: warning: `a87' might be used uninitialized in this function rrr-stalin.c:17077: warning: `a88' might be used uninitialized in this function rrr-stalin.c:17078: warning: `a89' might be used uninitialized in this function rrr-stalin.c:17079: warning: `a90' might be used uninitialized in this function rrr-stalin.c:17080: warning: `a91' might be used uninitialized in this function rrr-stalin.c:17081: warning: `a92' might be used uninitialized in this function rrr-stalin.c:17082: warning: `a93' might be used uninitialized in this function rrr-stalin.c:17083: warning: `a94' might be used uninitialized in this function rrr-stalin.c:17084: warning: `a95' might be used uninitialized in this function rrr-stalin.c:17085: warning: `a96' might be used uninitialized in this function rrr-stalin.c:17086: warning: `a97' might be used uninitialized in this function rrr-stalin.c:17087: warning: `a98' might be used uninitialized in this function rrr-stalin.c:17088: warning: `a99' might be used uninitialized in this function rrr-stalin.c:17089: warning: `a100' might be used uninitialized in this function rrr-stalin.c:17090: warning: `a101' might be used uninitialized in this function rrr-stalin.c:17091: warning: `a102' might be used uninitialized in this function rrr-stalin.c:17092: warning: `a103' might be used uninitialized in this function rrr-stalin.c:17093: warning: `a104' might be used uninitialized in this function rrr-stalin.c:17094: warning: `a105' might be used uninitialized in this function rrr-stalin.c:17095: warning: `a106' might be used uninitialized in this function rrr-stalin.c:17096: warning: `a107' might be used uninitialized in this function rrr-stalin.c:17097: warning: `a108' might be used uninitialized in this function rrr-stalin.c:17098: warning: `a109' might be used uninitialized in this function rrr-stalin.c:17099: warning: `a110' might be used uninitialized in this function rrr-stalin.c:17100: warning: `a111' might be used uninitialized in this function rrr-stalin.c:17101: warning: `a112' might be used uninitialized in this function rrr-stalin.c:17102: warning: `a113' might be used uninitialized in this function rrr-stalin.c:17103: warning: `a114' might be used uninitialized in this function rrr-stalin.c:17104: warning: `a115' might be used uninitialized in this function rrr-stalin.c:17105: warning: `a116' might be used uninitialized in this function rrr-stalin.c:17106: warning: `a117' might be used uninitialized in this function rrr-stalin.c:17107: warning: `a118' might be used uninitialized in this function rrr-stalin.c:17108: warning: `a119' might be used uninitialized in this function rrr-stalin.c:17109: warning: `a120' might be used uninitialized in this function rrr-stalin.c:17110: warning: `a121' might be used uninitialized in this function rrr-stalin.c:17111: warning: `a122' might be used uninitialized in this function rrr-stalin.c:17112: warning: `a123' might be used uninitialized in this function rrr-stalin.c:17113: warning: `a124' might be used uninitialized in this function rrr-stalin.c:17114: warning: `a125' might be used uninitialized in this function rrr-stalin.c:17115: warning: `a126' might be used uninitialized in this function rrr-stalin.c:17116: warning: `a127' might be used uninitialized in this function rrr-stalin.c:17117: warning: `a128' might be used uninitialized in this function rrr-stalin.c:17118: warning: `a129' might be used uninitialized in this function rrr-stalin.c:17119: warning: `a130' might be used uninitialized in this function rrr-stalin.c:17120: warning: `a131' might be used uninitialized in this function rrr-stalin.c:17121: warning: `a132' might be used uninitialized in this function rrr-stalin.c:17122: warning: `a133' might be used uninitialized in this function rrr-stalin.c:17123: warning: `a134' might be used uninitialized in this function rrr-stalin.c:17124: warning: `a135' might be used uninitialized in this function rrr-stalin.c:17125: warning: `a136' might be used uninitialized in this function rrr-stalin.c:17126: warning: `a137' might be used uninitialized in this function rrr-stalin.c:17127: warning: `a138' might be used uninitialized in this function rrr-stalin.c:17128: warning: `a139' might be used uninitialized in this function rrr-stalin.c:17129: warning: `a140' might be used uninitialized in this function rrr-stalin.c:17130: warning: `a141' might be used uninitialized in this function rrr-stalin.c:17131: warning: `a142' might be used uninitialized in this function rrr-stalin.c:17132: warning: `a143' might be used uninitialized in this function rrr-stalin.c:17133: warning: `a144' might be used uninitialized in this function rrr-stalin.c:17134: warning: `a145' might be used uninitialized in this function rrr-stalin.c:17135: warning: `a146' might be used uninitialized in this function rrr-stalin.c:17136: warning: `a147' might be used uninitialized in this function rrr-stalin.c:17137: warning: `a148' might be used uninitialized in this function rrr-stalin.c:17138: warning: `a149' might be used uninitialized in this function rrr-stalin.c:17139: warning: `a150' might be used uninitialized in this function rrr-stalin.c:17140: warning: `a151' might be used uninitialized in this function rrr-stalin.c:17141: warning: `a152' might be used uninitialized in this function rrr-stalin.c:17142: warning: `a153' might be used uninitialized in this function rrr-stalin.c:17143: warning: `a154' might be used uninitialized in this function rrr-stalin.c:17144: warning: `a155' might be used uninitialized in this function rrr-stalin.c:17145: warning: `a156' might be used uninitialized in this function rrr-stalin.c:17146: warning: `a157' might be used uninitialized in this function rrr-stalin.c:17147: warning: `a158' might be used uninitialized in this function rrr-stalin.c:17148: warning: `a159' might be used uninitialized in this function rrr-stalin.c:17149: warning: `a160' might be used uninitialized in this function rrr-stalin.c:17150: warning: `a161' might be used uninitialized in this function rrr-stalin.c:17151: warning: `a162' might be used uninitialized in this function rrr-stalin.c:17152: warning: `a163' might be used uninitialized in this function rrr-stalin.c:17153: warning: `a164' might be used uninitialized in this function rrr-stalin.c:17154: warning: `a165' might be used uninitialized in this function rrr-stalin.c:17155: warning: `a166' might be used uninitialized in this function rrr-stalin.c:17156: warning: `a167' might be used uninitialized in this function rrr-stalin.c:17157: warning: `a168' might be used uninitialized in this function rrr-stalin.c:17158: warning: `a169' might be used uninitialized in this function rrr-stalin.c:17159: warning: `a170' might be used uninitialized in this function rrr-stalin.c:17160: warning: `a171' might be used uninitialized in this function rrr-stalin.c:17161: warning: `a172' might be used uninitialized in this function rrr-stalin.c:17162: warning: `a173' might be used uninitialized in this function rrr-stalin.c:17163: warning: `a174' might be used uninitialized in this function rrr-stalin.c:17164: warning: `a175' might be used uninitialized in this function rrr-stalin.c:17165: warning: `a176' might be used uninitialized in this function rrr-stalin.c:17166: warning: `a177' might be used uninitialized in this function rrr-stalin.c:17167: warning: `a178' might be used uninitialized in this function rrr-stalin.c:17168: warning: `a179' might be used uninitialized in this function rrr-stalin.c:17169: warning: `a180' might be used uninitialized in this function rrr-stalin.c:17170: warning: `a181' might be used uninitialized in this function rrr-stalin.c:17171: warning: `a182' might be used uninitialized in this function rrr-stalin.c:17172: warning: `a183' might be used uninitialized in this function rrr-stalin.c:17173: warning: `a184' might be used uninitialized in this function rrr-stalin.c:17174: warning: `a185' might be used uninitialized in this function rrr-stalin.c:17175: warning: `a186' might be used uninitialized in this function rrr-stalin.c:17176: warning: `a187' might be used uninitialized in this function rrr-stalin.c:17177: warning: `a188' might be used uninitialized in this function rrr-stalin.c:17178: warning: `a189' might be used uninitialized in this function rrr-stalin.c:17179: warning: `a190' might be used uninitialized in this function rrr-stalin.c:17180: warning: `a191' might be used uninitialized in this function rrr-stalin.c:17181: warning: `a192' might be used uninitialized in this function rrr-stalin.c:17182: warning: `a193' might be used uninitialized in this function rrr-stalin.c:17183: warning: `a194' might be used uninitialized in this function rrr-stalin.c:17184: warning: `a195' might be used uninitialized in this function rrr-stalin.c:17185: warning: `a196' might be used uninitialized in this function rrr-stalin.c:17186: warning: `a197' might be used uninitialized in this function rrr-stalin.c:17187: warning: `a198' might be used uninitialized in this function rrr-stalin.c:17188: warning: `a199' might be used uninitialized in this function rrr-stalin.c:17189: warning: `a200' might be used uninitialized in this function rrr-stalin.c:17190: warning: `a201' might be used uninitialized in this function rrr-stalin.c:17191: warning: `a202' might be used uninitialized in this function rrr-stalin.c:17192: warning: `a203' might be used uninitialized in this function rrr-stalin.c:17193: warning: `a204' might be used uninitialized in this function rrr-stalin.c:17194: warning: `a205' might be used uninitialized in this function rrr-stalin.c:17195: warning: `a206' might be used uninitialized in this function rrr-stalin.c:17196: warning: `a207' might be used uninitialized in this function rrr-stalin.c:17197: warning: `a208' might be used uninitialized in this function rrr-stalin.c:17198: warning: `a209' might be used uninitialized in this function rrr-stalin.c:17199: warning: `a210' might be used uninitialized in this function rrr-stalin.c:17200: warning: `a211' might be used uninitialized in this function rrr-stalin.c:17201: warning: `a212' might be used uninitialized in this function rrr-stalin.c:17202: warning: `a213' might be used uninitialized in this function rrr-stalin.c:17203: warning: `a214' might be used uninitialized in this function rrr-stalin.c:17204: warning: `a215' might be used uninitialized in this function rrr-stalin.c:17205: warning: `a216' might be used uninitialized in this function rrr-stalin.c:17206: warning: `a217' might be used uninitialized in this function rrr-stalin.c:17207: warning: `a218' might be used uninitialized in this function rrr-stalin.c:17208: warning: `a219' might be used uninitialized in this function rrr-stalin.c:17209: warning: `a220' might be used uninitialized in this function rrr-stalin.c:17210: warning: `a221' might be used uninitialized in this function rrr-stalin.c:17211: warning: `a222' might be used uninitialized in this function rrr-stalin.c:17212: warning: `a223' might be used uninitialized in this function rrr-stalin.c:17213: warning: `a224' might be used uninitialized in this function rrr-stalin.c:17214: warning: `a225' might be used uninitialized in this function rrr-stalin.c:17215: warning: `a226' might be used uninitialized in this function rrr-stalin.c:17216: warning: `a227' might be used uninitialized in this function rrr-stalin.c:17217: warning: `a228' might be used uninitialized in this function rrr-stalin.c:17218: warning: `a229' might be used uninitialized in this function rrr-stalin.c:17219: warning: `a230' might be used uninitialized in this function rrr-stalin.c:17220: warning: `a231' might be used uninitialized in this function rrr-stalin.c:17221: warning: `a232' might be used uninitialized in this function rrr-stalin.c:17222: warning: `a233' might be used uninitialized in this function rrr-stalin.c:17223: warning: `a234' might be used uninitialized in this function rrr-stalin.c:17224: warning: `a235' might be used uninitialized in this function rrr-stalin.c:17225: warning: `a236' might be used uninitialized in this function rrr-stalin.c:17226: warning: `a237' might be used uninitialized in this function rrr-stalin.c:17227: warning: `a238' might be used uninitialized in this function rrr-stalin.c:17228: warning: `a239' might be used uninitialized in this function rrr-stalin.c:17229: warning: `a240' might be used uninitialized in this function rrr-stalin.c:17230: warning: `a241' might be used uninitialized in this function rrr-stalin.c:17231: warning: `a242' might be used uninitialized in this function rrr-stalin.c:17232: warning: `a243' might be used uninitialized in this function rrr-stalin.c:17233: warning: `a244' might be used uninitialized in this function rrr-stalin.c:17234: warning: `a245' might be used uninitialized in this function rrr-stalin.c:17235: warning: `a246' might be used uninitialized in this function rrr-stalin.c:17236: warning: `a247' might be used uninitialized in this function rrr-stalin.c:17237: warning: `a248' might be used uninitialized in this function rrr-stalin.c:17238: warning: `a249' might be used uninitialized in this function rrr-stalin.c:17239: warning: `a250' might be used uninitialized in this function rrr-stalin.c:17240: warning: `a251' might be used uninitialized in this function rrr-stalin.c:17241: warning: `a252' might be used uninitialized in this function rrr-stalin.c:17242: warning: `a253' might be used uninitialized in this function rrr-stalin.c:17243: warning: `a254' might be used uninitialized in this function rrr-stalin.c:17244: warning: `a255' might be used uninitialized in this function rrr-stalin.c:17245: warning: `a256' might be used uninitialized in this function rrr-stalin.c:17246: warning: `a257' might be used uninitialized in this function rrr-stalin.c:17247: warning: `a258' might be used uninitialized in this function rrr-stalin.c:17248: warning: `a259' might be used uninitialized in this function rrr-stalin.c:17249: warning: `a260' might be used uninitialized in this function rrr-stalin.c:17250: warning: `a261' might be used uninitialized in this function rrr-stalin.c:17251: warning: `a262' might be used uninitialized in this function rrr-stalin.c:17252: warning: `a263' might be used uninitialized in this function rrr-stalin.c:17253: warning: `a264' might be used uninitialized in this function rrr-stalin.c:17254: warning: `a265' might be used uninitialized in this function rrr-stalin.c:17255: warning: `a266' might be used uninitialized in this function rrr-stalin.c:17256: warning: `a267' might be used uninitialized in this function rrr-stalin.c:17257: warning: `a268' might be used uninitialized in this function rrr-stalin.c:17258: warning: `a269' might be used uninitialized in this function rrr-stalin.c:17259: warning: `a270' might be used uninitialized in this function rrr-stalin.c:17260: warning: `a271' might be used uninitialized in this function rrr-stalin.c:17261: warning: `a272' might be used uninitialized in this function rrr-stalin.c:17262: warning: `a273' might be used uninitialized in this function rrr-stalin.c:17263: warning: `a274' might be used uninitialized in this function rrr-stalin.c:17264: warning: `a275' might be used uninitialized in this function rrr-stalin.c:17265: warning: `a276' might be used uninitialized in this function rrr-stalin.c:17266: warning: `a277' might be used uninitialized in this function rrr-stalin.c:17267: warning: `a278' might be used uninitialized in this function rrr-stalin.c:17268: warning: `a279' might be used uninitialized in this function rrr-stalin.c:17269: warning: `a280' might be used uninitialized in this function rrr-stalin.c:17270: warning: `a281' might be used uninitialized in this function rrr-stalin.c:17271: warning: `a282' might be used uninitialized in this function rrr-stalin.c:17272: warning: `a283' might be used uninitialized in this function rrr-stalin.c:17273: warning: `a284' might be used uninitialized in this function rrr-stalin.c:17274: warning: `a285' might be used uninitialized in this function rrr-stalin.c:17275: warning: `a286' might be used uninitialized in this function rrr-stalin.c:17276: warning: `a287' might be used uninitialized in this function rrr-stalin.c:17277: warning: `a288' might be used uninitialized in this function rrr-stalin.c:17278: warning: `a289' might be used uninitialized in this function rrr-stalin.c:17279: warning: `a290' might be used uninitialized in this function rrr-stalin.c:17280: warning: `a291' might be used uninitialized in this function rrr-stalin.c:17281: warning: `a292' might be used uninitialized in this function rrr-stalin.c:17282: warning: `a293' might be used uninitialized in this function rrr-stalin.c:17283: warning: `a294' might be used uninitialized in this function rrr-stalin.c:17284: warning: `a295' might be used uninitialized in this function rrr-stalin.c:17285: warning: `a296' might be used uninitialized in this function rrr-stalin.c:17286: warning: `a297' might be used uninitialized in this function rrr-stalin.c:17287: warning: `a298' might be used uninitialized in this function rrr-stalin.c:17288: warning: `a299' might be used uninitialized in this function rrr-stalin.c:17289: warning: `a300' might be used uninitialized in this function rrr-stalin.c:17290: warning: `a301' might be used uninitialized in this function rrr-stalin.c:17291: warning: `a302' might be used uninitialized in this function rrr-stalin.c:17292: warning: `a303' might be used uninitialized in this function rrr-stalin.c:17293: warning: `a304' might be used uninitialized in this function rrr-stalin.c:17294: warning: `a305' might be used uninitialized in this function rrr-stalin.c:17295: warning: `a306' might be used uninitialized in this function rrr-stalin.c:17296: warning: `a307' might be used uninitialized in this function rrr-stalin.c:17297: warning: `a308' might be used uninitialized in this function rrr-stalin.c:17298: warning: `a309' might be used uninitialized in this function rrr-stalin.c:17299: warning: `a310' might be used uninitialized in this function rrr-stalin.c:17300: warning: `a311' might be used uninitialized in this function rrr-stalin.c:17301: warning: `a312' might be used uninitialized in this function rrr-stalin.c:17302: warning: `a313' might be used uninitialized in this function rrr-stalin.c:17303: warning: `a314' might be used uninitialized in this function rrr-stalin.c:17304: warning: `a315' might be used uninitialized in this function rrr-stalin.c:17305: warning: `a316' might be used uninitialized in this function rrr-stalin.c:17306: warning: `a317' might be used uninitialized in this function rrr-stalin.c:17307: warning: `a318' might be used uninitialized in this function rrr-stalin.c:17308: warning: `a319' might be used uninitialized in this function rrr-stalin.c:17309: warning: `a320' might be used uninitialized in this function rrr-stalin.c:17310: warning: `a321' might be used uninitialized in this function rrr-stalin.c:17311: warning: `a322' might be used uninitialized in this function rrr-stalin.c:17312: warning: `a323' might be used uninitialized in this function rrr-stalin.c:17313: warning: `a324' might be used uninitialized in this function rrr-stalin.c:17314: warning: `a325' might be used uninitialized in this function rrr-stalin.c:17315: warning: `a326' might be used uninitialized in this function rrr-stalin.c:17316: warning: `a327' might be used uninitialized in this function rrr-stalin.c:17317: warning: `a328' might be used uninitialized in this function rrr-stalin.c:17318: warning: `a329' might be used uninitialized in this function rrr-stalin.c:17319: warning: `a330' might be used uninitialized in this function rrr-stalin.c:17320: warning: `a331' might be used uninitialized in this function rrr-stalin.c:17321: warning: `a332' might be used uninitialized in this function rrr-stalin.c:17322: warning: `a333' might be used uninitialized in this function rrr-stalin.c:17323: warning: `a334' might be used uninitialized in this function rrr-stalin.c:17324: warning: `a335' might be used uninitialized in this function rrr-stalin.c:17325: warning: `a336' might be used uninitialized in this function rrr-stalin.c:17326: warning: `a337' might be used uninitialized in this function rrr-stalin.c:17327: warning: `a338' might be used uninitialized in this function rrr-stalin.c:17328: warning: `a339' might be used uninitialized in this function rrr-stalin.c:17329: warning: `a340' might be used uninitialized in this function rrr-stalin.c:17330: warning: `a341' might be used uninitialized in this function rrr-stalin.c:17331: warning: `a342' might be used uninitialized in this function rrr-stalin.c:17332: warning: `a343' might be used uninitialized in this function rrr-stalin.c:17333: warning: `a344' might be used uninitialized in this function rrr-stalin.c:17334: warning: `a345' might be used uninitialized in this function rrr-stalin.c:17335: warning: `a346' might be used uninitialized in this function rrr-stalin.c:17336: warning: `a347' might be used uninitialized in this function rrr-stalin.c:17337: warning: `a348' might be used uninitialized in this function rrr-stalin.c:17338: warning: `a349' might be used uninitialized in this function rrr-stalin.c:17339: warning: `a350' might be used uninitialized in this function rrr-stalin.c:17340: warning: `a351' might be used uninitialized in this function rrr-stalin.c:17341: warning: `a352' might be used uninitialized in this function rrr-stalin.c:17342: warning: `a353' might be used uninitialized in this function rrr-stalin.c:17343: warning: `a354' might be used uninitialized in this function rrr-stalin.c:17344: warning: `a355' might be used uninitialized in this function rrr-stalin.c:17345: warning: `a356' might be used uninitialized in this function rrr-stalin.c:17346: warning: `a357' might be used uninitialized in this function rrr-stalin.c:17347: warning: `a358' might be used uninitialized in this function rrr-stalin.c:17348: warning: `a359' might be used uninitialized in this function rrr-stalin.c:17349: warning: `a360' might be used uninitialized in this function rrr-stalin.c:17350: warning: `a361' might be used uninitialized in this function rrr-stalin.c:17351: warning: `a362' might be used uninitialized in this function rrr-stalin.c:17352: warning: `a363' might be used uninitialized in this function rrr-stalin.c:17353: warning: `a364' might be used uninitialized in this function rrr-stalin.c:17354: warning: `a365' might be used uninitialized in this function rrr-stalin.c:17355: warning: `a366' might be used uninitialized in this function rrr-stalin.c:17356: warning: `a367' might be used uninitialized in this function rrr-stalin.c:17357: warning: `a368' might be used uninitialized in this function rrr-stalin.c:17358: warning: `a369' might be used uninitialized in this function rrr-stalin.c:17359: warning: `a370' might be used uninitialized in this function rrr-stalin.c:17360: warning: `a371' might be used uninitialized in this function rrr-stalin.c:17361: warning: `a372' might be used uninitialized in this function rrr-stalin.c:17362: warning: `a373' might be used uninitialized in this function rrr-stalin.c:17363: warning: `a374' might be used uninitialized in this function rrr-stalin.c:17364: warning: `a375' might be used uninitialized in this function rrr-stalin.c:17365: warning: `a376' might be used uninitialized in this function rrr-stalin.c:17366: warning: `a377' might be used uninitialized in this function rrr-stalin.c:17367: warning: `a378' might be used uninitialized in this function rrr-stalin.c:17368: warning: `a379' might be used uninitialized in this function rrr-stalin.c:17369: warning: `a380' might be used uninitialized in this function rrr-stalin.c:17370: warning: `a381' might be used uninitialized in this function rrr-stalin.c:17371: warning: `a382' might be used uninitialized in this function rrr-stalin.c:17372: warning: `a383' might be used uninitialized in this function rrr-stalin.c:17373: warning: `a384' might be used uninitialized in this function rrr-stalin.c:17374: warning: `a385' might be used uninitialized in this function rrr-stalin.c:17375: warning: `a386' might be used uninitialized in this function rrr-stalin.c:17376: warning: `a387' might be used uninitialized in this function rrr-stalin.c:17377: warning: `a388' might be used uninitialized in this function rrr-stalin.c:17378: warning: `a389' might be used uninitialized in this function rrr-stalin.c:17379: warning: `a390' might be used uninitialized in this function rrr-stalin.c:17380: warning: `a391' might be used uninitialized in this function rrr-stalin.c:17381: warning: `a392' might be used uninitialized in this function rrr-stalin.c:17382: warning: `a393' might be used uninitialized in this function rrr-stalin.c:17383: warning: `a394' might be used uninitialized in this function rrr-stalin.c:17384: warning: `a395' might be used uninitialized in this function rrr-stalin.c:17385: warning: `a396' might be used uninitialized in this function rrr-stalin.c:17386: warning: `a397' might be used uninitialized in this function rrr-stalin.c:17387: warning: `a398' might be used uninitialized in this function rrr-stalin.c:17388: warning: `a399' might be used uninitialized in this function rrr-stalin.c:17389: warning: `a400' might be used uninitialized in this function rrr-stalin.c:17390: warning: `a401' might be used uninitialized in this function rrr-stalin.c:17391: warning: `a402' might be used uninitialized in this function rrr-stalin.c:17392: warning: `a403' might be used uninitialized in this function rrr-stalin.c:17393: warning: `a404' might be used uninitialized in this function rrr-stalin.c:17394: warning: `a405' might be used uninitialized in this function rrr-stalin.c:17395: warning: `a406' might be used uninitialized in this function rrr-stalin.c:17396: warning: `a407' might be used uninitialized in this function rrr-stalin.c:17397: warning: `a408' might be used uninitialized in this function rrr-stalin.c:17398: warning: `a409' might be used uninitialized in this function rrr-stalin.c:17399: warning: `a410' might be used uninitialized in this function rrr-stalin.c:17400: warning: `a411' might be used uninitialized in this function rrr-stalin.c:17401: warning: `a412' might be used uninitialized in this function rrr-stalin.c:17402: warning: `a413' might be used uninitialized in this function rrr-stalin.c:17403: warning: `a414' might be used uninitialized in this function rrr-stalin.c:17404: warning: `a415' might be used uninitialized in this function rrr-stalin.c:17405: warning: `a416' might be used uninitialized in this function rrr-stalin.c:17406: warning: `a417' might be used uninitialized in this function rrr-stalin.c:17407: warning: `a418' might be used uninitialized in this function rrr-stalin.c:17408: warning: `a419' might be used uninitialized in this function rrr-stalin.c:17409: warning: `a420' might be used uninitialized in this function rrr-stalin.c:17410: warning: `a421' might be used uninitialized in this function rrr-stalin.c:17411: warning: `a422' might be used uninitialized in this function rrr-stalin.c:17412: warning: `a423' might be used uninitialized in this function rrr-stalin.c:17413: warning: `a424' might be used uninitialized in this function rrr-stalin.c:17414: warning: `a425' might be used uninitialized in this function rrr-stalin.c:17415: warning: `a426' might be used uninitialized in this function rrr-stalin.c:17416: warning: `a427' might be used uninitialized in this function rrr-stalin.c:17417: warning: `a428' might be used uninitialized in this function rrr-stalin.c:17418: warning: `a429' might be used uninitialized in this function rrr-stalin.c:17419: warning: `a430' might be used uninitialized in this function rrr-stalin.c:17420: warning: `a431' might be used uninitialized in this function rrr-stalin.c:17421: warning: `a432' might be used uninitialized in this function rrr-stalin.c:17422: warning: `a433' might be used uninitialized in this function rrr-stalin.c:17423: warning: `a434' might be used uninitialized in this function rrr-stalin.c:17424: warning: `a435' might be used uninitialized in this function rrr-stalin.c:17638: warning: `a649' might be used uninitialized in this function rrr-stalin.c:17639: warning: `a650' might be used uninitialized in this function rrr-stalin.c:17640: warning: `a651' might be used uninitialized in this function rrr-stalin.c:17641: warning: `a652' might be used uninitialized in this function rrr-stalin.c:17642: warning: `a653' might be used uninitialized in this function rrr-stalin.c:17643: warning: `a654' might be used uninitialized in this function rrr-stalin.c:17644: warning: `a655' might be used uninitialized in this function rrr-stalin.c:17645: warning: `a656' might be used uninitialized in this function rrr-stalin.c:17646: warning: `a657' might be used uninitialized in this function rrr-stalin.c:17647: warning: `a658' might be used uninitialized in this function rrr-stalin.c:17648: warning: `a659' might be used uninitialized in this function rrr-stalin.c:17649: warning: `a660' might be used uninitialized in this function rrr-stalin.c:17650: warning: `a661' might be used uninitialized in this function rrr-stalin.c:17651: warning: `a663' might be used uninitialized in this function rrr-stalin.c:17652: warning: `a664' might be used uninitialized in this function rrr-stalin.c:17653: warning: `a665' might be used uninitialized in this function rrr-stalin.c:17654: warning: `a666' might be used uninitialized in this function rrr-stalin.c:17655: warning: `a667' might be used uninitialized in this function rrr-stalin.c:17656: warning: `a668' might be used uninitialized in this function rrr-stalin.c:17657: warning: `a669' might be used uninitialized in this function rrr-stalin.c:17658: warning: `a670' might be used uninitialized in this function rrr-stalin.c:17659: warning: `a671' might be used uninitialized in this function rrr-stalin.c:17660: warning: `a672' might be used uninitialized in this function rrr-stalin.c:17661: warning: `a673' might be used uninitialized in this function rrr-stalin.c:17662: warning: `a674' might be used uninitialized in this function rrr-stalin.c:17663: warning: `a675' might be used uninitialized in this function rrr-stalin.c:17664: warning: `a676' might be used uninitialized in this function rrr-stalin.c:17665: warning: `a677' might be used uninitialized in this function rrr-stalin.c:17666: warning: `a678' might be used uninitialized in this function rrr-stalin.c:17667: warning: `a679' might be used uninitialized in this function rrr-stalin.c:17668: warning: `a680' might be used uninitialized in this function rrr-stalin.c:17669: warning: `a681' might be used uninitialized in this function rrr-stalin.c:17670: warning: `a682' might be used uninitialized in this function rrr-stalin.c:17671: warning: `a683' might be used uninitialized in this function rrr-stalin.c:17672: warning: `a684' might be used uninitialized in this function rrr-stalin.c:17673: warning: `a685' might be used uninitialized in this function rrr-stalin.c:17674: warning: `a686' might be used uninitialized in this function rrr-stalin.c:17675: warning: `a687' might be used uninitialized in this function rrr-stalin.c:17681: warning: `a694' might be used uninitialized in this function rrr-stalin.c:17682: warning: `a695' might be used uninitialized in this function rrr-stalin.c:17684: warning: `a697' might be used uninitialized in this function rrr-stalin.c:17686: warning: `a699' might be used uninitialized in this function rrr-stalin.c:17688: warning: `a701' might be used uninitialized in this function rrr-stalin.c:17690: warning: `a703' might be used uninitialized in this function rrr-stalin.c:17693: warning: `a706' might be used uninitialized in this function rrr-stalin.c:17695: warning: `a708' might be used uninitialized in this function rrr-stalin.c:17697: warning: `a710' might be used uninitialized in this function rrr-stalin.c:17699: warning: `a712' might be used uninitialized in this function rrr-stalin.c:17704: warning: `a727' might be used uninitialized in this function rrr-stalin.c:17727: warning: `a802' might be used uninitialized in this function rrr-stalin.c:17728: warning: `a803' might be used uninitialized in this function rrr-stalin.c:17729: warning: `a804' might be used uninitialized in this function rrr-stalin.c:17730: warning: `a805' might be used uninitialized in this function rrr-stalin.c:17731: warning: `a806' might be used uninitialized in this function rrr-stalin.c:17732: warning: `a807' might be used uninitialized in this function rrr-stalin.c:17733: warning: `a808' might be used uninitialized in this function rrr-stalin.c:17734: warning: `a809' might be used uninitialized in this function rrr-stalin.c:17735: warning: `a810' might be used uninitialized in this function rrr-stalin.c:17736: warning: `a811' might be used uninitialized in this function rrr-stalin.c:17737: warning: `a812' might be used uninitialized in this function rrr-stalin.c:17738: warning: `a813' might be used uninitialized in this function rrr-stalin.c:17739: warning: `a814' might be used uninitialized in this function rrr-stalin.c:17740: warning: `a815' might be used uninitialized in this function rrr-stalin.c:17741: warning: `a816' might be used uninitialized in this function rrr-stalin.c:17742: warning: `a817' might be used uninitialized in this function rrr-stalin.c:17743: warning: `a818' might be used uninitialized in this function rrr-stalin.c:17744: warning: `a819' might be used uninitialized in this function rrr-stalin.c:17745: warning: `a820' might be used uninitialized in this function rrr-stalin.c:17746: warning: `a821' might be used uninitialized in this function rrr-stalin.c:17747: warning: `a822' might be used uninitialized in this function rrr-stalin.c:17748: warning: `a823' might be used uninitialized in this function rrr-stalin.c:17750: warning: `a825' might be used uninitialized in this function rrr-stalin.c:17753: warning: `a828' might be used uninitialized in this function rrr-stalin.c:17754: warning: `a829' might be used uninitialized in this function rrr-stalin.c:17756: warning: `a831' might be used uninitialized in this function rrr-stalin.c:17757: warning: `a832' might be used uninitialized in this function rrr-stalin.c:17759: warning: `a834' might be used uninitialized in this function rrr-stalin.c:17764: warning: `a1291' might be used uninitialized in this function rrr-stalin.c:17765: warning: `a2154' might be used uninitialized in this function rrr-stalin.c:17766: warning: `a2155' might be used uninitialized in this function rrr-stalin.c:17770: warning: `a2159' might be used uninitialized in this function rrr-stalin.c:17771: warning: `a2160' might be used uninitialized in this function rrr-stalin.c:17772: warning: `a2161' might be used uninitialized in this function rrr-stalin.c:17773: warning: `a2162' might be used uninitialized in this function rrr-stalin.c:17774: warning: `a2163' might be used uninitialized in this function rrr-stalin.c:17775: warning: `a2164' might be used uninitialized in this function rrr-stalin.c:17776: warning: `a2165' might be used uninitialized in this function rrr-stalin.c:17777: warning: `a2166' might be used uninitialized in this function rrr-stalin.c:17778: warning: `a2167' might be used uninitialized in this function rrr-stalin.c:17779: warning: `a2168' might be used uninitialized in this function rrr-stalin.c:17780: warning: `a2169' might be used uninitialized in this function rrr-stalin.c:17781: warning: `a2170' might be used uninitialized in this function rrr-stalin.c:17782: warning: `a2171' might be used uninitialized in this function rrr-stalin.c:17783: warning: `a2172' might be used uninitialized in this function rrr-stalin.c:17784: warning: `a2173' might be used uninitialized in this function rrr-stalin.c:17785: warning: `a2174' might be used uninitialized in this function rrr-stalin.c:17786: warning: `a2175' might be used uninitialized in this function rrr-stalin.c:17787: warning: `a2176' might be used uninitialized in this function rrr-stalin.c:17788: warning: `a2177' might be used uninitialized in this function rrr-stalin.c:17789: warning: `a2178' might be used uninitialized in this function rrr-stalin.c:17790: warning: `a2179' might be used uninitialized in this function rrr-stalin.c:17791: warning: `a2180' might be used uninitialized in this function rrr-stalin.c:17792: warning: `a2181' might be used uninitialized in this function rrr-stalin.c:17793: warning: `a2182' might be used uninitialized in this function rrr-stalin.c:17794: warning: `a2183' might be used uninitialized in this function rrr-stalin.c:17795: warning: `a2184' might be used uninitialized in this function rrr-stalin.c:17796: warning: `a2185' might be used uninitialized in this function rrr-stalin.c:17797: warning: `a2186' might be used uninitialized in this function rrr-stalin.c:17798: warning: `a2187' might be used uninitialized in this function rrr-stalin.c:17799: warning: `a2188' might be used uninitialized in this function rrr-stalin.c:17800: warning: `a2189' might be used uninitialized in this function rrr-stalin.c:17801: warning: `a2190' might be used uninitialized in this function rrr-stalin.c:17802: warning: `a2191' might be used uninitialized in this function rrr-stalin.c:17803: warning: `a2192' might be used uninitialized in this function rrr-stalin.c:17833: warning: `a2725' might be used uninitialized in this function rrr-stalin.c:17836: warning: `a2730' might be used uninitialized in this function rrr-stalin.c:17840: warning: `a2736' might be used uninitialized in this function rrr-stalin.c:17852: warning: `t3289' might be used uninitialized in this function rrr-stalin.c:17853: warning: `t3290' might be used uninitialized in this function rrr-stalin.c:17854: warning: `t3291' might be used uninitialized in this function rrr-stalin.c:17855: warning: `t3292' might be used uninitialized in this function rrr-stalin.c:17856: warning: `t3293' might be used uninitialized in this function rrr-stalin.c:17857: warning: `t3294' might be used uninitialized in this function rrr-stalin.c:17858: warning: `t3295' might be used uninitialized in this function rrr-stalin.c:17859: warning: `t3296' might be used uninitialized in this function rrr-stalin.c:17864: warning: `t3301' might be used uninitialized in this function rrr-stalin.c:17865: warning: `t3302' might be used uninitialized in this function rrr-stalin.c:17866: warning: `t3303' might be used uninitialized in this function rrr-stalin.c:17867: warning: `t3304' might be used uninitialized in this function rrr-stalin.c:17868: warning: `t3305' might be used uninitialized in this function rrr-stalin.c:17869: warning: `t3306' might be used uninitialized in this function rrr-stalin.c:17870: warning: `t3307' might be used uninitialized in this function rrr-stalin.c:17871: warning: `t3308' might be used uninitialized in this function rrr-stalin.c:17872: warning: `t3309' might be used uninitialized in this function rrr-stalin.c:17873: warning: `t3310' might be used uninitialized in this function rrr-stalin.c:17874: warning: `t3311' might be used uninitialized in this function rrr-stalin.c:17875: warning: `t3312' might be used uninitialized in this function rrr-stalin.c:17876: warning: `t3313' might be used uninitialized in this function rrr-stalin.c:17877: warning: `t3314' might be used uninitialized in this function rrr-stalin.c:17878: warning: `t3315' might be used uninitialized in this function rrr-stalin.c:17879: warning: `t3316' might be used uninitialized in this function rrr-stalin.c:17880: warning: `t3317' might be used uninitialized in this function rrr-stalin.c:17881: warning: `t3318' might be used uninitialized in this function rrr-stalin.c:17882: warning: `t3319' might be used uninitialized in this function rrr-stalin.c:17885: warning: `t3322' might be used uninitialized in this function rrr-stalin.c:17886: warning: `t3323' might be used uninitialized in this function rrr-stalin.c:17887: warning: `t3324' might be used uninitialized in this function rrr-stalin.c:17888: warning: `t3325' might be used uninitialized in this function rrr-stalin.c:17889: warning: `t3326' might be used uninitialized in this function rrr-stalin.c:17890: warning: `t3327' might be used uninitialized in this function rrr-stalin.c:17891: warning: `t3328' might be used uninitialized in this function rrr-stalin.c:17892: warning: `t3329' might be used uninitialized in this function rrr-stalin.c:17893: warning: `t3330' might be used uninitialized in this function rrr-stalin.c:17894: warning: `t3331' might be used uninitialized in this function rrr-stalin.c:17895: warning: `t3332' might be used uninitialized in this function rrr-stalin.c:17896: warning: `t3333' might be used uninitialized in this function rrr-stalin.c:17897: warning: `t3334' might be used uninitialized in this function rrr-stalin.c:17898: warning: `t3335' might be used uninitialized in this function rrr-stalin.c:17899: warning: `t3336' might be used uninitialized in this function rrr-stalin.c:17900: warning: `t3337' might be used uninitialized in this function rrr-stalin.c:17901: warning: `t3338' might be used uninitialized in this function rrr-stalin.c:17902: warning: `t3339' might be used uninitialized in this function rrr-stalin.c:17903: warning: `t3340' might be used uninitialized in this function rrr-stalin.c:17904: warning: `t3341' might be used uninitialized in this function rrr-stalin.c:17905: warning: `t3342' might be used uninitialized in this function rrr-stalin.c:17906: warning: `t3343' might be used uninitialized in this function rrr-stalin.c:17907: warning: `t3344' might be used uninitialized in this function rrr-stalin.c:17908: warning: `t3345' might be used uninitialized in this function rrr-stalin.c:17909: warning: `t3346' might be used uninitialized in this function rrr-stalin.c:17910: warning: `t3347' might be used uninitialized in this function rrr-stalin.c:17911: warning: `t3348' might be used uninitialized in this function rrr-stalin.c:17912: warning: `t3349' might be used uninitialized in this function rrr-stalin.c:17913: warning: `t3350' might be used uninitialized in this function rrr-stalin.c:17914: warning: `t3351' might be used uninitialized in this function rrr-stalin.c:17915: warning: `t3352' might be used uninitialized in this function rrr-stalin.c:17916: warning: `t3353' might be used uninitialized in this function rrr-stalin.c:17917: warning: `t3354' might be used uninitialized in this function rrr-stalin.c:17918: warning: `t3355' might be used uninitialized in this function rrr-stalin.c:17919: warning: `t3356' might be used uninitialized in this function rrr-stalin.c:17920: warning: `t3357' might be used uninitialized in this function rrr-stalin.c:17921: warning: `t3358' might be used uninitialized in this function rrr-stalin.c:17922: warning: `t3359' might be used uninitialized in this function rrr-stalin.c:17923: warning: `t3360' might be used uninitialized in this function rrr-stalin.c:17924: warning: `t3361' might be used uninitialized in this function rrr-stalin.c:17925: warning: `t3362' might be used uninitialized in this function rrr-stalin.c:17926: warning: `t3363' might be used uninitialized in this function rrr-stalin.c:17927: warning: `t3364' might be used uninitialized in this function rrr-stalin.c:17928: warning: `t3365' might be used uninitialized in this function rrr-stalin.c:17929: warning: `t3366' might be used uninitialized in this function rrr-stalin.c:17930: warning: `t3367' might be used uninitialized in this function rrr-stalin.c:17931: warning: `t3368' might be used uninitialized in this function rrr-stalin.c:17932: warning: `t3369' might be used uninitialized in this function rrr-stalin.c:17933: warning: `t3370' might be used uninitialized in this function rrr-stalin.c:17934: warning: `t3371' might be used uninitialized in this function rrr-stalin.c:17935: warning: `t3372' might be used uninitialized in this function rrr-stalin.c:17936: warning: `t3373' might be used uninitialized in this function rrr-stalin.c:17937: warning: `t3374' might be used uninitialized in this function rrr-stalin.c:17938: warning: `t3375' might be used uninitialized in this function rrr-stalin.c:17939: warning: `t3376' might be used uninitialized in this function rrr-stalin.c:17940: warning: `t3377' might be used uninitialized in this function rrr-stalin.c:17941: warning: `t3378' might be used uninitialized in this function rrr-stalin.c:17943: warning: `t3380' might be used uninitialized in this function rrr-stalin.c:17944: warning: `t3381' might be used uninitialized in this function rrr-stalin.c:17945: warning: `t3382' might be used uninitialized in this function rrr-stalin.c:17946: warning: `t3383' might be used uninitialized in this function rrr-stalin.c:17947: warning: `t3384' might be used uninitialized in this function rrr-stalin.c:17948: warning: `t3385' might be used uninitialized in this function rrr-stalin.c:17949: warning: `t3386' might be used uninitialized in this function rrr-stalin.c:17950: warning: `t3387' might be used uninitialized in this function rrr-stalin.c:17951: warning: `t3388' might be used uninitialized in this function rrr-stalin.c:17952: warning: `t3389' might be used uninitialized in this function rrr-stalin.c:17953: warning: `t3390' might be used uninitialized in this function rrr-stalin.c:17954: warning: `t3391' might be used uninitialized in this function rrr-stalin.c:17955: warning: `t3392' might be used uninitialized in this function rrr-stalin.c:17956: warning: `t3393' might be used uninitialized in this function rrr-stalin.c:17957: warning: `t3394' might be used uninitialized in this function rrr-stalin.c:17958: warning: `t3395' might be used uninitialized in this function rrr-stalin.c:17959: warning: `t3396' might be used uninitialized in this function rrr-stalin.c:17960: warning: `t3397' might be used uninitialized in this function rrr-stalin.c:17961: warning: `t3398' might be used uninitialized in this function rrr-stalin.c:17962: warning: `t3399' might be used uninitialized in this function rrr-stalin.c:17963: warning: `t3400' might be used uninitialized in this function rrr-stalin.c:17964: warning: `t3401' might be used uninitialized in this function rrr-stalin.c:17965: warning: `t3402' might be used uninitialized in this function rrr-stalin.c:17966: warning: `t3403' might be used uninitialized in this function rrr-stalin.c:17967: warning: `t3404' might be used uninitialized in this function rrr-stalin.c:17968: warning: `t3405' might be used uninitialized in this function rrr-stalin.c:17970: warning: `t3407' might be used uninitialized in this function rrr-stalin.c:17971: warning: `t3408' might be used uninitialized in this function rrr-stalin.c:17972: warning: `t3409' might be used uninitialized in this function rrr-stalin.c:17973: warning: `t3410' might be used uninitialized in this function rrr-stalin.c:17974: warning: `t3411' might be used uninitialized in this function rrr-stalin.c:17975: warning: `t3412' might be used uninitialized in this function rrr-stalin.c:17976: warning: `t3413' might be used uninitialized in this function rrr-stalin.c:17977: warning: `t3414' might be used uninitialized in this function rrr-stalin.c:17978: warning: `t3415' might be used uninitialized in this function rrr-stalin.c:17979: warning: `t3416' might be used uninitialized in this function rrr-stalin.c:17980: warning: `t3417' might be used uninitialized in this function rrr-stalin.c:17981: warning: `t3418' might be used uninitialized in this function rrr-stalin.c:17982: warning: `t3419' might be used uninitialized in this function rrr-stalin.c:17983: warning: `t3420' might be used uninitialized in this function rrr-stalin.c:17984: warning: `t3421' might be used uninitialized in this function rrr-stalin.c:17985: warning: `t3422' might be used uninitialized in this function rrr-stalin.c:17986: warning: `t3423' might be used uninitialized in this function rrr-stalin.c:17987: warning: `t3424' might be used uninitialized in this function rrr-stalin.c:17988: warning: `t3425' might be used uninitialized in this function rrr-stalin.c:17989: warning: `t3426' might be used uninitialized in this function rrr-stalin.c:17990: warning: `t3427' might be used uninitialized in this function rrr-stalin.c:17991: warning: `t3428' might be used uninitialized in this function rrr-stalin.c:17992: warning: `t3429' might be used uninitialized in this function rrr-stalin.c:17993: warning: `t3430' might be used uninitialized in this function rrr-stalin.c:17994: warning: `t3431' might be used uninitialized in this function rrr-stalin.c:17995: warning: `t3432' might be used uninitialized in this function rrr-stalin.c:17996: warning: `t3433' might be used uninitialized in this function rrr-stalin.c:17997: warning: `t3434' might be used uninitialized in this function rrr-stalin.c:17998: warning: `t3435' might be used uninitialized in this function rrr-stalin.c:17999: warning: `t3436' might be used uninitialized in this function rrr-stalin.c:18000: warning: `t3437' might be used uninitialized in this function rrr-stalin.c:18001: warning: `t3438' might be used uninitialized in this function rrr-stalin.c:18002: warning: `t3439' might be used uninitialized in this function rrr-stalin.c:18003: warning: `t3440' might be used uninitialized in this function rrr-stalin.c:18004: warning: `t3441' might be used uninitialized in this function rrr-stalin.c:18005: warning: `t3442' might be used uninitialized in this function rrr-stalin.c:18006: warning: `t3443' might be used uninitialized in this function rrr-stalin.c:18007: warning: `t3444' might be used uninitialized in this function rrr-stalin.c:18008: warning: `t3445' might be used uninitialized in this function rrr-stalin.c:18009: warning: `t3446' might be used uninitialized in this function rrr-stalin.c:18010: warning: `t3447' might be used uninitialized in this function rrr-stalin.c:18011: warning: `t3448' might be used uninitialized in this function rrr-stalin.c:18012: warning: `t3449' might be used uninitialized in this function rrr-stalin.c:18013: warning: `t3450' might be used uninitialized in this function rrr-stalin.c:18014: warning: `t3451' might be used uninitialized in this function rrr-stalin.c:18015: warning: `t3452' might be used uninitialized in this function rrr-stalin.c:18016: warning: `t3453' might be used uninitialized in this function rrr-stalin.c:18017: warning: `t3454' might be used uninitialized in this function rrr-stalin.c:18018: warning: `t3455' might be used uninitialized in this function rrr-stalin.c:18019: warning: `t3456' might be used uninitialized in this function rrr-stalin.c:18020: warning: `t3457' might be used uninitialized in this function rrr-stalin.c:18021: warning: `t3458' might be used uninitialized in this function rrr-stalin.c:18022: warning: `t3459' might be used uninitialized in this function rrr-stalin.c:18023: warning: `t3460' might be used uninitialized in this function rrr-stalin.c:18024: warning: `t3461' might be used uninitialized in this function rrr-stalin.c:18025: warning: `t3462' might be used uninitialized in this function rrr-stalin.c:18026: warning: `t3463' might be used uninitialized in this function rrr-stalin.c:18027: warning: `t3464' might be used uninitialized in this function rrr-stalin.c:18028: warning: `t3465' might be used uninitialized in this function rrr-stalin.c:18029: warning: `t3466' might be used uninitialized in this function rrr-stalin.c:18030: warning: `t3467' might be used uninitialized in this function rrr-stalin.c:18031: warning: `t3468' might be used uninitialized in this function rrr-stalin.c:18032: warning: `t3469' might be used uninitialized in this function rrr-stalin.c:18033: warning: `t3470' might be used uninitialized in this function rrr-stalin.c:18034: warning: `t3471' might be used uninitialized in this function rrr-stalin.c:18035: warning: `t3472' might be used uninitialized in this function rrr-stalin.c:18036: warning: `t3473' might be used uninitialized in this function rrr-stalin.c:18037: warning: `t3474' might be used uninitialized in this function rrr-stalin.c:18038: warning: `t3475' might be used uninitialized in this function rrr-stalin.c:18039: warning: `t3476' might be used uninitialized in this function rrr-stalin.c:18040: warning: `t3477' might be used uninitialized in this function rrr-stalin.c:18041: warning: `t3478' might be used uninitialized in this function rrr-stalin.c:18042: warning: `t3479' might be used uninitialized in this function rrr-stalin.c:18043: warning: `t3480' might be used uninitialized in this function rrr-stalin.c:18044: warning: `t3481' might be used uninitialized in this function rrr-stalin.c:18045: warning: `t3482' might be used uninitialized in this function rrr-stalin.c:18046: warning: `t3483' might be used uninitialized in this function rrr-stalin.c:18047: warning: `t3484' might be used uninitialized in this function rrr-stalin.c:18048: warning: `t3485' might be used uninitialized in this function rrr-stalin.c:18049: warning: `t3486' might be used uninitialized in this function rrr-stalin.c:18050: warning: `t3487' might be used uninitialized in this function rrr-stalin.c:18051: warning: `t3488' might be used uninitialized in this function rrr-stalin.c:18052: warning: `t3489' might be used uninitialized in this function rrr-stalin.c:18053: warning: `t3490' might be used uninitialized in this function rrr-stalin.c:18054: warning: `t3491' might be used uninitialized in this function rrr-stalin.c:18055: warning: `t3492' might be used uninitialized in this function rrr-stalin.c:18056: warning: `t3493' might be used uninitialized in this function rrr-stalin.c:18057: warning: `t3494' might be used uninitialized in this function rrr-stalin.c:18058: warning: `t3495' might be used uninitialized in this function rrr-stalin.c:18059: warning: `t3496' might be used uninitialized in this function rrr-stalin.c:18060: warning: `t3497' might be used uninitialized in this function rrr-stalin.c:18061: warning: `t3498' might be used uninitialized in this function rrr-stalin.c:18062: warning: `t3499' might be used uninitialized in this function rrr-stalin.c:18063: warning: `t3500' might be used uninitialized in this function rrr-stalin.c:18064: warning: `t3501' might be used uninitialized in this function rrr-stalin.c:18521: warning: `t4145' might be used uninitialized in this function 81.57user 0.58system 1:28.99elapsed 92%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (34372major+454249minor)pagefaults 0swaps run boyer 120.44user 0.44system 2:02.91elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (106major+654minor)pagefaults 0swaps 120.39user 0.41system 2:01.97elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (106major+654minor)pagefaults 0swaps 120.48user 0.61system 2:03.05elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (106major+654minor)pagefaults 0swaps run graphs 56.67user 0.07system 0:57.70elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (97major+3258minor)pagefaults 0swaps 56.61user 0.40system 0:57.87elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (97major+3258minor)pagefaults 0swaps 56.62user 0.08system 0:57.45elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (97major+3258minor)pagefaults 0swaps run lattice 251.64user 0.73system 4:15.61elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (94major+14818minor)pagefaults 0swaps 251.54user 0.40system 4:15.20elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (94major+14818minor)pagefaults 0swaps 251.50user 0.56system 4:14.83elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (94major+14818minor)pagefaults 0swaps run nucleic2 24.57user 0.09system 0:25.53elapsed 96%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (145major+2640minor)pagefaults 0swaps 24.63user 0.07system 0:25.10elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (145major+2640minor)pagefaults 0swaps 24.62user 0.07system 0:24.95elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (145major+2640minor)pagefaults 0swaps run matrix 378.73user 0.49system 6:24.72elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (115major+5962minor)pagefaults 0swaps 377.05user 0.45system 6:22.00elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (115major+5962minor)pagefaults 0swaps 377.35user 0.38system 6:22.55elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (115major+5962minor)pagefaults 0swaps run earley 73.54user 0.04system 1:14.74elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (119major+628minor)pagefaults 0swaps 73.56user 0.01system 1:14.46elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (119major+628minor)pagefaults 0swaps 73.45user 0.04system 1:14.33elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (119major+628minor)pagefaults 0swaps run scheme 305.67user 0.95system 5:13.90elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (175major+26970minor)pagefaults 0swaps 305.49user 1.19system 5:11.14elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (175major+26970minor)pagefaults 0swaps 306.32user 4.44system 5:15.23elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (175major+26970minor)pagefaults 0swaps run conform 356.18user 0.39system 6:01.07elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (116major+3282minor)pagefaults 0swaps 355.81user 0.83system 6:01.16elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (116major+3282minor)pagefaults 0swaps 355.80user 0.46system 6:00.19elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (116major+3282minor)pagefaults 0swaps run nboyer 98.55user 8.42system 2:53.95elapsed 61%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (63935major+241520minor)pagefaults 52880swaps 98.74user 8.19system 2:46.99elapsed 64%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (58830major+238759minor)pagefaults 49645swaps 98.62user 8.70system 2:47.80elapsed 63%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (50827major+233129minor)pagefaults 44121swaps run sboyer 30.34user 0.24system 0:31.25elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (112major+12870minor)pagefaults 0swaps 30.29user 0.29system 0:31.03elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (112major+12870minor)pagefaults 0swaps 30.37user 0.23system 0:31.07elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (112major+12870minor)pagefaults 0swaps run dynamic 44.53user 0.51system 0:47.45elapsed 94%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (252major+29343minor)pagefaults 0swaps 44.54user 0.61system 0:45.73elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (252major+29343minor)pagefaults 0swaps 44.80user 0.60system 0:45.98elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (252major+29343minor)pagefaults 0swaps run fannkuch 461.30user 1.64system 7:48.56elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (97major+67083minor)pagefaults 0swaps 460.62user 2.25system 7:48.18elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (97major+67083minor)pagefaults 0swaps 460.43user 2.22system 7:49.21elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (97major+67083minor)pagefaults 0swaps run simplex 11.75user 0.00system 0:12.06elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (94major+456minor)pagefaults 0swaps 11.75user 0.01system 0:11.96elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (94major+456minor)pagefaults 0swaps 11.76user 0.01system 0:11.89elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (94major+456minor)pagefaults 0swaps run em-functional 62.03user 0.70system 1:04.12elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (148major+19556minor)pagefaults 0swaps 60.85user 0.82system 1:02.28elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (148major+19556minor)pagefaults 0swaps 60.89user 0.46system 1:01.99elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (148major+19556minor)pagefaults 0swaps run em-imperative 15.89user 0.06system 0:16.52elapsed 96%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (123major+2113minor)pagefaults 0swaps 15.82user 0.31system 0:16.37elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (123major+2113minor)pagefaults 0swaps 15.92user 0.06system 0:16.31elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (123major+2113minor)pagefaults 0swaps run nfm 14.39user 0.20system 0:18.69elapsed 78%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (127major+3787minor)pagefaults 0swaps 14.40user 0.23system 0:20.35elapsed 71%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (127major+3787minor)pagefaults 0swaps 14.26user 0.20system 0:20.24elapsed 71%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (127major+3787minor)pagefaults 0swaps run integ 3.27user 0.02system 0:03.43elapsed 95%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (96major+92minor)pagefaults 0swaps 3.28user 0.00system 0:03.36elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (96major+92minor)pagefaults 0swaps 3.28user 0.00system 0:03.29elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (96major+92minor)pagefaults 0swaps run gold 14.70user 0.01system 0:15.08elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (99major+104minor)pagefaults 0swaps 14.72user 0.00system 0:14.91elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (99major+104minor)pagefaults 0swaps 14.72user 0.00system 0:14.93elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (99major+104minor)pagefaults 0swaps run sort 49.94user 1.41system 0:53.26elapsed 96%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (92major+1398minor)pagefaults 0swaps 48.76user 0.23system 0:49.50elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (92major+1398minor)pagefaults 0swaps 48.68user 0.04system 0:49.45elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (92major+1398minor)pagefaults 0swaps run rrr 520.30user 79.15system 28:24.13elapsed 35%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (1532193major+1869848minor)pagefaults 1128685swaps 521.04user 104.10system 30:08.33elapsed 34%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (1636506major+1869612minor)pagefaults 1127880swaps 519.52user 114.75system 29:29.07elapsed 35%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (1623038major+1872597minor)pagefaults 1127173swaps conventional compile boyer (STATIC-COUNTS 2193 878 1800 2193 953 240 0 607 2285 450 22 82 2 23 0.3572267920094007 4402 4402 483 263) boyer-stalin.c: In function `f62': boyer-stalin.c:3289: warning: `t302' might be used uninitialized in this function boyer-stalin.c: In function `f0': boyer-stalin.c:4281: warning: `a657' might be used uninitialized in this function boyer-stalin.c:4283: warning: `a659' might be used uninitialized in this function boyer-stalin.c:4284: warning: `a660' might be used uninitialized in this function boyer-stalin.c:4286: warning: `a662' might be used uninitialized in this function boyer-stalin.c:4287: warning: `a663' might be used uninitialized in this function boyer-stalin.c:4288: warning: `a664' might be used uninitialized in this function boyer-stalin.c:4289: warning: `a665' might be used uninitialized in this function boyer-stalin.c:4290: warning: `a666' might be used uninitialized in this function boyer-stalin.c:4291: warning: `a667' might be used uninitialized in this function boyer-stalin.c:4292: warning: `a668' might be used uninitialized in this function boyer-stalin.c:4293: warning: `a669' might be used uninitialized in this function boyer-stalin.c:4294: warning: `a670' might be used uninitialized in this function boyer-stalin.c:4295: warning: `a671' might be used uninitialized in this function boyer-stalin.c:4296: warning: `a672' might be used uninitialized in this function boyer-stalin.c:4297: warning: `a673' might be used uninitialized in this function boyer-stalin.c:4298: warning: `a674' might be used uninitialized in this function boyer-stalin.c:4299: warning: `a675' might be used uninitialized in this function boyer-stalin.c:4300: warning: `a676' might be used uninitialized in this function boyer-stalin.c:4303: warning: `a706' might be used uninitialized in this function boyer-stalin.c:4316: warning: `a1934' might be used uninitialized in this function boyer-stalin.c:4318: warning: `a2145' might be used uninitialized in this function boyer-stalin.c:4319: warning: `a2148' might be used uninitialized in this function boyer-stalin.c:4634: warning: `t1337' might be used uninitialized in this function boyer-stalin.c:4738: warning: `t3446' might be used uninitialized in this function boyer-stalin.c:4739: warning: `t3447' might be used uninitialized in this function 326.87user 0.61system 5:41.52elapsed 95%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (38365major+435039minor)pagefaults 0swaps compile graphs (STATIC-COUNTS 2473 884 1937 2473 977 247 0 713 2351 536 87 240 33 77 1.037663335895465 4604 4604 478 264) Warning! The following tail-recursive tail calls are not merged: From the following expression, graphs-stalin.sc:149:5239: (\-*- (FOLD OUT CONS REST) NEW-B-STATE NEW-T-STATE ACCROSS) to -*-[87] From the following expression, graphs-stalin.sc:144:5105: (\-**- REST ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) FIRST OUT) NEW-T-STATE) to -**-[90] From the following expression, graphs-stalin.sc:136:4908: (((LAMBDA # # \-**-) (#)) UNIVERSE '() T-STATE) to -**-[90] From the following expression, graphs-stalin.sc:199:7032: (ACCROSS STATE) to [inside -**- 96] From the following expression, graphs-stalin.sc:314:10739: (\-*- ((PRIMITIVE-PROCEDURE +) VERTEX 1) STATE) to -*-[140] From the following expression, graphs-stalin.sc:308:10599: (((LAMBDA # # \-**-) (#)) 0 0 STATE) to -**-[167] From the following expression, graphs-stalin.sc:260:9267: (ACCROSS #T) to [inside -**- 96] From the following expression, graphs-stalin.sc:252:8995: (ACCROSS #T) to [inside -**- 96] graphs-stalin.c: In function `f215': graphs-stalin.c:1184: warning: `a1714' might be used uninitialized in this function graphs-stalin.c: In function `f147': graphs-stalin.c:1918: warning: `t373' might be used uninitialized in this function graphs-stalin.c: In function `f140': graphs-stalin.c:3267: warning: statement with no effect graphs-stalin.c:2703: warning: `t502' might be used uninitialized in this function graphs-stalin.c: In function `f103': graphs-stalin.c:4205: warning: `a770' might be used uninitialized in this function graphs-stalin.c:4208: warning: `a2480' might be used uninitialized in this function graphs-stalin.c:4222: warning: `t935' might be used uninitialized in this function graphs-stalin.c: In function `f96': graphs-stalin.c:4456: warning: `t1022' might be used uninitialized in this function graphs-stalin.c: In function `f90': graphs-stalin.c:4484: warning: `a805' might be used uninitialized in this function graphs-stalin.c:4491: warning: `a2401' might be used uninitialized in this function graphs-stalin.c:4493: warning: `a2406' might be used uninitialized in this function graphs-stalin.c:4495: warning: `a2411' might be used uninitialized in this function graphs-stalin.c:4537: warning: `t1083' might be used uninitialized in this function graphs-stalin.c:4545: warning: `t1094' might be used uninitialized in this function graphs-stalin.c:5095: warning: `a791' might be used uninitialized in this function graphs-stalin.c: In function `f87': graphs-stalin.c:5106: warning: `a811' might be used uninitialized in this function graphs-stalin.c:5113: warning: `a924' might be used uninitialized in this function graphs-stalin.c:5115: warning: `a2386' might be used uninitialized in this function graphs-stalin.c:5117: warning: `a2391' might be used uninitialized in this function graphs-stalin.c:5123: warning: `t1198' might be used uninitialized in this function graphs-stalin.c:5161: warning: `t1261' might be used uninitialized in this function graphs-stalin.c:5171: warning: `t1278' might be used uninitialized in this function graphs-stalin.c:5435: warning: `a791' might be used uninitialized in this function graphs-stalin.c:5472: warning: `a791' might be used uninitialized in this function graphs-stalin.c: In function `f38': graphs-stalin.c:5517: warning: `a720' might be used uninitialized in this function graphs-stalin.c: In function `f0': graphs-stalin.c:5815: warning: `a829' might be used uninitialized in this function graphs-stalin.c:6228: warning: `t2270' might be used uninitialized in this function graphs-stalin.c:6229: warning: `t2271' might be used uninitialized in this function graphs-stalin.c:6230: warning: `t2272' might be used uninitialized in this function graphs-stalin.c: In function `f99': graphs-stalin.c:4450: warning: `r99' might be used uninitialized in this function 36.57user 0.27system 0:40.43elapsed 91%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32995major+221279minor)pagefaults 0swaps compile lattice (STATIC-COUNTS 2258 878 1874 2258 992 251 0 631 2181 476 30 111 2 31 0.3854368932038835 4311 4311 472 260) lattice-stalin.c: In function `f88': lattice-stalin.c:1404: warning: `a694' might be used uninitialized in this function lattice-stalin.c: In function `f85': lattice-stalin.c:1600: warning: `t267' might be used uninitialized in this function lattice-stalin.c:1768: warning: `t487' might be used uninitialized in this function lattice-stalin.c: In function `f41': lattice-stalin.c:2799: warning: `r41' might be used uninitialized in this function lattice-stalin.c:2805: warning: `a701' might be used uninitialized in this function lattice-stalin.c:2812: warning: `a785' might be used uninitialized in this function lattice-stalin.c:2814: warning: `a2199' might be used uninitialized in this function lattice-stalin.c:2816: warning: `a2204' might be used uninitialized in this function lattice-stalin.c:2818: warning: `a2209' might be used uninitialized in this function lattice-stalin.c: In function `f17': lattice-stalin.c:3269: warning: `a2214' might be used uninitialized in this function lattice-stalin.c:3271: warning: `a2219' might be used uninitialized in this function lattice-stalin.c:3273: warning: `a2224' might be used uninitialized in this function lattice-stalin.c:3275: warning: `a2229' might be used uninitialized in this function lattice-stalin.c:3277: warning: `a2234' might be used uninitialized in this function lattice-stalin.c:3279: warning: `a2239' might be used uninitialized in this function lattice-stalin.c: In function `f0': lattice-stalin.c:4023: warning: `t1548' might be used uninitialized in this function lattice-stalin.c:4024: warning: `t1549' might be used uninitialized in this function lattice-stalin.c:4025: warning: `t1550' might be used uninitialized in this function 26.29user 0.18system 0:29.14elapsed 90%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32716major+218628minor)pagefaults 0swaps compile nucleic2 (STATIC-COUNTS 3212 1157 2554 3212 1286 473 0 795 2868 583 68 297 25 58 0.3135536075522589 7659 7659 751 539) nucleic2-stalin.c: In function `f1439': nucleic2-stalin.c:1531: warning: `a1454' might be used uninitialized in this function nucleic2-stalin.c:1597: warning: `t64' might be used uninitialized in this function nucleic2-stalin.c:2013: warning: `t648' might be used uninitialized in this function nucleic2-stalin.c: In function `f751': nucleic2-stalin.c:4332: warning: `a1558' might be used uninitialized in this function nucleic2-stalin.c:4334: warning: `a1563' might be used uninitialized in this function nucleic2-stalin.c:4335: warning: `a1568' might be used uninitialized in this function nucleic2-stalin.c:4337: warning: `a1589' might be used uninitialized in this function nucleic2-stalin.c: In function `f341': nucleic2-stalin.c:4553: warning: `a1464' might be used uninitialized in this function nucleic2-stalin.c: In function `f249': nucleic2-stalin.c:5756: warning: `a1367' might be used uninitialized in this function nucleic2-stalin.c: In function `f0': nucleic2-stalin.c:11572: warning: `t4275' might be used uninitialized in this function nucleic2-stalin.c:17662: warning: `t11610' might be used uninitialized in this function nucleic2-stalin.c:17663: warning: `t11611' might be used uninitialized in this function nucleic2-stalin.c:17664: warning: `t11612' might be used uninitialized in this function nucleic2-stalin.c:17665: warning: `t11613' might be used uninitialized in this function nucleic2-stalin.c:17666: warning: `t11614' might be used uninitialized in this function nucleic2-stalin.c:17667: warning: `t11615' might be used uninitialized in this function nucleic2-stalin.c:17668: warning: `t11616' might be used uninitialized in this function nucleic2-stalin.c:17669: warning: `t11617' might be used uninitialized in this function nucleic2-stalin.c:17670: warning: `t11618' might be used uninitialized in this function nucleic2-stalin.c:17671: warning: `t11619' might be used uninitialized in this function nucleic2-stalin.c:20026: warning: `t14439' might be used uninitialized in this function nucleic2-stalin.c:20027: warning: `t14440' might be used uninitialized in this function nucleic2-stalin.c:20028: warning: `t14441' might be used uninitialized in this function nucleic2-stalin.c:20029: warning: `t14442' might be used uninitialized in this function nucleic2-stalin.c:20030: warning: `t14443' might be used uninitialized in this function nucleic2-stalin.c:20031: warning: `t14444' might be used uninitialized in this function nucleic2-stalin.c:20032: warning: `t14445' might be used uninitialized in this function nucleic2-stalin.c:20033: warning: `t14446' might be used uninitialized in this function nucleic2-stalin.c:20034: warning: `t14447' might be used uninitialized in this function nucleic2-stalin.c:20035: warning: `t14448' might be used uninitialized in this function nucleic2-stalin.c:20036: warning: `t14449' might be used uninitialized in this function nucleic2-stalin.c:20037: warning: `t14450' might be used uninitialized in this function nucleic2-stalin.c:20038: warning: `t14451' might be used uninitialized in this function nucleic2-stalin.c:20039: warning: `t14452' might be used uninitialized in this function nucleic2-stalin.c:20040: warning: `t14453' might be used uninitialized in this function nucleic2-stalin.c:20041: warning: `t14454' might be used uninitialized in this function nucleic2-stalin.c:20042: warning: `t14455' might be used uninitialized in this function nucleic2-stalin.c:20060: warning: `t14473' might be used uninitialized in this function nucleic2-stalin.c:20061: warning: `t14474' might be used uninitialized in this function nucleic2-stalin.c:20063: warning: `t14476' might be used uninitialized in this function nucleic2-stalin.c:20064: warning: `t14477' might be used uninitialized in this function nucleic2-stalin.c:20065: warning: `t14478' might be used uninitialized in this function nucleic2-stalin.c:20067: warning: `t14480' might be used uninitialized in this function nucleic2-stalin.c:20068: warning: `t14481' might be used uninitialized in this function nucleic2-stalin.c:20069: warning: `t14482' might be used uninitialized in this function nucleic2-stalin.c:20071: warning: `t14484' might be used uninitialized in this function nucleic2-stalin.c:20072: warning: `t14485' might be used uninitialized in this function nucleic2-stalin.c:20073: warning: `t14486' might be used uninitialized in this function nucleic2-stalin.c:20075: warning: `t14488' might be used uninitialized in this function nucleic2-stalin.c:20076: warning: `t14489' might be used uninitialized in this function nucleic2-stalin.c:20077: warning: `t14490' might be used uninitialized in this function nucleic2-stalin.c:20079: warning: `t14492' might be used uninitialized in this function nucleic2-stalin.c:20080: warning: `t14493' might be used uninitialized in this function nucleic2-stalin.c:20081: warning: `t14494' might be used uninitialized in this function nucleic2-stalin.c:20083: warning: `t14496' might be used uninitialized in this function nucleic2-stalin.c:20084: warning: `t14497' might be used uninitialized in this function nucleic2-stalin.c:20085: warning: `t14498' might be used uninitialized in this function nucleic2-stalin.c:20087: warning: `t14500' might be used uninitialized in this function nucleic2-stalin.c:20088: warning: `t14501' might be used uninitialized in this function nucleic2-stalin.c:20089: warning: `t14502' might be used uninitialized in this function nucleic2-stalin.c:20091: warning: `t14504' might be used uninitialized in this function nucleic2-stalin.c:20092: warning: `t14505' might be used uninitialized in this function nucleic2-stalin.c:20093: warning: `t14506' might be used uninitialized in this function nucleic2-stalin.c:20095: warning: `t14508' might be used uninitialized in this function nucleic2-stalin.c:20096: warning: `t14509' might be used uninitialized in this function nucleic2-stalin.c:20097: warning: `t14510' might be used uninitialized in this function nucleic2-stalin.c:20099: warning: `t14512' might be used uninitialized in this function nucleic2-stalin.c:20100: warning: `t14513' might be used uninitialized in this function nucleic2-stalin.c:20101: warning: `t14514' might be used uninitialized in this function nucleic2-stalin.c:20103: warning: `t14516' might be used uninitialized in this function nucleic2-stalin.c:20104: warning: `t14517' might be used uninitialized in this function nucleic2-stalin.c:20105: warning: `t14518' might be used uninitialized in this function nucleic2-stalin.c:20107: warning: `t14520' might be used uninitialized in this function nucleic2-stalin.c:20108: warning: `t14521' might be used uninitialized in this function nucleic2-stalin.c:20109: warning: `t14522' might be used uninitialized in this function nucleic2-stalin.c:20111: warning: `t14524' might be used uninitialized in this function nucleic2-stalin.c:20112: warning: `t14525' might be used uninitialized in this function nucleic2-stalin.c:20113: warning: `t14526' might be used uninitialized in this function nucleic2-stalin.c:20115: warning: `t14528' might be used uninitialized in this function nucleic2-stalin.c:20116: warning: `t14529' might be used uninitialized in this function nucleic2-stalin.c:20117: warning: `t14530' might be used uninitialized in this function nucleic2-stalin.c:20581: warning: `t14997' might be used uninitialized in this function nucleic2-stalin.c:20582: warning: `t14998' might be used uninitialized in this function nucleic2-stalin.c:20583: warning: `t14999' might be used uninitialized in this function 406.26user 1.73system 7:03.95elapsed 96%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (35175major+908142minor)pagefaults 0swaps compile matrix (STATIC-COUNTS 2617 906 2200 2617 1144 274 0 782 2533 582 101 315 23 80 0.6158940397350994 5280 5280 500 288) matrix-stalin.c: In function `f227': matrix-stalin.c:4752: warning: unused variable `p2522' matrix-stalin.c:4748: warning: unused variable `p2498' matrix-stalin.c:4741: warning: unused variable `p2486' matrix-stalin.c:4315: warning: `a1005' might be used uninitialized in this function matrix-stalin.c:4329: warning: `a2496' might be used uninitialized in this function matrix-stalin.c:4330: warning: `a2504' might be used uninitialized in this function matrix-stalin.c:4331: warning: `a2506' might be used uninitialized in this function matrix-stalin.c:4342: warning: `a2558' might be used uninitialized in this function matrix-stalin.c:4343: warning: `a2559' might be used uninitialized in this function matrix-stalin.c:4344: warning: `a2563' might be used uninitialized in this function matrix-stalin.c:4345: warning: `a2564' might be used uninitialized in this function matrix-stalin.c:4346: warning: `a2568' might be used uninitialized in this function matrix-stalin.c:4347: warning: `a2569' might be used uninitialized in this function matrix-stalin.c:4348: warning: `a2573' might be used uninitialized in this function matrix-stalin.c:4349: warning: `a2574' might be used uninitialized in this function matrix-stalin.c:4350: warning: `a2598' might be used uninitialized in this function matrix-stalin.c:4351: warning: `a2599' might be used uninitialized in this function matrix-stalin.c:4352: warning: `a2603' might be used uninitialized in this function matrix-stalin.c:4353: warning: `a2604' might be used uninitialized in this function matrix-stalin.c: In function `f57': matrix-stalin.c:8273: warning: unused variable `p2539' matrix-stalin.c:8254: warning: unused variable `p2354' matrix-stalin.c:8003: warning: `r57' might be used uninitialized in this function matrix-stalin.c:8025: warning: `a805' might be used uninitialized in this function matrix-stalin.c:8030: warning: `a2472' might be used uninitialized in this function matrix-stalin.c:8031: warning: `a2473' might be used uninitialized in this function matrix-stalin.c:8032: warning: `a2477' might be used uninitialized in this function matrix-stalin.c:8033: warning: `a2478' might be used uninitialized in this function matrix-stalin.c:8034: warning: `a2482' might be used uninitialized in this function matrix-stalin.c:8035: warning: `a2483' might be used uninitialized in this function matrix-stalin.c:8037: warning: `a2494' might be used uninitialized in this function matrix-stalin.c:8042: warning: `a2613' might be used uninitialized in this function matrix-stalin.c:8043: warning: `a2614' might be used uninitialized in this function matrix-stalin.c:8044: warning: `a2618' might be used uninitialized in this function matrix-stalin.c:8045: warning: `a2619' might be used uninitialized in this function matrix-stalin.c:8046: warning: `a2623' might be used uninitialized in this function matrix-stalin.c:8047: warning: `a2624' might be used uninitialized in this function matrix-stalin.c: In function `f49': matrix-stalin.c:9119: warning: unused variable `p2514' matrix-stalin.c:9115: warning: unused variable `p2506' matrix-stalin.c:9114: warning: unused variable `p2502' matrix-stalin.c:9035: warning: `a2498' might be used uninitialized in this function matrix-stalin.c:9036: warning: `a2500' might be used uninitialized in this function matrix-stalin.c:9037: warning: `a2502' might be used uninitialized in this function matrix-stalin.c:9038: warning: `a2578' might be used uninitialized in this function matrix-stalin.c:9039: warning: `a2579' might be used uninitialized in this function matrix-stalin.c:9040: warning: `a2583' might be used uninitialized in this function matrix-stalin.c:9041: warning: `a2584' might be used uninitialized in this function matrix-stalin.c:9042: warning: `a2588' might be used uninitialized in this function matrix-stalin.c:9043: warning: `a2589' might be used uninitialized in this function matrix-stalin.c:9044: warning: `a2593' might be used uninitialized in this function matrix-stalin.c:9045: warning: `a2594' might be used uninitialized in this function matrix-stalin.c: In function `f0': matrix-stalin.c:9924: warning: `a2414' might be used uninitialized in this function matrix-stalin.c:9925: warning: `a2415' might be used uninitialized in this function matrix-stalin.c:9931: warning: `a2438' might be used uninitialized in this function matrix-stalin.c:9935: warning: `a2517' might be used uninitialized in this function matrix-stalin.c:10545: warning: `t3045' might be used uninitialized in this function matrix-stalin.c:10546: warning: `t3046' might be used uninitialized in this function 59.05user 0.42system 1:04.01elapsed 92%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33843major+285027minor)pagefaults 0swaps compile earley (STATIC-COUNTS 2899 937 2343 2899 1104 244 0 995 2640 676 218 443 42 95 1.383808095952024 5246 5246 531 320) earley-stalin.c: In function `f620': earley-stalin.c:3599: warning: `a2650' might be used uninitialized in this function earley-stalin.c: In function `f543': earley-stalin.c:3742: warning: `a1290' might be used uninitialized in this function earley-stalin.c:3744: warning: `a1295' might be used uninitialized in this function earley-stalin.c:3745: warning: `a1300' might be used uninitialized in this function earley-stalin.c:3747: warning: `a1321' might be used uninitialized in this function earley-stalin.c: In function `f112': earley-stalin.c:4938: warning: `a853' might be used uninitialized in this function earley-stalin.c:4939: warning: `a854' might be used uninitialized in this function earley-stalin.c: In function `f0': earley-stalin.c:7730: warning: `a686' might be used uninitialized in this function earley-stalin.c:7731: warning: `a687' might be used uninitialized in this function earley-stalin.c:7732: warning: `a688' might be used uninitialized in this function earley-stalin.c:7744: warning: `a705' might be used uninitialized in this function earley-stalin.c:7745: warning: `a706' might be used uninitialized in this function earley-stalin.c:7746: warning: `a707' might be used uninitialized in this function earley-stalin.c:7747: warning: `a708' might be used uninitialized in this function earley-stalin.c:7748: warning: `a709' might be used uninitialized in this function earley-stalin.c:7749: warning: `a710' might be used uninitialized in this function earley-stalin.c:7750: warning: `a711' might be used uninitialized in this function earley-stalin.c:7751: warning: `a712' might be used uninitialized in this function earley-stalin.c:7752: warning: `a713' might be used uninitialized in this function earley-stalin.c:7753: warning: `a714' might be used uninitialized in this function earley-stalin.c:7754: warning: `a715' might be used uninitialized in this function earley-stalin.c:7755: warning: `a716' might be used uninitialized in this function earley-stalin.c:7756: warning: `a717' might be used uninitialized in this function earley-stalin.c:7757: warning: `a718' might be used uninitialized in this function earley-stalin.c:7758: warning: `a719' might be used uninitialized in this function earley-stalin.c:7759: warning: `a720' might be used uninitialized in this function earley-stalin.c:7760: warning: `a721' might be used uninitialized in this function earley-stalin.c:7761: warning: `a722' might be used uninitialized in this function earley-stalin.c:7762: warning: `a723' might be used uninitialized in this function earley-stalin.c:7763: warning: `a724' might be used uninitialized in this function earley-stalin.c:7764: warning: `a725' might be used uninitialized in this function earley-stalin.c:7765: warning: `a726' might be used uninitialized in this function earley-stalin.c:7766: warning: `a727' might be used uninitialized in this function earley-stalin.c:7767: warning: `a728' might be used uninitialized in this function earley-stalin.c:7776: warning: `a761' might be used uninitialized in this function earley-stalin.c:7878: warning: `a1089' might be used uninitialized in this function earley-stalin.c:7884: warning: `a1098' might be used uninitialized in this function earley-stalin.c:7901: warning: `a1128' might be used uninitialized in this function earley-stalin.c:7906: warning: `a1135' might be used uninitialized in this function earley-stalin.c:7917: warning: `a1148' might be used uninitialized in this function earley-stalin.c:7934: warning: `a1177' might be used uninitialized in this function earley-stalin.c:7952: warning: `a2597' might be used uninitialized in this function earley-stalin.c:7953: warning: `a2598' might be used uninitialized in this function earley-stalin.c:7969: warning: `a2648' might be used uninitialized in this function earley-stalin.c:8019: warning: `a2758' might be used uninitialized in this function earley-stalin.c:8042: warning: `a2803' might be used uninitialized in this function earley-stalin.c:8043: warning: `a2804' might be used uninitialized in this function earley-stalin.c:8706: warning: `t2571' might be used uninitialized in this function earley-stalin.c:9372: warning: `t3459' might be used uninitialized in this function earley-stalin.c:9380: warning: `t3467' might be used uninitialized in this function earley-stalin.c:9910: warning: `t4208' might be used uninitialized in this function earley-stalin.c:9911: warning: `t4209' might be used uninitialized in this function 88.17user 0.62system 1:35.20elapsed 93%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33937major+396464minor)pagefaults 0swaps compile scheme Command terminated by signal 11 3198.81user 6.98system 54:04.22elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (769major+16871minor)pagefaults 0swaps compile conform (STATIC-COUNTS 2711 974 2183 2711 1108 309 0 766 2626 582 156 432 22 102 0.5549621717846017 5144 5144 573 392) conform-stalin.c: In function `f2413': conform-stalin.c:2507: warning: `r2413' might be used uninitialized in this function conform-stalin.c: In function `f2410': conform-stalin.c:2548: warning: `r2410' might be used uninitialized in this function conform-stalin.c: In function `f1786': conform-stalin.c:2596: warning: `a2299' might be used uninitialized in this function conform-stalin.c: In function `f1191': conform-stalin.c:3262: warning: `a2540' might be used uninitialized in this function conform-stalin.c:3264: warning: `a2544' might be used uninitialized in this function conform-stalin.c:3266: warning: `a2548' might be used uninitialized in this function conform-stalin.c:3268: warning: `a2668' might be used uninitialized in this function conform-stalin.c:3541: warning: `t651' might be used uninitialized in this function conform-stalin.c: In function `f1167': conform-stalin.c:4985: warning: unused variable `p807' conform-stalin.c:4982: warning: unused variable `p801' conform-stalin.c:4718: warning: `a835' might be used uninitialized in this function conform-stalin.c:4719: warning: `a836' might be used uninitialized in this function conform-stalin.c:4723: warning: `a924' might be used uninitialized in this function conform-stalin.c:4737: warning: `a1472' might be used uninitialized in this function conform-stalin.c:4743: warning: `a1481' might be used uninitialized in this function conform-stalin.c:4801: warning: `t755' might be used uninitialized in this function conform-stalin.c:4831: warning: `t793' might be used uninitialized in this function conform-stalin.c: In function `f992': conform-stalin.c:5744: warning: `a1730' might be used uninitialized in this function conform-stalin.c: In function `f377': conform-stalin.c:6326: warning: unused variable `p880' conform-stalin.c:6318: warning: unused variable `p783' conform-stalin.c:6216: warning: `a1445' might be used uninitialized in this function conform-stalin.c:6222: warning: `a1566' might be used uninitialized in this function conform-stalin.c: In function `f237': conform-stalin.c:6680: warning: `t1297' might be used uninitialized in this function conform-stalin.c:6711: warning: `t1336' might be used uninitialized in this function conform-stalin.c:6719: warning: `t1344' might be used uninitialized in this function conform-stalin.c: In function `f224': conform-stalin.c:7262: warning: `t1470' might be used uninitialized in this function conform-stalin.c:7277: warning: `t1487' might be used uninitialized in this function conform-stalin.c:7285: warning: `t1495' might be used uninitialized in this function conform-stalin.c: In function `f217': conform-stalin.c:7956: warning: `a1027' might be used uninitialized in this function conform-stalin.c: In function `f203': conform-stalin.c:8119: warning: `r203' might be used uninitialized in this function conform-stalin.c: In function `f156': conform-stalin.c:9014: warning: `a969' might be used uninitialized in this function conform-stalin.c:9015: warning: `a970' might be used uninitialized in this function conform-stalin.c:9016: warning: `a971' might be used uninitialized in this function conform-stalin.c:9017: warning: `a972' might be used uninitialized in this function conform-stalin.c:9018: warning: `a973' might be used uninitialized in this function conform-stalin.c:9030: warning: `t1995' might be used uninitialized in this function conform-stalin.c: In function `f117': conform-stalin.c:9375: warning: `a937' might be used uninitialized in this function conform-stalin.c:9376: warning: `a938' might be used uninitialized in this function conform-stalin.c:9377: warning: `a939' might be used uninitialized in this function conform-stalin.c: In function `f108': conform-stalin.c:9464: warning: `t2154' might be used uninitialized in this function conform-stalin.c: In function `f59': conform-stalin.c:9831: warning: `r59' might be used uninitialized in this function conform-stalin.c: In function `f19': conform-stalin.c:10181: warning: `r19' might be used uninitialized in this function conform-stalin.c:10182: warning: `a2520' might be used uninitialized in this function conform-stalin.c:10193: warning: `t2409' might be used uninitialized in this function conform-stalin.c: In function `f0': conform-stalin.c:10456: warning: `a906' might be used uninitialized in this function conform-stalin.c:10462: warning: `a918' might be used uninitialized in this function conform-stalin.c:10473: warning: `a1059' might be used uninitialized in this function conform-stalin.c:10474: warning: `a1060' might be used uninitialized in this function conform-stalin.c:10475: warning: `a1061' might be used uninitialized in this function conform-stalin.c:10497: warning: `a2489' might be used uninitialized in this function conform-stalin.c:10498: warning: `a2490' might be used uninitialized in this function conform-stalin.c:10504: warning: `a2519' might be used uninitialized in this function conform-stalin.c:10559: warning: `a2666' might be used uninitialized in this function conform-stalin.c:10829: warning: `t3238' might be used uninitialized in this function conform-stalin.c:10851: warning: `t3296' might be used uninitialized in this function conform-stalin.c:10932: warning: `t3400' might be used uninitialized in this function conform-stalin.c:10965: warning: `t3439' might be used uninitialized in this function conform-stalin.c:10985: warning: `t3462' might be used uninitialized in this function conform-stalin.c:11116: warning: `t3631' might be used uninitialized in this function conform-stalin.c:11694: warning: `t4415' might be used uninitialized in this function conform-stalin.c:11695: warning: `t4416' might be used uninitialized in this function 101.48user 0.69system 1:48.22elapsed 94%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33857major+328648minor)pagefaults 0swaps compile nboyer (STATIC-COUNTS 2380 900 1948 2380 1004 287 0 657 2466 503 44 216 18 66 0.4278249510124102 4898 4898 514 312) nboyer-stalin.c: In function `f0': nboyer-stalin.c:6269: warning: `a2044' might be used uninitialized in this function nboyer-stalin.c:6277: warning: `a2230' might be used uninitialized in this function nboyer-stalin.c:6279: warning: `a2232' might be used uninitialized in this function nboyer-stalin.c:6280: warning: `a2233' might be used uninitialized in this function nboyer-stalin.c:6288: warning: `a2259' might be used uninitialized in this function nboyer-stalin.c:6289: warning: `a2260' might be used uninitialized in this function nboyer-stalin.c:6303: warning: `a2295' might be used uninitialized in this function nboyer-stalin.c:6313: warning: `a2323' might be used uninitialized in this function nboyer-stalin.c:6315: warning: `a2325' might be used uninitialized in this function nboyer-stalin.c:6320: warning: `a2338' might be used uninitialized in this function nboyer-stalin.c:6324: warning: `a2344' might be used uninitialized in this function nboyer-stalin.c:6331: warning: `a2360' might be used uninitialized in this function nboyer-stalin.c:7376: warning: `t4803' might be used uninitialized in this function 401.30user 1.31system 6:52.56elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33740major+860197minor)pagefaults 0swaps compile sboyer (STATIC-COUNTS 2384 901 1951 2384 1006 288 0 657 2467 503 44 216 18 66 0.4260700389105058 4908 4908 515 313) sboyer-stalin.c: In function `f0': sboyer-stalin.c:6232: warning: `a2049' might be used uninitialized in this function sboyer-stalin.c:6240: warning: `a2235' might be used uninitialized in this function sboyer-stalin.c:6242: warning: `a2237' might be used uninitialized in this function sboyer-stalin.c:6243: warning: `a2238' might be used uninitialized in this function sboyer-stalin.c:6250: warning: `a2263' might be used uninitialized in this function sboyer-stalin.c:6251: warning: `a2264' might be used uninitialized in this function sboyer-stalin.c:6265: warning: `a2299' might be used uninitialized in this function sboyer-stalin.c:6275: warning: `a2327' might be used uninitialized in this function sboyer-stalin.c:6277: warning: `a2329' might be used uninitialized in this function sboyer-stalin.c:6282: warning: `a2342' might be used uninitialized in this function sboyer-stalin.c:6286: warning: `a2348' might be used uninitialized in this function sboyer-stalin.c:6293: warning: `a2364' might be used uninitialized in this function sboyer-stalin.c:7338: warning: `t4820' might be used uninitialized in this function 387.55user 1.50system 6:39.75elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33731major+860290minor)pagefaults 0swaps compile dynamic Command terminated by signal 11 86.54user 0.74system 1:29.00elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (765major+16868minor)pagefaults 0swaps compile fannkuch (STATIC-COUNTS 2158 871 1770 2158 934 234 0 602 2109 460 35 89 10 27 0.4776334776334776 3995 3995 465 251) fannkuch-stalin.c: In function `f0': fannkuch-stalin.c:828: warning: `a665' might be used uninitialized in this function fannkuch-stalin.c:829: warning: `a666' might be used uninitialized in this function fannkuch-stalin.c:830: warning: `a667' might be used uninitialized in this function fannkuch-stalin.c:831: warning: `a668' might be used uninitialized in this function fannkuch-stalin.c:832: warning: `a669' might be used uninitialized in this function fannkuch-stalin.c:833: warning: `a670' might be used uninitialized in this function fannkuch-stalin.c:894: warning: `a2144' might be used uninitialized in this function fannkuch-stalin.c:895: warning: `a2147' might be used uninitialized in this function fannkuch-stalin.c:1376: warning: `t1036' might be used uninitialized in this function fannkuch-stalin.c:1519: warning: `t1224' might be used uninitialized in this function 19.72user 0.25system 0:23.41elapsed 85%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32585major+220734minor)pagefaults 0swaps compile simplex (STATIC-COUNTS 2240 894 1799 2240 938 239 0 622 2249 490 62 167 25 76 2.232631578947368 4289 4289 500 282) simplex-stalin.c: In function `f93': simplex-stalin.c:837: warning: `a749' might be used uninitialized in this function simplex-stalin.c:841: warning: `a758' might be used uninitialized in this function simplex-stalin.c: In function `f63': simplex-stalin.c:1220: warning: `a729' might be used uninitialized in this function simplex-stalin.c: In function `f51': simplex-stalin.c:1676: warning: `a721' might be used uninitialized in this function simplex-stalin.c: In function `f0': simplex-stalin.c:2099: warning: `a699' might be used uninitialized in this function simplex-stalin.c:2100: warning: `a700' might be used uninitialized in this function simplex-stalin.c:2101: warning: `a701' might be used uninitialized in this function simplex-stalin.c:2405: warning: `t1162' might be used uninitialized in this function simplex-stalin.c:2406: warning: `t1163' might be used uninitialized in this function simplex-stalin.c:2982: warning: `t1942' might be used uninitialized in this function simplex-stalin.c:2983: warning: `t1943' might be used uninitialized in this function simplex-stalin.c:2984: warning: `t1944' might be used uninitialized in this function 30.36user 0.53system 0:33.67elapsed 91%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32606major+224313minor)pagefaults 0swaps compile em-functional (STATIC-COUNTS 3628 1046 2912 3628 1368 325 0 1219 3458 920 343 948 51 196 0.932967032967033 6505 6505 642 440) em-functional-stalin.c: In function `f620': em-functional-stalin.c:7357: warning: `a2808' might be used uninitialized in this function em-functional-stalin.c: In function `f331': em-functional-stalin.c:7496: warning: `a1060' might be used uninitialized in this function em-functional-stalin.c: In function `f206': em-functional-stalin.c:23088: warning: `t4766' might be used uninitialized in this function em-functional-stalin.c: In function `f177': em-functional-stalin.c:24578: warning: `t4892' might be used uninitialized in this function em-functional-stalin.c: In function `f15': em-functional-stalin.c:27331: warning: unused variable `p871' em-functional-stalin.c:27328: warning: unused variable `p865' em-functional-stalin.c:27231: warning: `a802' might be used uninitialized in this function em-functional-stalin.c:27239: warning: `a1557' might be used uninitialized in this function em-functional-stalin.c:27245: warning: `a1566' might be used uninitialized in this function em-functional-stalin.c: In function `f0': em-functional-stalin.c:27860: warning: `a1946' might be used uninitialized in this function em-functional-stalin.c:27865: warning: `a2572' might be used uninitialized in this function em-functional-stalin.c:27866: warning: `a2575' might be used uninitialized in this function em-functional-stalin.c:27884: warning: `a2963' might be used uninitialized in this function em-functional-stalin.c:27888: warning: `a2968' might be used uninitialized in this function em-functional-stalin.c:27892: warning: `a2973' might be used uninitialized in this function em-functional-stalin.c:29105: warning: `t7826' might be used uninitialized in this function 205.88user 1.11system 3:40.51elapsed 93%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (35701major+769299minor)pagefaults 0swaps compile em-imperative (STATIC-COUNTS 2807 987 2203 2807 1062 304 0 837 2761 662 233 585 69 177 1.360648740930431 5239 5239 584 384) em-imperative-stalin.c: In function `f833': em-imperative-stalin.c:4885: warning: `a2753' might be used uninitialized in this function em-imperative-stalin.c: In function `f483': em-imperative-stalin.c:5062: warning: `a1015' might be used uninitialized in this function em-imperative-stalin.c:5099: warning: `a1144' might be used uninitialized in this function em-imperative-stalin.c:5241: warning: `t680' might be used uninitialized in this function em-imperative-stalin.c:6451: warning: `t2295' might be used uninitialized in this function em-imperative-stalin.c: In function `f418': em-imperative-stalin.c:12096: warning: `a1096' might be used uninitialized in this function em-imperative-stalin.c:12104: warning: `a1112' might be used uninitialized in this function em-imperative-stalin.c: In function `f15': em-imperative-stalin.c:13849: warning: unused variable `p1084' em-imperative-stalin.c:13846: warning: unused variable `p1078' em-imperative-stalin.c:13749: warning: `a770' might be used uninitialized in this function em-imperative-stalin.c:13757: warning: `a1635' might be used uninitialized in this function em-imperative-stalin.c:13763: warning: `a1644' might be used uninitialized in this function em-imperative-stalin.c: In function `f0': em-imperative-stalin.c:14346: warning: `a1232' might be used uninitialized in this function em-imperative-stalin.c:14347: warning: `a1233' might be used uninitialized in this function em-imperative-stalin.c:14390: warning: `a2024' might be used uninitialized in this function em-imperative-stalin.c:14395: warning: `a2650' might be used uninitialized in this function em-imperative-stalin.c:14396: warning: `a2653' might be used uninitialized in this function em-imperative-stalin.c:15399: warning: `t5061' might be used uninitialized in this function em-imperative-stalin.c: In function `f13': em-imperative-stalin.c:14085: warning: `r13' might be used uninitialized in this function 104.47user 1.34system 1:52.96elapsed 93%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (34487major+412522minor)pagefaults 0swaps compile nfm (STATIC-COUNTS 4481 1134 3748 4481 2043 274 0 1431 4170 1077 431 1432 90 336 0.8427703922534056 8282 8282 728 549) nfm-stalin.c: In function `f1691': nfm-stalin.c:9525: warning: unused variable `p898' nfm-stalin.c:9445: warning: `a1421' might be used uninitialized in this function nfm-stalin.c: In function `f1685': nfm-stalin.c:10539: warning: value computed is not used nfm-stalin.c:9982: warning: unused variable `p3726' nfm-stalin.c:9979: warning: unused variable `p3720' nfm-stalin.c:9976: warning: unused variable `p3714' nfm-stalin.c:9973: warning: unused variable `p3708' nfm-stalin.c:9970: warning: unused variable `p3702' nfm-stalin.c:9766: warning: `a3782' might be used uninitialized in this function nfm-stalin.c:9772: warning: `a3791' might be used uninitialized in this function nfm-stalin.c:9778: warning: `a3800' might be used uninitialized in this function nfm-stalin.c:9784: warning: `a3809' might be used uninitialized in this function nfm-stalin.c:9790: warning: `a3818' might be used uninitialized in this function nfm-stalin.c: In function `f1665': nfm-stalin.c:11109: warning: unused variable `p3695' nfm-stalin.c:11106: warning: unused variable `p3689' nfm-stalin.c:11103: warning: unused variable `p3683' nfm-stalin.c:11100: warning: unused variable `p3677' nfm-stalin.c:11096: warning: unused variable `p3474' nfm-stalin.c:11093: warning: unused variable `p3468' nfm-stalin.c:11090: warning: unused variable `p3462' nfm-stalin.c:11087: warning: unused variable `p3456' nfm-stalin.c:11084: warning: unused variable `p3450' nfm-stalin.c:11081: warning: unused variable `p3444' nfm-stalin.c:11078: warning: unused variable `p3438' nfm-stalin.c:11075: warning: unused variable `p3432' nfm-stalin.c:11072: warning: unused variable `p3426' nfm-stalin.c:11069: warning: unused variable `p3420' nfm-stalin.c:11066: warning: unused variable `p3414' nfm-stalin.c:11063: warning: unused variable `p3408' nfm-stalin.c:11060: warning: unused variable `p3402' nfm-stalin.c:11057: warning: unused variable `p3396' nfm-stalin.c:10660: warning: `a3385' might be used uninitialized in this function nfm-stalin.c:10663: warning: `a3389' might be used uninitialized in this function nfm-stalin.c:10666: warning: `a3394' might be used uninitialized in this function nfm-stalin.c:10669: warning: `a3398' might be used uninitialized in this function nfm-stalin.c:10672: warning: `a3403' might be used uninitialized in this function nfm-stalin.c:10675: warning: `a3407' might be used uninitialized in this function nfm-stalin.c:10678: warning: `a3412' might be used uninitialized in this function nfm-stalin.c:10681: warning: `a3416' might be used uninitialized in this function nfm-stalin.c:10684: warning: `a3421' might be used uninitialized in this function nfm-stalin.c:10687: warning: `a3425' might be used uninitialized in this function nfm-stalin.c:10690: warning: `a3430' might be used uninitialized in this function nfm-stalin.c:10693: warning: `a3434' might be used uninitialized in this function nfm-stalin.c:10696: warning: `a3439' might be used uninitialized in this function nfm-stalin.c:10699: warning: `a3443' might be used uninitialized in this function nfm-stalin.c:10702: warning: `a3448' might be used uninitialized in this function nfm-stalin.c:10705: warning: `a3452' might be used uninitialized in this function nfm-stalin.c:10708: warning: `a3457' might be used uninitialized in this function nfm-stalin.c:10711: warning: `a3461' might be used uninitialized in this function nfm-stalin.c:10714: warning: `a3466' might be used uninitialized in this function nfm-stalin.c:10717: warning: `a3470' might be used uninitialized in this function nfm-stalin.c:10720: warning: `a3475' might be used uninitialized in this function nfm-stalin.c:10723: warning: `a3479' might be used uninitialized in this function nfm-stalin.c:10726: warning: `a3484' might be used uninitialized in this function nfm-stalin.c:10729: warning: `a3488' might be used uninitialized in this function nfm-stalin.c:10732: warning: `a3493' might be used uninitialized in this function nfm-stalin.c:10735: warning: `a3497' might be used uninitialized in this function nfm-stalin.c:10738: warning: `a3502' might be used uninitialized in this function nfm-stalin.c:10741: warning: `a3506' might be used uninitialized in this function nfm-stalin.c:10745: warning: `a3741' might be used uninitialized in this function nfm-stalin.c:10748: warning: `a3745' might be used uninitialized in this function nfm-stalin.c:10751: warning: `a3750' might be used uninitialized in this function nfm-stalin.c:10754: warning: `a3754' might be used uninitialized in this function nfm-stalin.c:10757: warning: `a3759' might be used uninitialized in this function nfm-stalin.c:10760: warning: `a3763' might be used uninitialized in this function nfm-stalin.c:10763: warning: `a3768' might be used uninitialized in this function nfm-stalin.c:10766: warning: `a3772' might be used uninitialized in this function nfm-stalin.c: In function `f1631': nfm-stalin.c:12609: warning: value computed is not used nfm-stalin.c:12743: warning: value computed is not used nfm-stalin.c:13485: warning: value computed is not used nfm-stalin.c:12362: warning: unused variable `p3828' nfm-stalin.c:12359: warning: unused variable `p3774' nfm-stalin.c:12356: warning: unused variable `p3756' nfm-stalin.c:12353: warning: unused variable `p3750' nfm-stalin.c:12350: warning: unused variable `p3744' nfm-stalin.c:12347: warning: unused variable `p3738' nfm-stalin.c:12344: warning: unused variable `p3390' nfm-stalin.c:12341: warning: unused variable `p3384' nfm-stalin.c:12338: warning: unused variable `p3378' nfm-stalin.c:12335: warning: unused variable `p3372' nfm-stalin.c:12332: warning: unused variable `p3366' nfm-stalin.c:12329: warning: unused variable `p3360' nfm-stalin.c:12326: warning: unused variable `p3354' nfm-stalin.c:12323: warning: unused variable `p3348' nfm-stalin.c:12320: warning: unused variable `p3342' nfm-stalin.c:12317: warning: unused variable `p3336' nfm-stalin.c:12314: warning: unused variable `p3330' nfm-stalin.c:12311: warning: unused variable `p3000' nfm-stalin.c:12308: warning: unused variable `p2994' nfm-stalin.c:12305: warning: unused variable `p2976' nfm-stalin.c:12302: warning: unused variable `p2898' nfm-stalin.c:11671: warning: `a2642' might be used uninitialized in this function nfm-stalin.c:11677: warning: `a2759' might be used uninitialized in this function nfm-stalin.c:11683: warning: `a2786' might be used uninitialized in this function nfm-stalin.c:11689: warning: `a2795' might be used uninitialized in this function nfm-stalin.c:11695: warning: `a3290' might be used uninitialized in this function nfm-stalin.c:11701: warning: `a3299' might be used uninitialized in this function nfm-stalin.c:11707: warning: `a3308' might be used uninitialized in this function nfm-stalin.c:11713: warning: `a3317' might be used uninitialized in this function nfm-stalin.c:11719: warning: `a3326' might be used uninitialized in this function nfm-stalin.c:11725: warning: `a3335' might be used uninitialized in this function nfm-stalin.c:11731: warning: `a3344' might be used uninitialized in this function nfm-stalin.c:11737: warning: `a3353' might be used uninitialized in this function nfm-stalin.c:11743: warning: `a3362' might be used uninitialized in this function nfm-stalin.c:11749: warning: `a3371' might be used uninitialized in this function nfm-stalin.c:11755: warning: `a3380' might be used uninitialized in this function nfm-stalin.c:11764: warning: `a3836' might be used uninitialized in this function nfm-stalin.c:11770: warning: `a3845' might be used uninitialized in this function nfm-stalin.c:11776: warning: `a3854' might be used uninitialized in this function nfm-stalin.c:11782: warning: `a3863' might be used uninitialized in this function nfm-stalin.c:11788: warning: `a3890' might be used uninitialized in this function nfm-stalin.c:11794: warning: `a3971' might be used uninitialized in this function nfm-stalin.c: In function `f1599': nfm-stalin.c:15264: warning: value computed is not used nfm-stalin.c:16015: warning: value computed is not used nfm-stalin.c:15018: warning: unused variable `p3822' nfm-stalin.c:15015: warning: unused variable `p3816' nfm-stalin.c:15012: warning: unused variable `p3810' nfm-stalin.c:15009: warning: unused variable `p3804' nfm-stalin.c:15006: warning: unused variable `p3798' nfm-stalin.c:15003: warning: unused variable `p3792' nfm-stalin.c:15000: warning: unused variable `p3786' nfm-stalin.c:14997: warning: unused variable `p3780' nfm-stalin.c:14994: warning: unused variable `p3180' nfm-stalin.c:14991: warning: unused variable `p3174' nfm-stalin.c:14988: warning: unused variable `p3168' nfm-stalin.c:14985: warning: unused variable `p3162' nfm-stalin.c:14982: warning: unused variable `p3156' nfm-stalin.c:14979: warning: unused variable `p3150' nfm-stalin.c:14976: warning: unused variable `p3144' nfm-stalin.c:14973: warning: unused variable `p3138' nfm-stalin.c:14970: warning: unused variable `p3132' nfm-stalin.c:14967: warning: unused variable `p3126' nfm-stalin.c:14964: warning: unused variable `p3120' nfm-stalin.c:14961: warning: unused variable `p3114' nfm-stalin.c:14368: warning: `a2966' might be used uninitialized in this function nfm-stalin.c:14374: warning: `a2975' might be used uninitialized in this function nfm-stalin.c:14380: warning: `a2984' might be used uninitialized in this function nfm-stalin.c:14386: warning: `a2993' might be used uninitialized in this function nfm-stalin.c:14392: warning: `a3002' might be used uninitialized in this function nfm-stalin.c:14398: warning: `a3011' might be used uninitialized in this function nfm-stalin.c:14404: warning: `a3020' might be used uninitialized in this function nfm-stalin.c:14410: warning: `a3029' might be used uninitialized in this function nfm-stalin.c:14416: warning: `a3038' might be used uninitialized in this function nfm-stalin.c:14422: warning: `a3047' might be used uninitialized in this function nfm-stalin.c:14428: warning: `a3056' might be used uninitialized in this function nfm-stalin.c:14434: warning: `a3065' might be used uninitialized in this function nfm-stalin.c:14444: warning: `a3899' might be used uninitialized in this function nfm-stalin.c:14450: warning: `a3908' might be used uninitialized in this function nfm-stalin.c:14456: warning: `a3917' might be used uninitialized in this function nfm-stalin.c:14462: warning: `a3926' might be used uninitialized in this function nfm-stalin.c:14468: warning: `a3935' might be used uninitialized in this function nfm-stalin.c:14474: warning: `a3944' might be used uninitialized in this function nfm-stalin.c:14480: warning: `a3953' might be used uninitialized in this function nfm-stalin.c:14486: warning: `a3962' might be used uninitialized in this function nfm-stalin.c: In function `f1589': nfm-stalin.c:17358: warning: value computed is not used nfm-stalin.c:17549: warning: value computed is not used nfm-stalin.c:17741: warning: value computed is not used nfm-stalin.c:17113: warning: unused variable `p4072' nfm-stalin.c:17110: warning: unused variable `p4066' nfm-stalin.c:17107: warning: unused variable `p2946' nfm-stalin.c:17104: warning: unused variable `p2940' nfm-stalin.c:17101: warning: unused variable `p2850' nfm-stalin.c:17098: warning: unused variable `p2844' nfm-stalin.c:16882: warning: `a2561' might be used uninitialized in this function nfm-stalin.c:16888: warning: `a2570' might be used uninitialized in this function nfm-stalin.c:16894: warning: `a2705' might be used uninitialized in this function nfm-stalin.c:16900: warning: `a2714' might be used uninitialized in this function nfm-stalin.c:16907: warning: `a4326' might be used uninitialized in this function nfm-stalin.c:16913: warning: `a4335' might be used uninitialized in this function nfm-stalin.c: In function `f1583': nfm-stalin.c:18103: warning: value computed is not used nfm-stalin.c:17858: warning: unused variable `p3768' nfm-stalin.c:17855: warning: unused variable `p3762' nfm-stalin.c:17772: warning: `a3872' might be used uninitialized in this function nfm-stalin.c:17778: warning: `a3881' might be used uninitialized in this function nfm-stalin.c: In function `f1577': nfm-stalin.c:18458: warning: value computed is not used nfm-stalin.c:18216: warning: unused variable `p2904' nfm-stalin.c:18206: warning: unused variable `p892' nfm-stalin.c:18129: warning: `a1412' might be used uninitialized in this function nfm-stalin.c:18138: warning: `a2651' might be used uninitialized in this function nfm-stalin.c: In function `f1569': nfm-stalin.c:18747: warning: value computed is not used nfm-stalin.c:18867: warning: value computed is not used nfm-stalin.c:18584: warning: unused variable `p3048' nfm-stalin.c:18581: warning: unused variable `p3042' nfm-stalin.c:18488: warning: `a2858' might be used uninitialized in this function nfm-stalin.c:18494: warning: `a2867' might be used uninitialized in this function nfm-stalin.c: In function `f1336': nfm-stalin.c:24754: warning: value computed is not used nfm-stalin.c:32717: warning: value computed is not used nfm-stalin.c:33629: warning: value computed is not used nfm-stalin.c:33765: warning: value computed is not used nfm-stalin.c:34042: warning: value computed is not used nfm-stalin.c:34487: warning: value computed is not used nfm-stalin.c:35038: warning: value computed is not used nfm-stalin.c:35479: warning: value computed is not used nfm-stalin.c:35628: warning: value computed is not used nfm-stalin.c:35905: warning: value computed is not used nfm-stalin.c:36350: warning: value computed is not used nfm-stalin.c:36901: warning: value computed is not used nfm-stalin.c:37339: warning: value computed is not used nfm-stalin.c:37783: warning: value computed is not used nfm-stalin.c:23780: warning: unused variable `p4168' nfm-stalin.c:23777: warning: unused variable `p4162' nfm-stalin.c:23774: warning: unused variable `p4156' nfm-stalin.c:23771: warning: unused variable `p4150' nfm-stalin.c:23768: warning: unused variable `p4144' nfm-stalin.c:23765: warning: unused variable `p4138' nfm-stalin.c:23762: warning: unused variable `p4132' nfm-stalin.c:23759: warning: unused variable `p4126' nfm-stalin.c:23756: warning: unused variable `p4120' nfm-stalin.c:23753: warning: unused variable `p4114' nfm-stalin.c:23750: warning: unused variable `p4108' nfm-stalin.c:23747: warning: unused variable `p4102' nfm-stalin.c:23744: warning: unused variable `p4096' nfm-stalin.c:23741: warning: unused variable `p4090' nfm-stalin.c:23738: warning: unused variable `p4084' nfm-stalin.c:23735: warning: unused variable `p4078' nfm-stalin.c:23732: warning: unused variable `p4060' nfm-stalin.c:23729: warning: unused variable `p4054' nfm-stalin.c:23726: warning: unused variable `p4048' nfm-stalin.c:23723: warning: unused variable `p4042' nfm-stalin.c:23720: warning: unused variable `p4036' nfm-stalin.c:23717: warning: unused variable `p4030' nfm-stalin.c:23714: warning: unused variable `p4024' nfm-stalin.c:23711: warning: unused variable `p4018' nfm-stalin.c:23708: warning: unused variable `p4012' nfm-stalin.c:23705: warning: unused variable `p4006' nfm-stalin.c:23702: warning: unused variable `p4000' nfm-stalin.c:23699: warning: unused variable `p3994' nfm-stalin.c:23696: warning: unused variable `p3988' nfm-stalin.c:23693: warning: unused variable `p3981' nfm-stalin.c:23690: warning: unused variable `p3975' nfm-stalin.c:23687: warning: unused variable `p3969' nfm-stalin.c:23684: warning: unused variable `p3963' nfm-stalin.c:23681: warning: unused variable `p3957' nfm-stalin.c:23678: warning: unused variable `p3951' nfm-stalin.c:23675: warning: unused variable `p3944' nfm-stalin.c:23672: warning: unused variable `p3938' nfm-stalin.c:23669: warning: unused variable `p3932' nfm-stalin.c:23666: warning: unused variable `p3926' nfm-stalin.c:23663: warning: unused variable `p3920' nfm-stalin.c:23660: warning: unused variable `p3914' nfm-stalin.c:23657: warning: unused variable `p3908' nfm-stalin.c:23654: warning: unused variable `p3902' nfm-stalin.c:23651: warning: unused variable `p3895' nfm-stalin.c:23648: warning: unused variable `p3889' nfm-stalin.c:23645: warning: unused variable `p3883' nfm-stalin.c:23642: warning: unused variable `p3877' nfm-stalin.c:23639: warning: unused variable `p3871' nfm-stalin.c:23636: warning: unused variable `p3865' nfm-stalin.c:23633: warning: unused variable `p3858' nfm-stalin.c:23630: warning: unused variable `p3852' nfm-stalin.c:23627: warning: unused variable `p3846' nfm-stalin.c:23624: warning: unused variable `p3840' nfm-stalin.c:23621: warning: unused variable `p3834' nfm-stalin.c:23618: warning: unused variable `p3732' nfm-stalin.c:23615: warning: unused variable `p3671' nfm-stalin.c:23587: warning: unused variable `p3540' nfm-stalin.c:23584: warning: unused variable `p3534' nfm-stalin.c:23581: warning: unused variable `p3528' nfm-stalin.c:23578: warning: unused variable `p3522' nfm-stalin.c:23575: warning: unused variable `p3516' nfm-stalin.c:23572: warning: unused variable `p3510' nfm-stalin.c:23569: warning: unused variable `p3504' nfm-stalin.c:23566: warning: unused variable `p3498' nfm-stalin.c:23563: warning: unused variable `p3492' nfm-stalin.c:23560: warning: unused variable `p3486' nfm-stalin.c:23557: warning: unused variable `p3480' nfm-stalin.c:23554: warning: unused variable `p3324' nfm-stalin.c:23551: warning: unused variable `p3318' nfm-stalin.c:23548: warning: unused variable `p3312' nfm-stalin.c:23545: warning: unused variable `p3306' nfm-stalin.c:23542: warning: unused variable `p3300' nfm-stalin.c:23539: warning: unused variable `p3294' nfm-stalin.c:23536: warning: unused variable `p3288' nfm-stalin.c:23533: warning: unused variable `p3282' nfm-stalin.c:23530: warning: unused variable `p3276' nfm-stalin.c:23527: warning: unused variable `p3270' nfm-stalin.c:23524: warning: unused variable `p3264' nfm-stalin.c:23521: warning: unused variable `p3258' nfm-stalin.c:23518: warning: unused variable `p3252' nfm-stalin.c:23515: warning: unused variable `p3246' nfm-stalin.c:23512: warning: unused variable `p3240' nfm-stalin.c:23509: warning: unused variable `p3234' nfm-stalin.c:23506: warning: unused variable `p3228' nfm-stalin.c:23503: warning: unused variable `p3222' nfm-stalin.c:23500: warning: unused variable `p3216' nfm-stalin.c:23497: warning: unused variable `p3210' nfm-stalin.c:23494: warning: unused variable `p3204' nfm-stalin.c:23491: warning: unused variable `p3198' nfm-stalin.c:23488: warning: unused variable `p3192' nfm-stalin.c:23485: warning: unused variable `p3186' nfm-stalin.c:23482: warning: unused variable `p3108' nfm-stalin.c:23479: warning: unused variable `p3102' nfm-stalin.c:23476: warning: unused variable `p3096' nfm-stalin.c:23473: warning: unused variable `p3090' nfm-stalin.c:23470: warning: unused variable `p3084' nfm-stalin.c:23467: warning: unused variable `p3078' nfm-stalin.c:23464: warning: unused variable `p3072' nfm-stalin.c:23461: warning: unused variable `p3066' nfm-stalin.c:23458: warning: unused variable `p3060' nfm-stalin.c:23455: warning: unused variable `p3054' nfm-stalin.c:23452: warning: unused variable `p3036' nfm-stalin.c:23449: warning: unused variable `p3030' nfm-stalin.c:23446: warning: unused variable `p3024' nfm-stalin.c:23443: warning: unused variable `p3018' nfm-stalin.c:23440: warning: unused variable `p3012' nfm-stalin.c:23437: warning: unused variable `p3006' nfm-stalin.c:23434: warning: unused variable `p2988' nfm-stalin.c:23431: warning: unused variable `p2982' nfm-stalin.c:23428: warning: unused variable `p2970' nfm-stalin.c:23425: warning: unused variable `p2958' nfm-stalin.c:23422: warning: unused variable `p2952' nfm-stalin.c:23419: warning: unused variable `p2934' nfm-stalin.c:23416: warning: unused variable `p2928' nfm-stalin.c:23413: warning: unused variable `p2922' nfm-stalin.c:23410: warning: unused variable `p2916' nfm-stalin.c:23407: warning: unused variable `p2910' nfm-stalin.c:23404: warning: unused variable `p2892' nfm-stalin.c:23401: warning: unused variable `p2886' nfm-stalin.c:23398: warning: unused variable `p2874' nfm-stalin.c:23395: warning: unused variable `p2868' nfm-stalin.c:23392: warning: unused variable `p2862' nfm-stalin.c:23389: warning: unused variable `p2856' nfm-stalin.c:23386: warning: unused variable `p2838' nfm-stalin.c:23383: warning: unused variable `p2832' nfm-stalin.c:23380: warning: unused variable `p2826' nfm-stalin.c:23147: warning: unused variable `p886' nfm-stalin.c:23144: warning: unused variable `p880' nfm-stalin.c:23141: warning: unused variable `p874' nfm-stalin.c:18900: warning: `a1385' might be used uninitialized in this function nfm-stalin.c:18906: warning: `a1394' might be used uninitialized in this function nfm-stalin.c:18912: warning: `a1403' might be used uninitialized in this function nfm-stalin.c:18921: warning: `a1865' might be used uninitialized in this function nfm-stalin.c:18922: warning: `a1866' might be used uninitialized in this function nfm-stalin.c:18923: warning: `a1867' might be used uninitialized in this function nfm-stalin.c:18924: warning: `a1868' might be used uninitialized in this function nfm-stalin.c:18925: warning: `a1869' might be used uninitialized in this function nfm-stalin.c:18926: warning: `a1870' might be used uninitialized in this function nfm-stalin.c:18927: warning: `a1871' might be used uninitialized in this function nfm-stalin.c:18928: warning: `a1872' might be used uninitialized in this function nfm-stalin.c:18929: warning: `a1873' might be used uninitialized in this function nfm-stalin.c:18930: warning: `a1874' might be used uninitialized in this function nfm-stalin.c:19031: warning: `a2534' might be used uninitialized in this function nfm-stalin.c:19037: warning: `a2543' might be used uninitialized in this function nfm-stalin.c:19043: warning: `a2552' might be used uninitialized in this function nfm-stalin.c:19049: warning: `a2579' might be used uninitialized in this function nfm-stalin.c:19055: warning: `a2588' might be used uninitialized in this function nfm-stalin.c:19061: warning: `a2597' might be used uninitialized in this function nfm-stalin.c:19067: warning: `a2606' might be used uninitialized in this function nfm-stalin.c:19073: warning: `a2624' might be used uninitialized in this function nfm-stalin.c:19079: warning: `a2633' might be used uninitialized in this function nfm-stalin.c:19085: warning: `a2660' might be used uninitialized in this function nfm-stalin.c:19091: warning: `a2669' might be used uninitialized in this function nfm-stalin.c:19097: warning: `a2678' might be used uninitialized in this function nfm-stalin.c:19103: warning: `a2687' might be used uninitialized in this function nfm-stalin.c:19109: warning: `a2696' might be used uninitialized in this function nfm-stalin.c:19115: warning: `a2723' might be used uninitialized in this function nfm-stalin.c:19121: warning: `a2732' might be used uninitialized in this function nfm-stalin.c:19127: warning: `a2750' might be used uninitialized in this function nfm-stalin.c:19133: warning: `a2768' might be used uninitialized in this function nfm-stalin.c:19139: warning: `a2777' might be used uninitialized in this function nfm-stalin.c:19145: warning: `a2804' might be used uninitialized in this function nfm-stalin.c:19151: warning: `a2813' might be used uninitialized in this function nfm-stalin.c:19157: warning: `a2822' might be used uninitialized in this function nfm-stalin.c:19163: warning: `a2831' might be used uninitialized in this function nfm-stalin.c:19169: warning: `a2840' might be used uninitialized in this function nfm-stalin.c:19175: warning: `a2849' might be used uninitialized in this function nfm-stalin.c:19181: warning: `a2876' might be used uninitialized in this function nfm-stalin.c:19187: warning: `a2885' might be used uninitialized in this function nfm-stalin.c:19193: warning: `a2894' might be used uninitialized in this function nfm-stalin.c:19199: warning: `a2903' might be used uninitialized in this function nfm-stalin.c:19205: warning: `a2912' might be used uninitialized in this function nfm-stalin.c:19211: warning: `a2921' might be used uninitialized in this function nfm-stalin.c:19217: warning: `a2930' might be used uninitialized in this function nfm-stalin.c:19223: warning: `a2939' might be used uninitialized in this function nfm-stalin.c:19229: warning: `a2948' might be used uninitialized in this function nfm-stalin.c:19235: warning: `a2957' might be used uninitialized in this function nfm-stalin.c:19241: warning: `a3074' might be used uninitialized in this function nfm-stalin.c:19247: warning: `a3083' might be used uninitialized in this function nfm-stalin.c:19253: warning: `a3092' might be used uninitialized in this function nfm-stalin.c:19259: warning: `a3101' might be used uninitialized in this function nfm-stalin.c:19265: warning: `a3110' might be used uninitialized in this function nfm-stalin.c:19271: warning: `a3119' might be used uninitialized in this function nfm-stalin.c:19277: warning: `a3128' might be used uninitialized in this function nfm-stalin.c:19283: warning: `a3137' might be used uninitialized in this function nfm-stalin.c:19289: warning: `a3146' might be used uninitialized in this function nfm-stalin.c:19295: warning: `a3155' might be used uninitialized in this function nfm-stalin.c:19301: warning: `a3164' might be used uninitialized in this function nfm-stalin.c:19307: warning: `a3173' might be used uninitialized in this function nfm-stalin.c:19313: warning: `a3182' might be used uninitialized in this function nfm-stalin.c:19319: warning: `a3191' might be used uninitialized in this function nfm-stalin.c:19325: warning: `a3200' might be used uninitialized in this function nfm-stalin.c:19331: warning: `a3209' might be used uninitialized in this function nfm-stalin.c:19337: warning: `a3218' might be used uninitialized in this function nfm-stalin.c:19343: warning: `a3227' might be used uninitialized in this function nfm-stalin.c:19349: warning: `a3236' might be used uninitialized in this function nfm-stalin.c:19355: warning: `a3245' might be used uninitialized in this function nfm-stalin.c:19361: warning: `a3254' might be used uninitialized in this function nfm-stalin.c:19367: warning: `a3263' might be used uninitialized in this function nfm-stalin.c:19373: warning: `a3272' might be used uninitialized in this function nfm-stalin.c:19379: warning: `a3281' might be used uninitialized in this function nfm-stalin.c:19385: warning: `a3515' might be used uninitialized in this function nfm-stalin.c:19391: warning: `a3524' might be used uninitialized in this function nfm-stalin.c:19397: warning: `a3533' might be used uninitialized in this function nfm-stalin.c:19403: warning: `a3542' might be used uninitialized in this function nfm-stalin.c:19409: warning: `a3551' might be used uninitialized in this function nfm-stalin.c:19415: warning: `a3560' might be used uninitialized in this function nfm-stalin.c:19421: warning: `a3569' might be used uninitialized in this function nfm-stalin.c:19427: warning: `a3578' might be used uninitialized in this function nfm-stalin.c:19433: warning: `a3587' might be used uninitialized in this function nfm-stalin.c:19439: warning: `a3596' might be used uninitialized in this function nfm-stalin.c:19445: warning: `a3605' might be used uninitialized in this function nfm-stalin.c:19492: warning: `a3736' might be used uninitialized in this function nfm-stalin.c:19498: warning: `a3827' might be used uninitialized in this function nfm-stalin.c:19504: warning: `a3980' might be used uninitialized in this function nfm-stalin.c:19510: warning: `a3989' might be used uninitialized in this function nfm-stalin.c:19516: warning: `a3998' might be used uninitialized in this function nfm-stalin.c:19522: warning: `a4007' might be used uninitialized in this function nfm-stalin.c:19528: warning: `a4016' might be used uninitialized in this function nfm-stalin.c:19535: warning: `a4026' might be used uninitialized in this function nfm-stalin.c:19541: warning: `a4035' might be used uninitialized in this function nfm-stalin.c:19547: warning: `a4044' might be used uninitialized in this function nfm-stalin.c:19553: warning: `a4053' might be used uninitialized in this function nfm-stalin.c:19559: warning: `a4062' might be used uninitialized in this function nfm-stalin.c:19565: warning: `a4071' might be used uninitialized in this function nfm-stalin.c:19572: warning: `a4081' might be used uninitialized in this function nfm-stalin.c:19578: warning: `a4090' might be used uninitialized in this function nfm-stalin.c:19584: warning: `a4099' might be used uninitialized in this function nfm-stalin.c:19590: warning: `a4108' might be used uninitialized in this function nfm-stalin.c:19596: warning: `a4117' might be used uninitialized in this function nfm-stalin.c:19602: warning: `a4126' might be used uninitialized in this function nfm-stalin.c:19608: warning: `a4135' might be used uninitialized in this function nfm-stalin.c:19614: warning: `a4144' might be used uninitialized in this function nfm-stalin.c:19621: warning: `a4154' might be used uninitialized in this function nfm-stalin.c:19627: warning: `a4163' might be used uninitialized in this function nfm-stalin.c:19633: warning: `a4172' might be used uninitialized in this function nfm-stalin.c:19639: warning: `a4181' might be used uninitialized in this function nfm-stalin.c:19645: warning: `a4190' might be used uninitialized in this function nfm-stalin.c:19651: warning: `a4199' might be used uninitialized in this function nfm-stalin.c:19658: warning: `a4209' might be used uninitialized in this function nfm-stalin.c:19664: warning: `a4218' might be used uninitialized in this function nfm-stalin.c:19670: warning: `a4227' might be used uninitialized in this function nfm-stalin.c:19676: warning: `a4236' might be used uninitialized in this function nfm-stalin.c:19682: warning: `a4245' might be used uninitialized in this function nfm-stalin.c:19688: warning: `a4254' might be used uninitialized in this function nfm-stalin.c:19694: warning: `a4263' might be used uninitialized in this function nfm-stalin.c:19700: warning: `a4272' might be used uninitialized in this function nfm-stalin.c:19706: warning: `a4281' might be used uninitialized in this function nfm-stalin.c:19712: warning: `a4290' might be used uninitialized in this function nfm-stalin.c:19718: warning: `a4299' might be used uninitialized in this function nfm-stalin.c:19724: warning: `a4308' might be used uninitialized in this function nfm-stalin.c:19730: warning: `a4317' might be used uninitialized in this function nfm-stalin.c:19736: warning: `a4344' might be used uninitialized in this function nfm-stalin.c:19742: warning: `a4353' might be used uninitialized in this function nfm-stalin.c:19748: warning: `a4362' might be used uninitialized in this function nfm-stalin.c:19754: warning: `a4371' might be used uninitialized in this function nfm-stalin.c:19760: warning: `a4380' might be used uninitialized in this function nfm-stalin.c:19766: warning: `a4389' might be used uninitialized in this function nfm-stalin.c:19772: warning: `a4398' might be used uninitialized in this function nfm-stalin.c:19778: warning: `a4407' might be used uninitialized in this function nfm-stalin.c:19784: warning: `a4416' might be used uninitialized in this function nfm-stalin.c:19790: warning: `a4425' might be used uninitialized in this function nfm-stalin.c:19796: warning: `a4434' might be used uninitialized in this function nfm-stalin.c:19802: warning: `a4443' might be used uninitialized in this function nfm-stalin.c:19808: warning: `a4452' might be used uninitialized in this function nfm-stalin.c:19814: warning: `a4461' might be used uninitialized in this function nfm-stalin.c:19820: warning: `a4470' might be used uninitialized in this function nfm-stalin.c:19826: warning: `a4479' might be used uninitialized in this function nfm-stalin.c: In function `f955': nfm-stalin.c:38519: warning: unused variable `p965' nfm-stalin.c:38511: warning: unused variable `p868' nfm-stalin.c:38454: warning: `a1376' might be used uninitialized in this function nfm-stalin.c:38455: warning: `a1493' might be used uninitialized in this function nfm-stalin.c:38458: warning: `a1497' might be used uninitialized in this function nfm-stalin.c: In function `f934': nfm-stalin.c:38718: warning: unused variable `p2964' nfm-stalin.c:38715: warning: unused variable `p2880' nfm-stalin.c:38673: warning: `a2611' might be used uninitialized in this function nfm-stalin.c:38676: warning: `a2615' might be used uninitialized in this function nfm-stalin.c:38679: warning: `a2737' might be used uninitialized in this function nfm-stalin.c:38682: warning: `a2741' might be used uninitialized in this function nfm-stalin.c: In function `f699': nfm-stalin.c:38785: warning: `t7571' might be used uninitialized in this function nfm-stalin.c:38791: warning: `t7577' might be used uninitialized in this function nfm-stalin.c:38797: warning: `t7583' might be used uninitialized in this function nfm-stalin.c:38803: warning: `t7589' might be used uninitialized in this function nfm-stalin.c:38809: warning: `t7595' might be used uninitialized in this function nfm-stalin.c:38815: warning: `t7601' might be used uninitialized in this function nfm-stalin.c:38821: warning: `t7607' might be used uninitialized in this function nfm-stalin.c:38827: warning: `t7613' might be used uninitialized in this function nfm-stalin.c:38833: warning: `t7619' might be used uninitialized in this function nfm-stalin.c:38839: warning: `t7625' might be used uninitialized in this function nfm-stalin.c:38845: warning: `t7631' might be used uninitialized in this function nfm-stalin.c:38851: warning: `t7637' might be used uninitialized in this function nfm-stalin.c:38857: warning: `t7643' might be used uninitialized in this function nfm-stalin.c:38863: warning: `t7649' might be used uninitialized in this function nfm-stalin.c:38869: warning: `t7655' might be used uninitialized in this function nfm-stalin.c:38875: warning: `t7661' might be used uninitialized in this function nfm-stalin.c:38881: warning: `t7667' might be used uninitialized in this function nfm-stalin.c:38887: warning: `t7673' might be used uninitialized in this function nfm-stalin.c:38910: warning: `t7703' might be used uninitialized in this function nfm-stalin.c: In function `f430': nfm-stalin.c:39280: warning: `a846' might be used uninitialized in this function nfm-stalin.c:39291: warning: `a1003' might be used uninitialized in this function nfm-stalin.c:39311: warning: `a1661' might be used uninitialized in this function nfm-stalin.c:39317: warning: `a1850' might be used uninitialized in this function nfm-stalin.c:39335: warning: `t7767' might be used uninitialized in this function nfm-stalin.c: In function `f346': nfm-stalin.c:40915: warning: `a968' might be used uninitialized in this function nfm-stalin.c: In function `f222': nfm-stalin.c:41632: warning: `a849' might be used uninitialized in this function nfm-stalin.c:41633: warning: `a850' might be used uninitialized in this function nfm-stalin.c:41634: warning: `a851' might be used uninitialized in this function nfm-stalin.c:41639: warning: `a887' might be used uninitialized in this function nfm-stalin.c:41643: warning: `a895' might be used uninitialized in this function nfm-stalin.c:41647: warning: `a904' might be used uninitialized in this function nfm-stalin.c: In function `f130': nfm-stalin.c:43348: warning: value computed is not used nfm-stalin.c:42662: warning: `a798' might be used uninitialized in this function nfm-stalin.c:42669: warning: `a812' might be used uninitialized in this function nfm-stalin.c:42710: warning: `t9085' might be used uninitialized in this function nfm-stalin.c: In function `f75': nfm-stalin.c:44341: warning: value computed is not used nfm-stalin.c:43965: warning: `a761' might be used uninitialized in this function nfm-stalin.c:43970: warning: `a771' might be used uninitialized in this function nfm-stalin.c:43995: warning: `t9443' might be used uninitialized in this function nfm-stalin.c: In function `f40': nfm-stalin.c:44703: warning: `a736' might be used uninitialized in this function nfm-stalin.c:44722: warning: `t9652' might be used uninitialized in this function nfm-stalin.c: In function `f28': nfm-stalin.c:45138: warning: `a722' might be used uninitialized in this function nfm-stalin.c:45139: warning: `a723' might be used uninitialized in this function nfm-stalin.c:45140: warning: `a724' might be used uninitialized in this function nfm-stalin.c:45144: warning: `a1027' might be used uninitialized in this function nfm-stalin.c:45146: warning: `a3653' might be used uninitialized in this function nfm-stalin.c:45148: warning: `a3658' might be used uninitialized in this function nfm-stalin.c:45150: warning: `a3663' might be used uninitialized in this function nfm-stalin.c:45152: warning: `a3668' might be used uninitialized in this function nfm-stalin.c:45154: warning: `a3673' might be used uninitialized in this function nfm-stalin.c: In function `f25': nfm-stalin.c:45504: warning: `a719' might be used uninitialized in this function nfm-stalin.c:45516: warning: `t9925' might be used uninitialized in this function nfm-stalin.c: In function `f0': nfm-stalin.c:45994: warning: `t10578' might be used uninitialized in this function nfm-stalin.c:46000: warning: `t10584' might be used uninitialized in this function nfm-stalin.c:46004: warning: `t10588' might be used uninitialized in this function nfm-stalin.c:46005: warning: `t10589' might be used uninitialized in this function 393.45user 4.90system 6:56.33elapsed 95%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (36725major+1009713minor)pagefaults 0swaps compile integ (STATIC-COUNTS 2104 861 1744 2104 939 237 0 568 2045 438 26 79 7 20 0.298465829846583 3938 3938 455 245) integ-stalin.c: In function `f0': integ-stalin.c:1717: warning: `a2092' might be used uninitialized in this function integ-stalin.c:1718: warning: `a2093' might be used uninitialized in this function integ-stalin.c:2150: warning: `t1314' might be used uninitialized in this function 22.29user 0.24system 0:24.78elapsed 90%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32870major+219944minor)pagefaults 0swaps compile gold (STATIC-COUNTS 2185 875 1804 2185 961 246 0 597 2100 452 41 110 15 36 0.7061909758656874 4160 4160 469 259) gold-stalin.c: In function `f0': gold-stalin.c:2718: warning: `a2176' might be used uninitialized in this function gold-stalin.c:2719: warning: `a2177' might be used uninitialized in this function gold-stalin.c:3201: warning: `t1745' might be used uninitialized in this function 22.94user 0.32system 0:25.79elapsed 90%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32867major+220201minor)pagefaults 0swaps compile sort (STATIC-COUNTS 2192 874 1804 2192 950 244 0 610 2139 466 35 110 7 30 0.4397163120567376 4114 4114 470 258) sort-stalin.c: In function `f58': sort-stalin.c:1074: warning: unused variable `p2146' sort-stalin.c:1066: warning: unused variable `p2135' sort-stalin.c:1063: warning: unused variable `p2129' sort-stalin.c:1060: warning: unused variable `p2123' sort-stalin.c:807: warning: `a2172' might be used uninitialized in this function sort-stalin.c:812: warning: `a2180' might be used uninitialized in this function sort-stalin.c:817: warning: `a2188' might be used uninitialized in this function sort-stalin.c:825: warning: `a2201' might be used uninitialized in this function sort-stalin.c:855: warning: `t66' might be used uninitialized in this function sort-stalin.c:898: warning: `t129' might be used uninitialized in this function sort-stalin.c:918: warning: `t160' might be used uninitialized in this function sort-stalin.c:967: warning: `t234' might be used uninitialized in this function sort-stalin.c: In function `f0': sort-stalin.c:2834: warning: unused variable `p2117' sort-stalin.c:2821: warning: unused variable `p513' sort-stalin.c:2818: warning: unused variable `p387' sort-stalin.c:1980: warning: `a966' might be used uninitialized in this function sort-stalin.c:1986: warning: `a1101' might be used uninitialized in this function sort-stalin.c:1994: warning: `a2143' might be used uninitialized in this function sort-stalin.c:2000: warning: `a2164' might be used uninitialized in this function sort-stalin.c:2253: warning: `t1016' might be used uninitialized in this function sort-stalin.c:2501: warning: `t1382' might be used uninitialized in this function sort-stalin.c:2502: warning: `t1383' might be used uninitialized in this function 21.99user 0.26system 0:24.67elapsed 90%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32763major+220508minor)pagefaults 0swaps compile rrr (STATIC-COUNTS 2755 943 2208 2755 1188 262 0 758 2600 559 126 388 42 141 1.200638394892841 5319 5319 545 337) rrr-stalin.c: In function `f1239': rrr-stalin.c:3775: warning: `r1239' might be used uninitialized in this function rrr-stalin.c:3776: warning: `a1241' might be used uninitialized in this function rrr-stalin.c: In function `f279': rrr-stalin.c:4050: warning: `a1017' might be used uninitialized in this function rrr-stalin.c:4051: warning: `a1018' might be used uninitialized in this function rrr-stalin.c:4058: warning: `a1044' might be used uninitialized in this function rrr-stalin.c:4062: warning: `a1053' might be used uninitialized in this function rrr-stalin.c: In function `f150': rrr-stalin.c:5598: warning: `a736' might be used uninitialized in this function rrr-stalin.c:5601: warning: `a746' might be used uninitialized in this function rrr-stalin.c:5604: warning: `a854' might be used uninitialized in this function rrr-stalin.c:5605: warning: `a855' might be used uninitialized in this function rrr-stalin.c:5606: warning: `a856' might be used uninitialized in this function rrr-stalin.c:5607: warning: `a857' might be used uninitialized in this function rrr-stalin.c:5608: warning: `a858' might be used uninitialized in this function rrr-stalin.c:5609: warning: `a859' might be used uninitialized in this function rrr-stalin.c:5610: warning: `a860' might be used uninitialized in this function rrr-stalin.c:5611: warning: `a861' might be used uninitialized in this function rrr-stalin.c:5612: warning: `a862' might be used uninitialized in this function rrr-stalin.c:5613: warning: `a863' might be used uninitialized in this function rrr-stalin.c:5614: warning: `a864' might be used uninitialized in this function rrr-stalin.c:5615: warning: `a865' might be used uninitialized in this function rrr-stalin.c:5616: warning: `a866' might be used uninitialized in this function rrr-stalin.c:5617: warning: `a867' might be used uninitialized in this function rrr-stalin.c:5618: warning: `a868' might be used uninitialized in this function rrr-stalin.c:5619: warning: `a869' might be used uninitialized in this function rrr-stalin.c:5645: warning: `a1061' might be used uninitialized in this function rrr-stalin.c:5649: warning: `a1070' might be used uninitialized in this function rrr-stalin.c:5653: warning: `a1078' might be used uninitialized in this function rrr-stalin.c:5657: warning: `a1086' might be used uninitialized in this function rrr-stalin.c:5659: warning: `a1091' might be used uninitialized in this function rrr-stalin.c:5783: warning: `t1694' might be used uninitialized in this function rrr-stalin.c:5784: warning: `t1695' might be used uninitialized in this function rrr-stalin.c:5793: warning: `t1707' might be used uninitialized in this function rrr-stalin.c:5794: warning: `t1708' might be used uninitialized in this function rrr-stalin.c:5803: warning: `t1721' might be used uninitialized in this function rrr-stalin.c:5804: warning: `t1722' might be used uninitialized in this function rrr-stalin.c:5868: warning: `t1804' might be used uninitialized in this function rrr-stalin.c:5876: warning: `t1814' might be used uninitialized in this function rrr-stalin.c: In function `f92': rrr-stalin.c:8777: warning: unused variable `p2527' rrr-stalin.c:8774: warning: unused variable `p2521' rrr-stalin.c:8771: warning: unused variable `p2515' rrr-stalin.c:8768: warning: unused variable `p2509' rrr-stalin.c:8765: warning: unused variable `p2503' rrr-stalin.c:8750: warning: unused variable `p855' rrr-stalin.c:8458: warning: `a1452' might be used uninitialized in this function rrr-stalin.c:8466: warning: `a2494' might be used uninitialized in this function rrr-stalin.c:8467: warning: `a2497' might be used uninitialized in this function rrr-stalin.c:8469: warning: `a2499' might be used uninitialized in this function rrr-stalin.c:8475: warning: `a2655' might be used uninitialized in this function rrr-stalin.c:8481: warning: `a2664' might be used uninitialized in this function rrr-stalin.c:8487: warning: `a2673' might be used uninitialized in this function rrr-stalin.c:8493: warning: `a2682' might be used uninitialized in this function rrr-stalin.c:8499: warning: `a2691' might be used uninitialized in this function rrr-stalin.c:8586: warning: `t2557' might be used uninitialized in this function rrr-stalin.c:8697: warning: `t2725' might be used uninitialized in this function rrr-stalin.c: In function `f0': rrr-stalin.c:10152: warning: `a802' might be used uninitialized in this function rrr-stalin.c:10153: warning: `a803' might be used uninitialized in this function rrr-stalin.c:10154: warning: `a804' might be used uninitialized in this function rrr-stalin.c:10155: warning: `a805' might be used uninitialized in this function rrr-stalin.c:10156: warning: `a806' might be used uninitialized in this function rrr-stalin.c:10157: warning: `a807' might be used uninitialized in this function rrr-stalin.c:10158: warning: `a808' might be used uninitialized in this function rrr-stalin.c:10159: warning: `a809' might be used uninitialized in this function rrr-stalin.c:10160: warning: `a810' might be used uninitialized in this function rrr-stalin.c:10161: warning: `a811' might be used uninitialized in this function rrr-stalin.c:10162: warning: `a812' might be used uninitialized in this function rrr-stalin.c:10201: warning: `a2725' might be used uninitialized in this function rrr-stalin.c:10204: warning: `a2730' might be used uninitialized in this function rrr-stalin.c:10887: warning: `t4145' might be used uninitialized in this function 64.62user 0.48system 1:09.78elapsed 93%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33654major+348520minor)pagefaults 0swaps run boyer 85.23user 0.02system 1:26.44elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (102major+609minor)pagefaults 0swaps 85.31user 0.03system 1:26.48elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (102major+609minor)pagefaults 0swaps 85.43user 0.01system 1:26.66elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (102major+609minor)pagefaults 0swaps run graphs 37.60user 0.06system 0:38.05elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (91major+3073minor)pagefaults 0swaps 37.43user 0.14system 0:38.22elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (91major+3073minor)pagefaults 0swaps 37.46user 0.15system 0:38.06elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (91major+3073minor)pagefaults 0swaps run lattice 162.61user 0.30system 2:45.03elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (88major+14755minor)pagefaults 0swaps 162.54user 0.58system 2:45.06elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (88major+14755minor)pagefaults 0swaps 162.57user 0.36system 2:45.02elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (88major+14755minor)pagefaults 0swaps run nucleic2 18.54user 0.03system 0:19.25elapsed 96%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (133major+2505minor)pagefaults 0swaps 18.63user 0.04system 0:18.88elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (133major+2505minor)pagefaults 0swaps 18.55user 0.07system 0:18.75elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (133major+2505minor)pagefaults 0swaps run matrix 189.98user 0.36system 3:12.88elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (105major+1668minor)pagefaults 0swaps 190.05user 0.40system 3:12.77elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (105major+1668minor)pagefaults 0swaps 190.39user 0.03system 3:12.90elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (105major+1668minor)pagefaults 0swaps run earley 34.70user 0.01system 0:35.36elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (107major+414minor)pagefaults 0swaps 34.25user 0.36system 0:35.12elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (107major+414minor)pagefaults 0swaps 34.22user 0.30system 0:34.87elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (107major+414minor)pagefaults 0swaps run scheme 305.54user 1.16system 5:12.01elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (175major+26970minor)pagefaults 0swaps 304.17user 0.73system 5:09.46elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (175major+26970minor)pagefaults 0swaps 307.99user 1.75system 5:14.03elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (175major+26970minor)pagefaults 0swaps run conform 185.07user 0.81system 3:08.17elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (105major+1660minor)pagefaults 0swaps 184.50user 0.79system 3:07.47elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (105major+1660minor)pagefaults 0swaps 184.70user 0.06system 3:07.05elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (105major+1660minor)pagefaults 0swaps run nboyer 87.21user 9.98system 1:55.53elapsed 84%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (9660major+215829minor)pagefaults 25122swaps 87.57user 9.48system 1:55.68elapsed 83%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (8206major+215299minor)pagefaults 23505swaps 87.87user 8.82system 1:53.12elapsed 85%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (6659major+215299minor)pagefaults 21395swaps run sboyer 25.26user 0.28system 0:26.01elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (107major+11942minor)pagefaults 0swaps 25.15user 0.39system 0:25.97elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (107major+11942minor)pagefaults 0swaps 25.40user 0.20system 0:25.87elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (107major+11942minor)pagefaults 0swaps run dynamic 44.54user 0.67system 0:47.45elapsed 95%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (252major+29343minor)pagefaults 0swaps 44.63user 0.65system 0:45.75elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (252major+29343minor)pagefaults 0swaps 44.61user 0.54system 0:45.95elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (252major+29343minor)pagefaults 0swaps run fannkuch 372.08user 1.23system 6:17.71elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (95major+42421minor)pagefaults 0swaps 371.84user 1.49system 6:18.09elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (95major+42421minor)pagefaults 0swaps 372.45user 1.06system 6:18.32elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (95major+42421minor)pagefaults 0swaps run simplex 8.02user 0.01system 0:08.18elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (89major+199minor)pagefaults 0swaps 8.01user 0.00system 0:08.17elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (89major+199minor)pagefaults 0swaps 8.01user 0.00system 0:08.13elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (89major+199minor)pagefaults 0swaps run em-functional 26.01user 0.53system 0:27.30elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (119major+19154minor)pagefaults 0swaps 26.06user 0.47system 0:26.92elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (119major+19154minor)pagefaults 0swaps 26.18user 0.40system 0:26.87elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (119major+19154minor)pagefaults 0swaps run em-imperative 7.49user 0.06system 0:07.83elapsed 96%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (107major+1881minor)pagefaults 0swaps 7.50user 0.06system 0:07.64elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (107major+1881minor)pagefaults 0swaps 7.50user 0.05system 0:07.65elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (107major+1881minor)pagefaults 0swaps run nfm 11.98user 0.19system 0:15.91elapsed 76%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (115major+3569minor)pagefaults 0swaps 11.92user 0.12system 0:15.29elapsed 78%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (115major+3569minor)pagefaults 0swaps 11.97user 0.13system 0:15.37elapsed 78%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (115major+3569minor)pagefaults 0swaps run integ 2.67user 0.00system 0:02.86elapsed 93%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (93major+70minor)pagefaults 0swaps 2.66user 0.01system 0:02.72elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (93major+70minor)pagefaults 0swaps 2.67user 0.00system 0:02.67elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (93major+70minor)pagefaults 0swaps run gold 4.76user 0.01system 0:04.93elapsed 96%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (94major+69minor)pagefaults 0swaps 4.77user 0.00system 0:04.85elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (94major+69minor)pagefaults 0swaps 4.77user 0.00system 0:04.82elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (94major+69minor)pagefaults 0swaps run sort 24.76user 0.00system 0:25.07elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (88major+1022minor)pagefaults 0swaps 24.59user 0.03system 0:25.02elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (88major+1022minor)pagefaults 0swaps 24.72user 0.01system 0:25.12elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (88major+1022minor)pagefaults 0swaps run rrr 301.89user 114.99system 25:38.77elapsed 27%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (1617472major+1870975minor)pagefaults 1124571swaps 301.69user 128.85system 26:23.11elapsed 27%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (1626797major+1879011minor)pagefaults 1123861swaps 300.94user 129.49system 25:43.52elapsed 27%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (1628857major+1873113minor)pagefaults 1125653swaps lightweight compile boyer (STATIC-COUNTS 2193 256 137 87 80 4 0 0 2285 0 0 0 0 0 0. 4402 212 483 13) 349.46user 1.18system 6:06.06elapsed 95%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (37652major+433472minor)pagefaults 0swaps compile graphs (STATIC-COUNTS 2473 264 264 213 142 16 2 7 2351 6 4 32 2 25 0.04381245196003074 4604 501 478 1) Warning! The following tail-recursive tail calls are not merged: From the following expression, graphs-stalin.sc:149:5239: (\-*- (FOLD OUT CONS REST) NEW-B-STATE NEW-T-STATE ACCROSS) to -*-[87] From the following expression, graphs-stalin.sc:144:5105: (\-**- REST ((PRIMITIVE-PROCEDURE MAKE-STRUCTURE PAIR 2) FIRST OUT) NEW-T-STATE) to -**-[90] From the following expression, graphs-stalin.sc:136:4908: (((LAMBDA # # \-**-) (#)) UNIVERSE '() T-STATE) to -**-[90] From the following expression, graphs-stalin.sc:199:7032: (ACCROSS STATE) to [inside -**- 96] From the following expression, graphs-stalin.sc:314:10739: (\-*- ((PRIMITIVE-PROCEDURE +) VERTEX 1) STATE) to -*-[140] From the following expression, graphs-stalin.sc:308:10599: (((LAMBDA # # \-**-) (#)) 0 0 STATE) to -**-[167] From the following expression, graphs-stalin.sc:260:9267: (ACCROSS #T) to [inside -**- 96] From the following expression, graphs-stalin.sc:252:8995: (ACCROSS #T) to [inside -**- 96] graphs-stalin.c: In function `f140': graphs-stalin.c:1305: warning: statement with no effect 30.62user 0.49system 0:33.84elapsed 91%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32542major+215507minor)pagefaults 0swaps compile lattice (STATIC-COUNTS 2258 260 215 142 117 4 1 10 2181 4 2 14 0 9 0.02621359223300971 4311 281 472 4) lattice-stalin.c: In function `f88': lattice-stalin.c:434: warning: `a694' might be used uninitialized in this function lattice-stalin.c: In function `f41': lattice-stalin.c:1125: warning: `r41' might be used uninitialized in this function 21.51user 0.28system 0:23.27elapsed 93%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32466major+214964minor)pagefaults 0swaps compile nucleic2 (STATIC-COUNTS 3212 539 762 554 406 65 2 15 2868 7 1 30 0 23 0.006068779501011463 7659 1147 751 50) 312.98user 1.84system 5:33.35elapsed 94%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (34688major+739272minor)pagefaults 0swaps compile matrix (STATIC-COUNTS 2617 288 550 363 307 10 3 36 2533 24 15 110 8 65 0.06512141280353201 5280 729 500 2) matrix-stalin.c: In function `f57': matrix-stalin.c:3683: warning: `r57' might be used uninitialized in this function 53.12user 0.31system 0:56.84elapsed 93%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33211major+220606minor)pagefaults 0swaps compile earley (STATIC-COUNTS 2899 320 671 542 530 2 0 1 2640 1 0 9 0 8 0.003498250874562719 5246 1113 531 3) 71.85user 1.21system 1:17.68elapsed 94%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32940major+221586minor)pagefaults 0swaps compile scheme (STATIC-COUNTS 2928 490 1680 1165 1014 14 0 85 2773 49 9 103 0 54 0.02012072434607646 5823 3280 572 48) Warning! The following tail-recursive tail calls are not merged: From the following expression, scheme-stalin.sc:121:3650: (COMP-QUASIQUOTATION (CADR EXPR) 1 ENV) to COMP-QUASIQUOTATION[75] From the following expression, scheme-stalin.sc:124:3757: (SCHEME-COMP FORM ENV) to SCHEME-COMP[447] From the following expression, scheme-stalin.sc:127:3847: (COMP-QUASIQUOTATION-LIST FORM ((PRIMITIVE-PROCEDURE +) LEVEL 1) ENV) to COMP-QUASIQUOTATION-LIST[86] From the following expression, scheme-stalin.sc:130:3959: (SCHEME-COMP (CADR FORM) ENV) to SCHEME-COMP[447] From the following expression, scheme-stalin.sc:131:3994: (COMP-QUASIQUOTATION-LIST FORM ((PRIMITIVE-PROCEDURE -) LEVEL 1) ENV) to COMP-QUASIQUOTATION-LIST[86] From the following expression, scheme-stalin.sc:135:4177: (COMP-QUASIQUOTATION-LIST FORM ((PRIMITIVE-PROCEDURE -) LEVEL 1) ENV) to COMP-QUASIQUOTATION-LIST[86] From the following expression, scheme-stalin.sc:136:4239: (COMP-QUASIQUOTATION-LIST FORM LEVEL ENV) to COMP-QUASIQUOTATION-LIST[86] From the following expression, scheme-stalin.sc:154:4913: (COMP-QUASIQUOTATION L LEVEL ENV) to COMP-QUASIQUOTATION[75] From the following expression, scheme-stalin.sc:209:6485: (LETREC-DEFINES* VARS VALS BODY ENV) to LETREC-DEFINES*[126] From the following expression, scheme-stalin.sc:237:7284: (LETREC-DEFINES* VARS VALS BODY ENV) to LETREC-DEFINES*[126] From the following expression, scheme-stalin.sc:244:7507: (COMP-LETREC-AUX VARS VALS BODY ENV) to COMP-LETREC-AUX[185] From the following expression, scheme-stalin.sc:398:12302: (COMP-BODY BODY ENV) to COMP-BODY[111] From the following expression, scheme-stalin.sc:584:18450: (BODY ((PRIMITIVE-PROCEDURE VECTOR) RTE A)) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:588:18542: (BODY ((PRIMITIVE-PROCEDURE VECTOR) RTE A B)) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:593:18641: (BODY ((PRIMITIVE-PROCEDURE VECTOR) RTE A B C)) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:607:19043: (BODY X) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:618:19316: (BODY RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:621:19386: (BODY ((PRIMITIVE-PROCEDURE VECTOR) RTE A)) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:624:19469: (BODY ((PRIMITIVE-PROCEDURE VECTOR) RTE A B)) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:627:19556: (BODY ((PRIMITIVE-PROCEDURE VECTOR) RTE A B C)) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:640:19932: (BODY X) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:645:20089: (CODE2 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] From the following expression, scheme-stalin.sc:650:20247: (CODE2 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:653:20333: (CODE2 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:653:20345: (CODE3 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:660:20539: ((CODE2 RTE) TEMP) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] to [inside GEN-LAMBDA-1 353] to [inside GEN-LAMBDA-2-REST 326] to [inside GEN-LAMBDA-1-REST 323] From the following expression, scheme-stalin.sc:660:20558: (CODE3 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:667:20741: (CODE2 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:674:20933: (CODE2 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:678:21076: (CODE2 RTE (CODE1 RTE)) to [inside GEN-CASE-ELSE 393] From the following expression, scheme-stalin.sc:681:21189: (CODE1 RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:681:21201: (CODE2 RTE KEY) to [inside GEN-CASE-ELSE 393] From the following expression, scheme-stalin.sc:683:21268: (CODE RTE) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:699:21759: (BODY X) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:706:21920: (BODY X) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:714:22119: (BODY X) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:723:22377: (BODY X) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] From the following expression, scheme-stalin.sc:739:22980: ((OPER RTE)) to [inside GEN-LAMBDA-0 350] to [inside GEN-LAMBDA-1-REST 323] From the following expression, scheme-stalin.sc:742:23049: ((OPER RTE) (ARG1 RTE)) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] to [inside GEN-LAMBDA-1 353] to [inside GEN-LAMBDA-2-REST 326] to [inside GEN-LAMBDA-1-REST 323] From the following expression, scheme-stalin.sc:745:23134: ((OPER RTE) (ARG1 RTE) (ARG2 RTE)) to APPLY[1548] to [inside GEN-LAMBDA-2 356] to [inside GEN-LAMBDA-3-REST 329] to [inside GEN-LAMBDA-2-REST 326] to [inside GEN-LAMBDA-1-REST 323] From the following expression, scheme-stalin.sc:748:23235: ((OPER RTE) (ARG1 RTE) (ARG2 RTE) (ARG3 RTE)) to APPLY[1548] to [inside GEN-LAMBDA-N 362] to [inside GEN-LAMBDA-3 359] to [inside GEN-LAMBDA-N-REST 332] to [inside GEN-LAMBDA-3-REST 329] to [inside GEN-LAMBDA-2-REST 326] to [inside GEN-LAMBDA-1-REST 323] From the following expression, scheme-stalin.sc:754:23433: ((PRIMITIVE-PROCEDURE APPLY) (OPER RTE) (EVALUATE ARGS RTE)) to APPLY[1548] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] to [inside GEN-LAMBDA-N 362] to [inside GEN-LAMBDA-3 359] to [inside GEN-LAMBDA-2 356] to [inside GEN-LAMBDA-1 353] to [inside GEN-LAMBDA-0 350] to [inside GEN-LAMBDA-N-REST 332] to [inside GEN-LAMBDA-3-REST 329] to [inside GEN-LAMBDA-2-REST 326] to [inside GEN-LAMBDA-1-REST 323] From the following expression: ((PRIMITIVE-PROCEDURE APPLY) PROC ARG1) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] to [inside GEN-LAMBDA-N 362] to [inside GEN-LAMBDA-3 359] to [inside GEN-LAMBDA-2 356] to [inside GEN-LAMBDA-1 353] to [inside GEN-LAMBDA-0 350] to [inside GEN-LAMBDA-N-REST 332] to [inside GEN-LAMBDA-3-REST 329] to [inside GEN-LAMBDA-2-REST 326] to [inside GEN-LAMBDA-1-REST 323] From the following expression: ((PRIMITIVE-PROCEDURE APPLY) PROC ARG1) to [inside GEN-COMBINATION-N 442] to [inside GEN-COMBINATION-3 440] to [inside GEN-COMBINATION-2 438] to [inside GEN-COMBINATION-1 436] to [inside GEN-COMBINATION-0 434] to [inside GEN-LETREC-N 414] to [inside GEN-LETREC-3 410] to [inside GEN-LETREC-2 406] to [inside GEN-LETREC-1 402] to [inside GEN-CASE 389] to [inside GEN-OR 386] to [inside GEN-AND 383] to [inside GEN-COND-SEND 380] to [inside GEN-IF 378] to [inside GEN-WHEN 376] to [inside GEN-SEQUENCE 373] to [inside GEN-LAMBDA-N 362] to [inside GEN-LAMBDA-3 359] to [inside GEN-LAMBDA-2 356] to [inside GEN-LAMBDA-1 353] to [inside GEN-LAMBDA-0 350] to [inside GEN-LAMBDA-N-REST 332] to [inside GEN-LAMBDA-3-REST 329] to [inside GEN-LAMBDA-2-REST 326] to [inside GEN-LAMBDA-1-REST 323] scheme-stalin.c: In function `f2274': scheme-stalin.c:6053: warning: `t1105' might be used uninitialized in this function scheme-stalin.c: In function `f1990': scheme-stalin.c:8169: warning: `t1769' might be used uninitialized in this function scheme-stalin.c: In function `f1894': scheme-stalin.c:9415: warning: `t2167' might be used uninitialized in this function scheme-stalin.c: In function `f1888': scheme-stalin.c:9615: warning: `t2231' might be used uninitialized in this function scheme-stalin.c: In function `f1882': scheme-stalin.c:9687: warning: `t2249' might be used uninitialized in this function scheme-stalin.c: In function `f442': scheme-stalin.c:36788: warning: `t9209' might be used uninitialized in this function scheme-stalin.c:37039: warning: `t9460' might be used uninitialized in this function scheme-stalin.c:37041: warning: `t9462' might be used uninitialized in this function scheme-stalin.c:27680: warning: `r1245' might be used uninitialized in this function scheme-stalin.c: In function `f440': scheme-stalin.c:38592: warning: `t9656' might be used uninitialized in this function scheme-stalin.c:38596: warning: `t9660' might be used uninitialized in this function scheme-stalin.c:38656: warning: `t9720' might be used uninitialized in this function scheme-stalin.c:38730: warning: `t9794' might be used uninitialized in this function scheme-stalin.c:38732: warning: `t9796' might be used uninitialized in this function scheme-stalin.c:38767: warning: `t9831' might be used uninitialized in this function scheme-stalin.c:38841: warning: `t9905' might be used uninitialized in this function scheme-stalin.c:38843: warning: `t9907' might be used uninitialized in this function scheme-stalin.c:38878: warning: `t9942' might be used uninitialized in this function scheme-stalin.c:38952: warning: `t10016' might be used uninitialized in this function scheme-stalin.c:38954: warning: `t10018' might be used uninitialized in this function scheme-stalin.c:27680: warning: `r1245' might be used uninitialized in this function scheme-stalin.c: In function `f438': scheme-stalin.c:42096: warning: `t10174' might be used uninitialized in this function scheme-stalin.c:42099: warning: `t10177' might be used uninitialized in this function scheme-stalin.c:42154: warning: `t10232' might be used uninitialized in this function scheme-stalin.c:42228: warning: `t10306' might be used uninitialized in this function scheme-stalin.c:42230: warning: `t10308' might be used uninitialized in this function scheme-stalin.c:42265: warning: `t10343' might be used uninitialized in this function scheme-stalin.c:42339: warning: `t10417' might be used uninitialized in this function scheme-stalin.c:42341: warning: `t10419' might be used uninitialized in this function scheme-stalin.c:27680: warning: `r1245' might be used uninitialized in this function scheme-stalin.c: In function `f436': scheme-stalin.c:44508: warning: `t10454' might be used uninitialized in this function scheme-stalin.c:44582: warning: `t10528' might be used uninitialized in this function scheme-stalin.c:44584: warning: `t10530' might be used uninitialized in this function scheme-stalin.c:44637: warning: `t10583' might be used uninitialized in this function scheme-stalin.c:44711: warning: `t10657' might be used uninitialized in this function scheme-stalin.c:44713: warning: `t10659' might be used uninitialized in this function scheme-stalin.c: In function `f414': scheme-stalin.c:47094: warning: `t10965' might be used uninitialized in this function scheme-stalin.c:47214: warning: `t11085' might be used uninitialized in this function scheme-stalin.c:47216: warning: `t11087' might be used uninitialized in this function scheme-stalin.c: In function `f410': scheme-stalin.c:48811: warning: `t11296' might be used uninitialized in this function scheme-stalin.c:48931: warning: `t11416' might be used uninitialized in this function scheme-stalin.c:48933: warning: `t11418' might be used uninitialized in this function scheme-stalin.c:49063: warning: `t11548' might be used uninitialized in this function scheme-stalin.c:49183: warning: `t11668' might be used uninitialized in this function scheme-stalin.c:49185: warning: `t11670' might be used uninitialized in this function scheme-stalin.c:49315: warning: `t11800' might be used uninitialized in this function scheme-stalin.c:49435: warning: `t11920' might be used uninitialized in this function scheme-stalin.c:49437: warning: `t11922' might be used uninitialized in this function scheme-stalin.c: In function `f406': scheme-stalin.c:53056: warning: `t12128' might be used uninitialized in this function scheme-stalin.c:53176: warning: `t12248' might be used uninitialized in this function scheme-stalin.c:53178: warning: `t12250' might be used uninitialized in this function scheme-stalin.c:53308: warning: `t12380' might be used uninitialized in this function scheme-stalin.c:53428: warning: `t12500' might be used uninitialized in this function scheme-stalin.c:53430: warning: `t12502' might be used uninitialized in this function scheme-stalin.c: In function `f402': scheme-stalin.c:56022: warning: `t12708' might be used uninitialized in this function scheme-stalin.c:56142: warning: `t12828' might be used uninitialized in this function scheme-stalin.c:56144: warning: `t12830' might be used uninitialized in this function scheme-stalin.c: In function `f68': scheme-stalin.c:74522: warning: `t15365' might be used uninitialized in this function scheme-stalin.c:74773: warning: `t15616' might be used uninitialized in this function scheme-stalin.c:74775: warning: `t15618' might be used uninitialized in this function scheme-stalin.c:27680: warning: `r1245' might be used uninitialized in this function 5229.66user 10.41system 1:28:37elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (39136major+1194919minor)pagefaults 0swaps compile conform (STATIC-COUNTS 2711 387 660 421 388 12 2 12 2626 5 0 40 0 25 0.03204272363150868 5144 981 573 20) conform-stalin.c: In function `f2413': conform-stalin.c:489: warning: `r2413' might be used uninitialized in this function conform-stalin.c: In function `f2410': conform-stalin.c:516: warning: `r2410' might be used uninitialized in this function conform-stalin.c: In function `f203': conform-stalin.c:3186: warning: `r203' might be used uninitialized in this function conform-stalin.c: In function `f156': conform-stalin.c:3779: warning: `a969' might be used uninitialized in this function conform-stalin.c:3780: warning: `a972' might be used uninitialized in this function conform-stalin.c:3781: warning: `a973' might be used uninitialized in this function conform-stalin.c: In function `f59': conform-stalin.c:4268: warning: `r59' might be used uninitialized in this function 105.75user 0.53system 1:50.68elapsed 96%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33027major+221092minor)pagefaults 0swaps compile nboyer (STATIC-COUNTS 2380 293 339 231 219 8 0 0 2466 0 0 0 0 0 0. 4898 630 514 32) 1297.28user 3.50system 22:04.10elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33351major+855335minor)pagefaults 0swaps compile sboyer (STATIC-COUNTS 2384 294 342 233 221 8 0 0 2467 0 0 0 0 0 0. 4908 638 515 32) 1394.97user 3.43system 23:39.67elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33341major+855505minor)pagefaults 0swaps compile dynamic Command terminated by signal 11 653.99user 1.90system 11:04.01elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (776major+33705minor)pagefaults 0swaps compile fannkuch (STATIC-COUNTS 2158 251 86 60 53 2 0 0 2109 0 0 0 0 0 0. 3995 146 465 1) 13.33user 0.24system 0:15.26elapsed 88%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32354major+215009minor)pagefaults 0swaps compile simplex (STATIC-COUNTS 2240 270 95 66 50 10 0 0 2249 0 0 0 0 0 0. 4289 334 500 23) 21.39user 0.22system 0:23.17elapsed 93%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32261major+216105minor)pagefaults 0swaps compile em-functional (STATIC-COUNTS 3628 438 1346 962 944 12 0 0 3458 0 0 0 0 0 0. 6505 2109 642 16) 227.22user 0.59system 3:55.96elapsed 96%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33711major+436578minor)pagefaults 0swaps compile em-imperative (STATIC-COUNTS 2807 381 639 449 429 12 0 0 2761 0 0 0 0 0 0. 5239 1271 584 25) em-imperative-stalin.c: In function `f0': em-imperative-stalin.c:5313: warning: `a1232' might be used uninitialized in this function em-imperative-stalin.c:5314: warning: `a1233' might be used uninitialized in this function 123.15user 0.56system 2:08.74elapsed 96%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33367major+222313minor)pagefaults 0swaps compile nfm (STATIC-COUNTS 4481 549 2331 1358 1315 10 0 0 4170 0 0 0 0 0 0. 8282 2400 728 7) nfm-stalin.c: In function `f1685': nfm-stalin.c:1770: warning: value computed is not used nfm-stalin.c: In function `f1631': nfm-stalin.c:2772: warning: value computed is not used nfm-stalin.c:2824: warning: value computed is not used nfm-stalin.c:3008: warning: value computed is not used nfm-stalin.c: In function `f1599': nfm-stalin.c:3698: warning: value computed is not used nfm-stalin.c:3890: warning: value computed is not used nfm-stalin.c: In function `f1589': nfm-stalin.c:4357: warning: value computed is not used nfm-stalin.c:4414: warning: value computed is not used nfm-stalin.c:4472: warning: value computed is not used nfm-stalin.c: In function `f1583': nfm-stalin.c:4606: warning: value computed is not used nfm-stalin.c: In function `f1577': nfm-stalin.c:4735: warning: value computed is not used nfm-stalin.c: In function `f1569': nfm-stalin.c:4856: warning: value computed is not used nfm-stalin.c:4894: warning: value computed is not used nfm-stalin.c: In function `f1336': nfm-stalin.c:7736: warning: value computed is not used nfm-stalin.c:10298: warning: value computed is not used nfm-stalin.c:10649: warning: value computed is not used nfm-stalin.c:10704: warning: value computed is not used nfm-stalin.c:10799: warning: value computed is not used nfm-stalin.c:10925: warning: value computed is not used nfm-stalin.c:11149: warning: value computed is not used nfm-stalin.c:11347: warning: value computed is not used nfm-stalin.c:11415: warning: value computed is not used nfm-stalin.c:11510: warning: value computed is not used nfm-stalin.c:11636: warning: value computed is not used nfm-stalin.c:11860: warning: value computed is not used nfm-stalin.c:12053: warning: value computed is not used nfm-stalin.c:12178: warning: value computed is not used nfm-stalin.c: In function `f130': nfm-stalin.c:15019: warning: value computed is not used nfm-stalin.c: In function `f75': nfm-stalin.c:15450: warning: value computed is not used 432.88user 1.02system 7:25.49elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (33894major+448818minor)pagefaults 0swaps compile integ (STATIC-COUNTS 2104 245 87 59 52 4 0 1 2045 1 0 1 0 0 0.001394700139470014 3938 167 455 0) 17.90user 0.48system 0:20.67elapsed 88%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32627major+217034minor)pagefaults 0swaps compile gold (STATIC-COUNTS 2185 259 147 108 97 5 0 0 2100 0 0 0 0 0 0. 4160 351 469 3) 17.96user 0.35system 0:20.22elapsed 90%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32675major+217154minor)pagefaults 0swaps compile sort (STATIC-COUNTS 2192 257 143 82 71 2 0 0 2139 0 0 0 0 0 0. 4114 204 470 4) 15.36user 0.32system 0:18.06elapsed 86%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32508major+215399minor)pagefaults 0swaps compile rrr (STATIC-COUNTS 2755 329 580 424 375 36 0 1 2600 1 0 1 0 0 0.0004559963520291838 5319 1109 545 13) 49.77user 2.37system 0:56.46elapsed 92%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (32980major+217737minor)pagefaults 0swaps run boyer 65.61user 10.10system 1:16.99elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (99major+465049minor)pagefaults 0swaps 65.86user 9.77system 1:16.68elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (99major+465049minor)pagefaults 0swaps 65.91user 9.76system 1:16.33elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (99major+465049minor)pagefaults 0swaps run graphs 11.83user 0.11system 0:12.91elapsed 92%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (87major+2989minor)pagefaults 0swaps 11.80user 0.06system 0:12.02elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (87major+2989minor)pagefaults 0swaps 11.82user 0.07system 0:12.04elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (87major+2989minor)pagefaults 0swaps run lattice 39.73user 0.42system 0:40.78elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (81major+13877minor)pagefaults 0swaps 39.99user 0.53system 0:41.21elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (81major+13877minor)pagefaults 0swaps 39.82user 0.44system 0:40.76elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (81major+13877minor)pagefaults 0swaps run nucleic2 15.75user 0.06system 0:16.45elapsed 96%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (130major+2456minor)pagefaults 0swaps 15.74user 0.06system 0:16.04elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (130major+2456minor)pagefaults 0swaps 15.73user 0.05system 0:15.99elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (130major+2456minor)pagefaults 0swaps run matrix 69.86user 0.29system 1:11.04elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (96major+332minor)pagefaults 0swaps 69.38user 0.88system 1:11.30elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (96major+332minor)pagefaults 0swaps 69.77user 0.31system 1:10.97elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (96major+332minor)pagefaults 0swaps run earley 19.87user 0.01system 0:20.89elapsed 95%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (95major+251minor)pagefaults 0swaps 19.87user 0.01system 0:20.20elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (95major+251minor)pagefaults 0swaps 19.93user 0.00system 0:20.25elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (95major+251minor)pagefaults 0swaps run scheme 181.93user 1.53system 3:07.31elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (171major+571minor)pagefaults 0swaps 181.31user 0.02system 3:03.59elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (171major+571minor)pagefaults 0swaps 182.62user 0.18system 3:04.93elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (171major+571minor)pagefaults 0swaps run conform 139.65user 0.05system 2:21.43elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (96major+335minor)pagefaults 0swaps 139.61user 0.31system 2:21.28elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (96major+335minor)pagefaults 0swaps 139.57user 0.08system 2:21.15elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (96major+335minor)pagefaults 0swaps run nboyer 76.09user 9.77system 1:45.92elapsed 81%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (10376major+218013minor)pagefaults 24777swaps 76.42user 7.74system 1:48.51elapsed 77%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (9191major+218027minor)pagefaults 31669swaps 75.70user 7.59system 1:44.27elapsed 79%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (8817major+218020minor)pagefaults 31702swaps run sboyer 22.10user 0.21system 0:22.86elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (102major+12237minor)pagefaults 0swaps 22.06user 0.24system 0:22.52elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (102major+12237minor)pagefaults 0swaps 22.10user 0.19system 0:22.56elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (102major+12237minor)pagefaults 0swaps run dynamic 44.18user 1.03system 0:47.28elapsed 95%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (252major+29343minor)pagefaults 0swaps 44.02user 0.93system 0:45.75elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (252major+29343minor)pagefaults 0swaps 44.43user 0.62system 0:45.85elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (252major+29343minor)pagefaults 0swaps run fannkuch 39.47user 0.00system 0:39.96elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (92major+35minor)pagefaults 0swaps 39.49user 0.01system 0:40.05elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (92major+35minor)pagefaults 0swaps 39.52user 0.00system 0:39.85elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (92major+35minor)pagefaults 0swaps run simplex 1.65user 0.00system 0:01.69elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (74major+12minor)pagefaults 0swaps 1.65user 0.00system 0:01.66elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (74major+12minor)pagefaults 0swaps 1.66user 0.00system 0:01.73elapsed 95%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (74major+12minor)pagefaults 0swaps run em-functional 5.75user 0.36system 0:06.36elapsed 95%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (101major+18497minor)pagefaults 0swaps 5.74user 0.36system 0:06.15elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (101major+18497minor)pagefaults 0swaps 5.69user 0.42system 0:06.15elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (101major+18497minor)pagefaults 0swaps run em-imperative 1.84user 0.04system 0:02.02elapsed 92%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (96major+1383minor)pagefaults 0swaps 1.82user 0.03system 0:01.85elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (96major+1383minor)pagefaults 0swaps 1.84user 0.02system 0:01.90elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (96major+1383minor)pagefaults 0swaps run nfm 3.85user 0.15system 0:07.44elapsed 53%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (106major+669minor)pagefaults 0swaps 3.87user 0.06system 0:06.97elapsed 56%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (106major+669minor)pagefaults 0swaps 3.94user 0.05system 0:07.03elapsed 56%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (106major+669minor)pagefaults 0swaps run integ 1.19user 0.00system 0:01.29elapsed 91%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (93major+33minor)pagefaults 0swaps 1.19user 0.00system 0:01.19elapsed 99%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (93major+33minor)pagefaults 0swaps 1.18user 0.02system 0:01.26elapsed 94%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (93major+33minor)pagefaults 0swaps run gold 4.14user 0.00system 0:04.24elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (92major+36minor)pagefaults 0swaps 4.13user 0.00system 0:04.22elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (92major+36minor)pagefaults 0swaps 4.13user 0.00system 0:04.19elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (92major+36minor)pagefaults 0swaps run sort 10.93user 0.01system 0:11.18elapsed 97%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (86major+371minor)pagefaults 0swaps 10.96user 0.01system 0:11.09elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (86major+371minor)pagefaults 0swaps 11.03user 0.02system 0:11.20elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (86major+371minor)pagefaults 0swaps run rrr 112.52user 0.25system 1:54.30elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (94major+9125minor)pagefaults 0swaps 113.06user 0.20system 1:54.52elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (94major+9125minor)pagefaults 0swaps 112.30user 0.41system 1:54.01elapsed 98%CPU (0avgtext+0avgdata 0maxresident)k 0inputs+0outputs (94major+9125minor)pagefaults 0swaps 45475.800u 943.970s 15:12:12.11 6.3% 0+0k 0+0io 11931598pf+7063208w qobi@howard> stalin-0.11/benchmarks/run-bigloo-fdlcc-benchmarks0000700017435200151030000000115407063211720020672 0ustar qobiqobi#!/bin/sh ./run-bigloo-benchmark boyer ./run-bigloo-benchmark graphs ./run-bigloo-benchmark lattice ./run-bigloo-benchmark nucleic2 ./run-bigloo-benchmark matrix ./run-bigloo-benchmark earley ./run-bigloo-benchmark scheme ./run-bigloo-benchmark conform ./run-bigloo-benchmark nboyer ./run-bigloo-benchmark sboyer ./run-bigloo-benchmark dynamic ./run-bigloo-benchmark fannkuch ./run-bigloo-benchmark simplex ./run-bigloo-benchmark em-functional ./run-bigloo-benchmark em-imperative ./run-bigloo-benchmark nfm ./run-bigloo-benchmark integ ./run-bigloo-benchmark gold ./run-bigloo-benchmark sort ./run-bigloo-benchmark rrr stalin-0.11/benchmarks/run-bigloo-old-benchmarks0000700017435200151030000000227706707150660020415 0ustar qobiqobi#!/bin/sh ./run-bigloo-benchmark boyer ./run-bigloo-benchmark browse ./run-bigloo-benchmark cpstak ./run-bigloo-benchmark ctak ./run-bigloo-benchmark dderiv ./run-bigloo-benchmark deriv ./run-bigloo-benchmark destruct ./run-bigloo-benchmark div-iter ./run-bigloo-benchmark div-rec ./run-bigloo-benchmark fft ./run-bigloo-benchmark fprint ./run-bigloo-benchmark fread ./run-bigloo-benchmark puzzle ./run-bigloo-benchmark tak ./run-bigloo-benchmark takl ./run-bigloo-benchmark takr ./run-bigloo-benchmark tprint ./run-bigloo-benchmark traverse ./run-bigloo-benchmark traverse-init ./run-bigloo-benchmark fannkuch ./run-bigloo-benchmark simplex ./run-bigloo-benchmark em-functional ./run-bigloo-benchmark em-functional-partial-split ./run-bigloo-benchmark em-functional-split ./run-bigloo-benchmark em-functional-do-split ./run-bigloo-benchmark em-imperative ./run-bigloo-benchmark em-imperative-split ./run-bigloo-benchmark nfm ./run-bigloo-benchmark integ ./run-bigloo-benchmark integ2 ./run-bigloo-benchmark gold ./run-bigloo-benchmark gold2 ./run-bigloo-benchmark sort ./run-bigloo-benchmark sort2 ./run-bigloo-benchmark dfa ./run-bigloo-benchmark dfa2 ./run-bigloo-benchmark graphs ./run-bigloo-benchmark lattice stalin-0.11/benchmarks/run-chez-benchmark0000700017435200151030000000031006711145644017117 0ustar qobiqobi#!/bin/sh unset noclobber ulimit -s unlimited ulimit -c 0 sed -f chez.sed $1.sc >$1-chez.ss echo run $1 time chez $1-chez.ss >/dev/null time chez $1-chez.ss >/dev/null time chez $1-chez.ss >/dev/null stalin-0.11/benchmarks/run-chez-fdlcc-benchmarks0000700017435200151030000000110407063211720020343 0ustar qobiqobi#!/bin/sh ./run-chez-benchmark boyer ./run-chez-benchmark graphs ./run-chez-benchmark lattice ./run-chez-benchmark nucleic2 ./run-chez-benchmark matrix ./run-chez-benchmark earley ./run-chez-benchmark scheme ./run-chez-benchmark conform ./run-chez-benchmark nboyer ./run-chez-benchmark sboyer ./run-chez-benchmark dynamic ./run-chez-benchmark fannkuch ./run-chez-benchmark simplex ./run-chez-benchmark em-functional ./run-chez-benchmark em-imperative ./run-chez-benchmark nfm ./run-chez-benchmark integ ./run-chez-benchmark gold ./run-chez-benchmark sort ./run-chez-benchmark rrr stalin-0.11/benchmarks/run-chez-old-benchmarks0000700017435200151030000000216306707150672020070 0ustar qobiqobi#!/bin/sh ./run-chez-benchmark boyer ./run-chez-benchmark browse ./run-chez-benchmark cpstak ./run-chez-benchmark ctak ./run-chez-benchmark dderiv ./run-chez-benchmark deriv ./run-chez-benchmark destruct ./run-chez-benchmark div-iter ./run-chez-benchmark div-rec ./run-chez-benchmark fft ./run-chez-benchmark fprint ./run-chez-benchmark fread ./run-chez-benchmark puzzle ./run-chez-benchmark tak ./run-chez-benchmark takl ./run-chez-benchmark takr ./run-chez-benchmark tprint ./run-chez-benchmark traverse ./run-chez-benchmark traverse-init ./run-chez-benchmark fannkuch ./run-chez-benchmark simplex ./run-chez-benchmark em-functional ./run-chez-benchmark em-functional-partial-split ./run-chez-benchmark em-functional-split ./run-chez-benchmark em-functional-do-split ./run-chez-benchmark em-imperative ./run-chez-benchmark em-imperative-split ./run-chez-benchmark nfm ./run-chez-benchmark integ ./run-chez-benchmark integ2 ./run-chez-benchmark gold ./run-chez-benchmark gold2 ./run-chez-benchmark sort ./run-chez-benchmark sort2 ./run-chez-benchmark dfa ./run-chez-benchmark dfa2 ./run-chez-benchmark graphs ./run-chez-benchmark lattice stalin-0.11/benchmarks/run-chicken-benchmark0000700017435200151030000000021507244411417017572 0ustar qobiqobi#!/bin/sh ulimit -s unlimited ulimit -c 0 echo run $1 time ./$1-chicken >/dev/null time ./$1-chicken >/dev/null time ./$1-chicken >/dev/null stalin-0.11/benchmarks/run-chicken-fdlcc-benchmarks0000700017435200151030000000120007244412232021015 0ustar qobiqobi#!/bin/sh ./run-chicken-benchmark boyer ./run-chicken-benchmark graphs ./run-chicken-benchmark lattice ./run-chicken-benchmark nucleic2 ./run-chicken-benchmark matrix ./run-chicken-benchmark earley ./run-chicken-benchmark scheme ./run-chicken-benchmark conform ./run-chicken-benchmark nboyer ./run-chicken-benchmark sboyer ./run-chicken-benchmark dynamic ./run-chicken-benchmark fannkuch ./run-chicken-benchmark simplex ./run-chicken-benchmark em-functional ./run-chicken-benchmark em-imperative ./run-chicken-benchmark nfm ./run-chicken-benchmark integ ./run-chicken-benchmark gold ./run-chicken-benchmark sort ./run-chicken-benchmark rrr stalin-0.11/benchmarks/run-chicken-old-benchmarks0000700017435200151030000000234507244412264020540 0ustar qobiqobi#!/bin/sh ./run-chicken-benchmark boyer ./run-chicken-benchmark browse ./run-chicken-benchmark cpstak ./run-chicken-benchmark ctak ./run-chicken-benchmark dderiv ./run-chicken-benchmark deriv ./run-chicken-benchmark destruct ./run-chicken-benchmark div-iter ./run-chicken-benchmark div-rec ./run-chicken-benchmark fft ./run-chicken-benchmark fprint ./run-chicken-benchmark fread ./run-chicken-benchmark puzzle ./run-chicken-benchmark tak ./run-chicken-benchmark takl ./run-chicken-benchmark takr ./run-chicken-benchmark tprint ./run-chicken-benchmark traverse ./run-chicken-benchmark traverse-init ./run-chicken-benchmark fannkuch ./run-chicken-benchmark simplex ./run-chicken-benchmark em-functional ./run-chicken-benchmark em-functional-partial-split ./run-chicken-benchmark em-functional-split ./run-chicken-benchmark em-functional-do-split ./run-chicken-benchmark em-imperative ./run-chicken-benchmark em-imperative-split ./run-chicken-benchmark nfm ./run-chicken-benchmark integ ./run-chicken-benchmark integ2 ./run-chicken-benchmark gold ./run-chicken-benchmark gold2 ./run-chicken-benchmark sort ./run-chicken-benchmark sort2 ./run-chicken-benchmark dfa ./run-chicken-benchmark dfa2 ./run-chicken-benchmark graphs ./run-chicken-benchmark lattice stalin-0.11/benchmarks/run-fdlcc-benchmarks0000700017435200151030000000053407244426136017434 0ustar qobiqobi#!/bin/sh unset noclobber ./unbuff >stalin.results ./run-stalin-fdlcc-benchmarks ./unbuff >s2c.results ./run-s2c-fdlcc-benchmarks ./unbuff >gambit.results ./run-gambit-fdlcc-benchmarks ./unbuff >bigloo.results ./run-bigloo-fdlcc-benchmarks ./unbuff >chez.results ./run-chez-fdlcc-benchmarks ./unbuff >chicken.results ./run-chicken-fdlcc-benchmarks stalin-0.11/benchmarks/run-gambit-benchmark0000700017435200151030000000021206711145652017431 0ustar qobiqobi#!/bin/sh ulimit -s unlimited ulimit -c 0 echo run $1 time ./$1-gambit >/dev/null time ./$1-gambit >/dev/null time ./$1-gambit >/dev/null stalin-0.11/benchmarks/run-gambit-fdlcc-benchmarks0000700017435200151030000000115407063211722020664 0ustar qobiqobi#!/bin/sh ./run-gambit-benchmark boyer ./run-gambit-benchmark graphs ./run-gambit-benchmark lattice ./run-gambit-benchmark nucleic2 ./run-gambit-benchmark matrix ./run-gambit-benchmark earley ./run-gambit-benchmark scheme ./run-gambit-benchmark conform ./run-gambit-benchmark nboyer ./run-gambit-benchmark sboyer ./run-gambit-benchmark dynamic ./run-gambit-benchmark fannkuch ./run-gambit-benchmark simplex ./run-gambit-benchmark em-functional ./run-gambit-benchmark em-imperative ./run-gambit-benchmark nfm ./run-gambit-benchmark integ ./run-gambit-benchmark gold ./run-gambit-benchmark sort ./run-gambit-benchmark rrr stalin-0.11/benchmarks/run-gambit-old-benchmarks0000700017435200151030000000227706707150703020403 0ustar qobiqobi#!/bin/sh ./run-gambit-benchmark boyer ./run-gambit-benchmark browse ./run-gambit-benchmark cpstak ./run-gambit-benchmark ctak ./run-gambit-benchmark dderiv ./run-gambit-benchmark deriv ./run-gambit-benchmark destruct ./run-gambit-benchmark div-iter ./run-gambit-benchmark div-rec ./run-gambit-benchmark fft ./run-gambit-benchmark fprint ./run-gambit-benchmark fread ./run-gambit-benchmark puzzle ./run-gambit-benchmark tak ./run-gambit-benchmark takl ./run-gambit-benchmark takr ./run-gambit-benchmark tprint ./run-gambit-benchmark traverse ./run-gambit-benchmark traverse-init ./run-gambit-benchmark fannkuch ./run-gambit-benchmark simplex ./run-gambit-benchmark em-functional ./run-gambit-benchmark em-functional-partial-split ./run-gambit-benchmark em-functional-split ./run-gambit-benchmark em-functional-do-split ./run-gambit-benchmark em-imperative ./run-gambit-benchmark em-imperative-split ./run-gambit-benchmark nfm ./run-gambit-benchmark integ ./run-gambit-benchmark integ2 ./run-gambit-benchmark gold ./run-gambit-benchmark gold2 ./run-gambit-benchmark sort ./run-gambit-benchmark sort2 ./run-gambit-benchmark dfa ./run-gambit-benchmark dfa2 ./run-gambit-benchmark graphs ./run-gambit-benchmark lattice stalin-0.11/benchmarks/run-old-benchmarks0000700017435200151030000000052007244426155017133 0ustar qobiqobi#!/bin/sh unset noclobber ./unbuff >stalin.results ./run-stalin-old-benchmarks ./unbuff >s2c.results ./run-s2c-old-benchmarks ./unbuff >gambit.results ./run-gambit-old-benchmarks ./unbuff >bigloo.results ./run-bigloo-old-benchmarks ./unbuff >chez.results ./run-chez-old-benchmarks ./unbuff >chicken.results ./run-chicken-old-benchmarks stalin-0.11/benchmarks/run-s2c-benchmark0000700017435200151030000000027006735262652016667 0ustar qobiqobi#!/bin/sh SCMAXHEAP=350 export SCMAXHEAP SCHEAP=16 export SCHEAP ulimit -s unlimited ulimit -c 0 echo run $1 time ./$1-s2c >/dev/null time ./$1-s2c >/dev/null time ./$1-s2c >/dev/null stalin-0.11/benchmarks/run-s2c-fdlcc-benchmarks0000700017435200151030000000106007063211723020105 0ustar qobiqobi#!/bin/sh ./run-s2c-benchmark boyer ./run-s2c-benchmark graphs ./run-s2c-benchmark lattice ./run-s2c-benchmark nucleic2 ./run-s2c-benchmark matrix ./run-s2c-benchmark earley ./run-s2c-benchmark scheme ./run-s2c-benchmark conform ./run-s2c-benchmark nboyer ./run-s2c-benchmark sboyer ./run-s2c-benchmark dynamic ./run-s2c-benchmark fannkuch ./run-s2c-benchmark simplex ./run-s2c-benchmark em-functional ./run-s2c-benchmark em-imperative ./run-s2c-benchmark nfm ./run-s2c-benchmark integ ./run-s2c-benchmark gold ./run-s2c-benchmark sort ./run-s2c-benchmark rrr stalin-0.11/benchmarks/run-s2c-old-benchmarks0000700017435200151030000000217606721337071017626 0ustar qobiqobi#!/bin/sh ./run-s2c-benchmark boyer ./run-s2c-benchmark browse ./run-s2c-benchmark cpstak echo run ctak #./run-s2c-benchmark ctak ./run-s2c-benchmark dderiv ./run-s2c-benchmark deriv ./run-s2c-benchmark destruct ./run-s2c-benchmark div-iter ./run-s2c-benchmark div-rec ./run-s2c-benchmark fft ./run-s2c-benchmark fprint ./run-s2c-benchmark fread echo run puzzle #./run-s2c-benchmark puzzle ./run-s2c-benchmark tak ./run-s2c-benchmark takl ./run-s2c-benchmark takr ./run-s2c-benchmark tprint ./run-s2c-benchmark traverse ./run-s2c-benchmark traverse-init ./run-s2c-benchmark fannkuch ./run-s2c-benchmark simplex ./run-s2c-benchmark em-functional ./run-s2c-benchmark em-functional-partial-split ./run-s2c-benchmark em-functional-split ./run-s2c-benchmark em-functional-do-split ./run-s2c-benchmark em-imperative ./run-s2c-benchmark em-imperative-split ./run-s2c-benchmark nfm ./run-s2c-benchmark integ echo run integ2 #./run-s2c-benchmark integ2 ./run-s2c-benchmark gold ./run-s2c-benchmark gold2 ./run-s2c-benchmark sort ./run-s2c-benchmark sort2 ./run-s2c-benchmark dfa ./run-s2c-benchmark dfa2 ./run-s2c-benchmark graphs ./run-s2c-benchmark lattice stalin-0.11/benchmarks/run-stalin-benchmark0000700017435200151030000000021206711145673017463 0ustar qobiqobi#!/bin/sh ulimit -s unlimited ulimit -c 0 echo run $1 time ./$1-stalin >/dev/null time ./$1-stalin >/dev/null time ./$1-stalin >/dev/null stalin-0.11/benchmarks/run-stalin-fdlcc-benchmarks0000700017435200151030000000115407063211723020714 0ustar qobiqobi#!/bin/sh ./run-stalin-benchmark boyer ./run-stalin-benchmark graphs ./run-stalin-benchmark lattice ./run-stalin-benchmark nucleic2 ./run-stalin-benchmark matrix ./run-stalin-benchmark earley ./run-stalin-benchmark scheme ./run-stalin-benchmark conform ./run-stalin-benchmark nboyer ./run-stalin-benchmark sboyer ./run-stalin-benchmark dynamic ./run-stalin-benchmark fannkuch ./run-stalin-benchmark simplex ./run-stalin-benchmark em-functional ./run-stalin-benchmark em-imperative ./run-stalin-benchmark nfm ./run-stalin-benchmark integ ./run-stalin-benchmark gold ./run-stalin-benchmark sort ./run-stalin-benchmark rrr stalin-0.11/benchmarks/run-stalin-old-benchmarks0000700017435200151030000000227706707150736020440 0ustar qobiqobi#!/bin/sh ./run-stalin-benchmark boyer ./run-stalin-benchmark browse ./run-stalin-benchmark cpstak ./run-stalin-benchmark ctak ./run-stalin-benchmark dderiv ./run-stalin-benchmark deriv ./run-stalin-benchmark destruct ./run-stalin-benchmark div-iter ./run-stalin-benchmark div-rec ./run-stalin-benchmark fft ./run-stalin-benchmark fprint ./run-stalin-benchmark fread ./run-stalin-benchmark puzzle ./run-stalin-benchmark tak ./run-stalin-benchmark takl ./run-stalin-benchmark takr ./run-stalin-benchmark tprint ./run-stalin-benchmark traverse ./run-stalin-benchmark traverse-init ./run-stalin-benchmark fannkuch ./run-stalin-benchmark simplex ./run-stalin-benchmark em-functional ./run-stalin-benchmark em-functional-partial-split ./run-stalin-benchmark em-functional-split ./run-stalin-benchmark em-functional-do-split ./run-stalin-benchmark em-imperative ./run-stalin-benchmark em-imperative-split ./run-stalin-benchmark nfm ./run-stalin-benchmark integ ./run-stalin-benchmark integ2 ./run-stalin-benchmark gold ./run-stalin-benchmark gold2 ./run-stalin-benchmark sort ./run-stalin-benchmark sort2 ./run-stalin-benchmark dfa ./run-stalin-benchmark dfa2 ./run-stalin-benchmark graphs ./run-stalin-benchmark lattice stalin-0.11/benchmarks/s2c.sed0000600017435200151030000000044407244410302014670 0ustar qobiqobi1i\ (module main (main main)) (define (main) #f) \+;;; begin Stalin+,\+;;; end Stalin+d \+;;; begin Scheme->C+d \+;;; end Scheme->C+d \+;;; begin Gambit-C+,\+;;; end Gambit-C+d \+;;; begin Bigloo+,\+;;; end Bigloo+d \+;;; begin Chez+,\+;;; end Chez+d \+;;; begin Chicken+,\+;;; end Chicken+d stalin-0.11/benchmarks/train2000.cform0000600017435200151030000017110706671514610016172 0ustar qobiqobi2000 2 0 14 0 1 1 0 0 1 1 1 1 0 1 1 0 0 1 13 1 0 1 0 1 0 0 0 0 1 1 1 0 1 14 1 0 0 1 0 1 0 0 0 1 0 0 0 1 0 14 1 0 0 0 1 1 1 1 0 0 0 0 0 1 1 13 1 0 1 0 0 1 0 0 0 1 0 1 1 0 10 0 1 1 0 0 1 0 0 0 1 0 14 1 0 0 1 0 1 1 1 1 0 0 1 1 1 0 13 0 1 0 0 1 0 0 1 1 1 1 0 0 0 11 1 0 0 1 1 1 1 0 1 0 1 1 14 1 0 0 0 0 0 1 0 1 1 1 1 0 1 0 14 1 1 0 0 1 0 1 0 0 0 0 0 1 1 1 14 1 0 1 0 0 0 1 0 0 1 0 0 0 1 1 14 1 0 1 0 1 0 1 1 0 1 0 1 1 1 1 13 0 1 1 1 0 0 0 1 1 0 1 0 0 0 14 0 1 1 0 0 1 1 1 1 1 1 1 1 0 1 12 0 1 1 1 0 0 0 1 0 1 0 1 0 13 1 1 0 0 0 1 1 1 0 1 1 1 1 1 13 0 0 0 0 1 0 0 1 0 0 0 0 1 1 14 1 0 0 1 0 1 0 0 1 1 1 0 1 1 1 11 1 1 0 1 0 1 1 1 1 0 1 0 13 1 1 0 0 1 1 0 0 0 1 1 1 0 0 14 0 0 0 1 1 1 1 0 0 1 0 0 0 1 0 14 1 0 0 1 1 0 1 1 1 0 0 1 0 0 0 12 1 1 1 1 0 0 1 0 0 0 0 0 1 14 0 1 1 1 1 0 0 0 1 1 0 1 0 0 0 13 0 1 1 0 0 0 0 0 0 1 0 0 0 0 9 1 1 0 1 1 0 0 0 1 0 12 0 0 1 0 0 0 1 0 1 1 1 1 0 10 0 0 1 0 0 1 0 0 0 1 1 14 1 0 1 1 0 1 1 0 0 1 0 1 0 1 0 14 1 0 0 1 1 0 0 1 1 0 0 0 0 1 0 14 1 0 0 1 1 1 1 1 1 1 0 0 0 0 1 14 1 0 1 0 1 0 0 0 1 1 0 1 1 1 1 14 1 1 0 0 0 0 1 1 1 1 0 0 1 1 0 10 1 1 0 1 0 1 1 0 1 1 1 14 1 1 0 1 1 0 1 1 1 0 0 1 1 1 0 13 1 0 1 1 0 0 0 1 0 1 0 0 1 1 12 0 0 1 0 0 1 1 0 1 0 0 0 1 14 1 0 1 1 1 1 1 1 0 1 1 0 1 0 1 12 0 1 0 1 1 1 0 1 1 0 1 1 0 13 0 1 1 0 0 0 1 0 0 0 1 0 0 0 11 0 1 1 0 0 1 1 1 1 0 0 1 14 0 0 1 0 1 0 0 0 1 0 0 0 0 0 0 12 1 1 0 0 1 1 1 1 1 1 0 1 1 14 1 0 1 0 0 0 1 0 0 1 0 1 1 1 1 14 0 1 1 1 1 0 1 1 1 1 1 0 0 0 0 11 1 1 1 1 0 1 1 1 0 1 0 0 13 1 1 0 0 1 0 0 1 1 0 0 0 0 1 11 0 1 0 0 0 1 0 0 0 1 0 1 14 1 0 1 0 1 0 1 0 1 1 1 0 0 0 0 13 0 0 1 0 0 0 1 1 1 0 1 0 1 0 14 0 0 0 0 1 0 1 1 0 0 1 0 1 1 0 13 1 1 0 1 1 0 1 0 0 0 1 0 1 0 14 0 1 1 0 0 1 0 1 0 1 0 0 1 1 0 14 0 0 1 0 0 0 1 0 0 0 1 1 1 0 0 14 0 0 1 0 0 1 0 1 1 0 0 0 1 0 0 14 1 0 1 1 0 1 1 0 0 0 0 1 1 0 1 13 0 0 1 0 0 1 1 0 0 0 0 0 1 1 14 1 0 0 0 1 1 1 0 1 1 1 1 1 1 0 14 1 1 1 0 1 1 1 0 0 1 1 1 1 0 0 14 0 0 0 1 1 0 0 0 0 0 1 1 1 1 1 14 0 1 1 1 1 1 0 1 1 1 0 1 1 1 0 14 0 0 0 0 1 0 1 1 1 1 1 1 0 0 0 14 0 1 1 0 0 1 0 0 0 0 1 0 0 0 1 12 1 0 1 1 0 0 1 1 0 1 0 0 0 14 1 1 1 1 0 0 0 1 1 1 1 1 0 0 0 13 1 0 0 0 0 0 1 1 1 0 0 1 0 1 14 1 0 0 1 0 0 1 0 0 0 0 0 0 0 1 13 0 1 0 1 0 0 0 0 1 1 1 1 1 1 12 1 1 1 1 1 1 0 1 1 0 1 1 0 14 1 1 1 0 1 1 1 1 0 0 1 1 0 0 0 14 0 0 0 1 1 0 1 1 1 1 1 0 1 1 0 14 1 1 0 0 1 1 1 1 1 0 0 0 0 1 0 14 1 1 1 1 0 1 0 0 1 1 0 0 0 1 1 14 1 0 1 0 1 0 1 1 0 0 0 1 0 0 1 14 1 0 1 0 0 0 1 0 1 1 0 1 1 1 0 10 1 0 0 0 0 0 1 0 0 0 1 14 1 0 0 1 1 0 1 0 1 1 0 1 0 0 0 14 1 1 0 0 0 0 0 0 0 1 1 0 0 1 0 14 0 0 0 0 1 0 1 1 0 1 1 0 0 0 0 13 0 1 0 0 1 1 1 1 0 1 1 1 1 1 13 0 1 0 1 0 0 0 1 0 0 1 0 1 0 11 0 1 0 1 1 1 1 0 1 1 1 0 13 1 1 1 1 0 1 0 1 0 1 1 1 0 1 13 1 1 1 0 0 0 1 1 1 1 1 1 0 1 13 1 0 1 1 0 1 0 1 1 0 1 0 0 1 14 0 0 0 1 1 1 1 1 1 0 0 0 1 0 0 11 1 1 0 0 1 0 1 1 0 1 0 1 13 1 1 0 1 0 1 0 1 0 1 1 1 1 0 11 0 1 0 1 0 1 0 0 0 0 0 1 14 1 0 1 1 0 1 1 0 1 1 1 0 0 0 1 14 0 0 0 0 1 1 0 0 0 0 0 0 1 1 0 13 0 0 0 0 1 1 0 0 0 1 1 0 0 0 14 1 1 0 1 0 0 1 1 1 0 0 1 0 1 1 14 0 0 0 1 1 1 1 1 0 0 0 1 0 0 0 13 1 0 1 0 1 0 1 0 0 1 0 0 1 0 14 1 0 0 1 1 0 0 0 1 1 1 0 0 1 0 11 1 1 1 1 1 0 0 0 1 0 1 1 9 0 0 0 1 0 0 1 0 0 0 12 1 0 0 1 1 1 0 1 1 0 0 0 0 12 1 1 1 1 0 1 1 1 0 0 0 1 0 13 0 1 0 0 1 1 1 0 0 1 1 0 1 0 13 1 0 0 0 1 0 1 1 1 0 1 1 1 0 14 1 0 0 0 1 0 1 0 1 1 0 0 0 0 0 14 0 0 1 1 0 0 1 0 0 0 0 1 1 0 1 13 1 1 1 0 0 1 1 0 0 0 0 1 0 1 13 0 0 1 0 0 1 0 0 0 1 0 1 0 1 13 1 1 0 0 1 0 1 1 1 0 1 0 0 0 13 0 1 0 1 0 1 1 0 1 0 0 0 1 1 12 0 0 1 1 1 1 0 1 1 1 0 0 1 12 0 0 1 0 1 0 0 0 1 0 1 1 1 12 1 1 1 1 0 0 0 0 1 0 0 0 0 14 0 0 0 1 1 0 1 1 1 1 1 1 1 1 0 14 1 1 1 0 0 1 0 0 1 1 1 1 1 0 0 14 1 0 0 0 0 0 1 1 0 0 0 1 0 1 1 13 1 1 0 1 0 0 1 1 1 1 1 0 0 0 14 1 0 0 1 0 1 0 1 1 1 0 0 0 1 0 14 0 0 0 1 0 1 0 1 1 0 0 0 0 1 1 14 1 0 1 0 1 0 0 0 1 0 1 0 1 0 0 14 1 1 0 0 0 0 0 1 0 1 0 0 1 0 1 14 1 1 1 1 0 1 0 0 1 1 1 1 0 0 0 13 0 1 0 0 0 0 0 0 1 0 0 0 1 1 12 0 1 1 0 0 0 1 1 0 1 0 0 0 12 0 0 0 0 1 0 1 0 1 0 0 1 1 13 0 1 1 1 1 0 1 0 1 1 0 1 0 1 11 1 0 1 1 0 1 0 1 0 1 0 0 14 0 0 1 0 0 0 1 1 0 1 0 0 0 0 0 13 0 0 1 0 1 0 1 1 1 0 1 0 0 0 11 1 0 0 0 0 0 1 0 0 0 0 1 13 0 1 0 0 0 1 0 1 0 0 1 1 1 0 14 1 0 1 0 0 1 1 1 1 1 0 1 1 1 0 14 1 0 0 1 1 0 0 1 0 0 1 0 1 1 1 14 0 1 0 0 0 0 0 1 0 0 0 1 1 0 1 14 1 1 1 1 0 0 1 1 1 1 0 1 0 1 0 14 1 0 1 0 0 1 0 1 1 0 1 1 0 0 0 14 1 0 0 1 1 1 0 1 0 1 1 0 1 1 0 14 0 0 0 0 0 1 1 0 0 0 0 1 1 1 0 14 1 0 0 1 0 1 1 1 1 0 1 1 0 1 0 14 0 0 1 0 0 1 0 0 1 0 1 1 0 1 1 12 0 1 1 0 1 0 0 0 0 1 1 0 0 13 1 1 0 0 0 0 0 1 0 0 0 1 1 0 14 1 1 0 1 0 0 0 1 1 1 0 0 1 1 1 13 1 0 0 1 0 0 1 0 1 0 0 1 0 0 13 0 0 0 0 0 0 1 1 1 0 1 1 1 0 14 0 1 1 0 0 0 0 1 0 1 0 1 0 1 0 12 0 1 0 0 1 0 0 0 0 1 1 1 0 14 0 1 0 1 0 0 1 1 0 1 1 1 1 1 1 14 1 0 1 1 0 0 1 0 1 1 1 1 1 0 1 11 1 0 1 0 0 0 0 0 1 1 0 1 14 1 0 0 1 0 1 0 0 0 1 1 1 0 0 0 13 0 1 0 0 0 0 0 1 0 0 0 1 0 0 13 1 1 0 0 0 1 0 0 0 0 1 1 1 1 11 1 1 0 0 1 0 1 0 1 1 1 0 13 0 0 0 1 1 0 0 1 0 0 0 0 1 0 14 1 1 0 0 1 0 0 0 0 0 1 0 0 1 0 13 0 1 1 0 1 0 0 0 0 0 1 0 0 0 12 1 0 1 0 1 0 1 0 1 1 1 1 0 14 0 1 0 0 0 1 0 1 1 0 1 1 0 0 0 14 0 1 1 1 1 1 0 1 0 1 0 1 0 1 0 14 1 1 0 1 1 0 1 1 1 1 0 1 0 0 0 14 1 0 0 1 0 1 0 1 0 0 0 1 0 0 1 12 1 0 0 0 0 0 1 0 0 0 1 1 1 13 1 0 0 0 0 0 0 0 0 0 1 1 0 1 14 0 0 0 1 0 0 1 0 1 1 1 0 0 1 1 13 0 1 1 1 0 0 0 0 1 1 1 0 1 1 13 0 0 0 0 1 1 0 0 1 0 1 0 0 1 14 1 0 1 0 0 1 0 0 1 0 0 0 1 0 1 14 1 0 1 0 0 0 1 0 0 0 1 0 1 0 1 14 0 1 1 1 1 0 0 1 0 0 1 0 1 1 1 13 0 0 0 0 1 1 0 1 1 0 0 1 0 0 14 1 0 0 0 0 0 0 1 0 0 1 0 0 1 1 14 0 0 1 0 0 1 0 0 0 0 1 0 1 0 0 14 0 1 0 1 1 0 1 0 0 1 1 1 1 0 1 10 1 1 1 0 1 0 0 0 0 1 1 14 1 1 1 0 1 1 1 0 1 1 0 0 1 0 0 13 1 0 0 1 1 1 0 1 1 0 0 1 1 1 14 1 0 0 0 0 0 1 0 0 1 1 0 1 0 0 14 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 13 0 1 1 1 0 1 1 1 0 0 0 0 0 1 11 1 0 1 1 0 1 1 0 1 0 1 0 13 0 0 0 0 1 0 1 1 1 1 0 1 0 1 14 0 1 0 1 0 0 0 1 1 1 0 0 0 0 1 14 0 0 1 0 0 1 0 1 0 0 0 1 0 0 0 11 1 1 0 0 1 0 0 1 1 1 1 0 12 0 1 1 1 0 0 0 1 1 1 0 1 0 13 0 0 0 1 0 0 1 1 1 1 1 1 0 1 14 0 0 1 0 0 0 0 0 1 0 0 1 1 0 1 12 1 0 0 1 0 0 0 1 1 0 0 1 1 14 1 0 1 1 1 0 0 1 1 1 1 1 0 1 1 13 0 1 0 0 1 1 1 1 1 1 1 0 0 1 14 0 1 0 1 0 1 1 1 0 0 0 0 1 1 1 13 1 1 1 0 0 0 1 0 1 0 1 1 0 0 14 0 1 0 1 1 0 0 0 0 0 0 0 1 1 1 14 1 1 1 0 0 1 1 1 0 0 0 0 0 1 1 12 0 1 1 1 1 0 1 1 1 0 0 1 0 14 1 0 1 1 0 0 1 0 1 1 0 0 1 1 0 12 1 0 1 0 1 0 1 0 1 1 1 0 0 12 0 0 0 1 1 1 0 0 0 1 0 1 0 13 1 1 1 1 0 1 1 1 1 1 0 1 0 0 14 1 0 0 0 1 0 0 1 1 0 1 1 1 1 0 12 0 0 1 1 0 0 0 1 0 1 1 1 0 13 1 0 1 0 0 0 0 0 1 0 1 1 1 1 10 0 1 1 1 0 0 1 1 0 1 1 12 1 0 0 0 1 1 0 1 1 1 0 0 1 14 1 0 1 0 1 0 1 0 0 0 1 0 0 1 1 14 0 1 0 0 0 0 1 1 1 1 1 0 0 1 1 14 1 1 1 1 1 0 1 0 1 0 1 0 1 1 0 10 0 1 1 0 1 0 1 0 0 0 1 10 0 0 0 1 1 1 0 0 1 1 1 13 1 0 1 0 1 0 1 0 0 1 1 0 1 0 12 1 1 1 1 0 0 0 0 0 1 0 0 0 14 0 1 1 1 0 0 0 0 1 0 1 1 1 1 0 10 0 0 1 0 0 0 0 0 0 1 0 12 1 1 1 1 1 1 0 0 0 1 1 1 0 14 0 1 0 1 1 0 0 0 1 0 1 1 1 0 1 7 1 0 0 1 0 1 1 0 12 1 1 1 1 0 0 1 0 1 1 0 0 0 9 0 0 1 0 0 1 1 0 0 1 14 0 0 1 1 0 0 1 0 1 1 0 0 0 1 1 14 1 0 0 0 1 1 0 1 1 0 0 0 0 0 1 13 0 0 0 0 0 0 0 0 0 1 1 0 1 0 14 0 1 0 1 1 1 0 1 0 1 0 0 1 0 0 14 1 1 0 0 1 1 1 0 1 1 1 1 0 0 0 14 1 1 1 0 1 1 1 0 1 0 1 1 0 0 0 14 0 1 0 0 1 0 0 1 1 0 1 0 1 0 1 14 0 1 1 0 0 1 1 0 1 0 0 1 1 1 1 14 0 1 1 0 0 1 0 1 0 1 0 0 0 0 0 14 0 1 0 0 0 1 1 1 0 1 1 1 0 0 0 13 1 1 1 0 1 1 0 0 1 0 0 1 0 0 13 0 0 0 1 0 0 1 0 0 0 0 1 1 1 14 1 1 0 1 0 0 1 0 1 1 0 1 0 0 1 14 1 1 0 1 1 0 0 0 0 1 0 0 1 1 0 7 1 1 1 0 1 0 1 0 11 1 0 0 0 0 0 1 1 1 0 1 1 13 1 0 1 1 0 1 0 1 1 0 0 1 1 0 13 0 1 1 1 1 0 1 0 1 0 1 1 0 0 12 0 0 1 1 0 1 0 0 0 1 1 0 0 12 1 1 1 1 1 1 1 1 0 1 0 1 0 14 0 1 0 0 0 1 0 0 1 1 1 1 1 0 0 14 0 1 1 1 1 1 0 0 0 0 1 0 0 0 1 10 1 0 0 1 1 1 0 1 0 0 1 12 1 0 1 0 1 0 0 1 1 1 0 1 1 14 0 1 0 0 0 0 0 1 0 0 0 0 1 0 0 13 1 1 1 0 0 0 0 0 0 1 0 0 0 0 12 1 1 0 1 1 0 1 0 1 0 1 1 1 9 1 0 1 0 0 0 1 0 0 0 13 0 0 1 0 0 0 1 0 1 1 1 1 0 1 11 1 1 0 1 1 0 0 1 1 1 1 0 14 1 1 0 0 0 0 1 0 1 1 0 1 0 1 1 12 1 1 1 0 0 1 0 1 1 1 1 0 0 8 0 1 0 1 1 1 0 0 0 10 0 0 0 0 1 1 1 1 0 0 0 7 1 1 0 0 1 1 1 0 14 0 0 0 0 1 1 0 0 0 0 0 1 0 1 0 14 1 0 1 0 1 0 1 1 1 1 1 0 0 1 1 14 0 0 1 0 0 1 1 0 0 0 1 1 0 1 0 13 0 0 1 1 1 1 0 1 0 1 1 0 1 1 12 0 0 0 1 0 1 0 0 1 0 1 0 0 12 1 0 0 1 0 0 1 0 1 1 0 1 1 13 0 0 0 0 1 1 1 1 1 0 1 0 0 1 14 0 0 1 1 1 0 1 1 0 0 1 0 1 1 0 13 1 1 0 1 1 1 0 0 1 1 0 1 1 0 14 0 0 0 1 0 1 0 0 0 0 1 1 1 0 0 9 1 0 1 1 0 1 1 0 0 1 13 0 1 1 1 0 0 1 1 1 0 0 1 1 0 9 1 1 0 1 1 0 1 1 0 1 14 1 1 0 1 0 0 0 1 1 1 1 1 1 0 0 14 1 0 0 0 0 1 0 1 1 0 0 0 1 0 1 13 1 0 0 1 0 1 1 0 1 0 0 1 1 0 12 0 1 1 0 0 1 0 1 1 0 0 1 1 14 0 0 1 1 1 1 0 1 1 0 1 1 1 0 0 14 0 0 0 0 1 0 0 1 1 1 0 0 0 1 1 12 1 1 0 0 1 0 1 1 0 1 0 1 0 13 1 1 0 1 0 1 1 1 0 0 1 1 0 0 14 0 0 0 0 1 0 1 0 1 0 1 1 0 1 1 14 0 0 0 1 1 1 1 1 0 1 0 0 1 0 1 12 0 0 1 0 1 0 0 0 0 0 1 0 0 12 1 1 1 1 0 0 0 0 0 0 1 1 0 12 0 0 0 1 1 1 0 1 1 1 1 1 1 11 1 1 0 1 1 1 0 1 0 1 1 1 14 1 1 1 0 0 0 1 1 0 0 0 1 1 0 1 14 1 0 1 0 0 0 1 0 0 1 1 0 1 1 1 12 1 0 0 0 1 0 0 0 0 1 1 0 0 14 1 1 1 1 1 0 0 1 0 0 1 1 1 0 0 14 1 1 1 1 0 1 1 1 1 1 1 1 1 0 0 11 0 1 1 1 0 0 0 0 1 0 1 0 13 0 0 0 1 1 1 1 1 0 1 1 0 1 0 12 1 0 0 0 1 0 1 1 1 0 0 1 0 14 1 1 0 1 1 0 0 1 0 1 1 0 1 1 0 14 0 1 0 0 0 1 0 0 1 0 0 1 1 1 1 11 1 0 0 0 0 0 0 1 0 0 1 0 14 1 0 0 1 1 1 1 0 0 0 0 1 0 0 0 13 0 0 1 1 1 0 1 1 1 1 1 0 0 0 14 1 1 0 0 0 1 1 1 0 1 0 0 1 0 0 11 1 1 1 0 0 1 0 0 1 1 1 0 13 1 0 0 0 0 0 0 0 0 0 1 0 1 0 13 0 0 1 1 0 0 0 1 0 0 0 0 1 0 13 1 0 0 0 0 0 1 1 1 0 1 1 0 1 14 1 0 0 0 1 0 1 0 1 0 1 1 1 1 0 10 0 0 1 0 1 0 0 1 0 1 0 12 1 1 1 0 1 1 1 1 0 1 0 1 1 9 1 0 1 1 0 0 0 0 1 0 12 0 1 0 1 1 0 1 1 1 1 0 0 1 14 0 1 1 0 1 0 0 0 0 1 0 0 1 1 0 12 0 0 1 0 0 0 0 1 0 0 0 1 0 11 1 1 1 0 1 1 0 0 1 1 0 1 14 1 1 0 1 0 1 1 1 0 0 1 1 1 0 0 14 0 0 1 1 0 0 0 1 1 0 1 1 0 0 0 11 1 0 0 1 0 0 1 1 0 0 1 0 13 0 1 0 1 0 1 1 0 1 0 0 1 1 1 13 1 1 0 0 1 1 1 1 0 0 1 1 1 0 14 0 1 0 1 1 0 0 0 0 1 1 0 1 0 0 13 1 0 0 0 0 1 0 0 1 0 0 1 0 0 14 1 0 1 0 0 0 0 0 1 1 0 0 0 0 0 13 1 1 0 1 0 1 0 0 1 0 0 0 1 0 14 0 0 1 1 1 1 1 1 0 0 1 0 1 0 1 14 0 0 1 1 1 0 1 1 0 1 0 1 1 1 1 11 1 0 1 1 1 1 0 1 1 1 1 1 14 0 1 1 0 1 1 1 0 0 1 0 0 1 1 0 14 1 0 1 0 0 1 1 1 0 0 0 0 1 1 0 14 1 0 1 1 1 0 1 1 0 0 0 1 1 0 0 11 0 0 0 0 0 0 0 0 0 1 1 1 14 0 0 0 0 0 1 0 0 1 0 1 0 1 0 0 14 0 1 0 1 0 1 0 0 1 1 1 1 1 0 1 14 0 0 0 1 0 1 1 0 1 1 1 0 1 1 0 12 0 0 0 1 0 1 0 1 0 1 0 1 0 13 0 0 0 1 1 1 0 0 1 0 0 1 0 0 14 1 0 0 0 0 0 0 1 0 1 1 0 1 1 1 13 1 1 0 0 1 0 0 1 0 1 0 1 0 1 14 1 1 1 1 0 0 0 0 0 1 1 1 0 0 0 14 1 1 1 0 0 1 0 1 1 0 0 1 1 0 0 13 1 1 0 1 1 1 1 0 0 0 0 0 1 1 13 0 0 0 0 0 0 1 0 0 0 0 0 1 0 12 1 1 1 0 0 1 0 0 0 0 0 0 0 14 0 1 1 0 1 1 1 0 0 1 1 0 0 1 0 12 1 0 0 1 0 1 1 0 0 1 0 1 1 14 1 1 1 0 0 0 1 1 0 1 0 1 0 0 0 11 1 0 1 1 1 0 1 1 0 1 0 0 14 0 1 1 0 1 0 1 0 0 1 1 0 1 0 0 14 0 1 0 1 0 0 1 1 1 0 0 0 1 0 1 12 1 1 1 1 0 1 0 0 1 0 1 1 1 14 1 0 1 1 1 0 0 1 1 0 1 0 0 0 0 13 1 0 0 1 1 0 1 0 0 1 1 0 0 1 14 0 0 1 1 1 0 0 0 0 0 1 1 0 1 1 13 1 1 1 0 0 1 0 0 0 1 1 1 1 1 13 1 1 1 1 1 1 1 0 0 0 1 1 1 0 14 1 1 0 1 0 0 1 0 0 0 0 1 0 1 1 14 1 0 0 0 1 0 0 0 1 0 1 0 1 0 0 14 0 1 0 0 0 1 0 0 0 0 1 1 1 0 0 12 0 1 1 1 1 0 1 0 1 0 0 0 0 10 0 0 0 0 0 0 0 0 0 1 0 14 0 1 0 1 1 0 0 1 1 0 0 0 1 0 1 14 0 0 0 0 1 0 0 1 1 0 1 0 1 1 1 14 1 1 1 1 0 1 1 1 1 0 1 0 1 1 0 14 1 0 0 1 1 0 0 1 1 1 1 0 1 0 1 13 1 1 0 1 1 1 1 1 0 0 1 0 0 0 14 1 1 0 0 1 0 1 1 0 1 1 1 0 0 1 14 0 1 1 0 0 0 0 0 0 0 0 0 0 0 1 14 0 1 1 1 1 0 1 0 1 1 1 0 1 0 0 13 1 0 1 0 0 1 1 0 1 0 1 1 0 1 12 1 0 1 1 1 0 1 1 0 0 1 0 0 14 1 0 1 1 1 1 1 0 1 0 1 0 0 0 0 11 0 1 1 1 0 1 0 0 0 0 0 1 13 0 0 0 0 0 1 1 0 1 0 0 1 0 0 13 1 0 1 0 0 0 0 1 1 0 0 0 0 0 13 1 0 0 0 1 0 1 1 0 0 0 1 0 0 14 0 0 1 0 1 0 0 1 0 0 0 0 0 0 1 13 1 0 0 0 0 1 1 1 0 1 0 1 0 1 14 1 1 0 0 0 1 1 1 1 1 1 1 1 1 0 14 1 0 1 0 0 0 1 1 0 0 0 0 0 0 0 14 0 0 0 1 1 1 0 1 0 1 0 1 1 1 0 14 0 1 0 0 1 1 1 0 0 1 1 0 0 1 1 14 0 1 0 1 1 0 1 1 0 0 1 1 0 0 0 9 0 0 0 1 1 0 0 0 1 1 12 1 0 1 1 1 1 1 0 0 0 0 1 1 14 1 0 0 1 1 1 0 1 0 1 1 1 1 0 1 14 1 0 1 0 0 1 0 1 0 0 0 0 1 1 0 13 1 1 0 0 1 1 0 1 1 0 1 0 0 1 12 1 0 1 1 1 0 1 0 0 0 0 0 0 14 0 1 0 1 0 0 0 0 1 0 1 1 1 0 0 13 1 1 1 0 0 0 1 1 1 0 1 1 0 0 14 1 0 0 1 1 0 1 1 1 0 1 1 0 0 0 14 1 1 0 0 1 0 1 1 1 0 1 0 1 1 0 14 1 1 0 1 0 1 0 0 1 1 1 0 1 0 0 14 1 0 1 0 0 1 0 0 0 0 0 0 1 1 1 14 1 0 1 0 1 1 0 0 0 0 0 0 0 1 0 14 1 1 0 0 0 0 0 0 1 0 0 0 0 1 0 14 1 1 1 1 1 1 0 0 1 1 0 1 0 0 1 13 0 0 0 1 1 0 1 0 1 0 1 0 1 0 12 0 0 0 0 1 1 0 0 1 1 1 1 1 13 1 0 0 1 0 0 0 0 1 0 1 0 0 0 13 1 0 1 0 0 0 1 1 1 0 1 1 0 1 12 1 0 0 1 0 0 0 0 1 0 0 1 0 14 1 0 0 0 1 1 1 0 0 0 0 1 0 1 0 12 0 0 0 1 0 0 1 1 0 0 0 1 0 13 0 1 1 0 1 0 1 0 1 0 0 1 1 0 13 1 0 1 0 0 1 0 0 0 0 0 0 0 1 13 0 0 0 1 0 1 0 0 0 1 1 1 0 0 14 0 0 0 1 0 0 1 0 0 1 0 0 1 0 1 13 1 1 0 0 1 0 0 0 0 0 1 0 0 0 13 0 1 0 1 0 1 0 1 1 1 0 1 0 1 14 0 1 0 1 0 0 0 1 1 0 1 0 1 0 1 12 1 0 0 1 1 1 0 1 0 1 0 1 1 14 1 0 0 0 0 1 1 0 1 1 1 0 0 1 1 14 0 1 1 0 1 0 1 1 1 0 1 0 0 0 1 11 0 1 0 0 0 0 0 1 1 1 0 0 14 1 0 1 0 0 1 1 1 0 0 0 0 1 0 1 13 1 1 1 0 1 1 0 1 1 1 1 0 0 0 12 0 1 1 1 1 0 1 0 1 1 0 0 1 14 1 1 0 0 1 0 0 0 0 0 1 1 1 1 1 12 1 1 0 0 0 1 1 0 1 0 1 1 0 13 1 0 0 1 0 1 1 0 1 0 1 0 0 1 14 1 0 0 0 0 1 1 0 1 1 1 0 1 0 1 13 1 0 1 0 1 1 1 0 0 0 0 0 0 1 13 1 0 1 1 1 0 1 1 1 1 1 1 1 0 14 0 0 0 1 1 0 1 1 1 0 1 0 0 0 0 10 0 1 0 1 1 0 0 0 1 0 1 13 0 0 0 0 1 1 1 0 1 1 1 1 1 1 13 0 0 0 0 0 1 1 0 0 0 0 1 0 1 12 1 0 0 0 1 1 0 1 1 1 1 1 1 11 1 0 0 0 1 0 1 1 0 0 0 1 14 0 1 0 0 1 0 0 1 0 0 0 1 0 0 0 13 1 0 1 1 1 1 0 0 0 1 1 1 0 0 14 0 1 0 0 0 1 1 0 0 1 1 0 0 0 1 9 0 1 1 1 1 1 1 1 0 0 14 0 0 1 0 1 0 0 0 0 0 1 1 0 0 0 14 1 1 0 1 0 0 0 0 0 1 0 0 1 1 0 14 0 0 0 1 0 1 1 1 0 1 1 0 1 1 0 11 0 0 1 0 1 0 0 1 1 1 0 1 8 1 1 0 0 1 1 0 0 1 13 0 1 0 0 0 1 1 1 1 1 0 1 0 1 14 0 0 1 0 1 0 1 0 0 0 1 0 1 1 1 12 1 0 0 1 1 1 1 1 1 0 0 1 0 14 0 1 1 0 1 1 1 1 0 1 0 1 0 1 1 14 0 1 1 1 1 1 1 0 1 0 0 0 1 1 0 14 1 1 0 0 0 0 0 0 0 0 0 1 1 0 0 14 1 0 1 1 0 0 1 1 1 0 1 1 0 1 1 14 0 0 0 1 1 1 0 1 1 0 1 1 0 0 1 14 1 1 0 0 1 1 1 0 1 0 1 1 1 1 1 14 0 0 1 1 1 0 1 1 1 0 0 0 0 0 0 14 1 0 0 1 1 0 1 1 1 1 0 0 0 0 1 11 1 1 0 1 1 1 1 0 1 1 1 0 13 0 0 1 1 1 0 0 1 1 0 0 0 1 1 13 0 0 1 1 0 0 1 1 1 0 0 1 0 1 12 0 0 0 1 0 0 0 1 0 0 1 1 0 11 1 1 0 1 0 0 1 1 1 1 0 0 13 1 1 0 0 1 0 1 0 1 1 1 0 1 1 11 0 0 1 0 1 0 0 0 1 1 0 0 14 1 0 1 1 0 0 0 0 1 0 0 1 0 1 0 13 1 1 1 1 1 0 0 1 0 1 0 0 0 0 14 0 1 0 0 0 0 0 1 1 0 1 0 1 0 1 13 1 0 0 1 1 1 1 0 1 0 0 0 1 0 13 0 0 0 0 1 0 1 0 0 0 0 1 0 1 14 1 1 0 0 0 0 1 0 1 0 0 1 1 1 1 14 0 1 1 1 1 1 1 0 1 1 1 1 1 1 1 14 0 0 0 0 0 0 0 1 0 1 0 1 1 0 0 12 0 1 0 0 0 0 1 1 0 0 1 1 1 14 1 1 0 1 1 0 0 1 0 1 1 1 0 1 1 14 1 1 1 1 1 1 1 0 0 1 0 1 1 1 1 14 1 1 0 0 1 0 0 0 0 0 0 1 1 1 1 12 0 1 0 1 1 1 0 1 1 0 0 1 0 13 0 1 1 1 0 1 0 1 1 1 0 1 0 1 14 1 1 0 1 1 1 0 0 1 1 0 0 1 1 1 13 1 1 1 0 1 0 1 0 1 1 0 1 0 1 14 1 1 0 0 0 0 1 1 0 1 1 0 1 1 1 14 1 0 1 0 1 0 0 1 1 0 0 0 1 1 0 11 0 1 1 0 1 1 0 1 0 0 0 1 13 1 1 1 0 1 0 1 0 1 0 0 0 1 1 13 0 0 0 1 0 0 1 1 1 0 0 1 0 1 14 1 0 0 0 0 0 0 1 1 1 1 1 1 0 1 11 0 1 1 0 1 1 0 0 0 0 0 1 14 1 1 0 0 1 1 1 1 1 1 1 1 1 1 1 13 0 1 0 1 1 0 0 1 0 1 1 1 1 0 12 0 0 1 0 0 0 0 1 0 0 1 0 1 13 0 0 0 1 0 1 1 1 0 1 1 1 1 1 9 0 1 1 0 0 0 0 0 0 0 14 0 1 0 1 1 0 1 0 1 0 0 1 0 1 0 14 1 0 0 1 1 0 0 1 0 0 1 0 0 1 1 14 0 1 0 0 1 0 1 0 0 1 0 1 1 0 0 14 1 1 1 1 0 0 1 0 0 0 0 1 1 1 0 14 0 0 1 0 1 0 1 0 0 1 1 0 0 1 0 13 1 1 0 0 1 1 1 1 0 0 1 0 0 1 14 0 0 0 1 1 0 0 1 0 1 0 0 1 0 0 13 1 1 1 0 1 1 1 1 1 1 1 1 1 1 11 0 0 1 1 1 1 1 1 0 1 0 0 12 0 0 1 1 0 1 1 0 1 1 0 0 1 11 0 0 1 0 0 0 0 0 0 1 0 1 10 0 0 0 1 0 0 1 1 0 0 1 12 0 0 0 0 0 0 1 0 0 0 1 1 0 14 0 0 1 1 0 0 1 0 1 0 0 1 0 1 0 14 0 1 1 0 1 1 1 0 0 1 1 0 1 0 0 14 0 0 0 1 0 1 1 0 0 1 0 0 0 0 1 14 0 1 1 1 1 0 0 0 0 1 0 0 1 1 0 14 0 1 1 0 0 1 0 1 0 1 0 1 0 1 0 14 1 0 1 1 1 0 1 0 0 0 1 1 1 0 1 14 1 1 0 1 0 1 0 0 0 1 0 0 1 0 1 14 1 0 1 1 1 0 1 1 0 1 1 0 1 1 1 13 0 1 1 0 0 1 1 0 0 1 1 1 0 0 13 1 1 1 1 0 0 0 1 0 0 1 1 0 0 13 0 0 0 0 1 0 0 1 0 0 0 1 0 1 12 1 1 1 0 1 1 0 0 1 1 0 1 1 14 1 1 0 1 0 0 0 0 1 1 1 1 1 0 1 14 1 1 0 0 1 1 0 1 0 1 0 0 1 0 0 14 1 1 1 1 1 0 0 1 1 0 0 0 1 0 1 14 1 0 1 1 0 1 0 0 0 0 0 0 0 1 0 13 0 1 1 0 1 1 1 0 1 1 0 0 1 1 14 1 1 0 1 0 1 0 0 1 1 0 0 0 0 1 10 1 0 1 0 0 1 0 1 1 1 0 9 0 0 0 0 0 0 0 1 1 0 13 0 0 0 0 0 1 0 0 0 0 0 0 1 1 10 1 1 0 1 1 1 0 0 0 0 1 14 1 0 1 1 0 1 1 0 0 1 1 0 1 1 0 13 1 0 1 0 0 0 0 1 1 0 0 1 1 0 14 0 1 0 1 0 1 0 1 1 0 0 1 0 0 1 14 0 1 1 0 1 1 0 1 0 1 0 1 1 0 1 14 1 1 0 0 0 1 1 0 1 0 0 1 0 0 1 13 1 0 1 1 1 0 1 0 0 0 0 1 0 1 5 1 0 1 0 0 0 14 0 1 0 1 0 0 1 1 0 1 1 0 0 0 1 14 1 1 1 1 0 1 1 0 0 0 1 1 1 1 0 14 1 0 1 1 1 1 0 1 0 0 0 0 1 0 0 14 1 0 0 0 1 0 0 1 1 0 0 1 0 1 1 14 1 0 1 0 0 1 1 1 0 1 1 1 0 1 1 14 1 0 0 0 1 0 0 1 1 0 0 1 0 0 1 13 1 0 1 1 1 0 0 0 1 0 0 1 0 0 14 0 0 0 1 1 1 1 1 0 1 0 1 1 0 1 14 1 0 0 0 0 0 1 1 1 1 0 0 0 0 1 14 1 1 1 0 0 0 0 0 1 1 0 0 0 1 0 13 0 0 0 0 0 1 0 1 0 1 0 1 1 0 13 1 0 1 0 0 1 1 1 1 1 0 1 0 0 14 0 1 0 0 0 1 1 0 0 0 0 0 0 0 0 10 0 0 0 1 0 1 1 0 1 1 1 14 1 1 0 0 1 0 0 0 0 0 1 1 0 0 1 11 1 1 0 1 1 1 1 1 0 1 1 0 14 1 0 0 0 1 1 0 1 0 1 0 0 0 1 0 13 1 1 1 0 1 0 1 1 0 1 0 0 1 1 14 0 1 1 0 0 0 0 0 1 1 0 1 0 0 1 14 0 1 0 0 1 0 1 1 0 1 0 0 1 0 0 13 0 0 1 1 1 0 1 1 0 1 1 1 1 1 12 0 0 0 1 1 0 0 0 0 1 0 0 0 13 1 1 1 0 0 0 1 0 1 1 0 0 0 1 14 1 1 0 0 1 0 1 0 1 0 1 0 1 1 1 13 0 0 0 0 0 1 1 1 0 1 1 0 1 1 10 1 1 1 0 0 0 0 0 1 0 0 14 0 1 1 1 0 0 1 1 0 1 0 0 1 1 1 10 1 1 0 0 1 0 1 0 1 1 1 14 0 0 0 1 0 0 1 0 0 1 1 0 0 0 0 14 0 0 1 0 1 0 0 1 0 0 1 0 0 0 0 14 1 0 0 1 1 1 0 0 1 1 0 0 0 1 0 14 1 1 1 1 1 1 1 1 0 1 0 1 1 0 1 11 0 1 0 1 0 1 1 1 0 0 1 0 12 1 1 0 1 1 0 1 1 1 1 1 1 0 12 0 1 1 1 1 0 0 1 0 0 0 1 1 13 0 1 1 1 0 0 1 1 0 0 0 0 0 1 13 1 0 0 0 0 1 1 1 1 0 1 0 0 1 11 1 1 0 1 1 0 1 1 1 0 0 0 14 0 0 1 1 0 1 1 1 0 0 0 1 0 1 1 13 1 1 1 1 1 1 1 0 1 0 1 1 0 0 14 1 1 1 0 1 0 0 0 1 0 0 1 0 1 1 13 1 1 1 1 0 1 0 1 1 1 0 1 0 0 13 0 0 0 0 1 0 1 1 0 0 0 1 1 1 11 1 0 0 0 0 1 0 0 1 0 0 0 14 0 1 0 1 1 1 0 0 1 0 0 1 0 0 0 13 1 0 1 0 1 1 0 1 1 0 0 0 1 1 13 0 0 0 1 1 1 0 1 0 1 0 0 0 0 14 0 1 1 1 1 1 0 0 0 0 0 0 0 1 0 14 1 1 0 0 0 0 1 1 1 0 1 0 1 0 0 14 1 1 1 0 0 1 0 0 1 0 0 1 0 1 0 11 0 1 1 0 0 1 1 1 0 0 0 1 13 1 0 1 0 0 0 1 1 0 0 0 0 0 0 11 1 0 0 1 0 0 0 0 0 0 0 0 14 0 1 1 0 0 1 1 0 0 1 0 1 1 0 1 13 0 0 0 1 1 1 0 1 0 1 1 0 1 0 13 0 0 0 1 0 1 0 0 1 1 1 0 0 0 13 0 0 0 0 1 0 1 0 1 1 0 0 1 1 14 0 1 1 0 1 0 1 1 1 1 1 1 1 1 0 14 1 1 1 0 1 1 0 1 0 0 1 0 0 0 1 14 0 1 0 1 0 0 0 0 1 1 0 1 0 1 1 14 0 1 0 1 0 0 1 1 1 0 1 0 1 1 1 13 1 1 0 0 1 0 1 0 1 0 0 0 1 1 13 0 0 0 0 1 0 1 1 0 1 1 1 0 0 10 0 1 1 1 0 0 0 1 0 0 1 12 0 0 0 1 0 0 0 0 1 0 1 0 0 13 0 0 1 0 1 1 1 1 1 0 1 1 0 0 14 0 1 0 1 1 1 1 1 1 0 1 1 1 1 0 13 1 0 1 1 0 0 1 1 0 1 0 0 0 1 14 0 1 1 1 1 1 1 1 0 0 1 1 1 1 0 14 0 1 0 0 1 1 1 0 1 0 0 0 0 1 1 14 0 0 0 1 0 0 0 1 1 1 1 1 0 1 1 13 1 1 0 0 1 0 1 0 0 0 0 1 1 0 14 1 0 1 1 0 0 0 1 0 1 0 1 1 1 0 13 1 0 1 1 1 0 1 0 0 1 0 0 0 1 12 1 1 0 0 0 0 0 0 1 0 0 1 0 14 1 0 1 1 1 0 1 0 1 1 1 1 1 1 0 14 1 0 0 0 0 1 1 0 0 1 0 1 1 0 0 14 1 1 1 1 1 1 0 0 1 0 1 0 0 0 1 14 1 1 1 0 1 0 0 0 1 0 0 0 0 0 0 12 0 1 0 1 0 0 0 0 1 1 0 0 1 14 1 1 0 0 0 1 1 1 0 0 0 1 1 1 1 11 0 0 1 1 1 1 1 0 1 0 0 0 14 0 0 1 1 0 0 0 0 1 0 0 1 1 1 1 12 0 1 0 0 0 0 1 1 0 1 0 1 1 13 0 0 1 1 0 1 0 1 0 0 0 0 1 0 11 1 1 1 0 0 1 0 0 0 0 1 1 13 1 0 0 0 0 1 0 0 0 1 0 1 1 1 14 0 1 1 1 0 1 0 1 1 0 1 0 1 0 1 14 0 1 1 1 0 1 1 0 1 0 0 0 1 1 0 14 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 14 1 0 1 0 0 1 0 0 0 1 0 1 0 1 1 14 1 0 0 1 1 0 1 1 1 0 0 0 0 1 0 13 1 0 0 1 1 1 0 0 0 1 0 0 0 1 14 0 0 1 0 0 0 0 0 1 0 0 0 1 0 0 14 1 0 0 1 0 1 1 0 0 0 0 0 0 0 0 14 0 1 0 0 0 0 0 1 1 0 0 0 1 0 1 12 1 1 1 1 0 1 0 1 0 1 0 0 1 14 0 1 1 0 1 1 1 0 0 1 0 1 0 0 0 13 1 1 1 0 1 1 0 1 0 1 1 0 0 0 14 0 1 0 0 0 0 0 0 0 0 0 1 1 1 0 14 0 1 1 1 1 0 0 1 0 1 1 0 0 0 0 13 1 1 1 1 0 1 0 0 1 1 1 1 0 0 14 0 0 1 0 0 1 0 1 0 0 1 0 0 1 1 14 0 0 0 0 0 1 1 0 0 0 1 0 0 0 0 11 0 0 0 1 1 1 1 1 0 1 0 0 14 1 1 0 1 1 0 0 1 1 1 1 0 0 1 1 14 0 0 1 0 0 1 0 0 1 0 0 1 0 0 0 11 1 0 1 0 1 1 0 0 1 0 1 0 13 1 1 0 0 0 0 0 1 1 1 1 0 1 1 13 0 0 0 0 0 1 1 0 1 0 1 1 0 1 12 1 1 0 0 0 0 0 1 0 0 0 0 0 14 1 0 0 1 0 0 1 1 1 0 1 0 1 0 1 10 1 0 1 0 1 1 0 0 0 0 0 13 1 1 1 0 0 0 0 1 1 1 1 1 1 1 12 1 0 0 1 1 0 1 0 1 0 1 0 0 14 1 1 0 0 1 1 1 1 0 1 0 0 1 0 1 9 0 0 1 0 1 0 0 0 0 0 14 0 1 0 0 0 0 1 1 0 1 1 0 1 0 1 9 1 0 0 0 1 1 0 0 0 1 14 0 0 0 1 0 0 0 0 0 1 0 0 0 1 1 12 1 0 0 0 1 1 0 1 0 1 0 1 0 14 1 1 0 1 1 0 0 1 1 1 0 1 1 0 0 13 1 0 0 1 0 0 0 0 1 0 0 1 1 1 14 0 0 0 1 1 0 0 1 0 1 0 1 1 1 1 13 1 0 0 0 1 0 1 0 1 1 0 0 1 1 13 1 1 1 1 0 1 1 0 0 1 1 1 0 1 13 1 0 0 0 1 0 1 1 0 0 1 1 1 0 12 1 0 1 1 1 1 0 1 1 1 1 0 0 13 0 0 0 0 0 0 0 0 1 1 1 0 0 0 14 1 1 0 1 1 0 0 0 1 1 0 0 1 0 1 14 0 0 1 0 0 1 0 0 1 0 1 0 1 0 0 14 1 0 1 1 0 0 0 0 0 0 0 0 0 1 0 14 1 1 1 0 1 1 1 1 0 0 1 1 1 0 0 14 0 1 0 1 1 0 1 1 0 1 0 0 0 0 0 14 0 1 0 1 0 0 0 1 1 0 1 0 0 1 0 13 1 1 1 0 1 0 1 0 1 0 1 0 1 0 13 1 0 1 1 1 0 0 1 1 0 1 0 1 0 14 0 1 1 0 0 1 1 0 0 0 0 0 0 0 0 13 0 0 1 1 0 1 0 0 0 1 0 0 1 0 14 0 0 1 1 1 1 0 0 1 0 0 1 1 0 0 11 1 1 1 0 1 0 0 0 1 0 0 1 13 0 0 1 0 1 1 1 0 1 1 1 0 0 1 8 1 1 0 1 0 1 1 1 0 14 0 1 1 0 0 1 0 0 0 1 0 1 0 0 0 14 1 0 1 0 0 0 0 1 0 1 1 0 0 0 0 9 1 1 0 1 0 1 0 0 1 0 13 1 1 0 1 1 0 1 0 1 1 1 1 0 0 14 0 0 1 0 1 0 0 0 1 1 0 1 0 1 0 10 1 1 0 0 0 0 1 0 0 0 0 12 1 1 0 1 1 1 0 1 0 1 0 1 1 14 0 0 0 1 1 0 1 1 1 0 1 0 1 0 1 12 1 0 1 0 0 1 0 0 0 0 0 1 1 14 1 1 0 1 1 0 1 1 0 1 0 1 0 0 0 11 0 0 0 1 0 0 1 1 1 0 0 1 12 0 1 0 1 1 0 0 0 1 0 0 1 1 13 1 1 0 0 1 1 1 0 0 0 0 1 0 0 13 1 0 1 1 1 1 1 0 1 1 1 0 1 0 14 0 0 0 1 1 0 1 0 1 0 1 1 0 1 1 14 0 0 1 0 0 0 0 1 1 1 0 0 1 0 1 11 1 1 1 0 1 0 1 1 0 0 1 1 10 1 0 1 0 1 1 1 0 0 0 1 13 1 0 1 0 0 0 0 0 0 1 1 0 1 0 11 0 0 0 1 0 1 0 0 1 0 1 1 14 0 1 1 1 0 0 1 1 1 1 1 0 0 0 0 13 1 0 1 0 1 1 1 1 0 0 1 1 1 1 12 0 0 1 0 0 0 1 1 1 0 0 0 1 14 1 1 1 1 0 0 0 0 0 0 1 1 0 1 1 14 1 0 1 1 1 1 1 1 1 0 0 1 1 0 1 14 0 1 0 0 1 1 0 1 0 1 1 1 0 1 1 14 1 0 0 0 0 1 0 1 1 1 0 0 0 0 0 14 0 0 1 0 0 0 1 1 1 0 0 1 0 1 0 14 0 1 0 0 1 1 1 1 1 0 1 1 0 0 0 10 1 1 1 0 1 1 1 0 0 0 1 13 0 1 1 0 0 1 1 1 0 0 1 1 1 0 11 1 0 0 0 0 1 0 1 1 0 1 1 14 1 0 1 0 0 0 1 1 1 1 1 0 1 1 0 14 1 0 0 0 1 0 0 0 1 0 0 0 1 1 0 13 0 1 0 0 1 1 1 1 0 0 1 1 0 1 13 0 0 1 0 1 1 1 0 0 1 1 0 0 1 14 1 1 1 0 0 0 0 1 1 0 0 1 0 1 1 14 1 1 0 1 1 0 1 0 1 0 0 1 1 1 0 14 1 1 1 0 1 0 0 0 0 0 1 0 0 1 1 14 1 1 1 0 0 1 1 0 1 1 0 0 1 0 0 13 0 1 1 0 0 1 0 0 1 0 1 1 0 1 14 0 0 0 1 0 0 0 1 0 1 1 1 1 1 0 14 1 1 1 0 0 1 0 1 0 0 1 0 0 0 1 14 0 1 0 0 1 0 0 0 1 1 1 1 0 1 1 12 1 0 1 1 0 0 1 0 1 1 1 1 0 14 1 1 1 0 0 0 0 1 1 0 1 0 0 0 1 14 0 1 0 1 0 1 1 1 1 1 0 0 0 1 0 14 0 0 1 0 0 0 1 1 1 1 0 1 1 0 1 13 1 0 0 0 1 0 1 0 0 0 1 0 1 0 14 0 1 0 1 0 0 0 0 1 1 0 1 0 0 1 14 1 0 1 0 1 1 1 0 0 1 1 0 1 1 1 14 1 1 0 0 0 1 1 1 0 1 0 1 0 1 1 13 0 1 1 0 0 0 1 1 0 0 1 0 0 1 14 0 1 1 1 0 1 0 1 0 0 0 1 0 0 1 12 0 1 0 1 0 1 0 1 1 0 0 1 0 14 0 0 0 1 0 0 0 1 0 1 0 0 0 1 1 12 0 0 1 0 0 1 0 0 1 0 1 0 0 14 0 0 1 0 1 0 0 1 1 1 1 1 0 0 0 13 1 1 1 1 0 1 1 1 0 0 1 0 1 1 14 0 1 1 0 0 0 1 0 0 1 0 1 0 1 0 9 1 0 0 1 1 0 0 0 0 0 14 1 1 1 0 0 1 1 0 0 1 1 0 0 1 0 13 0 1 0 1 0 1 0 0 1 0 0 1 1 1 14 0 0 0 1 1 0 0 1 1 0 1 1 0 0 1 13 1 1 1 1 1 0 0 0 0 0 1 1 0 0 14 0 0 1 1 0 0 1 1 1 0 1 0 0 0 0 13 1 1 0 1 0 1 0 0 0 1 0 0 1 0 14 0 0 0 0 1 1 1 1 1 0 0 1 0 1 1 14 1 0 1 1 1 1 1 0 1 1 1 0 0 0 0 14 0 0 1 0 0 1 0 0 0 1 1 1 1 0 1 13 1 1 1 0 0 0 1 0 1 0 1 0 0 0 12 1 0 1 1 1 1 1 1 1 0 0 1 0 13 0 1 1 0 0 1 1 0 1 1 1 1 1 0 13 1 0 1 1 0 0 0 1 0 0 0 0 0 1 13 1 1 0 0 1 0 0 0 1 0 1 0 0 1 14 1 0 0 0 0 0 1 0 1 1 1 1 1 1 1 13 0 1 0 1 0 0 1 0 1 1 1 0 1 1 14 0 0 0 0 0 0 0 0 1 1 0 0 1 1 1 14 1 0 1 1 1 1 1 1 1 1 0 0 1 1 1 14 0 0 0 0 1 1 0 0 1 0 0 1 0 0 1 11 0 1 0 0 1 1 1 1 0 0 0 0 14 0 1 1 1 1 0 1 0 1 0 0 0 0 0 0 14 1 1 1 1 1 0 1 1 1 1 1 0 1 0 0 13 0 1 0 1 1 1 1 1 1 1 0 0 0 1 14 0 1 1 0 0 1 1 1 0 0 0 1 0 0 1 14 0 1 0 0 1 1 1 1 0 1 1 0 0 0 0 14 0 0 1 0 0 0 1 1 0 0 1 1 1 1 1 12 1 0 0 0 1 0 0 1 1 1 0 0 0 14 1 1 0 0 1 1 0 1 0 1 1 1 0 1 1 14 0 1 0 1 1 1 1 1 0 1 0 1 0 0 0 12 0 1 0 0 1 0 0 1 1 1 0 0 0 12 0 0 0 0 1 1 1 0 1 1 0 0 0 13 0 1 1 1 1 0 1 1 1 0 1 1 1 1 14 0 0 0 1 1 1 1 0 0 1 0 1 1 0 0 14 1 0 0 0 0 0 1 0 1 1 1 0 0 0 1 14 1 0 1 0 1 1 0 1 0 1 1 0 1 1 1 11 1 0 0 1 0 0 0 0 0 1 1 0 14 1 0 0 0 0 1 0 1 0 1 0 0 1 1 1 14 1 0 0 0 0 1 0 0 1 0 1 1 1 0 0 13 0 1 0 1 0 1 0 1 0 0 1 0 0 1 13 0 0 0 0 0 1 0 0 0 1 0 0 1 0 14 1 1 1 1 1 0 0 0 0 1 0 0 0 1 0 14 1 1 0 0 0 0 1 0 1 1 0 0 0 1 0 13 1 1 0 1 1 1 0 0 1 0 1 0 1 1 13 1 1 1 1 1 1 0 1 1 0 1 0 1 1 14 1 1 1 0 0 0 0 0 0 1 0 1 0 1 0 10 1 0 0 1 0 1 0 0 1 0 0 11 1 0 1 0 0 0 1 1 0 1 0 1 14 0 1 0 1 1 1 1 0 1 1 0 0 0 0 1 11 1 0 1 1 1 0 0 1 0 1 1 1 10 1 0 0 1 1 0 1 1 1 1 1 14 1 0 1 1 1 0 1 1 0 0 0 1 0 0 0 14 1 1 1 0 0 0 1 1 1 1 1 0 1 1 1 14 1 0 1 1 0 0 0 1 1 0 0 0 1 1 1 14 0 0 0 1 0 0 1 1 0 0 0 0 1 0 0 10 1 0 0 0 1 0 1 0 1 1 1 14 0 0 1 1 0 1 1 0 1 0 0 0 0 0 1 13 1 1 0 1 1 1 0 1 1 1 0 0 1 1 13 0 1 1 0 1 1 0 0 1 1 1 0 1 1 13 0 0 0 1 0 1 0 1 1 1 0 0 1 1 13 1 0 1 0 1 1 0 1 0 0 1 1 0 1 14 0 0 1 1 1 0 1 0 0 1 1 0 0 0 1 11 1 1 1 1 0 0 0 0 0 1 0 1 14 1 1 1 0 1 1 1 1 1 0 0 0 0 0 0 14 0 0 1 0 1 1 0 1 1 0 0 1 1 0 1 13 0 0 1 0 0 0 1 1 0 1 0 0 1 0 14 1 0 0 1 0 0 0 1 0 1 0 1 0 1 1 13 0 0 1 0 0 0 0 1 1 0 0 1 0 1 13 1 1 1 0 0 1 0 0 0 0 1 0 0 1 13 0 1 1 1 0 0 0 0 1 1 0 0 0 1 14 0 0 1 0 1 0 1 0 0 1 1 1 1 1 1 14 1 1 0 0 1 0 0 0 1 1 1 1 0 1 0 12 0 1 1 1 0 1 0 1 1 1 0 0 0 11 0 1 0 1 0 1 0 0 1 1 1 0 13 0 1 0 0 1 1 0 1 1 0 0 0 0 1 13 1 1 1 1 1 0 0 1 0 1 1 1 0 1 12 1 0 1 1 1 1 0 1 0 1 0 0 1 12 0 1 1 0 0 1 0 1 1 1 0 1 1 11 1 0 1 1 1 1 0 0 1 1 0 1 13 1 1 0 0 1 0 1 0 0 0 0 1 0 0 14 1 1 0 0 1 1 0 0 1 0 1 1 1 1 1 14 1 1 1 1 0 0 0 1 1 1 0 1 1 1 0 14 0 0 1 0 0 1 1 1 0 1 1 0 1 0 1 10 1 1 1 1 0 1 1 0 1 1 1 14 1 0 1 1 1 0 0 1 0 0 0 1 1 0 1 12 0 0 0 0 0 1 1 0 0 0 1 1 1 14 0 0 1 0 0 0 1 0 0 1 0 0 0 1 1 14 0 1 1 0 1 0 0 1 1 0 1 0 0 0 0 14 1 1 1 0 1 0 0 1 0 1 1 0 0 0 1 12 0 0 0 1 1 1 0 0 1 0 1 1 0 13 1 0 1 0 1 1 1 1 0 1 1 1 1 1 12 0 1 1 1 1 1 0 1 0 0 0 1 0 7 0 0 1 1 0 0 0 0 14 1 0 1 0 1 0 0 0 1 0 0 0 1 1 1 12 1 0 1 1 1 1 1 1 0 0 1 0 1 14 1 1 0 1 0 1 1 0 0 0 0 0 1 0 1 14 0 1 1 1 1 1 0 0 1 0 1 0 1 0 1 13 0 1 0 0 1 1 1 1 0 0 0 1 0 1 14 1 1 0 1 1 0 1 1 1 1 0 0 1 0 1 14 1 0 1 1 0 1 1 1 0 1 0 1 1 1 1 13 0 1 1 0 0 0 0 1 0 1 0 1 0 1 14 0 0 0 1 1 0 1 1 0 1 1 0 1 0 1 14 0 1 0 1 1 1 0 0 0 1 0 0 1 1 0 12 1 1 1 0 0 1 1 0 1 1 1 0 1 14 0 0 0 1 1 0 1 0 0 1 0 0 1 1 0 13 1 1 0 0 1 0 1 1 0 1 0 0 0 1 12 1 1 0 0 1 1 1 0 1 1 0 1 0 14 0 0 1 0 0 1 0 0 1 1 1 1 0 1 1 13 0 1 1 0 0 1 1 1 1 0 0 0 1 0 14 1 0 0 1 1 1 0 0 1 0 0 1 0 1 0 14 0 1 1 1 0 1 0 0 0 1 1 1 1 0 1 13 1 1 0 1 1 0 0 0 0 0 0 0 0 0 13 1 0 1 1 1 1 1 0 0 1 1 0 1 1 14 0 0 1 1 1 0 1 0 1 0 0 0 0 1 0 11 1 0 1 0 1 0 1 1 1 1 0 0 14 0 1 0 1 1 1 1 0 0 1 1 0 1 0 1 14 1 1 0 0 1 0 1 1 1 1 0 0 1 1 1 14 0 0 1 0 1 1 0 1 1 0 1 1 1 0 1 12 0 1 1 0 1 0 1 1 1 0 1 0 0 14 1 0 0 1 0 1 0 1 1 0 0 1 1 0 1 14 0 1 1 1 1 0 0 0 1 0 1 1 0 1 0 14 1 1 1 0 0 0 0 0 1 1 0 1 0 0 0 12 0 1 0 1 0 0 1 1 0 0 0 1 0 12 1 1 0 1 0 1 1 1 0 1 0 0 1 14 0 0 1 1 1 0 0 1 1 1 1 0 0 0 0 14 0 0 0 1 1 1 1 0 1 0 0 0 1 0 1 13 0 0 1 0 0 0 0 1 0 1 1 1 0 1 14 0 0 0 0 1 1 0 0 1 0 1 0 1 0 1 14 1 1 1 1 1 0 0 0 0 0 1 1 1 1 1 14 0 1 1 1 1 0 1 1 1 0 1 1 0 0 1 14 1 1 0 0 0 0 0 0 0 1 0 0 1 0 1 14 0 1 1 1 0 0 0 0 0 1 0 1 0 1 1 9 1 0 0 1 0 1 0 1 0 0 12 0 0 1 1 0 1 0 1 0 1 1 1 0 13 1 1 0 0 0 0 1 1 0 1 0 0 0 0 14 0 0 1 1 0 1 0 1 0 0 1 0 0 0 0 14 0 1 0 0 1 0 1 1 0 0 0 0 1 0 1 13 0 0 0 0 1 0 0 0 0 1 1 1 1 1 14 1 0 0 0 1 0 0 0 1 1 1 0 0 1 0 14 1 1 1 1 1 1 1 0 1 0 0 1 1 1 0 14 1 0 1 1 0 0 0 0 1 1 0 0 1 1 0 14 0 0 1 1 1 1 0 0 1 1 0 1 0 0 0 14 1 0 0 1 0 0 1 0 0 0 1 0 0 1 1 10 0 0 1 1 0 1 1 0 1 0 0 13 0 0 0 0 0 0 0 1 0 1 1 1 0 0 14 0 0 0 0 0 0 0 1 0 1 1 0 1 0 1 11 1 1 0 0 1 0 1 1 1 1 0 0 13 1 1 1 1 0 0 1 1 0 0 1 0 1 0 14 0 0 1 1 1 0 0 1 0 1 1 1 0 0 0 14 0 1 0 0 0 0 1 0 0 1 0 0 1 1 1 14 1 0 0 1 1 1 0 0 1 0 1 0 0 1 1 14 1 1 1 1 1 0 1 1 0 1 1 0 1 0 0 14 1 1 1 0 0 0 0 1 0 1 0 1 0 1 0 14 0 0 0 1 0 0 0 0 0 1 1 1 1 1 0 12 1 0 0 1 0 0 1 0 1 0 0 1 1 14 0 0 1 0 1 1 1 0 1 1 0 1 0 0 1 10 1 1 1 0 1 1 1 1 0 0 1 13 0 1 0 0 0 1 0 0 0 1 1 0 0 1 14 0 1 1 0 0 0 1 1 1 1 0 0 0 0 0 12 0 1 1 0 1 0 0 0 1 0 1 0 1 14 0 0 1 1 0 1 1 1 1 1 0 1 0 0 0 14 1 1 0 0 1 1 0 0 1 1 1 0 1 0 0 14 1 0 0 0 1 1 1 1 1 0 1 1 0 1 0 13 1 0 0 0 1 0 1 1 0 0 0 1 1 0 14 1 0 0 0 0 1 1 0 1 1 0 0 1 0 1 14 0 0 1 1 0 0 0 0 1 0 0 0 1 1 0 14 1 0 0 0 0 0 0 0 1 0 1 0 0 0 0 12 0 1 1 0 0 1 0 0 1 1 0 0 0 14 0 0 0 1 0 1 0 1 1 0 0 0 1 0 0 14 0 0 1 1 0 0 0 0 0 0 0 0 0 1 1 13 1 0 0 0 1 1 1 0 0 0 0 0 1 1 13 1 1 0 1 1 0 1 0 0 1 0 0 0 1 12 0 0 1 0 0 0 0 1 1 0 0 0 1 14 0 1 0 0 1 1 1 1 0 0 0 1 0 0 1 14 1 0 0 0 0 1 1 1 1 1 1 1 1 0 1 13 1 1 0 1 1 1 0 0 1 0 0 1 0 1 10 1 0 0 0 0 1 0 0 1 0 0 13 1 0 1 1 0 1 1 0 0 1 0 0 0 0 13 0 0 1 0 1 0 1 0 0 1 0 1 0 1 14 1 0 0 0 0 0 0 0 1 0 0 0 1 0 1 13 1 1 0 0 1 0 0 0 1 1 1 0 0 1 12 1 0 0 0 1 0 0 0 0 1 0 0 0 14 1 0 1 1 1 0 1 1 0 0 0 1 1 1 1 14 1 0 0 0 1 1 0 1 1 0 0 1 1 1 0 13 0 1 1 0 0 0 0 0 0 1 1 0 0 1 13 1 0 1 0 0 1 0 1 0 1 1 1 0 0 14 0 1 0 1 1 0 1 1 0 1 1 0 1 1 0 11 1 1 0 0 1 1 1 0 0 1 1 0 14 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0 14 1 1 0 0 0 1 1 1 1 1 1 1 0 0 0 14 0 1 0 1 0 0 0 0 1 0 1 0 0 0 0 14 0 0 1 1 1 0 1 0 1 1 1 1 0 1 1 14 0 0 1 0 1 1 1 0 0 1 1 0 1 0 0 13 0 0 1 1 0 1 1 1 1 1 1 1 0 1 12 1 1 0 0 1 1 0 0 0 0 1 1 0 14 1 1 0 1 1 1 1 1 0 0 0 1 0 1 0 14 0 0 0 1 1 0 0 1 0 0 0 1 1 1 0 14 1 1 1 1 0 1 0 0 1 1 1 0 0 0 0 13 1 1 0 1 0 0 0 0 0 0 1 0 1 1 14 1 1 1 1 0 1 1 0 1 1 0 1 1 1 0 13 1 0 0 1 1 0 1 1 0 0 0 1 0 0 14 1 1 0 0 0 0 1 0 0 1 1 0 1 0 0 14 1 0 1 1 1 1 0 1 0 0 0 1 0 1 0 14 1 0 1 1 1 1 1 0 0 1 1 0 1 0 0 14 1 0 0 0 0 1 1 0 1 0 1 1 1 1 0 10 0 1 0 0 1 1 0 1 1 0 1 9 0 1 0 0 0 1 0 1 0 1 14 0 0 1 0 1 0 0 1 1 0 0 1 0 0 1 14 0 0 1 1 0 0 1 1 1 0 1 0 1 0 0 14 0 0 0 1 0 0 1 0 0 0 0 0 1 1 1 14 1 1 0 1 1 1 0 0 1 1 1 0 1 1 1 14 0 0 1 1 0 0 0 1 1 1 1 0 1 1 1 14 0 1 0 0 1 0 0 1 0 1 0 0 1 0 0 14 1 0 1 1 0 1 0 0 0 0 0 1 0 1 0 12 0 0 1 0 1 0 1 0 0 1 1 0 1 14 1 1 0 1 1 1 1 1 0 0 0 1 0 0 0 13 1 0 1 0 0 1 0 0 1 0 1 0 1 1 14 0 0 0 1 1 1 0 1 0 0 0 1 0 0 0 14 0 0 0 1 0 0 1 0 0 1 0 1 1 0 0 14 1 0 0 1 0 1 0 1 1 0 1 0 0 1 0 11 1 0 1 1 0 1 0 1 0 1 1 0 12 1 1 0 0 1 1 0 0 1 0 1 0 1 10 1 0 1 1 0 1 0 1 1 1 1 14 1 1 0 0 1 1 1 1 1 1 0 0 0 0 0 11 0 0 1 0 0 1 1 0 1 1 1 1 12 1 1 0 0 1 1 0 0 0 1 1 1 1 13 1 1 1 1 1 0 1 0 0 0 1 1 1 0 14 1 1 1 0 1 0 1 0 1 0 0 0 0 0 0 13 1 0 1 1 1 0 0 1 1 1 1 0 1 0 14 0 1 0 1 1 1 1 1 0 0 1 1 0 1 1 12 0 0 0 1 1 0 0 0 0 1 0 1 0 14 0 0 0 1 1 1 1 1 0 1 0 1 0 0 0 14 0 1 1 1 1 0 0 0 0 1 1 0 1 0 1 10 0 1 1 0 0 0 1 0 1 0 0 13 1 0 1 1 0 0 0 1 1 1 1 0 0 1 14 1 1 0 0 0 1 0 1 1 1 1 1 0 0 0 11 1 0 1 0 1 1 0 1 1 0 1 1 14 0 0 1 0 0 0 1 0 1 1 0 0 1 1 1 14 0 1 1 0 0 1 1 1 1 1 0 1 1 0 0 13 1 0 0 1 0 1 0 1 0 1 1 0 0 0 14 1 0 1 0 1 0 1 0 1 0 0 0 1 0 1 14 0 1 1 0 0 1 1 0 1 0 1 0 0 1 1 12 1 0 1 1 0 0 1 0 0 1 0 1 1 13 0 0 1 0 1 0 1 0 0 0 0 1 0 1 13 0 1 1 0 0 0 0 1 1 1 0 1 0 0 14 1 1 1 1 1 0 1 0 1 1 1 0 0 0 0 11 1 0 0 1 1 0 1 0 0 0 1 0 12 0 1 0 1 0 1 0 1 1 1 0 0 0 13 1 1 1 0 0 0 0 0 1 0 1 0 1 0 14 1 0 1 0 0 0 0 0 1 0 0 0 0 0 1 14 1 0 1 0 1 0 1 1 0 1 1 0 0 0 0 14 0 0 0 1 1 0 1 0 0 1 1 1 0 1 0 13 0 0 1 0 0 0 0 1 1 1 0 1 1 1 14 1 1 1 0 0 0 0 1 0 0 0 1 1 0 0 14 1 0 0 0 1 0 1 1 0 1 1 0 0 1 1 12 0 1 1 0 0 1 1 0 1 0 0 1 1 14 1 0 1 1 1 0 0 0 0 1 0 0 1 1 0 14 1 0 0 1 1 1 0 1 0 1 1 0 0 0 0 11 1 1 0 0 1 0 0 0 1 1 1 1 14 1 1 0 0 0 0 0 0 0 1 0 0 0 1 0 13 1 0 0 1 0 0 0 1 1 0 1 1 0 1 13 1 1 0 1 0 0 1 0 0 1 0 1 1 1 14 0 0 0 0 0 0 0 1 1 1 1 0 1 1 1 13 1 0 0 1 0 0 0 1 0 1 1 0 0 1 14 1 0 0 1 0 1 1 0 0 1 1 1 1 0 1 12 0 0 1 0 1 0 0 0 1 1 0 1 0 12 0 0 1 0 1 0 1 0 1 0 1 1 0 13 0 1 1 0 1 0 0 0 1 0 0 1 0 0 13 1 1 1 1 0 0 1 0 0 1 1 1 1 0 14 0 1 0 1 1 1 0 1 0 0 1 0 0 1 1 14 0 0 0 1 1 0 1 0 0 0 1 1 1 0 0 14 1 1 1 1 0 0 1 1 0 1 1 0 0 1 0 14 0 0 0 0 1 1 0 1 0 0 0 0 1 0 1 14 0 0 0 0 0 0 0 0 1 0 1 1 0 1 0 10 0 0 1 1 1 0 1 0 1 1 0 11 0 1 0 0 1 1 1 0 1 1 1 0 14 0 1 1 1 0 1 0 0 1 0 0 1 0 1 1 12 1 1 0 0 0 0 1 0 0 1 1 1 0 13 1 1 1 1 0 0 1 0 1 1 0 0 0 1 13 0 0 0 1 1 0 0 1 1 0 0 1 1 1 12 1 1 0 0 1 0 0 1 1 0 1 1 1 12 1 0 0 0 1 1 1 0 1 1 0 1 0 11 0 0 1 1 0 0 1 1 0 0 1 0 13 0 0 1 1 0 1 1 0 1 1 0 1 0 0 12 0 1 0 0 0 1 1 1 0 1 0 1 1 14 1 1 1 0 1 0 1 0 1 0 0 1 0 0 1 14 0 0 0 1 1 1 1 0 1 0 0 0 0 0 1 14 0 1 1 1 1 0 1 0 0 1 0 0 0 0 0 14 0 0 1 0 1 1 1 1 0 1 1 1 1 1 0 13 1 0 1 1 1 0 1 1 0 1 0 1 1 1 14 1 1 0 0 0 1 1 0 0 0 1 1 1 0 0 13 1 1 1 0 1 0 1 0 1 1 1 0 0 1 11 1 1 0 0 0 1 1 1 0 1 1 1 13 0 0 0 0 0 1 0 0 1 1 1 1 0 0 14 0 1 0 1 0 0 1 1 0 0 1 1 0 0 0 14 1 0 1 1 1 1 1 0 0 0 0 0 0 1 0 14 0 0 0 0 1 0 0 1 0 1 0 1 1 0 1 12 0 1 1 0 1 0 0 1 0 0 1 1 0 12 1 0 0 0 1 0 0 0 0 0 0 1 1 14 1 0 0 1 1 1 0 1 1 0 0 1 0 0 1 13 0 0 0 1 1 0 1 0 1 0 1 1 1 1 14 0 1 1 0 1 1 1 1 0 0 0 1 0 0 1 13 0 1 1 0 0 1 1 0 0 1 0 1 0 0 13 0 1 0 1 0 0 1 1 1 1 1 1 0 1 13 0 0 1 1 0 0 1 0 0 1 0 0 1 0 14 1 0 0 1 1 1 1 1 0 0 0 1 0 0 0 13 0 1 1 0 1 1 0 1 1 0 1 1 0 0 13 1 0 0 0 0 1 1 0 1 0 0 1 0 1 14 0 0 1 1 1 0 1 0 0 1 0 0 0 1 1 14 0 1 1 1 1 0 1 0 0 1 0 1 1 1 1 14 1 0 1 0 1 1 1 1 1 1 1 0 1 1 1 14 1 1 1 1 0 1 1 0 1 0 0 0 0 0 1 14 1 1 0 1 0 1 1 1 1 1 1 1 0 1 1 9 1 1 1 1 0 0 0 0 0 1 14 1 0 1 1 0 0 1 1 0 1 1 0 1 0 1 14 1 1 0 0 0 1 1 0 1 1 1 0 1 0 1 14 0 0 1 0 0 0 0 1 1 0 1 0 0 0 1 14 0 0 0 1 1 1 0 1 1 0 1 0 1 0 1 13 1 0 1 0 1 0 0 0 0 0 0 0 0 1 14 1 1 1 0 0 0 1 0 0 1 0 0 0 1 0 14 1 0 1 1 1 0 1 0 1 0 0 0 1 1 1 11 1 0 0 0 1 0 0 0 0 1 0 0 14 1 1 1 1 1 1 1 0 1 0 1 1 0 0 1 12 0 1 0 1 1 0 0 0 0 1 1 0 0 9 1 1 0 1 0 1 1 0 0 1 14 1 1 1 0 0 1 0 0 0 1 1 0 1 0 0 14 1 0 1 0 0 0 1 0 0 0 1 0 0 1 0 14 1 0 0 1 1 1 0 0 0 1 0 1 0 1 1 14 1 0 1 0 0 0 0 1 1 1 1 1 0 0 0 14 1 0 0 1 0 0 0 0 1 1 1 1 1 1 1 13 0 0 1 0 1 1 0 1 0 0 1 0 0 1 14 1 0 0 0 0 0 0 0 1 0 0 1 0 1 0 13 1 1 1 0 0 0 1 1 1 1 0 1 0 0 11 0 0 0 0 0 1 0 1 1 0 0 1 14 1 0 0 0 0 1 1 0 1 1 1 1 1 0 1 14 1 1 0 0 1 1 0 0 0 0 0 1 0 1 1 11 0 1 0 1 0 1 0 1 0 1 1 1 13 1 0 1 1 1 1 1 0 1 1 0 0 1 0 12 0 1 1 1 1 1 1 1 0 0 1 0 1 14 0 0 0 0 1 0 1 1 1 0 0 0 0 0 0 13 1 1 0 0 1 1 1 0 0 1 1 1 0 0 13 1 1 0 1 1 0 1 0 0 1 0 1 0 0 14 0 0 0 1 0 1 0 1 0 1 1 1 0 1 0 9 1 1 0 0 1 1 0 0 0 1 13 0 1 0 1 1 0 1 0 0 0 0 1 1 1 14 0 0 0 0 0 0 1 0 0 0 1 1 1 0 1 12 0 1 0 0 1 0 1 0 1 1 1 1 1 11 1 0 0 1 1 1 1 1 1 0 0 0 14 1 0 0 1 1 1 0 1 1 1 0 0 1 1 1 11 0 0 1 0 0 1 1 1 0 1 0 1 14 0 1 1 1 1 1 0 0 0 1 0 1 1 0 1 14 0 1 0 1 1 1 0 0 1 1 1 0 1 0 1 13 0 0 1 1 1 1 1 0 1 0 1 0 1 0 14 1 1 1 0 1 0 0 0 1 1 0 1 1 0 1 14 1 1 1 0 1 1 1 0 0 1 0 1 1 1 1 14 1 0 0 0 0 0 0 0 1 0 1 0 0 1 1 14 1 1 0 0 1 1 1 1 0 1 1 0 0 1 1 14 1 0 0 1 1 1 0 1 0 1 1 1 0 1 1 14 1 0 1 1 1 1 1 0 1 1 1 1 1 1 0 14 0 1 0 0 1 1 1 1 0 0 1 0 1 0 0 10 0 1 1 1 0 0 0 1 1 0 0 13 1 0 0 0 1 1 0 0 0 1 1 0 0 1 12 1 0 0 1 0 1 1 1 1 0 1 1 0 14 0 1 0 0 1 1 0 1 0 1 1 0 1 0 0 11 0 1 1 0 0 1 0 0 1 1 0 1 9 0 0 0 0 1 0 0 1 1 1 12 0 1 0 1 1 1 0 1 0 0 0 1 0 13 1 0 1 0 0 0 1 0 0 0 1 0 1 0 14 0 0 1 0 1 0 1 1 0 1 0 0 0 0 1 12 0 1 0 1 1 0 1 0 1 1 1 0 0 14 1 0 1 0 0 1 1 0 1 0 0 0 0 1 0 14 1 1 1 0 0 0 0 0 1 1 1 1 0 0 1 13 0 1 1 0 1 1 0 1 0 0 1 1 1 0 13 1 1 0 1 0 1 0 0 0 0 1 1 1 0 11 0 1 0 0 0 0 1 0 1 1 0 1 14 0 1 0 0 1 0 1 0 1 1 1 0 0 0 1 13 1 1 1 1 1 1 1 0 0 1 0 0 0 0 14 0 1 1 0 1 1 0 1 1 0 0 0 1 1 0 13 0 0 1 1 0 0 1 0 1 0 0 0 1 1 12 0 1 0 0 0 1 1 1 1 1 1 1 1 14 1 0 1 1 0 1 0 1 0 1 1 1 0 0 1 14 0 1 0 0 0 0 1 0 0 1 1 1 0 0 0 13 1 1 1 0 0 1 1 1 0 0 1 0 0 0 14 1 0 0 0 1 0 0 0 0 1 0 1 1 1 0 14 1 1 1 0 0 1 1 1 1 0 1 0 1 1 0 14 1 0 1 1 0 1 0 1 1 1 0 1 1 0 1 14 0 0 0 1 0 1 0 1 0 1 1 0 0 1 1 13 1 0 1 0 0 0 1 1 1 0 1 0 1 1 13 1 0 1 0 1 1 0 0 0 0 0 0 1 0 13 0 0 0 0 0 1 1 0 0 0 0 0 0 0 14 0 0 0 0 1 0 0 1 1 1 0 1 1 1 1 14 0 0 1 1 1 1 0 1 0 0 0 0 0 1 0 11 0 0 1 0 1 0 0 0 0 0 0 1 11 0 0 1 1 0 1 1 1 1 1 1 1 14 1 0 1 1 0 0 0 1 0 0 1 0 1 1 1 14 0 0 1 1 0 0 1 1 0 1 0 1 0 1 1 11 1 1 0 0 1 0 1 1 1 1 1 1 14 1 0 1 1 1 1 0 1 0 0 1 0 0 0 0 12 0 0 1 1 0 0 0 0 1 1 0 0 1 14 1 0 0 0 1 0 1 0 0 0 1 0 1 1 0 14 1 0 1 0 0 0 1 0 0 0 0 0 1 1 0 12 1 0 0 0 0 1 0 1 1 0 1 0 0 11 1 0 1 1 1 0 0 0 1 1 0 1 14 0 0 0 0 1 1 0 1 1 0 1 0 1 0 1 11 0 0 0 0 0 0 0 1 1 1 0 0 10 1 1 1 0 0 0 1 1 1 0 1 10 0 1 1 1 1 0 0 0 0 1 0 14 0 1 0 0 0 1 0 1 1 0 0 0 0 0 0 13 0 1 0 1 1 1 0 0 0 0 1 1 0 1 14 0 1 1 0 1 0 1 0 1 0 1 1 1 1 0 14 1 0 0 1 1 0 0 0 0 1 0 1 1 0 0 14 1 0 1 1 0 0 1 1 0 0 1 1 1 1 0 14 0 0 0 0 1 0 1 1 0 1 1 1 0 1 1 12 1 1 1 1 0 0 1 0 0 1 0 0 1 14 0 0 1 1 0 0 0 0 1 0 0 0 0 1 0 13 0 0 1 1 1 0 1 1 0 0 0 0 0 0 12 0 0 1 1 0 1 1 0 0 0 1 1 0 12 0 0 0 1 0 1 1 1 0 1 1 1 1 14 0 1 1 0 1 0 0 0 1 1 1 0 0 0 1 10 0 1 0 0 0 1 1 0 1 1 0 14 0 0 0 0 1 1 0 0 1 1 1 0 0 0 1 14 0 1 1 0 0 0 0 0 1 1 1 1 1 0 1 14 1 1 1 1 0 1 1 1 0 1 0 1 0 0 0 14 1 0 1 1 1 1 1 1 0 0 0 1 1 0 1 14 1 1 1 1 1 1 1 1 0 0 1 1 0 0 1 14 0 0 0 1 1 1 0 0 1 1 0 1 0 0 1 14 1 1 1 1 1 1 0 1 0 0 0 1 1 0 1 14 1 1 0 0 0 0 0 1 1 0 1 0 0 0 1 12 0 1 1 1 0 1 1 0 0 1 1 1 1 13 1 1 0 0 0 0 0 1 1 0 0 0 1 0 14 0 1 1 1 0 0 1 1 0 1 1 1 1 1 0 13 0 1 0 0 1 0 1 0 1 0 0 1 1 1 14 0 1 0 1 0 0 0 0 1 1 1 1 0 1 1 13 0 0 0 0 0 0 0 0 0 1 0 1 1 0 14 1 0 1 1 0 0 1 1 1 1 1 0 0 1 0 13 1 0 0 1 1 0 1 0 0 1 0 0 1 0 14 0 0 0 1 1 1 1 1 1 0 0 0 0 1 1 12 1 1 1 1 0 1 1 1 1 0 0 0 0 12 0 1 1 1 1 0 1 1 0 0 0 0 1 13 1 1 0 0 1 1 1 1 0 1 1 1 0 0 14 0 0 0 1 1 0 1 0 1 0 1 0 0 0 1 14 0 1 0 1 1 1 1 1 1 1 1 1 0 1 0 13 1 1 0 1 0 0 1 1 1 0 0 1 0 0 14 1 1 0 1 0 1 1 0 1 0 0 1 1 1 0 12 0 1 1 1 1 0 1 1 1 1 0 1 0 14 1 0 0 0 0 1 0 0 0 1 1 1 1 1 0 14 0 1 1 0 1 0 1 0 0 0 0 0 1 1 0 14 1 0 1 1 0 0 0 1 0 0 0 0 1 0 1 14 1 1 1 0 1 1 0 0 0 0 0 1 1 1 0 13 1 0 0 0 1 0 0 1 1 0 1 1 0 0 14 1 0 1 0 1 1 1 0 1 0 1 0 1 1 1 14 0 0 0 1 1 1 0 1 0 1 1 1 0 0 1 14 0 0 0 0 0 1 1 1 0 0 1 0 0 0 1 14 0 0 0 0 0 0 1 1 0 0 1 0 1 1 1 13 0 1 1 0 0 0 1 1 1 1 1 0 0 1 9 1 1 0 0 0 1 0 1 0 1 14 1 0 0 1 1 1 1 0 1 1 0 1 0 1 1 13 1 0 1 0 1 1 1 1 0 1 0 1 1 0 14 0 1 0 1 0 0 1 0 0 1 1 0 1 0 0 14 1 1 0 0 1 1 1 0 1 0 0 0 1 1 1 9 1 0 0 1 0 1 0 0 1 1 14 0 0 0 0 0 1 0 1 1 1 0 0 1 1 0 14 0 0 1 1 1 0 1 1 1 1 1 0 1 0 1 11 0 0 1 0 1 0 0 0 0 0 1 0 13 1 0 0 0 1 0 1 1 1 0 1 0 1 1 13 0 0 0 1 1 0 0 0 1 0 1 0 0 1 14 0 1 0 0 1 1 0 1 1 0 0 1 0 1 0 14 0 1 1 1 0 1 1 0 0 0 1 1 1 1 1 14 1 1 1 1 0 0 0 1 1 1 0 0 1 0 0 14 1 0 1 0 0 1 1 1 1 1 0 0 0 1 0 13 1 1 1 1 0 1 1 1 0 1 0 1 1 0 11 1 0 1 0 1 0 1 1 0 1 0 0 12 0 1 0 1 0 1 1 1 1 0 1 1 1 14 0 1 0 1 1 1 1 1 0 0 1 1 1 0 0 14 1 0 0 1 1 1 1 1 1 0 0 0 0 0 1 14 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 12 1 0 1 1 0 0 1 0 0 0 0 1 0 13 0 1 1 0 0 0 0 1 1 1 1 1 0 0 14 1 1 1 0 0 1 0 1 1 0 0 0 0 0 1 13 0 1 1 1 1 0 1 0 1 0 0 0 1 0 14 0 1 1 0 0 0 0 1 0 1 0 0 1 1 1 14 0 0 0 1 0 1 0 0 0 0 1 0 1 1 0 12 1 1 0 0 0 1 0 0 1 0 1 1 0 14 1 0 1 1 1 1 1 0 1 0 0 0 1 0 1 14 0 0 1 1 1 1 1 1 1 1 1 0 0 0 0 11 1 1 1 1 1 1 0 0 0 0 1 1 11 1 1 1 0 1 1 1 0 1 1 0 0 11 0 0 0 0 1 1 0 1 1 0 1 1 12 0 1 1 0 1 1 1 0 1 0 0 0 1 13 0 1 0 1 0 1 1 1 0 0 1 1 1 1 14 0 1 1 0 1 0 1 0 1 0 0 0 0 1 0 14 1 1 0 1 0 0 0 1 0 1 0 0 1 0 1 14 0 1 1 0 0 1 1 0 1 1 0 0 0 0 1 13 0 0 1 0 0 1 1 0 1 0 0 1 1 1 13 0 1 0 1 1 0 0 1 0 1 0 1 0 0 14 0 1 1 1 1 0 1 1 0 1 1 0 0 1 1 14 0 1 1 0 0 0 1 1 1 1 1 1 1 1 1 12 0 0 1 1 1 0 1 1 0 0 1 1 0 14 1 1 1 0 1 1 0 0 0 1 0 1 1 0 0 14 1 0 1 1 1 0 0 1 1 0 1 0 0 1 1 12 1 1 1 0 1 0 1 0 1 1 0 1 0 13 0 1 1 1 0 1 0 0 1 0 0 1 1 0 12 0 1 1 0 0 1 0 0 0 0 0 1 1 13 0 0 0 0 0 1 1 0 0 1 0 0 1 1 14 0 0 1 1 0 1 0 0 0 0 0 0 1 1 0 13 0 1 0 0 0 1 1 0 0 0 1 0 1 0 13 1 1 1 0 0 0 1 1 0 0 0 0 0 1 14 1 0 1 1 1 1 0 0 1 0 1 1 0 1 1 14 0 0 1 0 1 1 0 0 1 0 1 0 0 0 1 14 1 0 1 0 1 0 0 0 1 1 0 1 1 0 1 14 1 1 1 0 0 0 1 1 0 1 1 1 1 0 1 14 1 1 0 1 0 0 1 1 0 0 1 0 1 0 0 13 0 0 1 0 0 1 1 0 0 0 0 1 1 1 14 1 1 1 1 1 0 0 1 1 0 1 0 1 1 0 13 0 0 0 0 1 0 1 1 0 0 1 1 0 0 14 0 0 1 0 0 1 0 0 1 0 0 0 1 0 0 14 0 1 1 1 0 0 0 1 1 0 0 0 0 0 0 12 0 0 1 0 0 1 1 0 0 1 0 0 1 9 1 0 1 0 1 1 0 1 1 0 14 1 1 0 0 0 1 0 0 1 0 1 1 1 1 1 14 1 0 0 0 0 0 1 1 0 1 0 1 0 0 0 14 0 0 0 1 1 0 0 1 1 0 1 0 0 1 1 13 0 0 0 0 1 1 1 0 0 0 0 1 0 0 13 0 1 0 1 1 0 0 1 1 1 0 0 1 0 14 1 0 1 1 1 1 0 0 1 1 1 0 0 0 0 12 0 0 0 0 1 0 1 0 1 1 1 1 0 13 1 1 0 1 1 0 1 0 0 0 0 0 0 1 14 0 0 1 1 1 0 0 0 1 0 0 1 0 0 1 13 1 1 0 1 0 1 0 1 1 1 0 1 0 1 14 1 1 0 1 0 1 1 1 0 1 0 1 0 1 1 14 1 1 1 0 1 1 0 0 0 0 0 0 1 0 0 13 1 1 0 0 0 1 1 0 1 0 1 0 1 1 14 1 0 0 0 0 0 0 0 1 0 1 0 1 0 0 12 0 0 1 1 1 1 1 1 0 0 0 1 1 14 0 0 0 1 0 1 0 1 0 0 0 1 1 0 0 13 0 0 1 0 1 0 1 0 0 1 1 0 0 0 14 0 0 1 1 0 1 0 0 0 0 1 1 0 1 0 14 0 1 0 0 1 0 1 1 0 0 1 0 0 1 1 14 1 1 1 1 1 0 0 0 0 0 0 0 0 0 1 13 1 0 1 1 0 0 0 0 0 1 0 0 1 1 14 0 1 1 1 0 1 1 0 1 0 0 0 0 0 1 14 0 0 1 0 1 1 0 1 0 1 1 1 1 0 0 14 0 1 0 0 0 1 1 1 0 1 1 1 1 1 1 14 1 1 0 1 0 0 0 1 0 0 0 1 0 0 0 13 0 0 1 0 1 0 0 0 1 1 1 1 0 0 14 1 1 1 0 1 0 0 0 1 0 0 0 0 1 1 14 0 0 0 0 0 1 0 0 0 0 0 1 0 0 1 14 1 1 0 0 0 1 1 1 1 0 0 0 1 1 1 14 0 1 1 1 0 0 0 1 0 0 0 0 0 0 1 10 1 0 0 1 1 1 1 1 1 1 0 14 0 0 1 0 1 1 0 0 0 0 1 0 0 0 1 14 0 1 1 1 0 1 1 0 1 0 0 0 1 0 0 12 1 1 1 0 0 1 1 1 0 0 1 0 1 14 0 0 1 1 1 0 0 0 1 1 1 0 0 0 0 14 1 1 1 1 1 1 0 0 0 1 1 1 0 1 0 14 1 0 0 0 0 1 1 1 1 1 1 1 1 1 0 11 0 1 0 1 0 0 0 1 0 1 0 0 14 0 1 0 1 1 1 0 0 1 1 0 0 1 0 1 9 0 1 0 1 1 0 0 0 1 1 13 0 1 0 1 1 1 1 0 0 0 1 0 1 1 14 1 1 1 0 0 0 1 0 0 1 1 0 1 0 1 13 0 0 0 1 0 0 1 1 0 1 1 1 0 1 14 0 0 1 1 1 0 1 1 1 1 1 1 1 1 1 10 1 1 1 0 0 1 1 1 0 1 1 14 0 1 1 0 0 0 1 0 0 0 0 0 1 1 0 14 0 1 0 1 0 1 0 1 1 1 1 1 1 0 1 14 0 1 1 1 1 1 1 1 1 0 1 0 0 0 0 13 0 1 0 1 1 0 0 1 0 0 1 0 1 1 10 0 0 1 0 0 0 1 0 0 0 0 14 1 0 1 0 1 1 1 0 1 0 1 1 0 1 1 14 0 0 0 0 0 0 0 0 0 0 1 0 1 0 1 12 1 0 0 1 0 1 0 1 1 0 0 1 1 12 1 1 1 1 0 1 1 0 1 1 1 1 0 14 0 1 1 0 0 1 1 1 1 0 0 0 1 0 1 14 1 0 0 1 0 1 1 0 1 1 0 0 0 1 1 13 1 1 1 0 1 1 1 1 0 0 1 0 0 1 14 0 1 0 0 1 1 0 1 0 1 1 1 1 1 0 13 1 1 0 1 1 1 0 0 1 1 1 0 0 1 14 0 1 1 0 0 1 1 1 1 1 1 0 0 1 0 12 1 1 1 1 1 0 1 0 0 0 1 0 1 14 0 1 1 1 0 1 0 1 0 0 0 1 0 1 0 8 1 1 1 0 1 1 1 1 1 13 1 1 0 1 0 1 0 1 1 0 1 1 1 0 13 0 1 0 0 1 0 0 0 1 0 1 0 0 1 13 1 1 1 1 1 0 0 0 0 1 0 0 1 0 13 0 0 1 0 0 1 1 0 0 0 1 1 0 1 12 1 0 0 0 0 1 0 1 0 0 0 0 1 14 1 0 1 0 1 1 1 1 0 0 1 0 1 0 0 13 1 0 1 1 0 1 1 1 0 0 1 1 0 1 14 1 1 1 1 1 0 1 1 1 0 1 0 1 0 0 13 0 1 0 1 0 0 0 0 1 0 1 1 1 1 13 1 0 1 0 1 0 0 0 0 0 1 0 1 0 10 0 1 1 1 0 0 1 0 1 1 1 13 0 1 1 1 0 0 1 0 0 1 1 1 0 1 14 1 1 1 0 0 0 0 1 1 1 0 1 0 1 0 14 0 0 1 0 1 1 1 0 0 0 0 0 1 1 1 14 0 1 1 0 0 0 0 1 0 1 1 1 1 1 0 14 0 0 0 1 1 0 1 0 0 1 0 1 0 1 1 10 0 0 1 0 0 0 1 1 0 1 1 14 0 0 1 1 1 1 1 0 0 1 0 1 0 0 0 14 0 0 1 0 1 1 0 1 0 0 1 1 1 0 1 14 0 1 1 0 1 1 1 1 0 1 1 1 1 0 1 13 0 0 1 0 0 0 1 0 0 1 0 1 0 1 11 1 0 1 1 0 1 1 1 0 1 0 1 13 1 1 1 1 0 0 1 0 0 0 1 1 1 1 12 0 0 1 0 0 1 1 1 0 1 1 1 1 12 1 1 1 1 1 0 0 1 1 0 0 0 1 12 1 0 1 1 1 1 0 0 0 0 0 0 1 12 0 0 0 0 0 1 0 0 0 1 0 1 1 11 0 0 0 0 1 1 1 1 0 0 0 0 14 0 1 0 1 1 1 0 0 0 0 0 1 1 1 1 12 1 1 0 1 0 1 0 0 1 1 0 1 1 14 0 0 0 0 1 1 0 0 1 0 0 1 1 1 1 14 1 1 0 1 1 0 1 0 0 0 1 0 1 0 1 12 1 0 0 1 0 0 1 1 1 1 1 1 1 12 0 0 0 0 0 1 0 0 1 1 1 0 0 14 1 1 1 0 1 1 0 0 1 0 1 1 0 1 1 14 1 1 0 0 0 1 1 1 1 0 0 1 1 0 1 14 1 1 1 0 1 1 0 0 0 1 0 1 0 1 1 14 0 1 0 1 1 1 0 0 0 1 1 1 1 1 1 13 1 0 1 0 1 1 0 0 1 0 1 0 0 0 14 1 1 0 1 0 1 0 1 1 1 0 1 0 1 0 13 0 0 0 1 1 1 1 1 0 0 0 0 1 1 11 1 0 0 1 1 1 1 0 1 0 0 1 14 0 1 0 1 0 1 0 0 0 0 1 0 1 1 0 14 1 0 0 0 1 1 0 1 0 0 0 1 1 1 0 12 0 0 1 1 1 0 1 0 1 0 1 1 0 13 1 1 1 1 0 0 0 0 0 0 1 0 0 1 11 1 0 0 0 0 0 1 0 1 1 0 1 14 0 0 0 1 0 1 0 0 1 1 0 0 1 0 0 14 0 1 0 0 0 1 1 1 1 1 0 0 0 0 1 11 0 1 1 1 0 0 0 0 0 1 1 0 14 0 1 1 1 1 1 1 0 0 0 1 0 1 0 1 14 1 1 0 0 1 1 0 0 1 1 1 1 0 0 0 10 0 0 1 0 0 1 0 0 1 1 1 14 0 0 1 1 1 1 0 1 1 1 0 0 0 1 0 13 1 1 0 1 1 1 1 0 0 0 0 1 0 0 14 1 0 0 1 0 0 1 0 0 0 1 0 1 1 1 14 1 0 0 0 0 0 1 1 0 1 0 0 0 0 1 13 0 0 0 1 1 0 1 0 1 0 1 1 0 0 14 0 0 0 1 0 1 0 0 1 0 1 0 0 1 0 11 0 1 1 1 0 0 1 1 0 0 1 1 13 0 0 1 0 0 1 1 1 0 1 0 0 0 0 11 0 0 0 1 0 0 1 0 1 0 1 1 14 1 1 0 1 0 0 1 0 0 0 1 1 0 0 1 14 0 1 0 1 1 0 1 0 1 0 0 0 0 1 0 9 1 1 1 1 0 0 1 0 1 0 13 0 1 0 0 1 1 0 0 0 0 0 0 1 1 14 1 1 1 1 0 0 0 1 1 1 1 0 0 1 0 13 1 0 0 0 1 0 1 1 1 1 1 1 0 1 14 0 0 1 0 1 1 1 1 1 0 1 0 1 1 0 12 0 0 0 0 1 0 1 0 1 0 0 0 0 11 1 1 1 1 1 1 0 1 0 0 0 1 14 0 1 0 0 1 0 1 0 1 0 0 1 0 0 0 13 0 1 1 0 1 0 0 1 0 1 1 1 0 1 14 0 0 1 1 0 1 0 1 1 1 0 1 1 1 1 14 1 0 1 1 0 0 0 0 0 1 1 1 0 0 0 13 0 0 0 1 0 0 0 0 1 0 0 0 1 1 14 0 1 1 0 0 1 1 0 0 1 0 0 0 0 0 11 1 0 1 0 1 0 0 0 0 0 1 0 14 0 1 0 1 1 0 0 0 1 1 1 1 0 0 1 11 1 1 1 0 0 1 0 1 1 1 0 1 14 0 1 1 0 1 0 1 0 1 0 1 1 0 1 0 14 0 1 0 0 0 0 0 0 1 1 0 1 0 1 1 12 0 0 0 0 1 0 1 1 1 1 1 0 0 14 0 1 0 0 1 1 0 0 0 0 1 1 1 0 1 14 1 1 0 0 0 0 0 1 1 1 1 1 0 0 0 14 0 0 1 1 1 1 1 0 0 1 0 1 0 1 0 12 1 1 1 1 1 0 1 0 1 1 1 0 1 13 1 1 1 1 0 0 1 1 1 0 0 1 1 1 10 0 0 1 1 1 1 0 0 0 1 1 14 0 1 1 0 0 1 0 1 0 1 0 1 1 1 1 11 0 1 1 1 0 1 1 1 1 1 0 0 14 0 0 0 1 0 1 1 0 1 1 1 1 1 1 0 14 1 0 0 1 1 0 1 1 0 1 0 1 1 1 0 13 1 1 1 1 1 0 1 0 1 1 1 1 1 0 9 0 1 1 0 1 0 0 1 1 0 13 0 0 0 0 0 1 0 1 1 1 1 1 0 1 14 1 0 1 0 0 0 1 0 1 0 0 1 1 0 0 11 1 0 0 1 0 1 0 0 0 0 0 0 14 0 0 1 0 0 1 1 1 0 0 1 1 0 1 0 14 0 1 0 0 1 0 1 0 0 0 1 0 1 0 1 13 0 1 1 0 1 0 0 1 0 0 0 1 0 0 14 0 0 1 0 0 1 0 0 0 0 0 1 1 1 0 14 1 1 1 1 1 1 1 1 0 0 0 1 0 1 1 13 0 0 0 1 1 0 1 0 1 0 0 1 1 0 13 1 1 0 1 0 0 0 0 0 0 0 0 1 0 14 1 0 1 0 0 0 1 0 1 1 1 1 0 1 0 12 1 0 0 1 0 0 0 1 0 0 0 0 1 14 0 1 1 1 0 1 1 0 1 0 1 1 0 1 1 14 0 0 0 0 1 0 1 0 0 0 1 0 1 1 1 13 0 1 1 1 1 1 0 0 1 0 0 1 0 0 13 1 1 1 1 0 1 1 0 0 1 0 1 1 0 14 0 1 0 1 1 1 0 1 1 1 0 0 0 1 0 14 0 1 1 0 0 0 0 0 1 0 0 1 0 0 1 13 1 1 1 0 0 1 1 1 0 0 0 1 1 1 12 1 0 1 1 1 1 0 1 0 1 1 0 0 11 0 1 0 0 1 1 0 1 1 1 1 1 14 0 1 1 0 1 1 0 0 1 1 0 0 1 1 0 14 0 0 1 0 1 1 0 0 1 1 1 1 1 1 0 13 1 0 0 0 0 0 1 1 0 0 1 0 1 1 14 0 1 0 0 1 0 1 1 1 1 1 0 0 0 1 14 0 1 1 0 1 1 1 1 0 1 1 0 1 1 0 14 0 0 1 1 0 1 0 0 0 1 1 1 1 0 1 14 1 1 0 1 1 1 1 0 1 0 1 0 1 0 0 14 1 0 0 0 0 1 0 1 1 1 1 1 1 1 0 14 1 0 1 1 0 0 1 1 0 1 0 0 1 1 1 13 1 0 1 1 1 1 1 1 1 1 1 1 1 1 14 1 0 1 0 0 1 1 1 1 1 1 1 0 1 1 14 0 1 1 0 0 0 1 1 1 1 1 0 1 1 1 14 1 1 1 1 0 1 0 1 1 1 0 1 1 1 0 14 0 1 0 1 0 1 0 1 0 1 1 1 1 0 1 14 1 1 1 1 1 0 1 1 1 0 0 0 0 0 1 14 0 0 0 1 0 0 1 1 0 0 1 0 1 0 1 14 1 1 1 1 1 1 1 1 1 1 0 0 1 1 0 14 1 0 1 1 0 0 0 0 0 0 1 1 0 0 1 14 1 0 0 1 0 0 0 0 1 1 1 1 1 0 0 14 0 1 1 1 1 0 0 1 0 1 0 0 0 1 0 12 0 1 0 1 0 1 0 0 0 0 1 0 0 14 1 1 1 0 1 0 1 1 1 0 1 1 0 1 1 14 0 1 1 0 0 1 0 0 0 0 1 0 0 1 1 11 0 0 0 1 0 1 0 1 1 0 1 1 12 1 1 0 1 1 1 1 0 0 0 0 1 1 13 0 0 0 0 0 1 0 1 0 1 1 0 0 0 14 1 1 1 0 1 1 0 1 1 1 0 1 0 1 0 14 1 0 1 1 1 1 0 0 1 0 0 1 1 0 0 13 0 1 1 1 0 1 1 1 0 1 1 0 0 0 12 0 1 1 1 0 0 0 0 1 1 0 1 1 12 1 0 1 0 0 0 0 0 0 0 1 0 0 14 1 1 0 1 1 0 1 1 1 0 0 1 1 0 0 14 0 0 0 1 1 1 0 0 1 1 0 0 0 1 0 14 0 0 0 1 0 1 1 1 1 0 1 1 1 0 1 14 1 0 0 0 1 1 0 1 0 1 1 0 0 1 0 14 0 1 1 0 0 1 1 1 0 0 1 0 0 0 0 11 1 0 0 1 1 1 1 1 0 0 0 0 13 0 0 1 0 0 0 0 1 0 0 1 1 0 0 14 0 1 1 1 1 1 0 1 0 0 0 1 0 0 0 14 1 0 1 0 0 0 1 0 0 1 1 1 0 1 0 12 1 0 0 1 1 0 0 1 0 1 0 1 1 14 1 0 1 0 0 0 1 0 1 0 0 0 1 1 0 14 0 0 1 1 0 0 0 1 1 0 0 1 0 0 0 14 0 0 1 0 0 0 0 0 1 0 0 0 1 1 1 13 0 1 0 1 0 1 0 0 0 0 1 1 1 0 14 1 1 1 1 0 1 0 1 0 0 0 1 0 1 0 14 0 1 1 1 0 1 1 1 0 1 1 0 1 1 1 14 0 1 1 0 1 0 1 0 1 1 1 0 1 0 0 14 1 0 1 0 0 1 0 0 0 1 0 1 1 0 1 14 1 0 0 1 1 0 1 1 0 1 1 0 1 0 0 14 0 0 0 0 0 1 1 0 1 1 1 0 0 1 0 13 0 1 0 0 0 0 0 1 1 1 1 0 0 1 14 1 1 0 0 0 1 0 0 1 0 0 0 1 1 1 10 0 0 1 0 0 1 1 0 1 1 1 14 0 1 0 0 1 0 0 0 0 1 0 0 1 1 1 12 0 0 0 1 1 1 0 1 1 0 1 0 1 12 1 0 1 0 0 1 1 0 1 1 1 0 0 14 1 1 0 0 1 1 0 0 1 0 1 1 1 0 1 13 1 0 1 0 1 0 1 1 1 1 1 1 0 0 14 1 1 1 0 1 1 0 0 0 0 0 1 0 1 1 13 0 1 0 0 1 0 1 1 0 1 1 0 1 1 14 1 1 0 1 1 0 1 1 0 1 1 0 1 1 1 7 1 0 1 1 1 0 0 0 13 1 1 1 0 1 0 0 1 1 1 1 1 0 1 14 1 0 0 1 1 0 1 0 0 0 1 0 1 1 1 14 0 1 1 1 0 1 0 0 0 1 1 0 0 1 0 14 1 1 1 0 0 0 1 0 1 0 0 0 0 1 1 14 1 1 1 1 1 0 1 1 1 0 1 1 1 0 0 14 1 0 1 0 0 1 1 1 1 1 1 0 0 0 0 14 1 0 0 0 0 0 1 1 0 1 0 1 1 0 0 14 0 1 0 0 0 0 0 0 0 1 1 1 0 1 1 13 1 0 1 0 0 1 0 1 1 1 0 1 0 1 12 0 1 1 0 0 0 0 0 1 0 1 0 1 14 1 0 1 1 0 0 1 1 0 1 1 1 0 0 1 12 1 0 1 1 0 1 1 0 0 0 1 0 1 14 1 0 0 0 0 1 1 0 0 1 1 1 0 1 0 14 0 1 1 0 0 0 1 1 0 1 0 1 1 1 1 14 0 0 0 0 1 0 0 0 0 0 1 1 1 1 0 13 0 1 0 0 0 1 0 0 1 1 1 1 0 0 12 0 0 1 1 0 1 1 1 0 1 1 1 0 14 0 1 0 0 0 1 0 1 1 0 0 1 0 1 1 12 0 1 0 0 1 0 1 0 1 1 0 1 0 14 0 1 1 1 1 0 1 0 0 0 0 1 1 1 1 14 0 1 1 0 0 1 1 1 0 0 1 0 1 1 0 14 0 0 1 0 0 0 0 0 0 0 1 1 0 1 1 11 0 1 0 0 1 0 0 1 1 0 0 0 11 1 0 1 0 1 1 0 0 0 0 0 1 8 0 1 0 1 0 0 1 0 1 14 0 1 1 1 1 0 0 0 0 1 1 1 0 1 0 14 0 1 0 1 1 0 0 0 1 0 1 1 0 0 1 11 1 1 1 0 0 1 1 0 0 1 0 1 13 1 1 1 1 1 1 0 0 1 0 0 0 0 0 11 1 1 0 1 0 0 0 0 0 0 1 1 9 0 1 1 0 1 1 1 1 0 1 14 1 1 0 1 0 1 0 0 0 1 1 1 0 1 1 12 1 0 1 0 1 1 0 0 1 0 1 1 0 11 1 0 0 0 0 1 0 0 0 0 1 1 14 0 0 1 1 1 0 0 0 1 0 1 1 1 1 0 14 0 1 0 0 1 0 0 0 1 1 1 1 1 0 0 13 1 1 0 1 1 1 0 1 1 0 0 0 0 0 13 1 0 0 1 0 1 0 1 0 1 0 0 0 0 11 1 0 0 1 0 0 0 1 0 1 1 1 12 1 1 1 1 1 1 0 0 0 1 1 0 0 9 1 1 1 0 0 1 0 0 1 0 11 1 1 0 0 0 0 0 1 1 1 1 1 13 1 1 0 1 0 1 1 0 1 0 1 0 1 0 14 0 0 0 0 0 0 1 1 1 0 0 1 0 1 0 13 0 0 0 1 0 1 1 0 1 1 1 1 1 0 13 0 1 1 0 0 1 0 1 1 1 0 1 1 1 14 0 0 0 1 0 1 0 0 0 0 0 1 1 0 0 14 0 1 0 1 0 1 0 0 0 1 0 1 1 0 1 14 1 0 0 0 1 1 0 0 1 1 1 0 1 1 0 13 1 0 1 1 1 1 0 0 1 1 1 0 1 1 13 1 1 1 1 1 0 1 0 1 1 1 0 0 1 14 1 0 0 1 1 0 1 1 1 1 0 1 0 0 0 14 1 1 0 0 0 1 0 0 1 0 0 1 0 0 1 12 1 1 1 0 1 0 0 1 0 1 1 0 1 14 1 1 0 1 0 0 1 0 0 0 0 1 0 0 1 13 1 0 0 1 1 0 0 0 0 1 0 0 0 0 12 0 0 0 0 1 1 0 0 1 1 0 1 1 9 1 1 0 0 1 0 0 1 1 1 13 0 0 1 1 1 0 1 1 1 0 1 0 1 0 14 1 0 0 1 1 1 0 0 1 0 0 1 1 0 1 14 0 1 1 0 0 0 0 1 0 1 1 1 0 0 1 12 0 0 1 0 0 1 1 1 0 1 0 1 0 13 0 1 1 1 1 0 1 1 1 0 0 0 1 1 14 1 1 0 0 0 1 1 0 0 1 1 1 1 1 0 8 1 1 0 1 1 0 0 1 0 14 0 0 0 0 0 1 0 1 0 1 1 0 1 0 0 14 0 0 0 0 0 1 1 1 0 1 0 0 0 1 1 11 0 0 0 0 1 1 1 1 1 0 1 1 14 1 1 0 1 0 0 1 0 1 0 1 1 0 1 0 14 0 0 1 1 0 0 1 0 0 1 0 0 0 0 1 12 1 1 0 0 0 1 0 1 1 1 0 1 0 14 1 0 1 0 1 0 1 1 1 1 0 0 0 0 0 13 0 0 0 0 0 1 1 1 1 1 0 1 0 0 12 0 0 1 0 1 1 1 1 0 1 0 1 1 14 1 1 0 1 1 0 1 1 1 1 0 1 0 1 0 13 0 0 0 0 1 0 1 0 1 1 0 1 1 1 14 0 0 0 0 0 0 1 1 1 0 0 1 1 0 0 14 0 1 0 0 1 1 0 1 0 0 1 0 0 1 1 13 0 0 1 0 0 0 1 1 0 0 1 0 0 1 14 1 1 0 0 0 1 1 1 0 0 0 0 0 1 0 14 1 1 0 0 0 0 0 0 1 1 1 1 1 1 0 14 0 1 0 1 1 1 1 0 0 0 0 0 0 1 1 14 0 1 1 0 0 0 0 0 1 0 0 1 0 1 0 12 1 1 0 1 0 1 0 0 0 0 0 0 1 13 0 0 0 1 1 0 1 0 0 0 1 1 0 0 10 0 1 0 0 1 1 0 0 1 1 1 12 1 1 0 1 0 1 1 0 0 0 0 0 1 13 0 0 0 1 0 1 1 1 0 0 0 1 1 0 14 0 0 1 1 1 1 0 0 1 0 1 0 0 0 1 14 0 1 0 0 1 0 1 0 1 0 0 1 1 1 1 14 1 1 1 0 0 1 1 0 0 0 0 1 1 1 1 13 1 0 1 0 0 0 0 0 1 0 0 1 1 1 14 1 1 1 1 1 0 1 0 0 0 1 0 0 0 0 13 0 0 0 1 1 0 0 1 0 0 1 0 1 1 13 1 1 1 1 1 0 0 1 0 1 0 0 1 0 12 1 0 0 1 1 1 0 1 0 0 0 0 1 14 0 0 0 0 0 1 1 1 1 1 0 0 0 1 0 13 0 0 1 0 1 1 1 0 1 0 1 1 0 1 14 0 1 0 1 0 1 1 0 0 0 0 0 1 0 0 6 1 1 1 1 1 0 1 14 0 0 0 1 1 0 0 0 1 1 0 1 0 0 1 13 1 1 1 1 1 1 1 0 0 1 1 1 1 1 11 0 1 1 1 1 1 0 0 1 1 1 1 13 1 1 1 0 1 1 0 0 1 1 0 0 0 0 14 1 1 0 0 1 1 1 1 1 0 1 0 1 1 0 11 1 0 0 0 0 0 0 0 1 0 1 1 14 0 1 0 0 1 0 0 1 1 1 0 1 0 1 0 11 1 0 1 1 1 0 1 0 0 1 1 0 14 0 0 1 1 1 1 1 1 1 0 1 0 1 0 0 13 0 0 0 0 1 0 0 0 1 1 1 1 1 1 13 1 0 0 0 1 0 0 1 0 1 1 0 1 1 13 1 1 1 1 1 1 1 0 1 0 0 0 0 1 13 0 1 1 0 0 0 0 0 0 1 0 1 0 1 13 1 0 0 0 0 1 1 0 0 0 0 0 1 1 13 0 0 0 1 0 0 1 1 0 0 1 1 0 1 12 1 1 1 0 1 1 1 1 1 1 1 0 0 14 1 1 1 0 1 0 1 0 0 0 0 0 0 0 1 11 0 0 1 1 0 1 0 0 0 0 0 0 14 1 1 0 1 0 0 0 0 0 1 1 1 0 1 0 14 1 1 0 0 0 0 0 1 0 1 1 0 0 1 0 14 0 1 1 0 1 0 0 1 0 1 1 1 0 1 0 13 0 1 0 1 0 1 1 0 0 0 1 1 0 1 14 1 1 0 0 0 0 0 0 0 0 1 1 0 0 0 12 1 1 0 0 0 1 0 0 0 1 1 0 1 13 1 1 1 1 1 0 1 0 0 1 1 0 1 1 12 1 1 1 0 0 1 0 0 0 0 1 0 1 13 0 1 0 1 0 0 1 0 0 1 0 0 1 0 13 0 0 1 1 1 1 1 1 0 1 1 0 1 0 14 1 0 1 0 1 0 0 0 1 0 0 1 1 0 1 13 1 0 1 0 1 0 0 0 1 0 1 0 0 0 13 0 1 0 1 1 1 0 1 0 0 1 0 1 1 8 0 0 1 0 1 0 1 1 1 11 0 1 1 1 0 1 1 1 0 1 1 0 12 1 1 1 0 0 1 1 0 1 1 0 0 0 12 1 0 0 1 1 0 0 0 1 0 0 0 1 11 1 0 1 0 0 0 1 1 1 0 1 0 12 0 0 1 1 0 1 1 1 0 0 0 1 1 9 0 0 1 1 0 1 1 0 1 0 14 1 0 1 1 0 0 1 1 1 1 0 0 0 1 0 13 1 0 1 0 0 1 1 0 0 0 0 1 1 1 12 0 0 0 1 0 0 1 1 0 0 1 1 1 10 0 1 1 0 1 0 1 0 1 1 1 14 1 1 0 0 0 0 0 1 1 0 1 0 1 1 1 14 1 0 1 1 0 1 1 0 1 0 0 0 1 1 0 14 1 1 1 1 0 0 0 0 1 1 1 1 0 0 0 13 1 1 0 0 1 0 0 0 1 0 0 1 0 1 13 0 1 0 0 1 1 1 0 1 0 1 0 1 1 14 0 0 0 0 0 0 1 1 0 1 0 0 1 0 1 14 0 1 1 1 1 1 1 1 0 1 0 1 1 0 0 13 0 0 0 0 1 1 1 0 1 0 0 1 0 1 13 0 0 0 1 1 0 0 0 0 1 1 0 0 1 10 0 0 1 0 1 1 1 0 1 1 1 12 1 1 0 0 1 0 0 0 1 0 1 1 0 13 1 0 1 0 1 1 1 1 0 0 0 1 0 0 11 0 1 0 0 0 1 1 1 0 0 0 1 13 1 1 1 0 0 0 1 0 0 1 1 0 0 0 13 0 0 0 0 1 0 0 0 1 0 0 1 0 0 13 0 1 1 0 0 0 1 0 0 1 1 0 0 1 13 0 0 0 0 0 1 0 0 0 0 0 1 1 0 12 0 0 0 1 1 1 1 1 1 0 0 0 0 14 1 1 0 1 0 0 1 0 1 1 1 0 1 0 1 11 0 1 1 1 0 1 1 0 0 0 0 1 13 0 0 1 0 0 0 0 0 1 1 0 1 1 1 13 1 1 0 1 0 0 1 1 1 1 1 0 1 1 12 1 1 0 1 1 1 1 0 0 1 1 1 0 14 1 0 1 1 1 0 1 1 1 0 1 0 0 1 1 14 0 0 0 0 1 1 1 1 1 0 0 1 1 0 0 13 1 1 1 1 0 1 1 0 1 1 1 1 0 1 14 1 0 0 0 1 1 0 1 1 1 0 0 1 0 1 12 0 0 0 0 1 1 0 1 1 1 1 0 0 10 1 0 0 0 0 0 0 1 0 1 1 14 0 0 0 1 1 0 0 0 1 0 0 0 0 1 1 14 1 0 0 0 0 1 1 1 1 0 0 0 0 0 0 13 1 0 0 0 1 1 0 0 0 1 1 1 0 0 13 1 1 1 1 1 0 1 0 0 0 1 0 0 1 14 1 0 0 1 1 0 0 1 1 0 0 1 1 1 0 14 0 1 1 0 1 1 1 0 0 0 1 1 1 0 0 14 1 1 1 0 1 1 0 0 1 0 0 1 1 1 1 13 1 1 1 0 1 0 0 0 1 0 1 1 1 0 13 0 0 0 0 1 1 0 1 0 0 0 1 1 0 13 1 0 1 0 0 1 1 0 0 1 1 1 1 0 14 0 0 1 0 1 1 0 1 0 1 0 0 1 0 0 13 0 1 0 1 1 0 0 0 0 0 1 0 0 0 14 1 0 0 0 0 0 0 0 1 1 0 1 1 0 1 13 0 1 0 0 1 0 1 1 1 1 0 1 1 0 14 1 0 1 0 1 0 1 0 1 0 1 0 0 0 1 12 1 0 1 0 0 0 0 0 1 0 1 1 1 14 0 1 1 0 0 0 0 1 1 1 1 0 0 0 1 13 1 1 1 0 0 1 1 0 0 1 1 1 1 0 12 1 1 0 1 1 1 0 1 0 0 1 1 0 12 1 0 0 1 1 1 1 1 0 1 0 0 0 14 1 1 0 1 1 1 0 1 0 1 1 1 1 1 1 14 0 0 1 0 0 0 1 1 0 0 1 0 0 0 1 12 0 1 0 1 1 1 0 1 0 1 0 0 0 14 1 1 0 1 0 1 0 0 1 0 0 0 0 1 1 12 1 1 1 1 0 1 0 1 1 1 0 1 0 14 0 1 0 0 1 0 0 0 0 1 1 0 0 1 1 14 1 0 0 0 1 0 0 1 1 1 1 1 0 0 1 10 0 1 0 1 0 0 1 1 0 0 0 14 1 1 1 1 0 0 0 0 0 1 0 0 1 0 0 10 1 0 1 1 0 0 0 1 1 0 0 8 1 1 0 0 0 1 0 1 0 14 0 1 1 1 1 1 1 0 0 0 1 0 0 1 0 14 0 0 0 1 1 1 1 0 1 0 0 1 0 1 0 14 1 1 1 1 0 0 0 1 1 0 0 1 1 1 0 13 0 1 0 1 0 1 0 1 0 1 0 1 0 1 13 1 0 1 1 0 0 1 1 0 0 1 0 0 1 14 1 0 0 1 1 1 1 0 0 1 1 1 1 0 0 13 1 1 0 1 1 1 1 1 1 0 1 1 0 0 14 0 1 1 1 0 0 0 0 1 1 0 1 1 0 0 13 1 1 1 1 1 0 0 0 1 0 1 0 1 1 13 0 0 1 0 0 1 0 0 0 0 0 1 1 1 14 1 0 0 0 1 0 0 1 1 0 1 1 0 1 1 14 1 1 1 1 1 0 0 0 1 0 0 1 0 0 1 14 0 0 0 1 1 1 0 1 0 0 1 1 1 0 0 13 0 1 1 0 0 0 1 0 1 0 0 1 0 1 13 0 0 1 0 1 1 1 1 0 0 0 0 1 1 14 0 0 1 1 1 0 0 1 0 0 0 1 0 1 0 14 0 1 1 1 1 0 1 1 1 0 0 0 0 0 0 14 1 0 0 1 0 1 1 0 1 1 0 1 1 1 0 14 1 0 0 1 1 1 0 1 1 0 1 1 0 0 0 14 1 1 1 1 1 1 0 0 1 1 0 1 0 1 1 12 1 0 1 0 1 1 0 0 0 1 0 0 1 14 1 1 0 0 1 0 0 1 0 1 1 0 0 0 1 14 0 1 1 0 1 1 1 1 0 0 1 1 0 0 1 12 0 1 0 0 1 0 1 0 1 0 0 1 1 13 1 1 0 1 0 0 0 1 1 0 0 1 1 0 13 0 0 1 0 1 0 1 0 0 0 0 0 0 0 14 1 0 0 0 0 0 1 1 1 0 0 0 0 1 1 14 0 0 1 0 0 0 1 0 1 1 1 0 0 0 0 14 0 1 0 0 1 0 0 1 0 0 1 1 0 0 1 14 0 1 1 0 0 0 1 1 0 0 0 1 1 1 1 14 1 1 0 1 0 1 0 1 0 1 0 0 1 0 0 14 0 0 1 0 1 1 1 0 1 0 0 1 0 1 1 12 0 1 0 0 0 1 1 1 1 0 1 1 1 12 0 0 1 0 1 0 0 1 0 1 1 0 1 13 0 1 1 1 1 0 1 1 0 0 0 0 0 0 14 1 0 1 1 0 1 0 0 0 1 0 1 1 0 0 12 0 0 1 0 0 0 0 0 0 0 0 0 1 14 0 0 0 1 1 0 0 1 1 0 1 0 0 0 0 14 1 0 1 0 0 0 0 1 0 0 1 1 0 0 1 14 1 0 0 1 1 1 1 1 1 1 1 1 1 0 1 12 0 0 0 1 0 0 1 1 1 0 1 1 0 11 0 1 1 0 0 1 0 0 0 0 0 1 13 1 1 0 0 1 0 1 1 1 0 1 0 1 1 11 0 0 1 0 0 1 1 0 0 1 1 1 12 0 1 0 1 1 0 0 0 1 0 1 1 1 14 0 0 1 0 0 1 1 1 1 0 1 0 1 0 0 12 1 0 1 1 1 0 0 0 0 1 0 1 1 14 0 1 0 0 0 0 0 0 0 0 0 1 1 0 1 14 0 0 0 1 1 0 0 1 1 1 1 0 0 1 1 14 1 0 1 1 0 1 1 0 1 1 0 0 1 1 0 12 0 0 0 0 1 0 1 1 0 0 1 0 0 14 0 1 1 0 1 0 0 0 1 1 0 0 1 1 1 14 1 1 1 0 1 1 0 1 0 0 1 0 1 1 0 14 0 0 1 1 1 0 1 0 0 1 1 0 1 0 0 14 1 0 0 0 1 0 0 0 0 1 0 1 0 0 0 14 1 1 0 0 0 1 0 1 1 1 1 1 1 1 0 13 1 1 1 0 1 0 1 1 1 0 0 0 1 1 13 0 1 0 1 1 0 0 0 0 1 0 0 1 1 12 0 1 1 1 1 1 1 1 1 1 1 0 0 14 0 1 1 0 1 0 1 0 0 1 1 0 1 1 1 11 0 0 0 0 0 0 1 1 1 0 0 0 14 1 1 1 0 0 0 0 0 1 0 0 0 0 1 1 14 1 1 0 0 1 1 1 0 0 1 0 0 0 0 1 13 0 0 1 0 0 1 0 1 1 1 0 1 1 0 10 1 1 1 1 0 1 1 1 1 1 1 14 1 1 0 1 0 1 1 0 0 0 0 1 1 1 1 13 1 0 1 1 1 1 0 0 0 0 1 0 0 0 12 0 1 1 1 0 1 1 0 1 1 1 1 0 13 0 0 0 0 1 0 1 1 1 1 1 0 1 1 14 1 1 1 0 0 0 0 1 1 1 0 0 1 0 0 14 1 0 1 0 1 1 1 1 1 0 1 1 0 0 1 13 1 1 0 1 1 0 1 1 1 0 0 1 0 1 6 1 1 1 1 0 0 0 13 0 1 0 1 0 1 1 1 1 0 0 0 0 1 14 1 1 0 0 1 0 0 0 0 0 0 0 1 1 1 13 1 1 1 1 0 1 1 0 0 0 0 0 0 1 14 1 1 0 0 0 1 1 1 1 0 1 1 0 1 1 13 0 1 0 1 0 1 0 0 0 0 1 0 0 0 14 1 0 0 0 1 0 1 0 0 0 1 0 0 1 1 14 0 1 0 0 1 1 1 1 0 1 0 0 1 1 1 13 1 0 0 0 1 0 0 0 1 0 0 0 1 0 14 1 0 0 1 1 0 1 0 1 0 1 1 1 0 1 14 0 0 1 0 0 1 0 1 0 0 0 1 0 1 0 11 1 1 1 1 0 0 0 1 0 0 0 1 12 0 1 1 1 1 0 1 0 1 0 1 0 0 14 0 1 0 0 1 1 1 1 1 1 1 0 0 1 1 14 1 0 0 0 0 1 0 0 1 0 1 0 1 1 1 14 1 0 0 0 0 0 1 1 0 1 0 0 0 1 0 10 0 1 1 0 0 1 0 0 1 0 1 11 0 0 1 1 1 0 0 1 0 0 0 1 14 1 0 0 1 0 0 1 0 0 0 0 1 1 1 0 13 1 0 0 1 0 0 1 0 0 1 1 1 1 0 12 0 1 1 0 0 0 0 1 1 0 1 1 1 9 0 1 0 0 0 0 0 1 0 0 11 1 1 0 0 0 1 0 1 1 1 0 0 13 0 1 1 1 1 1 0 0 1 0 1 1 0 1 13 1 0 1 0 1 0 1 0 1 0 1 1 0 1 13 1 0 1 0 1 1 0 0 0 1 0 0 1 1 14 1 0 1 1 1 0 1 0 1 1 1 1 0 0 1 10 0 0 0 0 1 0 0 0 1 1 0 14 0 1 0 1 0 0 0 0 1 1 1 1 1 0 0 14 1 1 1 1 0 0 1 0 1 0 0 1 1 0 1 13 1 0 0 0 0 0 1 0 0 0 0 0 1 1 14 0 0 1 1 1 0 1 0 0 1 1 0 1 1 0 14 0 0 1 0 1 1 1 0 1 1 0 1 1 1 0 14 0 1 0 1 1 1 0 1 0 0 1 0 1 1 0 14 1 1 1 1 1 0 1 1 1 0 0 1 1 0 0 14 0 1 0 1 1 0 1 0 0 1 0 0 0 1 0 11 1 1 1 0 0 1 0 1 0 1 0 1 14 1 1 0 1 0 0 1 1 0 0 0 1 1 1 1 13 1 0 0 0 1 1 1 1 0 1 1 1 1 1 14 1 0 1 0 1 0 1 0 1 1 0 0 1 0 0 14 1 0 1 1 1 1 0 0 0 0 0 1 1 0 1 14 1 1 1 0 0 1 1 0 0 0 0 0 1 0 0 14 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 13 0 1 0 1 1 0 1 1 1 0 1 0 1 0 14 1 1 0 1 0 1 1 0 0 0 0 1 0 0 1 11 0 0 1 0 0 0 1 0 1 1 1 1 12 1 1 1 1 0 0 1 0 0 1 1 1 1 13 1 0 1 0 0 0 0 1 1 1 1 0 1 0 13 0 1 1 0 1 0 0 1 1 1 0 0 0 1 14 1 0 1 1 0 1 0 1 1 1 1 0 0 0 0 12 1 1 1 0 1 0 0 1 0 0 0 1 1 13 1 1 1 1 1 0 1 1 1 1 0 1 1 1 14 0 1 1 1 0 0 1 0 0 1 1 0 0 0 0 10 1 1 0 1 1 0 1 0 1 1 1 14 1 1 0 0 0 1 1 1 0 0 1 1 0 1 0 14 1 0 1 0 0 1 0 0 0 1 1 1 1 0 0 11 1 1 0 1 1 1 1 1 1 1 0 1 13 1 0 0 1 0 1 1 0 0 0 1 1 0 0 9 1 0 1 0 0 0 0 0 0 0 14 1 1 1 1 1 0 1 0 0 0 1 1 1 0 0 14 1 0 1 1 1 1 0 1 0 1 0 0 0 1 1 13 0 1 0 1 0 1 0 1 0 0 1 1 0 0 13 1 0 1 1 0 1 1 1 0 0 1 0 1 1 13 0 1 1 0 1 0 0 1 1 1 1 0 1 1 13 0 1 1 1 1 1 1 1 1 0 1 0 0 0 14 1 0 0 0 0 1 0 0 1 0 0 1 1 0 1 14 0 1 0 1 0 0 0 0 0 0 1 0 1 0 0 12 0 0 1 0 1 0 0 1 1 0 1 1 0 14 0 1 0 1 0 1 1 1 0 1 0 0 0 0 0 13 0 0 1 0 0 1 0 0 0 0 1 0 1 1 12 1 0 0 1 1 1 1 0 1 0 1 1 0 14 1 1 0 1 0 1 1 0 1 0 1 1 1 1 0 12 0 1 1 0 1 1 0 0 1 1 1 0 0 12 0 1 0 1 0 0 0 0 1 1 0 1 0 13 0 1 1 1 0 0 0 0 0 0 1 0 1 1 14 1 1 0 1 1 1 1 0 1 0 0 0 1 0 0 14 0 1 0 0 1 1 1 1 1 1 0 1 1 1 1 14 1 1 0 0 1 1 0 0 0 1 1 0 1 0 0 14 1 1 1 1 1 0 1 1 0 1 1 1 0 0 0 8 0 0 0 0 0 0 0 0 0 14 1 0 1 0 1 0 0 1 1 0 1 0 1 0 0 13 1 0 0 0 1 1 1 0 1 1 1 1 1 0 13 1 0 1 1 0 0 1 0 1 1 1 1 1 1 14 0 0 0 0 1 1 1 0 1 0 1 1 0 0 1 13 1 1 0 1 1 1 0 0 0 1 0 0 0 1 14 1 0 1 0 0 0 0 0 1 0 0 0 0 1 1 13 1 0 0 1 0 0 0 0 0 0 1 1 0 1 14 1 1 1 0 1 1 1 1 1 1 0 0 0 0 1 14 0 0 0 0 0 1 0 0 1 1 1 0 0 1 1 14 1 0 0 0 0 1 1 0 0 1 0 0 0 1 1 14 0 0 0 1 1 0 1 0 1 0 1 0 0 1 1 12 1 0 0 0 1 1 0 0 0 0 0 1 1 13 0 0 0 0 0 0 0 0 1 1 0 0 0 0 10 1 0 0 0 0 0 0 0 0 0 0 11 1 1 1 1 0 0 0 0 0 0 0 0 14 0 1 1 0 0 0 1 0 1 0 1 0 1 1 0 14 0 1 0 1 1 0 0 1 1 1 0 0 0 1 0 14 1 0 1 0 1 0 0 0 0 1 0 0 1 0 1 13 1 1 0 0 0 1 0 0 1 0 0 0 1 0 13 0 0 0 1 0 0 1 0 0 1 1 0 1 0 12 1 0 1 0 0 0 0 0 0 1 0 1 0 12 0 1 0 1 0 0 0 1 1 0 0 1 0 13 1 0 0 0 0 0 0 0 1 0 0 0 1 1 12 0 0 0 0 1 0 1 1 1 1 0 0 1 14 0 0 1 0 0 0 0 1 0 1 0 1 0 0 0 10 0 1 0 1 0 1 1 0 0 0 0 7 0 0 1 0 0 1 1 0 14 0 1 1 1 0 0 0 0 0 0 0 1 0 1 1 14 0 0 1 1 1 0 1 0 1 1 0 0 0 1 1 13 1 0 0 1 1 1 1 0 1 1 0 0 1 0 13 1 0 0 0 0 1 0 1 0 0 0 1 0 1 12 0 0 0 1 0 1 0 0 0 0 0 1 0 14 1 1 1 1 0 1 1 0 1 1 1 1 0 0 0 14 1 0 1 0 1 0 0 1 0 0 0 0 1 1 1 9 1 1 1 0 1 1 1 1 1 1 13 1 0 1 0 0 1 0 1 0 1 1 1 1 1 12 1 1 1 0 0 0 0 0 1 1 0 1 1 14 1 0 1 1 1 0 1 1 1 1 0 0 1 1 1 13 0 1 0 0 0 0 1 1 0 0 0 1 0 0 13 0 1 0 0 1 0 1 1 0 0 0 0 1 0 11 0 0 0 1 1 0 1 1 0 1 0 1 11 0 0 0 1 0 0 1 1 0 0 0 1 14 1 0 0 0 1 0 0 0 1 0 0 1 0 0 1 14 1 0 1 1 0 1 1 0 1 0 0 0 0 1 1 13 1 1 0 0 1 1 1 1 0 0 0 0 0 1 11 0 0 1 1 1 0 0 1 1 1 0 0 13 1 1 0 1 0 0 0 0 0 0 0 1 0 0 14 0 1 1 0 0 0 0 0 1 0 1 1 1 1 0 13 1 1 0 1 1 1 0 1 0 1 1 0 0 0 14 1 0 1 1 1 0 0 1 1 1 1 0 0 1 0 13 0 1 1 0 0 1 0 0 0 0 0 0 0 0 14 0 0 1 1 1 0 1 0 1 0 1 1 0 1 1 12 1 0 0 1 1 0 0 0 0 1 1 1 1 13 1 1 1 1 0 1 1 0 1 0 0 1 0 1 10 1 1 1 1 0 0 1 1 1 0 0 14 0 1 0 1 1 1 1 0 1 0 1 1 1 1 0 14 0 1 1 0 0 0 0 0 1 1 1 0 1 0 0 13 1 0 0 1 1 1 0 1 1 0 1 1 0 0 14 0 1 1 0 0 1 1 1 0 0 0 0 1 0 1 14 1 1 1 0 1 1 0 0 0 0 1 0 1 1 1 14 1 1 1 1 1 1 1 1 0 0 0 0 1 0 0 12 1 1 1 1 0 0 0 1 1 0 1 0 0 14 1 1 0 0 1 0 0 0 0 1 1 0 1 1 0 14 0 1 1 0 0 1 1 0 0 1 0 0 1 0 0 14 0 0 0 1 1 1 1 1 1 0 0 0 1 1 0 14 0 0 1 1 1 1 1 0 1 1 1 1 1 1 1 12 1 0 1 1 0 1 1 1 0 1 0 0 1 7 0 0 0 0 1 0 0 1 14 0 0 0 0 1 0 0 1 0 1 0 0 0 1 0 14 0 0 1 0 0 0 1 1 1 1 0 0 0 1 1 14 0 1 0 1 1 0 1 0 0 0 1 0 1 1 1 14 0 1 0 1 1 0 1 0 1 1 0 0 1 0 0 14 1 1 0 1 0 0 0 0 1 0 1 0 1 0 0 11 1 1 0 1 1 0 1 1 0 1 1 1 11 1 1 0 1 1 0 0 0 1 0 0 0 14 0 1 1 0 1 0 1 0 0 1 0 1 0 1 1 14 1 0 0 0 1 1 0 1 0 1 0 0 1 1 0 14 1 0 0 1 1 1 1 1 0 0 0 1 1 0 0 13 1 0 0 1 0 1 0 1 0 0 1 0 1 1 14 0 1 0 0 1 1 1 0 1 1 1 1 0 1 1 14 1 1 1 1 0 1 0 0 0 0 0 1 1 0 1 14 1 0 1 0 1 0 0 1 1 1 1 0 1 1 0 13 0 0 1 0 0 1 1 1 1 1 1 1 0 0 10 1 1 1 0 1 1 0 1 1 0 1 14 0 1 0 0 0 0 1 0 0 0 0 0 0 0 1 13 0 1 0 0 0 0 1 0 0 1 1 1 1 0 12 0 0 0 1 1 1 0 0 0 0 1 1 1 13 0 0 0 1 0 0 0 0 1 0 0 0 0 0 11 0 1 0 0 1 0 0 1 0 0 0 0 12 1 1 0 1 0 0 1 0 0 1 1 1 0 11 1 1 1 1 1 1 1 1 0 0 0 1 14 1 0 0 0 1 1 1 0 0 1 0 1 1 0 1 13 0 1 1 0 1 1 1 1 0 0 0 1 0 0 14 1 0 0 1 0 1 1 0 0 1 0 0 0 1 1 14 0 1 0 1 0 0 1 0 0 0 1 0 0 1 0 14 1 0 1 1 0 0 1 0 0 0 1 1 1 1 1 13 0 1 1 0 1 1 0 1 1 1 0 1 0 0 12 1 1 0 0 1 0 0 1 0 1 0 1 0 14 1 0 1 1 0 0 0 0 0 1 0 1 1 0 1 14 1 0 1 1 0 0 0 0 1 1 0 0 0 1 1 13 0 1 1 1 1 0 1 1 1 0 1 0 1 1 13 0 0 0 0 1 0 0 1 0 0 1 0 0 1 13 1 1 1 1 1 1 0 0 0 0 0 1 0 0 11 0 0 1 0 0 1 1 1 1 0 1 1 14 1 1 0 0 1 0 1 1 1 1 1 1 1 0 1 14 1 1 0 1 0 0 0 1 1 0 1 1 0 0 0 13 0 0 1 0 1 1 0 0 1 0 0 1 1 1 13 1 0 0 1 0 0 0 0 1 1 1 1 1 1 14 1 1 0 0 1 0 0 0 1 0 0 1 1 0 0 14 0 0 0 0 1 1 0 0 0 0 1 1 1 0 1 14 1 1 0 1 0 1 0 1 1 1 0 0 0 0 1 13 1 1 0 1 1 1 1 1 0 0 0 1 0 0 14 1 0 1 1 0 0 1 1 1 1 0 1 0 0 0 12 0 0 0 1 0 1 1 0 0 0 0 1 0 14 1 1 1 1 1 0 1 0 1 0 0 1 1 0 0 14 1 1 0 1 1 0 0 0 1 0 0 1 0 1 0 14 1 0 0 0 0 1 0 1 1 0 0 1 0 0 1 14 0 1 1 0 0 0 0 0 1 1 1 1 1 1 1 14 0 1 0 0 1 1 1 0 1 0 0 1 1 0 1 14 1 1 0 1 0 1 0 0 1 1 1 0 1 1 0 13 0 1 0 0 1 0 0 0 0 0 0 0 0 0 13 0 1 1 0 1 0 0 0 0 0 0 0 0 0 14 1 1 0 0 1 0 0 1 0 1 0 1 0 1 0 13 1 0 1 1 0 1 0 0 1 0 1 1 0 0 14 1 0 0 0 0 1 0 0 1 1 1 0 0 1 1 11 1 1 0 0 0 1 0 0 0 0 0 1 13 0 1 0 0 1 1 1 0 0 0 0 0 0 1 13 1 1 1 1 0 0 1 0 0 0 1 1 0 0 10 0 0 1 1 1 0 0 1 0 0 0 11 0 0 0 1 0 1 1 1 1 0 1 1 14 0 0 0 0 0 1 0 0 0 1 0 1 0 0 1 14 1 1 0 0 0 0 1 1 1 1 1 0 0 0 1 14 1 0 1 1 1 0 0 1 1 0 1 1 0 1 0 13 1 1 0 0 0 1 0 0 0 1 0 1 0 1 7 0 0 0 1 1 1 0 1 14 0 0 1 1 1 1 1 0 0 0 0 0 1 1 1 12 0 1 1 0 0 0 0 1 1 0 1 0 1 14 1 0 1 0 1 0 0 0 1 1 1 1 1 0 1 14 0 0 0 1 1 1 0 1 0 1 1 1 0 1 1 13 1 0 0 0 0 0 0 0 1 0 1 1 0 0 13 0 1 0 1 0 1 1 1 1 1 0 0 0 0 13 0 1 0 1 1 1 0 0 1 0 1 1 0 1 14 1 1 1 1 0 1 1 0 0 1 1 0 1 1 1 13 0 0 0 0 1 0 1 0 1 1 0 1 0 0 13 1 1 0 0 0 0 1 1 1 1 0 1 1 0 14 1 0 1 0 0 0 1 1 1 0 1 1 1 1 1 14 1 1 0 0 0 0 1 1 0 0 0 1 0 0 1 14 1 1 0 1 1 0 1 1 1 0 1 0 1 1 1 10 1 1 1 0 1 1 0 0 1 0 0 10 0 1 0 1 1 0 0 1 1 0 0 14 1 0 0 1 1 0 1 0 1 1 1 1 1 0 1 13 1 1 1 1 1 0 1 1 0 1 0 0 1 0 13 0 0 1 1 0 1 0 0 0 1 1 0 0 1 13 0 0 1 0 1 1 1 0 0 1 0 1 0 0 13 0 0 0 0 0 0 0 1 0 0 0 0 0 0 13 1 1 1 0 0 0 0 0 0 0 0 0 0 0 13 1 1 1 1 0 0 1 0 0 0 1 0 0 1 13 1 0 0 0 0 1 1 0 1 0 1 1 0 1 13 0 0 1 1 0 0 0 1 1 1 1 0 1 1 14 0 1 1 1 0 1 1 1 0 1 1 1 1 1 0 14 0 1 1 1 1 0 1 0 1 0 0 1 1 0 0 12 0 1 0 0 1 1 0 0 1 0 0 0 0 14 0 0 0 1 0 0 1 1 1 1 1 0 0 1 0 11 0 1 1 0 0 0 1 0 0 1 0 stalin-0.11/benchmarks/scheme.sc0000600017435200151030000010267107063211724015312 0ustar qobiqobi(define (run-benchmark name count run ok?) (if (not (ok? (run-bench name count run ok?))) (begin (display "*** wrong result ***") (newline)) (begin (display "*** right result ***") (newline)))) (define (run-bench name count run ok?) (let loop ((i 0) (result (list 'undefined))) (if (< i count) (loop (+ i 1) (run)) result))) (define (fatal-error . args) (for-each display args) (newline)) ;;; SCHEME -- A Scheme interpreter evaluating TAKL, written by Marc Feeley. ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (scheme-eval expr) (let ((code (scheme-comp expr scheme-global-environment))) (code #f))) (define scheme-global-environment (cons '() ; environment chain '())) ; macros (define (scheme-add-macro name proc) (set-cdr! scheme-global-environment (cons (cons name proc) (cdr scheme-global-environment))) name) (define (scheme-error msg . args) (fatal-error msg args)) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (lst->vector l) (let* ((n (length l)) (v (make-vector n))) (let loop ((l l) (i 0)) (if (pair? l) (begin (vector-set! v i (car l)) (loop (cdr l) (+ i 1))) v)))) (define (vector->lst v) (let loop ((l '()) (i (- (vector-length v) 1))) (if (< i 0) l (loop (cons (vector-ref v i) l) (- i 1))))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define scheme-syntactic-keywords '(quote quasiquote unquote unquote-splicing lambda if set! cond => else and or case let let* letrec begin do define define-macro)) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (push-frame frame env) (if (null? frame) env (cons (cons (car env) frame) (cdr env)))) (define (lookup-var name env) (let loop1 ((chain (car env)) (up 0)) (if (null? chain) name (let loop2 ((chain chain) (up up) (frame (cdr chain)) (over 1)) (cond ((null? frame) (loop1 (car chain) (+ up 1))) ((eq? (car frame) name) (cons up over)) (else (loop2 chain up (cdr frame) (+ over 1)))))))) (define (macro? name env) (assq name (cdr env))) (define (push-macro name proc env) (cons (car env) (cons (cons name proc) (cdr env)))) (define (lookup-macro name env) (cdr (assq name (cdr env)))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (variable x) (if (not (symbol? x)) (scheme-error "Identifier expected" x)) (if (memq x scheme-syntactic-keywords) (scheme-error "Variable name can not be a syntactic keyword" x))) (define (shape form n) (let loop ((form form) (n n) (l form)) (cond ((<= n 0)) ((pair? l) (loop form (- n 1) (cdr l))) (else (scheme-error "Ill-constructed form" form))))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (macro-expand expr env) (apply (lookup-macro (car expr) env) (cdr expr))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (comp-var expr env) (variable expr) (gen-var-ref (lookup-var expr env))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (comp-self-eval expr env) (gen-cst expr)) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (comp-quote expr env) (shape expr 2) (gen-cst (cadr expr))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (comp-quasiquote expr env) (comp-quasiquotation (cadr expr) 1 env)) (define (comp-quasiquotation form level env) (cond ((= level 0) (scheme-comp form env)) ((pair? form) (cond ((eq? (car form) 'quasiquote) (comp-quasiquotation-list form (+ level 1) env)) ((eq? (car form) 'unquote) (if (= level 1) (scheme-comp (cadr form) env) (comp-quasiquotation-list form (- level 1) env))) ((eq? (car form) 'unquote-splicing) (if (= level 1) (scheme-error "Ill-placed 'unquote-splicing'" form)) (comp-quasiquotation-list form (- level 1) env)) (else (comp-quasiquotation-list form level env)))) ((vector? form) (gen-vector-form (comp-quasiquotation-list (vector->lst form) level env))) (else (gen-cst form)))) (define (comp-quasiquotation-list l level env) (if (pair? l) (let ((first (car l))) (if (= level 1) (if (unquote-splicing? first) (begin (shape first 2) (gen-append-form (scheme-comp (cadr first) env) (comp-quasiquotation (cdr l) 1 env))) (gen-cons-form (comp-quasiquotation first level env) (comp-quasiquotation (cdr l) level env))) (gen-cons-form (comp-quasiquotation first level env) (comp-quasiquotation (cdr l) level env)))) (comp-quasiquotation l level env))) (define (unquote-splicing? x) (if (pair? x) (if (eq? (car x) 'unquote-splicing) #t #f) #f)) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (comp-unquote expr env) (scheme-error "Ill-placed 'unquote'" expr)) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (comp-unquote-splicing expr env) (scheme-error "Ill-placed 'unquote-splicing'" expr)) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (comp-set! expr env) (shape expr 3) (variable (cadr expr)) (gen-var-set (lookup-var (cadr expr) env) (scheme-comp (caddr expr) env))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (comp-lambda expr env) (shape expr 3) (let ((parms (cadr expr))) (let ((frame (parms->frame parms))) (let ((nb-vars (length frame)) (code (comp-body (cddr expr) (push-frame frame env)))) (if (rest-param? parms) (gen-lambda-rest nb-vars code) (gen-lambda nb-vars code)))))) (define (parms->frame parms) (cond ((null? parms) '()) ((pair? parms) (let ((x (car parms))) (variable x) (cons x (parms->frame (cdr parms))))) (else (variable parms) (list parms)))) (define (rest-param? parms) (cond ((pair? parms) (rest-param? (cdr parms))) ((null? parms) #f) (else #t))) (define (comp-body body env) (define (letrec-defines vars vals body env) (if (pair? body) (let ((expr (car body))) (cond ((not (pair? expr)) (letrec-defines* vars vals body env)) ((macro? (car expr) env) (letrec-defines vars vals (cons (macro-expand expr env) (cdr body)) env)) (else (cond ((eq? (car expr) 'begin) (letrec-defines vars vals (append (cdr expr) (cdr body)) env)) ((eq? (car expr) 'define) (let ((x (definition-name expr))) (variable x) (letrec-defines (cons x vars) (cons (definition-value expr) vals) (cdr body) env))) ((eq? (car expr) 'define-macro) (let ((x (definition-name expr))) (letrec-defines vars vals (cdr body) (push-macro x (scheme-eval (definition-value expr)) env)))) (else (letrec-defines* vars vals body env)))))) (scheme-error "Body must contain at least one evaluable expression"))) (define (letrec-defines* vars vals body env) (if (null? vars) (comp-sequence body env) (comp-letrec-aux vars vals body env))) (letrec-defines '() '() body env)) (define (definition-name expr) (shape expr 3) (let ((pattern (cadr expr))) (let ((name (if (pair? pattern) (car pattern) pattern))) (if (not (symbol? name)) (scheme-error "Identifier expected" name)) name))) (define (definition-value expr) (let ((pattern (cadr expr))) (if (pair? pattern) (cons 'lambda (cons (cdr pattern) (cddr expr))) (caddr expr)))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (comp-if expr env) (shape expr 3) (let ((code1 (scheme-comp (cadr expr) env)) (code2 (scheme-comp (caddr expr) env))) (if (pair? (cdddr expr)) (gen-if code1 code2 (scheme-comp (cadddr expr) env)) (gen-when code1 code2)))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (comp-cond expr env) (comp-cond-aux (cdr expr) env)) (define (comp-cond-aux clauses env) (if (pair? clauses) (let ((clause (car clauses))) (shape clause 1) (cond ((eq? (car clause) 'else) (shape clause 2) (comp-sequence (cdr clause) env)) ((not (pair? (cdr clause))) (gen-or (scheme-comp (car clause) env) (comp-cond-aux (cdr clauses) env))) ((eq? (cadr clause) '=>) (shape clause 3) (gen-cond-send (scheme-comp (car clause) env) (scheme-comp (caddr clause) env) (comp-cond-aux (cdr clauses) env))) (else (gen-if (scheme-comp (car clause) env) (comp-sequence (cdr clause) env) (comp-cond-aux (cdr clauses) env))))) (gen-cst '()))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (comp-and expr env) (let ((rest (cdr expr))) (if (pair? rest) (comp-and-aux rest env) (gen-cst #t)))) (define (comp-and-aux l env) (let ((code (scheme-comp (car l) env)) (rest (cdr l))) (if (pair? rest) (gen-and code (comp-and-aux rest env)) code))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (comp-or expr env) (let ((rest (cdr expr))) (if (pair? rest) (comp-or-aux rest env) (gen-cst #f)))) (define (comp-or-aux l env) (let ((code (scheme-comp (car l) env)) (rest (cdr l))) (if (pair? rest) (gen-or code (comp-or-aux rest env)) code))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (comp-case expr env) (shape expr 3) (gen-case (scheme-comp (cadr expr) env) (comp-case-aux (cddr expr) env))) (define (comp-case-aux clauses env) (if (pair? clauses) (let ((clause (car clauses))) (shape clause 2) (if (eq? (car clause) 'else) (gen-case-else (comp-sequence (cdr clause) env)) (gen-case-clause (car clause) (comp-sequence (cdr clause) env) (comp-case-aux (cdr clauses) env)))) (gen-case-else (gen-cst '())))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (comp-let expr env) (shape expr 3) (let ((x (cadr expr))) (cond ((symbol? x) (shape expr 4) (let ((y (caddr expr))) (let ((proc (cons 'lambda (cons (bindings->vars y) (cdddr expr))))) (scheme-comp (cons (list 'letrec (list (list x proc)) x) (bindings->vals y)) env)))) ((pair? x) (scheme-comp (cons (cons 'lambda (cons (bindings->vars x) (cddr expr))) (bindings->vals x)) env)) (else (comp-body (cddr expr) env))))) (define (bindings->vars bindings) (if (pair? bindings) (let ((binding (car bindings))) (shape binding 2) (let ((x (car binding))) (variable x) (cons x (bindings->vars (cdr bindings))))) '())) (define (bindings->vals bindings) (if (pair? bindings) (let ((binding (car bindings))) (cons (cadr binding) (bindings->vals (cdr bindings)))) '())) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (comp-let* expr env) (shape expr 3) (let ((bindings (cadr expr))) (if (pair? bindings) (scheme-comp (list 'let (list (car bindings)) (cons 'let* (cons (cdr bindings) (cddr expr)))) env) (comp-body (cddr expr) env)))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (comp-letrec expr env) (shape expr 3) (let ((bindings (cadr expr))) (comp-letrec-aux (bindings->vars bindings) (bindings->vals bindings) (cddr expr) env))) (define (comp-letrec-aux vars vals body env) (if (pair? vars) (let ((new-env (push-frame vars env))) (gen-letrec (comp-vals vals new-env) (comp-body body new-env))) (comp-body body env))) (define (comp-vals l env) (if (pair? l) (cons (scheme-comp (car l) env) (comp-vals (cdr l) env)) '())) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (comp-begin expr env) (shape expr 2) (comp-sequence (cdr expr) env)) (define (comp-sequence exprs env) (if (pair? exprs) (comp-sequence-aux exprs env) (gen-cst '()))) (define (comp-sequence-aux exprs env) (let ((code (scheme-comp (car exprs) env)) (rest (cdr exprs))) (if (pair? rest) (gen-sequence code (comp-sequence-aux rest env)) code))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (comp-do expr env) (shape expr 3) (let ((bindings (cadr expr)) (exit (caddr expr))) (shape exit 1) (let* ((vars (bindings->vars bindings)) (new-env1 (push-frame '(#f) env)) (new-env2 (push-frame vars new-env1))) (gen-letrec (list (gen-lambda (length vars) (gen-if (scheme-comp (car exit) new-env2) (comp-sequence (cdr exit) new-env2) (gen-sequence (comp-sequence (cdddr expr) new-env2) (gen-combination (gen-var-ref '(1 . 1)) (comp-vals (bindings->steps bindings) new-env2)))))) (gen-combination (gen-var-ref '(0 . 1)) (comp-vals (bindings->vals bindings) new-env1)))))) (define (bindings->steps bindings) (if (pair? bindings) (let ((binding (car bindings))) (cons (if (pair? (cddr binding)) (caddr binding) (car binding)) (bindings->steps (cdr bindings)))) '())) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (comp-define expr env) (shape expr 3) (let ((pattern (cadr expr))) (let ((x (if (pair? pattern) (car pattern) pattern))) (variable x) (gen-sequence (gen-var-set (lookup-var x env) (scheme-comp (if (pair? pattern) (cons 'lambda (cons (cdr pattern) (cddr expr))) (caddr expr)) env)) (gen-cst x))))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (comp-define-macro expr env) (let ((x (definition-name expr))) (gen-macro x (scheme-eval (definition-value expr))))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (comp-combination expr env) (gen-combination (scheme-comp (car expr) env) (comp-vals (cdr expr) env))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (gen-var-ref var) (if (pair? var) (gen-rte-ref (car var) (cdr var)) (gen-glo-ref (scheme-global-var var)))) (define (gen-rte-ref up over) (case up ((0) (gen-slot-ref-0 over)) ((1) (gen-slot-ref-1 over)) (else (gen-slot-ref-up-2 (gen-rte-ref (- up 2) over))))) (define (gen-slot-ref-0 i) (case i ((0) (lambda (rte) (vector-ref rte 0))) ((1) (lambda (rte) (vector-ref rte 1))) ((2) (lambda (rte) (vector-ref rte 2))) ((3) (lambda (rte) (vector-ref rte 3))) (else (lambda (rte) (vector-ref rte i))))) (define (gen-slot-ref-1 i) (case i ((0) (lambda (rte) (vector-ref (vector-ref rte 0) 0))) ((1) (lambda (rte) (vector-ref (vector-ref rte 0) 1))) ((2) (lambda (rte) (vector-ref (vector-ref rte 0) 2))) ((3) (lambda (rte) (vector-ref (vector-ref rte 0) 3))) (else (lambda (rte) (vector-ref (vector-ref rte 0) i))))) (define (gen-slot-ref-up-2 code) (lambda (rte) (code (vector-ref (vector-ref rte 0) 0)))) (define (gen-glo-ref i) (lambda (rte) (scheme-global-var-ref i))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (gen-cst val) (case val ((()) (lambda (rte) '())) ((#f) (lambda (rte) #f)) ((#t) (lambda (rte) #t)) ((-2) (lambda (rte) -2)) ((-1) (lambda (rte) -1)) ((0) (lambda (rte) 0)) ((1) (lambda (rte) 1)) ((2) (lambda (rte) 2)) (else (lambda (rte) val)))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (gen-append-form code1 code2) (lambda (rte) (append (code1 rte) (code2 rte)))) (define (gen-cons-form code1 code2) (lambda (rte) (cons (code1 rte) (code2 rte)))) (define (gen-vector-form code) (lambda (rte) (lst->vector (code rte)))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (gen-var-set var code) (if (pair? var) (gen-rte-set (car var) (cdr var) code) (gen-glo-set (scheme-global-var var) code))) (define (gen-rte-set up over code) (case up ((0) (gen-slot-set-0 over code)) ((1) (gen-slot-set-1 over code)) (else (gen-slot-set-n (gen-rte-ref (- up 2) 0) over code)))) (define (gen-slot-set-0 i code) (case i ((0) (lambda (rte) (vector-set! rte 0 (code rte)))) ((1) (lambda (rte) (vector-set! rte 1 (code rte)))) ((2) (lambda (rte) (vector-set! rte 2 (code rte)))) ((3) (lambda (rte) (vector-set! rte 3 (code rte)))) (else (lambda (rte) (vector-set! rte i (code rte)))))) (define (gen-slot-set-1 i code) (case i ((0) (lambda (rte) (vector-set! (vector-ref rte 0) 0 (code rte)))) ((1) (lambda (rte) (vector-set! (vector-ref rte 0) 1 (code rte)))) ((2) (lambda (rte) (vector-set! (vector-ref rte 0) 2 (code rte)))) ((3) (lambda (rte) (vector-set! (vector-ref rte 0) 3 (code rte)))) (else (lambda (rte) (vector-set! (vector-ref rte 0) i (code rte)))))) (define (gen-slot-set-n up i code) (case i ((0) (lambda (rte) (vector-set! (up (vector-ref rte 0)) 0 (code rte)))) ((1) (lambda (rte) (vector-set! (up (vector-ref rte 0)) 1 (code rte)))) ((2) (lambda (rte) (vector-set! (up (vector-ref rte 0)) 2 (code rte)))) ((3) (lambda (rte) (vector-set! (up (vector-ref rte 0)) 3 (code rte)))) (else (lambda (rte) (vector-set! (up (vector-ref rte 0)) i (code rte)))))) (define (gen-glo-set i code) (lambda (rte) (scheme-global-var-set! i (code rte)))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (gen-lambda-rest nb-vars body) (case nb-vars ((1) (gen-lambda-1-rest body)) ((2) (gen-lambda-2-rest body)) ((3) (gen-lambda-3-rest body)) (else (gen-lambda-n-rest nb-vars body)))) (define (gen-lambda-1-rest body) (lambda (rte) (lambda a (body (vector rte a))))) (define (gen-lambda-2-rest body) (lambda (rte) (lambda (a . b) (body (vector rte a b))))) (define (gen-lambda-3-rest body) (lambda (rte) (lambda (a b . c) (body (vector rte a b c))))) (define (gen-lambda-n-rest nb-vars body) (lambda (rte) (lambda (a b c . d) (let ((x (make-vector (+ nb-vars 1)))) (vector-set! x 0 rte) (vector-set! x 1 a) (vector-set! x 2 b) (vector-set! x 3 c) (let loop ((n nb-vars) (x x) (i 4) (l d)) (if (< i n) (begin (vector-set! x i (car l)) (loop n x (+ i 1) (cdr l))) (vector-set! x i l))) (body x))))) (define (gen-lambda nb-vars body) (case nb-vars ((0) (gen-lambda-0 body)) ((1) (gen-lambda-1 body)) ((2) (gen-lambda-2 body)) ((3) (gen-lambda-3 body)) (else (gen-lambda-n nb-vars body)))) (define (gen-lambda-0 body) (lambda (rte) (lambda () (body rte)))) (define (gen-lambda-1 body) (lambda (rte) (lambda (a) (body (vector rte a))))) (define (gen-lambda-2 body) (lambda (rte) (lambda (a b) (body (vector rte a b))))) (define (gen-lambda-3 body) (lambda (rte) (lambda (a b c) (body (vector rte a b c))))) (define (gen-lambda-n nb-vars body) (lambda (rte) (lambda (a b c . d) (let ((x (make-vector (+ nb-vars 1)))) (vector-set! x 0 rte) (vector-set! x 1 a) (vector-set! x 2 b) (vector-set! x 3 c) (let loop ((n nb-vars) (x x) (i 4) (l d)) (if (<= i n) (begin (vector-set! x i (car l)) (loop n x (+ i 1) (cdr l))))) (body x))))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (gen-sequence code1 code2) (lambda (rte) (code1 rte) (code2 rte))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (gen-when code1 code2) (lambda (rte) (if (code1 rte) (code2 rte) '()))) (define (gen-if code1 code2 code3) (lambda (rte) (if (code1 rte) (code2 rte) (code3 rte)))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (gen-cond-send code1 code2 code3) (lambda (rte) (let ((temp (code1 rte))) (if temp ((code2 rte) temp) (code3 rte))))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (gen-and code1 code2) (lambda (rte) (let ((temp (code1 rte))) (if temp (code2 rte) temp)))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (gen-or code1 code2) (lambda (rte) (let ((temp (code1 rte))) (if temp temp (code2 rte))))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (gen-case code1 code2) (lambda (rte) (code2 rte (code1 rte)))) (define (gen-case-clause datums code1 code2) (lambda (rte key) (if (memv key datums) (code1 rte) (code2 rte key)))) (define (gen-case-else code) (lambda (rte key) (code rte))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (gen-letrec vals body) (let ((nb-vals (length vals))) (case nb-vals ((1) (gen-letrec-1 (car vals) body)) ((2) (gen-letrec-2 (car vals) (cadr vals) body)) ((3) (gen-letrec-3 (car vals) (cadr vals) (caddr vals) body)) (else (gen-letrec-n nb-vals vals body))))) (define (gen-letrec-1 val1 body) (lambda (rte) (let ((x (vector rte #f))) (vector-set! x 1 (val1 x)) (body x)))) (define (gen-letrec-2 val1 val2 body) (lambda (rte) (let ((x (vector rte #f #f))) (vector-set! x 1 (val1 x)) (vector-set! x 2 (val2 x)) (body x)))) (define (gen-letrec-3 val1 val2 val3 body) (lambda (rte) (let ((x (vector rte #f #f #f))) (vector-set! x 1 (val1 x)) (vector-set! x 2 (val2 x)) (vector-set! x 3 (val3 x)) (body x)))) (define (gen-letrec-n nb-vals vals body) (lambda (rte) (let ((x (make-vector (+ nb-vals 1)))) (vector-set! x 0 rte) (let loop ((x x) (i 1) (l vals)) (if (pair? l) (begin (vector-set! x i ((car l) x)) (loop x (+ i 1) (cdr l))))) (body x)))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (gen-macro name proc) (lambda (rte) (scheme-add-macro name proc))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (gen-combination oper args) (case (length args) ((0) (gen-combination-0 oper)) ((1) (gen-combination-1 oper (car args))) ((2) (gen-combination-2 oper (car args) (cadr args))) ((3) (gen-combination-3 oper (car args) (cadr args) (caddr args))) (else (gen-combination-n oper args)))) (define (gen-combination-0 oper) (lambda (rte) ((oper rte)))) (define (gen-combination-1 oper arg1) (lambda (rte) ((oper rte) (arg1 rte)))) (define (gen-combination-2 oper arg1 arg2) (lambda (rte) ((oper rte) (arg1 rte) (arg2 rte)))) (define (gen-combination-3 oper arg1 arg2 arg3) (lambda (rte) ((oper rte) (arg1 rte) (arg2 rte) (arg3 rte)))) (define (gen-combination-n oper args) (lambda (rte) (define (evaluate l rte) (if (pair? l) (cons ((car l) rte) (evaluate (cdr l) rte)) '())) (apply (oper rte) (evaluate args rte)))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (scheme-comp expr env) (cond ((symbol? expr) (comp-var expr env)) ((not (pair? expr)) (comp-self-eval expr env)) ((macro? (car expr) env) (scheme-comp (macro-expand expr env) env)) (else (cond ((eq? (car expr) 'quote) (comp-quote expr env)) ((eq? (car expr) 'quasiquote) (comp-quasiquote expr env)) ((eq? (car expr) 'unquote) (comp-unquote expr env)) ((eq? (car expr) 'unquote-splicing) (comp-unquote-splicing expr env)) ((eq? (car expr) 'set!) (comp-set! expr env)) ((eq? (car expr) 'lambda) (comp-lambda expr env)) ((eq? (car expr) 'if) (comp-if expr env)) ((eq? (car expr) 'cond) (comp-cond expr env)) ((eq? (car expr) 'and) (comp-and expr env)) ((eq? (car expr) 'or) (comp-or expr env)) ((eq? (car expr) 'case) (comp-case expr env)) ((eq? (car expr) 'let) (comp-let expr env)) ((eq? (car expr) 'let*) (comp-let* expr env)) ((eq? (car expr) 'letrec) (comp-letrec expr env)) ((eq? (car expr) 'begin) (comp-begin expr env)) ((eq? (car expr) 'do) (comp-do expr env)) ((eq? (car expr) 'define) (comp-define expr env)) ((eq? (car expr) 'define-macro) (comp-define-macro expr env)) (else (comp-combination expr env)))))) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (scheme-global-var name) (let ((x (assq name scheme-global-variables))) (if x x (let ((y (cons name '()))) (set! scheme-global-variables (cons y scheme-global-variables)) y)))) (define (scheme-global-var-ref i) (cdr i)) (define (scheme-global-var-set! i val) (set-cdr! i val) '()) (define scheme-global-variables '()) (define (def-proc name value) (scheme-global-var-set! (scheme-global-var name) value)) (def-proc 'not (lambda (x) (not x))) (def-proc 'boolean? boolean?) (def-proc 'eqv? eqv?) (def-proc 'eq? eq?) (def-proc 'equal? equal?) (def-proc 'pair? pair?) (def-proc 'cons cons) (def-proc 'car (lambda (x) (car x))) (def-proc 'cdr (lambda (x) (cdr x))) (def-proc 'set-car! set-car!) (def-proc 'set-cdr! set-cdr!) (def-proc 'caar caar) (def-proc 'cadr cadr) (def-proc 'cdar cdar) (def-proc 'cddr cddr) (def-proc 'caaar caaar) (def-proc 'caadr caadr) (def-proc 'cadar cadar) (def-proc 'caddr caddr) (def-proc 'cdaar cdaar) (def-proc 'cdadr cdadr) (def-proc 'cddar cddar) (def-proc 'cdddr cdddr) (def-proc 'caaaar caaaar) (def-proc 'caaadr caaadr) (def-proc 'caadar caadar) (def-proc 'caaddr caaddr) (def-proc 'cadaar cadaar) (def-proc 'cadadr cadadr) (def-proc 'caddar caddar) (def-proc 'cadddr cadddr) (def-proc 'cdaaar cdaaar) (def-proc 'cdaadr cdaadr) (def-proc 'cdadar cdadar) (def-proc 'cdaddr cdaddr) (def-proc 'cddaar cddaar) (def-proc 'cddadr cddadr) (def-proc 'cdddar cdddar) (def-proc 'cddddr cddddr) (def-proc 'null? (lambda (x) (null? x))) (def-proc 'list? list?) (def-proc 'list list) (def-proc 'length length) (def-proc 'append append) (def-proc 'reverse reverse) (def-proc 'list-ref list-ref) (def-proc 'memq memq) (def-proc 'memv memv) (def-proc 'member member) (def-proc 'assq assq) (def-proc 'assv assv) (def-proc 'assoc assoc) (def-proc 'symbol? symbol?) (def-proc 'symbol->string symbol->string) (def-proc 'string->symbol string->symbol) (def-proc 'number? number?) (def-proc 'complex? complex?) (def-proc 'real? real?) (def-proc 'rational? rational?) (def-proc 'integer? integer?) (def-proc 'exact? exact?) (def-proc 'inexact? inexact?) (def-proc 'max max) (def-proc 'min min) (def-proc '/ /) (def-proc 'abs abs) (def-proc 'gcd gcd) (def-proc 'lcm lcm) (def-proc 'floor floor) (def-proc 'ceiling ceiling) (def-proc 'truncate truncate) (def-proc 'round round) (def-proc 'exp exp) (def-proc 'log log) (def-proc 'sin sin) (def-proc 'cos cos) (def-proc 'tan tan) (def-proc 'asin asin) (def-proc 'acos acos) (def-proc 'atan atan) (def-proc 'sqrt sqrt) (def-proc 'expt expt) (def-proc 'exact->inexact exact->inexact) (def-proc 'inexact->exact inexact->exact) (def-proc 'number->string number->string) (def-proc 'string->number string->number) (def-proc 'char? char?) (def-proc 'char=? char=?) (def-proc 'char? char>?) (def-proc 'char<=? char<=?) (def-proc 'char>=? char>=?) (def-proc 'char-ci=? char-ci=?) (def-proc 'char-ci? char-ci>?) (def-proc 'char-ci<=? char-ci<=?) (def-proc 'char-ci>=? char-ci>=?) (def-proc 'char-alphabetic? char-alphabetic?) (def-proc 'char-numeric? char-numeric?) (def-proc 'char-whitespace? char-whitespace?) (def-proc 'char-lower-case? char-lower-case?) (def-proc 'char->integer char->integer) (def-proc 'integer->char integer->char) (def-proc 'char-upcase char-upcase) (def-proc 'char-downcase char-downcase) (def-proc 'string? string?) (def-proc 'make-string make-string) (def-proc 'string string) (def-proc 'string-length string-length) (def-proc 'string-ref string-ref) (def-proc 'string-set! string-set!) (def-proc 'string=? string=?) (def-proc 'string? string>?) (def-proc 'string<=? string<=?) (def-proc 'string>=? string>=?) (def-proc 'string-ci=? string-ci=?) (def-proc 'string-ci? string-ci>?) (def-proc 'string-ci<=? string-ci<=?) (def-proc 'string-ci>=? string-ci>=?) (def-proc 'substring substring) (def-proc 'string-append string-append) (def-proc 'vector? vector?) (def-proc 'make-vector make-vector) (def-proc 'vector vector) (def-proc 'vector-length vector-length) (def-proc 'vector-ref vector-ref) (def-proc 'vector-set! vector-set!) (def-proc 'procedure? procedure?) (def-proc 'apply apply) (def-proc 'map map) (def-proc 'for-each for-each) (def-proc 'call-with-input-file call-with-input-file) (def-proc 'call-with-output-file call-with-output-file) (def-proc 'input-port? input-port?) (def-proc 'output-port? output-port?) (def-proc 'current-input-port current-input-port) (def-proc 'current-output-port current-output-port) (def-proc 'open-input-file open-input-file) (def-proc 'open-output-file open-output-file) (def-proc 'close-input-port close-input-port) (def-proc 'close-output-port close-output-port) (def-proc 'eof-object? eof-object?) (def-proc 'read read) (def-proc 'read-char read-char) (def-proc 'peek-char peek-char) (def-proc 'write write) (def-proc 'display display) (def-proc 'newline newline) (def-proc 'write-char write-char) ;;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (define (run) (scheme-eval '(let () (define (sort-list obj pred) (define (loop l) (if (and (pair? l) (pair? (cdr l))) (split l '() '()) l)) (define (split l one two) (if (pair? l) (split (cdr l) two (cons (car l) one)) (merge (loop one) (loop two)))) (define (merge one two) (cond ((null? one) two) ((pred (car two) (car one)) (cons (car two) (merge (cdr two) one))) (else (cons (car one) (merge (cdr one) two))))) (loop obj)) (sort-list '("one" "two" "three" "four" "five" "six" "seven" "eight" "nine" "ten" "eleven" "twelve") stringC (define (fuck-up) (error 'error "This shouldn't happen")) ;;; end Scheme->C ;;; begin Gambit-C (define (fuck-up) (error "This shouldn't happen")) ;;; end Gambit-C ;;; begin Bigloo (define (fuck-up) (error "This shouldn't happen" 'error 'error)) ;;; end Bigloo ;;; begin Chicken (define (fuck-up) (error "This shouldn't happen")) ;;; end Chicken (define (matrix-rows a) (vector-length a)) (define (matrix-columns a) (vector-length (vector-ref a 0))) (define (matrix-ref a i j) (vector-ref (vector-ref a i) j)) (define (matrix-set! a i j x) (vector-set! (vector-ref a i) j x)) (define (simplex a m1 m2 m3) (define *epsilon* 1e-6) (if (not (and (>= m1 0) (>= m2 0) (>= m3 0) (= (matrix-rows a) (+ m1 m2 m3 2)))) (fuck-up)) (let* ((m12 (+ m1 m2 1)) (m (- (matrix-rows a) 2)) (n (- (matrix-columns a) 1)) (l1 (make-vector n)) (l2 (make-vector m)) (l3 (make-vector m2)) (nl1 n) (iposv (make-vector m)) (izrov (make-vector n)) (ip 0) (kp 0) (bmax 0.0) (one? #f) (pass2? #t)) (define (simp1 mm abs?) (set! kp (vector-ref l1 0)) (set! bmax (matrix-ref a mm kp)) (do ((k 1 (+ k 1))) ((>= k nl1)) (if (positive? (if abs? (- (abs (matrix-ref a mm (vector-ref l1 k))) (abs bmax)) (- (matrix-ref a mm (vector-ref l1 k)) bmax))) (begin (set! kp (vector-ref l1 k)) (set! bmax (matrix-ref a mm (vector-ref l1 k))))))) (define (simp2) (set! ip 0) (let ((q1 0.0) (flag? #f)) (do ((i 0 (+ i 1))) ((= i m)) (if flag? (if (< (matrix-ref a (vector-ref l2 i) kp) (- *epsilon*)) (let ((q (/ (- (matrix-ref a (vector-ref l2 i) 0)) (matrix-ref a (vector-ref l2 i) kp)))) (cond ((< q q1) (set! ip (vector-ref l2 i)) (set! q1 q)) ((= q q1) (let ((qp 0.0) (q0 0.0)) (let loop ((k 1)) (if (<= k n) (begin (set! qp (/ (- (matrix-ref a ip k)) (matrix-ref a ip kp))) (set! q0 (/ (- (matrix-ref a (vector-ref l2 i) k)) (matrix-ref a (vector-ref l2 i) kp))) (if (= q0 qp) (loop (+ k 1)))))) (if (< q0 qp) (set! ip (vector-ref l2 i)))))))) (if (< (matrix-ref a (vector-ref l2 i) kp) (- *epsilon*)) (begin (set! q1 (/ (- (matrix-ref a (vector-ref l2 i) 0)) (matrix-ref a (vector-ref l2 i) kp))) (set! ip (vector-ref l2 i)) (set! flag? #t))))))) (define (simp3 one?) (let ((piv (/ (matrix-ref a ip kp)))) (do ((ii 0 (+ ii 1))) ((= ii (+ m (if one? 2 1)))) (if (not (= ii ip)) (begin (matrix-set! a ii kp (* piv (matrix-ref a ii kp))) (do ((kk 0 (+ kk 1))) ((= kk (+ n 1))) (if (not (= kk kp)) (matrix-set! a ii kk (- (matrix-ref a ii kk) (* (matrix-ref a ip kk) (matrix-ref a ii kp))))))))) (do ((kk 0 (+ kk 1))) ((= kk (+ n 1))) (if (not (= kk kp)) (matrix-set! a ip kk (* (- piv) (matrix-ref a ip kk))))) (matrix-set! a ip kp piv))) (do ((k 0 (+ k 1))) ((= k n)) (vector-set! l1 k (+ k 1)) (vector-set! izrov k k)) (do ((i 0 (+ i 1))) ((= i m)) (if (negative? (matrix-ref a (+ i 1) 0)) (fuck-up)) (vector-set! l2 i (+ i 1)) (vector-set! iposv i (+ n i))) (do ((i 0 (+ i 1))) ((= i m2)) (vector-set! l3 i #t)) (if (positive? (+ m2 m3)) (begin (do ((k 0 (+ k 1))) ((= k (+ n 1))) (do ((i (+ m1 1) (+ i 1)) (sum 0.0 (+ sum (matrix-ref a i k)))) ((> i m) (matrix-set! a (+ m 1) k (- sum))))) (let loop () (simp1 (+ m 1) #f) (cond ((<= bmax *epsilon*) (cond ((< (matrix-ref a (+ m 1) 0) (- *epsilon*)) (set! pass2? #f)) ((<= (matrix-ref a (+ m 1) 0) *epsilon*) (let loop ((ip1 m12)) (if (<= ip1 m) (cond ((= (vector-ref iposv (- ip1 1)) (+ ip n -1)) (simp1 ip1 #t) (cond ((positive? bmax) (set! ip ip1) (set! one? #t)) (else (loop (+ ip1 1))))) (else (loop (+ ip1 1)))) (do ((i (+ m1 1) (+ i 1))) ((>= i m12)) (if (vector-ref l3 (- i m1 1)) (do ((k 0 (+ k 1))) ((= k (+ n 1))) (matrix-set! a i k (- (matrix-ref a i k))))))))) (else (simp2) (if (zero? ip) (set! pass2? #f) (set! one? #t))))) (else (simp2) (if (zero? ip) (set! pass2? #f) (set! one? #t)))) (if one? (begin (set! one? #f) (simp3 #t) (cond ((>= (vector-ref iposv (- ip 1)) (+ n m12 -1)) (let loop ((k 0)) (cond ((and (< k nl1) (not (= kp (vector-ref l1 k)))) (loop (+ k 1))) (else (set! nl1 (- nl1 1)) (do ((is k (+ is 1))) ((>= is nl1)) (vector-set! l1 is (vector-ref l1 (+ is 1)))) (matrix-set! a (+ m 1) kp (+ (matrix-ref a (+ m 1) kp) 1)) (do ((i 0 (+ i 1))) ((= i (+ m 2))) (matrix-set! a i kp (- (matrix-ref a i kp)))))))) ((and (>= (vector-ref iposv (- ip 1)) (+ n m1)) (vector-ref l3 (- (vector-ref iposv (- ip 1)) m1 n))) (vector-set! l3 (- (vector-ref iposv (- ip 1)) m1 n) #f) (matrix-set! a (+ m 1) kp (+ (matrix-ref a (+ m 1) kp) 1)) (do ((i 0 (+ i 1))) ((= i (+ m 2))) (matrix-set! a i kp (- (matrix-ref a i kp)))))) (let ((t (vector-ref izrov (- kp 1)))) (vector-set! izrov (- kp 1) (vector-ref iposv (- ip 1))) (vector-set! iposv (- ip 1) t)) (loop)))))) (and pass2? (let loop () (simp1 0 #f) (cond ((positive? bmax) (simp2) (cond ((zero? ip) #t) (else (simp3 #f) (let ((t (vector-ref izrov (- kp 1)))) (vector-set! izrov (- kp 1) (vector-ref iposv (- ip 1))) (vector-set! iposv (- ip 1) t)) (loop)))) (else (list iposv izrov))))))) (define (test) (simplex (vector (vector 0.0 1.0 1.0 3.0 -0.5) (vector 740.0 -1.0 0.0 -2.0 0.0) (vector 0.0 0.0 -2.0 0.0 7.0) (vector 0.5 0.0 -1.0 1.0 -2.0) (vector 9.0 -1.0 -1.0 -1.0 -1.0) (vector 0.0 0.0 0.0 0.0 0.0)) 2 1 1) #f) (do ((i 0 (+ i 1))) ((= i 100000)) (test)) stalin-0.11/benchmarks/sort.sc0000600017435200151030000003027006671513670015041 0ustar qobiqobi;;; File : sort.scm ;;; Author : Richard A. O'Keefe (based on Prolog code by D.H.D.Warren) ;;; Updated: 11 June 1991 ;;; Defines: sorted?, merge, merge!, sort, sort! ;;; -------------------------------------------------------------------- ;;; Many Scheme systems provide some kind of sorting functions. They do ;;; not, however, always provide the _same_ sorting functions, and those ;;; that I have had the opportunity to test provided inefficient ones (a ;;; common blunder is to use quicksort which does not perform well). ;;; Because sort and sort! are not in the standard, there is very little ;;; agreement about what these functions look like. For example, Dybvig ;;; says that Chez Scheme provides ;;; (merge predicate list1 list2) ;;; (merge! predicate list1 list2) ;;; (sort predicate list) ;;; (sort! predicate list), ;;; while the MIT Scheme 7.1 manual, following Common Lisp, offers ;;; (sort list predicate), ;;; TI PC Scheme offers ;;; (sort! list/vector predicate?) ;;; and Elk offers ;;; (sort list/vector predicate?) ;;; (sort! list/vector predicate?) ;;; Here is a comprehensive catalogue of the variations I have found. ;;; (1) Both sort and sort! may be provided. ;;; (2) sort may be provided without sort! ;;; (3) sort! may be provided without sort ;;; (4) Neither may be provided ;;; --- ;;; (5) The sequence argument may be either a list or a vector. ;;; (6) The sequence argument may only be a list. ;;; (7) The sequence argument may only be a vector. ;;; --- ;;; (8) The comparison function may be expected to behave like < ;;; (9) or it may be expected to behave like <= ;;; --- ;;; (10) The interface may be (sort predicate? sequence) ;;; (11) or (sort sequence predicate?) ;;; (12) or (sort sequence &optional (predicate? <)) ;;; --- ;;; (13) The sort may be stable ;;; (14) or it may be unstable. ;;; --- ;;; All of this variation really does not help anybody. A nice simple ;;; merge sort is both stable and fast (quite a lot faster than `quick' ;;; sort). ;;; I am providing this source code with no restrictions at all on its ;;; use (but please retain D.H.D.Warren's credit for the original idea). ;;; You may have to rename some of these functions in order to use them ;;; in a system which already provides incompatible or inferior sorts. ;;; For each of the functions, only the top-level define needs to be ;;; edited to do that. ;;; I could have given these functions names which would not clash with ;;; any Scheme that I know of, but I would like to encourage implementors ;;; to converge on a single interface, and this may serve as a hint. ;;; The argument order for all functions has been chosen to be as close ;;; to Common Lisp as made sense, in order to avoid NIH-itis. ;;; Each of the five functions has a required *last* parameter which is ;;; a comparison function. A comparison function f is a function of 2 ;;; arguments which acts like <. For example, ;;; (not (f x x)) ;;; (and (f x y) (f y z)) => (f x z) ;;; The standard functions <, >, char?, char-ci?, ;;; string?, string-ci? are suitable for ;;; use as comparison functions. Think of (less? x y) as saying when ;;; x must *not* precede y. ;;; (sorted? sequence less?) ;;; returns #t when the sequence argument is in non-decreasing order ;;; according to less? (that is, there is no adjacent pair ... x y ... ;;; for which (less? y x)) ;;; returns #f when the sequence contains at least one out-of-order pair. ;;; It is an error if the sequence is neither a list nor a vector. ;;; (ok:merge list1 list2 less?) ;;; This merges two lists, producing a completely new list as result. ;;; I gave serious consideration to producing a Common-Lisp-compatible ;;; version. However, Common Lisp's `sort' is our `sort!' (well, in ;;; fact Common Lisp's `stable-sort' is our `sort!', merge sort is ;;; *fast* as well as stable!) so adapting CL code to Scheme takes a ;;; bit of work anyway. I did, however, appeal to CL to determine ;;; the *order* of the arguments. ;;; (ok:merge! list1 list2 less?) ;;; merges two lists, re-using the pairs of list1 and list2 to build ;;; the result. If the code is compiled, and less? constructs no new ;;; pairs, no pairs at all will be allocated. The first pair of the ;;; result will be either the first pair of list1 or the first pair ;;; of list2, but you can't predict which. ;;; The code of merge and merge! could have been quite a bit simpler, ;;; but they have been coded to reduce the amount of work done per ;;; iteration. (For example, we only have one null? test per iteration.) ;;; (ok:sort sequence less?) ;;; accepts either a list or a vector, and returns a new sequence which ;;; is sorted. The new sequence is the same type as the input. Always ;;; (sorted? (ok:sort sequence less?) less?). ;;; The original sequence is not altered in any way. The new sequence ;;; shares its _elements_ with the old one; no elements are copied. ;;; (ok:sort! sequence less?) ;;; returns its sorted result in the original boxes. If the original ;;; sequence is a list, no new storage is allocated at all. If the ;;; original sequence is a vector, the sorted elements are put back ;;; in the same vector. ;;; Note that these functions do NOT accept a CL-style ":key" argument. ;;; A simple device for obtaining the same expressiveness is to define ;;; (define (keyed less? key) (lambda (x y) (less? (key x) (key y)))) ;;; and then, when you would have written ;;; (ok:sort a-sequence #'my-less :key #'my-key) ;;; in Common Lisp, just write ;;; (ok:sort! a-sequence (keyed my-less? my-key)) ;;; in Scheme. ;;; -------------------------------------------------------------------- ;;; (sorted? sequence less?) ;;; is true when sequence is a list (x0 x1 ... xm) or a vector #(x0 ... xm) ;;; such that for all 1 <= i <= m, ;;; (not (less? (list-ref list i) (list-ref list (- i 1)))). (define (sorted? seq less?) (cond ((null? seq) #t) ((vector? seq) (let ((n (vector-length seq))) (if (<= n 1) #t (do ((i 1 (+ i 1))) ((or (= i n) (less? (vector-ref seq (- i 1)) (vector-ref seq i))) (= i n)))))) (else (let loop ((last (car seq)) (next (cdr seq))) (or (null? next) (and (not (less? (car next) last)) (loop (car next) (cdr next)))))))) ;;; (ok:merge a b less?) ;;; takes two lists a and b such that (sorted? a less?) and (sorted? b less?) ;;; and returns a new list in which the elements of a and b have been stably ;;; interleaved so that (sorted? (ok:merge a b less?) less?). ;;; Note: this does _not_ accept vectors. See below. (define (ok:merge a b less?) (cond ((null? a) b) ((null? b) a) (else (let loop ((x (car a)) (a (cdr a)) (y (car b)) (b (cdr b))) ;; The loop handles the merging of non-empty lists. It has ;; been written this way to save testing and car/cdring. (if (less? y x) (if (null? b) (cons y (cons x a)) (cons y (loop x a (car b) (cdr b)))) ;; x <= y (if (null? a) (cons x (cons y b)) (cons x (loop (car a) (cdr a) y b)))))))) ;;; (ok:merge! a b less?) ;;; takes two sorted lists a and b and smashes their cdr fields to form a ;;; single sorted list including the elements of both. ;;; Note: this does _not_ accept vectors. (define (ok:merge! a b less?) (define (loop r a b) (if (less? (car b) (car a)) (begin (set-cdr! r b) (if (null? (cdr b)) (set-cdr! b a) (loop b a (cdr b)))) ;; (car a) <= (car b) (begin (set-cdr! r a) (if (null? (cdr a)) (set-cdr! a b) (loop a (cdr a) b))))) (cond ((null? a) b) ((null? b) a) ((less? (car b) (car a)) (if (null? (cdr b)) (set-cdr! b a) (loop b a (cdr b))) b) (else ; (car a) <= (car b) (if (null? (cdr a)) (set-cdr! a b) (loop a (cdr a) b)) a))) ;;; (ok:sort! sequence less?) ;;; sorts the list or vector sequence destructively. It uses a version ;;; of merge-sort invented, to the best of my knowledge, by David H. D. ;;; Warren, and first used in the DEC-10 Prolog system. R. A. O'Keefe ;;; adapted it to work destructively in Scheme. (define (ok:sort! seq less?) (define (step n) (cond ((> n 2) (let* ((j (quotient n 2)) (a (step j)) (k (- n j)) (b (step k))) (ok:merge! a b less?))) ((= n 2) (let ((x (car seq)) (y (cadr seq)) (p seq)) (set! seq (cddr seq)) (if (less? y x) (begin (set-car! p y) (set-car! (cdr p) x))) (set-cdr! (cdr p) '()) p)) ((= n 1) (let ((p seq)) (set! seq (cdr seq)) (set-cdr! p '()) p)) (else '()))) (if (vector? seq) (let ((n (vector-length seq)) (vector seq)) ; save original vector (set! seq (vector->list seq)) ; convert to list (do ((p (step n) (cdr p)) ; sort list destructively (i 0 (+ i 1))) ; and store elements back ((null? p) vector) ; in original vector (vector-set! vector i (car p)))) ;; otherwise, assume it is a list (step (length seq)))) ;;; (ok:sort sequence less?) ;;; sorts a vector or list non-destructively. It does this by sorting a ;;; copy of the sequence. My understanding is that the Standard says ;;; that the result of append is always "newly allocated" except for ;;; sharing structure with "the last argument", so (append x '()) ought ;;; to be a standard way of copying a list x. (define (ok:sort seq less?) (if (vector? seq) (list->vector (ok:sort! (vector->list seq) less?)) (ok:sort! (append seq '()) less?))) ;;; I want to see how well Stalin does with sort. ;;; The test is to form a list of the numbers I.0/J.0 for 1 <= I,J <= 100 ;;; (10 000 floating point numbers), and N times do (sort and check result). (define (make-test-list L U) (let ((R '())) (do ((I L (+ 1 I))) ((> I U) R) (do ((N (exact->inexact I) N) (J L (+ J 1))) ((> J U) "") (set! R (cons (/ N (exact->inexact J)) R)))))) (define (run-once L) (if (not (sorted? (ok:sort L <) <)) (write "oops")) #f) (define (run-N-times N L) (do ((I 0 (+ 1 I))) ((>= I N) #f) (run-once L))) ;; Timing test (run-N-times 1000 (make-test-list 1 100)) ;;; Compile: 'stalin -O2 -d -On sortim' ;;; Run 'time ./sortim' twice ;;; 33u + 0s seconds ;;; 34u + 0s seconds ;;; Compile: 'stalin -Ot -O2 -d -On sortim' ;;; Run 'time ./sortim' twice ;;; 19u + 0s seconds ;;; 19u + 0s seconds ;;; Compile 'gcc -DQSORT -o sortq -O2 sortq.c' ;;; Run 'time ./sortq' twice ;;; 132u + 0s seconds ;;; 131u + 0s seconds. ;;; That wasn't a fair comparison, because qsort() is bad. ;;; Compile 'gcc -DMSORT -o sortq -O2 sortq.c' ;;; Run 'time ./sortq' twice ;;; 38u + 0s seconds ;;; 38u + 0s seconds ;;; This is an array-based 'straight' top down merge sort. ;;; Notes. ;;; 1. I note that the format for a list of double is struct X* where ;;; struct X { double car; struct X *cdr; }; ;;; On a VAX it was known to pay off to use the opposite order, ;;; struct X { struct X *cdr; double car; }; ;;; This also paid off on the NS32k, MC68020, and I think the 80386. ;;; It would be interesting to have an option for choosing the order. ;;; 2. I don't understand why -Ot made such a big difference. I really ;;; hoped that this would be an example Stalin would find easy to ;;; type check. ;;; 3. It's a very pleasant surprise that the Scheme code munching away ;;; on lists ended up going faster than comparable C code hacking arrays! ;;; 4. If I compile the generated code with 'gcc -O6' the time goes down ;;; from 19 seconds to 18 seconds, but Stalin will not let me say -O6. ;;; 5. For comparison, I tried to use 'cc -xO4', but it choked on ;;; { ;;; struct heap { ;;; struct heap0 *heap; ;;; char data[heap_size]; /* heap_size is a variable */ ;;; }; ;;; heap = (struct heap0 *)malloc(sizeof(struct heap)); ;;; } ;;; Is it really necessary to use that? The generated code is pretty ;;; unreadable anyway, and this construction doesn't _do_ anything that ;;; { ;;; heap = (struct heap0 *)malloc(sizeof (struct heap0 *) + heap_size); ;;; } ;;; wouldn't do. I know the 'struct hack' has been disowned by X3J11, ;;; despite being in the rationale, but it is much closer to being ;;; generally available than runtime sizeof. stalin-0.11/benchmarks/sort2.sc0000600017435200151030000003107006671513670015122 0ustar qobiqobi;;; File : sort.scm ;;; Author : Richard A. O'Keefe (based on Prolog code by D.H.D.Warren) ;;; Updated: 11 June 1991 ;;; Defines: sorted?, merge, merge!, sort, sort! ;;; -------------------------------------------------------------------- ;;; Many Scheme systems provide some kind of sorting functions. They do ;;; not, however, always provide the _same_ sorting functions, and those ;;; that I have had the opportunity to test provided inefficient ones (a ;;; common blunder is to use quicksort which does not perform well). ;;; Because sort and sort! are not in the standard, there is very little ;;; agreement about what these functions look like. For example, Dybvig ;;; says that Chez Scheme provides ;;; (merge predicate list1 list2) ;;; (merge! predicate list1 list2) ;;; (sort predicate list) ;;; (sort! predicate list), ;;; while the MIT Scheme 7.1 manual, following Common Lisp, offers ;;; (sort list predicate), ;;; TI PC Scheme offers ;;; (sort! list/vector predicate?) ;;; and Elk offers ;;; (sort list/vector predicate?) ;;; (sort! list/vector predicate?) ;;; Here is a comprehensive catalogue of the variations I have found. ;;; (1) Both sort and sort! may be provided. ;;; (2) sort may be provided without sort! ;;; (3) sort! may be provided without sort ;;; (4) Neither may be provided ;;; --- ;;; (5) The sequence argument may be either a list or a vector. ;;; (6) The sequence argument may only be a list. ;;; (7) The sequence argument may only be a vector. ;;; --- ;;; (8) The comparison function may be expected to behave like < ;;; (9) or it may be expected to behave like <= ;;; --- ;;; (10) The interface may be (sort predicate? sequence) ;;; (11) or (sort sequence predicate?) ;;; (12) or (sort sequence &optional (predicate? <)) ;;; --- ;;; (13) The sort may be stable ;;; (14) or it may be unstable. ;;; --- ;;; All of this variation really does not help anybody. A nice simple ;;; merge sort is both stable and fast (quite a lot faster than `quick' ;;; sort). ;;; I am providing this source code with no restrictions at all on its ;;; use (but please retain D.H.D.Warren's credit for the original idea). ;;; You may have to rename some of these functions in order to use them ;;; in a system which already provides incompatible or inferior sorts. ;;; For each of the functions, only the top-level define needs to be ;;; edited to do that. ;;; I could have given these functions names which would not clash with ;;; any Scheme that I know of, but I would like to encourage implementors ;;; to converge on a single interface, and this may serve as a hint. ;;; The argument order for all functions has been chosen to be as close ;;; to Common Lisp as made sense, in order to avoid NIH-itis. ;;; Each of the five functions has a required *last* parameter which is ;;; a comparison function. A comparison function f is a function of 2 ;;; arguments which acts like <. For example, ;;; (not (f x x)) ;;; (and (f x y) (f y z)) => (f x z) ;;; The standard functions <, >, char?, char-ci?, ;;; string?, string-ci? are suitable for ;;; use as comparison functions. Think of (less? x y) as saying when ;;; x must *not* precede y. ;;; (sorted? sequence less?) ;;; returns #t when the sequence argument is in non-decreasing order ;;; according to less? (that is, there is no adjacent pair ... x y ... ;;; for which (less? y x)) ;;; returns #f when the sequence contains at least one out-of-order pair. ;;; It is an error if the sequence is neither a list nor a vector. ;;; (ok:merge list1 list2 less?) ;;; This merges two lists, producing a completely new list as result. ;;; I gave serious consideration to producing a Common-Lisp-compatible ;;; version. However, Common Lisp's `sort' is our `sort!' (well, in ;;; fact Common Lisp's `stable-sort' is our `sort!', merge sort is ;;; *fast* as well as stable!) so adapting CL code to Scheme takes a ;;; bit of work anyway. I did, however, appeal to CL to determine ;;; the *order* of the arguments. ;;; (ok:merge! list1 list2 less?) ;;; merges two lists, re-using the pairs of list1 and list2 to build ;;; the result. If the code is compiled, and less? constructs no new ;;; pairs, no pairs at all will be allocated. The first pair of the ;;; result will be either the first pair of list1 or the first pair ;;; of list2, but you can't predict which. ;;; The code of merge and merge! could have been quite a bit simpler, ;;; but they have been coded to reduce the amount of work done per ;;; iteration. (For example, we only have one null? test per iteration.) ;;; (ok:sort sequence less?) ;;; accepts either a list or a vector, and returns a new sequence which ;;; is sorted. The new sequence is the same type as the input. Always ;;; (sorted? (ok:sort sequence less?) less?). ;;; The original sequence is not altered in any way. The new sequence ;;; shares its _elements_ with the old one; no elements are copied. ;;; (ok:sort! sequence less?) ;;; returns its sorted result in the original boxes. If the original ;;; sequence is a list, no new storage is allocated at all. If the ;;; original sequence is a vector, the sorted elements are put back ;;; in the same vector. ;;; Note that these functions do NOT accept a CL-style ":key" argument. ;;; A simple device for obtaining the same expressiveness is to define ;;; (define (keyed less? key) (lambda (x y) (less? (key x) (key y)))) ;;; and then, when you would have written ;;; (ok:sort a-sequence #'my-less :key #'my-key) ;;; in Common Lisp, just write ;;; (ok:sort! a-sequence (keyed my-less? my-key)) ;;; in Scheme. ;;; -------------------------------------------------------------------- ;;; (sorted? sequence less?) ;;; is true when sequence is a list (x0 x1 ... xm) or a vector #(x0 ... xm) ;;; such that for all 1 <= i <= m, ;;; (not (less? (list-ref list i) (list-ref list (- i 1)))). (define (sorted? seq less?) (cond ((null? seq) #t) ((vector? seq) (let ((n (vector-length seq))) (if (<= n 1) #t (do ((i 1 (+ i 1))) ((or (= i n) (less? (vector-ref seq (- i 1)) (vector-ref seq i))) (= i n)))))) (else (let loop ((last (car seq)) (next (cdr seq))) (if (null? next) ; changed by Qobi #t ; changed by Qobi (and (not (less? (car next) last)) (loop (car next) (cdr next)))))))) ;;; (ok:merge a b less?) ;;; takes two lists a and b such that (sorted? a less?) and (sorted? b less?) ;;; and returns a new list in which the elements of a and b have been stably ;;; interleaved so that (sorted? (ok:merge a b less?) less?). ;;; Note: this does _not_ accept vectors. See below. (define (ok:merge a b less?) (cond ((null? a) b) ((null? b) a) (else (let loop ((x (car a)) (a (cdr a)) (y (car b)) (b (cdr b))) ;; The loop handles the merging of non-empty lists. It has ;; been written this way to save testing and car/cdring. (if (less? y x) (if (null? b) (cons y (cons x a)) (cons y (loop x a (car b) (cdr b)))) ;; x <= y (if (null? a) (cons x (cons y b)) (cons x (loop (car a) (cdr a) y b)))))))) ;;; (ok:merge! a b less?) ;;; takes two sorted lists a and b and smashes their cdr fields to form a ;;; single sorted list including the elements of both. ;;; Note: this does _not_ accept vectors. (define (ok:merge! a b less?) (define (loop r a b) (if (less? (car b) (car a)) (begin (set-cdr! r b) (let ((x (cdr b))) ; changed by Qobi (if (null? x) ; changed by Qobi (set-cdr! b a) (loop b a x)))) ; changed by qobi ;; (car a) <= (car b) (begin (set-cdr! r a) (let ((x (cdr a))) ; changed by Qobi (if (null? x) ; changed by Qobi (set-cdr! a b) (loop a x b)))))) ; changed by Qobi (cond ((null? a) b) ((null? b) a) ((less? (car b) (car a)) (let ((x (cdr b))) ; changed by Qobi (if (null? x) ; changed by Qobi (set-cdr! b a) (loop b a x))) ; changed by Qobi b) (else ; (car a) <= (car b) (let ((x (cdr a))) ; changed by Qobi (if (null? x) ; changed by qobi (set-cdr! a b) (loop a x b))) ; changed by Qobi a))) ;;; (ok:sort! sequence less?) ;;; sorts the list or vector sequence destructively. It uses a version ;;; of merge-sort invented, to the best of my knowledge, by David H. D. ;;; Warren, and first used in the DEC-10 Prolog system. R. A. O'Keefe ;;; adapted it to work destructively in Scheme. (define (ok:sort! seq less?) (define (step n) (cond ((> n 2) (let* ((j (quotient n 2)) (a (step j)) (k (- n j)) (b (step k))) (ok:merge! a b less?))) ((= n 2) (let ((x (car seq)) (y (cadr seq)) (p seq)) (set! seq (cddr seq)) (let ((z (cdr p))) ; changed by Qobi (if (less? y x) (begin (set-car! p y) (set-car! z x))) ; changed by Qobi (set-cdr! z '())) p)) ((= n 1) (let ((p seq)) (set! seq (cdr seq)) (set-cdr! p '()) p)) (else '()))) (if (vector? seq) (let ((n (vector-length seq)) (vector seq)) ; save original vector (set! seq (vector->list seq)) ; convert to list (do ((p (step n) (cdr p)) ; sort list destructively (i 0 (+ i 1))) ; and store elements back ((null? p) vector) ; in original vector (vector-set! vector i (car p)))) ;; otherwise, assume it is a list (step (length seq)))) ;;; (ok:sort sequence less?) ;;; sorts a vector or list non-destructively. It does this by sorting a ;;; copy of the sequence. My understanding is that the Standard says ;;; that the result of append is always "newly allocated" except for ;;; sharing structure with "the last argument", so (append x '()) ought ;;; to be a standard way of copying a list x. (define (ok:sort seq less?) (if (vector? seq) (list->vector (ok:sort! (vector->list seq) less?)) (ok:sort! (append seq '()) less?))) ;;; I want to see how well Stalin does with sort. ;;; The test is to form a list of the numbers I.0/J.0 for 1 <= I,J <= 100 ;;; (10 000 floating point numbers), and N times do (sort and check result). (define (make-test-list L U) (let ((R '())) (do ((I L (+ 1 I))) ((> I U) R) (do ((N (exact->inexact I) N) (J L (+ J 1))) ((> J U) "") (set! R (cons (/ N (exact->inexact J)) R)))))) (define (run-once L) (if (not (sorted? (ok:sort L <) <)) (write "oops")) #f) (define (run-N-times N L) (do ((I 0 (+ 1 I))) ((>= I N) #f) (run-once L))) ;; Timing test (run-N-times 1000 (make-test-list 1 100)) ;;; Compile: 'stalin -O2 -d -On sortim' ;;; Run 'time ./sortim' twice ;;; 33u + 0s seconds ;;; 34u + 0s seconds ;;; Compile: 'stalin -Ot -O2 -d -On sortim' ;;; Run 'time ./sortim' twice ;;; 19u + 0s seconds ;;; 19u + 0s seconds ;;; Compile 'gcc -DQSORT -o sortq -O2 sortq.c' ;;; Run 'time ./sortq' twice ;;; 132u + 0s seconds ;;; 131u + 0s seconds. ;;; That wasn't a fair comparison, because qsort() is bad. ;;; Compile 'gcc -DMSORT -o sortq -O2 sortq.c' ;;; Run 'time ./sortq' twice ;;; 38u + 0s seconds ;;; 38u + 0s seconds ;;; This is an array-based 'straight' top down merge sort. ;;; Notes. ;;; 1. I note that the format for a list of double is struct X* where ;;; struct X { double car; struct X *cdr; }; ;;; On a VAX it was known to pay off to use the opposite order, ;;; struct X { struct X *cdr; double car; }; ;;; This also paid off on the NS32k, MC68020, and I think the 80386. ;;; It would be interesting to have an option for choosing the order. ;;; 2. I don't understand why -Ot made such a big difference. I really ;;; hoped that this would be an example Stalin would find easy to ;;; type check. ;;; 3. It's a very pleasant surprise that the Scheme code munching away ;;; on lists ended up going faster than comparable C code hacking arrays! ;;; 4. If I compile the generated code with 'gcc -O6' the time goes down ;;; from 19 seconds to 18 seconds, but Stalin will not let me say -O6. ;;; 5. For comparison, I tried to use 'cc -xO4', but it choked on ;;; { ;;; struct heap { ;;; struct heap0 *heap; ;;; char data[heap_size]; /* heap_size is a variable */ ;;; }; ;;; heap = (struct heap0 *)malloc(sizeof(struct heap)); ;;; } ;;; Is it really necessary to use that? The generated code is pretty ;;; unreadable anyway, and this construction doesn't _do_ anything that ;;; { ;;; heap = (struct heap0 *)malloc(sizeof (struct heap0 *) + heap_size); ;;; } ;;; wouldn't do. I know the 'struct hack' has been disowned by X3J11, ;;; despite being in the rationale, but it is much closer to being ;;; generally available than runtime sizeof. stalin-0.11/benchmarks/stalin.sed0000600017435200151030000000046007244410311015471 0ustar qobiqobi1i\ (define exit (foreign-procedure (int) no-return "exit")) \+;;; begin Stalin+d \+;;; end Stalin+d \+;;; begin Scheme->C+,\+;;; end Scheme->C+d \+;;; begin Gambit-C+,\+;;; end Gambit-C+d \+;;; begin Bigloo+,\+;;; end Bigloo+d \+;;; begin Chez+,\+;;; end Chez+d \+;;; begin Chicken+,\+;;; end Chicken+d stalin-0.11/benchmarks/tak.sc0000600017435200151030000000143406671513670014631 0ustar qobiqobi;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: tak.sc ;;; Description: TAK benchmark from the Gabriel tests ;;; Author: Richard Gabriel ;;; Created: 12-Apr-85 ;;; Modified: 12-Apr-85 09:58:18 (Bob Shaw) ;;; 22-Jul-87 (Will Clinger) ;;; 21-Mar-94 (Qobi) ;;; 31-Mar-98 (Qobi) ;;; Language: Scheme ;;; Status: Public Domain ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; TAK -- A vanilla version of the TAKeuchi function (define (tak x y z) (if (not (< y x)) ;Qobi: avoid temptation to optimize z (tak (tak (- x 1) y z) (tak (- y 1) z x) (tak (- z 1) x y)))) (do ((i 0 (+ i 1))) ((= i 1000)) (write (tak 18 12 6)) (newline)) stalin-0.11/benchmarks/takl.sc0000600017435200151030000000231506671513670015004 0ustar qobiqobi;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: takl.sc ;;; Description: TAKL benchmark from the Gabriel tests ;;; Author: Richard Gabriel ;;; Created: 12-Apr-85 ;;; Modified: 12-Apr-85 10:07:00 (Bob Shaw) ;;; 22-Jul-87 (Will Clinger) ;;; 21-Mar-94 (Qobi) ;;; 31-Mar-98 (Qobi) ;;; Language: Scheme ;;; Status: Public Domain ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; TAKL -- The TAKeuchi function using lists as counters. (define (listn n) (if (not (= 0 n)) ;Qobi: avoid temptation to optimize (cons n (listn (- n 1))) ;Qobi: avoid temptation to optimize '())) ;Qobi (define *18l* (listn 18)) ;Qobi (define *12l* (listn 12)) ;Qobi (define *6l* (listn 6)) ;Qobi (define (mas x y z) (if (not (shorterp y x)) z (mas (mas (cdr x) y z) (mas (cdr y) z x) (mas (cdr z) x y)))) (define (shorterp x y) (and (not (null? y)) ;Qobi: used to depend on () being false (or (null? x) (shorterp (cdr x) (cdr y))))) ;;; note: The LISTN is not done multiple times. (do ((i 0 (+ i 1))) ((= i 1000)) (write (mas *18l* *12l* *6l*)) (newline)) stalin-0.11/benchmarks/takr.sc0000600017435200151030000003524106671513670015016 0ustar qobiqobi;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: takr.sc ;;; Description: TAKR benchmark ;;; Author: Richard Gabriel ;;; Created: 12-Apr-85 ;;; Modified: 12-Apr-85 10:12:43 (Bob Shaw) ;;; 22-Jul-87 (Will Clinger) ;;; 21-Mar-94 (Qobi) ;;; 31-Mar-98 (Qobi) ;;; Language: Scheme ;;; Status: Public Domain ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; TAKR -- 100 function (count `em) version of TAK that tries to defeat cache ;;; memory effects. Results should be the same as for TAK on stack machines. ;;; Distribution of calls is not completely flat. (define (tak0 x y z) (cond ((not (< y x)) z) (else (tak1 (tak37 (- x 1) y z) (tak11 (- y 1) z x) (tak17 (- z 1) x y))))) (define (tak1 x y z) (cond ((not (< y x)) z) (else (tak2 (tak74 (- x 1) y z) (tak22 (- y 1) z x) (tak34 (- z 1) x y))))) (define (tak2 x y z) (cond ((not (< y x)) z) (else (tak3 (tak11 (- x 1) y z) (tak33 (- y 1) z x) (tak51 (- z 1) x y))))) (define (tak3 x y z) (cond ((not (< y x)) z) (else (tak4 (tak48 (- x 1) y z) (tak44 (- y 1) z x) (tak68 (- z 1) x y))))) (define (tak4 x y z) (cond ((not (< y x)) z) (else (tak5 (tak85 (- x 1) y z) (tak55 (- y 1) z x) (tak85 (- z 1) x y))))) (define (tak5 x y z) (cond ((not (< y x)) z) (else (tak6 (tak22 (- x 1) y z) (tak66 (- y 1) z x) (tak2 (- z 1) x y))))) (define (tak6 x y z) (cond ((not (< y x)) z) (else (tak7 (tak59 (- x 1) y z) (tak77 (- y 1) z x) (tak19 (- z 1) x y))))) (define (tak7 x y z) (cond ((not (< y x)) z) (else (tak8 (tak96 (- x 1) y z) (tak88 (- y 1) z x) (tak36 (- z 1) x y))))) (define (tak8 x y z) (cond ((not (< y x)) z) (else (tak9 (tak33 (- x 1) y z) (tak99 (- y 1) z x) (tak53 (- z 1) x y))))) (define (tak9 x y z) (cond ((not (< y x)) z) (else (tak10 (tak70 (- x 1) y z) (tak10 (- y 1) z x) (tak70 (- z 1) x y))))) (define (tak10 x y z) (cond ((not (< y x)) z) (else (tak11 (tak7 (- x 1) y z) (tak21 (- y 1) z x) (tak87 (- z 1) x y))))) (define (tak11 x y z) (cond ((not (< y x)) z) (else (tak12 (tak44 (- x 1) y z) (tak32 (- y 1) z x) (tak4 (- z 1) x y))))) (define (tak12 x y z) (cond ((not (< y x)) z) (else (tak13 (tak81 (- x 1) y z) (tak43 (- y 1) z x) (tak21 (- z 1) x y))))) (define (tak13 x y z) (cond ((not (< y x)) z) (else (tak14 (tak18 (- x 1) y z) (tak54 (- y 1) z x) (tak38 (- z 1) x y))))) (define (tak14 x y z) (cond ((not (< y x)) z) (else (tak15 (tak55 (- x 1) y z) (tak65 (- y 1) z x) (tak55 (- z 1) x y))))) (define (tak15 x y z) (cond ((not (< y x)) z) (else (tak16 (tak92 (- x 1) y z) (tak76 (- y 1) z x) (tak72 (- z 1) x y))))) (define (tak16 x y z) (cond ((not (< y x)) z) (else (tak17 (tak29 (- x 1) y z) (tak87 (- y 1) z x) (tak89 (- z 1) x y))))) (define (tak17 x y z) (cond ((not (< y x)) z) (else (tak18 (tak66 (- x 1) y z) (tak98 (- y 1) z x) (tak6 (- z 1) x y))))) (define (tak18 x y z) (cond ((not (< y x)) z) (else (tak19 (tak3 (- x 1) y z) (tak9 (- y 1) z x) (tak23 (- z 1) x y))))) (define (tak19 x y z) (cond ((not (< y x)) z) (else (tak20 (tak40 (- x 1) y z) (tak20 (- y 1) z x) (tak40 (- z 1) x y))))) (define (tak20 x y z) (cond ((not (< y x)) z) (else (tak21 (tak77 (- x 1) y z) (tak31 (- y 1) z x) (tak57 (- z 1) x y))))) (define (tak21 x y z) (cond ((not (< y x)) z) (else (tak22 (tak14 (- x 1) y z) (tak42 (- y 1) z x) (tak74 (- z 1) x y))))) (define (tak22 x y z) (cond ((not (< y x)) z) (else (tak23 (tak51 (- x 1) y z) (tak53 (- y 1) z x) (tak91 (- z 1) x y))))) (define (tak23 x y z) (cond ((not (< y x)) z) (else (tak24 (tak88 (- x 1) y z) (tak64 (- y 1) z x) (tak8 (- z 1) x y))))) (define (tak24 x y z) (cond ((not (< y x)) z) (else (tak25 (tak25 (- x 1) y z) (tak75 (- y 1) z x) (tak25 (- z 1) x y))))) (define (tak25 x y z) (cond ((not (< y x)) z) (else (tak26 (tak62 (- x 1) y z) (tak86 (- y 1) z x) (tak42 (- z 1) x y))))) (define (tak26 x y z) (cond ((not (< y x)) z) (else (tak27 (tak99 (- x 1) y z) (tak97 (- y 1) z x) (tak59 (- z 1) x y))))) (define (tak27 x y z) (cond ((not (< y x)) z) (else (tak28 (tak36 (- x 1) y z) (tak8 (- y 1) z x) (tak76 (- z 1) x y))))) (define (tak28 x y z) (cond ((not (< y x)) z) (else (tak29 (tak73 (- x 1) y z) (tak19 (- y 1) z x) (tak93 (- z 1) x y))))) (define (tak29 x y z) (cond ((not (< y x)) z) (else (tak30 (tak10 (- x 1) y z) (tak30 (- y 1) z x) (tak10 (- z 1) x y))))) (define (tak30 x y z) (cond ((not (< y x)) z) (else (tak31 (tak47 (- x 1) y z) (tak41 (- y 1) z x) (tak27 (- z 1) x y))))) (define (tak31 x y z) (cond ((not (< y x)) z) (else (tak32 (tak84 (- x 1) y z) (tak52 (- y 1) z x) (tak44 (- z 1) x y))))) (define (tak32 x y z) (cond ((not (< y x)) z) (else (tak33 (tak21 (- x 1) y z) (tak63 (- y 1) z x) (tak61 (- z 1) x y))))) (define (tak33 x y z) (cond ((not (< y x)) z) (else (tak34 (tak58 (- x 1) y z) (tak74 (- y 1) z x) (tak78 (- z 1) x y))))) (define (tak34 x y z) (cond ((not (< y x)) z) (else (tak35 (tak95 (- x 1) y z) (tak85 (- y 1) z x) (tak95 (- z 1) x y))))) (define (tak35 x y z) (cond ((not (< y x)) z) (else (tak36 (tak32 (- x 1) y z) (tak96 (- y 1) z x) (tak12 (- z 1) x y))))) (define (tak36 x y z) (cond ((not (< y x)) z) (else (tak37 (tak69 (- x 1) y z) (tak7 (- y 1) z x) (tak29 (- z 1) x y))))) (define (tak37 x y z) (cond ((not (< y x)) z) (else (tak38 (tak6 (- x 1) y z) (tak18 (- y 1) z x) (tak46 (- z 1) x y))))) (define (tak38 x y z) (cond ((not (< y x)) z) (else (tak39 (tak43 (- x 1) y z) (tak29 (- y 1) z x) (tak63 (- z 1) x y))))) (define (tak39 x y z) (cond ((not (< y x)) z) (else (tak40 (tak80 (- x 1) y z) (tak40 (- y 1) z x) (tak80 (- z 1) x y))))) (define (tak40 x y z) (cond ((not (< y x)) z) (else (tak41 (tak17 (- x 1) y z) (tak51 (- y 1) z x) (tak97 (- z 1) x y))))) (define (tak41 x y z) (cond ((not (< y x)) z) (else (tak42 (tak54 (- x 1) y z) (tak62 (- y 1) z x) (tak14 (- z 1) x y))))) (define (tak42 x y z) (cond ((not (< y x)) z) (else (tak43 (tak91 (- x 1) y z) (tak73 (- y 1) z x) (tak31 (- z 1) x y))))) (define (tak43 x y z) (cond ((not (< y x)) z) (else (tak44 (tak28 (- x 1) y z) (tak84 (- y 1) z x) (tak48 (- z 1) x y))))) (define (tak44 x y z) (cond ((not (< y x)) z) (else (tak45 (tak65 (- x 1) y z) (tak95 (- y 1) z x) (tak65 (- z 1) x y))))) (define (tak45 x y z) (cond ((not (< y x)) z) (else (tak46 (tak2 (- x 1) y z) (tak6 (- y 1) z x) (tak82 (- z 1) x y))))) (define (tak46 x y z) (cond ((not (< y x)) z) (else (tak47 (tak39 (- x 1) y z) (tak17 (- y 1) z x) (tak99 (- z 1) x y))))) (define (tak47 x y z) (cond ((not (< y x)) z) (else (tak48 (tak76 (- x 1) y z) (tak28 (- y 1) z x) (tak16 (- z 1) x y))))) (define (tak48 x y z) (cond ((not (< y x)) z) (else (tak49 (tak13 (- x 1) y z) (tak39 (- y 1) z x) (tak33 (- z 1) x y))))) (define (tak49 x y z) (cond ((not (< y x)) z) (else (tak50 (tak50 (- x 1) y z) (tak50 (- y 1) z x) (tak50 (- z 1) x y))))) (define (tak50 x y z) (cond ((not (< y x)) z) (else (tak51 (tak87 (- x 1) y z) (tak61 (- y 1) z x) (tak67 (- z 1) x y))))) (define (tak51 x y z) (cond ((not (< y x)) z) (else (tak52 (tak24 (- x 1) y z) (tak72 (- y 1) z x) (tak84 (- z 1) x y))))) (define (tak52 x y z) (cond ((not (< y x)) z) (else (tak53 (tak61 (- x 1) y z) (tak83 (- y 1) z x) (tak1 (- z 1) x y))))) (define (tak53 x y z) (cond ((not (< y x)) z) (else (tak54 (tak98 (- x 1) y z) (tak94 (- y 1) z x) (tak18 (- z 1) x y))))) (define (tak54 x y z) (cond ((not (< y x)) z) (else (tak55 (tak35 (- x 1) y z) (tak5 (- y 1) z x) (tak35 (- z 1) x y))))) (define (tak55 x y z) (cond ((not (< y x)) z) (else (tak56 (tak72 (- x 1) y z) (tak16 (- y 1) z x) (tak52 (- z 1) x y))))) (define (tak56 x y z) (cond ((not (< y x)) z) (else (tak57 (tak9 (- x 1) y z) (tak27 (- y 1) z x) (tak69 (- z 1) x y))))) (define (tak57 x y z) (cond ((not (< y x)) z) (else (tak58 (tak46 (- x 1) y z) (tak38 (- y 1) z x) (tak86 (- z 1) x y))))) (define (tak58 x y z) (cond ((not (< y x)) z) (else (tak59 (tak83 (- x 1) y z) (tak49 (- y 1) z x) (tak3 (- z 1) x y))))) (define (tak59 x y z) (cond ((not (< y x)) z) (else (tak60 (tak20 (- x 1) y z) (tak60 (- y 1) z x) (tak20 (- z 1) x y))))) (define (tak60 x y z) (cond ((not (< y x)) z) (else (tak61 (tak57 (- x 1) y z) (tak71 (- y 1) z x) (tak37 (- z 1) x y))))) (define (tak61 x y z) (cond ((not (< y x)) z) (else (tak62 (tak94 (- x 1) y z) (tak82 (- y 1) z x) (tak54 (- z 1) x y))))) (define (tak62 x y z) (cond ((not (< y x)) z) (else (tak63 (tak31 (- x 1) y z) (tak93 (- y 1) z x) (tak71 (- z 1) x y))))) (define (tak63 x y z) (cond ((not (< y x)) z) (else (tak64 (tak68 (- x 1) y z) (tak4 (- y 1) z x) (tak88 (- z 1) x y))))) (define (tak64 x y z) (cond ((not (< y x)) z) (else (tak65 (tak5 (- x 1) y z) (tak15 (- y 1) z x) (tak5 (- z 1) x y))))) (define (tak65 x y z) (cond ((not (< y x)) z) (else (tak66 (tak42 (- x 1) y z) (tak26 (- y 1) z x) (tak22 (- z 1) x y))))) (define (tak66 x y z) (cond ((not (< y x)) z) (else (tak67 (tak79 (- x 1) y z) (tak37 (- y 1) z x) (tak39 (- z 1) x y))))) (define (tak67 x y z) (cond ((not (< y x)) z) (else (tak68 (tak16 (- x 1) y z) (tak48 (- y 1) z x) (tak56 (- z 1) x y))))) (define (tak68 x y z) (cond ((not (< y x)) z) (else (tak69 (tak53 (- x 1) y z) (tak59 (- y 1) z x) (tak73 (- z 1) x y))))) (define (tak69 x y z) (cond ((not (< y x)) z) (else (tak70 (tak90 (- x 1) y z) (tak70 (- y 1) z x) (tak90 (- z 1) x y))))) (define (tak70 x y z) (cond ((not (< y x)) z) (else (tak71 (tak27 (- x 1) y z) (tak81 (- y 1) z x) (tak7 (- z 1) x y))))) (define (tak71 x y z) (cond ((not (< y x)) z) (else (tak72 (tak64 (- x 1) y z) (tak92 (- y 1) z x) (tak24 (- z 1) x y))))) (define (tak72 x y z) (cond ((not (< y x)) z) (else (tak73 (tak1 (- x 1) y z) (tak3 (- y 1) z x) (tak41 (- z 1) x y))))) (define (tak73 x y z) (cond ((not (< y x)) z) (else (tak74 (tak38 (- x 1) y z) (tak14 (- y 1) z x) (tak58 (- z 1) x y))))) (define (tak74 x y z) (cond ((not (< y x)) z) (else (tak75 (tak75 (- x 1) y z) (tak25 (- y 1) z x) (tak75 (- z 1) x y))))) (define (tak75 x y z) (cond ((not (< y x)) z) (else (tak76 (tak12 (- x 1) y z) (tak36 (- y 1) z x) (tak92 (- z 1) x y))))) (define (tak76 x y z) (cond ((not (< y x)) z) (else (tak77 (tak49 (- x 1) y z) (tak47 (- y 1) z x) (tak9 (- z 1) x y))))) (define (tak77 x y z) (cond ((not (< y x)) z) (else (tak78 (tak86 (- x 1) y z) (tak58 (- y 1) z x) (tak26 (- z 1) x y))))) (define (tak78 x y z) (cond ((not (< y x)) z) (else (tak79 (tak23 (- x 1) y z) (tak69 (- y 1) z x) (tak43 (- z 1) x y))))) (define (tak79 x y z) (cond ((not (< y x)) z) (else (tak80 (tak60 (- x 1) y z) (tak80 (- y 1) z x) (tak60 (- z 1) x y))))) (define (tak80 x y z) (cond ((not (< y x)) z) (else (tak81 (tak97 (- x 1) y z) (tak91 (- y 1) z x) (tak77 (- z 1) x y))))) (define (tak81 x y z) (cond ((not (< y x)) z) (else (tak82 (tak34 (- x 1) y z) (tak2 (- y 1) z x) (tak94 (- z 1) x y))))) (define (tak82 x y z) (cond ((not (< y x)) z) (else (tak83 (tak71 (- x 1) y z) (tak13 (- y 1) z x) (tak11 (- z 1) x y))))) (define (tak83 x y z) (cond ((not (< y x)) z) (else (tak84 (tak8 (- x 1) y z) (tak24 (- y 1) z x) (tak28 (- z 1) x y))))) (define (tak84 x y z) (cond ((not (< y x)) z) (else (tak85 (tak45 (- x 1) y z) (tak35 (- y 1) z x) (tak45 (- z 1) x y))))) (define (tak85 x y z) (cond ((not (< y x)) z) (else (tak86 (tak82 (- x 1) y z) (tak46 (- y 1) z x) (tak62 (- z 1) x y))))) (define (tak86 x y z) (cond ((not (< y x)) z) (else (tak87 (tak19 (- x 1) y z) (tak57 (- y 1) z x) (tak79 (- z 1) x y))))) (define (tak87 x y z) (cond ((not (< y x)) z) (else (tak88 (tak56 (- x 1) y z) (tak68 (- y 1) z x) (tak96 (- z 1) x y))))) (define (tak88 x y z) (cond ((not (< y x)) z) (else (tak89 (tak93 (- x 1) y z) (tak79 (- y 1) z x) (tak13 (- z 1) x y))))) (define (tak89 x y z) (cond ((not (< y x)) z) (else (tak90 (tak30 (- x 1) y z) (tak90 (- y 1) z x) (tak30 (- z 1) x y))))) (define (tak90 x y z) (cond ((not (< y x)) z) (else (tak91 (tak67 (- x 1) y z) (tak1 (- y 1) z x) (tak47 (- z 1) x y))))) (define (tak91 x y z) (cond ((not (< y x)) z) (else (tak92 (tak4 (- x 1) y z) (tak12 (- y 1) z x) (tak64 (- z 1) x y))))) (define (tak92 x y z) (cond ((not (< y x)) z) (else (tak93 (tak41 (- x 1) y z) (tak23 (- y 1) z x) (tak81 (- z 1) x y))))) (define (tak93 x y z) (cond ((not (< y x)) z) (else (tak94 (tak78 (- x 1) y z) (tak34 (- y 1) z x) (tak98 (- z 1) x y))))) (define (tak94 x y z) (cond ((not (< y x)) z) (else (tak95 (tak15 (- x 1) y z) (tak45 (- y 1) z x) (tak15 (- z 1) x y))))) (define (tak95 x y z) (cond ((not (< y x)) z) (else (tak96 (tak52 (- x 1) y z) (tak56 (- y 1) z x) (tak32 (- z 1) x y))))) (define (tak96 x y z) (cond ((not (< y x)) z) (else (tak97 (tak89 (- x 1) y z) (tak67 (- y 1) z x) (tak49 (- z 1) x y))))) (define (tak97 x y z) (cond ((not (< y x)) z) (else (tak98 (tak26 (- x 1) y z) (tak78 (- y 1) z x) (tak66 (- z 1) x y))))) (define (tak98 x y z) (cond ((not (< y x)) z) (else (tak99 (tak63 (- x 1) y z) (tak89 (- y 1) z x) (tak83 (- z 1) x y))))) (define (tak99 x y z) (cond ((not (< y x)) z) (else (tak0 (tak0 (- x 1) y z) (tak0 (- y 1) z x) (tak0 (- z 1) x y))))) (do ((i 0 (+ i 1))) ((= i 1000)) (write (tak0 18 12 6)) (newline)) stalin-0.11/benchmarks/tprint.sc0000600017435200151030000000272106671513670015372 0ustar qobiqobi;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: tprint.sc ;;; Description: TPRINT benchmark from the Gabriel tests ;;; Author: Richard Gabriel ;;; Created: 12-Apr-85 ;;; Modified: 19-Jul-85 19:05:26 (Bob Shaw) ;;; 23-Jul-87 (Will Clinger) ;;; 21-Mar-94 (Qobi) ;;; 31-Mar-98 (Qobi) ;;; Language: Scheme ;;; Status: Public Domain ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; TPRINT -- Benchmark to print and read to the terminal. (define ttest-atoms '(abc1 cde2 efg3 ghi4 ijk5 klm6 mno7 opq8 qrs9 ;; Qobi: changed 123A to A123 etc. since Scheme->C ;; can't READ original symbols stu0 uvw1 wxy2 xyz3 a123 b234 c345 d456 d567 e678 f789 g890)) (define (init m n atoms) (define (copy x) (if (pair? x) (cons (copy (car x)) (copy (cdr x))) x)) (let ((atoms (copy atoms))) (do ((a atoms (cdr a))) ((null? (cdr a)) (set-cdr! a atoms) a)) (init-aux m n atoms))) (define (init-aux m n atoms) (cond ((= m 0) (car atoms)) (else (do ((i n (- i 2)) (a '())) ((< i 1) a) (set! a (cons (car atoms) a)) (set! atoms (cdr atoms)) ;; Qobi: changed (1- m) to (- m 1) (set! a (cons (init-aux (- m 1) n atoms) a)))))) (define ttest-pattern (init 6 6 ttest-atoms)) ;;; note: The INIT is not done multiple times. (do ((i 0 (+ i 1))) ((= i 1000)) (write ttest-pattern) (newline)) stalin-0.11/benchmarks/traverse-init.sc0000600017435200151030000001144706671513670016653 0ustar qobiqobi;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: traverse.sc ;;; Description: TRAVERSE benchmark ;;; Author: Richard Gabriel ;;; Created: 12-Apr-85 ;;; Modified: 12-Apr-85 10:24:04 (Bob Shaw) ;;; 9-Aug-87 (Will Clinger) ;;; 20-Nov-94 (Qobi) ;;; 31-Mar-98 (Qobi) ;;; Language: Scheme ;;; Status: Public Domain ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; TRAVERSE -- Benchmark which creates and traverses a tree structure. (define (run) (define (make-node) (let ((node (make-vector 11 '()))) (vector-set! node 0 'node) (vector-set! node 3 (snb)) (vector-set! node 4 #f) ;Qobi (vector-set! node 5 #f) ;Qobi (vector-set! node 6 #f) ;Qobi (vector-set! node 7 #f) ;Qobi (vector-set! node 8 #f) ;Qobi (vector-set! node 9 #f) ;Qobi (vector-set! node 10 #f) ;Qobi node)) (define (node-parents node) (vector-ref node 1)) (define (node-sons node) (vector-ref node 2)) (define (node-sn node) (vector-ref node 3)) (define (node-entry1 node) (vector-ref node 4)) (define (node-entry2 node) (vector-ref node 5)) (define (node-entry3 node) (vector-ref node 6)) (define (node-entry4 node) (vector-ref node 7)) (define (node-entry5 node) (vector-ref node 8)) (define (node-entry6 node) (vector-ref node 9)) (define (node-mark node) (vector-ref node 10)) (define (node-parents-set! node v) (vector-set! node 1 v)) (define (node-sons-set! node v) (vector-set! node 2 v)) (define (node-sn-set! node v) (vector-set! node 3 v)) (define (node-entry1-set! node v) (vector-set! node 4 v)) (define (node-entry2-set! node v) (vector-set! node 5 v)) (define (node-entry3-set! node v) (vector-set! node 6 v)) (define (node-entry4-set! node v) (vector-set! node 7 v)) (define (node-entry5-set! node v) (vector-set! node 8 v)) (define (node-entry6-set! node v) (vector-set! node 9 v)) (define (node-mark-set! node v) (vector-set! node 10 v)) (define *sn* 0) (define *rand* 21) (define *count* 0) (define *marker* #f) (define *root* '()) (define (snb) (set! *sn* (+ 1 *sn*)) *sn*) (define (seed) (set! *rand* 21) *rand*) (define (traverse-random) (set! *rand* (remainder (* *rand* 17) 251)) *rand*) (define (traverse-remove n q) (cond ((eq? (cdr (car q)) (car q)) (let ((x (caar q))) (set-car! q '()) x)) ((zero? n) (let ((x (caar q))) (do ((p (car q) (cdr p))) ((eq? (cdr p) (car q)) (set-cdr! p (cdr (car q))) (set-car! q p))) x)) (else (do ((n n (- n 1)) (q (car q) (cdr q)) (p (cdr (car q)) (cdr p))) ((zero? n) (let ((x (car q))) (set-cdr! q p) x)))))) (define (traverse-select n q) (do ((n n (- n 1)) (q (car q) (cdr q))) ((zero? n) (car q)))) (define (add a q) (cond ((null? q) `(,(let ((x `(,a))) (set-cdr! x x) x))) ((null? (car q)) (let ((x `(,a))) (set-cdr! x x) (set-car! q x) q)) ;; the CL version had a useless set-car! in the next line (wc) (else (set-cdr! (car q) `(,a . ,(cdr (car q)))) q))) (define (create-structure n) (let ((a `(,(make-node)))) (do ((m (- n 1) (- m 1)) (p a)) ((zero? m) (set! a `(,(begin (set-cdr! p a) p))) (do ((unused a) (used (add (traverse-remove 0 a) '())) (x 0) (y 0)) ((null? (car unused)) (find-root (traverse-select 0 used) n)) (set! x (traverse-remove (remainder (traverse-random) n) unused)) (set! y (traverse-select (remainder (traverse-random) n) used)) (add x used) (node-sons-set! y `(,x . ,(node-sons y))) (node-parents-set! x `(,y . ,(node-parents x))) )) (set! a (cons (make-node) a))))) (define (find-root node n) (do ((n n (- n 1))) ((or (zero? n) (null? (node-parents node))) node) (set! node (car (node-parents node))))) (define (travers node mark) (cond ((eq? (node-mark node) mark) #f) (else (node-mark-set! node mark) (set! *count* (+ 1 *count*)) (node-entry1-set! node (not (node-entry1 node))) (node-entry2-set! node (not (node-entry2 node))) (node-entry3-set! node (not (node-entry3 node))) (node-entry4-set! node (not (node-entry4 node))) (node-entry5-set! node (not (node-entry5 node))) (node-entry6-set! node (not (node-entry6 node))) (do ((sons (node-sons node) (cdr sons))) ((null? sons) #f) (travers (car sons) mark))))) (define (traverse root) (let ((*count* 0)) (travers root (begin (set! *marker* (not *marker*)) *marker*)) *count*)) (define (init-traverse) ; Changed from defmacro to defun \bs (set! *root* (create-structure 100)) #f) (define (run-traverse) ; Changed from defmacro to defun \bs (do ((i 50 (- i 1))) ((zero? i)) (traverse *root*) (traverse *root*) (traverse *root*) (traverse *root*) (traverse *root*))) (init-traverse)) (do ((i 0 (+ i 1))) ((= i 1000)) (run)) stalin-0.11/benchmarks/traverse.sc0000600017435200151030000001147006671513670015706 0ustar qobiqobi;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; File: traverse.sc ;;; Description: TRAVERSE benchmark ;;; Author: Richard Gabriel ;;; Created: 12-Apr-85 ;;; Modified: 12-Apr-85 10:24:04 (Bob Shaw) ;;; 9-Aug-87 (Will Clinger) ;;; 20-Nov-94 (Qobi) ;;; 31-Mar-98 (Qobi) ;;; Language: Scheme ;;; Status: Public Domain ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; TRAVERSE -- Benchmark which creates and traverses a tree structure. (define (run) (define (make-node) (let ((node (make-vector 11 '()))) (vector-set! node 0 'node) (vector-set! node 3 (snb)) (vector-set! node 4 #f) ;Qobi (vector-set! node 5 #f) ;Qobi (vector-set! node 6 #f) ;Qobi (vector-set! node 7 #f) ;Qobi (vector-set! node 8 #f) ;Qobi (vector-set! node 9 #f) ;Qobi (vector-set! node 10 #f) ;Qobi node)) (define (node-parents node) (vector-ref node 1)) (define (node-sons node) (vector-ref node 2)) (define (node-sn node) (vector-ref node 3)) (define (node-entry1 node) (vector-ref node 4)) (define (node-entry2 node) (vector-ref node 5)) (define (node-entry3 node) (vector-ref node 6)) (define (node-entry4 node) (vector-ref node 7)) (define (node-entry5 node) (vector-ref node 8)) (define (node-entry6 node) (vector-ref node 9)) (define (node-mark node) (vector-ref node 10)) (define (node-parents-set! node v) (vector-set! node 1 v)) (define (node-sons-set! node v) (vector-set! node 2 v)) (define (node-sn-set! node v) (vector-set! node 3 v)) (define (node-entry1-set! node v) (vector-set! node 4 v)) (define (node-entry2-set! node v) (vector-set! node 5 v)) (define (node-entry3-set! node v) (vector-set! node 6 v)) (define (node-entry4-set! node v) (vector-set! node 7 v)) (define (node-entry5-set! node v) (vector-set! node 8 v)) (define (node-entry6-set! node v) (vector-set! node 9 v)) (define (node-mark-set! node v) (vector-set! node 10 v)) (define *sn* 0) (define *rand* 21) (define *count* 0) (define *marker* #f) (define *root* '()) (define (snb) (set! *sn* (+ 1 *sn*)) *sn*) (define (seed) (set! *rand* 21) *rand*) (define (traverse-random) (set! *rand* (remainder (* *rand* 17) 251)) *rand*) (define (traverse-remove n q) (cond ((eq? (cdr (car q)) (car q)) (let ((x (caar q))) (set-car! q '()) x)) ((zero? n) (let ((x (caar q))) (do ((p (car q) (cdr p))) ((eq? (cdr p) (car q)) (set-cdr! p (cdr (car q))) (set-car! q p))) x)) (else (do ((n n (- n 1)) (q (car q) (cdr q)) (p (cdr (car q)) (cdr p))) ((zero? n) (let ((x (car q))) (set-cdr! q p) x)))))) (define (traverse-select n q) (do ((n n (- n 1)) (q (car q) (cdr q))) ((zero? n) (car q)))) (define (add a q) (cond ((null? q) `(,(let ((x `(,a))) (set-cdr! x x) x))) ((null? (car q)) (let ((x `(,a))) (set-cdr! x x) (set-car! q x) q)) ;; the CL version had a useless set-car! in the next line (wc) (else (set-cdr! (car q) `(,a . ,(cdr (car q)))) q))) (define (create-structure n) (let ((a `(,(make-node)))) (do ((m (- n 1) (- m 1)) (p a)) ((zero? m) (set! a `(,(begin (set-cdr! p a) p))) (do ((unused a) (used (add (traverse-remove 0 a) '())) (x 0) (y 0)) ((null? (car unused)) (find-root (traverse-select 0 used) n)) (set! x (traverse-remove (remainder (traverse-random) n) unused)) (set! y (traverse-select (remainder (traverse-random) n) used)) (add x used) (node-sons-set! y `(,x . ,(node-sons y))) (node-parents-set! x `(,y . ,(node-parents x))) )) (set! a (cons (make-node) a))))) (define (find-root node n) (do ((n n (- n 1))) ((or (zero? n) (null? (node-parents node))) node) (set! node (car (node-parents node))))) (define (travers node mark) (cond ((eq? (node-mark node) mark) #f) (else (node-mark-set! node mark) (set! *count* (+ 1 *count*)) (node-entry1-set! node (not (node-entry1 node))) (node-entry2-set! node (not (node-entry2 node))) (node-entry3-set! node (not (node-entry3 node))) (node-entry4-set! node (not (node-entry4 node))) (node-entry5-set! node (not (node-entry5 node))) (node-entry6-set! node (not (node-entry6 node))) (do ((sons (node-sons node) (cdr sons))) ((null? sons) #f) (travers (car sons) mark))))) (define (traverse root) (let ((*count* 0)) (travers root (begin (set! *marker* (not *marker*)) *marker*)) *count*)) (define (init-traverse) ; Changed from defmacro to defun \bs (set! *root* (create-structure 100)) #f) (define (run-traverse) ; Changed from defmacro to defun \bs (do ((i 50 (- i 1))) ((zero? i)) (traverse *root*) (traverse *root*) (traverse *root*) (traverse *root*) (traverse *root*))) (init-traverse) (run-traverse)) (do ((i 0 (+ i 1))) ((= i 1000)) (run)) stalin-0.11/benchmarks/unbuff.c0000600017435200151030000000547306720556535015165 0ustar qobiqobi/* * Run a command with it's standard output and stderr hooked to a * pseudo-tty which we pass on to our stdout. The point * of all of this is so that the command's stdio will not * buffer it's output. */ #include #include #include #include #include /* * The following definitions make C more amenable to a purist. */ #define bool char /* boolean type */ #define uint unsigned int /* short names for unsigned types */ #define ulong unsigned long #define ullong unsigned long long /* GCC extension */ #define llong long long /* GCC extension */ #define uchar unsigned char #define ushort unsigned short int #define not ! /* logical negation operator */ #define and && /* logical conjunction */ #define or || /* logical disjunction */ #define TRUE (0 == 0) #define FALSE (not TRUE) #define loop while (TRUE) /* loop until break */ #define EOS '\0' /* end-of-string char */ #ifndef NULL #define NULL 0 /* invalid pointer */ #endif #define unless(p) if (not (p)) #define until(p) while (not (p)) #define cardof(a) (sizeof(a) / sizeof(*(a))) #define endof(a) ((a) + cardof(a)) #define bitsof(a) (sizeof(a) * 8) #define STDOUT 1 /* standard output file descriptor */ #define STDERR 2 /* standard error file descriptor */ static bool pty(); /* * Run a subsidiary command in such a way that it's standard output will * not be buffered. */ int main(argc, argv) int argc; char *argv[]; { int mfd, sfd, len; char buff[BUFSIZ]; struct termios tbuff; if (*++argv == NULL) { fprintf(stderr, "Usage: unbuff command ...\n"); exit(1); } unless (pty(&mfd, &sfd)) { fprintf(stderr, "Can't make pty/tty pair\n"); exit(1); } switch (fork()) { case -1: fprintf(stderr, "Try again\n"); exit(1); case 0: close(mfd); dup2(sfd, STDOUT); dup2(sfd, STDERR); close(sfd); tcgetattr(STDOUT, &tbuff); tbuff.c_oflag &= ~ OPOST; tcsetattr(STDOUT, TCSANOW, &tbuff); execvp(*argv, argv); fprintf(stderr, "Can't find %s\n", *argv); exit(1); default: close(sfd); loop { len = read(mfd, buff, BUFSIZ); if (len <= 0) break; write(STDOUT, buff, len); } } return (0); } /* * This procedure assumes that pseudo-tty's are named * /dev/pty[p-s][0-9a-f] master side * /dev/tty[p-s][0-9a-f] slave side */ static bool pty(mfdp, sfdp) int *mfdp, *sfdp; { char *first, *second; static char master[] = "/dev/pty??", slave[] = "/dev/tty??"; for (first = "pqrs"; *first != EOS; ++first) { endof(master)[-3] = *first; endof(slave)[-3] = *first; for (second = "0123456789abcdef"; *second != EOS; ++second) { endof(master)[-2] = *second; *mfdp = open(master, 2); if (*mfdp >= 0) { endof(slave)[-2] = *second; *sfdp = open(slave, 2); if (*sfdp >= 0) return (TRUE); close(*mfdp); } } } return (FALSE); } stalin-0.11/benchmarks/xhello.sc0000600017435200151030000000201106672006304015325 0ustar qobiqobi(include "Scheme-to-C-compatibility") (include "xlib") (let ((display (xopendisplay ""))) (when (zero? display) (panic "Can't open display")) (let* ((screen (xdefaultscreen display)) (root (xrootwindow display screen)) (window (xcreatesimplewindow display root 100 200 300 50 0 (xblackpixel display screen) (xwhitepixel display screen)))) (when (zero? window) (panic "Can't open window")) (let ((font (xloadfont display "10x20"))) (when (zero? font) (panic "Can't load font")) (let ((gc (xcreategc display window 0 (integer->pointer 0))) (event (make-xevent))) (xsetforeground display gc (xblackpixel display screen)) (xsetbackground display gc (xwhitepixel display screen)) (xsetfunction display gc gxcopy) (xsetfont display gc font) (xselectinput display window (bitwise-or exposuremask buttonpressmask)) (xmapwindow display window) (xnextevent display event) (xdrawstring display window gc 100 30 "Hello World!" 12) (xflush display) (xnextevent display event))))) stalin-0.11/include/0000700017435200151030000000000010510277237013016 5ustar qobiqobistalin-0.11/include/gl-c.c0000600017435200151030000000165306704715152014016 0ustar qobiqobi#include #include #include /* * Richard Mann * 18 May 1998 * * Copyright 1998 NEC Research Institute, Inc. All rights reserved. * */ unsigned glob_glutStrokeRoman( void ) { return (unsigned)&glutStrokeRoman; } unsigned glob_glutStrokeMonoRoman( void ) { return (unsigned)&glutStrokeMonoRoman; } unsigned glob_glutBitmap9By15( void ) { return (unsigned)&glutBitmap9By15; } unsigned glob_glutBitmap8By13( void ) { return (unsigned)&glutBitmap8By13; } unsigned glob_glutBitmapTimesRoman10( void ) { return (unsigned)&glutBitmapTimesRoman10; } unsigned glob_glutBitmapTimesRoman24( void ) { return (unsigned)&glutBitmapTimesRoman24; } unsigned glob_glutBitmapHelvetica10( void ) { return (unsigned)&glutBitmapHelvetica10; } unsigned glob_glutBitmapHelvetica12( void ) { return (unsigned)&glutBitmapHelvetica12; } unsigned glob_glutBitmapHelvetica18( void ) { return (unsigned)&glutBitmapHelvetica18; } stalin-0.11/include/QobiScheme.sc0000600017435200151030000056500410020422612015361 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; Stalin 0.10 - A global optimizing compiler for Scheme ;;; Copyright 1993, 1994, and 1995 University of Toronto. All rights reserved. ;;; Copyright 1996 Technion. All rights reserved. ;;; Copyright 1996 and 1997 University of Vermont. All rights reserved. ;;; Copyright 1997, 1998, 1999, 2000, and 2001 NEC Research Institute, Inc. All ;;; rights reserved. ;;; Copyright 2002 and 2003 Purdue University. All rights reserved. ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License ;;; as published by the Free Software Foundation; either version 2 ;;; of the License, or (at your option) any later version. ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;;; written by: ;;; Jeffrey Mark Siskind ;;; NEC Research Institute, Inc. ;;; 4 Independence Way ;;; Princeton NJ 08540-6620 USA ;;; voice: 609/951-2705 ;;; FAX: 609/951-2483 ;;; Qobi@research.nj.nec.com ;;; ftp://ftp.nj.nec.com/pub/qobi ;;; http://www.neci.nj.nec.com/homepages/qobi ;;; Derived from the t4aug98 archive of QobiScheme, updated to the m7dec98, ;;; m24jan00, f10mar00, h22apr00, f5may00, m12jun00, and m25jun01 archives. ;;; removed: MODULE ;;; TTMTTD ;;; 1. learn how to use profiler ;;; 2. self-documentation ;;; 3. ability to abort out of button presses ;;; 4. What if debugger called inside WITH-INPUT-FROM-FILE or ;;; WITH-OUTPUT-TO-FILE? I.e. should temporarily rebind CURRENT-INPUT-PORT ;;; and CURRENT-OUTPUT-PORT inside debugger. ;;; 5. Should catch stack overflow error and out of memory error. ;;; 6. $, $$, and $$$ only work in debugger. ;;; 7. What about errors inside debugger? ;;; 8. Breakpoints, tracing, and timeouts. ;;; 9. Should save error string and only call format once on format-string ;;; and args. ;;; 10. Can't nest interrupts more than two deep. ;;; 11. Need to make c-z c, c-z e, c-d, c-z a, and m-TAB work. ;;; 12. Need way to set DISPLAY, SCGCINFO, SCHEAP, SCLIMIT, SCMAXHEAP, ;;; stack (and other) limits, and cd. ;;; 13. Maybe put back checks for "SCEVAL_INTERPRETED-PROC" and ;;; "LOOP [inside EXEC]". (include "Scheme-to-C-compatibility") ;added (include "xlib") ;changed (define pp write) ;added (define (remq! x l) (panic "REMQ! is not (yet) implemented")) ;added ;;; System Conditionalization ;;; note: The following can't use TMP since the variable *TMP* might not be ;;; initialized yet. (define *cpu-type* #f) (define (cpu-type) (unless *cpu-type* (system "uname -m >/tmp/QobiScheme.tmp") (set! *cpu-type* (first (read-file "/tmp/QobiScheme.tmp"))) (system "rm -f /tmp/QobiScheme.tmp")) *cpu-type*) (define *os-type* #f) (define (os-type) (unless *os-type* (system "uname -s >/tmp/QobiScheme.tmp") (set! *os-type* (first (read-file "/tmp/QobiScheme.tmp"))) (system "rm -f /tmp/QobiScheme.tmp")) *os-type*) (define *os-version* #f) (define (os-version) (unless *os-version* (system "uname -r >/tmp/QobiScheme.tmp") (set! *os-version* (first (read-file "/tmp/QobiScheme.tmp"))) (system "rm -f /tmp/QobiScheme.tmp")) *os-version*) (define *os-major-version* #f) (define (os-major-version) (unless *os-major-version* (system "uname -r|cut -f 1 -d. >/tmp/QobiScheme.tmp") (set! *os-major-version* (string->number (first (read-file "/tmp/QobiScheme.tmp")))) (system "rm -f /tmp/QobiScheme.tmp")) *os-major-version*) (define *os-minor-version* #f) (define (os-minor-version) (unless *os-minor-version* (system "uname -r|cut -f 2 -d. >/tmp/QobiScheme.tmp") (set! *os-minor-version* (string->number (first (read-file "/tmp/QobiScheme.tmp")))) (system "rm -f /tmp/QobiScheme.tmp")) *os-minor-version*) (define *os-sub-version* #f) (define (os-sub-version) (unless *os-sub-version* (system "uname -r|cut -f 3 -d. >/tmp/QobiScheme.tmp") (set! *os-sub-version* (string->number (first (read-file "/tmp/QobiScheme.tmp")))) (system "rm -f /tmp/QobiScheme.tmp")) *os-sub-version*) ;;; Sugar ;;; removed: EVAL-WHEN (define first car) ;changed (define second cadr) ;changed (define third caddr) ;changed (define fourth cadddr) ;changed (define (fifth x) (car (cddddr x))) (define (sixth x) (cadr (cddddr x))) (define (seventh x) (caddr (cddddr x))) (define (eighth x) (cadddr (cddddr x))) (define (ninth x) (car (cddddr (cddddr x)))) (define (tenth x) (cadr (cddddr (cddddr x)))) (define (eleventh x) (caddr (cddddr (cddddr x)))) (define (twelfth x) (cadddr (cddddr (cddddr x)))) (define rest cdr) ;changed (define (last x) (if (null? (rest x)) (first x) (last (rest x)))) (define (sqr x) (* x x)) (define (xor a b) (if a (not b) b)) (define (identity x) x) (define (nan? x) (not (= x x))) ;;; removed: WHILE ;;; changed: This is just a stub. (define *panic?* #t) (define *program* "") ;changed ;;; removed: PANIC (define (fuck-up) (panic "This shouldn't happen")) ;;; removed: USAGE (define (compose . fs) (if (null? fs) identity (lambda (x) ((apply compose (rest fs)) ((first fs) x))))) (define (rounded-number->string x . digits-of-precision) (if (null? digits-of-precision) (number->string (inexact->exact (round x))) (let* ((digits (first digits-of-precision)) (factor (expt 10.0 digits)) (n (abs (inexact->exact (round (* x factor))))) (s (number->string n)) (l (string-length s)) (rs (if (< n factor) (string-append "0." (make-string (- digits l) #\0) s) (string-append (substring s 0 (- l digits)) "." (substring s (- l digits) l))))) (if (< x 0) (string-append "-" rs) rs)))) (define (number->string-of-length number length) (let ((string (number->string number))) (string-append (make-string (- length (string-length string)) #\space) string))) (define (number->padded-string-of-length number length) (when (negative? number) (fuck-up)) (let ((string (number->string number))) (string-append (make-string (- length (string-length string)) #\0) string))) (define (number->string-of-length-and-precision number length precision) (let* ((negative? (negative? number)) (integer-part (inexact->exact (floor (abs number)))) (fraction-part (inexact->exact (floor (* (expt 10 precision) (- (abs number) integer-part))))) (integer-part-string (number->string integer-part)) (fraction-part-string (number->string fraction-part))) (if negative? (string-append (make-string (- length (string-length integer-part-string) 2 precision) #\space) "-" integer-part-string "." (make-string (- precision (string-length fraction-part-string)) #\0) fraction-part-string) (string-append (make-string (- length (string-length integer-part-string) 1 precision) #\space) integer-part-string "." (make-string (- precision (string-length fraction-part-string)) #\0) fraction-part-string)))) (define (time format-string thunk) (let* ((start (clock-sample)) (result (thunk)) (end (clock-sample))) (format #t format-string (number->string-of-length-and-precision (- end start) 8 2)) result)) (define c-getenv (foreign-procedure (char*) char* "getenv" "stdlib")) ;changed (define (getenv string) ;; changed (if (zero? (c-getenv string)) #f (c-getenv string))) (define (archive-date) (rm (tmp "archive-date")) (system (format #f "archive-date >~a" (tmp "archive-date"))) (let ((archive-date (read-file (tmp "archive-date")))) (rm (tmp "archive-date")) (first archive-date))) ;;; Structures ;;; removed: DEFINE-STRUCTURE ;;; removed: DEFINE-STRUCTURE-INTERNAL ;;; Sequences (define (list-set! l i x) (if (zero? i) (set-car! l x) (list-set! (cdr l) (- i 1) x))) (define (list-insert l i x) (if (zero? i) (cons x l) (cons (first l) (list-insert (rest l) (- i 1) x)))) (define (list-remove l i) (if (zero? i) (rest l) (cons (first l) (list-remove (rest l) (- i 1))))) (define (list-replace l i x) (if (zero? i) (cons x (rest l)) (cons (first l) (list-replace (rest l) (- i 1) x)))) (define (but-last x) (reverse (rest (reverse x)))) ;;; removed: SUBLIST ;;; removed: SUBVECTOR ;;; removed: EVAL-WHEN (define (reduce f l i) (cond ((null? l) i) ((null? (rest l)) (first l)) (else (let loop ((l (rest l)) (c (first l))) (if (null? l) c (loop (rest l) (f c (first l)))))))) (define (reduce-n f n i) (let loop ((i 0) (c i)) (if (>= i n) c (loop (+ i 1) (f c i))))) (define (reduce-vector f v i) (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (sum f n) (let loop ((n (- n 1)) (c 0)) (if (negative? n) c (loop (- n 1) (+ c (f n)))))) (define (product f n) (let loop ((n (- n 1)) (c 1)) (if (negative? n) c (loop (- n 1) (* c (f n)))))) (define (factorial n) (product (lambda (i) (+ i 1)) n)) (define (choose n m) (product (lambda (i) (/ (+ i n (- m) 1) (+ i 1))) m)) (define (some p l . &rest) (let loop ((l l) (&rest &rest)) (and (not (null? l)) (or (apply p (first l) (map first &rest)) (loop (rest l) (map rest &rest)))))) (define (some-n p n) (let loop ((i 0)) (and (< i n) (or (p i) (loop (+ i 1)))))) (define (some-vector p v . &rest) (let loop ((i 0)) (and (< i (vector-length v)) (or (apply p (vector-ref v i) (map (lambda (v) (vector-ref v i)) &rest)) (loop (+ i 1)))))) ;;; removed: EVAL-WHEN (define (every p l . &rest) (let loop ((l l) (&rest &rest)) (or (null? l) (and (apply p (first l) (map first &rest)) (loop (rest l) (map rest &rest)))))) (define (every-n p n) (let loop ((i 0)) (or (>= i n) (and (p i) (loop (+ i 1)))))) (define (every-vector p v . &rest) (let loop ((i 0)) (or (>= i (vector-length v)) (and (apply p (vector-ref v i) (map (lambda (v) (vector-ref v i)) &rest)) (loop (+ i 1)))))) (define (one p l . &rest) (let loop ((l l) (&rest &rest)) (and (not (null? l)) (if (apply p (first l) (map first &rest)) (let loop ((l (rest l)) (&rest (map rest &rest))) (or (null? l) (and (not (apply p (first l) (map first &rest))) (loop (rest l) (map rest &rest))))) (loop (rest l) (map rest &rest)))))) (define (one-n p n) (let loop ((i 0)) (and (< i n) (if (p i) (let loop ((i (+ i 1))) (or (>= i n) (and (not (p i)) (loop (+ i 1))))) (loop (+ i 1)))))) (define (one-vector p v . &rest) (let loop ((i 0)) (and (< i (vector-length v)) (if (apply p (vector-ref v i) (map (lambda (v) (vector-ref v i)) &rest)) (let loop ((i (+ i 1))) (or (>= i (vector-length v)) (and (not (apply p (vector-ref v i) (map (lambda (v) (vector-ref v i)) &rest))) (loop (+ i 1))))) (loop (+ i 1)))))) (define (for-each-indexed f l) (let loop ((i 0) (l l)) (unless (null? l) (f (first l) i) (loop (+ i 1) (rest l))))) (define (for-each-n f n) (let loop ((i 0)) (when (< i n) (f i) (loop (+ i 1))))) (define (for-each-from-a-up-to-b f a b) (let loop ((i a)) (when (< i b) (f i) (loop (+ i 1))))) (define (for-each-n-decreasing f n) (when (> n 0) (let ((i (- n 1))) (f i) (for-each-n-decreasing f i)))) (define (for-each-vector f v . &rest) (for-each-n (lambda (i) (apply f (vector-ref v i) (map (lambda (v) (vector-ref v i)) &rest))) (vector-length v))) ;;; removed: EVAL-WHEN (define (map-indexed f l) ;; needs work: To eliminate REVERSE. (let loop ((i 0) (l l) (c '())) (if (null? l) (reverse c) (loop (+ i 1) (rest l) (cons (f (first l) i) c))))) (define (map-n f n) ;; needs work: To eliminate REVERSE. (let loop ((i 0) (c '())) (if (< i n) (loop (+ i 1) (cons (f i) c)) (reverse c)))) (define (map-vector f v . &rest) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (for-each-n (lambda (i) (vector-set! u i (apply f (vector-ref v i) (map (lambda (v) (vector-ref v i)) &rest)))) (vector-length v)) u)) (define (map-n-vector f n) (let ((v (make-vector n))) (let loop ((i 0)) (when (< i n) (vector-set! v i (f i)) (loop (+ i 1)))) v)) (define (enumerate n) (let loop ((i (- n 1)) (c '())) (if (>= i 0) (loop (- i 1) (cons i c)) c))) (define (enumerate-vector n) (let ((v (make-vector n))) (for-each-n (lambda (i) (vector-set! v i i)) n) v)) (define (memp p x l) (cond ((null? l) #f) ((p x (first l)) l) (else (memp p x (rest l))))) (define (assp p x alist) (and (not (null? alist)) (if (p x (car (first alist))) (first alist) (assp p x (rest alist))))) (define (pairwise? p l) (or (null? l) (let loop ((l1 l) (l2 (rest l))) ;; needs work: To make tail recursive. (or (null? l2) (and (p (first l1) (first l2)) (loop (rest l1) (rest l2))))))) (define (adjoinq x l) (if (memq x l) l (cons x l))) (define (adjoinv x l) (if (memv x l) l (cons x l))) (define (adjoin x l) (if (member x l) l (cons x l))) (define (adjoinp p x l) (if (memp p x l) l (cons x l))) (define (removeq x l) ;; needs work: To eliminate REVERSE. (let loop ((l l) (c '())) (cond ((null? l) (reverse c)) ((eq? x (first l)) (loop (rest l) c)) (else (loop (rest l) (cons (first l) c)))))) (define (removev x l) ;; needs work: To eliminate REVERSE. (let loop ((l l) (c '())) (cond ((null? l) (reverse c)) ((eqv? x (first l)) (loop (rest l) c)) (else (loop (rest l) (cons (first l) c)))))) (define (removep p x l) ;; needs work: To eliminate REVERSE. (let loop ((l l) (c '())) (cond ((null? l) (reverse c)) ((p x (first l)) (loop (rest l) c)) (else (loop (rest l) (cons (first l) c)))))) (define (remove-if p l) ;; needs work: To eliminate REVERSE. (let loop ((l l) (c '())) (cond ((null? l) (reverse c)) ((p (first l)) (loop (rest l) c)) (else (loop (rest l) (cons (first l) c)))))) (define (remove-if-not p l) ;; needs work: To eliminate REVERSE. (let loop ((l l) (c '())) (cond ((null? l) (reverse c)) ((p (first l)) (loop (rest l) (cons (first l) c))) (else (loop (rest l) c))))) (define (positionq x l) (let loop ((l l) (i 0)) (cond ((null? l) #f) ((eq? x (first l)) i) (else (loop (rest l) (+ i 1)))))) (define (positionv x l) (let loop ((l l) (i 0)) (cond ((null? l) #f) ((eqv? x (first l)) i) (else (loop (rest l) (+ i 1)))))) (define (position x l) (let loop ((l l) (i 0)) (cond ((null? l) #f) ((equal? x (first l)) i) (else (loop (rest l) (+ i 1)))))) (define (positionp p x l) (let loop ((l l) (i 0)) (cond ((null? l) #f) ((p x (first l)) i) (else (loop (rest l) (+ i 1)))))) (define (position-if p l) (let loop ((l l) (i 0)) (cond ((null? l) #f) ((p (first l)) i) (else (loop (rest l) (+ i 1)))))) (define (position-if-not p l) (let loop ((l l) (i 0)) (cond ((null? l) #f) ((p (first l)) (loop (rest l) (+ i 1))) (else i)))) (define (findq x l) (let loop ((l l)) (cond ((null? l) #f) ((eq? x (first l)) (first l)) (else (loop (rest l)))))) (define (findv x l) (let loop ((l l)) (cond ((null? l) #f) ((eqv? x (first l)) (first l)) (else (loop (rest l)))))) (define (find x l) (let loop ((l l)) (cond ((null? l) #f) ((equal? x (first l)) (first l)) (else (loop (rest l)))))) (define (findp p x l) (let loop ((l l)) (cond ((null? l) #f) ((p x (first l)) (first l)) (else (loop (rest l)))))) (define (find-if p l) (let loop ((l l)) (cond ((null? l) #f) ((p (first l)) (first l)) (else (loop (rest l)))))) (define (find-if-not p l) (let loop ((l l)) (cond ((null? l) #f) ((p (first l)) (loop (rest l))) (else (first l))))) (define (countq x l) (let loop ((l l) (c 0)) (cond ((null? l) c) ((eq? x (first l)) (loop (rest l) (+ c 1))) (else (loop (rest l) c))))) (define (countv x l) (let loop ((l l) (c 0)) (cond ((null? l) c) ((eqv? x (first l)) (loop (rest l) (+ c 1))) (else (loop (rest l) c))))) (define (count x l) (let loop ((l l) (c 0)) (cond ((null? l) c) ((equal? x (first l)) (loop (rest l) (+ c 1))) (else (loop (rest l) c))))) (define (countp p x l) (let loop ((l l) (c 0)) (cond ((null? l) c) ((p x (first l)) (loop (rest l) (+ c 1))) (else (loop (rest l) c))))) (define (count-if p l) (let loop ((l l) (c 0)) (cond ((null? l) c) ((p (first l)) (loop (rest l) (+ c 1))) (else (loop (rest l) c))))) (define (count-if-not p l) (let loop ((l l) (c 0)) (cond ((null? l) c) ((p (first l)) (loop (rest l) c)) (else (loop (rest l) (+ c 1)))))) (define (subsetq? x y) (every (lambda (xe) (memq xe y)) x)) (define (subsetv? x y) (every (lambda (xe) (memv xe y)) x)) (define (subset? x y) (every (lambda (xe) (member xe y)) x)) (define (subsetp? p x y) (every (lambda (xe) (memp p xe y)) x)) (define (set-equalq? x y) (and (subsetq? x y) (subsetq? y x))) (define (set-equalv? x y) (and (subsetv? x y) (subsetv? y x))) (define (set-equal? x y) (and (subset? x y) (subset? y x))) (define (set-equalp? p x y) (and (subsetp? p x y) (subsetp? p y x))) (define (unionq x y) ;; needs work: To eliminate REVERSE. (let loop ((l x) (c '())) (cond ((null? l) (append (reverse c) y)) ((memq (first l) y) (loop (rest l) c)) (else (loop (rest l) (cons (first l) c)))))) (define (unionv x y) ;; needs work: To eliminate REVERSE. (let loop ((l x) (c '())) (cond ((null? l) (append (reverse c) y)) ((memv (first l) y) (loop (rest l) c)) (else (loop (rest l) (cons (first l) c)))))) (define (union x y) ;; needs work: To eliminate REVERSE. (let loop ((l x) (c '())) (cond ((null? l) (append (reverse c) y)) ((member (first l) y) (loop (rest l) c)) (else (loop (rest l) (cons (first l) c)))))) (define (unionp p x y) ;; needs work: To eliminate REVERSE. (let loop ((l x) (c '())) (cond ((null? l) (append (reverse c) y)) ((memp p (first l) y) (loop (rest l) c)) (else (loop (rest l) (cons (first l) c)))))) (define (intersectionq x y) ;; needs work: To eliminate REVERSE. (let loop ((l x) (c '())) (cond ((null? l) (reverse c)) ((memq (first l) y) (loop (rest l) (cons (first l) c))) (else (loop (rest l) c))))) (define (intersectionv x y) ;; needs work: To eliminate REVERSE. (let loop ((l x) (c '())) (cond ((null? l) (reverse c)) ((memv (first l) y) (loop (rest l) (cons (first l) c))) (else (loop (rest l) c))))) (define (intersection x y) ;; needs work: To eliminate REVERSE. (let loop ((l x) (c '())) (cond ((null? l) (reverse c)) ((member (first l) y) (loop (rest l) (cons (first l) c))) (else (loop (rest l) c))))) (define (intersectionp p x y) ;; needs work: To eliminate REVERSE. (let loop ((l x) (c '())) (cond ((null? l) (reverse c)) ((memp p (first l) y) (loop (rest l) (cons (first l) c))) (else (loop (rest l) c))))) (define (set-differenceq x y) ;; needs work: To eliminate REVERSE. (let loop ((l x) (c '())) (cond ((null? l) (reverse c)) ((memq (first l) y) (loop (rest l) c)) (else (loop (rest l) (cons (first l) c)))))) (define (set-differencev x y) ;; needs work: To eliminate REVERSE. (let loop ((l x) (c '())) (cond ((null? l) (reverse c)) ((memv (first l) y) (loop (rest l) c)) (else (loop (rest l) (cons (first l) c)))))) (define (set-difference x y) ;; needs work: To eliminate REVERSE. (let loop ((l x) (c '())) (cond ((null? l) (reverse c)) ((member (first l) y) (loop (rest l) c)) (else (loop (rest l) (cons (first l) c)))))) (define (set-differencep p x y) ;; needs work: To eliminate REVERSE. (let loop ((l x) (c '())) (cond ((null? l) (reverse c)) ((memp p (first l) y) (loop (rest l) c)) (else (loop (rest l) (cons (first l) c)))))) (define (remove-duplicatesq x) ;; needs work: To eliminate REVERSE. (let loop ((x x) (c '())) (cond ((null? x) (reverse c)) ((memq (first x) c) (loop (rest x) c)) (else (loop (rest x) (cons (first x) c)))))) (define (remove-duplicatesv x) ;; needs work: To eliminate REVERSE. (let loop ((x x) (c '())) (cond ((null? x) (reverse c)) ((memv (first x) c) (loop (rest x) c)) (else (loop (rest x) (cons (first x) c)))))) (define (remove-duplicates x) ;; needs work: To eliminate REVERSE. (let loop ((x x) (c '())) (cond ((null? x) (reverse c)) ((member (first x) c) (loop (rest x) c)) (else (loop (rest x) (cons (first x) c)))))) (define (remove-duplicatesp p x) ;; needs work: To eliminate REVERSE. (let loop ((x x) (c '())) (cond ((null? x) (reverse c)) ((memp p (first x) c) (loop (rest x) c)) (else (loop (rest x) (cons (first x) c)))))) (define (equivalence-classesq x) ;; needs work: To make tail recursive. (if (null? x) '() (let* ((y (first x)) (x (equivalence-classesq (rest x))) (z (find-if (lambda (w) (eq? y (first w))) x))) (if z (cons (cons y z) (removeq z x)) (cons (list y) x))))) (define (equivalence-classesv x) ;; needs work: To make tail recursive. (if (null? x) '() (let* ((y (first x)) (x (equivalence-classesv (rest x))) (z (find-if (lambda (w) (eqv? y (first w))) x))) (if z (cons (cons y z) (removeq z x)) (cons (list y) x))))) (define (equivalence-classes x) ;; needs work: To make tail recursive. (if (null? x) '() (let* ((y (first x)) (x (equivalence-classes (rest x))) (z (find-if (lambda (w) (equal? y (first w))) x))) (if z (cons (cons y z) (removeq z x)) (cons (list y) x))))) (define (transitive-equivalence-classesp p x) ;; needs work: To make tail recursive. (if (null? x) '() (let* ((y (first x)) (x (transitive-equivalence-classesp p (rest x))) (z (find-if (lambda (w) (p y (first w))) x))) (if z (cons (cons y z) (removeq z x)) (cons (list y) x))))) (define (equivalence-classesp p x) ;; This wrapper is necessary since P may not be transitive. (define (equivalence-classesp p x) ;; needs work: To make tail recursive. (if (null? x) '() (let* ((y (first x)) (x (equivalence-classesp p (rest x))) (z (find-if (lambda (w) (some (lambda (v) (p y v)) w)) x))) (if z (cons (cons y z) (removeq z x)) (cons (list y) x))))) (let loop ((c (map list x))) (let ((d (map (lambda (z) (reduce append z '())) (equivalence-classesp (lambda (x y) (some (lambda (xe) (memp p xe y)) x)) c)))) (if (= (length d) (length c)) d (loop d))))) (define (topological-sort p l) (let loop ((l l) (c '())) (if (null? l) (reverse c) (let ((x (find-if (lambda (x1) (not (some (lambda (x2) (and (not (eq? x2 x1)) (p x2 x1))) l))) l))) (unless x (fuck-up)) (loop (removeq x l) (cons x c)))))) (define (every-other list) (cond ((null? list) '()) ((null? (rest list)) list) (else (cons (first list) (every-other (rest (rest list))))))) (define (merge list1 list2 predicate key) (cond ((null? list1) list2) ((null? list2) list1) ((predicate (key (first list1)) (key (first list2))) (cons (first list1) (merge (rest list1) list2 predicate key))) (else (cons (first list2) (merge list1 (rest list2) predicate key))))) (define (sort list predicate key) (if (or (null? list) (null? (rest list))) list (merge (sort (every-other list) predicate key) (sort (every-other (rest list)) predicate key) predicate key))) (define (minp p l) (when (null? l) (fuck-up)) (let loop ((x (first l)) (l (rest l))) (if (null? l) x (loop (if (p x (first l)) x (first l)) (rest l))))) (define (unionvt x y) (if (or (eq? x #t) (eq? y #t)) #t (unionv x y))) (define (intersectionvt x y) (cond ((eq? x #t) y) ((eq? y #t) x) (else (intersectionv x y)))) (define (set-differencevt x y) (cond ((eq? y #t) '()) ((eq? x #t) x) (else (set-differencev x y)))) (define (subsetvt? x y) (cond ((eq? y #t) #t) ((eq? x #t) #f) (else (every (lambda (xe) (memq xe y)) x)))) (define (lexicographicallyC which doesn't allow < and = to shadow ;; the global bindings which is why these are named C which doesn't allow < and = to shadow ;; the global bindings which is why these are named exact (floor (* (random-real) n)))) (define (random-boolean) (>= (random-real) 0.5)) (define (random-member l) (list-ref l (random-integer (length l)))) (define (n-random-elements-without-replacement n x) (when (< (length x) n) (panic "Not enough elements")) (let loop ((x (map list x)) (l (length x)) (n n) (c '())) (if (zero? n) c (let ((e (list-ref x (random-integer l)))) (loop (remq! e x) (- l 1) (- n 1) (cons (first e) c)))))) (define (deal x) (n-random-elements-without-replacement (length x) x)) (define (random-partition-of-size k x) (let ((y (deal (rest x)))) (let loop ((u (let loop ((n (- k 1)) (x y)) (if (zero? n) x (loop (- n 1) (rest x))))) (v (cons (list (first x)) (let loop ((n (- k 1)) (x y)) (if (zero? n) '() (cons (list (first x)) (loop (- n 1) (rest x)))))))) (if (null? u) v (let* ((i (random-integer k)) (w (list-ref v i))) (loop (rest u) (cons (cons (first u) w) (removeq w v)))))))) ;;; Gamma Function (define (gamma n) ;; needs work: Doesn't work with n<1. (if (<= 1.0 n 2.0) ;; from CRC Standard Mathematical Tables 22nd edition ;; needs work: Should interpolate. (vector-ref '#(1.0 .99433 .98884 .98355 .97844 .97350 .96874 .96415 .95973 .95546 .95135 .94740 .94359 .93993 .93642 .93304 .92980 .92670 .92373 .92089 .91817 .91558 .91311 .91075 .90852 .90640 .90440 .90250 .90072 .89904 .89747 .89600 .89464 .89338 .89222 .89115 .89018 .88931 .88854 .88785 .88726 .88676 .88636 .88604 .88581 .88566 .88560 .88563 .88575 .88595 .88623 .88659 .88704 .88757 .88818 .88887 .88964 .89049 .89142 .89243 .89352 .89468 .89592 .89724 .89864 .90012 .90167 .90330 .90500 .90678 .90864 .91057 .91258 .91466 .91683 .91906 .92137 .92376 .92623 .92877 .93138 .93408 .93685 .93969 .94261 .94561 .94869 .95184 .95507 .95838 .96177 .96523 .96877 .97240 .97610 .97988 .98374 .98768 .99171 .99581 1.0) (inexact->exact (floor (* (- n 1.0) 100.0)))) (* (- n 1) (gamma (- n 1.0))))) (define (log-gamma n) ;; needs work: Doesn't work with n<1. (if (<= 1.0 n 2.0) ;; from CRC Standard Mathematical Tables 22nd edition ;; needs work: Should interpolate. ;; needs work: Should precompute the log of the table. (log (vector-ref '#(1.0 .99433 .98884 .98355 .97844 .97350 .96874 .96415 .95973 .95546 .95135 .94740 .94359 .93993 .93642 .93304 .92980 .92670 .92373 .92089 .91817 .91558 .91311 .91075 .90852 .90640 .90440 .90250 .90072 .89904 .89747 .89600 .89464 .89338 .89222 .89115 .89018 .88931 .88854 .88785 .88726 .88676 .88636 .88604 .88581 .88566 .88560 .88563 .88575 .88595 .88623 .88659 .88704 .88757 .88818 .88887 .88964 .89049 .89142 .89243 .89352 .89468 .89592 .89724 .89864 .90012 .90167 .90330 .90500 .90678 .90864 .91057 .91258 .91466 .91683 .91906 .92137 .92376 .92623 .92877 .93138 .93408 .93685 .93969 .94261 .94561 .94869 .95184 .95507 .95838 .96177 .96523 .96877 .97240 .97610 .97988 .98374 .98768 .99171 .99581 1.0) (inexact->exact (floor (* (- n 1.0) 100.0))))) (+ (log (- n 1)) (log-gamma (- n 1.0))))) ;;; Numerical Integration (define (integrate f a b n) ;; The constants are hardwired to be inexact for efficiency. (let ((delta (/ (- b a) n))) (let loop ((previous (f a)) (this (f (+ a delta))) (i 1) (s 0.0)) (if (> i n) s (loop this (f (+ a (* i delta))) (+ i 1) (+ s (* 0.5 (+ previous this) delta))))))) ;;; Schemer (define *fail?* #t) ;;; removed: EITHER ;;; removed: TOP-LEVEL-FAIL ;;; changed (define (fail) (when *fail?* (panic "Top-level fail")) (set! *fail?* #t)) ;;; removed: SET-FAIL! ;;; removed: FOR-EFFECTS ;;; removed: ONE-VALUE ;;; removed: LOCAL-ONE-VALUE ;;; removed: ALL-VALUES ;;; removed: POSSIBLY? ;;; removed: NECESSARILY? ;;; removed: UPON-FAILURE (define (unwind-trail) (set! *fail?* #f) (fail)) ;;; removed: UNWEDGE-TRAIL ;;; removed: LOCAL-SET! (define (local-set-car! x y) (let ((p (car x))) (upon-failure (set-car! x p))) (set-car! x y)) (define (local-set-cdr! x y) (let ((p (cdr x))) (upon-failure (set-cdr! x p))) (set-cdr! x y)) (define (local-string-set! s i x) (let ((p (string-ref s i))) (upon-failure (string-set! s i p))) (string-set! s i x)) (define (local-vector-set! v i x) (let ((p (vector-ref v i))) (upon-failure (vector-set! v i p))) (vector-set! v i x)) (define (a-boolean) ;; removed: comment (call-with-current-continuation (lambda (c) (let ((old-fail fail)) ;; changed (set! fail (lambda () (set! fail old-fail) (if *fail?* (c #f) (fail))))) #t))) (define (an-integer) (either 0 (let ((i (an-integer-above 1))) (either i (- i))))) (define (an-integer-above i) (either i (an-integer-above (+ i 1)))) (define (an-integer-below i) (either i (an-integer-below (- i 1)))) (define (an-integer-between i j) (when (> i j) (fail)) (either i (an-integer-between (+ i 1) j))) (define (a-member-of s) (if (vector? s) (vector-ref s (an-integer-between 0 (- (vector-length s) 1))) (let loop ((l s)) (when (null? l) (fail)) (either (first l) (loop (rest l)))))) (define (a-subset-of l) (if (null? l) '() (let ((y (a-subset-of (rest l)))) (either (cons (first l) y) y)))) (define (a-split-of l) (let loop ((x '()) (y l)) (if (null? y) (list x y) (either (list x y) (loop (append x (list (first y))) (rest y)))))) (define (a-permutation-of l) (if (null? l) l (let ((split (a-split-of (a-permutation-of (rest l))))) (append (first split) (cons (first l) (second split)))))) (define (a-partition-of x) (if (null? x) x (let ((y (a-partition-of (rest x)))) (either (cons (list (first x)) y) (let ((z (a-member-of y))) (cons (cons (first x) z) (removeq z y))))))) (define (a-partition-of-size k x) (when (< (length x) k) (fail)) (let loop ((x x)) (if (= (length x) k) (map list x) (let* ((y (loop (rest x))) (z (a-member-of y))) (cons (cons (first x) z) (removeq z y)))))) (define-structure logic-variable binding name noticers) (define *logic-variable-counter* -1) (define (create-logic-variable) (set! *logic-variable-counter* (+ *logic-variable-counter* 1)) (let ((v (make-logic-variable #f (string->uninterned-symbol (format #f "?~s" *logic-variable-counter*)) '()))) (set-logic-variable-binding! v v) v)) (define (attach-noticer! x noticer) (cond ((logic-variable? x) (cond ((eq? (logic-variable-binding x) x) (local-set-logic-variable-noticers! x (cons noticer (logic-variable-noticers x))) (noticer)) (else (attach-noticer! (logic-variable-binding x) noticer)))) ((pair? x) (attach-noticer! (car x) noticer) (attach-noticer! (cdr x) noticer)) ((vector? x) (for-each-n (lambda (i) (attach-noticer! (vector-ref x i) noticer)) (vector-length x))))) (define (value-of x) (cond ((logic-variable? x) (if (eq? (logic-variable-binding x) x) x (value-of (logic-variable-binding x)))) ((pair? x) (cons (value-of (car x)) (value-of (cdr x)))) ((vector? x) (map-vector value-of x)) (else x))) (define (ground? x) (cond ((logic-variable? x) (and (not (eq? (logic-variable-binding x) x)) (ground? (logic-variable-binding x)))) ((pair? x) (and (ground? (car x)) (ground? (cdr x)))) ((vector? x) (every-n (lambda (i) (ground? (vector-ref x i))) (vector-length x))) (else #t))) (define (known?-equalv x y) (or (eq? x y) (eqv? x y) (and (logic-variable? x) (not (eq? (logic-variable-binding x) x)) (known?-equalv (logic-variable-binding x) y)) (and (logic-variable? y) (not (eq? (logic-variable-binding y) y)) (known?-equalv x (logic-variable-binding y))) (and (pair? x) (pair? y) (known?-equalv (car x) (car y)) (known?-equalv (cdr x) (cdr y))) (and (not (logic-variable? x)) (not (logic-variable? y)) (vector? x) (vector? y) (= (vector-length x) (vector-length y)) (every-n (lambda (i) (known?-equalv (vector-ref x i) (vector-ref y i))) (vector-length x))))) (define (assert!-equalv x y) (cond ((logic-variable? x) (cond ((and (logic-variable? y) (not (eq? (logic-variable-binding y) y))) (assert!-equalv x (logic-variable-binding y))) ((eq? (logic-variable-binding x) x) (let loop ((y y)) (when (eq? x y) (fail)) (cond ((logic-variable? y) (unless (eq? (logic-variable-binding y) y) (loop (logic-variable-binding y)))) ((pair? y) (loop (car y)) (loop (cdr y))) ((vector? y) (for-each-n (lambda (i) (loop (vector-ref y i))) (vector-length y))))) (local-set-logic-variable-binding! x y) (for-each (lambda (noticer) (noticer) (attach-noticer! y noticer)) (logic-variable-noticers x))) (else (assert!-equalv (logic-variable-binding x) y)))) ((logic-variable? y) (assert!-equalv y x)) ((and (pair? x) (pair? y)) (assert!-equalv (car x) (car y)) (assert!-equalv (cdr x) (cdr y))) ((and (vector? x) (vector? y) (= (vector-length x) (vector-length y))) (for-each-n (lambda (i) (assert!-equalv (vector-ref x i) (vector-ref y i))) (vector-length x))) ((not (eqv? x y)) (fail)))) (define (assert!-notv-equalv x y) (when (known?-equalv x y) (fail)) (attach-noticer! x (lambda () (when (known?-equalv x y) (fail)))) (attach-noticer! y (lambda () (when (known?-equalv x y) (fail))))) ;;; Memoization (define-structure entry arguments continuations results) (define (memoize f) (let ((cache '())) (lambda arguments ;; removed: comment (call-with-current-continuation (lambda (continuation) (let ((entry (find-if (lambda (e) (equal? arguments (entry-arguments e))) cache))) (cond (entry (set-entry-continuations! entry (cons continuation (entry-continuations entry))) (a-member-of (entry-results entry))) (else (set! entry (make-entry arguments (list continuation) '())) (set! cache (cons entry cache)) (let ((result (apply f arguments))) (set-entry-results! entry (cons result (entry-results entry))) ((a-member-of (entry-continuations entry)) result)))))))))) ;;; Strings (define (prefix? prefix string) (and (<= (string-length prefix) (string-length string)) (string=? prefix (substring string 0 (string-length prefix))))) ;;; removed: STRING-REVERSE (define (suffix? suffix string) (prefix? (string-reverse suffix) (string-reverse string))) (define (directory-prefix? prefix string) (or (string=? prefix string) (prefix? (string-append prefix "/") string))) (define (string-downcase string) (list->string (map char-downcase (string->list string)))) (define (string-upcase string) (list->string (map char-upcase (string->list string)))) (define (symbol-downcase symbol) (string->symbol (string-downcase (symbol->string symbol)))) (define (pad-left string n) (string-append (make-string (- n (string-length string)) #\space) string)) (define (pad-right string n) (string-append string (make-string (- n (string-length string)) #\space))) (define (substring? s1 s2) (let ((n (string-length s1))) (some-n (lambda (i) (every-n (lambda (j) (char=? (string-ref s1 j) (string-ref s2 (+ j i)))) n)) (+ (- (string-length s2) n) 1)))) (define (substring-ci? s1 s2) (let ((n (string-length s1))) (some-n (lambda (i) (every-n (lambda (j) (char-ci=? (string-ref s1 j) (string-ref s2 (+ j i)))) n)) (+ (- (string-length s2) n) 1)))) (define (slashify string) (let loop ((characters (string->list string)) (result '())) (cond ((null? characters) (list->string (reverse result))) ((char=? (first characters) #\\) (loop (rest characters) (cons #\\ (cons #\\ result)))) ((char=? (first characters) #\") (loop (rest characters) (cons #\" (cons #\\ result)))) ;; note: This is not really legitimate. ((or (char=? (first characters) (integer->char 127))) (loop (rest characters) (cons (integer->char (+ (bit-and (char->integer (first characters)) 7) (char->integer #\0))) (cons (integer->char (+ (bit-and (quotient (char->integer (first characters)) 8) 7) (char->integer #\0))) (cons (integer->char (+ (bit-and (quotient (char->integer (first characters)) 64) 7) (char->integer #\0))) (cons #\\ result)))))) (else (loop (rest characters) (cons (first characters) result)))))) (define (string-insert-character character) (lambda (string position) (list (string-append (substring string 0 position) (list->string (list character)) (substring string position (string-length string))) (+ position 1)))) (define (string-beginning-of-line string position) (list string 0)) (define (string-backward-char string position) (when (zero? position) (abort)) (list string (- position 1))) (define (string-delete-char string position) (when (= position (string-length string)) (abort)) (list (string-append (substring string 0 position) (substring string (+ position 1) (string-length string))) position)) (define (string-end-of-line string position) (list string (string-length string))) (define (string-forward-char string position) (when (= position (string-length string)) (abort)) (list string (+ position 1))) (define (string-kill-line string position) (list (substring string 0 position) position)) (define (string-backward-delete-char string position) (when (zero? position) (abort)) (list (string-append (substring string 0 (- position 1)) (substring string position (string-length string))) (- position 1))) (define (char-alphanumeric? char) (or (char-alphabetic? char) (char-numeric? char))) (define (beginning-of-word? string position) (or (zero? position) (and (not (= position (string-length string))) (not (char-alphanumeric? (string-ref string (- position 1)))) (char-alphanumeric? (string-ref string position))))) (define (end-of-word? string position) (or (= position (string-length string)) (and (not (zero? position)) (char-alphanumeric? (string-ref string (- position 1))) (not (char-alphanumeric? (string-ref string position)))))) (define (string-backward-word string position) (when (zero? position) (abort)) (let loop ((position (- position 1))) (if (beginning-of-word? string position) (list string position) (loop (- position 1))))) (define (string-kill-word string position) (when (= position (string-length string)) (abort)) (list (string-append (substring string 0 position) (substring string (second (string-forward-word string position)) (string-length string))) position)) (define (string-forward-word string position) (when (= position (string-length string)) (abort)) (let loop ((position (+ position 1))) (if (end-of-word? string position) (list string position) (loop (+ position 1))))) (define (string-backward-kill-word string position) (when (zero? position) (abort)) (let ((new-position (second (string-backward-word string position)))) (list (string-append (substring string 0 new-position) (substring string position (string-length string))) new-position))) ;;; Fields (define (number-of-fields string) (let loop ((n 0) (chars (string->list string))) (if (null? chars) n (if (char-whitespace? (first chars)) (loop n (rest chars)) (loop (+ n 1) (let loop ((chars chars)) (if (or (null? chars) (char-whitespace? (first chars))) chars (loop (rest chars))))))))) (define (field-ref string n) (let loop ((n n) (chars (string->list string))) (if (char-whitespace? (first chars)) (loop n (rest chars)) (if (zero? n) (let loop ((chars chars) (field '())) (if (or (null? chars) (char-whitespace? (first chars))) (list->string (reverse field)) (loop (rest chars) (cons (first chars) field)))) (loop (- n 1) (let loop ((chars chars)) (if (char-whitespace? (first chars)) chars (loop (rest chars))))))))) (define (fields string) (map-n (lambda (i) (field-ref string i)) (number-of-fields string))) ;;; Context-Free Grammars ;;; removed: LAZY (define (terminal x) (lambda (p) (if (not (and (pair? p) (eq? (first p) x))) (fail)) (rest p))) (define (seq . &rest) (if (null? &rest) list (compose (first &rest) (apply seq (rest &rest))))) (define (alt . &rest) (a-member-of &rest)) (define (opt a) (alt (seq) a)) (define (k* a) (opt (seq a (k* a)))) (define (recognize? s words) (possibly? (null? (s words)))) ;;; Line and Whole-File I/O (define (read-line . port) (if (null? port) (set! port (current-input-port)) (set! port (first port))) (let loop ((chars '())) (let ((char (read-char port))) (if (eof-object? char) (if (null? chars) char (list->string (reverse chars))) (if (char=? char #\newline) (list->string (reverse chars)) (loop (cons char chars))))))) (define (read-file pathname) (if (string=? pathname "-") (let loop ((lines '()) (line (read-line))) (if (eof-object? line) (reverse lines) (loop (cons line lines) (read-line)))) (call-with-input-file pathname (lambda (port) (let loop ((lines '()) (line (read-line port))) (if (eof-object? line) (reverse lines) (loop (cons line lines) (read-line port)))))))) (define (write-file lines pathname) (if (string=? pathname "-") (for-each (lambda (line) (display line) (newline)) lines) (call-with-output-file pathname (lambda (port) (for-each (lambda (line) (display line port) (newline port)) lines))))) (define (read-object-from-file pathname) (if (string=? pathname "-") (read) (call-with-input-file pathname read))) (define (write-object-to-file object pathname) (cond ((string=? pathname "-") (pp object) (newline)) (else (call-with-output-file pathname (lambda (port) (pp object port) (newline port)))))) (define (read-from-string string) (rm (tmp "cdslib.tmp")) (write-file (list string) (tmp "cdslib.tmp")) (let ((input (call-with-input-file (tmp "cdslib.tmp") read))) (rm (tmp "cdslib.tmp")) input)) ;;; Pathnames ;;; needs work: missing notions: ., .., foo~, foo.~n~, .foo, #foo#, /foo/, and ;;; foo/ (define (has-directory? pathname) (when (string=? pathname "-") (panic "Invalid pathname")) (let loop ((l (reverse (string->list pathname)))) (and (not (null? l)) (or (char=? (first l) #\/) (loop (rest l)))))) (define (directory pathname) (when (string=? pathname "-") (panic "Invalid pathname")) (unless (has-directory? pathname) (panic "No directory")) (let ((l (string->list pathname))) (substring pathname 0 (- (length l) (positionv #\/ (reverse l)) 1)))) (define (strip-directory pathname) (when (string=? pathname "-") (panic "Invalid pathname")) (if (has-directory? pathname) (let ((l (string->list pathname))) (substring pathname (- (length l) (positionv #\/ (reverse l))) (length l))) pathname)) (define (has-extension? pathname) (when (string=? pathname "-") (panic "Invalid pathname")) (let loop ((l (reverse (string->list pathname)))) (and (not (null? l)) (not (char=? (first l) #\/)) (or (char=? (first l) #\.) (loop (rest l)))))) (define (extension pathname) (when (string=? pathname "-") (panic "Invalid pathname")) (unless (has-extension? pathname) (panic "No extension")) (substring pathname (+ (positionv #\. (string->list pathname)) 1) (string-length pathname))) (define (strip-extension pathname) (when (string=? pathname "-") (panic "Invalid pathname")) (let loop ((l (reverse (string->list pathname)))) (if (or (null? l) (char=? (first l) #\/)) pathname (if (char=? (first l) #\.) (list->string (reverse (rest l))) (loop (rest l)))))) (define (default-extension pathname extension) (when (string=? pathname "-") (panic "Invalid pathname")) (if (has-extension? pathname) pathname (string-append pathname "." extension))) (define (replace-extension pathname extension) (when (string=? pathname "-") (panic "Invalid pathname")) (string-append (strip-extension pathname) "." extension)) ;;; Temporary files (define *tmp* "/tmp") (define (tmp pathname) (string-append *tmp* "/" pathname)) ;;; Directory/File operations ;;; removed: FOPEN ;;; removed: FCLOSE ;;; changed (define (can-open-file-for-input? pathname) (or (string=? pathname "-") (let ((input-port ((foreign-procedure (char* char*) input-port "fopen" "stdio") pathname "r"))) (unless (zero? input-port) ((foreign-procedure (file*) int "fclose" "stdio") input-port)) (not (zero? input-port))))) (define *system-V?* #t) (define (quotify string) (let loop ((chars (string->list string)) (c '())) (if (null? chars) (list->string (reverse c)) (loop (rest chars) (cons (first chars) (if (or (char=? (first chars) #\\) (char=? (first chars) #\") (char=? (first chars) #\$) (char=? (first chars) #\&)) (cons #\\ c) c)))))) (define (file-exists? pathname) (when (string=? pathname "-") (panic "Invalid pathname")) (system (format #f "~als -ld ~a >~a 2>~a" (if *system-V?* "" "/usr/5bin/") (quotify pathname) (tmp "QobiScheme.ls") (tmp "QobiScheme.stderr"))) (unless (or (eof-object? (call-with-input-file (tmp "QobiScheme.stderr") read-line)) (string=? (call-with-input-file (tmp "QobiScheme.stderr") read-line) (format #f "ls: ~a: No such file or directory" (quotify pathname)))) (system (format #f "rm -f ~a" (tmp "QobiScheme.ls"))) (system (format #f "rm -f ~a" (tmp "QobiScheme.stderr"))) (fuck-up)) (let ((result (not (eof-object? (call-with-input-file (tmp "QobiScheme.ls") read-line))))) (system (format #f "rm -f ~a" (tmp "QobiScheme.ls"))) (system (format #f "rm -f ~a" (tmp "QobiScheme.stderr"))) result)) (define (directory-list pattern) (system (format #f "ls -A ~a >~a 2>~a" (quotify pattern) (tmp "QobiScheme.ls") (tmp "QobiScheme.stderr"))) (unless (or (eof-object? (call-with-input-file (tmp "QobiScheme.stderr") read-line)) (string=? (call-with-input-file (tmp "QobiScheme.stderr") read-line) (format #f "ls: ~a: No such file or directory" (quotify pattern)))) (system (format #f "rm -f ~a" (tmp "QobiScheme.ls"))) (system (format #f "rm -f ~a" (tmp "QobiScheme.stderr"))) (fuck-up)) (let ((result (read-file (tmp "QobiScheme.ls")))) (system (format #f "rm -f ~a" (tmp "QobiScheme.ls"))) (system (format #f "rm -f ~a" (tmp "QobiScheme.stderr"))) result)) (define (recursive-directory-list pathname) (when (string=? pathname "-") (panic "Invalid pathname")) (unless (file-exists? pathname) (panic "Can't get recursive directory list for nonexistent file")) (system (format #f "find ~a -print >~a 2>~a" (quotify pathname) (tmp "QobiScheme.find") (tmp "QobiScheme.stderr"))) (unless (eof-object? (call-with-input-file (tmp "QobiScheme.stderr") read-line)) (system (format #f "rm -f ~a" (tmp "QobiScheme.find"))) (system (format #f "rm -f ~a" (tmp "QobiScheme.stderr"))) (fuck-up)) (let ((result (read-file (tmp "QobiScheme.find")))) (system (format #f "rm -f ~a" (tmp "QobiScheme.find"))) (system (format #f "rm -f ~a" (tmp "QobiScheme.stderr"))) result)) (define (file-info pathname id?) (when (string=? pathname "-") (panic "Invalid pathname")) (unless (file-exists? pathname) (panic "Can't get info for nonexistent file")) (system (format #f "~als -~ad ~a >~a 2>~a" (if *system-V?* "" "/usr/5bin/") (if id? "n" "l") (quotify pathname) (tmp "QobiScheme.ls") (tmp "QobiScheme.stderr"))) (unless (eof-object? (call-with-input-file (tmp "QobiScheme.stderr") read-line)) (system (format #f "rm -f ~a" (tmp "QobiScheme.ls"))) (system (format #f "rm -f ~a" (tmp "QobiScheme.stderr"))) (fuck-up)) (let ((result (call-with-input-file (tmp "QobiScheme.ls") read-line))) (when (eof-object? result) (fuck-up)) (system (format #f "rm -f ~a" (tmp "QobiScheme.ls"))) (system (format #f "rm -f ~a" (tmp "QobiScheme.stderr"))) result)) (define (file-permission-flags pathname) (field-ref (file-info pathname #f) 0)) (define (directory? pathname) (char=? (string-ref (file-permission-flags pathname) 0) #\d)) (define (symlink? pathname) (char=? (string-ref (file-permission-flags pathname) 0) #\l)) (define (file? pathname) (char=? (string-ref (file-permission-flags pathname) 0) #\-)) (define (file-number-of-links pathname) (string->number (field-ref (file-info pathname #f) 1))) (define (file-userid pathname) (let ((result (field-ref (file-info pathname #f) 2))) (when (integer? (string->number result)) (panic "Can't get userid")) result)) (define (file-uid pathname) (let ((result (string->number (field-ref (file-info pathname #f) 2)))) (unless (integer? result) (panic "Can't get uid")) result)) (define (file-groupid pathname) (let ((result (field-ref (file-info pathname #f) 3))) (when (integer? (string->number result)) (panic "Can't get groupid")) result)) (define (file-gid pathname) (let ((result (string->number (field-ref (file-info pathname #f) 3)))) (unless (integer? result) (panic "Can't get gid")) result)) (define (file-length pathname) (string->number (field-ref (file-info pathname #f) 4))) (define (file-mtime-month pathname) (+ (position (field-ref (file-info pathname #f) 5) '("Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec")) 1)) (define (file-mtime-date pathname) (string->number (field-ref (file-info pathname #f) 6))) (define (file-mtime-time/year pathname) (field-ref (file-info pathname #f) 7)) (define (symlink-target pathname) (unless (symlink? pathname) (panic "Not a link")) (field-ref (file-info pathname #f) 10)) (define (symlink target pathname) (when (or (string=? target "-") (string=? pathname "-")) (panic "Invalid pathname")) (unless (zero? (system (format #f "ln -s ~a ~a 2>/dev/null" (quotify target) (quotify pathname)))) (panic "SYMLINK failed"))) (define (mkdir pathname) (unless (zero? (system (format #f "mkdir ~a 2>/dev/null" (quotify pathname)))) (panic "MKDIR failed"))) (define (rm pathname) (unless (zero? (system (format #f "rm -rf ~a" (quotify pathname)))) (panic "RM failed"))) (define (mkfifo pathname) (unless (zero? (system (format #f "mkfifo ~a" (quotify pathname)))) (panic "MKFIFO failed"))) (define (create-directory-and-parents-if-necessary target) (let ((pathname (directory target))) (unless (zero? (string-length pathname)) (cond ((file-exists? pathname) (unless (directory? pathname) ;; changed (panic (format #f "~a exists but is not a directory" pathname)))) (else (create-directory-and-parents-if-necessary pathname) (mkdir pathname)))))) (define (same-contents? pathname1 pathname2) (when (or (string=? pathname1 "-") (string=? pathname2 "-")) (panic "Invalid pathname")) (let ((result (/ (system (format #f "cmp -s ~a ~a" (quotify pathname1) (quotify pathname2))) 256))) (when (> result 1) (panic "SAME-CONTENTS? failed")) (zero? result))) (define (compressed? pathname) (when (string=? pathname "-") (panic "Invalid pathname")) (and (char=? (string-ref pathname (- (string-length pathname) 2)) #\.) (char=? (string-ref pathname (- (string-length pathname) 1)) #\Z))) (define (compressed pathname) (when (string=? pathname "-") (panic "Invalid pathname")) (string-append pathname ".Z")) (define (compress pathname) (when (string=? pathname "-") (panic "Invalid pathname")) (system (format #f "compress -f ~a" pathname))) (define (uncompress pathname) (when (string=? pathname "-") (panic "Invalid pathname")) (system (format #f "uncompress ~a" pathname))) ;;; removed: LD ;;; Tries (define-structure trie n char->integer integer->char initial-value trie-node) (define-structure trie-node table value) (define (create-trie n char->integer integer->char . initial-value) (if (null? initial-value) (set! initial-value #f) (set! initial-value (first initial-value))) (make-trie n char->integer integer->char initial-value (make-trie-node (make-vector n #f) initial-value))) (define (trie-ref trie string) (let ((m (string-length string))) (let loop ((trie-node (trie-trie-node trie)) (i 0)) (if trie-node (if (= i m) (trie-node-value trie-node) (loop (vector-ref (trie-node-table trie-node) ((trie-char->integer trie) (string-ref string i))) (+ i 1))) (trie-initial-value trie))))) (define (trie-set! trie string value) (let ((m (string-length string)) (n (trie-n trie)) (initial-value (trie-initial-value trie))) (let loop ((trie-node (trie-trie-node trie)) (i 0)) (if (= i m) (set-trie-node-value! trie-node value) (let ((j ((trie-char->integer trie) (string-ref string i)))) (unless (vector-ref (trie-node-table trie-node) j) (vector-set! (trie-node-table trie-node) j (make-trie-node (make-vector n #f) initial-value))) (loop (vector-ref (trie-node-table trie-node) j) (+ i 1))))))) (define (for-each-trie-entry p trie) (let loop ((trie-node (trie-trie-node trie)) (characters '())) (p (list->string (reverse characters)) (trie-node-value trie-node)) (for-each-n (lambda (i) (let ((trie-node (vector-ref (trie-node-table trie-node) i))) (when trie-node (loop trie-node (cons ((trie-integer->char trie) i) characters))))) (vector-length (trie-node-table trie-node))))) (define (trie->alist trie) (let ((alist '())) (for-each-trie-entry (lambda (key value) (set! alist (cons (cons key value) alist))) trie) alist)) (define (alist->trie alist n char->integer integer->char . initial-value) (let ((trie (if (null? initial-value) (create-trie n char->integer integer->char) (create-trie n char->integer integer->char (first initial-value))))) (for-each (lambda (entry) (trie-set! trie (car entry) (cdr entry))) alist) trie)) ;;; Vectors (define-structure line-segment p q) (define (p l) (line-segment-p l)) (define (q l) (line-segment-q l)) (define (x v) (vector-ref v 0)) (define (y v) (vector-ref v 1)) (define (z v) (vector-ref v 2)) (define (dot u v) (reduce-vector + (map-vector * u v) 0)) (define (cross-2d u v) ;return scalar z-component (- (* (x u) (y v)) (* (y u) (x v)))) (define (cross u v) (vector (- (* (y u) (z v)) (* (y v) (z u))) (- (* (x v) (z u)) (* (x u) (z v))) (- (* (x u) (y v)) (* (x v) (y u))))) (define (v+ u v) (map-vector + u v)) (define (v- u v) (map-vector - u v)) (define (k*v k u) (map-vector (lambda (x) (* k x)) u)) (define (v= u v) (every-vector = u v)) (define (rotate-90 u) (vector (- (y u)) (x u))) (define (rotate-180 u) (vector (- (x u)) (- (y u)))) (define (rotate-270 u) (vector (y u) (- (x u)))) (define (perpendicular? u v) (zero? (dot u v))) (define (parallel? u v) (perpendicular? (rotate-90 u) v)) (define (magnitude-squared v) (dot v v)) (define (magnitude v) (sqrt (magnitude-squared v))) (define (unit v) (k*v (/ (magnitude v)) v)) (define (distance-squared u v) (magnitude-squared (v- v u))) (define (distance u v) (sqrt (distance-squared u v))) (define (tangent l) (unit (v- (line-segment-q l) (line-segment-p l)))) (define (normal-2d l) (unit (vector (- (y (line-segment-p l)) (y (line-segment-q l))) (- (x (line-segment-q l)) (x (line-segment-p l)))))) (define (line-segment-length l) (distance (line-segment-p l) (line-segment-q l))) (define (collinear? l1 l2) (and (parallel? (v- (q l1) (p l1)) (v- (p l2) (p l1))) (parallel? (v- (q l1) (p l1)) (v- (q l2) (p l1))) (parallel? (v- (q l2) (p l2)) (v- (p l1) (p l2))) (parallel? (v- (q l2) (p l2)) (v- (q l1) (p l2))))) (define (point-on-line-segment? r l) (and (parallel? (v- (q l) (p l)) (v- r (p l))) (<= (min (x (p l)) (x (q l))) (x r) (max (x (p l)) (x (q l)))) (<= (min (y (p l)) (y (q l))) (y r) (max (y (p l)) (y (q l)))))) (define (intersection-point l1 l2) (let ((a (invert-matrix (vector (vector (- (y (p l1)) (y (q l1))) (- (x (q l1)) (x (p l1)))) (vector (- (y (p l2)) (y (q l2))) (- (x (q l2)) (x (p l2)))))))) (and a (m*v a (vector (+ (* (- (y (p l1)) (y (q l1))) (x (p l1))) (* (- (x (q l1)) (x (p l1))) (y (p l1)))) (+ (* (- (y (p l2)) (y (q l2))) (x (p l2))) (* (- (x (q l2)) (x (p l2))) (y (p l2))))))))) (define (cross? l1 l2) (or (and (clockwise-angle? (v- (p l2) (p l1)) (v- (q l1) (p l1)) (v- (q l2) (p l1))) (clockwise-angle? (v- (q l1) (p l2)) (v- (q l2) (p l2)) (v- (p l1) (p l2))) (clockwise-angle? (v- (q l2) (q l1)) (v- (p l1) (q l1)) (v- (p l2) (q l1))) (clockwise-angle? (v- (p l1) (q l2)) (v- (p l2) (q l2)) (v- (q l1) (q l2)))) (and (clockwise-angle? (v- (q l2) (p l1)) (v- (q l1) (p l1)) (v- (p l2) (p l1))) (clockwise-angle? (v- (p l1) (p l2)) (v- (q l2) (p l2)) (v- (q l1) (p l2))) (clockwise-angle? (v- (p l2) (q l1)) (v- (p l1) (q l1)) (v- (q l2) (q l1))) (clockwise-angle? (v- (q l1) (q l2)) (v- (p l2) (q l2)) (v- (p l1) (q l2)))))) (define (intersect? l1 l2) (or (point-on-line-segment? (p l1) l2) (point-on-line-segment? (q l1) l2) (cross? l1 l2))) (define (read-line-segments-from-file pathname) (define (read-line-segments-from-file port) (let loop ((l '())) (let* ((x1 (read port)) (y1 (read port)) (x2 (read port)) (y2 (read port))) (if (eof-object? y2) (reverse l) (loop (cons (make-line-segment (vector x1 y1) (vector x2 y2)) l)))))) (if (string=? pathname "-") (read-line-segments-from-file (current-input-port)) (call-with-input-file (default-extension pathname "lines") read-line-segments-from-file))) (define (write-line-segments-to-file line-segments pathname) (define (write-line-segments-to-file port) (for-each (lambda (l) (write (x (line-segment-p l)) port) (write-char #\space port) (write (y (line-segment-p l)) port) (write-char #\space port) (write (x (line-segment-q l)) port) (write-char #\space port) (write (y (line-segment-q l)) port) (newline port)) line-segments)) (if (string=? pathname "-") (write-line-segments-to-file (current-output-port)) (call-with-output-file (default-extension pathname "lines") write-line-segments-to-file))) ;;; Matrices (define (make-matrix m n . &rest) (cond ((null? &rest) (map-n-vector (lambda (i) (make-vector n)) m)) ((null? (rest &rest)) (map-n-vector (lambda (i) (make-vector n (first &rest))) m)) (else (panic "Too many arguments to MAKE-MATRIX")))) (define (make-3-by-3-matrix a11 a12 a13 a21 a22 a23 a31 a32 a33) (vector (vector a11 a12 a13) (vector a21 a22 a23) (vector a31 a32 a33))) (define (matrix-copy m) (map-vector (lambda (row) (map-vector identity row)) m)) (define (matrix-rows a) (vector-length a)) (define (matrix-columns a) (vector-length (vector-ref a 0))) (define (matrix-ref a i j) (vector-ref (vector-ref a i) j)) (define (matrix-set! a i j x) (vector-set! (vector-ref a i) j x)) (define (matrix-row-ref a i) (vector-ref a i)) (define (matrix-column-ref a j) (map-vector (lambda (v) (vector-ref v j)) a)) (define (matrix-row-set! a i v) (vector-set! a i v)) (define (vector->row-matrix v) (vector v)) (define (vector->column-matrix v) (map-vector vector v)) (define (m+ a b) (map-vector v+ a b)) (define (m- a b) (map-vector v- a b)) (define (m*v a v) (map-vector (lambda (u) (dot u v)) a)) (define (transpose a) (map-n-vector (lambda (j) (matrix-column-ref a j)) (matrix-columns a))) (define (outer-product f u v) (map-vector (lambda (ui) (map-vector (lambda (vj) (f ui vj)) v)) u)) (define (self-outer-product f v) (outer-product f v v)) (define (m* a b) (outer-product dot a (transpose b))) (define (v*m v a) (m* (vector->row-matrix v) a)) (define (k*m k m) (map-vector (lambda (row) (map-vector (lambda (e) (* k e)) row)) m)) (define (determinant a) ;; The constants are hardwired to be inexact for efficiency. (unless (= (matrix-rows a) (matrix-columns a)) (panic "Can only find determinant of a square matrix")) ;; removed: comment (call-with-current-continuation (lambda (return) (let* ((n (matrix-rows a)) (b (make-matrix n n)) (d 1.0)) (for-each-n (lambda (i) (for-each-n (lambda (j) (matrix-set! b i j (matrix-ref a i j))) n)) n) (for-each-n (lambda (i) ;; partial pivoting reduces rounding errors (let ((greatest (abs (matrix-ref b i i))) (index i)) (for-each-from-a-up-to-b (lambda (j) (let ((x (abs (matrix-ref b j i)))) (when (> x greatest) (set! index j) (set! greatest x)))) (+ i 1) n) (when (= greatest 0.0) (return 0.0)) (unless (= index i) (let ((v (matrix-row-ref b i))) (matrix-row-set! b i (matrix-row-ref b index)) (matrix-row-set! b index v) (set! d (- d)))) (let ((c (matrix-ref b i i))) (set! d (* d c)) (for-each-from-a-up-to-b (lambda (j) (matrix-set! b i j (/ (matrix-ref b i j) c))) i n) (for-each-from-a-up-to-b (lambda (j) (let ((e (matrix-ref b j i))) (for-each-from-a-up-to-b (lambda (k) (matrix-set! b j k (- (matrix-ref b j k) (* e (matrix-ref b i k))))) (+ i 1) n))) (+ i 1) n)))) n) d)))) (define (invert-matrix a) ;; The constants are hardwired to be inexact for efficiency. (unless (= (matrix-rows a) (matrix-columns a)) (panic "Can only invert a square matrix")) ;; removed: comment (call-with-current-continuation (lambda (abort) (let* ((n (matrix-rows a)) (c (make-matrix n n)) (b (make-matrix n n 0.0))) (for-each-n (lambda (i) (for-each-n (lambda (j) (matrix-set! c i j (matrix-ref a i j))) n)) n) (for-each-n (lambda (i) (matrix-set! b i i 1.0)) n) (for-each-n (lambda (i) (when (zero? (matrix-ref c i i)) (call-with-current-continuation (lambda (return) (for-each-n (lambda (j) (when (and (> j i) (not (zero? (matrix-ref c j i)))) (let ((e (vector-ref c i))) (vector-set! c i (vector-ref c j)) (vector-set! c j e)) (let ((e (vector-ref b i))) (vector-set! b i (vector-ref b j)) (vector-set! b j e)) (return #f))) n) (abort #f)))) (let ((d (/ (matrix-ref c i i)))) (for-each-n (lambda (j) (matrix-set! c i j (* d (matrix-ref c i j))) (matrix-set! b i j (* d (matrix-ref b i j)))) n) (for-each-n (lambda (k) (let ((d (- (matrix-ref c k i)))) (unless (= k i) (for-each-n (lambda (j) (matrix-set! c k j (+ (matrix-ref c k j) (* d (matrix-ref c i j)))) (matrix-set! b k j (+ (matrix-ref b k j) (* d (matrix-ref b i j))))) n)))) n))) n) b)))) (define *epsilon* 1e-6) ;;; changed: To use modified kilo/simplex.sc version. (define (simplex a m1 m2 m3) (unless (and (>= m1 0) (>= m2 0) (>= m3 0) (= (matrix-rows a) (+ m1 m2 m3 2))) (fuck-up)) (let* ((m12 (+ m1 m2 1)) (m (- (matrix-rows a) 2)) (n (- (matrix-columns a) 1)) (l1 (make-vector n)) (l2 (make-vector m)) (l3 (make-vector m2)) (nl1 n) (iposv (make-vector m)) (izrov (make-vector n)) (ip 0) (kp 0) (bmax 0.0) (one? #f) (pass2? #t)) (define (simp1 mm abs?) (set! kp (vector-ref l1 0)) (set! bmax (matrix-ref a mm kp)) (do ((k 1 (+ k 1))) ((>= k nl1)) (when (positive? (if abs? (- (abs (matrix-ref a mm (vector-ref l1 k))) (abs bmax)) (- (matrix-ref a mm (vector-ref l1 k)) bmax))) (set! kp (vector-ref l1 k)) (set! bmax (matrix-ref a mm (vector-ref l1 k)))))) (define (simp2) (set! ip 0) (let ((q1 0.0) (flag? #f)) (do ((i 0 (+ i 1))) ((= i m)) (if flag? (when (< (matrix-ref a (vector-ref l2 i) kp) (- *epsilon*)) (let ((q (/ (- (matrix-ref a (vector-ref l2 i) 0)) (matrix-ref a (vector-ref l2 i) kp)))) (cond ((< q q1) (set! ip (vector-ref l2 i)) (set! q1 q)) ((= q q1) (let ((qp 0.0) (q0 0.0)) (let loop ((k 1)) (when (<= k n) (set! qp (/ (- (matrix-ref a ip k)) (matrix-ref a ip kp))) (set! q0 (/ (- (matrix-ref a (vector-ref l2 i) k)) (matrix-ref a (vector-ref l2 i) kp))) (when (= q0 qp) (loop (+ k 1))))) (when (< q0 qp) (set! ip (vector-ref l2 i)))))))) (when (< (matrix-ref a (vector-ref l2 i) kp) (- *epsilon*)) (set! q1 (/ (- (matrix-ref a (vector-ref l2 i) 0)) (matrix-ref a (vector-ref l2 i) kp))) (set! ip (vector-ref l2 i)) (set! flag? #t)))))) (define (simp3 one?) (let ((piv (/ (matrix-ref a ip kp)))) (do ((ii 0 (+ ii 1))) ((= ii (+ m (if one? 2 1)))) (unless (= ii ip) (matrix-set! a ii kp (* piv (matrix-ref a ii kp))) (do ((kk 0 (+ kk 1))) ((= kk (+ n 1))) (unless (= kk kp) (matrix-set! a ii kk (- (matrix-ref a ii kk) (* (matrix-ref a ip kk) (matrix-ref a ii kp)))))))) (do ((kk 0 (+ kk 1))) ((= kk (+ n 1))) (unless (= kk kp) (matrix-set! a ip kk (* (- piv) (matrix-ref a ip kk))))) (matrix-set! a ip kp piv))) (do ((k 0 (+ k 1))) ((= k n)) (vector-set! l1 k (+ k 1)) (vector-set! izrov k k)) (do ((i 0 (+ i 1))) ((= i m)) (when (negative? (matrix-ref a (+ i 1) 0)) (fuck-up)) (vector-set! l2 i (+ i 1)) (vector-set! iposv i (+ n i))) (do ((i 0 (+ i 1))) ((= i m2)) (vector-set! l3 i #t)) (when (positive? (+ m2 m3)) (do ((k 0 (+ k 1))) ((= k (+ n 1))) (do ((i (+ m1 1) (+ i 1)) (sum 0.0 (+ sum (matrix-ref a i k)))) ((> i m) (matrix-set! a (+ m 1) k (- sum))))) (let loop () (simp1 (+ m 1) #f) (cond ((<= bmax *epsilon*) (cond ((< (matrix-ref a (+ m 1) 0) (- *epsilon*)) (set! pass2? #f)) ((<= (matrix-ref a (+ m 1) 0) *epsilon*) (let loop ((ip1 m12)) (if (<= ip1 m) (cond ((= (vector-ref iposv (- ip1 1)) (+ ip n -1)) (simp1 ip1 #t) (cond ((positive? bmax) (set! ip ip1) (set! one? #t)) (else (loop (+ ip1 1))))) (else (loop (+ ip1 1)))) (do ((i (+ m1 1) (+ i 1))) ((>= i m12)) (when (vector-ref l3 (- i m1 1)) (do ((k 0 (+ k 1))) ((= k (+ n 1))) (matrix-set! a i k (- (matrix-ref a i k))))))))) (else (simp2) (if (zero? ip) (set! pass2? #f) (set! one? #t))))) (else (simp2) (if (zero? ip) (set! pass2? #f) (set! one? #t)))) (when one? (set! one? #f) (simp3 #t) (cond ((>= (vector-ref iposv (- ip 1)) (+ n m12 -1)) (let loop ((k 0)) (cond ((and (< k nl1) (not (= kp (vector-ref l1 k)))) (loop (+ k 1))) (else (set! nl1 (- nl1 1)) (do ((is k (+ is 1))) ((>= is nl1)) (vector-set! l1 is (vector-ref l1 (+ is 1)))) (matrix-set! a (+ m 1) kp (+ (matrix-ref a (+ m 1) kp) 1)) (do ((i 0 (+ i 1))) ((= i (+ m 2))) (matrix-set! a i kp (- (matrix-ref a i kp)))))))) ((and (>= (vector-ref iposv (- ip 1)) (+ n m1)) (vector-ref l3 (- (vector-ref iposv (- ip 1)) m1 n))) (vector-set! l3 (- (vector-ref iposv (- ip 1)) m1 n) #f) (matrix-set! a (+ m 1) kp (+ (matrix-ref a (+ m 1) kp) 1)) (do ((i 0 (+ i 1))) ((= i (+ m 2))) (matrix-set! a i kp (- (matrix-ref a i kp)))))) (let ((t (vector-ref izrov (- kp 1)))) (vector-set! izrov (- kp 1) (vector-ref iposv (- ip 1))) (vector-set! iposv (- ip 1) t)) (loop)))) (and pass2? (let loop () (simp1 0 #f) (cond ((positive? bmax) (simp2) (cond ((zero? ip) #t) (else (simp3 #f) (let ((t (vector-ref izrov (- kp 1)))) (vector-set! izrov (- kp 1) (vector-ref iposv (- ip 1))) (vector-set! iposv (- ip 1) t)) (loop)))) (else (list iposv izrov))))))) ;;; The constants in the following are hardwired to be inexact for efficiency. (define (quadratic1 a b c) (let ((d (- (* b b) (* 4.0 a c)))) (when (and (negative? d) (< (- d) *epsilon*)) (set! d 0.0)) (/ (+ (- b) (sqrt d)) (* 2.0 a)))) (define (quadratic2 a b c) (let ((d (- (* b b) (* 4.0 a c)))) (when (and (negative? d) (< (- d) *epsilon*)) (set! d 0.0)) (/ (- (- b) (sqrt d)) (* 2.0 a)))) (define (jacobi a) (unless (and (= (matrix-rows a) (matrix-columns a)) (every-n (lambda (i) (every-n (lambda (j) (= (matrix-ref a i j) (matrix-ref a j i))) (matrix-rows a))) (matrix-rows a))) (panic "Can only compute eigenvalues/eigenvectors of a symmetric matrix")) (let* ((a (map-vector (lambda (row) (map-vector identity row)) a)) (n (matrix-rows a)) (d (make-vector n)) (v (make-matrix n n 0.0)) (b (make-vector n)) (z (make-vector n 0.0))) (for-each-n (lambda (ip) (matrix-set! v ip ip 1.0) (vector-set! b ip (matrix-ref a ip ip)) (vector-set! d ip (matrix-ref a ip ip))) n) (let loop ((i 0)) ;; This was changed from 50 to 500 for center-surround. (when (> i 500) (panic "Too many iterations in JACOBI")) (let ((sm (sum (lambda (ip) (sum (lambda (ir) (let ((iq (+ ip ir 1))) (abs (matrix-ref a ip iq)))) (- n ip 1))) (- n 1)))) (unless (zero? sm) (let ((tresh (if (< i 3) (/ (* 0.2 sm) (* n n)) 0.0))) (for-each-n (lambda (ip) (for-each-n (lambda (ir) (let* ((iq (+ ip ir 1)) (g (* 100.0 (abs (matrix-ref a ip iq))))) (cond ((and (> i 3) (= (+ (abs (vector-ref d ip)) g) (abs (vector-ref d ip))) (= (+ (abs (vector-ref d iq)) g) (abs (vector-ref d iq)))) (matrix-set! a ip iq 0.0)) ((> (abs (matrix-ref a ip iq)) tresh) (let* ((h (- (vector-ref d iq) (vector-ref d ip))) (t (if (= (+ (abs h) g) (abs h)) (/ (matrix-ref a ip iq) h) (let ((theta (/ (* 0.5 h) (matrix-ref a ip iq)))) (if (negative? theta) (- (/ (+ (abs theta) (sqrt (+ (* theta theta) 1.0))))) (/ (+ (abs theta) (sqrt (+ (* theta theta) 1.0)))))))) (c (/ (sqrt (+ (* t t) 1.0)))) (s (* t c)) (tau (/ s (+ c 1.0))) (h (* t (matrix-ref a ip iq)))) (define (rotate a i j k l) (let ((g (matrix-ref a i j)) (h (matrix-ref a k l))) (matrix-set! a i j (- g (* s (+ h (* g tau))))) (matrix-set! a k l (+ h (* s (- g (* h tau))))))) (vector-set! z ip (- (vector-ref z ip) h)) (vector-set! z iq (+ (vector-ref z iq) h)) (vector-set! d ip (- (vector-ref d ip) h)) (vector-set! d iq (+ (vector-ref d iq) h)) (matrix-set! a ip iq 0.0) (for-each-n (lambda (j) (cond ((< j ip) (rotate a j ip j iq)) ((< ip j iq) (rotate a ip j j iq)) ((< iq j) (rotate a ip j iq j))) (rotate v j ip j iq)) n)))))) (- n ip 1))) (- n 1))) (for-each-n (lambda (ip) (vector-set! b ip (+ (vector-ref b ip) (vector-ref z ip))) (vector-set! d ip (vector-ref b ip)) (vector-set! z ip 0.0)) n) (loop (+ i 1))))) (for-each-n (lambda (i) (let ((k i) (p (vector-ref d i))) (for-each-n (lambda (l) (let* ((j (+ i l 1))) (when (>= (vector-ref d j) p) (set! k j) (set! p (vector-ref d j))))) (- n i 1)) (unless (= k i) (vector-set! d k (vector-ref d i)) (vector-set! d i p) (for-each-n (lambda (j) (let ((p (matrix-ref v j i))) (matrix-set! v j i (matrix-ref v j k)) (matrix-set! v j k p))) n)))) (- n 1)) (list d (transpose v)))) (define (eigenvalues a) (first (jacobi a))) (define (eigenvectors a) (second (jacobi a))) (define (vector->diagonal-matrix v) (let ((m (make-matrix (vector-length v) (vector-length v) 0.0))) (for-each-n (lambda (i) (matrix-set! m i i (vector-ref v i))) (vector-length v)) m)) (define (identity-matrix n) (vector->diagonal-matrix (make-vector n 1.0))) (define (clip-eigenvalues a v) (let* ((j (jacobi a)) (e (second j))) (m* (transpose e) (m* (vector->diagonal-matrix (map-vector max v (first j))) e)))) ;;; The following two routines are limited to 2-by-2 matricies. (define (eigenvector-angle1 m) (if (and (< (abs (matrix-ref m 1 0)) *epsilon*) (< (abs (matrix-ref m 0 1)) *epsilon*)) (if (> (matrix-ref m 1 1) (matrix-ref m 0 0)) half-pi 0.0) (atan (matrix-ref m 1 0) (- (vector-ref (eigenvalues m) 0) (matrix-ref m 1 1))))) (define (eigenvector-angle2 m) (if (and (< (abs (matrix-ref m 1 0)) *epsilon*) (< (abs (matrix-ref m 0 1)) *epsilon*)) (if (<= (matrix-ref m 1 1) (matrix-ref m 0 0)) half-pi 0.0) (atan (matrix-ref m 1 0) (- (vector-ref (eigenvalues m) 1) (matrix-ref m 1 1))))) ;;; Sparse Matrices (define-structure sparse-matrix row column blank) (define-structure sparse-matrix-row element i up down) (define-structure sparse-matrix-column element j left right) (define-structure sparse-matrix-element value i up down j left right) (define (create-sparse-matrix blank) (make-sparse-matrix #f #f blank)) (define (sparse-matrix-ref sparse-matrix i j) ;; note: Could do different traversals. ;; note: Could terminate sooner relying upon ordering. ;; note: Could make equality predicate a parameter and have different values ;; for rows and columns. (let loop ((sparse-matrix-row (sparse-matrix-row sparse-matrix))) (if sparse-matrix-row (if (= (sparse-matrix-row-i sparse-matrix-row) i) (let loop ((sparse-matrix-element (sparse-matrix-row-element sparse-matrix-row))) (if sparse-matrix-element (if (= (sparse-matrix-element-j sparse-matrix-element) j) (sparse-matrix-element-value sparse-matrix-element) (loop (sparse-matrix-element-right sparse-matrix-element))) (sparse-matrix-blank sparse-matrix))) (loop (sparse-matrix-row-down sparse-matrix-row))) (sparse-matrix-blank sparse-matrix)))) ;;; Arrays ;;; Note: Limited error checking (although some errors will be revealed by ;;; VECTOR addressing). (define (make-array l . &rest) ;; (make-array '(m n ...) [v]) creates array with optional intial value (cond ((or (not (list? l)) (< (length l) 1)) (panic "First argument to MAKE-ARRAY must be non-empty list")) ((> (length &rest) 1) (panic "Too many arguments to MAKE-ARRAY")) (else (let loop ((l l)) (if (null? (rest l)) (make-vector (first l) (if (null? &rest) '() (first &rest))) (let ((v (make-vector (first l)))) (for-each-n (lambda (i) (vector-set! v i (loop (rest l)))) (first l)) v)))))) (define (array-ref a . &rest) ;; (array-ref a i j ...) returns a[i,j,...] from zero base (if (null? &rest) (panic "Too few arguments to ARRAY-REF") (let loop ((a a) (l &rest)) (if (null? (rest l)) (vector-ref a (first l)) (loop (vector-ref a (first l)) (rest l)))))) (define (array-set! a v . &rest) ;; (array-set! a v i j ...) assigns a[i,j,...] = v. ;; Note: array indices are *at end* so they can have variable dimension (if (null? &rest) (panic "Too few arguments to ARRAY-SET!") (let loop ((a a) (l &rest)) (if (null? (rest l)) (vector-set! a (first l) v) (loop (vector-ref a (first l)) (rest l)))))) ;;; 3D Geometry (define-structure transform translation rotation) (define pi (acos -1.0)) (define half-pi (/ pi 2.0)) (define two-pi (* 2.0 pi)) (define minus-pi (- pi)) (define two-pi/360 (/ two-pi 360.0)) (define three-sixty/two-pi (/ 360.0 two-pi)) (define (degrees->radians angle) (* two-pi/360 angle)) (define (radians->degrees angle) (* three-sixty/two-pi angle)) (define (normalize-rotation rotation) (cond ((> rotation pi) (normalize-rotation (- rotation two-pi))) ((<= rotation minus-pi) (normalize-rotation (+ rotation two-pi))) (else rotation))) (define (rotation+ x y) (normalize-rotation (+ x y))) (define (rotation- x y) (normalize-rotation (- x y))) (define (angle-separation x y) (min (abs (rotation- x y)) (abs (rotation- y x)))) (define (rotation-matrix-2d theta) (let ((ct (cos theta)) (st (sin theta))) (vector (vector ct (- st)) (vector st ct)))) (define (mean-angle angles) (atan (reduce + (map sin angles) 0) (reduce + (map cos angles) 0))) (define (create-transform theta phi psi x y z) (let ((theta (degrees->radians theta)) (phi (degrees->radians phi)) (psi (degrees->radians psi))) (make-transform (vector x y z) (m* (m* (make-3-by-3-matrix 1.0 0.0 0.0 0.0 (cos theta) (sin theta) 0.0 (- (sin theta)) (cos theta)) (make-3-by-3-matrix (cos phi) 0.0 (sin phi) 0.0 1.0 0.0 (- (sin phi)) 0.0 (cos phi))) (make-3-by-3-matrix (cos psi) (sin psi) 0.0 (- (sin psi)) (cos psi) 0.0 0.0 0.0 1.0))))) (define (compose-transforms t1 t2) (make-transform (v+ (m*v (transform-rotation t2) (transform-translation t1)) (transform-translation t2)) (m* (transform-rotation t2) (transform-rotation t1)))) (define (apply-transform t v) (v+ (transform-translation t) (m*v (transform-rotation t) v))) (define (project v focal-length) (k*v (/ focal-length (z v)) (vector (x v) (y v)))) ;;; Ellipses (define-structure ellipse x0 y0 t0 a b) (define (ellipse-center ellipse) (vector (ellipse-x0 ellipse) (ellipse-y0 ellipse))) (define (ellipse-area ellipse) (* pi (ellipse-a ellipse) (ellipse-b ellipse))) (define (ellipse-eccentricity ellipse) (/ (ellipse-a ellipse) (ellipse-b ellipse))) (define (radial-distance theta phi) (normalize-rotation (- phi theta))) (define (point-on-ellipse? p ellipse tolerance) (let* ((p0 (vector (ellipse-x0 ellipse) (ellipse-y0 ellipse))) (r (rotation-matrix-2d (- (ellipse-t0 ellipse)))) (a (ellipse-a ellipse)) (b (ellipse-b ellipse)) (q (unit (m*v r (v- p p0))))) (<= (abs (- (distance p p0) (magnitude (vector (* a (x q)) (* b (y q)))))) tolerance))) (define (draw-ellipse display drawable gc ellipse) (let* ((previous-x #f) ;needs work: type pollution (previous-y #f) ;needs work: type pollution (x0 (ellipse-x0 ellipse)) (y0 (ellipse-y0 ellipse)) (t0 (ellipse-t0 ellipse)) (a (ellipse-a ellipse)) (b (ellipse-b ellipse)) (rxx (cos t0)) (rxy (- (sin t0))) (ryx (- rxy)) (ryy rxx)) (for-each-n (lambda (i) (let* ((ellipse-x (* a (sin (degrees->radians (* 10 i))))) (ellipse-y (* b (cos (degrees->radians (* 10 i))))) (this-x (+ (* rxx ellipse-x) (* rxy ellipse-y) x0)) (this-y (+ (* ryx ellipse-x) (* ryy ellipse-y) y0))) (when previous-x (xdrawline display drawable gc this-x this-y previous-x previous-y)) (set! previous-x this-x) (set! previous-y this-y))) 37))) ;;; Convex Hull (define (same-angle? u v) ;; Returns #T if either U or V have zero magnitude. (or (and (zero? (x u)) (zero? (y u))) (and (zero? (x v)) (zero? (y v))) (and (eq? (negative? (x u)) (negative? (x v))) (eq? (negative? (y u)) (negative? (y v))) (parallel? u v)))) (define (clockwise-angle? u v w) (if (negative? (x u)) (if (negative? (y u)) ;; U is in third quadrant (clockwise-angle? (rotate-180 u) (rotate-180 v) (rotate-180 w)) ;; U is in second quadrant (clockwise-angle? (rotate-270 u) (rotate-270 v) (rotate-270 w))) (if (negative? (y u)) ;; U is in fourth quadrant (clockwise-angle? (rotate-90 u) (rotate-90 v) (rotate-90 w)) ;; U is in first quadrant (if (negative? (x v)) (if (negative? (y v)) ;; V is in third quadrant (if (negative? (x w)) (if (negative? (y w)) ;; W is in third quadrant (clockwise-angle? v w u) ;; W is in second quadrant #t) (if (negative? (y w)) ;; W is in fourth quadrant #f ;; W is in first quadrant (clockwise-angle? w u v))) ;; V is in second quadrant (if (negative? (y w)) ;; W is in third or fourth quadrant #f (if (negative? (x w)) ;; W is in second quadrant (clockwise-angle? v w u) ;; W is in first quadrant (clockwise-angle? w u v)))) (if (negative? (y v)) ;; V is in fourth quadrant (if (negative? (x w)) ;; W is in second or third quadrant #t (if (negative? (y w)) ;; W is in fourth quadrant (clockwise-angle? v w u) ;; W is in first quadrant (clockwise-angle? w u v))) ;; V is in first quadrant (if (negative? (x w)) ;; W is in second or third quadrant (> (* (x v) (y u)) (* (x u) (y v))) (if (negative? (y w)) ;; W is in fourth quadrant (> (* (x v) (y u)) (* (x u) (y v))) ;; W is in first quadrant (or (and (> (* (x v) (y u)) (* (x u) (y v))) (> (* (x w) (y v)) (* (x v) (y w)))) (and (> (* (x w) (y v)) (* (x v) (y w))) (> (* (x u) (y w)) (* (x w) (y u)))) (and (> (* (x u) (y w)) (* (x w) (y u))) (> (* (x v) (y u)) (* (x u) (y v)))))))))))) (define (clockwise-or-same-angle? u v w) (if (negative? (x u)) (if (negative? (y u)) ;; U is in third quadrant (clockwise-or-same-angle? (rotate-180 u) (rotate-180 v) (rotate-180 w)) ;; U is in second quadrant (clockwise-or-same-angle? (rotate-270 u) (rotate-270 v) (rotate-270 w))) (if (negative? (y u)) ;; U is in fourth quadrant (clockwise-or-same-angle? (rotate-90 u) (rotate-90 v) (rotate-90 w)) ;; U is in first quadrant (if (negative? (x v)) (if (negative? (y v)) ;; V is in third quadrant (if (negative? (x w)) (if (negative? (y w)) ;; W is in third quadrant (clockwise-or-same-angle? v w u) ;; W is in second quadrant #t) (if (negative? (y w)) ;; W is in fourth quadrant #f ;; W is in first quadrant (clockwise-or-same-angle? w u v))) ;; V is in second quadrant (if (negative? (y w)) ;; W is in third or fourth quadrant #f (if (negative? (x w)) ;; W is in second quadrant (clockwise-or-same-angle? v w u) ;; W is in first quadrant (clockwise-or-same-angle? w u v)))) (if (negative? (y v)) ;; V is in fourth quadrant (if (negative? (x w)) ;; W is in second or third quadrant #t (if (negative? (y w)) ;; W is in fourth quadrant (clockwise-or-same-angle? v w u) ;; W is in first quadrant (clockwise-or-same-angle? w u v))) ;; V is in first quadrant (if (negative? (x w)) ;; W is in second or third quadrant (>= (* (x v) (y u)) (* (x u) (y v))) (if (negative? (y w)) ;; W is in fourth quadrant (>= (* (x v) (y u)) (* (x u) (y v))) ;; W is in first quadrant (or (and (>= (* (x v) (y u)) (* (x u) (y v))) (>= (* (x w) (y v)) (* (x v) (y w)))) (and (>= (* (x w) (y v)) (* (x v) (y w))) (>= (* (x u) (y w)) (* (x w) (y u)))) (and (>= (* (x u) (y w)) (* (x w) (y u))) (>= (* (x v) (y u)) (* (x u) (y v)))))))))))) (define (convex-hull points) ;; This correctly handles collinear points, and coincident points as a special ;; case of collinear points. It always returns the minimal set of points that ;; constitute a convex hull. The return value constitutes a counterclockwise ;; traversal of the hull. (if (null? points) '() ;; START is the bottommost, rightmost point. (let ((start (minp (lambda (p q) (or (< (y p) (y q)) (and (= (y p) (y q)) (> (x p) (x q))))) points))) (if (every (lambda (p) (v= p start)) points) ;; If all points are coincident with START, then the hull consists ;; of the single point START. (list start) ;; PREVIOUS is one unit to the right of START. Choose a point NEXT ;; such that the ray from START to NEXT is minimally clockwise from ;; the ray from START to PREVIOUS. There can be several such ;; collinear points NEXT. (let* ((next (minp (lambda (p q) (or (same-angle? (v- q start) '#(1 0)) (and (not (same-angle? (v- p start) '#(1 0))) (clockwise-or-same-angle? '#(1 0) (v- p start) (v- q start))))) points)) ;; Choose the collinear point that is furthest from START. (next (minp (lambda (p q) (>= (distance p start) (distance q start))) ;; Find all points that are collinear to NEXT ;; along the ray from START to NEXT. (remove-if-not (lambda (p) (same-angle? (v- p start) (v- next start))) points)))) (let loop ((hull (list next start))) (let* ((next ;; Choose a point NEXT such that the ray from THIS to NEXT ;; is minimally clockwise from the ray from THIS to ;; PREVIOUS. There can be several such collinear points ;; NEXT. (minp (lambda (p q) (or (same-angle? (v- q (first hull)) (v- (second hull) (first hull))) (and (not (same-angle? (v- p (first hull)) (v- (second hull) (first hull)))) (clockwise-or-same-angle? (v- (second hull) (first hull)) (v- p (first hull)) (v- q (first hull)))))) points)) ;; Choose the collinear point that is furthest from THIS. (next (minp (lambda (p q) (>= (distance p (first hull)) (distance q (first hull)))) ;; Find all points that are collinear to NEXT ;; along the ray from THIS to NEXT. (remove-if-not (lambda (p) (same-angle? (v- p (first hull)) (v- next (first hull)))) points)))) (if (v= next start) hull (loop (cons next hull)))))))))) (define (concave-hull points delta) ;; This correctly handles collinear points, and coincident points as a special ;; case of collinear points. It always returns the minimal set of points that ;; constitute a `concave' hull. The return value constitutes a ;; counterclockwise traversal of the hull. ;; This assumes that POINTS is connected. If it is not, then the hull that is ;; returned may not surround all of the POINTS. (if (null? points) '() ;; START is the bottommost, rightmost point. (let ((start (minp (lambda (p q) (or (< (y p) (y q)) (and (= (y p) (y q)) (> (x p) (x q))))) points))) (if (every (lambda (p) (or (> (distance p start) delta) (v= p start))) points) ;; If all points that are closer than DELTA to START are coincident ;; with START, then the hull consists of the single point START. (list start) ;; PREVIOUS is one unit to the right of START. Choose a point NEXT ;; such that the ray from START to NEXT is minimally clockwise from ;; the ray from START to PREVIOUS. There can be several such ;; collinear points NEXT. (let* ((next (minp (lambda (p q) (or (same-angle? (v- q start) '#(1 0)) (and (not (same-angle? (v- p start) '#(1 0))) (clockwise-or-same-angle? '#(1 0) (v- p start) (v- q start))))) ;; Remove the points that are further than DELTA away ;; from THIS. (remove-if (lambda (p) (> (distance p start) delta)) points))) ;; Choose the noncoincident close collinear point that is ;; closest to START. (next (minp (lambda (p q) (<= (distance p start) (distance q start))) ;; Find all points that are not coincident with ;; START, closer than DELTA to START, and ;; collinear to NEXT along the ray from START to ;; NEXT. (remove-if-not (lambda (p) (and (not (v= p start)) (<= (distance p start) delta) (same-angle? (v- p start) (v- next start)))) points)))) (let loop ((hull (list next start))) (let* ((next ;; Choose a point NEXT such that the ray from THIS to NEXT ;; is minimally clockwise from the ray from THIS to ;; PREVIOUS. There can be several such collinear points ;; NEXT. (minp (lambda (p q) (or (same-angle? (v- q (first hull)) (v- (second hull) (first hull))) (and (not (same-angle? (v- p (first hull)) (v- (second hull) (first hull)))) (clockwise-or-same-angle? (v- (second hull) (first hull)) (v- p (first hull)) (v- q (first hull)))))) ;; Remove the points that are further than DELTA away ;; from THIS. Also remove those points P such that ;; the line segment from THIS to P crosses some line ;; segment in the current partial hull. (remove-if (lambda (p) (or (> (distance p (first hull)) delta) (let ((this (first hull))) (let loop ((hull (rest hull))) (and (not (null? (rest hull))) (or (cross? (make-line-segment this p) (make-line-segment (first hull) (second hull))) (loop (rest hull)))))))) points))) ;; Choose the noncoincident close collinear point that is ;; closest to THIS. (next (minp (lambda (p q) (<= (distance p (first hull)) (distance q (first hull)))) ;; Find all points that are not coincident with ;; THIS, closer than DELTA to THIS, and ;; collinear to NEXT along the ray from THIS to ;; NEXT. (remove-if-not (lambda (p) (and (not (v= p (first hull))) (<= (distance p (first hull)) delta) (same-angle? (v- p (first hull)) (v- next (first hull))))) points)))) (if (v= next start) (let loop ((hull hull)) (cond ((or (null? hull) (null? (rest hull)) (null? (rest (rest hull)))) hull) ((same-angle? (v- (second hull) (first hull)) (v- (third hull) (second hull))) (loop (cons (first hull) (rest (rest hull))))) (else (cons (first hull) (loop (rest hull)))))) (loop (cons next hull)))))))))) (define (clockwise? p q r) (clockwise-angle? (v- q p) (v- r q) (v- p q))) (define (crossing? points) (let ((line-segments (map make-line-segment points (append (rest points) (list (first points)))))) (some (lambda (l1) (some (lambda (l2) (cross? l1 l2)) line-segments)) line-segments))) (define (triangulate points) ;; POINTS must be a counterclockwise traversal of the vertices of a polygon. ;; Returns a list of counterclockwise triangles. (cond ((null? points) '()) ((null? (rest points)) (list (list (first points) (first points) (first points)))) ((v= (first points) (second points)) (triangulate (rest points))) ((null? (rest (rest points))) (list (list (second points) (first points) (first points)))) ((same-angle? (v- (second points) (first points)) (v- (third points) (second points))) (triangulate (cons (first points) (rest (rest points))))) ((same-angle? (v- (second points) (first points)) (v- (second points) (third points))) (cons (list (third points) (second points) (first points)) (triangulate (cons (first points) (rest (rest points)))))) ((and (clockwise? (third points) (second points) (first points)) (not (some (lambda (p) (or (point-inside-triangle? p (third points) (second points) (first points)) (and (not (v= p (first points))) (point-on-line-segment? p (make-line-segment (first points) (second points)))) (and (not (v= p (third points))) (point-on-line-segment? p (make-line-segment (second points) (third points)))))) (rest (rest (rest points)))))) (cons (list (third points) (second points) (first points)) (triangulate (cons (first points) (rest (rest points)))))) (else (triangulate (append (rest points) (list (first points))))))) (define (perimeter-of-polygon points) (if (or (null? points) (null? (rest points))) 0 (let loop ((points (cons (last points) points))) (if (null? (rest points)) 0 (+ (distance (first points) (second points)) (loop (rest points))))))) (define (hero p q r) (let* ((a (distance p q)) (b (distance q r)) (c (distance r p)) (s (/ (+ a b c) 2))) (sqrt (* s (- s a) (- s b) (- s c))))) (define (area-of-polygon points) (reduce + (map (lambda (triangle) (hero (first triangle) (second triangle) (third triangle))) (triangulate points)) 0)) (define (point-inside-triangle? p u v w) (if (clockwise? u v w) (and (clockwise-angle? (v- v u) (v- p u) (v- w u)) (clockwise-angle? (v- w v) (v- p v) (v- u v)) (clockwise-angle? (v- u w) (v- p w) (v- v w))) (and (clockwise-angle? (v- w u) (v- p u) (v- v u)) (clockwise-angle? (v- u v) (v- p v) (v- w v)) (clockwise-angle? (v- v w) (v- p w) (v- u w))))) (define (point-inside-or-on-triangle? p u v w) (if (clockwise? u v w) (and (clockwise-or-same-angle? (v- v u) (v- p u) (v- w u)) (clockwise-or-same-angle? (v- w v) (v- p v) (v- u v)) (clockwise-or-same-angle? (v- u w) (v- p w) (v- v w))) (and (clockwise-or-same-angle? (v- w u) (v- p u) (v- v u)) (clockwise-or-same-angle? (v- u v) (v- p v) (v- w v)) (clockwise-or-same-angle? (v- v w) (v- p w) (v- u w))))) (define (outline-polygon points) (map make-line-segment points (append (rest points) (list (first points))))) (define (fill-polygon points u v) ;; needs work: This is a kludge for now since POINT-INSIDE-OR-ON-TRIANGLE? ;; returns #T for triangles with coincident vertices. And ;; TRIANGULATE returns such triangles for concave hulls. (let ((triangles (remove-if (lambda (triangle) (or (v= (first triangle) (second triangle)) (v= (second triangle) (third triangle)) (v= (third triangle) (first triangle)))) (triangulate points))) (points '())) (do ((y1 (y u) (+ y1 1))) ((>= y1 (y v))) (do ((x1 (x u) (+ x1 1))) ((>= x1 (x v))) (let ((point (vector x1 y1))) (when (some (lambda (triangle) (point-inside-or-on-triangle? point (first triangle) (second triangle) (third triangle))) triangles) (set! points (cons point points)))))) points)) ;;; Log Space Addition (define log-math-precision 35.0) (define minus-infinity (/ -1.0 0.0)) ;changed (define infinity (/ 1.0 0.0)) ;changed (define nan (- infinity infinity)) ;changed (define (add-exp e1 e2) (let* ((e-max (max e1 e2)) (e-min (min e1 e2)) (factor (floor e-min))) (if (= e-max minus-infinity) minus-infinity (if (> (- e-max factor) log-math-precision) e-max (+ (log (+ (exp (- e-max factor)) (exp (- e-min factor)))) factor))))) (define (log-sum f n) (if (positive? n) (let loop ((n (- n 2)) (c (f (- n 1)))) (if (negative? n) c (loop (- n 1) (add-exp (f n) c)))) minus-infinity)) ;;; Images (define *max-red* 255) (define *max-green* 255) (define *max-blue* 255) (define *max-grey* 255) (define *max-hue* 360) (define *max-saturation* 100) (define *max-value* 100) (define (rgb->hsv rgb) ;; The constants are hardwired to be inexact for efficiency. (let* ((red (/ (vector-ref rgb 0) *max-red*)) (green (/ (vector-ref rgb 1) *max-green*)) (blue (/ (vector-ref rgb 2) *max-blue*)) (value (max red green blue)) (m (min red green blue)) (saturation (if (zero? value) 0.0 (/ (- value m) value))) (hue (if (zero? saturation) 0.0 (/ (let ((rc (/ (- value red) (- value m))) (gc (/ (- value green) (- value m))) (bc (/ (- value blue) (- value m)))) (cond ((= red value) (- bc gc)) ((= green value) (+ 2.0 (- rc bc))) (else (+ 4.0 (- gc rc))))) 6.0))) (hue (if (negative? hue) (+ hue 1.0) hue))) (vector (inexact->exact (floor (* *max-hue* hue))) (inexact->exact (floor (* *max-saturation* saturation))) (inexact->exact (floor (* *max-value* value)))))) (define (hsv->rgb hsv) ;; The constants are hardwired to be inexact for efficiency. (let ((hue (/ (vector-ref hsv 0) *max-hue*)) (saturation (/ (vector-ref hsv 1) *max-saturation*)) (value (* (max *max-red* *max-green* *max-blue*) (/ (vector-ref hsv 2) *max-value*)))) (if (zero? saturation) (vector (inexact->exact (floor value)) (inexact->exact (floor value)) (inexact->exact (floor value))) (let* ((hue (if (negative? hue) (+ hue 1.0) hue)) (hue (* 6.0 hue)) (fract (- hue (floor hue))) (new1 (inexact->exact (floor (* value (- 1.0 saturation))))) (new2 (inexact->exact (floor (* value (- 1.0 (* saturation fract)))))) (new3 (inexact->exact (floor (* value (- 1.0 (* saturation (- 1.0 fract))))))) (value (inexact->exact (floor value)))) (case (inexact->exact (floor hue)) ((0) (vector value new3 new1)) ((1) (vector new2 value new1)) ((2) (vector new1 value new3)) ((3) (vector new1 new2 value)) ((4) (vector new3 new1 value)) ((5) (vector value new1 new2)) ((6) (vector value new3 new1)) (else (panic "Inappropriate hue angle"))))))) (define (rgb->cd rgb) (let* ((red (vector-ref rgb 0)) (green (vector-ref rgb 1)) (blue (vector-ref rgb 2)) (intensity (max (+ red green blue) 1))) (vector (inexact->exact (floor (* *max-red* (/ red intensity)))) (inexact->exact (floor (* *max-green* (/ green intensity))))))) (define-structure pbm raw? bitmap) (define-structure pgm raw? maxval grey) (define-structure ppm raw? maxval red green blue) (define (pnm-width pnm) (matrix-columns (cond ((pbm? pnm) (pbm-bitmap pnm)) ((pgm? pnm) (pgm-grey pnm)) ((ppm? pnm) (ppm-red pnm)) (else (panic "Argument not PNM"))))) (define (pnm-height pnm) (matrix-rows (cond ((pbm? pnm) (pbm-bitmap pnm)) ((pgm? pnm) (pgm-grey pnm)) ((ppm? pnm) (ppm-red pnm)) (else (panic "Argument not PNM"))))) (define (read-pnm pathname) (define (read-pnm port) (define (read-pbm raw?) (let* ((width (read port)) (height (read port)) (bitmap (make-matrix height width 0))) ;; removed: comment (call-with-current-continuation (lambda (return) (cond (raw? (panic "Cannot (yet) read a raw pbm image")) (else (for-each-n (lambda (y) (for-each-n (lambda (x) (let ((v (read port))) (when (eof-object? v) (return #f)) ;; Yes, it really is the case (at least ;; according to xv) that 0 means white and ;; 1 means black for ascii pbm images. (matrix-set! bitmap y x (zero? v)))) width)) height))))) (make-pbm raw? bitmap))) (define (read-pgm raw?) (let* ((width (read port)) (height (read port)) (maxval (read port)) (size (* width height)) (grey (make-matrix height width 0))) ;; removed: comment (call-with-current-continuation (lambda (return) (cond (raw? (read-char port) (for-each-n (lambda (y) (for-each-n (lambda (x) (let ((c (read-char port))) (when (eof-object? c) (return #f)) (matrix-set! grey y x (char->integer c)))) width)) height)) (else (for-each-n (lambda (y) (for-each-n (lambda (x) (let ((v (read port))) (when (eof-object? v) (return #f)) (matrix-set! grey y x v))) width)) height))))) (make-pgm raw? maxval grey))) (define (read-ppm raw?) (let* ((width (read port)) (height (read port)) (maxval (read port)) (size (* width height)) (red (make-matrix height width 0)) (green (make-matrix height width 0)) (blue (make-matrix height width 0))) ;; removed: comment (call-with-current-continuation (lambda (return) (cond (raw? (read-char port) (for-each-n (lambda (y) (for-each-n (lambda (x) (let* ((c1 (read-char port)) (c2 (read-char port)) (c3 (read-char port))) (when (eof-object? c1) (return #f)) (matrix-set! red y x (char->integer c1)) (matrix-set! green y x (char->integer c2)) (matrix-set! blue y x (char->integer c3)))) width)) height)) (else (for-each-n (lambda (y) (for-each-n (lambda (x) (let* ((v1 (read port)) (v2 (read port)) (v3 (read port))) (when (eof-object? v1) (return #f)) (matrix-set! red y x v1) (matrix-set! green y x v2) (matrix-set! blue y x v3))) width)) height))))) (make-ppm raw? maxval red green blue))) (let ((format (read port))) (case format ((p1) (read-pbm #f)) ((p2) (read-pgm #f)) ((p3) (read-ppm #f)) ((p4) (read-pbm #t)) ((p5) (read-pgm #t)) ((p6) (read-ppm #t)) (else (panic "Incorrect format for a pnm image"))))) (if (string=? pathname "-") (read-pnm (current-input-port)) (call-with-input-file pathname read-pnm))) (define (write-pnm pnm pathname) (define (write-pnm port) (define (write-pbm pbm) (let ((width (pnm-width pbm)) (height (pnm-height pbm)) (bitmap (pbm-bitmap pbm))) (write (if (pbm-raw? pbm) 'p4 'p1) port) (newline port) (write width port) (write-char #\space port) (write height port) (newline port) (if (pbm-raw? pbm) (panic "Cannot (yet) write a raw pbm image") (for-each-n (lambda (y) (for-each-n (lambda (x) ;; Yes, it really is the case (at least ;; according to xv) that 0 means white and ;; 1 means black for ascii pbm images. (write (if (matrix-ref bitmap y x) 0 1) port) (newline port)) width)) height)))) (define (write-pgm pgm) (let ((width (pnm-width pgm)) (height (pnm-height pgm)) (grey (pgm-grey pgm))) (when (pgm-raw? pgm) (for-each-n (lambda (y) (for-each-n (lambda (x) (when (> (matrix-ref grey y x) 255) (panic "Grey value too large for raw pgm file format"))) width)) height)) (write (if (pgm-raw? pgm) 'p5 'p2) port) (newline port) (write width port) (write-char #\space port) (write height port) (newline port) (write (pgm-maxval pgm) port) (newline port) (if (pgm-raw? pgm) (for-each-n (lambda (y) (for-each-n (lambda (x) (write-char (integer->char (matrix-ref grey y x)) port)) width)) height) (for-each-n (lambda (y) (for-each-n (lambda (x) (write (matrix-ref grey y x) port) (newline port)) width)) height)))) (define (write-ppm ppm) (let ((width (pnm-width ppm)) (height (pnm-height ppm)) (red (ppm-red ppm)) (green (ppm-green ppm)) (blue (ppm-blue ppm))) (when (ppm-raw? ppm) (for-each-n (lambda (y) (for-each-n (lambda (x) (when (or (> (matrix-ref red y x) 255) (> (matrix-ref green y x) 255) (> (matrix-ref blue y x) 255)) (panic "Color value too large for raw ppm file format"))) width)) height)) (write (if (ppm-raw? ppm) 'p6 'p3) port) (newline port) (write width port) (write-char #\space port) (write height port) (newline port) (write (ppm-maxval ppm) port) (newline port) (if (ppm-raw? ppm) (for-each-n (lambda (y) (for-each-n (lambda (x) (write-char (integer->char (matrix-ref red y x)) port) (write-char (integer->char (matrix-ref green y x)) port) (write-char (integer->char (matrix-ref blue y x)) port)) width)) height) (for-each-n (lambda (y) (for-each-n (lambda (x) (write (matrix-ref red y x) port) (newline port) (write (matrix-ref green y x) port) (newline port) (write (matrix-ref blue y x) port) (newline port)) width)) height)))) (cond ((pbm? pnm) (write-pbm pnm)) ((pgm? pnm) (write-pgm pnm)) ((ppm? pnm) (write-ppm pnm)) (else (panic "Non-PNM argument to WRITE-PNM")))) (if (string=? pathname "-") (write-pnm (current-output-port)) (call-with-output-file (default-extension pathname (cond ((pbm? pnm) "pbm") ((pgm? pnm) "pgm") ((ppm? pnm) "ppm") (else (fuck-up)))) write-pnm))) (define (pnm-movie-frame-pathname pathname i) (when (string=? pathname "-") (panic "Invalid pathname")) (let ((i (+ i 1))) (replace-extension (string-append (strip-extension pathname) "_" (cond ((< i 10) "0000") ((< i 100) "000") ((< i 1000) "00") ((< i 10000) "0") (else "")) (number->string i)) (extension pathname)))) (define (pnm-movie-length pathname) (let loop ((i 0)) (if (can-open-file-for-input? (pnm-movie-frame-pathname pathname i)) (loop (+ i 1)) i))) (define (read-pnm-movie pathname) (list->vector (map-n (lambda (i) (read-pnm (pnm-movie-frame-pathname pathname i))) (pnm-movie-length pathname)))) (define (write-pnm-movie pnm-movie pathname) (for-each-indexed (lambda (pnm i) (write-pnm pnm (pnm-movie-frame-pathname pathname i))) (vector->list pnm-movie))) (define (read-mpeg pathname) ;; needs work: To create unique temporary pathnames to avoid clashes between ;; multiple processes. (when (string=? pathname "-") (panic "Invalid pathname")) (system (format #f "rm -f ~a ~a" (tmp "QobiScheme.mpg") (tmp "QobiScheme_?????.ppm"))) (system (format #f "cp ~a ~a" (default-extension pathname "Mpeg1") (tmp "QobiScheme.mpg"))) (system (format #f "(cd ~a;mpeg_play -quality on -dither ppm -quiet QobiScheme.mpg)" *tmp*)) (let ((pnm-movie (read-pnm-movie (tmp "QobiScheme.ppm")))) (system (format #f "rm -f ~a ~a" (tmp "QobiScheme.mpg") (tmp "QobiScheme_?????.ppm"))) pnm-movie)) (define (write-mpeg pnm-movie pathname) ;; needs work: To create unique temporary pathnames to avoid clashes between ;; multiple processes. (when (string=? pathname "-") (panic "Invalid pathname")) (system (format #f "rm -f ~a ~a" (tmp "QobiScheme.param") (tmp "QobiScheme_?????.pnm"))) (call-with-output-file (tmp "QobiScheme.param") (lambda (port) (format port "PATTERN IBBPBBPBBPBBPBBP~%") (format port "OUTPUT ~a~%" (default-extension pathname "Mpeg1")) (format port "BASE_FILE_FORMAT PNM~%") (format port "INPUT_CONVERT *~%") (format port "GOP_SIZE 16~%") (format port "SLICES_PER_FRAME 1~%") (format port "INPUT_DIR ~a~%" *tmp*) (format port "INPUT~%") (format port "QobiScheme_*.pnm [00001-~a~s]~%" (let ((n (vector-length pnm-movie))) (cond ((< n 10) "0000") ((< n 100) "000") ((< n 1000) "00") ((< n 10000) "0") (else ""))) (vector-length pnm-movie)) (format port "END_INPUT~%") (format port "PIXEL HALF~%") (format port "RANGE 10~%") (format port "PSEARCH_ALG LOGARITHMIC~%") (format port "BSEARCH_ALG CROSS2~%") (format port "IQSCALE 8~%") (format port "PQSCALE 10~%") (format port "BQSCALE 25~%") (format port "REFERENCE_FRAME ORIGINAL~%") (format port "BIT_RATE 1000000~%") (format port "BUFFER_SIZE 327680~%") (format port "FRAME_RATE 30~%") (format port "FORCE_ENCODE_LAST_FRAME~%"))) (write-pnm-movie pnm-movie (tmp "QobiScheme.pnm")) (system (format #f "mpeg_encode ~a >/dev/null" (tmp "QobiScheme.param"))) (system (format #f "rm -f ~a ~a" (tmp "QobiScheme.param") (tmp "QobiScheme_?????.pnm")))) (define (clip-mpeg input-pathname output-pathname first-frame last-frame) ;; needs work: To create unique temporary pathnames to avoid clashes between ;; multiple processes. (when (or (string=? input-pathname "-") (string=? output-pathname "-")) (panic "Invalid pathname")) (system (format #f "rm -f ~a ~a" (tmp "QobiScheme.{mpg,param}") (tmp "QobiScheme_?????.ppm"))) (system (format #f "cp ~a ~a" (default-extension input-pathname "Mpeg1") (tmp "QobiScheme.mpg"))) (system (format #f "(cd ~a;mpeg_play -quality on -dither ppm -quiet QobiScheme.mpg)" *tmp*)) (call-with-output-file (tmp "QobiScheme.param") (lambda (port) (format port "PATTERN IBBPBBPBBPBBPBBP~%") (format port "OUTPUT ~a~%" (default-extension output-pathname "Mpeg1")) (format port "BASE_FILE_FORMAT PNM~%") (format port "INPUT_CONVERT *~%") (format port "GOP_SIZE 16~%") (format port "SLICES_PER_FRAME 1~%") (format port "INPUT_DIR ~a~%" *tmp*) (format port "INPUT~%") (format port "QobiScheme_*.ppm [~a~s-~a~s]~%" (cond ((< (+ first-frame 1) 10) "0000") ((< (+ first-frame 1) 100) "000") ((< (+ first-frame 1) 1000) "00") ((< (+ first-frame 1) 10000) "0") (else "")) (+ first-frame 1) (cond ((< (+ last-frame 1) 10) "0000") ((< (+ last-frame 1) 100) "000") ((< (+ last-frame 1) 1000) "00") ((< (+ last-frame 1) 10000) "0") (else "")) (+ last-frame 1)) (format port "END_INPUT~%") (format port "PIXEL HALF~%") (format port "RANGE 10~%") (format port "PSEARCH_ALG LOGARITHMIC~%") (format port "BSEARCH_ALG CROSS2~%") (format port "IQSCALE 8~%") (format port "PQSCALE 10~%") (format port "BQSCALE 25~%") (format port "REFERENCE_FRAME ORIGINAL~%") (format port "BIT_RATE 1000000~%") (format port "BUFFER_SIZE 327680~%") (format port "FRAME_RATE 30~%") (format port "FORCE_ENCODE_LAST_FRAME~%"))) (system (format #f "mpeg_encode ~a >/dev/null" (tmp "QobiScheme.param"))) (system (format #f "rm -f ~a ~a" (tmp "QobiScheme.{mpg,param}") (tmp "QobiScheme_?????.ppm")))) (define (ppm-hue ppm) (unless (ppm? ppm) (panic "Argument to PPM-HUE is not a PPM")) (make-pgm (ppm-raw? ppm) *max-hue* (map-vector (lambda (red-row green-row blue-row) (map-vector (lambda (red green blue) (vector-ref (rgb->hsv (vector red green blue)) 0)) red-row green-row blue-row)) (ppm-red ppm) (ppm-green ppm) (ppm-blue ppm)))) (define (ppm-saturation ppm) (unless (ppm? ppm) (panic "Argument to PPM-SATURATION is not a PPM")) (make-pgm (ppm-raw? ppm) *max-saturation* (map-vector (lambda (red-row green-row blue-row) (map-vector (lambda (red green blue) (vector-ref (rgb->hsv (vector red green blue)) 1)) red-row green-row blue-row)) (ppm-red ppm) (ppm-green ppm) (ppm-blue ppm)))) (define (ppm-value ppm) (unless (ppm? ppm) (panic "Argument to PPM-VALUE is not a PPM")) (make-pgm (ppm-raw? ppm) *max-value* (map-vector (lambda (red-row green-row blue-row) (map-vector (lambda (red green blue) (vector-ref (rgb->hsv (vector red green blue)) 2)) red-row green-row blue-row)) (ppm-red ppm) (ppm-green ppm) (ppm-blue ppm)))) (define (pbm-and pbm1 pbm2) (unless (and (pbm? pbm1) (pbm? pbm2) (eq? (pbm-raw? pbm1) (pbm-raw? pbm2)) (= (pnm-width pbm1) (pnm-width pbm2)) (= (pnm-height pbm1) (pnm-height pbm2))) (panic "Arguments to PBM-AND are not matching PBMs")) (make-pbm (pbm-raw? pbm1) (map-vector (lambda (row1 row2) (map-vector (lambda (bit1 bit2) (and bit1 bit2)) row1 row2)) (pbm-bitmap pbm1) (pbm-bitmap pbm2)))) (define (pbm-or pbm1 pbm2) (unless (and (pbm? pbm1) (pbm? pbm2) (eq? (pbm-raw? pbm1) (pbm-raw? pbm2)) (= (pnm-width pbm1) (pnm-width pbm2)) (= (pnm-height pbm1) (pnm-height pbm2))) (panic "Arguments to PBM-OR are not matching PBMs")) (make-pbm (pbm-raw? pbm1) (map-vector (lambda (row1 row2) (map-vector (lambda (bit1 bit2) (or bit1 bit2)) row1 row2)) (pbm-bitmap pbm1) (pbm-bitmap pbm2)))) (define (pbm-not pbm) (unless (pbm? pbm) (panic "Argument to PBM-NOT is not a PBM")) (make-pbm (pbm-raw? pbm) (map-vector (lambda (row) (map-vector not row)) (pbm-bitmap pbm)))) (define (pbm-xor pbm1 pbm2) (unless (and (pbm? pbm1) (pbm? pbm2) (eq? (pbm-raw? pbm1) (pbm-raw? pbm2)) (= (pnm-width pbm1) (pnm-width pbm2)) (= (pnm-height pbm1) (pnm-height pbm2))) (panic "Arguments to PBM-XOR are not matching PBMs")) (make-pbm (pbm-raw? pbm1) (map-vector (lambda (row1 row2) (map-vector (lambda (bit1 bit2) (xor bit1 bit2)) row1 row2)) (pbm-bitmap pbm1) (pbm-bitmap pbm2)))) (define (pgm-absolute-difference pgm1 pgm2) (unless (and (pgm? pgm1) (pgm? pgm2) (= (pgm-maxval pgm1) (pgm-maxval pgm2)) (eq? (pgm-raw? pgm1) (pgm-raw? pgm2)) (= (pnm-width pgm1) (pnm-width pgm2)) (= (pnm-height pgm1) (pnm-height pgm2))) (panic "Arguments to PGM-ABSOLUTE-DIFFERENCE are not matching PGMs")) (make-pgm (pgm-raw? pgm1) (pgm-maxval pgm1) (map-vector (lambda (row1 row2) (map-vector (lambda (e1 e2) (abs (- e1 e2))) row1 row2)) (pgm-grey pgm1) (pgm-grey pgm2)))) (define (empty-pnm? pnm) (cond ((ppm? pnm) (and (every-vector (lambda (row) (every-vector zero? row)) (ppm-red pnm)) (every-vector (lambda (row) (every-vector zero? row)) (ppm-green pnm)) (every-vector (lambda (row) (every-vector zero? row)) (ppm-blue pnm)))) ((pgm? pnm) (every-vector (lambda (row) (every-vector zero? row)) (pgm-grey pnm))) ((pbm? pnm) (not (some-vector (lambda (row) (some-vector identity row)) (pbm-bitmap pnm)))) (else (panic "Argument to EMPTY-PNM? is not a PNM")))) (define (pbm->pgm pbm) (unless (pbm? pbm) (panic "Argument to PBM->PGM is not a PBM")) (make-pgm (pbm-raw? pbm) *max-grey* (map-vector (lambda (row) (map-vector (lambda (bit) (if bit *max-grey* 0)) row)) (pbm-bitmap pbm)))) (define (pgm->ppm pgm) (unless (pgm? pgm) (panic "Argument to PGM->PPM is not a PGM")) (make-ppm (pgm-raw? pgm) (pgm-maxval pgm) (pgm-grey pgm) (pgm-grey pgm) (pgm-grey pgm))) (define (pbm->ppm pbm) (pgm->ppm (pbm->pgm pbm))) (define (ppm->pgm ppm) (unless (ppm? ppm) (panic "Argument to PPM->PGM is not a PPM")) (make-pgm (ppm-raw? ppm) (ppm-maxval ppm) (map-vector (lambda (red-row green-row blue-row) (map-vector (lambda (red green blue) (inexact->exact (floor (+ (* 0.299 red) (* 0.587 green) (* 0.114 blue))))) red-row green-row blue-row)) (ppm-red ppm) (ppm-green ppm) (ppm-blue ppm)))) (define (pgm->pbm pgm threshold) (unless (pgm? pgm) (panic "Argument to PGM->PBM is not a PGM")) (make-pbm (pgm-raw? pgm) (map-vector (lambda (row) (map-vector (lambda (grey) (>= grey threshold)) row)) (pgm-grey pgm)))) (define (ppm->pbm ppm threshold) (pgm->pbm (ppm->pgm ppm) threshold)) (define (pbm-constant width height bit) (make-pbm #t (make-matrix height width bit))) (define (pgm-constant width height grey) (make-pgm #t *max-grey* (make-matrix height width grey))) (define (ppm-constant width height red green blue) (make-ppm #t (max *max-red* *max-green* *max-blue*) (make-matrix height width red) (make-matrix height width green) (make-matrix height width blue))) (define (pbm-left-vertical-stripe width height left) ;; Creates a black (#F) stripe on a white (#T) background. (let ((m (make-matrix height width #t))) (do ((y 0 (+ y 1))) ((= y height)) (do ((x 0 (+ x 1))) ((= x left)) (matrix-set! m y x #f))) (make-pbm #t m))) (define (overlay-pbm-on-pnm pbm pnm) ;; The white (#T) pixels in the pbm become white in the result. (unless (and (pbm? pbm) (or (pbm? pnm) (pgm? pnm) (ppm? pnm)) (eq? (pbm-raw? pbm) (pbm-raw? pnm)) (= (pnm-width pbm) (pnm-width pnm)) (= (pnm-height pbm) (pnm-height pnm))) (panic "Arguments to OVERLAY-PBM-ON-PNM are not a matching PBM and PNM")) (cond ((ppm? pnm) (make-ppm (pbm-raw? pbm) (max *max-red* *max-green* *max-blue*) (map-vector (lambda (bitmap-row red-row) (map-vector (lambda (bit red) (if bit *max-red* red)) bitmap-row red-row)) (pbm-bitmap pbm) (ppm-red pnm)) (map-vector (lambda (bitmap-row green-row) (map-vector (lambda (bit green) (if bit *max-green* green)) bitmap-row green-row)) (pbm-bitmap pbm) (ppm-green pnm)) (map-vector (lambda (bitmap-row blue-row) (map-vector (lambda (bit blue) (if bit *max-blue* blue)) bitmap-row blue-row)) (pbm-bitmap pbm) (ppm-blue pnm)))) ((pgm? pnm) (make-pgm (pbm-raw? pbm) *max-grey* (map-vector (lambda (bitmap-row grey-row) (map-vector (lambda (bit grey) (if bit *max-grey* grey)) bitmap-row grey-row)) (pbm-bitmap pbm) (pgm-grey pnm)))) ((pbm? pnm) (pbm-or pbm pnm)) (else (fuck-up)))) (define (pgm-smooth pgm sigma) (unless (pgm? pgm) (panic "Argument to PGM-SMOOTH is not a PGM")) (let* ((height (pnm-height pgm)) (width (pnm-width pgm)) (grey1 (pgm-grey pgm)) (grey2 (make-matrix height width 0))) (do ((y sigma (+ y 1))) ((= y (- height sigma))) (do ((x sigma (+ x 1))) ((= x (- width sigma))) (do ((i (- y sigma) (+ i 1))) ((= i (+ y sigma 1))) (do ((j (- x sigma) (+ j 1))) ((= j (+ x sigma 1))) (matrix-set! grey2 y x (+ (matrix-ref grey2 y x) (matrix-ref grey1 i j))))) (matrix-set! grey2 y x (inexact->exact (floor (/ (matrix-ref grey2 y x) (sqr (+ sigma sigma 1)))))))) (make-pgm (pgm-raw? pgm) *max-grey* grey2))) (define (normal-flow-magnitude pgm1 pgm2 epsilon sigma sensitivity) (unless (and (pgm? pgm1) (pgm? pgm2) (= (pgm-maxval pgm1) (pgm-maxval pgm2)) (eq? (pgm-raw? pgm1) (pgm-raw? pgm2)) (= (pnm-width pgm1) (pnm-width pgm2)) (= (pnm-height pgm1) (pnm-height pgm2))) (panic "Arguments to NORMAL-FLOW-MAGNITUDE are not matching PGMs")) (let* ((width (pnm-width pgm1)) (height (pnm-height pgm1)) (e1 (pgm-grey (pgm-smooth pgm1 sigma))) (e2 (pgm-grey (pgm-smooth pgm2 sigma))) (m (make-matrix height width 0))) (do ((i 0 (+ i 1))) ((= i (- height 1))) (do ((j 0 (+ j 1))) ((= j (- width 1))) (let* ((ex (/ (- (+ (matrix-ref e1 (+ i 1) j) (matrix-ref e1 (+ i 1) (+ j 1)) (matrix-ref e2 (+ i 1) j) (matrix-ref e2 (+ i 1) (+ j 1))) (+ (matrix-ref e1 i j) (matrix-ref e1 i (+ j 1)) (matrix-ref e2 i j) (matrix-ref e2 i (+ j 1)))) 4.0)) (ey (/ (- (+ (matrix-ref e1 i (+ j 1)) (matrix-ref e1 (+ i 1) (+ j 1)) (matrix-ref e2 i (+ j 1)) (matrix-ref e2 (+ i 1) (+ j 1))) (+ (matrix-ref e1 i j) (matrix-ref e1 (+ i 1) j) (matrix-ref e2 i j) (matrix-ref e2 (+ i 1) j))) 4.0)) (et (/ (- (+ (matrix-ref e2 i j) (matrix-ref e2 i (+ j 1)) (matrix-ref e2 (+ i 1) j) (matrix-ref e2 (+ i 1) (+ j 1))) (+ (matrix-ref e1 i j) (matrix-ref e1 i (+ j 1)) (matrix-ref e1 (+ i 1) j) (matrix-ref e1 (+ i 1) (+ j 1)))) 4.0)) (l (sqrt (+ (sqr ex) (sqr ey))))) (matrix-set! m i j (min *max-grey* (inexact->exact (floor (* *max-grey* (/ (if (< l epsilon) 0.0 (/ (abs et) l)) sensitivity))))))))) (pgm-smooth (make-pgm (pgm-raw? pgm1) *max-grey* m) sigma))) (define (threshold-normal-flow-magnitude pgm1 pgm2 epsilon sigma threshold) ;; The moving pixels become white (#T) in the result. (unless (and (pgm? pgm1) (pgm? pgm2) (= (pgm-maxval pgm1) (pgm-maxval pgm2)) (eq? (pgm-raw? pgm1) (pgm-raw? pgm2)) (= (pnm-width pgm1) (pnm-width pgm2)) (= (pnm-height pgm1) (pnm-height pgm2))) (panic "Arguments to THRESHOLD-NORMAL-FLOW-MAGNITUDE are not matching PGMs")) (let* ((width (pnm-width pgm1)) (height (pnm-height pgm1)) (e1 (pgm-grey (pgm-smooth pgm1 sigma))) (e2 (pgm-grey (pgm-smooth pgm2 sigma))) (m (make-matrix height width #f))) (do ((i 0 (+ i 1))) ((= i (- height 1))) (do ((j 0 (+ j 1))) ((= j (- width 1))) (let* ((ex (/ (- (+ (matrix-ref e1 (+ i 1) j) (matrix-ref e1 (+ i 1) (+ j 1)) (matrix-ref e2 (+ i 1) j) (matrix-ref e2 (+ i 1) (+ j 1))) (+ (matrix-ref e1 i j) (matrix-ref e1 i (+ j 1)) (matrix-ref e2 i j) (matrix-ref e2 i (+ j 1)))) 4.0)) (ey (/ (- (+ (matrix-ref e1 i (+ j 1)) (matrix-ref e1 (+ i 1) (+ j 1)) (matrix-ref e2 i (+ j 1)) (matrix-ref e2 (+ i 1) (+ j 1))) (+ (matrix-ref e1 i j) (matrix-ref e1 (+ i 1) j) (matrix-ref e2 i j) (matrix-ref e2 (+ i 1) j))) 4.0)) (et (/ (- (+ (matrix-ref e2 i j) (matrix-ref e2 i (+ j 1)) (matrix-ref e2 (+ i 1) j) (matrix-ref e2 (+ i 1) (+ j 1))) (+ (matrix-ref e1 i j) (matrix-ref e1 i (+ j 1)) (matrix-ref e1 (+ i 1) j) (matrix-ref e1 (+ i 1) (+ j 1)))) 4.0)) (l (sqrt (+ (sqr ex) (sqr ey))))) (matrix-set! m i j (and (>= l epsilon) (>= (/ (abs et) l) threshold)))))) (make-pbm (pgm-raw? pgm1) m))) (define (pbm-proximity-clusterer pbm threshold) ;; Clusters white (#T) pixels. (unless (pbm? pbm) (fuck-up)) (let* ((width (pnm-width pbm)) (height (pnm-height pbm)) (m (map-vector (lambda (row) (map-vector identity row)) (pbm-bitmap pbm))) (i -1) (threshold-squared (sqr threshold))) (do ((y 0 (+ y 1))) ((= y height)) (do ((x 0 (+ x 1))) ((= x width)) (when (eq? (matrix-ref m y x) #t) (matrix-set! m y x i) (let loop () (let ((again? #f)) (do ((y1 0 (+ y1 1))) ((= y1 height)) (do ((x1 0 (+ x1 1))) ((= x1 width)) (when (eqv? (matrix-ref m y1 x1) i) (do ((y2 (max 0 (- y1 threshold)) (+ y2 1))) ((= y2 (min height (+ y1 threshold 1)))) (do ((x2 (max 0 (- x1 threshold)) (+ x2 1))) ((= x2 (min width (+ x1 threshold 1)))) (when (and (<= (+ (sqr (- x1 x2)) (sqr (- y1 y2))) threshold-squared) (eq? (matrix-ref m y2 x2) #t)) (matrix-set! m y2 x2 i) (set! again? #t))))))) (when again? (loop)))) (set! i (- i 1))))) (let ((clusters (make-vector (- (- i) 1) '()))) (do ((y 0 (+ y 1))) ((= y height)) (do ((x 0 (+ x 1))) ((= x width)) (let ((i (matrix-ref m y x))) (when i (vector-set! clusters (- (- i) 1) (cons (vector x y) (vector-ref clusters (- (- i) 1)))))))) (vector->list clusters)))) (define (pbm-bloat pbm n) ;; Bloats white (#T) pixels. (let* ((height (pnm-height pbm)) (width (pnm-width pbm)) (bitmap (pbm-bitmap pbm)) (new (make-matrix height width #f))) (do ((y 0 (+ y 1))) ((>= y height)) (do ((x 0 (+ x 1))) ((>= x width)) (do ((y0 (- y n) (+ y0 1))) ((> y0 (+ y n))) (when (and (>= y0 0) (< y0 height)) (do ((x0 (- x n) (+ x0 1))) ((> x0 (+ x n))) (when (and (>= x0 0) (< x0 width) (matrix-ref bitmap y0 x0)) (matrix-set! new y x #t))))))) (make-pbm (pbm-raw? pbm) new))) (define (pnm-shift pnm delta) (cond ((ppm? pnm) (let* ((height (pnm-height pnm)) (width (pnm-width pnm)) (red (ppm-red pnm)) (green (ppm-green pnm)) (blue (ppm-blue pnm)) (new-red (make-matrix height width 0)) (new-green (make-matrix height width 0)) (new-blue (make-matrix height width 0)) (dy (y delta)) (dx (x delta))) (do ((y 0 (+ y 1))) ((>= y height)) (when (and (>= (- y dy) 0) (< (- y dy) height)) (do ((x 0 (+ x 1))) ((>= x width)) (when (and (>= (- x dx) 0) (< (- x dx) width)) (matrix-set! new-red y x (matrix-ref red (- y dy) (- x dx))) (matrix-set! new-green y x (matrix-ref green (- y dy) (- x dx))) (matrix-set! new-blue y x (matrix-ref blue (- y dy) (- x dx))))))) (make-ppm (ppm-raw? pnm) (ppm-maxval pnm) new-red new-green new-blue))) ((pgm? pnm) (let* ((height (pnm-height pnm)) (width (pnm-width pnm)) (grey (pgm-grey pnm)) (new-grey (make-matrix height width 0)) (dy (y delta)) (dx (x delta))) (do ((y 0 (+ y 1))) ((>= y height)) (when (and (>= (- y dy) 0) (< (- y dy) height)) (do ((x 0 (+ x 1))) ((>= x width)) (when (and (>= (- x dx) 0) (< (- x dx) width)) (matrix-set! new-grey y x (matrix-ref grey (- y dy) (- x dx))))))) (make-pgm (pgm-raw? pnm) (pgm-maxval pnm) new-grey))) ((pbm? pnm) (let* ((height (pnm-height pnm)) (width (pnm-width pnm)) (bitmap (pbm-bitmap pnm)) (new-bitmap (make-matrix height width #f)) (dy (y delta)) (dx (x delta))) (do ((y 0 (+ y 1))) ((>= y height)) (when (and (>= (- y dy) 0) (< (- y dy) height)) (do ((x 0 (+ x 1))) ((>= x width)) (when (and (>= (- x dx) 0) (< (- x dx) width)) (matrix-set! new-bitmap y x (matrix-ref bitmap (- y dy) (- x dx))))))) (make-pbm (pbm-raw? pnm) new-bitmap))) (else (panic "Argument is not a PNM")))) (define (pnm-copy pnm) (cond ((ppm? pnm) (make-ppm (ppm-raw? pnm) (ppm-maxval pnm) (matrix-copy (ppm-red pnm)) (matrix-copy (ppm-green pnm)) (matrix-copy (ppm-blue pnm)))) ((pgm? pnm) (make-pgm (pgm-raw? pnm) (pgm-maxval pnm) (matrix-copy (pgm-grey pnm)))) ((pbm? pnm) (make-pbm (pbm-raw? pnm) (matrix-copy (pbm-bitmap pnm)))) (else (panic "Argument is not a PNM")))) (define (pnm-black-window pnm upper-left lower-right) (cond ((ppm? pnm) (let* ((ppm (pnm-copy pnm)) (red (ppm-red ppm)) (green (ppm-green ppm)) (blue (ppm-blue ppm)) (yl (y upper-left)) (yh (y lower-right)) (xl (x upper-left)) (xh (x lower-right)) (height (pnm-height ppm)) (width (pnm-width ppm))) (do ((y 0 (+ y 1))) ((>= y height)) (do ((x 0 (+ x 1))) ((>= x width)) (unless (and (>= y yl) (< y yh) (>= x xl) (< x xh)) (matrix-set! red y x 0) (matrix-set! green y x 0) (matrix-set! blue y x 0)))) ppm)) ((pgm? pnm) (let* ((pgm (pnm-copy pnm)) (grey (pgm-grey pgm)) (yl (y upper-left)) (yh (y lower-right)) (xl (x upper-left)) (xh (x lower-right)) (height (pnm-height pgm)) (width (pnm-width pgm))) (do ((y 0 (+ y 1))) ((>= y height)) (do ((x 0 (+ x 1))) ((>= x width)) (unless (and (>= y yl) (< y yh) (>= x xl) (< x xh)) (matrix-set! grey y x 0)))) pgm)) ((pbm? pnm) (let* ((pbm (pnm-copy pnm)) (bitmap (pbm-bitmap pbm)) (yl (y upper-left)) (yh (y lower-right)) (xl (x upper-left)) (xh (x lower-right)) (height (pnm-height pbm)) (width (pnm-width pbm))) (do ((y 0 (+ y 1))) ((>= y height)) (do ((x 0 (+ x 1))) ((>= x width)) (unless (and (>= y yl) (< y yh) (>= x xl) (< x xh)) (matrix-set! bitmap y x #f)))) pbm)) (else (panic "Argument is not a PNM")))) (define (pnm-white-window pnm upper-left lower-right) (cond ((ppm? pnm) (let* ((ppm (pnm-copy pnm)) (maxval (ppm-maxval ppm)) (red (ppm-red ppm)) (green (ppm-green ppm)) (blue (ppm-blue ppm)) (yl (y upper-left)) (yh (y lower-right)) (xl (x upper-left)) (xh (x lower-right)) (height (pnm-height ppm)) (width (pnm-width ppm))) (do ((y 0 (+ y 1))) ((>= y height)) (do ((x 0 (+ x 1))) ((>= x width)) (unless (and (>= y yl) (< y yh) (>= x xl) (< x xh)) (matrix-set! red y x maxval) (matrix-set! green y x maxval) (matrix-set! blue y x maxval)))) ppm)) ((pgm? pnm) (let* ((pgm (pnm-copy pnm)) (maxval (pgm-maxval pgm)) (grey (pgm-grey pgm)) (yl (y upper-left)) (yh (y lower-right)) (xl (x upper-left)) (xh (x lower-right)) (height (pnm-height pgm)) (width (pnm-width pgm))) (do ((y 0 (+ y 1))) ((>= y height)) (do ((x 0 (+ x 1))) ((>= x width)) (unless (and (>= y yl) (< y yh) (>= x xl) (< x xh)) (matrix-set! grey y x maxval)))) pgm)) ((pbm? pnm) (let* ((pbm (pnm-copy pnm)) (bitmap (pbm-bitmap pbm)) (yl (y upper-left)) (yh (y lower-right)) (xl (x upper-left)) (xh (x lower-right)) (height (pnm-height pbm)) (width (pnm-width pbm))) (do ((y 0 (+ y 1))) ((>= y height)) (do ((x 0 (+ x 1))) ((>= x width)) (unless (and (>= y yl) (< y yh) (>= x xl) (< x xh)) (matrix-set! bitmap y x #t)))) pbm)) (else (panic "Argument is not a PNM")))) (define (points->pbm-of-size points height width) ;; Takes a list of what will be the white (#T) points in the pbm image. (let ((bitmap (make-matrix height width #f))) (for-each (lambda (point) (matrix-set! bitmap (y point) (x point) #t)) points) (make-pbm #t bitmap))) (define (pbm-ppm-and pbm ppm) ;; White (#T) pixels in the PBM are kept from the PPM. Black (#F) pixels in ;; the PBM become white in the result. (unless (and (pbm? pbm) (ppm? ppm) (= (pnm-width pbm) (pnm-width ppm)) (= (pnm-height pbm) (pnm-height ppm))) (panic "Arguments to PBM-AND are not matching PBMs")) (make-ppm (ppm-raw? ppm) (ppm-maxval ppm) (map-vector (lambda (row red) (map-vector (lambda (bit red) (if bit red *max-red*)) row red)) (pbm-bitmap pbm) (ppm-red ppm)) (map-vector (lambda (row green) (map-vector (lambda (bit green) (if bit green *max-green*)) row green)) (pbm-bitmap pbm) (ppm-green ppm)) (map-vector (lambda (row blue) (map-vector (lambda (bit blue) (if bit blue *max-blue*)) row blue)) (pbm-bitmap pbm) (ppm-blue ppm)))) (define (pnm-rotate pnm) (cond ((pbm? pnm) (make-pbm (pbm-raw? pnm) (transpose (pbm-bitmap pnm)))) ((pgm? pnm) (make-pgm (pgm-raw? pnm) (pgm-maxval pnm) (transpose (pgm-grey pnm)))) ((ppm? pnm) (make-ppm (ppm-raw? pnm) (ppm-maxval pnm) (transpose (ppm-red pnm)) (transpose (ppm-green pnm)) (transpose (ppm-blue pnm)))) (else (panic "Argument is not a PNM")))) (define (pnm-flip pnm) (cond ((pbm? pnm) (make-pbm (pbm-raw? pnm) (list->vector (reverse (vector->list (pbm-bitmap pnm)))))) ((pgm? pnm) (make-pgm (pgm-raw? pnm) (pgm-maxval pnm) (list->vector (reverse (vector->list (pgm-grey pnm)))))) ((ppm? pnm) (make-ppm (ppm-raw? pnm) (ppm-maxval pnm) (list->vector (reverse (vector->list (ppm-red pnm)))) (list->vector (reverse (vector->list (ppm-green pnm)))) (list->vector (reverse (vector->list (ppm-blue pnm)))))) (else (panic "Argument is not a PNM")))) ;;; An API to libjpeg.a and the UCB mpeg_encode and mpeg_play programs. (define c-open-video-input-file ;; changed (foreign-procedure (char* int) void* "open_video_input_file")) (define c-read-video ;; changed (foreign-procedure (void*) int "read_video")) (define c-get-video-width ;; changed (foreign-procedure (void*) int "get_video_width")) (define c-get-video-height ;; changed (foreign-procedure (void*) int "get_video_height")) (define c-get-video-red ;; changed: used to return unsigned (foreign-procedure (void* int int) int "get_video_red")) (define c-get-video-green ;; changed: used to return unsigned (foreign-procedure (void* int int) int "get_video_green")) (define c-get-video-blue ;; changed: used to return unsigned (foreign-procedure (void* int int) int "get_video_blue")) (define c-close-video-input-port ;; changed (foreign-procedure (void*) void "close_video_input_port")) (define (video-type-enum video-type) (cond ((string=? video-type "Jpeg") 0) ((string=? video-type "Mpeg1") 1) (else (panic "Unrecognized video type")))) (define (open-video-input-file pathname video-type) ;; needs work: Move error checking to here. (when (string=? pathname "-") (panic "Invalid pathname")) (c-open-video-input-file (default-extension pathname video-type) (video-type-enum video-type))) (define (get-video-width video-input-port) (c-get-video-width video-input-port)) (define (get-video-height video-input-port) (c-get-video-height video-input-port)) (define (read-ppm-from-video-input-port video-input-port) (if (zero? (c-read-video video-input-port)) ;; needs work: This should return an EOF object. #f (let* ((width (c-get-video-width video-input-port)) (height (c-get-video-height video-input-port)) (red (make-matrix height width)) (green (make-matrix height width)) (blue (make-matrix height width))) (do ((y 0 (+ y 1))) ((= y height)) (do ((x 0 (+ x 1))) ((= x width)) (matrix-set! red y x (c-get-video-red video-input-port y x)) (matrix-set! green y x (c-get-video-green video-input-port y x)) (matrix-set! blue y x (c-get-video-blue video-input-port y x)))) (make-ppm #t 255 red green blue)))) (define (read-pixmap-from-video-input-port video-input-port) (let ((ppm (read-ppm-from-video-input-port video-input-port))) (if ppm (pnm->pixmap ppm) ;; needs work: This should return an EOF object. #f))) (define (close-video-input-port video-input-port) ;; changed (c-close-video-input-port video-input-port)) (define (call-with-video-input-file pathname video-type procedure) (let* ((video-input-port (open-video-input-file pathname video-type)) (result (procedure video-input-port))) (close-video-input-port video-input-port) result)) (define (video-file-length pathname video-type) (call-with-video-input-file pathname video-type (lambda (video-input-port) (let loop ((i 0)) (if (read-ppm-from-video-input-port video-input-port) (loop (+ i 1)) i))))) (define (video-file-frame->ppm pathname video-type frame) (call-with-video-input-file pathname video-type (lambda (video-input-port) (for-each-n (lambda (i) (read-ppm-from-video-input-port video-input-port)) frame) (read-ppm-from-video-input-port video-input-port)))) (define (video-file-frame->pixmap pathname video-type frame) (call-with-video-input-file pathname video-type (lambda (video-input-port) (for-each-n (lambda (i) (read-ppm-from-video-input-port video-input-port)) frame) (read-pixmap-from-video-input-port video-input-port)))) (define (video-file->pnm-movie pathname video-type) (call-with-video-input-file pathname video-type (lambda (video-input-port) (let loop ((pnm-movie '())) (let ((ppm (read-ppm-from-video-input-port video-input-port))) (if ppm (loop (cons ppm pnm-movie)) (list->vector (reverse pnm-movie)))))))) (define (video-file->pixmaps pathname video-type) (call-with-video-input-file pathname video-type (lambda (video-input-port) (let loop ((pixmaps '())) (let ((pixmap (read-pixmap-from-video-input-port video-input-port))) (if pixmap (loop (cons pixmap pixmaps)) (list->vector (reverse pixmaps)))))))) (define c-open-video-output-file ;; changed (foreign-procedure (char* int int) void* "open_video_output_file")) (define c-begin-video-frame ;; changed (foreign-procedure (int int int) void "begin_video_frame")) (define c-put-video-red ;; changed (foreign-procedure (int int int) void "put_video_red")) (define c-put-video-green ;; changed (foreign-procedure (int int int) void "put_video_green")) (define c-put-video-blue ;; changed (foreign-procedure (int int int) void "put_video_blue")) (define c-end-video-frame ;; changed (foreign-procedure () void "end_video_frame")) (define c-close-video-output-port ;; changed (foreign-procedure (void*) void "close_video_output_port")) (define (open-video-output-file pathname video-type frames) ;; needs work: Move error checking to here. (when (string=? pathname "-") (panic "Invalid pathname")) (c-open-video-output-file (default-extension pathname video-type) (video-type-enum video-type) frames)) (define (write-pnm-to-video-output-port pnm video-output-port) (define (write-ppm-to-video-output-port ppm) (let ((width (pnm-width ppm)) (height (pnm-height ppm)) (red (ppm-red ppm)) (green (ppm-green ppm)) (blue (ppm-blue ppm))) (c-begin-video-frame width height (ppm-maxval ppm)) (do ((y 0 (+ y 1))) ((= y height)) (do ((x 0 (+ x 1))) ((= x width)) (c-put-video-red y x (matrix-ref red y x)) (c-put-video-green y x (matrix-ref green y x)) (c-put-video-blue y x (matrix-ref blue y x))))) ;; changed (c-end-video-frame)) (cond ((ppm? pnm) (write-ppm-to-video-output-port pnm)) ((pgm? pnm) (write-ppm-to-video-output-port (pgm->ppm pnm))) ((pbm? pnm) (write-ppm-to-video-output-port (pbm->ppm pnm))) (else (fuck-up)))) (define (close-video-output-port video-output-port) ;; changed (c-close-video-output-port video-output-port)) (define (call-with-video-output-file pathname video-type frames procedure) (let* ((video-output-port (open-video-output-file pathname video-type frames)) (result (procedure video-output-port))) (close-video-output-port video-output-port) result)) (define (pnm-movie->video-file pnm-movie pathname video-type) (call-with-video-output-file pathname video-type (vector-length pnm-movie) (lambda (video-output-port) (for-each-vector (lambda (pnm) (write-pnm-to-video-output-port pnm video-output-port)) pnm-movie)))) (define (map-adjacent-video-file input-pathname input-video-type output-pathname output-video-type processor) (let ((frames (video-file-length input-pathname (extension input-pathname)))) (call-with-video-input-file input-pathname input-video-type (lambda (video-input-port) (call-with-video-output-file output-pathname output-video-type (- frames 1) (lambda (video-output-port) (let loop ((last-ppm #f)) (let ((ppm (read-ppm-from-video-input-port video-input-port))) (when ppm (when last-ppm (write-pnm-to-video-output-port (processor last-ppm ppm) video-output-port)) (loop ppm)))))))))) (define (map-adjacent-video-file-to-object-file input-pathname input-video-type output-pathname processor) (let ((frames '())) (call-with-video-input-file input-pathname input-video-type (lambda (video-input-port) (let loop ((last-ppm #f)) (let ((ppm (read-ppm-from-video-input-port video-input-port))) (when ppm (when last-ppm (set! frames (cons (processor last-ppm ppm) frames))) (loop ppm)))))) (write-object-to-file (list->vector (reverse frames)) output-pathname))) ;;; Multivariate Nonlinear Optimization (define *itmax-powell* 200) (define *itmax-brent* 100) (define *tol* 2.0e-4) (define *glimit* 100.0) (define *tiny* 1.0e-20) (define *zeps* 1.0e-10) (define (brent ax bx cx f tol k) (define (sign x y) (if (positive? y) (abs x) (- (abs x)))) (let* ((cgold 0.3819660) (d #f) ;needs work: type pollution (e 0.0) (foo (f bx))) (let loop ((a (min ax cx)) (b (max ax cx)) (v bx) (fv foo) (w bx) (fw foo) (x bx) (fx foo) (iter 0)) (when (= iter *itmax-brent*) (panic "Too many iterations in BRENT")) (let* ((xm (* 0.5 (+ a b))) (tol1 (+ (* tol (abs x)) *zeps*)) (tol2 (* 2.0 tol1))) (cond ((<= (abs (- x xm)) (- tol2 (* 0.5 (- b a)))) (k fx x)) (else (cond ((> (abs e) tol1) (let* ((r (* (- x w) (- fx fv))) (q (* (- x v) (- fx fw))) (p (- (* (- x v) q) (* (- x w) r))) (q (* 2.0 (- q r))) (p (if (positive? q) (- p) p)) (q (abs q)) (etemp e)) (cond ((or (>= (abs p) (abs (* 0.5 q etemp))) (<= p (* q (- a x))) (> p (* q (- b x)))) (set! e (if (>= x xm) (- a x) (- b x))) (set! d (* cgold e))) (else (set! e d) (set! d (/ p q)) (let ((u (+ x d))) (when (or (< (- u a) tol2) (< (- b u) tol2)) (set! d (sign tol1 (- xm x))))))))) (else (set! e (if (>= x xm) (- a x) (- b x))) (set! d (* cgold e)))) (let* ((u (if (>= (abs d) tol1) (+ x d) (+ x (sign tol1 d)))) (fu (f u))) (if (<= fu fx) (if (>= u x) (loop x b w fw x fx u fu (+ iter 1)) (loop a x w fw x fx u fu (+ iter 1))) (if (< u x) (cond ((or (<= fu fw) (= w x)) (loop u b w fw u fu x fx (+ iter 1))) ((or (<= fu fv) (= v x) (= v w)) (loop u b u fu w fw x fx (+ iter 1))) (else (loop u b v fv w fw x fx (+ iter 1)))) (cond ((or (<= fu fw) (= w x)) (loop a u w fw u fu x fx (+ iter 1))) ((or (<= fu fv) (= v x) (= v w)) (loop a u u fu w fw x fx (+ iter 1))) (else (loop a u v fv w fw x fx (+ iter 1))))))))))))) (define (mnbrak ax bx func k) (define (sign x y) (if (positive? y) (abs x) (- (abs x)))) (let ((gold 1.61803399)) (define (loop ax fa bx fb cx fc) (if (< fb fc) (k ax fa bx fb cx fc) (let* ((r (* (- bx ax) (- fb fc))) (q (* (- bx cx) (- fb fa))) (u (- bx (/ (- (* (- bx cx) q) (* (- bx ax) r)) (* 2.0 (sign (max (abs (- q r)) *tiny*) (- q r)))))) (ulim (+ bx (* *glimit* (- cx bx))))) (if (positive? (* (- bx u) (- u cx))) (let ((fu (func u))) (if (< fu fc) (k bx fb u fu cx fc) (if (> fu fb) (k ax fa bx fb u fu) (let ((vx (+ cx (* gold (- cx bx))))) (loop bx fb cx fc vx (func vx)))))) (if (positive? (* (- cx u) (- u ulim))) (let ((fu (func u))) (if (< fu fc) (let ((vx (+ u (* gold (- u cx))))) (loop cx fc u fu vx (func vx))) (loop bx fb cx fc u fu))) (if (negative? (* (- u ulim) (- ulim cx))) (let ((vx (+ cx (* gold (- cx bx))))) (loop bx fb cx fc vx (func vx))) (loop bx fb cx fc ulim (func ulim)))))))) (let ((fa (func ax)) (fb (func bx))) (if (> fb fa) (let ((vx (+ ax (* gold (- ax bx))))) (loop bx fb ax fa vx (func vx))) (let ((vx (+ bx (* gold (- bx ax))))) (loop ax fa bx fb vx (func vx))))))) (define (linmin p xi func) (let ((n (vector-length p))) (mnbrak 0.0 1.0 (lambda (x) (func (v+ p (k*v x xi)))) (lambda (ax fa xx fx bx fb) (brent ax xx bx (lambda (x) (func (v+ p (k*v x xi)))) *tol* (lambda (fret xmin) (do ((j 0 (+ j 1))) ((= j n)) (vector-set! xi j (* (vector-ref xi j) xmin)) (vector-set! p j (+ (vector-ref p j) (vector-ref xi j)))) fret)))))) (define (powell p xi ftol func) (let* ((n (vector-length p)) (pt (make-vector n)) (ptt (make-vector n)) (xit (make-vector n)) (fret (func p))) (do ((j 0 (+ j 1))) ((= j n)) (vector-set! pt j (vector-ref p j))) (let loop ((iter 0)) (let ((fp fret) (ibig 0) (del 0.0)) (do ((i 0 (+ i 1))) ((= i n)) (do ((j 0 (+ j 1))) ((= j n)) (vector-set! xit j (matrix-ref xi j i))) (let ((fptt fret)) (set! fret (linmin p xit func)) (when (> (abs (- fptt fret)) del) (set! del (abs (- fptt fret))) (set! ibig i)))) (cond ((<= (* 2.0 (abs (- fp fret))) (* ftol (+ (abs fp) (abs fret)))) fret) (else (when (= iter *itmax-powell*) (panic "Too many iterations in routine POWELL")) (do ((j 0 (+ j 1))) ((= j n)) (vector-set! ptt j (* 2.0 (- (vector-ref p j) (vector-ref pt j)))) (vector-set! xit j (- (vector-ref p j) (vector-ref pt j))) (vector-set! pt j (vector-ref p j))) (let ((fptt (func ptt))) (when (and (< fptt fp) (negative? (- (* 2.0 (+ (- fp (* 2.0 fret)) fptt) (sqr (- fp fret del))) (* del (sqr (- fp fptt)))))) (set! fret (linmin p xit func)) (do ((j 0 (+ j 1))) ((= j n)) (matrix-set! xi j ibig (vector-ref xit j)))) (loop (+ iter 1))))))))) ;;; EM Clusterer (define-structure model pi mu sigma log-pi sigma-inverse log-determinant-sigma) (define (log-likelihood x model) ;; note: This is missing a constant factor. (- (model-log-pi model) (* 0.5 (+ (model-log-determinant-sigma model) (dot (v- x (model-mu model)) (m*v (model-sigma-inverse model) (v- x (model-mu model)))))))) (define (e-step x models) ;; The constants are hardwired to be inexact for efficiency. (let ((z (map-vector (lambda (xi) ;; Compute for each model. (map-vector (lambda (model) (log-likelihood xi model)) models)) x))) ;; Normalize ownerships to sum to one. (let ((s (map-vector (lambda (zi) (reduce-vector add-exp zi minus-infinity)) z))) ;; Return log likelihood and ownerships matrix. (list (reduce-vector + s 0.0) (map-vector (lambda (zi) (map-vector exp zi)) (m- z (transpose (make-vector (matrix-columns z) s)))))))) (define (m-step x z clip) ;; The constants are hardwired to be inexact for efficiency. ;; Returns new set of models. (let* ((ii (vector-length x)) (kk (vector-length (vector-ref x 0)))) ;; For each model, optimize parameters. (map-n-vector (lambda (j) (let* ((zj (matrix-column-ref z j)) (zj-sum (reduce-vector + zj 0.0)) ;; Optimize values. (mu (k*v (/ zj-sum) (reduce-vector v+ (map-vector k*v zj x) (make-vector kk 0.0)))) (sigma (clip-eigenvalues (k*m (/ zj-sum) (reduce-vector m+ (map-vector (lambda (zij xi) (k*m zij (self-outer-product * (v- xi mu)))) zj x) (make-matrix kk kk 0.0))) clip))) (make-model (/ zj-sum ii) mu sigma (log (/ zj-sum ii)) (invert-matrix sigma) (log (determinant sigma))))) (matrix-columns z)))) (define (em x pi mu sigma clip em-kick-off-tolerance em-convergence-tolerance) (let ((jj (vector-length mu))) (let loop ((models (map-n-vector (lambda (j) (make-model (vector-ref pi j) (vector-ref mu j) (vector-ref sigma j) (log (vector-ref pi j)) (invert-matrix (vector-ref sigma j)) (log (determinant (vector-ref sigma j))))) jj)) (old-log-likelihood minus-infinity) (starting? #t)) (let ((log-likelihood-z (e-step x models))) (if (or (and starting? (> (first log-likelihood-z) old-log-likelihood)) (> (first log-likelihood-z) (+ old-log-likelihood em-convergence-tolerance))) (loop (m-step x (second log-likelihood-z) clip) (first log-likelihood-z) (and starting? (not (= jj 1)) (or (= old-log-likelihood minus-infinity) (< (first log-likelihood-z) (+ old-log-likelihood em-kick-off-tolerance))))) (list old-log-likelihood models)))))) (define (noise epsilon) (- (* 2.0 epsilon (random-real)) epsilon)) (define (initial-z ii jj) (map-n-vector (lambda (i) (let ((zi (map-n-vector (lambda (j) (+ (/ jj) (noise (/ jj)))) jj))) (k*v (/ (reduce-vector + zi 0.0)) zi))) ii)) (define (ems x clip em-kick-off-tolerance em-convergence-tolerance ems-convergence-tolerance) ;; needs work: type pollution (let loop ((jj 1) (old-log-likelihood-models (list minus-infinity #f))) (let* ((models (m-step x (initial-z (vector-length x) jj) clip)) (new-log-likelihood-models (em x (map-vector model-pi models) (map-vector model-mu models) (map-vector model-sigma models) clip em-kick-off-tolerance em-convergence-tolerance))) (if (or (and (not (= (first old-log-likelihood-models) minus-infinity)) (not (zero? (first old-log-likelihood-models))) (<= (/ (- (first new-log-likelihood-models) (first old-log-likelihood-models)) (abs (first old-log-likelihood-models))) ems-convergence-tolerance)) (some-vector (lambda (model1) (some-vector (lambda (model2) (and (not (eq? model1 model2)) (equal? (model-mu model1) (model-mu model2)) (equal? (model-sigma model1) (model-sigma model2)))) (second new-log-likelihood-models))) (second new-log-likelihood-models))) (second old-log-likelihood-models) (loop (+ jj 1) new-log-likelihood-models))))) (define (em-jj-clusterer x jj clip em-kick-off-tolerance em-convergence-tolerance) (let* ((models (m-step x (initial-z (vector-length x) jj) clip)) (z (second (e-step x (second (em x (map-vector model-pi models) (map-vector model-mu models) (map-vector model-sigma models) clip em-kick-off-tolerance em-convergence-tolerance))))) (clusters (map-n (lambda (i) (let ((zi (vector->list (vector-ref z i)))) (list i (positionv (reduce max zi minus-infinity) zi)))) (vector-length z)))) (map-n (lambda (j) (map (lambda (cluster) (vector-ref x (first cluster))) (remove-if-not (lambda (cluster) (= (second cluster) j)) clusters))) (vector-length (vector-ref z 0))))) (define (em-clusterer x clip em-kick-off-tolerance em-convergence-tolerance ems-convergence-tolerance) (let* ((z (second (e-step x (ems x clip em-kick-off-tolerance em-convergence-tolerance ems-convergence-tolerance)))) (clusters (map-n (lambda (i) (let ((zi (vector->list (vector-ref z i)))) (list i (positionv (reduce max zi minus-infinity) zi)))) (vector-length z)))) (map-n (lambda (j) (map (lambda (cluster) (vector-ref x (first cluster))) (remove-if-not (lambda (cluster) (= (second cluster) j)) clusters))) (vector-length (vector-ref z 0))))) ;;; CPU time procedures courtesy of James Rootham (define clock (foreign-procedure () int "clock" "time")) ;changed (define *clock-time* 0.0) (define *clock-in-time-out* #f) (define *start-time-out* 0.0) (define *time-out-time* 0.0) (define fix 0.0) (define bad #t) ;;; changed (define *clocks-per-second* ((primitive-procedure clocks-per-second))) ;;; This wraparound fix only works if you sample cpu time at least every 35 ;;; minutes when *CLOCKS-PER-SECOND* is 1000000. It is not as bad if ;;; *CLOCKS-PER-SECOND* is 100. (define (read-clock) (let ((time (clock))) (if (< time 0) (when bad (set! fix (+ fix (expt 2.0 32))) (set! bad #f)) (set! bad #t)) (/ (+ time fix) *clocks-per-second*))) (define (clock-reset) (read-clock) (set! *clock-time* 0.0) (set! *clock-in-time-out* #f) (set! *start-time-out* 0.0) (set! *time-out-time* 0.0)) (define (clock-sample) (if *clock-in-time-out* (- *clock-time* *time-out-time*) (let ((time (read-clock))) (set! *clock-time* time) (- *clock-time* *time-out-time*)))) (define (clock-time-out) (let ((time (read-clock))) (set! *start-time-out* time) (set! *clock-in-time-out* #t))) (define (clock-time-in) (set! *clock-in-time-out* #f) (let ((time (read-clock))) (set! *time-out-time* (- (+ *time-out-time* time) *start-time-out*)))) ;;; An API to C arrays courtesy of Richard Mann ;;; removed: The API to C arrays ;;; Sclim (define return (integer->char 13)) (define escape (integer->char 27)) (define delete (integer->char 127)) ;;; needs work: type pollution in all of the following (define *display* #f) (define *screen* #f) (define *root-window* #f) (define *button-width* #f) (define *button-height* #f) (define *background-color* "White") (define *foreground-color* "Black") (define *background* #f) (define *foreground* #f) (define *white-pixel* #f) (define *black-pixel* #f) (define *roman-font* #f) (define *bold-font* #f) (define *roman-height* #f) (define *bold-height* #f) (define *text-height* #f) (define *roman-baseline* #f) (define *bold-baseline* #f) (define *text-baseline* #f) (define *display-pane-width* #f) (define *display-pane-height* #f) (define *transcript-pane-height* #f) (define *echo-pane-height* #f) (define *who-line-height* #f) (define *status-pane-width* #f) (define *window* #f) (define *buttons* #f) (define *regions* #f) (define *display-pane* #f) (define *transcript-pane* #f) (define *echo-pane* #f) (define *status-pane* #f) (define *message-pane* #f) (define *thin-gc* #f) (define *thin-flipping-gc* #f) (define *medium-gc* #f) (define *medium-flipping-gc* #f) (define *thick-gc* #f) (define *thick-flipping-gc* #f) (define *dashed-gc* #f) (define *dashed-flipping-gc* #f) (define *roman-gc* #f) (define *bold-gc* #f) (define *bold-flipping-gc* #f) (define *light-gray* #f) (define *light-gray-gc* #f) (define *gray* #f) (define *gray-gc* #f) (define *red* #f) (define *red-gc* #f) (define *dark-red* #f) (define *dark-red-gc* #f) (define *green* #f) (define *green-gc* #f) (define *dark-green* #f) (define *dark-green-gc* #f) (define *blue* #f) (define *blue-gc* #f) (define *yellow* #f) (define *yellow-gc* #f) (define *violet* #f) (define *violet-gc* #f) (define *orange* #f) (define *orange-gc* #f) (define *dark-orange* #f) (define *dark-orange-gc* #f) (define *color-gc* #f) (define *window-methods* #f) (define *transcript* #f) (define *input* #f) (define *input-position* #f) (define *abort-button* #f) (define *abort-key* #f) (define *comtab* #f) (define *help-comtab* #f) (define *prefix* #f) (define *status* #f) (define *message* #f) (define *pause?* #f) (define *redraw-procedure* #f) (define *quit-continuation* #f) (define *abort-continuation* #f) (define *color-cube* #f) (define *reds* 4) (define *greens* 8) (define *blues* 4) (define *dither?* #t) (define *help?* #f) (define *help* #f) (define *first-help-line* 0) (define *clear-display-pane?* #f) (define *display-name* "") (define *roman-font-name* "9x15") (define *bold-font-name* "9x15bold") (define *window-position?* #f) (define *window-position-x* 0) (define *window-position-y* 0) (define *post-initialize-procedure* #f) (define (character->pretty-name character) (let ((i (char->integer character))) (cond ((= i 0) "C-@") ;also C-SPC ((= i 9) "TAB") ;also C-i ((= i 10) "LFD") ;also C-j ((= i 13) "RET") ;also C-m ((= i 27) "ESC") ;also C-[ ((= i 28) "C-\\") ((= i 29) "C-]") ((= i 30) "C-^") ((= i 31) "C-_") ;also C-/ ((= i 32) "SPC") ((= i 127) "DEL") ((= i 128) "M-C-@") ;also M-C-SPC ((= i 137) "M-TAB") ;also M-C-i ((= i 138) "M-LFD") ;also M-C-j ((= i 141) "M-RET") ;also M-C-m ((= i 155) "M-ESC") ;also M-C-[ ((= i 156) "M-C-\\") ((= i 157) "M-C-]") ((= i 158) "M-C-^") ((= i 159) "M-C-_") ;also M-C-/ ((= i 160) "M-SPC") ((= i 255) "M-DEL") (else (if (>= i 128) (let ((i (- i 128))) (if (< i 32) (format #f "M-C-~a" (integer->char (+ i 96))) (format #f "M-~a" (integer->char i)))) (if (< i 32) (format #f "C-~a" (integer->char (+ i 96))) (string character))))))) (define (prefix-string prefix) (if (null? (rest prefix)) (character->pretty-name (first prefix)) (format #f "~a ~a" (prefix-string (rest prefix)) (character->pretty-name (first prefix))))) (define (set-window-method! window event-type method) (set! *window-methods* (cons (cons (list window event-type) method) *window-methods*))) (define (send window event-type . &rest) (let ((x (assoc (list window event-type) *window-methods*))) (when x (apply (cdr x) &rest)))) (define (redraw-buttons) (for-each (lambda (button) (send button 'expose)) *buttons*) (xflush *display*)) (define (redraw-display-pane) (when *display-pane* (when *clear-display-pane?* (xclearwindow *display* *display-pane*)) (set! *regions* '()) (if *help?* (let* ((character-strings (map (lambda (help-entry) (if (list? (first help-entry)) (reduce (lambda (s t) (string-append s " " t)) (map character->pretty-name (first help-entry)) "") (character->pretty-name (first help-entry)))) (reverse *help*))) (n (+ (reduce max (map string-length character-strings) 0) 1))) (let loop ((character-strings character-strings) (documentation-strings (map second (reverse *help*))) (y (+ *text-height* 2)) (skip *first-help-line*)) (unless (null? character-strings) (if (zero? skip) (let ((line (format #f "~a~a~a" (first character-strings) (make-string (- n (string-length (first character-strings))) #\space) (first documentation-strings)))) (xdrawstring *display* *display-pane* *roman-gc* 5 (- y (+ *roman-baseline* 2)) line (string-length line)) (loop (rest character-strings) (rest documentation-strings) (+ y *text-height*) skip)) (loop (rest character-strings) (rest documentation-strings) y (- skip 1)))))) (*redraw-procedure*)) (xflush *display*))) (define (redraw-transcript-pane) (when *transcript-pane* (xclearwindow *display* *transcript-pane*) (let loop ((transcript *transcript*) (y (- *transcript-pane-height* 2))) (unless (null? transcript) (let* ((line (first transcript)) (text-height (if (eq? (first line) 'user) *roman-height* *bold-height*))) (when (>= y (- text-height 1)) (xdrawstring *display* *transcript-pane* (if (eq? (first line) 'user) *roman-gc* *bold-gc*) 5 (- y (if (eq? (first line) 'user) *roman-baseline* *bold-baseline*)) (second line) (string-length (second line))) (loop (rest transcript) (- y text-height)))))) (xflush *display*))) (define (redraw-echo-pane) (when *echo-pane* (xclearwindow *display* *echo-pane*) (let* ((n (quotient (- *display-pane-width* 10) (xtextwidth *roman-font* "m" (string-length "m")))) (m (max 0 (- *input-position* n))) (input (substring *input* m (string-length *input*))) (input (substring input 0 (min (string-length input) n)))) (xdrawstring *display* *echo-pane* *roman-gc* 5 (- *echo-pane-height* (+ *roman-baseline* 2)) input (string-length input)) (xdrawline *display* *echo-pane* *thin-gc* (+ 5 (xtextwidth *roman-font* *input* (- *input-position* m))) 2 (+ 5 (xtextwidth *roman-font* *input* (- *input-position* m))) (- *echo-pane-height* 3))) (xflush *display*))) (define (redraw-status-pane) (when *status-pane* (xclearwindow *display* *status-pane*) (xdrawstring *display* *status-pane* *roman-gc* (quotient (- *status-pane-width* (xtextwidth *roman-font* *status* (string-length *status*))) 2) (- *who-line-height* (+ *roman-baseline* 2)) *status* (string-length *status*)) (xflush *display*))) (define (redraw-message-pane) (when *message-pane* (xclearwindow *display* *message-pane*) (if (null? *prefix*) (xdrawstring *display* *message-pane* *roman-gc* 5 (- *who-line-height* (+ *roman-baseline* 2)) *message* (string-length *message*)) (let ((string (prefix-string *prefix*))) (xdrawstring *display* *message-pane* *roman-gc* 5 (- *who-line-height* (+ *roman-baseline* 2)) string (string-length string)))) (xflush *display*))) (define-structure region button state-mask state x y width height method) (define (define-region x y width height method) (set! *regions* (cons (make-region #f 0 0 x y width height method) *regions*))) (define (define-button-specific-region button state-mask state x y width height method) (set! *regions* (cons (make-region button state-mask state x y width height method) *regions*))) (define (region-handler x y button state) (let ((region (find-if (lambda (region) (and (<= (region-x region) x) (< x (+ (region-x region) (region-width region))) (<= (region-y region) y) (< y (+ (region-y region) (region-height region))) (or (not (region-button region)) (= button (region-button region))) (= (bit-and state (region-state-mask region)) (region-state region)))) *regions*))) (when region (let ((old-status *status*)) (xselectinput *display* *window* (bit-or exposuremask buttonpressmask buttonreleasemask keypressmask)) (xselectinput *display* *display-pane* (bit-or exposuremask buttonpressmask buttonreleasemask keypressmask)) (status "Run") (call-with-current-continuation (lambda (abort-continuation) (set! *abort-continuation* abort-continuation) ;; changed ((region-method region) x y))) (xselectinput *display* *window* (bit-or exposuremask pointermotionmask buttonpressmask buttonreleasemask keypressmask)) (xselectinput *display* *display-pane* (bit-or exposuremask pointermotionmask buttonpressmask buttonreleasemask keypressmask)) (status old-status))))) (define (abort?) (let loop ((events '())) (cond ((> (xpending *display*) 0) (let ((event (make-xevent))) (xnextevent *display* event) ;changed (cond ((or (and *abort-button* (= (xevent-xany-type event) buttonpress) (eq? (xevent-xany-window event) *abort-button*)) (and *abort-key* (= (xevent-xany-type event) keypress) (= (string-length (ylookupstring event)) 1) (if (>= (char->integer *abort-key*) 128) (and (char=? (string-ref (ylookupstring event) 0) (integer->char (- (char->integer *abort-key*) 128))) (not (zero? (bit-and (xevent-xkey-state event) mod1mask)))) (and (char=? (string-ref (ylookupstring event) 0) *abort-key*) (zero? (bit-and (xevent-xkey-state event) mod1mask)))))) (for-each (lambda (event) (xputbackevent *display* event)) events) #t) (else (loop (cons event events)))))) (else (for-each (lambda (event) (xputbackevent *display* event)) events) #f)))) (define (process-events) (call-with-current-continuation (lambda (quit-continuation) (set! *quit-continuation* quit-continuation) (let ((event (make-xevent)) (comtab (if *help?* *help-comtab* *comtab*)) (n 0)) (let loop () (xnextevent *display* event) ;changed (let ((event-type (xevent-xany-type event)) (window (xevent-xany-window event))) (define (execute-key character) (let ((command (vector-ref comtab (char->integer character)))) (cond ((vector? command) (set! *prefix* (cons character *prefix*)) (redraw-message-pane) (set! comtab command)) ((procedure? command) (set! *prefix* '()) (redraw-message-pane) (set! comtab (if *help?* *help-comtab* *comtab*)) (let ((old-status *status*)) (xselectinput *display* *window* (bit-or exposuremask buttonpressmask buttonreleasemask keypressmask)) (xselectinput *display* *display-pane* (bit-or exposuremask buttonpressmask buttonreleasemask keypressmask)) (status "Run") (message "") (call-with-current-continuation (lambda (abort-continuation) (set! *abort-continuation* abort-continuation) ;; changed (command))) (xselectinput *display* *window* (bit-or exposuremask pointermotionmask buttonpressmask buttonreleasemask keypressmask)) (xselectinput *display* *display-pane* (bit-or exposuremask pointermotionmask buttonpressmask buttonreleasemask keypressmask)) (status old-status)) (set! comtab (if *help?* *help-comtab* *comtab*))) (else (set! *prefix* '()) (redraw-message-pane) (set! *help?* #f) (redraw-buttons) (redraw-display-pane) (set! comtab (if *help?* *help-comtab* *comtab*)) (xbell *display* 100))))) (cond ((= event-type mappingnotify) (xrefreshkeyboardmapping event)) ((= event-type expose) (set! n (+ n 1)) (set! *prefix* '()) (redraw-message-pane) (set! comtab (if *help?* *help-comtab* *comtab*)) (send window 'expose) (when (and (= n (if (eq? *display-pane* *window*) 1 (+ (length *buttons*) (if *transcript-pane* 6 5)))) *post-initialize-procedure*) (*post-initialize-procedure*) (set! *post-initialize-procedure* #f))) ;; I don't know why these happen or what they mean. ((= event-type noexpose) #f) ((= event-type motionnotify) #f) ((= event-type buttonpress) (when *help?* (set! *help?* #f) (redraw-buttons) (redraw-display-pane)) (set! *prefix* '()) (redraw-message-pane) (set! comtab (if *help?* *help-comtab* *comtab*)) (let ((old-status *status*)) (xselectinput *display* *window* (bit-or exposuremask buttonpressmask buttonreleasemask keypressmask)) (xselectinput *display* *display-pane* (bit-or exposuremask buttonpressmask buttonreleasemask keypressmask)) (status "Run") (call-with-current-continuation (lambda (abort-continuation) (set! *abort-continuation* abort-continuation) ;; changed (send window 'buttonpress (xevent-xbutton-x event) (xevent-xbutton-y event) (xevent-xbutton-button event) (xevent-xbutton-state event)))) (xselectinput *display* *window* (bit-or exposuremask pointermotionmask buttonpressmask buttonreleasemask keypressmask)) (xselectinput *display* *display-pane* (bit-or exposuremask pointermotionmask buttonpressmask buttonreleasemask keypressmask)) (status old-status)) (set! comtab (if *help?* *help-comtab* *comtab*))) ((= event-type buttonrelease) #f) ((= event-type keypress) (cond ((= (string-length (ylookupstring event)) 1) (let ((character (string-ref (ylookupstring event) 0))) (unless (zero? (bit-and (xevent-xkey-state event) mod1mask)) (set! character (meta character))) (execute-key character))) ((= (xlookupkeysym event 0) xk_home) (execute-key (meta #\<))) ((= (xlookupkeysym event 0) xk_left) (execute-key (control #\b))) ((= (xlookupkeysym event 0) xk_up) (execute-key (control #\p))) ((= (xlookupkeysym event 0) xk_right) (execute-key (control #\f))) ((= (xlookupkeysym event 0) xk_down) (execute-key (control #\n))) ((= (xlookupkeysym event 0) xk_prior) (execute-key (meta #\v))) ((= (xlookupkeysym event 0) xk_next) (execute-key (control #\v))) ((= (xlookupkeysym event 0) xk_end) (execute-key (meta #\>))))) ;; changed (else (panic (format #f "Unrecognized event: ~s" event-type)))) (loop))))))) (define (quit) (unwind-trail) (*quit-continuation* #f)) (define (abort) (xbell *display* 100) (set! *help?* #f) (redraw-buttons) (redraw-display-pane) (*abort-continuation* #f)) (define (control character) (if (>= (char->integer character) 128) (let ((character (integer->char (- (char->integer character) 128)))) (cond ((char-alphabetic? character) (if (char-lower-case? character) (integer->char (+ (- (char->integer character) 96) 128)) (integer->char (+ (- (char->integer character) 64) 128)))) ((char=? character #\space) (integer->char (+ 128 0))) ((char=? character #\@) (integer->char (+ 128 0))) ((char=? character #\[) (integer->char (+ 128 27))) ((char=? character #\\) (integer->char (+ 128 28))) ((char=? character #\]) (integer->char (+ 128 29))) ((char=? character #\^) (integer->char (+ 128 30))) ((char=? character #\_) (integer->char (+ 128 31))) ((char=? character #\/) (integer->char (+ 128 31))) (else (panic ;; changed (format #f "Can't form control character: ~s" character))))) (cond ((char-alphabetic? character) (if (char-lower-case? character) (integer->char (- (char->integer character) 96)) (integer->char (- (char->integer character) 64)))) ((char=? character #\space) (integer->char 0)) ((char=? character #\@) (integer->char 0)) ((char=? character #\[) (integer->char 27)) ((char=? character #\\) (integer->char 28)) ((char=? character #\]) (integer->char 29)) ((char=? character #\^) (integer->char 30)) ((char=? character #\_) (integer->char 31)) ((char=? character #\/) (integer->char 31)) (else (panic ;; changed (format #f "Can't form control character: ~s" character)))))) (define (meta character) (if (>= (char->integer character) 128) character (integer->char (+ (char->integer character) 128)))) (define (define-key character documentation command) (set! *help* (cons (list character documentation) (remove-if (lambda (help) (equal? character (first help))) *help*))) (when (eq? command abort-command) (set! *abort-key* character)) (if (list? character) (let loop ((characters character) (comtab *comtab*)) (cond ((null? (rest characters)) (vector-set! comtab (char->integer (first characters)) command)) (else (unless (vector? (vector-ref comtab (char->integer (first characters)))) (vector-set! comtab (char->integer (first characters)) (make-vector 256 #f))) (loop (rest characters) (vector-ref comtab (char->integer (first characters))))))) (vector-set! *comtab* (char->integer character) command))) (define (define-button x y text-procedure bold?-procedure method) (let ((button (xcreatesimplewindow *display* *window* (+ (* x (+ *button-width* 4)) 2) (+ (* y (+ *button-height* 4)) 2) *button-width* *button-height* 1 ;; changed *black-pixel* ;; changed *white-pixel*))) (when (eq? method abort-command) (set! *abort-button* button)) (xselectinput *display* button (bit-or exposuremask buttonpressmask keypressmask)) (set-window-method! button 'expose (lambda () (let* ((text (if (procedure? text-procedure) (text-procedure) text-procedure)) (bold? (if (procedure? bold?-procedure) (bold?-procedure) bold?-procedure)) (text-width (xtextwidth (if bold? *bold-font* *roman-font*) text (string-length text))) (text-x (quotient (- *button-width* text-width) 2)) (text-y (- *button-height* (+ *text-baseline* 2)))) (xclearwindow *display* button) (xdrawstring *display* button (if bold? *bold-gc* *roman-gc*) text-x text-y text (string-length text))))) (set-window-method! button 'buttonpress (lambda (x y button state) (method))) (set! *buttons* (cons button *buttons*)))) ;;; removed: DEFINE-BUTTON-TOGGLE ;;; removed: DEFINE-BUTTON-TUPPLE ;;; removed: DEFINE-BUTTON-CYCLE ;;; removed: DEFINE-BUTTON-INTEGER-RANGE (define (say string) (set! *transcript* (cons (list 'system string) *transcript*)) (redraw-transcript-pane)) (define (status string) (set! *status* string) (redraw-status-pane)) (define (message string) (set! *message* string) (redraw-message-pane)) (define (set-pause! p) (set! *pause?* p) (redraw-buttons)) (define (pause) (when *pause?* (let ((old-status *status*)) (status "Pause") (call-with-current-continuation (lambda (continue) (let ((event (make-xevent))) (let loop () (xnextevent *display* event) ;changed (let ((event-type (xevent-xany-type event)) (window (xevent-xany-window event))) (cond ((= event-type mappingnotify) (xrefreshkeyboardmapping event)) ((= event-type expose) (send window 'expose)) ;; I don't know why these happen or what they mean. ((= event-type noexpose) #f) ((= event-type motionnotify) #f) ((= event-type buttonpress) (continue #f)) ((= event-type buttonrelease) #f) ((= event-type keypress) (when (= (string-length (ylookupstring event)) 1) (let ((character (string-ref (ylookupstring event) 0))) (cond ((char=? character #\space) (continue #f)) ((char=? character #\r) (set-pause! #f) (continue #f)) ;; needs work: Should do by abort key and button. ((char=? character #\q) (abort)))))) ;; changed (else (panic (format #f "Unrecognized event: ~s" event)))) (loop)))))) (status old-status)))) (define (tracking-pointer twice? press? tracker) (let ((old-status *status*) (event (make-xevent)) (x #f) ;needs work: type pollution (y #f)) ;needs work: type pollution (xselectinput *display* *window* (bit-or exposuremask pointermotionmask buttonpressmask buttonreleasemask keypressmask)) (xselectinput *display* *display-pane* (bit-or exposuremask pointermotionmask buttonpressmask buttonreleasemask keypressmask)) (status "Track") ;; Get pointer position and call tracker to draw. (let ((result (yquerypointer *display* *display-pane*))) ;changed (set! x (first result)) ;changed (set! y (second result))) ;changed (tracker x y) (xflush *display*) ;; Event loop (let loop () ;; Call tracker to erase. (when twice? (tracker x y) (xflush *display*)) ;; Get pointer position and call tracker to draw. (let ((result (yquerypointer *display* *display-pane*))) ;changed (set! x (first result)) ;changed (set! y (second result))) ;changed (tracker x y) (xflush *display*) ;; Wait for next event. (xnextevent *display* event) ;changed ;; needs work: Should allow abort key and button. (let ((event-type (xevent-xany-type event))) (cond ;; If event is MotionNotify, gobble all following MotionNotify events. ((= event-type motionnotify) (let loop2 () (when (> (xeventsqueued *display* queuedalready) 0) (xnextevent *display* event) ;changed ;; needs work: Should allow abort key and button. (let ((event-type (xevent-xany-type event))) (if (= event-type motionnotify) (loop2) (xputbackevent *display* event))))) (loop)) ;; Ignore other events except ButtonPress/Release, which exits main loop. ((not (= event-type (if press? buttonpress buttonrelease))) (loop))))) ;; Call tracker to erase; restore status; return final pointer position. (when twice? (tracker x y) (xflush *display*)) (status old-status) (list x y))) ;;; changed (define (kill-application) #f) ;;; removed: SET-KILL-APPLICATION! (define (allocate-color-cube! reds greens blues) (unless *color-cube* (set! *color-cube* (make-vector (* reds greens blues))) (let ((colormap (xdefaultcolormap *display* *screen*)) (i 0)) (for-each-n (lambda (red) (for-each-n (lambda (green) (for-each-n (lambda (blue) (let ((xcolor (make-xcolor))) ;; changed (set-xcolor-red! xcolor (quotient (* 65536 red) reds)) ;; changed (set-xcolor-green! xcolor (quotient (* 65536 green) greens)) ;; changed (set-xcolor-blue! xcolor (quotient (* 65536 blue) blues)) (when (zero? (xalloccolor *display* colormap xcolor)) (panic "Cannot allocate sufficient colors")) (vector-set! *color-cube* i xcolor) (set! i (+ i 1)))) blues)) greens)) reds)))) (define (draw-pixmap pixmap x y) (let ((geometry (xgetgeometry *display* pixmap))) (xcopyarea *display* pixmap *display-pane* *color-gc* 0 0 (fifth geometry) (sixth geometry) x y) (xflush *display*))) (define *frame-rate* 30.0) (define (draw-pixmaps pixmaps x y) (for-each-vector (lambda (pixmap) (draw-pixmap pixmap x y) (usleep (inexact->exact (round (/ 1000000.0 *frame-rate*))))) pixmaps)) (define (free-pixmap pixmap) (xfreepixmap *display* pixmap)) (define (free-pixmaps pixmaps) (for-each-vector free-pixmap pixmaps)) (define c-xcreateimage ;; changed (foreign-procedure (void* void* int int int void* int int int int) void* "XCreateImage" "X11/Xlib")) (define c-malloc (foreign-procedure (int) void* "malloc" "stdlib")) ;changed (define c-docolordither ;; changed (foreign-procedure (void* int int void* void* void* void* int) void* "DoColorDither")) (define (pnm->pixmap pnm) ;; needs work: Why don't I get exact RGB values? ;; needs work: Make special PGM version. (cond ((pbm? pnm) (pnm->pixmap (pbm->ppm pnm))) ((pgm? pnm) (pnm->pixmap (pgm->ppm pnm))) ((ppm? pnm) (let* ((default-visual (xdefaultvisual *display* *screen*)) (default-visual-class (visual-class default-visual)) (default-depth (xdefaultdepth *display* *screen*))) (cond ((= default-visual-class staticgray) (panic "Cannot (yet) handle STATICGRAY visual")) ((= default-visual-class grayscale) (panic "Cannot (yet) handle GRAYSCALE visual")) ((= default-visual-class staticcolor) (panic "Cannot (yet) handle STATICCOLOR visual")) ((= default-visual-class pseudocolor) (unless (and (= (visual-map_entries default-visual) 256) (= default-depth 8)) (panic "Can (currently) only handle 8-bit PSEUDOCOLOR visual")) (allocate-color-cube! *reds* *greens* *blues*) (if *dither?* (let* ((width (pnm-width pnm)) (height (pnm-height pnm)) (red (ppm-red pnm)) (green (ppm-green pnm)) (blue (ppm-blue pnm)) (maxval (ppm-maxval pnm)) (pic24 (make-string (* 3 width height))) (rdisp (make-string (vector-length *color-cube*))) (gdisp (make-string (vector-length *color-cube*))) (bdisp (make-string (vector-length *color-cube*))) (idisp (make-string (vector-length *color-cube*))) (i 0)) (do ((y 0 (+ y 1))) ((= y height)) (do ((x 0 (+ x 1))) ((= x width)) (string-set! pic24 i (integer->char (quotient (* 255 (matrix-ref red y x)) maxval))) (set! i (+ i 1)) (string-set! pic24 i (integer->char (quotient (* 255 (matrix-ref green y x)) maxval))) (set! i (+ i 1)) (string-set! pic24 i (integer->char (quotient (* 255 (matrix-ref blue y x)) maxval))) (set! i (+ i 1)))) (do ((i 0 (+ i 1))) ((= i (vector-length *color-cube*))) (let ((xcolor (vector-ref *color-cube* i))) (string-set! rdisp i (integer->char (quotient (xcolor-red xcolor) 256))) (string-set! gdisp i (integer->char (quotient (xcolor-green xcolor) 256))) (string-set! bdisp i (integer->char (quotient (xcolor-blue xcolor) 256))) (string-set! idisp i (integer->char (xcolor-pixel xcolor))))) (let* ((pic8 (c-docolordither pic24 width height rdisp gdisp bdisp idisp (vector-length *color-cube*))) (ximage (cons 'ximagep (c-xcreateimage (cdr *display*) (cdr default-visual) 8 zpixmap 0 pic8 width height 8 0))) (pixmap (xcreatepixmap *display* *display-pane* width height 8))) (xputimage *display* pixmap *color-gc* ximage 0 0 0 0 width height) (xdestroyimage ximage) pixmap)) (let* ((width (pnm-width pnm)) (height (pnm-height pnm)) (red (ppm-red pnm)) (green (ppm-green pnm)) (blue (ppm-blue pnm)) (maxval (+ (ppm-maxval pnm) 1)) (data (c-malloc (* width height))) (ximage (cons 'ximagep (c-xcreateimage (cdr *display*) (cdr default-visual) 8 zpixmap 0 data width height 8 0))) (pixmap (xcreatepixmap *display* *display-pane* width height 8))) (do ((y 0 (+ y 1))) ((= y height)) (do ((x 0 (+ x 1))) ((= x width)) (xputpixel ximage x y (xcolor-pixel (vector-ref *color-cube* (+ (* *greens* *blues* (min (inexact->exact (round (/ (* *reds* (matrix-ref red y x)) maxval))) (- *reds* 1))) (* *blues* (min (inexact->exact (round (/ (* *greens* (matrix-ref green y x)) maxval))) (- *greens* 1))) (min (inexact->exact (round (/ (* *blues* (matrix-ref blue y x)) maxval))) (- *blues* 1)))))))) (xputimage *display* pixmap *color-gc* ximage 0 0 0 0 width height) (xdestroyimage ximage) pixmap))) ((= default-visual-class truecolor) (cond ((and (= (visual-red_mask default-visual) 63488) (= (visual-green_mask default-visual) 2016) (= (visual-blue_mask default-visual) 31) (= default-depth 16)) (let* ((width (pnm-width pnm)) (height (pnm-height pnm)) (red (ppm-red pnm)) (green (ppm-green pnm)) (blue (ppm-blue pnm)) (maxval (+ (ppm-maxval pnm) 1)) (data (c-malloc (* 2 width height))) (ximage (cons 'ximagep (c-xcreateimage (cdr *display*) (cdr default-visual) default-depth zpixmap 0 data width height default-depth 0))) (pixmap (xcreatepixmap *display* *display-pane* width height default-depth))) (do ((y 0 (+ y 1))) ((= y height)) (do ((x 0 (+ x 1))) ((= x width)) (xputpixel ximage x y (+ (* (quotient (* 32 (matrix-ref red y x)) maxval) 2048) (* (quotient (* 64 (matrix-ref green y x)) maxval) 32) (quotient (* 32 (matrix-ref blue y x)) maxval))))) (xputimage *display* pixmap *color-gc* ximage 0 0 0 0 width height) (xdestroyimage ximage) pixmap)) ((and (= (visual-red_mask default-visual) 16711680) (= (visual-green_mask default-visual) 65280) (= (visual-blue_mask default-visual) 255) (or (= default-depth 24) (= default-depth 32))) (let* ((width (pnm-width pnm)) (height (pnm-height pnm)) (red (ppm-red pnm)) (green (ppm-green pnm)) (blue (ppm-blue pnm)) (maxval (+ (ppm-maxval pnm) 1)) (data (c-malloc (* 4 width height))) (ximage (cons 'ximagep (c-xcreateimage (cdr *display*) (cdr default-visual) default-depth zpixmap 0 data width height 32 0))) (pixmap (xcreatepixmap *display* *display-pane* width height default-depth))) (do ((y 0 (+ y 1))) ((= y height)) (do ((x 0 (+ x 1))) ((= x width)) (xputpixel ximage x y (+ (* 65536 (quotient (* 256 (matrix-ref red y x)) maxval)) (* 256 (quotient (* 256 (matrix-ref green y x)) maxval)) (quotient (* 256 (matrix-ref blue y x)) maxval))))) (xputimage *display* pixmap *color-gc* ximage 0 0 0 0 width height) (xdestroyimage ximage) pixmap)) (else (panic "Can (currently) only handle 16-bit (5-6-5), 24-bit, and 32-bit TRUECOLOR visuals")))) ((= default-visual-class directcolor) (panic "Cannot (yet) handle DIRECTCOLOR visual")) (else (panic "Unrecognized visual"))))) (else (panic "Argument not PNM")))) (define (pnm-movie->pixmaps pnm-movie) (map-vector pnm->pixmap pnm-movie)) (define-structure tree-node width height offset text bold? procedure daughters) (define (tree->tree-node tree) ;; needs work: This doesn't do any error checking. (let ((daughters (map tree->tree-node (rest (rest (rest tree))))) (bold? (first tree)) (text (second tree)) (procedure (third tree))) (make-tree-node (max (reduce + (map tree-node-width daughters) 0) (+ (xtextwidth (if bold? *bold-font* *roman-font*) text (string-length text)) 10)) (if (null? daughters) *text-height* (+ (reduce max (map tree-node-height daughters) 0) *text-height* 20)) (if (or (null? daughters) (< (reduce + (map tree-node-width daughters) 0) (+ (xtextwidth (if bold? *bold-font* *roman-font*) text (string-length text)) 10))) (quotient (+ (xtextwidth (if bold? *bold-font* *roman-font*) text (string-length text)) 10) 2) (+ (quotient (- (+ (reduce + (map tree-node-width (rest (reverse daughters))) 0) (tree-node-offset (last daughters))) (tree-node-offset (first daughters))) 2) (tree-node-offset (first daughters)))) text bold? procedure daughters))) (define (draw-tree-node tree-node x y) (let* ((width (xtextwidth (if (tree-node-bold? tree-node) *bold-font* *roman-font*) (tree-node-text tree-node) (string-length (tree-node-text tree-node)))) (x0 (- (+ x (tree-node-offset tree-node)) (quotient width 2)))) (xdrawstring *display* *display-pane* (if (tree-node-bold? tree-node) *bold-gc* *roman-gc*) x0 (+ y (- *text-height* (+ *text-baseline* -3))) (tree-node-text tree-node) (string-length (tree-node-text tree-node))) (define-region x0 y width *text-height* (lambda (x1 y1) ((tree-node-procedure tree-node)) (redraw-display-pane))) (let loop ((x1 (+ x (quotient (- (tree-node-width tree-node) (reduce + (map tree-node-width (tree-node-daughters tree-node)) 0)) 2))) (daughters (tree-node-daughters tree-node))) (unless (null? daughters) (xdrawline *display* *display-pane* *thin-gc* (+ x (tree-node-offset tree-node)) (+ y *text-height* 2) (+ x1 (tree-node-offset (first daughters))) (+ y *text-height* 21)) (draw-tree-node (first daughters) x1 (+ y *text-height* 20)) (loop (+ x1 (tree-node-width (first daughters))) (rest daughters)))))) (define (tree-height tree) (tree-node-height (tree->tree-node tree))) (define (draw-tree tree x y) (draw-tree-node (tree->tree-node tree) x y)) ;;; needs work: To add bold face and regions to alist display. (define-structure alist-node width height offset keys values) (define (alist->alist-node alist) ;; needs work: This doesn't do any error checking. (if (string? alist) alist (let* ((keys (map car alist)) (values (map alist->alist-node (map cdr alist))) (offset (reduce max (map (lambda (key) (xtextwidth *roman-font* key (string-length key))) keys) 0))) (make-alist-node (+ 5 offset 5 (reduce max (map (lambda (value) (if (string? value) (xtextwidth *roman-font* value (string-length value)) (alist-node-width value))) values) 0) 5) (+ 1 (max (- *text-height* 6) (reduce + (map (lambda (value) (max *text-height* (if (string? value) *text-height* (alist-node-height value)))) values) 0)) (* 2 (max (- (length keys) 1) 0)) 5) (+ offset 10) keys values)))) (define (draw-alist-node alist-node x y) (cond ((string? alist-node) (xdrawstring *display* *display-pane* *roman-gc* x (+ y (- *roman-height* (+ *roman-baseline* -3))) alist-node (string-length alist-node))) (else (xdrawline *display* *display-pane* *thin-gc* x y (+ x 5) y) (xdrawline *display* *display-pane* *thin-gc* x y x (+ y (alist-node-height alist-node))) (xdrawline *display* *display-pane* *thin-gc* x (+ y (alist-node-height alist-node)) (+ x 5) (+ y (alist-node-height alist-node))) (xdrawline *display* *display-pane* *thin-gc* (+ x (alist-node-width alist-node)) y (+ x (alist-node-width alist-node) -5) y) (xdrawline *display* *display-pane* *thin-gc* (+ x (alist-node-width alist-node)) y (+ x (alist-node-width alist-node)) (+ y (alist-node-height alist-node))) (xdrawline *display* *display-pane* *thin-gc* (+ x (alist-node-width alist-node)) (+ y (alist-node-height alist-node)) (+ x (alist-node-width alist-node) -5) (+ y (alist-node-height alist-node))) (let loop ((keys (alist-node-keys alist-node)) (values (alist-node-values alist-node)) (y (+ y 1))) (unless (null? keys) (cond ((string? (first values)) (xdrawstring *display* *display-pane* *roman-gc* (+ x 5) (+ y (- *roman-height* (+ *roman-baseline* -3))) (first keys) (string-length (first keys))) (xdrawstring *display* *display-pane* *roman-gc* (+ x (alist-node-offset alist-node)) (+ y (- *roman-height* (+ *roman-baseline* -3))) (first values) (string-length (first values))) (loop (rest keys) (rest values) (+ y *text-height* 2))) (else (xdrawstring *display* *display-pane* *roman-gc* (+ x 5) (+ y (- *roman-height* (+ *roman-baseline* -3))) (first keys) (string-length (first keys))) (draw-alist-node (first values) (+ x (alist-node-offset alist-node)) (+ y 2)) (loop (rest keys) (rest values) (+ y (alist-node-height (first values)) 2))))))))) (define (alist-height alist) (alist-node-height (alist->alist-node alist))) (define (draw-alist alist x y) (draw-alist-node (alist->alist-node alist) x y)) (define (abort-command) (abort)) (define (help-command) (set! *help?* #t) (redraw-buttons) (redraw-display-pane)) (define (help-scroll-up-line-command) (set! *help?* #t) (set! *first-help-line* (max (- *first-help-line* 1) 0)) (redraw-buttons) (redraw-display-pane)) (define (help-scroll-down-line-command) (set! *help?* #t) (set! *first-help-line* (max (min (+ *first-help-line* 1) (- (length *help*) (quotient *display-pane-height* *text-height*))) 0)) (redraw-buttons) (redraw-display-pane)) (define (help-scroll-up-page-command) (set! *help?* #t) (set! *first-help-line* (max (- *first-help-line* (quotient *display-pane-height* *text-height*)) 0)) (redraw-buttons) (redraw-display-pane)) (define (help-scroll-down-page-command) (set! *help?* #t) (set! *first-help-line* (max (min (+ *first-help-line* (quotient *display-pane-height* *text-height*)) (- (length *help*) (quotient *display-pane-height* *text-height*))) 0)) (redraw-buttons) (redraw-display-pane)) (define (help-scroll-beginning-command) (set! *help?* #t) (set! *first-help-line* 0) (redraw-buttons) (redraw-display-pane)) (define (help-scroll-end-command) (set! *help?* #t) (set! *first-help-line* (max (- (length *help*) (quotient *display-pane-height* *text-height*)) 0)) (redraw-buttons) (redraw-display-pane)) (define (echo-pane-command editor) ;; needs work: This is not really a command. (message "") (let ((result (editor *input* *input-position*))) (set! *input* (first result)) (set! *input-position* (second result))) (redraw-echo-pane)) (define (echo-pane-insert-character-command character) (echo-pane-command (string-insert-character character))) (define (echo-pane-beginning-of-line-command) (echo-pane-command string-beginning-of-line)) (define (echo-pane-backward-char-command) (echo-pane-command string-backward-char)) (define (echo-pane-delete-char-command) (echo-pane-command string-delete-char)) (define (echo-pane-end-of-line-command) (echo-pane-command string-end-of-line)) (define (echo-pane-forward-char-command) (echo-pane-command string-forward-char)) (define (echo-pane-kill-line-command) (echo-pane-command string-kill-line)) (define (echo-pane-backward-delete-char-command) (echo-pane-command string-backward-delete-char)) (define (echo-pane-backward-word-command) (echo-pane-command string-backward-word)) (define (echo-pane-kill-word-command) (echo-pane-command string-kill-word)) (define (echo-pane-forward-word-command) (echo-pane-command string-forward-word)) (define (echo-pane-backward-kill-word-command) (echo-pane-command string-backward-kill-word)) ;;; removed: DEFINE-APPLICATION ;;; Debugger ;;; removed: Debugger ;;; Command Processor ;;; removed: DEFINE-COMMAND ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/include/Tmk.sc0000600017435200151030000000076310464416220014103 0ustar qobiqobi(define tmk:nbarriers (foreign-procedure () int "Tmk_get_NBARRIERS")) (define tmk:barrier (foreign-procedure (unsigned) void "Tmk_barrier")) (define tmk:nprocs (foreign-procedure () int "Tmk_get_NPROCS")) (define tmk:proc-id (foreign-procedure () int "Tmk_get_proc_id")) (define tmk:nlocks (foreign-procedure () int "Tmk_get_NLOCKS")) (define tmk:lock-acquire (foreign-procedure (unsigned) void "Tmk_lock_acquire")) (define tmk:lock-release (foreign-procedure (unsigned) void "Tmk_lock_release")) stalin-0.11/include/Scheme-to-C-compatibility.sc0000600017435200151030000003425307715317322020234 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; Stalin 0.10 - A global optimizing compiler for Scheme ;;; Copyright 1993, 1994, and 1995 University of Toronto. All rights reserved. ;;; Copyright 1996 Technion. All rights reserved. ;;; Copyright 1996 and 1997 University of Vermont. All rights reserved. ;;; Copyright 1997, 1998, 1999, 2000, and 2001 NEC Research Institute, Inc. All ;;; rights reserved. ;;; Copyright 2002 and 2003 Purdue University. All rights reserved. ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License ;;; as published by the Free Software Foundation; either version 2 ;;; of the License, or (at your option) any later version. ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;;; written by: ;;; Jeffrey Mark Siskind ;;; NEC Research Institute, Inc. ;;; 4 Independence Way ;;; Princeton NJ 08540-6620 USA ;;; voice: 609/951-2705 ;;; FAX: 609/951-2483 ;;; Qobi@research.nj.nec.com ;;; ftp://ftp.nj.nec.com/pub/qobi ;;; http://www.neci.nj.nec.com/homepages/qobi (define c-sizeof-s2cuint ((primitive-procedure pointer-size))) ;;; needs work: These are stubs for now. (define (write-level) #f) (define (write-pretty) #f) (define (set-write-level! p?) ((lambda ()))) (define (set-write-pretty! p?) ((lambda ()))) (define (collect-all) ((lambda ()))) (define (collect-info) '(0)) (define (flush-buffer port) ((foreign-procedure (file*) int "fflush" "stdio") port)) (define (make-file-port stdio-file mode) stdio-file) (define (port->stdio-file port) port) (define (time-of-day) (panic "TIME-OF-DAY is not (yet) implemented")) (define bit-not bitwise-not) (define bit-and bitwise-and) (define bit-or bitwise-or) ;;; needs work: STDERR-PORT (define (format destination format-string . arguments) (cond ((output-port? destination) (let ((twiddle? #f) (n (- (string-length format-string) 1))) (unless (negative? n) (let loop ((i 0)) (let ((char (string-ref format-string i))) (cond (twiddle? (case char ((#\a #\A) (when (null? arguments) (panic "Too few FORMAT arguments")) (display (car arguments) destination) (set! arguments (cdr arguments))) ((#\s #\S) (when (null? arguments) (panic "Too few FORMAT arguments")) (write (car arguments) destination) (set! arguments (cdr arguments))) ((#\~) (write-char #\~ destination)) ((#\%) (newline destination)) (else (panic "Improper FORMAT directive"))) (set! twiddle? #f)) ((char=? char #\~) (set! twiddle? #t)) (else (write-char char destination))) (cond ((< i n) (loop (+ i 1))) ((not (null? arguments)) (panic "Too many FORMAT arguments")) (twiddle? (panic "Twiddle at end of FORMAT string")))))))) ((eq? destination #t) (let ((twiddle? #f) (n (- (string-length format-string) 1))) (unless (negative? n) (let loop ((i 0)) (let ((char (string-ref format-string i))) (cond (twiddle? (case char ((#\a #\A) (when (null? arguments) (panic "Too few FORMAT arguments")) (display (car arguments)) (set! arguments (cdr arguments))) ((#\s #\S) (when (null? arguments) (panic "Too few FORMAT arguments")) (write (car arguments)) (set! arguments (cdr arguments))) ((#\~) (write-char #\~)) ((#\%) (newline)) (else (panic "Improper FORMAT directive"))) (set! twiddle? #f)) ((char=? char #\~) (set! twiddle? #t)) (else (write-char char))) (cond ((< i n) (loop (+ i 1))) ((not (null? arguments)) (panic "Too many FORMAT arguments")) (twiddle? (panic "Twiddle at end of FORMAT string")))))))) ((eq? destination #f) (let ((twiddle? #f) (result '()) (n (- (string-length format-string) 1))) (define (write-to-result x) (cond ((null? x) (set! result (cons #\( result)) (set! result (cons #\) result))) ((eq? x #t) (set! result (cons #\# result)) (set! result (cons #\T result))) ((not x) (set! result (cons #\# result)) (set! result (cons #\F result))) ((char? x) (set! result (cons #\# result)) (set! result (cons #\\ result)) ;; needs work: To handle other non printing characters. (case x ((#\newline) (set! result (cons #\N result)) (set! result (cons #\e result)) (set! result (cons #\w result)) (set! result (cons #\l result)) (set! result (cons #\i result)) (set! result (cons #\n result)) (set! result (cons #\e result))) ((#\space) (set! result (cons #\S result)) (set! result (cons #\p result)) (set! result (cons #\a result)) (set! result (cons #\c result)) (set! result (cons #\e result))) (else (set! result (cons x result))))) ((number? x) (for-each (lambda (c) (set! result (cons c result))) (string->list (number->string x)))) ((input-port? x) (set! result (cons #\# result)) (set! result (cons #\* result)) (set! result (cons #\I result)) (set! result (cons #\N result)) (set! result (cons #\P result)) (set! result (cons #\U result)) (set! result (cons #\T result)) (set! result (cons #\- result)) (set! result (cons #\P result)) (set! result (cons #\O result)) (set! result (cons #\R result)) (set! result (cons #\T result)) (set! result (cons #\* result))) ((output-port? x) (set! result (cons #\# result)) (set! result (cons #\* result)) (set! result (cons #\O result)) (set! result (cons #\U result)) (set! result (cons #\T result)) (set! result (cons #\P result)) (set! result (cons #\U result)) (set! result (cons #\T result)) (set! result (cons #\- result)) (set! result (cons #\P result)) (set! result (cons #\O result)) (set! result (cons #\R result)) (set! result (cons #\T result)) (set! result (cons #\* result))) ((eof-object? x) (set! result (cons #\# result)) (set! result (cons #\* result)) (set! result (cons #\E result)) (set! result (cons #\O result)) (set! result (cons #\F result)) (set! result (cons #\- result)) (set! result (cons #\O result)) (set! result (cons #\B result)) (set! result (cons #\J result)) (set! result (cons #\E result)) (set! result (cons #\C result)) (set! result (cons #\T result)) (set! result (cons #\* result))) ((pointer? x) (set! result (cons #\# result)) (set! result (cons #\* result)) (set! result (cons #\P result)) (set! result (cons #\O result)) (set! result (cons #\I result)) (set! result (cons #\N result)) (set! result (cons #\T result)) (set! result (cons #\E result)) (set! result (cons #\R result)) (set! result (cons #\* result))) ((symbol? x) ;; needs work: Should slashify. (let* ((x (symbol->string x)) (n (string-length x))) (let loop ((i 0)) (when (< i n) (set! result (cons (string-ref x i) result)) (loop (+ i 1)))))) ((procedure? x) (set! result (cons #\# result)) (set! result (cons #\* result)) (set! result (cons #\P result)) (set! result (cons #\R result)) (set! result (cons #\O result)) (set! result (cons #\C result)) (set! result (cons #\E result)) (set! result (cons #\D result)) (set! result (cons #\U result)) (set! result (cons #\R result)) (set! result (cons #\E result)) (set! result (cons #\* result))) ((string? x) (set! result (cons #\" result)) (let ((n (string-length x))) (let loop ((i 0)) (when (< i n) (when (or (char=? (string-ref x i) #\\) (char=? (string-ref x i) #\") (set! result (cons #\\ result))) (set! result (cons (string-ref x i) result)) (loop (+ i 1)))))) (set! result (cons #\" result))) ((pair? x) (set! result (cons #\( result)) (let loop ((x x)) (cond ((null? (cdr x)) (write-to-result (car x))) ((pair? (cdr x)) (write-to-result (car x)) (set! result (cons #\space result)) (loop (cdr x))) (else (write-to-result (car x)) (set! result (cons #\space result)) (write-to-result (cdr x))))) (set! result (cons #\) result))) ((vector? x) (set! result (cons #\# result)) (set! result (cons #\( result)) (let ((n (vector-length x))) (unless (zero? n) (write-to-result (vector-ref x 0)) (let loop ((i 1)) (unless (= i n) (set! result (cons #\space result)) (write-to-result (vector-ref x i)) (loop (+ i 1)))))) (set! result (cons #\) result))) (else (panic "FORMAT with WRITE-methods is not (yet) implemented")))) (define (display-to-result x) (cond ((null? x) (set! result (cons #\( result)) (set! result (cons #\) result))) ((eq? x #t) (set! result (cons #\# result)) (set! result (cons #\T result))) ((not x) (set! result (cons #\# result)) (set! result (cons #\F result))) ((char? x) (set! result (cons x result))) ((number? x) (for-each (lambda (c) (set! result (cons c result))) (string->list (number->string x)))) ((input-port? x) (set! result (cons #\# result)) (set! result (cons #\* result)) (set! result (cons #\I result)) (set! result (cons #\N result)) (set! result (cons #\P result)) (set! result (cons #\U result)) (set! result (cons #\T result)) (set! result (cons #\- result)) (set! result (cons #\P result)) (set! result (cons #\O result)) (set! result (cons #\R result)) (set! result (cons #\T result)) (set! result (cons #\* result))) ((output-port? x) (set! result (cons #\# result)) (set! result (cons #\* result)) (set! result (cons #\O result)) (set! result (cons #\U result)) (set! result (cons #\T result)) (set! result (cons #\P result)) (set! result (cons #\U result)) (set! result (cons #\T result)) (set! result (cons #\- result)) (set! result (cons #\P result)) (set! result (cons #\O result)) (set! result (cons #\R result)) (set! result (cons #\T result)) (set! result (cons #\* result))) ((eof-object? x) (set! result (cons #\# result)) (set! result (cons #\* result)) (set! result (cons #\E result)) (set! result (cons #\O result)) (set! result (cons #\F result)) (set! result (cons #\- result)) (set! result (cons #\O result)) (set! result (cons #\B result)) (set! result (cons #\J result)) (set! result (cons #\E result)) (set! result (cons #\C result)) (set! result (cons #\T result)) (set! result (cons #\* result))) ((pointer? x) (set! result (cons #\# result)) (set! result (cons #\* result)) (set! result (cons #\P result)) (set! result (cons #\O result)) (set! result (cons #\I result)) (set! result (cons #\N result)) (set! result (cons #\T result)) (set! result (cons #\E result)) (set! result (cons #\R result)) (set! result (cons #\* result))) ((symbol? x) (let* ((x (symbol->string x)) (n (string-length x))) (let loop ((i 0)) (when (< i n) (set! result (cons (string-ref x i) result)) (loop (+ i 1)))))) ((procedure? x) (set! result (cons #\# result)) (set! result (cons #\* result)) (set! result (cons #\P result)) (set! result (cons #\R result)) (set! result (cons #\O result)) (set! result (cons #\C result)) (set! result (cons #\E result)) (set! result (cons #\D result)) (set! result (cons #\U result)) (set! result (cons #\R result)) (set! result (cons #\E result)) (set! result (cons #\* result))) ((string? x) (let ((n (string-length x))) (let loop ((i 0)) (when (< i n) (set! result (cons (string-ref x i) result)) (loop (+ i 1)))))) ((pair? x) (set! result (cons #\( result)) (let loop ((x x)) (cond ((null? (cdr x)) (display-to-result (car x))) ((pair? (cdr x)) (display-to-result (car x)) (set! result (cons #\space result)) (loop (cdr x))) (else (display-to-result (car x)) (set! result (cons #\space result)) (display-to-result (cdr x))))) (set! result (cons #\) result))) ((vector? x) (set! result (cons #\# result)) (set! result (cons #\( result)) (let ((n (vector-length x))) (unless (zero? n) (display-to-result (vector-ref x 0)) (let loop ((i 1)) (unless (= i n) (set! result (cons #\space result)) (display-to-result (vector-ref x i)) (loop (+ i 1)))))) (set! result (cons #\) result))) (else (panic "FORMAT with DISPLAY-methods is not (yet) implemented")))) (unless (negative? n) (let loop ((i 0)) (let ((char (string-ref format-string i))) (cond (twiddle? (case char ((#\a #\A) (when (null? arguments) (panic "Too few FORMAT arguments")) (display-to-result (car arguments)) (set! arguments (cdr arguments))) ((#\s #\S) (when (null? arguments) (panic "Too few FORMAT arguments")) (write-to-result (car arguments)) (set! arguments (cdr arguments))) ((#\~) (set! result (cons #\~ result))) ((#\%) (set! result (cons #\newline result))) (else (panic "Improper FORMAT directive"))) (set! twiddle? #f)) ((char=? char #\~) (set! twiddle? #t)) (else (set! result (cons char result)))) (cond ((< i n) (loop (+ i 1))) ((not (null? arguments)) (panic "Too many FORMAT arguments")) (twiddle? (panic "Twiddle at end of FORMAT string")) (else (list->string (reverse result))))))))) (else (panic "Improper FORMAT destination")))) (define exit (foreign-procedure (int) no-return "exit" "stdlib")) (define system (foreign-procedure (char*) int "system" "stdlib")) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/include/gl.sc0000600017435200151030000017746306704715156014002 0ustar qobiqobi;;; ;;; FFI to access for GL, GLU, GLX, and GLUT from Allegro Common Lisp ;;; ;;; Richard Mann ;;; 31 October 1996 ;;; 18 May 1998 ;;; ;;; Copyright 1996 and 1997 University of Toronto. All rights reserved. ;;; Copyright 1998 NEC Research Institute, Inc. All rights reserved. (in-package :gl) ;;; ;;; GL ;;; (foreign-define GL_FALSE 0) (foreign-define GL_TRUE 1) (foreign-define GL_BYTE 5120) (foreign-define GL_UNSIGNED_BYTE 5121) (foreign-define GL_SHORT 5122) (foreign-define GL_UNSIGNED_SHORT 5123) (foreign-define GL_INT 5124) (foreign-define GL_UNSIGNED_INT 5125) (foreign-define GL_FLOAT 5126) (foreign-define GL_2_BYTES 5127) (foreign-define GL_3_BYTES 5128) (foreign-define GL_4_BYTES 5129) (foreign-define GL_LINES 1) (foreign-define GL_POINTS 0) (foreign-define GL_LINE_STRIP 3) (foreign-define GL_LINE_LOOP 2) (foreign-define GL_TRIANGLES 4) (foreign-define GL_TRIANGLE_STRIP 5) (foreign-define GL_TRIANGLE_FAN 6) (foreign-define GL_QUADS 7) (foreign-define GL_QUAD_STRIP 8) (foreign-define GL_POLYGON 9) (foreign-define GL_EDGE_FLAG 2883) (foreign-define GL_MATRIX_MODE 2976) (foreign-define GL_MODELVIEW 5888) (foreign-define GL_PROJECTION 5889) (foreign-define GL_TEXTURE 5890) (foreign-define GL_POINT_SMOOTH 2832) (foreign-define GL_POINT_SIZE 2833) (foreign-define GL_POINT_SIZE_GRANULARITY 2835) (foreign-define GL_POINT_SIZE_RANGE 2834) (foreign-define GL_LINE_SMOOTH 2848) (foreign-define GL_LINE_STIPPLE 2852) (foreign-define GL_LINE_STIPPLE_PATTERN 2853) (foreign-define GL_LINE_STIPPLE_REPEAT 2854) (foreign-define GL_LINE_WIDTH 2849) (foreign-define GL_LINE_WIDTH_GRANULARITY 2851) (foreign-define GL_LINE_WIDTH_RANGE 2850) (foreign-define GL_POINT 6912) (foreign-define GL_LINE 6913) (foreign-define GL_FILL 6914) (foreign-define GL_CCW 2305) (foreign-define GL_CW 2304) (foreign-define GL_FRONT 1028) (foreign-define GL_BACK 1029) (foreign-define GL_CULL_FACE 2884) (foreign-define GL_CULL_FACE_MODE 2885) (foreign-define GL_POLYGON_SMOOTH 2881) (foreign-define GL_POLYGON_STIPPLE 2882) (foreign-define GL_FRONT_FACE 2886) (foreign-define GL_POLYGON_MODE 2880) (foreign-define GL_COMPILE 4864) (foreign-define GL_COMPILE_AND_EXECUTE 4865) (foreign-define GL_LIST_BASE 2866) (foreign-define GL_LIST_INDEX 2867) (foreign-define GL_LIST_MODE 2864) (foreign-define GL_NEVER 512) (foreign-define GL_LESS 513) (foreign-define GL_GEQUAL 518) (foreign-define GL_LEQUAL 515) (foreign-define GL_GREATER 516) (foreign-define GL_NOTEQUAL 517) (foreign-define GL_EQUAL 514) (foreign-define GL_ALWAYS 519) (foreign-define GL_DEPTH_TEST 2929) (foreign-define GL_DEPTH_BITS 3414) (foreign-define GL_DEPTH_CLEAR_VALUE 2931) (foreign-define GL_DEPTH_FUNC 2932) (foreign-define GL_DEPTH_RANGE 2928) (foreign-define GL_DEPTH_WRITEMASK 2930) (foreign-define GL_DEPTH_COMPONENT 6402) (foreign-define GL_LIGHTING 2896) (foreign-define GL_LIGHT0 16384) (foreign-define GL_LIGHT1 16385) (foreign-define GL_LIGHT2 16386) (foreign-define GL_LIGHT3 16387) (foreign-define GL_LIGHT4 16388) (foreign-define GL_LIGHT5 16389) (foreign-define GL_LIGHT6 16390) (foreign-define GL_LIGHT7 16391) (foreign-define GL_SPOT_EXPONENT 4613) (foreign-define GL_SPOT_CUTOFF 4614) (foreign-define GL_CONSTANT_ATTENUATION 4615) (foreign-define GL_LINEAR_ATTENUATION 4616) (foreign-define GL_QUADRATIC_ATTENUATION 4617) (foreign-define GL_AMBIENT 4608) (foreign-define GL_DIFFUSE 4609) (foreign-define GL_SPECULAR 4610) (foreign-define GL_SHININESS 5633) (foreign-define GL_EMISSION 5632) (foreign-define GL_POSITION 4611) (foreign-define GL_SPOT_DIRECTION 4612) (foreign-define GL_AMBIENT_AND_DIFFUSE 5634) (foreign-define GL_COLOR_INDEXES 5635) (foreign-define GL_LIGHT_MODEL_TWO_SIDE 2898) (foreign-define GL_LIGHT_MODEL_LOCAL_VIEWER 2897) (foreign-define GL_LIGHT_MODEL_AMBIENT 2899) (foreign-define GL_FRONT_AND_BACK 1032) (foreign-define GL_SHADE_MODEL 2900) (foreign-define GL_FLAT 7424) (foreign-define GL_SMOOTH 7425) (foreign-define GL_COLOR_MATERIAL 2903) (foreign-define GL_COLOR_MATERIAL_FACE 2901) (foreign-define GL_COLOR_MATERIAL_PARAMETER 2902) (foreign-define GL_NORMALIZE 2977) (foreign-define GL_CLIP_PLANE0 12288) (foreign-define GL_CLIP_PLANE1 12289) (foreign-define GL_CLIP_PLANE2 12290) (foreign-define GL_CLIP_PLANE3 12291) (foreign-define GL_CLIP_PLANE4 12292) (foreign-define GL_CLIP_PLANE5 12293) (foreign-define GL_ACCUM_RED_BITS 3416) (foreign-define GL_ACCUM_GREEN_BITS 3417) (foreign-define GL_ACCUM_BLUE_BITS 3418) (foreign-define GL_ACCUM_ALPHA_BITS 3419) (foreign-define GL_ACCUM_CLEAR_VALUE 2944) (foreign-define GL_ACCUM 256) (foreign-define GL_ADD 260) (foreign-define GL_LOAD 257) (foreign-define GL_MULT 259) (foreign-define GL_RETURN 258) (foreign-define GL_ALPHA_TEST 3008) (foreign-define GL_ALPHA_TEST_REF 3010) (foreign-define GL_ALPHA_TEST_FUNC 3009) (foreign-define GL_BLEND 3042) (foreign-define GL_BLEND_SRC 3041) (foreign-define GL_BLEND_DST 3040) (foreign-define GL_ZERO 0) (foreign-define GL_ONE 1) (foreign-define GL_SRC_COLOR 768) (foreign-define GL_ONE_MINUS_SRC_COLOR 769) (foreign-define GL_DST_COLOR 774) (foreign-define GL_ONE_MINUS_DST_COLOR 775) (foreign-define GL_SRC_ALPHA 770) (foreign-define GL_ONE_MINUS_SRC_ALPHA 771) (foreign-define GL_DST_ALPHA 772) (foreign-define GL_ONE_MINUS_DST_ALPHA 773) (foreign-define GL_SRC_ALPHA_SATURATE 776) (foreign-define GL_FEEDBACK 7169) (foreign-define GL_RENDER 7168) (foreign-define GL_SELECT 7170) (foreign-define GL_2D 1536) (foreign-define GL_3D 1537) (foreign-define GL_3D_COLOR 1538) (foreign-define GL_3D_COLOR_TEXTURE 1539) (foreign-define GL_4D_COLOR_TEXTURE 1540) (foreign-define GL_POINT_TOKEN 1793) (foreign-define GL_LINE_TOKEN 1794) (foreign-define GL_LINE_RESET_TOKEN 1799) (foreign-define GL_POLYGON_TOKEN 1795) (foreign-define GL_BITMAP_TOKEN 1796) (foreign-define GL_DRAW_PIXEL_TOKEN 1797) (foreign-define GL_COPY_PIXEL_TOKEN 1798) (foreign-define GL_PASS_THROUGH_TOKEN 1792) (foreign-define GL_FOG 2912) (foreign-define GL_FOG_MODE 2917) (foreign-define GL_FOG_DENSITY 2914) (foreign-define GL_FOG_COLOR 2918) (foreign-define GL_FOG_INDEX 2913) (foreign-define GL_FOG_START 2915) (foreign-define GL_FOG_END 2916) (foreign-define GL_LINEAR 9729) (foreign-define GL_EXP 2048) (foreign-define GL_EXP2 2049) (foreign-define GL_LOGIC_OP 3057) (foreign-define GL_LOGIC_OP_MODE 3056) (foreign-define GL_CLEAR 5376) (foreign-define GL_SET 5391) (foreign-define GL_COPY 5379) (foreign-define GL_COPY_INVERTED 5388) (foreign-define GL_NOOP 5381) (foreign-define GL_INVERT 5386) (foreign-define GL_AND 5377) (foreign-define GL_NAND 5390) (foreign-define GL_OR 5383) (foreign-define GL_NOR 5384) (foreign-define GL_XOR 5382) (foreign-define GL_EQUIV 5385) (foreign-define GL_AND_REVERSE 5378) (foreign-define GL_AND_INVERTED 5380) (foreign-define GL_OR_REVERSE 5387) (foreign-define GL_OR_INVERTED 5389) (foreign-define GL_STENCIL_TEST 2960) (foreign-define GL_STENCIL_WRITEMASK 2968) (foreign-define GL_STENCIL_BITS 3415) (foreign-define GL_STENCIL_FUNC 2962) (foreign-define GL_STENCIL_VALUE_MASK 2963) (foreign-define GL_STENCIL_REF 2967) (foreign-define GL_STENCIL_FAIL 2964) (foreign-define GL_STENCIL_PASS_DEPTH_PASS 2966) (foreign-define GL_STENCIL_PASS_DEPTH_FAIL 2965) (foreign-define GL_STENCIL_CLEAR_VALUE 2961) (foreign-define GL_STENCIL_INDEX 6401) (foreign-define GL_KEEP 7680) (foreign-define GL_REPLACE 7681) (foreign-define GL_INCR 7682) (foreign-define GL_DECR 7683) (foreign-define GL_NONE 0) (foreign-define GL_LEFT 1030) (foreign-define GL_RIGHT 1031) (foreign-define GL_FRONT_LEFT 1024) (foreign-define GL_FRONT_RIGHT 1025) (foreign-define GL_BACK_LEFT 1026) (foreign-define GL_BACK_RIGHT 1027) (foreign-define GL_AUX0 1033) (foreign-define GL_AUX1 1034) (foreign-define GL_AUX2 1035) (foreign-define GL_AUX3 1036) (foreign-define GL_COLOR_INDEX 6400) (foreign-define GL_RED 6403) (foreign-define GL_GREEN 6404) (foreign-define GL_BLUE 6405) (foreign-define GL_ALPHA 6406) (foreign-define GL_LUMINANCE 6409) (foreign-define GL_LUMINANCE_ALPHA 6410) (foreign-define GL_ALPHA_BITS 3413) (foreign-define GL_RED_BITS 3410) (foreign-define GL_GREEN_BITS 3411) (foreign-define GL_BLUE_BITS 3412) (foreign-define GL_INDEX_BITS 3409) (foreign-define GL_SUBPIXEL_BITS 3408) (foreign-define GL_AUX_BUFFERS 3072) (foreign-define GL_READ_BUFFER 3074) (foreign-define GL_DRAW_BUFFER 3073) (foreign-define GL_DOUBLEBUFFER 3122) (foreign-define GL_STEREO 3123) (foreign-define GL_BITMAP 6656) (foreign-define GL_COLOR 6144) (foreign-define GL_DEPTH 6145) (foreign-define GL_STENCIL 6146) (foreign-define GL_DITHER 3024) (foreign-define GL_RGB 6407) (foreign-define GL_RGBA 6408) (foreign-define GL_MAX_MODELVIEW_STACK_DEPTH 3382) (foreign-define GL_MAX_PROJECTION_STACK_DEPTH 3384) (foreign-define GL_MAX_TEXTURE_STACK_DEPTH 3385) (foreign-define GL_MAX_ATTRIB_STACK_DEPTH 3381) (foreign-define GL_MAX_NAME_STACK_DEPTH 3383) (foreign-define GL_MAX_LIST_NESTING 2865) (foreign-define GL_MAX_LIGHTS 3377) (foreign-define GL_MAX_CLIP_PLANES 3378) (foreign-define GL_MAX_VIEWPORT_DIMS 3386) (foreign-define GL_MAX_PIXEL_MAP_TABLE 3380) (foreign-define GL_MAX_EVAL_ORDER 3376) (foreign-define GL_MAX_TEXTURE_SIZE 3379) (foreign-define GL_ATTRIB_STACK_DEPTH 2992) (foreign-define GL_COLOR_CLEAR_VALUE 3106) (foreign-define GL_COLOR_WRITEMASK 3107) (foreign-define GL_CURRENT_INDEX 2817) (foreign-define GL_CURRENT_COLOR 2816) (foreign-define GL_CURRENT_NORMAL 2818) (foreign-define GL_CURRENT_RASTER_COLOR 2820) (foreign-define GL_CURRENT_RASTER_DISTANCE 2825) (foreign-define GL_CURRENT_RASTER_INDEX 2821) (foreign-define GL_CURRENT_RASTER_POSITION 2823) (foreign-define GL_CURRENT_RASTER_TEXTURE_COORDS 2822) (foreign-define GL_CURRENT_RASTER_POSITION_VALID 2824) (foreign-define GL_CURRENT_TEXTURE_COORDS 2819) (foreign-define GL_INDEX_CLEAR_VALUE 3104) (foreign-define GL_INDEX_MODE 3120) (foreign-define GL_INDEX_WRITEMASK 3105) (foreign-define GL_MODELVIEW_MATRIX 2982) (foreign-define GL_MODELVIEW_STACK_DEPTH 2979) (foreign-define GL_NAME_STACK_DEPTH 3440) (foreign-define GL_PROJECTION_MATRIX 2983) (foreign-define GL_PROJECTION_STACK_DEPTH 2980) (foreign-define GL_RENDER_MODE 3136) (foreign-define GL_RGBA_MODE 3121) (foreign-define GL_TEXTURE_MATRIX 2984) (foreign-define GL_TEXTURE_STACK_DEPTH 2981) (foreign-define GL_VIEWPORT 2978) (foreign-define GL_AUTO_NORMAL 3456) (foreign-define GL_MAP1_COLOR_4 3472) (foreign-define GL_MAP1_GRID_DOMAIN 3536) (foreign-define GL_MAP1_GRID_SEGMENTS 3537) (foreign-define GL_MAP1_INDEX 3473) (foreign-define GL_MAP1_NORMAL 3474) (foreign-define GL_MAP1_TEXTURE_COORD_1 3475) (foreign-define GL_MAP1_TEXTURE_COORD_2 3476) (foreign-define GL_MAP1_TEXTURE_COORD_3 3477) (foreign-define GL_MAP1_TEXTURE_COORD_4 3478) (foreign-define GL_MAP1_VERTEX_3 3479) (foreign-define GL_MAP1_VERTEX_4 3480) (foreign-define GL_MAP2_COLOR_4 3504) (foreign-define GL_MAP2_GRID_DOMAIN 3538) (foreign-define GL_MAP2_GRID_SEGMENTS 3539) (foreign-define GL_MAP2_INDEX 3505) (foreign-define GL_MAP2_NORMAL 3506) (foreign-define GL_MAP2_TEXTURE_COORD_1 3507) (foreign-define GL_MAP2_TEXTURE_COORD_2 3508) (foreign-define GL_MAP2_TEXTURE_COORD_3 3509) (foreign-define GL_MAP2_TEXTURE_COORD_4 3510) (foreign-define GL_MAP2_VERTEX_3 3511) (foreign-define GL_MAP2_VERTEX_4 3512) (foreign-define GL_COEFF 2560) (foreign-define GL_DOMAIN 2562) (foreign-define GL_ORDER 2561) (foreign-define GL_FOG_HINT 3156) (foreign-define GL_LINE_SMOOTH_HINT 3154) (foreign-define GL_PERSPECTIVE_CORRECTION_HINT 3152) (foreign-define GL_POINT_SMOOTH_HINT 3153) (foreign-define GL_POLYGON_SMOOTH_HINT 3155) (foreign-define GL_DONT_CARE 4352) (foreign-define GL_FASTEST 4353) (foreign-define GL_NICEST 4354) (foreign-define GL_SCISSOR_TEST 3089) (foreign-define GL_SCISSOR_BOX 3088) (foreign-define GL_MAP_COLOR 3344) (foreign-define GL_MAP_STENCIL 3345) (foreign-define GL_INDEX_SHIFT 3346) (foreign-define GL_INDEX_OFFSET 3347) (foreign-define GL_RED_SCALE 3348) (foreign-define GL_RED_BIAS 3349) (foreign-define GL_GREEN_SCALE 3352) (foreign-define GL_GREEN_BIAS 3353) (foreign-define GL_BLUE_SCALE 3354) (foreign-define GL_BLUE_BIAS 3355) (foreign-define GL_ALPHA_SCALE 3356) (foreign-define GL_ALPHA_BIAS 3357) (foreign-define GL_DEPTH_SCALE 3358) (foreign-define GL_DEPTH_BIAS 3359) (foreign-define GL_PIXEL_MAP_S_TO_S_SIZE 3249) (foreign-define GL_PIXEL_MAP_I_TO_I_SIZE 3248) (foreign-define GL_PIXEL_MAP_I_TO_R_SIZE 3250) (foreign-define GL_PIXEL_MAP_I_TO_G_SIZE 3251) (foreign-define GL_PIXEL_MAP_I_TO_B_SIZE 3252) (foreign-define GL_PIXEL_MAP_I_TO_A_SIZE 3253) (foreign-define GL_PIXEL_MAP_R_TO_R_SIZE 3254) (foreign-define GL_PIXEL_MAP_G_TO_G_SIZE 3255) (foreign-define GL_PIXEL_MAP_B_TO_B_SIZE 3256) (foreign-define GL_PIXEL_MAP_A_TO_A_SIZE 3257) (foreign-define GL_PIXEL_MAP_S_TO_S 3185) (foreign-define GL_PIXEL_MAP_I_TO_I 3184) (foreign-define GL_PIXEL_MAP_I_TO_R 3186) (foreign-define GL_PIXEL_MAP_I_TO_G 3187) (foreign-define GL_PIXEL_MAP_I_TO_B 3188) (foreign-define GL_PIXEL_MAP_I_TO_A 3189) (foreign-define GL_PIXEL_MAP_R_TO_R 3190) (foreign-define GL_PIXEL_MAP_G_TO_G 3191) (foreign-define GL_PIXEL_MAP_B_TO_B 3192) (foreign-define GL_PIXEL_MAP_A_TO_A 3193) (foreign-define GL_PACK_ALIGNMENT 3333) (foreign-define GL_PACK_LSB_FIRST 3329) (foreign-define GL_PACK_ROW_LENGTH 3330) (foreign-define GL_PACK_SKIP_PIXELS 3332) (foreign-define GL_PACK_SKIP_ROWS 3331) (foreign-define GL_PACK_SWAP_BYTES 3328) (foreign-define GL_UNPACK_ALIGNMENT 3317) (foreign-define GL_UNPACK_LSB_FIRST 3313) (foreign-define GL_UNPACK_ROW_LENGTH 3314) (foreign-define GL_UNPACK_SKIP_PIXELS 3316) (foreign-define GL_UNPACK_SKIP_ROWS 3315) (foreign-define GL_UNPACK_SWAP_BYTES 3312) (foreign-define GL_ZOOM_X 3350) (foreign-define GL_ZOOM_Y 3351) (foreign-define GL_TEXTURE_ENV 8960) (foreign-define GL_TEXTURE_ENV_MODE 8704) (foreign-define GL_TEXTURE_1D 3552) (foreign-define GL_TEXTURE_2D 3553) (foreign-define GL_TEXTURE_WRAP_S 10242) (foreign-define GL_TEXTURE_WRAP_T 10243) (foreign-define GL_TEXTURE_MAG_FILTER 10240) (foreign-define GL_TEXTURE_MIN_FILTER 10241) (foreign-define GL_TEXTURE_ENV_COLOR 8705) (foreign-define GL_TEXTURE_GEN_S 3168) (foreign-define GL_TEXTURE_GEN_T 3169) (foreign-define GL_TEXTURE_GEN_MODE 9472) (foreign-define GL_TEXTURE_BORDER_COLOR 4100) (foreign-define GL_TEXTURE_WIDTH 4096) (foreign-define GL_TEXTURE_HEIGHT 4097) (foreign-define GL_TEXTURE_BORDER 4101) (foreign-define GL_TEXTURE_COMPONENTS 4099) (foreign-define GL_NEAREST_MIPMAP_NEAREST 9984) (foreign-define GL_NEAREST_MIPMAP_LINEAR 9986) (foreign-define GL_LINEAR_MIPMAP_NEAREST 9985) (foreign-define GL_LINEAR_MIPMAP_LINEAR 9987) (foreign-define GL_OBJECT_LINEAR 9217) (foreign-define GL_OBJECT_PLANE 9473) (foreign-define GL_EYE_LINEAR 9216) (foreign-define GL_EYE_PLANE 9474) (foreign-define GL_SPHERE_MAP 9218) (foreign-define GL_DECAL 8449) (foreign-define GL_MODULATE 8448) (foreign-define GL_NEAREST 9728) (foreign-define GL_REPEAT 10497) (foreign-define GL_CLAMP 10496) (foreign-define GL_S 8192) (foreign-define GL_T 8193) (foreign-define GL_R 8194) (foreign-define GL_Q 8195) (foreign-define GL_TEXTURE_GEN_R 3170) (foreign-define GL_TEXTURE_GEN_Q 3171) (foreign-define GL_VENDOR 7936) (foreign-define GL_RENDERER 7937) (foreign-define GL_VERSION 7938) (foreign-define GL_EXTENSIONS 7939) (foreign-define GL_INVALID_VALUE 1281) (foreign-define GL_INVALID_ENUM 1280) (foreign-define GL_INVALID_OPERATION 1282) (foreign-define GL_STACK_OVERFLOW 1283) (foreign-define GL_STACK_UNDERFLOW 1284) (foreign-define GL_OUT_OF_MEMORY 1285) (foreign-define GL_CONSTANT_COLOR_EXT 32769) (foreign-define GL_ONE_MINUS_CONSTANT_COLOR_EXT 32770) (foreign-define GL_CONSTANT_ALPHA_EXT 32771) (foreign-define GL_ONE_MINUS_CONSTANT_ALPHA_EXT 32772) (foreign-define GL_BLEND_EQUATION_EXT 32777) (foreign-define GL_MIN_EXT 32775) (foreign-define GL_MAX_EXT 32776) (foreign-define GL_FUNC_ADD_EXT 32774) (foreign-define GL_FUNC_SUBTRACT_EXT 32778) (foreign-define GL_FUNC_REVERSE_SUBTRACT_EXT 32779) (foreign-define GL_BLEND_COLOR_EXT 32773) (foreign-define GL_REPLACE_EXT 32866) (foreign-define GL_POLYGON_OFFSET_EXT 32823) (foreign-define GL_POLYGON_OFFSET_FACTOR_EXT 32824) (foreign-define GL_POLYGON_OFFSET_BIAS_EXT 32825) (foreign-define GL_CURRENT_BIT 1) (foreign-define GL_POINT_BIT 2) (foreign-define GL_LINE_BIT 4) (foreign-define GL_POLYGON_BIT 8) (foreign-define GL_POLYGON_STIPPLE_BIT 16) (foreign-define GL_PIXEL_MODE_BIT 32) (foreign-define GL_LIGHTING_BIT 64) (foreign-define GL_FOG_BIT 128) (foreign-define GL_DEPTH_BUFFER_BIT 256) (foreign-define GL_ACCUM_BUFFER_BIT 512) (foreign-define GL_STENCIL_BUFFER_BIT 1024) (foreign-define GL_VIEWPORT_BIT 2048) (foreign-define GL_TRANSFORM_BIT 4096) (foreign-define GL_ENABLE_BIT 8192) (foreign-define GL_COLOR_BUFFER_BIT 16384) (foreign-define GL_HINT_BIT 32768) (foreign-define GL_EVAL_BIT 65536) (foreign-define GL_LIST_BIT 131072) (foreign-define GL_TEXTURE_BIT 262144) (foreign-define GL_SCISSOR_BIT 524288) (foreign-define GL_ALL_ATTRIB_BITS 1048575) (foreign-function glclearindex (FLOAT) VOID "glClearIndex") (foreign-function glclearcolor (FLOAT FLOAT FLOAT FLOAT) VOID "glClearColor") (foreign-function glclear (INT) VOID "glClear") (foreign-function glindexmask (UNSIGNED-INT) VOID "glIndexMask") (foreign-function glcolormask (UNSIGNED-CHAR UNSIGNED-CHAR UNSIGNED-CHAR UNSIGNED-CHAR) VOID "glColorMask") (foreign-function glalphafunc (INT FLOAT) VOID "glAlphaFunc") (foreign-function glblendfunc (INT INT) VOID "glBlendFunc") (foreign-function gllogicop (INT) VOID "glLogicOp") (foreign-function glcullface (INT) VOID "glCullFace") (foreign-function glfrontface (INT) VOID "glFrontFace") (foreign-function glpointsize (FLOAT) VOID "glPointSize") (foreign-function gllinewidth (FLOAT) VOID "glLineWidth") (foreign-function gllinestipple (INT UNSIGNED-SHORT) VOID "glLineStipple") (foreign-function glpolygonmode (INT INT) VOID "glPolygonMode") (foreign-function glpolygonstipple ((POINTER UNSIGNED-CHAR)) VOID "glPolygonStipple") (foreign-function glgetpolygonstipple ((POINTER UNSIGNED-CHAR)) VOID "glGetPolygonStipple") (foreign-function gledgeflag (UNSIGNED-CHAR) VOID "glEdgeFlag") (foreign-function gledgeflagv ((POINTER UNSIGNED-CHAR)) VOID "glEdgeFlagv") (foreign-function glscissor (INT INT INT INT) VOID "glScissor") (foreign-function glclipplane (INT (POINTER DOUBLE)) VOID "glClipPlane") (foreign-function glgetclipplane (INT (POINTER DOUBLE)) VOID "glGetClipPlane") (foreign-function gldrawbuffer (INT) VOID "glDrawBuffer") (foreign-function glreadbuffer (INT) VOID "glReadBuffer") (foreign-function glenable (INT) VOID "glEnable") (foreign-function gldisable (INT) VOID "glDisable") (foreign-function glisenabled (INT) UNSIGNED-CHAR "glIsEnabled") (foreign-function glgetbooleanv (INT (POINTER UNSIGNED-CHAR)) VOID "glGetBooleanv") (foreign-function glgetdoublev (INT (POINTER DOUBLE)) VOID "glGetDoublev") (foreign-function glgetfloatv (INT (POINTER FLOAT)) VOID "glGetFloatv") (foreign-function glgetintegerv (INT (POINTER INT)) VOID "glGetIntegerv") (foreign-function glpushattrib (INT) VOID "glPushAttrib") (foreign-function glpopattrib () VOID "glPopAttrib") (foreign-function glrendermode (INT) INT "glRenderMode") (foreign-function glgeterror () INT "glGetError") (foreign-function glgetstring (INT) (POINTER UNSIGNED-CHAR) "glGetString") (foreign-function glfinish () VOID "glFinish") (foreign-function glflush () VOID "glFlush") (foreign-function glhint (INT INT) VOID "glHint") (foreign-function glcleardepth (DOUBLE) VOID "glClearDepth") (foreign-function gldepthfunc (INT) VOID "glDepthFunc") (foreign-function gldepthmask (UNSIGNED-CHAR) VOID "glDepthMask") (foreign-function gldepthrange (DOUBLE DOUBLE) VOID "glDepthRange") (foreign-function glclearaccum (FLOAT FLOAT FLOAT FLOAT) VOID "glClearAccum") (foreign-function glaccum (INT FLOAT) VOID "glAccum") (foreign-function glmatrixmode (INT) VOID "glMatrixMode") (foreign-function glortho (DOUBLE DOUBLE DOUBLE DOUBLE DOUBLE DOUBLE) VOID "glOrtho") (foreign-function glfrustum (DOUBLE DOUBLE DOUBLE DOUBLE DOUBLE DOUBLE) VOID "glFrustum") (foreign-function glviewport (INT INT INT INT) VOID "glViewport") (foreign-function glpushmatrix () VOID "glPushMatrix") (foreign-function glpopmatrix () VOID "glPopMatrix") (foreign-function glloadidentity () VOID "glLoadIdentity") (foreign-function glloadmatrixd ((POINTER DOUBLE)) VOID "glLoadMatrixd") (foreign-function glloadmatrixf ((POINTER FLOAT)) VOID "glLoadMatrixf") (foreign-function glmultmatrixd ((POINTER DOUBLE)) VOID "glMultMatrixd") (foreign-function glmultmatrixf ((POINTER FLOAT)) VOID "glMultMatrixf") (foreign-function glrotated (DOUBLE DOUBLE DOUBLE DOUBLE) VOID "glRotated") (foreign-function glrotatef (FLOAT FLOAT FLOAT FLOAT) VOID "glRotatef") (foreign-function glscaled (DOUBLE DOUBLE DOUBLE) VOID "glScaled") (foreign-function glscalef (FLOAT FLOAT FLOAT) VOID "glScalef") (foreign-function gltranslated (DOUBLE DOUBLE DOUBLE) VOID "glTranslated") (foreign-function gltranslatef (FLOAT FLOAT FLOAT) VOID "glTranslatef") (foreign-function glislist (UNSIGNED-INT) UNSIGNED-CHAR "glIsList") (foreign-function gldeletelists (UNSIGNED-INT INT) VOID "glDeleteLists") (foreign-function glgenlists (INT) UNSIGNED-INT "glGenLists") (foreign-function glnewlist (UNSIGNED-INT INT) VOID "glNewList") (foreign-function glendlist () VOID "glEndList") (foreign-function glcalllist (UNSIGNED-INT) VOID "glCallList") (foreign-function glcalllists (INT INT (POINTER VOID)) VOID "glCallLists") (foreign-function gllistbase (UNSIGNED-INT) VOID "glListBase") (foreign-function glbegin (INT) VOID "glBegin") (foreign-function glend () VOID "glEnd") (foreign-function glvertex2d (DOUBLE DOUBLE) VOID "glVertex2d") (foreign-function glvertex2f (FLOAT FLOAT) VOID "glVertex2f") (foreign-function glvertex2i (INT INT) VOID "glVertex2i") (foreign-function glvertex2s (SHORT SHORT) VOID "glVertex2s") (foreign-function glvertex3d (DOUBLE DOUBLE DOUBLE) VOID "glVertex3d") (foreign-function glvertex3f (FLOAT FLOAT FLOAT) VOID "glVertex3f") (foreign-function glvertex3i (INT INT INT) VOID "glVertex3i") (foreign-function glvertex3s (SHORT SHORT SHORT) VOID "glVertex3s") (foreign-function glvertex4d (DOUBLE DOUBLE DOUBLE DOUBLE) VOID "glVertex4d") (foreign-function glvertex4f (FLOAT FLOAT FLOAT FLOAT) VOID "glVertex4f") (foreign-function glvertex4i (INT INT INT INT) VOID "glVertex4i") (foreign-function glvertex4s (SHORT SHORT SHORT SHORT) VOID "glVertex4s") (foreign-function glvertex2dv ((POINTER DOUBLE)) VOID "glVertex2dv") (foreign-function glvertex2fv ((POINTER FLOAT)) VOID "glVertex2fv") (foreign-function glvertex2iv ((POINTER INT)) VOID "glVertex2iv") (foreign-function glvertex2sv ((POINTER SHORT)) VOID "glVertex2sv") (foreign-function glvertex3dv ((POINTER DOUBLE)) VOID "glVertex3dv") (foreign-function glvertex3fv ((POINTER FLOAT)) VOID "glVertex3fv") (foreign-function glvertex3iv ((POINTER INT)) VOID "glVertex3iv") (foreign-function glvertex3sv ((POINTER SHORT)) VOID "glVertex3sv") (foreign-function glvertex4dv ((POINTER DOUBLE)) VOID "glVertex4dv") (foreign-function glvertex4fv ((POINTER FLOAT)) VOID "glVertex4fv") (foreign-function glvertex4iv ((POINTER INT)) VOID "glVertex4iv") (foreign-function glvertex4sv ((POINTER SHORT)) VOID "glVertex4sv") (foreign-function glnormal3b (SIGNED-CHAR SIGNED-CHAR SIGNED-CHAR) VOID "glNormal3b") (foreign-function glnormal3d (DOUBLE DOUBLE DOUBLE) VOID "glNormal3d") (foreign-function glnormal3f (FLOAT FLOAT FLOAT) VOID "glNormal3f") (foreign-function glnormal3i (INT INT INT) VOID "glNormal3i") (foreign-function glnormal3s (SHORT SHORT SHORT) VOID "glNormal3s") (foreign-function glnormal3bv ((POINTER SIGNED-CHAR)) VOID "glNormal3bv") (foreign-function glnormal3dv ((POINTER DOUBLE)) VOID "glNormal3dv") (foreign-function glnormal3fv ((POINTER FLOAT)) VOID "glNormal3fv") (foreign-function glnormal3iv ((POINTER INT)) VOID "glNormal3iv") (foreign-function glnormal3sv ((POINTER SHORT)) VOID "glNormal3sv") (foreign-function glindexd (DOUBLE) VOID "glIndexd") (foreign-function glindexf (FLOAT) VOID "glIndexf") (foreign-function glindexi (INT) VOID "glIndexi") (foreign-function glindexs (SHORT) VOID "glIndexs") (foreign-function glindexdv ((POINTER DOUBLE)) VOID "glIndexdv") (foreign-function glindexfv ((POINTER FLOAT)) VOID "glIndexfv") (foreign-function glindexiv ((POINTER INT)) VOID "glIndexiv") (foreign-function glindexsv ((POINTER SHORT)) VOID "glIndexsv") (foreign-function glcolor3b (SIGNED-CHAR SIGNED-CHAR SIGNED-CHAR) VOID "glColor3b") (foreign-function glcolor3d (DOUBLE DOUBLE DOUBLE) VOID "glColor3d") (foreign-function glcolor3f (FLOAT FLOAT FLOAT) VOID "glColor3f") (foreign-function glcolor3i (INT INT INT) VOID "glColor3i") (foreign-function glcolor3s (SHORT SHORT SHORT) VOID "glColor3s") (foreign-function glcolor3ub (UNSIGNED-CHAR UNSIGNED-CHAR UNSIGNED-CHAR) VOID "glColor3ub") (foreign-function glcolor3ui (UNSIGNED-INT UNSIGNED-INT UNSIGNED-INT) VOID "glColor3ui") (foreign-function glcolor3us (UNSIGNED-SHORT UNSIGNED-SHORT UNSIGNED-SHORT) VOID "glColor3us") (foreign-function glcolor4b (SIGNED-CHAR SIGNED-CHAR SIGNED-CHAR SIGNED-CHAR) VOID "glColor4b") (foreign-function glcolor4d (DOUBLE DOUBLE DOUBLE DOUBLE) VOID "glColor4d") (foreign-function glcolor4f (FLOAT FLOAT FLOAT FLOAT) VOID "glColor4f") (foreign-function glcolor4i (INT INT INT INT) VOID "glColor4i") (foreign-function glcolor4s (SHORT SHORT SHORT SHORT) VOID "glColor4s") (foreign-function glcolor4ub (UNSIGNED-CHAR UNSIGNED-CHAR UNSIGNED-CHAR UNSIGNED-CHAR) VOID "glColor4ub") (foreign-function glcolor4ui (UNSIGNED-INT UNSIGNED-INT UNSIGNED-INT UNSIGNED-INT) VOID "glColor4ui") (foreign-function glcolor4us (UNSIGNED-SHORT UNSIGNED-SHORT UNSIGNED-SHORT UNSIGNED-SHORT) VOID "glColor4us") (foreign-function glcolor3bv ((POINTER SIGNED-CHAR)) VOID "glColor3bv") (foreign-function glcolor3dv ((POINTER DOUBLE)) VOID "glColor3dv") (foreign-function glcolor3fv ((POINTER FLOAT)) VOID "glColor3fv") (foreign-function glcolor3iv ((POINTER INT)) VOID "glColor3iv") (foreign-function glcolor3sv ((POINTER SHORT)) VOID "glColor3sv") (foreign-function glcolor3ubv ((POINTER UNSIGNED-CHAR)) VOID "glColor3ubv") (foreign-function glcolor3uiv ((POINTER UNSIGNED-INT)) VOID "glColor3uiv") (foreign-function glcolor3usv ((POINTER UNSIGNED-SHORT)) VOID "glColor3usv") (foreign-function glcolor4bv ((POINTER SIGNED-CHAR)) VOID "glColor4bv") (foreign-function glcolor4dv ((POINTER DOUBLE)) VOID "glColor4dv") (foreign-function glcolor4fv ((POINTER FLOAT)) VOID "glColor4fv") (foreign-function glcolor4iv ((POINTER INT)) VOID "glColor4iv") (foreign-function glcolor4sv ((POINTER SHORT)) VOID "glColor4sv") (foreign-function glcolor4ubv ((POINTER UNSIGNED-CHAR)) VOID "glColor4ubv") (foreign-function glcolor4uiv ((POINTER UNSIGNED-INT)) VOID "glColor4uiv") (foreign-function glcolor4usv ((POINTER UNSIGNED-SHORT)) VOID "glColor4usv") (foreign-function gltexcoord1d (DOUBLE) VOID "glTexCoord1d") (foreign-function gltexcoord1f (FLOAT) VOID "glTexCoord1f") (foreign-function gltexcoord1i (INT) VOID "glTexCoord1i") (foreign-function gltexcoord1s (SHORT) VOID "glTexCoord1s") (foreign-function gltexcoord2d (DOUBLE DOUBLE) VOID "glTexCoord2d") (foreign-function gltexcoord2f (FLOAT FLOAT) VOID "glTexCoord2f") (foreign-function gltexcoord2i (INT INT) VOID "glTexCoord2i") (foreign-function gltexcoord2s (SHORT SHORT) VOID "glTexCoord2s") (foreign-function gltexcoord3d (DOUBLE DOUBLE DOUBLE) VOID "glTexCoord3d") (foreign-function gltexcoord3f (FLOAT FLOAT FLOAT) VOID "glTexCoord3f") (foreign-function gltexcoord3i (INT INT INT) VOID "glTexCoord3i") (foreign-function gltexcoord3s (SHORT SHORT SHORT) VOID "glTexCoord3s") (foreign-function gltexcoord4d (DOUBLE DOUBLE DOUBLE DOUBLE) VOID "glTexCoord4d") (foreign-function gltexcoord4f (FLOAT FLOAT FLOAT FLOAT) VOID "glTexCoord4f") (foreign-function gltexcoord4i (INT INT INT INT) VOID "glTexCoord4i") (foreign-function gltexcoord4s (SHORT SHORT SHORT SHORT) VOID "glTexCoord4s") (foreign-function gltexcoord1dv ((POINTER DOUBLE)) VOID "glTexCoord1dv") (foreign-function gltexcoord1fv ((POINTER FLOAT)) VOID "glTexCoord1fv") (foreign-function gltexcoord1iv ((POINTER INT)) VOID "glTexCoord1iv") (foreign-function gltexcoord1sv ((POINTER SHORT)) VOID "glTexCoord1sv") (foreign-function gltexcoord2dv ((POINTER DOUBLE)) VOID "glTexCoord2dv") (foreign-function gltexcoord2fv ((POINTER FLOAT)) VOID "glTexCoord2fv") (foreign-function gltexcoord2iv ((POINTER INT)) VOID "glTexCoord2iv") (foreign-function gltexcoord2sv ((POINTER SHORT)) VOID "glTexCoord2sv") (foreign-function gltexcoord3dv ((POINTER DOUBLE)) VOID "glTexCoord3dv") (foreign-function gltexcoord3fv ((POINTER FLOAT)) VOID "glTexCoord3fv") (foreign-function gltexcoord3iv ((POINTER INT)) VOID "glTexCoord3iv") (foreign-function gltexcoord3sv ((POINTER SHORT)) VOID "glTexCoord3sv") (foreign-function gltexcoord4dv ((POINTER DOUBLE)) VOID "glTexCoord4dv") (foreign-function gltexcoord4fv ((POINTER FLOAT)) VOID "glTexCoord4fv") (foreign-function gltexcoord4iv ((POINTER INT)) VOID "glTexCoord4iv") (foreign-function gltexcoord4sv ((POINTER SHORT)) VOID "glTexCoord4sv") (foreign-function glrasterpos2d (DOUBLE DOUBLE) VOID "glRasterPos2d") (foreign-function glrasterpos2f (FLOAT FLOAT) VOID "glRasterPos2f") (foreign-function glrasterpos2i (INT INT) VOID "glRasterPos2i") (foreign-function glrasterpos2s (SHORT SHORT) VOID "glRasterPos2s") (foreign-function glrasterpos3d (DOUBLE DOUBLE DOUBLE) VOID "glRasterPos3d") (foreign-function glrasterpos3f (FLOAT FLOAT FLOAT) VOID "glRasterPos3f") (foreign-function glrasterpos3i (INT INT INT) VOID "glRasterPos3i") (foreign-function glrasterpos3s (SHORT SHORT SHORT) VOID "glRasterPos3s") (foreign-function glrasterpos4d (DOUBLE DOUBLE DOUBLE DOUBLE) VOID "glRasterPos4d") (foreign-function glrasterpos4f (FLOAT FLOAT FLOAT FLOAT) VOID "glRasterPos4f") (foreign-function glrasterpos4i (INT INT INT INT) VOID "glRasterPos4i") (foreign-function glrasterpos4s (SHORT SHORT SHORT SHORT) VOID "glRasterPos4s") (foreign-function glrasterpos2dv ((POINTER DOUBLE)) VOID "glRasterPos2dv") (foreign-function glrasterpos2fv ((POINTER FLOAT)) VOID "glRasterPos2fv") (foreign-function glrasterpos2iv ((POINTER INT)) VOID "glRasterPos2iv") (foreign-function glrasterpos2sv ((POINTER SHORT)) VOID "glRasterPos2sv") (foreign-function glrasterpos3dv ((POINTER DOUBLE)) VOID "glRasterPos3dv") (foreign-function glrasterpos3fv ((POINTER FLOAT)) VOID "glRasterPos3fv") (foreign-function glrasterpos3iv ((POINTER INT)) VOID "glRasterPos3iv") (foreign-function glrasterpos3sv ((POINTER SHORT)) VOID "glRasterPos3sv") (foreign-function glrasterpos4dv ((POINTER DOUBLE)) VOID "glRasterPos4dv") (foreign-function glrasterpos4fv ((POINTER FLOAT)) VOID "glRasterPos4fv") (foreign-function glrasterpos4iv ((POINTER INT)) VOID "glRasterPos4iv") (foreign-function glrasterpos4sv ((POINTER SHORT)) VOID "glRasterPos4sv") (foreign-function glrectd (DOUBLE DOUBLE DOUBLE DOUBLE) VOID "glRectd") (foreign-function glrectf (FLOAT FLOAT FLOAT FLOAT) VOID "glRectf") (foreign-function glrecti (INT INT INT INT) VOID "glRecti") (foreign-function glrects (SHORT SHORT SHORT SHORT) VOID "glRects") (foreign-function glrectdv ((POINTER DOUBLE) (POINTER DOUBLE)) VOID "glRectdv") (foreign-function glrectfv ((POINTER FLOAT) (POINTER FLOAT)) VOID "glRectfv") (foreign-function glrectiv ((POINTER INT) (POINTER INT)) VOID "glRectiv") (foreign-function glrectsv ((POINTER SHORT) (POINTER SHORT)) VOID "glRectsv") (foreign-function glshademodel (INT) VOID "glShadeModel") (foreign-function gllightf (INT INT FLOAT) VOID "glLightf") (foreign-function gllighti (INT INT INT) VOID "glLighti") (foreign-function gllightfv (INT INT (POINTER FLOAT)) VOID "glLightfv") (foreign-function gllightiv (INT INT (POINTER INT)) VOID "glLightiv") (foreign-function glgetlightfv (INT INT (POINTER FLOAT)) VOID "glGetLightfv") (foreign-function glgetlightiv (INT INT (POINTER INT)) VOID "glGetLightiv") (foreign-function gllightmodelf (INT FLOAT) VOID "glLightModelf") (foreign-function gllightmodeli (INT INT) VOID "glLightModeli") (foreign-function gllightmodelfv (INT (POINTER FLOAT)) VOID "glLightModelfv") (foreign-function gllightmodeliv (INT (POINTER INT)) VOID "glLightModeliv") (foreign-function glmaterialf (INT INT FLOAT) VOID "glMaterialf") (foreign-function glmateriali (INT INT INT) VOID "glMateriali") (foreign-function glmaterialfv (INT INT (POINTER FLOAT)) VOID "glMaterialfv") (foreign-function glmaterialiv (INT INT (POINTER INT)) VOID "glMaterialiv") (foreign-function glgetmaterialfv (INT INT (POINTER FLOAT)) VOID "glGetMaterialfv") (foreign-function glgetmaterialiv (INT INT (POINTER INT)) VOID "glGetMaterialiv") (foreign-function glcolormaterial (INT INT) VOID "glColorMaterial") (foreign-function glpixelzoom (FLOAT FLOAT) VOID "glPixelZoom") (foreign-function glpixelstoref (INT FLOAT) VOID "glPixelStoref") (foreign-function glpixelstorei (INT INT) VOID "glPixelStorei") (foreign-function glpixeltransferf (INT FLOAT) VOID "glPixelTransferf") (foreign-function glpixeltransferi (INT INT) VOID "glPixelTransferi") (foreign-function glpixelmapfv (INT INT (POINTER FLOAT)) VOID "glPixelMapfv") (foreign-function glpixelmapuiv (INT INT (POINTER UNSIGNED-INT)) VOID "glPixelMapuiv") (foreign-function glpixelmapusv (INT INT (POINTER UNSIGNED-SHORT)) VOID "glPixelMapusv") (foreign-function glgetpixelmapfv (INT (POINTER FLOAT)) VOID "glGetPixelMapfv") (foreign-function glgetpixelmapuiv (INT (POINTER UNSIGNED-INT)) VOID "glGetPixelMapuiv") (foreign-function glgetpixelmapusv (INT (POINTER UNSIGNED-SHORT)) VOID "glGetPixelMapusv") (foreign-function glbitmap (INT INT FLOAT FLOAT FLOAT FLOAT (POINTER UNSIGNED-CHAR)) VOID "glBitmap") (foreign-function glreadpixels (INT INT INT INT INT INT (POINTER VOID)) VOID "glReadPixels") (foreign-function gldrawpixels (INT INT INT INT (POINTER VOID)) VOID "glDrawPixels") (foreign-function glcopypixels (INT INT INT INT INT) VOID "glCopyPixels") (foreign-function glstencilfunc (INT INT UNSIGNED-INT) VOID "glStencilFunc") (foreign-function glstencilmask (UNSIGNED-INT) VOID "glStencilMask") (foreign-function glstencilop (INT INT INT) VOID "glStencilOp") (foreign-function glclearstencil (INT) VOID "glClearStencil") (foreign-function gltexgend (INT INT DOUBLE) VOID "glTexGend") (foreign-function gltexgenf (INT INT FLOAT) VOID "glTexGenf") (foreign-function gltexgeni (INT INT INT) VOID "glTexGeni") (foreign-function gltexgendv (INT INT (POINTER DOUBLE)) VOID "glTexGendv") (foreign-function gltexgenfv (INT INT (POINTER FLOAT)) VOID "glTexGenfv") (foreign-function gltexgeniv (INT INT (POINTER INT)) VOID "glTexGeniv") (foreign-function glgettexgendv (INT INT (POINTER DOUBLE)) VOID "glGetTexGendv") (foreign-function glgettexgenfv (INT INT (POINTER FLOAT)) VOID "glGetTexGenfv") (foreign-function glgettexgeniv (INT INT (POINTER INT)) VOID "glGetTexGeniv") (foreign-function gltexenvf (INT INT FLOAT) VOID "glTexEnvf") (foreign-function gltexenvi (INT INT INT) VOID "glTexEnvi") (foreign-function gltexenvfv (INT INT (POINTER FLOAT)) VOID "glTexEnvfv") (foreign-function gltexenviv (INT INT (POINTER INT)) VOID "glTexEnviv") (foreign-function glgettexenvfv (INT INT (POINTER FLOAT)) VOID "glGetTexEnvfv") (foreign-function glgettexenviv (INT INT (POINTER INT)) VOID "glGetTexEnviv") (foreign-function gltexparameterf (INT INT FLOAT) VOID "glTexParameterf") (foreign-function gltexparameteri (INT INT INT) VOID "glTexParameteri") (foreign-function gltexparameterfv (INT INT (POINTER FLOAT)) VOID "glTexParameterfv") (foreign-function gltexparameteriv (INT INT (POINTER INT)) VOID "glTexParameteriv") (foreign-function glgettexparameterfv (INT INT (POINTER FLOAT)) VOID "glGetTexParameterfv") (foreign-function glgettexparameteriv (INT INT (POINTER INT)) VOID "glGetTexParameteriv") (foreign-function glgettexlevelparameterfv (INT INT INT (POINTER FLOAT)) VOID "glGetTexLevelParameterfv") (foreign-function glgettexlevelparameteriv (INT INT INT (POINTER INT)) VOID "glGetTexLevelParameteriv") (foreign-function glteximage1d (INT INT INT INT INT INT INT (POINTER VOID)) VOID "glTexImage1D") (foreign-function glteximage2d (INT INT INT INT INT INT INT INT (POINTER VOID)) VOID "glTexImage2D") (foreign-function glgetteximage (INT INT INT INT (POINTER VOID)) VOID "glGetTexImage") (foreign-function glmap1d (INT DOUBLE DOUBLE INT INT (POINTER DOUBLE)) VOID "glMap1d") (foreign-function glmap1f (INT FLOAT FLOAT INT INT (POINTER FLOAT)) VOID "glMap1f") (foreign-function glmap2d (INT DOUBLE DOUBLE INT INT DOUBLE DOUBLE INT INT (POINTER DOUBLE)) VOID "glMap2d") (foreign-function glmap2f (INT FLOAT FLOAT INT INT FLOAT FLOAT INT INT (POINTER FLOAT)) VOID "glMap2f") (foreign-function glgetmapdv (INT INT (POINTER DOUBLE)) VOID "glGetMapdv") (foreign-function glgetmapfv (INT INT (POINTER FLOAT)) VOID "glGetMapfv") (foreign-function glgetmapiv (INT INT (POINTER INT)) VOID "glGetMapiv") (foreign-function glevalcoord1d (DOUBLE) VOID "glEvalCoord1d") (foreign-function glevalcoord1f (FLOAT) VOID "glEvalCoord1f") (foreign-function glevalcoord1dv ((POINTER DOUBLE)) VOID "glEvalCoord1dv") (foreign-function glevalcoord1fv ((POINTER FLOAT)) VOID "glEvalCoord1fv") (foreign-function glevalcoord2d (DOUBLE DOUBLE) VOID "glEvalCoord2d") (foreign-function glevalcoord2f (FLOAT FLOAT) VOID "glEvalCoord2f") (foreign-function glevalcoord2dv ((POINTER DOUBLE)) VOID "glEvalCoord2dv") (foreign-function glevalcoord2fv ((POINTER FLOAT)) VOID "glEvalCoord2fv") (foreign-function glmapgrid1d (INT DOUBLE DOUBLE) VOID "glMapGrid1d") (foreign-function glmapgrid1f (INT FLOAT FLOAT) VOID "glMapGrid1f") (foreign-function glmapgrid2d (INT DOUBLE DOUBLE INT DOUBLE DOUBLE) VOID "glMapGrid2d") (foreign-function glmapgrid2f (INT FLOAT FLOAT INT FLOAT FLOAT) VOID "glMapGrid2f") (foreign-function glevalpoint1 (INT) VOID "glEvalPoint1") (foreign-function glevalpoint2 (INT INT) VOID "glEvalPoint2") (foreign-function glevalmesh1 (INT INT INT) VOID "glEvalMesh1") (foreign-function glevalmesh2 (INT INT INT INT INT) VOID "glEvalMesh2") (foreign-function glfogf (INT FLOAT) VOID "glFogf") (foreign-function glfogi (INT INT) VOID "glFogi") (foreign-function glfogfv (INT (POINTER FLOAT)) VOID "glFogfv") (foreign-function glfogiv (INT (POINTER INT)) VOID "glFogiv") (foreign-function glfeedbackbuffer (INT INT (POINTER FLOAT)) VOID "glFeedbackBuffer") (foreign-function glpassthrough (FLOAT) VOID "glPassThrough") (foreign-function glselectbuffer (INT (POINTER UNSIGNED-INT)) VOID "glSelectBuffer") (foreign-function glinitnames () VOID "glInitNames") (foreign-function glloadname (UNSIGNED-INT) VOID "glLoadName") (foreign-function glpushname (UNSIGNED-INT) VOID "glPushName") (foreign-function glpopname () VOID "glPopName") (foreign-function glblendequationext (INT) VOID "glBlendEquationEXT") (foreign-function glblendcolorext (FLOAT FLOAT FLOAT FLOAT) VOID "glBlendColorEXT") (foreign-function glpolygonoffsetext (FLOAT FLOAT) VOID "glPolygonOffsetEXT") ;;; ;;; GLU ;;; (foreign-define GLU_SMOOTH 100000) (foreign-define GLU_FLAT 100001) (foreign-define GLU_NONE 100002) (foreign-define GLU_POINT 100010) (foreign-define GLU_LINE 100011) (foreign-define GLU_FILL 100012) (foreign-define GLU_SILHOUETTE 100013) (foreign-define GLU_OUTSIDE 100020) (foreign-define GLU_INSIDE 100021) (foreign-define GLU_BEGIN 100100) (foreign-define GLU_VERTEX 100101) (foreign-define GLU_END 100102) (foreign-define GLU_ERROR 100103) (foreign-define GLU_EDGE_FLAG 100104) (foreign-define GLU_CW 100120) (foreign-define GLU_CCW 100121) (foreign-define GLU_INTERIOR 100122) (foreign-define GLU_EXTERIOR 100123) (foreign-define GLU_UNKNOWN 100124) (foreign-define GLU_TESS_ERROR1 100151) (foreign-define GLU_TESS_ERROR2 100152) (foreign-define GLU_TESS_ERROR3 100153) (foreign-define GLU_TESS_ERROR4 100154) (foreign-define GLU_TESS_ERROR5 100155) (foreign-define GLU_TESS_ERROR6 100156) (foreign-define GLU_TESS_ERROR7 100157) (foreign-define GLU_TESS_ERROR8 100158) (foreign-define GLU_TESS_ERROR9 100159) (foreign-define GLU_AUTO_LOAD_MATRIX 100200) (foreign-define GLU_CULLING 100201) (foreign-define GLU_PARAMETRIC_TOLERANCE 100202) (foreign-define GLU_SAMPLING_TOLERANCE 100203) (foreign-define GLU_DISPLAY_MODE 100204) (foreign-define GLU_SAMPLING_METHOD 100205) (foreign-define GLU_U_STEP 100206) (foreign-define GLU_V_STEP 100207) (foreign-define GLU_PATH_LENGTH 100215) (foreign-define GLU_PARAMETRIC_ERROR 100216) (foreign-define GLU_DOMAIN_DISTANCE 100217) (foreign-define GLU_MAP1_TRIM_2 100210) (foreign-define GLU_MAP1_TRIM_3 100211) (foreign-define GLU_OUTLINE_POLYGON 100240) (foreign-define GLU_OUTLINE_PATCH 100241) (foreign-define GLU_NURBS_ERROR1 100251) (foreign-define GLU_NURBS_ERROR2 100252) (foreign-define GLU_NURBS_ERROR3 100253) (foreign-define GLU_NURBS_ERROR4 100254) (foreign-define GLU_NURBS_ERROR5 100255) (foreign-define GLU_NURBS_ERROR6 100256) (foreign-define GLU_NURBS_ERROR7 100257) (foreign-define GLU_NURBS_ERROR8 100258) (foreign-define GLU_NURBS_ERROR9 100259) (foreign-define GLU_NURBS_ERROR10 100260) (foreign-define GLU_NURBS_ERROR11 100261) (foreign-define GLU_NURBS_ERROR12 100262) (foreign-define GLU_NURBS_ERROR13 100263) (foreign-define GLU_NURBS_ERROR14 100264) (foreign-define GLU_NURBS_ERROR15 100265) (foreign-define GLU_NURBS_ERROR16 100266) (foreign-define GLU_NURBS_ERROR17 100267) (foreign-define GLU_NURBS_ERROR18 100268) (foreign-define GLU_NURBS_ERROR19 100269) (foreign-define GLU_NURBS_ERROR20 100270) (foreign-define GLU_NURBS_ERROR21 100271) (foreign-define GLU_NURBS_ERROR22 100272) (foreign-define GLU_NURBS_ERROR23 100273) (foreign-define GLU_NURBS_ERROR24 100274) (foreign-define GLU_NURBS_ERROR25 100275) (foreign-define GLU_NURBS_ERROR26 100276) (foreign-define GLU_NURBS_ERROR27 100277) (foreign-define GLU_NURBS_ERROR28 100278) (foreign-define GLU_NURBS_ERROR29 100279) (foreign-define GLU_NURBS_ERROR30 100280) (foreign-define GLU_NURBS_ERROR31 100281) (foreign-define GLU_NURBS_ERROR32 100282) (foreign-define GLU_NURBS_ERROR33 100283) (foreign-define GLU_NURBS_ERROR34 100284) (foreign-define GLU_NURBS_ERROR35 100285) (foreign-define GLU_NURBS_ERROR36 100286) (foreign-define GLU_NURBS_ERROR37 100287) (foreign-define GLU_INVALID_ENUM 100900) (foreign-define GLU_INVALID_VALUE 100901) (foreign-define GLU_OUT_OF_MEMORY 100902) (foreign-define GLU_INCOMPATIBLE_GL_VERSION 100903) (foreign-define GLU_VERSION 100800) (foreign-define GLU_EXTENSIONS 100801) (foreign-function glulookat (DOUBLE DOUBLE DOUBLE DOUBLE DOUBLE DOUBLE DOUBLE DOUBLE DOUBLE) VOID "gluLookAt") (foreign-function gluortho2d (DOUBLE DOUBLE DOUBLE DOUBLE) VOID "gluOrtho2D") (foreign-function gluperspective (DOUBLE DOUBLE DOUBLE DOUBLE) VOID "gluPerspective") (foreign-function glupickmatrix (DOUBLE DOUBLE DOUBLE DOUBLE (POINTER INT)) VOID "gluPickMatrix") (foreign-function gluproject (DOUBLE DOUBLE DOUBLE (POINTER DOUBLE) (POINTER DOUBLE) (POINTER INT) (POINTER DOUBLE) (POINTER DOUBLE) (POINTER DOUBLE)) INT "gluProject") (foreign-function gluunproject (DOUBLE DOUBLE DOUBLE (POINTER DOUBLE) (POINTER DOUBLE) (POINTER INT) (POINTER DOUBLE) (POINTER DOUBLE) (POINTER DOUBLE)) INT "gluUnProject") (foreign-function gluerrorstring (INT) (POINTER UNSIGNED-CHAR) "gluErrorString") (foreign-function gluscaleimage (INT INT INT INT (POINTER VOID) INT INT INT (POINTER VOID)) INT "gluScaleImage") (foreign-function glubuild1dmipmaps (INT INT INT INT INT (POINTER VOID)) INT "gluBuild1DMipmaps") (foreign-function glubuild2dmipmaps (INT INT INT INT INT INT (POINTER VOID)) INT "gluBuild2DMipmaps") (foreign-function glunewquadric () (POINTER (STRUCT "GLUquadricObj")) "gluNewQuadric") (foreign-function gludeletequadric ((POINTER (STRUCT "GLUquadricObj"))) VOID "gluDeleteQuadric") (foreign-function gluquadricdrawstyle ((POINTER (STRUCT "GLUquadricObj")) INT) VOID "gluQuadricDrawStyle") (foreign-function gluquadricorientation ((POINTER (STRUCT "GLUquadricObj")) INT) VOID "gluQuadricOrientation") (foreign-function gluquadricnormals ((POINTER (STRUCT "GLUquadricObj")) INT) VOID "gluQuadricNormals") (foreign-function gluquadrictexture ((POINTER (STRUCT "GLUquadricObj")) UNSIGNED-CHAR) VOID "gluQuadricTexture") (foreign-function gluquadriccallback ((POINTER (STRUCT "GLUquadricObj")) INT (POINTER FUNCTION)) VOID "gluQuadricCallback") (foreign-function glucylinder ((POINTER (STRUCT "GLUquadricObj")) DOUBLE DOUBLE DOUBLE INT INT) VOID "gluCylinder") (foreign-function glusphere ((POINTER (STRUCT "GLUquadricObj")) DOUBLE INT INT) VOID "gluSphere") (foreign-function gludisk ((POINTER (STRUCT "GLUquadricObj")) DOUBLE DOUBLE INT INT) VOID "gluDisk") (foreign-function glupartialdisk ((POINTER (STRUCT "GLUquadricObj")) DOUBLE DOUBLE INT INT DOUBLE DOUBLE) VOID "gluPartialDisk") (foreign-function glunewnurbsrenderer () (POINTER (STRUCT "GLUnurbsObj")) "gluNewNurbsRenderer") (foreign-function gludeletenurbsrenderer ((POINTER (STRUCT "GLUnurbsObj"))) VOID "gluDeleteNurbsRenderer") (foreign-function gluloadsamplingmatrices ((POINTER (STRUCT "GLUnurbsObj")) (POINTER FLOAT) (POINTER FLOAT) (POINTER INT)) VOID "gluLoadSamplingMatrices") (foreign-function glunurbsproperty ((POINTER (STRUCT "GLUnurbsObj")) INT FLOAT) VOID "gluNurbsProperty") (foreign-function glugetnurbsproperty ((POINTER (STRUCT "GLUnurbsObj")) INT (POINTER FLOAT)) VOID "gluGetNurbsProperty") (foreign-function glubegincurve ((POINTER (STRUCT "GLUnurbsObj"))) VOID "gluBeginCurve") (foreign-function gluendcurve ((POINTER (STRUCT "GLUnurbsObj"))) VOID "gluEndCurve") (foreign-function glunurbscurve ((POINTER (STRUCT "GLUnurbsObj")) INT (POINTER FLOAT) INT (POINTER FLOAT) INT INT) VOID "gluNurbsCurve") (foreign-function glubeginsurface ((POINTER (STRUCT "GLUnurbsObj"))) VOID "gluBeginSurface") (foreign-function gluendsurface ((POINTER (STRUCT "GLUnurbsObj"))) VOID "gluEndSurface") (foreign-function glunurbssurface ((POINTER (STRUCT "GLUnurbsObj")) INT (POINTER FLOAT) INT (POINTER FLOAT) INT INT (POINTER FLOAT) INT INT INT) VOID "gluNurbsSurface") (foreign-function glubegintrim ((POINTER (STRUCT "GLUnurbsObj"))) VOID "gluBeginTrim") (foreign-function gluendtrim ((POINTER (STRUCT "GLUnurbsObj"))) VOID "gluEndTrim") (foreign-function glupwlcurve ((POINTER (STRUCT "GLUnurbsObj")) INT (POINTER FLOAT) INT INT) VOID "gluPwlCurve") (foreign-function glunurbscallback ((POINTER (STRUCT "GLUnurbsObj")) INT (POINTER FUNCTION)) VOID "gluNurbsCallback") (foreign-function glunewtess () (POINTER (STRUCT "GLUtriangulatorObj")) "gluNewTess") (foreign-function glutesscallback ((POINTER (STRUCT "GLUtriangulatorObj")) INT (POINTER FUNCTION)) VOID "gluTessCallback") (foreign-function gludeletetess ((POINTER (STRUCT "GLUtriangulatorObj"))) VOID "gluDeleteTess") (foreign-function glubeginpolygon ((POINTER (STRUCT "GLUtriangulatorObj"))) VOID "gluBeginPolygon") (foreign-function gluendpolygon ((POINTER (STRUCT "GLUtriangulatorObj"))) VOID "gluEndPolygon") (foreign-function glunextcontour ((POINTER (STRUCT "GLUtriangulatorObj")) INT) VOID "gluNextContour") (foreign-function glutessvertex ((POINTER (STRUCT "GLUtriangulatorObj")) (POINTER DOUBLE) (POINTER VOID)) VOID "gluTessVertex") (foreign-function glugetstring (INT) (POINTER UNSIGNED-CHAR) "gluGetString") ;;; ;;; GLX ;;; (foreign-define GLX_VERSION 2) (foreign-define GLX_BAD_VALUE 6) (foreign-define GLX_EXTENSIONS 3) (foreign-define GLX_BAD_VISUAL 4) (foreign-define GLX_BAD_SCREEN 1) (foreign-define GLX_BAD_ENUM 7) (foreign-define GLX_BAD_ATTRIBUTE 2) (foreign-define GLX_VENDOR 1) (foreign-define GLX_BAD_CONTEXT 5) (foreign-define GLX_H "") (foreign-define GLX_VERSION_1_1 1) (foreign-define GLX_NO_EXTENSION 3) (foreign-define GLX_USE_GL 1) (foreign-define GLX_BUFFER_SIZE 2) (foreign-define GLX_LEVEL 3) (foreign-define GLX_RGBA 4) (foreign-define GLX_DOUBLEBUFFER 5) (foreign-define GLX_STEREO 6) (foreign-define GLX_AUX_BUFFERS 7) (foreign-define GLX_RED_SIZE 8) (foreign-define GLX_GREEN_SIZE 9) (foreign-define GLX_BLUE_SIZE 10) (foreign-define GLX_ALPHA_SIZE 11) (foreign-define GLX_DEPTH_SIZE 12) (foreign-define GLX_STENCIL_SIZE 13) (foreign-define GLX_ACCUM_RED_SIZE 14) (foreign-define GLX_ACCUM_GREEN_SIZE 15) (foreign-define GLX_ACCUM_BLUE_SIZE 16) (foreign-define GLX_ACCUM_ALPHA_SIZE 17) (foreign-define GLX_SAMPLES_SGIS 100000) (foreign-define GLX_SAMPLE_BUFFER_SGIS 100001) (foreign-function glxchoosevisual ((POINTER STRUCT) INT (POINTER INT)) (POINTER STRUCT) "glXChooseVisual") (foreign-function glxcreatecontext ((POINTER STRUCT) (POINTER STRUCT) (POINTER STRUCT) INT) (POINTER STRUCT) "glXCreateContext") (foreign-function glxdestroycontext ((POINTER STRUCT) (POINTER STRUCT)) VOID "glXDestroyContext") (foreign-function glxmakecurrent ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) INT "glXMakeCurrent") (foreign-function glxcopycontext ((POINTER STRUCT) (POINTER STRUCT) (POINTER STRUCT) UNSIGNED-INT) VOID "glXCopyContext") (foreign-function glxswapbuffers ((POINTER STRUCT) UNSIGNED-LONG) VOID "glXSwapBuffers") (foreign-function glxcreateglxpixmap ((POINTER STRUCT) (POINTER STRUCT) UNSIGNED-LONG) UNSIGNED-LONG "glXCreateGLXPixmap") (foreign-function glxdestroyglxpixmap ((POINTER STRUCT) UNSIGNED-LONG) VOID "glXDestroyGLXPixmap") (foreign-function glxqueryextension ((POINTER STRUCT) (POINTER INT) (POINTER INT)) INT "glXQueryExtension") (foreign-function glxqueryversion ((POINTER STRUCT) (POINTER INT) (POINTER INT)) INT "glXQueryVersion") (foreign-function glxisdirect ((POINTER STRUCT) (POINTER STRUCT)) INT "glXIsDirect") (foreign-function glxgetconfig ((POINTER STRUCT) (POINTER STRUCT) INT (POINTER INT)) INT "glXGetConfig") (foreign-function glxgetcurrentcontext () (POINTER STRUCT) "glXGetCurrentContext") (foreign-function glxgetcurrentdrawable () UNSIGNED-LONG "glXGetCurrentDrawable") (foreign-function glxwaitgl () VOID "glXWaitGL") (foreign-function glxwaitx () VOID "glXWaitX") (foreign-function glxusexfont (UNSIGNED-LONG INT INT INT) VOID "glXUseXFont") (foreign-function glxqueryextensionsstring ((POINTER STRUCT) INT) STRING "glXQueryExtensionsString") (foreign-function glxqueryserverstring ((POINTER STRUCT) INT INT) STRING "glXQueryServerString") (foreign-function glxgetclientstring ((POINTER STRUCT) INT) STRING "glXGetClientString") ;;; ;;; GLUT ;;; (foreign-define GLUT_NUM_SPACEBALL_BUTTONS 606) (foreign-define GLUT_OVERLAY_DAMAGED 805) (foreign-define GLUT_WINDOW_STENCIL_SIZE 105) (foreign-define GLUT_OVERLAY_POSSIBLE 800) (foreign-define GLUT_CURSOR_TOP_LEFT_CORNER 16) (foreign-define GLUT_VIDEO_RESIZE_Y 907) (foreign-define GLUT_API_VERSION 3) (foreign-define GLUT_VIDEO_RESIZE_X 906) (foreign-define GLUT_NOT_VISIBLE 0) (foreign-define GL_NO_ERROR GL_FALSE) (foreign-define GLUT_PARTIALLY_RETAINED 2) (foreign-define GLUT_HAS_OVERLAY 802) (foreign-define GLUT_RGB 0) (foreign-define GLUT_RED 0) (foreign-define GLUT_DISPLAY_MODE_POSSIBLE 400) (foreign-define GLUT_SCREEN_HEIGHT 201) (foreign-define GL_EXT_blend_logic_op 1) (foreign-define GLUT_WINDOW_RGBA 116) (foreign-define GLUT_STEREO 256) (foreign-define GLUT_CURSOR_LEFT_ARROW 1) ;(foreign-define APIENTRY "") (foreign-define GLUT_SCREEN_HEIGHT_MM 203) (foreign-define GLUT_VIDEO_RESIZE_WIDTH_DELTA 904) (foreign-define GLUT_ACTIVE_CTRL 2) (foreign-define GLUT_CURSOR_INHERIT 100) (foreign-define GLUT_WINDOW_NUM_CHILDREN 118) (foreign-define GLUT_MULTISAMPLE 128) ; GLUT_STROKE_MONO_ROMAN (&glutStrokeMonoRoman) (foreign-define GLUT_CURSOR_SPRAY 6) (foreign-define GLUT_INIT_WINDOW_WIDTH 502) (foreign-define GLUT_NORMAL 0) (foreign-define GLUT_KEY_F9 9) (foreign-define GLUT_MENU_NOT_IN_USE 0) (foreign-define GLUT_KEY_F8 8) (foreign-define GLUT_KEY_RIGHT 102) (foreign-define GLUT_WINDOW_DEPTH_SIZE 106) (foreign-define GLUT_KEY_F7 7) (foreign-define GLUT_CURSOR_LEFT_RIGHT 11) (foreign-define GLUT_KEY_F6 6) (foreign-define GLUT_HAS_MOUSE 601) (foreign-define GLUT_CURSOR_BOTTOM_LEFT_CORNER 19) (foreign-define GLUT_KEY_F5 5) (foreign-define GLUT_SINGLE 0) (foreign-define GLUT_KEY_F4 4) (foreign-define GLUT_WINDOW_GREEN_SIZE 108) (foreign-define GLUT_HAS_SPACEBALL 602) (foreign-define GLUT_KEY_F3 3) (foreign-define GLUT_WINDOW_ACCUM_BLUE_SIZE 113) (foreign-define GLUT_KEY_F2 2) (foreign-define GLUT_VIDEO_RESIZE_HEIGHT 909) (foreign-define GLUT_KEY_F1 1) ; GLUT_BITMAP_TIMES_ROMAN_24 (&glutBitmapTimesRoman24) (foreign-define GLUT_LAYER_IN_USE 801) (foreign-define GLUT_CURSOR_RIGHT_SIDE 15) (foreign-define GLUT_NUM_DIALS 608) (foreign-define GLUT_DOUBLE 2) ; GLUT_BITMAP_TIMES_ROMAN_10 (&glutBitmapTimesRoman10) (foreign-define GLUT_RIGHT_BUTTON 2) (foreign-define GLUT_DOWN 0) (foreign-define GLUT_FULLY_RETAINED 1) (foreign-define GLUT_WINDOW_WIDTH 102) (foreign-define GLUT_WINDOW_ALPHA_SIZE 110) (foreign-define GLUT_CURSOR_TOP_RIGHT_CORNER 17) (foreign-define GLUT_XLIB_IMPLEMENTATION 9) ; GLUT_STROKE_ROMAN (&glutStrokeRoman) (foreign-define GLUT_CURSOR_TOP_SIDE 12) (foreign-define GLUT_WINDOW_COLORMAP_SIZE 119) (foreign-define GLUT_INIT_DISPLAY_MODE 504) (foreign-define GLUT_CURSOR_CYCLE 5) (foreign-define GLUT_HIDDEN 0) (foreign-define GLUT_WINDOW_RED_SIZE 107) (foreign-define GLUT_WINDOW_DOUBLEBUFFER 115) (foreign-define GLUT_LEFT 0) (foreign-define GL_EXT_blend_color 1) (foreign-define GLUT_TRANSPARENT_INDEX 803) (foreign-define GLUT_VIDEO_RESIZE_Y_DELTA 903) (foreign-define GLUT_BLUE 2) (foreign-define GLUT_VIDEO_RESIZE_X_DELTA 902) (foreign-define GLUT_UP 1) (foreign-define GLUT_CURSOR_RIGHT_ARROW 0) (foreign-define GLUT_INIT_WINDOW_Y 501) (foreign-define GLUT_OVERLAY 1) (foreign-define GLUT_INIT_WINDOW_X 500) ;(foreign-define _NO_LONGLONG 1) ; already defined in Xlib ;(foreign-define GL_H "") (foreign-define GLUT_KEY_END 107) (foreign-define GLUT_SCREEN_WIDTH 200) (foreign-define GLUT_KEY_INSERT 108) (foreign-define GLUT_RGBA GLUT_RGB) (foreign-define GLUT_LUMINANCE 512) (foreign-define GLUT_WINDOW_NUM_SAMPLES 120) (foreign-define GLUT_NUM_TABLET_BUTTONS 609) (foreign-define GLUT_ACTIVE_SHIFT 1) (foreign-define GLUT_SCREEN_WIDTH_MM 202) (foreign-define GLU_FALSE GL_FALSE) (foreign-define GLUT_CURSOR_BOTTOM_RIGHT_CORNER 18) (foreign-define GLUT_CURSOR_BOTTOM_SIDE 13) (foreign-define GL_EXT_blend_minmax 1) (foreign-define GL_EXT_polygon_offset 1) (foreign-define GLUT_WINDOW_CURSOR 122) ; GLUT_BITMAP_9_BY_15 (&glutBitmap9By15) (foreign-define CALLBACK "") (foreign-define GLUT_STENCIL 32) ; GLUT_BITMAP_8_BY_13 (&glutBitmap8By13) (foreign-define GLUT_WINDOW_Y 101) (foreign-define GLUT_WINDOW_X 100) (foreign-define GLUT_VISIBLE 1) (foreign-define GLUT_ELAPSED_TIME 700) (foreign-define GLUT_HAS_KEYBOARD 600) ;(foreign-define MESA "") (foreign-define GLUT_WINDOW_BUFFER_SIZE 104) (foreign-define GLUT_NORMAL_DAMAGED 804) (foreign-define GLUT_WINDOW_ACCUM_GREEN_SIZE 112) (foreign-define GLUT_HAS_DIAL_AND_BUTTON_BOX 603) (foreign-define GLUT_WINDOW_STEREO 121) (foreign-define GLUT_VIDEO_RESIZE_HEIGHT_DELTA 905) (foreign-define GLUT_ENTERED 1) (foreign-define GLUT_VIDEO_RESIZE_WIDTH 908) (foreign-define GLUT_INIT_WINDOW_HEIGHT 503) (foreign-define GLUT_CURSOR_TEXT 8) (foreign-define GLUT_WINDOW_PARENT 117) (foreign-define GLUT_NUM_BUTTON_BOX_BUTTONS 607) (foreign-define GLUT_KEY_DOWN 103) (foreign-define GLUT_WINDOW_ACCUM_ALPHA_SIZE 114) (foreign-define GLUT_CURSOR_FULL_CROSSHAIR 102) (foreign-define GLUT_KEY_PAGE_DOWN 105) (foreign-define GLUT_ACTIVE_ALT 4) ; GLUT_BITMAP_HELVETICA_18 (&glutBitmapHelvetica18) (foreign-define GLUT_WINDOW_BLUE_SIZE 109) (foreign-define GLUT_CURSOR_UP_DOWN 10) (foreign-define GLUT_INDEX 1) (foreign-define GLUT_MENU_IN_USE 1) (foreign-define GLUT_HAS_TABLET 604) (foreign-define GLUT_DEPTH 16) ;(foreign-define GLU_H "") (foreign-define GLUT_WINDOW_ACCUM_RED_SIZE 111) (foreign-define GL_EXT_blend_subtract 1) (foreign-define GLUT_KEY_LEFT 100) (foreign-define GLUT_FULLY_COVERED 3) ; GLUT_BITMAP_HELVETICA_12 (&glutBitmapHelvetica12) (foreign-define GLU_VERSION_1_1 1) (foreign-define GLUT_CURSOR_WAIT 7) (foreign-define GLUT_KEY_F12 12) (foreign-define GLUT_KEY_HOME 106) (foreign-define GLUT_GREEN 1) ; GLUT_BITMAP_HELVETICA_10 (&glutBitmapHelvetica10) (foreign-define GLUT_KEY_F11 11) (foreign-define GLUT_WINDOW_HEIGHT 103) (foreign-define GLUT_KEY_F10 10) (foreign-define GLUT_KEY_UP 101) (foreign-define GLUT_CURSOR_NONE 101) ; GLU_TRUE GL_TRUE (foreign-define GLUT_CURSOR_LEFT_SIDE 14) (foreign-define GLUT_CURSOR_CROSSHAIR 9) (foreign-define GLUT_MIDDLE_BUTTON 1) (foreign-define GLUT_VIDEO_RESIZE_IN_USE 901) (foreign-define GLUT_ACCUM 4) (foreign-define GLUT_KEY_PAGE_UP 104) (foreign-define GLUT_CURSOR_INFO 2) (foreign-define GLUT_VIDEO_RESIZE_POSSIBLE 900) (foreign-define GLUT_CURSOR_DESTROY 3) (foreign-define GLUT_ALPHA 8) (foreign-define GLUT_LEFT_BUTTON 0) (foreign-define GLUT_NUM_MOUSE_BUTTONS 605) (foreign-define GLUT_CURSOR_HELP 4) (foreign-define GLUT_MENU_NUM_ITEMS 300) ;(foreign-function glutinit ((POINTER INT) (POINTER (POINTER CHAR))) VOID "glutInit") (foreign-function glutinitdisplaymode (UNSIGNED-INT) VOID "glutInitDisplayMode") (foreign-function glutinitdisplaystring ((POINTER CHAR)) VOID "glutInitDisplayString") (foreign-function glutinitwindowposition (INT INT) VOID "glutInitWindowPosition") (foreign-function glutinitwindowsize (INT INT) VOID "glutInitWindowSize") (foreign-function glutmainloop () VOID "glutMainLoop") (foreign-function glutcreatewindow ((POINTER CHAR)) INT "glutCreateWindow") (foreign-function glutcreatesubwindow (INT INT INT INT INT) INT "glutCreateSubWindow") (foreign-function glutdestroywindow (INT) VOID "glutDestroyWindow") (foreign-function glutpostredisplay () VOID "glutPostRedisplay") (foreign-function glutswapbuffers () VOID "glutSwapBuffers") (foreign-function glutgetwindow () INT "glutGetWindow") (foreign-function glutsetwindow (INT) VOID "glutSetWindow") (foreign-function glutsetwindowtitle ((POINTER CHAR)) VOID "glutSetWindowTitle") (foreign-function glutseticontitle ((POINTER CHAR)) VOID "glutSetIconTitle") (foreign-function glutpositionwindow (INT INT) VOID "glutPositionWindow") (foreign-function glutreshapewindow (INT INT) VOID "glutReshapeWindow") (foreign-function glutpopwindow () VOID "glutPopWindow") (foreign-function glutpushwindow () VOID "glutPushWindow") (foreign-function gluticonifywindow () VOID "glutIconifyWindow") (foreign-function glutshowwindow () VOID "glutShowWindow") (foreign-function gluthidewindow () VOID "glutHideWindow") (foreign-function glutfullscreen () VOID "glutFullScreen") (foreign-function glutsetcursor (INT) VOID "glutSetCursor") (foreign-function glutwarppointer (INT INT) VOID "glutWarpPointer") (foreign-function glutestablishoverlay () VOID "glutEstablishOverlay") (foreign-function glutremoveoverlay () VOID "glutRemoveOverlay") (foreign-function glutuselayer (INT) VOID "glutUseLayer") (foreign-function glutpostoverlayredisplay () VOID "glutPostOverlayRedisplay") (foreign-function glutshowoverlay () VOID "glutShowOverlay") (foreign-function gluthideoverlay () VOID "glutHideOverlay") (foreign-function glutcreatemenu ((POINTER FUNCTION)) INT "glutCreateMenu") (foreign-function glutdestroymenu (INT) VOID "glutDestroyMenu") (foreign-function glutgetmenu () INT "glutGetMenu") (foreign-function glutsetmenu (INT) VOID "glutSetMenu") (foreign-function glutaddmenuentry ((POINTER CHAR) INT) VOID "glutAddMenuEntry") (foreign-function glutaddsubmenu ((POINTER CHAR) INT) VOID "glutAddSubMenu") (foreign-function glutchangetomenuentry (INT (POINTER CHAR) INT) VOID "glutChangeToMenuEntry") (foreign-function glutchangetosubmenu (INT (POINTER CHAR) INT) VOID "glutChangeToSubMenu") (foreign-function glutremovemenuitem (INT) VOID "glutRemoveMenuItem") (foreign-function glutattachmenu (INT) VOID "glutAttachMenu") (foreign-function glutdetachmenu (INT) VOID "glutDetachMenu") (foreign-function glutdisplayfunc ((POINTER FUNCTION)) VOID "glutDisplayFunc") (foreign-function glutreshapefunc ((POINTER FUNCTION)) VOID "glutReshapeFunc") (foreign-function glutkeyboardfunc ((POINTER FUNCTION)) VOID "glutKeyboardFunc") (foreign-function glutmousefunc ((POINTER FUNCTION)) VOID "glutMouseFunc") (foreign-function glutmotionfunc ((POINTER FUNCTION)) VOID "glutMotionFunc") (foreign-function glutpassivemotionfunc ((POINTER FUNCTION)) VOID "glutPassiveMotionFunc") (foreign-function glutentryfunc ((POINTER FUNCTION)) VOID "glutEntryFunc") (foreign-function glutvisibilityfunc ((POINTER FUNCTION)) VOID "glutVisibilityFunc") (foreign-function glutidlefunc ((POINTER FUNCTION)) VOID "glutIdleFunc") (foreign-function gluttimerfunc (UNSIGNED-INT (POINTER FUNCTION) INT) VOID "glutTimerFunc") (foreign-function glutmenustatefunc ((POINTER FUNCTION)) VOID "glutMenuStateFunc") (foreign-function glutspecialfunc ((POINTER FUNCTION)) VOID "glutSpecialFunc") (foreign-function glutspaceballmotionfunc ((POINTER FUNCTION)) VOID "glutSpaceballMotionFunc") (foreign-function glutspaceballrotatefunc ((POINTER FUNCTION)) VOID "glutSpaceballRotateFunc") (foreign-function glutspaceballbuttonfunc ((POINTER FUNCTION)) VOID "glutSpaceballButtonFunc") (foreign-function glutbuttonboxfunc ((POINTER FUNCTION)) VOID "glutButtonBoxFunc") (foreign-function glutdialsfunc ((POINTER FUNCTION)) VOID "glutDialsFunc") (foreign-function gluttabletmotionfunc ((POINTER FUNCTION)) VOID "glutTabletMotionFunc") (foreign-function gluttabletbuttonfunc ((POINTER FUNCTION)) VOID "glutTabletButtonFunc") (foreign-function glutmenustatusfunc ((POINTER FUNCTION)) VOID "glutMenuStatusFunc") (foreign-function glutoverlaydisplayfunc ((POINTER FUNCTION)) VOID "glutOverlayDisplayFunc") (foreign-function glutwindowstatusfunc ((POINTER FUNCTION)) VOID "glutWindowStatusFunc") (foreign-function glutsetcolor (INT FLOAT FLOAT FLOAT) VOID "glutSetColor") (foreign-function glutgetcolor (INT INT) FLOAT "glutGetColor") (foreign-function glutcopycolormap (INT) VOID "glutCopyColormap") (foreign-function glutget (INT) INT "glutGet") (foreign-function glutdeviceget (INT) INT "glutDeviceGet") (foreign-function glutextensionsupported ((POINTER CHAR)) INT "glutExtensionSupported") (foreign-function glutgetmodifiers () INT "glutGetModifiers") (foreign-function glutlayerget (INT) INT "glutLayerGet") (foreign-function glutbitmapcharacter ((POINTER VOID) INT) VOID "glutBitmapCharacter") (foreign-function glutbitmapwidth ((POINTER VOID) INT) INT "glutBitmapWidth") (foreign-function glutstrokecharacter ((POINTER VOID) INT) VOID "glutStrokeCharacter") (foreign-function glutstrokewidth ((POINTER VOID) INT) INT "glutStrokeWidth") (foreign-function glutbitmaplength ((POINTER VOID) (POINTER UNSIGNED-CHAR)) INT "glutBitmapLength") (foreign-function glutstrokelength ((POINTER VOID) (POINTER UNSIGNED-CHAR)) INT "glutStrokeLength") (foreign-function glutwiresphere (DOUBLE INT INT) VOID "glutWireSphere") (foreign-function glutsolidsphere (DOUBLE INT INT) VOID "glutSolidSphere") (foreign-function glutwirecone (DOUBLE DOUBLE INT INT) VOID "glutWireCone") (foreign-function glutsolidcone (DOUBLE DOUBLE INT INT) VOID "glutSolidCone") (foreign-function glutwirecube (DOUBLE) VOID "glutWireCube") (foreign-function glutsolidcube (DOUBLE) VOID "glutSolidCube") (foreign-function glutwiretorus (DOUBLE DOUBLE INT INT) VOID "glutWireTorus") (foreign-function glutsolidtorus (DOUBLE DOUBLE INT INT) VOID "glutSolidTorus") (foreign-function glutwiredodecahedron () VOID "glutWireDodecahedron") (foreign-function glutsoliddodecahedron () VOID "glutSolidDodecahedron") (foreign-function glutwireteapot (DOUBLE) VOID "glutWireTeapot") (foreign-function glutsolidteapot (DOUBLE) VOID "glutSolidTeapot") (foreign-function glutwireoctahedron () VOID "glutWireOctahedron") (foreign-function glutsolidoctahedron () VOID "glutSolidOctahedron") (foreign-function glutwiretetrahedron () VOID "glutWireTetrahedron") (foreign-function glutsolidtetrahedron () VOID "glutSolidTetrahedron") (foreign-function glutwireicosahedron () VOID "glutWireIcosahedron") (foreign-function glutsolidicosahedron () VOID "glutSolidIcosahedron") (foreign-function glutvideoresizeget (INT) INT "glutVideoResizeGet") (foreign-function glutsetupvideoresizing () VOID "glutSetupVideoResizing") (foreign-function glutstopvideoresizing () VOID "glutStopVideoResizing") (foreign-function glutvideoresize (INT INT INT INT) VOID "glutVideoResize") (foreign-function glutvideopan (INT INT INT INT) VOID "glutVideoPan") (foreign-function glutreporterrors () VOID "glutReportErrors") ;;; *** STRUCTS *** ;;; STRUCT:GLUquadricObj ;;; STRUCT:GLUtriangulatorObj ;;; STRUCT:GLUnurbsObj ;;; *** VARIABLES *** ;;; VARIABLE: glutStrokeRoman (foreign-function glutstrokeroman () (POINTER (POINTER VOID)) "glob_glutStrokeRoman") ;;; VARIABLE: glutStrokeMonoRoman (foreign-function glutstrokemonoroman () (POINTER (POINTER VOID)) "glob_glutStrokeMonoRoman") ;;; VARIABLE: glutBitmap9By15 (foreign-function glutbitmap9by15 () (POINTER (POINTER VOID)) "glob_glutBitmap9By15") ;;; VARIABLE: glutBitmap8By13 (foreign-function glutbitmap8by13 () (POINTER (POINTER VOID)) "glob_glutBitmap8By13") ;;; VARIABLE: glutBitmapTimesRoman10 (foreign-function glutbitmaptimesroman10 () (POINTER (POINTER VOID)) "glob_glutBitmapTimesRoman10") ;;; VARIABLE: glutBitmapTimesRoman24 (foreign-function glutbitmaptimesroman24 () (POINTER (POINTER VOID)) "glob_glutBitmapTimesRoman24") ;;; VARIABLE: glutBitmapHelvetica10 (foreign-function glutbitmaphelvetica10 () (POINTER (POINTER VOID)) "glob_glutBitmapHelvetica10") ;;; VARIABLE: glutBitmapHelvetica12 (foreign-function glutbitmaphelvetica12 () (POINTER (POINTER VOID)) "glob_glutBitmapHelvetica12") ;;; VARIABLE: glutBitmapHelvetica18 (foreign-function glutbitmaphelvetica18 () (POINTER (POINTER VOID)) "glob_glutBitmapHelvetica18") stalin-0.11/include/xlib-original.sc0000600017435200151030000114365206704715175016133 0ustar qobiqobi;;; ;;; FFI to access for Xlib and Xutil from Lisp/Scheme ;;; ;;; Problems (ignored for now) ;;; ;;; 1. Strings vs (pointer char). Problem when pass pointer to string and ;;; allocate or modify it (eg., ; XGetErrorDatabaseText). Also problem ;;; dealing with lists of strings (eg., XListFonts). ;;; ;;; 2. Functions and macros not all translated. ;;; ;;; Richard Mann ;;; 31 October 1996 ;;; 18 May 1998 ;;; ;;; Copyright 1996 and 1997 University of Toronto. All rights reserved. ;;; Copyright 1998 NEC Research Institute, Inc. All rights reserved. ;;;(in-package :xlib) ;;; FUNCTIONS from X11 and Xutil. (foreign-function xloadqueryfont ((POINTER STRUCT) STRING) (POINTER STRUCT) "XLoadQueryFont") (foreign-function xqueryfont ((POINTER STRUCT) UNSIGNED-LONG) (POINTER STRUCT) "XQueryFont") (foreign-function xgetmotionevents ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG UNSIGNED-LONG (POINTER INT)) (POINTER STRUCT) "XGetMotionEvents") (foreign-function xdeletemodifiermapentry ((POINTER STRUCT) UNSIGNED-INT INT) (POINTER STRUCT) "XDeleteModifiermapEntry") (foreign-function xgetmodifiermapping ((POINTER STRUCT)) (POINTER STRUCT) "XGetModifierMapping") (foreign-function xinsertmodifiermapentry ((POINTER STRUCT) UNSIGNED-INT INT) (POINTER STRUCT) "XInsertModifiermapEntry") (foreign-function xnewmodifiermap (INT) (POINTER STRUCT) "XNewModifiermap") (foreign-function xcreateimage ((POINTER STRUCT) (POINTER STRUCT) UNSIGNED-INT INT INT (POINTER CHAR) UNSIGNED-INT UNSIGNED-INT INT INT) (POINTER STRUCT) "XCreateImage") (foreign-function xgetimage ((POINTER STRUCT) UNSIGNED-LONG INT INT UNSIGNED-INT UNSIGNED-INT UNSIGNED-LONG INT) (POINTER STRUCT) "XGetImage") (foreign-function xgetsubimage ((POINTER STRUCT) UNSIGNED-LONG INT INT UNSIGNED-INT UNSIGNED-INT UNSIGNED-LONG INT (POINTER STRUCT) INT INT) (POINTER STRUCT) "XGetSubImage") (foreign-function xopendisplay (STRING) (POINTER STRUCT) "XOpenDisplay") (foreign-function xrminitialize () VOID "XrmInitialize") (foreign-function xfetchbytes ((POINTER STRUCT) (POINTER INT)) (POINTER CHAR) "XFetchBytes") (foreign-function xfetchbuffer ((POINTER STRUCT) (POINTER INT) INT) (POINTER CHAR) "XFetchBuffer") (foreign-function xgetatomname ((POINTER STRUCT) UNSIGNED-LONG) STRING "XGetAtomName") (foreign-function xgetdefault ((POINTER STRUCT) STRING STRING) STRING "XGetDefault") (foreign-function xdisplayname (STRING) STRING "XDisplayName") (foreign-function xkeysymtostring (UNSIGNED-LONG) STRING "XKeysymToString") (foreign-function xsynchronize ((POINTER STRUCT) INT) (POINTER FUNCTION) "XSynchronize") (foreign-function xsetafterfunction ((POINTER STRUCT) (POINTER FUNCTION)) (POINTER FUNCTION) "XSetAfterFunction") (foreign-function xinternatom ((POINTER STRUCT) STRING INT) UNSIGNED-LONG "XInternAtom") (foreign-function xcopycolormapandfree ((POINTER STRUCT) UNSIGNED-LONG) UNSIGNED-LONG "XCopyColormapAndFree") (foreign-function xcreatecolormap ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) INT) UNSIGNED-LONG "XCreateColormap") (foreign-function xcreatepixmapcursor ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG (POINTER STRUCT) (POINTER STRUCT) UNSIGNED-INT UNSIGNED-INT) UNSIGNED-LONG "XCreatePixmapCursor") (foreign-function xcreateglyphcursor ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG UNSIGNED-INT UNSIGNED-INT (POINTER STRUCT) (POINTER STRUCT)) UNSIGNED-LONG "XCreateGlyphCursor") (foreign-function xcreatefontcursor ((POINTER STRUCT) UNSIGNED-INT) UNSIGNED-LONG "XCreateFontCursor") (foreign-function xloadfont ((POINTER STRUCT) STRING) UNSIGNED-LONG "XLoadFont") (foreign-function xcreategc ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG (POINTER STRUCT)) (POINTER STRUCT) "XCreateGC") (foreign-function xgcontextfromgc ((POINTER STRUCT)) UNSIGNED-LONG "XGContextFromGC") (foreign-function xflushgc ((POINTER STRUCT) (POINTER STRUCT)) VOID "XFlushGC") (foreign-function xcreatepixmap ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-INT UNSIGNED-INT UNSIGNED-INT) UNSIGNED-LONG "XCreatePixmap") (foreign-function xcreatebitmapfromdata ((POINTER STRUCT) UNSIGNED-LONG (POINTER CHAR) UNSIGNED-INT UNSIGNED-INT) UNSIGNED-LONG "XCreateBitmapFromData") (foreign-function xcreatepixmapfrombitmapdata ((POINTER STRUCT) UNSIGNED-LONG (POINTER CHAR) UNSIGNED-INT UNSIGNED-INT UNSIGNED-LONG UNSIGNED-LONG UNSIGNED-INT) UNSIGNED-LONG "XCreatePixmapFromBitmapData") (foreign-function xcreatesimplewindow ((POINTER STRUCT) UNSIGNED-LONG INT INT UNSIGNED-INT UNSIGNED-INT UNSIGNED-INT UNSIGNED-LONG UNSIGNED-LONG) UNSIGNED-LONG "XCreateSimpleWindow") (foreign-function xgetselectionowner ((POINTER STRUCT) UNSIGNED-LONG) UNSIGNED-LONG "XGetSelectionOwner") (foreign-function xcreatewindow ((POINTER STRUCT) UNSIGNED-LONG INT INT UNSIGNED-INT UNSIGNED-INT UNSIGNED-INT INT UNSIGNED-INT (POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) UNSIGNED-LONG "XCreateWindow") (foreign-function xlistinstalledcolormaps ((POINTER STRUCT) UNSIGNED-LONG (POINTER INT)) (POINTER UNSIGNED-LONG) "XListInstalledColormaps") (foreign-function xlistfonts ((POINTER STRUCT) STRING INT (POINTER INT)) (POINTER (POINTER CHAR)) "XListFonts") (foreign-function xlistfontswithinfo ((POINTER STRUCT) STRING INT (POINTER INT) (POINTER (POINTER STRUCT))) (POINTER (POINTER CHAR)) "XListFontsWithInfo") (foreign-function xgetfontpath ((POINTER STRUCT) (POINTER INT)) (POINTER (POINTER CHAR)) "XGetFontPath") (foreign-function xlistextensions ((POINTER STRUCT) (POINTER INT)) (POINTER (POINTER CHAR)) "XListExtensions") (foreign-function xlistproperties ((POINTER STRUCT) UNSIGNED-LONG (POINTER INT)) (POINTER UNSIGNED-LONG) "XListProperties") (foreign-function xlisthosts ((POINTER STRUCT) (POINTER INT) (POINTER INT)) (POINTER STRUCT) "XListHosts") (foreign-function xkeycodetokeysym ((POINTER STRUCT) UNSIGNED-INT INT) UNSIGNED-LONG "XKeycodeToKeysym") (foreign-function xlookupkeysym ((POINTER STRUCT) INT) UNSIGNED-LONG "XLookupKeysym") (foreign-function xgetkeyboardmapping ((POINTER STRUCT) UNSIGNED-INT INT (POINTER INT)) (POINTER UNSIGNED-LONG) "XGetKeyboardMapping") (foreign-function xstringtokeysym (STRING) UNSIGNED-LONG "XStringToKeysym") (foreign-function xmaxrequestsize ((POINTER STRUCT)) INT "XMaxRequestSize") (foreign-function xresourcemanagerstring ((POINTER STRUCT)) STRING "XResourceManagerString") (foreign-function xscreenresourcestring ((POINTER STRUCT)) STRING "XScreenResourceString") (foreign-function xdisplaymotionbuffersize ((POINTER STRUCT)) UNSIGNED-LONG "XDisplayMotionBufferSize") (foreign-function xvisualidfromvisual ((POINTER STRUCT)) UNSIGNED-LONG "XVisualIDFromVisual") (foreign-function xinitextension ((POINTER STRUCT) STRING) (POINTER STRUCT) "XInitExtension") (foreign-function xaddextension ((POINTER STRUCT)) (POINTER STRUCT) "XAddExtension") (foreign-function xfindonextensionlist ((POINTER (POINTER STRUCT)) INT) (POINTER STRUCT) "XFindOnExtensionList") ;(foreign-function xeheadofextensionlist (***INVALID***) (POINTER (POINTER STRUCT)) "XEHeadOfExtensionList") (foreign-function xrootwindow ((POINTER STRUCT) INT) UNSIGNED-LONG "XRootWindow") (foreign-function xdefaultrootwindow ((POINTER STRUCT)) UNSIGNED-LONG "XDefaultRootWindow") (foreign-function xrootwindowofscreen ((POINTER STRUCT)) UNSIGNED-LONG "XRootWindowOfScreen") (foreign-function xdefaultvisual ((POINTER STRUCT) INT) (POINTER STRUCT) "XDefaultVisual") (foreign-function xdefaultvisualofscreen ((POINTER STRUCT)) (POINTER STRUCT) "XDefaultVisualOfScreen") (foreign-function xdefaultgc ((POINTER STRUCT) INT) (POINTER STRUCT) "XDefaultGC") (foreign-function xdefaultgcofscreen ((POINTER STRUCT)) (POINTER STRUCT) "XDefaultGCOfScreen") (foreign-function xblackpixel ((POINTER STRUCT) INT) UNSIGNED-LONG "XBlackPixel") (foreign-function xwhitepixel ((POINTER STRUCT) INT) UNSIGNED-LONG "XWhitePixel") (foreign-function xallplanes () UNSIGNED-LONG "XAllPlanes") (foreign-function xblackpixelofscreen ((POINTER STRUCT)) UNSIGNED-LONG "XBlackPixelOfScreen") (foreign-function xwhitepixelofscreen ((POINTER STRUCT)) UNSIGNED-LONG "XWhitePixelOfScreen") (foreign-function xnextrequest ((POINTER STRUCT)) UNSIGNED-LONG "XNextRequest") (foreign-function xlastknownrequestprocessed ((POINTER STRUCT)) UNSIGNED-LONG "XLastKnownRequestProcessed") (foreign-function xservervendor ((POINTER STRUCT)) STRING "XServerVendor") (foreign-function xdisplaystring ((POINTER STRUCT)) STRING "XDisplayString") (foreign-function xdefaultcolormap ((POINTER STRUCT) INT) UNSIGNED-LONG "XDefaultColormap") (foreign-function xdefaultcolormapofscreen ((POINTER STRUCT)) UNSIGNED-LONG "XDefaultColormapOfScreen") (foreign-function xdisplayofscreen ((POINTER STRUCT)) (POINTER STRUCT) "XDisplayOfScreen") (foreign-function xscreenofdisplay ((POINTER STRUCT) INT) (POINTER STRUCT) "XScreenOfDisplay") (foreign-function xdefaultscreenofdisplay ((POINTER STRUCT)) (POINTER STRUCT) "XDefaultScreenOfDisplay") (foreign-function xeventmaskofscreen ((POINTER STRUCT)) INT "XEventMaskOfScreen") (foreign-function xscreennumberofscreen ((POINTER STRUCT)) INT "XScreenNumberOfScreen") (foreign-function xseterrorhandler ((POINTER FUNCTION)) (POINTER FUNCTION) "XSetErrorHandler") (foreign-function xsetioerrorhandler ((POINTER FUNCTION)) (POINTER FUNCTION) "XSetIOErrorHandler") (foreign-function xlistpixmapformats ((POINTER STRUCT) (POINTER INT)) (POINTER STRUCT) "XListPixmapFormats") (foreign-function xlistdepths ((POINTER STRUCT) INT (POINTER INT)) (POINTER INT) "XListDepths") (foreign-function xreconfigurewmwindow ((POINTER STRUCT) UNSIGNED-LONG INT UNSIGNED-INT (POINTER STRUCT)) INT "XReconfigureWMWindow") (foreign-function xgetwmprotocols ((POINTER STRUCT) UNSIGNED-LONG (POINTER (POINTER UNSIGNED-LONG)) (POINTER INT)) INT "XGetWMProtocols") (foreign-function xsetwmprotocols ((POINTER STRUCT) UNSIGNED-LONG (POINTER UNSIGNED-LONG) INT) INT "XSetWMProtocols") (foreign-function xiconifywindow ((POINTER STRUCT) UNSIGNED-LONG INT) INT "XIconifyWindow") (foreign-function xwithdrawwindow ((POINTER STRUCT) UNSIGNED-LONG INT) INT "XWithdrawWindow") (foreign-function xgetcommand ((POINTER STRUCT) UNSIGNED-LONG (POINTER (POINTER (POINTER CHAR))) (POINTER INT)) INT "XGetCommand") (foreign-function xgetwmcolormapwindows ((POINTER STRUCT) UNSIGNED-LONG (POINTER (POINTER UNSIGNED-LONG)) (POINTER INT)) INT "XGetWMColormapWindows") (foreign-function xsetwmcolormapwindows ((POINTER STRUCT) UNSIGNED-LONG (POINTER UNSIGNED-LONG) INT) INT "XSetWMColormapWindows") (foreign-function xfreestringlist ((POINTER (POINTER CHAR))) VOID "XFreeStringList") (foreign-function xsettransientforhint ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG) INT "XSetTransientForHint") (foreign-function xactivatescreensaver ((POINTER STRUCT)) INT "XActivateScreenSaver") (foreign-function xaddhost ((POINTER STRUCT) (POINTER STRUCT)) INT "XAddHost") (foreign-function xaddhosts ((POINTER STRUCT) (POINTER STRUCT) INT) INT "XAddHosts") (foreign-function xaddtoextensionlist ((POINTER (POINTER STRUCT)) (POINTER STRUCT)) INT "XAddToExtensionList") (foreign-function xaddtosaveset ((POINTER STRUCT) UNSIGNED-LONG) INT "XAddToSaveSet") (foreign-function xalloccolor ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) INT "XAllocColor") (foreign-function xalloccolorcells ((POINTER STRUCT) UNSIGNED-LONG INT (POINTER UNSIGNED-LONG) UNSIGNED-INT (POINTER UNSIGNED-LONG) UNSIGNED-INT) INT "XAllocColorCells") (foreign-function xalloccolorplanes ((POINTER STRUCT) UNSIGNED-LONG INT (POINTER UNSIGNED-LONG) INT INT INT INT (POINTER UNSIGNED-LONG) (POINTER UNSIGNED-LONG) (POINTER UNSIGNED-LONG)) INT "XAllocColorPlanes") (foreign-function xallocnamedcolor ((POINTER STRUCT) UNSIGNED-LONG STRING (POINTER STRUCT) (POINTER STRUCT)) INT "XAllocNamedColor") (foreign-function xallowevents ((POINTER STRUCT) INT UNSIGNED-LONG) INT "XAllowEvents") (foreign-function xautorepeatoff ((POINTER STRUCT)) INT "XAutoRepeatOff") (foreign-function xautorepeaton ((POINTER STRUCT)) INT "XAutoRepeatOn") (foreign-function xbell ((POINTER STRUCT) INT) INT "XBell") (foreign-function xbitmapbitorder ((POINTER STRUCT)) INT "XBitmapBitOrder") (foreign-function xbitmappad ((POINTER STRUCT)) INT "XBitmapPad") (foreign-function xbitmapunit ((POINTER STRUCT)) INT "XBitmapUnit") (foreign-function xcellsofscreen ((POINTER STRUCT)) INT "XCellsOfScreen") (foreign-function xchangeactivepointergrab ((POINTER STRUCT) UNSIGNED-INT UNSIGNED-LONG UNSIGNED-LONG) INT "XChangeActivePointerGrab") (foreign-function xchangegc ((POINTER STRUCT) (POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) INT "XChangeGC") (foreign-function xchangekeyboardcontrol ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) INT "XChangeKeyboardControl") (foreign-function xchangekeyboardmapping ((POINTER STRUCT) INT INT (POINTER UNSIGNED-LONG) INT) INT "XChangeKeyboardMapping") (foreign-function xchangepointercontrol ((POINTER STRUCT) INT INT INT INT INT) INT "XChangePointerControl") (foreign-function xchangeproperty ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG UNSIGNED-LONG INT INT (POINTER UNSIGNED-CHAR) INT) INT "XChangeProperty") (foreign-function xchangesaveset ((POINTER STRUCT) UNSIGNED-LONG INT) INT "XChangeSaveSet") (foreign-function xchangewindowattributes ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG (POINTER STRUCT)) INT "XChangeWindowAttributes") (foreign-function xcheckifevent ((POINTER STRUCT) (POINTER UNION) (POINTER FUNCTION) (POINTER CHAR)) INT "XCheckIfEvent") (foreign-function xcheckmaskevent ((POINTER STRUCT) INT (POINTER UNION)) INT "XCheckMaskEvent") (foreign-function xchecktypedevent ((POINTER STRUCT) INT (POINTER UNION)) INT "XCheckTypedEvent") (foreign-function xchecktypedwindowevent ((POINTER STRUCT) UNSIGNED-LONG INT (POINTER UNION)) INT "XCheckTypedWindowEvent") (foreign-function xcheckwindowevent ((POINTER STRUCT) UNSIGNED-LONG INT (POINTER UNION)) INT "XCheckWindowEvent") (foreign-function xcirculatesubwindows ((POINTER STRUCT) UNSIGNED-LONG INT) INT "XCirculateSubwindows") (foreign-function xcirculatesubwindowsdown ((POINTER STRUCT) UNSIGNED-LONG) INT "XCirculateSubwindowsDown") (foreign-function xcirculatesubwindowsup ((POINTER STRUCT) UNSIGNED-LONG) INT "XCirculateSubwindowsUp") (foreign-function xcleararea ((POINTER STRUCT) UNSIGNED-LONG INT INT UNSIGNED-INT UNSIGNED-INT INT) INT "XClearArea") (foreign-function xclearwindow ((POINTER STRUCT) UNSIGNED-LONG) INT "XClearWindow") (foreign-function xclosedisplay ((POINTER STRUCT)) INT "XCloseDisplay") (foreign-function xconfigurewindow ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-INT (POINTER STRUCT)) INT "XConfigureWindow") (foreign-function xconnectionnumber ((POINTER STRUCT)) INT "XConnectionNumber") (foreign-function xconvertselection ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG UNSIGNED-LONG UNSIGNED-LONG UNSIGNED-LONG) INT "XConvertSelection") (foreign-function xcopyarea ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG (POINTER STRUCT) INT INT UNSIGNED-INT UNSIGNED-INT INT INT) INT "XCopyArea") (foreign-function xcopygc ((POINTER STRUCT) (POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) INT "XCopyGC") (foreign-function xcopyplane ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG (POINTER STRUCT) INT INT UNSIGNED-INT UNSIGNED-INT INT INT UNSIGNED-LONG) INT "XCopyPlane") (foreign-function xdefaultdepth ((POINTER STRUCT) INT) INT "XDefaultDepth") (foreign-function xdefaultdepthofscreen ((POINTER STRUCT)) INT "XDefaultDepthOfScreen") (foreign-function xdefaultscreen ((POINTER STRUCT)) INT "XDefaultScreen") (foreign-function xdefinecursor ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG) INT "XDefineCursor") (foreign-function xdeleteproperty ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG) INT "XDeleteProperty") (foreign-function xdestroywindow ((POINTER STRUCT) UNSIGNED-LONG) INT "XDestroyWindow") (foreign-function xdestroysubwindows ((POINTER STRUCT) UNSIGNED-LONG) INT "XDestroySubwindows") (foreign-function xdoesbackingstore ((POINTER STRUCT)) INT "XDoesBackingStore") (foreign-function xdoessaveunders ((POINTER STRUCT)) INT "XDoesSaveUnders") (foreign-function xdisableaccesscontrol ((POINTER STRUCT)) INT "XDisableAccessControl") (foreign-function xdisplaycells ((POINTER STRUCT) INT) INT "XDisplayCells") (foreign-function xdisplayheight ((POINTER STRUCT) INT) INT "XDisplayHeight") (foreign-function xdisplayheightmm ((POINTER STRUCT) INT) INT "XDisplayHeightMM") (foreign-function xdisplaykeycodes ((POINTER STRUCT) (POINTER INT) (POINTER INT)) INT "XDisplayKeycodes") (foreign-function xdisplayplanes ((POINTER STRUCT) INT) INT "XDisplayPlanes") (foreign-function xdisplaywidth ((POINTER STRUCT) INT) INT "XDisplayWidth") (foreign-function xdisplaywidthmm ((POINTER STRUCT) INT) INT "XDisplayWidthMM") (foreign-function xdrawarc ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) INT INT UNSIGNED-INT UNSIGNED-INT INT INT) INT "XDrawArc") (foreign-function xdrawarcs ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) (POINTER STRUCT) INT) INT "XDrawArcs") (foreign-function xdrawimagestring ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) INT INT STRING INT) INT "XDrawImageString") (foreign-function xdrawimagestring16 ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) INT INT (POINTER STRUCT) INT) INT "XDrawImageString16") (foreign-function xdrawline ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) INT INT INT INT) INT "XDrawLine") (foreign-function xdrawlines ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) (POINTER STRUCT) INT INT) INT "XDrawLines") (foreign-function xdrawpoint ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) INT INT) INT "XDrawPoint") (foreign-function xdrawpoints ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) (POINTER STRUCT) INT INT) INT "XDrawPoints") (foreign-function xdrawrectangle ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) INT INT UNSIGNED-INT UNSIGNED-INT) INT "XDrawRectangle") (foreign-function xdrawrectangles ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) (POINTER STRUCT) INT) INT "XDrawRectangles") (foreign-function xdrawsegments ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) (POINTER STRUCT) INT) INT "XDrawSegments") (foreign-function xdrawstring ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) INT INT STRING INT) INT "XDrawString") (foreign-function xdrawstring16 ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) INT INT (POINTER STRUCT) INT) INT "XDrawString16") (foreign-function xdrawtext ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) INT INT (POINTER STRUCT) INT) INT "XDrawText") (foreign-function xdrawtext16 ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) INT INT (POINTER STRUCT) INT) INT "XDrawText16") (foreign-function xenableaccesscontrol ((POINTER STRUCT)) INT "XEnableAccessControl") (foreign-function xeventsqueued ((POINTER STRUCT) INT) INT "XEventsQueued") (foreign-function xfetchname ((POINTER STRUCT) UNSIGNED-LONG (POINTER (POINTER CHAR))) INT "XFetchName") (foreign-function xfillarc ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) INT INT UNSIGNED-INT UNSIGNED-INT INT INT) INT "XFillArc") (foreign-function xfillarcs ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) (POINTER STRUCT) INT) INT "XFillArcs") (foreign-function xfillpolygon ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) (POINTER STRUCT) INT INT INT) INT "XFillPolygon") (foreign-function xfillrectangle ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) INT INT UNSIGNED-INT UNSIGNED-INT) INT "XFillRectangle") (foreign-function xfillrectangles ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) (POINTER STRUCT) INT) INT "XFillRectangles") (foreign-function xflush ((POINTER STRUCT)) INT "XFlush") (foreign-function xforcescreensaver ((POINTER STRUCT) INT) INT "XForceScreenSaver") (foreign-function xfree ((POINTER VOID)) INT "XFree") (foreign-function xfreecolormap ((POINTER STRUCT) UNSIGNED-LONG) INT "XFreeColormap") (foreign-function xfreecolors ((POINTER STRUCT) UNSIGNED-LONG (POINTER UNSIGNED-LONG) INT UNSIGNED-LONG) INT "XFreeColors") (foreign-function xfreecursor ((POINTER STRUCT) UNSIGNED-LONG) INT "XFreeCursor") (foreign-function xfreeextensionlist ((POINTER (POINTER CHAR))) INT "XFreeExtensionList") (foreign-function xfreefont ((POINTER STRUCT) (POINTER STRUCT)) INT "XFreeFont") (foreign-function xfreefontinfo ((POINTER (POINTER CHAR)) (POINTER STRUCT) INT) INT "XFreeFontInfo") (foreign-function xfreefontnames ((POINTER (POINTER CHAR))) INT "XFreeFontNames") (foreign-function xfreefontpath ((POINTER (POINTER CHAR))) INT "XFreeFontPath") (foreign-function xfreegc ((POINTER STRUCT) (POINTER STRUCT)) INT "XFreeGC") (foreign-function xfreemodifiermap ((POINTER STRUCT)) INT "XFreeModifiermap") (foreign-function xfreepixmap ((POINTER STRUCT) UNSIGNED-LONG) INT "XFreePixmap") (foreign-function xgeometry ((POINTER STRUCT) INT STRING STRING UNSIGNED-INT UNSIGNED-INT UNSIGNED-INT INT INT (POINTER INT) (POINTER INT) (POINTER INT) (POINTER INT)) INT "XGeometry") (foreign-function xgeterrordatabasetext ((POINTER STRUCT) STRING STRING STRING (POINTER CHAR) INT) INT "XGetErrorDatabaseText") (foreign-function xgeterrortext ((POINTER STRUCT) INT (POINTER CHAR) INT) INT "XGetErrorText") (foreign-function xgetfontproperty ((POINTER STRUCT) UNSIGNED-LONG (POINTER UNSIGNED-LONG)) INT "XGetFontProperty") (foreign-function xgetgcvalues ((POINTER STRUCT) (POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) INT "XGetGCValues") (foreign-function xgetgeometry ((POINTER STRUCT) UNSIGNED-LONG (POINTER UNSIGNED-LONG) (POINTER INT) (POINTER INT) (POINTER UNSIGNED-INT) (POINTER UNSIGNED-INT) (POINTER UNSIGNED-INT) (POINTER UNSIGNED-INT)) INT "XGetGeometry") (foreign-function xgeticonname ((POINTER STRUCT) UNSIGNED-LONG (POINTER (POINTER CHAR))) INT "XGetIconName") (foreign-function xgetinputfocus ((POINTER STRUCT) (POINTER UNSIGNED-LONG) (POINTER INT)) INT "XGetInputFocus") (foreign-function xgetkeyboardcontrol ((POINTER STRUCT) (POINTER STRUCT)) INT "XGetKeyboardControl") (foreign-function xgetpointercontrol ((POINTER STRUCT) (POINTER INT) (POINTER INT) (POINTER INT)) INT "XGetPointerControl") (foreign-function xgetpointermapping ((POINTER STRUCT) (POINTER UNSIGNED-CHAR) INT) INT "XGetPointerMapping") (foreign-function xgetscreensaver ((POINTER STRUCT) (POINTER INT) (POINTER INT) (POINTER INT) (POINTER INT)) INT "XGetScreenSaver") (foreign-function xgettransientforhint ((POINTER STRUCT) UNSIGNED-LONG (POINTER UNSIGNED-LONG)) INT "XGetTransientForHint") (foreign-function xgetwindowproperty ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG INT INT INT UNSIGNED-LONG (POINTER UNSIGNED-LONG) (POINTER INT) (POINTER UNSIGNED-LONG) (POINTER UNSIGNED-LONG) (POINTER (POINTER UNSIGNED-CHAR))) INT "XGetWindowProperty") (foreign-function xgetwindowattributes ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) INT "XGetWindowAttributes") (foreign-function xgrabbutton ((POINTER STRUCT) UNSIGNED-INT UNSIGNED-INT UNSIGNED-LONG INT UNSIGNED-INT INT INT UNSIGNED-LONG UNSIGNED-LONG) INT "XGrabButton") (foreign-function xgrabkey ((POINTER STRUCT) INT UNSIGNED-INT UNSIGNED-LONG INT INT INT) INT "XGrabKey") (foreign-function xgrabkeyboard ((POINTER STRUCT) UNSIGNED-LONG INT INT INT UNSIGNED-LONG) INT "XGrabKeyboard") (foreign-function xgrabpointer ((POINTER STRUCT) UNSIGNED-LONG INT UNSIGNED-INT INT INT UNSIGNED-LONG UNSIGNED-LONG UNSIGNED-LONG) INT "XGrabPointer") (foreign-function xgrabserver ((POINTER STRUCT)) INT "XGrabServer") (foreign-function xheightmmofscreen ((POINTER STRUCT)) INT "XHeightMMOfScreen") (foreign-function xheightofscreen ((POINTER STRUCT)) INT "XHeightOfScreen") (foreign-function xifevent ((POINTER STRUCT) (POINTER UNION) (POINTER FUNCTION) (POINTER CHAR)) INT "XIfEvent") (foreign-function ximagebyteorder ((POINTER STRUCT)) INT "XImageByteOrder") (foreign-function xinstallcolormap ((POINTER STRUCT) UNSIGNED-LONG) INT "XInstallColormap") (foreign-function xkeysymtokeycode ((POINTER STRUCT) UNSIGNED-LONG) UNSIGNED-CHAR "XKeysymToKeycode") (foreign-function xkillclient ((POINTER STRUCT) UNSIGNED-LONG) INT "XKillClient") (foreign-function xlookupcolor ((POINTER STRUCT) UNSIGNED-LONG STRING (POINTER STRUCT) (POINTER STRUCT)) INT "XLookupColor") (foreign-function xlowerwindow ((POINTER STRUCT) UNSIGNED-LONG) INT "XLowerWindow") (foreign-function xmapraised ((POINTER STRUCT) UNSIGNED-LONG) INT "XMapRaised") (foreign-function xmapsubwindows ((POINTER STRUCT) UNSIGNED-LONG) INT "XMapSubwindows") (foreign-function xmapwindow ((POINTER STRUCT) UNSIGNED-LONG) INT "XMapWindow") (foreign-function xmaskevent ((POINTER STRUCT) INT (POINTER UNION)) INT "XMaskEvent") (foreign-function xmaxcmapsofscreen ((POINTER STRUCT)) INT "XMaxCmapsOfScreen") (foreign-function xmincmapsofscreen ((POINTER STRUCT)) INT "XMinCmapsOfScreen") (foreign-function xmoveresizewindow ((POINTER STRUCT) UNSIGNED-LONG INT INT UNSIGNED-INT UNSIGNED-INT) INT "XMoveResizeWindow") (foreign-function xmovewindow ((POINTER STRUCT) UNSIGNED-LONG INT INT) INT "XMoveWindow") (foreign-function xnextevent ((POINTER STRUCT) (POINTER UNION)) INT "XNextEvent") (foreign-function xnoop ((POINTER STRUCT)) INT "XNoOp") (foreign-function xparsecolor ((POINTER STRUCT) UNSIGNED-LONG STRING (POINTER STRUCT)) INT "XParseColor") (foreign-function xparsegeometry (STRING (POINTER INT) (POINTER INT) (POINTER UNSIGNED-INT) (POINTER UNSIGNED-INT)) INT "XParseGeometry") (foreign-function xpeekevent ((POINTER STRUCT) (POINTER UNION)) INT "XPeekEvent") (foreign-function xpeekifevent ((POINTER STRUCT) (POINTER UNION) (POINTER FUNCTION) (POINTER CHAR)) INT "XPeekIfEvent") (foreign-function xpending ((POINTER STRUCT)) INT "XPending") (foreign-function xplanesofscreen ((POINTER STRUCT)) INT "XPlanesOfScreen") (foreign-function xprotocolrevision ((POINTER STRUCT)) INT "XProtocolRevision") (foreign-function xprotocolversion ((POINTER STRUCT)) INT "XProtocolVersion") (foreign-function xputbackevent ((POINTER STRUCT) (POINTER UNION)) INT "XPutBackEvent") (foreign-function xputimage ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) (POINTER STRUCT) INT INT INT INT UNSIGNED-INT UNSIGNED-INT) INT "XPutImage") (foreign-function xqlength ((POINTER STRUCT)) INT "XQLength") (foreign-function xquerybestcursor ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-INT UNSIGNED-INT (POINTER UNSIGNED-INT) (POINTER UNSIGNED-INT)) INT "XQueryBestCursor") (foreign-function xquerybestsize ((POINTER STRUCT) INT UNSIGNED-LONG UNSIGNED-INT UNSIGNED-INT (POINTER UNSIGNED-INT) (POINTER UNSIGNED-INT)) INT "XQueryBestSize") (foreign-function xquerybeststipple ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-INT UNSIGNED-INT (POINTER UNSIGNED-INT) (POINTER UNSIGNED-INT)) INT "XQueryBestStipple") (foreign-function xquerybesttile ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-INT UNSIGNED-INT (POINTER UNSIGNED-INT) (POINTER UNSIGNED-INT)) INT "XQueryBestTile") (foreign-function xquerycolor ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) INT "XQueryColor") (foreign-function xquerycolors ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) INT) INT "XQueryColors") (foreign-function xqueryextension ((POINTER STRUCT) STRING (POINTER INT) (POINTER INT) (POINTER INT)) INT "XQueryExtension") (foreign-function xquerykeymap ((POINTER STRUCT) (POINTER CHAR)) INT "XQueryKeymap") (foreign-function xquerypointer ((POINTER STRUCT) UNSIGNED-LONG (POINTER UNSIGNED-LONG) (POINTER UNSIGNED-LONG) (POINTER INT) (POINTER INT) (POINTER INT) (POINTER INT) (POINTER UNSIGNED-INT)) INT "XQueryPointer") (foreign-function xquerytextextents ((POINTER STRUCT) UNSIGNED-LONG STRING INT (POINTER INT) (POINTER INT) (POINTER INT) (POINTER STRUCT)) INT "XQueryTextExtents") (foreign-function xquerytextextents16 ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) INT (POINTER INT) (POINTER INT) (POINTER INT) (POINTER STRUCT)) INT "XQueryTextExtents16") (foreign-function xquerytree ((POINTER STRUCT) UNSIGNED-LONG (POINTER UNSIGNED-LONG) (POINTER UNSIGNED-LONG) (POINTER (POINTER UNSIGNED-LONG)) (POINTER UNSIGNED-INT)) INT "XQueryTree") (foreign-function xraisewindow ((POINTER STRUCT) UNSIGNED-LONG) INT "XRaiseWindow") (foreign-function xreadbitmapfile ((POINTER STRUCT) UNSIGNED-LONG STRING (POINTER UNSIGNED-INT) (POINTER UNSIGNED-INT) (POINTER UNSIGNED-LONG) (POINTER INT) (POINTER INT)) INT "XReadBitmapFile") (foreign-function xrebindkeysym ((POINTER STRUCT) UNSIGNED-LONG (POINTER UNSIGNED-LONG) INT (POINTER UNSIGNED-CHAR) INT) INT "XRebindKeysym") (foreign-function xrecolorcursor ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) (POINTER STRUCT)) INT "XRecolorCursor") (foreign-function xrefreshkeyboardmapping ((POINTER STRUCT)) INT "XRefreshKeyboardMapping") (foreign-function xremovefromsaveset ((POINTER STRUCT) UNSIGNED-LONG) INT "XRemoveFromSaveSet") (foreign-function xremovehost ((POINTER STRUCT) (POINTER STRUCT)) INT "XRemoveHost") (foreign-function xremovehosts ((POINTER STRUCT) (POINTER STRUCT) INT) INT "XRemoveHosts") (foreign-function xreparentwindow ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG INT INT) INT "XReparentWindow") (foreign-function xresetscreensaver ((POINTER STRUCT)) INT "XResetScreenSaver") (foreign-function xresizewindow ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-INT UNSIGNED-INT) INT "XResizeWindow") (foreign-function xrestackwindows ((POINTER STRUCT) (POINTER UNSIGNED-LONG) INT) INT "XRestackWindows") (foreign-function xrotatebuffers ((POINTER STRUCT) INT) INT "XRotateBuffers") (foreign-function xrotatewindowproperties ((POINTER STRUCT) UNSIGNED-LONG (POINTER UNSIGNED-LONG) INT INT) INT "XRotateWindowProperties") (foreign-function xscreencount ((POINTER STRUCT)) INT "XScreenCount") (foreign-function xselectinput ((POINTER STRUCT) UNSIGNED-LONG INT) INT "XSelectInput") (foreign-function xsendevent ((POINTER STRUCT) UNSIGNED-LONG INT INT (POINTER UNION)) INT "XSendEvent") (foreign-function xsetaccesscontrol ((POINTER STRUCT) INT) INT "XSetAccessControl") (foreign-function xsetarcmode ((POINTER STRUCT) (POINTER STRUCT) INT) INT "XSetArcMode") (foreign-function xsetbackground ((POINTER STRUCT) (POINTER STRUCT) UNSIGNED-LONG) INT "XSetBackground") (foreign-function xsetclipmask ((POINTER STRUCT) (POINTER STRUCT) UNSIGNED-LONG) INT "XSetClipMask") (foreign-function xsetcliporigin ((POINTER STRUCT) (POINTER STRUCT) INT INT) INT "XSetClipOrigin") (foreign-function xsetcliprectangles ((POINTER STRUCT) (POINTER STRUCT) INT INT (POINTER STRUCT) INT INT) INT "XSetClipRectangles") (foreign-function xsetclosedownmode ((POINTER STRUCT) INT) INT "XSetCloseDownMode") (foreign-function xsetcommand ((POINTER STRUCT) UNSIGNED-LONG (POINTER (POINTER CHAR)) INT) INT "XSetCommand") (foreign-function xsetdashes ((POINTER STRUCT) (POINTER STRUCT) INT (POINTER CHAR) INT) INT "XSetDashes") (foreign-function xsetfillrule ((POINTER STRUCT) (POINTER STRUCT) INT) INT "XSetFillRule") (foreign-function xsetfillstyle ((POINTER STRUCT) (POINTER STRUCT) INT) INT "XSetFillStyle") (foreign-function xsetfont ((POINTER STRUCT) (POINTER STRUCT) UNSIGNED-LONG) INT "XSetFont") (foreign-function xsetfontpath ((POINTER STRUCT) (POINTER (POINTER CHAR)) INT) INT "XSetFontPath") (foreign-function xsetforeground ((POINTER STRUCT) (POINTER STRUCT) UNSIGNED-LONG) INT "XSetForeground") (foreign-function xsetfunction ((POINTER STRUCT) (POINTER STRUCT) INT) INT "XSetFunction") (foreign-function xsetgraphicsexposures ((POINTER STRUCT) (POINTER STRUCT) INT) INT "XSetGraphicsExposures") (foreign-function xseticonname ((POINTER STRUCT) UNSIGNED-LONG STRING) INT "XSetIconName") (foreign-function xsetinputfocus ((POINTER STRUCT) UNSIGNED-LONG INT UNSIGNED-LONG) INT "XSetInputFocus") (foreign-function xsetlineattributes ((POINTER STRUCT) (POINTER STRUCT) UNSIGNED-INT INT INT INT) INT "XSetLineAttributes") (foreign-function xsetmodifiermapping ((POINTER STRUCT) (POINTER STRUCT)) INT "XSetModifierMapping") (foreign-function xsetplanemask ((POINTER STRUCT) (POINTER STRUCT) UNSIGNED-LONG) INT "XSetPlaneMask") (foreign-function xsetpointermapping ((POINTER STRUCT) (POINTER UNSIGNED-CHAR) INT) INT "XSetPointerMapping") (foreign-function xsetscreensaver ((POINTER STRUCT) INT INT INT INT) INT "XSetScreenSaver") (foreign-function xsetselectionowner ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG UNSIGNED-LONG) INT "XSetSelectionOwner") (foreign-function xsetstate ((POINTER STRUCT) (POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG INT UNSIGNED-LONG) INT "XSetState") (foreign-function xsetstipple ((POINTER STRUCT) (POINTER STRUCT) UNSIGNED-LONG) INT "XSetStipple") (foreign-function xsetsubwindowmode ((POINTER STRUCT) (POINTER STRUCT) INT) INT "XSetSubwindowMode") (foreign-function xsettsorigin ((POINTER STRUCT) (POINTER STRUCT) INT INT) INT "XSetTSOrigin") (foreign-function xsettile ((POINTER STRUCT) (POINTER STRUCT) UNSIGNED-LONG) INT "XSetTile") (foreign-function xsetwindowbackground ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG) INT "XSetWindowBackground") (foreign-function xsetwindowbackgroundpixmap ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG) INT "XSetWindowBackgroundPixmap") (foreign-function xsetwindowborder ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG) INT "XSetWindowBorder") (foreign-function xsetwindowborderpixmap ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG) INT "XSetWindowBorderPixmap") (foreign-function xsetwindowborderwidth ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-INT) INT "XSetWindowBorderWidth") (foreign-function xsetwindowcolormap ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG) INT "XSetWindowColormap") (foreign-function xstorebuffer ((POINTER STRUCT) (POINTER CHAR) INT INT) INT "XStoreBuffer") (foreign-function xstorebytes ((POINTER STRUCT) (POINTER CHAR) INT) INT "XStoreBytes") (foreign-function xstorecolor ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) INT "XStoreColor") (foreign-function xstorecolors ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) INT) INT "XStoreColors") (foreign-function xstorename ((POINTER STRUCT) UNSIGNED-LONG STRING) INT "XStoreName") (foreign-function xstorenamedcolor ((POINTER STRUCT) UNSIGNED-LONG STRING UNSIGNED-LONG INT) INT "XStoreNamedColor") (foreign-function xsync ((POINTER STRUCT) INT) INT "XSync") (foreign-function xtextextents ((POINTER STRUCT) STRING INT (POINTER INT) (POINTER INT) (POINTER INT) (POINTER STRUCT)) INT "XTextExtents") (foreign-function xtextextents16 ((POINTER STRUCT) (POINTER STRUCT) INT (POINTER INT) (POINTER INT) (POINTER INT) (POINTER STRUCT)) INT "XTextExtents16") (foreign-function xtextwidth ((POINTER STRUCT) STRING INT) INT "XTextWidth") (foreign-function xtextwidth16 ((POINTER STRUCT) (POINTER STRUCT) INT) INT "XTextWidth16") (foreign-function xtranslatecoordinates ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG INT INT (POINTER INT) (POINTER INT) (POINTER UNSIGNED-LONG)) INT "XTranslateCoordinates") (foreign-function xundefinecursor ((POINTER STRUCT) UNSIGNED-LONG) INT "XUndefineCursor") (foreign-function xungrabbutton ((POINTER STRUCT) UNSIGNED-INT UNSIGNED-INT UNSIGNED-LONG) INT "XUngrabButton") (foreign-function xungrabkey ((POINTER STRUCT) INT UNSIGNED-INT UNSIGNED-LONG) INT "XUngrabKey") (foreign-function xungrabkeyboard ((POINTER STRUCT) UNSIGNED-LONG) INT "XUngrabKeyboard") (foreign-function xungrabpointer ((POINTER STRUCT) UNSIGNED-LONG) INT "XUngrabPointer") (foreign-function xungrabserver ((POINTER STRUCT)) INT "XUngrabServer") (foreign-function xuninstallcolormap ((POINTER STRUCT) UNSIGNED-LONG) INT "XUninstallColormap") (foreign-function xunloadfont ((POINTER STRUCT) UNSIGNED-LONG) INT "XUnloadFont") (foreign-function xunmapsubwindows ((POINTER STRUCT) UNSIGNED-LONG) INT "XUnmapSubwindows") (foreign-function xunmapwindow ((POINTER STRUCT) UNSIGNED-LONG) INT "XUnmapWindow") (foreign-function xvendorrelease ((POINTER STRUCT)) INT "XVendorRelease") (foreign-function xwarppointer ((POINTER STRUCT) UNSIGNED-LONG UNSIGNED-LONG INT INT UNSIGNED-INT UNSIGNED-INT INT INT) INT "XWarpPointer") (foreign-function xwidthmmofscreen ((POINTER STRUCT)) INT "XWidthMMOfScreen") (foreign-function xwidthofscreen ((POINTER STRUCT)) INT "XWidthOfScreen") (foreign-function xwindowevent ((POINTER STRUCT) UNSIGNED-LONG INT (POINTER UNION)) INT "XWindowEvent") (foreign-function xwritebitmapfile ((POINTER STRUCT) STRING UNSIGNED-LONG UNSIGNED-INT UNSIGNED-INT INT INT) INT "XWriteBitmapFile") (foreign-function xsupportslocale () INT "XSupportsLocale") (foreign-function xsetlocalemodifiers (STRING) STRING "XSetLocaleModifiers") (foreign-function xcreatefontset ((POINTER STRUCT) STRING (POINTER (POINTER (POINTER CHAR))) (POINTER INT) (POINTER (POINTER CHAR))) (POINTER STRUCT) "XCreateFontSet") (foreign-function xfreefontset ((POINTER STRUCT) (POINTER STRUCT)) VOID "XFreeFontSet") (foreign-function xfontsoffontset ((POINTER STRUCT) (POINTER (POINTER (POINTER STRUCT))) (POINTER (POINTER (POINTER CHAR)))) INT "XFontsOfFontSet") (foreign-function xbasefontnamelistoffontset ((POINTER STRUCT)) (POINTER CHAR) "XBaseFontNameListOfFontSet") (foreign-function xlocaleoffontset ((POINTER STRUCT)) (POINTER CHAR) "XLocaleOfFontSet") (foreign-function xcontextdependentdrawing ((POINTER STRUCT)) INT "XContextDependentDrawing") (foreign-function xextentsoffontset ((POINTER STRUCT)) (POINTER STRUCT) "XExtentsOfFontSet") (foreign-function xmbtextescapement ((POINTER STRUCT) STRING INT) INT "XmbTextEscapement") (foreign-function xwctextescapement ((POINTER STRUCT) (POINTER UNSIGNED-CHAR) INT) INT "XwcTextEscapement") (foreign-function xmbtextextents ((POINTER STRUCT) STRING INT (POINTER STRUCT) (POINTER STRUCT)) INT "XmbTextExtents") (foreign-function xwctextextents ((POINTER STRUCT) (POINTER UNSIGNED-CHAR) INT (POINTER STRUCT) (POINTER STRUCT)) INT "XwcTextExtents") (foreign-function xmbtextpercharextents ((POINTER STRUCT) STRING INT (POINTER STRUCT) (POINTER STRUCT) INT (POINTER INT) (POINTER STRUCT) (POINTER STRUCT)) INT "XmbTextPerCharExtents") (foreign-function xwctextpercharextents ((POINTER STRUCT) (POINTER UNSIGNED-CHAR) INT (POINTER STRUCT) (POINTER STRUCT) INT (POINTER INT) (POINTER STRUCT) (POINTER STRUCT)) INT "XwcTextPerCharExtents") (foreign-function xmbdrawtext ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) INT INT (POINTER STRUCT) INT) VOID "XmbDrawText") (foreign-function xwcdrawtext ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) INT INT (POINTER STRUCT) INT) VOID "XwcDrawText") (foreign-function xmbdrawstring ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) (POINTER STRUCT) INT INT STRING INT) VOID "XmbDrawString") (foreign-function xwcdrawstring ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) (POINTER STRUCT) INT INT (POINTER UNSIGNED-CHAR) INT) VOID "XwcDrawString") (foreign-function xmbdrawimagestring ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) (POINTER STRUCT) INT INT STRING INT) VOID "XmbDrawImageString") (foreign-function xwcdrawimagestring ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) (POINTER STRUCT) INT INT (POINTER UNSIGNED-CHAR) INT) VOID "XwcDrawImageString") (foreign-function xopenim ((POINTER STRUCT) (POINTER STRUCT) (POINTER CHAR) (POINTER CHAR)) (POINTER STRUCT) "XOpenIM") (foreign-function xcloseim ((POINTER STRUCT)) INT "XCloseIM") ; XGetIMValues (foreign-function xdisplayofim ((POINTER STRUCT)) (POINTER STRUCT) "XDisplayOfIM") (foreign-function xlocaleofim ((POINTER STRUCT)) (POINTER CHAR) "XLocaleOfIM") ; XCreateIC (foreign-function xdestroyic ((POINTER STRUCT)) VOID "XDestroyIC") (foreign-function xseticfocus ((POINTER STRUCT)) VOID "XSetICFocus") (foreign-function xunseticfocus ((POINTER STRUCT)) VOID "XUnsetICFocus") (foreign-function xwcresetic ((POINTER STRUCT)) (POINTER UNSIGNED-CHAR) "XwcResetIC") (foreign-function xmbresetic ((POINTER STRUCT)) (POINTER CHAR) "XmbResetIC") ; XSetICValues ; XGetICValues (foreign-function ximofic ((POINTER STRUCT)) (POINTER STRUCT) "XIMOfIC") (foreign-function xfilterevent ((POINTER UNION) UNSIGNED-LONG) INT "XFilterEvent") (foreign-function xmblookupstring ((POINTER STRUCT) (POINTER STRUCT) STRING INT (POINTER UNSIGNED-LONG) (POINTER INT)) INT "XmbLookupString") (foreign-function xwclookupstring ((POINTER STRUCT) (POINTER STRUCT) (POINTER UNSIGNED-CHAR) INT (POINTER UNSIGNED-LONG) (POINTER INT)) INT "XwcLookupString") ; XVaCreateNestedList (foreign-function xallocclasshint () (POINTER STRUCT) "XAllocClassHint") (foreign-function xallociconsize () (POINTER STRUCT) "XAllocIconSize") (foreign-function xallocsizehints () (POINTER STRUCT) "XAllocSizeHints") (foreign-function xallocstandardcolormap () (POINTER STRUCT) "XAllocStandardColormap") (foreign-function xallocwmhints () (POINTER STRUCT) "XAllocWMHints") (foreign-function xclipbox ((POINTER STRUCT) (POINTER STRUCT)) INT "XClipBox") (foreign-function xcreateregion () (POINTER STRUCT) "XCreateRegion") (foreign-function xdefaultstring () STRING "XDefaultString") (foreign-function xdeletecontext ((POINTER STRUCT) UNSIGNED-LONG INT) INT "XDeleteContext") (foreign-function xdestroyregion ((POINTER STRUCT)) INT "XDestroyRegion") (foreign-function xemptyregion ((POINTER STRUCT)) INT "XEmptyRegion") (foreign-function xequalregion ((POINTER STRUCT) (POINTER STRUCT)) INT "XEqualRegion") (foreign-function xfindcontext ((POINTER STRUCT) UNSIGNED-LONG INT (POINTER (POINTER CHAR))) INT "XFindContext") (foreign-function xgetclasshint ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) INT "XGetClassHint") (foreign-function xgeticonsizes ((POINTER STRUCT) UNSIGNED-LONG (POINTER (POINTER STRUCT)) (POINTER INT)) INT "XGetIconSizes") (foreign-function xgetnormalhints ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) INT "XGetNormalHints") (foreign-function xgetrgbcolormaps ((POINTER STRUCT) UNSIGNED-LONG (POINTER (POINTER STRUCT)) (POINTER INT) UNSIGNED-LONG) INT "XGetRGBColormaps") (foreign-function xgetsizehints ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) UNSIGNED-LONG) INT "XGetSizeHints") (foreign-function xgetstandardcolormap ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) UNSIGNED-LONG) INT "XGetStandardColormap") (foreign-function xgettextproperty ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) UNSIGNED-LONG) INT "XGetTextProperty") (foreign-function xgetvisualinfo ((POINTER STRUCT) INT (POINTER STRUCT) (POINTER INT)) (POINTER STRUCT) "XGetVisualInfo") (foreign-function xgetwmclientmachine ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) INT "XGetWMClientMachine") (foreign-function xgetwmhints ((POINTER STRUCT) UNSIGNED-LONG) (POINTER STRUCT) "XGetWMHints") (foreign-function xgetwmiconname ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) INT "XGetWMIconName") (foreign-function xgetwmname ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) INT "XGetWMName") (foreign-function xgetwmnormalhints ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) (POINTER INT)) INT "XGetWMNormalHints") (foreign-function xgetwmsizehints ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) (POINTER INT) UNSIGNED-LONG) INT "XGetWMSizeHints") (foreign-function xgetzoomhints ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) INT "XGetZoomHints") (foreign-function xintersectregion ((POINTER STRUCT) (POINTER STRUCT) (POINTER STRUCT)) INT "XIntersectRegion") (foreign-function xlookupstring ((POINTER STRUCT) STRING INT (POINTER UNSIGNED-LONG) (POINTER STRUCT)) INT "XLookupString") (foreign-function xmatchvisualinfo ((POINTER STRUCT) INT INT INT (POINTER STRUCT)) INT "XMatchVisualInfo") (foreign-function xoffsetregion ((POINTER STRUCT) INT INT) INT "XOffsetRegion") (foreign-function xpointinregion ((POINTER STRUCT) INT INT) INT "XPointInRegion") (foreign-function xpolygonregion ((POINTER STRUCT) INT INT) (POINTER STRUCT) "XPolygonRegion") (foreign-function xrectinregion ((POINTER STRUCT) INT INT UNSIGNED-INT UNSIGNED-INT) INT "XRectInRegion") (foreign-function xsavecontext ((POINTER STRUCT) UNSIGNED-LONG INT (POINTER CHAR)) INT "XSaveContext") (foreign-function xsetclasshint ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) INT "XSetClassHint") (foreign-function xseticonsizes ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) INT) INT "XSetIconSizes") (foreign-function xsetnormalhints ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) INT "XSetNormalHints") (foreign-function xsetrgbcolormaps ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) INT UNSIGNED-LONG) VOID "XSetRGBColormaps") (foreign-function xsetsizehints ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) UNSIGNED-LONG) INT "XSetSizeHints") (foreign-function xsetstandardproperties ((POINTER STRUCT) UNSIGNED-LONG (POINTER CHAR) (POINTER CHAR) UNSIGNED-LONG (POINTER (POINTER CHAR)) INT (POINTER STRUCT)) INT "XSetStandardProperties") (foreign-function xsettextproperty ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) UNSIGNED-LONG) VOID "XSetTextProperty") (foreign-function xsetwmclientmachine ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) VOID "XSetWMClientMachine") (foreign-function xsetwmhints ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) INT "XSetWMHints") (foreign-function xsetwmiconname ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) VOID "XSetWMIconName") (foreign-function xsetwmname ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) VOID "XSetWMName") (foreign-function xsetwmnormalhints ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) VOID "XSetWMNormalHints") (foreign-function xsetwmproperties ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) (POINTER STRUCT) (POINTER (POINTER CHAR)) INT (POINTER STRUCT) (POINTER STRUCT) (POINTER STRUCT)) VOID "XSetWMProperties") (foreign-function xmbsetwmproperties ((POINTER STRUCT) UNSIGNED-LONG (POINTER CHAR) (POINTER CHAR) (POINTER (POINTER CHAR)) INT (POINTER STRUCT) (POINTER STRUCT) (POINTER STRUCT)) VOID "XmbSetWMProperties") (foreign-function xsetwmsizehints ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) UNSIGNED-LONG) VOID "XSetWMSizeHints") (foreign-function xsetregion ((POINTER STRUCT) (POINTER STRUCT) (POINTER STRUCT)) INT "XSetRegion") (foreign-function xsetstandardcolormap ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT) UNSIGNED-LONG) VOID "XSetStandardColormap") (foreign-function xsetzoomhints ((POINTER STRUCT) UNSIGNED-LONG (POINTER STRUCT)) INT "XSetZoomHints") (foreign-function xshrinkregion ((POINTER STRUCT) INT INT) INT "XShrinkRegion") (foreign-function xstringlisttotextproperty ((POINTER (POINTER CHAR)) INT (POINTER STRUCT)) INT "XStringListToTextProperty") (foreign-function xsubtractregion ((POINTER STRUCT) (POINTER STRUCT) (POINTER STRUCT)) INT "XSubtractRegion") (foreign-function xmbtextlisttotextproperty ((POINTER STRUCT) (POINTER (POINTER CHAR)) INT INT (POINTER STRUCT)) INT "XmbTextListToTextProperty") (foreign-function xwctextlisttotextproperty ((POINTER STRUCT) (POINTER (POINTER UNSIGNED-CHAR)) INT INT (POINTER STRUCT)) INT "XwcTextListToTextProperty") (foreign-function xwcfreestringlist ((POINTER (POINTER UNSIGNED-CHAR))) VOID "XwcFreeStringList") (foreign-function xtextpropertytostringlist ((POINTER STRUCT) (POINTER (POINTER (POINTER CHAR))) (POINTER INT)) INT "XTextPropertyToStringList") (foreign-function xmbtextpropertytotextlist ((POINTER STRUCT) (POINTER STRUCT) (POINTER (POINTER (POINTER CHAR))) (POINTER INT)) INT "XmbTextPropertyToTextList") (foreign-function xwctextpropertytotextlist ((POINTER STRUCT) (POINTER STRUCT) (POINTER (POINTER (POINTER UNSIGNED-CHAR))) (POINTER INT)) INT "XwcTextPropertyToTextList") (foreign-function xunionrectwithregion ((POINTER STRUCT) (POINTER STRUCT) (POINTER STRUCT)) INT "XUnionRectWithRegion") (foreign-function xunionregion ((POINTER STRUCT) (POINTER STRUCT) (POINTER STRUCT)) INT "XUnionRegion") (foreign-function xwmgeometry ((POINTER STRUCT) INT STRING STRING UNSIGNED-INT (POINTER STRUCT) (POINTER INT) (POINTER INT) (POINTER INT) (POINTER INT) (POINTER INT)) INT "XWMGeometry") (foreign-function xxorregion ((POINTER STRUCT) (POINTER STRUCT) (POINTER STRUCT)) INT "XXorRegion") ;;; CONSTANTS. From Scheme->C distribution (foreign-define X_PROTOCOL 11) (foreign-define X_PROTOCOL_REVISION 0) (foreign-define NONE 0) (foreign-define PARENTRELATIVE 1) (foreign-define COPYFROMPARENT 0) (foreign-define POINTERWINDOW 0) (foreign-define INPUTFOCUS 1) (foreign-define POINTERROOT 1) (foreign-define ANYPROPERTYTYPE 0) (foreign-define ANYKEY 0) (foreign-define ANYBUTTON 0) (foreign-define ALLTEMPORARY 0) (foreign-define CURRENTTIME 0) (foreign-define NOSYMBOL 0) (foreign-define NOEVENTMASK 0) (foreign-define KEYPRESSMASK 1) (foreign-define KEYRELEASEMASK 2) (foreign-define BUTTONPRESSMASK 4) (foreign-define BUTTONRELEASEMASK 8) (foreign-define ENTERWINDOWMASK 16) (foreign-define LEAVEWINDOWMASK 32) (foreign-define POINTERMOTIONMASK 64) (foreign-define POINTERMOTIONHINTMASK 128) (foreign-define BUTTON1MOTIONMASK 256) (foreign-define BUTTON2MOTIONMASK 512) (foreign-define BUTTON3MOTIONMASK 1024) (foreign-define BUTTON4MOTIONMASK 2048) (foreign-define BUTTON5MOTIONMASK 4096) (foreign-define BUTTONMOTIONMASK 8192) (foreign-define KEYMAPSTATEMASK 16384) (foreign-define EXPOSUREMASK 32768) (foreign-define VISIBILITYCHANGEMASK 65536) (foreign-define STRUCTURENOTIFYMASK 131072) (foreign-define RESIZEREDIRECTMASK 262144) (foreign-define SUBSTRUCTURENOTIFYMASK 524288) (foreign-define SUBSTRUCTUREREDIRECTMASK 1048576) (foreign-define FOCUSCHANGEMASK 2097152) (foreign-define PROPERTYCHANGEMASK 4194304) (foreign-define COLORMAPCHANGEMASK 8388608) (foreign-define OWNERGRABBUTTONMASK 16777216) (foreign-define KEYPRESS 2) (foreign-define KEYRELEASE 3) (foreign-define BUTTONPRESS 4) (foreign-define BUTTONRELEASE 5) (foreign-define MOTIONNOTIFY 6) (foreign-define ENTERNOTIFY 7) (foreign-define LEAVENOTIFY 8) (foreign-define FOCUSIN 9) (foreign-define FOCUSOUT 10) (foreign-define KEYMAPNOTIFY 11) (foreign-define EXPOSE 12) (foreign-define GRAPHICSEXPOSE 13) (foreign-define NOEXPOSE 14) (foreign-define VISIBILITYNOTIFY 15) (foreign-define CREATENOTIFY 16) (foreign-define DESTROYNOTIFY 17) (foreign-define UNMAPNOTIFY 18) (foreign-define MAPNOTIFY 19) (foreign-define MAPREQUEST 20) (foreign-define REPARENTNOTIFY 21) (foreign-define CONFIGURENOTIFY 22) (foreign-define CONFIGUREREQUEST 23) (foreign-define GRAVITYNOTIFY 24) (foreign-define RESIZEREQUEST 25) (foreign-define CIRCULATENOTIFY 26) (foreign-define CIRCULATEREQUEST 27) (foreign-define PROPERTYNOTIFY 28) (foreign-define SELECTIONCLEAR 29) (foreign-define SELECTIONREQUEST 30) (foreign-define SELECTIONNOTIFY 31) (foreign-define COLORMAPNOTIFY 32) (foreign-define CLIENTMESSAGE 33) (foreign-define MAPPINGNOTIFY 34) (foreign-define LASTEVENT 35) (foreign-define SHIFTMASK 1) (foreign-define LOCKMASK 2) (foreign-define CONTROLMASK 4) (foreign-define MOD1MASK 8) (foreign-define MOD2MASK 16) (foreign-define MOD3MASK 32) (foreign-define MOD4MASK 64) (foreign-define MOD5MASK 128) (foreign-define SHIFTMAPINDEX 0) (foreign-define LOCKMAPINDEX 1) (foreign-define CONTROLMAPINDEX 2) (foreign-define MOD1MAPINDEX 3) (foreign-define MOD2MAPINDEX 4) (foreign-define MOD3MAPINDEX 5) (foreign-define MOD4MAPINDEX 6) (foreign-define MOD5MAPINDEX 7) (foreign-define BUTTON1MASK 256) (foreign-define BUTTON2MASK 512) (foreign-define BUTTON3MASK 1024) (foreign-define BUTTON4MASK 2048) (foreign-define BUTTON5MASK 4096) (foreign-define ANYMODIFIER 32768) (foreign-define BUTTON1 1) (foreign-define BUTTON2 2) (foreign-define BUTTON3 3) (foreign-define BUTTON4 4) (foreign-define BUTTON5 5) (foreign-define NOTIFYNORMAL 0) (foreign-define NOTIFYGRAB 1) (foreign-define NOTIFYUNGRAB 2) (foreign-define NOTIFYWHILEGRABBED 3) (foreign-define NOTIFYHINT 1) (foreign-define NOTIFYANCESTOR 0) (foreign-define NOTIFYVIRTUAL 1) (foreign-define NOTIFYINFERIOR 2) (foreign-define NOTIFYNONLINEAR 3) (foreign-define NOTIFYNONLINEARVIRTUAL 4) (foreign-define NOTIFYPOINTER 5) (foreign-define NOTIFYPOINTERROOT 6) (foreign-define NOTIFYDETAILNONE 7) (foreign-define VISIBILITYUNOBSCURED 0) (foreign-define VISIBILITYPARTIALLYOBSCURED 1) (foreign-define VISIBILITYFULLYOBSCURED 2) (foreign-define PLACEONTOP 0) (foreign-define PLACEONBOTTOM 1) (foreign-define FAMILYINTERNET 0) (foreign-define FAMILYDECNET 1) (foreign-define FAMILYCHAOS 2) (foreign-define PROPERTYNEWVALUE 0) (foreign-define PROPERTYDELETE 1) (foreign-define COLORMAPUNINSTALLED 0) (foreign-define COLORMAPINSTALLED 1) (foreign-define GRABMODESYNC 0) (foreign-define GRABMODEASYNC 1) (foreign-define GRABSUCCESS 0) (foreign-define ALREADYGRABBED 1) (foreign-define GRABINVALIDTIME 2) (foreign-define GRABNOTVIEWABLE 3) (foreign-define GRABFROZEN 4) (foreign-define ASYNCPOINTER 0) (foreign-define SYNCPOINTER 1) (foreign-define REPLAYPOINTER 2) (foreign-define ASYNCKEYBOARD 3) (foreign-define SYNCKEYBOARD 4) (foreign-define REPLAYKEYBOARD 5) (foreign-define ASYNCBOTH 6) (foreign-define SYNCBOTH 7) (foreign-define REVERTTONONE 0) (foreign-define REVERTTOPOINTERROOT 1) (foreign-define REVERTTOPARENT 2) (foreign-define SUCCESS 0) (foreign-define BADREQUEST 1) (foreign-define BADVALUE 2) (foreign-define BADWINDOW 3) (foreign-define BADPIXMAP 4) (foreign-define BADATOM 5) (foreign-define BADCURSOR 6) (foreign-define BADFONT 7) (foreign-define BADMATCH 8) (foreign-define BADDRAWABLE 9) (foreign-define BADACCESS 10) (foreign-define BADALLOC 11) (foreign-define BADCOLOR 12) (foreign-define BADGC 13) (foreign-define BADIDCHOICE 14) (foreign-define BADNAME 15) (foreign-define BADLENGTH 16) (foreign-define BADIMPLEMENTATION 17) (foreign-define FIRSTEXTENSIONERROR 128) (foreign-define LASTEXTENSIONERROR 255) (foreign-define INPUTOUTPUT 1) (foreign-define INPUTONLY 2) (foreign-define CWBACKPIXMAP 1) (foreign-define CWBACKPIXEL 2) (foreign-define CWBORDERPIXMAP 4) (foreign-define CWBORDERPIXEL 8) (foreign-define CWBITGRAVITY 16) (foreign-define CWWINGRAVITY 32) (foreign-define CWBACKINGSTORE 64) (foreign-define CWBACKINGPLANES 128) (foreign-define CWBACKINGPIXEL 256) (foreign-define CWOVERRIDEREDIRECT 512) (foreign-define CWSAVEUNDER 1024) (foreign-define CWEVENTMASK 2048) (foreign-define CWDONTPROPAGATE 4096) (foreign-define CWCOLORMAP 8192) (foreign-define CWCURSOR 16384) (foreign-define CWX 1) (foreign-define CWY 2) (foreign-define CWWIDTH 4) (foreign-define CWHEIGHT 8) (foreign-define CWBORDERWIDTH 16) (foreign-define CWSIBLING 32) (foreign-define CWSTACKMODE 64) (foreign-define FORGETGRAVITY 0) (foreign-define NORTHWESTGRAVITY 1) (foreign-define NORTHGRAVITY 2) (foreign-define NORTHEASTGRAVITY 3) (foreign-define WESTGRAVITY 4) (foreign-define CENTERGRAVITY 5) (foreign-define EASTGRAVITY 6) (foreign-define SOUTHWESTGRAVITY 7) (foreign-define SOUTHGRAVITY 8) (foreign-define SOUTHEASTGRAVITY 9) (foreign-define STATICGRAVITY 10) (foreign-define UNMAPGRAVITY 0) (foreign-define NOTUSEFUL 0) (foreign-define WHENMAPPED 1) (foreign-define ALWAYS 2) (foreign-define ISUNMAPPED 0) (foreign-define ISUNVIEWABLE 1) (foreign-define ISVIEWABLE 2) (foreign-define SETMODEINSERT 0) (foreign-define SETMODEDELETE 1) (foreign-define DESTROYALL 0) (foreign-define RETAINPERMANENT 1) (foreign-define RETAINTEMPORARY 2) (foreign-define ABOVE 0) (foreign-define BELOW 1) (foreign-define TOPIF 2) (foreign-define BOTTOMIF 3) (foreign-define OPPOSITE 4) (foreign-define RAISELOWEST 0) (foreign-define LOWERHIGHEST 1) (foreign-define PROPMODEREPLACE 0) (foreign-define PROPMODEPREPEND 1) (foreign-define PROPMODEAPPEND 2) (foreign-define GXCLEAR 0) (foreign-define GXAND 1) (foreign-define GXANDREVERSE 2) (foreign-define GXCOPY 3) (foreign-define GXANDINVERTED 4) (foreign-define GXNOOP 5) (foreign-define GXXOR 6) (foreign-define GXOR 7) (foreign-define GXNOR 8) (foreign-define GXEQUIV 9) (foreign-define GXINVERT 10) (foreign-define GXORREVERSE 11) (foreign-define GXCOPYINVERTED 12) (foreign-define GXORINVERTED 13) (foreign-define GXNAND 14) (foreign-define GXSET 15) (foreign-define LINESOLID 0) (foreign-define LINEONOFFDASH 1) (foreign-define LINEDOUBLEDASH 2) (foreign-define CAPNOTLAST 0) (foreign-define CAPBUTT 1) (foreign-define CAPROUND 2) (foreign-define CAPPROJECTING 3) (foreign-define JOINMITER 0) (foreign-define JOINROUND 1) (foreign-define JOINBEVEL 2) (foreign-define FILLSOLID 0) (foreign-define FILLTILED 1) (foreign-define FILLSTIPPLED 2) (foreign-define FILLOPAQUESTIPPLED 3) (foreign-define EVENODDRULE 0) (foreign-define WINDINGRULE 1) (foreign-define CLIPBYCHILDREN 0) (foreign-define INCLUDEINFERIORS 1) (foreign-define UNSORTED 0) (foreign-define YSORTED 1) (foreign-define YXSORTED 2) (foreign-define YXBANDED 3) (foreign-define COORDMODEORIGIN 0) (foreign-define COORDMODEPREVIOUS 1) (foreign-define COMPLEX 0) (foreign-define NONCONVEX 1) (foreign-define CONVEX 2) (foreign-define ARCCHORD 0) (foreign-define ARCPIESLICE 1) (foreign-define GCFUNCTION 1) (foreign-define GCPLANEMASK 2) (foreign-define GCFOREGROUND 4) (foreign-define GCBACKGROUND 8) (foreign-define GCLINEWIDTH 16) (foreign-define GCLINESTYLE 32) (foreign-define GCCAPSTYLE 64) (foreign-define GCJOINSTYLE 128) (foreign-define GCFILLSTYLE 256) (foreign-define GCFILLRULE 512) (foreign-define GCTILE 1024) (foreign-define GCSTIPPLE 2048) (foreign-define GCTILESTIPXORIGIN 4096) (foreign-define GCTILESTIPYORIGIN 8192) (foreign-define GCFONT 16384) (foreign-define GCSUBWINDOWMODE 32768) (foreign-define GCGRAPHICSEXPOSURES 65536) (foreign-define GCCLIPXORIGIN 131072) (foreign-define GCCLIPYORIGIN 262144) (foreign-define GCCLIPMASK 524288) (foreign-define GCDASHOFFSET 1048576) (foreign-define GCDASHLIST 2097152) (foreign-define GCARCMODE 4194304) (foreign-define GCLASTBIT 22) (foreign-define FONTLEFTTORIGHT 0) (foreign-define FONTRIGHTTOLEFT 1) (foreign-define FONTCHANGE 255) (foreign-define XYBITMAP 0) (foreign-define XYPIXMAP 1) (foreign-define ZPIXMAP 2) (foreign-define ALLOCNONE 0) (foreign-define ALLOCALL 1) (foreign-define DORED 1) (foreign-define DOGREEN 2) (foreign-define DOBLUE 4) (foreign-define CURSORSHAPE 0) (foreign-define TILESHAPE 1) (foreign-define STIPPLESHAPE 2) (foreign-define AUTOREPEATMODEOFF 0) (foreign-define AUTOREPEATMODEON 1) (foreign-define AUTOREPEATMODEDEFAULT 2) (foreign-define LEDMODEOFF 0) (foreign-define LEDMODEON 1) (foreign-define KBKEYCLICKPERCENT 1) (foreign-define KBBELLPERCENT 2) (foreign-define KBBELLPITCH 4) (foreign-define KBBELLDURATION 8) (foreign-define KBLED 16) (foreign-define KBLEDMODE 32) (foreign-define KBKEY 64) (foreign-define KBAUTOREPEATMODE 128) (foreign-define MAPPINGSUCCESS 0) (foreign-define MAPPINGBUSY 1) (foreign-define MAPPINGFAILED 2) (foreign-define MAPPINGMODIFIER 0) (foreign-define MAPPINGKEYBOARD 1) (foreign-define MAPPINGPOINTER 2) (foreign-define DONTPREFERBLANKING 0) (foreign-define PREFERBLANKING 1) (foreign-define DEFAULTBLANKING 2) (foreign-define DISABLESCREENSAVER 0) (foreign-define DISABLESCREENINTERVAL 0) (foreign-define DONTALLOWEXPOSURES 0) (foreign-define ALLOWEXPOSURES 1) (foreign-define DEFAULTEXPOSURES 2) (foreign-define SCREENSAVERRESET 0) (foreign-define SCREENSAVERACTIVE 1) (foreign-define HOSTINSERT 0) (foreign-define HOSTDELETE 1) (foreign-define ENABLEACCESS 1) (foreign-define DISABLEACCESS 0) (foreign-define STATICGRAY 0) (foreign-define GRAYSCALE 1) (foreign-define STATICCOLOR 2) (foreign-define PSEUDOCOLOR 3) (foreign-define TRUECOLOR 4) (foreign-define DIRECTCOLOR 5) (foreign-define LSBFIRST 0) (foreign-define MSBFIRST 1) (foreign-define QUEUEDALREADY 0) (foreign-define QUEUEDAFTERREADING 1) (foreign-define QUEUEDAFTERFLUSH 2) (foreign-define ALLPLANES -1) (foreign-define NULL 0) (foreign-define NULLQUARK 0) (foreign-define NULLSTRING 0) (foreign-define XRMBINDTIGHTLY 0) (foreign-define XRMBINDLOOSELY 1) (foreign-define XRMOPTIONNOARG 0) (foreign-define XRMOPTIONISARG 1) (foreign-define XRMOPTIONSTICKYARG 2) (foreign-define XRMOPTIONSEPARG 3) (foreign-define XRMOPTIONRESARG 4) (foreign-define XRMOPTIONSKIPARG 5) (foreign-define XRMOPTIONSKIPLINE 6) (foreign-define NOVALUE 0) (foreign-define XVALUE 1) (foreign-define YVALUE 2) (foreign-define WIDTHVALUE 4) (foreign-define HEIGHTVALUE 8) (foreign-define ALLVALUES 15) (foreign-define XNEGATIVE 16) (foreign-define YNEGATIVE 32) (foreign-define USPOSITION 1) (foreign-define USSIZE 2) (foreign-define PPOSITION 4) (foreign-define PSIZE 8) (foreign-define PMINSIZE 16) (foreign-define PMAXSIZE 32) (foreign-define PRESIZEINC 64) (foreign-define PASPECT 128) (foreign-define PALLHINTS 252) (foreign-define INPUTHINT 1) (foreign-define STATEHINT 2) (foreign-define ICONPIXMAPHINT 4) (foreign-define ICONWINDOWHINT 8) (foreign-define ICONPOSITIONHINT 16) (foreign-define ICONMASKHINT 32) (foreign-define WINDOWGROUPHINT 64) (foreign-define ALLHINTS 127) (foreign-define DONTCARESTATE 0) (foreign-define NORMALSTATE 1) (foreign-define ZOOMSTATE 2) (foreign-define ICONICSTATE 3) (foreign-define INACTIVESTATE 4) (foreign-define RECTANGLEOUT 0) (foreign-define RECTANGLEIN 1) (foreign-define RECTANGLEPART 2) (foreign-define VISUALNOMASK 0) (foreign-define VISUALIDMASK 1) (foreign-define VISUALSCREENMASK 2) (foreign-define VISUALDEPTHMASK 4) (foreign-define VISUALCLASSMASK 8) (foreign-define VISUALREDMASKMASK 16) (foreign-define VISUALGREENMASKMASK 32) (foreign-define VISUALBLUEMASKMASK 64) (foreign-define VISUALCOLORMAPSIZEMASK 128) (foreign-define VISUALBITSPERRGBMASK 256) (foreign-define VISUALALLMASK 511) (foreign-define BITMAPSUCCESS 0) (foreign-define BITMAPOPENFAILED 1) (foreign-define BITMAPFILEINVALID 2) (foreign-define BITMAPNOMEMORY 3) (foreign-define XCSUCCESS 0) (foreign-define XCNOMEM 1) (foreign-define XCNOENT 2) ;;; These are macros in Xutil.h, but also appear to be in libX11.so anyway? (foreign-function xputpixel ((POINTER STRUCT) INT INT UNSIGNED-LONG) INT "XPutPixel") (foreign-function xgetpixel ((POINTER STRUCT) INT INT) UNSIGNED-LONG "XGetPixel") (foreign-function xsubimage ((POINTER STRUCT) INT INT UNSIGNED-INT UNSIGNED-INT) (POINTER STRUCT) "XSubImage") (foreign-function xdestroyimage ((POINTER STRUCT)) INT "XDestroyImage") ;;;(foreign-function xaddpixel ((POINTER STRUCT) LONG) INT "XAddPixel") ;;; MACROS. To be translated as needed... (and added to xlib-c.c) ; IsPFKey(keysym) (((unsigned)(keysym)>=XK_KP_F1)&&((unsigned)(keysym)<=XK_KP_F4)) ; IsCursorKey(keysym) (((unsigned)(keysym)>=XK_Home)&&((unsigned)(keysym)=XK_KP_Space)&&((unsigned)(keysym)<=XK_KP_Equal)) ; IsMiscFunctionKey(keysym) (((unsigned)(keysym)>=XK_Select)&&((unsigned)(keysym)<=XK_Break)) ; IsFunctionKey(keysym) (((unsigned)(keysym)>=XK_F1)&&((unsigned)(keysym)<=XK_F35)) ; IsModifierKey(keysym) ((((unsigned)(keysym)>=XK_Shift_L)&&((unsigned)(keysym)<=XK_Hyper_R))||((unsigned)(keysym)==XK_Mode_switch)||((unsigned)(keysym)==XK_Num_Lock)) ; BitmapUnit(dpy) ((dpy)->bitmap_unit) ; NODEV (dev_t)(-1) ; AllPlanes ((unsignedlong)~0L) ; NOPID (pid_t)(-1) ; ConnectionNumber(dpy) ((dpy)->fd) ; ReleaseByFreeingColormap ((XID)1L) ; BitmapBitOrder(dpy) ((dpy)->bitmap_bit_order) ; PlanesOfScreen(s) ((s)->root_depth) ; XStringToContext(string) ((XContext)XrmStringToQuark(string)) ; BlackPixelOfScreen(s) ((s)->black_pixel) ; ImageByteOrder(dpy) ((dpy)->byte_order) ; BitmapPad(dpy) ((dpy)->bitmap_pad) ; FD_ISSET(n,p) ((p)->fds_bits[(n)/NFDBITS]&((unsigned)1<<((n)%NFDBITS))) ; DisplayWidthMM(dpy,scr) (((dpy)->screens[(scr)]).mwidth) ; PAllHints (PPosition|PSize|PMinSize|PMaxSize|PResizeInc|PAspect) ; HeightOfScreen(s) ((s)->height) ; ScreenOfDisplay(dpy,scr) (&((dpy)->screens[(scr)])) ; DisplayOfScreen(s) ((s)->display) ; ScreenCount(dpy) ((dpy)->nscreens) ; ServerVendor(dpy) ((dpy)->vendor) ; DefaultGCOfScreen(s) ((s)->default_gc) ; timercmp(tvp,uvp,cmp) ((tvp)->tv_seccmp(uvp)->tv_sec||((tvp)->tv_sec==(uvp)->tv_sec&&(tvp)->tv_useccmp(uvp)->tv_usec)) ; DefaultRootWindow(dpy) (((dpy)->screens[(dpy)->default_screen]).root) ; BlackPixel(dpy,scr) (((dpy)->screens[(scr)]).black_pixel) ; offsetof(ty,mem) ((size_t)((char*)&((ty*)0)->mem-(char*)0)) ; DisplayWidth(dpy,scr) (((dpy)->screens[(scr)]).width) ; FD_SET(n,p) ((p)->fds_bits[(n)/NFDBITS]|=((unsigned)1<<((n)%NFDBITS))) ; XAllocID(dpy) ((*(dpy)->resource_alloc)((dpy))) ; DefaultGC(dpy,scr) (((dpy)->screens[(scr)]).default_gc) ; DefaultDepthOfScreen(s) ((s)->root_depth) ; DefaultVisualOfScreen(s) ((s)->root_visual) ; DisplayString(dpy) ((dpy)->display_name) ; RevertToNone (int)None ; FD_CLR(n,p) ((p)->fds_bits[(n)/NFDBITS]&=~((unsigned)1<<((n)%NFDBITS))) ; timerisset(tvp) ((tvp)->tv_sec||(tvp)->tv_usec) ; DisplayHeightMM(dpy,scr) (((dpy)->screens[(scr)]).mheight) ; DisplayCells(dpy,scr) (DefaultVisual((dpy),(scr))->map_entries) ; DoesBackingStore(s) ((s)->backing_store) ; RevertToPointerRoot (int)PointerRoot ; DefaultDepth(dpy,scr) (((dpy)->screens[(scr)]).root_depth) ; DefaultVisual(dpy,scr) (((dpy)->screens[(scr)]).root_visual) ; DisplayPlanes(dpy,scr) (((dpy)->screens[(scr)]).root_depth) ; ProtocolVersion(dpy) ((dpy)->proto_major_version) ; XUniqueContext() ((XContext)XrmUniqueQuark()) ; QLength(dpy) ((dpy)->qlen) ; P_MYPID ((pid_t)0) ; LastKnownRequestProcessed(dpy) ((dpy)->last_request_read) ; RootWindowOfScreen(s) ((s)->root) ; DefaultScreenOfDisplay(dpy) (&((dpy)->screens[(dpy)->default_screen])) ; DisplayHeight(dpy,scr) (((dpy)->screens[(scr)]).height) ; VendorRelease(dpy) ((dpy)->release) ; WidthMMOfScreen(s) ((s)->mwidth) ; MaxCmapsOfScreen(s) ((s)->max_maps) ; MinCmapsOfScreen(s) ((s)->min_maps) ; FD_ZERO(p) memset((char*)(p),0,sizeof(*(p))) ; timerclear(tvp) (tvp)->tv_sec=(tvp)->tv_usec=0 ; DefaultScreen(dpy) ((dpy)->default_screen) ; EventMaskOfScreen(s) ((s)->root_input_mask) ; ProtocolRevision(dpy) ((dpy)->proto_minor_version) ; P_MYHOSTID ((hostid_t)-1) ; AllHints (InputHint|StateHint|IconPixmapHint|IconWindowHint|IconPositionHint|IconMaskHint|WindowGroupHint) ; RootWindow(dpy,scr) (((dpy)->screens[(scr)]).root) ; WhitePixelOfScreen(s) ((s)->white_pixel) ; DefaultColormapOfScreen(s) ((s)->cmap) ; WidthOfScreen(s) ((s)->width) ; DoesSaveUnders(s) ((s)->save_unders) ; NFDBITS (sizeof(fd_mask)*NBBY) ; NextRequest(dpy) ((dpy)->request+1) ; HeightMMOfScreen(s) ((s)->mheight) ; CellsOfScreen(s) (DefaultVisualOfScreen((s))->map_entries) ; howmany(x,y) (((x)+((y)-1))/(y)) ; WhitePixel(dpy,scr) (((dpy)->screens[(scr)]).white_pixel) ; DefaultColormap(dpy,scr) (((dpy)->screens[(scr)]).cmap) ;;; Xatom.h (foreign-define XA_PRIMARY 1) (foreign-define XA_SECONDARY 2) (foreign-define XA_ARC 3) (foreign-define XA_ATOM 4) (foreign-define XA_BITMAP 5) (foreign-define XA_CARDINAL 6) (foreign-define XA_COLORMAP 7) (foreign-define XA_CURSOR 8) (foreign-define XA_CUT_BUFFER0 9) (foreign-define XA_CUT_BUFFER1 10) (foreign-define XA_CUT_BUFFER2 11) (foreign-define XA_CUT_BUFFER3 12) (foreign-define XA_CUT_BUFFER4 13) (foreign-define XA_CUT_BUFFER5 14) (foreign-define XA_CUT_BUFFER6 15) (foreign-define XA_CUT_BUFFER7 16) (foreign-define XA_DRAWABLE 17) (foreign-define XA_FONT 18) (foreign-define XA_INTEGER 19) (foreign-define XA_PIXMAP 20) (foreign-define XA_POINT 21) (foreign-define XA_RECTANGLE 22) (foreign-define XA_RESOURCE_MANAGER 23) (foreign-define XA_RGB_COLOR_MAP 24) (foreign-define XA_RGB_BEST_MAP 25) (foreign-define XA_RGB_BLUE_MAP 26) (foreign-define XA_RGB_DEFAULT_MAP 27) (foreign-define XA_RGB_GRAY_MAP 28) (foreign-define XA_RGB_GREEN_MAP 29) (foreign-define XA_RGB_RED_MAP 30) (foreign-define XA_STRING 31) (foreign-define XA_VISUALID 32) (foreign-define XA_WINDOW 33) (foreign-define XA_WM_COMMAND 34) (foreign-define XA_WM_HINTS 35) (foreign-define XA_WM_CLIENT_MACHINE 36) (foreign-define XA_WM_ICON_NAME 37) (foreign-define XA_WM_ICON_SIZE 38) (foreign-define XA_WM_NAME 39) (foreign-define XA_WM_NORMAL_HINTS 40) (foreign-define XA_WM_SIZE_HINTS 41) (foreign-define XA_WM_ZOOM_HINTS 42) (foreign-define XA_MIN_SPACE 43) (foreign-define XA_NORM_SPACE 44) (foreign-define XA_MAX_SPACE 45) (foreign-define XA_END_SPACE 46) (foreign-define XA_SUPERSCRIPT_X 47) (foreign-define XA_SUPERSCRIPT_Y 48) (foreign-define XA_SUBSCRIPT_X 49) (foreign-define XA_SUBSCRIPT_Y 50) (foreign-define XA_UNDERLINE_POSITION 51) (foreign-define XA_UNDERLINE_THICKNESS 52) (foreign-define XA_STRIKEOUT_ASCENT 53) (foreign-define XA_STRIKEOUT_DESCENT 54) (foreign-define XA_ITALIC_ANGLE 55) (foreign-define XA_X_HEIGHT 56) (foreign-define XA_QUAD_WIDTH 57) (foreign-define XA_WEIGHT 58) (foreign-define XA_POINT_SIZE 59) (foreign-define XA_RESOLUTION 60) (foreign-define XA_COPYRIGHT 61) (foreign-define XA_NOTICE 62) (foreign-define XA_FONT_NAME 63) (foreign-define XA_FAMILY_NAME 64) (foreign-define XA_FULL_NAME 65) (foreign-define XA_CAP_HEIGHT 66) (foreign-define XA_WM_CLASS 67) (foreign-define XA_WM_TRANSIENT_FOR 68) (foreign-define XA_LAST_PREDEFINED 68) ;;; keysym/keysymdef.h (From Scheme->C. Note LC precedes lowercase chars.) (foreign-define XK_BACKSPACE 65288) (foreign-define XK_TAB 65289) (foreign-define XK_LINEFEED 65290) (foreign-define XK_CLEAR 65291) (foreign-define XK_RETURN 65293) (foreign-define XK_PAUSE 65299) (foreign-define XK_ESCAPE 65307) (foreign-define XK_DELETE 65535) (foreign-define XK_MULTI_KEY 65312) (foreign-define XK_KANJI 65313) (foreign-define XK_HOME 65360) (foreign-define XK_LEFT 65361) (foreign-define XK_UP 65362) (foreign-define XK_RIGHT 65363) (foreign-define XK_DOWN 65364) (foreign-define XK_PRIOR 65365) (foreign-define XK_NEXT 65366) (foreign-define XK_END 65367) (foreign-define XK_BEGIN 65368) (foreign-define XK_SELECT 65376) (foreign-define XK_PRINT 65377) (foreign-define XK_EXECUTE 65378) (foreign-define XK_INSERT 65379) (foreign-define XK_UNDO 65381) (foreign-define XK_REDO 65382) (foreign-define XK_MENU 65383) (foreign-define XK_FIND 65384) (foreign-define XK_CANCEL 65385) (foreign-define XK_HELP 65386) (foreign-define XK_BREAK 65387) (foreign-define XK_MODE_SWITCH 65406) (foreign-define XK_SCRIPT_SWITCH 65406) (foreign-define XK_NUM_LOCK 65407) (foreign-define XK_KP_SPACE 65408) (foreign-define XK_KP_TAB 65417) (foreign-define XK_KP_ENTER 65421) (foreign-define XK_KP_F1 65425) (foreign-define XK_KP_F2 65426) (foreign-define XK_KP_F3 65427) (foreign-define XK_KP_F4 65428) (foreign-define XK_KP_EQUAL 65469) (foreign-define XK_KP_MULTIPLY 65450) (foreign-define XK_KP_ADD 65451) (foreign-define XK_KP_SEPARATOR 65452) (foreign-define XK_KP_SUBTRACT 65453) (foreign-define XK_KP_DECIMAL 65454) (foreign-define XK_KP_DIVIDE 65455) (foreign-define XK_KP_0 65456) (foreign-define XK_KP_1 65457) (foreign-define XK_KP_2 65458) (foreign-define XK_KP_3 65459) (foreign-define XK_KP_4 65460) (foreign-define XK_KP_5 65461) (foreign-define XK_KP_6 65462) (foreign-define XK_KP_7 65463) (foreign-define XK_KP_8 65464) (foreign-define XK_KP_9 65465) (foreign-define XK_F1 65470) (foreign-define XK_F2 65471) (foreign-define XK_F3 65472) (foreign-define XK_F4 65473) (foreign-define XK_F5 65474) (foreign-define XK_F6 65475) (foreign-define XK_F7 65476) (foreign-define XK_F8 65477) (foreign-define XK_F9 65478) (foreign-define XK_F10 65479) (foreign-define XK_F11 65480) (foreign-define XK_L1 65480) (foreign-define XK_F12 65481) (foreign-define XK_L2 65481) (foreign-define XK_F13 65482) (foreign-define XK_L3 65482) (foreign-define XK_F14 65483) (foreign-define XK_L4 65483) (foreign-define XK_F15 65484) (foreign-define XK_L5 65484) (foreign-define XK_F16 65485) (foreign-define XK_L6 65485) (foreign-define XK_F17 65486) (foreign-define XK_L7 65486) (foreign-define XK_F18 65487) (foreign-define XK_L8 65487) (foreign-define XK_F19 65488) (foreign-define XK_L9 65488) (foreign-define XK_F20 65489) (foreign-define XK_L10 65489) (foreign-define XK_F21 65490) (foreign-define XK_R1 65490) (foreign-define XK_F22 65491) (foreign-define XK_R2 65491) (foreign-define XK_F23 65492) (foreign-define XK_R3 65492) (foreign-define XK_F24 65493) (foreign-define XK_R4 65493) (foreign-define XK_F25 65494) (foreign-define XK_R5 65494) (foreign-define XK_F26 65495) (foreign-define XK_R6 65495) (foreign-define XK_F27 65496) (foreign-define XK_R7 65496) (foreign-define XK_F28 65497) (foreign-define XK_R8 65497) (foreign-define XK_F29 65498) (foreign-define XK_R9 65498) (foreign-define XK_F30 65499) (foreign-define XK_R10 65499) (foreign-define XK_F31 65500) (foreign-define XK_R11 65500) (foreign-define XK_F32 65501) (foreign-define XK_R12 65501) (foreign-define XK_R13 65502) (foreign-define XK_F33 65502) (foreign-define XK_F34 65503) (foreign-define XK_R14 65503) (foreign-define XK_F35 65504) (foreign-define XK_R15 65504) (foreign-define XK_SHIFT_L 65505) (foreign-define XK_SHIFT_R 65506) (foreign-define XK_CONTROL_L 65507) (foreign-define XK_CONTROL_R 65508) (foreign-define XK_CAPS_LOCK 65509) (foreign-define XK_SHIFT_LOCK 65510) (foreign-define XK_META_L 65511) (foreign-define XK_META_R 65512) (foreign-define XK_ALT_L 65513) (foreign-define XK_ALT_R 65514) (foreign-define XK_SUPER_L 65515) (foreign-define XK_SUPER_R 65516) (foreign-define XK_HYPER_L 65517) (foreign-define XK_HYPER_R 65518) (foreign-define XK_SPACE 32) (foreign-define XK_EXCLAM 33) (foreign-define XK_QUOTEDBL 34) (foreign-define XK_NUMBERSIGN 35) (foreign-define XK_DOLLAR 36) (foreign-define XK_PERCENT 37) (foreign-define XK_AMPERSAND 38) (foreign-define XK_QUOTERIGHT 39) (foreign-define XK_PARENLEFT 40) (foreign-define XK_PARENRIGHT 41) (foreign-define XK_ASTERISK 42) (foreign-define XK_PLUS 43) (foreign-define XK_COMMA 44) (foreign-define XK_MINUS 45) (foreign-define XK_PERIOD 46) (foreign-define XK_SLASH 47) (foreign-define XK_0 48) (foreign-define XK_1 49) (foreign-define XK_2 50) (foreign-define XK_3 51) (foreign-define XK_4 52) (foreign-define XK_5 53) (foreign-define XK_6 54) (foreign-define XK_7 55) (foreign-define XK_8 56) (foreign-define XK_9 57) (foreign-define XK_COLON 58) (foreign-define XK_SEMICOLON 59) (foreign-define XK_LESS 60) (foreign-define XK_EQUAL 61) (foreign-define XK_GREATER 62) (foreign-define XK_QUESTION 63) (foreign-define XK_AT 64) (foreign-define XK_A 65) (foreign-define XK_B 66) (foreign-define XK_C 67) (foreign-define XK_D 68) (foreign-define XK_E 69) (foreign-define XK_F 70) (foreign-define XK_G 71) (foreign-define XK_H 72) (foreign-define XK_I 73) (foreign-define XK_J 74) (foreign-define XK_K 75) (foreign-define XK_L 76) (foreign-define XK_M 77) (foreign-define XK_N 78) (foreign-define XK_O 79) (foreign-define XK_P 80) (foreign-define XK_Q 81) (foreign-define XK_R 82) (foreign-define XK_S 83) (foreign-define XK_T 84) (foreign-define XK_U 85) (foreign-define XK_V 86) (foreign-define XK_W 87) (foreign-define XK_X 88) (foreign-define XK_Y 89) (foreign-define XK_Z 90) (foreign-define XK_BRACKETLEFT 91) (foreign-define XK_BACKSLASH 92) (foreign-define XK_BRACKETRIGHT 93) (foreign-define XK_ASCIICIRCUM 94) (foreign-define XK_UNDERSCORE 95) (foreign-define XK_QUOTELEFT 96) (foreign-define XK_LCA 97) (foreign-define XK_LCB 98) (foreign-define XK_LCC 99) (foreign-define XK_LCD 100) (foreign-define XK_LCE 101) (foreign-define XK_LCF 102) (foreign-define XK_LCG 103) (foreign-define XK_LCH 104) (foreign-define XK_LCI 105) (foreign-define XK_LCJ 106) (foreign-define XK_LCK 107) (foreign-define XK_LCL 108) (foreign-define XK_LCM 109) (foreign-define XK_LCN 110) (foreign-define XK_LCO 111) (foreign-define XK_LCP 112) (foreign-define XK_LCQ 113) (foreign-define XK_LCR 114) (foreign-define XK_LCS 115) (foreign-define XK_LCT 116) (foreign-define XK_LCU 117) (foreign-define XK_LCV 118) (foreign-define XK_LCW 119) (foreign-define XK_LCX 120) (foreign-define XK_LCY 121) (foreign-define XK_LCZ 122) (foreign-define XK_BRACELEFT 123) (foreign-define XK_BAR 124) (foreign-define XK_BRACERIGHT 125) (foreign-define XK_ASCIITILDE 126) (foreign-define XK_NOBREAKSPACE 160) (foreign-define XK_EXCLAMDOWN 161) (foreign-define XK_CENT 162) (foreign-define XK_STERLING 163) (foreign-define XK_CURRENCY 164) (foreign-define XK_YEN 165) (foreign-define XK_BROKENBAR 166) (foreign-define XK_SECTION 167) (foreign-define XK_DIAERESIS 168) (foreign-define XK_COPYRIGHT 169) (foreign-define XK_ORDFEMININE 170) (foreign-define XK_GUILLEMOTLEFT 171) (foreign-define XK_NOTSIGN 172) (foreign-define XK_HYPHEN 173) (foreign-define XK_REGISTERED 174) (foreign-define XK_MACRON 175) (foreign-define XK_DEGREE 176) (foreign-define XK_PLUSMINUS 177) (foreign-define XK_TWOSUPERIOR 178) (foreign-define XK_THREESUPERIOR 179) (foreign-define XK_ACUTE 180) (foreign-define XK_MU 181) (foreign-define XK_PARAGRAPH 182) (foreign-define XK_PERIODCENTERED 183) (foreign-define XK_CEDILLA 184) (foreign-define XK_ONESUPERIOR 185) (foreign-define XK_MASCULINE 186) (foreign-define XK_GUILLEMOTRIGHT 187) (foreign-define XK_ONEQUARTER 188) (foreign-define XK_ONEHALF 189) (foreign-define XK_THREEQUARTERS 190) (foreign-define XK_QUESTIONDOWN 191) (foreign-define XK_AGRAVE 192) (foreign-define XK_AACUTE 193) (foreign-define XK_ACIRCUMFLEX 194) (foreign-define XK_ATILDE 195) (foreign-define XK_ADIAERESIS 196) (foreign-define XK_ARING 197) (foreign-define XK_AE 198) (foreign-define XK_CCEDILLA 199) (foreign-define XK_EGRAVE 200) (foreign-define XK_EACUTE 201) (foreign-define XK_ECIRCUMFLEX 202) (foreign-define XK_EDIAERESIS 203) (foreign-define XK_IGRAVE 204) (foreign-define XK_IACUTE 205) (foreign-define XK_ICIRCUMFLEX 206) (foreign-define XK_IDIAERESIS 207) (foreign-define XK_ETH 208) (foreign-define XK_NTILDE 209) (foreign-define XK_OGRAVE 210) (foreign-define XK_OACUTE 211) (foreign-define XK_OCIRCUMFLEX 212) (foreign-define XK_OTILDE 213) (foreign-define XK_ODIAERESIS 214) (foreign-define XK_MULTIPLY 215) (foreign-define XK_OOBLIQUE 216) (foreign-define XK_UGRAVE 217) (foreign-define XK_UACUTE 218) (foreign-define XK_UCIRCUMFLEX 219) (foreign-define XK_UDIAERESIS 220) (foreign-define XK_YACUTE 221) (foreign-define XK_THORN 222) (foreign-define XK_SSHARP 223) (foreign-define XK_LCAGRAVE 224) (foreign-define XK_LCAACUTE 225) (foreign-define XK_LCACIRCUMFLEX 226) (foreign-define XK_LCATILDE 227) (foreign-define XK_LCADIAERESIS 228) (foreign-define XK_LCARING 229) (foreign-define XK_LCAE 230) (foreign-define XK_LCCCEDILLA 231) (foreign-define XK_LCEGRAVE 232) (foreign-define XK_LCEACUTE 233) (foreign-define XK_LCECIRCUMFLEX 234) (foreign-define XK_LCEDIAERESIS 235) (foreign-define XK_LCIGRAVE 236) (foreign-define XK_LCIACUTE 237) (foreign-define XK_LCICIRCUMFLEX 238) (foreign-define XK_LCIDIAERESIS 239) (foreign-define XK_LCETH 240) (foreign-define XK_LCNTILDE 241) (foreign-define XK_LCOGRAVE 242) (foreign-define XK_LCOACUTE 243) (foreign-define XK_LCOCIRCUMFLEX 244) (foreign-define XK_LCOTILDE 245) (foreign-define XK_LCODIAERESIS 246) (foreign-define XK_DIVISION 247) (foreign-define XK_OSLASH 248) (foreign-define XK_LCUGRAVE 249) (foreign-define XK_LCUACUTE 250) (foreign-define XK_LCUCIRCUMFLEX 251) (foreign-define XK_LCUDIAERESIS 252) (foreign-define XK_LCYACUTE 253) (foreign-define XK_LCTHORN 254) (foreign-define XK_YDIAERESIS 255) (foreign-define DXK_RING_ACCENT 268500656) (foreign-define DXK_CIRCUMFLEX_ACCENT 268500574) (foreign-define DXK_CEDILLA_ACCENT 268500524) (foreign-define DXK_ACUTE_ACCENT 268500519) (foreign-define DXK_GRAVE_ACCENT 268500576) (foreign-define DXK_TILDE 268500606) (foreign-define DXK_DIAERESIS 268500514) (foreign-define DXK_REMOVE 268500736) ;;; cursorfont.h (from Scheme->C distribution) (foreign-define XC_NUM_GLYPHS 154) (foreign-define XC_X_CURSOR 0) (foreign-define XC_ARROW 2) (foreign-define XC_BASED_ARROW_DOWN 4) (foreign-define XC_BASED_ARROW_UP 6) (foreign-define XC_BOAT 8) (foreign-define XC_BOGOSITY 10) (foreign-define XC_BOTTOM_LEFT_CORNER 12) (foreign-define XC_BOTTOM_RIGHT_CORNER 14) (foreign-define XC_BOTTOM_SIDE 16) (foreign-define XC_BOTTOM_TEE 18) (foreign-define XC_BOX_SPIRAL 20) (foreign-define XC_CENTER_PTR 22) (foreign-define XC_CIRCLE 24) (foreign-define XC_CLOCK 26) (foreign-define XC_COFFEE_MUG 28) (foreign-define XC_CROSS 30) (foreign-define XC_CROSS_REVERSE 32) (foreign-define XC_CROSSHAIR 34) (foreign-define XC_DIAMOND_CROSS 36) (foreign-define XC_DOT 38) (foreign-define XC_DOTBOX 40) (foreign-define XC_DOUBLE_ARROW 42) (foreign-define XC_DRAFT_LARGE 44) (foreign-define XC_DRAFT_SMALL 46) (foreign-define XC_DRAPED_BOX 48) (foreign-define XC_EXCHANGE 50) (foreign-define XC_FLEUR 52) (foreign-define XC_GOBBLER 54) (foreign-define XC_GUMBY 56) (foreign-define XC_HAND1 58) (foreign-define XC_HAND2 60) (foreign-define XC_HEART 62) (foreign-define XC_ICON 64) (foreign-define XC_IRON_CROSS 66) (foreign-define XC_LEFT_PTR 68) (foreign-define XC_LEFT_SIDE 70) (foreign-define XC_LEFT_TEE 72) (foreign-define XC_LEFTBUTTON 74) (foreign-define XC_LL_ANGLE 76) (foreign-define XC_LR_ANGLE 78) (foreign-define XC_MAN 80) (foreign-define XC_MIDDLEBUTTON 82) (foreign-define XC_MOUSE 84) (foreign-define XC_PENCIL 86) (foreign-define XC_PIRATE 88) (foreign-define XC_PLUS 90) (foreign-define XC_QUESTION_ARROW 92) (foreign-define XC_RIGHT_PTR 94) (foreign-define XC_RIGHT_SIDE 96) (foreign-define XC_RIGHT_TEE 98) (foreign-define XC_RIGHTBUTTON 100) (foreign-define XC_RTL_LOGO 102) (foreign-define XC_SAILBOAT 104) (foreign-define XC_SB_DOWN_ARROW 106) (foreign-define XC_SB_H_DOUBLE_ARROW 108) (foreign-define XC_SB_LEFT_ARROW 110) (foreign-define XC_SB_RIGHT_ARROW 112) (foreign-define XC_SB_UP_ARROW 114) (foreign-define XC_SB_V_DOUBLE_ARROW 116) (foreign-define XC_SHUTTLE 118) (foreign-define XC_SIZING 120) (foreign-define XC_SPIDER 122) (foreign-define XC_SPRAYCAN 124) (foreign-define XC_STAR 126) (foreign-define XC_TARGET 128) (foreign-define XC_TCROSS 130) (foreign-define XC_TOP_LEFT_ARROW 132) (foreign-define XC_TOP_LEFT_CORNER 134) (foreign-define XC_TOP_RIGHT_CORNER 136) (foreign-define XC_TOP_SIDE 138) (foreign-define XC_TOP_TEE 140) (foreign-define XC_TREK 142) (foreign-define XC_UL_ANGLE 144) (foreign-define XC_UMBRELLA 146) (foreign-define XC_UR_ANGLE 148) (foreign-define XC_WATCH 150) (foreign-define XC_XTERM 152) ;;; Accessors for STRUCTS ;;; STRUCT:XExtData (foreign-function make-xextdata () (POINTER STRUCT) "alloc_XExtData") (foreign-function free-xextdata ((POINTER STRUCT)) VOID "free_XExtData") (foreign-function xextdata-number ((POINTER STRUCT)) INT "get_XExtData_number") (foreign-function set-xextdata-number! ((POINTER STRUCT) INT) VOID "set_XExtData_number") (foreign-function xextdata-next ((POINTER STRUCT)) (POINTER STRUCT) "get_XExtData_next") (foreign-function set-xextdata-next! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XExtData_next") (foreign-function xextdata-free_private ((POINTER STRUCT)) (POINTER FUNCTION) "get_XExtData_free_private") (foreign-function set-xextdata-free_private! ((POINTER STRUCT) (POINTER FUNCTION)) VOID "set_XExtData_free_private") (foreign-function xextdata-private_data ((POINTER STRUCT)) (POINTER CHAR) "get_XExtData_private_data") (foreign-function set-xextdata-private_data! ((POINTER STRUCT) (POINTER CHAR)) VOID "set_XExtData_private_data") ;;; STRUCT:XExtCodes (foreign-function make-xextcodes () (POINTER STRUCT) "alloc_XExtCodes") (foreign-function free-xextcodes ((POINTER STRUCT)) VOID "free_XExtCodes") (foreign-function xextcodes-extension ((POINTER STRUCT)) INT "get_XExtCodes_extension") (foreign-function set-xextcodes-extension! ((POINTER STRUCT) INT) VOID "set_XExtCodes_extension") (foreign-function xextcodes-major_opcode ((POINTER STRUCT)) INT "get_XExtCodes_major_opcode") (foreign-function set-xextcodes-major_opcode! ((POINTER STRUCT) INT) VOID "set_XExtCodes_major_opcode") (foreign-function xextcodes-first_event ((POINTER STRUCT)) INT "get_XExtCodes_first_event") (foreign-function set-xextcodes-first_event! ((POINTER STRUCT) INT) VOID "set_XExtCodes_first_event") (foreign-function xextcodes-first_error ((POINTER STRUCT)) INT "get_XExtCodes_first_error") (foreign-function set-xextcodes-first_error! ((POINTER STRUCT) INT) VOID "set_XExtCodes_first_error") ;;; STRUCT:XPixmapFormatValues (foreign-function make-xpixmapformatvalues () (POINTER STRUCT) "alloc_XPixmapFormatValues") (foreign-function free-xpixmapformatvalues ((POINTER STRUCT)) VOID "free_XPixmapFormatValues") (foreign-function xpixmapformatvalues-depth ((POINTER STRUCT)) INT "get_XPixmapFormatValues_depth") (foreign-function set-xpixmapformatvalues-depth! ((POINTER STRUCT) INT) VOID "set_XPixmapFormatValues_depth") (foreign-function xpixmapformatvalues-bits_per_pixel ((POINTER STRUCT)) INT "get_XPixmapFormatValues_bits_per_pixel") (foreign-function set-xpixmapformatvalues-bits_per_pixel! ((POINTER STRUCT) INT) VOID "set_XPixmapFormatValues_bits_per_pixel") (foreign-function xpixmapformatvalues-scanline_pad ((POINTER STRUCT)) INT "get_XPixmapFormatValues_scanline_pad") (foreign-function set-xpixmapformatvalues-scanline_pad! ((POINTER STRUCT) INT) VOID "set_XPixmapFormatValues_scanline_pad") ;;; STRUCT:XGCValues (foreign-function make-xgcvalues () (POINTER STRUCT) "alloc_XGCValues") (foreign-function free-xgcvalues ((POINTER STRUCT)) VOID "free_XGCValues") (foreign-function xgcvalues-function ((POINTER STRUCT)) INT "get_XGCValues_function") (foreign-function set-xgcvalues-function! ((POINTER STRUCT) INT) VOID "set_XGCValues_function") (foreign-function xgcvalues-plane_mask ((POINTER STRUCT)) UNSIGNED-LONG "get_XGCValues_plane_mask") (foreign-function set-xgcvalues-plane_mask! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XGCValues_plane_mask") (foreign-function xgcvalues-foreground ((POINTER STRUCT)) UNSIGNED-LONG "get_XGCValues_foreground") (foreign-function set-xgcvalues-foreground! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XGCValues_foreground") (foreign-function xgcvalues-background ((POINTER STRUCT)) UNSIGNED-LONG "get_XGCValues_background") (foreign-function set-xgcvalues-background! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XGCValues_background") (foreign-function xgcvalues-line_width ((POINTER STRUCT)) INT "get_XGCValues_line_width") (foreign-function set-xgcvalues-line_width! ((POINTER STRUCT) INT) VOID "set_XGCValues_line_width") (foreign-function xgcvalues-line_style ((POINTER STRUCT)) INT "get_XGCValues_line_style") (foreign-function set-xgcvalues-line_style! ((POINTER STRUCT) INT) VOID "set_XGCValues_line_style") (foreign-function xgcvalues-cap_style ((POINTER STRUCT)) INT "get_XGCValues_cap_style") (foreign-function set-xgcvalues-cap_style! ((POINTER STRUCT) INT) VOID "set_XGCValues_cap_style") (foreign-function xgcvalues-join_style ((POINTER STRUCT)) INT "get_XGCValues_join_style") (foreign-function set-xgcvalues-join_style! ((POINTER STRUCT) INT) VOID "set_XGCValues_join_style") (foreign-function xgcvalues-fill_style ((POINTER STRUCT)) INT "get_XGCValues_fill_style") (foreign-function set-xgcvalues-fill_style! ((POINTER STRUCT) INT) VOID "set_XGCValues_fill_style") (foreign-function xgcvalues-fill_rule ((POINTER STRUCT)) INT "get_XGCValues_fill_rule") (foreign-function set-xgcvalues-fill_rule! ((POINTER STRUCT) INT) VOID "set_XGCValues_fill_rule") (foreign-function xgcvalues-arc_mode ((POINTER STRUCT)) INT "get_XGCValues_arc_mode") (foreign-function set-xgcvalues-arc_mode! ((POINTER STRUCT) INT) VOID "set_XGCValues_arc_mode") (foreign-function xgcvalues-tile ((POINTER STRUCT)) UNSIGNED-LONG "get_XGCValues_tile") (foreign-function set-xgcvalues-tile! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XGCValues_tile") (foreign-function xgcvalues-stipple ((POINTER STRUCT)) UNSIGNED-LONG "get_XGCValues_stipple") (foreign-function set-xgcvalues-stipple! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XGCValues_stipple") (foreign-function xgcvalues-ts_x_origin ((POINTER STRUCT)) INT "get_XGCValues_ts_x_origin") (foreign-function set-xgcvalues-ts_x_origin! ((POINTER STRUCT) INT) VOID "set_XGCValues_ts_x_origin") (foreign-function xgcvalues-ts_y_origin ((POINTER STRUCT)) INT "get_XGCValues_ts_y_origin") (foreign-function set-xgcvalues-ts_y_origin! ((POINTER STRUCT) INT) VOID "set_XGCValues_ts_y_origin") (foreign-function xgcvalues-font ((POINTER STRUCT)) UNSIGNED-LONG "get_XGCValues_font") (foreign-function set-xgcvalues-font! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XGCValues_font") (foreign-function xgcvalues-subwindow_mode ((POINTER STRUCT)) INT "get_XGCValues_subwindow_mode") (foreign-function set-xgcvalues-subwindow_mode! ((POINTER STRUCT) INT) VOID "set_XGCValues_subwindow_mode") (foreign-function xgcvalues-graphics_exposures ((POINTER STRUCT)) INT "get_XGCValues_graphics_exposures") (foreign-function set-xgcvalues-graphics_exposures! ((POINTER STRUCT) INT) VOID "set_XGCValues_graphics_exposures") (foreign-function xgcvalues-clip_x_origin ((POINTER STRUCT)) INT "get_XGCValues_clip_x_origin") (foreign-function set-xgcvalues-clip_x_origin! ((POINTER STRUCT) INT) VOID "set_XGCValues_clip_x_origin") (foreign-function xgcvalues-clip_y_origin ((POINTER STRUCT)) INT "get_XGCValues_clip_y_origin") (foreign-function set-xgcvalues-clip_y_origin! ((POINTER STRUCT) INT) VOID "set_XGCValues_clip_y_origin") (foreign-function xgcvalues-clip_mask ((POINTER STRUCT)) UNSIGNED-LONG "get_XGCValues_clip_mask") (foreign-function set-xgcvalues-clip_mask! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XGCValues_clip_mask") (foreign-function xgcvalues-dash_offset ((POINTER STRUCT)) INT "get_XGCValues_dash_offset") (foreign-function set-xgcvalues-dash_offset! ((POINTER STRUCT) INT) VOID "set_XGCValues_dash_offset") (foreign-function xgcvalues-dashes ((POINTER STRUCT)) CHAR "get_XGCValues_dashes") (foreign-function set-xgcvalues-dashes! ((POINTER STRUCT) CHAR) VOID "set_XGCValues_dashes") ;;; STRUCT:Visual (foreign-function make-visual () (POINTER STRUCT) "alloc_Visual") (foreign-function free-visual ((POINTER STRUCT)) VOID "free_Visual") (foreign-function visual-ext_data ((POINTER STRUCT)) (POINTER STRUCT) "get_Visual_ext_data") (foreign-function set-visual-ext_data! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_Visual_ext_data") (foreign-function visual-visualid ((POINTER STRUCT)) UNSIGNED-LONG "get_Visual_visualid") (foreign-function set-visual-visualid! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_Visual_visualid") (foreign-function visual-class ((POINTER STRUCT)) INT "get_Visual_class") (foreign-function set-visual-class! ((POINTER STRUCT) INT) VOID "set_Visual_class") (foreign-function visual-red_mask ((POINTER STRUCT)) UNSIGNED-LONG "get_Visual_red_mask") (foreign-function set-visual-red_mask! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_Visual_red_mask") (foreign-function visual-green_mask ((POINTER STRUCT)) UNSIGNED-LONG "get_Visual_green_mask") (foreign-function set-visual-green_mask! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_Visual_green_mask") (foreign-function visual-blue_mask ((POINTER STRUCT)) UNSIGNED-LONG "get_Visual_blue_mask") (foreign-function set-visual-blue_mask! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_Visual_blue_mask") (foreign-function visual-bits_per_rgb ((POINTER STRUCT)) INT "get_Visual_bits_per_rgb") (foreign-function set-visual-bits_per_rgb! ((POINTER STRUCT) INT) VOID "set_Visual_bits_per_rgb") (foreign-function visual-map_entries ((POINTER STRUCT)) INT "get_Visual_map_entries") (foreign-function set-visual-map_entries! ((POINTER STRUCT) INT) VOID "set_Visual_map_entries") ;;; STRUCT:Depth (foreign-function make-depth () (POINTER STRUCT) "alloc_Depth") (foreign-function free-depth ((POINTER STRUCT)) VOID "free_Depth") (foreign-function depth-depth ((POINTER STRUCT)) INT "get_Depth_depth") (foreign-function set-depth-depth! ((POINTER STRUCT) INT) VOID "set_Depth_depth") (foreign-function depth-nvisuals ((POINTER STRUCT)) INT "get_Depth_nvisuals") (foreign-function set-depth-nvisuals! ((POINTER STRUCT) INT) VOID "set_Depth_nvisuals") (foreign-function depth-visuals ((POINTER STRUCT)) (POINTER STRUCT) "get_Depth_visuals") (foreign-function set-depth-visuals! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_Depth_visuals") ;;; STRUCT:Screen (foreign-function make-screen () (POINTER STRUCT) "alloc_Screen") (foreign-function free-screen ((POINTER STRUCT)) VOID "free_Screen") (foreign-function screen-ext_data ((POINTER STRUCT)) (POINTER STRUCT) "get_Screen_ext_data") (foreign-function set-screen-ext_data! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_Screen_ext_data") (foreign-function screen-display ((POINTER STRUCT)) (POINTER STRUCT) "get_Screen_display") (foreign-function set-screen-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_Screen_display") (foreign-function screen-root ((POINTER STRUCT)) UNSIGNED-LONG "get_Screen_root") (foreign-function set-screen-root! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_Screen_root") (foreign-function screen-width ((POINTER STRUCT)) INT "get_Screen_width") (foreign-function set-screen-width! ((POINTER STRUCT) INT) VOID "set_Screen_width") (foreign-function screen-height ((POINTER STRUCT)) INT "get_Screen_height") (foreign-function set-screen-height! ((POINTER STRUCT) INT) VOID "set_Screen_height") (foreign-function screen-mwidth ((POINTER STRUCT)) INT "get_Screen_mwidth") (foreign-function set-screen-mwidth! ((POINTER STRUCT) INT) VOID "set_Screen_mwidth") (foreign-function screen-mheight ((POINTER STRUCT)) INT "get_Screen_mheight") (foreign-function set-screen-mheight! ((POINTER STRUCT) INT) VOID "set_Screen_mheight") (foreign-function screen-ndepths ((POINTER STRUCT)) INT "get_Screen_ndepths") (foreign-function set-screen-ndepths! ((POINTER STRUCT) INT) VOID "set_Screen_ndepths") (foreign-function screen-depths ((POINTER STRUCT)) (POINTER STRUCT) "get_Screen_depths") (foreign-function set-screen-depths! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_Screen_depths") (foreign-function screen-root_depth ((POINTER STRUCT)) INT "get_Screen_root_depth") (foreign-function set-screen-root_depth! ((POINTER STRUCT) INT) VOID "set_Screen_root_depth") (foreign-function screen-root_visual ((POINTER STRUCT)) (POINTER STRUCT) "get_Screen_root_visual") (foreign-function set-screen-root_visual! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_Screen_root_visual") (foreign-function screen-default_gc ((POINTER STRUCT)) (POINTER STRUCT) "get_Screen_default_gc") (foreign-function set-screen-default_gc! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_Screen_default_gc") (foreign-function screen-cmap ((POINTER STRUCT)) UNSIGNED-LONG "get_Screen_cmap") (foreign-function set-screen-cmap! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_Screen_cmap") (foreign-function screen-white_pixel ((POINTER STRUCT)) UNSIGNED-LONG "get_Screen_white_pixel") (foreign-function set-screen-white_pixel! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_Screen_white_pixel") (foreign-function screen-black_pixel ((POINTER STRUCT)) UNSIGNED-LONG "get_Screen_black_pixel") (foreign-function set-screen-black_pixel! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_Screen_black_pixel") (foreign-function screen-max_maps ((POINTER STRUCT)) INT "get_Screen_max_maps") (foreign-function set-screen-max_maps! ((POINTER STRUCT) INT) VOID "set_Screen_max_maps") (foreign-function screen-min_maps ((POINTER STRUCT)) INT "get_Screen_min_maps") (foreign-function set-screen-min_maps! ((POINTER STRUCT) INT) VOID "set_Screen_min_maps") (foreign-function screen-backing_store ((POINTER STRUCT)) INT "get_Screen_backing_store") (foreign-function set-screen-backing_store! ((POINTER STRUCT) INT) VOID "set_Screen_backing_store") (foreign-function screen-save_unders ((POINTER STRUCT)) INT "get_Screen_save_unders") (foreign-function set-screen-save_unders! ((POINTER STRUCT) INT) VOID "set_Screen_save_unders") (foreign-function screen-root_input_mask ((POINTER STRUCT)) INT "get_Screen_root_input_mask") (foreign-function set-screen-root_input_mask! ((POINTER STRUCT) INT) VOID "set_Screen_root_input_mask") ;;; STRUCT:Display (Remove accessors because this is "opaque") ;;; STRUCT:ScreenFormat (foreign-function make-screenformat () (POINTER STRUCT) "alloc_ScreenFormat") (foreign-function free-screenformat ((POINTER STRUCT)) VOID "free_ScreenFormat") (foreign-function screenformat-ext_data ((POINTER STRUCT)) (POINTER STRUCT) "get_ScreenFormat_ext_data") (foreign-function set-screenformat-ext_data! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_ScreenFormat_ext_data") (foreign-function screenformat-depth ((POINTER STRUCT)) INT "get_ScreenFormat_depth") (foreign-function set-screenformat-depth! ((POINTER STRUCT) INT) VOID "set_ScreenFormat_depth") (foreign-function screenformat-bits_per_pixel ((POINTER STRUCT)) INT "get_ScreenFormat_bits_per_pixel") (foreign-function set-screenformat-bits_per_pixel! ((POINTER STRUCT) INT) VOID "set_ScreenFormat_bits_per_pixel") (foreign-function screenformat-scanline_pad ((POINTER STRUCT)) INT "get_ScreenFormat_scanline_pad") (foreign-function set-screenformat-scanline_pad! ((POINTER STRUCT) INT) VOID "set_ScreenFormat_scanline_pad") ;;; STRUCT:XSetWindowAttributes (foreign-function make-xsetwindowattributes () (POINTER STRUCT) "alloc_XSetWindowAttributes") (foreign-function free-xsetwindowattributes ((POINTER STRUCT)) VOID "free_XSetWindowAttributes") (foreign-function xsetwindowattributes-background_pixmap ((POINTER STRUCT)) UNSIGNED-LONG "get_XSetWindowAttributes_background_pixmap") (foreign-function set-xsetwindowattributes-background_pixmap! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSetWindowAttributes_background_pixmap") (foreign-function xsetwindowattributes-background_pixel ((POINTER STRUCT)) UNSIGNED-LONG "get_XSetWindowAttributes_background_pixel") (foreign-function set-xsetwindowattributes-background_pixel! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSetWindowAttributes_background_pixel") (foreign-function xsetwindowattributes-border_pixmap ((POINTER STRUCT)) UNSIGNED-LONG "get_XSetWindowAttributes_border_pixmap") (foreign-function set-xsetwindowattributes-border_pixmap! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSetWindowAttributes_border_pixmap") (foreign-function xsetwindowattributes-border_pixel ((POINTER STRUCT)) UNSIGNED-LONG "get_XSetWindowAttributes_border_pixel") (foreign-function set-xsetwindowattributes-border_pixel! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSetWindowAttributes_border_pixel") (foreign-function xsetwindowattributes-bit_gravity ((POINTER STRUCT)) INT "get_XSetWindowAttributes_bit_gravity") (foreign-function set-xsetwindowattributes-bit_gravity! ((POINTER STRUCT) INT) VOID "set_XSetWindowAttributes_bit_gravity") (foreign-function xsetwindowattributes-win_gravity ((POINTER STRUCT)) INT "get_XSetWindowAttributes_win_gravity") (foreign-function set-xsetwindowattributes-win_gravity! ((POINTER STRUCT) INT) VOID "set_XSetWindowAttributes_win_gravity") (foreign-function xsetwindowattributes-backing_store ((POINTER STRUCT)) INT "get_XSetWindowAttributes_backing_store") (foreign-function set-xsetwindowattributes-backing_store! ((POINTER STRUCT) INT) VOID "set_XSetWindowAttributes_backing_store") (foreign-function xsetwindowattributes-backing_planes ((POINTER STRUCT)) UNSIGNED-LONG "get_XSetWindowAttributes_backing_planes") (foreign-function set-xsetwindowattributes-backing_planes! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSetWindowAttributes_backing_planes") (foreign-function xsetwindowattributes-backing_pixel ((POINTER STRUCT)) UNSIGNED-LONG "get_XSetWindowAttributes_backing_pixel") (foreign-function set-xsetwindowattributes-backing_pixel! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSetWindowAttributes_backing_pixel") (foreign-function xsetwindowattributes-save_under ((POINTER STRUCT)) INT "get_XSetWindowAttributes_save_under") (foreign-function set-xsetwindowattributes-save_under! ((POINTER STRUCT) INT) VOID "set_XSetWindowAttributes_save_under") (foreign-function xsetwindowattributes-event_mask ((POINTER STRUCT)) INT "get_XSetWindowAttributes_event_mask") (foreign-function set-xsetwindowattributes-event_mask! ((POINTER STRUCT) INT) VOID "set_XSetWindowAttributes_event_mask") (foreign-function xsetwindowattributes-do_not_propagate_mask ((POINTER STRUCT)) INT "get_XSetWindowAttributes_do_not_propagate_mask") (foreign-function set-xsetwindowattributes-do_not_propagate_mask! ((POINTER STRUCT) INT) VOID "set_XSetWindowAttributes_do_not_propagate_mask") (foreign-function xsetwindowattributes-override_redirect ((POINTER STRUCT)) INT "get_XSetWindowAttributes_override_redirect") (foreign-function set-xsetwindowattributes-override_redirect! ((POINTER STRUCT) INT) VOID "set_XSetWindowAttributes_override_redirect") (foreign-function xsetwindowattributes-colormap ((POINTER STRUCT)) UNSIGNED-LONG "get_XSetWindowAttributes_colormap") (foreign-function set-xsetwindowattributes-colormap! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSetWindowAttributes_colormap") (foreign-function xsetwindowattributes-cursor ((POINTER STRUCT)) UNSIGNED-LONG "get_XSetWindowAttributes_cursor") (foreign-function set-xsetwindowattributes-cursor! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSetWindowAttributes_cursor") ;;; STRUCT:XWindowAttributes (foreign-function make-xwindowattributes () (POINTER STRUCT) "alloc_XWindowAttributes") (foreign-function free-xwindowattributes ((POINTER STRUCT)) VOID "free_XWindowAttributes") (foreign-function xwindowattributes-x ((POINTER STRUCT)) INT "get_XWindowAttributes_x") (foreign-function set-xwindowattributes-x! ((POINTER STRUCT) INT) VOID "set_XWindowAttributes_x") (foreign-function xwindowattributes-y ((POINTER STRUCT)) INT "get_XWindowAttributes_y") (foreign-function set-xwindowattributes-y! ((POINTER STRUCT) INT) VOID "set_XWindowAttributes_y") (foreign-function xwindowattributes-width ((POINTER STRUCT)) INT "get_XWindowAttributes_width") (foreign-function set-xwindowattributes-width! ((POINTER STRUCT) INT) VOID "set_XWindowAttributes_width") (foreign-function xwindowattributes-height ((POINTER STRUCT)) INT "get_XWindowAttributes_height") (foreign-function set-xwindowattributes-height! ((POINTER STRUCT) INT) VOID "set_XWindowAttributes_height") (foreign-function xwindowattributes-border_width ((POINTER STRUCT)) INT "get_XWindowAttributes_border_width") (foreign-function set-xwindowattributes-border_width! ((POINTER STRUCT) INT) VOID "set_XWindowAttributes_border_width") (foreign-function xwindowattributes-depth ((POINTER STRUCT)) INT "get_XWindowAttributes_depth") (foreign-function set-xwindowattributes-depth! ((POINTER STRUCT) INT) VOID "set_XWindowAttributes_depth") (foreign-function xwindowattributes-visual ((POINTER STRUCT)) (POINTER STRUCT) "get_XWindowAttributes_visual") (foreign-function set-xwindowattributes-visual! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XWindowAttributes_visual") (foreign-function xwindowattributes-root ((POINTER STRUCT)) UNSIGNED-LONG "get_XWindowAttributes_root") (foreign-function set-xwindowattributes-root! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XWindowAttributes_root") (foreign-function xwindowattributes-class ((POINTER STRUCT)) INT "get_XWindowAttributes_class") (foreign-function set-xwindowattributes-class! ((POINTER STRUCT) INT) VOID "set_XWindowAttributes_class") (foreign-function xwindowattributes-bit_gravity ((POINTER STRUCT)) INT "get_XWindowAttributes_bit_gravity") (foreign-function set-xwindowattributes-bit_gravity! ((POINTER STRUCT) INT) VOID "set_XWindowAttributes_bit_gravity") (foreign-function xwindowattributes-win_gravity ((POINTER STRUCT)) INT "get_XWindowAttributes_win_gravity") (foreign-function set-xwindowattributes-win_gravity! ((POINTER STRUCT) INT) VOID "set_XWindowAttributes_win_gravity") (foreign-function xwindowattributes-backing_store ((POINTER STRUCT)) INT "get_XWindowAttributes_backing_store") (foreign-function set-xwindowattributes-backing_store! ((POINTER STRUCT) INT) VOID "set_XWindowAttributes_backing_store") (foreign-function xwindowattributes-backing_planes ((POINTER STRUCT)) UNSIGNED-LONG "get_XWindowAttributes_backing_planes") (foreign-function set-xwindowattributes-backing_planes! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XWindowAttributes_backing_planes") (foreign-function xwindowattributes-backing_pixel ((POINTER STRUCT)) UNSIGNED-LONG "get_XWindowAttributes_backing_pixel") (foreign-function set-xwindowattributes-backing_pixel! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XWindowAttributes_backing_pixel") (foreign-function xwindowattributes-save_under ((POINTER STRUCT)) INT "get_XWindowAttributes_save_under") (foreign-function set-xwindowattributes-save_under! ((POINTER STRUCT) INT) VOID "set_XWindowAttributes_save_under") (foreign-function xwindowattributes-colormap ((POINTER STRUCT)) UNSIGNED-LONG "get_XWindowAttributes_colormap") (foreign-function set-xwindowattributes-colormap! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XWindowAttributes_colormap") (foreign-function xwindowattributes-map_installed ((POINTER STRUCT)) INT "get_XWindowAttributes_map_installed") (foreign-function set-xwindowattributes-map_installed! ((POINTER STRUCT) INT) VOID "set_XWindowAttributes_map_installed") (foreign-function xwindowattributes-map_state ((POINTER STRUCT)) INT "get_XWindowAttributes_map_state") (foreign-function set-xwindowattributes-map_state! ((POINTER STRUCT) INT) VOID "set_XWindowAttributes_map_state") (foreign-function xwindowattributes-all_event_masks ((POINTER STRUCT)) INT "get_XWindowAttributes_all_event_masks") (foreign-function set-xwindowattributes-all_event_masks! ((POINTER STRUCT) INT) VOID "set_XWindowAttributes_all_event_masks") (foreign-function xwindowattributes-your_event_mask ((POINTER STRUCT)) INT "get_XWindowAttributes_your_event_mask") (foreign-function set-xwindowattributes-your_event_mask! ((POINTER STRUCT) INT) VOID "set_XWindowAttributes_your_event_mask") (foreign-function xwindowattributes-do_not_propagate_mask ((POINTER STRUCT)) INT "get_XWindowAttributes_do_not_propagate_mask") (foreign-function set-xwindowattributes-do_not_propagate_mask! ((POINTER STRUCT) INT) VOID "set_XWindowAttributes_do_not_propagate_mask") (foreign-function xwindowattributes-override_redirect ((POINTER STRUCT)) INT "get_XWindowAttributes_override_redirect") (foreign-function set-xwindowattributes-override_redirect! ((POINTER STRUCT) INT) VOID "set_XWindowAttributes_override_redirect") (foreign-function xwindowattributes-screen ((POINTER STRUCT)) (POINTER STRUCT) "get_XWindowAttributes_screen") (foreign-function set-xwindowattributes-screen! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XWindowAttributes_screen") ;;; STRUCT:XHostAddress (foreign-function make-xhostaddress () (POINTER STRUCT) "alloc_XHostAddress") (foreign-function free-xhostaddress ((POINTER STRUCT)) VOID "free_XHostAddress") (foreign-function xhostaddress-family ((POINTER STRUCT)) INT "get_XHostAddress_family") (foreign-function set-xhostaddress-family! ((POINTER STRUCT) INT) VOID "set_XHostAddress_family") (foreign-function xhostaddress-length ((POINTER STRUCT)) INT "get_XHostAddress_length") (foreign-function set-xhostaddress-length! ((POINTER STRUCT) INT) VOID "set_XHostAddress_length") (foreign-function xhostaddress-address ((POINTER STRUCT)) (POINTER CHAR) "get_XHostAddress_address") (foreign-function set-xhostaddress-address! ((POINTER STRUCT) (POINTER CHAR)) VOID "set_XHostAddress_address") ;;; STRUCT:XImage (foreign-function make-ximage () (POINTER STRUCT) "alloc_XImage") (foreign-function free-ximage ((POINTER STRUCT)) VOID "free_XImage") (foreign-function ximage-width ((POINTER STRUCT)) INT "get_XImage_width") (foreign-function set-ximage-width! ((POINTER STRUCT) INT) VOID "set_XImage_width") (foreign-function ximage-height ((POINTER STRUCT)) INT "get_XImage_height") (foreign-function set-ximage-height! ((POINTER STRUCT) INT) VOID "set_XImage_height") (foreign-function ximage-xoffset ((POINTER STRUCT)) INT "get_XImage_xoffset") (foreign-function set-ximage-xoffset! ((POINTER STRUCT) INT) VOID "set_XImage_xoffset") (foreign-function ximage-format ((POINTER STRUCT)) INT "get_XImage_format") (foreign-function set-ximage-format! ((POINTER STRUCT) INT) VOID "set_XImage_format") (foreign-function ximage-data ((POINTER STRUCT)) (POINTER CHAR) "get_XImage_data") (foreign-function set-ximage-data! ((POINTER STRUCT) (POINTER CHAR)) VOID "set_XImage_data") (foreign-function ximage-byte_order ((POINTER STRUCT)) INT "get_XImage_byte_order") (foreign-function set-ximage-byte_order! ((POINTER STRUCT) INT) VOID "set_XImage_byte_order") (foreign-function ximage-bitmap_unit ((POINTER STRUCT)) INT "get_XImage_bitmap_unit") (foreign-function set-ximage-bitmap_unit! ((POINTER STRUCT) INT) VOID "set_XImage_bitmap_unit") (foreign-function ximage-bitmap_bit_order ((POINTER STRUCT)) INT "get_XImage_bitmap_bit_order") (foreign-function set-ximage-bitmap_bit_order! ((POINTER STRUCT) INT) VOID "set_XImage_bitmap_bit_order") (foreign-function ximage-bitmap_pad ((POINTER STRUCT)) INT "get_XImage_bitmap_pad") (foreign-function set-ximage-bitmap_pad! ((POINTER STRUCT) INT) VOID "set_XImage_bitmap_pad") (foreign-function ximage-depth ((POINTER STRUCT)) INT "get_XImage_depth") (foreign-function set-ximage-depth! ((POINTER STRUCT) INT) VOID "set_XImage_depth") (foreign-function ximage-bytes_per_line ((POINTER STRUCT)) INT "get_XImage_bytes_per_line") (foreign-function set-ximage-bytes_per_line! ((POINTER STRUCT) INT) VOID "set_XImage_bytes_per_line") (foreign-function ximage-bits_per_pixel ((POINTER STRUCT)) INT "get_XImage_bits_per_pixel") (foreign-function set-ximage-bits_per_pixel! ((POINTER STRUCT) INT) VOID "set_XImage_bits_per_pixel") (foreign-function ximage-red_mask ((POINTER STRUCT)) UNSIGNED-LONG "get_XImage_red_mask") (foreign-function set-ximage-red_mask! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XImage_red_mask") (foreign-function ximage-green_mask ((POINTER STRUCT)) UNSIGNED-LONG "get_XImage_green_mask") (foreign-function set-ximage-green_mask! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XImage_green_mask") (foreign-function ximage-blue_mask ((POINTER STRUCT)) UNSIGNED-LONG "get_XImage_blue_mask") (foreign-function set-ximage-blue_mask! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XImage_blue_mask") (foreign-function ximage-obdata ((POINTER STRUCT)) (POINTER CHAR) "get_XImage_obdata") (foreign-function set-ximage-obdata! ((POINTER STRUCT) (POINTER CHAR)) VOID "set_XImage_obdata") (foreign-function ximage-f-create_image ((POINTER STRUCT)) (POINTER FUNCTION) "get_XImage_f_create_image") (foreign-function set-ximage-f-create_image! ((POINTER STRUCT) (POINTER FUNCTION)) VOID "set_XImage_f_create_image") (foreign-function ximage-f-destroy_image ((POINTER STRUCT)) (POINTER FUNCTION) "get_XImage_f_destroy_image") (foreign-function set-ximage-f-destroy_image! ((POINTER STRUCT) (POINTER FUNCTION)) VOID "set_XImage_f_destroy_image") (foreign-function ximage-f-get_pixel ((POINTER STRUCT)) (POINTER FUNCTION) "get_XImage_f_get_pixel") (foreign-function set-ximage-f-get_pixel! ((POINTER STRUCT) (POINTER FUNCTION)) VOID "set_XImage_f_get_pixel") (foreign-function ximage-f-put_pixel ((POINTER STRUCT)) (POINTER FUNCTION) "get_XImage_f_put_pixel") (foreign-function set-ximage-f-put_pixel! ((POINTER STRUCT) (POINTER FUNCTION)) VOID "set_XImage_f_put_pixel") (foreign-function ximage-f-sub_image ((POINTER STRUCT)) (POINTER FUNCTION) "get_XImage_f_sub_image") (foreign-function set-ximage-f-sub_image! ((POINTER STRUCT) (POINTER FUNCTION)) VOID "set_XImage_f_sub_image") (foreign-function ximage-f-add_pixel ((POINTER STRUCT)) (POINTER FUNCTION) "get_XImage_f_add_pixel") (foreign-function set-ximage-f-add_pixel! ((POINTER STRUCT) (POINTER FUNCTION)) VOID "set_XImage_f_add_pixel") ;;; STRUCT:XWindowChanges (foreign-function make-xwindowchanges () (POINTER STRUCT) "alloc_XWindowChanges") (foreign-function free-xwindowchanges ((POINTER STRUCT)) VOID "free_XWindowChanges") (foreign-function xwindowchanges-x ((POINTER STRUCT)) INT "get_XWindowChanges_x") (foreign-function set-xwindowchanges-x! ((POINTER STRUCT) INT) VOID "set_XWindowChanges_x") (foreign-function xwindowchanges-y ((POINTER STRUCT)) INT "get_XWindowChanges_y") (foreign-function set-xwindowchanges-y! ((POINTER STRUCT) INT) VOID "set_XWindowChanges_y") (foreign-function xwindowchanges-width ((POINTER STRUCT)) INT "get_XWindowChanges_width") (foreign-function set-xwindowchanges-width! ((POINTER STRUCT) INT) VOID "set_XWindowChanges_width") (foreign-function xwindowchanges-height ((POINTER STRUCT)) INT "get_XWindowChanges_height") (foreign-function set-xwindowchanges-height! ((POINTER STRUCT) INT) VOID "set_XWindowChanges_height") (foreign-function xwindowchanges-border_width ((POINTER STRUCT)) INT "get_XWindowChanges_border_width") (foreign-function set-xwindowchanges-border_width! ((POINTER STRUCT) INT) VOID "set_XWindowChanges_border_width") (foreign-function xwindowchanges-sibling ((POINTER STRUCT)) UNSIGNED-LONG "get_XWindowChanges_sibling") (foreign-function set-xwindowchanges-sibling! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XWindowChanges_sibling") (foreign-function xwindowchanges-stack_mode ((POINTER STRUCT)) INT "get_XWindowChanges_stack_mode") (foreign-function set-xwindowchanges-stack_mode! ((POINTER STRUCT) INT) VOID "set_XWindowChanges_stack_mode") ;;; STRUCT:XColor (foreign-function make-xcolor () (POINTER STRUCT) "alloc_XColor") (foreign-function free-xcolor ((POINTER STRUCT)) VOID "free_XColor") (foreign-function xcolor-pixel ((POINTER STRUCT)) UNSIGNED-LONG "get_XColor_pixel") (foreign-function set-xcolor-pixel! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XColor_pixel") (foreign-function xcolor-red ((POINTER STRUCT)) UNSIGNED-SHORT "get_XColor_red") (foreign-function set-xcolor-red! ((POINTER STRUCT) UNSIGNED-SHORT) VOID "set_XColor_red") (foreign-function xcolor-green ((POINTER STRUCT)) UNSIGNED-SHORT "get_XColor_green") (foreign-function set-xcolor-green! ((POINTER STRUCT) UNSIGNED-SHORT) VOID "set_XColor_green") (foreign-function xcolor-blue ((POINTER STRUCT)) UNSIGNED-SHORT "get_XColor_blue") (foreign-function set-xcolor-blue! ((POINTER STRUCT) UNSIGNED-SHORT) VOID "set_XColor_blue") (foreign-function xcolor-flags ((POINTER STRUCT)) CHAR "get_XColor_flags") (foreign-function set-xcolor-flags! ((POINTER STRUCT) CHAR) VOID "set_XColor_flags") (foreign-function xcolor-pad ((POINTER STRUCT)) CHAR "get_XColor_pad") (foreign-function set-xcolor-pad! ((POINTER STRUCT) CHAR) VOID "set_XColor_pad") ;;; STRUCT:XSegment (foreign-function make-xsegment () (POINTER STRUCT) "alloc_XSegment") (foreign-function free-xsegment ((POINTER STRUCT)) VOID "free_XSegment") (foreign-function xsegment-x1 ((POINTER STRUCT)) SHORT "get_XSegment_x1") (foreign-function set-xsegment-x1! ((POINTER STRUCT) SHORT) VOID "set_XSegment_x1") (foreign-function xsegment-y1 ((POINTER STRUCT)) SHORT "get_XSegment_y1") (foreign-function set-xsegment-y1! ((POINTER STRUCT) SHORT) VOID "set_XSegment_y1") (foreign-function xsegment-x2 ((POINTER STRUCT)) SHORT "get_XSegment_x2") (foreign-function set-xsegment-x2! ((POINTER STRUCT) SHORT) VOID "set_XSegment_x2") (foreign-function xsegment-y2 ((POINTER STRUCT)) SHORT "get_XSegment_y2") (foreign-function set-xsegment-y2! ((POINTER STRUCT) SHORT) VOID "set_XSegment_y2") ;;; STRUCT:XPoint (foreign-function make-xpoint () (POINTER STRUCT) "alloc_XPoint") (foreign-function free-xpoint ((POINTER STRUCT)) VOID "free_XPoint") (foreign-function xpoint-x ((POINTER STRUCT)) SHORT "get_XPoint_x") (foreign-function set-xpoint-x! ((POINTER STRUCT) SHORT) VOID "set_XPoint_x") (foreign-function xpoint-y ((POINTER STRUCT)) SHORT "get_XPoint_y") (foreign-function set-xpoint-y! ((POINTER STRUCT) SHORT) VOID "set_XPoint_y") ;;; STRUCT:XRectangle (foreign-function make-xrectangle () (POINTER STRUCT) "alloc_XRectangle") (foreign-function free-xrectangle ((POINTER STRUCT)) VOID "free_XRectangle") (foreign-function xrectangle-x ((POINTER STRUCT)) SHORT "get_XRectangle_x") (foreign-function set-xrectangle-x! ((POINTER STRUCT) SHORT) VOID "set_XRectangle_x") (foreign-function xrectangle-y ((POINTER STRUCT)) SHORT "get_XRectangle_y") (foreign-function set-xrectangle-y! ((POINTER STRUCT) SHORT) VOID "set_XRectangle_y") (foreign-function xrectangle-width ((POINTER STRUCT)) UNSIGNED-SHORT "get_XRectangle_width") (foreign-function set-xrectangle-width! ((POINTER STRUCT) UNSIGNED-SHORT) VOID "set_XRectangle_width") (foreign-function xrectangle-height ((POINTER STRUCT)) UNSIGNED-SHORT "get_XRectangle_height") (foreign-function set-xrectangle-height! ((POINTER STRUCT) UNSIGNED-SHORT) VOID "set_XRectangle_height") ;;; STRUCT:XArc (foreign-function make-xarc () (POINTER STRUCT) "alloc_XArc") (foreign-function free-xarc ((POINTER STRUCT)) VOID "free_XArc") (foreign-function xarc-x ((POINTER STRUCT)) SHORT "get_XArc_x") (foreign-function set-xarc-x! ((POINTER STRUCT) SHORT) VOID "set_XArc_x") (foreign-function xarc-y ((POINTER STRUCT)) SHORT "get_XArc_y") (foreign-function set-xarc-y! ((POINTER STRUCT) SHORT) VOID "set_XArc_y") (foreign-function xarc-width ((POINTER STRUCT)) UNSIGNED-SHORT "get_XArc_width") (foreign-function set-xarc-width! ((POINTER STRUCT) UNSIGNED-SHORT) VOID "set_XArc_width") (foreign-function xarc-height ((POINTER STRUCT)) UNSIGNED-SHORT "get_XArc_height") (foreign-function set-xarc-height! ((POINTER STRUCT) UNSIGNED-SHORT) VOID "set_XArc_height") (foreign-function xarc-angle1 ((POINTER STRUCT)) SHORT "get_XArc_angle1") (foreign-function set-xarc-angle1! ((POINTER STRUCT) SHORT) VOID "set_XArc_angle1") (foreign-function xarc-angle2 ((POINTER STRUCT)) SHORT "get_XArc_angle2") (foreign-function set-xarc-angle2! ((POINTER STRUCT) SHORT) VOID "set_XArc_angle2") ;;; STRUCT:XKeyboardControl (foreign-function make-xkeyboardcontrol () (POINTER STRUCT) "alloc_XKeyboardControl") (foreign-function free-xkeyboardcontrol ((POINTER STRUCT)) VOID "free_XKeyboardControl") (foreign-function xkeyboardcontrol-key_click_percent ((POINTER STRUCT)) INT "get_XKeyboardControl_key_click_percent") (foreign-function set-xkeyboardcontrol-key_click_percent! ((POINTER STRUCT) INT) VOID "set_XKeyboardControl_key_click_percent") (foreign-function xkeyboardcontrol-bell_percent ((POINTER STRUCT)) INT "get_XKeyboardControl_bell_percent") (foreign-function set-xkeyboardcontrol-bell_percent! ((POINTER STRUCT) INT) VOID "set_XKeyboardControl_bell_percent") (foreign-function xkeyboardcontrol-bell_pitch ((POINTER STRUCT)) INT "get_XKeyboardControl_bell_pitch") (foreign-function set-xkeyboardcontrol-bell_pitch! ((POINTER STRUCT) INT) VOID "set_XKeyboardControl_bell_pitch") (foreign-function xkeyboardcontrol-bell_duration ((POINTER STRUCT)) INT "get_XKeyboardControl_bell_duration") (foreign-function set-xkeyboardcontrol-bell_duration! ((POINTER STRUCT) INT) VOID "set_XKeyboardControl_bell_duration") (foreign-function xkeyboardcontrol-led ((POINTER STRUCT)) INT "get_XKeyboardControl_led") (foreign-function set-xkeyboardcontrol-led! ((POINTER STRUCT) INT) VOID "set_XKeyboardControl_led") (foreign-function xkeyboardcontrol-led_mode ((POINTER STRUCT)) INT "get_XKeyboardControl_led_mode") (foreign-function set-xkeyboardcontrol-led_mode! ((POINTER STRUCT) INT) VOID "set_XKeyboardControl_led_mode") (foreign-function xkeyboardcontrol-key ((POINTER STRUCT)) INT "get_XKeyboardControl_key") (foreign-function set-xkeyboardcontrol-key! ((POINTER STRUCT) INT) VOID "set_XKeyboardControl_key") (foreign-function xkeyboardcontrol-auto_repeat_mode ((POINTER STRUCT)) INT "get_XKeyboardControl_auto_repeat_mode") (foreign-function set-xkeyboardcontrol-auto_repeat_mode! ((POINTER STRUCT) INT) VOID "set_XKeyboardControl_auto_repeat_mode") ;;; STRUCT:XKeyboardState (foreign-function make-xkeyboardstate () (POINTER STRUCT) "alloc_XKeyboardState") (foreign-function free-xkeyboardstate ((POINTER STRUCT)) VOID "free_XKeyboardState") (foreign-function xkeyboardstate-key_click_percent ((POINTER STRUCT)) INT "get_XKeyboardState_key_click_percent") (foreign-function set-xkeyboardstate-key_click_percent! ((POINTER STRUCT) INT) VOID "set_XKeyboardState_key_click_percent") (foreign-function xkeyboardstate-bell_percent ((POINTER STRUCT)) INT "get_XKeyboardState_bell_percent") (foreign-function set-xkeyboardstate-bell_percent! ((POINTER STRUCT) INT) VOID "set_XKeyboardState_bell_percent") (foreign-function xkeyboardstate-bell_pitch ((POINTER STRUCT)) UNSIGNED-INT "get_XKeyboardState_bell_pitch") (foreign-function set-xkeyboardstate-bell_pitch! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XKeyboardState_bell_pitch") (foreign-function xkeyboardstate-bell_duration ((POINTER STRUCT)) UNSIGNED-INT "get_XKeyboardState_bell_duration") (foreign-function set-xkeyboardstate-bell_duration! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XKeyboardState_bell_duration") (foreign-function xkeyboardstate-led_mask ((POINTER STRUCT)) UNSIGNED-LONG "get_XKeyboardState_led_mask") (foreign-function set-xkeyboardstate-led_mask! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XKeyboardState_led_mask") (foreign-function xkeyboardstate-global_auto_repeat ((POINTER STRUCT)) INT "get_XKeyboardState_global_auto_repeat") (foreign-function set-xkeyboardstate-global_auto_repeat! ((POINTER STRUCT) INT) VOID "set_XKeyboardState_global_auto_repeat") (foreign-function xkeyboardstate-auto_repeats ((POINTER STRUCT)) POINTER "get_XKeyboardState_auto_repeats") ;;; STRUCT:XTimeCoord (foreign-function make-xtimecoord () (POINTER STRUCT) "alloc_XTimeCoord") (foreign-function free-xtimecoord ((POINTER STRUCT)) VOID "free_XTimeCoord") (foreign-function xtimecoord-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XTimeCoord_time") (foreign-function set-xtimecoord-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XTimeCoord_time") (foreign-function xtimecoord-x ((POINTER STRUCT)) SHORT "get_XTimeCoord_x") (foreign-function set-xtimecoord-x! ((POINTER STRUCT) SHORT) VOID "set_XTimeCoord_x") (foreign-function xtimecoord-y ((POINTER STRUCT)) SHORT "get_XTimeCoord_y") (foreign-function set-xtimecoord-y! ((POINTER STRUCT) SHORT) VOID "set_XTimeCoord_y") ;;; STRUCT:XModifierKeymap (foreign-function make-xmodifierkeymap () (POINTER STRUCT) "alloc_XModifierKeymap") (foreign-function free-xmodifierkeymap ((POINTER STRUCT)) VOID "free_XModifierKeymap") (foreign-function xmodifierkeymap-max_keypermod ((POINTER STRUCT)) INT "get_XModifierKeymap_max_keypermod") (foreign-function set-xmodifierkeymap-max_keypermod! ((POINTER STRUCT) INT) VOID "set_XModifierKeymap_max_keypermod") (foreign-function xmodifierkeymap-modifiermap ((POINTER STRUCT)) (POINTER UNSIGNED-CHAR) "get_XModifierKeymap_modifiermap") (foreign-function set-xmodifierkeymap-modifiermap! ((POINTER STRUCT) (POINTER UNSIGNED-CHAR)) VOID "set_XModifierKeymap_modifiermap") ;;; STRUCT:XKeyReleasedEvent (foreign-function make-xkeyreleasedevent () (POINTER STRUCT) "alloc_XKeyReleasedEvent") (foreign-function free-xkeyreleasedevent ((POINTER STRUCT)) VOID "free_XKeyReleasedEvent") (foreign-function xkeyreleasedevent-type ((POINTER STRUCT)) INT "get_XKeyReleasedEvent_type") (foreign-function set-xkeyreleasedevent-type! ((POINTER STRUCT) INT) VOID "set_XKeyReleasedEvent_type") (foreign-function xkeyreleasedevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XKeyReleasedEvent_serial") (foreign-function set-xkeyreleasedevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XKeyReleasedEvent_serial") (foreign-function xkeyreleasedevent-send_event ((POINTER STRUCT)) INT "get_XKeyReleasedEvent_send_event") (foreign-function set-xkeyreleasedevent-send_event! ((POINTER STRUCT) INT) VOID "set_XKeyReleasedEvent_send_event") (foreign-function xkeyreleasedevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XKeyReleasedEvent_display") (foreign-function set-xkeyreleasedevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XKeyReleasedEvent_display") (foreign-function xkeyreleasedevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XKeyReleasedEvent_window") (foreign-function set-xkeyreleasedevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XKeyReleasedEvent_window") (foreign-function xkeyreleasedevent-root ((POINTER STRUCT)) UNSIGNED-LONG "get_XKeyReleasedEvent_root") (foreign-function set-xkeyreleasedevent-root! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XKeyReleasedEvent_root") (foreign-function xkeyreleasedevent-subwindow ((POINTER STRUCT)) UNSIGNED-LONG "get_XKeyReleasedEvent_subwindow") (foreign-function set-xkeyreleasedevent-subwindow! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XKeyReleasedEvent_subwindow") (foreign-function xkeyreleasedevent-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XKeyReleasedEvent_time") (foreign-function set-xkeyreleasedevent-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XKeyReleasedEvent_time") (foreign-function xkeyreleasedevent-x ((POINTER STRUCT)) INT "get_XKeyReleasedEvent_x") (foreign-function set-xkeyreleasedevent-x! ((POINTER STRUCT) INT) VOID "set_XKeyReleasedEvent_x") (foreign-function xkeyreleasedevent-y ((POINTER STRUCT)) INT "get_XKeyReleasedEvent_y") (foreign-function set-xkeyreleasedevent-y! ((POINTER STRUCT) INT) VOID "set_XKeyReleasedEvent_y") (foreign-function xkeyreleasedevent-x_root ((POINTER STRUCT)) INT "get_XKeyReleasedEvent_x_root") (foreign-function set-xkeyreleasedevent-x_root! ((POINTER STRUCT) INT) VOID "set_XKeyReleasedEvent_x_root") (foreign-function xkeyreleasedevent-y_root ((POINTER STRUCT)) INT "get_XKeyReleasedEvent_y_root") (foreign-function set-xkeyreleasedevent-y_root! ((POINTER STRUCT) INT) VOID "set_XKeyReleasedEvent_y_root") (foreign-function xkeyreleasedevent-state ((POINTER STRUCT)) UNSIGNED-INT "get_XKeyReleasedEvent_state") (foreign-function set-xkeyreleasedevent-state! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XKeyReleasedEvent_state") (foreign-function xkeyreleasedevent-keycode ((POINTER STRUCT)) UNSIGNED-INT "get_XKeyReleasedEvent_keycode") (foreign-function set-xkeyreleasedevent-keycode! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XKeyReleasedEvent_keycode") (foreign-function xkeyreleasedevent-same_screen ((POINTER STRUCT)) INT "get_XKeyReleasedEvent_same_screen") (foreign-function set-xkeyreleasedevent-same_screen! ((POINTER STRUCT) INT) VOID "set_XKeyReleasedEvent_same_screen") ;;; STRUCT:XKeyPressedEvent (foreign-function make-xkeypressedevent () (POINTER STRUCT) "alloc_XKeyPressedEvent") (foreign-function free-xkeypressedevent ((POINTER STRUCT)) VOID "free_XKeyPressedEvent") (foreign-function xkeypressedevent-type ((POINTER STRUCT)) INT "get_XKeyPressedEvent_type") (foreign-function set-xkeypressedevent-type! ((POINTER STRUCT) INT) VOID "set_XKeyPressedEvent_type") (foreign-function xkeypressedevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XKeyPressedEvent_serial") (foreign-function set-xkeypressedevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XKeyPressedEvent_serial") (foreign-function xkeypressedevent-send_event ((POINTER STRUCT)) INT "get_XKeyPressedEvent_send_event") (foreign-function set-xkeypressedevent-send_event! ((POINTER STRUCT) INT) VOID "set_XKeyPressedEvent_send_event") (foreign-function xkeypressedevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XKeyPressedEvent_display") (foreign-function set-xkeypressedevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XKeyPressedEvent_display") (foreign-function xkeypressedevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XKeyPressedEvent_window") (foreign-function set-xkeypressedevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XKeyPressedEvent_window") (foreign-function xkeypressedevent-root ((POINTER STRUCT)) UNSIGNED-LONG "get_XKeyPressedEvent_root") (foreign-function set-xkeypressedevent-root! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XKeyPressedEvent_root") (foreign-function xkeypressedevent-subwindow ((POINTER STRUCT)) UNSIGNED-LONG "get_XKeyPressedEvent_subwindow") (foreign-function set-xkeypressedevent-subwindow! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XKeyPressedEvent_subwindow") (foreign-function xkeypressedevent-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XKeyPressedEvent_time") (foreign-function set-xkeypressedevent-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XKeyPressedEvent_time") (foreign-function xkeypressedevent-x ((POINTER STRUCT)) INT "get_XKeyPressedEvent_x") (foreign-function set-xkeypressedevent-x! ((POINTER STRUCT) INT) VOID "set_XKeyPressedEvent_x") (foreign-function xkeypressedevent-y ((POINTER STRUCT)) INT "get_XKeyPressedEvent_y") (foreign-function set-xkeypressedevent-y! ((POINTER STRUCT) INT) VOID "set_XKeyPressedEvent_y") (foreign-function xkeypressedevent-x_root ((POINTER STRUCT)) INT "get_XKeyPressedEvent_x_root") (foreign-function set-xkeypressedevent-x_root! ((POINTER STRUCT) INT) VOID "set_XKeyPressedEvent_x_root") (foreign-function xkeypressedevent-y_root ((POINTER STRUCT)) INT "get_XKeyPressedEvent_y_root") (foreign-function set-xkeypressedevent-y_root! ((POINTER STRUCT) INT) VOID "set_XKeyPressedEvent_y_root") (foreign-function xkeypressedevent-state ((POINTER STRUCT)) UNSIGNED-INT "get_XKeyPressedEvent_state") (foreign-function set-xkeypressedevent-state! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XKeyPressedEvent_state") (foreign-function xkeypressedevent-keycode ((POINTER STRUCT)) UNSIGNED-INT "get_XKeyPressedEvent_keycode") (foreign-function set-xkeypressedevent-keycode! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XKeyPressedEvent_keycode") (foreign-function xkeypressedevent-same_screen ((POINTER STRUCT)) INT "get_XKeyPressedEvent_same_screen") (foreign-function set-xkeypressedevent-same_screen! ((POINTER STRUCT) INT) VOID "set_XKeyPressedEvent_same_screen") ;;; STRUCT:XKeyEvent (foreign-function make-xkeyevent () (POINTER STRUCT) "alloc_XKeyEvent") (foreign-function free-xkeyevent ((POINTER STRUCT)) VOID "free_XKeyEvent") (foreign-function xkeyevent-type ((POINTER STRUCT)) INT "get_XKeyEvent_type") (foreign-function set-xkeyevent-type! ((POINTER STRUCT) INT) VOID "set_XKeyEvent_type") (foreign-function xkeyevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XKeyEvent_serial") (foreign-function set-xkeyevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XKeyEvent_serial") (foreign-function xkeyevent-send_event ((POINTER STRUCT)) INT "get_XKeyEvent_send_event") (foreign-function set-xkeyevent-send_event! ((POINTER STRUCT) INT) VOID "set_XKeyEvent_send_event") (foreign-function xkeyevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XKeyEvent_display") (foreign-function set-xkeyevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XKeyEvent_display") (foreign-function xkeyevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XKeyEvent_window") (foreign-function set-xkeyevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XKeyEvent_window") (foreign-function xkeyevent-root ((POINTER STRUCT)) UNSIGNED-LONG "get_XKeyEvent_root") (foreign-function set-xkeyevent-root! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XKeyEvent_root") (foreign-function xkeyevent-subwindow ((POINTER STRUCT)) UNSIGNED-LONG "get_XKeyEvent_subwindow") (foreign-function set-xkeyevent-subwindow! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XKeyEvent_subwindow") (foreign-function xkeyevent-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XKeyEvent_time") (foreign-function set-xkeyevent-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XKeyEvent_time") (foreign-function xkeyevent-x ((POINTER STRUCT)) INT "get_XKeyEvent_x") (foreign-function set-xkeyevent-x! ((POINTER STRUCT) INT) VOID "set_XKeyEvent_x") (foreign-function xkeyevent-y ((POINTER STRUCT)) INT "get_XKeyEvent_y") (foreign-function set-xkeyevent-y! ((POINTER STRUCT) INT) VOID "set_XKeyEvent_y") (foreign-function xkeyevent-x_root ((POINTER STRUCT)) INT "get_XKeyEvent_x_root") (foreign-function set-xkeyevent-x_root! ((POINTER STRUCT) INT) VOID "set_XKeyEvent_x_root") (foreign-function xkeyevent-y_root ((POINTER STRUCT)) INT "get_XKeyEvent_y_root") (foreign-function set-xkeyevent-y_root! ((POINTER STRUCT) INT) VOID "set_XKeyEvent_y_root") (foreign-function xkeyevent-state ((POINTER STRUCT)) UNSIGNED-INT "get_XKeyEvent_state") (foreign-function set-xkeyevent-state! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XKeyEvent_state") (foreign-function xkeyevent-keycode ((POINTER STRUCT)) UNSIGNED-INT "get_XKeyEvent_keycode") (foreign-function set-xkeyevent-keycode! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XKeyEvent_keycode") (foreign-function xkeyevent-same_screen ((POINTER STRUCT)) INT "get_XKeyEvent_same_screen") (foreign-function set-xkeyevent-same_screen! ((POINTER STRUCT) INT) VOID "set_XKeyEvent_same_screen") ;;; STRUCT:XButtonReleasedEvent (foreign-function make-xbuttonreleasedevent () (POINTER STRUCT) "alloc_XButtonReleasedEvent") (foreign-function free-xbuttonreleasedevent ((POINTER STRUCT)) VOID "free_XButtonReleasedEvent") (foreign-function xbuttonreleasedevent-type ((POINTER STRUCT)) INT "get_XButtonReleasedEvent_type") (foreign-function set-xbuttonreleasedevent-type! ((POINTER STRUCT) INT) VOID "set_XButtonReleasedEvent_type") (foreign-function xbuttonreleasedevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XButtonReleasedEvent_serial") (foreign-function set-xbuttonreleasedevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XButtonReleasedEvent_serial") (foreign-function xbuttonreleasedevent-send_event ((POINTER STRUCT)) INT "get_XButtonReleasedEvent_send_event") (foreign-function set-xbuttonreleasedevent-send_event! ((POINTER STRUCT) INT) VOID "set_XButtonReleasedEvent_send_event") (foreign-function xbuttonreleasedevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XButtonReleasedEvent_display") (foreign-function set-xbuttonreleasedevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XButtonReleasedEvent_display") (foreign-function xbuttonreleasedevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XButtonReleasedEvent_window") (foreign-function set-xbuttonreleasedevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XButtonReleasedEvent_window") (foreign-function xbuttonreleasedevent-root ((POINTER STRUCT)) UNSIGNED-LONG "get_XButtonReleasedEvent_root") (foreign-function set-xbuttonreleasedevent-root! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XButtonReleasedEvent_root") (foreign-function xbuttonreleasedevent-subwindow ((POINTER STRUCT)) UNSIGNED-LONG "get_XButtonReleasedEvent_subwindow") (foreign-function set-xbuttonreleasedevent-subwindow! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XButtonReleasedEvent_subwindow") (foreign-function xbuttonreleasedevent-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XButtonReleasedEvent_time") (foreign-function set-xbuttonreleasedevent-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XButtonReleasedEvent_time") (foreign-function xbuttonreleasedevent-x ((POINTER STRUCT)) INT "get_XButtonReleasedEvent_x") (foreign-function set-xbuttonreleasedevent-x! ((POINTER STRUCT) INT) VOID "set_XButtonReleasedEvent_x") (foreign-function xbuttonreleasedevent-y ((POINTER STRUCT)) INT "get_XButtonReleasedEvent_y") (foreign-function set-xbuttonreleasedevent-y! ((POINTER STRUCT) INT) VOID "set_XButtonReleasedEvent_y") (foreign-function xbuttonreleasedevent-x_root ((POINTER STRUCT)) INT "get_XButtonReleasedEvent_x_root") (foreign-function set-xbuttonreleasedevent-x_root! ((POINTER STRUCT) INT) VOID "set_XButtonReleasedEvent_x_root") (foreign-function xbuttonreleasedevent-y_root ((POINTER STRUCT)) INT "get_XButtonReleasedEvent_y_root") (foreign-function set-xbuttonreleasedevent-y_root! ((POINTER STRUCT) INT) VOID "set_XButtonReleasedEvent_y_root") (foreign-function xbuttonreleasedevent-state ((POINTER STRUCT)) UNSIGNED-INT "get_XButtonReleasedEvent_state") (foreign-function set-xbuttonreleasedevent-state! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XButtonReleasedEvent_state") (foreign-function xbuttonreleasedevent-button ((POINTER STRUCT)) UNSIGNED-INT "get_XButtonReleasedEvent_button") (foreign-function set-xbuttonreleasedevent-button! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XButtonReleasedEvent_button") (foreign-function xbuttonreleasedevent-same_screen ((POINTER STRUCT)) INT "get_XButtonReleasedEvent_same_screen") (foreign-function set-xbuttonreleasedevent-same_screen! ((POINTER STRUCT) INT) VOID "set_XButtonReleasedEvent_same_screen") ;;; STRUCT:XButtonPressedEvent (foreign-function make-xbuttonpressedevent () (POINTER STRUCT) "alloc_XButtonPressedEvent") (foreign-function free-xbuttonpressedevent ((POINTER STRUCT)) VOID "free_XButtonPressedEvent") (foreign-function xbuttonpressedevent-type ((POINTER STRUCT)) INT "get_XButtonPressedEvent_type") (foreign-function set-xbuttonpressedevent-type! ((POINTER STRUCT) INT) VOID "set_XButtonPressedEvent_type") (foreign-function xbuttonpressedevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XButtonPressedEvent_serial") (foreign-function set-xbuttonpressedevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XButtonPressedEvent_serial") (foreign-function xbuttonpressedevent-send_event ((POINTER STRUCT)) INT "get_XButtonPressedEvent_send_event") (foreign-function set-xbuttonpressedevent-send_event! ((POINTER STRUCT) INT) VOID "set_XButtonPressedEvent_send_event") (foreign-function xbuttonpressedevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XButtonPressedEvent_display") (foreign-function set-xbuttonpressedevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XButtonPressedEvent_display") (foreign-function xbuttonpressedevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XButtonPressedEvent_window") (foreign-function set-xbuttonpressedevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XButtonPressedEvent_window") (foreign-function xbuttonpressedevent-root ((POINTER STRUCT)) UNSIGNED-LONG "get_XButtonPressedEvent_root") (foreign-function set-xbuttonpressedevent-root! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XButtonPressedEvent_root") (foreign-function xbuttonpressedevent-subwindow ((POINTER STRUCT)) UNSIGNED-LONG "get_XButtonPressedEvent_subwindow") (foreign-function set-xbuttonpressedevent-subwindow! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XButtonPressedEvent_subwindow") (foreign-function xbuttonpressedevent-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XButtonPressedEvent_time") (foreign-function set-xbuttonpressedevent-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XButtonPressedEvent_time") (foreign-function xbuttonpressedevent-x ((POINTER STRUCT)) INT "get_XButtonPressedEvent_x") (foreign-function set-xbuttonpressedevent-x! ((POINTER STRUCT) INT) VOID "set_XButtonPressedEvent_x") (foreign-function xbuttonpressedevent-y ((POINTER STRUCT)) INT "get_XButtonPressedEvent_y") (foreign-function set-xbuttonpressedevent-y! ((POINTER STRUCT) INT) VOID "set_XButtonPressedEvent_y") (foreign-function xbuttonpressedevent-x_root ((POINTER STRUCT)) INT "get_XButtonPressedEvent_x_root") (foreign-function set-xbuttonpressedevent-x_root! ((POINTER STRUCT) INT) VOID "set_XButtonPressedEvent_x_root") (foreign-function xbuttonpressedevent-y_root ((POINTER STRUCT)) INT "get_XButtonPressedEvent_y_root") (foreign-function set-xbuttonpressedevent-y_root! ((POINTER STRUCT) INT) VOID "set_XButtonPressedEvent_y_root") (foreign-function xbuttonpressedevent-state ((POINTER STRUCT)) UNSIGNED-INT "get_XButtonPressedEvent_state") (foreign-function set-xbuttonpressedevent-state! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XButtonPressedEvent_state") (foreign-function xbuttonpressedevent-button ((POINTER STRUCT)) UNSIGNED-INT "get_XButtonPressedEvent_button") (foreign-function set-xbuttonpressedevent-button! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XButtonPressedEvent_button") (foreign-function xbuttonpressedevent-same_screen ((POINTER STRUCT)) INT "get_XButtonPressedEvent_same_screen") (foreign-function set-xbuttonpressedevent-same_screen! ((POINTER STRUCT) INT) VOID "set_XButtonPressedEvent_same_screen") ;;; STRUCT:XButtonEvent (foreign-function make-xbuttonevent () (POINTER STRUCT) "alloc_XButtonEvent") (foreign-function free-xbuttonevent ((POINTER STRUCT)) VOID "free_XButtonEvent") (foreign-function xbuttonevent-type ((POINTER STRUCT)) INT "get_XButtonEvent_type") (foreign-function set-xbuttonevent-type! ((POINTER STRUCT) INT) VOID "set_XButtonEvent_type") (foreign-function xbuttonevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XButtonEvent_serial") (foreign-function set-xbuttonevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XButtonEvent_serial") (foreign-function xbuttonevent-send_event ((POINTER STRUCT)) INT "get_XButtonEvent_send_event") (foreign-function set-xbuttonevent-send_event! ((POINTER STRUCT) INT) VOID "set_XButtonEvent_send_event") (foreign-function xbuttonevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XButtonEvent_display") (foreign-function set-xbuttonevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XButtonEvent_display") (foreign-function xbuttonevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XButtonEvent_window") (foreign-function set-xbuttonevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XButtonEvent_window") (foreign-function xbuttonevent-root ((POINTER STRUCT)) UNSIGNED-LONG "get_XButtonEvent_root") (foreign-function set-xbuttonevent-root! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XButtonEvent_root") (foreign-function xbuttonevent-subwindow ((POINTER STRUCT)) UNSIGNED-LONG "get_XButtonEvent_subwindow") (foreign-function set-xbuttonevent-subwindow! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XButtonEvent_subwindow") (foreign-function xbuttonevent-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XButtonEvent_time") (foreign-function set-xbuttonevent-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XButtonEvent_time") (foreign-function xbuttonevent-x ((POINTER STRUCT)) INT "get_XButtonEvent_x") (foreign-function set-xbuttonevent-x! ((POINTER STRUCT) INT) VOID "set_XButtonEvent_x") (foreign-function xbuttonevent-y ((POINTER STRUCT)) INT "get_XButtonEvent_y") (foreign-function set-xbuttonevent-y! ((POINTER STRUCT) INT) VOID "set_XButtonEvent_y") (foreign-function xbuttonevent-x_root ((POINTER STRUCT)) INT "get_XButtonEvent_x_root") (foreign-function set-xbuttonevent-x_root! ((POINTER STRUCT) INT) VOID "set_XButtonEvent_x_root") (foreign-function xbuttonevent-y_root ((POINTER STRUCT)) INT "get_XButtonEvent_y_root") (foreign-function set-xbuttonevent-y_root! ((POINTER STRUCT) INT) VOID "set_XButtonEvent_y_root") (foreign-function xbuttonevent-state ((POINTER STRUCT)) UNSIGNED-INT "get_XButtonEvent_state") (foreign-function set-xbuttonevent-state! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XButtonEvent_state") (foreign-function xbuttonevent-button ((POINTER STRUCT)) UNSIGNED-INT "get_XButtonEvent_button") (foreign-function set-xbuttonevent-button! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XButtonEvent_button") (foreign-function xbuttonevent-same_screen ((POINTER STRUCT)) INT "get_XButtonEvent_same_screen") (foreign-function set-xbuttonevent-same_screen! ((POINTER STRUCT) INT) VOID "set_XButtonEvent_same_screen") ;;; STRUCT:XPointerMovedEvent (foreign-function make-xpointermovedevent () (POINTER STRUCT) "alloc_XPointerMovedEvent") (foreign-function free-xpointermovedevent ((POINTER STRUCT)) VOID "free_XPointerMovedEvent") (foreign-function xpointermovedevent-type ((POINTER STRUCT)) INT "get_XPointerMovedEvent_type") (foreign-function set-xpointermovedevent-type! ((POINTER STRUCT) INT) VOID "set_XPointerMovedEvent_type") (foreign-function xpointermovedevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XPointerMovedEvent_serial") (foreign-function set-xpointermovedevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XPointerMovedEvent_serial") (foreign-function xpointermovedevent-send_event ((POINTER STRUCT)) INT "get_XPointerMovedEvent_send_event") (foreign-function set-xpointermovedevent-send_event! ((POINTER STRUCT) INT) VOID "set_XPointerMovedEvent_send_event") (foreign-function xpointermovedevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XPointerMovedEvent_display") (foreign-function set-xpointermovedevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XPointerMovedEvent_display") (foreign-function xpointermovedevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XPointerMovedEvent_window") (foreign-function set-xpointermovedevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XPointerMovedEvent_window") (foreign-function xpointermovedevent-root ((POINTER STRUCT)) UNSIGNED-LONG "get_XPointerMovedEvent_root") (foreign-function set-xpointermovedevent-root! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XPointerMovedEvent_root") (foreign-function xpointermovedevent-subwindow ((POINTER STRUCT)) UNSIGNED-LONG "get_XPointerMovedEvent_subwindow") (foreign-function set-xpointermovedevent-subwindow! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XPointerMovedEvent_subwindow") (foreign-function xpointermovedevent-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XPointerMovedEvent_time") (foreign-function set-xpointermovedevent-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XPointerMovedEvent_time") (foreign-function xpointermovedevent-x ((POINTER STRUCT)) INT "get_XPointerMovedEvent_x") (foreign-function set-xpointermovedevent-x! ((POINTER STRUCT) INT) VOID "set_XPointerMovedEvent_x") (foreign-function xpointermovedevent-y ((POINTER STRUCT)) INT "get_XPointerMovedEvent_y") (foreign-function set-xpointermovedevent-y! ((POINTER STRUCT) INT) VOID "set_XPointerMovedEvent_y") (foreign-function xpointermovedevent-x_root ((POINTER STRUCT)) INT "get_XPointerMovedEvent_x_root") (foreign-function set-xpointermovedevent-x_root! ((POINTER STRUCT) INT) VOID "set_XPointerMovedEvent_x_root") (foreign-function xpointermovedevent-y_root ((POINTER STRUCT)) INT "get_XPointerMovedEvent_y_root") (foreign-function set-xpointermovedevent-y_root! ((POINTER STRUCT) INT) VOID "set_XPointerMovedEvent_y_root") (foreign-function xpointermovedevent-state ((POINTER STRUCT)) UNSIGNED-INT "get_XPointerMovedEvent_state") (foreign-function set-xpointermovedevent-state! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XPointerMovedEvent_state") (foreign-function xpointermovedevent-is_hint ((POINTER STRUCT)) CHAR "get_XPointerMovedEvent_is_hint") (foreign-function set-xpointermovedevent-is_hint! ((POINTER STRUCT) CHAR) VOID "set_XPointerMovedEvent_is_hint") (foreign-function xpointermovedevent-same_screen ((POINTER STRUCT)) INT "get_XPointerMovedEvent_same_screen") (foreign-function set-xpointermovedevent-same_screen! ((POINTER STRUCT) INT) VOID "set_XPointerMovedEvent_same_screen") ;;; STRUCT:XMotionEvent (foreign-function make-xmotionevent () (POINTER STRUCT) "alloc_XMotionEvent") (foreign-function free-xmotionevent ((POINTER STRUCT)) VOID "free_XMotionEvent") (foreign-function xmotionevent-type ((POINTER STRUCT)) INT "get_XMotionEvent_type") (foreign-function set-xmotionevent-type! ((POINTER STRUCT) INT) VOID "set_XMotionEvent_type") (foreign-function xmotionevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XMotionEvent_serial") (foreign-function set-xmotionevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XMotionEvent_serial") (foreign-function xmotionevent-send_event ((POINTER STRUCT)) INT "get_XMotionEvent_send_event") (foreign-function set-xmotionevent-send_event! ((POINTER STRUCT) INT) VOID "set_XMotionEvent_send_event") (foreign-function xmotionevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XMotionEvent_display") (foreign-function set-xmotionevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XMotionEvent_display") (foreign-function xmotionevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XMotionEvent_window") (foreign-function set-xmotionevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XMotionEvent_window") (foreign-function xmotionevent-root ((POINTER STRUCT)) UNSIGNED-LONG "get_XMotionEvent_root") (foreign-function set-xmotionevent-root! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XMotionEvent_root") (foreign-function xmotionevent-subwindow ((POINTER STRUCT)) UNSIGNED-LONG "get_XMotionEvent_subwindow") (foreign-function set-xmotionevent-subwindow! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XMotionEvent_subwindow") (foreign-function xmotionevent-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XMotionEvent_time") (foreign-function set-xmotionevent-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XMotionEvent_time") (foreign-function xmotionevent-x ((POINTER STRUCT)) INT "get_XMotionEvent_x") (foreign-function set-xmotionevent-x! ((POINTER STRUCT) INT) VOID "set_XMotionEvent_x") (foreign-function xmotionevent-y ((POINTER STRUCT)) INT "get_XMotionEvent_y") (foreign-function set-xmotionevent-y! ((POINTER STRUCT) INT) VOID "set_XMotionEvent_y") (foreign-function xmotionevent-x_root ((POINTER STRUCT)) INT "get_XMotionEvent_x_root") (foreign-function set-xmotionevent-x_root! ((POINTER STRUCT) INT) VOID "set_XMotionEvent_x_root") (foreign-function xmotionevent-y_root ((POINTER STRUCT)) INT "get_XMotionEvent_y_root") (foreign-function set-xmotionevent-y_root! ((POINTER STRUCT) INT) VOID "set_XMotionEvent_y_root") (foreign-function xmotionevent-state ((POINTER STRUCT)) UNSIGNED-INT "get_XMotionEvent_state") (foreign-function set-xmotionevent-state! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XMotionEvent_state") (foreign-function xmotionevent-is_hint ((POINTER STRUCT)) CHAR "get_XMotionEvent_is_hint") (foreign-function set-xmotionevent-is_hint! ((POINTER STRUCT) CHAR) VOID "set_XMotionEvent_is_hint") (foreign-function xmotionevent-same_screen ((POINTER STRUCT)) INT "get_XMotionEvent_same_screen") (foreign-function set-xmotionevent-same_screen! ((POINTER STRUCT) INT) VOID "set_XMotionEvent_same_screen") ;;; STRUCT:XLeaveWindowEvent (foreign-function make-xleavewindowevent () (POINTER STRUCT) "alloc_XLeaveWindowEvent") (foreign-function free-xleavewindowevent ((POINTER STRUCT)) VOID "free_XLeaveWindowEvent") (foreign-function xleavewindowevent-type ((POINTER STRUCT)) INT "get_XLeaveWindowEvent_type") (foreign-function set-xleavewindowevent-type! ((POINTER STRUCT) INT) VOID "set_XLeaveWindowEvent_type") (foreign-function xleavewindowevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XLeaveWindowEvent_serial") (foreign-function set-xleavewindowevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XLeaveWindowEvent_serial") (foreign-function xleavewindowevent-send_event ((POINTER STRUCT)) INT "get_XLeaveWindowEvent_send_event") (foreign-function set-xleavewindowevent-send_event! ((POINTER STRUCT) INT) VOID "set_XLeaveWindowEvent_send_event") (foreign-function xleavewindowevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XLeaveWindowEvent_display") (foreign-function set-xleavewindowevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XLeaveWindowEvent_display") (foreign-function xleavewindowevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XLeaveWindowEvent_window") (foreign-function set-xleavewindowevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XLeaveWindowEvent_window") (foreign-function xleavewindowevent-root ((POINTER STRUCT)) UNSIGNED-LONG "get_XLeaveWindowEvent_root") (foreign-function set-xleavewindowevent-root! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XLeaveWindowEvent_root") (foreign-function xleavewindowevent-subwindow ((POINTER STRUCT)) UNSIGNED-LONG "get_XLeaveWindowEvent_subwindow") (foreign-function set-xleavewindowevent-subwindow! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XLeaveWindowEvent_subwindow") (foreign-function xleavewindowevent-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XLeaveWindowEvent_time") (foreign-function set-xleavewindowevent-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XLeaveWindowEvent_time") (foreign-function xleavewindowevent-x ((POINTER STRUCT)) INT "get_XLeaveWindowEvent_x") (foreign-function set-xleavewindowevent-x! ((POINTER STRUCT) INT) VOID "set_XLeaveWindowEvent_x") (foreign-function xleavewindowevent-y ((POINTER STRUCT)) INT "get_XLeaveWindowEvent_y") (foreign-function set-xleavewindowevent-y! ((POINTER STRUCT) INT) VOID "set_XLeaveWindowEvent_y") (foreign-function xleavewindowevent-x_root ((POINTER STRUCT)) INT "get_XLeaveWindowEvent_x_root") (foreign-function set-xleavewindowevent-x_root! ((POINTER STRUCT) INT) VOID "set_XLeaveWindowEvent_x_root") (foreign-function xleavewindowevent-y_root ((POINTER STRUCT)) INT "get_XLeaveWindowEvent_y_root") (foreign-function set-xleavewindowevent-y_root! ((POINTER STRUCT) INT) VOID "set_XLeaveWindowEvent_y_root") (foreign-function xleavewindowevent-mode ((POINTER STRUCT)) INT "get_XLeaveWindowEvent_mode") (foreign-function set-xleavewindowevent-mode! ((POINTER STRUCT) INT) VOID "set_XLeaveWindowEvent_mode") (foreign-function xleavewindowevent-detail ((POINTER STRUCT)) INT "get_XLeaveWindowEvent_detail") (foreign-function set-xleavewindowevent-detail! ((POINTER STRUCT) INT) VOID "set_XLeaveWindowEvent_detail") (foreign-function xleavewindowevent-same_screen ((POINTER STRUCT)) INT "get_XLeaveWindowEvent_same_screen") (foreign-function set-xleavewindowevent-same_screen! ((POINTER STRUCT) INT) VOID "set_XLeaveWindowEvent_same_screen") (foreign-function xleavewindowevent-focus ((POINTER STRUCT)) INT "get_XLeaveWindowEvent_focus") (foreign-function set-xleavewindowevent-focus! ((POINTER STRUCT) INT) VOID "set_XLeaveWindowEvent_focus") (foreign-function xleavewindowevent-state ((POINTER STRUCT)) UNSIGNED-INT "get_XLeaveWindowEvent_state") (foreign-function set-xleavewindowevent-state! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XLeaveWindowEvent_state") ;;; STRUCT:XEnterWindowEvent (foreign-function make-xenterwindowevent () (POINTER STRUCT) "alloc_XEnterWindowEvent") (foreign-function free-xenterwindowevent ((POINTER STRUCT)) VOID "free_XEnterWindowEvent") (foreign-function xenterwindowevent-type ((POINTER STRUCT)) INT "get_XEnterWindowEvent_type") (foreign-function set-xenterwindowevent-type! ((POINTER STRUCT) INT) VOID "set_XEnterWindowEvent_type") (foreign-function xenterwindowevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEnterWindowEvent_serial") (foreign-function set-xenterwindowevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEnterWindowEvent_serial") (foreign-function xenterwindowevent-send_event ((POINTER STRUCT)) INT "get_XEnterWindowEvent_send_event") (foreign-function set-xenterwindowevent-send_event! ((POINTER STRUCT) INT) VOID "set_XEnterWindowEvent_send_event") (foreign-function xenterwindowevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEnterWindowEvent_display") (foreign-function set-xenterwindowevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEnterWindowEvent_display") (foreign-function xenterwindowevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEnterWindowEvent_window") (foreign-function set-xenterwindowevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEnterWindowEvent_window") (foreign-function xenterwindowevent-root ((POINTER STRUCT)) UNSIGNED-LONG "get_XEnterWindowEvent_root") (foreign-function set-xenterwindowevent-root! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEnterWindowEvent_root") (foreign-function xenterwindowevent-subwindow ((POINTER STRUCT)) UNSIGNED-LONG "get_XEnterWindowEvent_subwindow") (foreign-function set-xenterwindowevent-subwindow! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEnterWindowEvent_subwindow") (foreign-function xenterwindowevent-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XEnterWindowEvent_time") (foreign-function set-xenterwindowevent-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEnterWindowEvent_time") (foreign-function xenterwindowevent-x ((POINTER STRUCT)) INT "get_XEnterWindowEvent_x") (foreign-function set-xenterwindowevent-x! ((POINTER STRUCT) INT) VOID "set_XEnterWindowEvent_x") (foreign-function xenterwindowevent-y ((POINTER STRUCT)) INT "get_XEnterWindowEvent_y") (foreign-function set-xenterwindowevent-y! ((POINTER STRUCT) INT) VOID "set_XEnterWindowEvent_y") (foreign-function xenterwindowevent-x_root ((POINTER STRUCT)) INT "get_XEnterWindowEvent_x_root") (foreign-function set-xenterwindowevent-x_root! ((POINTER STRUCT) INT) VOID "set_XEnterWindowEvent_x_root") (foreign-function xenterwindowevent-y_root ((POINTER STRUCT)) INT "get_XEnterWindowEvent_y_root") (foreign-function set-xenterwindowevent-y_root! ((POINTER STRUCT) INT) VOID "set_XEnterWindowEvent_y_root") (foreign-function xenterwindowevent-mode ((POINTER STRUCT)) INT "get_XEnterWindowEvent_mode") (foreign-function set-xenterwindowevent-mode! ((POINTER STRUCT) INT) VOID "set_XEnterWindowEvent_mode") (foreign-function xenterwindowevent-detail ((POINTER STRUCT)) INT "get_XEnterWindowEvent_detail") (foreign-function set-xenterwindowevent-detail! ((POINTER STRUCT) INT) VOID "set_XEnterWindowEvent_detail") (foreign-function xenterwindowevent-same_screen ((POINTER STRUCT)) INT "get_XEnterWindowEvent_same_screen") (foreign-function set-xenterwindowevent-same_screen! ((POINTER STRUCT) INT) VOID "set_XEnterWindowEvent_same_screen") (foreign-function xenterwindowevent-focus ((POINTER STRUCT)) INT "get_XEnterWindowEvent_focus") (foreign-function set-xenterwindowevent-focus! ((POINTER STRUCT) INT) VOID "set_XEnterWindowEvent_focus") (foreign-function xenterwindowevent-state ((POINTER STRUCT)) UNSIGNED-INT "get_XEnterWindowEvent_state") (foreign-function set-xenterwindowevent-state! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XEnterWindowEvent_state") ;;; STRUCT:XCrossingEvent (foreign-function make-xcrossingevent () (POINTER STRUCT) "alloc_XCrossingEvent") (foreign-function free-xcrossingevent ((POINTER STRUCT)) VOID "free_XCrossingEvent") (foreign-function xcrossingevent-type ((POINTER STRUCT)) INT "get_XCrossingEvent_type") (foreign-function set-xcrossingevent-type! ((POINTER STRUCT) INT) VOID "set_XCrossingEvent_type") (foreign-function xcrossingevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XCrossingEvent_serial") (foreign-function set-xcrossingevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XCrossingEvent_serial") (foreign-function xcrossingevent-send_event ((POINTER STRUCT)) INT "get_XCrossingEvent_send_event") (foreign-function set-xcrossingevent-send_event! ((POINTER STRUCT) INT) VOID "set_XCrossingEvent_send_event") (foreign-function xcrossingevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XCrossingEvent_display") (foreign-function set-xcrossingevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XCrossingEvent_display") (foreign-function xcrossingevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XCrossingEvent_window") (foreign-function set-xcrossingevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XCrossingEvent_window") (foreign-function xcrossingevent-root ((POINTER STRUCT)) UNSIGNED-LONG "get_XCrossingEvent_root") (foreign-function set-xcrossingevent-root! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XCrossingEvent_root") (foreign-function xcrossingevent-subwindow ((POINTER STRUCT)) UNSIGNED-LONG "get_XCrossingEvent_subwindow") (foreign-function set-xcrossingevent-subwindow! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XCrossingEvent_subwindow") (foreign-function xcrossingevent-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XCrossingEvent_time") (foreign-function set-xcrossingevent-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XCrossingEvent_time") (foreign-function xcrossingevent-x ((POINTER STRUCT)) INT "get_XCrossingEvent_x") (foreign-function set-xcrossingevent-x! ((POINTER STRUCT) INT) VOID "set_XCrossingEvent_x") (foreign-function xcrossingevent-y ((POINTER STRUCT)) INT "get_XCrossingEvent_y") (foreign-function set-xcrossingevent-y! ((POINTER STRUCT) INT) VOID "set_XCrossingEvent_y") (foreign-function xcrossingevent-x_root ((POINTER STRUCT)) INT "get_XCrossingEvent_x_root") (foreign-function set-xcrossingevent-x_root! ((POINTER STRUCT) INT) VOID "set_XCrossingEvent_x_root") (foreign-function xcrossingevent-y_root ((POINTER STRUCT)) INT "get_XCrossingEvent_y_root") (foreign-function set-xcrossingevent-y_root! ((POINTER STRUCT) INT) VOID "set_XCrossingEvent_y_root") (foreign-function xcrossingevent-mode ((POINTER STRUCT)) INT "get_XCrossingEvent_mode") (foreign-function set-xcrossingevent-mode! ((POINTER STRUCT) INT) VOID "set_XCrossingEvent_mode") (foreign-function xcrossingevent-detail ((POINTER STRUCT)) INT "get_XCrossingEvent_detail") (foreign-function set-xcrossingevent-detail! ((POINTER STRUCT) INT) VOID "set_XCrossingEvent_detail") (foreign-function xcrossingevent-same_screen ((POINTER STRUCT)) INT "get_XCrossingEvent_same_screen") (foreign-function set-xcrossingevent-same_screen! ((POINTER STRUCT) INT) VOID "set_XCrossingEvent_same_screen") (foreign-function xcrossingevent-focus ((POINTER STRUCT)) INT "get_XCrossingEvent_focus") (foreign-function set-xcrossingevent-focus! ((POINTER STRUCT) INT) VOID "set_XCrossingEvent_focus") (foreign-function xcrossingevent-state ((POINTER STRUCT)) UNSIGNED-INT "get_XCrossingEvent_state") (foreign-function set-xcrossingevent-state! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XCrossingEvent_state") ;;; STRUCT:XFocusOutEvent (foreign-function make-xfocusoutevent () (POINTER STRUCT) "alloc_XFocusOutEvent") (foreign-function free-xfocusoutevent ((POINTER STRUCT)) VOID "free_XFocusOutEvent") (foreign-function xfocusoutevent-type ((POINTER STRUCT)) INT "get_XFocusOutEvent_type") (foreign-function set-xfocusoutevent-type! ((POINTER STRUCT) INT) VOID "set_XFocusOutEvent_type") (foreign-function xfocusoutevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XFocusOutEvent_serial") (foreign-function set-xfocusoutevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XFocusOutEvent_serial") (foreign-function xfocusoutevent-send_event ((POINTER STRUCT)) INT "get_XFocusOutEvent_send_event") (foreign-function set-xfocusoutevent-send_event! ((POINTER STRUCT) INT) VOID "set_XFocusOutEvent_send_event") (foreign-function xfocusoutevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XFocusOutEvent_display") (foreign-function set-xfocusoutevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XFocusOutEvent_display") (foreign-function xfocusoutevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XFocusOutEvent_window") (foreign-function set-xfocusoutevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XFocusOutEvent_window") (foreign-function xfocusoutevent-mode ((POINTER STRUCT)) INT "get_XFocusOutEvent_mode") (foreign-function set-xfocusoutevent-mode! ((POINTER STRUCT) INT) VOID "set_XFocusOutEvent_mode") (foreign-function xfocusoutevent-detail ((POINTER STRUCT)) INT "get_XFocusOutEvent_detail") (foreign-function set-xfocusoutevent-detail! ((POINTER STRUCT) INT) VOID "set_XFocusOutEvent_detail") ;;; STRUCT:XFocusInEvent (foreign-function make-xfocusinevent () (POINTER STRUCT) "alloc_XFocusInEvent") (foreign-function free-xfocusinevent ((POINTER STRUCT)) VOID "free_XFocusInEvent") (foreign-function xfocusinevent-type ((POINTER STRUCT)) INT "get_XFocusInEvent_type") (foreign-function set-xfocusinevent-type! ((POINTER STRUCT) INT) VOID "set_XFocusInEvent_type") (foreign-function xfocusinevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XFocusInEvent_serial") (foreign-function set-xfocusinevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XFocusInEvent_serial") (foreign-function xfocusinevent-send_event ((POINTER STRUCT)) INT "get_XFocusInEvent_send_event") (foreign-function set-xfocusinevent-send_event! ((POINTER STRUCT) INT) VOID "set_XFocusInEvent_send_event") (foreign-function xfocusinevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XFocusInEvent_display") (foreign-function set-xfocusinevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XFocusInEvent_display") (foreign-function xfocusinevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XFocusInEvent_window") (foreign-function set-xfocusinevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XFocusInEvent_window") (foreign-function xfocusinevent-mode ((POINTER STRUCT)) INT "get_XFocusInEvent_mode") (foreign-function set-xfocusinevent-mode! ((POINTER STRUCT) INT) VOID "set_XFocusInEvent_mode") (foreign-function xfocusinevent-detail ((POINTER STRUCT)) INT "get_XFocusInEvent_detail") (foreign-function set-xfocusinevent-detail! ((POINTER STRUCT) INT) VOID "set_XFocusInEvent_detail") ;;; STRUCT:XFocusChangeEvent (foreign-function make-xfocuschangeevent () (POINTER STRUCT) "alloc_XFocusChangeEvent") (foreign-function free-xfocuschangeevent ((POINTER STRUCT)) VOID "free_XFocusChangeEvent") (foreign-function xfocuschangeevent-type ((POINTER STRUCT)) INT "get_XFocusChangeEvent_type") (foreign-function set-xfocuschangeevent-type! ((POINTER STRUCT) INT) VOID "set_XFocusChangeEvent_type") (foreign-function xfocuschangeevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XFocusChangeEvent_serial") (foreign-function set-xfocuschangeevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XFocusChangeEvent_serial") (foreign-function xfocuschangeevent-send_event ((POINTER STRUCT)) INT "get_XFocusChangeEvent_send_event") (foreign-function set-xfocuschangeevent-send_event! ((POINTER STRUCT) INT) VOID "set_XFocusChangeEvent_send_event") (foreign-function xfocuschangeevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XFocusChangeEvent_display") (foreign-function set-xfocuschangeevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XFocusChangeEvent_display") (foreign-function xfocuschangeevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XFocusChangeEvent_window") (foreign-function set-xfocuschangeevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XFocusChangeEvent_window") (foreign-function xfocuschangeevent-mode ((POINTER STRUCT)) INT "get_XFocusChangeEvent_mode") (foreign-function set-xfocuschangeevent-mode! ((POINTER STRUCT) INT) VOID "set_XFocusChangeEvent_mode") (foreign-function xfocuschangeevent-detail ((POINTER STRUCT)) INT "get_XFocusChangeEvent_detail") (foreign-function set-xfocuschangeevent-detail! ((POINTER STRUCT) INT) VOID "set_XFocusChangeEvent_detail") ;;; STRUCT:XKeymapEvent (foreign-function make-xkeymapevent () (POINTER STRUCT) "alloc_XKeymapEvent") (foreign-function free-xkeymapevent ((POINTER STRUCT)) VOID "free_XKeymapEvent") (foreign-function xkeymapevent-type ((POINTER STRUCT)) INT "get_XKeymapEvent_type") (foreign-function set-xkeymapevent-type! ((POINTER STRUCT) INT) VOID "set_XKeymapEvent_type") (foreign-function xkeymapevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XKeymapEvent_serial") (foreign-function set-xkeymapevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XKeymapEvent_serial") (foreign-function xkeymapevent-send_event ((POINTER STRUCT)) INT "get_XKeymapEvent_send_event") (foreign-function set-xkeymapevent-send_event! ((POINTER STRUCT) INT) VOID "set_XKeymapEvent_send_event") (foreign-function xkeymapevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XKeymapEvent_display") (foreign-function set-xkeymapevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XKeymapEvent_display") (foreign-function xkeymapevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XKeymapEvent_window") (foreign-function set-xkeymapevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XKeymapEvent_window") (foreign-function xkeymapevent-key_vector ((POINTER STRUCT)) POINTER "get_XKeymapEvent_key_vector") ;;; STRUCT:XExposeEvent (foreign-function make-xexposeevent () (POINTER STRUCT) "alloc_XExposeEvent") (foreign-function free-xexposeevent ((POINTER STRUCT)) VOID "free_XExposeEvent") (foreign-function xexposeevent-type ((POINTER STRUCT)) INT "get_XExposeEvent_type") (foreign-function set-xexposeevent-type! ((POINTER STRUCT) INT) VOID "set_XExposeEvent_type") (foreign-function xexposeevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XExposeEvent_serial") (foreign-function set-xexposeevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XExposeEvent_serial") (foreign-function xexposeevent-send_event ((POINTER STRUCT)) INT "get_XExposeEvent_send_event") (foreign-function set-xexposeevent-send_event! ((POINTER STRUCT) INT) VOID "set_XExposeEvent_send_event") (foreign-function xexposeevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XExposeEvent_display") (foreign-function set-xexposeevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XExposeEvent_display") (foreign-function xexposeevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XExposeEvent_window") (foreign-function set-xexposeevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XExposeEvent_window") (foreign-function xexposeevent-x ((POINTER STRUCT)) INT "get_XExposeEvent_x") (foreign-function set-xexposeevent-x! ((POINTER STRUCT) INT) VOID "set_XExposeEvent_x") (foreign-function xexposeevent-y ((POINTER STRUCT)) INT "get_XExposeEvent_y") (foreign-function set-xexposeevent-y! ((POINTER STRUCT) INT) VOID "set_XExposeEvent_y") (foreign-function xexposeevent-width ((POINTER STRUCT)) INT "get_XExposeEvent_width") (foreign-function set-xexposeevent-width! ((POINTER STRUCT) INT) VOID "set_XExposeEvent_width") (foreign-function xexposeevent-height ((POINTER STRUCT)) INT "get_XExposeEvent_height") (foreign-function set-xexposeevent-height! ((POINTER STRUCT) INT) VOID "set_XExposeEvent_height") (foreign-function xexposeevent-count ((POINTER STRUCT)) INT "get_XExposeEvent_count") (foreign-function set-xexposeevent-count! ((POINTER STRUCT) INT) VOID "set_XExposeEvent_count") ;;; STRUCT:XGraphicsExposeEvent (foreign-function make-xgraphicsexposeevent () (POINTER STRUCT) "alloc_XGraphicsExposeEvent") (foreign-function free-xgraphicsexposeevent ((POINTER STRUCT)) VOID "free_XGraphicsExposeEvent") (foreign-function xgraphicsexposeevent-type ((POINTER STRUCT)) INT "get_XGraphicsExposeEvent_type") (foreign-function set-xgraphicsexposeevent-type! ((POINTER STRUCT) INT) VOID "set_XGraphicsExposeEvent_type") (foreign-function xgraphicsexposeevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XGraphicsExposeEvent_serial") (foreign-function set-xgraphicsexposeevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XGraphicsExposeEvent_serial") (foreign-function xgraphicsexposeevent-send_event ((POINTER STRUCT)) INT "get_XGraphicsExposeEvent_send_event") (foreign-function set-xgraphicsexposeevent-send_event! ((POINTER STRUCT) INT) VOID "set_XGraphicsExposeEvent_send_event") (foreign-function xgraphicsexposeevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XGraphicsExposeEvent_display") (foreign-function set-xgraphicsexposeevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XGraphicsExposeEvent_display") (foreign-function xgraphicsexposeevent-drawable ((POINTER STRUCT)) UNSIGNED-LONG "get_XGraphicsExposeEvent_drawable") (foreign-function set-xgraphicsexposeevent-drawable! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XGraphicsExposeEvent_drawable") (foreign-function xgraphicsexposeevent-x ((POINTER STRUCT)) INT "get_XGraphicsExposeEvent_x") (foreign-function set-xgraphicsexposeevent-x! ((POINTER STRUCT) INT) VOID "set_XGraphicsExposeEvent_x") (foreign-function xgraphicsexposeevent-y ((POINTER STRUCT)) INT "get_XGraphicsExposeEvent_y") (foreign-function set-xgraphicsexposeevent-y! ((POINTER STRUCT) INT) VOID "set_XGraphicsExposeEvent_y") (foreign-function xgraphicsexposeevent-width ((POINTER STRUCT)) INT "get_XGraphicsExposeEvent_width") (foreign-function set-xgraphicsexposeevent-width! ((POINTER STRUCT) INT) VOID "set_XGraphicsExposeEvent_width") (foreign-function xgraphicsexposeevent-height ((POINTER STRUCT)) INT "get_XGraphicsExposeEvent_height") (foreign-function set-xgraphicsexposeevent-height! ((POINTER STRUCT) INT) VOID "set_XGraphicsExposeEvent_height") (foreign-function xgraphicsexposeevent-count ((POINTER STRUCT)) INT "get_XGraphicsExposeEvent_count") (foreign-function set-xgraphicsexposeevent-count! ((POINTER STRUCT) INT) VOID "set_XGraphicsExposeEvent_count") (foreign-function xgraphicsexposeevent-major_code ((POINTER STRUCT)) INT "get_XGraphicsExposeEvent_major_code") (foreign-function set-xgraphicsexposeevent-major_code! ((POINTER STRUCT) INT) VOID "set_XGraphicsExposeEvent_major_code") (foreign-function xgraphicsexposeevent-minor_code ((POINTER STRUCT)) INT "get_XGraphicsExposeEvent_minor_code") (foreign-function set-xgraphicsexposeevent-minor_code! ((POINTER STRUCT) INT) VOID "set_XGraphicsExposeEvent_minor_code") ;;; STRUCT:XNoExposeEvent (foreign-function make-xnoexposeevent () (POINTER STRUCT) "alloc_XNoExposeEvent") (foreign-function free-xnoexposeevent ((POINTER STRUCT)) VOID "free_XNoExposeEvent") (foreign-function xnoexposeevent-type ((POINTER STRUCT)) INT "get_XNoExposeEvent_type") (foreign-function set-xnoexposeevent-type! ((POINTER STRUCT) INT) VOID "set_XNoExposeEvent_type") (foreign-function xnoexposeevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XNoExposeEvent_serial") (foreign-function set-xnoexposeevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XNoExposeEvent_serial") (foreign-function xnoexposeevent-send_event ((POINTER STRUCT)) INT "get_XNoExposeEvent_send_event") (foreign-function set-xnoexposeevent-send_event! ((POINTER STRUCT) INT) VOID "set_XNoExposeEvent_send_event") (foreign-function xnoexposeevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XNoExposeEvent_display") (foreign-function set-xnoexposeevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XNoExposeEvent_display") (foreign-function xnoexposeevent-drawable ((POINTER STRUCT)) UNSIGNED-LONG "get_XNoExposeEvent_drawable") (foreign-function set-xnoexposeevent-drawable! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XNoExposeEvent_drawable") (foreign-function xnoexposeevent-major_code ((POINTER STRUCT)) INT "get_XNoExposeEvent_major_code") (foreign-function set-xnoexposeevent-major_code! ((POINTER STRUCT) INT) VOID "set_XNoExposeEvent_major_code") (foreign-function xnoexposeevent-minor_code ((POINTER STRUCT)) INT "get_XNoExposeEvent_minor_code") (foreign-function set-xnoexposeevent-minor_code! ((POINTER STRUCT) INT) VOID "set_XNoExposeEvent_minor_code") ;;; STRUCT:XVisibilityEvent (foreign-function make-xvisibilityevent () (POINTER STRUCT) "alloc_XVisibilityEvent") (foreign-function free-xvisibilityevent ((POINTER STRUCT)) VOID "free_XVisibilityEvent") (foreign-function xvisibilityevent-type ((POINTER STRUCT)) INT "get_XVisibilityEvent_type") (foreign-function set-xvisibilityevent-type! ((POINTER STRUCT) INT) VOID "set_XVisibilityEvent_type") (foreign-function xvisibilityevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XVisibilityEvent_serial") (foreign-function set-xvisibilityevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XVisibilityEvent_serial") (foreign-function xvisibilityevent-send_event ((POINTER STRUCT)) INT "get_XVisibilityEvent_send_event") (foreign-function set-xvisibilityevent-send_event! ((POINTER STRUCT) INT) VOID "set_XVisibilityEvent_send_event") (foreign-function xvisibilityevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XVisibilityEvent_display") (foreign-function set-xvisibilityevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XVisibilityEvent_display") (foreign-function xvisibilityevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XVisibilityEvent_window") (foreign-function set-xvisibilityevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XVisibilityEvent_window") (foreign-function xvisibilityevent-state ((POINTER STRUCT)) INT "get_XVisibilityEvent_state") (foreign-function set-xvisibilityevent-state! ((POINTER STRUCT) INT) VOID "set_XVisibilityEvent_state") ;;; STRUCT:XCreateWindowEvent (foreign-function make-xcreatewindowevent () (POINTER STRUCT) "alloc_XCreateWindowEvent") (foreign-function free-xcreatewindowevent ((POINTER STRUCT)) VOID "free_XCreateWindowEvent") (foreign-function xcreatewindowevent-type ((POINTER STRUCT)) INT "get_XCreateWindowEvent_type") (foreign-function set-xcreatewindowevent-type! ((POINTER STRUCT) INT) VOID "set_XCreateWindowEvent_type") (foreign-function xcreatewindowevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XCreateWindowEvent_serial") (foreign-function set-xcreatewindowevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XCreateWindowEvent_serial") (foreign-function xcreatewindowevent-send_event ((POINTER STRUCT)) INT "get_XCreateWindowEvent_send_event") (foreign-function set-xcreatewindowevent-send_event! ((POINTER STRUCT) INT) VOID "set_XCreateWindowEvent_send_event") (foreign-function xcreatewindowevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XCreateWindowEvent_display") (foreign-function set-xcreatewindowevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XCreateWindowEvent_display") (foreign-function xcreatewindowevent-parent ((POINTER STRUCT)) UNSIGNED-LONG "get_XCreateWindowEvent_parent") (foreign-function set-xcreatewindowevent-parent! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XCreateWindowEvent_parent") (foreign-function xcreatewindowevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XCreateWindowEvent_window") (foreign-function set-xcreatewindowevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XCreateWindowEvent_window") (foreign-function xcreatewindowevent-x ((POINTER STRUCT)) INT "get_XCreateWindowEvent_x") (foreign-function set-xcreatewindowevent-x! ((POINTER STRUCT) INT) VOID "set_XCreateWindowEvent_x") (foreign-function xcreatewindowevent-y ((POINTER STRUCT)) INT "get_XCreateWindowEvent_y") (foreign-function set-xcreatewindowevent-y! ((POINTER STRUCT) INT) VOID "set_XCreateWindowEvent_y") (foreign-function xcreatewindowevent-width ((POINTER STRUCT)) INT "get_XCreateWindowEvent_width") (foreign-function set-xcreatewindowevent-width! ((POINTER STRUCT) INT) VOID "set_XCreateWindowEvent_width") (foreign-function xcreatewindowevent-height ((POINTER STRUCT)) INT "get_XCreateWindowEvent_height") (foreign-function set-xcreatewindowevent-height! ((POINTER STRUCT) INT) VOID "set_XCreateWindowEvent_height") (foreign-function xcreatewindowevent-border_width ((POINTER STRUCT)) INT "get_XCreateWindowEvent_border_width") (foreign-function set-xcreatewindowevent-border_width! ((POINTER STRUCT) INT) VOID "set_XCreateWindowEvent_border_width") (foreign-function xcreatewindowevent-override_redirect ((POINTER STRUCT)) INT "get_XCreateWindowEvent_override_redirect") (foreign-function set-xcreatewindowevent-override_redirect! ((POINTER STRUCT) INT) VOID "set_XCreateWindowEvent_override_redirect") ;;; STRUCT:XDestroyWindowEvent (foreign-function make-xdestroywindowevent () (POINTER STRUCT) "alloc_XDestroyWindowEvent") (foreign-function free-xdestroywindowevent ((POINTER STRUCT)) VOID "free_XDestroyWindowEvent") (foreign-function xdestroywindowevent-type ((POINTER STRUCT)) INT "get_XDestroyWindowEvent_type") (foreign-function set-xdestroywindowevent-type! ((POINTER STRUCT) INT) VOID "set_XDestroyWindowEvent_type") (foreign-function xdestroywindowevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XDestroyWindowEvent_serial") (foreign-function set-xdestroywindowevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XDestroyWindowEvent_serial") (foreign-function xdestroywindowevent-send_event ((POINTER STRUCT)) INT "get_XDestroyWindowEvent_send_event") (foreign-function set-xdestroywindowevent-send_event! ((POINTER STRUCT) INT) VOID "set_XDestroyWindowEvent_send_event") (foreign-function xdestroywindowevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XDestroyWindowEvent_display") (foreign-function set-xdestroywindowevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XDestroyWindowEvent_display") (foreign-function xdestroywindowevent-event ((POINTER STRUCT)) UNSIGNED-LONG "get_XDestroyWindowEvent_event") (foreign-function set-xdestroywindowevent-event! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XDestroyWindowEvent_event") (foreign-function xdestroywindowevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XDestroyWindowEvent_window") (foreign-function set-xdestroywindowevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XDestroyWindowEvent_window") ;;; STRUCT:XUnmapEvent (foreign-function make-xunmapevent () (POINTER STRUCT) "alloc_XUnmapEvent") (foreign-function free-xunmapevent ((POINTER STRUCT)) VOID "free_XUnmapEvent") (foreign-function xunmapevent-type ((POINTER STRUCT)) INT "get_XUnmapEvent_type") (foreign-function set-xunmapevent-type! ((POINTER STRUCT) INT) VOID "set_XUnmapEvent_type") (foreign-function xunmapevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XUnmapEvent_serial") (foreign-function set-xunmapevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XUnmapEvent_serial") (foreign-function xunmapevent-send_event ((POINTER STRUCT)) INT "get_XUnmapEvent_send_event") (foreign-function set-xunmapevent-send_event! ((POINTER STRUCT) INT) VOID "set_XUnmapEvent_send_event") (foreign-function xunmapevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XUnmapEvent_display") (foreign-function set-xunmapevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XUnmapEvent_display") (foreign-function xunmapevent-event ((POINTER STRUCT)) UNSIGNED-LONG "get_XUnmapEvent_event") (foreign-function set-xunmapevent-event! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XUnmapEvent_event") (foreign-function xunmapevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XUnmapEvent_window") (foreign-function set-xunmapevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XUnmapEvent_window") (foreign-function xunmapevent-from_configure ((POINTER STRUCT)) INT "get_XUnmapEvent_from_configure") (foreign-function set-xunmapevent-from_configure! ((POINTER STRUCT) INT) VOID "set_XUnmapEvent_from_configure") ;;; STRUCT:XMapEvent (foreign-function make-xmapevent () (POINTER STRUCT) "alloc_XMapEvent") (foreign-function free-xmapevent ((POINTER STRUCT)) VOID "free_XMapEvent") (foreign-function xmapevent-type ((POINTER STRUCT)) INT "get_XMapEvent_type") (foreign-function set-xmapevent-type! ((POINTER STRUCT) INT) VOID "set_XMapEvent_type") (foreign-function xmapevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XMapEvent_serial") (foreign-function set-xmapevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XMapEvent_serial") (foreign-function xmapevent-send_event ((POINTER STRUCT)) INT "get_XMapEvent_send_event") (foreign-function set-xmapevent-send_event! ((POINTER STRUCT) INT) VOID "set_XMapEvent_send_event") (foreign-function xmapevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XMapEvent_display") (foreign-function set-xmapevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XMapEvent_display") (foreign-function xmapevent-event ((POINTER STRUCT)) UNSIGNED-LONG "get_XMapEvent_event") (foreign-function set-xmapevent-event! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XMapEvent_event") (foreign-function xmapevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XMapEvent_window") (foreign-function set-xmapevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XMapEvent_window") (foreign-function xmapevent-override_redirect ((POINTER STRUCT)) INT "get_XMapEvent_override_redirect") (foreign-function set-xmapevent-override_redirect! ((POINTER STRUCT) INT) VOID "set_XMapEvent_override_redirect") ;;; STRUCT:XMapRequestEvent (foreign-function make-xmaprequestevent () (POINTER STRUCT) "alloc_XMapRequestEvent") (foreign-function free-xmaprequestevent ((POINTER STRUCT)) VOID "free_XMapRequestEvent") (foreign-function xmaprequestevent-type ((POINTER STRUCT)) INT "get_XMapRequestEvent_type") (foreign-function set-xmaprequestevent-type! ((POINTER STRUCT) INT) VOID "set_XMapRequestEvent_type") (foreign-function xmaprequestevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XMapRequestEvent_serial") (foreign-function set-xmaprequestevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XMapRequestEvent_serial") (foreign-function xmaprequestevent-send_event ((POINTER STRUCT)) INT "get_XMapRequestEvent_send_event") (foreign-function set-xmaprequestevent-send_event! ((POINTER STRUCT) INT) VOID "set_XMapRequestEvent_send_event") (foreign-function xmaprequestevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XMapRequestEvent_display") (foreign-function set-xmaprequestevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XMapRequestEvent_display") (foreign-function xmaprequestevent-parent ((POINTER STRUCT)) UNSIGNED-LONG "get_XMapRequestEvent_parent") (foreign-function set-xmaprequestevent-parent! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XMapRequestEvent_parent") (foreign-function xmaprequestevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XMapRequestEvent_window") (foreign-function set-xmaprequestevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XMapRequestEvent_window") ;;; STRUCT:XReparentEvent (foreign-function make-xreparentevent () (POINTER STRUCT) "alloc_XReparentEvent") (foreign-function free-xreparentevent ((POINTER STRUCT)) VOID "free_XReparentEvent") (foreign-function xreparentevent-type ((POINTER STRUCT)) INT "get_XReparentEvent_type") (foreign-function set-xreparentevent-type! ((POINTER STRUCT) INT) VOID "set_XReparentEvent_type") (foreign-function xreparentevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XReparentEvent_serial") (foreign-function set-xreparentevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XReparentEvent_serial") (foreign-function xreparentevent-send_event ((POINTER STRUCT)) INT "get_XReparentEvent_send_event") (foreign-function set-xreparentevent-send_event! ((POINTER STRUCT) INT) VOID "set_XReparentEvent_send_event") (foreign-function xreparentevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XReparentEvent_display") (foreign-function set-xreparentevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XReparentEvent_display") (foreign-function xreparentevent-event ((POINTER STRUCT)) UNSIGNED-LONG "get_XReparentEvent_event") (foreign-function set-xreparentevent-event! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XReparentEvent_event") (foreign-function xreparentevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XReparentEvent_window") (foreign-function set-xreparentevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XReparentEvent_window") (foreign-function xreparentevent-parent ((POINTER STRUCT)) UNSIGNED-LONG "get_XReparentEvent_parent") (foreign-function set-xreparentevent-parent! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XReparentEvent_parent") (foreign-function xreparentevent-x ((POINTER STRUCT)) INT "get_XReparentEvent_x") (foreign-function set-xreparentevent-x! ((POINTER STRUCT) INT) VOID "set_XReparentEvent_x") (foreign-function xreparentevent-y ((POINTER STRUCT)) INT "get_XReparentEvent_y") (foreign-function set-xreparentevent-y! ((POINTER STRUCT) INT) VOID "set_XReparentEvent_y") (foreign-function xreparentevent-override_redirect ((POINTER STRUCT)) INT "get_XReparentEvent_override_redirect") (foreign-function set-xreparentevent-override_redirect! ((POINTER STRUCT) INT) VOID "set_XReparentEvent_override_redirect") ;;; STRUCT:XConfigureEvent (foreign-function make-xconfigureevent () (POINTER STRUCT) "alloc_XConfigureEvent") (foreign-function free-xconfigureevent ((POINTER STRUCT)) VOID "free_XConfigureEvent") (foreign-function xconfigureevent-type ((POINTER STRUCT)) INT "get_XConfigureEvent_type") (foreign-function set-xconfigureevent-type! ((POINTER STRUCT) INT) VOID "set_XConfigureEvent_type") (foreign-function xconfigureevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XConfigureEvent_serial") (foreign-function set-xconfigureevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XConfigureEvent_serial") (foreign-function xconfigureevent-send_event ((POINTER STRUCT)) INT "get_XConfigureEvent_send_event") (foreign-function set-xconfigureevent-send_event! ((POINTER STRUCT) INT) VOID "set_XConfigureEvent_send_event") (foreign-function xconfigureevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XConfigureEvent_display") (foreign-function set-xconfigureevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XConfigureEvent_display") (foreign-function xconfigureevent-event ((POINTER STRUCT)) UNSIGNED-LONG "get_XConfigureEvent_event") (foreign-function set-xconfigureevent-event! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XConfigureEvent_event") (foreign-function xconfigureevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XConfigureEvent_window") (foreign-function set-xconfigureevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XConfigureEvent_window") (foreign-function xconfigureevent-x ((POINTER STRUCT)) INT "get_XConfigureEvent_x") (foreign-function set-xconfigureevent-x! ((POINTER STRUCT) INT) VOID "set_XConfigureEvent_x") (foreign-function xconfigureevent-y ((POINTER STRUCT)) INT "get_XConfigureEvent_y") (foreign-function set-xconfigureevent-y! ((POINTER STRUCT) INT) VOID "set_XConfigureEvent_y") (foreign-function xconfigureevent-width ((POINTER STRUCT)) INT "get_XConfigureEvent_width") (foreign-function set-xconfigureevent-width! ((POINTER STRUCT) INT) VOID "set_XConfigureEvent_width") (foreign-function xconfigureevent-height ((POINTER STRUCT)) INT "get_XConfigureEvent_height") (foreign-function set-xconfigureevent-height! ((POINTER STRUCT) INT) VOID "set_XConfigureEvent_height") (foreign-function xconfigureevent-border_width ((POINTER STRUCT)) INT "get_XConfigureEvent_border_width") (foreign-function set-xconfigureevent-border_width! ((POINTER STRUCT) INT) VOID "set_XConfigureEvent_border_width") (foreign-function xconfigureevent-above ((POINTER STRUCT)) UNSIGNED-LONG "get_XConfigureEvent_above") (foreign-function set-xconfigureevent-above! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XConfigureEvent_above") (foreign-function xconfigureevent-override_redirect ((POINTER STRUCT)) INT "get_XConfigureEvent_override_redirect") (foreign-function set-xconfigureevent-override_redirect! ((POINTER STRUCT) INT) VOID "set_XConfigureEvent_override_redirect") ;;; STRUCT:XGravityEvent (foreign-function make-xgravityevent () (POINTER STRUCT) "alloc_XGravityEvent") (foreign-function free-xgravityevent ((POINTER STRUCT)) VOID "free_XGravityEvent") (foreign-function xgravityevent-type ((POINTER STRUCT)) INT "get_XGravityEvent_type") (foreign-function set-xgravityevent-type! ((POINTER STRUCT) INT) VOID "set_XGravityEvent_type") (foreign-function xgravityevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XGravityEvent_serial") (foreign-function set-xgravityevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XGravityEvent_serial") (foreign-function xgravityevent-send_event ((POINTER STRUCT)) INT "get_XGravityEvent_send_event") (foreign-function set-xgravityevent-send_event! ((POINTER STRUCT) INT) VOID "set_XGravityEvent_send_event") (foreign-function xgravityevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XGravityEvent_display") (foreign-function set-xgravityevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XGravityEvent_display") (foreign-function xgravityevent-event ((POINTER STRUCT)) UNSIGNED-LONG "get_XGravityEvent_event") (foreign-function set-xgravityevent-event! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XGravityEvent_event") (foreign-function xgravityevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XGravityEvent_window") (foreign-function set-xgravityevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XGravityEvent_window") (foreign-function xgravityevent-x ((POINTER STRUCT)) INT "get_XGravityEvent_x") (foreign-function set-xgravityevent-x! ((POINTER STRUCT) INT) VOID "set_XGravityEvent_x") (foreign-function xgravityevent-y ((POINTER STRUCT)) INT "get_XGravityEvent_y") (foreign-function set-xgravityevent-y! ((POINTER STRUCT) INT) VOID "set_XGravityEvent_y") ;;; STRUCT:XResizeRequestEvent (foreign-function make-xresizerequestevent () (POINTER STRUCT) "alloc_XResizeRequestEvent") (foreign-function free-xresizerequestevent ((POINTER STRUCT)) VOID "free_XResizeRequestEvent") (foreign-function xresizerequestevent-type ((POINTER STRUCT)) INT "get_XResizeRequestEvent_type") (foreign-function set-xresizerequestevent-type! ((POINTER STRUCT) INT) VOID "set_XResizeRequestEvent_type") (foreign-function xresizerequestevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XResizeRequestEvent_serial") (foreign-function set-xresizerequestevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XResizeRequestEvent_serial") (foreign-function xresizerequestevent-send_event ((POINTER STRUCT)) INT "get_XResizeRequestEvent_send_event") (foreign-function set-xresizerequestevent-send_event! ((POINTER STRUCT) INT) VOID "set_XResizeRequestEvent_send_event") (foreign-function xresizerequestevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XResizeRequestEvent_display") (foreign-function set-xresizerequestevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XResizeRequestEvent_display") (foreign-function xresizerequestevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XResizeRequestEvent_window") (foreign-function set-xresizerequestevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XResizeRequestEvent_window") (foreign-function xresizerequestevent-width ((POINTER STRUCT)) INT "get_XResizeRequestEvent_width") (foreign-function set-xresizerequestevent-width! ((POINTER STRUCT) INT) VOID "set_XResizeRequestEvent_width") (foreign-function xresizerequestevent-height ((POINTER STRUCT)) INT "get_XResizeRequestEvent_height") (foreign-function set-xresizerequestevent-height! ((POINTER STRUCT) INT) VOID "set_XResizeRequestEvent_height") ;;; STRUCT:XConfigureRequestEvent (foreign-function make-xconfigurerequestevent () (POINTER STRUCT) "alloc_XConfigureRequestEvent") (foreign-function free-xconfigurerequestevent ((POINTER STRUCT)) VOID "free_XConfigureRequestEvent") (foreign-function xconfigurerequestevent-type ((POINTER STRUCT)) INT "get_XConfigureRequestEvent_type") (foreign-function set-xconfigurerequestevent-type! ((POINTER STRUCT) INT) VOID "set_XConfigureRequestEvent_type") (foreign-function xconfigurerequestevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XConfigureRequestEvent_serial") (foreign-function set-xconfigurerequestevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XConfigureRequestEvent_serial") (foreign-function xconfigurerequestevent-send_event ((POINTER STRUCT)) INT "get_XConfigureRequestEvent_send_event") (foreign-function set-xconfigurerequestevent-send_event! ((POINTER STRUCT) INT) VOID "set_XConfigureRequestEvent_send_event") (foreign-function xconfigurerequestevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XConfigureRequestEvent_display") (foreign-function set-xconfigurerequestevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XConfigureRequestEvent_display") (foreign-function xconfigurerequestevent-parent ((POINTER STRUCT)) UNSIGNED-LONG "get_XConfigureRequestEvent_parent") (foreign-function set-xconfigurerequestevent-parent! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XConfigureRequestEvent_parent") (foreign-function xconfigurerequestevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XConfigureRequestEvent_window") (foreign-function set-xconfigurerequestevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XConfigureRequestEvent_window") (foreign-function xconfigurerequestevent-x ((POINTER STRUCT)) INT "get_XConfigureRequestEvent_x") (foreign-function set-xconfigurerequestevent-x! ((POINTER STRUCT) INT) VOID "set_XConfigureRequestEvent_x") (foreign-function xconfigurerequestevent-y ((POINTER STRUCT)) INT "get_XConfigureRequestEvent_y") (foreign-function set-xconfigurerequestevent-y! ((POINTER STRUCT) INT) VOID "set_XConfigureRequestEvent_y") (foreign-function xconfigurerequestevent-width ((POINTER STRUCT)) INT "get_XConfigureRequestEvent_width") (foreign-function set-xconfigurerequestevent-width! ((POINTER STRUCT) INT) VOID "set_XConfigureRequestEvent_width") (foreign-function xconfigurerequestevent-height ((POINTER STRUCT)) INT "get_XConfigureRequestEvent_height") (foreign-function set-xconfigurerequestevent-height! ((POINTER STRUCT) INT) VOID "set_XConfigureRequestEvent_height") (foreign-function xconfigurerequestevent-border_width ((POINTER STRUCT)) INT "get_XConfigureRequestEvent_border_width") (foreign-function set-xconfigurerequestevent-border_width! ((POINTER STRUCT) INT) VOID "set_XConfigureRequestEvent_border_width") (foreign-function xconfigurerequestevent-above ((POINTER STRUCT)) UNSIGNED-LONG "get_XConfigureRequestEvent_above") (foreign-function set-xconfigurerequestevent-above! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XConfigureRequestEvent_above") (foreign-function xconfigurerequestevent-detail ((POINTER STRUCT)) INT "get_XConfigureRequestEvent_detail") (foreign-function set-xconfigurerequestevent-detail! ((POINTER STRUCT) INT) VOID "set_XConfigureRequestEvent_detail") (foreign-function xconfigurerequestevent-value_mask ((POINTER STRUCT)) UNSIGNED-LONG "get_XConfigureRequestEvent_value_mask") (foreign-function set-xconfigurerequestevent-value_mask! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XConfigureRequestEvent_value_mask") ;;; STRUCT:XCirculateEvent (foreign-function make-xcirculateevent () (POINTER STRUCT) "alloc_XCirculateEvent") (foreign-function free-xcirculateevent ((POINTER STRUCT)) VOID "free_XCirculateEvent") (foreign-function xcirculateevent-type ((POINTER STRUCT)) INT "get_XCirculateEvent_type") (foreign-function set-xcirculateevent-type! ((POINTER STRUCT) INT) VOID "set_XCirculateEvent_type") (foreign-function xcirculateevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XCirculateEvent_serial") (foreign-function set-xcirculateevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XCirculateEvent_serial") (foreign-function xcirculateevent-send_event ((POINTER STRUCT)) INT "get_XCirculateEvent_send_event") (foreign-function set-xcirculateevent-send_event! ((POINTER STRUCT) INT) VOID "set_XCirculateEvent_send_event") (foreign-function xcirculateevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XCirculateEvent_display") (foreign-function set-xcirculateevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XCirculateEvent_display") (foreign-function xcirculateevent-event ((POINTER STRUCT)) UNSIGNED-LONG "get_XCirculateEvent_event") (foreign-function set-xcirculateevent-event! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XCirculateEvent_event") (foreign-function xcirculateevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XCirculateEvent_window") (foreign-function set-xcirculateevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XCirculateEvent_window") (foreign-function xcirculateevent-place ((POINTER STRUCT)) INT "get_XCirculateEvent_place") (foreign-function set-xcirculateevent-place! ((POINTER STRUCT) INT) VOID "set_XCirculateEvent_place") ;;; STRUCT:XCirculateRequestEvent (foreign-function make-xcirculaterequestevent () (POINTER STRUCT) "alloc_XCirculateRequestEvent") (foreign-function free-xcirculaterequestevent ((POINTER STRUCT)) VOID "free_XCirculateRequestEvent") (foreign-function xcirculaterequestevent-type ((POINTER STRUCT)) INT "get_XCirculateRequestEvent_type") (foreign-function set-xcirculaterequestevent-type! ((POINTER STRUCT) INT) VOID "set_XCirculateRequestEvent_type") (foreign-function xcirculaterequestevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XCirculateRequestEvent_serial") (foreign-function set-xcirculaterequestevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XCirculateRequestEvent_serial") (foreign-function xcirculaterequestevent-send_event ((POINTER STRUCT)) INT "get_XCirculateRequestEvent_send_event") (foreign-function set-xcirculaterequestevent-send_event! ((POINTER STRUCT) INT) VOID "set_XCirculateRequestEvent_send_event") (foreign-function xcirculaterequestevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XCirculateRequestEvent_display") (foreign-function set-xcirculaterequestevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XCirculateRequestEvent_display") (foreign-function xcirculaterequestevent-parent ((POINTER STRUCT)) UNSIGNED-LONG "get_XCirculateRequestEvent_parent") (foreign-function set-xcirculaterequestevent-parent! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XCirculateRequestEvent_parent") (foreign-function xcirculaterequestevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XCirculateRequestEvent_window") (foreign-function set-xcirculaterequestevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XCirculateRequestEvent_window") (foreign-function xcirculaterequestevent-place ((POINTER STRUCT)) INT "get_XCirculateRequestEvent_place") (foreign-function set-xcirculaterequestevent-place! ((POINTER STRUCT) INT) VOID "set_XCirculateRequestEvent_place") ;;; STRUCT:XPropertyEvent (foreign-function make-xpropertyevent () (POINTER STRUCT) "alloc_XPropertyEvent") (foreign-function free-xpropertyevent ((POINTER STRUCT)) VOID "free_XPropertyEvent") (foreign-function xpropertyevent-type ((POINTER STRUCT)) INT "get_XPropertyEvent_type") (foreign-function set-xpropertyevent-type! ((POINTER STRUCT) INT) VOID "set_XPropertyEvent_type") (foreign-function xpropertyevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XPropertyEvent_serial") (foreign-function set-xpropertyevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XPropertyEvent_serial") (foreign-function xpropertyevent-send_event ((POINTER STRUCT)) INT "get_XPropertyEvent_send_event") (foreign-function set-xpropertyevent-send_event! ((POINTER STRUCT) INT) VOID "set_XPropertyEvent_send_event") (foreign-function xpropertyevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XPropertyEvent_display") (foreign-function set-xpropertyevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XPropertyEvent_display") (foreign-function xpropertyevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XPropertyEvent_window") (foreign-function set-xpropertyevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XPropertyEvent_window") (foreign-function xpropertyevent-atom ((POINTER STRUCT)) UNSIGNED-LONG "get_XPropertyEvent_atom") (foreign-function set-xpropertyevent-atom! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XPropertyEvent_atom") (foreign-function xpropertyevent-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XPropertyEvent_time") (foreign-function set-xpropertyevent-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XPropertyEvent_time") (foreign-function xpropertyevent-state ((POINTER STRUCT)) INT "get_XPropertyEvent_state") (foreign-function set-xpropertyevent-state! ((POINTER STRUCT) INT) VOID "set_XPropertyEvent_state") ;;; STRUCT:XSelectionClearEvent (foreign-function make-xselectionclearevent () (POINTER STRUCT) "alloc_XSelectionClearEvent") (foreign-function free-xselectionclearevent ((POINTER STRUCT)) VOID "free_XSelectionClearEvent") (foreign-function xselectionclearevent-type ((POINTER STRUCT)) INT "get_XSelectionClearEvent_type") (foreign-function set-xselectionclearevent-type! ((POINTER STRUCT) INT) VOID "set_XSelectionClearEvent_type") (foreign-function xselectionclearevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XSelectionClearEvent_serial") (foreign-function set-xselectionclearevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSelectionClearEvent_serial") (foreign-function xselectionclearevent-send_event ((POINTER STRUCT)) INT "get_XSelectionClearEvent_send_event") (foreign-function set-xselectionclearevent-send_event! ((POINTER STRUCT) INT) VOID "set_XSelectionClearEvent_send_event") (foreign-function xselectionclearevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XSelectionClearEvent_display") (foreign-function set-xselectionclearevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XSelectionClearEvent_display") (foreign-function xselectionclearevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XSelectionClearEvent_window") (foreign-function set-xselectionclearevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSelectionClearEvent_window") (foreign-function xselectionclearevent-selection ((POINTER STRUCT)) UNSIGNED-LONG "get_XSelectionClearEvent_selection") (foreign-function set-xselectionclearevent-selection! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSelectionClearEvent_selection") (foreign-function xselectionclearevent-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XSelectionClearEvent_time") (foreign-function set-xselectionclearevent-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSelectionClearEvent_time") ;;; STRUCT:XSelectionRequestEvent (foreign-function make-xselectionrequestevent () (POINTER STRUCT) "alloc_XSelectionRequestEvent") (foreign-function free-xselectionrequestevent ((POINTER STRUCT)) VOID "free_XSelectionRequestEvent") (foreign-function xselectionrequestevent-type ((POINTER STRUCT)) INT "get_XSelectionRequestEvent_type") (foreign-function set-xselectionrequestevent-type! ((POINTER STRUCT) INT) VOID "set_XSelectionRequestEvent_type") (foreign-function xselectionrequestevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XSelectionRequestEvent_serial") (foreign-function set-xselectionrequestevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSelectionRequestEvent_serial") (foreign-function xselectionrequestevent-send_event ((POINTER STRUCT)) INT "get_XSelectionRequestEvent_send_event") (foreign-function set-xselectionrequestevent-send_event! ((POINTER STRUCT) INT) VOID "set_XSelectionRequestEvent_send_event") (foreign-function xselectionrequestevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XSelectionRequestEvent_display") (foreign-function set-xselectionrequestevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XSelectionRequestEvent_display") (foreign-function xselectionrequestevent-owner ((POINTER STRUCT)) UNSIGNED-LONG "get_XSelectionRequestEvent_owner") (foreign-function set-xselectionrequestevent-owner! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSelectionRequestEvent_owner") (foreign-function xselectionrequestevent-requestor ((POINTER STRUCT)) UNSIGNED-LONG "get_XSelectionRequestEvent_requestor") (foreign-function set-xselectionrequestevent-requestor! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSelectionRequestEvent_requestor") (foreign-function xselectionrequestevent-selection ((POINTER STRUCT)) UNSIGNED-LONG "get_XSelectionRequestEvent_selection") (foreign-function set-xselectionrequestevent-selection! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSelectionRequestEvent_selection") (foreign-function xselectionrequestevent-target ((POINTER STRUCT)) UNSIGNED-LONG "get_XSelectionRequestEvent_target") (foreign-function set-xselectionrequestevent-target! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSelectionRequestEvent_target") (foreign-function xselectionrequestevent-property ((POINTER STRUCT)) UNSIGNED-LONG "get_XSelectionRequestEvent_property") (foreign-function set-xselectionrequestevent-property! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSelectionRequestEvent_property") (foreign-function xselectionrequestevent-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XSelectionRequestEvent_time") (foreign-function set-xselectionrequestevent-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSelectionRequestEvent_time") ;;; STRUCT:XSelectionEvent (foreign-function make-xselectionevent () (POINTER STRUCT) "alloc_XSelectionEvent") (foreign-function free-xselectionevent ((POINTER STRUCT)) VOID "free_XSelectionEvent") (foreign-function xselectionevent-type ((POINTER STRUCT)) INT "get_XSelectionEvent_type") (foreign-function set-xselectionevent-type! ((POINTER STRUCT) INT) VOID "set_XSelectionEvent_type") (foreign-function xselectionevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XSelectionEvent_serial") (foreign-function set-xselectionevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSelectionEvent_serial") (foreign-function xselectionevent-send_event ((POINTER STRUCT)) INT "get_XSelectionEvent_send_event") (foreign-function set-xselectionevent-send_event! ((POINTER STRUCT) INT) VOID "set_XSelectionEvent_send_event") (foreign-function xselectionevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XSelectionEvent_display") (foreign-function set-xselectionevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XSelectionEvent_display") (foreign-function xselectionevent-requestor ((POINTER STRUCT)) UNSIGNED-LONG "get_XSelectionEvent_requestor") (foreign-function set-xselectionevent-requestor! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSelectionEvent_requestor") (foreign-function xselectionevent-selection ((POINTER STRUCT)) UNSIGNED-LONG "get_XSelectionEvent_selection") (foreign-function set-xselectionevent-selection! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSelectionEvent_selection") (foreign-function xselectionevent-target ((POINTER STRUCT)) UNSIGNED-LONG "get_XSelectionEvent_target") (foreign-function set-xselectionevent-target! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSelectionEvent_target") (foreign-function xselectionevent-property ((POINTER STRUCT)) UNSIGNED-LONG "get_XSelectionEvent_property") (foreign-function set-xselectionevent-property! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSelectionEvent_property") (foreign-function xselectionevent-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XSelectionEvent_time") (foreign-function set-xselectionevent-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XSelectionEvent_time") ;;; STRUCT:XColormapEvent (foreign-function make-xcolormapevent () (POINTER STRUCT) "alloc_XColormapEvent") (foreign-function free-xcolormapevent ((POINTER STRUCT)) VOID "free_XColormapEvent") (foreign-function xcolormapevent-type ((POINTER STRUCT)) INT "get_XColormapEvent_type") (foreign-function set-xcolormapevent-type! ((POINTER STRUCT) INT) VOID "set_XColormapEvent_type") (foreign-function xcolormapevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XColormapEvent_serial") (foreign-function set-xcolormapevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XColormapEvent_serial") (foreign-function xcolormapevent-send_event ((POINTER STRUCT)) INT "get_XColormapEvent_send_event") (foreign-function set-xcolormapevent-send_event! ((POINTER STRUCT) INT) VOID "set_XColormapEvent_send_event") (foreign-function xcolormapevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XColormapEvent_display") (foreign-function set-xcolormapevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XColormapEvent_display") (foreign-function xcolormapevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XColormapEvent_window") (foreign-function set-xcolormapevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XColormapEvent_window") (foreign-function xcolormapevent-colormap ((POINTER STRUCT)) UNSIGNED-LONG "get_XColormapEvent_colormap") (foreign-function set-xcolormapevent-colormap! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XColormapEvent_colormap") (foreign-function xcolormapevent-new ((POINTER STRUCT)) INT "get_XColormapEvent_new") (foreign-function set-xcolormapevent-new! ((POINTER STRUCT) INT) VOID "set_XColormapEvent_new") (foreign-function xcolormapevent-state ((POINTER STRUCT)) INT "get_XColormapEvent_state") (foreign-function set-xcolormapevent-state! ((POINTER STRUCT) INT) VOID "set_XColormapEvent_state") ;;; STRUCT:XClientMessageEvent (foreign-function make-xclientmessageevent () (POINTER STRUCT) "alloc_XClientMessageEvent") (foreign-function free-xclientmessageevent ((POINTER STRUCT)) VOID "free_XClientMessageEvent") (foreign-function xclientmessageevent-type ((POINTER STRUCT)) INT "get_XClientMessageEvent_type") (foreign-function set-xclientmessageevent-type! ((POINTER STRUCT) INT) VOID "set_XClientMessageEvent_type") (foreign-function xclientmessageevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XClientMessageEvent_serial") (foreign-function set-xclientmessageevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XClientMessageEvent_serial") (foreign-function xclientmessageevent-send_event ((POINTER STRUCT)) INT "get_XClientMessageEvent_send_event") (foreign-function set-xclientmessageevent-send_event! ((POINTER STRUCT) INT) VOID "set_XClientMessageEvent_send_event") (foreign-function xclientmessageevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XClientMessageEvent_display") (foreign-function set-xclientmessageevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XClientMessageEvent_display") (foreign-function xclientmessageevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XClientMessageEvent_window") (foreign-function set-xclientmessageevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XClientMessageEvent_window") (foreign-function xclientmessageevent-message_type ((POINTER STRUCT)) UNSIGNED-LONG "get_XClientMessageEvent_message_type") (foreign-function set-xclientmessageevent-message_type! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XClientMessageEvent_message_type") (foreign-function xclientmessageevent-format ((POINTER STRUCT)) INT "get_XClientMessageEvent_format") (foreign-function set-xclientmessageevent-format! ((POINTER STRUCT) INT) VOID "set_XClientMessageEvent_format") (foreign-function xclientmessageevent-data-b ((POINTER UNION)) POINTER "get_XClientMessageEvent_data_b") (foreign-function xclientmessageevent-data-s ((POINTER UNION)) POINTER "get_XClientMessageEvent_data_s") (foreign-function xclientmessageevent-data-l ((POINTER UNION)) POINTER "get_XClientMessageEvent_data_l") ;;; STRUCT:XMappingEvent (foreign-function make-xmappingevent () (POINTER STRUCT) "alloc_XMappingEvent") (foreign-function free-xmappingevent ((POINTER STRUCT)) VOID "free_XMappingEvent") (foreign-function xmappingevent-type ((POINTER STRUCT)) INT "get_XMappingEvent_type") (foreign-function set-xmappingevent-type! ((POINTER STRUCT) INT) VOID "set_XMappingEvent_type") (foreign-function xmappingevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XMappingEvent_serial") (foreign-function set-xmappingevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XMappingEvent_serial") (foreign-function xmappingevent-send_event ((POINTER STRUCT)) INT "get_XMappingEvent_send_event") (foreign-function set-xmappingevent-send_event! ((POINTER STRUCT) INT) VOID "set_XMappingEvent_send_event") (foreign-function xmappingevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XMappingEvent_display") (foreign-function set-xmappingevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XMappingEvent_display") (foreign-function xmappingevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XMappingEvent_window") (foreign-function set-xmappingevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XMappingEvent_window") (foreign-function xmappingevent-request ((POINTER STRUCT)) INT "get_XMappingEvent_request") (foreign-function set-xmappingevent-request! ((POINTER STRUCT) INT) VOID "set_XMappingEvent_request") (foreign-function xmappingevent-first_keycode ((POINTER STRUCT)) INT "get_XMappingEvent_first_keycode") (foreign-function set-xmappingevent-first_keycode! ((POINTER STRUCT) INT) VOID "set_XMappingEvent_first_keycode") (foreign-function xmappingevent-count ((POINTER STRUCT)) INT "get_XMappingEvent_count") (foreign-function set-xmappingevent-count! ((POINTER STRUCT) INT) VOID "set_XMappingEvent_count") ;;; STRUCT:XErrorEvent (foreign-function make-xerrorevent () (POINTER STRUCT) "alloc_XErrorEvent") (foreign-function free-xerrorevent ((POINTER STRUCT)) VOID "free_XErrorEvent") (foreign-function xerrorevent-type ((POINTER STRUCT)) INT "get_XErrorEvent_type") (foreign-function set-xerrorevent-type! ((POINTER STRUCT) INT) VOID "set_XErrorEvent_type") (foreign-function xerrorevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XErrorEvent_display") (foreign-function set-xerrorevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XErrorEvent_display") (foreign-function xerrorevent-resourceid ((POINTER STRUCT)) UNSIGNED-LONG "get_XErrorEvent_resourceid") (foreign-function set-xerrorevent-resourceid! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XErrorEvent_resourceid") (foreign-function xerrorevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XErrorEvent_serial") (foreign-function set-xerrorevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XErrorEvent_serial") (foreign-function xerrorevent-error_code ((POINTER STRUCT)) UNSIGNED-CHAR "get_XErrorEvent_error_code") (foreign-function set-xerrorevent-error_code! ((POINTER STRUCT) UNSIGNED-CHAR) VOID "set_XErrorEvent_error_code") (foreign-function xerrorevent-request_code ((POINTER STRUCT)) UNSIGNED-CHAR "get_XErrorEvent_request_code") (foreign-function set-xerrorevent-request_code! ((POINTER STRUCT) UNSIGNED-CHAR) VOID "set_XErrorEvent_request_code") (foreign-function xerrorevent-minor_code ((POINTER STRUCT)) UNSIGNED-CHAR "get_XErrorEvent_minor_code") (foreign-function set-xerrorevent-minor_code! ((POINTER STRUCT) UNSIGNED-CHAR) VOID "set_XErrorEvent_minor_code") ;;; STRUCT:XAnyEvent (foreign-function make-xanyevent () (POINTER STRUCT) "alloc_XAnyEvent") (foreign-function free-xanyevent ((POINTER STRUCT)) VOID "free_XAnyEvent") (foreign-function xanyevent-type ((POINTER STRUCT)) INT "get_XAnyEvent_type") (foreign-function set-xanyevent-type! ((POINTER STRUCT) INT) VOID "set_XAnyEvent_type") (foreign-function xanyevent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XAnyEvent_serial") (foreign-function set-xanyevent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XAnyEvent_serial") (foreign-function xanyevent-send_event ((POINTER STRUCT)) INT "get_XAnyEvent_send_event") (foreign-function set-xanyevent-send_event! ((POINTER STRUCT) INT) VOID "set_XAnyEvent_send_event") (foreign-function xanyevent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XAnyEvent_display") (foreign-function set-xanyevent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XAnyEvent_display") (foreign-function xanyevent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XAnyEvent_window") (foreign-function set-xanyevent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XAnyEvent_window") ;;; STRUCT:XCharStruct (foreign-function make-xcharstruct () (POINTER STRUCT) "alloc_XCharStruct") (foreign-function free-xcharstruct ((POINTER STRUCT)) VOID "free_XCharStruct") (foreign-function xcharstruct-lbearing ((POINTER STRUCT)) SHORT "get_XCharStruct_lbearing") (foreign-function set-xcharstruct-lbearing! ((POINTER STRUCT) SHORT) VOID "set_XCharStruct_lbearing") (foreign-function xcharstruct-rbearing ((POINTER STRUCT)) SHORT "get_XCharStruct_rbearing") (foreign-function set-xcharstruct-rbearing! ((POINTER STRUCT) SHORT) VOID "set_XCharStruct_rbearing") (foreign-function xcharstruct-width ((POINTER STRUCT)) SHORT "get_XCharStruct_width") (foreign-function set-xcharstruct-width! ((POINTER STRUCT) SHORT) VOID "set_XCharStruct_width") (foreign-function xcharstruct-ascent ((POINTER STRUCT)) SHORT "get_XCharStruct_ascent") (foreign-function set-xcharstruct-ascent! ((POINTER STRUCT) SHORT) VOID "set_XCharStruct_ascent") (foreign-function xcharstruct-descent ((POINTER STRUCT)) SHORT "get_XCharStruct_descent") (foreign-function set-xcharstruct-descent! ((POINTER STRUCT) SHORT) VOID "set_XCharStruct_descent") (foreign-function xcharstruct-attributes ((POINTER STRUCT)) UNSIGNED-SHORT "get_XCharStruct_attributes") (foreign-function set-xcharstruct-attributes! ((POINTER STRUCT) UNSIGNED-SHORT) VOID "set_XCharStruct_attributes") ;;; STRUCT:XFontProp (foreign-function make-xfontprop () (POINTER STRUCT) "alloc_XFontProp") (foreign-function free-xfontprop ((POINTER STRUCT)) VOID "free_XFontProp") (foreign-function xfontprop-name ((POINTER STRUCT)) UNSIGNED-LONG "get_XFontProp_name") (foreign-function set-xfontprop-name! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XFontProp_name") (foreign-function xfontprop-card32 ((POINTER STRUCT)) UNSIGNED-LONG "get_XFontProp_card32") (foreign-function set-xfontprop-card32! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XFontProp_card32") ;;; STRUCT:XFontStruct (foreign-function make-xfontstruct () (POINTER STRUCT) "alloc_XFontStruct") (foreign-function free-xfontstruct ((POINTER STRUCT)) VOID "free_XFontStruct") (foreign-function xfontstruct-ext_data ((POINTER STRUCT)) (POINTER STRUCT) "get_XFontStruct_ext_data") (foreign-function set-xfontstruct-ext_data! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XFontStruct_ext_data") (foreign-function xfontstruct-fid ((POINTER STRUCT)) UNSIGNED-LONG "get_XFontStruct_fid") (foreign-function set-xfontstruct-fid! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XFontStruct_fid") (foreign-function xfontstruct-direction ((POINTER STRUCT)) UNSIGNED-INT "get_XFontStruct_direction") (foreign-function set-xfontstruct-direction! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XFontStruct_direction") (foreign-function xfontstruct-min_char_or_byte2 ((POINTER STRUCT)) UNSIGNED-INT "get_XFontStruct_min_char_or_byte2") (foreign-function set-xfontstruct-min_char_or_byte2! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XFontStruct_min_char_or_byte2") (foreign-function xfontstruct-max_char_or_byte2 ((POINTER STRUCT)) UNSIGNED-INT "get_XFontStruct_max_char_or_byte2") (foreign-function set-xfontstruct-max_char_or_byte2! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XFontStruct_max_char_or_byte2") (foreign-function xfontstruct-min_byte1 ((POINTER STRUCT)) UNSIGNED-INT "get_XFontStruct_min_byte1") (foreign-function set-xfontstruct-min_byte1! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XFontStruct_min_byte1") (foreign-function xfontstruct-max_byte1 ((POINTER STRUCT)) UNSIGNED-INT "get_XFontStruct_max_byte1") (foreign-function set-xfontstruct-max_byte1! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XFontStruct_max_byte1") (foreign-function xfontstruct-all_chars_exist ((POINTER STRUCT)) INT "get_XFontStruct_all_chars_exist") (foreign-function set-xfontstruct-all_chars_exist! ((POINTER STRUCT) INT) VOID "set_XFontStruct_all_chars_exist") (foreign-function xfontstruct-default_char ((POINTER STRUCT)) UNSIGNED-INT "get_XFontStruct_default_char") (foreign-function set-xfontstruct-default_char! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XFontStruct_default_char") (foreign-function xfontstruct-n_properties ((POINTER STRUCT)) INT "get_XFontStruct_n_properties") (foreign-function set-xfontstruct-n_properties! ((POINTER STRUCT) INT) VOID "set_XFontStruct_n_properties") (foreign-function xfontstruct-properties ((POINTER STRUCT)) (POINTER STRUCT) "get_XFontStruct_properties") (foreign-function set-xfontstruct-properties! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XFontStruct_properties") (foreign-function xfontstruct-min_bounds-lbearing ((POINTER STRUCT)) SHORT "get_XFontStruct_min_bounds_lbearing") (foreign-function set-xfontstruct-min_bounds-lbearing! ((POINTER STRUCT) SHORT) VOID "set_XFontStruct_min_bounds_lbearing") (foreign-function xfontstruct-min_bounds-rbearing ((POINTER STRUCT)) SHORT "get_XFontStruct_min_bounds_rbearing") (foreign-function set-xfontstruct-min_bounds-rbearing! ((POINTER STRUCT) SHORT) VOID "set_XFontStruct_min_bounds_rbearing") (foreign-function xfontstruct-min_bounds-width ((POINTER STRUCT)) SHORT "get_XFontStruct_min_bounds_width") (foreign-function set-xfontstruct-min_bounds-width! ((POINTER STRUCT) SHORT) VOID "set_XFontStruct_min_bounds_width") (foreign-function xfontstruct-min_bounds-ascent ((POINTER STRUCT)) SHORT "get_XFontStruct_min_bounds_ascent") (foreign-function set-xfontstruct-min_bounds-ascent! ((POINTER STRUCT) SHORT) VOID "set_XFontStruct_min_bounds_ascent") (foreign-function xfontstruct-min_bounds-descent ((POINTER STRUCT)) SHORT "get_XFontStruct_min_bounds_descent") (foreign-function set-xfontstruct-min_bounds-descent! ((POINTER STRUCT) SHORT) VOID "set_XFontStruct_min_bounds_descent") (foreign-function xfontstruct-min_bounds-attributes ((POINTER STRUCT)) UNSIGNED-SHORT "get_XFontStruct_min_bounds_attributes") (foreign-function set-xfontstruct-min_bounds-attributes! ((POINTER STRUCT) UNSIGNED-SHORT) VOID "set_XFontStruct_min_bounds_attributes") (foreign-function xfontstruct-max_bounds-lbearing ((POINTER STRUCT)) SHORT "get_XFontStruct_max_bounds_lbearing") (foreign-function set-xfontstruct-max_bounds-lbearing! ((POINTER STRUCT) SHORT) VOID "set_XFontStruct_max_bounds_lbearing") (foreign-function xfontstruct-max_bounds-rbearing ((POINTER STRUCT)) SHORT "get_XFontStruct_max_bounds_rbearing") (foreign-function set-xfontstruct-max_bounds-rbearing! ((POINTER STRUCT) SHORT) VOID "set_XFontStruct_max_bounds_rbearing") (foreign-function xfontstruct-max_bounds-width ((POINTER STRUCT)) SHORT "get_XFontStruct_max_bounds_width") (foreign-function set-xfontstruct-max_bounds-width! ((POINTER STRUCT) SHORT) VOID "set_XFontStruct_max_bounds_width") (foreign-function xfontstruct-max_bounds-ascent ((POINTER STRUCT)) SHORT "get_XFontStruct_max_bounds_ascent") (foreign-function set-xfontstruct-max_bounds-ascent! ((POINTER STRUCT) SHORT) VOID "set_XFontStruct_max_bounds_ascent") (foreign-function xfontstruct-max_bounds-descent ((POINTER STRUCT)) SHORT "get_XFontStruct_max_bounds_descent") (foreign-function set-xfontstruct-max_bounds-descent! ((POINTER STRUCT) SHORT) VOID "set_XFontStruct_max_bounds_descent") (foreign-function xfontstruct-max_bounds-attributes ((POINTER STRUCT)) UNSIGNED-SHORT "get_XFontStruct_max_bounds_attributes") (foreign-function set-xfontstruct-max_bounds-attributes! ((POINTER STRUCT) UNSIGNED-SHORT) VOID "set_XFontStruct_max_bounds_attributes") (foreign-function xfontstruct-per_char ((POINTER STRUCT)) (POINTER STRUCT) "get_XFontStruct_per_char") (foreign-function set-xfontstruct-per_char! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XFontStruct_per_char") (foreign-function xfontstruct-ascent ((POINTER STRUCT)) INT "get_XFontStruct_ascent") (foreign-function set-xfontstruct-ascent! ((POINTER STRUCT) INT) VOID "set_XFontStruct_ascent") (foreign-function xfontstruct-descent ((POINTER STRUCT)) INT "get_XFontStruct_descent") (foreign-function set-xfontstruct-descent! ((POINTER STRUCT) INT) VOID "set_XFontStruct_descent") ;;; STRUCT:XTextItem (foreign-function make-xtextitem () (POINTER STRUCT) "alloc_XTextItem") (foreign-function free-xtextitem ((POINTER STRUCT)) VOID "free_XTextItem") (foreign-function xtextitem-chars ((POINTER STRUCT)) (POINTER CHAR) "get_XTextItem_chars") (foreign-function set-xtextitem-chars! ((POINTER STRUCT) (POINTER CHAR)) VOID "set_XTextItem_chars") (foreign-function xtextitem-nchars ((POINTER STRUCT)) INT "get_XTextItem_nchars") (foreign-function set-xtextitem-nchars! ((POINTER STRUCT) INT) VOID "set_XTextItem_nchars") (foreign-function xtextitem-delta ((POINTER STRUCT)) INT "get_XTextItem_delta") (foreign-function set-xtextitem-delta! ((POINTER STRUCT) INT) VOID "set_XTextItem_delta") (foreign-function xtextitem-font ((POINTER STRUCT)) UNSIGNED-LONG "get_XTextItem_font") (foreign-function set-xtextitem-font! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XTextItem_font") ;;; STRUCT:XChar2b (foreign-function make-xchar2b () (POINTER STRUCT) "alloc_XChar2b") (foreign-function free-xchar2b ((POINTER STRUCT)) VOID "free_XChar2b") (foreign-function xchar2b-byte1 ((POINTER STRUCT)) UNSIGNED-CHAR "get_XChar2b_byte1") (foreign-function set-xchar2b-byte1! ((POINTER STRUCT) UNSIGNED-CHAR) VOID "set_XChar2b_byte1") (foreign-function xchar2b-byte2 ((POINTER STRUCT)) UNSIGNED-CHAR "get_XChar2b_byte2") (foreign-function set-xchar2b-byte2! ((POINTER STRUCT) UNSIGNED-CHAR) VOID "set_XChar2b_byte2") ;;; STRUCT:XTextItem16 (foreign-function make-xtextitem16 () (POINTER STRUCT) "alloc_XTextItem16") (foreign-function free-xtextitem16 ((POINTER STRUCT)) VOID "free_XTextItem16") (foreign-function xtextitem16-chars ((POINTER STRUCT)) (POINTER STRUCT) "get_XTextItem16_chars") (foreign-function set-xtextitem16-chars! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XTextItem16_chars") (foreign-function xtextitem16-nchars ((POINTER STRUCT)) INT "get_XTextItem16_nchars") (foreign-function set-xtextitem16-nchars! ((POINTER STRUCT) INT) VOID "set_XTextItem16_nchars") (foreign-function xtextitem16-delta ((POINTER STRUCT)) INT "get_XTextItem16_delta") (foreign-function set-xtextitem16-delta! ((POINTER STRUCT) INT) VOID "set_XTextItem16_delta") (foreign-function xtextitem16-font ((POINTER STRUCT)) UNSIGNED-LONG "get_XTextItem16_font") (foreign-function set-xtextitem16-font! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XTextItem16_font") ;;; STRUCT:XFontSetExtents (foreign-function make-xfontsetextents () (POINTER STRUCT) "alloc_XFontSetExtents") (foreign-function free-xfontsetextents ((POINTER STRUCT)) VOID "free_XFontSetExtents") (foreign-function xfontsetextents-max_ink_extent-x ((POINTER STRUCT)) SHORT "get_XFontSetExtents_max_ink_extent_x") (foreign-function set-xfontsetextents-max_ink_extent-x! ((POINTER STRUCT) SHORT) VOID "set_XFontSetExtents_max_ink_extent_x") (foreign-function xfontsetextents-max_ink_extent-y ((POINTER STRUCT)) SHORT "get_XFontSetExtents_max_ink_extent_y") (foreign-function set-xfontsetextents-max_ink_extent-y! ((POINTER STRUCT) SHORT) VOID "set_XFontSetExtents_max_ink_extent_y") (foreign-function xfontsetextents-max_ink_extent-width ((POINTER STRUCT)) UNSIGNED-SHORT "get_XFontSetExtents_max_ink_extent_width") (foreign-function set-xfontsetextents-max_ink_extent-width! ((POINTER STRUCT) UNSIGNED-SHORT) VOID "set_XFontSetExtents_max_ink_extent_width") (foreign-function xfontsetextents-max_ink_extent-height ((POINTER STRUCT)) UNSIGNED-SHORT "get_XFontSetExtents_max_ink_extent_height") (foreign-function set-xfontsetextents-max_ink_extent-height! ((POINTER STRUCT) UNSIGNED-SHORT) VOID "set_XFontSetExtents_max_ink_extent_height") (foreign-function xfontsetextents-max_logical_extent-x ((POINTER STRUCT)) SHORT "get_XFontSetExtents_max_logical_extent_x") (foreign-function set-xfontsetextents-max_logical_extent-x! ((POINTER STRUCT) SHORT) VOID "set_XFontSetExtents_max_logical_extent_x") (foreign-function xfontsetextents-max_logical_extent-y ((POINTER STRUCT)) SHORT "get_XFontSetExtents_max_logical_extent_y") (foreign-function set-xfontsetextents-max_logical_extent-y! ((POINTER STRUCT) SHORT) VOID "set_XFontSetExtents_max_logical_extent_y") (foreign-function xfontsetextents-max_logical_extent-width ((POINTER STRUCT)) UNSIGNED-SHORT "get_XFontSetExtents_max_logical_extent_width") (foreign-function set-xfontsetextents-max_logical_extent-width! ((POINTER STRUCT) UNSIGNED-SHORT) VOID "set_XFontSetExtents_max_logical_extent_width") (foreign-function xfontsetextents-max_logical_extent-height ((POINTER STRUCT)) UNSIGNED-SHORT "get_XFontSetExtents_max_logical_extent_height") (foreign-function set-xfontsetextents-max_logical_extent-height! ((POINTER STRUCT) UNSIGNED-SHORT) VOID "set_XFontSetExtents_max_logical_extent_height") ;;; STRUCT:XmbTextItem (foreign-function make-xmbtextitem () (POINTER STRUCT) "alloc_XmbTextItem") (foreign-function free-xmbtextitem ((POINTER STRUCT)) VOID "free_XmbTextItem") (foreign-function xmbtextitem-chars ((POINTER STRUCT)) (POINTER CHAR) "get_XmbTextItem_chars") (foreign-function set-xmbtextitem-chars! ((POINTER STRUCT) (POINTER CHAR)) VOID "set_XmbTextItem_chars") (foreign-function xmbtextitem-nchars ((POINTER STRUCT)) INT "get_XmbTextItem_nchars") (foreign-function set-xmbtextitem-nchars! ((POINTER STRUCT) INT) VOID "set_XmbTextItem_nchars") (foreign-function xmbtextitem-delta ((POINTER STRUCT)) INT "get_XmbTextItem_delta") (foreign-function set-xmbtextitem-delta! ((POINTER STRUCT) INT) VOID "set_XmbTextItem_delta") (foreign-function xmbtextitem-font_set ((POINTER STRUCT)) (POINTER STRUCT) "get_XmbTextItem_font_set") (foreign-function set-xmbtextitem-font_set! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XmbTextItem_font_set") ;;; STRUCT:XwcTextItem (foreign-function make-xwctextitem () (POINTER STRUCT) "alloc_XwcTextItem") (foreign-function free-xwctextitem ((POINTER STRUCT)) VOID "free_XwcTextItem") (foreign-function xwctextitem-chars ((POINTER STRUCT)) (POINTER UNSIGNED-CHAR) "get_XwcTextItem_chars") (foreign-function set-xwctextitem-chars! ((POINTER STRUCT) (POINTER UNSIGNED-CHAR)) VOID "set_XwcTextItem_chars") (foreign-function xwctextitem-nchars ((POINTER STRUCT)) INT "get_XwcTextItem_nchars") (foreign-function set-xwctextitem-nchars! ((POINTER STRUCT) INT) VOID "set_XwcTextItem_nchars") (foreign-function xwctextitem-delta ((POINTER STRUCT)) INT "get_XwcTextItem_delta") (foreign-function set-xwctextitem-delta! ((POINTER STRUCT) INT) VOID "set_XwcTextItem_delta") (foreign-function xwctextitem-font_set ((POINTER STRUCT)) (POINTER STRUCT) "get_XwcTextItem_font_set") (foreign-function set-xwctextitem-font_set! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XwcTextItem_font_set") ;;; STRUCT:XIMStyles (foreign-function make-ximstyles () (POINTER STRUCT) "alloc_XIMStyles") (foreign-function free-ximstyles ((POINTER STRUCT)) VOID "free_XIMStyles") (foreign-function ximstyles-count_styles ((POINTER STRUCT)) UNSIGNED-SHORT "get_XIMStyles_count_styles") (foreign-function set-ximstyles-count_styles! ((POINTER STRUCT) UNSIGNED-SHORT) VOID "set_XIMStyles_count_styles") (foreign-function ximstyles-supported_styles ((POINTER STRUCT)) (POINTER UNSIGNED-LONG) "get_XIMStyles_supported_styles") (foreign-function set-ximstyles-supported_styles! ((POINTER STRUCT) (POINTER UNSIGNED-LONG)) VOID "set_XIMStyles_supported_styles") ;;; STRUCT:XIMCallback (foreign-function make-ximcallback () (POINTER STRUCT) "alloc_XIMCallback") (foreign-function free-ximcallback ((POINTER STRUCT)) VOID "free_XIMCallback") (foreign-function ximcallback-client_data ((POINTER STRUCT)) (POINTER CHAR) "get_XIMCallback_client_data") (foreign-function set-ximcallback-client_data! ((POINTER STRUCT) (POINTER CHAR)) VOID "set_XIMCallback_client_data") (foreign-function ximcallback-callback ((POINTER STRUCT)) (POINTER FUNCTION) "get_XIMCallback_callback") (foreign-function set-ximcallback-callback! ((POINTER STRUCT) (POINTER FUNCTION)) VOID "set_XIMCallback_callback") ;;; STRUCT:XIMText (foreign-function make-ximtext () (POINTER STRUCT) "alloc_XIMText") (foreign-function free-ximtext ((POINTER STRUCT)) VOID "free_XIMText") (foreign-function ximtext-length ((POINTER STRUCT)) UNSIGNED-SHORT "get_XIMText_length") (foreign-function set-ximtext-length! ((POINTER STRUCT) UNSIGNED-SHORT) VOID "set_XIMText_length") (foreign-function ximtext-feedback ((POINTER STRUCT)) (POINTER UNSIGNED-LONG) "get_XIMText_feedback") (foreign-function set-ximtext-feedback! ((POINTER STRUCT) (POINTER UNSIGNED-LONG)) VOID "set_XIMText_feedback") (foreign-function ximtext-encoding_is_wchar ((POINTER STRUCT)) INT "get_XIMText_encoding_is_wchar") (foreign-function set-ximtext-encoding_is_wchar! ((POINTER STRUCT) INT) VOID "set_XIMText_encoding_is_wchar") (foreign-function ximtext-string-multi_byte ((POINTER UNION)) (POINTER CHAR) "get_XIMText_string_multi_byte") (foreign-function set-ximtext-string-multi_byte! ((POINTER UNION) (POINTER CHAR)) VOID "set_XIMText_string_multi_byte") (foreign-function ximtext-string-wide_char ((POINTER UNION)) (POINTER UNSIGNED-CHAR) "get_XIMText_string_wide_char") (foreign-function set-ximtext-string-wide_char! ((POINTER UNION) (POINTER UNSIGNED-CHAR)) VOID "set_XIMText_string_wide_char") ;;; STRUCT:XIMPreeditDrawCallbackStruct (foreign-function make-ximpreeditdrawcallbackstruct () (POINTER STRUCT) "alloc_XIMPreeditDrawCallbackStruct") (foreign-function free-ximpreeditdrawcallbackstruct ((POINTER STRUCT)) VOID "free_XIMPreeditDrawCallbackStruct") (foreign-function ximpreeditdrawcallbackstruct-caret ((POINTER STRUCT)) INT "get_XIMPreeditDrawCallbackStruct_caret") (foreign-function set-ximpreeditdrawcallbackstruct-caret! ((POINTER STRUCT) INT) VOID "set_XIMPreeditDrawCallbackStruct_caret") (foreign-function ximpreeditdrawcallbackstruct-chg_first ((POINTER STRUCT)) INT "get_XIMPreeditDrawCallbackStruct_chg_first") (foreign-function set-ximpreeditdrawcallbackstruct-chg_first! ((POINTER STRUCT) INT) VOID "set_XIMPreeditDrawCallbackStruct_chg_first") (foreign-function ximpreeditdrawcallbackstruct-chg_length ((POINTER STRUCT)) INT "get_XIMPreeditDrawCallbackStruct_chg_length") (foreign-function set-ximpreeditdrawcallbackstruct-chg_length! ((POINTER STRUCT) INT) VOID "set_XIMPreeditDrawCallbackStruct_chg_length") (foreign-function ximpreeditdrawcallbackstruct-text ((POINTER STRUCT)) (POINTER STRUCT) "get_XIMPreeditDrawCallbackStruct_text") (foreign-function set-ximpreeditdrawcallbackstruct-text! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XIMPreeditDrawCallbackStruct_text") ;;; STRUCT:XIMPreeditCaretCallbackStruct (foreign-function make-ximpreeditcaretcallbackstruct () (POINTER STRUCT) "alloc_XIMPreeditCaretCallbackStruct") (foreign-function free-ximpreeditcaretcallbackstruct ((POINTER STRUCT)) VOID "free_XIMPreeditCaretCallbackStruct") (foreign-function ximpreeditcaretcallbackstruct-position ((POINTER STRUCT)) INT "get_XIMPreeditCaretCallbackStruct_position") (foreign-function set-ximpreeditcaretcallbackstruct-position! ((POINTER STRUCT) INT) VOID "set_XIMPreeditCaretCallbackStruct_position") (foreign-function ximpreeditcaretcallbackstruct-direction ((POINTER STRUCT)) INT "get_XIMPreeditCaretCallbackStruct_direction") (foreign-function set-ximpreeditcaretcallbackstruct-direction! ((POINTER STRUCT) INT) VOID "set_XIMPreeditCaretCallbackStruct_direction") (foreign-function ximpreeditcaretcallbackstruct-style ((POINTER STRUCT)) INT "get_XIMPreeditCaretCallbackStruct_style") (foreign-function set-ximpreeditcaretcallbackstruct-style! ((POINTER STRUCT) INT) VOID "set_XIMPreeditCaretCallbackStruct_style") ;;; STRUCT:XIMStatusDrawCallbackStruct (foreign-function make-ximstatusdrawcallbackstruct () (POINTER STRUCT) "alloc_XIMStatusDrawCallbackStruct") (foreign-function free-ximstatusdrawcallbackstruct ((POINTER STRUCT)) VOID "free_XIMStatusDrawCallbackStruct") (foreign-function ximstatusdrawcallbackstruct-type ((POINTER STRUCT)) INT "get_XIMStatusDrawCallbackStruct_type") (foreign-function set-ximstatusdrawcallbackstruct-type! ((POINTER STRUCT) INT) VOID "set_XIMStatusDrawCallbackStruct_type") (foreign-function ximstatusdrawcallbackstruct-data-text ((POINTER UNION)) (POINTER STRUCT) "get_XIMStatusDrawCallbackStruct_data_text") (foreign-function set-ximstatusdrawcallbackstruct-data-text! ((POINTER UNION) (POINTER STRUCT)) VOID "set_XIMStatusDrawCallbackStruct_data_text") (foreign-function ximstatusdrawcallbackstruct-data-bitmap ((POINTER UNION)) UNSIGNED-LONG "get_XIMStatusDrawCallbackStruct_data_bitmap") (foreign-function set-ximstatusdrawcallbackstruct-data-bitmap! ((POINTER UNION) UNSIGNED-LONG) VOID "set_XIMStatusDrawCallbackStruct_data_bitmap") ;;; STRUCT:XSizeHints (foreign-function make-xsizehints () (POINTER STRUCT) "alloc_XSizeHints") (foreign-function free-xsizehints ((POINTER STRUCT)) VOID "free_XSizeHints") (foreign-function xsizehints-flags ((POINTER STRUCT)) INT "get_XSizeHints_flags") (foreign-function set-xsizehints-flags! ((POINTER STRUCT) INT) VOID "set_XSizeHints_flags") (foreign-function xsizehints-x ((POINTER STRUCT)) INT "get_XSizeHints_x") (foreign-function set-xsizehints-x! ((POINTER STRUCT) INT) VOID "set_XSizeHints_x") (foreign-function xsizehints-y ((POINTER STRUCT)) INT "get_XSizeHints_y") (foreign-function set-xsizehints-y! ((POINTER STRUCT) INT) VOID "set_XSizeHints_y") (foreign-function xsizehints-width ((POINTER STRUCT)) INT "get_XSizeHints_width") (foreign-function set-xsizehints-width! ((POINTER STRUCT) INT) VOID "set_XSizeHints_width") (foreign-function xsizehints-height ((POINTER STRUCT)) INT "get_XSizeHints_height") (foreign-function set-xsizehints-height! ((POINTER STRUCT) INT) VOID "set_XSizeHints_height") (foreign-function xsizehints-min_width ((POINTER STRUCT)) INT "get_XSizeHints_min_width") (foreign-function set-xsizehints-min_width! ((POINTER STRUCT) INT) VOID "set_XSizeHints_min_width") (foreign-function xsizehints-min_height ((POINTER STRUCT)) INT "get_XSizeHints_min_height") (foreign-function set-xsizehints-min_height! ((POINTER STRUCT) INT) VOID "set_XSizeHints_min_height") (foreign-function xsizehints-max_width ((POINTER STRUCT)) INT "get_XSizeHints_max_width") (foreign-function set-xsizehints-max_width! ((POINTER STRUCT) INT) VOID "set_XSizeHints_max_width") (foreign-function xsizehints-max_height ((POINTER STRUCT)) INT "get_XSizeHints_max_height") (foreign-function set-xsizehints-max_height! ((POINTER STRUCT) INT) VOID "set_XSizeHints_max_height") (foreign-function xsizehints-width_inc ((POINTER STRUCT)) INT "get_XSizeHints_width_inc") (foreign-function set-xsizehints-width_inc! ((POINTER STRUCT) INT) VOID "set_XSizeHints_width_inc") (foreign-function xsizehints-height_inc ((POINTER STRUCT)) INT "get_XSizeHints_height_inc") (foreign-function set-xsizehints-height_inc! ((POINTER STRUCT) INT) VOID "set_XSizeHints_height_inc") (foreign-function xsizehints-min_aspect-x ((POINTER STRUCT)) INT "get_XSizeHints_min_aspect_x") (foreign-function set-xsizehints-min_aspect-x! ((POINTER STRUCT) INT) VOID "set_XSizeHints_min_aspect_x") (foreign-function xsizehints-min_aspect-y ((POINTER STRUCT)) INT "get_XSizeHints_min_aspect_y") (foreign-function set-xsizehints-min_aspect-y! ((POINTER STRUCT) INT) VOID "set_XSizeHints_min_aspect_y") (foreign-function xsizehints-max_aspect-x ((POINTER STRUCT)) INT "get_XSizeHints_max_aspect_x") (foreign-function set-xsizehints-max_aspect-x! ((POINTER STRUCT) INT) VOID "set_XSizeHints_max_aspect_x") (foreign-function xsizehints-max_aspect-y ((POINTER STRUCT)) INT "get_XSizeHints_max_aspect_y") (foreign-function set-xsizehints-max_aspect-y! ((POINTER STRUCT) INT) VOID "set_XSizeHints_max_aspect_y") (foreign-function xsizehints-base_width ((POINTER STRUCT)) INT "get_XSizeHints_base_width") (foreign-function set-xsizehints-base_width! ((POINTER STRUCT) INT) VOID "set_XSizeHints_base_width") (foreign-function xsizehints-base_height ((POINTER STRUCT)) INT "get_XSizeHints_base_height") (foreign-function set-xsizehints-base_height! ((POINTER STRUCT) INT) VOID "set_XSizeHints_base_height") (foreign-function xsizehints-win_gravity ((POINTER STRUCT)) INT "get_XSizeHints_win_gravity") (foreign-function set-xsizehints-win_gravity! ((POINTER STRUCT) INT) VOID "set_XSizeHints_win_gravity") ;;; STRUCT:XWMHints (foreign-function make-xwmhints () (POINTER STRUCT) "alloc_XWMHints") (foreign-function free-xwmhints ((POINTER STRUCT)) VOID "free_XWMHints") (foreign-function xwmhints-flags ((POINTER STRUCT)) INT "get_XWMHints_flags") (foreign-function set-xwmhints-flags! ((POINTER STRUCT) INT) VOID "set_XWMHints_flags") (foreign-function xwmhints-input ((POINTER STRUCT)) INT "get_XWMHints_input") (foreign-function set-xwmhints-input! ((POINTER STRUCT) INT) VOID "set_XWMHints_input") (foreign-function xwmhints-initial_state ((POINTER STRUCT)) INT "get_XWMHints_initial_state") (foreign-function set-xwmhints-initial_state! ((POINTER STRUCT) INT) VOID "set_XWMHints_initial_state") (foreign-function xwmhints-icon_pixmap ((POINTER STRUCT)) UNSIGNED-LONG "get_XWMHints_icon_pixmap") (foreign-function set-xwmhints-icon_pixmap! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XWMHints_icon_pixmap") (foreign-function xwmhints-icon_window ((POINTER STRUCT)) UNSIGNED-LONG "get_XWMHints_icon_window") (foreign-function set-xwmhints-icon_window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XWMHints_icon_window") (foreign-function xwmhints-icon_x ((POINTER STRUCT)) INT "get_XWMHints_icon_x") (foreign-function set-xwmhints-icon_x! ((POINTER STRUCT) INT) VOID "set_XWMHints_icon_x") (foreign-function xwmhints-icon_y ((POINTER STRUCT)) INT "get_XWMHints_icon_y") (foreign-function set-xwmhints-icon_y! ((POINTER STRUCT) INT) VOID "set_XWMHints_icon_y") (foreign-function xwmhints-icon_mask ((POINTER STRUCT)) UNSIGNED-LONG "get_XWMHints_icon_mask") (foreign-function set-xwmhints-icon_mask! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XWMHints_icon_mask") (foreign-function xwmhints-window_group ((POINTER STRUCT)) UNSIGNED-LONG "get_XWMHints_window_group") (foreign-function set-xwmhints-window_group! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XWMHints_window_group") ;;; STRUCT:XTextProperty (foreign-function make-xtextproperty () (POINTER STRUCT) "alloc_XTextProperty") (foreign-function free-xtextproperty ((POINTER STRUCT)) VOID "free_XTextProperty") (foreign-function xtextproperty-value ((POINTER STRUCT)) (POINTER UNSIGNED-CHAR) "get_XTextProperty_value") (foreign-function set-xtextproperty-value! ((POINTER STRUCT) (POINTER UNSIGNED-CHAR)) VOID "set_XTextProperty_value") (foreign-function xtextproperty-encoding ((POINTER STRUCT)) UNSIGNED-LONG "get_XTextProperty_encoding") (foreign-function set-xtextproperty-encoding! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XTextProperty_encoding") (foreign-function xtextproperty-format ((POINTER STRUCT)) INT "get_XTextProperty_format") (foreign-function set-xtextproperty-format! ((POINTER STRUCT) INT) VOID "set_XTextProperty_format") (foreign-function xtextproperty-nitems ((POINTER STRUCT)) UNSIGNED-LONG "get_XTextProperty_nitems") (foreign-function set-xtextproperty-nitems! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XTextProperty_nitems") ;;; STRUCT:XIconSize (foreign-function make-xiconsize () (POINTER STRUCT) "alloc_XIconSize") (foreign-function free-xiconsize ((POINTER STRUCT)) VOID "free_XIconSize") (foreign-function xiconsize-min_width ((POINTER STRUCT)) INT "get_XIconSize_min_width") (foreign-function set-xiconsize-min_width! ((POINTER STRUCT) INT) VOID "set_XIconSize_min_width") (foreign-function xiconsize-min_height ((POINTER STRUCT)) INT "get_XIconSize_min_height") (foreign-function set-xiconsize-min_height! ((POINTER STRUCT) INT) VOID "set_XIconSize_min_height") (foreign-function xiconsize-max_width ((POINTER STRUCT)) INT "get_XIconSize_max_width") (foreign-function set-xiconsize-max_width! ((POINTER STRUCT) INT) VOID "set_XIconSize_max_width") (foreign-function xiconsize-max_height ((POINTER STRUCT)) INT "get_XIconSize_max_height") (foreign-function set-xiconsize-max_height! ((POINTER STRUCT) INT) VOID "set_XIconSize_max_height") (foreign-function xiconsize-width_inc ((POINTER STRUCT)) INT "get_XIconSize_width_inc") (foreign-function set-xiconsize-width_inc! ((POINTER STRUCT) INT) VOID "set_XIconSize_width_inc") (foreign-function xiconsize-height_inc ((POINTER STRUCT)) INT "get_XIconSize_height_inc") (foreign-function set-xiconsize-height_inc! ((POINTER STRUCT) INT) VOID "set_XIconSize_height_inc") ;;; STRUCT:XClassHint (foreign-function make-xclasshint () (POINTER STRUCT) "alloc_XClassHint") (foreign-function free-xclasshint ((POINTER STRUCT)) VOID "free_XClassHint") (foreign-function xclasshint-res_name ((POINTER STRUCT)) (POINTER CHAR) "get_XClassHint_res_name") (foreign-function set-xclasshint-res_name! ((POINTER STRUCT) (POINTER CHAR)) VOID "set_XClassHint_res_name") (foreign-function xclasshint-res_class ((POINTER STRUCT)) (POINTER CHAR) "get_XClassHint_res_class") (foreign-function set-xclasshint-res_class! ((POINTER STRUCT) (POINTER CHAR)) VOID "set_XClassHint_res_class") ;;; STRUCT:XComposeStatus (foreign-function make-xcomposestatus () (POINTER STRUCT) "alloc_XComposeStatus") (foreign-function free-xcomposestatus ((POINTER STRUCT)) VOID "free_XComposeStatus") (foreign-function xcomposestatus-compose_ptr ((POINTER STRUCT)) (POINTER CHAR) "get_XComposeStatus_compose_ptr") (foreign-function set-xcomposestatus-compose_ptr! ((POINTER STRUCT) (POINTER CHAR)) VOID "set_XComposeStatus_compose_ptr") (foreign-function xcomposestatus-chars_matched ((POINTER STRUCT)) INT "get_XComposeStatus_chars_matched") (foreign-function set-xcomposestatus-chars_matched! ((POINTER STRUCT) INT) VOID "set_XComposeStatus_chars_matched") ;;; STRUCT:XVisualInfo (foreign-function make-xvisualinfo () (POINTER STRUCT) "alloc_XVisualInfo") (foreign-function free-xvisualinfo ((POINTER STRUCT)) VOID "free_XVisualInfo") (foreign-function xvisualinfo-visual ((POINTER STRUCT)) (POINTER STRUCT) "get_XVisualInfo_visual") (foreign-function set-xvisualinfo-visual! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XVisualInfo_visual") (foreign-function xvisualinfo-visualid ((POINTER STRUCT)) UNSIGNED-LONG "get_XVisualInfo_visualid") (foreign-function set-xvisualinfo-visualid! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XVisualInfo_visualid") (foreign-function xvisualinfo-screen ((POINTER STRUCT)) INT "get_XVisualInfo_screen") (foreign-function set-xvisualinfo-screen! ((POINTER STRUCT) INT) VOID "set_XVisualInfo_screen") (foreign-function xvisualinfo-depth ((POINTER STRUCT)) INT "get_XVisualInfo_depth") (foreign-function set-xvisualinfo-depth! ((POINTER STRUCT) INT) VOID "set_XVisualInfo_depth") (foreign-function xvisualinfo-class ((POINTER STRUCT)) INT "get_XVisualInfo_class") (foreign-function set-xvisualinfo-class! ((POINTER STRUCT) INT) VOID "set_XVisualInfo_class") (foreign-function xvisualinfo-red_mask ((POINTER STRUCT)) UNSIGNED-LONG "get_XVisualInfo_red_mask") (foreign-function set-xvisualinfo-red_mask! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XVisualInfo_red_mask") (foreign-function xvisualinfo-green_mask ((POINTER STRUCT)) UNSIGNED-LONG "get_XVisualInfo_green_mask") (foreign-function set-xvisualinfo-green_mask! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XVisualInfo_green_mask") (foreign-function xvisualinfo-blue_mask ((POINTER STRUCT)) UNSIGNED-LONG "get_XVisualInfo_blue_mask") (foreign-function set-xvisualinfo-blue_mask! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XVisualInfo_blue_mask") (foreign-function xvisualinfo-colormap_size ((POINTER STRUCT)) INT "get_XVisualInfo_colormap_size") (foreign-function set-xvisualinfo-colormap_size! ((POINTER STRUCT) INT) VOID "set_XVisualInfo_colormap_size") (foreign-function xvisualinfo-bits_per_rgb ((POINTER STRUCT)) INT "get_XVisualInfo_bits_per_rgb") (foreign-function set-xvisualinfo-bits_per_rgb! ((POINTER STRUCT) INT) VOID "set_XVisualInfo_bits_per_rgb") ;;; STRUCT:XStandardColormap (foreign-function make-xstandardcolormap () (POINTER STRUCT) "alloc_XStandardColormap") (foreign-function free-xstandardcolormap ((POINTER STRUCT)) VOID "free_XStandardColormap") (foreign-function xstandardcolormap-colormap ((POINTER STRUCT)) UNSIGNED-LONG "get_XStandardColormap_colormap") (foreign-function set-xstandardcolormap-colormap! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XStandardColormap_colormap") (foreign-function xstandardcolormap-red_max ((POINTER STRUCT)) UNSIGNED-LONG "get_XStandardColormap_red_max") (foreign-function set-xstandardcolormap-red_max! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XStandardColormap_red_max") (foreign-function xstandardcolormap-red_mult ((POINTER STRUCT)) UNSIGNED-LONG "get_XStandardColormap_red_mult") (foreign-function set-xstandardcolormap-red_mult! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XStandardColormap_red_mult") (foreign-function xstandardcolormap-green_max ((POINTER STRUCT)) UNSIGNED-LONG "get_XStandardColormap_green_max") (foreign-function set-xstandardcolormap-green_max! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XStandardColormap_green_max") (foreign-function xstandardcolormap-green_mult ((POINTER STRUCT)) UNSIGNED-LONG "get_XStandardColormap_green_mult") (foreign-function set-xstandardcolormap-green_mult! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XStandardColormap_green_mult") (foreign-function xstandardcolormap-blue_max ((POINTER STRUCT)) UNSIGNED-LONG "get_XStandardColormap_blue_max") (foreign-function set-xstandardcolormap-blue_max! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XStandardColormap_blue_max") (foreign-function xstandardcolormap-blue_mult ((POINTER STRUCT)) UNSIGNED-LONG "get_XStandardColormap_blue_mult") (foreign-function set-xstandardcolormap-blue_mult! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XStandardColormap_blue_mult") (foreign-function xstandardcolormap-base_pixel ((POINTER STRUCT)) UNSIGNED-LONG "get_XStandardColormap_base_pixel") (foreign-function set-xstandardcolormap-base_pixel! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XStandardColormap_base_pixel") (foreign-function xstandardcolormap-visualid ((POINTER STRUCT)) UNSIGNED-LONG "get_XStandardColormap_visualid") (foreign-function set-xstandardcolormap-visualid! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XStandardColormap_visualid") (foreign-function xstandardcolormap-killid ((POINTER STRUCT)) UNSIGNED-LONG "get_XStandardColormap_killid") (foreign-function set-xstandardcolormap-killid! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XStandardColormap_killid") ;;; *** UNIONS *** ;;; UNION:XEvent (foreign-function make-xevent () (POINTER UNION) "alloc_XEvent") (foreign-function free-xevent ((POINTER UNION)) VOID "free_XEvent") (foreign-function xevent-type ((POINTER UNION)) INT "get_XEvent_type") (foreign-function set-xevent-type! ((POINTER UNION) INT) VOID "set_XEvent_type") (foreign-function xevent-xany-type ((POINTER STRUCT)) INT "get_XEvent_xany_type") (foreign-function set-xevent-xany-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xany_type") (foreign-function xevent-xany-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xany_serial") (foreign-function set-xevent-xany-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xany_serial") (foreign-function xevent-xany-send_event ((POINTER STRUCT)) INT "get_XEvent_xany_send_event") (foreign-function set-xevent-xany-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xany_send_event") (foreign-function xevent-xany-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xany_display") (foreign-function set-xevent-xany-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xany_display") (foreign-function xevent-xany-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xany_window") (foreign-function set-xevent-xany-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xany_window") (foreign-function xevent-xkey-type ((POINTER STRUCT)) INT "get_XEvent_xkey_type") (foreign-function set-xevent-xkey-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xkey_type") (foreign-function xevent-xkey-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xkey_serial") (foreign-function set-xevent-xkey-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xkey_serial") (foreign-function xevent-xkey-send_event ((POINTER STRUCT)) INT "get_XEvent_xkey_send_event") (foreign-function set-xevent-xkey-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xkey_send_event") (foreign-function xevent-xkey-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xkey_display") (foreign-function set-xevent-xkey-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xkey_display") (foreign-function xevent-xkey-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xkey_window") (foreign-function set-xevent-xkey-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xkey_window") (foreign-function xevent-xkey-root ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xkey_root") (foreign-function set-xevent-xkey-root! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xkey_root") (foreign-function xevent-xkey-subwindow ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xkey_subwindow") (foreign-function set-xevent-xkey-subwindow! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xkey_subwindow") (foreign-function xevent-xkey-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xkey_time") (foreign-function set-xevent-xkey-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xkey_time") (foreign-function xevent-xkey-x ((POINTER STRUCT)) INT "get_XEvent_xkey_x") (foreign-function set-xevent-xkey-x! ((POINTER STRUCT) INT) VOID "set_XEvent_xkey_x") (foreign-function xevent-xkey-y ((POINTER STRUCT)) INT "get_XEvent_xkey_y") (foreign-function set-xevent-xkey-y! ((POINTER STRUCT) INT) VOID "set_XEvent_xkey_y") (foreign-function xevent-xkey-x_root ((POINTER STRUCT)) INT "get_XEvent_xkey_x_root") (foreign-function set-xevent-xkey-x_root! ((POINTER STRUCT) INT) VOID "set_XEvent_xkey_x_root") (foreign-function xevent-xkey-y_root ((POINTER STRUCT)) INT "get_XEvent_xkey_y_root") (foreign-function set-xevent-xkey-y_root! ((POINTER STRUCT) INT) VOID "set_XEvent_xkey_y_root") (foreign-function xevent-xkey-state ((POINTER STRUCT)) UNSIGNED-INT "get_XEvent_xkey_state") (foreign-function set-xevent-xkey-state! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XEvent_xkey_state") (foreign-function xevent-xkey-keycode ((POINTER STRUCT)) UNSIGNED-INT "get_XEvent_xkey_keycode") (foreign-function set-xevent-xkey-keycode! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XEvent_xkey_keycode") (foreign-function xevent-xkey-same_screen ((POINTER STRUCT)) INT "get_XEvent_xkey_same_screen") (foreign-function set-xevent-xkey-same_screen! ((POINTER STRUCT) INT) VOID "set_XEvent_xkey_same_screen") (foreign-function xevent-xbutton-type ((POINTER STRUCT)) INT "get_XEvent_xbutton_type") (foreign-function set-xevent-xbutton-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xbutton_type") (foreign-function xevent-xbutton-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xbutton_serial") (foreign-function set-xevent-xbutton-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xbutton_serial") (foreign-function xevent-xbutton-send_event ((POINTER STRUCT)) INT "get_XEvent_xbutton_send_event") (foreign-function set-xevent-xbutton-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xbutton_send_event") (foreign-function xevent-xbutton-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xbutton_display") (foreign-function set-xevent-xbutton-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xbutton_display") (foreign-function xevent-xbutton-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xbutton_window") (foreign-function set-xevent-xbutton-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xbutton_window") (foreign-function xevent-xbutton-root ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xbutton_root") (foreign-function set-xevent-xbutton-root! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xbutton_root") (foreign-function xevent-xbutton-subwindow ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xbutton_subwindow") (foreign-function set-xevent-xbutton-subwindow! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xbutton_subwindow") (foreign-function xevent-xbutton-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xbutton_time") (foreign-function set-xevent-xbutton-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xbutton_time") (foreign-function xevent-xbutton-x ((POINTER STRUCT)) INT "get_XEvent_xbutton_x") (foreign-function set-xevent-xbutton-x! ((POINTER STRUCT) INT) VOID "set_XEvent_xbutton_x") (foreign-function xevent-xbutton-y ((POINTER STRUCT)) INT "get_XEvent_xbutton_y") (foreign-function set-xevent-xbutton-y! ((POINTER STRUCT) INT) VOID "set_XEvent_xbutton_y") (foreign-function xevent-xbutton-x_root ((POINTER STRUCT)) INT "get_XEvent_xbutton_x_root") (foreign-function set-xevent-xbutton-x_root! ((POINTER STRUCT) INT) VOID "set_XEvent_xbutton_x_root") (foreign-function xevent-xbutton-y_root ((POINTER STRUCT)) INT "get_XEvent_xbutton_y_root") (foreign-function set-xevent-xbutton-y_root! ((POINTER STRUCT) INT) VOID "set_XEvent_xbutton_y_root") (foreign-function xevent-xbutton-state ((POINTER STRUCT)) UNSIGNED-INT "get_XEvent_xbutton_state") (foreign-function set-xevent-xbutton-state! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XEvent_xbutton_state") (foreign-function xevent-xbutton-button ((POINTER STRUCT)) UNSIGNED-INT "get_XEvent_xbutton_button") (foreign-function set-xevent-xbutton-button! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XEvent_xbutton_button") (foreign-function xevent-xbutton-same_screen ((POINTER STRUCT)) INT "get_XEvent_xbutton_same_screen") (foreign-function set-xevent-xbutton-same_screen! ((POINTER STRUCT) INT) VOID "set_XEvent_xbutton_same_screen") (foreign-function xevent-xmotion-type ((POINTER STRUCT)) INT "get_XEvent_xmotion_type") (foreign-function set-xevent-xmotion-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xmotion_type") (foreign-function xevent-xmotion-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xmotion_serial") (foreign-function set-xevent-xmotion-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xmotion_serial") (foreign-function xevent-xmotion-send_event ((POINTER STRUCT)) INT "get_XEvent_xmotion_send_event") (foreign-function set-xevent-xmotion-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xmotion_send_event") (foreign-function xevent-xmotion-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xmotion_display") (foreign-function set-xevent-xmotion-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xmotion_display") (foreign-function xevent-xmotion-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xmotion_window") (foreign-function set-xevent-xmotion-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xmotion_window") (foreign-function xevent-xmotion-root ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xmotion_root") (foreign-function set-xevent-xmotion-root! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xmotion_root") (foreign-function xevent-xmotion-subwindow ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xmotion_subwindow") (foreign-function set-xevent-xmotion-subwindow! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xmotion_subwindow") (foreign-function xevent-xmotion-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xmotion_time") (foreign-function set-xevent-xmotion-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xmotion_time") (foreign-function xevent-xmotion-x ((POINTER STRUCT)) INT "get_XEvent_xmotion_x") (foreign-function set-xevent-xmotion-x! ((POINTER STRUCT) INT) VOID "set_XEvent_xmotion_x") (foreign-function xevent-xmotion-y ((POINTER STRUCT)) INT "get_XEvent_xmotion_y") (foreign-function set-xevent-xmotion-y! ((POINTER STRUCT) INT) VOID "set_XEvent_xmotion_y") (foreign-function xevent-xmotion-x_root ((POINTER STRUCT)) INT "get_XEvent_xmotion_x_root") (foreign-function set-xevent-xmotion-x_root! ((POINTER STRUCT) INT) VOID "set_XEvent_xmotion_x_root") (foreign-function xevent-xmotion-y_root ((POINTER STRUCT)) INT "get_XEvent_xmotion_y_root") (foreign-function set-xevent-xmotion-y_root! ((POINTER STRUCT) INT) VOID "set_XEvent_xmotion_y_root") (foreign-function xevent-xmotion-state ((POINTER STRUCT)) UNSIGNED-INT "get_XEvent_xmotion_state") (foreign-function set-xevent-xmotion-state! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XEvent_xmotion_state") (foreign-function xevent-xmotion-is_hint ((POINTER STRUCT)) CHAR "get_XEvent_xmotion_is_hint") (foreign-function set-xevent-xmotion-is_hint! ((POINTER STRUCT) CHAR) VOID "set_XEvent_xmotion_is_hint") (foreign-function xevent-xmotion-same_screen ((POINTER STRUCT)) INT "get_XEvent_xmotion_same_screen") (foreign-function set-xevent-xmotion-same_screen! ((POINTER STRUCT) INT) VOID "set_XEvent_xmotion_same_screen") (foreign-function xevent-xcrossing-type ((POINTER STRUCT)) INT "get_XEvent_xcrossing_type") (foreign-function set-xevent-xcrossing-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xcrossing_type") (foreign-function xevent-xcrossing-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xcrossing_serial") (foreign-function set-xevent-xcrossing-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xcrossing_serial") (foreign-function xevent-xcrossing-send_event ((POINTER STRUCT)) INT "get_XEvent_xcrossing_send_event") (foreign-function set-xevent-xcrossing-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xcrossing_send_event") (foreign-function xevent-xcrossing-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xcrossing_display") (foreign-function set-xevent-xcrossing-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xcrossing_display") (foreign-function xevent-xcrossing-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xcrossing_window") (foreign-function set-xevent-xcrossing-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xcrossing_window") (foreign-function xevent-xcrossing-root ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xcrossing_root") (foreign-function set-xevent-xcrossing-root! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xcrossing_root") (foreign-function xevent-xcrossing-subwindow ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xcrossing_subwindow") (foreign-function set-xevent-xcrossing-subwindow! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xcrossing_subwindow") (foreign-function xevent-xcrossing-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xcrossing_time") (foreign-function set-xevent-xcrossing-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xcrossing_time") (foreign-function xevent-xcrossing-x ((POINTER STRUCT)) INT "get_XEvent_xcrossing_x") (foreign-function set-xevent-xcrossing-x! ((POINTER STRUCT) INT) VOID "set_XEvent_xcrossing_x") (foreign-function xevent-xcrossing-y ((POINTER STRUCT)) INT "get_XEvent_xcrossing_y") (foreign-function set-xevent-xcrossing-y! ((POINTER STRUCT) INT) VOID "set_XEvent_xcrossing_y") (foreign-function xevent-xcrossing-x_root ((POINTER STRUCT)) INT "get_XEvent_xcrossing_x_root") (foreign-function set-xevent-xcrossing-x_root! ((POINTER STRUCT) INT) VOID "set_XEvent_xcrossing_x_root") (foreign-function xevent-xcrossing-y_root ((POINTER STRUCT)) INT "get_XEvent_xcrossing_y_root") (foreign-function set-xevent-xcrossing-y_root! ((POINTER STRUCT) INT) VOID "set_XEvent_xcrossing_y_root") (foreign-function xevent-xcrossing-mode ((POINTER STRUCT)) INT "get_XEvent_xcrossing_mode") (foreign-function set-xevent-xcrossing-mode! ((POINTER STRUCT) INT) VOID "set_XEvent_xcrossing_mode") (foreign-function xevent-xcrossing-detail ((POINTER STRUCT)) INT "get_XEvent_xcrossing_detail") (foreign-function set-xevent-xcrossing-detail! ((POINTER STRUCT) INT) VOID "set_XEvent_xcrossing_detail") (foreign-function xevent-xcrossing-same_screen ((POINTER STRUCT)) INT "get_XEvent_xcrossing_same_screen") (foreign-function set-xevent-xcrossing-same_screen! ((POINTER STRUCT) INT) VOID "set_XEvent_xcrossing_same_screen") (foreign-function xevent-xcrossing-focus ((POINTER STRUCT)) INT "get_XEvent_xcrossing_focus") (foreign-function set-xevent-xcrossing-focus! ((POINTER STRUCT) INT) VOID "set_XEvent_xcrossing_focus") (foreign-function xevent-xcrossing-state ((POINTER STRUCT)) UNSIGNED-INT "get_XEvent_xcrossing_state") (foreign-function set-xevent-xcrossing-state! ((POINTER STRUCT) UNSIGNED-INT) VOID "set_XEvent_xcrossing_state") (foreign-function xevent-xfocus-type ((POINTER STRUCT)) INT "get_XEvent_xfocus_type") (foreign-function set-xevent-xfocus-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xfocus_type") (foreign-function xevent-xfocus-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xfocus_serial") (foreign-function set-xevent-xfocus-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xfocus_serial") (foreign-function xevent-xfocus-send_event ((POINTER STRUCT)) INT "get_XEvent_xfocus_send_event") (foreign-function set-xevent-xfocus-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xfocus_send_event") (foreign-function xevent-xfocus-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xfocus_display") (foreign-function set-xevent-xfocus-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xfocus_display") (foreign-function xevent-xfocus-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xfocus_window") (foreign-function set-xevent-xfocus-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xfocus_window") (foreign-function xevent-xfocus-mode ((POINTER STRUCT)) INT "get_XEvent_xfocus_mode") (foreign-function set-xevent-xfocus-mode! ((POINTER STRUCT) INT) VOID "set_XEvent_xfocus_mode") (foreign-function xevent-xfocus-detail ((POINTER STRUCT)) INT "get_XEvent_xfocus_detail") (foreign-function set-xevent-xfocus-detail! ((POINTER STRUCT) INT) VOID "set_XEvent_xfocus_detail") (foreign-function xevent-xexpose-type ((POINTER STRUCT)) INT "get_XEvent_xexpose_type") (foreign-function set-xevent-xexpose-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xexpose_type") (foreign-function xevent-xexpose-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xexpose_serial") (foreign-function set-xevent-xexpose-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xexpose_serial") (foreign-function xevent-xexpose-send_event ((POINTER STRUCT)) INT "get_XEvent_xexpose_send_event") (foreign-function set-xevent-xexpose-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xexpose_send_event") (foreign-function xevent-xexpose-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xexpose_display") (foreign-function set-xevent-xexpose-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xexpose_display") (foreign-function xevent-xexpose-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xexpose_window") (foreign-function set-xevent-xexpose-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xexpose_window") (foreign-function xevent-xexpose-x ((POINTER STRUCT)) INT "get_XEvent_xexpose_x") (foreign-function set-xevent-xexpose-x! ((POINTER STRUCT) INT) VOID "set_XEvent_xexpose_x") (foreign-function xevent-xexpose-y ((POINTER STRUCT)) INT "get_XEvent_xexpose_y") (foreign-function set-xevent-xexpose-y! ((POINTER STRUCT) INT) VOID "set_XEvent_xexpose_y") (foreign-function xevent-xexpose-width ((POINTER STRUCT)) INT "get_XEvent_xexpose_width") (foreign-function set-xevent-xexpose-width! ((POINTER STRUCT) INT) VOID "set_XEvent_xexpose_width") (foreign-function xevent-xexpose-height ((POINTER STRUCT)) INT "get_XEvent_xexpose_height") (foreign-function set-xevent-xexpose-height! ((POINTER STRUCT) INT) VOID "set_XEvent_xexpose_height") (foreign-function xevent-xexpose-count ((POINTER STRUCT)) INT "get_XEvent_xexpose_count") (foreign-function set-xevent-xexpose-count! ((POINTER STRUCT) INT) VOID "set_XEvent_xexpose_count") (foreign-function xevent-xgraphicsexpose-type ((POINTER STRUCT)) INT "get_XEvent_xgraphicsexpose_type") (foreign-function set-xevent-xgraphicsexpose-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xgraphicsexpose_type") (foreign-function xevent-xgraphicsexpose-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xgraphicsexpose_serial") (foreign-function set-xevent-xgraphicsexpose-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xgraphicsexpose_serial") (foreign-function xevent-xgraphicsexpose-send_event ((POINTER STRUCT)) INT "get_XEvent_xgraphicsexpose_send_event") (foreign-function set-xevent-xgraphicsexpose-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xgraphicsexpose_send_event") (foreign-function xevent-xgraphicsexpose-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xgraphicsexpose_display") (foreign-function set-xevent-xgraphicsexpose-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xgraphicsexpose_display") (foreign-function xevent-xgraphicsexpose-drawable ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xgraphicsexpose_drawable") (foreign-function set-xevent-xgraphicsexpose-drawable! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xgraphicsexpose_drawable") (foreign-function xevent-xgraphicsexpose-x ((POINTER STRUCT)) INT "get_XEvent_xgraphicsexpose_x") (foreign-function set-xevent-xgraphicsexpose-x! ((POINTER STRUCT) INT) VOID "set_XEvent_xgraphicsexpose_x") (foreign-function xevent-xgraphicsexpose-y ((POINTER STRUCT)) INT "get_XEvent_xgraphicsexpose_y") (foreign-function set-xevent-xgraphicsexpose-y! ((POINTER STRUCT) INT) VOID "set_XEvent_xgraphicsexpose_y") (foreign-function xevent-xgraphicsexpose-width ((POINTER STRUCT)) INT "get_XEvent_xgraphicsexpose_width") (foreign-function set-xevent-xgraphicsexpose-width! ((POINTER STRUCT) INT) VOID "set_XEvent_xgraphicsexpose_width") (foreign-function xevent-xgraphicsexpose-height ((POINTER STRUCT)) INT "get_XEvent_xgraphicsexpose_height") (foreign-function set-xevent-xgraphicsexpose-height! ((POINTER STRUCT) INT) VOID "set_XEvent_xgraphicsexpose_height") (foreign-function xevent-xgraphicsexpose-count ((POINTER STRUCT)) INT "get_XEvent_xgraphicsexpose_count") (foreign-function set-xevent-xgraphicsexpose-count! ((POINTER STRUCT) INT) VOID "set_XEvent_xgraphicsexpose_count") (foreign-function xevent-xgraphicsexpose-major_code ((POINTER STRUCT)) INT "get_XEvent_xgraphicsexpose_major_code") (foreign-function set-xevent-xgraphicsexpose-major_code! ((POINTER STRUCT) INT) VOID "set_XEvent_xgraphicsexpose_major_code") (foreign-function xevent-xgraphicsexpose-minor_code ((POINTER STRUCT)) INT "get_XEvent_xgraphicsexpose_minor_code") (foreign-function set-xevent-xgraphicsexpose-minor_code! ((POINTER STRUCT) INT) VOID "set_XEvent_xgraphicsexpose_minor_code") (foreign-function xevent-xnoexpose-type ((POINTER STRUCT)) INT "get_XEvent_xnoexpose_type") (foreign-function set-xevent-xnoexpose-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xnoexpose_type") (foreign-function xevent-xnoexpose-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xnoexpose_serial") (foreign-function set-xevent-xnoexpose-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xnoexpose_serial") (foreign-function xevent-xnoexpose-send_event ((POINTER STRUCT)) INT "get_XEvent_xnoexpose_send_event") (foreign-function set-xevent-xnoexpose-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xnoexpose_send_event") (foreign-function xevent-xnoexpose-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xnoexpose_display") (foreign-function set-xevent-xnoexpose-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xnoexpose_display") (foreign-function xevent-xnoexpose-drawable ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xnoexpose_drawable") (foreign-function set-xevent-xnoexpose-drawable! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xnoexpose_drawable") (foreign-function xevent-xnoexpose-major_code ((POINTER STRUCT)) INT "get_XEvent_xnoexpose_major_code") (foreign-function set-xevent-xnoexpose-major_code! ((POINTER STRUCT) INT) VOID "set_XEvent_xnoexpose_major_code") (foreign-function xevent-xnoexpose-minor_code ((POINTER STRUCT)) INT "get_XEvent_xnoexpose_minor_code") (foreign-function set-xevent-xnoexpose-minor_code! ((POINTER STRUCT) INT) VOID "set_XEvent_xnoexpose_minor_code") (foreign-function xevent-xvisibility-type ((POINTER STRUCT)) INT "get_XEvent_xvisibility_type") (foreign-function set-xevent-xvisibility-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xvisibility_type") (foreign-function xevent-xvisibility-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xvisibility_serial") (foreign-function set-xevent-xvisibility-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xvisibility_serial") (foreign-function xevent-xvisibility-send_event ((POINTER STRUCT)) INT "get_XEvent_xvisibility_send_event") (foreign-function set-xevent-xvisibility-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xvisibility_send_event") (foreign-function xevent-xvisibility-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xvisibility_display") (foreign-function set-xevent-xvisibility-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xvisibility_display") (foreign-function xevent-xvisibility-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xvisibility_window") (foreign-function set-xevent-xvisibility-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xvisibility_window") (foreign-function xevent-xvisibility-state ((POINTER STRUCT)) INT "get_XEvent_xvisibility_state") (foreign-function set-xevent-xvisibility-state! ((POINTER STRUCT) INT) VOID "set_XEvent_xvisibility_state") (foreign-function xevent-xcreatewindow-type ((POINTER STRUCT)) INT "get_XEvent_xcreatewindow_type") (foreign-function set-xevent-xcreatewindow-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xcreatewindow_type") (foreign-function xevent-xcreatewindow-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xcreatewindow_serial") (foreign-function set-xevent-xcreatewindow-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xcreatewindow_serial") (foreign-function xevent-xcreatewindow-send_event ((POINTER STRUCT)) INT "get_XEvent_xcreatewindow_send_event") (foreign-function set-xevent-xcreatewindow-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xcreatewindow_send_event") (foreign-function xevent-xcreatewindow-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xcreatewindow_display") (foreign-function set-xevent-xcreatewindow-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xcreatewindow_display") (foreign-function xevent-xcreatewindow-parent ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xcreatewindow_parent") (foreign-function set-xevent-xcreatewindow-parent! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xcreatewindow_parent") (foreign-function xevent-xcreatewindow-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xcreatewindow_window") (foreign-function set-xevent-xcreatewindow-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xcreatewindow_window") (foreign-function xevent-xcreatewindow-x ((POINTER STRUCT)) INT "get_XEvent_xcreatewindow_x") (foreign-function set-xevent-xcreatewindow-x! ((POINTER STRUCT) INT) VOID "set_XEvent_xcreatewindow_x") (foreign-function xevent-xcreatewindow-y ((POINTER STRUCT)) INT "get_XEvent_xcreatewindow_y") (foreign-function set-xevent-xcreatewindow-y! ((POINTER STRUCT) INT) VOID "set_XEvent_xcreatewindow_y") (foreign-function xevent-xcreatewindow-width ((POINTER STRUCT)) INT "get_XEvent_xcreatewindow_width") (foreign-function set-xevent-xcreatewindow-width! ((POINTER STRUCT) INT) VOID "set_XEvent_xcreatewindow_width") (foreign-function xevent-xcreatewindow-height ((POINTER STRUCT)) INT "get_XEvent_xcreatewindow_height") (foreign-function set-xevent-xcreatewindow-height! ((POINTER STRUCT) INT) VOID "set_XEvent_xcreatewindow_height") (foreign-function xevent-xcreatewindow-border_width ((POINTER STRUCT)) INT "get_XEvent_xcreatewindow_border_width") (foreign-function set-xevent-xcreatewindow-border_width! ((POINTER STRUCT) INT) VOID "set_XEvent_xcreatewindow_border_width") (foreign-function xevent-xcreatewindow-override_redirect ((POINTER STRUCT)) INT "get_XEvent_xcreatewindow_override_redirect") (foreign-function set-xevent-xcreatewindow-override_redirect! ((POINTER STRUCT) INT) VOID "set_XEvent_xcreatewindow_override_redirect") (foreign-function xevent-xdestroywindow-type ((POINTER STRUCT)) INT "get_XEvent_xdestroywindow_type") (foreign-function set-xevent-xdestroywindow-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xdestroywindow_type") (foreign-function xevent-xdestroywindow-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xdestroywindow_serial") (foreign-function set-xevent-xdestroywindow-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xdestroywindow_serial") (foreign-function xevent-xdestroywindow-send_event ((POINTER STRUCT)) INT "get_XEvent_xdestroywindow_send_event") (foreign-function set-xevent-xdestroywindow-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xdestroywindow_send_event") (foreign-function xevent-xdestroywindow-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xdestroywindow_display") (foreign-function set-xevent-xdestroywindow-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xdestroywindow_display") (foreign-function xevent-xdestroywindow-event ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xdestroywindow_event") (foreign-function set-xevent-xdestroywindow-event! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xdestroywindow_event") (foreign-function xevent-xdestroywindow-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xdestroywindow_window") (foreign-function set-xevent-xdestroywindow-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xdestroywindow_window") (foreign-function xevent-xunmap-type ((POINTER STRUCT)) INT "get_XEvent_xunmap_type") (foreign-function set-xevent-xunmap-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xunmap_type") (foreign-function xevent-xunmap-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xunmap_serial") (foreign-function set-xevent-xunmap-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xunmap_serial") (foreign-function xevent-xunmap-send_event ((POINTER STRUCT)) INT "get_XEvent_xunmap_send_event") (foreign-function set-xevent-xunmap-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xunmap_send_event") (foreign-function xevent-xunmap-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xunmap_display") (foreign-function set-xevent-xunmap-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xunmap_display") (foreign-function xevent-xunmap-event ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xunmap_event") (foreign-function set-xevent-xunmap-event! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xunmap_event") (foreign-function xevent-xunmap-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xunmap_window") (foreign-function set-xevent-xunmap-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xunmap_window") (foreign-function xevent-xunmap-from_configure ((POINTER STRUCT)) INT "get_XEvent_xunmap_from_configure") (foreign-function set-xevent-xunmap-from_configure! ((POINTER STRUCT) INT) VOID "set_XEvent_xunmap_from_configure") (foreign-function xevent-xmap-type ((POINTER STRUCT)) INT "get_XEvent_xmap_type") (foreign-function set-xevent-xmap-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xmap_type") (foreign-function xevent-xmap-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xmap_serial") (foreign-function set-xevent-xmap-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xmap_serial") (foreign-function xevent-xmap-send_event ((POINTER STRUCT)) INT "get_XEvent_xmap_send_event") (foreign-function set-xevent-xmap-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xmap_send_event") (foreign-function xevent-xmap-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xmap_display") (foreign-function set-xevent-xmap-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xmap_display") (foreign-function xevent-xmap-event ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xmap_event") (foreign-function set-xevent-xmap-event! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xmap_event") (foreign-function xevent-xmap-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xmap_window") (foreign-function set-xevent-xmap-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xmap_window") (foreign-function xevent-xmap-override_redirect ((POINTER STRUCT)) INT "get_XEvent_xmap_override_redirect") (foreign-function set-xevent-xmap-override_redirect! ((POINTER STRUCT) INT) VOID "set_XEvent_xmap_override_redirect") (foreign-function xevent-xmaprequest-type ((POINTER STRUCT)) INT "get_XEvent_xmaprequest_type") (foreign-function set-xevent-xmaprequest-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xmaprequest_type") (foreign-function xevent-xmaprequest-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xmaprequest_serial") (foreign-function set-xevent-xmaprequest-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xmaprequest_serial") (foreign-function xevent-xmaprequest-send_event ((POINTER STRUCT)) INT "get_XEvent_xmaprequest_send_event") (foreign-function set-xevent-xmaprequest-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xmaprequest_send_event") (foreign-function xevent-xmaprequest-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xmaprequest_display") (foreign-function set-xevent-xmaprequest-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xmaprequest_display") (foreign-function xevent-xmaprequest-parent ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xmaprequest_parent") (foreign-function set-xevent-xmaprequest-parent! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xmaprequest_parent") (foreign-function xevent-xmaprequest-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xmaprequest_window") (foreign-function set-xevent-xmaprequest-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xmaprequest_window") (foreign-function xevent-xreparent-type ((POINTER STRUCT)) INT "get_XEvent_xreparent_type") (foreign-function set-xevent-xreparent-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xreparent_type") (foreign-function xevent-xreparent-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xreparent_serial") (foreign-function set-xevent-xreparent-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xreparent_serial") (foreign-function xevent-xreparent-send_event ((POINTER STRUCT)) INT "get_XEvent_xreparent_send_event") (foreign-function set-xevent-xreparent-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xreparent_send_event") (foreign-function xevent-xreparent-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xreparent_display") (foreign-function set-xevent-xreparent-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xreparent_display") (foreign-function xevent-xreparent-event ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xreparent_event") (foreign-function set-xevent-xreparent-event! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xreparent_event") (foreign-function xevent-xreparent-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xreparent_window") (foreign-function set-xevent-xreparent-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xreparent_window") (foreign-function xevent-xreparent-parent ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xreparent_parent") (foreign-function set-xevent-xreparent-parent! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xreparent_parent") (foreign-function xevent-xreparent-x ((POINTER STRUCT)) INT "get_XEvent_xreparent_x") (foreign-function set-xevent-xreparent-x! ((POINTER STRUCT) INT) VOID "set_XEvent_xreparent_x") (foreign-function xevent-xreparent-y ((POINTER STRUCT)) INT "get_XEvent_xreparent_y") (foreign-function set-xevent-xreparent-y! ((POINTER STRUCT) INT) VOID "set_XEvent_xreparent_y") (foreign-function xevent-xreparent-override_redirect ((POINTER STRUCT)) INT "get_XEvent_xreparent_override_redirect") (foreign-function set-xevent-xreparent-override_redirect! ((POINTER STRUCT) INT) VOID "set_XEvent_xreparent_override_redirect") (foreign-function xevent-xconfigure-type ((POINTER STRUCT)) INT "get_XEvent_xconfigure_type") (foreign-function set-xevent-xconfigure-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xconfigure_type") (foreign-function xevent-xconfigure-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xconfigure_serial") (foreign-function set-xevent-xconfigure-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xconfigure_serial") (foreign-function xevent-xconfigure-send_event ((POINTER STRUCT)) INT "get_XEvent_xconfigure_send_event") (foreign-function set-xevent-xconfigure-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xconfigure_send_event") (foreign-function xevent-xconfigure-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xconfigure_display") (foreign-function set-xevent-xconfigure-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xconfigure_display") (foreign-function xevent-xconfigure-event ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xconfigure_event") (foreign-function set-xevent-xconfigure-event! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xconfigure_event") (foreign-function xevent-xconfigure-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xconfigure_window") (foreign-function set-xevent-xconfigure-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xconfigure_window") (foreign-function xevent-xconfigure-x ((POINTER STRUCT)) INT "get_XEvent_xconfigure_x") (foreign-function set-xevent-xconfigure-x! ((POINTER STRUCT) INT) VOID "set_XEvent_xconfigure_x") (foreign-function xevent-xconfigure-y ((POINTER STRUCT)) INT "get_XEvent_xconfigure_y") (foreign-function set-xevent-xconfigure-y! ((POINTER STRUCT) INT) VOID "set_XEvent_xconfigure_y") (foreign-function xevent-xconfigure-width ((POINTER STRUCT)) INT "get_XEvent_xconfigure_width") (foreign-function set-xevent-xconfigure-width! ((POINTER STRUCT) INT) VOID "set_XEvent_xconfigure_width") (foreign-function xevent-xconfigure-height ((POINTER STRUCT)) INT "get_XEvent_xconfigure_height") (foreign-function set-xevent-xconfigure-height! ((POINTER STRUCT) INT) VOID "set_XEvent_xconfigure_height") (foreign-function xevent-xconfigure-border_width ((POINTER STRUCT)) INT "get_XEvent_xconfigure_border_width") (foreign-function set-xevent-xconfigure-border_width! ((POINTER STRUCT) INT) VOID "set_XEvent_xconfigure_border_width") (foreign-function xevent-xconfigure-above ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xconfigure_above") (foreign-function set-xevent-xconfigure-above! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xconfigure_above") (foreign-function xevent-xconfigure-override_redirect ((POINTER STRUCT)) INT "get_XEvent_xconfigure_override_redirect") (foreign-function set-xevent-xconfigure-override_redirect! ((POINTER STRUCT) INT) VOID "set_XEvent_xconfigure_override_redirect") (foreign-function xevent-xgravity-type ((POINTER STRUCT)) INT "get_XEvent_xgravity_type") (foreign-function set-xevent-xgravity-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xgravity_type") (foreign-function xevent-xgravity-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xgravity_serial") (foreign-function set-xevent-xgravity-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xgravity_serial") (foreign-function xevent-xgravity-send_event ((POINTER STRUCT)) INT "get_XEvent_xgravity_send_event") (foreign-function set-xevent-xgravity-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xgravity_send_event") (foreign-function xevent-xgravity-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xgravity_display") (foreign-function set-xevent-xgravity-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xgravity_display") (foreign-function xevent-xgravity-event ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xgravity_event") (foreign-function set-xevent-xgravity-event! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xgravity_event") (foreign-function xevent-xgravity-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xgravity_window") (foreign-function set-xevent-xgravity-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xgravity_window") (foreign-function xevent-xgravity-x ((POINTER STRUCT)) INT "get_XEvent_xgravity_x") (foreign-function set-xevent-xgravity-x! ((POINTER STRUCT) INT) VOID "set_XEvent_xgravity_x") (foreign-function xevent-xgravity-y ((POINTER STRUCT)) INT "get_XEvent_xgravity_y") (foreign-function set-xevent-xgravity-y! ((POINTER STRUCT) INT) VOID "set_XEvent_xgravity_y") (foreign-function xevent-xresizerequest-type ((POINTER STRUCT)) INT "get_XEvent_xresizerequest_type") (foreign-function set-xevent-xresizerequest-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xresizerequest_type") (foreign-function xevent-xresizerequest-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xresizerequest_serial") (foreign-function set-xevent-xresizerequest-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xresizerequest_serial") (foreign-function xevent-xresizerequest-send_event ((POINTER STRUCT)) INT "get_XEvent_xresizerequest_send_event") (foreign-function set-xevent-xresizerequest-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xresizerequest_send_event") (foreign-function xevent-xresizerequest-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xresizerequest_display") (foreign-function set-xevent-xresizerequest-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xresizerequest_display") (foreign-function xevent-xresizerequest-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xresizerequest_window") (foreign-function set-xevent-xresizerequest-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xresizerequest_window") (foreign-function xevent-xresizerequest-width ((POINTER STRUCT)) INT "get_XEvent_xresizerequest_width") (foreign-function set-xevent-xresizerequest-width! ((POINTER STRUCT) INT) VOID "set_XEvent_xresizerequest_width") (foreign-function xevent-xresizerequest-height ((POINTER STRUCT)) INT "get_XEvent_xresizerequest_height") (foreign-function set-xevent-xresizerequest-height! ((POINTER STRUCT) INT) VOID "set_XEvent_xresizerequest_height") (foreign-function xevent-xconfigurerequest-type ((POINTER STRUCT)) INT "get_XEvent_xconfigurerequest_type") (foreign-function set-xevent-xconfigurerequest-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xconfigurerequest_type") (foreign-function xevent-xconfigurerequest-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xconfigurerequest_serial") (foreign-function set-xevent-xconfigurerequest-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xconfigurerequest_serial") (foreign-function xevent-xconfigurerequest-send_event ((POINTER STRUCT)) INT "get_XEvent_xconfigurerequest_send_event") (foreign-function set-xevent-xconfigurerequest-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xconfigurerequest_send_event") (foreign-function xevent-xconfigurerequest-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xconfigurerequest_display") (foreign-function set-xevent-xconfigurerequest-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xconfigurerequest_display") (foreign-function xevent-xconfigurerequest-parent ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xconfigurerequest_parent") (foreign-function set-xevent-xconfigurerequest-parent! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xconfigurerequest_parent") (foreign-function xevent-xconfigurerequest-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xconfigurerequest_window") (foreign-function set-xevent-xconfigurerequest-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xconfigurerequest_window") (foreign-function xevent-xconfigurerequest-x ((POINTER STRUCT)) INT "get_XEvent_xconfigurerequest_x") (foreign-function set-xevent-xconfigurerequest-x! ((POINTER STRUCT) INT) VOID "set_XEvent_xconfigurerequest_x") (foreign-function xevent-xconfigurerequest-y ((POINTER STRUCT)) INT "get_XEvent_xconfigurerequest_y") (foreign-function set-xevent-xconfigurerequest-y! ((POINTER STRUCT) INT) VOID "set_XEvent_xconfigurerequest_y") (foreign-function xevent-xconfigurerequest-width ((POINTER STRUCT)) INT "get_XEvent_xconfigurerequest_width") (foreign-function set-xevent-xconfigurerequest-width! ((POINTER STRUCT) INT) VOID "set_XEvent_xconfigurerequest_width") (foreign-function xevent-xconfigurerequest-height ((POINTER STRUCT)) INT "get_XEvent_xconfigurerequest_height") (foreign-function set-xevent-xconfigurerequest-height! ((POINTER STRUCT) INT) VOID "set_XEvent_xconfigurerequest_height") (foreign-function xevent-xconfigurerequest-border_width ((POINTER STRUCT)) INT "get_XEvent_xconfigurerequest_border_width") (foreign-function set-xevent-xconfigurerequest-border_width! ((POINTER STRUCT) INT) VOID "set_XEvent_xconfigurerequest_border_width") (foreign-function xevent-xconfigurerequest-above ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xconfigurerequest_above") (foreign-function set-xevent-xconfigurerequest-above! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xconfigurerequest_above") (foreign-function xevent-xconfigurerequest-detail ((POINTER STRUCT)) INT "get_XEvent_xconfigurerequest_detail") (foreign-function set-xevent-xconfigurerequest-detail! ((POINTER STRUCT) INT) VOID "set_XEvent_xconfigurerequest_detail") (foreign-function xevent-xconfigurerequest-value_mask ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xconfigurerequest_value_mask") (foreign-function set-xevent-xconfigurerequest-value_mask! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xconfigurerequest_value_mask") (foreign-function xevent-xcirculate-type ((POINTER STRUCT)) INT "get_XEvent_xcirculate_type") (foreign-function set-xevent-xcirculate-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xcirculate_type") (foreign-function xevent-xcirculate-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xcirculate_serial") (foreign-function set-xevent-xcirculate-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xcirculate_serial") (foreign-function xevent-xcirculate-send_event ((POINTER STRUCT)) INT "get_XEvent_xcirculate_send_event") (foreign-function set-xevent-xcirculate-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xcirculate_send_event") (foreign-function xevent-xcirculate-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xcirculate_display") (foreign-function set-xevent-xcirculate-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xcirculate_display") (foreign-function xevent-xcirculate-event ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xcirculate_event") (foreign-function set-xevent-xcirculate-event! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xcirculate_event") (foreign-function xevent-xcirculate-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xcirculate_window") (foreign-function set-xevent-xcirculate-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xcirculate_window") (foreign-function xevent-xcirculate-place ((POINTER STRUCT)) INT "get_XEvent_xcirculate_place") (foreign-function set-xevent-xcirculate-place! ((POINTER STRUCT) INT) VOID "set_XEvent_xcirculate_place") (foreign-function xevent-xcirculaterequest-type ((POINTER STRUCT)) INT "get_XEvent_xcirculaterequest_type") (foreign-function set-xevent-xcirculaterequest-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xcirculaterequest_type") (foreign-function xevent-xcirculaterequest-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xcirculaterequest_serial") (foreign-function set-xevent-xcirculaterequest-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xcirculaterequest_serial") (foreign-function xevent-xcirculaterequest-send_event ((POINTER STRUCT)) INT "get_XEvent_xcirculaterequest_send_event") (foreign-function set-xevent-xcirculaterequest-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xcirculaterequest_send_event") (foreign-function xevent-xcirculaterequest-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xcirculaterequest_display") (foreign-function set-xevent-xcirculaterequest-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xcirculaterequest_display") (foreign-function xevent-xcirculaterequest-parent ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xcirculaterequest_parent") (foreign-function set-xevent-xcirculaterequest-parent! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xcirculaterequest_parent") (foreign-function xevent-xcirculaterequest-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xcirculaterequest_window") (foreign-function set-xevent-xcirculaterequest-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xcirculaterequest_window") (foreign-function xevent-xcirculaterequest-place ((POINTER STRUCT)) INT "get_XEvent_xcirculaterequest_place") (foreign-function set-xevent-xcirculaterequest-place! ((POINTER STRUCT) INT) VOID "set_XEvent_xcirculaterequest_place") (foreign-function xevent-xproperty-type ((POINTER STRUCT)) INT "get_XEvent_xproperty_type") (foreign-function set-xevent-xproperty-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xproperty_type") (foreign-function xevent-xproperty-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xproperty_serial") (foreign-function set-xevent-xproperty-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xproperty_serial") (foreign-function xevent-xproperty-send_event ((POINTER STRUCT)) INT "get_XEvent_xproperty_send_event") (foreign-function set-xevent-xproperty-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xproperty_send_event") (foreign-function xevent-xproperty-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xproperty_display") (foreign-function set-xevent-xproperty-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xproperty_display") (foreign-function xevent-xproperty-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xproperty_window") (foreign-function set-xevent-xproperty-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xproperty_window") (foreign-function xevent-xproperty-atom ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xproperty_atom") (foreign-function set-xevent-xproperty-atom! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xproperty_atom") (foreign-function xevent-xproperty-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xproperty_time") (foreign-function set-xevent-xproperty-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xproperty_time") (foreign-function xevent-xproperty-state ((POINTER STRUCT)) INT "get_XEvent_xproperty_state") (foreign-function set-xevent-xproperty-state! ((POINTER STRUCT) INT) VOID "set_XEvent_xproperty_state") (foreign-function xevent-xselectionclear-type ((POINTER STRUCT)) INT "get_XEvent_xselectionclear_type") (foreign-function set-xevent-xselectionclear-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xselectionclear_type") (foreign-function xevent-xselectionclear-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xselectionclear_serial") (foreign-function set-xevent-xselectionclear-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xselectionclear_serial") (foreign-function xevent-xselectionclear-send_event ((POINTER STRUCT)) INT "get_XEvent_xselectionclear_send_event") (foreign-function set-xevent-xselectionclear-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xselectionclear_send_event") (foreign-function xevent-xselectionclear-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xselectionclear_display") (foreign-function set-xevent-xselectionclear-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xselectionclear_display") (foreign-function xevent-xselectionclear-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xselectionclear_window") (foreign-function set-xevent-xselectionclear-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xselectionclear_window") (foreign-function xevent-xselectionclear-selection ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xselectionclear_selection") (foreign-function set-xevent-xselectionclear-selection! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xselectionclear_selection") (foreign-function xevent-xselectionclear-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xselectionclear_time") (foreign-function set-xevent-xselectionclear-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xselectionclear_time") (foreign-function xevent-xselectionrequest-type ((POINTER STRUCT)) INT "get_XEvent_xselectionrequest_type") (foreign-function set-xevent-xselectionrequest-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xselectionrequest_type") (foreign-function xevent-xselectionrequest-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xselectionrequest_serial") (foreign-function set-xevent-xselectionrequest-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xselectionrequest_serial") (foreign-function xevent-xselectionrequest-send_event ((POINTER STRUCT)) INT "get_XEvent_xselectionrequest_send_event") (foreign-function set-xevent-xselectionrequest-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xselectionrequest_send_event") (foreign-function xevent-xselectionrequest-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xselectionrequest_display") (foreign-function set-xevent-xselectionrequest-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xselectionrequest_display") (foreign-function xevent-xselectionrequest-owner ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xselectionrequest_owner") (foreign-function set-xevent-xselectionrequest-owner! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xselectionrequest_owner") (foreign-function xevent-xselectionrequest-requestor ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xselectionrequest_requestor") (foreign-function set-xevent-xselectionrequest-requestor! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xselectionrequest_requestor") (foreign-function xevent-xselectionrequest-selection ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xselectionrequest_selection") (foreign-function set-xevent-xselectionrequest-selection! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xselectionrequest_selection") (foreign-function xevent-xselectionrequest-target ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xselectionrequest_target") (foreign-function set-xevent-xselectionrequest-target! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xselectionrequest_target") (foreign-function xevent-xselectionrequest-property ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xselectionrequest_property") (foreign-function set-xevent-xselectionrequest-property! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xselectionrequest_property") (foreign-function xevent-xselectionrequest-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xselectionrequest_time") (foreign-function set-xevent-xselectionrequest-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xselectionrequest_time") (foreign-function xevent-xselection-type ((POINTER STRUCT)) INT "get_XEvent_xselection_type") (foreign-function set-xevent-xselection-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xselection_type") (foreign-function xevent-xselection-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xselection_serial") (foreign-function set-xevent-xselection-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xselection_serial") (foreign-function xevent-xselection-send_event ((POINTER STRUCT)) INT "get_XEvent_xselection_send_event") (foreign-function set-xevent-xselection-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xselection_send_event") (foreign-function xevent-xselection-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xselection_display") (foreign-function set-xevent-xselection-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xselection_display") (foreign-function xevent-xselection-requestor ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xselection_requestor") (foreign-function set-xevent-xselection-requestor! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xselection_requestor") (foreign-function xevent-xselection-selection ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xselection_selection") (foreign-function set-xevent-xselection-selection! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xselection_selection") (foreign-function xevent-xselection-target ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xselection_target") (foreign-function set-xevent-xselection-target! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xselection_target") (foreign-function xevent-xselection-property ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xselection_property") (foreign-function set-xevent-xselection-property! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xselection_property") (foreign-function xevent-xselection-time ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xselection_time") (foreign-function set-xevent-xselection-time! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xselection_time") (foreign-function xevent-xcolormap-type ((POINTER STRUCT)) INT "get_XEvent_xcolormap_type") (foreign-function set-xevent-xcolormap-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xcolormap_type") (foreign-function xevent-xcolormap-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xcolormap_serial") (foreign-function set-xevent-xcolormap-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xcolormap_serial") (foreign-function xevent-xcolormap-send_event ((POINTER STRUCT)) INT "get_XEvent_xcolormap_send_event") (foreign-function set-xevent-xcolormap-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xcolormap_send_event") (foreign-function xevent-xcolormap-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xcolormap_display") (foreign-function set-xevent-xcolormap-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xcolormap_display") (foreign-function xevent-xcolormap-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xcolormap_window") (foreign-function set-xevent-xcolormap-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xcolormap_window") (foreign-function xevent-xcolormap-colormap ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xcolormap_colormap") (foreign-function set-xevent-xcolormap-colormap! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xcolormap_colormap") (foreign-function xevent-xcolormap-new ((POINTER STRUCT)) INT "get_XEvent_xcolormap_new") (foreign-function set-xevent-xcolormap-new! ((POINTER STRUCT) INT) VOID "set_XEvent_xcolormap_new") (foreign-function xevent-xcolormap-state ((POINTER STRUCT)) INT "get_XEvent_xcolormap_state") (foreign-function set-xevent-xcolormap-state! ((POINTER STRUCT) INT) VOID "set_XEvent_xcolormap_state") (foreign-function xevent-xclient-type ((POINTER STRUCT)) INT "get_XEvent_xclient_type") (foreign-function set-xevent-xclient-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xclient_type") (foreign-function xevent-xclient-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xclient_serial") (foreign-function set-xevent-xclient-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xclient_serial") (foreign-function xevent-xclient-send_event ((POINTER STRUCT)) INT "get_XEvent_xclient_send_event") (foreign-function set-xevent-xclient-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xclient_send_event") (foreign-function xevent-xclient-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xclient_display") (foreign-function set-xevent-xclient-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xclient_display") (foreign-function xevent-xclient-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xclient_window") (foreign-function set-xevent-xclient-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xclient_window") (foreign-function xevent-xclient-message_type ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xclient_message_type") (foreign-function set-xevent-xclient-message_type! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xclient_message_type") (foreign-function xevent-xclient-format ((POINTER STRUCT)) INT "get_XEvent_xclient_format") (foreign-function set-xevent-xclient-format! ((POINTER STRUCT) INT) VOID "set_XEvent_xclient_format") (foreign-function xevent-xclient-data-b ((POINTER UNION)) POINTER "get_XEvent_xclient_data_b") (foreign-function xevent-xclient-data-s ((POINTER UNION)) POINTER "get_XEvent_xclient_data_s") (foreign-function xevent-xclient-data-l ((POINTER UNION)) POINTER "get_XEvent_xclient_data_l") (foreign-function xevent-xmapping-type ((POINTER STRUCT)) INT "get_XEvent_xmapping_type") (foreign-function set-xevent-xmapping-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xmapping_type") (foreign-function xevent-xmapping-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xmapping_serial") (foreign-function set-xevent-xmapping-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xmapping_serial") (foreign-function xevent-xmapping-send_event ((POINTER STRUCT)) INT "get_XEvent_xmapping_send_event") (foreign-function set-xevent-xmapping-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xmapping_send_event") (foreign-function xevent-xmapping-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xmapping_display") (foreign-function set-xevent-xmapping-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xmapping_display") (foreign-function xevent-xmapping-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xmapping_window") (foreign-function set-xevent-xmapping-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xmapping_window") (foreign-function xevent-xmapping-request ((POINTER STRUCT)) INT "get_XEvent_xmapping_request") (foreign-function set-xevent-xmapping-request! ((POINTER STRUCT) INT) VOID "set_XEvent_xmapping_request") (foreign-function xevent-xmapping-first_keycode ((POINTER STRUCT)) INT "get_XEvent_xmapping_first_keycode") (foreign-function set-xevent-xmapping-first_keycode! ((POINTER STRUCT) INT) VOID "set_XEvent_xmapping_first_keycode") (foreign-function xevent-xmapping-count ((POINTER STRUCT)) INT "get_XEvent_xmapping_count") (foreign-function set-xevent-xmapping-count! ((POINTER STRUCT) INT) VOID "set_XEvent_xmapping_count") (foreign-function xevent-xerror-type ((POINTER STRUCT)) INT "get_XEvent_xerror_type") (foreign-function set-xevent-xerror-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xerror_type") (foreign-function xevent-xerror-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xerror_display") (foreign-function set-xevent-xerror-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xerror_display") (foreign-function xevent-xerror-resourceid ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xerror_resourceid") (foreign-function set-xevent-xerror-resourceid! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xerror_resourceid") (foreign-function xevent-xerror-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xerror_serial") (foreign-function set-xevent-xerror-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xerror_serial") (foreign-function xevent-xerror-error_code ((POINTER STRUCT)) UNSIGNED-CHAR "get_XEvent_xerror_error_code") (foreign-function set-xevent-xerror-error_code! ((POINTER STRUCT) UNSIGNED-CHAR) VOID "set_XEvent_xerror_error_code") (foreign-function xevent-xerror-request_code ((POINTER STRUCT)) UNSIGNED-CHAR "get_XEvent_xerror_request_code") (foreign-function set-xevent-xerror-request_code! ((POINTER STRUCT) UNSIGNED-CHAR) VOID "set_XEvent_xerror_request_code") (foreign-function xevent-xerror-minor_code ((POINTER STRUCT)) UNSIGNED-CHAR "get_XEvent_xerror_minor_code") (foreign-function set-xevent-xerror-minor_code! ((POINTER STRUCT) UNSIGNED-CHAR) VOID "set_XEvent_xerror_minor_code") (foreign-function xevent-xkeymap-type ((POINTER STRUCT)) INT "get_XEvent_xkeymap_type") (foreign-function set-xevent-xkeymap-type! ((POINTER STRUCT) INT) VOID "set_XEvent_xkeymap_type") (foreign-function xevent-xkeymap-serial ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xkeymap_serial") (foreign-function set-xevent-xkeymap-serial! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xkeymap_serial") (foreign-function xevent-xkeymap-send_event ((POINTER STRUCT)) INT "get_XEvent_xkeymap_send_event") (foreign-function set-xevent-xkeymap-send_event! ((POINTER STRUCT) INT) VOID "set_XEvent_xkeymap_send_event") (foreign-function xevent-xkeymap-display ((POINTER STRUCT)) (POINTER STRUCT) "get_XEvent_xkeymap_display") (foreign-function set-xevent-xkeymap-display! ((POINTER STRUCT) (POINTER STRUCT)) VOID "set_XEvent_xkeymap_display") (foreign-function xevent-xkeymap-window ((POINTER STRUCT)) UNSIGNED-LONG "get_XEvent_xkeymap_window") (foreign-function set-xevent-xkeymap-window! ((POINTER STRUCT) UNSIGNED-LONG) VOID "set_XEvent_xkeymap_window") (foreign-function xevent-xkeymap-key_vector ((POINTER STRUCT)) POINTER "get_XEvent_xkeymap_key_vector") (foreign-function xevent-pad ((POINTER UNION)) POINTER "get_XEvent_pad") ;;; UNION:XEDataObject (foreign-function make-xedataobject () (POINTER UNION) "alloc_XEDataObject") (foreign-function free-xedataobject ((POINTER UNION)) VOID "free_XEDataObject") (foreign-function xedataobject-display ((POINTER UNION)) (POINTER STRUCT) "get_XEDataObject_display") (foreign-function set-xedataobject-display! ((POINTER UNION) (POINTER STRUCT)) VOID "set_XEDataObject_display") (foreign-function xedataobject-gc ((POINTER UNION)) (POINTER STRUCT) "get_XEDataObject_gc") (foreign-function set-xedataobject-gc! ((POINTER UNION) (POINTER STRUCT)) VOID "set_XEDataObject_gc") (foreign-function xedataobject-visual ((POINTER UNION)) (POINTER STRUCT) "get_XEDataObject_visual") (foreign-function set-xedataobject-visual! ((POINTER UNION) (POINTER STRUCT)) VOID "set_XEDataObject_visual") (foreign-function xedataobject-screen ((POINTER UNION)) (POINTER STRUCT) "get_XEDataObject_screen") (foreign-function set-xedataobject-screen! ((POINTER UNION) (POINTER STRUCT)) VOID "set_XEDataObject_screen") (foreign-function xedataobject-pixmap_format ((POINTER UNION)) (POINTER STRUCT) "get_XEDataObject_pixmap_format") (foreign-function set-xedataobject-pixmap_format! ((POINTER UNION) (POINTER STRUCT)) VOID "set_XEDataObject_pixmap_format") (foreign-function xedataobject-font ((POINTER UNION)) (POINTER STRUCT) "get_XEDataObject_font") (foreign-function set-xedataobject-font! ((POINTER UNION) (POINTER STRUCT)) VOID "set_XEDataObject_font") stalin-0.11/include/parallel-QobiScheme.sc0000600017435200151030000003526510464416174017176 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; Stalin 0.10 - A global optimizing compiler for Scheme ;;; Copyright 1993, 1994, and 1995 University of Toronto. All rights reserved. ;;; Copyright 1996 Technion. All rights reserved. ;;; Copyright 1996 and 1997 University of Vermont. All rights reserved. ;;; Copyright 1997, 1998, 1999, 2000, and 2001 NEC Research Institute, Inc. All ;;; rights reserved. ;;; Copyright 2002 and 2003 Purdue University. All rights reserved. ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License ;;; as published by the Free Software Foundation; either version 2 ;;; of the License, or (at your option) any later version. ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;;; written by: ;;; Jeffrey Mark Siskind ;;; NEC Research Institute, Inc. ;;; 4 Independence Way ;;; Princeton NJ 08540-6620 USA ;;; voice: 609/951-2705 ;;; FAX: 609/951-2483 ;;; Qobi@research.nj.nec.com ;;; ftp://ftp.nj.nec.com/pub/qobi ;;; http://www.neci.nj.nec.com/homepages/qobi (include "QobiScheme") (define (parallel-map proc list1 . lists) ;; note: Support for multiple arguments incurs a penalty here. ;; needs work: To make parallel. (cond ;; note: This special-cases the one-argument case for speed. ((null? lists) (let loop ((list1 list1) (c '())) (if (null? list1) (list-reverse c) (loop (cdr list1) (cons (proc (car list1)) c))))) ;; note: This special-cases the two-argument case for speed. ((null? (cdr lists)) (let loop ((list1 list1) (list2 (car lists)) (c '())) (if (null? list1) (list-reverse c) (loop (cdr list1) (cdr list2) (cons (proc (car list1) (car list2)) c))))) (else (let loop ((list1 list1) (lists lists) (c '())) (if (null? list1) (list-reverse c) (loop (cdr list1) (let loop ((lists lists) (c '())) (if (null? lists) (list-reverse c) (loop (cdr lists) (cons (cdr (car lists)) c)))) (cons (apply proc (car list1) (let loop ((lists lists) (c '())) (if (null? lists) (list-reverse c) (loop (cdr lists) (cons (car (car lists)) c))))) c))))))) (define (parallel-for-each proc list1 . lists) ;; note: Support for multiple arguments incurs a penalty here. (cond ((null? lists) ;; note: This special-cases the one-argument case for speed. (let loop ((list1 list1)) (if (not (null? list1)) (parallel-begin (proc (car list1)) (loop (cdr list1)))))) ((null? (cdr lists)) ;; note: This special-cases the two-argument case for speed. (let loop ((list1 list1) (list2 (car lists))) (if (not (null? list1)) (parallel-begin (proc (car list1) (car list2)) (loop (cdr list1) (cdr list2)))))) (else (let loop ((list1 list1) (lists lists)) (if (not (null? list1)) (parallel-begin (apply proc (car list1) (let loop ((lists lists) (c '())) (if (null? lists) (list-reverse c) (loop (cdr lists) (cons (car (car lists)) c))))) (loop (cdr list1) (let loop ((lists lists) (c '())) (if (null? lists) (list-reverse c) (loop (cdr lists) (cons (cdr (car lists)) c))))))))))) (define (parallel-reduce f l i) ;; needs work: To make parallel. (cond ((null? l) i) ((null? (rest l)) (first l)) (else (let loop ((l (rest l)) (c (first l))) (if (null? l) c (loop (rest l) (f c (first l)))))))) (define (parallel-reduce-n f n i) ;; needs work: To make parallel. (let loop ((i 0) (c i)) (if (>= i n) c (loop (+ i 1) (f c i))))) (define (parallel-reduce-vector f v i) ;; needs work: To make parallel. (let ((n (vector-length v))) (cond ((zero? n) i) ((= n 1) (vector-ref v 0)) (else (let loop ((i 1) (c (vector-ref v 0))) (if (= i n) c (loop (+ i 1) (f c (vector-ref v i))))))))) (define (parallel-sum f n) ;; needs work: To make parallel. (let loop ((n (- n 1)) (c 0)) (if (negative? n) c (loop (- n 1) (+ c (f n)))))) (define (parallel-product f n) ;; needs work: To make parallel. (let loop ((n (- n 1)) (c 1)) (if (negative? n) c (loop (- n 1) (* c (f n)))))) (define (parallel-some p l . &rest) ;; needs work: To make parallel. (let loop ((l l) (&rest &rest)) (and (not (null? l)) (or (apply p (first l) (map first &rest)) (loop (rest l) (map rest &rest)))))) (define (parallel-some-n p n) ;; needs work: To make parallel. (let loop ((i 0)) (and (< i n) (or (p i) (loop (+ i 1)))))) (define (parallel-some-vector p v . &rest) ;; needs work: To make parallel. (let loop ((i 0)) (and (< i (vector-length v)) (or (apply p (vector-ref v i) (map (lambda (v) (vector-ref v i)) &rest)) (loop (+ i 1)))))) (define (parallel-every p l . &rest) ;; needs work: To make parallel. (let loop ((l l) (&rest &rest)) (or (null? l) (and (apply p (first l) (map first &rest)) (loop (rest l) (map rest &rest)))))) (define (parallel-every-n p n) ;; needs work: To make parallel. (let loop ((i 0)) (or (>= i n) (and (p i) (loop (+ i 1)))))) (define (parallel-every-vector p v . &rest) ;; needs work: To make parallel. (let loop ((i 0)) (or (>= i (vector-length v)) (and (apply p (vector-ref v i) (map (lambda (v) (vector-ref v i)) &rest)) (loop (+ i 1)))))) (define (parallel-one p l . &rest) ;; needs work: To make parallel. (let loop ((l l) (&rest &rest)) (and (not (null? l)) (if (apply p (first l) (map first &rest)) (let loop ((l (rest l)) (&rest (map rest &rest))) (or (null? l) (and (not (apply p (first l) (map first &rest))) (loop (rest l) (map rest &rest))))) (loop (rest l) (map rest &rest)))))) (define (parallel-one-n p n) ;; needs work: To make parallel. (let loop ((i 0)) (and (< i n) (if (p i) (let loop ((i (+ i 1))) (or (>= i n) (and (not (p i)) (loop (+ i 1))))) (loop (+ i 1)))))) (define (parallel-one-vector p v . &rest) ;; needs work: To make parallel. (let loop ((i 0)) (and (< i (vector-length v)) (if (apply p (vector-ref v i) (map (lambda (v) (vector-ref v i)) &rest)) (let loop ((i (+ i 1))) (or (>= i (vector-length v)) (and (not (apply p (vector-ref v i) (map (lambda (v) (vector-ref v i)) &rest))) (loop (+ i 1))))) (loop (+ i 1)))))) (define (parallel-for-each-n f n) (let loop ((i 0)) (when (< i n) (parallel-begin (f i) (loop (+ i 1)))))) (define (parallel-for-each-from-a-up-to-b f a b) (let loop ((i a)) (when (< i b) (parallel-begin (f i) (loop (+ i 1)))))) (define (parallel-for-each-n-decreasing f n) (when (> n 0) (let ((i (- n 1))) (parallel-begin (f i) (for-each-n-decreasing f i))))) (define (parallel-for-each-vector f v . &rest) (parallel-for-each-n (lambda (i) (apply f (vector-ref v i) (map (lambda (v) (vector-ref v i)) &rest))) (vector-length v))) (define (parallel-map-n f n) ;; needs work: To eliminate REVERSE. ;; needs work: To make parallel. (let loop ((i 0) (c '())) (if (< i n) (loop (+ i 1) (cons (f i) c)) (reverse c)))) (define (parallel-map-vector f v . &rest) ;; needs work: Won't work correctly when F is nondeterministic. (let ((u (make-vector (vector-length v)))) (parallel-for-each-n (lambda (i) (vector-set! u i (apply f (vector-ref v i) (map (lambda (v) (vector-ref v i)) &rest)))) (vector-length v)) u)) (define (parallel-map-n-vector f n) (let ((v (make-vector n))) (let loop ((i 0)) (when (< i n) (parallel-begin (vector-set! v i (f i)) (loop (+ i 1))))) v)) (define (parallel-memp p x l) ;; needs work: To make parallel. (cond ((null? l) #f) ((p x (first l)) l) (else (memp p x (rest l))))) (define (parallel-assp p x alist) ;; needs work: To make parallel. (and (not (null? alist)) (if (p x (car (first alist))) (first alist) (assp p x (rest alist))))) (define (parallel-pairwise? p l) ;; needs work: To make parallel. (or (null? l) (let loop ((l1 l) (l2 (rest l))) ;; needs work: To make tail recursive. (or (null? l2) (and (p (first l1) (first l2)) (loop (rest l1) (rest l2))))))) (define (parallel-adjoinp p x l) (if (parallel-memp p x l) l (cons x l))) (define (parallel-removep p x l) ;; needs work: To eliminate REVERSE. ;; needs work: To make parallel. (let loop ((l l) (c '())) (cond ((null? l) (reverse c)) ((p x (first l)) (loop (rest l) c)) (else (loop (rest l) (cons (first l) c)))))) (define (parallel-remove-if p l) ;; needs work: To eliminate REVERSE. ;; needs work: To make parallel. (let loop ((l l) (c '())) (cond ((null? l) (reverse c)) ((p (first l)) (loop (rest l) c)) (else (loop (rest l) (cons (first l) c)))))) (define (parallel-remove-if-not p l) ;; needs work: To eliminate REVERSE. ;; needs work: To make parallel. (let loop ((l l) (c '())) (cond ((null? l) (reverse c)) ((p (first l)) (loop (rest l) (cons (first l) c))) (else (loop (rest l) c))))) (define (parallel-positionp p x l) ;; needs work: To make parallel. (let loop ((l l) (i 0)) (cond ((null? l) #f) ((p x (first l)) i) (else (loop (rest l) (+ i 1)))))) (define (parallel-position-if p l) ;; needs work: To make parallel. (let loop ((l l) (i 0)) (cond ((null? l) #f) ((p (first l)) i) (else (loop (rest l) (+ i 1)))))) (define (parallel-position-if-not p l) ;; needs work: To make parallel. (let loop ((l l) (i 0)) (cond ((null? l) #f) ((p (first l)) (loop (rest l) (+ i 1))) (else i)))) (define (parallel-findp p x l) ;; needs work: To make parallel. (let loop ((l l)) (cond ((null? l) #f) ((p x (first l)) (first l)) (else (loop (rest l)))))) (define (parallel-find-if p l) ;; needs work: To make parallel. (let loop ((l l)) (cond ((null? l) #f) ((p (first l)) (first l)) (else (loop (rest l)))))) (define (parallel-find-if-not p l) ;; needs work: To make parallel. (let loop ((l l)) (cond ((null? l) #f) ((p (first l)) (loop (rest l))) (else (first l))))) (define (parallel-countp p x l) ;; needs work: To make parallel. (let loop ((l l) (c 0)) (cond ((null? l) c) ((p x (first l)) (loop (rest l) (+ c 1))) (else (loop (rest l) c))))) (define (parallel-count-if p l) ;; needs work: To make parallel. (let loop ((l l) (c 0)) (cond ((null? l) c) ((p (first l)) (loop (rest l) (+ c 1))) (else (loop (rest l) c))))) (define (parallel-count-if-not p l) ;; needs work: To make parallel. (let loop ((l l) (c 0)) (cond ((null? l) c) ((p (first l)) (loop (rest l) c)) (else (loop (rest l) (+ c 1)))))) (define (parallel-subsetp? p x y) (parallel-every (lambda (xe) (parallel-memp p xe y)) x)) (define (parallel-set-equalp? p x y) (and (parallel-subsetp? p x y) (parallel-subsetp? p y x))) (define (parallel-unionp p x y) ;; needs work: To eliminate REVERSE. ;; needs work: To make parallel. (let loop ((l x) (c '())) (cond ((null? l) (append (reverse c) y)) ((memp p (first l) y) (loop (rest l) c)) (else (loop (rest l) (cons (first l) c)))))) (define (parallel-intersectionp p x y) ;; needs work: To eliminate REVERSE. ;; needs work: To make parallel. (let loop ((l x) (c '())) (cond ((null? l) (reverse c)) ((memp p (first l) y) (loop (rest l) (cons (first l) c))) (else (loop (rest l) c))))) (define (parallel-set-differencep p x y) ;; needs work: To eliminate REVERSE. ;; needs work: To make parallel. (let loop ((l x) (c '())) (cond ((null? l) (reverse c)) ((memp p (first l) y) (loop (rest l) c)) (else (loop (rest l) (cons (first l) c)))))) (define (parallel-remove-duplicatesp p x) ;; needs work: To eliminate REVERSE. ;; needs work: To make parallel. (let loop ((x x) (c '())) (cond ((null? x) (reverse c)) ((memp p (first x) c) (loop (rest x) c)) (else (loop (rest x) (cons (first x) c)))))) (define (parallel-transitive-equivalence-classesp p x) ;; needs work: To make tail recursive. ;; needs work: To make parallel. (if (null? x) '() (let* ((y (first x)) (x (transitive-equivalence-classesp p (rest x))) (z (find-if (lambda (w) (p y (first w))) x))) (if z (cons (cons y z) (removeq z x)) (cons (list y) x))))) (define (parallel-equivalence-classesp p x) ;; This wrapper is necessary since P may not be transitive. ;; needs work: To make parallel. (define (equivalence-classesp p x) ;; needs work: To make tail recursive. (if (null? x) '() (let* ((y (first x)) (x (equivalence-classesp p (rest x))) (z (find-if (lambda (w) (some (lambda (v) (p y v)) w)) x))) (if z (cons (cons y z) (removeq z x)) (cons (list y) x))))) (let loop ((c (map list x))) (let ((d (map (lambda (z) (reduce append z '())) (equivalence-classesp (lambda (x y) (some (lambda (xe) (memp p xe y)) x)) c)))) (if (= (length d) (length c)) d (loop d))))) (define (parallel-topological-sort p l) ;; needs work: To make parallel. (let loop ((l l) (c '())) (if (null? l) (reverse c) (let ((x (find-if (lambda (x1) (not (some (lambda (x2) (and (not (eq? x2 x1)) (p x2 x1))) l))) l))) (unless x (fuck-up)) (loop (removeq x l) (cons x c)))))) (define (parallel-sort list predicate key) (if (or (null? list) (null? (rest list))) list (parallel-call merge (sort (every-other list) predicate key) (sort (every-other (rest list)) predicate key) predicate key))) (define (parallel-minp p l) ;; needs work: To make parallel. (when (null? l) (fuck-up)) (let loop ((x (first l)) (l (rest l))) (if (null? l) x (loop (if (p x (first l)) x (first l)) (rest l))))) (define (parallel-integrate f a b n) ;; The constants are hardwired to be inexact for efficiency. ;; needs work: To make parallel. (let ((delta (/ (- b a) n))) (let loop ((previous (f a)) (this (f (+ a delta))) (i 1) (s 0.0)) (if (> i n) s (loop this (f (+ a (* i delta))) (+ i 1) (+ s (* 0.5 (+ previous this) delta))))))) (define (parallel-for-each-trie-entry p trie) (let loop ((trie-node (trie-trie-node trie)) (characters '())) (parallel-begin (p (list->string (reverse characters)) (trie-node-value trie-node)) (parallel-for-each-n (lambda (i) (let ((trie-node (vector-ref (trie-node-table trie-node) i))) (when trie-node (loop trie-node (cons ((trie-integer->char trie) i) characters))))) (vector-length (trie-node-table trie-node)))))) (define (parallel-outer-product f u v) (parallel-map-vector (lambda (ui) (parallel-map-vector (lambda (vj) (f ui vj)) v)) u)) (define (parallel-self-outer-product f v) (parallel-outer-product f v v)) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/include/xlib-c.c0000600017435200151030000067235006704715166014367 0ustar qobiqobi#include #include #include /* * Richard Mann * 31 October 1996 * 18 May 1998 * * Copyright 1996 and 1997 University of Toronto. All rights reserved. * Copyright 1998 NEC Research Institute, Inc. All rights reserved. * */ /* * Macros * */ /* * Structs * */ void *alloc_XExtData(void) {XExtData *_p = (XExtData *)malloc(sizeof(XExtData)); if (_p==NULL) abort(); return (void *)_p;} void free_XExtData(void *_p) {if (_p==NULL) abort(); free((XExtData *)_p);} int get_XExtData_number(void *_p) {return (int)((XExtData *)_p)->number;} void set_XExtData_number(void *_p, int _v) {((XExtData *)_p)->number = (int)_v;} void *get_XExtData_next(void *_p) {return (void *)((XExtData *)_p)->next;} void set_XExtData_next(void *_p, void *_v) {((XExtData *)_p)->next = (XExtData *)_v;} void *get_XExtData_free_private(void *_p) {return (void *)((XExtData *)_p)->free_private;} void set_XExtData_free_private(void *_p, void *_v) {((XExtData *)_p)->free_private = (int( *)())_v;} void *get_XExtData_private_data(void *_p) {return (void *)((XExtData *)_p)->private_data;} void set_XExtData_private_data(void *_p, void *_v) {((XExtData *)_p)->private_data = (char *)_v;} void *alloc_XExtCodes(void) {XExtCodes *_p = (XExtCodes *)malloc(sizeof(XExtCodes)); if (_p==NULL) abort(); return (void *)_p;} void free_XExtCodes(void *_p) {if (_p==NULL) abort(); free((XExtCodes *)_p);} int get_XExtCodes_extension(void *_p) {return (int)((XExtCodes *)_p)->extension;} void set_XExtCodes_extension(void *_p, int _v) {((XExtCodes *)_p)->extension = (int)_v;} int get_XExtCodes_major_opcode(void *_p) {return (int)((XExtCodes *)_p)->major_opcode;} void set_XExtCodes_major_opcode(void *_p, int _v) {((XExtCodes *)_p)->major_opcode = (int)_v;} int get_XExtCodes_first_event(void *_p) {return (int)((XExtCodes *)_p)->first_event;} void set_XExtCodes_first_event(void *_p, int _v) {((XExtCodes *)_p)->first_event = (int)_v;} int get_XExtCodes_first_error(void *_p) {return (int)((XExtCodes *)_p)->first_error;} void set_XExtCodes_first_error(void *_p, int _v) {((XExtCodes *)_p)->first_error = (int)_v;} void *alloc_XPixmapFormatValues(void) {XPixmapFormatValues *_p = (XPixmapFormatValues *)malloc(sizeof(XPixmapFormatValues)); if (_p==NULL) abort(); return (void *)_p;} void free_XPixmapFormatValues(void *_p) {if (_p==NULL) abort(); free((XPixmapFormatValues *)_p);} int get_XPixmapFormatValues_depth(void *_p) {return (int)((XPixmapFormatValues *)_p)->depth;} void set_XPixmapFormatValues_depth(void *_p, int _v) {((XPixmapFormatValues *)_p)->depth = (int)_v;} int get_XPixmapFormatValues_bits_per_pixel(void *_p) {return (int)((XPixmapFormatValues *)_p)->bits_per_pixel;} void set_XPixmapFormatValues_bits_per_pixel(void *_p, int _v) {((XPixmapFormatValues *)_p)->bits_per_pixel = (int)_v;} int get_XPixmapFormatValues_scanline_pad(void *_p) {return (int)((XPixmapFormatValues *)_p)->scanline_pad;} void set_XPixmapFormatValues_scanline_pad(void *_p, int _v) {((XPixmapFormatValues *)_p)->scanline_pad = (int)_v;} void *alloc_XGCValues(void) {XGCValues *_p = (XGCValues *)malloc(sizeof(XGCValues)); if (_p==NULL) abort(); return (void *)_p;} void free_XGCValues(void *_p) {if (_p==NULL) abort(); free((XGCValues *)_p);} int get_XGCValues_function(void *_p) {return (int)((XGCValues *)_p)->function;} void set_XGCValues_function(void *_p, int _v) {((XGCValues *)_p)->function = (int)_v;} unsigned long get_XGCValues_plane_mask(void *_p) {return (unsigned long)((XGCValues *)_p)->plane_mask;} void set_XGCValues_plane_mask(void *_p, unsigned long _v) {((XGCValues *)_p)->plane_mask = (unsigned long)_v;} unsigned long get_XGCValues_foreground(void *_p) {return (unsigned long)((XGCValues *)_p)->foreground;} void set_XGCValues_foreground(void *_p, unsigned long _v) {((XGCValues *)_p)->foreground = (unsigned long)_v;} unsigned long get_XGCValues_background(void *_p) {return (unsigned long)((XGCValues *)_p)->background;} void set_XGCValues_background(void *_p, unsigned long _v) {((XGCValues *)_p)->background = (unsigned long)_v;} int get_XGCValues_line_width(void *_p) {return (int)((XGCValues *)_p)->line_width;} void set_XGCValues_line_width(void *_p, int _v) {((XGCValues *)_p)->line_width = (int)_v;} int get_XGCValues_line_style(void *_p) {return (int)((XGCValues *)_p)->line_style;} void set_XGCValues_line_style(void *_p, int _v) {((XGCValues *)_p)->line_style = (int)_v;} int get_XGCValues_cap_style(void *_p) {return (int)((XGCValues *)_p)->cap_style;} void set_XGCValues_cap_style(void *_p, int _v) {((XGCValues *)_p)->cap_style = (int)_v;} int get_XGCValues_join_style(void *_p) {return (int)((XGCValues *)_p)->join_style;} void set_XGCValues_join_style(void *_p, int _v) {((XGCValues *)_p)->join_style = (int)_v;} int get_XGCValues_fill_style(void *_p) {return (int)((XGCValues *)_p)->fill_style;} void set_XGCValues_fill_style(void *_p, int _v) {((XGCValues *)_p)->fill_style = (int)_v;} int get_XGCValues_fill_rule(void *_p) {return (int)((XGCValues *)_p)->fill_rule;} void set_XGCValues_fill_rule(void *_p, int _v) {((XGCValues *)_p)->fill_rule = (int)_v;} int get_XGCValues_arc_mode(void *_p) {return (int)((XGCValues *)_p)->arc_mode;} void set_XGCValues_arc_mode(void *_p, int _v) {((XGCValues *)_p)->arc_mode = (int)_v;} unsigned long get_XGCValues_tile(void *_p) {return (unsigned long)((XGCValues *)_p)->tile;} void set_XGCValues_tile(void *_p, unsigned long _v) {((XGCValues *)_p)->tile = (unsigned long)_v;} unsigned long get_XGCValues_stipple(void *_p) {return (unsigned long)((XGCValues *)_p)->stipple;} void set_XGCValues_stipple(void *_p, unsigned long _v) {((XGCValues *)_p)->stipple = (unsigned long)_v;} int get_XGCValues_ts_x_origin(void *_p) {return (int)((XGCValues *)_p)->ts_x_origin;} void set_XGCValues_ts_x_origin(void *_p, int _v) {((XGCValues *)_p)->ts_x_origin = (int)_v;} int get_XGCValues_ts_y_origin(void *_p) {return (int)((XGCValues *)_p)->ts_y_origin;} void set_XGCValues_ts_y_origin(void *_p, int _v) {((XGCValues *)_p)->ts_y_origin = (int)_v;} unsigned long get_XGCValues_font(void *_p) {return (unsigned long)((XGCValues *)_p)->font;} void set_XGCValues_font(void *_p, unsigned long _v) {((XGCValues *)_p)->font = (unsigned long)_v;} int get_XGCValues_subwindow_mode(void *_p) {return (int)((XGCValues *)_p)->subwindow_mode;} void set_XGCValues_subwindow_mode(void *_p, int _v) {((XGCValues *)_p)->subwindow_mode = (int)_v;} int get_XGCValues_graphics_exposures(void *_p) {return (int)((XGCValues *)_p)->graphics_exposures;} void set_XGCValues_graphics_exposures(void *_p, int _v) {((XGCValues *)_p)->graphics_exposures = (int)_v;} int get_XGCValues_clip_x_origin(void *_p) {return (int)((XGCValues *)_p)->clip_x_origin;} void set_XGCValues_clip_x_origin(void *_p, int _v) {((XGCValues *)_p)->clip_x_origin = (int)_v;} int get_XGCValues_clip_y_origin(void *_p) {return (int)((XGCValues *)_p)->clip_y_origin;} void set_XGCValues_clip_y_origin(void *_p, int _v) {((XGCValues *)_p)->clip_y_origin = (int)_v;} unsigned long get_XGCValues_clip_mask(void *_p) {return (unsigned long)((XGCValues *)_p)->clip_mask;} void set_XGCValues_clip_mask(void *_p, unsigned long _v) {((XGCValues *)_p)->clip_mask = (unsigned long)_v;} int get_XGCValues_dash_offset(void *_p) {return (int)((XGCValues *)_p)->dash_offset;} void set_XGCValues_dash_offset(void *_p, int _v) {((XGCValues *)_p)->dash_offset = (int)_v;} char get_XGCValues_dashes(void *_p) {return (char)((XGCValues *)_p)->dashes;} void set_XGCValues_dashes(void *_p, char _v) {((XGCValues *)_p)->dashes = (char)_v;} void *alloc_Visual(void) {Visual *_p = (Visual *)malloc(sizeof(Visual)); if (_p==NULL) abort(); return (void *)_p;} void free_Visual(void *_p) {if (_p==NULL) abort(); free((Visual *)_p);} void *get_Visual_ext_data(void *_p) {return (void *)((Visual *)_p)->ext_data;} void set_Visual_ext_data(void *_p, void *_v) {((Visual *)_p)->ext_data = (XExtData *)_v;} unsigned long get_Visual_visualid(void *_p) {return (unsigned long)((Visual *)_p)->visualid;} void set_Visual_visualid(void *_p, unsigned long _v) {((Visual *)_p)->visualid = (unsigned long)_v;} int get_Visual_class(void *_p) {return (int)((Visual *)_p)->class;} void set_Visual_class(void *_p, int _v) {((Visual *)_p)->class = (int)_v;} unsigned long get_Visual_red_mask(void *_p) {return (unsigned long)((Visual *)_p)->red_mask;} void set_Visual_red_mask(void *_p, unsigned long _v) {((Visual *)_p)->red_mask = (unsigned long)_v;} unsigned long get_Visual_green_mask(void *_p) {return (unsigned long)((Visual *)_p)->green_mask;} void set_Visual_green_mask(void *_p, unsigned long _v) {((Visual *)_p)->green_mask = (unsigned long)_v;} unsigned long get_Visual_blue_mask(void *_p) {return (unsigned long)((Visual *)_p)->blue_mask;} void set_Visual_blue_mask(void *_p, unsigned long _v) {((Visual *)_p)->blue_mask = (unsigned long)_v;} int get_Visual_bits_per_rgb(void *_p) {return (int)((Visual *)_p)->bits_per_rgb;} void set_Visual_bits_per_rgb(void *_p, int _v) {((Visual *)_p)->bits_per_rgb = (int)_v;} int get_Visual_map_entries(void *_p) {return (int)((Visual *)_p)->map_entries;} void set_Visual_map_entries(void *_p, int _v) {((Visual *)_p)->map_entries = (int)_v;} void *alloc_Depth(void) {Depth *_p = (Depth *)malloc(sizeof(Depth)); if (_p==NULL) abort(); return (void *)_p;} void free_Depth(void *_p) {if (_p==NULL) abort(); free((Depth *)_p);} int get_Depth_depth(void *_p) {return (int)((Depth *)_p)->depth;} void set_Depth_depth(void *_p, int _v) {((Depth *)_p)->depth = (int)_v;} int get_Depth_nvisuals(void *_p) {return (int)((Depth *)_p)->nvisuals;} void set_Depth_nvisuals(void *_p, int _v) {((Depth *)_p)->nvisuals = (int)_v;} void *get_Depth_visuals(void *_p) {return (void *)((Depth *)_p)->visuals;} void set_Depth_visuals(void *_p, void *_v) {((Depth *)_p)->visuals = (Visual *)_v;} void *alloc_Screen(void) {Screen *_p = (Screen *)malloc(sizeof(Screen)); if (_p==NULL) abort(); return (void *)_p;} void free_Screen(void *_p) {if (_p==NULL) abort(); free((Screen *)_p);} void *get_Screen_ext_data(void *_p) {return (void *)((Screen *)_p)->ext_data;} void set_Screen_ext_data(void *_p, void *_v) {((Screen *)_p)->ext_data = (XExtData *)_v;} void *get_Screen_display(void *_p) {return (void *)((Screen *)_p)->display;} void set_Screen_display(void *_p, void *_v) {((Screen *)_p)->display = (Display *)_v;} unsigned long get_Screen_root(void *_p) {return (unsigned long)((Screen *)_p)->root;} void set_Screen_root(void *_p, unsigned long _v) {((Screen *)_p)->root = (unsigned long)_v;} int get_Screen_width(void *_p) {return (int)((Screen *)_p)->width;} void set_Screen_width(void *_p, int _v) {((Screen *)_p)->width = (int)_v;} int get_Screen_height(void *_p) {return (int)((Screen *)_p)->height;} void set_Screen_height(void *_p, int _v) {((Screen *)_p)->height = (int)_v;} int get_Screen_mwidth(void *_p) {return (int)((Screen *)_p)->mwidth;} void set_Screen_mwidth(void *_p, int _v) {((Screen *)_p)->mwidth = (int)_v;} int get_Screen_mheight(void *_p) {return (int)((Screen *)_p)->mheight;} void set_Screen_mheight(void *_p, int _v) {((Screen *)_p)->mheight = (int)_v;} int get_Screen_ndepths(void *_p) {return (int)((Screen *)_p)->ndepths;} void set_Screen_ndepths(void *_p, int _v) {((Screen *)_p)->ndepths = (int)_v;} void *get_Screen_depths(void *_p) {return (void *)((Screen *)_p)->depths;} void set_Screen_depths(void *_p, void *_v) {((Screen *)_p)->depths = (Depth *)_v;} int get_Screen_root_depth(void *_p) {return (int)((Screen *)_p)->root_depth;} void set_Screen_root_depth(void *_p, int _v) {((Screen *)_p)->root_depth = (int)_v;} void *get_Screen_root_visual(void *_p) {return (void *)((Screen *)_p)->root_visual;} void set_Screen_root_visual(void *_p, void *_v) {((Screen *)_p)->root_visual = (Visual *)_v;} void *get_Screen_default_gc(void *_p) {return (void *)((Screen *)_p)->default_gc;} void set_Screen_default_gc(void *_p, void *_v) {((Screen *)_p)->default_gc = (void *)_v;} unsigned long get_Screen_cmap(void *_p) {return (unsigned long)((Screen *)_p)->cmap;} void set_Screen_cmap(void *_p, unsigned long _v) {((Screen *)_p)->cmap = (unsigned long)_v;} unsigned long get_Screen_white_pixel(void *_p) {return (unsigned long)((Screen *)_p)->white_pixel;} void set_Screen_white_pixel(void *_p, unsigned long _v) {((Screen *)_p)->white_pixel = (unsigned long)_v;} unsigned long get_Screen_black_pixel(void *_p) {return (unsigned long)((Screen *)_p)->black_pixel;} void set_Screen_black_pixel(void *_p, unsigned long _v) {((Screen *)_p)->black_pixel = (unsigned long)_v;} int get_Screen_max_maps(void *_p) {return (int)((Screen *)_p)->max_maps;} void set_Screen_max_maps(void *_p, int _v) {((Screen *)_p)->max_maps = (int)_v;} int get_Screen_min_maps(void *_p) {return (int)((Screen *)_p)->min_maps;} void set_Screen_min_maps(void *_p, int _v) {((Screen *)_p)->min_maps = (int)_v;} int get_Screen_backing_store(void *_p) {return (int)((Screen *)_p)->backing_store;} void set_Screen_backing_store(void *_p, int _v) {((Screen *)_p)->backing_store = (int)_v;} int get_Screen_save_unders(void *_p) {return (int)((Screen *)_p)->save_unders;} void set_Screen_save_unders(void *_p, int _v) {((Screen *)_p)->save_unders = (int)_v;} long get_Screen_root_input_mask(void *_p) {return (long)((Screen *)_p)->root_input_mask;} void set_Screen_root_input_mask(void *_p, long _v) {((Screen *)_p)->root_input_mask = (long)_v;} void *alloc_ScreenFormat(void) {ScreenFormat *_p = (ScreenFormat *)malloc(sizeof(ScreenFormat)); if (_p==NULL) abort(); return (void *)_p;} void free_ScreenFormat(void *_p) {if (_p==NULL) abort(); free((ScreenFormat *)_p);} void *get_ScreenFormat_ext_data(void *_p) {return (void *)((ScreenFormat *)_p)->ext_data;} void set_ScreenFormat_ext_data(void *_p, void *_v) {((ScreenFormat *)_p)->ext_data = (XExtData *)_v;} int get_ScreenFormat_depth(void *_p) {return (int)((ScreenFormat *)_p)->depth;} void set_ScreenFormat_depth(void *_p, int _v) {((ScreenFormat *)_p)->depth = (int)_v;} int get_ScreenFormat_bits_per_pixel(void *_p) {return (int)((ScreenFormat *)_p)->bits_per_pixel;} void set_ScreenFormat_bits_per_pixel(void *_p, int _v) {((ScreenFormat *)_p)->bits_per_pixel = (int)_v;} int get_ScreenFormat_scanline_pad(void *_p) {return (int)((ScreenFormat *)_p)->scanline_pad;} void set_ScreenFormat_scanline_pad(void *_p, int _v) {((ScreenFormat *)_p)->scanline_pad = (int)_v;} void *alloc_XSetWindowAttributes(void) {XSetWindowAttributes *_p = (XSetWindowAttributes *)malloc(sizeof(XSetWindowAttributes)); if (_p==NULL) abort(); return (void *)_p;} void free_XSetWindowAttributes(void *_p) {if (_p==NULL) abort(); free((XSetWindowAttributes *)_p);} unsigned long get_XSetWindowAttributes_background_pixmap(void *_p) {return (unsigned long)((XSetWindowAttributes *)_p)->background_pixmap;} void set_XSetWindowAttributes_background_pixmap(void *_p, unsigned long _v) {((XSetWindowAttributes *)_p)->background_pixmap = (unsigned long)_v;} unsigned long get_XSetWindowAttributes_background_pixel(void *_p) {return (unsigned long)((XSetWindowAttributes *)_p)->background_pixel;} void set_XSetWindowAttributes_background_pixel(void *_p, unsigned long _v) {((XSetWindowAttributes *)_p)->background_pixel = (unsigned long)_v;} unsigned long get_XSetWindowAttributes_border_pixmap(void *_p) {return (unsigned long)((XSetWindowAttributes *)_p)->border_pixmap;} void set_XSetWindowAttributes_border_pixmap(void *_p, unsigned long _v) {((XSetWindowAttributes *)_p)->border_pixmap = (unsigned long)_v;} unsigned long get_XSetWindowAttributes_border_pixel(void *_p) {return (unsigned long)((XSetWindowAttributes *)_p)->border_pixel;} void set_XSetWindowAttributes_border_pixel(void *_p, unsigned long _v) {((XSetWindowAttributes *)_p)->border_pixel = (unsigned long)_v;} int get_XSetWindowAttributes_bit_gravity(void *_p) {return (int)((XSetWindowAttributes *)_p)->bit_gravity;} void set_XSetWindowAttributes_bit_gravity(void *_p, int _v) {((XSetWindowAttributes *)_p)->bit_gravity = (int)_v;} int get_XSetWindowAttributes_win_gravity(void *_p) {return (int)((XSetWindowAttributes *)_p)->win_gravity;} void set_XSetWindowAttributes_win_gravity(void *_p, int _v) {((XSetWindowAttributes *)_p)->win_gravity = (int)_v;} int get_XSetWindowAttributes_backing_store(void *_p) {return (int)((XSetWindowAttributes *)_p)->backing_store;} void set_XSetWindowAttributes_backing_store(void *_p, int _v) {((XSetWindowAttributes *)_p)->backing_store = (int)_v;} unsigned long get_XSetWindowAttributes_backing_planes(void *_p) {return (unsigned long)((XSetWindowAttributes *)_p)->backing_planes;} void set_XSetWindowAttributes_backing_planes(void *_p, unsigned long _v) {((XSetWindowAttributes *)_p)->backing_planes = (unsigned long)_v;} unsigned long get_XSetWindowAttributes_backing_pixel(void *_p) {return (unsigned long)((XSetWindowAttributes *)_p)->backing_pixel;} void set_XSetWindowAttributes_backing_pixel(void *_p, unsigned long _v) {((XSetWindowAttributes *)_p)->backing_pixel = (unsigned long)_v;} int get_XSetWindowAttributes_save_under(void *_p) {return (int)((XSetWindowAttributes *)_p)->save_under;} void set_XSetWindowAttributes_save_under(void *_p, int _v) {((XSetWindowAttributes *)_p)->save_under = (int)_v;} long get_XSetWindowAttributes_event_mask(void *_p) {return (long)((XSetWindowAttributes *)_p)->event_mask;} void set_XSetWindowAttributes_event_mask(void *_p, long _v) {((XSetWindowAttributes *)_p)->event_mask = (long)_v;} long get_XSetWindowAttributes_do_not_propagate_mask(void *_p) {return (long)((XSetWindowAttributes *)_p)->do_not_propagate_mask;} void set_XSetWindowAttributes_do_not_propagate_mask(void *_p, long _v) {((XSetWindowAttributes *)_p)->do_not_propagate_mask = (long)_v;} int get_XSetWindowAttributes_override_redirect(void *_p) {return (int)((XSetWindowAttributes *)_p)->override_redirect;} void set_XSetWindowAttributes_override_redirect(void *_p, int _v) {((XSetWindowAttributes *)_p)->override_redirect = (int)_v;} unsigned long get_XSetWindowAttributes_colormap(void *_p) {return (unsigned long)((XSetWindowAttributes *)_p)->colormap;} void set_XSetWindowAttributes_colormap(void *_p, unsigned long _v) {((XSetWindowAttributes *)_p)->colormap = (unsigned long)_v;} unsigned long get_XSetWindowAttributes_cursor(void *_p) {return (unsigned long)((XSetWindowAttributes *)_p)->cursor;} void set_XSetWindowAttributes_cursor(void *_p, unsigned long _v) {((XSetWindowAttributes *)_p)->cursor = (unsigned long)_v;} void *alloc_XWindowAttributes(void) {XWindowAttributes *_p = (XWindowAttributes *)malloc(sizeof(XWindowAttributes)); if (_p==NULL) abort(); return (void *)_p;} void free_XWindowAttributes(void *_p) {if (_p==NULL) abort(); free((XWindowAttributes *)_p);} int get_XWindowAttributes_x(void *_p) {return (int)((XWindowAttributes *)_p)->x;} void set_XWindowAttributes_x(void *_p, int _v) {((XWindowAttributes *)_p)->x = (int)_v;} int get_XWindowAttributes_y(void *_p) {return (int)((XWindowAttributes *)_p)->y;} void set_XWindowAttributes_y(void *_p, int _v) {((XWindowAttributes *)_p)->y = (int)_v;} int get_XWindowAttributes_width(void *_p) {return (int)((XWindowAttributes *)_p)->width;} void set_XWindowAttributes_width(void *_p, int _v) {((XWindowAttributes *)_p)->width = (int)_v;} int get_XWindowAttributes_height(void *_p) {return (int)((XWindowAttributes *)_p)->height;} void set_XWindowAttributes_height(void *_p, int _v) {((XWindowAttributes *)_p)->height = (int)_v;} int get_XWindowAttributes_border_width(void *_p) {return (int)((XWindowAttributes *)_p)->border_width;} void set_XWindowAttributes_border_width(void *_p, int _v) {((XWindowAttributes *)_p)->border_width = (int)_v;} int get_XWindowAttributes_depth(void *_p) {return (int)((XWindowAttributes *)_p)->depth;} void set_XWindowAttributes_depth(void *_p, int _v) {((XWindowAttributes *)_p)->depth = (int)_v;} void *get_XWindowAttributes_visual(void *_p) {return (void *)((XWindowAttributes *)_p)->visual;} void set_XWindowAttributes_visual(void *_p, void *_v) {((XWindowAttributes *)_p)->visual = (Visual *)_v;} unsigned long get_XWindowAttributes_root(void *_p) {return (unsigned long)((XWindowAttributes *)_p)->root;} void set_XWindowAttributes_root(void *_p, unsigned long _v) {((XWindowAttributes *)_p)->root = (unsigned long)_v;} int get_XWindowAttributes_class(void *_p) {return (int)((XWindowAttributes *)_p)->class;} void set_XWindowAttributes_class(void *_p, int _v) {((XWindowAttributes *)_p)->class = (int)_v;} int get_XWindowAttributes_bit_gravity(void *_p) {return (int)((XWindowAttributes *)_p)->bit_gravity;} void set_XWindowAttributes_bit_gravity(void *_p, int _v) {((XWindowAttributes *)_p)->bit_gravity = (int)_v;} int get_XWindowAttributes_win_gravity(void *_p) {return (int)((XWindowAttributes *)_p)->win_gravity;} void set_XWindowAttributes_win_gravity(void *_p, int _v) {((XWindowAttributes *)_p)->win_gravity = (int)_v;} int get_XWindowAttributes_backing_store(void *_p) {return (int)((XWindowAttributes *)_p)->backing_store;} void set_XWindowAttributes_backing_store(void *_p, int _v) {((XWindowAttributes *)_p)->backing_store = (int)_v;} unsigned long get_XWindowAttributes_backing_planes(void *_p) {return (unsigned long)((XWindowAttributes *)_p)->backing_planes;} void set_XWindowAttributes_backing_planes(void *_p, unsigned long _v) {((XWindowAttributes *)_p)->backing_planes = (unsigned long)_v;} unsigned long get_XWindowAttributes_backing_pixel(void *_p) {return (unsigned long)((XWindowAttributes *)_p)->backing_pixel;} void set_XWindowAttributes_backing_pixel(void *_p, unsigned long _v) {((XWindowAttributes *)_p)->backing_pixel = (unsigned long)_v;} int get_XWindowAttributes_save_under(void *_p) {return (int)((XWindowAttributes *)_p)->save_under;} void set_XWindowAttributes_save_under(void *_p, int _v) {((XWindowAttributes *)_p)->save_under = (int)_v;} unsigned long get_XWindowAttributes_colormap(void *_p) {return (unsigned long)((XWindowAttributes *)_p)->colormap;} void set_XWindowAttributes_colormap(void *_p, unsigned long _v) {((XWindowAttributes *)_p)->colormap = (unsigned long)_v;} int get_XWindowAttributes_map_installed(void *_p) {return (int)((XWindowAttributes *)_p)->map_installed;} void set_XWindowAttributes_map_installed(void *_p, int _v) {((XWindowAttributes *)_p)->map_installed = (int)_v;} int get_XWindowAttributes_map_state(void *_p) {return (int)((XWindowAttributes *)_p)->map_state;} void set_XWindowAttributes_map_state(void *_p, int _v) {((XWindowAttributes *)_p)->map_state = (int)_v;} long get_XWindowAttributes_all_event_masks(void *_p) {return (long)((XWindowAttributes *)_p)->all_event_masks;} void set_XWindowAttributes_all_event_masks(void *_p, long _v) {((XWindowAttributes *)_p)->all_event_masks = (long)_v;} long get_XWindowAttributes_your_event_mask(void *_p) {return (long)((XWindowAttributes *)_p)->your_event_mask;} void set_XWindowAttributes_your_event_mask(void *_p, long _v) {((XWindowAttributes *)_p)->your_event_mask = (long)_v;} long get_XWindowAttributes_do_not_propagate_mask(void *_p) {return (long)((XWindowAttributes *)_p)->do_not_propagate_mask;} void set_XWindowAttributes_do_not_propagate_mask(void *_p, long _v) {((XWindowAttributes *)_p)->do_not_propagate_mask = (long)_v;} int get_XWindowAttributes_override_redirect(void *_p) {return (int)((XWindowAttributes *)_p)->override_redirect;} void set_XWindowAttributes_override_redirect(void *_p, int _v) {((XWindowAttributes *)_p)->override_redirect = (int)_v;} void *get_XWindowAttributes_screen(void *_p) {return (void *)((XWindowAttributes *)_p)->screen;} void set_XWindowAttributes_screen(void *_p, void *_v) {((XWindowAttributes *)_p)->screen = (Screen *)_v;} void *alloc_XHostAddress(void) {XHostAddress *_p = (XHostAddress *)malloc(sizeof(XHostAddress)); if (_p==NULL) abort(); return (void *)_p;} void free_XHostAddress(void *_p) {if (_p==NULL) abort(); free((XHostAddress *)_p);} int get_XHostAddress_family(void *_p) {return (int)((XHostAddress *)_p)->family;} void set_XHostAddress_family(void *_p, int _v) {((XHostAddress *)_p)->family = (int)_v;} int get_XHostAddress_length(void *_p) {return (int)((XHostAddress *)_p)->length;} void set_XHostAddress_length(void *_p, int _v) {((XHostAddress *)_p)->length = (int)_v;} void *get_XHostAddress_address(void *_p) {return (void *)((XHostAddress *)_p)->address;} void set_XHostAddress_address(void *_p, void *_v) {((XHostAddress *)_p)->address = (char *)_v;} void *alloc_XImage(void) {XImage *_p = (XImage *)malloc(sizeof(XImage)); if (_p==NULL) abort(); return (void *)_p;} void free_XImage(void *_p) {if (_p==NULL) abort(); free((XImage *)_p);} int get_XImage_width(void *_p) {return (int)((XImage *)_p)->width;} void set_XImage_width(void *_p, int _v) {((XImage *)_p)->width = (int)_v;} int get_XImage_height(void *_p) {return (int)((XImage *)_p)->height;} void set_XImage_height(void *_p, int _v) {((XImage *)_p)->height = (int)_v;} int get_XImage_xoffset(void *_p) {return (int)((XImage *)_p)->xoffset;} void set_XImage_xoffset(void *_p, int _v) {((XImage *)_p)->xoffset = (int)_v;} int get_XImage_format(void *_p) {return (int)((XImage *)_p)->format;} void set_XImage_format(void *_p, int _v) {((XImage *)_p)->format = (int)_v;} void *get_XImage_data(void *_p) {return (void *)((XImage *)_p)->data;} void set_XImage_data(void *_p, void *_v) {((XImage *)_p)->data = (char *)_v;} int get_XImage_byte_order(void *_p) {return (int)((XImage *)_p)->byte_order;} void set_XImage_byte_order(void *_p, int _v) {((XImage *)_p)->byte_order = (int)_v;} int get_XImage_bitmap_unit(void *_p) {return (int)((XImage *)_p)->bitmap_unit;} void set_XImage_bitmap_unit(void *_p, int _v) {((XImage *)_p)->bitmap_unit = (int)_v;} int get_XImage_bitmap_bit_order(void *_p) {return (int)((XImage *)_p)->bitmap_bit_order;} void set_XImage_bitmap_bit_order(void *_p, int _v) {((XImage *)_p)->bitmap_bit_order = (int)_v;} int get_XImage_bitmap_pad(void *_p) {return (int)((XImage *)_p)->bitmap_pad;} void set_XImage_bitmap_pad(void *_p, int _v) {((XImage *)_p)->bitmap_pad = (int)_v;} int get_XImage_depth(void *_p) {return (int)((XImage *)_p)->depth;} void set_XImage_depth(void *_p, int _v) {((XImage *)_p)->depth = (int)_v;} int get_XImage_bytes_per_line(void *_p) {return (int)((XImage *)_p)->bytes_per_line;} void set_XImage_bytes_per_line(void *_p, int _v) {((XImage *)_p)->bytes_per_line = (int)_v;} int get_XImage_bits_per_pixel(void *_p) {return (int)((XImage *)_p)->bits_per_pixel;} void set_XImage_bits_per_pixel(void *_p, int _v) {((XImage *)_p)->bits_per_pixel = (int)_v;} unsigned long get_XImage_red_mask(void *_p) {return (unsigned long)((XImage *)_p)->red_mask;} void set_XImage_red_mask(void *_p, unsigned long _v) {((XImage *)_p)->red_mask = (unsigned long)_v;} unsigned long get_XImage_green_mask(void *_p) {return (unsigned long)((XImage *)_p)->green_mask;} void set_XImage_green_mask(void *_p, unsigned long _v) {((XImage *)_p)->green_mask = (unsigned long)_v;} unsigned long get_XImage_blue_mask(void *_p) {return (unsigned long)((XImage *)_p)->blue_mask;} void set_XImage_blue_mask(void *_p, unsigned long _v) {((XImage *)_p)->blue_mask = (unsigned long)_v;} void *get_XImage_obdata(void *_p) {return (void *)((XImage *)_p)->obdata;} void set_XImage_obdata(void *_p, void *_v) {((XImage *)_p)->obdata = (char *)_v;} void *get_XImage_f_create_image(void *_p) {return (void *)((XImage *)_p)->f.create_image;} void set_XImage_f_create_image(void *_p, void *_v) {((XImage *)_p)->f.create_image = (XImage *( *)())_v;} void *get_XImage_f_destroy_image(void *_p) {return (void *)((XImage *)_p)->f.destroy_image;} void set_XImage_f_destroy_image(void *_p, void *_v) {((XImage *)_p)->f.destroy_image = (int( *)(XImage *))_v;} void *get_XImage_f_get_pixel(void *_p) {return (void *)((XImage *)_p)->f.get_pixel;} void set_XImage_f_get_pixel(void *_p, void *_v) {((XImage *)_p)->f.get_pixel = (unsigned long( *)(XImage *,int,int))_v;} void *get_XImage_f_put_pixel(void *_p) {return (void *)((XImage *)_p)->f.put_pixel;} void set_XImage_f_put_pixel(void *_p, void *_v) {((XImage *)_p)->f.put_pixel = (int( *)(XImage *,int,int,unsigned long))_v;} void *get_XImage_f_sub_image(void *_p) {return (void *)((XImage *)_p)->f.sub_image;} void set_XImage_f_sub_image(void *_p, void *_v) {((XImage *)_p)->f.sub_image = (XImage *( *)(XImage *,int,int,unsigned,unsigned))_v;} void *get_XImage_f_add_pixel(void *_p) {return (void *)((XImage *)_p)->f.add_pixel;} void set_XImage_f_add_pixel(void *_p, void *_v) {((XImage *)_p)->f.add_pixel = (int( *)(XImage *,long))_v;} void *alloc_XWindowChanges(void) {XWindowChanges *_p = (XWindowChanges *)malloc(sizeof(XWindowChanges)); if (_p==NULL) abort(); return (void *)_p;} void free_XWindowChanges(void *_p) {if (_p==NULL) abort(); free((XWindowChanges *)_p);} int get_XWindowChanges_x(void *_p) {return (int)((XWindowChanges *)_p)->x;} void set_XWindowChanges_x(void *_p, int _v) {((XWindowChanges *)_p)->x = (int)_v;} int get_XWindowChanges_y(void *_p) {return (int)((XWindowChanges *)_p)->y;} void set_XWindowChanges_y(void *_p, int _v) {((XWindowChanges *)_p)->y = (int)_v;} int get_XWindowChanges_width(void *_p) {return (int)((XWindowChanges *)_p)->width;} void set_XWindowChanges_width(void *_p, int _v) {((XWindowChanges *)_p)->width = (int)_v;} int get_XWindowChanges_height(void *_p) {return (int)((XWindowChanges *)_p)->height;} void set_XWindowChanges_height(void *_p, int _v) {((XWindowChanges *)_p)->height = (int)_v;} int get_XWindowChanges_border_width(void *_p) {return (int)((XWindowChanges *)_p)->border_width;} void set_XWindowChanges_border_width(void *_p, int _v) {((XWindowChanges *)_p)->border_width = (int)_v;} unsigned long get_XWindowChanges_sibling(void *_p) {return (unsigned long)((XWindowChanges *)_p)->sibling;} void set_XWindowChanges_sibling(void *_p, unsigned long _v) {((XWindowChanges *)_p)->sibling = (unsigned long)_v;} int get_XWindowChanges_stack_mode(void *_p) {return (int)((XWindowChanges *)_p)->stack_mode;} void set_XWindowChanges_stack_mode(void *_p, int _v) {((XWindowChanges *)_p)->stack_mode = (int)_v;} void *alloc_XColor(void) {XColor *_p = (XColor *)malloc(sizeof(XColor)); if (_p==NULL) abort(); return (void *)_p;} void free_XColor(void *_p) {if (_p==NULL) abort(); free((XColor *)_p);} unsigned long get_XColor_pixel(void *_p) {return (unsigned long)((XColor *)_p)->pixel;} void set_XColor_pixel(void *_p, unsigned long _v) {((XColor *)_p)->pixel = (unsigned long)_v;} unsigned short get_XColor_red(void *_p) {return (unsigned short)((XColor *)_p)->red;} void set_XColor_red(void *_p, unsigned short _v) {((XColor *)_p)->red = (unsigned short)_v;} unsigned short get_XColor_green(void *_p) {return (unsigned short)((XColor *)_p)->green;} void set_XColor_green(void *_p, unsigned short _v) {((XColor *)_p)->green = (unsigned short)_v;} unsigned short get_XColor_blue(void *_p) {return (unsigned short)((XColor *)_p)->blue;} void set_XColor_blue(void *_p, unsigned short _v) {((XColor *)_p)->blue = (unsigned short)_v;} char get_XColor_flags(void *_p) {return (char)((XColor *)_p)->flags;} void set_XColor_flags(void *_p, char _v) {((XColor *)_p)->flags = (char)_v;} char get_XColor_pad(void *_p) {return (char)((XColor *)_p)->pad;} void set_XColor_pad(void *_p, char _v) {((XColor *)_p)->pad = (char)_v;} void *alloc_XSegment(void) {XSegment *_p = (XSegment *)malloc(sizeof(XSegment)); if (_p==NULL) abort(); return (void *)_p;} void free_XSegment(void *_p) {if (_p==NULL) abort(); free((XSegment *)_p);} short get_XSegment_x1(void *_p) {return (short)((XSegment *)_p)->x1;} void set_XSegment_x1(void *_p, short _v) {((XSegment *)_p)->x1 = (short)_v;} short get_XSegment_y1(void *_p) {return (short)((XSegment *)_p)->y1;} void set_XSegment_y1(void *_p, short _v) {((XSegment *)_p)->y1 = (short)_v;} short get_XSegment_x2(void *_p) {return (short)((XSegment *)_p)->x2;} void set_XSegment_x2(void *_p, short _v) {((XSegment *)_p)->x2 = (short)_v;} short get_XSegment_y2(void *_p) {return (short)((XSegment *)_p)->y2;} void set_XSegment_y2(void *_p, short _v) {((XSegment *)_p)->y2 = (short)_v;} void *alloc_XPoint(void) {XPoint *_p = (XPoint *)malloc(sizeof(XPoint)); if (_p==NULL) abort(); return (void *)_p;} void free_XPoint(void *_p) {if (_p==NULL) abort(); free((XPoint *)_p);} short get_XPoint_x(void *_p) {return (short)((XPoint *)_p)->x;} void set_XPoint_x(void *_p, short _v) {((XPoint *)_p)->x = (short)_v;} short get_XPoint_y(void *_p) {return (short)((XPoint *)_p)->y;} void set_XPoint_y(void *_p, short _v) {((XPoint *)_p)->y = (short)_v;} void *alloc_XRectangle(void) {XRectangle *_p = (XRectangle *)malloc(sizeof(XRectangle)); if (_p==NULL) abort(); return (void *)_p;} void free_XRectangle(void *_p) {if (_p==NULL) abort(); free((XRectangle *)_p);} short get_XRectangle_x(void *_p) {return (short)((XRectangle *)_p)->x;} void set_XRectangle_x(void *_p, short _v) {((XRectangle *)_p)->x = (short)_v;} short get_XRectangle_y(void *_p) {return (short)((XRectangle *)_p)->y;} void set_XRectangle_y(void *_p, short _v) {((XRectangle *)_p)->y = (short)_v;} unsigned short get_XRectangle_width(void *_p) {return (unsigned short)((XRectangle *)_p)->width;} void set_XRectangle_width(void *_p, unsigned short _v) {((XRectangle *)_p)->width = (unsigned short)_v;} unsigned short get_XRectangle_height(void *_p) {return (unsigned short)((XRectangle *)_p)->height;} void set_XRectangle_height(void *_p, unsigned short _v) {((XRectangle *)_p)->height = (unsigned short)_v;} void *alloc_XArc(void) {XArc *_p = (XArc *)malloc(sizeof(XArc)); if (_p==NULL) abort(); return (void *)_p;} void free_XArc(void *_p) {if (_p==NULL) abort(); free((XArc *)_p);} short get_XArc_x(void *_p) {return (short)((XArc *)_p)->x;} void set_XArc_x(void *_p, short _v) {((XArc *)_p)->x = (short)_v;} short get_XArc_y(void *_p) {return (short)((XArc *)_p)->y;} void set_XArc_y(void *_p, short _v) {((XArc *)_p)->y = (short)_v;} unsigned short get_XArc_width(void *_p) {return (unsigned short)((XArc *)_p)->width;} void set_XArc_width(void *_p, unsigned short _v) {((XArc *)_p)->width = (unsigned short)_v;} unsigned short get_XArc_height(void *_p) {return (unsigned short)((XArc *)_p)->height;} void set_XArc_height(void *_p, unsigned short _v) {((XArc *)_p)->height = (unsigned short)_v;} short get_XArc_angle1(void *_p) {return (short)((XArc *)_p)->angle1;} void set_XArc_angle1(void *_p, short _v) {((XArc *)_p)->angle1 = (short)_v;} short get_XArc_angle2(void *_p) {return (short)((XArc *)_p)->angle2;} void set_XArc_angle2(void *_p, short _v) {((XArc *)_p)->angle2 = (short)_v;} void *alloc_XKeyboardControl(void) {XKeyboardControl *_p = (XKeyboardControl *)malloc(sizeof(XKeyboardControl)); if (_p==NULL) abort(); return (void *)_p;} void free_XKeyboardControl(void *_p) {if (_p==NULL) abort(); free((XKeyboardControl *)_p);} int get_XKeyboardControl_key_click_percent(void *_p) {return (int)((XKeyboardControl *)_p)->key_click_percent;} void set_XKeyboardControl_key_click_percent(void *_p, int _v) {((XKeyboardControl *)_p)->key_click_percent = (int)_v;} int get_XKeyboardControl_bell_percent(void *_p) {return (int)((XKeyboardControl *)_p)->bell_percent;} void set_XKeyboardControl_bell_percent(void *_p, int _v) {((XKeyboardControl *)_p)->bell_percent = (int)_v;} int get_XKeyboardControl_bell_pitch(void *_p) {return (int)((XKeyboardControl *)_p)->bell_pitch;} void set_XKeyboardControl_bell_pitch(void *_p, int _v) {((XKeyboardControl *)_p)->bell_pitch = (int)_v;} int get_XKeyboardControl_bell_duration(void *_p) {return (int)((XKeyboardControl *)_p)->bell_duration;} void set_XKeyboardControl_bell_duration(void *_p, int _v) {((XKeyboardControl *)_p)->bell_duration = (int)_v;} int get_XKeyboardControl_led(void *_p) {return (int)((XKeyboardControl *)_p)->led;} void set_XKeyboardControl_led(void *_p, int _v) {((XKeyboardControl *)_p)->led = (int)_v;} int get_XKeyboardControl_led_mode(void *_p) {return (int)((XKeyboardControl *)_p)->led_mode;} void set_XKeyboardControl_led_mode(void *_p, int _v) {((XKeyboardControl *)_p)->led_mode = (int)_v;} int get_XKeyboardControl_key(void *_p) {return (int)((XKeyboardControl *)_p)->key;} void set_XKeyboardControl_key(void *_p, int _v) {((XKeyboardControl *)_p)->key = (int)_v;} int get_XKeyboardControl_auto_repeat_mode(void *_p) {return (int)((XKeyboardControl *)_p)->auto_repeat_mode;} void set_XKeyboardControl_auto_repeat_mode(void *_p, int _v) {((XKeyboardControl *)_p)->auto_repeat_mode = (int)_v;} void *alloc_XKeyboardState(void) {XKeyboardState *_p = (XKeyboardState *)malloc(sizeof(XKeyboardState)); if (_p==NULL) abort(); return (void *)_p;} void free_XKeyboardState(void *_p) {if (_p==NULL) abort(); free((XKeyboardState *)_p);} int get_XKeyboardState_key_click_percent(void *_p) {return (int)((XKeyboardState *)_p)->key_click_percent;} void set_XKeyboardState_key_click_percent(void *_p, int _v) {((XKeyboardState *)_p)->key_click_percent = (int)_v;} int get_XKeyboardState_bell_percent(void *_p) {return (int)((XKeyboardState *)_p)->bell_percent;} void set_XKeyboardState_bell_percent(void *_p, int _v) {((XKeyboardState *)_p)->bell_percent = (int)_v;} unsigned get_XKeyboardState_bell_pitch(void *_p) {return (unsigned)((XKeyboardState *)_p)->bell_pitch;} void set_XKeyboardState_bell_pitch(void *_p, unsigned _v) {((XKeyboardState *)_p)->bell_pitch = (unsigned)_v;} unsigned get_XKeyboardState_bell_duration(void *_p) {return (unsigned)((XKeyboardState *)_p)->bell_duration;} void set_XKeyboardState_bell_duration(void *_p, unsigned _v) {((XKeyboardState *)_p)->bell_duration = (unsigned)_v;} unsigned long get_XKeyboardState_led_mask(void *_p) {return (unsigned long)((XKeyboardState *)_p)->led_mask;} void set_XKeyboardState_led_mask(void *_p, unsigned long _v) {((XKeyboardState *)_p)->led_mask = (unsigned long)_v;} int get_XKeyboardState_global_auto_repeat(void *_p) {return (int)((XKeyboardState *)_p)->global_auto_repeat;} void set_XKeyboardState_global_auto_repeat(void *_p, int _v) {((XKeyboardState *)_p)->global_auto_repeat = (int)_v;} void *get_XKeyboardState_auto_repeats(void *_p) {return (void *)(((XKeyboardState *)_p)->auto_repeats);} void *alloc_XTimeCoord(void) {XTimeCoord *_p = (XTimeCoord *)malloc(sizeof(XTimeCoord)); if (_p==NULL) abort(); return (void *)_p;} void free_XTimeCoord(void *_p) {if (_p==NULL) abort(); free((XTimeCoord *)_p);} unsigned long get_XTimeCoord_time(void *_p) {return (unsigned long)((XTimeCoord *)_p)->time;} void set_XTimeCoord_time(void *_p, unsigned long _v) {((XTimeCoord *)_p)->time = (unsigned long)_v;} short get_XTimeCoord_x(void *_p) {return (short)((XTimeCoord *)_p)->x;} void set_XTimeCoord_x(void *_p, short _v) {((XTimeCoord *)_p)->x = (short)_v;} short get_XTimeCoord_y(void *_p) {return (short)((XTimeCoord *)_p)->y;} void set_XTimeCoord_y(void *_p, short _v) {((XTimeCoord *)_p)->y = (short)_v;} void *alloc_XModifierKeymap(void) {XModifierKeymap *_p = (XModifierKeymap *)malloc(sizeof(XModifierKeymap)); if (_p==NULL) abort(); return (void *)_p;} void free_XModifierKeymap(void *_p) {if (_p==NULL) abort(); free((XModifierKeymap *)_p);} int get_XModifierKeymap_max_keypermod(void *_p) {return (int)((XModifierKeymap *)_p)->max_keypermod;} void set_XModifierKeymap_max_keypermod(void *_p, int _v) {((XModifierKeymap *)_p)->max_keypermod = (int)_v;} void *get_XModifierKeymap_modifiermap(void *_p) {return (void *)((XModifierKeymap *)_p)->modifiermap;} void set_XModifierKeymap_modifiermap(void *_p, void *_v) {((XModifierKeymap *)_p)->modifiermap = (unsigned char *)_v;} void *alloc_XKeyReleasedEvent(void) {XKeyReleasedEvent *_p = (XKeyReleasedEvent *)malloc(sizeof(XKeyReleasedEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XKeyReleasedEvent(void *_p) {if (_p==NULL) abort(); free((XKeyReleasedEvent *)_p);} int get_XKeyReleasedEvent_type(void *_p) {return (int)((XKeyReleasedEvent *)_p)->type;} void set_XKeyReleasedEvent_type(void *_p, int _v) {((XKeyReleasedEvent *)_p)->type = (int)_v;} unsigned long get_XKeyReleasedEvent_serial(void *_p) {return (unsigned long)((XKeyReleasedEvent *)_p)->serial;} void set_XKeyReleasedEvent_serial(void *_p, unsigned long _v) {((XKeyReleasedEvent *)_p)->serial = (unsigned long)_v;} int get_XKeyReleasedEvent_send_event(void *_p) {return (int)((XKeyReleasedEvent *)_p)->send_event;} void set_XKeyReleasedEvent_send_event(void *_p, int _v) {((XKeyReleasedEvent *)_p)->send_event = (int)_v;} void *get_XKeyReleasedEvent_display(void *_p) {return (void *)((XKeyReleasedEvent *)_p)->display;} void set_XKeyReleasedEvent_display(void *_p, void *_v) {((XKeyReleasedEvent *)_p)->display = (Display *)_v;} unsigned long get_XKeyReleasedEvent_window(void *_p) {return (unsigned long)((XKeyReleasedEvent *)_p)->window;} void set_XKeyReleasedEvent_window(void *_p, unsigned long _v) {((XKeyReleasedEvent *)_p)->window = (unsigned long)_v;} unsigned long get_XKeyReleasedEvent_root(void *_p) {return (unsigned long)((XKeyReleasedEvent *)_p)->root;} void set_XKeyReleasedEvent_root(void *_p, unsigned long _v) {((XKeyReleasedEvent *)_p)->root = (unsigned long)_v;} unsigned long get_XKeyReleasedEvent_subwindow(void *_p) {return (unsigned long)((XKeyReleasedEvent *)_p)->subwindow;} void set_XKeyReleasedEvent_subwindow(void *_p, unsigned long _v) {((XKeyReleasedEvent *)_p)->subwindow = (unsigned long)_v;} unsigned long get_XKeyReleasedEvent_time(void *_p) {return (unsigned long)((XKeyReleasedEvent *)_p)->time;} void set_XKeyReleasedEvent_time(void *_p, unsigned long _v) {((XKeyReleasedEvent *)_p)->time = (unsigned long)_v;} int get_XKeyReleasedEvent_x(void *_p) {return (int)((XKeyReleasedEvent *)_p)->x;} void set_XKeyReleasedEvent_x(void *_p, int _v) {((XKeyReleasedEvent *)_p)->x = (int)_v;} int get_XKeyReleasedEvent_y(void *_p) {return (int)((XKeyReleasedEvent *)_p)->y;} void set_XKeyReleasedEvent_y(void *_p, int _v) {((XKeyReleasedEvent *)_p)->y = (int)_v;} int get_XKeyReleasedEvent_x_root(void *_p) {return (int)((XKeyReleasedEvent *)_p)->x_root;} void set_XKeyReleasedEvent_x_root(void *_p, int _v) {((XKeyReleasedEvent *)_p)->x_root = (int)_v;} int get_XKeyReleasedEvent_y_root(void *_p) {return (int)((XKeyReleasedEvent *)_p)->y_root;} void set_XKeyReleasedEvent_y_root(void *_p, int _v) {((XKeyReleasedEvent *)_p)->y_root = (int)_v;} unsigned get_XKeyReleasedEvent_state(void *_p) {return (unsigned)((XKeyReleasedEvent *)_p)->state;} void set_XKeyReleasedEvent_state(void *_p, unsigned _v) {((XKeyReleasedEvent *)_p)->state = (unsigned)_v;} unsigned get_XKeyReleasedEvent_keycode(void *_p) {return (unsigned)((XKeyReleasedEvent *)_p)->keycode;} void set_XKeyReleasedEvent_keycode(void *_p, unsigned _v) {((XKeyReleasedEvent *)_p)->keycode = (unsigned)_v;} int get_XKeyReleasedEvent_same_screen(void *_p) {return (int)((XKeyReleasedEvent *)_p)->same_screen;} void set_XKeyReleasedEvent_same_screen(void *_p, int _v) {((XKeyReleasedEvent *)_p)->same_screen = (int)_v;} void *alloc_XKeyPressedEvent(void) {XKeyPressedEvent *_p = (XKeyPressedEvent *)malloc(sizeof(XKeyPressedEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XKeyPressedEvent(void *_p) {if (_p==NULL) abort(); free((XKeyPressedEvent *)_p);} int get_XKeyPressedEvent_type(void *_p) {return (int)((XKeyPressedEvent *)_p)->type;} void set_XKeyPressedEvent_type(void *_p, int _v) {((XKeyPressedEvent *)_p)->type = (int)_v;} unsigned long get_XKeyPressedEvent_serial(void *_p) {return (unsigned long)((XKeyPressedEvent *)_p)->serial;} void set_XKeyPressedEvent_serial(void *_p, unsigned long _v) {((XKeyPressedEvent *)_p)->serial = (unsigned long)_v;} int get_XKeyPressedEvent_send_event(void *_p) {return (int)((XKeyPressedEvent *)_p)->send_event;} void set_XKeyPressedEvent_send_event(void *_p, int _v) {((XKeyPressedEvent *)_p)->send_event = (int)_v;} void *get_XKeyPressedEvent_display(void *_p) {return (void *)((XKeyPressedEvent *)_p)->display;} void set_XKeyPressedEvent_display(void *_p, void *_v) {((XKeyPressedEvent *)_p)->display = (Display *)_v;} unsigned long get_XKeyPressedEvent_window(void *_p) {return (unsigned long)((XKeyPressedEvent *)_p)->window;} void set_XKeyPressedEvent_window(void *_p, unsigned long _v) {((XKeyPressedEvent *)_p)->window = (unsigned long)_v;} unsigned long get_XKeyPressedEvent_root(void *_p) {return (unsigned long)((XKeyPressedEvent *)_p)->root;} void set_XKeyPressedEvent_root(void *_p, unsigned long _v) {((XKeyPressedEvent *)_p)->root = (unsigned long)_v;} unsigned long get_XKeyPressedEvent_subwindow(void *_p) {return (unsigned long)((XKeyPressedEvent *)_p)->subwindow;} void set_XKeyPressedEvent_subwindow(void *_p, unsigned long _v) {((XKeyPressedEvent *)_p)->subwindow = (unsigned long)_v;} unsigned long get_XKeyPressedEvent_time(void *_p) {return (unsigned long)((XKeyPressedEvent *)_p)->time;} void set_XKeyPressedEvent_time(void *_p, unsigned long _v) {((XKeyPressedEvent *)_p)->time = (unsigned long)_v;} int get_XKeyPressedEvent_x(void *_p) {return (int)((XKeyPressedEvent *)_p)->x;} void set_XKeyPressedEvent_x(void *_p, int _v) {((XKeyPressedEvent *)_p)->x = (int)_v;} int get_XKeyPressedEvent_y(void *_p) {return (int)((XKeyPressedEvent *)_p)->y;} void set_XKeyPressedEvent_y(void *_p, int _v) {((XKeyPressedEvent *)_p)->y = (int)_v;} int get_XKeyPressedEvent_x_root(void *_p) {return (int)((XKeyPressedEvent *)_p)->x_root;} void set_XKeyPressedEvent_x_root(void *_p, int _v) {((XKeyPressedEvent *)_p)->x_root = (int)_v;} int get_XKeyPressedEvent_y_root(void *_p) {return (int)((XKeyPressedEvent *)_p)->y_root;} void set_XKeyPressedEvent_y_root(void *_p, int _v) {((XKeyPressedEvent *)_p)->y_root = (int)_v;} unsigned get_XKeyPressedEvent_state(void *_p) {return (unsigned)((XKeyPressedEvent *)_p)->state;} void set_XKeyPressedEvent_state(void *_p, unsigned _v) {((XKeyPressedEvent *)_p)->state = (unsigned)_v;} unsigned get_XKeyPressedEvent_keycode(void *_p) {return (unsigned)((XKeyPressedEvent *)_p)->keycode;} void set_XKeyPressedEvent_keycode(void *_p, unsigned _v) {((XKeyPressedEvent *)_p)->keycode = (unsigned)_v;} int get_XKeyPressedEvent_same_screen(void *_p) {return (int)((XKeyPressedEvent *)_p)->same_screen;} void set_XKeyPressedEvent_same_screen(void *_p, int _v) {((XKeyPressedEvent *)_p)->same_screen = (int)_v;} void *alloc_XKeyEvent(void) {XKeyEvent *_p = (XKeyEvent *)malloc(sizeof(XKeyEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XKeyEvent(void *_p) {if (_p==NULL) abort(); free((XKeyEvent *)_p);} int get_XKeyEvent_type(void *_p) {return (int)((XKeyEvent *)_p)->type;} void set_XKeyEvent_type(void *_p, int _v) {((XKeyEvent *)_p)->type = (int)_v;} unsigned long get_XKeyEvent_serial(void *_p) {return (unsigned long)((XKeyEvent *)_p)->serial;} void set_XKeyEvent_serial(void *_p, unsigned long _v) {((XKeyEvent *)_p)->serial = (unsigned long)_v;} int get_XKeyEvent_send_event(void *_p) {return (int)((XKeyEvent *)_p)->send_event;} void set_XKeyEvent_send_event(void *_p, int _v) {((XKeyEvent *)_p)->send_event = (int)_v;} void *get_XKeyEvent_display(void *_p) {return (void *)((XKeyEvent *)_p)->display;} void set_XKeyEvent_display(void *_p, void *_v) {((XKeyEvent *)_p)->display = (Display *)_v;} unsigned long get_XKeyEvent_window(void *_p) {return (unsigned long)((XKeyEvent *)_p)->window;} void set_XKeyEvent_window(void *_p, unsigned long _v) {((XKeyEvent *)_p)->window = (unsigned long)_v;} unsigned long get_XKeyEvent_root(void *_p) {return (unsigned long)((XKeyEvent *)_p)->root;} void set_XKeyEvent_root(void *_p, unsigned long _v) {((XKeyEvent *)_p)->root = (unsigned long)_v;} unsigned long get_XKeyEvent_subwindow(void *_p) {return (unsigned long)((XKeyEvent *)_p)->subwindow;} void set_XKeyEvent_subwindow(void *_p, unsigned long _v) {((XKeyEvent *)_p)->subwindow = (unsigned long)_v;} unsigned long get_XKeyEvent_time(void *_p) {return (unsigned long)((XKeyEvent *)_p)->time;} void set_XKeyEvent_time(void *_p, unsigned long _v) {((XKeyEvent *)_p)->time = (unsigned long)_v;} int get_XKeyEvent_x(void *_p) {return (int)((XKeyEvent *)_p)->x;} void set_XKeyEvent_x(void *_p, int _v) {((XKeyEvent *)_p)->x = (int)_v;} int get_XKeyEvent_y(void *_p) {return (int)((XKeyEvent *)_p)->y;} void set_XKeyEvent_y(void *_p, int _v) {((XKeyEvent *)_p)->y = (int)_v;} int get_XKeyEvent_x_root(void *_p) {return (int)((XKeyEvent *)_p)->x_root;} void set_XKeyEvent_x_root(void *_p, int _v) {((XKeyEvent *)_p)->x_root = (int)_v;} int get_XKeyEvent_y_root(void *_p) {return (int)((XKeyEvent *)_p)->y_root;} void set_XKeyEvent_y_root(void *_p, int _v) {((XKeyEvent *)_p)->y_root = (int)_v;} unsigned get_XKeyEvent_state(void *_p) {return (unsigned)((XKeyEvent *)_p)->state;} void set_XKeyEvent_state(void *_p, unsigned _v) {((XKeyEvent *)_p)->state = (unsigned)_v;} unsigned get_XKeyEvent_keycode(void *_p) {return (unsigned)((XKeyEvent *)_p)->keycode;} void set_XKeyEvent_keycode(void *_p, unsigned _v) {((XKeyEvent *)_p)->keycode = (unsigned)_v;} int get_XKeyEvent_same_screen(void *_p) {return (int)((XKeyEvent *)_p)->same_screen;} void set_XKeyEvent_same_screen(void *_p, int _v) {((XKeyEvent *)_p)->same_screen = (int)_v;} void *alloc_XButtonReleasedEvent(void) {XButtonReleasedEvent *_p = (XButtonReleasedEvent *)malloc(sizeof(XButtonReleasedEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XButtonReleasedEvent(void *_p) {if (_p==NULL) abort(); free((XButtonReleasedEvent *)_p);} int get_XButtonReleasedEvent_type(void *_p) {return (int)((XButtonReleasedEvent *)_p)->type;} void set_XButtonReleasedEvent_type(void *_p, int _v) {((XButtonReleasedEvent *)_p)->type = (int)_v;} unsigned long get_XButtonReleasedEvent_serial(void *_p) {return (unsigned long)((XButtonReleasedEvent *)_p)->serial;} void set_XButtonReleasedEvent_serial(void *_p, unsigned long _v) {((XButtonReleasedEvent *)_p)->serial = (unsigned long)_v;} int get_XButtonReleasedEvent_send_event(void *_p) {return (int)((XButtonReleasedEvent *)_p)->send_event;} void set_XButtonReleasedEvent_send_event(void *_p, int _v) {((XButtonReleasedEvent *)_p)->send_event = (int)_v;} void *get_XButtonReleasedEvent_display(void *_p) {return (void *)((XButtonReleasedEvent *)_p)->display;} void set_XButtonReleasedEvent_display(void *_p, void *_v) {((XButtonReleasedEvent *)_p)->display = (Display *)_v;} unsigned long get_XButtonReleasedEvent_window(void *_p) {return (unsigned long)((XButtonReleasedEvent *)_p)->window;} void set_XButtonReleasedEvent_window(void *_p, unsigned long _v) {((XButtonReleasedEvent *)_p)->window = (unsigned long)_v;} unsigned long get_XButtonReleasedEvent_root(void *_p) {return (unsigned long)((XButtonReleasedEvent *)_p)->root;} void set_XButtonReleasedEvent_root(void *_p, unsigned long _v) {((XButtonReleasedEvent *)_p)->root = (unsigned long)_v;} unsigned long get_XButtonReleasedEvent_subwindow(void *_p) {return (unsigned long)((XButtonReleasedEvent *)_p)->subwindow;} void set_XButtonReleasedEvent_subwindow(void *_p, unsigned long _v) {((XButtonReleasedEvent *)_p)->subwindow = (unsigned long)_v;} unsigned long get_XButtonReleasedEvent_time(void *_p) {return (unsigned long)((XButtonReleasedEvent *)_p)->time;} void set_XButtonReleasedEvent_time(void *_p, unsigned long _v) {((XButtonReleasedEvent *)_p)->time = (unsigned long)_v;} int get_XButtonReleasedEvent_x(void *_p) {return (int)((XButtonReleasedEvent *)_p)->x;} void set_XButtonReleasedEvent_x(void *_p, int _v) {((XButtonReleasedEvent *)_p)->x = (int)_v;} int get_XButtonReleasedEvent_y(void *_p) {return (int)((XButtonReleasedEvent *)_p)->y;} void set_XButtonReleasedEvent_y(void *_p, int _v) {((XButtonReleasedEvent *)_p)->y = (int)_v;} int get_XButtonReleasedEvent_x_root(void *_p) {return (int)((XButtonReleasedEvent *)_p)->x_root;} void set_XButtonReleasedEvent_x_root(void *_p, int _v) {((XButtonReleasedEvent *)_p)->x_root = (int)_v;} int get_XButtonReleasedEvent_y_root(void *_p) {return (int)((XButtonReleasedEvent *)_p)->y_root;} void set_XButtonReleasedEvent_y_root(void *_p, int _v) {((XButtonReleasedEvent *)_p)->y_root = (int)_v;} unsigned get_XButtonReleasedEvent_state(void *_p) {return (unsigned)((XButtonReleasedEvent *)_p)->state;} void set_XButtonReleasedEvent_state(void *_p, unsigned _v) {((XButtonReleasedEvent *)_p)->state = (unsigned)_v;} unsigned get_XButtonReleasedEvent_button(void *_p) {return (unsigned)((XButtonReleasedEvent *)_p)->button;} void set_XButtonReleasedEvent_button(void *_p, unsigned _v) {((XButtonReleasedEvent *)_p)->button = (unsigned)_v;} int get_XButtonReleasedEvent_same_screen(void *_p) {return (int)((XButtonReleasedEvent *)_p)->same_screen;} void set_XButtonReleasedEvent_same_screen(void *_p, int _v) {((XButtonReleasedEvent *)_p)->same_screen = (int)_v;} void *alloc_XButtonPressedEvent(void) {XButtonPressedEvent *_p = (XButtonPressedEvent *)malloc(sizeof(XButtonPressedEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XButtonPressedEvent(void *_p) {if (_p==NULL) abort(); free((XButtonPressedEvent *)_p);} int get_XButtonPressedEvent_type(void *_p) {return (int)((XButtonPressedEvent *)_p)->type;} void set_XButtonPressedEvent_type(void *_p, int _v) {((XButtonPressedEvent *)_p)->type = (int)_v;} unsigned long get_XButtonPressedEvent_serial(void *_p) {return (unsigned long)((XButtonPressedEvent *)_p)->serial;} void set_XButtonPressedEvent_serial(void *_p, unsigned long _v) {((XButtonPressedEvent *)_p)->serial = (unsigned long)_v;} int get_XButtonPressedEvent_send_event(void *_p) {return (int)((XButtonPressedEvent *)_p)->send_event;} void set_XButtonPressedEvent_send_event(void *_p, int _v) {((XButtonPressedEvent *)_p)->send_event = (int)_v;} void *get_XButtonPressedEvent_display(void *_p) {return (void *)((XButtonPressedEvent *)_p)->display;} void set_XButtonPressedEvent_display(void *_p, void *_v) {((XButtonPressedEvent *)_p)->display = (Display *)_v;} unsigned long get_XButtonPressedEvent_window(void *_p) {return (unsigned long)((XButtonPressedEvent *)_p)->window;} void set_XButtonPressedEvent_window(void *_p, unsigned long _v) {((XButtonPressedEvent *)_p)->window = (unsigned long)_v;} unsigned long get_XButtonPressedEvent_root(void *_p) {return (unsigned long)((XButtonPressedEvent *)_p)->root;} void set_XButtonPressedEvent_root(void *_p, unsigned long _v) {((XButtonPressedEvent *)_p)->root = (unsigned long)_v;} unsigned long get_XButtonPressedEvent_subwindow(void *_p) {return (unsigned long)((XButtonPressedEvent *)_p)->subwindow;} void set_XButtonPressedEvent_subwindow(void *_p, unsigned long _v) {((XButtonPressedEvent *)_p)->subwindow = (unsigned long)_v;} unsigned long get_XButtonPressedEvent_time(void *_p) {return (unsigned long)((XButtonPressedEvent *)_p)->time;} void set_XButtonPressedEvent_time(void *_p, unsigned long _v) {((XButtonPressedEvent *)_p)->time = (unsigned long)_v;} int get_XButtonPressedEvent_x(void *_p) {return (int)((XButtonPressedEvent *)_p)->x;} void set_XButtonPressedEvent_x(void *_p, int _v) {((XButtonPressedEvent *)_p)->x = (int)_v;} int get_XButtonPressedEvent_y(void *_p) {return (int)((XButtonPressedEvent *)_p)->y;} void set_XButtonPressedEvent_y(void *_p, int _v) {((XButtonPressedEvent *)_p)->y = (int)_v;} int get_XButtonPressedEvent_x_root(void *_p) {return (int)((XButtonPressedEvent *)_p)->x_root;} void set_XButtonPressedEvent_x_root(void *_p, int _v) {((XButtonPressedEvent *)_p)->x_root = (int)_v;} int get_XButtonPressedEvent_y_root(void *_p) {return (int)((XButtonPressedEvent *)_p)->y_root;} void set_XButtonPressedEvent_y_root(void *_p, int _v) {((XButtonPressedEvent *)_p)->y_root = (int)_v;} unsigned get_XButtonPressedEvent_state(void *_p) {return (unsigned)((XButtonPressedEvent *)_p)->state;} void set_XButtonPressedEvent_state(void *_p, unsigned _v) {((XButtonPressedEvent *)_p)->state = (unsigned)_v;} unsigned get_XButtonPressedEvent_button(void *_p) {return (unsigned)((XButtonPressedEvent *)_p)->button;} void set_XButtonPressedEvent_button(void *_p, unsigned _v) {((XButtonPressedEvent *)_p)->button = (unsigned)_v;} int get_XButtonPressedEvent_same_screen(void *_p) {return (int)((XButtonPressedEvent *)_p)->same_screen;} void set_XButtonPressedEvent_same_screen(void *_p, int _v) {((XButtonPressedEvent *)_p)->same_screen = (int)_v;} void *alloc_XButtonEvent(void) {XButtonEvent *_p = (XButtonEvent *)malloc(sizeof(XButtonEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XButtonEvent(void *_p) {if (_p==NULL) abort(); free((XButtonEvent *)_p);} int get_XButtonEvent_type(void *_p) {return (int)((XButtonEvent *)_p)->type;} void set_XButtonEvent_type(void *_p, int _v) {((XButtonEvent *)_p)->type = (int)_v;} unsigned long get_XButtonEvent_serial(void *_p) {return (unsigned long)((XButtonEvent *)_p)->serial;} void set_XButtonEvent_serial(void *_p, unsigned long _v) {((XButtonEvent *)_p)->serial = (unsigned long)_v;} int get_XButtonEvent_send_event(void *_p) {return (int)((XButtonEvent *)_p)->send_event;} void set_XButtonEvent_send_event(void *_p, int _v) {((XButtonEvent *)_p)->send_event = (int)_v;} void *get_XButtonEvent_display(void *_p) {return (void *)((XButtonEvent *)_p)->display;} void set_XButtonEvent_display(void *_p, void *_v) {((XButtonEvent *)_p)->display = (Display *)_v;} unsigned long get_XButtonEvent_window(void *_p) {return (unsigned long)((XButtonEvent *)_p)->window;} void set_XButtonEvent_window(void *_p, unsigned long _v) {((XButtonEvent *)_p)->window = (unsigned long)_v;} unsigned long get_XButtonEvent_root(void *_p) {return (unsigned long)((XButtonEvent *)_p)->root;} void set_XButtonEvent_root(void *_p, unsigned long _v) {((XButtonEvent *)_p)->root = (unsigned long)_v;} unsigned long get_XButtonEvent_subwindow(void *_p) {return (unsigned long)((XButtonEvent *)_p)->subwindow;} void set_XButtonEvent_subwindow(void *_p, unsigned long _v) {((XButtonEvent *)_p)->subwindow = (unsigned long)_v;} unsigned long get_XButtonEvent_time(void *_p) {return (unsigned long)((XButtonEvent *)_p)->time;} void set_XButtonEvent_time(void *_p, unsigned long _v) {((XButtonEvent *)_p)->time = (unsigned long)_v;} int get_XButtonEvent_x(void *_p) {return (int)((XButtonEvent *)_p)->x;} void set_XButtonEvent_x(void *_p, int _v) {((XButtonEvent *)_p)->x = (int)_v;} int get_XButtonEvent_y(void *_p) {return (int)((XButtonEvent *)_p)->y;} void set_XButtonEvent_y(void *_p, int _v) {((XButtonEvent *)_p)->y = (int)_v;} int get_XButtonEvent_x_root(void *_p) {return (int)((XButtonEvent *)_p)->x_root;} void set_XButtonEvent_x_root(void *_p, int _v) {((XButtonEvent *)_p)->x_root = (int)_v;} int get_XButtonEvent_y_root(void *_p) {return (int)((XButtonEvent *)_p)->y_root;} void set_XButtonEvent_y_root(void *_p, int _v) {((XButtonEvent *)_p)->y_root = (int)_v;} unsigned get_XButtonEvent_state(void *_p) {return (unsigned)((XButtonEvent *)_p)->state;} void set_XButtonEvent_state(void *_p, unsigned _v) {((XButtonEvent *)_p)->state = (unsigned)_v;} unsigned get_XButtonEvent_button(void *_p) {return (unsigned)((XButtonEvent *)_p)->button;} void set_XButtonEvent_button(void *_p, unsigned _v) {((XButtonEvent *)_p)->button = (unsigned)_v;} int get_XButtonEvent_same_screen(void *_p) {return (int)((XButtonEvent *)_p)->same_screen;} void set_XButtonEvent_same_screen(void *_p, int _v) {((XButtonEvent *)_p)->same_screen = (int)_v;} void *alloc_XPointerMovedEvent(void) {XPointerMovedEvent *_p = (XPointerMovedEvent *)malloc(sizeof(XPointerMovedEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XPointerMovedEvent(void *_p) {if (_p==NULL) abort(); free((XPointerMovedEvent *)_p);} int get_XPointerMovedEvent_type(void *_p) {return (int)((XPointerMovedEvent *)_p)->type;} void set_XPointerMovedEvent_type(void *_p, int _v) {((XPointerMovedEvent *)_p)->type = (int)_v;} unsigned long get_XPointerMovedEvent_serial(void *_p) {return (unsigned long)((XPointerMovedEvent *)_p)->serial;} void set_XPointerMovedEvent_serial(void *_p, unsigned long _v) {((XPointerMovedEvent *)_p)->serial = (unsigned long)_v;} int get_XPointerMovedEvent_send_event(void *_p) {return (int)((XPointerMovedEvent *)_p)->send_event;} void set_XPointerMovedEvent_send_event(void *_p, int _v) {((XPointerMovedEvent *)_p)->send_event = (int)_v;} void *get_XPointerMovedEvent_display(void *_p) {return (void *)((XPointerMovedEvent *)_p)->display;} void set_XPointerMovedEvent_display(void *_p, void *_v) {((XPointerMovedEvent *)_p)->display = (Display *)_v;} unsigned long get_XPointerMovedEvent_window(void *_p) {return (unsigned long)((XPointerMovedEvent *)_p)->window;} void set_XPointerMovedEvent_window(void *_p, unsigned long _v) {((XPointerMovedEvent *)_p)->window = (unsigned long)_v;} unsigned long get_XPointerMovedEvent_root(void *_p) {return (unsigned long)((XPointerMovedEvent *)_p)->root;} void set_XPointerMovedEvent_root(void *_p, unsigned long _v) {((XPointerMovedEvent *)_p)->root = (unsigned long)_v;} unsigned long get_XPointerMovedEvent_subwindow(void *_p) {return (unsigned long)((XPointerMovedEvent *)_p)->subwindow;} void set_XPointerMovedEvent_subwindow(void *_p, unsigned long _v) {((XPointerMovedEvent *)_p)->subwindow = (unsigned long)_v;} unsigned long get_XPointerMovedEvent_time(void *_p) {return (unsigned long)((XPointerMovedEvent *)_p)->time;} void set_XPointerMovedEvent_time(void *_p, unsigned long _v) {((XPointerMovedEvent *)_p)->time = (unsigned long)_v;} int get_XPointerMovedEvent_x(void *_p) {return (int)((XPointerMovedEvent *)_p)->x;} void set_XPointerMovedEvent_x(void *_p, int _v) {((XPointerMovedEvent *)_p)->x = (int)_v;} int get_XPointerMovedEvent_y(void *_p) {return (int)((XPointerMovedEvent *)_p)->y;} void set_XPointerMovedEvent_y(void *_p, int _v) {((XPointerMovedEvent *)_p)->y = (int)_v;} int get_XPointerMovedEvent_x_root(void *_p) {return (int)((XPointerMovedEvent *)_p)->x_root;} void set_XPointerMovedEvent_x_root(void *_p, int _v) {((XPointerMovedEvent *)_p)->x_root = (int)_v;} int get_XPointerMovedEvent_y_root(void *_p) {return (int)((XPointerMovedEvent *)_p)->y_root;} void set_XPointerMovedEvent_y_root(void *_p, int _v) {((XPointerMovedEvent *)_p)->y_root = (int)_v;} unsigned get_XPointerMovedEvent_state(void *_p) {return (unsigned)((XPointerMovedEvent *)_p)->state;} void set_XPointerMovedEvent_state(void *_p, unsigned _v) {((XPointerMovedEvent *)_p)->state = (unsigned)_v;} char get_XPointerMovedEvent_is_hint(void *_p) {return (char)((XPointerMovedEvent *)_p)->is_hint;} void set_XPointerMovedEvent_is_hint(void *_p, char _v) {((XPointerMovedEvent *)_p)->is_hint = (char)_v;} int get_XPointerMovedEvent_same_screen(void *_p) {return (int)((XPointerMovedEvent *)_p)->same_screen;} void set_XPointerMovedEvent_same_screen(void *_p, int _v) {((XPointerMovedEvent *)_p)->same_screen = (int)_v;} void *alloc_XMotionEvent(void) {XMotionEvent *_p = (XMotionEvent *)malloc(sizeof(XMotionEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XMotionEvent(void *_p) {if (_p==NULL) abort(); free((XMotionEvent *)_p);} int get_XMotionEvent_type(void *_p) {return (int)((XMotionEvent *)_p)->type;} void set_XMotionEvent_type(void *_p, int _v) {((XMotionEvent *)_p)->type = (int)_v;} unsigned long get_XMotionEvent_serial(void *_p) {return (unsigned long)((XMotionEvent *)_p)->serial;} void set_XMotionEvent_serial(void *_p, unsigned long _v) {((XMotionEvent *)_p)->serial = (unsigned long)_v;} int get_XMotionEvent_send_event(void *_p) {return (int)((XMotionEvent *)_p)->send_event;} void set_XMotionEvent_send_event(void *_p, int _v) {((XMotionEvent *)_p)->send_event = (int)_v;} void *get_XMotionEvent_display(void *_p) {return (void *)((XMotionEvent *)_p)->display;} void set_XMotionEvent_display(void *_p, void *_v) {((XMotionEvent *)_p)->display = (Display *)_v;} unsigned long get_XMotionEvent_window(void *_p) {return (unsigned long)((XMotionEvent *)_p)->window;} void set_XMotionEvent_window(void *_p, unsigned long _v) {((XMotionEvent *)_p)->window = (unsigned long)_v;} unsigned long get_XMotionEvent_root(void *_p) {return (unsigned long)((XMotionEvent *)_p)->root;} void set_XMotionEvent_root(void *_p, unsigned long _v) {((XMotionEvent *)_p)->root = (unsigned long)_v;} unsigned long get_XMotionEvent_subwindow(void *_p) {return (unsigned long)((XMotionEvent *)_p)->subwindow;} void set_XMotionEvent_subwindow(void *_p, unsigned long _v) {((XMotionEvent *)_p)->subwindow = (unsigned long)_v;} unsigned long get_XMotionEvent_time(void *_p) {return (unsigned long)((XMotionEvent *)_p)->time;} void set_XMotionEvent_time(void *_p, unsigned long _v) {((XMotionEvent *)_p)->time = (unsigned long)_v;} int get_XMotionEvent_x(void *_p) {return (int)((XMotionEvent *)_p)->x;} void set_XMotionEvent_x(void *_p, int _v) {((XMotionEvent *)_p)->x = (int)_v;} int get_XMotionEvent_y(void *_p) {return (int)((XMotionEvent *)_p)->y;} void set_XMotionEvent_y(void *_p, int _v) {((XMotionEvent *)_p)->y = (int)_v;} int get_XMotionEvent_x_root(void *_p) {return (int)((XMotionEvent *)_p)->x_root;} void set_XMotionEvent_x_root(void *_p, int _v) {((XMotionEvent *)_p)->x_root = (int)_v;} int get_XMotionEvent_y_root(void *_p) {return (int)((XMotionEvent *)_p)->y_root;} void set_XMotionEvent_y_root(void *_p, int _v) {((XMotionEvent *)_p)->y_root = (int)_v;} unsigned get_XMotionEvent_state(void *_p) {return (unsigned)((XMotionEvent *)_p)->state;} void set_XMotionEvent_state(void *_p, unsigned _v) {((XMotionEvent *)_p)->state = (unsigned)_v;} char get_XMotionEvent_is_hint(void *_p) {return (char)((XMotionEvent *)_p)->is_hint;} void set_XMotionEvent_is_hint(void *_p, char _v) {((XMotionEvent *)_p)->is_hint = (char)_v;} int get_XMotionEvent_same_screen(void *_p) {return (int)((XMotionEvent *)_p)->same_screen;} void set_XMotionEvent_same_screen(void *_p, int _v) {((XMotionEvent *)_p)->same_screen = (int)_v;} void *alloc_XLeaveWindowEvent(void) {XLeaveWindowEvent *_p = (XLeaveWindowEvent *)malloc(sizeof(XLeaveWindowEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XLeaveWindowEvent(void *_p) {if (_p==NULL) abort(); free((XLeaveWindowEvent *)_p);} int get_XLeaveWindowEvent_type(void *_p) {return (int)((XLeaveWindowEvent *)_p)->type;} void set_XLeaveWindowEvent_type(void *_p, int _v) {((XLeaveWindowEvent *)_p)->type = (int)_v;} unsigned long get_XLeaveWindowEvent_serial(void *_p) {return (unsigned long)((XLeaveWindowEvent *)_p)->serial;} void set_XLeaveWindowEvent_serial(void *_p, unsigned long _v) {((XLeaveWindowEvent *)_p)->serial = (unsigned long)_v;} int get_XLeaveWindowEvent_send_event(void *_p) {return (int)((XLeaveWindowEvent *)_p)->send_event;} void set_XLeaveWindowEvent_send_event(void *_p, int _v) {((XLeaveWindowEvent *)_p)->send_event = (int)_v;} void *get_XLeaveWindowEvent_display(void *_p) {return (void *)((XLeaveWindowEvent *)_p)->display;} void set_XLeaveWindowEvent_display(void *_p, void *_v) {((XLeaveWindowEvent *)_p)->display = (Display *)_v;} unsigned long get_XLeaveWindowEvent_window(void *_p) {return (unsigned long)((XLeaveWindowEvent *)_p)->window;} void set_XLeaveWindowEvent_window(void *_p, unsigned long _v) {((XLeaveWindowEvent *)_p)->window = (unsigned long)_v;} unsigned long get_XLeaveWindowEvent_root(void *_p) {return (unsigned long)((XLeaveWindowEvent *)_p)->root;} void set_XLeaveWindowEvent_root(void *_p, unsigned long _v) {((XLeaveWindowEvent *)_p)->root = (unsigned long)_v;} unsigned long get_XLeaveWindowEvent_subwindow(void *_p) {return (unsigned long)((XLeaveWindowEvent *)_p)->subwindow;} void set_XLeaveWindowEvent_subwindow(void *_p, unsigned long _v) {((XLeaveWindowEvent *)_p)->subwindow = (unsigned long)_v;} unsigned long get_XLeaveWindowEvent_time(void *_p) {return (unsigned long)((XLeaveWindowEvent *)_p)->time;} void set_XLeaveWindowEvent_time(void *_p, unsigned long _v) {((XLeaveWindowEvent *)_p)->time = (unsigned long)_v;} int get_XLeaveWindowEvent_x(void *_p) {return (int)((XLeaveWindowEvent *)_p)->x;} void set_XLeaveWindowEvent_x(void *_p, int _v) {((XLeaveWindowEvent *)_p)->x = (int)_v;} int get_XLeaveWindowEvent_y(void *_p) {return (int)((XLeaveWindowEvent *)_p)->y;} void set_XLeaveWindowEvent_y(void *_p, int _v) {((XLeaveWindowEvent *)_p)->y = (int)_v;} int get_XLeaveWindowEvent_x_root(void *_p) {return (int)((XLeaveWindowEvent *)_p)->x_root;} void set_XLeaveWindowEvent_x_root(void *_p, int _v) {((XLeaveWindowEvent *)_p)->x_root = (int)_v;} int get_XLeaveWindowEvent_y_root(void *_p) {return (int)((XLeaveWindowEvent *)_p)->y_root;} void set_XLeaveWindowEvent_y_root(void *_p, int _v) {((XLeaveWindowEvent *)_p)->y_root = (int)_v;} int get_XLeaveWindowEvent_mode(void *_p) {return (int)((XLeaveWindowEvent *)_p)->mode;} void set_XLeaveWindowEvent_mode(void *_p, int _v) {((XLeaveWindowEvent *)_p)->mode = (int)_v;} int get_XLeaveWindowEvent_detail(void *_p) {return (int)((XLeaveWindowEvent *)_p)->detail;} void set_XLeaveWindowEvent_detail(void *_p, int _v) {((XLeaveWindowEvent *)_p)->detail = (int)_v;} int get_XLeaveWindowEvent_same_screen(void *_p) {return (int)((XLeaveWindowEvent *)_p)->same_screen;} void set_XLeaveWindowEvent_same_screen(void *_p, int _v) {((XLeaveWindowEvent *)_p)->same_screen = (int)_v;} int get_XLeaveWindowEvent_focus(void *_p) {return (int)((XLeaveWindowEvent *)_p)->focus;} void set_XLeaveWindowEvent_focus(void *_p, int _v) {((XLeaveWindowEvent *)_p)->focus = (int)_v;} unsigned get_XLeaveWindowEvent_state(void *_p) {return (unsigned)((XLeaveWindowEvent *)_p)->state;} void set_XLeaveWindowEvent_state(void *_p, unsigned _v) {((XLeaveWindowEvent *)_p)->state = (unsigned)_v;} void *alloc_XEnterWindowEvent(void) {XEnterWindowEvent *_p = (XEnterWindowEvent *)malloc(sizeof(XEnterWindowEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XEnterWindowEvent(void *_p) {if (_p==NULL) abort(); free((XEnterWindowEvent *)_p);} int get_XEnterWindowEvent_type(void *_p) {return (int)((XEnterWindowEvent *)_p)->type;} void set_XEnterWindowEvent_type(void *_p, int _v) {((XEnterWindowEvent *)_p)->type = (int)_v;} unsigned long get_XEnterWindowEvent_serial(void *_p) {return (unsigned long)((XEnterWindowEvent *)_p)->serial;} void set_XEnterWindowEvent_serial(void *_p, unsigned long _v) {((XEnterWindowEvent *)_p)->serial = (unsigned long)_v;} int get_XEnterWindowEvent_send_event(void *_p) {return (int)((XEnterWindowEvent *)_p)->send_event;} void set_XEnterWindowEvent_send_event(void *_p, int _v) {((XEnterWindowEvent *)_p)->send_event = (int)_v;} void *get_XEnterWindowEvent_display(void *_p) {return (void *)((XEnterWindowEvent *)_p)->display;} void set_XEnterWindowEvent_display(void *_p, void *_v) {((XEnterWindowEvent *)_p)->display = (Display *)_v;} unsigned long get_XEnterWindowEvent_window(void *_p) {return (unsigned long)((XEnterWindowEvent *)_p)->window;} void set_XEnterWindowEvent_window(void *_p, unsigned long _v) {((XEnterWindowEvent *)_p)->window = (unsigned long)_v;} unsigned long get_XEnterWindowEvent_root(void *_p) {return (unsigned long)((XEnterWindowEvent *)_p)->root;} void set_XEnterWindowEvent_root(void *_p, unsigned long _v) {((XEnterWindowEvent *)_p)->root = (unsigned long)_v;} unsigned long get_XEnterWindowEvent_subwindow(void *_p) {return (unsigned long)((XEnterWindowEvent *)_p)->subwindow;} void set_XEnterWindowEvent_subwindow(void *_p, unsigned long _v) {((XEnterWindowEvent *)_p)->subwindow = (unsigned long)_v;} unsigned long get_XEnterWindowEvent_time(void *_p) {return (unsigned long)((XEnterWindowEvent *)_p)->time;} void set_XEnterWindowEvent_time(void *_p, unsigned long _v) {((XEnterWindowEvent *)_p)->time = (unsigned long)_v;} int get_XEnterWindowEvent_x(void *_p) {return (int)((XEnterWindowEvent *)_p)->x;} void set_XEnterWindowEvent_x(void *_p, int _v) {((XEnterWindowEvent *)_p)->x = (int)_v;} int get_XEnterWindowEvent_y(void *_p) {return (int)((XEnterWindowEvent *)_p)->y;} void set_XEnterWindowEvent_y(void *_p, int _v) {((XEnterWindowEvent *)_p)->y = (int)_v;} int get_XEnterWindowEvent_x_root(void *_p) {return (int)((XEnterWindowEvent *)_p)->x_root;} void set_XEnterWindowEvent_x_root(void *_p, int _v) {((XEnterWindowEvent *)_p)->x_root = (int)_v;} int get_XEnterWindowEvent_y_root(void *_p) {return (int)((XEnterWindowEvent *)_p)->y_root;} void set_XEnterWindowEvent_y_root(void *_p, int _v) {((XEnterWindowEvent *)_p)->y_root = (int)_v;} int get_XEnterWindowEvent_mode(void *_p) {return (int)((XEnterWindowEvent *)_p)->mode;} void set_XEnterWindowEvent_mode(void *_p, int _v) {((XEnterWindowEvent *)_p)->mode = (int)_v;} int get_XEnterWindowEvent_detail(void *_p) {return (int)((XEnterWindowEvent *)_p)->detail;} void set_XEnterWindowEvent_detail(void *_p, int _v) {((XEnterWindowEvent *)_p)->detail = (int)_v;} int get_XEnterWindowEvent_same_screen(void *_p) {return (int)((XEnterWindowEvent *)_p)->same_screen;} void set_XEnterWindowEvent_same_screen(void *_p, int _v) {((XEnterWindowEvent *)_p)->same_screen = (int)_v;} int get_XEnterWindowEvent_focus(void *_p) {return (int)((XEnterWindowEvent *)_p)->focus;} void set_XEnterWindowEvent_focus(void *_p, int _v) {((XEnterWindowEvent *)_p)->focus = (int)_v;} unsigned get_XEnterWindowEvent_state(void *_p) {return (unsigned)((XEnterWindowEvent *)_p)->state;} void set_XEnterWindowEvent_state(void *_p, unsigned _v) {((XEnterWindowEvent *)_p)->state = (unsigned)_v;} void *alloc_XCrossingEvent(void) {XCrossingEvent *_p = (XCrossingEvent *)malloc(sizeof(XCrossingEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XCrossingEvent(void *_p) {if (_p==NULL) abort(); free((XCrossingEvent *)_p);} int get_XCrossingEvent_type(void *_p) {return (int)((XCrossingEvent *)_p)->type;} void set_XCrossingEvent_type(void *_p, int _v) {((XCrossingEvent *)_p)->type = (int)_v;} unsigned long get_XCrossingEvent_serial(void *_p) {return (unsigned long)((XCrossingEvent *)_p)->serial;} void set_XCrossingEvent_serial(void *_p, unsigned long _v) {((XCrossingEvent *)_p)->serial = (unsigned long)_v;} int get_XCrossingEvent_send_event(void *_p) {return (int)((XCrossingEvent *)_p)->send_event;} void set_XCrossingEvent_send_event(void *_p, int _v) {((XCrossingEvent *)_p)->send_event = (int)_v;} void *get_XCrossingEvent_display(void *_p) {return (void *)((XCrossingEvent *)_p)->display;} void set_XCrossingEvent_display(void *_p, void *_v) {((XCrossingEvent *)_p)->display = (Display *)_v;} unsigned long get_XCrossingEvent_window(void *_p) {return (unsigned long)((XCrossingEvent *)_p)->window;} void set_XCrossingEvent_window(void *_p, unsigned long _v) {((XCrossingEvent *)_p)->window = (unsigned long)_v;} unsigned long get_XCrossingEvent_root(void *_p) {return (unsigned long)((XCrossingEvent *)_p)->root;} void set_XCrossingEvent_root(void *_p, unsigned long _v) {((XCrossingEvent *)_p)->root = (unsigned long)_v;} unsigned long get_XCrossingEvent_subwindow(void *_p) {return (unsigned long)((XCrossingEvent *)_p)->subwindow;} void set_XCrossingEvent_subwindow(void *_p, unsigned long _v) {((XCrossingEvent *)_p)->subwindow = (unsigned long)_v;} unsigned long get_XCrossingEvent_time(void *_p) {return (unsigned long)((XCrossingEvent *)_p)->time;} void set_XCrossingEvent_time(void *_p, unsigned long _v) {((XCrossingEvent *)_p)->time = (unsigned long)_v;} int get_XCrossingEvent_x(void *_p) {return (int)((XCrossingEvent *)_p)->x;} void set_XCrossingEvent_x(void *_p, int _v) {((XCrossingEvent *)_p)->x = (int)_v;} int get_XCrossingEvent_y(void *_p) {return (int)((XCrossingEvent *)_p)->y;} void set_XCrossingEvent_y(void *_p, int _v) {((XCrossingEvent *)_p)->y = (int)_v;} int get_XCrossingEvent_x_root(void *_p) {return (int)((XCrossingEvent *)_p)->x_root;} void set_XCrossingEvent_x_root(void *_p, int _v) {((XCrossingEvent *)_p)->x_root = (int)_v;} int get_XCrossingEvent_y_root(void *_p) {return (int)((XCrossingEvent *)_p)->y_root;} void set_XCrossingEvent_y_root(void *_p, int _v) {((XCrossingEvent *)_p)->y_root = (int)_v;} int get_XCrossingEvent_mode(void *_p) {return (int)((XCrossingEvent *)_p)->mode;} void set_XCrossingEvent_mode(void *_p, int _v) {((XCrossingEvent *)_p)->mode = (int)_v;} int get_XCrossingEvent_detail(void *_p) {return (int)((XCrossingEvent *)_p)->detail;} void set_XCrossingEvent_detail(void *_p, int _v) {((XCrossingEvent *)_p)->detail = (int)_v;} int get_XCrossingEvent_same_screen(void *_p) {return (int)((XCrossingEvent *)_p)->same_screen;} void set_XCrossingEvent_same_screen(void *_p, int _v) {((XCrossingEvent *)_p)->same_screen = (int)_v;} int get_XCrossingEvent_focus(void *_p) {return (int)((XCrossingEvent *)_p)->focus;} void set_XCrossingEvent_focus(void *_p, int _v) {((XCrossingEvent *)_p)->focus = (int)_v;} unsigned get_XCrossingEvent_state(void *_p) {return (unsigned)((XCrossingEvent *)_p)->state;} void set_XCrossingEvent_state(void *_p, unsigned _v) {((XCrossingEvent *)_p)->state = (unsigned)_v;} void *alloc_XFocusOutEvent(void) {XFocusOutEvent *_p = (XFocusOutEvent *)malloc(sizeof(XFocusOutEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XFocusOutEvent(void *_p) {if (_p==NULL) abort(); free((XFocusOutEvent *)_p);} int get_XFocusOutEvent_type(void *_p) {return (int)((XFocusOutEvent *)_p)->type;} void set_XFocusOutEvent_type(void *_p, int _v) {((XFocusOutEvent *)_p)->type = (int)_v;} unsigned long get_XFocusOutEvent_serial(void *_p) {return (unsigned long)((XFocusOutEvent *)_p)->serial;} void set_XFocusOutEvent_serial(void *_p, unsigned long _v) {((XFocusOutEvent *)_p)->serial = (unsigned long)_v;} int get_XFocusOutEvent_send_event(void *_p) {return (int)((XFocusOutEvent *)_p)->send_event;} void set_XFocusOutEvent_send_event(void *_p, int _v) {((XFocusOutEvent *)_p)->send_event = (int)_v;} void *get_XFocusOutEvent_display(void *_p) {return (void *)((XFocusOutEvent *)_p)->display;} void set_XFocusOutEvent_display(void *_p, void *_v) {((XFocusOutEvent *)_p)->display = (Display *)_v;} unsigned long get_XFocusOutEvent_window(void *_p) {return (unsigned long)((XFocusOutEvent *)_p)->window;} void set_XFocusOutEvent_window(void *_p, unsigned long _v) {((XFocusOutEvent *)_p)->window = (unsigned long)_v;} int get_XFocusOutEvent_mode(void *_p) {return (int)((XFocusOutEvent *)_p)->mode;} void set_XFocusOutEvent_mode(void *_p, int _v) {((XFocusOutEvent *)_p)->mode = (int)_v;} int get_XFocusOutEvent_detail(void *_p) {return (int)((XFocusOutEvent *)_p)->detail;} void set_XFocusOutEvent_detail(void *_p, int _v) {((XFocusOutEvent *)_p)->detail = (int)_v;} void *alloc_XFocusInEvent(void) {XFocusInEvent *_p = (XFocusInEvent *)malloc(sizeof(XFocusInEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XFocusInEvent(void *_p) {if (_p==NULL) abort(); free((XFocusInEvent *)_p);} int get_XFocusInEvent_type(void *_p) {return (int)((XFocusInEvent *)_p)->type;} void set_XFocusInEvent_type(void *_p, int _v) {((XFocusInEvent *)_p)->type = (int)_v;} unsigned long get_XFocusInEvent_serial(void *_p) {return (unsigned long)((XFocusInEvent *)_p)->serial;} void set_XFocusInEvent_serial(void *_p, unsigned long _v) {((XFocusInEvent *)_p)->serial = (unsigned long)_v;} int get_XFocusInEvent_send_event(void *_p) {return (int)((XFocusInEvent *)_p)->send_event;} void set_XFocusInEvent_send_event(void *_p, int _v) {((XFocusInEvent *)_p)->send_event = (int)_v;} void *get_XFocusInEvent_display(void *_p) {return (void *)((XFocusInEvent *)_p)->display;} void set_XFocusInEvent_display(void *_p, void *_v) {((XFocusInEvent *)_p)->display = (Display *)_v;} unsigned long get_XFocusInEvent_window(void *_p) {return (unsigned long)((XFocusInEvent *)_p)->window;} void set_XFocusInEvent_window(void *_p, unsigned long _v) {((XFocusInEvent *)_p)->window = (unsigned long)_v;} int get_XFocusInEvent_mode(void *_p) {return (int)((XFocusInEvent *)_p)->mode;} void set_XFocusInEvent_mode(void *_p, int _v) {((XFocusInEvent *)_p)->mode = (int)_v;} int get_XFocusInEvent_detail(void *_p) {return (int)((XFocusInEvent *)_p)->detail;} void set_XFocusInEvent_detail(void *_p, int _v) {((XFocusInEvent *)_p)->detail = (int)_v;} void *alloc_XFocusChangeEvent(void) {XFocusChangeEvent *_p = (XFocusChangeEvent *)malloc(sizeof(XFocusChangeEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XFocusChangeEvent(void *_p) {if (_p==NULL) abort(); free((XFocusChangeEvent *)_p);} int get_XFocusChangeEvent_type(void *_p) {return (int)((XFocusChangeEvent *)_p)->type;} void set_XFocusChangeEvent_type(void *_p, int _v) {((XFocusChangeEvent *)_p)->type = (int)_v;} unsigned long get_XFocusChangeEvent_serial(void *_p) {return (unsigned long)((XFocusChangeEvent *)_p)->serial;} void set_XFocusChangeEvent_serial(void *_p, unsigned long _v) {((XFocusChangeEvent *)_p)->serial = (unsigned long)_v;} int get_XFocusChangeEvent_send_event(void *_p) {return (int)((XFocusChangeEvent *)_p)->send_event;} void set_XFocusChangeEvent_send_event(void *_p, int _v) {((XFocusChangeEvent *)_p)->send_event = (int)_v;} void *get_XFocusChangeEvent_display(void *_p) {return (void *)((XFocusChangeEvent *)_p)->display;} void set_XFocusChangeEvent_display(void *_p, void *_v) {((XFocusChangeEvent *)_p)->display = (Display *)_v;} unsigned long get_XFocusChangeEvent_window(void *_p) {return (unsigned long)((XFocusChangeEvent *)_p)->window;} void set_XFocusChangeEvent_window(void *_p, unsigned long _v) {((XFocusChangeEvent *)_p)->window = (unsigned long)_v;} int get_XFocusChangeEvent_mode(void *_p) {return (int)((XFocusChangeEvent *)_p)->mode;} void set_XFocusChangeEvent_mode(void *_p, int _v) {((XFocusChangeEvent *)_p)->mode = (int)_v;} int get_XFocusChangeEvent_detail(void *_p) {return (int)((XFocusChangeEvent *)_p)->detail;} void set_XFocusChangeEvent_detail(void *_p, int _v) {((XFocusChangeEvent *)_p)->detail = (int)_v;} void *alloc_XKeymapEvent(void) {XKeymapEvent *_p = (XKeymapEvent *)malloc(sizeof(XKeymapEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XKeymapEvent(void *_p) {if (_p==NULL) abort(); free((XKeymapEvent *)_p);} int get_XKeymapEvent_type(void *_p) {return (int)((XKeymapEvent *)_p)->type;} void set_XKeymapEvent_type(void *_p, int _v) {((XKeymapEvent *)_p)->type = (int)_v;} unsigned long get_XKeymapEvent_serial(void *_p) {return (unsigned long)((XKeymapEvent *)_p)->serial;} void set_XKeymapEvent_serial(void *_p, unsigned long _v) {((XKeymapEvent *)_p)->serial = (unsigned long)_v;} int get_XKeymapEvent_send_event(void *_p) {return (int)((XKeymapEvent *)_p)->send_event;} void set_XKeymapEvent_send_event(void *_p, int _v) {((XKeymapEvent *)_p)->send_event = (int)_v;} void *get_XKeymapEvent_display(void *_p) {return (void *)((XKeymapEvent *)_p)->display;} void set_XKeymapEvent_display(void *_p, void *_v) {((XKeymapEvent *)_p)->display = (Display *)_v;} unsigned long get_XKeymapEvent_window(void *_p) {return (unsigned long)((XKeymapEvent *)_p)->window;} void set_XKeymapEvent_window(void *_p, unsigned long _v) {((XKeymapEvent *)_p)->window = (unsigned long)_v;} void *get_XKeymapEvent_key_vector(void *_p) {return (void *)(((XKeymapEvent *)_p)->key_vector);} void *alloc_XExposeEvent(void) {XExposeEvent *_p = (XExposeEvent *)malloc(sizeof(XExposeEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XExposeEvent(void *_p) {if (_p==NULL) abort(); free((XExposeEvent *)_p);} int get_XExposeEvent_type(void *_p) {return (int)((XExposeEvent *)_p)->type;} void set_XExposeEvent_type(void *_p, int _v) {((XExposeEvent *)_p)->type = (int)_v;} unsigned long get_XExposeEvent_serial(void *_p) {return (unsigned long)((XExposeEvent *)_p)->serial;} void set_XExposeEvent_serial(void *_p, unsigned long _v) {((XExposeEvent *)_p)->serial = (unsigned long)_v;} int get_XExposeEvent_send_event(void *_p) {return (int)((XExposeEvent *)_p)->send_event;} void set_XExposeEvent_send_event(void *_p, int _v) {((XExposeEvent *)_p)->send_event = (int)_v;} void *get_XExposeEvent_display(void *_p) {return (void *)((XExposeEvent *)_p)->display;} void set_XExposeEvent_display(void *_p, void *_v) {((XExposeEvent *)_p)->display = (Display *)_v;} unsigned long get_XExposeEvent_window(void *_p) {return (unsigned long)((XExposeEvent *)_p)->window;} void set_XExposeEvent_window(void *_p, unsigned long _v) {((XExposeEvent *)_p)->window = (unsigned long)_v;} int get_XExposeEvent_x(void *_p) {return (int)((XExposeEvent *)_p)->x;} void set_XExposeEvent_x(void *_p, int _v) {((XExposeEvent *)_p)->x = (int)_v;} int get_XExposeEvent_y(void *_p) {return (int)((XExposeEvent *)_p)->y;} void set_XExposeEvent_y(void *_p, int _v) {((XExposeEvent *)_p)->y = (int)_v;} int get_XExposeEvent_width(void *_p) {return (int)((XExposeEvent *)_p)->width;} void set_XExposeEvent_width(void *_p, int _v) {((XExposeEvent *)_p)->width = (int)_v;} int get_XExposeEvent_height(void *_p) {return (int)((XExposeEvent *)_p)->height;} void set_XExposeEvent_height(void *_p, int _v) {((XExposeEvent *)_p)->height = (int)_v;} int get_XExposeEvent_count(void *_p) {return (int)((XExposeEvent *)_p)->count;} void set_XExposeEvent_count(void *_p, int _v) {((XExposeEvent *)_p)->count = (int)_v;} void *alloc_XGraphicsExposeEvent(void) {XGraphicsExposeEvent *_p = (XGraphicsExposeEvent *)malloc(sizeof(XGraphicsExposeEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XGraphicsExposeEvent(void *_p) {if (_p==NULL) abort(); free((XGraphicsExposeEvent *)_p);} int get_XGraphicsExposeEvent_type(void *_p) {return (int)((XGraphicsExposeEvent *)_p)->type;} void set_XGraphicsExposeEvent_type(void *_p, int _v) {((XGraphicsExposeEvent *)_p)->type = (int)_v;} unsigned long get_XGraphicsExposeEvent_serial(void *_p) {return (unsigned long)((XGraphicsExposeEvent *)_p)->serial;} void set_XGraphicsExposeEvent_serial(void *_p, unsigned long _v) {((XGraphicsExposeEvent *)_p)->serial = (unsigned long)_v;} int get_XGraphicsExposeEvent_send_event(void *_p) {return (int)((XGraphicsExposeEvent *)_p)->send_event;} void set_XGraphicsExposeEvent_send_event(void *_p, int _v) {((XGraphicsExposeEvent *)_p)->send_event = (int)_v;} void *get_XGraphicsExposeEvent_display(void *_p) {return (void *)((XGraphicsExposeEvent *)_p)->display;} void set_XGraphicsExposeEvent_display(void *_p, void *_v) {((XGraphicsExposeEvent *)_p)->display = (Display *)_v;} unsigned long get_XGraphicsExposeEvent_drawable(void *_p) {return (unsigned long)((XGraphicsExposeEvent *)_p)->drawable;} void set_XGraphicsExposeEvent_drawable(void *_p, unsigned long _v) {((XGraphicsExposeEvent *)_p)->drawable = (unsigned long)_v;} int get_XGraphicsExposeEvent_x(void *_p) {return (int)((XGraphicsExposeEvent *)_p)->x;} void set_XGraphicsExposeEvent_x(void *_p, int _v) {((XGraphicsExposeEvent *)_p)->x = (int)_v;} int get_XGraphicsExposeEvent_y(void *_p) {return (int)((XGraphicsExposeEvent *)_p)->y;} void set_XGraphicsExposeEvent_y(void *_p, int _v) {((XGraphicsExposeEvent *)_p)->y = (int)_v;} int get_XGraphicsExposeEvent_width(void *_p) {return (int)((XGraphicsExposeEvent *)_p)->width;} void set_XGraphicsExposeEvent_width(void *_p, int _v) {((XGraphicsExposeEvent *)_p)->width = (int)_v;} int get_XGraphicsExposeEvent_height(void *_p) {return (int)((XGraphicsExposeEvent *)_p)->height;} void set_XGraphicsExposeEvent_height(void *_p, int _v) {((XGraphicsExposeEvent *)_p)->height = (int)_v;} int get_XGraphicsExposeEvent_count(void *_p) {return (int)((XGraphicsExposeEvent *)_p)->count;} void set_XGraphicsExposeEvent_count(void *_p, int _v) {((XGraphicsExposeEvent *)_p)->count = (int)_v;} int get_XGraphicsExposeEvent_major_code(void *_p) {return (int)((XGraphicsExposeEvent *)_p)->major_code;} void set_XGraphicsExposeEvent_major_code(void *_p, int _v) {((XGraphicsExposeEvent *)_p)->major_code = (int)_v;} int get_XGraphicsExposeEvent_minor_code(void *_p) {return (int)((XGraphicsExposeEvent *)_p)->minor_code;} void set_XGraphicsExposeEvent_minor_code(void *_p, int _v) {((XGraphicsExposeEvent *)_p)->minor_code = (int)_v;} void *alloc_XNoExposeEvent(void) {XNoExposeEvent *_p = (XNoExposeEvent *)malloc(sizeof(XNoExposeEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XNoExposeEvent(void *_p) {if (_p==NULL) abort(); free((XNoExposeEvent *)_p);} int get_XNoExposeEvent_type(void *_p) {return (int)((XNoExposeEvent *)_p)->type;} void set_XNoExposeEvent_type(void *_p, int _v) {((XNoExposeEvent *)_p)->type = (int)_v;} unsigned long get_XNoExposeEvent_serial(void *_p) {return (unsigned long)((XNoExposeEvent *)_p)->serial;} void set_XNoExposeEvent_serial(void *_p, unsigned long _v) {((XNoExposeEvent *)_p)->serial = (unsigned long)_v;} int get_XNoExposeEvent_send_event(void *_p) {return (int)((XNoExposeEvent *)_p)->send_event;} void set_XNoExposeEvent_send_event(void *_p, int _v) {((XNoExposeEvent *)_p)->send_event = (int)_v;} void *get_XNoExposeEvent_display(void *_p) {return (void *)((XNoExposeEvent *)_p)->display;} void set_XNoExposeEvent_display(void *_p, void *_v) {((XNoExposeEvent *)_p)->display = (Display *)_v;} unsigned long get_XNoExposeEvent_drawable(void *_p) {return (unsigned long)((XNoExposeEvent *)_p)->drawable;} void set_XNoExposeEvent_drawable(void *_p, unsigned long _v) {((XNoExposeEvent *)_p)->drawable = (unsigned long)_v;} int get_XNoExposeEvent_major_code(void *_p) {return (int)((XNoExposeEvent *)_p)->major_code;} void set_XNoExposeEvent_major_code(void *_p, int _v) {((XNoExposeEvent *)_p)->major_code = (int)_v;} int get_XNoExposeEvent_minor_code(void *_p) {return (int)((XNoExposeEvent *)_p)->minor_code;} void set_XNoExposeEvent_minor_code(void *_p, int _v) {((XNoExposeEvent *)_p)->minor_code = (int)_v;} void *alloc_XVisibilityEvent(void) {XVisibilityEvent *_p = (XVisibilityEvent *)malloc(sizeof(XVisibilityEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XVisibilityEvent(void *_p) {if (_p==NULL) abort(); free((XVisibilityEvent *)_p);} int get_XVisibilityEvent_type(void *_p) {return (int)((XVisibilityEvent *)_p)->type;} void set_XVisibilityEvent_type(void *_p, int _v) {((XVisibilityEvent *)_p)->type = (int)_v;} unsigned long get_XVisibilityEvent_serial(void *_p) {return (unsigned long)((XVisibilityEvent *)_p)->serial;} void set_XVisibilityEvent_serial(void *_p, unsigned long _v) {((XVisibilityEvent *)_p)->serial = (unsigned long)_v;} int get_XVisibilityEvent_send_event(void *_p) {return (int)((XVisibilityEvent *)_p)->send_event;} void set_XVisibilityEvent_send_event(void *_p, int _v) {((XVisibilityEvent *)_p)->send_event = (int)_v;} void *get_XVisibilityEvent_display(void *_p) {return (void *)((XVisibilityEvent *)_p)->display;} void set_XVisibilityEvent_display(void *_p, void *_v) {((XVisibilityEvent *)_p)->display = (Display *)_v;} unsigned long get_XVisibilityEvent_window(void *_p) {return (unsigned long)((XVisibilityEvent *)_p)->window;} void set_XVisibilityEvent_window(void *_p, unsigned long _v) {((XVisibilityEvent *)_p)->window = (unsigned long)_v;} int get_XVisibilityEvent_state(void *_p) {return (int)((XVisibilityEvent *)_p)->state;} void set_XVisibilityEvent_state(void *_p, int _v) {((XVisibilityEvent *)_p)->state = (int)_v;} void *alloc_XCreateWindowEvent(void) {XCreateWindowEvent *_p = (XCreateWindowEvent *)malloc(sizeof(XCreateWindowEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XCreateWindowEvent(void *_p) {if (_p==NULL) abort(); free((XCreateWindowEvent *)_p);} int get_XCreateWindowEvent_type(void *_p) {return (int)((XCreateWindowEvent *)_p)->type;} void set_XCreateWindowEvent_type(void *_p, int _v) {((XCreateWindowEvent *)_p)->type = (int)_v;} unsigned long get_XCreateWindowEvent_serial(void *_p) {return (unsigned long)((XCreateWindowEvent *)_p)->serial;} void set_XCreateWindowEvent_serial(void *_p, unsigned long _v) {((XCreateWindowEvent *)_p)->serial = (unsigned long)_v;} int get_XCreateWindowEvent_send_event(void *_p) {return (int)((XCreateWindowEvent *)_p)->send_event;} void set_XCreateWindowEvent_send_event(void *_p, int _v) {((XCreateWindowEvent *)_p)->send_event = (int)_v;} void *get_XCreateWindowEvent_display(void *_p) {return (void *)((XCreateWindowEvent *)_p)->display;} void set_XCreateWindowEvent_display(void *_p, void *_v) {((XCreateWindowEvent *)_p)->display = (Display *)_v;} unsigned long get_XCreateWindowEvent_parent(void *_p) {return (unsigned long)((XCreateWindowEvent *)_p)->parent;} void set_XCreateWindowEvent_parent(void *_p, unsigned long _v) {((XCreateWindowEvent *)_p)->parent = (unsigned long)_v;} unsigned long get_XCreateWindowEvent_window(void *_p) {return (unsigned long)((XCreateWindowEvent *)_p)->window;} void set_XCreateWindowEvent_window(void *_p, unsigned long _v) {((XCreateWindowEvent *)_p)->window = (unsigned long)_v;} int get_XCreateWindowEvent_x(void *_p) {return (int)((XCreateWindowEvent *)_p)->x;} void set_XCreateWindowEvent_x(void *_p, int _v) {((XCreateWindowEvent *)_p)->x = (int)_v;} int get_XCreateWindowEvent_y(void *_p) {return (int)((XCreateWindowEvent *)_p)->y;} void set_XCreateWindowEvent_y(void *_p, int _v) {((XCreateWindowEvent *)_p)->y = (int)_v;} int get_XCreateWindowEvent_width(void *_p) {return (int)((XCreateWindowEvent *)_p)->width;} void set_XCreateWindowEvent_width(void *_p, int _v) {((XCreateWindowEvent *)_p)->width = (int)_v;} int get_XCreateWindowEvent_height(void *_p) {return (int)((XCreateWindowEvent *)_p)->height;} void set_XCreateWindowEvent_height(void *_p, int _v) {((XCreateWindowEvent *)_p)->height = (int)_v;} int get_XCreateWindowEvent_border_width(void *_p) {return (int)((XCreateWindowEvent *)_p)->border_width;} void set_XCreateWindowEvent_border_width(void *_p, int _v) {((XCreateWindowEvent *)_p)->border_width = (int)_v;} int get_XCreateWindowEvent_override_redirect(void *_p) {return (int)((XCreateWindowEvent *)_p)->override_redirect;} void set_XCreateWindowEvent_override_redirect(void *_p, int _v) {((XCreateWindowEvent *)_p)->override_redirect = (int)_v;} void *alloc_XDestroyWindowEvent(void) {XDestroyWindowEvent *_p = (XDestroyWindowEvent *)malloc(sizeof(XDestroyWindowEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XDestroyWindowEvent(void *_p) {if (_p==NULL) abort(); free((XDestroyWindowEvent *)_p);} int get_XDestroyWindowEvent_type(void *_p) {return (int)((XDestroyWindowEvent *)_p)->type;} void set_XDestroyWindowEvent_type(void *_p, int _v) {((XDestroyWindowEvent *)_p)->type = (int)_v;} unsigned long get_XDestroyWindowEvent_serial(void *_p) {return (unsigned long)((XDestroyWindowEvent *)_p)->serial;} void set_XDestroyWindowEvent_serial(void *_p, unsigned long _v) {((XDestroyWindowEvent *)_p)->serial = (unsigned long)_v;} int get_XDestroyWindowEvent_send_event(void *_p) {return (int)((XDestroyWindowEvent *)_p)->send_event;} void set_XDestroyWindowEvent_send_event(void *_p, int _v) {((XDestroyWindowEvent *)_p)->send_event = (int)_v;} void *get_XDestroyWindowEvent_display(void *_p) {return (void *)((XDestroyWindowEvent *)_p)->display;} void set_XDestroyWindowEvent_display(void *_p, void *_v) {((XDestroyWindowEvent *)_p)->display = (Display *)_v;} unsigned long get_XDestroyWindowEvent_event(void *_p) {return (unsigned long)((XDestroyWindowEvent *)_p)->event;} void set_XDestroyWindowEvent_event(void *_p, unsigned long _v) {((XDestroyWindowEvent *)_p)->event = (unsigned long)_v;} unsigned long get_XDestroyWindowEvent_window(void *_p) {return (unsigned long)((XDestroyWindowEvent *)_p)->window;} void set_XDestroyWindowEvent_window(void *_p, unsigned long _v) {((XDestroyWindowEvent *)_p)->window = (unsigned long)_v;} void *alloc_XUnmapEvent(void) {XUnmapEvent *_p = (XUnmapEvent *)malloc(sizeof(XUnmapEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XUnmapEvent(void *_p) {if (_p==NULL) abort(); free((XUnmapEvent *)_p);} int get_XUnmapEvent_type(void *_p) {return (int)((XUnmapEvent *)_p)->type;} void set_XUnmapEvent_type(void *_p, int _v) {((XUnmapEvent *)_p)->type = (int)_v;} unsigned long get_XUnmapEvent_serial(void *_p) {return (unsigned long)((XUnmapEvent *)_p)->serial;} void set_XUnmapEvent_serial(void *_p, unsigned long _v) {((XUnmapEvent *)_p)->serial = (unsigned long)_v;} int get_XUnmapEvent_send_event(void *_p) {return (int)((XUnmapEvent *)_p)->send_event;} void set_XUnmapEvent_send_event(void *_p, int _v) {((XUnmapEvent *)_p)->send_event = (int)_v;} void *get_XUnmapEvent_display(void *_p) {return (void *)((XUnmapEvent *)_p)->display;} void set_XUnmapEvent_display(void *_p, void *_v) {((XUnmapEvent *)_p)->display = (Display *)_v;} unsigned long get_XUnmapEvent_event(void *_p) {return (unsigned long)((XUnmapEvent *)_p)->event;} void set_XUnmapEvent_event(void *_p, unsigned long _v) {((XUnmapEvent *)_p)->event = (unsigned long)_v;} unsigned long get_XUnmapEvent_window(void *_p) {return (unsigned long)((XUnmapEvent *)_p)->window;} void set_XUnmapEvent_window(void *_p, unsigned long _v) {((XUnmapEvent *)_p)->window = (unsigned long)_v;} int get_XUnmapEvent_from_configure(void *_p) {return (int)((XUnmapEvent *)_p)->from_configure;} void set_XUnmapEvent_from_configure(void *_p, int _v) {((XUnmapEvent *)_p)->from_configure = (int)_v;} void *alloc_XMapEvent(void) {XMapEvent *_p = (XMapEvent *)malloc(sizeof(XMapEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XMapEvent(void *_p) {if (_p==NULL) abort(); free((XMapEvent *)_p);} int get_XMapEvent_type(void *_p) {return (int)((XMapEvent *)_p)->type;} void set_XMapEvent_type(void *_p, int _v) {((XMapEvent *)_p)->type = (int)_v;} unsigned long get_XMapEvent_serial(void *_p) {return (unsigned long)((XMapEvent *)_p)->serial;} void set_XMapEvent_serial(void *_p, unsigned long _v) {((XMapEvent *)_p)->serial = (unsigned long)_v;} int get_XMapEvent_send_event(void *_p) {return (int)((XMapEvent *)_p)->send_event;} void set_XMapEvent_send_event(void *_p, int _v) {((XMapEvent *)_p)->send_event = (int)_v;} void *get_XMapEvent_display(void *_p) {return (void *)((XMapEvent *)_p)->display;} void set_XMapEvent_display(void *_p, void *_v) {((XMapEvent *)_p)->display = (Display *)_v;} unsigned long get_XMapEvent_event(void *_p) {return (unsigned long)((XMapEvent *)_p)->event;} void set_XMapEvent_event(void *_p, unsigned long _v) {((XMapEvent *)_p)->event = (unsigned long)_v;} unsigned long get_XMapEvent_window(void *_p) {return (unsigned long)((XMapEvent *)_p)->window;} void set_XMapEvent_window(void *_p, unsigned long _v) {((XMapEvent *)_p)->window = (unsigned long)_v;} int get_XMapEvent_override_redirect(void *_p) {return (int)((XMapEvent *)_p)->override_redirect;} void set_XMapEvent_override_redirect(void *_p, int _v) {((XMapEvent *)_p)->override_redirect = (int)_v;} void *alloc_XMapRequestEvent(void) {XMapRequestEvent *_p = (XMapRequestEvent *)malloc(sizeof(XMapRequestEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XMapRequestEvent(void *_p) {if (_p==NULL) abort(); free((XMapRequestEvent *)_p);} int get_XMapRequestEvent_type(void *_p) {return (int)((XMapRequestEvent *)_p)->type;} void set_XMapRequestEvent_type(void *_p, int _v) {((XMapRequestEvent *)_p)->type = (int)_v;} unsigned long get_XMapRequestEvent_serial(void *_p) {return (unsigned long)((XMapRequestEvent *)_p)->serial;} void set_XMapRequestEvent_serial(void *_p, unsigned long _v) {((XMapRequestEvent *)_p)->serial = (unsigned long)_v;} int get_XMapRequestEvent_send_event(void *_p) {return (int)((XMapRequestEvent *)_p)->send_event;} void set_XMapRequestEvent_send_event(void *_p, int _v) {((XMapRequestEvent *)_p)->send_event = (int)_v;} void *get_XMapRequestEvent_display(void *_p) {return (void *)((XMapRequestEvent *)_p)->display;} void set_XMapRequestEvent_display(void *_p, void *_v) {((XMapRequestEvent *)_p)->display = (Display *)_v;} unsigned long get_XMapRequestEvent_parent(void *_p) {return (unsigned long)((XMapRequestEvent *)_p)->parent;} void set_XMapRequestEvent_parent(void *_p, unsigned long _v) {((XMapRequestEvent *)_p)->parent = (unsigned long)_v;} unsigned long get_XMapRequestEvent_window(void *_p) {return (unsigned long)((XMapRequestEvent *)_p)->window;} void set_XMapRequestEvent_window(void *_p, unsigned long _v) {((XMapRequestEvent *)_p)->window = (unsigned long)_v;} void *alloc_XReparentEvent(void) {XReparentEvent *_p = (XReparentEvent *)malloc(sizeof(XReparentEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XReparentEvent(void *_p) {if (_p==NULL) abort(); free((XReparentEvent *)_p);} int get_XReparentEvent_type(void *_p) {return (int)((XReparentEvent *)_p)->type;} void set_XReparentEvent_type(void *_p, int _v) {((XReparentEvent *)_p)->type = (int)_v;} unsigned long get_XReparentEvent_serial(void *_p) {return (unsigned long)((XReparentEvent *)_p)->serial;} void set_XReparentEvent_serial(void *_p, unsigned long _v) {((XReparentEvent *)_p)->serial = (unsigned long)_v;} int get_XReparentEvent_send_event(void *_p) {return (int)((XReparentEvent *)_p)->send_event;} void set_XReparentEvent_send_event(void *_p, int _v) {((XReparentEvent *)_p)->send_event = (int)_v;} void *get_XReparentEvent_display(void *_p) {return (void *)((XReparentEvent *)_p)->display;} void set_XReparentEvent_display(void *_p, void *_v) {((XReparentEvent *)_p)->display = (Display *)_v;} unsigned long get_XReparentEvent_event(void *_p) {return (unsigned long)((XReparentEvent *)_p)->event;} void set_XReparentEvent_event(void *_p, unsigned long _v) {((XReparentEvent *)_p)->event = (unsigned long)_v;} unsigned long get_XReparentEvent_window(void *_p) {return (unsigned long)((XReparentEvent *)_p)->window;} void set_XReparentEvent_window(void *_p, unsigned long _v) {((XReparentEvent *)_p)->window = (unsigned long)_v;} unsigned long get_XReparentEvent_parent(void *_p) {return (unsigned long)((XReparentEvent *)_p)->parent;} void set_XReparentEvent_parent(void *_p, unsigned long _v) {((XReparentEvent *)_p)->parent = (unsigned long)_v;} int get_XReparentEvent_x(void *_p) {return (int)((XReparentEvent *)_p)->x;} void set_XReparentEvent_x(void *_p, int _v) {((XReparentEvent *)_p)->x = (int)_v;} int get_XReparentEvent_y(void *_p) {return (int)((XReparentEvent *)_p)->y;} void set_XReparentEvent_y(void *_p, int _v) {((XReparentEvent *)_p)->y = (int)_v;} int get_XReparentEvent_override_redirect(void *_p) {return (int)((XReparentEvent *)_p)->override_redirect;} void set_XReparentEvent_override_redirect(void *_p, int _v) {((XReparentEvent *)_p)->override_redirect = (int)_v;} void *alloc_XConfigureEvent(void) {XConfigureEvent *_p = (XConfigureEvent *)malloc(sizeof(XConfigureEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XConfigureEvent(void *_p) {if (_p==NULL) abort(); free((XConfigureEvent *)_p);} int get_XConfigureEvent_type(void *_p) {return (int)((XConfigureEvent *)_p)->type;} void set_XConfigureEvent_type(void *_p, int _v) {((XConfigureEvent *)_p)->type = (int)_v;} unsigned long get_XConfigureEvent_serial(void *_p) {return (unsigned long)((XConfigureEvent *)_p)->serial;} void set_XConfigureEvent_serial(void *_p, unsigned long _v) {((XConfigureEvent *)_p)->serial = (unsigned long)_v;} int get_XConfigureEvent_send_event(void *_p) {return (int)((XConfigureEvent *)_p)->send_event;} void set_XConfigureEvent_send_event(void *_p, int _v) {((XConfigureEvent *)_p)->send_event = (int)_v;} void *get_XConfigureEvent_display(void *_p) {return (void *)((XConfigureEvent *)_p)->display;} void set_XConfigureEvent_display(void *_p, void *_v) {((XConfigureEvent *)_p)->display = (Display *)_v;} unsigned long get_XConfigureEvent_event(void *_p) {return (unsigned long)((XConfigureEvent *)_p)->event;} void set_XConfigureEvent_event(void *_p, unsigned long _v) {((XConfigureEvent *)_p)->event = (unsigned long)_v;} unsigned long get_XConfigureEvent_window(void *_p) {return (unsigned long)((XConfigureEvent *)_p)->window;} void set_XConfigureEvent_window(void *_p, unsigned long _v) {((XConfigureEvent *)_p)->window = (unsigned long)_v;} int get_XConfigureEvent_x(void *_p) {return (int)((XConfigureEvent *)_p)->x;} void set_XConfigureEvent_x(void *_p, int _v) {((XConfigureEvent *)_p)->x = (int)_v;} int get_XConfigureEvent_y(void *_p) {return (int)((XConfigureEvent *)_p)->y;} void set_XConfigureEvent_y(void *_p, int _v) {((XConfigureEvent *)_p)->y = (int)_v;} int get_XConfigureEvent_width(void *_p) {return (int)((XConfigureEvent *)_p)->width;} void set_XConfigureEvent_width(void *_p, int _v) {((XConfigureEvent *)_p)->width = (int)_v;} int get_XConfigureEvent_height(void *_p) {return (int)((XConfigureEvent *)_p)->height;} void set_XConfigureEvent_height(void *_p, int _v) {((XConfigureEvent *)_p)->height = (int)_v;} int get_XConfigureEvent_border_width(void *_p) {return (int)((XConfigureEvent *)_p)->border_width;} void set_XConfigureEvent_border_width(void *_p, int _v) {((XConfigureEvent *)_p)->border_width = (int)_v;} unsigned long get_XConfigureEvent_above(void *_p) {return (unsigned long)((XConfigureEvent *)_p)->above;} void set_XConfigureEvent_above(void *_p, unsigned long _v) {((XConfigureEvent *)_p)->above = (unsigned long)_v;} int get_XConfigureEvent_override_redirect(void *_p) {return (int)((XConfigureEvent *)_p)->override_redirect;} void set_XConfigureEvent_override_redirect(void *_p, int _v) {((XConfigureEvent *)_p)->override_redirect = (int)_v;} void *alloc_XGravityEvent(void) {XGravityEvent *_p = (XGravityEvent *)malloc(sizeof(XGravityEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XGravityEvent(void *_p) {if (_p==NULL) abort(); free((XGravityEvent *)_p);} int get_XGravityEvent_type(void *_p) {return (int)((XGravityEvent *)_p)->type;} void set_XGravityEvent_type(void *_p, int _v) {((XGravityEvent *)_p)->type = (int)_v;} unsigned long get_XGravityEvent_serial(void *_p) {return (unsigned long)((XGravityEvent *)_p)->serial;} void set_XGravityEvent_serial(void *_p, unsigned long _v) {((XGravityEvent *)_p)->serial = (unsigned long)_v;} int get_XGravityEvent_send_event(void *_p) {return (int)((XGravityEvent *)_p)->send_event;} void set_XGravityEvent_send_event(void *_p, int _v) {((XGravityEvent *)_p)->send_event = (int)_v;} void *get_XGravityEvent_display(void *_p) {return (void *)((XGravityEvent *)_p)->display;} void set_XGravityEvent_display(void *_p, void *_v) {((XGravityEvent *)_p)->display = (Display *)_v;} unsigned long get_XGravityEvent_event(void *_p) {return (unsigned long)((XGravityEvent *)_p)->event;} void set_XGravityEvent_event(void *_p, unsigned long _v) {((XGravityEvent *)_p)->event = (unsigned long)_v;} unsigned long get_XGravityEvent_window(void *_p) {return (unsigned long)((XGravityEvent *)_p)->window;} void set_XGravityEvent_window(void *_p, unsigned long _v) {((XGravityEvent *)_p)->window = (unsigned long)_v;} int get_XGravityEvent_x(void *_p) {return (int)((XGravityEvent *)_p)->x;} void set_XGravityEvent_x(void *_p, int _v) {((XGravityEvent *)_p)->x = (int)_v;} int get_XGravityEvent_y(void *_p) {return (int)((XGravityEvent *)_p)->y;} void set_XGravityEvent_y(void *_p, int _v) {((XGravityEvent *)_p)->y = (int)_v;} void *alloc_XResizeRequestEvent(void) {XResizeRequestEvent *_p = (XResizeRequestEvent *)malloc(sizeof(XResizeRequestEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XResizeRequestEvent(void *_p) {if (_p==NULL) abort(); free((XResizeRequestEvent *)_p);} int get_XResizeRequestEvent_type(void *_p) {return (int)((XResizeRequestEvent *)_p)->type;} void set_XResizeRequestEvent_type(void *_p, int _v) {((XResizeRequestEvent *)_p)->type = (int)_v;} unsigned long get_XResizeRequestEvent_serial(void *_p) {return (unsigned long)((XResizeRequestEvent *)_p)->serial;} void set_XResizeRequestEvent_serial(void *_p, unsigned long _v) {((XResizeRequestEvent *)_p)->serial = (unsigned long)_v;} int get_XResizeRequestEvent_send_event(void *_p) {return (int)((XResizeRequestEvent *)_p)->send_event;} void set_XResizeRequestEvent_send_event(void *_p, int _v) {((XResizeRequestEvent *)_p)->send_event = (int)_v;} void *get_XResizeRequestEvent_display(void *_p) {return (void *)((XResizeRequestEvent *)_p)->display;} void set_XResizeRequestEvent_display(void *_p, void *_v) {((XResizeRequestEvent *)_p)->display = (Display *)_v;} unsigned long get_XResizeRequestEvent_window(void *_p) {return (unsigned long)((XResizeRequestEvent *)_p)->window;} void set_XResizeRequestEvent_window(void *_p, unsigned long _v) {((XResizeRequestEvent *)_p)->window = (unsigned long)_v;} int get_XResizeRequestEvent_width(void *_p) {return (int)((XResizeRequestEvent *)_p)->width;} void set_XResizeRequestEvent_width(void *_p, int _v) {((XResizeRequestEvent *)_p)->width = (int)_v;} int get_XResizeRequestEvent_height(void *_p) {return (int)((XResizeRequestEvent *)_p)->height;} void set_XResizeRequestEvent_height(void *_p, int _v) {((XResizeRequestEvent *)_p)->height = (int)_v;} void *alloc_XConfigureRequestEvent(void) {XConfigureRequestEvent *_p = (XConfigureRequestEvent *)malloc(sizeof(XConfigureRequestEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XConfigureRequestEvent(void *_p) {if (_p==NULL) abort(); free((XConfigureRequestEvent *)_p);} int get_XConfigureRequestEvent_type(void *_p) {return (int)((XConfigureRequestEvent *)_p)->type;} void set_XConfigureRequestEvent_type(void *_p, int _v) {((XConfigureRequestEvent *)_p)->type = (int)_v;} unsigned long get_XConfigureRequestEvent_serial(void *_p) {return (unsigned long)((XConfigureRequestEvent *)_p)->serial;} void set_XConfigureRequestEvent_serial(void *_p, unsigned long _v) {((XConfigureRequestEvent *)_p)->serial = (unsigned long)_v;} int get_XConfigureRequestEvent_send_event(void *_p) {return (int)((XConfigureRequestEvent *)_p)->send_event;} void set_XConfigureRequestEvent_send_event(void *_p, int _v) {((XConfigureRequestEvent *)_p)->send_event = (int)_v;} void *get_XConfigureRequestEvent_display(void *_p) {return (void *)((XConfigureRequestEvent *)_p)->display;} void set_XConfigureRequestEvent_display(void *_p, void *_v) {((XConfigureRequestEvent *)_p)->display = (Display *)_v;} unsigned long get_XConfigureRequestEvent_parent(void *_p) {return (unsigned long)((XConfigureRequestEvent *)_p)->parent;} void set_XConfigureRequestEvent_parent(void *_p, unsigned long _v) {((XConfigureRequestEvent *)_p)->parent = (unsigned long)_v;} unsigned long get_XConfigureRequestEvent_window(void *_p) {return (unsigned long)((XConfigureRequestEvent *)_p)->window;} void set_XConfigureRequestEvent_window(void *_p, unsigned long _v) {((XConfigureRequestEvent *)_p)->window = (unsigned long)_v;} int get_XConfigureRequestEvent_x(void *_p) {return (int)((XConfigureRequestEvent *)_p)->x;} void set_XConfigureRequestEvent_x(void *_p, int _v) {((XConfigureRequestEvent *)_p)->x = (int)_v;} int get_XConfigureRequestEvent_y(void *_p) {return (int)((XConfigureRequestEvent *)_p)->y;} void set_XConfigureRequestEvent_y(void *_p, int _v) {((XConfigureRequestEvent *)_p)->y = (int)_v;} int get_XConfigureRequestEvent_width(void *_p) {return (int)((XConfigureRequestEvent *)_p)->width;} void set_XConfigureRequestEvent_width(void *_p, int _v) {((XConfigureRequestEvent *)_p)->width = (int)_v;} int get_XConfigureRequestEvent_height(void *_p) {return (int)((XConfigureRequestEvent *)_p)->height;} void set_XConfigureRequestEvent_height(void *_p, int _v) {((XConfigureRequestEvent *)_p)->height = (int)_v;} int get_XConfigureRequestEvent_border_width(void *_p) {return (int)((XConfigureRequestEvent *)_p)->border_width;} void set_XConfigureRequestEvent_border_width(void *_p, int _v) {((XConfigureRequestEvent *)_p)->border_width = (int)_v;} unsigned long get_XConfigureRequestEvent_above(void *_p) {return (unsigned long)((XConfigureRequestEvent *)_p)->above;} void set_XConfigureRequestEvent_above(void *_p, unsigned long _v) {((XConfigureRequestEvent *)_p)->above = (unsigned long)_v;} int get_XConfigureRequestEvent_detail(void *_p) {return (int)((XConfigureRequestEvent *)_p)->detail;} void set_XConfigureRequestEvent_detail(void *_p, int _v) {((XConfigureRequestEvent *)_p)->detail = (int)_v;} unsigned long get_XConfigureRequestEvent_value_mask(void *_p) {return (unsigned long)((XConfigureRequestEvent *)_p)->value_mask;} void set_XConfigureRequestEvent_value_mask(void *_p, unsigned long _v) {((XConfigureRequestEvent *)_p)->value_mask = (unsigned long)_v;} void *alloc_XCirculateEvent(void) {XCirculateEvent *_p = (XCirculateEvent *)malloc(sizeof(XCirculateEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XCirculateEvent(void *_p) {if (_p==NULL) abort(); free((XCirculateEvent *)_p);} int get_XCirculateEvent_type(void *_p) {return (int)((XCirculateEvent *)_p)->type;} void set_XCirculateEvent_type(void *_p, int _v) {((XCirculateEvent *)_p)->type = (int)_v;} unsigned long get_XCirculateEvent_serial(void *_p) {return (unsigned long)((XCirculateEvent *)_p)->serial;} void set_XCirculateEvent_serial(void *_p, unsigned long _v) {((XCirculateEvent *)_p)->serial = (unsigned long)_v;} int get_XCirculateEvent_send_event(void *_p) {return (int)((XCirculateEvent *)_p)->send_event;} void set_XCirculateEvent_send_event(void *_p, int _v) {((XCirculateEvent *)_p)->send_event = (int)_v;} void *get_XCirculateEvent_display(void *_p) {return (void *)((XCirculateEvent *)_p)->display;} void set_XCirculateEvent_display(void *_p, void *_v) {((XCirculateEvent *)_p)->display = (Display *)_v;} unsigned long get_XCirculateEvent_event(void *_p) {return (unsigned long)((XCirculateEvent *)_p)->event;} void set_XCirculateEvent_event(void *_p, unsigned long _v) {((XCirculateEvent *)_p)->event = (unsigned long)_v;} unsigned long get_XCirculateEvent_window(void *_p) {return (unsigned long)((XCirculateEvent *)_p)->window;} void set_XCirculateEvent_window(void *_p, unsigned long _v) {((XCirculateEvent *)_p)->window = (unsigned long)_v;} int get_XCirculateEvent_place(void *_p) {return (int)((XCirculateEvent *)_p)->place;} void set_XCirculateEvent_place(void *_p, int _v) {((XCirculateEvent *)_p)->place = (int)_v;} void *alloc_XCirculateRequestEvent(void) {XCirculateRequestEvent *_p = (XCirculateRequestEvent *)malloc(sizeof(XCirculateRequestEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XCirculateRequestEvent(void *_p) {if (_p==NULL) abort(); free((XCirculateRequestEvent *)_p);} int get_XCirculateRequestEvent_type(void *_p) {return (int)((XCirculateRequestEvent *)_p)->type;} void set_XCirculateRequestEvent_type(void *_p, int _v) {((XCirculateRequestEvent *)_p)->type = (int)_v;} unsigned long get_XCirculateRequestEvent_serial(void *_p) {return (unsigned long)((XCirculateRequestEvent *)_p)->serial;} void set_XCirculateRequestEvent_serial(void *_p, unsigned long _v) {((XCirculateRequestEvent *)_p)->serial = (unsigned long)_v;} int get_XCirculateRequestEvent_send_event(void *_p) {return (int)((XCirculateRequestEvent *)_p)->send_event;} void set_XCirculateRequestEvent_send_event(void *_p, int _v) {((XCirculateRequestEvent *)_p)->send_event = (int)_v;} void *get_XCirculateRequestEvent_display(void *_p) {return (void *)((XCirculateRequestEvent *)_p)->display;} void set_XCirculateRequestEvent_display(void *_p, void *_v) {((XCirculateRequestEvent *)_p)->display = (Display *)_v;} unsigned long get_XCirculateRequestEvent_parent(void *_p) {return (unsigned long)((XCirculateRequestEvent *)_p)->parent;} void set_XCirculateRequestEvent_parent(void *_p, unsigned long _v) {((XCirculateRequestEvent *)_p)->parent = (unsigned long)_v;} unsigned long get_XCirculateRequestEvent_window(void *_p) {return (unsigned long)((XCirculateRequestEvent *)_p)->window;} void set_XCirculateRequestEvent_window(void *_p, unsigned long _v) {((XCirculateRequestEvent *)_p)->window = (unsigned long)_v;} int get_XCirculateRequestEvent_place(void *_p) {return (int)((XCirculateRequestEvent *)_p)->place;} void set_XCirculateRequestEvent_place(void *_p, int _v) {((XCirculateRequestEvent *)_p)->place = (int)_v;} void *alloc_XPropertyEvent(void) {XPropertyEvent *_p = (XPropertyEvent *)malloc(sizeof(XPropertyEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XPropertyEvent(void *_p) {if (_p==NULL) abort(); free((XPropertyEvent *)_p);} int get_XPropertyEvent_type(void *_p) {return (int)((XPropertyEvent *)_p)->type;} void set_XPropertyEvent_type(void *_p, int _v) {((XPropertyEvent *)_p)->type = (int)_v;} unsigned long get_XPropertyEvent_serial(void *_p) {return (unsigned long)((XPropertyEvent *)_p)->serial;} void set_XPropertyEvent_serial(void *_p, unsigned long _v) {((XPropertyEvent *)_p)->serial = (unsigned long)_v;} int get_XPropertyEvent_send_event(void *_p) {return (int)((XPropertyEvent *)_p)->send_event;} void set_XPropertyEvent_send_event(void *_p, int _v) {((XPropertyEvent *)_p)->send_event = (int)_v;} void *get_XPropertyEvent_display(void *_p) {return (void *)((XPropertyEvent *)_p)->display;} void set_XPropertyEvent_display(void *_p, void *_v) {((XPropertyEvent *)_p)->display = (Display *)_v;} unsigned long get_XPropertyEvent_window(void *_p) {return (unsigned long)((XPropertyEvent *)_p)->window;} void set_XPropertyEvent_window(void *_p, unsigned long _v) {((XPropertyEvent *)_p)->window = (unsigned long)_v;} unsigned long get_XPropertyEvent_atom(void *_p) {return (unsigned long)((XPropertyEvent *)_p)->atom;} void set_XPropertyEvent_atom(void *_p, unsigned long _v) {((XPropertyEvent *)_p)->atom = (unsigned long)_v;} unsigned long get_XPropertyEvent_time(void *_p) {return (unsigned long)((XPropertyEvent *)_p)->time;} void set_XPropertyEvent_time(void *_p, unsigned long _v) {((XPropertyEvent *)_p)->time = (unsigned long)_v;} int get_XPropertyEvent_state(void *_p) {return (int)((XPropertyEvent *)_p)->state;} void set_XPropertyEvent_state(void *_p, int _v) {((XPropertyEvent *)_p)->state = (int)_v;} void *alloc_XSelectionClearEvent(void) {XSelectionClearEvent *_p = (XSelectionClearEvent *)malloc(sizeof(XSelectionClearEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XSelectionClearEvent(void *_p) {if (_p==NULL) abort(); free((XSelectionClearEvent *)_p);} int get_XSelectionClearEvent_type(void *_p) {return (int)((XSelectionClearEvent *)_p)->type;} void set_XSelectionClearEvent_type(void *_p, int _v) {((XSelectionClearEvent *)_p)->type = (int)_v;} unsigned long get_XSelectionClearEvent_serial(void *_p) {return (unsigned long)((XSelectionClearEvent *)_p)->serial;} void set_XSelectionClearEvent_serial(void *_p, unsigned long _v) {((XSelectionClearEvent *)_p)->serial = (unsigned long)_v;} int get_XSelectionClearEvent_send_event(void *_p) {return (int)((XSelectionClearEvent *)_p)->send_event;} void set_XSelectionClearEvent_send_event(void *_p, int _v) {((XSelectionClearEvent *)_p)->send_event = (int)_v;} void *get_XSelectionClearEvent_display(void *_p) {return (void *)((XSelectionClearEvent *)_p)->display;} void set_XSelectionClearEvent_display(void *_p, void *_v) {((XSelectionClearEvent *)_p)->display = (Display *)_v;} unsigned long get_XSelectionClearEvent_window(void *_p) {return (unsigned long)((XSelectionClearEvent *)_p)->window;} void set_XSelectionClearEvent_window(void *_p, unsigned long _v) {((XSelectionClearEvent *)_p)->window = (unsigned long)_v;} unsigned long get_XSelectionClearEvent_selection(void *_p) {return (unsigned long)((XSelectionClearEvent *)_p)->selection;} void set_XSelectionClearEvent_selection(void *_p, unsigned long _v) {((XSelectionClearEvent *)_p)->selection = (unsigned long)_v;} unsigned long get_XSelectionClearEvent_time(void *_p) {return (unsigned long)((XSelectionClearEvent *)_p)->time;} void set_XSelectionClearEvent_time(void *_p, unsigned long _v) {((XSelectionClearEvent *)_p)->time = (unsigned long)_v;} void *alloc_XSelectionRequestEvent(void) {XSelectionRequestEvent *_p = (XSelectionRequestEvent *)malloc(sizeof(XSelectionRequestEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XSelectionRequestEvent(void *_p) {if (_p==NULL) abort(); free((XSelectionRequestEvent *)_p);} int get_XSelectionRequestEvent_type(void *_p) {return (int)((XSelectionRequestEvent *)_p)->type;} void set_XSelectionRequestEvent_type(void *_p, int _v) {((XSelectionRequestEvent *)_p)->type = (int)_v;} unsigned long get_XSelectionRequestEvent_serial(void *_p) {return (unsigned long)((XSelectionRequestEvent *)_p)->serial;} void set_XSelectionRequestEvent_serial(void *_p, unsigned long _v) {((XSelectionRequestEvent *)_p)->serial = (unsigned long)_v;} int get_XSelectionRequestEvent_send_event(void *_p) {return (int)((XSelectionRequestEvent *)_p)->send_event;} void set_XSelectionRequestEvent_send_event(void *_p, int _v) {((XSelectionRequestEvent *)_p)->send_event = (int)_v;} void *get_XSelectionRequestEvent_display(void *_p) {return (void *)((XSelectionRequestEvent *)_p)->display;} void set_XSelectionRequestEvent_display(void *_p, void *_v) {((XSelectionRequestEvent *)_p)->display = (Display *)_v;} unsigned long get_XSelectionRequestEvent_owner(void *_p) {return (unsigned long)((XSelectionRequestEvent *)_p)->owner;} void set_XSelectionRequestEvent_owner(void *_p, unsigned long _v) {((XSelectionRequestEvent *)_p)->owner = (unsigned long)_v;} unsigned long get_XSelectionRequestEvent_requestor(void *_p) {return (unsigned long)((XSelectionRequestEvent *)_p)->requestor;} void set_XSelectionRequestEvent_requestor(void *_p, unsigned long _v) {((XSelectionRequestEvent *)_p)->requestor = (unsigned long)_v;} unsigned long get_XSelectionRequestEvent_selection(void *_p) {return (unsigned long)((XSelectionRequestEvent *)_p)->selection;} void set_XSelectionRequestEvent_selection(void *_p, unsigned long _v) {((XSelectionRequestEvent *)_p)->selection = (unsigned long)_v;} unsigned long get_XSelectionRequestEvent_target(void *_p) {return (unsigned long)((XSelectionRequestEvent *)_p)->target;} void set_XSelectionRequestEvent_target(void *_p, unsigned long _v) {((XSelectionRequestEvent *)_p)->target = (unsigned long)_v;} unsigned long get_XSelectionRequestEvent_property(void *_p) {return (unsigned long)((XSelectionRequestEvent *)_p)->property;} void set_XSelectionRequestEvent_property(void *_p, unsigned long _v) {((XSelectionRequestEvent *)_p)->property = (unsigned long)_v;} unsigned long get_XSelectionRequestEvent_time(void *_p) {return (unsigned long)((XSelectionRequestEvent *)_p)->time;} void set_XSelectionRequestEvent_time(void *_p, unsigned long _v) {((XSelectionRequestEvent *)_p)->time = (unsigned long)_v;} void *alloc_XSelectionEvent(void) {XSelectionEvent *_p = (XSelectionEvent *)malloc(sizeof(XSelectionEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XSelectionEvent(void *_p) {if (_p==NULL) abort(); free((XSelectionEvent *)_p);} int get_XSelectionEvent_type(void *_p) {return (int)((XSelectionEvent *)_p)->type;} void set_XSelectionEvent_type(void *_p, int _v) {((XSelectionEvent *)_p)->type = (int)_v;} unsigned long get_XSelectionEvent_serial(void *_p) {return (unsigned long)((XSelectionEvent *)_p)->serial;} void set_XSelectionEvent_serial(void *_p, unsigned long _v) {((XSelectionEvent *)_p)->serial = (unsigned long)_v;} int get_XSelectionEvent_send_event(void *_p) {return (int)((XSelectionEvent *)_p)->send_event;} void set_XSelectionEvent_send_event(void *_p, int _v) {((XSelectionEvent *)_p)->send_event = (int)_v;} void *get_XSelectionEvent_display(void *_p) {return (void *)((XSelectionEvent *)_p)->display;} void set_XSelectionEvent_display(void *_p, void *_v) {((XSelectionEvent *)_p)->display = (Display *)_v;} unsigned long get_XSelectionEvent_requestor(void *_p) {return (unsigned long)((XSelectionEvent *)_p)->requestor;} void set_XSelectionEvent_requestor(void *_p, unsigned long _v) {((XSelectionEvent *)_p)->requestor = (unsigned long)_v;} unsigned long get_XSelectionEvent_selection(void *_p) {return (unsigned long)((XSelectionEvent *)_p)->selection;} void set_XSelectionEvent_selection(void *_p, unsigned long _v) {((XSelectionEvent *)_p)->selection = (unsigned long)_v;} unsigned long get_XSelectionEvent_target(void *_p) {return (unsigned long)((XSelectionEvent *)_p)->target;} void set_XSelectionEvent_target(void *_p, unsigned long _v) {((XSelectionEvent *)_p)->target = (unsigned long)_v;} unsigned long get_XSelectionEvent_property(void *_p) {return (unsigned long)((XSelectionEvent *)_p)->property;} void set_XSelectionEvent_property(void *_p, unsigned long _v) {((XSelectionEvent *)_p)->property = (unsigned long)_v;} unsigned long get_XSelectionEvent_time(void *_p) {return (unsigned long)((XSelectionEvent *)_p)->time;} void set_XSelectionEvent_time(void *_p, unsigned long _v) {((XSelectionEvent *)_p)->time = (unsigned long)_v;} void *alloc_XColormapEvent(void) {XColormapEvent *_p = (XColormapEvent *)malloc(sizeof(XColormapEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XColormapEvent(void *_p) {if (_p==NULL) abort(); free((XColormapEvent *)_p);} int get_XColormapEvent_type(void *_p) {return (int)((XColormapEvent *)_p)->type;} void set_XColormapEvent_type(void *_p, int _v) {((XColormapEvent *)_p)->type = (int)_v;} unsigned long get_XColormapEvent_serial(void *_p) {return (unsigned long)((XColormapEvent *)_p)->serial;} void set_XColormapEvent_serial(void *_p, unsigned long _v) {((XColormapEvent *)_p)->serial = (unsigned long)_v;} int get_XColormapEvent_send_event(void *_p) {return (int)((XColormapEvent *)_p)->send_event;} void set_XColormapEvent_send_event(void *_p, int _v) {((XColormapEvent *)_p)->send_event = (int)_v;} void *get_XColormapEvent_display(void *_p) {return (void *)((XColormapEvent *)_p)->display;} void set_XColormapEvent_display(void *_p, void *_v) {((XColormapEvent *)_p)->display = (Display *)_v;} unsigned long get_XColormapEvent_window(void *_p) {return (unsigned long)((XColormapEvent *)_p)->window;} void set_XColormapEvent_window(void *_p, unsigned long _v) {((XColormapEvent *)_p)->window = (unsigned long)_v;} unsigned long get_XColormapEvent_colormap(void *_p) {return (unsigned long)((XColormapEvent *)_p)->colormap;} void set_XColormapEvent_colormap(void *_p, unsigned long _v) {((XColormapEvent *)_p)->colormap = (unsigned long)_v;} int get_XColormapEvent_new(void *_p) {return (int)((XColormapEvent *)_p)->new;} void set_XColormapEvent_new(void *_p, int _v) {((XColormapEvent *)_p)->new = (int)_v;} int get_XColormapEvent_state(void *_p) {return (int)((XColormapEvent *)_p)->state;} void set_XColormapEvent_state(void *_p, int _v) {((XColormapEvent *)_p)->state = (int)_v;} void *alloc_XClientMessageEvent(void) {XClientMessageEvent *_p = (XClientMessageEvent *)malloc(sizeof(XClientMessageEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XClientMessageEvent(void *_p) {if (_p==NULL) abort(); free((XClientMessageEvent *)_p);} int get_XClientMessageEvent_type(void *_p) {return (int)((XClientMessageEvent *)_p)->type;} void set_XClientMessageEvent_type(void *_p, int _v) {((XClientMessageEvent *)_p)->type = (int)_v;} unsigned long get_XClientMessageEvent_serial(void *_p) {return (unsigned long)((XClientMessageEvent *)_p)->serial;} void set_XClientMessageEvent_serial(void *_p, unsigned long _v) {((XClientMessageEvent *)_p)->serial = (unsigned long)_v;} int get_XClientMessageEvent_send_event(void *_p) {return (int)((XClientMessageEvent *)_p)->send_event;} void set_XClientMessageEvent_send_event(void *_p, int _v) {((XClientMessageEvent *)_p)->send_event = (int)_v;} void *get_XClientMessageEvent_display(void *_p) {return (void *)((XClientMessageEvent *)_p)->display;} void set_XClientMessageEvent_display(void *_p, void *_v) {((XClientMessageEvent *)_p)->display = (Display *)_v;} unsigned long get_XClientMessageEvent_window(void *_p) {return (unsigned long)((XClientMessageEvent *)_p)->window;} void set_XClientMessageEvent_window(void *_p, unsigned long _v) {((XClientMessageEvent *)_p)->window = (unsigned long)_v;} unsigned long get_XClientMessageEvent_message_type(void *_p) {return (unsigned long)((XClientMessageEvent *)_p)->message_type;} void set_XClientMessageEvent_message_type(void *_p, unsigned long _v) {((XClientMessageEvent *)_p)->message_type = (unsigned long)_v;} int get_XClientMessageEvent_format(void *_p) {return (int)((XClientMessageEvent *)_p)->format;} void set_XClientMessageEvent_format(void *_p, int _v) {((XClientMessageEvent *)_p)->format = (int)_v;} void *get_XClientMessageEvent_data_b(void *_p) {return (void *)(((XClientMessageEvent *)_p)->data.b);} void *get_XClientMessageEvent_data_s(void *_p) {return (void *)(((XClientMessageEvent *)_p)->data.s);} void *get_XClientMessageEvent_data_l(void *_p) {return (void *)(((XClientMessageEvent *)_p)->data.l);} void *alloc_XMappingEvent(void) {XMappingEvent *_p = (XMappingEvent *)malloc(sizeof(XMappingEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XMappingEvent(void *_p) {if (_p==NULL) abort(); free((XMappingEvent *)_p);} int get_XMappingEvent_type(void *_p) {return (int)((XMappingEvent *)_p)->type;} void set_XMappingEvent_type(void *_p, int _v) {((XMappingEvent *)_p)->type = (int)_v;} unsigned long get_XMappingEvent_serial(void *_p) {return (unsigned long)((XMappingEvent *)_p)->serial;} void set_XMappingEvent_serial(void *_p, unsigned long _v) {((XMappingEvent *)_p)->serial = (unsigned long)_v;} int get_XMappingEvent_send_event(void *_p) {return (int)((XMappingEvent *)_p)->send_event;} void set_XMappingEvent_send_event(void *_p, int _v) {((XMappingEvent *)_p)->send_event = (int)_v;} void *get_XMappingEvent_display(void *_p) {return (void *)((XMappingEvent *)_p)->display;} void set_XMappingEvent_display(void *_p, void *_v) {((XMappingEvent *)_p)->display = (Display *)_v;} unsigned long get_XMappingEvent_window(void *_p) {return (unsigned long)((XMappingEvent *)_p)->window;} void set_XMappingEvent_window(void *_p, unsigned long _v) {((XMappingEvent *)_p)->window = (unsigned long)_v;} int get_XMappingEvent_request(void *_p) {return (int)((XMappingEvent *)_p)->request;} void set_XMappingEvent_request(void *_p, int _v) {((XMappingEvent *)_p)->request = (int)_v;} int get_XMappingEvent_first_keycode(void *_p) {return (int)((XMappingEvent *)_p)->first_keycode;} void set_XMappingEvent_first_keycode(void *_p, int _v) {((XMappingEvent *)_p)->first_keycode = (int)_v;} int get_XMappingEvent_count(void *_p) {return (int)((XMappingEvent *)_p)->count;} void set_XMappingEvent_count(void *_p, int _v) {((XMappingEvent *)_p)->count = (int)_v;} void *alloc_XErrorEvent(void) {XErrorEvent *_p = (XErrorEvent *)malloc(sizeof(XErrorEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XErrorEvent(void *_p) {if (_p==NULL) abort(); free((XErrorEvent *)_p);} int get_XErrorEvent_type(void *_p) {return (int)((XErrorEvent *)_p)->type;} void set_XErrorEvent_type(void *_p, int _v) {((XErrorEvent *)_p)->type = (int)_v;} void *get_XErrorEvent_display(void *_p) {return (void *)((XErrorEvent *)_p)->display;} void set_XErrorEvent_display(void *_p, void *_v) {((XErrorEvent *)_p)->display = (Display *)_v;} unsigned long get_XErrorEvent_resourceid(void *_p) {return (unsigned long)((XErrorEvent *)_p)->resourceid;} void set_XErrorEvent_resourceid(void *_p, unsigned long _v) {((XErrorEvent *)_p)->resourceid = (unsigned long)_v;} unsigned long get_XErrorEvent_serial(void *_p) {return (unsigned long)((XErrorEvent *)_p)->serial;} void set_XErrorEvent_serial(void *_p, unsigned long _v) {((XErrorEvent *)_p)->serial = (unsigned long)_v;} unsigned char get_XErrorEvent_error_code(void *_p) {return (unsigned char)((XErrorEvent *)_p)->error_code;} void set_XErrorEvent_error_code(void *_p, unsigned char _v) {((XErrorEvent *)_p)->error_code = (unsigned char)_v;} unsigned char get_XErrorEvent_request_code(void *_p) {return (unsigned char)((XErrorEvent *)_p)->request_code;} void set_XErrorEvent_request_code(void *_p, unsigned char _v) {((XErrorEvent *)_p)->request_code = (unsigned char)_v;} unsigned char get_XErrorEvent_minor_code(void *_p) {return (unsigned char)((XErrorEvent *)_p)->minor_code;} void set_XErrorEvent_minor_code(void *_p, unsigned char _v) {((XErrorEvent *)_p)->minor_code = (unsigned char)_v;} void *alloc_XAnyEvent(void) {XAnyEvent *_p = (XAnyEvent *)malloc(sizeof(XAnyEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XAnyEvent(void *_p) {if (_p==NULL) abort(); free((XAnyEvent *)_p);} int get_XAnyEvent_type(void *_p) {return (int)((XAnyEvent *)_p)->type;} void set_XAnyEvent_type(void *_p, int _v) {((XAnyEvent *)_p)->type = (int)_v;} unsigned long get_XAnyEvent_serial(void *_p) {return (unsigned long)((XAnyEvent *)_p)->serial;} void set_XAnyEvent_serial(void *_p, unsigned long _v) {((XAnyEvent *)_p)->serial = (unsigned long)_v;} int get_XAnyEvent_send_event(void *_p) {return (int)((XAnyEvent *)_p)->send_event;} void set_XAnyEvent_send_event(void *_p, int _v) {((XAnyEvent *)_p)->send_event = (int)_v;} void *get_XAnyEvent_display(void *_p) {return (void *)((XAnyEvent *)_p)->display;} void set_XAnyEvent_display(void *_p, void *_v) {((XAnyEvent *)_p)->display = (Display *)_v;} unsigned long get_XAnyEvent_window(void *_p) {return (unsigned long)((XAnyEvent *)_p)->window;} void set_XAnyEvent_window(void *_p, unsigned long _v) {((XAnyEvent *)_p)->window = (unsigned long)_v;} void *alloc_XCharStruct(void) {XCharStruct *_p = (XCharStruct *)malloc(sizeof(XCharStruct)); if (_p==NULL) abort(); return (void *)_p;} void free_XCharStruct(void *_p) {if (_p==NULL) abort(); free((XCharStruct *)_p);} short get_XCharStruct_lbearing(void *_p) {return (short)((XCharStruct *)_p)->lbearing;} void set_XCharStruct_lbearing(void *_p, short _v) {((XCharStruct *)_p)->lbearing = (short)_v;} short get_XCharStruct_rbearing(void *_p) {return (short)((XCharStruct *)_p)->rbearing;} void set_XCharStruct_rbearing(void *_p, short _v) {((XCharStruct *)_p)->rbearing = (short)_v;} short get_XCharStruct_width(void *_p) {return (short)((XCharStruct *)_p)->width;} void set_XCharStruct_width(void *_p, short _v) {((XCharStruct *)_p)->width = (short)_v;} short get_XCharStruct_ascent(void *_p) {return (short)((XCharStruct *)_p)->ascent;} void set_XCharStruct_ascent(void *_p, short _v) {((XCharStruct *)_p)->ascent = (short)_v;} short get_XCharStruct_descent(void *_p) {return (short)((XCharStruct *)_p)->descent;} void set_XCharStruct_descent(void *_p, short _v) {((XCharStruct *)_p)->descent = (short)_v;} unsigned short get_XCharStruct_attributes(void *_p) {return (unsigned short)((XCharStruct *)_p)->attributes;} void set_XCharStruct_attributes(void *_p, unsigned short _v) {((XCharStruct *)_p)->attributes = (unsigned short)_v;} void *alloc_XFontProp(void) {XFontProp *_p = (XFontProp *)malloc(sizeof(XFontProp)); if (_p==NULL) abort(); return (void *)_p;} void free_XFontProp(void *_p) {if (_p==NULL) abort(); free((XFontProp *)_p);} unsigned long get_XFontProp_name(void *_p) {return (unsigned long)((XFontProp *)_p)->name;} void set_XFontProp_name(void *_p, unsigned long _v) {((XFontProp *)_p)->name = (unsigned long)_v;} unsigned long get_XFontProp_card32(void *_p) {return (unsigned long)((XFontProp *)_p)->card32;} void set_XFontProp_card32(void *_p, unsigned long _v) {((XFontProp *)_p)->card32 = (unsigned long)_v;} void *alloc_XFontStruct(void) {XFontStruct *_p = (XFontStruct *)malloc(sizeof(XFontStruct)); if (_p==NULL) abort(); return (void *)_p;} void free_XFontStruct(void *_p) {if (_p==NULL) abort(); free((XFontStruct *)_p);} void *get_XFontStruct_ext_data(void *_p) {return (void *)((XFontStruct *)_p)->ext_data;} void set_XFontStruct_ext_data(void *_p, void *_v) {((XFontStruct *)_p)->ext_data = (XExtData *)_v;} unsigned long get_XFontStruct_fid(void *_p) {return (unsigned long)((XFontStruct *)_p)->fid;} void set_XFontStruct_fid(void *_p, unsigned long _v) {((XFontStruct *)_p)->fid = (unsigned long)_v;} unsigned get_XFontStruct_direction(void *_p) {return (unsigned)((XFontStruct *)_p)->direction;} void set_XFontStruct_direction(void *_p, unsigned _v) {((XFontStruct *)_p)->direction = (unsigned)_v;} unsigned get_XFontStruct_min_char_or_byte2(void *_p) {return (unsigned)((XFontStruct *)_p)->min_char_or_byte2;} void set_XFontStruct_min_char_or_byte2(void *_p, unsigned _v) {((XFontStruct *)_p)->min_char_or_byte2 = (unsigned)_v;} unsigned get_XFontStruct_max_char_or_byte2(void *_p) {return (unsigned)((XFontStruct *)_p)->max_char_or_byte2;} void set_XFontStruct_max_char_or_byte2(void *_p, unsigned _v) {((XFontStruct *)_p)->max_char_or_byte2 = (unsigned)_v;} unsigned get_XFontStruct_min_byte1(void *_p) {return (unsigned)((XFontStruct *)_p)->min_byte1;} void set_XFontStruct_min_byte1(void *_p, unsigned _v) {((XFontStruct *)_p)->min_byte1 = (unsigned)_v;} unsigned get_XFontStruct_max_byte1(void *_p) {return (unsigned)((XFontStruct *)_p)->max_byte1;} void set_XFontStruct_max_byte1(void *_p, unsigned _v) {((XFontStruct *)_p)->max_byte1 = (unsigned)_v;} int get_XFontStruct_all_chars_exist(void *_p) {return (int)((XFontStruct *)_p)->all_chars_exist;} void set_XFontStruct_all_chars_exist(void *_p, int _v) {((XFontStruct *)_p)->all_chars_exist = (int)_v;} unsigned get_XFontStruct_default_char(void *_p) {return (unsigned)((XFontStruct *)_p)->default_char;} void set_XFontStruct_default_char(void *_p, unsigned _v) {((XFontStruct *)_p)->default_char = (unsigned)_v;} int get_XFontStruct_n_properties(void *_p) {return (int)((XFontStruct *)_p)->n_properties;} void set_XFontStruct_n_properties(void *_p, int _v) {((XFontStruct *)_p)->n_properties = (int)_v;} void *get_XFontStruct_properties(void *_p) {return (void *)((XFontStruct *)_p)->properties;} void set_XFontStruct_properties(void *_p, void *_v) {((XFontStruct *)_p)->properties = (XFontProp *)_v;} short get_XFontStruct_min_bounds_lbearing(void *_p) {return (short)((XFontStruct *)_p)->min_bounds.lbearing;} void set_XFontStruct_min_bounds_lbearing(void *_p, short _v) {((XFontStruct *)_p)->min_bounds.lbearing = (short)_v;} short get_XFontStruct_min_bounds_rbearing(void *_p) {return (short)((XFontStruct *)_p)->min_bounds.rbearing;} void set_XFontStruct_min_bounds_rbearing(void *_p, short _v) {((XFontStruct *)_p)->min_bounds.rbearing = (short)_v;} short get_XFontStruct_min_bounds_width(void *_p) {return (short)((XFontStruct *)_p)->min_bounds.width;} void set_XFontStruct_min_bounds_width(void *_p, short _v) {((XFontStruct *)_p)->min_bounds.width = (short)_v;} short get_XFontStruct_min_bounds_ascent(void *_p) {return (short)((XFontStruct *)_p)->min_bounds.ascent;} void set_XFontStruct_min_bounds_ascent(void *_p, short _v) {((XFontStruct *)_p)->min_bounds.ascent = (short)_v;} short get_XFontStruct_min_bounds_descent(void *_p) {return (short)((XFontStruct *)_p)->min_bounds.descent;} void set_XFontStruct_min_bounds_descent(void *_p, short _v) {((XFontStruct *)_p)->min_bounds.descent = (short)_v;} unsigned short get_XFontStruct_min_bounds_attributes(void *_p) {return (unsigned short)((XFontStruct *)_p)->min_bounds.attributes;} void set_XFontStruct_min_bounds_attributes(void *_p, unsigned short _v) {((XFontStruct *)_p)->min_bounds.attributes = (unsigned short)_v;} short get_XFontStruct_max_bounds_lbearing(void *_p) {return (short)((XFontStruct *)_p)->max_bounds.lbearing;} void set_XFontStruct_max_bounds_lbearing(void *_p, short _v) {((XFontStruct *)_p)->max_bounds.lbearing = (short)_v;} short get_XFontStruct_max_bounds_rbearing(void *_p) {return (short)((XFontStruct *)_p)->max_bounds.rbearing;} void set_XFontStruct_max_bounds_rbearing(void *_p, short _v) {((XFontStruct *)_p)->max_bounds.rbearing = (short)_v;} short get_XFontStruct_max_bounds_width(void *_p) {return (short)((XFontStruct *)_p)->max_bounds.width;} void set_XFontStruct_max_bounds_width(void *_p, short _v) {((XFontStruct *)_p)->max_bounds.width = (short)_v;} short get_XFontStruct_max_bounds_ascent(void *_p) {return (short)((XFontStruct *)_p)->max_bounds.ascent;} void set_XFontStruct_max_bounds_ascent(void *_p, short _v) {((XFontStruct *)_p)->max_bounds.ascent = (short)_v;} short get_XFontStruct_max_bounds_descent(void *_p) {return (short)((XFontStruct *)_p)->max_bounds.descent;} void set_XFontStruct_max_bounds_descent(void *_p, short _v) {((XFontStruct *)_p)->max_bounds.descent = (short)_v;} unsigned short get_XFontStruct_max_bounds_attributes(void *_p) {return (unsigned short)((XFontStruct *)_p)->max_bounds.attributes;} void set_XFontStruct_max_bounds_attributes(void *_p, unsigned short _v) {((XFontStruct *)_p)->max_bounds.attributes = (unsigned short)_v;} void *get_XFontStruct_per_char(void *_p) {return (void *)((XFontStruct *)_p)->per_char;} void set_XFontStruct_per_char(void *_p, void *_v) {((XFontStruct *)_p)->per_char = (XCharStruct *)_v;} int get_XFontStruct_ascent(void *_p) {return (int)((XFontStruct *)_p)->ascent;} void set_XFontStruct_ascent(void *_p, int _v) {((XFontStruct *)_p)->ascent = (int)_v;} int get_XFontStruct_descent(void *_p) {return (int)((XFontStruct *)_p)->descent;} void set_XFontStruct_descent(void *_p, int _v) {((XFontStruct *)_p)->descent = (int)_v;} void *alloc_XTextItem(void) {XTextItem *_p = (XTextItem *)malloc(sizeof(XTextItem)); if (_p==NULL) abort(); return (void *)_p;} void free_XTextItem(void *_p) {if (_p==NULL) abort(); free((XTextItem *)_p);} void *get_XTextItem_chars(void *_p) {return (void *)((XTextItem *)_p)->chars;} void set_XTextItem_chars(void *_p, void *_v) {((XTextItem *)_p)->chars = (char *)_v;} int get_XTextItem_nchars(void *_p) {return (int)((XTextItem *)_p)->nchars;} void set_XTextItem_nchars(void *_p, int _v) {((XTextItem *)_p)->nchars = (int)_v;} int get_XTextItem_delta(void *_p) {return (int)((XTextItem *)_p)->delta;} void set_XTextItem_delta(void *_p, int _v) {((XTextItem *)_p)->delta = (int)_v;} unsigned long get_XTextItem_font(void *_p) {return (unsigned long)((XTextItem *)_p)->font;} void set_XTextItem_font(void *_p, unsigned long _v) {((XTextItem *)_p)->font = (unsigned long)_v;} void *alloc_XChar2b(void) {XChar2b *_p = (XChar2b *)malloc(sizeof(XChar2b)); if (_p==NULL) abort(); return (void *)_p;} void free_XChar2b(void *_p) {if (_p==NULL) abort(); free((XChar2b *)_p);} unsigned char get_XChar2b_byte1(void *_p) {return (unsigned char)((XChar2b *)_p)->byte1;} void set_XChar2b_byte1(void *_p, unsigned char _v) {((XChar2b *)_p)->byte1 = (unsigned char)_v;} unsigned char get_XChar2b_byte2(void *_p) {return (unsigned char)((XChar2b *)_p)->byte2;} void set_XChar2b_byte2(void *_p, unsigned char _v) {((XChar2b *)_p)->byte2 = (unsigned char)_v;} void *alloc_XTextItem16(void) {XTextItem16 *_p = (XTextItem16 *)malloc(sizeof(XTextItem16)); if (_p==NULL) abort(); return (void *)_p;} void free_XTextItem16(void *_p) {if (_p==NULL) abort(); free((XTextItem16 *)_p);} void *get_XTextItem16_chars(void *_p) {return (void *)((XTextItem16 *)_p)->chars;} void set_XTextItem16_chars(void *_p, void *_v) {((XTextItem16 *)_p)->chars = (XChar2b *)_v;} int get_XTextItem16_nchars(void *_p) {return (int)((XTextItem16 *)_p)->nchars;} void set_XTextItem16_nchars(void *_p, int _v) {((XTextItem16 *)_p)->nchars = (int)_v;} int get_XTextItem16_delta(void *_p) {return (int)((XTextItem16 *)_p)->delta;} void set_XTextItem16_delta(void *_p, int _v) {((XTextItem16 *)_p)->delta = (int)_v;} unsigned long get_XTextItem16_font(void *_p) {return (unsigned long)((XTextItem16 *)_p)->font;} void set_XTextItem16_font(void *_p, unsigned long _v) {((XTextItem16 *)_p)->font = (unsigned long)_v;} void *alloc_XFontSetExtents(void) {XFontSetExtents *_p = (XFontSetExtents *)malloc(sizeof(XFontSetExtents)); if (_p==NULL) abort(); return (void *)_p;} void free_XFontSetExtents(void *_p) {if (_p==NULL) abort(); free((XFontSetExtents *)_p);} short get_XFontSetExtents_max_ink_extent_x(void *_p) {return (short)((XFontSetExtents *)_p)->max_ink_extent.x;} void set_XFontSetExtents_max_ink_extent_x(void *_p, short _v) {((XFontSetExtents *)_p)->max_ink_extent.x = (short)_v;} short get_XFontSetExtents_max_ink_extent_y(void *_p) {return (short)((XFontSetExtents *)_p)->max_ink_extent.y;} void set_XFontSetExtents_max_ink_extent_y(void *_p, short _v) {((XFontSetExtents *)_p)->max_ink_extent.y = (short)_v;} unsigned short get_XFontSetExtents_max_ink_extent_width(void *_p) {return (unsigned short)((XFontSetExtents *)_p)->max_ink_extent.width;} void set_XFontSetExtents_max_ink_extent_width(void *_p, unsigned short _v) {((XFontSetExtents *)_p)->max_ink_extent.width = (unsigned short)_v;} unsigned short get_XFontSetExtents_max_ink_extent_height(void *_p) {return (unsigned short)((XFontSetExtents *)_p)->max_ink_extent.height;} void set_XFontSetExtents_max_ink_extent_height(void *_p, unsigned short _v) {((XFontSetExtents *)_p)->max_ink_extent.height = (unsigned short)_v;} short get_XFontSetExtents_max_logical_extent_x(void *_p) {return (short)((XFontSetExtents *)_p)->max_logical_extent.x;} void set_XFontSetExtents_max_logical_extent_x(void *_p, short _v) {((XFontSetExtents *)_p)->max_logical_extent.x = (short)_v;} short get_XFontSetExtents_max_logical_extent_y(void *_p) {return (short)((XFontSetExtents *)_p)->max_logical_extent.y;} void set_XFontSetExtents_max_logical_extent_y(void *_p, short _v) {((XFontSetExtents *)_p)->max_logical_extent.y = (short)_v;} unsigned short get_XFontSetExtents_max_logical_extent_width(void *_p) {return (unsigned short)((XFontSetExtents *)_p)->max_logical_extent.width;} void set_XFontSetExtents_max_logical_extent_width(void *_p, unsigned short _v) {((XFontSetExtents *)_p)->max_logical_extent.width = (unsigned short)_v;} unsigned short get_XFontSetExtents_max_logical_extent_height(void *_p) {return (unsigned short)((XFontSetExtents *)_p)->max_logical_extent.height;} void set_XFontSetExtents_max_logical_extent_height(void *_p, unsigned short _v) {((XFontSetExtents *)_p)->max_logical_extent.height = (unsigned short)_v;} void *alloc_XmbTextItem(void) {XmbTextItem *_p = (XmbTextItem *)malloc(sizeof(XmbTextItem)); if (_p==NULL) abort(); return (void *)_p;} void free_XmbTextItem(void *_p) {if (_p==NULL) abort(); free((XmbTextItem *)_p);} void *get_XmbTextItem_chars(void *_p) {return (void *)((XmbTextItem *)_p)->chars;} void set_XmbTextItem_chars(void *_p, void *_v) {((XmbTextItem *)_p)->chars = (char *)_v;} int get_XmbTextItem_nchars(void *_p) {return (int)((XmbTextItem *)_p)->nchars;} void set_XmbTextItem_nchars(void *_p, int _v) {((XmbTextItem *)_p)->nchars = (int)_v;} int get_XmbTextItem_delta(void *_p) {return (int)((XmbTextItem *)_p)->delta;} void set_XmbTextItem_delta(void *_p, int _v) {((XmbTextItem *)_p)->delta = (int)_v;} void *get_XmbTextItem_font_set(void *_p) {return (void *)((XmbTextItem *)_p)->font_set;} void set_XmbTextItem_font_set(void *_p, void *_v) {((XmbTextItem *)_p)->font_set = (void *)_v;} void *alloc_XwcTextItem(void) {XwcTextItem *_p = (XwcTextItem *)malloc(sizeof(XwcTextItem)); if (_p==NULL) abort(); return (void *)_p;} void free_XwcTextItem(void *_p) {if (_p==NULL) abort(); free((XwcTextItem *)_p);} void *get_XwcTextItem_chars(void *_p) {return (void *)((XwcTextItem *)_p)->chars;} void set_XwcTextItem_chars(void *_p, void *_v) {((XwcTextItem *)_p)->chars = (wchar_t *)_v;} int get_XwcTextItem_nchars(void *_p) {return (int)((XwcTextItem *)_p)->nchars;} void set_XwcTextItem_nchars(void *_p, int _v) {((XwcTextItem *)_p)->nchars = (int)_v;} int get_XwcTextItem_delta(void *_p) {return (int)((XwcTextItem *)_p)->delta;} void set_XwcTextItem_delta(void *_p, int _v) {((XwcTextItem *)_p)->delta = (int)_v;} void *get_XwcTextItem_font_set(void *_p) {return (void *)((XwcTextItem *)_p)->font_set;} void set_XwcTextItem_font_set(void *_p, void *_v) {((XwcTextItem *)_p)->font_set = (void *)_v;} void *alloc_XIMStyles(void) {XIMStyles *_p = (XIMStyles *)malloc(sizeof(XIMStyles)); if (_p==NULL) abort(); return (void *)_p;} void free_XIMStyles(void *_p) {if (_p==NULL) abort(); free((XIMStyles *)_p);} unsigned short get_XIMStyles_count_styles(void *_p) {return (unsigned short)((XIMStyles *)_p)->count_styles;} void set_XIMStyles_count_styles(void *_p, unsigned short _v) {((XIMStyles *)_p)->count_styles = (unsigned short)_v;} void *get_XIMStyles_supported_styles(void *_p) {return (void *)((XIMStyles *)_p)->supported_styles;} void set_XIMStyles_supported_styles(void *_p, void *_v) {((XIMStyles *)_p)->supported_styles = (unsigned long *)_v;} void *alloc_XIMCallback(void) {XIMCallback *_p = (XIMCallback *)malloc(sizeof(XIMCallback)); if (_p==NULL) abort(); return (void *)_p;} void free_XIMCallback(void *_p) {if (_p==NULL) abort(); free((XIMCallback *)_p);} void *get_XIMCallback_client_data(void *_p) {return (void *)((XIMCallback *)_p)->client_data;} void set_XIMCallback_client_data(void *_p, void *_v) {((XIMCallback *)_p)->client_data = (char *)_v;} void *get_XIMCallback_callback(void *_p) {return (void *)((XIMCallback *)_p)->callback;} void set_XIMCallback_callback(void *_p, void *_v) {((XIMCallback *)_p)->callback = (void( *)())_v;} void *alloc_XIMText(void) {XIMText *_p = (XIMText *)malloc(sizeof(XIMText)); if (_p==NULL) abort(); return (void *)_p;} void free_XIMText(void *_p) {if (_p==NULL) abort(); free((XIMText *)_p);} unsigned short get_XIMText_length(void *_p) {return (unsigned short)((XIMText *)_p)->length;} void set_XIMText_length(void *_p, unsigned short _v) {((XIMText *)_p)->length = (unsigned short)_v;} void *get_XIMText_feedback(void *_p) {return (void *)((XIMText *)_p)->feedback;} void set_XIMText_feedback(void *_p, void *_v) {((XIMText *)_p)->feedback = (unsigned long *)_v;} int get_XIMText_encoding_is_wchar(void *_p) {return (int)((XIMText *)_p)->encoding_is_wchar;} void set_XIMText_encoding_is_wchar(void *_p, int _v) {((XIMText *)_p)->encoding_is_wchar = (int)_v;} void *get_XIMText_string_multi_byte(void *_p) {return (void *)((XIMText *)_p)->string.multi_byte;} void set_XIMText_string_multi_byte(void *_p, void *_v) {((XIMText *)_p)->string.multi_byte = (char *)_v;} void *get_XIMText_string_wide_char(void *_p) {return (void *)((XIMText *)_p)->string.wide_char;} void set_XIMText_string_wide_char(void *_p, void *_v) {((XIMText *)_p)->string.wide_char = (wchar_t *)_v;} void *alloc_XIMPreeditDrawCallbackStruct(void) {XIMPreeditDrawCallbackStruct *_p = (XIMPreeditDrawCallbackStruct *)malloc(sizeof(XIMPreeditDrawCallbackStruct)); if (_p==NULL) abort(); return (void *)_p;} void free_XIMPreeditDrawCallbackStruct(void *_p) {if (_p==NULL) abort(); free((XIMPreeditDrawCallbackStruct *)_p);} int get_XIMPreeditDrawCallbackStruct_caret(void *_p) {return (int)((XIMPreeditDrawCallbackStruct *)_p)->caret;} void set_XIMPreeditDrawCallbackStruct_caret(void *_p, int _v) {((XIMPreeditDrawCallbackStruct *)_p)->caret = (int)_v;} int get_XIMPreeditDrawCallbackStruct_chg_first(void *_p) {return (int)((XIMPreeditDrawCallbackStruct *)_p)->chg_first;} void set_XIMPreeditDrawCallbackStruct_chg_first(void *_p, int _v) {((XIMPreeditDrawCallbackStruct *)_p)->chg_first = (int)_v;} int get_XIMPreeditDrawCallbackStruct_chg_length(void *_p) {return (int)((XIMPreeditDrawCallbackStruct *)_p)->chg_length;} void set_XIMPreeditDrawCallbackStruct_chg_length(void *_p, int _v) {((XIMPreeditDrawCallbackStruct *)_p)->chg_length = (int)_v;} void *get_XIMPreeditDrawCallbackStruct_text(void *_p) {return (void *)((XIMPreeditDrawCallbackStruct *)_p)->text;} void set_XIMPreeditDrawCallbackStruct_text(void *_p, void *_v) {((XIMPreeditDrawCallbackStruct *)_p)->text = (XIMText *)_v;} void *alloc_XIMPreeditCaretCallbackStruct(void) {XIMPreeditCaretCallbackStruct *_p = (XIMPreeditCaretCallbackStruct *)malloc(sizeof(XIMPreeditCaretCallbackStruct)); if (_p==NULL) abort(); return (void *)_p;} void free_XIMPreeditCaretCallbackStruct(void *_p) {if (_p==NULL) abort(); free((XIMPreeditCaretCallbackStruct *)_p);} int get_XIMPreeditCaretCallbackStruct_position(void *_p) {return (int)((XIMPreeditCaretCallbackStruct *)_p)->position;} void set_XIMPreeditCaretCallbackStruct_position(void *_p, int _v) {((XIMPreeditCaretCallbackStruct *)_p)->position = (int)_v;} int get_XIMPreeditCaretCallbackStruct_direction(void *_p) {return (int)((XIMPreeditCaretCallbackStruct *)_p)->direction;} void set_XIMPreeditCaretCallbackStruct_direction(void *_p, int _v) {((XIMPreeditCaretCallbackStruct *)_p)->direction = (int)_v;} int get_XIMPreeditCaretCallbackStruct_style(void *_p) {return (int)((XIMPreeditCaretCallbackStruct *)_p)->style;} void set_XIMPreeditCaretCallbackStruct_style(void *_p, int _v) {((XIMPreeditCaretCallbackStruct *)_p)->style = (int)_v;} void *alloc_XIMStatusDrawCallbackStruct(void) {XIMStatusDrawCallbackStruct *_p = (XIMStatusDrawCallbackStruct *)malloc(sizeof(XIMStatusDrawCallbackStruct)); if (_p==NULL) abort(); return (void *)_p;} void free_XIMStatusDrawCallbackStruct(void *_p) {if (_p==NULL) abort(); free((XIMStatusDrawCallbackStruct *)_p);} int get_XIMStatusDrawCallbackStruct_type(void *_p) {return (int)((XIMStatusDrawCallbackStruct *)_p)->type;} void set_XIMStatusDrawCallbackStruct_type(void *_p, int _v) {((XIMStatusDrawCallbackStruct *)_p)->type = (int)_v;} void *get_XIMStatusDrawCallbackStruct_data_text(void *_p) {return (void *)((XIMStatusDrawCallbackStruct *)_p)->data.text;} void set_XIMStatusDrawCallbackStruct_data_text(void *_p, void *_v) {((XIMStatusDrawCallbackStruct *)_p)->data.text = (XIMText *)_v;} unsigned long get_XIMStatusDrawCallbackStruct_data_bitmap(void *_p) {return (unsigned long)((XIMStatusDrawCallbackStruct *)_p)->data.bitmap;} void set_XIMStatusDrawCallbackStruct_data_bitmap(void *_p, unsigned long _v) {((XIMStatusDrawCallbackStruct *)_p)->data.bitmap = (unsigned long)_v;} void *alloc_XSizeHints(void) {XSizeHints *_p = (XSizeHints *)malloc(sizeof(XSizeHints)); if (_p==NULL) abort(); return (void *)_p;} void free_XSizeHints(void *_p) {if (_p==NULL) abort(); free((XSizeHints *)_p);} long get_XSizeHints_flags(void *_p) {return (long)((XSizeHints *)_p)->flags;} void set_XSizeHints_flags(void *_p, long _v) {((XSizeHints *)_p)->flags = (long)_v;} int get_XSizeHints_x(void *_p) {return (int)((XSizeHints *)_p)->x;} void set_XSizeHints_x(void *_p, int _v) {((XSizeHints *)_p)->x = (int)_v;} int get_XSizeHints_y(void *_p) {return (int)((XSizeHints *)_p)->y;} void set_XSizeHints_y(void *_p, int _v) {((XSizeHints *)_p)->y = (int)_v;} int get_XSizeHints_width(void *_p) {return (int)((XSizeHints *)_p)->width;} void set_XSizeHints_width(void *_p, int _v) {((XSizeHints *)_p)->width = (int)_v;} int get_XSizeHints_height(void *_p) {return (int)((XSizeHints *)_p)->height;} void set_XSizeHints_height(void *_p, int _v) {((XSizeHints *)_p)->height = (int)_v;} int get_XSizeHints_min_width(void *_p) {return (int)((XSizeHints *)_p)->min_width;} void set_XSizeHints_min_width(void *_p, int _v) {((XSizeHints *)_p)->min_width = (int)_v;} int get_XSizeHints_min_height(void *_p) {return (int)((XSizeHints *)_p)->min_height;} void set_XSizeHints_min_height(void *_p, int _v) {((XSizeHints *)_p)->min_height = (int)_v;} int get_XSizeHints_max_width(void *_p) {return (int)((XSizeHints *)_p)->max_width;} void set_XSizeHints_max_width(void *_p, int _v) {((XSizeHints *)_p)->max_width = (int)_v;} int get_XSizeHints_max_height(void *_p) {return (int)((XSizeHints *)_p)->max_height;} void set_XSizeHints_max_height(void *_p, int _v) {((XSizeHints *)_p)->max_height = (int)_v;} int get_XSizeHints_width_inc(void *_p) {return (int)((XSizeHints *)_p)->width_inc;} void set_XSizeHints_width_inc(void *_p, int _v) {((XSizeHints *)_p)->width_inc = (int)_v;} int get_XSizeHints_height_inc(void *_p) {return (int)((XSizeHints *)_p)->height_inc;} void set_XSizeHints_height_inc(void *_p, int _v) {((XSizeHints *)_p)->height_inc = (int)_v;} int get_XSizeHints_min_aspect_x(void *_p) {return (int)((XSizeHints *)_p)->min_aspect.x;} void set_XSizeHints_min_aspect_x(void *_p, int _v) {((XSizeHints *)_p)->min_aspect.x = (int)_v;} int get_XSizeHints_min_aspect_y(void *_p) {return (int)((XSizeHints *)_p)->min_aspect.y;} void set_XSizeHints_min_aspect_y(void *_p, int _v) {((XSizeHints *)_p)->min_aspect.y = (int)_v;} int get_XSizeHints_max_aspect_x(void *_p) {return (int)((XSizeHints *)_p)->max_aspect.x;} void set_XSizeHints_max_aspect_x(void *_p, int _v) {((XSizeHints *)_p)->max_aspect.x = (int)_v;} int get_XSizeHints_max_aspect_y(void *_p) {return (int)((XSizeHints *)_p)->max_aspect.y;} void set_XSizeHints_max_aspect_y(void *_p, int _v) {((XSizeHints *)_p)->max_aspect.y = (int)_v;} int get_XSizeHints_base_width(void *_p) {return (int)((XSizeHints *)_p)->base_width;} void set_XSizeHints_base_width(void *_p, int _v) {((XSizeHints *)_p)->base_width = (int)_v;} int get_XSizeHints_base_height(void *_p) {return (int)((XSizeHints *)_p)->base_height;} void set_XSizeHints_base_height(void *_p, int _v) {((XSizeHints *)_p)->base_height = (int)_v;} int get_XSizeHints_win_gravity(void *_p) {return (int)((XSizeHints *)_p)->win_gravity;} void set_XSizeHints_win_gravity(void *_p, int _v) {((XSizeHints *)_p)->win_gravity = (int)_v;} void *alloc_XWMHints(void) {XWMHints *_p = (XWMHints *)malloc(sizeof(XWMHints)); if (_p==NULL) abort(); return (void *)_p;} void free_XWMHints(void *_p) {if (_p==NULL) abort(); free((XWMHints *)_p);} long get_XWMHints_flags(void *_p) {return (long)((XWMHints *)_p)->flags;} void set_XWMHints_flags(void *_p, long _v) {((XWMHints *)_p)->flags = (long)_v;} int get_XWMHints_input(void *_p) {return (int)((XWMHints *)_p)->input;} void set_XWMHints_input(void *_p, int _v) {((XWMHints *)_p)->input = (int)_v;} int get_XWMHints_initial_state(void *_p) {return (int)((XWMHints *)_p)->initial_state;} void set_XWMHints_initial_state(void *_p, int _v) {((XWMHints *)_p)->initial_state = (int)_v;} unsigned long get_XWMHints_icon_pixmap(void *_p) {return (unsigned long)((XWMHints *)_p)->icon_pixmap;} void set_XWMHints_icon_pixmap(void *_p, unsigned long _v) {((XWMHints *)_p)->icon_pixmap = (unsigned long)_v;} unsigned long get_XWMHints_icon_window(void *_p) {return (unsigned long)((XWMHints *)_p)->icon_window;} void set_XWMHints_icon_window(void *_p, unsigned long _v) {((XWMHints *)_p)->icon_window = (unsigned long)_v;} int get_XWMHints_icon_x(void *_p) {return (int)((XWMHints *)_p)->icon_x;} void set_XWMHints_icon_x(void *_p, int _v) {((XWMHints *)_p)->icon_x = (int)_v;} int get_XWMHints_icon_y(void *_p) {return (int)((XWMHints *)_p)->icon_y;} void set_XWMHints_icon_y(void *_p, int _v) {((XWMHints *)_p)->icon_y = (int)_v;} unsigned long get_XWMHints_icon_mask(void *_p) {return (unsigned long)((XWMHints *)_p)->icon_mask;} void set_XWMHints_icon_mask(void *_p, unsigned long _v) {((XWMHints *)_p)->icon_mask = (unsigned long)_v;} unsigned long get_XWMHints_window_group(void *_p) {return (unsigned long)((XWMHints *)_p)->window_group;} void set_XWMHints_window_group(void *_p, unsigned long _v) {((XWMHints *)_p)->window_group = (unsigned long)_v;} void *alloc_XTextProperty(void) {XTextProperty *_p = (XTextProperty *)malloc(sizeof(XTextProperty)); if (_p==NULL) abort(); return (void *)_p;} void free_XTextProperty(void *_p) {if (_p==NULL) abort(); free((XTextProperty *)_p);} void *get_XTextProperty_value(void *_p) {return (void *)((XTextProperty *)_p)->value;} void set_XTextProperty_value(void *_p, void *_v) {((XTextProperty *)_p)->value = (unsigned char *)_v;} unsigned long get_XTextProperty_encoding(void *_p) {return (unsigned long)((XTextProperty *)_p)->encoding;} void set_XTextProperty_encoding(void *_p, unsigned long _v) {((XTextProperty *)_p)->encoding = (unsigned long)_v;} int get_XTextProperty_format(void *_p) {return (int)((XTextProperty *)_p)->format;} void set_XTextProperty_format(void *_p, int _v) {((XTextProperty *)_p)->format = (int)_v;} unsigned long get_XTextProperty_nitems(void *_p) {return (unsigned long)((XTextProperty *)_p)->nitems;} void set_XTextProperty_nitems(void *_p, unsigned long _v) {((XTextProperty *)_p)->nitems = (unsigned long)_v;} void *alloc_XIconSize(void) {XIconSize *_p = (XIconSize *)malloc(sizeof(XIconSize)); if (_p==NULL) abort(); return (void *)_p;} void free_XIconSize(void *_p) {if (_p==NULL) abort(); free((XIconSize *)_p);} int get_XIconSize_min_width(void *_p) {return (int)((XIconSize *)_p)->min_width;} void set_XIconSize_min_width(void *_p, int _v) {((XIconSize *)_p)->min_width = (int)_v;} int get_XIconSize_min_height(void *_p) {return (int)((XIconSize *)_p)->min_height;} void set_XIconSize_min_height(void *_p, int _v) {((XIconSize *)_p)->min_height = (int)_v;} int get_XIconSize_max_width(void *_p) {return (int)((XIconSize *)_p)->max_width;} void set_XIconSize_max_width(void *_p, int _v) {((XIconSize *)_p)->max_width = (int)_v;} int get_XIconSize_max_height(void *_p) {return (int)((XIconSize *)_p)->max_height;} void set_XIconSize_max_height(void *_p, int _v) {((XIconSize *)_p)->max_height = (int)_v;} int get_XIconSize_width_inc(void *_p) {return (int)((XIconSize *)_p)->width_inc;} void set_XIconSize_width_inc(void *_p, int _v) {((XIconSize *)_p)->width_inc = (int)_v;} int get_XIconSize_height_inc(void *_p) {return (int)((XIconSize *)_p)->height_inc;} void set_XIconSize_height_inc(void *_p, int _v) {((XIconSize *)_p)->height_inc = (int)_v;} void *alloc_XClassHint(void) {XClassHint *_p = (XClassHint *)malloc(sizeof(XClassHint)); if (_p==NULL) abort(); return (void *)_p;} void free_XClassHint(void *_p) {if (_p==NULL) abort(); free((XClassHint *)_p);} void *get_XClassHint_res_name(void *_p) {return (void *)((XClassHint *)_p)->res_name;} void set_XClassHint_res_name(void *_p, void *_v) {((XClassHint *)_p)->res_name = (char *)_v;} void *get_XClassHint_res_class(void *_p) {return (void *)((XClassHint *)_p)->res_class;} void set_XClassHint_res_class(void *_p, void *_v) {((XClassHint *)_p)->res_class = (char *)_v;} void *alloc_XComposeStatus(void) {XComposeStatus *_p = (XComposeStatus *)malloc(sizeof(XComposeStatus)); if (_p==NULL) abort(); return (void *)_p;} void free_XComposeStatus(void *_p) {if (_p==NULL) abort(); free((XComposeStatus *)_p);} void *get_XComposeStatus_compose_ptr(void *_p) {return (void *)((XComposeStatus *)_p)->compose_ptr;} void set_XComposeStatus_compose_ptr(void *_p, void *_v) {((XComposeStatus *)_p)->compose_ptr = (char *)_v;} int get_XComposeStatus_chars_matched(void *_p) {return (int)((XComposeStatus *)_p)->chars_matched;} void set_XComposeStatus_chars_matched(void *_p, int _v) {((XComposeStatus *)_p)->chars_matched = (int)_v;} void *alloc_XVisualInfo(void) {XVisualInfo *_p = (XVisualInfo *)malloc(sizeof(XVisualInfo)); if (_p==NULL) abort(); return (void *)_p;} void free_XVisualInfo(void *_p) {if (_p==NULL) abort(); free((XVisualInfo *)_p);} void *get_XVisualInfo_visual(void *_p) {return (void *)((XVisualInfo *)_p)->visual;} void set_XVisualInfo_visual(void *_p, void *_v) {((XVisualInfo *)_p)->visual = (Visual *)_v;} unsigned long get_XVisualInfo_visualid(void *_p) {return (unsigned long)((XVisualInfo *)_p)->visualid;} void set_XVisualInfo_visualid(void *_p, unsigned long _v) {((XVisualInfo *)_p)->visualid = (unsigned long)_v;} int get_XVisualInfo_screen(void *_p) {return (int)((XVisualInfo *)_p)->screen;} void set_XVisualInfo_screen(void *_p, int _v) {((XVisualInfo *)_p)->screen = (int)_v;} int get_XVisualInfo_depth(void *_p) {return (int)((XVisualInfo *)_p)->depth;} void set_XVisualInfo_depth(void *_p, int _v) {((XVisualInfo *)_p)->depth = (int)_v;} int get_XVisualInfo_class(void *_p) {return (int)((XVisualInfo *)_p)->class;} void set_XVisualInfo_class(void *_p, int _v) {((XVisualInfo *)_p)->class = (int)_v;} unsigned long get_XVisualInfo_red_mask(void *_p) {return (unsigned long)((XVisualInfo *)_p)->red_mask;} void set_XVisualInfo_red_mask(void *_p, unsigned long _v) {((XVisualInfo *)_p)->red_mask = (unsigned long)_v;} unsigned long get_XVisualInfo_green_mask(void *_p) {return (unsigned long)((XVisualInfo *)_p)->green_mask;} void set_XVisualInfo_green_mask(void *_p, unsigned long _v) {((XVisualInfo *)_p)->green_mask = (unsigned long)_v;} unsigned long get_XVisualInfo_blue_mask(void *_p) {return (unsigned long)((XVisualInfo *)_p)->blue_mask;} void set_XVisualInfo_blue_mask(void *_p, unsigned long _v) {((XVisualInfo *)_p)->blue_mask = (unsigned long)_v;} int get_XVisualInfo_colormap_size(void *_p) {return (int)((XVisualInfo *)_p)->colormap_size;} void set_XVisualInfo_colormap_size(void *_p, int _v) {((XVisualInfo *)_p)->colormap_size = (int)_v;} int get_XVisualInfo_bits_per_rgb(void *_p) {return (int)((XVisualInfo *)_p)->bits_per_rgb;} void set_XVisualInfo_bits_per_rgb(void *_p, int _v) {((XVisualInfo *)_p)->bits_per_rgb = (int)_v;} void *alloc_XStandardColormap(void) {XStandardColormap *_p = (XStandardColormap *)malloc(sizeof(XStandardColormap)); if (_p==NULL) abort(); return (void *)_p;} void free_XStandardColormap(void *_p) {if (_p==NULL) abort(); free((XStandardColormap *)_p);} unsigned long get_XStandardColormap_colormap(void *_p) {return (unsigned long)((XStandardColormap *)_p)->colormap;} void set_XStandardColormap_colormap(void *_p, unsigned long _v) {((XStandardColormap *)_p)->colormap = (unsigned long)_v;} unsigned long get_XStandardColormap_red_max(void *_p) {return (unsigned long)((XStandardColormap *)_p)->red_max;} void set_XStandardColormap_red_max(void *_p, unsigned long _v) {((XStandardColormap *)_p)->red_max = (unsigned long)_v;} unsigned long get_XStandardColormap_red_mult(void *_p) {return (unsigned long)((XStandardColormap *)_p)->red_mult;} void set_XStandardColormap_red_mult(void *_p, unsigned long _v) {((XStandardColormap *)_p)->red_mult = (unsigned long)_v;} unsigned long get_XStandardColormap_green_max(void *_p) {return (unsigned long)((XStandardColormap *)_p)->green_max;} void set_XStandardColormap_green_max(void *_p, unsigned long _v) {((XStandardColormap *)_p)->green_max = (unsigned long)_v;} unsigned long get_XStandardColormap_green_mult(void *_p) {return (unsigned long)((XStandardColormap *)_p)->green_mult;} void set_XStandardColormap_green_mult(void *_p, unsigned long _v) {((XStandardColormap *)_p)->green_mult = (unsigned long)_v;} unsigned long get_XStandardColormap_blue_max(void *_p) {return (unsigned long)((XStandardColormap *)_p)->blue_max;} void set_XStandardColormap_blue_max(void *_p, unsigned long _v) {((XStandardColormap *)_p)->blue_max = (unsigned long)_v;} unsigned long get_XStandardColormap_blue_mult(void *_p) {return (unsigned long)((XStandardColormap *)_p)->blue_mult;} void set_XStandardColormap_blue_mult(void *_p, unsigned long _v) {((XStandardColormap *)_p)->blue_mult = (unsigned long)_v;} unsigned long get_XStandardColormap_base_pixel(void *_p) {return (unsigned long)((XStandardColormap *)_p)->base_pixel;} void set_XStandardColormap_base_pixel(void *_p, unsigned long _v) {((XStandardColormap *)_p)->base_pixel = (unsigned long)_v;} unsigned long get_XStandardColormap_visualid(void *_p) {return (unsigned long)((XStandardColormap *)_p)->visualid;} void set_XStandardColormap_visualid(void *_p, unsigned long _v) {((XStandardColormap *)_p)->visualid = (unsigned long)_v;} unsigned long get_XStandardColormap_killid(void *_p) {return (unsigned long)((XStandardColormap *)_p)->killid;} void set_XStandardColormap_killid(void *_p, unsigned long _v) {((XStandardColormap *)_p)->killid = (unsigned long)_v;} void *alloc_XEvent(void) {XEvent *_p = (XEvent *)malloc(sizeof(XEvent)); if (_p==NULL) abort(); return (void *)_p;} void free_XEvent(void *_p) {if (_p==NULL) abort(); free((XEvent *)_p);} int get_XEvent_type(void *_p) {return (int)((XEvent *)_p)->type;} void set_XEvent_type(void *_p, int _v) {((XEvent *)_p)->type = (int)_v;} int get_XEvent_xany_type(void *_p) {return (int)((XEvent *)_p)->xany.type;} void set_XEvent_xany_type(void *_p, int _v) {((XEvent *)_p)->xany.type = (int)_v;} unsigned long get_XEvent_xany_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xany.serial;} void set_XEvent_xany_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xany.serial = (unsigned long)_v;} int get_XEvent_xany_send_event(void *_p) {return (int)((XEvent *)_p)->xany.send_event;} void set_XEvent_xany_send_event(void *_p, int _v) {((XEvent *)_p)->xany.send_event = (int)_v;} void *get_XEvent_xany_display(void *_p) {return (void *)((XEvent *)_p)->xany.display;} void set_XEvent_xany_display(void *_p, void *_v) {((XEvent *)_p)->xany.display = (Display *)_v;} unsigned long get_XEvent_xany_window(void *_p) {return (unsigned long)((XEvent *)_p)->xany.window;} void set_XEvent_xany_window(void *_p, unsigned long _v) {((XEvent *)_p)->xany.window = (unsigned long)_v;} int get_XEvent_xkey_type(void *_p) {return (int)((XEvent *)_p)->xkey.type;} void set_XEvent_xkey_type(void *_p, int _v) {((XEvent *)_p)->xkey.type = (int)_v;} unsigned long get_XEvent_xkey_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xkey.serial;} void set_XEvent_xkey_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xkey.serial = (unsigned long)_v;} int get_XEvent_xkey_send_event(void *_p) {return (int)((XEvent *)_p)->xkey.send_event;} void set_XEvent_xkey_send_event(void *_p, int _v) {((XEvent *)_p)->xkey.send_event = (int)_v;} void *get_XEvent_xkey_display(void *_p) {return (void *)((XEvent *)_p)->xkey.display;} void set_XEvent_xkey_display(void *_p, void *_v) {((XEvent *)_p)->xkey.display = (Display *)_v;} unsigned long get_XEvent_xkey_window(void *_p) {return (unsigned long)((XEvent *)_p)->xkey.window;} void set_XEvent_xkey_window(void *_p, unsigned long _v) {((XEvent *)_p)->xkey.window = (unsigned long)_v;} unsigned long get_XEvent_xkey_root(void *_p) {return (unsigned long)((XEvent *)_p)->xkey.root;} void set_XEvent_xkey_root(void *_p, unsigned long _v) {((XEvent *)_p)->xkey.root = (unsigned long)_v;} unsigned long get_XEvent_xkey_subwindow(void *_p) {return (unsigned long)((XEvent *)_p)->xkey.subwindow;} void set_XEvent_xkey_subwindow(void *_p, unsigned long _v) {((XEvent *)_p)->xkey.subwindow = (unsigned long)_v;} unsigned long get_XEvent_xkey_time(void *_p) {return (unsigned long)((XEvent *)_p)->xkey.time;} void set_XEvent_xkey_time(void *_p, unsigned long _v) {((XEvent *)_p)->xkey.time = (unsigned long)_v;} int get_XEvent_xkey_x(void *_p) {return (int)((XEvent *)_p)->xkey.x;} void set_XEvent_xkey_x(void *_p, int _v) {((XEvent *)_p)->xkey.x = (int)_v;} int get_XEvent_xkey_y(void *_p) {return (int)((XEvent *)_p)->xkey.y;} void set_XEvent_xkey_y(void *_p, int _v) {((XEvent *)_p)->xkey.y = (int)_v;} int get_XEvent_xkey_x_root(void *_p) {return (int)((XEvent *)_p)->xkey.x_root;} void set_XEvent_xkey_x_root(void *_p, int _v) {((XEvent *)_p)->xkey.x_root = (int)_v;} int get_XEvent_xkey_y_root(void *_p) {return (int)((XEvent *)_p)->xkey.y_root;} void set_XEvent_xkey_y_root(void *_p, int _v) {((XEvent *)_p)->xkey.y_root = (int)_v;} unsigned get_XEvent_xkey_state(void *_p) {return (unsigned)((XEvent *)_p)->xkey.state;} void set_XEvent_xkey_state(void *_p, unsigned _v) {((XEvent *)_p)->xkey.state = (unsigned)_v;} unsigned get_XEvent_xkey_keycode(void *_p) {return (unsigned)((XEvent *)_p)->xkey.keycode;} void set_XEvent_xkey_keycode(void *_p, unsigned _v) {((XEvent *)_p)->xkey.keycode = (unsigned)_v;} int get_XEvent_xkey_same_screen(void *_p) {return (int)((XEvent *)_p)->xkey.same_screen;} void set_XEvent_xkey_same_screen(void *_p, int _v) {((XEvent *)_p)->xkey.same_screen = (int)_v;} int get_XEvent_xbutton_type(void *_p) {return (int)((XEvent *)_p)->xbutton.type;} void set_XEvent_xbutton_type(void *_p, int _v) {((XEvent *)_p)->xbutton.type = (int)_v;} unsigned long get_XEvent_xbutton_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xbutton.serial;} void set_XEvent_xbutton_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xbutton.serial = (unsigned long)_v;} int get_XEvent_xbutton_send_event(void *_p) {return (int)((XEvent *)_p)->xbutton.send_event;} void set_XEvent_xbutton_send_event(void *_p, int _v) {((XEvent *)_p)->xbutton.send_event = (int)_v;} void *get_XEvent_xbutton_display(void *_p) {return (void *)((XEvent *)_p)->xbutton.display;} void set_XEvent_xbutton_display(void *_p, void *_v) {((XEvent *)_p)->xbutton.display = (Display *)_v;} unsigned long get_XEvent_xbutton_window(void *_p) {return (unsigned long)((XEvent *)_p)->xbutton.window;} void set_XEvent_xbutton_window(void *_p, unsigned long _v) {((XEvent *)_p)->xbutton.window = (unsigned long)_v;} unsigned long get_XEvent_xbutton_root(void *_p) {return (unsigned long)((XEvent *)_p)->xbutton.root;} void set_XEvent_xbutton_root(void *_p, unsigned long _v) {((XEvent *)_p)->xbutton.root = (unsigned long)_v;} unsigned long get_XEvent_xbutton_subwindow(void *_p) {return (unsigned long)((XEvent *)_p)->xbutton.subwindow;} void set_XEvent_xbutton_subwindow(void *_p, unsigned long _v) {((XEvent *)_p)->xbutton.subwindow = (unsigned long)_v;} unsigned long get_XEvent_xbutton_time(void *_p) {return (unsigned long)((XEvent *)_p)->xbutton.time;} void set_XEvent_xbutton_time(void *_p, unsigned long _v) {((XEvent *)_p)->xbutton.time = (unsigned long)_v;} int get_XEvent_xbutton_x(void *_p) {return (int)((XEvent *)_p)->xbutton.x;} void set_XEvent_xbutton_x(void *_p, int _v) {((XEvent *)_p)->xbutton.x = (int)_v;} int get_XEvent_xbutton_y(void *_p) {return (int)((XEvent *)_p)->xbutton.y;} void set_XEvent_xbutton_y(void *_p, int _v) {((XEvent *)_p)->xbutton.y = (int)_v;} int get_XEvent_xbutton_x_root(void *_p) {return (int)((XEvent *)_p)->xbutton.x_root;} void set_XEvent_xbutton_x_root(void *_p, int _v) {((XEvent *)_p)->xbutton.x_root = (int)_v;} int get_XEvent_xbutton_y_root(void *_p) {return (int)((XEvent *)_p)->xbutton.y_root;} void set_XEvent_xbutton_y_root(void *_p, int _v) {((XEvent *)_p)->xbutton.y_root = (int)_v;} unsigned get_XEvent_xbutton_state(void *_p) {return (unsigned)((XEvent *)_p)->xbutton.state;} void set_XEvent_xbutton_state(void *_p, unsigned _v) {((XEvent *)_p)->xbutton.state = (unsigned)_v;} unsigned get_XEvent_xbutton_button(void *_p) {return (unsigned)((XEvent *)_p)->xbutton.button;} void set_XEvent_xbutton_button(void *_p, unsigned _v) {((XEvent *)_p)->xbutton.button = (unsigned)_v;} int get_XEvent_xbutton_same_screen(void *_p) {return (int)((XEvent *)_p)->xbutton.same_screen;} void set_XEvent_xbutton_same_screen(void *_p, int _v) {((XEvent *)_p)->xbutton.same_screen = (int)_v;} int get_XEvent_xmotion_type(void *_p) {return (int)((XEvent *)_p)->xmotion.type;} void set_XEvent_xmotion_type(void *_p, int _v) {((XEvent *)_p)->xmotion.type = (int)_v;} unsigned long get_XEvent_xmotion_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xmotion.serial;} void set_XEvent_xmotion_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xmotion.serial = (unsigned long)_v;} int get_XEvent_xmotion_send_event(void *_p) {return (int)((XEvent *)_p)->xmotion.send_event;} void set_XEvent_xmotion_send_event(void *_p, int _v) {((XEvent *)_p)->xmotion.send_event = (int)_v;} void *get_XEvent_xmotion_display(void *_p) {return (void *)((XEvent *)_p)->xmotion.display;} void set_XEvent_xmotion_display(void *_p, void *_v) {((XEvent *)_p)->xmotion.display = (Display *)_v;} unsigned long get_XEvent_xmotion_window(void *_p) {return (unsigned long)((XEvent *)_p)->xmotion.window;} void set_XEvent_xmotion_window(void *_p, unsigned long _v) {((XEvent *)_p)->xmotion.window = (unsigned long)_v;} unsigned long get_XEvent_xmotion_root(void *_p) {return (unsigned long)((XEvent *)_p)->xmotion.root;} void set_XEvent_xmotion_root(void *_p, unsigned long _v) {((XEvent *)_p)->xmotion.root = (unsigned long)_v;} unsigned long get_XEvent_xmotion_subwindow(void *_p) {return (unsigned long)((XEvent *)_p)->xmotion.subwindow;} void set_XEvent_xmotion_subwindow(void *_p, unsigned long _v) {((XEvent *)_p)->xmotion.subwindow = (unsigned long)_v;} unsigned long get_XEvent_xmotion_time(void *_p) {return (unsigned long)((XEvent *)_p)->xmotion.time;} void set_XEvent_xmotion_time(void *_p, unsigned long _v) {((XEvent *)_p)->xmotion.time = (unsigned long)_v;} int get_XEvent_xmotion_x(void *_p) {return (int)((XEvent *)_p)->xmotion.x;} void set_XEvent_xmotion_x(void *_p, int _v) {((XEvent *)_p)->xmotion.x = (int)_v;} int get_XEvent_xmotion_y(void *_p) {return (int)((XEvent *)_p)->xmotion.y;} void set_XEvent_xmotion_y(void *_p, int _v) {((XEvent *)_p)->xmotion.y = (int)_v;} int get_XEvent_xmotion_x_root(void *_p) {return (int)((XEvent *)_p)->xmotion.x_root;} void set_XEvent_xmotion_x_root(void *_p, int _v) {((XEvent *)_p)->xmotion.x_root = (int)_v;} int get_XEvent_xmotion_y_root(void *_p) {return (int)((XEvent *)_p)->xmotion.y_root;} void set_XEvent_xmotion_y_root(void *_p, int _v) {((XEvent *)_p)->xmotion.y_root = (int)_v;} unsigned get_XEvent_xmotion_state(void *_p) {return (unsigned)((XEvent *)_p)->xmotion.state;} void set_XEvent_xmotion_state(void *_p, unsigned _v) {((XEvent *)_p)->xmotion.state = (unsigned)_v;} char get_XEvent_xmotion_is_hint(void *_p) {return (char)((XEvent *)_p)->xmotion.is_hint;} void set_XEvent_xmotion_is_hint(void *_p, char _v) {((XEvent *)_p)->xmotion.is_hint = (char)_v;} int get_XEvent_xmotion_same_screen(void *_p) {return (int)((XEvent *)_p)->xmotion.same_screen;} void set_XEvent_xmotion_same_screen(void *_p, int _v) {((XEvent *)_p)->xmotion.same_screen = (int)_v;} int get_XEvent_xcrossing_type(void *_p) {return (int)((XEvent *)_p)->xcrossing.type;} void set_XEvent_xcrossing_type(void *_p, int _v) {((XEvent *)_p)->xcrossing.type = (int)_v;} unsigned long get_XEvent_xcrossing_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xcrossing.serial;} void set_XEvent_xcrossing_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xcrossing.serial = (unsigned long)_v;} int get_XEvent_xcrossing_send_event(void *_p) {return (int)((XEvent *)_p)->xcrossing.send_event;} void set_XEvent_xcrossing_send_event(void *_p, int _v) {((XEvent *)_p)->xcrossing.send_event = (int)_v;} void *get_XEvent_xcrossing_display(void *_p) {return (void *)((XEvent *)_p)->xcrossing.display;} void set_XEvent_xcrossing_display(void *_p, void *_v) {((XEvent *)_p)->xcrossing.display = (Display *)_v;} unsigned long get_XEvent_xcrossing_window(void *_p) {return (unsigned long)((XEvent *)_p)->xcrossing.window;} void set_XEvent_xcrossing_window(void *_p, unsigned long _v) {((XEvent *)_p)->xcrossing.window = (unsigned long)_v;} unsigned long get_XEvent_xcrossing_root(void *_p) {return (unsigned long)((XEvent *)_p)->xcrossing.root;} void set_XEvent_xcrossing_root(void *_p, unsigned long _v) {((XEvent *)_p)->xcrossing.root = (unsigned long)_v;} unsigned long get_XEvent_xcrossing_subwindow(void *_p) {return (unsigned long)((XEvent *)_p)->xcrossing.subwindow;} void set_XEvent_xcrossing_subwindow(void *_p, unsigned long _v) {((XEvent *)_p)->xcrossing.subwindow = (unsigned long)_v;} unsigned long get_XEvent_xcrossing_time(void *_p) {return (unsigned long)((XEvent *)_p)->xcrossing.time;} void set_XEvent_xcrossing_time(void *_p, unsigned long _v) {((XEvent *)_p)->xcrossing.time = (unsigned long)_v;} int get_XEvent_xcrossing_x(void *_p) {return (int)((XEvent *)_p)->xcrossing.x;} void set_XEvent_xcrossing_x(void *_p, int _v) {((XEvent *)_p)->xcrossing.x = (int)_v;} int get_XEvent_xcrossing_y(void *_p) {return (int)((XEvent *)_p)->xcrossing.y;} void set_XEvent_xcrossing_y(void *_p, int _v) {((XEvent *)_p)->xcrossing.y = (int)_v;} int get_XEvent_xcrossing_x_root(void *_p) {return (int)((XEvent *)_p)->xcrossing.x_root;} void set_XEvent_xcrossing_x_root(void *_p, int _v) {((XEvent *)_p)->xcrossing.x_root = (int)_v;} int get_XEvent_xcrossing_y_root(void *_p) {return (int)((XEvent *)_p)->xcrossing.y_root;} void set_XEvent_xcrossing_y_root(void *_p, int _v) {((XEvent *)_p)->xcrossing.y_root = (int)_v;} int get_XEvent_xcrossing_mode(void *_p) {return (int)((XEvent *)_p)->xcrossing.mode;} void set_XEvent_xcrossing_mode(void *_p, int _v) {((XEvent *)_p)->xcrossing.mode = (int)_v;} int get_XEvent_xcrossing_detail(void *_p) {return (int)((XEvent *)_p)->xcrossing.detail;} void set_XEvent_xcrossing_detail(void *_p, int _v) {((XEvent *)_p)->xcrossing.detail = (int)_v;} int get_XEvent_xcrossing_same_screen(void *_p) {return (int)((XEvent *)_p)->xcrossing.same_screen;} void set_XEvent_xcrossing_same_screen(void *_p, int _v) {((XEvent *)_p)->xcrossing.same_screen = (int)_v;} int get_XEvent_xcrossing_focus(void *_p) {return (int)((XEvent *)_p)->xcrossing.focus;} void set_XEvent_xcrossing_focus(void *_p, int _v) {((XEvent *)_p)->xcrossing.focus = (int)_v;} unsigned get_XEvent_xcrossing_state(void *_p) {return (unsigned)((XEvent *)_p)->xcrossing.state;} void set_XEvent_xcrossing_state(void *_p, unsigned _v) {((XEvent *)_p)->xcrossing.state = (unsigned)_v;} int get_XEvent_xfocus_type(void *_p) {return (int)((XEvent *)_p)->xfocus.type;} void set_XEvent_xfocus_type(void *_p, int _v) {((XEvent *)_p)->xfocus.type = (int)_v;} unsigned long get_XEvent_xfocus_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xfocus.serial;} void set_XEvent_xfocus_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xfocus.serial = (unsigned long)_v;} int get_XEvent_xfocus_send_event(void *_p) {return (int)((XEvent *)_p)->xfocus.send_event;} void set_XEvent_xfocus_send_event(void *_p, int _v) {((XEvent *)_p)->xfocus.send_event = (int)_v;} void *get_XEvent_xfocus_display(void *_p) {return (void *)((XEvent *)_p)->xfocus.display;} void set_XEvent_xfocus_display(void *_p, void *_v) {((XEvent *)_p)->xfocus.display = (Display *)_v;} unsigned long get_XEvent_xfocus_window(void *_p) {return (unsigned long)((XEvent *)_p)->xfocus.window;} void set_XEvent_xfocus_window(void *_p, unsigned long _v) {((XEvent *)_p)->xfocus.window = (unsigned long)_v;} int get_XEvent_xfocus_mode(void *_p) {return (int)((XEvent *)_p)->xfocus.mode;} void set_XEvent_xfocus_mode(void *_p, int _v) {((XEvent *)_p)->xfocus.mode = (int)_v;} int get_XEvent_xfocus_detail(void *_p) {return (int)((XEvent *)_p)->xfocus.detail;} void set_XEvent_xfocus_detail(void *_p, int _v) {((XEvent *)_p)->xfocus.detail = (int)_v;} int get_XEvent_xexpose_type(void *_p) {return (int)((XEvent *)_p)->xexpose.type;} void set_XEvent_xexpose_type(void *_p, int _v) {((XEvent *)_p)->xexpose.type = (int)_v;} unsigned long get_XEvent_xexpose_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xexpose.serial;} void set_XEvent_xexpose_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xexpose.serial = (unsigned long)_v;} int get_XEvent_xexpose_send_event(void *_p) {return (int)((XEvent *)_p)->xexpose.send_event;} void set_XEvent_xexpose_send_event(void *_p, int _v) {((XEvent *)_p)->xexpose.send_event = (int)_v;} void *get_XEvent_xexpose_display(void *_p) {return (void *)((XEvent *)_p)->xexpose.display;} void set_XEvent_xexpose_display(void *_p, void *_v) {((XEvent *)_p)->xexpose.display = (Display *)_v;} unsigned long get_XEvent_xexpose_window(void *_p) {return (unsigned long)((XEvent *)_p)->xexpose.window;} void set_XEvent_xexpose_window(void *_p, unsigned long _v) {((XEvent *)_p)->xexpose.window = (unsigned long)_v;} int get_XEvent_xexpose_x(void *_p) {return (int)((XEvent *)_p)->xexpose.x;} void set_XEvent_xexpose_x(void *_p, int _v) {((XEvent *)_p)->xexpose.x = (int)_v;} int get_XEvent_xexpose_y(void *_p) {return (int)((XEvent *)_p)->xexpose.y;} void set_XEvent_xexpose_y(void *_p, int _v) {((XEvent *)_p)->xexpose.y = (int)_v;} int get_XEvent_xexpose_width(void *_p) {return (int)((XEvent *)_p)->xexpose.width;} void set_XEvent_xexpose_width(void *_p, int _v) {((XEvent *)_p)->xexpose.width = (int)_v;} int get_XEvent_xexpose_height(void *_p) {return (int)((XEvent *)_p)->xexpose.height;} void set_XEvent_xexpose_height(void *_p, int _v) {((XEvent *)_p)->xexpose.height = (int)_v;} int get_XEvent_xexpose_count(void *_p) {return (int)((XEvent *)_p)->xexpose.count;} void set_XEvent_xexpose_count(void *_p, int _v) {((XEvent *)_p)->xexpose.count = (int)_v;} int get_XEvent_xgraphicsexpose_type(void *_p) {return (int)((XEvent *)_p)->xgraphicsexpose.type;} void set_XEvent_xgraphicsexpose_type(void *_p, int _v) {((XEvent *)_p)->xgraphicsexpose.type = (int)_v;} unsigned long get_XEvent_xgraphicsexpose_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xgraphicsexpose.serial;} void set_XEvent_xgraphicsexpose_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xgraphicsexpose.serial = (unsigned long)_v;} int get_XEvent_xgraphicsexpose_send_event(void *_p) {return (int)((XEvent *)_p)->xgraphicsexpose.send_event;} void set_XEvent_xgraphicsexpose_send_event(void *_p, int _v) {((XEvent *)_p)->xgraphicsexpose.send_event = (int)_v;} void *get_XEvent_xgraphicsexpose_display(void *_p) {return (void *)((XEvent *)_p)->xgraphicsexpose.display;} void set_XEvent_xgraphicsexpose_display(void *_p, void *_v) {((XEvent *)_p)->xgraphicsexpose.display = (Display *)_v;} unsigned long get_XEvent_xgraphicsexpose_drawable(void *_p) {return (unsigned long)((XEvent *)_p)->xgraphicsexpose.drawable;} void set_XEvent_xgraphicsexpose_drawable(void *_p, unsigned long _v) {((XEvent *)_p)->xgraphicsexpose.drawable = (unsigned long)_v;} int get_XEvent_xgraphicsexpose_x(void *_p) {return (int)((XEvent *)_p)->xgraphicsexpose.x;} void set_XEvent_xgraphicsexpose_x(void *_p, int _v) {((XEvent *)_p)->xgraphicsexpose.x = (int)_v;} int get_XEvent_xgraphicsexpose_y(void *_p) {return (int)((XEvent *)_p)->xgraphicsexpose.y;} void set_XEvent_xgraphicsexpose_y(void *_p, int _v) {((XEvent *)_p)->xgraphicsexpose.y = (int)_v;} int get_XEvent_xgraphicsexpose_width(void *_p) {return (int)((XEvent *)_p)->xgraphicsexpose.width;} void set_XEvent_xgraphicsexpose_width(void *_p, int _v) {((XEvent *)_p)->xgraphicsexpose.width = (int)_v;} int get_XEvent_xgraphicsexpose_height(void *_p) {return (int)((XEvent *)_p)->xgraphicsexpose.height;} void set_XEvent_xgraphicsexpose_height(void *_p, int _v) {((XEvent *)_p)->xgraphicsexpose.height = (int)_v;} int get_XEvent_xgraphicsexpose_count(void *_p) {return (int)((XEvent *)_p)->xgraphicsexpose.count;} void set_XEvent_xgraphicsexpose_count(void *_p, int _v) {((XEvent *)_p)->xgraphicsexpose.count = (int)_v;} int get_XEvent_xgraphicsexpose_major_code(void *_p) {return (int)((XEvent *)_p)->xgraphicsexpose.major_code;} void set_XEvent_xgraphicsexpose_major_code(void *_p, int _v) {((XEvent *)_p)->xgraphicsexpose.major_code = (int)_v;} int get_XEvent_xgraphicsexpose_minor_code(void *_p) {return (int)((XEvent *)_p)->xgraphicsexpose.minor_code;} void set_XEvent_xgraphicsexpose_minor_code(void *_p, int _v) {((XEvent *)_p)->xgraphicsexpose.minor_code = (int)_v;} int get_XEvent_xnoexpose_type(void *_p) {return (int)((XEvent *)_p)->xnoexpose.type;} void set_XEvent_xnoexpose_type(void *_p, int _v) {((XEvent *)_p)->xnoexpose.type = (int)_v;} unsigned long get_XEvent_xnoexpose_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xnoexpose.serial;} void set_XEvent_xnoexpose_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xnoexpose.serial = (unsigned long)_v;} int get_XEvent_xnoexpose_send_event(void *_p) {return (int)((XEvent *)_p)->xnoexpose.send_event;} void set_XEvent_xnoexpose_send_event(void *_p, int _v) {((XEvent *)_p)->xnoexpose.send_event = (int)_v;} void *get_XEvent_xnoexpose_display(void *_p) {return (void *)((XEvent *)_p)->xnoexpose.display;} void set_XEvent_xnoexpose_display(void *_p, void *_v) {((XEvent *)_p)->xnoexpose.display = (Display *)_v;} unsigned long get_XEvent_xnoexpose_drawable(void *_p) {return (unsigned long)((XEvent *)_p)->xnoexpose.drawable;} void set_XEvent_xnoexpose_drawable(void *_p, unsigned long _v) {((XEvent *)_p)->xnoexpose.drawable = (unsigned long)_v;} int get_XEvent_xnoexpose_major_code(void *_p) {return (int)((XEvent *)_p)->xnoexpose.major_code;} void set_XEvent_xnoexpose_major_code(void *_p, int _v) {((XEvent *)_p)->xnoexpose.major_code = (int)_v;} int get_XEvent_xnoexpose_minor_code(void *_p) {return (int)((XEvent *)_p)->xnoexpose.minor_code;} void set_XEvent_xnoexpose_minor_code(void *_p, int _v) {((XEvent *)_p)->xnoexpose.minor_code = (int)_v;} int get_XEvent_xvisibility_type(void *_p) {return (int)((XEvent *)_p)->xvisibility.type;} void set_XEvent_xvisibility_type(void *_p, int _v) {((XEvent *)_p)->xvisibility.type = (int)_v;} unsigned long get_XEvent_xvisibility_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xvisibility.serial;} void set_XEvent_xvisibility_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xvisibility.serial = (unsigned long)_v;} int get_XEvent_xvisibility_send_event(void *_p) {return (int)((XEvent *)_p)->xvisibility.send_event;} void set_XEvent_xvisibility_send_event(void *_p, int _v) {((XEvent *)_p)->xvisibility.send_event = (int)_v;} void *get_XEvent_xvisibility_display(void *_p) {return (void *)((XEvent *)_p)->xvisibility.display;} void set_XEvent_xvisibility_display(void *_p, void *_v) {((XEvent *)_p)->xvisibility.display = (Display *)_v;} unsigned long get_XEvent_xvisibility_window(void *_p) {return (unsigned long)((XEvent *)_p)->xvisibility.window;} void set_XEvent_xvisibility_window(void *_p, unsigned long _v) {((XEvent *)_p)->xvisibility.window = (unsigned long)_v;} int get_XEvent_xvisibility_state(void *_p) {return (int)((XEvent *)_p)->xvisibility.state;} void set_XEvent_xvisibility_state(void *_p, int _v) {((XEvent *)_p)->xvisibility.state = (int)_v;} int get_XEvent_xcreatewindow_type(void *_p) {return (int)((XEvent *)_p)->xcreatewindow.type;} void set_XEvent_xcreatewindow_type(void *_p, int _v) {((XEvent *)_p)->xcreatewindow.type = (int)_v;} unsigned long get_XEvent_xcreatewindow_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xcreatewindow.serial;} void set_XEvent_xcreatewindow_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xcreatewindow.serial = (unsigned long)_v;} int get_XEvent_xcreatewindow_send_event(void *_p) {return (int)((XEvent *)_p)->xcreatewindow.send_event;} void set_XEvent_xcreatewindow_send_event(void *_p, int _v) {((XEvent *)_p)->xcreatewindow.send_event = (int)_v;} void *get_XEvent_xcreatewindow_display(void *_p) {return (void *)((XEvent *)_p)->xcreatewindow.display;} void set_XEvent_xcreatewindow_display(void *_p, void *_v) {((XEvent *)_p)->xcreatewindow.display = (Display *)_v;} unsigned long get_XEvent_xcreatewindow_parent(void *_p) {return (unsigned long)((XEvent *)_p)->xcreatewindow.parent;} void set_XEvent_xcreatewindow_parent(void *_p, unsigned long _v) {((XEvent *)_p)->xcreatewindow.parent = (unsigned long)_v;} unsigned long get_XEvent_xcreatewindow_window(void *_p) {return (unsigned long)((XEvent *)_p)->xcreatewindow.window;} void set_XEvent_xcreatewindow_window(void *_p, unsigned long _v) {((XEvent *)_p)->xcreatewindow.window = (unsigned long)_v;} int get_XEvent_xcreatewindow_x(void *_p) {return (int)((XEvent *)_p)->xcreatewindow.x;} void set_XEvent_xcreatewindow_x(void *_p, int _v) {((XEvent *)_p)->xcreatewindow.x = (int)_v;} int get_XEvent_xcreatewindow_y(void *_p) {return (int)((XEvent *)_p)->xcreatewindow.y;} void set_XEvent_xcreatewindow_y(void *_p, int _v) {((XEvent *)_p)->xcreatewindow.y = (int)_v;} int get_XEvent_xcreatewindow_width(void *_p) {return (int)((XEvent *)_p)->xcreatewindow.width;} void set_XEvent_xcreatewindow_width(void *_p, int _v) {((XEvent *)_p)->xcreatewindow.width = (int)_v;} int get_XEvent_xcreatewindow_height(void *_p) {return (int)((XEvent *)_p)->xcreatewindow.height;} void set_XEvent_xcreatewindow_height(void *_p, int _v) {((XEvent *)_p)->xcreatewindow.height = (int)_v;} int get_XEvent_xcreatewindow_border_width(void *_p) {return (int)((XEvent *)_p)->xcreatewindow.border_width;} void set_XEvent_xcreatewindow_border_width(void *_p, int _v) {((XEvent *)_p)->xcreatewindow.border_width = (int)_v;} int get_XEvent_xcreatewindow_override_redirect(void *_p) {return (int)((XEvent *)_p)->xcreatewindow.override_redirect;} void set_XEvent_xcreatewindow_override_redirect(void *_p, int _v) {((XEvent *)_p)->xcreatewindow.override_redirect = (int)_v;} int get_XEvent_xdestroywindow_type(void *_p) {return (int)((XEvent *)_p)->xdestroywindow.type;} void set_XEvent_xdestroywindow_type(void *_p, int _v) {((XEvent *)_p)->xdestroywindow.type = (int)_v;} unsigned long get_XEvent_xdestroywindow_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xdestroywindow.serial;} void set_XEvent_xdestroywindow_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xdestroywindow.serial = (unsigned long)_v;} int get_XEvent_xdestroywindow_send_event(void *_p) {return (int)((XEvent *)_p)->xdestroywindow.send_event;} void set_XEvent_xdestroywindow_send_event(void *_p, int _v) {((XEvent *)_p)->xdestroywindow.send_event = (int)_v;} void *get_XEvent_xdestroywindow_display(void *_p) {return (void *)((XEvent *)_p)->xdestroywindow.display;} void set_XEvent_xdestroywindow_display(void *_p, void *_v) {((XEvent *)_p)->xdestroywindow.display = (Display *)_v;} unsigned long get_XEvent_xdestroywindow_event(void *_p) {return (unsigned long)((XEvent *)_p)->xdestroywindow.event;} void set_XEvent_xdestroywindow_event(void *_p, unsigned long _v) {((XEvent *)_p)->xdestroywindow.event = (unsigned long)_v;} unsigned long get_XEvent_xdestroywindow_window(void *_p) {return (unsigned long)((XEvent *)_p)->xdestroywindow.window;} void set_XEvent_xdestroywindow_window(void *_p, unsigned long _v) {((XEvent *)_p)->xdestroywindow.window = (unsigned long)_v;} int get_XEvent_xunmap_type(void *_p) {return (int)((XEvent *)_p)->xunmap.type;} void set_XEvent_xunmap_type(void *_p, int _v) {((XEvent *)_p)->xunmap.type = (int)_v;} unsigned long get_XEvent_xunmap_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xunmap.serial;} void set_XEvent_xunmap_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xunmap.serial = (unsigned long)_v;} int get_XEvent_xunmap_send_event(void *_p) {return (int)((XEvent *)_p)->xunmap.send_event;} void set_XEvent_xunmap_send_event(void *_p, int _v) {((XEvent *)_p)->xunmap.send_event = (int)_v;} void *get_XEvent_xunmap_display(void *_p) {return (void *)((XEvent *)_p)->xunmap.display;} void set_XEvent_xunmap_display(void *_p, void *_v) {((XEvent *)_p)->xunmap.display = (Display *)_v;} unsigned long get_XEvent_xunmap_event(void *_p) {return (unsigned long)((XEvent *)_p)->xunmap.event;} void set_XEvent_xunmap_event(void *_p, unsigned long _v) {((XEvent *)_p)->xunmap.event = (unsigned long)_v;} unsigned long get_XEvent_xunmap_window(void *_p) {return (unsigned long)((XEvent *)_p)->xunmap.window;} void set_XEvent_xunmap_window(void *_p, unsigned long _v) {((XEvent *)_p)->xunmap.window = (unsigned long)_v;} int get_XEvent_xunmap_from_configure(void *_p) {return (int)((XEvent *)_p)->xunmap.from_configure;} void set_XEvent_xunmap_from_configure(void *_p, int _v) {((XEvent *)_p)->xunmap.from_configure = (int)_v;} int get_XEvent_xmap_type(void *_p) {return (int)((XEvent *)_p)->xmap.type;} void set_XEvent_xmap_type(void *_p, int _v) {((XEvent *)_p)->xmap.type = (int)_v;} unsigned long get_XEvent_xmap_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xmap.serial;} void set_XEvent_xmap_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xmap.serial = (unsigned long)_v;} int get_XEvent_xmap_send_event(void *_p) {return (int)((XEvent *)_p)->xmap.send_event;} void set_XEvent_xmap_send_event(void *_p, int _v) {((XEvent *)_p)->xmap.send_event = (int)_v;} void *get_XEvent_xmap_display(void *_p) {return (void *)((XEvent *)_p)->xmap.display;} void set_XEvent_xmap_display(void *_p, void *_v) {((XEvent *)_p)->xmap.display = (Display *)_v;} unsigned long get_XEvent_xmap_event(void *_p) {return (unsigned long)((XEvent *)_p)->xmap.event;} void set_XEvent_xmap_event(void *_p, unsigned long _v) {((XEvent *)_p)->xmap.event = (unsigned long)_v;} unsigned long get_XEvent_xmap_window(void *_p) {return (unsigned long)((XEvent *)_p)->xmap.window;} void set_XEvent_xmap_window(void *_p, unsigned long _v) {((XEvent *)_p)->xmap.window = (unsigned long)_v;} int get_XEvent_xmap_override_redirect(void *_p) {return (int)((XEvent *)_p)->xmap.override_redirect;} void set_XEvent_xmap_override_redirect(void *_p, int _v) {((XEvent *)_p)->xmap.override_redirect = (int)_v;} int get_XEvent_xmaprequest_type(void *_p) {return (int)((XEvent *)_p)->xmaprequest.type;} void set_XEvent_xmaprequest_type(void *_p, int _v) {((XEvent *)_p)->xmaprequest.type = (int)_v;} unsigned long get_XEvent_xmaprequest_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xmaprequest.serial;} void set_XEvent_xmaprequest_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xmaprequest.serial = (unsigned long)_v;} int get_XEvent_xmaprequest_send_event(void *_p) {return (int)((XEvent *)_p)->xmaprequest.send_event;} void set_XEvent_xmaprequest_send_event(void *_p, int _v) {((XEvent *)_p)->xmaprequest.send_event = (int)_v;} void *get_XEvent_xmaprequest_display(void *_p) {return (void *)((XEvent *)_p)->xmaprequest.display;} void set_XEvent_xmaprequest_display(void *_p, void *_v) {((XEvent *)_p)->xmaprequest.display = (Display *)_v;} unsigned long get_XEvent_xmaprequest_parent(void *_p) {return (unsigned long)((XEvent *)_p)->xmaprequest.parent;} void set_XEvent_xmaprequest_parent(void *_p, unsigned long _v) {((XEvent *)_p)->xmaprequest.parent = (unsigned long)_v;} unsigned long get_XEvent_xmaprequest_window(void *_p) {return (unsigned long)((XEvent *)_p)->xmaprequest.window;} void set_XEvent_xmaprequest_window(void *_p, unsigned long _v) {((XEvent *)_p)->xmaprequest.window = (unsigned long)_v;} int get_XEvent_xreparent_type(void *_p) {return (int)((XEvent *)_p)->xreparent.type;} void set_XEvent_xreparent_type(void *_p, int _v) {((XEvent *)_p)->xreparent.type = (int)_v;} unsigned long get_XEvent_xreparent_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xreparent.serial;} void set_XEvent_xreparent_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xreparent.serial = (unsigned long)_v;} int get_XEvent_xreparent_send_event(void *_p) {return (int)((XEvent *)_p)->xreparent.send_event;} void set_XEvent_xreparent_send_event(void *_p, int _v) {((XEvent *)_p)->xreparent.send_event = (int)_v;} void *get_XEvent_xreparent_display(void *_p) {return (void *)((XEvent *)_p)->xreparent.display;} void set_XEvent_xreparent_display(void *_p, void *_v) {((XEvent *)_p)->xreparent.display = (Display *)_v;} unsigned long get_XEvent_xreparent_event(void *_p) {return (unsigned long)((XEvent *)_p)->xreparent.event;} void set_XEvent_xreparent_event(void *_p, unsigned long _v) {((XEvent *)_p)->xreparent.event = (unsigned long)_v;} unsigned long get_XEvent_xreparent_window(void *_p) {return (unsigned long)((XEvent *)_p)->xreparent.window;} void set_XEvent_xreparent_window(void *_p, unsigned long _v) {((XEvent *)_p)->xreparent.window = (unsigned long)_v;} unsigned long get_XEvent_xreparent_parent(void *_p) {return (unsigned long)((XEvent *)_p)->xreparent.parent;} void set_XEvent_xreparent_parent(void *_p, unsigned long _v) {((XEvent *)_p)->xreparent.parent = (unsigned long)_v;} int get_XEvent_xreparent_x(void *_p) {return (int)((XEvent *)_p)->xreparent.x;} void set_XEvent_xreparent_x(void *_p, int _v) {((XEvent *)_p)->xreparent.x = (int)_v;} int get_XEvent_xreparent_y(void *_p) {return (int)((XEvent *)_p)->xreparent.y;} void set_XEvent_xreparent_y(void *_p, int _v) {((XEvent *)_p)->xreparent.y = (int)_v;} int get_XEvent_xreparent_override_redirect(void *_p) {return (int)((XEvent *)_p)->xreparent.override_redirect;} void set_XEvent_xreparent_override_redirect(void *_p, int _v) {((XEvent *)_p)->xreparent.override_redirect = (int)_v;} int get_XEvent_xconfigure_type(void *_p) {return (int)((XEvent *)_p)->xconfigure.type;} void set_XEvent_xconfigure_type(void *_p, int _v) {((XEvent *)_p)->xconfigure.type = (int)_v;} unsigned long get_XEvent_xconfigure_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xconfigure.serial;} void set_XEvent_xconfigure_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xconfigure.serial = (unsigned long)_v;} int get_XEvent_xconfigure_send_event(void *_p) {return (int)((XEvent *)_p)->xconfigure.send_event;} void set_XEvent_xconfigure_send_event(void *_p, int _v) {((XEvent *)_p)->xconfigure.send_event = (int)_v;} void *get_XEvent_xconfigure_display(void *_p) {return (void *)((XEvent *)_p)->xconfigure.display;} void set_XEvent_xconfigure_display(void *_p, void *_v) {((XEvent *)_p)->xconfigure.display = (Display *)_v;} unsigned long get_XEvent_xconfigure_event(void *_p) {return (unsigned long)((XEvent *)_p)->xconfigure.event;} void set_XEvent_xconfigure_event(void *_p, unsigned long _v) {((XEvent *)_p)->xconfigure.event = (unsigned long)_v;} unsigned long get_XEvent_xconfigure_window(void *_p) {return (unsigned long)((XEvent *)_p)->xconfigure.window;} void set_XEvent_xconfigure_window(void *_p, unsigned long _v) {((XEvent *)_p)->xconfigure.window = (unsigned long)_v;} int get_XEvent_xconfigure_x(void *_p) {return (int)((XEvent *)_p)->xconfigure.x;} void set_XEvent_xconfigure_x(void *_p, int _v) {((XEvent *)_p)->xconfigure.x = (int)_v;} int get_XEvent_xconfigure_y(void *_p) {return (int)((XEvent *)_p)->xconfigure.y;} void set_XEvent_xconfigure_y(void *_p, int _v) {((XEvent *)_p)->xconfigure.y = (int)_v;} int get_XEvent_xconfigure_width(void *_p) {return (int)((XEvent *)_p)->xconfigure.width;} void set_XEvent_xconfigure_width(void *_p, int _v) {((XEvent *)_p)->xconfigure.width = (int)_v;} int get_XEvent_xconfigure_height(void *_p) {return (int)((XEvent *)_p)->xconfigure.height;} void set_XEvent_xconfigure_height(void *_p, int _v) {((XEvent *)_p)->xconfigure.height = (int)_v;} int get_XEvent_xconfigure_border_width(void *_p) {return (int)((XEvent *)_p)->xconfigure.border_width;} void set_XEvent_xconfigure_border_width(void *_p, int _v) {((XEvent *)_p)->xconfigure.border_width = (int)_v;} unsigned long get_XEvent_xconfigure_above(void *_p) {return (unsigned long)((XEvent *)_p)->xconfigure.above;} void set_XEvent_xconfigure_above(void *_p, unsigned long _v) {((XEvent *)_p)->xconfigure.above = (unsigned long)_v;} int get_XEvent_xconfigure_override_redirect(void *_p) {return (int)((XEvent *)_p)->xconfigure.override_redirect;} void set_XEvent_xconfigure_override_redirect(void *_p, int _v) {((XEvent *)_p)->xconfigure.override_redirect = (int)_v;} int get_XEvent_xgravity_type(void *_p) {return (int)((XEvent *)_p)->xgravity.type;} void set_XEvent_xgravity_type(void *_p, int _v) {((XEvent *)_p)->xgravity.type = (int)_v;} unsigned long get_XEvent_xgravity_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xgravity.serial;} void set_XEvent_xgravity_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xgravity.serial = (unsigned long)_v;} int get_XEvent_xgravity_send_event(void *_p) {return (int)((XEvent *)_p)->xgravity.send_event;} void set_XEvent_xgravity_send_event(void *_p, int _v) {((XEvent *)_p)->xgravity.send_event = (int)_v;} void *get_XEvent_xgravity_display(void *_p) {return (void *)((XEvent *)_p)->xgravity.display;} void set_XEvent_xgravity_display(void *_p, void *_v) {((XEvent *)_p)->xgravity.display = (Display *)_v;} unsigned long get_XEvent_xgravity_event(void *_p) {return (unsigned long)((XEvent *)_p)->xgravity.event;} void set_XEvent_xgravity_event(void *_p, unsigned long _v) {((XEvent *)_p)->xgravity.event = (unsigned long)_v;} unsigned long get_XEvent_xgravity_window(void *_p) {return (unsigned long)((XEvent *)_p)->xgravity.window;} void set_XEvent_xgravity_window(void *_p, unsigned long _v) {((XEvent *)_p)->xgravity.window = (unsigned long)_v;} int get_XEvent_xgravity_x(void *_p) {return (int)((XEvent *)_p)->xgravity.x;} void set_XEvent_xgravity_x(void *_p, int _v) {((XEvent *)_p)->xgravity.x = (int)_v;} int get_XEvent_xgravity_y(void *_p) {return (int)((XEvent *)_p)->xgravity.y;} void set_XEvent_xgravity_y(void *_p, int _v) {((XEvent *)_p)->xgravity.y = (int)_v;} int get_XEvent_xresizerequest_type(void *_p) {return (int)((XEvent *)_p)->xresizerequest.type;} void set_XEvent_xresizerequest_type(void *_p, int _v) {((XEvent *)_p)->xresizerequest.type = (int)_v;} unsigned long get_XEvent_xresizerequest_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xresizerequest.serial;} void set_XEvent_xresizerequest_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xresizerequest.serial = (unsigned long)_v;} int get_XEvent_xresizerequest_send_event(void *_p) {return (int)((XEvent *)_p)->xresizerequest.send_event;} void set_XEvent_xresizerequest_send_event(void *_p, int _v) {((XEvent *)_p)->xresizerequest.send_event = (int)_v;} void *get_XEvent_xresizerequest_display(void *_p) {return (void *)((XEvent *)_p)->xresizerequest.display;} void set_XEvent_xresizerequest_display(void *_p, void *_v) {((XEvent *)_p)->xresizerequest.display = (Display *)_v;} unsigned long get_XEvent_xresizerequest_window(void *_p) {return (unsigned long)((XEvent *)_p)->xresizerequest.window;} void set_XEvent_xresizerequest_window(void *_p, unsigned long _v) {((XEvent *)_p)->xresizerequest.window = (unsigned long)_v;} int get_XEvent_xresizerequest_width(void *_p) {return (int)((XEvent *)_p)->xresizerequest.width;} void set_XEvent_xresizerequest_width(void *_p, int _v) {((XEvent *)_p)->xresizerequest.width = (int)_v;} int get_XEvent_xresizerequest_height(void *_p) {return (int)((XEvent *)_p)->xresizerequest.height;} void set_XEvent_xresizerequest_height(void *_p, int _v) {((XEvent *)_p)->xresizerequest.height = (int)_v;} int get_XEvent_xconfigurerequest_type(void *_p) {return (int)((XEvent *)_p)->xconfigurerequest.type;} void set_XEvent_xconfigurerequest_type(void *_p, int _v) {((XEvent *)_p)->xconfigurerequest.type = (int)_v;} unsigned long get_XEvent_xconfigurerequest_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xconfigurerequest.serial;} void set_XEvent_xconfigurerequest_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xconfigurerequest.serial = (unsigned long)_v;} int get_XEvent_xconfigurerequest_send_event(void *_p) {return (int)((XEvent *)_p)->xconfigurerequest.send_event;} void set_XEvent_xconfigurerequest_send_event(void *_p, int _v) {((XEvent *)_p)->xconfigurerequest.send_event = (int)_v;} void *get_XEvent_xconfigurerequest_display(void *_p) {return (void *)((XEvent *)_p)->xconfigurerequest.display;} void set_XEvent_xconfigurerequest_display(void *_p, void *_v) {((XEvent *)_p)->xconfigurerequest.display = (Display *)_v;} unsigned long get_XEvent_xconfigurerequest_parent(void *_p) {return (unsigned long)((XEvent *)_p)->xconfigurerequest.parent;} void set_XEvent_xconfigurerequest_parent(void *_p, unsigned long _v) {((XEvent *)_p)->xconfigurerequest.parent = (unsigned long)_v;} unsigned long get_XEvent_xconfigurerequest_window(void *_p) {return (unsigned long)((XEvent *)_p)->xconfigurerequest.window;} void set_XEvent_xconfigurerequest_window(void *_p, unsigned long _v) {((XEvent *)_p)->xconfigurerequest.window = (unsigned long)_v;} int get_XEvent_xconfigurerequest_x(void *_p) {return (int)((XEvent *)_p)->xconfigurerequest.x;} void set_XEvent_xconfigurerequest_x(void *_p, int _v) {((XEvent *)_p)->xconfigurerequest.x = (int)_v;} int get_XEvent_xconfigurerequest_y(void *_p) {return (int)((XEvent *)_p)->xconfigurerequest.y;} void set_XEvent_xconfigurerequest_y(void *_p, int _v) {((XEvent *)_p)->xconfigurerequest.y = (int)_v;} int get_XEvent_xconfigurerequest_width(void *_p) {return (int)((XEvent *)_p)->xconfigurerequest.width;} void set_XEvent_xconfigurerequest_width(void *_p, int _v) {((XEvent *)_p)->xconfigurerequest.width = (int)_v;} int get_XEvent_xconfigurerequest_height(void *_p) {return (int)((XEvent *)_p)->xconfigurerequest.height;} void set_XEvent_xconfigurerequest_height(void *_p, int _v) {((XEvent *)_p)->xconfigurerequest.height = (int)_v;} int get_XEvent_xconfigurerequest_border_width(void *_p) {return (int)((XEvent *)_p)->xconfigurerequest.border_width;} void set_XEvent_xconfigurerequest_border_width(void *_p, int _v) {((XEvent *)_p)->xconfigurerequest.border_width = (int)_v;} unsigned long get_XEvent_xconfigurerequest_above(void *_p) {return (unsigned long)((XEvent *)_p)->xconfigurerequest.above;} void set_XEvent_xconfigurerequest_above(void *_p, unsigned long _v) {((XEvent *)_p)->xconfigurerequest.above = (unsigned long)_v;} int get_XEvent_xconfigurerequest_detail(void *_p) {return (int)((XEvent *)_p)->xconfigurerequest.detail;} void set_XEvent_xconfigurerequest_detail(void *_p, int _v) {((XEvent *)_p)->xconfigurerequest.detail = (int)_v;} unsigned long get_XEvent_xconfigurerequest_value_mask(void *_p) {return (unsigned long)((XEvent *)_p)->xconfigurerequest.value_mask;} void set_XEvent_xconfigurerequest_value_mask(void *_p, unsigned long _v) {((XEvent *)_p)->xconfigurerequest.value_mask = (unsigned long)_v;} int get_XEvent_xcirculate_type(void *_p) {return (int)((XEvent *)_p)->xcirculate.type;} void set_XEvent_xcirculate_type(void *_p, int _v) {((XEvent *)_p)->xcirculate.type = (int)_v;} unsigned long get_XEvent_xcirculate_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xcirculate.serial;} void set_XEvent_xcirculate_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xcirculate.serial = (unsigned long)_v;} int get_XEvent_xcirculate_send_event(void *_p) {return (int)((XEvent *)_p)->xcirculate.send_event;} void set_XEvent_xcirculate_send_event(void *_p, int _v) {((XEvent *)_p)->xcirculate.send_event = (int)_v;} void *get_XEvent_xcirculate_display(void *_p) {return (void *)((XEvent *)_p)->xcirculate.display;} void set_XEvent_xcirculate_display(void *_p, void *_v) {((XEvent *)_p)->xcirculate.display = (Display *)_v;} unsigned long get_XEvent_xcirculate_event(void *_p) {return (unsigned long)((XEvent *)_p)->xcirculate.event;} void set_XEvent_xcirculate_event(void *_p, unsigned long _v) {((XEvent *)_p)->xcirculate.event = (unsigned long)_v;} unsigned long get_XEvent_xcirculate_window(void *_p) {return (unsigned long)((XEvent *)_p)->xcirculate.window;} void set_XEvent_xcirculate_window(void *_p, unsigned long _v) {((XEvent *)_p)->xcirculate.window = (unsigned long)_v;} int get_XEvent_xcirculate_place(void *_p) {return (int)((XEvent *)_p)->xcirculate.place;} void set_XEvent_xcirculate_place(void *_p, int _v) {((XEvent *)_p)->xcirculate.place = (int)_v;} int get_XEvent_xcirculaterequest_type(void *_p) {return (int)((XEvent *)_p)->xcirculaterequest.type;} void set_XEvent_xcirculaterequest_type(void *_p, int _v) {((XEvent *)_p)->xcirculaterequest.type = (int)_v;} unsigned long get_XEvent_xcirculaterequest_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xcirculaterequest.serial;} void set_XEvent_xcirculaterequest_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xcirculaterequest.serial = (unsigned long)_v;} int get_XEvent_xcirculaterequest_send_event(void *_p) {return (int)((XEvent *)_p)->xcirculaterequest.send_event;} void set_XEvent_xcirculaterequest_send_event(void *_p, int _v) {((XEvent *)_p)->xcirculaterequest.send_event = (int)_v;} void *get_XEvent_xcirculaterequest_display(void *_p) {return (void *)((XEvent *)_p)->xcirculaterequest.display;} void set_XEvent_xcirculaterequest_display(void *_p, void *_v) {((XEvent *)_p)->xcirculaterequest.display = (Display *)_v;} unsigned long get_XEvent_xcirculaterequest_parent(void *_p) {return (unsigned long)((XEvent *)_p)->xcirculaterequest.parent;} void set_XEvent_xcirculaterequest_parent(void *_p, unsigned long _v) {((XEvent *)_p)->xcirculaterequest.parent = (unsigned long)_v;} unsigned long get_XEvent_xcirculaterequest_window(void *_p) {return (unsigned long)((XEvent *)_p)->xcirculaterequest.window;} void set_XEvent_xcirculaterequest_window(void *_p, unsigned long _v) {((XEvent *)_p)->xcirculaterequest.window = (unsigned long)_v;} int get_XEvent_xcirculaterequest_place(void *_p) {return (int)((XEvent *)_p)->xcirculaterequest.place;} void set_XEvent_xcirculaterequest_place(void *_p, int _v) {((XEvent *)_p)->xcirculaterequest.place = (int)_v;} int get_XEvent_xproperty_type(void *_p) {return (int)((XEvent *)_p)->xproperty.type;} void set_XEvent_xproperty_type(void *_p, int _v) {((XEvent *)_p)->xproperty.type = (int)_v;} unsigned long get_XEvent_xproperty_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xproperty.serial;} void set_XEvent_xproperty_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xproperty.serial = (unsigned long)_v;} int get_XEvent_xproperty_send_event(void *_p) {return (int)((XEvent *)_p)->xproperty.send_event;} void set_XEvent_xproperty_send_event(void *_p, int _v) {((XEvent *)_p)->xproperty.send_event = (int)_v;} void *get_XEvent_xproperty_display(void *_p) {return (void *)((XEvent *)_p)->xproperty.display;} void set_XEvent_xproperty_display(void *_p, void *_v) {((XEvent *)_p)->xproperty.display = (Display *)_v;} unsigned long get_XEvent_xproperty_window(void *_p) {return (unsigned long)((XEvent *)_p)->xproperty.window;} void set_XEvent_xproperty_window(void *_p, unsigned long _v) {((XEvent *)_p)->xproperty.window = (unsigned long)_v;} unsigned long get_XEvent_xproperty_atom(void *_p) {return (unsigned long)((XEvent *)_p)->xproperty.atom;} void set_XEvent_xproperty_atom(void *_p, unsigned long _v) {((XEvent *)_p)->xproperty.atom = (unsigned long)_v;} unsigned long get_XEvent_xproperty_time(void *_p) {return (unsigned long)((XEvent *)_p)->xproperty.time;} void set_XEvent_xproperty_time(void *_p, unsigned long _v) {((XEvent *)_p)->xproperty.time = (unsigned long)_v;} int get_XEvent_xproperty_state(void *_p) {return (int)((XEvent *)_p)->xproperty.state;} void set_XEvent_xproperty_state(void *_p, int _v) {((XEvent *)_p)->xproperty.state = (int)_v;} int get_XEvent_xselectionclear_type(void *_p) {return (int)((XEvent *)_p)->xselectionclear.type;} void set_XEvent_xselectionclear_type(void *_p, int _v) {((XEvent *)_p)->xselectionclear.type = (int)_v;} unsigned long get_XEvent_xselectionclear_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xselectionclear.serial;} void set_XEvent_xselectionclear_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xselectionclear.serial = (unsigned long)_v;} int get_XEvent_xselectionclear_send_event(void *_p) {return (int)((XEvent *)_p)->xselectionclear.send_event;} void set_XEvent_xselectionclear_send_event(void *_p, int _v) {((XEvent *)_p)->xselectionclear.send_event = (int)_v;} void *get_XEvent_xselectionclear_display(void *_p) {return (void *)((XEvent *)_p)->xselectionclear.display;} void set_XEvent_xselectionclear_display(void *_p, void *_v) {((XEvent *)_p)->xselectionclear.display = (Display *)_v;} unsigned long get_XEvent_xselectionclear_window(void *_p) {return (unsigned long)((XEvent *)_p)->xselectionclear.window;} void set_XEvent_xselectionclear_window(void *_p, unsigned long _v) {((XEvent *)_p)->xselectionclear.window = (unsigned long)_v;} unsigned long get_XEvent_xselectionclear_selection(void *_p) {return (unsigned long)((XEvent *)_p)->xselectionclear.selection;} void set_XEvent_xselectionclear_selection(void *_p, unsigned long _v) {((XEvent *)_p)->xselectionclear.selection = (unsigned long)_v;} unsigned long get_XEvent_xselectionclear_time(void *_p) {return (unsigned long)((XEvent *)_p)->xselectionclear.time;} void set_XEvent_xselectionclear_time(void *_p, unsigned long _v) {((XEvent *)_p)->xselectionclear.time = (unsigned long)_v;} int get_XEvent_xselectionrequest_type(void *_p) {return (int)((XEvent *)_p)->xselectionrequest.type;} void set_XEvent_xselectionrequest_type(void *_p, int _v) {((XEvent *)_p)->xselectionrequest.type = (int)_v;} unsigned long get_XEvent_xselectionrequest_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xselectionrequest.serial;} void set_XEvent_xselectionrequest_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xselectionrequest.serial = (unsigned long)_v;} int get_XEvent_xselectionrequest_send_event(void *_p) {return (int)((XEvent *)_p)->xselectionrequest.send_event;} void set_XEvent_xselectionrequest_send_event(void *_p, int _v) {((XEvent *)_p)->xselectionrequest.send_event = (int)_v;} void *get_XEvent_xselectionrequest_display(void *_p) {return (void *)((XEvent *)_p)->xselectionrequest.display;} void set_XEvent_xselectionrequest_display(void *_p, void *_v) {((XEvent *)_p)->xselectionrequest.display = (Display *)_v;} unsigned long get_XEvent_xselectionrequest_owner(void *_p) {return (unsigned long)((XEvent *)_p)->xselectionrequest.owner;} void set_XEvent_xselectionrequest_owner(void *_p, unsigned long _v) {((XEvent *)_p)->xselectionrequest.owner = (unsigned long)_v;} unsigned long get_XEvent_xselectionrequest_requestor(void *_p) {return (unsigned long)((XEvent *)_p)->xselectionrequest.requestor;} void set_XEvent_xselectionrequest_requestor(void *_p, unsigned long _v) {((XEvent *)_p)->xselectionrequest.requestor = (unsigned long)_v;} unsigned long get_XEvent_xselectionrequest_selection(void *_p) {return (unsigned long)((XEvent *)_p)->xselectionrequest.selection;} void set_XEvent_xselectionrequest_selection(void *_p, unsigned long _v) {((XEvent *)_p)->xselectionrequest.selection = (unsigned long)_v;} unsigned long get_XEvent_xselectionrequest_target(void *_p) {return (unsigned long)((XEvent *)_p)->xselectionrequest.target;} void set_XEvent_xselectionrequest_target(void *_p, unsigned long _v) {((XEvent *)_p)->xselectionrequest.target = (unsigned long)_v;} unsigned long get_XEvent_xselectionrequest_property(void *_p) {return (unsigned long)((XEvent *)_p)->xselectionrequest.property;} void set_XEvent_xselectionrequest_property(void *_p, unsigned long _v) {((XEvent *)_p)->xselectionrequest.property = (unsigned long)_v;} unsigned long get_XEvent_xselectionrequest_time(void *_p) {return (unsigned long)((XEvent *)_p)->xselectionrequest.time;} void set_XEvent_xselectionrequest_time(void *_p, unsigned long _v) {((XEvent *)_p)->xselectionrequest.time = (unsigned long)_v;} int get_XEvent_xselection_type(void *_p) {return (int)((XEvent *)_p)->xselection.type;} void set_XEvent_xselection_type(void *_p, int _v) {((XEvent *)_p)->xselection.type = (int)_v;} unsigned long get_XEvent_xselection_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xselection.serial;} void set_XEvent_xselection_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xselection.serial = (unsigned long)_v;} int get_XEvent_xselection_send_event(void *_p) {return (int)((XEvent *)_p)->xselection.send_event;} void set_XEvent_xselection_send_event(void *_p, int _v) {((XEvent *)_p)->xselection.send_event = (int)_v;} void *get_XEvent_xselection_display(void *_p) {return (void *)((XEvent *)_p)->xselection.display;} void set_XEvent_xselection_display(void *_p, void *_v) {((XEvent *)_p)->xselection.display = (Display *)_v;} unsigned long get_XEvent_xselection_requestor(void *_p) {return (unsigned long)((XEvent *)_p)->xselection.requestor;} void set_XEvent_xselection_requestor(void *_p, unsigned long _v) {((XEvent *)_p)->xselection.requestor = (unsigned long)_v;} unsigned long get_XEvent_xselection_selection(void *_p) {return (unsigned long)((XEvent *)_p)->xselection.selection;} void set_XEvent_xselection_selection(void *_p, unsigned long _v) {((XEvent *)_p)->xselection.selection = (unsigned long)_v;} unsigned long get_XEvent_xselection_target(void *_p) {return (unsigned long)((XEvent *)_p)->xselection.target;} void set_XEvent_xselection_target(void *_p, unsigned long _v) {((XEvent *)_p)->xselection.target = (unsigned long)_v;} unsigned long get_XEvent_xselection_property(void *_p) {return (unsigned long)((XEvent *)_p)->xselection.property;} void set_XEvent_xselection_property(void *_p, unsigned long _v) {((XEvent *)_p)->xselection.property = (unsigned long)_v;} unsigned long get_XEvent_xselection_time(void *_p) {return (unsigned long)((XEvent *)_p)->xselection.time;} void set_XEvent_xselection_time(void *_p, unsigned long _v) {((XEvent *)_p)->xselection.time = (unsigned long)_v;} int get_XEvent_xcolormap_type(void *_p) {return (int)((XEvent *)_p)->xcolormap.type;} void set_XEvent_xcolormap_type(void *_p, int _v) {((XEvent *)_p)->xcolormap.type = (int)_v;} unsigned long get_XEvent_xcolormap_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xcolormap.serial;} void set_XEvent_xcolormap_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xcolormap.serial = (unsigned long)_v;} int get_XEvent_xcolormap_send_event(void *_p) {return (int)((XEvent *)_p)->xcolormap.send_event;} void set_XEvent_xcolormap_send_event(void *_p, int _v) {((XEvent *)_p)->xcolormap.send_event = (int)_v;} void *get_XEvent_xcolormap_display(void *_p) {return (void *)((XEvent *)_p)->xcolormap.display;} void set_XEvent_xcolormap_display(void *_p, void *_v) {((XEvent *)_p)->xcolormap.display = (Display *)_v;} unsigned long get_XEvent_xcolormap_window(void *_p) {return (unsigned long)((XEvent *)_p)->xcolormap.window;} void set_XEvent_xcolormap_window(void *_p, unsigned long _v) {((XEvent *)_p)->xcolormap.window = (unsigned long)_v;} unsigned long get_XEvent_xcolormap_colormap(void *_p) {return (unsigned long)((XEvent *)_p)->xcolormap.colormap;} void set_XEvent_xcolormap_colormap(void *_p, unsigned long _v) {((XEvent *)_p)->xcolormap.colormap = (unsigned long)_v;} int get_XEvent_xcolormap_new(void *_p) {return (int)((XEvent *)_p)->xcolormap.new;} void set_XEvent_xcolormap_new(void *_p, int _v) {((XEvent *)_p)->xcolormap.new = (int)_v;} int get_XEvent_xcolormap_state(void *_p) {return (int)((XEvent *)_p)->xcolormap.state;} void set_XEvent_xcolormap_state(void *_p, int _v) {((XEvent *)_p)->xcolormap.state = (int)_v;} int get_XEvent_xclient_type(void *_p) {return (int)((XEvent *)_p)->xclient.type;} void set_XEvent_xclient_type(void *_p, int _v) {((XEvent *)_p)->xclient.type = (int)_v;} unsigned long get_XEvent_xclient_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xclient.serial;} void set_XEvent_xclient_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xclient.serial = (unsigned long)_v;} int get_XEvent_xclient_send_event(void *_p) {return (int)((XEvent *)_p)->xclient.send_event;} void set_XEvent_xclient_send_event(void *_p, int _v) {((XEvent *)_p)->xclient.send_event = (int)_v;} void *get_XEvent_xclient_display(void *_p) {return (void *)((XEvent *)_p)->xclient.display;} void set_XEvent_xclient_display(void *_p, void *_v) {((XEvent *)_p)->xclient.display = (Display *)_v;} unsigned long get_XEvent_xclient_window(void *_p) {return (unsigned long)((XEvent *)_p)->xclient.window;} void set_XEvent_xclient_window(void *_p, unsigned long _v) {((XEvent *)_p)->xclient.window = (unsigned long)_v;} unsigned long get_XEvent_xclient_message_type(void *_p) {return (unsigned long)((XEvent *)_p)->xclient.message_type;} void set_XEvent_xclient_message_type(void *_p, unsigned long _v) {((XEvent *)_p)->xclient.message_type = (unsigned long)_v;} int get_XEvent_xclient_format(void *_p) {return (int)((XEvent *)_p)->xclient.format;} void set_XEvent_xclient_format(void *_p, int _v) {((XEvent *)_p)->xclient.format = (int)_v;} void *get_XEvent_xclient_data_b(void *_p) {return (void *)(((XEvent *)_p)->xclient.data.b);} void *get_XEvent_xclient_data_s(void *_p) {return (void *)(((XEvent *)_p)->xclient.data.s);} void *get_XEvent_xclient_data_l(void *_p) {return (void *)(((XEvent *)_p)->xclient.data.l);} int get_XEvent_xmapping_type(void *_p) {return (int)((XEvent *)_p)->xmapping.type;} void set_XEvent_xmapping_type(void *_p, int _v) {((XEvent *)_p)->xmapping.type = (int)_v;} unsigned long get_XEvent_xmapping_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xmapping.serial;} void set_XEvent_xmapping_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xmapping.serial = (unsigned long)_v;} int get_XEvent_xmapping_send_event(void *_p) {return (int)((XEvent *)_p)->xmapping.send_event;} void set_XEvent_xmapping_send_event(void *_p, int _v) {((XEvent *)_p)->xmapping.send_event = (int)_v;} void *get_XEvent_xmapping_display(void *_p) {return (void *)((XEvent *)_p)->xmapping.display;} void set_XEvent_xmapping_display(void *_p, void *_v) {((XEvent *)_p)->xmapping.display = (Display *)_v;} unsigned long get_XEvent_xmapping_window(void *_p) {return (unsigned long)((XEvent *)_p)->xmapping.window;} void set_XEvent_xmapping_window(void *_p, unsigned long _v) {((XEvent *)_p)->xmapping.window = (unsigned long)_v;} int get_XEvent_xmapping_request(void *_p) {return (int)((XEvent *)_p)->xmapping.request;} void set_XEvent_xmapping_request(void *_p, int _v) {((XEvent *)_p)->xmapping.request = (int)_v;} int get_XEvent_xmapping_first_keycode(void *_p) {return (int)((XEvent *)_p)->xmapping.first_keycode;} void set_XEvent_xmapping_first_keycode(void *_p, int _v) {((XEvent *)_p)->xmapping.first_keycode = (int)_v;} int get_XEvent_xmapping_count(void *_p) {return (int)((XEvent *)_p)->xmapping.count;} void set_XEvent_xmapping_count(void *_p, int _v) {((XEvent *)_p)->xmapping.count = (int)_v;} int get_XEvent_xerror_type(void *_p) {return (int)((XEvent *)_p)->xerror.type;} void set_XEvent_xerror_type(void *_p, int _v) {((XEvent *)_p)->xerror.type = (int)_v;} void *get_XEvent_xerror_display(void *_p) {return (void *)((XEvent *)_p)->xerror.display;} void set_XEvent_xerror_display(void *_p, void *_v) {((XEvent *)_p)->xerror.display = (Display *)_v;} unsigned long get_XEvent_xerror_resourceid(void *_p) {return (unsigned long)((XEvent *)_p)->xerror.resourceid;} void set_XEvent_xerror_resourceid(void *_p, unsigned long _v) {((XEvent *)_p)->xerror.resourceid = (unsigned long)_v;} unsigned long get_XEvent_xerror_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xerror.serial;} void set_XEvent_xerror_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xerror.serial = (unsigned long)_v;} unsigned char get_XEvent_xerror_error_code(void *_p) {return (unsigned char)((XEvent *)_p)->xerror.error_code;} void set_XEvent_xerror_error_code(void *_p, unsigned char _v) {((XEvent *)_p)->xerror.error_code = (unsigned char)_v;} unsigned char get_XEvent_xerror_request_code(void *_p) {return (unsigned char)((XEvent *)_p)->xerror.request_code;} void set_XEvent_xerror_request_code(void *_p, unsigned char _v) {((XEvent *)_p)->xerror.request_code = (unsigned char)_v;} unsigned char get_XEvent_xerror_minor_code(void *_p) {return (unsigned char)((XEvent *)_p)->xerror.minor_code;} void set_XEvent_xerror_minor_code(void *_p, unsigned char _v) {((XEvent *)_p)->xerror.minor_code = (unsigned char)_v;} int get_XEvent_xkeymap_type(void *_p) {return (int)((XEvent *)_p)->xkeymap.type;} void set_XEvent_xkeymap_type(void *_p, int _v) {((XEvent *)_p)->xkeymap.type = (int)_v;} unsigned long get_XEvent_xkeymap_serial(void *_p) {return (unsigned long)((XEvent *)_p)->xkeymap.serial;} void set_XEvent_xkeymap_serial(void *_p, unsigned long _v) {((XEvent *)_p)->xkeymap.serial = (unsigned long)_v;} int get_XEvent_xkeymap_send_event(void *_p) {return (int)((XEvent *)_p)->xkeymap.send_event;} void set_XEvent_xkeymap_send_event(void *_p, int _v) {((XEvent *)_p)->xkeymap.send_event = (int)_v;} void *get_XEvent_xkeymap_display(void *_p) {return (void *)((XEvent *)_p)->xkeymap.display;} void set_XEvent_xkeymap_display(void *_p, void *_v) {((XEvent *)_p)->xkeymap.display = (Display *)_v;} unsigned long get_XEvent_xkeymap_window(void *_p) {return (unsigned long)((XEvent *)_p)->xkeymap.window;} void set_XEvent_xkeymap_window(void *_p, unsigned long _v) {((XEvent *)_p)->xkeymap.window = (unsigned long)_v;} void *get_XEvent_xkeymap_key_vector(void *_p) {return (void *)(((XEvent *)_p)->xkeymap.key_vector);} void *get_XEvent_pad(void *_p) {return (void *)(((XEvent *)_p)->pad);} void *alloc_XEDataObject(void) {XEDataObject *_p = (XEDataObject *)malloc(sizeof(XEDataObject)); if (_p==NULL) abort(); return (void *)_p;} void free_XEDataObject(void *_p) {if (_p==NULL) abort(); free((XEDataObject *)_p);} void *get_XEDataObject_display(void *_p) {return (void *)((XEDataObject *)_p)->display;} void set_XEDataObject_display(void *_p, void *_v) {((XEDataObject *)_p)->display = (Display *)_v;} void *get_XEDataObject_gc(void *_p) {return (void *)((XEDataObject *)_p)->gc;} void set_XEDataObject_gc(void *_p, void *_v) {((XEDataObject *)_p)->gc = (void *)_v;} void *get_XEDataObject_visual(void *_p) {return (void *)((XEDataObject *)_p)->visual;} void set_XEDataObject_visual(void *_p, void *_v) {((XEDataObject *)_p)->visual = (Visual *)_v;} void *get_XEDataObject_screen(void *_p) {return (void *)((XEDataObject *)_p)->screen;} void set_XEDataObject_screen(void *_p, void *_v) {((XEDataObject *)_p)->screen = (Screen *)_v;} void *get_XEDataObject_pixmap_format(void *_p) {return (void *)((XEDataObject *)_p)->pixmap_format;} void set_XEDataObject_pixmap_format(void *_p, void *_v) {((XEDataObject *)_p)->pixmap_format = (ScreenFormat *)_v;} void *get_XEDataObject_font(void *_p) {return (void *)((XEDataObject *)_p)->font;} void set_XEDataObject_font(void *_p, void *_v) {((XEDataObject *)_p)->font = (XFontStruct *)_v;} void *alloc_int(void) {int *_p = (int *)malloc(sizeof(int)); if (_p==NULL) abort(); return (void *)_p;} void free_int(void *_p) {if (_p==NULL) abort(); free((int *)_p);} int get_int(void *_p) {return *((int *)_p);} void set_int(void *_p, int _v) {*((int *)_p) = _v;} stalin-0.11/include/stalin-architecture-name0000700017435200151030000000110507476314421017635 0ustar qobiqobi#!/bin/sh case `uname -m`/`uname -s` in i[3456]86/*) echo "IA32";; sparc/Linux) echo "SPARC";; sparc64/Linux) echo "SPARC64";; sun4*/*) echo "SPARC";; IP*/IRIX*) echo "MIPS";; alpha/*) echo "Alpha";; arm*/*) echo "ARM";; m68k/Linux) echo "M68K";; "Power Macintosh/Darwin") echo "PowerPC";; s390/Linux) echo "S390";; 000661704C00/AIX) echo "PowerPC64";; 000661714C00/AIX) echo "PowerPC64";; 000661724C00/AIX) echo "PowerPC64";; 000661734C00/AIX) echo "PowerPC64";; *) echo "unknown";; esac stalin-0.11/include/stalin.architectures0000600017435200151030000002640107500673340017104 0ustar qobiqobi;;; There are the following equivalence classes of architectures: ;;; IA32, ARM, M68K, PowerPC ;;; IA32-align-double, SPARC64, S390 ;;; SPARC ;;; SPARCv9, Alpha ;;; MIPS ;;; PowerPC64 (("IA32" ;; OS: Linux, probably others ;; compiler: gcc, probably others ;; compiler options: default "char" ;*char* "int" ;*fixnum* "float" ;*flonum* when float "double" ;*flonum* when double "unsigned" ;*length* "unsigned" ;*tag* "unsigned" ;*squished* "int" ;*signed-squished* "FILE" ;*file* "jmp_buf" ;*jmpbuf* 0 ;*char-alignment* 2 ;*fixnum-alignment* 2 ;*flonum-alignment* when float 2 ;*flonum-alignment* when double 2 ;*pointer-alignment* 2 ;*length-alignment* 2 ;*tag-alignment* 2 ;*squished-alignment* 2 ;*file-alignment* 2 ;*jmpbuf-alignment* 1 ;*char-size* 4 ;*fixnum-size* 4 ;*flonum-size* when float 8 ;*flonum-size* when double 4 ;*pointer-size* 4 ;*length-size* 4 ;*tag-size* 4 ;*squished-size* #f) ;*include-malloc-for-alloca?* ("IA32-align-double" ;; OS: Linux, probably others ;; compiler: gcc ;; compiler options: -malign-double "char" ;*char* "int" ;*fixnum* "float" ;*flonum* when float "double" ;*flonum* when double "unsigned" ;*length* "unsigned" ;*tag* "unsigned" ;*squished* "int" ;*signed-squished* "FILE" ;*file* "jmp_buf" ;*jmpbuf* 0 ;*char-alignment* 2 ;*fixnum-alignment* 2 ;*flonum-alignment* when float 3 ;*flonum-alignment* when double 2 ;*pointer-alignment* 2 ;*length-alignment* 2 ;*tag-alignment* 2 ;*squished-alignment* 3 ;*file-alignment* 2 ;*jmpbuf-alignment* 1 ;*char-size* 4 ;*fixnum-size* 4 ;*flonum-size* when float 8 ;*flonum-size* when double 4 ;*pointer-size* 4 ;*length-size* 4 ;*tag-size* 4 ;*squished-size* #f) ;*include-malloc-for-alloca?* ("SPARC" ;; OS: Linux, Solaris, probably others ;; compiler: gcc, Sun Solaris C compiler, probably others ;; compiler options: default ;; needs work: need architectures for gcc with combinations of ;; -munaligned-doubles and -mfaster-structs "char" ;*char* "int" ;*fixnum* "float" ;*flonum* when float "double" ;*flonum* when double "unsigned" ;*length* "unsigned" ;*tag* "unsigned" ;*squished* "int" ;*signed-squished* "FILE" ;*file* "jmp_buf" ;*jmpbuf* 0 ;*char-alignment* 2 ;*fixnum-alignment* 2 ;*flonum-alignment* when float 3 ;*flonum-alignment* when double 2 ;*pointer-alignment* 2 ;*length-alignment* 2 ;*tag-alignment* 2 ;*squished-alignment* 2 ;*file-alignment* 2 ;*jmpbuf-alignment* 1 ;*char-size* 4 ;*fixnum-size* 4 ;*flonum-size* when float 8 ;*flonum-size* when double 4 ;*pointer-size* 4 ;*length-size* 4 ;*tag-size* 4 ;*squished-size* #f) ;*include-malloc-for-alloca?* ("SPARCv9" ;; OS: Solaris, probably others ;; compiler: Sun Solaris C compiler, probably others ;; compiler options: -xarch=v9 "char" ;*char* "int" ;*fixnum* "float" ;*flonum* when float "double" ;*flonum* when double "unsigned" ;*length* "unsigned" ;*tag* "unsigned long" ;*squished* "long" ;*signed-squished* "FILE" ;*file* "jmp_buf" ;*jmpbuf* 0 ;*char-alignment* 2 ;*fixnum-alignment* 2 ;*flonum-alignment* when float 3 ;*flonum-alignment* when double 3 ;*pointer-alignment* 2 ;*length-alignment* 2 ;*tag-alignment* 3 ;*squished-alignment* 3 ;*file-alignment* 3 ;*jmpbuf-alignment* 1 ;*char-size* 4 ;*fixnum-size* 4 ;*flonum-size* when float 8 ;*flonum-size* when double 8 ;*pointer-size* 4 ;*length-size* 4 ;*tag-size* 8 ;*squished-size* #f) ;*include-malloc-for-alloca?* ("SPARC64" ;; OS: unknown ;; compiler: unknown ;; compiler options: unknown "char" ;*char* "int" ;*fixnum* "float" ;*flonum* when float "double" ;*flonum* when double "unsigned" ;*length* "unsigned" ;*tag* "unsigned" ;*squished* "int" ;*signed-squished* "FILE" ;*file* "jmp_buf" ;*jmpbuf* 0 ;*char-alignment* 2 ;*fixnum-alignment* 2 ;*flonum-alignment* when float 3 ;*flonum-alignment* when double 2 ;*pointer-alignment* 2 ;*length-alignment* 2 ;*tag-alignment* 2 ;*squished-alignment* 3 ;*file-alignment* 2 ;*jmpbuf-alignment* 1 ;*char-size* 4 ;*fixnum-size* 4 ;*flonum-size* when float 8 ;*flonum-size* when double 4 ;*pointer-size* 4 ;*length-size* 4 ;*tag-size* 4 ;*squished-size* #f) ;*include-malloc-for-alloca?* ;; needs work: to check this ("MIPS" ;; OS: IRIX ;; compiler: gcc, SGI C compiler ;; compiler options: default "char" ;*char* "int" ;*fixnum* "float" ;*flonum* when float "double" ;*flonum* when double "unsigned" ;*length* "unsigned" ;*tag* "unsigned" ;*squished* "int" ;*signed-squished* "FILE" ;*file* "jmp_buf" ;*jmpbuf* 0 ;*char-alignment* 2 ;*fixnum-alignment* 2 ;*flonum-alignment* when float ;; needs work: not sure if this should be 2 or 3 2 ;*flonum-alignment* when double 2 ;*pointer-alignment* 2 ;*length-alignment* 2 ;*tag-alignment* 2 ;*squished-alignment* 2 ;*file-alignment* 3 ;*jmpbuf-alignment* 1 ;*char-size* 4 ;*fixnum-size* 4 ;*flonum-size* when float 8 ;*flonum-size* when double 4 ;*pointer-size* 4 ;*length-size* 4 ;*tag-size* 4 ;*squished-size* #f) ;*include-malloc-for-alloca?* ("Alpha" ;; OS: Linux, OSF1 ;; compiler: gcc, DEC C Compiler ;; compiler options: default "char" ;*char* "int" ;*fixnum* "float" ;*flonum* when float "double" ;*flonum* when double "unsigned" ;*length* "unsigned" ;*tag* "unsigned long" ;*squished* "long" ;*signed-squished* "FILE" ;*file* "jmp_buf" ;*jmpbuf* 0 ;*char-alignment* 2 ;*fixnum-alignment* 2 ;*flonum-alignment* when float 3 ;*flonum-alignment* when double 3 ;*pointer-alignment* 2 ;*length-alignment* 2 ;*tag-alignment* 3 ;*squished-alignment* 3 ;*file-alignment* 3 ;*jmpbuf-alignment* 1 ;*char-size* 4 ;*fixnum-size* 4 ;*flonum-size* when float 8 ;*flonum-size* when double 8 ;*pointer-size* 4 ;*length-size* 4 ;*tag-size* 8 ;*squished-size* #f) ;*include-malloc-for-alloca?* ;; needs work: to check this ("ARM" ;; OS: Linux ;; compiler: gcc ;; compiler options: unknown "char" ;*char* "int" ;*fixnum* "float" ;*flonum* when float "double" ;*flonum* when double "unsigned" ;*length* "unsigned" ;*tag* "unsigned" ;*squished* "int" ;*signed-squished* "FILE" ;*file* "jmp_buf" ;*jmpbuf* 0 ;*char-alignment* 2 ;*fixnum-alignment* 2 ;*flonum-alignment* when float 2 ;*flonum-alignment* when double 2 ;*pointer-alignment* 2 ;*length-alignment* 2 ;*tag-alignment* 2 ;*squished-alignment* 2 ;*file-alignment* 2 ;*jmpbuf-alignment* 1 ;*char-size* 4 ;*fixnum-size* 4 ;*flonum-size* when float 8 ;*flonum-size* when double 4 ;*pointer-size* 4 ;*length-size* 4 ;*tag-size* 4 ;*squished-size* #f) ;*include-malloc-for-alloca?* ;; needs work: to check this ("M68K" ;; OS: Linux ;; compiler: gcc ;; compiler options: unknown ;; needs work: need architecture for -malign-int "char" ;*char* "int" ;*fixnum* "float" ;*flonum* when float "double" ;*flonum* when double "unsigned" ;*length* "unsigned" ;*tag* "unsigned" ;*squished* "int" ;*signed-squished* "FILE" ;*file* "jmp_buf" ;*jmpbuf* 0 ;*char-alignment* 2 ;*fixnum-alignment* 2 ;*flonum-alignment* when float 2 ;*flonum-alignment* when double 2 ;*pointer-alignment* 2 ;*length-alignment* 2 ;*tag-alignment* 2 ;*squished-alignment* 2 ;*file-alignment* 2 ;*jmpbuf-alignment* 1 ;*char-size* 4 ;*fixnum-size* 4 ;*flonum-size* when float 8 ;*flonum-size* when double 4 ;*pointer-size* 4 ;*length-size* 4 ;*tag-size* 4 ;*squished-size* #f) ;*include-malloc-for-alloca?* ("PowerPC" ;; OS: Darwin ;; compiler: unknown ;; compiler options: unknown ;; needs work: need architectures for gcc with combinations of ;; -mbit-align, -mstrict-align, and -mno-eabi "char" ;*char* "int" ;*fixnum* "float" ;*flonum* when float "double" ;*flonum* when double "unsigned" ;*length* "unsigned" ;*tag* "unsigned" ;*squished* "int" ;*signed-squished* "FILE" ;*file* "jmp_buf" ;*jmpbuf* 0 ;*char-alignment* 2 ;*fixnum-alignment* 2 ;*flonum-alignment* when float 2 ;*flonum-alignment* when double 2 ;*pointer-alignment* 2 ;*length-alignment* 2 ;*tag-alignment* 2 ;*squished-alignment* 2 ;*file-alignment* 2 ;*jmpbuf-alignment* 1 ;*char-size* 4 ;*fixnum-size* 4 ;*flonum-size* when float 8 ;*flonum-size* when double 4 ;*pointer-size* 4 ;*length-size* 4 ;*tag-size* 4 ;*squished-size* #f) ;*include-malloc-for-alloca?* ("S390" ;; OS: Linux ;; compiler: unknown ;; compiler options: unknown "char" ;*char* "int" ;*fixnum* "float" ;*flonum* when float "double" ;*flonum* when double "unsigned" ;*length* "unsigned" ;*tag* "unsigned" ;*squished* "int" ;*signed-squished* "FILE" ;*file* "jmp_buf" ;*jmpbuf* 0 ;*char-alignment* 2 ;*fixnum-alignment* 2 ;*flonum-alignment* when float 3 ;*flonum-alignment* when double 2 ;*pointer-alignment* 2 ;*length-alignment* 2 ;*tag-alignment* 2 ;*squished-alignment* 3 ;*file-alignment* 2 ;*jmpbuf-alignment* 1 ;*char-size* 4 ;*fixnum-size* 4 ;*flonum-size* when float 8 ;*flonum-size* when double 4 ;*pointer-size* 4 ;*length-size* 4 ;*tag-size* 4 ;*squished-size* #f) ;*include-malloc-for-alloca?* ("PowerPC64" ;; OS: AIX ;; compiler: gcc, xlc ;; compiler options: -maix64 (under gcc), -q64 (under xlc) "char" ;*char* "int" ;*fixnum* "float" ;*flonum* when float "double" ;*flonum* when double "unsigned" ;*length* "unsigned" ;*tag* "unsigned long" ;*squished* "long" ;*signed-squished* "FILE" ;*file* "jmp_buf" ;*jmpbuf* 0 ;*char-alignment* 2 ;*fixnum-alignment* 2 ;*flonum-alignment* when float 2 ;*flonum-alignment* when double 3 ;*pointer-alignment* 2 ;*length-alignment* 2 ;*tag-alignment* 3 ;*squished-alignment* 3 ;*file-alignment* 3 ;*jmpbuf-alignment* 1 ;*char-size* 4 ;*fixnum-size* 4 ;*flonum-size* when float 8 ;*flonum-size* when double 8 ;*pointer-size* 4 ;*length-size* 4 ;*tag-size* 8 ;*squished-size* #t)) ;*include-malloc-for-alloca?* stalin-0.11/include/xlib.sc0000600017435200151030000000610007606306741014307 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; Stalin 0.10 - A global optimizing compiler for Scheme ;;; Copyright 1993, 1994, and 1995 University of Toronto. All rights reserved. ;;; Copyright 1996 Technion. All rights reserved. ;;; Copyright 1996 and 1997 University of Vermont. All rights reserved. ;;; Copyright 1997, 1998, 1999, 2000, and 2001 NEC Research Institute, Inc. All ;;; rights reserved. ;;; Copyright 2002 and 2003 Purdue University. All rights reserved. ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License ;;; as published by the Free Software Foundation; either version 2 ;;; of the License, or (at your option) any later version. ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;;; written by: ;;; Jeffrey Mark Siskind ;;; NEC Research Institute, Inc. ;;; 4 Independence Way ;;; Princeton NJ 08540-6620 USA ;;; voice: 609/951-2705 ;;; FAX: 609/951-2483 ;;; Qobi@research.nj.nec.com ;;; ftp://ftp.nj.nec.com/pub/qobi ;;; http://www.neci.nj.nec.com/homepages/qobi (include "xlib-original") (define (unsigned-list->unsigneda list) (panic "UNSIGNED-LIST->UNSIGNEDA is not (yet) implemented")) (define ylookupstring ((lambda ()))) (let ((xlookupstring-buffer (make-string 50))) (set! ylookupstring (lambda (event) (let ((result (xlookupstring event xlookupstring-buffer 50 (integer->pointer 0) (integer->pointer 0)))) (substring xlookupstring-buffer 0 result))))) (define (xdestroyimage image) (panic "XDESTROYIMAGE is not (yet) implemented")) (define (xputpixel ximage x y pixel) (panic "XPUTPIXEL is not (yet) implemented")) (define xa_point_size 59) (define allocate-int (foreign-procedure () void* "alloc_int")) (define free-int (foreign-procedure (void*) void "free_int")) (define get-int (foreign-procedure (void*) int "get_int")) (define set-int (foreign-procedure (void* int) void "set_int")) (define (yquerypointer display w) (let ((root-return (allocate-int)) (child-return (allocate-int)) (root-x-return (allocate-int)) (root-y-return (allocate-int)) (win-x-return (allocate-int)) (win-y-return (allocate-int)) (mask-return (allocate-int))) (xquerypointer display w root-return child-return root-x-return root-y-return win-x-return win-y-return mask-return) (let ((x (get-int win-x-return)) (y (get-int win-y-return))) (free-int root-return) (free-int child-return) (free-int root-x-return) (free-int root-y-return) (free-int win-x-return) (free-int win-y-return) (free-int mask-return) (list x y)))) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/source/0000700017435200151030000000000010470375335012676 5ustar qobiqobistalin-0.11/source/stalin.sc0000600017435200151030000003663710464441173014535 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; Stalin 0.11 - A global optimizing compiler for Scheme ;;; Copyright 1993, 1994, and 1995 University of Toronto. All rights reserved. ;;; Copyright 1996 Technion. All rights reserved. ;;; Copyright 1996 and 1997 University of Vermont. All rights reserved. ;;; Copyright 1997, 1998, 1999, 2000, and 2001 NEC Research Institute, Inc. All ;;; rights reserved. ;;; Copyright 2002, 2003, 2004, 2005, and 2006 Purdue University. All rights ;;; reserved. ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License ;;; as published by the Free Software Foundation; either version 2 ;;; of the License, or (at your option) any later version. ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;;; written by: ;;; Jeffrey Mark Siskind ;;; School of Electrical and Computer Engineering ;;; Purdue University ;;; Electrical Engineering Building, Room 330 ;;; 465 Northwestern Avenue ;;; West Lafayette IN 47907-2035 USA ;;; voice: 765/496-3197 ;;; fax: 765/494-6440 ;;; qobi@purdue.edu ;;; http://www.ece.purdue.edu/~qobi ;;; Begin delete for Trotsky (MODULE STALIN (WITH QOBISCHEME XLIB STALIN1 STALIN2 STALIN3A STALIN3B STALIN4A STALIN4B STALIN4C STALIN4D STALIN5A STALIN5B STALIN5C STALIN5D STALIN5E) (MAIN MAIN)) (include "QobiScheme.sch") (include "stalin.sch") ;;; End delete for Trotsky (define-command (main (at-most-one ("version" version?)) (any-number ("I" include-path? (include-path "include-directory" string-argument))) (at-most-one ("s" s?) ("x" x?) ("q" q?) ("t" t?)) (at-most-one ("treat-all-symbols-as-external" treat-all-symbols-as-external?) ("do-not-treat-all-symbols-as-external" do-not-treat-all-symbols-as-external?)) (at-most-one ("index-allocated-string-types-by-expression" index-allocated-string-types-by-expression?) ("do-not-index-allocated-string-types-by-expression" do-not-index-allocated-string-types-by-expression?)) (at-most-one ("index-constant-structure-types-by-slot-types" index-constant-structure-types-by-slot-types?) ("do-not-index-constant-structure-types-by-slot-types" do-not-index-constant-structure-types-by-slot-types?)) (at-most-one ("index-constant-structure-types-by-expression" index-constant-structure-types-by-expression?) ("do-not-index-constant-structure-types-by-expression" do-not-index-constant-structure-types-by-expression?)) (at-most-one ("index-allocated-structure-types-by-slot-types" index-allocated-structure-types-by-slot-types?) ("do-not-index-allocated-structure-types-by-slot-types" do-not-index-allocated-structure-types-by-slot-types?)) (at-most-one ("index-allocated-structure-types-by-expression" index-allocated-structure-types-by-expression?) ("do-not-index-allocated-structure-types-by-expression" do-not-index-allocated-structure-types-by-expression?)) (at-most-one ("index-constant-headed-vector-types-by-element-type" index-constant-headed-vector-types-by-element-type?) ("do-not-index-constant-headed-vector-types-by-element-type" do-not-index-constant-headed-vector-types-by-element-type?)) (at-most-one ("index-constant-headed-vector-types-by-expression" index-constant-headed-vector-types-by-expression?) ("do-not-index-constant-headed-vector-types-by-expression" do-not-index-constant-headed-vector-types-by-expression?)) (at-most-one ("index-allocated-headed-vector-types-by-element-type" index-allocated-headed-vector-types-by-element-type?) ("do-not-index-allocated-headed-vector-types-by-element-type" do-not-index-allocated-headed-vector-types-by-element-type?)) (at-most-one ("index-allocated-headed-vector-types-by-expression" index-allocated-headed-vector-types-by-expression?) ("do-not-index-allocated-headed-vector-types-by-expression" do-not-index-allocated-headed-vector-types-by-expression?)) (at-most-one ("index-constant-nonheaded-vector-types-by-element-type" index-constant-nonheaded-vector-types-by-element-type?) ("do-not-index-constant-nonheaded-vector-types-by-element-type" do-not-index-constant-nonheaded-vector-types-by-element-type?)) (at-most-one ("index-constant-nonheaded-vector-types-by-expression" index-constant-nonheaded-vector-types-by-expression?) ("do-not-index-constant-nonheaded-vector-types-by-expression" do-not-index-constant-nonheaded-vector-types-by-expression?)) (at-most-one ("index-allocated-nonheaded-vector-types-by-element-type" index-allocated-nonheaded-vector-types-by-element-type?) ("do-not-index-allocated-nonheaded-vector-types-by-element-type" do-not-index-allocated-nonheaded-vector-types-by-element-type?)) (at-most-one ("index-allocated-nonheaded-vector-types-by-expression" index-allocated-nonheaded-vector-types-by-expression?) ("do-not-index-allocated-nonheaded-vector-types-by-expression" do-not-index-allocated-nonheaded-vector-types-by-expression?)) (at-most-one ("no-clone-size-limit" no-clone-size-limit?) ("clone-size-limit" clone-size-limit? (clone-size-limit "number-of-expressions" integer-argument 80))) (at-most-one ("split-even-if-no-widening" split-even-if-no-widening?)) (at-most-one ("fully-convert-to-CPS" fully-convert-to-CPS?) ("no-escaping-continuations" no-escaping-continuations?)) (at-most-one ("du" disable-uniqueness?)) (at-most-one ("Ob" disable-bounds-checks?)) (at-most-one ("Om" disable-memory-checks?)) (at-most-one ("On" disable-overflow-checks?)) (at-most-one ("Or" disable-runtime-checks?)) (at-most-one ("Ot" disable-type-checks?)) (at-most-one ("d0" p0?)) (at-most-one ("d1" p1?)) (at-most-one ("d2" p2?)) (at-most-one ("d3" p3?)) (at-most-one ("d4" p4?)) (at-most-one ("d5" p5?)) (at-most-one ("d6" p6?)) (at-most-one ("d7" p7?)) (at-most-one ("closure-conversion-statistics" closure-conversion-statistics?)) (at-most-one ("dc" disable-stack-allocation?)) (at-most-one ("dC" disable-heap-allocation?)) (at-most-one ("dH" disable-region-allocation?)) (at-most-one ("dg" memory-messages?)) (at-most-one ("dh" disable-expandable-regions?)) (at-most-one ("d" d?)) (at-most-one ("architecture" architecture-name? (architecture-name "name" string-argument ""))) (at-most-one ("baseline" baseline?) ("conventional" conventional?) ("lightweight" lightweight?)) (at-most-one ("immediate-flat" immediate-flat?) ("indirect-flat" indirect-flat?) ("immediate-display" immediate-display?) ("indirect-display" indirect-display?) ("linked" linked?)) (at-most-one ("align-strings" align-strings?) ("do-not-align-strings" do-not-align-strings?)) (at-most-one ("de" eq?-forgery?)) (at-most-one ("df" disable-forgery?)) (at-most-one ("dG" globals?)) (at-most-one ("di" type-if?)) (at-most-one ("dI" immediate-structures?)) (at-most-one ("dp" promote-representations?)) (at-most-one ("dP" copy-propagation?)) (at-most-one ("ds" disable-squeezing?)) (at-most-one ("dS" disable-squishing?)) (at-most-one ("Tmk" treadmarks?)) (at-most-one ("no-tail-call-optimization" disable-tail-call-optimization?)) (at-most-one ("db" disable-database?)) (at-most-one ("c" disable-run-cc?)) (at-most-one ("k" keep-c?)) (at-most-one ("cc" cc? (cc "C-compiler" string-argument "gcc"))) (any-number ("copt" copt? (copts "C-compiler-options" string-argument))) (optional (pathname "pathname" string-argument #f))) ;; conventions (set! *program* "stalin") (set! *october?* #f) (when version? (format #t "0.11~%") (exit -1)) (unless pathname (panic "You must specify a pathname")) (initialize-options! (append '(".") include-path '("/usr/local/stalin/include"))) (when s? (set! *Scheme->C-compatibility?* #t)) (when x? (set! *Scheme->C-compatibility?* #t) (set! *Xlib-and-GL?* #t)) (when q? (set! *Scheme->C-compatibility?* #t) (set! *Xlib-and-GL?* #t) (set! *QobiScheme?* #t)) (when t? (set! *Scheme->C-compatibility?* #t) (set! *Xlib-and-GL?* #t) (set! *QobiScheme?* #t) (set! *Trotsky?* #t)) (when treat-all-symbols-as-external? (set! *treat-all-symbols-as-external?* #t)) (when do-not-treat-all-symbols-as-external? (set! *treat-all-symbols-as-external?* #f)) (when index-allocated-string-types-by-expression? (set! *index-allocated-string-types-by-expression?* #t)) (when do-not-index-allocated-string-types-by-expression? (set! *index-allocated-string-types-by-expression?* #f)) (when index-constant-structure-types-by-slot-types? (set! *index-constant-structure-types-by-slot-types?* #t)) (when do-not-index-constant-structure-types-by-slot-types? (set! *index-constant-structure-types-by-slot-types?* #f)) (when index-constant-structure-types-by-expression? (set! *index-constant-structure-types-by-expression?* #t)) (when do-not-index-constant-structure-types-by-expression? (set! *index-constant-structure-types-by-expression?* #f)) (when index-allocated-structure-types-by-slot-types? (set! *index-allocated-structure-types-by-slot-types?* #t)) (when do-not-index-allocated-structure-types-by-slot-types? (set! *index-allocated-structure-types-by-slot-types?* #f)) (when index-allocated-structure-types-by-expression? (set! *index-allocated-structure-types-by-expression?* #t)) (when do-not-index-allocated-structure-types-by-expression? (set! *index-allocated-structure-types-by-expression?* #f)) (when index-constant-headed-vector-types-by-element-type? (set! *index-constant-headed-vector-types-by-element-type?* #t)) (when do-not-index-constant-headed-vector-types-by-element-type? (set! *index-constant-headed-vector-types-by-element-type?* #f)) (when index-constant-headed-vector-types-by-expression? (set! *index-constant-headed-vector-types-by-expression?* #t)) (when do-not-index-constant-headed-vector-types-by-expression? (set! *index-constant-headed-vector-types-by-expression?* #f)) (when index-allocated-headed-vector-types-by-element-type? (set! *index-allocated-headed-vector-types-by-element-type?* #t)) (when do-not-index-allocated-headed-vector-types-by-element-type? (set! *index-allocated-headed-vector-types-by-element-type?* #f)) (when index-allocated-headed-vector-types-by-expression? (set! *index-allocated-headed-vector-types-by-expression?* #t)) (when do-not-index-allocated-headed-vector-types-by-expression? (set! *index-allocated-headed-vector-types-by-expression?* #f)) (when index-constant-nonheaded-vector-types-by-element-type? (set! *index-constant-nonheaded-vector-types-by-element-type?* #t)) (when do-not-index-constant-nonheaded-vector-types-by-element-type? (set! *index-constant-nonheaded-vector-types-by-element-type?* #f)) (when index-constant-nonheaded-vector-types-by-expression? (set! *index-constant-nonheaded-vector-types-by-expression?* #t)) (when do-not-index-constant-nonheaded-vector-types-by-expression? (set! *index-constant-nonheaded-vector-types-by-expression?* #f)) (when index-allocated-nonheaded-vector-types-by-element-type? (set! *index-allocated-nonheaded-vector-types-by-element-type?* #t)) (when do-not-index-allocated-nonheaded-vector-types-by-element-type? (set! *index-allocated-nonheaded-vector-types-by-element-type?* #f)) (when index-allocated-nonheaded-vector-types-by-expression? (set! *index-allocated-nonheaded-vector-types-by-expression?* #t)) (when do-not-index-allocated-nonheaded-vector-types-by-expression? (set! *index-allocated-nonheaded-vector-types-by-expression?* #f)) (cond (no-clone-size-limit? (set! *clone-size-limit* -1)) (clone-size-limit? (when (or (not (integer? clone-size-limit)) (not (exact? clone-size-limit)) (negative? clone-size-limit)) (notify "Invalid clone size limit: ~a" clone-size-limit) (terminate)) (set! *clone-size-limit* clone-size-limit))) (when split-even-if-no-widening? (set! *split-even-if-no-widening?* #t)) (when fully-convert-to-CPS? (set! *fully-convert-to-CPS?* #t)) (when no-escaping-continuations? (set! *no-escaping-continuations?* #t)) (when disable-uniqueness? (set! *uniqueness?* #f)) (when disable-bounds-checks? (set! *bounds-checks?* #f)) (when disable-memory-checks? (set! *memory-checks?* #f)) (when disable-overflow-checks? (set! *overflow-checks?* #f)) (when disable-runtime-checks? (set! *runtime-checks?* #f)) (when disable-type-checks? (set! *type-checks?* #f)) (when p0? (set! *panic?* #f)) (when p1? (set! *p1?* #t)) (when p2? (set! *p2?* #t)) (when p3? (set! *p3?* #t)) (when p4? (set! *p4?* #t)) (when p5? (set! *p5?* #t)) (when p6? (set! *p6?* #t)) (when p7? (set! *p7?* #t)) (when closure-conversion-statistics? (set! *closure-conversion-statistics?* #t)) (when disable-stack-allocation? (set! *stack-allocation?* #f)) (when disable-heap-allocation? (set! *heap-allocation?* #f)) (when disable-region-allocation? (set! *region-allocation?* #f)) (when memory-messages? (set! *memory-messages?* #t)) (when disable-expandable-regions? (set! *expandable-regions?* #f)) (when d? (set! *flonum-representation* 'double)) (when architecture-name? (set! *architecture-name* architecture-name)) (when baseline? (set! *closure-conversion-method* 'baseline)) (when conventional? (set! *closure-conversion-method* 'conventional)) (when lightweight? (set! *closure-conversion-method* 'lightweight)) (when immediate-flat? (set! *closure-representation* 'immediate-flat)) (when indirect-flat? (set! *closure-representation* 'indirect-flat)) (when immediate-display? (set! *closure-representation* 'immediate-display)) (when indirect-display? (set! *closure-representation* 'indirect-display)) (when linked? (set! *closure-representation* 'linked)) (when align-strings? (set! *align-strings?* #t)) (when do-not-align-strings? (set! *align-strings?* #f)) (when eq?-forgery? (set! *eq?-forgery?* #t)) (when disable-forgery? (set! *forgery?* #f)) (when globals? (set! *globals?* #t)) (when type-if? (set! *type-if?* #t)) (when immediate-structures? (set! *immediate-structures?* #t)) (when promote-representations? (set! *promote-representations?* #t)) (when copy-propagation? (set! *copy-propagation?* #t)) (when disable-squeezing? (set! *squeeze?* #f) (set! *squish?* #f)) (when disable-squishing? (set! *squish?* #f)) (when treadmarks? (set! *treadmarks?* #t)) (when disable-tail-call-optimization? (set! *tail-call-optimization?* #f)) (when disable-database? (set! *database?* #f)) (when disable-run-cc? (set! *run-cc?* #f)) (when keep-c? (set! *keep-c?* #t)) (when cc? (set! *cc* cc)) (set! *copts* copts) (stalin pathname (lambda () (unless (can-open-file-for-input? (default-extension pathname "sc")) (notify "Cannot find: ~a" (default-extension pathname "sc")) (terminate)) (let ((ss (read-s-expressions (default-extension pathname "sc")))) (list (scheme-library (symbols-in (scheme-library '() ss)) ss) (lambda (output-port) ;; conventions: OUTPUT-PORT #f)))))) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/source/makefile0000600017435200151030000004430310464434544014405 0ustar qobiqobi# Makefile for STALIN # ------------------- # Site configuration # ------------------ INSTALLDIR = $(QINSTALLDIR) ARCHITECTURE_PATH = $(QARCHITECTURE_PATH) INSTALLLIB = $(INSTALLDIR)/lib INSTALLLIBA = $(INSTALLLIB)/$(ARCHITECTURE_PATH) INSTALLBIN = $(INSTALLDIR)/bin INSTALLBINA = $(INSTALLBIN)/$(ARCHITECTURE_PATH) RELEASE_VERSION = 0.11 RELEASE_FILE = stalin-$(RELEASE_VERSION) TARGETS = stalin all: error$(ERROR_OK) $(TARGETS) # To add a new architecture, add architecture specific lines. # The line prefix should be '#`architecture-path` ', see examples below. port: -rm -rf $(ARCHITECTURE_PATH) mkdir $(ARCHITECTURE_PATH) cd $(ARCHITECTURE_PATH); csh -cf "ln -s ../*.{sc,c,h,s} ." $(MAKE) port-makefile port-makefile: echo "# This file was generated automatically. Do not edit." >\ $(ARCHITECTURE_PATH)/makefile echo "# ----------------------------------------------------" >>\ $(ARCHITECTURE_PATH)/makefile echo ARCHITECTURE_PATH = $(ARCHITECTURE_PATH) >>\ $(ARCHITECTURE_PATH)/makefile echo ERROR_OK = _no_error >> $(ARCHITECTURE_PATH)/makefile grep "^#$(ARCHITECTURE_PATH)" makefile | \ sed "s/#$(ARCHITECTURE_PATH) //" >>\ $(ARCHITECTURE_PATH)/makefile echo include ../makefile >> $(ARCHITECTURE_PATH)/makefile error: @echo "Do 'make port' to create an architecture specific directory." @exit 1 error_no_error: # Architecture specific variables # ------------------------------- #sun4-SunOS-4.1.3 CC = gcc #sun4-SunOS-4.1.3 CFLAGS = -O2 #sun4-SunOS-4.1.3 SCCFLAGS = -O2 #sun4-SunOS-4.1.3 SCCLDFLAGS = #sun4-SunOS-4.1.3 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #sun4-SunOS-4.1.3 stalin{?,??}.o -L/usr/openwin/lib -lX11 -lm #sun4m-SunOS-5.4 CC = gcc #sun4m-SunOS-5.4 CFLAGS = -O2 #sun4m-SunOS-5.4 SCCFLAGS = -O2 #sun4m-SunOS-5.4 SCCLDFLAGS = #sun4m-SunOS-5.4 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #sun4m-SunOS-5.4 stalin{?,??}.o\ #sun4m-SunOS-5.4 -L/usr/openwin/lib -R/usr/openwin/lib -lX11\ #sun4m-SunOS-5.4 -L/usr/ucblib -R/usr/ucblib -lucb -lm #sun4m-SunOS-5.5 CC = gcc #sun4m-SunOS-5.5 CFLAGS = -O2 #sun4m-SunOS-5.5 SCCFLAGS = -O2 #sun4m-SunOS-5.5 SCCLDFLAGS = #sun4m-SunOS-5.5 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #sun4m-SunOS-5.5 stalin{?,??}.o\ #sun4m-SunOS-5.5 -L/usr/openwin/lib -R/usr/openwin/lib -lX11\ #sun4m-SunOS-5.5 -L/usr/ucblib -R/usr/ucblib -lucb -lm #sun4u-SunOS-5.6 CC = gcc #sun4u-SunOS-5.6 CFLAGS = -O2 #sun4u-SunOS-5.6 SCCFLAGS = -O2 #sun4u-SunOS-5.6 SCCLDFLAGS = #sun4u-SunOS-5.6 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #sun4u-SunOS-5.6 stalin{?,??}.o\ #sun4u-SunOS-5.6 -L/usr/openwin/lib -R/usr/openwin/lib -lX11\ #sun4u-SunOS-5.6 -L/usr/ucblib -R/usr/ucblib -lucb -lm #sun4u-SunOS-5.8 CC = gcc #sun4u-SunOS-5.8 CFLAGS = -O2 #sun4u-SunOS-5.8 SCCFLAGS = -O2 #sun4u-SunOS-5.8 SCCLDFLAGS = #sun4u-SunOS-5.8 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #sun4u-SunOS-5.8 stalin{?,??}.o\ #sun4u-SunOS-5.8 -L/usr/openwin/lib -R/usr/openwin/lib -lX11\ #sun4u-SunOS-5.8 -L/usr/ucblib -R/usr/ucblib -lucb -lm #i586-Linux-2.0.0 CC = gcc #i586-Linux-2.0.0 CFLAGS = -O2 -DLINUX #i586-Linux-2.0.0 SCCFLAGS = -O2 #i586-Linux-2.0.0 SCCLDFLAGS = #i586-Linux-2.0.0 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #i586-Linux-2.0.0 stalin{?,??}.o -L/usr/X11/lib -lX11 -lm #i586-Linux-2.0.34 CC = egcs #i586-Linux-2.0.34 CFLAGS = -O2 -DLINUX #i586-Linux-2.0.34 SCCFLAGS = -O2 #i586-Linux-2.0.34 SCCLDFLAGS = #i586-Linux-2.0.34 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #i586-Linux-2.0.34 stalin{?,??}.o -L/usr/X11/lib -lX11 -lm #i586-Linux-2.0.35 CC = egcs #i586-Linux-2.0.35 CFLAGS = -O2 -DLINUX #i586-Linux-2.0.35 SCCFLAGS = -O2 #i586-Linux-2.0.35 SCCLDFLAGS = #i586-Linux-2.0.35 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #i586-Linux-2.0.35 stalin{?,??}.o -L/usr/X11/lib -lX11 -lm #i686-Linux-2.0.18 CC = gcc #i686-Linux-2.0.18 CFLAGS = -O2 -DLINUX #i686-Linux-2.0.18 SCCFLAGS = -O2 #i686-Linux-2.0.18 SCCLDFLAGS = #i686-Linux-2.0.18 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.0.18 stalin{?,??}.o -L/usr/X11/lib -lX11 -lm #i686-Linux-2.0.27 CC = gcc #i686-Linux-2.0.27 CFLAGS = -O2 -DLINUX #i686-Linux-2.0.27 SCCFLAGS = -O2 #i686-Linux-2.0.27 SCCLDFLAGS = #i686-Linux-2.0.27 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.0.27 stalin{?,??}.o -L/usr/X11/lib -lX11 -lm #i686-Linux-2.0.30 CC = gcc #i686-Linux-2.0.30 CFLAGS = -O2 -DLINUX #i686-Linux-2.0.30 SCCFLAGS = -O2 #i686-Linux-2.0.30 SCCLDFLAGS = #i686-Linux-2.0.30 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.0.30 stalin{?,??}.o -L/usr/X11/lib -lX11 -lm #i686-Linux-2.0.32 CC = gcc #i686-Linux-2.0.32 CFLAGS = -O2 -DLINUX #i686-Linux-2.0.32 SCCFLAGS = -O2 #i686-Linux-2.0.32 SCCLDFLAGS = #i686-Linux-2.0.32 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.0.32 stalin{?,??}.o -L/usr/X11/lib -lX11 -lm #i686-Linux-2.0.33 CC = gcc #i686-Linux-2.0.33 CFLAGS = -O2 -DLINUX #i686-Linux-2.0.33 SCCFLAGS = -O2 #i686-Linux-2.0.33 SCCLDFLAGS = #i686-Linux-2.0.33 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.0.33 stalin{?,??}.o -L/usr/X11/lib -lX11 -lm #i686-Linux-2.0.34 CC = egcs #i686-Linux-2.0.34 CFLAGS = -O2 -DLINUX #i686-Linux-2.0.34 SCCFLAGS = -O2 #i686-Linux-2.0.34 SCCLDFLAGS = #i686-Linux-2.0.34 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.0.34 stalin{?,??}.o -L/usr/X11/lib -lX11 -lm #i686-Linux-2.0.35 CC = egcs #i686-Linux-2.0.35 CFLAGS = -O2 -DLINUX #i686-Linux-2.0.35 SCCFLAGS = -O2 #i686-Linux-2.0.35 SCCLDFLAGS = #i686-Linux-2.0.35 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.0.35 stalin{?,??}.o -L/usr/X11/lib -lX11 -lm #i686-Linux-2.2.1 CC = egcs #i686-Linux-2.2.1 CFLAGS = -O2 -DLINUX #i686-Linux-2.2.1 SCCFLAGS = -O2 #i686-Linux-2.2.1 SCCLDFLAGS = #i686-Linux-2.2.1 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.2.1 stalin{?,??}.o -L/usr/X11/lib -lX11 -lm #i686-Linux-2.2.5 CC = egcs #i686-Linux-2.2.5 CFLAGS = -O2 -DLINUX #i686-Linux-2.2.5 SCCFLAGS = -O2 #i686-Linux-2.2.5 SCCLDFLAGS = #i686-Linux-2.2.5 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.2.5 stalin{?,??}.o -L/usr/X11/lib -lX11 -lm #i686-Linux-2.2.5-15 CC = egcs #i686-Linux-2.2.5-15 CFLAGS = -O2 -DLINUX #i686-Linux-2.2.5-15 SCCFLAGS = -O2 #i686-Linux-2.2.5-15 SCCLDFLAGS = #i686-Linux-2.2.5-15 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.2.5-15 stalin{?,??}.o -L/usr/X11R6/lib -lX11 -lm #i686-Linux-2.2.10 CC = egcs #i686-Linux-2.2.10 CFLAGS = -O2 -DLINUX #i686-Linux-2.2.10 SCCFLAGS = -O2 #i686-Linux-2.2.10 SCCLDFLAGS = #i686-Linux-2.2.10 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.2.10 stalin{?,??}.o -L/usr/X11R6/lib -lX11 -lm #i686-Linux-2.2.12-20 CC = egcs #i686-Linux-2.2.12-20 CFLAGS = -O2 -DLINUX #i686-Linux-2.2.12-20 SCCFLAGS = -O2 #i686-Linux-2.2.12-20 SCCLDFLAGS = #i686-Linux-2.2.12-20 LRL = $(INSTALLLIBA)/QobiScheme.a\ #i686-Linux-2.2.12-20 $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.2.12-20 stalin{?,??}.o -L/usr/X11R6/lib -lX11 -lm #i686-Linux-2.2.12-20smp CC = egcs #i686-Linux-2.2.12-20smp CFLAGS = -O2 -DLINUX #i686-Linux-2.2.12-20smp SCCFLAGS = -O2 #i686-Linux-2.2.12-20smp SCCLDFLAGS = #i686-Linux-2.2.12-20smp LRL = $(INSTALLLIBA)/QobiScheme.a\ #i686-Linux-2.2.12-20smp $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.2.12-20smp stalin{?,??}.o -L/usr/X11R6/lib -lX11 -lm #i686-Linux-2.3.42 CC = egcs #i686-Linux-2.3.42 CFLAGS = -O2 -DLINUX #i686-Linux-2.3.42 SCCFLAGS = -O2 #i686-Linux-2.3.42 SCCLDFLAGS = #i686-Linux-2.3.42 LRL = $(INSTALLLIBA)/QobiScheme.a\ #i686-Linux-2.3.42 $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.3.42 stalin{?,??}.o -L/usr/X11R6/lib -lX11 -lm #i686-Linux-2.4.2-2 CC = gcc #i686-Linux-2.4.2-2 CFLAGS = -O2 -DLINUX #i686-Linux-2.4.2-2 SCCFLAGS = -O2 #i686-Linux-2.4.2-2 SCCLDFLAGS = #i686-Linux-2.4.2-2 LRL = $(INSTALLLIBA)/QobiScheme.a\ #i686-Linux-2.4.2-2 $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.4.2-2 stalin{?,??}.o -L/usr/X11R6/lib -lX11 -lm #i686-Linux-2.4.2-2smp CC = gcc #i686-Linux-2.4.2-2smp CFLAGS = -O2 -DLINUX #i686-Linux-2.4.2-2smp SCCFLAGS = -O2 #i686-Linux-2.4.2-2smp SCCLDFLAGS = #i686-Linux-2.4.2-2smp LRL = $(INSTALLLIBA)/QobiScheme.a\ #i686-Linux-2.4.2-2smp $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.4.2-2smp stalin{?,??}.o -L/usr/X11R6/lib -lX11 -lm #i686-Linux-2.4.7 CC = gcc #i686-Linux-2.4.7 CFLAGS = -O2 -DLINUX #i686-Linux-2.4.7 SCCFLAGS = -O2 #i686-Linux-2.4.7 SCCLDFLAGS = #i686-Linux-2.4.7 LRL = $(INSTALLLIBA)/QobiScheme.a\ #i686-Linux-2.4.7 $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.4.7 stalin{?,??}.o -L/usr/X11R6/lib -lX11 -lm #i686-Linux-2.4.7-10 CC = gcc #i686-Linux-2.4.7-10 CFLAGS = -O2 -DLINUX #i686-Linux-2.4.7-10 SCCFLAGS = -O2 #i686-Linux-2.4.7-10 SCCLDFLAGS = #i686-Linux-2.4.7-10 LRL = $(INSTALLLIBA)/QobiScheme.a\ #i686-Linux-2.4.7-10 $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.4.7-10 stalin{?,??}.o -L/usr/X11R6/lib -lX11 -lm #i686-Linux-2.4.7-10smp CC = gcc #i686-Linux-2.4.7-10smp CFLAGS = -O2 -DLINUX #i686-Linux-2.4.7-10smp SCCFLAGS = -O2 #i686-Linux-2.4.7-10smp SCCLDFLAGS = #i686-Linux-2.4.7-10smp LRL = $(INSTALLLIBA)/QobiScheme.a\ #i686-Linux-2.4.7-10smp $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.4.7-10smp stalin{?,??}.o -L/usr/X11R6/lib -lX11 -lm #i686-Linux-2.4.18-4_72smp CC = gcc #i686-Linux-2.4.18-4_72smp CFLAGS = -O2 -DLINUX #i686-Linux-2.4.18-4_72smp SCCFLAGS = -O2 #i686-Linux-2.4.18-4_72smp SCCLDFLAGS = #i686-Linux-2.4.18-4_72smp LRL = $(INSTALLLIBA)/QobiScheme.a\ #i686-Linux-2.4.18-4_72smp $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.4.18-4_72smp stalin{?,??}.o -L/usr/X11R6/lib -lX11 -lm #i686-Linux-2.4.9-13 CC = gcc #i686-Linux-2.4.9-13 CFLAGS = -O2 -DLINUX #i686-Linux-2.4.9-13 SCCFLAGS = -O2 #i686-Linux-2.4.9-13 SCCLDFLAGS = #i686-Linux-2.4.9-13 LRL = $(INSTALLLIBA)/QobiScheme.a\ #i686-Linux-2.4.9-13 $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.4.9-13 stalin{?,??}.o -L/usr/X11R6/lib -lX11 -lm #i686-Linux-2.4.17-0.13ecn1 CC = gcc #i686-Linux-2.4.17-0.13ecn1 CFLAGS = -O2 -DLINUX #i686-Linux-2.4.17-0.13ecn1 SCCFLAGS = -O2 #i686-Linux-2.4.17-0.13ecn1 SCCLDFLAGS = #i686-Linux-2.4.17-0.13ecn1 LRL = $(INSTALLLIBA)/QobiScheme.a\ #i686-Linux-2.4.17-0.13ecn1 $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.4.17-0.13ecn1 stalin{?,??}.o -L/usr/X11R6/lib -lX11 -lm #i686-Linux-2.4.18-4_72smp CC = gcc #i686-Linux-2.4.18-4_72smp CFLAGS = -O2 -DLINUX #i686-Linux-2.4.18-4_72smp SCCFLAGS = #i686-Linux-2.4.18-4_72smp SCCLDFLAGS = #i686-Linux-2.4.18-4_72smp LRL = $(INSTALLLIBA)/QobiScheme.a\ #i686-Linux-2.4.18-4_72smp $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.4.18-4_72smp stalin{?,??}.o -L/usr/X11R6/lib -lX11 -lm #i686-Linux-2.4.18-19.7.x CC = gcc #i686-Linux-2.4.18-19.7.x CFLAGS = -O2 -DLINUX #i686-Linux-2.4.18-19.7.x SCCFLAGS = -O2 #i686-Linux-2.4.18-19.7.x SCCLDFLAGS = #i686-Linux-2.4.18-19.7.x LRL = $(INSTALLLIBA)/QobiScheme.a\ #i686-Linux-2.4.18-19.7.x $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.4.18-19.7.x stalin{?,??}.o -L/usr/X11R6/lib -lX11 -lm #i686-Linux-2.4.18-24.7.x CC = gcc #i686-Linux-2.4.18-24.7.x CFLAGS = -O2 -DLINUX #i686-Linux-2.4.18-24.7.x SCCFLAGS = -O2 #i686-Linux-2.4.18-24.7.x SCCLDFLAGS = #i686-Linux-2.4.18-24.7.x LRL = $(INSTALLLIBA)/QobiScheme.a\ #i686-Linux-2.4.18-24.7.x $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.4.18-24.7.x stalin{?,??}.o -L/usr/X11R6/lib -lX11 -lm #i686-Linux-2.6.8.1 CC = gcc #i686-Linux-2.6.8.1 CFLAGS = -O2 -DLINUX #i686-Linux-2.6.8.1 SCCFLAGS = #i686-Linux-2.6.8.1 SCCLDFLAGS = #i686-Linux-2.6.8.1 LRL = $(INSTALLLIBA)/QobiScheme.a\ #i686-Linux-2.6.8.1 $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.6.8.1 stalin{?,??}.o -L/usr/X11R6/lib -lX11 -lm #i686-Linux-2.6.15-1-k7-smp CC = gcc #i686-Linux-2.6.15-1-k7-smp CFLAGS = -O2 -DLINUX #i686-Linux-2.6.15-1-k7-smp SCCFLAGS = #i686-Linux-2.6.15-1-k7-smp SCCLDFLAGS = #i686-Linux-2.6.15-1-k7-smp LRL = $(INSTALLLIBA)/QobiScheme.a\ #i686-Linux-2.6.15-1-k7-smp $(INSTALLLIBA)/scxl.a\ #i686-Linux-2.6.15-1-k7-smp stalin{?,??}.o -L/usr/X11R6/lib -lX11 -lm #alpha-OSF1-V3.2 CC = cc #alpha-OSF1-V3.2 CFLAGS = -O4 -migrate -ieee_with_no_inexact #alpha-OSF1-V3.2 SCCFLAGS = -migrate -ieee_with_no_inexact #alpha-OSF1-V3.2 SCCLDFLAGS = -migrate #alpha-OSF1-V3.2 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #alpha-OSF1-V3.2 stalin{?,??}.o -lX11 -lm #alpha-OSF1-V4.0 CC = cc #alpha-OSF1-V4.0 CFLAGS = -O4 -migrate -ieee_with_no_inexact #alpha-OSF1-V4.0 SCCFLAGS = -migrate -ieee_with_no_inexact #alpha-OSF1-V4.0 SCCLDFLAGS = -migrate #alpha-OSF1-V4.0 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #alpha-OSF1-V4.0 stalin{?,??}.o -lX11 -lm #alpha-Linux-2.0.35 CC = egcs #alpha-Linux-2.0.35 CFLAGS = -O2 -DLINUX #alpha-Linux-2.0.35 SCCFLAGS = -O2 #alpha-Linux-2.0.35 SCCLDFLAGS = #alpha-Linux-2.0.35 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #alpha-Linux-2.0.35 stalin{?,??}.o -L/usr/X11/lib -lX11 -lm #IP7-IRIX-4.0.5 CC = gcc #IP7-IRIX-4.0.5 CFLAGS = -O2 #IP7-IRIX-4.0.5 SCCFLAGS = -O2 #IP7-IRIX-4.0.5 SCCLDFLAGS = #IP7-IRIX-4.0.5 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #IP7-IRIX-4.0.5 stalin{?,??}.o -lX11 -lm #IP12-IRIX-4.0.5 CC = gcc #IP12-IRIX-4.0.5 CFLAGS = -O2 #IP12-IRIX-4.0.5 SCCFLAGS = -O2 #IP12-IRIX-4.0.5 SCCLDFLAGS = #IP12-IRIX-4.0.5 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #IP12-IRIX-4.0.5 stalin{?,??}.o -lX11 -lm #IP22-IRIX-5.3 CC = cc #IP22-IRIX-5.3 CFLAGS = -O2 -non_shared #IP22-IRIX-5.3 SCCFLAGS = -O2 -non_shared #IP22-IRIX-5.3 SCCLDFLAGS = -non_shared #IP22-IRIX-5.3 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #IP22-IRIX-5.3 $(INSTALLLIBA)/libX11.a stalin{?,??}.o -lm #IP25-IRIX64-6.2 CC = cc #IP25-IRIX64-6.2 CFLAGS = -O2 -non_shared #IP25-IRIX64-6.2 SCCFLAGS = -O2 -non_shared #IP25-IRIX64-6.2 SCCLDFLAGS = -non_shared #IP25-IRIX64-6.2 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #IP25-IRIX64-6.2 $(INSTALLLIBA)/libX11.a stalin{?,??}.o -lm #IP28-IRIX64-6.2 CC = cc #IP28-IRIX64-6.2 CFLAGS = -O2 -non_shared #IP28-IRIX64-6.2 SCCFLAGS = -O2 -non_shared #IP28-IRIX64-6.2 SCCLDFLAGS = -non_shared #IP28-IRIX64-6.2 LRL = $(INSTALLLIBA)/QobiScheme.a $(INSTALLLIBA)/scxl.a\ #IP28-IRIX64-6.2 $(INSTALLLIBA)/libX11.a stalin{?,??}.o -lm arc: -csh -cf "rm -rf ../archive/`archive-date`" csh -cf "mkdir ../archive/`archive-date`" -csh -cf "cp makefile ~/.ob *.{sc,c,h,s} ../archive/`archive-date`/." -csh -cf "cp ../boot/*.{sc,c} ../boot/boot ../archive/`archive-date`/." -csh -cf "cp ../documentation/*.{text,tex} ../archive/`archive-date`/." -csh -cf "cp ../documentation/README ../archive/`archive-date`/." -csh -cf "cp ../documentation/install ../archive/`archive-date`/." clean: -rm -f *.o core a.out real-clean: clean -rm -f $(TARGETS) install: all cp $(TARGETS) $(INSTALLBINA)/. uninstall: cd $(INSTALLBINA); rm -rf $(TARGETS) release: -rm -rf $(RELEASE_FILE) $(RELEASE_FILE).tar* mkdir $(RELEASE_FILE) mkdir $(RELEASE_FILE)/source mkdir $(RELEASE_FILE)/documentation cp makefile *.{sc,c,h,s} $(RELEASE_FILE)/source/. tar cvf $(RELEASE_FILE).tar ./$(RELEASE_FILE) compress $(RELEASE_FILE).tar -rm -rf $(RELEASE_FILE) mv $(RELEASE_FILE).tar.Z ../releases/. publish: release cd ..; publish stalin $(RELEASE_VERSION) # Compilation rules and dependencies # ---------------------------------- STALINLIB = stalin1.o\ stalin2.o\ stalin3a.o\ stalin3b.o\ stalin4a.o\ stalin4b.o\ stalin4c.o\ stalin4d.o\ stalin5a.o\ stalin5b.o\ stalin5c.o\ stalin5d.o\ stalin5e.o STALINLIBSC = stalin1.sc\ stalin2.sc\ stalin3a.sc\ stalin3b.sc\ stalin4a.sc\ stalin4b.sc\ stalin4c.sc\ stalin4d.sc\ stalin5a.sc\ stalin5b.sc\ stalin5c.sc\ stalin5d.sc\ stalin5e.sc stalin1.sch: $(STALINLIBSC) sch stalin1 $(STALINLIBSC) stalin1.o: stalin1.sch stalin1.sc scc -cc $(CC) $(SCCFLAGS) -c stalin1.sc -rm -f stalin1.c stalin2.sch: $(STALINLIBSC) sch stalin2 $(STALINLIBSC) stalin2.o: stalin2.sch stalin2.sc scc -cc $(CC) $(SCCFLAGS) -c stalin2.sc -rm -f stalin2.c stalin3a.sch: $(STALINLIBSC) sch stalin3a $(STALINLIBSC) stalin3a.o: stalin3a.sch stalin3a.sc scc -cc $(CC) $(SCCFLAGS) -c stalin3a.sc -rm -f stalin3a.c stalin3b.sch: $(STALINLIBSC) sch stalin3b $(STALINLIBSC) stalin3b.o: stalin3b.sch stalin3b.sc scc -cc $(CC) $(SCCFLAGS) -c stalin3b.sc -rm -f stalin3b.c stalin4a.sch: $(STALINLIBSC) sch stalin4a $(STALINLIBSC) stalin4a.o: stalin4a.sch stalin4a.sc scc -cc $(CC) $(SCCFLAGS) -c stalin4a.sc -rm -f stalin4a.c stalin4b.sch: $(STALINLIBSC) sch stalin4b $(STALINLIBSC) stalin4b.o: stalin4b.sch stalin4b.sc scc -cc $(CC) $(SCCFLAGS) -c stalin4b.sc -rm -f stalin4b.c stalin4c.sch: $(STALINLIBSC) sch stalin4c $(STALINLIBSC) stalin4c.o: stalin4c.sch stalin4c.sc scc -cc $(CC) $(SCCFLAGS) -c stalin4c.sc -rm -f stalin4c.c stalin4d.sch: $(STALINLIBSC) sch stalin4d $(STALINLIBSC) stalin4d.o: stalin4d.sch stalin4d.sc scc -cc $(CC) $(SCCFLAGS) -c stalin4d.sc -rm -f stalin4d.c stalin5a.sch: $(STALINLIBSC) sch stalin5a $(STALINLIBSC) stalin5a.o: stalin5a.sch stalin5a.sc scc -cc $(CC) $(SCCFLAGS) -c stalin5a.sc -rm -f stalin5a.c stalin5b.sch: $(STALINLIBSC) sch stalin5b $(STALINLIBSC) stalin5b.o: stalin5b.sch stalin5b.sc scc -cc $(CC) $(SCCFLAGS) -c stalin5b.sc -rm -f stalin5b.c stalin5c.sch: $(STALINLIBSC) sch stalin5c $(STALINLIBSC) stalin5c.o: stalin5c.sch stalin5c.sc scc -cc $(CC) $(SCCFLAGS) -c stalin5c.sc -rm -f stalin5c.c stalin5d.sch: $(STALINLIBSC) sch stalin5d $(STALINLIBSC) stalin5d.o: stalin5d.sch stalin5d.sc scc -cc $(CC) $(SCCFLAGS) -c stalin5d.sc -rm -f stalin5d.c stalin5e.sch: $(STALINLIBSC) sch stalin5e $(STALINLIBSC) stalin5e.o: stalin5e.sch stalin5e.sc scc -cc $(CC) $(SCCFLAGS) -c stalin5e.sc -rm -f stalin5e.c stalin.sch: stalin.sc $(STALINLIBSC) sch -main stalin $(STALINLIBSC) stalin.o: stalin.sch stalin.sc scc -cc $(CC) $(SCCFLAGS) -c stalin.sc -rm -f stalin.c stalin: stalin.o $(STALINLIB) scc -cc $(CC) $(SCCLDFLAGS) -o stalin stalin.o $(LRL) stalin-0.11/source/stalin1.sc0000600017435200151030000072155510464435440014616 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; Stalin 0.11 - A global optimizing compiler for Scheme ;;; Copyright 1993, 1994, and 1995 University of Toronto. All rights reserved. ;;; Copyright 1996 Technion. All rights reserved. ;;; Copyright 1996 and 1997 University of Vermont. All rights reserved. ;;; Copyright 1997, 1998, 1999, 2000, and 2001 NEC Research Institute, Inc. All ;;; rights reserved. ;;; Copyright 2002, 2003, 2004, 2005, and 2006 Purdue University. All rights ;;; reserved. ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License ;;; as published by the Free Software Foundation; either version 2 ;;; of the License, or (at your option) any later version. ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;;; written by: ;;; Jeffrey Mark Siskind ;;; School of Electrical and Computer Engineering ;;; Purdue University ;;; Electrical Engineering Building, Room 330 ;;; 465 Northwestern Avenue ;;; West Lafayette IN 47907-2035 USA ;;; voice: 765/496-3197 ;;; fax: 765/494-6440 ;;; qobi@purdue.edu ;;; http://www.ece.purdue.edu/~qobi ;;; Begin delete for Trotsky (module stalin1) (include "QobiScheme.sch") (include "stalin1.sch") (define (no-cursor) #f) (define (no-version) #f) ;;; End delete for Trotsky ;;; Structure definitions (define-structure s-expression ;; The slots EXPANSION and MACROEXPAND-BODY are just for efficiency. version ;version cursor ;cursor pathname ;string #f line-position ;integer character-position ;integer character-position-within-line ;integer comments ;strings expansion ;s #f macroexpand-body ;s #f datum) ;q (define-structure program-point before? ;#t #f expression) ;e (define-structure expression kind ;symbol version ;version cursor ;cursor pathname ;string #f line-position ;integer character-position ;integer character-position-within-line ;integer index ;i link ;x #t #f environment ;e #f type-set ;w parent ;x #f constant ;q lambda-environment ;e parameters ;(union null g (pair g ^2)) body ;x #f variable ;g source ;x antecedent ;x consequent ;x alternate ;x callee ;x arguments ;xs original-expression ;x #f result ;r type-allocation-alist ;(list* u-(e|'stack|'heap)) continuation-type ;continuation-type #f string-type ;string-type #f structure-types ;structure-types headed-vector-types ;headed-vector-types nonheaded-vector-types ;nonheaded-vector-types booleans) (define-structure result kind ;symbol environment ;e type-set ;w c ;c l1 ;c l2 ;c l0) ;c (define-structure internal-symbol-type name ;symbol index ;i use-count ;integer types-and-type-sets-that-directly-point-to ;u/ws booleans) (define-structure external-symbol-type displaced-string-type ;string-type link ;external-symbol-type index ;i use-count ;integer types-and-type-sets-that-directly-point-to ;u/ws booleans) (define-structure primitive-procedure-type name ;symbol arguments ;(list* object) index ;i use-count ;integer types-and-type-sets-that-directly-point-to ;u/ws booleans) (define-structure native-procedure-type call-site-environment-alist ;(list* (union y #f)-e) narrow-prototype ;e #f index ;i use-count ;integer types-and-type-sets-that-directly-point-to ;u/ws booleans) (define-structure foreign-procedure-type name ;string ;; The next entry is somewhat misnamed because it is not a list of variables. parameters ;fs ;; The next entry is somewhat misnamed because it is not a result. result ;f include ;string #f index ;i use-count ;integer types-and-type-sets-that-directly-point-to ;u/ws booleans) (define-structure continuation-type allocating-expression ;x #f index ;i use-count ;integer call-sites ;ys types-and-type-sets-that-directly-point-to ;u/ws booleans) (define-structure string-type allocating-expressions ;(list+ (union x #f)) link ;string-type index ;i use-count ;integer types-and-type-sets-that-directly-point-to ;u/ws external-symbol-type ;external-symbol-type #f booleans) (define-structure structure-type name ;symbol slots ;ws allocating-expressions ;xs link ;structure-type index ;i use-count ;integer types-and-type-sets-that-directly-point-to ;u/ws structure-ref-accessed? ;(list* (union #t #f)) booleans) (define-structure headed-vector-type element ;w allocating-expressions ;xs link ;headed-vector-type index ;i use-count ;integer types-and-type-sets-that-directly-point-to ;u/ws displaced-vector-type ;displaced-vector-type #f booleans) (define-structure nonheaded-vector-type element ;w allocating-expressions ;(list+ (union x #f)) link ;nonheaded-vector-type index ;i use-count ;integer types-and-type-sets-that-directly-point-to ;u/ws displaced-vector-type ;displaced-vector-type #f booleans) (define-structure displaced-vector-type displaced-vector-type ;vector-type link ;displaced-vector-type index ;i use-count ;integer types-and-type-sets-that-directly-point-to ;u/ws booleans) (define-structure red-black-tree-node type key left right red?) (define-structure type-set location ;x g u #f red-black-tree-node ;#f red-black-tree-node link ;w minimal-alignment ;integer index ;i booleans) (define-structure variable version ;version cursor ;cursor pathname ;string #f line-position ;integer character-position ;integer character-position-within-line ;integer index ;i name ;symbol environment ;e type-set ;w accesses ;xs assignments ;xs references ;xs booleans) (define-structure environment ;; needs work: The following comment is out of date. ;; The slots QUICK-PARENT, PARENT-PARAMETER, PARENT-SLOT, ANCESTORS, ;; DESCENDENTS, and IN-LINED-ENVIRONMENTS, inter alia, are just for ;; efficiency. index ;i expression ;x name ;string split ;#t #f 'never call-sites ;(list* (union y #f)) allocation ;e 'stack 'heap distance-from-root ;integer free-variables ;gs quick-parent ;e #f parent-parameter ;e #f parent-slot ;e #f ancestors ;es descendents ;es properly-in-lined-environments ;es narrow-prototype ;e narrow-clones ;es wide-prototype ;e direct-tail-callers ;es direct-non-tail-callers ;es direct-tail-callees ;es direct-non-tail-callees ;es blocked-environments ;es expressions ;xs continuation-calls ;xs escaping-types ;us non-self-tail-call-sites ;ys booleans) (define-structure call-site expression ;x offsets) ;(list* symbol) ;;; GENSYM ;;; Begin delete for Trotsky (define (gensym string) (string->uninterned-symbol string)) ;;; End delete for Trotsky ;;; Global variables (define *types-frozen?* #f) (define *during-closure-conversion?* #f) (define *again?* #f) (define (unused) 'unused) (define (unspecified) 'unspecified) ;;; S-Expression creation (define (create-s-expression pathname line-position character-position character-position-within-line comments datum) (make-s-expression (no-version) (no-cursor) pathname line-position character-position character-position-within-line comments #f #f datum)) (define (create-anonymous-s-expression datum) (create-s-expression #f (unused) (unused) (unused) '() datum)) (define (create-october-s-expression version cursor datum) (make-s-expression version cursor #f #f #f #f '() #f #f datum)) ;;; Expression creation (define *xi* #f) (define *xs* #f) (define *calls* #f) (define *accesses* #f) (define *assignments* #f) (define *references* #f) (define *x* #f) (define *x1* #f) (define (initialize-expressions!) (set! *xi* 0) (set! *xs* '()) (set! *calls* '()) (set! *accesses* '()) (set! *assignments* '()) (set! *references* '()) (set! *x1* #f)) (define (create-expression kind s/x q) (let ((x (cond ((s-expression? s/x) (make-expression kind (s-expression-version s/x) (s-expression-cursor s/x) (s-expression-pathname s/x) (s-expression-line-position s/x) (s-expression-character-position s/x) (s-expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) q (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0)) ((expression? s/x) (make-expression kind (expression-version s/x) (expression-cursor s/x) (expression-pathname s/x) (expression-line-position s/x) (expression-character-position s/x) (expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) q (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) s/x (unspecified) '() #f #f '() '() '() 0)) (else (make-expression kind (no-version) (no-cursor) #f #f #f #f *xi* #f (unspecified) (unspecified) (unspecified) q (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0))))) (set! *xi* (+ *xi* 1)) (set! *xs* (cons x *xs*)) x)) (define (create-call-expression s/x callee arguments) (let ((x (cond ((s-expression? s/x) (make-expression 'call (s-expression-version s/x) (s-expression-cursor s/x) (s-expression-pathname s/x) (s-expression-line-position s/x) (s-expression-character-position s/x) (s-expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) callee arguments #f (unspecified) '() #f #f '() '() '() 0)) ((expression? s/x) (make-expression 'call (expression-version s/x) (expression-cursor s/x) (expression-pathname s/x) (expression-line-position s/x) (expression-character-position s/x) (expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) callee arguments s/x (unspecified) '() #f #f '() '() '() 0)) (else (make-expression 'call (no-version) (no-cursor) #f #f #f #f *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) callee arguments #f (unspecified) '() #f #f '() '() '() 0))))) (set! *xi* (+ *xi* 1)) (set! *xs* (cons x *xs*)) (set! *calls* (cons x *calls*)) x)) (define (create-converted-call-expression s/x callee arguments) (let ((x (cond ((s-expression? s/x) (make-expression 'converted-call (s-expression-version s/x) (s-expression-cursor s/x) (s-expression-pathname s/x) (s-expression-line-position s/x) (s-expression-character-position s/x) (s-expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) callee arguments #f (unspecified) '() #f #f '() '() '() 0)) ((expression? s/x) (make-expression 'converted-call (expression-version s/x) (expression-cursor s/x) (expression-pathname s/x) (expression-line-position s/x) (expression-character-position s/x) (expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) callee arguments s/x (unspecified) '() #f #f '() '() '() 0)) (else (make-expression 'converted-call (no-version) (no-cursor) #f #f #f #f *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) callee arguments #f (unspecified) '() #f #f '() '() '() 0))))) (set! *xi* (+ *xi* 1)) (set! *xs* (cons x *xs*)) (set! *calls* (cons x *calls*)) x)) (define (create-access-expression s/x variable) (let ((x (cond ((s-expression? s/x) (make-expression 'access (s-expression-version s/x) (s-expression-cursor s/x) (s-expression-pathname s/x) (s-expression-line-position s/x) (s-expression-character-position s/x) (s-expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) variable (unused) (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0)) ((expression? s/x) (make-expression 'access (expression-version s/x) (expression-cursor s/x) (expression-pathname s/x) (expression-line-position s/x) (expression-character-position s/x) (expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) variable (unused) (unused) (unused) (unused) (unused) (unused) s/x (unspecified) '() #f #f '() '() '() 0)) (else (make-expression 'access (no-version) (no-cursor) #f #f #f #f *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) variable (unused) (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0))))) (set! *xi* (+ *xi* 1)) (set! *xs* (cons x *xs*)) (set! *accesses* (cons x *accesses*)) (set! *references* (cons x *references*)) x)) (define (create-lambda-expression s/x lambda-environment parameters expression) (let ((x (cond ((s-expression? s/x) (make-expression 'lambda (s-expression-version s/x) (s-expression-cursor s/x) (s-expression-pathname s/x) (s-expression-line-position s/x) (s-expression-character-position s/x) (s-expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) lambda-environment parameters expression (unused) (unused) (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0)) ((expression? s/x) (make-expression 'lambda (expression-version s/x) (expression-cursor s/x) (expression-pathname s/x) (expression-line-position s/x) (expression-character-position s/x) (expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) lambda-environment parameters expression (unused) (unused) (unused) (unused) (unused) (unused) (unused) s/x (unspecified) '() #f #f '() '() '() 0)) (else (make-expression 'lambda (no-version) (no-cursor) #f #f #f #f *xi* #f (unspecified) (unspecified) (unspecified) (unused) lambda-environment parameters expression (unused) (unused) (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0))))) (set-environment-expression! lambda-environment x) (set! *xi* (+ *xi* 1)) (set! *xs* (cons x *xs*)) x)) (define (create-converted-lambda-expression s/x lambda-environment parameters expression) (let ((x (cond ((s-expression? s/x) (make-expression 'converted-lambda (s-expression-version s/x) (s-expression-cursor s/x) (s-expression-pathname s/x) (s-expression-line-position s/x) (s-expression-character-position s/x) (s-expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) lambda-environment parameters expression (unused) (unused) (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0)) ((expression? s/x) (make-expression 'converted-lambda (expression-version s/x) (expression-cursor s/x) (expression-pathname s/x) (expression-line-position s/x) (expression-character-position s/x) (expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) lambda-environment parameters expression (unused) (unused) (unused) (unused) (unused) (unused) (unused) s/x (unspecified) '() #f #f '() '() '() 0)) (else (make-expression 'converted-lambda (no-version) (no-cursor) #f #f #f #f *xi* #f (unspecified) (unspecified) (unspecified) (unused) lambda-environment parameters expression (unused) (unused) (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0))))) (set-environment-expression! lambda-environment x) (set! *xi* (+ *xi* 1)) (set! *xs* (cons x *xs*)) x)) (define (create-converted-continuation-expression s/x lambda-environment parameters expression) (let ((x (cond ((s-expression? s/x) (make-expression 'converted-continuation (s-expression-version s/x) (s-expression-cursor s/x) (s-expression-pathname s/x) (s-expression-line-position s/x) (s-expression-character-position s/x) (s-expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) lambda-environment parameters expression (unused) (unused) (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0)) ((expression? s/x) (make-expression 'converted-continuation (expression-version s/x) (expression-cursor s/x) (expression-pathname s/x) (expression-line-position s/x) (expression-character-position s/x) (expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) lambda-environment parameters expression (unused) (unused) (unused) (unused) (unused) (unused) (unused) s/x (unspecified) '() #f #f '() '() '() 0)) (else (make-expression 'converted-continuation (no-version) (no-cursor) #f #f #f #f *xi* #f (unspecified) (unspecified) (unspecified) (unused) lambda-environment parameters expression (unused) (unused) (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0))))) (set-environment-expression! lambda-environment x) (set! *xi* (+ *xi* 1)) (set! *xs* (cons x *xs*)) x)) (define (create-set!-expression s/x variable source) (let ((x (cond ((s-expression? s/x) (make-expression 'set! (s-expression-version s/x) (s-expression-cursor s/x) (s-expression-pathname s/x) (s-expression-line-position s/x) (s-expression-character-position s/x) (s-expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) variable source (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0)) ((expression? s/x) (make-expression 'set! (expression-version s/x) (expression-cursor s/x) (expression-pathname s/x) (expression-line-position s/x) (expression-character-position s/x) (expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) variable source (unused) (unused) (unused) (unused) (unused) s/x (unspecified) '() #f #f '() '() '() 0)) (else (make-expression 'set! (no-version) (no-cursor) #f #f #f #f *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) variable source (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0))))) (set! *xi* (+ *xi* 1)) (set! *xs* (cons x *xs*)) (set! *assignments* (cons x *assignments*)) (set! *references* (cons x *references*)) x)) (define (create-if-expression s/x antecedent consequent alternate) (let ((x (cond ((s-expression? s/x) (make-expression 'if (s-expression-version s/x) (s-expression-cursor s/x) (s-expression-pathname s/x) (s-expression-line-position s/x) (s-expression-character-position s/x) (s-expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) (unused) (unused) antecedent consequent alternate (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0)) ((expression? s/x) (make-expression 'if (expression-version s/x) (expression-cursor s/x) (expression-pathname s/x) (expression-line-position s/x) (expression-character-position s/x) (expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) (unused) (unused) antecedent consequent alternate (unused) (unused) s/x (unspecified) '() #f #f '() '() '() 0)) (else (make-expression 'if (no-version) (no-cursor) #f #f #f #f *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) (unused) (unused) antecedent consequent alternate (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0))))) (set! *xi* (+ *xi* 1)) (set! *xs* (cons x *xs*)) x)) ;;; Expression properties (define (expression-reached? x) (not (zero? (bit-and (expression-booleans x) 64)))) (define (set-expression-reached?! x p?) (unless (boolean? p?) (fuck-up)) (set-expression-booleans! x (if p? (bit-or (expression-booleans x) 64) (bit-and (expression-booleans x) (bit-not 64))))) (define (expression-inferred? x) (not (zero? (bit-and (expression-booleans x) 32)))) (define (set-expression-inferred?! x p?) (unless (boolean? p?) (fuck-up)) (set-expression-booleans! x (if p? (bit-or (expression-booleans x) 32) (bit-and (expression-booleans x) (bit-not 32))))) (define (expression-accessed? x) (not (zero? (bit-and (expression-booleans x) 16)))) (define (set-expression-accessed?! x p?) (unless (boolean? p?) (fuck-up)) (set-expression-booleans! x (if p? (bit-or (expression-booleans x) 16) (bit-and (expression-booleans x) (bit-not 16))))) (define (expression-needs-conversion-to-CPS? x) (not (zero? (bit-and (expression-booleans x) 8)))) (define (set-expression-needs-conversion-to-CPS?! x p?) (unless (boolean? p?) (fuck-up)) (set-expression-booleans! x (if p? (bit-or (expression-booleans x) 8) (bit-and (expression-booleans x) (bit-not 8))))) (define (expression-needs-stop-conversion-to-CPS? x) (not (zero? (bit-and (expression-booleans x) 4)))) (define (set-expression-needs-stop-conversion-to-CPS?! x p?) (unless (boolean? p?) (fuck-up)) (set-expression-booleans! x (if p? (bit-or (expression-booleans x) 4) (bit-and (expression-booleans x) (bit-not 4))))) (define (expression-continues? x) (not (zero? (bit-and (expression-booleans x) 2)))) (define (set-expression-continues?! x p?) (unless (boolean? p?) (fuck-up)) (set-expression-booleans! x (if p? (bit-or (expression-booleans x) 2) (bit-and (expression-booleans x) (bit-not 2))))) (define (expression-returns? x) (not (zero? (bit-and (expression-booleans x) 1)))) (define (set-expression-returns?! x p?) (unless (boolean? p?) (fuck-up)) (set-expression-booleans! x (if p? (bit-or (expression-booleans x) 1) (bit-and (expression-booleans x) (bit-not 1))))) (define (reached? x) (if *during-closure-conversion?* (case *closure-conversion-method* ((baseline conventional) #t) ((lightweight) (expression-reached? x)) (else (fuck-up))) (expression-reached? x))) (define (executed? x) (if *during-closure-conversion?* (case *closure-conversion-method* ((baseline conventional) #t) ((lightweight) (case (expression-kind x) ((set!) (expression-returns? (expression-source x))) ((call converted-call) (and (expression-returns? (expression-callee x)) (every expression-returns? (expression-arguments x)))) (else (fuck-up)))) (else (fuck-up))) (case (expression-kind x) ((set!) (expression-returns? (expression-source x))) ((call converted-call) (and (expression-returns? (expression-callee x)) (every expression-returns? (expression-arguments x)))) (else (fuck-up))))) (define (free-reference? x) (and (not (eq? (expression-environment x) (variable-environment (expression-variable x)))) (nontrivial-reference? x))) (define (nontrivial-reference? x) ;; needs work: This is not memoized but should be. (case (expression-kind x) ((access) (and (reached? x) (not (fictitious? (expression-type-set x))))) ((set!) (and (executed? x) (accessed? (expression-variable x)) (not (fictitious? (variable-type-set (expression-variable x)))) (not (hidden? (expression-variable x))) ;; This implies that the source returns. (not (void? (expression-type-set (expression-source x)))))) (else (fuck-up)))) (define (must-be-self-tail-call? x) (and (or (eq? (expression-kind x) 'call) (eq? (expression-kind x) 'converted-call)) (must-be? (lambda (u) (or (not ((compatible-call? x) u)) (and (native-procedure-type? u) (let ((e (callee-environment u (create-call-site x)))) ;; This assumes that the IN-LINED-IN? relation is reflexive. (and (tail-call? (create-call-site x) e) (in-lined-in? x e)))))) (expression-type-set (expression-callee x))))) ;;; Expression functions (define (continuation-argument x) (unless (eq? (expression-kind x) 'converted-call) (fuck-up)) (first (expression-arguments x))) (define (first-argument x) (case (expression-kind x) ((call) (first (expression-arguments x))) ((converted-call) (second (expression-arguments x))) (else (fuck-up)))) (define (second-argument x) (case (expression-kind x) ((call) (second (expression-arguments x))) ((converted-call) (third (expression-arguments x))) (else (fuck-up)))) (define (third-argument x) (case (expression-kind x) ((call) (third (expression-arguments x))) ((converted-call) (fourth (expression-arguments x))) (else (fuck-up)))) ;;; Expression environment relations (define (tail-call? y e) ;; needs work: This is not memoized but should be. ;; needs work: A SET! to a non-accessed, fictitious, or hidden variable can be ;; a tail call if its source is a tail call. ;; note: The argument E is needed to prevent infinite recursion on in-lined ;; self tail calls. ;; APPLY and CALL-WITH-CURRENT-CONTINUATION tail call their first argument if ;; they themselves are tail calls. Implicit continuation calls are always ;; tail calls. FORK does not tail call its first or second argument and MUTEX ;; does not tail call its first argument. (or (continuation-argument-call-site? y) (and (or (explicit-call-site? y) (and (first-argument-call-site? y) ;; needs work: It is conceivable that a first-argument call site ;; be called both by either APPLY or ;; CALL-WITH-CURRENT-CONTINUATION and by either FORK or ;; MUTEX. In this situation, the former could be tail ;; calls while the latter could not be. The current ;; representation of call sites cannot distinguish ;; between argument call sites of different primitive ;; procedures. So we err on the safe side and make such ;; call sites non tail. (not (can-be? (lambda (u) (or ((primitive-procedure-type-named? 'fork) u) ((primitive-procedure-type-named? 'mutex) u))) (expression-type-set (expression-callee (call-site-expression y))))))) (let ((x (call-site-expression y))) (or (and (eq? (expression-kind (expression-parent x)) 'if) (or (eq? x (expression-consequent (expression-parent x))) (eq? x (expression-alternate (expression-parent x)))) (tail-call? (create-call-site (expression-parent x)) e)) (and (or (eq? (expression-kind (expression-parent x)) 'lambda) (eq? (expression-kind (expression-parent x)) 'converted-lambda) (eq? (expression-kind (expression-parent x)) 'converted-continuation)) (or (eq? (expression-environment x) e) (not (unique-call-site? (expression-environment x))) (tail-call? (unique-call-site (expression-environment x)) e)))))))) ;;; Result creation (define (create-accessor-result type-set c) (make-result 'accessor (unused) type-set c (unused) (unused) (unused))) (define (create-discard-result) (make-result 'discard (unused) (unused) (unused) (unused) (unused) (unused))) (define (create-return-result environment type-set) (make-result 'return environment type-set (c:r environment) (unused) (unused) (unused))) (define (create-antecedent-result type-set l1 l2 l0) (make-result 'antecedent (unused) type-set (unused) l1 l2 l0)) ;;; Result properties (define (accessor? r) (eq? (result-kind r) 'accessor)) (define (return? r) (eq? (result-kind r) 'return)) (define (discard? r) (eq? (result-kind r) 'discard)) (define (antecedent? r) (eq? (result-kind r) 'antecedent)) ;;; Type creation (define *ui* #f) (define #f) (define *null-type-used?* #f) (define *null-type-use-count* #f) (define #f) (define *true-type-used?* #f) (define *true-type-use-count* #f) (define #f) (define *false-type-used?* #f) (define *false-type-use-count* #f) (define #f) (define *char-type-used?* #f) (define *char-type-use-count* #f) (define #f) (define *fixnum-type-used?* #f) (define *fixnum-type-use-count* #f) (define #f) (define *flonum-type-used?* #f) (define *flonum-type-use-count* #f) (define #f) (define *rectangular-type-used?* #f) (define *rectangular-type-use-count* #f) (define #f) (define *input-port-type-used?* #f) (define *input-port-type-use-count* #f) (define #f) (define *output-port-type-used?* #f) (define *output-port-type-use-count* #f) (define #f) (define *eof-object-type-used?* #f) (define *eof-object-type-use-count* #f) (define #f) (define *pointer-type-used?* #f) (define *pointer-type-use-count* #f) (define *internal-symbol-types* #f) (define *external-symbol-types* #f) (define *primitive-procedure-types* #f) (define *native-procedure-types* #f) (define *foreign-procedure-types* #f) (define *continuation-types* #f) (define *string-types* #f) (define #f) (define *structure-types* #f) (define *headed-vector-types* #f) (define *nonheaded-vector-types* #f) (define #f) (define *displaced-vector-types* #f) (define (initialize-types!) (set! *ui* 11) (set! *native-procedure-types* '())) (define (create-internal-symbol-type name) (when *types-frozen?* (fuck-up)) (let* ((u (make-internal-symbol-type name *ui* 0 (unspecified) 0))) (set! *ui* (+ *ui* 1)) (set! *internal-symbol-types* (cons u *internal-symbol-types*)) u)) (define ( v) ;; conventions: V (when *types-frozen?* (fuck-up)) (or (find-if (internal-symbol-type-named? v) *internal-symbol-types*) (create-internal-symbol-type v))) (define (create-external-symbol-type displaced-string-type) (when *types-frozen?* (fuck-up)) (let* ((u (make-external-symbol-type displaced-string-type (unspecified) *ui* 0 (unspecified) 0))) (set-external-symbol-type-link! u u) (set! *ui* (+ *ui* 1)) (set! *external-symbol-types* (cons u *external-symbol-types*)) (set-string-type-external-symbol-type! displaced-string-type u) u)) (define ( u) (when *types-frozen?* (fuck-up)) (or (string-type-external-symbol-type u) (create-external-symbol-type u))) (define (create-primitive-procedure-type name arguments) (when *types-frozen?* (fuck-up)) (let* ((u (make-primitive-procedure-type name arguments *ui* 0 (unspecified) 0))) (set! *ui* (+ *ui* 1)) (set! *primitive-procedure-types* (cons u *primitive-procedure-types*)) u)) (define ( v vs) ;; conventions: V (when *types-frozen?* (fuck-up)) (or (find-if (lambda (u) (and ((primitive-procedure-type-named? v) u) (equal? (primitive-procedure-type-arguments u) vs))) *primitive-procedure-types*) (create-primitive-procedure-type v vs))) (define (create-native-procedure-type e) (when *types-frozen?* (fuck-up)) (unless (eq? e (narrow-prototype e)) (fuck-up)) (let* ((u (make-native-procedure-type '() e *ui* 0 (unspecified) 0))) (set-native-procedure-type-atomic?! u #t) (set-native-procedure-type-fictitious?! u #t) (set! *ui* (+ *ui* 1)) (set! *native-procedure-types* (cons u *native-procedure-types*)) u)) (define ( e) (when *types-frozen?* (fuck-up)) (let ((e (narrow-prototype e))) (or (find-if (lambda (u) (eq? e (narrow-prototype u))) *native-procedure-types*) (create-native-procedure-type e)))) (define (create-foreign-procedure-type name parameters result include) (when *types-frozen?* (fuck-up)) (let* ((u (make-foreign-procedure-type name parameters result include *ui* 0 (unspecified) 0))) (set! *ui* (+ *ui* 1)) (set! *foreign-procedure-types* (cons u *foreign-procedure-types*)) u)) (define ( v fs f v0) ;; conventions: V V0 (when *types-frozen?* (fuck-up)) (or (find-if (lambda (u) (string=? (foreign-procedure-type-name u) v)) *foreign-procedure-types*) (create-foreign-procedure-type v fs f v0))) (define (create-continuation-type allocating-expression) (when *types-frozen?* (fuck-up)) (let* ((u (make-continuation-type allocating-expression *ui* 0 (unspecified) (unspecified) 0))) (set-continuation-type-fictitious?! u #t) (set! *ui* (+ *ui* 1)) (set! *continuation-types* (cons u *continuation-types*)) (when allocating-expression (set-expression-continuation-type! allocating-expression u)) u)) (define ( x) ;; This and CREATE-ANONYMOUS-TYPE-SET are the only type and type-set creators ;; that can be called when types are frozen. (or (expression-continuation-type x) (create-continuation-type x))) (define (create-string-type allocating-expression) (when *types-frozen?* (fuck-up)) (let* ((u (make-string-type '() (unspecified) *ui* 0 (unspecified) #f 0))) (set-string-type-link! u u) (set! *ui* (+ *ui* 1)) (set! *string-types* (cons u *string-types*)) (when allocating-expression (set-expression-string-type! allocating-expression u)) u)) (define ( x) (when *types-frozen?* (fuck-up)) (let ((u (or (if x (if *index-allocated-string-types-by-expression?* (expression-string-type x) (and (not (null? *string-types*)) (first *string-types*))) ) (create-string-type x)))) (unless (memq x (string-type-allocating-expressions u)) (set-string-type-allocating-expressions! u (cons x (string-type-allocating-expressions u)))) u)) (define (create-structure-type name j allocating-expression) ;; conventions: J (when *types-frozen?* (fuck-up)) (let* ((u (make-structure-type name (unspecified) '() (unspecified) *ui* 0 (unspecified) (map-n (lambda (i) #f) j) 0))) (set-structure-type-immediate?! u *immediate-structures?*) (set-structure-type-atomic?! u #t) (set-structure-type-slots! u (map-n (lambda (i) (create-type-set u)) j)) (set-structure-type-link! u u) (set! *ui* (+ *ui* 1)) (set! *structure-types* (cons u *structure-types*)) (set-expression-structure-types! allocating-expression (cons u (expression-structure-types allocating-expression))) u)) (define ( v j uss x) ;; conventions: V J (when *types-frozen?* (fuck-up)) (let ((u (or (find-if (lambda (u) (and ((structure-type-named? v) u) (or (not (if (eq? (expression-kind x) 'pair-constant) *index-constant-structure-types-by-slot-types?* *index-allocated-structure-types-by-slot-types?*)) (every (lambda (us w) (every (lambda (u) (member? u w)) us)) uss (structure-type-slots u))))) (if (if (eq? (expression-kind x) 'pair-constant) *index-constant-structure-types-by-expression?* *index-allocated-structure-types-by-expression?*) (expression-structure-types x) *structure-types*)) (create-structure-type v j x)))) (unless (memq x (structure-type-allocating-expressions u)) (set-structure-type-allocating-expressions! u (cons x (structure-type-allocating-expressions u)))) (for-each (lambda (us w) (for-each (lambda (u) (assert-member! u w)) us)) uss (structure-type-slots u)) u)) (define ( us1 us2 x) ( 'pair 2 (list us1 us2) x)) (define ( uss us x) (cond ((null? uss) (fuck-up)) ((null? (rest uss)) ( (first uss) us x)) (else ( (first uss) (list ( (rest uss) us x)) x)))) (define (create-headed-vector-type allocating-expression) (when *types-frozen?* (fuck-up)) (let* ((u (make-headed-vector-type (unspecified) '() (unspecified) *ui* 0 (unspecified) #f 0))) (set-headed-vector-type-atomic?! u #t) (set-headed-vector-type-element! u (create-type-set u)) (set-headed-vector-type-link! u u) (set! *ui* (+ *ui* 1)) (set! *headed-vector-types* (cons u *headed-vector-types*)) (set-expression-headed-vector-types! allocating-expression (cons u (expression-headed-vector-types allocating-expression))) u)) (define ( us x) (when *types-frozen?* (fuck-up)) (let ((u (or (find-if (lambda (u) (or (not (if (eq? (expression-kind x) 'vector-constant) *index-constant-headed-vector-types-by-element-type?* *index-allocated-headed-vector-types-by-element-type?*)) (every (lambda (u1) (member? u1 (headed-vector-type-element u))) us))) (if (if (eq? (expression-kind x) 'vector-constant) *index-constant-headed-vector-types-by-expression?* *index-allocated-headed-vector-types-by-expression?*) (expression-headed-vector-types x) *headed-vector-types*)) (create-headed-vector-type x)))) (unless (memq x (headed-vector-type-allocating-expressions u)) (set-headed-vector-type-allocating-expressions! u (cons x (headed-vector-type-allocating-expressions u)))) (for-each (lambda (u1) (assert-member! u1 (headed-vector-type-element u))) us) u)) (define (create-nonheaded-vector-type allocating-expression) (when *types-frozen?* (fuck-up)) (let* ((u (make-nonheaded-vector-type (unspecified) '() (unspecified) *ui* 0 (unspecified) #f 0))) (set-nonheaded-vector-type-atomic?! u #t) (set-nonheaded-vector-type-element! u (create-type-set u)) (set-nonheaded-vector-type-link! u u) (set! *ui* (+ *ui* 1)) (set! *nonheaded-vector-types* (cons u *nonheaded-vector-types*)) (when allocating-expression (set-expression-nonheaded-vector-types! allocating-expression (cons u (expression-nonheaded-vector-types allocating-expression)))) u)) (define ( us x) (when *types-frozen?* (fuck-up)) (let ((u (or (if x (find-if (lambda (u) (or (not (if (eq? (expression-kind x) 'vector-constant) *index-constant-nonheaded-vector-types-by-element-type?* *index-allocated-nonheaded-vector-types-by-element-type?*)) (every (lambda (u1) (member? u1 (nonheaded-vector-type-element u))) us))) (if (if (eq? (expression-kind x) 'vector-constant) *index-constant-nonheaded-vector-types-by-expression?* *index-allocated-nonheaded-vector-types-by-expression?*) (expression-nonheaded-vector-types x) *nonheaded-vector-types*)) ) (create-nonheaded-vector-type x)))) (unless (memq x (nonheaded-vector-type-allocating-expressions u)) (set-nonheaded-vector-type-allocating-expressions! u (cons x (nonheaded-vector-type-allocating-expressions u)))) (for-each (lambda (u1) (assert-member! u1 (nonheaded-vector-type-element u))) us) u)) (define (create-displaced-vector-type displaced-vector-type) (when *types-frozen?* (fuck-up)) (let* ((u (make-displaced-vector-type displaced-vector-type (unspecified) *ui* 0 (unspecified) 0))) (set-displaced-vector-type-link! u u) (set! *ui* (+ *ui* 1)) (set! *displaced-vector-types* (cons u *displaced-vector-types*)) (cond ((headed-vector-type? displaced-vector-type) (set-headed-vector-type-displaced-vector-type! displaced-vector-type u)) ((nonheaded-vector-type? displaced-vector-type) (set-nonheaded-vector-type-displaced-vector-type! displaced-vector-type u)) (else (fuck-up))) u)) (define ( u) (when *types-frozen?* (fuck-up)) (if (displaced-vector-type? u) ( (displaced-vector-type-displaced-vector-type u)) (or (cond ((headed-vector-type? u) (headed-vector-type-displaced-vector-type u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-displaced-vector-type u)) (else (fuck-up))) (create-displaced-vector-type u)))) ;;; Type properties (define (internal-symbol-type-type-tag-accessed? u) (not (zero? (bit-and (internal-symbol-type-booleans u) 16)))) (define (set-internal-symbol-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-internal-symbol-type-booleans! u (if p? (bit-or (internal-symbol-type-booleans u) 16) (bit-and (internal-symbol-type-booleans u) (bit-not 16))))) (define (internal-symbol-type-eq?-accessed? u) (not (zero? (bit-and (internal-symbol-type-booleans u) 8)))) (define (set-internal-symbol-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-internal-symbol-type-booleans! u (if p? (bit-or (internal-symbol-type-booleans u) 8) (bit-and (internal-symbol-type-booleans u) (bit-not 8))))) (define (internal-symbol-type-symbol->string-accessed? u) (not (zero? (bit-and (internal-symbol-type-booleans u) 4)))) (define (set-internal-symbol-type-symbol->string-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-internal-symbol-type-booleans! u (if p? (bit-or (internal-symbol-type-booleans u) 4) (bit-and (internal-symbol-type-booleans u) (bit-not 4))))) (define (internal-symbol-type-marked? u) (not (zero? (bit-and (internal-symbol-type-booleans u) 2)))) (define (set-internal-symbol-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-internal-symbol-type-booleans! u (if p? (bit-or (internal-symbol-type-booleans u) 2) (bit-and (internal-symbol-type-booleans u) (bit-not 2))))) (define (internal-symbol-type-used? u) (not (zero? (bit-and (internal-symbol-type-booleans u) 1)))) (define (set-internal-symbol-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-internal-symbol-type-booleans! u (if p? (bit-or (internal-symbol-type-booleans u) 1) (bit-and (internal-symbol-type-booleans u) (bit-not 1))))) (define (external-symbol-type-type-tag-accessed? u) (not (zero? (bit-and (external-symbol-type-booleans u) 16)))) (define (set-external-symbol-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-external-symbol-type-booleans! u (if p? (bit-or (external-symbol-type-booleans u) 16) (bit-and (external-symbol-type-booleans u) (bit-not 16))))) (define (external-symbol-type-eq?-accessed? u) (not (zero? (bit-and (external-symbol-type-booleans u) 8)))) (define (set-external-symbol-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-external-symbol-type-booleans! u (if p? (bit-or (external-symbol-type-booleans u) 8) (bit-and (external-symbol-type-booleans u) (bit-not 8))))) (define (external-symbol-type-symbol->string-accessed? u) (not (zero? (bit-and (external-symbol-type-booleans u) 4)))) (define (set-external-symbol-type-symbol->string-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-external-symbol-type-booleans! u (if p? (bit-or (external-symbol-type-booleans u) 4) (bit-and (external-symbol-type-booleans u) (bit-not 4))))) (define (external-symbol-type-marked? u) (not (zero? (bit-and (external-symbol-type-booleans u) 2)))) (define (set-external-symbol-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-external-symbol-type-booleans! u (if p? (bit-or (external-symbol-type-booleans u) 2) (bit-and (external-symbol-type-booleans u) (bit-not 2))))) (define (external-symbol-type-used? u) (not (zero? (bit-and (external-symbol-type-booleans u) 1)))) (define (set-external-symbol-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-external-symbol-type-booleans! u (if p? (bit-or (external-symbol-type-booleans u) 1) (bit-and (external-symbol-type-booleans u) (bit-not 1))))) (define (primitive-procedure-type-type-tag-accessed? u) (not (zero? (bit-and (primitive-procedure-type-booleans u) 8)))) (define (set-primitive-procedure-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-primitive-procedure-type-booleans! u (if p? (bit-or (primitive-procedure-type-booleans u) 8) (bit-and (primitive-procedure-type-booleans u) (bit-not 8))))) (define (primitive-procedure-type-eq?-accessed? u) (not (zero? (bit-and (primitive-procedure-type-booleans u) 4)))) (define (set-primitive-procedure-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-primitive-procedure-type-booleans! u (if p? (bit-or (primitive-procedure-type-booleans u) 4) (bit-and (primitive-procedure-type-booleans u) (bit-not 4))))) (define (primitive-procedure-type-marked? u) (not (zero? (bit-and (primitive-procedure-type-booleans u) 2)))) (define (set-primitive-procedure-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-primitive-procedure-type-booleans! u (if p? (bit-or (primitive-procedure-type-booleans u) 2) (bit-and (primitive-procedure-type-booleans u) (bit-not 2))))) (define (primitive-procedure-type-used? u) (not (zero? (bit-and (primitive-procedure-type-booleans u) 1)))) (define (set-primitive-procedure-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-primitive-procedure-type-booleans! u (if p? (bit-or (primitive-procedure-type-booleans u) 1) (bit-and (primitive-procedure-type-booleans u) (bit-not 1))))) (define (native-procedure-type-alignment? u) (not (zero? (bit-and (native-procedure-type-booleans u) 512)))) (define (set-native-procedure-type-alignment?! u p?) (unless (boolean? p?) (fuck-up)) (set-native-procedure-type-booleans! u (if p? (bit-or (native-procedure-type-booleans u) 512) (bit-and (native-procedure-type-booleans u) (bit-not 512))))) (define (native-procedure-type-alignment&? u) (not (zero? (bit-and (native-procedure-type-booleans u) 256)))) (define (set-native-procedure-type-alignment&?! u p?) (unless (boolean? p?) (fuck-up)) (set-native-procedure-type-booleans! u (if p? (bit-or (native-procedure-type-booleans u) 256) (bit-and (native-procedure-type-booleans u) (bit-not 256))))) (define (native-procedure-type-size? u) (not (zero? (bit-and (native-procedure-type-booleans u) 128)))) (define (set-native-procedure-type-size?! u p?) (unless (boolean? p?) (fuck-up)) (set-native-procedure-type-booleans! u (if p? (bit-or (native-procedure-type-booleans u) 128) (bit-and (native-procedure-type-booleans u) (bit-not 128))))) (define (native-procedure-type-type-tag-accessed? u) (not (zero? (bit-and (native-procedure-type-booleans u) 64)))) (define (set-native-procedure-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-native-procedure-type-booleans! u (if p? (bit-or (native-procedure-type-booleans u) 64) (bit-and (native-procedure-type-booleans u) (bit-not 64))))) (define (native-procedure-type-eq?-accessed? u) (not (zero? (bit-and (native-procedure-type-booleans u) 32)))) (define (set-native-procedure-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-native-procedure-type-booleans! u (if p? (bit-or (native-procedure-type-booleans u) 32) (bit-and (native-procedure-type-booleans u) (bit-not 32))))) (define (native-procedure-type-marked? u) (not (zero? (bit-and (native-procedure-type-booleans u) 16)))) (define (set-native-procedure-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-native-procedure-type-booleans! u (if p? (bit-or (native-procedure-type-booleans u) 16) (bit-and (native-procedure-type-booleans u) (bit-not 16))))) (define (native-procedure-type-used? u) (not (zero? (bit-and (native-procedure-type-booleans u) 8)))) (define (set-native-procedure-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-native-procedure-type-booleans! u (if p? (bit-or (native-procedure-type-booleans u) 8) (bit-and (native-procedure-type-booleans u) (bit-not 8))))) (define (native-procedure-type-necessarily-fictitious? u) (not (zero? (bit-and (native-procedure-type-booleans u) 4)))) (define (set-native-procedure-type-necessarily-fictitious?! u p?) (unless (boolean? p?) (fuck-up)) (set-native-procedure-type-booleans! u (if p? (bit-or (native-procedure-type-booleans u) 4) (bit-and (native-procedure-type-booleans u) (bit-not 4))))) (define (native-procedure-type-fictitious? u) (not (zero? (bit-and (native-procedure-type-booleans u) 2)))) (define (set-native-procedure-type-fictitious?! u p?) (unless (boolean? p?) (fuck-up)) (set-native-procedure-type-booleans! u (if p? (bit-or (native-procedure-type-booleans u) 2) (bit-and (native-procedure-type-booleans u) (bit-not 2))))) (define (native-procedure-type-atomic? u) (not (zero? (bit-and (native-procedure-type-booleans u) 1)))) (define (set-native-procedure-type-atomic?! u p?) (unless (boolean? p?) (fuck-up)) (set-native-procedure-type-booleans! u (if p? (bit-or (native-procedure-type-booleans u) 1) (bit-and (native-procedure-type-booleans u) (bit-not 1))))) (define (foreign-procedure-type-called? u) (not (zero? (bit-and (foreign-procedure-type-booleans u) 16)))) (define (set-foreign-procedure-type-called?! u p?) (unless (boolean? p?) (fuck-up)) (set-foreign-procedure-type-booleans! u (if p? (bit-or (foreign-procedure-type-booleans u) 16) (bit-and (foreign-procedure-type-booleans u) (bit-not 16))))) (define (foreign-procedure-type-type-tag-accessed? u) (not (zero? (bit-and (foreign-procedure-type-booleans u) 8)))) (define (set-foreign-procedure-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-foreign-procedure-type-booleans! u (if p? (bit-or (foreign-procedure-type-booleans u) 8) (bit-and (foreign-procedure-type-booleans u) (bit-not 8))))) (define (foreign-procedure-type-eq?-accessed? u) (not (zero? (bit-and (foreign-procedure-type-booleans u) 4)))) (define (set-foreign-procedure-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-foreign-procedure-type-booleans! u (if p? (bit-or (foreign-procedure-type-booleans u) 4) (bit-and (foreign-procedure-type-booleans u) (bit-not 4))))) (define (foreign-procedure-type-marked? u) (not (zero? (bit-and (foreign-procedure-type-booleans u) 2)))) (define (set-foreign-procedure-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-foreign-procedure-type-booleans! u (if p? (bit-or (foreign-procedure-type-booleans u) 2) (bit-and (foreign-procedure-type-booleans u) (bit-not 2))))) (define (foreign-procedure-type-used? u) (not (zero? (bit-and (foreign-procedure-type-booleans u) 1)))) (define (set-foreign-procedure-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-foreign-procedure-type-booleans! u (if p? (bit-or (foreign-procedure-type-booleans u) 1) (bit-and (foreign-procedure-type-booleans u) (bit-not 1))))) (define (continuation-type-type-tag-accessed? u) (not (zero? (bit-and (continuation-type-booleans u) 32)))) (define (set-continuation-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-continuation-type-booleans! u (if p? (bit-or (continuation-type-booleans u) 32) (bit-and (continuation-type-booleans u) (bit-not 32))))) (define (continuation-type-eq?-accessed? u) (not (zero? (bit-and (continuation-type-booleans u) 16)))) (define (set-continuation-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-continuation-type-booleans! u (if p? (bit-or (continuation-type-booleans u) 16) (bit-and (continuation-type-booleans u) (bit-not 16))))) (define (continuation-type-continuation-accessed? u) (not (zero? (bit-and (continuation-type-booleans u) 8)))) (define (set-continuation-type-continuation-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-continuation-type-booleans! u (if p? (bit-or (continuation-type-booleans u) 8) (bit-and (continuation-type-booleans u) (bit-not 8))))) (define (continuation-type-marked? u) (not (zero? (bit-and (continuation-type-booleans u) 4)))) (define (set-continuation-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-continuation-type-booleans! u (if p? (bit-or (continuation-type-booleans u) 4) (bit-and (continuation-type-booleans u) (bit-not 4))))) (define (continuation-type-used? u) (not (zero? (bit-and (continuation-type-booleans u) 2)))) (define (set-continuation-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-continuation-type-booleans! u (if p? (bit-or (continuation-type-booleans u) 2) (bit-and (continuation-type-booleans u) (bit-not 2))))) (define (continuation-type-fictitious? u) (not (zero? (bit-and (continuation-type-booleans u) 1)))) (define (set-continuation-type-fictitious?! u p?) (unless (boolean? p?) (fuck-up)) (set-continuation-type-booleans! u (if p? (bit-or (continuation-type-booleans u) 1) (bit-and (continuation-type-booleans u) (bit-not 1))))) (define (string-type-never-allocated-on-the-heap? u) (not (zero? (bit-and (string-type-booleans u) 64)))) (define (set-string-type-never-allocated-on-the-heap?! u p?) (unless (boolean? p?) (fuck-up)) (set-string-type-booleans! u (if p? (bit-or (string-type-booleans u) 64) (bit-and (string-type-booleans u) (bit-not 64))))) (define (string-type-type-tag-accessed? u) (not (zero? (bit-and (string-type-booleans u) 32)))) (define (set-string-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-string-type-booleans! u (if p? (bit-or (string-type-booleans u) 32) (bit-and (string-type-booleans u) (bit-not 32))))) (define (string-type-eq?-accessed? u) (not (zero? (bit-and (string-type-booleans u) 16)))) (define (set-string-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-string-type-booleans! u (if p? (bit-or (string-type-booleans u) 16) (bit-and (string-type-booleans u) (bit-not 16))))) (define (string-type-string-length-accessed? u) (not (zero? (bit-and (string-type-booleans u) 8)))) (define (set-string-type-string-length-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-string-type-booleans! u (if p? (bit-or (string-type-booleans u) 8) (bit-and (string-type-booleans u) (bit-not 8))))) (define (string-type-string-ref-accessed? u) (not (zero? (bit-and (string-type-booleans u) 4)))) (define (set-string-type-string-ref-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-string-type-booleans! u (if p? (bit-or (string-type-booleans u) 4) (bit-and (string-type-booleans u) (bit-not 4))))) (define (string-type-marked? u) (not (zero? (bit-and (string-type-booleans u) 2)))) (define (set-string-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-string-type-booleans! u (if p? (bit-or (string-type-booleans u) 2) (bit-and (string-type-booleans u) (bit-not 2))))) (define (string-type-used? u) (not (zero? (bit-and (string-type-booleans u) 1)))) (define (set-string-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-string-type-booleans! u (if p? (bit-or (string-type-booleans u) 1) (bit-and (string-type-booleans u) (bit-not 1))))) (define (structure-type-immediate? u) (not (zero? (bit-and (structure-type-booleans u) 1024)))) (define (set-structure-type-immediate?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 1024) (bit-and (structure-type-booleans u) (bit-not 1024))))) (define (structure-type-alignment? u) (not (zero? (bit-and (structure-type-booleans u) 512)))) (define (set-structure-type-alignment?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 512) (bit-and (structure-type-booleans u) (bit-not 512))))) (define (structure-type-alignment&? u) (not (zero? (bit-and (structure-type-booleans u) 256)))) (define (set-structure-type-alignment&?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 256) (bit-and (structure-type-booleans u) (bit-not 256))))) (define (structure-type-size? u) (not (zero? (bit-and (structure-type-booleans u) 128)))) (define (set-structure-type-size?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 128) (bit-and (structure-type-booleans u) (bit-not 128))))) (define (structure-type-never-allocated-on-the-heap? u) (not (zero? (bit-and (structure-type-booleans u) 64)))) (define (set-structure-type-never-allocated-on-the-heap?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 64) (bit-and (structure-type-booleans u) (bit-not 64))))) (define (structure-type-type-tag-accessed? u) (not (zero? (bit-and (structure-type-booleans u) 32)))) (define (set-structure-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 32) (bit-and (structure-type-booleans u) (bit-not 32))))) (define (structure-type-eq?-accessed? u) (not (zero? (bit-and (structure-type-booleans u) 16)))) (define (set-structure-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 16) (bit-and (structure-type-booleans u) (bit-not 16))))) (define (structure-type-marked? u) (not (zero? (bit-and (structure-type-booleans u) 8)))) (define (set-structure-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 8) (bit-and (structure-type-booleans u) (bit-not 8))))) (define (structure-type-used? u) (not (zero? (bit-and (structure-type-booleans u) 4)))) (define (set-structure-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 4) (bit-and (structure-type-booleans u) (bit-not 4))))) (define (structure-type-fictitious? u) (not (zero? (bit-and (structure-type-booleans u) 2)))) (define (set-structure-type-fictitious?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 2) (bit-and (structure-type-booleans u) (bit-not 2))))) (define (structure-type-atomic? u) (not (zero? (bit-and (structure-type-booleans u) 1)))) (define (set-structure-type-atomic?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 1) (bit-and (structure-type-booleans u) (bit-not 1))))) (define (headed-vector-type-alignment? u) (not (zero? (bit-and (headed-vector-type-booleans u) 1024)))) (define (set-headed-vector-type-alignment?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 1024) (bit-and (headed-vector-type-booleans u) (bit-not 1024))))) (define (headed-vector-type-alignment&? u) (not (zero? (bit-and (headed-vector-type-booleans u) 512)))) (define (set-headed-vector-type-alignment&?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 512) (bit-and (headed-vector-type-booleans u) (bit-not 512))))) (define (headed-vector-type-size? u) (not (zero? (bit-and (headed-vector-type-booleans u) 256)))) (define (set-headed-vector-type-size?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 256) (bit-and (headed-vector-type-booleans u) (bit-not 256))))) (define (headed-vector-type-never-allocated-on-the-heap? u) (not (zero? (bit-and (headed-vector-type-booleans u) 128)))) (define (set-headed-vector-type-never-allocated-on-the-heap?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 128) (bit-and (headed-vector-type-booleans u) (bit-not 128))))) (define (headed-vector-type-type-tag-accessed? u) (not (zero? (bit-and (headed-vector-type-booleans u) 64)))) (define (set-headed-vector-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 64) (bit-and (headed-vector-type-booleans u) (bit-not 64))))) (define (headed-vector-type-eq?-accessed? u) (not (zero? (bit-and (headed-vector-type-booleans u) 32)))) (define (set-headed-vector-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 32) (bit-and (headed-vector-type-booleans u) (bit-not 32))))) (define (headed-vector-type-vector-length-accessed? u) (not (zero? (bit-and (headed-vector-type-booleans u) 16)))) (define (set-headed-vector-type-vector-length-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 16) (bit-and (headed-vector-type-booleans u) (bit-not 16))))) (define (headed-vector-type-vector-ref-accessed? u) (not (zero? (bit-and (headed-vector-type-booleans u) 8)))) (define (set-headed-vector-type-vector-ref-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 8) (bit-and (headed-vector-type-booleans u) (bit-not 8))))) (define (headed-vector-type-marked? u) (not (zero? (bit-and (headed-vector-type-booleans u) 4)))) (define (set-headed-vector-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 4) (bit-and (headed-vector-type-booleans u) (bit-not 4))))) (define (headed-vector-type-used? u) (not (zero? (bit-and (headed-vector-type-booleans u) 2)))) (define (set-headed-vector-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 2) (bit-and (headed-vector-type-booleans u) (bit-not 2))))) (define (headed-vector-type-atomic? u) (not (zero? (bit-and (headed-vector-type-booleans u) 1)))) (define (set-headed-vector-type-atomic?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 1) (bit-and (headed-vector-type-booleans u) (bit-not 1))))) (define (nonheaded-vector-type-alignment? u) (not (zero? (bit-and (nonheaded-vector-type-booleans u) 512)))) (define (set-nonheaded-vector-type-alignment?! u p?) (unless (boolean? p?) (fuck-up)) (set-nonheaded-vector-type-booleans! u (if p? (bit-or (nonheaded-vector-type-booleans u) 512) (bit-and (nonheaded-vector-type-booleans u) (bit-not 512))))) (define (nonheaded-vector-type-size? u) (not (zero? (bit-and (nonheaded-vector-type-booleans u) 256)))) (define (set-nonheaded-vector-type-size?! u p?) (unless (boolean? p?) (fuck-up)) (set-nonheaded-vector-type-booleans! u (if p? (bit-or (nonheaded-vector-type-booleans u) 256) (bit-and (nonheaded-vector-type-booleans u) (bit-not 256))))) (define (nonheaded-vector-type-never-allocated-on-the-heap? u) (not (zero? (bit-and (nonheaded-vector-type-booleans u) 128)))) (define (set-nonheaded-vector-type-never-allocated-on-the-heap?! u p?) (unless (boolean? p?) (fuck-up)) (set-nonheaded-vector-type-booleans! u (if p? (bit-or (nonheaded-vector-type-booleans u) 128) (bit-and (nonheaded-vector-type-booleans u) (bit-not 128))))) (define (nonheaded-vector-type-type-tag-accessed? u) (not (zero? (bit-and (nonheaded-vector-type-booleans u) 64)))) (define (set-nonheaded-vector-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-nonheaded-vector-type-booleans! u (if p? (bit-or (nonheaded-vector-type-booleans u) 64) (bit-and (nonheaded-vector-type-booleans u) (bit-not 64))))) (define (nonheaded-vector-type-eq?-accessed? u) (not (zero? (bit-and (nonheaded-vector-type-booleans u) 32)))) (define (set-nonheaded-vector-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-nonheaded-vector-type-booleans! u (if p? (bit-or (nonheaded-vector-type-booleans u) 32) (bit-and (nonheaded-vector-type-booleans u) (bit-not 32))))) (define (nonheaded-vector-type-vector-length-accessed? u) (not (zero? (bit-and (nonheaded-vector-type-booleans u) 16)))) (define (set-nonheaded-vector-type-vector-length-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-nonheaded-vector-type-booleans! u (if p? (bit-or (nonheaded-vector-type-booleans u) 16) (bit-and (nonheaded-vector-type-booleans u) (bit-not 16))))) (define (nonheaded-vector-type-vector-ref-accessed? u) (not (zero? (bit-and (nonheaded-vector-type-booleans u) 8)))) (define (set-nonheaded-vector-type-vector-ref-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-nonheaded-vector-type-booleans! u (if p? (bit-or (nonheaded-vector-type-booleans u) 8) (bit-and (nonheaded-vector-type-booleans u) (bit-not 8))))) (define (nonheaded-vector-type-marked? u) (not (zero? (bit-and (nonheaded-vector-type-booleans u) 4)))) (define (set-nonheaded-vector-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-nonheaded-vector-type-booleans! u (if p? (bit-or (nonheaded-vector-type-booleans u) 4) (bit-and (nonheaded-vector-type-booleans u) (bit-not 4))))) (define (nonheaded-vector-type-used? u) (not (zero? (bit-and (nonheaded-vector-type-booleans u) 2)))) (define (set-nonheaded-vector-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-nonheaded-vector-type-booleans! u (if p? (bit-or (nonheaded-vector-type-booleans u) 2) (bit-and (nonheaded-vector-type-booleans u) (bit-not 2))))) (define (nonheaded-vector-type-atomic? u) (not (zero? (bit-and (nonheaded-vector-type-booleans u) 1)))) (define (set-nonheaded-vector-type-atomic?! u p?) (unless (boolean? p?) (fuck-up)) (set-nonheaded-vector-type-booleans! u (if p? (bit-or (nonheaded-vector-type-booleans u) 1) (bit-and (nonheaded-vector-type-booleans u) (bit-not 1))))) (define (displaced-vector-type-alignment? u) (not (zero? (bit-and (displaced-vector-type-booleans u) 128)))) (define (set-displaced-vector-type-alignment?! u p?) (unless (boolean? p?) (fuck-up)) (set-displaced-vector-type-booleans! u (if p? (bit-or (displaced-vector-type-booleans u) 128) (bit-and (displaced-vector-type-booleans u) (bit-not 128))))) (define (displaced-vector-type-size? u) (not (zero? (bit-and (displaced-vector-type-booleans u) 64)))) (define (set-displaced-vector-type-size?! u p?) (unless (boolean? p?) (fuck-up)) (set-displaced-vector-type-booleans! u (if p? (bit-or (displaced-vector-type-booleans u) 64) (bit-and (displaced-vector-type-booleans u) (bit-not 64))))) (define (displaced-vector-type-type-tag-accessed? u) (not (zero? (bit-and (displaced-vector-type-booleans u) 32)))) (define (set-displaced-vector-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-displaced-vector-type-booleans! u (if p? (bit-or (displaced-vector-type-booleans u) 32) (bit-and (displaced-vector-type-booleans u) (bit-not 32))))) (define (displaced-vector-type-eq?-accessed? u) (not (zero? (bit-and (displaced-vector-type-booleans u) 16)))) (define (set-displaced-vector-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-displaced-vector-type-booleans! u (if p? (bit-or (displaced-vector-type-booleans u) 16) (bit-and (displaced-vector-type-booleans u) (bit-not 16))))) (define (displaced-vector-type-vector-length-accessed? u) (not (zero? (bit-and (displaced-vector-type-booleans u) 8)))) (define (set-displaced-vector-type-vector-length-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-displaced-vector-type-booleans! u (if p? (bit-or (displaced-vector-type-booleans u) 8) (bit-and (displaced-vector-type-booleans u) (bit-not 8))))) (define (displaced-vector-type-vector-ref-accessed? u) (not (zero? (bit-and (displaced-vector-type-booleans u) 4)))) (define (set-displaced-vector-type-vector-ref-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-displaced-vector-type-booleans! u (if p? (bit-or (displaced-vector-type-booleans u) 4) (bit-and (displaced-vector-type-booleans u) (bit-not 4))))) (define (displaced-vector-type-marked? u) (not (zero? (bit-and (displaced-vector-type-booleans u) 2)))) (define (set-displaced-vector-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-displaced-vector-type-booleans! u (if p? (bit-or (displaced-vector-type-booleans u) 2) (bit-and (displaced-vector-type-booleans u) (bit-not 2))))) (define (displaced-vector-type-used? u) (not (zero? (bit-and (displaced-vector-type-booleans u) 1)))) (define (set-displaced-vector-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-displaced-vector-type-booleans! u (if p? (bit-or (displaced-vector-type-booleans u) 1) (bit-and (displaced-vector-type-booleans u) (bit-not 1))))) (define (set-type-type-tag-accessed?! u p?) (cond ((null-type? u) #f) ((true-type? u) #f) ((false-type? u) #f) ((char-type? u) #f) ((fixnum-type? u) #f) ((flonum-type? u) #f) ((rectangular-type? u) #f) ((input-port-type? u) #f) ((output-port-type? u) #f) ((eof-object-type? u) #f) ((pointer-type? u) #f) ((internal-symbol-type? u) (set-internal-symbol-type-type-tag-accessed?! u p?)) ((external-symbol-type? u) (set-external-symbol-type-type-tag-accessed?! u p?)) ((primitive-procedure-type? u) (set-primitive-procedure-type-type-tag-accessed?! u p?)) ((native-procedure-type? u) (set-native-procedure-type-type-tag-accessed?! u p?)) ((foreign-procedure-type? u) (set-foreign-procedure-type-type-tag-accessed?! u p?)) ((continuation-type? u) (set-continuation-type-type-tag-accessed?! u p?)) ((string-type? u) (set-string-type-type-tag-accessed?! u p?)) ((structure-type? u) (set-structure-type-type-tag-accessed?! u p?)) ((headed-vector-type? u) (set-headed-vector-type-type-tag-accessed?! u p?)) ((nonheaded-vector-type? u) (set-nonheaded-vector-type-type-tag-accessed?! u p?)) ((displaced-vector-type? u) (set-displaced-vector-type-type-tag-accessed?! u p?)) (else (fuck-up)))) (define (set-type-eq?-accessed?! u p?) (cond ((null-type? u) #f) ((true-type? u) #f) ((false-type? u) #f) ((char-type? u) #f) ((fixnum-type? u) #f) ((flonum-type? u) #f) ((rectangular-type? u) #f) ((input-port-type? u) #f) ((output-port-type? u) #f) ((eof-object-type? u) #f) ((pointer-type? u) #f) ((internal-symbol-type? u) (set-internal-symbol-type-eq?-accessed?! u p?)) ((external-symbol-type? u) (set-external-symbol-type-eq?-accessed?! u p?)) ((primitive-procedure-type? u) (set-primitive-procedure-type-eq?-accessed?! u p?)) ((native-procedure-type? u) (set-native-procedure-type-eq?-accessed?! u p?)) ((foreign-procedure-type? u) (set-foreign-procedure-type-eq?-accessed?! u p?)) ((continuation-type? u) (set-continuation-type-eq?-accessed?! u p?)) ((string-type? u) (set-string-type-eq?-accessed?! u p?)) ((structure-type? u) (set-structure-type-eq?-accessed?! u p?)) ((headed-vector-type? u) (set-headed-vector-type-eq?-accessed?! u p?)) ((nonheaded-vector-type? u) (set-nonheaded-vector-type-eq?-accessed?! u p?)) ((displaced-vector-type? u) (set-displaced-vector-type-eq?-accessed?! u p?)) (else (fuck-up)))) (define (null-type? u) (eq? u 'null)) (define (true-type? u) (eq? u 'true)) (define (false-type? u) (eq? u 'false)) (define (boolean-type? u) (or (true-type? u) (false-type? u))) (define (char-type? u) (eq? u 'char)) (define (fixnum-type? u) (eq? u 'fixnum)) (define (flonum-type? u) (eq? u 'flonum)) (define (nonrectangular-number-type? u) (or (fixnum-type? u) (flonum-type? u))) (define (rectangular-type? u) (eq? u 'rectangular)) (define (number-type? u) (or (fixnum-type? u) (flonum-type? u) (rectangular-type? u))) (define (exact-type? u) (unless (number-type? u) (fuck-up)) (fixnum-type? u)) (define (inexact-type? u) (unless (number-type? u) (fuck-up)) (or (flonum-type? u) (rectangular-type? u))) (define (input-port-type? u) (eq? u 'input-port)) (define (output-port-type? u) (eq? u 'output-port)) (define (eof-object-type? u) (eq? u 'eof-object)) (define (pointer-type? u) (eq? u 'pointer)) (define (internal-symbol-type-named? name) ;; conventions: NAME (lambda (u) (and (internal-symbol-type? u) (eq? (internal-symbol-type-name u) name)))) (define (symbol-type? u) (or (internal-symbol-type? u) (external-symbol-type? u))) (define (primitive-procedure-type-named? name) ;; conventions: NAME (lambda (u) (and (primitive-procedure-type? u) (eq? (primitive-procedure-type-name u) name)))) (define (continuation-type-to? x) (lambda (u) (and (continuation-type? u) (eq? (continuation-type-allocating-expression u) x)))) (define (procedure-type? u) (or (primitive-procedure-type? u) (native-procedure-type? u) (foreign-procedure-type? u) (continuation-type? u))) (define (nonreclaimable-string-type? u) (and (string-type? u) (memq #f (string-type-allocating-expressions u)))) (define (structure-type-named? name) ;; conventions: NAME (lambda (u) (and (structure-type? u) (eq? (structure-type-name u) name)))) (define (pair-type? u) ((structure-type-named? 'pair) u)) (define (pair+-type? uss us x) (lambda (u) (when (null? uss) (fuck-up)) (and (pair-type? u) (memq x (structure-type-allocating-expressions u)) (every (lambda (u1) (member? u1 (pair-type-car u))) (first uss)) (if (null? (rest uss)) (every (lambda (u1) (member? u1 (pair-type-cdr u))) us) (can-be? (pair+-type? (rest uss) us x) (pair-type-cdr u)))))) (define (list-type-of? m) (define (list-type-of? m us) (lambda (u) (or (memq u us) (null-type? u) (and (pair-type? u) (can-be? m (pair-type-car u)) (can-be? (list-type-of? m (cons u us)) (pair-type-cdr u)))))) (list-type-of? m '())) (define (list-type? u) ((list-type-of? type?) u)) (define (list-type-of-length? j) ;; conventions: J (lambda (u) (and (not (negative? j)) (if (zero? j) (null-type? u) (and (pair-type? u) (can-be? (list-type-of-length? (- j 1)) (pair-type-cdr u))))))) (define (list-type-of-length-at-least? j) ;; conventions: J (lambda (u) (if (positive? j) (and (pair-type? u) (can-be? (list-type-of-length-at-least? (- j 1)) (pair-type-cdr u))) (list-type? u)))) (define (top-level-nonheaded-vector-type? u) (and (nonheaded-vector-type? u) (memq #f (nonheaded-vector-type-allocating-expressions u)))) (define (vector-type? u) (or (headed-vector-type? u) (nonheaded-vector-type? u) (displaced-vector-type? u))) (define (vector-type-eq?-accessed? u) (cond ((headed-vector-type? u) (headed-vector-type-eq?-accessed? u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-eq?-accessed? u)) ((displaced-vector-type? u) (displaced-vector-type-eq?-accessed? u)) (else (fuck-up)))) (define (vector-ref-accessed? u) (cond ((headed-vector-type? u) (headed-vector-type-vector-ref-accessed? u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-vector-ref-accessed? u)) ((displaced-vector-type? u) (displaced-vector-type-vector-ref-accessed? u)) (else (fuck-up)))) (define (degenerate-vector-type? u) (and (vector-type? u) (fictitious? (vector-type-element u)))) (define (type? u) (or (null-type? u) (true-type? u) (false-type? u) (char-type? u) (fixnum-type? u) (flonum-type? u) (rectangular-type? u) (input-port-type? u) (output-port-type? u) (eof-object-type? u) (pointer-type? u) (internal-symbol-type? u) (external-symbol-type? u) (primitive-procedure-type? u) (native-procedure-type? u) (foreign-procedure-type? u) (continuation-type? u) (string-type? u) (structure-type? u) (headed-vector-type? u) (nonheaded-vector-type? u) (displaced-vector-type? u))) (define (never-allocated-on-the-heap? u) (cond ((null-type? u) #t) ((true-type? u) #t) ((false-type? u) #t) ((char-type? u) #t) ((fixnum-type? u) #t) ((flonum-type? u) #t) ((rectangular-type? u) #t) ((input-port-type? u) #t) ((output-port-type? u) #t) ((eof-object-type? u) #t) ((pointer-type? u) #t) ((internal-symbol-type? u) #t) ((external-symbol-type? u) #t) ((primitive-procedure-type? u) #t) ((native-procedure-type? u) #t) ((foreign-procedure-type? u) #t) ((continuation-type? u) #t) ((string-type? u) (string-type-never-allocated-on-the-heap? u)) ((structure-type? u) (structure-type-never-allocated-on-the-heap? u)) ((headed-vector-type? u) (headed-vector-type-never-allocated-on-the-heap? u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-never-allocated-on-the-heap? u)) ((displaced-vector-type? u) #t) (else (fuck-up)))) (define (type-marked? u) (cond ((null-type? u) (fuck-up)) ((true-type? u) (fuck-up)) ((false-type? u) (fuck-up)) ((char-type? u) (fuck-up)) ((fixnum-type? u) (fuck-up)) ((flonum-type? u) (fuck-up)) ((rectangular-type? u) (fuck-up)) ((input-port-type? u) (fuck-up)) ((output-port-type? u) (fuck-up)) ((eof-object-type? u) (fuck-up)) ((pointer-type? u) (fuck-up)) ((internal-symbol-type? u) (internal-symbol-type-marked? u)) ((external-symbol-type? u) (external-symbol-type-marked? u)) ((primitive-procedure-type? u) (primitive-procedure-type-marked? u)) ((native-procedure-type? u) (native-procedure-type-marked? u)) ((foreign-procedure-type? u) (foreign-procedure-type-marked? u)) ((continuation-type? u) (continuation-type-marked? u)) ((string-type? u) (string-type-marked? u)) ((structure-type? u) (structure-type-marked? u)) ((headed-vector-type? u) (headed-vector-type-marked? u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-marked? u)) ((displaced-vector-type? u) (displaced-vector-type-marked? u)) (else (fuck-up)))) (define (set-type-marked?! u p?) ;; needs work: This is not really a type property. (cond ((null-type? u) (fuck-up)) ((true-type? u) (fuck-up)) ((false-type? u) (fuck-up)) ((char-type? u) (fuck-up)) ((fixnum-type? u) (fuck-up)) ((flonum-type? u) (fuck-up)) ((rectangular-type? u) (fuck-up)) ((input-port-type? u) (fuck-up)) ((output-port-type? u) (fuck-up)) ((eof-object-type? u) (fuck-up)) ((pointer-type? u) (fuck-up)) ((internal-symbol-type? u) (set-internal-symbol-type-marked?! u p?)) ((external-symbol-type? u) (set-external-symbol-type-marked?! u p?)) ((primitive-procedure-type? u) (set-primitive-procedure-type-marked?! u p?)) ((native-procedure-type? u) (set-native-procedure-type-marked?! u p?)) ((foreign-procedure-type? u) (set-foreign-procedure-type-marked?! u p?)) ((continuation-type? u) (set-continuation-type-marked?! u p?)) ((string-type? u) (set-string-type-marked?! u p?)) ((structure-type? u) (set-structure-type-marked?! u p?)) ((headed-vector-type? u) (set-headed-vector-type-marked?! u p?)) ((nonheaded-vector-type? u) (set-nonheaded-vector-type-marked?! u p?)) ((displaced-vector-type? u) (set-displaced-vector-type-marked?! u p?)) (else (fuck-up)))) (define (type-used? u) (cond ((null-type? u) #t) ((true-type? u) #t) ((false-type? u) #t) ((char-type? u) #t) ((fixnum-type? u) #t) ((flonum-type? u) #t) ((rectangular-type? u) #t) ((input-port-type? u) #t) ((output-port-type? u) #t) ((eof-object-type? u) #t) ((pointer-type? u) #t) ((internal-symbol-type? u) (internal-symbol-type-used? u)) ((external-symbol-type? u) (external-symbol-type-used? u)) ((primitive-procedure-type? u) (primitive-procedure-type-used? u)) ((native-procedure-type? u) (native-procedure-type-used? u)) ((foreign-procedure-type? u) (foreign-procedure-type-used? u)) ((continuation-type? u) (continuation-type-used? u)) ((string-type? u) (string-type-used? u)) ((structure-type? u) (structure-type-used? u)) ((headed-vector-type? u) (headed-vector-type-used? u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-used? u)) ((displaced-vector-type? u) (displaced-vector-type-used? u)) (else (fuck-up)))) (define (compatible-procedure? ws w y) (if (converted? y) (lambda (u) (or (and (primitive-procedure-type? u) ((primitive-procedure-compatible-procedure? (cdr (assq (primitive-procedure-type-name u) *primitive-procedure-handlers*))) u (rest ws) w)) (and (native-procedure-type? u) ;; What a kludge! (or (not *types-frozen?*) (callee-environment? u y)) (let ((e (callee-environment u y))) (if (rest? e) (if (converted? e) (can-be? (list-type-of-length-at-least? (- (- (length (variables e)) 1) (length ws))) w) (can-be? (list-type-of-length-at-least? (- (length (variables e)) (length ws))) w)) (if (converted? e) (can-be? (list-type-of-length? (- (length (variables e)) (length ws))) w) (can-be? (list-type-of-length? (- (+ (length (variables e)) 1) (length ws))) w))))) (and (foreign-procedure-type? u) (can-be? (list-type-of-length? (- (+ (length (foreign-procedure-type-parameters u)) 1) (length ws))) w)) (and (continuation-type? u) (can-be? (list-type-of-length? (- 2 (length ws))) w)))) (lambda (u) (or (and (primitive-procedure-type? u) ((primitive-procedure-compatible-procedure? (cdr (assq (primitive-procedure-type-name u) *primitive-procedure-handlers*))) u ws w)) (and (native-procedure-type? u) ;; What a kludge! (or (not *types-frozen?*) (callee-environment? u y)) (let ((e (callee-environment u y))) ;; note: I'm not sure that this is the right thing to do but ;; it is now needed for test21.sc since I changed MAP and ;; APPLY. (and (not (converted? e)) (if (rest? e) (can-be? (list-type-of-length-at-least? (- (- (length (variables e)) 1) (length ws))) w) (can-be? (list-type-of-length? (- (length (variables e)) (length ws))) w))))) (and (foreign-procedure-type? u) (can-be? (list-type-of-length? (- (length (foreign-procedure-type-parameters u)) (length ws))) w)) (and (continuation-type? u) (can-be? (list-type-of-length? (- 1 (length ws))) w)))))) (define (compatible-call? x) (compatible-procedure? (map expression-type-set (expression-arguments x)) *null* (create-call-site x))) (define (compatible-call-via-apply? x) (compatible-procedure? (map expression-type-set (if (converted? x) (cons (continuation-argument x) (but-last (rest (rest (expression-arguments x))))) (but-last (rest (expression-arguments x))))) (expression-type-set (last (expression-arguments x))) (recreate-call-site (create-call-site x) 'first-argument))) (define (compatible-call-via-call-with-current-continuation? x) (compatible-procedure? (if (converted? x) (list (expression-type-set (continuation-argument x)) (expression-type-set (continuation-argument x))) (list (create-anonymous-type-set ( x)))) *null* (recreate-call-site (create-call-site x) 'first-argument))) (define (compatible-call-via-fork1? x) (compatible-procedure? (if (converted? x) (list (expression-type-set (continuation-argument x))) '()) *null* (recreate-call-site (create-call-site x) 'first-argument))) (define (compatible-call-via-fork2? x) (compatible-procedure? (if (converted? x) (list (expression-type-set (continuation-argument x))) '()) *null* (recreate-call-site (create-call-site x) 'second-argument))) (define (compatible-call-via-mutex? x) (compatible-procedure? (if (converted? x) (list (expression-type-set (continuation-argument x))) '()) *null* (recreate-call-site (create-call-site x) 'first-argument))) (define (truly-compatible-procedure? ws w y) ;; note: The reason that we have both COMPATIBLE-PROCEDURE? and ;; TRULY-COMPATIBLE-PROCEDURE? is that if a call site to a primitive ;; procedure is not compatible we generate a call_error where as if it ;; is compatible but not truly compatible we actually call the ;; PRIMITIVE-PROCEDURE-COMPILE-CALL to generate the error. (if (converted? y) (lambda (u) (or (and (primitive-procedure-type? u) ((primitive-procedure-compatible-procedure? (cdr (assq (primitive-procedure-type-name u) *primitive-procedure-handlers*))) u (rest ws) w) (((primitive-procedure-truly-compatible-procedure? (cdr (assq (primitive-procedure-type-name u) *primitive-procedure-handlers*))) y u (first ws)) (rest ws) w)) (and (native-procedure-type? u) ;; What a kludge! (or (not *types-frozen?*) (callee-environment? u y)) (let ((e (callee-environment u y))) (if (rest? e) (if (converted? e) (can-be? (list-type-of-length-at-least? (- (- (length (variables e)) 1) (length ws))) w) (can-be? (list-type-of-length-at-least? (- (length (variables e)) (length ws))) w)) (if (converted? e) (can-be? (list-type-of-length? (- (length (variables e)) (length ws))) w) (can-be? (list-type-of-length? (- (+ (length (variables e)) 1) (length ws))) w))))) (and (foreign-procedure-type? u) (let loop? ((fs (foreign-procedure-type-parameters u)) (ws (rest ws)) (w w)) (if (null? fs) (and (null? ws) (can-be? null-type? w)) (or (and (not (null? ws)) (can-be? (foreign-type? (first fs)) (first ws)) (loop? (rest fs) (rest ws) w)) (and (null? ws) (can-be? (lambda (u) (and (pair-type? u) (can-be? (foreign-type? (first fs)) (pair-type-car u)) (loop? (rest fs) ws (pair-type-cdr u)))) w)))))) (and (continuation-type? u) (can-be? (list-type-of-length? (- 2 (length ws))) w)))) (lambda (u) (or (and (primitive-procedure-type? u) ((primitive-procedure-compatible-procedure? (cdr (assq (primitive-procedure-type-name u) *primitive-procedure-handlers*))) u ws w) (((primitive-procedure-truly-compatible-procedure? (cdr (assq (primitive-procedure-type-name u) *primitive-procedure-handlers*))) y u #f) ws w)) (and (native-procedure-type? u) ;; What a kludge! (or (not *types-frozen?*) (callee-environment? u y)) (let ((e (callee-environment u y))) ;; note: I'm not sure that this is the right thing to do but ;; it is now needed for test21.sc since I changed MAP and ;; APPLY. (and (not (converted? e)) (if (rest? e) (can-be? (list-type-of-length-at-least? (- (- (length (variables e)) 1) (length ws))) w) (can-be? (list-type-of-length? (- (length (variables e)) (length ws))) w))))) (and (foreign-procedure-type? u) (let loop? ((fs (foreign-procedure-type-parameters u)) (ws ws) (w w)) (if (null? fs) (and (null? ws) (can-be? null-type? w)) (or (and (not (null? ws)) (can-be? (foreign-type? (first fs)) (first ws)) (loop? (rest fs) (rest ws) w)) (and (null? ws) (can-be? (lambda (u) (and (pair-type? u) (can-be? (foreign-type? (first fs)) (pair-type-car u)) (loop? (rest fs) ws (pair-type-cdr u)))) w)))))) (and (continuation-type? u) (can-be? (list-type-of-length? (- 1 (length ws))) w)))))) (define (truly-compatible-call? x) (truly-compatible-procedure? (map expression-type-set (expression-arguments x)) *null* (create-call-site x))) (define (truly-compatible-call-via-apply? x) (truly-compatible-procedure? (map expression-type-set (if (converted? x) (cons (continuation-argument x) (but-last (rest (rest (expression-arguments x))))) (but-last (rest (expression-arguments x))))) (expression-type-set (last (expression-arguments x))) (recreate-call-site (create-call-site x) 'first-argument))) (define (truly-compatible-call-via-call-with-current-continuation? x) (truly-compatible-procedure? (if (converted? x) (list (expression-type-set (continuation-argument x)) (expression-type-set (continuation-argument x))) (list (create-anonymous-type-set ( x)))) *null* (recreate-call-site (create-call-site x) 'first-argument))) (define (truly-compatible-call-via-fork1? x) (truly-compatible-procedure? (if (converted? x) (list (expression-type-set (continuation-argument x))) '()) *null* (recreate-call-site (create-call-site x) 'first-argument))) (define (truly-compatible-call-via-fork2? x) (truly-compatible-procedure? (if (converted? x) (list (expression-type-set (continuation-argument x))) '()) *null* (recreate-call-site (create-call-site x) 'second-argument))) (define (truly-compatible-call-via-mutex? x) (truly-compatible-procedure? (if (converted? x) (list (expression-type-set (continuation-argument x))) '()) *null* (recreate-call-site (create-call-site x) 'first-argument))) ;;; Type functions (define (pair-type-car u) (unless (pair-type? u) (fuck-up)) (first (structure-type-slots u))) (define (pair-type-cdr u) (unless (pair-type? u) (fuck-up)) (second (structure-type-slots u))) (define (vector-type-element u) (cond ((headed-vector-type? u) (headed-vector-type-element u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-element u)) ((displaced-vector-type? u) (vector-type-element (displaced-vector-type-displaced-vector-type u))) (else (fuck-up)))) (define (type-index u) (cond ((null-type? u) 0) ((true-type? u) 1) ((false-type? u) 2) ((char-type? u) 3) ((fixnum-type? u) 4) ((flonum-type? u) 5) ((rectangular-type? u) 6) ((input-port-type? u) 7) ((output-port-type? u) 8) ((eof-object-type? u) 9) ((pointer-type? u) 10) ((internal-symbol-type? u) (internal-symbol-type-index u)) ((external-symbol-type? u) (external-symbol-type-index u)) ((primitive-procedure-type? u) (primitive-procedure-type-index u)) ((native-procedure-type? u) (native-procedure-type-index u)) ((foreign-procedure-type? u) (foreign-procedure-type-index u)) ((continuation-type? u) (continuation-type-index u)) ((string-type? u) (string-type-index u)) ((structure-type? u) (structure-type-index u)) ((headed-vector-type? u) (headed-vector-type-index u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-index u)) ((displaced-vector-type? u) (displaced-vector-type-index u)) (else (fuck-up)))) (define (type-use-count u) (cond ((null-type? u) *null-type-use-count*) ((true-type? u) *true-type-use-count*) ((false-type? u) *false-type-use-count*) ((char-type? u) *char-type-use-count*) ((fixnum-type? u) *fixnum-type-use-count*) ((flonum-type? u) *flonum-type-use-count*) ((rectangular-type? u) *rectangular-type-use-count*) ((input-port-type? u) *input-port-type-use-count*) ((output-port-type? u) *output-port-type-use-count*) ((eof-object-type? u) *eof-object-type-use-count*) ((pointer-type? u) *pointer-type-use-count*) ((internal-symbol-type? u) (internal-symbol-type-use-count u)) ((external-symbol-type? u) (external-symbol-type-use-count u)) ((primitive-procedure-type? u) (primitive-procedure-type-use-count u)) ((native-procedure-type? u) (native-procedure-type-use-count u)) ((foreign-procedure-type? u) (foreign-procedure-type-use-count u)) ((continuation-type? u) (continuation-type-use-count u)) ((string-type? u) (string-type-use-count u)) ((structure-type? u) (structure-type-use-count u)) ((headed-vector-type? u) (headed-vector-type-use-count u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-use-count u)) ((displaced-vector-type? u) (displaced-vector-type-use-count u)) (else (fuck-up)))) (define (types-and-type-sets-that-directly-point-to u) (cond ((null-type? u) (fuck-up)) ((true-type? u) (fuck-up)) ((false-type? u) (fuck-up)) ((char-type? u) (fuck-up)) ((fixnum-type? u) (fuck-up)) ((flonum-type? u) (fuck-up)) ((rectangular-type? u) (fuck-up)) ((input-port-type? u) (fuck-up)) ((output-port-type? u) (fuck-up)) ((eof-object-type? u) (fuck-up)) ((pointer-type? u) (fuck-up)) ((internal-symbol-type? u) (internal-symbol-type-types-and-type-sets-that-directly-point-to u)) ((external-symbol-type? u) (external-symbol-type-types-and-type-sets-that-directly-point-to u)) ((primitive-procedure-type? u) (primitive-procedure-type-types-and-type-sets-that-directly-point-to u)) ((native-procedure-type? u) (native-procedure-type-types-and-type-sets-that-directly-point-to u)) ((foreign-procedure-type? u) (foreign-procedure-type-types-and-type-sets-that-directly-point-to u)) ((continuation-type? u) (continuation-type-types-and-type-sets-that-directly-point-to u)) ((string-type? u) (string-type-types-and-type-sets-that-directly-point-to u)) ((structure-type? u) (structure-type-types-and-type-sets-that-directly-point-to u)) ((headed-vector-type? u) (headed-vector-type-types-and-type-sets-that-directly-point-to u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-types-and-type-sets-that-directly-point-to u)) ((displaced-vector-type? u) (displaced-vector-type-types-and-type-sets-that-directly-point-to u)) (else (fuck-up)))) (define (set-types-and-type-sets-that-directly-point-to! u u/ws) ;; needs work: This is not really a type function. (cond ((null-type? u) (fuck-up)) ((true-type? u) (fuck-up)) ((false-type? u) (fuck-up)) ((char-type? u) (fuck-up)) ((fixnum-type? u) (fuck-up)) ((flonum-type? u) (fuck-up)) ((rectangular-type? u) (fuck-up)) ((input-port-type? u) (fuck-up)) ((output-port-type? u) (fuck-up)) ((eof-object-type? u) (fuck-up)) ((pointer-type? u) (fuck-up)) ((internal-symbol-type? u) (set-internal-symbol-type-types-and-type-sets-that-directly-point-to! u u/ws)) ((external-symbol-type? u) (set-external-symbol-type-types-and-type-sets-that-directly-point-to! u u/ws)) ((primitive-procedure-type? u) (set-primitive-procedure-type-types-and-type-sets-that-directly-point-to! u u/ws)) ((native-procedure-type? u) (set-native-procedure-type-types-and-type-sets-that-directly-point-to! u u/ws)) ((foreign-procedure-type? u) (set-foreign-procedure-type-types-and-type-sets-that-directly-point-to! u u/ws)) ((continuation-type? u) (set-continuation-type-types-and-type-sets-that-directly-point-to! u u/ws)) ((string-type? u) (set-string-type-types-and-type-sets-that-directly-point-to! u u/ws)) ((structure-type? u) (set-structure-type-types-and-type-sets-that-directly-point-to! u u/ws)) ((headed-vector-type? u) (set-headed-vector-type-types-and-type-sets-that-directly-point-to! u u/ws)) ((nonheaded-vector-type? u) (set-nonheaded-vector-type-types-and-type-sets-that-directly-point-to! u u/ws)) ((displaced-vector-type? u) (set-displaced-vector-type-types-and-type-sets-that-directly-point-to! u u/ws)) (else (fuck-up)))) ;;; Type type relations (define (wide-clones? u1 u2) ;; This is only used by PRINT-NUMBER-OF-CALL-SITES-THAT-DISPATCH-ON-CLONES. (and (native-procedure-type? u1) (native-procedure-type? u2) (eq? (wide-prototype u1) (wide-prototype u2)))) ;;; Type type-set relations (define (member? u w) (let ((i (type-index u))) (let loop ((node (type-set-red-black-tree-node w))) ;; conventions: NODE (and node (or (= i (red-black-tree-node-key node)) (if (< i (red-black-tree-node-key node)) (loop (red-black-tree-node-left node)) (loop (red-black-tree-node-right node)))))))) ;;; Type type-set procedures (define (insert-member! u w) (define (left-rotate node) ;; conventions: NODE (make-red-black-tree-node (red-black-tree-node-type (red-black-tree-node-right node)) (red-black-tree-node-key (red-black-tree-node-right node)) (make-red-black-tree-node (red-black-tree-node-type node) (red-black-tree-node-key node) (red-black-tree-node-left node) (red-black-tree-node-left (red-black-tree-node-right node)) (red-black-tree-node-red? node)) (red-black-tree-node-right (red-black-tree-node-right node)) (red-black-tree-node-red? (red-black-tree-node-right node)))) (define (right-rotate node) ;; conventions: NODE (make-red-black-tree-node (red-black-tree-node-type (red-black-tree-node-left node)) (red-black-tree-node-key (red-black-tree-node-left node)) (red-black-tree-node-left (red-black-tree-node-left node)) (make-red-black-tree-node (red-black-tree-node-type node) (red-black-tree-node-key node) (red-black-tree-node-right (red-black-tree-node-left node)) (red-black-tree-node-right node) (red-black-tree-node-red? node)) (red-black-tree-node-red? (red-black-tree-node-left node)))) (let ((i (type-index u))) (set-type-set-red-black-tree-node! w (if (type-set-red-black-tree-node w) (let loop ((node (type-set-red-black-tree-node w))) ;; conventions: NODE (cond ((= i (red-black-tree-node-key node)) node) (else (if (< i (red-black-tree-node-key node)) (set-red-black-tree-node-left! node (if (red-black-tree-node-left node) (loop (red-black-tree-node-left node)) (make-red-black-tree-node u i #f #f #t))) (set-red-black-tree-node-right! node (if (red-black-tree-node-right node) (loop (red-black-tree-node-right node)) (make-red-black-tree-node u i #f #f #t)))) (cond ;; Both children are red and one grandchild is red. ((and (red-black-tree-node-left node) (red-black-tree-node-red? (red-black-tree-node-left node)) (red-black-tree-node-right node) (red-black-tree-node-red? (red-black-tree-node-right node)) (or (and (red-black-tree-node-left (red-black-tree-node-left node)) (red-black-tree-node-red? (red-black-tree-node-left (red-black-tree-node-left node)))) (and (red-black-tree-node-right (red-black-tree-node-left node)) (red-black-tree-node-red? (red-black-tree-node-right (red-black-tree-node-left node)))) (and (red-black-tree-node-left (red-black-tree-node-right node)) (red-black-tree-node-red? (red-black-tree-node-left (red-black-tree-node-right node)))) (and (red-black-tree-node-right (red-black-tree-node-right node)) (red-black-tree-node-red? (red-black-tree-node-right (red-black-tree-node-right node)))))) (when (red-black-tree-node-red? node) (fuck-up)) (set-red-black-tree-node-red?! node #t) (set-red-black-tree-node-red?! (red-black-tree-node-left node) #f) (set-red-black-tree-node-red?! (red-black-tree-node-right node) #f) node) (else (cond ;; The left child and its right child are red. ((and (red-black-tree-node-left node) (red-black-tree-node-red? (red-black-tree-node-left node)) (red-black-tree-node-right (red-black-tree-node-left node)) (red-black-tree-node-red? (red-black-tree-node-right (red-black-tree-node-left node)))) (when (red-black-tree-node-red? node) (fuck-up)) (set-red-black-tree-node-left! node (left-rotate (red-black-tree-node-left node)))) ;; The right child and its left child are red. ((and (red-black-tree-node-right node) (red-black-tree-node-red? (red-black-tree-node-right node)) (red-black-tree-node-left (red-black-tree-node-right node)) (red-black-tree-node-red? (red-black-tree-node-left (red-black-tree-node-right node)))) (when (red-black-tree-node-red? node) (fuck-up)) (set-red-black-tree-node-right! node (right-rotate (red-black-tree-node-right node))))) (cond ;; The left child and its left child are red. ((and (red-black-tree-node-left node) (red-black-tree-node-red? (red-black-tree-node-left node)) (red-black-tree-node-left (red-black-tree-node-left node)) (red-black-tree-node-red? (red-black-tree-node-left (red-black-tree-node-left node)))) (when (red-black-tree-node-red? node) (fuck-up)) (set-red-black-tree-node-red?! (red-black-tree-node-left node) #f) (set-red-black-tree-node-red?! node #t) (right-rotate node)) ;; The right child and its right child are red. ((and (red-black-tree-node-right node) (red-black-tree-node-red? (red-black-tree-node-right node)) (red-black-tree-node-right (red-black-tree-node-right node)) (red-black-tree-node-red? (red-black-tree-node-right (red-black-tree-node-right node)))) (when (red-black-tree-node-red? node) (fuck-up)) (set-red-black-tree-node-red?! (red-black-tree-node-right node) #f) (set-red-black-tree-node-red?! node #t) (left-rotate node)) (else node))))))) (make-red-black-tree-node u i #f #f #t)))) (let ((node (type-set-red-black-tree-node w))) (when (and (red-black-tree-node-red? node) (or (and (red-black-tree-node-left node) (red-black-tree-node-red? (red-black-tree-node-left node))) (and (red-black-tree-node-right node) (red-black-tree-node-red? (red-black-tree-node-right node))))) (set-red-black-tree-node-red?! node #f)))) ;;; Type environment relations (define (escapes? u e) ;; It is possible to tighten the notion of escaping by requiring that U be ;; frobbed in the continuation of some call to E. For the types in question, ;; the notion of frobbing is: ;; (EQ? X1 X2) frobs all members of the type sets of X1 and X2 ;; (STRING-LENGTH X) frobs all string members of the type set of X ;; (STRING-REF X1 X2) frobs all string members of the type set of X1 ;; (STRING-SET! X1 X2 X3) frobs all string members of the type set of X1 ;; (VECTOR-LENGTH X) frobs all nondegenerate headed vector members of the ;; type set of X ;; (VECTOR-REF X1 X2) frobs all nondegenerate vector members of X1 ;; (VECTOR-SET! X1 X2 X3) frobs all nondegenerate vector members of X1 ;; ((PRIMITIVE-PROCEDURE STRUCTURE-REF FOO I) X) frobs all structure ;; members named FOO of the type set of X that have value ;; ((PRIMITIVE-PROCEDURE STRUCTURE-SET! FOO I) X1 X2) frobs all structure ;; members named FOO of the type set of X1 that have value ;; (C X) frobs all continuation members of the type set of C that have value ;; (X0 X1 ... XN) frobs all native procedure members of the type set of X0 ;; that have value and that can take N arguments. (not (not (memq u (environment-escaping-types e))))) ;;; Type-set creation (define *wi* #f) (define *ws* #f) (define *w1* #f) (define *w* #f) (define *void* #f) (define *null* #f) (define *input-port* #f) (define *output-port* #f) (define *foreign-char-type-set* #f) (define *foreign-fixnum-type-set* #f) (define *foreign-flonum-type-set* #f) (define *foreign-string-type-set* #f) (define *foreign-input-port-type-set* #f) (define *foreign-output-port-type-set* #f) (define *foreign-pointer-type-set* #f) (define (reinitialize-types-and-type-sets!) (set! *wi* 0) (set! *ws* '()) (for-each (lambda (x) (set-expression-continuation-type! x #f) (set-expression-string-type! x #f) (set-expression-structure-types! x '()) (set-expression-headed-vector-types! x '()) (set-expression-nonheaded-vector-types! x '())) *xs*) (set! 'null) (set! *null-type-used?* #f) (set! *null-type-use-count* 0) (set! 'true) (set! *true-type-used?* #f) (set! *true-type-use-count* 0) (set! 'false) (set! *false-type-used?* #f) (set! *false-type-use-count* 0) (set! 'char) (set! *char-type-used?* #f) (set! *char-type-use-count* 0) (set! 'fixnum) (set! *fixnum-type-used?* #f) (set! *fixnum-type-use-count* 0) (set! 'flonum) (set! *flonum-type-used?* #f) (set! *flonum-type-use-count* 0) (set! 'rectangular) (set! *rectangular-type-used?* #f) (set! *rectangular-type-use-count* 0) (set! 'input-port) (set! *input-port-type-used?* #f) (set! *input-port-type-use-count* 0) (set! 'output-port) (set! *output-port-type-used?* #f) (set! *output-port-type-use-count* 0) (set! 'eof-object) (set! *eof-object-type-used?* #f) (set! *eof-object-type-use-count* 0) (set! 'pointer) (set! *pointer-type-used?* #f) (set! *pointer-type-use-count* 0) (set! *internal-symbol-types* '()) (set! *external-symbol-types* '()) (set! *primitive-procedure-types* '()) (for-each (lambda (u) (set-native-procedure-type-used?! u #f)) *native-procedure-types*) (set! *foreign-procedure-types* '()) (set! *continuation-types* '()) (set! *string-types* '()) ;; The following is needed to reset the index cache. (set! #f) (set! ( #f)) (set! *structure-types* '()) (set! *headed-vector-types* '()) (set! *nonheaded-vector-types* '()) ;; The following is needed to reset the index cache. (set! #f) (set! ( (list ) #f)) (set! *displaced-vector-types* '()) ;; needs work: To enforce that ;; (NONHEADED-VECTOR-TYPE-ELEMENT ) ;; is never widened since ARGV will be passed a nonheaded vector ;; of strings. (set! *w1* (create-anonymous-type-set )) (set! *w* (create-anonymous-type-set)) (set! *void* (create-anonymous-type-set)) (set! *null* (create-anonymous-type-set )) (set! *input-port* (create-anonymous-type-set )) (set! *output-port* (create-anonymous-type-set )) (set! *foreign-char-type-set* (create-anonymous-type-set )) (set! *foreign-fixnum-type-set* (create-anonymous-type-set )) (set! *foreign-flonum-type-set* (create-anonymous-type-set )) (set! *foreign-string-type-set* (create-anonymous-type-set )) (set! *foreign-input-port-type-set* (create-anonymous-type-set )) (set! *foreign-output-port-type-set* (create-anonymous-type-set )) (set! *foreign-pointer-type-set* (create-anonymous-type-set ))) (define (create-type-set location) (when *types-frozen?* (fuck-up)) (let ((w (make-type-set location #f (unspecified) 0 *wi* 0))) (set-type-set-fictitious?! w #t) (set-type-set-link! w w) (set! *wi* (+ *wi* 1)) (set! *ws* (cons w *ws*)) w)) (define (create-anonymous-type-set . types) ;; This and are the only type and type-set creators that can ;; be called when types are frozen. (let ((w (make-type-set #f #f (unspecified) 0 (unused) 0))) ;; This is a real kludge. (set-type-set-fictitious?! w (and (<= (length types) 1) (every fictitious? types))) (for-each (lambda (u) (insert-member! u w)) types) w)) ;;; Type-set properties (define (type-set-alignment? w) (not (zero? (bit-and (type-set-booleans w) 64)))) (define (set-type-set-alignment?! w p?) (unless (boolean? p?) (fuck-up)) (set-type-set-booleans! w (if p? (bit-or (type-set-booleans w) 64) (bit-and (type-set-booleans w) (bit-not 64))))) (define (type-set-size? w) (not (zero? (bit-and (type-set-booleans w) 32)))) (define (set-type-set-size?! w p?) (unless (boolean? p?) (fuck-up)) (set-type-set-booleans! w (if p? (bit-or (type-set-booleans w) 32) (bit-and (type-set-booleans w) (bit-not 32))))) (define (type-set-marked? w) (not (zero? (bit-and (type-set-booleans w) 16)))) (define (set-type-set-marked?! w p?) (unless (boolean? p?) (fuck-up)) (set-type-set-booleans! w (if p? (bit-or (type-set-booleans w) 16) (bit-and (type-set-booleans w) (bit-not 16))))) (define (type-set-used? w) (not (zero? (bit-and (type-set-booleans w) 8)))) (define (set-type-set-used?! w p?) (unless (boolean? p?) (fuck-up)) (set-type-set-booleans! w (if p? (bit-or (type-set-booleans w) 8) (bit-and (type-set-booleans w) (bit-not 8))))) (define (type-set-squeezable? w) (not (zero? (bit-and (type-set-booleans w) 4)))) (define (set-type-set-squeezable?! w p?) (unless (boolean? p?) (fuck-up)) (set-type-set-booleans! w (if p? (bit-or (type-set-booleans w) 4) (bit-and (type-set-booleans w) (bit-not 4))))) (define (type-set-squishable? w) (not (zero? (bit-and (type-set-booleans w) 2)))) (define (set-type-set-squishable?! w p?) (unless (boolean? p?) (fuck-up)) (set-type-set-booleans! w (if p? (bit-or (type-set-booleans w) 2) (bit-and (type-set-booleans w) (bit-not 2))))) (define (type-set-fictitious? w) (not (zero? (bit-and (type-set-booleans w) 1)))) (define (set-type-set-fictitious?! w p?) (unless (boolean? p?) (fuck-up)) (set-type-set-booleans! w (if p? (bit-or (type-set-booleans w) 1) (bit-and (type-set-booleans w) (bit-not 1))))) (define (can-be? m w) (let loop ((node (type-set-red-black-tree-node w))) ;; conventions: NODE (and node (or (m (red-black-tree-node-type node)) (loop (red-black-tree-node-left node)) (loop (red-black-tree-node-right node)))))) (define (can-be-non? m w) (can-be? (lambda (u) (not (m u))) w)) (define (must-be? m w) (not (can-be-non? m w))) (define (void? w) (not (type-set-red-black-tree-node w))) (define (monomorphic? w) ;; This really shouldn't be called until after APPLY-CLOSED-WORLD-ASSUMPTION! ;; is called since all of the multiple members might turn out to be the same. (and (type-set-red-black-tree-node w) (not (red-black-tree-node-left (type-set-red-black-tree-node w))) (not (red-black-tree-node-right (type-set-red-black-tree-node w))))) (define (multimorphic? w) ;; This really shouldn't be called until after APPLY-CLOSED-WORLD-ASSUMPTION! ;; is called since all of the multiple members might turn out to be the same. (and (type-set-red-black-tree-node w) (or (red-black-tree-node-left (type-set-red-black-tree-node w)) (red-black-tree-node-right (type-set-red-black-tree-node w))))) (define (fake? w) (and (or (void? w) (monomorphic? w)) (must-be? fictitious? w))) ;;; Type-set functions (define (the-member w) (unless (monomorphic? w) (fuck-up)) (red-black-tree-node-type (type-set-red-black-tree-node w))) (define (the-member-that m w) (let ((us (members-that m w))) (unless (= (length us) 1) (fuck-up)) (first us))) (define (members w) (let ((us '())) (let loop ((node (type-set-red-black-tree-node w))) ;; conventions: NODE (when node (loop (red-black-tree-node-right node)) (set! us (cons (red-black-tree-node-type node) us)) (loop (red-black-tree-node-left node)))) us)) (define (members-that m w) (remove-if-not m (members w))) ;;; Type-set procedures (define (for-each-member p w) (let loop ((node (type-set-red-black-tree-node w))) ;; conventions: NODE (when node (p (red-black-tree-node-type node)) (loop (red-black-tree-node-left node)) (loop (red-black-tree-node-right node))))) (define (set-members! w us) (set-type-set-red-black-tree-node! w #f) (for-each (lambda (u) (insert-member! u w)) us)) ;;; Type-set type-set relations (define (subtype-set? w1 w2) (must-be? (lambda (u1) (member? u1 w2)) w1)) ;;; Variable creation (define *gi* #f) (define *gs* #f) (define (initialize-variables!) (set! *gi* 0) (set! *gs* '())) (define (create-variable s/g) (let ((g (cond ((s-expression? s/g) (make-variable (s-expression-version s/g) (s-expression-cursor s/g) (s-expression-pathname s/g) (s-expression-line-position s/g) (s-expression-character-position s/g) (s-expression-character-position-within-line s/g) *gi* (s-expression-datum s/g) (unspecified) (unspecified) '() '() '() 0)) ((variable? s/g) (make-variable (variable-version s/g) (variable-cursor s/g) (variable-pathname s/g) (variable-line-position s/g) (variable-character-position s/g) (variable-character-position-within-line s/g) *gi* (variable-name s/g) (unspecified) (unspecified) '() '() '() 0)) (else (fuck-up))))) (set! *gi* (+ *gi* 1)) (set! *gs* (cons g *gs*)) g)) ;;; Variable properties (define (variable-accessed? g) (not (zero? (bit-and (variable-booleans g) 32)))) (define (set-variable-accessed?! g p?) (unless (boolean? p?) (fuck-up)) (set-variable-booleans! g (if p? (bit-or (variable-booleans g) 32) (bit-and (variable-booleans g) (bit-not 32))))) (define (variable-assigned? g) (not (zero? (bit-and (variable-booleans g) 16)))) (define (set-variable-assigned?! g p?) (unless (boolean? p?) (fuck-up)) (set-variable-booleans! g (if p? (bit-or (variable-booleans g) 16) (bit-and (variable-booleans g) (bit-not 16))))) (define (variable-local? g) (not (zero? (bit-and (variable-booleans g) 8)))) (define (set-variable-local?! g p?) (unless (boolean? p?) (fuck-up)) (set-variable-booleans! g (if p? (bit-or (variable-booleans g) 8) (bit-and (variable-booleans g) (bit-not 8))))) (define (variable-global? g) (not (zero? (bit-and (variable-booleans g) 4)))) (define (set-variable-global?! g p?) (unless (boolean? p?) (fuck-up)) (set-variable-booleans! g (if p? (bit-or (variable-booleans g) 4) (bit-and (variable-booleans g) (bit-not 4))))) (define (variable-hidden? g) (not (zero? (bit-and (variable-booleans g) 2)))) (define (set-variable-hidden?! g p?) (unless (boolean? p?) (fuck-up)) (set-variable-booleans! g (if p? (bit-or (variable-booleans g) 2) (bit-and (variable-booleans g) (bit-not 2))))) (define (variable-slotted? g) (not (zero? (bit-and (variable-booleans g) 1)))) (define (set-variable-slotted?! g p?) (unless (boolean? p?) (fuck-up)) (set-variable-booleans! g (if p? (bit-or (variable-booleans g) 1) (bit-and (variable-booleans g) (bit-not 1))))) (define (variable-used? g) (called? (variable-environment g))) (define (defined-at-top-level? g) (or (and (not (empty? (parent (variable-environment g)))) (empty? (parent (parent (variable-environment g)))) (let? (variable-environment g))) (and (not (empty? (parent (variable-environment g)))) (not (empty? (parent (parent (variable-environment g))))) (empty? (parent (parent (parent (variable-environment g))))) (let? (variable-environment g)) (let? (parent (variable-environment g)))) (and (not (empty? (parent (variable-environment g)))) (not (empty? (parent (parent (variable-environment g))))) (not (empty? (parent (parent (parent (variable-environment g)))))) (empty? (parent (parent (parent (parent (variable-environment g)))))) (let? (variable-environment g)) (let? (parent (variable-environment g))) (let? (parent (parent (variable-environment g))))) (and (not (empty? (parent (variable-environment g)))) (not (empty? (parent (parent (variable-environment g))))) (not (empty? (parent (parent (parent (variable-environment g)))))) (not (empty? (parent (parent (parent (parent (variable-environment g))))))) (empty? (parent (parent (parent (parent (parent (variable-environment g))))))) (let? (variable-environment g)) (let? (parent (variable-environment g))) (let? (parent (parent (variable-environment g)))) (let? (parent (parent (parent (variable-environment g)))))))) (define (accessed? g) (if *during-closure-conversion?* (case *closure-conversion-method* ((baseline) #t) ((conventional) (or (defined-at-top-level? g) (not (null? (accesses g))))) ((lightweight) (variable-accessed? g)) (else (fuck-up))) (variable-accessed? g))) (define (assigned? g) (if *during-closure-conversion?* (case *closure-conversion-method* ((baseline) #t) ((conventional) (or (defined-at-top-level? g) (not (null? (assignments g))))) ((lightweight) (variable-assigned? g)) (else (fuck-up))) (variable-assigned? g))) (define (accesses g) (remove-if-not reached? (variable-accesses g))) (define (assignments g) ;; needs work: Should this be EXECUTED?? (remove-if-not reached? (variable-assignments g))) (define (references g) ;; needs work: Should this be EXECUTED? for assignments? (remove-if-not reached? (variable-references g))) (define (must-alias? g/u) ;; needs work: This is not memoized but should be. (cond ((variable? g/u) (and (not (and (accessed? g/u) ;This is just an optimization. ;; (\exists e\in A\cup S) (some (lambda (x) (and ;; \NONTRIVIALREFERENCE{e} (nontrivial-reference? x) ;; (\exists p\in P) (let loop? ((e (expression-environment x))) ;; \PROPERLYNESTEDIN{p}{p(x)} (and (not (eq? e (variable-environment g/u))) (or ;; This can't require (NOT (FICTITIOUS? (ENVIRONMENT-TYPE E))) ;; because then X{645} in test32.sc unsoundly becomes local ;; and Y{645} in test33.sc and Y{647} in test34.sc unsoundly ;; become global. ;; \ESCAPES{p}{p(x)} (escapes? (environment-type e) (variable-environment g/u)) ;; \NESTEDIN{p(e)}{p} (loop? (parent e))))))) ;; x(e)=x (references g/u)))) (not (and (accessed? g/u) ;This is just an optimization. ;; \PROPERLYCALLS{p(x)}{p(x)} (recursive? (variable-environment g/u)) (begin (for-each (lambda (e) (set-environment-marked1?! e #f)) *es*) (unmark-types-and-type-sets!) ;; \NESTEDIN{p(x)}{p(x(e'))} (let loop ((e (variable-environment g/u))) (unless (empty? e) (set-environment-marked1?! e #t) (loop (parent e)))) ;; \NESTEDIN{p(e')}{p(x)} (let loop ((e (variable-environment g/u))) (for-each (lambda (x) (case (expression-kind x) ;; (\exists e'\in A) ((access) (when (environment-marked1? (variable-environment (expression-variable x))) ;; \POINTSTO{\alpha(e')}{p} ;; This is done just for side effect, to set the MARKED? ;; bits. (for-each-pointed-to-type (lambda (u) #f) (expression-type-set x)))) ((lambda converted-lambda converted-continuation) (when (environment-used? (expression-lambda-environment x)) (loop (expression-lambda-environment x)))))) (environment-expressions e))) ;; This is done just for side effect, to set the MARKED1? bits. ;; \PROPERLYCALLS{p(x)}{p} (some-proper-callee (lambda (e) #f) environment-marked1? set-environment-marked1?! (variable-environment g/u)) ;; (\exists e\in A\cup S) (some (lambda (x) (and ;; \NONTRIVIALREFERENCE{e} (nontrivial-reference? x) ;; (\exists p\in P) (let loop? ((e (expression-environment x))) (and ;; \PROPERLYNESTEDIN{p}{p(x(e))} (not (eq? e (variable-environment g/u))) ;; \PROPERLYCALLS{p(x)}{p} (environment-marked1? e) ;; (\exists e'\in A) ;; \NESTEDIN{p(e')}{\NESTEDIN{p(x)}{p(x(e'))}} (or ;; \POINTSTO{\alpha(e')}{p} (native-procedure-type-marked? (environment-type e)) ;; \NESTEDIN{p(e)}{p} (loop? (parent e))))))) ;; x(e)=x (references g/u))))))) ((native-procedure-type? g/u) (and (not (some (lambda (e) (and ;; note: We don't have \TYPEPREDICATEACCESSED{p}. ;; \PROCEDUREACCESSED{p} (environment-accessed? e) ;; \ESCAPES{p}{\PARENTPARAMETER{p}} (some (lambda (e) (escapes? g/u e)) (ancestors e)))) (narrow-clones g/u))) (not (and ;; This is just an optimization. (some (lambda (u/w) (and (type-set? u/w) (monomorphic? u/w) (variable? (type-set-location u/w)) (accessed? (type-set-location u/w)))) (types-and-type-sets-that-directly-point-to g/u)) (not (fictitious? g/u)) ;This is just an optimization. ;; \POINTSTO{\alpha(e')}{p} (let ((xs '())) (unmark-types-and-type-sets!) (let loop ((u g/u)) (unless (type-marked? u) (set-type-marked?! u #t) (for-each (lambda (u/w) (cond ((type-set? u/w) (unless (type-set-marked? u/w) (set-type-set-marked?! u/w #t) (cond ((type? (type-set-location u/w)) (loop (type-set-location u/w))) ((and (expression? (type-set-location u/w)) ;; e'\in A (eq? (expression-kind (type-set-location u/w)) 'access)) (set! xs (cons (type-set-location u/w) xs)))))) ((type? u/w) (loop u/w)) (else (fuck-up)))) (types-and-type-sets-that-directly-point-to u)))) (some (lambda (e) (and (environment-used? e) ;This is just an optimization. ;; (\exists e\in C) (some (lambda (y) (or ;; For now, punt on any procedure with an implicit call site and ;; treat it as if it were referenced recursively. This won't ;; affect the top-level call site because the top-level procedure ;; is never bound to a variable and thus never bound to a hidden ;; variable. This will, however, mean that any variables that are ;; bound to a procedure that has first-argument and ;; continuation-argument call sites will not be hidden. (not (explicit-call-site? y)) (begin ;; This is done just for side effect, to set the MARKED1? bits. ;; \CALLS{p'}{p(e)} (some-caller (lambda (e) #f) environment-marked1? set-environment-marked1?! (expression-environment (call-site-expression y))) ;; (\exists e'\in A) (some (lambda (x) ;; (\exists p'\in P) (let loop? ((e1 (expression-environment x))) (and ;; \PROPERLYCALLS{p'}{p'} (recursive? e1) (or (and ;; \CALLS{p'}{p(e)} (environment-marked1? e1) ;; \NESTEDIN{\PARENTPARAMETER{p}}{p'} (begin (for-each (lambda (e) (set-environment-marked2?! e #f)) *es*) (let loop ((e e1)) (when (environment-used? e) (set-environment-marked2?! e #t) (for-each (lambda (x) (case (expression-kind x) ((lambda converted-lambda converted-continuation) (loop (expression-lambda-environment x))))) (environment-expressions e)))) (some (lambda (e) (and (environment-used? e) (some environment-marked2? (ancestors e)))) (narrow-clones g/u)))) (and ;; \NESTEDIN{p'}{p(x(e'))} (not (eq? e1 (variable-environment (expression-variable x)))) ;; \NESTEDIN{p(e')}{p'} (loop? (parent e1))))))) ;; \POINTSTO{\alpha(e')}{p} xs)))) ;; \DIRECTLYCALLS{e}{p} (call-sites e)))) (narrow-clones g/u))))))) ((continuation-type? g/u) (and (not (and ;; note: We don't have \TYPEPREDICATEACCESSED{\sigma}. ;; \CONTINUATIONACCESSED{\sigma} (continuation-type-continuation-accessed? g/u) ;; (\exists\CANBE{\alpha(\ARGUMENT{1}{e(\sigma)})}{p}) (can-be? (lambda (u1) (and ;; p\in P (native-procedure-type? u1) (some (lambda (e) ;; needs work: Doesn't handle varargs. (when (rest? e) (unimplemented #f "unimplemented")) (and ;; \CANBE{\alpha(\PARAMETER{1}{p})}{\sigma} (member? g/u (first-parameter-type-set (environment-expression e))) ;; \ESCAPES{\sigma}{p} (escapes? g/u e))) (narrow-clones u1)))) (expression-type-set (first-argument (continuation-type-allocating-expression g/u)))))) (not (and ;; note: We don't have \TYPEPREDICATEACCESSES{e}{\sigma}. ;; This is just an optimization. (continuation-type-continuation-accessed? g/u) (begin ;; This is done just for side effect, to set the MARKED2? bits. ;; \PROPERLYCALLS{p(e(\sigma))}{p} (some-proper-callee (lambda (e) #f) environment-marked1? set-environment-marked1?! (expression-environment (continuation-type-allocating-expression g/u))) ;; \PROPERLYCALLS{p}{p(e(\sigma)){p}} (some-proper-caller (lambda (e) #f) environment-marked2? set-environment-marked2?! (expression-environment (continuation-type-allocating-expression g/u))) ;; \PROPERLYCALLS{p}{\PROPERLYCALLS{p(e(\sigma))}{p}} (for-each (lambda (e) (unless (environment-marked1? e) (set-environment-marked2?! e #f))) *es*) (let ((xs '())) ;; \NESTEDIN{p(e(\sigma))}{p(x(e'))} (let loop ((e (expression-environment (continuation-type-allocating-expression g/u)))) (unless (empty? e) (for-each (lambda (g) (for-each (lambda (x) ;; \POINTSTO{\alpha(e')}{\sigma} (when (points-to? (expression-type-set x) g/u) (set! xs (cons x xs)))) ;; (\exists e'\in A) (accesses g))) (variables e)) (loop (parent e)))) ;; (\exists e\in C) (some (lambda (y) ;; needs work: Doesn't handle implicit continuation calls. (unless (explicit-call-site? y) (unimplemented y "unimplemented")) ;; (\exists\CANBE{\alpha(\ARGUMENT{1}{e(\sigma)})}{p}) (some (lambda (e) (and (environment-marked2? e) (member? (environment-type e) (expression-type-set (first-argument (continuation-type-allocating-expression g/u)))) (some (lambda (x) ;; \PROPERLYNESTEDIN{p}{p(x(e'))} (properly-nested-in? e (variable-environment (expression-variable x)))) xs))) ;; \CALLS{p}{p(e)} (callers (expression-environment (call-site-expression y))))) ;; \CONTINUATIONACCESSES{e}{\sigma} (continuation-type-call-sites g/u)))))))) (else (fuck-up)))) (define (localizable? g) ;; needs work: This is not memoized but should be. (case *closure-conversion-method* ((baseline) #f) ((conventional) (not (some free-reference? (references g)))) ((lightweight) (and (or (not (accessed? g)) ;This is just an optimization. (every (lambda (x) (or (not (nontrivial-reference? x)) (in-lined-in? x (variable-environment g)))) (references g))) (must-alias? g))) (else (fuck-up)))) (define (globalizable? g) ;; needs work: This is not memoized but should be. (case *closure-conversion-method* ((baseline) #f) ((conventional) (and (or (not (empty? (parent (variable-environment g)))) (= (length (variables (variable-environment g))) 1) (not (eq? g (first (variables (variable-environment g)))))) (let loop ((e (variable-environment g))) (or (empty? (parent e)) (and (let? e) (loop (parent e))))))) ((lightweight) (or (not (called-more-than-once? (variable-environment g))) (and (not (reentrant? (variable-environment g))) (must-alias? g)))) (else (fuck-up)))) (define (hideable? g) ;; needs work: This is not memoized but should be. (case *closure-conversion-method* ((baseline conventional) #f) ((lightweight) (and (accessed? g) ;This is just an optimization. (monomorphic? (variable-type-set g)) (native-procedure-type? (the-member (variable-type-set g))) ;; The paper doesn't contain this. This is here because we don't ;; compute ANCESTOR? for unused environments. (environment-used? (the-member (variable-type-set g))) (every (lambda (x) (or (not (nontrivial-reference? x)) (every (lambda (e1) ;; The paper doesn't contain this. This is here because ;; we don't compute ANCESTOR? for unused environments. (or (not (environment-used? e1)) (every (lambda (e2) (nested-in? (expression-environment x) e2)) (ancestors e1)))) (narrow-clones (the-member (variable-type-set g)))))) (accesses g)) (must-alias? (the-member (variable-type-set g))))) (else (fuck-up)))) (define (local? g) (variable-local? g)) (define (determine-whether-local? g) (if *globals?* (and (accessed? g) (not (fictitious? (variable-type-set g))) (localizable? g) (not (global? g))) (and (accessed? g) (not (fictitious? (variable-type-set g))) (localizable? g)))) (define (infer-all-whether-local?! p?) (when *p7?* (notify "Determining whether variables are local")) (for-each (lambda (g) (cond ((local? g) (when (and p? (not (determine-whether-local? g))) (fuck-up))) ((determine-whether-local? g) (set-variable-local?! g #t) (when *p7?* (notify " ~a{~s} is local" (variable-name g) (variable-index g))) (set! *again?* #t)))) *gs*)) (define (global? g) (variable-global? g)) (define (determine-whether-global? g) (if *globals?* (and (accessed? g) (not (fictitious? (variable-type-set g))) (globalizable? g)) (and (accessed? g) (not (fictitious? (variable-type-set g))) (globalizable? g) (not (local? g))))) (define (infer-all-whether-global?! p?) (when *p7?* (notify "Determining whether variables are global")) (for-each (lambda (g) (cond ((global? g) (when (and p? (not (determine-whether-global? g))) (fuck-up))) ((determine-whether-global? g) (set-variable-global?! g #t) (when *p7?* (notify " ~a{~s} is global" (variable-name g) (variable-index g))) (set! *again?* #t)))) *gs*)) (define (hidden? g) (variable-hidden? g)) (define (determine-whether-hidden? g) (and (accessed? g) (not (fictitious? (variable-type-set g))) (hideable? g) (not (local? g)) (not (global? g)))) (define (infer-all-whether-hidden?! p?) (when *p7?* (notify "Determining whether variables are hidden")) (for-each (lambda (g) (cond ((hidden? g) (when (and p? (not (determine-whether-hidden? g))) (fuck-up))) ((determine-whether-hidden? g) (set-variable-hidden?! g #t) (when *p7?* (notify " ~a{~s} is hidden" (variable-name g) (variable-index g))) (set! *again?* #t)))) *gs*)) (define (slotted? g) (variable-slotted? g)) (define (determine-whether-slotted? g) (and (accessed? g) (not (fictitious? (variable-type-set g))) (not (local? g)) (not (global? g)) (not (hidden? g)))) (define (infer-all-whether-slotted?! p?) (when *p7?* (notify "Determining whether variables are slotted")) (for-each (lambda (g) (cond ((slotted? g) (when (and p? (not (determine-whether-slotted? g))) (fuck-up))) ((determine-whether-slotted? g) (set-variable-slotted?! g #t) (when *p7?* (notify " ~a{~s} is slotted" (variable-name g) (variable-index g))) (set! *again?* #t)))) *gs*)) ;;; Environment creation (define *ei* #f) (define *es* #f) (define *es0* #f) (define (initialize-environments!) (set! *ei* 0) (set! *es* '()) (set! *es0* '())) (define (create-environment v f) ;; conventions: V F (let ((e (make-environment *ei* (unspecified) (if v (if (symbol? v) (string-append (symbol->string v) "[" (number->string *ei*) "]") (string-append "[clone " v " " (number->string *ei*) "]")) (string-append "[inside " f " " (number->string *ei*) "]")) #f '() (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) 0))) (set! *ei* (+ *ei* 1)) (set! *es* (cons e *es*)) (set-environment-narrow-prototype! e e) (set-environment-narrow-clones! e (list e)) (set-environment-wide-prototype! e e) e)) ;;; Environment properties (define (environment-marked1? e) (not (zero? (bit-and (environment-booleans e) 1024)))) (define (set-environment-marked1?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 1024) (bit-and (environment-booleans e) (bit-not 1024))))) (define (environment-marked2? e) (not (zero? (bit-and (environment-booleans e) 512)))) (define (set-environment-marked2?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 512) (bit-and (environment-booleans e) (bit-not 512))))) (define (environment-passes-parameters-globally? e) (not (zero? (bit-and (environment-booleans e) 256)))) (define (set-environment-passes-parameters-globally?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 256) (bit-and (environment-booleans e) (bit-not 256))))) (define (environment-has-region? e) (not (zero? (bit-and (environment-booleans e) 128)))) (define (set-environment-has-region?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 128) (bit-and (environment-booleans e) (bit-not 128))))) (define (environment-has-nonatomic-region? e) (not (zero? (bit-and (environment-booleans e) 64)))) (define (set-environment-has-nonatomic-region?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 64) (bit-and (environment-booleans e) (bit-not 64))))) (define (environment-recursive? e) (not (zero? (bit-and (environment-booleans e) 32)))) (define (set-environment-recursive?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 32) (bit-and (environment-booleans e) (bit-not 32))))) (define (environment-reentrant? e) (not (zero? (bit-and (environment-booleans e) 16)))) (define (set-environment-reentrant?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 16) (bit-and (environment-booleans e) (bit-not 16))))) (define (environment-called-more-than-once? e) (not (zero? (bit-and (environment-booleans e) 8)))) (define (set-environment-called-more-than-once?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 8) (bit-and (environment-booleans e) (bit-not 8))))) (define (environment-has-external-self-tail-call? e) (not (zero? (bit-and (environment-booleans e) 4)))) (define (set-environment-has-external-self-tail-call?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 4) (bit-and (environment-booleans e) (bit-not 4))))) (define (environment-has-external-continuation-call? e) (not (zero? (bit-and (environment-booleans e) 2)))) (define (set-environment-has-external-continuation-call?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 2) (bit-and (environment-booleans e) (bit-not 2))))) (define (environment-has-closure? e) (not (zero? (bit-and (environment-booleans e) 1)))) (define (set-environment-has-closure?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 1) (bit-and (environment-booleans e) (bit-not 1))))) (define (environment-used? e) (and (called? e) (not (noop? e)))) (define (environment-accessed? e) (environment-used? e)) (define (has-region? e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-has-region? e)) (define (has-nonatomic-region? e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-has-nonatomic-region? e)) (define (recursive? e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-recursive? e)) (define (reentrant? e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-reentrant? e)) (define (called-more-than-once? e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-called-more-than-once? e)) (define (has-external-self-tail-call? e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-has-external-self-tail-call? e)) (define (has-external-continuation-call? e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-has-external-continuation-call? e)) (define (has-closure? e) (when (empty? e) (fuck-up)) (environment-has-closure? e)) (define (determine-whether-has-closure? e) ;; note: It should never happen that an environment doesn't have a closure ;; yet has hidden variables that hide as that environment. (some slotted? (variables e))) (define (infer-all-whether-has-closure?! p?) (when *p7?* (notify "Determining whether environments have closures")) (for-each (lambda (e) (cond ((has-closure? e) (when (and p? (not (determine-whether-has-closure? e))) (fuck-up))) ((determine-whether-has-closure? e) (set-environment-has-closure?! e #t) (when *p7?* (notify " ~a has a closure" (environment-name e))) (set! *again?* #t)))) *es*)) (define (empty? e) (eq? e #f)) (define (in-lined-in-recursive? e) (or (recursive? e) (and (unique-call-site? e) (in-lined-in-recursive? (expression-environment (call-site-expression (unique-call-site e))))))) (define (has-parent-slot? e) (not (empty? (parent-slot e)))) (define (unique-call-site? e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (and (= (length (environment-non-self-tail-call-sites e)) 1) (not (top-level-call-site? (unique-call-site e))))) (define (has-self-tail-call? e) (some (lambda (y) (and (not (top-level-call-site? y)) (can-be-self-tail-call-to? y e))) (call-sites e))) (define (converted-continuation? e) (eq? (expression-kind (environment-expression e)) 'converted-continuation)) (define (has-alloca? e) ;; note: This might not be the correct way to write this. I've been away from ;; this code for a while I don't remember what the correct way is. (when (unique-call-site? e) (fuck-up)) (or (some (lambda (x) (and (executed? x) (in-lined-in? (expression-environment x) e) (some (lambda (u-e) (and (type-used? (car u-e)) (stack-allocation? (cdr u-e)))) (expression-type-allocation-alist x)))) *calls*) (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((immediate-display) (unimplemented #f "Immediate display closures are not (yet) implemented")) ((indirect-flat) (unimplemented #f "Indirect flat closures are not (yet) implemented")) ((indirect-display) (unimplemented #f "Indirect display closures are not (yet) implemented")) ((linked) (some (lambda (e1) (and (called? e1) (in-lined-in? e1 e) (stack-allocation? (allocation e1)))) *es*)) (else (fuck-up))))) (define (has-setjmp? e) ;; note: This might not be the correct way to write this. I've been away from ;; this code for a while I don't remember what the correct way is. (when (unique-call-site? e) (fuck-up)) (some (lambda (x) (and (environment-used? (expression-environment x)) (in-lined-in? (expression-environment x) e) ;; needs work: This doesn't handle calls to CALL/CC via CALL/CC, ;; APPLY, FORK, or MUTEX. And it doesn't handle ;; CALL/CC calling a continuation. (or (and (eq? (expression-kind x) 'call) (= (length (expression-arguments x)) 1)) (and (eq? (expression-kind x) 'converted-call) (= (length (expression-arguments x)) 2))) (can-be? (primitive-procedure-type-named? 'call-with-current-continuation) (expression-type-set (expression-callee x))) (can-be? (lambda (u) (and (native-procedure-type? u) (callee-environment? u (recreate-call-site (create-call-site x) 'first-argument)) (can-be-non? fictitious? (first-parameter-type-set (callee-environment u (recreate-call-site (create-call-site x) 'first-argument)))))) (expression-type-set (first-argument x))))) *calls*)) ;;; Environment functions (define (call-sites e) (when (empty? e) (fuck-up)) (environment-call-sites e)) (define (allocation e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-allocation e)) (define (distance-from-root e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-distance-from-root e)) (define (free-variables e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-free-variables e)) (define (quick-parent e) (when (or (empty? e) (not (called? e))) (fuck-up)) (environment-quick-parent e)) (define (parent-slot e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-parent-slot e)) (define (descendents e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-descendents e)) (define (in-lined-environments e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (cons e (environment-properly-in-lined-environments e))) (define (properly-in-lined-environments e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-properly-in-lined-environments e)) (define (unique-call-site e) (when (or (empty? e) (not (environment-used? e)) (not (= (length (environment-non-self-tail-call-sites e)) 1))) (fuck-up)) (first (environment-non-self-tail-call-sites e))) (define (infer-all-unique-call-site!) (when *p7?* (notify "Determining unique call sites")) (for-each (lambda (e) (when (environment-used? e) (let* ((ys0 (environment-non-self-tail-call-sites e)) (ys1 (remove-if-not (lambda (y) (or (top-level-call-site? y) (not (can-be-self-tail-call-to? y e)))) ys0))) (when (< (length ys1) (length ys0)) (set-environment-non-self-tail-call-sites! e ys1) (when (and *p7?* (= (length ys1) 1)) (notify " Determined the unique call site of ~a" (environment-name e))) (set! *again?* #t))))) *es*)) (define (parent e) (expression-environment (environment-expression e))) (define (first-parameter-type-set e) (when (rest? e) (fuck-up)) (if (converted? e) ;; needs work: I'm not sure this is correct. (variable-type-set (second (variables e))) (variable-type-set (first (variables e))))) (define (return-type-set e) (when (empty? e) (fuck-up)) ;; note: Nonconverted continuations never return. (if (noop? e) *void* (expression-type-set (expression-body (environment-expression e))))) (define (environment-type e) (the-member (expression-type-set (environment-expression e)))) (define (home e) (if (unique-call-site? e) (home (expression-environment (call-site-expression (unique-call-site e)))) e)) (define (lexical-nesting-depth e) (if (empty? (parent e)) 0 (+ (lexical-nesting-depth (parent e)) 1))) (define (non-let-lexical-nesting-depth e) (cond ((empty? (parent e)) 0) ((let? (parent e)) (non-let-lexical-nesting-depth (parent e))) (else (+ (non-let-lexical-nesting-depth (parent e)) 1)))) ;;; Environment environment relations (define (ancestor? e1 e2) (when (or (empty? e1) (not (environment-used? e1)) (empty? e2) (not (environment-used? e2))) (fuck-up)) (not (not (memq e1 (ancestors e2))))) (define (determine-whether-ancestor? e1 e2) (or (some (lambda (g) (or (and (eq? e1 (variable-environment g)) (slotted? g)) (and (hidden? g) (some (lambda (e) (and ;; The paper doesn't contain this. This is here ;; because we don't compute ANCESTOR? for unused ;; environments. (environment-used? e) (ancestor? e1 e))) (narrow-clones (the-member (variable-type-set g))))))) (free-variables e2)) (some (lambda (g) (and (hidden? g) (some (lambda (e) (and ;; The paper doesn't contain this. This is here because we ;; don't compute ANCESTOR? for unused environments. (environment-used? e) (ancestor? e1 e))) (narrow-clones (the-member (variable-type-set g)))))) (variables e2)))) (define (infer-all-whether-ancestor?! p?) (when *p7?* (notify "Determining whether environments are ancestors of other environments")) (for-each (lambda (e2) (when (environment-used? e2) (let loop ((e1 (quick-parent e2))) (unless (empty? e1) (cond ((ancestor? e1 e2) (when (and p? (not (determine-whether-ancestor? e1 e2))) (fuck-up))) ((determine-whether-ancestor? e1 e2) (set-environment-ancestors! e2 (cons e1 (ancestors e2))) (when #f ;debugging (when *p7?* (notify " ~a is an ancestor of ~a" (environment-name e1) (environment-name e2)))) (set! *again?* #t))) (loop (quick-parent e1)))))) *es*)) (define (nested-in? e1 e2) ;; The NESTED-IN? relation is reflexive. (or (eq? e1 e2) (and (not (empty? e1)) (nested-in? (parent e1) e2)))) (define (properly-nested-in? e1 e2) ;; The PROPERLY-NESTED-IN? relation is irreflexive. (and (not (eq? e1 e2)) (nested-in? e1 e2))) ;;; Call-site creation (define *y* #f) (define *ys* #f) (define (create-call-site expression) (unless expression (fuck-up)) (make-call-site expression '())) (define (recreate-call-site y p) ;; conventions: P (unless (and (not (top-level-call-site? y)) (or (eq? p 'first-argument) (eq? p 'second-argument) (eq? p 'continuation-argument)) (or (null? (call-site-offsets y)) (eq? (first (call-site-offsets y)) 'first-argument) (eq? (first (call-site-offsets y)) 'second-argument))) (fuck-up)) (make-call-site (call-site-expression y) (cons p (call-site-offsets y)))) ;;; Call-site properties (define (top-level-call-site? y) (eq? y *y*)) (define (explicit-call-site? y) (and (not (top-level-call-site? y)) (null? (call-site-offsets y)))) (define (first-argument-call-site? y) (and (not (top-level-call-site? y)) (not (explicit-call-site? y)) (eq? (first (call-site-offsets y)) 'first-argument))) (define (second-argument-call-site? y) (and (not (top-level-call-site? y)) (not (explicit-call-site? y)) (eq? (first (call-site-offsets y)) 'second-argument))) (define (continuation-argument-call-site? y) (and (not (top-level-call-site? y)) (not (explicit-call-site? y)) (eq? (first (call-site-offsets y)) 'continuation-argument))) (define (purely-tail-call-site? y) ;; Common wisdom is that the notion of tail call is syntactic, i.e. a call in ;; tail position. But this contradicts the common wisdom that calls to ;; continuations are tail calls. Because a call to a continuation might be ;; from a non-tail position. And such a call site might be multimorphic so ;; might be both a tail-call site and a non-tail-call site. So much for common ;; wisdom. ;; APPLY and CALL-WITH-CURRENT-CONTINUATION tail call their first argument if ;; they themselves are tail calls. And implicit continuation calls are always ;; tail calls. ;; needs work: Calls to the first and second arguments of FORK and the first ;; argument of MUTEX are not tail calls. (or (top-level-call-site? y) (continuation-argument-call-site? y) (let ((x (call-site-expression y))) (and (or (eq? (expression-kind x) 'call) (eq? (expression-kind x) 'converted-call)) ;; needs work: A call in the source of a SET! to a non-accessed, ;; fictitious, or hidden variable can be a pure tail call if ;; the SET! is in tail position. (or (must-be? (lambda (u) (or (continuation-type? u) (not (executed? x)) (not ((truly-compatible-call? x) u)))) (expression-type-set (expression-callee x))) (let loop? ((x x)) (or (and (eq? (expression-kind (expression-parent x)) 'if) (or (eq? x (expression-consequent (expression-parent x))) (eq? x (expression-alternate (expression-parent x)))) (loop? (expression-parent x))) (or (eq? (expression-kind (expression-parent x)) 'lambda) (eq? (expression-kind (expression-parent x)) 'converted-lambda) (eq? (expression-kind (expression-parent x)) 'converted-continuation))))))))) (define (nonmerged-tail-recursive-purely-tail-call-site? y) (and (purely-tail-call-site? y) (some (lambda (e) (and (environment-marked1? e) (can-be-call-to? y e) (or (not (unique-call-site? e)) (not (same-call-site? y (unique-call-site e)))) (not (can-be-self-tail-call-to? y e)))) (proper-tail-callers (expression-environment (call-site-expression y)))))) ;;; Call-site functions (define (nonmerged-tail-recursive-purely-tail-call-site-callees y) (remove-if-not (lambda (e) (and (can-be-call-to? y e) (or (not (unique-call-site? e)) (not (same-call-site? y (unique-call-site e)))) (not (can-be-self-tail-call-to? y e)))) (proper-tail-callers (expression-environment (call-site-expression y))))) (define (call-site-callee y) (when (> (length (call-site-offsets y)) 1) (unimplemented y "unimplemented")) (cond ((explicit-call-site? y) (expression-callee (call-site-expression y))) ((first-argument-call-site? y) (first-argument (call-site-expression y))) ((second-argument-call-site? y) (second-argument (call-site-expression y))) ((continuation-argument-call-site? y) (continuation-argument (call-site-expression y))) (else (fuck-up)))) ;;; Call-site call-site relations (define (same-call-site? y1 y2) (or (and (top-level-call-site? y1) (top-level-call-site? y2)) (and (not (top-level-call-site? y1)) (not (top-level-call-site? y2)) (eq? (call-site-expression y1) (call-site-expression y2)) (equal? (call-site-offsets y1) (call-site-offsets y2))))) ;;; Call-site environment relations (define (can-be-call-to? y e) (not (not (memp same-call-site? y (call-sites e))))) (define (can-be-self-tail-call-to? y e) ;; needs work: This is not memoized but should be. ;; note: Self tail calls need not be just to the immediately enclosing ;; procedure but to any procedure that that is in-lined in. (and (not (noop? e)) (can-be-call-to? y e) (tail-call? y e) ;; This assumes that the IN-LINED-IN? relation is reflexive. (in-lined-in? (call-site-expression y) e))) ;;; Call-site type relations (define (goto? y u) (and (in-lined-in? (expression-environment (call-site-expression y)) (expression-environment (continuation-type-allocating-expression u))) (must-alias? u))) ;;; Generic properties (define (fictitious? u/w) (cond ((null-type? u/w) #t) ((true-type? u/w) #t) ((false-type? u/w) #t) ((char-type? u/w) #f) ((fixnum-type? u/w) #f) ((flonum-type? u/w) #f) ((rectangular-type? u/w) #f) ((input-port-type? u/w) #f) ((output-port-type? u/w) #f) ((eof-object-type? u/w) #t) ((pointer-type? u/w) #f) ((internal-symbol-type? u/w) #t) ((external-symbol-type? u/w) #f) ((primitive-procedure-type? u/w) #t) ((native-procedure-type? u/w) (native-procedure-type-fictitious? u/w)) ((foreign-procedure-type? u/w) #t) ((continuation-type? u/w) (continuation-type-fictitious? u/w)) ((string-type? u/w) #f) ((structure-type? u/w) (structure-type-fictitious? u/w)) ((headed-vector-type? u/w) #f) ((nonheaded-vector-type? u/w) #f) ((displaced-vector-type? u/w) #f) ((type-set? u/w) (type-set-fictitious? u/w)) (else (fuck-up)))) (define (determine-whether-native-procedure-type-fictitious? u) (case *closure-conversion-method* ((baseline conventional) #f) ((lightweight) (or (not (environment-accessed? u)) (every (lambda (e) (or (not (environment-used? e)) (let loop? ((e1 (quick-parent e))) (or (empty? e1) (and (not (ancestor? e1 e)) (loop? (quick-parent e1))))))) (narrow-clones u)))) (else (fuck-up)))) (define (determine-whether-continuation-type-fictitious? u) (case *closure-conversion-method* ((baseline conventional) #f) ((lightweight) (or (not (continuation-type-continuation-accessed? u)) (and (every (lambda (y) (in-lined-in? (expression-environment (call-site-expression y)) (expression-environment (continuation-type-allocating-expression u)))) (continuation-type-call-sites u)) (must-alias? u)))) (else (fuck-up)))) (define (determine-whether-structure-type-fictitious? u) (case *closure-conversion-method* ((baseline conventional) #f) ((lightweight) (every fictitious? (structure-type-slots u))) (else (fuck-up)))) (define (infer-all-whether-type-fictitious?! p?) (when *p7?* (notify "Determining whether types are fictitious")) (for-each (lambda (u) (cond ((fictitious? u) (unless (determine-whether-native-procedure-type-fictitious? u) (set-native-procedure-type-fictitious?! u #f) (when *p7?* (notify " U~s is not fictitious" (type-index u))) (set! *again?* #t))) ((and p? (determine-whether-native-procedure-type-fictitious? u)) (fuck-up)))) *native-procedure-types*) (for-each (lambda (u) (cond ((fictitious? u) (unless (determine-whether-continuation-type-fictitious? u) (set-continuation-type-fictitious?! u #f) (when *p7?* (notify " U~s is not fictitious" (type-index u))) (set! *again?* #t))) ((and p? (determine-whether-continuation-type-fictitious? u)) (fuck-up)))) *continuation-types*) (for-each (lambda (u) (cond ((fictitious? u) (unless (determine-whether-structure-type-fictitious? u) (set-structure-type-fictitious?! u #f) (when *p7?* (notify " U~s is not fictitious" (type-index u))) (set! *again?* #t))) ((and p? (determine-whether-structure-type-fictitious? u)) (fuck-up)))) *structure-types*)) (define (determine-whether-type-set-fictitious? w) ;; needs work: This really won't work until APPLY-CLOSED-WORLD-ASSUMPTION! is ;; called since all of the multiple members might turn out to be ;; the same. But don't worry, this errs on the conservative side. (case *closure-conversion-method* ((baseline conventional) #f) ((lightweight) (or (void? w) (and (not (multimorphic? w)) (must-be? fictitious? w)))) (else (fuck-up)))) (define (infer-all-whether-type-set-fictitious?! p?) (when *p7?* (notify "Determining whether type sets are fictitious")) (for-each (lambda (w) (cond ((fictitious? w) (unless (determine-whether-type-set-fictitious? w) (set-type-set-fictitious?! w #f) (when *p7?* (notify " W~s is not fictitious" (type-set-index w))) (set! *again?* #t))) ((and p? (determine-whether-type-set-fictitious? w)) (fuck-up)))) *ws*)) (define (has-parent-parameter? u/e) ;; Different narrow clones can have different ancestor sets. Narrow clones ;; can differ in whether they need a parent parameter. This was discovered ;; with the matrix.sc example of jbs@quiotix.com. This created problems when ;; applying PARENT-PARAMETER to a type instead of an environment and also ;; caused generation of incorrect code where one backchain was accessed as ;; the backchain of a narrow clone. Now we force all narrow clones to have ;; a parent parameter if one of them does. This might cause some procedures to ;; have a parent parameter that isn't used (i.e. reducing the amount of ;; parent-parameter elimination). So it goes. (some (lambda (e) (and (environment-used? e) (not (null? (ancestors e))))) (narrow-clones u/e))) (define (called? u/e) (cond ((native-procedure-type? u/e) (and (native-procedure-type-narrow-prototype u/e) (some called? (narrow-clones u/e)))) ((environment? u/e) (not (null? (call-sites u/e)))) (else (fuck-up)))) (define (let? u/e/x) (cond ((native-procedure-type? u/e/x) ;; needs work: This could use the wide notion of clone but that would be ;; just for error checking. (when (and (some let? (narrow-clones u/e/x)) (not (every let? (narrow-clones u/e/x)))) (fuck-up)) (let? (narrow-prototype u/e/x))) ((environment? u/e/x) ;; needs work: To say that a lambda expression that is the second argument ;; to a procedure that calls its first or second argument is a ;; let. (and (expression? (expression-parent (environment-expression u/e/x))) (or (eq? (expression-kind (expression-parent (environment-expression u/e/x))) 'call) (eq? (expression-kind (expression-parent (environment-expression u/e/x))) 'converted-call)) (eq? (expression-callee (expression-parent (environment-expression u/e/x))) (environment-expression u/e/x)))) ((expression? u/e/x) (unless (or (eq? (expression-kind u/e/x) 'call) (eq? (expression-kind u/e/x) 'converted-call)) (fuck-up)) (or (eq? (expression-kind (expression-callee u/e/x)) 'lambda) (eq? (expression-kind (expression-callee u/e/x)) 'converted-lambda) (eq? (expression-kind (expression-callee u/e/x)) 'converted-continuation))) (else (fuck-up)))) (define (noop? u/e/x) (cond ((native-procedure-type? u/e/x) ;; needs work: This could use the wide notion of clone but that would ;; be just for error checking. (when (and (some noop? (narrow-clones u/e/x)) (not (every noop? (narrow-clones u/e/x)))) (fuck-up)) (noop? (narrow-prototype u/e/x))) ((environment? u/e/x) (noop? (environment-expression u/e/x))) ((expression? u/e/x) (unless (or (eq? (expression-kind u/e/x) 'lambda) (eq? (expression-kind u/e/x) 'converted-lambda) (eq? (expression-kind u/e/x) 'converted-continuation)) (fuck-up)) (not (expression? (expression-body u/e/x)))) (else (fuck-up)))) (define (rest? u/e/x) (cond ((native-procedure-type? u/e/x) ;; needs work: This could use the wide notion of clone but that would ;; be just for error checking. (when (and (some rest? (narrow-clones u/e/x)) (not (every rest? (narrow-clones u/e/x)))) (fuck-up)) (rest? (narrow-prototype u/e/x))) ((environment? u/e/x) (rest? (environment-expression u/e/x))) ((expression? u/e/x) (unless (or (eq? (expression-kind u/e/x) 'lambda) (eq? (expression-kind u/e/x) 'converted-lambda) (eq? (expression-kind u/e/x) 'converted-continuation)) (fuck-up)) (not (list? (expression-parameters u/e/x)))) (else (fuck-up)))) (define (converted? e/x/y) ;; needs work: #F is ambiguous between the top-level call site and the empty ;; environment. (cond ((environment? e/x/y) (converted? (environment-expression e/x/y))) ((expression? e/x/y) (or (eq? (expression-kind e/x/y) 'converted-call) (eq? (expression-kind e/x/y) 'converted-lambda))) ((call-site? e/x/y) (and (not (continuation-argument-call-site? e/x/y)) ;; First argument call sites are converted if and only if their ;; expression is converted. (converted? (call-site-expression e/x/y)))) ((top-level-call-site? e/x/y) (converted? *x*)) (else (fuck-up)))) ;;; Generic functions (define (ancestors u/e) ;; note: This must use the narrow notion of clone because different wide ;; clones can have different ancestor sets. (cond ((native-procedure-type? u/e) (unless (pairwise? (lambda (e1 e2) (or (not (environment-used? e1)) (not (environment-used? e2)) (set-equalq? (ancestors e1) (ancestors e2)))) (narrow-clones u/e)) (fuck-up)) (ancestors (narrow-prototype u/e))) ((environment? u/e) (when (or (empty? u/e) (not (environment-used? u/e))) (fuck-up)) (environment-ancestors u/e)) (else (fuck-up)))) (define (parent-parameter u/e) ;; It used to be possible for two different narrow clones to have different ;; parent parameters. This was discovered with the matrix.sc example of ;; jbs@quiotix.com. This created problems when applying PARENT-PARAMETER to ;; a type instead of an environment and also caused generation of incorrect ;; code where one backchain was accessed as the backchain of a narrow clone. ;; Now we take the most-nested parent parameter of all the narrow clones. ;; This might cause some procedures to have a parent parameter that is used ;; only to indirect through a parent slot and not to access other slots (i.e. ;; reducing the amount of parent-parameter compression). So it goes. (environment-parent-parameter (narrow-prototype u/e))) (define (narrow-prototype u/e) (cond ((native-procedure-type? u/e) (unless (eq? (native-procedure-type-narrow-prototype u/e) (narrow-prototype (native-procedure-type-narrow-prototype u/e))) (fuck-up)) (native-procedure-type-narrow-prototype u/e)) ((environment? u/e) (unless (eq? (environment-narrow-prototype u/e) (environment-narrow-prototype (environment-narrow-prototype u/e))) (fuck-up)) (environment-narrow-prototype u/e)) (else (fuck-up)))) (define (wide-prototype u/e) ;; This is only used by WIDE-CLONES?, WIDE-CLONES, CLONE-EXPRESSION, ;; PRINT-MAXIMAL-CLONE-RATE, and STALIN. (cond ((native-procedure-type? u/e) (unless (pairwise? (lambda (e1 e2) (eq? (wide-prototype e1) (wide-prototype e2))) (narrow-clones u/e)) (fuck-up)) (wide-prototype (narrow-prototype u/e))) ((environment? u/e) (environment-wide-prototype u/e)) (else (fuck-up)))) (define (narrow-clones u/e) (if (and (native-procedure-type? u/e) (not (native-procedure-type-narrow-prototype u/e))) '() (environment-narrow-clones (narrow-prototype u/e)))) (define (wide-clones u/e) ;; This is only used by PRINT-CLONE-RATES. (remove-if-not (lambda (e) (eq? (wide-prototype u/e) (wide-prototype e))) *es*)) (define (variables e/x) ;; This only returns the variables of E/X itself, not things in-lined in E/X. (cond ((environment? e/x) (variables (environment-expression e/x))) ((expression? e/x) (let loop ((gs (expression-parameters e/x))) (cond ((null? gs) '()) ((pair? gs) (cons (first gs) (loop (rest gs)))) ((variable? gs) (list gs)) (else (fuck-up))))) (else (fuck-up)))) ;;; Generic relations (define (in-lined-in? e/x1 e/x2) ;; The IN-LINED-IN? relation is reflexive. (cond ((environment? e/x1) (and ;; This is just because of *CLOSURE-CONVERSION-METHOD*. (environment-used? e/x1) (cond ((environment? e/x2) (or (eq? e/x1 e/x2) (and (unique-call-site? e/x1) (in-lined-in? (call-site-expression (unique-call-site e/x1)) e/x2)))) ((expression? e/x2) (and (unique-call-site? e/x1) (in-lined-in? (call-site-expression (unique-call-site e/x1)) e/x2))) (else (fuck-up))))) ((expression? e/x1) (cond ((environment? e/x2) (and (not (empty? (expression-environment e/x1))) (in-lined-in? (expression-environment e/x1) e/x2))) ((expression? e/x2) (or (eq? e/x1 e/x2) (if (or (eq? (expression-kind e/x1) 'lambda) (eq? (expression-kind e/x1) 'converted-lambda) (eq? (expression-kind e/x1) 'converted-continuation)) (in-lined-in? (expression-lambda-environment e/x1) e/x2) (and (not (empty? (expression-parent e/x1))) (in-lined-in? (expression-parent e/x1) e/x2))))) (else (fuck-up)))) (else (fuck-up)))) (define (properly-in-lined-in? e/x1 e/x2) ;; The PROPERLY-IN-LINED-IN? relation is irreflexive. (and (not (eq? e/x1 e/x2)) (in-lined-in? e/x1 e/x2))) (define (unmark-types!) (for-each (lambda (u) (set-internal-symbol-type-marked?! u #f)) *internal-symbol-types*) (for-each (lambda (u) (set-external-symbol-type-marked?! u #f)) *external-symbol-types*) (for-each (lambda (u) (set-primitive-procedure-type-marked?! u #f)) *primitive-procedure-types*) (for-each (lambda (u) (set-native-procedure-type-marked?! u #f)) *native-procedure-types*) (for-each (lambda (u) (set-foreign-procedure-type-marked?! u #f)) *foreign-procedure-types*) (for-each (lambda (u) (set-continuation-type-marked?! u #f)) *continuation-types*) (for-each (lambda (u) (set-string-type-marked?! u #f)) *string-types*) (for-each (lambda (u) (set-structure-type-marked?! u #f)) *structure-types*) (for-each (lambda (u) (set-headed-vector-type-marked?! u #f)) *headed-vector-types*) (for-each (lambda (u) (set-nonheaded-vector-type-marked?! u #f)) *nonheaded-vector-types*) (for-each (lambda (u) (set-displaced-vector-type-marked?! u #f)) *displaced-vector-types*)) (define (unmark-types-and-type-sets!) (unmark-types!) (for-each (lambda (w) (set-type-set-marked?! w #f)) *ws*)) (define (some-pointed-to-type p? u/w1) ;; conventions: P? (let loop? ((u/w1 u/w1)) (cond ((type? u/w1) (cond ;; Internal symbols do not point to anything. ((internal-symbol-type? u/w1) (and (not (internal-symbol-type-marked? u/w1)) (begin (set-internal-symbol-type-marked?! u/w1 #t) (p? u/w1)))) ;; External symbols point to their displaced string. ((external-symbol-type? u/w1) (and (not (external-symbol-type-marked? u/w1)) (external-symbol-type-symbol->string-accessed? u/w1) (begin (set-external-symbol-type-marked?! u/w1 #t) (or (p? u/w1) (loop? (external-symbol-type-displaced-string-type u/w1)))))) ;; Primitive procedures do not point to anything. ((primitive-procedure-type? u/w1) (and (not (primitive-procedure-type-marked? u/w1)) (begin (set-primitive-procedure-type-marked?! u/w1 #t) (p? u/w1)))) ;; A native procedure points to all of the accessed variables in the ;; environments of all of its proper ancestors. It does *not* point to ;; its parent native procedure. ((native-procedure-type? u/w1) (and (not (native-procedure-type-marked? u/w1)) (begin (set-native-procedure-type-marked?! u/w1 #t) (or (p? u/w1) (some (lambda (e) (and (environment-accessed? e) (some (lambda (g) (and (accessed? g) (not (necessarily-fictitious? (variable-type-set g))) (loop? (variable-type-set g)))) (free-variables e)))) (narrow-clones u/w1)))))) ;; Foreign procedures do not point to anything. ((foreign-procedure-type? u/w1) (and (not (foreign-procedure-type-marked? u/w1)) (begin (set-foreign-procedure-type-marked?! u/w1 #t) (p? u/w1)))) ;; Continuations do not point to anything. ((continuation-type? u/w1) (and (not (continuation-type-marked? u/w1)) (begin (set-continuation-type-marked?! u/w1 #t) (p? u/w1)))) ;; Strings do not point to anything. ((string-type? u/w1) (and (not (string-type-marked? u/w1)) (begin (set-string-type-marked?! u/w1 #t) (p? u/w1)))) ;; Structures point to their slots. ((structure-type? u/w1) (and (not (structure-type-marked? u/w1)) (begin (set-structure-type-marked?! u/w1 #t) (or (p? u/w1) (some (lambda (p? w) (and p? (loop? w))) (structure-type-structure-ref-accessed? u/w1) (structure-type-slots u/w1)))))) ;; Headed vectors point to their element. ((headed-vector-type? u/w1) (and (not (headed-vector-type-marked? u/w1)) (begin (set-headed-vector-type-marked?! u/w1 #t) (or (p? u/w1) (and (headed-vector-type-vector-ref-accessed? u/w1) (loop? (headed-vector-type-element u/w1))))))) ;; Nonheaded vectors point to their element. ((nonheaded-vector-type? u/w1) (and (not (nonheaded-vector-type-marked? u/w1)) (begin (set-nonheaded-vector-type-marked?! u/w1 #t) (or (p? u/w1) (and (nonheaded-vector-type-vector-ref-accessed? u/w1) (loop? (nonheaded-vector-type-element u/w1))))))) ;; Displaced vectors point to their displaced vector. ((displaced-vector-type? u/w1) (and (not (displaced-vector-type-marked? u/w1)) (begin (set-displaced-vector-type-marked?! u/w1 #t) (or (p? u/w1) (and (displaced-vector-type-vector-ref-accessed? u/w1) (loop? (displaced-vector-type-displaced-vector-type u/w1))))))) (else (p? u/w1)))) ((type-set? u/w1) (can-be? loop? u/w1)) (else (fuck-up))))) (define (for-each-pointed-to-type p u/w1) ;; conventions: P (let loop ((u/w1 u/w1)) (cond ((type? u/w1) (cond ;; Internal symbols do not point to anything. ((internal-symbol-type? u/w1) (unless (internal-symbol-type-marked? u/w1) (set-internal-symbol-type-marked?! u/w1 #t) (p u/w1))) ;; External symbols point to their displaced string. ((external-symbol-type? u/w1) (unless (external-symbol-type-marked? u/w1) (set-external-symbol-type-marked?! u/w1 #t) (p u/w1) (loop (external-symbol-type-displaced-string-type u/w1)))) ;; Primitive procedures do not point to anything. ((primitive-procedure-type? u/w1) (unless (primitive-procedure-type-marked? u/w1) (set-primitive-procedure-type-marked?! u/w1 #t) (p u/w1))) ;; A native procedure points to all of the accessed variables in the ;; environments of all of its proper ancestors. It does *not* point ;; to its parent native procedure. ((native-procedure-type? u/w1) (unless (native-procedure-type-marked? u/w1) (set-native-procedure-type-marked?! u/w1 #t) (p u/w1) (for-each (lambda (e) (when (environment-accessed? e) (for-each (lambda (g) (when (and (accessed? g) (not (necessarily-fictitious? (variable-type-set g)))) (loop (variable-type-set g)))) (free-variables e)))) (narrow-clones u/w1)))) ;; Foreign procedures do not point to anything. ((foreign-procedure-type? u/w1) (unless (foreign-procedure-type-marked? u/w1) (set-foreign-procedure-type-marked?! u/w1 #t) (p u/w1))) ;; Continuations do not point to anything. ((continuation-type? u/w1) (unless (continuation-type-marked? u/w1) (set-continuation-type-marked?! u/w1 #t) (p u/w1))) ;; Strings do not point to anything. ((string-type? u/w1) (unless (string-type-marked? u/w1) (set-string-type-marked?! u/w1 #t) (p u/w1))) ;; Structures point to their slots. ((structure-type? u/w1) (unless (structure-type-marked? u/w1) (set-structure-type-marked?! u/w1 #t) (p u/w1) (for-each loop (structure-type-slots u/w1)))) ;; Headed vectors point to their element. ((headed-vector-type? u/w1) (unless (headed-vector-type-marked? u/w1) (set-headed-vector-type-marked?! u/w1 #t) (p u/w1) (loop (headed-vector-type-element u/w1)))) ;; Nonheaded vectors point to their element. ((nonheaded-vector-type? u/w1) (unless (nonheaded-vector-type-marked? u/w1) (set-nonheaded-vector-type-marked?! u/w1 #t) (p u/w1) (loop (nonheaded-vector-type-element u/w1)))) ;; Displaced vectors point to their displaced vector. ((displaced-vector-type? u/w1) (unless (displaced-vector-type-marked? u/w1) (set-displaced-vector-type-marked?! u/w1 #t) (p u/w1) (loop (displaced-vector-type-displaced-vector-type u/w1)))) (else (p u/w1)))) ((type-set? u/w1) (for-each-member loop u/w1)) (else (fuck-up))))) (define (points-to? u/w1 u2) ;; The POINTS-TO? relation is reflexive. (unmark-types!) (some-pointed-to-type (lambda (u1) (eq? u1 u2)) u/w1)) ;;; Polyvariance (define (clone-size e) (let loop ((x (environment-expression e)) (es '())) (case (expression-kind x) ((null-constant) 1) ((true-constant) 1) ((false-constant) 1) ((char-constant) 1) ((fixnum-constant) 1) ((flonum-constant) 1) ((rectangular-constant) 1) ((string-constant) 1) ((symbol-constant) 1) ((pair-constant) (+ 1 (loop (car (expression-constant x)) es) (loop (cdr (expression-constant x)) es))) ((vector-constant) (+ 1 (reduce-vector + (map-vector (lambda (x) (loop x es)) (expression-constant x)) 0))) ((lambda converted-lambda converted-continuation) (+ 1 (if (noop? x) 0 (loop (expression-body x) (cons (expression-lambda-environment x) es))))) ((set!) (+ 1 (loop (expression-source x) es))) ((if) (+ 1 (loop (expression-antecedent x) es) (loop (expression-consequent x) es) (loop (expression-alternate x) es))) ((primitive-procedure) 1) ((foreign-procedure) 1) ((access) 1) ((call converted-call) (+ 1 (loop (expression-callee x) es) (reduce + (map (lambda (x) (loop x es)) (expression-arguments x)) 0))) (else (fuck-up))))) (define (clone-expression x) (let loop ((x x) (gss '())) (case (expression-kind x) ((null-constant) (let ((x (create-expression 'null-constant x #f))) (set-expression-type-set! x (create-type-set x)) x)) ((true-constant) (let ((x (create-expression 'true-constant x #f))) (set-expression-type-set! x (create-type-set x)) x)) ((false-constant) (let ((x (create-expression 'false-constant x #f))) (set-expression-type-set! x (create-type-set x)) x)) ((char-constant) (let ((x (create-expression 'char-constant x (expression-constant x)))) (set-expression-type-set! x (create-type-set x)) x)) ((fixnum-constant) (let ((x (create-expression 'fixnum-constant x (expression-constant x)))) (set-expression-type-set! x (create-type-set x)) x)) ((flonum-constant) (let ((x (create-expression 'flonum-constant x (expression-constant x)))) (set-expression-type-set! x (create-type-set x)) x)) ((rectangular-constant) (let ((x (create-expression 'rectangular-constant x (expression-constant x)))) (set-expression-type-set! x (create-type-set x)) x)) ((string-constant) (let ((x (create-expression 'string-constant x (expression-constant x)))) (set-expression-type-set! x (create-type-set x)) x)) ((symbol-constant) (let ((x (create-expression 'symbol-constant x (expression-constant x)))) (set-expression-type-set! x (create-type-set x)) x)) ((pair-constant) (let ((x (create-expression 'pair-constant x (cons (loop (car (expression-constant x)) gss) (loop (cdr (expression-constant x)) gss))))) (set-expression-type-set! x (create-type-set x)) (set-expression-parent! (car (expression-constant x)) x) (set-expression-parent! (cdr (expression-constant x)) x) x)) ((vector-constant) (let ((x (create-expression 'vector-constant x (map-vector (lambda (x) (loop x gss)) (expression-constant x))))) (set-expression-type-set! x (create-type-set x)) (for-each-vector (lambda (x1) (set-expression-parent! x1 x)) (expression-constant x)) x)) ((lambda) (let ((e1 (create-environment (environment-name (narrow-prototype (expression-lambda-environment x))) #f))) (set-environment-split! e1 #t) (when #f ;debugging (unless (null? gss) (notify "Deep cloning: ~a -> ~a" (environment-name (expression-lambda-environment x)) (environment-name e1)))) (when (null? gss) (set-environment-narrow-prototype! e1 (narrow-prototype (expression-lambda-environment x))) (set-environment-narrow-clones! e1 '()) (set-environment-narrow-clones! (narrow-prototype (expression-lambda-environment x)) (cons e1 (narrow-clones (expression-lambda-environment x))))) (set-environment-wide-prototype! e1 (wide-prototype (expression-lambda-environment x))) (let* ((gs (let loop ((gs (expression-parameters x))) (cond ((null? gs) '()) ((pair? gs) (let ((g (create-variable (first gs)))) (set-variable-type-set! g (create-type-set g)) (cons g (loop (rest gs))))) ((variable? gs) (let ((g (create-variable gs))) (set-variable-type-set! g (create-type-set g)) g)) (else (fuck-up))))) (x1 (create-lambda-expression x e1 gs (if (noop? x) #f (loop (expression-body x) (cons gs gss)))))) ;; The lambda expression for narrow clones must be initialized to used ;; if the narrow prototype is used. The lambda expression for wide ;; clones will always be a narrow prototype and will be initialized to ;; used if it actually is reached. (when (null? gss) (set-expression-reached?! x1 (expression-reached? x))) (set-expression-type-set! x1 (if (null? gss) ;; The lambda expressions for narrow clones share the same type set. (expression-type-set x) ;; The lambda expressions for wide clones each have their own type ;; set. (create-type-set x1))) (unless (noop? x1) (set-expression-parent! (expression-body x1) x1)) (annotate-environment-variables-with-their-environment! e1) (annotate-environment-expressions-with-their-environment! e1) x1))) ((converted-lambda) (let ((e1 (create-environment (environment-name (narrow-prototype (expression-lambda-environment x))) #f))) (set-environment-split! e1 #t) (when #f ;debugging (unless (null? gss) (notify "Deep cloning: ~a -> ~a" (environment-name (expression-lambda-environment x)) (environment-name e1)))) (when (null? gss) (set-environment-narrow-prototype! e1 (narrow-prototype (expression-lambda-environment x))) (set-environment-narrow-clones! e1 '()) (set-environment-narrow-clones! (narrow-prototype (expression-lambda-environment x)) (cons e1 (narrow-clones (expression-lambda-environment x))))) (set-environment-wide-prototype! e1 (wide-prototype (expression-lambda-environment x))) (let* ((gs (let loop ((gs (expression-parameters x))) (cond ((null? gs) '()) ((pair? gs) (let ((g (create-variable (first gs)))) (set-variable-type-set! g (create-type-set g)) (cons g (loop (rest gs))))) ((variable? gs) (let ((g (create-variable gs))) (set-variable-type-set! g (create-type-set g)) g)) (else (fuck-up))))) (x1 (create-converted-lambda-expression x e1 gs (if (noop? x) #f (loop (expression-body x) (cons gs gss)))))) ;; The lambda expression for narrow clones must be initialized to used ;; if the narrow prototype is used. The lambda expression for wide ;; clones will always be a narrow prototype and will be initialized to ;; used if it actually is reached. (when (null? gss) (set-expression-reached?! x1 (expression-reached? x))) (set-expression-type-set! x1 (if (null? gss) ;; The lambda expressions for narrow clones share the same type set. (expression-type-set x) ;; The lambda expressions for wide clones each have their own type ;; set. (create-type-set x1))) (unless (noop? x1) (set-expression-parent! (expression-body x1) x1)) (annotate-environment-variables-with-their-environment! e1) (annotate-environment-expressions-with-their-environment! e1) x1))) ((converted-continuation) (let ((e1 (create-environment (environment-name (narrow-prototype (expression-lambda-environment x))) #f))) (set-environment-split! e1 #t) (when #f ;debugging (unless (null? gss) (notify "Deep cloning: ~a -> ~a" (environment-name (expression-lambda-environment x)) (environment-name e1)))) (when (null? gss) (set-environment-narrow-prototype! e1 (narrow-prototype (expression-lambda-environment x))) (set-environment-narrow-clones! e1 '()) (set-environment-narrow-clones! (narrow-prototype (expression-lambda-environment x)) (cons e1 (narrow-clones (expression-lambda-environment x))))) (set-environment-wide-prototype! e1 (wide-prototype (expression-lambda-environment x))) (let* ((gs (let loop ((gs (expression-parameters x))) (cond ((null? gs) '()) ((pair? gs) (let ((g (create-variable (first gs)))) (set-variable-type-set! g (create-type-set g)) (cons g (loop (rest gs))))) ((variable? gs) (let ((g (create-variable gs))) (set-variable-type-set! g (create-type-set g)) g)) (else (fuck-up))))) (x1 (create-converted-continuation-expression x e1 gs (if (noop? x) #f (loop (expression-body x) (cons gs gss)))))) ;; The lambda expression for narrow clones must be initialized to used ;; if the narrow prototype is used. The lambda expression for wide ;; clones will always be a narrow prototype and will be initialized to ;; used if it actually is reached. (when (null? gss) (set-expression-reached?! x1 (expression-reached? x))) (set-expression-type-set! x1 (if (null? gss) ;; The lambda expressions for narrow clones share the same type set. (expression-type-set x) ;; The lambda expressions for wide clones each have their own type ;; set. (create-type-set x1))) (unless (noop? x1) (set-expression-parent! (expression-body x1) x1)) (annotate-environment-variables-with-their-environment! e1) (annotate-environment-expressions-with-their-environment! e1) x1))) ((set!) (let ((x (create-set!-expression x (let outer ((gss1 gss) (e (expression-environment x))) (if (null? gss1) (expression-variable x) (let inner ((gs1 (first gss1)) (gs2 (expression-parameters (environment-expression e)))) (cond ((null? gs1) (unless (null? gs2) (fuck-up)) (outer (rest gss1) (parent e))) ((null? gs2) (fuck-up)) ((and (pair? gs1) (pair? gs2)) (if (eq? (first gs2) (expression-variable x)) (first gs1) (inner (rest gs1) (rest gs2)))) ((and (variable? gs1) (variable? gs2)) (if (eq? gs2 (expression-variable x)) gs1 (outer (rest gss1) (parent e)))) (else (fuck-up)))))) (loop (expression-source x) gss)))) (set-expression-type-set! x (create-type-set x)) (set-expression-parent! (expression-source x) x) (set-variable-assignments! (expression-variable x) (cons x (variable-assignments (expression-variable x)))) (set-variable-references! (expression-variable x) (cons x (variable-references (expression-variable x)))) x)) ((if) (let ((x (create-if-expression x (loop (expression-antecedent x) gss) (loop (expression-consequent x) gss) (loop (expression-alternate x) gss)))) (set-expression-type-set! x (create-type-set x)) (set-expression-parent! (expression-antecedent x) x) (set-expression-parent! (expression-consequent x) x) (set-expression-parent! (expression-alternate x) x) x)) ((primitive-procedure) (let ((x (create-expression 'primitive-procedure x (expression-constant x)))) (set-expression-type-set! x (create-type-set x)) x)) ((foreign-procedure) (let ((x (create-expression 'foreign-procedure x (expression-constant x)))) (set-expression-type-set! x (create-type-set x)) x)) ((access) (let ((x (create-access-expression x (let outer ((gss1 gss) (e (expression-environment x))) (if (null? gss1) (expression-variable x) (let inner ((gs1 (first gss1)) (gs2 (expression-parameters (environment-expression e)))) (cond ((null? gs1) (unless (null? gs2) (fuck-up)) (outer (rest gss1) (parent e))) ((null? gs2) (fuck-up)) ((and (pair? gs1) (pair? gs2)) (if (eq? (first gs2) (expression-variable x)) (first gs1) (inner (rest gs1) (rest gs2)))) ((and (variable? gs1) (variable? gs2)) (if (eq? gs2 (expression-variable x)) gs1 (outer (rest gss1) (parent e)))) (else (fuck-up))))))))) (set-expression-type-set! x (create-type-set x)) (set-variable-accesses! (expression-variable x) (cons x (variable-accesses (expression-variable x)))) (set-variable-references! (expression-variable x) (cons x (variable-references (expression-variable x)))) x)) ((call) (let ((x (create-call-expression x (loop (expression-callee x) gss) (map (lambda (x) (loop x gss)) (expression-arguments x))))) (set-expression-type-set! x (create-type-set x)) (set-expression-parent! (expression-callee x) x) (for-each (lambda (x1) (set-expression-parent! x1 x)) (expression-arguments x)) x)) ((converted-call) (let ((x (create-converted-call-expression x (loop (expression-callee x) gss) (map (lambda (x) (loop x gss)) (expression-arguments x))))) (set-expression-type-set! x (create-type-set x)) (set-expression-parent! (expression-callee x) x) (for-each (lambda (x1) (set-expression-parent! x1 x)) (expression-arguments x)) x)) (else (fuck-up))))) (define (clone e) (let* ((x (environment-expression (narrow-prototype e))) (x1 (clone-expression x))) (set-expression-parent! x1 (expression-parent x)) (expression-lambda-environment x1))) (define (callee-environment? u y) (assp same-call-site? y (native-procedure-type-call-site-environment-alist u))) (define (callee-environment u y) (unless (callee-environment? u y) (when *types-frozen?* (fuck-up)) (let ((e (if (and (explicit-call-site? y) (expression-original-expression (call-site-expression y))) (let ((y1 (create-call-site (expression-original-expression (call-site-expression y))))) (if (callee-environment? u y1) (let ((e (cdr (callee-environment? u y1)))) (cond ((nested-in? (expression-environment (call-site-expression y1)) e) (let loop ((e1 (expression-environment (call-site-expression y)))) (if (or (eq? e e1) (eq? (environment-expression e) (expression-original-expression (environment-expression e1)))) e1 (loop (parent e1))))) ((eq? (environment-split e) #t) (when #f ;debugging (notify "Chain cloning x~s ~a->[clone ~a ~s]" (expression-index (call-site-expression y)) (environment-name e) (environment-name (narrow-prototype e)) *ei*) (notify "~s" (undecorate (call-site-expression y)))) (clone e)) (else (narrow-prototype u)))) (narrow-prototype u))) (narrow-prototype u)))) (set-native-procedure-type-call-site-environment-alist! u (cons (cons y e) (native-procedure-type-call-site-environment-alist u))))) (cdr (callee-environment? u y))) ;;; `Necessary' procedures ;;; This procedure is necessary (sic) because it is called by ;;; DEFINE-PRIMITIVE-PROCEDURE EQ? and DETERMINE-ESCAPING-TYPES! before ;;; PERFORM-LIGHTWEIGHT-CLOSURE-CONVERSION! determines FICTITIOUS?. (define (necessarily-fictitious? u) (or (null-type? u) (true-type? u) (false-type? u) (eof-object-type? u) (internal-symbol-type? u) (primitive-procedure-type? u) (and (native-procedure-type? u) (if *types-frozen?* (native-procedure-type-necessarily-fictitious? u) (noop? u))) (foreign-procedure-type? u) ;; note: This used to count a structure type as necessarily fictitious ;; when every slot was necessarily fictitious and types were frozen. ;; But this is unsound because uniqueness is asserted after escaping ;; types are determined and uniqueness can change a type from being ;; fictitious to being nonfictitious. This happens in veto.sc. (and (structure-type? u) (null? (structure-type-slots u))))) (define (type-set-necessarily-fictitious? w) (or (void? w) (and (monomorphic? w) (necessarily-fictitious? (the-member w))))) (define (determine-necessarily-fictitious-native-procedure-types!) (for-each (lambda (u) (set-native-procedure-type-necessarily-fictitious?! u #t)) *native-procedure-types*) (let loop () (let ((again? #f)) (for-each (lambda (u) (unless (or (not (native-procedure-type-necessarily-fictitious? u)) (not (called? u)) (noop? u) (every (lambda (e) (or (not (environment-used? e)) (every (lambda (g) (or (not (accessed? g)) (type-set-necessarily-fictitious? (variable-type-set g)))) (free-variables e)))) (narrow-clones u))) (set-native-procedure-type-necessarily-fictitious?! u #f) (set! again? #t))) *native-procedure-types*) (when again? (loop))))) ;;; Program points (define (before x) (make-program-point #t x)) (define (after x) (make-program-point #f x)) (define (before? d) (program-point-before? d)) (define (after? d) (not (program-point-before? d))) (define (expression d) (program-point-expression d)) (define (same-program-point? d1 d2) (and (eq? (before? d1) (before? d2)) (eq? (expression d1) (expression d2)))) (define (all-program-points) (append (map before *xs*) (map after *xs*))) (define (control-directly-flows? d1 d2) ;; needs work: To handle calls to primitive, native, and foreign procedures ;; that don't return. (or (and (before? d1) (after? d2) (eq? (expression d1) (expression d2)) (or (eq? (expression-kind (expression d1)) 'null-constant) (eq? (expression-kind (expression d1)) 'true-constant) (eq? (expression-kind (expression d1)) 'false-constant) (eq? (expression-kind (expression d1)) 'char-constant) (eq? (expression-kind (expression d1)) 'fixnum-constant) (eq? (expression-kind (expression d1)) 'flonum-constant) (eq? (expression-kind (expression d1)) 'rectangular-constant) (eq? (expression-kind (expression d1)) 'string-constant) (eq? (expression-kind (expression d1)) 'symbol-constant) (eq? (expression-kind (expression d1)) 'pair-constant) (eq? (expression-kind (expression d1)) 'vector-constant) (eq? (expression-kind (expression d1)) 'lambda) (eq? (expression-kind (expression d1)) 'converted-lambda) (eq? (expression-kind (expression d1)) 'converted-continuation) (eq? (expression-kind (expression d1)) 'primitive-procedure) (eq? (expression-kind (expression d1)) 'foreign-procedure) (eq? (expression-kind (expression d1)) 'access))) ;; From before SET! to before source. (and (before? d1) (before? d2) (eq? (expression-kind (expression d1)) 'set!) (eq? (expression-source (expression d1)) (expression d2))) ;; From after source to after SET!. (and (after? d1) (after? d2) (eq? (expression-kind (expression d2)) 'set!) (eq? (expression-source (expression d2)) (expression d1))) ;; From before IF to before antecedent. (and (before? d1) (before? d2) (eq? (expression-kind (expression d1)) 'if) (eq? (expression-antecedent (expression d1)) (expression d2))) ;; From after antecedent to before consequent and alternate. (and (after? d1) (before? d2) (expression-parent (expression d1)) (eq? (expression-kind (expression-parent (expression d1))) 'if) (eq? (expression-antecedent (expression-parent (expression d1))) (expression d1)) (or (and (eq? (expression-consequent (expression-parent (expression d1))) (expression d2)) (can-be-non? false-type? (expression-type-set (expression-antecedent (expression-parent (expression d1)))))) (and (eq? (expression-alternate (expression-parent (expression d1))) (expression d2)) (can-be? false-type? (expression-type-set (expression-antecedent (expression-parent (expression d1)))))))) ;; From after consequent and alternate to after IF. (and (after? d1) (after? d2) (expression-parent (expression d1)) (eq? (expression-kind (expression-parent (expression d1))) 'if) (or (eq? (expression-consequent (expression-parent (expression d1))) (expression d1)) (eq? (expression-alternate (expression-parent (expression d1))) (expression d1))) (eq? (expression-parent (expression d1)) (expression d2))) ;; note: The following all assume a callee-first left-to-right argument ;; evaluation order. ;; From before call to before callee. (and (before? d1) (before? d2) (or (eq? (expression-kind (expression d1)) 'call) (eq? (expression-kind (expression d1)) 'converted-call)) (eq? (expression-callee (expression d1)) (expression d2))) ;; From after callee to before first argument. (and (after? d1) (before? d2) (expression-parent (expression d1)) (or (eq? (expression-kind (expression-parent (expression d1))) 'call) (eq? (expression-kind (expression-parent (expression d1))) 'converted-call)) (eq? (expression-callee (expression-parent (expression d1))) (expression d1)) (not (null? (expression-arguments (expression-parent (expression d1))))) (eq? (first (expression-arguments (expression-parent (expression d1)))) (expression d2))) ;; From after each argument to before next argument. (and (after? d1) (before? d2) (expression-parent (expression d1)) (or (eq? (expression-kind (expression-parent (expression d1))) 'call) (eq? (expression-kind (expression-parent (expression d1))) 'converted-call)) (memq (expression d1) (expression-arguments (expression-parent (expression d1)))) (< (positionq (expression d1) (expression-arguments (expression-parent (expression d1)))) (- (length (expression-arguments (expression-parent (expression d1)))) 1)) (eq? (list-ref (expression-arguments (expression-parent (expression d1))) (+ (positionq (expression d1) (expression-arguments (expression-parent (expression d1)))) 1)) (expression d2))) ;; From after callee or last argument to before target when target is a ;; non-noop native procedure. (and (after? d1) (before? d2) (expression-parent (expression d1)) (or (eq? (expression-kind (expression-parent (expression d1))) 'call) (eq? (expression-kind (expression-parent (expression d1))) 'converted-call)) (or (and (eq? (expression-callee (expression-parent (expression d1))) (expression d1)) (null? (expression-arguments (expression-parent (expression d1))))) (and (memq (expression d1) (expression-arguments (expression-parent (expression d1)))) (= (positionq (expression d1) (expression-arguments (expression-parent (expression d1)))) (- (length (expression-arguments (expression-parent (expression d1)))) 1)))) (expression-parent (expression d2)) (or (eq? (expression-kind (expression-parent (expression d2))) 'lambda) (eq? (expression-kind (expression-parent (expression d2))) 'converted-lambda) (eq? (expression-kind (expression-parent (expression d2))) 'converted-continuation)) (called? (expression-environment (expression d2))) (can-be? (lambda (u) (and ((truly-compatible-call? (expression-parent (expression d1))) u) (or (eq? u (environment-type (expression-environment (expression d2)))) (and ((primitive-procedure-type-named? 'apply) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-apply? x) u) (eq? u (environment-type (expression-environment (expression d2)))))) (expression-type-set (first-argument (expression-parent (expression d1)))))) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-call-with-current-continuation? x) u) (eq? u (environment-type (expression-environment (expression d2)))))) (expression-type-set (first-argument (expression-parent (expression d1)))))) (and ((primitive-procedure-type-named? 'fork) u) (or (can-be? (lambda (u) (and ((truly-compatible-call-via-fork1? x) u) (eq? u (environment-type (expression-environment (expression d2)))))) (expression-type-set (first-argument (expression-parent (expression d1))))) (can-be? (lambda (u) (and ((truly-compatible-call-via-fork2? x) u) (eq? u (environment-type (expression-environment (expression d2)))))) (expression-type-set (second-argument (expression-parent (expression d1))))))) (and ((primitive-procedure-type-named? 'mutex) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-mutex? x) u) (eq? u (environment-type (expression-environment (expression d2)))))) (expression-type-set (first-argument (expression-parent (expression d1))))))))) (expression-type-set (expression-callee (expression-parent (expression d1)))))) ;; From after target to after call. (and (after? d1) (after? d2) (expression-parent (expression d1)) ;; needs work: The following comment might not be accurate. ;; Converted calls and calls to converted lambdas and continuations never ;; return. (eq? (expression-kind (expression-parent (expression d1))) 'lambda) (eq? (expression-kind (expression d2)) 'call) (called? (expression-environment (expression d1))) (can-be? (lambda (u) (and ((truly-compatible-call? (expression d2)) u) (or (eq? u (environment-type (expression-environment (expression d1)))) (and ((primitive-procedure-type-named? 'apply) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-apply? x) u) (eq? u (environment-type (expression-environment (expression d1)))))) (expression-type-set (first-argument (expression-parent (expression d2)))))) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-call-with-current-continuation? x) u) (eq? u (environment-type (expression-environment (expression d1)))))) (expression-type-set (first-argument (expression-parent (expression d2)))))) (and ((primitive-procedure-type-named? 'fork) u) (or (can-be? (lambda (u) (and ((truly-compatible-call-via-fork1? x) u) (eq? u (environment-type (expression-environment (expression d1)))))) (expression-type-set (first-argument (expression-parent (expression d2))))) (can-be? (lambda (u) (and ((truly-compatible-call-via-fork2? x) u) (eq? u (environment-type (expression-environment (expression d1)))))) (expression-type-set (second-argument (expression-parent (expression d2))))))) (and ((primitive-procedure-type-named? 'mutex) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-mutex? x) u) (eq? u (environment-type (expression-environment (expression d1)))))) (expression-type-set (first-argument (expression-parent (expression d2))))))))) (expression-type-set (expression-callee (expression d2))))) ;; From after callee or last argument to after call when target is a noop, ;; primitive procedure, or foreign procedure. (and (after? d1) (after? d2) (expression-parent (expression d1)) (eq? (expression-parent (expression d1)) (expression d2)) ;; needs work: The following comment might not be accurate. ;; Converted calls and calls to converted lambdas and continuations never ;; return. (eq? (expression-kind (expression d2)) 'call) (or (and (eq? (expression-callee (expression d2)) (expression d1)) (null? (expression-arguments (expression d2)))) (and (memq (expression d1) (expression-arguments (expression d2))) (= (positionq (expression d1) (expression-arguments (expression d2))) (- (length (expression-arguments (expression d2))) 1)))) (can-be? (lambda (u) (and ((truly-compatible-call? (expression d2)) u) (or (and (native-procedure-type? u) (noop? u)) (and (primitive-procedure-type? u) (not ((primitive-procedure-type-named? 'apply) u)) (not ((primitive-procedure-type-named? 'call-with-current-continuation) u)) (not ((primitive-procedure-type-named? 'fork) u)) (not ((primitive-procedure-type-named? 'mutex) u))) (foreign-procedure-type? u) (and ((primitive-procedure-type-named? 'apply) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-apply? x) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression d2))))) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-call-with-current-continuation? x) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression d2))))) (and ((primitive-procedure-type-named? 'fork) u) (or (can-be? (lambda (u) (and ((truly-compatible-call-via-fork1? x) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression d2)))) (can-be? (lambda (u) (and ((truly-compatible-call-via-fork2? x) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (second-argument (expression d2)))))) (and ((primitive-procedure-type-named? 'mutex) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-mutex? x) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression d2)))))))) (expression-type-set (expression-callee (expression d2))))) ;; From after callee or last argument to after call to ;; CALL-WITH-CURRENT-CONTINUATION when target is a continuation. ;; needs work: Doesn't handle implicit continuation calls. (and (after? d1) (after? d2) (expression-parent (expression d1)) (or (eq? (expression-kind (expression-parent (expression d1))) 'call) (eq? (expression-kind (expression-parent (expression d1))) 'converted-call)) (or (and (eq? (expression-callee (expression-parent (expression d1))) (expression d1)) (null? (expression-arguments (expression-parent (expression d1))))) (and (memq (expression d1) (expression-arguments (expression-parent (expression d1)))) (= (positionq (expression d1) (expression-arguments (expression-parent (expression d1)))) (- (length (expression-arguments (expression-parent (expression d1)))) 1)))) (can-be? (lambda (u) (and (eq? (continuation-type-allocating-expression u) (expression d2)) ((truly-compatible-call? (expression-parent (expression d1))) u))) (expression-type-set (expression-callee (expression-parent (expression d1)))))))) (define (control-properly-flows? d1 d2) (let ((ds '())) (some (lambda (d) (let loop ((d d)) (or (same-program-point? d d2) (and (not (memp same-program-point? d ds)) (begin (set! ds (cons d ds)) (some loop (program-points-that-directly-flow-from d))))))) (program-points-that-directly-flow-from d1)))) (define (control-flows? d1 d2) (or (same-program-point? d1 d2) (control-properly-flows? d1 d2))) (define (program-points-that-directly-flow-to d) ;; needs work: To handle calls to primitive, native, and foreign procedures ;; that don't return. (if (before? d) (append ;; From before SET! to before source. (if (and (expression-parent (expression d)) (eq? (expression-kind (expression-parent (expression d))) 'set!)) (list (before (expression-parent (expression d)))) '()) ;; From before IF to before antecedent. (if (and (expression-parent (expression d)) (eq? (expression-kind (expression-parent (expression d))) 'if) (eq? (expression-antecedent (expression-parent (expression d))) (expression d))) (list (before (expression-parent (expression d)))) '()) ;; From after antecedent to before consequent and alternate. (if (and (expression-parent (expression d)) (eq? (expression-kind (expression-parent (expression d))) 'if) (or (and (eq? (expression-consequent (expression-parent (expression d))) (expression d)) (can-be-non? false-type? (expression-type-set (expression-antecedent (expression-parent (expression d)))))) (and (eq? (expression-alternate (expression-parent (expression d))) (expression d)) (can-be? false-type? (expression-type-set (expression-antecedent (expression-parent (expression d)))))))) (list (after (expression-antecedent (expression-parent (expression d))))) '()) ;; note: The following all assume a callee-first left-to-right argument ;; evaluation order. ;; From before call to before callee. (if (and (expression-parent (expression d)) (or (eq? (expression-kind (expression-parent (expression d))) 'call) (eq? (expression-kind (expression-parent (expression d))) 'converted-call)) (eq? (expression-callee (expression-parent (expression d))) (expression d))) (list (before (expression-parent (expression d)))) '()) ;; From after callee to before first argument. (if (and (expression-parent (expression d)) (or (eq? (expression-kind (expression-parent (expression d))) 'call) (eq? (expression-kind (expression-parent (expression d))) 'converted-call)) (not (null? (expression-arguments (expression-parent (expression d))))) (eq? (first (expression-arguments (expression-parent (expression d)))) (expression d))) (list (after (expression-callee (expression-parent (expression d))))) '()) ;; From after each argument to before next argument. (if (and (expression-parent (expression d)) (or (eq? (expression-kind (expression-parent (expression d))) 'call) (eq? (expression-kind (expression-parent (expression d))) 'converted-call)) (memq (expression d) (expression-arguments (expression-parent (expression d)))) (not (eq? (expression d) (first (expression-arguments (expression-parent (expression d))))))) (list (after (list-ref (expression-arguments (expression-parent (expression d))) (- (positionq (expression d) (expression-arguments (expression-parent (expression d)))) 1)))) '()) ;; From after callee or last argument to before target when target is a ;; non-noop native procedure. (if (and (expression-parent (expression d)) (or (eq? (expression-kind (expression-parent (expression d))) 'lambda) (eq? (expression-kind (expression-parent (expression d))) 'converted-lambda) (eq? (expression-kind (expression-parent (expression d))) 'converted-continuation)) (called? (expression-environment (expression d)))) (map (lambda (x) (after (if (null? (expression-arguments x)) (expression-callee x) (last (expression-arguments x))))) (remove-if-not (lambda (x) (can-be? (lambda (u) (and ((truly-compatible-call? x) u) (or (eq? u (environment-type (expression-environment (expression d)))) (and ((primitive-procedure-type-named? 'apply) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-apply? x) u) (eq? u (environment-type (expression-environment (expression d)))))) (expression-type-set (first-argument x)))) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-call-with-current-continuation? x) u) (eq? u (environment-type (expression-environment (expression d)))))) (expression-type-set (first-argument x)))) (and ((primitive-procedure-type-named? 'fork) u) (or (can-be? (lambda (u) (and ((truly-compatible-call-via-fork1? x) u) (eq? u (environment-type (expression-environment (expression d)))))) (expression-type-set (first-argument x))) (can-be? (lambda (u) (and ((truly-compatible-call-via-fork2? x) u) (eq? u (environment-type (expression-environment (expression d)))))) (expression-type-set (second-argument x))))) (and ((primitive-procedure-type-named? 'mutex) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-mutex? x) u) (eq? u (environment-type (expression-environment (expression d)))))) (expression-type-set (first-argument x))))))) (expression-type-set (expression-callee x)))) *calls*)) '())) (append (if (or (eq? (expression-kind (expression d)) 'null-constant) (eq? (expression-kind (expression d)) 'true-constant) (eq? (expression-kind (expression d)) 'false-constant) (eq? (expression-kind (expression d)) 'char-constant) (eq? (expression-kind (expression d)) 'fixnum-constant) (eq? (expression-kind (expression d)) 'flonum-constant) (eq? (expression-kind (expression d)) 'rectangular-constant) (eq? (expression-kind (expression d)) 'string-constant) (eq? (expression-kind (expression d)) 'symbol-constant) (eq? (expression-kind (expression d)) 'pair-constant) (eq? (expression-kind (expression d)) 'vector-constant) (eq? (expression-kind (expression d)) 'lambda) (eq? (expression-kind (expression d)) 'converted-lambda) (eq? (expression-kind (expression d)) 'converted-continuation) (eq? (expression-kind (expression d)) 'primitive-procedure) (eq? (expression-kind (expression d)) 'foreign-procedure) (eq? (expression-kind (expression d)) 'access)) (list (before (expression d))) '()) ;; From after source to after SET!. (if (eq? (expression-kind (expression d)) 'set!) (list (after (expression-source (expression d)))) '()) ;; From after consequent and alternate to after IF. (if (eq? (expression-kind (expression d)) 'if) (list (after (expression-consequent (expression d))) (after (expression-alternate (expression d)))) '()) ;; From after target to after call. ;; needs work: The following comment might not be accurate. ;; Converted calls and calls to converted lambdas and continuations never ;; return. (if (eq? (expression-kind (expression d)) 'call) (append (map (lambda (u) (after (expression-body (environment-expression (callee-environment u (create-call-site (expression d))))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call? (expression d)) u))) (expression-type-set (expression-callee (expression d))))) (if (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'apply) u) ((truly-compatible-call? (expression d)) u))) (expression-type-set (expression-callee (expression d)))) (map (lambda (u) (after (expression-body (environment-expression (callee-environment u (recreate-call-site (create-call-site (expression d)) 'first-argument)))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call-via-apply? (expression d)) u))) (expression-type-set (first-argument (expression d))))) '()) (if (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) ((truly-compatible-call? (expression d)) u))) (expression-type-set (expression-callee (expression d)))) (map (lambda (u) (after (expression-body (environment-expression (callee-environment u (recreate-call-site (create-call-site (expression d)) 'first-argument)))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call-via-call-with-current-continuation? (expression d)) u))) (expression-type-set (first-argument (expression d))))) '()) (if (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'fork) u) ((truly-compatible-call? (expression d)) u))) (expression-type-set (expression-callee (expression d)))) (append (map (lambda (u) (after (expression-body (environment-expression (callee-environment u (recreate-call-site (create-call-site (expression d)) 'first-argument)))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call-via-fork1? (expression d)) u))) (expression-type-set (first-argument (expression d))))) (map (lambda (u) (after (expression-body (environment-expression (callee-environment u (recreate-call-site (create-call-site (expression d)) 'second-argument)))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call-via-fork2? (expression d)) u))) (expression-type-set (second-argument (expression d)))))) '()) (if (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'mutex) u) ((truly-compatible-call? (expression d)) u))) (expression-type-set (expression-callee (expression d)))) (map (lambda (u) (after (expression-body (environment-expression (callee-environment u (recreate-call-site (create-call-site (expression d)) 'first-argument)))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call-via-mutex? (expression d)) u))) (expression-type-set (first-argument (expression d))))) '())) '()) ;; From after callee or last argument to after call when target is a ;; noop, primitive procedure, or foreign procedure. ;; needs work: The following comment might not be accurate. ;; Converted calls and calls to converted lambdas and continuations never ;; return. (if (and (eq? (expression-kind (expression d)) 'call) (can-be? (lambda (u) (and ((truly-compatible-call? (expression d)) u) (or (and (native-procedure-type? u) (noop? u)) (and (primitive-procedure-type? u) (not ((primitive-procedure-type-named? 'apply) u)) (not ((primitive-procedure-type-named? 'call-with-current-continuation) u)) (not ((primitive-procedure-type-named? 'fork) u)) (not ((primitive-procedure-type-named? 'mutex) u))) (foreign-procedure-type? u) (and ((primitive-procedure-type-named? 'apply) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-apply? (expression d)) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression d))))) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-call-with-current-continuation? (expression d)) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression d))))) (and ((primitive-procedure-type-named? 'fork) u) (or (can-be? (lambda (u) (and ((truly-compatible-call-via-fork1? (expression d)) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression d)))) (can-be? (lambda (u) (and ((truly-compatible-call-via-fork2? (expression d)) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (second-argument (expression d)))))) (and ((primitive-procedure-type-named? 'mutex) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-mutex? (expression d)) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression d)))))))) (expression-type-set (expression-callee (expression d))))) (if (null? (expression-arguments (expression d))) (list (after (expression-callee (expression d)))) (list (after (last (expression-arguments (expression d)))))) '()) ;; From after callee or last argument to after call to ;; CALL-WITH-CURRENT-CONTINUATION when target is a continuation. ;; needs work: Doesn't handle implicit continuation calls. (if (and (or (eq? (expression-kind (expression d)) 'call) (eq? (expression-kind (expression d)) 'converted-call)) (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) ((truly-compatible-call? (expression d)) u))) (expression-type-set (expression-callee (expression d))))) (map (lambda (x) (after (if (null? (expression-arguments x)) (expression-callee x) (last (expression-arguments x))))) (remove-if-not (lambda (x) (can-be? (lambda (u) (and (continuation-type? u) (eq? (continuation-type-allocating-expression u) (expression d)) ((truly-compatible-call? (expression d)) u))) (expression-type-set (expression-callee x)))) *calls*)) '())))) (define (program-points-that-properly-flow-to d) (let ((ds '())) (for-each (lambda (d) (let loop ((d d)) (unless (memp same-program-point? d ds) (set! ds (cons d ds)) (for-each loop (program-points-that-directly-flow-to d))))) (program-points-that-directly-flow-to d)) ds)) (define (program-points-that-flow-to d) (let ((ds (program-points-that-properly-flow-to d))) (if (memp same-program-point? d ds) ds (cons d ds)))) (define (program-points-that-directly-flow-from d) ;; needs work: To handle calls to primitive, native, and foreign procedures ;; that don't return. (if (before? d) (cond ((or (eq? (expression-kind (expression d)) 'null-constant) (eq? (expression-kind (expression d)) 'true-constant) (eq? (expression-kind (expression d)) 'false-constant) (eq? (expression-kind (expression d)) 'char-constant) (eq? (expression-kind (expression d)) 'fixnum-constant) (eq? (expression-kind (expression d)) 'flonum-constant) (eq? (expression-kind (expression d)) 'rectangular-constant) (eq? (expression-kind (expression d)) 'string-constant) (eq? (expression-kind (expression d)) 'symbol-constant) (eq? (expression-kind (expression d)) 'pair-constant) (eq? (expression-kind (expression d)) 'vector-constant) (eq? (expression-kind (expression d)) 'lambda) (eq? (expression-kind (expression d)) 'converted-lambda) (eq? (expression-kind (expression d)) 'converted-continuation) (eq? (expression-kind (expression d)) 'primitive-procedure) (eq? (expression-kind (expression d)) 'foreign-procedure) (eq? (expression-kind (expression d)) 'access)) (list (after (expression d)))) ;; From before SET! to before source. ((eq? (expression-kind (expression d)) 'set!) (list (before (expression-source (expression d))))) ;; From before IF to before antecedent. ((eq? (expression-kind (expression d)) 'if) (list (before (expression-antecedent (expression d))))) ;; note: The following all assume a callee-first left-to-right ;; argument evaluation order. ;; From before call to before callee. ((or (eq? (expression-kind (expression d)) 'call) (eq? (expression-kind (expression d)) 'converted-call)) (list (before (expression-callee (expression d))))) (else '())) (append ;; From after source to after SET!. (if (and (expression-parent (expression d)) (eq? (expression-kind (expression-parent (expression d))) 'set!)) (list (after (expression-parent (expression d)))) '()) ;; From after antecedent to before consequent and alternate. (if (and (expression-parent (expression d)) (eq? (expression-kind (expression-parent (expression d))) 'if) (eq? (expression-antecedent (expression-parent (expression d))) (expression d)) (can-be-non? false-type? (expression-type-set (expression-antecedent (expression-parent (expression d)))))) (list (before (expression-consequent (expression-parent (expression d))))) '()) (if (and (expression-parent (expression d)) (eq? (expression-kind (expression-parent (expression d))) 'if) (eq? (expression-antecedent (expression-parent (expression d))) (expression d)) (can-be? false-type? (expression-type-set (expression-antecedent (expression-parent (expression d)))))) (list (before (expression-alternate (expression-parent (expression d))))) '()) ;; From after consequent and alternate to after IF. (if (and (expression-parent (expression d)) (eq? (expression-kind (expression-parent (expression d))) 'if) (or (eq? (expression-consequent (expression-parent (expression d))) (expression d)) (eq? (expression-alternate (expression-parent (expression d))) (expression d)))) (list (after (expression-parent (expression d)))) '()) ;; note: The following all assume a callee-first left-to-right argument ;; evaluation order. ;; From after callee to before first argument. (if (and (expression-parent (expression d)) (or (eq? (expression-kind (expression-parent (expression d))) 'call) (eq? (expression-kind (expression-parent (expression d))) 'converted-call)) (eq? (expression-callee (expression-parent (expression d))) (expression d)) (not (null? (expression-arguments (expression-parent (expression d)))))) (list (before (first (expression-arguments (expression-parent (expression d)))))) '()) ;; From after each argument to before next argument. (if (and (expression-parent (expression d)) (or (eq? (expression-kind (expression-parent (expression d))) 'call) (eq? (expression-kind (expression-parent (expression d))) 'converted-call)) (memq (expression d) (expression-arguments (expression-parent (expression d)))) (< (positionq (expression d) (expression-arguments (expression-parent (expression d)))) (- (length (expression-arguments (expression-parent (expression d)))) 1))) (list (before (list-ref (expression-arguments (expression-parent (expression d))) (+ (positionq (expression d) (expression-arguments (expression-parent (expression d)))) 1)))) '()) ;; From after callee or last argument to before target when target is a ;; non-noop native procedure. (if (and (expression-parent (expression d)) (or (eq? (expression-kind (expression-parent (expression d))) 'call) (eq? (expression-kind (expression-parent (expression d))) 'converted-call)) (or (and (eq? (expression-callee (expression-parent (expression d))) (expression d)) (null? (expression-arguments (expression-parent (expression d))))) (and (memq (expression d) (expression-arguments (expression-parent (expression d)))) (= (positionq (expression d) (expression-arguments (expression-parent (expression d)))) (- (length (expression-arguments (expression-parent (expression d)))) 1))))) (append (map (lambda (u) (before (expression-body (environment-expression (callee-environment u (create-call-site (expression-parent (expression d)))))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call? (expression-parent (expression d))) u))) (expression-type-set (expression-callee (expression-parent (expression d)))))) (if (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'apply) u) ((truly-compatible-call? (expression-parent (expression d))) u))) (expression-type-set (expression-callee (expression-parent (expression d))))) (map (lambda (u) (before (expression-body (environment-expression (callee-environment u (recreate-call-site (create-call-site (expression-parent (expression d))) 'first-argument)))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call-via-apply? (expression-parent (expression d))) u))) (expression-type-set (first-argument (expression-parent (expression d)))))) '()) (if (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) ((truly-compatible-call? (expression-parent (expression d))) u))) (expression-type-set (expression-callee (expression-parent (expression d))))) (map (lambda (u) (before (expression-body (environment-expression (callee-environment u (recreate-call-site (create-call-site (expression-parent (expression d))) 'first-argument)))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call-via-call-with-current-continuation? (expression-parent (expression d))) u))) (expression-type-set (first-argument (expression-parent (expression d)))))) '()) (if (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'fork) u) ((truly-compatible-call? (expression-parent (expression d))) u))) (expression-type-set (expression-callee (expression-parent (expression d))))) (append (map (lambda (u) (before (expression-body (environment-expression (callee-environment u (recreate-call-site (create-call-site (expression-parent (expression d))) 'first-argument)))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call-via-fork1? (expression-parent (expression d))) u))) (expression-type-set (first-argument (expression-parent (expression d)))))) (map (lambda (u) (before (expression-body (environment-expression (callee-environment u (recreate-call-site (create-call-site (expression-parent (expression d))) 'second-argument)))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call-via-fork2? (expression-parent (expression d))) u))) (expression-type-set (second-argument (expression-parent (expression d))))))) '()) (if (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'mutex) u) ((truly-compatible-call? (expression-parent (expression d))) u))) (expression-type-set (expression-callee (expression-parent (expression d))))) (map (lambda (u) (before (expression-body (environment-expression (callee-environment u (recreate-call-site (create-call-site (expression-parent (expression d))) 'first-argument)))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call-via-mutex? (expression-parent (expression d))) u))) (expression-type-set (first-argument (expression-parent (expression d)))))) '())) '()) ;; From after target to after call. (if (and (expression-parent (expression d)) ;; needs work: The following comment might not be accurate. ;; Calls to converted lambdas and continuations never return. (eq? (expression-kind (expression-parent (expression d))) 'lambda) (called? (expression-environment (expression d)))) (map after (remove-if-not (lambda (x) (can-be? (lambda (u) (and ((truly-compatible-call? x) u) (or (eq? u (environment-type (expression-environment (expression d)))) (and ((primitive-procedure-type-named? 'apply) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-apply? x) u) (eq? u (environment-type (expression-environment (expression d)))))) (expression-type-set (first-argument x)))) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-call-with-current-continuation? x) u) (eq? u (environment-type (expression-environment (expression d)))))) (expression-type-set (first-argument x)))) (and ((primitive-procedure-type-named? 'fork) u) (or (can-be? (lambda (u) (and ((truly-compatible-call-via-fork1? x) u) (eq? u (environment-type (expression-environment (expression d)))))) (expression-type-set (first-argument x))) (can-be? (lambda (u) (and ((truly-compatible-call-via-fork2? x) u) (eq? u (environment-type (expression-environment (expression d)))))) (expression-type-set (second-argument x))))) (and ((primitive-procedure-type-named? 'mutex) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-mutex? x) u) (eq? u (environment-type (expression-environment (expression d)))))) (expression-type-set (first-argument x))))))) (expression-type-set (expression-callee x)))) *calls*)) '()) ;; From after callee or last argument to after call when target is a ;; noop, primitive procedure, or foreign procedure. (if (and (expression-parent (expression d)) ;; needs work: The following comment might not be accurate. ;; Converted calls never return. (eq? (expression-kind (expression-parent (expression d))) 'call) (or (and (eq? (expression-callee (expression-parent (expression d))) (expression d)) (null? (expression-arguments (expression-parent (expression d))))) (and (memq (expression d) (expression-arguments (expression-parent (expression d)))) (= (positionq (expression d) (expression-arguments (expression-parent (expression d)))) (- (length (expression-arguments (expression-parent (expression d)))) 1))) (can-be? (lambda (u) (and ((truly-compatible-call? (expression-parent (expression d))) u) (or (and (native-procedure-type? u) (noop? u)) (and (primitive-procedure-type? u) (not ((primitive-procedure-type-named? 'apply) u)) (not ((primitive-procedure-type-named? 'call-with-current-continuation) u)) (not ((primitive-procedure-type-named? 'fork) u)) (not ((primitive-procedure-type-named? 'mutex) u))) (foreign-procedure-type? u) (and ((primitive-procedure-type-named? 'apply) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-apply? (expression-parent (expression d))) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression-parent (expression d)))))) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-call-with-current-continuation? (expression-parent (expression d))) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression-parent (expression d)))))) (and ((primitive-procedure-type-named? 'fork) u) (or (can-be? (lambda (u) (and ((truly-compatible-call-via-fork1? (expression-parent (expression d))) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression-parent (expression d))))) (can-be? (lambda (u) (and ((truly-compatible-call-via-fork2? (expression-parent (expression d))) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (second-argument (expression-parent (expression d))))))) (and ((primitive-procedure-type-named? 'mutex) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-mutex? (expression-parent (expression d))) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression-parent (expression d))))))))) (expression-type-set (expression-callee (expression-parent (expression d))))))) (list (after (expression-parent (expression d)))) '()) ;; From after callee or last argument to after call to ;; CALL-WITH-CURRENT-CONTINUATION when target is a continuation. ;; needs work: Doesn't handle implicit continuations calls. (if (and (expression-parent (expression d)) (or (eq? (expression-kind (expression-parent (expression d))) 'call) (eq? (expression-kind (expression-parent (expression d))) 'converted-call)) (or (and (eq? (expression-callee (expression-parent (expression d))) (expression d)) (null? (expression-arguments (expression-parent (expression d))))) (and (memq (expression d) (expression-arguments (expression-parent (expression d)))) (= (positionq (expression d) (expression-arguments (expression-parent (expression d)))) (- (length (expression-arguments (expression-parent (expression d)))) 1))))) (map (lambda (u) (after (continuation-type-allocating-expression u))) (members-that (lambda (u) (and (continuation-type? u) ((truly-compatible-call? (expression-parent (expression d))) u))) (expression-type-set (expression-callee (expression-parent (expression d)))))) '())))) (define (program-points-that-properly-flow-from d) (let ((ds '())) (for-each (lambda (d) (let loop ((d d)) (unless (memp same-program-point? d ds) (set! ds (cons d ds)) (for-each loop (program-points-that-directly-flow-from d))))) (program-points-that-directly-flow-from d)) ds)) (define (program-points-that-flow-from d) (let ((ds (program-points-that-properly-flow-from d))) (if (memp same-program-point? d ds) ds (cons d ds)))) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/source/stalin2.sc0000600017435200151030000005126410464435505014612 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; Stalin 0.11 - A global optimizing compiler for Scheme ;;; Copyright 1993, 1994, and 1995 University of Toronto. All rights reserved. ;;; Copyright 1996 Technion. All rights reserved. ;;; Copyright 1996 and 1997 University of Vermont. All rights reserved. ;;; Copyright 1997, 1998, 1999, 2000, and 2001 NEC Research Institute, Inc. All ;;; rights reserved. ;;; Copyright 2002, 2003, 2004, 2005, and 2006 Purdue University. All rights ;;; reserved. ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License ;;; as published by the Free Software Foundation; either version 2 ;;; of the License, or (at your option) any later version. ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;;; written by: ;;; Jeffrey Mark Siskind ;;; School of Electrical and Computer Engineering ;;; Purdue University ;;; Electrical Engineering Building, Room 330 ;;; 465 Northwestern Avenue ;;; West Lafayette IN 47907-2035 USA ;;; voice: 765/496-3197 ;;; fax: 765/494-6440 ;;; qobi@purdue.edu ;;; http://www.ece.purdue.edu/~qobi ;;; Begin delete for Trotsky (module stalin2) (include "QobiScheme.sch") (include "stalin2.sch") ;;; End delete for Trotsky ;;; Error messages (define *october?* #f) ;;; Begin delete for Trotsky (define (notify format-string . args) ;; conventions: FORMAT-STRING ARGS (let ((string (apply format #f format-string args))) (cond (else (display string) (newline))))) (define (split-into-lines s) ;; conventions: S (let loop ((characters (string->list s)) (lines '(""))) ;; conventions: CHARACTERS LINES (cond ((null? characters) (reverse lines)) ((char=? (first characters) #\newline) (loop (rest characters) (cons "" lines))) (else (loop (rest characters) (cons (string-append (first lines) (string (first characters))) (rest lines))))))) (define (notify-pp format-string . args) ;; conventions: FORMAT-STRING ARGS (cond (else (let ((pretty? (write-pretty))) ;; conventions: PRETTY? (set-write-pretty! #t) (apply format #t format-string args) (set-write-pretty! pretty?)) (newline)))) (define (notify-pp3 format-string . args) ;; conventions: FORMAT-STRING ARGS (cond (else (let ((level (write-level)) (pretty? (write-pretty))) ;; conventions: LEVEL PRETTY? (set-write-level! 3) (set-write-pretty! #t) (apply format #t format-string args) (set-write-level! level) (set-write-pretty! pretty?)) (newline)))) (define *throw* #f) ;debugging (define (terminate) (cond (*throw* (*throw* #f)) ;debugging (*october?* (abort)) (else (exit -1)))) ;;; End delete for Trotsky (define (syntax-error s error) ;; conventions: ERROR (if (s-expression-pathname s) (notify "~a:~s:~s:~a" (s-expression-pathname s) (s-expression-line-position s) (s-expression-character-position s) error) (notify error)) (terminate)) (define (unimplemented x/y error) ;; conventions: ERROR ;; needs work: Should give an indication of the call-site offset. (cond ((expression? x/y) (if (expression-pathname x/y) (notify "~a:~s:~s:~a" (expression-pathname x/y) (expression-line-position x/y) (expression-character-position x/y)) (notify error))) ((call-site? x/y) (unimplemented (call-site-expression x/y) error)) (else (notify error))) (terminate)) ;;; Macro utilities (define (sx-datum s) ;; note: This can't be eta-converted because of bugs running under IRIX 5.3. (s-expression-datum s)) (define (macro? s) (assq (sx-datum s) *macros*)) (define (macro-expander s) (second (assq (sx-datum s) *macros*))) (define (expand-macro s) (unless (s-expression-expansion s) (set-s-expression-expansion! s (create-s-expression (s-expression-pathname s) (s-expression-line-position s) (s-expression-character-position s) (s-expression-character-position-within-line s) (s-expression-comments s) ;; needs work: This encapsulation loses the line and character positions of ;; the macro that is being expanded. (sx-datum (encapsulate ((macro-expander (sx-first s)) s)))))) (s-expression-expansion s)) (define (sx-car s) (car (sx-datum s))) (define (sx-cdr s) (cdr (sx-datum s))) (define (sx-first s) ;; note: This can't be eta-converted because of bugs running under IRIX 5.3. (sx-car s)) (define (sx-second s) (sx-car (sx-cdr s))) (define (sx-third s) (sx-car (sx-cdr (sx-cdr s)))) (define (sx-fourth s) (sx-car (sx-cdr (sx-cdr (sx-cdr s))))) (define (sx-fifth s) (sx-car (sx-cdr (sx-cdr (sx-cdr (sx-cdr s)))))) (define (sx-sixth s) (sx-car (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr s))))))) (define (sx-seventh s) (sx-car (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr s)))))))) (define (sx-eighth s) (sx-car (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr s))))))))) (define (sx-ninth s) (sx-car (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr s)))))))))) (define (sx-tenth s) (sx-car (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr s))))))))))) (define (sx-eleventh s) (sx-car (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr s)))))))))))) (define (sx-twelfth s) (sx-car (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr s))))))))))))) (define (sx-rest s) ;; note: This can't be eta-converted because of bugs running under IRIX 5.3. (sx-cdr s)) (define (sx-length s) (let loop ((s s) (c 0)) ;; conventions: C (if (sx-null? s) c (loop (sx-rest s) (+ c 1))))) (define (sx-null? s) (null? (sx-datum s))) (define (sx-pair? s) (pair? (sx-datum s))) (define (sx-symbol? s) (symbol? (sx-datum s))) (define (sx-string? s) (string? (sx-datum s))) (define (sx-vector? s) (vector? (sx-datum s))) (define (sx-char? s) (char? (sx-datum s))) (define (sx-eq? s q) (eq? (sx-datum s) q)) (define (sx-integer? s) (integer? (sx-datum s))) (define (sx-rational? s) (rational? (sx-datum s))) (define (sx-real? s) (real? (sx-datum s))) (define (sx-complex? s) (complex? (sx-datum s))) (define (sx-exact? s) (exact? (sx-datum s))) (define (sx-negative? s) (negative? (sx-datum s))) (define (sx-map-vector p s) ;; note: Not a real analog. ;; conventions: P (map-vector p (sx-datum s))) (define (sx-map p s) ;; note: Not a real analog. ;; conventions: P (let loop ((s s) (c '())) ;; conventions: C (if (sx-null? s) (reverse c) (loop (sx-rest s) (cons (p (sx-first s)) c))))) (define (sx-every p s) ;; conventions: P (or (sx-null? s) (and (p (sx-first s)) (sx-every p (sx-rest s))))) (define (sx-some p s) ;; conventions: P (and (not (sx-null? s)) (or (p (sx-first s)) (sx-some p (sx-rest s))))) (define (sx-for-each p s) ;; conventions: P (unless (sx-null? s) (p (sx-first s)) (sx-for-each p (sx-rest s)))) (define (sx-list? s) (or (sx-null? s) (and (sx-pair? s) (sx-list? (sx-rest s))))) (define (sx-for-each-vector p s) ;; conventions: P (for-each-vector p (sx-datum s))) (define (sx-last s) (if (sx-null? (sx-rest s)) (sx-first s) (sx-last (sx-rest s)))) (define (sx-vector->list s) ;; note: Not a real analog. (vector->list (sx-datum s))) (define (sx-some-vector p s) ;; conventions: P (some-vector p (sx-datum s))) (define (sx-unlist s) (sx-map (lambda (s) s) s)) ;;; needs work: EVERY LIST? (define (encapsulate s/q) (cond ((s-expression? s/q) s/q) ((pair? s/q) (create-anonymous-s-expression (cons (encapsulate (car s/q)) (encapsulate (cdr s/q))))) ((vector? s/q) (create-anonymous-s-expression (map-vector encapsulate s/q))) (else (create-anonymous-s-expression s/q)))) (define (october-encapsulate version cursor s/q) (let loop ((s/q s/q)) (cond ((s-expression? s/q) s/q) ((pair? s/q) (create-october-s-expression version cursor (cons (loop (car s/q)) (loop (cdr s/q))))) ((vector? s/q) (create-october-s-expression version cursor (map-vector loop s/q))) (else (create-october-s-expression version cursor s/q))))) (define (unencapsulate s/q) (cond ((s-expression? s/q) (unencapsulate (s-expression-datum s/q))) ((vector? s/q) (map-vector unencapsulate s/q)) ((pair? s/q) (cons (unencapsulate (car s/q)) (unencapsulate (cdr s/q)))) (else s/q))) ;;; Foreign Procedures (define (valid-foreign-parameter-type? s) (or (sx-eq? s 'char) (sx-eq? s 'signed-char) (sx-eq? s 'unsigned-char) (sx-eq? s 'short) (sx-eq? s 'unsigned-short) (sx-eq? s 'int) (sx-eq? s 'unsigned) (sx-eq? s 'long) (sx-eq? s 'unsigned-long) (sx-eq? s 'float) (sx-eq? s 'double) (sx-eq? s 'long-double) (sx-eq? s 'char*) (sx-eq? s 'file*) (sx-eq? s 'void*))) (define (valid-foreign-return-type? s) (or (sx-eq? s 'char) (sx-eq? s 'signed-char) (sx-eq? s 'unsigned-char) (sx-eq? s 'short) (sx-eq? s 'unsigned-short) (sx-eq? s 'int) (sx-eq? s 'unsigned) (sx-eq? s 'long) (sx-eq? s 'unsigned-long) (sx-eq? s 'float) (sx-eq? s 'double) (sx-eq? s 'long-double) (sx-eq? s 'char*) (sx-eq? s 'input-port) (sx-eq? s 'output-port) (sx-eq? s 'void*) (sx-eq? s 'void) (sx-eq? s 'no-return))) (define (foreign-type? f) (case f ((char signed-char unsigned-char) char-type?) ((short unsigned-short int unsigned long unsigned-long) fixnum-type?) ((float double long-double) flonum-type?) ((char*) string-type?) ((file*) (lambda (u) (or (input-port-type? u) (output-port-type? u)))) ((input-port) input-port-type?) ((output-port) output-port-type?) ((void*) pointer-type?) (else (fuck-up)))) (define (foreign-return-type->type-set f) (case f ((char signed-char unsigned-char) *foreign-char-type-set*) ((short unsigned-short int unsigned long unsigned-long) *foreign-fixnum-type-set*) ((float double long-double) *foreign-flonum-type-set*) ((char*) *foreign-string-type-set*) ((input-port) *foreign-input-port-type-set*) ((output-port) *foreign-output-port-type-set*) ((void*) *foreign-pointer-type-set*) ((void no-return) *void*) (else (fuck-up)))) (define (foreign-procedure-return-type-set u) (foreign-return-type->type-set (foreign-procedure-type-result u))) (define (foreign-procedure-returns? u) (not (eq? (foreign-procedure-type-result u) 'no-return))) ;;; Enumerating symbol constants (define (valid-parameter? s) (and (sx-symbol? s) (not (sx-eq? s 'quote)) (not (sx-eq? s 'lambda)) (not (sx-eq? s 'set!)) (not (sx-eq? s 'if)) (not (sx-eq? s 'primitive-procedure)) (not (sx-eq? s 'foreign-procedure)) (not (sx-eq? s 'else)) (not (sx-eq? s '=>)) (not (sx-eq? s 'define)) (not (macro? s)))) (define (valid-parameters? s) (or (and (sx-pair? s) (valid-parameter? (sx-car s)) (valid-parameters? (sx-cdr s))) (sx-null? s) (valid-parameter? s))) (define (disjoint? qs) (or (null? qs) (and (let loop? ((qs1 (rest qs))) (or (null? qs1) (and (not (eq? (first qs) (first qs1))) (loop? (rest qs1))))) (disjoint? (rest qs))))) (define (parameters s) (cond ((sx-null? s) '()) ((sx-pair? s) (cons (sx-datum (sx-car s)) (parameters (sx-cdr s)))) ((sx-symbol? s) (list (sx-datum s))) (else (fuck-up)))) (define (parameters->variables s) (cond ((sx-null? s) '()) ((sx-pair? s) (cons (create-variable (sx-car s)) (parameters->variables (sx-cdr s)))) ((sx-symbol? s) (create-variable s)) (else (fuck-up)))) (define (symbols-in s) (let ((qs '())) (define (symbols-in-constant s) (cond ((sx-null? s) #f) ((sx-eq? s #t) #f) ((sx-eq? s #f) #f) ((sx-char? s) #f) ((and (sx-integer? s) (sx-exact? s)) #f) ((sx-rational? s) (when (sx-exact? s) (syntax-error s "Cannot (yet) compile exact rational noninteger constants"))) ((sx-real? s) (when (sx-exact? s) (syntax-error s "Cannot (yet) compile exact real nonrational constants"))) ((sx-complex? s) (when (sx-exact? s) (syntax-error s "Cannot (yet) compile exact complex nonreal constants"))) ((sx-string? s) #f) ((sx-symbol? s) (unless (memq (sx-datum s) qs) (set! qs (cons (sx-datum s) qs)))) ((sx-pair? s) (symbols-in-constant (sx-car s)) (symbols-in-constant (sx-cdr s))) ((sx-vector? s) (sx-for-each-vector symbols-in-constant s)) ;; procedures, input ports, output ports, eof objects, structures, and ;; pointers (else (syntax-error s "Unrecognized constant type")))) (define (symbols-in s) (cond ((sx-null? s) (syntax-error s "Improper expression")) ((sx-pair? s) (unless (sx-list? s) (syntax-error s "Improper expression")) (if (sx-symbol? (sx-first s)) (case (sx-datum (sx-first s)) ((quote) (unless (= (sx-length s) 2) (syntax-error s "Improper QUOTE")) (symbols-in-constant (sx-second s))) ((lambda) ;; Extension to R4RS: LAMBDA can have empty body. (unless (and (>= (sx-length s) 2) (valid-parameters? (sx-second s)) (disjoint? (parameters (sx-second s)))) (syntax-error s "Improper LAMBDA")) (let ((s (macroexpand-body s))) (unless (sx-null? (sx-rest (sx-rest s))) (symbols-in (sx-third s))))) ((set!) (unless (and (= (sx-length s) 3) (sx-symbol? (sx-second s))) (syntax-error s "Improper SET!")) (symbols-in (sx-third s))) ((if) (unless (or (= (sx-length s) 3) (= (sx-length s) 4)) (syntax-error s "Improper IF")) (symbols-in (sx-second s)) (symbols-in (sx-third s)) (when (= (sx-length s) 4) (symbols-in (sx-fourth s)))) ((primitive-procedure) ;; Extension to R4RS: Link to primitive procedures. (let ((s2 (sx-second s))) (unless (or (and (or (sx-eq? s2 'make-structure) (sx-eq? s2 'structure-ref) (sx-eq? s2 'structure-set!)) (= (sx-length s) 4) (sx-symbol? (sx-third s)) (sx-integer? (sx-fourth s)) (sx-exact? (sx-fourth s)) (not (sx-negative? (sx-fourth s)))) (and (sx-eq? s2 'structure?) (= (sx-length s) 3) (sx-symbol? (sx-third s))) (and (= (sx-length s) 2) (not (sx-eq? s2 'make-structure)) (not (sx-eq? s2 'structure-ref)) (not (sx-eq? s2 'structure-set!)) (not (sx-eq? s2 'structure?)) (assq (sx-datum s2) *primitive-procedure-handlers*))) (syntax-error s "Improper PRIMITIVE-PROCEDURE")))) ((foreign-procedure) (unless (or (and (= (sx-length s) 4) (sx-list? (sx-second s)) (sx-every valid-foreign-parameter-type? (sx-second s)) (valid-foreign-return-type? (sx-third s)) (sx-string? (sx-fourth s))) (and (= (sx-length s) 5) (sx-list? (sx-second s)) (sx-every valid-foreign-parameter-type? (sx-second s)) (valid-foreign-return-type? (sx-third s)) (sx-string? (sx-fourth s)) (sx-string? (sx-fifth s)))) (syntax-error s "Improper FOREIGN-PROCEDURE"))) (else (if (macro? (sx-first s)) (symbols-in (expand-macro s)) (sx-for-each symbols-in s)))) (sx-for-each symbols-in s))) ((sx-symbol? s) #f) (else (symbols-in-constant s)))) (symbols-in s) qs)) ;;; Macro expander (define (variable s gs) (when (null? gs) (syntax-error s "Unbound variable")) (if (sx-eq? s (variable-name (first gs))) (first gs) (variable s (rest gs)))) (define (dotted-append gs1 gs2) (cond ((null? gs1) gs2) ((variable? gs1) (cons gs1 gs2)) (else (cons (first gs1) (dotted-append (rest gs1) gs2))))) (define (macroexpand s) (define (macroexpand s gs v f) ;; conventions: V F (define (macroexpand-constant s1) (let ((q (sx-datum s1))) (cond ((sx-null? s1) (create-expression 'null-constant s #f)) ((sx-eq? s1 #t) (create-expression 'true-constant s #f)) ((sx-eq? s1 #f) (create-expression 'false-constant s #f)) ((sx-char? s1) (create-expression 'char-constant s q)) ((and (sx-integer? s1) (sx-exact? s1)) (create-expression 'fixnum-constant s q)) ((sx-rational? s1) (when (sx-exact? s1) (fuck-up)) (create-expression 'flonum-constant s q)) ((sx-real? s1) (when (sx-exact? s1) (fuck-up)) (create-expression 'flonum-constant s q)) ((sx-complex? s1) (when (sx-exact? s1) (fuck-up)) ;; needs work: 1.0+0.0i will create a FLONUM-CONSTANT so there is no way ;; to create a RECTANGULAR-CONSTANT with a 0.0 imaginary ;; component. (create-expression 'rectangular-constant s q)) ((sx-string? s1) (create-expression 'string-constant s q)) ((sx-symbol? s1) (create-expression 'symbol-constant s q)) ((sx-pair? s1) (create-expression 'pair-constant s (cons (macroexpand-constant (sx-car s1)) (macroexpand-constant (sx-cdr s1))))) ((sx-vector? s1) (create-expression 'vector-constant s (sx-map-vector macroexpand-constant s1))) ;; procedures, input ports, output ports, eof objects, structures, and ;; pointers (else (fuck-up))))) (cond ((sx-null? s) (fuck-up)) ((sx-pair? s) (unless (sx-list? s) (fuck-up)) (if (sx-symbol? (sx-first s)) (case (sx-datum (sx-first s)) ((quote) (unless (= (sx-length s) 2) (fuck-up)) (macroexpand-constant (sx-second s))) ((lambda) (unless (and (>= (sx-length s) 2) (valid-parameters? (sx-second s)) (disjoint? (parameters (sx-second s)))) (fuck-up)) (let ((s (macroexpand-body s))) (cond ((sx-null? (sx-rest (sx-rest s))) (create-lambda-expression s (create-environment v (if v (symbol->string v) f)) (parameters->variables (sx-second s)) #f)) ((sx-null? (sx-rest (sx-rest (sx-rest s)))) (let ((f (if v (symbol->string v) f)) (gs1 (parameters->variables (sx-second s)))) ;; conventions: F (create-lambda-expression s (create-environment v f) gs1 (macroexpand (sx-third s) (dotted-append gs1 gs) #f f)))) (else (fuck-up))))) ((set!) (unless (and (= (sx-length s) 3) (sx-symbol? (sx-second s))) (fuck-up)) (create-set!-expression s (variable (sx-second s) gs) (macroexpand (sx-third s) gs (sx-datum (sx-second s)) f))) ((if) (unless (or (= (sx-length s) 3) (= (sx-length s) 4)) (fuck-up)) (create-if-expression s (macroexpand (sx-second s) gs #f f) (macroexpand (sx-third s) gs #f f) (if (= (sx-length s) 3) (create-call-expression s (create-lambda-expression s (create-environment v (if v (symbol->string v) f)) '() #f) '()) (macroexpand (sx-fourth s) gs #f f)))) ((primitive-procedure) ;; Extension to R4RS: Link to primitive procedures. (let ((s2 (sx-second s))) (unless (or (and (or (sx-eq? s2 'make-structure) (sx-eq? s2 'structure-ref) (sx-eq? s2 'structure-set!)) (= (sx-length s) 4) (sx-symbol? (sx-third s)) (sx-integer? (sx-fourth s)) (sx-exact? (sx-fourth s)) (not (sx-negative? (sx-fourth s)))) (and (sx-eq? s2 'structure?) (= (sx-length s) 3) (sx-symbol? (sx-third s))) (and (= (sx-length s) 2) (not (sx-eq? s2 'make-structure)) (not (sx-eq? s2 'structure-ref)) (not (sx-eq? s2 'structure-set!)) (not (sx-eq? s2 'structure?)) (assq (sx-datum s2) *primitive-procedure-handlers*))) (fuck-up))) (create-expression 'primitive-procedure s (unencapsulate (sx-rest s)))) ((foreign-procedure) (unless (or (and (= (sx-length s) 4) (sx-list? (sx-second s)) (sx-every valid-foreign-parameter-type? (sx-second s)) (valid-foreign-return-type? (sx-third s)) (sx-string? (sx-fourth s))) (and (= (sx-length s) 5) (sx-list? (sx-second s)) (sx-every valid-foreign-parameter-type? (sx-second s)) (valid-foreign-return-type? (sx-third s)) (sx-string? (sx-fourth s)) (sx-string? (sx-fifth s)))) (fuck-up)) (create-expression 'foreign-procedure s (unencapsulate (sx-rest s)))) (else (if (macro? (sx-first s)) (macroexpand (expand-macro s) gs #f f) (create-call-expression s (macroexpand (sx-first s) gs #f f) (sx-map (lambda (s) (macroexpand s gs #f f)) (sx-rest s)))))) (create-call-expression s (macroexpand (sx-first s) gs #f f) (sx-map (lambda (s) (macroexpand s gs #f f)) (sx-rest s))))) ((sx-symbol? s) (create-access-expression s (variable s gs))) (else (macroexpand-constant s)))) (macroexpand s '() #f "top level")) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/source/stalin3a.sc0000600017435200151030000041071110464434543014751 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; Stalin 0.11 - A global optimizing compiler for Scheme ;;; Copyright 1993, 1994, and 1995 University of Toronto. All rights reserved. ;;; Copyright 1996 Technion. All rights reserved. ;;; Copyright 1996 and 1997 University of Vermont. All rights reserved. ;;; Copyright 1997, 1998, 1999, 2000, and 2001 NEC Research Institute, Inc. All ;;; rights reserved. ;;; Copyright 2002, 2003, 2004, 2005, and 2006 Purdue University. All rights ;;; reserved. ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License ;;; as published by the Free Software Foundation; either version 2 ;;; of the License, or (at your option) any later version. ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;;; written by: ;;; Jeffrey Mark Siskind ;;; School of Electrical and Computer Engineering ;;; Purdue University ;;; Electrical Engineering Building, Room 330 ;;; 465 Northwestern Avenue ;;; West Lafayette IN 47907-2035 USA ;;; voice: 765/496-3197 ;;; fax: 765/494-6440 ;;; qobi@purdue.edu ;;; http://www.ece.purdue.edu/~qobi ;;; Begin delete for Trotsky (module stalin3a) (include "QobiScheme.sch") (include "stalin3a.sch") ;;; End delete for Trotsky ;;; Fast tree shake (define (fast-tree-shake!) (when (and (eq? (expression-kind *x*) 'lambda) (list? (expression-parameters *x*)) (= (length (expression-parameters *x*)) 1) (expression-body *x*) (eq? (expression-kind (expression-body *x*)) 'call) (eq? (expression-kind (expression-callee (expression-body *x*))) 'lambda) (eq? (expression-kind (expression-body (expression-callee (expression-body *x*)))) 'call) (eq? (expression-kind (expression-callee (expression-body (expression-callee (expression-body *x*))))) 'lambda) (list? (expression-parameters (expression-callee (expression-body (expression-callee (expression-body *x*)))))) (= (length (expression-parameters (expression-callee (expression-body (expression-callee (expression-body *x*)))))) 219) (every hunoz? (expression-parameters (expression-callee (expression-body (expression-callee (expression-body *x*)))))) (= (count-if-not (lambda (x) (eq? (expression-kind x) 'set!)) (expression-arguments (expression-body (expression-callee (expression-body *x*))))) 1) (eq? (expression-kind (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))) 'call) (= (length (expression-arguments (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))) 214) (every (lambda (x) (eq? (expression-kind x) 'access)) (expression-arguments (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))) (eq? (expression-kind (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))) 'lambda) (list? (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))) (= (length (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))) 214) (eq? (expression-kind (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))) 'call) (every (lambda (x) (and (eq? (expression-kind x) 'call) (null? (expression-arguments x)) (eq? (expression-kind (expression-callee x)) 'lambda) (not (expression-body (expression-callee x))) (null? (expression-parameters (expression-callee x))))) (expression-arguments (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))) (eq? (expression-kind (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))) 'lambda) (list? (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))) (eq? (expression-kind (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))) 'call) (eq? (expression-kind (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))))) 'lambda) (list? (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))))) (every hunoz? (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))))))) (let* ((gs (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))) (xs (cons (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))))) (expression-arguments (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))))) (xs1 (remove-if-not (lambda (x) (and (eq? (expression-kind x) 'set!) (eq? (expression-kind (expression-source x)) 'lambda) (memq (expression-variable x) gs) (one (lambda (x1) (and (eq? (expression-kind x1) 'set!) (eq? (expression-variable x) (expression-variable x1)))) *xs*))) xs)) (xs2 (set-differenceq xs xs1))) (for-each (lambda (x) (set-expression-accessed?! x #t)) *xs*) (for-each (lambda (g) (set-variable-accessed?! g #t)) *gs*) (for-each (lambda (x) (let loop ((x x)) (set-expression-accessed?! x #f) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) (loop (car (expression-constant x))) (loop (cdr (expression-constant x)))) ((vector-constant) (for-each-vector loop (expression-constant x))) ((lambda converted-lambda converted-continuation) (let loop ((gs (expression-parameters x))) (cond ((pair? gs) (set-variable-accessed?! (first gs) #f) (loop (rest gs))) ((variable? gs) (set-variable-accessed?! gs #f)))) (when (expression-body x) (loop (expression-body x)))) ((set!) (loop (expression-source x))) ((if) (loop (expression-antecedent x)) (loop (expression-consequent x)) (loop (expression-alternate x))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) #f) ((call converted-call) (loop (expression-callee x)) (for-each loop (expression-arguments x))) (else (fuck-up))))) xs1) (for-each (lambda (g) (when (some (lambda (x) (eq? (expression-variable x) g)) xs1) (set-variable-accessed?! g #f))) gs) (for-each (lambda (x) (let loop ((x x)) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) #f) ((vector-constant) #f) ((lambda converted-lambda converted-continuation) (when (expression-body x) (loop (expression-body x)))) ((set!) (loop (expression-source x))) ((if) (loop (expression-antecedent x)) (loop (expression-consequent x)) (loop (expression-alternate x))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) (when (memq (expression-variable x) gs) (set-variable-accessed?! (expression-variable x) #t))) ((call converted-call) (loop (expression-callee x)) (for-each loop (expression-arguments x))) (else (fuck-up))))) xs2) (let loop () (let ((again? #f)) (for-each (lambda (x) (when (variable-accessed? (expression-variable x)) (let loop ((x x)) (set-expression-accessed?! x #t) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) (loop (car (expression-constant x))) (loop (cdr (expression-constant x)))) ((vector-constant) (for-each-vector loop (expression-constant x))) ((lambda converted-lambda converted-continuation) (let loop ((gs (expression-parameters x))) (cond ((pair? gs) (set-variable-accessed?! (first gs) #t) (loop (rest gs))) ((variable? gs) (set-variable-accessed?! gs #t)))) (when (expression-body x) (loop (expression-body x)))) ((set!) (loop (expression-source x))) ((if) (loop (expression-antecedent x)) (loop (expression-consequent x)) (loop (expression-alternate x))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) (when (and (memq (expression-variable x) gs) (not (variable-accessed? (expression-variable x)))) (set-variable-accessed?! (expression-variable x) #t) (set! again? #t))) ((call converted-call) (loop (expression-callee x)) (for-each loop (expression-arguments x))) (else (fuck-up)))))) xs1) (when again? (loop)))) ;; Remove the unused variables. (set-expression-parameters! (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))) (remove-if-not variable-accessed? (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))))) ;; Remove the extra noops that initialize the unused variables to undefined. (for-each (lambda (x) (let loop ((x x)) (set-expression-accessed?! x #f) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) (loop (car (expression-constant x))) (loop (cdr (expression-constant x)))) ((vector-constant) (for-each-vector loop (expression-constant x))) ((lambda converted-lambda converted-continuation) (let loop ((gs (expression-parameters x))) (cond ((pair? gs) (set-variable-accessed?! (first gs) #f) (loop (rest gs))) ((variable? gs) (set-variable-accessed?! gs #f)))) (when (expression-body x) (loop (expression-body x)))) ((set!) (loop (expression-source x))) ((if) (loop (expression-antecedent x)) (loop (expression-consequent x)) (loop (expression-alternate x))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) #f) ((call converted-call) (loop (expression-callee x)) (for-each loop (expression-arguments x))) (else (fuck-up))))) (sublist (expression-arguments (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))) (length (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))) (length (expression-arguments (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))))) (set-expression-arguments! (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))) (sublist (expression-arguments (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))) 0 (length (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))))) ;; Remove the unused definitions. (set-expression-arguments! (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))) (remove-if-not expression-accessed? (expression-arguments (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))))) (unless (expression-accessed? (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))))) (set-expression-body! (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))) #f)) ;; Remove the hunoz variables for the unused definitions. (for-each (lambda (g) (set-variable-accessed?! g #f)) (sublist (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))))) (length (expression-arguments (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))))) (length (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))))))) (set-expression-parameters! (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))) (sublist (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))))) 0 (length (expression-arguments (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))))))) (set! *gs* (remove-if-not variable-accessed? *gs*)) (set! *xs* (remove-if-not expression-accessed? *xs*)) (set! *calls* (remove-if-not expression-accessed? *calls*)) (set! *accesses* (remove-if-not expression-accessed? *accesses*)) (set! *assignments* (remove-if-not expression-accessed? *assignments*)) (set! *references* (remove-if-not expression-accessed? *references*)) (set! *es* (remove-if-not (lambda (e) (expression-accessed? (environment-expression e))) *es*)) ;; This is just for error checking. (for-each (lambda (g) (set-variable-accessed?! g #f)) *gs*) (for-each (lambda (x) (set-expression-accessed?! x #f)) *xs*) (let loop ((x *x*)) (unless (memq x *xs*) (fuck-up)) (set-expression-accessed?! x #t) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) (loop (car (expression-constant x))) (loop (cdr (expression-constant x)))) ((vector-constant) (for-each-vector loop (expression-constant x))) ((lambda converted-lambda converted-continuation) (let loop ((gs (expression-parameters x))) (cond ((pair? gs) (unless (memq (first gs) *gs*) (fuck-up)) (set-variable-accessed?! (first gs) #t) (loop (rest gs))) ((variable? gs) (unless (memq gs *gs*) (fuck-up)) (set-variable-accessed?! gs #t)))) (when (expression-body x) (loop (expression-body x)))) ((set!) (unless (memq (expression-variable x) *gs*) (fuck-up)) (loop (expression-source x))) ((if) (loop (expression-antecedent x)) (loop (expression-consequent x)) (loop (expression-alternate x))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) (unless (memq (expression-variable x) *gs*) (fuck-up))) ((call converted-call) (loop (expression-callee x)) (for-each loop (expression-arguments x))) (else (fuck-up)))) (unless (and (every variable-accessed? *gs*) (every expression-accessed? *xs*)) (fuck-up))))) ;;; Annotate expressions with their parents (define (annotate-expressions-with-their-parents!) (for-each (lambda (x) (set-expression-parent! x (unspecified))) *xs*) (set-expression-parent! *x* #f) (let loop ((x *x*)) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) (unless (eq? (expression-parent (car (expression-constant x))) (unspecified)) (fuck-up)) (set-expression-parent! (car (expression-constant x)) x) (unless (eq? (expression-parent (cdr (expression-constant x))) (unspecified)) (fuck-up)) (set-expression-parent! (cdr (expression-constant x)) x) (loop (car (expression-constant x))) (loop (cdr (expression-constant x)))) ((vector-constant) (for-each-vector (lambda (x1) (unless (eq? (expression-parent x1) (unspecified)) (fuck-up)) (set-expression-parent! x1 x) (loop x1)) (expression-constant x))) ((lambda converted-lambda converted-continuation) (unless (noop? x) (unless (eq? (expression-parent (expression-body x)) (unspecified)) (fuck-up)) (set-expression-parent! (expression-body x) x) (loop (expression-body x)))) ((set!) (unless (eq? (expression-parent (expression-source x)) (unspecified)) (fuck-up)) (set-expression-parent! (expression-source x) x) (loop (expression-source x))) ((if) (unless (eq? (expression-parent (expression-antecedent x)) (unspecified)) (fuck-up)) (set-expression-parent! (expression-antecedent x) x) (unless (eq? (expression-parent (expression-consequent x)) (unspecified)) (fuck-up)) (set-expression-parent! (expression-consequent x) x) (unless (eq? (expression-parent (expression-alternate x)) (unspecified)) (fuck-up)) (set-expression-parent! (expression-alternate x) x) (loop (expression-antecedent x)) (loop (expression-consequent x)) (loop (expression-alternate x))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) #f) ((call converted-call) (unless (eq? (expression-parent (expression-callee x)) (unspecified)) (fuck-up)) (set-expression-parent! (expression-callee x) x) (loop (expression-callee x)) (for-each (lambda (x1) (unless (eq? (expression-parent x1) (unspecified)) (fuck-up)) (set-expression-parent! x1 x) (loop x1)) (expression-arguments x))) (else (fuck-up)))) ;; This is needed because, after CPS conversion, there may be dangling ;; expressions, particularly clones. (set! *xs* (remove-if (lambda (x) (eq? (expression-parent x) (unspecified))) *xs*)) (set! *calls* (remove-if (lambda (x) (eq? (expression-parent x) (unspecified))) *calls*)) (set! *accesses* (remove-if (lambda (x) (eq? (expression-parent x) (unspecified))) *accesses*)) (set! *assignments* (remove-if (lambda (x) (eq? (expression-parent x) (unspecified))) *assignments*)) (set! *references* (remove-if (lambda (x) (eq? (expression-parent x) (unspecified))) *references*))) ;;; In-line first-order calls to primitive procedures (define (first-order-position? x) (or (not (expression-parent x)) (and (or (eq? (expression-kind (expression-parent x)) 'call) (eq? (expression-kind (expression-parent x)) 'converted-call)) (eq? x (expression-callee (expression-parent x)))) (and (eq? (expression-kind (expression-parent x)) 'if) (or (eq? x (expression-antecedent (expression-parent x))) (first-order-position? (expression-parent x)))))) (define *primitive-procedure-rewrites* ;; needs work: This doesn't in-line the procedures created by ;; DEFINE-STRUCTURE. '((not not) (boolean? boolean?) (eq? eq?) (pair? structure? pair) (cons make-structure pair 2) (car structure-ref pair 0) (cdr structure-ref pair 1) (set-car! structure-set! pair 0) (set-cdr! structure-set! pair 1) (null? null?) (symbol? symbol?) (symbol->string symbol->string) (string->uninterned-symbol string->uninterned-symbol) (number? number?) (real? real?) (integer? integer?) (exact? exact?) (inexact? inexact?) (= =) (< <) (> >) (<= <=) (>= >=) (zero? zero?) (positive? positive?) (negative? negative?) (max max) (min min) (+ +) (* *) (- -) (/ /) (quotient quotient) (remainder remainder) (<< <<) (>> >>) (bitwise-not bitwise-not) (bitwise-and bitwise-and) (bitwise-or bitwise-or) (bitwise-xor bitwise-xor) (floor floor) (ceiling ceiling) (truncate truncate) (round round) (exp exp) (log log) (sin sin) (cos cos) (tan tan) (asin asin) (acos acos) (atan atan) (sqrt sqrt) (expt expt) (exact->inexact exact->inexact) (inexact->exact inexact->exact) (char? char?) (char->integer char->integer) (integer->char integer->char) (string? string?) (make-string make-string) (string string) (string-length string-length) (string-ref string-ref) (string-set! string-set!) (vector? vector?) (make-vector make-vector) (make-displaced-vector make-displaced-vector) (vector vector) (vector-length vector-length) (vector-ref vector-ref) (vector-set! vector-set!) (procedure? procedure?) (apply apply) (call-with-current-continuation call-with-current-continuation) (input-port? input-port?) (output-port? output-port?) (open-input-file open-input-file) (open-output-file open-output-file) (close-input-port close-input-port) (close-output-port close-output-port) (eof-object? eof-object?) (panic panic) (pointer? pointer?) (integer->string integer->string) (integer->input-port integer->input-port) (integer->output-port integer->output-port) (integer->pointer integer->pointer))) (define (in-line-first-order-calls-to-primitive-procedures!) (let ((xs (remove-if-not (lambda (x) (and (first-order-position? x) (expression-parent x) (assq (variable-name (expression-variable x)) *primitive-procedure-rewrites*) (not (empty? (parent (variable-environment (expression-variable x))))) (or (empty? (parent (parent (variable-environment (expression-variable x))))) (and (not (empty? (parent (parent (parent (variable-environment (expression-variable x))))))) (empty? (parent (parent (parent (parent (variable-environment (expression-variable x))))))) (not (some (lambda (x1) (eq? (expression-variable x1) (expression-variable x))) *assignments*)))))) *accesses*))) (for-each (lambda (x) ((cond ((or (eq? (expression-kind (expression-parent x)) 'call) (eq? (expression-kind (expression-parent x)) 'converted-call)) set-expression-callee!) ((and (eq? (expression-kind (expression-parent x)) 'if) (eq? x (expression-antecedent (expression-parent x)))) set-expression-antecedent!) ((and (eq? (expression-kind (expression-parent x)) 'if) (eq? x (expression-consequent (expression-parent x)))) set-expression-consequent!) ((and (eq? (expression-kind (expression-parent x)) 'if) (eq? x (expression-alternate (expression-parent x)))) set-expression-alternate!) (else (fuck-up))) (expression-parent x) (create-expression 'primitive-procedure x (cdr (assq (variable-name (expression-variable x)) *primitive-procedure-rewrites*))))) xs) (set! *xs* (set-differenceq *xs* xs)) (set! *accesses* (set-differenceq *accesses* xs)) (set! *references* (set-differenceq *references* xs)))) ;;; Annotate variables with their environments (define (annotate-environment-variables-with-their-environment! e) (for-each (lambda (g) (unless (eq? (variable-environment g) (unspecified)) (fuck-up)) (set-variable-environment! g e)) (variables e))) (define (annotate-variables-with-their-environments!) (for-each (lambda (g) (set-variable-environment! g (unspecified))) *gs*) (for-each annotate-environment-variables-with-their-environment! *es*) (when (some (lambda (g) (eq? (variable-environment g) (unspecified))) *gs*) (fuck-up))) ;;; Annotate expressions with their environments (define (annotate-environment-expressions-with-their-environment! e) (unless (eq? e (narrow-prototype e)) (unless (eq? (expression-environment (environment-expression e)) (unspecified)) (fuck-up)) (set-expression-environment! (environment-expression e) (let loop ((x (expression-parent (environment-expression (narrow-prototype e))))) (if (or (eq? (expression-kind x) 'lambda) (eq? (expression-kind x) 'converted-lambda) (eq? (expression-kind x) 'converted-continuation)) (expression-lambda-environment x) (loop (expression-parent x)))))) (unless (noop? e) (let loop ((x (expression-body (environment-expression e)))) (unless (eq? (expression-environment x) (unspecified)) (fuck-up)) (set-expression-environment! x e) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) (loop (car (expression-constant x))) (loop (cdr (expression-constant x)))) ((vector-constant) (for-each-vector loop (expression-constant x))) ((lambda converted-lambda converted-continuation) #f) ((set!) (loop (expression-source x))) ((if) (loop (expression-antecedent x)) (loop (expression-consequent x)) (loop (expression-alternate x))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) #f) ((call converted-call) (loop (expression-callee x)) (for-each loop (expression-arguments x))) (else (fuck-up)))))) (define (annotate-expressions-with-their-environments!) (for-each (lambda (x) (set-expression-environment! x (unspecified))) *xs*) (set-expression-environment! *x* #f) (for-each annotate-environment-expressions-with-their-environment! *es*) (when (some (lambda (x) (eq? (expression-environment x) (unspecified))) *xs*) (fuck-up))) ;;; Annotate variables with their references (define (annotate-variables-with-their-references!) (for-each (lambda (g) (set-variable-accesses! g '()) (set-variable-assignments! g '()) (set-variable-references! g '())) *gs*) (for-each (lambda (x) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) #f) ((vector-constant) #f) ((lambda converted-lambda converted-continuation) #f) ((set!) (set-variable-assignments! (expression-variable x) (cons x (variable-assignments (expression-variable x)))) (set-variable-references! (expression-variable x) (cons x (variable-references (expression-variable x))))) ((if) #f) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) (set-variable-accesses! (expression-variable x) (cons x (variable-accesses (expression-variable x)))) (set-variable-references! (expression-variable x) (cons x (variable-references (expression-variable x))))) ((call converted-call) #f) (else (fuck-up)))) *xs*)) ;;; Perform flow analysis ;;; Prior to conversion, `continues' and `returns' should be the same. Errors, ;;; infinite loops, and calls to PANIC, no-return foreign procedures, ;;; continuations don't return and don't continue. After conversion, `returns' ;;; implies `continues' but not vice versa. But even here, `continues' and ;;; `returns' should be the same for implicit continuation calls. Errors, ;;; infinite loops, and (both converted and nonconverted) calls to PANIC, ;;; no-return foreign procedures, and nonconverted continuations don't ;;; continue or return. (Both converted and nonconverted) calls to converted ;;; continuations and converted native procedures might return but don't ;;; continue. And converted calls whose implicit continuation call doesn't ;;; return might continue but don't return. (define (environment-continues? e) (when (or (converted? e) (converted-continuation? e)) (fuck-up)) (or (noop? e) (expression-continues? (expression-body (environment-expression e))))) (define (environment-returns? e) (or (noop? e) (expression-returns? (expression-body (environment-expression e))))) (define (continues? ws w y) (when (continuation-argument-call-site? y) (fuck-up)) (lambda (u) (and ((truly-compatible-procedure? ws w y) u) ;; Calls to nonconverted continuations never continue. (or (and (primitive-procedure-type? u) (cond (((primitive-procedure-type-named? 'apply) u) (and (if (converted? y) (cond ((null? ws) (can-be? (lambda (u) (and ((list-type-of-length-at-least? 2) u) (can-be? (continues? (list (pair-type-car u)) (pair-type-cdr (pair-type-cdr u)) (recreate-call-site y 'first-argument)) (pair-type-car (pair-type-cdr u))))) w)) ((null? (rest ws)) (can-be? (lambda (u) (and ((list-type-of-length-at-least? 1) u) (can-be? (continues? ws (pair-type-cdr u) (recreate-call-site y 'first-argument)) (pair-type-car u)))) w)) (else (or (and (can-be? null-type? w) (can-be? (continues? (cons (first ws) (but-last (rest (rest ws)))) (last ws) (recreate-call-site y 'first-argument)) (second ws))) (can-be? (continues? (cons (first ws) (rest (rest ws))) w (recreate-call-site y 'first-argument)) (second ws))))) (if (null? ws) (can-be? (lambda (u) (and ((list-type-of-length-at-least? 1) u) (can-be? (continues? '() (pair-type-cdr u) (recreate-call-site y 'first-argument)) (pair-type-car u)))) w) (or (and (can-be? null-type? w) (can-be? (continues? (but-last (rest ws)) (last ws) (recreate-call-site y 'first-argument)) (first ws))) (can-be? (continues? (rest ws) w (recreate-call-site y 'first-argument)) (first ws))))))) (((primitive-procedure-type-named? 'call-with-current-continuation) u) (and (or (if (converted? y) (cond ((null? ws) (can-be? (lambda (u) (and ((list-type-of-length? 2) u) (can-be? (continues? (list (pair-type-car u) (pair-type-car u)) (pair-type-cdr (pair-type-cdr u)) (recreate-call-site y 'first-argument)) (pair-type-car (pair-type-cdr u))))) w)) ((null? (rest ws)) (can-be? (lambda (u) (and ((list-type-of-length? 1) u) (can-be? (continues? (list (first ws) (first ws)) (pair-type-cdr u) (recreate-call-site y 'first-argument)) (pair-type-car u)))) w)) (else (can-be? (continues? (cons (first ws) (cons (first ws) (rest (rest ws)))) w (recreate-call-site y 'first-argument)) (second ws)))) (if (null? ws) (can-be? (lambda (u) (and ((list-type-of-length? 1) u) (can-be? (continues? (list (create-anonymous-type-set ( (call-site-expression y)))) (pair-type-cdr u) (recreate-call-site y 'first-argument)) (pair-type-car u)))) w) (can-be? (continues? (list (create-anonymous-type-set ( (call-site-expression y)))) w (recreate-call-site y 'first-argument)) (first ws)))) (some (lambda (u) (and ((continuation-type-to? (call-site-expression y)) u) (continuation-type-continuation-accessed? u))) *continuation-types*)))) (((primitive-procedure-type-named? 'panic) u) #f) (((primitive-procedure-type-named? 'fork) u) ;; needs work: To handle converted calls to FORK. (when (converted? y) (unimplemented y "unimplemented")) ;; For now, calls to FORK always continue. #t) (((primitive-procedure-type-named? 'mutex) u) ;; needs work: To handle converted calls to MUTEX. (when (converted? y) (unimplemented y "unimplemented")) ;; For now, calls to MUTEX always continue. #t) (else #t))) (and (native-procedure-type? u) (not (converted? (callee-environment u y))) (not (converted-continuation? (callee-environment u y))) (environment-continues? (callee-environment u y))) (and (foreign-procedure-type? u) (foreign-procedure-returns? u)))))) (define (returns? ws w y) (lambda (u) (and ((truly-compatible-procedure? ws w y) u) ;; Calls to nonconverted continuations never return. (or (and (primitive-procedure-type? u) (cond (((primitive-procedure-type-named? 'apply) u) (and (if (converted? y) (cond ((null? ws) (can-be? (lambda (u) (and ((list-type-of-length-at-least? 2) u) (can-be? (returns? (list (pair-type-car u)) (pair-type-cdr (pair-type-cdr u)) (recreate-call-site y 'first-argument)) (pair-type-car (pair-type-cdr u))))) w)) ((null? (rest ws)) (can-be? (lambda (u) (and ((list-type-of-length-at-least? 1) u) (can-be? (returns? ws (pair-type-cdr u) (recreate-call-site y 'first-argument)) (pair-type-car u)))) w)) (else (or (and (can-be? null-type? w) (can-be? (returns? (cons (first ws) (but-last (rest (rest ws)))) (last ws) (recreate-call-site y 'first-argument)) (second ws))) (can-be? (returns? (cons (first ws) (rest (rest ws))) w (recreate-call-site y 'first-argument)) (second ws))))) (if (null? ws) (can-be? (lambda (u) (and ((list-type-of-length-at-least? 1) u) (can-be? (returns? '() (pair-type-cdr u) (recreate-call-site y 'first-argument)) (pair-type-car u)))) w) (or (and (can-be? null-type? w) (can-be? (returns? (but-last (rest ws)) (last ws) (recreate-call-site y 'first-argument)) (first ws))) (can-be? (returns? (rest ws) w (recreate-call-site y 'first-argument)) (first ws))))))) (((primitive-procedure-type-named? 'call-with-current-continuation) u) (and (or (if (converted? y) (cond ((null? ws) (can-be? (lambda (u) (and ((list-type-of-length? 2) u) (can-be? (returns? (list (pair-type-car u) (pair-type-car u)) (pair-type-cdr (pair-type-cdr u)) (recreate-call-site y 'first-argument)) (pair-type-car (pair-type-cdr u))))) w)) ((null? (rest ws)) (can-be? (lambda (u) (and ((list-type-of-length? 1) u) (can-be? (returns? (list (first ws) (first ws)) (pair-type-cdr u) (recreate-call-site y 'first-argument)) (pair-type-car u)))) w)) (else (can-be? (returns? (cons (first ws) (cons (first ws) (rest (rest ws)))) w (recreate-call-site y 'first-argument)) (second ws)))) (if (null? ws) (can-be? (lambda (u) (and ((list-type-of-length? 1) u) (can-be? (returns? (list (create-anonymous-type-set ( (call-site-expression y)))) (pair-type-cdr u) (recreate-call-site y 'first-argument)) (pair-type-car u)))) w) (can-be? (returns? (list (create-anonymous-type-set ( (call-site-expression y)))) w (recreate-call-site y 'first-argument)) (first ws)))) (some (lambda (u) (and ((continuation-type-to? (call-site-expression y)) u) (continuation-type-continuation-accessed? u))) *continuation-types*)))) (((primitive-procedure-type-named? 'panic) u) #f) (((primitive-procedure-type-named? 'fork) u) ;; needs work: To handle converted calls to FORK. (when (converted? y) (unimplemented y "unimplemented")) ;; For now, calls to FORK always return. #t) (((primitive-procedure-type-named? 'mutex) u) ;; needs work: To handle converted calls to MUTEX. (when (converted? y) (unimplemented y "unimplemented")) ;; For now, calls to MUTEX always return. #t) (else (or (not (converted? y)) (can-be? (returns? (list *void*) *null* (recreate-call-site y 'continuation-argument)) (first ws)))))) (and (native-procedure-type? u) (environment-returns? (callee-environment u y)) (or (not (converted? y)) (converted? (callee-environment u y)) (converted-continuation? (callee-environment u y)) (not (environment-continues? (callee-environment u y))) (can-be? (returns? (list *void*) *null* (recreate-call-site y 'continuation-argument)) (first ws)))) (and (foreign-procedure-type? u) (foreign-procedure-returns? u) (or (not (converted? y)) (can-be? (returns? (list *void*) *null* (recreate-call-site y 'continuation-argument)) (first ws)))))))) (define (needs-implicit-continuation-call? ws w y) (unless (converted? y) (fuck-up)) (lambda (u) (and ((truly-compatible-procedure? ws w y) u) ;; Calls to nonconverted continuations never continue so you never need to ;; implicitly call the continuation after a call to a nonconverted ;; continuation. (or (and (primitive-procedure-type? u) (cond ;; The call to APPLY doesn't implicitly call the continuation. The ;; first-argument call does. (((primitive-procedure-type-named? 'apply) u) #f) ;; The call to CALL-WITH-CURRENT-CONTINUATION doesn't implicitly ;; call the continuation. The first-argument call does. (((primitive-procedure-type-named? 'call-with-current-continuation) u) #f) ;; PANIC doesn't continue so you never need to imlicitly call the ;; continuation after a call to PANIC. (((primitive-procedure-type-named? 'panic) u) #f) ;; needs work: To handle converted calls to FORK. (((primitive-procedure-type-named? 'fork) u) (unimplemented y "unimplemented")) ;; needs work: To handle converted calls to MUTEX. (((primitive-procedure-type-named? 'mutex) u) (unimplemented y "unimplemented")) ;; Assume all other primitive procedures continue. Since the primitive ;; procedures are not converted and don't implicitly call the ;; continuation it must be implicitly called after the call to the ;; primitive procedure continues. (else #t))) (and (native-procedure-type? u) ;; The call to a converted native procedure doesn't implicitly ;; call the continuation. The converted native procedure does. (not (converted? (callee-environment u y))) ;; Calls to converted continuations never continue so you never ;; need to implicitly call the continuation after a call to a ;; converted continuation. (not (converted-continuation? (callee-environment u y))) (environment-continues? (callee-environment u y))) (and (foreign-procedure-type? u) (foreign-procedure-returns? u)))))) (define (first-argument-needs-implicit-continuation-call? ws w y) (unless (converted? y) (fuck-up)) (lambda (u) (and ((truly-compatible-procedure? ws w y) u) (or (and ((primitive-procedure-type-named? 'apply) u) (cond ((null? ws) (can-be? (lambda (u) (and ((list-type-of-length-at-least? 2) u) (can-be? (needs-implicit-continuation-call? (list (pair-type-car u)) (pair-type-cdr (pair-type-cdr u)) (recreate-call-site y 'first-argument)) (pair-type-car (pair-type-cdr u))))) w)) ((null? (rest ws)) (can-be? (lambda (u) (and ((list-type-of-length-at-least? 1) u) (can-be? (needs-implicit-continuation-call? ws (pair-type-cdr u) (recreate-call-site y 'first-argument)) (pair-type-car u)))) w)) (else (or (and (can-be? null-type? w) (can-be? (needs-implicit-continuation-call? (cons (first ws) (but-last (rest (rest ws)))) (last ws) (recreate-call-site y 'first-argument)) (second ws))) (can-be? (needs-implicit-continuation-call? (cons (first ws) (rest (rest ws))) w (recreate-call-site y 'first-argument)) (second ws)))))) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) (or (cond ((null? ws) (can-be? (lambda (u) (and ((list-type-of-length? 2) u) (can-be? (needs-implicit-continuation-call? (list (pair-type-car u) (pair-type-car u)) (pair-type-cdr (pair-type-cdr u)) (recreate-call-site y 'first-argument)) (pair-type-car (pair-type-cdr u))))) w)) ((null? (rest ws)) (can-be? (lambda (u) (and ((list-type-of-length? 1) u) (can-be? (needs-implicit-continuation-call? (list (first ws) (first ws)) (pair-type-cdr u) (recreate-call-site y 'first-argument)) (pair-type-car u)))) w)) (else (can-be? (needs-implicit-continuation-call? (cons (first ws) (cons (first ws) (rest (rest ws)))) w (recreate-call-site y 'first-argument)) (second ws)))) (some (lambda (u) (and ((continuation-type-to? (call-site-expression y)) u) (continuation-type-continuation-accessed? u))) *continuation-types*))) (and ((primitive-procedure-type-named? 'fork) u) ;; needs work: To handle converted calls to FORK. (unimplemented y "unimplemented")) (and ((primitive-procedure-type-named? 'mutex) u) ;; needs work: To handle converted calls to MUTEX. (unimplemented y "unimplemented")))))) (define (assert-member! u w) (unless (member? u w) (insert-member! u w) (set! *again?* #t) ;; This is purely for efficiency. ;; It runs the inference rules for an expression when the type set of a ;; subexpression is widened. (when (and (type-set-location w) (expression? (type-set-location w)) (expression? (expression-parent (type-set-location w))) (not (eq? (expression-kind (expression-parent (type-set-location w))) 'lambda)) (not (eq? (expression-kind (expression-parent (type-set-location w))) 'converted-lambda)) (not (eq? (expression-kind (expression-parent (type-set-location w))) 'converted-continuation))) (push! (expression-parent (type-set-location w)))) ;; This is purely for efficiency. ;; It runs the inference rules for a call when the return type set of ;; the callee is widened. (when (and (type-set-location w) (expression? (type-set-location w)) (expression? (expression-parent (type-set-location w))) ;; The next expression is a kludge. (environment? (expression-lambda-environment (expression-parent (type-set-location w))))) (for-each (lambda (y) (unless (top-level-call-site? y) (push! (call-site-expression y)))) (call-sites (expression-lambda-environment (expression-parent (type-set-location w)))))) ;; This is purely for efficiency. ;; It runs the inference rules for an access when the type set of a ;; variable is widened. (when (and (type-set-location w) (variable? (type-set-location w))) (for-each push! (accesses (type-set-location w)))))) (define (assert-subset! w1 w2) (for-each-member (lambda (u1) (assert-member! u1 w2)) w1)) (define (assert-continues! x) (unless (expression-continues? x) (set-expression-continues?! x #t) (set! *again?* #t))) (define (assert-returns! x) (unless (expression-returns? x) (set-expression-returns?! x #t) (set! *again?* #t) ;; This is purely for efficiency. ;; It runs the inference rules for an expression when a subexpression ;; returns. (when (and (expression? (expression-parent x)) (not (eq? (expression-kind (expression-parent x)) 'lambda)) (not (eq? (expression-kind (expression-parent x)) 'converted-lambda)) (not (eq? (expression-kind (expression-parent x)) 'converted-continuation))) (push! (expression-parent x))) ;; This is purely for efficiency. ;; It runs the inference rules for a call when the callee returns. (when (and (expression? (expression-parent x)) ;; The next expression is a kludge. (environment? (expression-lambda-environment (expression-parent x)))) (for-each (lambda (y) (unless (top-level-call-site? y) (push! (call-site-expression y)))) (call-sites (expression-lambda-environment (expression-parent x))))))) (define (assert-expression-reached! x) (unless (expression-reached? x) (if (and (or (eq? (expression-kind x) 'lambda) (eq? (expression-kind x) 'converted-lambda) (eq? (expression-kind x) 'converted-continuation)) ;; The next expression is a kludge. (environment? (expression-lambda-environment x))) ;; note: This is because the EXPRESSION-REACHED? slot gets reset for ;; each round of flow analysis and clones are not anchored in ;; lambda expressions so their EXPRESSION-REACHED? slot never gets ;; set on subsequent passes. (for-each (lambda (e) (set-expression-reached?! (environment-expression e) #t)) (narrow-clones (expression-lambda-environment x))) (set-expression-reached?! x #t)) (set! *again?* #t) ;; This is purely for efficiency. ;; It runs the inference rule for an expression when it is used. (push! x))) (define (propagate-call! y w0 ws w) (for-each-member (lambda (u) (when ((truly-compatible-procedure? ws w y) u) (cond ((primitive-procedure-type? u) ;; Top-level calls should never be to a primitive procedure. ;; Implicit continuation calls should never be to a primitive procedure. (when (or (top-level-call-site? y) (continuation-argument-call-site? y)) (fuck-up)) (let ((w0 (if (converted? y) (first ws) #f)) (ws (if (converted? y) (rest ws) ws))) (let ((propagate-result! (if (converted? y) (lambda (u) (propagate-call! (recreate-call-site y 'continuation-argument) w0 (list (create-anonymous-type-set u)) *null*)) (lambda (u) ;; This works because APPLY and ;; CALL-WITH-CURRENT-CONTINUATION always return the result ;; returned by the call to their procedure argument. (assert-member! u (expression-type-set (call-site-expression y))))))) ;; conventions: PROPAGATE-RESULT! (((primitive-procedure-propagate-call! (cdr (assq (primitive-procedure-type-name u) *primitive-procedure-handlers*))) y u propagate-result! (lambda (m) (when (can-be? m (first ws)) (propagate-result! )) (when (can-be-non? m (first ws)) (propagate-result! ))) w0) ws w)) ;; For the life of me I can't remember what this does but if it is ;; removed then test21.sc and em-functional.sc break. ;; On R23May96 I partially rediscovered why this is needed. It is ;; because a converted call to a primitive procedure like SET-CAR! ;; might not ever call PROPAGATE-RESULT! in the propagator so the ;; continuation never gets asserted as called. (when (and (converted? y) ((needs-implicit-continuation-call? (cons w0 ws) w y) u)) (propagate-call! (recreate-call-site y 'continuation-argument) w0 (list *void*) *null*)))) ((native-procedure-type? u) (let ((e (callee-environment u y))) (when (and (not (converted? y)) (converted? e)) (fuck-up)) (unless (noop? e) (assert-expression-reached! (expression-body (environment-expression e)))) (unless (memp same-call-site? y (environment-call-sites e)) (set-environment-call-sites! e (cons y (environment-call-sites e)))) (let loop ((ws (if (and (converted? y) (not (converted? e))) (rest ws) ws)) (w w) (gs (variables e))) (unless (null? gs) (cond ((and (null? (rest gs)) (rest? e)) (set-type-set-used?! (variable-type-set (first gs)) #t) (if (null? ws) (assert-subset! w (variable-type-set (first gs))) ;; Since Y appears in the following and Y is #F at the top-level ;; call this assumes that the top level doesn't take a variable ;; number of arguments. ;; note: This is suboptimal since type propagation is not yet ;; complete and APPLY-CLOSED-WORLD-ASSUMPTION! has not ;; been done yet. (assert-member! ( (map members ws) (members w) (call-site-expression y)) (variable-type-set (first gs))))) ((null? ws) (for-each-member (lambda (u) (when ((if (rest? e) (list-type-of-length-at-least? (- (length gs) 1)) (list-type-of-length? (length gs))) u) (set-type-set-used?! (variable-type-set (first gs)) #t) (assert-subset! (pair-type-car u) (variable-type-set (first gs))) (loop ws (pair-type-cdr u) (rest gs)))) w)) (else (set-type-set-used?! (variable-type-set (first gs)) #t) (assert-subset! (first ws) (variable-type-set (first gs))) (loop (rest ws) w (rest gs)))))) ;; Top-level calls don't have an associated type set so there is no ;; need to propagate the return type. (unless (top-level-call-site? y) (when (and (converted? y) ((needs-implicit-continuation-call? ws w y) u)) (propagate-call! (recreate-call-site y 'continuation-argument) (first ws) (list (return-type-set e)) *null*)) ;; This works because APPLY and CALL-WITH-CURRENT-CONTINUATION always ;; return the result returned by the call to their procedure argument ;; and because implicit continuation calls should never be converted ;; and should never be through APPLY or CALL-WITH-CURRENT-CONTINUATION. (when ((returns? ws w y) u) (assert-subset! (return-type-set e) (expression-type-set (call-site-expression y))))))) ((foreign-procedure-type? u) ;; Top-level calls should never be to a foreign procedure. ;; Implicit continuation calls should never be to a foreign procedure. (when (or (top-level-call-site? y) (continuation-argument-call-site? y)) (fuck-up)) (set-foreign-procedure-type-called?! u #t) (when (and (converted? y) ((needs-implicit-continuation-call? ws w y) u)) (propagate-call! (recreate-call-site y 'continuation-argument) (first ws) (list (foreign-procedure-return-type-set u)) *null*)) ;; This works because APPLY and CALL-WITH-CURRENT-CONTINUATION always ;; return the result returned by the call to their procedure argument. (when ((returns? ws w y) u) (assert-subset! (foreign-procedure-return-type-set u) (expression-type-set (call-site-expression y))))) ((continuation-type? u) ;; Top-level calls should never be to a continuation. ;; Implicit continuation calls should never be to a continuation. (when (or (top-level-call-site? y) (continuation-argument-call-site? y)) (fuck-up)) ;; Calls to a nonconverted continuation should never be converted (even ;; if the argument to the call is converted) because they never return. ;; needs work: The above comment is not true because a call site might ;; call both a nonconverted continuation and somethings else ;; which does return and there might be a converted call to ;; a nonconverted continuation. (when (converted? y) (unimplemented y "unimplemented")) (set-continuation-type-continuation-accessed?! u #t) ;; Calls to nonconverted continuations never return. (let ((w1 (expression-type-set (continuation-type-allocating-expression u)))) (set-type-set-used?! w1 #t) (if (null? ws) (for-each-member (lambda (u) (when ((list-type-of-length? 1) u) (assert-subset! (pair-type-car u) w1))) w) (assert-subset! (first ws) w1)))) (else (fuck-up))))) w0)) (define (assert-types-in-if-context! us w x g p?) ;; conventions: P? (let ((x1 (expression-antecedent (expression-parent x)))) ;; note: Don't chain back through access, source of SET!, antecedent, ;; consequent, or alternate of IF, or callee or arguments of call. (cond ((eq? (expression-kind x1) 'call) (cond ((and (not (converted? x1)) (= (length (expression-arguments x1)) 1) (eq? (expression-kind (first (expression-arguments x1))) 'call)) (when (can-be? (primitive-procedure-type-named? 'not) (expression-type-set (expression-callee x1))) (let ((x2 (first (expression-arguments x1)))) (when (eq? (expression-kind x2) 'call) (for-each-member (lambda (u) (when ((truly-compatible-call? x2) u) ;; note: Don't chain back through calls to continuations or native ;; or foreign procedures. (if (primitive-procedure-type? u) (let loop ((us us) (xs (expression-arguments x2)) (ps (((if p? primitive-procedure-alternate-contexts primitive-procedure-consequent-contexts) (cdr (assq (primitive-procedure-type-name u) *primitive-procedure-handlers*))) (create-call-site x2) u (length (expression-arguments x2)) (if (converted? x2) (expression-type-set (first (expression-arguments x2))) #f)))) ;; conventions: PS (if (null? xs) (assert-types-in-context! us w (expression-parent x) g) (loop (if (and (eq? (expression-kind (first xs)) 'access) (eq? (expression-variable (first xs)) g)) (remove-if-not (first ps) us) us) (rest xs) (rest ps)))) (assert-types-in-context! us w (expression-parent x) g)))) (expression-type-set (expression-callee x2)))))) (when (can-be-non? (primitive-procedure-type-named? 'not) (expression-type-set (expression-callee x1))) (assert-types-in-context! us w (expression-parent x) g))) (else (for-each-member (lambda (u) (when ((truly-compatible-call? x1) u) ;; note: Don't chain back through calls to continuations or native or ;; foreign procedures. (if (primitive-procedure-type? u) (let loop ((us us) (xs (expression-arguments x1)) (ps (((if p? primitive-procedure-consequent-contexts primitive-procedure-alternate-contexts) (cdr (assq (primitive-procedure-type-name u) *primitive-procedure-handlers*))) (create-call-site x1) u (length (expression-arguments x1)) (if (converted? x1) (expression-type-set (first (expression-arguments x1))) #f)))) ;; conventions: PS (if (null? xs) (assert-types-in-context! us w (expression-parent x) g) (loop (if (and (eq? (expression-kind (first xs)) 'access) (eq? (expression-variable (first xs)) g)) (remove-if-not (first ps) us) us) (rest xs) (rest ps)))) (assert-types-in-context! us w (expression-parent x) g)))) (expression-type-set (expression-callee x1)))))) ((eq? (expression-kind x1) 'access) (assert-types-in-context! (if (eq? (expression-variable x1) g) (remove-if-not (if p? (lambda (u) (not (false-type? u))) false-type?) us) us) w (expression-parent x) g)) (else (assert-types-in-context! us w (expression-parent x) g))))) (define (assert-types-in-context! us w x g) (when (expression? (expression-parent x)) (case (expression-kind (expression-parent x)) ((lambda converted-lambda converted-continuation) ;; note: Don't chain back through callers except for LETs. Would have to ;; union across callers using demon. (if (let? (expression-lambda-environment (expression-parent x))) (assert-types-in-context! us w (expression-parent x) g) (for-each (lambda (u) (assert-member! u w)) us))) ((if) (cond ((eq? x (expression-consequent (expression-parent x))) (assert-types-in-if-context! us w x g #t)) ((eq? x (expression-alternate (expression-parent x))) (assert-types-in-if-context! us w x g #f)) (else (assert-types-in-context! us w (expression-parent x) g)))) (else (assert-types-in-context! us w (expression-parent x) g))))) (define (infer! x) (when (expression-reached? x) (let ((w (expression-type-set x))) (set-type-set-used?! w #t) (case (expression-kind x) ((null-constant) (unless (expression-inferred? x) (assert-member! w) (assert-continues! x) (assert-returns! x))) ((true-constant) (unless (expression-inferred? x) (assert-member! w) (assert-continues! x) (assert-returns! x))) ((false-constant) (unless (expression-inferred? x) (assert-member! w) (assert-continues! x) (assert-returns! x))) ((char-constant) (unless (expression-inferred? x) (assert-member! w) (assert-continues! x) (assert-returns! x))) ((fixnum-constant) (unless (expression-inferred? x) (assert-member! w) (assert-continues! x) (assert-returns! x))) ((flonum-constant) (unless (expression-inferred? x) (assert-member! w) (assert-continues! x) (assert-returns! x))) ((rectangular-constant) (unless (expression-inferred? x) (assert-member! w) (assert-continues! x) (assert-returns! x))) ((string-constant) (unless (expression-inferred? x) (assert-member! w) (assert-continues! x) (assert-returns! x))) ((symbol-constant) (unless (expression-inferred? x) (assert-member! (if *treat-all-symbols-as-external?* ( ) ( (expression-constant x))) w) (assert-continues! x) (assert-returns! x))) ((pair-constant) (unless (expression-inferred? x) (assert-expression-reached! (car (expression-constant x))) (assert-expression-reached! (cdr (expression-constant x)))) (assert-member! ( ;; note: This is suboptimal since type propagation is not yet complete ;; and APPLY-CLOSED-WORLD-ASSUMPTION! has not been done yet. (members (expression-type-set (car (expression-constant x)))) (members (expression-type-set (cdr (expression-constant x)))) x) w) (unless (expression-inferred? x) (assert-continues! x) (assert-returns! x))) ((vector-constant) (unless (expression-inferred? x) (for-each-vector assert-expression-reached! (expression-constant x))) (assert-member! ( ;; note: This is suboptimal since type propagation is not yet complete ;; and APPLY-CLOSED-WORLD-ASSUMPTION! has not been done yet. (reduce-vector unionq (map-vector (lambda (x1) (members (expression-type-set x1))) (expression-constant x)) '()) x) w) (unless (expression-inferred? x) (assert-continues! x) (assert-returns! x))) ((lambda converted-lambda converted-continuation) (unless (expression-inferred? x) (assert-member! ( (expression-lambda-environment x)) w) (assert-continues! x) (assert-returns! x))) ((set!) (assert-expression-reached! (expression-source x)) (set-type-set-used?! (variable-type-set (expression-variable x)) #t) (assert-subset! (expression-type-set (expression-source x)) (variable-type-set (expression-variable x))) (when (expression-continues? (expression-source x)) (assert-continues! x)) (when (expression-returns? (expression-source x)) (assert-returns! x))) ((if) (assert-expression-reached! (expression-antecedent x)) (when (can-be-non? false-type? (expression-type-set (expression-antecedent x))) (assert-expression-reached! (expression-consequent x)) (assert-subset! (expression-type-set (expression-consequent x)) w)) (when (can-be? false-type? (expression-type-set (expression-antecedent x))) (assert-expression-reached! (expression-alternate x)) (assert-subset! (expression-type-set (expression-alternate x)) w)) (when (and (expression-continues? (expression-antecedent x)) (or (expression-continues? (expression-consequent x)) (expression-continues? (expression-alternate x)))) (assert-continues! x)) (when (and (expression-returns? (expression-antecedent x)) (or (expression-returns? (expression-consequent x)) (expression-returns? (expression-alternate x)))) (assert-returns! x))) ((primitive-procedure) (unless (expression-inferred? x) (assert-member! ( (first (expression-constant x)) (rest (expression-constant x))) w) (assert-continues! x) (assert-returns! x))) ((foreign-procedure) (unless (expression-inferred? x) (assert-member! ( (third (expression-constant x)) (first (expression-constant x)) (second (expression-constant x)) (and (= (length (expression-constant x)) 4) (fourth (expression-constant x)))) w) (assert-continues! x) (assert-returns! x))) ((access) (set-type-set-used?! (variable-type-set (expression-variable x)) #t) ;; needs work: Should ignore assignments that aren't executed. ;; needs work: Should ignore void assignments. (if (null? (assignments (expression-variable x))) (assert-types-in-context! (members (variable-type-set (expression-variable x))) w x (expression-variable x)) (assert-subset! (variable-type-set (expression-variable x)) w)) (assert-continues! x) (assert-returns! x)) ((call) ;; needs work: Only assert a subexpression as used if the previous ;; subexpression returns. This assumes a left-to-right ;; evaluation order. As Olin Shivers pointed out, since ;; evaluation order is unspecified you can abort if any ;; subexpression doesn't return. But given the way the ;; propagator works, we can only determine whether an ;; expression returns by asserting it as used. So we have to ;; pick some order and it might as well be left to right. (assert-expression-reached! (expression-callee x)) (for-each assert-expression-reached! (expression-arguments x)) (when (executed? x) (propagate-call! (create-call-site x) (expression-type-set (expression-callee x)) (map expression-type-set (expression-arguments x)) *null*) (when (can-be? (continues? (map expression-type-set (expression-arguments x)) *null* (create-call-site x)) (expression-type-set (expression-callee x))) (assert-continues! x)) (when (can-be? (returns? (map expression-type-set (expression-arguments x)) *null* (create-call-site x)) (expression-type-set (expression-callee x))) (assert-returns! x)))) ((converted-call) ;; needs work: Only assert a subexpression as used if the previous ;; subexpression returns. This assumes a left-to-right ;; evaluation order. As Olin Shivers pointed out, since ;; evaluation order is unspecified you can abort if any ;; subexpression doesn't return. But given the way the ;; propagator works, we can only determine whether an ;; expression returns by asserting it as used. So we have to ;; pick some order and it might as well be left to right. (assert-expression-reached! (expression-callee x)) (for-each assert-expression-reached! (expression-arguments x)) (when (executed? x) (propagate-call! (create-call-site x) (expression-type-set (expression-callee x)) (map expression-type-set (expression-arguments x)) *null*) (when (can-be? (continues? (map expression-type-set (expression-arguments x)) *null* (create-call-site x)) (expression-type-set (expression-callee x))) (assert-continues! x)) (when (can-be? (returns? (map expression-type-set (expression-arguments x)) *null* (create-call-site x)) (expression-type-set (expression-callee x))) (assert-returns! x)))) (else (fuck-up)))) (set-expression-inferred?! x #t))) (define (push! x) (unless (expression-link x) (set-expression-link! x (if *x1* *x1* #t)) (set! *x1* x))) (define (run-stack!) (let loop () (when *x1* (let ((x *x1*)) (set! *x1* (if (eq? (expression-link x) #t) #f (expression-link x))) (set-expression-link! x #f) (infer! x) (loop))))) (define (perform-flow-analysis!) (set! *types-frozen?* #f) (reinitialize-types-and-type-sets!) (for-each (lambda (x) ;; Only narrow prototypes get a type set. (when (or (and (not (eq? (expression-kind x) 'lambda)) (not (eq? (expression-kind x) 'converted-lambda)) (not (eq? (expression-kind x) 'converted-continuation))) ;; The next expression is a kludge. (not (environment? (expression-lambda-environment x))) (eq? (narrow-prototype (expression-lambda-environment x)) (expression-lambda-environment x))) (set-expression-type-set! x (create-type-set x))) (set-expression-reached?! x #f) (set-expression-inferred?! x #f) (set-expression-returns?! x #f)) *xs*) (for-each (lambda (x) ;; Clones that are not narrow prototypes share their type set with their ;; narrow prototype. (when (and (or (eq? (expression-kind x) 'lambda) (eq? (expression-kind x) 'converted-lambda) (eq? (expression-kind x) 'converted-continuation)) ;; The next expression is a kludge. (environment? (expression-lambda-environment x)) (not (eq? (narrow-prototype (expression-lambda-environment x)) (expression-lambda-environment x)))) (set-expression-type-set! x (expression-type-set (environment-expression (narrow-prototype (expression-lambda-environment x))))))) *xs*) (for-each (lambda (e) (set-environment-call-sites! e '())) *es*) (for-each (lambda (g) (set-variable-type-set! g (create-type-set g))) *gs*) (assert-expression-reached! *x*) (let loop () (clock-sample) ;To prevent overflow. (set! *again?* #f) (propagate-call! *y* (expression-type-set *x*) (list *w1*) *null*) (run-stack!) (for-each push! *xs*) (run-stack!) (when *again?* (loop))) (set! *types-frozen?* #t)) ;;; Enumerate call sites (define (enumerate-call-sites!) (set! *ys* '()) (for-each (lambda (x) (when (and (executed? x) (not (empty? (expression-environment x))) (environment-used? (expression-environment x))) (set! *ys* (cons (create-call-site x) *ys*)) (when (can-be? (lambda (u) (and (or ((primitive-procedure-type-named? 'apply) u) ((primitive-procedure-type-named? 'call-with-current-continuation) u) ((primitive-procedure-type-named? 'fork) u) ((primitive-procedure-type-named? 'mutex) u)) ((truly-compatible-call? x) u))) (expression-type-set (expression-callee x))) (set! *ys* (cons (recreate-call-site (create-call-site x) 'first-argument) *ys*))) (when (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'fork) u) ((truly-compatible-call? x) u))) (expression-type-set (expression-callee x))) (set! *ys* (cons (recreate-call-site (create-call-site x) 'second-argument) *ys*))))) *calls*)) ;;; Determine which types and type sets are used (define (determine-which-types-and-type-sets-are-used!) (let loop () (let ((again? #f)) (define (assert-used! u) (cond ((null-type? u) (set! *null-type-used?* #t)) ((true-type? u) (set! *true-type-used?* #t)) ((false-type? u) (set! *false-type-used?* #t)) ((char-type? u) (set! *char-type-used?* #t)) ((fixnum-type? u) (set! *fixnum-type-used?* #t)) ((flonum-type? u) (set! *flonum-type-used?* #t)) ((rectangular-type? u) (set! *rectangular-type-used?* #t)) ((input-port-type? u) (set! *input-port-type-used?* #t)) ((output-port-type? u) (set! *output-port-type-used?* #t)) ((eof-object-type? u) (set! *eof-object-type-used?* #t)) ((pointer-type? u) (set! *pointer-type-used?* #t)) ((internal-symbol-type? u) (set-internal-symbol-type-used?! u #t)) ((external-symbol-type? u) (unless (type-used? u) (set-external-symbol-type-used?! u #t) (set! again? #t))) ((primitive-procedure-type? u) (set-primitive-procedure-type-used?! u #t)) ((native-procedure-type? u) (set-native-procedure-type-used?! u #t)) ((foreign-procedure-type? u) (set-foreign-procedure-type-used?! u #t)) ((continuation-type? u) (unless (type-used? u) (set-continuation-type-used?! u #t))) ((string-type? u) (set-string-type-used?! u #t)) ((structure-type? u) (unless (type-used? u) (set-structure-type-used?! u #t) (set! again? #t))) ((headed-vector-type? u) (unless (type-used? u) (set-headed-vector-type-used?! u #t) (set! again? #t))) ((nonheaded-vector-type? u) (unless (type-used? u) (set-nonheaded-vector-type-used?! u #t) (set! again? #t))) ((displaced-vector-type? u) (unless (type-used? u) (set-displaced-vector-type-used?! u #t) (set! again? #t))) (else (fuck-up)))) (for-each (lambda (u) (when (type-used? u) (assert-used! (external-symbol-type-displaced-string-type u)))) *external-symbol-types*) (for-each (lambda (u) (when (type-used? u) (for-each (lambda (w) (unless (type-set-used? w) (set-type-set-used?! w #t) (set! again? #t))) (structure-type-slots u)))) *structure-types*) (for-each (lambda (u) (when (type-used? u) (unless (type-set-used? (headed-vector-type-element u)) (set-type-set-used?! (headed-vector-type-element u) #t) (set! again? #t)))) *headed-vector-types*) (for-each (lambda (u) (when (type-used? u) (unless (type-set-used? (nonheaded-vector-type-element u)) (set-type-set-used?! (nonheaded-vector-type-element u) #t) (set! again? #t)))) *nonheaded-vector-types*) (for-each (lambda (u) (when (type-used? u) (assert-used! (displaced-vector-type-displaced-vector-type u)))) *displaced-vector-types*) (for-each (lambda (w) (when (type-set-used? w) (for-each-member assert-used! w))) *ws*) (when again? (loop))))) (define (replace-expression! x1 x2) (case (expression-kind (expression-parent x1)) ((lambda converted-lambda converted-continuation) (unless (eq? (expression-body (expression-parent x1)) x1) (fuck-up)) (set-expression-body! (expression-parent x1) x2)) ((set!) (unless (eq? (expression-source (expression-parent x1)) x1) (fuck-up)) (set-expression-source! (expression-parent x1) x2)) ((if) (cond ((eq? (expression-antecedent (expression-parent x1)) x1) (set-expression-antecedent! (expression-parent x1) x2)) ((eq? (expression-consequent (expression-parent x1)) x1) (set-expression-consequent! (expression-parent x1) x2)) ((eq? (expression-alternate (expression-parent x1)) x1) (set-expression-alternate! (expression-parent x1) x2)) (else (fuck-up)))) ((call converted-call) (cond ((eq? (expression-callee (expression-parent x1)) x1) (set-expression-callee! (expression-parent x1) x2)) ((one (lambda (x3) (eq? x3 x1)) (expression-arguments (expression-parent x1))) (set-expression-arguments! (expression-parent x1) (map (lambda (x3) (if (eq? x3 x1) x2 x3)) (expression-arguments (expression-parent x1))))) (else (fuck-up)))) (else (fuck-up)))) (define (remove-unused-objects! p?) (when p? (set! *xs* (remove-if-not reached? *xs*)) (set! *calls* (remove-if-not reached? *calls*)) (set! *accesses* (remove-if-not reached? *accesses*)) (set! *assignments* (remove-if-not reached? *assignments*)) (set! *references* (remove-if-not reached? *references*)) (for-each (lambda (x) (when (and (or (eq? (expression-kind x) 'lambda) (eq? (expression-kind x) 'converted-lambda) (eq? (expression-kind x) 'converted-continuation)) (not (called? (expression-lambda-environment x)))) (set-expression-parameters! x (unspecified))) (when (and (or (eq? (expression-kind x) 'lambda) (eq? (expression-kind x) 'converted-lambda) (eq? (expression-kind x) 'converted-continuation)) (not (called? (expression-lambda-environment x)))) (set-expression-lambda-environment! x (unspecified)))) *xs*) (set! *internal-symbol-types* (remove-if-not type-used? *internal-symbol-types*)) (set! *external-symbol-types* (remove-if-not type-used? *external-symbol-types*)) (set! *primitive-procedure-types* (remove-if-not type-used? *primitive-procedure-types*)) (set! *native-procedure-types* (remove-if-not type-used? *native-procedure-types*)) (set! *foreign-procedure-types* (remove-if-not type-used? *foreign-procedure-types*)) (set! *continuation-types* (remove-if-not type-used? *continuation-types*)) (set! *string-types* (remove-if-not type-used? *string-types*)) (set! *structure-types* (remove-if-not type-used? *structure-types*)) (set! *headed-vector-types* (remove-if-not type-used? *headed-vector-types*)) (set! *nonheaded-vector-types* (remove-if-not type-used? *nonheaded-vector-types*)) (set! *displaced-vector-types* (remove-if-not type-used? *displaced-vector-types*))) (for-each (lambda (u) (set-native-procedure-type-call-site-environment-alist! u (remove-if-not (lambda (y-e) (and (or (top-level-call-site? (car y-e)) (reached? (call-site-expression (car y-e)))) (called? (cdr y-e)))) (native-procedure-type-call-site-environment-alist u))) (when p? (unless (called? (native-procedure-type-narrow-prototype u)) (set-native-procedure-type-narrow-prototype! u (find-if called? (narrow-clones u)))))) *native-procedure-types*) (when p? (set! *ws* (remove-if-not type-set-used? *ws*))) (for-each (lambda (w) (set-members! w (members-that type-used? w))) *ws*) (when p? (set! *gs* (remove-if-not variable-used? *gs*)) (for-each (lambda (g) (set-variable-accesses! g (remove-if-not reached? (variable-accesses g))) (set-variable-assignments! g (remove-if-not reached? (variable-assignments g))) (set-variable-references! g (remove-if-not reached? (variable-references g)))) *gs*) (for-each (lambda (e) (when (and (eq? (narrow-prototype e) e) (not (called? e)) (some (lambda (e1) (and (called? e1) (eq? (expression-accessed? (environment-expression e1)) (expression-accessed? (environment-expression e))))) (narrow-clones e))) (replace-expression! (environment-expression e) (environment-expression (find-if (lambda (e1) (and (called? e1) (eq? (expression-accessed? (environment-expression e1)) (expression-accessed? (environment-expression e))))) (narrow-clones e)))))) *es*) (for-each (lambda (e) (set-environment-narrow-clones! e (remove-if-not called? (narrow-clones (narrow-prototype e)))) (set-environment-parent-parameter! e (parent-parameter e))) *es*) (for-each (lambda (e) (when (and (not (called? (environment-narrow-prototype e))) ;; This is a kludge. (some called? (narrow-clones e))) (set-environment-narrow-prototype! e (find-if called? (narrow-clones e))))) *es*) (for-each (lambda (e) (unless (eq? e (environment-narrow-prototype e)) (set-environment-narrow-clones! e '()) (set-environment-parent-parameter! e (unspecified)))) *es*) (let ((es (remove-if-not called? *es*))) (for-each set-environment-wide-prototype! es (map (lambda (e) (find-if (lambda (e1) (and (eq? (environment-narrow-prototype e1) e1) (eq? (environment-wide-prototype e1) (environment-wide-prototype e)))) es)) es))) ;; This is just because of *CLOSURE-CONVERSION-METHOD*. (for-each (lambda (e) (when (environment-used? e) (set-environment-expressions! e (remove-if-not reached? (environment-expressions e))))) *es*) ;; This is just because of *CLOSURE-CONVERSION-METHOD*. (for-each (lambda (e) (when (environment-used? e) (set-environment-continuation-calls! e (remove-if-not reached? (environment-continuation-calls e))))) *es*) (set! *es0* (remove-if-not (lambda (e) (and (called? e) (noop? e))) *es*)) (set! *es* (remove-if-not environment-used? *es*)))) (define (check-for-corruption p?) (define (memq-*us* u) (cond ((internal-symbol-type? u) (memq u *internal-symbol-types*)) ((external-symbol-type? u) (memq u *external-symbol-types*)) ((primitive-procedure-type? u) (memq u *primitive-procedure-types*)) ((native-procedure-type? u) (memq u *native-procedure-types*)) ((foreign-procedure-type? u) (memq u *foreign-procedure-types*)) ((continuation-type? u) (memq u *continuation-types*)) ((string-type? u) (memq u *string-types*)) ((structure-type? u) (memq u *structure-types*)) ((headed-vector-type? u) (memq u *headed-vector-types*)) ((nonheaded-vector-type? u) (memq u *nonheaded-vector-types*)) ((displaced-vector-type? u) (memq u *displaced-vector-types*)) (else #t))) (let ((p0? #f) ;*XS* (p1? #f) ;*ES* (p2? #f) ;*WS* (p3? #f) ;*GS* (p4? #f)) ;*US* (unless (and (nonheaded-vector-type? (the-member *w1*)) (string-type? (the-member (nonheaded-vector-type-element (the-member *w1*))))) (fuck-up)) (unless (void? *void*) (fuck-up)) (unless (null-type? (the-member *null*)) (fuck-up)) (unless (input-port-type? (the-member *input-port*)) (fuck-up)) (unless (output-port-type? (the-member *output-port*)) (fuck-up)) (unless (char-type? (the-member *foreign-char-type-set*)) (fuck-up)) (unless (fixnum-type? (the-member *foreign-fixnum-type-set*)) (fuck-up)) (unless (flonum-type? (the-member *foreign-flonum-type-set*)) (fuck-up)) (unless (string-type? (the-member *foreign-string-type-set*)) (fuck-up)) (unless (input-port-type? (the-member *foreign-input-port-type-set*)) (fuck-up)) (unless (output-port-type? (the-member *foreign-output-port-type-set*)) (fuck-up)) (unless (pointer-type? (the-member *foreign-pointer-type-set*)) (fuck-up)) (when p0? (unless (subsetq? *calls* *xs*) (fuck-up)) (unless (subsetq? *accesses* *xs*) (fuck-up)) (unless (subsetq? *assignments* *xs*) (fuck-up)) (unless (subsetq? *references* *xs*) (fuck-up)) (let loop ((x *x*)) (when (reached? x) (unless (memq x *xs*) (fuck-up)) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) (loop (car (expression-constant x))) (loop (cdr (expression-constant x)))) ((vector-constant) (for-each-vector loop (expression-constant x))) ((lambda converted-lambda converted-continuation) (unless (noop? x) (loop (expression-body x)))) ((set!) (loop (expression-source x))) ((if) (loop (expression-antecedent x)) (loop (expression-consequent x)) (loop (expression-alternate x))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) #f) ((call converted-call) (loop (expression-callee x)) (for-each loop (expression-arguments x))) (else (fuck-up)))))) (for-each (lambda (x) ;; EXPRESSION-LINK (when (and (reached? x) (environment? (expression-environment x)) (not (called? (expression-environment x)))) (fuck-up)) (when (and p1? (environment? (expression-environment x)) (not (memq (expression-environment x) *es*))) (fuck-up)) (when (and (reached? x) (not (type-set-used? (expression-type-set x)))) (fuck-up)) (when (and p2? (reached? x) (not (memq (expression-type-set x) *ws*))) (fuck-up)) (when (and (reached? x) (expression? (expression-parent x)) (not (reached? (expression-parent x)))) (fuck-up)) (when (and p0? (expression? (expression-parent x)) (not (memq (expression-parent x) *xs*))) (fuck-up)) ;; EXPRESSION-CONSTANT (when (and p? (environment? (expression-lambda-environment x)) (not (called? (expression-lambda-environment x)))) (fuck-up)) (when (and p1? (environment? (expression-lambda-environment x)) (not (noop? (expression-lambda-environment x))) (not (memq (expression-lambda-environment x) *es*))) (fuck-up)) (when (and p3? (or (variable? (expression-parameters x)) (pair? (expression-parameters x)))) (let loop ((gs (expression-parameters x))) (cond ((pair? gs) (unless (memq (first gs) *gs*) (fuck-up)) (loop (rest gs))) ((variable? gs) (unless (memq gs *gs*) (fuck-up))) ((null? gs) #f) (else (fuck-up))))) ;; EXPRESSION-BODY (when (and p3? (variable? (expression-variable x)) (not (memq (expression-variable x) *gs*))) (fuck-up)) (when (and (reached? x) (expression? (expression-source x)) (not (reached? (expression-source x)))) (fuck-up)) (when (and p0? (expression? (expression-source x)) (not (memq (expression-source x) *xs*))) (fuck-up)) (when (and (reached? x) (expression? (expression-antecedent x)) (not (reached? (expression-antecedent x)))) (fuck-up)) (when (and p0? (expression? (expression-antecedent x)) (not (memq (expression-antecedent x) *xs*))) (fuck-up)) ;; EXPRESSION-CONSEQUENT ;; EXPRESSION-ALTERNATE (when (and (reached? x) (expression? (expression-callee x)) (not (reached? (expression-callee x)))) (fuck-up)) (when (and p0? (expression? (expression-callee x)) (not (memq (expression-callee x) *xs*))) (fuck-up)) (when (list? (expression-arguments x)) (when (reached? x) (for-each (lambda (x) (unless (reached? x) (fuck-up))) (expression-arguments x))) (when p0? (for-each (lambda (x) (unless (memq x *xs*) (fuck-up))) (expression-arguments x)))) ;; EXPRESSION-ORIGINAL-EXPRESSION (when p1? (for-each (lambda (u-e) (when (or (not (type-used? (car u-e))) (not (memq-*us* (car u-e))) (and (region-allocation? (cdr u-e)) (or (not (called? (cdr u-e))) (not (memq (cdr u-e) *es*))))) (fuck-up))) (expression-type-allocation-alist x)))) *xs*) (for-each (lambda (u) ;; EXTERNAL-SYMBOL-TYPE-LINK (unless (type-used? (external-symbol-type-displaced-string-type u)) (fuck-up)) (when (and p4? (not (memq (external-symbol-type-displaced-string-type u) *string-types*))) (fuck-up))) *external-symbol-types*) (for-each (lambda (u) (when (and (native-procedure-type-narrow-prototype u) (not (eq? (environment-narrow-prototype (native-procedure-type-narrow-prototype u)) (native-procedure-type-narrow-prototype u)))) (fuck-up)) (when (and p? (native-procedure-type-narrow-prototype u) (not (called? (native-procedure-type-narrow-prototype u)))) (fuck-up)) (when (and p? p1? (native-procedure-type-narrow-prototype u) (not (noop? (native-procedure-type-narrow-prototype u))) (not (memq (native-procedure-type-narrow-prototype u) *es*))) (fuck-up)) (for-each (lambda (y-e) (when (and (call-site? (car y-e)) (not (reached? (call-site-expression (car y-e))))) (fuck-up)) (when (and p0? (call-site? (car y-e)) (not (memq (call-site-expression (car y-e)) *xs*))) (fuck-up)) (unless (called? (cdr y-e)) (fuck-up)) (when (and p1? (not (noop? (cdr y-e))) (not (memq (cdr y-e) *es*))) (fuck-up)) (unless (memq (cdr y-e) (narrow-clones (cdr y-e))) (fuck-up))) (native-procedure-type-call-site-environment-alist u))) *native-procedure-types*) (for-each (lambda (u) (when (and (expression? (continuation-type-allocating-expression u)) (not (reached? (continuation-type-allocating-expression u)))) (fuck-up)) (when (and p0? (expression? (continuation-type-allocating-expression u)) (not (memq (continuation-type-allocating-expression u) *xs*))) (fuck-up)) ;; This is a real kludge. (unless (eq? (continuation-type-call-sites u) (unspecified)) (for-each (lambda (y) (unless (reached? (call-site-expression y)) (fuck-up)) (when (and p0? (not (memq (call-site-expression y) *xs*))) (fuck-up))) (continuation-type-call-sites u)))) *continuation-types*) (for-each (lambda (u) ;; STRING-TYPE-LINK (for-each (lambda (x) (when (and (expression? x) (not (reached? x))) (fuck-up)) (when (and p0? (expression? x) (not (memq x *xs*))) (fuck-up))) (string-type-allocating-expressions u))) *string-types*) (for-each (lambda (u) (for-each (lambda (w) (unless (type-set-used? w) (fuck-up)) (when (and p2? (not (memq w *ws*))) (fuck-up))) (structure-type-slots u)) ;; STRUCTURE-TYPE-LINK (for-each (lambda (x) (when (and (expression? x) (not (reached? x))) (fuck-up)) (when (and p0? (expression? x) (not (memq x *xs*))) (fuck-up))) (structure-type-allocating-expressions u))) *structure-types*) (for-each (lambda (u) (unless (type-set-used? (headed-vector-type-element u)) (fuck-up)) (when (and p2? (not (memq (headed-vector-type-element u) *ws*))) (fuck-up)) ;; HEADED-VECTOR-TYPE-LINK (for-each (lambda (x) (when (and (expression? x) (not (reached? x))) (fuck-up)) (when (and p0? (expression? x) (not (memq x *xs*))) (fuck-up))) (headed-vector-type-allocating-expressions u))) *headed-vector-types*) (for-each (lambda (u) (unless (type-set-used? (nonheaded-vector-type-element u)) (fuck-up)) (when (and p2? (not (memq (nonheaded-vector-type-element u) *ws*))) (fuck-up)) ;; NONHEADED-VECTOR-TYPE-LINK (for-each (lambda (x) (when (and (expression? x) (not (reached? x))) (fuck-up)) (when (and p0? (expression? x) (not (memq x *xs*))) (fuck-up))) (nonheaded-vector-type-allocating-expressions u))) *nonheaded-vector-types*) (for-each (lambda (u) (unless (type-used? (displaced-vector-type-displaced-vector-type u)) (fuck-up)) ;; DISPLACED-VECTOR-TYPE-LINK (when (and p4? (not (memq-*us* (displaced-vector-type-displaced-vector-type u)))) (fuck-up))) *displaced-vector-types*) (for-each (lambda (w) (when (and (expression? (type-set-location w)) (not (reached? (type-set-location w)))) (fuck-up)) (when (and p0? (expression? (type-set-location w)) (not (memq (type-set-location w) *xs*))) (fuck-up)) (when (and p3? (variable? (type-set-location w)) (not (memq (type-set-location w) *gs*))) (fuck-up)) (when (and (structure-type? (type-set-location w)) (not (type-used? (type-set-location w)))) (fuck-up)) (when (and p4? (structure-type? (type-set-location w)) (not (memq (type-set-location w) *structure-types*))) (fuck-up)) (when (and (headed-vector-type? (type-set-location w)) (not (type-used? (type-set-location w)))) (fuck-up)) (when (and p4? (headed-vector-type? (type-set-location w)) (not (memq (type-set-location w) *headed-vector-types*))) (fuck-up)) (when (and (nonheaded-vector-type? (type-set-location w)) (not (type-used? (type-set-location w)))) (fuck-up)) (when (and p4? (nonheaded-vector-type? (type-set-location w)) (not (memq (type-set-location w) *nonheaded-vector-types*))) (fuck-up)) ;; TYPE-SET-LINK (for-each-member (lambda (u) (unless (type-used? u) (fuck-up)) (when (and p4? (not (memq-*us* u))) (fuck-up))) w)) *ws*) (for-each (lambda (g) (when (and p? (not (variable-used? g))) (fuck-up)) (when (and p1? (not (noop? (variable-environment g))) (not (memq (variable-environment g) *es*))) (fuck-up)) (when (and (variable-used? g) (not (type-set-used? (variable-type-set g)))) (fuck-up)) (when (and p2? (variable-used? g) (not (memq (variable-type-set g) *ws*))) (fuck-up)) (for-each (lambda (x) (unless (reached? x) (fuck-up)) (when (and p0? (not (memq x *xs*))) (fuck-up))) (accesses g)) (for-each (lambda (x) (unless (reached? x) (fuck-up)) (when (and p0? (not (memq x *xs*))) (fuck-up))) (assignments g)) (for-each (lambda (x) (unless (reached? x) (fuck-up)) (when (and p0? (not (memq x *xs*))) (fuck-up))) (references g))) *gs*) (for-each (lambda (e) (when (environment-used? e) (when (and (environment-expression e) (not (reached? (environment-expression e)))) (fuck-up)) (when (and p0? (environment-expression e) (not (memq (environment-expression e) *xs*))) (fuck-up)) (for-each (lambda (y) (unless (or (top-level-call-site? y) (reached? (call-site-expression y))) (fuck-up)) (when (and p0? (not (top-level-call-site? y)) (not (memq (call-site-expression y) *xs*))) (fuck-up))) (call-sites e)) (when (and (region-allocation? (allocation e)) (not (called? (allocation e)))) (fuck-up)) (when (and p1? (region-allocation? (allocation e)) (not (memq (allocation e) *es*))) (fuck-up)) ;; ENVIRONMENT-FREE-VARIABLES ;; ENVIRONMENT-QUICK-PARENT ;; ENVIRONMENT-PARENT-PARAMETER ;; ENVIRONMENT-PARENT-SLOT ;; ENVIRONMENT-ANCESTORS ;; ENVIRONMENT-CHILDREN ;; ENVIRONMENT-PROPERLY-IN-LINED-ENVIRONMENTS (unless (eq? (environment-narrow-prototype (environment-narrow-prototype e)) (environment-narrow-prototype e)) (fuck-up)) (unless (eq? (expression-type-set (environment-expression e)) (expression-type-set (environment-expression (environment-narrow-prototype e)))) (fuck-up)) (when (and (not (eq? e (environment-narrow-prototype e))) (not (null? (environment-narrow-clones e)))) (fuck-up)) (unless (memq e (environment-narrow-clones (environment-narrow-prototype e))) (fuck-up)) (when (and p? (not (called? (environment-narrow-prototype e)))) (fuck-up)) (when (and p? p1? (not (noop? (environment-narrow-prototype e))) (not (memq (environment-narrow-prototype e) *es*))) (fuck-up)) (when p? (for-each (lambda (e) (unless (called? (environment-narrow-prototype e)) (fuck-up)) (when (and p1? (not (noop? (environment-narrow-prototype e))) (not (memq (environment-narrow-prototype e) *es*))) (fuck-up))) (environment-narrow-clones e))) (unless (eq? (environment-narrow-prototype (environment-wide-prototype e)) (environment-wide-prototype e)) (fuck-up)) (when (and p? (not (called? (environment-wide-prototype e)))) (fuck-up)) (when (and p? p1? (not (noop? (environment-wide-prototype e))) (not (memq (environment-wide-prototype e) *es*))) (fuck-up)) ;; This is a real kludge. (unless (eq? (environment-direct-tail-callers e) (unspecified)) (for-each (lambda (e1) (unless (environment-used? e1) (fuck-up)) (when (and p1? (not (memq e1 *es*))) (fuck-up))) (environment-direct-tail-callers e))) ;; This is a real kludge. (unless (eq? (environment-direct-non-tail-callers e) (unspecified)) (for-each (lambda (e1) (unless (environment-used? e1) (fuck-up)) (when (and p1? (not (memq e1 *es*))) (fuck-up))) (environment-direct-non-tail-callers e))) ;; This is a real kludge. (unless (eq? (environment-direct-tail-callees e) (unspecified)) (for-each (lambda (e1) (unless (environment-used? e1) (fuck-up)) (when (and p1? (not (memq e1 *es*))) (fuck-up))) (environment-direct-tail-callees e))) ;; This is a real kludge. (unless (eq? (environment-direct-non-tail-callees e) (unspecified)) (for-each (lambda (e1) (unless (environment-used? e1) (fuck-up)) (when (and p1? (not (memq e1 *es*))) (fuck-up))) (environment-direct-non-tail-callees e))) ;; This is a real kludge. (unless (eq? (environment-expressions e) (unspecified)) (for-each (lambda (x) (unless (reached? x) (fuck-up)) (when (and p0? (not (memq x *xs*))) (fuck-up))) (environment-expressions e))) ;; This is a real kludge. (unless (eq? (environment-continuation-calls e) (unspecified)) (for-each (lambda (x) (unless (reached? x) (fuck-up)) (when (and p0? (not (memq x *xs*))) (fuck-up))) (environment-continuation-calls e))) ;; ENVIRONMENT-DIRECTLY-ESCAPING-TYPES ;; ENVIRONMENT-NON-SELF-TAIL-CALL-SITES (unless (eq? (parent e) (parent (narrow-prototype e))) (fuck-up)))) *es*))) ;;; Determine which call sites to split (define (splittable-call-site-count e) (count-if (lambda (y) (and ;; For now, only split explicit call sites. (explicit-call-site? y) ;; Don't split a call unless the call can actually happen. (executed? (call-site-expression y)) ((truly-compatible-call? (call-site-expression y)) (environment-type e)) ;; Don't split call sites to an environment that are nested in that ;; environment. (not (nested-in? (expression-environment (call-site-expression y)) e)))) (call-sites e))) (define (determine-which-call-sites-to-split!) ;; Reasons for splitting: ;; 1. to eliminate argument-parameter widening ;; 2. to allow in-lining ;; 3. to specialize the lifetime of a rest arg ;; 4. to specialize the lifetime of allocated data ;; 5. to make non-self tail calls self tail calls (let ((split? #f)) (let loop () (let ((again? #f)) (let* ((es1 (remove-if-not (lambda (e) (and ;; Don't split a procedure unless it can be called. (called? e) ;; Don't split noops. (not (noop? e)) ;; Don't split a procedure that has already been split. (eq? (environment-split e) #f) ;; Don't split a procedure when some call site that targets ;; that procedure is nested in some procedure that has ;; already been split. (not (some (lambda (y) (and (explicit-call-site? y) (let loop? ((e1 (expression-environment (call-site-expression y)))) (and (not (empty? e1)) (or (eq? (environment-split e1) #t) (eq? (environment-split e1) 'never) (loop? (parent e1))))))) (call-sites e))))) *es*)) ;; If both E1 and E2 are distinct candidates for splitting, don't ;; split E1 there is a call to E2 nested in E1. (es2 (remove-if (lambda (e1) (clock-sample) ;To prevent overflow. (some (lambda (e2) (and (not (eq? e1 e2)) (some (lambda (y) (and (explicit-call-site? y) (nested-in? (expression-environment (call-site-expression y)) e1))) (call-sites e2)))) es1)) es1))) (for-each (lambda (e) (let ((u (environment-type e))) (cond ((and (or (= *clone-size-limit* -1) (<= (clone-size e) *clone-size-limit*)) ;; Require some compelling reason for splitting. ;; needs work: This should also allow splitting in the following ;; cases: ;; 1. target is not reentrant; to allow in-lining ;; 2. target or some procedure in-lined in target ;; conses; to specialize the lifetime of allocated ;; data ;; 3. target is not in-lined and call site is not a self ;; tail call but there is a tail call path from the ;; target to the call site and the call site is a ;; tail call; to make non-self tail calls tail calls (or *split-even-if-no-widening?* ;; Split calls to varargs targets. To specialize the lifetime of ;; the rest arg. (rest? e) ;; Split calls to non-vararg targets that require widening some ;; argument. To eliminate argument-parameter widening. (some (lambda (y) (and (explicit-call-site? y) (some (lambda (x g) (not (set-equalp? ;; This is a form of uniqueness. ;; needs work: Doesn't handle displaced ;; vectors. (lambda (u1 u2) (or (eq? u1 u2) (and (string-type? u1) (string-type? u2)) (and (structure-type? u1) ((structure-type-named? (structure-type-name u1)) u2)) (and (headed-vector-type? u1) (headed-vector-type? u2)) (and (nonheaded-vector-type? u1) (nonheaded-vector-type? u2)))) (members (expression-type-set x)) (members (variable-type-set g))))) (expression-arguments (call-site-expression y)) (expression-parameters (environment-expression e))))) (call-sites e)))) (when #f ;debugging (notify "Clone size ~a is ~s" (environment-name e) (clone-size e))) (set-environment-split! e #t) (for-each (lambda (y) (when #f ;debugging (notify "Cloning x~s ~a->[clone ~a ~s]" (expression-index (call-site-expression y)) (environment-name e) (environment-name (wide-prototype e)) *ei*) (notify "~s" (undecorate (call-site-expression y)))) (set! *types-frozen?* #f) (set-cdr! (assp same-call-site? y (native-procedure-type-call-site-environment-alist u)) (clone e)) (set! *types-frozen?* #t)) (let ((ys (remove-if-not (lambda (y) (and ;; For now, only split explicit call sites. (explicit-call-site? y) ;; Don't split a call unless the call can actually happen. (executed? (call-site-expression y)) ((truly-compatible-call? (call-site-expression y)) u) ;; Don't split call sites to an environment that are ;; nested in that environment. (not (nested-in? (expression-environment (call-site-expression y)) e)))) (call-sites e)))) ;; The first call site remains assigned to the wide prototype. (if (null? ys) ys (rest ys)))) (set! split? #t)) (else (set-environment-split! e 'never))) (set! again? #t))) (if (null? es2) (if (null? es1) '() (list (minp (lambda (e1 e2) (> (splittable-call-site-count e1) (splittable-call-site-count e2))) es1))) es2))) (when again? (loop)))) split?)) ;;; Compute call graph (define (some-proper-callee p? marked? mark! e) ;; conventions: P? MARKED? MARK! ;; The PROPERLY-CALLS? relation is not necessarily reflexive. (define (loop? e) (and (not (marked? e)) (begin (mark! e #t) (or (p? e) (some loop? (environment-direct-tail-callees e)) (some loop? (environment-direct-non-tail-callees e)))))) (for-each (lambda (e) (mark! e #f)) *es*) (or (some loop? (environment-direct-tail-callees e)) (some loop? (environment-direct-non-tail-callees e)))) (define (some-callee p? marked? mark! e) ;; conventions: P? MARKED? MARK! (for-each (lambda (e) (mark! e #f)) *es*) (let loop? ((e e)) (and (not (marked? e)) (begin (mark! e #t) (or (p? e) (some loop? (environment-direct-tail-callees e)) (some loop? (environment-direct-non-tail-callees e))))))) (define (some-proper-caller p? marked? mark! e) ;; conventions: P? MARKED? MARK! ;; The PROPERLY-CALLS? relation is not necessarily reflexive. (define (loop? e) (and (not (marked? e)) (begin (mark! e #t) (or (p? e) (some loop? (environment-direct-tail-callers e)) (some loop? (environment-direct-non-tail-callers e)))))) (for-each (lambda (e) (mark! e #f)) *es*) (or (some loop? (environment-direct-tail-callers e)) (some loop? (environment-direct-non-tail-callers e)))) (define (some-caller p? marked? mark! e) ;; conventions: P? MARKED? MARK! (for-each (lambda (e) (mark! e #f)) *es*) (let loop? ((e e)) (and (not (marked? e)) (begin (mark! e #t) (or (p? e) (some loop? (environment-direct-tail-callers e)) (some loop? (environment-direct-non-tail-callers e))))))) (define (some-proper-tail-callee p? marked? mark! e) ;; conventions: P? MARKED? MARK! ;; The PROPERLY-TAIL-CALLS? relation is not necessarily reflexive. (define (loop? e) (and (not (marked? e)) (begin (mark! e #t) (or (p? e) (some loop? (environment-direct-tail-callees e)))))) (for-each (lambda (e) (mark! e #f)) *es*) (some loop? (environment-direct-tail-callees e))) (define (some-tail-callee p? marked? mark! e) ;; conventions: P? MARKED? MARK! (for-each (lambda (e) (mark! e #f)) *es*) (let loop? ((e e)) (and (not (marked? e)) (begin (mark! e #t) (or (p? e) (some loop? (environment-direct-tail-callees e))))))) (define (some-proper-tail-caller p? marked? mark! e) ;; conventions: P? MARKED? MARK! ;; The PROPERLY-TAIL-CALLS? relation is not necessarily reflexive. (define (loop? e) (and (not (marked? e)) (begin (mark! e #t) (or (p? e) (some loop? (environment-direct-tail-callers e)))))) (for-each (lambda (e) (mark! e #f)) *es*) (some loop? (environment-direct-tail-callers e))) (define (some-tail-caller p? marked? mark! e) ;; conventions: P? MARKED? MARK! (for-each (lambda (e) (mark! e #f)) *es*) (let loop? ((e e)) (and (not (marked? e)) (begin (mark! e #t) (or (p? e) (some loop? (environment-direct-tail-callers e))))))) (define (properly-calls? e1 e2) ;; The PROPERLY-CALLS? relation is not necessarily reflexive. (some-proper-caller (lambda (e) (eq? e e1)) environment-marked1? set-environment-marked1?! e2)) (define (calls? e1 e2) (or (eq? e1 e2) (properly-calls? e1 e2))) (define (properly-tail-calls? e1 e2) ;; The PROPERLY-TAIL-CALLS? relation is not necessarily reflexive. (some-proper-tail-caller (lambda (e) (eq? e e1)) environment-marked1? set-environment-marked1?! e2)) (define (tail-calls? e1 e2) (or (eq? e1 e2) (properly-tail-calls? e1 e2))) (define (properly-non-tail-calls? e1 e2) (unimplemented #f "unimplemented")) (define (directly-calls? e1 e2) (or (directly-tail-calls? e1 e2) (directly-non-tail-calls? e1 e2))) (define (directly-tail-calls? e1 e2) (memq e1 (environment-direct-tail-callers e2))) (define (directly-non-tail-calls? e1 e2) (memq e1 (environment-direct-non-tail-callers e2))) (define (proper-callees e) ;; The PROPERLY-CALLS? relation is not necessarily reflexive. ;; This is done just for side effect, to set the MARKED1? bits. (some-proper-callee (lambda (e) #f) environment-marked1? set-environment-marked1?! e) (remove-if-not environment-marked1? *es*)) (define (callees e) ;; This is done just for side effect, to set the MARKED1? bits. (some-callee (lambda (e) #f) environment-marked1? set-environment-marked1?! e) (remove-if-not environment-marked1? *es*)) (define (proper-callers e) ;; The PROPERLY-CALLS? relation is not necessarily reflexive. ;; This is done just for side effect, to set the MARKED1? bits. (some-proper-caller (lambda (e) #f) environment-marked1? set-environment-marked1?! e) (remove-if-not environment-marked1? *es*)) (define (callers e) ;; This is done just for side effect, to set the MARKED1? bits. (some-caller (lambda (e) #f) environment-marked1? set-environment-marked1?! e) (remove-if-not environment-marked1? *es*)) (define (proper-tail-callees e) ;; The PROPERLY-TAIL-CALLS? relation is not necessarily reflexive. ;; This is done just for side effect, to set the MARKED1? bits. (some-proper-tail-callee (lambda (e) #f) environment-marked1? set-environment-marked1?! e) (remove-if-not environment-marked1? *es*)) (define (tail-callees e) ;; This is done just for side effect, to set the MARKED1? bits. (some-tail-callee (lambda (e) #f) environment-marked1? set-environment-marked1?! e) (remove-if-not environment-marked1? *es*)) (define (proper-tail-callers e) ;; The PROPERLY-TAIL-CALLS? relation is not necessarily reflexive. ;; This is done just for side effect, to set the MARKED1? bits. (some-proper-tail-caller (lambda (e) #f) environment-marked1? set-environment-marked1?! e) (remove-if-not environment-marked1? *es*)) (define (tail-callers e) ;; This is done just for side effect, to set the MARKED1? bits. (some-tail-caller (lambda (e) #f) environment-marked1? set-environment-marked1?! e) (remove-if-not environment-marked1? *es*)) (define (proper-non-tail-callees e) (remove-if-not (lambda (e1) (and (environment-used? e1) (properly-non-tail-calls? e e1))) *es*)) (define (proper-non-tail-callers e) (remove-if-not (lambda (e1) (and (environment-used? e1) (properly-non-tail-calls? e1 e))) *es*)) (define (direct-callees e) (unionq (direct-tail-callees e) (direct-non-tail-callees e))) (define (direct-callers e) (unionq (direct-tail-callers e) (direct-non-tail-callers e))) (define (direct-tail-callees e) (environment-direct-tail-callees e)) (define (direct-tail-callers e) (environment-direct-tail-callers e)) (define (direct-non-tail-callees e) (environment-direct-non-tail-callees e)) (define (direct-non-tail-callers e) (environment-direct-non-tail-callers e)) (define (compute-call-graph! e) (define (assert-directly-tail-calls! e1 e2) (unless (directly-tail-calls? e1 e2) (set-environment-direct-tail-callers! e2 (cons e1 (environment-direct-tail-callers e2))) (set-environment-direct-tail-callees! e1 (cons e2 (environment-direct-tail-callees e1))))) (define (assert-directly-non-tail-calls! e1 e2) (unless (directly-non-tail-calls? e1 e2) (set-environment-direct-non-tail-callers! e2 (cons e1 (environment-direct-non-tail-callers e2))) (set-environment-direct-non-tail-callees! e1 (cons e2 (environment-direct-non-tail-callees e1))))) ;; Initialize. (for-each (lambda (e) (set-environment-direct-tail-callers! e (unspecified)) (set-environment-direct-non-tail-callers! e (unspecified)) (set-environment-direct-tail-callees! e (unspecified)) (set-environment-direct-non-tail-callees! e (unspecified))) *es*) (for-each (lambda (e) (when (environment-used? e) (set-environment-direct-tail-callers! e '()) (set-environment-direct-non-tail-callers! e '()) (set-environment-direct-tail-callees! e '()) (set-environment-direct-non-tail-callees! e '()))) *es*) ;; Compute direct callees/callers. (for-each (lambda (e1) ;; needs work: This notion of tail call, indicated by P?, doesn't take into ;; account in-lining and vacuous SET!s. (define (mark! x p?) ;; conventions: P? (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) #f) ((vector-constant) #f) ((lambda converted-lambda converted-continuation) #f) ((set!) (mark! (expression-source x) #f)) ((if) (mark! (expression-antecedent x) #f) (when (can-be-non? false-type? (expression-type-set (expression-antecedent x))) (mark! (expression-consequent x) p?)) (when (can-be? false-type? (expression-type-set (expression-antecedent x))) (mark! (expression-alternate x) p?))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) #f) ((call converted-call) (mark! (expression-callee x) #f) (for-each (lambda (x) (mark! x #f)) (expression-arguments x)) (when (executed? x) (when (converted? x) (when (can-be? (needs-implicit-continuation-call? (map expression-type-set (expression-arguments x)) *null* (create-call-site x)) (expression-type-set (expression-callee x))) (for-each-member (lambda (u) (unless (native-procedure-type? u) (fuck-up)) ;; Implicit continuation calls are always tail calls. (assert-directly-tail-calls! e1 (callee-environment u (recreate-call-site (create-call-site x) 'continuation-argument)))) (expression-type-set (continuation-argument x)))) ;; There currently is no need for an analogue of the following for ;; second-argument call sites because they currently cannot be ;; converted. (when (can-be? (first-argument-needs-implicit-continuation-call? (map expression-type-set (expression-arguments x)) *null* (create-call-site x)) (expression-type-set (expression-callee x))) (for-each-member (lambda (u) (unless (native-procedure-type? u) (fuck-up)) ;; Implicit continuation calls are always tail calls. (assert-directly-tail-calls! e1 (callee-environment u (recreate-call-site (recreate-call-site (create-call-site x) 'first-argument) 'continuation-argument)))) (expression-type-set (continuation-argument x))))) (for-each-member (lambda (u) (when ((truly-compatible-call? x) u) (cond (((primitive-procedure-type-named? 'apply) u) (for-each-member (lambda (u) (when (and (native-procedure-type? u) ((truly-compatible-call-via-apply? x) u)) (let ((e2 (callee-environment u (recreate-call-site (create-call-site x) 'first-argument)))) (if p? (assert-directly-tail-calls! e1 e2) (assert-directly-non-tail-calls! e1 e2))))) (expression-type-set (first-argument x)))) (((primitive-procedure-type-named? 'call-with-current-continuation) u) (for-each-member (lambda (u) (when (and (native-procedure-type? u) ((truly-compatible-call-via-call-with-current-continuation? x) u)) (let ((e2 (callee-environment u (recreate-call-site (create-call-site x) 'first-argument)))) (if p? (assert-directly-tail-calls! e1 e2) (assert-directly-non-tail-calls! e1 e2))))) (expression-type-set (first-argument x)))) (((primitive-procedure-type-named? 'fork) u) (for-each-member (lambda (u) (when (and (native-procedure-type? u) ((truly-compatible-call-via-fork1? x) u)) (assert-directly-non-tail-calls! e1 (callee-environment u (recreate-call-site (create-call-site x) 'first-argument))))) (expression-type-set (first-argument x))) (for-each-member (lambda (u) (when (and (native-procedure-type? u) ((truly-compatible-call-via-fork2? x) u)) (assert-directly-non-tail-calls! e1 (callee-environment u (recreate-call-site (create-call-site x) 'second-argument))))) (expression-type-set (second-argument x)))) (((primitive-procedure-type-named? 'mutex) u) (for-each-member (lambda (u) (when (and (native-procedure-type? u) ((truly-compatible-call-via-mutex? x) u)) (assert-directly-non-tail-calls! e1 (callee-environment u (recreate-call-site (create-call-site x) 'first-argument))))) (expression-type-set (first-argument x)))) ((native-procedure-type? u) (let ((e2 (callee-environment u (create-call-site x)))) (unless (noop? e2) (if p? (assert-directly-tail-calls! e1 e2) (assert-directly-non-tail-calls! e1 e2)))))))) (expression-type-set (expression-callee x))))) (else (fuck-up)))) (when (environment-used? e1) (mark! (expression-body (environment-expression e1)) #t))) *es*)) ;;; Determine which environments are called more than once (define (determine-which-environments-are-called-more-than-once!) (for-each (lambda (e) (when (environment-used? e) (clock-sample) ;To prevent overflow. (set-environment-called-more-than-once?! e (or (> (length (call-sites e)) 1) (some (lambda (e) (> (length (call-sites e)) 1)) (proper-callers e)))))) *es*)) ;;; Determine which variables are referenced (define (determine-which-variables-are-referenced!) (for-each (lambda (x) (set-expression-accessed?! x #f)) *xs*) (for-each (lambda (g) (set-variable-accessed?! g #f)) *gs*) (for-each (lambda (g) (set-variable-assigned?! g #f)) *gs*) (let loop () (let ((again? #f)) (define (assert-callee-accessed! w0 y ws w p?) (for-each-member (lambda (u) (when ((truly-compatible-procedure? ws w y) u) (cond ((primitive-procedure-type? u) (when (explicit-call-site? y) (when (can-be-non? null-type? w) (fuck-up)) ;; note: This assumes that all primitive procedures access all of ;; their arguments. This includes the continuation argument. ;; needs work: The continuation argument should not be accessed ;; by primitive procedures that don't return. (for-each (lambda (x) (assert-expression-accessed! x)) (expression-arguments (call-site-expression y))) ;; Calls to CALL-WITH-CURRENT-CONTINUATION access the results of ;; calling their procedure arguments only if they themselves are ;; accessed. (if (converted? y) (cond (((primitive-procedure-type-named? 'apply) u) (assert-callee-accessed! (second ws) (recreate-call-site y 'first-argument) (cons (first ws) (but-last (rest (rest ws)))) (last ws) p?)) (((primitive-procedure-type-named? 'call-with-current-continuation) u) (assert-callee-accessed! (second ws) (recreate-call-site y 'first-argument) (list (first ws) (first ws)) *null* p?)) (((primitive-procedure-type-named? 'fork) u) (assert-callee-accessed! (second ws) (recreate-call-site y 'first-argument) (list (first ws)) *null* p?) (assert-callee-accessed! (third ws) (recreate-call-site y 'second-argument) (list (first ws)) *null* p?)) (((primitive-procedure-type-named? 'mutex) u) (assert-callee-accessed! (second ws) (recreate-call-site y 'first-argument) (list (first ws)) *null* p?))) (cond (((primitive-procedure-type-named? 'apply) u) (assert-callee-accessed! (first ws) (recreate-call-site y 'first-argument) (but-last (rest ws)) (last ws) p?)) (((primitive-procedure-type-named? 'call-with-current-continuation) u) (assert-callee-accessed! (first ws) (recreate-call-site y 'first-argument) (list (create-anonymous-type-set ( (call-site-expression y)))) *null* p?)) (((primitive-procedure-type-named? 'fork) u) (assert-callee-accessed! (first ws) (recreate-call-site y 'first-argument) '() *null* p?) (assert-callee-accessed! (second ws) (recreate-call-site y 'second-argument) '() *null* p?)) (((primitive-procedure-type-named? 'mutex) u) (assert-callee-accessed! (first ws) (recreate-call-site y 'first-argument) '() *null* p?)))) (when (converted? y) ;; The result of calling the continuation argument is accessed is ;; the call site is accessed. (assert-callee-accessed! (first ws) (recreate-call-site y 'continuation-argument) (list (expression-type-set (call-site-expression y))) *null* p?)))) ((native-procedure-type? u) (let ((e (callee-environment u y))) (when (and (not (noop? e)) (or p? (and (converted? y) (not (converted? e)) (can-be? (lambda (u) (and ((truly-compatible-procedure? (list (return-type-set e)) *null* (recreate-call-site y 'continuation-argument)) u) (or ;; note: This assumes that all primitive procedures ;; access all of their arguments. (primitive-procedure-type? u) (and (native-procedure-type? u) (variable-accessed? (first (variables (callee-environment u (recreate-call-site y 'continuation-argument)))))) ;; note: This assumes that all foreign procedures ;; access all of their arguments. (foreign-procedure-type? u) (and (continuation-type? u) ;; Continuations access their arguments only if their ;; allocation expression is accessed. (expression-accessed? (continuation-type-allocating-expression u)))))) (expression-type-set (continuation-argument (call-site-expression y))))))) (assert-expression-accessed! (expression-body (environment-expression e)))) (when (explicit-call-site? y) (let loop ((gs (variables e)) (xs (if (and (converted? y) (not (converted? e))) (rest (expression-arguments (call-site-expression y))) (expression-arguments (call-site-expression y))))) (unless (null? gs) (cond ((and (rest? e) (null? (rest gs))) (when (variable-accessed? (first gs)) (for-each assert-expression-accessed! xs))) (else (when (variable-accessed? (first gs)) (assert-expression-accessed! (first xs))) (loop (rest gs) (rest xs)))))) (when (and (converted? y) (not (converted? e))) ;; The continuation argument is itself accessed. (assert-expression-accessed! (continuation-argument (call-site-expression y))) ;; The result of calling the continuation argument is accessed if ;; the call site is accessed. (assert-callee-accessed! (first ws) (recreate-call-site y 'continuation-argument) (list (expression-type-set (call-site-expression y))) *null* p?))))) ((foreign-procedure-type? u) (when (explicit-call-site? y) ;; note: This assumes that all foreign procedures access all of their ;; arguments. This includes the continuation argument. ;; needs work: The continuation argument should not be accessed ;; by foreign procedures that don't return. (for-each assert-expression-accessed! (expression-arguments (call-site-expression y))) (when (converted? y) ;; The result of calling the continuation argument is accessed if ;; the call site is accessed. (assert-callee-accessed! (first ws) (recreate-call-site y 'continuation-argument) (list (expression-type-set (call-site-expression y))) *null* p?)))) ((continuation-type? u) (when (and (explicit-call-site? y) ;; Continuations access their arguments only if their ;; allocation expression is accessed. (expression-accessed? (continuation-type-allocating-expression u))) ;; Since nonconverted continuations never return they don't access ;; their continuation argument. And since the continuation argument ;; is never called there is no call to ASSERT-CALLEE-ACCESSED!. (assert-expression-accessed! (first-argument (call-site-expression y))))) (else (fuck-up))))) w0)) (define (assert-expression-accessed! x) (unless (expression-accessed? x) (set-expression-accessed?! x #t) (set! again? #t))) ;; The top-level lambda expression itself is accessed. (assert-expression-accessed! *x*) ;; The result of calling the top-level lambda expression is accessed only ;; if the result can be a fixnum. (assert-callee-accessed! (expression-type-set *x*) *y* (list *w1*) *null* (can-be? fixnum-type? (expression-type-set (expression-body *x*)))) (for-each (lambda (x) (when (reached? x) (let ((w (expression-type-set x))) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) #f) ((vector-constant) #f) ((lambda converted-lambda converted-continuation) #f) ((set!) ;; The source of an assignment is accessed only if the destination ;; variable is accessed. (when (variable-accessed? (expression-variable x)) (assert-expression-accessed! (expression-source x)))) ((if) ;; The antecedent is always accessed. (assert-expression-accessed! (expression-antecedent x)) ;; The consequent and alternate are accessed only if the expression ;; itself is accessed. (when (expression-accessed? x) (when (can-be-non? false-type? (expression-type-set (expression-antecedent x))) (assert-expression-accessed! (expression-consequent x))) (when (can-be? false-type? (expression-type-set (expression-antecedent x))) (assert-expression-accessed! (expression-alternate x))))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) (when (and (expression-accessed? x) (not (variable-accessed? (expression-variable x)))) (set-variable-accessed?! (expression-variable x) #t) (set! again? #t))) ((call converted-call) ;; The callee itself is accessed. (assert-expression-accessed! (expression-callee x)) ;; But the result of calling the callee is accessed only if the ;; call site is accessed. (when (executed? x) (assert-callee-accessed! (expression-type-set (expression-callee x)) (create-call-site x) (map expression-type-set (expression-arguments x)) *null* (expression-accessed? x)))) (else (fuck-up)))))) *xs*) (when again? (loop)))) (for-each (lambda (x) (when (executed? x) (set-variable-assigned?! (expression-variable x) #t))) *assignments*)) ;;; Determine free variables (define (determine-free-variables!) (for-each (lambda (e) (set-environment-free-variables! e (unspecified))) *es*) (for-each (lambda (e) (when (environment-used? e) (set-environment-free-variables! e '()))) *es*) (for-each (lambda (x) (when (case (expression-kind x) ((access) (reached? x)) ((set!) (executed? x)) (else (fuck-up))) (let* ((g (expression-variable x)) (e1 (variable-environment g))) (when (accessed? g) (let loop ((e (expression-environment x))) (unless (eq? e e1) ;; This is just because of *CLOSURE-CONVERSION-METHOD*. (when (environment-used? e) (unless (memq g (environment-free-variables e)) (set-environment-free-variables! e (cons g (environment-free-variables e))))) (loop (parent e)))))))) *references*)) ;;; Annotate environments and continuation types (define (annotate-environments-and-continuation-types!) (for-each (lambda (e) (set-environment-expressions! e (unspecified)) (set-environment-continuation-calls! e (unspecified))) *es*) (for-each (lambda (e) (when (environment-used? e) (set-environment-expressions! e '()) (set-environment-continuation-calls! e '()))) *es*) (for-each (lambda (u) (set-continuation-type-call-sites! u (unspecified))) *continuation-types*) (for-each (lambda (u) (when (type-used? u) (set-continuation-type-call-sites! u '()))) *continuation-types*) (for-each (lambda (x) (when (and (reached? x) (not (empty? (expression-environment x))) (environment-used? (expression-environment x))) (set-environment-expressions! (expression-environment x) (cons x (environment-expressions (expression-environment x)))))) *xs*) (for-each (lambda (x) (when (and (reached? x) (not (empty? (expression-environment x))) (environment-used? (expression-environment x))) (when (can-be? (lambda (u) (and (continuation-type? u) ((truly-compatible-call? x) u))) (expression-type-set (expression-callee x))) (set-environment-continuation-calls! (expression-environment x) (cons x (environment-continuation-calls (expression-environment x)))) (for-each-member (lambda (u) (when (and (continuation-type? u) ((truly-compatible-call? x) u)) (set-continuation-type-call-sites! u (cons (create-call-site x) (continuation-type-call-sites u))))) (expression-type-set (expression-callee x)))) (when (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'apply) u) ((truly-compatible-call? x) u) (can-be? (lambda (u) (and (continuation-type? u) ((truly-compatible-call-via-apply? x) u))) (expression-type-set (first-argument x))))) (expression-type-set (expression-callee x))) (for-each-member (lambda (u) (when (and ((primitive-procedure-type-named? 'apply) u) ((truly-compatible-call? x) u)) (for-each-member (lambda (u) (when (and (continuation-type? u) ((truly-compatible-call-via-apply? x) u)) (set-continuation-type-call-sites! u (cons (recreate-call-site (create-call-site x) 'first-argument) (continuation-type-call-sites u))))) (expression-type-set (first-argument x))))) (expression-type-set (expression-callee x)))) (when (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) ((truly-compatible-call? x) u) (can-be? (lambda (u) (and (continuation-type? u) ((truly-compatible-call-via-call-with-current-continuation? x) u))) (expression-type-set (first-argument x))))) (expression-type-set (expression-callee x))) (for-each-member (lambda (u) (when (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) ((truly-compatible-call? x) u)) (for-each-member (lambda (u) (when (and (continuation-type? u) ((truly-compatible-call-via-call-with-current-continuation? x) u)) (set-continuation-type-call-sites! u (cons (recreate-call-site (create-call-site x) 'first-argument) (continuation-type-call-sites u))))) (expression-type-set (first-argument x))))) (expression-type-set (expression-callee x)))) (when (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'fork) u) ((truly-compatible-call? x) u) (can-be? (lambda (u) (and (continuation-type? u) ((truly-compatible-call-via-fork1? x) u))) (expression-type-set (first-argument x))))) (expression-type-set (expression-callee x))) (for-each-member (lambda (u) (when (and ((primitive-procedure-type-named? 'fork) u) ((truly-compatible-call? x) u)) (for-each-member (lambda (u) (when (and (continuation-type? u) ((truly-compatible-call-via-fork1? x) u)) (set-continuation-type-call-sites! u (cons (recreate-call-site (create-call-site x) 'first-argument) (continuation-type-call-sites u))))) (expression-type-set (first-argument x))))) (expression-type-set (expression-callee x)))) (when (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'fork) u) ((truly-compatible-call? x) u) (can-be? (lambda (u) (and (continuation-type? u) ((truly-compatible-call-via-fork2? x) u))) (expression-type-set (second-argument x))))) (expression-type-set (expression-callee x))) (for-each-member (lambda (u) (when (and ((primitive-procedure-type-named? 'fork) u) ((truly-compatible-call? x) u)) (for-each-member (lambda (u) (when (and (continuation-type? u) ((truly-compatible-call-via-fork2? x) u)) (set-continuation-type-call-sites! u (cons (recreate-call-site (create-call-site x) 'second-argument) (continuation-type-call-sites u))))) (expression-type-set (second-argument x))))) (expression-type-set (expression-callee x)))) (when (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'mutex) u) ((truly-compatible-call? x) u) (can-be? (lambda (u) (and (continuation-type? u) ((truly-compatible-call-via-mutex? x) u))) (expression-type-set (first-argument x))))) (expression-type-set (expression-callee x))) (for-each-member (lambda (u) (when (and ((primitive-procedure-type-named? 'mutex) u) ((truly-compatible-call? x) u)) (for-each-member (lambda (u) (when (and (continuation-type? u) ((truly-compatible-call-via-mutex? x) u)) (set-continuation-type-call-sites! u (cons (recreate-call-site (create-call-site x) 'first-argument) (continuation-type-call-sites u))))) (expression-type-set (first-argument x))))) (expression-type-set (expression-callee x)))))) *calls*)) ;;; Invert points-to relation (define (invert-points-to-relation!) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *internal-symbol-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *external-symbol-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *primitive-procedure-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *native-procedure-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *foreign-procedure-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *continuation-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *string-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *structure-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *headed-vector-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *nonheaded-vector-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *displaced-vector-types*) (for-each (lambda (w) (for-each-member (lambda (u) (when (or (internal-symbol-type? u) (external-symbol-type? u) (primitive-procedure-type? u) (native-procedure-type? u) (foreign-procedure-type? u) (continuation-type? u) (string-type? u) (structure-type? u) (headed-vector-type? u) (nonheaded-vector-type? u) (displaced-vector-type? u)) (set-types-and-type-sets-that-directly-point-to! u (cons w (types-and-type-sets-that-directly-point-to u))))) w)) *ws*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! (external-symbol-type-displaced-string-type u) (cons u (types-and-type-sets-that-directly-point-to (external-symbol-type-displaced-string-type u))))) *external-symbol-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! (displaced-vector-type-displaced-vector-type u) (cons u (types-and-type-sets-that-directly-point-to (displaced-vector-type-displaced-vector-type u))))) *displaced-vector-types*)) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/source/stalin3b.sc0000600017435200151030000032257510464434543014764 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; Stalin 0.11 - A global optimizing compiler for Scheme ;;; Copyright 1993, 1994, and 1995 University of Toronto. All rights reserved. ;;; Copyright 1996 Technion. All rights reserved. ;;; Copyright 1996 and 1997 University of Vermont. All rights reserved. ;;; Copyright 1997, 1998, 1999, 2000, and 2001 NEC Research Institute, Inc. All ;;; rights reserved. ;;; Copyright 2002, 2003, 2004, 2005, and 2006 Purdue University. All rights ;;; reserved. ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License ;;; as published by the Free Software Foundation; either version 2 ;;; of the License, or (at your option) any later version. ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;;; written by: ;;; Jeffrey Mark Siskind ;;; School of Electrical and Computer Engineering ;;; Purdue University ;;; Electrical Engineering Building, Room 330 ;;; 465 Northwestern Avenue ;;; West Lafayette IN 47907-2035 USA ;;; voice: 765/496-3197 ;;; fax: 765/494-6440 ;;; qobi@purdue.edu ;;; http://www.ece.purdue.edu/~qobi ;;; Begin delete for Trotsky (module stalin3b) (include "QobiScheme.sch") (include "stalin3b.sch") ;;; End delete for Trotsky ;;; Determine directly escaping types (define (mark-referencing-environments-proper-callees! u) (define (mark-proper-callees! e) ;; The PROPERLY-CALLS? relation is not necessarily reflexive. (define (loop e) (unless (environment-marked1? e) (set-environment-marked1?! e #t) (for-each loop (environment-direct-tail-callees e)) (for-each loop (environment-direct-non-tail-callees e)))) (for-each loop (environment-direct-tail-callees e)) (for-each loop (environment-direct-non-tail-callees e))) (when (or (internal-symbol-type? u) (external-symbol-type? u) (primitive-procedure-type? u) (native-procedure-type? u) (foreign-procedure-type? u) (continuation-type? u) (string-type? u) (structure-type? u) (headed-vector-type? u) (nonheaded-vector-type? u) (displaced-vector-type? u)) (let outer ((u/w u)) (cond ((type? u/w) (unless (type-marked? u/w) (set-type-marked?! u/w #t) (for-each outer (types-and-type-sets-that-directly-point-to u/w)))) ((type-set? u/w) (unless (type-set-marked? u/w) (set-type-set-marked?! u/w #t) (cond ((expression? (type-set-location u/w)) (when (reached? (type-set-location u/w)) (mark-proper-callees! (expression-environment (type-set-location u/w))))) ((variable? (type-set-location u/w)) (when (and (accessed? (type-set-location u/w)) (not (necessarily-fictitious? u/w))) (let inner ((e (variable-environment (type-set-location u/w)))) (when (memq (type-set-location u/w) (free-variables e)) (outer (environment-type e))) (for-each (lambda (x) (case (expression-kind x) ((lambda converted-lambda converted-continuation) (when (environment-used? (expression-lambda-environment x)) (inner (expression-lambda-environment x)))))) (environment-expressions e))))) ((type? (type-set-location u/w)) (outer (type-set-location u/w))) ((eq? (type-set-location u/w) #f) #f) (else (fuck-up))))) (else (fuck-up)))))) (define (for-each-marked-caller p e) (let loop ((e e)) (when (environment-marked1? e) (set-environment-marked1?! e #f) (p e) (for-each loop (environment-direct-tail-callers e)) (for-each loop (environment-direct-non-tail-callers e))))) (define (important? u) (and (or (native-procedure-type? u) (continuation-type? u) (string-type? u) (structure-type? u) (headed-vector-type? u) (nonheaded-vector-type? u)) (not (necessarily-fictitious? u)))) (define (important-marked-types) (remove-if necessarily-fictitious? (append (remove-if-not native-procedure-type-marked? *native-procedure-types*) (remove-if-not continuation-type-marked? *continuation-types*) (remove-if-not string-type-marked? *string-types*) (remove-if-not structure-type-marked? *structure-types*) (remove-if-not headed-vector-type-marked? *headed-vector-types*) (remove-if-not nonheaded-vector-type-marked? *nonheaded-vector-types*)))) (define (determine-escaping-types!) (for-each (lambda (e) (set-environment-escaping-types! e (unspecified))) *es*) (for-each (lambda (e) (when (environment-used? e) (set-environment-escaping-types! e '()) ;; Nothing escapes the top-level environment. (unless (empty? (parent e)) (clock-sample) ;To prevent overflow. (unmark-types!) ;; This is done just for side effect, to set the MARKED? bits. (for-each-pointed-to-type (lambda (u) #f) (return-type-set e)) (set-environment-escaping-types! e (important-marked-types))))) *es*) (for-each (lambda (g) (when (and (accessed? g) (assigned? g) ;; This tries to state that G must be hidden thus the assignment ;; X is trivial and should be ignored. ;; needs work: But G will not be hidden if it is global, its ;; hidden native-procedure type is fictitious, or ;; some access causes its environment to be ;; nonfictitious. (not (and (monomorphic? (variable-type-set g)) (native-procedure-type? (the-member (variable-type-set g))) (called? (the-member (variable-type-set g))) (not (noop? (the-member (variable-type-set g)))) (every (lambda (e) ;; This is a weaker condition than used by ;; DETERMINE-WHETHER-HIDDEN? so G might actually ;; turn out to be hidden. (let loop ((e1 (variable-environment g))) (and (not (empty? e1)) (or (eq? e1 (parent e)) (loop (parent e1)))))) (narrow-clones (the-member (variable-type-set g)))))) (begin (unmark-types!) (some (lambda (x) (some-pointed-to-type important? (expression-type-set (expression-source x)))) (assignments g)))) (clock-sample) ;To prevent overflow. (unmark-types-and-type-sets!) (for-each (lambda (e) (set-environment-marked1?! e #f)) *es*) (for-each (lambda (x1) (let loop ((e (expression-environment x1))) (unless (eq? e (variable-environment g)) (mark-referencing-environments-proper-callees! (environment-type e)) (loop (parent e))))) (accesses g)) (for-each (lambda (x) (when (executed? x) (clock-sample) ;To prevent overflow. ;; If E points to U1 then it points to U since U1 points to U. But not ;; vice versa. It could be that a caller of E points to U but not U1 ;; because that caller is also a callee that is passed U as an argument ;; but not passed U1. Such cases do not count as escaping. Even so, this ;; is still suboptimal because a caller of E could point to U1 only by ;; virtue of that caller also being a callee that is called with U1 as ;; an argument. (unmark-types!) ;; This is done just for side effect, to set the MARKED? bits. (for-each-pointed-to-type (lambda (u) #f) (expression-type-set (expression-source x))) (let ((us (important-marked-types))) (unless (null? us) (for-each-marked-caller (lambda (e) (set-environment-escaping-types! e (unionq (environment-escaping-types e) us))) (expression-environment x)))))) (assignments g)))) *gs*) (for-each (lambda (x) (when (and (executed? x) (can-be? (lambda (u1) (and (continuation-type? u1) ((truly-compatible-call? x) u1))) (expression-type-set (expression-callee x)))) (clock-sample) ;To prevent overflow. (unmark-types!) ;; This is done just for side effect, to set the MARKED? bits. (for-each-pointed-to-type (lambda (u) #f) (expression-type-set (first-argument x))) (let ((us (important-marked-types))) (unless (null? us) (for-each (lambda (e) (when (can-be? (lambda (u1) (and (continuation-type? u1) ((truly-compatible-call? x) u1) ;; This checks that the call to the continuation can ;; actually escape E by checking that the creator of the ;; continuation can be a caller of E. This is suboptimal ;; because the creator of the continuation could also be a ;; callee of E. If the creator is not a callee then ;; calling the continuation must escape E. But if the ;; creator is also a callee then calling the continuation ;; might or might not escape E. (can-be? (lambda (u2) (and (native-procedure-type? u2) (some (lambda (e1) (properly-calls? e1 e)) (narrow-clones u2)))) (expression-type-set (first-argument (continuation-type-allocating-expression u1)))))) (expression-type-set (expression-callee x))) (set-environment-escaping-types! e (unionq (environment-escaping-types e) us)))) (callers (expression-environment x))))))) ;; needs work: Doesn't handle implicit continuation calls. *calls*) (for-each (lambda (u2) (unmark-types!) (when (some (lambda (x) (and (executed? x) (can-be? (lambda (u1) (and ((primitive-procedure-type-named? 'structure-set!) u1) ((structure-type-named? (first (primitive-procedure-type-arguments u1))) u2) ((truly-compatible-call? x) u1))) (expression-type-set (expression-callee x))) (member? u2 (expression-type-set (first-argument x))) (some-pointed-to-type important? (expression-type-set (second-argument x))))) ;; note: Because of eta expansion there can be no implicit calls to ;; STRUCTURE-SET!. *calls*) (clock-sample) ;To prevent overflow. (unmark-types-and-type-sets!) (for-each (lambda (e) (set-environment-marked1?! e #f)) *es*) (mark-referencing-environments-proper-callees! u2) (for-each (lambda (x) (when (and (executed? x) (can-be? (lambda (u1) (and ((primitive-procedure-type-named? 'structure-set!) u1) ((structure-type-named? (first (primitive-procedure-type-arguments u1))) u2) ((truly-compatible-call? x) u1))) (expression-type-set (expression-callee x))) (member? u2 (expression-type-set (first-argument x)))) (clock-sample) ;To prevent overflow. ;; If E points to U2 then it points to U since U2 points to U. But not ;; vice versa. It could be that a caller of E points to U but not U2 ;; because that caller is also a callee that is passed U as an argument ;; but not passed U2. Such cases do not count as escaping. Even so, this ;; is still suboptimal because a caller of E could point to U2 only by ;; virtue of that caller also being a callee that is called with U2 as ;; an argument. (unmark-types!) ;; This is done just for side effect, to set the MARKED? bits. (for-each-pointed-to-type (lambda (u) #f) (expression-type-set (second-argument x))) (let ((us (important-marked-types))) (unless (null? us) (for-each-marked-caller (lambda (e) (set-environment-escaping-types! e (unionq (environment-escaping-types e) us))) (expression-environment x)))))) ;; note: Because of eta expansion there can be no implicit calls to ;; STRUCTURE-SET!. *calls*))) *structure-types*) (for-each (lambda (u2) (unmark-types!) (when (some (lambda (x) (and (executed? x) (can-be? (lambda (u1) (and ((primitive-procedure-type-named? 'vector-set!) u1) ((truly-compatible-call? x) u1))) (expression-type-set (expression-callee x))) (member? u2 (expression-type-set (first-argument x))) (some-pointed-to-type important? (expression-type-set (third-argument x))))) ;; note: Because of eta expansion there can be no implicit calls to ;; VECTOR-SET!. *calls*) (clock-sample) ;To prevent overflow. (unmark-types-and-type-sets!) (for-each (lambda (e) (set-environment-marked1?! e #f)) *es*) (mark-referencing-environments-proper-callees! u2) (for-each (lambda (x) (when (and (executed? x) (can-be? (lambda (u1) (and ((primitive-procedure-type-named? 'vector-set!) u1) ((truly-compatible-call? x) u1))) (expression-type-set (expression-callee x))) (member? u2 (expression-type-set (first-argument x)))) (clock-sample) ;To prevent overflow. ;; If E points to U2 then it points to U since U2 points to U. But not ;; vice versa. It could be that a caller of E points to U but not U2 ;; because that caller is also a callee that is passed U as an argument ;; but not passed U2. Such cases do not count as escaping. Even so, this ;; is still suboptimal because a caller of E could point to U2 only by ;; virtue of that caller also being a callee that is called with U2 as ;; an argument. (unmark-types!) ;; This is done just for side effect, to set the MARKED? bits. (for-each-pointed-to-type (lambda (u) #f) (expression-type-set (third-argument x))) (let ((us (important-marked-types))) (unless (null? us) (for-each-marked-caller (lambda (e) (set-environment-escaping-types! e (unionq (environment-escaping-types e) us))) (expression-environment x)))))) ;; note: Because of eta expansion there can be no implicit calls to ;; VECTOR-SET!. *calls*))) (append *headed-vector-types* *nonheaded-vector-types* *displaced-vector-types*))) ;;; Determine which environments have unique call sites (define (determine-which-environments-have-unique-call-sites!) (for-each (lambda (e) (when (environment-used? e) (set-environment-non-self-tail-call-sites! e (call-sites e)))) *es*) (let loop () (set! *again?* #f) (infer-all-unique-call-site!) (when *again?* (loop)))) ;;; Determine which environments are recursive (define (determine-which-environments-are-recursive!) (for-each (lambda (e) (when (environment-used? e) (set-environment-recursive?! e (properly-calls? e e)))) *es*)) ;;; Determine which environments are reentrant (define (determine-which-environments-are-reentrant!) ;; note: In principle, this can be (NON-TAIL-CALLS? E E) but in practise it ;; can't because tail merging is done only on self tail calls. (for-each (lambda (e) (when (environment-used? e) (clock-sample) ;To prevent overflow. ;; This is done just for side effect, to set the MARKED2? bits. (some-proper-callee (lambda (e) #f) environment-marked2? set-environment-marked2?! e) (set-environment-reentrant?! e (some (lambda (e1) (and (environment-used? e1) (not (unique-call-site? e1)) (some (lambda (y) (and (not (top-level-call-site? y)) (environment-marked2? (expression-environment (call-site-expression y))) (not (can-be-self-tail-call-to? y e1)))) (call-sites e1)))) (proper-callers e))))) *es*)) ;;; Assert uniqueness (define (assert-uniqueness!) ;; This is a special case for when the type set members are sorted. (define (set-equalq? us1 us2) (or (and (null? us1) (null? us2)) (and (not (null? us1)) (not (null? us2)) (eq? (first us1) (first us2)) (set-equalq? (rest us1) (rest us2))))) ;; This is a special case for when the type set members are sorted. (define (unionq us1 us2) (cond ((null? us1) us2) ((null? us2) us1) ((eq? (first us1) (first us2)) (cons (first us1) (unionq (rest us1) (rest us2)))) ((< (type-index (first us1)) (type-index (first us2))) (cons (first us1) (unionq (rest us1) us2))) (else (cons (first us2) (unionq us1 (rest us2)))))) ;; We no longer need to sort the members of W because this is done by the ;; red-black trees. (let loop () (let ((again? #f)) (for-each (lambda (v) ;; conventions: V (let ((uss (map list (remove-if-not (structure-type-named? v) *structure-types*)))) (for-each (lambda (w) (let ((us (members-that (structure-type-named? v) w))) (unless (or (null? us) (null? (rest us))) (do ((us us (rest us))) ((null? (rest us))) (let ((us1 (find-if (lambda (us0) (memq (first us) us0)) uss)) (us2 (find-if (lambda (us0) (memq (second us) us0)) uss))) (unless (eq? us1 us2) (set! uss (cons (append us1 us2) (removeq us1 (removeq us2 uss)))))))))) *ws*) (for-each (lambda (us) (let ((uss (map-n (lambda (i) (reduce unionq (map (lambda (u) (members (list-ref (structure-type-slots u) i))) us) '())) (length (structure-type-slots (first us)))))) (for-each (lambda (u) (for-each (lambda (w us) (unless (set-equalq? (members w) us) (set-members! w us) (set! again? #t))) (structure-type-slots u) uss)) us))) uss))) (remove-duplicates (map structure-type-name *structure-types*))) (let ((uss (map list *headed-vector-types*))) (for-each (lambda (w) (let ((us (members-that headed-vector-type? w))) (unless (or (null? us) (null? (rest us))) (do ((us us (rest us))) ((null? (rest us))) (let ((us1 (find-if (lambda (us0) (memq (first us) us0)) uss)) (us2 (find-if (lambda (us0) (memq (second us) us0)) uss))) (unless (eq? us1 us2) (set! uss (cons (append us1 us2) (removeq us1 (removeq us2 uss)))))))))) *ws*) (for-each (lambda (us) (let ((us1 (reduce unionq (map (lambda (u) (members (headed-vector-type-element u))) us) '()))) (for-each (lambda (u) (unless (set-equalq? (members (headed-vector-type-element u)) us1) (set-members! (headed-vector-type-element u) us1) (set! again? #t))) us))) uss)) (let ((uss (map list *nonheaded-vector-types*))) (for-each (lambda (w) (let ((us (members-that nonheaded-vector-type? w))) (unless (or (null? us) (null? (rest us))) (do ((us us (rest us))) ((null? (rest us))) (let ((us1 (find-if (lambda (us0) (memq (first us) us0)) uss)) (us2 (find-if (lambda (us0) (memq (second us) us0)) uss))) (unless (eq? us1 us2) (set! uss (cons (append us1 us2) (removeq us1 (removeq us2 uss)))))))))) *ws*) (for-each (lambda (us) (let ((us1 (reduce unionq (map (lambda (u) (members (nonheaded-vector-type-element u))) us) '()))) (for-each (lambda (u) (unless (set-equalq? (members (nonheaded-vector-type-element u)) us1) (set-members! (nonheaded-vector-type-element u) us1) (set! again? #t))) us))) uss)) (when again? (loop))))) ;;; Perform lightweight closure conversion (define (perform-lightweight-closure-conversion!) (for-each (lambda (u) (set-native-procedure-type-fictitious?! u #t)) *native-procedure-types*) (for-each (lambda (u) (set-continuation-type-fictitious?! u #t)) *continuation-types*) (for-each (lambda (u) (set-structure-type-fictitious?! u #t)) *structure-types*) (for-each (lambda (w) (set-type-set-fictitious?! w #t)) *ws*) (for-each (lambda (g) (set-variable-local?! g #f) (set-variable-global?! g #f) (set-variable-hidden?! g #f) (set-variable-slotted?! g #f)) *gs*) (for-each (lambda (e) (set-environment-ancestors! e (unspecified)) (set-environment-has-closure?! e #f)) *es*) (for-each (lambda (e) (when (environment-used? e) (set-environment-ancestors! e '()))) *es*) (for-each (lambda (e2) (when (environment-used? e2) (let loop ((e1 (parent e2))) (if (or (empty? e1) (some accessed? (variables e1))) (set-environment-quick-parent! e2 e1) (loop (parent e1)))))) *es*) (let loop () (clock-sample) ;To prevent overflow. (set! *again?* #f) ;; The order in which the following inferences are made should only ;; affect compilation time and not soundness or the code produced. (infer-all-whether-type-fictitious?! #f) (infer-all-whether-type-set-fictitious?! #f) (infer-all-whether-local?! #f) (infer-all-whether-global?! #f) (infer-all-whether-hidden?! #f) (infer-all-whether-slotted?! #f) (infer-all-whether-ancestor?! #f) (infer-all-whether-has-closure?! #f) (when *again?* (loop))) (clock-sample) ;To prevent overflow. (set! *again?* #f) ;; The order in which the following inferences are made should only ;; affect compilation time and not soundness or the code produced. (infer-all-whether-type-fictitious?! #t) (infer-all-whether-type-set-fictitious?! #t) (infer-all-whether-local?! #t) (infer-all-whether-global?! #t) (infer-all-whether-hidden?! #t) (infer-all-whether-slotted?! #t) (infer-all-whether-ancestor?! #t) (infer-all-whether-has-closure?! #t) (when *again?* (fuck-up))) ;;; Determine parents (define (determine-parents!) (for-each (lambda (e) (set-environment-parent-parameter! e (unspecified)) (set-environment-parent-slot! e (unspecified)) (set-environment-descendents! e '()) (set-environment-properly-in-lined-environments! e '())) *es*) ;; needs work: This can be made faster. (for-each (lambda (e1) (when (environment-used? e1) (clock-sample) ;To prevent overflow. (for-each (lambda (e2) (when (environment-used? e2) (set-environment-descendents! e2 (cons e1 (descendents e2))))) (ancestors e1)))) *es*) (when (eq? *closure-representation* 'linked) ;; It used to be possible for two different narrow clones to have different ;; parent parameters. This was discovered with the matrix.sc example of ;; jbs@quiotix.com. This created problems when applying PARENT-PARAMETER to ;; a type instead of an environment and also caused generation of incorrect ;; code where one backchain was accessed as the backchain of a narrow clone. ;; Now we take the most-nested parent parameter of all the narrow clones. ;; This might cause some procedures to have a parent parameter that is used ;; only to indirect through a parent slot and not to access other slots (i.e. ;; reducing the amount of parent-parameter compression). So it goes. (for-each (lambda (e) (when (environment-used? e) (clock-sample) ;To prevent overflow. (set-environment-parent-parameter! (narrow-prototype e) (let ((es (reduce unionq (map ancestors (remove-if-not environment-used? (narrow-clones e))) '()))) (if (null? es) #f (minp nested-in? es)))))) *es*) (let loop ((x *x*)) (define (update x) (reduce unionq (map (lambda (e) (cond ((or (noop? e) (not (environment-used? e))) (set-environment-parent-slot! e #f) '()) (else (let ((es (removeq e (loop (expression-body (environment-expression e)))))) (set-environment-parent-slot! e (if (and (has-closure? e) (not (null? es))) (minp nested-in? es) #f)) (unionq es (if (has-parent-parameter? e) (removeq (parent-parameter e) (ancestors e)) '())))))) (narrow-clones (expression-lambda-environment x))) '())) (case (expression-kind x) ((null-constant) '()) ((true-constant) '()) ((false-constant) '()) ((char-constant) '()) ((fixnum-constant) '()) ((flonum-constant) '()) ((rectangular-constant) '()) ((string-constant) '()) ((symbol-constant) '()) ((pair-constant) '()) ((vector-constant) '()) ((lambda) (update x)) ((converted-lambda) (update x)) ((converted-continuation) (update x)) ((set!) (loop (expression-source x))) ((if) (unionq (loop (expression-antecedent x)) (unionq (loop (expression-consequent x)) (loop (expression-alternate x))))) ((primitive-procedure) '()) ((foreign-procedure) '()) ((access) '()) ((call) (unionq (loop (expression-callee x)) (reduce unionq (map loop (expression-arguments x)) '()))) ((converted-call) (unionq (loop (expression-callee x)) (reduce unionq (map loop (expression-arguments x)) '()))) (else (fuck-up)))) (for-each (lambda (e) (when (environment-used? e) (clock-sample) ;To prevent overflow. (unless (and (pairwise? (lambda (e1 e2) (or (not (environment-used? e1)) (not (environment-used? e2)) (and (eq? (has-parent-parameter? e1) (has-parent-parameter? e2)) (eq? (parent-parameter e1) (parent-parameter e2))))) (narrow-clones e)) (eq? (has-parent-parameter? e) (environment? (parent-parameter e))) (or (not (has-parent-slot? e)) (and (has-parent-parameter? e) (has-closure? e)))) (fuck-up)))) *es*)) (for-each (lambda (e) (when (environment-used? e) (clock-sample) ;To prevent overflow. (let loop ((e1 e)) (unless (eq? e e1) (set-environment-properly-in-lined-environments! e1 (cons e (environment-properly-in-lined-environments e1)))) (when (unique-call-site? e1) (loop (expression-environment (call-site-expression (unique-call-site e1)))))))) *es*)) ;;; Determine which expressions need conversion to CPS (define (escapes-expression? u x) ;; debugging: This is a temporary kludge to handle the NEPLS pyth benchmark. ;; It is unsound because it doesn't check for escapes by way of ;; continuation calls, STRUCTURE-SET!, and VECTOR-SET!. And you ;; really want to check that the continuation is allocated by some ;; expression called by X. This is only a kludge to make the NEPLS ;; pyth benchmark work. (or #t ;; This handles escaping by returning. (points-to? (expression-type-set x) u) ;; This handles escaping by SET!. (some (lambda (g) (and (nested-in? (expression-environment x) (variable-environment g)) (points-to? (variable-type-set g) u))) *gs*))) (define (determine-which-expressions-need-conversion-to-CPS!) (define (some-subexpression-calls? x x1) (let loop ((x x)) (and (reached? x) (case (expression-kind x) ((set!) (loop (expression-source x))) ((if) (or (loop (expression-antecedent x)) (loop (expression-consequent x)) (loop (expression-alternate x)))) ;; needs work: Doesn't handle implicit call sites. ((call converted-call) (or (eq? x x1) (can-be? (lambda (u) (and ((truly-compatible-call? x) u) (or (and (native-procedure-type? u) (calls? (callee-environment u (create-call-site x)) (expression-environment x1))) (and ((primitive-procedure-type-named? 'apply) u) (can-be? (lambda (u) (and (native-procedure-type? u) ((truly-compatible-call-via-apply? x) u) (calls? (callee-environment u (recreate-call-site (create-call-site x) 'first-argument)) (expression-environment x1)))) (expression-type-set (first-argument x)))) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) (can-be? (lambda (u) (and (native-procedure-type? u) ((truly-compatible-call-via-call-with-current-continuation? x) u) (calls? (callee-environment u (recreate-call-site (create-call-site x) 'first-argument)) (expression-environment x1)))) (expression-type-set (first-argument x)))) (and ((primitive-procedure-type-named? 'fork) u) (or (can-be? (lambda (u) (and (native-procedure-type? u) ((truly-compatible-call-via-fork1? x) u) (calls? (callee-environment u (recreate-call-site (create-call-site x) 'first-argument)) (expression-environment x1)))) (expression-type-set (first-argument x))) (can-be? (lambda (u) (and (native-procedure-type? u) ((truly-compatible-call-via-fork2? x) u) (calls? (callee-environment u (recreate-call-site (create-call-site x) 'second-argument)) (expression-environment x1)))) (expression-type-set (second-argument x))))) (and ((primitive-procedure-type-named? 'mutex) u) (can-be? (lambda (u) (and (native-procedure-type? u) ((truly-compatible-call-via-mutex? x) u) (calls? (callee-environment u (recreate-call-site (create-call-site x) 'first-argument)) (expression-environment x1)))) (expression-type-set (first-argument x))))))) (expression-type-set (expression-callee x))) (loop (expression-callee x)) (some loop (expression-arguments x)))) (else #f))))) ;; XS are all the nonconverted calls to CALL-WITH-CURRENT-CONTINUATION where ;; the continuation created escapes the call site. For each X in XS, the ;; corresponding entry in XSS is the set of all calls to the continuation ;; created by X. (let* ((xs (remove-if-not (lambda (x) (and (executed? x) (not (converted? x)) (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) ((truly-compatible-call? x) u) (can-be? (lambda (u) (and (native-procedure-type? u) ((truly-compatible-procedure? (list (create-anonymous-type-set ( x))) *null* (recreate-call-site (create-call-site x) 'first-argument)) u) (escapes? ( x) (callee-environment u (recreate-call-site (create-call-site x) 'first-argument))))) (expression-type-set (first-argument x))))) (expression-type-set (expression-callee x))))) ;; note: Because of eta expansion there can be no implicit calls ;; to CALL-WITH-CURRENT-CONTINUATION. *calls*)) (xss (map (lambda (x) (remove-if-not (lambda (x1) (and (executed? x1) (can-be? (lambda (u) (and (continuation-type? u) ((truly-compatible-call? x1) u) (eq? (continuation-type-allocating-expression u) x))) (expression-type-set (expression-callee x1))))) ;; needs work: Doesn't handle implicit continuation calls. *calls*)) xs))) (define (needs-conversion-to-CPS? x) (and (some (lambda (x1 xs) (and (some-subexpression-calls? x x1) (some (lambda (x2) (control-flows? (after x) (before x2))) xs))) xs xss) (some (lambda (u) (escapes-expression? u x)) *continuation-types*))) (for-each (lambda (x) (set-expression-needs-conversion-to-CPS?! x (needs-conversion-to-CPS? x)) (set-expression-needs-stop-conversion-to-CPS?! x (and (not (needs-conversion-to-CPS? x)) (case (expression-kind x) ((set!) (needs-conversion-to-CPS? (expression-source x))) ((if) (or (needs-conversion-to-CPS? (expression-antecedent x)) (needs-conversion-to-CPS? (expression-consequent x)) (needs-conversion-to-CPS? (expression-alternate x)))) ((call converted-call) (or (needs-conversion-to-CPS? (expression-callee x)) (some needs-conversion-to-CPS? (expression-arguments x)) (can-be? (lambda (u) (and (native-procedure-type? u) ((truly-compatible-call? x) u) (not (noop? (callee-environment u (create-call-site x)))) (needs-conversion-to-CPS? (expression-body (environment-expression (callee-environment u (create-call-site x))))))) (expression-type-set (expression-callee x))))) (else #f))))) *xs*))) ;;; Convert to CPS ;;; Needs work: To convert a call to APPLY or CALL-WITH-CURRENT-CONTINUATION ;;; to CPS when its procedure argument is a converted native ;;; procedure. (define (maybe-create-access-expression g/x) ;; needs work: Should give S/X argument so that it has a file position. (if (variable? g/x) (create-access-expression #f g/x) g/x)) (define (call-continuation g/x x) ;; needs work: Should give S/X argument so that it has a file position. (create-call-expression #f (maybe-create-access-expression g/x) (list x))) (define (string->variable string) (create-variable (create-anonymous-s-expression (gensym string)))) (define (convert-to-CPS g/x x) (cond ((or (expression-needs-conversion-to-CPS? x) (expression-needs-stop-conversion-to-CPS? x)) (case (expression-kind x) ((null-constant) (fuck-up)) ((true-constant) (fuck-up)) ((false-constant) (fuck-up)) ((char-constant) (fuck-up)) ((fixnum-constant) (fuck-up)) ((flonum-constant) (fuck-up)) ((rectangular-constant) (fuck-up)) ((string-constant) (fuck-up)) ((symbol-constant) (fuck-up)) ((pair-constant) (fuck-up)) ((vector-constant) (fuck-up)) ((lambda) (fuck-up)) ((converted-lambda converted-continuation) (fuck-up)) ((set!) ;; [(SET! g x)]_g/x --> [x]_(LAMBDA (g1) (g/x (SET! g g1))) (unless (or (expression-needs-conversion-to-CPS? (expression-source x)) (expression-needs-stop-conversion-to-CPS? (expression-source x))) (fuck-up)) (let ((g1 (string->variable "x"))) (convert-to-CPS (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g1) (call-continuation g/x (create-set!-expression x (expression-variable x) (create-access-expression x g1)))) (expression-source x)))) ((if) (cond ((or (expression-needs-conversion-to-CPS? (expression-antecedent x)) (expression-needs-stop-conversion-to-CPS? (expression-antecedent x))) ;; [(IF x2 x3 x4)]_c --> [x2]_(LAMBDA (g1) (IF g1 [x3]_c [x4]_c)) ;; [(IF x2 x3 x4)]_c --> ;; ((LAMBDA (g2) [x2]_(LAMBDA (g1) (IF g1 [x3]_g2 [x4]_g2))) c) (let ((g1 (string->variable "x"))) (if (expression? g/x) (let ((g2 (string->variable "x"))) (create-call-expression x (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g2) (convert-to-CPS (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g1) (create-if-expression x (create-access-expression x g1) (convert-to-CPS g2 (expression-consequent x)) (convert-to-CPS g2 (expression-alternate x)))) (expression-antecedent x))) (list g/x))) (convert-to-CPS (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g1) (create-if-expression x (create-access-expression x g1) (convert-to-CPS g/x (expression-consequent x)) (convert-to-CPS g/x (expression-alternate x)))) (expression-antecedent x))))) (else ;; [(IF x1 x2 x3)]_c --> (IF x1 [x2]_c [x3]_c) ;; [(IF x1 x2 x3)]_c --> ((LAMBDA (g2) (IF x1 [x2]_g2 [x3]_g2)) c) (unless (or (expression-needs-conversion-to-CPS? (expression-consequent x)) (expression-needs-stop-conversion-to-CPS? (expression-consequent x)) (expression-needs-conversion-to-CPS? (expression-alternate x)) (expression-needs-stop-conversion-to-CPS? (expression-alternate x))) (fuck-up)) (if (expression? g/x) (let ((g2 (string->variable "x"))) (create-call-expression x (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g2) (create-if-expression x (nonconvert-to-CPS (expression-antecedent x)) (convert-to-CPS g2 (expression-consequent x)) (convert-to-CPS g2 (expression-alternate x)))) (list g/x))) (create-if-expression x (nonconvert-to-CPS (expression-antecedent x)) (convert-to-CPS g/x (expression-consequent x)) (convert-to-CPS g/x (expression-alternate x))))))) ((primitive-procedure) (fuck-up)) ((foreign-procedure) (fuck-up)) ((access) (fuck-up)) ((call) ;; [(x3 ...)]_g/x --> [x3]_(LAMBDA (g1) ... (g1 g/x ...) ...) (let loop ((xs1 (cons (expression-callee x) (expression-arguments x))) (gs '())) (if (null? xs1) (create-converted-call-expression x (create-access-expression x (last gs)) (cons (maybe-create-access-expression g/x) (map (lambda (g) (create-access-expression x g)) (rest (reverse gs))))) (let* ((g1 (string->variable "x")) (x1 (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g1) (loop (rest xs1) (cons g1 gs))))) (if (or (expression-needs-conversion-to-CPS? (first xs1)) (expression-needs-stop-conversion-to-CPS? (first xs1))) (convert-to-CPS x1 (first xs1)) (create-call-expression x x1 (list (nonconvert-to-CPS (first xs1))))))))) ((converted-call) (fuck-up)) (else (fuck-up)))) (else (call-continuation g/x (nonconvert-to-CPS x))))) (define (nonconvert-to-CPS x) (when (expression-needs-conversion-to-CPS? x) (fuck-up)) (if (expression-needs-stop-conversion-to-CPS? x) ;; x --> [x]_(LAMBDA (g) g) (convert-to-CPS (let ((g (string->variable "x"))) (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g) (create-access-expression x g))) x) (case (expression-kind x) ((null-constant) x) ((true-constant) x) ((false-constant) x) ((char-constant) x) ((fixnum-constant) x) ((flonum-constant) x) ((rectangular-constant) x) ((string-constant) x) ((symbol-constant) x) ((pair-constant) x) ((vector-constant) x) ((lambda) ;; (LAMBDA (g ...) x) --> (LAMBDA (c g ...) [x]_c) (cond ((noop? x) x) ((expression-needs-conversion-to-CPS? (expression-body x)) (let ((g (string->variable "c"))) (create-converted-lambda-expression x (expression-lambda-environment x) (cons g (expression-parameters x)) (convert-to-CPS g (expression-body x))))) (else (create-lambda-expression x (expression-lambda-environment x) (expression-parameters x) (nonconvert-to-CPS (expression-body x)))))) ((converted-lambda converted-continuation) (fuck-up)) ((set!) (create-set!-expression x (expression-variable x) (nonconvert-to-CPS (expression-source x)))) ((if) (create-if-expression x (nonconvert-to-CPS (expression-antecedent x)) (nonconvert-to-CPS (expression-consequent x)) (nonconvert-to-CPS (expression-alternate x)))) ((primitive-procedure) x) ((foreign-procedure) x) ((access) x) ((call) (create-call-expression x (nonconvert-to-CPS (expression-callee x)) (map nonconvert-to-CPS (expression-arguments x)))) ((converted-call) (fuck-up)) (else (fuck-up))))) (define (fully-convert-to-CPS x) (define (fully-convert-to-CPS g/x x) (case (expression-kind x) ((null-constant) (call-continuation g/x x)) ((true-constant) (call-continuation g/x x)) ((false-constant) (call-continuation g/x x)) ((char-constant) (call-continuation g/x x)) ((fixnum-constant) (call-continuation g/x x)) ((flonum-constant) (call-continuation g/x x)) ((rectangular-constant) (call-continuation g/x x)) ((string-constant) (call-continuation g/x x)) ((symbol-constant) (call-continuation g/x x)) ((pair-constant) (call-continuation g/x x)) ((vector-constant) (call-continuation g/x x)) ((lambda) (call-continuation g/x (if (noop? x) x (let ((g (string->variable "c"))) (create-converted-lambda-expression x (expression-lambda-environment x) (cons g (expression-parameters x)) (fully-convert-to-CPS g (expression-body x))))))) ((converted-lambda converted-continuation) (fuck-up)) ((set!) ;; [(SET! g x)]_g/x --> [x]_(LAMBDA (g1) (g/x (SET! g g1))) (let ((g1 (string->variable "x"))) (fully-convert-to-CPS (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g1) (call-continuation g/x (create-set!-expression x (expression-variable x) (create-access-expression x g1)))) (expression-source x)))) ((if) ;; [(IF x2 x3 x4)]_c --> [x2]_(LAMBDA (g1) (IF g1 [x3]_c [x4]_c)) ;; [(IF x2 x3 x4)]_c --> ;; ((LAMBDA (g2) [x2]_(LAMBDA (g1) (IF g1 [x3]_g2 [x4]_g2))) c) (let ((g1 (string->variable "x"))) (if (expression? g/x) (let ((g2 (string->variable "x"))) (create-call-expression x (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g2) (fully-convert-to-CPS (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g1) (create-if-expression x (create-access-expression x g1) (fully-convert-to-CPS g2 (expression-consequent x)) (fully-convert-to-CPS g2 (expression-alternate x)))) (expression-antecedent x))) (list g/x))) (fully-convert-to-CPS (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g1) (create-if-expression x (create-access-expression x g1) (fully-convert-to-CPS g/x (expression-consequent x)) (fully-convert-to-CPS g/x (expression-alternate x)))) (expression-antecedent x))))) ((primitive-procedure) (call-continuation g/x x)) ((foreign-procedure) (call-continuation g/x x)) ((access) (call-continuation g/x x)) ((call) ;; [(x3 ...)]_g/x --> [x3]_(LAMBDA (g1) ... (g1 g/x ...) ...) (let loop ((xs1 (cons (expression-callee x) (expression-arguments x))) (gs '())) (if (null? xs1) (create-converted-call-expression x (create-access-expression x (last gs)) (cons (maybe-create-access-expression g/x) (map (lambda (g) (create-access-expression x g)) (rest (reverse gs))))) (let* ((g1 (string->variable "x")) (x1 (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g1) (loop (rest xs1) (cons g1 gs))))) (fully-convert-to-CPS x1 (first xs1)))))) ((converted-call) (fuck-up)) (else (fuck-up)))) (create-lambda-expression x (expression-lambda-environment x) (expression-parameters x) ;; x --> [x]_(LAMBDA (g) g) (fully-convert-to-CPS (let ((g (string->variable "x"))) (create-converted-continuation-expression (expression-body x) ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g) (create-access-expression (expression-body x) g))) (expression-body x)))) ;;; Determine environment distances from root (define (determine-environment-distances-from-root!) ;; We used to be anal here and find the root by two means. One was the ;; procedure that called every procedure. The other was the procedure that ;; wasn't properly called by any other procedure. And we even checked that ;; these two means produced the same singleton result. But now that computing ;; the CALLS? and PROPERLY-CALLS? relations are expensive we punt and make ;; use of the hardwired assumption that the root is the procedure with no ;; parent. Life is short. (let ((root (find-if (lambda (e) (empty? (parent e))) *es*))) ;; conventions: ROOT (let loop ((es (list root)) (i 0)) ;; conventions: I (unless (null? es) (for-each (lambda (e) (set-environment-distance-from-root! e i)) es) (loop (remove-if-not (lambda (e1) (and (not (number? (distance-from-root e1))) (some (lambda (e2) (directly-calls? e2 e1)) es))) *es*) (+ i 1)))) (unless (every (lambda (e) (number? (distance-from-root e))) *es*) (fuck-up)))) ;;; Determine which environments have external self tail calls (define (determine-which-environments-have-external-self-tail-calls!) ;; An external self tail call is a self tail call that is in-lined in E to a ;; procedure that E is properly in-lined in. This situation can cause a ;; memory leak if E has a reentrant region because E will not be returned from ;; and its region will not be restored. Also, E can't have a non-reentrant ;; region because the external self tail call will cause the region to be ;; clobbered the next time E is entered. It is OK to for there to be a self ;; tail call to E (but not to a procedure that E is properly in-lined in) ;; because the self-tail-call entry point comes after the region ;; initialization code. ;; note: The following is an efficiency hack. (for-each (lambda (e) (set-environment-marked1?! e (some (lambda (y) (and (not (top-level-call-site? y)) (can-be-self-tail-call-to? y e))) (call-sites e)))) *es*) (for-each (lambda (e) (set-environment-has-external-self-tail-call?! e (and (unique-call-site? e) (let loop? ((e1 (expression-environment (call-site-expression (unique-call-site e))))) (or (and (environment-marked1? e1) (some (lambda (y) (and (not (top-level-call-site? y)) (can-be-self-tail-call-to? y e1) (in-lined-in? (call-site-expression y) e))) (call-sites e1))) (and (unique-call-site? e1) (loop? (expression-environment (call-site-expression (unique-call-site e1)))))))))) *es*)) ;;; Determine which environments have external continuation calls (define (determine-which-environments-have-external-continuation-calls!) ;; An external continuation call is a call that is in a procedure that can be ;; called by E to a continuation created not by E but by a procedure that ;; calls E. This situation can cause a memory leak if E has a reentrant region ;; because E will not be returned from and its region will not be restored. ;; note: This is really misnamed. It is not an external continuation call but ;; rather an external call to a continuation. But then then the name ;; becomes too long. (for-each (lambda (e) (clock-sample) ;To prevent overflow. ;; This is done just for side effect, to set the MARKED2? bits. (some-proper-caller (lambda (e) #f) environment-marked2? set-environment-marked2?! e) (set-environment-has-external-continuation-call?! e (some (lambda (e1) (some (lambda (x) (can-be? (lambda (u) (and (continuation-type? u) ((truly-compatible-call? x) u) (can-be? (lambda (u1) (and (native-procedure-type? u1) ((truly-compatible-procedure? (list (create-anonymous-type-set u)) *null* (recreate-call-site (create-call-site (continuation-type-allocating-expression u)) 'first-argument)) u1) (some (lambda (e1) (and (not (eq? e1 e)) (environment-marked2? e1))) (narrow-clones u1)))) (expression-type-set (first-argument (continuation-type-allocating-expression u)))))) (expression-type-set (expression-callee x)))) ;; needs work: What about implicit call sites? (environment-continuation-calls e1))) (proper-callees e)))) *es*)) ;;; Determine blocked environments (define (determine-blocked-environments!) (for-each (lambda (e) (clock-sample) ;To prevent overflow. (when (and (environment-used? e) (not (has-external-self-tail-call? e)) (not (and (reentrant? e) (has-external-continuation-call? e)))) (for-each (lambda (e) (set-environment-marked1?! e #f)) *es*) (set-environment-marked1?! e #t) (let loop ((e1 (find-if (lambda (e) (empty? (parent e))) *es*))) (unless (environment-marked1? e1) (set-environment-marked1?! e1 #t) (for-each loop (environment-direct-tail-callees e1)) (for-each loop (environment-direct-non-tail-callees e1)))) (set-environment-blocked-environments! e (cons e (remove-if environment-marked1? *es*))))) *es*)) ;;; Determine which environments need to pass parameters globally (define (determine-which-environments-need-to-pass-parameters-globally!) (for-each (lambda (e) (set-environment-passes-parameters-globally?! e #f)) *es*) (when *tail-call-optimization?* (for-each (lambda (y) (for-each (lambda (e) (set-environment-passes-parameters-globally?! e #t)) (nonmerged-tail-recursive-purely-tail-call-site-callees y))) (remove-if-not nonmerged-tail-recursive-purely-tail-call-site? *ys*)))) ;;; Determine allocations (define (environment-necessarily-on-path-from-root-to-expression? e x) (when (or (empty? e) (not (environment-used? e)) (has-external-self-tail-call? e) (and (reentrant? e) (has-external-continuation-call? e))) (fuck-up)) (memq (expression-environment x) (environment-blocked-environments e))) (define (safe-type-allocation-environment? e u x) (and (environment-marked2? e) ;This is just an efficiency hack. (not (has-external-self-tail-call? e)) (not (and (reentrant? e) (has-external-continuation-call? e))) (environment-necessarily-on-path-from-root-to-expression? e x) (not (escapes? u e)))) (define (safe-environment-allocation-environment? e1 e2) (and (environment-marked2? e1) ;This is just an efficiency hack. (not (has-external-self-tail-call? e1)) (not (and (reentrant? e1) (has-external-continuation-call? e1))) (environment-necessarily-on-path-from-root-to-expression? e1 (expression-body (environment-expression e2))) ;; It is safe to allocate E2 on E1 if no native procedure that has E2 as ;; an ancestor escapes E1. (not (some (lambda (e3) (escapes? (environment-type e3) e1)) (descendents e2))))) (define (minimal f distance-from-root-to-environments-map) ;; conventions: F DISTANCE-FROM-ROOT-TO-ENVIRONMENTS-MAP (let loop ((i (- (vector-length distance-from-root-to-environments-map) 1))) ;; conventions: I (let ((e (find-if f (vector-ref distance-from-root-to-environments-map i)))) (cond (e (unless (one f (vector-ref distance-from-root-to-environments-map i)) (fuck-up)) e) (else (loop (- i 1))))))) (define (choose-allocation e p?) (cond ((and *stack-allocation?* p? ;; alloca foils tail-call optimization. (not (environment-passes-parameters-globally? (home e))) ;; If E is in-lined then stack allocating on E allocates on the home ;; of E. Don't stack allocate on an environment that is not called ;; more than once because then reclaimation never occurs. This is a ;; heuristic because it actually might be a good policy to allocate in ;; such a way because the program might consist of a sequence of major ;; subcomponents and transition between subcomponents might be the ;; appropriate reclaimation time. (called-more-than-once? (home e)) ;; If E is in-lined then stack allocating on E allocates on the home ;; of E. If E is in-lined in a recursive procedure but E itself is ;; is not recursive then you don't want to stack allocate on the home ;; of E because then you don't reclaim on exit from E. It is likely ;; that the home of E repeatedly calls E so it is better to be able ;; to reclaim on each call. (not (and (unique-call-site? e) (in-lined-in-recursive? e) (not (recursive? e))))) 'stack) ((and *region-allocation?* ;; Reentrant regions foil tail-call optimization. (not (and (reentrant? e) (let loop ((e e)) (if (unique-call-site? e) (and (directly-tail-calls? (expression-environment (call-site-expression (unique-call-site e))) e) (loop (expression-environment (call-site-expression (unique-call-site e))))) (environment-passes-parameters-globally? e))))) ;; Don't allocate on the region of an environment that is not called ;; more than once because then reclaimation never occurs. This is a ;; heuristic because it actually might be a good policy to allocate in ;; such a way because the program might consist of a sequence of major ;; subcomponents and transition between subcomponents might be the ;; appropriate reclaimation time. (called-more-than-once? e)) e) (*heap-allocation?* 'heap) ((and *stack-allocation?* p?) 'stack) (else e))) (define (determine-allocations!) (let ((distance-from-root-to-environments-map (make-vector (+ (reduce max (map distance-from-root *es*) 0) 1) '()))) (for-each (lambda (e) (vector-set! distance-from-root-to-environments-map (distance-from-root e) (cons e (vector-ref distance-from-root-to-environments-map (distance-from-root e))))) *es*) (for-each (lambda (u) (clock-sample) ;To prevent overflow. (for-each (lambda (x) (when (expression? x) (unless (eq? (expression-kind x) 'string-constant) ;; This is done just for side effect, to set the MARKED2? bits. (some-caller (lambda (e) #f) environment-marked2? set-environment-marked2?! (expression-environment x)) (let ((e (minimal (lambda (e) (safe-type-allocation-environment? e u x)) distance-from-root-to-environments-map))) (set-expression-type-allocation-alist! x (cons (cons u (choose-allocation e (eq? e (expression-environment x)))) (expression-type-allocation-alist x))))))) (string-type-allocating-expressions u))) *string-types*) (for-each (lambda (u) ;; Note: Need to determine an allocation even for immediate structures ;; because they may become indirect. (unless (fictitious? u) (clock-sample) ;To prevent overflow. (for-each (lambda (x) (unless (eq? (expression-kind x) 'pair-constant) ;; This is done just for side effect, to set the MARKED2? bits. (some-caller (lambda (e) #f) environment-marked2? set-environment-marked2?! (expression-environment x)) (let ((e (minimal (lambda (e) (safe-type-allocation-environment? e u x)) distance-from-root-to-environments-map))) (set-expression-type-allocation-alist! x (cons (cons u (choose-allocation e (eq? e (expression-environment x)))) (expression-type-allocation-alist x)))))) (structure-type-allocating-expressions u)))) *structure-types*) (for-each (lambda (u) (unless (degenerate-vector-type? u) (clock-sample) ;To prevent overflow. (for-each (lambda (x) (unless (eq? (expression-kind x) 'vector-constant) ;; This is done just for side effect, to set the MARKED2? bits. (some-caller (lambda (e) #f) environment-marked2? set-environment-marked2?! (expression-environment x)) (let ((e (minimal (lambda (e) (safe-type-allocation-environment? e u x)) distance-from-root-to-environments-map))) (set-expression-type-allocation-alist! x (cons (cons u (choose-allocation e (eq? e (expression-environment x)))) (expression-type-allocation-alist x)))))) (headed-vector-type-allocating-expressions u)))) *headed-vector-types*) (for-each (lambda (u) (unless (degenerate-vector-type? u) (clock-sample) ;To prevent overflow. (for-each (lambda (x) (when (expression? x) ;; This is done just for side effect, to set the MARKED2? bits. (some-caller (lambda (e) #f) environment-marked2? set-environment-marked2?! (expression-environment x)) (let ((e (minimal (lambda (e) (safe-type-allocation-environment? e u x)) distance-from-root-to-environments-map))) (set-expression-type-allocation-alist! x (cons (cons u (choose-allocation e (eq? e (expression-environment x)))) (expression-type-allocation-alist x)))))) (nonheaded-vector-type-allocating-expressions u)))) *nonheaded-vector-types*) (for-each (lambda (e) (when (and (not (noop? e)) (has-closure? e)) (clock-sample) ;To prevent overflow. ;; This is done just for side effect, to set the MARKED2? bits. (some-caller (lambda (e) #f) environment-marked2? set-environment-marked2?! e) (let ((e1 (minimal (lambda (e1) (safe-environment-allocation-environment? e1 e)) distance-from-root-to-environments-map))) (set-environment-allocation! e (choose-allocation e1 (eq? e1 e)))))) *es*))) ;;; Apply closed-world assumption (define (dereference-type u) (cond ((null-type? u) u) ((true-type? u) u) ((false-type? u) u) ((char-type? u) u) ((fixnum-type? u) u) ((flonum-type? u) u) ((rectangular-type? u) u) ((input-port-type? u) u) ((output-port-type? u) u) ((eof-object-type? u) u) ((pointer-type? u) u) ((internal-symbol-type? u) u) ((external-symbol-type? u) (if (eq? (external-symbol-type-link u) u) u (let ((u1 (dereference-type (external-symbol-type-link u)))) (set-external-symbol-type-link! u u1) u1))) ((primitive-procedure-type? u) u) ((native-procedure-type? u) u) ((foreign-procedure-type? u) u) ((continuation-type? u) u) ((string-type? u) (if (eq? (string-type-link u) u) u (let ((u1 (dereference-type (string-type-link u)))) (set-string-type-link! u u1) u1))) ((structure-type? u) (if (eq? (structure-type-link u) u) u (let ((u1 (dereference-type (structure-type-link u)))) (set-structure-type-link! u u1) u1))) ((headed-vector-type? u) (if (eq? (headed-vector-type-link u) u) u (let ((u1 (dereference-type (headed-vector-type-link u)))) (set-headed-vector-type-link! u u1) u1))) ((nonheaded-vector-type? u) (if (eq? (nonheaded-vector-type-link u) u) u (let ((u1 (dereference-type (nonheaded-vector-type-link u)))) (set-nonheaded-vector-type-link! u u1) u1))) ((displaced-vector-type? u) (if (eq? (displaced-vector-type-link u) u) u (let ((u1 (dereference-type (displaced-vector-type-link u)))) (set-displaced-vector-type-link! u u1) u1))) (else (fuck-up)))) (define (dereference-type-set w) (if (eq? (type-set-link w) w) w (let ((w1 (dereference-type-set (type-set-link w)))) (set-type-set-link! w w1) w1))) ;;; Note that one can't filter out subtypes from a type set, i.e. replace ;;; union(u1,u2,u3) with union(u1,u3) if subtype(u2,u1). This won't work ;;; because types denote representations, not sets of values. Even though ;;; subtype(fixnum,union(fixnum,flonum)) and even though ;;; subset(headed-vector(fixnum),headed-vector(union(fixnum,flonum))) it is not ;;; the case that ;;; subtype(headed-vector(fixnum),headed-vector(union(fixnum,flonum))) since ;;; headed-vector(fixnum) has a different representation from ;;; headed-vector(union(fixnum,flonum)) and you can't widen the former into the ;;; later without deep widening. (define (apply-closed-world-assumption!) (define (sorting-remove-duplicatesq us) (let loop ((us (sort us > type-index)) (us1 '())) (if (null? us) us1 (loop (rest us) (if (and (not (null? us1)) (eq? (first us) (first us1))) us1 (cons (first us) us1)))))) (define (create-trie . initial-value) (if (null? initial-value) (set! initial-value #f) (set! initial-value (first initial-value))) (make-trie #f #f #f initial-value (make-trie-node '() initial-value))) (define (trie-ref trie list) (let loop ((trie-node (trie-trie-node trie)) (list list)) (if trie-node (if (null? list) (trie-node-value trie-node) (loop (and (assq (first list) (trie-node-table trie-node)) (cdr (assq (first list) (trie-node-table trie-node)))) (rest list))) (trie-initial-value trie)))) (define (trie-set! trie list value) (let loop ((trie-node (trie-trie-node trie)) (list list)) (if (null? list) (set-trie-node-value! trie-node value) (let ((entry (assq (first list) (trie-node-table trie-node)))) ;; conventions: ENTRY (unless entry (set! entry (cons (first list) (make-trie-node '() (trie-initial-value trie)))) (set-trie-node-table! trie-node (cons entry (trie-node-table trie-node)))) (loop (cdr entry) (rest list)))))) (let loop () (let ((again? #f)) ;; Congruence Closure (do ((us *external-symbol-types* (rest us))) ((null? us)) (let ((u1 (first us))) (when (eq? (external-symbol-type-link u1) u1) (clock-sample) ;To prevent overflow. (for-each (lambda (u2) (when (and (eq? (external-symbol-type-link u1) u1) (eq? (external-symbol-type-link u2) u2) (not (eq? u1 u2)) (eq? (dereference-type (external-symbol-type-displaced-string-type u1)) (dereference-type (external-symbol-type-displaced-string-type u2)))) (set-external-symbol-type-link! u2 u1) (set! again? #t))) (rest us))))) (do ((us *string-types* (rest us))) ((null? us)) (let ((u1 (first us))) (when (eq? (string-type-link u1) u1) (clock-sample) ;To prevent overflow. (for-each (lambda (u2) (when (and (eq? (string-type-link u1) u1) (eq? (string-type-link u2) u2) (not (eq? u1 u2))) (set-string-type-allocating-expressions! u1 (unionq (string-type-allocating-expressions u1) (string-type-allocating-expressions u2))) (set-string-type-link! u2 u1) (set! again? #t))) (rest us))))) (do ((us *structure-types* (rest us))) ((null? us)) (let ((u1 (first us))) (when (eq? (structure-type-link u1) u1) (clock-sample) ;To prevent overflow. (for-each (lambda (u2) (when (and (eq? (structure-type-link u1) u1) (eq? (structure-type-link u2) u2) (not (eq? u1 u2)) (eq? (structure-type-name u1) (structure-type-name u2)) (= (length (structure-type-slots u1)) (length (structure-type-slots u2))) (every (lambda (w1 w2) (eq? (dereference-type-set w1) (dereference-type-set w2))) (structure-type-slots u1) (structure-type-slots u2))) (unless (structure-type-immediate? u2) (set-structure-type-immediate?! u1 #f)) (set-structure-type-allocating-expressions! u1 (unionq (structure-type-allocating-expressions u1) (structure-type-allocating-expressions u2))) (when (structure-type-alignment? u2) (set-structure-type-alignment?! u1 #t)) (when (structure-type-alignment&? u2) (set-structure-type-alignment&?! u1 #t)) (when (structure-type-size? u2) (set-structure-type-size?! u1 #t)) (set-structure-type-link! u2 u1) (set! again? #t))) (rest us))))) (do ((us *headed-vector-types* (rest us))) ((null? us)) (let ((u1 (first us))) (when (eq? (headed-vector-type-link u1) u1) (clock-sample) ;To prevent overflow. (for-each (lambda (u2) (when (and (eq? (headed-vector-type-link u1) u1) (eq? (headed-vector-type-link u2) u2) (not (eq? u1 u2)) (eq? (dereference-type-set (headed-vector-type-element u1)) (dereference-type-set (headed-vector-type-element u2)))) (set-headed-vector-type-allocating-expressions! u1 (unionq (headed-vector-type-allocating-expressions u1) (headed-vector-type-allocating-expressions u2))) (when (headed-vector-type-alignment? u2) (set-headed-vector-type-alignment?! u1 #t)) (when (headed-vector-type-alignment&? u2) (set-headed-vector-type-alignment&?! u1 #t)) (when (headed-vector-type-size? u2) (set-headed-vector-type-size?! u1 #t)) (set-headed-vector-type-link! u2 u1) (set! again? #t))) (rest us))))) (do ((us *nonheaded-vector-types* (rest us))) ((null? us)) (let ((u1 (first us))) (when (eq? (nonheaded-vector-type-link u1) u1) (clock-sample) ;To prevent overflow. (for-each (lambda (u2) (when (and (eq? (nonheaded-vector-type-link u1) u1) (eq? (nonheaded-vector-type-link u2) u2) (not (eq? u1 u2)) (eq? (dereference-type-set (nonheaded-vector-type-element u1)) (dereference-type-set (nonheaded-vector-type-element u2)))) (set-nonheaded-vector-type-allocating-expressions! u1 (unionq (nonheaded-vector-type-allocating-expressions u1) (nonheaded-vector-type-allocating-expressions u2))) (when (nonheaded-vector-type-alignment? u2) (set-nonheaded-vector-type-alignment?! u1 #t)) (when (nonheaded-vector-type-size? u2) (set-nonheaded-vector-type-size?! u1 #t)) (set-nonheaded-vector-type-link! u2 u1) (set! again? #t))) (rest us))))) (do ((us *displaced-vector-types* (rest us))) ((null? us)) (let ((u1 (first us))) (when (eq? (displaced-vector-type-link u1) u1) (clock-sample) ;To prevent overflow. (for-each (lambda (u2) (when (and (eq? (displaced-vector-type-link u1) u1) (eq? (displaced-vector-type-link u2) u2) (eq? (dereference-type (displaced-vector-type-displaced-vector-type u1)) (dereference-type (displaced-vector-type-displaced-vector-type u2)))) (when (displaced-vector-type-alignment? u2) (set-displaced-vector-type-alignment?! u1 #t)) (when (displaced-vector-type-size? u2) (set-displaced-vector-type-size?! u1 #t)) (set-displaced-vector-type-link! u2 u1) (set! again? #t))) (rest us))))) ;; Closed World Assumption (let ((trie (create-trie '()))) ;; conventions: TRIE (for-each (lambda (w) (when (eq? (type-set-link w) w) (clock-sample) ;To prevent overflow. (let ((us (sorting-remove-duplicatesq (map dereference-type (members w))))) ;; This is the case where we previously determined that a type set was ;; not fictitious because it was not monomorphic but we now discover ;; that all of its members are equivalent (and fictitious). Thus ;; the type set is really ficitious. But all havoc will break loose if ;; we have a monomorphic nonfictitious type set whose member is ;; fictitious. And it is way too late to propagate ficition. So we ;; force the typeset to be tag-only even though it will always have a ;; known tag. So it goes. (when (and (multimorphic? w) (= (length us) 1) (fictitious? (dereference-type (first (members w))))) (notify "Warning! W~a should be fictitious but isn't" (type-set-index w))) (set-members! w us) (trie-set! trie us (cons w (trie-ref trie us)))))) *ws*) (for-each (lambda (w) (when (eq? (type-set-link w) w) (clock-sample) ;To prevent overflow. (let* ((ws (trie-ref trie (members w))) (w1 (first ws))) (when (eq? w1 w) (for-each (lambda (w2) (cond ((eq? (fictitious? w1) (fictitious? w2)) (set-type-set-link! w2 w1) (set! again? #t)) (else (notify "Warning! Not merging W~s and W~s because the former is ~a and the latter is ~a" (type-set-index w1) (type-set-index w2) (if (fictitious? w1) "fictitious" "not fictitious") (if (fictitious? w2) "fictitious" "not fictitious"))))) (rest ws)))))) *ws*)) (when again? (loop)))) (set! *external-symbol-types* (remove-if-not (lambda (u) (eq? (external-symbol-type-link u) u)) *external-symbol-types*)) (set-members! *foreign-string-type-set* (map dereference-type (members *foreign-string-type-set*))) (set! *string-types* (remove-if-not (lambda (u) (eq? (string-type-link u) u)) *string-types*)) (set! *structure-types* (remove-if-not (lambda (u) (eq? (structure-type-link u) u)) *structure-types*)) (set! *headed-vector-types* (remove-if-not (lambda (u) (eq? (headed-vector-type-link u) u)) *headed-vector-types*)) (set! *nonheaded-vector-types* (remove-if-not (lambda (u) (eq? (nonheaded-vector-type-link u) u)) *nonheaded-vector-types*)) (set! *displaced-vector-types* (remove-if-not (lambda (u) (eq? (displaced-vector-type-link u) u)) *displaced-vector-types*)) (set! *ws* (remove-if-not (lambda (w) (eq? (type-set-link w) w)) *ws*)) (for-each (lambda (x) (set-expression-type-set! x (dereference-type-set (expression-type-set x))) (for-each (lambda (u-e) (set-car! u-e (dereference-type (car u-e)))) (expression-type-allocation-alist x)) (set-expression-type-allocation-alist! x (remove-duplicatesp (lambda (u-e1 u-e2) (and (eq? (car u-e1) (car u-e2)) (eq? (cdr u-e1) (cdr u-e2)))) (expression-type-allocation-alist x))) (unless (= (length (expression-type-allocation-alist x)) (length (remove-duplicatesq (map car (expression-type-allocation-alist x))))) (fuck-up))) *xs*) (for-each (lambda (u) (set-external-symbol-type-displaced-string-type! u (dereference-type (external-symbol-type-displaced-string-type u)))) *external-symbol-types*) (for-each (lambda (u) (set-structure-type-slots! u (map dereference-type-set (structure-type-slots u)))) *structure-types*) (for-each (lambda (u) (set-headed-vector-type-element! u (dereference-type-set (headed-vector-type-element u)))) *headed-vector-types*) (for-each (lambda (u) (set-nonheaded-vector-type-element! u (dereference-type-set (nonheaded-vector-type-element u)))) *nonheaded-vector-types*) (for-each (lambda (u) (set-displaced-vector-type-displaced-vector-type! u (dereference-type (displaced-vector-type-displaced-vector-type u)))) *displaced-vector-types*) (for-each (lambda (g) (set-variable-type-set! g (dereference-type-set (variable-type-set g)))) *gs*) (for-each (lambda (e) (set-environment-escaping-types! e (sorting-remove-duplicatesq (map dereference-type (environment-escaping-types e))))) *es*) (set! (dereference-type )) (set! (dereference-type )) (for-each (lambda (w) (set-type-set-location! w #f)) *ws*)) ;;; Determine indirect structure types (define (determine-indirect-structure-types!) ;; needs work: This is conservative. It makes all structures that are part of ;; a points-to cycle indirect. It is sufficient to make only one ;; edge in the cycle indirect. Also, this doesn't take into ;; account that native procedures and vectors are always indirect. (for-each (lambda (u) (when (some (lambda (w) (points-to? w u)) (structure-type-slots u)) (set-structure-type-immediate?! u #f))) *structure-types*)) ;;; Determine which types are never allocated on the heap (define (determine-which-types-are-never-allocated-on-the-heap!) (define (never-allocated-on-the-heap? u) (not (some (lambda (x) (let ((u-e (assq u (expression-type-allocation-alist x)))) (and u-e (heap-allocation? (cdr u-e))))) *calls*))) (for-each (lambda (u) (set-string-type-never-allocated-on-the-heap?! u (never-allocated-on-the-heap? u))) *string-types*) (for-each (lambda (u) (set-structure-type-never-allocated-on-the-heap?! u (never-allocated-on-the-heap? u))) *structure-types*) (for-each (lambda (u) (set-headed-vector-type-never-allocated-on-the-heap?! u (never-allocated-on-the-heap? u))) *headed-vector-types*) (for-each (lambda (u) (set-nonheaded-vector-type-never-allocated-on-the-heap?! u (never-allocated-on-the-heap? u))) *nonheaded-vector-types*)) ;;; Determine which environments have regions (define (region-allocation? e) (environment? e)) (define (stack-allocation? e) (eq? e 'stack)) (define (heap-allocation? e) (eq? e 'heap)) (define *program-has-heap?* #f) (define (determine-which-environments-have-regions!) (for-each (lambda (e) (set-environment-has-region?! e #f) (set-environment-has-nonatomic-region?! e #f)) *es*) (set! *program-has-heap?* #f) (for-each (lambda (x) (for-each (lambda (u-e) (cond ((region-allocation? (cdr u-e)) (set-environment-has-region?! (cdr u-e) #t) (unless (type-atomic? (car u-e)) (set-environment-has-nonatomic-region?! (cdr u-e) #t))) ((heap-allocation? (cdr u-e)) (set! *program-has-heap?* #t)))) (expression-type-allocation-alist x))) *calls*) (for-each (lambda (e) (cond ((region-allocation? (allocation e)) (set-environment-has-region?! (allocation e) #t) (unless (environment-atomic? e) (set-environment-has-nonatomic-region?! (allocation e) #t))) ((heap-allocation? (allocation e)) (set! *program-has-heap?* #t)))) *es*)) ;;; The remaining procedures are used just for debugging. (define (hunoz? g) (string=? (symbol->string (variable-name g)) "hunoz")) (define *abbreviate?* #f) (define (list+-type? u) (and (pair-type? u) (= (length (members (pair-type-cdr u))) 2) (or (and (null-type? (first (members (pair-type-cdr u)))) (eq? (second (members (pair-type-cdr u))) u)) (and (null-type? (second (members (pair-type-cdr u)))) (eq? (first (members (pair-type-cdr u))) u))))) (define (list-slots u) (if (null-type? u) '() (cons (pair-type-car u) (list-slots (the-member (pair-type-cdr u)))))) (define (list*-type? w) (and (= (length (members w)) 2) (or (and (null-type? (first (members w))) (pair-type? (second (members w))) (eq? (pair-type-cdr (second (members w))) w)) (and (null-type? (second (members w))) (pair-type? (first (members w))) (eq? (pair-type-cdr (first (members w))) w))))) (define (up u/w u/ws) (if (or (eq? u/w (first u/ws)) (and (type-set? u/w) (monomorphic? u/w) (eq? (the-member u/w) (first u/ws)))) 0 (+ (up u/w (rest u/ws)) 1))) (define (externalize-type-internal u u/ws) (define (list-type? u) (or (null-type? u) (and (pair-type? u) (monomorphic? (pair-type-cdr u)) (list-type? (the-member (pair-type-cdr u)))))) (cond ((memq u u/ws) `(up ,(up u u/ws))) ((null-type? u) 'null) ((true-type? u) 'true) ((false-type? u) 'false) ((char-type? u) 'char) ((fixnum-type? u) 'fixnum) ((flonum-type? u) 'flonum) ((rectangular-type? u) 'rectangular) ((input-port-type? u) 'input-port) ((output-port-type? u) 'output-port) ((eof-object-type? u) 'eof-object) ((pointer-type? u) 'pointer) ((internal-symbol-type? u) `',(internal-symbol-type-name u)) ((external-symbol-type? u) ;; note: Ambiguous between external symbol type and structure type. `(external-symbol ,(externalize-type-internal (external-symbol-type-displaced-string-type u) (cons u u/ws)))) ((primitive-procedure-type? u) (if (null? (primitive-procedure-type-arguments u)) (primitive-procedure-type-name u) (cons (primitive-procedure-type-name u) (primitive-procedure-type-arguments u)))) ((native-procedure-type? u) `(native-procedure ,@(map environment-name (narrow-clones u)))) ((foreign-procedure-type? u) (foreign-procedure-type-name u)) ((continuation-type? u) `(continuation ,(expression-index (continuation-type-allocating-expression u)))) ;; note: Ambiguous between string type and primitive-procedure type. ((string-type? u) 'string) ((structure-type? u) (cond ((list+-type? u) ;; note: Ambiguous between list+ type and structure type. `(list+ ,(if *abbreviate?* (type-set-index (pair-type-car u)) (externalize-type-set-internal (pair-type-car u) (cons u u/ws))))) ((list-type? u) ;; note: Ambiguous between list type and structure type. `(list ,@(map (lambda (w) (externalize-type-set-internal w (cons u u/ws))) (list-slots u)))) (else `(,(structure-type-name u) ,@(map (lambda (w) (if *abbreviate?* (type-set-index w) (externalize-type-set-internal w (cons u u/ws)))) (structure-type-slots u)))))) ((headed-vector-type? u) ;; note: Ambiguous between headed-vector type and structure type. `(headed-vector ,(if *abbreviate?* (type-set-index (headed-vector-type-element u)) (externalize-type-set-internal (headed-vector-type-element u) (cons u u/ws))))) ((nonheaded-vector-type? u) ;; note: Ambiguous between nonheaded-vector type and structure type. `(nonheaded-vector ,(if *abbreviate?* (type-set-index (nonheaded-vector-type-element u)) (externalize-type-set-internal (nonheaded-vector-type-element u) (cons u u/ws))))) ((displaced-vector-type? u) ;; note: Ambiguous between displaced-vector type and structure type. `(displaced-vector ,(externalize-type-internal (displaced-vector-type-displaced-vector-type u) (cons u u/ws)))) (else (fuck-up)))) (define (externalize-type-set-internal w u/ws) (cond ((or (memq w u/ws) (and (monomorphic? w) (memq (the-member w) u/ws))) `(up ,(up w u/ws))) ((void? w) 'void) ((monomorphic? w) (externalize-type-internal (the-member w) u/ws)) ((list*-type? w) ;; note: Ambiguous between list* type and structure type. `(list* ,(externalize-type-set-internal (pair-type-car (the-member-that structure-type? w)) (cons w u/ws)))) (else `(union ,@(map (lambda (u) (externalize-type-internal u (cons w u/ws))) (members w)))))) (define (externalize-type u) (externalize-type-internal u '())) (define (externalize-type-set w) (externalize-type-set-internal w '())) (define (variable-names x) ;; This is a real kludge. (if (eq? (expression-parameters x) (unspecified)) 'unspecified (let loop ((gs (variables x))) (cond ((null? gs) '()) ((and (null? (rest gs)) (rest? x)) (variable-name (first gs))) (else (cons (variable-name (first gs)) (loop (rest gs)))))))) (define (externalize-expression x) (define (undecorate-constant x) (case (expression-kind x) ((null-constant) '()) ((true-constant) #t) ((false-constant) #f) ((char-constant) (expression-constant x)) ((fixnum-constant) (expression-constant x)) ((flonum-constant) (expression-constant x)) ((rectangular-constant) (expression-constant x)) ((string-constant) (expression-constant x)) ((symbol-constant) (expression-constant x)) ((pair-constant) (cons (undecorate-constant (car (expression-constant x))) (undecorate-constant (cdr (expression-constant x))))) ((vector-constant) (map-vector undecorate-constant (expression-constant x))) (else (fuck-up)))) (define (externalize-expressions x) (if (and (eq? (expression-kind x) 'call) (= (length (expression-arguments x)) 1) (eq? (expression-kind (expression-callee x)) 'lambda) ;; This is a real kludge. (not (eq? (expression-parameters (expression-callee x)) (unspecified))) (= (length (variables (expression-callee x))) 1) (not (rest? (expression-callee x))) (hunoz? (first (variables (expression-callee x))))) (cons (externalize-expression (first (expression-arguments x))) (externalize-expressions (expression-body (expression-callee x)))) (list (externalize-expression x)))) ;; conventions: X1 (let ((x1 (case (expression-kind x) ((null-constant) ''()) ((true-constant) #t) ((false-constant) #f) ((char-constant) (expression-constant x)) ((fixnum-constant) (expression-constant x)) ((flonum-constant) (expression-constant x)) ((rectangular-constant) (expression-constant x)) ((string-constant) (expression-constant x)) ((symbol-constant) `',(expression-constant x)) ((pair-constant) `',(undecorate-constant x)) ((vector-constant) (undecorate-constant x)) ((lambda converted-lambda converted-continuation) (if (noop? x) `(lambda ,(variable-names x)) `(lambda ,(variable-names x) ,@(externalize-expressions (expression-body x))))) ((set!) `(set! ,(variable-name (expression-variable x)) ,(externalize-expression (expression-source x)))) ((if) `(if ,(externalize-expression (expression-antecedent x)) ,(externalize-expression (expression-consequent x)) ,(externalize-expression (expression-alternate x)))) ((primitive-procedure) `(primitive-procedure ,@(expression-constant x))) ((foreign-procedure) `(foreign-procedure ,@(expression-constant x))) ((access) (variable-name (expression-variable x))) ((call converted-call) (cons (externalize-expression (expression-callee x)) (map externalize-expression (expression-arguments x)))) (else (fuck-up))))) `(the ,(if *abbreviate?* (type-set-index (expression-type-set x)) (externalize-type-set (expression-type-set x))) ,x1))) (define (undecorate x) (define (undecorate-constant x) (case (expression-kind x) ((null-constant) '()) ((true-constant) #t) ((false-constant) #f) ((char-constant) (expression-constant x)) ((fixnum-constant) (expression-constant x)) ((flonum-constant) (expression-constant x)) ((rectangular-constant) (expression-constant x)) ((string-constant) (expression-constant x)) ((symbol-constant) (expression-constant x)) ((pair-constant) (cons (undecorate-constant (car (expression-constant x))) (undecorate-constant (cdr (expression-constant x))))) ((vector-constant) (map-vector undecorate-constant (expression-constant x))) (else (fuck-up)))) (define (undecorate-expressions x) (if (and (eq? (expression-kind x) 'call) (= (length (expression-arguments x)) 1) (eq? (expression-kind (expression-callee x)) 'lambda) ;; This is a real kludge. (not (eq? (expression-parameters (expression-callee x)) (unspecified))) (= (length (variables (expression-callee x))) 1) (not (rest? (expression-callee x))) (hunoz? (first (variables (expression-callee x))))) (cons (undecorate (first (expression-arguments x))) (undecorate-expressions (expression-body (expression-callee x)))) (list (undecorate x)))) (case (expression-kind x) ((null-constant) ''()) ((true-constant) #t) ((false-constant) #f) ((char-constant) (expression-constant x)) ((fixnum-constant) (expression-constant x)) ((flonum-constant) (expression-constant x)) ((rectangular-constant) (expression-constant x)) ((string-constant) (expression-constant x)) ((symbol-constant) `',(expression-constant x)) ((pair-constant) `',(undecorate-constant x)) ((vector-constant) (undecorate-constant x)) ((lambda converted-lambda converted-continuation) (if (noop? x) `(lambda ,(variable-names x)) `(lambda ,(variable-names x) ,@(undecorate-expressions (expression-body x))))) ((set!) `(set! ,(variable-name (expression-variable x)) ,(undecorate (expression-source x)))) ((if) `(if ,(undecorate (expression-antecedent x)) ,(undecorate (expression-consequent x)) ,(undecorate (expression-alternate x)))) ((primitive-procedure) `(primitive-procedure ,@(expression-constant x))) ((foreign-procedure) `(foreign-procedure ,@(expression-constant x))) ((access) (variable-name (expression-variable x))) ((call converted-call) (cons (undecorate (expression-callee x)) (map undecorate (expression-arguments x)))) (else (fuck-up)))) (define (small? x) (define (atoms-in list) (if (pair? list) (+ (atoms-in (car list)) (atoms-in (cdr list))) 1)) (< (atoms-in (undecorate x)) 50)) (define *accounts* '#()) (define (create-accounts! n) (set! *accounts* (make-vector n 0))) (define (account index thunk) (let* ((start (clock-sample)) (result (thunk)) (end (clock-sample))) (vector-set! *accounts* index (+ (vector-ref *accounts* index) (- end start))) result)) (define (print-accounts) (notify-pp "~s" (let ((sum (reduce-vector + *accounts* 0.0))) (map-vector (lambda (account) (inexact->exact (floor (/ (* 100.0 account) sum)))) *accounts*)))) (define (debug-generate c) ;; note: This will not handle braces inside comments. (let ((backslash? #f) (newline? #f) (open? #f) (state 'code) (indent 0)) ;; conventions: BACKSLASH? STATE INDENT (define (generate-char c) (case state ((code) (cond ((char=? c #\") (set! state 'string)) ((char=? c #\') (set! state 'char)) ((char=? c #\{) (set! indent (+ indent 1))) ((char=? c #\}) (set! indent (- indent 1))))) ((string) (cond (backslash? (set! backslash? #f)) ((char=? c #\\) (set! backslash? #t)) ((char=? c #\") (set! state 'code)))) ((char) (cond (backslash? (set! backslash? #f)) ((char=? c #\\) (set! backslash? #t)) ((char=? c #\') (set! state 'code))))) (set! newline? #f) (set! open? (char=? c #\{)) (write-char c)) (let loop ((c c)) (cond ((char? c) (unless (char=? c #\newline) (fuck-up)) (unless (or newline? open?) (newline) (for-each-n (lambda (i) ;; conventions: I (write-char #\space)) indent) (set! newline? #t))) ((string? c) (for-each-n (lambda (i) ;; conventions: I (generate-char (string-ref c i))) (string-length c))) ((c:declaration? c) (loop (third c))) ((c:protect? c) (loop (second c))) ((c:no-return? c) (loop (second c))) ((pair? c) (loop (car c)) (loop (cdr c))) ((null? c) #f) (else (fuck-up)))))) (define (print-counts) (notify "~a expression~a" (number->string-of-length (length *xs*) 6) (if (= (length *xs*) 1) "" "s")) (notify "~a internal symbol type~a" (number->string-of-length (length *internal-symbol-types*) 6) (if (= (length *internal-symbol-types*) 1) "" "s")) (notify "~a external symbol type~a" (number->string-of-length (length *external-symbol-types*) 6) (if (= (length *external-symbol-types*) 1) "" "s")) (notify "~a primitive procedure type~a" (number->string-of-length (length *primitive-procedure-types*) 6) (if (= (length *primitive-procedure-types*) 1) "" "s")) (notify "~a non-called native procedure type~a" (number->string-of-length (count-if-not called? *native-procedure-types*) 6) (if (one (lambda (u) (not (called? u))) *native-procedure-types*) "" "s")) (notify "~a called noop native procedure type~a" (number->string-of-length (count-if (lambda (u) (and (called? u) (noop? u))) *native-procedure-types*) 6) (if (one (lambda (u) (and (called? u) (noop? u))) *native-procedure-types*) "" "s")) (notify "~a called non-noop native procedure type~a" (number->string-of-length (count-if (lambda (u) (and (called? u) (not (noop? u)))) *native-procedure-types*) 6) (if (one (lambda (u) (and (called? u) (not (noop? u)))) *native-procedure-types*) "" "s")) (notify "~a foreign procedure type~a" (number->string-of-length (length *foreign-procedure-types*) 6) (if (= (length *foreign-procedure-types*) 1) "" "s")) (notify "~a continuation type~a" (number->string-of-length (length *continuation-types*) 6) (if (= (length *continuation-types*) 1) "" "s")) (notify "~a string type~a" (number->string-of-length (length *string-types*) 6) (if (= (length *string-types*) 1) "" "s")) (notify "~a structure type~a" (number->string-of-length (length *structure-types*) 6) (if (= (length *structure-types*) 1) "" "s")) (notify "~a headed vector type~a" (number->string-of-length (length *headed-vector-types*) 6) (if (= (length *headed-vector-types*) 1) "" "s")) (notify "~a nonheaded vector type~a" (number->string-of-length (length *nonheaded-vector-types*) 6) (if (= (length *nonheaded-vector-types*) 1) "" "s")) (notify "~a displaced vector type~a" (number->string-of-length (length *displaced-vector-types*) 6) (if (= (length *displaced-vector-types*) 1) "" "s")) (notify "~a type set~a" (number->string-of-length (length *ws*) 6) (if (= (length *ws*) 1) "" "s")) (notify "~a hunoz variable~a" (number->string-of-length (count-if hunoz? *gs*) 6) (if (one hunoz? *gs*) "" "s")) (notify "~a non-hunoz variable~a" (number->string-of-length (count-if-not hunoz? *gs*) 6) (if (one (lambda (g) (not (hunoz? g))) *gs*) "" "s")) (notify "~a noop environment~a" (number->string-of-length (count-if noop? *es*) 6) (if (one noop? *es*) "" "s")) (notify "~a non-noop environment~a" (number->string-of-length (count-if-not noop? *es*) 6) (if (one (lambda (e) (not (noop? e))) *es*) "" "s"))) (define (global-memory-usage) ;; needs work: This is out of date now that we merged Stalin with October. ;; This is all very specific to Scheme->C. ;; This will overflow without warning at 512M on Linux. (define (object-memory-usage object) ;; conventions: OBJECT ;; Doesn't handle continuations, records, forwarding pointers, and undefined ;; objects. (cond ((and (number? object) (exact? object)) 0) ;; Doesn't trace name, value, or property list. ((symbol? object) (* c-sizeof-s2cuint 5)) ((string? object) (let ((l (+ (string-length object) 1))) (+ c-sizeof-s2cuint l (if (zero? (remainder l c-sizeof-s2cuint)) 0 (- c-sizeof-s2cuint (remainder l c-sizeof-s2cuint)))))) ;; Doesn't trace elements. ((vector? object) (+ c-sizeof-s2cuint (* c-sizeof-s2cuint (vector-length object)))) ;; Doesn't trace closure. ((procedure? object) (* c-sizeof-s2cuint 3)) ;; Can be 4 words if doubles must be aligned. ((and (number? object) (inexact? object)) (* c-sizeof-s2cuint 3)) ((null? object) 0) ((not object) 0) ((eq? object #t) 0) ((char? object) 0) ((eof-object? object) 0) ((pair? object) (* c-sizeof-s2cuint 2)) (else (fuck-up)))) (define (recursive-object-memory-usage object) ;; conventions: OBJECT ;; Doesn't handle continuations, records, forwarding pointers, and undefined ;; objects. (cond ((and (number? object) (exact? object)) 0) ;; Assume all symbols are interned. Don't count the size of interned ;; symbols. Assume that symbols don't have values or property lists. ((symbol? object) 0) ;; Assume that strings aren't shared. ((string? object) (let ((l (+ (string-length object) 1))) (+ c-sizeof-s2cuint l (if (zero? (remainder l c-sizeof-s2cuint)) 0 (- c-sizeof-s2cuint (remainder l c-sizeof-s2cuint)))))) ;; Assume that vectors aren't shared. ((vector? object) (+ c-sizeof-s2cuint (* c-sizeof-s2cuint (vector-length object)) (reduce-vector + (map-vector recursive-object-memory-usage object) 0))) ;; Assume that procedures aren't shared. ;; Doesn't trace closure. ((procedure? object) (* c-sizeof-s2cuint 3)) ;; Can be 4 words if doubles must be aligned. ((and (number? object) (inexact? object)) (* c-sizeof-s2cuint 3)) ((null? object) 0) ((not object) 0) ((eq? object #t) 0) ((char? object) 0) ((eof-object? object) 0) ;; Assume that pairs aren't shared. ((pair? object) (+ (* c-sizeof-s2cuint 2) (recursive-object-memory-usage (car object)) (recursive-object-memory-usage (cdr object)))) (else (fuck-up)))) (define (flat-memory-usage object) ;; conventions: OBJECT (cond ((and (number? object) (exact? object)) 0) ;; Assume all symbols are interned. Don't count the size of interned ;; symbols. Assume that symbols don't have values or property lists. ((symbol? object) 0) ;; Assume that strings aren't shared. ((string? object) (let ((l (+ (string-length object) 1))) (+ c-sizeof-s2cuint l (if (zero? (remainder l c-sizeof-s2cuint)) 0 (- c-sizeof-s2cuint (remainder l c-sizeof-s2cuint)))))) ;; Assume that vectors aren't shared. Count the size of elements ;; elsewhere. ((vector? object) (+ c-sizeof-s2cuint (* c-sizeof-s2cuint (vector-length object)))) ;; Assume that no top-level variable has a procedure as its value. ((procedure? object) (fuck-up)) ;; Can be 4 words if doubles must be aligned. ((and (number? object) (inexact? object)) (* c-sizeof-s2cuint 3)) ((null? object) 0) ((not object) 0) ((eq? object #t) 0) ((char? object) 0) ((eof-object? object) 0) ((pair? object) ;; Assume that pairs aren't shared. Count the size of the car slots ;; elsewhere. (+ (* c-sizeof-s2cuint 2) (flat-memory-usage (cdr object)))) (else (fuck-up)))) (define (scalar-one-level-memory-usage object) ;; conventions: OBJECT ;; Assume all top-level scalar variables hold vectors, symbols, or #F. ;; Assume all symbols are interned. Don't count the size of interned ;; symbols. Assume that symbols don't have values or property lists. (unless (or (not object) (symbol? object) (vector? object)) (fuck-up)) ;; Assume that vectors aren't shared. (if (vector? object) (+ c-sizeof-s2cuint (* c-sizeof-s2cuint (vector-length object)) (reduce-vector + (map-vector flat-memory-usage object) 0)) 0)) (define (list-one-level-memory-usage object) ;; conventions: OBJECT ;; Assume all top-level list variables hold lists or #F. (unless (or (not object) (list? object)) (fuck-up)) ;; Assume that pairs aren't shared. (if object (+ (* c-sizeof-s2cuint 2 (length object)) (reduce + (map scalar-one-level-memory-usage object) 0)) 0)) ;; The following aren't counted: ;; *PRIMITIVE-PROCEDURE-REWRITES* quote ;; *ERRORS* quote ;; *MACROS* computed at startup ;; *READ* backquote ;; *I/O* backquote ;; *Scheme->C-compatibility-macros* computed at startup ;; *Xlib-and-GL-macros* computed at startup ;; *QobiScheme-macros* computed at startup ;; *Trotsky-macros* computed at startup (+ (flat-memory-usage *types-frozen?*) (flat-memory-usage *again?*) (flat-memory-usage *xi*) (list-one-level-memory-usage *xs*) (flat-memory-usage *calls*) ;subsumed by *XS* (flat-memory-usage *accesses*) ;subsumed by *XS* (flat-memory-usage *assignments*) ;subsumed by *XS* (flat-memory-usage *references*) ;subsumed by *XS* ;; *X* is contained in *XS* ;; *X1* is contained in *XS* (flat-memory-usage *ui*) (scalar-one-level-memory-usage ) (flat-memory-usage *null-type-used?*) (flat-memory-usage *null-type-use-count*) (scalar-one-level-memory-usage ) (flat-memory-usage *true-type-used?*) (flat-memory-usage *true-type-use-count*) (scalar-one-level-memory-usage ) (flat-memory-usage *false-type-used?*) (flat-memory-usage *false-type-use-count*) (scalar-one-level-memory-usage ) (flat-memory-usage *char-type-used?*) (flat-memory-usage *char-type-use-count*) (scalar-one-level-memory-usage ) (flat-memory-usage *fixnum-type-used?*) (flat-memory-usage *fixnum-type-use-count*) (scalar-one-level-memory-usage ) (flat-memory-usage *flonum-type-used?*) (flat-memory-usage *flonum-type-use-count*) (scalar-one-level-memory-usage ) (flat-memory-usage *rectangular-type-used?*) (flat-memory-usage *rectangular-type-use-count*) (scalar-one-level-memory-usage ) (flat-memory-usage *input-port-type-used?*) (flat-memory-usage *input-port-type-use-count*) (scalar-one-level-memory-usage ) (flat-memory-usage *output-port-type-used?*) (flat-memory-usage *output-port-type-use-count*) (scalar-one-level-memory-usage ) (flat-memory-usage *eof-object-type-used?*) (flat-memory-usage *eof-object-type-use-count*) (scalar-one-level-memory-usage ) (flat-memory-usage *pointer-type-used?*) (flat-memory-usage *pointer-type-use-count*) (list-one-level-memory-usage *internal-symbol-types*) (list-one-level-memory-usage *external-symbol-types*) (list-one-level-memory-usage *primitive-procedure-types*) (list-one-level-memory-usage *native-procedure-types*) (list-one-level-memory-usage *foreign-procedure-types*) (list-one-level-memory-usage *continuation-types*) (list-one-level-memory-usage *string-types*) ;; is contained in *STRING-TYPES* (list-one-level-memory-usage *structure-types*) (list-one-level-memory-usage *headed-vector-types*) (list-one-level-memory-usage *nonheaded-vector-types*) ;; is contained in *NONHEADED-VECTOR-TYPES* (list-one-level-memory-usage *displaced-vector-types*) (flat-memory-usage *wi*) (list-one-level-memory-usage *ws*) ;; *W0* is contained in *WS* ;; *W1* is contained in *WS* ;; *W* is contained in *WS* ;; *VOID* is contained in *WS* ;; *NULL* is contained in *WS* ;; *INPUT-PORT* is contained in *WS* ;; *OUTPUT-PORT* is contained in *WS* ;; *FOREIGN-CHAR-TYPE-SET* is contained in *WS* ;; *FOREIGN-FIXNUM-TYPE-SET* is contained in *WS* ;; *FOREIGN-FLONUM-TYPE-SET* is contained in *WS* ;; *FOREIGN-STRING-TYPE-SET* is contained in *WS* ;; *FOREIGN-INPUT-PORT-TYPE-SET* is contained in *WS* ;; *FOREIGN-OUTPUT-PORT-TYPE-SET* is contained in *WS* ;; *FOREIGN-POINTER-TYPE-SET* is contained in *WS* (flat-memory-usage *gi*) (list-one-level-memory-usage *gs*) (flat-memory-usage *ei*) (list-one-level-memory-usage *es*) (list-one-level-memory-usage *es0*) (flat-memory-usage *y*) ;not counted (list-one-level-memory-usage *ys*) ;not fully counted (flat-memory-usage *program-has-heap?*) (flat-memory-usage *abbreviate?*) (recursive-object-memory-usage *accounts*) (flat-memory-usage *char*) (flat-memory-usage *fixnum*) (flat-memory-usage *flonum*) (flat-memory-usage *length*) (flat-memory-usage *tag*) (flat-memory-usage *squished*) (flat-memory-usage *signed-squished*) (flat-memory-usage *file*) (flat-memory-usage *jmpbuf*) (flat-memory-usage *char-alignment*) (flat-memory-usage *fixnum-alignment*) (flat-memory-usage *flonum-alignment*) (flat-memory-usage *pointer-alignment*) (flat-memory-usage *length-alignment*) (flat-memory-usage *tag-alignment*) (flat-memory-usage *squished-alignment*) (flat-memory-usage *file-alignment*) (flat-memory-usage *jmpbuf-alignment*) (flat-memory-usage *char-size*) (flat-memory-usage *fixnum-size*) (flat-memory-usage *flonum-size*) (flat-memory-usage *pointer-size*) (flat-memory-usage *length-size*) (flat-memory-usage *tag-size*) (flat-memory-usage *squished-size*) (flat-memory-usage *worst-alignment*) (flat-memory-usage *allocation-alignment*) (flat-memory-usage *char-alignment?*) (flat-memory-usage *fixnum-alignment?*) (flat-memory-usage *flonum-alignment?*) (flat-memory-usage *rectangular-alignment?*) (flat-memory-usage *void*-alignment?*) (flat-memory-usage *char*-alignment?*) (flat-memory-usage *file*-alignment?*) (flat-memory-usage *jmpbuf*-alignment?*) (flat-memory-usage *length-alignment?*) (flat-memory-usage *tag-alignment?*) (flat-memory-usage *squished-alignment?*) (flat-memory-usage *file-alignment?*) (flat-memory-usage *jmpbuf-alignment?*) (flat-memory-usage *char-size?*) (flat-memory-usage *fixnum-size?*) (flat-memory-usage *flonum-size?*) (flat-memory-usage *rectangular-size?*) (flat-memory-usage *void*-size?*) (flat-memory-usage *char*-size?*) (flat-memory-usage *file*-size?*) (flat-memory-usage *jmpbuf*-size?*) (flat-memory-usage *length-size?*) (flat-memory-usage *tag-size?*) (flat-memory-usage *squished-size?*) (flat-memory-usage *uss*) ;subsumed elsewhere (flat-memory-usage *strings*) ;not counted (flat-memory-usage *symbols*) ;not counted (flat-memory-usage *outside-main*) ;not counted (flat-memory-usage *inside-main*) ;not counted (flat-memory-usage *outside-body*) ;not counted (flat-memory-usage *discard*) (flat-memory-usage *errors-used*) ;not counted (flat-memory-usage *warnings*) ;not counted (flat-memory-usage *ti*) (flat-memory-usage *statements-per-constant-initialization-procedure*) (flat-memory-usage *li*) (flat-memory-usage *primitive-procedure-handlers*) ;not counted (recursive-object-memory-usage *list->vector*) (recursive-object-memory-usage *append*) (recursive-object-memory-usage *cons*) (recursive-object-memory-usage *eqv?*) (flat-memory-usage *c:noreturn?*) (flat-memory-usage *c:c?*) (flat-memory-usage *c:panic?*) (flat-memory-usage *c:backtrace?*) (flat-memory-usage *c:backtrace-internal?*) (flat-memory-usage *c:ipow?*) (flat-memory-usage *c:input-waiting?*) (flat-memory-usage *p7?*) (flat-memory-usage *closure-representation*) (flat-memory-usage *type-if?*) (flat-memory-usage *immediate-structures?*) (flat-memory-usage *bounds-checks?*) (flat-memory-usage *memory-checks?*) (flat-memory-usage *overflow-checks?*) (flat-memory-usage *type-checks?*) (flat-memory-usage *runtime-checks?*) (flat-memory-usage *heap-allocation?*) (flat-memory-usage *stack-allocation?*) (flat-memory-usage *region-allocation?*) (flat-memory-usage *memory-messages?*) (flat-memory-usage *globals?*) (flat-memory-usage *expandable-regions?*) (flat-memory-usage *forgery?*) (flat-memory-usage *eq?-forgery?*) (flat-memory-usage *uniqueness?*) (flat-memory-usage *align-strings?*) (flat-memory-usage *treat-all-symbols-as-external?*) (flat-memory-usage *index-allocated-string-types-by-expression?*) (flat-memory-usage *index-constant-structure-types-by-slot-types?*) (flat-memory-usage *index-constant-structure-types-by-expression?*) (flat-memory-usage *index-allocated-structure-types-by-slot-types?*) (flat-memory-usage *index-allocated-structure-types-by-expression?*) (flat-memory-usage *index-constant-headed-vector-types-by-element-type?*) (flat-memory-usage *index-constant-headed-vector-types-by-expression?*) (flat-memory-usage *index-allocated-headed-vector-types-by-element-type?*) (flat-memory-usage *index-allocated-headed-vector-types-by-expression?*) (flat-memory-usage *index-constant-nonheaded-vector-types-by-element-type?*) (flat-memory-usage *index-constant-nonheaded-vector-types-by-expression?*) (flat-memory-usage *index-allocated-nonheaded-vector-types-by-element-type?*) (flat-memory-usage *index-allocated-nonheaded-vector-types-by-expression?*) (recursive-object-memory-usage *include-path*) (recursive-object-memory-usage *includes*) (recursive-object-memory-usage *herald*) (recursive-object-memory-usage *heralds*) (recursive-object-memory-usage *program-has-pthreads?*))) (define (print-global-memory-usage) (let* ((c1 (global-memory-usage)) (c4 (cond ((>= c1 1048576) (inexact->exact (ceiling (/ c1 1048576)))) ((>= c1 1024) (inexact->exact (ceiling (/ c1 1024)))) (else c1))) (c5 (cond ((>= c1 1048576) "M") ((>= c1 1024) "K") (else "")))) ;; conventions: C1 C4 C5 (notify "Stalin thinks ~s~a byte~a in use" c4 c5 (if (= c1 1) " is" "s are")) (collect-all) (let* ((c2 (first (collect-info))) (c4 (cond ((>= c2 1048576) (inexact->exact (ceiling (/ c2 1048576)))) ((>= c2 1024) (inexact->exact (ceiling (/ c2 1024)))) (else c2))) (c5 (cond ((>= c2 1048576) "M") ((>= c2 1024) "K") (else "")))) ;; conventions: C2 C4 C5 (notify "Scheme->C thinks ~s~a byte~a in use" c4 c5 (if (= c2 1) " is" "s are")) (let* ((c3 (- c1 c2)) (c4 (cond ((>= (abs c3) 1048576) (inexact->exact (ceiling (/ (abs c3) 1048576)))) ((>= (abs c3) 1024) (inexact->exact (ceiling (/ (abs c3) 1024)))) (else (abs c3)))) (c5 (cond ((>= (abs c3) 1048576) "M") ((>= (abs c3) 1024) "K") (else "")))) (unless (zero? c3) (notify "~s~a byte~a too ~a" c4 c5 (if (= (abs c3) 1) "" "s") (if (negative? c3) "few" "many"))))))) (define (print-number-of-call-sites-that-dispatch-on-clones) (let ((n (count-if (lambda (x) (and (executed? x) (let ((us (members (expression-type-set (expression-callee x))))) (some (lambda (u1) (some (lambda (u2) (and (not (eq? u1 u2)) (native-procedure-type? u1) (called? u1) (native-procedure-type? u2) (called? u2) (wide-clones? u1 u2))) us)) us)))) ;; needs work: Doesn't handle implicit call sites. *calls*))) (notify "~s call site~a on clones" n (if (= n 1) " dispatches" "s dispatch")))) (define (print-maximal-non-let-lexical-nesting-depth) (notify "Maximal non-LET lexical nesting depth is ~s" (reduce max (map non-let-lexical-nesting-depth (remove-if-not environment-used? *es*)) 0))) (define (print-maximal-clone-rate) (notify "Maximal clone rate is ~s" (reduce max (map length (equivalence-classesq (map wide-prototype (remove-if-not environment-used? *es*)))) 0))) (define (print-clone-rates) (for-each (lambda (e) (notify "~a ~a ~a ~a" (number->string-of-length (lexical-nesting-depth e) 5) (number->string-of-length (non-let-lexical-nesting-depth e) 5) (number->string-of-length (count-if called? (wide-clones e)) 5) (environment-name e))) (remove-if-not environment-used? *es*))) (define (print-escaping-type-counts) (let ((n (reduce + (map (lambda (e) (if (eq? (environment-escaping-types e) (unspecified)) 0 (count-if native-procedure-type? (environment-escaping-types e)))) *es*) 0))) (notify "~s escaping native procedure type~a" n (if (= n 1) "" "s"))) (let ((n (reduce + (map (lambda (e) (if (eq? (environment-escaping-types e) (unspecified)) 0 (count-if continuation-type? (environment-escaping-types e)))) *es*) 0))) (notify "~s escaping continuation type~a" n (if (= n 1) "" "s"))) (let ((n (reduce + (map (lambda (e) (if (eq? (environment-escaping-types e) (unspecified)) 0 (count-if string-type? (environment-escaping-types e)))) *es*) 0))) (notify "~s escaping string type~a" n (if (= n 1) "" "s"))) (let ((n (reduce + (map (lambda (e) (if (eq? (environment-escaping-types e) (unspecified)) 0 (count-if structure-type? (environment-escaping-types e)))) *es*) 0))) (notify "~s escaping structure type~a" n (if (= n 1) "" "s"))) (let ((n (reduce + (map (lambda (e) (if (eq? (environment-escaping-types e) (unspecified)) 0 (count-if headed-vector-type? (environment-escaping-types e)))) *es*) 0))) (notify "~s escaping headed vector type~a" n (if (= n 1) "" "s"))) (let ((n (reduce + (map (lambda (e) (if (eq? (environment-escaping-types e) (unspecified)) 0 (count-if nonheaded-vector-type? (environment-escaping-types e)))) *es*) 0))) (notify "~s escaping nonheaded vector type~a" n (if (= n 1) "" "s"))) (let ((n (reduce + (map (lambda (e) (if (eq? (environment-escaping-types e) (unspecified)) 0 (length (environment-escaping-types e)))) *es*) 0))) (notify "~s total escaping type~a" n (if (= n 1) "" "s")))) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/source/stalin4a.sc0000600017435200151030000037216310464434544014763 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; Stalin 0.11 - A global optimizing compiler for Scheme ;;; Copyright 1993, 1994, and 1995 University of Toronto. All rights reserved. ;;; Copyright 1996 Technion. All rights reserved. ;;; Copyright 1996 and 1997 University of Vermont. All rights reserved. ;;; Copyright 1997, 1998, 1999, 2000, and 2001 NEC Research Institute, Inc. All ;;; rights reserved. ;;; Copyright 2002, 2003, 2004, 2005, and 2006 Purdue University. All rights ;;; reserved. ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License ;;; as published by the Free Software Foundation; either version 2 ;;; of the License, or (at your option) any later version. ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;;; written by: ;;; Jeffrey Mark Siskind ;;; School of Electrical and Computer Engineering ;;; Purdue University ;;; Electrical Engineering Building, Room 330 ;;; 465 Northwestern Avenue ;;; West Lafayette IN 47907-2035 USA ;;; voice: 765/496-3197 ;;; fax: 765/494-6440 ;;; qobi@purdue.edu ;;; http://www.ece.purdue.edu/~qobi ;;; Begin delete for Trotsky (module stalin4a) (include "QobiScheme.sch") (include "stalin4a.sch") ;;; End delete for Trotsky ;;; Architecture parameters ;;; needs work: Character constants, string constants, and ARGV will screw up ;;; if *CHAR* is not "char". Exact integer constants will screw up ;;; if *FIXNUM* is not "int". Inexact constants will screw up if ;;; *FLONUM* is not "double". Subscript constants will screw up if ;;; *LENGTH* is not "int". Type constants will screw up if *TAG* is ;;; not "int". (define *char* #f) (define *fixnum* #f) (define *flonum* #f) (define *length* #f) (define *tag* #f) (define *squished* #f) (define *signed-squished* #f) (define *file* #f) (define *jmpbuf* #f) (define *char-alignment* #f) (define *fixnum-alignment* #f) (define *flonum-alignment* #f) ;;; This is a limitation. We can only generate code on architectures where ;;; all pointers have the same alignment. (define *pointer-alignment* #f) (define *length-alignment* #f) (define *tag-alignment* #f) (define *squished-alignment* #f) (define *file-alignment* #f) (define *jmpbuf-alignment* #f) (define *char-size* #f) (define *fixnum-size* #f) (define *flonum-size* #f) ;;; This is a limitation. We can only generate code on architectures where ;;; all pointers have the same size. (define *pointer-size* #f) (define *length-size* #f) (define *tag-size* #f) (define *squished-size* #f) ;;; For AIX (define *include-malloc-for-alloca?* #f) ;;; Derived alignments (define *worst-alignment* #f) (define *allocation-alignment* #f) ;;; Alignment check flags (define *char-alignment?* #f) (define *fixnum-alignment?* #f) (define *flonum-alignment?* #f) (define *rectangular-alignment?* #f) (define *void*-alignment?* #f) (define *char*-alignment?* #f) (define *file*-alignment?* #f) (define *jmpbuf*-alignment?* #f) (define *length-alignment?* #f) (define *tag-alignment?* #f) (define *squished-alignment?* #f) (define *file-alignment?* #f) (define *jmpbuf-alignment?* #f) ;;; Size check flags (define *char-size?* #f) (define *fixnum-size?* #f) (define *flonum-size?* #f) (define *rectangular-size?* #f) (define *void*-size?* #f) (define *char*-size?* #f) (define *file*-size?* #f) (define *jmpbuf*-size?* #f) (define *length-size?* #f) (define *tag-size?* #f) (define *squished-size?* #f) (define *uss* #f) (define *strings* #f) (define *symbols* #f) (define *outside-main* #f) (define *inside-main* #f) (define *outside-body* #f) (define *discard* #f) ;;; C surface-syntax predicates and accessors ;;; needs work: To replace the calls to LIST? and LENGTH in the following with ;;; more efficient code: (define (c:noop? c) (or (and (pair? c) (c:noop? (car c)) (c:noop? (cdr c))) (null? c) (and (string? c) (zero? (string-length c))))) (define (c:whitespace? c) (or (and (pair? c) (c:whitespace? (car c)) (c:whitespace? (cdr c))) (null? c) (and (char? c) (char=? c #\newline)) (and (string? c) (or (string=? c "") (string=? c " "))))) (define (c:/**/? c) (or (c:whitespace? c) (and (pair? c) (c:/**/? (car c)) (c:/**/? (cdr c))) (and (list? c) (= (length c) 3) (string? (first c)) (string=? (first c) "/*") (string? (second c)) (string=? (second c) " ") (list? (third c)) (= (length (third c)) 3) (string? (first (third c))) (string? (second (third c))) (string=? (second (third c)) " ") (string? (third (third c))) (string=? (third (third c)) "*/")))) (define (c:declaration? c) (and (list? c) (= (length c) 4) (eq? (first c) 'c:declaration))) (define (c:protect? c) (and (list? c) (= (length c) 2) (eq? (first c) 'c:protect))) (define (c:protected? c) (or (eq? c 'c:protect) (and (pair? c) (or (c:protected? (car c)) (c:protected? (cdr c)))))) (define (c:no-return? c) (and (list? c) (= (length c) 2) (eq? (first c) 'c:no-return))) (define (c:parentheses? c) (or (and (c:no-return? c) (c:parentheses? (second c))) (and (c:protect? c) (c:parentheses? (second c))) (and (list? c) (= (length c) 3) (string? (first c)) (string=? (first c) "(") (string? (third c)) (string=? (third c) ")")))) (define (c:strip c) (cond ((c:no-return? c) (c:strip (second c))) ((c:protect? c) (c:strip (second c))) ((c:parentheses? c) (c:strip (second c))) (else c))) (define (c:match? c1 c2) (define (c:match c1 c2) (define (augment variable variables) ;; conventions: VARIABLE VARIABLES (cond ((eq? variables #f) #f) ((member variable variables) variables) ((some (lambda (other-variable) ;; conventions: OTHER-VARIABLE (equal? (car variable) (car other-variable))) variables) #f) (else (cons variable variables)))) (define (merge variables1 variables2) ;; conventions: VARIABLE1 VARIABLE2 (cond ((eq? variables1 #f) #f) ((null? variables1) variables2) (else (merge (rest variables1) (augment (first variables1) variables2))))) (cond ((or (and (char? c1) (char? c2) (char=? c1 c2)) (and (string? c1) (string? c2) (string=? c1 c2)) (and (number? c1) (number? c2) (= c1 c2)) (and (null? c1) (null? c2)) (and (symbol? c1) (symbol? c2) (eq? c1 c2))) '()) ((and (pair? c1) (pair? c2)) (if (and (string? (car c1)) (string? (car c2)) (string=? (car c1) "t") (string=? (car c2) "t") (pair? (cdr c1)) (pair? (cdr c2)) (integer? (cadr c1)) (integer? (cadr c2)) (null? (cddr c1)) (null? (cddr c2))) (list (cons c1 c2)) (merge (c:match (car c1) (car c2)) (c:match (cdr c1) (cdr c2))))) (else #f))) (not (eq? (c:match c1 c2) #f))) (define (c:assignment? c) (and (list? c) (= (length c) 2) (list? (first c)) (= (length (first c)) 2) (eq? (first (first c)) 'c:protect) (list? (second (first c))) (= (length (second (first c))) 3) (string? (second (second (first c)))) (string=? (second (second (first c))) " ") (list? (third (second (first c)))) (= (length (third (second (first c)))) 3) (string? (first (third (second (first c))))) (string=? (first (third (second (first c)))) "=") (string? (second (third (second (first c))))) (string=? (second (third (second (first c)))) " ") (string? (second c)) (string=? (second c) ";"))) (define (c:atomic-t? c) (and (list? c) (= (length c) 2) (string? (first c)) (string=? (first c) "t") (string? (second c)))) (define (c:t? c) (or (and (list? c) (= (length c) 2) (string? (first c)) (string=? (first c) "t") (string? (second c))) (and (list? c) (= (length c) 3) (c:t? (first c)) (string? (second c)) (string=? (second c) ".")))) (define (c:atomic-t c) (if (and (list? c) (= (length c) 3) (c:t? (first c)) (string? (second c)) (string=? (second c) ".")) (c:atomic-t (first c)) c)) (define (c:assignment-to-temporary? c) (and (c:assignment? c) (c:t? (first (second (first c)))))) (define (c:unprotected-assignment-to-atomic-temporary? c) (and (c:assignment? c) (c:atomic-t? (first (second (first c)))) (not (c:protected? (third (third (second (first c)))))))) (define (c:label? c) (and (list? c) (= (length c) 2) (list? (first c)) (= (length (first c)) 2) (string? (first (first c))) (or (string=? (first (first c)) "h") (string=? (first (first c)) "l") (string=? (first (first c)) "x")) (string? (second (first c))) (string? (second c)) (string=? (second c) ":"))) ;;; C surface-syntax constructors (define (outside-main c) (unless (c:noop? c) (set! *outside-main* (cons c *outside-main*)))) (define (inside-main c) (unless (c:noop? c) ;; needs work: To replace the call to LIST? and LENGTH in the following with ;; more efficient code: (cond ((and (list? c) (= (length c) 3) (char? (second c)) (char=? (second c) #\newline)) (inside-main (first c)) (inside-main (third c))) (else (set! *inside-main* (cons c *inside-main*)))))) (define (outside-body c) (unless (c:noop? c) (set! *outside-body* (cons c *outside-body*)))) (define (c:protect c) (list 'c:protect c)) (define (c:no-return c) (list 'c:no-return c)) (define (spaces-between cs) (define (space-between c1 c2) (cond ((c:noop? c1) c2) ((c:noop? c2) c1) (else (list c1 " " c2)))) (if (null? cs) "" (space-between (first cs) (spaces-between (rest cs))))) (define (space-between . cs) (spaces-between cs)) (define (commas-between cs) (define (comma-between c1 c2) (cond ((c:noop? c1) c2) ((c:noop? c2) c1) (else (list c1 ", " c2)))) (if (null? cs) "" (comma-between (first cs) (commas-between (rest cs))))) (define (comma-between . cs) (commas-between cs)) (define (newlines-between cs) (define (newline-between c1 c2) (cond ((c:noop? c1) c2) ((c:noop? c2) c1) (else (list c1 #\newline c2)))) (if (null? cs) "" (newline-between (first cs) (newlines-between (rest cs))))) (define (newline-between . cs) (newlines-between cs)) (define (braces-around c) (define (c:ends-in-colon? c) (or (and (pair? c) (or (c:ends-in-colon? (cdr c)) (and (c:ends-in-colon? (car c)) (c:/**/? (cdr c))))) (and (string? c) (string=? c ":")))) ;; ANSI C doesn't allow "label:}" (list "{" (if (c:ends-in-colon? c) (semicolon-after c) c) "}")) (define (unparenthesize c) (cond ((c:no-return? c) (c:no-return (unparenthesize (second c)))) ((c:protect? c) (c:protect (unparenthesize (second c)))) ((c:parentheses? c) (unparenthesize (second c))) (else c))) (define (parentheses-around c) (list "(" (unparenthesize c) ")")) (define (semicolon-after c) (list (unparenthesize c) ";")) (define (colon-after c) (list c ":")) (define (star-before c) (list "*" c)) ;;; C declaration constructors (define (c:declaration w c c1) (let ((c (if (c:protect? c) (second c) c))) (list 'c:declaration c (if (c:noop? c1) (semicolon-after (c:type-set w c)) (space-between (semicolon-after (c:type-set w c)) (c:/**/ c1))) #f))) ;;; C expression constructors (define (c:initialize-constants i) (list "initialize_constants" (number->string i))) (define (c:main) "main") (define (c:argc) "argc") (define (c:argv) "argv") (define (c:escape c) (cond ((char=? c #\newline) "\\n") ((char=? c #\') "\\'") ((char=? c #\") "\\\"") ((char=? c #\\) "\\\\") (else (string c)))) (define (c:character c) (list "'" (c:escape c) "'")) (define (c:fixnum c) (number->string c)) (define (c:flonum c) (number->string c)) (define (c:string c) (cond (*align-strings?* (unless (memp string=? c *strings*) (set! *strings* (append *strings* (list c))) (outside-main ;; needs work: needs abstraction for initialized declaration (semicolon-after (space-between "union" (braces-around (space-between (semicolon-after (space-between *char* (c:raw-subscript "string" (number->string (+ (string-length c) 1))))) (semicolon-after (space-between *fixnum* "align")))) (unparenthesize (c:= (list "string" (number->string (positionp string=? c *strings*))) (braces-around (braces-around (commas-between (append (map (lambda (c) (number->string (char->integer c))) (string->list c)) (list (c:0)))))))))))) (c:& (c:. (list "string" (number->string (positionp string=? c *strings*))) (c:raw-subscript "string" (c:0))))) (else (list "\"" (map c:escape (string->list c)) "\"")))) (define (c:subscript c1 c2) (parentheses-around (c:protect (list c1 "[" (unparenthesize c2) "]")))) (define (c:raw-subscript c1 c2) (list c1 "[" (unparenthesize c2) "]")) (define (c:= c1 c2) (parentheses-around (c:protect (space-between (unparenthesize c1) "=" (unparenthesize c2))))) (define (c:call c . cs) (list c (parentheses-around (commas-between cs)))) (define (c:sizeof c) (c:call "sizeof" c)) (define (c:alignof c) (include! "stddef") ;offsetof (c:call "offsetof" (list "struct" (braces-around (space-between (semicolon-after (space-between "char" "dummy")) (semicolon-after (c "probe"))))) "probe")) (define (c:cast c1 c2) (parentheses-around (list (parentheses-around c1) c2))) (define (c:unsigned-char-cast c) (c:cast (space-between "unsigned" "char") c)) ;;; needs work: Calls to this might need checks for -On. (define (c:fixnum-cast c) (c:cast *fixnum* c)) (define (c:flonum-cast c) (c:cast *flonum* c)) (define (c:void*-cast c) (c:cast (space-between "void" "*") c)) (define (c:fixnum*-cast c) (c:cast (space-between *fixnum* "*") c)) (define (c:char*-cast c) (c:cast (space-between *char* "*") c)) (define (c:file*-cast c) (include! "stdio") ;FILE (c:cast (space-between *file* "*") c)) (define (c:boolean-or . cs) ;; note: This can't be c:|| becaust this is not allowed by the Scheme reader. (parentheses-around (let loop ((cs cs)) (cond ((null? cs) (fuck-up)) ((null? (rest cs)) (first cs)) (else (list (first cs) "||" (loop (rest cs)))))))) (define (c:&& . cs) (parentheses-around (let loop ((cs cs)) (cond ((null? cs) (fuck-up)) ((null? (rest cs)) (first cs)) (else (list (first cs) "&&" (loop (rest cs)))))))) (define (unary c1 c2) (parentheses-around (list c1 c2))) (define (binary c1 c2 c3) (parentheses-around (list c1 c2 c3))) (define (c:?: c1 c2 c3) (parentheses-around (list c1 "?" c2 ":" c3))) ;; needs work: To distinguish between signed and unsigned and int and long int. (define (c:0) "0") ;; needs work: To distinguish between float, double, and long double. (define (c:0.0) "0.0") ;; needs work: To distinguish between signed and unsigned and int and long int. (define (c:1) "1") ;; needs work: To distinguish between float, double, and long double. (define (c:1.0) "1.0") ;; needs work: To distinguish between signed and unsigned and int and long int. (define (c:256) "256") ;; needs work: To distinguish between char and wchar_t. (define (c:nul) "'\\0'") (define (c:null) (include! "stdlib") ;NULL "NULL") (define (c:eof) (include! "stdio") ;EOF "EOF") (define (c:. c1 c2) (if (let ((c1 (c:strip c1))) ;; needs work: To replace the calls to LIST? and LENGTH in the ;; following with more efficient code: (and (list? c1) (= (length c1) 3) (string? (second c1)) (or (string=? (second c1) ".") (string=? (second c1) "->")))) (binary (unparenthesize c1) "." c2) (binary c1 "." c2))) (define (c:-> c1 c2) (c:protect (if (let ((c1 (c:strip c1))) ;; needs work: To replace the calls to LIST? and LENGTH in the ;; following with more efficient code: (and (list? c1) (= (length c1) 3) (string? (second c1)) (or (string=? (second c1) ".") (string=? (second c1) "->")))) (binary (unparenthesize c1) "->" c2) (binary c1 "->" c2)))) (define (c:== c1 c2) (binary c1 "==" c2)) (define (c:==0 c) (c:== c (c:0))) (define (c:==0.0 c) (c:== c (c:0.0))) (define (c:==infinity c) (include! "math") ;HUGE_VAL (c:== c "HUGE_VAL")) (define (c:==null c) (c:== c (c:null))) (define (c:==eof c) (c:== c (c:eof))) (define (c:!= c1 c2) (binary c1 "!=" c2)) (define (c:!=0 c) (c:!= c (c:0))) (define (c:!=0.0 c) (c:!= c (c:0.0))) (define (c:< c1 c2) (binary c1 "<" c2)) (define (c:<0 c) (c:< c (c:0))) (define (c:<0.0 c) (c:< c (c:0.0))) (define (c:> c1 c2) (binary c1 ">" c2)) (define (c:>0 c) (c:> c (c:0))) (define (c:>0.0 c) (c:> c (c:0.0))) (define (c:<= c1 c2) (binary c1 "<=" c2)) (define (c:>= c1 c2) (binary c1 ">=" c2)) ;;; needs work: Calls to this might need checks for -On. (define (c:+ c1 c2) (if (equal? c2 "0") c1 (binary c1 "+" c2))) ;;; needs work: Calls to this might need checks for -On. (define (c:- c . cs) (when (> (length cs) 1) (fuck-up)) (cond ((null? cs) (unary "-" c)) ((equal? (first cs) "0") c) (else (binary c "-" (first cs))))) ;;; needs work: Calls to this might need checks for -On. (define (c:* c . cs) (when (> (length cs) 1) (fuck-up)) (if (null? cs) (unary "*" c) (binary c "*" (first cs)))) (define (c:/ c1 c2) (binary c1 "/" c2)) (define (c:% c1 c2) ;; needs work: The % operator in C is implementation dependent for negative ;; arguments. (binary c1 "%" c2)) ;;; needs work: Calls to this might need checks for -On. (define (c:<< c1 c2) (if (equal? c2 "0") c1 (binary c1 "<<" c2))) ;;; needs work: Calls to this might need checks for -On. (define (c:>> c1 c2) ;; needs work: The >> operator in C is implementation dependent for negative ;; arguments. (if (equal? c2 "0") c1 (binary c1 ">>" c2))) (define (c:& c . cs) (when (> (length cs) 1) (fuck-up)) (if (null? cs) (unary "&" c) (binary c "&" (first cs)))) (define (c:bitwise-or c1 c2) ;; note: This can't be c:| because this is not allowed by the Scheme reader. (if (equal? c2 "0") c1 (binary c1 "|" c2))) (define (c:^ c1 c2) (binary c1 "^" c2)) (define (c:~ c) (unary "~" c)) (define (c:! c) (unary "!" c)) ;;; needs work: Calls to this might need checks for -On. (define (c:++ c) (parentheses-around (c:protect (list c "++")))) ;;; C statement constructors (define (c:/**/ c) (space-between "/*" c "*/")) (define (c:define c1 c2) (space-between "#define" c1 c2)) (define (c:noop) "") (define (c::= c1 c2) (semicolon-after (c:= c1 c2))) ;;; needs work: Calls to this might need checks for -On. (define (c:+= c1 c2) (semicolon-after (c:protect (space-between (unparenthesize c1) "+=" (unparenthesize c2))))) (define (c:: c) (colon-after c)) (define (c:goto c) (c:no-return (semicolon-after (space-between "goto" c)))) (define (c:header c . cs) (if (null? cs) (list c (parentheses-around "void")) (list c (parentheses-around (commas-between cs))))) (define (c:prototype c . cs) (semicolon-after (apply c:header c cs))) (define (c:noreturn-prototype c . cs) (set! *c:noreturn?* #t) (semicolon-after (space-between (apply c:header c cs) "NORETURN"))) (define (c:gosub c . cs) (semicolon-after (c:protect (apply c:call c cs)))) (define (c:return . cs) (when (> (length cs) 1) (fuck-up)) (c:no-return (semicolon-after (if (null? cs) "return" (space-between "return" (unparenthesize (first cs))))))) (define (strict-operator c1 c2) (if (let loop ((c2 c2)) (cond ((c:no-return? c2) (loop (second c2))) ((c:protect? c2) (loop (second c2))) ;; needs work: To replace the calls to LIST? and LENGTH in the ;; following with more efficient code: (else (or (and (list? c2) (= (length c2) 3) (char? (second c2)) (char=? (second c2) #\newline)) (and (list? c2) (list? (first c2)) (string? (first (first c2))) (or (string=? (first (first c2)) "if") (string=? (first (first c2)) "switch"))))))) (newline-between c1 (braces-around c2)) (space-between c1 c2))) (define (operator c1 c2) (if (let loop ((c2 c2)) (cond ((c:no-return? c2) (loop (second c2))) ((c:protect? c2) (loop (second c2))) ;; needs work: To replace the calls to LIST? and LENGTH in the ;; following with more efficient code: (else (and (list? c2) (= (length c2) 3) (char? (second c2)) (char=? (second c2) #\newline) (or (not (list? (first c2))) (not (string? (first (first c2)))) (and (not (string=? (first (first c2)) "if")) (not (string=? (first (first c2)) "switch")))))))) (newline-between c1 (braces-around c2)) (space-between c1 c2))) (define (c:while c1 c2) (operator (space-between "while" (parentheses-around c1)) c2)) (define (c:for c1 c2 c3 c4) (operator (space-between "for" (parentheses-around (space-between (semicolon-after (unparenthesize c1)) (semicolon-after (unparenthesize c2)) (unparenthesize c3)))) c4)) (define (c:if c1 c2 c3 p?) (if (c:match? c2 c3) (if p? (newline-between (semicolon-after c1) c2) c2) (if (c:/**/? c2) (if (c:/**/? c3) (if p? (semicolon-after c1) (c:noop)) ;; note: This assumes that C:! wraps in parentheses. (operator (space-between "if" (c:! (parentheses-around c1))) c3)) (if (c:/**/? c3) (operator (space-between "if" (parentheses-around c1)) c2) (if (c:no-return? c2) (if (c:no-return? c3) (c:no-return (newline-between (strict-operator (space-between "if" (parentheses-around c1)) c2) (operator "else" c3))) (newline-between (strict-operator (space-between "if" (parentheses-around c1)) c2) c3)) (if (c:no-return? c3) (newline-between (strict-operator ;; note: This assumes that C:! wraps in parentheses. (space-between "if" (c:! (parentheses-around c1))) c3) c2) (if (and (c:assignment? c2) (c:assignment? c3) (equal? (first (second (first c2))) (first (second (first c3))))) (c::= (first (second (first c2))) (c:?: c1 (third (third (second (first c2)))) (third (third (second (first c3)))))) (newline-between (strict-operator (space-between "if" (parentheses-around c1)) c2) (operator "else" c3))))))))) (define (equate-cases cs1 cs2) (transitive-equivalence-classesp (lambda (pair1 pair2) ;; conventions: PAIR1 PAIR2 (c:match? (second pair1) (second pair2))) (map list cs1 cs2))) (define (c:default c) (newline-between (colon-after "default") c)) (define (c:switch c1 cs2 cs3 c4 p?) (let ((cases (transitive-equivalence-classesp (lambda (pair1 pair2) ;; conventions: PAIR1 PAIR2 (c:match? (second pair1) (second pair2))) (cons (list (colon-after "default") c4) (map (lambda (c2 c3) (list (colon-after (space-between "case" c2)) c3)) cs2 cs3))))) ;; conventions: CASES (when (null? cases) (fuck-up)) (if (null? (rest cases)) ;; note: Technically we would need to prepend an evaluation of C1 but ;; we don't since SWITCH is always called as a type switch and the ;; antecedent can't do any side effects, diverge, or cause an ;; error. (second (first (first cases))) (let ((the-case (find-if (lambda (pairs) ;; conventions: PAIRS (some (lambda (pair) ;; conventions: PAIR (equal? (first pair) (colon-after "default"))) pairs)) cases))) ;; conventions: THE-CASE (if (and (null? (rest (removeq the-case cases))) (null? (rest (first (removeq the-case cases))))) (if p? (c:if (c:== c1 (third (first (first (first (first (removeq the-case cases))))))) (second (first (first (removeq the-case cases)))) (second (first the-case)) #f) (newline-between (c:if (c:== c1 (third (first (first (first (first (removeq the-case cases))))))) (second (first (first (removeq the-case cases)))) (c:noop) #f) (second (first the-case)))) (newline-between (space-between "switch" (parentheses-around c1)) (braces-around (newline-between (newlines-between (map (lambda (pairs) ;; conventions: PAIRS (newline-between (newlines-between (map first pairs)) (second (first pairs)) (if p? (semicolon-after "break") (c:noop)))) (removeq the-case cases))) (c:default (second (first the-case))))))))))) (define (c:defaultless-switch c1 cs2 cs3 p?) ;; Defaultless here means not that the default is a noop but rather that the ;; compiler guarantees that the default will never be taken so that the ;; default can be reallocated to one of the cases. (let ((cases (transitive-equivalence-classesp (lambda (pair1 pair2) ;; conventions: PAIR1 PAIR2 (c:match? (second pair1) (second pair2))) (map (lambda (c2 c3) (list (colon-after (space-between "case" c2)) c3)) cs2 cs3)))) ;; conventions: CASES (when (null? cases) (fuck-up)) (if (null? (rest cases)) ;; note: Technically we would need to prepend an evaluation of C1 but ;; we don't since SWITCH is always called as a type switch and the ;; antecedent can't do any side effects, diverge, or cause an ;; error. (second (first (first cases))) ;; Choose the case with the greatest number of pairs to be the default. ;; Note that MINP is being used to compute the maximal member here. (let ((the-case (minp (lambda (case1 case2) ;; conventions: CASE1 CASE2 (> (length case1) (length case2))) cases))) ;; conventions: THE-CASE (if (and (null? (rest (removeq the-case cases))) (null? (rest (first (removeq the-case cases))))) (if p? (c:if (c:== c1 (third (first (first (first (first (removeq the-case cases))))))) (second (first (first (removeq the-case cases)))) (second (first the-case)) #f) (newline-between (c:if (c:== c1 (third (first (first (first (first (removeq the-case cases))))))) (second (first (first (removeq the-case cases)))) (c:noop) #f) (second (first the-case)))) (newline-between (space-between "switch" (parentheses-around c1)) (braces-around (newline-between (newlines-between (map (lambda (pairs) ;; conventions: PAIRS (newline-between (newlines-between (map first pairs)) (second (first pairs)) (if p? (semicolon-after "break") (c:noop)))) (removeq the-case cases))) (c:default (second (first the-case))))))))))) ;;; C type constructors (define (c:byte) "char") ;;; C function call constructors (define (c:rint c) (include! "math") ;rint (c:call "rint" c)) (define (c:floor c) (include! "math") ;floor (c:call "floor" c)) (define (c:ceil c) (include! "math") ;ceil (c:call "ceil" c)) (define (c:exp c) (include! "math") ;exp (c:call "exp" c)) (define (c:log c) (include! "math") ;log (c:call "log" c)) (define (c:sin c) (include! "math") ;sin (c:call "sin" c)) (define (c:cos c) (include! "math") ;cos (c:call "cos" c)) (define (c:tan c) (include! "math") ;tan (c:call "tan" c)) (define (c:asin c) (include! "math") ;asin (c:call "asin" c)) (define (c:acos c) (include! "math") ;acos (c:call "acos" c)) (define (c:atan c) (include! "math") ;atan (c:call "atan" c)) (define (c:atan2 c1 c2) (include! "math") ;atan2 (c:call "atan2" c1 c2)) (define (c:sqrt c) (include! "math") ;sqrt (c:call "sqrt" c)) (define (c:pow c1 c2) (include! "math") ;pow (c:call "pow" c1 c2)) (define (c:setjmp c) (include! "setjmp") ;setjmp (c:protect (c:call "setjmp" c))) (define (c:longjmp c1 c2) (include! "setjmp") ;longjmp (c:gosub "longjmp" c1 c2)) (define (c:fopen c1 c2) (include! "stdio") ;fopen (c:protect (c:call "fopen" c1 c2))) (define (c:fclose c) (include! "stdio") ;fclose (c:protect (c:call "fclose" c))) (define (c:getc c) (include! "stdio") ;getc (c:protect (c:call "getc" c))) (define (c:ungetc c1 c2) (include! "stdio") ;ungetc (c:protect (c:call "ungetc" c1 c2))) (define (c:putc c1 c2) (include! "stdio") ;putc (c:gosub "putc" c1 c2)) (define (c:printf . cs) (include! "stdio") ;printf (apply c:gosub "printf" cs)) (define (c:malloc c p?) (cond (*treadmarks?* (include! "Tmk") ;Tmk_malloc (c:protect (c:call "Tmk_malloc" c))) (*program-has-heap?* (cond (p? (include! "gc") ;GC_malloc_uncollectable (c:protect (c:call "GC_malloc_uncollectable" c))) (else (include! "gc") ;GC_malloc_atomic_uncollectable (c:protect (c:call "GC_malloc_atomic_uncollectable" c))))) (else (include! "malloc") ;malloc (c:protect (c:call "malloc" c))))) (define (c:gc-malloc c) (when *treadmarks?* (fuck-up)) (include! "gc") ;GC_malloc (c:protect (c:call "GC_malloc" c))) (define (c:gc-malloc-atomic c) (when *treadmarks?* (fuck-up)) (include! "gc") ;GC_malloc_atomic (c:protect (c:call "GC_malloc_atomic" c))) (define (c:free c p?) (cond (*treadmarks?* (include! "Tmk") ;Tmk_free (c:gosub "Tmk_free" c)) (*program-has-heap?* (cond (p? (include! "gc") ;GC_free (c:gosub "GC_free" c)) (else (include! "gc") ;GC_free (c:gosub "GC_free" c)))) (else (include! "malloc") ;free (c:gosub "free" c)))) (define (c:alloca c) (when *treadmarks?* (fuck-up)) (include! (if *include-malloc-for-alloca?* "malloc" "alloca")) ;alloca (c:protect (c:call "alloca" c))) (define (c:gc-enable-incremental) (when *treadmarks?* (fuck-up)) (include! "gc") ;GC_enable_incremental (c:gosub "GC_enable_incremental")) (define (c:strlen c) (include! "string") ;strlen (c:call "strlen" c)) (define (c:exit c) (include! "stdlib") ;exit (c:gosub "exit" c)) (define (c:assert c) (include! "assert") ;assert (c:gosub "assert" c)) ;;; Stalin-specific code generation utilities (define (c:==struct c1 c2 u) (cond ((rectangular-type? u) (c:&& (c:== (c:r c1) (c:r c2)) (c:== (c:i c1) (c:i c2)))) ((native-procedure-type? u) (case *closure-representation* ((immediate-flat immediate-display) (apply c:&& (map (lambda (e) (c:== (c:. c1 (c:e e)) (c:. c2 (c:e e)))) (ancestors u)))) ((indirect-flat indirect-display linked) (c:== c1 c2)) (else (fuck-up)))) ;; Immediate structures should never be compared for EQ?-ness. ((and (or (nonheaded-vector-type? u) (displaced-vector-type? u)) (not (degenerate-vector-type? u))) (c:&& (c:== (c:. c1 "length") (c:. c2 "length")) (c:== (c:. c1 "elements") (c:. c2 "elements")))) (else (c:== c1 c2)))) (define (tag-only? w) (must-be? (lambda (u) (or (char-type? u) (fictitious? u))) w)) (define (has-union? w) (> (count-if-not (lambda (u) (or (char-type? u) (fictitious? u))) (members w)) 1)) (define (determine-which-type-sets-are-squeezable!) ;; needs work: This really depends on the architecture parameters. (for-each (lambda (w) (set-type-set-squeezable?! w (and (not (can-be? fixnum-type? w)) (not (can-be? flonum-type? w)) (not (can-be? rectangular-type? w)) (not (can-be? pointer-type? w)) (case *closure-representation* ((immediate-flat immediate-display) ;; needs work: Can be extended to allow squeezing a native procedure ;; with a closure that has a single slot or environment. (not (can-be? (lambda (u) (and (native-procedure-type? u) (not (fictitious? u)))) w))) ((indirect-flat indirect-display linked) #t) (else (fuck-up))) ;; needs work: Can be extended to allow squeezing a singleton ;; immediate structure if its slot is squeezed. (not (can-be? (lambda (u) (and (structure-type? u) (structure-type-immediate? u))) w)) (not (can-be? (lambda (u) (and (headed-vector-type? u) (degenerate-vector-type? u))) w)) (not (can-be? nonheaded-vector-type? w)) (not (can-be? displaced-vector-type? w)) (one (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) (members w))))) *ws*)) (define (squeezable? w) ;; needs work: This really depends on the architecture parameters. (for-each-member (lambda (u) (cond ((null-type? u) (set! *tag-size?* #t)) ((true-type? u) (set! *tag-size?* #t)) ((false-type? u) (set! *tag-size?* #t)) ((char-type? u) (set! *char-size?* #t)) ((fixnum-type? u) #f) ((flonum-type? u) #f) ((rectangular-type? u) #f) ((input-port-type? u) (include! "stdio") ;FILE (set! *file*-size?* #t)) ((output-port-type? u) (include! "stdio") ;FILE (set! *file*-size?* #t)) ((eof-object-type? u) (set! *tag-size?* #t)) ((pointer-type? u) (set! *void*-size?* #t)) ((internal-symbol-type? u) (set! *tag-size?* #t)) ((external-symbol-type? u) (set! *char*-size?* #t)) ((primitive-procedure-type? u) (set! *tag-size?* #t)) ((native-procedure-type? u) (if (fictitious? u) (set! *tag-size?* #t) (set-native-procedure-type-size?! u #t))) ((foreign-procedure-type? u) (set! *tag-size?* #t)) ((continuation-type? u) (cond ((fictitious? u) (set! *tag-size?* #t)) (else (include! "setjmp") ;jmp_buf (set! *jmpbuf*-size?* #t)))) ((string-type? u) (set! *char*-size?* #t)) ((structure-type? u) (cond ((fictitious? u) (set! *tag-size?* #t)) (else (unless (structure-type-immediate? u) (set-structure-type-size?! u #t))))) ((headed-vector-type? u) (unless (degenerate-vector-type? u) (set-headed-vector-type-size?! u #t))) ((nonheaded-vector-type? u) #f) ((displaced-vector-type? u) #f) (else (fuck-up)))) w) (type-set-squeezable? w)) (define (squeezed-member w) (unless (squeezed? w) (fuck-up)) (the-member-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) w)) (define (squeezed? w) (and *squeeze?* (not (fictitious? w)) (not (monomorphic? w)) (not (tag-only? w)) (squeezable? w))) (define (type-alignment& u) ;; This is only defined where U is a pointer type. This gives the alignment ;; of the object pointed to by U. In other words, this number is the minimum ;; number of low-order zeros bits in pointers of type U. (cond ((input-port-type? u) (set! *file-alignment?* #t) *file-alignment*) ((output-port-type? u) (set! *file-alignment?* #t) *file-alignment*) ((pointer-type? u) ;; This is worst case because you don't know what the pointer is pointing ;; to. (set! *char-alignment?* #t) *char-alignment*) ((external-symbol-type? u) (cond (*align-strings?* (set! *fixnum-alignment?* #t) *fixnum-alignment*) (else (set! *char-alignment?* #t) *char-alignment*))) ((native-procedure-type? u) (when (fictitious? u) (fuck-up)) (case *closure-representation* ((immediate-flat immediate-display) (fuck-up)) ((indirect-flat indirect-display linked) (set-native-procedure-type-alignment&?! u #t) (cond ((and (or (eq? *closure-conversion-method* 'baseline) (eq? *closure-conversion-method* 'conventional)) (or (not (environment? (native-procedure-type-narrow-prototype u))) (not (environment-used? (narrow-prototype u))) (not (environment? (parent-parameter u))) (not (environment-used? (parent-parameter u))))) (set! *fixnum-alignment?* #t) *fixnum-alignment*) (else (let ((e (parent-parameter u))) (if (has-parent-slot? e) ;; note: See the note in TYPE-ALIGNMENT. (max *pointer-alignment* (reduce ;; note: See the note in TYPE-ALIGNMENT. max (map (lambda (g) (type-set-alignment (variable-type-set g))) (remove-if-not slotted? (variables e))) ;; This should never happen. #f)) (reduce ;; note: See the note in TYPE-ALIGNMENT. max (map (lambda (g) (type-set-alignment (variable-type-set g))) (remove-if-not slotted? (variables e))) ;; This should never happen. #f)))))) (else (fuck-up)))) ((continuation-type? u) (when (fictitious? u) (fuck-up)) (set! *jmpbuf-alignment?* #t) *jmpbuf-alignment*) ((string-type? u) (cond (*align-strings?* (set! *fixnum-alignment?* #t) *fixnum-alignment*) (else (set! *char-alignment?* #t) *char-alignment*))) ((structure-type? u) (when (fictitious? u) (fuck-up)) ;; needs work: Can be extended to allow squishing a singleton immediate ;; structure if its slot is squished. (when (structure-type-immediate? u) (fuck-up)) (set-structure-type-alignment&?! u #t) (reduce ;; note: See the note in TYPE-ALIGNMENT. max (map type-set-alignment (remove-if fictitious? (structure-type-slots u))) ;; This should never happen. #f)) ((headed-vector-type? u) (when (degenerate-vector-type? u) (fuck-up)) (set-headed-vector-type-alignment&?! u #t) ;; note: See the note in TYPE-ALIGNMENT. (max *length-alignment* (type-set-alignment (headed-vector-type-element u)))) (else (fuck-up)))) (define (pointer-member? u) (and (not (char-type? u)) (not (fictitious? u)) (not (fixnum-type? u)) ;; needs work: Can be extended to allow squishing a singleton ;; immediate structure if its slot is squished. (not (degenerate-vector-type? u)))) (define (non-pointer-member? u) (not (pointer-member? u))) (define (no-pointer-members? w) (must-be? non-pointer-member? w)) (define (squish-alignment w) (if (no-pointer-members? w) ;; Type sets that do not have pointer members have no limit on the number ;; of members that are not fictitious because we tolerate an arbitrary ;; loss in range for non-pointer values. Remember that CHAR is fictitious. ;; In this case, allocate just enough squish tag bits to encode all of ;; the members that are not fictitious. But if there are a power-of-two ;; such members, allocate an extra squish tag bit because we can't assign ;; squish tag zero to a fixnum or a degenerate vector. (max (if (can-be-non? (lambda (u) (or (char-type? u) (fictitious? u))) w) (inexact->exact (ceiling (+ (/ (log (count-if (lambda (u) (or (fixnum-type? u) ;; needs work: Can be extended to allow ;; squishing a singleton ;; immediate structure if its ;; slot is squished. (degenerate-vector-type? u))) (members w))) (log 2.0)) 0.1))) 0) (type-set-minimal-alignment w)) ;; Type sets that do have pointer members have a limit on the number of ;; squish tag bits because pointers aren't shifted. The number of squish ;; tag bits is limited to the smallest number over all of the pointer ;; members. The reason is that there are ways that pointers can be ;; created where we have no control over the alignment. For example, ;; string, pair, and vector constants, alloca, malloc, GC_malloc, fopen, ;; stdin, and stdout. In fact, the only place where we do have control ;; over alignment is in the region allocator. (reduce min (map type-alignment& (members-that pointer-member? w)) ;; This can't happen if the type set is squished. #f))) (define (determine-which-type-sets-are-squishable!) ;; needs work: This really depends on the architecture parameters. ;; note: Squishing reduces the maximum magnitude of fixnums and the maximum ;; length of degenerate vectors. (for-each (lambda (w) (set-type-set-squishable?! w #t)) *ws*) (let loop () (let ((again? #f)) (for-each (lambda (w) (unless (and ;; A flonum can't be squished because it would result in a loss ;; of precision and a double might not fit in a pointer. ;; needs work: Floats can be squished on 64-bit architectures. (not (can-be? flonum-type? w)) ;; A rectangular can't be squished because it won't fit in a ;; pointer. (not (can-be? rectangular-type? w)) (case *closure-representation* ((immediate-flat immediate-display) ;; A native procedure with a closure can't be squished because ;; it might not fit in a pointer. ;; needs work: Can be extended to allow squishing a native ;; procedure with a closure that has a single ;; slot or environment. (not (can-be? (lambda (u) (and (native-procedure-type? u) (not (fictitious? u)))) w))) ((indirect-flat indirect-display linked) #t) (else (fuck-up))) ;; An immediate structure can't be squished because it might not ;; fit in a pointer and because some of its components might not ;; be squished. ;; needs work: Can be extended to allow squishing a singleton ;; immediate structure if its slot is squished. (not (can-be? (lambda (u) (and (structure-type? u) (structure-type-immediate? u))) w)) ;; A nondegenerate nonheaded vector can't be squished because it ;; might not fit in a pointer. (not (can-be? (lambda (u) (and (nonheaded-vector-type? u) (not (degenerate-vector-type? u)))) w)) ;; A nondegenerate displaced vector can't be squished because it ;; might not fit in a pointer. (not (can-be? (lambda (u) (and (displaced-vector-type? u) (not (degenerate-vector-type? u)))) w)) ;; There must be enough squish tag bits. (<= (count-if-not (lambda (u) (or (char-type? u) (fictitious? u))) (members w)) (expt 2 (squish-alignment w)))) (when (type-set-squishable? w) (set-type-set-squishable?! w #f) (set! again? #t)))) *ws*) (when again? (loop))))) (define (print-reasons-why-type-sets-are-not-squishable!) ;; needs work: This really depends on the architecture parameters. (for-each (lambda (w) (unless (squishable? w) (notify "W~a is general case for the following reasons:" (type-set-index w)) (when (can-be? flonum-type? w) (notify " flonum")) (when (can-be? rectangular-type? w) (notify " rectangular")) (when (and (or (eq? *closure-representation* 'immediate-flat) (eq? *closure-representation* 'immediate-display)) (can-be? (lambda (u) (and (native-procedure-type? u) (not (fictitious? u)))) w)) (notify " immediate native procedure")) (when (can-be? (lambda (u) (and (structure-type? u) (structure-type-immediate? u))) w) (notify " immediate structure")) (when (can-be? (lambda (u) (and (nonheaded-vector-type? u) (not (degenerate-vector-type? u)))) w) (notify " nondegenerate nonheaded vector")) (when (can-be? (lambda (u) (and (displaced-vector-type? u) (not (degenerate-vector-type? u)))) w) (notify " nondegenerate displaced vector")) (when (and (not (can-be? flonum-type? w)) (not (can-be? rectangular-type? w)) (not (and (or (eq? *closure-representation* 'immediate-flat) (eq? *closure-representation* 'immediate-display)) (can-be? (lambda (u) (and (native-procedure-type? u) (not (fictitious? u)))) w))) (not (can-be? (lambda (u) (and (structure-type? u) (structure-type-immediate? u))) w)) (not (can-be? (lambda (u) (and (nonheaded-vector-type? u) (not (degenerate-vector-type? u)))) w)) (not (can-be? (lambda (u) (and (displaced-vector-type? u) (not (degenerate-vector-type? u)))) w)) (> (count-if-not (lambda (u) (or (char-type? u) (fictitious? u))) (members w)) (expt 2 (squish-alignment w)))) (notify " insufficient squish tag bits (~s needed ~s available)" (inexact->exact (ceiling (/ (log (count-if-not (lambda (u) (or (char-type? u) (fictitious? u))) (members w))) (log 2)))) (squish-alignment w))))) *ws*)) (define (squishable? w) (for-each-member (lambda (u) (cond ((null-type? u) (set! *tag-size?* #t)) ((true-type? u) (set! *tag-size?* #t)) ((false-type? u) (set! *tag-size?* #t)) ((char-type? u) (set! *char-size?* #t)) ((fixnum-type? u) (set! *fixnum-size?* #t)) ((flonum-type? u) #f) ((rectangular-type? u) #f) ((input-port-type? u) (include! "stdio") ;FILE (set! *file*-size?* #t)) ((output-port-type? u) (include! "stdio") ;FILE (set! *file*-size?* #t)) ((eof-object-type? u) (set! *tag-size?* #t)) ((pointer-type? u) (set! *void*-size?* #t)) ((internal-symbol-type? u) (set! *tag-size?* #t)) ((external-symbol-type? u) (set! *char*-size?* #t)) ((primitive-procedure-type? u) (set! *tag-size?* #t)) ((native-procedure-type? u) (if (fictitious? u) (set! *tag-size?* #t) (set-native-procedure-type-size?! u #t))) ((foreign-procedure-type? u) (set! *tag-size?* #t)) ((continuation-type? u) (cond ((fictitious? u) (set! *tag-size?* #t)) (else (include! "setjmp") ;jmp_buf (set! *jmpbuf*-size?* #t)))) ((string-type? u) (set! *char*-size?* #t)) ((structure-type? u) (cond ((fictitious? u) (set! *tag-size?* #t)) (else (unless (structure-type-immediate? u) (set-structure-type-size?! u #t))))) ((headed-vector-type? u) (if (degenerate-vector-type? u) (set! *length-size?* #t) (set-headed-vector-type-size?! u #t))) ((nonheaded-vector-type? u) (when (degenerate-vector-type? u) (set! *length-size?* #t))) ((displaced-vector-type? u) (when (degenerate-vector-type? u) (set! *length-size?* #t))) (else (fuck-up)))) w) (set! *squished-size?* #t) (type-set-squishable? w)) (define (squished? w) (and (not (zero? *squished-size*)) (not (fictitious? w)) (not (monomorphic? w)) (not (tag-only? w)) (not (squeezed? w)) (squishable? w))) (define (general? w) (and (not (fictitious? w)) (not (monomorphic? w)) (not (tag-only? w)) (not (squeezed? w)) (not (squished? w)))) (define (determine-alignments!) (set! *worst-alignment* ;; note: See the note in TYPE-ALIGNMENT. (reduce max (map squish-alignment (remove-if-not squished? *ws*)) 0)) (set! *allocation-alignment* ;; note: See the note in TYPE-ALIGNMENT. (max ;; note: See the note in TYPE-ALIGNMENT. ;; At this point we no longer know which strings are non-reclaimable. (reduce max (map type-alignment& *string-types*) 0) (reduce ;; note: See the note in TYPE-ALIGNMENT. max (map type-alignment& (remove-if fictitious? (remove-if structure-type-immediate? *structure-types*))) 0) (reduce ;; note: See the note in TYPE-ALIGNMENT. max (map type-alignment& (remove-if degenerate-vector-type? *headed-vector-types*)) 0)))) (define (type-alignment u) (cond ((fixnum-type? u) (set! *fixnum-alignment?* #t) *fixnum-alignment*) ((flonum-type? u) (set! *flonum-alignment?* #t) *flonum-alignment*) ((rectangular-type? u) (set! *rectangular-alignment?* #t) ;; needs work: See the needs work below. ;; note: See the note below. *flonum-alignment*) ((input-port-type? u) (set! *file*-alignment?* #t) *pointer-alignment*) ((output-port-type? u) (set! *file*-alignment?* #t) *pointer-alignment*) ((pointer-type? u) (set! *void*-alignment?* #t) *pointer-alignment*) ((external-symbol-type? u) (set! *char*-alignment?* #t) *pointer-alignment*) ((native-procedure-type? u) (when (fictitious? u) (fuck-up)) (set-native-procedure-type-alignment?! u #t) ;; needs work: See the needs work below. ;; note: See the note below. *pointer-alignment*) ((continuation-type? u) (when (fictitious? u) (fuck-up)) (set! *jmpbuf*-alignment?* #t) *pointer-alignment*) ((string-type? u) (set! *char*-alignment?* #t) *pointer-alignment*) ((structure-type? u) (when (fictitious? u) (fuck-up)) (set-structure-type-alignment?! u #t) (if (structure-type-immediate? u) ;; needs work: I'm not sure but it may be the case that ;; struct {tau s0;} has different alignment and size ;; than tau. It also may be the case that something like ;; struct {char s0; char s1;} has different alignment ;; than char and different size than twice char. ;; note: (= (LG (LCM (EXPT 2 X) (EXPT 2 Y))) (MAX X Y)) (reduce max (map type-set-alignment (remove-if fictitious? (structure-type-slots u))) ;; This can't happen if the structure type is not fictitious. #f) *pointer-alignment*)) ((headed-vector-type? u) (cond ((degenerate-vector-type? u) (set! *length-alignment?* #t) *length-alignment*) (else (set-headed-vector-type-alignment?! u #t) *pointer-alignment*))) ((nonheaded-vector-type? u) (cond ((degenerate-vector-type? u) (set! *length-alignment?* #t) *length-alignment*) (else (set-nonheaded-vector-type-alignment?! u #t) ;; note: See the note above. (max *length-alignment* *pointer-alignment*)))) ((displaced-vector-type? u) (cond ((degenerate-vector-type? u) (set! *length-alignment?* #t) *length-alignment*) (else (set-displaced-vector-type-alignment?! u #t) ;; note: See the note above. (max *length-alignment* *pointer-alignment*)))) (else (case *closure-conversion-method* ((baseline conventional) (set! *fixnum-alignment?* #t) *fixnum-alignment*) ((lightweight) (fuck-up)) (else (fuck-up)))))) (define (type-set-alignment w) (cond ((fictitious? w) (fuck-up)) ((monomorphic? w) (cond ((char-type? (the-member w)) (set! *char-alignment?* #t) *char-alignment*) (else (type-alignment (the-member w))))) ((tag-only? w) (set! *tag-alignment?* #t) *tag-alignment*) ((squeezed? w) (type-alignment (squeezed-member w))) ((squished? w) (set! *squished-alignment?* #t) *squished-alignment*) (else (set-type-set-alignment?! w #t) (set! *tag-alignment?* #t) ;; needs work: See the needs work in TYPE-ALIGNMENT. ;; note: See the note in TYPE-ALIGNMENT. (max *tag-alignment* (reduce max (map type-alignment (members-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) w)) ;; This can't happen if the type set isn't fictitious, ;; monomorphic, or tag only. #f))))) (define (align s a) ;; conventions: S A ;; This adds the appropriate padding to S so that it can be followed by an ;; object with alignment A. (* (+ (quotient s (expt 2 a)) (if (zero? (remainder s (expt 2 a))) 0 1)) (expt 2 a))) (define (type-size u) (cond ((fixnum-type? u) (set! *fixnum-size?* #t) *fixnum-size*) ((flonum-type? u) (set! *flonum-size?* #t) *flonum-size*) ((rectangular-type? u) (set! *rectangular-size?* #t) ;; needs work: See the needs work in TYPE-ALIGNMENT. (align (+ (align *flonum-size* *flonum-alignment*) *flonum-size*) (type-alignment u))) ((input-port-type? u) (set! *file*-size?* #t) *pointer-size*) ((output-port-type? u) (set! *file*-size?* #t) *pointer-size*) ((pointer-type? u) (set! *void*-size?* #t) *pointer-size*) ((external-symbol-type? u) (set! *char*-size?* #t) *pointer-size*) ((native-procedure-type? u) (when (fictitious? u) (fuck-up)) (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((immediate-display) (set-native-procedure-type-size?! u #t) (let loop ((s 0) (n (length (ancestors u)))) ;; conventions: S N (if (zero? n) (align s (type-alignment u)) (loop (+ (align s *pointer-alignment*) *pointer-size*) (- n 1))))) ((indirect-flat indirect-display linked) (set-native-procedure-type-size?! u #t) *pointer-size*) (else (fuck-up)))) ((continuation-type? u) (when (fictitious? u) (fuck-up)) (set! *jmpbuf*-size?* #t) *pointer-size*) ((string-type? u) (set! *char*-size?* #t) *pointer-size*) ((structure-type? u) (set-structure-type-size?! u #t) (if (structure-type-immediate? u) (let loop ((s 0) (ws (structure-type-slots u))) ;; conventions: S (if (null? ws) (align s (type-alignment u)) (loop (if (fictitious? (first ws)) s (+ (align s (type-set-alignment (first ws))) (type-set-size (first ws)))) (rest ws)))) *pointer-size*)) ((headed-vector-type? u) (cond ((degenerate-vector-type? u) (set! *length-size?* #t) *length-size*) (else (set-headed-vector-type-size?! u #t) *pointer-size*))) ((nonheaded-vector-type? u) (cond ((degenerate-vector-type? u) (set! *length-size?* #t) *length-size*) (else (set-nonheaded-vector-type-size?! u #t) (align (+ (align *length-size* *pointer-alignment*) *pointer-size*) (type-alignment u))))) ((displaced-vector-type? u) (cond ((degenerate-vector-type? u) (set! *length-size?* #t) *length-size*) (else (set-displaced-vector-type-size?! u #t) (align (+ (align *length-size* *pointer-alignment*) *pointer-size*) (type-alignment u))))) (else (fuck-up)))) (define (type-set-size w) (cond ((fictitious? w) (fuck-up)) ((monomorphic? w) (cond ((char-type? (the-member w)) (set! *char-size?* #t) *char-size*) (else (type-size (the-member w))))) ((tag-only? w) (set! *tag-size?* #t) *tag-size*) ((squeezed? w) (type-size (squeezed-member w))) ((squished? w) (set! *squished-size?* #t) *squished-size*) (else (set! *tag-size?* #t) (set-type-set-size?! w #t) (align (+ (align *tag-size* ;; needs work: I'm not sure but it may be the case that ;; union {tau s0;} has different alignment and size ;; than tau. It also may be the case that something ;; like union {char s0; short s1;} has different ;; alignment than char or short and different size ;; than char max short. ;; note: See the note in TYPE-ALIGNMENT. (reduce max (map type-alignment (members-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) w)) ;; This can't happen if the type set isn't fictitious, ;; monomorphic, or tag only. #f)) (reduce max (map type-size (members-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) w)) ;; This can't happen if the type set isn't fictitious, ;; monomorphic, or tag only. #f)) (type-set-alignment w))))) (define (determine-which-types-are-atomic!) ;; A type is atomic if it cannot contain pointers that point directly or ;; indirectly to heap-allocated data. A heap-allocated type can be atomic. ;; needs work: There is a potential optimization here. One can treat pointers ;; to stack-allocated objects as atomic because the stack is scavanged. And ;; one can treat pointers to objects allocated on nonatomic regions as atomic ;; because regions allocated with GC_malloc_uncollectable are also scavanged. (for-each (lambda (u) (set-native-procedure-type-atomic?! u #t)) *native-procedure-types*) (for-each (lambda (u) (set-structure-type-atomic?! u #t)) *structure-types*) (for-each (lambda (u) (set-headed-vector-type-atomic?! u #t)) *headed-vector-types*) (for-each (lambda (u) (set-nonheaded-vector-type-atomic?! u #t)) *nonheaded-vector-types*) (let loop () (let ((again? #f)) (for-each (lambda (u) (when (type-atomic? u) (unless (or (fictitious? u) (every (lambda (y-e) (let ((e (cdr y-e))) (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented #f "Indirect flat closures are not (yet) implemented")) ((immediate-display) (every (lambda (e) (and (not (heap-allocation? (allocation e))) (environment-atomic? e))) (ancestors e))) ((indirect-display) (unimplemented #f "Indirect display closures are not (yet) implemented")) ((linked) (or (not (has-parent-parameter? e)) (and (not (heap-allocation? (allocation (parent-parameter e)))) (environment-atomic? (parent-parameter e))))) (else (fuck-up))))) (native-procedure-type-call-site-environment-alist u))) (set-native-procedure-type-atomic?! u #f) (set! again? #t)))) *native-procedure-types*) (for-each (lambda (u) (when (type-atomic? u) (unless (if (structure-type-immediate? u) (every (lambda (w) (must-be? type-atomic? w)) (structure-type-slots u)) (every (lambda (w) (must-be? (lambda (u) (and (never-allocated-on-the-heap? u) (type-atomic? u))) w)) (structure-type-slots u))) (set-structure-type-atomic?! u #f) (set! again? #t)))) *structure-types*) (for-each (lambda (u) (when (type-atomic? u) (unless (or (degenerate-vector-type? u) (must-be? (lambda (u) (and (never-allocated-on-the-heap? u) (type-atomic? u))) (headed-vector-type-element u))) (set-headed-vector-type-atomic?! u #f) (set! again? #t)))) *headed-vector-types*) (for-each (lambda (u) (when (type-atomic? u) (unless (or (degenerate-vector-type? u) (must-be? (lambda (u) (and (never-allocated-on-the-heap? u) (type-atomic? u))) (nonheaded-vector-type-element u))) (set-nonheaded-vector-type-atomic?! u #f) (set! again? #t)))) *nonheaded-vector-types*) (when again? (loop))))) (define (environment-atomic? e) (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented #f "Indirect flat closures are not (yet) implemented")) ((immediate-display indirect-display) ;; With display closures, closures don't have parent slots. The closure is ;; atomic if none of its slots point to heap-allocated data. (every (lambda (g) (or (not (slotted? g)) (must-be? (lambda (u) (and (never-allocated-on-the-heap? u) (type-atomic? u))) (variable-type-set g)))) (variables e))) ((linked) ;; With linked closures, closures do have parent slots. The closure is ;; atomic if none of its slots, including its parent slot, if it has one, ;; point to heap-allocated data. (let loop ((e e)) (and (every (lambda (g) (or (not (slotted? g)) (must-be? (lambda (u) (and (never-allocated-on-the-heap? u) (type-atomic? u))) (variable-type-set g)))) (variables e)) (or (not (has-parent-slot? e)) (and (not (heap-allocation? (allocation (parent-slot e)))) (loop (parent-slot e))))))) (else (fuck-up)))) (define (type-atomic? u) (cond ((null-type? u) #t) ((true-type? u) #t) ((false-type? u) #t) ((char-type? u) #t) ((fixnum-type? u) #t) ((flonum-type? u) #t) ((rectangular-type? u) #t) ((input-port-type? u) #t) ((output-port-type? u) #t) ((eof-object-type? u) #t) ((pointer-type? u) #t) ((internal-symbol-type? u) #t) ((external-symbol-type? u) (type-atomic? (external-symbol-type-displaced-string-type u))) ((primitive-procedure-type? u) #t) ((native-procedure-type? u) (native-procedure-type-atomic? u)) ((foreign-procedure-type? u) #t) ((continuation-type? u) #t) ((string-type? u) #t) ((structure-type? u) (structure-type-atomic? u)) ((headed-vector-type? u) (headed-vector-type-atomic? u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-atomic? u)) ((displaced-vector-type? u) (type-atomic? (displaced-vector-type-displaced-vector-type u))) (else (fuck-up)))) ;;; Stalin-specific C constructors (define (c:a g) (if (or (assigned? g) (has-self-tail-call? (variable-environment g))) (c:protect (list "a" (number->string (variable-index g)))) (list "a" (number->string (variable-index g))))) (define (c:b g) (list "b" (number->string (variable-index g)))) (define (c:c) (set! *c:c?* #t) "c") (define (c:d e) (list "d" (number->string (environment-index e)))) (define (c:e e) (list "e" (number->string (environment-index e)))) (define (c:f e) (list "f" (number->string (environment-index e)))) (define (c:h e) (list "h" (number->string (environment-index e)))) (define (c:i c) (c:. c "i")) (define (c:j x) (list "j" (number->string (expression-index x)))) (define (c:l i) (list "l" (number->string i))) (define (c:p u/e) ;; note: This must use the narrow notion of clone because different wide ;; clones can have different parent parameters. (cond ((native-procedure-type? u/e) (c:p (narrow-prototype u/e))) ((environment? u/e) (list "p" (number->string (environment-index u/e)))) (else (fuck-up)))) (define (c:q i) (list "q" (number->string i))) (define (c:r c/e) (if (environment? c/e) (list "r" (number->string (environment-index c/e))) (c:. c/e "r"))) (define (c:s i) (list "s" (number->string i))) (define (c:t i) (list "t" (number->string i))) (define (c:u u) (cond ((null-type? u) (fuck-up)) ((true-type? u) (fuck-up)) ((false-type? u) (fuck-up)) ((char-type? u) (fuck-up)) ((fixnum-type? u) "fixnum_type") ((flonum-type? u) "flonum_type") ((rectangular-type? u) "rectangular_type") ((input-port-type? u) "input_port_type") ((output-port-type? u) "output_port_type") ((eof-object-type? u) (fuck-up)) ((pointer-type? u) "pointer_type") ((internal-symbol-type? u) (fuck-up)) ;; note: There should be only one external symbol type since there ;; should be only one string type after ;; APPLY-CLOSED-WORLD-ASSUMPTION!. ((external-symbol-type? u) "external_symbol_type") ((primitive-procedure-type? u) (fuck-up)) ((native-procedure-type? u) (list "native_procedure_type" (number->string (type-index u)))) ((foreign-procedure-type? u) (fuck-up)) ((continuation-type? u) (unless (continuation-type-allocating-expression u) (fuck-up)) (list "continuation_type" (number->string (expression-index (continuation-type-allocating-expression u))))) ;; note: There should be only one string type after ;; APPLY-CLOSED-WORLD-ASSUMPTION!. ((string-type? u) "string_type") ((structure-type? u) (list "structure_type" (number->string (structure-type-index u)))) ((headed-vector-type? u) (list "headed_vector_type" (number->string (headed-vector-type-index u)))) ((nonheaded-vector-type? u) (list "nonheaded_vector_type" (number->string (nonheaded-vector-type-index u)))) ((displaced-vector-type? u) (list "displaced_vector_type" (number->string (displaced-vector-type-index u)))) (else (fuck-up)))) (define (c:v x) (c:protect (list "v" (number->string (expression-index x))))) (define (c:w w) (list "w" (number->string (type-set-index w)))) (define (c:x x) (list "x" (number->string (expression-index x)))) (define (c:mutex x) (list "mutex" (number->string (expression-index x)))) (define (c:error c) (list c "_error")) (define (c:fp e) (c:protect (list "fp" (number->string (environment-index e))))) (define (c:sfp e) (list "sfp" (number->string (environment-index e)))) (define (c:data) "data") (define (c:region . es) (when (> (length es) 1) (fuck-up)) (if (null? es) "region" (list "region" (number->string (environment-index (first es)))))) (define (c:region-size . es) (when (> (length es) 1) (fuck-up)) (if (null? es) "region_size" (list "region_size" (number->string (environment-index (first es)))))) (define (c:initial-region e) (list "initial_region" (number->string (environment-index e)))) (define (c:big-region-size e) (list "REGION_SIZE" (number->string (environment-index e)))) (define (c:stdin) (include! "stdio") ;stdin "stdin") (define (c:stdout) (include! "stdio") ;stdout "stdout") (define (c:clocks-per-second) (include! "time") ;CLOCKS_PER_SEC "CLOCKS_PER_SEC") (define (c:rand-max) (include! "stdlib") ;RAND_MAX "RAND_MAX") (define (c:pointer-size) (c:sizeof (space-between "void" "*"))) (define (c:imax c1 c2) (c:call "IMAX" c1 c2)) (define (c:rmax c1 c2) (c:call "RMAX" c1 c2)) (define (c:imin c1 c2) (c:call "IMIN" c1 c2)) (define (c:rmin c1 c2) (c:call "RMIN" c1 c2)) (define (c:pluscc c1 c2) (c:call "PLUSCC" c1 c2)) (define (c:pluscr c1 c2) (c:call "PLUSCR" c1 c2)) (define (c:plusrc c1 c2) (c:call "PLUSRC" c1 c2)) (define (c:negc c) (c:call "NEGC" c)) (define (c:minuscc c1 c2) (c:call "MINUSCC" c1 c2)) (define (c:minuscr c1 c2) (c:call "MINUSCR" c1 c2)) (define (c:minusrc c1 c2) (c:call "MINUSRC" c1 c2)) (define (c:timescc c1 c2) (c:call "TIMESCC" c1 c2)) (define (c:timescr c1 c2) (c:call "TIMESCR" c1 c2)) (define (c:timesrc c1 c2) (c:call "TIMESRC" c1 c2)) (define (c:recipc c) (c:call "RECIPC" c)) (define (c:dividecc c1 c2) (c:call "DIVIDECC" c1 c2)) (define (c:dividecr c1 c2) (c:call "DIVIDECR" c1 c2)) (define (c:dividerc c1 c2) (c:call "DIVIDERC" c1 c2)) (define (c:ipow c1 c2) (set! *c:ipow?* #t) (c:call "ipow" c1 c2)) (define (c:input-waiting c) (set! *c:input-waiting?* #t) (c:protect (c:call "input_waiting" c))) (define (c:panic c) (set! *c:panic?* #t) (c:gosub "stalin_panic" c)) (define (c:backtrace c1 c2 c3) (set! *c:backtrace?* #t) (c:gosub "backtrace" c1 c2 c3)) (define (c:backtrace-internal c) (set! *c:backtrace-internal?* #t) (c:gosub "backtrace_internal" c)) (define (c:align c) (if (positive? *allocation-alignment*) (c:gosub "ALIGN" c) (c:noop))) (define (c:value-offset) "VALUE_OFFSET") (define (c:char-offset) "CHAR_OFFSET") (define (c:type u c) (cond ((char-type? u) (space-between *char* c)) ((fixnum-type? u) (space-between *fixnum* c)) ((flonum-type? u) (space-between *flonum* c)) ((rectangular-type? u) (space-between "struct" "rectangular" c)) ((input-port-type? u) (include! "stdio") ;FILE (space-between *file* (star-before c))) ((output-port-type? u) (include! "stdio") ;FILE (space-between *file* (star-before c))) ((pointer-type? u) (space-between "void" (star-before c))) ((external-symbol-type? u) (space-between *char* (star-before c))) ((native-procedure-type? u) (case *closure-representation* ((immediate-flat immediate-display) (space-between "struct" (c:p u) c)) ((indirect-flat indirect-display) (space-between "struct" (c:p u) (star-before c))) ((linked) (if (and (or (eq? *closure-conversion-method* 'baseline) (eq? *closure-conversion-method* 'conventional)) (or (not (environment? (native-procedure-type-narrow-prototype u))) (not (environment-used? (narrow-prototype u))) (not (environment? (parent-parameter u))) (not (environment-used? (parent-parameter u))))) (space-between (c:/**/ "fake") *fixnum* c) (space-between "struct" (c:p (parent-parameter u)) (star-before c)))) (else (fuck-up)))) ((continuation-type? u) (include! "setjmp") ;jmp_buf (space-between *jmpbuf* (star-before c))) ((string-type? u) (space-between *char* (star-before c))) ((structure-type? u) (if (structure-type-immediate? u) (space-between "struct" (c:u u) c) (space-between "struct" (c:u u) (star-before c)))) ((headed-vector-type? u) (if (degenerate-vector-type? u) (space-between *length* c) (space-between "struct" (c:u u) (star-before c)))) ((nonheaded-vector-type? u) (if (degenerate-vector-type? u) (space-between *length* c) (space-between "struct" (c:u u) c))) ((displaced-vector-type? u) (if (degenerate-vector-type? u) (space-between *length* c) (space-between "struct" (c:u u) c))) (else (case *closure-conversion-method* ((baseline conventional) (space-between (c:/**/ "fake") *fixnum* c)) ((lightweight) (fuck-up)) (else (fuck-up)))))) (define (c:type& u c) (unless (and (structure-type? u) (not (structure-type-immediate? u)) (not (every fictitious? (structure-type-slots u)))) (fuck-up)) (space-between "struct" (c:u u) c)) (define (c:type-set w c) (cond ((fictitious? w) (fuck-up)) ((monomorphic? w) (c:type (the-member w) c)) ((tag-only? w) (space-between *tag* c)) ((squeezed? w) (c:type (squeezed-member w) c)) ((squished? w) (space-between *squished* c)) (else (space-between "struct" (c:w w) c)))) (define (c:type-cast c u) (c:cast (c:type u "") c)) (define (c:type-set-cast c w) (c:cast (c:type-set w "") c)) (define (c:squished-cast c) (set! *squished-size?* #t) (c:cast *squished* c)) (define (c:signed-squished-cast c) (set! *squished-size?* #t) (c:cast *signed-squished* c)) (define (c:tag-cast c) (c:cast *tag* c)) (define (c:tag->squeezed-cast c w1 w2) (set! *tag-size?* #t) (if (= (type-set-size w2) *tag-size*) (c:type-set-cast (c:tag c w1) w2) ;; The squished cast is needed because *POINTER-SIZE* is not the same as ;; *TAG-SIZE*. (c:type-set-cast (c:squished-cast (c:tag c w1)) w2))) (define (c:squeezed->tag-cast c w) (set! *tag-size?* #t) (if (= (type-set-size w) *tag-size*) (c:tag-cast c) ;; The squished cast is needed because *POINTER-SIZE* is not the same as ;; *TAG-SIZE*. (c:tag-cast (c:squished-cast c)))) (define (c:forgery-cast c w) (c:* (c:cast (c:type-set w "*") (c:& c)))) (define (c:type-tag u) (cond ((null-type? u) (set! *null-type-use-count* (+ *null-type-use-count* 1)) "NULL_TYPE") ((true-type? u) (set! *true-type-use-count* (+ *true-type-use-count* 1)) "TRUE_TYPE") ((false-type? u) (set! *false-type-use-count* (+ *false-type-use-count* 1)) "FALSE_TYPE") ((char-type? u) (fuck-up)) ((fixnum-type? u) (set! *fixnum-type-use-count* (+ *fixnum-type-use-count* 1)) "FIXNUM_TYPE") ((flonum-type? u) (set! *flonum-type-use-count* (+ *flonum-type-use-count* 1)) "FLONUM_TYPE") ((rectangular-type? u) (set! *rectangular-type-use-count* (+ *rectangular-type-use-count* 1)) "RECTANGULAR_TYPE") ((input-port-type? u) (set! *input-port-type-use-count* (+ *input-port-type-use-count* 1)) "INPUT_PORT_TYPE") ((output-port-type? u) (set! *output-port-type-use-count* (+ *output-port-type-use-count* 1)) "OUTPUT_PORT_TYPE") ((eof-object-type? u) (set! *eof-object-type-use-count* (+ *eof-object-type-use-count* 1)) "EOF_OBJECT_TYPE") ((pointer-type? u) (set! *pointer-type-use-count* (+ *pointer-type-use-count* 1)) "POINTER_TYPE") ((internal-symbol-type? u) (set-internal-symbol-type-use-count! u (+ (internal-symbol-type-use-count u) 1)) ;; note: We can't use the symbol name without mangling it. (list "INTERNAL_SYMBOL_TYPE" (number->string (internal-symbol-type-index u)))) ((external-symbol-type? u) (set-external-symbol-type-use-count! u (+ (external-symbol-type-use-count u) 1)) ;; note: There should be only one external symbol type since there ;; should be only one string type after ;; APPLY-CLOSED-WORLD-ASSUMPTION!. "EXTERNAL_SYMBOL_TYPE") ((primitive-procedure-type? u) (set-primitive-procedure-type-use-count! u (+ (primitive-procedure-type-use-count u) 1)) ;; note: We can't use the primitive procedure name (and arguments) ;; without mangling it. (list "PRIMITIVE_PROCEDURE_TYPE" (number->string (primitive-procedure-type-index u)))) ((native-procedure-type? u) (set-native-procedure-type-use-count! u (+ (native-procedure-type-use-count u) 1)) (list "NATIVE_PROCEDURE_TYPE" (number->string (type-index u)))) ((foreign-procedure-type? u) (set-foreign-procedure-type-use-count! u (+ (foreign-procedure-type-use-count u) 1)) (list "FOREIGN_PROCEDURE_" (foreign-procedure-type-name u) "_TYPE")) ((continuation-type? u) (set-continuation-type-use-count! u (+ (continuation-type-use-count u) 1)) (if (continuation-type-allocating-expression u) (list "CONTINUATION_TYPE" (number->string (expression-index (continuation-type-allocating-expression u)))) "TOP_LEVEL_CONTINUATION_TYPE")) ((string-type? u) (set-string-type-use-count! u (+ (string-type-use-count u) 1)) ;; note: There should be only one string type after ;; APPLY-CLOSED-WORLD-ASSUMPTION!. "STRING_TYPE") ((structure-type? u) (set-structure-type-use-count! u (+ (structure-type-use-count u) 1)) (list "STRUCTURE_TYPE" (number->string (structure-type-index u)))) ((headed-vector-type? u) (set-headed-vector-type-use-count! u (+ (headed-vector-type-use-count u) 1)) (list "HEADED_VECTOR_TYPE" (number->string (headed-vector-type-index u)))) ((nonheaded-vector-type? u) (set-nonheaded-vector-type-use-count! u (+ (nonheaded-vector-type-use-count u) 1)) (list "NONHEADED_VECTOR_TYPE" (number->string (nonheaded-vector-type-index u)))) ((displaced-vector-type? u) (set-displaced-vector-type-use-count! u (+ (displaced-vector-type-use-count u) 1)) (list "DISPLACED_VECTOR_TYPE" (number->string (displaced-vector-type-index u)))) (else (fuck-up)))) (define (c:tag c w) (cond ((fictitious? w) (fuck-up)) ((monomorphic? w) (fuck-up)) ((tag-only? w) c) ((squeezed? w) (fuck-up)) ((squished? w) (fuck-up)) (else (c:. c "tag")))) (define (c:value c u w) (unless (and (member? u w) (or (eq? *closure-conversion-method* 'baseline) (eq? *closure-conversion-method* 'conventional) (not (fictitious? u)))) (fuck-up)) (cond ((and (or (eq? *closure-conversion-method* 'baseline) (eq? *closure-conversion-method* 'conventional)) (fictitious? u)) "fake") ((fictitious? w) (fuck-up)) ((monomorphic? w) c) ((tag-only? w) ;; note: Converting from tag-only to character used to be free but now ;; requires a right shift when there is some squishing. This is the ;; price to pay for universal type tags. (unless (char-type? u) (fuck-up)) ;; This assumes that *TAG* is unsigned so that >> does a logical shift. ;; This also assumes that casting a *TAG* to a *CHAR* does not modify the ;; bit pattern except for truncation. (c:type-cast (c:>> (c:tag c w) (c:fixnum *worst-alignment*)) u)) ((squeezed? w) ;; note: Unsqueezing characters used to be free but now requires a right ;; shift when there is some squishing. This is the price to pay for ;; universal type tags. (if (char-type? u) ;; The C:SQUISHED-CAST is needed to convert the pointer to an integer. ;; This assumes that *SQUISHED* is unsigned so that >> does a logical ;; shift. This also assumes that casting a *SQUISHED* to a *CHAR* does ;; not modify the bit pattern except for truncation. (c:type-cast (c:>> (c:squished-cast c) (c:fixnum *worst-alignment*)) u) c)) ((squished? w) (cond ;; This assumes that *SQUISHED* is unsigned so that >> does a logical ;; shift. This also assumes that casting a *SQUISHED* to a *CHAR* does ;; not modify the bit pattern except for truncation. ((char-type? u) (c:type-cast (c:>> c (c:fixnum *worst-alignment*)) u)) ((fixnum-type? u) ;; This assumes that *SQUISHED* is unsigned and *FIXNUM* is signed so ;; that C:SIGNED-SQUISHED-CAST is needed to cause >> to do an arithmetic ;; shift to preserve the sign bit. This assumes that *SIGNED-SQUISHED* is ;; signed. This also assumes that casting a *SQUISHED* to a ;; *SIGNED-SQUISHED* does not modify the bit pattern. The final cast from ;; *SIGNED-SQUISHED* to *FIXNUM* may change the size and thus may require ;; sign extension. (c:type-cast (c:>> (c:signed-squished-cast c) (c:fixnum (squish-alignment w))) u)) ((degenerate-vector-type? u) ;; This assumes that both *SQUISHED* and *LENGTH* are unsigned so that >> ;; does a logical shift. The final cast from *SQUISHED* to *LENGTH* may ;; change the size but should not modify the bit pattern. (c:type-cast (c:>> c (c:fixnum (squish-alignment w))) u)) (else (c:type-cast (strip-known-squish-tag c u w) u)))) (else ;; note: Converting from general to character used to be free but now ;; requires a right shift when there is some squishing. This is the ;; price to pay for universal type tags. (if (char-type? u) ;; This assumes that *TAG* is unsigned so that >> does a logical shift. ;; If *CHAR* is signed then this also assumes that casting an unsigned ;; expression to a signed char does not modify the bit pattern except ;; for truncation. (c:type-cast (c:>> (c:tag c w) (c:fixnum *worst-alignment*)) u) (if (has-union? w) (c:. (c:. c "value") (c:u u)) (c:. c "value")))))) (define (c:foreign-type f c) (case f ((char) (space-between "char" c)) ((signed-char) (space-between "signed" "char" c)) ((unsigned-char) (space-between "unsigned" "char" c)) ((short) (space-between "short" c)) ((unsigned-short) (space-between "unsigned" "short" c)) ((int) (space-between "int" c)) ((unsigned) (space-between "unsigned" c)) ((long) (space-between "long" c)) ((unsigned-long) (space-between "unsigned" "long" c)) ((float) (space-between "float" c)) ((double) (space-between "double" c)) ((long-double) (space-between "long" "double" c)) ((char*) (space-between "char" (star-before c))) ((file* input-port output-port) (include! "stdio") ;FILE (space-between *file* (star-before c))) ((void*) (space-between "void" (star-before c))) ((void) (space-between "void" c)) ((no-return) (space-between "void" c)) (else (fuck-up)))) ;;; End of C constructors (define (squeeze c u w) (unless (and (member? u w) (squeezed? w)) (fuck-up)) (cond ((char-type? u) ;; note: Squeezing characters used to be free but now requires a left shift ;; when there is some squishing. This is the price to pay for ;; universal type tags. ;; This assumes that *SQUISHED* is unsigned so that << does a logical ;; shift. The call to C:UNSIGNED-CHAR-CAST is in case *CHAR* is signed to ;; force << to be a logical shift without a prior sign extend. The call to ;; C:SQUISHED-CAST is to prevent any overflow in the logical shift. (c:type-set-cast (c:<< (c:squished-cast (c:unsigned-char-cast c)) (c:fixnum *worst-alignment*)) w)) ((fictitious? u) (c:type-set-cast (c:type-tag u) w)) (else c))) (define (squeeze-tag-test c u w) (unless (and (member? u w) (squeezed? w)) (fuck-up)) (cond ((char-type? u) (c:< c (c:type-set-cast (c:char-offset) w))) ((fictitious? u) (c:== c (c:type-set-cast (c:type-tag u) w))) (else (c:>= c (c:type-set-cast (c:value-offset) w))))) (define (assign-global-squish-tags!) ;; This is a special case for when the type set members are sorted. (define (unionq us1 us2) (cond ((null? us1) us2) ((null? us2) us1) ((eq? (first us1) (first us2)) (cons (first us1) (unionq (rest us1) (rest us2)))) ((< (type-index (first us1)) (type-index (first us2))) (cons (first us1) (unionq (rest us1) us2))) (else (cons (first us2) (unionq us1 (rest us2)))))) (set! *uss* (let ((uss (let ((ws (remove-if-not squished? *ws*))) (equivalence-classesp (lambda (u1 u2) (some (lambda (w) (and (member? u1 w) (member? u2 w))) ws)) (remove-if (lambda (u) (or (char-type? u) (fictitious? u))) (reduce unionq (map members ws) '())))))) (map (lambda (us) (if (every (lambda (u) (or (fixnum-type? u) ;; needs work: Can be extended to allow squishing a ;; singleton immediate structure if its ;; slot is squished. (degenerate-vector-type? u))) us) ;; In this case, there are no pointer members to get squish tag ;; zero. (cons 'foo us) ;; This guarantees that a pointer member is assigned squish tag ;; zero. (sort us (lambda (u1 u2) ;; needs work: Can be extended to allow squishing a ;; singleton immediate structure if its slot ;; is squished. (or (fixnum-type? u2) (degenerate-vector-type? u2))) identity))) uss)))) (define (squish-tag u w) (unless (and (member? u w) (squished? w)) (fuck-up)) ;; note: This is complicated by the need to guarantee that fixnums and ;; degenerate vectors aren't assigned squish tag zero since they ;; aren't sparse. ;; needs work: Actually, can assign squish tag zero to a fixnum or degenerate ;; vector when the type set has no members that are fictitious. ;; Would also need to modify SQUISH-ALIGNMENT and ;; ASSIGN-GLOBAL-SQUISH-TAGS! as well. ;; note: Since squish tag zero is more costly to test than other squish ;; tags one might try to assign it only when necessary. But on the ;; other hand squish tag zero is less costly to squish so it is not ;; clear whether this would be a useful optimization. (let ((us (find-if (lambda (us) (memq u us)) *uss*))) (cond ((char-type? u) 0) ((fictitious? u) 0) ((<= (length us) (expt 2 (squish-alignment w))) (positionq u us)) ((can-be? pointer-member? w) ;; This guarantees that a pointer member is assigned squish tag zero. (positionq u (sort (members-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) w) (lambda (u1 u2) ;; needs work: Can be extended to allow squishing a singleton ;; immediate structure if its slot is squished. (or (fixnum-type? u2) (degenerate-vector-type? u2))) identity))) (else ;; In this case, there are no pointer members to get squish tag zero. (+ (positionq u (members-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) w)) 1))))) (define (squish c u w) (unless (and (member? u w) (squished? w)) (fuck-up)) (cond ;; This assumes that *SQUISHED* is unsigned so that << does a logical shift. ;; The call to C:UNSIGNED-CHAR-CAST is in case *CHAR* is signed to force << ;; to be a logical shift without a prior sign extend. The call to ;; C:TYPE-SET-CAST is to prevent any overflow in the logical shift. ((char-type? u) (c:<< (c:type-set-cast (c:unsigned-char-cast c) w) (c:fixnum *worst-alignment*))) ((fictitious? u) (c:type-tag u)) (else (c:+ (cond ((or (fixnum-type? u) (degenerate-vector-type? u)) (when *overflow-checks?* (unimplemented #f "Safe exact arithmetic is not (yet) implemented")) (c:<< (c:type-set-cast c w) (c:fixnum (squish-alignment w)))) (else (c:type-set-cast c w))) (c:fixnum (squish-tag u w)))))) (define (strip-squish-tag c w) (c:& c (c:~ (c:fixnum (- (expt 2 (squish-alignment w)) 1))))) (define (strip-known-squish-tag c u w) (c:- c (c:fixnum (squish-tag u w)))) (define (extract-squish-tag c w) (c:& c (c:fixnum (- (expt 2 (squish-alignment w)) 1)))) (define (squish-tag-test c u w) (unless (and (member? u w) (squished? w)) (fuck-up)) (cond ((char-type? u) (c:< c (c:char-offset))) ((fictitious? u) (c:== c (c:type-tag u))) ((and (zero? (squish-tag u w)) (can-be? (lambda (u) (or (char-type? u) (fictitious? u))) w)) ;; note: Squish tag zero is more costly to test than other squish tags ;; because of squeezing. (c:&& (c:>= c (c:value-offset)) (c:==0 (extract-squish-tag c w)))) (else (c:== (extract-squish-tag c w) (c:fixnum (squish-tag u w)))))) (define (compile-squeezed-type-if us w c1 c2 c3) (let ((cs2 (map c2 us))) (let loop ((cases (equate-cases (map (lambda (u) (squeeze-tag-test c1 u w)) us) cs2))) ;; conventions: CASES (if (null? cases) (c3 #f) (c:if (apply c:boolean-or (map first (first cases))) (second (first (first cases))) (loop (rest cases)) #f))))) (define (compile-squeezed-defaultless-type-if us w c1 c2) ;; This has the semantics that the behaviour is undefined when C1 takes on ;; a type that is not in US. (let loop ((cases (equate-cases (map (lambda (u) (squeeze-tag-test c1 u w)) us) (map c2 us)))) ;; conventions: CASES (cond ((null? cases) (c:noop)) ((null? (rest cases)) (second (first (first cases)))) (else (c:if (apply c:boolean-or (map first (first cases))) (second (first (first cases))) (loop (rest cases)) #f))))) (define (compile-squeezed-type-switch us w c1 c2 c3 p?) (define (c u) (if (memq u us) (c2 u) (c3 #f))) (if (and (not (some fictitious? us)) (can-be? fictitious? w)) (if (some char-type? us) (if (memq (squeezed-member w) us) (c:if (c:< c1 (c:type-set-cast (c:char-offset) w)) (c2 (the-member-that char-type? w)) (c:if (c:>= c1 (c:type-set-cast (c:value-offset) w)) (c2 (squeezed-member w)) (c3 #f) #f) #f) (c:if (c:< c1 (c:type-set-cast (c:char-offset) w)) (c2 (the-member-that char-type? w)) (c3 #f) #f)) (if (memq (squeezed-member w) us) (c:if (c:>= c1 (c:type-set-cast (c:value-offset) w)) (c2 (squeezed-member w)) (c3 #f) #f) (c3 #f))) (let ((us (members-that fictitious? w))) (c:switch (c:squeezed->tag-cast c1 w) (map c:type-tag us) (map c us) (if (can-be? char-type? w) (c:if (c:< c1 (c:type-set-cast (c:char-offset) w)) (c (the-member-that char-type? w)) (c (squeezed-member w)) #f) (c (squeezed-member w))) p?)))) (define (compile-squeezed-defaultless-type-switch us w c1 c2 p?) ;; This has the semantics that the behaviour is undefined when C1 takes on ;; a type that is not in US. (let ((us1 (remove-if-not fictitious? us))) (if (or (some char-type? us) (memq (squeezed-member w) us)) (c:switch (c:squeezed->tag-cast c1 w) (map c:type-tag us1) (map c2 us1) (if (some char-type? us) (if (memq (squeezed-member w) us) (c:if (c:< c1 (c:type-set-cast (c:char-offset) w)) (c2 (the-member-that char-type? w)) (c2 (squeezed-member w)) #f) (c2 (the-member-that char-type? w))) (c2 (squeezed-member w))) p?) (c:defaultless-switch (c:squeezed->tag-cast c1 w) (map c:type-tag us1) (map c2 us1) p?)))) (define (compile-squished-type-if us w c1 c2 c3) (let ((cs2 (map c2 us))) (let loop ((cases (equate-cases (map (lambda (u) (squish-tag-test c1 u w)) us) cs2))) ;; conventions: CASES (if (null? cases) (c3 #f) (c:if (apply c:boolean-or (map first (first cases))) (second (first (first cases))) (loop (rest cases)) #f))))) (define (compile-squished-defaultless-type-if us w c1 c2) ;; This has the semantics that the behaviour is undefined when C1 takes on ;; a type that is not in US. (let loop ((cases (equate-cases (map (lambda (u) (squish-tag-test c1 u w)) us) (map c2 us)))) ;; conventions: CASES (cond ((null? cases) (c:noop)) ((null? (rest cases)) (second (first (first cases)))) (else (c:if (apply c:boolean-or (map first (first cases))) (second (first (first cases))) (loop (rest cases)) #f))))) (define (compile-squished-type-switch us w c1 c2 c3 p?) ;; We dispatch on C1 of type W. If the type U of C1 is in US we generate ;; code by calling (C2 U). Otherwise we generate it with (C3 #f) because the ;; error might occur. ;; In our case W should be (union fixnum char) and US should be {char}. ;; Neither fixnum nor char are fictitious. ;; If W can be both a character and a nonfictitous noncharacter, then US2 is ;; is the set of all nonfictitous noncharacter types in W. Otherwise US2 is ;; the set of all nonfictitious types in W. I think that this means that US2 ;; is the set of all nonfictitous noncharacter types in W except when W has ;; char but no other nonfictitious types in which case it is just char. ;; In our case US2 should be {FIXNUM} and US1 should be empty. (define (c u) (if (memq u us) (c2 u) (c3 #f))) (if (and (not (some fictitious? us)) (can-be? fictitious? w)) ;; This case is taken when some fictitious types take the C3 branch. (let ((us2 (if (can-be? (lambda (u) (and (pointer-member? u) (zero? (squish-tag u w)))) w) (members-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) w) (members-that (lambda (u) (not (fictitious? u))) w)))) ;; This holds when W contains a fictitious type or a nonfictitious type ;; with the same squish tag. (if (can-be? (lambda (u) (or (fictitious? u) (some (lambda (u1) (and (not (fictitious? u1)) (= (squish-tag u w) (squish-tag u1 w)))) us))) w) (c:switch (extract-squish-tag c1 w) (map (lambda (u) (c:fixnum (squish-tag u w))) us2) (map (lambda (u) (if (zero? (squish-tag u w)) (if (and (can-be? char-type? w) (not (char-type? u))) (c:if (c:< c1 (c:type-set-cast (c:char-offset) w)) (c (the-member-that char-type? w)) (c:if (c:>= c1 (c:type-set-cast (c:value-offset) w)) (c u) (c3 #f) #f) #f) (c:if (c:>= c1 (c:type-set-cast (c:value-offset) w)) (c u) (c3 #f) #f)) (c u))) us2) (c3 #f) p?) (c:defaultless-switch (extract-squish-tag c1 w) (map (lambda (u) (c:fixnum (squish-tag u w))) us2) (map (lambda (u) (if (zero? (squish-tag u w)) (if (and (can-be? char-type? w) (not (char-type? u))) (c:if (c:< c1 (c:type-set-cast (c:char-offset) w)) (c (the-member-that char-type? w)) (c:if (c:>= c1 (c:type-set-cast (c:value-offset) w)) (c u) (c3 #f) #f) #f) (c:if (c:>= c1 (c:type-set-cast (c:value-offset) w)) (c u) (c3 #f) #f)) (c u))) us2) p?))) (let ((us1 (members-that fictitious? w)) ;; Exclude char if it can have a pointer member. (us2 (if (can-be? (lambda (u) (and (pointer-member? u) (zero? (squish-tag u w)))) w) (members-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) w) (members-that (lambda (u) (not (fictitious? u))) w)))) (c:switch c1 (map c:type-tag us1) (map c us1) ;; This test is used only to decide if there needs to be a default in ;; the switch for C3. It appears to be bogus. (if (can-be? (lambda (u) (or (fictitious? u) (some (lambda (u1) (and (not (fictitious? u1)) (= (squish-tag u w) (squish-tag u1 w)))) us))) w) (c:switch (extract-squish-tag c1 w) (map (lambda (u) (c:fixnum (squish-tag u w))) us2) (map (lambda (u) (if (and (zero? (squish-tag u w)) (can-be? char-type? w) (not (char-type? u))) (c:if (c:< c1 (c:type-set-cast (c:char-offset) w)) (c (the-member-that char-type? w)) (c u) #f) (c u))) us2) (c3 #f) p?) (c:defaultless-switch (extract-squish-tag c1 w) (map (lambda (u) (c:fixnum (squish-tag u w))) us2) (map (lambda (u) (if (and (zero? (squish-tag u w)) (can-be? char-type? w) (not (char-type? u))) (c:if (c:< c1 (c:type-set-cast (c:char-offset) w)) (c (the-member-that char-type? w)) (c u) #f) (c u))) us2) p?)) p?)))) (define (compile-squished-defaultless-type-switch us w c1 c2 p?) ;; This has the semantics that the behaviour is undefined when C1 takes on ;; a type that is not in US. (if (every fictitious? us) (c:defaultless-switch c1 (map c:type-tag us) (map c2 us) p?) (let ((us1 (remove-if-not fictitious? us)) ;; US1 are all of the fictitious members. US2 are all of the ;; nonfictitious members. US2 only contains char is US contains ;; char and does not contain some other nonfictitous nonchar. (us2 (if (some (lambda (u) (and (pointer-member? u) (zero? (squish-tag u w)))) us) (remove-if (lambda (u) (or (char-type? u) (fictitious? u))) us) (remove-if fictitious? us)))) (c:switch c1 (map c:type-tag us1) (map c2 us1) (c:defaultless-switch (extract-squish-tag c1 w) (map (lambda (u) (c:fixnum (squish-tag u w))) us2) (map (lambda (u) (if (and (zero? (squish-tag u w)) (some char-type? us) (not (char-type? u))) (c:if (c:< c1 (c:type-set-cast (c:char-offset) w)) (c2 (the-member-that char-type? w)) (c2 u) #f) (c2 u))) us2) p?) p?)))) (define (compile-type-switch us w c1 c2 c3 p?) (define (c u) (if (memq u us) (c2 u) (c3 #f))) (if (and (every char-type? us) (can-be-non? char-type? w)) (if (some char-type? us) (c:if (c:< (c:tag c1 w) (c:char-offset)) (c2 (the-member-that char-type? w)) (c3 #f) #f) (c3 #f)) (let ((us (members-that (lambda (u) (not (char-type? u))) w))) (if (can-be? char-type? w) (c:switch (c:tag c1 w) (map c:type-tag us) (map c us) (c (the-member-that char-type? w)) p?) (c:defaultless-switch (c:tag c1 w) (map c:type-tag us) (map c us) p?))))) (define (compile-defaultless-type-switch us w c1 c2 p?) ;; This has the semantics that the behaviour is undefined when C1 takes on ;; a type that is not in US. (if (some char-type? us) (let ((us (remove-if char-type? us))) (c:switch (c:tag c1 w) (map c:type-tag us) (map c2 us) (c2 (the-member-that char-type? w)) p?)) (c:defaultless-switch (c:tag c1 w) (map c:type-tag us) (map c2 us) p?))) (define (break? r) ;; needs work: Should also eliminate the break when the code generated by a ;; particular C2 doesn't return as would be the case if it were a ;; call to a nonconverted continuation. (or (accessor? r) (discard? r) (antecedent? r))) (define (type-switch m w r c1 c2 c3) ;; This dispatches on the type W of C1. All members U of W that satisfy M ;; have code generated by C2 applied to U. Members that don't have code ;; generated by C3. If *TYPE-CHECKS?* is false then code is not generated for ;; members that don't satisfy M. Thus C3 should only generate error code. ;; C3 is called with #T if the error must occur and #F if the error might ;; occur. (cond ((squeezed? w) (if (can-be? m w) (if (and *type-checks?* (can-be-non? m w)) (if *type-if?* (compile-squeezed-type-if (members-that m w) w c1 c2 c3) (compile-squeezed-type-switch (members-that m w) w c1 c2 c3 (break? r))) ;; note: -Ot will also eliminate warnings. (if *type-if?* (compile-squeezed-defaultless-type-if (members-that m w) w c1 c2) (compile-squeezed-defaultless-type-switch (members-that m w) w c1 c2 (break? r)))) (if (can-be-non? m w) (c3 #t) (fuck-up)))) ((squished? w) (if (can-be? m w) (if (and *type-checks?* (can-be-non? m w)) (if *type-if?* (compile-squished-type-if (members-that m w) w c1 c2 c3) (compile-squished-type-switch (members-that m w) w c1 c2 c3 (break? r))) ;; note: -Ot will also eliminate warnings. (if *type-if?* (compile-squished-defaultless-type-if (members-that m w) w c1 c2) (compile-squished-defaultless-type-switch (members-that m w) w c1 c2 (break? r)))) (if (can-be-non? m w) (c3 #t) (fuck-up)))) ;; needs work: There is no COMPILE-TYPE-IF and ;; COMPILE-DEFAULTLESS-TYPE-IF. (else (if (can-be? m w) (if (and *type-checks?* (can-be-non? m w)) (compile-type-switch (members-that m w) w c1 c2 c3 (break? r)) ;; note: -Ot will also eliminate warnings. (if (null? (rest (members-that m w))) (c2 (first (members-that m w))) (compile-defaultless-type-switch (members-that m w) w c1 c2 (break? r)))) (if (can-be-non? m w) (c3 #t) (fuck-up)))))) (define (nonchecking-type-switch m w r c1 c2) ;; This dispatches on the type W of C1. Some member U of W must satisfy M. ;; All members U of W that satisfy M have code generated by C2 applied to U. ;; Code is not generated for members that don't satisfy W. (unless (can-be? m w) (fuck-up)) (cond ((squeezed? w) (if *type-if?* (compile-squeezed-defaultless-type-if (members-that m w) w c1 c2) (compile-squeezed-defaultless-type-switch (members-that m w) w c1 c2 (break? r)))) ((squished? w) (if *type-if?* (compile-squished-defaultless-type-if (members-that m w) w c1 c2) (compile-squished-defaultless-type-switch (members-that m w) w c1 c2 (break? r)))) ;; needs work: There is no COMPILE-DEFAULTLESS-TYPE-IF. (else (compile-defaultless-type-switch (members-that m w) w c1 c2 (break? r))))) (define (nonerror-type-switch m w r c1 c2 c3) ;; This dispatches on the type W of C1. All members U of W that satisfy M ;; have code generated by C2 applied to U. Members that don't have code ;; generated by C3. Code is generated for the members that don't satisfy W ;; irrespective of the setting of *TYPE-CHECKS?*. C3 is called with #T if ;; no member of W satisfies M and #F otherwise. (cond ((squeezed? w) (if (can-be? m w) (if (can-be-non? m w) (if *type-if?* (compile-squeezed-type-if (members-that m w) w c1 c2 c3) (compile-squeezed-type-switch (members-that m w) w c1 c2 c3 (break? r))) (if *type-if?* (compile-squeezed-defaultless-type-if (members-that m w) w c1 c2) (compile-squeezed-defaultless-type-switch (members-that m w) w c1 c2 (break? r)))) (if (can-be-non? m w) (c3 #t) (fuck-up)))) ((squished? w) (if (can-be? m w) (if (can-be-non? m w) (if *type-if?* (compile-squished-type-if (members-that m w) w c1 c2 c3) (compile-squished-type-switch (members-that m w) w c1 c2 c3 (break? r))) (if *type-if?* (compile-squished-defaultless-type-if (members-that m w) w c1 c2) (compile-squished-defaultless-type-switch (members-that m w) w c1 c2 (break? r)))) (if (can-be-non? m w) (c3 #t) (fuck-up)))) ;; needs work: There is no COMPILE-TYPE-IF and ;; COMPILE-DEFAULTLESS-TYPE-IF. (else (if (can-be? m w) (if (can-be-non? m w) (compile-type-switch (members-that m w) w c1 c2 c3 (break? r)) (if (null? (rest (members-that m w))) (c2 (first (members-that m w))) (compile-defaultless-type-switch (members-that m w) w c1 c2 (break? r)))) (if (can-be-non? m w) (c3 #t) (fuck-up)))))) (define (return-true r) (widen r 'void1 true-type?)) (define (return-false r) (widen r 'void2 false-type?)) (define (compile-test r c) (c:if c (return-true r) (return-false r) #t)) (define (compile-time-test r p?) (if p? (return-true r) (return-false r))) (define (compile-predicate m r w c) (nonerror-type-switch m w r c (lambda (u) (return-true r)) (lambda (p?) (return-false r)))) (define (structure-ref-accessor c u i) (unless (and (integer? i) (exact? i) (>= i 0) (< i (length (structure-type-slots u)))) (fuck-up)) (cond ((fictitious? (list-ref (structure-type-slots u) i)) 'void3) ((structure-type-immediate? u) (c:. c (c:s i))) (else (c:-> c (c:s i))))) (define (car-accessor c u) (unless (pair-type? u) (fuck-up)) (structure-ref-accessor c u 0)) (define (cdr-accessor c u) (unless (pair-type? u) (fuck-up)) (structure-ref-accessor c u 1)) (define (string-length-accessor c) (c:strlen c)) (define (string-ref-accessor c1 c2) (c:subscript c1 c2)) (define (vector-length-accessor c u) ;; needs work: To use code-generation abstractions. (if (degenerate-vector-type? u) c (cond ((headed-vector-type? u) (c:-> c "length")) ((nonheaded-vector-type? u) (c:. c "length")) ((displaced-vector-type? u) (c:. c "length")) (else (fuck-up))))) (define (vector-elements-accessor c u) ;; needs work: To use code-generation abstractions. (if (degenerate-vector-type? u) 'void4 (cond ((headed-vector-type? u) (c:-> c "element")) ((nonheaded-vector-type? u) (c:. c "element")) ((displaced-vector-type? u) (c:. c "element")) (else (fuck-up))))) (define (vector-ref-accessor c1 u1 c2) ;; needs work: To use code-generation abstractions. (if (degenerate-vector-type? u1) 'void5 (cond ((headed-vector-type? u1) (c:subscript (c:-> c1 "element") c2)) ((nonheaded-vector-type? u1) (c:subscript (c:. c1 "element") c2)) ((displaced-vector-type? u1) (c:subscript (c:. c1 "element") c2)) (else (fuck-up))))) (define (value-structure-ref c u w i) (if (fictitious? u) 'void6 (structure-ref-accessor (c:value c u w) u i))) (define (value-car c u w) (if (fictitious? u) 'void7 (car-accessor (c:value c u w) u))) (define (value-cdr c u w) (if (fictitious? u) 'void8 (cdr-accessor (c:value c u w) u))) (define (value-string-length c u w) (string-length-accessor (c:value c u w))) (define (value-string-ref c1 u1 w1 c2) (string-ref-accessor (c:value c1 u1 w1) c2)) (define (value-vector-length c u w) (vector-length-accessor (c:value c u w) u)) (define (value-vector-elements c u w) (vector-elements-accessor (c:value c u w) u)) (define (value-vector-ref c1 u1 w1 c2) (vector-ref-accessor (c:value c1 u1 w1) u1 c2)) (define (accessor g e) (cond ((local? g) (c:a g)) ((global? g) (c:a g)) ((hidden? g) (case *closure-representation* ((immediate-flat indirect-flat immediate-display indirect-display) (fuck-up)) ((linked) (let ((e1 (parent-parameter (the-member (variable-type-set g))))) (if (eq? e e1) (c:e e) (let loop ((e (parent-parameter e)) (c (c:p e))) (if (eq? e e1) c (loop (parent-slot e) (c:-> c (c:p (parent-slot e))))))))) (else (fuck-up)))) ((slotted? g) (case *closure-representation* ((immediate-flat) (star-before (if (eq? (variable-environment g) e) (c:. (c:e e) (c:a g)) (c:. (c:p e) (c:a g))))) ((indirect-flat) (star-before (if (eq? (variable-environment g) e) (c:-> (c:e e) (c:a g)) (c:-> (c:p e) (c:a g))))) ((immediate-display) (if (eq? (variable-environment g) e) (c:-> (c:e e) (c:a g)) (c:-> (c:. (c:p e) (c:e (variable-environment g))) (c:a g)))) ((indirect-display) (if (eq? (variable-environment g) e) (c:-> (c:e e) (c:a g)) (c:-> (c:-> (c:p e) (c:e (variable-environment g))) (c:a g)))) ((linked) (let ((e1 (variable-environment g))) (if (eq? e e1) (c:-> (c:e e) (c:a g)) (let loop ((e (parent-parameter e)) (c (c:p e))) (if (eq? e e1) (c:-> c (c:a g)) (loop (parent-slot e) (c:-> c (c:p (parent-slot e))))))))) (else (fuck-up)))) (else (format #t "Warning! Variable ~a{~a}:W~s is fake~%" (variable-name g) (variable-index g) (type-set-index (variable-type-set g))) "fake"))) (define (number-of-accessor-indirections x) (let ((g (expression-variable x)) (e (expression-environment x))) (cond ((not (accessed? g)) 0) ((fictitious? (variable-type-set g)) 0) ((local? g) 0) ((global? g) 0) ((hidden? g) (case *closure-representation* ((immediate-flat indirect-flat immediate-display indirect-display) (fuck-up)) ((linked) (let ((e1 (parent-parameter (the-member (variable-type-set g))))) (if (eq? e e1) 0 (let loop ((e (parent-parameter e)) (c 0)) (if (eq? e e1) c (loop (parent-slot e) (+ c 1))))))) (else (fuck-up)))) ((slotted? g) (case *closure-representation* ((immediate-flat) 0) ((indirect-flat) 1) ((immediate-display) 1) ((indirect-display) 1) ((linked) (let ((e1 (variable-environment g))) (if (eq? e e1) 1 (let loop ((e (parent-parameter e)) (c 0)) (if (eq? e e1) (+ c 1) (loop (parent-slot e) (+ c 1))))))) (else (fuck-up)))) (else (fuck-up))))) (define (lambda-accessor u e) (case *closure-representation* ((immediate-flat indirect-flat immediate-display indirect-display) (fuck-up)) ((linked) (if (and (or (eq? *closure-conversion-method* 'baseline) (eq? *closure-conversion-method* 'conventional)) (or (not (environment? (native-procedure-type-narrow-prototype u))) (not (environment-used? (narrow-prototype u))) (not (environment? (parent-parameter u))) (not (environment-used? (parent-parameter u))))) "fake" (let ((e1 (parent-parameter u))) (if (eq? e e1) (c:e e) (let loop ((e (parent-parameter e)) (c (c:p e))) (if (eq? e e1) c (loop (parent-slot e) (c:-> c (c:p (parent-slot e)))))))))) (else (fuck-up)))) (define (parent-accessor e) (case *closure-representation* ((immediate-flat indirect-flat immediate-display indirect-display) (fuck-up)) ((linked) (let ((e1 (parent-slot e))) (let loop ((e (parent-parameter e)) (c (c:p e))) (if (eq? e e1) c (loop (parent-slot e) (c:-> c (c:p (parent-slot e)))))))) (else (fuck-up)))) ;;; Representation Promotion (define (promote! r w w2) (unless (or (discard? r) (antecedent? r)) (let* ((w1 (result-type-set r)) (us (intersectionq (members w) (members w2))) ;; note: This was added because of uniqueness. With uniqueness, it is ;; possible for the source to be widened and contain members ;; that the more precise analysis determines can't really occur ;; so that they may be absent from the destination. (us (if *uniqueness?* (intersectionq (members w1) us) us))) (unless (null? us) (cond ((and (general? w) (squeezed? w1)) (let ((u1 (squeezed-member w1))) (when (and (some (lambda (u) (eq? u u1)) us) (not (every (lambda (u) (eq? u u1)) us))) (when #t ;debugging (notify "Promoting W~s from squeezed to avoid" (type-set-index w1)) (notify " MOVE: branching general (W~s) to squeezed (W~s)" (type-set-index w) (type-set-index w1))) (set-type-set-squeezable?! w1 #f) (determine-alignments!) (assign-global-squish-tags!) (set! *again?* #t)))) ((and (squeezed? w) (squished? w1)) (when (and (not (every (lambda (u) (or (char-type? u) (fictitious? u))) us)) (not (zero? (squish-tag (squeezed-member w) w1))) (some (lambda (u) (or (char-type? u) (fictitious? u))) us)) (when #t ;debugging (notify "Promoting W~s from squeezed to avoid" (type-set-index w)) (notify " MOVE: branching squeezed (W~s) to squished (W~s)" (type-set-index w) (type-set-index w1))) ;; needs work: Could try to promote W1 to general. Could also try to ;; reassign squish tags of W1 so that the squeezed member of ;; W has squish tag zero. (set-type-set-squeezable?! w #f) (determine-alignments!) (assign-global-squish-tags!) (set! *again?* #t))) ((and (squished? w) (squished? w1)) (when (and (or (some (lambda (u) (and (not (char-type? u)) (not (fictitious? u)) (not (= (squish-tag u w) (squish-tag u w1))))) us) (not (= (squish-alignment w) (squish-alignment w1)))) (some (lambda (u) (or (char-type? u) (fictitious? u))) us) (or (not (= (squish-alignment w) (squish-alignment w1))) (not (every (lambda (u) (or (not (zero? (squish-tag u w))) (zero? (squish-tag u w1)))) us)))) (cond ((and (every (lambda (u) (or (char-type? u) (fictitious? u) (= (squish-tag u w) (squish-tag u w1)))) us) (every (lambda (u) (or (not (zero? (squish-tag u w))) (zero? (squish-tag u w1)))) us) (if (> (squish-alignment w) (squish-alignment w1)) (no-pointer-members? w1) (no-pointer-members? w))) (cond ((> (squish-alignment w) (squish-alignment w1)) (when #t ;debugging (notify "Increasing alignment of W~s from ~a to ~a to avoid" (type-set-index w1) (squish-alignment w1) (squish-alignment w)) (notify " MOVE: branching squished (W~s) to squished (W~s)" (type-set-index w) (type-set-index w1))) (set-type-set-minimal-alignment! w1 (squish-alignment w)) (determine-alignments!) (assign-global-squish-tags!) (set! *again?* #t)) (else (when #t ;debugging (notify "Increasing alignment of W~s from ~a to ~a to avoid" (type-set-index w) (squish-alignment w) (squish-alignment w1)) (notify " MOVE: branching squished (W~s) to squished (W~s)" (type-set-index w) (type-set-index w1))) (set-type-set-minimal-alignment! w (squish-alignment w1)) (determine-alignments!) (assign-global-squish-tags!) (set! *again?* #t)))) (else (when #t ;debugging (notify "Promoting W~s from squished to avoid" (type-set-index w1)) (notify " MOVE: branching squished (W~s) to squished (W~s)" (type-set-index w) (type-set-index w1))) ;; needs work: Could try to promote W to general. (set-type-set-squishable?! w1 #f) (determine-alignments!) (assign-global-squish-tags!) (set! *again?* #t))))) ((and (general? w) (squished? w1)) (unless (or (every (lambda (u) (or (char-type? u) (fictitious? u))) us) (null? (rest us))) (when #t ;debugging (notify "Promoting W~s from squished to avoid" (type-set-index w1)) (notify " MOVE: dispatching general (W~s) to squished (W~s)" (type-set-index w) (type-set-index w1))) (set-type-set-squishable?! w1 #f) (determine-alignments!) (assign-global-squish-tags!) (set! *again?* #t))) ((and (squeezed? w) (general? w1)) (when (and (not (every (lambda (u) (or (char-type? u) (fictitious? u))) us)) (some (lambda (u) (or (char-type? u) (fictitious? u))) us)) (when #t ;debugging (notify "Promoting W~s from squeezed to avoid" (type-set-index w)) (notify " MOVE: branching squeezed (W~s) to general (W~s)" (type-set-index w) (type-set-index w1))) (set-type-set-squeezable?! w #f) (determine-alignments!) (assign-global-squish-tags!) (set! *again?* #t))) ((and (squished? w) (general? w1)) (unless (or (every (lambda (u) (or (char-type? u) (fictitious? u))) us) (null? (rest us))) (when #t ;debugging (notify "Promoting W~s from squished to avoid" (type-set-index w)) (notify " MOVE: dispatching squished (W~s) to general (W~s)" (type-set-index w) (type-set-index w1))) (set-type-set-squishable?! w #f) (determine-alignments!) (assign-global-squish-tags!) (set! *again?* #t))) ((and (general? w) (general? w1)) (unless (or (eq? w w1) (and *forgery?* (= (type-set-size w) (type-set-size w1))) (every (lambda (u) (or (char-type? u) (fictitious? u))) us) (null? (rest us))) (when #t ;debugging (notify "MOVE: dispatching general to general") (notify " because of mismatched type set sizes ~a vs. ~a" (type-set-size w) (type-set-size w1)))))))))) (define (promote-pair+! r y ws w) (cond ((discard? r) #f) ((antecedent? r) #f) ((null? ws) (promote! r w w)) (else (let loop ((uss (map members ws)) (w1 (result-type-set r)) (us1 '()) (ws1 '())) (if (null? uss) (let loop ((ws (reverse ws)) (us1 us1) (ws1 ws1) (w w)) (unless (null? ws) (let ((w2 (first ws)) (u1 (first us1)) (w1 (first ws1))) (unless (or (fictitious? w1) (and (return? r) (not (result-accessed? r)))) (cond ((fictitious? u1) (let ((w (create-anonymous-type-set u1))) (set-type-set-fictitious?! w (case *closure-conversion-method* ((baseline conventional) #f) ((lightweight) (or (void? w) (and (not (multimorphic? w)) (must-be? fictitious? w)))) (else (fuck-up)))) (promote! (create-accessor-result w1 #f) w w))) (else (promote! (create-accessor-result (pair-type-car u1) #f) w2 w2) (promote! (create-accessor-result (pair-type-cdr u1) #f) w w)))) (loop (rest ws) (rest us1) (rest ws1) w1)))) (let ((u1 (the-member-that (pair+-type? uss (members w) (call-site-expression y)) w1))) (loop (rest uss) (pair-type-cdr u1) (cons u1 us1) (cons w1 ws1)))))))) (define (promote-gather! e0 y ws w gs) (let loop ((ws ws) (w w) (gs gs)) (unless (null? gs) (let* ((g (first gs))) (if (null? ws) (if (and (rest? e0) (null? (rest gs))) (when (or (local? g) (global? g) (slotted? g)) (promote! (create-accessor-result (variable-type-set g) #f) w w)) (for-each (lambda (u) (when (or (local? g) (global? g) (slotted? g)) (promote! (create-accessor-result (variable-type-set g) #f) (pair-type-car u) (pair-type-car u))) (loop ws (pair-type-cdr u) (rest gs))) (members-that pair-type? w))) (cond ((and (rest? e0) (null? (rest gs))) (when (or (local? g) (global? g) (slotted? g)) (promote-pair+! (create-accessor-result (variable-type-set g) #f) y ws w))) (else (when (or (local? g) (global? g) (slotted? g)) (promote! (create-accessor-result (variable-type-set g) #f) (first ws) (first ws))) (loop (rest ws) w (rest gs))))))))) (define (promote-converted-call! r y u0 ws w) (unless (procedure-type? u0) (fuck-up)) (when (continuation-type? u0) (fuck-up)) (cond ;; CALL/CC==(LAMBDA (C X) (C (X C))) (((primitive-procedure-type-named? 'call-with-current-continuation) u0) (when (can-be-non? null-type? w) (fuck-up)) (for-each (lambda (u2) (promote-converted-call! r (recreate-call-site y 'first-argument) u2 (list (first ws) (first ws)) *null*)) (members-that (compatible-procedure? (list (first ws) (first ws)) *null* (recreate-call-site y 'first-argument)) (second ws)))) ((and (native-procedure-type? u0) (converted? (callee-environment u0 y))) (promote-call! r y u0 ws w)) (((needs-implicit-continuation-call? ws w y) u0) (let ((w1 (minp subtype-set? (map (lambda (u) (continuation-argument-type-set u y)) (members (first ws)))))) (when (can-be-non? (lambda (u) (subtype-set? w1 (continuation-argument-type-set u y))) (first ws)) (fuck-up)) (promote-call! (if (fictitious? w1) *discard* (create-accessor-result w1 #f)) y u0 (rest ws) w) ;; This relies on the fact that the implicit continuation call is never ;; done through APPLY. (for-each (lambda (u1) (promote-call! r (recreate-call-site y 'continuation-argument) u1 (list w1) *null*)) (members-that (compatible-procedure? (list w1) *null* (recreate-call-site y 'continuation-argument)) (first ws))))) (else (promote-call! r y u0 (rest ws) w)))) (define (promote-call! r y u0 ws w) (cond ((primitive-procedure-type? u0) (when (can-be-non? null-type? w) (fuck-up)) (unless (some void? ws) ((primitive-procedure-promote! (cdr (assq (primitive-procedure-type-name u0) *primitive-procedure-handlers*))) r y u0 ws w (if (converted? y) (expression-type-set (continuation-argument (call-site-expression y))) #f) (if (>= (length ws) 1) (first ws) #f) (if (>= (length ws) 2) (second ws) #f) (if (>= (length ws) 3) (third ws) #f)))) ((native-procedure-type? u0) (let* ((e (expression-environment (call-site-expression y))) (e0 (callee-environment u0 y)) (x0 (environment-expression e0)) (gs (variables e0))) (unless (called? e0) (fuck-up)) (cond ((noop? e0) #f) ((can-be-self-tail-call-to? y e0) (promote-gather! e0 y ws w gs)) ((unique-call-site? e0) (promote-gather! e0 y ws w gs) (promote-expression! r (expression-body x0))) (else (promote-gather! e0 y ws w gs) (promote! r (return-type-set e0) (return-type-set e0)))))) ((foreign-procedure-type? u0) #f) ((continuation-type? u0) (when (can-be-non? null-type? w) (unimplemented y "APPLY of a continuation is not (yet) implemented")) (unless (continuation-type-continuation-accessed? u0) (fuck-up)) (if (goto? y u0) (promote! (expression-result (continuation-type-allocating-expression u0)) (first ws) (first ws)) (promote! (if (fictitious? (expression-type-set (continuation-type-allocating-expression u0))) *discard* (create-accessor-result (expression-type-set (continuation-type-allocating-expression u0)) #f)) (first ws) (first ws)))) (else (fuck-up)))) (define (promote-antecedent! x) (promote-expression! (create-antecedent-result (expression-type-set x) #f #f #f) x)) (define (promote-expression! r x) (set-expression-result! x r) (if (and (not (antecedent? r)) (must-be? boolean-type? (expression-type-set x)) (can-be-non? true-type? (expression-type-set x)) (can-be-non? false-type? (expression-type-set x)) (or (and-expression? x) (or-expression? x) (not-expression? x))) (promote-antecedent! x) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) #f) ((vector-constant) #f) ((lambda converted-lambda converted-continuation) #f) ((set!) (promote-expression! (if (and (or (local? (expression-variable x)) (global? (expression-variable x)) (slotted? (expression-variable x))) (nontrivial-reference? x) (executed? x)) (create-accessor-result (variable-type-set (expression-variable x)) #f) *discard*) (expression-source x))) ((if) (promote-antecedent! (expression-antecedent x)) (cond ((and (antecedent? r) (and-expression? x)) (when (reached? (expression-consequent x)) (promote-antecedent! (expression-consequent x)))) (else (when (reached? (expression-consequent x)) (promote-expression! r (expression-consequent x))) (when (reached? (expression-alternate x)) (promote-expression! r (expression-alternate x)))))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) (when (and (accessed? (expression-variable x)) (or (not (hidden? (expression-variable x))) (discard? r) (antecedent? r))) (promote! r (variable-type-set (expression-variable x)) (expression-type-set x)))) ((call converted-call) (cond ((and (antecedent? r) (or-expression? x)) (let* ((u (the-member (expression-type-set (expression-callee x)))) (e0 (callee-environment u (create-call-site x))) (x0 (environment-expression e0)) (x1 (expression-body x0)) (x2 (first (expression-arguments x)))) (promote-antecedent! x2) (when (reached? (expression-alternate x1)) (promote-antecedent! (expression-alternate x1))))) ((and (antecedent? r) (not-expression? x)) (promote-antecedent! (first (expression-arguments x)))) (else (let* ((w0 (expression-type-set (expression-callee x))) (ws (map expression-type-set (expression-arguments x)))) (promote-expression! (create-accessor-result w0 #f) (expression-callee x)) (for-each (lambda (w x) (promote-expression! (create-accessor-result w #f) x)) ws (expression-arguments x)) (when (and (executed? x) (not (void? w0))) (for-each (lambda (u0) (if (converted? x) (promote-converted-call! r (create-call-site x) u0 ws *null*) (promote-call! r (create-call-site x) u0 ws *null*))) (members-that (compatible-call? x) w0))))))) (else (fuck-up))))) (define (promote-representations!) (let loop () (set! *again?* #f) (for-each (lambda (e) (unless (unique-call-site? e) (promote-expression! (create-return-result e (expression-type-set (expression-body (environment-expression e)))) (expression-body (environment-expression e))))) *es*) (when *again?* (loop)))) ;;; Copy Propagation (define (maybe-parentheses-around c) ;; needs work: To replace the calls to LIST? and LENGTH in the following with ;; more efficient code: (if (or (and (string? c) (or (string=? c "argc") (string=? c "argv") (string=? c "'\\0'") (string=? c "NULL") (string=? c "EOF") (string=? c "data") (string=? c "region") (string=? c "region_size") (string=? c "stdin") (string=? c "stdout") (string=? c "CLOCKS_PER_SEC") (string=? c "RAND_MAX") (string=? c "VALUE_OFFSET") (string=? c "CHAR_OFFSET") (string->number c))) (and (list? c) (= (length c) 3) (string? (first c)) (string=? (first c) "'") (string? (second c)) (string? (third c)) (string=? (third c) "'")) (and (list? c) (= (length c) 3) (string? (first c)) (string=? (first c) "\"") (string? (third c)) (string=? (third c) "\"")) (and (list? c) (= (length c) 2) (string? (first c)) (or (string=? (first c) "a") (string=? (first c) "e") (string=? (first c) "j") (string=? (first c) "p") (string=? (first c) "q") (string=? (first c) "r") (string=? (first c) "t") (string=? (first c) "v") (string=? (first c) "fp") (string=? (first c) "sfp") (string=? (first c) "region") (string=? (first c) "region_size") (string=? (first c) "initial_region") (string=? (first c) "REGION_SIZE")) (string? (second c)))) c (parentheses-around c))) (define (c:copy-propagate! c) (let ((cs1 '()) (cs2 '())) (let loop ((c c)) (when (c:assignment-to-temporary? c) (set! cs1 (cons c cs1))) (when (and (pair? c) (not (c:declaration? c))) (loop (car c)) (loop (cdr c)))) (let loop ((c c)) (when (c:unprotected-assignment-to-atomic-temporary? c) (set! cs2 (cons c cs2))) (when (and (pair? c) (not (c:declaration? c))) (loop (car c)) (loop (cdr c)))) (let ((cs2 (remove-if-not (lambda (c2) (one (lambda (c1) (equal? (c:atomic-t (first (second (first c1)))) (first (second (first c2))))) cs1)) cs2))) (let loop ((c c)) (when (and (pair? c) (not (c:declaration? c))) (cond ((and (c:assignment-to-temporary? (car c)) (memq (car c) cs2)) (set-car! c '())) ((c:atomic-t? (car c)) (let ((c2 (find-if (lambda (c2) (equal? (first (second (first c2))) (car c))) cs2))) (when c2 (set-car! c (maybe-parentheses-around (third (third (second (first c2)))))))))) (cond ((and (c:assignment-to-temporary? (cdr c)) (memq (cdr c) cs2)) (set-cdr! c '())) ((c:atomic-t? (cdr c)) (let ((c2 (find-if (lambda (c2) (equal? (first (second (first c2))) (cdr c))) cs2))) (when c2 (set-cdr! c (maybe-parentheses-around (third (third (second (first c2)))))))))) (loop (car c)) (loop (cdr c))))))) ;;; Removing Unused Declarations (define (c:remove-unused-declarations! c) (let ((a-trie (create-trie 10 ;; conventions: CHAR (lambda (char) (- (char->integer char) (char->integer #\0))) ;; conventions: K (lambda (k) (integer->char (+ k (char->integer #\0)))) #f)) (r-trie (create-trie 10 ;; conventions: CHAR (lambda (char) (- (char->integer char) (char->integer #\0))) ;; conventions: K (lambda (k) (integer->char (+ k (char->integer #\0)))) #f)) (t-trie (create-trie 10 ;; conventions: CHAR (lambda (char) (- (char->integer char) (char->integer #\0))) ;; conventions: K (lambda (k) (integer->char (+ k (char->integer #\0)))) #f)) (v-trie (create-trie 10 ;; conventions: CHAR (lambda (char) (- (char->integer char) (char->integer #\0))) ;; conventions: K (lambda (k) (integer->char (+ k (char->integer #\0)))) #f))) ;; conventions: A-TRIE, R-TRIE, T-TRIE, V-TRIE (let loop ((c c)) (when (c:declaration? c) (when (and (list? (second c)) (= (length (second c)) 2) (string? (first (second c))) (string? (second (second c)))) (cond ((string=? (first (second c)) "a") (when (trie-ref a-trie (second (second c))) (fuck-up)) (trie-set! a-trie (second (second c)) c)) ((string=? (first (second c)) "r") (when (trie-ref r-trie (second (second c))) (fuck-up)) (trie-set! r-trie (second (second c)) c)) ((string=? (first (second c)) "t") (when (trie-ref t-trie (second (second c))) (fuck-up)) (trie-set! t-trie (second (second c)) c)) ((string=? (first (second c)) "v") (when (trie-ref v-trie (second (second c))) (fuck-up)) (trie-set! v-trie (second (second c)) c))))) (when (and (pair? c) (not (c:declaration? c))) (loop (car c)) (loop (cdr c)))) (let loop ((c c)) ;; needs work: To replace the calls to LIST? and LENGTH in the following ;; with more efficient code: (when (and (list? c) (= (length c) 2) (string? (first c)) (or (string=? (first c) "a") (string=? (first c) "r") (string=? (first c) "t") (string=? (first c) "v")) (string? (second c)) (every char-numeric? (string->list (second c)))) (let ((c (cond ((string=? (first c) "a") (trie-ref a-trie (second c))) ((string=? (first c) "r") (trie-ref r-trie (second c))) ((string=? (first c) "t") (trie-ref t-trie (second c))) ((string=? (first c) "v") (trie-ref v-trie (second c))) (else (fuck-up))))) (when c (set-car! (cdddr c) #t)))) (when (and (pair? c) (not (c:declaration? c))) (loop (car c)) (loop (cdr c))))) (let loop ((c c)) (when (and (pair? c) (not (c:declaration? c))) (when (and (c:declaration? (car c)) (not (fourth (car c)))) (set-car! c '())) (when (and (c:declaration? (cdr c)) (not (fourth (cdr c)))) (set-cdr! c '())) (loop (car c)) (loop (cdr c))))) ;;; Removing Unused Labels (define (c:remove-unused-labels! c) (let ((cs '())) (let loop ((c c)) ;; needs work: To replace the calls to LIST? and LENGTH in the following ;; with more efficient code: (when (and (list? c) (= (length c) 2) (list? (first c)) (= (length (first c)) 3) (string? (first (first c))) (string=? (first (first c)) "goto") (string? (second (first c))) (string=? (second (first c)) " ") (list? (third (first c))) (= (length (third (first c))) 2) (string? (first (third (first c)))) (or (string=? (first (third (first c))) "h") (string=? (first (third (first c))) "l") (string=? (first (third (first c))) "x")) (string? (second (third (first c)))) (not (member (third (first c)) cs))) (set! cs (cons (third (first c)) cs))) (when (and (pair? c) (not (c:declaration? c))) (loop (car c)) (loop (cdr c)))) (let loop ((c c)) (when (and (pair? c) (not (c:declaration? c))) (when (and (c:label? (car c)) (not (member (first (car c)) cs))) (set-car! c '())) (when (and (c:label? (cdr c)) (not (member (first (cdr c)) cs))) (set-cdr! c '())) (loop (car c)) (loop (cdr c)))))) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/source/stalin4b.sc0000600017435200151030000012241610464434544014756 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; Stalin 0.11 - A global optimizing compiler for Scheme ;;; Copyright 1993, 1994, and 1995 University of Toronto. All rights reserved. ;;; Copyright 1996 Technion. All rights reserved. ;;; Copyright 1996 and 1997 University of Vermont. All rights reserved. ;;; Copyright 1997, 1998, 1999, 2000, and 2001 NEC Research Institute, Inc. All ;;; rights reserved. ;;; Copyright 2002, 2003, 2004, 2005, and 2006 Purdue University. All rights ;;; reserved. ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License ;;; as published by the Free Software Foundation; either version 2 ;;; of the License, or (at your option) any later version. ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;;; written by: ;;; Jeffrey Mark Siskind ;;; School of Electrical and Computer Engineering ;;; Purdue University ;;; Electrical Engineering Building, Room 330 ;;; 465 Northwestern Avenue ;;; West Lafayette IN 47907-2035 USA ;;; voice: 765/496-3197 ;;; fax: 765/494-6440 ;;; qobi@purdue.edu ;;; http://www.ece.purdue.edu/~qobi ;;; Begin delete for Trotsky (module stalin4b) (include "QobiScheme.sch") (include "stalin4b.sch") ;;; End delete for Trotsky (define *errors* '(("out_of_memory" "Out of memory" #f) ("call" "Attempt to call a non-procedure or call a procedure with the wrong number of arguments" "Might call a non-procedure or call a procedure with the wrong number of arguments" "Will call a non-procedure or call a procedure with the wrong number of arguments") ("foreign_call" "Attempt to call a foreign procedure with arguments of the wrong type" "Might call a foreign procedure with arguments of the wrong type" "Will call a foreign procedure with arguments of the wrong type") ("void_if" "The antecedent to an IF has an unspecified value" "The antecedent to an IF might have an unspecified value" "The antecedent to an IF will have an unspecified value") ("void_call" "Attempt to call an unspecified value" "Might call an unspecified value" "Will call an unspecified value") ("void_primitive_procedure_call" "Attempt to call a primitive procedure with an unspecified value" "Might call a primitive procedure with an unspecified value" "Will call a primitive procedure with an unspecified value") ("void_foreign_procedure_call" "Attempt to call a foreign procedure with an unspecified value" "Might call a foreign procedure with an unspecified value" "Will call a foreign procedure with an unspecified value") ("structure_ref" "Argument to STRUCTURE-REF ~a a structure of the correct type" #t) ("structure_set" "First argument to STRUCTURE-SET! ~a a structure of the correct type" #t) ("string_to_uninterned_symbol" "Argument to STRING->UNINTERNED-SYMBOL ~a a string" #t) ("exact" "Argument to EXACT? ~a a number" #t) ("inexact" "Argument to INEXACT? ~a a number" #t) ("symbol_string" "Argument to SYMBOL->STRING ~a a symbol" #t) ("eql" "Argument to = ~a a number" #t) ("lt" "Argument to < ~a a real number" #t) ("gt" "Argument to > ~a a real number" #t) ("le" "Argument to <= ~a a real number" #t) ("ge" "Argument to >= ~a a real number" #t) ("zero" "Argument to ZERO? ~a a number or a pointer" #t) ("positive" "Argument to POSITIVE? ~a a real number" #t) ("negative" "Argument to NEGATIVE? ~a a real number" #t) ("max" "Argument to MAX ~a a real number" #t) ("min" "Argument to MIN ~a a real number" #t) ("plus" "Argument to + ~a a number" #t) ("minus" "Argument to - ~a a number" #t) ("times" "Argument to * ~a a number" #t) ("divide" "Argument to / ~a a number" #t) ("quotient1" "First argument to QUOTIENT ~a an integer" #t) ("quotient2" "Second argument to QUOTIENT ~a an integer" #t) ("remainder1" "First argument to REMAINDER ~a an integer" #t) ("remainder2" "Second argument to REMAINDER ~a an integer" #t) ("lsh1" "First argument to << ~a an integer" #t) ("lsh2" "Second argument to >> ~a an integer" #t) ("rsh1" "First argument to << ~a an integer" #t) ("rsh2" "Second argument to >> ~a an integer" #t) ("bitwise_not" "Argument to BITWISE-NOT ~a an exact integer" #t) ("bitwise_and" "Argument to BITWISE-AND ~a an exact integer" #t) ("bitwise_or" "Argument to BITWISE-OR ~a an exact integer" #t) ("floor" "Argument to FLOOR ~a a real number" #t) ("ceiling" "Argument to CEILING ~a a real number" #t) ("truncate" "Argument to TRUNCATE ~a a real number" #t) ("round" "Argument to ROUND ~a a real number" #t) ("exp" "Argument to EXP ~a a number" #t) ("log" "Argument to LOG ~a a number" #t) ("sin" "Argument to SIN ~a a number" #t) ("cos" "Argument to COS ~a a number" #t) ("tan" "Argument to TAN ~a a number" #t) ("asin" "Argument to ASIN ~a a number" #t) ("acos" "Argument to ACOS ~a a number" #t) ("atan1" "Argument to ATAN ~a a number" #t) ("atan2" "First argument to ATAN ~a a number" #t) ("atan3" "Second argument to ATAN ~a a number" #t) ("sqrt" "Argument to SQRT ~a a number" #t) ("expt1" "First argument to EXPT ~a a number" #t) ("expt2" "Second argument to EXPT ~a a number" #t) ("exact_to_inexact" "Argument to EXACT->INEXACT ~a a number" #t) ("inexact_to_exact1" "Argument to INEXACT->EXACT ~a a number" #t) ("inexact_to_exact2" "Implementation restriction: Argument to INEXACT->EXACT ~a a real number" #t) ("char_to_integer" "Argument to CHAR->INTEGER ~a a character" #t) ("integer_to_char1" "Argument to INTEGER->CHAR ~a an exact integer" #t) ("integer_to_char2" "Argument to INTEGER->CHAR is out of bounds" #f) ("make_string1" "First argument to MAKE-STRING ~a an exact integer" #t) ("make_string2" "Second argument to MAKE-STRING ~a a character" #t) ("string" "Argument to STRING ~a a character" #t) ("string_length" "Argument to STRING-LENGTH ~a a string" #t) ("string_ref1" "First argument to STRING-REF ~a a string" #t) ("string_ref2" "Second argument to STRING-REF ~a an exact integer" #t) ("string_ref3" "Second argument to STRING-REF is out of bounds" #f) ("string_set1" "First argument to STRING-SET! ~a a string" #t) ("string_set2" "Second argument to STRING-SET! ~a an exact integer" #t) ("string_set3" "Third argument to STRING-SET! ~a a character" #t) ("string_set4" "Second argument to STRING-SET! is out of bounds" #f) ("make_vector" "First argument to MAKE-VECTOR ~a an exact integer" #t) ("make_displaced_vector1" "First argument to MAKE-DISPLACED-VECTOR ~a a vector" #t) ("make_displaced_vector2" "Second argument to MAKE-DISPLACED-VECTOR ~a an exact integer" #t) ("make_displaced_vector3" "Third argument to MAKE-DISPLACED-VECTOR ~a an exact integer" #t) ("make_displaced_vector4" "Second argument to MAKE-DISPLACED-VECTOR is out of bounds" #f) ("make_displaced_vector5" "Third argument to MAKE-DISPLACED-VECTOR is out of bounds" #f) ("vector_length" "Argument to VECTOR-LENGTH ~a a vector" #t) ("vector_ref1" "First argument to VECTOR-REF ~a a vector" #t) ("vector_ref2" "Second argument to VECTOR-REF ~a an exact integer" #t) ("vector_ref3" "Second argument to VECTOR-REF is out of bounds" #f) ("vector_set1" "First argument to VECTOR-SET! ~a a vector" #t) ("vector_set2" "Second argument to VECTOR-SET! ~a an exact integer" #t) ("vector_set3" "Second argument to VECTOR-SET! is out of bounds" #f) ("call_with_current_continuation" "First argument to CALL-WITH-CURRENT-CONTINUATION ~a a procedure of one argument" #t) ("open_input_file1" "Argument to OPEN-INPUT-FILE ~a a string" #t) ("open_input_file2" "OPEN-INPUT-FILE cannot open file" #f) ("open_output_file1" "Argument to OPEN-OUTPUT-FILE ~a a string" #t) ("open_output_file2" "OPEN-OUTPUT-FILE cannot open file" #f) ("close_input_port1" "Argument to CLOSE-INPUT-PORT ~a an input port" #t) ("close_input_port2" "CLOSE-INPUT-PORT cannot close input port" #f) ("close_output_port1" "Argument to CLOSE-OUTPUT-PORT ~a an output port" #t) ("close_output_port2" "CLOSE-OUTPUT-PORT cannot close output port" #f) ("read_char1" "Argument to READ-CHAR1 ~a an input port" #t) ("peek_char1" "Argument to PEEK-CHAR1 ~a an input port" #t) ("char_ready1" "Argument to CHAR-READY?1 ~a an input port" #t) ("write_char1" "First argument to WRITE-CHAR2 ~a a character" #t) ("write_char2" "Second argument to WRITE-CHAR2 ~a an output port" #t) ("panic" "Argument to PANIC ~a a string" #t) ("integer_to_string" "Argument to INTEGER->STRING ~a an exact integer" #t) ("integer_to_input_port" "Argument to INTEGER->INPUT-PORT ~a an exact integer" #t) ("integer_to_output_port" "Argument to INTEGER->OUTPUT-PORT ~a an exact integer" #t) ("integer_to_pointer" "Argument to INTEGER->POINTER ~a an exact integer" #t) ("infinity" "Argument to INFINITY? ~a a flonum" #t))) (define *errors-used* #f) (define *warnings* #f) (define (compile-error-procedure-prototypes) (newlines-between (map (lambda (error) ;; conventions: ERROR (set! *c:panic?* #t) ;; needs work: To use code-generation abstractions. (space-between "void" (c:noreturn-prototype (c:error (first error))))) *errors-used*))) (define (compile-error-procedures) (newlines-between (map (lambda (error) ;; conventions: ERROR (set! *c:panic?* #t) ;; needs work: To use code-generation abstractions. (space-between "void" (c:header (c:error (first error))) (braces-around (c:panic (c:string (if (eq? (third error) #t) (format #f (second error) "is not") (second error))))))) *errors-used*))) (define (restore? e/r) (cond ((environment? e/r) (and (has-region? e/r) (reentrant? e/r))) ((result? e/r) (restore? (result-environment e/r))) (else (fuck-up)))) (define (compile-restore e/r) ;; needs work: Returning from a procedure should restore all in-lined ;; reentrant regions that have self tail calls to that procedure. ;; Because we don't do this (yet), we need HAS-EXTERNAL-CALL? to ;; prevent allocation on such regions because otherwise there ;; would be a memory leak when we exit from such a procedure. (cond ((environment? e/r) (if (and (has-region? e/r) (reentrant? e/r)) (newline-between (cond (*treadmarks?* (include! "Tmk") ;Tmk_lock_acquire (c:gosub "Tmk_lock_acquire" (c:0))) (else (c:noop))) (if *expandable-regions?* (c:while (c:boolean-or (c:< (c:sfp e/r) (c:& (c:subscript (c:-> (c:region e/r) (c:data)) (c:0)))) (c:> (c:sfp e/r) (c:& (c:subscript (c:-> (c:region e/r) (c:data)) (c:region-size e/r))))) (newline-between (semicolon-after ;; needs work: To use code-generation abstractions. (space-between "struct" (c:region e/r) (star-before (c:region)))) (c::= (c:region) (c:region e/r)) (c::= (c:region-size e/r) (c:-> (c:region e/r) (c:region-size))) (c::= (c:region e/r) (c:-> (c:region e/r) (c:region))) (if *memory-messages?* (c:printf (c:string (format #f "Freeing region segment for ~a~%" (environment-name e/r)))) (c:noop)) (c:free (c:region) (has-nonatomic-region? e/r)))) (c:noop)) (c::= (c:fp e/r) (c:sfp e/r)) (cond (*treadmarks?* (include! "Tmk") ;Tmk_lock_release (c:gosub "Tmk_lock_release" (c:0))) (else (c:noop)))) (c:noop))) ((result? e/r) (compile-restore (result-environment e/r))) (else (fuck-up)))) (define (result-accessed? r) (unless (return? r) (fuck-up)) (expression-accessed? (expression-body (environment-expression (result-environment r))))) (define (compile-return r) (if (and (return? r) (or (environment-returns? (result-environment r)) (environment-passes-parameters-globally? (result-environment r)))) (newline-between (compile-restore r) (if (or (fictitious? (result-type-set r)) (not (result-accessed? r))) (c:return) (c:return (c:r (result-environment r))))) (c:noop))) (define (zero-value c u w) (if *eq?-forgery?* ;; This zeros out the value field so that EQ? forgery works. ;; needs work: This can be eliminated if there is never any EQ? forgery. (let* ((size (reduce max (map type-size (members-that (lambda (u) (or (not (char-type? u)) (not (fictitious? u)))) w)) ;; This can't happen if the type set isn't fictitious, ;; monomorphic, or tag only. #f)) (fixnum-size (quotient size *fixnum-size*)) (char-size (remainder size *fixnum-size*))) ;; conventions: SIZE FIXNUM-SIZE CHAR-SIZE (if (or (eq? u #f) (not (= size (type-size u)))) (newline-between (newlines-between (map-n (lambda (i) (c::= (c:raw-subscript (c:fixnum*-cast (c:& (c:. c "value"))) (c:fixnum i)) (c:0))) fixnum-size)) (newlines-between (map-n (lambda (i) (c::= (c:raw-subscript (c:char*-cast (c:& (c:. c "value"))) (c:fixnum (+ (* fixnum-size *fixnum-size*) i))) (c:0))) char-size))) (c:noop))) (c:noop))) (define (move-general r c w w2 p?) ;; W is the source representation type set ;; W2 is the source restricted type set (let ((us (intersectionq (members w) (members w2)))) (cond ((discard? r) (if p? (c:noop) (semicolon-after c))) ((and (return? r) (not (result-accessed? r))) (newline-between (if p? (c:noop) (semicolon-after c)) (compile-return r))) ((antecedent? r) ;; needs work: I'm not sure whether uniqueness screws up here. (if (every false-type? us) (if (some false-type? us) (newline-between (if p? (c:noop) (semicolon-after c)) (compile-goto (result-l2 r) (result-l0 r))) (if p? (c:noop) (semicolon-after c))) (if (some false-type? us) (let ((u (first (remove-if-not false-type? us)))) (c:if (cond ((fake? w) (fuck-up)) ((monomorphic? w) (fuck-up)) ((tag-only? w) (c:== (c:tag c w) (c:type-tag u))) ((squeezed? w) (squeeze-tag-test c u w)) ((squished? w) (squish-tag-test c u w)) (else (c:== (c:tag c w) (c:type-tag u)))) (compile-goto (result-l2 r) (result-l0 r)) (compile-goto (result-l1 r) (result-l0 r)) #t)) (newline-between (if p? (c:noop) (semicolon-after c)) (compile-goto (result-l1 r) (result-l0 r)))))) (else (let* ((c1 (result-c r)) (w1 (result-type-set r)) ;; note: This was added because of uniqueness. With uniqueness, it ;; is possible for the source to be widened and contain ;; members that the more precise analysis determines can't ;; really occur so that they may be absent from the ;; destination. (us (if *uniqueness?* (intersectionq (members w1) us) us))) (define (move c) (cond ((return? r) (if (or (environment-returns? (result-environment r)) (environment-passes-parameters-globally? (result-environment r))) ;; needs work: This will replicate the COMPILE-RESTORE in both ;; branches of an IF or in all branches of a dispatch. (newline-between ;; needs work: This potentially can do the COMPILE-RESTORE before ;; evaluating C. (compile-restore r) (c:return c)) (c:noop))) (else (c::= c1 c)))) (unless (every (lambda (u) (member? u w1)) us) (fuck-up)) (cond ((or (fake? w1) (null? us)) (newline-between (if p? (c:noop) (semicolon-after c)) (compile-return r))) ((monomorphic? w1) (move (c:value c (the-member w1) w))) ((tag-only? w1) (cond ((fake? w) (move (c:type-tag (the-member w)))) ((monomorphic? w) (unless (char-type? (the-member w)) (fuck-up)) ;; note: Converting from character to tag-only used to be free but now ;; requires a left shift when there is some squishing. This is ;; the price to pay for universal type tags. ;; This assumes that *TAG* is unsigned so that << does a logical ;; shift. The call to C:UNSIGNED-CHAR-CAST is in case *CHAR* is ;; signed to force << to be a logical shift without a prior sign ;; extend. The call to C:TYPE-SET-CAST is to prevent any overflow in ;; the logical shift. (move (c:<< (c:type-set-cast (c:unsigned-char-cast c) w1) (c:fixnum *worst-alignment*)))) ((tag-only? w) (move c)) ((squeezed? w) (move (c:squeezed->tag-cast c w))) ;; This works because of universal type tags. This assumes that ;; casting from *SQUISHED* to *TAG* does not modify the bit pattern. ((squished? w) (move (c:type-set-cast c w1))) (else (move (c:tag c w))))) ((squeezed? w1) (cond ((fake? w) (move (c:type-set-cast (c:type-tag (the-member w)) w1))) ((monomorphic? w) (move (squeeze (c:value c (the-member w) w) (the-member w) w1))) ((tag-only? w) (move (c:tag->squeezed-cast c w w1))) ((squeezed? w) (if (eq? (squeezed-member w1) (squeezed-member w)) (move c) ;; The squeezed members can only differ in the case of narrowing ;; when the only values being moved are the non-squeezed types. (move (c:type-set-cast c w1)))) ((squished? w) (move (c:type-set-cast (if (and (member? (squeezed-member w1) w) (not (zero? (squish-tag (squeezed-member w1) w)))) (if (every (lambda (u) (or (char-type? u) (fictitious? u))) us) (strip-known-squish-tag c (squeezed-member w1) w) (strip-squish-tag c w)) c) w1))) (else (let ((u1 (squeezed-member w1))) (if (some (lambda (u) (eq? u u1)) us) (if (every (lambda (u) (eq? u u1)) us) (move (squeeze (c:value c u1 w) u1 w1)) (newline-between (c:/**/ "MOVE: branching general to squeezed") (c:if (c:== (c:tag c w) (c:type-tag u1)) (move (squeeze (c:value c u1 w) u1 w1)) (move (c:tag->squeezed-cast c w w1)) #t))) (move (c:tag->squeezed-cast c w w1))))))) ((squished? w1) (cond ((fake? w) (move (c:type-set-cast (c:type-tag (the-member w)) w1))) ((monomorphic? w) (move (squish (c:value c (the-member w) w) (the-member w) w1))) ;; This works because of universal type tags. This assumes that ;; casting from *TAG* to *SQUISHED* does not modify the bit pattern. ((tag-only? w) (move (c:type-set-cast (c:tag c w) w1))) ((squeezed? w) (if (or (every (lambda (u) (or (char-type? u) (fictitious? u))) us) (zero? (squish-tag (squeezed-member w) w1))) (move (c:type-set-cast c w1)) (if (some (lambda (u) (or (char-type? u) (fictitious? u))) us) (newline-between (c:/**/ "MOVE: branching squeezed to squished") (c:if (c:>= c (c:type-set-cast (c:value-offset) w)) (move (squish (c:value c (squeezed-member w) w) (squeezed-member w) w1)) (move (c:type-set-cast c w1)) #t)) (move (squish (c:value c (squeezed-member w) w) (squeezed-member w) w1))))) ((squished? w) (cond ((and (every (lambda (u) (or (char-type? u) (fictitious? u) (= (squish-tag u w) (squish-tag u w1)))) us) (= (squish-alignment w) (squish-alignment w1))) (move c)) (else (unless (or (= (squish-alignment w) (squish-alignment w1)) (every (lambda (u) (or (char-type? u) (fictitious? u) (fixnum-type? u) ;; needs work: Can be extended to allow ;; squishing a singleton ;; immediate structure if its ;; slot is squished. (degenerate-vector-type? u))) us)) (unimplemented #f "This case of squished-to-squished is not (yet) implemented")) (if (or (not (some (lambda (u) (or (char-type? u) (fictitious? u))) us)) (and (= (squish-alignment w) (squish-alignment w1)) (every (lambda (u) (or (not (zero? (squish-tag u w))) (zero? (squish-tag u w1)))) us))) (newline-between (c:/**/ "MOVE: squished to squished") (move (c:+ ;; needs work: This is wrong. Only the non-pointer values ;; need to be shifted. But fortunately this ;; doesn't cause a problem since if both W and W1 ;; can contain the same pointer values then they ;; will have the same squish alignment because ;; all pointer values have the same alignment. ;; This is checked by the above panic. (c:squished-cast (cond ((= (squish-alignment w) (squish-alignment w1)) (strip-squish-tag c w)) ((< (squish-alignment w) (squish-alignment w1)) (c:<< (c:signed-squished-cast (strip-squish-tag c w)) (c:fixnum (- (squish-alignment w1) (squish-alignment w))))) (else (c:>> (c:signed-squished-cast (strip-squish-tag c w)) (c:fixnum (- (squish-alignment w) (squish-alignment w1))))))) (c:subscript ;; needs work: To use code-generation abstractions. (list "\"" (reduce string-append (let ((alist (map (lambda (u) (cons (squish-tag u w) (squish-tag u w1))) us))) (map-n (lambda (i) (let ((c (number->string (cdr (or (assv i alist) (cons 0 0)))))) (when (> (string-length c) 2) (fuck-up)) (string-append "\\" (make-string (- 3 (string-length c)) #\0) c))) (+ (reduce max (map car alist) 0) 1))) "") "\"") (extract-squish-tag c w))))) (newline-between (c:/**/ "MOVE: branching squished to squished") (c:if (c:boolean-or (c:!=0 (extract-squish-tag c w)) (c:>= c (c:type-set-cast (c:value-offset) w))) (move (c:+ ;; needs work: This is wrong. Only the non-pointer values ;; need to be shifted. But fortunately this ;; doesn't cause a problem since if both W and ;; W1 can contain the same pointer values then ;; they will have the same squish alignment ;; because all pointer values have the same ;; alignment. This is checked by the above ;; panic. (c:squished-cast (cond ((= (squish-alignment w) (squish-alignment w1)) (strip-squish-tag c w)) ((< (squish-alignment w) (squish-alignment w1)) (c:<< (c:signed-squished-cast (strip-squish-tag c w)) (c:fixnum (- (squish-alignment w1) (squish-alignment w))))) (else (c:>> (c:signed-squished-cast (strip-squish-tag c w)) (c:fixnum (- (squish-alignment w) (squish-alignment w1))))))) (c:subscript ;; needs work: To use code-generation abstractions. (list "\"" (reduce string-append (let ((alist (map (lambda (u) (cons (squish-tag u w) (squish-tag u w1))) (remove-if (lambda (u) (or (char-type? u) (fictitious? u))) us)))) (map-n (lambda (i) (let ((c (number->string (cdr (or (assv i alist) (cons 0 0)))))) (when (> (string-length c) 2) (fuck-up)) (string-append "\\" (make-string (- 3 (string-length c)) #\0) c))) (+ (reduce max (map car alist) 0) 1))) "") "\"") (extract-squish-tag c w)))) (move c) #t)))))) (else (newline-between (if (or (every (lambda (u) (or (char-type? u) (fictitious? u))) us) (null? (rest us))) (c:noop) (c:/**/ "MOVE: dispatching general to squished")) (nonchecking-type-switch (lambda (u) (some (lambda (u1) (eq? u u1)) us)) w r c (lambda (u) (move (if (or (char-type? u) (fictitious? u)) ;; This works because of universal type tags. This ;; assumes that casting from *TAG* to *SQUISHED* ;; does not modify the bit pattern. (c:type-set-cast (c:tag c w) w1) (squish (c:value c u w) u w1))))))))) (else (cond ((fake? w) (newline-between (zero-value c1 #f w1) (c::= (c:tag c1 w1) (c:type-tag (the-member w))) (compile-return r))) ((monomorphic? w) (newline-between (if (char-type? (the-member w)) ;; note: Converting from character to general used to be free ;; but now requires a left shift when there is some ;; squishing. This is the price to pay for universal type ;; tags. ;; This assumes that *TAG* is unsigned so that << does a logical ;; shift. The call to C:UNSIGNED-CHAR-CAST is in case *CHAR* is ;; signed to force << to be a logical shift without a prior sign ;; extend. The call to C:TAG-CAST is to prevent any overflow in ;; the logical shift. (newline-between (zero-value c1 #f w1) (c::= (c:tag c1 w1) (c:<< (c:tag-cast (c:unsigned-char-cast (c:value c (the-member w) w))) (c:fixnum *worst-alignment*)))) (newline-between (zero-value c1 (the-member w) w1) (c::= (c:tag c1 w1) (c:type-tag (the-member w))) (c::= (c:value c1 (the-member w) w1) (c:value c (the-member w) w)))) (compile-return r))) ((tag-only? w) (newline-between (zero-value c1 #f w1) (c::= (c:tag c1 w1) (c:tag c w)) (compile-return r))) ((squeezed? w) (newline-between (if (every (lambda (u) (or (char-type? u) (fictitious? u))) us) (newline-between (zero-value c1 #f w1) (c::= (c:tag c1 w1) (c:squeezed->tag-cast c w))) (if (some (lambda (u) (or (char-type? u) (fictitious? u))) us) (newline-between (c:/**/ "MOVE: branching squeezed to general") (c:if (c:>= c (c:type-set-cast (c:value-offset) w)) (newline-between (zero-value c1 (squeezed-member w) w1) (c::= (c:tag c1 w1) (c:type-tag (squeezed-member w))) (c::= (c:value c1 (squeezed-member w) w1) c)) (newline-between (zero-value c1 #f w1) (c::= (c:tag c1 w1) (c:squeezed->tag-cast c w))) #t)) (newline-between (zero-value c1 (squeezed-member w) w1) (c::= (c:tag c1 w1) (c:type-tag (squeezed-member w))) (c::= (c:value c1 (squeezed-member w) w1) c)))) (compile-return r))) ((squished? w) (newline-between (if (or (every (lambda (u) (or (char-type? u) (fictitious? u))) us) (null? (rest us))) (c:noop) (c:/**/ "MOVE: dispatching squished to general")) (nonchecking-type-switch (lambda (u) (some (lambda (u1) (eq? u u1)) us)) w r c (lambda (u) (if (or (char-type? u) (fictitious? u)) ;; This works because of universal type tags. This assumes ;; that casting from *SQUISHED* to *TAG* does not modify the ;; bit pattern. (newline-between (zero-value c1 #f w1) (c::= (c:tag c1 w1) (c:tag-cast c)) (compile-return r)) (newline-between (zero-value c1 u w1) (c::= (c:tag c1 w1) (c:type-tag u)) (c::= (c:value c1 u w1) (c:value c u w)) (compile-return r))))))) (else (cond ((eq? w w1) (move c)) ((and *forgery?* (= (type-set-size w) (type-set-size w1))) (move (c:forgery-cast c w1))) (else (newline-between (if (or (every (lambda (u) (or (char-type? u) (fictitious? u))) us) (null? (rest us))) (c:noop) (c:/**/ "MOVE: dispatching general to general")) ;; This works because of universal type tags. (c::= (c:tag c1 w1) (c:tag c w)) (nonchecking-type-switch (lambda (u) (some (lambda (u1) (eq? u u1)) us)) w r c (lambda (u) (if (or (char-type? u) (fictitious? u)) (newline-between (zero-value c1 #f w1) (compile-return r)) (newline-between (zero-value c1 u w1) (c::= (c:value c1 u w1) (c:value c u w)) (compile-return r))))))))))))))))) (define (move r c w) (move-general r c w w #t)) (define (move-strict r c w) (move-general r (c:protect c) w w #f)) (define (move-access r c w w2) (move-general r c w w2 #t)) (define (widen-type r c u) (let ((w (create-anonymous-type-set u))) (set-type-set-fictitious?! w (case *closure-conversion-method* ((baseline conventional) #f) ((lightweight) (or (void? w) (and (not (multimorphic? w)) (must-be? fictitious? w)))) (else (fuck-up)))) (move-general r c w w #t))) (define (widen r c m) (cond ((discard? r) (c:noop)) ((antecedent? r) ;; note: The following checks for EQ?-ness between procedures. (if (eq? m false-type?) (compile-goto (result-l2 r) (result-l0 r)) (compile-goto (result-l1 r) (result-l0 r)))) (else (widen-type r c (the-member-that m (result-type-set r)))))) (define (move-displaced-vector r u c1 c2) (cond ((discard? r) (c:noop)) ((and (return? r) (not (result-accessed? r))) ;; note: C2 is not evaluated here. This is OK because in all uses of ;; MOVE-DISPLACED-VECTOR C2 does not need to be strict. (compile-return r)) ((antecedent? r) (compile-goto (result-l1 r) (result-l0 r))) (else (let ((c (result-c r)) (w (result-type-set r))) (when (or (squeezed? w) (squished? w)) (unimplemented #f "Squeezing or squishing a displaced vector is not (yet) implemented")) (unless (member? u w) (fuck-up)) (cond ((and (return? r) (monomorphic? w) (degenerate-vector-type? (the-member w))) (if (or (environment-returns? (result-environment r)) (environment-passes-parameters-globally? (result-environment r))) (newline-between ;; note: This potentially can do the COMPILE-RESTORE before ;; evaluating C2. This is OK because in all uses of ;; MOVE-DISPLACED-VECTOR C2 does not need to be strict. (compile-restore r) (c:return c2)) (c:noop))) ((and (return? r) (tag-only? w)) (if (or (environment-returns? (result-environment r)) (environment-passes-parameters-globally? (result-environment r))) (newline-between (compile-restore r) (c:return (c:type-tag u))) (c:noop))) (else (newline-between (if (or (monomorphic? w) (squeezed? w) (squished? w)) (c:noop) (c::= (c:tag c w) (c:type-tag u))) (c::= (value-vector-length c u w) c2) (if (degenerate-vector-type? u) (c:noop) (c::= (value-vector-elements c u w) c1)) (compile-return r)))))))) (define *ti* #f) (define (allocate-temporary w) (if (fictitious? w) 'void9 (let ((t (c:t *ti*))) (set! *ti* (+ *ti* 1)) (outside-body (c:declaration w t (c:noop))) t))) (define (compile-error c x/y p?) ;; needs work: Should give an indication of the call-site offset. (cond ((expression? x/y) (let ((error (assoc c *errors*))) ;; conventions: ERROR (unless error (fuck-up)) (when (and p? (not (third error))) (fuck-up)) (unless (memq error *errors-used*) (set! *errors-used* (cons error *errors-used*))) (when (third error) (cond ((expression-pathname x/y) (notify "~a:~s:~s:~a" (expression-pathname x/y) (expression-line-position x/y) (expression-character-position x/y) (cond ((eq? (third error) #t) (format #f (second error) (if p? "will not be" "might not be"))) ((string? (third error)) ((if p? fourth third) error)) (else (fuck-up))))) (else (notify "In ~a" (environment-name (expression-environment x/y))) (notify (cond ((eq? (third error) #t) (format #f (second error) (if p? "will not be" "might not be"))) ((string? (third error)) ((if p? fourth third) error)) (else (fuck-up)))))) (set! *warnings* (cons (list (expression-index x/y) (replace-true-and-false-with-t-and-nil p?) (cond ((eq? (third error) #t) (format #f (second error) (if p? "will not be" "might not be"))) ((string? (third error)) ((if p? fourth third) error)) (else (fuck-up))) x/y) *warnings*))) (c:no-return (newline-between (cond ((expression-pathname x/y) (c:backtrace (c:string (expression-pathname x/y)) (c:fixnum (expression-line-position x/y)) (c:fixnum (expression-character-position x/y)))) ((empty? (expression-environment x/y)) (c:backtrace-internal (c:string "top level"))) (else (c:backtrace-internal (c:string (environment-name (expression-environment x/y)))))) (c:gosub (c:error c)))))) ((call-site? x/y) (compile-error c (call-site-expression x/y) p?)) (else (fuck-up)))) (define (compile-comparison r y cs ws c1 c2) ;; needs work: The code size generated can be exponential in the number of ;; arguments. ;; needs work: To handle rectangular numbers. (let loop ((cs cs) (ws ws) (cs1 '()) (us '())) (if (null? cs) (let ((cs1 (reverse cs1))) (compile-test r (apply c:&& (map (lambda (c2 c3 u1 u2) (c1 c2 c3 u1 u2)) (but-last cs1) (rest cs1) (but-last us) (rest us))))) (type-switch number-type? (first ws) r (first cs) (lambda (u) (loop (rest cs) (rest ws) (cons (c:value (first cs) u (first ws)) cs1) (cons u us))) (lambda (p?) (compile-error c2 y p?)))))) (define (compile-arithmetic m r y cs ws u1 c1 c2) ;; needs work: The code size generated can be exponential in the number of ;; arguments. (let loop ((cs0 cs) (ws0 ws) (cs '()) (us '())) (define (arithmetic-result-type us) (if (null? (rest (rest us))) (u1 (second us) (first us)) (u1 (arithmetic-result-type (rest us)) (first us)))) (define (compile-arithmetic-internal cs us ws) (if (null? (rest (rest cs))) (c1 (second cs) (second us) (first cs) (first us)) (c1 (compile-arithmetic-internal (rest cs) (rest us) (rest ws)) (arithmetic-result-type (rest us)) (first cs) (first us)))) (if (null? ws0) (widen-type r (compile-arithmetic-internal cs us (reverse ws)) (arithmetic-result-type us)) (type-switch m (first ws0) r (first cs0) (lambda (u) (loop (rest cs0) (rest ws0) (cons (c:value (first cs0) u (first ws0)) cs) (cons u us))) (lambda (p?) (compile-error c2 y p?)))))) (define (compile-allocate e y c c1 p?) ;; needs work: To use code-generation abstractions. (cond ((region-allocation? e) (if *expandable-regions?* (newline-between (cond (*treadmarks?* (include! "Tmk") ;Tmk_lock_acquire (c:gosub "Tmk_lock_acquire" (c:0))) (else (c:noop))) (c:if (c:> (c:+ (c:fp e) c) ;needs work: To check for overflow. (c:& (c:subscript (c:-> (c:region e) (c:data)) (c:region-size e)))) (newline-between (semicolon-after (space-between "struct" (c:region e) (star-before (c:region)))) ;; needs work: needs abstraction for initialized declaration (semicolon-after (space-between *length* (unparenthesize (c:= (c:region-size) (c:big-region-size e))))) (c:if (c:> c (c:region-size)) (c::= (c:region-size) c) (c:noop) #t) (if *memory-messages?* (c:printf (c:string (format #f "Allocating region segment for ~a~%" (environment-name e)))) (c:noop)) (c::= (c:region) (c:cast (space-between "struct" (c:region e) "*") (c:malloc ;; needs work: To check for overflow. (c:+ (c:sizeof (space-between "struct" (c:region e))) ;; Overflow can't occur. (c:- (c:region-size) (c:1))) (has-nonatomic-region? e)))) (if *memory-checks?* (c:if (c:==null (c:region)) (compile-error "out_of_memory" y #f) (c:noop) #t) (c:noop)) (c::= (c:-> (c:region) (c:region)) (c:region e)) (if (reentrant? e) (c::= (c:-> (c:region) (c:region-size)) (c:region-size e)) (c:noop)) (c::= (c:region-size e) (c:region-size)) (c::= (c:region e) (c:region)) (c::= (c:fp e) (c:& (c:subscript (c:-> (c:region) (c:data)) (c:0)))) ;; needs work: There is a bug here. If the region_size was ;; bumped for a large object then there is no slack ;; for alignment adjustment. (c:align (c:fp e))) (c:noop) #f) (c1 (c:fp e) (lambda (c) (c:noop))) ;; needs work: To check for overflow. (c:+= (c:fp e) (if (zero? *allocation-alignment*) c ;; needs work: To check for overflow. (c:+ c ;; Overflow can't occur. (c:& (c:- (c:fixnum (expt 2 *allocation-alignment*)) (c:% c (c:fixnum (expt 2 *allocation-alignment*)))) (c:fixnum (- (expt 2 *allocation-alignment*) 1)))))) (cond (*treadmarks?* (include! "Tmk") ;Tmk_lock_release (c:gosub "Tmk_lock_release" (c:0))) (else (c:noop)))) (newline-between (cond (*treadmarks?* (include! "Tmk") ;Tmk_lock_acquire (c:gosub "Tmk_lock_acquire" (c:0))) (else (c:noop))) (c1 (c:fp e) (lambda (c) (c:noop))) (if *memory-checks?* (c:if (c:> (c:+ (c:fp e) c) ;needs work: To check for overflow. (c:& (c:subscript (c:region e) (c:big-region-size e)))) (compile-error "out_of_memory" y #f) (c:noop) #f) (c:noop)) ;; needs work: To check for overflow. (c:+= (c:fp e) ;; needs work: To check for overflow. (if (zero? *allocation-alignment*) c (c:+ c ;; Overflow can't occur. (c:& (c:- (c:fixnum (expt 2 *allocation-alignment*)) (c:% c (c:fixnum (expt 2 *allocation-alignment*)))) (c:fixnum (- (expt 2 *allocation-alignment*) 1)))))) (cond (*treadmarks?* (include! "Tmk") ;Tmk_lock_release (c:gosub "Tmk_lock_release" (c:0))) (else (c:noop)))))) ((stack-allocation? e) ;; needs work: Might not work for COMPILE-ALLOCATE-HEADED-VECTOR because of ;; the nested braces. It is possible but tedious to fix this. (c1 (c:alloca c) (lambda (c2) (if *memory-checks?* (c:if ;; note: This assumes that alloca returns NULL upon stack ;; overflow. (c:==null c2) (compile-error "out_of_memory" y #f) (c:noop) #f) (c:noop))))) ((heap-allocation? e) (c1 ((if p? c:gc-malloc-atomic c:gc-malloc) c) (lambda (c2) (if *memory-checks?* (c:if ;; note: This assumes that GC_malloc and GC_malloc_atomic return ;; NULL when there is no more memory. (c:==null c2) (compile-error "out_of_memory" y #f) (c:noop) #f) (c:noop))))) (else (fuck-up)))) (define (compile-allocate-string c1 w1 c2 y) ;; needs work: To use code-generation abstractions. (let ((u (the-member-that string-type? w1))) (compile-allocate (cdr (assq u (expression-type-allocation-alist (call-site-expression y)))) y ;; needs work: To check for overflow. (c:* (c:+ c2 (c:1)) (c:sizeof *char*)) (lambda (c3 c4) (newline-between (widen (create-accessor-result w1 c1) (c:type-cast c3 u) string-type?) (c4 (c:value c1 u w1)) (c::= (value-string-ref c1 u w1 c2) (c:nul)))) #t))) (define (compile-allocate-structure c u w y) ;; needs work: What happens if the structure is fictitious? (when (fictitious? u) (fuck-up)) (if (structure-type-immediate? u) (cond ((fictitious? w) (fuck-up)) ((monomorphic? w) (c:noop)) ((tag-only? w) (fuck-up)) ((squeezed? w) (fuck-up)) ((squished? w) (fuck-up)) (else (c::= (c:tag c w) (c:type-tag u)))) (compile-allocate (cdr (assq u (expression-type-allocation-alist (call-site-expression y)))) y (c:sizeof (c:type& u "")) (lambda (c1 c2) (newline-between (widen-type (create-accessor-result w c) (c:type-cast c1 u) u) (c2 (c:value c u w)))) (type-atomic? u)))) (define (compile-allocate-headed-vector c1 u1 w1 c2 y) ;; needs work: To use code-generation abstractions. (if (degenerate-vector-type? u1) (cond ((fictitious? w1) (fuck-up)) ((monomorphic? w1) (c::= (value-vector-length c1 u1 w1) c2)) ((tag-only? w1) (fuck-up)) ((squeezed? w1) (fuck-up)) ((squished? w1) (c::= (vector-length-accessor c1 u1) (squish c2 u1 w1))) (else (c::= (value-vector-length c1 u1 w1) c2))) (compile-allocate (cdr (assq u1 (expression-type-allocation-alist (call-site-expression y)))) y ;; needs work: To check for overflow. (c:+ (c:sizeof (space-between "struct" (c:u u1))) ;; needs work: To check for overflow. (c:* (c:- c2 (c:1)) (c:sizeof (c:type-set (headed-vector-type-element u1) "")))) (lambda (c3 c4) (newline-between (widen-type (create-accessor-result w1 c1) (c:type-cast c3 u1) u1) (c4 (c:value c1 u1 w1)) (c::= (value-vector-length c1 u1 w1) c2))) (type-atomic? u1)))) (define (compile-allocate-closure-level e) ;; needs work: To use code-generation abstractions. (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented #f "Indirect flat closures are not (yet) implemented")) ((immediate-display indirect-display) (compile-allocate (allocation e) (environment-expression e) (c:sizeof (space-between "struct" (c:e e))) (lambda (c1 c2) (newline-between (c::= (c:e e) (c:cast (space-between "struct" (c:e e) "*") c1)) (c2 (c:e e)))) (environment-atomic? e))) ((linked) ;; Closures and displays are confluent with linked closures. (compile-allocate (allocation e) (environment-expression e) (c:sizeof (space-between "struct" (c:p e))) (lambda (c1 c2) (newline-between (c::= (c:e e) (c:cast (space-between "struct" (c:p e) "*") c1)) (c2 (c:e e)))) (environment-atomic? e))) (else (fuck-up)))) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/source/stalin4c.sc0000600017435200151030000020636310470375303014755 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; Stalin 0.11 - A global optimizing compiler for Scheme ;;; Copyright 1993, 1994, and 1995 University of Toronto. All rights reserved. ;;; Copyright 1996 Technion. All rights reserved. ;;; Copyright 1996 and 1997 University of Vermont. All rights reserved. ;;; Copyright 1997, 1998, 1999, 2000, and 2001 NEC Research Institute, Inc. All ;;; rights reserved. ;;; Copyright 2002, 2003, 2004, 2005, and 2006 Purdue University. All rights ;;; reserved. ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License ;;; as published by the Free Software Foundation; either version 2 ;;; of the License, or (at your option) any later version. ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;;; written by: ;;; Jeffrey Mark Siskind ;;; School of Electrical and Computer Engineering ;;; Purdue University ;;; Electrical Engineering Building, Room 330 ;;; 465 Northwestern Avenue ;;; West Lafayette IN 47907-2035 USA ;;; voice: 765/496-3197 ;;; fax: 765/494-6440 ;;; qobi@purdue.edu ;;; http://www.ece.purdue.edu/~qobi ;;; Begin delete for Trotsky (module stalin4c) (include "QobiScheme.sch") (include "stalin4c.sch") ;;; End delete for Trotsky (define (compile-regions) ;; needs work: To use code-generation abstractions. (newlines-between (map (lambda (e) (if (has-region? e) (if *expandable-regions?* (newline-between (c:define (c:big-region-size e) "65536") (semicolon-after (newline-between (space-between "struct" (c:region e)) (braces-around (newline-between (semicolon-after (space-between "struct" (c:region e) (star-before (c:region)))) (if (reentrant? e) (semicolon-after (space-between *length* (c:region-size))) (c:noop)) (semicolon-after (space-between (c:byte) (c:raw-subscript (c:data) (c:1)))))))) (semicolon-after (newline-between "struct" (space-between (braces-around (newline-between (semicolon-after (space-between "struct" (c:region e) (star-before (c:region)))) (if (reentrant? e) (semicolon-after (space-between *length* (c:region-size))) (c:noop)) (semicolon-after (space-between (c:byte) (c:raw-subscript (c:data) (c:big-region-size e)))))) (c:initial-region e)))) ;; needs work: needs abstraction for initialized declaration (semicolon-after (space-between "struct" (c:region e) (unparenthesize (c:= (star-before (c:region e)) (c:cast (space-between "struct" (c:region e) "*") (c:& (c:initial-region e))))))) (if (reentrant? e) (newline-between ;; needs work: needs abstraction for initialized declaration (semicolon-after (space-between *length* (unparenthesize (c:= (c:region-size e) (c:big-region-size e))))) ;; needs work: needs abstraction for initialized declaration (semicolon-after (space-between (c:byte) (unparenthesize (c:= (star-before (c:fp e)) (c:& (c:subscript (c:. (c:initial-region e) (c:data)) (c:0)))))))) (newline-between (semicolon-after (space-between *length* (c:region-size e))) (semicolon-after (space-between (c:byte) (star-before (c:fp e))))))) (newline-between (c:define (c:big-region-size e) "8388608") (semicolon-after (space-between (c:byte) (c:raw-subscript (c:region e) (c:big-region-size e)))) ;; needs work: needs abstraction for initialized declaration (semicolon-after (space-between (c:byte) (if (reentrant? e) (unparenthesize (c:= (star-before (c:fp e)) (c:region e))) (star-before (c:fp e))))))) (c:noop))) *es*))) (define (compile-region-distribution) ;; needs work: To use code-generation abstractions. (newlines-between (map (lambda (e) (if (has-region? e) (cond (*expandable-regions?* (include! "Tmk") ;Tmk_distribute (newline-between (c:gosub "Tmk_distribute_hack" (c:& (c:initial-region e)) (c:sizeof (c:initial-region e))) (c:gosub "Tmk_distribute_hack" (c:& (c:region e)) (c:sizeof (c:region e))) (c:gosub "Tmk_distribute_hack" (c:& (c:region-size e)) (c:sizeof (c:region-size e))) (c:gosub "Tmk_distribute_hack" (c:& (c:fp e)) (c:sizeof (c:fp e))))) (else (include! "Tmk") ;Tmk_distribute (newline-between (c:gosub "Tmk_distribute_hack" (c:& (c:region e)) (c:sizeof (c:region e))) (c:gosub "Tmk_distribute_hack" (c:& (c:fp e)) (c:sizeof (c:fp e)))))) (c:noop))) *es*))) (define (compile-closures) ;; needs work: To use code-generation abstractions. (newlines-between (map (lambda (e) (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented #f "Indirect flat closures are not (yet) implemented")) ((immediate-display indirect-display) (if (has-parent-parameter? e) (semicolon-after (newline-between (space-between "struct" (c:p e)) (braces-around (newlines-between (map (lambda (e) (semicolon-after (space-between "struct" (c:e e) (star-before (c:e e))))) (ancestors e)))))) (c:noop))) ((linked) (c:noop)) (else (fuck-up)))) *es*))) (define (compile-type-declarations) ;; Check to see that the type declaration precedence graph is acyclic. ;; needs work: This double nested loop can be made more efficient. (when (some (lambda (w) (some (lambda (u) (and (structure-type-immediate? u) (memq w (structure-type-slots u)) (member? u w))) *structure-types*)) *ws*) (fuck-up)) ;; needs work: To use code-generation abstractions. (newline-between ;; Nonheaded and displaced vectors come first, in any order, because they ;; reference everything else with * and are always referenced without *. (newlines-between (map (lambda (u) (if (degenerate-vector-type? u) (c:noop) (semicolon-after (newline-between (space-between "struct" (c:u u)) (braces-around (newline-between (semicolon-after (space-between *length* "length")) (semicolon-after (c:type-set (nonheaded-vector-type-element u) (star-before "element"))))))))) *nonheaded-vector-types*)) (newlines-between (map (lambda (u) (if (degenerate-vector-type? u) (c:noop) (semicolon-after (newline-between (space-between "struct" (c:u u)) (braces-around (newline-between (semicolon-after (space-between *length* "length")) (semicolon-after (c:type-set (vector-type-element (displaced-vector-type-displaced-vector-type u)) (star-before "element"))))))))) *displaced-vector-types*)) (newlines-between (map (lambda (u/w) (cond ((type-set? u/w) (semicolon-after (newline-between (space-between "struct" (c:w u/w)) (braces-around (newline-between (semicolon-after (space-between *tag* "tag")) (if (has-union? u/w) (semicolon-after (newline-between "union" (space-between (braces-around (newlines-between (map (lambda (u) (semicolon-after (c:type u (c:u u)))) (members-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) u/w)))) "value"))) (semicolon-after (c:type (the-member-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) u/w) "value")))))))) ((structure-type? u/w) (semicolon-after (newline-between (space-between "struct" (c:u u/w)) (braces-around (newlines-between (map-indexed (lambda (w i) (if (fictitious? w) (c:noop) (semicolon-after (c:type-set w (c:s i))))) (structure-type-slots u/w))))))) (else (fuck-up)))) (topological-sort (lambda (u/w1 u/w2) (or ;; Immediate structures must come before unions that contain them. (and (structure-type? u/w1) (structure-type-immediate? u/w1) (type-set? u/w2) (member? u/w1 u/w2)) ;; Immediate structures must come before structures that have them ;; as slots. (and (structure-type? u/w1) (structure-type-immediate? u/w1) (structure-type? u/w2) (memq u/w1 (map the-member (remove-if-not monomorphic? (structure-type-slots u/w2))))) ;; Unions must come before structures that have them as slots. (and (type-set? u/w1) (structure-type? u/w2) (memq u/w1 (structure-type-slots u/w2))))) (append (remove-if fictitious? *structure-types*) (remove-if (lambda (w) (or (fictitious? w) (monomorphic? w) (tag-only? w) (squeezed? w) (squished? w))) *ws*))))) ;; Headed vectors come last, in any order, because they reference ;; everything else without * and are always referenced with *. (newlines-between (map (lambda (u) (if (degenerate-vector-type? u) (c:noop) (semicolon-after (newline-between (space-between "struct" (c:u u)) (braces-around (newline-between (semicolon-after (space-between *length* "length")) (semicolon-after (c:type-set (headed-vector-type-element u) (c:raw-subscript "element" "1"))))))))) *headed-vector-types*)))) (define (compile-closure-levels) ;; needs work: To use code-generation abstractions. (newlines-between (map (lambda (e) (if (has-closure? e) (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented #f "Indirect flat closures are not (yet) implemented")) ((immediate-display indirect-display) (semicolon-after (newline-between (space-between "struct" (c:e e)) (braces-around (newlines-between (map (lambda (g) (semicolon-after (c:type-set (variable-type-set g) (c:a g)))) (remove-if-not slotted? (variables e)))))))) ((linked) (semicolon-after (newline-between (space-between "struct" (c:p e)) (braces-around (newline-between (if (has-parent-slot? e) (semicolon-after (space-between "struct" (c:p (parent-slot e)) (star-before (c:p (parent-slot e))))) (c:noop)) (newlines-between (map (lambda (g) (semicolon-after (c:type-set (variable-type-set g) (c:a g)))) (remove-if-not slotted? (variables e))))))))) (else (fuck-up))) (c:noop))) *es*))) (define (compile-global-variables) (newlines-between (map (lambda (g) (c:declaration (variable-type-set g) (c:a g) (symbol->string (variable-name g)))) (remove-if-not global? *gs*)))) (define (compile-global-variable-distribution) (newlines-between (map (lambda (g) (include! "Tmk") ;Tmk_distribute (c:gosub "Tmk_distribute_hack" (c:& (c:a g)) (c:sizeof (c:a g)))) (remove-if-not global? *gs*)))) (define (compile-prototype-variables e) (when (unique-call-site? e) (fuck-up)) (if (environment-passes-parameters-globally? e) '() (let ((cs (map (lambda (g) (c:type-set (variable-type-set g) "")) (remove-if-not (lambda (g) (or (local? g) (slotted? g))) (variables e))))) (if (has-parent-parameter? e) (cons (c:type (environment-type e) "") cs) cs)))) (define (compile-parameter-variables e) (when (unique-call-site? e) (fuck-up)) (if (environment-passes-parameters-globally? e) '() (let ((cs (map (lambda (g) (c:type-set (variable-type-set g) (c:a g))) (remove-if-not (lambda (g) (or (local? g) (slotted? g))) (variables e))))) (if (has-parent-parameter? e) (cons (c:type (environment-type e) (c:p e)) cs) cs)))) (define (compile-in-lined-variables e) ;; needs work: Can eliminate the nonslotted nonparameter variable of an OR ;; that has been optimized away. (newlines-between (map (lambda (g) (c:declaration (variable-type-set g) (c:a g) (symbol->string (variable-name g)))) (remove-if-not (lambda (g) (or (local? g) (slotted? g))) (sort (reduce append (map variables (properly-in-lined-environments e)) '()) < variable-index))))) (define (spill-slotted-variables e) (newline-between (case *closure-representation* ((immediate-flat indirect-flat indirect-display immediate-display) (c:noop)) ((linked) (if (has-parent-slot? e) (c::= (c:-> (c:e e) (c:p (parent-slot e))) (parent-accessor e)) (c:noop))) (else (fuck-up))) (newlines-between (map (lambda (g) (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented #f "Indirect flat closures are not (yet) implemented")) ((indirect-display immediate-display linked) (c::= (c:-> (c:e e) (c:a g)) (c:a g))) (else (fuck-up)))) (remove-if-not slotted? (variables e)))))) (define *statements-per-constant-initialization-procedure* 3000) (define (compile-constant-initialization-procedure-prototypes) (newlines-between (map-n (lambda (i) (space-between "void" (c:prototype (c:initialize-constants i)))) (inexact->exact (ceiling (/ (length *inside-main*) (exact->inexact *statements-per-constant-initialization-procedure*))))))) (define (compile-native-procedure-prototypes) (newlines-between (map (lambda (e) (if (unique-call-site? e) (c:noop) (let* ((cs (compile-prototype-variables e)) (c (apply (if (or (environment-returns? e) (environment-passes-parameters-globally? e) ;; needs work: This is a bit overly conservative. (some environment-passes-parameters-globally? (callees e))) c:prototype c:noreturn-prototype) (c:f e) cs))) (newline-between (if (or (fictitious? (return-type-set e)) (not (expression-accessed? (expression-body (environment-expression e))))) ;; needs work: To use code-generation abstractions. (space-between "void" c) (c:type-set (return-type-set e) c)) (if (environment-passes-parameters-globally? e) (newline-between (if (has-parent-parameter? e) (semicolon-after (c:type (environment-type e) (c:d e))) (c:noop)) (newlines-between (map (lambda (g) (space-between (semicolon-after (c:type-set (variable-type-set g) (c:b g))) (c:/**/ (symbol->string (variable-name g))))) (remove-if-not (lambda (g) (or (local? g) (slotted? g))) (variables e))))) (c:noop)))))) *es*))) (define (compile-foreign-procedure-prototypes) (newlines-between (map (lambda (u) (if (foreign-procedure-type-called? u) (cond ((foreign-procedure-type-include u) (include! (foreign-procedure-type-include u)) (c:noop)) (else (c:foreign-type (foreign-procedure-type-result u) (apply (if (foreign-procedure-returns? u) c:prototype c:noreturn-prototype) (foreign-procedure-type-name u) (map (lambda (f) (c:foreign-type f "")) (foreign-procedure-type-parameters u)))))) (c:noop))) *foreign-procedure-types*))) (define *li* #f) (define (allocate-label) (let ((l (c:l *li*))) (set! *li* (+ *li* 1)) l)) (define (compile-goto l1 l2) (cond ((eq? l1 l2) (c:noop)) (else (unless l1 (fuck-up)) (c:goto l1)))) (define (unreturnify r) (if (return? r) (if (result-accessed? r) (create-accessor-result (result-type-set r) (result-c r)) *discard*) r)) (define (contains? c1 c2) (or (eq? c1 c2) (and (pair? c1) (or (contains? (car c1) c2) (contains? (cdr c1) c2))))) (define (compile-foreign-call r y u ts ws) (let ((ts (if (converted? y) (rest ts) ts)) (ws (if (converted? y) (rest ws) ws))) (let loop ((fs1 (foreign-procedure-type-parameters u)) (ts1 ts) (us1 '()) (ws1 ws)) (if (null? fs1) (move-strict r (apply c:call (foreign-procedure-type-name u) (map c:value ts (reverse us1) ws)) (foreign-procedure-return-type-set u)) (type-switch (foreign-type? (first fs1)) (first ws1) r (first ts1) (lambda (u0) (loop (rest fs1) (rest ts1) (cons u0 us1) (rest ws1))) (lambda (p?) (compile-error "foreign_call" y p?))))))) (define (compile-pair+ r y ts ws t w) (cond ((discard? r) (c:noop)) ((antecedent? r) (compile-goto (result-l1 r) (result-l0 r))) ((null? ws) (move r t w)) (else (let loop ((uss (map members ws)) (w1 (result-type-set r)) (us1 '()) (ws1 '())) (if (null? uss) (let loop ((ts (reverse ts)) (ws (reverse ws)) (ts1 (reverse (cons (result-c r) (map allocate-temporary (rest (reverse ws1)))))) (us1 us1) (ws1 ws1) (c (c:noop)) (t t) (w w)) (if (null? ts) (newline-between c (compile-return r)) (let ((t2 (first ts)) (w2 (first ws)) (t1 (first ts1)) (u1 (first us1)) (w1 (first ws1))) (loop (rest ts) (rest ws) (rest ts1) (rest us1) (rest ws1) (newline-between c (cond ((or (fictitious? w1) (and (return? r) (not (result-accessed? r)))) (c:noop)) ((fictitious? u1) (widen-type (create-accessor-result w1 t1) 'void10 u1)) (else (newline-between (compile-allocate-structure t1 u1 w1 y) (move (create-accessor-result (pair-type-car u1) (value-car t1 u1 w1)) t2 w2) (move (create-accessor-result (pair-type-cdr u1) (value-cdr t1 u1 w1)) t w))))) t1 w1)))) (let ((u1 (the-member-that (pair+-type? uss (members w) (call-site-expression y)) w1))) (loop (rest uss) (pair-type-cdr u1) (cons u1 us1) (cons w1 ws1)))))))) (define (compile-initialize-region e) (if (has-region? e) (if (reentrant? e) (c::= (c:sfp e) (c:fp e)) (newline-between (cond (*treadmarks?* (include! "Tmk") ;Tmk_lock_acquire (c:gosub "Tmk_lock_acquire" (c:0))) (else (c:noop))) (if *expandable-regions?* (newline-between (c:while (c:!= (c:region e) ;; needs work: To use code-generation abstractions. (c:cast (space-between "struct" (c:region e) "*") (c:& (c:initial-region e)))) (newline-between (semicolon-after ;; needs work: To use code-generation abstractions. (space-between "struct" (c:region e) (star-before (c:region)))) (c::= (c:region) (c:region e)) (c::= (c:region e) (c:-> (c:region e) (c:region))) (if *memory-messages?* (c:printf (c:string (format #f "Freeing region segment for ~a~%" (environment-name e)))) (c:noop)) (c:free (c:region) (has-nonatomic-region? e)))) (c::= (c:region-size e) (c:big-region-size e)) (c::= (c:fp e) (c:& (c:subscript (c:-> (c:region e) (c:data)) (c:0))))) (c::= (c:fp e) (c:region e))) (c:align (c:fp e)) (cond (*treadmarks?* (include! "Tmk") ;Tmk_lock_release (c:gosub "Tmk_lock_release" (c:0))) (else (c:noop))))) (c:noop))) (define (gather e0 y ts ws t w ts1 gs) (let loop ((ts ts) (ws ws) (t t) (w w) (ts1 ts1) (gs gs)) (if (null? gs) (type-switch null-type? w *discard* t (lambda (u) (c:noop)) (lambda (p?) (compile-error "call" y p?))) (let* ((g (first gs)) (c (cond ((and (pair? ts1) (or (local? g) (slotted? g))) (first ts1)) ((and (eq? ts1 #t) (not (global? g))) (c:b g)) ;; note: This must assign to the parameters and not the ;; slots since the self-tail-call entry point can't ;; come after the closure level allocation and spill ;; since that would unsoundly overwrite the existing ;; closure. cpstak.sc is an example of this. (else (c:a g))))) (if (null? ws) (if (and (rest? e0) (null? (rest gs))) (if (or (local? g) (global? g) (slotted? g)) (move (create-accessor-result (variable-type-set g) c) t w) (c:noop)) (type-switch pair-type? w *discard* t (lambda (u) (newline-between (if (or (local? g) (global? g) (slotted? g)) (move (create-accessor-result (variable-type-set g) c) (value-car t u w) (pair-type-car u)) (c:noop)) (loop ts ws (value-cdr t u w) (pair-type-cdr u) (if (and (pair? ts1) (or (local? g) (slotted? g))) (rest ts1) ts1) (rest gs)))) (lambda (p?) (compile-error "call" y p?)))) (if (and (rest? e0) (null? (rest gs))) (if (or (local? g) (global? g) (slotted? g)) (compile-pair+ (create-accessor-result (variable-type-set g) c) y ts ws t w) (c:noop)) ;; This is written this way, in a non-factored fashion, so that ;; the last call to LOOP, which is the common case, is a tail ;; call. When this was previously written in a factored fashion ;; Trotsky would give a stack overflow when compiling ;; benchmarks-to-latex.sc which is the only example, except for ;; Marx, that I tried under Trotsky that had included ;; QobiScheme. (if (and (or (local? g) (global? g) (slotted? g)) (not (eq? c (first ts)))) (newline-between (move (create-accessor-result (variable-type-set g) c) (first ts) (first ws)) (loop (rest ts) (rest ws) t w (if (and (pair? ts1) (or (local? g) (slotted? g))) (rest ts1) ts1) (rest gs))) (loop (rest ts) (rest ws) t w (if (and (pair? ts1) (or (local? g) (slotted? g))) (rest ts1) ts1) (rest gs))))))))) (define (compile-call r y t0 u0 w0 t1 w1 ts ws t w) ;; There is something slightly inefficient with the way rest arguments are ;; handled. Currently they are allocated by the caller, not the callee. So ;; if they never leave the callee they could have been allocated on the region ;; or the stack frame of the callee but they aren't. Instead, they will be ;; allocated on the region or the stack frame of the caller. If the caller ;; calls the callee in a loop before returning, this can delay storage ;; reclamation. It is for this same reason that you don't want the caller to ;; allocate the environment but rather you want the callee to allocate the ;; environment, which is how it is done now. Also, having the callee allocate ;; the environment and/or rest argument factors out common code. (cond ((primitive-procedure-type? u0) (when (can-be-non? null-type? w) (fuck-up)) (if (some void? ws) (compile-error "void_primitive_procedure_call" y #t) ((primitive-procedure-compile-call (cdr (assq (primitive-procedure-type-name u0) *primitive-procedure-handlers*))) r y u0 ts ws t w (lambda (m) (compile-predicate m r (first ws) (first ts))) t1 w1 (if (>= (length ws) 1) (first ts) #f) (if (>= (length ws) 1) (first ws) #f) (if (>= (length ws) 2) (second ts) #f) (if (>= (length ws) 2) (second ws) #f) (if (>= (length ws) 3) (third ts) #f) (if (>= (length ws) 3) (third ws) #f)))) ((native-procedure-type? u0) (let* ((e (expression-environment (call-site-expression y))) (e0 (callee-environment u0 y)) (x0 (environment-expression e0)) (gs (variables e0))) (cond ((not (called? e0)) ;; We should never get here because the callee or the arguments don't ;; return. Actually, if we ever fix up the unlinking of structures then ;; E0 should not even exist at this point. (c:noop)) ((noop? e0) (compile-return r)) ((can-be-self-tail-call-to? y e0) (newline-between ;; I'm not sure that the following is needed. (if (has-parent-parameter? e0) (c::= (c:p e0) (c:value t0 u0 w0)) (c:noop)) (gather e0 y ts ws t w #f gs) (c:goto (c:h e0)))) ((unique-call-site? e0) (newline-between (if (has-parent-parameter? e0) (c::= (c:p e0) (c:value t0 u0 w0)) (c:noop)) (gather e0 y ts ws t w #f gs) (newline-between (compile-initialize-region e0) (if (has-self-tail-call? e0) (c:: (c:h e0)) (c:noop)) ;; note: The self-tail-call entry point can't come after the closure ;; level allocation and spill since that would unsoundly ;; overwrite the existing closure. ;; cpstak.sc is an example of this. (if (has-closure? e0) (newline-between (compile-allocate-closure-level e0) (spill-slotted-variables e0)) (c:noop)) (if (restore? e0) (newline-between (compile (unreturnify r) (expression-body x0)) (compile-restore e0) (compile-return r)) (compile r (expression-body x0)))))) ((environment-passes-parameters-globally? e0) (let* ((c (c:call (c:f e0)))) (newline-between (if (has-parent-parameter? e0) (c::= (c:d e0) (c:value t0 u0 w0)) (c:noop)) (gather e0 y ts ws t w #t gs) (if (expression-accessed? (expression-body (environment-expression e0))) (if (or (discard? r) (antecedent? r) (eq? (result-type-set r) (return-type-set e0))) (if (and (return? r) (restore? r)) (newline-between (move-strict (unreturnify r) c (return-type-set e0)) (compile-return r)) (move-strict r c (return-type-set e0))) (let ((t (allocate-temporary (return-type-set e0)))) (newline-between (move-strict (create-accessor-result (return-type-set e0) t) c (return-type-set e0)) (move r t (return-type-set e0))))) (newline-between (semicolon-after c) (compile-return r)))))) (else (let* ((ts1 (if (and (must-be? null-type? w) (not (rest? e0))) ;; This is a small amount of copy propagation. (removeq #f (map (lambda (g w t) (if (or (local? g) (slotted? g)) (if (eq? w (variable-type-set g)) t (allocate-temporary (variable-type-set g))) #f)) gs ws ts)) (removeq #f (map (lambda (g) (if (or (local? g) (slotted? g)) (allocate-temporary (variable-type-set g)) #f)) gs)))) (c (if (has-parent-parameter? e0) (apply c:call (c:f e0) (c:value t0 u0 w0) ts1) (apply c:call (c:f e0) ts1)))) (newline-between (gather e0 y ts ws t w ts1 gs) (if (expression-accessed? (expression-body (environment-expression e0))) (if (or (discard? r) (antecedent? r) (eq? (result-type-set r) (return-type-set e0))) (if (and (return? r) (restore? r)) (newline-between (move-strict (unreturnify r) c (return-type-set e0)) (compile-return r)) (move-strict r c (return-type-set e0))) (let ((t (allocate-temporary (return-type-set e0)))) (newline-between (move-strict (create-accessor-result (return-type-set e0) t) c (return-type-set e0)) (move r t (return-type-set e0))))) (newline-between (semicolon-after c) (if (and (native-procedure-type? u0) (converted-continuation? (callee-environment u0 y))) ;; This case was instituted to fix the bug in except.sc. I'm ;; not sure that this is the correct was to fix the bug. And I ;; don't know if we need to do a compile-restore here. (c:return) (compile-return r)))))))))) ((foreign-procedure-type? u0) (when (can-be-non? null-type? w) (unimplemented y "APPLY of a foreign procedure is not (yet) implemented")) (cond ((not (foreign-procedure-type-called? u0)) ;; We should never get here because the callee or the arguments don't ;; return. (c:noop)) ((some void? ws) (compile-error "void_foreign_procedure_call" y #t)) (else (compile-foreign-call r y u0 ts ws)))) ((continuation-type? u0) ;; needs work: A call to a continuation should restore all intervening ;; reentrant regions. Because we don't do this (yet), we need ;; HAS-EXTERNAL-CALL? to prevent allocation on intervening ;; reentrant regions because otherwise there would be a memory ;; leak when a call to this continuation occurs. (when (can-be-non? null-type? w) (unimplemented y "APPLY of a continuation is not (yet) implemented")) (let ((t1 (if (converted? y) (second ts) (first ts))) (w1 (if (converted? y) (second ws) (first ws)))) (cond ((not (continuation-type-continuation-accessed? u0)) ;; We should never get here because the callee or the arguments don't ;; return. (c:noop)) ((goto? y u0) (newline-between ;; needs work: EXPRESSION-RESULT might not be set yet since we might ;; not yet have COMPILEd ;; (CONTINUATION-TYPE-ALLOCATING-EXPRESSION U0). (move (expression-result (continuation-type-allocating-expression u0)) t1 w1) (if (return? (expression-result (continuation-type-allocating-expression u0))) (c:noop) (c:goto (c:x (continuation-type-allocating-expression u0)))))) (else (newline-between (move (if (or (fictitious? (expression-type-set (continuation-type-allocating-expression u0))) (not (expression-accessed? (continuation-type-allocating-expression u0)))) *discard* (create-accessor-result (expression-type-set (continuation-type-allocating-expression u0)) (c:v (continuation-type-allocating-expression u0)))) t1 w1) (c:longjmp (c:* (c:value t0 u0 w0)) (c:1))))))) (else (fuck-up)))) (define (continuation-argument-type-set u y) (unless (native-procedure-type? u) (fuck-up)) (first-parameter-type-set (callee-environment u (recreate-call-site y 'continuation-argument)))) (define (compile-converted-call r y t0 u0 w0 ts ws t w) (unless (procedure-type? u0) (fuck-up)) (when (continuation-type? u0) (unimplemented y "unimplemented")) (cond ;; CALL/CC==(LAMBDA (C X) (X C C)) (((primitive-procedure-type-named? 'call-with-current-continuation) u0) (when (can-be-non? null-type? w) (fuck-up)) (when #f ;debugging (when (can-be? (lambda (u2) (and ((compatible-procedure? (list (first ws)) *null* (recreate-call-site y 'first-argument)) u2) (not (converted? (callee-environment u2 y))))) (second ws)) (unimplemented y "unimplemented"))) (type-switch (compatible-procedure? (list (first ws) (first ws)) *null* (recreate-call-site y 'first-argument)) (second ws) r (second ts) (lambda (u2) (compile-converted-call r (recreate-call-site y 'first-argument) (second ts) u2 (second ws) (list (first ts) (first ts)) (list (first ws) (first ws)) 'void11 *null*)) (lambda (p?) (compile-error "call_with_current_continuation" y p?)))) ((and (native-procedure-type? u0) (converted? (callee-environment u0 y))) (compile-call r y t0 u0 w0 (first ts) (first ws) ts ws t w)) (((needs-implicit-continuation-call? ws w y) u0) (let* ((w1 (minp subtype-set? (map (lambda (u) (continuation-argument-type-set u y)) (members (first ws))))) (t1 (allocate-temporary w1))) (when (can-be-non? (lambda (u) (subtype-set? w1 (continuation-argument-type-set u y))) (first ws)) (fuck-up)) (newline-between (compile-call (if (fictitious? w1) *discard* (create-accessor-result w1 t1)) y t0 u0 w0 (first ts) (first ws) (rest ts) (rest ws) t w) ;; This relies on the fact that the implicit continuation call is never ;; done through APPLY. (type-switch (compatible-procedure? (list w1) *null* (recreate-call-site y 'continuation-argument)) (first ws) r (first ts) (lambda (u1) (compile-call r (recreate-call-site y 'continuation-argument) (first ts) u1 (first ws) #f #f (list t1) (list w1) 'void12 *null*)) (lambda (p?) (c:noop)))))) (else (compile-call r y t0 u0 w0 (first ts) (first ws) (rest ts) (rest ws) t w)))) (define (compile-antecedent x l1 l2 l0) ;; If the antecedent is true branch to L1 otherwise branch to L2 assuming ;; that L0 is the immediately following label so that no branch is generated ;; to that label and flow falls through instead. ;; needs work: To ignore body of a lambda expression that appears in an ;; optimized antecedent. ;; needs work: To not generate constants that are used in an optimized ;; antecedent. (compile (create-antecedent-result (expression-type-set x) l1 l2 l0) x)) (define (and-expression? x) ;; (IF x y #F) (and (eq? (expression-kind x) 'if) (eq? (expression-kind (expression-alternate x)) 'false-constant))) (define (or-expression? x) ;; ((LAMBDA (X) (IF X X y)) x) (and (eq? (expression-kind x) 'call) (= (length (expression-arguments x)) 1) (let ((w (expression-type-set (expression-callee x)))) (and (monomorphic? w) (let ((u (the-member w))) (and (native-procedure-type? u) ((compatible-call? x) u) (let ((e0 (callee-environment u (create-call-site x)))) (and (called? e0) (not (noop? e0)) (unique-call-site? e0) (let ((x0 (environment-expression e0))) (and (not (rest? x0)) (= (length (variables x0)) 1) (let ((x1 (expression-body x0))) (and (eq? (expression-kind x1) 'if) (eq? (expression-kind (expression-antecedent x1)) 'access) (eq? (expression-kind (expression-consequent x1)) 'access) (eq? (expression-variable (expression-antecedent x1)) (expression-variable (expression-consequent x1))) (eq? (expression-variable (expression-antecedent x1)) (first (variables x0))))))))))))))) (define (not-expression? x) ;; (NOT x) (and (eq? (expression-kind x) 'call) (= (length (expression-arguments x)) 1) (can-be? (primitive-procedure-type-named? 'not) (expression-type-set (expression-callee x))) (must-be? (primitive-procedure-type-named? 'not) (expression-type-set (expression-callee x))))) (define (maybe-mark-no-return x c) (let ((c (newline-between (if (expression-pathname x) (c:/**/ (string-append "x" (number->string (expression-index x)) " " (strip-directory (expression-pathname x)) ":" (number->string (expression-line-position x)) ":" (number->string (expression-character-position x)))) (c:/**/ (string-append "x" (number->string (expression-index x))))) c))) (if (expression-returns? x) c (c:no-return c)))) (define (compile r x) (clock-sample) ;To prevent overflow. (set-expression-result! x r) (maybe-mark-no-return x (let ((e (expression-environment x))) (if (and (not (antecedent? r)) (must-be? boolean-type? (expression-type-set x)) (can-be-non? true-type? (expression-type-set x)) (can-be-non? false-type? (expression-type-set x)) (or (and-expression? x) (or-expression? x) (not-expression? x))) (let* ((l1 (allocate-label)) (l2 (allocate-label)) (l3 (allocate-label)) (c (compile-antecedent x l1 l2 l1))) (newline-between c (if (contains? c l1) (c:: l1) (c:noop)) (return-true r) (if (return? r) (c:noop) (compile-goto l3 l2)) (c:: l2) (return-false r) (if (return? r) (c:noop) (c:: l3)))) (case (expression-kind x) ((null-constant) (widen r 'void13 null-type?)) ((true-constant) (return-true r)) ((false-constant) (return-false r)) ((char-constant) (widen r (c:character (expression-constant x)) char-type?)) ((fixnum-constant) (widen r (c:fixnum (expression-constant x)) fixnum-type?)) ((flonum-constant) (widen r (c:flonum (expression-constant x)) flonum-type?)) ((rectangular-constant) (unimplemented y "Cannot (yet) handle rectangular constants")) ((string-constant) (when (some (lambda (c) (zero? (char->integer c))) (string->list (expression-constant x))) (unimplemented x "Strings that contain ASCII NULs are not (yet) implemented")) (widen r (c:string (expression-constant x)) string-type?)) ((symbol-constant) (cond (*treat-all-symbols-as-external?* (unless (memq (expression-constant x) *symbols*) (set! *symbols* (append *symbols* (list (expression-constant x)))) (outside-main ;; needs work: needs abstraction for initialized declaration (semicolon-after (space-between *char* (unparenthesize (c:= (star-before (c:q (positionq (expression-constant x) *symbols*))) (c:string (symbol->string (expression-constant x))))))))) (widen r (c:q (positionq (expression-constant x) *symbols*)) (lambda (u) (and (external-symbol-type? u) (eq? (external-symbol-type-displaced-string-type u) ))))) (else (widen r 'void14 (internal-symbol-type-named? (expression-constant x)))))) ((pair-constant) ;; This is THE-MEMBER-THAT and not THE-MEMBER because when ;; *INDEX-CONSTANT-STRUCTURE-TYPES-BY-EXPRESSION?* is true the ;; expression type set might not be a singleton. (let ((u (the-member-that (lambda (u) (and (pair-type? u) (subtype-set? (expression-type-set (car (expression-constant x))) (pair-type-car u)) (subtype-set? (expression-type-set (cdr (expression-constant x))) (pair-type-cdr u)))) (expression-type-set x)))) (if (fictitious? u) (widen-type r 'void15 u) (let ((w1 (pair-type-car u)) (w2 (pair-type-cdr u))) (if (structure-type-immediate? u) (cond ((discard? r) (c:noop)) ((antecedent? r) (compile-goto (result-l1 r) (result-l0 r))) ((and (return? r) (not (result-accessed? r))) (compile-return r)) (else (newline-between (if (and (multimorphic? (result-type-set r)) (not (squeezed? (result-type-set r))) (not (squished? (result-type-set r)))) (c::= (c:tag (result-c r) (result-type-set r)) (c:type-tag u)) (c:noop)) (if (fictitious? w1) (c:noop) (compile (create-accessor-result w1 (value-car (result-c r) u (result-type-set r))) (car (expression-constant x)))) (if (fictitious? w2) (c:noop) (compile (create-accessor-result w2 (value-cdr (result-c r) u (result-type-set r))) (cdr (expression-constant x)))) (compile-return r)))) (let ((t (c:t *ti*))) (set! *ti* (+ *ti* 1)) (outside-main (semicolon-after (c:type& u t))) (unless (fictitious? w1) (inside-main (compile (create-accessor-result w1 (c:. t (c:s 0))) (car (expression-constant x))))) (unless (fictitious? w2) (inside-main (compile (create-accessor-result w2 (c:. t (c:s 1))) (cdr (expression-constant x))))) (widen-type r (c:& t) u))))))) ((vector-constant) ;; This is THE-MEMBER-THAT and not THE-MEMBER because when ;; *INDEX-CONSTANT-HEADED-VECTOR-TYPES-BY-EXPRESSION?* is true the ;; expression type set might not be a singleton. (let ((u (the-member-that (lambda (u) (and (headed-vector-type? u) (every-vector (lambda (x) (subtype-set? (expression-type-set x) (headed-vector-type-element u))) (expression-constant x)))) (expression-type-set x)))) (if (degenerate-vector-type? u) (widen-type r (c:fixnum (vector-length (expression-constant x))) u) ;; needs work: To use code-generation abstractions. (let ((t (c:t *ti*)) (w1 (headed-vector-type-element u))) (set! *ti* (+ *ti* 1)) (outside-main (semicolon-after (newline-between "struct" (space-between (braces-around (newline-between (semicolon-after (space-between *length* "length")) (semicolon-after (c:type-set w1 (c:raw-subscript "element" (c:fixnum (max 1 (vector-length (expression-constant x))))))))) t)))) (inside-main (c::= (c:. t "length") (c:fixnum (vector-length (expression-constant x))))) (for-each-n (lambda (i) (inside-main (compile (create-accessor-result w1 (c:subscript (c:. t "element") (c:fixnum i))) (vector-ref (expression-constant x) i)))) (vector-length (expression-constant x))) (widen-type r (c:type-cast (c:& t) u) u))))) ((lambda converted-lambda converted-continuation) (let ((u (the-member (expression-type-set x)))) (cond ((discard? r) (c:noop)) ((antecedent? r) (compile-goto (result-l1 r) (result-l0 r))) ((and (return? r) (not (result-accessed? r))) (compile-return r)) ((fictitious? u) (widen-type r 'void16 u)) (else (case *closure-representation* ((immediate-flat) (unimplemented x "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented x "Indirect flat closures are not (yet) implemented")) ((immediate-display) (when (or (squeezed? (result-type-set r)) (squished? (result-type-set r))) (fuck-up)) (newline-between (if (multimorphic? (result-type-set r)) (c::= (c:tag (result-c r) (result-type-set r)) (c:type-tag u)) (c:noop)) (newlines-between (map (lambda (e1) (c::= (c:. (c:value (result-c r) u (result-type-set r)) (c:e e1)) (if (eq? e1 e) (c:e e1) (c:. (c:p e) (c:e e1))))) (ancestors u))))) ((indirect-display) ;; needs work: To allocate the closure. (unimplemented x "Indirect display closures are not (yet) implemented") (when (or (squeezed? (result-type-set r)) (squished? (result-type-set r))) (fuck-up)) (newline-between (if (multimorphic? (result-type-set r)) (c::= (c:tag (result-c r) (result-type-set r)) (c:type-tag u)) (c:noop)) (newlines-between (map (lambda (e1) (c::= (c:-> (c:value (result-c r) u (result-type-set r)) (c:e e1)) (if (eq? e1 e) (c:e e1) (c:-> (c:p e) (c:e e1))))) (ancestors u))))) ((linked) (widen-type r (lambda-accessor u e) u)) (else (fuck-up))))))) ((set!) (newline-between (compile (if (and (or (local? (expression-variable x)) (global? (expression-variable x)) (slotted? (expression-variable x))) (nontrivial-reference? x) (executed? x)) (create-accessor-result (variable-type-set (expression-variable x)) (accessor (expression-variable x) e)) *discard*) (expression-source x)) (if (expression-returns? x) (compile-return r) (c:noop)))) ((if) (if (and (antecedent? r) (and-expression? x)) (if (reached? (expression-consequent x)) (if (reached? (expression-alternate x)) (let* ((l3 (allocate-label)) (c (compile-antecedent (expression-antecedent x) l3 (result-l2 r) l3))) (newline-between c (if (contains? c l3) (c:: l3) (c:noop)) (compile-antecedent (expression-consequent x) (result-l1 r) (result-l2 r) (result-l0 r)))) (let* ((l3 (allocate-label)) (c (compile-antecedent (expression-antecedent x) l3 #f l3))) (newline-between c (if (contains? c l3) (c:: l3) (c:noop)) (compile-antecedent (expression-consequent x) (result-l1 r) (result-l2 r) (result-l0 r))))) (if (reached? (expression-alternate x)) (compile-antecedent (expression-antecedent x) #f (result-l2 r) (result-l0 r)) (compile-antecedent (expression-antecedent x) #f #f (result-l0 r)))) (let ((w (expression-type-set (expression-antecedent x)))) (if (reached? (expression-consequent x)) (if (reached? (expression-alternate x)) (if (or (return? r) ;; needs work: This is an attempt to eliminate ;; the dead branch around the ;; alternate if the consequent is a ;; self tail call. But it sometimes ;; fails as in kilo/browse.sc. The ;; reason this fails is because the ;; consequent is not a self tail ;; call but an IF whose both reached ;; branches are self tail calls, a ;; call to an in in-lined procedure ;; whose body is a self tail call, ;; or some combination thereof. ;; Anyway, should also eliminate the ;; dead branch when the consequent ;; doesn't return as would be the ;; case if it were a call to a ;; continuation. ;; This can't be ANTECEDENT? here ;; because antecedent results can ;; fall through. (must-be-self-tail-call? (expression-consequent x))) (let* ((l1 (allocate-label)) (l2 (allocate-label)) (c (compile-antecedent (expression-antecedent x) l1 l2 l1))) (newline-between c (if (contains? c l1) (c:: l1) (c:noop)) (compile r (expression-consequent x)) (c:: l2) (compile r (expression-alternate x)))) (let* ((l1 (allocate-label)) (l2 (allocate-label)) (l3 (allocate-label)) (c (compile-antecedent (expression-antecedent x) l1 l2 l1))) (newline-between c (if (contains? c l1) (c:: l1) (c:noop)) (compile r (expression-consequent x)) (compile-goto l3 l2) (c:: l2) (compile r (expression-alternate x)) (c:: l3)))) (let* ((l1 (allocate-label)) (c (compile-antecedent (expression-antecedent x) l1 #f l1))) (newline-between c (if (contains? c l1) (c:: l1) (c:noop)) (compile r (expression-consequent x))))) (if (reached? (expression-alternate x)) (let* ((l1 (allocate-label)) (c (compile-antecedent (expression-antecedent x) #f l1 l1))) (newline-between c (if (contains? c l1) (c:: l1) (c:noop)) (compile r (expression-alternate x)))) (newline-between (compile-antecedent (expression-antecedent x) #f #f #f) (if (expression-returns? (expression-antecedent x)) (compile-error "void_if" x #t) (c:noop)))))))) ((primitive-procedure) (widen-type r 'void17 (the-member (expression-type-set x)))) ((foreign-procedure) (widen-type r 'void18 (the-member (expression-type-set x)))) ((access) (if (expression-accessed? x) (cond ((and (hidden? (expression-variable x)) (not (discard? r)) (not (antecedent? r))) (case *closure-representation* ((immediate-flat) (unimplemented x "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented x "Indirect flat closures are not (yet) implemented")) ((immediate-display) (when (or (squeezed? (result-type-set r)) (squished? (result-type-set r))) (fuck-up)) (let ((u (the-member (variable-type-set (expression-variable x))))) (newline-between (if (multimorphic? (result-type-set r)) (c::= (c:tag (result-c r) (result-type-set r)) (c:type-tag u)) (c:noop)) (newlines-between (map (lambda (e1) (c::= (c:. (c:value (result-c r) u (result-type-set r)) (c:e e1)) (if (eq? e1 e) (c:e e1) (c:. (c:p e) (c:e e1))))) (ancestors u)))))) ((indirect-display) ;; note: Accessing a hidden variable with indirect ;; display closures requires consing. ;; needs work: To allocate the closure. (unimplemented x "Indirect display closures are not (yet) implemented") (when (or (squeezed? (result-type-set r)) (squished? (result-type-set r))) (fuck-up)) (let ((u (the-member (variable-type-set (expression-variable x))))) (newline-between (if (multimorphic? (result-type-set r)) (c::= (c:tag (result-c r) (result-type-set r)) (c:type-tag u)) (c:noop)) (newlines-between (map (lambda (e1) (c::= (c:-> (c:value (result-c r) u (result-type-set r)) (c:e e1)) (if (eq? e1 e) (c:e e1) (c:-> (c:p e) (c:e e1))))) (ancestors u)))))) ((linked) (move-access r (accessor (expression-variable x) e) (variable-type-set (expression-variable x)) (expression-type-set x))) (else (fuck-up)))) (else (move-access r (if (or (fictitious? (variable-type-set (expression-variable x))) (hidden? (expression-variable x))) 'void19 (accessor (expression-variable x) e)) (variable-type-set (expression-variable x)) (expression-type-set x)))) (compile-return r))) ((call converted-call) (cond ((and (antecedent? r) (or-expression? x)) (let* ((u (the-member (expression-type-set (expression-callee x)))) (e0 (callee-environment u (create-call-site x))) (x0 (environment-expression e0)) (x1 (expression-body x0)) (x2 (first (expression-arguments x))) (e1 (expression-environment x))) (if (reached? (expression-consequent x1)) (if (reached? (expression-alternate x1)) (let* ((l3 (allocate-label)) (c (compile-antecedent x2 (result-l1 r) l3 l3))) (newline-between c (if (contains? c l3) (c:: l3) (c:noop)) (compile-initialize-region e0) (if (has-parent-parameter? e0) (case *closure-representation* ((immediate-flat) (unimplemented x "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented x "Indirect flat closures are not (yet) implemented")) ((immediate-display) (newlines-between (map (lambda (e) (c::= (c:. (c:p e0) (c:e e)) (if (eq? e e1) (c:e e) (c:. (c:p e1) (c:e e))))) (ancestors u)))) ((indirect-display) ;; needs work: To allocate the closure. (unimplemented x "Indirect display closures are not (yet) implemented") (newlines-between (map (lambda (e) (c::= (c:-> (c:p e0) (c:e e)) (if (eq? e e1) (c:e e) (c:-> (c:p e1) (c:e e))))) (ancestors u)))) ((linked) (c::= (c:p e0) (lambda-accessor u e))) (else (fuck-up))) (c:noop)) ;; needs work: There can be a memory leak here if E0 is ;; reentrant and has a region because there ;; is no (COMPILE-RESTORE E0). (compile-antecedent (expression-alternate x1) (result-l1 r) (result-l2 r) (result-l0 r)))) (compile-antecedent x2 (result-l1 r) #f (result-l0 r))) (if (reached? (expression-alternate x1)) (let* ((l3 (allocate-label)) (c (compile-antecedent x2 #f l3 l3))) (newline-between c (if (contains? c l3) (c:: l3) (c:noop)) (compile-initialize-region e0) (if (has-parent-parameter? e0) (case *closure-representation* ((immediate-flat) (unimplemented x "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented x "Indirect flat closures are not (yet) implemented")) ((immediate-display) (newlines-between (map (lambda (e) (c::= (c:. (c:p e0) (c:e e)) (if (eq? e e1) (c:e e) (c:. (c:p e1) (c:e e))))) (ancestors u)))) ((indirect-display) ;; needs work: To allocate the closure. (unimplemented x "Indirect display closures are not (yet) implemented") (newlines-between (map (lambda (e) (c::= (c:-> (c:p e0) (c:e e)) (if (eq? e e1) (c:e e) (c:-> (c:p e1) (c:e e))))) (ancestors u)))) ((linked) (c::= (c:p e0) (lambda-accessor u e))) (else (fuck-up))) (c:noop)) ;; needs work: There can be a memory leak here if E0 is ;; reentrant and has a region because there ;; is no (COMPILE-RESTORE E0). (compile-antecedent (expression-alternate x1) (result-l1 r) (result-l2 r) (result-l0 r)))) (compile-antecedent x2 #f #f (result-l0 r)))))) ((and (antecedent? r) (not-expression? x)) (compile-antecedent (first (expression-arguments x)) (result-l2 r) (result-l1 r) (result-l0 r))) (else (let* ((w0 (expression-type-set (expression-callee x))) (ws (map expression-type-set (expression-arguments x))) (t0 (allocate-temporary w0)) (ts (map allocate-temporary ws))) (newline-between ;; needs work: Should not evaluate any arguments if callee doesn't ;; return and should not evaluate an argument that ;; follows an argument that doesn't return. This ;; assumes a left-to-right evaluation order. As Olin ;; Shivers pointed out, since evaluation order is ;; unspecified you can abort if any subexpression ;; doesn't return. But given the way the propagator ;; works, we can only determine whether an expression ;; returns by asserting it as used. So we have to pick ;; some order and it might as well be left to right. ;; note: The callee is evaluated after the arguments in attempt to ;; match the Scheme->C argument evaluation order. (newlines-between ;; note: This is a kludge to reverse the evaluation order of ;; rest arguments in attempt to match the Scheme->C ;; argument evaluation order. ((if (and (monomorphic? w0) (native-procedure-type? (the-member w0)) (called? (the-member w0)) (rest? (the-member w0))) reverse identity) (map (lambda (w t x) (compile (if (expression-accessed? x) (create-accessor-result w t) *discard*) x)) ws ts (expression-arguments x)))) (compile (if (expression-accessed? (expression-callee x)) (create-accessor-result w0 t0) *discard*) (expression-callee x)) (if (executed? x) (if (void? w0) (compile-error "void_call" x #t) (type-switch (compatible-call? x) w0 r t0 (lambda (u0) (if (converted? x) (compile-converted-call r (create-call-site x) t0 u0 w0 ts ws 'void20 *null*) (compile-call r (create-call-site x) t0 u0 w0 #f #f ts ws 'void21 *null*))) (lambda (p?) (compile-error "call" x p?)))) (c:noop))))))) (else (fuck-up))))))) (define (compile-native-procedures) (newlines-between (map (lambda (e) (if (unique-call-site? e) (c:noop) (let ((x (environment-expression e))) (set! *outside-body* '()) ;; note: This can't be beta converted since it modifies ;; *OUTSIDE-BODY*. (let* ((c (compile (create-return-result e (expression-type-set (expression-body x))) (expression-body x))) (c (newline-between (apply c:header (c:f e) (compile-parameter-variables e)) (braces-around (newline-between (if (or (fictitious? (return-type-set e)) (not (expression-accessed? (expression-body (environment-expression e))))) (c:noop) (c:declaration (return-type-set e) (c:r e) (c:noop))) (if (environment-passes-parameters-globally? e) (newline-between (if (has-parent-parameter? e) ;; needs work: needs abstraction for initialized ;; declaration (semicolon-after (c:type (environment-type e) (unparenthesize (c:= (c:p e) (c:d e))))) (c:noop)) (newlines-between (map (lambda (g) (space-between ;; needs work: needs abstraction for initialized ;; declaration (semicolon-after (c:type-set (variable-type-set g) (unparenthesize (c:= (c:a g) (c:b g))))) (c:/**/ (symbol->string (variable-name g))))) (remove-if-not (lambda (g) (or (local? g) (slotted? g))) (variables e))))) (c:noop)) (newlines-between (map (lambda (e1) (if (and (not (noop? e1)) (has-region? e1) (reentrant? e1)) (semicolon-after (space-between (c:byte) (star-before (c:sfp e1)))) (c:noop))) ;; This assumes that the IN-LINED-IN? relation is ;; reflexive. (in-lined-environments e))) (compile-in-lined-variables e) (newlines-between (reverse *outside-body*)) (newlines-between (map (lambda (e1) (if (and (not (noop? e1)) (has-closure? e1)) (semicolon-after ;; needs work: To use code-generation ;; abstractions. (space-between "struct" (case *closure-representation* ((immediate-flat) (unimplemented x "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented x "Indirect flat closures are not (yet) implemented")) ((immediate-display) (c:e e1)) ((indirect-display) (c:e e1)) ((linked) (c:p e1)) (else (fuck-up))) (star-before (c:e e1)))) (c:noop))) ;; This assumes that the IN-LINED-IN? relation is ;; reflexive. (in-lined-environments e))) (newlines-between (map (lambda (e1) (if (and (not (noop? e1)) (has-parent-parameter? e1)) (semicolon-after (c:type (environment-type e1) (c:p e1))) (c:noop))) (properly-in-lined-environments e))) (compile-initialize-region e) ;; note: The self-tail-call entry point can't come after the ;; closure level allocation and spill since that would ;; unsoundly overwrite the existing closure. ;; cpstak.sc is an example of this. (if (has-self-tail-call? e) (c:: (c:h e)) (c:noop)) (if (has-closure? e) (newline-between (compile-allocate-closure-level e) (spill-slotted-variables e)) (c:noop)) c))))) (newline-between (if (or (substring? "/*" (environment-name e)) (substring? "*/" (environment-name e))) (c:noop) (c:/**/ (environment-name e))) (if (or (fictitious? (return-type-set e)) (not (expression-accessed? (expression-body (environment-expression e))))) ;; needs work: To use code-generation abstractions. (space-between "void" c) (c:type-set (return-type-set e) c))))))) *es*))) (define (compile-offsets) (let ((us (sort (remove-if (lambda (u) (zero? (type-use-count u))) (append (list ) *internal-symbol-types* *external-symbol-types* *primitive-procedure-types* *native-procedure-types* *foreign-procedure-types* *continuation-types* *string-types* *structure-types* *headed-vector-types* *nonheaded-vector-types* *displaced-vector-types*)) > type-use-count))) (newline-between (newlines-between (map-indexed (lambda (u i) (c:define (c:type-tag u) (c:fixnum (* (+ i (if *char-type-used?* 256 0)) (expt 2 *worst-alignment*))))) us)) (c:define (c:value-offset) (c:fixnum (* (+ (length us) (if *char-type-used?* 256 0)) (expt 2 *worst-alignment*)))) (if *char-type-used?* (c:define (c:char-offset) (c:fixnum (* 256 (expt 2 *worst-alignment*)))) (c:noop))))) (define (compile-constant-initialization-procedures) (newlines-between (map-n (lambda (i) (newline-between (space-between "void" (c:header (c:initialize-constants i))) (braces-around (newlines-between (sublist (reverse *inside-main*) (* *statements-per-constant-initialization-procedure* i) (min (* *statements-per-constant-initialization-procedure* (+ i 1)) (length *inside-main*))))))) (inexact->exact (ceiling (/ (length *inside-main*) (exact->inexact *statements-per-constant-initialization-procedure*))))))) (define (compile-constant-initialization-procedure-calls) (newlines-between (map-n (lambda (i) (c:gosub (c:initialize-constants i))) (inexact->exact (ceiling (/ (length *inside-main*) (exact->inexact *statements-per-constant-initialization-procedure*))))))) (define (compile-assertions) ;; needs work: To use code-generation abstractions. (newline-between (if *char-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *char* c))) (c:fixnum (expt 2 *char-alignment*)))) (c:noop)) (if *fixnum-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *fixnum* c))) (c:fixnum (expt 2 *fixnum-alignment*)))) (c:noop)) (if *flonum-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *flonum* c))) (c:fixnum (expt 2 *flonum-alignment*)))) (c:noop)) (if *rectangular-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between "struct" "rectangular" c))) (c:fixnum (expt 2 *flonum-alignment*)))) (c:noop)) (if *void*-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between "void" (star-before c)))) (c:fixnum (expt 2 *pointer-alignment*)))) (c:noop)) (if *char*-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *char* (star-before c)))) (c:fixnum (expt 2 *pointer-alignment*)))) (c:noop)) (if *file*-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *file* (star-before c)))) (c:fixnum (expt 2 *pointer-alignment*)))) (c:noop)) (if *jmpbuf*-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *jmpbuf* (star-before c)))) (c:fixnum (expt 2 *pointer-alignment*)))) (c:noop)) (if *length-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *length* c))) (c:fixnum (expt 2 *length-alignment*)))) (c:noop)) (if *tag-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *tag* c))) (c:fixnum (expt 2 *tag-alignment*)))) (c:noop)) (if *squished-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *squished* c))) (c:fixnum (expt 2 *squished-alignment*)))) (c:noop)) (if *file-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *file* c))) (c:fixnum (expt 2 *file-alignment*)))) (c:noop)) (if *jmpbuf-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *jmpbuf* c))) (c:fixnum (expt 2 *jmpbuf-alignment*)))) (c:noop)) (newlines-between (map (lambda (u) (c:assert (c:== (c:alignof (lambda (c) (c:type u c))) (c:fixnum (expt 2 (type-alignment u)))))) (append (remove-if-not native-procedure-type-alignment? *native-procedure-types*) (remove-if-not structure-type-alignment? *structure-types*) (remove-if-not headed-vector-type-alignment? *headed-vector-types*) (remove-if-not nonheaded-vector-type-alignment? *nonheaded-vector-types*) (remove-if-not displaced-vector-type-alignment? *displaced-vector-types*)))) (case *closure-representation* ((immediate-flat immediate-display) (c:noop)) ((indirect-flat indirect-display) (newlines-between (map (lambda (u) (c:assert (c:== (c:alignof (lambda (c) (space-between "struct" (c:p u) c))) (c:fixnum (expt 2 (type-alignment& u)))))) (remove-if-not native-procedure-type-alignment&? *native-procedure-types*)))) ((linked) (newlines-between (map (lambda (e) (if (and (or (eq? *closure-conversion-method* 'baseline) (eq? *closure-conversion-method* 'conventional)) (not (environment? e))) (c:noop) (c:assert (c:== (c:alignof (lambda (c) (space-between "struct" (c:p e) c))) (c:fixnum (expt 2 (type-alignment& (find-if (lambda (u) (and (called? u) (not (noop? u)) (has-parent-parameter? u) (eq? e (parent-parameter u)))) *native-procedure-types*)))))))) (remove-duplicatesq (map parent-parameter (remove-if-not native-procedure-type-alignment&? ;; This is just because of *CLOSURE-CONVERSION-METHOD*. (remove-if (lambda (u) (or (not (called? u)) (noop? u))) *native-procedure-types*))))))) (else (fuck-up))) (newlines-between (map (lambda (u) (if (and (or (eq? *closure-conversion-method* 'baseline) (eq? *closure-conversion-method* 'conventional)) (or (not (environment? (native-procedure-type-narrow-prototype u))) (not (environment-used? (narrow-prototype u))) (not (environment? (parent-parameter u))) (not (environment-used? (parent-parameter u))))) (c:noop) (c:assert (c:== (c:alignof (lambda (c) (space-between "struct" (case *closure-representation* ((immediate-flat immediate-display) (fuck-up)) ((indirect-flat indirect-display) (c:p u)) ((linked) (c:p (parent-parameter u))) (else (fuck-up))) c))) (c:fixnum (expt 2 (type-alignment& u))))))) (remove-if-not native-procedure-type-alignment&? *native-procedure-types*))) (newlines-between (map (lambda (u) (c:assert (c:== (c:alignof (lambda (c) (c:type& u c))) (c:fixnum (expt 2 (type-alignment& u)))))) (remove-if-not structure-type-alignment&? *structure-types*))) (newlines-between (map (lambda (u) (c:assert (c:== (c:alignof (lambda (c) (space-between "struct" (c:u u) c))) (c:fixnum (expt 2 (type-alignment& u)))))) (remove-if-not headed-vector-type-alignment&? *headed-vector-types*))) (newlines-between (map (lambda (w) (c:assert (c:== (c:alignof (lambda (c) (c:type-set w c))) (c:fixnum (expt 2 (type-set-alignment w)))))) (remove-if-not type-set-alignment? *ws*))) (if *char-size?* (c:assert (c:== (c:sizeof *char*) (c:fixnum *char-size*))) (c:noop)) (if *fixnum-size?* (c:assert (c:== (c:sizeof *fixnum*) (c:fixnum *fixnum-size*))) (c:noop)) (if *flonum-size?* (c:assert (c:== (c:sizeof *flonum*) (c:fixnum *flonum-size*))) (c:noop)) (if *rectangular-size?* (c:assert (c:== (c:sizeof (list "struct" "rectangular")) (c:fixnum (* 2 *flonum-size*)))) (c:noop)) (if *void*-size?* (c:assert (c:== (c:sizeof (space-between "void" "*")) (c:fixnum *pointer-size*))) (c:noop)) (if *char*-size?* (c:assert (c:== (c:sizeof (space-between *char* "*")) (c:fixnum *pointer-size*))) (c:noop)) (if *file*-size?* (c:assert (c:== (c:sizeof (space-between *file* "*")) (c:fixnum *pointer-size*))) (c:noop)) (if *jmpbuf*-size?* (c:assert (c:== (c:sizeof (space-between *jmpbuf* "*")) (c:fixnum *pointer-size*))) (c:noop)) (if *length-size?* (c:assert (c:== (c:sizeof *length*) (c:fixnum *length-size*))) (c:noop)) (if *tag-size?* (c:assert (c:== (c:sizeof *tag*) (c:fixnum *tag-size*))) (c:noop)) (if (and *squish?* *squished-size?*) (c:assert (c:== (c:sizeof *squished*) (c:fixnum *squished-size*))) (c:noop)) (if (and *squish?* *squished-size?*) (c:assert (c:== (c:sizeof *signed-squished*) (c:fixnum *squished-size*))) (c:noop)) (newlines-between (map (lambda (u) (c:assert (c:== (c:sizeof (c:type u "")) (c:fixnum (type-size u))))) (append (remove-if-not native-procedure-type-size? *native-procedure-types*) (remove-if-not structure-type-size? *structure-types*) (remove-if-not headed-vector-type-size? *headed-vector-types*) (remove-if-not nonheaded-vector-type-size? *nonheaded-vector-types*) (remove-if-not displaced-vector-type-size? *displaced-vector-types*)))) (newlines-between (map (lambda (w) (c:assert (c:== (c:sizeof (c:type-set w "")) (c:fixnum (type-set-size w))))) (remove-if-not type-set-size? *ws*))))) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/source/stalin4d.sc0000600017435200151030000037340510464434544014766 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; Stalin 0.11 - A global optimizing compiler for Scheme ;;; Copyright 1993, 1994, and 1995 University of Toronto. All rights reserved. ;;; Copyright 1996 Technion. All rights reserved. ;;; Copyright 1996 and 1997 University of Vermont. All rights reserved. ;;; Copyright 1997, 1998, 1999, 2000, and 2001 NEC Research Institute, Inc. All ;;; rights reserved. ;;; Copyright 2002, 2003, 2004, 2005, and 2006 Purdue University. All rights ;;; reserved. ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License ;;; as published by the Free Software Foundation; either version 2 ;;; of the License, or (at your option) any later version. ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;;; written by: ;;; Jeffrey Mark Siskind ;;; School of Electrical and Computer Engineering ;;; Purdue University ;;; Electrical Engineering Building, Room 330 ;;; 465 Northwestern Avenue ;;; West Lafayette IN 47907-2035 USA ;;; voice: 765/496-3197 ;;; fax: 765/494-6440 ;;; qobi@purdue.edu ;;; http://www.ece.purdue.edu/~qobi ;;; Begin delete for Trotsky (module stalin4d) (include "QobiScheme.sch") (include "stalin4d.sch") ;;; End delete for Trotsky (define-structure primitive-procedure compatible-procedure? truly-compatible-procedure? consequent-contexts alternate-contexts propagate-call! promote! compile-call) (define *primitive-procedure-handlers* '()) ;;; Begin delete for Trotsky (define-macro define-primitive-procedure (lambda (form expander) (unless (= (length form) 9) (error 'define-primitive-procedure "Wrong number of arguments: ~s" form)) (expander `(set! *primitive-procedure-handlers* (cons (cons ',(second form) (make-primitive-procedure ,(third form) (lambda (y u0 w0) ,(fourth form)) (lambda (y u0 n w0) ,(fifth form)) (lambda (y u0 n w0) ,(sixth form)) (lambda (y u0 propagate-result! propagate-type-predicate! w0) ,(seventh form)) (lambda (r y u0 ws w w0 w1 w2 w3) ,(eighth form)) (lambda (r y u0 ts ws t w compile-type-predicate t0 w0 t1 w1 t2 w2 t3 w3) ,(ninth form)))) *primitive-procedure-handlers*)) expander))) ;;; End delete for Trotsky (define (zero-arguments-compatible? u0 ws w) (when (can-be-non? null-type? w) (fuck-up)) (= (length ws) 0)) (define (one-argument-compatible? u0 ws w) (when (can-be-non? null-type? w) (fuck-up)) (= (length ws) 1)) (define (two-arguments-compatible? u0 ws w) (when (can-be-non? null-type? w) (fuck-up)) (= (length ws) 2)) (define (three-arguments-compatible? u0 ws w) (when (can-be-non? null-type? w) (fuck-up)) (= (length ws) 3)) (define (n-arguments-compatible? u0 ws w) (when (can-be-non? null-type? w) (fuck-up)) (= (length ws) (second (primitive-procedure-type-arguments u0)))) (define (one-or-two-arguments-compatible? u0 ws w) (when (can-be-non? null-type? w) (fuck-up)) (or (one-argument-compatible? u0 ws w) (two-arguments-compatible? u0 ws w))) (define (zero-or-more-arguments-compatible? u0 ws w) (when (can-be-non? null-type? w) (fuck-up)) (>= (length ws) 0)) (define (one-or-more-arguments-compatible? u0 ws w) (when (can-be-non? null-type? w) (fuck-up)) (>= (length ws) 1)) (define (two-or-more-arguments-compatible? u0 ws w) (when (can-be-non? null-type? w) (fuck-up)) (>= (length ws) 2)) (define (zero-arguments-truly-compatible?) (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) #t)) (define (one-argument-truly-compatible? m) (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (and (= (length ws) 1) (can-be? m (first ws))))) (define (two-arguments-truly-compatible? m1 m2) (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (and (= (length ws) 2) (can-be? m1 (first ws)) (can-be? m2 (second ws))))) (define (three-arguments-truly-compatible? m1 m2 m3) (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (and (= (length ws) 3) (can-be? m1 (first ws)) (can-be? m2 (second ws)) (can-be? m3 (third ws))))) (define (n-arguments-truly-compatible?) (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) #t)) (define (one-or-two-arguments-truly-compatible? m1 m2) (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (or (and (= (length ws) 1) (can-be? m1 (first ws))) (and (= (length ws) 2) (can-be? m1 (first ws)) (can-be? m2 (second ws)))))) (define (all-arguments-truly-compatible? m) (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (every (lambda (w) (can-be? m w)) ws))) (define (zero-arguments-propagate! p) ;; conventions: P (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (unless (= (length ws) 0) (fuck-up)) (p))) (define (one-argument-propagate! p) ;; conventions: P (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (unless (= (length ws) 1) (fuck-up)) (p (first ws)))) (define (two-arguments-propagate! p) ;; conventions: P (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (unless (= (length ws) 2) (fuck-up)) (p (first ws) (second ws)))) (define (three-arguments-propagate! p) ;; conventions: P (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (unless (= (length ws) 3) (fuck-up)) (p (first ws) (second ws) (third ws)))) (define (n-arguments-propagate! p) ;; conventions: P (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (p ws))) (define (one-or-two-arguments-propagate! p1 p2) ;; conventions: P1 P2 (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (cond ((= (length ws) 1) (p1 (first ws))) ((= (length ws) 2) (p2 (first ws) (second ws))) (else (fuck-up))))) (define (all-arguments-propagate! p) ;; conventions: P (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (p ws))) ;;; needs work: Every instance of WIDEN and WIDEN-TYPE in this file must be ;;; checked for the case when the RESULT-KIND is DISCARD or ;;; ANTECEDENT. If the generated C code could raise an exception ;;; then one should use the strict option (P?=#F) to MOVE-GENERAL. ;;; This is technically not required by R4RS. (define-primitive-procedure structure? one-argument-compatible? (one-argument-truly-compatible? type?) (list (structure-type-named? (first (primitive-procedure-type-arguments u0)))) (list (lambda (u) (not ((structure-type-named? (first (primitive-procedure-type-arguments u0))) u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? (structure-type-named? (first (primitive-procedure-type-arguments u0))) w1) (can-be-non? (structure-type-named? (first (primitive-procedure-type-arguments u0))) w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! (structure-type-named? (first (primitive-procedure-type-arguments u0)))))) #f (compile-type-predicate (structure-type-named? (first (primitive-procedure-type-arguments u0))))) (define-primitive-procedure make-structure n-arguments-compatible? (n-arguments-truly-compatible?) (map-n (lambda (i) type?) n) (map-n (lambda (i) type?) n) (n-arguments-propagate! (lambda (ws) (propagate-result! ( (first (primitive-procedure-type-arguments u0)) (second (primitive-procedure-type-arguments u0)) ;; note: This is suboptimal since type propagation is not yet ;; complete and APPLY-CLOSED-WORLD-ASSUMPTION! has not ;; been done yet. (map members ws) (call-site-expression y))))) (unless (or (discard? r) (antecedent? r) (and (return? r) (not (result-accessed? r)))) (let* ((w (result-type-set r)) (u (the-member-that (lambda (u) (and ((structure-type-named? (first (primitive-procedure-type-arguments u0))) u) (memq (call-site-expression y) (structure-type-allocating-expressions u)))) w))) (unless (fictitious? u) (for-each (lambda (w0 i w1) (promote! (if (fictitious? w0) *discard* (create-accessor-result w0 #f)) w1 w1)) (structure-type-slots u) (enumerate (length (structure-type-slots u))) ws)))) (cond ((discard? r) (c:noop)) ((antecedent? r) (return-true r)) ((and (return? r) (not (result-accessed? r))) (compile-return r)) (else (let* ((c (result-c r)) (w (result-type-set r)) (u (the-member-that (lambda (u) (and ((structure-type-named? (first (primitive-procedure-type-arguments u0))) u) (memq (call-site-expression y) (structure-type-allocating-expressions u)))) w))) (if (fictitious? u) (widen-type r 'void22 u) (newline-between (compile-allocate-structure c u w y) (newlines-between (map (lambda (w0 i t1 w1) (move (if (fictitious? w0) *discard* (create-accessor-result w0 (value-structure-ref c u w i))) t1 w1)) (structure-type-slots u) (enumerate (length (structure-type-slots u))) ts ws)) (compile-return r))))))) (define-primitive-procedure structure-ref one-argument-compatible? (one-argument-truly-compatible? (structure-type-named? (first (primitive-procedure-type-arguments u0)))) (list (structure-type-named? (first (primitive-procedure-type-arguments u0)))) (list (structure-type-named? (first (primitive-procedure-type-arguments u0)))) (one-argument-propagate! (lambda (w1) (for-each-member (lambda (u1) (when ((structure-type-named? (first (primitive-procedure-type-arguments u0))) u1) (list-set! (structure-type-structure-ref-accessed? u1) (second (primitive-procedure-type-arguments u0)) #t) (for-each-member propagate-result! (list-ref (structure-type-slots u1) (second (primitive-procedure-type-arguments u0)))))) w1))) (for-each-member (lambda (u1) (when ((structure-type-named? (first (primitive-procedure-type-arguments u0))) u1) (promote! r (list-ref (structure-type-slots u1) (second (primitive-procedure-type-arguments u0))) (list-ref (structure-type-slots u1) (second (primitive-procedure-type-arguments u0)))))) w1) (type-switch (structure-type-named? (first (primitive-procedure-type-arguments u0))) w1 r t1 (lambda (u1) (move r (value-structure-ref t1 u1 w1 (second (primitive-procedure-type-arguments u0))) (list-ref (structure-type-slots u1) (second (primitive-procedure-type-arguments u0))))) (lambda (p?) (compile-error "structure_ref" y p?)))) (define-primitive-procedure structure-set! two-arguments-compatible? (two-arguments-truly-compatible? (structure-type-named? (first (primitive-procedure-type-arguments u0))) type?) (list (structure-type-named? (first (primitive-procedure-type-arguments u0))) type?) (list (structure-type-named? (first (primitive-procedure-type-arguments u0))) type?) (two-arguments-propagate! (lambda (w1 w2) (for-each-member (lambda (u1) (when ((structure-type-named? (first (primitive-procedure-type-arguments u0))) u1) (set-structure-type-immediate?! u1 #f) (assert-subset! w2 (list-ref (structure-type-slots u1) (second (primitive-procedure-type-arguments u0)))))) w1))) (for-each-member (lambda (u1) (when ((structure-type-named? (first (primitive-procedure-type-arguments u0))) u1) (promote! (if (fictitious? (list-ref (structure-type-slots u1) (second (primitive-procedure-type-arguments u0)))) *discard* (create-accessor-result (list-ref (structure-type-slots u1) (second (primitive-procedure-type-arguments u0))) #f)) w2 w2))) w1) (type-switch (structure-type-named? (first (primitive-procedure-type-arguments u0))) w1 r t1 (lambda (u1) (newline-between (move (if (fictitious? (list-ref (structure-type-slots u1) (second (primitive-procedure-type-arguments u0)))) *discard* (create-accessor-result (list-ref (structure-type-slots u1) (second (primitive-procedure-type-arguments u0))) (value-structure-ref t1 u1 w1 (second (primitive-procedure-type-arguments u0))))) t2 w2) (compile-return r))) (lambda (p?) (compile-error "structure_set" y p?)))) (define-primitive-procedure not one-argument-compatible? (one-argument-truly-compatible? type?) (list false-type?) (list (lambda (u) (not (false-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? false-type? w1) (can-be-non? false-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! false-type?))) #f (compile-type-predicate false-type?)) (define-primitive-procedure boolean? one-argument-compatible? (one-argument-truly-compatible? type?) (list boolean-type?) (list (lambda (u) (not (boolean-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? boolean-type? w1) (can-be-non? boolean-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! boolean-type?))) #f (compile-type-predicate boolean-type?)) (define-primitive-procedure eq? two-arguments-compatible? (two-arguments-truly-compatible? type? type?) (list type? type?) (list type? type?) (two-arguments-propagate! (lambda (w1 w2) (let ((p0? (and (not (void? w1)) (not (void? w2)) (or ;; This is suboptimal. W1 or W2 might have multiple members now ;; that will be merged into a monotype by ;; APPLY-CLOSED-WORLD-ASSUMPTION!. (multimorphic? w1) (multimorphic? w2) ;; This is suboptimal. A structure or a native procedure might ;; in the end be fictitious but we can't know that at this ;; point. (not (necessarily-fictitious? (the-member w1))) (not (necessarily-fictitious? (the-member w2))) ;; This is suboptimal. The members of W1 and W2 might be ;; equated by APPLY-CLOSED-WORLD-ASSUMPTION!. (not (eq? (the-member w1) (the-member w2)))))) ;; needs work: This is unsound. There might be a U1 in W1 and a U2 in ;; W2 that are not EQ? but that will become EQ? as a ;; result of APPLY-CLOSED-WORLD-ASSUMPTION!. (p1? (can-be? (lambda (u1) (member? u1 w2)) w1))) (when p1? (propagate-result! )) (when p0? (propagate-result! )) (when (and p0? p1?) (for-each-member (lambda (u1) (set-type-eq?-accessed?! u1 #t)) w1) (for-each-member (lambda (u2) (set-type-eq?-accessed?! u2 #t)) w2) (for-each-member (lambda (u1) (when (structure-type? u1) (set-structure-type-immediate?! u1 #f))) w1) (for-each-member (lambda (u2) (when (structure-type? u2) (set-structure-type-immediate?! u2 #f))) w2))))) #f (let ((us (intersectionq (members w1) (members w2)))) (if (or (null? us) (cond ((converted? y) (unless (and (eq? (expression-kind (call-site-expression y)) 'converted-call) (eq? (expression-kind (expression-callee (call-site-expression y))) 'converted-continuation) (list? (expression-parameters (expression-callee (call-site-expression y)))) (not (null? (expression-parameters (expression-callee (call-site-expression y)))))) (fuck-up)) (must-be? false-type? (variable-type-set (first (expression-parameters (expression-callee (call-site-expression y))))))) (else (must-be? false-type? (expression-type-set (call-site-expression y)))))) (return-false r) (cond ((fake? w1) (cond ((fake? w2) ;; Must be true since fictitious type sets are monotypes and the ;; intersection is non empty. (return-true r)) ((monomorphic? w2) ;; Nonfictitious monotypes are disjoint with fictitious type ;; sets. (fuck-up)) ((tag-only? w2) (compile-test r (c:== (c:type-tag (the-member w1)) (c:tag t2 w2)))) ((squeezed? w2) ;; Rectangulars, immediate closures, nonfictitious immediate ;; structures, nondegenerate nonheaded vectors, and ;; nondegenerate displaced vectors can't be squeezed so there ;; is no need to handle == on structs. (compile-test r (c:== (c:type-set-cast (c:type-tag (the-member w1)) w2) t2))) ((squished? w2) ;; Rectangulars, immediate closures, nonfictitious immediate ;; structures, nondegenerate nonheaded vectors, and ;; nondegenerate displaced vectors can't be squished so there ;; is no need to handle == on structs. (compile-test r (c:== (c:type-set-cast (c:type-tag (the-member w1)) w2) t2))) (else (compile-test r (c:== (c:type-tag (the-member w1)) (c:tag t2 w2)))))) ((monomorphic? w1) (compile-test r (cond ((fake? w2) ;; Nonfictitious monotypes are disjoint with fictitious type sets. (fuck-up)) ((monomorphic? w2) (c:==struct (c:value t1 (the-member w1) w1) (c:value t2 (the-member w2) w2) (the-member w1))) ((tag-only? w2) ;; CHAR is the only fictitious type that can be a nonfictitious ;; monotype. (unless (char-type? (the-member w1)) (fuck-up)) ;; Must cast T1 to be a type and not cast T2 to be a char since T2 ;; could have other tags in it besides characters. ;; This assumes that *TAG* is unsigned so that << does a logical ;; shift. The call to C:UNSIGNED-CHAR-CAST is in case *CHAR* is ;; signed to force << to be a logical shift without a prior sign ;; extend. The call to C:TYPE-SET-CAST is to prevent any overflow ;; in the logical shift. (c:== (c:<< (c:type-set-cast (c:unsigned-char-cast (c:value t1 (the-member w1) w1)) w2) (c:fixnum *worst-alignment*)) (c:tag t2 w2))) ((squeezed? w2) ;; Rectangulars, immediate closures, nonfictitious immediate ;; structures, nondegenerate nonheaded vectors, and nondegenerate ;; displaced vectors can't be squeezed so there is no need to ;; handle == on structs. (c:== (squeeze t1 (the-member w1) w2) t2)) ((squished? w2) ;; Rectangulars, immediate closures, nonfictitious immediate ;; structures, nondegenerate nonheaded vectors, and nondegenerate ;; displaced vectors can't be squeezed so there is no need to ;; handle == on structs. (c:== (squish t1 (the-member w1) w2) t2)) (else (if (char-type? (the-member w1)) (c:== (c:value t1 (the-member w1) w1) (c:value t2 (the-member w1) w2)) (c:&& (c:== (c:type-tag (the-member w1)) (c:tag t2 w2)) (c:==struct (c:value t1 (the-member w1) w1) (c:value t2 (the-member w1) w2) (the-member w1)))))))) ((tag-only? w1) (compile-test r (cond ((fake? w2) (c:== (c:tag t1 w1) (c:type-tag (the-member w2)))) ((monomorphic? w2) ;; CHAR is the only fictitious type that can be a nonfictitious ;; monotype. (unless (char-type? (the-member w2)) (fuck-up)) ;; Must cast T2 to be a type and not cast T1 to be a char since T1 ;; could have other tags in it besides characters. ;; This assumes that *TAG* is unsigned so that << does a logical ;; shift. The call to C:UNSIGNED-CHAR-CAST is in case *CHAR* is ;; signed to force << to be a logical shift without a prior sign ;; extend. The call to C:TYPE-SET-CAST is to prevent any overflow ;; in the logical shift. (c:== (c:tag t1 w1) (c:<< (c:type-set-cast (c:unsigned-char-cast (c:value t2 (the-member w2) w2)) w1) (c:fixnum *worst-alignment*)))) ((tag-only? w2) (c:== (c:tag t1 w1) (c:tag t2 w2))) ((squeezed? w2) ;; Rectangulars, immediate closures, nonfictitious immediate ;; structures, nondegenerate nonheaded vectors, and nondegenerate ;; displaced vectors can't be squeezed so there is no need to ;; handle == on structs. (c:== (c:tag->squeezed-cast t1 w1 w2) t2)) ((squished? w2) ;; Rectangulars, immediate closures, nonfictitious immediate ;; structures, nondegenerate nonheaded vectors, and nondegenerate ;; displaced vectors can't be squished so there is no need to ;; handle == on structs. (c:== (c:type-set-cast (c:tag t1 w1) w2) t2)) (else (c:== (c:tag t1 w1) (c:tag t2 w2)))))) ((squeezed? w1) ;; Rectangulars, immediate closures, nonfictitious immediate ;; structures, nondegenerate nonheaded vectors, and nondegenerate ;; displaced vectors can't be squeezed so there is no need to handle ;; == on structs. (compile-test r (cond ((fake? w2) (c:== t1 (c:type-set-cast (c:type-tag (the-member w2)) w1))) ((monomorphic? w2) (c:== t1 (squeeze t2 (the-member w2) w1))) ((tag-only? w2) (c:== t1 (c:tag->squeezed-cast t2 w2 w1))) ((squeezed? w2) (if (eq? (squeezed-member w1) (squeezed-member w2)) (c:== t1 t2) (c:== (c:type-set-cast t1 w2) t2))) ((squished? w2) (if (can-be? (lambda (u1) (and (or (char-type? u1) (fictitious? u1)) (member? u1 w2))) w1) (if (member? (squeezed-member w1) w2) ;; The two type sets share both fictitious and ;; nonfictitious members. (if (zero? (squish-tag (squeezed-member w1) w2)) ;; In this case the matching nonfictitious members have ;; squish tag zero so checking for matching fictitious ;; and nonfictitious members can be done with a single ;; comparison. (c:== (c:type-set-cast t1 w2) t2) ;; In the general case need to check for either matching ;; fictitious or nonfictitious members. (c:boolean-or ;; This checks for matching fictitious members. (c:== (c:type-set-cast t1 w2) t2) ;; This checks for matching nonfictitious members. (c:== (squish t1 (squeezed-member w1) w2) t2))) ;; The two type sets share only fictitious members. ;; Note that the squeezed argument will always have squish ;; tag zero (as a natural consequence of the squeezed ;; representation) and the squished argument will have ;; squish tag zero only when it is a pointer and not a ;; fixnum so there can't be a mixup. (c:== (c:type-set-cast t1 w2) t2)) (if (member? (squeezed-member w1) w2) ;; The two type sets share only nonfictitious members. This ;; makes sure that the two arguments have squish tags prior ;; to comparison. (c:== (squish t1 (squeezed-member w1) w2) t2) ;; The two type sets don't share any members. (fuck-up)))) (else (cond ((every (lambda (u) (or (char-type? u) (fictitious? u))) us) ;; In the case where the only possible match is for ;; nonfictitious variants it is not necessary to check for ;; matches along fictitious variants. (c:&& (c:== (c:tag t2 w2) (c:type-tag (squeezed-member w1))) (c:== t1 (c:value t2 (squeezed-member w1) w2)))) ((some (lambda (u) (or (char-type? u) (fictitious? u))) us) (c:boolean-or (c:== t1 (c:tag->squeezed-cast t2 w2 w1)) (c:&& (c:== (c:tag t2 w2) (c:type-tag (squeezed-member w1))) (c:== t1 (c:value t2 (squeezed-member w1) w2))))) ;; In the case where the only possible match is for fictitious ;; variants it is not necessary to check for matches along ;; nonfictitious variants. (else (c:== t1 (c:tag->squeezed-cast t2 w2 w1)))))))) ((squished? w1) ;; Rectangulars, immediate closures, nonfictitious immediate ;; structures, nondegenerate nonheaded vectors, and nondegenerate ;; displaced vectors can't be squished so there is no need to handle ;; == on structs. (compile-test r (cond ((fake? w2) (c:== t1 (c:type-set-cast (c:type-tag (the-member w2)) w1))) ((monomorphic? w2) (c:== t1 (squish t2 (the-member w2) w1))) ((tag-only? w2) (c:== t1 (c:type-set-cast (c:tag t2 w2) w1))) ((squeezed? w2) (if (can-be? (lambda (u2) (and (or (char-type? u2) (fictitious? u2)) (member? u2 w1))) w2) (if (member? (squeezed-member w2) w1) ;; The two type sets share both fictitious and nonfictitious ;; members. (if (zero? (squish-tag (squeezed-member w2) w1)) ;; In this case the matching nonfictitious members have ;; squish tag zero so checking for matching fictitious ;; and nonfictitious members can be done with a single ;; comparison. (c:== t1 (c:type-set-cast t2 w1)) ;; In the general case need to check for matching ;; fictitious and nonfictitious members. (c:boolean-or ;; This checks for matching fictitious members. (c:== t1 (c:type-set-cast t2 w1)) ;; This checks for matching nonfictitious members. (c:== t1 (squish t2 (squeezed-member w2) w1)))) ;; The two type sets share only fictitious members. ;; Note that the squeezed argument will always have squish ;; tag zero (as a natural consequence of the squeezed ;; representation) and the squished argument will have ;; squish tag zero only when it is a pointer and not a ;; fixnum so there can't be a mixup. (c:== t1 (c:type-set-cast t2 w1))) (if (member? (squeezed-member w2) w1) ;; The two type sets share only nonfictitious members. This ;; makes sure that the two arguments have squish tags prior ;; to comparison. (c:== t1 (squish t2 (squeezed-member w2) w1)) ;; The two type sets don't share any members. (fuck-up)))) ((squished? w2) (cond ((and (every (lambda (u) (or (char-type? u) (fictitious? u) (= (squish-tag u w1) (squish-tag u w2)))) us) (= (squish-alignment w1) (squish-alignment w2))) (c:== t1 t2)) ((and (must-be? (lambda (u1) (or (char-type? u1) (fictitious? u1) (member? u1 w2))) w1) (must-be? (lambda (u2) (or (char-type? u2) (fictitious? u2) (member? u2 w1))) w2)) (c:== t1 t2)) ((some (lambda (u) (or (char-type? u) (fictitious? u))) us) (apply c:boolean-or (cons (if (and (can-be? (lambda (u1) (and (not (char-type? u1)) (not (fictitious? u1)) (zero? (squish-tag u1 w1)))) w1) (can-be? (lambda (u2) (and (not (char-type? u2)) (not (fictitious? u2)) (zero? (squish-tag u2 w2)))) w2)) (c:&& (c:==0 (extract-squish-tag t1 w1)) (c:< t1 (c:value-offset)) (c:== t1 t2)) (c:&& (c:==0 (extract-squish-tag t1 w1)) (c:== t1 t2))) (map (lambda (u) (if (= (squish-tag u w1) (squish-tag u w2)) (c:&& (c:== (extract-squish-tag t1 w1) (c:fixnum (squish-tag u w1))) (c:== t1 t2)) (c:&& (c:== (extract-squish-tag t1 w1) (c:fixnum (squish-tag u w1))) (c:== (extract-squish-tag t2 w2) (c:fixnum (squish-tag u w2))) (c:== (c:value t1 u w1) (c:value t2 u w2))))) (remove-if (lambda (u) (or (char-type? u) (fictitious? u))) us))))) (else (apply c:boolean-or (map (lambda (u) (if (= (squish-tag u w1) (squish-tag u w2)) (c:&& (c:== (extract-squish-tag t1 w1) (c:fixnum (squish-tag u w1))) (c:== t1 t2)) (c:&& (c:== (extract-squish-tag t1 w1) (c:fixnum (squish-tag u w1))) (c:== (extract-squish-tag t2 w2) (c:fixnum (squish-tag u w2))) (c:== (c:value t1 u w1) (c:value t2 u w2))))) us))))) (else (apply c:boolean-or (cons (c:== t1 (c:type-set-cast (c:tag t2 w2) w1)) (map (lambda (u) (c:&& (c:== (c:type-tag u) (c:tag t2 w2)) (c:== (c:value t1 u w1) (c:value t2 u w2)))) (remove-if (lambda (u) (or (char-type? u) (fictitious? u))) us)))))))) (else (cond ((fake? w2) (compile-test r (c:== (c:tag t1 w1) (c:type-tag (the-member w2))))) ((monomorphic? w2) (compile-test r (if (char-type? (the-member w2)) (c:== (c:value t1 (the-member w2) w1) (c:value t2 (the-member w2) w2)) (c:&& (c:== (c:tag t1 w1) (c:type-tag (the-member w2))) (c:==struct (c:value t1 (the-member w2) w1) (c:value t2 (the-member w2) w2) (the-member w2)))))) ((tag-only? w2) (compile-test r (c:== (c:tag t1 w1) (c:tag t2 w2)))) ((squeezed? w2) ;; Rectangulars, immediate closures, nonfictitious immediate ;; structures, nondegenerate nonheaded vectors, and nondegenerate ;; displaced vectors can't be squeezed so there is no need to handle ;; == on structs. (compile-test r (cond ((every (lambda (u) (or (char-type? u) (fictitious? u))) us) ;; In the case where the only possible match is for nonfictitious ;; variants it is not necessary to check for matches along ;; fictitious variants. (c:&& (c:== (c:tag t1 w1) (c:type-tag (squeezed-member w2))) (c:== (c:value t1 (squeezed-member w2) w1) t2))) ((some (lambda (u) (or (char-type? u) (fictitious? u))) us) (c:boolean-or (c:== (c:tag->squeezed-cast t1 w1 w2) t2) (c:&& (c:== (c:tag t1 w1) (c:type-tag (squeezed-member w2))) (c:== (c:value t1 (squeezed-member w2) w1) t2)))) ;; In the case where the only possible match is for fictitious ;; variants it is not necessary to check for matches along ;; nonfictitious variants. (else (c:== (c:tag->squeezed-cast t1 w1 w2) t2))))) ((squished? w2) ;; Rectangulars, immediate closures, nonfictitious immediate ;; structures, nondegenerate nonheaded vectors, and nondegenerate ;; displaced vectors can't be squished so there is no need to handle ;; == on structs. (compile-test r (apply c:boolean-or (cons (c:== (c:type-set-cast (c:tag t1 w1) w2) t2) (map (lambda (u) (c:&& (c:== (c:tag t1 w1) (c:type-tag u)) (c:== (c:value t1 u w1) (c:value t2 u w2)))) (remove-if (lambda (u) (or (char-type? u) (fictitious? u))) us)))))) (else (if (every (lambda (u) (or (char-type? u) (fictitious? u))) us) ;; In the case where the only possible match is for fictitious ;; variants it is not necessary to check for matches along ;; nonfictitious variants. (compile-test r (c:== (c:tag t1 w1) (c:tag t2 w2))) (if (and *eq?-forgery?* (= (type-set-size w1) (type-set-size w2))) (let* ((size (reduce max (map type-size (members-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) w1)) ;; This can't happen if the type set isn't ;; fictitious, monomorphic, or tag only. #f)) (fixnum-size (quotient size *fixnum-size*)) (char-size (remainder size *fixnum-size*))) ;; conventions: SIZE FIXNUM-SIZE CHAR-SIZE (compile-test r (apply c:&& (cons (c:== (c:tag t1 w1) (c:tag t2 w2)) (append (map-n (lambda (i) (c:== (c:raw-subscript (c:fixnum*-cast (c:& (c:. t1 "value"))) (c:fixnum i)) (c:raw-subscript (c:fixnum*-cast (c:& (c:. t2 "value"))) (c:fixnum i)))) fixnum-size) (map-n (lambda (i) (c:== (c:raw-subscript (c:char*-cast (c:& (c:. t1 "value"))) (c:fixnum (+ (* fixnum-size *fixnum-size*) i))) (c:raw-subscript (c:char*-cast (c:& (c:. t2 "value"))) (c:fixnum (+ (* fixnum-size *fixnum-size*) i))))) char-size)))))) (newline-between (c:/**/ "EQ: dispatching general to general") (c:if (c:== (c:tag t1 w1) (c:tag t2 w2)) (nonerror-type-switch (lambda (u1) (and (not (char-type? u1)) (not (fictitious? u1)))) w1 r t1 (lambda (u1) (if (member? u1 w2) (compile-test r (c:==struct (c:value t1 u1 w1) (c:value t2 u1 w2) u1)) (return-false r))) (lambda (p?) (return-true r))) (return-false r) #f))))))))))) (define-primitive-procedure null? one-argument-compatible? (one-argument-truly-compatible? type?) (list null-type?) (list (lambda (u) (not (null-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? null-type? w1) (can-be-non? null-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! null-type?))) #f (compile-type-predicate null-type?)) (define-primitive-procedure symbol? one-argument-compatible? (one-argument-truly-compatible? type?) (list symbol-type?) (list (lambda (u) (not (symbol-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? symbol-type? w1) (can-be-non? symbol-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! symbol-type?))) #f (compile-type-predicate symbol-type?)) (define-primitive-procedure symbol->string one-argument-compatible? (one-argument-truly-compatible? symbol-type?) (list symbol-type?) (list symbol-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (let ((w (result-type-set r))) (type-switch symbol-type? w1 r t1 (lambda (u1) (cond ((internal-symbol-type? u1) (widen r (c:string (symbol->string (internal-symbol-type-name u1))) string-type?)) ((external-symbol-type? u1) (widen r (c:value t1 u1 w1) string-type?)) (else (fuck-up)))) (lambda (p?) (compile-error "symbol_string" y p?))))) (define-primitive-procedure string->uninterned-symbol one-argument-compatible? (one-argument-truly-compatible? string-type?) (list string-type?) (list string-type?) (one-argument-propagate! (lambda (w1) (for-each-member (lambda (u1) (when (string-type? u1) (propagate-result! ( u1)))) w1))) #f (type-switch string-type? w1 r t1 (lambda (u1) (widen r (c:value t1 u1 w1) (lambda (u) (and (external-symbol-type? u) (eq? (external-symbol-type-displaced-string-type u) u1))))) (lambda (p?) (compile-error "string_to_uninterned_symbol" y p?)))) (define-primitive-procedure number? one-argument-compatible? (one-argument-truly-compatible? type?) (list number-type?) (list (lambda (u) (not (number-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? number-type? w1) (can-be-non? number-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! number-type?))) #f (compile-type-predicate number-type?)) (define-primitive-procedure real? one-argument-compatible? (one-argument-truly-compatible? type?) (list number-type?) (list (lambda (u) (or (not (number-type? u)) (and (not (fixnum-type? u)) (not (flonum-type? u)))))) (one-argument-propagate! (lambda (w1) (when (and (can-be? number-type? w1) (can-be-non? nonrectangular-number-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (when (can-be? number-type? w1) (propagate-result! )) (when (can-be-non? nonrectangular-number-type? w1) (propagate-result! )))) #f (type-switch type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (return-true r)) ((rectangular-type? u1) (compile-test r (c:==0.0 (c:i (c:value t1 u1 w1))))) (else (return-false r)))) (lambda (p?) (fuck-up)))) (define-primitive-procedure integer? one-argument-compatible? (one-argument-truly-compatible? type?) (list number-type?) (list (lambda (u) (or (not (number-type? u)) (not (fixnum-type? u))))) (one-argument-propagate! (lambda (w1) (when (and (can-be? number-type? w1) (can-be-non? fixnum-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (when (can-be? number-type? w1) (propagate-result! )) (when (can-be-non? fixnum-type? w1) (propagate-result! )))) #f (type-switch type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (return-true r)) ((flonum-type? u1) (compile-test r (c:== (c:value t1 u1 w1) (c:rint (c:value t1 u1 w1))))) ((rectangular-type? u1) (compile-test r (c:&& (c:==0.0 (c:i (c:value t1 u1 w1))) (c:== (c:r (c:value t1 u1 w1)) (c:rint (c:r (c:value t1 u1 w1))))))) (else (return-false r)))) (lambda (p?) (fuck-up)))) (define-primitive-procedure exact? one-argument-compatible? (one-argument-truly-compatible? number-type?) (list fixnum-type?) (list (lambda (u) (and (number-type? u) (not (fixnum-type? u))))) (one-argument-propagate! (lambda (w1) (when (can-be? fixnum-type? w1) (propagate-result! )) (when (or (can-be? flonum-type? w1) (can-be? rectangular-type? w1)) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (compile-time-test r (exact-type? u1))) (lambda (p?) (compile-error "exact" y p?)))) (define-primitive-procedure inexact? one-argument-compatible? (one-argument-truly-compatible? number-type?) (list (lambda (u) (and (number-type? u) (not (fixnum-type? u))))) (list fixnum-type?) (one-argument-propagate! (lambda (w1) (when (or (can-be? flonum-type? w1) (can-be? rectangular-type? w1)) (propagate-result! )) (when (can-be? fixnum-type? w1) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (compile-time-test r (inexact-type? u1))) (lambda (p?) (compile-error "inexact" y p?)))) (define-primitive-procedure = two-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (propagate-result! ) (propagate-result! ))) #f (compile-comparison r y ts ws (lambda (c1 c2 u1 u2) (if (rectangular-type? u1) (if (rectangular-type? u2) (c:&& (c:== (c:r c1) (c:r c2)) (c:== (c:i c1) (c:i c2))) (c:&& (c:== (c:r c1) c2) (c:==0.0 (c:i c1)))) (if (rectangular-type? u2) (c:&& (c:== c1 (c:r c2)) (c:==0.0 (c:i c2))) (c:== c1 c2)))) "eql")) (define-primitive-procedure < two-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (propagate-result! ) (propagate-result! ))) #f (compile-comparison r y ts ws (lambda (c1 c2 u1 u2) (c:< c1 c2)) "lt")) (define-primitive-procedure > two-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (propagate-result! ) (propagate-result! ))) #f (compile-comparison r y ts ws (lambda (c1 c2 u1 u2) (c:> c1 c2)) "gt")) (define-primitive-procedure <= two-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (propagate-result! ) (propagate-result! ))) #f (compile-comparison r y ts ws (lambda (c1 c2 u1 u2) (c:<= c1 c2)) "le")) (define-primitive-procedure >= two-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (propagate-result! ) (propagate-result! ))) #f (compile-comparison r y ts ws (lambda (c1 c2 u1 u2) (c:>= c1 c2)) "ge")) (define-primitive-procedure zero? ;; Extension to R4RS: ZERO? can apply to pointers, strings, and ports. one-argument-compatible? (one-argument-truly-compatible? (lambda (u1) (or (number-type? u1) (pointer-type? u1) (string-type? u1) (input-port-type? u1) (output-port-type? u1)))) (list (lambda (u) (or (number-type? u) (pointer-type? u) (string-type? u) (input-port-type? u) (output-port-type? u)))) (list (lambda (u) (or (number-type? u) (pointer-type? u) (string-type? u) (input-port-type? u) (output-port-type? u)))) (one-argument-propagate! (lambda (w1) (propagate-result! ) (propagate-result! ))) #f (type-switch (lambda (u1) (or (number-type? u1) (pointer-type? u1) (string-type? u1) (input-port-type? u1) (output-port-type? u1))) w1 r t1 (lambda (u1) (cond ((or (pointer-type? u1) (string-type? u1) (input-port-type? u1) (output-port-type? u1)) (compile-test r (c:==null (c:value t1 u1 w1)))) ((fixnum-type? u1) (compile-test r (c:==0 (c:value t1 u1 w1)))) ((flonum-type? u1) (compile-test r (c:==0.0 (c:value t1 u1 w1)))) ((rectangular-type? u1) (compile-test r (c:&& (c:==0.0 (c:r (c:value t1 u1 w1))) (c:==0.0 (c:i (c:value t1 u1 w1)))))) (else (fuck-up)))) (lambda (p?) (compile-error "zero" y p?)))) (define-primitive-procedure positive? one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (compile-test r (c:>0 (c:value t1 u1 w1)))) ((flonum-type? u1) (compile-test r (c:>0.0 (c:value t1 u1 w1)))) ((rectangular-type? u1) (newline-between (if *type-checks?* (c:if (c:!=0.0 (c:i (c:value t1 u1 w1))) (compile-error "positive" y #f) (c:noop) #f) (c:noop)) (compile-test r (c:>0.0 (c:r (c:value t1 u1 w1)))))) (else (fuck-up)))) (lambda (p?) (compile-error "positive" y p?)))) (define-primitive-procedure negative? one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (compile-test r (c:<0 (c:value t1 u1 w1)))) ((flonum-type? u1) (compile-test r (c:<0.0 (c:value t1 u1 w1)))) ((rectangular-type? u1) (newline-between (if *type-checks?* (c:if (c:!=0.0 (c:i (c:value t1 u1 w1))) (compile-error "negative" y #f) (c:noop) #f) (c:noop)) (compile-test r (c:<0.0 (c:r (c:value t1 u1 w1)))))) (else (fuck-up)))) (lambda (p?) (compile-error "negative" y p?)))) (define-primitive-procedure max one-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (when (every (lambda (w) (can-be? fixnum-type? w)) ws) (propagate-result! )) (when (and (every (lambda (w) (can-be? nonrectangular-number-type? w)) ws) (some (lambda (w) (can-be? flonum-type? w)) ws)) (propagate-result! )) (when (and (every (lambda (w) (can-be? number-type? w)) ws) (some (lambda (w) (can-be? rectangular-type? w)) ws)) (propagate-result! )))) #f (if (null? (rest ws)) (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (widen r (c:value t1 u1 w1) fixnum-type?)) ((flonum-type? u1) (widen r (c:value t1 u1 w1) flonum-type?)) ;; needs work: To handle rectangular numbers. (else (fuck-up)))) (lambda (p?) (compile-error "max" y p?))) (compile-arithmetic number-type? r y ts ws ;; needs work: To handle rectangular numbers. (lambda (u1 u2) ;; This is a violation of the no-<...>-after-type-propagation principle. (if (and (fixnum-type? u1) (fixnum-type? u2)) )) ;; needs work: To handle rectangular numbers. (lambda (c1 u1 c2 u2) (if (and (fixnum-type? u1) (fixnum-type? u2)) (c:imax c1 c2) (c:rmax c1 c2))) "max"))) (define-primitive-procedure min one-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (when (every (lambda (w) (can-be? fixnum-type? w)) ws) (propagate-result! )) (when (and (every (lambda (w) (can-be? nonrectangular-number-type? w)) ws) (some (lambda (w) (can-be? flonum-type? w)) ws)) (propagate-result! )) (when (and (every (lambda (w) (can-be? number-type? w)) ws) (some (lambda (w) (can-be? rectangular-type? w)) ws)) (propagate-result! )))) #f (if (null? (rest ws)) (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (widen r (c:value t1 u1 w1) fixnum-type?)) ((flonum-type? u1) (widen r (c:value t1 u1 w1) flonum-type?)) ;; needs work: To handle rectangular numbers. (else (fuck-up)))) (lambda (p?) (compile-error "min" y p?))) (compile-arithmetic number-type? r y ts ws ;; needs work: To handle rectangular numbers. (lambda (u1 u2) ;; This is a violation of the no-<...>-after-type-propagation principle. (if (and (fixnum-type? u1) (fixnum-type? u2)) )) ;; needs work: To handle rectangular numbers. (lambda (c1 u1 c2 u2) (if (and (fixnum-type? u1) (fixnum-type? u2)) (c:imin c1 c2) (c:rmin c1 c2))) "min"))) (define-primitive-procedure + zero-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (cond ((null? ws) (propagate-result! )) (else (when (every (lambda (w) (can-be? fixnum-type? w)) ws) (propagate-result! )) (when (and (every (lambda (w) (can-be? nonrectangular-number-type? w)) ws) (some (lambda (w) (can-be? flonum-type? w)) ws)) (propagate-result! )) (when (and (every (lambda (w) (can-be? number-type? w)) ws) (some (lambda (w) (can-be? rectangular-type? w)) ws)) (propagate-result! )))))) #f (cond ((null? ws) (widen r (c:0) fixnum-type?)) ((null? (rest ws)) (type-switch number-type? w1 r t1 (lambda (u1) (widen-type r (c:value t1 u1 w1) u1)) (lambda (p?) (compile-error "plus" y p?)))) (else (compile-arithmetic number-type? r y ts ws (lambda (u1 u2) ;; This is a violation of the no-<...>-after-type-propagation principle. (cond ((and (fixnum-type? u1) (fixnum-type? u2)) ) ((or (rectangular-type? u1) (rectangular-type? u2)) ) (else ))) (lambda (c1 u1 c2 u2) (cond ((and (fixnum-type? u1) (fixnum-type? u2)) (when *overflow-checks?* (unimplemented y "Safe exact arithmetic is not (yet) implemented")) (c:+ c1 c2)) ((rectangular-type? u1) (if (rectangular-type? u2) (c:pluscc c1 c2) (c:pluscr c1 c2))) ((rectangular-type? u2) (c:plusrc c1 c2)) (else (c:+ c1 c2)))) "plus")))) (define-primitive-procedure * zero-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (cond ((null? ws) (propagate-result! )) (else (when (every (lambda (w) (can-be? fixnum-type? w)) ws) (propagate-result! )) (when (and (every (lambda (w) (can-be? nonrectangular-number-type? w)) ws) (some (lambda (w) (can-be? flonum-type? w)) ws)) (propagate-result! )) (when (and (every (lambda (w) (can-be? number-type? w)) ws) (some (lambda (w) (can-be? rectangular-type? w)) ws)) (propagate-result! )))))) #f (cond ((null? ws) (widen r (c:1) fixnum-type?)) ((null? (rest ws)) (type-switch number-type? w1 r t1 (lambda (u1) (widen-type r (c:value t1 u1 w1) u1)) (lambda (p?) (compile-error "times" y p?)))) (else (compile-arithmetic number-type? r y ts ws (lambda (u1 u2) ;; This is a violation of the no-<...>-after-type-propagation principle. (cond ((and (fixnum-type? u1) (fixnum-type? u2)) ) ((or (rectangular-type? u1) (rectangular-type? u2)) ) (else ))) (lambda (c1 u1 c2 u2) (cond ((and (fixnum-type? u1) (fixnum-type? u2)) (when *overflow-checks?* (unimplemented y "Safe exact arithmetic is not (yet) implemented")) (c:* c1 c2)) ((rectangular-type? u1) (if (rectangular-type? u2) (c:timescc c1 c2) (c:timescr c1 c2))) ((rectangular-type? u2) (c:timesrc c1 c2)) (else (c:* c1 c2)))) "times")))) (define-primitive-procedure - one-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (when (every (lambda (w) (can-be? fixnum-type? w)) ws) (propagate-result! )) (when (and (every (lambda (w) (can-be? nonrectangular-number-type? w)) ws) (some (lambda (w) (can-be? flonum-type? w)) ws)) (propagate-result! )) (when (and (every (lambda (w) (can-be? number-type? w)) ws) (some (lambda (w) (can-be? rectangular-type? w)) ws)) (propagate-result! )))) #f (if (null? (rest ws)) (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (when *overflow-checks?* (unimplemented y "Safe exact arithmetic is not (yet) implemented")) (widen r (c:- (c:value t1 u1 w1)) fixnum-type?)) ((flonum-type? u1) (widen r (c:- (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (widen r (c:negc (c:value t1 u1 w1)) rectangular-type?)) (else (fuck-up)))) (lambda (p?) (compile-error "minus" y p?))) (compile-arithmetic number-type? r y ts ws (lambda (u1 u2) ;; This is a violation of the no-<...>-after-type-propagation principle. (cond ((and (fixnum-type? u1) (fixnum-type? u2)) ) ((or (rectangular-type? u1) (rectangular-type? u2)) ) (else ))) (lambda (c1 u1 c2 u2) (cond ((and (fixnum-type? u1) (fixnum-type? u2)) (when *overflow-checks?* (unimplemented y "Safe exact arithmetic is not (yet) implemented")) (c:- c1 c2)) ((rectangular-type? u1) (if (rectangular-type? u2) (c:minuscc c1 c2) (c:minuscr c1 c2))) ((rectangular-type? u2) (c:minusrc c1 c2)) (else (c:- c1 c2)))) "minus"))) (define-primitive-procedure / ;; note: / will always produce a flonum result, even if given fixnum arguments ;; that could produce a fixnum result. This is allowed by R4RS since ;; / is not included in the table on the top of page 20, the table that ;; specifies which procedures must return exact results when given ;; exact arguments. If we did allow / to return a fixnum then it would ;; have to return a union of a fixnum and a flonum since whether or not ;; a fixnum could be returned would depend on whether or not the ;; denominator divides the numerator. This is beyond the scope of the ;; type system. It is preferable not to have a union type and not to ;; require run-time divisability checks. one-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (when (every (lambda (w) (can-be? nonrectangular-number-type? w)) ws) (propagate-result! )) (when (and (every (lambda (w) (can-be? number-type? w)) ws) (some (lambda (w) (can-be? rectangular-type? w)) ws)) (propagate-result! )))) #f (if (null? (rest ws)) (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (widen r (c:/ (c:1.0) (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (widen r (c:recipc (c:value t1 u1 w1)) rectangular-type?)) (else (fuck-up)))) (lambda (p?) (compile-error "divide" y p?))) (compile-arithmetic number-type? r y ts ws (lambda (u1 u2) (if (or (rectangular-type? u1) (rectangular-type? u2)) ;; This is a violation of the no-<...>-after-type-propagation ;; principle. )) (lambda (c1 u1 c2 u2) (cond ((and (fixnum-type? u1) (fixnum-type? u2)) (c:/ (c:flonum-cast c1) (c:flonum-cast c2))) ((rectangular-type? u1) (if (rectangular-type? u2) (c:dividecc c1 c2) (c:dividecr c1 c2))) ((rectangular-type? u2) (c:dividerc c1 c2)) (else (c:/ c1 c2)))) "divide"))) (define-primitive-procedure quotient ;; needs work: To handle +inf, -inf, and NaN arguments. ;; needs work: To check for division by zero. two-arguments-compatible? (two-arguments-truly-compatible? number-type? number-type?) (list number-type? number-type?) (list number-type? number-type?) (two-arguments-propagate! (lambda (w1 w2) (when (and (can-be? fixnum-type? w1) (can-be? fixnum-type? w2)) (propagate-result! )) (when (or (and (or (can-be? flonum-type? w1) (can-be? rectangular-type? w1)) (can-be? number-type? w2)) (and (can-be? number-type? w1) (or (can-be? flonum-type? w2) (can-be? rectangular-type? w2)))) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (type-switch number-type? w2 r t2 (lambda (u2) (newline-between (if *type-checks?* (newline-between (cond ((flonum-type? u1) (c:if (c:!= (c:value t1 u1 w1) (c:rint (c:value t1 u1 w1))) (compile-error "quotient1" y #f) (c:noop) #f)) ((rectangular-type? u1) (c:if (c:boolean-or (c:!=0.0 (c:i (c:value t1 u1 w1))) (c:!= (c:r (c:value t1 u1 w1)) (c:rint (c:r (c:value t1 u1 w1))))) (compile-error "quotient1" y #f) (c:noop) #f)) (else (c:noop))) (cond ((flonum-type? u2) (c:if (c:!= (c:value t2 u2 w2) (c:rint (c:value t2 u2 w2))) (compile-error "quotient2" y #f) (c:noop) #f)) ((rectangular-type? u2) (c:if (c:boolean-or (c:!=0.0 (c:i (c:value t2 u2 w2))) (c:!= (c:r (c:value t2 u2 w2)) (c:rint (c:r (c:value t2 u2 w2))))) (compile-error "quotient2" y #f) (c:noop) #f)) (else (c:noop)))) (c:noop)) (widen r (c:/ (cond ((fixnum-type? u1) (c:value t1 u1 w1)) ((flonum-type? u1) (c:fixnum-cast (c:value t1 u1 w1))) ((rectangular-type? u1) (c:fixnum-cast (c:r (c:value t1 u1 w1)))) (else (fuck-up))) (cond ((fixnum-type? u2) (c:value t2 u2 w2)) ((flonum-type? u2) (c:fixnum-cast (c:value t2 u2 w2))) ((rectangular-type? u2) (c:fixnum-cast (c:r (c:value t2 u2 w2)))) (else (fuck-up)))) (if (and (fixnum-type? u1) (fixnum-type? u2)) fixnum-type? flonum-type?)))) (lambda (p?) (compile-error "quotient2" y p?)))) (lambda (p?) (compile-error "quotient1" y p?)))) (define-primitive-procedure remainder ;; needs work: To handle +inf, -inf, and NaN arguments. ;; needs work: To check for division by zero. two-arguments-compatible? (two-arguments-truly-compatible? number-type? number-type?) (list number-type? number-type?) (list number-type? number-type?) (two-arguments-propagate! (lambda (w1 w2) (when (and (can-be? fixnum-type? w1) (can-be? fixnum-type? w2)) (propagate-result! )) (when (or (and (or (can-be? flonum-type? w1) (can-be? rectangular-type? w1)) (can-be? number-type? w2)) (and (can-be? number-type? w1) (or (can-be? flonum-type? w2) (can-be? rectangular-type? w2)))) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (type-switch number-type? w2 r t2 (lambda (u2) (newline-between (if *type-checks?* (newline-between (cond ((flonum-type? u1) (c:if (c:!= (c:value t1 u1 w1) (c:rint (c:value t1 u1 w1))) (compile-error "remainder1" y #f) (c:noop) #f)) ((rectangular-type? u1) (c:if (c:boolean-or (c:!=0.0 (c:i (c:value t1 u1 w1))) (c:!= (c:r (c:value t1 u1 w1)) (c:rint (c:r (c:value t1 u1 w1))))) (compile-error "remainder1" y #f) (c:noop) #f)) (else (c:noop))) (cond ((flonum-type? u2) (c:if (c:!= (c:value t2 u2 w2) (c:rint (c:value t2 u2 w2))) (compile-error "remainder2" y #f) (c:noop) #f)) ((rectangular-type? u2) (c:if (c:boolean-or (c:!=0.0 (c:i (c:value t2 u2 w2))) (c:!= (c:r (c:value t2 u2 w2)) (c:rint (c:r (c:value t2 u2 w2))))) (compile-error "remainder2" y #f) (c:noop) #f)) (else (c:noop)))) (c:noop)) (widen r (c:% (cond ((fixnum-type? u1) (c:value t1 u1 w1)) ((flonum-type? u1) (c:fixnum-cast (c:value t1 u1 w1))) ((rectangular-type? u1) (c:fixnum-cast (c:r (c:value t1 u1 w1)))) (else (fuck-up))) (cond ((fixnum-type? u2) (c:value t2 u2 w2)) ((flonum-type? u2) (c:fixnum-cast (c:value t2 u2 w2))) ((rectangular-type? u2) (c:fixnum-cast (c:r (c:value t2 u2 w2)))) (else (fuck-up)))) (if (and (fixnum-type? u1) (fixnum-type? u2)) fixnum-type? flonum-type?)))) (lambda (p?) (compile-error "remainder2" y p?)))) (lambda (p?) (compile-error "remainder1" y p?)))) (define-primitive-procedure << ;; needs work: To handle +inf, -inf, and NaN arguments. ;; needs work: To check for overflow. two-arguments-compatible? (two-arguments-truly-compatible? number-type? number-type?) (list number-type? number-type?) (list number-type? number-type?) (two-arguments-propagate! (lambda (w1 w2) (when (and (can-be? fixnum-type? w1) (can-be? fixnum-type? w2)) (propagate-result! )) (when (or (and (or (can-be? flonum-type? w1) (can-be? rectangular-type? w1)) (can-be? number-type? w2)) (and (can-be? number-type? w1) (or (can-be? flonum-type? w2) (can-be? rectangular-type? w2)))) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (type-switch number-type? w2 r t2 (lambda (u2) (newline-between (if *type-checks?* (newline-between (cond ((flonum-type? u1) (c:if (c:!= (c:value t1 u1 w1) (c:rint (c:value t1 u1 w1))) (compile-error "lsh1" y #f) (c:noop) #f)) ((rectangular-type? u1) (c:if (c:boolean-or (c:!=0.0 (c:i (c:value t1 u1 w1))) (c:!= (c:r (c:value t1 u1 w1)) (c:rint (c:r (c:value t1 u1 w1))))) (compile-error "lsh1" y #f) (c:noop) #f)) (else (c:noop))) (cond ((flonum-type? u2) (c:if (c:!= (c:value t2 u2 w2) (c:rint (c:value t2 u2 w2))) (compile-error "lsh2" y #f) (c:noop) #f)) ((rectangular-type? u2) (c:if (c:boolean-or (c:!=0.0 (c:i (c:value t2 u2 w2))) (c:!= (c:r (c:value t2 u2 w2)) (c:rint (c:r (c:value t2 u2 w2))))) (compile-error "lsh2" y #f) (c:noop) #f)) (else (c:noop)))) (c:noop)) (widen r (c:<< (cond ((fixnum-type? u1) (c:value t1 u1 w1)) ((flonum-type? u1) (c:fixnum-cast (c:value t1 u1 w1))) ((rectangular-type? u1) (c:fixnum-cast (c:r (c:value t1 u1 w1)))) (else (fuck-up))) (cond ((fixnum-type? u2) (c:value t2 u2 w2)) ((flonum-type? u2) (c:fixnum-cast (c:value t2 u2 w2))) ((rectangular-type? u2) (c:fixnum-cast (c:r (c:value t2 u2 w2)))) (else (fuck-up)))) (if (and (fixnum-type? u1) (fixnum-type? u2)) fixnum-type? flonum-type?)))) (lambda (p?) (compile-error "lsh2" y p?)))) (lambda (p?) (compile-error "lsh1" y p?)))) (define-primitive-procedure >> ;; needs work: To handle +inf, -inf, and NaN arguments. two-arguments-compatible? (two-arguments-truly-compatible? number-type? number-type?) (list number-type? number-type?) (list number-type? number-type?) (two-arguments-propagate! (lambda (w1 w2) (when (and (can-be? fixnum-type? w1) (can-be? fixnum-type? w2)) (propagate-result! )) (when (or (and (or (can-be? flonum-type? w1) (can-be? rectangular-type? w1)) (can-be? number-type? w2)) (and (can-be? number-type? w1) (or (can-be? flonum-type? w2) (can-be? rectangular-type? w2)))) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (type-switch number-type? w2 r t2 (lambda (u2) (newline-between (if *type-checks?* (newline-between (cond ((flonum-type? u1) (c:if (c:!= (c:value t1 u1 w1) (c:rint (c:value t1 u1 w1))) (compile-error "rsh1" y #f) (c:noop) #f)) ((rectangular-type? u1) (c:if (c:boolean-or (c:!=0.0 (c:i (c:value t1 u1 w1))) (c:!= (c:r (c:value t1 u1 w1)) (c:rint (c:r (c:value t1 u1 w1))))) (compile-error "rsh1" y #f) (c:noop) #f)) (else (c:noop))) (cond ((flonum-type? u2) (c:if (c:!= (c:value t2 u2 w2) (c:rint (c:value t2 u2 w2))) (compile-error "rsh2" y #f) (c:noop) #f)) ((rectangular-type? u2) (c:if (c:boolean-or (c:!=0.0 (c:i (c:value t2 u2 w2))) (c:!= (c:r (c:value t2 u2 w2)) (c:rint (c:r (c:value t2 u2 w2))))) (compile-error "rsh2" y #f) (c:noop) #f)) (else (c:noop)))) (c:noop)) (widen r (c:>> (cond ((fixnum-type? u1) (c:value t1 u1 w1)) ((flonum-type? u1) (c:fixnum-cast (c:value t1 u1 w1))) ((rectangular-type? u1) (c:fixnum-cast (c:r (c:value t1 u1 w1)))) (else (fuck-up))) (cond ((fixnum-type? u2) (c:value t2 u2 w2)) ((flonum-type? u2) (c:fixnum-cast (c:value t2 u2 w2))) ((rectangular-type? u2) (c:fixnum-cast (c:r (c:value t2 u2 w2)))) (else (fuck-up)))) (if (and (fixnum-type? u1) (fixnum-type? u2)) fixnum-type? flonum-type?)))) (lambda (p?) (compile-error "rsh2" y p?)))) (lambda (p?) (compile-error "rsh1" y p?)))) (define-primitive-procedure bitwise-not ;; needs work: To handle inexact numbers. one-argument-compatible? (one-argument-truly-compatible? fixnum-type?) (list fixnum-type?) (list fixnum-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch fixnum-type? w1 r t1 (lambda (u1) (widen r (c:~ (c:value t1 u1 w1)) fixnum-type?)) (lambda (p?) (compile-error "bitwise_not" y p?)))) (define-primitive-procedure bitwise-and ;; needs work: To handle inexact numbers. zero-or-more-arguments-compatible? (all-arguments-truly-compatible? fixnum-type?) (map-n (lambda (i) fixnum-type?) n) (map-n (lambda (i) fixnum-type?) n) (all-arguments-propagate! (lambda (ws) (propagate-result! ))) #f (cond ((null? ws) (widen r (c:~ (c:0)) fixnum-type?)) ((null? (rest ws)) (type-switch fixnum-type? w1 r t1 (lambda (u1) (widen r (c:value t1 u1 w1) fixnum-type?)) (lambda (p?) (compile-error "bitwise_and" y p?)))) (else (compile-arithmetic fixnum-type? r y ts ws ;; This is a violation of the no-<...>-after-type-propagation ;; principle. (lambda (u1 u2) ) (lambda (c1 u1 c2 u2) (c:& c1 c2)) "bitwise_and")))) (define-primitive-procedure bitwise-or ;; needs work: To handle inexact numbers. zero-or-more-arguments-compatible? (all-arguments-truly-compatible? fixnum-type?) (map-n (lambda (i) fixnum-type?) n) (map-n (lambda (i) fixnum-type?) n) (all-arguments-propagate! (lambda (ws) (propagate-result! ))) #f (cond ((null? ws) (widen r (c:0) fixnum-type?)) ((null? (rest ws)) (type-switch fixnum-type? w1 r t1 (lambda (u1) (widen r (c:value t1 u1 w1) fixnum-type?)) (lambda (p?) (compile-error "bitwise_or" y p?)))) (else (compile-arithmetic fixnum-type? r y ts ws ;; This is a violation of the no-<...>-after-type-propagation ;; principle. (lambda (u1 u2) ) (lambda (c1 u1 c2 u2) (c:bitwise-or c1 c2)) "bitwise_or")))) (define-primitive-procedure bitwise-xor ;; needs work: To handle inexact numbers. zero-or-more-arguments-compatible? (all-arguments-truly-compatible? fixnum-type?) (map-n (lambda (i) fixnum-type?) n) (map-n (lambda (i) fixnum-type?) n) (all-arguments-propagate! (lambda (ws) (propagate-result! ))) #f (cond ((null? ws) (widen r (c:0) fixnum-type?)) ((null? (rest ws)) (type-switch fixnum-type? w1 r t1 (lambda (u1) (widen r (c:value t1 u1 w1) fixnum-type?)) (lambda (p?) (compile-error "bitwise_xor" y p?)))) (else (compile-arithmetic fixnum-type? r y ts ws ;; This is a violation of the no-<...>-after-type-propagation ;; principle. (lambda (u1 u2) ) (lambda (c1 u1 c2 u2) (c:^ c1 c2)) "bitwise_xor")))) (define-primitive-procedure floor ;; needs work: To handle +inf, -inf, and NaN arguments. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (when (can-be? fixnum-type? w1) (propagate-result! )) (when (or (can-be? flonum-type? w1) (can-be? rectangular-type? w1)) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (widen r (c:value t1 u1 w1) fixnum-type?)) ((flonum-type? u1) (widen r (c:floor (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (newline-between (if *type-checks?* (c:if (c:!=0.0 (c:i (c:value t1 u1 w1))) (compile-error "floor" y #f) (c:noop) #f) (c:noop)) (widen r (c:floor (c:r (c:value t1 u1 w1))) flonum-type?))) (else (fuck-up)))) (lambda (p?) (compile-error "floor" y p?)))) (define-primitive-procedure ceiling ;; needs work: To handle +inf, -inf, and NaN arguments. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (when (can-be? fixnum-type? w1) (propagate-result! )) (when (or (can-be? flonum-type? w1) (can-be? rectangular-type? w1)) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (widen r (c:value t1 u1 w1) fixnum-type?)) ((flonum-type? u1) (widen r (c:ceil (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (newline-between (if *type-checks?* (c:if (c:!=0.0 (c:i (c:value t1 u1 w1))) (compile-error "ceiling" y #f) (c:noop) #f) (c:noop)) (widen r (c:ceil (c:r (c:value t1 u1 w1))) flonum-type?))) (else (fuck-up)))) (lambda (p?) (compile-error "ceiling" y p?)))) (define-primitive-procedure truncate ;; needs work: To handle +inf, -inf, and NaN arguments. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (when (can-be? fixnum-type? w1) (propagate-result! )) (when (or (can-be? flonum-type? w1) (can-be? rectangular-type? w1)) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (widen r (c:value t1 u1 w1) fixnum-type?)) ((flonum-type? u1) (widen r (c:?: (c:<0.0 (c:value t1 u1 w1)) (c:ceil (c:value t1 u1 w1)) (c:floor (c:value t1 u1 w1))) flonum-type?)) ((rectangular-type? u1) (newline-between (if *type-checks?* (c:if (c:!=0.0 (c:i (c:value t1 u1 w1))) (compile-error "truncate" y #f) (c:noop) #f) (c:noop)) (widen r (c:?: (c:<0.0 (c:r (c:value t1 u1 w1))) (c:ceil (c:r (c:value t1 u1 w1))) (c:floor (c:r (c:value t1 u1 w1)))) flonum-type?))) (else (fuck-up)))) (lambda (p?) (compile-error "truncate" y p?)))) (define-primitive-procedure round ;; needs work: To handle +inf, -inf, and NaN arguments. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (when (can-be? fixnum-type? w1) (propagate-result! )) (when (or (can-be? flonum-type? w1) (can-be? rectangular-type? w1)) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (widen r (c:value t1 u1 w1) fixnum-type?)) ((flonum-type? u1) (widen r (c:rint (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (newline-between (if *type-checks?* (c:if (c:!=0.0 (c:i (c:value t1 u1 w1))) (compile-error "round" y #f) (c:noop) #f) (c:noop)) (widen r (c:rint (c:r (c:value t1 u1 w1))) flonum-type?))) (else (fuck-up)))) (lambda (p?) (compile-error "round" y p?)))) (define-primitive-procedure exp ;; needs work: To handle +inf, -inf, and NaN arguments. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (widen r (c:exp (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (unimplemented y "EXP on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "exp" y p?)))) (define-primitive-procedure log ;; needs work: To handle negative, zero, +inf, and NaN arguments. ;; needs work: If this were implemented properly and supported rectangular ;; results we would have two choices: either always return a ;; rectangular result or return a union of a rectangular and a ;; flonum. The former is undesirable since that would cause ;; rectangular pollution. The later is undesirable since that ;; would cause union type pollution and require run-time checking ;; of whether the argument is negative. There is no way with the ;; current type system to force the result of LOG to be a monotype ;; flonum. Thus we currently violate R4RS in this regard. ;; note: Since LOG is not included in the table on the top of page 20 of R4RS ;; it can return inexact results even when given exact arguments that ;; could otherwise yield an exact result. This licenses never returning ;; a fixnum. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (widen r (c:log (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (unimplemented y "LOG on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "log" y p?)))) (define-primitive-procedure sin ;; needs work: To handle +inf, -inf, and NaN arguments. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (widen r (c:sin (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (unimplemented y "SIN on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "sin" y p?)))) (define-primitive-procedure cos ;; needs work: To handle +inf, -inf, and NaN arguments. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (widen r (c:cos (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (unimplemented y "COS on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "cos" y p?)))) (define-primitive-procedure tan ;; needs work: To handle +inf, -inf, and NaN arguments. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (widen r (c:tan (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (unimplemented y "TAN on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "tan" y p?)))) (define-primitive-procedure asin ;; needs work: To handle >1, <-1, and NaN arguments. ;; needs work: If this were implemented properly and supported rectangular ;; results we would have two choices: either always return a ;; rectangular result or return a union of a rectangular and a ;; flonum. The former is undesirable since that would cause ;; rectangular pollution. The later is undesirable since that ;; would cause union type pollution and require run-time checking ;; of whether the argument is <-1 or >1. There is no way with the ;; current type system to force the result of ASIN to be a ;; monotype flonum. Thus we currently violate R4RS in this regard. ;; note: Since ASIN is not included in the table on the top of page 20 of R4RS ;; it can return inexact results even when given exact arguments that ;; could otherwise yield an exact result. This licenses never returning ;; a fixnum. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (widen r (c:asin (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (unimplemented y "ASIN on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "asin" y p?)))) (define-primitive-procedure acos ;; needs work: To handle >1, <-1, and NaN arguments. ;; needs work: If this were implemented properly and supported rectangular ;; results we would have two choices: either always return a ;; rectangular result or return a union of a rectangular and a ;; flonum. The former is undesirable since that would cause ;; rectangular pollution. The later is undesirable since that ;; would cause union type pollution and require run-time checking ;; of whether the argument is <-1 or >1. There is no way with the ;; current type system to force the result of ACOS to be a ;; monotype flonum. Thus we currently violate R4RS in this regard. ;; note: Since ACOS is not included in the table on the top of page 20 of R4RS ;; it can return inexact results even when given exact arguments that ;; could otherwise yield an exact result. This licenses never returning ;; a fixnum. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (widen r (c:acos (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (unimplemented y "ACOS on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "acos" y p?)))) (define-primitive-procedure atan ;; needs work: To handle +inf, -inf, and NaN arguments. one-or-two-arguments-compatible? (one-or-two-arguments-truly-compatible? number-type? number-type?) (list number-type? number-type?) (list number-type? number-type?) (one-or-two-arguments-propagate! (lambda (w1) (propagate-result! )) (lambda (w1 w2) (propagate-result! ))) #f (if (= (length ws) 1) (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (widen r (c:atan (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (unimplemented y "ATAN on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "atan1" y p?))) (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (type-switch number-type? w2 r t2 (lambda (u2) (cond ((nonrectangular-number-type? u2) (widen r (c:atan2 (c:value t1 u1 w1) (c:value t2 u2 w2)) flonum-type?)) ((rectangular-type? u2) (unimplemented y "ATAN on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "atan3" y p?)))) ((rectangular-type? u1) (unimplemented y "ATAN on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "atan2" y p?))))) (define-primitive-procedure sqrt ;; needs work: To handle negative, +inf, and NaN arguments. ;; needs work: If this were implemented properly and supported rectangular ;; results we would have two choices: either always return a ;; rectangular result or return a union of a rectangular and a ;; flonum. The former is undesirable since that would cause ;; rectangular pollution. The later is undesirable since that ;; would cause union type pollution and require run-time checking ;; of whether the argument is negative. There is no way with the ;; current type system to force the result of SQRT to be a ;; monotype flonum. Thus we currently violate R4RS in this regard. ;; note: Since SQRT is not included in the table on the top of page 20 of R4RS ;; it can return inexact results even when given exact arguments that ;; could otherwise yield an exact result. This licenses never returning ;; a fixnum. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (widen r (c:sqrt (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (unimplemented y "SQRT on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "sqrt" y p?)))) (define-primitive-procedure expt ;; needs work: To handle negative, zero, +inf, and NaN first argument. ;; needs work: To handle -inf, +inf, and NaN second argument. ;; needs work: If this were implemented properly and supported rectangular ;; results we would have two choices: either always return a ;; rectangular result or return a union of a rectangular, a ;; flonum, and a fixnum. The former is undesirable since that ;; would cause rectangular pollution. The later is undesirable ;; since that would cause union type pollution and require ;; run-time checking of whether the first argument is negative ;; and whether the first argument is an integer raised to the ;; second argument. There is no way with the current type system ;; to force the result of EXPT to be a flonum or a fixnum. Thus ;; we currently violate R4RS in this regard. ;; note: Unfortunately, EXPT is listed in the table on the top of page 20 of ;; R4RS so it must return an exact result when given exact arguments ;; that can produce an exact result. Because of this, the output can ;; never be a fixnum monotype and must be a union of a fixnum and a ;; flonum. Furthermore, there must be run-time checking when both ;; arguments are fixnums. Bummer. I may change this someday to violate ;; R4RS in this regard and have EXPT always return a flonum monotype and ;; eliminate ipow(). two-arguments-compatible? (two-arguments-truly-compatible? number-type? number-type?) (list number-type? number-type?) (list number-type? number-type?) (two-arguments-propagate! (lambda (w1 w2) (when (and (can-be? fixnum-type? w1) (can-be? fixnum-type? w2)) (propagate-result! )) (when (and (can-be? number-type? w1) (can-be? number-type? w2)) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (type-switch number-type? w2 r t2 (lambda (u2) (cond ((and (fixnum-type? u1) (fixnum-type? u2)) (c:if (c:<0 (c:value t2 u2 w2)) (widen r (c:pow (c:value t1 u1 w1) (c:value t2 u2 w2)) flonum-type?) (widen r (c:ipow (c:value t1 u1 w1) (c:value t2 u2 w2)) fixnum-type?) #f)) ((or (rectangular-type? u1) (rectangular-type? u2)) (unimplemented y "EXPT on rectangular arguments is not (yet) implemented")) ((and (nonrectangular-number-type? u1) (nonrectangular-number-type? u2)) (widen r (c:pow (c:value t1 u1 w1) (c:value t2 u2 w2)) flonum-type?)) (else (fuck-up)))) (lambda (p?) (compile-error "expt2" y p?)))) (lambda (p?) (compile-error "expt1" y p?)))) (define-primitive-procedure exact->inexact one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (when (can-be? nonrectangular-number-type? w1) (propagate-result! )) (when (can-be? rectangular-type? w1) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (widen r (c:flonum-cast (c:value t1 u1 w1)) flonum-type?)) ((flonum-type? u1) (widen r (c:value t1 u1 w1) flonum-type?)) ((rectangular-type? u1) (widen r (c:value t1 u1 w1) rectangular-type?)) (else (fuck-up)))) (lambda (p?) (compile-error "exact_to_inexact" y p?)))) (define-primitive-procedure inexact->exact one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (widen r (c:value t1 u1 w1) fixnum-type?)) ((flonum-type? u1) (widen r (c:fixnum-cast (c:value t1 u1 w1)) fixnum-type?)) ((rectangular-type? u1) (newline-between (c:if (c:!=0.0 (c:i (c:value t1 u1 w1))) (compile-error "inexact_to_exact2" y #f) (c:noop) #f) (widen r (c:fixnum-cast (c:r (c:value t1 u1 w1))) fixnum-type?))) (else (fuck-up)))) (lambda (p?) (compile-error "inexact_to_exact1" y p?)))) (define-primitive-procedure char? one-argument-compatible? (one-argument-truly-compatible? type?) (list char-type?) (list (lambda (u) (not (char-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? char-type? w1) (can-be-non? char-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! char-type?))) #f (compile-type-predicate char-type?)) (define-primitive-procedure char->integer one-argument-compatible? (one-argument-truly-compatible? char-type?) (list char-type?) (list char-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch char-type? w1 r t1 (lambda (u1) (widen r (c:fixnum-cast (c:unsigned-char-cast (c:value t1 u1 w1))) fixnum-type?)) (lambda (p?) (compile-error "char_to_integer" y p?)))) (define-primitive-procedure integer->char one-argument-compatible? (one-argument-truly-compatible? fixnum-type?) (list fixnum-type?) (list fixnum-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch fixnum-type? w1 r t1 (lambda (u1) (newline-between (if *bounds-checks?* (c:if (c:boolean-or (c:<0 (c:value t1 u1 w1)) (c:>= (c:value t1 u1 w1) (c:256))) (compile-error "integer_to_char2" y #f) (c:noop) #f) (c:noop)) (widen r (c:unsigned-char-cast (c:value t1 u1 w1)) char-type?))) (lambda (p?) (compile-error "integer_to_char1" y p?)))) (define-primitive-procedure string? one-argument-compatible? (one-argument-truly-compatible? type?) (list string-type?) (list (lambda (u) (not (string-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? string-type? w1) (can-be-non? string-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! string-type?))) #f (compile-type-predicate string-type?)) (define-primitive-procedure make-string one-or-two-arguments-compatible? (one-or-two-arguments-truly-compatible? fixnum-type? char-type?) (list fixnum-type? char-type?) (list fixnum-type? char-type?) (one-or-two-arguments-propagate! (lambda (w1) (propagate-result! ( (call-site-expression y)))) (lambda (w1 w2) (propagate-result! ( (call-site-expression y))))) ;; needs work: This doesn't check that the size of the string is nonnegative. #f (cond ((discard? r) (type-switch fixnum-type? w1 r t1 (lambda (u1) (if (= (length ws) 2) (type-switch char-type? w2 r t2 (lambda (u2) (c:noop)) (lambda (p?) (compile-error "make_string2" y p?))) (c:noop))) (lambda (p?) (compile-error "make_string1" y p?)))) ((antecedent? r) (type-switch fixnum-type? w1 r t1 (lambda (u1) (if (= (length ws) 2) (type-switch char-type? w2 r t2 (lambda (u2) (return-true r)) (lambda (p?) (compile-error "make_string2" y p?))) (return-true r))) (lambda (p?) (compile-error "make_string1" y p?)))) ((and (return? r) (not (result-accessed? r))) (type-switch fixnum-type? w1 r t1 (lambda (u1) (if (= (length ws) 2) (type-switch char-type? w2 r t2 (lambda (u2) (compile-return r)) (lambda (p?) (compile-error "make_string2" y p?))) (compile-return r))) (lambda (p?) (compile-error "make_string1" y p?)))) (else (let ((c (result-c r)) (w (result-type-set r))) (type-switch fixnum-type? w1 r t1 (lambda (u1) (if (= (length ws) 2) (type-switch char-type? w2 r t2 (lambda (u2) (newline-between (compile-allocate-string c w (c:value t1 u1 w1) y) (let ((t (c:t *ti*))) (set! *ti* (+ *ti* 1)) (outside-body ;; needs work: To use code-generation abstractions. (semicolon-after (space-between *char* (star-before t)))) (c:for (c:= t (c:& (value-string-ref c (the-member-that string-type? w) w (c:0)))) (c:< t (c:& (value-string-ref c (the-member-that string-type? w) w (c:value t1 u1 w1)))) (c:++ t) (c::= (c:* t) (c:value t2 u2 w2)))) (compile-return r))) (lambda (p?) (compile-error "make_string2" y p?))) ;; note: This is necessary since due to C bogosity, one can't ;; determine the length of an uninitialized string since it ;; might contain nulls. (newline-between (compile-allocate-string c w (c:value t1 u1 w1) y) (let ((t (c:t *ti*))) (set! *ti* (+ *ti* 1)) (outside-body ;; needs work: To use code-generation abstractions. (semicolon-after (space-between *char* (star-before t)))) (c:for (c:= t (c:& (value-string-ref c (the-member-that string-type? w) w (c:0)))) (c:< t (c:& (value-string-ref c (the-member-that string-type? w) w (c:value t1 u1 w1)))) (c:++ t) (c::= (c:* t) (c:character #\space)))) (compile-return r)))) (lambda (p?) (compile-error "make_string1" y p?))))))) (define-primitive-procedure string zero-or-more-arguments-compatible? (all-arguments-truly-compatible? char-type?) (map-n (lambda (i) char-type?) n) (map-n (lambda (i) char-type?) n) (all-arguments-propagate! (lambda (ws) (propagate-result! ( (call-site-expression y))))) #f (let loop ((ts1 ts) (us '()) (ws1 ws)) (if (null? ts1) (cond ((discard? r) (c:noop)) ((antecedent? r) (return-true r)) ((and (return? r) (not (result-accessed? r))) (compile-return r)) (else (let ((c (result-c r)) (us (reverse us)) (w (result-type-set r))) (newline-between (compile-allocate-string c w (c:fixnum (length ws)) y) (newlines-between (map-n (lambda (i) (c::= (value-string-ref c (the-member-that string-type? w) w (c:fixnum i)) (c:value (list-ref ts i) (list-ref us i) (list-ref ws i)))) (length ws))) (compile-return r))))) (type-switch char-type? (first ws1) r (first ts1) (lambda (u1) (loop (rest ts1) (cons u1 us) (rest ws1))) (lambda (p?) (compile-error "string" y p?)))))) (define-primitive-procedure string-length one-argument-compatible? (one-argument-truly-compatible? string-type?) (list string-type?) (list string-type?) (one-argument-propagate! (lambda (w1) (for-each-member (lambda (u1) (when (string-type? u1) (set-string-type-string-length-accessed?! u1 #t))) w1) (propagate-result! ))) #f (type-switch string-type? w1 r t1 (lambda (u1) (widen r (value-string-length t1 u1 w1) fixnum-type?)) (lambda (p?) (compile-error "string_length" y p?)))) (define-primitive-procedure string-ref two-arguments-compatible? (two-arguments-truly-compatible? string-type? fixnum-type?) (list string-type? fixnum-type?) (list string-type? fixnum-type?) (two-arguments-propagate! (lambda (w1 w2) (for-each-member (lambda (u1) (when (string-type? u1) (set-string-type-string-ref-accessed?! u1 #t))) w1) (propagate-result! ))) #f (type-switch string-type? w1 r t1 (lambda (u1) (type-switch fixnum-type? w2 r t2 (lambda (u2) (newline-between (if *bounds-checks?* (c:if (c:boolean-or (c:<0 (c:value t2 u2 w2)) (c:>= (c:value t2 u2 w2) (value-string-length t1 u1 w1))) (compile-error "string_ref3" y #f) (c:noop) #f) (c:noop)) (widen r (value-string-ref t1 u1 w1 (c:value t2 u2 w2)) char-type?))) (lambda (p?) (compile-error "string_ref2" y p?)))) (lambda (p?) (compile-error "string_ref1" y p?)))) (define-primitive-procedure string-set! three-arguments-compatible? (three-arguments-truly-compatible? string-type? fixnum-type? char-type?) (list string-type? fixnum-type? char-type?) (list string-type? fixnum-type? char-type?) (three-arguments-propagate! (lambda (w1 w2 w3) #f)) #f (type-switch string-type? w1 r t1 (lambda (u1) (type-switch fixnum-type? w2 r t2 (lambda (u2) (newline-between (if *bounds-checks?* (c:if (c:boolean-or (c:<0 (c:value t2 u2 w2)) (c:>= (c:value t2 u2 w2) (value-string-length t1 u1 w1))) (compile-error "string_set4" y #f) (c:noop) #f) (c:noop)) (type-switch char-type? w3 r t3 (lambda (u3) (newline-between (c::= (value-string-ref t1 u1 w1 (c:value t2 u2 w2)) (c:value t3 u3 w3)) (compile-return r))) (lambda (p?) (compile-error "string_set3" y p?))))) (lambda (p?) (compile-error "string_set2" y p?)))) (lambda (p?) (compile-error "string_set1" y p?)))) (define-primitive-procedure vector? one-argument-compatible? (one-argument-truly-compatible? type?) (list vector-type?) (list (lambda (u) (not (vector-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? vector-type? w1) (can-be-non? vector-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! vector-type?))) #f (compile-type-predicate vector-type?)) (define-primitive-procedure make-vector one-or-two-arguments-compatible? (one-or-two-arguments-truly-compatible? fixnum-type? type?) (list fixnum-type? type?) (list fixnum-type? type?) (one-or-two-arguments-propagate! (lambda (w1) (propagate-result! ( ;; note: This is suboptimal since type propagation is not yet complete ;; and APPLY-CLOSED-WORLD-ASSUMPTION! has not been done yet. '() (call-site-expression y)))) (lambda (w1 w2) (propagate-result! ( ;; note: This is suboptimal since type propagation is not yet complete ;; and APPLY-CLOSED-WORLD-ASSUMPTION! has not been done yet. (members w2) (call-site-expression y))))) (unless (or (discard? r) (antecedent? r) (and (return? r) (not (result-accessed? r)))) (let* ((w (result-type-set r)) (u (the-member-that (lambda (u) (and (headed-vector-type? u) (memq (call-site-expression y) (headed-vector-type-allocating-expressions u)))) w))) (for-each-member (lambda (u1) (when (and (fixnum-type? u1) (= (length ws) 2) (not (fictitious? (headed-vector-type-element u)))) (for-each-member (lambda (u2) (promote! (create-accessor-result (headed-vector-type-element u) #f) w2 w2)) w2))) w1))) ;; needs work: This doesn't check that the size of the vector is nonnegative. (cond ((discard? r) (type-switch fixnum-type? w1 r t1 (lambda (u1) (c:noop)) (lambda (p?) (compile-error "make_vector" y p?)))) ((antecedent? r) (type-switch fixnum-type? w1 r t1 (lambda (u1) (return-true r)) (lambda (p?) (compile-error "make_vector" y p?)))) ((and (return? r) (not (result-accessed? r))) (type-switch fixnum-type? w1 r t1 (lambda (u1) (compile-return r)) (lambda (p?) (compile-error "make_vector" y p?)))) (else (let* ((c (result-c r)) (w (result-type-set r)) (u (the-member-that (lambda (u) (and (headed-vector-type? u) (memq (call-site-expression y) (headed-vector-type-allocating-expressions u)))) w))) (type-switch fixnum-type? w1 r t1 (lambda (u1) (newline-between (compile-allocate-headed-vector c u w (c:value t1 u1 w1) y) (if (and (= (length ws) 2) (not (fictitious? (headed-vector-type-element u)))) (type-switch type? w2 r t2 (lambda (u2) (let ((t (c:t *ti*))) (set! *ti* (+ *ti* 1)) (outside-body ;; note: This violates the abstraction. (list 'c:declaration t (semicolon-after (c:type-set (headed-vector-type-element u) (star-before t))) #f)) (newline-between (c:for (c:= t (c:& (value-vector-ref c u w (c:0)))) (c:< t (c:& (value-vector-ref c u w (c:value t1 u1 w1)))) (c:++ t) (move (create-accessor-result (headed-vector-type-element u) (parentheses-around (star-before t))) t2 w2)) (compile-return r)))) (lambda (p?) (fuck-up))) (compile-return r)))) (lambda (p?) (compile-error "make_vector" y p?))))))) (define-primitive-procedure make-displaced-vector three-arguments-compatible? (three-arguments-truly-compatible? vector-type? fixnum-type? fixnum-type?) (list vector-type? fixnum-type? fixnum-type?) (list vector-type? fixnum-type? fixnum-type?) (three-arguments-propagate! (lambda (w1 w2 w3) (for-each-member (lambda (u1) (when (vector-type? u1) (propagate-result! ( u1)))) w1))) #f (let ((w (result-type-set r))) (type-switch vector-type? w1 r t1 (lambda (u1) (let ((u (the-member-that (lambda (u) (and (displaced-vector-type? u) (eq? u (displaced-vector-type-displaced-vector-type u1)))) w))) (type-switch fixnum-type? w2 r t2 (lambda (u2) (type-switch fixnum-type? w3 r t3 (lambda (u3) (newline-between (if *bounds-checks?* (c:if (c:boolean-or (c:<0 (c:value t2 u2 w2)) (c:>= (c:value t2 u2 w2) (value-vector-length t1 u1 w1))) (compile-error "make_displaced_vector4" y #f) (c:noop) #f) (c:noop)) (cond (*bounds-checks?* (when *overflow-checks?* (unimplemented y "Safe exact arithmetic is not (yet) implemented")) (c:if (c:boolean-or (c:<0 (c:value t3 u3 w3)) (c:> (c:+ (c:value t2 u2 w2) (c:value t3 u3 w3)) (value-vector-length t1 u1 w1))) (compile-error "make_displaced_vector5" y #f) (c:noop) #f)) (else (c:noop))) (move-displaced-vector r u (c:& (value-vector-ref t1 u1 w1 (c:value t2 u2 w2))) (c:value t2 u3 w3)))) (lambda (p?) (compile-error "make_displaced_vector3" y p?)))) (lambda (p?) (compile-error "make_displaced_vector2" y p?))))) (lambda (p?) (compile-error "make_displaced_vector1" y p?))))) (define-primitive-procedure vector zero-or-more-arguments-compatible? (all-arguments-truly-compatible? type?) (map-n (lambda (i) type?) n) (map-n (lambda (i) type?) n) (all-arguments-propagate! (lambda (ws) (propagate-result! ( ;; note: This is suboptimal since type propagation is not yet complete ;; and APPLY-CLOSED-WORLD-ASSUMPTION! has not been done yet. (reduce unionq (map members ws) '()) (call-site-expression y))))) (unless (or (discard? r) (antecedent? r) (and (return? r) (not (result-accessed? r)))) (let* ((w (result-type-set r)) (u (the-member-that (lambda (u) (and (headed-vector-type? u) (memq (call-site-expression y) (headed-vector-type-allocating-expressions u)))) w))) (for-each (lambda (w) (promote! (if (degenerate-vector-type? u) *discard* (create-accessor-result (headed-vector-type-element u) #f)) w w)) ws))) (cond ((discard? r) (c:noop)) ((antecedent? r) (return-true r)) ((and (return? r) (not (result-accessed? r))) (compile-return r)) (else (let* ((c (result-c r)) (w (result-type-set r)) (u (the-member-that (lambda (u) (and (headed-vector-type? u) (memq (call-site-expression y) (headed-vector-type-allocating-expressions u)))) w))) (newline-between (compile-allocate-headed-vector c u w (c:fixnum (length ws)) y) (newlines-between (map-n (lambda (i) (move (if (degenerate-vector-type? u) *discard* (create-accessor-result (headed-vector-type-element u) (value-vector-ref c u w (c:fixnum i)))) (list-ref ts i) (list-ref ws i))) (length ws))) (compile-return r)))))) (define-primitive-procedure vector-length one-argument-compatible? (one-argument-truly-compatible? vector-type?) (list vector-type?) (list vector-type?) (one-argument-propagate! (lambda (w1) (for-each-member (lambda (u1) (cond ((headed-vector-type? u1) (set-headed-vector-type-vector-length-accessed?! u1 #t)) ((nonheaded-vector-type? u1) (set-nonheaded-vector-type-vector-length-accessed?! u1 #t)) ((displaced-vector-type? u1) (set-displaced-vector-type-vector-length-accessed?! u1 #t)))) w1) (propagate-result! ))) #f (type-switch vector-type? w1 r t1 (lambda (u1) (widen r (value-vector-length t1 u1 w1) fixnum-type?)) (lambda (p?) (compile-error "vector_length" y p?)))) (define-primitive-procedure vector-ref two-arguments-compatible? (two-arguments-truly-compatible? vector-type? fixnum-type?) (list vector-type? fixnum-type?) (list vector-type? fixnum-type?) (two-arguments-propagate! (lambda (w1 w2) (for-each-member (lambda (u1) (cond ((headed-vector-type? u1) (set-headed-vector-type-vector-ref-accessed?! u1 #t)) ((nonheaded-vector-type? u1) (set-nonheaded-vector-type-vector-ref-accessed?! u1 #t)) ((displaced-vector-type? u1) (set-displaced-vector-type-vector-ref-accessed?! u1 #t)))) w1) (for-each-member (lambda (u1) (when (vector-type? u1) (for-each-member propagate-result! (vector-type-element u1)))) w1))) (for-each-member (lambda (u1) (when (vector-type? u1) (for-each-member (lambda (u2) (when (fixnum-type? u2) (promote! r (vector-type-element u1) (vector-type-element u1)))) w2))) w1) (type-switch vector-type? w1 r t1 (lambda (u1) (type-switch fixnum-type? w2 r t2 (lambda (u2) (newline-between (if *bounds-checks?* (c:if (c:boolean-or (c:<0 (c:value t2 u2 w2)) (c:>= (c:value t2 u2 w2) (value-vector-length t1 u1 w1))) (compile-error "vector_ref3" y #f) (c:noop) #f) (c:noop)) (move r (value-vector-ref t1 u1 w1 (c:value t2 u2 w2)) (vector-type-element u1)))) (lambda (p?) (compile-error "vector_ref2" y p?)))) (lambda (p?) (compile-error "vector_ref1" y p?)))) (define-primitive-procedure vector-set! three-arguments-compatible? (three-arguments-truly-compatible? vector-type? fixnum-type? type?) (list vector-type? fixnum-type? type?) (list vector-type? fixnum-type? type?) (three-arguments-propagate! (lambda (w1 w2 w3) (for-each-member (lambda (u1) (when (vector-type? u1) (assert-subset! w3 (vector-type-element u1)))) w1))) (for-each-member (lambda (u1) (when (vector-type? u1) (for-each-member (lambda (u2) (when (fixnum-type? u2) (promote! (if (degenerate-vector-type? u1) *discard* (create-accessor-result (vector-type-element u1) #f)) w3 w3))) w2))) w1) (type-switch vector-type? w1 r t1 (lambda (u1) (type-switch fixnum-type? w2 r t2 (lambda (u2) (newline-between (if *bounds-checks?* (c:if (c:boolean-or (c:<0 (c:value t2 u2 w2)) (c:>= (c:value t2 u2 w2) (value-vector-length t1 u1 w1))) (compile-error "vector_set3" y #f) (c:noop) #f) (c:noop)) (move (if (degenerate-vector-type? u1) *discard* (create-accessor-result (vector-type-element u1) (value-vector-ref t1 u1 w1 (c:value t2 u2 w2)))) t3 w3) (compile-return r))) (lambda (p?) (compile-error "vector_set2" y p?)))) (lambda (p?) (compile-error "vector_set1" y p?)))) (define-primitive-procedure procedure? one-argument-compatible? (one-argument-truly-compatible? type?) (list procedure-type?) (list (lambda (u) (not (procedure-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? procedure-type? w1) (can-be-non? procedure-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! procedure-type?))) #f (compile-type-predicate procedure-type?)) (define-primitive-procedure apply two-or-more-arguments-compatible? ;; needs work: To abstract. (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (and (can-be? (truly-compatible-procedure? (if (converted? y) (cons w0 (but-last (rest ws))) (but-last (rest ws))) (last ws) (recreate-call-site y 'first-argument)) (first ws)) (can-be? list-type? (last ws)))) ;; needs work: This could be made more precise. (cons procedure-type? (append (map-n (lambda (i) type?) (- n 2)) (list list-type?))) ;; needs work: This could be made more precise. (cons procedure-type? (append (map-n (lambda (i) type?) (- n 2)) (list list-type?))) ;; needs work: To abstract. (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (when #f ;debugging (when (can-be? continuation-type? (first ws)) (unimplemented y "Passing continuations as the first argument of APPLY is not (yet) implemented"))) (propagate-call! (recreate-call-site y 'first-argument) (first ws) (if (converted? y) (cons w0 (rest (but-last ws))) (rest (but-last ws))) (last ws))) #f (if (void? w1) (compile-error "void_call" y #t) (type-switch (compatible-procedure? (if (converted? y) (cons w0 (but-last (rest ws))) (but-last (rest ws))) (last ws) (recreate-call-site y 'first-argument)) w1 r t1 (lambda (u1) (if (converted? y) (compile-converted-call r (recreate-call-site y 'first-argument) t1 u1 w1 (cons t0 (but-last (rest ts))) (cons w0 (but-last (rest ws))) (last ts) (last ws)) (compile-call r (recreate-call-site y 'first-argument) t1 u1 w1 t0 w0 (but-last (rest ts)) (but-last (rest ws)) (last ts) (last ws)))) (lambda (p?) (compile-error "call" y p?))))) (define-primitive-procedure call-with-current-continuation one-argument-compatible? (one-argument-truly-compatible? (truly-compatible-procedure? (if (converted? y) (list w0 w0) (list (create-anonymous-type-set ( (call-site-expression y))))) *null* (recreate-call-site y 'first-argument))) (list (truly-compatible-procedure? (if (converted? y) (list w0 w0) (list (create-anonymous-type-set ( (call-site-expression y))))) *null* (recreate-call-site y 'first-argument))) (list (truly-compatible-procedure? (if (converted? y) (list w0 w0) (list (create-anonymous-type-set ( (call-site-expression y))))) *null* (recreate-call-site y 'first-argument))) (one-argument-propagate! (lambda (w1) (when #f ;debugging (when (can-be? continuation-type? w1) (unimplemented y "Passing continuations as the first argument of CALL-WITH-CURRENT-CONTINUATION is not (yet) implemented"))) (propagate-call! (recreate-call-site y 'first-argument) w1 (if (converted? y) (list w0 w0) (list (create-anonymous-type-set ( (call-site-expression y))))) *null*))) (let ((w (result-type-set r))) (when (converted? y) (fuck-up)) (newline-between (when (can-be? (lambda (u1) (and (native-procedure-type? u1) ((truly-compatible-procedure? (if (converted? y) (list w0 w0) (list (create-anonymous-type-set ( (call-site-expression y))))) *null* (recreate-call-site y 'first-argument)) u1) (some (lambda (e) (can-be? (lambda (u4) (and (eq? u4 ( (call-site-expression y))) (some (lambda (y) (not (goto? y u4))) (continuation-type-call-sites u4)))) (first-parameter-type-set (environment-expression e)))) (narrow-clones u1)))) w1) (for-each-member (lambda (u1) (when ((compatible-procedure? (list (create-anonymous-type-set ( (call-site-expression y)))) *null* (recreate-call-site y 'first-argument)) u1) (let ((w3 (create-anonymous-type-set ( (call-site-expression y))))) (promote-call! (if (or (discard? r) (fictitious? w)) *discard* (create-accessor-result w (c:v (call-site-expression y)))) (recreate-call-site y 'first-argument) u1 (list w3) *null*) (promote! r w w)))) w1)))) (let ((w (result-type-set r))) (when (converted? y) (fuck-up)) (newline-between (cond ((can-be? (lambda (u1) (and (native-procedure-type? u1) ((truly-compatible-procedure? (if (converted? y) (list w0 w0) (list (create-anonymous-type-set ( (call-site-expression y))))) *null* (recreate-call-site y 'first-argument)) u1) (some (lambda (e) (can-be? (lambda (u4) (and (eq? u4 ( (call-site-expression y))) (some (lambda (y) (not (goto? y u4))) (continuation-type-call-sites u4)))) (first-parameter-type-set (environment-expression e)))) (narrow-clones u1)))) w1) (include! "setjmp") ;jmp_buf (unless (or (discard? r) (fictitious? w)) (outside-main (c:declaration w (c:v (call-site-expression y)) (c:noop)))) ;; needs work: To use code-generation abstractions. (outside-body (semicolon-after (space-between *jmpbuf* (c:j (call-site-expression y))))) (type-switch (compatible-procedure? (list (create-anonymous-type-set ( (call-site-expression y)))) *null* (recreate-call-site y 'first-argument)) w1 r t1 (lambda (u1) (let* ((w3 (create-anonymous-type-set ( (call-site-expression y)))) (t3 (allocate-temporary w3))) (newline-between (c:if (c:setjmp (c:j (call-site-expression y))) (c:noop) (newline-between (widen (create-accessor-result w3 t3) (c:& (c:j (call-site-expression y))) (lambda (u) (and (continuation-type? u) (eq? (continuation-type-allocating-expression u) (call-site-expression y))))) (compile-call (if (or (discard? r) (fictitious? w)) *discard* (create-accessor-result w (c:v (call-site-expression y)))) (recreate-call-site y 'first-argument) t1 u1 w1 t0 w0 (list t3) (list w3) 'void23 *null*)) #t) (if (or (discard? r) (fictitious? w)) (compile-return r) (move r (c:v (call-site-expression y)) w))))) (lambda (p?) (compile-error "call_with_current_continuation" y p?)))) (else (type-switch (compatible-procedure? (list (create-anonymous-type-set ( (call-site-expression y)))) *null* (recreate-call-site y 'first-argument)) w1 r t1 (lambda (u1) (let* ((w3 (create-anonymous-type-set ( (call-site-expression y)))) (t3 (allocate-temporary w3))) (compile-call r (recreate-call-site y 'first-argument) t1 u1 w1 t0 w0 (list t3) (list w3) 'void24 *null*))) (lambda (p?) (compile-error "call_with_current_continuation" y p?))))) (if (can-be? (lambda (u1) (and (native-procedure-type? u1) ((truly-compatible-procedure? (if (converted? y) (list w0 w0) (list (create-anonymous-type-set ( (call-site-expression y))))) *null* (recreate-call-site y 'first-argument)) u1) (some (lambda (e) (can-be? (lambda (u4) (and (eq? u4 ( (call-site-expression y))) (some (lambda (y) (goto? y u4)) (continuation-type-call-sites u4)))) (first-parameter-type-set (environment-expression e)))) (narrow-clones u1)))) w1) (c:: (c:x (call-site-expression y))) (c:noop))))) (define-primitive-procedure input-port? one-argument-compatible? (one-argument-truly-compatible? type?) (list input-port-type?) (list (lambda (u) (not (input-port-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? input-port-type? w1) (can-be-non? input-port-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! input-port-type?))) #f (compile-type-predicate input-port-type?)) (define-primitive-procedure output-port? one-argument-compatible? (one-argument-truly-compatible? type?) (list output-port-type?) (list (lambda (u) (not (output-port-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? output-port-type? w1) (can-be-non? output-port-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! output-port-type?))) #f (compile-type-predicate output-port-type?)) (define-primitive-procedure open-input-file one-argument-compatible? (one-argument-truly-compatible? string-type?) (list string-type?) (list string-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch string-type? w1 r t1 (lambda (u1) (if *runtime-checks?* (if (or (discard? r) (antecedent? r) (and (return? r) (not (result-accessed? r)))) (let ((t (allocate-temporary *input-port*))) (newline-between (widen (create-accessor-result *input-port* t) (c:fopen (c:value t1 u1 w1) (c:string "r")) input-port-type?) (c:if (c:==null (c:value t (the-member *input-port*) *input-port*)) (compile-error "open_input_file2" y #f) (c:noop) #f) (compile-return r))) (newline-between (widen (unreturnify r) (c:fopen (c:value t1 u1 w1) (c:string "r")) input-port-type?) (c:if (c:==null (c:value (result-c r) (the-member-that input-port-type? (result-type-set r)) (result-type-set r))) (compile-error "open_input_file2" y #f) (c:noop) #f) (compile-return r))) (widen r (c:fopen (c:value t1 u1 w1) (c:string "r")) input-port-type?))) (lambda (p?) (compile-error "open_input_file1" y p?)))) (define-primitive-procedure open-output-file one-argument-compatible? (one-argument-truly-compatible? string-type?) (list string-type?) (list string-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch string-type? w1 r t1 (lambda (u1) (if *runtime-checks?* (if (or (discard? r) (antecedent? r) (and (return? r) (not (result-accessed? r)))) (let ((t (allocate-temporary *output-port*))) (newline-between (widen (create-accessor-result *output-port* t) (c:fopen (c:value t1 u1 w1) (c:string "w")) output-port-type?) (c:if (c:==null (c:value t (the-member *output-port*) *output-port*)) (compile-error "open_output_file2" y #f) (c:noop) #f) (compile-return r))) (newline-between (widen (unreturnify r) (c:fopen (c:value t1 u1 w1) (c:string "w")) output-port-type?) (c:if (c:==null (c:value (result-c r) (the-member-that output-port-type? (result-type-set r)) (result-type-set r))) (compile-error "open_output_file2" y #f) (c:noop) #f) (compile-return r))) (widen r (c:fopen (c:value t1 u1 w1) (c:string "w")) output-port-type?))) (lambda (p?) (compile-error "open_output_file1" y p?)))) (define-primitive-procedure close-input-port one-argument-compatible? (one-argument-truly-compatible? input-port-type?) (list input-port-type?) (list input-port-type?) (one-argument-propagate! (lambda (w1) #f)) #f (type-switch input-port-type? w1 r t1 (lambda (u1) (if *runtime-checks?* (c:if (c:fclose (c:value t1 u1 w1)) (compile-error "close_input_port2" y #f) (compile-return r) #t) (newline-between (semicolon-after (c:fclose (c:value t1 u1 w1))) (compile-return r)))) (lambda (p?) (compile-error "close_input_port1" y p?)))) (define-primitive-procedure close-output-port one-argument-compatible? (one-argument-truly-compatible? output-port-type?) (list output-port-type?) (list output-port-type?) (one-argument-propagate! (lambda (w1) #f)) #f (type-switch output-port-type? w1 r t1 (lambda (u1) (if *runtime-checks?* (c:if (c:fclose (c:value t1 u1 w1)) (compile-error "close_output_port2" y #f) (compile-return r) #t) (newline-between (semicolon-after (c:fclose (c:value t1 u1 w1))) (compile-return r)))) (lambda (p?) (compile-error "close_output_port1" y p?)))) (define-primitive-procedure read-char1 one-argument-compatible? (one-argument-truly-compatible? input-port-type?) (list input-port-type?) (list input-port-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ) (propagate-result! ))) #f (type-switch input-port-type? w1 r t1 (lambda (u1) (c:if (c:==eof (c:= (c:c) (c:getc (c:value t1 u1 w1)))) (widen r 'void25 eof-object-type?) (widen r (c:c) char-type?) #t)) (lambda (p?) (compile-error "read_char1" y p?)))) (define-primitive-procedure peek-char1 one-argument-compatible? (one-argument-truly-compatible? input-port-type?) (list input-port-type?) (list input-port-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ) (propagate-result! ))) #f (type-switch input-port-type? w1 r t1 (lambda (u1) (c:if (c:==eof (c:= (c:c) (c:ungetc (c:getc (c:value t1 u1 w1)) (c:value t1 u1 w1)))) (widen r 'void26 eof-object-type?) (widen r (c:c) char-type?) #t)) (lambda (p?) (compile-error "peek_char1" y p?)))) (define-primitive-procedure eof-object? one-argument-compatible? (one-argument-truly-compatible? type?) (list eof-object-type?) (list (lambda (u) (not (eof-object-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? eof-object-type? w1) (can-be-non? eof-object-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! eof-object-type?))) #f (compile-type-predicate eof-object-type?)) (define-primitive-procedure char-ready?1 one-argument-compatible? (one-argument-truly-compatible? input-port-type?) (list input-port-type?) (list input-port-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ) (propagate-result! ))) #f (type-switch input-port-type? w1 r t1 (lambda (u1) (compile-test r (c:input-waiting (c:value t1 u1 w1)))) (lambda (p?) (compile-error "char_ready1" y p?)))) (define-primitive-procedure standard-input-port zero-arguments-compatible? (zero-arguments-truly-compatible?) '() '() (zero-arguments-propagate! (lambda () (propagate-result! ))) #f (widen r (c:stdin) input-port-type?)) (define-primitive-procedure standard-output-port zero-arguments-compatible? (zero-arguments-truly-compatible?) '() '() (zero-arguments-propagate! (lambda () (propagate-result! ))) #f (widen r (c:stdout) output-port-type?)) (define-primitive-procedure write-char2 two-arguments-compatible? (two-arguments-truly-compatible? char-type? output-port-type?) (list char-type? output-port-type?) (list char-type? output-port-type?) (two-arguments-propagate! (lambda (w1 w2) #f)) #f (type-switch char-type? w1 r t1 (lambda (u1) (type-switch output-port-type? w2 r t2 (lambda (u2) (newline-between (c:putc (c:value t1 u1 w1) (c:value t2 u2 w2)) (compile-return r))) (lambda (p?) (compile-error "write_char2" y p?)))) (lambda (p?) (compile-error "write_char1" y p?)))) (define-primitive-procedure panic one-argument-compatible? (one-argument-truly-compatible? string-type?) (list string-type?) (list string-type?) (one-argument-propagate! (lambda (w1) #f)) #f (type-switch string-type? w1 r t1 (lambda (u1) (c:panic (c:value t1 u1 w1))) (lambda (p?) (compile-error "panic" y p?)))) (define-primitive-procedure pointer? one-argument-compatible? (one-argument-truly-compatible? type?) (list pointer-type?) (list (lambda (u) (not (pointer-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? pointer-type? w1) (can-be-non? pointer-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! pointer-type?))) #f (compile-type-predicate pointer-type?)) (define-primitive-procedure integer->string one-argument-compatible? (one-argument-truly-compatible? fixnum-type?) (list fixnum-type?) (list fixnum-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch fixnum-type? w1 r t1 (lambda (u1) (widen r (c:char*-cast (c:value t1 u1 w1)) string-type?)) (lambda (p?) (compile-error "integer_to_string" y p?)))) (define-primitive-procedure integer->input-port one-argument-compatible? (one-argument-truly-compatible? fixnum-type?) (list fixnum-type?) (list fixnum-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch fixnum-type? w1 r t1 (lambda (u1) (widen r (c:file*-cast (c:value t1 u1 w1)) input-port-type?)) (lambda (p?) (compile-error "integer_to_input_port" y p?)))) (define-primitive-procedure integer->output-port one-argument-compatible? (one-argument-truly-compatible? fixnum-type?) (list fixnum-type?) (list fixnum-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch fixnum-type? w1 r t1 (lambda (u1) (widen r (c:file*-cast (c:value t1 u1 w1)) output-port-type?)) (lambda (p?) (compile-error "integer_to_output_port" y p?)))) (define-primitive-procedure integer->pointer one-argument-compatible? (one-argument-truly-compatible? fixnum-type?) (list fixnum-type?) (list fixnum-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch fixnum-type? w1 r t1 (lambda (u1) (widen r (c:void*-cast (c:value t1 u1 w1)) pointer-type?)) (lambda (p?) (compile-error "integer_to_pointer" y p?)))) (define-primitive-procedure clocks-per-second zero-arguments-compatible? (zero-arguments-truly-compatible?) '() '() (zero-arguments-propagate! (lambda () (propagate-result! ))) #f (widen r (c:clocks-per-second) fixnum-type?)) (define-primitive-procedure rand-max zero-arguments-compatible? (zero-arguments-truly-compatible?) '() '() (zero-arguments-propagate! (lambda () (propagate-result! ))) #f (widen r (c:rand-max) fixnum-type?)) (define-primitive-procedure pointer-size zero-arguments-compatible? (zero-arguments-truly-compatible?) '() '() (zero-arguments-propagate! (lambda () (propagate-result! ))) #f (widen r (c:pointer-size) fixnum-type?)) (define-primitive-procedure infinity? one-argument-compatible? (one-argument-truly-compatible? flonum-type?) (list flonum-type?) (list flonum-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ) (propagate-result! ))) #f (type-switch flonum-type? w1 r t1 (lambda (u1) (compile-test r (c:==infinity (c:value t1 u1 w1)))) (lambda (p?) (compile-error "infinity" y p?)))) (define-primitive-procedure fork ;; note: FORK will fail miserably if you escape by calling a continuation. two-arguments-compatible? (two-arguments-truly-compatible? (truly-compatible-procedure? (if (converted? y) (list w0) '()) *null* (recreate-call-site y 'first-argument)) (truly-compatible-procedure? (if (converted? y) (list w0) '()) *null* (recreate-call-site y 'second-argument))) (list (truly-compatible-procedure? (if (converted? y) (list w0) '()) *null* (recreate-call-site y 'first-argument)) (truly-compatible-procedure? (if (converted? y) (list w0) '()) *null* (recreate-call-site y 'second-argument))) (list (truly-compatible-procedure? (if (converted? y) (list w0) '()) *null* (recreate-call-site y 'first-argument)) (truly-compatible-procedure? (if (converted? y) (list w0) '()) *null* (recreate-call-site y 'second-argument))) (two-arguments-propagate! (lambda (w1 w2) (propagate-call! (recreate-call-site y 'first-argument) w1 (if (converted? y) (list w0) '()) *null*) (propagate-call! (recreate-call-site y 'second-argument) w2 (if (converted? y) (list w0) '()) *null*))) ;; needs work: I can't remember what promotors do and thus can't figure out ;; if FORK needs one and, if so, how to write it. #f ;; needs work: To use code-generation abstractions. (begin (set! *program-has-pthreads?* #t) (include! "pthread") ;pthread_t pthread_create pthread_join (when (converted? y) (unimplemented y "Converted calls to FORK are not (yet) implemented")) (braces-around (newline-between (semicolon-after "pthread_t thread") ;; note: This uses GNU C internal functions. "void *branch(void *ignore)" (braces-around (newline-between (if (void? w1) (compile-error "void_call" y #t) (type-switch (compatible-procedure? '() *null* (recreate-call-site y 'first-argument)) w1 (unreturnify r) t1 (lambda (u1) (compile-call (unreturnify r) (recreate-call-site y 'first-argument) t1 u1 w1 t0 w0 '() '() #f *null*)) (lambda (p?) (compile-error "call" y p?)))) (semicolon-after "return NULL"))) (semicolon-after "pthread_create(&thread, NULL, &branch, NULL)") (if (void? w2) (compile-error "void_call" y #t) (type-switch (compatible-procedure? '() *null* (recreate-call-site y 'second-argument)) w2 (unreturnify r) t2 (lambda (u2) (compile-call (unreturnify r) (recreate-call-site y 'second-argument) t2 u2 w2 t0 w0 '() '() #f *null*)) (lambda (p?) (compile-error "call" y p?)))) (semicolon-after "pthread_join(thread, NULL)") (compile-return r))))) (define-primitive-procedure mutex ;; note: MUTEX will not unlock the mutex if you escape by calling a ;; continuation. one-argument-compatible? (one-argument-truly-compatible? (truly-compatible-procedure? (if (converted? y) (list w0) '()) *null* (recreate-call-site y 'first-argument))) (list (truly-compatible-procedure? (if (converted? y) (list w0) '()) *null* (recreate-call-site y 'first-argument))) (list (truly-compatible-procedure? (if (converted? y) (list w0) '()) *null* (recreate-call-site y 'first-argument))) (one-argument-propagate! (lambda (w1) (propagate-call! (recreate-call-site y 'first-argument) w1 (if (converted? y) (list w0) '()) *null*))) ;; needs work: I can't remember what promotors do and thus can't figure out ;; if MUTEX needs one and, if so, how to write it. #f ;; needs work: To use code-generation abstractions. (begin (set! *program-has-pthreads?* #t) ;; pthread_mutex_t pthread_mutex_lock pthread_mutex_unlock ;; PTHREAD_MUTEX_INITIALIZER (include! "pthread") (when (converted? y) (unimplemented y "Converted calls to MUTEX are not (yet) implemented")) (outside-main (semicolon-after (space-between "pthread_mutex_t" (c:mutex (call-site-expression y)) "=" "PTHREAD_MUTEX_INITIALIZER"))) (newline-between ;; needs work: Can use PTHREAD_MUTEX_INITIALIZER to make a fast mutex when ;; this expression isn't in a recursive path ;; in the call graph. ;; needs work: For now, under Linux PTHREAD_RECURSIVE_MUTEX_INITIALIZER_NP ;; is broken. (c:gosub "pthread_mutex_lock" (c:& (c:mutex (call-site-expression y)))) (if (void? w1) (compile-error "void_call" y #t) (type-switch (compatible-procedure? '() *null* (recreate-call-site y 'first-argument)) w1 r t1 (lambda (u1) (compile-call r (recreate-call-site y 'first-argument) t1 u1 w1 t0 w0 '() '() #f *null*)) (lambda (p?) (compile-error "call" y p?)))) (c:gosub "pthread_mutex_unlock" (c:& (c:mutex (call-site-expression y)))) (compile-return r)))) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/source/stalin5a.sc0000600017435200151030000016307510464434544014764 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; Stalin 0.11 - A global optimizing compiler for Scheme ;;; Copyright 1993, 1994, and 1995 University of Toronto. All rights reserved. ;;; Copyright 1996 Technion. All rights reserved. ;;; Copyright 1996 and 1997 University of Vermont. All rights reserved. ;;; Copyright 1997, 1998, 1999, 2000, and 2001 NEC Research Institute, Inc. All ;;; rights reserved. ;;; Copyright 2002, 2003, 2004, 2005, and 2006 Purdue University. All rights ;;; reserved. ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License ;;; as published by the Free Software Foundation; either version 2 ;;; of the License, or (at your option) any later version. ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;;; written by: ;;; Jeffrey Mark Siskind ;;; School of Electrical and Computer Engineering ;;; Purdue University ;;; Electrical Engineering Building, Room 330 ;;; 465 Northwestern Avenue ;;; West Lafayette IN 47907-2035 USA ;;; voice: 765/496-3197 ;;; fax: 765/494-6440 ;;; qobi@purdue.edu ;;; http://www.ece.purdue.edu/~qobi ;;; Begin delete for Trotsky (module stalin5a) (include "QobiScheme.sch") (include "stalin5a.sch") ;;; End delete for Trotsky (define *list->vector* #f) (define *append* #f) (define *cons* #f) (define *eqv?* #f) ;;; Backquote (define (contains-unquote? s) (or (and (sx-list? s) (= (sx-length s) 2) (or (sx-eq? (sx-first s) 'unquote) (sx-eq? (sx-first s) 'unquote-splicing))) (and (sx-vector? s) (sx-some-vector contains-unquote? s)) (and (sx-pair? s) (or (contains-unquote? (sx-car s)) (contains-unquote? (sx-cdr s)))))) (define (expand-quasiquote s) ;; needs work: This encapsulation loses the line and character positions of ;; the quasiquote expression that is being rewritten. (encapsulate (if (contains-unquote? s) (cond ((and (sx-list? s) (= (sx-length s) 2) (or (sx-eq? (sx-first s) 'unquote) (sx-eq? (sx-first s) 'unquote-splicing))) s) ((sx-vector? s) (let ((ss (map expand-quasiquote (sx-vector->list s)))) (if (some (lambda (s) (sx-eq? (sx-first s) 'unquote-splicing)) ss) (list 'unquote `(,*list->vector* (,*append* ,@(map (lambda (s) (case (sx-datum (sx-first s)) ((unquote) `(,*cons* ,(sx-second s) '())) ((unquote-splicing) (sx-second s)) ((quote) `'(,(sx-second s))) (else (fuck-up)))) ss)))) (list 'unquote `((primitive-procedure vector) ,@(map (lambda (s) (if (sx-eq? (sx-first s) 'unquote) (sx-second s) s)) ss)))))) ((sx-pair? s) (let ((s1 (expand-quasiquote (sx-car s))) (s2 (expand-quasiquote (sx-cdr s)))) (case (sx-datum (sx-first s1)) ((unquote) (case (sx-datum (sx-first s2)) ((unquote) (list 'unquote `(,*cons* ,(sx-second s1) ,(sx-second s2)))) ((unquote-splicing) (syntax-error s "Improper UNQUOTE-SPLICING")) ((quote) (list 'unquote `(,*cons* ,(sx-second s1) ,s2))) (else (fuck-up)))) ((unquote-splicing) (case (sx-datum (sx-first s2)) ((unquote) ;; needs work: This doesn't handle the case `(,@A . ,B) where B is ;; not a list. (list 'unquote `(,*append* ,(sx-second s1) ,(sx-second s2)))) ((unquote-splicing) (syntax-error s "Improper UNQUOTE-SPLICING")) ((quote) ;; needs work: This doesn't handle the case `(,@A . B). (list 'unquote `(,*append* ,(sx-second s1) ,s2))) (else (fuck-up)))) ((quote) (case (sx-datum (sx-first s2)) ((unquote) (list 'unquote `(,*cons* ,s1 ,(sx-second s2)))) ((unquote-splicing) (syntax-error s "Improper UNQUOTE-SPLICING")) ((quote) `'(,(sx-second s1) . ,(sx-second s2))) (else (fuck-up)))) (else (fuck-up))))) (else `',s)) `',s))) ;;; DEFINEs (define (defined-variables ss) (let loop ((ss ss) (ss1 '())) (cond ((null? ss) ss1) ((and (sx-pair? (first ss)) (sx-eq? (sx-first (first ss)) 'define)) ;; Extension to R4RS: undefined defines. (cond ((and (or (= (sx-length (first ss)) 2) (= (sx-length (first ss)) 3)) (sx-symbol? (sx-second (first ss)))) (loop (rest ss) (if (memq (sx-datum (sx-second (first ss))) (map sx-datum ss1)) ss1 (cons (sx-second (first ss)) ss1)))) ((and (>= (sx-length (first ss)) 2) (sx-pair? (sx-second (first ss)))) (loop (rest ss) (if (memq (sx-datum (sx-first (sx-second (first ss)))) (map sx-datum ss1)) ss1 (cons (sx-first (sx-second (first ss))) ss1)))) (else (syntax-error (first ss) "Improper DEFINE")))) (else (loop (rest ss) ss1))))) (define (body s) (cond ((and (sx-list? s) (sx-pair? s) (sx-eq? (sx-first s) 'begin)) (let ((ss (body-list (sx-rest s)))) (if (every (lambda (s) (and (sx-list? s) (sx-pair? s) (sx-eq? (sx-first s) 'define))) ss) ss ;; needs work: This encapsulation loses the line and character ;; positions of the BEGIN expression that is being ;; rewritten. (list (encapsulate `(begin ,@ss)))))) ((and (sx-list? s) (sx-pair? s) (macro? (sx-first s))) (body (expand-macro s))) (else (list s)))) (define (body-list s) (reduce append (sx-map body s) '())) (define (macroexpand-body s) ;; Extension to R4RS: definitions can appear more places. (unless (s-expression-macroexpand-body s) (set-s-expression-macroexpand-body! s (let ((ss (body-list (sx-rest (sx-rest s))))) ;; needs work: This encapsulation loses the line and character positions of ;; the lambda expression that is being rewritten. (encapsulate (if (some (lambda (s) (and (sx-list? s) (sx-pair? s) (sx-eq? (sx-first s) 'define))) ss) (let ((ss1 (defined-variables ss)) (ss (map (lambda (s) (if (and (sx-pair? s) (sx-eq? (sx-first s) 'define)) (if (sx-symbol? (sx-second s)) `(set! ,(sx-second s) ,(sx-third s)) `(set! ,(sx-first (sx-second s)) (lambda ,(sx-rest (sx-second s)) ,@(sx-unlist (sx-rest (sx-rest s)))))) s)) (remove-if (lambda (s) (and (sx-pair? s) (sx-eq? (sx-first s) 'define) (= (sx-length s) 2))) ss)))) (cond ((null? ss) `(,(sx-first s) ,(sx-second s))) ((null? (rest ss)) `(,(sx-first s) ,(sx-second s) ((lambda ,ss1 ,(last ss)) ,@(map (lambda (s) '((lambda ()))) ss1)))) (else `(,(sx-first s) ,(sx-second s) ((lambda ,ss1 ;; note: This transformation relies on left-to-right argument ;; evaluation order. ((lambda ,(map (lambda (s) (gensym "hunoz")) (but-last ss)) ,(last ss)) ,@(but-last ss))) ,@(map (lambda (s) '((lambda ()))) ss1)))))) (if (or (null? ss) (null? (rest ss))) s `(,(sx-first s) ,(sx-second s) ;; note: This transformation relies on left-to-right argument ;; evaluation order. ((lambda ,(map (lambda (s) (gensym "hunoz")) (but-last ss)) ,(last ss)) ,@(but-last ss))))))))) (s-expression-macroexpand-body s)) ;;; The macros (define *macros* '()) (define *r4rs-macros* (list (list 'cond (lambda (s) (unless (and (sx-every (lambda (s) (and (sx-list? s) (sx-pair? s))) (sx-rest s)) (or (= (sx-length s) 1) (and (sx-every (lambda (s) (or (< (sx-length s) 2) (not (sx-eq? (sx-second s) '=>)) (= (sx-length s) 3))) (sx-rest s)) (every (lambda (s) (not (sx-eq? (sx-first s) 'else))) (rest (reverse (rest (sx-unlist s)))))))) (syntax-error s "Improper COND")) (cond ((= (sx-length s) 1) '((lambda ()))) ((sx-eq? (sx-first (sx-second s)) 'else) `(begin ,@(sx-unlist (sx-rest (sx-second s))))) ((sx-null? (sx-rest (sx-second s))) `(or ,(sx-first (sx-second s)) (cond ,@(sx-unlist (sx-rest (sx-rest s)))))) ((and (= (sx-length (sx-second s)) 3) (sx-eq? (sx-second (sx-second s)) '=>)) (let ((v (gensym "v"))) ;; conventions: V `(let ((,v ,(sx-first (sx-second s)))) (if ,v (,(sx-third (sx-second s)) ,v) (cond ,@(sx-unlist (sx-rest (sx-rest s)))))))) (else `(if ,(sx-first (sx-second s)) (begin ,@(sx-unlist (sx-rest (sx-second s)))) (cond ,@(sx-unlist (sx-rest (sx-rest s))))))))) (list 'case (lambda (s) (unless (and (>= (sx-length s) 2) (sx-every (lambda (s) (and (sx-list? s) (sx-pair? s))) (sx-rest (sx-rest s))) (or (= (sx-length s) 2) (and (every (lambda (s) (sx-list? (sx-first s))) (rest (reverse (rest (rest (sx-unlist s)))))) (or (sx-eq? (sx-first (sx-last s)) 'else) (sx-list? (sx-first (sx-last s))))))) (syntax-error s "Improper CASE")) (let ((v (gensym "v"))) ;; conventions: V `(let ((,v ,(sx-second s))) ,(if (and (>= (sx-length s) 3) (sx-eq? (sx-first (sx-last s)) 'else)) `(cond ,@(map (lambda (s) `((or ,@(sx-map (lambda (s) `(,*eqv?* ,v ',s)) (sx-first s))) ,@(sx-unlist (sx-rest s)))) (but-last (rest (rest (sx-unlist s))))) ,(sx-last s)) `(cond ,@(sx-map (lambda (s) `((or ,@(sx-map (lambda (s) `(,*eqv?* ,v ',s)) (sx-first s))) ,@(sx-unlist (sx-rest s)))) (sx-rest (sx-rest s))))))))) (list 'and (lambda (s) (cond ((= (sx-length s) 1) #t) ((= (sx-length s) 2) (sx-second s)) (else `(if ,(sx-second s) (and ,@(sx-unlist (sx-rest (sx-rest s)))) #f))))) (list 'or (lambda (s) (cond ((= (sx-length s) 1) #f) ((= (sx-length s) 2) (sx-second s)) (else (let ((v (gensym "v"))) ;; conventions: V `(let ((,v ,(sx-second s))) (if ,v ,v (or ,@(sx-unlist (sx-rest (sx-rest s))))))))))) (list 'let ;; Extension to R4RS: Binding can be symbol. (lambda (s) (unless (and (>= (sx-length s) 2) (or (and (sx-list? (sx-second s)) (sx-every (lambda (s) (or (sx-symbol? s) (and (sx-list? s) (= (sx-length s) 2)))) (sx-second s))) (and (sx-symbol? (sx-second s)) (>= (sx-length s) 3) (sx-list? (sx-third s)) (sx-every (lambda (s) (or (sx-symbol? s) (and (sx-list? s) (= (sx-length s) 2)))) (sx-third s))))) (syntax-error s "Improper LET")) (if (sx-list? (sx-second s)) ;; note: This is more complicated than it has to be in attempt to ;; match the Scheme->C argument evaluation order. `((lambda ,(map (lambda (s) (if (sx-symbol? s) s (sx-first s))) (reverse (sx-unlist (sx-second s)))) ,@(sx-unlist (sx-rest (sx-rest s)))) ,@(map (lambda (s) (if (sx-symbol? s) '((lambda ())) (sx-second s))) (reverse (sx-unlist (sx-second s))))) `((letrec ((,(sx-second s) (lambda ,(sx-map (lambda (s) (if (sx-symbol? s) s (sx-first s))) (sx-third s)) ,@(sx-unlist (sx-rest (sx-rest (sx-rest s))))))) ,(sx-second s)) ,@(sx-map (lambda (s) (if (sx-symbol? s) '((lambda ())) (sx-second s))) (sx-third s)))))) (list 'let* ;; Extension to R4RS: Binding can be symbol. (lambda (s) (unless (and (>= (sx-length s) 2) (sx-list? (sx-second s)) (sx-every (lambda (s) (or (sx-symbol? s) (and (sx-list? s) (= (sx-length s) 2)))) (sx-second s))) (syntax-error s "Improper LET*")) (if (sx-null? (sx-second s)) `(begin ,@(sx-unlist (sx-rest (sx-rest s)))) `(let (,(sx-first (sx-second s))) (let* ,(sx-rest (sx-second s)) ,@(sx-unlist (sx-rest (sx-rest s)))))))) (list 'letrec ;; Extension to R4RS: Binding can be symbol. (lambda (s) (unless (and (>= (sx-length s) 2) (sx-list? (sx-second s)) (sx-every (lambda (s) (or (sx-symbol? s) (and (sx-list? s) (= (sx-length s) 2)))) (sx-second s))) (syntax-error s "Improper LETREC")) `(let ,(sx-map (lambda (s) (if (sx-symbol? s) `(,s ((lambda ()))) `(,(sx-first s) ((lambda ()))))) (sx-second s)) ,@(map (lambda (s) `(set! ,(sx-first s) ,(sx-second s))) (remove-if sx-symbol? (sx-unlist (sx-second s)))) ,@(sx-unlist (sx-rest (sx-rest s)))))) (list 'begin (lambda (s) `((lambda () ,@(sx-unlist (sx-rest s)))))) (list 'do (lambda (s) ;; Extension to R4RS: Iterators can be empty. (unless (and (>= (sx-length s) 3) (sx-list? (sx-second s)) (sx-every (lambda (s) (and (sx-list? s) (or (= (sx-length s) 2) (= (sx-length s) 3)))) (sx-second s)) (sx-list? (sx-third s)) (>= (sx-length (sx-third s)) 1)) (syntax-error s "Improper DO")) (let ((loop (gensym "loop"))) ;; conventions: LOOP `(letrec ((,loop (lambda ,(sx-map sx-first (sx-second s)) (if ,(sx-first (sx-third s)) (begin ,@(sx-unlist (sx-rest (sx-third s)))) (begin ,@(sx-unlist (sx-rest (sx-rest (sx-rest s)))) (,loop ,@(sx-map (lambda (s) (if (= (sx-length s) 2) (sx-first s) (sx-third s))) (sx-second s)))))))) (,loop ,@(sx-map sx-second (sx-second s))))))) (list 'delay (lambda (s) (unless (= (sx-length s) 2) (syntax-error s "Improper DELAY")) `((lambda (proc) (let ((result-ready? #f) (result #f)) (lambda () (if result-ready? result (let ((x (proc))) (if result-ready? result (begin (set! result-ready? #t) (set! result x) result))))))) (lambda () ,(sx-second s))))) (list 'quasiquote (lambda (s) (unless (= (sx-length s) 2) (syntax-error s "Improper QUASIQUOTE")) (let ((s (expand-quasiquote (sx-second s)))) (case (sx-datum (sx-first s)) ((unquote) (sx-second s)) ((unquote-splicing) (syntax-error s "Improper UNQUOTE-SPLICING")) ((quote) s) (else (fuck-up)))))) (list 'unquote (lambda (s) (syntax-error s "UNQUOTE not inside QUASIQUOTE"))) (list 'unquote-splicing (lambda (s) (syntax-error s "UNQUOTE-SPLICING not inside QUASIQUOTE"))))) ;;; The Scheme library (define *read* '(define (read . port) ;; needs work: Long predecimal point digit strings can overflow. ;; needs work: Mantissa can overflow or underflow even though exponent ;; would prevent that overflow or underflow. ;; needs work: Can't read largest negative number. ;; needs work: To handle polar numbers with @. ;; needs work: To handle rectangular numbers with i. ;; needs work: To handle ratios with /. ;; needs work: To handle numbers with embedded #. ;; needs work: To handle exactness with #e and #i. ;; needs work: To handle structures. (set! port (if (null? port) (current-input-port) (car port))) ;; needs work: The DOT and CLOSE gensyms should be extracted and bound by a ;; LET that is outside the DEFINE of READ. (let ((dot (string->uninterned-symbol (string-copy "dot"))) (close (string->uninterned-symbol (string-copy "close")))) (let read ((state 'object)) (define (read-exact-binary-integer n) (let ((c (peek-char port))) (cond ((eof-object? c) n) ((char=? c #\0) (read-char port) (read-exact-binary-integer (* 2 n))) ((char=? c #\1) (read-char port) (read-exact-binary-integer (+ (* 2 n) 1))) (else n)))) (define (read-exact-octal-integer n) (let ((c (peek-char port))) (cond ((eof-object? c) n) ((and (char>=? c #\0) (char<=? c #\7)) (read-char port) (read-exact-octal-integer (+ (* 8 n) (- (char->integer c) (char->integer #\0))))) (else n)))) (define (read-exact-decimal-integer n) (let ((c (peek-char port))) (cond ((eof-object? c) n) ((char-numeric? c) (read-char port) (read-exact-decimal-integer (+ (* 10 n) (- (char->integer c) (char->integer #\0))))) (else n)))) (define (read-exact-hexadecimal-integer n) (let ((c (peek-char port))) (cond ((eof-object? c) n) ((char-numeric? c) (read-char port) (read-exact-hexadecimal-integer (+ (* 16 n) (- (char->integer c) (char->integer #\0))))) ((and (char>=? c #\a) (char<=? c #\f)) (read-char port) (read-exact-hexadecimal-integer (+ (* 16 n) (- (char->integer c) (char->integer #\a)) 10))) ((and (char>=? c #\A) (char<=? c #\F)) (read-char port) (read-exact-hexadecimal-integer (+ (* 16 n) (- (char->integer c) (char->integer #\A)) 10))) (else n)))) (define (read-inexact-number n m) (let ((c1 (peek-char port))) (cond ((eof-object? c1) n) ((char-numeric? c1) (read-char port) (read-inexact-number (+ n (/ (- (char->integer c1) (char->integer #\0)) m)) (* m 10.0))) ((or (char=? c1 #\e) (char=? c1 #\E) (char=? c1 #\s) (char=? c1 #\S) (char=? c1 #\f) (char=? c1 #\F) (char=? c1 #\d) (char=? c1 #\D) (char=? c1 #\l) (char=? c1 #\L)) (read-char port) (let ((c2 (read-char port))) (if (eof-object? c2) (panic "EOF while reading exponent")) (cond ((char-numeric? c2) (* n (expt 10.0 (read-exact-decimal-integer (- (char->integer c2) (char->integer #\0)))))) ((char=? c2 #\+) (let ((c3 (read-char port))) (if (eof-object? c3) (panic "EOF while reading exponent")) (if (not (char-numeric? c3)) (panic "Unfinished exponent")) (* n (expt 10.0 (read-exact-decimal-integer (- (char->integer c3) (char->integer #\0))))))) ((char=? c2 #\-) (let ((c3 (read-char port))) (if (eof-object? c3) (panic "EOF while reading exponent")) (if (not (char-numeric? c3)) (panic "Unfinished exponent")) (* n (expt 10.0 (- (read-exact-decimal-integer (- (char->integer c3) (char->integer #\0)))))))) (else (panic "Unfinished exponent"))))) (else n)))) (define (read-number n) (let ((c1 (peek-char port))) (cond ((eof-object? c1) n) ((char-numeric? c1) (read-char port) (read-number (+ (* 10 n) (- (char->integer c1) (char->integer #\0))))) ((char=? c1 #\.) (read-char port) (read-inexact-number (exact->inexact n) 10.0)) ((or (char=? c1 #\e) (char=? c1 #\E) (char=? c1 #\s) (char=? c1 #\S) (char=? c1 #\f) (char=? c1 #\F) (char=? c1 #\d) (char=? c1 #\D) (char=? c1 #\l) (char=? c1 #\L)) (read-char port) (let ((c2 (read-char port))) (if (eof-object? c2) (panic "EOF while reading exponent")) (cond ((char-numeric? c2) (* (exact->inexact n) (expt 10.0 (read-exact-decimal-integer (- (char->integer c2) (char->integer #\0)))))) ((char=? c2 #\+) (let ((c3 (read-char port))) (if (eof-object? c3) (panic "EOF while reading exponent")) (if (not (char-numeric? c3)) (panic "Unfinished exponent")) (* (exact->inexact n) (expt 10.0 (read-exact-decimal-integer (- (char->integer c3) (char->integer #\0))))))) ((char=? c2 #\-) (let ((c3 (read-char port))) (if (eof-object? c3) (panic "EOF while reading exponent")) (if (not (char-numeric? c3)) (panic "Unfinished exponent")) (* (exact->inexact n) (expt 10.0 (- (read-exact-decimal-integer (- (char->integer c3) (char->integer #\0)))))))) (else (panic "Unfinished exponent"))))) (else n)))) (define (char-initial? c) (or (char-alphabetic? c) (char=? c #\~) (char=? c #\!) (char=? c #\$) (char=? c #\%) (char=? c #\^) (char=? c #\&) (char=? c #\*) (char=? c #\_) (char=? c #\/) (char=? c #\:) (char=? c #\<) (char=? c #\=) (char=? c #\>) (char=? c #\?))) (define (char-subsequent? c) (or (char-initial? c) (char-numeric? c) (char=? c #\+) (char=? c #\-) (char=? c #\.))) (define (read-symbol s) ;; needs work: To eliminate LIST-REVERSE. (let ((c (peek-char port))) (cond ((eof-object? c) (string->symbol (list->string (list-reverse s)))) ((char-subsequent? c) (read-char port) (read-symbol (cons (char-upcase c) s))) (else (string->symbol (list->string (list-reverse s))))))) (define (lookup-character-name s) (let loop ((names '(((#\e #\c #\a #\p #\s) . #\space) ((#\e #\n #\i #\l #\w #\e #\n) . #\newline)))) (if (null? names) (panic "Unrecognized character name")) (if (let loop? ((s s) (name (car (car names)))) (or (and (null? s) (null? name)) (and (not (null? s)) (not (null? name)) (char-ci=? (car s) (car name)) (loop? (cdr s) (cdr name))))) (cdr (car names)) (loop (cdr names))))) (define (read-character-name s) (let ((c (peek-char port))) (cond ((eof-object? c) (lookup-character-name s)) ((char-alphabetic? c) (read-char port) (read-character-name (cons c s))) (else (if (and (not (null? s)) (null? (cdr s))) (car s) (lookup-character-name s)))))) (let ((c1 (read-char port))) (cond ((eof-object? c1) ;; note: Manually split EQV? here by removing CASE. (cond ((eq? state 'object) c1) ((eq? state 'list) (panic "EOF while reading list")) ((eq? state 'vector) (panic "EOF while reading vector")) ((eq? state 'quote) (panic "EOF while reading quoted object")) ((eq? state 'quasiquote) (panic "EOF while reading quasiquoted object")) ((eq? state 'unquote-splicing) (panic "EOF while reading unquote-slicing object")) ((eq? state 'unquote) (panic "EOF while reading unquoted object")) ((eq? state 'close) (panic "EOF while reading pair")) (else (panic "This shouldn't happen")))) ((char=? c1 #\;) (let loop () (if (let ((c (read-char port))) (and (not (eof-object? c)) (not (char=? c #\newline)))) (loop))) (read state)) ((char=? c1 #\)) (if (and (not (eq? state 'list)) (not (eq? state 'vector)) (not (eq? state 'close))) (panic "Mismatched closing parenthesis")) close) ((char-whitespace? c1) (read state)) ((eq? state 'close) (panic "Only one object allowed after dot")) ((char=? c1 #\') (list 'quote (read 'quote))) ((char=? c1 #\`) (list 'quasiquote (read 'quasiquote))) ((char=? c1 #\,) (let ((c2 (peek-char port))) (if (eof-object? c2) (panic "EOF after dot")) (cond ((char=? c2 #\@) (read-char port) (list 'unquote-splicing (read 'unquote-splicing))) (else (list 'unquote (read 'unquote)))))) ((char=? c1 #\() (let loop ((s '())) (let ((e (read 'list))) ;; needs work: To eliminate LIST-REVERSE. (cond ((eq? e dot) (if (null? s) (panic "Dot cannot be first element of list")) (let* ((e1 (read 'object)) (e2 (read 'close))) (let loop ((s (cdr s)) (c (cons (car s) e1))) (if (null? s) c (loop (cdr s) (cons (car s) c)))))) ((eq? e close) (list-reverse s)) (else (loop (cons e s))))))) ((char=? c1 #\#) (let ((c2 (read-char port))) (if (eof-object? c2) (panic "EOF after sharp sign")) (cond ((or (char=? c2 #\t) (char=? c2 #\T)) #t) ((or (char=? c2 #\f) (char=? c2 #\F)) #f) ((or (char=? c2 #\b) (char=? c2 #\B)) (let ((c3 (read-char port))) (if (eof-object? c3) (panic "EOF while reading binary number")) (cond ((char=? c3 #\0) (read-exact-binary-integer 0)) ((char=? c3 #\1) (read-exact-binary-integer 1)) ((char=? c3 #\+) (let ((c4 (read-char port))) (if (eof-object? c4) (panic "EOF while reading binary number")) (cond ((char=? c4 #\0) (read-exact-binary-integer 0)) ((char=? c4 #\1) (read-exact-binary-integer 1)) (else (panic "Unfinished binary number"))))) ((char=? c3 #\-) (let ((c4 (read-char port))) (if (eof-object? c4) (panic "EOF while reading binary number")) (cond ((char=? c4 #\0) (- (read-exact-binary-integer 0))) ((char=? c4 #\1) (- (read-exact-binary-integer 1))) (else (panic "Unfinished binary number"))))) (else (panic "Unfinished binary number"))))) ((or (char=? c2 #\o) (char=? c2 #\O)) (let ((c3 (read-char port))) (if (eof-object? c3) (panic "EOF while reading octal number")) (cond ((and (char>=? c3 #\0) (char<=? c3 #\7)) (read-exact-octal-integer (- (char->integer c3) (char->integer #\0)))) ((char=? c3 #\+) (let ((c4 (read-char port))) (if (eof-object? c4) (panic "EOF while reading octal number")) (if (or (char? c4 #\7)) (panic "Unfinished octal number")) (read-exact-octal-integer (- (char->integer c4) (char->integer #\0))))) ((char=? c3 #\-) (let ((c4 (read-char port))) (if (eof-object? c4) (panic "EOF while reading octal number")) (if (or (char? c4 #\7)) (panic "Unfinished octal number")) (- (read-exact-octal-integer (- (char->integer c4) (char->integer #\0)))))) (else (panic "Unfinished octal number"))))) ((or (char=? c2 #\d) (char=? c2 #\D)) (let ((c3 (read-char port))) (if (eof-object? c3) (panic "EOF while reading decimal number")) (cond ((char=? c3 #\+) (let ((c4 (read-char port))) (if (eof-object? c4) (panic "EOF while reading decimal number")) (cond ((char-numeric? c4) (read-number (- (char->integer c4) (char->integer #\0)))) ((char=? c4 #\.) (let ((c5 (read-char port))) (if (eof-object? c5) (panic "EOF while reading decimal number")) (if (not (char-numeric? c5)) (panic "Unfinished decimal number")) (read-inexact-number (/ (- (char->integer c5) (char->integer #\0)) 10.0) 100.0))) (else (panic "Unfinished decimal number"))))) ((char=? c3 #\-) (let ((c4 (read-char port))) (if (eof-object? c4) (panic "EOF while reading decimal number")) (cond ((char-numeric? c4) (- (read-number (- (char->integer c4) (char->integer #\0))))) ((char=? c4 #\.) (let ((c5 (read-char port))) (if (eof-object? c5) (panic "EOF while reading decimal number")) (if (not (char-numeric? c5)) (panic "Unfinished decimal number")) (- (read-inexact-number (/ (- (char->integer c5) (char->integer #\0)) 10.0) 100.0)))) (else (panic "Unfinished decimal number"))))) ((char=? c3 #\.) (let ((c4 (read-char port))) (if (eof-object? c4) (panic "EOF while reading decimal number")) (if (not (char-numeric? c4)) (panic "Unfinished decimal number")) (read-inexact-number (/ (- (char->integer c4) (char->integer #\0)) 10.0) 100.0))) ((char-numeric? c3) (read-number (- (char->integer c3) (char->integer #\0)))) (else (panic "Unfinished decimal number"))))) ((or (char=? c2 #\x) (char=? c2 #\X)) (let ((c3 (read-char port))) (if (eof-object? c3) (panic "EOF while reading hexadecimal number")) (cond ((char-numeric? c3) (read-exact-hexadecimal-integer (- (char->integer c3) (char->integer #\0)))) ((and (char>=? c3 #\a) (char<=? c3 #\f)) (read-exact-hexadecimal-integer (+ (- (char->integer c3) (char->integer #\a)) 10))) ((and (char>=? c3 #\A) (char<=? c3 #\F)) (read-exact-hexadecimal-integer (+ (- (char->integer c3) (char->integer #\A)) 10))) ((char=? c3 #\+) (let ((c4 (read-char port))) (if (eof-object? c4) (panic "EOF while reading hexadecimal number")) (cond ((char-numeric? c4) (read-exact-hexadecimal-integer (- (char->integer c4) (char->integer #\0)))) ((and (char>=? c4 #\a) (char<=? c4 #\f)) (read-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\a)) 10))) ((and (char>=? c4 #\A) (char<=? c4 #\F)) (read-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\A)) 10))) (else (panic "Unfinished hexadecimal number"))))) ((char=? c3 #\-) (let ((c4 (read-char port))) (if (eof-object? c4) (panic "EOF while reading hexadecimal number")) (cond ((char-numeric? c4) (- (read-exact-hexadecimal-integer (- (char->integer c4) (char->integer #\0))))) ((and (char>=? c4 #\a) (char<=? c4 #\f)) (- (read-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\a)) 10)))) ((and (char>=? c4 #\A) (char<=? c4 #\F)) (- (read-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\A)) 10)))) (else (panic "Unfinished hexadecimal number"))))) (else (panic "Unfinished hexadecimal number"))))) ((char=? c2 #\() (let loop ((s '())) (let ((e (read 'vector))) ;; needs work: To eliminate LIST-REVERSE. (if (eq? e close) (list->vector (list-reverse s)) (loop (cons e s)))))) ((char=? c2 #\\) (let ((c3 (read-char port))) (if (eof-object? c3) (panic "EOF while reading character constant")) (if (char-alphabetic? c3) (read-character-name (list c3)) c3))) (else (panic "Improper character after sharp sign"))))) ((char=? c1 #\") ;; needs work: To eliminate LIST-REVERSE. (let loop ((s '())) (let ((c (read-char port))) (if (eof-object? c) (panic "EOF while reading string")) (cond ((char=? c #\\) (let ((c1 (read-char port))) (if (eof-object? c1) (panic "EOF after backslash in string")) (loop (cons c1 s)))) ((char=? c #\") (list->string (list-reverse s))) (else (loop (cons c s))))))) ((char=? c1 #\+) (let ((c2 (peek-char port))) (cond ((eof-object? c2) '+) ((char-numeric? c2) (read-char port) (read-number (- (char->integer c2) (char->integer #\0)))) ((char=? c2 #\.) (read-char port) (let ((c3 (peek-char port))) (cond ((eof-object? c3) '\+.) ((char-numeric? c3) (read-char port) (read-inexact-number (/ (- (char->integer c3) (char->integer #\0)) 10.0) 100.0)) ((char-subsequent? c3) (read-char port) (read-symbol (list (char-upcase c3) (char-upcase c2) (char-upcase c1)))) (else '\+.)))) ((char-subsequent? c2) (read-char port) (read-symbol (list (char-upcase c2) (char-upcase c1)))) (else '+)))) ((char=? c1 #\-) (let ((c2 (peek-char port))) (cond ((eof-object? c2) '-) ((char-numeric? c2) (read-char port) (- (read-number (- (char->integer c2) (char->integer #\0))))) ((char=? c2 #\.) (read-char port) (let ((c3 (peek-char port))) (cond ((eof-object? c3) '\-.) ((char-numeric? c3) (read-char port) (- (read-inexact-number (/ (- (char->integer c3) (char->integer #\0)) 10.0) 100.0))) ((char-subsequent? c3) (read-char port) (read-symbol (list (char-upcase c3) (char-upcase c2) (char-upcase c1)))) (else '\-.)))) ((char-subsequent? c2) (read-char port) (read-symbol (list (char-upcase c2) (char-upcase c1)))) (else '-)))) ((char=? c1 #\.) (let ((c2 (peek-char port))) (if (eof-object? c2) (panic "EOF after dot")) (cond ((char-numeric? c2) (read-char port) (read-inexact-number (/ (- (char->integer c2) (char->integer #\0)) 10.0) 100.0)) ((char-subsequent? c2) (read-char port) (read-symbol (list (char-upcase c2) (char-upcase c1)))) ((eq? state 'list) dot) (else (panic "Dot allowed only inside list"))))) ((char-numeric? c1) (read-number (- (char->integer c1) (char->integer #\0)))) ((char-initial? c1) (read-symbol (list (char-upcase c1)))) (else (panic "Attempt to READ invalid character")))))))) (define *i/o* ;; needs work: ;; 1. DISPLAY-{STRING,EXACT-INTEGER,MANTISSA-EXPONENT,INEXACT-REAL}1, ;; WRITE1 ;; 2. recursive calls to DISPLAY-INEXACT-REAL2, WRITE2, and DISPLAY2 ;; should be optimized to not pass PORT ;; 3. check implementation of remainder and modulo ;; 4. rectangular numbers ;; 5. -0.0 ;; 6. should be able to print inexact numbers in non-scientific notation '(let ((buffer (make-vector 20)) ;enough for 64-bit numbers (the-current-input-port ((primitive-procedure standard-input-port))) (the-current-output-port ((primitive-procedure standard-output-port))) (write-methods '()) (display-methods '())) (define read-char1 (primitive-procedure read-char1)) (define peek-char1 (primitive-procedure peek-char1)) (define char-ready?1 (primitive-procedure char-ready?1)) (define write-char2 (primitive-procedure write-char2)) (define (display-string2 string port) (let ((n (string-length string))) (let loop ((i 0)) (if (< i n) (begin (write-char2 (string-ref string i) port) (loop (+ i 1))))))) (define (display-exact-integer2 number port) (cond ((positive? number) (let loop ((i 0) (number number)) (if (zero? number) (let loop ((i (- i 1))) (write-char2 (integer->char (+ (char->integer #\0) (vector-ref buffer i))) port) (if (not (zero? i)) (loop (- i 1)))) (begin (vector-set! buffer i (remainder number 10)) (loop (+ i 1) (quotient number 10)))))) ((negative? number) (write-char2 #\- port) (let loop ((i 0) (number number)) (if (zero? number) (let loop ((i (- i 1))) (write-char2 (integer->char (+ (char->integer #\0) (vector-ref buffer i))) port) (if (not (zero? i)) (loop (- i 1)))) (begin (vector-set! buffer i (- (remainder number 10))) (loop (+ i 1) (quotient number 10)))))) (else (write-char2 #\0 port)))) (define (display-mantissa-exponent2 mantissa exponent port) (let* ((float-digit (floor mantissa)) (digit (inexact->exact float-digit))) ;; needs work: This is a real kludge. (cond ((= digit 0) (display-mantissa-exponent2 (* 10.0 mantissa) (- exponent 1) port)) ((= digit 10) (display-mantissa-exponent2 (* 0.1 mantissa) (+ exponent 1) port)) (else (write-char2 (integer->char (+ (char->integer #\0) digit)) port) (write-char2 #\. port) (let loop ((mantissa (* 10.0 (- mantissa float-digit)))) (let* ((float-digit (floor mantissa)) (digit (inexact->exact float-digit))) (write-char2 (integer->char (+ (char->integer #\0) digit)) port) (let ((mantissa (* 10.0 (- mantissa float-digit)))) (if (not (zero? mantissa)) (loop mantissa))))) (if (not (zero? exponent)) (begin (write-char2 #\e port) (display-exact-integer2 exponent port))))))) (define (display-inexact-real2 number port) (cond ((not (= number number)) (display-string2 "#*NOT-A-NUMBER*" port)) (((primitive-procedure infinity?) number) (display-string2 "#*INFINITY*" port)) ((negative? number) (write-char2 #\- port) (display-inexact-real2 (- number) port)) ((zero? number) (display-string2 "0.0" port)) ((>= number 10.0) (let loop ((mantissa (* 0.1 number)) (exponent 1)) (if (>= mantissa 10.0) (loop (* 0.1 mantissa) (+ exponent 1)) (display-mantissa-exponent2 mantissa exponent port)))) ((< number 1.0) (let loop ((mantissa (* 10.0 number)) (exponent -1)) (if (< mantissa 1.0) (loop (* 10.0 mantissa) (- exponent 1)) (display-mantissa-exponent2 mantissa exponent port)))) (else (display-mantissa-exponent2 number 0 port)))) (define (write2 obj port) (cond ((null? obj) (display-string2 "()" port)) ((eq? obj #t) (display-string2 "#T" port)) ((not obj) (display-string2 "#F" port)) ((char? obj) ;; needs work: To handle other non printing characters. (cond ((char=? obj #\space) (display-string2 "#\\Space" port)) ((char=? obj #\newline) (display-string2 "#\\Newline" port)) (else (display-string2 "#\\" port) (write-char2 obj port)))) ((number? obj) (if (exact? obj) (display-exact-integer2 obj port) (display-inexact-real2 obj port))) ((input-port? obj) (display-string2 "#*INPUT-PORT*" port)) ((output-port? obj) (display-string2 "#*OUTPUT-PORT*" port)) ((eof-object? obj) (display-string2 "#*EOF-OBJECT*" port)) ((pointer? obj) (display-string2 "#*POINTER*" port)) ((symbol? obj) ;; needs work: Should slashify. (display-string2 (symbol->string obj) port)) ((procedure? obj) (display-string2 "#*PROCEDURE*" port)) ((string? obj) (write-char2 #\" port) (let ((n (string-length obj))) (let loop ((i 0)) (if (< i n) (let ((c (string-ref obj i))) (if (or (char=? c #\\) (char=? c #\")) (write-char2 #\\ port)) (write-char2 c port) (loop (+ i 1)))))) (write-char2 #\" port)) ((pair? obj) (write-char2 #\( port) (let loop ((obj obj)) (cond ((null? (cdr obj)) (write2 (car obj) port) (write-char2 #\) port)) ((pair? (cdr obj)) (write2 (car obj) port) (write-char2 #\space port) (loop (cdr obj))) (else (write2 (car obj) port) (display-string2 " . " port) (write2 (cdr obj) port) (write-char2 #\) port))))) ((vector? obj) (display-string2 "#(" port) (if (not (zero? (vector-length obj))) (begin (write2 (vector-ref obj 0) port) (let loop ((i 1)) (if (< i (vector-length obj)) (begin (write-char2 #\space port) (write2 (vector-ref obj i) port) (loop (+ i 1))))))) (write-char2 #\) port)) (else (let loop ((write-methods write-methods)) (cond ((null? write-methods) (display-string2 "#*UNKNOWN*" port)) (((car (car write-methods)) obj) ((cdr (car write-methods)) obj port)) (else (loop (cdr write-methods)))))))) (define (display2 obj port) (cond ((null? obj) (display-string2 "()" port)) ((eq? obj #t) (display-string2 "#T" port)) ((not obj) (display-string2 "#F" port)) ((char? obj) (write-char2 obj port)) ((number? obj) (if (exact? obj) (display-exact-integer2 obj port) (display-inexact-real2 obj port))) ((input-port? obj) (display-string2 "#*INPUT-PORT*" port)) ((output-port? obj) (display-string2 "#*OUTPUT-PORT*" port)) ((eof-object? obj) (display-string2 "#*EOF-OBJECT*" port)) ((pointer? obj) (display-string2 "#*POINTER*" port)) ((symbol? obj) (display-string2 (symbol->string obj) port)) ((procedure? obj) (display-string2 "#*PROCEDURE*" port)) ((string? obj) (display-string2 obj port)) ((pair? obj) (write-char2 #\( port) (let loop ((obj obj)) (cond ((null? (cdr obj)) (display2 (car obj) port) (write-char2 #\) port)) ((pair? (cdr obj)) (display2 (car obj) port) (write-char2 #\space port) (loop (cdr obj))) (else (display2 (car obj) port) (display-string2 " . " port) (display2 (cdr obj) port) (write-char2 #\) port))))) ((vector? obj) (display-string2 "#(" port) (if (not (zero? (vector-length obj))) (begin (display2 (vector-ref obj 0) port) (let loop ((i 1)) (if (< i (vector-length obj)) (begin (write-char2 #\space port) (display2 (vector-ref obj i) port) (loop (+ i 1))))))) (write-char2 #\) port)) (else (let loop ((display-methods display-methods)) (cond ((null? display-methods) (display-string2 "#*UNKNOWN*" port)) (((car (car display-methods)) obj) ((cdr (car display-methods)) obj port)) (else (loop (cdr display-methods)))))))) (set! number->string ;; Bengt Kleberg contributed the enhancements to ;; NUMBER->STRING to support the optional radix argument. (lambda (number . optional-radix) (let* ((radix-exact (if (null? optional-radix) 10 (let ((probably-radix (car optional-radix))) (if (and (integer? probably-radix) (exact? probably-radix) (or (= probably-radix 10) (and (integer? number) (exact? number) (or (= probably-radix 2) (= probably-radix 8) (= probably-radix 16))))) probably-radix (panic "Attempt to call NUMBER->STRING with invalid radix"))))) (radix-inexact (exact->inexact radix-exact)) (radix-inverted (/ radix-inexact))) ;; needs work: To handle optional radix argument better. (define (hex-digit->char digit) (vector-ref '#(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9 #\A #\B #\C #\D #\E #\F) digit)) (define (mantissa-exponent->characters mantissa exponent) (let* ((float-digit (floor mantissa)) (digit (inexact->exact float-digit))) ;; needs work: This is a real kludge. (cond ((= digit 0) (mantissa-exponent->characters (* radix-inexact mantissa) (- exponent 1))) ((= digit radix-exact) (mantissa-exponent->characters (* radix-inverted mantissa) (+ exponent 1))) (else (cons (hex-digit->char digit) (cons #\. (let loop ((mantissa (* radix-inexact (- mantissa float-digit)))) (let* ((float-digit (floor mantissa)) (digit (inexact->exact float-digit))) (cons (hex-digit->char digit) (let ((mantissa (* radix-inexact (- mantissa float-digit)))) (if (zero? mantissa) (if (zero? exponent) '() (cons #\e (cond ((positive? exponent) (let loop ((exponent exponent) (characters '())) (if (zero? exponent) characters (loop (quotient exponent radix-exact) (cons (hex-digit->char (remainder exponent radix-exact)) characters))))) ((negative? exponent) (let loop ((exponent exponent) (characters '())) (if (zero? exponent) (cons #\- characters) (loop (quotient exponent radix-exact) (cons (hex-digit->char (- (remainder exponent radix-exact))) characters)))))))) (loop mantissa)))))))))))) ;; NUMBER->STRING body (cond ((inexact? number) (cond ((not (= number number)) "#*NOT-A-NUMBER*") (((primitive-procedure infinity?) number) "#*INFINITY*") ((negative? number) (let ((number (- number))) (cond ((not (= number number)) "-#*NOT-A-NUMBER*") (((primitive-procedure infinity?) number) "-#*INFINITY*") ((>= number radix-inexact) (let loop ((mantissa (* radix-inverted number)) (exponent 1)) (if (>= mantissa radix-inexact) (loop (* radix-inverted mantissa) (+ exponent 1)) (list->string (cons #\- (mantissa-exponent->characters mantissa exponent)))))) ((< number 1.0) (let loop ((mantissa (* radix-inexact number)) (exponent -1)) (if (< mantissa 1.0) (loop (* radix-inexact mantissa) (- exponent 1)) (list->string (cons #\- (mantissa-exponent->characters mantissa exponent)))))) (else (list->string (cons #\- (mantissa-exponent->characters number 0))))))) ((zero? number) "0.0") ((>= number radix-inexact) (let loop ((mantissa (* radix-inverted number)) (exponent 1)) (if (>= mantissa radix-inexact) (loop (* radix-inverted mantissa) (+ exponent 1)) (list->string (mantissa-exponent->characters mantissa exponent))))) ((< number 1.0) (let loop ((mantissa (* radix-inexact number)) (exponent -1)) (if (< mantissa 1.0) (loop (* radix-inexact mantissa) (- exponent 1)) (list->string (mantissa-exponent->characters mantissa exponent))))) (else (list->string (mantissa-exponent->characters number 0))))) ((positive? number) (let loop ((number number) (characters '())) (if (zero? number) (list->string characters) (loop (quotient number radix-exact) (cons (hex-digit->char (remainder number radix-exact)) characters))))) ((negative? number) (let loop ((number number) (characters '())) (if (zero? number) (list->string (cons #\- characters)) (loop (quotient number radix-exact) (cons (hex-digit->char (- (remainder number radix-exact))) characters))))) (else "0"))))) (set! string->number (lambda (string) ;; needs work: Long predecimal point digit strings can overflow. ;; needs work: Mantissa can overflow or underflow even though exponent ;; would prevent that overflow or underflow. ;; needs work: Can't parse largest negative number. ;; needs work: To handle polar numbers with @. ;; needs work: To handle rectangular numbers with i. ;; needs work: To handle ratios with /. ;; needs work: To handle numbers with embedded #. ;; needs work: To handle exactness with #e and #i. ;; needs work: To handle optional radix argument. (let ((i 0) (l (string-length string))) (define (negate n) (if n (- n) #f)) (define (parse-exact-binary-integer n) (if (= i l) n (let ((c (string-ref string i))) (set! i (+ i 1)) (cond ((char=? c #\0) (parse-exact-binary-integer (* 2 n))) ((char=? c #\1) (parse-exact-binary-integer (+ (* 2 n) 1))) (else #f))))) (define (parse-exact-octal-integer n) (if (= i l) n (let ((c (string-ref string i))) (set! i (+ i 1)) (cond ((and (char>=? c #\0) (char<=? c #\7)) (parse-exact-octal-integer (+ (* 8 n) (- (char->integer c) (char->integer #\0))))) (else #f))))) (define (parse-exact-decimal-integer n) (if (= i l) n (let ((c (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c) (parse-exact-decimal-integer (+ (* 10 n) (- (char->integer c) (char->integer #\0))))) (else #f))))) (define (parse-exact-hexadecimal-integer n) (if (= i l) n (let ((c (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c) (parse-exact-hexadecimal-integer (+ (* 16 n) (- (char->integer c) (char->integer #\0))))) ((and (char>=? c #\a) (char<=? c #\f)) (parse-exact-hexadecimal-integer (+ (* 16 n) (- (char->integer c) (char->integer #\a)) 10))) ((and (char>=? c #\A) (char<=? c #\F)) (parse-exact-hexadecimal-integer (+ (* 16 n) (- (char->integer c) (char->integer #\A)) 10))) (else #f))))) (define (parse-inexact-number n m) (if (= i l) n (let ((c1 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c1) (parse-inexact-number (+ n (/ (- (char->integer c1) (char->integer #\0)) m)) (* m 10.0))) ((or (char=? c1 #\e) (char=? c1 #\E) (char=? c1 #\s) (char=? c1 #\S) (char=? c1 #\f) (char=? c1 #\F) (char=? c1 #\d) (char=? c1 #\D) (char=? c1 #\l) (char=? c1 #\L)) (if (= i l) #f (let ((c2 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c2) (let ((k (parse-exact-decimal-integer (- (char->integer c2) (char->integer #\0))))) (if k (* n (expt 10.0 k)) #f))) ((char=? c2 #\+) (if (= i l) #f (let ((c3 (string-ref string i))) (set! i (+ i 1)) (if (char-numeric? c3) (let ((k (parse-exact-decimal-integer (- (char->integer c3) (char->integer #\0))))) (if k (* n (expt 10.0 k)) #f)) #f)))) ((char=? c2 #\-) (if (= i l) #f (let ((c3 (string-ref string i))) (set! i (+ i 1)) (if (char-numeric? c3) (let ((k (parse-exact-decimal-integer (- (char->integer c3) (char->integer #\0))))) (if k (* n (expt 10.0 (- k))) #f)) #f)))) (else #f))))) (else #f))))) (define (parse-number n) (if (= i l) n (let ((c1 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c1) (parse-number (+ (* 10 n) (- (char->integer c1) (char->integer #\0))))) ((char=? c1 #\.) (parse-inexact-number (exact->inexact n) 10.0)) ((or (char=? c1 #\e) (char=? c1 #\E) (char=? c1 #\s) (char=? c1 #\S) (char=? c1 #\f) (char=? c1 #\F) (char=? c1 #\d) (char=? c1 #\D) (char=? c1 #\l) (char=? c1 #\L)) (if (= i l) #f (let ((c2 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c2) (let ((k (parse-exact-decimal-integer (- (char->integer c2) (char->integer #\0))))) (if k (* (exact->inexact n) (expt 10.0 k))))) ((char=? c2 #\+) (if (= i l) #f (let ((c3 (string-ref string i))) (set! i (+ i 1)) (if (char-numeric? c3) (let ((k (parse-exact-decimal-integer (- (char->integer c3) (char->integer #\0))))) (if k (* (exact->inexact n) (expt 10.0 k)) #f)) #f)))) ((char=? c2 #\-) (if (= i l) #f (let ((c3 (string-ref string i))) (set! i (+ i 1)) (if (char-numeric? c3) (let ((k (parse-exact-decimal-integer (- (char->integer c3) (char->integer #\0))))) (if k (* (exact->inexact n) (expt 10.0 (- k))) #f)) #f)))) (else #f))))) (else #f))))) (let loop () (if (= i l) #f (let ((c1 (string-ref string i))) (set! i (+ i 1)) (cond ((char-whitespace? c1) (loop)) ((char=? c1 #\#) (if (= i l) #f (let ((c2 (string-ref string i))) (set! i (+ i 1)) (cond ((or (char=? c2 #\b) (char=? c2 #\B)) (if (= i l) #f (let ((c3 (string-ref string i))) (set! i (+ i 1)) (cond ((char=? c3 #\0) (parse-exact-binary-integer 0)) ((char=? c3 #\1) (parse-exact-binary-integer 1)) ((char=? c3 #\+) (if (= i l) #f (let ((c4 (string-ref string i))) (set! i (+ i 1)) (cond ((char=? c4 #\0) (parse-exact-binary-integer 0)) ((char=? c4 #\1) (parse-exact-binary-integer 1)) (else #f))))) ((char=? c3 #\-) (if (= i l) #f (let ((c4 (string-ref string i))) (set! i (+ i 1)) (cond ((char=? c4 #\0) (negate (parse-exact-binary-integer 0))) ((char=? c4 #\1) (negate (parse-exact-binary-integer 1))) (else #f))))) (else #f))))) ((or (char=? c2 #\o) (char=? c2 #\O)) (if (= i l) #f (let ((c3 (string-ref string i))) (set! i (+ i 1)) (cond ((and (char>=? c3 #\0) (char<=? c3 #\7)) (parse-exact-octal-integer (- (char->integer c3) (char->integer #\0)))) ((char=? c3 #\+) (if (= i l) #f (let ((c4 (string-ref string i))) (set! i (+ i 1)) (if (and (char>=? c4 #\0) (char<=? c4 #\7)) (parse-exact-octal-integer (- (char->integer c4) (char->integer #\0))) #f)))) ((char=? c3 #\-) (if (= i l) #f (let ((c4 (string-ref string i))) (set! i (+ i 1)) (if (and (char>=? c4 #\0) (char<=? c4 #\7)) (negate (parse-exact-octal-integer (- (char->integer c4) (char->integer #\0)))) #f)))) (else #f))))) ((or (char=? c2 #\d) (char=? c2 #\D)) (if (= i l) #f (let ((c3 (string-ref string i))) (set! i (+ i 1)) (cond ((char=? c3 #\+) (if (= i l) #f (let ((c4 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c4) (parse-number (- (char->integer c4) (char->integer #\0)))) ((char=? c4 #\.) (if (= i l) #f (let ((c5 (string-ref string i))) (set! i (+ i 1)) (if (char-numeric? c5) (parse-inexact-number (/ (- (char->integer c5) (char->integer #\0)) 10.0) 100.0) #f)))) (else #f))))) ((char=? c3 #\-) (if (= i l) #f (let ((c4 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c4) (negate (parse-number (- (char->integer c4) (char->integer #\0))))) ((char=? c4 #\.) (if (= i l) #f (let ((c5 (string-ref string i))) (set! i (+ i 1)) (if (char-numeric? c5) (negate (parse-inexact-number (/ (- (char->integer c5) (char->integer #\0)) 10.0) 100.0)) #f)))) (else #f))))) ((char=? c3 #\.) (if (= i l) #f (let ((c4 (string-ref string i))) (set! i (+ i 1)) (if (char-numeric? c4) (parse-inexact-number (/ (- (char->integer c4) (char->integer #\0)) 10.0) 100.0) #f)))) ((char-numeric? c3) (parse-number (- (char->integer c3) (char->integer #\0)))) (else #f))))) ((or (char=? c2 #\x) (char=? c2 #\X)) (if (= i l) #f (let ((c3 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c3) (parse-exact-hexadecimal-integer (- (char->integer c3) (char->integer #\0)))) ((and (char>=? c3 #\a) (char<=? c3 #\f)) (parse-exact-hexadecimal-integer (+ (- (char->integer c3) (char->integer #\a)) 10))) ((and (char>=? c3 #\A) (char<=? c3 #\F)) (parse-exact-hexadecimal-integer (+ (- (char->integer c3) (char->integer #\A)) 10))) ((char=? c3 #\+) (if (= i l) #f (let ((c4 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c4) (parse-exact-hexadecimal-integer (- (char->integer c4) (char->integer #\0)))) ((and (char>=? c4 #\a) (char<=? c4 #\f)) (parse-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\a)) 10))) ((and (char>=? c4 #\A) (char<=? c4 #\F)) (parse-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\A)) 10))) (else #f))))) ((char=? c3 #\-) (if (= i l) #f (let ((c4 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c4) (negate (parse-exact-hexadecimal-integer (- (char->integer c4) (char->integer #\0))))) ((and (char>=? c4 #\a) (char<=? c4 #\f)) (negate (parse-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\a)) 10)))) ((and (char>=? c4 #\A) (char<=? c4 #\F)) (negate (parse-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\A)) 10)))) (else #f))))) (else #f))))) (else #f))))) ((char=? c1 #\+) (if (= i l) #f (let ((c2 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c2) (parse-number (- (char->integer c2) (char->integer #\0)))) ((char=? c2 #\.) (if (= i l) #f (let ((c3 (string-ref string i))) (set! i (+ i 1)) (if (char-numeric? c3) (parse-inexact-number (/ (- (char->integer c3) (char->integer #\0)) 10.0) 100.0) #f)))) (else #f))))) ((char=? c1 #\-) (if (= i l) #f (let ((c2 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c2) (negate (parse-number (- (char->integer c2) (char->integer #\0))))) ((char=? c2 #\.) (if (= i l) #f (let ((c3 (string-ref string i))) (set! i (+ i 1)) (if (char-numeric? c3) (negate (parse-inexact-number (/ (- (char->integer c3) (char->integer #\0)) 10.0) 100.0)) #f)))) (else #f))))) ((char=? c1 #\.) (if (= i l) #f (let ((c2 (string-ref string i))) (set! i (+ i 1)) (if (char-numeric? c2) (parse-inexact-number (/ (- (char->integer c2) (char->integer #\0)) 10.0) 100.0) #f)))) ((char-numeric? c1) (parse-number (- (char->integer c1) (char->integer #\0)))) (else #f)))))))) (set! current-input-port (lambda () the-current-input-port)) (set! current-output-port (lambda () the-current-output-port)) (set! with-input-from-file (lambda (string thunk) (let* ((saved-input-port the-current-input-port) (result (call-with-input-file string (lambda (port) (set! the-current-input-port port) (thunk))))) (set! the-current-input-port saved-input-port) result))) (set! with-output-to-file (lambda (string thunk) (let* ((saved-output-port the-current-output-port) (result (call-with-output-file string (lambda (port) (set! the-current-output-port port) (thunk))))) (set! the-current-output-port saved-output-port) result))) (set! read-char (lambda &rest (cond ((null? &rest) (read-char1 the-current-input-port)) ((null? (cdr &rest)) (read-char1 (car &rest))) (else (panic "Attempt to call READ-CHAR with the wrong number of arguments"))))) (set! peek-char (lambda &rest (cond ((null? &rest) (peek-char1 the-current-input-port)) ((null? (cdr &rest)) (peek-char1 (car &rest))) (else (panic "Attempt to call PEEK-CHAR with the wrong number of arguments"))))) (set! char-ready? (lambda &rest (cond ((null? &rest) (char-ready?1 the-current-input-port)) ((null? (cdr &rest)) (char-ready?1 (car &rest))) (else (panic "Attempt to call CHAR-READY? with the wrong number of arguments"))))) (set! write (lambda (obj . &rest) (cond ((null? &rest) (write2 obj the-current-output-port)) ((null? (cdr &rest)) (write2 obj (car &rest))) (else (panic "Attempt to call WRITE with the wrong number of arguments"))))) (set! display (lambda (obj . &rest) (cond ((null? &rest) (display2 obj the-current-output-port)) ((null? (cdr &rest)) (display2 obj (car &rest))) (else (panic "Attempt to call DISPLAY with the wrong number of arguments"))))) (set! newline (lambda &rest (cond ((null? &rest) (write-char2 #\newline the-current-output-port)) ((null? (cdr &rest)) (write-char2 #\newline (car &rest))) (else (panic "Attempt to call NEWLINE with the wrong number of arguments"))))) (set! write-char (lambda (char . &rest) (cond ((null? &rest) (write-char2 char the-current-output-port)) ((null? (cdr &rest)) (write-char2 char (car &rest))) (else (panic "Attempt to call WRITE-CHAR with the wrong number of arguments"))))) (set! define-write-method (lambda (type? method) (set! write-methods (cons (cons type? method) write-methods)))) (set! define-display-method (lambda (type? method) (set! display-methods (cons (cons type? method) display-methods)))))) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/source/stalin5b.sc0000600017435200151030000015151310464434544014757 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; Stalin 0.11 - A global optimizing compiler for Scheme ;;; Copyright 1993, 1994, and 1995 University of Toronto. All rights reserved. ;;; Copyright 1996 Technion. All rights reserved. ;;; Copyright 1996 and 1997 University of Vermont. All rights reserved. ;;; Copyright 1997, 1998, 1999, 2000, and 2001 NEC Research Institute, Inc. All ;;; rights reserved. ;;; Copyright 2002, 2003, 2004, 2005, and 2006 Purdue University. All rights ;;; reserved. ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License ;;; as published by the Free Software Foundation; either version 2 ;;; of the License, or (at your option) any later version. ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;;; written by: ;;; Jeffrey Mark Siskind ;;; School of Electrical and Computer Engineering ;;; Purdue University ;;; Electrical Engineering Building, Room 330 ;;; 465 Northwestern Avenue ;;; West Lafayette IN 47907-2035 USA ;;; voice: 765/496-3197 ;;; fax: 765/494-6440 ;;; qobi@purdue.edu ;;; http://www.ece.purdue.edu/~qobi ;;; Begin delete for Trotsky (module stalin5b) (include "QobiScheme.sch") (include "stalin5b.sch") ;;; End delete for Trotsky (define (scheme-library vs ss) ;; conventions: VS (encapsulate ;; 6. Standard procedures ;; 6.1 Booleans `(lambda (argv) (define (not obj) ((primitive-procedure not) obj)) (define (boolean? obj) ((primitive-procedure boolean?) obj)) ;; 6.2 Equivalence predicates (define (eqv? obj1 obj2) (or (eq? obj1 obj2) (and (number? obj1) (number? obj2) (= obj1 obj2)) (and (string? obj1) (string? obj2) (zero? (string-length obj1)) (zero? (string-length obj2))) (and (vector? obj1) (vector? obj2) (zero? (vector-length obj1)) (zero? (vector-length obj2))))) (define (eq? obj1 obj2) ((primitive-procedure eq?) obj1 obj2)) (define (equal? obj1 obj2) (or (eqv? obj1 obj2) (and (pair? obj1) (pair? obj2) (equal? (car obj1) (car obj2)) (equal? (cdr obj1) (cdr obj2))) (and (string? obj1) (string? obj2) (string=? obj1 obj2)) (and (vector? obj1) (vector? obj2) (= (vector-length obj1) (vector-length obj2)) (let loop? ((k 0)) (or (= k (vector-length obj1)) (and (equal? (vector-ref obj1 k) (vector-ref obj2 k)) (loop? (+ k 1)))))))) ;; 6.3 Pairs and lists (define (pair? obj) ((primitive-procedure structure? pair) obj)) (define (cons obj1 obj2) ((primitive-procedure make-structure pair 2) obj1 obj2)) (define (car pair) ((primitive-procedure structure-ref pair 0) pair)) (define (cdr pair) ((primitive-procedure structure-ref pair 1) pair)) (define (set-car! pair obj) ((primitive-procedure structure-set! pair 0) pair obj)) (define (set-cdr! pair obj) ((primitive-procedure structure-set! pair 1) pair obj)) (define (caar pair) (car (car pair))) (define (cadr pair) (car (cdr pair))) (define (cdar pair) (cdr (car pair))) (define (cddr pair) (cdr (cdr pair))) (define (caaar pair) (car (car (car pair)))) (define (caadr pair) (car (car (cdr pair)))) (define (cadar pair) (car (cdr (car pair)))) (define (caddr pair) (car (cdr (cdr pair)))) (define (cdaar pair) (cdr (car (car pair)))) (define (cdadr pair) (cdr (car (cdr pair)))) (define (cddar pair) (cdr (cdr (car pair)))) (define (cdddr pair) (cdr (cdr (cdr pair)))) (define (caaaar pair) (car (car (car (car pair))))) (define (caaadr pair) (car (car (car (cdr pair))))) (define (caadar pair) (car (car (cdr (car pair))))) (define (caaddr pair) (car (car (cdr (cdr pair))))) (define (cadaar pair) (car (cdr (car (car pair))))) (define (cadadr pair) (car (cdr (car (cdr pair))))) (define (caddar pair) (car (cdr (cdr (car pair))))) (define (cadddr pair) (car (cdr (cdr (cdr pair))))) (define (cdaaar pair) (cdr (car (car (car pair))))) (define (cdaadr pair) (cdr (car (car (cdr pair))))) (define (cdadar pair) (cdr (car (cdr (car pair))))) (define (cdaddr pair) (cdr (car (cdr (cdr pair))))) (define (cddaar pair) (cdr (cdr (car (car pair))))) (define (cddadr pair) (cdr (cdr (car (cdr pair))))) (define (cdddar pair) (cdr (cdr (cdr (car pair))))) (define (cddddr pair) (cdr (cdr (cdr (cdr pair))))) (define (null? obj) ((primitive-procedure null?) obj)) (define (list? x) (or (null? x) (and (pair? x) (let loop? ((slow x) (fast (cdr x))) (or (null? fast) (and (pair? fast) (and (not (eq? fast slow)) (let ((fast (cdr fast))) (or (null? fast) (and (pair? fast) (loop? (cdr slow) (cdr fast)))))))))))) (define (list . objs) objs) (define (list-length list) ;Extension to R4RS. (let loop ((k 0)) (cond ((null? list) k) (else (set! list (cdr list)) (loop (+ k 1)))))) (define (length s) ;Extension to R4RS. (cond ;; note: This was changed from LIST? to PAIR?/NULL? for efficiency ;; reasons. Now it will loop when given an infinite list. ((null? s) 0) ((pair? s) (list-length s)) ((string? s) (string-length s)) ((vector? s) (vector-length s)) (else (panic "Argument to LENGTH is not a list, string, or vector")))) (define (sublist list start end) ;Extension to R4RS. (if (zero? start) ;; needs work: To make tail recursive. (let loop ((list list) (k end)) (if (zero? k) '() (cons (car list) (loop (cdr list) (- k 1))))) (sublist (cdr list) (- start 1) (- end 1)))) (define (sub s start end) ;Extension to R4RS. (cond ;; note: This was changed from LIST? to PAIR?/NULL? for efficiency ;; reasons. Now it may loop when given an infinite list and may ;; fail to detect an error when given a pair that is not a list. ((null? s) (cond ((and (zero? start) (zero? end)) '()) (else (panic "Arguments to SUB out of bounds")))) ((pair? s) (sublist s start end)) ((string? s) (substring s start end)) ((vector? s) (subvector s start end)) (else (panic "First argument to SUB is not a list, string, or vector")))) (define (list-append . lists) ;Extension to R4RS. ;; needs work: To make tail recursive. ;; note: Support for multiple arguments incurs a penalty here. ;; note: This may loop when given an infinite list and may fail to detect ;; an error when given a pair that is not a list as other than the ;; last argument. (cond ((null? lists) '()) ((null? (cdr lists)) (car lists)) (else (let loop ((list1 (car lists)) (list2 (car (cdr lists))) (lists (cdr (cdr lists)))) (if (null? list1) (if (null? lists) list2 (loop list2 (car lists) (cdr lists))) (cons (car list1) (loop (cdr list1) list2 lists))))))) (define (append . ss) ;Extension to R4RS. ;; note: Support for multiple arguments incurs a penalty here. (cond ((null? ss) '()) ;; note: This was changed from LIST? to PAIR?/NULL? for efficiency ;; reasons. Now it may loop when given an infinite list and may ;; fail to detect an error when given a pair that is not a list as ;; other than the last argument. ((let loop ((ss ss)) (or (null? (cdr ss)) (and (or (null? (car ss)) (pair? (car ss))) (loop (cdr ss))))) (cond ((null? (cdr ss)) (car ss)) (else ;; needs work: To make tail recursive. (let loop ((list1 (car ss)) (list2 (car (cdr ss))) (lists (cdr (cdr ss)))) (if (null? list1) (if (null? lists) list2 (loop list2 (car lists) (cdr lists))) (cons (car list1) (loop (cdr list1) list2 lists))))))) ((let loop ((ss ss)) (or (null? ss) (and (string? (car ss)) (loop (cdr ss))))) (let* ((r (make-string (let loop ((k 0) (strings ss)) (if (null? strings) k (loop (+ k (string-length (car strings))) (cdr strings)))))) (k 0)) (let loop ((strings ss)) (if (not (null? strings)) (let ((n (string-length (car strings)))) (let loop ((l 0)) (if (not (= l n)) (begin (string-set! r k (string-ref (car strings) l)) (set! k (+ k 1)) (loop (+ l 1))))) (loop (cdr strings))))) r)) ((let loop ((ss ss)) (or (null? ss) (and (vector? (car ss)) (loop (cdr ss))))) (let* ((r (make-vector (let loop ((k 0) (vectors ss)) (if (null? vectors) k (loop (+ k (vector-length (car vectors))) (cdr vectors)))))) (k 0)) (let loop ((vectors ss)) (if (not (null? vectors)) (begin (let loop ((l 0)) (if (not (= l (vector-length (car vectors)))) (begin (vector-set! r k (vector-ref (car vectors) l)) (set! k (+ k 1)) (loop (+ l 1))))) (loop (cdr vectors))))) r)) (else (panic "Arguments to APPEND are not all lists, strings, or vectors")))) (define (list-reverse list) ;Extension to R4RS. (let loop ((list list) (r '())) (if (null? list) r (loop (cdr list) (cons (car list) r))))) (define (reverse s) ;Extension to R4RS. (cond ;; note: This was changed from LIST? to PAIR?/NULL? for efficiency ;; reasons. Now it will loop when given an infinite list. ((null? s) '()) ((pair? s) (list-reverse s)) ((string? s) (string-reverse s)) ((vector? s) (vector-reverse s)) (else (panic "Argument to REVERSE is not a list, string, or vector")))) (define (list-tail list k) (if (zero? k) list (list-tail (cdr list) (- k 1)))) (define (list-ref list k) (let loop () (cond ((zero? k) (car list)) (else (set! list (cdr list)) (set! k (- k 1)) (loop))))) (define (ref s k) ;Extension to R4RS. (cond ;; note: This was changed from LIST? to PAIR? for efficiency reasons. ;; Now it may loop when given an infinite list and may fail to ;; detect an error when given a pair that is not a list. ((pair? s) (list-ref s k)) ((string? s) (string-ref s k)) ((vector? s) (vector-ref s k)) (else (panic "First argument to REF is not a (nonempty) list, string, or vector")))) (define (memq obj list) (and (not (null? list)) (if (eq? obj (car list)) list (memq obj (cdr list))))) (define (memv obj list) (and (not (null? list)) (if (eqv? obj (car list)) list (memv obj (cdr list))))) (define (member obj list) (and (not (null? list)) (if (equal? obj (car list)) list (member obj (cdr list))))) (define (assq obj alist) (and (not (null? alist)) (if (eq? obj (car (car alist))) (car alist) (assq obj (cdr alist))))) (define (assv obj alist) (and (not (null? alist)) (if (eqv? obj (car (car alist))) (car alist) (assv obj (cdr alist))))) (define (assoc obj alist) (and (not (null? alist)) (if (equal? obj (car (car alist))) (car alist) (assoc obj (cdr alist))))) (define (list-set! list k obj) ;Extension to R4RS. (let loop () (cond ((zero? k) (set-car! list obj)) (else (set! list (cdr list)) (set! k (- k 1)) (loop))))) (define (ref! s k obj) ;Extension to R4RS. (cond ;; note: This was changed from LIST? to PAIR? for efficiency reasons. ;; Now it may loop when given an infinite list and may fail to ;; detect an error when given a pair that is not a list. ((pair? s) (list-set! s k obj)) ((string? s) (string-set! s k obj)) ((vector? s) (vector-set! s k obj)) (else (panic "First argument to REF! is not a (nonempty) list, string, or vector")))) (define (list-fill! list obj) ;Extension to R4RS. (let loop () (if (not (null? list)) (begin (set-car! list obj) (set! list (cdr list)) (loop))))) (define (fill! s obj) ;Extension to R4RS. (cond ;; note: This was changed from LIST? to PAIR?/NULL? for efficiency ;; reasons. Now it will loop when given an infinite list. ((null? s) '()) ((pair? s) (list-fill! s obj)) ((string? s) (string-fill! s obj)) ((vector? s) (vector-fill! s obj)) (else (panic "First argument to FILL! is not a list, string, or vector")))) (define (list-copy list) ;Extension to R4RS. ;; needs work: To make tail recursive. (if (null? list) '() (cons (car list) (list-copy (cdr list))))) (define (copy s) ;Extension to R4RS. (cond ;; note: This was changed from LIST? to PAIR?/NULL? for efficiency ;; reasons. Now it will loop when given an infinite list. ((null? s) '()) ((pair? s) (list-copy s)) ((string? s) (string-copy s)) ((vector? s) (vector-copy s)) (else (panic "Argument to COPY is not a list, string, or vector")))) ;; 6.4 Symbols (define (symbol? obj) ((primitive-procedure symbol?) obj)) (define (symbol->string symbol) ((primitive-procedure symbol->string) symbol)) (define (string->uninterned-symbol string) ;Extension to R4RS. ((primitive-procedure string->uninterned-symbol) string)) (define string->symbol (let ((package '())) (lambda (string) (cond ,@(map (lambda (v) `((string=? string ,(symbol->string v)) ',v)) vs) ;; This formulation relies on the fact that, with the current ;; implementation of STRING->UNINTERNED-SYMBOL, (EQ? X Y) implies ;; (EQ? (STRING->UNINTERNED-SYMBOL X) (STRING->UNINTERNED-SYMBOL Y)). ;; note: Manually split MEMBER here. (else (let ((found (let loop ((package package)) (and (not (null? package)) (if (string=? string (car package)) package (loop (cdr package))))))) (cond (found (string->uninterned-symbol (car found))) (else (set! package (cons (string-copy string) package)) (string->uninterned-symbol (car package)))))))))) ;; 6.5 Numbers ;; 6.5.5 Numerical operations (define (number? obj) ((primitive-procedure number?) obj)) (define complex? number?) (define (real? obj) ((primitive-procedure real?) obj)) (define rational? real?) (define (integer? obj) ((primitive-procedure integer?) obj)) (define (exact? z) ((primitive-procedure exact?) z)) (define (inexact? z) ((primitive-procedure inexact?) z)) (define (= z1 z2 . zs) (and ((primitive-procedure =) z1 z2) (let loop? ((z z2) (zs zs)) (or (null? zs) (and ((primitive-procedure =) z (car zs)) (loop? (car zs) (cdr zs))))))) (define (< x1 x2 . xs) (and ((primitive-procedure <) x1 x2) (let loop? ((x x2) (xs xs)) (or (null? xs) (and ((primitive-procedure <) x (car xs)) (loop? (car xs) (cdr xs))))))) (define (> x1 x2 . xs) (and ((primitive-procedure >) x1 x2) (let loop? ((x x2) (xs xs)) (or (null? xs) (and ((primitive-procedure >) x (car xs)) (loop? (car xs) (cdr xs))))))) (define (<= x1 x2 . xs) (and ((primitive-procedure <=) x1 x2) (let loop? ((x x2) (xs xs)) (or (null? xs) (and ((primitive-procedure <=) x (car xs)) (loop? (car xs) (cdr xs))))))) (define (>= x1 x2 . xs) (and ((primitive-procedure >=) x1 x2) (let loop? ((x x2) (xs xs)) (or (null? xs) (and ((primitive-procedure >=) x (car xs)) (loop? (car xs) (cdr xs))))))) (define (zero? z) ((primitive-procedure zero?) z)) (define (positive? x) ((primitive-procedure positive?) x)) (define (negative? x) ((primitive-procedure negative?) x)) (define (odd? n) (not (even? n))) (define (even? n) (zero? (remainder n 2))) (define (max x . xs) (if (null? xs) ((primitive-procedure max) x) (let loop ((xs (cdr xs)) (r ((primitive-procedure max) x (car xs)))) (if (null? xs) r (loop (cdr xs) ((primitive-procedure max) r (car xs))))))) (define (min x . xs) (if (null? xs) ((primitive-procedure min) x) (let loop ((xs (cdr xs)) (r ((primitive-procedure min) x (car xs)))) (if (null? xs) r (loop (cdr xs) ((primitive-procedure min) r (car xs))))))) (define (+ . zs) (if (null? zs) ((primitive-procedure +)) (let loop ((zs (cdr zs)) (r ((primitive-procedure +) (car zs)))) (if (null? zs) r (loop (cdr zs) ((primitive-procedure +) r (car zs))))))) (define (* . zs) (if (null? zs) ((primitive-procedure *)) (let loop ((zs (cdr zs)) (r ((primitive-procedure *) (car zs)))) (if (null? zs) r (loop (cdr zs) ((primitive-procedure *) r (car zs))))))) (define (- z . zs) (if (null? zs) ((primitive-procedure -) z) (let loop ((zs (cdr zs)) (r ((primitive-procedure -) z (car zs)))) (if (null? zs) r (loop (cdr zs) ((primitive-procedure -) r (car zs))))))) (define (/ z . zs) (if (null? zs) ((primitive-procedure /) z) (let loop ((zs (cdr zs)) (r ((primitive-procedure /) z (car zs)))) (if (null? zs) r (loop (cdr zs) ((primitive-procedure /) r (car zs))))))) (define (abs x) (if (negative? x) (- x) x)) (define (quotient n1 n2) ((primitive-procedure quotient) n1 n2)) (define (remainder n1 n2) ((primitive-procedure remainder) n1 n2)) (define (modulo n1 n2) (if (or (and (positive? n1) (negative? n2)) (and (negative? n1) (positive? n2))) (+ n2 (remainder n1 n2)) (remainder n1 n2))) ;; needs work: NUMERATOR DENOMINATOR (define (gcd . ns) ;; note: Support for multiple arguments incurs a penalty here. (cond ((null? ns) 0) ((null? (cdr ns)) (abs (car ns))) (else (let loop ((n1 (abs (car ns))) (n2 (abs (car (cdr ns)))) (ns (cdr (cdr ns))) (p? (or (inexact? (car ns)) (inexact? (car (cdr ns)))))) (if (zero? n2) (if (null? ns) (if p? (exact->inexact n1) n1) (loop n1 (abs (car ns)) (cdr ns) (or p? (inexact? (car ns))))) (let ((r (remainder n1 n2))) (if (zero? r) (if (null? ns) (if p? (exact->inexact n2) n2) (loop n2 (abs (car ns)) (cdr ns) (or p? (inexact? (car ns))))) (loop n2 r ns p?)))))))) (define (lcm . ns) ;; note: Support for multiple arguments incurs a penalty here. (cond ((null? ns) 1) ((null? (cdr ns)) (abs (car ns))) (else (let loop ((n1 (abs (car ns))) (n2 (abs (car (cdr ns)))) (ns (cdr (cdr ns))) (p? (or (inexact? (car ns)) (inexact? (car (cdr ns)))))) (let ((n (cond ((= n1 n2) n1) ((zero? (remainder n1 n2)) n1) ((zero? (remainder n2 n1)) n2) (else (* (quotient n1 (gcd n1 n2)) n2))))) (if (null? ns) (if p? (exact->inexact n) n) (loop n (abs (car ns)) (cdr ns) (or p? (inexact? (car ns)))))))))) (define (<< n1 n2) ((primitive-procedure <<) n1 n2)) ;Extension to R4RS. (define (>> n1 n2) ((primitive-procedure >>) n1 n2)) ;Extension to R4RS. (define (bitwise-not n) ;Extension to R4RS. ((primitive-procedure bitwise-not) n)) (define (bitwise-and . ns) ;Extension to R4RS. (if (null? ns) ((primitive-procedure bitwise-and)) (let loop ((ns (cdr ns)) (r ((primitive-procedure bitwise-and) (car ns)))) (if (null? ns) r (loop (cdr ns) ((primitive-procedure bitwise-and) r (car ns))))))) (define (bitwise-or . ns) ;Extension to R4RS. (if (null? ns) ((primitive-procedure bitwise-or)) (let loop ((ns (cdr ns)) (r ((primitive-procedure bitwise-or) (car ns)))) (if (null? ns) r (loop (cdr ns) ((primitive-procedure bitwise-or) r (car ns))))))) (define (bitwise-xor . ns) ;Extension to R4RS. (if (null? ns) ((primitive-procedure bitwise-xor)) (let loop ((ns (cdr ns)) (r ((primitive-procedure bitwise-xor) (car ns)))) (if (null? ns) r (loop (cdr ns) ((primitive-procedure bitwise-xor) r (car ns))))))) (define (floor x) ((primitive-procedure floor) x)) (define (ceiling x) ((primitive-procedure ceiling) x)) (define (truncate x) ((primitive-procedure truncate) x)) (define (round x) ((primitive-procedure round) x)) ;; needs work: RATIONALIZE (define (exp z) ((primitive-procedure exp) z)) (define (log z) ((primitive-procedure log) z)) (define (sin z) ((primitive-procedure sin) z)) (define (cos z) ((primitive-procedure cos) z)) (define (tan z) ((primitive-procedure tan) z)) (define (asin z) ((primitive-procedure asin) z)) (define (acos z) ((primitive-procedure acos) z)) (define (atan x . y) (cond ((null? y) ((primitive-procedure atan) x)) ((null? (cdr y)) ((primitive-procedure atan) x (car y))) (else (panic "Attempt to call ATAN with the wrong number of arguments")))) (define (sqrt z) ((primitive-procedure sqrt) z)) (define (expt z1 z2) ((primitive-procedure expt) z1 z2)) ;; needs work: MAKE-RECTANGULAR MAKE-POLAR REAL-PART IMAG-PART MAGNITUDE ;; ANGLE (define (exact->inexact z) ((primitive-procedure exact->inexact) z)) (define (inexact->exact z) ((primitive-procedure inexact->exact) z)) ;; 6.5.6 Numerical input and output (define number->string ((lambda ()))) ;Defined in *I/O*. (define string->number ((lambda ()))) ;Defined in *I/O*. ;; 6.6 Characters (define (char? obj) ((primitive-procedure char?) obj)) (define (char=? char1 char2 . chars) (let loop? ((char1 char1) (char2 char2) (chars chars)) (and (= (char->integer char1) (char->integer char2)) (or (null? chars) (loop? char2 (car chars) (cdr chars)))))) (define (charinteger char1) (char->integer char2)) (or (null? chars) (loop? char2 (car chars) (cdr chars)))))) (define (char>? char1 char2 . chars) (let loop? ((char1 char1) (char2 char2) (chars chars)) (and (> (char->integer char1) (char->integer char2)) (or (null? chars) (loop? char2 (car chars) (cdr chars)))))) (define (char<=? char1 char2 . chars) (let loop? ((char1 char1) (char2 char2) (chars chars)) (and (<= (char->integer char1) (char->integer char2)) (or (null? chars) (loop? char2 (car chars) (cdr chars)))))) (define (char>=? char1 char2 . chars) (let loop? ((char1 char1) (char2 char2) (chars chars)) (and (>= (char->integer char1) (char->integer char2)) (or (null? chars) (loop? char2 (car chars) (cdr chars)))))) (define (char-ci=? char1 char2 . chars) (let loop? ((char1 (char-upcase char1)) (char2 (char-upcase char2)) (chars chars)) (and (= (char->integer char1) (char->integer char2)) (or (null? chars) (loop? char2 (char-upcase (car chars)) (cdr chars)))))) (define (char-ciinteger char1) (char->integer char2)) (or (null? chars) (loop? char2 (char-upcase (car chars)) (cdr chars)))))) (define (char-ci>? char1 char2 . chars) (let loop? ((char1 (char-upcase char1)) (char2 (char-upcase char2)) (chars chars)) (and (> (char->integer char1) (char->integer char2)) (or (null? chars) (loop? char2 (char-upcase (car chars)) (cdr chars)))))) (define (char-ci<=? char1 char2 . chars) (let loop? ((char1 (char-upcase char1)) (char2 (char-upcase char2)) (chars chars)) (and (<= (char->integer char1) (char->integer char2)) (or (null? chars) (loop? char2 (char-upcase (car chars)) (cdr chars)))))) (define (char-ci>=? char1 char2 . chars) (let loop? ((char1 (char-upcase char1)) (char2 (char-upcase char2)) (chars chars)) (and (>= (char->integer char1) (char->integer char2)) (or (null? chars) (loop? char2 (char-upcase (car chars)) (cdr chars)))))) ;; Sven Hartrumpf contributed variations ;; on the next five definitions. (define char-alphabetic? (let ((char-alphabetic? '#(#f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #f #f #f #f #f #f #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #f #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #f #t #t #t #t #t #t #t #t))) (lambda (char) (vector-ref char-alphabetic? (char->integer char))))) (define char-numeric? (let ((char-numeric? '#(#f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #t #t #t #t #t #t #t #t #t #t #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f))) (lambda (char) (vector-ref char-numeric? (char->integer char))))) (define char-whitespace? (let ((char-whitespace? '#(#f #f #f #f #f #f #f #f #f #t #t #f #t #t #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #t #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f))) (lambda (char) (vector-ref char-whitespace? (char->integer char))))) (define char-upper-case? (let ((char-upper-case? '#(#f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #f #t #t #t #t #t #t #t #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f))) (lambda (letter) (vector-ref char-upper-case? (char->integer letter))))) (define char-lower-case? (let ((char-lower-case? '#(#f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #f #t #t #t #t #t #t #t #t))) (lambda (letter) (vector-ref char-lower-case? (char->integer letter))))) (define (char->integer char) ((primitive-procedure char->integer) char)) (define (integer->char k) ((primitive-procedure integer->char) k)) ;; Sven Hartrumpf contributed variations ;; on the next two definitions. (define char-upcase (let ((char-upcase '#(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 247 216 217 218 219 220 221 222 223))) (lambda (char) (integer->char (vector-ref char-upcase (char->integer char)))))) (define char-downcase (let ((char-downcase '#(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 215 248 249 250 251 252 253 254 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255))) (lambda (char) (integer->char (vector-ref char-downcase (char->integer char)))))) ;; 6.7 Strings (define (string? obj) ((primitive-procedure string?) obj)) (define (make-string k . char) (cond ((null? char) ((primitive-procedure make-string) k)) ((null? (cdr char)) ((primitive-procedure make-string) k (car char))) (else (panic "Attempt to call MAKE-STRING with the wrong number of arguments")))) (define (string . chars) (let ((r (make-string (list-length chars)))) (let loop ((k 0) (chars chars)) (if (null? chars) r (begin (string-set! r k (car chars)) (loop (+ k 1) (cdr chars))))))) (define (string-length string) ((primitive-procedure string-length) string)) (define (string-ref string k) ((primitive-procedure string-ref) string k)) (define (string-set! string k char) ((primitive-procedure string-set!) string k char)) (define (string=? string1 string2 . strings) (let loop? ((string1 string1) (string2 string2) (strings strings)) (let ((n (string-length string1))) (and (= n (string-length string2)) (let loop? ((k 0)) (or (= k n) (and (char=? (string-ref string1 k) (string-ref string2 k)) (loop? (+ k 1))))) (or (null? strings) (loop? string2 (car strings) (cdr strings))))))) (define (string-ci=? string1 string2 . strings) (let loop? ((string1 string1) (string2 string2) (strings strings)) (let ((n (string-length string1))) (and (= n (string-length string2)) (let loop? ((k 0)) (or (= k n) (and (char-ci=? (string-ref string1 k) (string-ref string2 k)) (loop? (+ k 1))))) (or (null? strings) (loop? string2 (car strings) (cdr strings))))))) (define (string? string1 string2 . strings) (let loop? ((string1 string1) (n1 (string-length string1)) (string2 string2) (n2 (string-length string2)) (strings strings)) (and (let loop? ((k 0)) (if (= k n2) (< k n1) (and (< k n1) (or (char>? (string-ref string1 k) (string-ref string2 k)) (and (char=? (string-ref string1 k) (string-ref string2 k)) (loop? (+ k 1))))))) (or (null? strings) (loop? string2 n2 (car strings) (string-length (car strings)) (cdr strings)))))) (define (string<=? string1 string2 . strings) (let loop? ((string1 string1) (n1 (string-length string1)) (string2 string2) (n2 (string-length string2)) (strings strings)) (and (let loop? ((k 0)) (if (= k n1) (<= k n2) (and (< k n2) (or (char=? string1 string2 . strings) (let loop? ((string1 string1) (n1 (string-length string1)) (string2 string2) (n2 (string-length string2)) (strings strings)) (and (let loop? ((k 0)) (if (= k n2) (<= k n1) (and (< k n1) (or (char>? (string-ref string1 k) (string-ref string2 k)) (and (char=? (string-ref string1 k) (string-ref string2 k)) (loop? (+ k 1))))))) (or (null? strings) (loop? string2 n2 (car strings) (string-length (car strings)) (cdr strings)))))) (define (string-ci? string1 string2 . strings) (let loop? ((string1 string1) (n1 (string-length string1)) (string2 string2) (n2 (string-length string2)) (strings strings)) (and (let loop? ((k 0)) (if (= k n2) (< k n1) (and (< k n1) (or (char-ci>? (string-ref string1 k) (string-ref string2 k)) (and (char-ci=? (string-ref string1 k) (string-ref string2 k)) (loop? (+ k 1))))))) (or (null? strings) (loop? string2 n2 (car strings) (string-length (car strings)) (cdr strings)))))) (define (string-ci<=? string1 string2 . strings) (let loop? ((string1 string1) (n1 (string-length string1)) (string2 string2) (n2 (string-length string2)) (strings strings)) (and (let loop? ((k 0)) (if (= k n1) (<= k n2) (and (< k n2) (or (char-ci=? string1 string2 . strings) (let loop? ((string1 string1) (n1 (string-length string1)) (string2 string2) (n2 (string-length string2)) (strings strings)) (and (let loop? ((k 0)) (if (= k n2) (<= k n1) (and (< k n1) (or (char-ci>? (string-ref string1 k) (string-ref string2 k)) (and (char-ci=? (string-ref string1 k) (string-ref string2 k)) (loop? (+ k 1))))))) (or (null? strings) (loop? string2 n2 (car strings) (string-length (car strings)) (cdr strings)))))) (define (substring string start end) (let ((r (make-string (- end start)))) (let loop ((k start)) (if (< k end) (begin (string-set! r (- k start) (string-ref string k)) (loop (+ k 1))))) r)) (define (string-append . strings) ;; note: Support for multiple arguments incurs a penalty here. (let* ((r (make-string (let loop ((k 0) (strings strings)) (if (null? strings) k (loop (+ k (string-length (car strings))) (cdr strings)))))) (k 0)) (let loop ((strings strings)) (if (not (null? strings)) (let ((n (string-length (car strings)))) (let loop ((l 0)) (if (not (= l n)) (begin (string-set! r k (string-ref (car strings) l)) (set! k (+ k 1)) (loop (+ l 1))))) (loop (cdr strings))))) r)) (define (string->list string) ;; needs work: To make tail recursive. (let ((n (string-length string))) (let loop ((k 0)) (if (= k n) '() (cons (string-ref string k) (loop (+ k 1))))))) (define (list->string list) (let ((r (make-string (list-length list)))) (let loop ((k 0)) (if (not (null? list)) (begin (string-set! r k (car list)) (set! list (cdr list)) (loop (+ k 1))))) r)) (define (string-copy string) (let* ((n (string-length string)) (r (make-string n))) (let loop ((k 0)) (if (not (= k n)) (begin (string-set! r k (string-ref string k)) (loop (+ k 1))))) r)) (define (string-fill! string char) (let ((n (string-length string))) (let loop ((k 0)) (if (not (= k n)) (begin (string-set! string k char) (loop (+ k 1))))))) (define (string-reverse string) ;Extension to R4RS. (let* ((n (string-length string)) (r (make-string n))) (let loop ((k 0)) (if (not (= k n)) (begin (string-set! r k (string-ref string (- (- n k) 1))) (loop (+ k 1))))) r)) ;; 6.8 Vectors (define (vector? obj) ((primitive-procedure vector?) obj)) (define (make-vector k . fill) (cond ((null? fill) ((primitive-procedure make-vector) k)) ((null? (cdr fill)) ((primitive-procedure make-vector) k (car fill))) (else (panic "Attempt to call MAKE-VECTOR with the wrong number of arguments")))) (define (make-displaced-vector vector k1 k2) ;Extension to R4RS. ((primitive-procedure make-displaced-vector) vector k1 k2)) (define (vector . objs) (let ((r (make-vector (list-length objs)))) (let loop ((k 0) (objs objs)) (if (null? objs) r (begin (vector-set! r k (car objs)) (loop (+ k 1) (cdr objs))))))) (define (vector-length vector) ((primitive-procedure vector-length) vector)) (define (vector-ref vector k) ((primitive-procedure vector-ref) vector k)) (define (vector-set! vector k obj) ((primitive-procedure vector-set!) vector k obj)) (define (vector->list vector) ;; needs work: To make tail recursive. (let loop ((k 0)) (if (= k (vector-length vector)) '() (cons (vector-ref vector k) (loop (+ k 1)))))) (define (list->vector list) (let ((r (make-vector (list-length list)))) (let loop ((k 0)) (if (not (null? list)) (begin (vector-set! r k (car list)) (set! list (cdr list)) (loop (+ k 1))))) r)) (define (vector-fill! vector obj) (let loop ((k 0)) (if (not (= k (vector-length vector))) (begin (vector-set! vector k obj) (loop (+ k 1)))))) (define (subvector vector start end) ;Extension to R4RS. (let ((r (make-vector (- end start)))) (let loop ((k 0)) (if (< k (- end start)) (begin (vector-set! r k (vector-ref vector (+ k start))) (loop (+ k 1))))) r)) (define (vector-append . vectors) ;Extension to R4RS. ;; note: Support for multiple arguments incurs a penalty here. (let* ((r (make-vector (let loop ((k 0) (vectors vectors)) (if (null? vectors) k (loop (+ k (vector-length (car vectors))) (cdr vectors)))))) (k 0)) (let loop ((vectors vectors)) (if (not (null? vectors)) (begin (let loop ((l 0)) (if (not (= l (vector-length (car vectors)))) (begin (vector-set! r k (vector-ref (car vectors) l)) (set! k (+ k 1)) (loop (+ l 1))))) (loop (cdr vectors))))) r)) (define (vector-reverse vector) ;Extension to R4RS. (let ((r (make-vector (vector-length vector)))) (let loop ((k 0)) (if (not (= k (vector-length vector))) (begin (vector-set! r k (vector-ref vector (- (- (vector-length vector) k) 1))) (loop (+ k 1))))) r)) (define (vector-copy vector) ;Extension to R4RS. (let ((r (make-vector (vector-length vector)))) (let loop ((k 0)) (if (not (= k (vector-length vector))) (begin (vector-set! r k (vector-ref vector k)) (loop (+ k 1))))) r)) ;; 6.9 Control features (define (procedure? obj) ((primitive-procedure procedure?) obj)) (define (apply proc arg1 . args) (if (null? args) ((primitive-procedure apply) proc arg1) (let loop ((arg1 (list arg1)) (args args)) (if (null? (cdr args)) (let loop ((arg1 (car args)) (args arg1)) (if (null? args) ((primitive-procedure apply) proc arg1) (loop (cons (car args) arg1) (cdr args)))) (loop (cons (car args) arg1) (cdr args)))))) (define (map proc list1 . lists) ;; note: Support for multiple arguments incurs a penalty here. (cond ;; note: This special-cases the one-argument case for speed. ((null? lists) (let loop ((list1 list1) (c '())) (if (null? list1) (list-reverse c) (loop (cdr list1) (cons (proc (car list1)) c))))) ;; note: This special-cases the two-argument case for speed. ((null? (cdr lists)) (let loop ((list1 list1) (list2 (car lists)) (c '())) (if (null? list1) (list-reverse c) (loop (cdr list1) (cdr list2) (cons (proc (car list1) (car list2)) c))))) (else (let loop ((list1 list1) (lists lists) (c '())) (if (null? list1) (list-reverse c) (loop (cdr list1) (let loop ((lists lists) (c '())) (if (null? lists) (list-reverse c) (loop (cdr lists) (cons (cdr (car lists)) c)))) (cons (apply proc (car list1) (let loop ((lists lists) (c '())) (if (null? lists) (list-reverse c) (loop (cdr lists) (cons (car (car lists)) c))))) c))))))) (define (for-each proc list1 . lists) ;; note: Support for multiple arguments incurs a penalty here. (cond ((null? lists) ;; note: This special-cases the one-argument case for speed. (let loop ((list1 list1)) (if (not (null? list1)) (begin (proc (car list1)) (loop (cdr list1)))))) ((null? (cdr lists)) ;; note: This special-cases the two-argument case for speed. (let loop ((list1 list1) (list2 (car lists))) (if (not (null? list1)) (begin (proc (car list1) (car list2)) (loop (cdr list1) (cdr list2)))))) (else (let loop ((list1 list1) (lists lists)) (if (not (null? list1)) (begin (apply proc (car list1) (let loop ((lists lists) (c '())) (if (null? lists) (list-reverse c) (loop (cdr lists) (cons (car (car lists)) c))))) (loop (cdr list1) (let loop ((lists lists) (c '())) (if (null? lists) (list-reverse c) (loop (cdr lists) (cons (cdr (car lists)) c))))))))))) (define (force promise) (promise)) (define (call-with-current-continuation proc) ((primitive-procedure call-with-current-continuation) proc)) ;; 6.10 Input and Output ;; 6.10.1 Ports (define (call-with-input-file string proc) (let* ((input-port (open-input-file string)) (r (proc input-port))) (close-input-port input-port) r)) (define (call-with-output-file string proc) (let* ((output-port (open-output-file string)) (r (proc output-port))) (close-output-port output-port) r)) (define (input-port? obj) ((primitive-procedure input-port?) obj)) (define (output-port? obj) ((primitive-procedure output-port?) obj)) (define current-input-port ((lambda ()))) ;Defined in *I/O*. (define current-output-port ((lambda ()))) ;Defined in *I/O*. (define with-input-from-file ((lambda ()))) ;Defined in *I/O*. (define with-output-to-file ((lambda ()))) ;Defined in *I/O*. (define (open-input-file filename) ((primitive-procedure open-input-file) filename)) (define (open-output-file filename) ((primitive-procedure open-output-file) filename)) (define (close-input-port port) ((primitive-procedure close-input-port) port)) (define (close-output-port port) ((primitive-procedure close-output-port) port)) ;; 6.10.2 Input ,*read* (define read-char ((lambda ()))) ;Defined in *I/O*. (define peek-char ((lambda ()))) ;Defined in *I/O*. (define (eof-object? obj) ((primitive-procedure eof-object?) obj)) (define char-ready? ((lambda ()))) ;Defined in *I/O*. ;; 6.10.3 Output (define write ((lambda ()))) ;Defined in *I/O*. (define display ((lambda ()))) ;Defined in *I/O*. (define newline ((lambda ()))) ;Defined in *I/O*. (define write-char ((lambda ()))) ;Defined in *I/O*. ;; Extension to R4RS. (define define-write-method ((lambda ()))) ;Defined in *I/O*. ;; Extension to R4RS. (define define-display-method ((lambda ()))) ;Defined in *I/O*. ,*i/o* (define (panic string) ;Extension to R4RS. ((primitive-procedure panic) string)) (define (pointer? obj) ;Extension to R4RS. ((primitive-procedure pointer?) obj)) ;; Extension to R4RS. (define (integer->string k) ((primitive-procedure integer->string) k)) (define (integer->input-port k) ;Extension to R4RS. ((primitive-procedure integer->input-port) k)) (define (integer->output-port k) ;Extension to R4RS. ((primitive-procedure integer->output-port) k)) ;; Extension to R4RS. (define (integer->pointer k) ((primitive-procedure integer->pointer) k)) ;; 6.10.4 System interface ;; needs work: LOAD TRANSCRIPT-ON TRANSCRIPT-OFF (define ,*list->vector* list->vector) (define ,*append* append) (define ,*cons* cons) (define ,*eqv?* eqv?) (let ((not not) (boolean? boolean?) (eqv? eqv?) (eq? eq?) (equal? equal?) (pair? pair?) (cons cons) (car car) (cdr cdr) (set-car! set-car!) (set-cdr! set-cdr!) (caar caar) (cadr cadr) (cdar cdar) (cddr cddr) (caaar caaar) (caadr caadr) (cadar cadar) (caddr caddr) (cdaar cdaar) (cdadr cdadr) (cddar cddar) (cdddr cdddr) (caaaar caaaar) (caaadr caaadr) (caadar caadar) (caaddr caaddr) (cadaar cadaar) (cadadr cadadr) (caddar caddar) (cadddr cadddr) (cdaaar cdaaar) (cdaadr cdaadr) (cdadar cdadar) (cdaddr cdaddr) (cddaar cddaar) (cddadr cddadr) (cdddar cdddar) (cddddr cddddr) (null? null?) (list? list?) (list list) (list-length list-length) (length length) (sublist sublist) (sub sub) (list-append list-append) (append append) (list-reverse list-reverse) (reverse reverse) (list-tail list-tail) (list-ref list-ref) (ref ref) (memq memq) (memv memv) (member member) (assq assq) (assv assv) (assoc assoc) (list-set! list-set!) (ref! ref!) (list-fill! list-fill!) (fill! fill!) (list-copy list-copy) (copy copy) (symbol? symbol?) (symbol->string symbol->string) (string->uninterned-symbol string->uninterned-symbol) (string->symbol string->symbol) (number? number?) (complex? complex?) (real? real?) (rational? rational?) (integer? integer?) (exact? exact?) (inexact? inexact?) (= =) (< <) (> >) (<= <=) (>= >=) (zero? zero?) (positive? positive?) (negative? negative?) (odd? odd?) (even? even?) (max max) (min min) (+ +) (* *) (- -) (/ /) (abs abs) (quotient quotient) (remainder remainder) (modulo modulo) (gcd gcd) (lcm lcm) (<< <<) (>> >>) (bitwise-not bitwise-not) (bitwise-and bitwise-and) (bitwise-or bitwise-or) (bitwise-xor bitwise-xor) (floor floor) (ceiling ceiling) (truncate truncate) (round round) (exp exp) (log log) (sin sin) (cos cos) (tan tan) (asin asin) (acos acos) (atan atan) (sqrt sqrt) (expt expt) (exact->inexact exact->inexact) (inexact->exact inexact->exact) (number->string number->string) (string->number string->number) (char? char?) (char=? char=?) (char? char>?) (char<=? char<=?) (char>=? char>=?) (char-ci=? char-ci=?) (char-ci? char-ci>?) (char-ci<=? char-ci<=?) (char-ci>=? char-ci>=?) (char-alphabetic? char-alphabetic?) (char-numeric? char-numeric?) (char-whitespace? char-whitespace?) (char-upper-case? char-upper-case?) (char-lower-case? char-lower-case?) (char->integer char->integer) (integer->char integer->char) (char-upcase char-upcase) (char-downcase char-downcase) (string? string?) (make-string make-string) (string string) (string-length string-length) (string-ref string-ref) (string-set! string-set!) (string=? string=?) (string-ci=? string-ci=?) (string? string>?) (string<=? string<=?) (string>=? string>=?) (string-ci? string-ci>?) (string-ci<=? string-ci<=?) (string-ci>=? string-ci>=?) (substring substring) (string-append string-append) (string->list string->list) (list->string list->string) (string-copy string-copy) (string-fill! string-fill!) (string-reverse string-reverse) (vector? vector?) (make-vector make-vector) (make-displaced-vector make-displaced-vector) (vector vector) (vector-length vector-length) (vector-ref vector-ref) (vector-set! vector-set!) (vector->list vector->list) (list->vector list->vector) (vector-fill! vector-fill!) (subvector subvector) (vector-append vector-append) (vector-reverse vector-reverse) (vector-copy vector-copy) (procedure? procedure?) (apply apply) (map map) (for-each for-each) (force force) (call-with-current-continuation call-with-current-continuation) (call-with-input-file call-with-input-file) (call-with-output-file call-with-output-file) (input-port? input-port?) (output-port? output-port?) (current-input-port current-input-port) (current-output-port current-output-port) (with-input-from-file with-input-from-file) (with-output-to-file with-output-to-file) (open-input-file open-input-file) (open-output-file open-output-file) (close-input-port close-input-port) (close-output-port close-output-port) (read read) (read-char read-char) (peek-char peek-char) (eof-object? eof-object?) (char-ready? char-ready?) (write write) (display display) (newline newline) (write-char write-char) (define-write-method define-write-method) (define-display-method define-display-method) (panic panic) (pointer? pointer?) (integer->string integer->string) (integer->input-port integer->input-port) (integer->output-port integer->output-port) (integer->pointer integer->pointer)) ,@ss)))) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/source/stalin5c.sc0000600017435200151030000001173610464434544014762 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; Stalin 0.11 - A global optimizing compiler for Scheme ;;; Copyright 1993, 1994, and 1995 University of Toronto. All rights reserved. ;;; Copyright 1996 Technion. All rights reserved. ;;; Copyright 1996 and 1997 University of Vermont. All rights reserved. ;;; Copyright 1997, 1998, 1999, 2000, and 2001 NEC Research Institute, Inc. All ;;; rights reserved. ;;; Copyright 2002, 2003, 2004, 2005, and 2006 Purdue University. All rights ;;; reserved. ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License ;;; as published by the Free Software Foundation; either version 2 ;;; of the License, or (at your option) any later version. ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;;; written by: ;;; Jeffrey Mark Siskind ;;; School of Electrical and Computer Engineering ;;; Purdue University ;;; Electrical Engineering Building, Room 330 ;;; 465 Northwestern Avenue ;;; West Lafayette IN 47907-2035 USA ;;; voice: 765/496-3197 ;;; fax: 765/494-6440 ;;; qobi@purdue.edu ;;; http://www.ece.purdue.edu/~qobi ;;; Begin delete for Trotsky (module stalin5c) (include "QobiScheme.sch") (include "stalin5c.sch") ;;; End delete for Trotsky ;;; The C library (define *c:noreturn?* #f) (define *c:c?* #f) (define *c:panic?* #f) (define *c:backtrace?* #f) (define *c:backtrace-internal?* #f) (define *c:ipow?* #f) (define *c:input-waiting?* #f) (define *c:includes* #f) (define (include! include) (unless (member include *c:includes*) (set! *c:includes* (cons include *c:includes*)))) (define (c-library) ;; needs work: To use code-generation abstractions. (when *c:panic?* (set! *c:noreturn?* #t)) (when *c:panic?* (include! "stdio") ;fprintf stderr (include! "stdlib")) ;exit (when *c:backtrace?* (include! "stdio")) ;fprintf stderr (when *c:backtrace-internal?* (include! "stdio")) ;fprintf stderr (when *c:input-waiting?* (include! "sys/time") ;timeval (include! "unistd") ;fd_set FD_ZERO FD_SET select (include! "stdlib") ;NULL (include! "stdio")) ;FILE feof fileno (newline-between (newlines-between (map (lambda (include) (list "#include <" include ".h>")) *c:includes*)) (if *c:noreturn?* "#ifdef __GNUC__ #define NORETURN __attribute__ ((noreturn)) #else #define NORETURN #endif" "") (if (positive? *allocation-alignment*) (list "#define ALIGN(p) if (((" *squished* ")p)%" (c:fixnum (expt 2 *allocation-alignment*)) "!=0) p += " (c:fixnum (expt 2 *allocation-alignment*)) "-(((" *squished* ")p)%" (c:fixnum (expt 2 *allocation-alignment*)) ")") "") (list "#define IMIN(x,y) (xy?x:y) #define RMIN(x,y) (xy?x:y) struct rectangular {" *flonum* " r; " *flonum* " i;};") (if *c:c?* "int c;" "") (if *c:panic?* "void stalin_panic(char *message) NORETURN; void stalin_panic(char *message) {fprintf(stderr, \"%s\\n\", message); exit(-1);}" "") (if *c:backtrace?* "void backtrace(char *file_name, unsigned int line_number, unsigned int character_number); void backtrace(char *file_name, unsigned int line_number, unsigned int character_number) {fprintf(stderr, \"\\n%s:%d:%d:\", file_name, line_number, character_number);}" "") (if *c:backtrace-internal?* "void backtrace_internal(char *name); void backtrace_internal(char *name) {fprintf(stderr, \"\\nIn %s\\n\", name);}" "") (if *c:ipow?* (list "int ipow(int x, int y); int ipow(int x, int y) {int i, r = 1; for (i = 0; i0 if there is input, -1 if error */ {fd_set rfds; struct timeval tv; /* check stdio buffer first */ if (feof(f)) return 1; #ifdef __linux__ if ((f->_IO_read_end)>(f->_IO_read_ptr)) return 1; #else if ((f->_cnt)>0) return 1; #endif /* watch fd to see when it has input */ FD_ZERO(&rfds); FD_SET(fileno(f), &rfds); /* do not wait */ tv.tv_sec = 0; tv.tv_usec = 0; return select(fileno(f)+1, &rfds, NULL, NULL, &tv);}") "") (if *treadmarks?* "void Tmk_distribute_hack(const void *ptr, int size) { const char *p = ptr; while (size>0) { Tmk_distribute((void *)p, (size>65460)?65460:size); p += 65460; size -= 65460;}} int Tmk_get_NBARRIERS(void) {return TMK_NBARRIERS;} int Tmk_get_NPROCS(void) {return TMK_NPROCS;} int Tmk_get_proc_id(void) {return Tmk_proc_id;} int Tmk_get_NLOCKS(void) {return TMK_NLOCKS;}" ""))) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/source/stalin5d.sc0000600017435200151030000023403710464434544014764 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; Stalin 0.11 - A global optimizing compiler for Scheme ;;; Copyright 1993, 1994, and 1995 University of Toronto. All rights reserved. ;;; Copyright 1996 Technion. All rights reserved. ;;; Copyright 1996 and 1997 University of Vermont. All rights reserved. ;;; Copyright 1997, 1998, 1999, 2000, and 2001 NEC Research Institute, Inc. All ;;; rights reserved. ;;; Copyright 2002, 2003, 2004, 2005, and 2006 Purdue University. All rights ;;; reserved. ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License ;;; as published by the Free Software Foundation; either version 2 ;;; of the License, or (at your option) any later version. ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;;; written by: ;;; Jeffrey Mark Siskind ;;; School of Electrical and Computer Engineering ;;; Purdue University ;;; Electrical Engineering Building, Room 330 ;;; 465 Northwestern Avenue ;;; West Lafayette IN 47907-2035 USA ;;; voice: 765/496-3197 ;;; fax: 765/494-6440 ;;; qobi@purdue.edu ;;; http://www.ece.purdue.edu/~qobi ;;; Begin delete for Trotsky (module stalin5d) (include "QobiScheme.sch") (include "stalin5d.sch") ;;; End delete for Trotsky (define *Scheme->C-compatibility-macros* (list (list 'when (lambda (s) (unless (>= (sx-length s) 2) (syntax-error s "Improper WHEN")) `(if ,(sx-second s) (begin ,@(sx-unlist (sx-rest (sx-rest s))))))) (list 'unless (lambda (s) (unless (>= (sx-length s) 2) (syntax-error s "Improper UNLESS")) `(if ,(sx-second s) ((lambda ())) (begin ,@(sx-unlist (sx-rest (sx-rest s))))))))) (define (valid-Xlib-and-GL-type? type) ;; conventions: TYPE (let ((type (unencapsulate type))) ;; conventions: TYPE (or (equal? type 'pointer) (equal? type 'void) (equal? type '(pointer void)) (equal? type '(pointer (pointer void))) (equal? type 'char) (equal? type '(pointer char)) (equal? type '(pointer (pointer char))) (equal? type '(pointer (pointer (pointer char)))) (equal? type 'unsigned-char) (equal? type '(pointer unsigned-char)) (equal? type '(pointer (pointer unsigned-char))) (equal? type '(pointer (pointer (pointer unsigned-char)))) (equal? type 'signed-char) (equal? type '(pointer signed-char)) (equal? type 'string) (equal? type 'short) (equal? type '(pointer short)) (equal? type 'unsigned-short) (equal? type '(pointer unsigned-short)) (equal? type 'int) (equal? type '(pointer int)) (equal? type 'unsigned-int) (equal? type '(pointer unsigned-int)) (equal? type 'long) (equal? type 'unsigned-long) (equal? type '(pointer unsigned-long)) (equal? type '(pointer (pointer unsigned-long))) (equal? type 'float) (equal? type '(pointer float)) (equal? type 'double) (equal? type '(pointer double)) (equal? type '(pointer union)) (equal? type '(pointer struct)) (equal? type '(pointer (struct "GLUquadricObj"))) (equal? type '(pointer (struct "GLUnurbsObj"))) (equal? type '(pointer (struct "GLUtriangulatorObj"))) (equal? type '(pointer (pointer struct))) (equal? type '(pointer (pointer (pointer struct)))) (equal? type '(pointer function))))) (define (translate-Xlib-and-GL-type type) ;; conventions: TYPE (let ((type (unencapsulate type))) ;; conventions: TYPE (cond ((equal? type 'pointer) 'void*) ;needs work ((equal? type 'void) 'void) ((equal? type '(pointer void)) 'void*) ((equal? type '(pointer (pointer void))) 'void*) ((equal? type 'char) 'char) ((equal? type '(pointer char)) 'void*) ((equal? type '(pointer (pointer char))) 'void*) ((equal? type '(pointer (pointer (pointer char)))) 'void*) ((equal? type 'unsigned-char) 'unsigned-char) ((equal? type '(pointer unsigned-char)) 'void*) ((equal? type '(pointer (pointer unsigned-char))) 'void*) ((equal? type '(pointer (pointer (pointer unsigned-char)))) 'void*) ((equal? type 'signed-char) 'signed-char) ((equal? type '(pointer signed-char)) 'void*) ((equal? type 'string) 'char*) ((equal? type 'short) 'short) ((equal? type '(pointer short)) 'void*) ((equal? type 'unsigned-short) 'unsigned-short) ((equal? type '(pointer unsigned-short)) 'void*) ((equal? type 'int) 'int) ((equal? type '(pointer int)) 'void*) ((equal? type 'unsigned-int) 'unsigned) ((equal? type '(pointer unsigned-int)) 'void*) ((equal? type 'long) 'long) ((equal? type 'unsigned-long) 'unsigned-long) ((equal? type '(pointer unsigned-long)) 'void*) ((equal? type '(pointer (pointer unsigned-long))) 'void*) ((equal? type 'float) 'float) ((equal? type '(pointer float)) 'void*) ((equal? type 'double) 'double) ((equal? type '(pointer double)) 'void*) ((equal? type '(pointer union)) 'void*) ((equal? type '(pointer struct)) 'void*) ((equal? type '(pointer (struct "GLUquadricObj"))) 'void*) ((equal? type '(pointer (struct "GLUnurbsObj"))) 'void*) ((equal? type '(pointer (struct "GLUtriangulatorObj"))) 'void*) ((equal? type '(pointer (pointer struct))) 'void*) ((equal? type '(pointer (pointer (pointer struct)))) 'void*) ((equal? type '(pointer function)) 'void*) (else (fuck-up))))) (define *Xlib-and-GL-macros* (list (list 'foreign-function (lambda (s) (unless (and (= (sx-length s) 5) (sx-symbol? (sx-second s)) (sx-list? (sx-third s)) (sx-every valid-Xlib-and-GL-type? (sx-third s)) (valid-Xlib-and-GL-type? (sx-fourth s)) (sx-string? (sx-fifth s))) (syntax-error s "Improper FOREIGN-FUNCTION")) `(define ,(sx-second s) (foreign-procedure ,(sx-map translate-Xlib-and-GL-type (sx-third s)) ,(translate-Xlib-and-GL-type (sx-fourth s)) ,(sx-fifth s))))) (list 'foreign-define (lambda (s) (unless (and (= (sx-length s) 3) (sx-symbol? (sx-second s))) (syntax-error s "Improper FOREIGN-DEFINE")) `(define ,(sx-second s) ,(sx-third s)))) (list 'in-package (lambda (s) (unless (and (= (sx-length s) 2) (sx-symbol? (sx-second s))) (syntax-error s "Improper IN-PACKAGE")) `(begin))))) ;;; Derived from the t21oct97 archive of QobiScheme, updated to the ;;; m2feb98, r5feb98, m7dec98, m24jan00, f10mar00, h22apr00, f5may00, ;;; m12jun00, and m25jun01 archives. (define *QobiScheme-macros* (list (list 'define-structure (lambda (s) (unless (and (>= (sx-length s) 3) (sx-every sx-symbol? (sx-rest s))) (syntax-error s "Improper DEFINE-STRUCTURE")) (let ((type (sx-datum (sx-second s))) (slots (sx-unlist (sx-rest (sx-rest s))))) ;; conventions: TYPE SLOTS `(begin (define (,(string->symbol (string-append "MAKE-" (symbol->string type))) ,@(map sx-datum slots)) ((primitive-procedure make-structure ,type ,(length slots)) ,@(map sx-datum slots))) (define (,(string->symbol (string-append (symbol->string type) "?")) obj) ((primitive-procedure structure? ,type) obj)) ,@(map-indexed (lambda (slot i) ;; conventions: SLOT I (let ((slot (sx-datum slot))) ;; conventions: SLOT `(begin (define (,(string->symbol (string-append (symbol->string type) "-" (symbol->string slot))) s) ((primitive-procedure structure-ref ,type ,i) s)) (define (,(string->symbol (string-append "SET-" (symbol->string type) "-" (symbol->string slot) "!")) s x) ((primitive-procedure structure-set! ,type ,i) s x)) (define (,(string->symbol (string-append "LOCAL-SET-" (symbol->string type) "-" (symbol->string slot) "!")) s x) (let ((p ((primitive-procedure structure-ref ,type ,i) s))) ;; conventions: P (upon-failure ((primitive-procedure structure-set! ,type ,i) s p))) ((primitive-procedure structure-set! ,type ,i) s x))))) slots) ;;; Begin delete for Trotsky (define ,(string->uninterned-symbol "ignore") (define-write-method ,(string->symbol (string-append (symbol->string type) "?")) (lambda (s port) (display "#S(" port) (display ,(symbol->string type) port) ,@(reduce append (map (lambda (slot) `((display " " port) (write (,(string->symbol (string-append (symbol->string type) "-" (symbol->string (sx-datum slot)))) s) port))) slots) '()) (display ")" port)))) (define ,(string->uninterned-symbol "ignore") (define-display-method ,(string->symbol (string-append (symbol->string type) "?")) (lambda (s port) (display "#S(" port) (display ,(symbol->string type) port) ,@(reduce append (map (lambda (slot) `((display " " port) (display (,(string->symbol (string-append (symbol->string type) "-" (symbol->string (sx-datum slot)))) s) port))) slots) '()) (display ")" port)))) ;;; End delete for Trotsky )))) (list 'while (lambda (s) (let ((loop (gensym "loop"))) ;changed ;; conventions: LOOP `(begin (define (,loop) (when ,(sx-second s) ,@(sx-unlist (sx-rest (sx-rest s))) (,loop))) (,loop))))) (list 'either (lambda (s) (cond ((sx-null? (sx-rest s)) '(fail)) ((sx-null? (sx-rest (sx-rest s))) (sx-second s)) (else `(if (a-boolean) ,(sx-second s) (either ,@(sx-unlist (sx-rest (sx-rest s))))))))) (list 'for-effects (lambda (s) (let ((return (gensym "return")) ;changed (old-fail (gensym "old-fail"))) ;changed ;; conventions: RETURN OLD-FAIL `(call-with-current-continuation (lambda (,return) (let ((,old-fail fail)) (set! fail (lambda () (set! fail ,old-fail) (,return #f))) (begin ,@(sx-unlist (sx-rest s))) (fail))))))) (list 'one-value (lambda (s) (unless (or (= (sx-length s) 2) (= (sx-length s) 3)) (syntax-error s "Improper ONE-VALUE")) (let ((s1 (sx-second s)) (s2 (if (= (sx-length s) 2) '(fail) (sx-third s))) (return (gensym "return")) ;changed (old-fail (gensym "old-fail"))) ;changed ;; conventions: S1 S2 RETURN OLD-FAIL `(call-with-current-continuation (lambda (,return) (let ((,old-fail fail)) (set! fail (lambda () (set! fail ,old-fail) (,return ,s2))) (let ((v ,s1)) (set! fail ,old-fail) v))))))) ;changed (list 'local-one-value ;; needs work: *FAIL?* can potentially be captured. (lambda (s) (unless (or (= (sx-length s) 2) (= (sx-length s) 3)) (syntax-error s "Improper LOCAL-ONE-VALUE")) (let ((s1 (sx-second s)) (s2 (if (= (sx-length s) 2) '(fail) (sx-third s))) (return (gensym "return")) ;changed (old-fail (gensym "old-fail")) ;changed (v (gensym "v"))) ;changed ;; conventions: S1 S2 RETURN OLD-FAIL V `(call-with-current-continuation (lambda (,return) (let ((,v #f) (,old-fail fail)) (set! fail (lambda () (set! fail ,old-fail) (,return (cond (*fail?* ,s2) (else (set! *fail?* #t) ,v))))) (set! ,v ,s1) (set! *fail?* #f) (fail))))))) (list 'all-values ;; needs work: To eliminate REVERSE. (lambda (s) (let ((values (gensym "values"))) ;changed ;; conventions: VALUEs `(let ((,values '())) (for-effects (set! ,values (cons (begin ,@(sx-unlist (sx-rest s))) ,values))) (reverse ,values))))) (list 'possibly? (lambda (s) (let ((return (gensym "return")) ;changed (old-fail (gensym "old-fail")) ;changed (v (gensym "v"))) ;changed ;; conventions: RETURN OLD-FAIL V `(call-with-current-continuation (lambda (,return) (let ((,old-fail fail)) (set! fail (lambda () (set! fail ,old-fail) (,return #f))) (let ((,v (begin ,@(sx-unlist (sx-rest s))))) (unless ,v (fail)) (set! fail ,old-fail) ,v))))))) ;changed (list 'necessarily? (lambda (s) (let ((return (gensym "return")) ;changed (old-fail (gensym "old-fail")) ;changed (v (gensym "v")) ;changed (u (gensym "u"))) ;changed ;; conventions: RETURN OLD-FAIL V U `(call-with-current-continuation (lambda (,return) (let ((,old-fail fail) (,u #t)) (set! fail (lambda () (set! fail ,old-fail) (,return ,u))) (let ((,v (begin ,@(sx-unlist (sx-rest s))))) (when ,v (set! ,u ,v) (fail)) (set! fail ,old-fail) #f))))))) ;changed (list 'upon-failure (lambda (s) (let ((old-fail (gensym "old-fail"))) ;changed ;; conventions: OLD-FAIL `(let ((,old-fail fail)) (set! fail (lambda () (set! fail ,old-fail) ,@(sx-unlist (sx-rest s)) (fail))))))) (list 'local-set! (lambda (s) (unless (= (sx-length s) 3) (syntax-error s "Improper LOCAL-SET!")) (let ((p (gensym "p"))) ;changed ;; conventions: P `(begin (let ((,p ,(sx-second s))) (upon-failure (set! ,(sx-second s) ,p))) (set! ,(sx-second s) ,(sx-third s)))))) (list 'lazy (lambda (s) (let ((args (gensym "args"))) ;changed ;; conventions: LAZY `(lambda ,args (apply ,(sx-second s) ,args))))) (list 'define-toggle-button (lambda (s) (unless (and (= (sx-length s) 6) (sx-symbol? (sx-fifth s))) (syntax-error s "Improper DEFINE-TOGGLE-BUTTON")) `(define-button ,(sx-second s) ,(sx-third s) ,(sx-fourth s) (lambda () ,(sx-fifth s)) (lambda () (set! ,(sx-fifth s) (not ,(sx-fifth s))) (redraw-buttons) (,(sx-sixth s)))))) (list 'define-radio-buttons (lambda (s) (unless (and (>= (sx-length s) 3) (sx-symbol? (sx-second s)) (sx-every (lambda (element) (and (sx-list? element) (= (sx-length element) 4) (sx-symbol? (sx-third element)))) (sx-rest (sx-rest (sx-rest s))))) (syntax-error s "Improper DEFINE-RADIO-BUTTONS")) `(begin ,@(sx-map (lambda (element) `(define-button ,(sx-first element) ,(sx-second element) ,(sx-fourth element) (lambda () (eq? ,(sx-second s) ',(sx-third element))) (lambda () (set! ,(sx-second s) ',(sx-third element)) (redraw-buttons) (,(sx-third s))))) (sx-rest (sx-rest (sx-rest s))))))) (list 'define-cycle-button (lambda (s) (unless (and (>= (sx-length s) 6) (sx-symbol? (sx-fourth s)) (sx-every (lambda (element) (and (sx-list? element) (= (sx-length element) 2) (sx-symbol? (sx-first element)))) (sx-rest (sx-rest (sx-rest (sx-rest (sx-rest s))))))) (syntax-error s "Improper DEFINE-CYCLE-BUTTON")) (let ((symbols (sx-map sx-first (sx-rest (sx-rest (sx-rest (sx-rest (sx-rest s)))))))) `(define-button ,(sx-second s) ,(sx-third s) (lambda () (case ,(sx-fourth s) ,@(sx-map (lambda (element) `((,(sx-first element)) ,(sx-second element))) (sx-rest (sx-rest (sx-rest (sx-rest (sx-rest s)))))) (else (fuck-up)))) #f (lambda () (set! ,(sx-fourth s) (case ,(sx-fourth s) ,@(map (lambda (s1 s2) `((,s1) (set! ,(sx-fourth s) ',s2))) symbols (append (rest symbols) (list (first symbols)))) (else (fuck-up)))) (redraw-buttons) (,(sx-fifth s))))))) (list 'define-integer-range-buttons (lambda (s) (unless (and (= (sx-length s) 11) (sx-symbol? (sx-sixth s))) (syntax-error s "Improper DEFINE-INTEGER-RANGE-BUTTONS")) `(begin (define-button ,(sx-second s) ,(sx-third s) ,(sx-ninth s) #f (lambda () (when (= ,(sx-sixth s) ,(sx-seventh s)) (abort)) (set! ,(sx-sixth s) (- ,(sx-sixth s) 1)) (redraw-buttons) (,(sx-eleventh s)))) (define-button ,(sx-fourth s) ,(sx-fifth s) ,(sx-tenth s) #f (lambda () (when (= ,(sx-sixth s) ,(sx-eighth s)) (abort)) (set! ,(sx-sixth s) (+ ,(sx-sixth s) 1)) (redraw-buttons) (,(sx-eleventh s))))))) (list 'define-display-pane-application ;; (DEFINE-DISPLAY-PANE-APPLICATION ;; NAME ;; DISPLAY-PANE-WIDTH ;; DISPLAY-PANE-HEIGHT ;; PRE-INITIALIZE-PROCEDURE ;; POST-INITIALIZE-PROCEDURE ;; FINALIZE-PROCEDURE ;; REDRAW-PROCEDURE) (lambda (s) `(define (,(sx-second s) arguments) (let* ((stalin? #t) (display-pane-width ,(sx-third s)) (display-pane-height ,(sx-fourth s)) (pre-initialize-procedure ,(sx-fifth s)) (post-initialize-procedure ,(sx-sixth s)) (finalize-procedure ,(sx-seventh s)) (redraw-procedure ,(sx-eighth s))) (set! *post-initialize-procedure* post-initialize-procedure) (set! *transcript-pane* #f) (set! *echo-pane* #f) (set! *status-pane* #f) (set! *message-pane* #f) (set! *display* (xopendisplay *display-name*)) ;; changed: NULL-POINTER?, FORMAT (when (zero? *display*) (panic (format #f "Cannot connect to X server: ~a" (xdisplayname *display-name*)))) (set! *screen* (xdefaultscreen *display*)) (set! *root-window* (xrootwindow *display* *screen*)) (set! *button-width* 0) (set! *button-height* 0) (cond (stalin? (set! *white-pixel* (xwhitepixel *display* *screen*)) (set! *black-pixel* (xblackpixel *display* *screen*))) (else (set! *background* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) *background-color*)) (unless (= (first *background*) 1) (panic "Can't allocate background colorcell")) (set! *foreground* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) *foreground-color*)) (unless (= (first *foreground*) 1) (panic "Can't allocate foreground colorcell")))) (set! *roman-font* (xloadqueryfont *display* *roman-font-name*)) ;; changed: NULL-POINTER?, FORMAT (when (zero? *roman-font*) (panic (format #f "Cannot open font: ~a" *roman-font-name*))) (set! *bold-font* (xloadqueryfont *display* *bold-font-name*)) ;; changed: NULL-POINTER?, FORMAT (when (zero? *bold-font*) (panic (format #f "Cannot open font: ~a" *bold-font-name*))) (set! *roman-height* (+ (xfontstruct-ascent *roman-font*) (xfontstruct-descent *roman-font*))) (set! *bold-height* (+ (xfontstruct-ascent *bold-font*) (xfontstruct-descent *bold-font*))) (set! *text-height* (+ (max (xfontstruct-ascent *roman-font*) (xfontstruct-ascent *bold-font*)) (max (xfontstruct-descent *roman-font*) (xfontstruct-descent *bold-font*)))) (set! *roman-baseline* (xfontstruct-descent *roman-font*)) (set! *bold-baseline* (xfontstruct-descent *bold-font*)) (set! *text-baseline* (max *roman-baseline* *bold-baseline*)) (set! *display-pane-width* display-pane-width) (set! *display-pane-height* display-pane-height) (set! *who-line-height* 0) (set! *window* (xcreatesimplewindow *display* *root-window* *window-position-x* *window-position-y* *display-pane-width* *display-pane-height* 1 (if stalin? *black-pixel* (xcolor-pixel (second *foreground*))) (if stalin? *white-pixel* (xcolor-pixel (second *background*))))) (xstorename *display* *window* *program*) (xseticonname *display* *window* *program*) (set! *display-pane* *window*) (xselectinput *display* *display-pane* (bit-or exposuremask pointermotionmask buttonpressmask buttonreleasemask keypressmask)) (set! *thin-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *thin-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *thin-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetlineattributes *display* *thin-gc* 0 linesolid capround joinround) (set! *thin-flipping-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *thin-flipping-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetforeground *display* *thin-flipping-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetlineattributes *display* *thin-flipping-gc* 0 linesolid capround joinround) (xsetfunction *display* *thin-flipping-gc* gxxor) (set! *medium-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *medium-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *medium-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetlineattributes *display* *medium-gc* 2 linesolid capround joinround) (set! *medium-flipping-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *medium-flipping-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetforeground *display* *medium-flipping-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetlineattributes *display* *medium-flipping-gc* 2 linesolid capround joinround) (xsetfunction *display* *medium-flipping-gc* gxxor) (set! *thick-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *thick-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *thick-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetlineattributes *display* *thick-gc* 5 linesolid capround joinround) (set! *thick-flipping-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *thick-flipping-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetforeground *display* *thick-flipping-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetlineattributes *display* *thick-flipping-gc* 5 linesolid capround joinround) (xsetfunction *display* *thick-flipping-gc* gxxor) (set! *dashed-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *dashed-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *dashed-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetlineattributes *display* *dashed-gc* 0 lineonoffdash capround joinround) (set! *dashed-flipping-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *dashed-flipping-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetforeground *display* *dashed-flipping-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetlineattributes *display* *dashed-flipping-gc* 0 lineonoffdash capround joinround) (xsetfunction *display* *dashed-flipping-gc* gxxor) (set! *roman-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *roman-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *roman-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetfont *display* *roman-gc* (xfontstruct-fid *roman-font*)) (set! *bold-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *bold-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *bold-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetfont *display* *bold-gc* (xfontstruct-fid *bold-font*)) (set! *bold-flipping-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *bold-flipping-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetforeground *display* *bold-flipping-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetfont *display* *bold-flipping-gc* (xfontstruct-fid *bold-font*)) (xsetlineattributes *display* *bold-flipping-gc* 0 linesolid capround joinround) (xsetfunction *display* *bold-flipping-gc* gxxor) (unless stalin? (set! *light-gray* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Light Gray")) (unless (= (first *light-gray*) 1) (panic "Can't allocate light gray colorcell")) (set! *light-gray-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *light-gray-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *light-gray-gc* (xcolor-pixel (second *light-gray*))) (xsetlineattributes *display* *light-gray-gc* 0 linesolid capround joinround) (set! *gray* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Gray")) (unless (= (first *gray*) 1) (panic "Can't allocate gray colorcell")) (set! *gray-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *gray-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *gray-gc* (xcolor-pixel (second *gray*))) (xsetlineattributes *display* *gray-gc* 0 linesolid capround joinround) (set! *red* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Red")) (unless (= (first *red*) 1) (panic "Can't allocate red colorcell")) (set! *red-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *red-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *red-gc* (xcolor-pixel (second *red*))) (xsetfont *display* *red-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *red-gc* 0 linesolid capround joinround) (set! *dark-red* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Dark Red")) (unless (= (first *dark-red*) 1) (panic "Can't allocate dark red colorcell")) (set! *dark-red-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *dark-red-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *dark-red-gc* (xcolor-pixel (second *dark-red*))) (xsetfont *display* *dark-red-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *dark-red-gc* 0 linesolid capround joinround) (set! *green* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Green")) (unless (= (first *green*) 1) (panic "Can't allocate green colorcell")) (set! *green-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *green-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *green-gc* (xcolor-pixel (second *green*))) (xsetfont *display* *green-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *green-gc* 0 linesolid capround joinround) (set! *dark-green* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Dark Green")) (unless (= (first *dark-green*) 1) (panic "Can't allocate dark green colorcell")) (set! *dark-green-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *dark-green-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *dark-green-gc* (xcolor-pixel (second *dark-green*))) (xsetfont *display* *dark-green-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *dark-green-gc* 0 linesolid capround joinround) (set! *blue* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Blue")) (unless (= (first *blue*) 1) (panic "Can't allocate blue colorcell")) (set! *blue-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *blue-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *blue-gc* (xcolor-pixel (second *blue*))) (xsetfont *display* *blue-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *blue-gc* 0 linesolid capround joinround) (set! *yellow* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Yellow")) (unless (= (first *yellow*) 1) (panic "Can't allocate yellow colorcell")) (set! *yellow-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *yellow-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *yellow-gc* (xcolor-pixel (second *yellow*))) (xsetfont *display* *yellow-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *yellow-gc* 0 linesolid capround joinround) (set! *violet* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Violet")) (unless (= (first *violet*) 1) (panic "Can't allocate violet colorcell")) (set! *violet-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *violet-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *violet-gc* (xcolor-pixel (second *violet*))) (xsetfont *display* *violet-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *violet-gc* 0 linesolid capround joinround) (set! *orange* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Orange")) (unless (= (first *orange*) 1) (panic "Can't allocate orange colorcell")) (set! *orange-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *orange-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *orange-gc* (xcolor-pixel (second *orange*))) (xsetfont *display* *orange-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *orange-gc* 0 linesolid capround joinround) (set! *dark-orange* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Dark Orange")) (unless (= (first *dark-orange*) 1) (panic "Can't allocate dark orange colorcell")) (set! *dark-orange-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *dark-orange-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *dark-orange-gc* (xcolor-pixel (second *dark-orange*))) (xsetfont *display* *dark-orange-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *dark-orange-gc* 0 linesolid capround joinround)) (set! *color-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *color-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *color-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetlineattributes *display* *color-gc* 0 linesolid capround joinround) (set! *window-methods* '()) (set! *abort-button* #f) (set! *abort-key* #f) (set! *comtab* (make-vector 256 #f)) (set! *help* '()) (define-key (control #\h) "Help" help-command) (set! *help* '()) (define-key (control #\n) "Scroll help window down one line" help-scroll-down-line-command) (define-key (control #\p) "Scroll help window up one line" help-scroll-up-line-command) (define-key (control #\v) "Scroll help window down one page" help-scroll-down-page-command) (define-key (meta #\v) "Scroll help window up one page" help-scroll-up-page-command) (define-key (meta #\<) "Scroll help window to beginning" help-scroll-beginning-command) (define-key (meta #\>) "Scroll help window to end" help-scroll-end-command) (set! *help-comtab* *comtab*) (set! *comtab* (make-vector 256 #f)) (set! *prefix* '()) (set! *status* "Tyi") (set! *message* "") (set! *redraw-procedure* redraw-procedure) (set! *buttons* '()) (set! *pause?* #f) (set! *help?* #f) (set! *clear-display-pane?* #t) (let ((hints (make-xwmhints))) (set-xwmhints-input! hints 1) ;changed (set-xwmhints-flags! hints inputhint) ;changed (xsetwmhints *display* *window* hints)) (let ((hints (make-xsizehints))) (when *window-position?* (set-xsizehints-x! hints *window-position-x*) ;changed (set-xsizehints-y! hints *window-position-y*)) ;changed (set-xsizehints-min_width! hints *display-pane-width*) ;changed (set-xsizehints-max_width! hints *display-pane-width*) ;changed (set-xsizehints-min_height! hints *display-pane-height*) ;changed (set-xsizehints-max_height! hints *display-pane-height*) ;changed (set-xsizehints-flags! hints (if *window-position?* (+ usposition pposition pminsize pmaxsize) (+ pminsize pmaxsize))) (xsetwmnormalhints *display* *window* hints)) (pre-initialize-procedure) (set-window-method! *display-pane* 'expose redraw-display-pane) (set-window-method! *display-pane* 'buttonpress region-handler) (when *transcript-pane* (set-window-method! *transcript-pane* 'expose redraw-transcript-pane)) (when *echo-pane* (set-window-method! *echo-pane* 'expose redraw-echo-pane)) (set! ;changed kill-application (lambda () (set! kill-application (lambda () #t)) (finalize-procedure) (when *display* (xfreegc *display* *thin-gc*) (xfreegc *display* *thin-flipping-gc*) (xfreegc *display* *medium-gc*) (xfreegc *display* *medium-flipping-gc*) (xfreegc *display* *thick-gc*) (xfreegc *display* *thick-flipping-gc*) (xfreegc *display* *dashed-gc*) (xfreegc *display* *dashed-flipping-gc*) (xfreegc *display* *roman-gc*) (xfreegc *display* *bold-gc*) (xfreegc *display* *bold-flipping-gc*) (unless stalin? (xfreegc *display* *light-gray-gc*) (xfreegc *display* *gray-gc*) (xfreegc *display* *red-gc*) (xfreegc *display* *dark-red-gc*) (xfreegc *display* *green-gc*) (xfreegc *display* *dark-green-gc*) (xfreegc *display* *blue-gc*) (xfreegc *display* *yellow-gc*) (xfreegc *display* *violet-gc*) (xfreegc *display* *orange-gc*) (xfreegc *display* *dark-orange-gc*) (xfreegc *display* *color-gc*) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *background*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *foreground*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *light-gray*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *gray*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *red*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *dark-red*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *green*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *dark-green*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *blue*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *yellow*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *violet*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *orange*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *dark-orange*)))) 1 0)) (xunloadfont *display* (xfontstruct-fid *roman-font*)) (xunloadfont *display* (xfontstruct-fid *bold-font*)) (xdestroywindow *display* *window*) (xclosedisplay *display*) (set! *display* #f)) #t)) (xmapsubwindows *display* *window*) (xmapraised *display* *window*) (process-events) (kill-application))))) (list 'define-application ;; (DEFINE-APPLICATION ;; NAME ;; DISPLAY-PANE-WIDTH ;; DISPLAY-PANE-HEIGHT ;; TRANSCRIPT-LINES ;; BUTTON-ROWS ;; BUTTOM-COLUMNS ;; PRE-INITIALIZE-PROCEDURE ;; POST-INITIALIZE-PROCEDURE ;; FINALIZE-PROCEDURE ;; REDRAW-PROCEDURE ;; LISTENER-PROCEDURE) (lambda (s) `(define (,(sx-second s) arguments) (let* ((stalin? #t) (display-pane-width ,(sx-third s)) (display-pane-height ,(sx-fourth s)) (transcript-lines ,(sx-fifth s)) (button-rows ,(sx-sixth s)) (button-columns ,(sx-seventh s)) (button-width (if display-pane-width (- (quotient (+ display-pane-width 4) button-columns) 4) 100)) (width (if display-pane-width (+ display-pane-width 6) (+ (* button-columns (+ button-width 4)) 2))) (pre-initialize-procedure ,(sx-eighth s)) (post-initialize-procedure ,(sx-ninth s)) (finalize-procedure ,(sx-tenth s)) (redraw-procedure ,(sx-eleventh s)) (listener-procedure ,(if (= (sx-length s) 12) (sx-twelfth s) '(lambda () #f)))) (set! *post-initialize-procedure* post-initialize-procedure) (set! *transcript-pane* #f) (set! *echo-pane* #f) (set! *display* (xopendisplay *display-name*)) ;; changed: NULL-POINTER?, FORMAT (when (zero? *display*) (panic (format #f "Cannot connect to X server: ~a" (xdisplayname *display-name*)))) (set! *screen* (xdefaultscreen *display*)) (set! *root-window* (xrootwindow *display* *screen*)) (cond (stalin? (set! *white-pixel* (xwhitepixel *display* *screen*)) (set! *black-pixel* (xblackpixel *display* *screen*))) (else (set! *background* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) *background-color*)) (unless (= (first *background*) 1) (panic "Can't allocate background colorcell")) (set! *foreground* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) *foreground-color*)) (unless (= (first *foreground*) 1) (panic "Can't allocate foreground colorcell")))) (set! *roman-font* (xloadqueryfont *display* *roman-font-name*)) ;; changed: NULL-POINTER?, FORMAT (when (zero? *roman-font*) (panic (format #f "Cannot open font: ~a" *roman-font-name*))) (set! *bold-font* (xloadqueryfont *display* *bold-font-name*)) ;; changed: NULL-POINTER?, FORMAT (when (zero? *bold-font*) (panic (format #f "Cannot open font: ~a" *bold-font-name*))) (set! *roman-height* (+ (xfontstruct-ascent *roman-font*) (xfontstruct-descent *roman-font*))) (set! *bold-height* (+ (xfontstruct-ascent *bold-font*) (xfontstruct-descent *bold-font*))) (set! *text-height* (+ (max (xfontstruct-ascent *roman-font*) (xfontstruct-ascent *bold-font*)) (max (xfontstruct-descent *roman-font*) (xfontstruct-descent *bold-font*)))) (set! *roman-baseline* (xfontstruct-descent *roman-font*)) (set! *bold-baseline* (xfontstruct-descent *bold-font*)) (set! *text-baseline* (max *roman-baseline* *bold-baseline*)) (set! *button-width* button-width) (set! *button-height* (+ *text-height* 4)) (set! *display-pane-width* (- width 6)) (set! *display-pane-height* display-pane-height) (when transcript-lines (unless (zero? transcript-lines) (set! *transcript-pane-height* (+ (* transcript-lines *text-height*) 4))) (set! *echo-pane-height* (+ *text-height* 4))) (set! *who-line-height* (+ *text-height* 4)) (set! *status-pane-width* (+ (max (xtextwidth *roman-font* "Tyi" 3) (xtextwidth *roman-font* "Run" 3) (xtextwidth *roman-font* "Pause" 5) (xtextwidth *roman-font* "Track" 5)) 4)) (set! *window* (xcreatesimplewindow *display* *root-window* *window-position-x* *window-position-y* width (if transcript-lines (if (zero? transcript-lines) (+ (* button-rows (+ *button-height* 4)) *display-pane-height* *echo-pane-height* *who-line-height* 14) (+ (* button-rows (+ *button-height* 4)) *display-pane-height* *transcript-pane-height* *echo-pane-height* *who-line-height* 18)) (+ (* button-rows (+ *button-height* 4)) *display-pane-height* *who-line-height* 10)) 1 (if stalin? *black-pixel* (xcolor-pixel (second *foreground*))) (if stalin? *white-pixel* (xcolor-pixel (second *background*))))) (xstorename *display* *window* *program*) (xseticonname *display* *window* *program*) (xselectinput *display* *window* (bit-or exposuremask pointermotionmask buttonpressmask buttonreleasemask keypressmask)) (set! *display-pane* (xcreatesimplewindow *display* *window* 2 (+ (* button-rows (+ *button-height* 4)) 2) *display-pane-width* *display-pane-height* 1 (if stalin? *black-pixel* (xcolor-pixel (second *foreground*))) (if stalin? *white-pixel* (xcolor-pixel (second *background*))))) (xselectinput *display* *display-pane* (bit-or exposuremask pointermotionmask buttonpressmask buttonreleasemask keypressmask)) (when transcript-lines (unless (zero? transcript-lines) (set! *transcript-pane* (xcreatesimplewindow *display* *window* 2 (+ (* button-rows (+ *button-height* 4)) *display-pane-height* 6) *display-pane-width* *transcript-pane-height* 1 (if stalin? *black-pixel* (xcolor-pixel (second *foreground*))) (if stalin? *white-pixel* (xcolor-pixel (second *background*))))) (xselectinput *display* *transcript-pane* (bit-or exposuremask keypressmask))) (set! *echo-pane* (xcreatesimplewindow *display* *window* 2 (if (zero? transcript-lines) (+ (* button-rows (+ *button-height* 4)) *display-pane-height* 6) (+ (* button-rows (+ *button-height* 4)) *display-pane-height* *transcript-pane-height* 10)) *display-pane-width* *echo-pane-height* 1 (if stalin? *black-pixel* (xcolor-pixel (second *foreground*))) (if stalin? *white-pixel* (xcolor-pixel (second *background*))))) (xselectinput *display* *echo-pane* (bit-or exposuremask keypressmask))) (set! *status-pane* (xcreatesimplewindow *display* *window* 2 (+ (* button-rows (+ *button-height* 4)) *display-pane-height* (if transcript-lines (if (zero? transcript-lines) (+ *echo-pane-height* 10) (+ *transcript-pane-height* *echo-pane-height* 14)) 6)) *status-pane-width* *who-line-height* 1 (if stalin? *black-pixel* (xcolor-pixel (second *foreground*))) (if stalin? *white-pixel* (xcolor-pixel (second *background*))))) (xselectinput *display* *status-pane* (bit-or exposuremask keypressmask)) (set! *message-pane* (xcreatesimplewindow *display* *window* (+ *status-pane-width* 6) (+ (* button-rows (+ *button-height* 4)) *display-pane-height* (if transcript-lines (if (zero? transcript-lines) (+ *echo-pane-height* 10) (+ *transcript-pane-height* *echo-pane-height* 14)) 6)) (- width *status-pane-width* 10) *who-line-height* 1 (if stalin? *black-pixel* (xcolor-pixel (second *foreground*))) (if stalin? *white-pixel* (xcolor-pixel (second *background*))))) (xselectinput *display* *message-pane* (bit-or exposuremask keypressmask)) (set! *thin-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *thin-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *thin-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetlineattributes *display* *thin-gc* 0 linesolid capround joinround) (set! *thin-flipping-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *thin-flipping-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetforeground *display* *thin-flipping-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetlineattributes *display* *thin-flipping-gc* 0 linesolid capround joinround) (xsetfunction *display* *thin-flipping-gc* gxxor) (set! *medium-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *medium-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *medium-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetlineattributes *display* *medium-gc* 2 linesolid capround joinround) (set! *medium-flipping-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *medium-flipping-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetforeground *display* *medium-flipping-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetlineattributes *display* *medium-flipping-gc* 2 linesolid capround joinround) (xsetfunction *display* *medium-flipping-gc* gxxor) (set! *thick-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *thick-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *thick-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetlineattributes *display* *thick-gc* 5 linesolid capround joinround) (set! *thick-flipping-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *thick-flipping-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetforeground *display* *thick-flipping-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetlineattributes *display* *thick-flipping-gc* 5 linesolid capround joinround) (xsetfunction *display* *thick-flipping-gc* gxxor) (set! *dashed-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *dashed-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *dashed-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetlineattributes *display* *dashed-gc* 0 lineonoffdash capround joinround) (set! *dashed-flipping-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *dashed-flipping-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetforeground *display* *dashed-flipping-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetlineattributes *display* *dashed-flipping-gc* 0 lineonoffdash capround joinround) (xsetfunction *display* *dashed-flipping-gc* gxxor) (set! *roman-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *roman-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *roman-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetfont *display* *roman-gc* (xfontstruct-fid *roman-font*)) (set! *bold-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *bold-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *bold-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetfont *display* *bold-gc* (xfontstruct-fid *bold-font*)) (set! *bold-flipping-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *bold-flipping-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetforeground *display* *bold-flipping-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetfont *display* *bold-flipping-gc* (xfontstruct-fid *bold-font*)) (xsetlineattributes *display* *bold-flipping-gc* 0 linesolid capround joinround) (xsetfunction *display* *bold-flipping-gc* gxxor) (unless stalin? (set! *light-gray* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Light Gray")) (unless (= (first *light-gray*) 1) (panic "Can't allocate light gray colorcell")) (set! *light-gray-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *light-gray-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *light-gray-gc* (xcolor-pixel (second *light-gray*))) (xsetlineattributes *display* *light-gray-gc* 0 linesolid capround joinround) (set! *gray* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Gray")) (unless (= (first *gray*) 1) (panic "Can't allocate gray colorcell")) (set! *gray-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *gray-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *gray-gc* (xcolor-pixel (second *gray*))) (xsetlineattributes *display* *gray-gc* 0 linesolid capround joinround) (set! *red* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Red")) (unless (= (first *red*) 1) (panic "Can't allocate red colorcell")) (set! *red-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *red-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *red-gc* (xcolor-pixel (second *red*))) (xsetfont *display* *red-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *red-gc* 0 linesolid capround joinround) (set! *dark-red* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Dark Red")) (unless (= (first *dark-red*) 1) (panic "Can't allocate dark red colorcell")) (set! *dark-red-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *dark-red-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *dark-red-gc* (xcolor-pixel (second *dark-red*))) (xsetfont *display* *dark-red-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *dark-red-gc* 0 linesolid capround joinround) (set! *green* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Green")) (unless (= (first *green*) 1) (panic "Can't allocate green colorcell")) (set! *green-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *green-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *green-gc* (xcolor-pixel (second *green*))) (xsetfont *display* *green-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *green-gc* 0 linesolid capround joinround) (set! *dark-green* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Dark Green")) (unless (= (first *dark-green*) 1) (panic "Can't allocate dark green colorcell")) (set! *dark-green-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *dark-green-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *dark-green-gc* (xcolor-pixel (second *dark-green*))) (xsetfont *display* *dark-green-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *dark-green-gc* 0 linesolid capround joinround) (set! *blue* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Blue")) (unless (= (first *blue*) 1) (panic "Can't allocate blue colorcell")) (set! *blue-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *blue-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *blue-gc* (xcolor-pixel (second *blue*))) (xsetfont *display* *blue-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *blue-gc* 0 linesolid capround joinround) (set! *yellow* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Yellow")) (unless (= (first *yellow*) 1) (panic "Can't allocate yellow colorcell")) (set! *yellow-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *yellow-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *yellow-gc* (xcolor-pixel (second *yellow*))) (xsetfont *display* *yellow-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *yellow-gc* 0 linesolid capround joinround) (set! *violet* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Violet")) (unless (= (first *violet*) 1) (panic "Can't allocate violet colorcell")) (set! *violet-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *violet-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *violet-gc* (xcolor-pixel (second *violet*))) (xsetfont *display* *violet-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *violet-gc* 0 linesolid capround joinround) (set! *orange* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Orange")) (unless (= (first *orange*) 1) (panic "Can't allocate orange colorcell")) (set! *orange-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *orange-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *orange-gc* (xcolor-pixel (second *orange*))) (xsetfont *display* *orange-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *orange-gc* 0 linesolid capround joinround) (set! *dark-orange* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Dark Orange")) (unless (= (first *dark-orange*) 1) (panic "Can't allocate dark orange colorcell")) (set! *dark-orange-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *dark-orange-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *dark-orange-gc* (xcolor-pixel (second *dark-orange*))) (xsetfont *display* *dark-orange-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *dark-orange-gc* 0 linesolid capround joinround)) (set! *color-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *color-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *color-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetlineattributes *display* *color-gc* 0 linesolid capround joinround) (set! *window-methods* '()) (set! *abort-button* #f) (set! *abort-key* #f) (set! *comtab* (make-vector 256 #f)) (set! *help* '()) (define-key (control #\h) "Help" help-command) (set! *help* '()) (define-key (control #\n) "Scroll help window down one line" help-scroll-down-line-command) (define-key (control #\p) "Scroll help window up one line" help-scroll-up-line-command) (define-key (control #\v) "Scroll help window down one page" help-scroll-down-page-command) (define-key (meta #\v) "Scroll help window up one page" help-scroll-up-page-command) (define-key (meta #\<) "Scroll help window to beginning" help-scroll-beginning-command) (define-key (meta #\>) "Scroll help window to end" help-scroll-end-command) (set! *help-comtab* *comtab*) (set! *comtab* (make-vector 256 #f)) (when transcript-lines (set! *transcript* '()) (set! *input* "") (set! *input-position* 0) (let ((help *help*)) (for-each (lambda (character) (define-key character "Enter the typed character into the echo pane" (lambda () (echo-pane-insert-character-command character)))) (append (string->list "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz") (string->list "1234567890-=\\`!@#$%^&*()_+|~[]{};':\",./<>? "))) (set! *help* help)) (define-key (control #\a) "Move the cursor to the beginning of the echo pane" echo-pane-beginning-of-line-command) (define-key (control #\b) "Move the cursor backward one character in the echo pane" echo-pane-backward-char-command) (define-key (control #\d) "Delete the character after the cursor in the echo pane" echo-pane-delete-char-command) (define-key (control #\e) "Move the cursor to the end of the echo pane" echo-pane-end-of-line-command) (define-key (control #\f) "Move the cursor forward one character in the echo pane" echo-pane-forward-char-command) (define-key (control #\k) "Delete all characters after the cursor in the echo pane" echo-pane-kill-line-command) (define-key delete "Delete the character before the cursor in the echo pane" echo-pane-backward-delete-char-command) (define-key return "Process the input in the echo pane" (lambda () (set! *transcript* (cons (list 'user *input*) *transcript*)) (listener-procedure) (set! *input* "") (set! *input-position* 0) (redraw-transcript-pane) (redraw-echo-pane))) (define-key (meta #\b) "Move the cursor backward one word in the echo pane" echo-pane-backward-word-command) (define-key (meta #\d) "Delete the word after the cursor in the echo pane" echo-pane-kill-word-command) (define-key (meta #\f) "Move the cursor forward one word in the echo pane" echo-pane-forward-word-command) (define-key (meta delete) "Delete the word before the cursor in the echo pane" echo-pane-backward-kill-word-command)) (set! *prefix* '()) (set! *status* "Tyi") (set! *message* "") (set! *redraw-procedure* redraw-procedure) (set! *buttons* '()) (set! *pause?* #f) (set! *help?* #f) (set! *clear-display-pane?* #t) (let ((hints (make-xwmhints))) (set-xwmhints-input! hints 1) ;changed (set-xwmhints-flags! hints inputhint) ;changed (xsetwmhints *display* *window* hints)) (let ((hints (make-xsizehints)) (height (if transcript-lines (if (zero? transcript-lines) (+ (* button-rows (+ *button-height* 4)) *display-pane-height* *echo-pane-height* *who-line-height* 14) (+ (* button-rows (+ *button-height* 4)) *display-pane-height* *transcript-pane-height* *echo-pane-height* *who-line-height* 18)) (+ (* button-rows (+ *button-height* 4)) *display-pane-height* *who-line-height* 10)))) (when *window-position?* (set-xsizehints-x! hints *window-position-x*) ;changed (set-xsizehints-y! hints *window-position-y*)) ;changed (set-xsizehints-min_width! hints width) ;changed (set-xsizehints-max_width! hints width) ;changed (set-xsizehints-min_height! hints height) ;changed (set-xsizehints-max_height! hints height) ;changed (set-xsizehints-flags! hints (if *window-position?* (+ usposition pposition pminsize pmaxsize) (+ pminsize pmaxsize))) (xsetwmnormalhints *display* *window* hints)) (pre-initialize-procedure) (set-window-method! *display-pane* 'expose redraw-display-pane) (set-window-method! *display-pane* 'buttonpress region-handler) (when *transcript-pane* (set-window-method! *transcript-pane* 'expose redraw-transcript-pane)) (when *echo-pane* (set-window-method! *echo-pane* 'expose redraw-echo-pane)) (set-window-method! *status-pane* 'expose redraw-status-pane) (set-window-method! *message-pane* 'expose redraw-message-pane) (set! ;changed kill-application (lambda () (set! kill-application (lambda () #t)) (finalize-procedure) (when *display* (xfreegc *display* *thin-gc*) (xfreegc *display* *thin-flipping-gc*) (xfreegc *display* *medium-gc*) (xfreegc *display* *medium-flipping-gc*) (xfreegc *display* *thick-gc*) (xfreegc *display* *thick-flipping-gc*) (xfreegc *display* *dashed-gc*) (xfreegc *display* *dashed-flipping-gc*) (xfreegc *display* *roman-gc*) (xfreegc *display* *bold-gc*) (xfreegc *display* *bold-flipping-gc*) (unless stalin? (xfreegc *display* *light-gray-gc*) (xfreegc *display* *gray-gc*) (xfreegc *display* *red-gc*) (xfreegc *display* *dark-red-gc*) (xfreegc *display* *green-gc*) (xfreegc *display* *dark-green-gc*) (xfreegc *display* *blue-gc*) (xfreegc *display* *yellow-gc*) (xfreegc *display* *violet-gc*) (xfreegc *display* *orange-gc*) (xfreegc *display* *dark-orange-gc*) (xfreegc *display* *color-gc*) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *background*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *foreground*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *light-gray*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *gray*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *red*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *dark-red*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *green*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *dark-green*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *blue*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *yellow*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *violet*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *orange*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *dark-orange*)))) 1 0)) (xunloadfont *display* (xfontstruct-fid *roman-font*)) (xunloadfont *display* (xfontstruct-fid *bold-font*)) (xdestroywindow *display* *window*) (xclosedisplay *display*) (set! *display* #f)) #t)) (xmapsubwindows *display* *window*) (xmapraised *display* *window*) (process-events) (kill-application))))) (list 'define-command (lambda (s) (define (valid-command-arguments? l) (define (valid-optional-parameter? l) (and (sx-list? l) (= (sx-length l) 4) (sx-symbol? (sx-first l)) (sx-string? (sx-second l)))) (define (valid-required-parameter? l) (and (sx-list? l) (= (sx-length l) 3) (sx-symbol? (sx-first l)) (sx-string? (sx-second l)))) (define (order-ok-optional? l) (or (sx-null? l) (and (sx-eq? (sx-first (sx-first l)) 'optional) (order-ok-optional? (sx-rest l))) (and (sx-eq? (sx-first (sx-first l)) 'rest) (sx-null? (sx-rest l))))) (define (order-ok-required? l) (or (sx-null? l) (and (sx-eq? (sx-first (sx-first l)) 'required) (order-ok-required? (sx-rest l))) (and (sx-eq? (sx-first (sx-first l)) 'optional) (order-ok-optional? (sx-rest l))) (and (sx-eq? (sx-first (sx-first l)) 'rest) (sx-null? (sx-rest l))))) (define (order-ok? l) (or (sx-null? l) (and (or (sx-eq? (sx-first (sx-first l)) 'any-number) (sx-eq? (sx-first (sx-first l)) 'at-least-one) (sx-eq? (sx-first (sx-first l)) 'at-most-one) (sx-eq? (sx-first (sx-first l)) 'exactly-one)) (order-ok? (sx-rest l))) (and (sx-eq? (sx-first (sx-first l)) 'required) (order-ok-required? (sx-rest l))) (and (sx-eq? (sx-first (sx-first l)) 'optional) (order-ok-optional? (sx-rest l))) (and (sx-eq? (sx-first (sx-first l)) 'rest) (sx-null? (sx-rest l))))) (and (sx-list? l) (>= (sx-length l) 1) (sx-symbol? (sx-first l)) (sx-every (lambda (l) (and (sx-list? l) (>= (sx-length l) 1) (or (and (or (sx-eq? (sx-first l) 'exactly-one) (sx-eq? (sx-first l) 'at-most-one)) (>= (sx-length l) 2) (sx-every (lambda (l) (and (sx-list? l) (>= (sx-length l) 2) (sx-string? (sx-first l)) (sx-symbol? (sx-second l)) (sx-every valid-optional-parameter? (sx-rest (sx-rest l))))) (sx-rest l))) (and (or (sx-eq? (sx-first l) 'at-least-one) (sx-eq? (sx-first l) 'any-number)) (>= (sx-length l) 2) (sx-every (lambda (l) (and (sx-list? l) (>= (sx-length l) 2) (sx-string? (sx-first l)) (sx-symbol? (sx-second l)) (sx-every valid-required-parameter? (sx-rest (sx-rest l))))) (sx-rest l))) (and (or (sx-eq? (sx-first l) 'required) (sx-eq? (sx-first l) 'rest)) (= (sx-length l) 2) (valid-required-parameter? (sx-second l))) (and (sx-eq? (sx-first l) 'optional) (= (sx-length l) 2) (valid-optional-parameter? (sx-second l)))))) (sx-rest l)) (order-ok? (sx-rest l)))) (define (command-usage l) (define (command-usage1 l) (let ((s (let loop ((l l)) (define (command-usage l) (string-append "-" (sx-datum (sx-first l)) (let loop ((l (sx-rest (sx-rest l)))) (cond ((sx-null? l) "") ((sx-null? (sx-rest l)) (string-append " " (sx-datum (sx-second (sx-first l))))) (else (string-append " " (sx-datum (sx-second (sx-first l))) (loop (sx-rest l)))))))) (if (sx-null? (sx-rest l)) (command-usage (sx-first l)) (string-append (command-usage (sx-first l)) "|" (loop (sx-rest l))))))) (if (= (sx-length l) 1) s (string-append "[" s "]")))) (if (sx-null? l) "" (case (sx-datum (sx-first (sx-first l))) ((any-number) (string-append " [" (command-usage1 (sx-rest (sx-first l))) "]*" (command-usage (sx-rest l)))) ((at-least-one) (string-append " [" (command-usage1 (sx-rest (sx-first l))) "]+" (command-usage (sx-rest l)))) ((at-most-one) (string-append " [" (command-usage1 (sx-rest (sx-first l))) "]" (command-usage (sx-rest l)))) ((exactly-one) (string-append " " (command-usage1 (sx-rest (sx-first l))) (command-usage (sx-rest l)))) ((required) (string-append " " (sx-datum (sx-second (sx-second (sx-first l)))) (command-usage (sx-rest l)))) ((optional) (string-append " [" (sx-datum (sx-second (sx-second (sx-first l)))) (command-usage (sx-rest l)) "]")) ((rest) (string-append " [" (sx-datum (sx-second (sx-second (sx-first l)))) "]*")) (else (fuck-up))))) (define (command-bindings l) (if (sx-null? l) '() (case (sx-datum (sx-first (sx-first l))) ((any-number at-least-one) (append (reduce append (sx-map (lambda (l) (cons (list (sx-second l) #f) (sx-map (lambda (l) (list (sx-first l) ''())) (sx-rest (sx-rest l))))) (sx-rest (sx-first l))) '()) (command-bindings (sx-rest l)))) ((at-most-one exactly-one) (append (reduce append (sx-map (lambda (l) (cons (list (sx-second l) #f) (sx-map (lambda (l) (list (sx-first l) (sx-fourth l))) (sx-rest (sx-rest l))))) (sx-rest (sx-first l))) '()) (command-bindings (sx-rest l)))) ;; changed ((required) (cons (sx-first (sx-second (sx-first l))) (command-bindings (sx-rest l)))) ((optional) (cons (list (sx-first (sx-second (sx-first l))) (sx-fourth (sx-second (sx-first l)))) (command-bindings (sx-rest l)))) ((rest) (cons (list (sx-first (sx-second (sx-first l))) ''()) (command-bindings (sx-rest l)))) (else (fuck-up))))) (define (command-keyword-argument-parser l) (cons `(let loop () (unless (null? arguments) (cond ,@(let loop ((l l)) (if (sx-null? l) '(((string=? (car arguments) "-usage") (usage))) ;changed (case (sx-datum (sx-first (sx-first l))) ((any-number at-least-one) (append (sx-map (lambda (l) `((string=? (car arguments) ;changed ,(string-append "-" (sx-datum (sx-first l)))) (set! arguments (cdr arguments)) ;changed (set! ,(sx-second l) #t) ,@(reduce append (sx-map (lambda (l) `((when (null? arguments) (usage)) (set! ,(sx-first l) (cons (,(sx-third l) ;; changed (car arguments) usage) ,(sx-first l))) ;; changed (set! arguments (cdr arguments)))) (sx-rest (sx-rest l))) '()) (loop))) (sx-rest (sx-first l))) (loop (sx-rest l)))) ((at-most-one exactly-one) (append (sx-map (lambda (l1) `((string=? (car arguments) ;changed ,(string-append "-" (sx-datum (sx-first l1)))) (set! arguments (cdr arguments)) ;changed (when (or ,@(sx-map sx-second (sx-rest (sx-first l)))) (usage)) (set! ,(sx-second l1) #t) ,@(reduce append (sx-map (lambda (l) `((when (null? arguments) (usage)) (set! ,(sx-first l) (,(sx-third l) ;; changed (car arguments) usage)) ;; changed (set! arguments (cdr arguments)))) (sx-rest (sx-rest l1))) '()) (loop))) (sx-rest (sx-first l))) (loop (sx-rest l)))) ((required optional rest) (loop (sx-rest l))) (else (fuck-up)))))))) (let loop ((l l)) (if (sx-null? l) '() (case (sx-datum (sx-first (sx-first l))) ((at-least-one exactly-one) (cons `(unless (or ,@(sx-map sx-second (sx-rest (sx-first l)))) (usage)) (loop (sx-rest l)))) ((at-most-one any-number required optional rest) (loop (sx-rest l))) (else (fuck-up))))))) (define (command-positional-argument-parser l) (let loop ((l l)) (if (sx-null? l) '((unless (null? arguments) (usage))) (case (sx-datum (sx-first (sx-first l))) ((any-number at-least-one at-most-one exactly-one) (loop (sx-rest l))) ((required) (append `((when (null? arguments) (usage)) (set! ,(sx-first (sx-second (sx-first l))) (,(sx-third (sx-second (sx-first l))) (car arguments) usage)) ;changed (set! arguments (cdr arguments))) ;changed (loop (sx-rest l)))) ((optional) (cons `(unless (null? arguments) (set! ,(sx-first (sx-second (sx-first l))) (,(sx-third (sx-second (sx-first l))) (car arguments) usage)) ;changed (set! arguments (cdr arguments))) ;changed (loop (sx-rest l)))) ((rest) `((let loop () (unless (null? arguments) (set! ,(sx-first (sx-second (sx-first l))) (cons (,(sx-third (sx-second (sx-first l))) (car arguments) usage) ;changed ,(sx-first (sx-second (sx-first l))))) (set! arguments (cdr arguments)) ;changed (loop))))) (else (fuck-up)))))) (unless (and (sx-list? s) (>= (sx-length s) 2) (valid-command-arguments? (sx-second s))) (syntax-error s "Improper DEFINE-COMMAND")) ;; changed `(let ((arguments (vector->list argv))) (define (string-argument string usage) ;; changed (if (string? string) string (panic "This shouldn't happen"))) (define (integer-argument string usage) (let ((integer (string->number string))) ;; changed (if (integer? integer) (if (exact? integer) integer (usage)) (usage)))) (define (real-argument string usage) (let ((real (string->number string))) ;; changed (if (real? real) (exact->inexact real) (usage)))) (let ((program (car arguments))) ;changed (define (usage) ;; removed: STDERR-PORT (panic (string-append "usage: " program ,(command-usage (sx-rest (sx-second s)))))) (set! arguments (cdr arguments)) ;changed (let ,(command-bindings (sx-rest (sx-second s))) ,@(command-keyword-argument-parser (sx-rest (sx-second s))) ,@(command-positional-argument-parser (sx-rest (sx-second s))) ,@(sx-unlist (sx-rest (sx-rest s)))))))) (list 'parallel-begin (lambda (s) (cond ((sx-null? (sx-rest s)) '((lambda ()))) ((sx-null? (sx-rest (sx-rest s))) (sx-second s)) (else `((primitive-procedure fork) (lambda () ,(sx-second s)) (lambda () (parallel-begin ,@(sx-unlist (sx-rest (sx-rest s)))))))))) (list 'parallel-call (lambda (s) (unless (and (sx-list? s) (>= (sx-length s) 2)) (syntax-error s "Improper PARALLEL-CALL")) (let ((variables (sx-map (lambda (s) (gensym "x")) (sx-rest (sx-rest s))))) `(let ,variables (parallel-begin ,@(map (lambda (variable s) `(set! ,variable ,s)) variables (sx-unlist (sx-rest (sx-rest s))))) (,(sx-second s) ,@variables))))) (list 'parallel-do (lambda (s) ;; Extension to R4RS: Iterators can be empty. (unless (and (>= (sx-length s) 3) (sx-list? (sx-second s)) (sx-every (lambda (s) (and (sx-list? s) (or (= (sx-length s) 2) (= (sx-length s) 3)))) (sx-second s)) (sx-list? (sx-third s)) (>= (sx-length (sx-third s)) 1)) (syntax-error s "Improper PARALLEL-DO")) (let ((loop (gensym "loop"))) ;; conventions: LOOP `(letrec ((,loop (lambda ,(sx-map sx-first (sx-second s)) (if ,(sx-first (sx-third s)) (begin ,@(sx-unlist (sx-rest (sx-third s)))) (parallel-begin ,@(sx-unlist (sx-rest (sx-rest (sx-rest s)))) (,loop ,@(sx-map (lambda (s) (if (= (sx-length s) 2) (sx-first s) (sx-third s))) (sx-second s)))))))) (,loop ,@(sx-map sx-second (sx-second s))))))) (list 'mutex-begin (lambda (s) `((primitive-procedure mutex) (lambda () ,@(sx-unlist (sx-rest s)))))))) (define *Trotsky-macros* (list (list 'define-primitive-procedure (lambda (s) (unless (= (sx-length s) 9) (syntax-error s "Wrong number of arguments")) `(set! *primitive-procedure-handlers* (cons (cons ',(sx-second s) (make-primitive-procedure ,(sx-third s) (lambda (y u0 w0) ,(sx-fourth s)) (lambda (y u0 n w0) ,(sx-fifth s)) (lambda (y u0 n w0) ,(sx-sixth s)) (lambda (y u0 propagate-result! propagate-type-predicate! w0) ,(sx-seventh s)) (lambda (r y u0 ws w w0 w1 w2 w3) ,(sx-eighth s)) (lambda (r y u0 ts ws t w compile-type-predicate t0 w0 t1 w1 t2 w2 t3 w3) ,(sx-ninth s)))) *primitive-procedure-handlers*)))))) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/source/stalin5e.sc0000600017435200151030000023611010464434544014757 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; Stalin 0.11 - A global optimizing compiler for Scheme ;;; Copyright 1993, 1994, and 1995 University of Toronto. All rights reserved. ;;; Copyright 1996 Technion. All rights reserved. ;;; Copyright 1996 and 1997 University of Vermont. All rights reserved. ;;; Copyright 1997, 1998, 1999, 2000, and 2001 NEC Research Institute, Inc. All ;;; rights reserved. ;;; Copyright 2002, 2003, 2004, 2005, and 2006 Purdue University. All rights ;;; reserved. ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License ;;; as published by the Free Software Foundation; either version 2 ;;; of the License, or (at your option) any later version. ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;;; written by: ;;; Jeffrey Mark Siskind ;;; School of Electrical and Computer Engineering ;;; Purdue University ;;; Electrical Engineering Building, Room 330 ;;; 465 Northwestern Avenue ;;; West Lafayette IN 47907-2035 USA ;;; voice: 765/496-3197 ;;; fax: 765/494-6440 ;;; qobi@purdue.edu ;;; http://www.ece.purdue.edu/~qobi ;;; Begin delete for Trotsky (module stalin5e) (include "QobiScheme.sch") (include "stalin5e.sch") ;;; End delete for Trotsky ;;; Input/Output (define (search-include-path-without-extension pathname) ;; conventions: PATHNAME (cond ((can-open-file-for-input? pathname) pathname) ((and (>= (string-length pathname) 1) (char=? (string-ref pathname 0) #\/)) (notify "Cannot find: ~a" pathname) (terminate)) (else (let loop ((include-path *include-path*)) ;; conventions: INCLUDE-PATH (cond ((null? include-path) (notify "Cannot find: ~a" pathname) (terminate)) ((can-open-file-for-input? (string-append (first include-path) "/" pathname)) (string-append (first include-path) "/" pathname)) (else (loop (rest include-path)))))))) (define (search-include-path pathname) ;; conventions: PATHNAME (search-include-path-without-extension (default-extension pathname "sc"))) (define (read-s-expressions pathname) ;; conventions (let ((line-position 0) (character-position -1) (character-position-within-line -1) (newline? #t) (last-line-position 0) (last-character-position -1) (last-character-position-within-line -1) (last-newline? #t) (last-char #f) ;; needs work: The DOT and CLOSE gensyms should be extracted and bound ;; by a LET that is outside the DEFINE of READ. (dot (gensym "dot")) (close (gensym "close"))) (call-with-input-file pathname (lambda (port) (define (read-s-expression) ;; needs work: Long predecimal point digit strings can overflow. ;; needs work: Mantissa can overflow or underflow even though exponent ;; would prevent that overflow or underflow. ;; needs work: Can't read largest negative number. ;; needs work: To handle polar numbers with @ ;; needs work: To handle rectangular numbers with i ;; needs work: To handle ratios with / ;; needs work: To handle numbers with embedded # ;; needs work: To handle exactness with #e #i ;; needs work: To handle structures (define (read-error error) (notify "~a:~s:~a" pathname line-position error) (terminate)) (define (unget-char c) (set! line-position last-line-position) (set! character-position last-character-position) (set! character-position-within-line last-character-position-within-line) (set! newline? last-newline?) (set! last-char c)) (define (get-char) (set! last-line-position line-position) (set! last-character-position character-position) (set! last-character-position-within-line character-position-within-line) (set! last-newline? newline?) (cond (newline? (set! line-position (+ line-position 1)) (set! character-position-within-line 0)) (else (set! character-position-within-line (+ character-position-within-line 1)))) (set! character-position (+ character-position 1)) (let ((c (or last-char (read-char port)))) (set! last-char #f) (set! newline? (and (not (eof-object? c)) (char=? c #\newline))) c)) (let read ((state 'object) (comments '())) ;; conventions: STATE COMMENTS (define (read-exact-binary-integer n) (let ((c (get-char))) (cond ((eof-object? c) n) ((char=? c #\0) (read-exact-binary-integer (* 2 n))) ((char=? c #\1) (read-exact-binary-integer (+ (* 2 n) 1))) (else (unget-char c) n)))) (define (read-exact-octal-integer n) (let ((c (get-char))) (cond ((eof-object? c) n) ((and (char>=? c #\0) (char<=? c #\7)) (read-exact-octal-integer (+ (* 8 n) (- (char->integer c) (char->integer #\0))))) (else (unget-char c) n)))) (define (read-exact-decimal-integer n) (let ((c (get-char))) (cond ((eof-object? c) n) ((char-numeric? c) (read-exact-decimal-integer (+ (* 10 n) (- (char->integer c) (char->integer #\0))))) (else (unget-char c) n)))) (define (read-exact-hexadecimal-integer n) (let ((c (get-char))) (cond ((eof-object? c) n) ((char-numeric? c) (read-exact-hexadecimal-integer (+ (* 16 n) (- (char->integer c) (char->integer #\0))))) ((and (char>=? c #\a) (char<=? c #\f)) (read-exact-hexadecimal-integer (+ (* 16 n) (- (char->integer c) (char->integer #\a)) 10))) ((and (char>=? c #\A) (char<=? c #\F)) (read-exact-hexadecimal-integer (+ (* 16 n) (- (char->integer c) (char->integer #\A)) 10))) (else (unget-char c) n)))) (define (read-inexact-number n m) (let ((c1 (get-char))) (cond ((eof-object? c1) n) ((char-numeric? c1) (read-inexact-number (+ n (/ (- (char->integer c1) (char->integer #\0)) m)) (* m 10.0))) ((or (char=? c1 #\e) (char=? c1 #\E) (char=? c1 #\s) (char=? c1 #\S) (char=? c1 #\f) (char=? c1 #\F) (char=? c1 #\d) (char=? c1 #\D) (char=? c1 #\l) (char=? c1 #\L)) (let ((c2 (get-char))) (when (eof-object? c2) (read-error "EOF while reading exponent")) (cond ((char-numeric? c2) (* n (expt 10.0 (read-exact-decimal-integer (- (char->integer c2) (char->integer #\0)))))) ((char=? c2 #\+) (let ((c3 (get-char))) (when (eof-object? c3) (read-error "EOF while reading exponent")) (unless (char-numeric? c3) (read-error "Unfinished exponent")) (* n (expt 10.0 (read-exact-decimal-integer (- (char->integer c3) (char->integer #\0))))))) ((char=? c2 #\-) (let ((c3 (get-char))) (when (eof-object? c3) (read-error "EOF while reading exponent")) (unless (char-numeric? c3) (read-error "Unfinished exponent")) (* n (expt 10.0 (- (read-exact-decimal-integer (- (char->integer c3) (char->integer #\0)))))))) (else (read-error "Unfinished exponent"))))) (else (unget-char c1) n)))) (define (read-number n) (let ((c1 (get-char))) (cond ((eof-object? c1) n) ((char-numeric? c1) (read-number (+ (* 10 n) (- (char->integer c1) (char->integer #\0))))) ((char=? c1 #\.) (read-inexact-number (exact->inexact n) 10.0)) ((or (char=? c1 #\e) (char=? c1 #\E) (char=? c1 #\s) (char=? c1 #\S) (char=? c1 #\f) (char=? c1 #\F) (char=? c1 #\d) (char=? c1 #\D) (char=? c1 #\l) (char=? c1 #\L)) (let ((c2 (get-char))) (when (eof-object? c2) (read-error "EOF while reading exponent")) (cond ((char-numeric? c2) (* (exact->inexact n) (expt 10.0 (read-exact-decimal-integer (- (char->integer c2) (char->integer #\0)))))) ((char=? c2 #\+) (let ((c3 (get-char))) (when (eof-object? c3) (read-error "EOF while reading exponent")) (unless (char-numeric? c3) (read-error "Unfinished exponent")) (* (exact->inexact n) (expt 10.0 (read-exact-decimal-integer (- (char->integer c3) (char->integer #\0))))))) ((char=? c2 #\-) (let ((c3 (get-char))) (when (eof-object? c3) (read-error "EOF while reading exponent")) (unless (char-numeric? c3) (read-error "Unfinished exponent")) (* (exact->inexact n) (expt 10.0 (- (read-exact-decimal-integer (- (char->integer c3) (char->integer #\0)))))))) (else (read-error "Unfinished exponent"))))) (else (unget-char c1) n)))) (define (char-initial? c) (or (char-alphabetic? c) (char=? c #\~) (char=? c #\!) (char=? c #\$) (char=? c #\%) (char=? c #\^) (char=? c #\&) (char=? c #\*) (char=? c #\_) (char=? c #\/) (char=? c #\:) (char=? c #\<) (char=? c #\=) (char=? c #\>) (char=? c #\?))) (define (char-subsequent? c) (or (char-initial? c) (char-numeric? c) (char=? c #\+) (char=? c #\-) (char=? c #\.))) (define (read-symbol s) ;; needs work: To eliminate REVERSE. (let ((c (get-char))) (cond ((eof-object? c) (string->symbol (list->string (reverse s)))) ((char-subsequent? c) (read-symbol (cons (char-upcase c) s))) (else (unget-char c) (string->symbol (list->string (reverse s))))))) (define (lookup-character-name s) (let loop ((names '(((#\e #\c #\a #\p #\s) . #\space) ((#\e #\n #\i #\l #\w #\e #\n) . #\newline)))) (when (null? names) (read-error "Unrecognized character name")) (if (let loop? ((s s) (name (car (first names)))) (or (and (null? s) (null? name)) (and (not (null? s)) (not (null? name)) (char-ci=? (first s) (first name)) (loop? (rest s) (rest name))))) (cdr (first names)) (loop (rest names))))) (define (read-character-name s) (let ((c (get-char))) (cond ((eof-object? c) (lookup-character-name s)) ((char-alphabetic? c) (read-character-name (cons c s))) (else (unget-char c) (if (and (not (null? s)) (null? (rest s))) (first s) (lookup-character-name s)))))) (let* ((c1 (get-char)) (line-position line-position) (character-position character-position) (character-position-within-line character-position-within-line) (datum (cond ((eof-object? c1) (case state ((object) c1) ((list) (read-error "EOF while reading list")) ((vector) (read-error "EOF while reading vector")) ((quote) (read-error "EOF while reading quoted object")) ((quasiquote) (read-error "EOF while reading quasiquoted object")) ((unquote-splicing) (read-error "EOF while reading unquote-slicing object")) ((unquote) (read-error "EOF while reading unquoted object")) ((close) (read-error "EOF while reading pair")))) ((char=? c1 #\;) (let loop ((cs '(#\;))) (let ((c1 (get-char))) (if (char=? c1 #\newline) (read state (cons (list->string (reverse cs)) comments)) (loop (cons c1 cs)))))) ((char=? c1 #\)) (unless (or (eq? state 'list) (eq? state 'vector) (eq? state 'close)) (read-error "Mismatched closing parenthesis")) close) ((char-whitespace? c1) (read state comments)) ((eq? state 'close) (read-error "Only one object allowed after dot")) ((char=? c1 #\') (let ((s (create-s-expression pathname line-position character-position character-position-within-line (reverse comments) 'quote))) (cons s (create-anonymous-s-expression (cons (read 'quote '()) (create-anonymous-s-expression '())))))) ((char=? c1 #\`) (let ((s (create-s-expression pathname line-position character-position character-position-within-line (reverse comments) 'quasiquote))) (cons s (create-anonymous-s-expression (cons (read 'quasiquote '()) (create-anonymous-s-expression '())))))) ((char=? c1 #\,) (let ((c2 (get-char))) (when (eof-object? c2) (read-error "EOF after dot")) (cond ((char=? c2 #\@) (let ((s (create-s-expression pathname line-position character-position character-position-within-line (reverse comments) 'unquote-splicing))) (cons s (create-anonymous-s-expression (cons (read 'unquote-splicing '()) (create-anonymous-s-expression '())))))) (else (unget-char c2) (let ((s (create-s-expression pathname line-position character-position character-position-within-line (reverse comments) 'unquote))) (cons s (create-anonymous-s-expression (cons (read 'unquote '()) (create-anonymous-s-expression '()))))))))) ((char=? c1 #\() ;; needs work: Redundant consing. (let loop ((s '())) (let ((e (read 'list '()))) (cond ((eq? (s-expression-datum e) dot) (when (null? s) (read-error "Dot cannot be first element of list")) (let* ((e1 (read 'object '())) (e2 (read 'close '()))) (let loop ((s (rest s)) (c (create-anonymous-s-expression (cons (first s) e1)))) (if (null? s) (sx-datum c) (loop (rest s) (create-anonymous-s-expression (cons (first s) c))))))) ((eq? (s-expression-datum e) close) (let loop ((s s) (c (create-anonymous-s-expression '()))) (if (null? s) (sx-datum c) (loop (rest s) (create-anonymous-s-expression (cons (first s) c)))))) (else (loop (cons e s))))))) ((char=? c1 #\#) (let ((c2 (get-char))) (when (eof-object? c2) (read-error "EOF after sharp sign")) (cond ((or (char=? c2 #\t) (char=? c2 #\T)) #t) ((or (char=? c2 #\f) (char=? c2 #\F)) #f) ((or (char=? c2 #\b) (char=? c2 #\B)) (let ((c3 (get-char))) (when (eof-object? c3) (read-error "EOF while reading binary number")) (cond ((char=? c3 #\0) (read-exact-binary-integer 0)) ((char=? c3 #\1) (read-exact-binary-integer 1)) ((char=? c3 #\+) (let ((c4 (get-char))) (when (eof-object? c4) (read-error "EOF while reading binary number")) (cond ((char=? c4 #\0) (read-exact-binary-integer 0)) ((char=? c4 #\1) (read-exact-binary-integer 1)) (else (read-error "Unfinished binary number"))))) ((char=? c3 #\-) (let ((c4 (get-char))) (when (eof-object? c4) (read-error "EOF while reading binary number")) (cond ((char=? c4 #\0) (- (read-exact-binary-integer 0))) ((char=? c4 #\1) (- (read-exact-binary-integer 1))) (else (read-error "Unfinished binary number"))))) (else (read-error "Unfinished binary number"))))) ((or (char=? c2 #\o) (char=? c2 #\O)) (let ((c3 (get-char))) (when (eof-object? c3) (read-error "EOF while reading octal number")) (cond ((and (char>=? c3 #\0) (char<=? c3 #\7)) (read-exact-octal-integer (- (char->integer c3) (char->integer #\0)))) ((char=? c3 #\+) (let ((c4 (get-char))) (when (eof-object? c4) (read-error "EOF while reading octal number")) (unless (and (char>=? c4 #\0) (char<=? c4 #\7)) (read-error "Unfinished octal number")) (read-exact-octal-integer (- (char->integer c4) (char->integer #\0))))) ((char=? c3 #\-) (let ((c4 (get-char))) (when (eof-object? c4) (read-error "EOF while reading octal number")) (unless (and (char>=? c4 #\0) (char<=? c4 #\7)) (read-error "Unfinished octal number")) (- (read-exact-octal-integer (- (char->integer c4) (char->integer #\0)))))) (else (read-error "Unfinished octal number"))))) ((or (char=? c2 #\d) (char=? c2 #\D)) (let ((c3 (get-char))) (when (eof-object? c3) (read-error "EOF while reading decimal number")) (cond ((char=? c3 #\+) (let ((c4 (get-char))) (when (eof-object? c4) (read-error "EOF while reading decimal number")) (cond ((char-numeric? c4) (read-number (- (char->integer c4) (char->integer #\0)))) ((char=? c4 #\.) (let ((c5 (get-char))) (when (eof-object? c5) (read-error "EOF while reading decimal number")) (unless (char-numeric? c5) (read-error "Unfinished decimal number")) (read-inexact-number (/ (- (char->integer c5) (char->integer #\0)) 10.0) 100.0))) (else (read-error "Unfinished decimal number"))))) ((char=? c3 #\-) (let ((c4 (get-char))) (when (eof-object? c4) (read-error "EOF while reading decimal number")) (cond ((char-numeric? c4) (- (read-number (- (char->integer c4) (char->integer #\0))))) ((char=? c4 #\.) (let ((c5 (get-char))) (when (eof-object? c5) (read-error "EOF while reading decimal number")) (unless (char-numeric? c5) (read-error "Unfinished decimal number")) (- (read-inexact-number (/ (- (char->integer c5) (char->integer #\0)) 10.0) 100.0)))) (else (read-error "Unfinished decimal number"))))) ((char=? c3 #\.) (let ((c4 (get-char))) (when (eof-object? c4) (read-error "EOF while reading decimal number")) (unless (char-numeric? c4) (read-error "Unfinished decimal number")) (read-inexact-number (/ (- (char->integer c4) (char->integer #\0)) 10.0) 100.0))) ((char-numeric? c3) (read-number (- (char->integer c3) (char->integer #\0)))) (else (read-error "Unfinished decimal number"))))) ((or (char=? c2 #\x) (char=? c2 #\X)) (let ((c3 (get-char))) (when (eof-object? c3) (read-error "EOF while reading hexadecimal number")) (cond ((char-numeric? c3) (read-exact-hexadecimal-integer (- (char->integer c3) (char->integer #\0)))) ((and (char>=? c3 #\a) (char<=? c3 #\f)) (read-exact-hexadecimal-integer (+ (- (char->integer c3) (char->integer #\a)) 10))) ((and (char>=? c3 #\A) (char<=? c3 #\F)) (read-exact-hexadecimal-integer (+ (- (char->integer c3) (char->integer #\A)) 10))) ((char=? c3 #\+) (let ((c4 (get-char))) (when (eof-object? c4) (read-error "EOF while reading hexadecimal number")) (cond ((char-numeric? c4) (read-exact-hexadecimal-integer (- (char->integer c4) (char->integer #\0)))) ((and (char>=? c4 #\a) (char<=? c4 #\f)) (read-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\a)) 10))) ((and (char>=? c4 #\A) (char<=? c4 #\F)) (read-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\A)) 10))) (else (read-error "Unfinished hexadecimal number"))))) ((char=? c3 #\-) (let ((c4 (get-char))) (when (eof-object? c4) (read-error "EOF while reading hexadecimal number")) (cond ((char-numeric? c4) (- (read-exact-hexadecimal-integer (- (char->integer c4) (char->integer #\0))))) ((and (char>=? c4 #\a) (char<=? c4 #\f)) (- (read-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\a)) 10)))) ((and (char>=? c4 #\A) (char<=? c4 #\F)) (- (read-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\A)) 10)))) (else (read-error "Unfinished hexadecimal number"))))) (else (read-error "Unfinished hexadecimal number"))))) ((char=? c2 #\() (let loop ((s '())) (let ((e (read 'vector '()))) ;; needs work: To eliminate REVERSE. (if (eq? (s-expression-datum e) close) (list->vector (reverse s)) (loop (cons e s)))))) ((char=? c2 #\\) (let ((c3 (get-char))) (when (eof-object? c3) (read-error "EOF while reading character constant")) (if (char-alphabetic? c3) (read-character-name (list c3)) c3))) (else (read-error "Improper character after sharp sign"))))) ((char=? c1 #\") ;; needs work: To eliminate REVERSE. (let loop ((s '())) (let ((c (get-char))) (when (eof-object? c) (read-error "EOF while reading string")) (cond ((char=? c #\\) (let ((c1 (get-char))) (when (eof-object? c1) (read-error "EOF after backslash in string")) (loop (cons c1 s)))) ((char=? c #\") (list->string (reverse s))) (else (loop (cons c s))))))) ((char=? c1 #\+) (let ((c2 (get-char))) (cond ((eof-object? c2) '+) ((char-numeric? c2) (read-number (- (char->integer c2) (char->integer #\0)))) ((char=? c2 #\.) (let ((c3 (get-char))) (cond ((eof-object? c3) '\+.) ((char-numeric? c3) (read-inexact-number (/ (- (char->integer c3) (char->integer #\0)) 10.0) 100.0)) ((char-subsequent? c3) (read-symbol (list (char-upcase c3) (char-upcase c2) (char-upcase c1)))) (else (unget-char c3) '\+.)))) ((char-subsequent? c2) (read-symbol (list (char-upcase c2) (char-upcase c1)))) (else (unget-char c2) '+)))) ((char=? c1 #\-) (let ((c2 (get-char))) (cond ((eof-object? c2) '-) ((char-numeric? c2) (- (read-number (- (char->integer c2) (char->integer #\0))))) ((char=? c2 #\.) (let ((c3 (get-char))) (cond ((eof-object? c3) '\-.) ((char-numeric? c3) (- (read-inexact-number (/ (- (char->integer c3) (char->integer #\0)) 10.0) 100.0))) ((char-subsequent? c3) (read-symbol (list (char-upcase c3) (char-upcase c2) (char-upcase c1)))) (else (unget-char c3) '\-.)))) ((char-subsequent? c2) (read-symbol (list (char-upcase c2) (char-upcase c1)))) (else (unget-char c2) '-)))) ((char=? c1 #\.) (let ((c2 (get-char))) (when (eof-object? c2) (read-error "EOF after dot")) (cond ((char-numeric? c2) (read-inexact-number (/ (- (char->integer c2) (char->integer #\0)) 10.0) 100.0)) ((char-subsequent? c2) (read-symbol (list (char-upcase c2) (char-upcase c1)))) ((eq? state 'list) (unget-char c2) dot) (else (read-error "Dot allowed only inside list"))))) ((char-numeric? c1) (read-number (- (char->integer c1) (char->integer #\0)))) ((char-initial? c1) (read-symbol (list (char-upcase c1)))) (else (read-error "Attempt to READ invalid character"))))) (if (s-expression? datum) datum (create-s-expression pathname line-position character-position character-position-within-line (reverse comments) datum))))) (let loop ((ss '())) (let ((s (read-s-expression))) (cond ((eof-object? (s-expression-datum s)) (reverse ss)) ((and (sx-list? s) (= (sx-length s) 2) (sx-eq? (sx-first s) 'include) (sx-string? (sx-second s))) (let ((pathname (search-include-path (sx-datum (sx-second s))))) ;; conventions: PATHNAME (cond ((member pathname *includes*) (loop ss)) (else (set! *includes* (cons pathname *includes*)) (loop (append (reverse (read-s-expressions pathname)) ss)))))) (else (loop (cons s ss)))))))))) (define (generate c pathname spitter) ;; note: This will not handle braces inside comments. ;; conventions: PATHNAME SPITTER (call-with-output-file (replace-extension pathname "c") (lambda (port) (spitter port) ;; conventions: PORT (let ((backslash? #f) (newline? #f) (open? #f) (state 'code) (indent 0)) ;; conventions: BACKSLASH? STATE INDENT (define (generate-char c) (case state ((code) (cond ((char=? c #\") (set! state 'string)) ((char=? c #\') (set! state 'char)) ((char=? c #\{) (set! indent (+ indent 1))) ((char=? c #\}) (set! indent (- indent 1))))) ((string) (cond (backslash? (set! backslash? #f)) ((char=? c #\\) (set! backslash? #t)) ((char=? c #\") (set! state 'code)))) ((char) (cond (backslash? (set! backslash? #f)) ((char=? c #\\) (set! backslash? #t)) ((char=? c #\') (set! state 'code))))) (set! newline? #f) (set! open? (char=? c #\{)) (write-char c port)) (let loop ((c c)) (cond ((char? c) (unless (char=? c #\newline) (fuck-up)) (unless (or newline? open?) (newline port) (for-each-n (lambda (i) ;; conventions: I (write-char #\space port)) indent) (set! newline? #t))) ((string? c) (for-each-n (lambda (i) ;; conventions: I (generate-char (string-ref c i))) (string-length c))) ((c:declaration? c) (loop (third c))) ((c:protect? c) (loop (second c))) ((c:no-return? c) (loop (second c))) ((pair? c) (loop (car c)) (loop (cdr c))) ((null? c) #f) (else (fuck-up)))))))) ;;; The compiler top level ;;; Options (define *Scheme->C-compatibility?* #f) (define *Xlib-and-GL?* #f) (define *QobiScheme?* #f) (define *Trotsky?* #f) (define *treat-all-symbols-as-external?* #f) (define *index-allocated-string-types-by-expression?* #f) (define *index-constant-structure-types-by-slot-types?* #f) (define *index-constant-structure-types-by-expression?* #f) (define *index-allocated-structure-types-by-slot-types?* #f) (define *index-allocated-structure-types-by-expression?* #f) (define *index-constant-headed-vector-types-by-element-type?* #f) (define *index-constant-headed-vector-types-by-expression?* #f) (define *index-allocated-headed-vector-types-by-element-type?* #f) (define *index-allocated-headed-vector-types-by-expression?* #f) (define *index-constant-nonheaded-vector-types-by-element-type?* #f) (define *index-constant-nonheaded-vector-types-by-expression?* #f) (define *index-allocated-nonheaded-vector-types-by-element-type?* #f) (define *index-allocated-nonheaded-vector-types-by-expression?* #f) (define *clone-size-limit* 0) (define *split-even-if-no-widening?* #f) (define *fully-convert-to-CPS?* #f) (define *no-escaping-continuations?* #f) (define *uniqueness?* #f) (define *bounds-checks?* #f) (define *memory-checks?* #f) (define *overflow-checks?* #f) (define *runtime-checks?* #f) (define *type-checks?* #f) (define *p1?* #f) (define *p2?* #f) (define *p3?* #f) (define *p4?* #f) (define *p5?* #f) (define *p6?* #f) (define *p7?* #f) (define *closure-conversion-statistics?* #f) (define *stack-allocation?* #f) (define *heap-allocation?* #f) (define *region-allocation?* #f) (define *memory-messages?* #f) (define *expandable-regions?* #f) (define *flonum-representation* #f) (define *architecture-name* #f) (define *closure-conversion-method* #f) (define *closure-representation* #f) (define *align-strings?* #f) (define *eq?-forgery?* #f) (define *forgery?* #f) (define *globals?* #f) (define *type-if?* #f) (define *immediate-structures?* #f) (define *promote-representations?* #f) (define *copy-propagation?* #f) (define *squeeze?* #f) (define *squish?* #f) (define *treadmarks?* #f) (define *tail-call-optimization?* #f) (define *database?* #f) (define *run-cc?* #f) (define *keep-c?* #f) (define *cc* "") (define *copts* '()) ;;; Global variables (define *include-path* '()) (define *includes* '()) (define *herald* #f) (define *heralds* '()) (define *program-has-pthreads?* #f) (define *current-architecture-name* #f) (define (current-architecture-name) (unless *current-architecture-name* (system (format #f "~a >/tmp/QobiScheme.tmp" (search-include-path-without-extension "stalin-architecture-name"))) (set! *current-architecture-name* (first (read-file "/tmp/QobiScheme.tmp"))) (rm "/tmp/QobiScheme.tmp")) *current-architecture-name*) (define (initialize-architecture!) (let* ((pathname (search-include-path "stalin.architectures")) (architecture (assoc *architecture-name* (read-object-from-file pathname)))) ;; conventions: PATHNAME ARCHITECTURE (unless architecture (notify "Unknown architecture: ~a" *architecture-name*) (terminate)) (set! *char* (list-ref architecture 1)) (set! *fixnum* (list-ref architecture 2)) (set! *flonum* (case *flonum-representation* ((float) (list-ref architecture 3)) ((double) (list-ref architecture 4)) (else (fuck-up)))) (set! *length* (list-ref architecture 5)) (set! *tag* (list-ref architecture 6)) (set! *squished* (list-ref architecture 7)) (set! *signed-squished* (list-ref architecture 8)) (set! *file* (list-ref architecture 9)) (set! *jmpbuf* (list-ref architecture 10)) (set! *char-alignment* (list-ref architecture 11)) (set! *fixnum-alignment* (list-ref architecture 12)) (set! *flonum-alignment* (case *flonum-representation* ((float) (list-ref architecture 13)) ((double) (list-ref architecture 14)) (else (fuck-up)))) (set! *pointer-alignment* (list-ref architecture 15)) (set! *length-alignment* (list-ref architecture 16)) (set! *tag-alignment* (list-ref architecture 17)) (set! *squished-alignment* (list-ref architecture 18)) (set! *file-alignment* (list-ref architecture 19)) (set! *jmpbuf-alignment* (list-ref architecture 20)) (set! *char-size* (list-ref architecture 21)) (set! *fixnum-size* (list-ref architecture 22)) (set! *flonum-size* (case *flonum-representation* ((float) (list-ref architecture 23)) ((double) (list-ref architecture 24)) (else (fuck-up)))) (set! *pointer-size* (list-ref architecture 25)) (set! *length-size* (list-ref architecture 26)) (set! *tag-size* (list-ref architecture 27)) (set! *squished-size* (if *squish?* (list-ref architecture 28) 0)) (set! *include-malloc-for-alloca?* (list-ref architecture 29)))) (define (initialize-options! include-path) ;; conventions: INCLUDE-PATH (set! *include-path* include-path) (set! *Scheme->C-compatibility?* #f) (set! *Xlib-and-GL?* #f) (set! *QobiScheme?* #f) (set! *Trotsky?* #f) (set! *treat-all-symbols-as-external?* #f) (set! *index-allocated-string-types-by-expression?* #t) (set! *index-constant-structure-types-by-slot-types?* #f) (set! *index-constant-structure-types-by-expression?* #t) (set! *index-allocated-structure-types-by-slot-types?* #f) (set! *index-allocated-structure-types-by-expression?* #t) (set! *index-constant-headed-vector-types-by-element-type?* #f) (set! *index-constant-headed-vector-types-by-expression?* #t) (set! *index-allocated-headed-vector-types-by-element-type?* #f) (set! *index-allocated-headed-vector-types-by-expression?* #t) (set! *index-constant-nonheaded-vector-types-by-element-type?* #f) (set! *index-constant-nonheaded-vector-types-by-expression?* #t) (set! *index-allocated-nonheaded-vector-types-by-element-type?* #f) (set! *index-allocated-nonheaded-vector-types-by-expression?* #t) (set! *clone-size-limit* 80) (set! *split-even-if-no-widening?* #f) (set! *fully-convert-to-CPS?* #f) (set! *no-escaping-continuations?* #f) (set! *uniqueness?* #t) (set! *bounds-checks?* #t) (set! *memory-checks?* #t) (set! *overflow-checks?* #t) (set! *runtime-checks?* #t) (set! *type-checks?* #t) (set! *p1?* #f) (set! *p2?* #f) (set! *p3?* #f) (set! *p4?* #f) (set! *p5?* #f) (set! *p6?* #f) (set! *p7?* #f) (set! *closure-conversion-statistics?* #f) (set! *stack-allocation?* #t) (set! *heap-allocation?* #t) (set! *region-allocation?* #t) (set! *memory-messages?* #f) (set! *expandable-regions?* #t) (set! *flonum-representation* 'float) (set! *architecture-name* (current-architecture-name)) (set! *closure-conversion-method* 'lightweight) (set! *closure-representation* 'linked) (set! *align-strings?* #t) (set! *eq?-forgery?* #f) (set! *forgery?* #t) (set! *globals?* #f) (set! *type-if?* #f) (set! *immediate-structures?* #f) (set! *promote-representations?* #f) (set! *copy-propagation?* #f) (set! *squeeze?* #t) (set! *squish?* #t) (set! *treadmarks?* #f) (set! *tail-call-optimization?* #t) (set! *database?* #t) (set! *run-cc?* #t) (set! *keep-c?* #f) (set! *cc* "gcc") (set! *copts* '())) (define (initialize-stalin!) (initialize-architecture!) (set! *types-frozen?* #t) (set! *during-closure-conversion?* #f) (initialize-expressions!) (initialize-types!) (initialize-variables!) (initialize-environments!) (set! *abbreviate?* #f) (set! *worst-alignment* #f) (set! *allocation-alignment* #f) (set! *char-alignment?* #f) (set! *fixnum-alignment?* #f) (set! *flonum-alignment?* #f) (set! *rectangular-alignment?* #f) (set! *void*-alignment?* #f) (set! *char*-alignment?* #f) (set! *file*-alignment?* #f) (set! *jmpbuf*-alignment?* #f) (set! *length-alignment?* #f) (set! *tag-alignment?* #f) (set! *squished-alignment?* #f) (set! *file-alignment?* #f) (set! *jmpbuf-alignment?* #f) (set! *char-size?* #f) (set! *fixnum-size?* #f) (set! *flonum-size?* #f) (set! *rectangular-size?* #f) (set! *void*-size?* #f) (set! *char*-size?* #f) (set! *file*-size?* #f) (set! *jmpbuf*-size?* #f) (set! *length-size?* #f) (set! *tag-size?* #f) (set! *squished-size?* #f) (set! *strings* '()) (set! *symbols* '()) (set! *outside-main* '()) (set! *inside-main* '()) (set! *outside-body* '()) (set! *discard* (create-discard-result)) (set! *errors-used* '()) (set! *warnings* '()) (set! *ti* 0) (set! *li* 0) (set! *list->vector* (gensym "list->vector")) (set! *append* (gensym "append")) (set! *cons* (gensym "cons")) (set! *eqv?* (gensym "eqv?")) (set! *c:noreturn?* #f) (set! *c:c?* #f) (set! *c:panic?* #f) (set! *c:backtrace?* #f) (set! *c:backtrace-internal?* #f) (set! *c:ipow?* #f) (set! *c:input-waiting?* #f) (set! *c:includes* '()) (set! *includes* '()) (set! *herald* #f) (set! *heralds* '()) (set! *program-has-pthreads?* #f) ;; needs work: This is the only unconditional include because ;; FOREIGN-PROCEDURE doesn't (yet) allow specification of an ;; include file. (include! "stdlib")) ;system exit (define (herald p? text) ;; conventions: TEXT (when p? (notify text)) (let ((t (clock-sample))) ;; conventions: T (when *herald* (let ((herald (find-if (lambda (herald) ;; conventions: HERALD (string=? (second herald) (second *herald*))) *heralds*))) ;; conventions: HERALD (if herald (set-car! herald (+ (first herald) (- t (first *herald*)))) (set! *heralds* (cons (list (- t (first *herald*)) (second *herald*)) *heralds*))))) (set! *herald* (list t text)))) (define (display-heralds) (notify "Compilation time summary (in CPU seconds)") (let ((t (clock-sample))) ;; conventions: T (when *herald* (let ((herald (find-if (lambda (herald) ;; conventions: HERALD (string=? (second herald) (second *herald*))) *heralds*))) ;; conventions: HERALD (if herald (set-car! herald (+ (first herald) (- t (first *herald*)))) (set! *heralds* (cons (list (- t (first *herald*)) (second *herald*)) *heralds*)))))) (for-each (lambda (herald) (notify "~a - ~a% - ~a" (number->string-of-length (inexact->exact (round (first herald))) 6) (number->string-of-length (inexact->exact (round (/ (* 100 (first herald)) (reduce + (map first *heralds*) 0)))) 2) (second herald))) (reverse *heralds*))) (define (replace-true-and-false-with-t-and-nil c) (if c 't 'nil)) (define (replace-symbols-with-strings c) (cond ((pair? c) (cons (replace-symbols-with-strings (car c)) (replace-symbols-with-strings (cdr c)))) ((symbol? c) (symbol->string c)) (else c))) (define (type-kind u) (cond ((null-type? u) 'null-type) ((true-type? u) 'true-type) ((false-type? u) 'false-type) ((char-type? u) 'char-type) ((fixnum-type? u) 'fixnum-type) ((flonum-type? u) 'flonum-type) ((rectangular-type? u) 'rectangular-type) ((input-port-type? u) 'input-port-type) ((output-port-type? u) 'output-port-type) ((eof-object-type? u) 'eof-object-type) ((pointer-type? u) 'pointer-type) ((internal-symbol-type? u) 'internal-symbol-type) ((external-symbol-type? u) 'external-symbol-type) ((primitive-procedure-type? u) 'primitive-procedure-type) ((native-procedure-type? u) 'native-procedure-type) ((foreign-procedure-type? u) 'foreign-procedure-type) ((continuation-type? u) 'continuation-type) ((string-type? u) 'string-type) ((structure-type? u) 'structure-type) ((headed-vector-type? u) 'headed-vector-type) ((nonheaded-vector-type? u) 'nonheaded-vector-type) ((displaced-vector-type? u) 'displaced-vector-type) (else (fuck-up)))) (define (write-database pathname) ;; conventions: PATHNAME (define (map-variable-index gs) (cond ((pair? gs) (cons (variable-index (car gs)) (map-variable-index (cdr gs)))) ((variable? gs) (variable-index gs)) ((null? gs) '()) (else (fuck-up)))) (call-with-output-file (replace-extension pathname "db") (lambda (port) ;; conventions: PORT (write (list (map (lambda (x) ;; No need for: LINK, ;; CONSTANT, ;; INFERRED?, ;; NEEDS-CONVERSION-TO-CPS?, ;; RESULT, ;; CONTINUATION-TYPE, ;; STRING-TYPE, ;; STRUCTURE-TYPES, ;; HEADED-VECTOR-TYPES, and ;; NONHEADED-VECTOR-TYPES. ;; Should add: ORIGINAL-EXPRESSION, ;; REACHABLE?, ;; ACCESSED?, ;; RETURNS?, and ;; FREE-REFERENCE? (but these only apply to references). (list (expression-kind x) (expression-pathname x) (expression-line-position x) (expression-character-position x) (expression-character-position-within-line x) (expression-index x) (if (expression-environment x) (environment-index (expression-environment x)) 'nil) (type-set-index (expression-type-set x)) (if (expression-parent x) (expression-index (expression-parent x)) 'nil) ;; This is a real kludge. (cond ((eq? (expression-lambda-environment x) (unused)) 'unused) ((eq? (expression-lambda-environment x) (unspecified)) 'unspecified) ((environment? (expression-lambda-environment x)) (environment-index (expression-lambda-environment x))) (else 'nil)) ;; This is a real kludge. (cond ((eq? (expression-parameters x) (unused)) 'unused) ((eq? (expression-parameters x) (unspecified)) 'unspecified) (else (map-variable-index (expression-parameters x)))) ;; This is a real kludge. (cond ((eq? (expression-body x) (unused)) 'unused) ((noop? x) 'nil) (else (expression-index (expression-body x)))) ;; This is a real kludge. (if (eq? (expression-variable x) (unused)) 'unused (variable-index (expression-variable x))) ;; This is a real kludge. (if (eq? (expression-source x) (unused)) 'unused (expression-index (expression-source x))) ;; This is a real kludge. (if (eq? (expression-antecedent x) (unused)) 'unused (expression-index (expression-antecedent x))) ;; This is a real kludge. (if (eq? (expression-consequent x) (unused)) 'unused (expression-index (expression-consequent x))) ;; This is a real kludge. (if (eq? (expression-alternate x) (unused)) 'unused (expression-index (expression-alternate x))) ;; This is a real kludge. (if (eq? (expression-callee x) (unused)) 'unused (expression-index (expression-callee x))) ;; This is a real kludge. (if (eq? (expression-arguments x) (unused)) 'unused (map expression-index (expression-arguments x))) (map (lambda (u-e) (cons (type-index (car u-e)) (cond ((region-allocation? (cdr u-e)) (environment-index (cdr u-e))) ((stack-allocation? (cdr u-e)) 'stack) ((heap-allocation? (cdr u-e)) 'heap) (else (fuck-up))))) (expression-type-allocation-alist x)))) (remove-if-not expression-pathname *xs*)) (map (lambda (u) ;; No need for: MARKED?, ;; USED?, and ;; LINK. ;; Should add: TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO, ;; TYPE-PREDICATE-ACCESSED?, ;; EQ?-ACCESSED?, ;; SYMBOL->STRING-ACCESSED, ;; STRING-LENGTH-ACCESSED, ;; STRING-REF-ACCESSED, ;; STRUCTURE-REF-ACCESSED?, ;; VECTOR-LENGTH-ACCESSED, ;; VECTOR-REF-ACCESSED, ;; NARROW-PROTOTYPE, ;; ALIGNMENT?, ;; ALIGNMENT&?, ;; SIZE?, ;; ACCESSED-AFTER-RETURN?, ;; REFERENCED-RECURSIVELY?, ;; CALL-SITES, ;; NEVER-ALLOCATED-ON-THE-HEAP?, ;; EXTERNAL-SYMBOL-TYPE, and ;; DISPLACED-VECTOR-TYPE. (list (type-kind u) (if (internal-symbol-type? u) (replace-symbols-with-strings (internal-symbol-type-name u)) 'unused) (if (external-symbol-type? u) (type-index (external-symbol-type-displaced-string-type u)) 'unused) (if (primitive-procedure-type? u) (replace-symbols-with-strings (primitive-procedure-type-name u)) 'unused) (if (primitive-procedure-type? u) (primitive-procedure-type-arguments u) 'unused) (if (native-procedure-type? u) (map (lambda (y-e) (cons (if (top-level-call-site? (car y-e)) 'nil (cons (expression-index (call-site-expression (car y-e))) (call-site-offsets (car y-e)))) (environment-index (cdr y-e)))) (native-procedure-type-call-site-environment-alist u)) 'unused) (if (foreign-procedure-type? u) (foreign-procedure-type-name u) 'unused) (if (foreign-procedure-type? u) (foreign-procedure-type-parameters u) 'unused) (if (foreign-procedure-type? u) (foreign-procedure-type-result u) 'unused) (if (foreign-procedure-type? u) (replace-true-and-false-with-t-and-nil (foreign-procedure-type-called? u)) 'unused) (if (continuation-type? u) (expression-index (continuation-type-allocating-expression u)) 'unused) (if (continuation-type? u) (replace-true-and-false-with-t-and-nil (continuation-type-continuation-accessed? u)) 'unused) (if (string-type? u) (map (lambda (x) (if (expression? x) (expression-index x) 'nil)) (string-type-allocating-expressions u)) 'unused) (if (structure-type? u) (replace-symbols-with-strings (structure-type-name u)) 'unused) (if (structure-type? u) (map type-set-index (structure-type-slots u)) 'unused) (if (structure-type? u) (replace-true-and-false-with-t-and-nil (structure-type-immediate? u)) 'unused) (if (structure-type? u) (map expression-index (structure-type-allocating-expressions u)) 'unused) (if (headed-vector-type? u) (type-set-index (headed-vector-type-element u)) 'unused) (if (headed-vector-type? u) (map expression-index (headed-vector-type-allocating-expressions u)) 'unused) (if (nonheaded-vector-type? u) (type-set-index (nonheaded-vector-type-element u)) 'unused) (if (nonheaded-vector-type? u) (map (lambda (x) (if (expression? x) (expression-index x) 'nil)) (nonheaded-vector-type-allocating-expressions u)) 'unused) (if (displaced-vector-type? u) (type-index (displaced-vector-type-displaced-vector-type u)) 'unused) (type-index u) (type-use-count u) (replace-true-and-false-with-t-and-nil (fictitious? u)))) (append (list ) *internal-symbol-types* *external-symbol-types* *primitive-procedure-types* *native-procedure-types* *foreign-procedure-types* *continuation-types* *string-types* *structure-types* *headed-vector-types* *nonheaded-vector-types* *displaced-vector-types*)) (map (lambda (w) ;; No need for: LINK and ;; USED? ;; Should add: LOCATION, ;; MINIMAL-ALIGNMENT, ;; ALIGNMENT?, ;; SIZE?, ;; SQUEEZABLE, and ;; SQUISHABLE. (list (map type-index (members w)) (type-set-index w) (replace-true-and-false-with-t-and-nil (fictitious? w)) (replace-true-and-false-with-t-and-nil (void? w)) (replace-true-and-false-with-t-and-nil (monomorphic? w)) (replace-true-and-false-with-t-and-nil (multimorphic? w)) (replace-true-and-false-with-t-and-nil (tag-only? w)) (replace-true-and-false-with-t-and-nil (has-union? w)) (replace-true-and-false-with-t-and-nil (squeezed? w)) (replace-true-and-false-with-t-and-nil (squished? w)))) *ws*) (map (lambda (g) ;; Should add: ASSIGNED?, ;; HAS-NON-IN-LINED-REFERENCE?, ;; REFERENCED-AFTER-RETURN?, ;; REFERENCED-RECURSIVELY?, and ;; HIDEABLE?. (list (variable-pathname g) (variable-line-position g) (variable-character-position g) (variable-character-position-within-line g) (variable-index g) (replace-symbols-with-strings (variable-name g)) (environment-index (variable-environment g)) (replace-true-and-false-with-t-and-nil (accessed? g)) (type-set-index (variable-type-set g)) (map expression-index (accesses g)) (map expression-index (assignments g)) (map expression-index (references g)) (replace-true-and-false-with-t-and-nil (local? g)) (replace-true-and-false-with-t-and-nil (global? g)) (replace-true-and-false-with-t-and-nil (hidden? g)) (replace-true-and-false-with-t-and-nil (slotted? g)))) (remove-if-not variable-pathname *gs*)) (map (lambda (e) ;; No need for: MARKED1?, ;; MARKED2?, ;; SPLIT, ;; Should add: RECURSIVE?, ;; HAS-EXTERNAL-SELF-TAIL-CALL? ;; HAS-EXTERNAL-CONTINUATION-CALL?, ;; DISTANCE-FROM-ROOT, ;; FREE-VARIABLES, ;; QUICK-PARENT, ;; PARENT-PARAMETER, ;; PARENT-SLOT, ;; ANCESTORS, ;; DESCENDENTS, ;; PROPERLY-IN-LINED-ENVIRONMENTS, ;; NARROW-PROTOTYPE, ;; NARROW-CLONES ;; WIDE-PROTOTYPE, ;; DIRECT-TAIL-CALLERS, ;; DIRECT-NON-TAIL-CALLERS, ;; DIRECT-TAIL-CALLEES, ;; DIRECT-NON-TAIL-CALLEES, ;; BLOCKED-ENVIRONMENTS, ;; EXPRESSIONS, ;; CONTINUATION-CALLS, ;; ESCAPING-TYPES, and ;; NON-SELF-TAIL-CALL-SITES. (list (environment-index e) (if (environment-expression e) (expression-index (environment-expression e)) 'nil) (environment-name e) (replace-true-and-false-with-t-and-nil (has-region? e)) ;; needs work: The offsets are discarded here. But it doesn't ;; matter for now since this field is not used by ;; stalin.el. (map (lambda (y) (expression-index (call-site-expression y))) ;; needs work: Should have abstraction for top-level call ;; site. (remove-if top-level-call-site? (call-sites e))) (cond ((region-allocation? (allocation e)) (environment-index (allocation e))) ((stack-allocation? (allocation e)) 'stack) ((heap-allocation? (allocation e)) 'heap) (else 'nil)) (replace-true-and-false-with-t-and-nil (reentrant? e)) (replace-true-and-false-with-t-and-nil (called-more-than-once? e)) (if (or (empty? e) (not (called? e))) 'nil (replace-true-and-false-with-t-and-nil (has-closure? e))) ;; needs work: The offsets are discarded here. But it doesn't ;; matter for now since this field is not used by ;; stalin.el. (if (unique-call-site? e) (expression-index (call-site-expression (unique-call-site e))) 'nil))) ;; note: We used to do (REMOVE-IF LET? *ES*) but then m-sh-Q gave ;; "allocates on nil" because it allocated on a let ;; environment. *es*) (map (lambda (warning) ;; conventions: WARNING (list (first warning) (second warning) (third warning))) *warnings*)) port) (newline port)))) (define (stalin pathname thunk) (when *overflow-checks?* (unimplemented #f "For now, you must specify -On because safe fixnum arithmetic is not (yet) implemented")) (when *treadmarks?* (when *heap-allocation?* (unimplemented #f "For now, with -Tmk you must specify -dC")) (when *stack-allocation?* (unimplemented #f "With -Tmk you must specify -dc")) (unless *region-allocation?* (unimplemented #f "For now, with -Tmk you cannot specify -dH")) (when *globals?* (unimplemented #f "For now, with -Tmk you cannot specify -dG"))) (initialize-stalin!) (set! *macros* *r4rs-macros*) (when *Scheme->C-compatibility?* (set! *macros* (append *macros* *Scheme->C-compatibility-macros*))) (when *Xlib-and-GL?* (set! *macros* (append *macros* *Xlib-and-GL-macros*))) (when *QobiScheme?* (set! *macros* (append *macros* *QobiScheme-macros*))) (when *Trotsky?* (set! *macros* (append *macros* *Trotsky-macros*))) (herald *p1?* "Reading source") (let* ((ss-spitter (thunk)) (ss (first ss-spitter)) (spitter (second ss-spitter))) ;; conventions: SPITTER (herald *p1?* "Expanding macros") (set! *x* (macroexpand ss)) (set! *gs* (reverse *gs*)) (herald *p1?* "Fast tree shake") (fast-tree-shake!) (when *fully-convert-to-CPS?* (herald *p1?* "Fully converting to CPS") (set! *x* (fully-convert-to-CPS *x*))) (let loop ((again? #f)) (herald *p1?* "Annotating expressions with their parents") (annotate-expressions-with-their-parents!) (herald *p1?* "Annotating variables with their environments") (annotate-variables-with-their-environments!) (herald *p1?* "Annotating expressions with their environments") (annotate-expressions-with-their-environments!) (herald *p1?* "In-lining first-order calls to primitive procedures") (in-line-first-order-calls-to-primitive-procedures!) (herald *p1?* "Annotating expressions with their parents") (annotate-expressions-with-their-parents!) (herald *p1?* "Annotating variables with their environments") (annotate-variables-with-their-environments!) (herald *p1?* "Annotating expressions with their environments") (annotate-expressions-with-their-environments!) (herald *p1?* "Annotating variables with their references") (annotate-variables-with-their-references!) (let loop ((i 1)) ;; conventions: I (when (>= i 3) (fuck-up)) (herald *p1?* "Performing flow analysis") (perform-flow-analysis!) (herald *p1?* "Enumerating call sites") (enumerate-call-sites!) (herald *p1?* "Determining which types and type sets are used") (determine-which-types-and-type-sets-are-used!) ;; needs work: The next three expressions have their time assigned to ;; determining which types and type sets are used. (remove-unused-objects! #f) (when *p1?* (print-counts) (print-number-of-call-sites-that-dispatch-on-clones) (print-maximal-non-let-lexical-nesting-depth) (print-maximal-clone-rate)) (herald *p1?* "Determining which call sites to split") (if (and (not (zero? *clone-size-limit*)) (determine-which-call-sites-to-split!)) (loop (+ i 1)) (when *p1?* (notify "~a pass~a of flow analysis" i (if (= i 1) "" "es"))))) (set! *during-closure-conversion?* #t) (herald *p1?* "Computing call graph") (compute-call-graph! (expression-lambda-environment *x*)) (herald *p1?* "Determining which environments are called more than once") (determine-which-environments-are-called-more-than-once!) (herald *p1?* "Determining which variables are referenced") (determine-which-variables-are-referenced!) (herald *p1?* "Determining free variables") (determine-free-variables!) (herald *p1?* "Determining necessarily-fictitious native procedure types") (determine-necessarily-fictitious-native-procedure-types!) (herald *p1?* "Annotating environments and continuation types") (annotate-environments-and-continuation-types!) (herald *p1?* "Inverting points-to relation") (invert-points-to-relation!) (herald *p1?* "Determining escaping types") (determine-escaping-types!) (herald *p1?* "Determining which environments have unique call sites") (determine-which-environments-have-unique-call-sites!) (herald *p1?* "Determining which environments are recursive") (determine-which-environments-are-recursive!) (herald *p1?* "Determining which environments are reentrant") (determine-which-environments-are-reentrant!) (when *uniqueness?* ;; needs work: The following comment is out of date. ;; I believe that it is not necessary to do this before determining which ;; types and type sets are used, computing the call graph, determining ;; which environments are called more than once, determining which ;; variables are accessed, determining referenced types, determining ;; escaping types, determining which environments have unique call sites, ;; and determining which environments are reentrant. But it must come ;; before performing lightweight closure conversion, determining parents ;; determining allocations, applying closed-world assumption, determining ;; indirect structure types, determining which environments have regions, ;; determining which type sets are squeezable, determining which type sets ;; are squishable, and determining alignments. I'm not sure about ;; converting to CPS, determining environment distances from root, ;; determining which environments have external self tail calls, ;; determining which environments have external continuation calls, and ;; determining which types are never allocated on the heap. (herald *p1?* "Asserting uniqueness") (assert-uniqueness!)) (herald *p1?* "Performing lightweight closure conversion") (perform-lightweight-closure-conversion!) (herald *p1?* "Determining parents") (determine-parents!) (set! *during-closure-conversion?* #f) (unless *fully-convert-to-CPS?* (herald *p1?* "Determining which expressions need conversion to CPS") (unless *no-escaping-continuations?* (determine-which-expressions-need-conversion-to-CPS!)) (when (and again? (not *no-escaping-continuations?*) (some expression-needs-conversion-to-CPS? *xs*)) (notify "Warning! Double CPS conversion")) (when (and (not again?) (not *no-escaping-continuations?*) (some expression-needs-conversion-to-CPS? *xs*)) (when again? (fuck-up)) (when (some (lambda (e) (not (eq? e (wide-prototype e)))) *es*) (unimplemented #f "For now, this program must be compiled with -clone-size-limit 0")) (herald *p1?* "Converting to CPS") (set! *x* (nonconvert-to-CPS *x*)) (when (converted? *y*) (fuck-up)) ;; This is needed because ANNOTATE-EXPRESSIONS-WITH-THEIR-PARENTS! will ;; remove orphaned expressions from *XS* so clear out the REACHED? bits ;; before we lose an easy handle on such expressions. (for-each (lambda (x) (set-expression-reached?! x #f)) *xs*) (set! *es* (remove-if-not (lambda (e) (eq? e (wide-prototype e))) *es*)) ;; This call to ANNOTATE-VARIABLES-WITH-THEIR-ENVIRONMENTS! is necessary ;; for VARIABLE-ENVIRONMENT to be set on variables created or moved by ;; conversion to CPS. (annotate-variables-with-their-environments!) (set! *gs* (remove-if-not (lambda (g) (eq? (variable-environment g) (wide-prototype (variable-environment g)))) *gs*)) (for-each (lambda (e) (set-environment-narrow-clones! e (list e)) (set-environment-direct-tail-callers! e (unspecified)) (set-environment-direct-non-tail-callers! e (unspecified)) (set-environment-direct-tail-callees! e (unspecified)) (set-environment-direct-non-tail-callees! e (unspecified)) (set-environment-expressions! e (unspecified)) (set-environment-continuation-calls! e (unspecified)) (set-environment-escaping-types! e (unspecified)) (set-environment-non-self-tail-call-sites! e (unspecified))) *es*) (initialize-types!) (loop #t)))) ;; needs work: The next three expressions have their time assigned to ;; determining environment distances from root. (when *closure-conversion-statistics?* (set! *during-closure-conversion?* #t) (notify "~s" (list 'static-counts (length *gs*) (count-if assigned? *gs*) (count-if accessed? *gs*) (count-if (lambda (g) (not (fictitious? (variable-type-set g)))) *gs*) (count-if local? *gs*) (count-if global? *gs*) (count-if hidden? *gs*) (count-if slotted? *gs*) (length *es*) (count-if has-closure? *es*) (count-if (lambda (e) (and (environment-used? e) (has-parent-slot? e))) *es*) (count-if (lambda (e) (and (environment-used? e) (has-parent-parameter? e))) *es*) (count-if (lambda (e) (and (environment-used? e) (has-parent-slot? e) (not (eq? (parent-slot e) (parent e))))) *es*) (count-if (lambda (e) (and (environment-used? e) (has-parent-parameter? e) (not (eq? (parent-parameter e) (parent e))))) *es*) (let ((counts (map number-of-accessor-indirections (remove-if-not (lambda (x) (environment-used? (expression-environment x))) *references*)))) (/ (reduce + counts 0) (exact->inexact (length counts)))) (length *accesses*) (count-if nontrivial-reference? *accesses*) (length *assignments*) (count-if nontrivial-reference? *assignments*))) (set! *during-closure-conversion?* #f)) (remove-unused-objects! #t) (check-for-corruption #t) (when *p1?* (print-counts) (print-number-of-call-sites-that-dispatch-on-clones) (print-maximal-non-let-lexical-nesting-depth) (print-maximal-clone-rate)) (herald *p1?* "Determining environment distances from root") (determine-environment-distances-from-root!) (herald *p1?* "Determining which environments have external self tail calls") (determine-which-environments-have-external-self-tail-calls!) (herald *p1?* "Determining which environments have external continuation calls") (determine-which-environments-have-external-continuation-calls!) (herald *p1?* "Determining blocked environments") (determine-blocked-environments!) (herald *p1?* "Determining which environments need to pass parameters globally") (determine-which-environments-need-to-pass-parameters-globally!) (herald *p1?* "Determining allocations") (determine-allocations!) ;; needs work: The next expression has its time assigned to determining ;; allocations. (when *p2?* (notify-pp "~s" (externalize-expression *x*)) (for-each (lambda (w) (notify-pp "~s" (list (type-set-index w) (externalize-type-set w)))) *ws*)) (herald *p1?* "Applying closed-world assumption") (apply-closed-world-assumption!) (check-for-corruption #t) (herald *p1?* "Determining indirect structure types") (determine-indirect-structure-types!) (herald *p1?* "Determining which types are never allocated on the heap") (determine-which-types-are-never-allocated-on-the-heap!) (herald *p1?* "Determining which types are atomic") (determine-which-types-are-atomic!) (herald *p1?* "Determining which environments have regions") (determine-which-environments-have-regions!) ;; needs work: The next eight expressions have their time assigned to ;; determining which environments have regions. (when *p3?* (notify-pp "~s" (externalize-expression *x*)) (for-each (lambda (w) (notify-pp "~s" (list (type-set-index w) (externalize-type-set w)))) *ws*)) (when *p4?* (for-each (lambda (e) (unless (and (null? (direct-tail-callees e)) (null? (direct-callees e)) (null? (proper-tail-callees e)) (null? (proper-callees e))) (notify (environment-name e)) (unless (null? (direct-tail-callees e)) (notify " Direct tail callees:") (for-each (lambda (e) (notify " ~a" (environment-name e))) (direct-tail-callees e))) (unless (null? (direct-callees e)) (notify " Direct callees:") (for-each (lambda (e) (notify " ~a" (environment-name e))) (direct-callees e))) (unless (null? (proper-tail-callees e)) (notify " Proper tail callees:") (for-each (lambda (e) (notify " ~a" (environment-name e))) (proper-tail-callees e))) (unless (null? (proper-callees e)) (notify " Proper callees:") (for-each (lambda (e) (notify " ~a" (environment-name e))) (proper-callees e))))) *es*)) (when *p5?* (let ((es (remove-if unique-call-site? *es*))) (notify (if (= (length es) 1) "The following non-in-line native procedure will be generated:" "The following non-in-line native procedures will be generated:")) (for-each (lambda (e) (notify " ~a~a~a~a" (environment-name e) (if (reentrant? e) " reentrant" "") (if (converted? e) " converted" "") (if (environment-passes-parameters-globally? e) " passes parameters globally" "")) (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented #f "Indirect flat closures are not (yet) implemented")) ((immediate-display indirect-display) (when (has-parent-parameter? e) (notify (if (= (length (ancestors e)) 1) " has the following ancestor:" " has the following ancestors")) (for-each (lambda (e) (notify " ~a" (environment-name e))) (ancestors e))) (when (has-closure? e) (notify " has closure"))) ((linked) (when (has-parent-parameter? e) (notify " has parent parameter ~a" (environment-name (parent-parameter e)))) (when (has-closure? e) (notify " has closure")) (when (has-parent-slot? e) (notify " has parent slot ~a" (environment-name (parent-slot e))))) (else (fuck-up))) (when (has-region? e) (notify " has region")) (let ((gs (remove-if-not (lambda (g) (or (local? g) (global? g) (hidden? g) (slotted? g))) (variables e)))) (unless (null? gs) (notify (if (= (length gs) 1) " has the following parameter:" " has the following parameters:")) (for-each (lambda (g) (notify " ~a{~s}~a~a~a~a" (variable-name g) (variable-index g) (if (local? g) " local" "") (if (global? g) " global" "") (if (slotted? g) " slotted" "") (if (hidden? g) " hidden as" "")) (when (hidden? g) (for-each (lambda (e) (notify " ~a" (environment-name e))) (narrow-clones (the-member (variable-type-set g)))))) gs))) (let ((gs (remove-if-not local? (sort (reduce append (map variables (properly-in-lined-environments e)) '()) < variable-index)))) (unless (null? gs) (notify (if (= (length gs) 1) " has the following in-lined local:" " has the following in-lined locals:")) (for-each (lambda (g) (notify " ~a{~s}" (variable-name g) (variable-index g))) gs)))) es)) (let ((es (remove-if-not (lambda (e) (and (unique-call-site? e) (or (reentrant? e) (converted? e) (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented #f "Indirect flat closures are not (yet) implemented")) ((immediate-display indirect-display) (or (has-parent-parameter? e) (has-closure? e))) ((linked) (or (has-parent-parameter? e) (has-closure? e) (has-parent-slot? e))) (else (fuck-up))) (has-region? e) (some (lambda (g) (or (local? g) (global? g) (hidden? g) (slotted? g))) (variables e))))) *es*))) (unless (null? es) (notify (if (= (length es) 1) "The following non-trivial in-line native procedure will be generated:" "The following non-trivial in-line native procedures will be generated:"))) (for-each (lambda (e) (notify " ~a~a~a" (environment-name e) (if (reentrant? e) " reentrant" "") (if (converted? e) " converted" "")) (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented #f "Indirect flat closures are not (yet) implemented")) ((immediate-display indirect-display) (when (has-parent-parameter? e) (notify (if (= (length (ancestors e)) 1) " has the following ancestor:" " has the following ancestors:")) (for-each (lambda (e) (notify " ~a" (environment-name e))) (ancestors e))) (when (has-closure? e) (notify " has closure"))) ((linked) (when (has-parent-parameter? e) (notify " has parent parameter ~a" (environment-name (parent-parameter e)))) (when (has-closure? e) (notify " has closure")) (when (has-parent-slot? e) (notify " has parent slot ~a" (environment-name (parent-slot e))))) (else (fuck-up))) (when (has-region? e) (notify " has region")) (let ((gs (remove-if-not (lambda (g) (or (local? g) (global? g) (hidden? g) (slotted? g))) (variables e)))) (unless (null? gs) (notify (if (= (length gs) 1) " has the following parameter:" " has the following parameters:")) (for-each (lambda (g) (notify " ~a{~s}~a~a~a~a" (variable-name g) (variable-index g) (if (local? g) " local" "") (if (global? g) " global" "") (if (slotted? g) " slotted" "") (if (hidden? g) " hidden as" "")) (when (hidden? g) (for-each (lambda (e) (notify " ~a" (environment-name e))) (narrow-clones (the-member (variable-type-set g)))))) gs)))) es))) (if *tail-call-optimization?* ;; note: I believe that all call-graph cycles that consist only of tail ;; calls have the property that all return types sets of procedures ;; in that cycle are equal and thus EQ?. Thus there cannot be return- ;; value coercion at a tail-recursive call site. (let ((ys (remove-if-not (lambda (y) (and (nonmerged-tail-recursive-purely-tail-call-site? y) (let* ((e1 (expression-environment (call-site-expression y))) (e2 (home e1))) ;; needs work: There is another case that foils tail-call ;; optimization in gcc that we don't (yet) check: ;; use of unary & on a local variable in the ;; caller. This is done by C:FORGERY-CAST and also ;; ZERO-VALUE and EQ? when *EQ?-FORGERY?* is true. ;; There are also cases unary & is applied to ;; a jump_buf but those are already handled by ;; HAS-SETJMP?. And MUTEX applies unary & to a ;; mutex to pass its address to pthread_mutex_lock ;; and pthread_mutex_unlock. (or (and (has-region? e1) (reentrant? e1)) (has-alloca? e2) (has-setjmp? e2))))) *ys*))) (unless (null? ys) ;; needs work: These warnings should go in the warning database. (notify (if (= (reduce + (map (lambda (y) (length (nonmerged-tail-recursive-purely-tail-call-site-callees y))) ys) 0) 1) "Warning! The following tail-recursive tail call is not merged:" "Warning! The following tail-recursive tail calls are not merged:")) (for-each (lambda (y) (cond ((expression-pathname (call-site-expression y)) (notify " From the following expression, ~a:~s:~s:" (expression-pathname (call-site-expression y)) (expression-line-position (call-site-expression y)) (expression-character-position (call-site-expression y)))) (else (notify " From the following expression:"))) (notify-pp3 " ~s" (undecorate (call-site-expression y))) (let* ((e1 (expression-environment (call-site-expression y))) (e2 (home e1))) (notify " in ~a" (environment-name e2)) (for-each (lambda (e) (notify " to ~a" (environment-name e))) (nonmerged-tail-recursive-purely-tail-call-site-callees y)) ;; You can't panic and still need to give these warning because the ;; user might have specified -dC that forces the use of regions and ;; alloca. (when (and (has-region? e1) (reentrant? e1)) (notify " because the call site has a reentrant region")) (when (has-alloca? e2) (notify " because the call site has calls to alloca")) (when (has-setjmp? e2) (notify " because the call site has calls to setjmp")))) ys))) (let ((ys (remove-if-not nonmerged-tail-recursive-purely-tail-call-site? *ys*))) (unless (null? ys) ;; needs work: These warnings should go in the warning database. (notify (if (= (reduce + (map (lambda (y) (length (nonmerged-tail-recursive-purely-tail-call-site-callees y))) ys) 0) 1) "Warning! The following tail-recursive tail call is not merged:" "Warning! The following tail-recursive tail calls are not merged:")) (for-each (lambda (y) (cond ((expression-pathname (call-site-expression y)) (notify " From the following expression, ~a:~s:~s:" (expression-pathname (call-site-expression y)) (expression-line-position (call-site-expression y)) (expression-character-position (call-site-expression y)))) (else (notify " From the following expression:"))) (notify-pp3 " ~s" (undecorate (call-site-expression y))) (notify " in ~a" (environment-name (home (expression-environment (call-site-expression y))))) (for-each (lambda (e) (notify " to ~a" (environment-name e))) (nonmerged-tail-recursive-purely-tail-call-site-callees y))) ys)))) (when *p6?* (for-each (lambda (x) (for-each (lambda (u-e) (let ((u (car u-e)) (e (cdr u-e))) (cond ((expression-pathname x) (notify "The following expression, ~a:~s:~s, allocates on ~a:" (expression-pathname x) (expression-line-position x) (expression-character-position x) (cond ((region-allocation? e) (environment-name e)) ((stack-allocation? e) "the stack") ((heap-allocation? e) "the heap") (else (fuck-up))))) (else (notify "The following expression allocates on ~a:" (cond ((region-allocation? e) (environment-name e)) ((stack-allocation? e) "the stack") ((heap-allocation? e) "the heap") (else (fuck-up)))))) (notify-pp3 "~s" (undecorate x)))) (expression-type-allocation-alist x))) *calls*) (for-each (lambda (e) (when (has-closure? e) (notify "The closure for ~a is allocated on ~a" (environment-name e) (cond ((region-allocation? (allocation e)) (environment-name (allocation e))) ((stack-allocation? (allocation e)) "the stack") ((heap-allocation? (allocation e)) "the heap") (else (fuck-up)))))) *es*)) (herald *p1?* "Determining which type sets are squeezable") (determine-which-type-sets-are-squeezable!) (herald *p1?* "Determining which type sets are squishable") (determine-which-type-sets-are-squishable!) (herald *p1?* "Determining alignments") (determine-alignments!) (herald *p1?* "Assigning global squish tags") (assign-global-squish-tags!) (when *promote-representations?* (herald *p1?* "Promoting representations") (promote-representations!)) (when *p1?* (print-reasons-why-type-sets-are-not-squishable!)) ;; needs work: To handle fake structure slots and vector elements. ;; Vector elements may be tricky because it can lead to ;; degeneracy. (for-each (lambda (g) (when (fake? (variable-type-set g)) (cond ((local? g) (format #t "Warning! Unlocalizing ~a{~a}:W~s because it is fake~%" (variable-name g) (variable-index g) (type-set-index (variable-type-set g))) (set-variable-local?! g #f)) ((global? g) (format #t "Warning! Unglobalizing ~a{~a}:W~s because it is fake~%" (variable-name g) (variable-index g) (type-set-index (variable-type-set g))) (set-variable-global?! g #f)) ;; needs work: I'm not sure about this one. ((hidden? g) (format #t "Warning! Unhidding ~a{~a}:W~s because it is fake~%" (variable-name g) (variable-index g) (type-set-index (variable-type-set g))) (set-variable-hidden?! g #f)) ((slotted? g) (format #t "Warning! Unslotting ~a{~a}:W~s because it is fake~%" (variable-name g) (variable-index g) (type-set-index (variable-type-set g))) (set-variable-slotted?! g #f))))) *gs*) (herald *p1?* "Generating code") ;; needs work: To move all quote variables before any procedures. (let* ((c1 (compile-native-procedures)) (c1 (newline-between (compile-error-procedures) c1))) (set! *outside-body* '()) (when (hidden? (first (variables *x*))) (fuck-up)) (when (or (eq? *closure-conversion-method* 'baseline) (eq? *closure-conversion-method* 'conventional)) ;; needs work: needs abstraction for initialized declaration (outside-main (semicolon-after (space-between *fixnum* (unparenthesize (c:= "fake" (c:value-offset))))))) (let* ((u (the-member (expression-type-set *x*))) (g (first (variables *x*))) (w (variable-type-set g)) (t (if (or (local? g) (slotted? g)) (allocate-temporary w) (c:noop))) (w1 (return-type-set (callee-environment u *y*))) (c (if (and (or (local? g) (slotted? g)) (not (environment-passes-parameters-globally? (callee-environment u *y*)))) (c:call (c:f (callee-environment u *y*)) t) (c:call (c:f (callee-environment u *y*))))) (c (newline-between (if (or (local? g) (global? g) (slotted? g)) (move-displaced-vector (if (global? g) (create-accessor-result (variable-type-set g) (accessor g #f)) (create-accessor-result w t)) (the-member-that top-level-nonheaded-vector-type? w) (c:argv) (c:argc)) (c:noop)) (if (and (or (local? g) (slotted? g)) (environment-passes-parameters-globally? (callee-environment u *y*))) (c::= (c:b g) t) (c:noop)) (if (can-be? fixnum-type? w1) (if (can-be-non? fixnum-type? w1) (let ((t1 (allocate-temporary w1))) (newline-between (move (create-accessor-result w1 t1) c w1) (type-switch fixnum-type? w1 *discard* t1 (lambda (u1) (cond (*treadmarks?* (include! "Tmk") ;Tmk_exit (c:gosub "Tmk_exit" (c:value t1 u1 w1))) (else (c:return (c:value t1 u1 w1))))) (lambda (p?) (cond (*treadmarks?* (include! "Tmk") ;Tmk_exit (c:gosub "Tmk_exit" (c:0))) (else (c:return (c:0)))))))) (c:return c)) (newline-between (semicolon-after c) (c:return (c:0)))))) (c (newline-between (compile-regions) (compile-closures) (compile-type-declarations) (compile-closure-levels) (compile-global-variables) (compile-error-procedure-prototypes) (compile-native-procedure-prototypes) (if *october?* (c:noop) (compile-foreign-procedure-prototypes)) (compile-constant-initialization-procedure-prototypes) (newlines-between (reverse *outside-main*)) c1 (compile-constant-initialization-procedures) ;; needs work: To use code-generation abstractions. (space-between "int" (if (or (accessed? g) (eq? *closure-conversion-method* 'baseline) (eq? *closure-conversion-method* 'conventional) *treadmarks?*) ;; needs work: To generate a prototype. (c:header (c:main) (space-between "int" (c:argc)) (space-between "char" (star-before (star-before (c:argv))))) ;; needs work: To generate a prototype. (c:header (c:main)))) (braces-around (newline-between (newlines-between (reverse *outside-body*)) (compile-assertions) (cond (*treadmarks?* (include! "Tmk") ;Tmk_startup (include! "unistd") ;optind (include! "string") ;strcmp (newline-between (c:while (c:&& (c:< "optind" (c:argc)) (c:!=0 (c:call "strcmp" (c:subscript (c:argv) "optind") "\"--\""))) (semicolon-after (c:++ "optind"))) (c:if (c:&& (c:< "optind" (c:argc)) (c:==0 (c:call "strcmp" (c:subscript (c:argv) "optind") "\"--\""))) (semicolon-after (c:++ "optind")) (c:noop) #f) (c:gosub "Tmk_startup" (c:argc) (c:argv)))) (else (c:noop))) (compile-constant-initialization-procedure-calls) ;; For now, we don't use GC_enable_incremental because it is ;; flakey under Solaris 2.6 and IRIX64 6.2. Also, for some ;; reason, self-compilation runs out of memory with ;; GC_enable_incremental but not without it. (if (and #f *program-has-heap?*) (c:gc-enable-incremental) (c:noop)) (if *expandable-regions?* (cond (*treadmarks?* (include! "Tmk") ;Tmk_proc_id (c:if (c:== "Tmk_proc_id" (c:0)) (newline-between (newlines-between (map (lambda (e) (if (and (has-region? e) (reentrant? e)) (c:align (c:fp e)) (c:noop))) *es*)) (compile-region-distribution) (compile-global-variable-distribution)) (c:noop) #f)) (else (newlines-between (map (lambda (e) (if (and (has-region? e) (reentrant? e)) (c:align (c:fp e)) (c:noop))) *es*)))) (cond (*treadmarks?* (include! "Tmk") ;Tmk_proc_id (c:if (c:== "Tmk_proc_id" (c:0)) (newline-between (compile-region-distribution) (compile-global-variable-distribution)) (c:noop) #f)) (else (c:noop)))) (cond (*treadmarks?* (include! "Tmk") ;Tmk_barrier (c:gosub "Tmk_barrier" (c:0))) (else (c:noop))) c))))) (let ((c (list (newline-between (c-library) (compile-offsets) c) #\newline))) (when *copy-propagation?* (herald *p1?* "Copy propagation") (c:copy-propagate! c)) (herald *p1?* "Removing unused declarations") (c:remove-unused-declarations! c) (herald *p1?* "Removing unused labels") (c:remove-unused-labels! c) (herald *p1?* "Generating C code") (generate c pathname spitter)))) (when *database?* (herald *p1?* "Writing database") (write-database pathname)) (when *run-cc?* (herald *p1?* "Compiling C code") (unless (zero? (system (reduce (lambda (s1 s2) ;; conventions: S1 S2 (string-append s1 " " s2)) `(,*cc* ,@(reduce append (map (lambda (s) ;; conventions: S (list "-I" s)) *include-path*) '()) "-o" ,(strip-extension pathname) ,(replace-extension pathname "c") ,@(reverse *copts*) ,@(reduce append (map (lambda (s) ;; conventions: S (list "-L" s)) *include-path*) '()) "-lm" "-lstalin" ,@(if *program-has-heap?* '("-lgc") '()) ,@(if *program-has-pthreads?* '("-lpthread") '()) ,@(if *treadmarks?* '("-lTmk") '())) ""))) (fuck-up))) (when (and *run-cc?* (not *keep-c?*)) (rm (replace-extension pathname "c"))) (when *p1?* (display-heralds)))) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/Tmk-h.sed0000600017435200151030000000003710464416332013051 0ustar qobiqobis/TMK_NPROCS 8/TMK_NPROCS 32/g stalin-0.11/COPYING0000600017435200151030000005032610463665170012442 0ustar qobiqobi GNU General Public License - GNU Project - Free Software Foundation (FSF)

GNU General Public License

 [image of a Philosophical Gnu] (jpeg 7k) (jpeg 141k) no gifs due to patent problems

Table of Contents

GNU GENERAL PUBLIC LICENSE

Version 2, June 1991 

Copyright (C) 1989, 1991 Free Software Foundation, Inc.  
59 Temple Place - Suite 330, Boston, MA  02111-1307, USA

Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.

Preamble

The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too.

When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things.

To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it.

For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights.

We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software.

Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations.

Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all.

The precise terms and conditions for copying, distribution and modification follow.

TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION

0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you".

Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does.

1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program.

You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee.

2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions:

  • a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change.

  • b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License.

  • c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.)
These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it.

Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program.

In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License.

3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following:

  • a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or,

  • b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or,

  • c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.)
The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable.

If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code.

4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance.

5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it.

6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License.

7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program.

If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances.

It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice.

This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License.

8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License.

9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns.

Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation.

10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally.

NO WARRANTY

11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION.

12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.

END OF TERMS AND CONDITIONS

How to Apply These Terms to Your New Programs

If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms.

To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. 

one line to give the program's name and an idea of what it does.
Copyright (C) 19yy  name of author

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

Also add information on how to contact you by electronic and paper mail.

If the program is interactive, make it output a short notice like this when it starts in an interactive mode: 

Gnomovision version 69, Copyright (C) 19yy name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details
type `show w'.  This is free software, and you are welcome
to redistribute it under certain conditions; type `show c' 
for details.

The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program.

You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: 

Yoyodyne, Inc., hereby disclaims all copyright
interest in the program `Gnomovision'
(which makes passes at compilers) written 
by James Hacker.

signature of Ty Coon, 1 April 1989
Ty Coon, President of Vice

This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License.

Return to GNU's home page.

FSF & GNU inquiries & questions to gnu@gnu.org. Other ways to contact the FSF.

Comments on these web pages to webmasters@www.gnu.org, send other questions to gnu@gnu.org.

Copyright notice above.
Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA

Updated: 16 Feb 1998 tower

stalin-0.11/MORE0000600017435200151030000000130710464416706012067 0ustar qobiqobiAll this assumes that you have installed this directory as ~/stalin-0.11 To compile the Scheme->C version of Stalin do: First download and install: ftp://ftp.ecn.purdue.edu/qobi/infrastructure.tar.Z ftp://ftp.ecn.purdue.edu/qobi/QobiScheme.tar.Z Then do: % cd ~/stalin-0.11/source % make port % cd `architecture-path` % make % cp stalin ../.. % cd ../.. % ./post-make To compile the native version of Stalin from the precompiled C file do: % cd ~/stalin-0.11 % ./build To generate the native single-file stalin.sc from the split-file sources do: % cd ~/stalin-0.11 % ./make-single-file To regenerate the precompiled C file for the native version of Stalin do: % cd ~/stalin-0.11 % make stalin-IA32.c stalin-0.11/build-Tmk0000700017435200151030000000216410464416144013154 0ustar qobiqobi#!/bin/sh rm -rf Tmk-1.0.3.3 tar xf Tmk-1.0.3.3.tar chmod +w Tmk-1.0.3.3/include/Tmk.h sed -f Tmk-h.sed Tmk-1.0.3.3/include/Tmk.h >Tmk-1.0.3.3/include/Tmk.h.new mv -f Tmk-1.0.3.3/include/Tmk.h.new Tmk-1.0.3.3/include/Tmk.h cd Tmk-1.0.3.3 case `uname -m`/`uname -s`/`uname -r` in i[3456]86/Linux/2.*.*) make i386_linux2 cp lib.i386_linux2/libTmk_udp.a ../include/libTmk.a ranlib ../include/libTmk.a;; sun4*/SunOS/4.*) make sparc_sunos4 cp lib.sparc_sunos4/libTmk_udp.a ../include/libTmk.a ranlib ../include/libTmk.a;; sun4*/SunOS/5.*) make sparc_sunos5 cp lib.sparc_sunos5/libTmk_udp.a ../include/libTmk.a;; IP*/IRIX64/6.*) make mips_irix6 cp lib.mips_irix6/libTmk_udp.a ../include/libTmk.a;; alpha/Linux/2.*.*) make alpha_linux2 cp lib.alpha_linux2/libTmk_udp.a ../include/libTmk.a ranlib ../include/libTmk.a;; alpha/OSF1/V4.*) make alpha_osf4 cp lib.alpha_osf4/libTmk_udp.a ../include/libTmk.a ranlib ../include/libTmk.a;; *) echo "Cannot (yet) run Stalin/Tmk on this architecture" exit 1;; esac cp include/Tmk.h ../include/. cd .. rm -rf Tmk-1.0.3.3 stalin-0.11/build0000700017435200151030000000454410465261601012424 0ustar qobiqobi#!/bin/sh # On SPARCv9 under Solaris you need to use cc since gcc doesn't support # SPARCv9 under Solaris. # On PowerPC64 under AIX you cannot compile the compiler with gcc since you # get errors of the form: # 1252-171 The displacement must be greater than or equal to # -32768 and less than or equal to 32767. # It might be possible to compile smaller programs with gcc. To compile the # compiler you need to use cc. It is not clear whethr you can compile libgc.a # and libstalin.a with one compiler and Scheme programs such as Stalin with # another. if [ -r /etc/debian_version ] then DEBIAN_SYSTEM=t fi #if [ x"${DEBIAN_SYSTEM}" != x ] #then # ARCH_OPTS="${ARCH_OPTS} -g -I/usr/include/gc" #fi case `uname -s`/`uname -r` in IRIX*/*) RANLIB=touch;; SunOS/5.*) RANLIB=touch;; *) RANLIB=ranlib;; esac # gc-Makefile.sed changed CC from cc to gcc and adds # -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END # to CFLAGS. # Might also try -DSILENT and either # -DUSE_I686_PREFETCH or -DUSE_3DNOW_PREFETCH # The Debian conditionalization has been removed since the Debian package for # the Boehm GC doesn't make the mods from gc-Makefile.sed. #if [ x"${DEBIAN_SYSTEM}" = x ] #then # Under Debian, we have libgc, but otherwise, don't assume we have the Boehm # GC available. rm -rf gc6.8 gunzip -c gc6.8.tar.gz | tar xf - rm -f gc6.8/Makefile.new sed -f gc-Makefile.sed gc6.8/Makefile >gc6.8/Makefile.new mv -f gc6.8/Makefile.new gc6.8/Makefile cd gc6.8 make test cd .. cp -f gc6.8/include/gc.h include/. cp -f gc6.8/gc.a include/libgc.a cp -f gc6.8/include/gc_config_macros.h include/. $RANLIB include/libgc.a rm -rf gc6.8 #fi cd include rm -f libstalin.a gcc -c -O2 -fomit-frame-pointer -freg-struct-return xlib-c.c ar rc libstalin.a xlib-c.o $RANLIB libstalin.a rm xlib-c.o cd .. case `./include/stalin-architecture-name` in unknown) echo "Cannot (yet) run Stalin on this architecture" exit 1;; *) cp -f stalin-`./include/stalin-architecture-name`.c stalin.c;; esac # Stalin can be compiled with -freg-struct-return on most platforms. But gcc # and egcs have a bug on Linux/Alpha that causes them to crash when given # -freg-struct-return. case `uname -m`/`uname -s` in alpha/Linux) ARCH_OPTS="${ARCH_OPTS}";; *) ARCH_OPTS="${ARCH_OPTS} -freg-struct-return";; esac exec make ARCH_OPTS="${ARCH_OPTS}" stalin-0.11/ANNOUNCEMENT0000600017435200151030000000576010510300301013175 0ustar qobiqobiI am pleased to announce the availability of Stalin 0.11. Stalin is an aggressively optimizing whole-program compiler for Scheme that does polyvariant interprocedural flow analysis, flow-directed interprocedural escape analysis, flow-directed lightweight CPS conversion, flow-directed lightweight closure conversion, flow-directed interprocedural lifetime analysis, automatic in-lining, unboxing, and flow-directed program-specific and program-point-specific low-level representation selection and code generation. Major improvements of this release include: self hosting: Stalin now compiles itself. The distributed code is self- compiled. Scheme->C is no longer used or needed to build Stalin. architectural parameterization: Stalin is now parameterized to allow you to specify the sizes and alignments independently for different machine data types. This makes it easier to port Stalin to different C compilers and architectures. polyvariance: Stalin will automatically make multiple copies of procedures to specialize them for different argument types and to facilitate in-lining. Heuristics and users controls prevent unwieldy code growth. garbage collection: Stalin now includes the Boehm conservative garbage collector. Stalin automatically estimates the lifetime of data allocated at each allocation point and decides, at compile time, whether to allocate that data on the stack, on a region (which is managed like a stack and can be reclaimed without garbage collection), or on the garbage collected heap. APPLY, MAP, and FOR-EACH: Stalin now fully implements APPLY, MAP, and FOR-EACH with procedures and call sites of arbitrary arity. FPI for Xlib and OpenGL: Stalin now comes with a foreign-procedure interface for Xlib and OpenGL. QobiScheme: Stalin now comes with a version of QobiScheme, an extensive library of Scheme code that includes FORMAT, conditionalization primitives, structures, Common-Lisp-like sequence procedures, random-number generators, the gamma distribution, numerical integration, nondeterministic and constraint-based programming constructs, memoization, a string processing package, a context-free grammar parsing package, extended I/O, pathname parsing procedures, tries, a linear algebra package, the simplex algorithm, the Jacobi algorithm, convex hull, an image processing package, JPEG and MPEG compression and decompression, multivariate nonlinear optimization, the EM algorithm, timing procedures, and a CLIM-like package for building window-based applications. improved compiler: Stalin has been largely rewritten. It is smaller, faster, more robust, and produces smaller and faster code. GPL: Stalin is now released under the GNU Public License, version 2. Stalin 0.11 runs on a variety of Unix and Linux platforms including Intel IA32, Sun SPARC, SGI MIPS, Compaq Alpha, Intel ARM, and Motorola M68K. It is available by anonymous FTP from ftp://ftp.ecn.purdue.edu/qobi/stalin.tar.Z. stalin-0.11/build-gl-fpi0000700017435200151030000000054210464407344013577 0ustar qobiqobi#!/bin/sh cd include rm -f libstalin.a gcc -c -O2 -fomit-frame-pointer -freg-struct-return xlib-c.c gcc -c -O2 -fomit-frame-pointer -freg-struct-return gl-c.c ar rc libstalin.a xlib-c.o gl-c.c case `uname -s`/`uname -r` in IRIX*/*) RANLIB=touch;; SunOS/5.*) RANLIB=touch;; *) RANLIB=ranlib;; esac $RANLIB libstalin.a rm xlib-c.o gl-c.o stalin-0.11/stalin-architecture.c0000600017435200151030000000743607500673103015522 0ustar qobiqobi#define CHAR char #define FIXNUM int #define FLOAT float #define DOUBLE double #define LENGTH unsigned #define TAG unsigned #define SQUISHED unsigned #define SQUISHED64 unsigned long #define SIGNEDSQUISHED int #define SIGNEDSQUISHED64 long #define CHARNAME "char" #define FIXNUMNAME "int" #define FLOATNAME "float" #define DOUBLENAME "double" #define LENGTHNAME "unsigned" #define TAGNAME "unsigned" #define SQUISHEDNAME "unsigned" #define SQUISHED64NAME "unsigned long" #define SIGNEDSQUISHEDNAME "int" #define SIGNEDSQUISHED64NAME "long" #include #include #include #include int panic(void); int lg(int); int panic(void) { fprintf(stderr, "Can't compute alignment\n"); exit(-1); return -1;} int lg(int o) { return o==16?4:o==8?3:o==4?2:o==2?1:o==1?0:panic();} int main(int argc, char **argv) { if (argc!=2) { fprintf(stderr, "usage: stalin-architecture \n"); exit(-1);} if (!(((sizeof(void *)==sizeof(SQUISHED))&& (sizeof(void *)==sizeof(SIGNEDSQUISHED)))|| ((sizeof(void *)==sizeof(SQUISHED64))&& (sizeof(void *)==sizeof(SIGNEDSQUISHED64))))) { fprintf(stderr, "Stalin cannot run on this architecture because\n"); fprintf(stderr, "pointer size is not the same as int or long\n"); exit(-1);} system("uname -m"); system("uname -s"); printf(" (\"%s\"\n", argv[1]); printf(" \"%s\"\t\t\t\t;*char*\n", CHARNAME); printf(" \"%s\"\t\t\t\t\t;*fixnum*\n", FIXNUMNAME); printf(" \"%s\"\t\t\t\t;*flonum* when float\n", FLOATNAME); printf(" \"%s\"\t\t\t\t;*flonum* when double\n", DOUBLENAME); printf(" \"%s\"\t\t\t\t;*length*\n", LENGTHNAME); printf(" \"%s\"\t\t\t\t;*tag*\n", TAGNAME); printf(" \"%s\"\t\t\t\t;*squished*\n", sizeof(void *)==sizeof(SQUISHED)?SQUISHEDNAME:SQUISHED64NAME); printf(" \"%s\"\t\t\t\t\t;*signed-squished*\n", sizeof(void *)==sizeof(SIGNEDSQUISHED)? SIGNEDSQUISHEDNAME: SIGNEDSQUISHED64NAME); printf(" \"FILE\"\t\t\t\t;*file*\n"); printf(" \"jmp_buf\"\t\t\t\t;*jmpbuf*\n"); printf(" %d\t\t\t\t\t;*char-alignment*\n", lg(offsetof(struct{char dummy; CHAR probe;}, probe))); printf(" %d\t\t\t\t\t;*fixnum-alignment*\n", lg(offsetof(struct{char dummy; FIXNUM probe;}, probe))); printf(" %d\t\t\t\t\t;*flonum-alignment* when float\n", lg(offsetof(struct{char dummy; FLOAT probe;}, probe))); printf(" %d\t\t\t\t\t;*flonum-alignment* when double\n", lg(offsetof(struct{char dummy; DOUBLE probe;}, probe))); printf(" %d\t\t\t\t\t;*pointer-alignment*\n", lg(offsetof(struct{char dummy; void *probe;}, probe))); printf(" %d\t\t\t\t\t;*length-alignment*\n", lg(offsetof(struct{char dummy; LENGTH probe;}, probe))); printf(" %d\t\t\t\t\t;*tag-alignment*\n", lg(offsetof(struct{char dummy; TAG probe;}, probe))); printf(" %d\t\t\t\t\t;*squished-alignment*\n", sizeof(void *)==sizeof(SQUISHED)? lg(offsetof(struct{char dummy; SQUISHED probe;}, probe)): lg(offsetof(struct{char dummy; SQUISHED64 probe;}, probe))); printf(" %d\t\t\t\t\t;*file-alignment*\n", lg(offsetof(struct{char dummy; FILE probe;}, probe))); printf(" %d\t\t\t\t\t;*jmpbuf-alignment*\n", lg(offsetof(struct{char dummy; jmp_buf probe;}, probe))); printf(" %d\t\t\t\t\t;*char-size*\n", sizeof(CHAR)); printf(" %d\t\t\t\t\t;*fixnum-size*\n", sizeof(FIXNUM)); printf(" %d\t\t\t\t\t;*flonum-size* when float\n", sizeof(FLOAT)); printf(" %d\t\t\t\t\t;*flonum-size* when double\n", sizeof(DOUBLE)); printf(" %d\t\t\t\t\t;*pointer-size*\n", sizeof(void *)); printf(" %d\t\t\t\t\t;*length-size*\n", sizeof(LENGTH)); printf(" %d\t\t\t\t\t;*tag-size*\n", sizeof(TAG)); printf(" %d\t\t\t\t\t;*squished-size*\n", sizeof(void *)==sizeof(SQUISHED)?sizeof(SQUISHED):sizeof(SQUISHED64)); /* This must be set by hand. */ printf(" #f)\t\t\t\t\t;*include-malloc-for-alloca?*\n"); return 0;} stalin-0.11/gc-Makefile.sed0000600017435200151030000000063010465263142014174 0ustar qobiqobis/CC=cc $(ABI_FLAG)/CC=gcc $(ABI_FLAG)/g s/AS=as $(ABI_FLAG)/AS=gcc -c -x assembler-with-cpp $(ABI_FLAG)/g s|CFLAGS= -O -I$(srcdir)/include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS|CFLAGS= -O -I$(srcdir)/include -DATOMIC_UNCOLLECTABLE -DNO_SIGNALS -DNO_EXECUTE_PERMISSION -DSILENT -DALL_INTERIOR_POINTERS -DLARGE_CONFIG -DUSE_MMAP -DDONT_ADD_BYTE_AT_END|g stalin-0.11/gc6.8.tar.gz0000600017435200151030000270621710464134100013355 0ustar qobiqobi‹3ü®Dgc6.8.tarìÛðÙÛÝ…¿­½æî=7é?ßÀÏ7_5·›·w[»­oZ_m7[{¿ùJl–Ñ”>‹$ub!¾šB9›_WOÆÉŸ1 ?÷ó`]Ôĺ8£ËØ›ÎRÑüöÑ£þþV¼p‚dóß[â)b¦!:¾x<”s@E±Uݵ Í·ÍMøµ'F—â{‡¿A…8 c'õÂ`K_PõDÄÐy.Ç[•`öÌ·fàùžâyìD3ÏMÞ x!/|™¦›¯÷̉ÇPk9ÁåÖ*0iøâh ^u†ÝþQçXÀ÷×ýÞÿvEg ñæhøBtžzǧÃîñâ¤'ÞtúýÎÉðÑýþu¿;tR¯/Ž^½>>êâÀO~§ƒ.ì ŽӾè½9ý£ÁKÝókϽ$t /3K˜Â4v‚TŽE BÆÂ…©ŠtU¢8„â9¶@ÌLD Ày" Ͻ1¶œIáŒÂs)‚0õ\™'–0íÔñ(†ÞÀ@õd²Uô:ÇÞä’ ¸á@4˜±—¤±7Z¤’kxŠÊa\jÌ vËa4®£Ê ²“æ]^8DpY?Ð…¸þÁ^xéÌ€íftÀpBjµ{ª¾ø.IÇ^¸5{’¿ºÅÞ¹“ÊS×Ư[³»µZâMaTöETóüÀžË¹= 0Ä}±Ý®­­­ëœ,æ#‹p"°Z‚_ ^_ %QaxøáLÄXNpªõ×~çø¸{l¿êô_Zâ?²’á‹~·sh÷:Ç6ÔéX5!ô &¾=ZxþXƶ cIÕX #Ig±t`,î"Žeú—‚šxÁTLb)…Ë–ÒÂE*Ö`hØ~r•çÂÝ3 ×£± 8‰3‘¸ànèûÒ…×&>øÑ̓0x¿µÆx{O°VÊ “%TÀË7§ #|)ö C÷¥s†ô8úºILÐóÅ…ü¨d2_éçØ€q/]H=•”Tä‘Ä 9h03‰€Š ¥Ä”Fó ã†[Ó­ GD[> …ãGM’— „Å÷öq·óDÄîv-Jc;Ååâùü”—¾m×–ª/c ÞŒÂÐÇ’™s.mÇaœ@á³Îñ  ÎCÚ9ã±jYç?–ê“ŸÚµßkHu€þºÙËwÆ8-ÁuÄroÃþ)t–ªI€66ÞB5ÝW¾‚g‘,`±¼ôk¦œœ ˆ`hµ„ÈÀ'2µçN|f¼Tφ^Õ®€ S@º+4jô’.áé ËH’éõFñ5cŠÎ$5© %e2w’Ó(E0†XŒB 4⃤5ú ˆ éQÔ-…ñlq=X-|üû²®æƒËQ?®ÂÚ鉮µ²pzúø{yÂùòä ÕËÑb:ÅhØ€ ¶ŠCV“Ö­Oê ð€BŒen‹ FÈÄA­œ< å5ìóÅa¿Ybó‰˜l@¥}æ¡Ü¯‡ýgýn— ¨Å†IðP&Ûõ»ÇL•NÎa…yÍàIÜEL\ 郲»¾© ʈ 7ìˆZ0œ$¨9Òˆð¶ä¼P[#w äZ9F Šß@i ‘ÍÇ¡Ôìÿë‹Y03d½# æ2ñ\Ç'­N*“õ´0¥ µ±©ÿúl6Ž­Z,§À”0Tx‚–øRK;V*)(¿)Gü€uÇÎe®¥Ñ®.d/ÕŠLAqÜtœrYh9ºL%Np@šæ(.€îL¤‡Pû5p¢±4AÅhëT…N°È•f²Jª¨ŠÙ¤Hͯ#ŸÕù«U¿OWÜEsúiû­¥˜·ÔPD>,ó>³ÌuPÛO†{ðcìbæp®G ±-ò÷z´±a –Lu¢kËdU€RÉ"‚‡ig¨€Ac^Õ±\Tœ‰H¹LA$ªÜaïdh¿<é½玿 3´j^&Zd?Á{1xÆ„}Ð;yvôxKU͈%éí_Ú“…ï7iâ 9iÓÊ]ßhÇhD¿[·nÊ$jÖ&ˆ-¿;ÚÀ3Ço‰û÷3Ë\›9Úª½ÏäVçýg{ ¬*î\®u#:S!·áTŤh…MgÀ¨gyIðu üà&^ 2,YÌÅ""õâFµ×ná“Â÷Úˆ' (Jœaù.:VD"#V ȈSÏñ.kF«7$Ñê’DÊì@wŒ(´7[•éœ€që+ÑÇ2‚ïà5i):qLÿÆFdŠ6\ß ¨a´z"¶5 „`”ÜÛ¿M&íBOß–'AP¥µúfýÅÓã—ƒ£»YL„$ï,’³Ê¿BR(JŽÌÙ\-r9F38ÛÕLŒ¸&J•%h]«’Ä™K69"`nd+)°Þ+w-ØŸÂxÐÓ¼èŠe>hîYµkÅLAôÕHÈ°Œ!‚À·í s¼ðŒÁ ™ä‹ ÝtƒnX/Œ„+˜²Û+¬e³rn.#ï-Ó0Ø’ˆÿ°¼¾³/z'€pmßb‹ 5ª'%ühå«Êµ«e*b§àªrõ«²#4®pqD躋˜$£AhAJ‹ ¾™Hü0åè–`‹ÍwÛ`Q-b ÏWò0–:8}}ØvÅ:c æPhThðªûÊæ\Bçð°c¾o&¨¡&æNV£kb*Rˆs^5©ÕcDZ±ßÚ¿5$k—“ žLÉrK⽓hÑ-L–2ÓàÒïó2ò‚_ÓFÌð%y:{QcÛ&=®=„‡,‘«ØÓv±i}6ó•…Hò®ÁéEF” XA9›uhFæ"@¥l:ççæ§Ø;!ƨŒžf/UšŒ—ƒÖX ß‹ñ64UŽ¨2ZÿþctŒ+˜ËŠÏ¥8 ™Òû”„ec–m,ãwm‰Ü9­ š¶'q8·aÒJ{d™;re×"ŠÂPÃbæV«´MF=´Ì‡]óaH=Âoù(T†HK‚«Ìmº û#Õ€íršûÉs $b‰»wWp÷­yy÷¿ž—ÿF|[Ô–häuá©eUqøî—Ïá&÷Ï»¥çG¥çf«üb¯ô¢UÙ*Ãl!Ð{:²WSü¯*ïdæ¯ö–^ín/¿Ú]~õhéÕÃeð—Áïmg#6ÌfJ2~ ¹µ* ²:ž2Ô)ÎtæSÎQŒCŒÈ»†5œ<¾Y°-/ðÒ/ÜÅËÍèkE[¥‹÷þ üWºgwnéŸý¹n˜ÒàodŽá‡Zö0ØC"çXRÞQoéTtÝ¿,`ùnÄ<¶È ª×™3mŽ ‹4ÿ9)<#æ¢`NG ä0‡™GVº"ü–ohúS~aÏq”¿™~¸wyƒª\ÌÂ&ð[Y ,¨ÿq'¿|wòñ ó?”Yÿñ¿XÆüÇÑûÇÑûôŽ¬ú3/ ‹VíxS!)ÎSÓ±@ž3© b m«"Ÿü¼›Ý¹æ½Äù[™Í/_ ]kì®6š+m…Ü<Ø]6v?¥yðÞ´&žË@Æ`.P¦qŒÇƒñ¶¤CéÂÉSö”ÝE”¢ïø 0îe‹1ð½‹ÇØÑÏ)m2áœý’¹1å.ËQ´AªÄÀGr¿Þ’ŠàÛ5S¬ŽÚp->”J)öÕ©uÔ´×5;½Ëyx.mÀq*é°ϽÙ¼)–øb,—’öÛt,?‘ ãM\€cÄ8“|_agß=~÷a¾ ¦?c[ >P„|4’4Á ¥•> ‰Gnóí[ŠL嘮P²Zù!(a|2<߬@™XÅó(–ÎY»8öÖã›à_Ÿí¼]/»·ìe•]½²µˆïÅÍD¶?îVC»&zÔ^½“‚_çtnCÖ™ÔÎ:ú|´üWÓÛõñOFp×{r-ÅÝ»¿%Éerðh`ŸžôŽ»ÃæÅŒú¦ËÒ·X@ÛmuC6«-¤<\ã„ÖÍ;ÝòCó‘4Ÿ ¹DIg¨xï›ÌbÏÉ/AÈ7Áa½£‰À£qv’ŸòÝ;|&Å8ë?–j(Þǃ‡\)b0’阞#fÎÛF)rÌZ¸T¦ ÙõØ+ïÃ嵉e‚çMT@ö“Ùä¨5JÀÛéïŒà.©£CçìÏ<±¤©³Ó$@kxÕê_óüiŹ" _„!*ˆ†ë¨fwf¬‹ð Ý@¢~—ü„¿ß¶ £a]Lüy PÀ†gtu.øOÉ;í1ðØóžñ¸ï2“8?%;äO]Ú˜Ñ —dÞ6hW‰m!ÖyÌ7Úh5Þ.žO 9·WÞlÕÕ'ðÅ¥Ù%K,ç9×ùN<Íè€.ÐZÁ-¸ëÔäPƒs",±^£h B¿.ä¼ýßá+ihÌ ÛƒßÀCš«Ë\TŒ‡á˜m³}}è/«£osXx”þ%9«Ñ†<àüKŠG¯æ×ãîðÈnÃÐ9'?WÇyÍ=ܶ=Øva·m»‘¿Hð?k̲`©°’ç9]Qžª¥w8¯†X%g¬¢Cüò%ãú%!ó^2Fïy.…LŸ¢P Ýe´÷¨ÑÐz´<Ðò¥"UR¦ ë"ögŠ÷+ÅÝ*IW!³*$ÞÛL¬ÔÒ¼Š ¼ÊÁ˜¦"¾)F^vxÐPÿ×&»¶Ušë:‰Å`Êy°,~V¼iH-°âú}c´?R/[Òéc=4QW5ŸàIñ _œ…²Å&}:¶ùŽˆÍ} y= >dЮTÀ­*­iÂÍo¢Sù9Ý̈ÔQEäg\\µˆY ZDk7–ÅÞ~åý;mcU*‘Ekâvf¸™©U‚¡Ï UÊrcØØ=$;~íºLpÖJ·-q „•ç…W¡²b4({ñ¨èꃩÖïL 5Å!žöUŠ%;{‹·žê3þH“gÅýÆqÙÐø.Ùü1’ö€ï‹uâö¼Æ:D9hÌFIDEcHg"qüs•0ÝÔ³ÆÎ;yÅ!CuÚ"÷ÖyOi:Þ–s!³Ko*¼äóË4Wº¶Ñu\:46ïo)]ÖD·~&¡n7éB.j¾[„#j*RwÔ> ³L^ [–¢Gf¬`9Ç}Ò;ðééóçG'Ï1-ú|· Ý 8uøTÐÝþeZ^0 õAo´Üƒ1Ÿô™ÊeW£!N/}º Ogë»yœ:RE7Ý¡v^@*ÁÖ®íp˜´³’4LŸE¸ íì.¥Ò–~š#û+´ŒÙ•’àÝä§áµo‚ÇÕÁÁ)m|ÓíhúF¿Ä<]¸¨”Î<¹ò†#bM¿®¿|ÃÃ[ªrSP7 *K߬Pq×Wûèɸ¨nÕDèÙó=B°†'aªÝ!:dáÆ^Š—šÑ‰8us!>Œ`ãz`qL0XÂÇîarAÊ(bC„OÌõ=4$zQÍùÚn„g*™S8¸yÃÔÿ–¡¿‚¬i! Y”"*ÄmdŸ>Âæ« YqP<«^4O•!<^Ìç—•æï2h£ªc½"8Ã¥:í›mRm–3RJÄ°}³_ÞôT¼¸¨`vBL¬G‰±Ìz:“úÝúÿø‹Çð¿ÿ­» ÃmõÃ`jUFdLñù¹ãR#ëM•êU”¬µñl´´å°Ù4 îï‹ÿÔó"^ŠAõªé[j¸ÖæC`c/JrëÒ² G¿ªÕªH­ìvÒŠž#ú“§ïMÀ;b²¾½Ú>æ~€RÎo´ö»…˱Ÿ¤‹8=õ˜ˆÀ xÄ qq†Ø³~`ÕÃÓ§O{ý•£^·Êó0Îr æ]MN^«†t¡)·­Wñ@Ceï3¼<]ÂÓláõŸY×HdÃ\Û³U²b·icÌ«,eL£ÃH¢ñ¡> ¨**˜_°â«{¸L/#Q~è5¤[aæ¸it¤îVÉ GÆqEtNàÔýe3I/3‡öÿØ{÷ÿ¶dOt~¥ÿ ØÙqH›¢%Ùq2Qì¹´DËšèµ¢''Éâ‘„1I0iY“ñþí·ëÕ]Ý(ÊñÌž{wtÎÄÐÝèGuuu=¾U´IÇÞ û”®c(6(¾ “ÉåZ{€ë‘Mçùìí9i2æXÿ*M‘¿“ëYS}^˜®Ð:¦¤hšá 2 u˳¶‰ä‹/ôºr;¼UÇ”ò¢éo#p‹'0VpR¶×:)VótÌ*ÓPM!P?¤rB²Í@Åj(ž8×ÍH!y7Tˆéè , F¨eJ“wEËŸ62´s_J÷¸•ô¨n,uj¾ãTž"ò©@è¼Ù´.È,z+ôïµa±Üå5Üa×híÝ E VÜ)cTdÔmÐ#_Ò‚ËÕ݉ŸY'Ò ú–é’wK+’ãDYOÜ .‚[¨¯Åk=Ý2̆ÉÏA¦{`ÑÕÝF…]±®®‘þÝŸú%ðª•M)ªÁ³à´5ÂÍ°Óð´9Qó~â@~ÈgãaM­²[4H7~m9ùÏ´vr¤ò–ú>…¿>~)õ ÂÞBœôÉ€GþÒó¨Š åmj–ˆ¯äS þè4?V7¤êx©sŽ†Ûœt×íˆ-àp“ý¯y+Hý¦?t¥Óű1£9¥U{¹©3ýÀI›!{›ÑÜÀß ÂïzrÍ„/²Idgå|²wxJê2­]²˜ÛŽu|ëë.Q˜,¾%Lî°¦'Ñè ~§`×wÜq×qàÜ;èÙ‚s%ºì‚ø¡ª­¦³ï0¾ “x½pâ1~L€˜d4‰½înï$î¿íõŽ…… îb½Og€.¶˜fC y"í áᎇàÜrÓCàÍ„¼ÒÖà±9™ïnòbÈšüró`V¤£ zÙ€óUõM»£Õ¸L±f–|äsk½ \ôBêñþ9¿Šë°Gpÿðvœ1VÕ0… Mrz¡nèù¥Ÿ`øóDÅTæVå¹pçÆIÏg.àßc«øÃóOrèK Ç0 µg2X®ñ2cˆŒÀ‡DêNÕUÞâô|KÍ5\Ø¿Ç)ó)_©ôÌ—+[/阹âC†S#`®“Ü[H>o,QB֌ß,äæ–õž-Ë×…ÇT<˜Ý]ùfó<æt»¢wA½J›Nóê•rIðŒ—ı€·‘$ÈSpdsfç©Ã‘"7:׈á9 M@Èœ<Á¯ºÍÚ”&+¢qvõ 6/b†9mf)Ê“=BÓ"Êÿ†§ä3vßÃC2*XMþáÂÆù(´aÚ(7Àå”| Æç©)Âù (Ï éêDO)×–š 2(%k°ï?Z¾Ó¨åzÛØ9…«kï%Î&/¬s ¢þ(Æ+œ{ÀOáö:ýÒ°7ÄÌÍæÄ€d SÈs}•ðê"7˜ç‹$ôŽÐ&A'+ªªµu>Ë./Aª#ÃV£Túspù†›xÔ¸z³Ù½c·TkË%·MÝNV~eЖI·Z3aï@•‹tP BKÓÉA›Žwö^¿ví·Õ.-mÓ0ÛÇÿéô…ÿùùƒ?—˜ÿÓÐô8ÿ¿&èòüŸÏ׿z¾ñ§õ§ÏŸ>úõÓçZßxº¾ùŸüŸÿ–Ÿ'Ÿ?ÿç³?œÿó›ÿäÿüOþÏÏœÿÓºÍ+tÄ»kNPuK0K“Þ3ÌqÚº¬½Í€Ö@Á8ߥSÁœ`QŸÎ’‘ÒäãdQ <ÍÉ6 þ~V e(©— ®|õÃ0_œƒçK6y'w¿áß‚"AýäÉ(-Tì ät²)¢ =ä«ý®‘â÷÷ú§¤y‰š›4´à÷ƒc[!:»kÈËiÈGÇéRÀ#€Œrq” T† ÊÐå€mP/-•skªXg‡{ÿó¬§2Æ<ÝDwž>¨ ÁØ4'1/Bàah§ˆR˜#ñ,ÊfQ~=QSF²xs¶«›Ç¼H¶}3ù ¦Ö,æê+áòŽ“é”6i"ÞF ””žHgh’L8q€cïè0úëíM̯̌A¢E…(´­¾ ûÎPéœ_ÂùSòáól"I p&íçc˜œøõ~?jc^+ÍrëIл_È;ûq©ä=?„SŠšß¬bÇ}–PÇ~Ö#vCšX?¤³Ãƒî1(sñ†Ì>wd$­kÀO|K„Ž\Cy¸þ4ëHåxS(Är¸·øUIxžDŽž°†è†_’Ù‡ Ï¿º&Q>Žw϶ãØÔŒãlbögjþp*Ê ½©ù7€›ÛÆFãQz1o’i}b³[Ÿ¸_œ½}f¬»Œøͼ'£hm’Y'ÆmzOz¿dÌ6K‹KLêeháä-˜ò œqÙOdÒŽÎ[A&¿"’÷9iÅeÃ@V§-¥N[ì¸e3b!AEýW~¶®qm–|Ùn§pXY²ÞRXŘñíCGt¹¼c@ŸÎl7 b¸ §¢ öžéT¿Þ PU”6´,IÐDuÀ‘=a«+rÒ Ô¿¡³o™lYݽ]™cTR€ N$¿±®a:Kß«%<¬-ˆözg_Q{áh¤`àï,ÆBÑ€¥u½Ð"úd\¹ÜÅ éxm7ÏŸGÃoIáé½¢’ÃMÖ’¯yÏ•_Ø ¾5OaªH3·Vü$1U¿ y¬ër9gmáÕR+…Ò,Õf4ôÈ~™¯øóèƒ f•}é®JO¬Ë^C2­ÈTšeEŒ’^LòxZ©±4üÑa²¨H ø6`åg_ý-ßÏðör>M´+ÜòÑ%­€‡Ã’únáêu©¾ö/”†Ü«  :ˆ5IpžÝ-eȱ-jšcðè°oDüÞáéýû-GÖÁúW~ÇõÜW êoÓÆ1§"|ÎÊUöðCŸÀà[n€UžÈÁ¹ ­<Œ³Î“ãÊ9Ü-n$.ohÎfò¦é<™hž]Ûà¼ÏüÀ0ÌÅ[>‘qÄðÅ¿n=ÞiÅ™þÚZÆoC¶úù9éÝ8 t’¹G#§w¶ur…ÿrEp}UÞ§ÃÅxƒ*Ÿö4 s.’)w=D» õS±G)¿b5›n2+3×c²÷‚%'1š?ûÚÌ^çª G¸-‘‚«Ëp)Ú¥¨µÇÒ1¸‚¤ àe²].òEÃQtØI‡—({¼Qî*Xu‚›kŽí,VªbÙ̸Ø݉zT;.ÓËeãA‡#}FÜÛg¯lôÄÒídèœÃ,àþý&ß8ccÀƒ×p¦? Œ ŸÇ= }ÀàAùbüÀæfk7± ·eC±žßaö¿ÿ_åô¾ Ý(EàR›ÐÑ`¬¿ÌÔ…$Ç¡iÅ•~ òÈ×yùjƒg[K©âçæ}tÔi·R‘&xWR¤e ›ÿéјª`³v‰ 3†Wòו*úƒ³ðËüNÊú°Ñíþ}>ã`™Õé!À×üõ»ë‡7õ‡4Ø|¯­‚ºÌc¯¼²ºåvTÑ+¡Ñ@² bVRÀH<Ø–*l= Õ€"–Æn”7 è·ÃèØ0Þ#ˆ9¥;Ý2g÷ho’d†¶P«ÍÄ­œÁ}÷-ë·Å¡sè8àb¤ý„¨'Ú%ÉF >ü*pË:ΚòSar°"ðv„š”÷ÚqK;˜™ƒ¢ÂË.Åà*™Q»Õ¾#(ç(!ܲ‡ü8›"÷6Co¦ÐúµÙPkØFû=8+‡±Ù¤ ÉžÝ Dq•ó@äÑ)÷ZóÇÏ^8÷_£õè[3j+›Hû) ŸfW =À•’ê¨îydé GE¼yï\g¼t]!³Iï.¨ÆAع?o©©ªó´&7UjqËKAPöåuNú¡ÖÓÍy«»ˆ;;3ÖÛ¸mæp?ì‘šoßw)Û÷ã³C@Ø:4ŸõIÐ1ú ¡æˇÃx+yAôÎ 1pLæÊ–ò¹²|,ñ¹¼ˆÐHæ:ÂÐ "»#Þ¸?‘U§JqJg¬Ügk*`k¨¢»l†øew8 ”NF×ÉMÁ¾-xÆ€yÍð4HËNƒC7ÖBùÌý©Ù7ßšøâÇ-ÂÆ1ƒêk7uikRw˳7§}c×)ˆÃ/©t+ôÿŒ â7¨4RQÜr‚4ZºKAµ_5°^£ºHÝÕÈõ lŠô…Þ;úÊv4åLKùÕ­ãµz:Ð$Qß^Ò/q¨õf™c-jª•ò ¬7iÊMªj4ᱺDpõòºSÏâêUÌ4ÞÆ6¡À$$µ(˜Ê GY<Þ9ôD#¯„d6°þLövÕƨ&A”,™³h® kÇÉÜ\©ï…aµUÊ8.¯ÀñM+ˆ@ˆÑð$L-YÀS›†Tb.‰õó:µ’:| õÈ Í4ì‘›»9Ҳˌ%ÕöÌ.üëû;.àÊ»ð &BÿeÉN\çÐ#0 µ©ëAE+.eÔkpŽä,æê;½òd‹3{…½w=>çþë:ï Ñ„…”Waß)rÀÐAPE õ}6\xfþ¨ÈgsÒR2lZ! ’Ís<³øºZ¢²r<½=¼>ùð¾Q¤FÖVéœÑhB¦¢1öE¥äf°wt(A@Þ˜Ûùaî-ç5ËWÅÈä›PÙѲ£­ª0˨߿~³P\‘–¤€cnöÛ€7ùÏF÷=Bä·Írß]¤åqE{ö-7Æý “Ç%çÌ»K,\«æœ[zzT­Ï­ÔwÕªëPheâ ÒÚ ßòª®LƒJ;Î!l•ž·¡:b±‚3F³F08Lð:¢¾¹ðˆÀýÑÇQaÿ°äÞ£°žÆè¥lãØ]¹ÙÈ.BAèä†×ð›r3A4tQ¬t-Iq|.ÙMx²Ô¸Ôèçß"¹F@d†aYWÙ`—œçA9–<ÿ}7–¬QzG$lUé©oS~ß/)·”ÚÏ­âšÔTìÁ¡m™¿Gþ勻дe_:·x³ÃíãïÜ·è45›ëÛw®–!ÐvY‚ºž‘Ò£'¾„]e!¤ÈU$ -ÍŽŠKô?_xFo6 ú! %àŽ5âàT(¤êm äDüÓ̉J1ÿ°Æ¢¤¡Ò²3 TÇìÁ|ôÜ¡AÌòFè* 7Æëq3Au#®Y†¤èoû¨Í3†nÇòzÙjÓ n$~l)ÔzÀsøíßl r"¶Ó}£Š”‘n=¡––ÙYPç“,!Ûì[H>™ÅbQ²ù …kŽJË·å@5D^y”ZaSf0ruµhö:®ØjQØ*«ÆY ——åkŒÔe0š'seŠ.³É„#˜lÞÅeÌΩ}ø„yBŸñ˜†¬)²J·Òp^ˆ¼°ÏN§#šW| \šŸ}\êX§ˆK†u‘ÙGN.MÇQÆkä™ÛÙ ~ѹ8àQˆ«¯Ô¯ Ÿt° -VêTüKq°p9·ˆ&é;Z d Õê/µæ; \Z©5èü:C YW é­¤hà~ ΀È-¦âžA¨â.ÐXªéb‘RLýâù²ùB¦è£ßaePR“²¦}L‚²b@Z¿M·Á³wf3Ñ"bîw”,“¢Hg8€ä<7œ<©Íè8O…µ­”°Ôc°Ð鶛fÏ)÷J)±Þxˆû*@X{*€¡†5R†ˆŠ "yhûwayô¶3í&…ÅoÅ[-mnÓâëììò«/ ®Áf–^ŒÀ‰ÊØ!ˆ‘ ¢wa5‹éô WËæ¬j«µaϧj”@,Ñ•œÔù,»„¬b~Q,ÍLÖH%=¸È0ÑP6‘+uŠ VQR"hÀ2°×À(îŒmV׳`·¬•ŠxT¢Ön¾IñÒ22†-ž ^,‚Øš‰|µàx“iP f„ù4Å ¢àeƒìLó´5Ã8™›oO© ɳá‘L2@¸é´|H0˜|QÊ ·œ&~%~é«÷äÝÄÚˆR| ºð]¨a[¸°•+º’Ħ&`Ï †UÁ}—ªô’%IA ³'Dn†ÚPÒ€p.{äÊHh—Mî“Þ[þ¤v³›,cW4ðŠ¢Š[9ê Ëök›Á·K¶@aEµÚAe! >fÍCV9ëOC©f}Ê3OѨ­êîv[˜5ÉVómmZ& ÄIy¶QØ™§¼ƒá˜óì=…X50’MÖn Yr‡ƒ€"Ë´ÝñQ2 šµÞ?B‡ M#ÕÂxns"ºÍFY¦B>ˆ¦…Éü 0¸Ä8"‘M%m:©·eœ‹–ƒ ¤ïÌ-ñQ2G¿PÕ&³Á•øùx–•ö¾c œ;ì‰Bn$˜GŽŽ* >Ó¡¯ÂÏ6a­#¬M1…ë=\Ðe €¤P(Ÿh˜EÉMg“o@[g«ˆr@ž!Be-®Ô ÁI—ƒ»1þ=Êà´÷?)!»ñèäxÔ–LR¸Á$³*ƒä=½Í’3’ÕãV8‘' ]UÆ¿Q‡€r$H¥’O…°ß–;Aâæiƒý³K‘Ù$U€/5"("j4³2ûRÊñ oã7m9Otä„ý**¶´Ÿ.éäå{®æwŠYjä,Ãj\¡—ÓóŠÝ¯W´½¦ëªæ¯^ ©(䶊4f°ô}Dü|•ˆ jú¡%|=3—ǧ'p‰Ó³>Ú^V¢€èžùB\Yx á°ç2à…g_LaJ.1ùÐXóNö*…Ž=±ÔÙ]U6½¸ˆý“ºÙ”¨í@>jýU@–Ý{ø­wü•Øæ c€?¢LÉw/Ô xÈkHMGþT´ƒz ABÔŒ·ÕRñÉvÃÈ·VV8ó©É“ÖìšI½5µˆ[åMÌÅJöBnÏß(^Ç‚mÿÑâ{x즭R:sÍ–=ZPk®gdG¨RqB oO0¬%Èçà˜…›ºðúJ)»Ú¸(ø)Ù3EìòØŒ-¾’‰S–†{ç¥wƒ0¤¤ L@ÉÜ®‡=Á¢’z촆 9(Ð[2‡Ýá{LkÄè:A£!!5ÔÈ^X ß>'x4A®o+eØXÕë8Q”ˆ5ÕúÕŽœÔŽ-:{·ÏÕ¼3àÕ¾ám{§Áæâ©øÍZ ÐbùšÆ<Š6½>^ ×9©Ln§{7Ë #B.&³4)ò Þ9ð<¿œå×ó+²àmõñc_ŒŠ¯“Ù$.Ó)hé±GØ!åV§Ê¡æ}2 N²®œ¤Óƒ§”}â†À £OÿŽj4AßñÔë_æ`'™M‰a $ Aú J“–XeËêøh Ÿm„)á—@ôƒ›[ÄÐý `Kè{iVÝ;5Ü|¯Ë»_„`#c©šê†E÷qvˆíàŽÛBê×'¤]°b²QàÙ@G¡¼c ‰¼¤:À²Íò)gÃ[ ®ì}ƒèÐ¥0<°¨±(låýÅ 1W£ù,Aíé§Æäǃt…ÞZa]凵˜LóéÂ,`G ˆvst)ÓŒµ#„Xçh{¨è„“¶ìnw‚БîñcšÐ‡ÑÓ– Bñvô¥œDHh˜eOŸðýfpµ˜À$Íóà;ìô!Í£2ïŠx"_«°ßÐi¸¬W5 îš³Ýjë¸S x™>ÍIì2•óîv ¶niáÊqç b¡ÆZ´¦ÏÔÜš=Šª—r†M¿S®Z ¡bM;¼¢5]¥^Y×QR’P’ln~%¸æËÇ&Œü13i¤a8®ê¤«V(¦Ë9 ú£år :#CÁ.‚¡Öå%­,Ì<š¾1f0™°á"$Aü(Ç1–³h—ƒ¾ú¯ÞÉ‘‡ãRšê†ÝOéÑÇÒ†TÜ0ã†e!KÝ®‚tJ’“ ’ÈÖyшKHÇ*jU-]5"‹Ž]ÄVýþX°…úÒŒjåÜh™j¹\y™rEyÒ¥¶â$(@a‚Ù!£$g‘FžM“Y2NA‰KùT¡&¸­!‡‰¡=¥8±·šÐ G%{wS$+™dj?ºDôn¥U`‘hX!6‡ é`²±Ï’h™Ô¿ö¨–ÝLq–ÍÚ‹xàJbW0–7‹ ÛnÈáá~ØÛ~öÉýÉÁÒÈJ`×V3Ã&S\>˜-¯–tÊt×LœêÌG«¹>Ìçûú>›R)9›ß@42¬ø(§“9Ir¢W·øL\ϲ9è!]ΙÞ¯cXZÉ^f#p̘ÎòyŠFéù² /’ݤº¡sqÓ¾;õ8äÃ!Ø(9€Ö–“Îa·=Qó&c0rF ²ƒ!¹“[÷qï3Ã>á”$ ä*÷Ž2& ö@ád(dö¿‘zRCæVrÓ”¥…Þ¤ ú‰3ú´ÞdUG«§i±s®ge×_E1È&Ð6UH"Ç5¬ŠÜ؉äÑøøôH*Wˆ¬dhUC¹L"üš6‹¹Õú•;Ùò‹Ngš]^çÑ9™KE@yÆ(zB\@Åô!'Lá¬$.ïÞníû^ÙPöû½’ÏH›|LØí…c8RKG„f¨­{~¨6×Àó*_}õ|©ÊùKÜÆ)Z.ÈŠ¿Âš¶­µã‚ìŠmÌŽI²Óâz(½?&ñ¦T‰Iq ’"õ±,–CôhŒ”Û¼¾åzŸ2GˆE<²m÷áÑXHè¾:2{g…–:ÜÇÐé³zçÕÆžÁËåVÍ*MÕ„mÀ»Ûâ$mr;„xÈÚ¬äáß°½ø„•Ý×Wr]¯s[—e©¥™ŸaZ1ÎŽO„¾«Ue4i°dC9I/ÕrÐS_Z×ã n_4ª4š²ÞŸ¶wJ YšJ+3{»«ù«[aæ@3ݯ÷~<è} FKñÎDü“ëTòÏ1p`ÖQª;`ÇGêtÅõZÛq#VŠÅŶ‘9.á?“¡9hàØÄT+eÉ`"£]w°>^É”·•ãæÈì̶ÿ?ð!ø¡üã¬ükrÀÏÒü˜ò|ýtãùW_¯CþͯŸþ'ÿÇ¿ãçÉÇüYÛ4„ñŸôÿIß!é; ™2þmaŽƒ§@¢ù*úêÛõÍh:ŽŽwN#ʱ$¥Çw¨,èá4Åo÷ŸnÆo·{º¦9ü’ã ³‚‚µ¿1„íòê£R §pQæ½ ‡-(ÿ½Ï¬HT[®'˜\ä ë¦l(³kè*¦<¨}À·}»)ž˜ÿÁ§T¿PiUú8&/¡*>Ûî)œt÷~¯{wwâó‹Q?22é{0)îË×Ùd˜_Ó칧spBô¦ŠFqxtØ?=:ÖE/FFlòŠ²xâ†i3 mŸˆë¶LY6zbžÆ{û0W$>ÀߧWñÁ¾Õù¡”<â;¸siÿïþÉv|ð”â”gæ>:loÆ;Åk¹óœÉ…ãài4ƒL°ã4’ô§†¶A-a6‘P̦։="ûéFíz™hlö݇xöÃ#ÆpÈ  ?³`ˆ”Þô‹†•È²È¦)ZUþL+ÒKe¥j§0 ãê~Eà.BIy Ïü1Þ;Ü;5ÜÕÜSWR}R¦ªÖíÈÿj‹šñIk¶˜(G¨dV‰0Oë›-¹þxk"Dª˜áàB†îÉnB a²o³ÞÄŽ.’Åhç n›¨}§Ó¸ „VËFÑXëàÇ{Òntj©µBS¤qõ{`v›~´¡`w›ÜÌ:®òˆvQƳͦ™,s%2ÿÝäì@àÉ–û}“âØ|J>:ü w²Ûø‹¾6W¢ÏfØð`?0~Îq-+ͬÕn(„Fož›ëº!aŠeÏÌ%Áܲ4+0ßp±%`&Á$½vyï@à0WÝH5$jÅ<¥œ¾àdQQwþÎ4eŽ"ÚN‡†+ü¶0WÛ쨓ðº22WqswGMŒëB½ 8`Á9›·Ä‰Ô€5 ºfKÌw6ÜI'¾ \f€„ÈL†È/æGüeDhùD5¹BŽ1H”_›vGF I<†)}dNqò•fkªjž§Ñ&½7— èO[*.&#ˆ÷¿N¿Ÿ-tô"ÔiD"Aßöh ómÀ( ) XÌϹ& ’Ñ*ЧeëžuC0²˜}½Œ6,tŒ­ª?´‚šh+=.«tÙ¸{;ñÙ1{Õè-O§í‚U‘è1$ÇÄoï²vØ¥A±|÷Ð|™>‹!ˆÕG¾yTó™çK¿Sñ¥fi6ˆÀÿ{ƒ¾¬.¤»Û‹ûgÇÇG'ä+Ó Ë*©æÓM6œ‚$ÌÁëˆfíñ4ƒÈZ4"i5÷ìñI—ƒdœF´§pÿµUý|æ²l&º}‹‚31įÈÆœïÐQÝÜ\4Ø?¼°³½ñ¼nºÍ ?Ït?¥é~ÊŽC |š\Á‰nŠ¹D £ÐÌ›Ô"Q€Ro˜Ž tDž½ô5øfئus¸ [¤Xtéq›U(6kÂü SÐ:ÎçpÙå=ßèŠÈ\òf-¸Þñ9÷a>O… \¯Eâ á–Á™Sì8‘v (Æ?²0yòÌ÷‰† §£‘€,ËÍZ.\™CŠÝ×EÀodÕ®Xº-¿‚+««²Ÿ‹¸$ Bĸ’8‘Tx*é|¯Á±ö†oÖ¨¼îØrÙíQ^ç}emaÓ„Ý!aª¸‘¹fùpÎúyUšX (ß ×ƒ1†ÁÇöÃö‘¬QÆOøõåËè© +ÁA¯Xs³U9aæôŠÉS&Î3IëeˆˆHï:ôi„¢ ë8ªZÿ;Óy|yƒ×ó_­Ç°ÕGØΙQUŒuË•äxݺ­ü+ÇÝØ Z¦×(}1˜ØÇ‚þ>($]Cù¶B«¢üãöW UæU^}çí‘Öò½ãŽ <㣳Wûo¥>»±å?WF¸¡3Õßw‰G,¿v]WtîÚR8 .8jO$FŽ—‡L‘MÄ¥ËÊKCÚÜÝkü®ÂªçÜVœ_@¸1½:Úù)îÿ×;A'å½_QTƒUÓÕ(M ”äÉ¡S¢±c’ýQyÕ³³IçÀ©aØï,Á-¿Å"æDš4ùë¿ZGdË#^D½OOºÔ™-ëãIBÑß!†Ì2ˆèïp8sMóÉú#‡“Xf•ÆNÕ§Ð.rs‹¼F¼%À¿ºœå†•^AÚF0ƒ¥æèDT"r6k@&ùÀœ€ÐŒ9ÓÆ @’¤ ¶åÓé û<¢ŠÅ\<€ ã¶á”@Vöþq÷d s¯òËEáÒñ°Ï-øJšSM°å©%¸YOJê„PXÑþÑá.g´MÝAÂ1ÝÖEâ"Áõs"Éu ÍpvÐ>œ‚J\ZL# „ Sr ßçï„Ú¿¾J'ˆN ‘íé¯q³|Dö;¹ÆbQò8‘‰~żäØ ´EÌ6¤$”7® v6A;&EF«&ú :Ñ|õ<ªh#E__˜}ø 37¤›ØxJŠ©Y2…T6¿ßGJáC“‘M&älÛØéížtwzñI÷´}µ~ÏÎÞ¹SBÍØÎay…îm‡°ñúKù1ÍÅî}êôöÙ&“o—ÏFÒ5ì×®²Ë«øBWÄPðà*Ÿ(҃ʯ \B‘¦ì Ζ” í¤—³d¹@LÜ$Ú/R $à”T¤ó-_mßíð:míô@úc…‰Õz–& Š(5xtO­©.]uh#ëAÿ]Ñ“tÈü¬´GK>dÊ·©3OJ’¸š†×.Æ㛟Åüª|r)úK´Q= .¯rÓ*ߊ¶Žö{'ñé›î!÷F Å¥r[ÿ5‚¢OK÷1ÿ ùƒ¶’hñð¨-;-:ÿG:˵û³ª –Ë X7Í 81y è«r…|ºÁ#¤znɦϨ…SfZaŒc•MtTDSüÁgï² ^€G1[iL»‹±?gtœ£¹wH‚¬õon³G™Åt’ä³A8OÆ©º VQŽGOÛCâûÔâÞÁ ðˆ gh¶Hþ¶éŒ0-(Ï Ô`Žç³QïæCòBÀž #I [ÁͬnDDÐÚì‡cóa…9ö‡°éjˆ€àƒ¤ÀÛìˆyæ€êP—Çx=›®×÷(.´ëp_i~¿t=[_G™®g…šåCü®âôŒBÏ ŒÌ¯'"šù_¸õ9Ï؆ó?ÒùŒ“pªßÉÜêì,•L„ ß?¥Ü…–8Û ²äù”±áÁ6j˺èÄÅ1pu‚])Úpþ•Er ëÇ=ƒ¿‰ÓâÛбeö,DŽ¦óA‡u`.XG Äíw¨È%ƒØ@Ÿ?é茣$$g‚ä‘\¸ŽÃ}–ÓH_؉·nÕfŽl\+.ÛUš¼ã¬ãSìiUHmò^6œ ài&iŒ!ÅBnʲ„e›Ïób®«Ãyq*ù¡zšx ÒOÁW‰¶@Ï}He¦„Á غ!9:€rçY;š)¦”Å&¬&µ,Åù†ôÁ9W e$SGËm1âÕ½RHJr‰(¸ Vž×gÏôºiÑ`>‚LšWm¿(isÝ|_уŠ)¢dkfFÁP¿PAð¤jÂÜe|&ðýáðå Á@Æ(ð wùâFKeà„ ŠË$–aó± ½þñ~Ó‚í9Bס­ z®£Õ€WV³©È¤5ûµúÇqïðôä§fÝ$¶ÚÜaé"L¸kÂpôããPîŽ^¿î÷Nû¡¿æCøü•–Œ]†rúùèý5Íw0ñö+A|¾œð3#~T%·#¢‚/™ôšWhðwÞ´iôP¡×ŠxÀŠÈ|h Ñ-MÁׇ¥]XÃ$7™›¶8=¢âý’Ð7óÄîã v1ÝÀu;’ ®ùÚÈ‚CŠv¼&##ù^‡ñÉßôRRà°5Ã*ÚÛ’Un1×Щ”‘ÜŒ &e157ÉVxòŽ¶ñ°¢úèʬzt Žö?j1˜#?.}©Â¼S••“×ÿ6‹â:àp7$ô!ç°x¹EâÂF·Æ6­jLÅD®ØZ)hE«ä8‡QœàŸºJËËe¿VÕWuhõÎ/ÿÄãPŒ"äAÓÿ–u‡VÿTvþÐ÷´“YS:²³½Ñè£ÝSä`Ø2`~š{èî¡iñù¿XÄ:¸€ÙùU2ƒðÊWæ2a„ì½Ãîñ^ôh .Íýã0F£íÀD¯ãáÙþ¾pº7G;gû½èêû§› X¦óƒ|¸¥o C¥Ýæƒwél’Žžnv†£‘‹šG¤&S¹œù$ðg¿K;Á(æSÇFFï² ‰Í!8HãÁž¦„õIqÓ ûÓl² 1B~g`ØŠy›?›w½€6jæl%qY«ýV6`ñ.ÝGxE“ äÐÔˆÙÜ>àáÙ¡.Ò;,ÓIäEÄwOºûû½}sHž|ï…Hpì‰iÎL/!ÃÞkx x¢Þ Mf-žþd€çÒ‘Œ¢’&-µµmä\™2dØ`ZlHMÌ!6$®/#˜"ótdÆúaY<îØZä9pÚ*hÙâàö°5ô¡‹XÕŒzš`–ʳƒkÌnÓûо래µ?R鸸ƒJ"56ı’«•›C— m}˜x†>Mª]@,š ¤š¦ªÞŒ†M%¨T=W³Ã¹‘W‹I„ºU±]!Š’—;·v¯®³×ÙÄìŽÝ †Â5Ô1"Ü ฆÍ~†‹+Ž=Éé±áNÅVE4W€ø¹ýºód3]Å`•RW‰Õ£‚Lpìuºé~¯{²ý.3¡'ÁÉé½ê¹e“Å û¡”%Ó"ɬ÷~Œ÷÷¾ïUMTœ€ó]èµ~… {´5ñ‹VÓ6-øÊ=6!áûQžº‚T!»…i*Ì/bñ‚)šÍpËv²€0 Îþ<üVZAm=5„™à 1›\¤¹µÅ§=}^V‘aÀŒdôE¿ºÇãäæ<µàaaÿåpÆX,b;'Íòþ#pµ BC`å5«qÕ}–^è²…Êg£]#ù¬®‘á/Mb.ó½Ãšv÷ÇG‡1B×<Ár꺴­£Kf"ÈÆ æÎää÷-¹1«äMtÛ|—¶“>õÌj0Ͻï\}Ùîê„Pîw¦Ð¬ˆ¼Lé|bÉùöî°wøòQ(‘Œ•rÕj ­t|²wx dwÃð© Ý—à@¹•».‘7PÜNÛ lQmé`_Qúìk©ê1.wÄÝ­ ëªûÆÎÙÁ1„$žíwOö*Ñg)lÃW8K•a^þñŠyt©x®ÌÞõúõOOºÛ½þMõÒûRm_­°Ä”%ó|Ô,×AÙÚ,½úy=V¿üeýËV©µ ס3Q7Í6ú,XÈ0GZºÑÌAÖô4›xÍ}þcm'*cÖ‚- \[ÞøΑ¡ÕÝí 9êxkDíH;oz{»oN+iÞc¼µÑÃ#J°€ùŽÛ솠ÝeQuàú+ý©Ê´ ~ äGYIËÇ]ˆ\?Ý;0ÿ鞘þµû[j³A”ž+!]®ãïUã»è+V@yU¯ ý¼ÏfùLIÑûd–!T:y›Ÿ;)…X-ÖÈâfnÅÍdž|ø6Ú»œäÐ › Ön•ôÛ|؈û£jSÕθ¬Oå|ïÃpèF€ëMÿCw¿bÞƒ†J³®ç<,ïϸ-ýÃǶ^ۭꉇ@ 5Ù0Ó¸«Oô2ª–_—Ïú-rU‘³Ix`ó’¿(B¼Ïl ˜˜‹~?ÊD$*˜8ô¹†ÔRd™]Ow·âƒò`¶)6ì¾…T„€ÙZü|xtrÐÝÿµ“¿‹Õw_X_½5ûspó'ö{‡»§o<ß»ò…Ÿ¦E"ûgy>/š¨ÿß•Hü60`û׊Uí¤¶}ÐÒ"K¿×ßÓ^¼»ôÊÌn nk]P…UûòÈRέã«h'ñªìͱáݛŭ$UyÛjݳ-„7¬ÊÆšu¢wúª¿ã‰jGǽCxæɦqÜÛÇê;“t~^ ãtt±´»Z‘§¿²[3‰~‘­æ—óÕ„Zðš_ÍXY=¿åˆ«FXatK7»€4þ nD#ðÒ"§ñ/ý°zí÷+d}XuÓhE¹×X>mŠaï` ÂcÃç¢d&ç´)[ɧý½Ã³½¾96<Ú˜‡–E`¬„xàïùoKvâ™âÔ¸W<1Õ=ÓYì9TY´°>¤`zD=Z%é;s|?ÒœùYà1åø÷™ûB>i¸Ì¨Ì.騃4ã~#QP•;G‚Dº¤[ð;¦LÏL¹Ÿ´J B*'a) v꬛zÉ9\5éö¡åïü p¥ÕýD— öX©˜¸ïPš¬óß)Îgïšë-¥Øã-‘# ”®wª,còÁHîH/}¡ˆpyõãó‘=?ù Øk¼g†9ó•¦øÜ)ü› ã¹<­$”Kß'K3ù²²ÌÜY2.ë´a±ïëÕi¦–•øÇ«Ä-º8S^ª"Z‹2¾@~7I3¥¿ù1ªîœK¼sžW˜$s7ß;8;Xu’ØõåCI¥ˆ÷»p®tÁïJcX:[˜Èh1þÄÙ’<H4 "Ü@+øÛt~S,h GvÝ…ë‹ê|8¥6¡ì‡)螯¦¬Í W"Ð:Á:ØÀDH†ŽÅô[<»9{/eìøe¢•w½÷NõŠ÷çñLÛSÏé œ0±î—…J£e6y>yŸN0û…†\d)§yèTìu1àE[o ¦°·Ñ8Õ½Ò1‘¬˜Ž’ºìò¬¯ï{·½Èñ~S}%(O7\‚ðŒ÷! !üþ*ÏGñE2‚ÈøÛÌ|?»,^ ì¿ðì:Éæ¯s€ œic;¤05o{'içï’_ßʘü4QhEä8ÌŸ¬'G9 sßÎ&˜$±u—,&Ë>Áÿí««ît0•Æò› ǾÞÛmTäÛ+l>l÷W9³X„}>)AÎ`FÎÛ#EBe5„»'Lj®~n²*/oQäß@ôé¼xkã½Ë5ü.–ŒKž…þ¾ž0±q›¿vÐÂ`•E»æ‚ ö({A‰z z’ƒg–ûØî¶uf(íâ&ïŸÿŒ‚ÙÔ]ßA£d$²ÃR —Ó³W†æI_g碘/ÎÏsT¥…÷bݶaP(‹ŒÀÂJþo9¢½` &ë+œ°D_37¾Ó’¡Äš˜ùì3Ÿ·pÍ?ÿºU.Çhràn ½J¦jˉ\^mCΨ ðëù4‘¡M݉¶µ^èÓVåU½é¢¸ŠÍ}‹W¡6·¥×5 àZÓAÕ¦ô¬Uö-›Å ìU\Î'x¯Ñ%“Ъ o0£Z_L"û¤êù°}QÏG¼ËŒo*ƒ-÷D§b—¦hÕ>Wáß¼nນŽ.PÍ’€™O:ìLÈ9FÂÒaÆÏý† Ç'ïà [3ØøQÃQ6ðÊ4œ0]wq–ƒÇÚMJŒ·z_椺˜Û][¡šåz;Ö5Õm¸Ì3…ÀoSsã̼âlÆew‚ûŽ=-Ñ›Io—¹ùÕx”}\qŠ$é Ü‚`6:;Ó¤€PÍa.ɘ¥„ïµÖ(»­ác1¦—zå/ÔéŠf©Ào@² =ˆ…5Œ ,Lžf¨–q¤‘  AzGßct8ja¾_ˆGENû¥kŽƒ'|G„èp( æ” ¢^&(Ò5l79äš©0y„{Æ¥ö®å“Ò,η÷Ê\5¿Oåã½;xtY/Žý£ÝøõÞ~/Š¨t9èŒòË-pZ|Ó=Ü1ñüB -¡¿:œ¯aÊ^¯îü©ñ¦€×òäÞâÛ ,”Ó/ñá„šç‹‹6 ÁÍÃm€¯·Ž‹ ¨Ìþ¦ЖêúŸÎÇ6b ]MUE÷—’ĘFDÞ˜ÉFºR÷­Ú™¦íE´wøCwo'¦)Ígr÷㯬9÷'ízmˆNV¯Ç6z¾ÎFiS–Ñ‹½ÃÞÉÞvüödï´§’cZ„qÿM÷¤+‹þ©ŸT”‡ p;2²(‘ºûo»?õÛTåõ~w—j[<:Û}S®iX 팕g„ö£iŠøt†»ˆrð¥Ã²¸nÖüëaþqì' ¸ˆ¥=ä…ns§´LhÀµÞâWÛÒÉ2û¸ÒzóBoþŠæÜ–À}Ë ûñžvásf¥~°;»oŽÛñ‘·Òä™í½0·Mû‚÷ Ðx¤À9àÌð†K?@Æõ_ÑSÆ+¸›Hµ}u·E×Ø}jÍJnvÈæò”ŸŸ§#‚æǪ:Q|(«ó™¡p$v°ó­Û6‰Á’Ò)î„A­]±ª÷Ûdÿû¦Ô nÕi55î2­ ÕOëb^4‹Òì2A•ß.ì—‹»|WŸìÐâ™ñ=ݺîdx0¬&öÔOòáU»­“¥)K9yaæóÁÔœ ð?R•»»4Åp Ç% ”4©ããâJ °s*Ž¹¾2VÃâ–„¡)«sæÂXç]? › 2* –L±ý *i dL=|QÙ¹­Oš¨ðkpV»ñzoK8!K*N+Z/E€{oE€ó]ê<5§Ös¦’@%êø´–ÇJ§U“j—°jºYÃá+B™ôã'Ï¿ÄJy1M©2ßg`Kt8.­Á-•¹’.ªÖ!ãG PUnÌNQÅw^H«nf )a>1‡ÊÖJÎóÙöAùôÀýô{(|Š|Ë4ÀÇÁä"»L_åºMRªàÖzð:­ŸÙr$\]´£ƒWñžùPïääèäŸæ£ï…ZœçO°Oü¹@·nèg•ö¸>ª,psàð8BóQ¯ ØP“#(flŠH¸8QhJíj‡öwÐZy’ ¨j1JÓiÛ!<"´oD80 è0‹Xþ.b™Œ#’3ÂK¡¤Q¦Íažbn¶wÆoò<,–ãhw?:Œ~熻Dk5|eQ°2vɉr¼åøX0E£M ¢ÄY%¿¶nkuB³b…&nÞkPHÓÑÔL$.âpaX:ÝOÒë¼É)òX¼î)O@§×´¹À«"úì¡ôHó0ŒX8ìB 6˜E›M}¼Ñ4>r†lGǧ't^‰5ÒÒ u¿ÆÃUðâ"^åÞD<"@@jÉhµß÷8¦åô2Ûc¯µg§ª3cé ªœÎ`Á*uÿU]å{;´ SÀÍ]ŒÚZaÄ »hÖ™¤¢zt1B]VBAR*Raú+XÑɪ€x „¦¯"üØ&ø~ï¸yO%zàÈÖ…hÐ70DÃ.ñ vžµ.FËëÌ Se6Ž¹ÞúòÒ^ÏÂòÖË‚çOײJ òÍæJ‹ø¯\¾O¢ÖU(ë30ð%þ üŠg0:C’œ†âP9Úr4éÞa":Øâ·+hsm9©¨Ô5#ë 2˜ÒnÚêƒú¤E gïSÄ×pk÷‰–:‡ã©å†V °Þ|ðèÑ£>écxзÎíjW‡#Ûð¡à%4ñËÄ4ò"9줪r>›pm¯ ¡d!Õ-œÞ “©mýÞ08fQ¤U­`ûñÒ6^“÷aàè 3•}ºPE)n[€&¬vX¯(ŸþôŸŸÿ_ý\žw¾yBjÕÁ¿èùýüÙ3óïæógOñï ü~Y_úüë?m¬?}ºþÕÓçÏÿ´¾±ùôé柢õQ¼Ÿ8ôEÑŸ®Îóôj¼¬\:+þú÷þP–œmq ‹6þòÍ7møï_¢7ɤXû['zÓŽº£d™?wÒ±™ ¿VsÐ2uþ²±fþóÒÅü˜Îò¦ÀlšÏ£½;EX2{bÖ³a§²™o …~6ʆƒíÎ’é•á_wià/ÐÀ›ôz”ÎçkÇÉ๚Rã©9r;uÍ`¶ 7{}sfAw?2¿›cû‡½ÞNÔí›?Û¹dñþÑþÙioÿ'ÃÁ½þ¤{xúSÔûñø¤×ï÷v ¥£“hïàx¯·?ü):ë÷ ÁîiôÓÑÙI±>'{ýïåËÇélœc`{’Âå,™°ÉÒÉ<)Ê„íq¦ 3ÝàI /ßgCÎïBPý“Üœ)™BÌ1œ`ší|‚Ój– s°¨˜cà† 5ÃTòÁCj¹Yv™Q±À'â{Ó/îs[±d$Iø³–`“× Òšý"„¡Ýœ#ò\ÛÖ ”[â¹…œ­_Xcûsô½7bõ“Ëœ‚ï;WôëïŠù0ËÉïÙÞküIJèê#>5 ßOæ7S3ËÊÊÏ9ªú) Œñ=]i~ÒŸ –ØÔ¸H1ÕB.Âì¤-P ¹zv$ñ•ä¦GönŠ7³ö»–ùv·qg•R×[¨Š×ówÖG3¿ “V¦°fa±&kéx:¿A ”Žw¢½9Kyx¾Å)þò‰ý6Õ„vö ’ÐŽÒ5Ò®¤˜q4lëqˆçã ©«:¦ÈxÑãÁfØ’$LjßòÆS?ùÌ°›»^LúÏÙ¯ 7y%AØ„Å4_MqD‘ÿ¥JS ‚jáj z ÑäïàŠµ¡˜K´9çǘáâòc±ÎÊÎ!åÕáuÙBìvôÕ¡ f£CŽïóç M?¤ƒ…dë|Ìå+H­:¥åÑœ„ •»È$Ƙç&u„1±¤Ã`rîß6mÒ©¥'óµlÆ‹—HJ ÆÄ„ÊËgú°(Ÿ f¶VÄP<fAºäžÁö&²Åð˜Ü¢†Cvt>ƽe. Ùt„EîIÔÔ^õ ]»|qH ¢5:A·Î|ásë`þˆ[åü@Rï·E6xþQIAŒù”Ã:G‡il ‰f?M¹É¢3 íÜqTtZó °RÓ,¥2{:BÈÉ箯RL5”Lp+Ìγù,™¹|n!VLsЛ —©ì•d8Î&è“B^Sè¶ +Ë&ªvCf¾ðR1'4Þl&EzqIÀ&CÚ¦çÖàOñ¶9ÊAN ¢*×9çYå{´òw_A*4i0ŸÌð JHÃì–›LG õ•±EÀ«Öë‚ÒÈs ‹ÑTF¿Û×_¶8qwææº9”TÖÌ98'ZÄé’¥@Û®Ù5Ã$˜öÊ‚Ò1g‡_fO<Y¨E}BP#Ư³õ¡Qx £bJYJ 3˯çW4°/Âì/ªyœÈæuªñi­—ïÞk1N5?´¢!¢÷Ú®…¬<„ž¸Á³þàX˜*CM¢÷~­e™Å _l´ï=¨–[¿º‹ÜZÝÎóµ;J¯ÕÍüemÓÜ‹–Ê°õ­ýê;1vuê+òÅlÀr›fa¢[ž ÆÞ/${i€î½x·ý›îÞ!Ê[¿ÜkÜ·@'½½“Þö)«ûC8¿7PÿÕÙÞþéÞ¡lkyþYÁ7bóÿ»N%0«°á'˜ë"•3E)C‹Nœ‚Æ©ùÃð˱a3Å0ñ ÏØ°”×u»‡gѶ9­Ï‘-óÁÂ&J‰ 0=ÁaªóÀÑoÁÞ¬Yja=¥Èèe3gS¶;4—²îM(ðËúAc®qŒ¸ëF6xG¢Áðf’Œ³Œ½3gœj‡Ž:<¤yT.”sï 7–`Ga OÁÕˆÿ0=é8¾'¯ð aý:;`r¯ø¹«Yg œt|fS²¸³ ù‹‹£†»_à‹×ÄZG£§-" R…@ö …¦î¿³ÍBJ>¡îíì½~í•m{£ §®öËþÒ´Bˆ²!Ø12 µ®ZÝ¥=ÜSˆlð7mùûck›Âh‹tP<(¹ÙÞVÕk2-F [èéÔö©¹ ˜‡ƒÐš’FÅó½^—Hªú¨ä OâÓàò’#ïcÇÆw7”ót~Í)w½C¾aÃs¸û*g[ØUƒ¼˜Kš$&G‚¡0lMGÎ)0]O>dX¯é¤¢Y<¿¦è½FuB„6Â[ø ÊYáÝÛŒwåÑí±yÝ¢Ó¬1›sÉê*@|)Û…°™-öݧpSQàp\À ‹!ÉL!{6X‡“ø\.áŒz's²¢88ª˜{¢NpK2©#Èýz…¡X¸ïš¥'<¾[nÜø9§ñ0dCÌPwÅéèg”{·ÄZÄ!½¡r»›¾”YGíÖ¶çÊ0š˜ún6ÞIi5‘Aê»éÖ¢Ê÷ÒîR,Ö"Øî Oñ5ðYÖdBÈË5D)nbîd7Šýš™W²]7ëf¾o(à2xšMÔ'4DšU3 l…)¶G0Mâld£Œ).`ШVÀH0Jn0\Ÿtø³…‘Ä}k×÷°¯výðišQ$æµRAßav8Wìá ˆ4p…×¼.¹d½\Ú!:Ï„rzB`‘F?GoAš¢œ AÕ81K7_L€Ñƒ«t¸À OÌG==Uë2õ·)SŽhFÓÉo‹tÁÛR[ÙA ™ƒ/Ñna×¼€ÿC 5qøCCÒùÎàrÔ‰<Ã>íÚ™nÀ0JoÎw¸´OбN:ú†FÛðÂ[t †ÇŸg£Ì°P˜²Q:&—=ÉL,ã(!)`5r®¬fçÍl(‘aåOÁû]†ÃeÔ3M5XhÈí\nÀ³ôqVÌ4\,F˜þËŒøÕBÔâ34Gò¹$¶Í€ß…aöâM¼C–5"—ùlaÈÙÒöZ‘÷ÞUÅL ê8EÉ ¦ŒPÑ&SÈwª§‰ Î•‘ `¾4vAwtܼ”öÚ¿ñäéª4x+k8îÐàP,†ª,íl" ÊG7m+×#Dæ“M®²óÌk`'† 8 |ð°ŒsìòaÚ6Rd/ ウRuçç ÙbÂâb®¶ªëÒÁ–giéùë|Ôí) gÚ6æM´Ÿè‚ÈBÁLÛó+•(FéÅÜ: çS/A{‡GÑ-8™ý «&@ î– Ì銊k¤­”Îü¾À ±±€$Júm §ÊYlØ\Rï“œêÜ höÙ‰ð‹AgÐSÈ`¾àþ èiŽ/ÓÆmØ Ê.Qó“Ë5€ê¶y‰Ö.ÓI:CfœŨ8oQÚÞ$¾@GT˜^{§àÛø!æÑógN ¦‚?ÓŒ‚ÐsP,!*Áàp¿AŒs&^¼¤@'P‹á…ž‘ÝÉxjJI¹Ñ¯¯r0x™cÙ¦C·'£ HΔ´,±™‘ñ!3û—:i~ü¸%Ï~¥ë¼xB ÞžV´ ®?Ñüîk8m¤¦Bø¤²Àë5“—¡ ¬Û›—ìTß圾 D+ƒ º €^nQÿ@£y­ï” &§/º§…SR©ÅHB‰m¶"/i^³R6ÅAÅeDBβý% CÅHÈWÍý/nÄb;ápšgs{Bð¢û/"ÉUÔ*©qZˆÑ|T®Øjj²ë¥ñ+™``rÉ® Ù9Lb…ºÒô0™ôð ÊKËUž&ö÷ÅЇù¢¡™oúÂ5ÛhÔisŽµ|º†*;OLGã-Ç·Ú¼`mN¢TDìàÏY™HRSÈDaóÇÍû¢¶¸YA jjHù×ð³[‡³#?Ÿ×¯uTªw FÊBê¼mV!0ƒ±ÙÛâÖ-á´Ë)°<{›¡V¿WD¯ÖDØrŸ—xJ15{UŠ1î©«6›îaûëË× »†Ü§èd© ôa¤.û³! >'ñ„Ÿ$ǘÖ*´]h}¼APßÜžT“ûöÑÂûÁ<G>6—¡¹:²M©I›t ìX@ ´wYßÚZo#ˆ‘ÒãÑñP¬@,R+䦢¼òö±Æôªö; #SÑp™€é¦0'm.™u`¢ËÚNOà±ðk³ÅpµPÕ,Ý ÈÓÆÐFTÒvrÖžòÁ XV‡jjÕ_&DeM¸ÔŒêá³C´)ôvÀauËŠ¸„Y®80Ž×*øÈ‹Šü5N…äÛJu|Köšû2:ÔZüôôò¡SѬ =TÁ˜ý ²ÒÑtP›ìÊD¤éQ'BñPטÖp¿“ I®htW¯)ÑRK˜™LŒULáIêæž‹>fžWDÅ)·ÅÕ  G·yy”×/U Uƒ»*â› d]üÍ×Õb1€È?˜œøÞ+¼oÑ©¥Ž`³µâyû'ˆ£Ž{š•¸þlynÇ›e–•)Çz;0ëTÄE*Ø;V²T Jè]úðá2 £vu/keU!ÚxP3Kß:+œ'™8 ¦h롬ÚÎ8ô>óôop£Vu“ÉÜúntÓ–ß5ä§yË,`I´]ExÇò&N³àò>±â£á8ó9beqˆÅ¦„DíèäÅ‹ ânU"w] €Czo-ƒõ pnIYà´Åx—D·Üàk赺4-Ý&¬*”hÄTžýL/.…0(–Hƒ X¬3¦Ê,®áš:3Üß\ uµ#]G‘ZgD:h!çŒw»“c / :-ÓµH–¹—ø\. µCJf7¯ öbµ ó ®ÙêÖ\sð›ý ÝVU+ ) )?Dy$¿J`°³tšSåT>¨]aÄÞ(ú4ÉVd7ÕÜÕ©ÿŒ\ë6ÁýÊM@_Ÿè@hS‡mFÞ=ǘ§o¦'™)ŒL˜js¡EoSCŒæú=™»èï`{7,y6yŸŒ²!&̆`7„à”Ô×€•DTàÔ5Â|áQ-/V<ʯ‘)E ð$#_šqü¡æêDúg c§K¼"Nòè:!ˆ&>H#r´õàEù8=êIš‚6x´ Ók®¦àúmˆ•™`)<垸¤-K–™Ùb²„-€ÜäàU#$0%Å :‘Ž“Õ€æóKó(‹y;ª‰,eÓ­8E,¥UÊxA€¿eý­•xÿ2' Ë8%², §4ÊßEÖùÁÝíüŸzu¼Ô2ož¾zTÉbåq:¢hbWFêÉ ÓT ‘g”ó žç‹Á´5•“!,3`H,GѦ¹Õf"ë`›Œ ó ˜jǺJý`«y€:(–ŒÄl÷Ä»W¾˜YÊW4qm¼€2d(õÒêÃ]Ú¥,Cí9Dˆ)~w[P¿Ðƒ‘~SH\¯œHvÕ9ÃqÌë‘{ÁÃǘµ{zÚ;8>íGäyqÀ‰<œex ©Q=·*w¥”û’xƒ Ý0‡¦©·M÷Ø´sÚã ôÏ©ÙNC¾l¼´>‹¤‘«üšRšë èó1ÙfÄÎd]9QÎ ™ØN`Ô’¸%;¦øÁ 2òŠbÈf5\JÝü·°ÐpÀYòqʾâ:)Gñ8¦bpºéj©!.-”S­*¸ZÎÿ>²L«`vÓ@šf¦’GV6²°ž…&»Å¬û"3sÁCOÖñ•ÐV¨h4V9 EÈXáîÜ`½ÀÒr ®,•W¤r£a#í-µW±U¸9šòÛõX¼N§q¯Ñ¨9¬kµNsá_Ðññ9à»Ðæ²Þpº†R‚…ß …/¨ÿÑ_ÙeJ[ˆ?nŸ}Ô ™\Ù}/9¼Iþ^{¡ˆð^Xú» ´ÕÏ–Ôfž–YéÓyó‡ûR)è[­ƒëŸÞŽóûåÐùHüò’âàÀ_Õ@HLÜ.‘(Ê?gi¹8}°=㤸J‡>’‚¼E'²§ÄÁPR­ÇÛ„§Ëy›†3¡†§ÙBÝÓÚ´%Ÿ" Õáa§5ÊÇ|Ï…÷(ÕŽ˜´ ©Z^¢´©cÍÊ0ÍP,ƒî'U[ãŽÚž†Nud[7’måí½6k«ëbªúk7Û J‚ÚÏØ´rû{¯Nº'{½~Üëžìÿä%y…S_冢X€˜"²Ô^”œtØ?=:‡¬ý¡Nò³[Žb1òÓµYF^[{i¤ r ®0|°JC~êTÑãh#Pª<-ÉÂÓ’˜’ðˆX|ÅI•òä5ÉÝ+Ò—«Et•§«û}Ò·ìžtßTͧÊU¤ù8_dfðý%Ä-5+?æô5`sBdžÑÈú ø·­ðdîß!ˆ(ÀáÆnÛ™‡çð Z‚¬ð Ø a. õ¶ý?^ÖŒ-¯|ЀlŶû-¡¬øÔ|与ӷ6ªívË w„¾[öiO‡Ë\Ú‰½eó”âИÚÈ"ÐLÖÚ²úHi†,{²)ˆì‘œmaÊ«ŒÃ€Ç‹9Þ&ݸÈáÈÏò=m•2º ¦ÊvœÁ{*s¨óKeYqñ6k#”©!‡8é*o… Ä…ši÷ù¶Ï1\°(HqƒS&Äzæ±Ýn"µÁM- 秳¸– µÖ`_àuŸä¾tX¾`ûKj³Ê4­™àfÌOv7u¶îg´¬Z9Ÿ@o3tt ¯VRê $jDÔb‡Öͨ݋ü™ÍVX Hm¼‰|½Ø·I5„^Ø¥L¬~LJµñ÷~pú zŠQÙÀQÒité¸bEÕàFï7+O—dAß⌎)øsÓò,îzºÚ–­Ø©·È4¦ÊãZo­ùA3¹ %•^óUµS·l J‰vN]×}bý¤Î¯Þýº­W­c·”é­ ‰ÇÇ|¸¾O! ­a¤þßÐ6@ó#¼÷‚Ì,#V|Üáo-íVYê7¹è–{"UÒC‚VYÀÍàªmþƒŠ€+{¼΢GWæ¿øWFç¡aOtcCÝ€aü¶M1ª þÕØ­–YQh ŽOO̾‰^Ayú/»ýöÕz§Ãw¡æÎIóŠÖ£Á_‡Û¥^µ¦EdÿºÂ¥£\¶æD:å„{bÓVlËh/Iq›O_=JHÕÊž$àü†„0!©,_{’¦n_ý ÜÿíëïLEË)Àf¢éž¾éð!B˜[µÔ8Ïãâ[ÚiF(è5içÐ9¹ÞQcé¿Í”D¸ÈÊnâTÙ ¶l ²þš$ÏQBŸ •—æ-﹄ T¼¹X×Ýœ^}Lôä¾£.' 8]-€:ÑÝ EÖ^•]†[ÞÛ PæõY /Ss®¿G@lœ£¸»³ˆ ñA÷øDêzò\Ìè,’G¹Ú_‚”µ|Ì•Ò]º{™ŠÍ(#-z„¼æè"#8iï ¶Bc YÉa•:|;g˜cõ …1ÚF±©H“y!Ù°åa _ËPàÜû>…ÛûŽt¨tKÔ­ +HLéyXCêxÆÁ¢'ª|ýFZu‡ ÿõ€†:¿ÚË Lõo¼få#Qß[Ðíªa5Ç¢»vîŠlÄ ¬2Û#èžš\T ECPm€uCÃxÇ…%)S$nˆÀp]ÎlïГ®x(W ‚håÎQ;›ëË–ô6¡_]Ñe¥žAKl¡–¢^I àR¤þå%”ùUÀ@rvôW ú¯ \”¼O²°Ão£÷ˆNôà$E•‡Š¦@£àÚNÐAò}2]i8V¡·çG'öã¡ïŽw{ô·m~#ˆû‚,©~<ï7«@1m5M<ŒŒâضxcö%Ä8)سj¦Õi¨vºqS,Î@d.ñÄF®H2 ±GŽÇÑz×Qò­kË2ÖÂÑÀ˜nI·u É¡J“€*‘ÒlXr’¶…ßVÀë¨&e#– ,I0, ™¾4âXö‘¼fZëaxŹš­ üŒ<",ø_«86x¯qGÆwW¶wG¦°¼’¸e¹M¢8G:ï^ø µ¨ý=AŒQòbräZ‹.:£ŽÅÁøóhÞ²VׯèÔç'`Âf™T+¢+ B+jß# 3Þ†¾ÀgèúÚ¬˜žvåU Ëà­Îú½øM¯{÷÷þ«§œÓ«á¼|âR9àlAx´ÿ ¾¯íÄ×G/+brP¹m…Á±Þˆãq:…«;Ä´J ¸ †ç ¨¤ÕÝu¹ýâ¾ÎÈW‰Dnf#>8;4RXxíoB/Àó®ý­ˆ5)RÌxKefôÇüà— Ôn&ó|œ™µ';AӲǖœ.˜XÚN‚YŸÄƒ!”‡Nƒ£©ÛºKMÛ©\>¹SµŽ¬ Ý×”3î08’0ÃŒÜUqcì!FË0On ñR’k ‹‰@ëk¢¸YÃÆð3½z¾Uý‰`<^@²ÿʨûÏ«BØU µ=™ÙÚHLq>ú2×-j6{/ MT¯%ûq$ö f¤VUõxUm›'Òi}Õ’:¶cm_ ôGwØBháéÎ!¸ ØmWŽQ[e é¡ïœRJ›<_w/–(R6f•Nªº¢*k… ›´ŸNê6$u„ÜÑ`²ßüpd$Õ×{‡Ý}ÃáO¬Á ~=Èœïn{. »åüêlDóãñV³íé_aŸƒ7%ߊ[b8¸ï?¯æq!Îe¿û;Nüm“ïÁ?i Q­HŒc•[‹õÿ)“nÙHœÜbLöU½§‡œÙÁâ·ª”ÖÇÎá³I. ‘\ ô ªtvïY‘:[V„³ˆ‚ü]L”RFpjÌamTòáˆAÚé{Ú|зî C¢Üõ})›~)OdFþ¨Åq•JÆÐ&ˆg¯aœì+Ä ÓÝnÑÔDWˆiä½ñš1%ª×äéb€ ¡]µíÙÞjÁ ge}'2´ò• ‹’«hÇ´¢ŽÖtï‰û¤Û6aí–U™ØÑa¯¿¥êܲKƒˆèýô¡ù¡}Óâ'ÚÑÍ–«ò!zÝü5ú}Ýpç*g“[+Tþ ¦É6þÁ©•lºÞIeNérù‰ŸwR‘™W*°âsbóD Œ´yo‡8F4—$¤b§BòËXÜ¢àzlMË¢d0a'¨Ž:\¼ÀÐ68!†ÕyʷסU¡lO|5À=€hëH6qTbhh0¥å×è43"ûønB‰r@ã•À¸ —/Hƒj÷$-fiÉ¥ÚöÇŵÈô*aW±"ß|~QNä!T¢sÅòipc SêüÆáA¬Ó€ÌÎ ϽóÕ0w‘çJn þSÀ&Õ±wˆ±Ùü€RÌQD\›HòT¡Â/–¸æÎœ#¹L S«þ 7)Þ‘€í ­E[÷ì ü‹Ø¿¾ˆþ7= v” –õeTÄ ªuöúw™ó!©ëS õ)à<n¤FðXË@±Ü C[Ê0iåF\S[ï4>èxB«¹"Ë{è!Zí>ÆyC'Òå…Æu7bµÁìÓÊ}˜±ô¬¡eX[9¼O÷'7Ç_Â@´õÕÅÍ/4è²ç-ÂÒ·GÓ!HÚg‡;½×{‡½P{}‚¡uÖ¹O½ÝmëVûx)$•ää§ÔÁÔ’Z[²Kè¥àóÓ›`teӨ˟=’{ï#óª‘wŸ@ òÏiÁ>Œ@ÝóÊÅ1˜c«¢²ÚyÁ›ïDºÆöZÁ®#å„=$(ÏY~ Ô²˜֢凼-‰ÄÀr÷«É÷•á½¶E5ËS+#;& ʤ:5ºa~= Æ·Dð©œGV¸S®>²µš•œxº'»=ëC áíjµ©VwaoFu?Ðnšº¾Áþ Ž€—ìôäQ ¿"öEö‘[A étP×xÛ=9$ÕÒ`ž„€ØÇ©ž¨Ëx4|ë¡é#½¸€ÛÂ{4BEë­­š-, }¥ÍcÕ áVõ†lKi;i{7Np|Ë!Ì!ÚzCM•— àC¾£µÎ•ø‡ÌÛÔÙ´°mV1%qaYJ^–oU}ú;ï»  ›¡‘Ñô¹Å½º±1ô>©r>7"ÉÄ"!QNž©3Ë0l0ª°_Ä`´7H`Àü¬ƒ= ®¸X*ïË]ï la±Â)º2˜[ «hí}¡TŽ D‘®ðÉF—L$w2‰”,¡ô=ÌÞS–9>¹h8êSbŸ€Ã xá[§²[ÅäQa°Ò(|»Ô#QÄaóoòkÒSƒïæ|›ñ‰Ý$rß(þêbíÉ|Žè 6wÎé+‰w>ãùiNPž%±ܤ.'` Î/.Pø–‹.´e o)ÈÏ.EPj8Tßüy¯Ñ´±û, Cö…)“Ž³„mé„„Ý:ÜÊàŒ¥ûXàeʸå²ÈOšÂmíV¦àvÈ óq8-ôRsþ§^Z ƒOB^Np¥SÙcq7{9I€0³‰õ€â ªWáË· ~žà/•@¶¬yVHYvƒbêf§Á ñ5.èœZsMÀ­2H8€îóTáÈØ<ôDš†¦‚hš(byõ™žßÝÆ–Ù|äöñ«}ʲÔòÜE±àKmZR=X±†ÜË\u¯„Ycn®zéà'¤§ª*¶¼ù Wõžÿ¯l´Õym¹“‘÷`I-áÍ” „ó8Fõø1¡J×£ŠÃH:"œÌ4GÞ7´3»¡@ôûÊ&‹(+ûÈÕµ¼‡ÓÕ¢©´zðîÁÞn™ƒ}dÚÀ§ñë®9n0CPFuÇH•};ÜÛ¿o;ô…á„_«¡¯4Àm£>žPVÊçùÄìª!gõÍúêœh ¢çÏy@CüË¡ûo…„z,§¥.ÀN•ÎóÔÌÅ?ÄS»h´ÈšìÂ’ú·*½ð©ûÌÁYÿ4zÕ‹NzG?ôv¢×'GÑ雞ù¥×‹ö÷àíOøOz'ž0eòÑÐ7qR4*´jÀP=gu´6cpñ6úwòQÁ Î9”ˆ›*=Š.FW*Cq½7ç?~u6?<(a« á†¹í” —=/ÁLæ#ÕÀ-EÍGømϘzp"U*®JÌ#>½€å‡:VdÞÙ½‹ƒ`àÑ׉‰JUê^_­'¨¸ñ­§vi8p*á,Ïåa³ïå5ªLÊÍ|¼­¶ž6aqe” [Ðqôž·¶Z·d&±ˆO„Jר8„É—E7’c7ÚÆŸšHͼ֕çp£4Ùš_À[X•Ïb sÎEþdGu…爴ŽÂ¹ °ÈþôŸú¹<ï|ódœ ®âa:í þ߀loÏŸ=3ÿn>ßxöÿÞÀ¿áç«gë_­ÿiüûúéÆ×ë›2ÿûúëçŠÖÿ `šŒ¢?]CÊàeåÒYñïèп÷‡¹”£r2åvIÙ¯¥)?»K"eÎrÿG²»ŒÅÐÒÊI‹ùËÇélœçT— ÓûKjÅKàdbÀþô†ÎΆuÂ3°Ã´#xù>2R5EzJð %i` ‘'” çS#Âv‚~ÀÕ*7’ÔKÜ‚A+9H†kŸ/æ)•È0yè0%•-ö3Ò¯Ø r«Kø]àì'¯\cûTþ`nġí§¶mfnn‰ ‘†´˜rM!´n| ¤õ—¯¢Ío7žFÓqtÜ?e_É mÏ÷É<}r9ô=äˆvo¿+æÃ,ï\½ôž¥ó¿§üÐ颎ú›>ÊÓñÙ^ؘj6Ï[‘ýÍ{6|Ü~ߊôVéôKÝ(ö³úyB‘×»‡gyÍZCéì0/¨§>’¼Nl>ýd–^Úbü!‰ÓÓxNý熃z£<>zÛ;9Þné Z€ð“~˜c‹ÍÄñ©ô}? nµmÝKŠ±dA#þñ¢¸:H'âêëR…,Î;×æß/žµ‹iTþyòDö>ë§Q|› zm2Nçh/7?cC2Q%›íf1¥+äß‹!ä˜Ç¦Ž_ð骟-)ÈöƒûqœO1æ9yNˆCægºþÝtpþ2š¦³«dj¶Òs<+¨# cÄɈ¾ù÷æ`¸ê¬WÕá²Yõ ~µjÁç«üú–‚ÉpxM‚q…СI\œècqÜA'Ïô»'ÛÞÜë>ÖIöôá$T|E¬OÜ€SepLÄV”f˜íËtTVQŽæ¸™uÎá~‡¬GDâ4_(@E¿OFNEŽ¦}1¶^Îg Ú©œÑâ̲m3o‰eUr’˜áÉÁÜ€½e/™n67—ðNa/IrÆÀ¬a†›DÜ礗k¦»mê äðCý"Y/`/ùxíx±¤›>í® ÁÇO¤@c±{9Ë1/o ÉÀRœ|Û”M#ˆêpÄÇ…'å#PãÛqªrËV!Bh·whdíøø¬ÿ&>éíö}Î EºýõúÞ +½Ýú JÖÊo —ös¸´ŸÃr?õÛ¯–¾}¾ôí×¥··)K·´®´!ž?µÄ‘ÖÊ}SbHŽÈ4â¤ÄUöøDÙØ°|‡aû’ÖÖ*Ó1pv'Ȩïï=ýæ9ì1«ŽCS’ú»ÿÃÉ3Ø ­à0_Û;Ü}ût“ÝŸméƒþ۽ç†qq ×ÌöQ€&º} £¸ë°¤m¼ŽÔ¶jË‚ Ó«þΊ¥{§«>:î®^úU憎¼¨¼Ø9ê?Û}ëOÆ›³“ºmÂz œÚö¥V«a'údfµÁp‚@5‚Õ ß’&Ò,)ïâb\¸é\ª HkÈ ‚úŸ~sîý¹\ˆz½ýÓ.®oYÉøç4ù€ZF«f …+€Œ¢ÿa„¥R+ƒÏÒÊð³´r>ý­ÙgÑgiåü“æeuµ úx•xË*@øM À¨¾ö²½¾Jý%»•êËøÁ*õqjå]˜¸Ö=o×ZØšûÙdñ¼L³QàK¿ðˆ"ÚòöøJ »s ÑŒQ0Ó ³hB¨+8óhýbt”èr0 ƒ ´a*¦„åD~&Ž0»ÁBõ”ÙÕŽ\ˆ[ÑíìéSjO?¥V‘}R?©ÖùJãºUž¹‘Ôž¶¢Ý³-'E´‡‘xAnBFiE8WóùôÛ'O®¯¯;ç)à²Ìg—OÕk`vÆ“¿ŸÿödbFÙ)®æãQÛVDd^³&†‹Ìüg˜áÆ0s`!ŠÁ,™®:fôk+õªÝá\+æ¢9l›~KBãÌìµNTI}ÿPDpÀÔ °î’È"¨'`yë/xùmÐl¦.‰aÙ`–ùÅ\Ä!YŠ8Ž‚Þ0‘‘~Ô£pÄꀎ™Q·Ÿ•Z8ÿÃ- þp Ã?>Šém¡Èþð(îÜÂg!@gþÅ+“2þâåÇÿï>%ZƒšBfw¸Ü&‰Qñ³HóŸE˜ÿ,²ügå?‹$ÿyEpK  ‹8ì?Ýü^tU¨2F³§mC<Ê<3ì_+.tãïÅô<úkÏÜHl;Ï>S;_}¦vž¦v¾þÔvþ!8Ö¶–ÜÚ(tÖ=Î&”oúõPùvæ|¤|µ.ùH‘—2È+vš#?)ªÈ¤[ÀÓ6Îû ]…ªÄkÀóHîAÕ¯o«*NS5õ¿¹õÓëuuÿ²¬neõ¥Uªël.«C®a›u]Üxz[å[ægãÙí_ÿª¶òWK‡K›ŸÍÝ¢ÿSÿô kîxRðe‘³wý³C”±ßƒÃ$Ž›éL,äP%z£±¶vœÌ’Kø][B+.FÓZ;.»œÜÁŒKÎÚÏ,¹.yº&¹R§ŸPçÙ'ÔùjÅ:w0ˆßnܽ_ÃO˜³á'ÌÙðæl¸êœé:Ï?¡Î׫ÔQÕ”“Ô¿Ôšë­ñ'º;„û¤ÖåaÙ$Õú<ÜZ©Ê„k¥*þçÜ+µ~K·õ¬ÒóáÖJŸ2q•¾·VZiâJµªÜnýT•ÿÃm{æ_ⱚ­¾'pØ)‹œ:ÿÖâ|sÊb䣒¥Î|jöÖR߈ÊÄ»~@²aœRÆ%-ê!Â?Ž²iî½QXü–S½ÁÒá¦oÃÁY:\L† ¤¶”89¼­‚žîâÖuý¯:FÝÏ ë‚Ý1ScÄqaã~)áÁÙ˼Ž1ð$_~ËéæðêŒè…É„ð¼È6Awºz÷⽟Ïòw)sžÎnhF²É¥«RÚ€Úgð«D *Àæ~uMÐG•b!H$ð¦8F={Šwd¦ãbÒÈUF¨n>º˜`šd‚R0/< TL,¾%YŽ¢ ˜Š¡D&œõWg{û§{‡ñÙáÛ½ÃxïpÏ¡oˆuÁlš¨€LÐáGF'à½É-EE,¿&íu gA’ê ÄD£’AÁ©J§ºœeÙd˜_C*´R–ð|Ôqø‰cH…7‡Ah®ü|¸LuÃUD¹b|"0˜×{?ô¾¨X4N“Iu÷~ì³R kç&4ÒfM{œÙ‡'“|²v9„9¾ Þ½ óŠé !ÄÏÙ; £¡$¡É,+Þy(B?ig0ÿ Ð¿/Ó9¿j>„7Î?Ëbó÷wµÚªö'sŠŠn؈Ãö…wóßy:‚P©7Ç Î[ÌÕ‰Šv@Hˆ&Lý s±Táwæh‚hÞÁ»I~=J‡—l?Ë0µ“i­ãÕ1· C.@s ÃÜÏš÷(Ê·.zÔª+J»q”X ø% Ú$ܬ*ç•ísŸî8’63™MSPÆAJ~JΦ—f¥;ej‚83³ï 6~‘ûÑe2;O.S›*aD\™`Ï·¢&gi˜yÓq-\ðQ&Еw<ÑÄ«=϶{eg+øQåÎNƒ¶«'½·ýgߘ-GÝ¡d2ÜÌi™°&QøáÒ±_\d¹·˜öK8ýÍÉû@&ñ„cÀ›NÔ ÌzÔRCä:X­³þæÚÎ ·D;Ÿá?HªÀΨVî身w gÃ"ÁÇ!äÐu: DÈãÒ1Iî€1|%òNO÷ê6¦æ¥œwœìôÍI¯»DîÙõ­?Ô‹óPÌ!¨p‚AÀë $¦e~5³2³™âò%äã¸"ÈJa9ÍÖ'.Ý/NYs6!o€€]e:µäÈ}ÐòÁ)K¹•›¾bÏ÷ö©Yƒ–8”ƒkq G`Ì?‘–Ú€Ô4á8QïÌt³0u9¦ë(ü°BÊÕž9ý Ư2 {õ ‚Ž$ gžNÓŽ2sƒêÆî“YêÕG«i1Ïgt”Ñ ™XKÝY/øô^îƒ09ò=t[‚ÓÐ6¨$†  6Ø7” <У;©`´8Ð#p+h³»ài8a#Kž?‹1Üú@kp]^†¤*œÙ䮑κ,Œ-Ö¿‘²j\^Ó­§õΆÔ9Ê4Œ†7 !,îŤ ¢¥¬íÏgùäÒ|p˜f˜æŒæÄX0Í™dÀŽÌQ3ä ðmˆŠ6Böh v–¬!a*’Ô“O±¢¥uUÙR°Ì¿Db– 3 EWÝy¸K‰Ù6Ê©ùáV‹2BÜ. ÛŒf$Þ¨0äA>BZF¼ýK" ïá–ËíP+ÄËý„‘#‰ºÚ~;ØYw“¨å¹÷ˆ kxEá˜EÂ8ËÜnטý›ã´û²4ÒSnÈ„®ÙN‘^F_kþå0Lmòͤ⠥‰Ï'· þÊ£Fåv|`½|±le™oƒBÎüfšVoïöœ‰dJ–ðº¯ÒŸêBßÚ¶õâ| ¼ß0†j¸˜šïÿâO´Þø³¹Ý¯ml~à ¯²—ëð©áråGȨ#hlsýÙ×±Á|½v"æIcýÃSóçý¨¿ÞŠ„Ãíèm¿âs£ðÙ8ןr‡Éøs_9Ÿ Ë(/2"åU/r}3kµ«ZÕ¿}LQF§p‡Eô»ÅˆÃ»ÚÔü‰ØÔž´¶>z:‹#9í|èä Çµ,݇͹ñj1§Äé)3¦‘ÅT}R³æ¾%w̆\>¹’>qéWð~aŠd˜A ˆB4š$:(V-—njà-Ë×xNQÆ\3ð(Rz˜£`:â"Cln< ²É(£s .WJTÍÉm} P2g4èÌÞ.¦goŽ#鉜Oçí½×ý<ûñißEèCu›ÿxZ˜û×yöüYÍ»Qq^ñÆ{Zñ¾æc˜2Úx^ñŠ¢7ª ®ªk³|p[áz.4vžoÊY‚)¿ØÚ*?3Û>š}ó‚Ð^ʯÏg³a:Åtþ®s‘^G³Š2CåÓú1ÙM;WXn;# I'!R<€€38 ßÆÌÞysü„ªÞ²Ã¡góYyZ'éyè‘a)3-bç§Û–e•ÜñÙ×®AÕ{^ŠªWå©*U½0 ç ýäZ·ôª¾S+õiõ.Wmؘ¾:fk–u+|’¨Û”_¢Eš—‚y¦¹]$ÀZAìDÓÄ2\›‘`˜Þ},Žu1/E f‹Af6®º<åÀá‹Åt:ºÖ7qÜO€ƒ8uâL.#dÄ^êüås¾þ¡ åSŠ±E¾Aœ}I=+Œ_ àÞÞïuOâí£^ ÞMœ´×E8IesA[³â b 8y¤$ 8(M¯ÕVD*•` ÉŠºÉ[[¬mе´ºÈ£¼£|&«ˆœÍ hÑGuÐT.`b ²2×H\OÅFeî Åôñy–kß”jäí5¬²ñ—MeØ:Èñ Q¾°‰ˆÈÏIj9K§Ã0·6Àz#õ ê¼R{„±Ç™?!¯nBÉ^ö®StºGÿQ>ÞHRGuØÜЦ¼dRžˆþ|¹ÞþÙ öW™›GM„ozÔ‚q¯ëñÆS3Þ§fj6T#ç—‹ötýùÜÀá < XyÞ¾—9]­bCMáÓv0ák/ÌiÓ¨­Fùœ!Ê°Š–aÝúævò9WŠKæÂÔŽ\3¸Ë˜˜o#2aT…¡5=£™™Í ièg3±—¿â$VÐÌú‡çëÿߣ—a-½xD³Í-H#ÿm‰EäcGæKƒe ÁàmÊŦÙuó_&(¯²•wjoQ%¹üU*Þ®md­ŽAkE“=7öÎÿÉ£îÉnßÈP;<õN~éñ¬Š‚å“,4øŠFbï_¨ÕŠ\ÂSžâè?€Ùÿ?ý!üï¼øסß‚ÿýôëçOŸoüicýÙæææó¯ÖŸ øß_=]ÿþ÷¿ã‡2q|Nøï¯îÿ]næ94óh¦Ÿ²îwÍ™z• Š»´‚ ¼I¯Gé|¾vlØ"øZlçãi2¹ùùÿm`ä· Œûˆ¾.$» …ƒk ¾ø _A¯¤%l!þ¡wÒß;:Ä["ä’\ÿ`Øçé0ÎÀht—`3¡`²á ÌEv)¶]~B¾V¼•N$ þhCžÅ+0Ò€iz£ó´!Â#Ìx Î/ –^åS¸›÷—y”€±s0{ —9´ƒö0¤–vÚ ø¹cjÑ4öŒý E~«¾Móët6j`~ XPðÝRþТñ†ÓëhûYßQOsA.a]©®‚M5rF™ÓDY¹‚œºw95ð$ŸÃ8]4[Ju÷E}Ç]1H¹<®Ê„7~-ÉBÃßØ•t”;½×ZËä¨ß@j’ü¢‹½ÌoÕ}ËÄû½îaÜ5}?0¿¸—f³ôN~ØÛîi$æùò`Ùë¢Ç³rÂ¥U…÷Nö~üÊãņ÷/J©‚Æ‘eFVZ†,‚`|² Å’ßÓÁA÷Ø7><;„ǸSq¥$RŒÄBP)Éš[¸BêP¬9­¼çãq2©x )y‚Çél6É+&°Ë -}ïMþÅÀ0úÒ…lí+8¢|&aýŽ¾ÎXs*e“‹\K” ’»Þéߎ /m–‰×5Ë™Ú~±w +ÃÅËJ;;'…¡n¼™NÞ· $»›?Ûц"Ìý£Ã].׆ KF'ûЕ7eãWg¯¡{»³m¢úÃö«K?¹Â÷ÜǼÕÛ鞘­uIÖˆìq ’˜7§h¤Ô|t-½‘+èaço»ÇÇ4ÉÝé4ï:p_Ma‡%³üÎðï—Ó©‘‘×7ŒHy`nxƒ4àì:JÇäüm—Šhx9 uÒGP5|­69g ’ápÏ·ÂÞ>¯V6zbžÄ{û~6°ó+|~zµ dì½ñÕÁ>W Íqò£¸÷coûì´÷Nöú %«%9:>OŽN±Td éÀ/¶^É<Ý)LJSsSyE#<ŸtOözýr2!O²ÐÝß7âüáë=#`Ü—"v2k 7ðhyR˜óçÉ8™‚ÔÆž@yd:Á,;Ÿ%G¹mmëÃ'¹+ç¹1ùÞNç‰ùuÏÇNŽÑ"æ Á !ZC |Ô9\š¯8awÐ<³òܺ"%ˆ7šK–xTZÐ{,ÆjCü6½²ðÁñæ”1I®X«ùwYu(ŽM Ì $5‡ŽPd…rDÐ ’×–ýUO>Ó 4£ÕðEôl}}}‹BHA¿gNºË…áÁëßÍy÷ð#([š5ùyã×­ÒËGØ,Õ [Ð+¥¿nÞÅó9Úà<ϸÍØKœãr–_ÃbØÖ“Â^<ŠiÙk=µñ=6 ÞÐ À šÜ;Ûâ¤êϯ¬ª8jèF-Ðt†28 ¨ÞMâËzL*9x.™ÞS„…‘ÎñÖT»)>•¦›#³aÌY’çQòá&ú¢cA@ìÆ®ÿ¦žÔG/¢M댥|i( ƒ²7u ¶‚VR9¹û4h ã?ÐdnîçÍÁš=hGGñÉÎÑáþOÒ,4º¶Í]”šÓÔ(ÏÜT·`Ö0RÃ8¥§m=kn8ômaaUÃñû Ø VæÞq¹Ê/ Fy‘6/Z˜Äú¶år¡Ròôg[œB¾üeýKÓl Í©D<‹‰]0Žœ°Š±C8•CÞaS•åƒ;K­{OÌ!ø„ÂÙáè‡/Äf“ÿ.0ÚÿÆ(”¡Z_l…7*½×³ £ë¢a2OÄš}@áFKü½ÑÁfNY¿œ çÄ$r›)RìJ–’‡ËœæéÈH¯×ä¶FœÅÛ Ÿè‹Üì”ëâ[|ô#ÿ¬É/ÑlíÃ4ZçŸèéú·ë_E›Ï׿zú5®î '0 ýt ú§Nççÿâÿ—Èþü¯ÿ…ÅÀ8<‡¿Í‚Ò PÉ»bãäïñ0}/kà¸1L”,.æÑæúúSÖÚm>FG‹ñ¤ð”ÛïSlé"û"ÎÅE‘R`ÚógkçFÀâúæ¤{“2ûrµg©¡RÐoëÊØ\2¹AôŽñ‡¹-’ „㸹Nn`Ñìù_€|Ž€{ù¢åa¯§ t«á©9>Oç(,>™jG s#4ó&ŠŽ 3ux¢x±{ gÄ9†Õá•c1±d'ÒÄ“{tº• ¼i8èF›¹'ôuç–jFºÔö¯(Òu9Ý©0~$Vƒ¶¿c3ò×¥¿·Tý©þ<µù^)Ój8ÝáÙþ>lùGê𦖠Ìc&EEÂ#ÃǸږN³Ó,4M[­èñã©d@¦?­P¿ß;95•> Í-ÞÔ#o1}$ÕŠùln„«¦7;axæ6þ¼µ…}¢ÑúÍ?š¾xñåÚ—-žÛ+;±Ëûd‹ÙÁ~uýQë³Joô q–Î[òªn>Ò¯Íò;Ä žâà‘¥¤ãÁô¦é¨Q”d‚·??s§•}îæå5P ]“À£\°d>‡ øMcžNÞyçá{¦‰)m2:62ØòÄ_øo%ÅÙɺ_š­åÓH?Uë‹ëà÷H½íìYfßÂÝôv§ám\·ªuôŠ·”x!o1zeÛ¸o‰õæåž=š‚PðhúøqtÖyb·ïúi•¼Q§€…mø’G…ÅâO+ÜôÙ•ÀÑÉë7úÁÕ›ãr»£éU‚¬b!:c‚+›Î¢½®{ œýñzNáYÑlà뜵ȶ‡ÃÌÜ: G&g«iŠ½TRN±˜&E®ÑT0äé}JªJlR.â ¦hÜ è›ÖåqÔ“ÙL°C¬{ÈJ´²Þ`jª(].äŠPÌ×5\?Š›ñy>òƒ›!ö<\M2Єܨ†„ÇÅ# ÊÌf3†#µô­6†–Ã6Ñqð°p2¢sÄ— À…¶†ÕÌxn.ÜÀƒÀ@ ·@oˆª)Z9¬A`™¹rÂ1>%—ã¤óÿM£Ö¿w¸MúÝÏ¿n•êÖ× ë•Ãœü™÷Pðžò¦uMàs sÆ[5:ý¨MØ.¿ëNØf@…£Ÿ-+•BêˆEÀN›ÝÍÞ¿E20Â2‰[ߺ+2°w†IÑÓ¼a¯½^窊.OW&â ª>–?q·ÜÖ|uÀ3T¯Eâì‹«½îî÷{È+?:U+Ïj FÎ"BàÌAïàè䧸¿÷_=§¶­x5Ÿ=ûƈ®ë›è`{[UÊŸ8H ˆß(ó sÏÏÎ Ï¡{ØßÃ\VÑ×çà]$©¼É‚`õ¢lP0„ŸNÞÇqÔŠ ¿ ‹{Œßeä$Éz‘–‹°£Œ¬ÎTÛ¤ãÜ—ÈýPYíNÊm¹ÈaL¹Ší£ç—<@uL‚ñU8î|j>=Ïhð'ä¦Ê}¹‡¤‹‚6¸0(‰÷CúÀrôï37&øòÜå%'S­ñ¢oü\±>f?{ª±óÙ;CYTÞìD~‡ûú‘éîM\˜@jp4Åàß5˜ap.‰ýT%êÙ;d Ðàã®>DéݼxÉðGŒbD“ëŸÈîPtÍkƒžWKôúÄš^G¶ÿ!ÍZ=Ã'ÀWå‰Úܽ"7T%h‰ŒÌþ>›å“-—‘ˆ©¸@Û xô!zÚ ‡ËíÙ(„fœVñ+ó›‡öcË8ÎQ3ô2ÁÜ8 ÄñÞ«ƒmp)ð30¼ížnÑ Óé´sÙ‰zÈﱋ`ú!¯†3žS{5-®ò+"ÆÉe6ˆ'‹ñyÊ7½ªRÓd.8?oþ…UǨÁ ~&éu $éÚPÚ–³ÛôâƒîîÞvóC‹Êš_:úÓ® –s®øªûlÂYlKû¯»‡½·Ò´äÙþé&<GSýÏ›¿nEµ%!¬3Îg†\–µAu!5_ÐQRoÅèxY?ëƒéb‹+Õ–É‹­Ú/ñªmü¼ñô×úRùùßÍí,ÆÛ›]»[ £±i«Ü±òÇ7~ æ̲à*oІ´ðóú¯º,åV¿Üÿ²ÜÎfM;åv6¥ýv^ìôN\;n¹u±ýÞ«#G™^oƒ)ø ¼­k`ûøÌÛfñõ{ózÓܦègëyôêo§ÝWîÓ –ß><-•Ç5µ{'7Í‹p暴³ik €‰·ž.FÉe±¬ú4¹Lͽ³¾¸”bjKHl†O~Gfd¯÷»»}žn˜ì+ñêohg¶ õ‚Žöõû·'{§=ïý¦÷~ïð‡îþÞŽ{ÿÍú¾×34 C¢.ðªÛ÷ ÀtÞc¿N²ø½:ø²p(Q RÔÞ™Ó„.–ã4C èÝ,¨û9Èc`®ÄÐœ/È‹Iä_ gíÔ ÈsÎÅJ;a­¿¬öS¢ü±š‚ }–neèŸô!5ù„äèB„û¢ó‘c5¸Õ½Ãíýxç¨ßûq»w|ºwtØ/¿#I¯_ñ¢wrrtRñüàhçl¿w°{Rñªw@Ïmwóbû 벓¨˜Æ”Vü•‘£á/Ç“ŒïÁˆ+’°‘>Pµ âÒ‰¹&a.²jù \†Ì\h—‚¼ègÃÁ¢˜CøÒ(§Í‡P¨åt~ð'\Ò6ZÝ7!œÙò‰JúC¹[w>dó•z³n{Sú÷Bœœ«üú"úßÒ©&¿jù5_ïíïSa®K__ÐÎEC X-š¹©!ì'˜¨‹‚Яü]Š~$—R$b8µÂ>q ‰ö 8œòtqcÈxls¸‚šÚ´ f2¿™DÜŸn*'Ašºýï›9¨‹ g2b~…Á‘× N¶ÚÞÑé’jæmuµÞÁ²jæmuµÓ“îñ’zðÚUŒÀ´R"¬Ó“³žh:œ’Ô_bôt WØ;déÈã—„§TxüØGXˆ‚íCÝVk\RÝܵ¯îx>›ŒÁ(I¢ª³kkK:‹»§-]f·“HIT÷ÍÊÒ”(…îõŸlŠ”¹÷>™@0wò.ÿ-+çØ\ÒDtçVäÃEr"*åOi3E¿£&¹nÎðµ 6z->¦pUÀë|Tîà!ºäláBKƒÜ× £„& ¥–ÚMç}ëƒêRòÌ‹i‡}¯Á\)°—SrÙ# hlq[+$5ª´wA‘ßÁz;z„Ÿ§æ*œ2²fz™MÐá˜éDüÓí½ ýÒÍ?Ê7y*®¢ÂA RBÒÉåüŠô»Ñ´ÍŠiü´lA0÷½íxïðõÑÉAî‘u¥Å–µK/>`ÿuO².“?d³ù"ýÏE:»iš¯>´þæù¸ú´Ôʼn+Ýá½—3ãmš™Oéöø+T8‘t,Ò¤: i¬ÓµÓ÷ †í¼ILï¡(”9æ?š«ÏîY÷d'ú'QÒáÑvלvºÛ÷C²7µ[e¥æºõq°½5ŸëÏÁãÐtÙL~¼}tQua þŠŸàª¦CÏš`­ ÿÆÝÔÞØ,jâX±x1Uó ×úý|¶˜ b¯!d›G0-ÿ[3çzKƒ;8ªÈOšnG<8=@û]²¹K²Í”Ô7Œ¼h‡Èý­Õä&øä¨Ê‹Ú2Ìœh Ç›Ùe†Cõ°‰–zЃT«ýp~çÉLxGGeVú¨û Â^úæ’Ûìøtï•Y†ìœ¦ôøþœÊŸ–tvòÂœäp†¿¾]4B³¿ l è |@d…xHf3ý˜Ì/Ö›Â&8*á—‰l¨ï¼[ ê  k±†þDk/#óO<Å—kv¢Ì´x«)aœVg£3û¯¼HP?’3 c9±´ý >³ßQã~@«'}HÐ`K;/Äqÿt`ØÅ)–ȽgÖ‚‡][ÎÃ; Å(†¨½ž!ÒÓ·`ö_oˆô¤£N¥Jý^CÂ!,GB®m Méåû8VWœ%_”Ù07Eý'¡oË>{¾(ä«*y†Îеyî\_ùAÛ6ûCÕRËJÔ‹ð”¼Ï‹Ä,ÒVS¾zÕ ;¶Je¼±­„}ûÝŸìå+¯²ä”ˆ`ŵ— S9óN‘H×/°¯ ŠüV¿ SZ?%3#Élvž¢fø=œËævÈWæ·†‹!!ÿ¼9hóΗE9 üpКើˆú]#è¡wž9ˆÍ‡G;½×½—Χ"¡Ïímm)ðß{*aPv‰ùáPÝÄ­ð5“&ƒÙ ¬H̺™{×x4ª(P‚3!ퟀC`„¼GY’3~Hú ÎÓ– &†*À“ƒ²zJUi)›¬iƒXùPïh’R_ †KGóÒ¯Îúî ¼yWªãÚ·ØÕ+÷*Î —€€põ[C²žSE´7Ë>D_u>jü“³ÛÕf)Q‡–ëó…ÌâÙ¤²bN>¶9Æ2ò*¨¸ 1j†—@Ô„s“à¬È‹ßXaŠƒ•1s ]7×ZÓ0éÖí>2%C6KúâI2rksåí ­µ 8²W{*U¥gŽ#z‚TpDÃÊÙ“ÙBÔç¿:ÏóÞˆ]Ö‡}"®™,mìÆ(꣣ÛæWÏÑóBã@A4€ßì=^ ­Ö¦Í·FçÊÇÕ£'6´ÝÌ5G·+I®h*牄˜ykYiÞü±åùQE6ÖÞ}Âÿ=juP-¦±eÐÁ‡ÄA«±üH ;è‰ÞçÀ€=¯ùHUÊû¥Gß/÷‚­}§So {ÑŒÅq§Jæ‚=þ4îrkT;V±HÎMÎ8o4Þn 7líæ,ÕÇ>[¶ºj— ¹+M ÅHMò `Aý,­Òâe4š‹i xªrŸÆ#N¶˜-ü[TtæèçßÚ¦(W¨EÜ{Íû¦•jlÔݸÏL×6¨tЄ­\å¡g†zíâZÐ<´˜†{wüGûÝÓ½ýWÓª<åE7w.¾ âÈŽ¡Ý×Y9†%vøÜúPZBŒp3Ë Ò± pÏ À%¹H)9¨WÓÆ@c&Ð~¢¦q@š@`jm ®Öðj*•“ÓJÈ€pŠe<…ÃôÙÁ×ñ¨‡÷ÚÔƬ2²*ÎÊ5mµD³¡úÁãÐk¨} ˆ`LQ¹…^/üÿw>7ù3_øŒ~KUùH.*Aµe5LÑ0™Ø#ªg{÷´Ã:ž­¡2‰ûzKW?Š‚•f–WBU¡qÞãIhÀ×î­%m„Ð6+:„Xà 겎h µ{ @rÀ|ŒÎ0þcÁð û"¨ºSä!ã[Œi!~?†bóEÙß$ Ð˜6%©+¯ÂgÀJü~Ü|h«YÕ¤}ÒBA³œ¾@–lyX-[ªÝÀŒ rîÇ'ýNFE¤"“wä×}œÉFpìÞ9)ˆžåäJçù|žEþð?$û6ª*»½2ýÛ;Ü5«vtÒ‹wöúÇûÝíÞAïðuzÞ]*r»Ï¯ÖÝßÛ=´uZb²Â›£‹˜C¼²‡²Œj T%ð“‚#:ížÆýï÷Ž£Í¯iέFŸcx§?5$—d6ǹ q¸Åñ™[Ág$4Ša¤ú½AOö~èžö@ëèGôøÙÓïnàådì¡K5DµË²c\LNp0åt[¨Þ®ŠiNEL}(9¹tx1„„³ ÈÜîÇÉßóÈÜKá(P¢¬„N4’‚P0úqYáRš@"Z:æ)áÞÀæx n˜GãpSÇ0‚q(~œ>·a_ýº¥Ÿ»Ð`t§”w¤‰¦È/œgzì…6s$¢WE2-žƒ bÙ†Ÿ&ݦbÖç ÿ¸ÞTÄkÛHí‡*·¹XׇlÍGf m¡#t/¹h9ìh¡8ùi/¡¼ô¾Ð g…£ =vU÷Nq²U(HÙ2ú¨Ì=K@4ËHÊ]œö¯j ÃOÅ6ÆT[ö *ˆûVµÃo«êi~ñó«~îæT7™1Xçu°<\uJïpÖyßÿÕaŽ](x‘AÉqAÙ"X†XthBoe^(‘Ò\(`ŒÝÓ`0¤FUßT‹„Á`Š+’€JŒ/j>àß@ ÄØ°•–âZ™hÝù ›h%¿( ”Ñ$}ïò»cþr*yŸ‘&ÓhØdîfË:DÇ7ä káif2…féÙÑêNžÒ¹ãzœ-îEËÓZA¸áT¸Ö¨bFMó\ðUHøòÆsqÞÉsÇÕA¥k”µ‡)4$aÇlÎ6–¡c8q¼ò¢õ­è1f´\BóϺVdèÓÀU¤òÈ¿>Ú £¬ða PÞà~Ýpà¼AÌÀÑÈÚ~`e9oqdçú ç§J©±^`£²Ó Ì0K}ÈRÈH„0ÍøM¢DFBúdZ ;Só(àŠä¶ ‡&×4M2?ýeg¸4C÷­ò'jz!7-3s­¥³»%–‹Òqì)™*ÒÛWËÏñå„Ô/€@¹bùà jûL²e oš ±÷U¤ö³Øn† Y€Dˆ÷”ìÉ :æõø1sA‹!ÎÊéR&Á•XØ?Çü œE£d€Ð ü¬r†Mx aЂ6çâ݈4/Qfm¼=~œá¨ø™A«µtXÈæ¶ ú¿ã·¼*r3P.]|ŽÀƒRwSv€':i¬Dxé‡ij®–ìÇxn¾r*Öq IyÌPn4MUö‰•TC؉P£x1KSˆÐ¯Ë@j˜ŒÞ<©ß·O÷1iN;‚ÿÆgýœ„ÚEÎ ò,DŒÒIdiÚ@‚ÆOìYs2nüæChÀü3$Ao?Gv½{³_ÏYÅBãƒIzå-sÅJZhbÞjw9«Œ8ÓKYNêÇ–¹ÅžQÖrØþü$ÖMFÞ—sèÚ“Ôr‚cɃRvTà¿å$_iÄÝ^⃈e Ò‡îžtIÓª„*½ÝDůû¤üÊäpwóAy­UCæGoûñÎÑÛC¶?VXY|-*ÅàbÄ–ºáøf™ÚRœn[9{Ôšz\îÒ°>Óñ"o'„<ê”Í Ý•ª«[EÄO[ Û©à6-9zõÒ·—×­áµ]†âIkcQK»DAŸà[ìÑ°š@nüe]ÞèÁÇ̱–w&6ù±ý‹nqÁ<òH­bdIeåq DÉ' ¼<å/OÔç8³’ ZÞÔ´\½¹K`è¥}F"uL›mÍ;¬…âü…æEÀ*8J|ÞûäkÛŽîõᨻ¯Ü¶Í_pÒ˜ð(0ÿZ¤Â_=Qv-PkôÝfÑs¹`ËÞe¼÷!zGwA3”½ÏÈÀèšàéˆ~.Eðt¸o‘ÛsDMDåƒ šGú‹ $ƒò“9µçÕœÊ5±7N‰h>=›„ïÕCq|rç[Ã*F‚óáá¯èHþ†p §äb”²zKbÇæÎb®,ÑW›XãlûM÷$š&ó«Ÿù °¯ÁÝáQ4¾I?¤€Ä°¥Í³‚ßcþ7Ì J'Þß1ÓIÐ V±Þ˜âO¿y¾E)°“‘z0s3¾©Ð’˜f2°îöb†¶!)ŽâžyV(‰ËŠ]ÿ ]ë½U<Î)ùÖ›â«ñ<ÝÒÇؘ¬q˜ŒÓ¦W¹-ëÚÆ¥\y8A£x@B,f0xÙ†Þ´£³sΣŠ±K¸¦tqa(Þ]œ¡%M.W¹_‡¾å7âº?<œ×Ø{´xúM‡BM†‰H>„æC¢ys@mˆ[oƒ¶?œ¤Þ»Û‰Ú½‰Hiü‡ÇZÿòP Kúl¨ˆp¯j»ßs«Æ¡ë ÜÀ'ðˆußþñQ¼2}›­Xª"Mß9òj;P.»hý^ï{@hYøÇÊqõMC@“ôÚ.M6ù·¦Lx‡. <ó¨–ð0mÝÂÃ(íZºsÈ[Òk =‹±ent T«¢ÈæÝ;ãQègYÒR³å‘jP/ˆáÅ}[]àíÑ*Ãüs¡F ºf2}¦Mè¬à…IÇ_¼paµ]ßÝæÜ(|~³€bÊlüGzÞûqï´yw>a®Ç ÁL6‰Ôðùa™E´BÄI>Â,iÝ_ÔÛ¢h½ÐXk<²-›Ì-h][S.q`{CX4e ™“©äq&ów5[‚‚«ñ$ùhH*ÓÇgfKÁ7\y1SœÑ …ÎÐ3q¿IeZü5PCç“y6Y¤µÁ¢PSN•b¸6=anØ"ÇÑêãe#›¼OFæ"ðõ' *}í£˜ÅÁÿf8¤ËNœM&é¬i±Þhe½?[¤8zéÐDaâ,†^uèjÀö^Ä¥îqôŽ!âùbb.`œRiÙo\g“§›…ªi,v$›ÃÓvdáÒûhyõbÎcú5 ¡Ž“ ûVìMìØü±%³¶CÇ þpâ·ˆ&ð|Búô1Ú»)´„®à h·íȪIU‚N×Þ !Ü\Æ)òë&£;š¯ÁÐjzJâê¢KoìÜð'm34¦6çWƒá…à\×ò¢ÈÁ!G£/ÅWQ¼"øî•Ç‰‘Ÿt .¥VO|ô䈱ñü¨©$ÛP ¹úK²•ËÁ íœ#†f*Ä!’?Ñȼ\.À„FÙŸÁtŒ´²¢Xà¼@vLHs­ºÐƒ¾0‚Î`n,Hø ¹Ù+‡t=™;Ä)Ù”2\O‰ƒ?<5]Ÿeï“yöÞœOY'í 9¼Ýü¾ýx  TƒtØÝã^€]Œ3×ôT0OÜ—ÑšÌâõ¶½0‹IíìïdÃ9OQ9’Ú|žÙÌð²8Ëky¿ùmê߈‘˾÷×õŸ/¢fó>U£dQïÙß‚ÄZOÅ÷8 H±q%ÖKù¤éØ°´(OÜ-h·H5°m¸¥´0Cž_§)øu`ø¦J ðs -À÷"À¬ðÛ˜€ÒÅä"ùÌkÃ9-¶¸ê1w€Á<vVµ·ãxÐÊho¦ýãŽöv"T±jKÇÔ{ý›R˜`Q"h4=0D5^Œ!eXFQ#]ê+·Y†”@Óe¨›mã7hƒúÓjNMI]QÔ Èÿ7#­ð¯SË‹/À/äÑ8V~3"AHöHl¡Âä·zŒÒÇ0¯”áGüŒ•Ø‚žžZ¼ma*ÐÜ:w:â ®\–ËcÄC³ìˆ4Ê0£Lt Ê…Mg`B*ˆ¡Þbš4=;”™KÛœŠÂpÛ&µœ3ÛÒ1GÒûf&f™‰‚÷ºå Š9ø$8RÇe¾ä6,çþ@+²¢-.ÐÍÔHðÑÀýî‘™3OÚ8*hýY®%&*˜ÁOKp¢òÁ )8‡ctŒÞ9qÎ-7xν1¿½…b9}FÜ-¡„p2wç²ËG|í;jž®1i(¼¿±K^Í0`OpžÒ1*§-xN2#ât:ÌrX‘ŠJmH ÝŒ‘BhûQ.¦|Z—T~4I?¦2óÞ[—;DM=,—=¯’Ì`Å“Hè7>…bò¹¿ª ¼Þùš^ÐFÇü®aT9œßˆñy/üdYèèö›/ô(mƒ©60µ®ý 0ŠàXCæ.H_kŃ6#Á#¶ ßhr7¶»ŸÈIfbU@'o°evhGîÒ“x5d6rœAS€9‘Œ d„òK Öë0™.7À ·¹Ut¢!gu‘â*Úäé¨oBf‘w™‘¨‡Ù¢, R¸²øÉ–ÊŸÇ}P©FÝÂÔP¾ýŒZ$Ž?‚Cb>G˜8£|¯ö"û}5lVèß¼éßr™k]ž)K^ÝÖB #°¢Ëèd @¦à Ó2¥&±þÝvŒÔÚ<©·ÎŠÃ¨¹Ó¶ó]‰äžl¬%¾™¶±òüK·ƒ±K¼‡zt¸ƒ ±ŠÇ€4~Œ.,ZìíN:€æƒ×èá Újöç• sÜ®øóèÃ/“5$]§C<¢À*Nç*mù%ÃUrT(Uq^`EOòA©?ð^— >WHÞ4'Š¤„÷–6úªÚcâÜäDñο֞+vY£ò‰ÂZ†Æ¬ž\j·ˆøŽ‹žÁuàr`nHf.Ö6¶tãDªÄ}Ú$ð;‘×26;Åk]ªÚkèGýÐX~û²´ZULY×Ù «<—[Á鈓¥¸£+ïÐ)8¥? #ùBÃHz½5§Òm0•ÒœëÕ‹r1öKÁŒ! ù± a=ÒÉWè”É;–iS+õ“Ü´üæ¶ÎÝ+ÿ†A´ )`Í‚['Ào5¥*uDé{:¯à'Ú‚-xÚ»Z÷Ÿ0BÔq'øÑyá”[kTϵ8ëh'}*kñÁ¿7ÄétYØú?œ<óôùÝBgg—°©_€æëùðz©Ú0²¥Õò}ŠÁ»Êy÷oŠvÓùŽ™¦>f¬„É*ŒÚQ:7Âr§Ö=Š ÿ ±·1 ¶*´ÅþUxãSʶ,>¬ª9›ÿŽ^9Xò|ˆÉ(‚÷¬ zŸŒ0"+• €CʘÌl„>ñ ûŒý°zÌQ›ÞˆÂ^P?ê jdW|c£äÜgF·U·¨8|è8ÇD1 º<Ößáú€ç`“˳2É, ¶¼OF`0Óó÷)yf+ú2åÒÄ’”ß0x4!£K8¿"Þ r#Û| ά,\¬€cþ\±Y¸Æ#;Güó>ªÅÕâ[sÈy—oVð2'Kô>KàÒg1…NU„#VÛ[ÛYe™%Ì„ŒmSp™"Ûƒ‰|f-/„+1q:iR K¨v‚Ö+ÆÁƒ•b.Çá% ÛÂ%ôzAϦÙIô “ú Ù°i1Ñ­†1‰.PÏZ|Ý~túž ±û°í.ÊåÕR!Ø$k¨ºE  N_'H+öŒzm.üfõþS|8ÔœQ«ŸO–õ—ªUΩÆ*‡TpÈègP‘¯m}NŽ.Ü|Æ ’¹ÏÍY5&$ÄϬñ<½ã‚£àIÎ[ š#hQ2~©y³¨-Â;ôËÇ/ªf’õWšÁ1ܲ·–“éCeI9Ô²²ñr³`!+ÆÁÜб7TlÐñA Y$àpNCàðDy©Á `Ãw ‰v­8 ¿;(ñ\ñ9x­>·[ÿd;>xÚªHÑf¥x˪Õ' ƒ¤kÖ÷d¯Û|Q¼$ù…Æin#‰ÊÁ—õƒy…jYƒÇY);’€JqP=7E\34C\Å,ÔhÒ¾-@®Ø›»X à³à<’ñ€s4`y>"O!Ïfmtmt«°[ÎÐæ%lJôëÉFÜÐgN0|áÞë—E-™™aƒÆ²cƒŽ½QqiªE4é¶=ì±üz)2‰ÂšVk¢b3Tà¥ÚŠ› ®mÙ6Ë_جø„FüT€ìö7í E¤ %K‘š§oö¿· ò„Â~AØáƒdàuK,är”ŸÃ™Š)Pˆ›pÄ+ež¢°þ!¹TŒ•¹IÅGZm>N¸ÈþyÍFêîWÍ`ln#oHq|ð¶wò}²ƒ«¹ÇÇGæÅ1&°tëxñ†rÐ==}Ó{ûmôÚYèâ|Õ^›µÚåin¿Žgyô”rSÙÏ$G·¤æEBL¨µ¼½ÉPú Ôq}©OwZ…Jš[ºö›r ½uI‚©zSž€' Z½u’èȘÉÌŽù"®Çp¶ÿ¹#¿½u ¥®×²´•1ŒÈ¿nIqÇ*‘{ÿük[ž˜ªð÷Öò?ôë·¡´ßчº½.Aék-ñ;ÊToeËÈK*ÈBÆ>ú¯‘·Dd ÅUÚ‘H‰á•{[šŒj#Ö­ÝWX{áùLÖè +{ã͹·¦ÎIT¨" Ôa¬Ç~—ñfCeχ@®PžñÕŽ5ʱ ‡b3?Ù¬”5É(5 0Œ_ïýØóÇÃ!/ $²E¢âï ™†o_xÎ b³ÏÞ4¡c0BÃOÜýtŸƒÄ^ÑÌåi1±ŠfVIÌ‚|ã8® ÔOÀ¹r×rÏ¥·æ·|ל‹p¿â‹a´¶„rpÉŸŽÎørË5ŽŽáFKo#¯Xó¯,ìNN‘Àì´bÜŸ-×C¯‰uÊј9«B=åàÑB)yQ HzpÎjG˜O%i»®ÒÒ„`+Lïð¦GîžÚNß»+ë',ÍÐy¦¨týê@ð ùÜ– ÔLÊËN{=Èž]8Û±…ûA’i#u ÕXìµaúþ <ôQ×À9j0™š\ÞH¥\÷zÇü²oïAªOv'«I²ì#¾Y¦Nl&8¾"dV*ªq·gH§w`äÎK‡µÅ|„Š¦AN ÓŽ .á`þ“~§t¥ÿD2ÄÐç6j\ý½÷ORÛ‘ó:ؤÉ÷èIÙñÜ ‘îÞ~o§Äkõ{ ²†×DkMMÖɺ7užü¡ŒL¹Š&TãÁ  …ù´ T0T9ÁË€Dl7µË “ðÈ% 9¿1ëvžÍ15Ù6†ãØì“t „º5h—SºR4PàÍÉ› Ëö 1{+##&—F–_È1Frñz`‚{ð4gŸ«`æFÞØ#Šàè÷SYC)7bßòuŠ‚¥Ó4á|Å»‚ dïò¤Î³ßïÚv“âSèÑwÛqê¦m4 —ˆî*ž†[  Sîn¯àÖ‡ªE\eQ<z¦Yþ㑹é߈žp¶¥&>üÊr ÷ÂsΑWS"öŽ„°53ã£QÇ‚¢ÆñþÑö÷¬Õqå¢(ÙZ‰O²?UŠ¾MDþ])Ù×C1¹aö@÷ÏCy¶Vn®üXhF¹Žù2Ê0•Ë:ç>q¶N¬w–wqRÖÇõ5m›O}[A:q|vX»xU—ƒ, hÿ–"öâìðÑ5è=†{›±ó @AÚ ^…l;þ¼@ÿ²³} s‘c¦»+y®)Y1Ÿ9ìêAšx,ÇüÎ ‡ÙÚ`Á4j/@Ê–r#¢¡xH”U†ûõA¿ýŸú§½ôT¾‚n%K^™ö,àîþÑ«î~LžµZèUÏãÓ^ÿ4Ú¨=Ë¥B×H× I­]Q9ÒÅòCªw«Ðæ³D» ¥Þè+(ûB"¹Ø|„£ì]Z“>=pæ@ƒ8ü” ‹ bÃÏ ³ùl1ÎghRB>ÙÐÕÕ{d˜¦=%óá%ã.Cl`d w?+r±ÇÍõ¶•EÞ¼Úÿ±sK÷Ø€ •cl”Gä¯5ëäì™nª$ñ7ŠëzÅiÖ ¦cÈ.`ŽzkÞ2·¬QêÏ5„·¡²(ôÕFRôÀOÅ£Ö¦3Œ[‹Æéì’s¿£îÀ "à¶B*¥y*k“B,©ñnþ¢ü«¾É rµ4Ô(‰f ቂ}¹ÝŽg¸¾6òAŠ¡³c €ç‹ zÑ“â’:aî1º«s(C´ÚdÖÃ"û_ð%7ª•k¶"E§1hq”^@0¿‹‘®!½M‚SòÙh{0R²p7œôŒ ôC/,W½OJ¼ˆ óã“T]<úðcœ`Ä{æŒr)QWÊ-Ê6zÜ ÏM i•Ý Lg„У—Ñógï"ô›AÏ6pðåÚ´Ûœ}à=îôî ?ÆtñëmŸöí(NsP9Òò‚ d¾/}ÐêãÇ¿ZmNå‘€ç‚XÓ‰+B 6¹döÜgßݼk¸H@,ÒàŠ{O›Ðûm-¨ø+ ¬qëÐ~e‘à 5~þ5ç“ðEÉ#¡{p„ÀJjý¶=Ú¶{«ž1ƒô®g <Á2™Ë…p‚‘C‹©Î(>•cS+›Ž0fƦEeíÄrÅöo—†'—îŒ(îZq²`aÔ™¤?lã‘4gó9ƒeØä««ƒ4ÆsÍCÆ”57׃Ëù‡H‰åž0¼vÎþ»†‹äG6¿S†Ê›ýDó]ŒKÑ'£òWYxfsKdv+d €ã§¤š) _¶Ô4qÕšÜ>.´ŸójÝ^šìù{€&¦¹¨XL§†›G õ7–v^¡FÛnÛÄ l,±'æÄL\ÿÁ¥j>Ë€?š½Î‚0{g44¡ž˜Ó®°Gz£h¯¿£ï ëAÚ@¦‘Ì.‘1«3šq1 =Î'’[™ä×Öl•ƒË¯êàⳊO®Ó£cÄ]ùèj|†‹÷姞Z\ýÓN®Æç:¶·2va…pcVÒ±·¥÷+€‘"Ãò¹Õrzðox÷h}ø¢W}©°âÇ:Q*¹ßÿ(-”æ¸Ø 9TÔÐkŽûð¤tZõ{Êé— È—ÉßÂéÿÄüw»G¸+àv6É>¬Á‡Í¨¬À¡,P7ù‚P œq.mVíÑé,þÆ®'.óͽ':Åp÷°¿m#`–†½¼Hð@븤‘+šáWIx‚êSaÖ$G°¢Ñßt7ßb†îè»ÊjTqëC¦¥óiJ‰ÁèÎ@&Miƒsž˜±kh®PlÏ:Ð!B;`å õð…B¬â2˜¬Èw‘ÆƽiGN–iUÈ2._¡'ÆP0âv~˜û‘¾d”ï_Ô(Æ«ï¤úJº àFmÏ@óþ’ûùXäÖó®kAÚrªÞ2£–ZRó—’ü7‡š¥%9¬"ý` Lë-¸ ±µÀu^½õg̾X6g™qÀ]3„ëĬŸ±I©àö|ŸB2¯“tÑÖCñC¾¡¯cÄH€’ç™ùÚ»ýüÚtY=x“¹P+í¸ïpÚ°¦éØCÜx–Áâ0Ì)Êcm¡ÿ­V;ªxñ&[â‡ffñØ4'2$¼À4ù\fó‘ à2×ß¹™BÖñ'­#/-Æž£uâ<$Å‚uPfcrãY~Ž°Dà\Ì‘:¼ú‚,¦Ô­¥4¬vâÛÀ[±«ˆ­¿/Ÿ´iÛA¡ê‡?=òí8—ÜÐ,YÑ‚«K´ ï@梱¾Ž‘ZÓ¢èãZ"†Dõ÷aFY•RÌó){è¨'ì§S»³¹¨ý+Ÿ°>>Ïã8dºË<Å0×ì"#÷Eàͺì™ñ™ïŽŸÒ§aÓ7ñÌ€«D›ŽMþ÷)÷ü‘é0ÉÒR’ŠPõ ŠìüÑT%°gý7±¹]S¶eȽ0µ£€>§!ÜÉ) íwÌn¤Ã“ôâì Ð}0ˆÅ0+ùoééh^ü¼ñëVô1Š¸p?5§™û:4ö"úý÷õ?ný!Î(¢fæ:ü>ƒØƒ™’PÀ݉s½C`I& ¿î2Áœg0¡çÀL%š%Ãë$e1·ôíŠúoS˜ ãcæ͇©ãé\ÍÀÜ’M,ÑÑ;«éhœœ˜c-ŽÉ³î ™µ7R1L¡]žG…ˆ Ë_“ŠÇrÓšMTµwˆ{€Wr¼ë¬H-N †ùhÚkk|" g‡²½„OCyë`þÅ¥¹S±›È‘Êi«*ÀxôuèB?g¬Kõ¯PÈÇc.%à3–»Rcusþ8ËãaüÛc-‡.‘_K§ j]_·´,¯?ÁY¢5ŠB2€…ÅšûÎMÝDÄÖŠ7€©DpT†U¨ !úÈ4·€ < \fÜü0Ç}˜ ìô^wÏöÑqíÛF×ì6¨Jì,@PâØ~ ¦€~˜F #CNóî 7ÔgQ+±Ø®ÓØÐHY`ÍE‘ŽÌ`)m÷þGÑ!üèØ G '5v˜Î±ù«°SC3ä"Ði†5NŽ¶]øÎ@p²…pbó̶W§## cOÉY‡¢^Ñ?`_£÷É,TGS²÷žÒrS¾ŠÂšè,䋇Рvna†X˜.vŠ7éÖu}Á.RÝR€àž7iEd$ÿ!:ÄŒ£ (9mºÕ2Ûô|qidUœ*íËø­øÕ“WBöd€Â˜èšÔŽ^†ïR#ÂJC7Û÷LÜYy3XÞ&4éž‘üÑÂÚ¦ƒWÙåÌáúÓ©–)&ĵ(ˆÜAä*ŽqÂE±>œûB’²Q€§¹C|)æ>4ç£0ç7@·^Ù1Öêîæ±PÒÒ<ÇÊ$†Á‹¨gò—³Q2ݸÎam³ÒÔq¼ˆ1%²2BRÙuýH ±ä@ò“EªT{%îH\%4‡%“Ôs~`Ç&HÝÞ–l{'r9Ixà ƒQ‡öD± $Di-n6ç¼K‹‰»4Q±¡9ôg÷“8DO4¨ ÂwÚ@èŠ}ïSXÇ×&ÓlA µÂ²CM$0RÙiß)hlšIû=˜(5›N‡}?¸´zU(^›d½“t>ËRðÞcÒöw9ÎÒ,LÕ€Ò/8µ°ÙSo÷ͯs‡¤ctö8£iÙP 1QÐ-@´4ƒ‰Àð΃™€¢a(…ˆµ˜‘£¬t±˜‘ãaÜ^ÀùÆ—óv”v.;%Œãá Tr¨î:K<ÐÆ{ʈ( Væ<3ß!Ž‘'¢äNn"Jú¹»Í@@žN>õhäBãï~âá¢üu¥%†>a]0È€ƒ SŠö½‚ž<@óö?ðo4 /³‰( ˆö)®šWíhRî!ÇBGè³]öï2 ò[ퟻ×2GàDXçϦ±«Ç²¶ðgcH–UrUS÷r‘ÌŒl’JÎ;>cX¬2™ÙZÃŽ|¬ijGxÚ™+ 9u|µèØj\$Ãé'ˆœI'>{*ÖA\iÅ×@ç®Eæ&åSë‘]‘ÊŽ›*EÊÄŒ/vƒÆÅ ÙkCîs›‡Ï×-•Ü²ôåjð©ۄ:\ô/Æ5)aJv~ß YWŽ³aDAȦéE¦4Ç÷Ôá´‚KÉSèÄü/]€JÅ4Ì Â4Ââp=×õ°Èó=&©ˆeI~žo(°›J ìÿÞ>°ó[¿·ûCP‰EþTìã<•ðÓ±§·‚ä)ÕôË:<Æ›ºBIJþ½æ$<ÎEx,Á7è¥ yÒ®“›°–ô (°Õpà´¦*«åžœ5¢B­Ð¥\BŸ\º’±ürmŠ„[¸¸Í þ¢S{~•Ø ÊA©GQ—Á”Uˆ)ußtbAT§¡‰&¤‰L?$xŸ“Û™ƒZä¶Å)“BººÊGCl%! 0ÌÌõŽ<P—___ü •3¨U@Õ |Žô(Ò"4:'¼1W¾º*™Ó“/üNd{ᥔçj̼O<Ⱦ7ýS+MȢɚ ˜b2SÍT¡.Gôð»'æi‹}Â*#¼(J—C,ÄMÁ×÷`Õ)ó”¦29þ"¡H ‚²7¢ à ¶*µ]-õçŠã{ß0"‡®&FNßÍƈĮÐGÝõ³ÃÏßy¯ã ¢nÑ’a,&kËG¿‚»aá’;U(PÝû±œ=à¨ov7¯f %Zë5_õwÜ; Ú‹Ã0¥¨s¸³wé(»ÊsD ÂóYDeÖêE6;muëÆåÂi /OLçÀ‹Ü¼d,¼‰!ø‡‚#æIñ.†£„tØ_TQŸZ¿ïRM7ì¦n£ /XmáÖV­ªþÁÛlû‡ƒØ.)ZØ¿ïÆý³íí^¿ïV3°Ð@gÌxªÖ~>z hóÿÈÐþ)»áçèΑACŸIÜ5ÃBWó$…+Æ”â¥h‹ÿ¾˜¼Ûº•A. DzÍewÓ$•ü.ÛTÕfMÐmÑ|à+êÂ>™k`>£íûæïüÙÄùx›<ÞGTÀ³¾8C¤jÈUôPŽ+ÅŠìî§ibÕùp,íöþ:øbbd",SŒüÏ ½À¯®¨‡H¸¹-/Ë•Nårß+øˆl°“+ÝAºŒ_·ÔÈÙ'°yl[ÅFUcÕ=âwÊdqÔ½á=à\\´kÔó7g';­2Êï².ê"(&ÙsËÆf½1b‡¡ÐOø»¿@JƒñÄûÚþ1ÄSï÷~èíBÚîƒ×YüzoßHCÜÚ·„ÐOv^ï{ÀÄôòÁÕ7ÕŠµJ"3K½/9Û«£Ãݨi^t÷¢G2| S‹ý;zÔZµ—ܘׯCµœ h¹«ÍìÁýX-q;ÂÿpÏ ÏDŸ›sê°]NÂÆT+Y¹€ŠJ}Ëۛ㠛œì¦`À±0>…n€»P5Ì´+eû …롬W›×î£6C}-'¯‰Ûö@8S ´ÈNšq¼»¿÷ €Ú_FȢ܃/"5—'{‡G'PÐ<ç£10£«5,âK›À²ó7;›Þ™#B}Â099‰Ïc‡ã )Yoíô  ë6×7ÉÛ»P<ÿæ{?•àþñ›®ÿääà©ÊŽ±Â<'Æ%5by¢*ú¹2êæA­N¹Ã8¦`¾oÛRñÀîúê´{Ýç~ÎÅ7Çñ±ÿÝ¿y›B¥q×Ûî céXÑ_ïýxÐcÕÆQ#Zó`φœò®ÖÿÑ È¥`k¸ IïQ©›JmÍ›E ™þ9˜~øKÖmIÿãA«f唩WÈ‹%Õ5.¾Ì^š–lŽœóŒ6Ƥ„Îù|¡[\º'H¼´ –àMœÜb ]«\ihk‹¡]°ÇX5ð ¸Õ4›¶ô#st Ö^ƒx:— †­¾îôf–^?7©öË—ÑÆs@èYÿ°qñ«WÞ&›8©Æwßa ª¸e¡I%íŒê¡ˆÚ:!Îv PÑQ®ñ‘ùI«)n€ç‹BÒQm¯Šôò½}GÐáEŽNž"¬uñÂÿ°‡)²Ž£‹ G>Öãý!κi_èqIäâŠÏ³9ø6/¦˜ºžU¶JûÇ9bÍ3Ð M[HÅhvÍ T?Žr¼6£û)rDI‡æÄú§Å|Í´»ªúbš‰‘•k˜ ñŠLíC‚ÍñL×bÂho›ÂïZ°)´F”ÏÔ{Ôæ-ø >\ŒÏA{&&¿¾07÷sÌ$3ºÌÍè¯Æx=Oçd8­væò>…Y¥û6yé"ò”…ÙAߊY(B;ÈA6È­’édÒ‹O£M¥ŒC²KXŠq÷p¥ãÞë½ÃÞÎ={›³YÔÔœG^:´瘽qé’âf2€”sñô ÒÐÍ!áœáqfúƒË̆6™«Ü›(Uà9òø‹Éþwhg°º±ù&´Ü|Xî\q¬“)Û“ÈkÝÌêgëºãZ2amŽ‚ï’CAÇccµ¥ñÀX¬{7敬ì<¡¹ºdl5KCJtÚëGðÿ‡ÛG''í>Ú Qæ=ù¸±ýERÿe€-3Ë'—톴„¹dÏ-Ø‹â)7¹eÂ}f:ÂäboÙ¨Ji‘íÔ(Ïß±EÌô€–.›YÐ'‘-¼ìÑ2°dn;$à趑€)”Ù³ üP4⤻0ŒÍ ¨»áð6l– ¶9í-`€‚MÕ¯’!$f)*G†XSqZ8KÛЪ3î9˜ hd×èw7y'7ÂÚ!¸G´­2`Žm($&Æ$Ø@J#zÿ†„‡ûO>VÍnbä¯Pó_¶ÿ¼OìÔjUÞ¿x1nkýÈÀeÅkùÎÚÑèSTbžy£àÅ~´Œp,ydçTI-5EЃUh¡néá;¤þAIcšÎ²±à´ Ssr3Ê­T½B°ÿ¾ßÃ[XõG`RW ŸÜñ£Q£ú³Kc‰2ªU­­¦Ò¹ëâÃÍßðÖçUî¬Ô ¥ß1¿»¾LeUwüðunwt²Éÿ>åŸÑgeìWïØv©[Ü®@ÆU\ÎÛÞxšÍØqЙϒ©©Må 3sÀîuŸr¯L||‹ôb1ú+ö…Ïì>]n-.• Ñ›E0 Q¿pùJlÖãd6¸ÊÀt…’»»ÝVêS¢Z•z•j{¥©VÚm<úXsǼ ›¶+xëŠ-تHfôN£â}k˵i¿‡‡f‰—ŸýøYÏNóñhí¥) +ƒê1°³“”hè„“¦\Ö4wwNV-zvøýáÑÛÃ[ËbV- ÓÙ]ÁiÊÇðjñ*FÓ-zøUr–•Î”».JÆžÜUêì*w¹@Ëîêˆ|‰/ý0 Š*Ž$/a„½ƒ= ORP±{¶yè°ü pØZ t•ülå/@ÐþlŒ®j?¯ÿŠœ®ÅY¬Þ*Ýæ­6rS@‘ÔÍ){“A6÷0ßćV‘&3ÓŸYô.MÌ\¨ûü+mib¼S= 9çá(Â)ñx˜*×^“¯BÍW–ßN–Ç|Å­·!º­RÛ¼ô ï+Û'{}É«VÛ0t¿3(f¬ÞiQ5±ÐÒ> ²EIÑ•Šô·E:XkZ~Ñx†ü°ßùÂJÀçR0K³ òç†T'”Öm‚Èç:=A–*úa_pt°þú½÷LZ¨ ó´¡"”†’ …¿aâxù©lÇóÒ¨§è¦Wÿ…¸-Bw ë[=·FCܘÚéFóA?½dÆ8E?f–ŸÃ‘À{ŸM@AŠQSf(ì f·Ô%¹£+F:7Š¡s ¥»ìmž±¼÷{Ý“í7\Á#ro†iÜ%ÛEÙU~îfÑ 6©IÇ Q…cËŽêsU÷X¡TÕAÔ«ú2Ìà…¦ç’H®³¼™É'…sŠÔµ;™Üóí†^@RB4nšsW ÿ0ªd~3‚ŠÃºÆ2°iSà%¤5(¾Ó˜ššjOìÜ6µZÅD{Ú®UgY”ÐPö¬ÓC;áÛ{$KßÚ’ %ÊŸ,ëÞ¡ ¨yL]<iÕ‰õªË4º?V›ê•m?«.¸ÝY·¬öP¥³õX‰¿_­¨Õªå$÷Ê¿¹¨‹«vä‹b„¶àüœä Ÿ†BW q°YÒ®T\‡@¢Xo/ŽÇ²Fzí}fÚì#‡þ † ̆‚7Î.¯æÑ%$¨%!â W1ù[JÈ‘Î0tìIL/“¡€eAê9d(캳˜¸`H×<ƒ3ö½Ü ö!¢è´G—Ð ú¡cõñÛÖGáÚùè[(â€H‹ù—#tƒK0KÀ!ä\ƒU…ÃÐS¶b´«èŠ#mœ£“ÃŒ4wBƒž(}©@°ÝÈÁSGªãͧ;† ¸hqwûË }_Ûvò=ñÞ§UfÎÎpHR’ܴѨ¼1Ú× ~þˆŒkoÖÏpIßœÆoºý7(÷.§nqk°Ø&à{óÐ.ô”iÈN¬\H9†fd!8ÇRˆ’œ›;?9£ÌщD ¥ÂM–ñÚ.Ø£Zˆ×œšwøµiÏaûc.ñSqôà Kê%’&ß6§H¿x ’¸ 5êt»Ü×'.½c*ÖW!EQôh´·¼Ë…cªn„+ãjuùìÅ\+º12¯ø4ÞMÔü4ÑRP«ý“ Pþ@ªÀ)"§aú"§d»òÁ1çä*ŸŸlõTÈ?*–ð¤vÔ ’)¤ùb¦>ÁktÁh) „ÂõQÉjÈXíï](Üàp Ë jp[Õ°‡NÞY‹sº{“ŒèdÆ!èŒOÿ÷à\àÎó ±ùs2Øb˜Wó+‚9AîtNîtae³¶[ÌŽ½òQ†Ö¯Ê6ØGκÛb¯/ ô¼hôf¸PWÀ1ùXð<"¥º÷Õ%WKt%8 ªšì1x=Ž,dK)Q°K3¡꿦Fé«Fð¸0‡näÑw2óó#}hTžR®æ¬ ]…£mÃgÔÇôŸ/Mô,üþyÏ÷_%÷Ñø-z,­Òšû_3(d•KÝR¼°Û"KËR5‡–:`Ìè6› 9KR‚[»‘ (3šeH - ‚¿½Q*¤Ô> ‡x ­HTa˜.ßñ‚//&è3)ÎÀÁ-ó&ã±ë{:ßš0yµPLx§HbŠÆ ÖIýZ)p‘&`S²ˆP-!”‚ãê?ýSMdé‹vyH)´ìSêþB°¡¦n:žÎo0ÜÛ'Å;k d%«Hÿ¬Ü;ܱ_EëŒróÍ‹ù4gƒ:µ.ì £¨¯‚s´´‰R1öT`ÕRC½G7 âéEÄÌs»îÌ:óNЀ9ØÅP%PÞîv'”qí É![ÃjC75H!ÃÐ>¬ ý%4¿¹ÀùYŽÛïŠô'LÒKøùg‡°ªž=!ËtóØ"âà%¬‡z$õY溽šTúXÉÎ>És8ªP†¢±ODöWgýv½ îN”ªfHQº·{¸t¶\®QóQê”Èyÿ¯|ËF¹§¬Š Ó5Õté~ »­¬êçIŠ×!;¹±'7Ì$æ©9>Ö[¯x½üÐjmo ü[Óêká7ø©‹á‰üæå«\™`·/Wá³® úÌÝmqšUÂÞ<²£ªD+TÊ+‰ ¾ûkè!UØfàã™›šiØCÍÑÎz;zH²‡]´ªbQHYoéó5âœKŽ³º¢ûDÃ&zóSêôíy«²ê4>–L¾Þ8ñ”ž]剃ŽµÙc¾ut䌰7Ë>D_uŒìlõyç\îø‚…âsy] öèkTÓ8 YI/ÞÜw|Ê|Q÷Üò‚D'¾¯BÕlhÒ²Œ¹Q¨qyxu„K¨†ìX´ð]6”­<>ÛF…h´÷i|ÞÓXÒë?Æyìr„²È'2n¯†ý‘(–ƒǞ݆Àm€…‘ #B‡Äv¤Ì‡h÷Ϫ“– @!dQùGv-M­$G¬L<ѨïÐ’!þµ”EˆÛ‰„¬P9ÕxÏ,@úéülB­WÌkÄ"h~¢rŸÜ0ÿèù^׭ʃ~UNW"' Ô)6áLÌ`—$A)ób°TMImQºPª¹ÉšÕºœœ¢·}ÚìøM¯{Ì’¿Œæ¶âÑ?ýW§¢©[B {4½éþЋ÷·Oz½ÃÓî¾Tíòa¯·ÓwE÷lcÍ«+ðˆiÒ¿k/¯ÎcÄ0DOÔ–«.õÝ}³}{;Í­è¾hØ>€¯¬?)kÑFËép!  Y› A«²`.Ñ8V¾¢—¤íÏYgLzLRÜ*¥p¥Rs”3þ€ögBC§ŒtÕ/н·¹Ž±É·™ ºetšEßÞdÊOpÆbÈôZ”ìL8^Òw¸R?g¿v®ŠXÍ*üPêȪ‚˜øóæ¨ÑùŠèô8`ãAnKÂ:e©G$P²µä=6H%¼U4ušÔ@¯ËCƒ¤‘°`Š_jâ±ôÓb[8å(Ö Õ †øA=~ebI9‡-‹[XRÐÛ7U ®[»½Ó|Ðøy?'/a Ì®|}tò¶{²³w¸wwvN⣓øpoŸ6§Ê '’ñ ™˜“g:5Kì ŽÑ;gÌåË Mº˜†0ò½mÜ›…3ÒI&¼gŠ) Bë÷’FÏV~›’­Äæ|JÄèÉh”Õf:K Ï´­Ïí:ËkòužË€(,UX) D6V¹îJä“y6Y¤üࣛkàÚ1L¸åjzkŠÓ©á‘Å?Z®D&¦ÎJìµ%•ÂžõTR€ü«óµ¸ê=æ}æèÕßâþŧGñ«ý£íïû+}-dùå)Q¶*÷Q…ÉÀóü]¤L†ð¯Õü˶[ P1×Õukj7îã<¶çÁô” ê~´i— Fó»OÍÃø‘ó h¨m³MÒ å§ŸÅ$K„™Xôó":úžðž 庞ðN¹n ÷ì~Üâͤàäjé°Fô©ÔZ–‚;ûjûèø':Ô  í>æïËÙbr)ólRRÀȯ"Û«ÿêÕ6»¼nIx@ƒÑê9@"•l‚]2°eŸŒ–2Z²;ú(#œÀ:ˆå—K,dÞÌ°‰Lçé‡Gtòaz@RÁü,`J˜©¤{°ÄP˜ü9¹†@ñG7€A–5ø“¼–ç¨mÝ¢Ð'Þ41Mï@1šL¤t4±ÉkÄŸ_G“´˜c¸‚Λ^èÏض}!r+$(1á&^~%Óòο9Úßé`w.fú- )*ÙMe|aÔwÆâ‘Ef`î;cç–Ìóغ߀+¹"`Ê¡v<cnÊ“åïïa±³M:èW³‘ë>íÌ ¸¿å#˼ê•ÍtÍÒ±ÝkœJ_J³žS1 ¼1'ɤ'TWyPâlW࿆©—ÕñW:Ë}~þw-|ÞÁÀÖ$Iõ<)hL*¼*‚ÊH]¯e¶Éx ÝVÕR+3+&“lzç…EØV”² å,74[vúj]*#=è~DMÙI®m¢4 Õš{üÂsvxbí^¦´ºr\*XÑAt}÷B-}tåß;Vd¤vùá縄Žª«tñÙ/IkÝø×"ÇVb9»Ûºu>X—3Ú¹aFJØa=áW?ÇdovØÎÁÕ&ϲ >%Yå˘¡xpb¦Ò|Á)Õ ËÉO–fVDF•s¤c“á½€r6éì=eÛ*( úDš!ßä ð½N(Ëm)IG)?!ý†Yγ~/6Lõ퉹ßRZ'TüpFÌ™YϽÃÎ3îêN¸ÊÙ_h²%‡ ÍHä°Y…ä2ùul;5‹d%8ú0u Ä2^§à1SkhÚ_&·ÓVô]NS›Ö‡2xÙƼ%ˆ3é$çùû´ÕQø¼Ú¶Ä˜"VògnÒbbØ×°2ÛË"³€JÅí#Q ÉÅPpGÎíˆ_O@°¢ '»¿wx*JÔ 7M`e[ËCža-d}Q« ¥þh4/Sv˾Â:Òû÷{®…¡F?!v Y±;<±7tQŸJ eÇ#Ó !o[Ó&ˆk{¦W¨³Ž‰?p2ºNn Le–€¢©hÍz€àGÑ:PçKÒ)«ÀW”Í Äj‰µ“Ú£ì|úÿ²÷ï]mÙþ8œÅ«(“GÂBLœÄÏ c&Ü~ÇÉdüí§‘Ô±¤Ö¨%c&ÃyíϾյ»…p.3sN˜5tWU×u×¾~¶8ŠS!Q<ã¡eWãšq³®V¼µ$¥³h»ñc™m! ΞÅÈ ¾àè9DΔË>ÍtþÕÊ$øµÿ'f®VZ[ïëód™ÅWâg?Ðöy%›ˆC°$†Ùr¤'2!ÕP--D¥;ÐwÕÒ¾Ü4øOXl;×'Š0¼d’;H ‰ÕPxYbÞ-¬ ì¬>ÝTfß…ù¯8}%¬¿A0ÍÓô®.:]Ìl •4_„;¨“IQ¦EÞMže´¾ÊU½ócG¶‘?j2¸;ftc;p-vž/’'h®™„Iþ(ñŽBƒ– ÕÒ¨%ø{xr øÐÁë‘=Ï‘€ŒOÞ?~£ôÉÁ;ŸÜÄLžf릹3û†q½þo"çÚãc°¼ºjX¦åV،ȯ=ôŽ»¸¡eï¾4½Š¸¬WÝnËíÇÁ—C‰RŸ¸—¹Ù XU"ñ”.Áÿ×çÙEHϵ×è´—fäj3.{ƒþ4—SÐ2.–%ׇ{MDv#Zì¶ÀŠ@”k.I&¿„RZ\[ŒxPqŠkÅMZ w(³ÝÎî ][iªtÜrA‘Ìš¬‚fØ…‡Õ Æü¥’­³„˜c±V„Ý,Sùü»rŒ–&»¼OÂQµÈIOið ØžÊùÒ?5g¥*OZI´•4‘˜äÏÉ/KÈÎ’“}œ'³^¶z™’U“Ž[ÔN™Æ©lùŽ£˜ƒaãÁLã’³¾jR»§ Pú?èç0¨:eº5±rÔ$²8ð€Ã$»†“kmI !LþuI§L³ÈQöÞE¶7H{I”´€¢ù¹Ç b¦‡¼øØÉÊå=ç@©bq›=г|YÖ>l2Î5¨­´Çç;‡ÑË7¯¢ÎßÔúÓ'ßlò^bÍh7‚Ó-vè ðÖ³†NÁ­%‘¾sr¸svÐÑ7ŒHÀ4 áƒÃcª`Ädq‡Á„lÚÙl„ Ç:mt·çýLZ½.î.\Ìl,G/n:*Ü$—M(éWÈ°ŠXŸ2Ž4âtÊö.  j!M´\‚Ž´ZÁ•ÞiÇqI°Ó¢;õÑ0vW)2ˆÝm6œÛs;Èjíü€Ö¤Îk‚Ÿë¨oVÖ×66‘Y:•ç8»’cÙ(5Bv9µÍ}æÄJøåaL‚nÜí'6$®ÆÀh» Ò¥6÷soBÖF…pºh»uOÎQ¿]·6+2Ó ‹~0 ‚q›ÚÙÛs^cK§ëÅéÿOÅϽC5Wßkˆ^³!ŽHØN}‘†¨%d}ð?ä h.Æ@q¢Ê`GŒûÓ rÔïO×Ýø­l©ã‹&k,…¨íö]Á¢@Á;ŽTZòQ7† '1ácK?¥ïÔ¿¶©9ø•.&ÿ謢pWS*Âáþé ¢aÝÇ);¨š>”Ý‚çGeFW]Ï]¾V9ø& <™8à}uÝñž*sÆòÓî°NÙPìõ³/³gvÑQª,d3ÇPInHÇ~ù n ïe­V˜ªGÕ“Ô°~KÒ¶«.æ^3÷¶L—Àã/zËM¼ñÆi¯nä¦c4vwpÃç®9íƒÍj%S5žÄ9f|Be­ç]»uµ[‚­w›PlüdqÌô[¶cŸw_hZEÿà§ù@ZNSŸxš>—@`áf}m ÑiíN‡RŸø3½ )„Éų2¶®"ùn+5·µ€dÉ7þøÎb9o«)`"Ñf\bü^€¥Å›:¹ÖýÖ¯ð]?ÄWVëT:ÝÜ< œ}ÝDÊšOQe¥R³ªdruGîÞº÷6¿ývçì#s˜ä´KÆ3K)íF „µF±ïè'²Ê37ü±6L†öXØôk/EkƒT3`‰°;U)í[VÕ ï”ÝH´/K©º¼ƒ'ïÊ"öÔj®µ¼¸Nn7Iã‰\’½ÏkD¶ðö¬"…úhòB¼F\ê:§'шÈV¬¤Ä ©e]ý ä?ö£³ö«öYûx·½gŸì¼:'Ì¿ñ ¦ºA5¯LjÜegÓéÅ)é-.mȽ2UÖî·ô]¤À–[04¹Á4˜Š|Р•lƒ®cžýLÅhäöM,'z;{oGøzË€¹È .ëO­}üâ‡&·È¿Ruü•Nž øÒ‘yÁ–´íq3€VèZ¢·:Ÿ*ˆ2TM8€€J<€‰ÙˆòøIŸ8É1Mê˜j8‚†E«Ê Ÿs*pìâ}ü1ïëŽiŠéOLØÆìq_÷Ì»„C |ÅÆ>,è¨öÃÚYO»´ƒ¤vÇ'9ÚDÝØÁŽÔ‘.¢œ•HYÝT¤×–SBƒ#WXCœT¦®àžÅÁt€Ù}x /X/žóVÀÁÛO¢é+Î{ëñhå˜Y[c /7¼¼-åB‹&Ï_a¿ù#÷IpRŸrç\!ÿ…†Ê ¹ å”­Ú§˜ªfS¦hTÖœ¤ö^)j:B¡£ÀX•`ç…Je¸a]°<Í°ÞÔÈÔ´ÝŒì<Öš¶{ÆÆ´Ï%wùCï1?nõ—ñ…ÈûÇÌUןlö¾›}ãuÄMr•>àrä‘⊨ƒe^è‘«ñÅ€@øÛù8éÄåA3kïèÈ‘R߸lJ’}Üæé†ïRþ"Šµ8®1Ò_B®b×N„‚øØ]%£dB¦œ«Iv#¥Ü$vh…¸²µ0M6†)o7…Vû½$OJ ìEùÊ?lG&ŸâûêzršNwš²|+ÆÉs©ÛëµÏ’<ÊÞÇ7ģȧ¨î@úÏ8Ä5Pçu‰ZýŠâ¦äÄÇ9^­èŒVó^O;´ÑTéÉôBúÐó=%“Z?×Ùf倡‚ˆî‘î««-®û óï©P¢–‰¤l:â>ߦž× ‚³¬·³Äئ]åæ}j¦L• ‡-…k¼K)œç¬l388z±wÔFÞ23“^º‚³Ù1˜[¿x±í¾yTب6X{+Øù‘ç¥è£‹³/ØØ/`C«x/SsÁüáZÛŠM·Gˆµ‰ó©Ç={þN-¯ÜL÷ îS®Û…‡‘ áçÄÁÍB"æÙlÒEÛ0:û£Å ¹¾"FÿŠÈ)s¯ö*$çd¨ŽCA/£g²I×[jg Lú—h£êö¡;vwfìÝRn£¥ÎÓa6íߨ¿¶ÔÛ,ëAå#„i51óê5Ǿçj}m}™`ÈÄÖžÌl8JˆÏÆüÁ,ÿ¸ÚK>{^ËÑ^__·LÑÈá ãÑcB¢û<¶•o¬­­­þu6J¯­m¬=Ykõ§Ã´õ¤¥?3Š§­.ûŽèïÂðtÒœ´–˜ê9¿˜]iÞ”ç™RSnòl†ÄUÜ‘8¯ºL?¢w;½Ól =Åßè‚RÃÞî!}ÁÖ®2ZHtÏf³¿\ý/ÏN¾k;™Ó^ïïïkRí¸kвá?¾‡ydEÉKæÖ#ñ'*¾7›§¬nœ¿÷‹/+9|ßX»h”q’n«¸šè¤í»Jš­ÇêÉGtâVxŠAdN1À)’`R§¡ ó«ˆÃDžÍ’gp¥LÞ1ýâ–xpÑ$Ns¹m¨>f ‰¦Íªß© ­þ9ðÔ>ÀÄOº v… Œfà ìÏ‚½¡5ù£úÄµÍ RЇ ^­4½Ç÷h¡ªè¢ë!ͤ=tƒ„ïéTXÿ*Ô¥»‰ÏÎ;jý©‰A”›î;…öØj+˜P„wŠëåïóŸJ¾ô.¬% &T'v±ZI?þfTMÿ>¯féD+þ¥ªÞ­[AR@]Ûš3I¼)l·¼»×sOvËO’ñàÆ¢P&ŸÂ)G9®|A ÝÁ_¤³´PNÍL éè4:>9;Ú9lÊ_{]F]ÐO:ç'§§í=iMûßÊæÚ"j+9EÖ)ºu¸úd(þay|I¾Œ¤¸a@{èPNÜWÉ GV|S JrhpK½wm¹%±y áÄ$7X×Æ?eëj<÷¨çjÝ}õ›£¶ÚpîqêCêOŠ*ºj³‘(¢`!h-ïì~§ž,•¯æRÉ4§nk©„µâ± ‹å|MðþeòØ)Ù{šy5‘͹.oìm•ö 3iO‹AÞ6’-AWÉ 'öÄOPNÀ&¿ic&5E iq¹ &@-Î@³P³å[¸e[´7HZܶÜØÑÎîë訳ÿ:zypÞ©ë?£óOÛÑÑÎwˆ¼×ÔÆÎbƒb¢m¶¼¯,ͽ¤'¶|<{-ç—×£QéjÔI$§é,¯’¢F"í•Ø®'dïâ©´¢èC·‰¦?A88-ÿ¢¿Îv¿÷ÿ8I§m«sQöÂyh&D³°2ÑùÁQûä ö丼6“`¼Ÿê„›eêvÞPÎ܆Mõ¸E(Öò½l[-^øW+ËWÒœüÓ]¾¿ó ¬‹”ÌáD%ìñ¼¸aª¦Á{E }÷Ѥ¹¬7,-Þ½OÒozŠæ {z:9rËßybJN ¯æâ'æŽÓRØøþiX«ÚÌÿg€fV6ha›á-ám¯ò«AîIj¤Ðjã‡Éb­ðÝ*šúÀ‰Û’û­rxuè뎢 pÅ×ñ Ég…Ë’êÌX!»Wq±¤ËÓG4÷$®QçñäªrT%gÙŒø3éxL®ŽÎOÒØÎתçoÙ˜Iø¤wˆ¤ÛÅqg—Èå™M {Áh"4Z ËÁØ£±±ì“O¢nHç³äÂSã/ljV\eCàwoY€*nR¿'£1'\þêé;Í8‡üÞ-š÷Yï†I`Ÿ~/û(Ú"ÌW‰Xú+&ŽãO€»Š´Õ&¢’FÂà @Ï´< .ëž[ª“·¶<ì‡RbSAp (¿”ÿUÐ׋Ûz{»ÀŸ«¿ØV…ö¨gj­áxÍÿ³”ÊÉD|NáýB]Zƒ>ÜAÍ|„dÑL8þµ'ìÅJÂW Ã3µºî4R)fQË—‹Mph+ ª­û£g}/‚Vx†ŸðªR·Â &¡XÖ¹¹OCÃzùb¤Î﶑’þõ/e!/&–”» 3š©â¼o!߃²I>]öLŸûÙò–¼–݃Á|zÞáÅÛ‘,ô_ôÔ99xÔkLšV +‚YõI#˜Úòëw¹Äòê #‡ïwûu«æn=Z94{ȼ?+tµts>Øöîµò”ŸÒõ]fK=6€eHnë:&1{„¹ Ë%;«zãÚ£Q¬u«ÿ~«t ¼Ÿî;T9%÷+³+%£‰ù~ÃåÉþuÇT¦Å†ô:ü[Nužùþ]hùÖ ’ b`†¾+ð$Ü.¹AŠË†qFufù£·¶÷ÓCê4ý^rÖY¶µKŽƒÓÕN"Pk¬6 Fˆ?Õצþq:UnO­àÞ½¯˜&¬ðR^rmÎ7JXýB™ùw\ys®Ãã<úg *ãÁЉy…äöRôÑaà›ü‘˜kØûNCð(ÛjÙL†ôX¢H*>þ~ªĸtÈø3‡J‹7iž°ïl0^´Bx‚ûs77}´ùm·+«BOÄ–hD« aï"«9~ã„äJÞùôHóŽ6þÿøäÝw_·÷ôSÁ¾fÁ—• ;ÚØ' êNvf 'e'¶öjNªä¡ôUÆ ‹4xñNÁ©M´¶ñ:»F´& # Â"ƺˆ|¨üèæ\CY‘è3½eןg£–jcÜ0åëÊz=§EÒc[Ã$FÉfÀ2PÏ(Œôž5ºwíO£Û&9®¾¢tÎX>ý$û~I¢ô%ãÌš³¹8Í l %—²g‹g!g÷Vmz£&P¶…#¡¡¦—>ÄÆðϨñžˆnÓ›¦Uv âU¬¡Òµ‘„ÁæéöVŒ+¡NId.D€£Ù° "fÚótÜdéVç¾VÆU Œýƒ2)Mö|ѳV¹UUÄHy(³·ìŠI8W}$/´h’üå”™”8Î6É®- î†\Ÿ)1s·Âi ô¼]ÛŽRµ[™Q»LCMNó^‹/¶Õ7eˆˆ˜·*cGã‘úƬ¿îøã0‚ò@Ïmç•긿ûŒ‚z`'?ã¸C<©ü©–M¬uëæ̵ЗzÅIç|³çÄQ5Šñi˜èà9fm4gï?§Œ­ ÿ©0ùá >•%±l&Ž­˜ -ý¼ÃçåF[önŒå¹©Ò°3µE®»;Š|o(Eu6yO0&#C|ˆ'˜·CIǃÞ=bÐÍ#o3=Üå¾øžÐÍPø6zkZÙ¿Dó€æiÝ%"†E¤í(¿I}˜4-uv°ÿþmﶾo7Ušõ»öÙ±e­\FÀûˆf êv‘ð}c¹ºéc;0'8ö±D‹R¥X©Uhàçõ+àöbÞ ¨ú\ùô×Ì>qLΦùÔÙ·FW3óZ‹¿‹Ù `S4|'ÉD@e±ÁˆàŒÃüv¾‹^î õ;"“ã¥}ˆÎð–„Ñ€,g;tÄÊé,Ï E>öýÃBºæ4@ÿÎyoæ”*°ÈQ¨šqÏŸµü“g­R×hé±€<ù¦”ƒã¶xãGx´ï7Æ’þ:cÔxw]žñ׆Ÿú­P*˜­°!øv/™Â¶gç*j²y*cÙ…ÏÛ0äs’ ô§B\Þ`Òc½…3’Ïk–¤+t1þ%±çGK“]ö)LiHãA^ÎF]Æ:G:ŸÍÍ–ƒò[®?ä?›<¬¢†¤Éi’›¦bTÜT0Þ{ ˆ|Ù¬‡Ïzv€§—°¨ ¦Ù*Ö£X‘Cst2°»D þšë¨îgE~—’"ç±=2yìæöR{ì»SÃÍÄËÕ%¯ß&gÔs³ÿ«,70¬V!½4Û|Hm0‰¬…)xgžR= j¤4ŸÞ½ÒÍ;^|jò±š/¶»1Þ‹°Ô¸;n—Œ_®cE£Íåºóbx›uŠ6>Ñ"YSü8<¼Ž'¤x`“cD2u®qœÅ‘ §7â~À±pS1Är|ƒÈ’hG0a:m9"¥ÏûcwÀÒD‡z;"áòwe=U …!ɬ4^ô.¤²ty.Ö".Ý)Õàæø ê_ïv tˆŽïféýxpøCñê±ü¹­ÜK ˜•‚+ÕHéöÚVú¼œ£ØÂ2÷Ä—s&ˆ0õPÕ×Õóçv"í¯£É‡vÒííò/’qœy¤Ö4ûÀã›­SH ¿CÐ_ômY‡²’Ö¥S—æ)+«8ÓwöZ7m?Ø.r¡qWÖ™"¾¯å pÞ3nóaqAïbƒ½ ×JðIÇõ£pNKä,1BéQº"CLaȾA:¥ã\ÊP›tÎíi¦3kÏd`ŒAÁ÷ißùu™÷»úP¸&l§šËV«¸XÅ6î±¼ 7:ØkŸœÿ¸à¸­ëùácV8T:¯vßœµ·”Ú¿êv)V¼`2’ƒQØýÏŒšYïöÐ"åtÈ9"ŸHòEˆÀoJòO¤bG˜l¹¹0_½Ý«7Êoûòm…lý#ãX2¹48c1¡`'jFšÌ€—ÖJrâGHy>ºÁÌL&†É _cWã‹Œœ¾[¾0oµbùtvyÉY½&=â|z,àk»ìïÖ_*µ‡CSê‹Oš%lN)w3‡±)ð34æ»ezj—æje£€|æe(È@pzò¶}vºÛ°(÷»§§ÑÛ“³½ÎßÐÉãɆÙ|óx8ÝRVæîìÅsSÒJ´{òæøܶ5wµÓ<•iʇÝÿä¾?ÝümzÿtsþC¡²˜¤ðÉÀMñ䛧EG–Báß`YÊš ÇEeî\Æ ¬‘Y–£AˆD+LÌãß<}¸WàÑeK˜0;ª:ôMÂ#óÓÚ;CCt¾r¸´[¤ø½öË7ûóü’m}•M9ßš„ËF:4%q"™Ñ\®pÃòè“úrÛ^Ok¿ø¨v1Ì•¥€†‰jÁOÁÐ]áugI…z¡ÖÔ_ÌD ¿Ûœ¢ëºè:E43;¾0,wÝúB±Z¾ùl°i¤>Š¡•x€aeÍÞh> öÜ\EÝ/[O…gãq–ó @ùòò1 ÂXï§Å+$™¸“c2xᱸêx¿zE 9C8Ëï©$æ°ð¾–K/,ßðâ,;Y[Îbºî–&J¿ë~ÕÙ!s¡™€”¯ƒîD(ãsbýÄl_¼°! ‡÷ÛJÃ’’t•rÈ¢rèbe5ú¢€¬YÔÒZ¤¤±ÑR§D0Àl—„L×p1:ôÆ ÷ψcÎ@ýÆ/Àñ)C“ãìp@¬.²«Yî¹'VP3 Ûž 2G‚ÞbÞéäE~CÔԌÛu›ƒOÌFݾµ¬3 3°]ä=®92Ë}`.äeÔþ.ËʹÍQÞ‡¬KHoH¿„ÒÈß'ɘËSBe,†Ý4¿\'X´Ÿzã¬)ˆ±'®ÿ˜¥Ý÷ƒ›O?¢×bFiçÓˆú´UV9%[$r¢U½ `'І2ek•ùùÚ·°9-³V^Ä\½k~©‚ßî£G…JÏ&+vJ?°­ÖË}ú<’µ>Ç{«Ü-¡j¿ øb<×}ËÉaéþÌ¥nÅ©©&¿ëõå7£äã˜Ó¥ÝÙÏ’îÜ^ úú œX8qƒÑL€ÕÀz®&ú'õý8¤vN˜²ÆØ+ˆD¢Úœÿ6.4&•%&Dr9Qò>t¥á~ˆ+Qz`xÃKkç"£œ/Å›'ù˜Në³m˜¬àâ¹Ó%˜ÞÓ²‰…E›»]pâ®sÆ ¢Iã¹} ÿé´÷¿o„,r6Üq“têήß“ùb4ÉÏ©CŒ7zG –\ÒQ2ÀÀà$ â9#êàÜPúvš¸ ¾áêìF7³«¢œO… ó³³®®»îñ6õh¿©Üb­š)B›Ù”~"àY˜G¢€p÷( ¶ç¯H¦Ê‹Kÿ²ç֧ĄÀ4¦&U£¶«qÝRˆ`ŸÀº;óÖ°Èa6¹qC.ëpkÂù§ VÜ53“ƒ½AçA*ª`&-‡EöJõÍwW!F"å,[C‹X\p[3Q®œüñaâ„ð ïð¾Tú*REp™CC×}ZS&‚8Ïý»áVCnBq'Œ_cáËb¢sÙá¦#åÓ€Ì[AwT΋ÈcõA¨ñ*ªŒÆÊpEé„æ)„vGNK"^…&$ÅÀ_‚FÓšºAyÂ$·åÍŸ»¨ÔãEiaÎøõB ô-ÆÁñ÷;‡‰{¶ÿæ¨}|NAŸ Ïh%¬Jùü–™"+LÿöU(5 þ&Ë`&máõpÉ1šÆ}•æY£óôzçû6´´{ÖÆ&vÝÓ|Ünü¥8%§£î„},NZ„‘­yùÎ_Üó ¤©EI`ÿo]p²w~ZòàaÂ3Œù‘DZ9f´1fø^r1»º²Ù¢4qAª>ÊÓÈKßKÆ­®“)Õävœ$Ùä* ô¡¤HÃd ¬qèò½nñ:c§Ï!býðÍSµ2J?’ h<šb¦­Lgô"Ž'fÑùrc”pF*'E8iãAÚM§èN?y­‡èµ#Ižœ“‡åU·Û”¦L5ûpö¸ÕË $«UjzUšnÀœÀ†h€ †Ü$ÈõœS?µ.ü%Ýôžtpvw£Ý×;ˆ çeƒ¼Lb „&ü-\{a2x¨¿,Õ¼¿W.',aÄãÄÔøïq×Þ úq<¹úéQúÞmÑõ´#KðœPbr¸*mº;¶l&EgˆÓ3Öˆ;y˜¬™­Ka0ºs`ðÓ7ïœa`1*záÛOt £æžnFFè d[£ÊS8L¶° „;íñW'Z;9M‰›÷Ö'5´; xR Àcê¿Ní¦ÎU®–fï¬sŒóXóóHçcLЄQ»½ÀTK/;{Ô‚»¦fÍÔòzÿê¬ÝÆzn²åãö¹mjîˆjNg¼¢”ÊÐ/ÆZûš£¾W®.ßþj~nÒÆU/ÔÓ¥Úêê ”ýÈGm—ªÿGÖÑæy¤<äê©ÝÚNs†VÒ6Ö0Ž¸aH:˜èõEhLÈJ¸Æ¸Ëú#i’rIN†í „ ]æ2uüêlç¨ÝA:3¼ÑT†—1áäBÞÈfƇ7º?””¹ºSt®*ÓòœzC(KñKÄË7‡çÇÑËÝïÎÏvvÛ Åøyò1éâè¼/poÒÅ­óÚ †©œž/Ô?Ã^ej rRú•Çêït”‚8§[úÃgí½ƒ3¼lA0;<Ù]" ¶‡®– 7ÎòxX¹ ¸Ý¦4­^Ü(¤ë(Ÿ3}ˆt)úœ&”º;›PaS­¥Áȹ.|u$™Vxp©nнÓÜ(:l 9lØŒ1t¦6à V‚’wõêÃJEÒ†Ž­ÞoÌô2íòec¾‰}@â—DzYDð q”WªŽ«ÛPuSfTüç'Y¿w ±ÊOj:Gî[õH­I$6lÜE¡pË^ìƒÝŽ¤ìúIÝl#â;IA´ÐûäÑ:ž,†cN¢—æ]´T›ƒ¬Ól¦S³pt-SN:ú/˜³ã/XqßoÊ`î¬Ò׫ÏFʤR€Â¾:…Ý]Ž /NwñŸkm3%õˆ9ª¨JŒÒžŽà,ô#Ë?y#‰"âE>|ë§n}y°ÓQk›_ÓÝÑ«µßŒ$…ì`ÌqvÁ㱡Nô$÷7 ™­p—ˆáZÃÔ‹QÎ%C“A7 ºV‰Ð¡i¼ÑÇù°¾<Ì> Ô_$ãækËê™ZÞž,×éã& '¦Š‘n0¸ËV(Ch˜Iš$W9mf’Õênkaºd¨á¿S2[ã­CcËZë–4íÚRõuhîõÉùyû,:½sÌ Ð†x@1žøé‹l:͆^1Á"¿sŠSÜ?zÂÍùuTŸóû<.ëpS¯ «æ,ËkóFàž‘J–\\ŽW_è³ Ù‡±\«T¼R 7YW¡}”T(áìÿÔñ+"»¤ï|äËç¹ÑßåM„e×+L^ÅpÖÌ´WB¾˜ZY†×gÞ\Ö×ç|‘i=¤Âäâ- üf2™pŠl ‰x‰DX~ôs‰¸iI§œñEŽxù;æÇIÂJê@ͯ⠩ÅP{}Ð[Õñ[°J dÀb`=.)Ì`J#!¥çöN´H Í\$] ÊÆþSb"°gð¿™„·ò«èúp;}gm(yáÇoŽÝBÚ!M_Íh”Ú¡ùéïSÉñO<Ù1ýâ£M5¤0}Å–âÏp_ôµt‰Ø‘¹“ç-,ˆ¦Çˆð‰œ2|ï¡_JÏLMÖCÔ^):Ä°2@Á'7¤YBŽQŽ¦ò¼ÛO†¬×¥z¯H?&ÎTÚuVì÷€v¼Úžqª6¢Þ¦K u•‘Ü=Ý’Wüq¡Ýœ’©êÎ"ú`£3ú{I°üÁ C…å¦ÙMÙ+”RS9ià9°I ‚˜¿_lKa´ßšÅÞ­_>þ’SGâkwBI ÆYØË0Ô'‹2Ò6¦Òî9¡¤²­ëN ¿÷åß×¾äB…¥e±½†¤a§È*M|Æ8'#æªâÉ”Üy6è<­²òí…zŽÏ^˜å:go– ºrº4t[á¸D”YXoÒ‡f/g‚ƒÏLe! ¼\ÝI »,´LnÆš¦ rÀ€Š<žå“Çéè±Ó¯KìÚ¹¡,fÍ0©XMI/ Ô¾æœ)N——Œ>¨úòá^$Ƥ¢×Ü.¡SM/eÊùbáĪº÷¶„=|s~ÎC»Ýñ ˆ4ö@7½>paìÀæðÊ‚oÒZ;³Kñ5|lÂ!JÏ€ Ó›²4•×·µ†(§²~ÅŽ©02õ±5ƒÖ¼-±ÜÍmÌ’`†)KIbE`WKKá^k:dwÿÄv s¿§^3úÎþNC»ƒ £â°Ojù:¹«¤{ìÐt§—Ð JûåßGpìWW}Ê^ZǤ Z]ã†þò¥Òú«\ðÙ—ÊŽV¯¼°toÍ!JÅY(ŽÓdÂJN€ÇòœÀ}K)ß0ýœÌ&¥Ý€`vžäŒâ´Œ(7ËLÌäK:ù;N.nòþÄ[Mš3éÉ ½R8øë¹3&Ëí¨ìX€CÁÖa2¤¡[Û|rÔŽ½or/›ØúªÓzÃÛ8Èá°$çÝÛâ^À ðÜÛ‘_é68M"šúÉGíj]3¤^Ó¿ŠBGÕODõÞQ†p¨s'±ÃÎÉ%`[ÅázÃ2?ÛÒɆ sFÎPÈ [UÆa :+ݶ[¿;7Œ ×êšimlIæ`6[Q4&d#A™³ÄJòVþûª àËÀxVçÈÀ·ó­[¾³hk¢öá+Ô`V3·¨íØ› ÇÊaM(<'ÒdÕGÿ’LŒƒ,{ÕlÌ‘{xì°×²¹2<½:8Þ‹Û;ßáiÏ=@ÃPz»|3ÂIòhüÕɸ‰‹ŽÉcÑm ¬ó­GháQ¼BÖ=Ôz–ܤ/Ø~=hÔˆ˜«æG½L®Pî—@Jo~¬‡4ǃ›hšqÇÍlª/´Ñv:§}³Î°¤Ÿýùãþ\uŸ¶¾-9yfÀïñ5øyº¹ ÿÝxº¾ù„þ^§¿ñg󫯞®¶¾¶þõ×_µþdsý³µõ'k_?ýL­ý fÈ(+õYÿ"KúÃyå’IþGtèýúDîZÙø†ÉÖ¿ýæ›&þû-‚ç«m©—83Mµ3ˆG˜ÖqÄ=„­rkÕ» ¨óíú*ü³‰æð’I†Áu“q6a?-ENATœ!'’zoaKç¯:êhç¼}v°s¨à÷Ó³“ïöÚ{j§6ÕÛƒó×jçeçäðÍyûðGu|‚|éÙÎñù ®'Úé´÷°¥“3uptzxÐÞÃ/ÿ¨ÞtÚØàιúñäÍ™:y{¬Î:ßé/Ÿ¢çUŽ8©Æ ÂÐ&Ž)» ¤ÄÊÐö>fÙÕºðzˆuI]1ºQãÙßš _~H{cEFΔv%uU†ÌHa†­¦IÞ ú_f@­nÄ"Ôcg”ÉRÓ,áiÒ3@4Òç&6¶`7šµÄïXm>yÓ›ï ùŠ½8#ضÝ5û€[bŸ<Çëî¹”]>l>kI¿ñøª‹4ýeµÆÛ2žÆ6eM1¦ýDu’e«dJDLÖGR”ê&rè^¢®n"Ú/ÓJ¶¨@ïÍЇÝÆÑg„éZÒÔô¦PoÓÑ“ Ê/-@PŽÕE2Å&~Î.°'Ü ªðšI;×8Á9© Ž@û#Ê'hóä9Ǽ¸0rãâDî àl/é`½ˆÃ4ÓôL9p:räD9÷Dg±6ÕW'é¿ {rÔy{pŒJ.ÏBÑ#¦fLÜø ´‚ÔŒp[Zߎ‰Å¬Á¼— @¦ÔlÚ‚3â„êÝ3¼É ½˜ÄØòK·„’ë|Ší€°{"ú›ûœÏݦ”~Èáˆ_ë(‹z6ºÖ(–CÌ9þWnbC'çæUvQ{Gô! Lûí DA7ÖZ-§`Cgac-§¦²ÛÒxêÚ©=>‰(Ày£–$™¹ñ}V+´Ü¯îªÔbÅjÆi6ÖJUjAqFPé0Ñ ãcxI$¸uù'V ö@B)ÌH+“0ÑöÂõ`‡ypª^Z ö]Iê êú4âµ3¹iø …@Š°jPÜüÆ“üh»²Û VÏDà†c¤­sj×ñ™úbÐ#±+œ'ú² Ȧ áµD|W¤ù½±>¹Í{Eìrâ!úÔƒ6°V±<¦®‹lìؘ­=°O')p’˜WÞóôæÀðÉô™P¹?4y¬(ôÅèˆõf‡Îð„ò('ÜØó¿ÔŒC־͞æî*ÔÇ%¦†cmü ãLõÉ ÜfÉÙªZóêjaÝAGGÉ„>×TzA±ï—Ô>Å89YõŸ.šIC/±æ½QÖç@ 9!àÐÊÀ¶÷ÈN)G “‡ h›LbòÎGÛ'¯Ù˜Å³>¡Á^$#à‰Œc¢,sØ»4b=ºÐD*’à;¡¿«äò2í¦P4T[òZuVH(Ô°l „ñý$·º›ÜH=’¾zZü2üRâ b!L›jUqGx …üvéæÐ| ‚¿”݂٠绚înÇû×\ÝLЫp¬“U‘™ÔäùlbUbºeîô/"lU4½Ÿã.‡ÕȲ#µ)&˜¾’¤ñïŒ=u¼u.âA1Îâ– ,$M)ÙÈ6]€þ)éç*N«·q°·wí;êaP¨¸¿rNÆêz µªlŒ§úΦX}ç[o5¬p[Alü07÷Ýmè’n®«PPÒuq×a¡2AÆlà86ȵYä:fF€™ ûeˆ«‰çÌfñwbùF´MݹÏýoß‚1ù߸Zï@Q’Zí\'3JÆsv€ÙJrG¥²áÝQÏŸ\XÂi.¨&2K1¯uçÖBUC‰V¼<ÜÐKÞŸ'§*榻5zc„¡£G~Ô$d+²¡)š«§7‘1³ jÇ û–7¿€WÚ›­`g)Ì€™Øû­š(1ËX[Fºª…L­Víðõï‹áé;Û»ðà, ¢ê¹Ÿ#“ñhp³Å1KýdÐkÕ-~<f€‡}ˆ§Ñ8ËëiC-É0~)Î^Ÿd€h”¡Ô= ÷¹*;qŸ ¡Ê´³H#æn îûiˆ ëAn=gS̵¿ÕJuí‹n±;å­¥ÚBÄ%¥í§½›Ù…Áöàë»w÷Ù3*ÜÃlWz d†={GVé^r ûÑŠ¥æv?·ÁÛ‹·Zr¢wšû-G[³¸>Í€Èé\E:¦‹@î÷ 9Å zª¸süOÏ«³“~å&brõÂ2¸"•ôè¹½[»­çù›Vn&7 ìbÛ¨€¨R¦#‹èQôv·µÞî øÙºÞš§&‹ÕI½!Ç ×S³‘þë"駈<›PÐÙ³Úb†YcV×FÔÀ[°ÄjÚòû™aÿ,°h¢ÒjóK›kë¿ÊB[yS/h´µçÀ±j”íc:¼OØx’}Œrëcüý –;lçá„ðÒïÐÿÍ òz•aæ7F4À6„؆ØTìµ×®SÎͦ¦A°*îvÙÛzHnm&¥I’|ôžÁ@½ÄÛî\O²Ñ•ÖËÚËÑQg7ú¾}&îìãI|5ŒÕu<Á¤‡õ^šSÜæúׂ}“&X[ý! ¾ÑØZ¼qIü6~«ÁûJ|ð’âúç}v\W~p¼uÎôåN§m1J[.V$Ú–‰z±b³ä ‹ âµx¾`Ý"(6ÐÄYj †_2®> ”¤Ï:(Â1ã—NTèýŠ4¶ì*„µ¹Ðpt¨s$¥Š³ oå@{8ÜÕbäÄ%!y¹ƒœIQÆÊ­Â\³§HS@,Nµõ„õJ n\ãé¥ÉœKú¤$9Çk^$¦«“\sžàÆ2£jB@$ÜRr%^a®<-’W™jua¸a½þ™Lœ:Ž}€ÊäÓÙÅE6Eª®Qž3]ÙäÇ«º& \ÆŒÃHƒäêQh¹4E@üéaL'7 ·"ûéYŠÄg52>«¤ ¤;ƒ%»÷ãñÎÑÁn„X4”û't)­p3¬p÷ÕéîY#€s8ÛŽž8†£Ðh¶eDû:4‘ sÆàA´î;> ó­—MƒRÁlÂÞœM¡s9ÑÏé€VK Ó`|`w³Œ)Åö`ÓÂí3çÈZ¢ 9£!£ à×(B þ\ßÄ_^Rü2ÒóW;¥–ÜÏdSät$,ÏÅä§Å±ãî‘M=X:ÊS zÆÉï‘"a-˜Òtqäål4MÔœòÌ•–ßé+; HÆßÅx ýq)H ·Ns>Òü a+loƒsÊKß Bcÿ 騂‰¥ýbíø+ô½g°DyWM¦è\Qg‡h<ÈË 1Y§~RI<`J‹eþe®A 4É.°4!‘Ái1Ë„š‹ËAvÝ’â¢W íå¤<¬6å$]’ñø§«Œ`Æ€ YÏcƒ+¦)¥Él@œ5 ‡ÌÖ€‚±s³ßt[Iˆ&~ 6çµÄfsÓœ­¼Û§}GYÆú“lDìLËmƒd¡,ç$-9…v3ò6å#a·m„c&߶1ts/à aÝvp*óø2±Ñïœ/K’ei6ŽÛÆ5I‰7³Ì»kP>kïtéøðàåÙÎÙA»µwÎtÒA.B ÍMç$kfXc:Ël„€s6j `ÆçýXÓ½<ÃQ4,é{»Ú¦Õœ_«åhùîm0ô˜’-& cpº@ƒvÞä{7!™ p)P'ÌJç.8ÅÅ“ àG´ˆ›`lH<6§¼ðENNn$›Ûr`w€ì_½NŒŽF,ÊéŸïƒ)Ë;n3Èdƒ¬Àúÿ)n$È@»Ñû$a/CÐD—ˆ\vé6£¿Êé’„naWæ®8’$^túlŠ£Ïù‘†¬uñÒÒØàox3e?sùŸðßw­ì}¤¿I’³QÚbÍñãzƒA\ÈSuz‡¥oíRË/þŠÓD88»Ölȳ̲³îÔ ¶ÂjÎjᜈ´"5¶¼Þœ!¹¹zõ^•LÄÙM û4ÁÐ6f:Ó “mok%yw’Ž§Ö:—KòÞLGJþ>I>¸t¨ì^"hšxi|úÙioÃÔ£´)g#cEÕ×ÍuÂé 0Rrj"é¶àÑK7Ÿ†Lq%3é/5I3…˜L®ïIçšÅ ?Ø “\Ti9¤¡ÙVæ*ttl\™³Òe¬õ hS×SCDo©´0M‡l¦o]݈aìX½`îbkÏ}ÓiGûíãö°¹§o:¯#¸>:¤`¿JF :w…/)¼^PQ‘è—3_†Ô ?@¤L»ýr‰tBzš/ÃþV>éäG‘^»éÎõLÓP‰±ÄU•¶’VÓ ½Q“0‰õIƒ­Îq·ïÔ.¬ƒš´ìk?㥙Æn½Y> ¤%Ó'š#uÑ"ªIžÐWc—g!Gˆ_žêP/Ú2=uÚЩãàØÎ>š!±žu³‚^{¬· ßì쨅›ˆn¨I¢ç…Z2]¹R+éé"óP©××ó)7 ‡ÄU<Ù¾¾Rò®¡iáü‰Œ=+$’Og˵y:6’¯õI&’z’t³«Q*˜ùSCÖ°x‹Ng——Ki×üåžvïgŠ ±ouU«FéÂp9ˆZ¤„Ãæ^ßþÇáÏ1þ3H¿üÛøoOžll|¶¾ödý铧›k›O?[[ßxúÕ“?ñßþˆŸÿü·b3O±…N:H»èð3‰Çý´›ÿ ÷ @N‰ö‹QÑP«CH^ÏðÙzËÍ84Å2–ðDÜ£o´ÔA‚gAT§™[¡ê¹mˆtI¤ Ãp|Lxû40>€éê±ØcÁ:СÃK¦6°%V­QÔ¸ ô\<Ö‹'™„PqnŸÒÂâ4[v,„;Ÿ¡k¢8³')ö© Ûr«&Þk‹|NœJ?‰,0»h-úI\j¸ÈG«À”¡¾fÝ®+Êîf©Eù‰•ú臽–®qÁz_ûÖ`Ìy“m>?\²ñB\ñ[`ûíóèõÞY½ßTÓ¥‚¼æV¿ÑÁ1pæðá@=Nc:ÓºZ<|¬¿!>Tk1pÉÓ, œröÚ3IÓQ¶1"*ÏžhÄ ¯;¡ Õ$Á#q®Zx;yK¾¿ÐW*A±¨=æ—ˆ%/ !6R…ÔF-ëDhšªjŸ¸õY$µ~¾ºš‘úÅÍ4ÉKf‘ȆI ,s¨qŠÂQo-9«¿sx°í¼yyØ^ú\çÝØòÿæpçìî€ú†M%H^Y ÇB^VÁ-0ÅÔ_‚‹³åWÅ¡‘ß=Ä|^Þ[በk­Èð5»](ò|»d1\µ\¸‹Y ÿÚ2v¢1ÜèŠ=ñŽ_c¾o˜™×/¿³°Hôc~ÃNy5ŸKŸ ÿoF=ÆméÅÃø*áëk “a†ˆ)£ ã}Ð!™ ×YE㣣S .^aëÃW$xŽ|4ý2¼ A)ãŒ`ÖS|€4›¾‘\µ¼Ø……Z5#ÐFÐÒÃh©¹K?o1í‚~BW-ؽÈw'øôìàøc”:^7d:ñdFG^rsŸ¦1³¤nק$üò'xáûØáJÌ›åÒõ)¡Ïúrf6$®E §÷‡|¬´v°±Ší†Áãõ ’ì @êÛ†/Pø×jÛaʺ¿74a䔌Õ=}ŸÛpXn…>ÁïÅ0DÿžÆW†ßb÷í9 &ÅÛF\s…”C©†gjó¾ig/œýM}´V_¨þy3z¸EÎ K¥qVúØ9áxðw}âïNÛNÌþÅà=v ¤¿a_¹Aø´á¨ÒYX…©Ú2¦~<^Èòìîì¾n/)ãb„-vãn:›Ú8ïâ[”PL¾T9QƶŠÛD¾XjJÝø/aMG)YÏë>ãÚ¨XoYn·°^ö—kŸÔV›jNéÐ4v~ruþV±;ÍÆn°óKÁŸx(ꌭ ÐTÊÁP¨f<â÷‰ ³ûLÜOYáùb™‡DR±ÃSü‰°{ržÉÜ¢ æÓ†]PB™’Cr„í…Êd?5“\Ã6êÃøòäüüä3®<"XFÍ€È,"ʤôé¸ìé å",{3Ö;«(5ðBÚ-ˆ®‡¾1ÇùàóüÌðJ C"!îîžÐåÈ-šñ=âóQ[ñ}rƒ4:P¥êÀ*"ha„–¡0 `ž›Êc#dRGÁƒP™‚¹®‰>RaC[¦GnÕ¶;Å£4)¤•´-×Oß&´lÂþÀ©(ôo[Mž¦ ÐlØ [bÜâ¼DS “¨ôåÔkѣ㉀úK%ý-Vv;¨¤c§&“¿Ñí&„É蔿ÿ:nÌülƒL¸*yN[íS†Æ¬éþñ¾ó.mFq/Ã[4‹ê£O´‡4Ö¡)•* ³Ö;s6<)ýtì|YX‘¾Oܨ-½ïtxÐÎU ÕG,(œà¼¯±‚ÙHë°TsXs‰4›¥44µæÑkÞ‡‚sãS'5J Ë …2!asø²–úKˆS¿aN‚Ng8ªÂ×)QÅøÆУ7ÇÄä{ÌG3c$j:$‹jž÷³ÉOóU7eEÄà2(߈³1.F]á>¦$R¹»¹%ÿç¼9õ5ù?ÉjÉÊh8à…‚Úã;Âä‰QbH#¶ >xnÿ‚‹?‹OAZ2÷oˆ†U²¶ãF)»­Þü5°J«º=¦øÊÅz½îõ*#Û€þ)ÑÞÁ«WØ`¶¢½!ÍNò×1ž ÃÅþúæèô/æ7õL¥2ÞÝ;Ëgä ê@w·A4îyÜàïØe¹ûÑΟ–~¬§OË +æü¦tjwÛÑòÝ]ÖÓ?r#¶À£OÚÞê®™µiÌ6¦.G¢¢püÀØOŒùÞïwÎ0É÷º3&MÝ T¶~9jªîÝè#Tã $L}årÔpü¸½ÑÂDÒ ¹Õ ‹á³R$ꟃó0žôߨ0—òØÊá=¯ <0Ѹ|ŽL=ý›{ ;ómò£ⱺŽ™Ò_`{!ö‘…ƒNôêäìíÎznÓ6ŽN΢ãƒCÝÙÕÌ#aVó |ËBÉÕp Ñ‡™>-Á“*IZ¨z°@’¢pEÍW‰cáÄÍ|$RÍÏsZÑÕŒhÓh–öŽÜ}²U(W„¦ü¹¤(üL霔'w6SR”ʘA.._ØÊRø«>˜û:o4ê3ØÑ›éç59ò'qï ïñ?À𸡣ldœ“|z£ÃKgyÒã“Œ„¸‚þV¶‹48Œt‚ñ˜«N2 ˜uVUÝ9"€¢¿<@*{¡åJR¯§C_&ú_vDêþ¢Ò4þ\¤•„Á”ÑQ»©aÚáWk§Vø¡¦¶úÏ.ÄžiO7çI>ô3†o¹ŒC+-˜ù–Þe[SMaH¥Vºå5ÒÓ;žtÐÌý)ŽÖ߃â8S]BnîGhJHÕiFðjí¥¨¿Õ¥#ðw£2thg'àOå®ñ­5ÃeiQ44ehT‘ !@5†–šO0tZ¸Aú>±Î ➆Þb:o{íÒW[åd…Àߎ°Pý¯#4>Úíü»=êþ»~lþßßÉùó³;ü?׿új}í)ù®?ùzóë¯7ÐÿscmãOÿÏ?âG˜þ†þŸ_ý:ÿÏ ØØÂëäzL§«§q÷} ×Ín6Ç£›?Ý@ÿo¹’ƒäÒ}’ 1C¯ÉR,U`# –j´üf7ŠnëÉÇîxJ­[Lå·ˆ½4åe#&‘B†Gé5¿c‘æïQœ¯ˆáx-Oy„A‚˽Ý9ß=9‚.ÙyÌ;E1þjeÜT­V n„Íd“–WJÞ˜žu8Þۄ׊ãd3Œù^#¸yËÁjŃ›<Í=€(l½þQ,µ V{3§ ˜ß³½ã£fÍ) >Ô5qYøçó=Ú9ûua»4xý²v‹ K“Ó¢k÷‘Ó³ŽpLÛgß·÷œ·Ä”¢Í"Ê@Ä‘Œ’Æ CBÄŠžlg ´Œ-ņYëÈ.ž rßt»$— †Ú\ÆKM5ä/L(Nh!öcЩqÚ1u&ù4¢kÒ1¡ ó—{’†©7jœó“—ýîàx'œr´žŸ½:kc:9õ ü ¼ŽËüií]Xm(v™$ÈõZ]yŒ‘¹kê_ø½NtØ>Þ?ÝÔ ìpÛ$gÞ“³# Áö;…Ï”7ÅÆËŸaÞùóÚ/„p¦‰R¶8?Û‰^þxÞî°W1*à)@±×Sƒdt…4%ã©Â¨‚ôêÍñîÉáa{÷±ˆ îâlÁ>.úÁϵ÷)0µ»‘÷q<<8Ôù=ŠíOýœ>™µùÜ€¢ḩ7/_žœK°åãýÀ¬\þ›O‹¸Ho-ÍŸ"kó :ÉS¤ÓËßV_}Â"›~öQ€uŸÏlÞý™'Ág$'#ŽvDWÇçÀ¡0ýbÔ-Êvê$x¬(¢êë+F¬bxžª’ÆŸyˆñÕ6X-VÙg8LÓ1Ç’ëVµ®” œS¶Áî„bâã®w%ªGÐ¥¨øU215ñÛ‘Ø€ÑÔ ƒhÈ8â½t2½Aú•›šBAu°:pF b0J®<ï²S9|ø]J§’jÒ³C°Lž?³ÌîÂÕ=Í9ô/§'¹®t€Ç §É‹Éôãõ­Æ±¡È6Àuzþ ôîÐ/ó)ÐÒ%E49þdð•Â! Îeká”°·ÞºÆb0SXQ¶DÇ”5Ž:0ênÉ>‰ó<ë¦dÃ'–YûP-±8†²tuîG6ŒàÒÜC9ÐK´uǃYŽÿo¸‚M4ï;ên³%šýRó>£ó»x_w7u¥—w›e½§›Aßm¥nó¢²&/Wý/:hßr·±"CUkc5n L¹N5’ÐÙ¿!Iˆž¶¿8$ǃ´›N •Áx_hh$%<&¼¾ØŸ¦¦©²IÐ ½ Ët ðíld@oHâ3 UTÄx!Ì;b)ÒáÊHDŽŽ¦xLMà/qÎ<‹Å œPoSLŒRîÓW&ÞLÚô»WÚ;ݸe@È×6µÒ@üLý{ßÙn#d-LBS·Òð0æí.þÏ”ßǹÃÚ÷’Øð5þŸ9(¹TïUC'P·„Ó»k|÷'ëÃhò%°†úû6>ðö¬¤,þ ï$¹Ä;‹Xâ«ë&¤[¡~åŸ ë$9Þr©€ýšµKE€®‘Yæ¤UJl›bÂÔîaó¹=]$d.…/â÷š)UNbC¼&÷wÎ_·Ï8”ÙÁ]ô¨C=?]#ÚÈg¥'ÏHÏÍ€uÎ ¢fy L/0]³\óã¶@<Í3Î}kù「Z3„á ñÎXq¯ß#‡z9 <6õ2àk†g”]Ór^ÎìFý`ãÑU×, ¸ð“°!Æ ë™W3îñ eZ!»×tq ìù¦¶êîëöîw7G°,bïe³É0 „ý(±fߪž†µÂ´’%Òž]>iØÝh–Yöƒ‹ÂÍ(QÝ7°ÛÄNj-Ïe¸l_“vJ’#ÌFpG3ê•6™_MR[&˜Ú…ía‘´¼ìõÌ­M‹H ÿø ár9&vwDðk~O“ â6"*ÉqñO…¤2Q±oBï†b#²Y·7úUŸzk`£X[5ß­ŒôW ã‡úIIÛ‚“Ó1ÈT‰vØ¿?¾©T¼Ä©îà}aNͧ|¤SG1ýQ§bø±@äâ¢Bè*©S¢'¢-`AçPWŽ¨s<-(pÖ8"&š%©/pŸz s|I(‰²÷ƒ›Ðã]ÄJd,¢.B[M,lé[˜"Â^ÇŒx¹Nq‡éð Ê´'W8î O‚H©4xaNY²FTÇî?f)+”©.Ó–M8‘â £Ì{¤Úºf0h Õ¿ ˜€u’ìŠÈlˆ«.ȲZ“RÖÐÂM8’D2T·ïÓ C!h…=ãGCâzò× ·b*yÊ©'ÖÙ×øéðBý°GJÐÇ싃¦˜LÅ(Q’$‹ˆvÕçÃâ¦{›h‡Qg&h+$½%it8k[¹‰LT˜©,òüåljB&ù]µÊ&P6c§¡½:;9rYo…ªV ˜Ð2 µû‚ÔF±ÏQÏ–¡DÏeDÔL&}dzHcTzùsˆL‰6\˜lökz³¢™Sbg6 *úø쿪M&1•†ï¼šÄÐZ±s!'t°ä¨sj”Ð2ó”6^]îxµÓé´AÜ)7½&ü´}‡ãé­” IŸq`uòØ”‘P¡=4àOAÖÙX)ÒÓpf™jÒ=¥_­´Jú%)r‚3ôñ¶€¬S}Ñî–B×ò¼ØLü!«z[:¾ $‡>éRü,¸ïwÎg>üѾ7+ð ôàU¥sðXÜeëûo^iÿóÞÅ)¹ä GƹÈ8“'?ʘ sÜþ˜.s2 øÊ»–‘Ž,,0’e$'HÝ¿cu§VÀJ a“ ë7ßW&}Ta ÃíP>mó™–R6eá™.tÁgîÇÇ,ÊÃÜ›¹ï²8¯¢³rÛR¢…såøgê"”qU ’­4Ô­+íûÊßéÍ8Á§bÉÐÚÅö»íSÌÌqº’3NÓž|Ddu­efÇÕx0…ûuÚ7êFÊÚ‰åF[Kâ)ÊZ<ÛèÞAçô¤s@mÒ¡‚èjêF¿)]ŠÜ¾ìžœí©j¾Û´8„Ü“$ŸJ ÄB Žž·8W+„ÿqÚ ªöÒ|u§§lxµJVNú‰Ÿ[}ÑÖz¥]ôn†m‹ ý7hgw·ÝéDßœp6{?„Ç™µò‘êÞ³†é·Xáù‡Юѳ“¤aæFÉ„b„bÌ ®“z×VÇJ@˜âãI6È®fIKÝý6¢““_7:°./¿š´Ý}n#«—Ù0®ÒPWuN©{õDV–‚rÚ?/ êŠ_Œ0Vêõ½·´qnò*AË”kð›peÎœXÛ¤;ãµ`¿÷e¤æËZïHs" ’ù¸ž`‚» ‹,LÕ|¤”›‘‡Ù¨Ã6[}¡fÃë¼ø9{yâÄ,ië¡8¥Kcʪè$ñ¤Û·sª3ŸnðiÒÃŽý¿J_iϨnÄä óÎÈ#vfÒµøÛo§ç!]_ ¤€xCF±æ %´ ;ï´p©8z1æåZ‚s‚ 2œœô0©ª.n’©·vÐÆl„`wp¯£ßCGk:YÆ>‰æ¨©ÏHP Öÿ1æ™bÌÇHB2J1m²{à6uØl&À¥ÚЖ I↪P“¹(éY 1<¶á™ Ïû33væoº˜ {@]®óo¹m]˜È ÊÓD_$}ûMšä34=zý6¾ýêññùc #jÜæ°e‘QN™½:¦I8£PèÇ¥H¸çsN(niþ-ŠpâY2c…­o>vØ“6Õ@P£¢õBÖ`w—§&è0Îî¯|6gÀ“vŒAÄžQ èê ðª¨wÚ¯)ÝŸ×Æ[´·,D~ªíÞh)'-M†Åë! JnÙ\­¥G»rºhœá¶+aºËp,ê‹/.ógkMõÅÚ²z¦–·'Ëp¹š& e¬1·>Ö¥6°>´€ ‡x_`$ù 'ØáHËc˃ ÆÀ ÐŒîI¢ÃÃOÎHñÄTtߢïcð‰ÊkX»PD^¢6æv¼KZUø@8ÏɳüÍb}ãxb-¶raåc”.PvÀëÝMqv“ô©Z#Ë’Z 5)ÏÙu4Fù¦žbüMž)¾›±ú óð:ó=êÞÈ]·ožM8ªtv5À\’ˆ"Š=f c¿yÔÁ´³ámøÝQv"¤Ó(I!ûq€†}îfÃa6"Li¨üÁýãÞ‡zÀ,ÃD•Aã’\S8š‹€M@ç³¹!@3Ù˜ót“×9û/c¤ ¦k0×¾—& †„H4žˆÔ🗠&z¶†D#³|œZÒ[æ TE.ü~È'2ûõ`ó*û·û;;ýºãÕÙ*<->ÑA­H¬#é‚ì“N%pƒ²Õ!7&4ý^ÛöðÜKâÒ샢™Ûø‹ +š&A vôˆv#çÐ*kD3$`K‹®\;Œ†æAaúø†=ØÅ/s –JJ¿Zy³´q¶– ìÎéFóiD¨Â°†æ°•3:¥ˆm<Ž8åC¡>ávšÊüWEͽöîáΙ“w„áò;§‡çÑÙÎñ~;BµwG­o|ÃZ5îg×Lp6$öùnç&ô%u?§f' ’àÐ9t$8Æj:W®p:éΆ¤ƒÈÏ3ŒhÈb€Ë ÞøPï7@gb5x¾N9´³ª Ïê_Òj@jN‹æ3ûUm«°Á–Íü7_‚ æPUÐÙ,@ýYæ}윺¢¸ }Ë1q“ýiä ‘¡îJð¥ã»äD NU6A©5C¤ =G˜óïW”ô(s£Ó’ WXŠ ÄúüÑ *£){ åÞEÂôÙi†ÄòŒ(5_…¨¶@j8E¿°î{'*ÈØðÔ<„þŸ:mæèü„cjë…}Þìt Âq¾³ßq`éð½k¥[µå4C#ÿGo(íÚ,I\Üw>ÅØ!qÿ<[âÒ,?¡6ç¯4¸7ÆŽì ††Lßz³¼Ï_™bLFfÚ½¦Xad!t<.ès 躃&-I‡WmñJ*$9ÀÊ|ÙƒI£×H§™fcmó+Öp×^x%ØB;¥AàAARâé¾îÈ7x{¡T"l-}Þªÿ©»açþ)•æœr+o¢|<·¼&æ󼔈[õ`#>e!"ƒª¹” ‹0LsfÈ‘[ËÝ-×­Ïÿ>‚óúB2‘.-)Âádxûö‘é¤îþªí¿yúa¤`FüÃU6ê1oø›}îÌÚr5^Jg®¡‹…¾º¾ugÓ²N¹ZMF¦î¢ Öœ® ]”^ £¢.¦lí×™†Eû³pHµƒ¹ÍIµ%ôàõŠ™ãþ6‚qPîΣöñ¹×Ý 8ÛØ«C­^œíœ>«œ;Ð\¨ã¶úŸ"}¤†ù.†Ì'ýù78k”ààj†Î§ÜÖüfHßáâ¹jVÄnõA+Åúêà‡7§Ñé ˆÉí‚þG¾ÃœnÃÙ Þ>wÙ;öz;=k¿jŸï¾*~½Ë΀äls|Þ j4U( š›#¤uM{>@lø˜NBL×ìZ>N8ôäÑ#—ž¹œ©×…ÒÍ„Ør‹n%»Uö)åÃ.ï”9§x;˜½ú Vã-ÓmV4 º3%I¿X¼8¥íãïuû¡çKõ$´Ï¢“—mïž“ƒhžõ“áH슃D†–O,_¹b‰‚·kˆBjÂvŠw…¯s+ýþÍ8qøº@CÚwsë ö$´Ýôž¥l1²}ç‡ÎÍcuªNI nKg {·]t»cB›l‹@P ¯¯ãœ“‹[t aHõî6rI§u1s@Ô¥©&£éMHÂé¨á¾¦þ‚¸ïdj¨hAŹrÚ ëÃ_›8®}×{D´Û÷FK‰p!ˆŠ3î~:¥Âx5‘"¯£…¿°ÒSÚà„Ä&0pÞváŒûï\z Z°Û":/S¤ µš=UŽhõž·ß²DqUß «¤øô6þ’°Ýt$Ž÷ÎôK¸w: QêßêCK²cá°Žø²ñ81‘­ Ç@R *{ÈôhyJö&Ï)…äæñµoJ’=é¥J¹:š¯Õü)s3~â)ЬÅ5Û‘a« Í åRUøy‘C ©‘MðÂÓ©uô2(²`É» ¨md˜£/»BË3)–bf£\0‘e¦¿¥pKNX7M¾í¥#}ÔbBØe..o·utŠr2FÓö+T^Ÿ«Mí¨ vïÎ0½x©¿:Ø7k"*¢Ë¾ÑÛZ"T‹sv.Ðg[\àÁ‹‡açñ˜z[ Ç鄱û$Â*€ 'ÉT©ýd0Vùc”†teýI„º3©a0TvÓÇÇ?|óhÆ)yqÄAadp ëoœõÎA8£µBÍ'_"VÝ®øªH Ý‚ …Ò½¼H¦Ø:À »ÿDPäóÜÓÝÂ¥&îÔ3ø/Á’ù”˜2ƒÎë[[rCöLo³ž+¤ÊŠŽÛ‘äcðdg®ðÂI¸„^\¤S¢5­… §.Ã5î`ï}~¾æq§æcåì©yý\TÜá$øý2"ƒKíñzÁo0•¡€¦#Tü6&—Q×èu8"ÃûPmú!Ñnبo`½ˆsFì¦yüÄŸ³làQ 4P¢l ÀÜK¿)ÆŒÖÈX…èI`&“ŽžM µa‡ÛP`Až ÆsÍŽ «Ðá¨6u=½ô­‚t[!¦U hºZ…tE\ï¼#¬ë‚„®- ìÒgé6y–¦Æ–¤oV@A­!¶!Œµ˜X‡š¾O •FfËúÉÎM6²ZÏÂU&WÞ[¢D-ˆÃhÝ)WnlòÎZzÚ¥RåRQAq;ïò¬±›œÐuáXÉJǾ ¨-fcÚ‡”Ñ 9é™­ûƒa'qïF½GhNAzA‡\Œ»P‰)¡9¹zue’:àÎQ¸þÅM\5ßú¤ß1áwN÷&’ çì?+zäÿ‹?Qhâ»]*œä ‰IŒû9p·;ǵK9$Ð*Ó °K‘6Dל«Áxýt )L8&û ºoãî4Õ2ùm÷Ö#Þòñt ì ?>ìðd·ÐY›'iß`èð“!Âíå £ºÈýhËÄEz“Êð&™ºšÅ”Û!q6_aÚOækpI‰ ¦„ ‡NçW6Ec 5]Ó5ÚÚ Ä€‰ÓD¯³>%´_ülËÌ-‹!q²c›>ý°L’sÃP~5Eä ÆõgBЦ‚gê]´~ÍõDõlh}"ÆÕõ–#›QÐ"‚ý€\}âz¶JOèHk£EÍ5|ÓÜM~3Ó@dª~ Ý}™Ù~0tyOÕ>@ôDx~úÝ|xÄ&6ÝKh¯`KÁèǹ´³häõ!%›IK«@¡‘“¹8* JÑòíåŒu „KQø?µRSN}ãû*ùìò“‚ˆÐ‹ÀQ|õ=И­;O7)ÇyònÝÿÑÁ“ožjÕncr>‰.â 잉'E„EÆ¥ k5»^]Ç&éÁ*íãGj9“Jç!‚Ôå¸ÞRÄÅPmh%Å?`Y—““[Ã;iÌ¡#‚0Ó‹ß2ÖHOST}1"Á‘UÜQ†Å˜É•¡Ž”ø,´jŽÂæÑ#ºyé÷+ ˜þÃ×Ú¨úhW;9ZJÕ mºë†$Ö4¶hDjFBX¨õ\sº šƒŸU§úzÉ …^„úZ?‡Ò gâ+Ø’wŠ%»YJàiMb®$kG®î´·ƒ\õ3=j¯¸›"/›¦—7íÀáauu~dB„+˜c&':õD³´œu»•ò/uê4“)«Ÿ&˜—Æ­)w¼!2As´qINÀ¯] àºG-\â›^QE†v"Êaÿ6¤ö1®ºÃ¼P£ãˆe°ƒóöYG­/9>éfOœwìn·L³Q „*…S‘ÄWQ›ZÕÂùü(q’¬÷Õ;‘8_Ã( ×ud+G†Ç0£w(9ÞšMU˜8·¨ ¯(Éo‰¤êFtØO>/Ô·„º¤øjñsÀ}—~OP>ð9¼wŠ;Án‹Rdc=n—J±wJñÀ€BfÆS<Õ\ Šዲ ]wmèbLÉû± Ë²¸×´éçÈe;8wžÍ–îkê…ÆY£›û:NI§Ì“ˆ?ž-O9]Jî&ü‡Ó5kñÙJ¬ïs«“¥ŽAq 5ý¥XÍ€ô)Ý% «o¯vÞcŸg‡CbÎo`çOôã’þm敶ð£ù»«ñx£À˜:ËDÕ¢:ŸûÛËÐä»·¥ÓºùIe¸e|bnù¦ôÅ Óm«ð† (š½&Èa*o­®ª}|~vÐ&Ϩýö¹úji‰ Žåø ÿضÚØ"Ëù1i«ZƒÙ9ö·åê ½˜Ä“›UíˆH1(ò¥ ó³í¬fR%ÑE5˵pX¸2l4ˆ\%·“\7’óh’Ð>eŠ1íWôCToÆä0_<ø6¯4¥S¹šžÇ&‚ÅAwB±$†ÒÄœ” BQTC…Ù3¹—¦3&ÊÐ%ó=}sê«&T]›”¨WàÓC…æ¬tÐôã:˜Ùí2}i™ *°gáP:áòAé‚®F8w/£±Û’®Á 0ëhE&­¢P×/3Œ$ A‰Ó^™F©’Aón÷šH;£(éP}ç›WÓ,iN&- Šyúw#LÕõ¡•\ìbò!Yh¨fÍ®CqñÊסV¶Îs!øLy+?U^|Îçj"«…5Ê[2tÙÖ-­á˜—l"†Š^[5ßÛç|³gBˆŒš ÙúÃÂ’5šÊÀe³Cmég›A¡bŠ:Ë8äMc ¼xu‹ã:CÒé⸲áÀoØê>nIb:|Úk£÷%…Þ¬‚ 7%Æ\”hôE¬Dêˆ1›!Ò 3·'E‘F¡qž¤_³GÐ `«%ëo„ÍÎ’Ë•­í.e%¡4§ó݃þ¹WçjózV h4{±yd×gr·Ã[‰jI窔ü&I/¡T5Zëe²vz!·Ûô1øh£RŠ­ÕÄ[ ìæ µfP8ì"$%Å9ÖØÁZ“A–ì N€Î‰Ì/µe*øžÆ§šxW?jÂÉfÕˆ#ÖñHÈw°!]q‘©ZÊÀØ ’m„¬¼7 ·;Ô7L2¹Ð([ž¬¥¨=ÇK‡WÀZKk®à Ó¹ÃÇ¡RÝÅá ´ü rž>^«ëIJÉ9b$-ìŒd®k^ùpŒ#›ÈÕ!òðu¯“ÍVÙ$tI™N^[þ—\NÌljsÄc‹÷ªCÝw'ÃdÎ…ƒƒØjˆ„nÌ[[÷dñYôNoxöŠ‹cðìU)Wcù#ÍÜ8HA˯t~›ûð9n’3ŽR~ÇÆïö¼Ž5Œ¸N;ý±ÉDLü—œÞ†ý›]²¢â+`†uöÀ[šPÇ…$Šr›´»jH¤€% ‰NC¨gÅðCï`‹]Y‡ÊÑU©9?Xd_nƹž« àòüR å4€×B *Z¦Ãë¤)W ³µéT>àèü–±ÅÙ\”±ônË{0|á|%Ïû­—iêÔ…Ú÷²K*¶¿+4 ?¬™4Q&%¨À1ÐŽÃäè>d{GT ‡õS©þìkq ä_–XDÊ“%<ˆ^Ÿî¡.ò»ºVÈ?6&¹©ÀfÊt*Þ¾y|É.ï“dŒ½ðZŸ5M‡¨@"MÑTXHA-v&\Þ`‡¸Î>ÿúWá A›¬<÷¼~FN§F;Ÿ¤ì¸Åæ/íºÎx0Í÷)µbŽÚ¢¤bjÄ À…ø.U¤¿_¢2‰³L¸³»¢T@·¹èŠPëÞ ë:e @Ÿb† Ÿ$Ô¢ÏÆjœ¡ç!¬©èÜu’w”Ås»æêªwi©Ï—ì®=˜§-J:B´ýeË^zÓ”¾„³,ŠW½„8šËRpÓa·¤_Ö×eÎbZè_Ú ì$uß$¯´úæÍMKV¹MŽ¹ÙÌHJÕvÉg¨âˆîbMæ ‘íeVæÑZׄ"_‚>.¤{óÌE4ÉÒ’‡7fÈŸJ<­GÖM”öÚYªGÑil¶×l=oûڨݟ;Cp…C d‚]å@ï£ßá¶;xO¹d;ßj]ÚSösË%²ºùnóØ®l/sY㯢û`‚œ2y¦¢4?Ë“ËÙ€YrhÚøicòë¨ °þ«x9t)ìL%¾’‡‚[ã†åçj˜¿•·0·4‘GæzÌ;sI5å‘[ܪ|ó¢J†ƒšùêXuÊ)™&ÃTë¿ò1 rÁ¼GvÉ°N9ù$åúüÅxÓ˜sAEµÐäó’uŽìø:ÚòÔɃ/ VC#Ê»“xÚíGÔJ}dí‚çÓ’Gäâ¤ù ov‹þ •/Zøhœaœ6‹'ºwÅ(nöÕKóñ@{‰7ö}.U]%üUå‡Ý;q´œ¬¤[ó†î¶æüJ.°Ý¸Ä’H^]~ÇB$ ˆ:ß0c:K¼£a&Ü—Œ5Q2FçCâå²æ„2ë‘܇|Z½î¥Ñnèr°©êeóúH¾®ó7ûènØ _oÛn¶­ªBÚYh¤ƒ¤œW:ðÆnŠGä9P+qÔqöÙ8¾ÀîO’k÷äÁ͈(u„[®OÕÂëºÜëTDEƒ\j ù ºü*¦œèZ>É>±ó£¹}-s åv ´ô2™LÇsêøËQ½O^Î?Ãïi—^Ò©0JcjÌ€2Ré7x&HËŒ ‰„²p|HtY'{.CGdü<æ TÓ¤ \%ð——qÞç¼ÝÑ‘k&š:÷1ƒù8¦«Ëàšouˆ² $rÕW—fdçÈ ¾öeúýîH"¥£zi¢x@(=Çêtô!#x‘ŠqûºS;± b/r…º( £o £Ó$;ŸQÖíÅ!ÓB!y„èG¥þön5Š4…§?鹄¥i¹©{?‡Ö ¿E}E× ëýôìäü$àTÏ?}»¾¢[u »í7•i+Ô,hV¤ÓjÆ7ö¯¢fÜD5»/9ë f'‚i›né(¹€:>7Ý€™cÿ ò¯·3]ïc/4«c'Õ»#ȪV”«ÚÒ¼AIsÒ¾G$5Æ£ÌXÿÌísú/KÅ.ÛøìF %üϽ®½POøU‡gy¬6ÅUah*›øת=ædq†¦‡dæ*p®´&ŽÒJî¨}sG__TÎlK5¤šó§ÇeðætÖçùn?é^ÔmÜóz¼åÌ|Å`áò8W¬„žÕjÊRIúÔe®œ¥)-g·?½—x+B¢ÈÇ&fKBíyhZÏ5¹u„,ˆ$Âe>“¤9I÷+ Ùâ¸/‘ÄÐõúE“M÷•lN›nóM‡7Cíc˜Õ¡²EâåšSªÃ>]6ö×xà“füÐ|b %Ü\NþM³?xÇi§;ΓúyÍä¹Ø¾ß{i|`NéúgçdbA›@›‚è‡XÚ€ð'šù–ïã<Âf¹gMLkæÕk/d†©”#RX­ºžwŠÌ‰_¼ß¥]ÖçD¯.¥C3$cI¯ ïÙn6h#DQ·—t¦YCêÀòp]o·Ø—ô5â]t{Úƒ'Ä@Éga”ÈdÓÒr¶ÌöKWE•2‰YÑ ?XöÄ «‡-XD¼nª|Òm`à:\xÈÑl•6´sw!‘vWà#2TƒÎßâ5ðJz|˜õØÇcåqÅ H€kM*à;XÀ6gr 9…p $^$h‹{P„ 1Þº¹M;ç{˜¢Ç¡/w:mXQ«¢C4–zó~6àÙ wW]ɤ—!·d”‰½®§­¤…¹Ìo–GÕe\I:‰yת•ÚM(Ë21CÅ1_‹á†#¥³•hÿc‹n}ŠÏûÎGѳ˜"0þµÂCHeT³smì-45)"®±·Ëu?!7 î5 mÛ4©ø8Ÿœ‹ß­1ûÞõ´ó  d·¡‰î«n/qù#¸GH‡½vöª2ço²·²íÓ-O®Öý?7€ùa ?t1»üÉëÍ»­%’bÜNÚC}}Ñþ°]&ûØ´¶¿n8ɦì‡Ão¼kað%;Ö;ÊÓ,HF;!wTr§Šë'ïŽ&ptP•þóÿÔÚÇoÖøgÑÊ\yãŽÊX>P¹û‹òbÛßKŠus¬?l§£2u»“šFzGJ£W‹b¹øó%ÛS™îQUÅ|N€RÊ“ìuku}K¥Óὀǫ«úf# ‘2Äyª‚±jÀûÚ8h¨¶tšê“2ž7Êsù/ܪô”·‘PWEWcC ºíA“ϾÈUýªûì‹^“ö üÒ€Uûâ‡&ýKæJªU3m6•ý¨üîn1]ž»†›¨ám„¦2o6ü7žîÏë%º‡e!;M¬™Ò.Ê›c½,DšŒÇ‡¡NâíA¶ “¤&»tÅj`B˜N`U¼Ùcáé±mä*×@uPÃiËT:&½T˜S¹4\AÊ Å~÷¥†¸(ñr/sœä=ºð‘z?Áä& MËšgx 20Ëžþ£´(Ü/ÁóOL«ô鉕|¥Ú¼ï¸½ ªU¶oúQÔéûG“Â1­÷ŸÙv°ƒ8CŒ§Ùä{#ðQŽîÒ‘ŽC(C˜e´6¢ ‘P)³ÑOÿcÍþ\® AåÂ…Q>⣖÷ ôÙb=#óDè³…?Ð ýè„£ ÃycîêŽÙöKVN°` R¹ó×gí½ÎïuÚݼ= ÉÇþa'?..?p¾;³5 ,—kôȧd7ÜuS£Ã¶"¶+wÂ6D§Ííjõ€íQ&;$‚³£,Ö²Û˜¥IkYá‚ ‚x›’&=v1(!F¢XB§lÔV‰"<¹iÝ«i•$¥uKKæ9d–Û¨4táaÅ?s®€øX¼5(S/L¨“ДçMæ…€Ši Â¥pöh½`ÎPß„n´ìµC«%ê9±šÒ4ù½<]çäp›Oݬƒd)ŽG¸dT˜èÇu̧€&N]­±Y”ÐWê™)!h˜R¬yÄÀæzê³ÌþÙÉÛN´wòöØëJݯ¾ª½óX1}«¾Þüny)ÄÝ/¿9Õ˜1]»ß…G~Ê¿îUi:C6ÜCñÛ°>ÿÆÆe¸-”ŒˆJË…õ]nªÀ !Ê27Cù¡xÄã”Þ{p¿â Î3‚Ü{Þ˜¢[À)×èCQ½é´Ù“‹´%¥ÇŽ÷–Ž+¥ÀÓ˜²¥"¤“œdýVÔW”Ý$A~¼b~p:–CRÉ®×û¢_\òƒa nIšìqo$tãïÌ6l«‡6—3¹oü´ön.»%9*GÖY€%3ýøwóe^ݲ §ÕáÕÕ´Ëa‰–#äƒùV—å/„þ0.Óˆ­ïÖ§mt‘õ´—ô˜YÂËï7|¿}«]áí9!üdí*5¢™dÉ%húîÑ}Réñßu‹•*TÛ¿ŠþmTöÏÖݬ¨»y÷Ø4E£¡—ñl0Õ­•ŠyÀÆ®iöBSGƉw@ªóÚ÷ô§çŠh.ÈW-©ÆÙxé.Ód@·;Y˜œD‚¡Û`Ák\é¿…3Pt.op$¾2Pý;ç¯Ûgí ÀìíS/6ç<Ȧñ ið£Ð;ÝbÅõzd!SÓk“JCá“ÂZ&Q:Š0hsu›N’ôÃh7>·U+[¶ª–Þºf_/P…´¿ilÌFJ1@%÷ Œœb,‚,xLÊLÆïwϸ„ìùv)%‚ip%œ^iï ®ÕB¡À ;ì;¢Ô%bLÐÇ”Î>R7§„àm*!$Á‰Ð(v/€±@ŸS Òðm€ŸæŽ·ŠÛÄNA—â`ªx§ÕBã¼&D”p‘©ûôJ ²S˜êD_JD»€\Ü°Ð’f`) [#Øî1+ßç=N-a8?o¼ºŽƒ$WXÏS¤®Ý¤ÿr]º‚7ÒUÇĤè¿Ñ¢£ãT§îíËFckÞÉ:è¡·‚ï`L´ ì&]ÉýDBœHë…&ÐìèOšF U{¦Ã¹C‚1¢Ae^nlÉþ*É%rÇÚܱ>%k¤ý˜;ço^B§Ž1rïd×9Æó™×Hr¤½øtðè…'O² `=Ûl«(YÑÁ޿˧¯ÌU=àýÊ>ShôÖñÆ^´¶‡kÄâŽ}8BüfGãsæäÐç(à^šºÙcHÈ¡sÐRê˜mäb½Ö‘=N„{‰ÓÇ&òY·¯± 0îž^Î@Š’¦1µµØéòºs¯SИ?ì°Ôæ†7Ç»'‡‡íÝó—‡íÂûwÏþüù/ý¹ê>m}ó÷Ù0·º¿Ë7ÐÏùéæ&üwãéúæú{þ¦ßÖ¾þ~ÿzcscmóéW›ëŸ­­o<ýêëÏÔÚïÒ›àg†00J}Ö¿È’þp^¹d’ÿúc€³#æøf’^õ§jýÛo¾iâ¿ßª×ñ(_ýkK½Ä™iªAš@Æ©<êÂ`>?ÄS¡oW7`c`3¯“ëA2®ž‚(ƒHˆ¼A´iUµ…Í¿>è€PqÞ>;Ø9TðûéÙÉ÷{í=µÓ?›êíÁùk`‘:'‡oÎÛ‡?ªãõvçìlçøüGÕþáô¬Ýé´÷°¥“3uptzxÐÞÃÞÿ¨ÞtÚØàιúñäÍ™:y{¬Î:ßé/Ÿ&“aš“ïmš“Õ†p5aÜM¸/Q<„k„2’Jh3ñëR*.Úf0e˜ _~Hñê4pB”| +¾™@¥‰ßC ó˜.È1"çý@÷\ ǾoüûTc Üz“îîÄlÓ{è—ô™ÐtìF“ÚåÍîLM—ƒM™ï¬Ow0Ãf ɶÝ5›[b]¸„Ð0›Má[¹À¸1ÇËš¶qΊºôÿFE±…7Ä7P‘k}ˆ')¢4‰èÂœ·fvS,_!šÔsíMe `ˆMº)“²ài©wûÔß:ñ5q®:§;g»ÄÃÎѺØK1{6œ)úOòܨåñ$ýO“ÇW] óùÐê//-±°ÄûH°&q‰ë¢Ø=zˆØžŽÎ‹ÄyžuSŠ°§nÄ:ñÕ$‘ØD9Ny^Iü¡…»¸Ñ¡4ç0òÔ|ûÂÑ%b¬*µ&dÙ‘kÂ!‘Ç…×ÃI)â‡b´¯ ´à—äk.˜ ÷®¶¼£1t”¢§8Z›ýŸ¡Ö‹—§"ÅCï;Hl§Ž]Û’ØÒçViÀO= {m£›ýéèJÅübÛÕ‡õâ™Ûuš²Éƒ5V$ Ó['ã`â‹tƧÇ]ØF&ËèìvÉ76{ÌÀÁ[Õ íP÷ø!ÛŒ  !<@€(ꎳÿï£èÝéþ"Ø.Î")%yDpÈ]¥‚Á¦uZ±Þͼv{»‡„—!$çmçLìtí‡ ¼¼sØÑ[ÅÌ«ú>,Ø(™è^pYÜ×ü'þï;T»´„ò3'£þ7ë]祅ÕÚÓŸÌëa]Ý“;ñL çÆm:ZØ-ô-b°e OýOé»()––RP¥-[Rßx@¹¥QýªBSºÏ~Þº»ÌࢨNC嬧lF(ËðÚ(S'ñÄþ ÍËyP?{ÔúgÔ+ª†³ôó}&ˆ&)|<ð[:¸Ý’|Áåßé!gY(bpXÚTm@Áÿ‰ÇK Â0œ±Z™„è೉5š8Œ1ÃA5<4TüXnóÁ 8ÜDzãÓý…Å|‚T´P¸¦V2¬ÙCï¬WþÏâ±(jþyªåûŸÄ¸hðcË­‚ÒLÎ3ðÍ°ÎxñúkL [‘ä‰tH%é¨ïËžXÖDÒ¬fInÝ¥i |½äãÛw3GØžrúVݧ¨Í¹œ40gXûÔëÂý™3 ž|V¥h3kdNˆÊ?öÝ£Û˜7¡•ˬj"Wµ[J rU+w÷òQ‰…Öдõ[,dÅjz“«—–SfÕ~i/,ºæ]r´í:ŸÝ’Ö–õã…K`~s-àú¿õõµ§¨ÿûêéÆ“õ¯ðýúæÚæWêÿþˆŸ‚þOkòVáŸÍ{*òþT¾ýïT¾Ý¡Òñ¾§»gApœM¥§'ƒðÎÀKÈ…;ǵ«Ðu& v–z°uFE¨ãà¯Ñ(´ã<Ÿ Ǥz#¯|AK¿ž Z -§€³Úñp$¸¸h°$±–òB±Žî’pIP©<ÕtÒl¦š!mîѲ‘óD`rýÍËp²ºÙè2½z £:ÓÞ9TÊqÂœÃ!½=:òŸ?O&“QÖê¿p ¦Ž~ŒŽvövÕúׇÞÓ½öË7ûüjsãP$wÒ R¢ŸÓ ð’.ÿÓÄÕˆ^" >žNPáç±M“õ§à¯é("ÍbÃÈ‹ÚiŒ;+_©»m*W #®°îý%üλ%øûTn‰¨Âê±ûv7Sû +I(iÖmÈxÇf”v#îÀÍÔ‹§1Í­–Ÿ±ëuð+[n£ð ¥î©¿~mÀóîõж†°qÉh6$¨]ybÔ~ö…ø44¡vÃzþ…®~CˆÌÒ»Ó‹)ðt¤q?ÉúŠ[¥´ï Qåh¨%xÎ| }Â÷þÄQ¹Ú¿þ¥Ø‘Ê=¨—•lø^ÜÚ}U5ô¯~äyW{^¹ü¨—p«z%£ƒ¼=™ØÞ˜UmýÑ‹…@ÎPÎO}ÅEE¯¦mÊÙ-ý?Ú¶¾âŽ¿$9{˜×|·Ex(ò³dÌ£½žÙZe¶.¼oë­DT€¾R Ææ©¢…O­©-iâlá¤çì9àoeÖ0–þ³å>¶{ßrÝΊ˜NGÙûøÆ-äÌ5ããˆoQO60ÿ.iuÙ:W/žÑ¦z˜ô%QøíÁÇKUA•RG[J ˜gvºl&{É$HVÂá "L÷àTól’kWïš¾WVêáVX}1Ží p{ê»g¼É X¸Ê‘úΆÃM}õ.€á…E:ýÙ´—]L1.S±YéÒÂÓúËRM3_M‚Õ1<ÿé\ZüÀëO“ç ÇF;Dð|Ü×úýl„I_9¥¼³à4îŽD×Îå%Üš7,¹jíØ, )ßð8#çÙ' Õ»¿ñ:Šåej‚¯ §¬ç‰00©Òd~äqÝ­þõЮgô'ü4òa¸}™ðéF¿@‘l÷1ï5G é@IÕ³ÙÈT”C]WˆbRQôö‡?v&WõåÕQvÕ]n¨ÀFåw¯«òZW]Âb‚Š‹ï™ZW•¦±.ÓÛ(oŠùšŒe¿ÎKç2­sG™¬Èñ þ |éþ¬¨øÄö%ëàÔø~d]Ñ”4Ë­V+¨ïG `ç°oßïÄO¦uµÖTLJ˜UÚ# ¯&Ù¯æöñIçÇ÷ÓÍl™ŒÐéÔL½aC$]]å~ðBÿ?â3=ÖÝÛSm"6æ9}É©\Ôl4@·~IÇŠbXeÀÁè˜asàR|:‡·ËTˆõ`4çÛewôOÿÏÿÚÖÿ*ø Ÿþ> óõ¿ë_?}BþŸkk_on®?ýlmýÉÚæŸþŸÈÏoìÿù§ÖøO­±Öc‚2Ù9³+„ný–¼ƒ¿ROŸ­}«ÆCuºw¾€v™5Êoãï©rLlã¨xÏ’ uâyÖ?p¾‚Ë%—~:åInc&Hɬřh/Ò©£nÛº˜uߣÇ&ã'ù6‚Yt°íضÞ$Í5j¦e­&zHáL¶ ë±%…ŽxR~>â°øž f¢Õ§š¯Ì0¬ç£\æ ÆiE÷RJÑÙ£|}”‡´œ   ‹•Q˜»Æ®ƒ]IwMàT\ëz«A<¹2>£ ë;èoÊøË'¥ÆìŠL$òhFöÎŒgÎöÈd,E/W^×öG“õ óÑ L´—/ŒìÙѧý²#ès<¨|m2“ÏC6ÌHPÖ¯sy“æÎC²9†2’*6XØca•:Š¶Ÿ A˜Œ÷cFÄpg2H;¨Ñ[cáèïû5ÞeøAû­ ¤«U>,Ž€Æï”öþæ÷ð–¢¸Í »®Nw‹Œã.Îò¶::8~}p¼{¶b]G8ý ùõ*ª¹š!GíbÎ’öZDæþ׸œJ¼¿är ˜4ä£ÞC¹ŽK=NçÖsWCWSAÄEÐ7»ôx.Ïõe:ÐÏ0=Âàc1Ø'-IüL}1è!hoŒ :/¥ÿLêøWÃq$­¯hÇ#ÓÉb®ZŒ•f׈ù#Û s_p:L6Q7X¿&K@å@µžŒ§©Ã:… =‘.ðÿ^FpzQ]/SŽ/‡RYiNÏ9].IuU+)/TN)Õ(›<žá]ØÅÀÏ¿ ChHG%5ëíj5UðL“DKìªêÁMÖh©¿‚|8 ÛÖ­Õü¯ÌùˆöÇó‡!I„+{PŒ,ðVã è½Ol…DÄwæ÷ù”C)Â.º“ä*ënÂéÒÈ9“¹à–×ßr‘œ%²Í—®÷ú÷Z 3áâè¯Û‰©X§à-P®â½Ð˲!Îxù/M™ØHËÏšªjê<]rÚØ,t’,™ºaøµ©Và©i{÷äôGSìŽÖEGDMU] tÃQô÷Õ™h„Ýë\©sTja);[¼&ÂâÆ©Š¡ƒÎraà÷´«¤;µ/pq†Î ƒ€°ŠJVd’Êj8¾À~`y÷Э—óF凴Š…¹±6¬8àÊÍ]ié¹w‡VlüJQø„)_µ¯0AËœ-WáÌ\sý˜‘£t¤ÝÖQŸÅí#1(d:‘OäZ89ÏékÁûY§ðª[è^Á}åÐl'™Åp x`Ïï‹]eƒ(Qhû9%y7ø‹ÚˆWÅ»…û9Ìë|§ò%åÉ!À¨÷¸†S•Äyš0À„˜yrܨþìJÇ'6Ñò R/ÉN×iÎ6$J£{à @ã†9«+FÙh6JQεÛÃ*TVB)ÝÈ9ªz®cÊ󘃀 [,Àß9"TtÔ‡Ø$8*¾D7†«Iv-24£¨\J‘WsƒÇ±ÍFóèÚ=H‚Ü !‰jVð¡ðÐ{.¬ïÝy$÷R:`qcIR¬h È!”+s0Ð@`:É0ºÙi„G9¾ÙlÔ³±¥’’R0çnº>pÂP>É€< …’W¤Ò´rT•rÁÏä‡W·ÑÐð)~ž_ZZœí²h¯±z¨ên¤×êzã]àöáÚï]d^J6º­N_ŸG¯w:¯½¸žŸ ånì*y«?—tz£¶J¶=ohT@F\­ÈWÊYAçµ]¶9ÝOPóµ‚TŠ¢âòK³òxôê\¿Á’ªÝ€qÊO—›¦Eþ n5.D¾Ø¤ªµš ¢qÏ°uty™ùOþ"#¡êŸNqRÔO™%»¾·¨¶ Ù’´Õ¬°¾fïFýŒJX'o¸9§HhGŽû†gÅ \qCmqª-Œ@R/ܹo‰£¢KâÛ8ï˜éˆL¤°¯Ï$+ä§×’œÝ÷=­6ewÙa½ç û„Óeémp¸ª Yðl•}àG‹ªÿº“UÈm¶fÖjãT …ÁAV‘¸O{’Þ_Yò¬É‰ð¦Zràöè*CÈ={ý ©œë“&6ÞPCmZ!Å{â}$­ú±Ú¾Ç6.YJneÅM¿q€5²ÿ×e:"ð¢‡ÿ×Ó¯žl®¶¾¶¾þ䫵µ¯¿zÂþ_kúý?Ìæþ–î_O5úßSlæ[l¦“Òn6Rû“xÜO»yU+ºýow!{•\L@~¹Q 1ùT­?[g'²Ž8‘I0ÞAô]çðíTy—!î­¼üêFü­G{í£ã=æäá:¬ d”¢^2Ä1S^LÇ%c^É5ë}a>ø×ïw"ùêÎùÁɱÛÊÏñ‡X7Å8ƒŸ++è~ UÙˆ+£›¡ÿDÒC© ‹G‘SuKªn …QVûhŽí\v®Tg‰82ãôEí[ Á&3lé4×lâ3B·€KÑ™Øè$ÍŒ;΂@¾,P›Õ9NÿØd:Áü*[Ê ÖD–éIí&E€ ²+òJiHºÎMEeêÅ õ¤¡þŸ*<­?yT7•áGê?„’ÜÞªZo4–>w¾»ÁßµŸt:£ÖÕóçJ¿jšß&V‡,³Ý>œ,ql›ý´S½O$j¬ªÊ é¶($ÆðRvcòÌ (S.I²Ð‡ËpuÞnB'¸-µt²±šìÖqW‘Éø=ÍðIÏL¢xÌr3HGïe4U‡…†ñr¦õ‘ ›ês‰– r‚οÂ#HæN¸hoùmáÄÔ?6 ÛWì!æ-ƒ«/ô·°J#h•KÜTó+”wËÂê4ê7%»ªv„°›·h0§V++Ž@è냣¹U++X!‰…¨˜§UfdAÜUPˆ´'´½04SøRã/aq1ñ`v‹gÒ˜÷ßl2A ª‚öüÉ$¾=-Ïí’·l­U`g·_p% kZj3BTÁ‘§²×ü­¦ßÈ·‘\Œ¼U±¢å¡A»P°ßÒH¨õ½6Üe¦—ƒÆ*7\ùéyaŸHRp¢j5ìºyo¤XJ8±æÒe׈N1»•×±p÷–Œ÷îí íüúí‹“RŠ…Ö/G[|"yD‘ɱŠPðÌB7G^ð0h×R+¢Zu)¿ ˆ“²nÕ$ÿЪÎ1h/.9G¸Òî9ªœRïRÇõ1$óð ŸZü_!‘b,B¤+!lÈuËÛ°Áq…¾Ž«9@ðÒ=@A\˜þÈÄ Ïr+)HL‹Øº…9rj›úC9Ò¦*<´7Ž2H¸âµ"³é¶¢Ý£•`¦M8%•/‹í²Ái/›] 0F“2G¡ 7E‡#ã²vŸ‰!r*ši7l‰l$R¨#“›­k4X—}ÌÓˆzbT~'‚Ü·QeŽìCдé0fcÂi¾È€+–V‘u\Ñ<ö×Óˆ9èJœ²˜3Gò Õ{hftOà}V§-‚7*y•îÐÖ’»oW¼ÚE™«1/hÏ _¸äi±UÒYñQXñ¿RP•ákèŽÚe6äÅi´^÷¿‚'®ñµöLÕ ‹¦ß6JmÎ'M ýìö }õ$Ôc¡Õ~·°p$É€œQîœè`ÿøä¬ uÑéÎ~».n˜`Ó0}[Ѥšš7A >ƒfC¸]§Žî,ù%ñ6ê¸c¢ÏO"XìG/;{ QÒµgf-HæetXúµ£Ü õ~z¥àZÂÙàÛ ä­üØÀU±:½üaèp„7¾M#vÖþ¾ ‹ ’%´€X#†3ððuîÚïrÍRÌ­êâæÆU ú±-b„î”E±iz[¯LAl>"p€4#?é¦ßÙ%/±îµ`{ë.ŠwNå úbEïyó !¾wЄˆ¾.¦³ÏÆ£ÞûôüL1×Ø(›çÔå*rGÙVªã'œ£#Q²at°t§A-[GO.Œ»÷¸^]\íwtÙ&yt•Œ0.î®Áq¬†A8úÔé_àkÞ6…Li<+=½ÍP²B †ê—,—ÿ G%â %" ò ¶Ø+‰Œ&[wÔ¢m­kUâ¸S–YâW¨ÖCU§,¥GíãóUT%To„»çcÙs—=}ÖÞÙcàßZ||M£À½ZK¤H¼% -`‡}G¸{¡fîC¯:{³Ô$¿žî턒ι™Ïj>ë2çÆ\qÙYÙmÜÛ‡ÅþØÌt»'Ç{ä\ãäf7`×s7 ȸïO’k†å>ƒúb0ÓÒ,ù³L-ðv©WMù±Üšq—OT§ß'qÔÓ!ë¢ø„” ËÊFG'žµŸ¨¶\ tÍV1•Ð=ì•#áRž4BW].¥@»ÌUÝ2!íá¥Õá|« 2Rƒµx Ü?‚ñ\*›l¥Ê|ö„»æy÷fdºàðzeZ§*^¯îsp…ª¦Ç¿™à5þ¨ö § Œ¹d¬*ëbð¤=ˆÑåèÎþ{Ñ[A×kUZK´[×&a6=íø€zƒé—¬“¤ïÑ?û:ùr0` Ñ”áNØ#¹Õb‡Ã’9ÒKYB<²éÎ’·à‹íЪ |"JWqµ\½œP[Ðy¨¶½kÊ£à8©å×Gñ”To2|Ÿ‘Oç3f£_ÃèÍ­½ «w'«Ð v’|¨b~MV—ûÐsb.‚§”Íh¨« 5—3aå¥óªHÊ ·‚ˆO.õÿ)<ªê•ç)îêðÖÙòªTåñŽ‘|³Y¼Á‚Ƽ¿¼#´ºê-¹Zª®>u{/÷£×{gL’«i©ÛG³ßÖì}¤7¼×'„_3r‡”{_aøcw‡ÇãOõµ¯½Q`qû»R9ÝX³‘%YÎ~±­/ÊéZ¥KIf â4™!ÉYFteÙ‡dr‰yÖP_z($+59½jÇv‰aÁsŽ£¥Ó•ìœ·qq¤4šHk¢,FžòÉj/qúç¹î…TëÞ«Ÿü‚H ÞY=(ÙkÉ;Æ°%òò£s"&Ê”Ÿ“ú¦.ÃÏŽ‹öáPøãÞó+VÜÙïP„ÿyØ>Þ?íP<ÛùW_õTßrÖ"çUõzþH­—·`ùþæGýA]¹€¶•¹KŒ§wEPVÿزÚ‰zý†k~¢Û Oyˆ„ŠŽÃq;zÝÞ9QÎÂ?Œ‚PºH›{çl¿ó¦ÓÞ+9Ÿ³Á§]Ù·Q´m±oõÖ˜ñ¨ZOuÕmõi^zèõ2ÈõñûQ6bˆ¼œ\‘ %Rƒ7Ï*y<89+ê›ÆÀ€FAXÄݹHTòqœÀõý­çÒä3Ÿ^á!¼£ƒìàF*ag»è€È†6c8ï3à žøx˜B‘ŒÆ F´²‡o†ˆµS3Š3Fê¸Së‘ çƒ.Q£cóâüÑR™¨*4k¿rß}áÄ%é,Eh^$ÉHêZkÙuŸÀ÷¡¿Æ¸ÅžC²÷lÖ(.»aò¬=LRÔ]üÜT—£¦êöš*Ã_2ümûÁU•[3G[ºP·WQ3Úb+ØúÖR¥rX‚Jâ)–J t§^fMòÊ‚»ø2›§›*k™~]ËIƉ†Ìi‰ P¦>ºCuX4KTGŽY³¨:òª—«Ž íøMÕGÆŽYTù}ú ÔG—Ù§«‚ úÍÔG–¨IU®ÈKì‹tË¥ëg­-:ÚN.Y÷ý–Ÿ=JR¹B³ëd†4á|‘&t¡aD„ºi;¿¯J§CÊ{Þ•‡t¨lu ã ³lÅúCÖ¸R¬B•b ¼ƒÛ=ð ÅV¯ãUÐ><™qòÄý’yÕS>„6•æz"œ¬oâ&ÓþN }ß Ús|+@†J곑¹ÇºÖ‰ô’î 6 gä@Uþm ¦··Œûžò"v{ ú°€£ä¡üI+ø}xõ/GXÿr¤ Sír´öf/¡°o?ŽŒ`_Ð ' ÒŸ0¢B¬TÁÞàÍbåšË,ñ§R¸Tž³|»Yh±¬ÉÂäà¬TtÚ£¥¡j&ìH"û¨Âa›ptûWoBØM/gøgøüp}M3˜7gˆŽ t±Ó^3éy˜˜nà„À+[*|<¹±»és  •AB}”A?t¥ã0âJÏDAî¥5ƒÖ‹BoåÂ…»·Á¨8¯•{Û’­nï®j–;Ø&ÂÎ’t”'DLàÐÍmw‚@¸L'ù”Ó"1¦ß—0A£î¦(ÏÈ0²Êâð÷‰§AúþëÁœã([>Q…_¦Óž«ü¨Ô|ÐQ¸w”P ›âÒ5's¨K.ÇÎA× FÙ¨Ô,ùƒu* ísæ\[BÚ“BôÓ>eï²ìú5ÞSX®“Élt§’½d@‹Ø$ŠbF×±R”:IÆp¾µ¥Xwž¹–þ76·,0;ì-%#(7¸pç1¸ü'Z[ʹ2 Ñ+²f[ÅŠ‘÷ÞÌ¥ë^IÇyµ<‘W:$üXÀ%•\¸Ð`ë=iï|ÅY ÖZê[ÔªS±1yÆ+m8TµZ7i¼@_2¾îà žKqÒï*½’Ùò$x—"¤–ô¨T'àÙŒ¸Q©p ëÍ0O?àobº— CdÓZTó”ÒólowÌ’«…ýÏ[C¯wÿëÖs¾ü×,êÈ*òþWÔtíÝrVè¤eEUs|ÂY˜öŽ÷Ëvo†©”œ^›pù9Žhž•n½¢ká SøµÉ¿YO:Ô5¢%R¨+ÜÔÎ$TåèdûÎi¬DaXÒX™–‡´ ¶ÚÃî9SCfýü™E‚ }ˆeh q• Ô'º?éÉ­t)®rnò|‹eYî׈ã:âÍÓF}ù„¶ƒÁö>„’ÏèwTD–mˆRwæMìϼ—õ¯œq_U÷Î*ðÕy¾>åÞ3^Æ>–MÖºš+çMVa†n5¦Z:vÑè,ÐÀ¡zpH3Ø©œ“ ƒÅ{…­+‘ÛüT[ÈjMV+zåV¥¢‰ˆ~wÚaL ü+Îï}(Šc©0Õ¤3>Ê:íYÝÚûÒ53´>r1ªSJpäë©#îðÈùÏ!:+ÍÙƒ£W7ç%T?­hŸ÷Ëk[^Ù”w:ÿÜËŸè„8x^.t†ïåB$MÜå9ÄÈÌÄ\¤SW>Œ¹ŽFvË:_Úñ9.=~sÕS{89 “÷œûFÌð~Ý>QËi¬ÈÞFÐwëˆAùj4*+‹¯TÁä¾åí¿NûìÜu‰™Òé=êDÇ'Çíÿú{çŽó¢ŠG;gßµ÷¢W'gšD½p™}„5 |Ýá tÉIZìüâÏÛ³c{a’Í«{Ó¥G²Á$“•÷¦¿Å*6[{D‘ÒEWwr6¦ š‰RÉuæ°‘Ùš‹Âî,$>¹¹7 íb›©t¹\l’%¼Äöø‡í%]¦)R\](…DÏP.gkþÊáµ×ÑÙ¶±¸E;° Þ±`Øé×”±h»¨$ì¥v i¤Ð›ÛâUåÏX:»t"Èãë8%„Qwú[E;šÛ7Ãs…Òa‹qìæ:° \mÎ3Â*ºœ‘¹Õ¦{ÈÉXì&š¬T—[C[˜¯½ ŠÖj‚¸ö »ßŒ?<ض Ë®jäÞ•\û‚öoh¬Õ)¿ê"ºxMÅíef¨‰tø¼h%·5™Â¯¾üË­Z~sÕG0¤ÇKær¨$Úa-'·0ñ8%ìYv)µœ }"ÌZéoÏr ±¯FÊñ°Ò,¸Ïƒ­¿…›«æÞìÇoï¾ÜkEZ\¹ýp²jw²¼†ðVZ…·çil²ŠWûêa©~»d=1«(»qÂäâ´êd¬"€fù#Ç¢ Ôú·Ë?"Aja&¸Hm“ø1rQ(®qilß2‹ýùYõk dˆóè¸ÝÞkï‘ÖFs›1e†Dç çž–¤líV«j‡Ræ:O$e M–WêLçèkþGÛöCíÍo£™¯tÑì­Öu¨ßNsòë¹ìù|ö§pÚ¿¯ý©„Ø©]I‚b rÕ‹qÔwsÓwñÒÄfa.úÖŸŸ{ö‡ý+˜ç{3Îs˜f¿S¿žcžË-/Ä) ìu>ƒ|ÖøÓ˜ââ°Ëx[Ë{ZO }:`¥x5©Ö9¢ÑEé&™R;*’¬$N%IOÐ3µ;åŒwiŒÎN¿ô¯Àñb¼Ù¨O€Âcœ˜ c:Œs$4>M‡n“'Úé!«B7°‘7#øðt6¢ SÍâ§TŠ}K}°1˜ŽÄû$c8`B—µMã÷)m|"&üNÖ¿ ’KÌì;–BÂÈ™ÒS#.V6¦®üøf—Àn(;\= KOcg9æ?Æ^ûi²"4SÔ1œ´ÀDRB‘Õi½h± á"˜&¹b&­=Š®gÝ{:£jˆIq.ê/#n$YZ€âòÇŒ_›#4áÅ6ÕˆM6-³O$Y5ÍE1—5æ£ÁW]kóÁüœ|ÃB"V¶_!¶ÅÐÄJÓ\@!lƒÞO,W`€áü9ˆ>|a0xy4'5upüýÉwmÍYµÏœ·½õû˧ü®àQϾƀõc€[:ÅàŒE¸H _'"ጯ¥êor C€JAPÒ$§ÓLþΉ^MÞªœê÷)ðupýÿÐ/Ÿvoò%òzÒÌU2¥‹‰²]2J )ÇG‡}5„ðKô:;ü»Z…ð' WÂK‹T×>mtÚ"ê2•)ÆŸÝ_kΛŽ}ë˜X„`o‡{ÚQa(÷ák-gÚÍ€žYÖŽ¬EÃdHþß½è"1 ÛZ|p®Ê¼o«bjîŽÕ·$øK¥=*v‘eRóÔd‡®U«.ŠnÁ¡È¹Àš¸*üˆ à1I23z÷híÁß4^ɵRfLãyÔê+ƒq9j4 Vd5KcüoÊ'Ç›Sgž?}>zD i'þÍñ^èÈ…ô‰Ç–a0™Öbuà ÷B>â}3ÁäGÙ奊»Ô‘ƒK‚•FF WcUç$â!tδuÒºn!AcÂìKÍmbˆqÝ“nRH³2U± !³yµ~£°oø×Ìfr6ÃÄÅâº[ÓóÍcmŸä»i-”¬‡Í-¯¼O!€üešLõÊqR¦Q ™ @YX_Š™-4Õu€Õ—,¼º‰²ÉâÔÙÙ)˜,y¬…n“t–1¾4NbÛ÷ÓY6õ¢šàa¢ÖÀ°5ëá ì‡Y{a;„ßµÛ§ÑKÌ-»£ã³íÀN¯öÏvN_kæÞÍîBÓvAhØëèª ó£²S:ïӱĭd#ŽÎ’6DiÌÅ_”7CÄSÉšCè÷O€CÄð›Ólœ3oh>p=‰ÇùÍØ—¹:ùŽášUeï~u½±EmŠ²F€ ZròJÒÐØåÛR¥†üS+¯~8j?ã0Í´à9n ÀM)P‡³)­X³¦Ï7UfÉYá.y eÝnŒ €_Þä”hl–KvŸ\‚}Lå· ‰4¸Ó&É ‰óDr)Ѷhʆ2á« Ž‘ûmÄÝÌÒ ¥éeÒfhž!I¡] yE« ÷y¢P/ÚùB'Ы®SØ©{;o©ôSIûI«ô~ýlèBÜ.µßOïÂ7òø%®0) ù£mnË3Eû·#]£nX…¶˜b&‰í!&'lÔViدgZ*~ÝtÏ鉉ԅ-ü.JKvcâå„`½ |¸ÆÅœ` –ã1/Õ࢙GØe¦Ù˜O«QÚ{³ÜÚœÚZ«(Ñ!uÞ(!9ˆ”Fx\h£“W(×é·füŽVÃu¾£Yò$v«êÛÛ|kËmÆ ©-8-c &s˜áªð…ä3¥:ísnóõÉá^û¬ L2£ÕW€…«û,Xñã:<ˆv²Ù¾'ÇnØJÅGå³”³9%M ÅAÔ™tSÜËF½v·4[ lææIûÜ]u=¹\;QÏ]hÇÝP¹$@•óYD5æP\J…¾ˆ-àùÇ°–X„ÿ-Â(í, ²Mß®ãúYm»ø™þ-婜ɂúèõrËïà:wÐey“AzŨOˆ­Ó¬{cÐnC½Y³îîìãÿ»lý‡ÿpþ7|¾¼ÿwä[ÿêÉ×O>[_[ÛÜXûj}sã)åÛøúÏüoÄÏoŸÿmó×åÛ€--¼N®ÉtºzŠðGÀüïfÃq<º©nçÏpÿsÀ=û%j뀒 1VÒ ]ù3(Tc»6 _³tЋ.?üðf…ÎèLW]3¢»P»ú¨d™C”Œõo)ÃܦÚx¶Ææö(ÃÜ’“Jîy>í¥Y«ÿ¢*½üÊÙå„é`€y´{rüê`_R‹¿Ä~"ðØ$IØ–I†&4¤¯›ëÆŠVEJÚ'42žZÂöâ”H™dÏ.ÃC²µ:éHÆŒðÇò·ý¡q–½ÂÔ­ÓÄá¬yéKû[R^•'üX¡}‰{¾Èôm–¤C-_cJ¡>BÒ5Ýìø§µwF§¯ñÓuûÔ`üÚpŸš4É㟞xÏ7ôsÔ@mzLËÄvèÒ–¼sµY^OêãU"³¼?óú4¯_·[.w©õœøņ…tDäŸabwʆNwfvLÙz²ÓÎÆôª®•¬æØ[ɵßbý6Šë·V±nãš­Í_©y+õä+õäß²RjUm|Új¹+ódÎÊ<™·2OY™;VàɼØ¼Ç lþ•µO?%5àx^µÏw_SøÈÛ³ƒó¶ÍGO7ÞšøëµYº^µÝÃöÎY´wòdè¨Ûæ|êWüköKÙJhÙoH½Š­eÚ\p–ÿcÏÄfù,3g–¿ùmw±wíw«°xàò†Ìh>®âõòd—¼tù? ‡ˆFƒ ò7íký..j•D --7²ây‚j|t¨£otBÞ Ò 1¦׉¢ý`YMrÅG8K]¦å Ð¢ëK…ŸÃN§#k`Pºd”k|ZÛƒ‰˜·\;‰õ¦Óf’&ˆh˜=wiH{J¡™ ݾÄ0¦såÕÊv=núüŸMž²& °xhË"ÌV̲—ÖëðÉà­=–|[æ ©²¹Ãœ–¸wò)&N_ô€0Y8ÓøÙÑ(ß!nx M^&Ón?ÉségvmbKe7Ä]+g¢à8á5N/©ôs1 <6cd/v¬àÉ«Lv‘i€Ó'fã\à¯'è8æô„\À(K4úÚåI2„A™êl°VÃY·ï;=VŸÌ¾¼9%nl|³P¹¯ž.TîÉ×Üôù5AÈ«|èZêñ4æ<‡‰N7@eÅ+J•Lˆº¬7y@.aú :Wƒ$ÏÉ?œ,£©vžùÜ(Ä=AûÃy‚½_G¸q{qjëú3Ç!È“íhoù¥7ž±áw®Û”“Œ¯B¦Z«\+š(¯ì÷êIE¯æwëÉâÝÒøeC˜zrvê¡¿mKãÇ£ •.J-ˆLÕ6?e^7ͼ–W6¿ÊhžÙwÎÈnY}7aÞ¼|¹àìŒã+ò³³¨žº¤3î—kŸ`¿^¿<ü®s𷶽ØÅ£ÛÐë̹ntæ`¸^Ö]â§üŸïä]'p'ô¹bàK‘Èk®½C{>­ž#ãµ}‘ôÑ‘o¬ë;dÙeLêÝ>b:a†ãÖXݦ+A<‘0i+²tNL—²Ã Q=U†¬“çplœÜ]bCcdå¥0Žs¯-é¼Itù|Ûí–樯R~§€Ó¬—^>ζ‡'œ@gÜ°‘|£ÕdÎÊ”8- ~w+ ɳÂɯǘ¹ús4X JÂÝ2† {ž8k;LM@ÓÓÀY!—4 ê0Fu\j‹”³”ø—*êA›!»[ GÏ—;’£¨/Ž±fºQC·#¼êIêü˜Ù5âýËDsw콌gƒÞ^RÏMEX-çÈø\šÃ+.Æ•xò°VHFã佺@Ö ½ôLp 0wE~gXå-þ"¤ÐÈx$›Ìµa%äàSÃîAQ-T®ÈJ¡·lcÉçþq› c'¾+H»U“»SÏ#ó½–y0õXí£¿tÚÍÿ¼ þoÝ´ðÝ7U<›ö³É3õÅÉ¿ƒ‘'#,ð:‰?¤˜MF]Àà5_!Ô;» JìÞÜ›IÒK1 ᤣòqÒEý)wždúIÜ¥¬v=¼8(¶+×qø)}`Œ),zObôjåäJÒ€T¡á=0Š.3{ßðùÌÒîûÁ E~‹qã ¦=p‰I6»êãí’ugÄvwA'.Ê9É %Í€U¹š%ì„YÇ dC­¼€«.½i…@oQFTo\Æ]J …gh÷d¯ííü¨^žµw¾SÇêÕ›ó7gmœ¥³öa{§Óî`'œm< õ&›5Eg߇¯a *õ)SƒdŠo'ê\'0·ïQÓjé…>ÎF&ƒ˜0Е6IoÐÀÑÔZX0œ‹xà˜qZìE;oD×3Hûe” Ò¢ÌÄ©êÎqA¸}¹ªQ:µèè°³…|Óû‡/4ÝÏ2í¿‰:@ vÛ|ßd/ÎÄ41õðàøÍM|…Ó&äÂH„\Æ©Î4k"WRÆù†Ž\ö\ÈvvO‚äGÑÛƒã'Ñ[ìš Ëq“?ÆÀ€œ¼Ñt[ó|Ò/;?|&¹)»é¤;À'Èr\4Ÿ™dŠ¨íÐÊHg…“^ñ°Ü¹¦ ¼É™íb0í‰Æ©ËñWý¡C] ÝÑá^ôölçÔ,Êy¦òÙ®%Š¯¤\™°-: &Í›œ´“NRdL…«‡¤…l,6Ø2—Y–ó¾L®îô¤©Œö£9ÊÉ »n¹m½Î®׬©.`àä½B5äÞá ´’ô_û(×tLóð÷Lâ±Ü¶ûnT™‚¼ùÓ‰í‡\Ìoµ›ß„1¹ü1â„|™ëIp;iŠÛ6ªl̉|)*4ý]“¼eF–(~ìîjŒê„³I[‘쨤™²cÛX¤Çõ{zïG`¼v£Ã“= ²ð¢;tPŠÏààèçn.à…þáë¼9>élú[ž}µwè?=8;øá+zÄí>(tÂ-­{á”7#Ú9<}½ÓpÂIçÕz£¬íקo~à†Mm¢I^í(j¾Ò¤-hà¬óøî`|»'X#È·¶/­†½}uÖn¿ììÝùESá¸}>·¼Ü›³½²>ïíœÁäÁÑ_]}ÛœèêéÃÿÑd„†¹Ù¯ðH½p­‹Š?ᆈgaÿ: pÖ:ߟm2î61Ô¬ Ò‚i–qµ>ú£crßp­Ÿ› Zô f PïÖ0»t;\²±ó¼7¸ìŽ OÑôàxÛòæ½ê»ã°*ø”ÉY¹%AÞÄ€ÝØLž>I‹7c¬ÕCú¯ÿæe‚oð¿Ax˜Pø¯3s6 Y6ŠßÏaÜ…Ë?ÁéŠð÷^2Öc‘–a+¡^íœí¾ŽäÒö«OŠK/Ìi€g¼ÜúN|xŠ Ì= N}: Á–™öàmaËvQ°_ðÎ?N®äÚ&9ñ½p:€ y|ˆœ‘žFồŒ8RbŒù B¤Ãt@ZØ^ËÝ$ !Ä0ò]h=ڃ˷œç¬ƒžF™›¢¢gA¢"ZËímõdÃDîš•†ÖêÈï4ðW`ˆ>ÿÿÒåÌýR]çéfXdž»ÕùˆñrÙ&¡£z³\´‹a'í¦×Ñ°÷þÂiÜ=Üé0fþÂþÂôûÓïZÐcgžõ¯%G´üªEðôìd—Üs€o?V²Ýi,iRxˆ ˜±iîúÞÍHEÂ&l™S !¥[YªdÒDµÆÈNI•(O[ã'Oÿ“¨óz笽‡S½dÚÝ¡æGu›Ä6èø›VÓœs?’*5!ﻥFuÄ•¬ÈÃÊåLîa8ÐeèÛ— “\?LPü—=Ý„¨aPü!ÌŒ _!­f'Òþ*ÔlrŽzl‚óÓ£â†].fcëzVK/ëª8ň‚"6^œ]±s”o[3ækMuvBÊáÎß~dÈ‚’Ū›µ\iôùÍ°î´ÕTËzÑZ\«‰˜ðuJ{èlqsªÄÀ[1—ÆÚ(|kjú›QÞК\ñ•µfÃ}_CzÝÙªºé_£±¥êP'k¼ú¢Áï ɨÐ?z¤B¼Iì•ßV{çÐ[(ã3{ÃBýƒÝ e£Îý™Z=†e^}6k'öÃíÒ`È8𼆫/˜%Ú"çâg<>8,KF¸ŒÙÙ·¿ùˆ7Î×÷aM.uvÍ¥¸L?Z)¿(ý-&à;²ø\‰­á²eò1#CúâÜLqШǩ“Ó¦Ìè+*±C¡ç§òÜa!f#4ØedÀg——°ýï{6ô¸åж"&;‘ÅZbØHé‚Ll0¯?&]jÔÍäÔ“†ÌHûÐ#7Ö‰;HÕ½ž7êö;nyâÿ´:t¾ÀmfCdþêˆÝÞ¬¯ö©G0Ô0bcÆ8 ©ùÑŸž“¾÷™÷F•ð„xg<¨Sk—ƒø*WÕé«è-~¶„ï¢ëõ¶Ý;\ûæ)\2ýS½w Í7«^@óôµa2ÌÿYV ·eáñˆJ†Zpü¯(y»$‚‡Ÿm=7¥†^€šÇ70»é™5‘¼5ïu2ê™Â;8lÇx t˜N-åªéÿ2D¥û b ‚¯˜—­Êú~."¶|IwÈ­ÚÔtéZ²/ôÖò«OtÒõ›³9+‚\ì6HCß8úâvÞÑJñeþ_¬5lÅÝê)ߊ=°<];îNVÊ맗ÝÑtà?š€æö¸¶È0G;§èå›W¬”¬?ÙXY_ÛØ„>i^W¸èj'1ŠFq¯Né3`1y}/f—M ÕEè¥(ÝO5’Þà†À¬¤J_&žy™bÈ$qéí“W=¢úÉ„e³e`Q-©,P9Þmi,:\yînÅ““NŒ ºë¦núÆ *8¼E6&ÿû±Rž–±Ÿ4h€æ²ÀÁ¯ 㟡3‰Gb<ÜDSLo4Î9šF áøȤ¼¢üO2ŠsÔ ÞI¹&®ŒMjÙ„žènýô•äñF 'kl‡:Á”Å?9§Á(ol24§8IUQ?nª« ®(ýÖtÊ#glnŽ)Öf§s¾sv®“2 ßA6£‹;ùC{yKˆZîú\\Ü P‡³‹…ÿBÚ,Ý+Ët©æôQ¢öK@LGÔP„ì{cÊDɼ!@%[å§ô]«ŸGÂÕõ˜¦:M”Ýúî{ Ú3H£0­qÂ3û¡Öå½93ˆæ°­¾¼þÒ¬¹‡]ŒQ¾„!}#¹åòãØ,ö«Déhy…·2<`ÈÂLûåºÕ#›so´ŒrÖ¬'ïwV§q÷ýE6å€+…Öºü5 ˆ@‰ñ™ÀúÓuã +‰k3•Žf‰Éfù¹|»›à±:c0vFáÖ-i4”m—°xõ[r/CFˆ?‰«½ÄFÉ»¶íVé|Øs §À9#8j>uú™\¡w뚦¼“ƒ­é³ï¼ò&_lúö|Ûo1˜ò9 TÀ9¹,S­Duºn‘¾ ¯YU\> ƒ,‘_¯ât –á>L9ü(ØST"ÜŠxÒ.å­ýµšbÐg—bé.Ë—^e3 ƒIþLR…P„›ß¿”¡EaxXUF&óñjç°ÓÆÏò«09¯w¾oGgíýƒÎyû,:Ú98&„؃]¸w\us9f8Ì;¸‚@r™ Ùµxô‰'ð<ÈÕ åÝ,ï‹þ¢ÍĨú+xØU­Öæ# @AºœtJ˜¯¨¹*ÀQ–Ù —L¤m'?ϳµÃ7ÿ¿Ÿ]¨¿¢ãfÂU0õ‹^ t'%hÀåM¸i˵*Ï·ucÚQÇœašeiÓ>pp,l-8n¤7´O€o`!ýäèà&–JZ?:¥¬¥Ÿ6ý\b¼Ða½!9©‡œšP 6þËäûѽA”N×{ÜïM4 ÉÁ”ðÊ)ÿ²v¥‰?À9¡Dìwúxdüç¦â\K¤4žÈŒ,‚ñ ÏÔÉ®sLWÈ°¢ñ6  îæÞ;Œ`oïœÃ¶|½wfL’–Ä¥ ЂfFoàã1)²îME—;Ͳèµ`Ä8Ò ©Lœ¤óS9Qò„(Њ¢œ{x12tZ¢1 µA¡hIÂ4u*Õ²®àý:Õšþ\]¤WøŸk†×¾ŠDž1Ìø¹¨7œW·µ&ü5NE“#í‘Ò!±Xbõ…S¢áßÕuê0ª¢¼‚¬§*×Z¬ÒÍÓù£Ú/Œñ~—^¨¶€*ÈéëÛj¥·•ÜR%žà² ô/FGãƒ2H¢³š#èó„’^òIòaÔh.‚µC -k€è®5 û"Üù¬ÛMPؤ‚TÿþÆ8rƒ60KŸ'ñÕPN_P|©ôr*Ü»QPMn+"°þ½º8½¬l˜°W¸Ñ/…mÍ9ÙÀ{8‘ÑüÈí ‹p0HÔ`_ "§Ðï®NGÚé€ßº®¨Ÿk‚U+ÙGF*´=kï5š¾ÆÚs°2õ6Üó>°QüÂFñ®BÐ=顤ôYÁÚgÈ¢k›‹"ÇÄktm[bgxŸ’iý˧1>ávÒ n—ü›băC]úxÛ #Q§ xÄ‘hKüžf`²¸‡;Õ„¤°ß¤êC¿¬–êÀŽ»¦ `Š)2ð¨àãßKz&LæB^Ôçª=莓.É$úÌúñg½¦¶GràÈÓ´¤½4ËoFÝþ$;:ḃN¾(k ±LIÞÑá^ؼÛ‚»0OÑ_¤»ÁðÌð3H†^‚3æüQ“ã¶À³FǹMák?f3M¡ ÿn¼µ×ÿ8 Ym¹ pfÉþts¯×‚sدò5`½^*;ñ€UÈ]ÝÅ×Ñ9ñ}nø‰»=~w‡?Íúšõùç“ä9¿‰ßÚÏ¿øÀ±ótq¦3ª!»$‘k¨-ºCcç¹c±ª«ÚVQËy™û¦Ô…m®š‹±&“Q4F".<£»âd$A(SO“ˆÌqK‚‰±Š Z<¹Ê­ž‡ýÔx… Ÿ#š¤f´àTL^5QWÒö%ÓÇ Mlð¯\ôV³¹„ÛõóD}ÚíXçk \£@bZaøŠSÊ@ÿ¾MÈÇuÇè4‡Ñ뺎ü2KSãú©=Aóq¬ÃöãI"š74nFïî.¹|‚&$%À6$H;ÚS<Ýuâ$ßÑl2¹aLXÍš ðKZ8âä 9E"ž½:6T,®|WŽVî¨@"R-SOÖÞy¬ãx‚êxÌŒSAT>Œž ó.Fù?é5.Èñlx½¾DÄ`L{¯lž;MtsrC;q^øa I“B{ŒÙ‡ÁêR³ˆGçÐ|óŒî"hÁ v„q®à y¢ð~ÀæSMóØOôu{ç4"ñ¾P’­A¶ÒV1 Dbhr´ ÀµæøMº.è:±'2°|Ï]=çt_u2L.Óæ~üEo¹‰,á8íÕÎqc, %’Ùè‡ã0±S}¡ŒæƒÈ…rÐÍUÍuth:D pky%í2 ß ŽDg{'LJ?z^JML=|>Ù”¬>àÏeÒ°4ëNut9=8Ù=>Ú9mª‡f5të¨ÿâg3·Qç¾€jDéwJ|v©éÆ^—ô7}6èœí”ù>šçìùðP„ÝSc˯¨ „X¶wTÛÇñyö¦0 i– ‰È­Ésy]ç°ÖÍvíã ^ÄÜ%ùëNwVD­+7…ñù“Ns®¿Úð·&ç¼7¿Y:ñMgøo—à|üâJ˜§*~ÌŠ9Í8ý©ZÆÊU´ÊÊÀSC½pvªsÎ}÷Š ÒêºõÕàšµZè‘Q^E<4¨Jê/’ I©{„ò{Uáa×2tM±ÔW!óé¬"³…ÛfZÑ‹d ¿9ÔUÏZ]³u iŒŽò/$o@*wåW¤tK:‹8=!|ð“Sþãøä|wg÷u{¯ÑçÁ« )ÍSë~ˆGÓ9Dn…€Æ¹…ÒÞ†ªü€¸g`Z(®Fþņãt"jg`)Øýb„²õ jÔÁ$ý(B¸o%´4ƒ]”Á‰¹Ð–iä'ÈÙÁ„ÞÃ^Ço°rÞS`”4C< ZËQÞ4¾%MGCÎ:â›|÷»Ž“°¸Ôݤ¬W’æ—l‡¶%'·b†¡DÆ f…m™úŠ¶l7bú³"ñ‘48[³ÑLÔ¹¾¤MÂÍ×$U6|µfÊ®ÒI‚ èDc\¡OŽÒ£0ÆðÀ|'6¤ž¶¾ÒN(èLÈÌðË|éÕ´(“Qw8Öb^ûðÕÑÎ~“±h5£VTíI§¦ =8>m%-µ¶*2¶¸çr…J·©«é²ÛZ,ê +ÃLJMvwÔ²â0o™Ú]²øWÚ½Á»µC‘õYÎ΢ÎßÔúôœ³ñÊ„Íñ“-÷NÚ«qñw#”6ìþÁ:a¬éËcsâJȯHñ‚%k—§!Lùß‘Ç ×ihiuçSòQã _Üï®#Lv™½†ës‡¶iU89mƒÕt"rü.}ánê7_Ay¨M\‹…hTøÊ}HWlÁe7DõîCµ¶¾¾Þ0þ禤.ÍSûÜYÓB1üѳBÅ=z§Ïñ–_ôÖÿ³|Úœ‚·œyÝ¡èH¹¼\µ¶„(J  ±_{¦\–Ì‚ž$cQi"ÐYw’Ž§Ù¤©c®0b6Y$÷d ƒ³é{š°#µk,D µíÁž@oZÕ›QÆã÷蛲úm‹=¦é pî\ÂËžð‹Âží’t<åvš§m#µú>úÆEÿ_ÿ"šôU1ÀnpÑ’Ua0 Øa{ç8Ú9Þ‹Žàûä°öÙ÷»()Pé^vûÙ*]¨Rí}8ÄH¨É4M'¡‚‘¢ä£2Âb'©I<•œ?ã,Ï ”(‘w¼Ý§ Z1lÉÄ:F]¸Øè~¼@!ßÓ ùd£™†2<nÒrW£ƒ à“)ixård- ìMþce™_û©lR]óJØ­­Ýåc„wå.mp­?–cÏo(>“:¿­ð?[þkÛ«hU¿ë³¶À‘E¹Émù²rÕ鬱eÿavJ ǯûDÒ§Óÿoš‡šbäÇÉßµ3%§ßùNðíú¢¼ù)XY*CSø¹îÀüÏ Ï­ûm¸7o‚uãL³1Œo[Ù0Dq½Hu@ñÿ‡†ort%jõ®Ðø£ýI<Â(ýtzÃi?\w,ÀÜÛ Û dkdΊ.ÐDâ輞"³'ÚD*·îÕˆ¡à ÚM_Ô«S² sWÀÆÊOËämIç±úµN!Ê¥ óÜBT¥ƒŠuñ²ùdƒ[-’§QÑû¨7ädþ´/›r&*èÅâîºF¼œ`¦?‰'B©Ðø ÀvÜcÿKøÃØ[5KPú‰€P§ MfößHGl¼¡Mà ¨`Í(ߘ½äsxqµ¢à¨Û6œ²’! ³;†‡°ì5SWLÎÚÙ£®íu<E—:3²¬ocL{LyËPaŽ¶-`  ¯\YÛ+Á ÖIJŠMƒÐº§ëˆOÅlq5ï¢á}ý€Œáû/Ò«+7ƒ”éŠ/ŒO =ôÑË’®{@^#–Ü¥õƬ¡Ý¶ìýŠ=ÌózMF’´gIäó˜’Q‹Ü`ËY ­é8c67\g 7’†X2OQå« ¶S aƦxÃù¼¤v'Ç¿”¦Ÿ\ëÚ£â"ÞÅôؿ׮i›¾M“Ôû‹³Qßò½Á°Xå>º×£'Æ?f˜«ŽœhEM …#ƒŸLíº×þøÐAy@þÊ ûb<›z‡‡wµ˜dF7zkZŒðPWÚÞÓ‰ìÀdMà ’—ƒ* ¯Á' Qq7¦™•/ùrBø…¬BO„¬µJ\HÂÈ»ç‚a^½ŒsA­fñžvZ?bl™ïÆÆþÌÖ¬­ªWB2‹¾qnaZ'œb]. ØWÓ~ÓdŒ1qgÌ£c†)ϯù4M¯3³ðÕó~âÞ@e[yÙ¤„bëx{ÃùìžêžäGOàèæIËT0!ŒyûÒ‘¦¥_TÅ=Ýü¸e²¸· õh/ÀÍn·ƒeå¢Ó4˜b:Ï`Ý1™ðR˜¦¦ÚC=5Ûû&l çºôϤgÉ›ƒÜsôRÕ1ÎU‚]7{íW;oÏ£W/#(´þ•W ."~þÄ‚Êi*9Ó1J½vØÂu,î¸Ng!Ÿm)1GþÂhÔ~û¼}ü}±{öOÎÚЩeUÉm®á§ÃºÄ8KÚ´•bÃÛêKøt¼üÝߧ_RèߣGák‰®«¨¶ö¥eØÝ{FâÍ5zŒkçÚÒÒñ4Kë…1V>¬ðÜ.—Ñ(¼Ý9;®/¿Œ‰;6sÇPkc“c¯¿°ÊëVrÜ=qh¨œv &VÑŒó®æØé.›˜‹Íè%Œüàítûk(‚CÑ‚’Š£Q˜¨çjc­aw^8™Ž_SÅ(¤†p-2Û<ק,#÷¹¾,€€¬}übðñ™‚7Ê™å¿Ow3ÊÃ:ÁÀJ"9Þz9Ïq2›pºI‹,TºVœiÎ2Trøp…ŠÇј6ýL”Å‚± }òÑ‹¾?8;³søÿ½iŸý¸d¥0‹È—Å¡:ƒ“³£—;àfŽ_œc{rL‘Û–œa4¬6Öá´#wvçǦ²"ÕK1éé¹:tÐLOOê_ f oRàˆ¡ä´ØÔÏü&ÍcÛf¡ûJ$ ·ÓŸÚOÑ™šRLR7;ˆ¶¯ÿÞ9›àœî |\6„Bë¦ÇÔ¼ùK¿ ëcë‚4R\G± %¤ëÑtKOõ–5PêøœÝÏ¡_}’ó‹c@¦ždêÁH¶ã…Iô©ÜI¤Æ|KNÄqÒ>óœð£ÃÓïOö´ÛŸÜ:V£ãê š¤¼¹ŽÄ3Ãq§ÝžO@<ÁÏŠônf@¥DE¢m3c1šŠò`0>ú6œ wÆãAÊë-wK>_Ð%VdˆÚGoi‚ À>ùY‘ʃ 7»8¸X à#Ë&ð^:¥¨¸³‘ª:OicíãÚg€óݸÅköût‚À]ÿß ¸Ìú˜õëMmöGb £Úà5×PsJiisÊ0¸}þ“ÓV&©#?Nµ~2ÑÐyÈÒ|k ‡YLGŸ³T«ÕëuÚ( Ì%ï.G….ëÜKí#½ÿ fÐßñÇòðɳjw`íkÿ&€orKS(¸(Æß&é¤ç}A¾»¬¹ƒÛêyÅ©DÈ¥šRgl( ¾>ÕgÓô Ÿ Édnr÷äèè຅1µ¦ö¶:ÝÙ‡]þC{÷Íy›,ídc?°uaQS¤Ám=ÔÒôeÿZh0¶‰ÌäÛÄqÔ‚à—VÔƒß ÆÍæ*hA”\·¤bѾ¯ZiqáƒKeãHM›“6stEª”ÑI­'EÍ&UA›J‚™‚FÚðZ Cp<®ã›\úŠüêéÙÁ÷;çŽJ‡Í±šØµ¹Òó1„"9È&è^ðš¾rÍ1ïäFLâœã­y%õ¤èef}Ò¿þ% ø€ïÒz%¥£¸YQ‹æã*xÇFò'bå³ÈAáD±f/?0šÚ_¤Eu³£(%°_‡Üü·VӧĹVôA²ÆÝ¡^ÂjZÚAJ¿XaÁQšÜ¯ÂJ.{|W§™É³ž|Íáa’ÛFk.{¨"Õ…ëSLá_²M-ì;JYñ€ ÌH‡:è¡7Ý@hﾧ=:=Ìz³A¢ï%,ÈO°ý’¢ p¸w¡wntt²÷æP¸Z§0n[Ã~‹nçÌm É´Ï%å™ ? |'ýe]·¿ü$Ò¾»â-弑Îñ_…ÎÙÇ~çìóFIy§sÒ±“ ̦ҞÉ÷Üù4íȼà´ÝèõÈJ#¹%q·,Š\ud<€$ûÊïK°-]ßubKA]ê8íù2Y—¸Lz„¸8²ÐV)€( ¨¥#-.½Íÿâ6Ižf{ö‡ï¨ÅÇLš=μV—x"º'ýÝyuÞ>³ÔÝ|î"!e¹í;Ðx9ÁFÙh•¤ÂAC볋p(òÅa4œzSÖëËæ´Á‰|fçU«ê?ƒˆb‡Èb…½ÉÑå’22¿+F`HY:ÔPrEç"ßʲ°,UgÎçÛ¦¡²P±ùãþ"wGëôœÚ~Wþåã…¿ãΪëàëµ½Tü „ W?ôMV&rÛ;QROÿdȬpÕJGÿΓީöd!nDéàÝŸJšÊ–Ò4¶Tõ®­¼íž3v;`ô”·™cRÔ)êäȧIz£Ád4fÂî™ö¶Õß—áü.—ö €¿v£˜»I.`m)-^7ä¼&¥ÈƒM~^1º;·9cqΣùhéyğ™ä*Å3ÉÏáxÙ þ?>£`pϧ×Îü#Š?Á1•AŽ©ÌÅJižÂ`ÎÕÑÖ0û¯¬ê”ÃË´“Y©Í·b·,ø˜“Þ¦êâEÓ§JŽaPX ŠÝWyÇ0¨eŒ`(Ââ•\ ÎwDJ¦É§ø/ÖÖŸò™ [ÄəטôFíÃs[ac¡ït¡µ#vø6ÍmmïjO¦”XYLi¡½’M[º>HD¤1‡zyÔ< ‚?½“óŠìu2f_Å“ ÔNÙÔ§Œ’ìå¢s*ÂKk™³|æŠ}~yõ¨lÊŠ­ˆ_OÀŠÜš,ã~´)¥,\šâÙ£°Ð¥"O7m,e?Uf$¯äQ/ùHÈJ$áLz”Mh p*w€f²ÅŸ'ñîì“-»>÷‘ãnº¢ÿÞb·¯ ÁK0aJ«/‚{…ye!i‰ðÀØ-†„¦ ûe<võ*™Öi.\Tºî±Q,¸¤6Ñ/ûŒöLNœèz)º¥ÉøºÝÙ$éÍ‘FpŸ×¬'nÈ…ÜD‹Â—0Ä6Ix™'Ég`Ó6#Ȇ‹þ5X ¨×Ñ¿‚ÔÕ×ý„â\¸© Ü9Ì&…«ë¢–7>ø¢AÁÜfZ1kÇ!ÑbÛª}püýÎaQÐÁU%‚ðŒ¡Mf-Xš@Îa1Jó¾?i•Æï!ð¨$žßBà1!5—¦Øad{– 6ŒÔj'ühQ†z.sÿlÎã¬×ÑŠ‡Žßöº. }rV_èbsZbÒcL´'½˜S±zƒÄ«¸ö)nÒG{pzÅ5ç4­ƒ\Z&dJ7í´2Õ¦ä»[Á­®*ZAˆÜê6´¯çÜžôîê‰meNOzó{2I.[ n¦{0 š€2‘Æy/—. _à{ÌÏì"È-Ê.ÌÁË-Ìm e9`èÍÂåNðÑ£­àŽ§\ק\ç6¸€lX P!€û/BEŽ`ÁË»†·5œ) <ŒA/åH#zAðk Ó˜Nxc«qt›¡>ÖMxôÍú·8Úˆ}D¶éÞýYΣýö9•›\¯iª7l8wÍRc¸ÚÚÇ'Gí#~¡-f¦A‡š‰â¿²{+Ûjƒá#iÊÁ¹ÑCl˜ÉÀßüaG/Å c¤&&X"xS²ƒˆ|¸eqkf“+¦+:xÒ§.%Åe»ÑÏ#`þÔÁ2*ìê_JÆf66{¤È[ôEžù[“·¢»99‰4alDx¢? 6³Q¤úè½:Ñ`(Ó'Éê“Ö¦ºêvmplÍ)´b}´K¾À¿¸A8˜Íx5{Ü»ô8¥Í®x Z5–R3í×xT•“n¯m¥Ï»[И^Ö¹0ÆçpþT=¥xSüžc¹'ߪ°vº®–¤ Ú#¶¬¦[0HŒÂáŽËñ€ÄbæÅQĪŸ zŸ èÎ{<>2uÆ]ËFÉ„­àšÁT僴—”Ï"_JxóHðÞ,HɇûËG=úáúÍøS-6­p36W¼øi ˜ÚOÞ!¾=Ÿ  ¼†DÍ”µò¸Sq¡Éô] NKÅó®Ë§ÀŽ q^´ŸÂŸ«/Ø>'™´ŠÊôNø šYDdÆ>V˜¤ÙxnÓ¤ *÷Žˆ;×Um§×ã8o^ˆxª¾¯~1Vè>§¢Áh¢´)Dv(v•M?š¥'°Ï(dEÀYé—µEÓE È–wsV•ŽSQGèp£žÿËíÒïwxØÿþßp~þ<$¿Ã!9ÃÕüw“Z­pBxgý‘‡d¦]ö êŽL(‚¦¡‚¦OIdPs£á¹s ÓɶñŒ¡ëÕ(Ò<@SÔ…uÀßFe2%ütj°¦\ŸâDnÑu9‰Ï…&ǤBF+ðÁÍ3„¡Ò¶,~T¢mäð3wÇý:›@Q$ÓŒôÛæC±hhËIó÷l°Ç;ü@ Ûz)f}í=q¨£7s´ˆ—íW'gm|M´¿`¿I-¹ÊöNêað‘( ÛÓAU°ëßœ¿>ysŽa+Ž$MB?æEÈ4+ì®Â/K‹Å•˜Ü[˜@0«£dôAm ÃBÎ p¸½0{«WïPWss&; -›™¿V«Å*×±–¬è3™€È½—ug(nÓàñmä›lƉ_yã˜í{‚N"^Ftž/×*jGïQçù܆¢%ÄvXMju'U[l¨ ýâ.µÚWT©Ô~.»¹4fŽè‚a2 ó‡†ì FÏ1¡8Φs‚;%…ÁP'¶?Æ»ˆLlúh—1Ötó -˜èDÄtÄÑ–B…㡶!{•["o𿴥߇nŽ“‰¬sG ’¾¡1ôuû7$…ÄMærÛ DGFª»—¶^`z…xVÕú[V™_9Þ:dïE¬¦ÇKÓQ›$·º7°ù,ÉM,vY@ ½(/¸”á—úòÞ‡{Ñ˃ã½hç<:Üys¼ûZ«4 CVÖÂ~™A¸GðU6¡€Rl…:ƒK¼¿ËysÊ¡]m<þxžœŽhYj„~fÐr$Fÿ–pã†D½Û.rŠÙdZ_^¸ÝTÞ=r,þý‹ÙÁ”¹±8gWý€ly¹;LÒ&G¿Á«!h¯:- –¤îÁñ¾«ý8Ý=“Q,§ƒÇð0:8lõ—ý7Ó>½9ïï"Zkðr8¤—GGøæ>àž9K8žx7‚.ú˜¬7R“³d0Y§9ðË52pÿ£C*ý oãòj•çûÉô0ΧöuÝSìzµ;¢r]QÿpËøæÜ:íÀ9φõÊNžeÆøé?Ø&„oô¯SjöÁeÄO3„R.še4Š›$‹ÐŒa× Bš²n’)C©pSЉÚakŒÙÖVH¼×»šE€ÅÄ2X°Ñ”p³ÊÚx5› …Þ‹MéB°Ó¸ÞŒ37} V³´!ƒìÓ—S‹ C9¿¨:%¸¤bDÙÅÏ<è†#»?cŠŽáYOtrNþq-IœdQéåÙ*T —…*üÃ)4È·Ô?Lu|óz“3šx©M®®‹èjÞz°é^á“èœ0 €®t¾+ú§(ŠI(¯‘ÊÌ{Emn¡HÍÂbëΑ¯ES‹ªò¢ /é¿IÀ)Š3µEбoK—ŠÐ®Òã'r¶Áùª Tª‰›#…㺠ںYçQ@ü9п É=n/ðÔ3ÍÌí) ê³Ï>»ê>m}ó¸wq ÝV÷³ßãC¼žnnÂ7ž®o>¡¿×éoün¬}¶¾öäë¯6¿þj㫯>[[ßxº¹ö™Zû]züÌP2Vê³þE–ô‡óÊ%“üèÐûÓììfã› å¥Xÿö›ošøï·êu<ÊWÿÚR/qf0¨„_øs/ÂTøµê ¼¬ûíú*üó ì?$“ì#˜ f %»T“ª¨xŽqaÉäC‚âkI3_c tÂ%¥ö²å> |»º±¶¶ WÓõ ™NWO¡BÌÆ= Ù˜®yL­ ¢qS¶N±Ê”ôú £Žvà¼ì*øýôìäûƒ½öžÚéÀŸM’˜ÕÎËÎÉá›óöáêøøÏvŽÏTíNÏÚÎÿŸ½wïkãÈÖFç_ñ)ÚÎo ØñdLì}0Ș „ÇÉdrô6RKjE-“Œ÷g?µnU«ª«%ì\ff¿a»ºîµj]ŸÕÙƒšŽO“ƒW'‡=èöÑ·îœ%ß¿>MŽß%§ݯ¥åsÍ>}ŒJÄÛ13`¤³1Ca¢žRMnl¨oð-fd4Bþdn&¢sà%„r ®…aò~FZC2R µ-8S1í ŸZZrc“_’t‡¸œ³i~‰©±J² *Ä}nCe·ìI)¿#9×6yâN³í€³1¢'”2t‡ÝT èÁ¯3—.Þ>»Ë¶7K5—Ë9X'†¡€†/ÁÐ`-M‰“ƒjœò¸‘‰m ×Q1ðu FW³ÅÎŽ› &žœ&ˆ$i~çðäôapŒ/ PÐÆp±h¹ÕB•\-úкû«ûòøô¬·÷|¿÷rï´»b=¹ÄŠ¸,šZ F›¨3ÜÏf;Ÿ_^"‚Ðø@~к4AÝ‚S¿AY6š)˜Ëì®âºçSLcÀùX³©ŸDñnppO`g}÷-xŽJ éjNp„PóÀì.ÂÖ±ÚN‡¾e;]f1<TÓb]Ú>’gÀ¿É|õvQË—ÍÚ( Cº%3{* 1([ðî¨l¤äBÚ±ÛÔ†~k󑔸 y‰à>”SØÞõ±<&<3-Ãh¨SùkàÇaŠÕ„*¦Â,eÓ5Pª#4­7'­ÆYÜ^2fXŠ+s Lš—4áÖdÛ/A_žF¨u¸ÊøÅýd³¦Dð?q,»9MþÛU/Ÿ~m6³”Á"À~Ï¡mÇ:ƒuà§ä+Žî|þíY§kzÒùæìt‡þŠ¤C)»‚#ƒ0Lnq…ÐïO‡‘ßÀ(8Üհĸ¼Wé@-1[tãAV‘q·nÑŠ›˜Ì¡÷âpg?ùÿ8Ã9Ž\T¦MÅp£äeÌŠá¼}‡cï÷ €½Û4cY£dïÍÎÑ^´ÚÊ4y˜~‘éó|€æ|Ýéœôžïì~ 4©»RƒBê¡Vr*71ÉÄ£ê£/lúcõŽõ—ïÆ:UàEæß;~Õ4óh®£bÔl bd¬ y,BI*'Þ] "˜A´ŸG@ 04¯éŽ )3Än: Ò» "+û„Š«ïŠ Y0®3Ü}æÞÄL¶I²Ç§3N-C`l€Fu…NeŽ’_O¡SÆ C?^tÖ¥do”%‘àÀnt]%¨ÜDãkí ߟgüNaUƒyŸu>[×ð&ãKƒ¦bÀ¨õ6¯Ž¾÷§ð°zLÕi¥õŒ£êþÈ 3Ì+Ñèu—oÇAŠ”°j=Xµ×!èZØj› ôÑAŒ°'‚4±Œ;7M"˜ø”25ƒ)|_öÒž&5¦× {2J§oÄ*f}ï7U×@¨œ`SÍnDw“$¾µ…^iÐÚ¥C´\CšE¤(çJÎïg)¦¨~š¬2XmÁÚW>Ž”ójwXL¢~ñ ¹8L6ß› Ó9^`$AßÉ›ÿÞ½jS_ᇗh^òmS>YÒT`¹[Ë*oY° ܳÁ`-¼Æ‡i"°Õr¶Î'j;oÐ>Â7îpdíÜæôèš<ŒnØãcÎÞDYįi¼e»zßB<WV«»¤¿ß/33káûX!ÍXpiaü%ð2$x*VóÓŽ^׳#iôLõ­dˆœ´ýØ!P:G8<À$5×âÀ[wů"‘¥þô¨7n+€MJ©›ÝejC+’ô%¦°ž?"A_¤gøÞ•op‡éOWŸÚwÛþ›ûa­´ÿt‘?Û,N䟄Òà ËöMž A™2çpy;] †gèz€$*¿Ð6S &à–ÞAÜú«ºAæÑè3BÇ©»ƒz ÖðfÏÓo° }ìûi¥¶“û÷òUÇà<(Ù÷2Qå:ó”Ë:ųô~d϶ۭ•ÄåK}`lúó¿FÇhÛ¥ã„ÿ²'ÿ’íõ„†¢Ìný±3?X5·Ði“I­JÆ@ìõÆöÂÓdŠ¿ù‰Mô¸ŽdñAÀïjN]$YKÈ¢¶Í0˜Œ3¶ì¸áØ%¥¯×H)ÒQçØ×î$/™n2µSexút§5]:åIhNÎþ¾<@ >(ƒE˜S¬=´»§¨‡fñˆ•¤ç̾éä³TM©|ë«›2GÜ¢dØ×™ë6šw]´š>ip¬r•‹‘Û§qΓ[l8ÊA=õÒìªEHv©ä1Dç,±ó’¨Ã9Lû|<Sæ+#dH3üæ„Í\ÒÔQ¡´/¨kÄð$ÙEÓóEŽÞÜj»¶e¯îMFÚ¿Beß»¶ê:l¤¶>Ÿ-VH±À‰­J]º¸nŸÁˆN‡ÜÃZìؤØMLh£g¦×rpHdLóÀ8ZÕ'õ"g·u…¬?˜D†¶c`Çèá¯É6s4ÄÑTzgf㉾ÀÃ*‹‚¨}énK¸hC¦–qŠ3br?»Ä9>é¶Õýâ²\œ@™ÇÁ>èvPK,Ç«æg÷ ,É-‡Þ-rl…6ú**® |-óÒAÃ…¢<óªï˦L·éŒô¾j”áXÙ¸{zÜívº=ÐsJ$èÿ±ÒhJBó_üd¸õÍ–Uàiö©É»æ€¶V¬bÇ·âïèd]t!À3y©èG¬|#£ÂjëP†¥¼[ñú [ñ V¥- 0H÷0ÅÐÆe6m­Ö„ ¦Öð¬P¦Z6l#ï‹\ {LìuÏ\2B^ÇÒÜ@ŬAšqŽ*ªrVÙM”íbo÷°wxlÖ |(:ÊBQAÑ4â':[MvÌ6³Zå£\ædäµ~mXaNŸ|^bî³±ßϽ#úÕëM¿µË5">)U=Úµ‹Ñ(ÿƒSô=Õia`j+ï˜mgxZ±ÍÐ6 vZ¥ôf÷ÕÎáaïøùƒU¤öÈ–Èž¨a€È¡LþRe©ÓÝx~¥ uyçk.¾ºsò²®þËhí¬îÚ¨ø¬†ßÛ¼²åb…r$…vRcÙxÑVfö|ÝkŽ†4œ$Ö4©˜ÜR“9ÈÊs|6¾ë‚7CÇp%¯ö:{½×'Î~áÛ‘´ìOÝë#½ÓØlÄmyÿ.^WY]ñbr$’2Gò²é‰Q2ô%øXjÆÁÒ¿MûHÙG“­ôß”lýAªþ U¿©ª%Nʶ½Ð¡F™ÊЙ& [æŒA^¼M$‚ûàä]T¡mŽQtQü²?,ÎÏÍéð7ûÞÐ$ ½dzÞ ®(¦ ù¥êÑQ¡$ïÉqÙïÅœ9”/GÕâ¾ç™ñŒêˆ8Hîùß·DÿQç*qg¡«Ä-›¹ˆ4³ØŸ‚†óÎǸTHóºn3E5•/è6P{ü)üÞöâõwÊýävmú]ç7Z¾çòÿL¡Täâ )žá<ëAâ¬ÞÅ8ö¬üîÕÎ7†¼}p´×Eü‰Q`¸à»&(ëÚÉŸ…îãð:õUÚ¼Ó¹‰¶ ŸA£PˆbOIã˜R®/!!tB)Pâ%o®µw9g§ s.Ž]ebMéðÈWXBG.XƒÕäŠ,Ãä68Ì ±^!·A9 ¾3Eξ=éôö:ÝÝÓÞaçÎþ÷NÉ:ͧT¡YÛ«sô‚¤é²›sl-˜ sízz\Q¤ÊŽJ± òr¯¡S‹u¬%¸f¢³’#ž"^×€—*žN؇FÝ@¿'k\£Yßñ§l0߃VÇñ ê„ðôm§­œ’¾Ô€çÁZX9-±µaæžqÚé<±Y¶l=wù•M²áróâ—Gøæ0ö!½©ûîõÑîñáag÷lçùa´]¯@XËg amvÎŽ!˜Â+-éìM3;±v‚–¨Š$Þ ×$gcົg¯Ÿ??>=Šõ^ÞE†ÏN¾ÁW¨›ÚjÞŽÿçá M™ôRwÛ ‘u$ðuK™‹w{%8³p;”ï¥;(Š¡WìíAïåñá^d­˜`³y—´iMС…ŠRº{VÓ§©ºä™sÜl”Q {ðç°ªÄÓuçdèðòàTW„j*zzËu˜’¦ZðÜ\!‡èÓÜ £™´»-g99=8:ë킲ûrçà¨ÉÜÒ‡À²×ëžííözžïb¯×Ÿ ç%ü¯å4°H±@*9§KõXì_µ”Åo²m=¾Í–‹»'LZb·Ñ»?¤‚K\íí¬-ˆqâþ!+G)€hRsmÇK“+ˆ¾ðÅïq·ä0ZÕ¶5ï4#*n¯´“ú]¬}SüoÁÿ¦–»¶'ÄìºÊY·©¶¤Px´¿âÙ~Ö9ºN¾Þæt¶<Ì鳕é<ï5-!´Â"u„œ?vð»ïunÍDýxç±óêäìÛ&wö¿Zç3 hºŒÚã3ªVÌ„QO«Ôß‚VIÁ::#§GÄY9-$:âiÃp’}¡‚FÖvx{ÞÊ®e_ Šƒ½zˆÂAWŒž‘1´q™âÁë,±µAç·]ÉJ_éƒøbNØ”ÊòVtÙš;DÈPG-ù°SESä6õDÖ‡‚n-GêjÇ ‡lÃ$ôüì@è:öËï¦x¿Ìk”&ÙH[IÅ?çÏ,íUuEu|äš«Þ~¨òÊÌHe‹eÇ@PMÉ×|ŽÑZ™r²sºóªë¿ækø¬l'9ͱ­K‰r«I鹤8ö n§½=$ Ó•€L{Ð?#‡X3ƒa~}ï4Ùõt—Á´B/µûí¨¯ë £{‚ìQ¹‰þUÞø~²þn$Pœ5cWK€}<èØñîGÝó õ¼0ƒûe7»­æSîòÛ]¾ª‰?¤ªß»Õ×YPòu·v“Ö ¯pÕØÃ/~TA1Û'.㌹Á¢ÿ¸t½Ÿ§ëèõ„=ªÍõZ×Õ[Q‰‰Z. ­ï ăAîz«ÁviÃ…4Têêˆu,ÊrÐoµ¯ƒ@ÛȈ¸qů=а!ĨPôwű­c¨‚-Á_ü;oŸHwñÌFêüݶQm~³}íÒ½Û&¼Ÿ~¢Ar¨Áî%é;+zÑ㓳ÞéÕþñôøS¡ÌûKgšdÞ_EÍð²"¶ßPî¿%?òïÎŽpsÿÒ¾·ÿ\$¬«œMóIÓËé4›ÆvŸÝ|ñð+·ëlUz×›Nï9*h~Žˆ—àö,˜ä^º#ü`ŸÖ¤Ùt˜á0×l†ôAš Jî9­§ôäìm²*= E4Mô'7XFøkG#úH¤2÷ i‚_×oGÂv̬{®[½_Ÿ^øMþA6~-²±À…ï4é¿æfŽVù+ïiôCZÜÞ¯¿·W:5øGírùùc›/ÛæŽu‹môzþÍgÁ-Y`\ùÙa9v¬s’×îÍzLíÕRǀ܂áeýyŽ»ážú4¦cÁØÜRx»Ö¹TwƒºJ(è,ª+—pIÔÌJ-ÁV®CN5P¯®jcàGbºàw/Î i[ÖÐòúU¥6Âni÷•nõ¶•‡AnµuWåÙ ‰†ž™—¬j¼b·ddK;Ѩ[9=š—ã-úÄ|ŽÉÒ‘‹³ì9&¥Î¬¼tgtIÀ´#3Y{´žþŸÆ/æÅ—ÏÁíXÚÛ3±Âˆòªa0†ÒÐ_É}ÑR‡¾ *êŒ@ö¾{|ò-tN¤o[á¶\Ÿž4¬ÅxYÜÌÈ!ÃÊɼI‚¸<¿€ñ—à|qJîRæc":ÁQ $X Ž’qÞ}—_&–W Lc“9Hˆ*csu¦˜ý2GU:š¤õœ’EHþÅ|h.5® ðñ5·Ü°(Þ&)×jûAƒA‘Ü”¯v¾éu_ít_vö’­ UC3ózÿýöŠ½Aö{ÕEªlü²øÈ7Ç• t>ýÕ…èÒ¶ð> ,ûð¥8.õ¨0;™=T`¶mý²™½¹øÊ›QÄT»_—ƒ†"Y³ÚÅ»lz1,®Ñuñm–Qšæ‹|jö©ªpmÓƒü†<¯®f”Rǧ°¯ÇYuŽŽ=jó½)tåYfÉ›ã°kXÿ©{PE ¨ÄpÙ”v¯ä˜ô1Ÿj[)ê`W%$‡*nëXH”mù$Žpj±„e…|ÄÓê);Gí”üûV;ñÿ&Ú=p€ÝÖœ#Z‚uaH^Y†4ºÌàGŒcA^²m 9Ø9Ýï¾î"$ð/8•áÔ6Û?›Îû3Ãê Xxunh5 •ƒùht=²•ªð#.O仦jļä"CÙ×뱛ܵ_+.©š+ºŽ«óŠØä y"rP N”ì‹Ø÷«f”«“a>R"ÐDCl™†×ž™Š1eÛ¥‡†Ã eÄü)y–0I÷﨔€Zv°§ “wÈ‹ƒÏ`˜Fæ·°Ž†>¡T¨“hºPÚŸfò/ ›fö#T„Û6b äVÓ ì+ÓhÚjMò‹&nàÞy>ëœhÏÌ%Š mgkÅú´ªG£„Y+z{ǯd€d‹‚ŠšIÅ5ÞKš[`,£'¸ñð"l – ë5뼼¥•YP4/B6L†7½Y×nز!GÎCx;ôljÁ !1£ œþ©’O¯?ì]¸› Óï 1ÿªie{‘ah•,âo³·ÒŒÖÙú¸<ÔZ£òêO¨lm¯ƒ.S}šLÃÔßup-r3ü®U‘ºiÃ’­öŠö}·j¸nU ‹·±¸öV(Î0%Ç1ÂëÈ L•7˜€÷)O½%¬+š?œr¹)0¿+ÌzÙ¬ŒOÙë{Iø­[u6f›§žq;¶ÐáåéV¼?„ ¦:Ùnð?ÍUCAí¶ZvZliˆ\÷ c@*Us 3— -íf ³^uÑFïhÒFÃÍ “ó² ˆ~dWý §ˆ ¼@LiNF7ðGÿÚ7ä³`BöKñÓÙŠž[ÁvHV]5ßB¶Ími²mŠK®À²µ;fÞÙÇ$+¶ê‹Ì±{( *0u ‚9ÇÅx"­lmë¨J´GÐ|¥´ ´-Hþ6D9õ¬àpÝÙ¾â 0B˜Žä©›5»i|»%¬ ÎV¤¬Û{¾D²ÞèÆlfË£ßîÐV“µÞ*)+1kBØäŠÔ|€ÙYWÂ☦õ 5€-îïuU§¥ ·¹úƒeiÝxÎ,ù¤søl™ /þS{m—ÿ8ï¿Êy_râÕôÿN×·nòW>ùÕšÿó¿s7Ú÷`Jlš›Óx£âÅÛ`¢JXïŸýÀ?‡íÖÓÌAt Ï[+ÊGdàÚh1ÓþÝùøí¸¸ßÖ…í°©Ökˆ¼+TØÒVo¢XËú.û׿|@Ó±ÞÿmÚØ0?=2ÿn=Þ|ôÿÞÄ¿áçᣭ‡[ÚÜxôÅÃ/›÷[ÚØÜúbóÑŸ’ߦ;þÏÏ“äOWçEv5ZT.›–¿G‡~ßF|Ù-&7Óüòj–lþõË/Ûðß¿&/Óq¹ößëÉs˜™v²3LljùsÏlÿiéÕì·Ì7Ý\3ÿy ìo²iñÞ˜NŠ)¼$¦‚a‚ÅKоeÓwÙ`½ZÍ–ÙPÃËìz˜Ífk'iÿm:˜R£I:¾©¯ª:{yÐM^íœuNvóûÉéñßö:{ÉN×üÙNÞœ½Lvžw_Ÿu¿MŽŽ“7;§§;Ggß&oNN;Ýngj:>MÑþ ³-}›¼îv Â³äÛãקÉñ›£äô ûµ´|yÁKÌ,“S–3†ËiŠ€K³ŒýI1¥P5¹1×­y=‚oÁø™Ã's3]@æáå»|±Áà¼x—ApÞÏÈÈ`K v?0ô‚-ÂÔšg„z£úÀ9…!›7XK¿€¡cìŒÍ ›Q‰6˜ †ûŒ8·ìY;R~G&ÛäuŠ{Ŷƒi}É} <,°î¾ÝTAì@’Ú/²óé<Þ$ú×ÇÉ£'·’É(9éž¡zÊ\5TuòU9äÅúÕ3ïà´úÏ0¾Ï{t×pïÒYöಌǻõ«»ÖCÖeØ“:Ĭôß6[hÞÌlj™wCCÛÉy¶ú2æoÍŒÌ]ÁF]a¡6*†ûb”NÂPÕ†ùÖÄÓ ïÓ|D¨÷°[Àê ›–8ñx¨öh7ÚgÏo°¢ðý…õ "˜_ ÕÃÖ{•óxæ²éêDCþ‹ó!`0߿¢–›M1|Þßl9Ã’÷±v"ˆ9¡¿º8ý½szìb{Tå«‹ªÆÔ[o*Ì8|çYlf´%Æ|»i2„ ãl:ÿ# ^“Qu½!©¦¤DNÙqÇd˜ ™J¼¦—˜äzèÂÁþÑñi§wüâEïdg¿£½‹¤¦ò²¾Ð cçšÃëvòÖˆÐF‹2G ¯·)©…òÂ÷ÑN®œ!;³ÙÍL“™å^÷ïhkÇ®i©¥…™Æ†]INÖk¶ ò ™¿ÙÓ›+0£Ýƒ  f'^u1S ÆT„í*¦ouìE~@ãþY±tfgŒ2+ƳÞe¿e=èÙÚKÍ:ÏfCq.o¶² ‹Û¿"a§&ÁŸD ¸g®‚Þ«×G¯vNT¦â+f`nÈˬ7 ÏÕ )vçeM4Âló”‹`Ûº ©˜Bb®ÄASbÖDVp2¶/kÒy®¬g¶sÝ$ÌÌ=+̬SnSÄnUë—À©ší›gàEå&·)õjÀÕܪkÝva"ñâÏHÀyy§ÜjËдTŸã"¸Á³° 3CÞ#ìä|ÏÜopÅ›Þ!j0`î†óç&;HQÍžˈÌ9yYŸ.3;°^˜{Ê|µ~;šQO6zf3ÑÕöIDSµëb$écˆ‹/³)ÖK‘n·IûŸÿ„~ÈV~÷öûuCûøHŽçwmf§¼è€ì×·¿ëùìS*`ÿŠ€ÖâåFÇS^mYWfÅžgšÆûê­,l÷J§Ïž—3sl¿K•ü8¦žà*IKë£o_(•iöãÜÔ””“¬o5%Üâ[Œ½:|{¡Wcj³)’[ŒK©È¨‰\·#zöU¶_ Ø!@á­ø~X W{>[oaãe®·ÃŒ‹Å¤òhµ˜Lì¾j&. ‘ç?åÕBÞˆ6¹Ý\ÉýDœâíUñªsºßéÁ~èQ2l‚õGÖï»áù÷¹ò½u:{LF0^»A[^#}Ær¯Ž¨Œk”CàÌøÌû{MÅ5°:ß ¯¿÷ÂH›I³€Ò0)äƒSðY£vêÀéq¸«ÃU¿þ«÷¿÷I¼Þß,S#‹%ñ/ ö”ûàQ¦~Q‡ö.”š®jû’²ˆš¯åPõä6¤£u\}K§S§ÖHÍ9Q„\ë*·Ôe[Hd—«@èEƾW÷ÌÿÌl@b!*‹'xm¸\¡üCeEçhÃË×ð½yh®Ì@š—Á7–bn½ƒ t Éf 0}wÒRôŽ+Þ|¶BôÇb.q¡­íà³s—Åô<›ï´ó5—ù[14$pnøfºI«Q¢/¿ÀÔžc²6JШ>„µS3Uc‘ŠGSÍ”R³c( …(@’ÔuÎ_F#ÅT©Ùû¬’:|[ff~1´þ’dg±Y,ݨq¢Íñ—â°MÚvÈâñQš± aÇ_·Á•Ä\‹å̵0 ³Î›!²Q1½Y÷&j•hEs{¼5ûIQý4ÆY"Y«¤¤cŽ[—Ù±el‹AaY5âó€UflÅlð'ú††Û¢"ðÁŠe>ËÔÍŒ ÙØòc ÁÌÓ͆Ù;ó1pxT\%NìÅ3X~.ù”Ÿe÷o\ßÇJÓ]½‘i6Ã[žº Ù2m†õùJ稗..!¦Ìã­ˆö ön½Ø>0îÂI궑¿yjæöc¸7[Z/&¡×¬¯ iù‘ôPåw?8úÛñ×Þ‹ƒ#Ãi6¶ÛTŠ²€ª{]D·éš©Ù9Ä:—7MÂk½hæ{— ¼Ñ9 k÷é‚ÝE OdPØp'o/& KTðtJ`0MCEfŒË?˜ÒzŠ4ó³px1!Æ^û·‘9üúñCþ™±âhŸ‰š±¡V„  þû»6q)D Á½`ë8Ï. 3ûu†ô+å+GäMKs\Ž2 jàác¾.L»Y[bsi‰áõÚ­ mq¡€ûú€rÍ_¾WqIqÿˆ&ª"ŠšÕ5¿Ý¢Êx>¨[­"ÿÏ& óÅœO›*¥×N—P=[t3˜ ¡d1Frg(½¼ ÑÌÉR '¬;ZC4†?ê«°déá‹z±ÂCt…£ïjDÑ)ÉaˆÆÑC[”Õ5DáƒÕÃÖñ‘AqÒCTÐ:bå„K¯æÃ$W·¤S¿˜@ý'Ó§ÿòDð'ŸNTÊrd 4yÂð¶VyÓøŠ#RᲿœff³–³Þd˜Î1’Âñ »¬„™¦§¦*óÓx¦jC}C¬*5ÎOP.üË)­·Z^0ÊigïàÔl$þ†Hú̼F|ðugh_ïÌlžvÀ ‘‡IüdˆA [#QüÓyN”»()Ž 9ž^ç%²êæ$óIR¦ïPq”XÃô(K¡º¡i_ˆ,üÉë¤}„–Ø ²AÉ*,Sk[- ©(ôL £|fÆ1¼I~œ1›_<˜YD3™ÁY]à$˜°—`¢ým©°­‹= Û¸SàbܱÛÙå6I$˜×†õ›oß=Üê±ÜÖ‚óäbþ÷^ÀŠ=ú;ý¾ÙvÌ%ïgSð›2—J6n“ÏÑU6œ”äuóêàhÿbV€¿ÊÆæ~'e$˜oJ«ÙÉ&5¤¢“IØ›ƒŸ¬ïþî.1©ì:GÌÌ~1vm€&ý\N±nÎþí5z³f^­÷[ÎÈ¿Äu Y‰÷¥©®0NÊ6ž§”œl»åŒ‘3æá9²Óð€ò4<0p}ënÌ.Á¼JÍÁÐk+R/tï{Ôa¬°ct‚KɹX‘ |âS‹[ôq¼ª{É8Ä?C§#®qõ<ú-ô:î<è¸ÌBAœ—½­>TŽfl\Y†l|³ÖwLîé…@þœ aW•»Šðx{§•ÕðÑwä¨Ò5#c=3JûÓBu[!hâ¹2·eÚŸÍ-DÉ£-u®C‘³$à®Á|sþFc°Ë‘̆š,Ñ4Ç[Áë†TDѾY6*ÙtehXœˆdæãùû¤¼1¼Ç¨D-Â`ÏÇ|M×]ª+²ÎÐD°RâÖØy?æý|æ+¿‡ÉzÀDƒ†–ãmÒ¶Y³í¿D¬‡‚©ì àÓc˜™à¥(m.†au¨æ‡(žUƒâí½ÿ$‚¯Ô@—Pôå@(‘£î²jLÄG†ÂH_²¾nï=pu£™" Ʀ‘uœíÀáo1P)o‡·W°ôx‘^«¹à2ÓxFæõáÁÑëoÜKó±x„ Œá,zF(w¾1x/™Íüª‹Œܳ¨„L‡ÿ•°-ó…¹ßºÅ0æd#Å ¢ˆC@ž4‰bÊÄ\íæä4Äêç 5ó µ!O ·VÉ|–=V|qžñó‘lýu§§l çãøss’§èÅ£NiãÅÎJÅË¡Y"·ø>;ôÝS"€ž´”u HÅ[‡} Èxð½#®,û˜‘‘-šQ•#?[àgÏÐ3›Às¹,t3zNŽðà,ðµ,¿À03¨6öŠa4ÆŸwÙ'·;·hÎ+àÉZ˜gò—é5ÛÒÍl¾E§Š þdíi{Ét-ø³Ò“ãûʺšckržÏȧÁÚòÖg ºå nÍ=a.†A‘•°KˆÉynýz>¶ß:ÞøÏîàç —z¿…‚Ãñše'Ÿë‡7!š&4úôf»:à5¼|Ázb(jSlmV¡Rþ„ +¢£„¾Š”±±JŸ FÔv|) üYµÂÈ&‹ÜCÒŠl?æ “PènÀ_¾!TõP5úá^©çUíCE”…KoÐäd¹0{1[äH6?ßkÞ[”½Ùì ‚A3“fb.F´aM5F.šÎúóY©-/Àø"`ñÿø{ø–wçoE: G÷7ÚÄÿ~„¢rÔÿEGøƒ—DF ‘>rcŒ'ºSy‰fO­¥ßHûJÓ(¡”ŠUðxgæ+¬³‡¾åŠLDÁ ¹ç¤¢®B™€}f°uúÈëQs(llç¤FRøWGFþßñCñ¿ÈþÛD/ŽÿÝÚüâáã?müeëñ1¶6ÿ´±ùpsã/Äÿþ?ÿñ¿ÄíþoÛýï¹a+nbÐîÉO6(hwƒvW–„ÞÊdž‘_²z3×Û¼{ÈY˜¤·Œ¸ÊÿÑhΉ€T ¶ýëÄõþ†NR0Î=0õW:ÇÕ›Àñ!`{;6/¤G˜sXlñë¦|"V;.ÚÑ‚$Òä<?ÎÆ>!ì$0d OöA«Úçt…ñi³kØ>x’ÙÍ$ïI]‡ ¡3ó‹Š ¾qÀó‘ƒÜ¶K»<™—W.ã²x‰lÈéñ™á4¡hKå ÂOL“.Ó¼oAH—•qP–Òç ‹®È5Iò·ãóƒÃŽÅÙñžø•3òõ¶SUÖO‰.KªÀy÷}óÁ…C LU¨wEòjÄ´fzÞ¡Î*—Ê›qÿjZŒÖêõrš•xþÉÒ[…щ·X²lÃ|„N±^Ï,€=Êìt>¿¸È-ú*ï_áN£” ÒA¸?§<ŽÑùh;…Y¼;ßã86ÄÐn)»›ÈvÈ°É|jŽÎг$ÙÜ°(÷‘²‡Ý¤ZÀ@÷ƒ#so¹c/¯t”›®þUcµZ¤J²tx{¼üM’,¨×‹ŠŒeI’’ƒqi-ïçÈ3Iû¨"¥oç“h‚–pšŸ`^ p ƒÏ+Ië£ ,àòý ½ö#sÝ­‰a©nïxÐý6ª×°@˜oà Škøv>Æ0ήNP® ‡—BT‡Ù8G`‡C ’#Ãi‚fš“‡Xê‹Vw†ªªŸ–ȱÓ\‰=Y¦=`"_ ½†”q^^Õ·›^FBWTÝCŽ ‚ìªjW=¤Mœæ)àêc»(Z§ó1¸–<©ov6Õ1±4%%bÒ/ÆÀ¶À=¶¡'ð/JJgœÕEšçÓÌÅ:ï;Œ>-¬ßz³¢…’cÐÿ?ú!îÌ|¬‚ã‰Ú )6èÙ*W[ñUãSÿ][P7ñ}Þ¶Tœ¡%úfˆfƒ‡쒦魹½!uGïŒòKs­Ï/I[bœ]K¥óö Õ‡Ð—‚ÿ`ÚIýI…u·E2¹_“ P«FíÇ9½?Ä$zšîg¶—-Ýu[€¾”.ÇÈõ"jmk ©©ó–••€+ß4Ì3C ÀuÄœ©šr®Sî§üdeX[?.ó…+–ç-*Ü—8ˆ|†Xvd¢ªï×`Ótñn·ï|ÁÎÄb)×Njç€Ëÿ`Þ–øÍvÃê÷ïƒîo²ðÞ‹ÙïT-·3rß Õ^ .%K"À0sEX©¨“—vgâQ$4j3Ûžn/wŽöŽöAÏù•ÆÏB5®uÍ•Òx¨óñ {o ž¼<ƒ</AM)%ùŸ2›õ&W³ð\7”Ó¿²Ü$J/3È÷Ï©‚ð\£Ú™‚¥“FîÝ£¬Iy£™ !5ˆ_O Ñn%Möô„>Àê{†YVT" ¤KD8Ñ8~?G•ý–þÕ˜“´'XZzèyªž®{å.¼õ5ì¢Óð:iÄÛ UÑdt³ˆÍR"‡§®Ü‰U5Ééjð2nÐ3e¿Æºb'·œnS›;²ÑèÅr© Ie2Æ„*Ö·. äfæýâ, zœg†-b&ÅšÐ8~Ëìðæ`£j³Lì£ý/Ú÷ü.ôº )먛¦‡âŠ‹v»|´žèÞñÇo(‹Bzª\v8áÈ×òéì†ðcÒþDUh¯úÑ9µÕúÙ|dÎÿÞ:%ÔYe«Up:j×Î-Ú-·"Å‹j[ñ¬þÒr¥ÖÖ*7Ô‚­ÝúeÜã?ní­[‡0 ðŽšÇE#ž§†Oœ’op”ƺe\¡J¤û›îø!èµa|šMÚfýða#ÿ/Ì¥ZÎGåoâ¶Øÿkó¡ùãO›}±¹ùxã ðÿÚÚ|ø‡ÿ×ïñó`5êȵõ‡#׎\UG®WéÔ"[eO®Í­'_lªü rqì¾ìì~Ý}ýª»¢bL£Î]ÊûÈfñDŒë•–îyIÚB- RçÖZ¡9Å—ëÉ›bú¶$æqIK„4àPdð›¿Ë§Å˜×8[ÇbV®ÔÉ[T3ªˆM·nð•˜ÄÇÀ™’ özšƒ›–ÙÁÍÝl ‹•T°é?¿#ÏŽù”ž”éð¹`ÄÀ2àP9 ­åPØ’tsl5]qO_¼èvÎ’÷übvcØŠþvþgž¦°w†ëÀšYç#‹·¦2üÓª ½äž“XÁ¢*ž¯ivp—÷¥#×@»%DÆÎP>cÆÝOwþE_’¶WVܨ52×Tòù{ó;¸ÏéÀÍ»ŠÀR#¯ 7( QÑuu˜T™æ• ÖåB |ü÷ƒñÓTンañûÀûÆn‡-ù§Y¹/éŠÜNM¢¿†Eñ–\EùúÀwO«zJîÂäÀnŽ”†;›Ž×e‘Ä:¡‹éÎò÷Spó:Ž,âiQŒ)ÞŤ勂¡=±À/Z§.L†„¥I ؘÒÏThLÄþ­­×ž±üé{uî uÑSÀMZ¡|ã,²œÂ7WX:`C VÖ7}“"ˆ1;·ÝcŒ«/@(ݾW–Î9zúÑñ 0×+‘«+K•°Â†F¨NÞê„“ýáù»¯;Ë×Ðkè<?3XLÚsh?¾w/ ž]Y*ÒkÃeQ\d1)Py&[`ëÅ¿-ÝrEø‘Èæ–fØfÃÄ~”>ÜU8µnR3 Á\Fƒ´j@̦5j^U¤T+-n¢7]ì#4дྼ6·×åmL5WžÒǷʲ‡ ¯†T=k¸=ei•[éö OËÎáœnkRxÐí½8>5¼ÞÞÁÑ>bøôŽO{G‡M c63…;G”sÅ"å/…ü5ÔÎ:÷–¿ x•­4t…¶v"ˆdJ/,éFœËJ3\Vv#Êƺì,;Mâ©P™HQN,ÞâÚÕÍfŽÝ hçÕº S ébQšÏ•B·ô¸Gé„óÍçcœ%xâzàO’ €4DMª÷ÊzãRú°Lp„ƒÎ/"×\6c›÷ VˆÃôçæÐv&ön©EÐ.€w¾ç%¬“…ëÎà3î“\;ç„ܯ¬ÚuÁyµq÷Žˆ™¦exi ÿ‚ÆM³,=ðÞ¶øÆ–Œ§~ä{0nªä«ÂwL¿—f[@Râ‘ÞMKŸÀÿl¾¨]#*z~ïiò?M÷†>«!TÂiw>h︬¨„Õ°âèl¸W,žó¾dò¡ÇT¡½dêÚ¶Ìïd2¼éÍ DÌæ–õ´·™ ²¼VìÕ×ÿçá ]×gó.¹+þß5UÄ?»@·àå±C¤©.†D=õ=ÂãKï)Ñ ["üÖYüðØÈÝãW„à´ïÜqâ²ÎÚøóLTðùh” €„ó V„W-dÚ”µžxº;Ø$DI+ZxÅÉxÏí͘/2e…âq—Jw/óïoTÿO²½ÍÒ–ð%\§Á3š“@wÏ&— ÅËæä—“Óå˜PK^ÍC§šoˆß$/-ù.ÿ~ýªÔF [/^û)õ‚bøseÚ Š5Å?ÖeÇ +ñM OÂN6¨†6…„ºaÊž=%‘¹>ÉÉ—BŸt”£HEŸÐ*Á.…¿h}Ðley2æÇvL­qEw¯ÖÚ?°Áfª³2JðÝ¿]— ¤‹¾ªðŠAã•f*,Vl몮4âýÉGöÄo§EXÿ–äœË´8õ~‹a§dÅFOœq1ù˜j*[D”¢è"ªjN2ŽÑTÙû ˆÇ›æ Ÿ Š[ºPÁgj‘z]ZÒ\ èh‘¨C–Ù~œçÇQVS²kE}hà:™MÓq9$̼ùÌ•ä ž&ì2Ÿv¢Ãæ! Dl`þÉ1n}ÇbXMÝ÷ÿwþpü?ÁaõöóW¶-¶ÿ<þËÆæÆŸ67¶¶66·ýž›—[›Ø~ŸJü?€þ°ýüaû!Û|ß#+Õyáðó'Ø¬Ò õ¶L.Øý͈Á3x5í”W¦†1Tt•ì¸ÌG§Ù0'7„”ÊÇà¹7ùÐBhª»×ÅÁƒÏ‡Ø0á#ÓÂk¢,Îð‡oNÌ™¦7æ¤Þß”r¾aóO©9ºŒ vEà)‹Éš)¼v]L‡ ô2ž$ ²e3Jl|€Þˆðu°p áhÅÏ0uÎF›Ž¼lJñ#ã9ÓOèE’²˜;Ÿ Ö2/fS€¾8Ÿ˜aŸ ÿï¸bBÚ(ƈ‡‡¹¹-LÃWmªÜë¼Øy}8OßôL‹ÝÆ#‹*kjêý`Xvý7µ£Ÿ”óÒÌÀÀ+TÆÜ0Ö`%% øBm½þ»m´9>Ÿé Ð8»ãéû ¨ö8eÀHW5n+èâ9DïAZžqv6ÚY :Ɇ2oR½8“¥ÀJš»_½Ú9/zÃ{¯ÀÊû" üt1ØVXbª  ç¾AìõXrgJ4YÌ@d¡.¬z‰H~B¤\W•Á&£ôǸÉÿO­© òòwœáÁ‹ßšU׉òq±Vh7Ÿ°Ûóy1§;H¶ü­òTS¬ìdrøçCðü$ÌJû@ÒDQjPR¥°ü,i¦hN—+ikýaKÐ0ÌM–Ijb—,J•ä`ŽiŽNÚ´lèz=Ih§Áe.Vy7ÑIçŒçʃ€³Ãî ?Î3,xïLÅŒñW¥‚·€!ôp¬ghn¥åÛmÒœ ³l‚·.@Ñ …ö¨™¤qòZýµ“êȼí•ð ä¸OÆ¢c¥ "¨¡6™•UOHýƒ/Íî½…Ó2Ñ£1=Û$~uì”|4»ßv{ãt\`WÚÉ=€‘Üh™“q‡­x¶O¨Ö‚ofU¼¸€ü©m¯ípÊsdf³›Y%*M²äÍ„ˆøHòs*´#Û‚L!€JOnz“˜Áßm­?¢¬W*à0}l jø´ãjp§!¦ÕPÚ5.AæÇGä8h^\˜Å5›÷ÌÄpš_2ûÐ0:û;ÏOÏä­škSÎ,l,ÖëvÎ^ít¿6S_Þ“M¥"MmÇ®·«R*kS2$¬’)ØÈp¥@~û½ 0ƒ€i`ELæXõú@-Ù¨Lmš§9Üa¿—s ÔeþD;:˜Aº ô»’†pœEPýokæû÷»ð¦gEkíåù´r'mÛïõªn­aó®±ÉôÒð4´è\RËå¢ÎF>_ ¿wWªÜ^qØ€ùëÏ’ P4¯4®~15wÃ<ÆS¡üB€c#À“°:VÄ™>›çù…€Š¡¤Ùû|ÆÍtk‚^ʈ&Ћ·ŠJ­Ž9]cWSö†9!¼CáµNŠª¾gïg½w¹¡£ˆS<Ú”ú<Ô—ËŽðå¬÷´ Škܨ`Ím’‰XœŸÀ„]…ô1Ë‹þlØN;998Þž×ìsâLST“$ûÀ´ª RP ‡•x_ lÎÚ¬sÃ) Áíªœ÷û³‡“i(ÐîãWd4ç´ O“Ϋ‡‹øºtò f.Œh4˜ªY!dídÁ´šMóKç³A½äjžq0At îØ)h!/‡Fc¨áƒŽø™Fœ x›K¹Ï ÌVsƒ;Wy—Àre’xŸ­mb )À´(éÝŒ©áM¾­õvV£wö²öà”Ü¢$¹d<õŽ6 çþ}}ªÍÉN3ËPsÞýl¦,%æÔZD§ãÄå·&Êóá–[~P™ðFe.]+2 X†·(þí¢½P”¶l¦æPu Ôù T„X¦D!*dÚ¨¿³õÙÝ[òñªÿ5;^U«3÷ôìÌ0$Š˜sJ6& ƒ'¿„=¦þ@rÅ\+AÓSõ)=–ïL_Ã*¶UF\L3ýú¤9nÁÔž•ÔcsÔQKð°iÈÓV6"aB2v^£? ×eŸÐ5Hi>zâ¾a»äð{â< ±û±âŠÝð˘BÓ•äéºm©m‹¬—½Ÿ@Æõ« CÁòwè-òwŽôõG%Á—4v3Fú/8"ö§é¬EÎÍà+G@0S†ùÈz hgv} ß•¾º›ö ßg9úÏ^ ç%iNTßÔ@—«h˜sʹ³žìŒ‡ˆù¼›Öt‚šüßvŒéÒ%¬RUe¤J¯¶ìÎ ¼ÿQ{…çÃÆÍz g¬Ça™ï6¾º«YئÇãÞ¦£Þ.…3É5û„ÆÒ÷ú:—îWE n_]mmˆc>y&Ûù~p†[V2ö| ‰»êÂD»C•3¶ñç]PH€a߀O#¤¨+A‡³ƒÑ ¥§3ðâb}©ðœ4‘}9a*“þäç–ÊkãQ;Ó)ô­Br§yyØ EæÌ`¿{¸Á)&S¨e^’ÿù¥ž©ßsvØödËœ Üy§ÖÔ R‘YAhuŽ2äÐ4½j'wQ\zðçÁÝ6$!7U7e_7ª¢¯¾Û­Í©ä¸wºw|tø­‡KQí†pŽQÖXPÞ($ÁÛˆ:”'Fh‹3“žƒFä;jG‡¿â7éy1i¤ÍéÖ‘Ž¤÷*Ø¡„w‹{,ùLÕJCŸap7§ííÐ ÿ¶„í¾î‚V·i¤ÏÄ“ú |]ñ@;…KB߯O¦½1\_™sÏÎ|\ǹØ*F¤†‹q-,ªZ3½²-ûà°ºTh£E‰ˆ Ù.)ññž“®ÃAH0Íù¦² 䡱fÓ´¼S `Û!Hhze™èk4F º¶´jðw¾Aˆ900úµì}:;Úú e•“Ul,Ûê†h4Dùïñ¹»)L÷öºí`FÔÞ^Z÷M°3˜ˆ¡¿“‡hnw¿%¸©×J±¨~®f'ÿîúå\“oUï(#B…ù7íñ‰uSØQçqmÇfþJiíÌ4bCÈl†öØ|Iù*¢ÀeQ¦ûNÔÌCÕXÕsìsnn]T9gi±´þª¦møÑReµézM{u¾aº·Ñ-þr\ 3zô㕧þ“¾€FèŠF/Žo>†X²á 挜¡i‡òIÂê‚â÷<›]gê¸g\QFÊG™©c´®«Þ£ûe À§——aGñ.Âݨ°úx¹Ñz{T̲é÷˜Þè1s¦‘å‹åôW=K\lÙ‰Y‚p4QÆv[âgJydiø9eÑ!Ä6Ÿ¼vkÓ` —=—@ÎKëÐ ¼Ý— 3šäS€ÿ¢„› NÞ¡Îh× š¿/ÐH†•¸‘N{@]N:{FÐJ/ƒOÑPcî>@ËM!|Ô,™ûb}!ˆÜ4?1¬ ÿ§–s ÙD|6G2ÝPÊqÐt£f¼ ""Ù‚!bÐk¥#›²—›¼íjˆß:ñs! †ªÍÉÜ_KmBäÆð‡c¼î(N¯Lî©Õ‰¢²]UæËÍ–ÝŠKV¯ÁÅ‹–iQòf“ íåQÖ¯áÎëÕ¢ñ&VIŒåÕ¹SÃÜÚø·g]5õoü)¹¾B½yu ò±Aëtìݸh‚‡cäÎéäU¨ûì@±ì 4(!ÃGíwøÆ’ºÆ'ŒDnDeµü2E:ào£=ö9ݘ£uëæùæ¼ÓvöL}í /nÆ#û &cÕÐOá0¤‘yÆ–Ö%ÃÏu¸Ï§WVÄ :Í(BäSTZÅ0¥z–k~åÊr²sºst|°·Ri—°ˆ`+h,çÁýá,å xDƒÂÔHV™+CúÁBªÕTAŠ/&PCš”4å!ØájÚ.|p=%êhrË#ÃmFO :¶3ü$ÄÔÙüVô3’£“ÓýÓξùƒ„R(¢Y*R°pÎóXy³×óÒaÅà I#„ÛÔåè.LÝêÖêjnÓÞC©R Å@ ŠNÓb~y¥»N³k¾#¦ f™fËX]’ç#…¯° ôÒ¬eà.¼ÊÝ1 ?¢þJ¬7ê4C|øœWˆ:×C1±€J^ã¡hóRcdáäí%û£±+Ù³© »fƒæ¨>‡aÏT¾ÌØ‹ W¶¯÷ ¬ÆCSûÔôür«i«xTЪ¤¢ÑÑõ{SÝÚÿÃ’¦ëñWÞh5UteVŸ&[ŠÂêð`G›S…â]ÝÆðÑ÷„ nkºw/¹ÅW÷7¿¯bŸ‚¯Ãô†dÜLó‰'~¯ë4·Ö“›äU3’µgn৾ä Y{F¤{%Z‚ˆ—{Ð1wÒIs£­{ß‚ä´…¯‚P²³„Úü{szpÖi'ÐÀÉéÁßvÎ:É?áÈAÝíœþ­ã¾$§zp>æ<àÔÛTŒã¢O6ÈVƒ>®è‹µÒ±ƒ=ÖÒö;K<:>p§†Ã<@cðÙwžun%ÿ•¬­%ý äöÔÖÌyyÕ ¢ê©ùH…˜b‡xÿ©Wõ6£¾Ö,EÕ£B÷qkÕëe0“è|ûIŒw ÉîÔ÷`Vî%ÿÓÔO i“vçâȇ«b63Ôcñ1Ü.ÃÇb;ÇCfQs(Œkëaï¬$ þz¿÷âàˆCT?·^vóͻП¤ÊR~âÏøón«ò\â *‹¥í]Cê²×*p‡¿i±0E®ØUäß¿ðÚ‰Ü ð_¾jèåß³iáa:ábÕQ#h/§.>qÁ¿p“2ãµ.‘‹J¨|ÂåŠrOu©Ô+ŽÙ°î!8QÎ%HÏ^‹&RÝÚZ×? W^ŽüNᥠ ó!Ç’VÕRÓЪ*V|tÃ¥19²î”àe±µïò)rZëÂ5" ÐÛ±á /Á…éLÅ1':ÀX!‹fˆõÅ|ˆs9 É­x7}h4 «ï^•i•ŸÕAAñ†9úÃã.–n­qRÞ¿Àòþdvôç´»Ó˜å„MÍ37»Hëò‹qìtÄ´`‹Î[èyãA.VNvÍöSE@ËŒW…çþãhæpþT¥ ¨nÔ2ˆÒxæ÷ïÃGxš<ñ+-ëöì÷ÛIɪ9(SÒ¯è&ôÎg›ð'Ž#·ÙÄœ0………™ú»‚\|(݇WÑäRË.•‰w£üTi Þ’ó•âíÑ4“7)m‡°–L*=X ~ýPïÈýŠÐ€Œœ1d6ÐÓ9w1éo8?Z?›HD$E®Â™…“ÅDâD¹üüU,/ǹ&ãé×Jn*hÛúÀ]«ðOrçÓ2J % Ö¬ e…_$9*¶Ñ÷GUuNv§°óÞe«ù{²¹õ%0œ¯8ÊwR\“ÇÑ$@f¬½€¾ÙßÊ¾±³áÓÒ°»vZvWè‡÷èN IYýŸ ËÒæäìÄ•Ûi ø#Ì¡ßÄMBIÉËB›2ê#&B@˜§õ„Ep~ùرHäu| QëÀNböɤù¥>67¶É?÷Í6{Ý=Å"Àœo¼ø~ SCʲª®eaaÕžÓü²çÔ3M9ü|_MiŦCï‡cKž© >ùliŠijhž¼:8£þµ“{Ó¡(1]J>Ëîö¥ð«á:“c(­8ËDÌƦÅƻޡX»ò›Ó£æÝCŒÞ£sBÿópÐzB{»ì§”|NÍíu†UØ)ÙDU¢cf"ýÐÔ—u2{´¡Vw`ä|ŒL( ’Ñ ’¿é*RŒ¢xJ lQg*=).Só¡@×H”Ú8¬‚³WKø¥ˆòZ±8B(ëZs’R ©®Å»Í$ÂÉÇ@‹¨£¾¯ò) EÖó(í$Ôö"¢™‘­qEU’fí‘ôYÙÎ4Ù'£\œËµõEºö¯ZYïk¥m87kh¸®5]íýÈ·•«^*RÓ^Q b‘gvŸüóŸ‰Õì¹Ö¾’÷V 0³ ª’ÌÖ>ÀÖÒÏѼ@'ÀúS§ð(UBTÃ`¢žD $@Z5ëÂÀ„BG^è–!‘íœ=Ž¹¸P€ª1GŠ.ÆëþñÙ”ur5˜ÑõœE|«3ÃiQÞ÷ÊI3µ;Q—À#\Þæ=ê­hg[•rç<Š««Ikf \WO¯'ÌtÿÃËú$‘fãm5HY·HQ3îgbb1»@SQ>¦” ¦«6³AÅ”íûÃ:{O0-…i¿i6óÁÚÖŠºA´=ð²ufˆÀ$ŒºB(o"Wòpk•Uœš¶J=ï¯ÇayÕUûg·F§{ºûR±I$•™_½/døLD½œÁÌg¨QŠžVÙ’Õƒ Zéå<}íàü¡1CÜOâ=âµî™]yøõÒz-–A|Ï„‹¢æÕ—ê¦UÚ±Ä÷Ú{²%hvÕŠ(J`qÀÊ;ŽÚHQa¿±kƒ¬œM‹›9¥êAàk›o)qê¸"— 1gVÑÕ½bP q7è“æ*EëMMóù8kqM-¡¥æNhcP*­MX‰#ÂŽ/­ÃŽ®aF7Š­¥whÓ5Ï…aeêÌÚ'1Õ¸ãë(í¾CÊG-¡>Òü͘˜nu<Ù\|ÂáÇ£þ¨¥Íã½A$B¹ˆxCú-³¼ïÝ«ÈëªÛúBEBL¨M”Ì×ì¿ê¼²o"$§a§Ý0A5Ò3‰É‘ÕL}+ÑUÈÓíè7Àt€?ð?ò¹Ÿã¡-/1nƒ'ÞVÆ­j¥Ï7²4ü?º·†txp1ï„·"ŠÅ* ’Jè’ñ¹×t¹Úq{W«öJ H]\®´íy§#öÎF®DìÐ%7±Ôé¦q„Ç~<=„Eœ’M֨ݼ±)©W9tf¥«l‹–U“6|2ËG-¥!ˆH¥Š]±¿ÿáÁÑÙJ"yeÆ…‘mÆÇ]á·l¨ ÿó¯ÎC÷ÇÏ¿æ‡ò?NÄFÉ°~Ïü›ÿ²e~ßÜxôÅÆã­‡·0ÿãã¿ü‘ÿñ÷øùµò?Vkx 5tóanˆp²?M'Wy¿ü˜ ¾„ ^dÓKÿ¿iù=Ø2{kÍüò2»6<îlíÄPàÔpq»Åh’ŽoþHgùG:Kœ°CHïGöAÈ Í#k¶Ö€‘$o³é8RŽ>²øÃFºT;ßVÛ¡| éò }•ýt…ù¿0VI{xBœQ>DOC¯Kðy3_ÏÖa'ÙtŸƒÇæ{¶Ð'.úh<0{½Õ¦n#@n–wæ Acãâš@>‡à‡™ S¥Ç%˜o®§½TÓ&ƒ:²Ö(©!8Øá =Êp¬ƒùÄžÀˆÙ¡‚¥žs3iA9‰"w¨(ó÷‰¸—Û¸Ù9Ã7î ýá‘Á€$çtÙÓì‚<¢¸§³¢ =ÌÔÞþƒ×ß$ùû/Ûæ¿š¥oóòÿy,ܗ׋éå3·ƒýà\¦qŽWŸräÑ €šë|ybZœe Ý›I)ÑÉÙtþøQòzœ¿o³ D‹3-a1ùÞÌ.mH3™iÞOžgcC?Ç‘O v_ÖßbÊùå%¢c€›z:„Ìã`„0õpÀiJ†`+支•·ìøã~ò™Ù¸.M*t­E/€ÀU)Ü­ùÀêI^æ²£2™ 캠}Ê%?³ÎpÔsúmØcp&㊚M¨ [hÞ‹VÕN^u;¯z/zGÇovÎZ,:¹:’ÿBƒ]ØÝM¯ÌD‚®t :Ô;ÛùºsTñ çX”t!{€N}·Òg®¦sYœžuk²Õ†`Œ5ôu˜¥Sz!/Z,ªF†B•¨âÌŽŸ± 4£2d÷:½¡kn~Î<Ç` èeàjLA¹âhÜÀF]ô³¶ù[ŸWÚH$.ôÕPää.Z—7î&fê²þl=9àö >¸ïÔø‘Pæ` T¦Þi†Áà¨33§‡êTÔÇž8„£[G³Ke.û?h*%%ðà™Ù$ZlW"]3¤cV1Ï®Š‰”–éáVô9ä€T8;àTÞ£¡ª¸ñ{á;†ÒëÀ=Q]J†’RDn]»ÃTÛB¨tEdØë– L*Òo¦¼HÝ4T2 è‡ó§ ɱ… Øo_þºç‘vÖì¹­@¨óÕlÊQ²X}ÝSU½vÂstÞ)Ò%-G]šP—*ݨ3Y(ªÕl N ï,~ʉQ}f› *ž%âÞÁƒÐ>Š4,¦#ÃÚÖ–lU3¦ýÝÿîu_Ÿœ˜aÀãçæ(,úVáš&ìùªgÉ|Báþt¢,žxiãj±ñý’3`¿­Œlé§NuŒV¶EdÈ^¥ªáX²ZñëËÞƒæ^.SÔUô0‘Š­CDzëÛÃ^B×À¥çj´áAº9(³RŽ=EDì“ðF£&2 i 4ô¯òáÀ&|!’FóŠÜþË£½ÃNïÅñé×<«î~ 6Þ)B=¿8µM¼Y†Jª Kt÷`Iª¦Ùs ?7~í¼hÇ4âµzÛ§]]ùpñNAsÀ))µ O˜÷{#Ü =HëÐä¤\Wžß Î<ç#þÙ®Î7'ݳæ.À®õ:Gǯ÷_6©T{£å» £ßøTQ•^&oÇ iˆàƒ£½Î7½§Ç¯8ƒºäñnÈ–G,û·ù ³SÁ±"Æigïàpœ_E䋸Š³a™þ·Ú%¡H VÏÍJàõq“Áœ"£öÖÞE wÉêäX†)0Û"üdŠ µ‚Ša“$œgˆœ¡.î$ys•¡ù”c¹Àef?Jœˆ«°ü'ÁÐÍÐa>î¸.ùb_£™DI–"si&ѪԜ^ïq¶1¨JüHš`•ž«ï›îtÏè NŸ;ŸTÛ5ÜdQhûÓ2u·bǤؽÛøîFàÅeŸªõ%~ÞRl}¢…ÿ Í¸n–Ë—ÏÇÖÁ6у–;ÄîËP87<«ÖÉ íðòä´ó¢s¶ûh-A`71þb[hZ÷i 7vb’ÞZ²iø >$†uºv¶_¶)W‡¾ý”ô±g£öýλ=Üéþ þâ o¦¸þ`ÇjÏÝâ>`FHŠ~! –ä/4¯³÷äÕ´ÝU…pt6±¨ò‡F¼/“w9¥Beý–«(-ý}9ï_)xã_ïV§ÏÆ8ƒm‹åˆypÙF‹ü,bW‘åÉ÷]r(àÕ¸ žvPxsþ‚²¡ôÛâÌ*4ÂUäIkÂÜžŸ‚±™{Œ^o.ÿfŸUᜊaŽöP|4ÝñÇMEÛ˺öûÓ¤$ø 9ëۥߎ"¹5Âà qJ¾Xú°Po†êïtFŽoµ!¥Ó·˜£TSª?'ÑX¾>m!ü棉d+& ¾%l0Ÿ’ÇZFD@× T ¬ÔFV…¤ávr>Ÿ¹/!G') ¼?ËÑÃT6ä·ôƒÕ†Y=Võ:/«]àAŽÐ±3©¦ÉÔˆ“F½‹ƒpi—ï®;¢²Ú´è¼…ZKošpÔpmôÕø9Æ‚dºÇn,©YdJ÷»˜ýáÁë`ÆR ¤ŸOf˜´Ì~mggݧ’ØŒ²€¤ž§Óiž!•6KxžžoƼÁ£Öil½åìËRJØ?ƒÍ’©Ÿ‚¯1 ˜5ÍgœÊ[èa几n;7žÉ®Àj‹Z¾Ûd½ùvâ–)^`®©â׺·m˜ž:‰Ë.sÂ|1ór0f1Ê~k&|±A­KW$¦°‡û1}ËÇE¦*˜¤³+ôÿ4GÖ|c¤®wr'cºpSK1ΪÙÎAþ…<†ºÏ~]Îú“†¢î{mÑVW>YiÈèìQµN’-¸jNL´kOT‰6CçIçH©[\,6À¥ø 2A˜P"ùê~}ŽV98–Ú`À#×hêÙ†ÉNémR˜¥#â¢ûsfî‰>îºÿc]§Ì!ïa%âÌÜO>_iBîÿãlÇÌ)ÈÏ‹òs"÷ÐÓA^‚Š"fàlnýàÓ¤¼¶HÁJû~öPCóª˜@®¡E»³â;Ú—ë++Ãf£eí££mâ[Ð$× X‰S¸à²1{¾ƒÉiF7ÇŠU€#¨u4'ÄQØë+¢%m®âôõÞ¥¸åLÑ>äQÞß­f ©Ó‚ Õ+¸ðâ#=†K·Då<œû£ùèœw°>´˜2B?:³›ùºÑ°¹ÄÙV@î†XÓ¥<⛘qZÌB^Å@}“\ÎᣴDb}]°o…˅䵇‡H¯pú5Yð)ÐÎ7ø¨sÚÕG@=N6;WGÏ,E÷v¯œ|§ŠcöÐâ?°JâÏô­èlø© NIü51;²Î&ªnAŒÿ> ÊÊ°Éýû®áf¸ÆMÍp“§5`‚S¶˜"WÙpÒc.È7DÈ€ Wé¹Za(Z n}„ûx\ʘ€ùáIgõçäæ¦*=9«ÒËŸ¼õâ§$ tŒÇ(ÈÍMÊÌý‡ ¨Ù ­rz"讞UP\ *9@*óÂÜ“:80DZÑßòzüñâPY!•ÚéFù1… \éJø%÷§¦Cem‡4°çiŠQqf§Ô{œ=Ý=>Ú;9%XuL‘¨Þ&Å鬡¥ÁîÀã©N¦Îi÷! ³!•ÿ™õ£pÝÂÓç­f@÷@v4«Œ3l“ım ZÌÚ´ùy¥‡ãòÚÑŒ›‹ üùM—ÍÈ×q¬ø †‡ý™“<Þ9U&®Îiz!õä­HmJU:« |:oÒÿ°|uéû87W»î•ÎøžJ-È5›Ô¼“~kœK"ÑGJÛ•½‡ˆÝ=H/HdüÀ‘͹ÞhÍ>ew/TR­$>!O-‘>ÏñJ’(–âØ”8)M¦ˆ×hƒ ÍÍFy¡¾Ï5î1HmS¾GÕß+EÓÇ´´@3T±×YJk´9·Ïìøo’ÞÒñä¿~~Ëý‹Œ•ÿ÷¦štx•q’P¿8û{.j=Ø4Ù€uòuTÿq9%á.ÿ­’JÞ‘~e?)GrL¶¡“ÿö)&Ê"îGy­4 e`Ô]fÄ¿‰giù–°ÚÉdí˜(^^“×˲í!„ Måb<¸p[b_Î["¢€ý¨¹õÑÎÚ¯›l&[ Ë* `ȴɽmf!CÀ zécr¸‰ …”Ës¦„\‡ñ€U4¢<þÚv 1I8¢Hr–¬G7Zvª»ù²ÛÐmµ×L‰é×»ÔP‡þØÌ·ÙÌœ¯5U3‹q!多­Õn€_3]+hK“ž¯òó|V&ò-ÙÀK¥¥ha¢‡Æê¸ÙÐ×–»Ÿº µ£¢„¿>èƒÉ°¹4uìïGÕ+ÛoÏ…ä{i&YÞqÚ¹—qÐU:4O)þ­âiO\²(¯½„úÁ¼S´uÖ%,綧0ñÜgR†ø\›’ô­Ì诜Ä.NÙÖn³̧ïrÈtÅ•\"S$¦~ ™!Œ½QæIWny1šÀ©2éÈm«õ®`mœö¶‘uðàQ)Ø QÙëê£2#/MELƒÝáÉbV «’™†M²•#sC`i šlÛèþxC[ãL‘ÛU–žI-\µÓ-EÕ±¼𥢸˜#JC»Ç·âä-¤"|$é/=!K0ˆ÷äôx½”žŸîœtº‚Î_f—`TªIí6,$õ*Ä¢Vdx¥{ô¢j_Dµ‚.² -XÖ@™oäÒaaÖÇ{öôGåP“ùZ¬„ü•3ǹx9•ãÍ´Þò¶ ©÷Oßt{¯O<ç“ åœùœâ`´÷‚*+ÆmÇðº…=@F |\bÍÔ´ò4Ö ]Ç˲Թ}ßpzKš><8rÈXAúõqĨ©šò¯žÊ AŸc(å #›2‡[Š§h6c_¦ ÊêÚD¸w¹ï€îQŒ/š½înïzÝévO»½ã£Ã£Öö]ë´¡ ±è»Q2JÞùüòRã–Á z-•:7.© á&¦€HÓÏ2¹ÛŸÌ¿?»‹IÀ¡“ìâB¹ØšbVö¬÷üõ 2¦<ÚøëãÊ[˜¿YÄ^C]Š¶M7WÚO|Lļ-æ[L'›Qp½oZî_¥SÔU˜Ûçâ;¯kß»ÛåBA¿[Õ¸zÁì£ÎPÐ!K6vƒÀáÍÔ$có~w¥Wä;æÏÞД–A6!à7eö ¾™så¢GÂ&§¼ ‹å8q¸59[•m&ž®êÂHÌÑФìR4/ÚvŽÚþú™‹å«dscC$vE׋‹æu†PÞ¥k›ÑU¦kЇ5¨:Јºì¸d9:~þñçpôÝãûäUøyÿsºÔü—[ôr~ôžÏ?w€`·›ÌÉ̟ΊÜ6 –ó¿GÚ¿K>%LËm~u_eǤÿö‡f‘›žªE¥(÷×<ÃÈ‚^˜';†À>‚„s³†­“׸:S†1"òòÊÅsŸº÷ÓÎag§kÈ›) ±Qè5³ $¹X×¼¿dßè¡G‰!!ÓyÆò´aó³÷ Ç@W®2È>l’‹ŽÂt2‘În+aÄT†Ùm*K̓îïr=#žW]ô]sF\ëIsÀR ‡j‡eäWöo5¥›R‡µØñ½Ea-h­%Nï` 5íˆ3 þj0ùW¾G )i>à")æS6•c2lðÔ-X’‹ Î3å‡#¦ç9iŸCž®‘smIÐö-©O>j$Ö³õêaŠžãI;À-ööw›*¶ÍT®<`[IJê¸õÒÞ0ŸÍ†çÎØ\V«Ÿ©ßœé¸@ü±Óz7¹Ù´ö™-P * ä¹ñ¨·þPì5ŽÇJÄb¬×˱Xžž±K¨@Søþ[û6&®E¸P /£Ì•$°Ü°)x|NҸ˒ éìw|aVª¢À+}„½`XÆì S„=â=ðÎÃ¥àhµFÞdkØ× Ó>LyIˆ×™óOGv‡kúqžÏ2‡dŒ-™<'m(`ô°åÏ!¿¼i^7Ï C w“A§ ƒ×t8—Ü—VâMŽø¦œe£„¦Ñª ¡˜ä^ìvö>3“ì¼±Á-wP ÛOŒAÉZ,±z·Ø\›'Ã#sˆ qO‡©ïI¿`â~ÐÛi6ÌÞ÷ PÐs2Rn!x›–äqE©iµ»žÄ92„c Æ%¨?Æèq3uXŠq‘ZšãËÇèå`Fpݬ7’×cÓÿÙv•‚ŠÁDÅÜëJOL)ŠÛέ͈ϰÙíN;G_'`]ª4Qc:SØs†<椊ÕÈ!Ç*×ê¦.qíÌudï 9vô˜ k‚©lÂ0”‘ãWDã;n+´Øcá`Ä À“(=O©ˆÿ€Ö~Z;ÍúÃ4¹Ú¬˜,¸Ç€–þªâU'Ó9B1=ú OÜñ)Þܾ’©z:°”8>ûå]Fœ˜H‡Ýº{ ì<¦%}ÇBÑs PJc3ë/c>ÖÈ뽓Ýíäôö»MÀBMdS€ö¸ÙââÂbÇ!oBÈî°¨³`Hö‚pÈT…BçÖZ ÈöF¡*‰¦17-ø%yn˜*_m¢T4$ǩ綛–AðœÔ*¾Lá.Y¨¹Zèù+© ’eêF´ÿæ!Ú3¢=’óixw"æØ­@={“þ›˜Í3øÕÉÉ’ªNdO›ºNUÐl¢2_m%÷\5í•ÆÞ~¯ûm·wpôâ¸wòŠþ=ûö¤ÓN‚7»¯OO!÷Òß:§Ýƒã#%Är“_!P»Ý:àY´¶‰Ô?›NÍÝfàñ&O­<ŠHöÓü˜mµ{òºt_¹\ÿ×sséôÞMzE®°1pÙhâœè¼¯SÕž`ë‘=y’ü™œÀ¹a:y!ŽMÓ½ýp+pÔE@²ìÀë„ûÈȯǧQ~þ†oìžö^¾i¿|Ó;2½ÿàv„9ŠšiØbŠÑ^ôñh›¦Â¶¼5¿·²ÏT‰§öuÏÔÑNŽ^¶jíÃRHÛ84’s#X¤]ªE»2° œ¯ ¸¾Ûú¾e/¡Dn¡v²en ü¢zkãÃR˶§}½eT [ÛPÀ–ù`‡ËN k؃:øÆ0wƒ„ŠÙ/Ã3½åµ|~½QeŠƒŽ9;t=¿Ï$þa²Ã5Fé‡?ÝÕ ô ¼%6Úzíz‰dÇÿı½(öà;;%Öâíúÿ¡²"u2Ž¾a ”º°oS ¸¥Y@GÐ(f£Ü…›»~l™ nzZ]tÏB ÊêĶ=ÅDG5S•€á uãkxCÛhÞí’BÑëu;ý ë 9J(²:M«ê%ñC0œ—¨ „»`µÖäÇqñèrJ~y„ÖüV>?ÿQÎ<ÆÙÁ«NÏHx¯Î$ë¯Û1lÉ<›ÀL¼A0­ 4'¹”=Ÿ¬bÅdZ¹ŠV4Ä&ˆç@%s6…Lh¨(ôûâ4ISU¦RÔ®—Y%#3¢¼r*°à€Õ âsKå^1p â6¢„ +%lú ÀËê¯A–Wf—4½ÏK×€×ÓîNŠÛ0DƱ‡É9¥í¥ð`ÓÈ™Ýr£#$žÊ[¼”D^Ët”°‹lÊ‚½ªäù”x"/Ù¶@Ïí§Ö¥Îa$Ò× &ÑÛ|Ÿ-É÷»Kvd|h5Ñ{«¸n£6«/!Hc–¬šÚêO³og²àöéÅ|p™a*¡ ŽÖŠ/´H™€Èuö{ÏÑ¢i.oõ¬Û9{µÓýÚs¹vuô“m‚Û-š5ï¹Rmª‰²†+Lhªà^ØUílÒ¬†5ÛùÁ¹ÁêqÙ¾&7 H¸è*1¥ä~ÖÃTÎ ê::ü‹fв>óKW6¾œ]!¬äõI“ŽšÜ³\°‘yê¨ÂQAp£yÿÊ|sC¤ÀZ]„ûJëƪ½9C )kŒù®Ì”ç©¥ D"q¦-ÒR°l!^%'½îáñI²¹õe ‹×™>)获ì\„ñwšæ³J…‹ D·)Ã@ì®4¨àByF•¾ËzÓìÈ û¯ÉÙ“T2µÊˆ[6áAcø¹Wtæ,hã`çñ#©("àì äÕ­úÜ—%õ"¬@›rhä|F $»6Cii %»1ò|z£Ñ$ÀÝk>I „7]!øÙôʺûF¦«s¨–Í÷v[0¹÷Ÿã„•ZP~-,Ì?ïÆHpŽÒyF 9æûê‰X¸õƇ7+°YÈ/NËãQ4?Jì©BÁ šR¥hoùë\‹VX½O­¡VŸºDÑæÍUz15|™™¿–¡o«2éôRùÆ¡‹õ½˜×K\6€í,ú¦¹rŸ¡?‘³l±á s…!ÂæÁ+ {¼É$…ó€Ï>lk‹\j½ÐÁßH±¯G' ;­‚ªuö‡÷Ï).Gd\Æ3M¨ˆ7•chBjnÀ1àÞgkp ølìŒ.äy</¢™¤e-;æØÖKQšÉ€ Ø`Þ·¨›ëô&Œf“8ƒ÷¹2†â¨Hvu²á­ueÊÒB'U<Í-bˆ„kî×ày-9™NW÷ϧÖsÝÇÓ¹53¼0í’T´·‰Òg£h=lyxÉaÚÀ"¼#a—8 ï¸;6ë=ùcܵ°9LfëíøH[‘› ÎwC`\K…͈DN»iÕЈwé0FšüÆßch—b½õ~ÓEb;ÏÆFÙ¢9•ÌœœAÈ8`¦e€PRY$÷P>P\@?B…ø™ãwÓRê݉µ;ç 7i54ÖŸ:™0ž©m/·YÕnr¿ŽÇ Ø\Í«¶ÇÉèú «„t9¤Ž›r4‚>Ê ê;õ@}¥§7o ±hÖi>O¢š ZÀ`º?+hxð¾i"ym±ßäyé{Ç¢ ù€\µ(¾øðâ-‡úC@r¶¿Éfënoˆ ]uj¥ë —B®¼»µþ.ò0½o¼ ‚nÄpsØÛжjobÐ-MŠrּפ7NÍdfÎÂa 2g6›ï­ Ý`íÒñ×»"p.¤Üà¡m8=P&+ñÞê_Èä—Ùè!óµÐ¡Ö¥3¿Á'ÊJX ;s-¼ïnÁ ¼ÀHŸC µ©ºÕ…™õñÕŒQe‹IsÓ‰ú»ôXEJ4õ¶Í Êù”zÐ÷ìß S®9(<-Õƒ|×Ö ÆæêPMoØcÝáÇU5/u” Mgê*.w0î°’;V_ÒÆÛ…,šÀð*A}†wÏ2¥k;©èûBÉ9Z‡Ê«ô²˜uøEì.¤ÏPÉ…^eã(/ЇŽÁ‚˜&# ÅŠÒÅðuÄZ‚v"©`)ëRB™UÀU‘uy¶ˆMb Æh2ã$„˜ß*È%ŒãÚÄyΡ؀‘…fÜt³,Æ`€xÂNŒæ†}ñ˜Âß1]χùìF› ¡€G's*§g,c‹aä\é"ÁB<¦%çSdt;ˆ{=T%Ü'˜c²´xÍÎÑñ«Î«–#¬„5]%¬†Þ9ëÈ5dÚ¿\A¢â–~W†sƒöœ¯ƒŒ©^ú-øqËÄs販]ž>E`oñP Ž¤9û]yG“Áï[‘>d3l'÷\7ZaJ•úïãß*Ë:¿=6«¹!½¦Z»pznÌ°ÕYC¹öÅúÃ;ÃÉUúÄžFmÈñãG_·%—¨¸µ§_nþu˺ñc›O¿´Yêºûø‹/>®x—âU=wînò¹šQæ²w6ݦ›?Íy>$Ý&t[Íu!r‘@¼‘Ïlð‘­ÅœUÆr]!4Kt»iœô º÷ßÇGÜâC»$á^ÑÈí¼[Ô#O‡©Au‡þéÏÜýPÑ#)ñ4yjË…ôèc”;|N,¥Ë/ W€| IiQç~N0B—v­®M®iu7'4s¡ŽvlË"Ø„f%„½Ö¬@̤°(ŽÐ⦃mî0.p]s@xA£0€,“9_sPK"’Y9jÁ…þ¢ú{¬“”à5 @ú6/œè H,‚ô˜[ˆð;-C ;³àN÷SxàÕ#¸?[˜‚› \Q–Þwœåü„hì0_ž¹@ÐK=:‚Û€÷lÚŒK1µ”f…»Äßÿuœ£h›:GÓƒ]´2îœvz;G{½î›ÀM’mŠ V(+Øö êÆÐ¥^yN02S‘ŽW¯Ï:ߘ>œìr{Šíïkh WAö¾odçˬ©ÑÔ‘'\5[ ùІV„ÈÛbH˜’ølf´ &·‹±ü4Œ&½W7u÷c7`c˜Ý:óSiY${Îk¡}m å0ò!Ò¿ùøV= ÑT׊›&ð¡Â£=Óáº9¶^×=p„ó&R¦û“gNüSjŠÈäÁ‹û¶ÑXý7 ÜI?™ZÍÖf¼Šî$Ã䌆ʣ‰ü)õHIx†šN‹Á¼ŸaRHÂFÚ$†ÐkÉ[AkŸ€f³`¹±hneï^oÿèõn¯çnôðpZ1ñÛ¥Äå¡ÜilUónžµhÓÂ%ÕÐz×­¨ëB’ôzi9êõÌ¿ÒóGónr7y‚ÿw—@îïúQiJ5»Q1@”¿g–“Y>B#c LM¾ïãÂÈé÷ï×…ª}°WÖ­òàÈð¡ß€_%AÕ¼ÏGó‘ ^&/jÂ5ÇUbÇp—ˆ ‘=æ{[¬üíøpçÌLD ­CH?ÝI®rQ4“Ô/1å.Õ°Ù~LR|ü8ýcª‚{S°3BDTöŒu?‹«¬!tU˜dÓ¼%ù‚ Äõ¼QpZánñ¶ªä/ØK€B‚<*8=˜yÿy©ÊÊI>&7>ðÁ` ‚Èr¸Ê­ƒ-™leŒ^"˜¹+‰&d³J%ÅÔ~ê,øÝ™æå[ò’3³Ûvà`ègÐAŠKÁ•8½q‹@ª1åûuï²éƒv›IëC4iÃÎ"W%åŒþ¼æ˜7í*¿¼ÒDHòçMKæôpÚÎó ˜#œå4ª"ÌX} `kk)9гp €öi7 ‚x™±Ö›fF$.ÑtÛŠ]ï=­1ùzxÅB@Ù©C+0«¤ ŠNÑ °1_g¸‘Ш“÷1ˆaÇŸ ŠpˆÛP$ô?à5 e#0ßÈä‡& 6Œ‚ÊÁ³v^`&±7ªk8L†+AÀ%Ð.M¹[ÛÀ›R¢[J* ‹7†WLå1Á}¨µ7BÇà¬Aj£³®°lê‰J&ÙÓ`A(Ì_4j•"è|¹¤ ]¿Ù@“árµIòUlÈ-®âch:Û§ŽŽ­ÛÛÙé·0 $U¶i¤Á=vé·ØaN4ŸeÈ&¶ì‡ð‡låýû•Vd|¥£À·ýÞ~õÔÞ7ᛯ$|-¼Žu1‡Æ -8®AaÓùÀpý«p¢Ã!S„#˜O7ž¬|ÖhT‡îÆîö Øû8 ­aÇìª2Âf÷Û'æÕ¹iú-¿aJYÂy=6;ÚP-³Zebs´Ãw•eA„ :RÝ+¾ L‡¢öt(ÔFN&3~.(ïzƒÛ­šJ»sû·!#¤[åíXy,q„@ºçi™÷)‹„Àñû—ó¥FÜîžÒM¿~åRt2l¥T0E *è'¼ìuºµá–™Ï”ˆÍ^d€7Gb5¬EÐïM¡¦ Žh?Ö×)èÏå¸òÄAª`³”€¨bi¾/ÂÅ\0´ÕFéûäágµ "f»‘WOßA²è\Ü€®&ËáÕ¡'µÙ˜~5x‚7ÄÈVõÔëc@xF7Á›°š¡Yk,¢Œúk÷~[ ¾ŽY13(ôx³ì©ª$IõTÝ^g½öa AgB²¤Gëã5ÛPÅñRN<‰áFRwY˜ ‰×ã¶÷!WîÚ°ÅŸûC *šêçÀåãy’‘œTNï3Í«0swß w…%¼F,CrÏ¥¶/fìßÉG.„¥—) Äáé¤ Ù‚kj/²Kx¦áEžd€õ°Qùì…ÌCˆMÚŽ!rsˆ ÞÉý‰V;Ë;~)½)Ýb|PF3<+˜žúù€¤½ÈÙ3\wfqË= ÷t¡÷#\||Â(ˆ¼yØ霠B¶ûòøpψ+(ªœÇ(€¿ÄtFüž‘@ÁÀµD°IúXDÉb!?Îàb$XsÇ‚aÚÌÌ1*>¨rû`=Óq­4 ²5*ÙO™VyîzµÎû?nRw·Ö1ŽõH2cFŽ†y…+CL¶E^*Ó¥rË"`ò1JòɹYR³äFtË ‹m¿sÉ?4àЊ`Bà qO}P¶[¢¯: nÎNÁA9äɳdëQ+=²õHdö=‹Q¹÷ ]`ó‹Q™„HNI@SiDô+ùlÝš•ÓüúìÙi}V¸gcz¸iE8xøÆ­Ü=H(¸¡Å~2LáA„AªÞ‹yo˜‹M¾e"N$Ù‘x$’5ª?{dFÃ0fF–)j>ÓƒŠó~PìVÝXÊEƹ>yëñx^¨<8=+p5±42« ×É@jº)PJ"bA'6Vp>^_¢½oú6BNJÖ6 Ë¥µžÏ-f¡éž„ ¥)1¦ÚQ{ÐU^$—Vºµ¾iNýIT™¹qIH‡ÇIqmO;©êå_tc¸4m6k”Qj&õ1eX•5‡†ãéŽ6Ñ›ÓÍÀ¹ã[Q•TµÓïSÉEDšŠ‹@õ{ªö þGª’Ó9==>Ý}Ù1òFźÑ;:iÛ„Ì¢[< Wï™ÅÚ¶Å?Xó¡¤;ŠVë©=w?oSD;°Í¨á@ç±Ø‡Î[øm,²öÈþ ªÁ¥5LÑ<‡-ßë¿Óææ㣽Àd$d,Ûjhsk:/´&®«œXÚ•WÆ8¨ôÊ jóé–ª¶Þã£?à1y Rá²UO]ð$»%D«ëÿøþi”„^q³Ìíg™¾¨Ì3ƒÖZmøȃÏOIž*›†äº­„¤Ê'¢)4¤™N0¸`š£¹(þ*{Ÿ"ü¨Åqau%}¿ÕJN ÁÇ:™f†9÷ųìü†­ØË|›¯—kJʇ֟ât¶~¹Î^>ˆæÉ] Xƒ¦î&Åù¦´NR쪂k6M±¸™Òp%Õ”U€É3õo¶o,YoÞsç¿Üj¹+!Ü>·Ÿíßotd«8×næ£ÓðÎe0¸ö쌠–õÏBeAƒQGÁ‘U¿0sä Â"ÿò=]Ïói‘úié-ê’u´ßÄhãÈ|­›a¹jró9«¹xp ·½upêÉñï{”xDÿ;ΑگÁ¼/Úx<¿Å®Ãýå%ßö³Û€éöbš›¼¼ò§?~~³ŸËþãõ/Ø}1=ˆø²ÞÿõÚØ0?=2ÿn=Þ|ôÿÞÄ¿áç‘ùã‹?mš·6·6¶¾0Ï7¿ØÜzô§dã×ëBýÏ\“äOWçEv5ZTÎpI¿G‡~ߟÏ!03ÌÓ4gÄ|·æH|»~u·‚~b‘Pµ;‹yÑ=>Ü9=è:¤TÆÝŠ½98z¸Õ««$„‘[±}üŠ²Ë¬_=ÓϲQ:¹2|›ÿ½ýGó±aøÁ×7åTÝâSRç1€;è2†ÂfJ¡Ð¹ÇÎ’ÛÖý—'^“ln®›ÿG»ŠR5øÞ¤NkÔ=Ø÷0$š¯v¾1ÏZ@ÆYï e~~Þ¶]ùÅÊ÷¸f¿hÏ<<=3UUëwï¤ ”V×Öž%ä…’‹ü}’Ï,²@h«f,Ðü²ÐuÍ ZÃ9Å 4ð]ÓBõ jï=Š¢»? o#þXîŸ}Dúœ¾~’ÈK«ÀÞ$£ LBÔc*ÍËQ.MMéD;ÉA}í9ÿy8Hî¶9Ü9om{úyÝB8µWãŠJúK9˜`{;Ÿ^Qõ‚ î:±Ñ·Å 4œö† ¼9sŠßjÚÝâ:Ãù‚¦šꢃºg­¦™˜£C qOSˆ|xptF êUÃPVKü¿¯–Ùy~º¬ÈYçô•ãFd™Äû×oœˆï¬¯†÷êäôø¬³{ÖûÛÞs. N04•p²Rùþؤ÷žO3Û$ŠÁ«,´¢Ý JǧÙ4¿¼ÄŒ1“i1ãà5´ð{ñ)îvöÿƳ£2±ì?;Ñ 3oå£Ä…'É/˜¾V°û ˆä=ˆ`[Ù·(°§,eèƒ= HÅ p½‚æ>l—âva?"¾Ä·ž‡µcde´:•í ÛÂ?ˆ ýÚ)OYáÂL\sÐ×3r‹ÑÊ¡5&CŸ®€ßbY÷)ç¬ï†Ä#6çã!˜$±,úÝ™Q™iI§ùðÆ}ËiщÆјç†O¾èa€8ŸéŒ‰Àî!v›whsfÏÞy†÷hÎvÞ€9y@âX#Þ‡M«5ÿoöÎw~÷a÷Wæ1}Ö‘rà¨}ÞÛÉǼÊàŒ]±4>„nç¿ JûmjñsƒýºÀë•€5Ø´§>¶¨€)ì”ÕÝd‘UÊDoZþÒ†- *x¢8G‹ÒÓ‚=¥áÄÐ,¾ÕdÑ漎rÌ‚hÖ]çÎ8ê/qpø?U^È/Þ¨þ>u @ÞhFÇ¡JÏ2΢ҋžß€3(’”`rÏÁïÒ wÇÀKM\)cY|£E 6µ"Cíˆ~6Õ™údšö‡?b Œ˜ÈWìÒ뮓©áórŒ÷ º¡±TÎ) 7W˜§4=f¤ó™‘srP`(È4dI×°oý~>À\<ÃÇ4¶£·‚rÝJo×E¡ò  w0ï®ê¼ãYÚ.xI}ïö%óÆ;Îü5Ê >:/G“›‡0”¾‡“‡ó•lK®œãb:lÝ|ÚŸÞpÎíF°#W´©Dj7€F…vtó^L©‚8ý‰Þ¬ ›2íã:œõ»¢¹wÏ¿€£[ZX®Xp¡<• ˜ > ǦrAq`UÀ¾Û ƒ‚ˆ(ó8høGˆb+††q…æQÆ>ê$©Š ‰‡aÝ|!ÁŸ"!Ëf²xt´¥2ÑÕ©ü$NŠOéFâ%\‡›‹7úT~> 0åUú–Ù2B!D8kë•ï»Ûr“ ¦¬æC "fÈp@Œ ä\Å'+{ò"'ÍQ•@9nó<Ö.Ñ–¥<–çE2_T‚¸-ïã!û8>2*Fû²rprkÀK²'Ý*)UžXT*½¥Òñ EkºeÄ3B²’Ïò§·¶NWžd১H>ž¦†9&¿&µO€Ì¶¦‡|¢M¨èdb5ÈRmJ·‘ÙZˆœ#aA„ņҨõ™Î'³`KV€>Wn¿©Æ‘}‚DÏí±:”:Ž5¥”./zð¨ù¾•¼[Wôµµv=pYƒÃ$eIÒ¥c6€¼ä)8§©ø1ZÚÜòݦS±5Àôî3|£¿k ”èÇAÈQÚÕ¥@2z(Ã( ¶·qA>KqAPíä*·²Íñ' ‰+F îRÙçà]N¾4A¾ÔF‘ÈRí祧¶û‡i©žñ¬F°¶ü6HaPöv°‡'œ'ˆæ1Äøb/l·•Ø 1Œïx€vêuÿX±ô„$LV¦}—o¦Í4ð¯™`_!¢(4FNâ@ÜÕH-mSÍ~œ§Cú4´a¸ËÁJê‘χÅíd ü€ôõþ·û‘ôRòcP‰Þ¬œÇQoÜ'Ë;Ò CS°“É«¦ITº½Iõ—@%inYàv¬ßUjqp«-»ŽVðeuðnñÁGÔ†¤_b8¶â!ñÛ^ ËgÞž³Y1ªéÅóݯŽö{ݳãÓNïùŽ!ŠÄMAýÑòŽ×CDzèîP™–¾3ÿ´ÍÿZ(žÃgv넧Mö¬âÃW@®ÂgW¹š5>  È>t8QU2ú$)'H}Ëlv‡,ô~d{˜L+c4Ôp„+xNå*m5¯ò6t¦‡¯úÑæ–Ê"Ýî5»Ao·8§Ó½ßnpcU×Ï[Kƒ_'ºûKˆÇ’Ò÷Í«ÎŽyq3@æ$ÃØžE1­9ÃÌ1†$2ùÞÙå ?2½bÆFÍ`dikÜ?O9ç”EÅÉÒKôò@e`0ûpu9#_DA;(¿;–P‚ŸÔ~ å^N+oñ]AŒ7Û| jc‹ÝÎ.(DE¦™gúI)ŠršN•Ó ^:ÌF `˜É´"?È H „ŠJY2Ï¥Èø¶7_z±[R€G·½Âñöù²uhn,¢)~Š¥ ûH€ßÀ”1fYêé 0 Á®0¢×î _ÇHYÈœ°¥ÔpèÁR{ÀCË­ïì틘³æ÷öö©/˜RR~‰ 7áð)³r—Ä3¼á(*¦£'?yj@X]„ü,©é÷æ“Lgï¨ÁÆpoÍOy,Ô€{ ]UëƒÌzµÁŽ†ÝˆZ¨Õ5]ðwÐýû\kõVvyÏ „µ•ÆÜœy%JѼµ¤^ŸBÛ_,Ξ컷¦ëŽXû™p)Z˜Uþc¸w¥{ºûòIåï-#A+x@ùߌPäHNØbñ_uè\þÄ­­mGK1öJ´oñ~Õ|b‘[bßn‹0y+úqŒ×‡ÈÍÀÈ|þØ„®cjÄ)›“*yµµ×úU…zòkØ€<&ë_na‚›)=IÀx1-ã±bo Štú TЀ}ŠÞF•æ:ز`¤`ŸÍ'ûd!ÆV:­+Å×Q0´Þ§¤ND0RÖ4‘ûjbŒGò°¸(óùÏrº?´åqrþöôÅð €¹Êýi±¿‚Ì(¾a™&hQXT†R‰BùEŠÒ ËúCìÊdš½Ë Nˆ'Ô$çŸó¬XÌ?eÓb]eê? ~BGR&î_ÄyÏÁ}V.Ðð²åÝhqTb6Dˆ C‘ÀÕîc¬ŠYÊ”˜V«!wÃ*‰Þìœõ^œ%766ô›ÓÎÙé·„û·Cô Û@ŸV¶Ú¶œ,£ÔÁ*ÉcÐ0^bŠÁy³sµ“{ö+!±4èÔáŽ= æ«•hl)*®†ÿ,è7ö²Á »šy̬ ?˜t-ÞKå°E!ìäÔÔȘX¼,ì*>Kg¥´’‹Ó [¯ja»R4û€ÿb1Ÿ±m×|êú3Ñ òXí@o}üä6¨ßj¾ wâš[D= 2V‚E±Ê+¾ˆŠøþˆí ;†Ènwk{_š>ø€ÿ v³¬ôùeN–»uÝÞQ_Þêö6K'R ü7dã‚ÛA¸¸†µD!Äs `ê9b½mé“a¦œ¼î؇öe˜—½aìgº³Ë[æ‹ Ð7î$©‚G›ZM³’VSiáÔ–Ñâh©ï&S§Qчá ^—B?òÚŒŠLé|v¡;–0„™—ëTäÖªÌPû@1-8¦\õ6qxÕ‹ 5û>ÿq{!Ç*¡ËbŸU„)¯t4æÑ붦!ÇÙàŸ¤V/££Bd‰)WŸÓ@)[ÒB×öØÉüO°KE¿$n/ÑY*iäBPõçׂn{*oseù ¢×Uhê…4‚P}ÍUÕ¯([YëÖ—T#¸œ 6!Âh÷Ö\St¢®¥ŒO}²ü´b±gÕvÄ +1çŒkæŸÀnç Ř-L,¤¢úÔæÕønMˆÃvƒÅóÛm,hPQ`3´õ2µÙ´º;r†ƒ™‡ ³•òŽ‹£ãŽ´Öp!WR8Œ¹RHј=¯rkµ ]ÉÀÆœÍÄ­›e /ßz9EØ/„=Î8§—l/ÄŸ²~ë‰ý’;!å<Ù€zSC[¤©DÈlÏ(Ê3>I»é˜ 3^‹rÜ ùªíPà=P×!íûö±ÒsïƸå31\GCæÖa²÷q\V"ŽüìÌzŸE=ŸÛËwÚÂ]wBóûÁQƒÑ²Õ»PNÜ’¸C™´Ý«Œ­T¦—$ r@ªÍÙ(`Õ¦âýÎYçèohàóÊÞÉ¢6êÌ¿`bß¾NÅ”9i4‰Ý W‹ÙU¯¢¿H¼„Êå+>Ñêìqo¸^9_úí_ FðÇÏïþCøƒtz^¿üÇü‡ýå1à|±ñxcëáã-ÀÿØØøËø¿ÇÏíð?$í„aÆŒÕ6úU@›ÑEzÒühA~üXÎ ²˜óA£q÷ÀpÀ¦¯Ò~rÜM¾IÖà׫µãä¼²GY²3í_å7?Ÿfw“Éü|˜C p+;“É}(N Kô£¿¢Ìq÷ Óg¤ý s‚¤^ÒPŽNC?ŠQh`Ÿˆwc·KrîÞ@}çÖÒŒ%úØfæ­ÉOÀœ³“˜é÷øò Œî†ÿz‘_‚¹âáÚø+pm˜¹ƒÌܘñL'x®—¤™çúJ§ Aú©ŒmxÔå%Ž#W »+Ì‚ãŒ|±ñÄL0 ³ô‚\ئCŸ—¶ç¦7P’†m¸h`kë‘™ÝYVVq6†ê ƒ ëI|½îa˜0ø'œV­î}Š(/LAŸÎê³ã7Ó“]Ú,»''ÀÍïuÿ:ì‡[Ú3óänö½Þß:=H7 ]˜ÿCßã³úáí –Éìf’AX¨A¦82¸z=­Yq»'Ûñ»§5/#/ ‡šMͻﶾ¯ùêôìxw{åƒê‘a‘|KÆ‹|<8+&ÇX¦éåàd›˜!‡âêi¬^Pu¸[¥s…­O›8Òº…J¢KE|‰¤®ˆ†æÝáõO?o´7šÓÍ$°ºûtz7ibË6££ó‚Š|?Xú9GN‰àëyÍÑî4b½ZÑÕ–( _ù WåeÂ(Ó9³Õds6Kˆ8­ÙŸ'(ÒS÷¶É&݉Ã]ÃkÏx'ñd+e ‚?ëð”BåÆ\uèÜ¢¶V9!qd¬«-¿%Ç^ST©¿ûë"éÏ-ö–ËBýb¬K8QIoOm¶¡‹|ZÎ<ÒÀ2è°(&òm^ŠËP’b,$° ùê-š0xÉc0U¥ Gô¦Ï´}/ùŸ‡-o;}ÔsSºŠË¹š4[Ýÿ¶jjä33øå±qlšuþôísØo±V¬Ñ?ÐñþаQ |ÏîõNvNƒ\ëýÈ ÛF5:`Ü÷¨­Þ,™rä¶V§kÏmú[»‘{ßD4@½cq\Ãì³”³y†úrTuððËÇP>7ÿÖ€^û”=qû‹ñÚû/CØ¿iÍœÇ4”N/62¬EoT^ö€ä÷È׫'Ü” ¾ÚÙ}y`® Ö§CRœNo÷øõÑSÍ×õÛû¬¯ Ž²™?ÝØο ÕöJk…&O}…ýäŽùjòt²öÌWÔç·uo‚’¾ÛåÚ³|П˨C7‹¶ÖÓ6x6ó’ >·)æ@õŸõ[jŠnð2#‰7k®´iÝyXá:QÙ¶-[÷¶9NÍb§ÃÞlµuëvïîU¸…©Â›S÷¿îœõº¯ww;ݮՄ=ÕÚVn7-Í–\ÏÊ õå¸.«É/Ò÷@1boÎkßôkß êßäuoÊÚ7çxãH{†ixM #«-þbºi˜õ ‡¥Ôø±f¦5íO·ê^<¬{ñ¨îÅu/×½øKÝ‹/ë^üµîÅfí77kßÔ~³vô›µÃ߬ÿfílÖÎÀfílÖÎÁVý*×ÎÁVílÕÎÁVílÕÎÁVílÕÎÁVílÕÎÁÃÚ9x¸Ùú¥‘arFcl¦ÕÄ@Èc¡*+h`}FÈ¿”ØF¯,5$=lÞÝC%Ò“ä–ц*/)¨¼3ÌEìñUO­Æu«FaCDpÊ"×éúúzKx;.½•¥œÍ™Njx®íäµ)Èg-Â-ÎY~¬1KË·ìØzð.¢1_êË—ÅüøJKû³^:¦¦V°œôÐÁÑ:BÔ°HPH¥¬¤¢À©«ÚóÑø˜Ð½•ÑÔÇ&ø§õ÷Îç‚V¬ÉÅÉbƒ0¿Ú.Ú,ºÞUuiWß™mµ'…šM ñÔN(ðhʬ ïá¬Ö³W øìœ*ûUI6m¯ëÏlËY½aÆç²ID ÂRUÊ‘k]Í~)æ³]Þ. ™‰¿è×|0¨«¨æùEÍóK|®oNdùÂvÜ»óˆÇôþ2®»ÂC;Kõ³Ý ønÅ,`¾1†9çÇ¥21©9VÎÃÙ[Ψ'É»Q´ž¦yžF\*ÍQpüaiØÏâ¢)úËdRWccqïÂK¥]Ãö#ƒ_T¶fË÷ïÑü)~2êÊE9ˆtŽnã•bÌtsY¶SI\Äÿ³ü.]¾›Ò…m$JÇŸCîÿwã°KfýôxjŠ08©¸”e¶ô‡•Jùž’IȉD£21s”Y+Êç¥\ÌÇNêa¬4B#Ø2~ËQ·-M”‰Ë¢‘év ([;!)h>&æ=Ê)£ÿc'~—o)U뻵VKU ‚·žŠ:he²ûã}`/è=h·Côx€œÇþ±Ó?y§=®ÜHµµÐ7Q¶ØWÒú€ÖY/dÌ~6ó8TaÁL 4å5jäc¬ð¥êô6ÆÍ㯷ӪÓêøÞ*‚ðV ÕÑE¢)mC1Ÿ1&RÿÊ.«ŒyN|xQâ[Œ©ì¤†ÿd¤×ÄaQLBø¦’á’oŠ95|‰pÎï2ò»6盖ºÙuHºœš[¡tj="øïL´Ê ¾€Tó©x<¥xeôµ¦jYÄî «µœ &æ+Ñ›l&ýãÂtb<(®Éï÷ü{ßgˆUÈoåë{j&ërœ—™dŠ¢=*éx²±à¯zÍBD4ŽÁnf;oà ¾nx7¬óìÚ ÂcKÇ:'Ž†@Ûׇ‡ú¹’{é!º6tôr#¸U?Ê€Ö°ßÕÁî;GÄcmØn+¢5ºÚêJ…üXèÌo+ Tšz£Š\þ ±žšâŶ<èïbµ’‚10Ó^꿲òÉƸŠk!O–=ï+‰¢,‘vfbö ŽSt¤C7d¾q":¤áŽú$ Þ}¤õ„0;‡ ?&·P7êoÿ ànÁÀ|ª^¨âù¯YÀÕØN,`d ÌRÁú“„ê_ Sá×?E0w£¬î…o?„¼×/¡Òðýoè®PÑÒ$É"=MòÏ¢&f¦æö:šF Ë‹k¬E¯×Ý,BëQŽY<¿ KU¤®–õ´Ÿ:Ä ŸrfƒY|`¸V¥w[ u? 49 á3Þç“5KTérýOÖb¡ÛwšÅî‚éo1wŸ gAõzE×G•¢U¨UUTf³óÂÁ ÔõSÎçÜVü ÓFUø°F`wÌÁín6ßö[˜Ê–Ëtþ‡Zª]C´ŠÂË=+D—ÃUŽ©£;ZY¾Ð·¹ý¿*`šâÍ <è†ý_5ì×þ,Žÿ}üðÑæÖŸ6ÍË-óÿyøøO›7=þ#þ÷÷ø¡ü¹»Åä†RV4û­dó¯Ý\3ÿøÏä›lZ¼7¦æ,!'¼ž$;7Å!‚”Â1ylXË_׶ ƒ°©åev=Ìf³µ“´ÿ6L}£I:¾©¯ “Ú¾<è&¯vÎ:§;‡‰ùÝ°j;Øëì%;]óg;yspöÒPÏîñáë³Îá·ÉÑ1Àîî}›t¾995Ôµ³5Ÿ&¯N:{ÐâÑ·Éën*Ü9K¾=~}š¿9JNº_KË'Ùt”—%)V\bfETAÔ&÷X F›×#ø6ˆémƒ¤^¼Ë,ŒiP@oœ÷³RRक़Œ· ´¦Öœ³«~Ì ÊæGè,Q„J‘""8ÍÏç暤|¦*|oúÅ}ncNÞÛuƒ„œ”ß%œ ›¼NK¨Ê¶ƒ Ð1€|@pWwßçöÁŠ$mî‚2ª„LF*û[Ióçä.¬5{9ÿ@‹eD¼í§#ÚŒXÕQœÿ`XmŒÕ6¼ê0i7È>¥`üÇ{$+ûSÎ9a¢)ÁŠi9SÕ`²ÐuFÇïòÉÌô”òQZw «†Š@µDÙût„ÁÐéedûT“´„Hp#SBålü.Ÿc;d/î€üE£š±j T¦þ˜ÉÅ-å\29¡P:ÂðøU—ér0JîúÌŸ2ÊCmæZNÞ朆*D€¡ÙšPYš¶Ÿ§C²ØÑãADiJÝvóÍA÷¨w…È·ï}OÍEŠú½|J“Sι¶ÉpJCtªf+1Û‘ëÌŠ")G’¦ˆ·.âSÜ»§>ƒdyü.ì†L¼KhèÞÁvG¤™xL@€zLÒ#:æxÊÆÈ)™ãp/RpמfSÌ=³0æZðà;嵙ƒ±xж6R¨Ê òøkÑy§É†ÞNœãµS.{Ú}ÀõŽ š"",Ü@d ¨©ëÌž9³‡úˆ‡#úK9͆<ÿ·!®';§gÝäø‘ìÝã½NòrçoCÏ’çÎQrÖéžÝ>Kv‰À`Dó ½?Á¨€$Êšånìû´ð59¥WŸóË+Ï9÷ÔEÚwyÅC< Èo{€,Ü[óþÞ¦Ê>ûöd¯×ùæìt§÷ü[ÓgÀ8B&²–¨w­••}—¦^f j´Mìà0ÄȆ³µ †ÊcÚxÖ`že{!õ3ó©ùd1.¼ÉiZo,IiéMJð^Ò)pn×oˆ†kJï}X7[!ªôàÜsk¦l§Jß }'(ž`®Ý' $ꘚ…S¾[È Nz3! # u”}¬ÓKÉpvíÒ2€U“–AÎ "$Mžœ½Ú9険(ؘÇùl”N¨óöÃÏœªÙt™JáÄ ËóðxQ¨;ª» â†ÈÀ¼Nr:M:† C6’rkÆwtƒÁ‡`éR† $úÕi f¾~9'¤œ›Í1R@CÀß9à*趽2’MFË+ÚË)HŸØêËŒÓ 2û@dh•½O¼õn'¢Å³j“ÝM ¸’I÷Hðð†sœÉÌÇpëïÒ>ÜstÉC<ÌÒ ý3 ó‚Û»'«¡Lð¸¦àÕ^B>󇽳ýd“W}h?eÛ¸ý%™˜}– QÈ'ÞQ·æ…!kûG¯:Ggø^êóG%n‚#——†Û]CdÞ|áfñvd0Ãl|9»jó®m«^!·¯Z ‘öÁT»­'ç·Xe‚í<¥á<cý-NÔ0Õ\iÔ­ø¸õ¸œìqêXêw¬›ý8‡ÝVß©2ìT·óÿ¾îív°_õÁ|Š§uaGKЛÓ9–ู&MäÊ0 ë´­VVì9NV‰ÒÏÔW´ N€BòA ì!œj]}zŽ$çj¥ŠjQ(ºË—!>„´âÈ€ÆÙÙ¹·ЦœyŠ€pŒØ½íêMß™cÏÝ—º€rá 4ý—Ãbæ_/i77ß {Ÿ˜{ ¤  ò‰ø¡w-ž³ÛÙNdy¢#‡Ý¥ƒ³Xfºäô±9È`SÎXj>ò^Ûf toÀ˪l²LÑlTšüä{vRƒ ÍóQ;›”-d!h$ç£mZ|³ÍpØ‘Ö¶gd)(ÖÓAþŽ"úšX>¹ŸÐŸk›!<¶îö\±ðM M$ rÜL#'€Ç6cš¦=ê+¼ÜÛ=ìï~M!0ºwÐ%—pÂM”“ß]Îb½ýîËHŸ=U;ÞBqêc6ήÙJæ(»& NOå*ç#ãjã÷ôß×GºSðÓ9Šu“ÊÙÚ4<(üGš6íG¿ö ‰ÂO¶@õúÆÊò¦-ôÌpÜßô:Gá¦]ð»u5À#á©é¤›#öï‚íÚKgÅ(ï»WEÑkË·ôP±2f¥½šÅ XÆ &­º¢º`°î„“ ?ÏwO¾mV~æ3È\G?A­ †¤ßýêÜ`oÉû€þ~ÎC Å}œk<>k›0ÖÝï¸âûIþýºåyMUç#e¼Í—–éõœ©÷––ømE§³| ÎïÌÀ¶—ÖùËјV" «LìŒD6vȵðÕWO+ôɽ}ö¬úö#f% Š7+ 6¤x2:zëÓ£8-âÉ ò6«^ÔæÒåë‰ØLÛhp8´Š°a°,)ÜO£JèßÑœ? º†»4Í­¬ÔfÆ Ê¤1ÝŽ¦3[²vØ.·ÕæÛ5GCSÈ&^ô¤7ÍÔÚ ùÌ‚ZCyNpˆ9 Ë«b Âé @HC5a·xF¤Š ^W·â Ï&a¯Û;ì퟽LŽØüM"¥_K0uƒbn&Žþnº‚mž‹ÖŠÎWA_iÓ¿ŒewülwU•É=î•áG»-¦±¶Óúü«ožzË‹ZÞÙ1!4IçáJ·øÀ~ T5ÿ4—דÿÑ]yöÌÛ×¼gU½¸o#š¨Uº´Þf†''Á@óP-”Ÿƒsdu Zí%j5¬”b¯øÆ‹«X D+²g”Š½˜jÐÞ Ó6c¡{ji9Xà†/’™·gw_v¾!xMÓŽ7¨å³™X¦6·Ãª-µîmÙJí ÖrÕFRp½ ç\XcÂeyž)aŒÞ jhpðŒ¨cAýSÔ}êpýŒ¼ ƘŽ¸ì}û:Œ™V@†\SéÑqïUçUêŠ]‹%å-Vqã—þéwcöÐïIPV:ydÀ´¸±.ß­Â,´ÕâîÙv\ÌsVõC|\1M!7­Ð"J ŤÓú.Û[ ŽwM²åÁR'›îošÞdÃ=¡¹I€wñ É`êTÙ“Bæÿ¶š%Ô.£j'j¼0-`ˆ?"šåôQ gÚ©ÚŽ’7³ÀÓ­b€:*ä×ã“3ô6è¾<>ÜK¾Ø ‚b*ºC’QÝÍ'Ù´s_êK$êÁi_´?Vb' ]›OPÈ5ëØÛÜÔȱlhHG` µ,¢ƒ^Žl~b9q¿€Öãg‡Òž$åöèSE'W½U‚L¸is…04uMmè›G7Õ”•om8³¦ ÅD’D"½4\ž·Âþнr›a#÷öið6ìj8‹{[“³}éØÖèÏ„›rJÌè”vûÁ–'üÜ»—Ôïœ;²sNNw+Ÿaå÷|ˆ! ­`]³¹þ¨1-'4¶ÚÉÖ*þŽÝÒ°O~AüOÀ¼àoëé–özT;ãlŒpWÙîÚe¯£TÅ8…hòÔÛ @0G?r rYžW(úe«¥÷˜úÆêèù†øç?ýÎiÁŸŠxÕé²kÏX·n¶èÔ—e‘Ú‰ÓuÕYuqñ¢w?¹ Sqaª+:€~ƒuª[ÛsócFñÊÊÞjm“ª¦æö«+˪ú°dáÇ•^¶„±Ò5‹+Z»Œ±ÂÞB*îÀÿÊñÉÓ…âBðÄTÇøŒ–íFû¶_¨=XÚi%9Ú‡êvƒ©þc³}ÄfC™Ã=ù˜}§>U¼éâï½­¨*¨c þ—lK–4Â~¿`lJ>úM†¡ÁÛe&Ý) 6T…žÅvæ—£%—^EÜEØüÖOûST!h×4Z.[ñïÙö}'&OÏÄ1Æ®Z>Ï¡¹ tŒc èKõ3¡1hr#¿ðÇ\:D>pMÁ[ÐÉ[ì9x·é4Sqºæ£òC_¡Kôj8‘<6)ê×Їd”æ諆røÍDW‚ñNGO­8â¼ú•‚Ÿ™}P ‰Ó–j½TAò&y*k-Ck…Ù)•ZkÖâçHëˆ9KÀ룽΋ƒ£ÎÞâ'/é Hš©ˆüÑzÙfám¶—„®î‹[lºø§²ñn¹®©¬«u‹ˆ-Xº”^xe=' !Ÿ²Ä’Ó†ÐÉ¡8ÿ\ )„O¿I§þ«Q™Ñ‹ÐiË<‚`¹ãfÓWL#ˆÑÔÆÙ—T~OPÒ¦Q[ªòrÀö5mÇï`Y\Bÿ§Ynë¨pOp ýmÚëX2ë¨E]ÇÜB*AxÇ¡4 Q Ô2pÉŸ-ÍëÌ«(ùs$Òót@™Ú_ðƒ]\nßg‹îI'ƒ…Fø¸ÙKÎ>K]09Ph8íŒr…DC«úÅáRëˆ=ˆ,}˜,à¦9‚æˆáQ™>Œ³©íàù~ŸÀ_\zE¢òðÄøLV±nÝl;(Æê7T€"MÔ×üS´<ÓÞñóÿîìžµ¬2¦¥ÿëwÃ3€‘ã¹ö‰ÇsPö&П›¨?(?ƒV ·–®P8Fúm{¤ì#&êT×ï pµžOX]¯óvÌ‹W;_wPEi™º À·ö 41{kZõSnÅ; Q–H˜@ÞV´‘ž=KšÖðž›_}å=мøÌ‚ÚPºí·aÍŽù÷pÓùüù2ã÷‡ ·`ÏȽÝ^¯ ,÷°?ÎKøѸº‹­þò`b³ìöH\íÑëßÛûSÖq¾³Ú.a¶ªµS…^/Õ¯­Xÿ·WêûÎþYÜïm›‰êçHƒç#v­ \!̇Ê{b;ÚU9çŠH·±— ^Ññ¾Ä°˜²é›¾s*H[ÚA UÕô,Õ<{ê |ÿíWOõDUªN^w_övMs†§j®lD»©#;ÒŽ¤ <³MÝiöª -: öõÑD œhç4mÌ>õ6ô ò}Ë夘—sÀF.Ʋ©]ÂÉ+µä à…®Á ÷Ù: $Aôf6M!L§ñM6.(¨èb¨Ê¼ŒÜ ÒêÅ°¸ÌzÉ|<ÌJl(í³k~P.FÙì °‘¬•_ŠøkAmôsé¿…=.Q¨ò¾ ¬LÝS¯d¥3À“Â:Äå?왾£6«9P~F1ÉÑ©~È22€É7­Û(VM ‚®(Å"< }׺§3r¾{ŒÖ¸m]—•švQ×–Öµèê¶WcƒtßybtËoX«a*m×ÔZÖE;Ó »r¿®+ôëäl€×µ¬$.^E·îªÓõ`õèøì´³³û²³·ú@€Ñ6¶ƒN(D2tÿSÛ©à0êÐ/M6%H(§vOßúdCÒl*"'Ä"ƒ³•X>§fƒ3¿307M9ÿ Y›$ŒÌ² 29 A~VœééÖw×/_wµÜG ¸ñ_–?ÅžæŠYø¸s•Æ樇 ðÌî€Å-êW­…ŠWýÞ"åÐpôfm€Ù1|ß…™!ûµólx\ù“ß@hž©x)ÛTø1=Ðœ}Þ)MÚ,-MŒ~Ñ­¹Ù÷ŸÚU¥Ÿˆea„©4ÂuÔ-º¤Ñ½¬W7BÏn»À ­,R„l!¹ü…«E5×ò`™Xq15–ÄlŽØ¶6nTŠýJK¿/~¾Ål†7‡îÃ'LTPž3«¿ŒÌØ-f«v¦~Q/éæ»m7.Äïriò¹sºß}ÝŇ¿DÃhiþ4 a—þƒ4 W°]Á?O“—{§Ø÷0ÌïbS šxuÞ«ÜÍõ&)¸E¢vlí»ò§µÍï[z0Å4¿ìU„§úÁƒ"0öÖŠÁÜ mpBwÕ9â±L³‹ÌaG(¬cA&¹Z±Õ‰ ‡é©'a¬&†f#dH§BáIóÉ€ PÐ[;п"Œ2”¥@¦ïeF@ÎÅxN“!øº±åÐïÎ=±Šã¶Œä¬*Ü.z”g€‘No|a¸:¡‹Éó˜îÊ¡Úp…‚#Wû·­ “м°Ávk“ì*öð§La&Ó§v2çVÇÐ`Èi€¯GªÙíìý$—â.®¾@ä”~:ûÁ¦¤16]ÌçùL–ªÔµ Ä`¶P>N‡Ü?Úsz1ÈÜj§aV=²º{põÑ%‹¤ûâ!û$¢PXZXÎx` )röòŸæƒzsVÅ)ìɆä¿Ú¼æ^o73tCÅÖ´‡ÜòQyV½èx´¤ZŸu ø¨ O‡:¡¯€:l:°¹-ÑËÃlÜâœÇ‹¿†o°0Ù \„t¢ª²IƒëB²ž*@ä¥U 2ø“„©­û×ÕUÂG” Š" Å‚–¼4»·áx ŽÂSm—Øߌ D&ã>6ÿ®­y ÉU¡A%0yDv—þg¥å^Ç¢æÈFÌ—ßÑ×Ô„0*è9oKg%®z *¬ð¶ÛÔ\ÃÓÄp¿d{0lÈñ £lTLož0Sç»\TšOç ¦§vŽ5¿¾F‰´M-\3¤}3u!b爯ÁTÙïuNwKþðд:%ÝFœèᵘ¨~ŒÞÉwÃsÈMØ ÃüoªÎG™zÆ3ã;›˜r÷š[ÍwÃkÌñðb§{V±h&wäÁ7wö:{M\Úfõ­šj)d( Õcðad~ðKVA[ßíâÐuÈK'æÒ6-B2«à0óQ3èü50]ãGžg†K2‡ãQD¨á¦Oºu£¹UØ0¿53#ÕtÚú1Â@ñîáìšáõö-& }Ø•OU»Ø¸¤w(éJ‹ús„šñTÂèkìMø9×jUf¦´Ùjp :÷ñîdú“à¼}[¾”œT(×/%/QRø¹ùO#7rÆŽÅåÓæ­†œðãÿ4‚Ò_ÌŸŒAs&Z3GTÔÃÅ䥮úq; )Êxû·¦.¶> >$ó[LGì=Suú€ìB0Ž:è.ˆ3÷± ¶ªDbÐ}6¶²L•Òa&É==„vrÏë/d“qAÐb«¶ [É íaÖ÷$´$5tܬr§¨cGÇ«ÐIÝ«–W“ ‰¤{÷Û–\_ôòdF<Ï. ÖŒ@Éu­Åøì¢Ð-!^€üº.m¶È%r[ºVÙ·vR—í;K¼¾S’ßá/¥Ö!²“ÜlLÊ gå2äo"xå¬L‰µäŽ2xÒ%þ£)«¾ÆPoÃýÒwFtð¿D÷`¨]Š4Ô·^ß«s¹€¯-Õ N™çç §^‘M£–ñ³Ç¸m[±Á¶žËùls=â$ôð¤}ŠZÓl³0Ìu¼öò&Žë^Äro Ëmá™,ª×)Ñí,æ¼+|v´¯ ™îe£«rගp‚¸ÛÍP… Ïy—û X‘ùdR€›<Ÿ9ÂÁŒ¡o| /b:W¬€9yÇý¾cfàØ¡p f‡á°‡ÏóÂ,¸Ëº¯v†×+vÊ<}ŽI|™›×¼µËÈjÓ Ê–„/@vJ%Œ‘iç3ᵤ¼…}dŸQ§x™±{52ûïB 2Fç”æ+Ê;#ytégš½kËOZ¶L¸Õ—²¸È¥Ðm¼YÈ1[*Lœà6þýä€ÝñC÷EÝÎB.ê7ç µý&7J®oËÉ-`€>‰ïñ¹3÷†=ìýmçð`ºk.žuTÐ2È÷Yæ.éO½––’F{G}òÍ”˜OD´è6ª~õ±7sæ$áê,Y°ÀO¸z¸¦e÷M¥ÿÕKÆL@ôš©|Êw Ï e=§82[ÊÊò¿J$9‘‹1»N›)#¡{"ù9h½ qÃÎ^×Ê7 Y†á èì€þ3óÑè†6è³îÙÎî×½ýÓã7ÝÞÞñ›#ç)Ù—Í{XAËÛ¶_¡æúv^ÌfÅÈ ^AWµÈ9_í|µ¸gß9oð[ añ@?TÕlfƒñZé»’o,›úœB mÞhÙŠI–͸®Rì  ÷l>~W¼Í’Úm×ÌÉ-zNÔ’cJ¤]1@xgżm)ÍlþŸ1ië¤xS2ÀCŸ1O*èëâ 4ûÀkÈ÷ó1z)4Î’òÒ'†O1I<²F¢Iƒ½Ì3ƒüd^Ã#9or hP)êÚ8ƒŠ” EôŸTgœ8TòC/ú úŽyL) (á‹)$f¯U¶ù¬Íý~‚ }áÄ+Õ5]à s¡h‹ë?rèk¹#¸Ã‘n@WÌvhNb9"ʆö"Ë9`.Fµy“1~×€À¿¼à­àâ± )Še'QF¿Ÿ°)›yE=V§~B1¢M>‰äVG/6ì2ê°)³8%ä´ê÷¦E1 ·¥Í:0mfü€Ruiˆe=«'”ŠÊýÏ9î}{´óê`·wx¼LçPúªûæàèá>ûÇJ£á=ßíxeOvAîùGÅ}Â¥L÷t·÷êaËu~jÀhí{3 Î×âfœŽÌ\ ósÊÃU)­# *s”­I«gIÒ¨9Ì"ÜXÂXPØÄL 6êþƒ<ºò|Á‡NóMÃâ…Þq]K Gé˜péòñ&û¿¼Šý}Euᦠ;.E„s'­ÅÍÊ·ê%ü\¢›«†dfrz£Ü5µçjèèg=ÐßS‡Ð=ñßK×ûÔ^çkr³ÓXž%*åU|äG{›FzA!‰u½ˆ6_-‹?Ï*‚„Ž­ùÔKŠÚ{ÁäHðɳ¹éÇA×N› ‘öj7e’ÿEs Š‘™$Ù¥9×Û ëçÊÇ›_û~ÝâP„@æ¸qq ÊÔ•Næ㙹ð1Ý´`ÌO×ZE›Ò¾ÂÙʦ9«b–hª‰6ò˜= :!'Ü4Än e/)"À:õ\Í‚  UnÛ¢Õ–ÝgtMz°†77êvS[ƒù88Ú;8•—f«î˜nº~V‡ŽÛÏ¿š`U.¼ØtÈtDò¬ I‹ÅMÍ?“ifx3D°_^×=`¬„LÇ(È»m',B ‰,ŠeÕ }ýX©¨›nKßw-·¥ÆVD=S«-ÁI"ÅzVÈë¦ÅL$øëj‚ DÛþ7¡ßvzÔ´xÛÈuà_îvHþä?ùþ·qÿ[âÿ÷è/·ýisckkã/ùbkëO›[Ùxô‡ÿßïñCž]Îýoó¯_~Ù†ÿþ5y™ŽËµÿ^OžÃÄ´“a:NÌŸ{f»OË_Ïi°ZÍc¨¡›ó~1Nö§éä*ï—·®`Ëì)¨àev=Ìf³µ#j2Ò¾€ðïÅÿÛ½³÷³iªSµX/Fr^„2Ãü-€sQFyPÛà<#ú–(s”6jvU”˜!ƒˆèzŸTM7XM™¶QÌÐÑ*g7ÄuÈOö'ð?‡¾ñÐ.¦Å(!¡…1ˆÈPAö>ëÏÑ!­$…+±¬=rž´Iæ“äb>ûuèJùU9äÅúÕ³ïJó+:Wr(G fgÇ3ò¶XÑJœ>P¶gùìF'ÁêÆœ…U0wm«YôÈC8ÍúÃ4aúŽ&ɬjÒy¡“.$`§>ã´‰žœàæãtð.3\>¬Ý;#õãJbðë$íƒOüMª; ±WÒj°<,;•a‚‘¦t‘vî\ Æ7ÍÐ)Þ² ¨0Ç}sààø!—Àjƒt–ªDêÃô\Ö±•­i÷ø¨{†ÚuÒç ï¼LN±¯ÒègéÒïæÑïæÞwŸ±†oçìô@¯v «º‘'`Š×œ†UsF+ÅY ‹aÖʉå¯ã@Í2áQ(ïù6æ<;qΡŒ ÆÓÂëçÏOz<·Âa­üðÉŠ.\tk9›ŸŸRBœl‹¢P¨^VècE¦ã/N;ºz8§_‹„Ýž¾Ú9¬ù0ú…7ûu-ÎÇl€“í~²hM‚w|«Æhx‹Û$ûPƒXƒ¨Gµh°A+þï;D–4ú‡8ÿhØg>ÞpàHKˆýh¨tÌ­‘$|¬‡ç¦Ì,Ãû °¯q]ŸçùÌ^$Lß[èA ™¶"ø³5³õËõ„f©EF v˜NÙ`!I †ƒu‡ÙçøÊH®èoJÃ&¨´îM R Ü™Ùp¸ž„?Œw´£®¹TpbÓ»¾÷g«_LÚPD½c9NEï;à׸§Br¥¢êl¶_þ´ÝHœÑ…–ج®hiüâ<)ß Âeù“÷ Ðp˜‚5â¨|Hewq'7ÐfvÀ”œ²wŽº¢F¹3î8;5P¶Òÿ­ë¡ý¶ŠtÉШ‚{¶Š¹ˆâ06§¸]R7ÍËp¥èD§‡Œþ ³ºÖ<‡ÿa£¦¡ûèÞ|ð÷@žÝKšÿ¿Úé~M–PoÐU/Kv¦´:(ºöpôåwòÛ÷ëÅÛX|1ÃÄ¿™fx¹ *·RÁÆUÒQ¾aB<ÚÕ”VZ¨Cãžap—AíMÄü䥡ñ%†8Õ)-WbT;²Üžúž!;Ä Yc€óPÙÙÛëu¨¤vkrÖ@Ó’¡eϨ Ïž¡}ïg/¾>¼õDºÝøÔ–Ã’w•»Cƒ‡UyÊv|„DÌãw #1\Û8Ë€#æt)BjmC®ò¼¸œ—Öþʱ¡Tƒ™½¾õI·„νï¦JOÒM®m±aù$yþ÷ÎéqÓé!<ü¼mÔZ‚8 ¬Œ ‘Î’#Vœɶj!PlÉãFc!·ã"üí3ǺáÖHê !à•JÕúu [+«õ,æ¯ Øy.¡$ =-ø¹ ãísôL§c¾’òÑÈ0Îct·Äd9ëêûç»Ç'ß61ZºÙ¦IüÌö [ð`ßp@pO®]3+À!ª­åm.;ûV3×<м]N çO½‰Lÿ'Îü’Y¯ ügúá†CµÃ¬YôÐëO;{§†1(D˳¥Ú—§z«án×ê^wL¹paaä¸vHJbI­Í‡vv]†êYØ $‘S !¨>ÈÅ’k5-íÚ5UvN½¾íÀ»ÓÎÙk M{{§máC¼B¶ŸŸÉ3tt:Ÿ_ÊHzŒzM~—¸ÁJ£Wmh÷î|üv\\ïBæÅ•…¬ÓGòMŸÀ4 ô.ï…pxD¸9pcÌÇ<­µ“ UÃÁ®ì´Ék—nJŽý'ïâSÇÎÃåé1r  âcÃ…‚D[\Z gÆ”@\xîȲ Ÿ‰v/^Gа²sE@¨AïTü§›h/ åmM6!­ç·Röq8rkÁ@åèIˆþÏìÕí9(ˆZÙÇÃ>¥ºÆåôr~ïõ^ŸhÜ x-ÝKÈ´ûwä¡C¦Ðµ¸‹ŽóYÈo½E¦Éƒ™+Ðõ0<¥l‘™ Lk``¡‡â"¶¿¿mhÝÁÑΡa O­ûÄ-r [`ßxìé¹™¶PÓã/z';û’•poîX»•râAX3Âg§„ Çõ¶“·šc«½ƒä¶ñýfÔàêbuÐ’`.0 ˜é4XHfbh'd£æ½h÷0ëúÖpŠ¹—m‰ ËJUÅ"ÒjãT¡ ¾†¡Oe…0ôÓPÚ˜@@™LK¤,ÙTÆi:ëíœî'íä^ÐA ÿÄ|Ôé죌¯#YÍîøŠO%MÄY"Öáê(BRñ7]e­«VXLÜG´£´wâºôó÷c—DZú’ÕÈ<šs#^bøŸtŠ~"pG» S"Eá`H¢(¸ %ï]öõÔwŽÎ:§½ý]‚@ТSÝKÍìÎfÃŒû°©–¡óÍÁA,ŠÏ ¼ºJC5p êøâd¨"gñ5g>ÍW„¼2ž!¨Ë Ç iÎó#1e‡àaLUÎÜ ›&–©ÜMVð½’¿g¢iÊ‚xl^{¨löG{xœëèQä7¨WÊ©892ÕSLgG zo `¨Ût†ÁcãÂGÈ÷ìFƒb~4œcæ¯#\7ÌÙJwºÝÎéY3ö%Æ,QüÝFÈE 2QhmÇysŽæ©Ñ6Ü`ðèyÉÛâsÔi¡K)s¦x gz=FWPÃC©oÑ9·»ß‚®S9gÓRƒµ±AÈ*’ÎœÂ?@“@ºAÃ71†©iåž-ˆ†º™¹V›Êó«Vs-Òª {Šý‘òTúƒù/üºGÌeèƒùÄsÚ¸mÈÃÞ9äv̦=Ìô o”¦£Qs4•EÑǯ³âÌ!49d|Ív'(•6ˆõ+âŠa ®v²á.‰àp¸Ì7Î3Ev¶…`NÃ7äå-à›—)ü› ½©ËYÞ7\r 1ÌÇ´ °6æYg³÷ªÃ±‚N ýøÜyécy5(÷å„î—„†ÿ*ÍÏÄ»ÖÌПi ¬¯ïãàæ!z›;³ O 9vé A³n_Ã\‘×#*Ï»ƒŽ× °aóK; :X)á¹ÃíZ²S¤û*›“<·x]ÖD6{èâáoƒÀù7{£ñœÞ -9,5pm­îòí¾b}$úŠÍò‹d&¸Äâ“ÙP±jZ J$YØ;ÙävTGô0 ³˜Ï¢î7Ý@¶±ølÑëÚ)stáSæͶŸ3!ñÕžàKΟv¢”x"¥N5÷y]Ø!B.Q¨\OQÈàòÈh°×²àèGâ’º8r綾 ‹óø~BæDØÑ*/£Å3sKWÄð|mÏzÃgWˆ9¹’à`X ·Ð¸  Ô¹cßè{›ï |ö®Ó«„nüyuLä²4ŽÑ,Ž€Mã~4oÀÆ-‰¨!cZ•×‘ëŽÖÐO­/ƒüüâDˆˆÙ6}›œƒÚÈ…Á˜ëúeÙR6ÿP ]'X$›Ó ØcC˜ €ü…Ô|JTÙ‘×6á$êϙi 9943<’®a3hˆfh¿îSõñ‡\ŸJ3š½L^:n.^—'rÛ°Ç>…ž_T‹ïŽÉ9=•È?‚È¡ Ë„× Yyy9Ǩnu‹2¥y0̱ø*GW§õ'Õ‡Fi—…Õsðêg€ç¬ Rl¬xy,((žtâ7U0Ÿ)“2-oÇ+r1¦\×-7“VëEÄÚ]ô!§Kw%FŽ"àl6@ýÌï%¨q(7˜ÀÖ^ `Ÿ7ãí ÙU-&âKð9qxà€š/ÈÌ®2„G®+üCGP$+?'úJ2ÒFÒAÛGÅÅ…™Çí+¡P)‘÷öŽ_c\3ìOl å‚éÝjñ•òŒz#Ø]šŽŒû欺7[uuø_>{j½‡lµŽâöܳÐ#?s>ǪòVkíC¦‹µÍ­G-4É@vÆÕv“x}‚ÞKmÿeKž¨È78¿ faßcGx›8* !ÙP=ÉÂãHåçdæ bTȬž ÖæmRWv „¹GhÕ §¯vQ—›ÎÇp–Ð*\Wf#ÚE õ<¹Oµl]tà&†Ê‹»î7›†”‹ÿ™ªqkÊŬìj?“æô¾•ÂT5‚ªÍÞ@(oÎb‚J„Êš*t'?¹„¤..Š* =]†q'ã7÷û!WÏv£Øì„Wò³GŽ‹¶Šb,ã©Í½Ý€`f«=þ–ê†Äåç?>¸»€ÃùüÓæÆæÆ_¾xøøÑ›2/ÿÿøûü<¨ÉÿüGêç?ÀɾïÎ'f ̨N˜°.ŒDèEQÐÛ2¹0¼%ìÃÐÏnÐM\¤»ó1‚¦;.óÑ©ay¯ܾ|ŒoÑÌq9@C›ï‚0À'û• ʬõIÆîº×¹“¢Ìß>žºÈø‡ÉB´C/ìÔÐo³UwÌF3tœaT_1µD E÷4ú˜¬àáE< ŸQâ@i—‘ç£Q:ŽÏGYä±9Å|Ú½G¨Ø㛜Ò#oû"Ö¥áõ$Úô%=e?ßÞî¡úÌU÷ÍñIç¨wöí‰aìÕ7ó±9á”eÓé¸ðŸÙ%“ûJ¶ŸY:ÝA¶\ùŒ .x¡z?®%|Ö‡`†leÅþ]ŒÀa=ÂOzýwÛè¸ô|Z¤ƒ>ø®!gP ‰Q€ƒ?N2¬Zµb+êâv€„ÍTÉ¡_³´E1ÀQœ§'™¯Ä¯$ÜdßÁdz9e(Øä ÊѸCˆ&˜%±æla´‰DY®KÈ Î  µaÆS7¨Ïqw˜Ê@ @vjœ6 Äf†rÐcøáÓò¨}¼–«Ž“ÙˆâZ'C§‰ªNçCQaþȼ„Œ$¹OÒLQ bkýa ï´7˜zbIçíJb ŠA•´.@zÍHÊy‰áEÅX¤7œž fœçʃÀÀÒqý8ÏJ—S‚f¦bfÝšxñè`wª=Ý”?fè"Ý3D°Íñ«pÖ!Bþg­Ï3Åéæ|Ør½>Ö9x¿¹ÊEâvÒâG-K:½“0LB`–“(Š^éÛè¦çzç¿ä¹~ª°ZÌÃô²tB-4—À3ú“»K)~l!ÖžàSÔß' kÿX®)á¨÷ÀãtD¿ã¯XD™Î½¾b6¥{ð«VÓ§IŒ|x™Í°_Ð-ù Üs}¹eÁwá-üÎ 5øÏm¢~¶*Æj°‚…ùðÈØýû¬2°õò¤kû†}ÎÓ/ •ôVbsãÑ—_üåñ6ùï˜öÿ­­%›É«çI“4A)zûÕãï~"£;vúYMÞåà.ÊáZþq0ô©?·t‹Bíw%ä7…o½²ŒÎ1èa .êàeX¬!±hö«ÍWÏ[ÕBº%= #™Â!¶ÝÅðBš Ù–r|ö9ibšþ¢èÁ‡«Z6úþ¸!á}mší¿ê¼Ò™î¬mÊÃH"ð†=tÿ|šìÎÿè¬g¸ün“ýé-Ù¥¥ÞÝx<ÚIe” ¾ÃÝ­¿û„ÓeØg}²Æ5ª”¢Ü\]9¬Rh‚>yöá¢ì‡ÜÊòÏl{Å0ïßÜv îƒåÃÉÇà†OÝ®~ï Õ@] Ä>ÁÅ¥Wv•¸ Âï°Å™ïíšÿžuz{³É^vö(ÚCïDyC@ñnêf¹—Aýÿ}|pTQÓd•à1‡ƒÌ4âŸ00”~-ë|ÖÄvAÑm8”¯Ù× ½.9Þ;p+Å_­ºxÀì"3šérÀjÀ†ƒ~ù8ðúbØ„Ïœ•ÓZƒˆ$üÂ=ï*6KC“¥ïü6¤Œ„ª£M×7\\tºo¶Ô¹†›^7” wúC¹ùeö·¦Ý÷ìæhµäôévnÎÖž±Ô`Vïu÷Û£Ým‡¶µmÙÖ„V㿱wr}¹?ü¹0…R¬"d~¼…)‹„ z°bJE/€ n¹x){ë n%þeŠ.-¾q>D½s80œó´¸ñ˜£M a¥ð*……RàáÁÑÙ ñg¨ûí•óñq×êAíVÓ°Cµž—µ*ï“~Hÿ{Ùÿ¡7öÿ%ù¶¶?ÜúÓ&¼üÿÙ{÷ö¶ko´ÿÒŸqÚ„´)ZÛq¢8}h‰–ÙèvH:Nvš‡"A 5E0iYMó~ö³®3kP’´{ŸwG{בÌ}fͺþÖηSþŸ§;OþÐÿþ'~Šù~ßL>_þ‘ˆç]²è’E¬é¤þ¶š^G;[˜kêË'Ñ“¯6·£ùetº?°À@@jöþ6ì¿>==é |&ö̈g> çQ™ÄØëÕLB°€¬¡t—Dǯ%—–ÿGü.&åJ:M ]÷NŒ©0X /$m6ƒ‹ƒ€h"p¹®è¹QÐD3·†cܽìêmŽŠ­ëÈæxaÏ3 €F½o”MîE,ˆ‹±ü4UH~ŠœóËkD«ù4V8R™·{ß·Ûßë‰O¾»¤ÍžÍ“±®º¤Ûæ9E'rÑòž,4FŠ°e÷—œ7š&§AZ}XôK:!ؘ¹ƒOx[äϳxŠÕ´O<=4¸Ä™Ç¥œCgÐ>0sŠ[ Ìì+ü+Újàµ]SÒh aöÜ¢Ó¤FÛ =ŸQdœ²ä=à#³Ïàgþ8ù–ëØi8 M¶“Kœ`æÑy¦¦‡JË.é¯Ý[x £ Ÿi‰ñÙ9]Ôh«0ª_º¿5ÒÃ)\€ÿ£ò»NiˆßQ–T-Ÿð'ZLEYÀ•³è²"Ô$x7ºÏûý¾óŠ1µ3¤´kÃ%71Q_œ{½>®P+‚ Îܵ³‡©–É(!úO“Bš[—¶^QG‚÷”þµî Šá¦µ"…6QQ™.ÍôÖq¨—sxß T-¬r¤m#ó i"4äã7C–3FM”­6`†Tzíþ%=Õ* £Ô`ã\©Ë0ÞðÀøƒ›¾IÿúÍãdíÛZ¿W“ÿõ=¨kîòÒ•¿>ã2‰àÐGí¹OÖ̽§Ë¤Øëöˆ½T,ˆ[‰´@DU ^º\$Èqd“ùíV¤ýîëà>(Lû­UÜaÛ®ëhÅW°Ø ïxwÔþ¶CIÍÝ‘6[‰ÿÝ¢€yǺÊŽ¡DG<’Ý·~o åüõžÇ73@_£Y5:Ç^ûPrŒP6L£$ì.oeœj¿€*XÓÈ°KùŒ>¶¡59 jî&¯ÆØ#Þ2^ˆ©OƒÓ\0£km‘—ÌÖÂ(kš‘? 0ÆKÎDŸ1‹‰R a6 ›9¥ùt€„è v%ߺðœ^y¼¤‹{†¼¨Ú£ µ²HƒŸˆ~™X2öWL`†Ã]Eµ1z/p¦â ðR_TÀœ…€€Ä´8ŸÆ1c¤3 % i0PÑ!`’ðæunõ/»ßu€ˆíIšè‘ P„‰Ç™úõW¡æ,ø1¯rÌY2Ôuª w&_à„–¾É¢µÉÜ—ã’èéóò§ Ëù¬³šO‚CW5còªªOçËðr¿†!ű¦³j Ø!Fòã #Þ%/® ¶È PžÈïx³Îì>rþ@§« !ñxŒÒ':ÌF¢.H˜á7y]Ò‰Aà@œ–2ÙBîÐ28öš(O6ä E⍠œ¢ín1 ч)t¾?…›/̽ÒD óÖx…ß?B ¼º4DÀ™_ë* ds4>8Ãnñû­zHÔ=e6ׯêòÇó_ Ðb>YDžI²Rá›kkf³V9™5Š rz†±ö¨cp§¬U…wSyÙãÏ­·„(ÿz¯öÀ]æ4w7oXf4 Ê”ä¼*ÞÈž9t3Z^ÃÚÇ,\qÑBnÀØïËK÷/ŒÊšiBwy&eýô2Æ É_ቄÀØdžÍQ·3Ò,+$tŠ¢kæù}%Åo5jŠóÔÅ!Kˆ•rÔ7)-|Š9!6t¯~Žº<¸¢Q³æ2š´hj¦‹¶V3A¨àR'¿3`v(²Í©f¢(õ«O¾ i\ƒ=Œö;/^pD³G{ µË.€ä®¾Ð”˜ðˆÑÏgÆf\û’# ð¥ú1ðÝiúb1Ùá6ÜdSyUÁixÙý¾³_›\‹w~#ª/s¼º"|6_j¨gýADNð+„šu±“zí·#*m€»èï†Ü§{‡v¯Î|4½jé®ý¼JÑ°ˆX]„D½6°1l1%Œ)¶2å+ˆ*½Ci þ™YÂf¾AmáåqU4,0X)—·°Ô6ðLc.á|½×À òÆ7dÓlp¤«TJxî)û¢4ú:ô‹ß{Å<ÙnôðaÚ`l­‚òÇpl÷•-ðNInØÝ“ã¾LEEk¯ÚýW…Æü„ùf/âü‚Z}n‚IŠ~GdgDÏ!^æi“x“`wa0—Ý^¸»œþŠ¢u+ùÐÚ<™Nˆ{âø§¤fä;{1„¢ˆÏ£«ãû†FÐJÖ Z^9o²hŸ¯Û”‰J„/+êp{Åã^Ü8ÔÜö a‡†gÏmïµG&ï$ÎS¶_ËéÑ‘³Ì€TÎËÈù¸ð#¨Ru>¤nZV¯ŸvÃO]4Ž¯ðŽãHŸów óá¾úy ËøÜO ÒF?’YñG”.iJ`u¨Á¹Z¤(Û‘ƨ«V²\ä¬EµøØÓ…ÛnNДÇP ?…H ŒAä4lvÉA¨7S"½N Êó4žª…ZÍÖ/U°ëaÎK¼è*é>g«t¸&@Îû.¹Íˆ²™ÏÀ‰«‹­Yq¼Zج56¬:\tœÁ¼áLÑü™)âù¤ä†Á>3“*¤ý®»^)UÊ$ý¿£‡$,‹›÷Þ½DפKŸÕƒÃ`ĶŠvœŸY—i-ú7Ю¦¼záÍ7 >”ÊaØöÂ*ù&žfÙÛÕ\üWÈý*ÍÉ“G²ðR_Z6éˆ9}|®‚cåIM0'œcDFŒ{—¼9çî'ö´p΄ÐX"/)ûZê¼Göš’ÇèÈåh‰·ûìèÇÜátħÉ:n…áß´Wy–gHÌ~ÎÉ(¡|mD"÷½’úû¿Kkc–ɤc&6×8Þ†úy1b»”ðʱñãÄe‘´¡˜Èê*ù|,šk˜^,…?dÀÈÿER Š¹žsKÒ¬³¶Žñ8ex£(¿ž.ÙL Äùê4¶6¶«ºfª2[¦’—ü q+ãKRE˜akö®–¯Š,ߎ‚_ :“4=å-…ü?©åãíø õ‡æâŠ_$8 €AiF$ê3_ÔÇVK¸U©à ›Úi=d•³ ÔßHÚw2“múwpܸ͖ ‚²ÃkÎÕëjìU]Iƒû.uŒLƒ Æíþp‰°;g.…3C¬HÑ»]-ÅäG¶‰ivÅÞzš)ÎyÐ 7eø.ø–Bï+™¯€K&Zãõ¹Ì7¹S,› ™¾ã½²ž_)0D?©ä7>æÂÐÆ t“¨DT ·Ï•ÞʽŽìIî;ŽŽáƒKO%ö+IN¿xönx>Š%àsο̞34F>®êÈ £QÚcƒÏ•ˆ²Å¥“÷øœIÒE0—³ìø_Y•Ý q1‹Ú€ÿ4&æÿ¦ÿŽ§ÜÿðÍúßͧ›OŸüió‹§OŸ<Þ†ßÿsg{kóýïâçßÿýÖÐO§)ð ÑÁ"ž“ß¹‚?ÔШ¡Ãòè¢0ŠWp.¾Š^ 7÷·x×'Œ¾Jâw)…xpÐWðšÃΩwtuæ÷ÖÐ…W¯rçâøz‚0\¡#I+l0y¢þ\n¨ôÍ„TZ¢¸8M(l[õ¹ ‚ˆTA"_Œ—,H&Óôl­•¼=¥lðæÅ~»÷¦{ì”õ|aN’ ðT£Ô·ðª<ÂRåpº†‡ûÃ7½öiÉ7Y$VÓ#ž·çy3:µ.8@›ãíaÏsõ¸þ¤gòb6…‹sŸ¿¸/‹N.7üÄ.4JÜJ °ë-[׫ì M–•¡Êg¿xµ$ãCXú£x’-n;W=ü­îI¶.Jq"™$܇Ě%颈Š‰2= »¬a*Œ§8V™1E®bG€RRüGºdùÎìy5ÓÁg•‹"ÆJåÇ>o øk–õ0 ‰» Üìx, XÂÔZ³1s23ˆ¼*­ùÕ ùkÕzÄ&æ$BÓr3S‘:]Ć0DWú}s" §Ù‚í22”äNgApwõµ\~éáÉôX-•m©ë«yäªbêv!gs R£¶œCšŽ Ϧ+ªy‘æosJí48»ÂT¾3UÀä$•g˜Fî ®Þ·Š®âdub6\²á(š¬ß»Æû¨‰w¡~B¾/¤ÛˆTxF)’áKPÈya>÷š WB]¢Ù„¦G4 0Ábn€Ùš#~Ù4‰ß6¹Z ‚ãa°ÄƒÎϲ3—V“ ‚Sè ;¯@v^G„’í½o‡À5½òˆ Gíï‡ÝãÚÖ&û®¿O/W—~n8ÍØ %EF‚)ªÖRÔ³O+’†+¡S!ì¿8¾Úïõ‡m´+S§@£ÎñJ{§§1ð_žÑkWðõq÷{`¹¾íPÅŶÜ^6›¤ç+V|ò„.&¢8ìO}VwN•± SÊù”üåÒV¤:,y=»ÂHÑFC^ -–éÙ¾$'L«ÁØ dëES: ºêáJÛþ9úWôò°é]hJHDSe?sÂTƒSO‡¼ÃM¼£)ÚÁMV8¹o+Bd*•gÃ(X™ [›´]ô ¤Y!I†&"×™2µ{| è·«ïLedÒEüàuv&°N‰P³æÜ= ]ÄÌÖ-™þyÈAÕˆ«~¤{ÝÍt´}ï"hàÉL¾Ûb@,EÍÌø9Ew¯.ÏPx›Dô¬)dšÑM2òt¥ã™ÎVFoÁF?Ÿ®Å¤ÓsÖÝü7¬àYZ“.÷:ƒv÷8Ú öuO2AvN­  ¹|Œ»ÚbôUx÷0eF_¶ƒ½Öº†/¼S<` ÛT'ò<ú]t™È!V§B¬°Ê‡ä¤K3VTÅ¢£1ÂØ í›D’FR2-]¦ ×k 3ÎøCT—– ClªR1Xl•XÊ]oœÚ¡yDMÛ[Õ$’gF¿lÒ)ÂŽ):Ö"™À„M†újSQÙñ˜›œ:×DŽ¡“Ô3Ñ«˜µkg›å‚²Ó-ðkYhq(ÀGzìVå0›ã…K Ë Êy ËéwßK±ã_¦¿zaN0S³¤'s¨Š••y/Fjv'ùTöâ«N÷àÕ`øúøÛcdìêuÓÇF}c»Ñ¨øº{Œ²òòŒ¥[„Åñjtœ~äÛˆœ+מËx¾ÜdœzÊhÏ?m»JøhqÃ#lÒ/%_¶§Ïa‡rÄV%v%Î}ºS2è©úÕtw·ôCù£è’Á×¾#]y6¿@ïT ‘ Àé^ ìšàô~.nÖÞétéuö1bmÐ{½7èG[$Ê©W¾!ÓÜïCfNIñÖ‡æ-õ™sîPŠ,+rbwü*>Í“I‘e/…¹„úzØ'Û—ø]œN‡æ uFª1‹í ›X¿«5ZÚ‹ LEË”QÜ?àD¤ÝrNÉ…‰R7žòüÕmÅ I[\;è †G£zåú<gz_²!JK#WœRr6PüšÕr3l\æålE…g>OR!ç·ïàšÍòÍó5ûqš¸û‚u‰|  “!Ï˳‰”Ø›ü+EŽ¸³z¿²êûn⤳Åz¸®·:·±}ïÂ8g¹%¡Sd£”˜üjjèrŠÜÕc7—]0 µÏè.{ÍÙmKTç´è¬J#’ïìC‡GfÖ®r'Tl„¹Ž~À,E%¹—)ÇcÄé’àòØ°—‡‚È!òpHxäb/_ ŒµªÁ˜9¹Ö”KQún m³ŒÌWWùš Qè¾`î@Ž;ý>ê.z'ßuPìh…´{ÜtÛ‡ÁíµeɧYk…%žò•y¹¤cá7áCíì6š¯ò‹À6Â=˜{ ÖÇ®ØlÃûá•{dd©èpÅŒìV}­Ðq Í+Uù@£‡8f¸sÌUë4#i.5SÙ>Uý<ÚÖ—•%mï ßUóôùŽ}¢{'§?ÔKÕ7«[mrSá:­«ºªÏ7ÎBaÃD¥ˆg|åæ5¾Û¥­À Qn6®U(sAŽþ*:YÑÅ Ù„ Åt(ó«Õ9^Ð3ôïOß_™>—þ1˜™‡rI‚qç7œ ¢+Æo•»®ÊAá.—žÝa`›kEÛ-œÔl¾¾{a?îY—Ü[fD:Äž˜ku0ó´L;—üêgò‘1Ÿ‚pCø»’Pø–ãÑrQ»\¦9yÆ,hˆј<“<’–”8º†-Ç-ÒóáY2,qŸ¦Õÿãû¿[Y —תü7xª–Ù2ž›ìã_x'*,ŒU û·0î3:\GDxV\Pyþµ«(Єßø5Oyç[K? ¦{ICJLOˆ'òïl³ôðWþÏϾË¢üáO»´Š\öW·gwÜð3ò!þh.¹H*u`†wd&hYâªK˜ÑpÐËtÌ ;‰—¶í½{áž ¾/lß’àp¦wŒáSå>‚W&ïšfLuÀ`¦ÏDp™™ã*nøâWš€R^ðRlâU`[±>ü¡è©ž´»¥OØ+±6´QO‰¡À7eq¿*RIAÿ"F—+ˆÀˆ±-!ªÃ@“JƒU¤š£0û³FʨÑÅYZ^ ÓÚ\(âÏÄ£kD‡‹ÈúÍ(m%­à Ô:‹6Çî´x<¦‘é&k:j¨cwØp?ëî°Òçô鈗$I‡%íÒ§|\€d•]g¬V…åßÙµJ¤ƒ“ÁððõÞ·? _½èôð>zø0(Ô€}½ùþ‹I#à[(íK¤ ç‘´"ú ˜œl4Šs CÓSÕøˆ“5Z„²Âܯ~*ªÀ ‰4C£¯ü"™“¹µR Ž !1W5zÔs + ª] ›ªQÆS¬…Ó‘*ƒQÉc •cãj±(Ÿê˜˜(ox|­ú¬Â© $BdÂ`«!¯7ÞÏöÑÏʾ*D׫vÈl˜ Þ“1§übÞðdÃø ;ÝŽiázôÊ73y|Ùa '®¬Ï> Æ¿†Ž–Ÿ¨ÖUPΑ²–âÕB¢€Ü†B'·p£@åñÕÊMaô:¬_]$$‹ \óÇó¤0Ã^å&µGÈáGÍ:÷ „–Ÿ9ÄóèWE\ì">½1(뿪/£ÿKñwB3bB/—ÿF®|˜7ûŠ“ (a´ax¿~iÀ3ø*¼²¤|®oÙÜm2î¾¾R‘dJ÷¦ÎÖ~.B̆½‚°E›Êü sl.hí·Y¿¸ª“ È™†M¶4¯ù†ÚùŠ3äh%\7ú¶¡ïPF÷žjt·© MÀMæÉbÈ­ '«Ù¨á/±£ ,ý…ñL‚YŠO¾’‹d ÕEïq6^øBŠOf|Q]ŒÑ9ñÿwÿ~¯~A»‰¾Éÿ ÏèÞþgÃüŸî5¾u€ƒ…aDRÆ6™©3dêÒŒ3¡bE=¬_HågœÙ‡QÚjõÏfdÑSnã®ýªš¾ÿ}ý<"€EDZd½W/¿E 5+ÏçÓk„GCYKúYìr4᳟#òë:IçõÒ¼+c3i”D\4©-ý¹Û:Sãh5x›ÎÉ“'$ã9y;K@pÄbB&;~íqGÖXÚ-œ±çL‹¬ñG5åÇ-ý™˜uÙ½y‚Øe~¯b91•“I Ø4ëDM‹ dRÃÉ.8Î ¾Ep§^çÐ׌å½PùË KÙ’c²Ù©©åðö“iÂÑþ—â tÅ!èèéMl^WÌŽx؃>²,Ž<)®|ÌiQ ëZ¥@Q3¶~Íjq!ˆë¦Ö}(4Ï?qÕþz—y{#VE±³//€Î²Dzíƒ=¶F{|–V8٠ϣÿÃûÁc™…}DÛó‚‡ * Ç´G0 .xbOŠ4_¾6AÕVrwׯŃŽb‚™¹»Ÿópâáá'p'„°»â“ÿR÷Ì$}¸ÂèIÆ9Â<‡6#ØôÚ)3S ¸Úè3É5hô”œÎ&ùrÓæ¾/Á%ËÀÌÄYvãù:»ÖN/Ñṟ½ð_v¿}êTgòÖÐ(-úLÂycºŸåøûawðý ´@>ü^M‹|mŠœ“CZu)¶É˺Œè`ãÙyÅÊ »™#ÇEø¸y‰²©Ï]_ÃF!g«tÊbq¥ ¢¨Ä¯!b"&–‹EÞבŒÀ!IËÎRòÚc´x:K&(=yàSGR'x‡SÍÆè»îV DÃC‘JóÝÎA´zŸJBÒe+ËئâÁ!¹ñБÃ#•Ü9΢9ë<ÉÅ9xĹ¡­RŠòH5íKçÙ9ä"¡¢‰>ñÖ]~wËÅ^•N åmæ$&‰Öœ”-VIu£‚ŠXö‚¾¿áêÚÜ%â±ÿ²ïMÄ¢¹RÞV_ÉŸ÷²!¤VÃX×<¯jÕEpw®lØüJ’TÖü·e]ª¼4õnvŠªd=!²B³ûz¶d=Kâe uíBe !UJ2¯%SÅŠZÔÍÇ»LÁ»4ÆT2*®Œ£Ñ…†Ÿ?¯°Þš¥½gãzÂ.G› õ~_E[¼+•£e•iÀÐmYgÙùʻԮˆÀäq§Ò/×®:¢=!©ˆî;Áû!%™%ž÷Úó¨iäÕtvM›{¿gGf¤ A{›Lfž¼â¶ÄŽ†_•ÀÏæ–å9²¾±’²ìû‡Üì¯UkïÊê_ÞfÁáŠNÒ¡½w[ÁeW'ÉoU˜mIYÌ~‰X+>ÔÒô%Mž]k ›ã'˜ w‘ìc`Åb ­¤Ô#Ø,Gì)¨ÞÉE\ï Ukò†%:©KòZ锂mG«i¼Ô´|¾·Z +˜¤*ËŒûÜrÕÌ‘„iWLÃB;0•‚™gco8¦‚Q¶@„Âl6öÊ‹ÐmŒ.ñÕqæL>€I-kÖiÞ$kŒVªp耤ù`T…—¡£$gnz4WÆUSŠPá¤=rðaÌÇå—æ48DÓîN)#‘PG*bŠ¼å¼ìœJ.©ÁÞd³C]³ÀcÎ*ÊtœŒçsqƒ­Ì•zçâè6ŽÁÊmîªú,º Gðq×^å ôIÑ\Ô° Z¼ã”H­¿>‚”’Á]Q¥ o…öŸ©qϾ…t’ŠÙ}ô뾈Àf4¾rznÏŸ ~¾0ëf™æ¾þÍ@Qß+ËöÞÙœ^JJ/ón}ŒjE³n‹Ú­[§ö1áY¡û_Ï#•¹k…{cî'êÖ‹ÃÞ[f–¢¨1ì†L(àópq ¹½—‚ ‘h¨T³\Ę©(Y+ØK®—vJä5Ô;23ã›a¾&lÌq7]ä#Ëü­S–vb¼[¢¿LWh úËtŒLØð‹IqtEš…‰ßõ4ÞŒø›òü鮬šØ Ÿ­Ñ±—Å6ì=ÑjŠÄQÁˆ¬ºJÁÏ}˜‚ ‘ï+Ÿ¹¾¬–÷Mà+\¶ÝÞªß?fWÛKdöй×à/Ó±žcgn¦=Zãîš^·‰ êâ†l¸Ò  Ì\ÎþÌqü7ì¯í¡@êüî1àèÛúÅ“'kâ¿Ÿ<þbã¿wàÿŸl>}Bñß_l=þ#þû?ñs $T˜£áM÷¶‰C…²X"°ƒÆÙUnÑDö~8 ˆú¤Ÿ%‹Å,£H³|}å<·¸°Û]Î @¤Ð¥œ!*=Š}çoË/þœfùé8Yq0á©Ä5„Y)€Ã¿ØDÎÉ›p°E¶N6h(^œr·%7ˆ á¨vÉwü™EROy·E‹Ç.ïðÝŠDe`»(Þ å*w$µ†×UŽV‚QÅ2ÎáÉñ‡•t¹ËˆÔ¼ ¨Œ¢iúX§ÄØaÂäiy!L °T°ú!å, ´rËÌøy3£í'O•¹gßa_³<°IƒbÚ@Úûy…ΟKr¨ç·šœ§…ÈSÓÔàœ3D™íCš60O~^% Rd£ÎtÊÕÝ—×Ȧh‡ëB|oïí£îž/ét6t0üì>Ovc¿Ä½dNW!Í| ô‚0Z^“Ãny°W<°ÆQ¾!ï½d±dz5#1Ú~¡Ç"eqÖ:Ï&ö³&‹Œ¤_ú…ôˆ>«˜e<Dµ¢WíãýÃŽ`{e,#ý®àŒc¨üئt×Ћè&5A]ì7‚éJ~Qò•ßÂóA_ùˆgçèjä+ °½Æ»Œ\s>>Èy¬ršÞ ê/ ]Á’O#:ö¤‰ ñõsæ\@y^ºßx^¢ X–#ÃÙ2!Ü¿³käݺHÚ—ÝãnÿUg?ÚB)ƒæöÊ¡¦K—žÍÑ—&Ù¶ÍÇ„Ë°¤áË1f:¥…Êç×]ë!G¼r;>ðï*‚ÃŒtž% v~¢|¸¼ï\U¸HŒâ<`,lÓÓŽø¸Ì{z:,WÞœ¬9–AVŽ’¬é©º¹Óº,ȪþhèÉO¶$2ažuõ`ÞÞ³ç-†±"ñ ÆŸ’ºÉW«a|‘“5Ù‹¥ñ…ʲf²˜q{° Û§]ÊŒ‡n]ÃI¼šËLÈ9’ ;ßïuN1׋Zàúуäýˆ<6v ÉS V$ÒÅîO§G@k,;cyÁñÇËjAôaD$q-bÔÆò"øP¡UÈS'WòKNQÈÀ*Ng$=ÐR®ø.¦-Ï9˜»º :°»ë‰%~ ÉÀ|‘$˜þ(eõ0û ™Gˆ««GÞéŽ(îôr>¥a5©xt”ŽYžM%a¼kWÃX®?Aá ýø:ç‹M<ý%”Ä! Ä&ëØ:Ä»%0ùýVÃ_XZT.„0DºgfÙŒüI #ÄtÈøBH½(gƒf‚‹ŒFpØ2”%‘#¯!Cƒ0LoºH?Aœ˜™‚¿hÀ<Î>GåæFôê… æµ8œ¨6èì †ßí¿ KŒª.=’^Õ±¯g¼×‘ýHæØ“—éŽG½úDÂY˜Š2ò'nDÄä N€;Ô?öÆè;!Ñ6Ʀ‚÷©×‘!i|Ћô§_5Í-2ÎcxÎÇ*£Š2¶ètq#¿ŠW … eÔ Y3Bô\ñ…ü9[-ÓÁøÞðû†yßèËgtlÑãÖ&b ÌÜ+„2¶ŒKÅ€~«ö8´ ÿΠ7>UB·ÅËõ ÷D×Öé4$3QÀ–^ŒÊÊa4­,¢ÄlQ-úY Sæ£bËSIŸ¡ú'˜¶p*)ßm]œÍÕ YU]8ï „‚@iˆ€ašAerõÈ*|ù„jä¤$0³K¤y+8ä¯L/–«|3½nVŽAÈ6P1„Ä^ ÚpÆk®–3´µå”âZ³¸¤$0(¬uŽyßT5¨Û×,{W¦ž‚ªb¥Miß‹lÉN¾Dj©ª| —p´ád <Š# ¹5… ‹OJÒŠ©yc‹î†éRd\`Wªú/ì<F5CX<þž™«Èxáé©Ò÷Wó)!¼"ŠU?H–{ìŽ߈0B½zJüG̶Ñ7µÒK[ƒË·Í<÷ƒ2Ñb’i>Ý\óûþëÓÃî^{ÐöÛGa{oÍÚ¤fæÕC/zŽÝ9„¿;ø'¹[-¾˜#¼¿¿ŠÔøë«À"rà sE0ÔÉØûâˆ,›ÏIÔIa(Ï8ô‡H…pìŒÈ†TŒy; )•a׬”ΑIÏeno‘8,-csïú^iž{†¬½¤QqúÆÙXd(ú<…ÌÔýGà3GQŒ4¹bdEËcC÷ÚkV\¢¯ã°˜À£<ôË»±;vSÛع"+Áó9 1ÜDc‹ka>Yw]"N$[`‚­«8• dGàIøM€ôÔ\G ´2í¡„…Ýc®„a€Ñmò #Uð’sŒe«@ Cñi’ÌëÛìQ(6u;%è-þR÷Xò©$Ü–j'%g¨²t§E<ºƒ‹^±‹—œ0¶8㎖r*1.š¯áðàøõÞpxo-c˜2ü*Š•\ð<;Xg³}ry¯½‰À~ç| ä£"!—Ù H°™5.åÀvv zâºlLÁNÀýpuž%ÇÜ# îMoÚÀyÀr—LØ$üLË‹BÀç–1lˆµÀûq>R1Æ‹7ð(3íã©ßø†Iª3ÏÞ‰å¤C¶ñM@»Ä¸N/RÑþxÀàà.’¯‚+hÓàü*‚U=²&è»HêLê]3™®´ª÷í"Ãd+—ž¢—§ÿì3}Zÿ¤šÑÆ « Ê„þ›®{®j´¼ t€Ën&̺Ȕ³Œ"ÈÇ]J8Ê ý†\]ÆÙX8{5Ì÷Z9™7íÞqý>¥{dÈ%æ$u*ï±ü±! oØçÀݨj'Ú?L}XfIn8xº¡PÙyŠÑN9¥^ÅÃßı¦ÊÝ/=ÏŸ±.Ñét4«I¼ªf@· ½Æ|‚¥4±¨XïueÆtF7†""t­ªÖ<ŽJ•ÆÚéy=›C<ú³QÍI… ›ŽïÕ0„°ºü¿sïVìáÐSqýu÷i%iñFtd¤” v@B„ö RÿI•BJEI"yË#0j¢0EN0xz¸K¸@€!äî3ËJqÅ¿*Åâ9É‚«œ!AßÙZ°0[¦ ’ŠÌ–Wm(ó/²å(RV‡ƒÌÀ[`)ŒfXÂMbWQ*Ko>d¿–0Bt«²FBV¿ŠG•íÆ̺°ÁòõYG»\å eD?(¶¶ØÃ-ÅsÚeÁ§"ÕÎÈešZ#œÑ…îõºA‡ýÎê9½Bt”?äÚ†Ä; [S¸´n`^…@ÜóOMCùõB;%‡|W°Þ¸ÏëRÒJ3ôʧŠ¿\èÜ{06Ô°õ.¸þ™¯—) ƒ#¼ÜK`ýŽñ{â©uZ÷jŸ}vëë‚;¢·Ûë¸]‚ò:ÛZÄø@qR(Ô1 Š ‹ÕŒrå¼…•O¦¬èEí¹0éA¥~ †¢³,-rKf^~kS’ HÊÊFè5Èxfí n̪óÚ=Æ ‡”Ñ…e™\½ŽcGXÚŽùuèS¶2²‚};IÉî£Å‚é@üçen|“5m#&˜Á¬6‹8¿ðîÎÄD/Yæx NÍÁa%d6“ ¡KÇN§r¸¾«©(¬lÜð"ã#eÚÃ,‘D'ËŽ<ºq%šŸiɆ¹0yän¢þ {x8lÃáþ®cÝoòÙð¢9oÅüˆ6 ;‘”Á´?xä‚Ž£Ê3gv(›¥¡É·yhЇÕaד¨É%Y¡K!âP8 ¬@}BþÉ (Š¯~¹†mpL9}T3ª¶û® ÓT()€~ ; â¢}äÑÂîV¯ŒùÔ4»fÍÔÄêh~õë x˜Àmü‘ðW{ ¯Äoº >š]\sùÞÐFtÖMß]©°¿è{”.õÃ\–Û To·­°ì]^âŠÛÏ œÊ7 ú{Ãï:=ÚJóE|~GWñoº$šùêñ[OŽep¡ ËÇ:»³l¹Ì.ÿ²ÚÕKùÜ.¥Lv+Ö…}WÈÑ,äY!ˆÕxJ¯Küõn ‰­°®¨½åÅæø]ºÀ”SÿÏ ÃD8=¥±‹®HGÖw?fd°Úë©äfCPkL×é¶ãT Lo14qÊn³Oa+Š¶4•¼ãž¨ogIg(Áe,ùvcX<¤Ìes …:Å£÷X2Hªõܧ!ÎWYߺœ&|M °èó~Ðõ@¥]º¦}³T½¸Çð>øå^M¢-h—U?êô~¾h÷»{äƒß;jwŒvxoסÂÓgø¼©ÁÊä€ÚvByà°qª9zN´^ÀÎjÇ ëGïƒ åcàÚšü=j‰O LÇiû 3D-á`ì; ´5PüYÕg¯Û0—TFnøKDvd ~z=þ“u&!@ñáebIš#øËxuyymܘO×N*òJCrˆùE·!ôKu+‹ê!B×a0íÁgžŽ„w‡)U K¸_ò¹… .SQ3sæ/úŠ º½“ãAçûñ(.¯:þȃÖÿ÷¥ ´É÷Côn9èôþ¥ã{'‡¾“æ–Ï)–6—Ÿ•eNa›Q¬šæÏÍô%ùÙ3äålåXÒ7¼\€áGK4¾Æ–l9êQ&)[5»N¡´ð’É%×ù<»v‚ jŸGÙ|™‚pmÐ'údÀŸ<¶U žÐ³§ôïøo¿XEŸªèS}ª¢Tѧ*úTEŸª<+öâK|ü- ä[®îÙú)Â×ë–îôtÏÌÑÁ|±ÙŒàßú÷1ýû:çß?¥g_пÏèß/mçàoXPüw‹þݦýøð¯'ôì)ýûýû¬XÅ—øx›*Ú¦Š¶·mÛ;ôì1ýKÕm?-T±M5o?£©ºM·£ð¯­õ†=XwÖO_µÃ]ÅûiÀÿÊö¶„l“¦ÙÅõ”Ò4Û#زMšn{¼œªhSáp{› ·¹ýgôï—¥½-càAlq-ËØXÀ@™Ÿ\*î£ËyŠ¼Ójáò‘9ϱû¾°ÕÕ;Íq.Eß dDùþ´VJâ =þ湩ø‹Ae*Ê9Š]âÔêÈ@U¶äÇlX6µ‰|Ê"‚^¥Œ. RkÞ$]ê„(x€ÖàåóÆîMýÔqÞØ]‹#|‰rGN—¼'á _¤¶ZÍ0_±Šz­ûap"® J+Ò ÎcKjŽ¦$µ}0Íܯ©ZX„i5‚L{3½u‘TƒÙkyq$?®JÖ¼%|‰Ý³KDÑí– ¡•–‘áÓnÝ$ô²R‹b®sÚrÑ7’Ï›þøÚÁAh…ÃÊ]œ0ÿ ³OÍ7ž‰ Ú q݇Ù/ÌT&T:a¶«¾MüøkSCJÒ¬=±èT Ö(<ñœb¶MTÕþáaC³Æ)ãé¬nÖ+œ {ˆvÚÕð GªpÑ.ñ¶8íwö^ƒP÷ð=ôº/^:ýh:çoÚKIóÂ(}ÎBÙøªóÐé± 5°ÿÈ°?h÷ÃÞÉëA÷¸Uôqà"JñÃÓïNºûðî4F>—œQµJêú £ÕŠ¯Ú\…½H‡¨W‚ÁTõ8èf¡?•¦0ü úVê•ïMC «‚VZ>›4PÖ¯I–L\D±£»eC¹5#&² %k’õõvO±Á_¢>Ä)dˆ„¢³µŠˆ#é³;‹‰æ~‘¥¨\6Ù­f±æ80X'ãæ‡S£>/’ì0gB†:êR\¢ØþïÞ‘2,ÿEÄnƒrãšy£ ¾\ž¤†ÀlI^õh<4üï9Á¼ì±#–E«ÚÔeìXÈ“vÉQA µKÓ?ÔqC\ÂájfŒìuQ™7æ;€æ ôò˜LX“gÓ QÈ02SÕ›T<Áࢺ¦Øz›vz½“Þðød0쟼>x5d™¹Ëå¨ólöõÉãødÈ™;Ø,ë†^0Ï Ë¿~D›œ>rû \=\ÓÛŽ,?Ú iÏEð6_¦2ö‹€àXê§ý²Ž`w:Œ²eùÛEb€cJ¯õàaþ³ë@¹MÔPÃ#Ƥñ‘ 6–§„&CN¤÷@4±nâêoÈRM89¥cËzf( {7^¡êÆUyÄs Á8 ÁnÒ„ìw-FÇ·)ú¨gˆ¸œw&V6â~1n4úš ƒ<‰8CÄWÂn«ó´«ÐøUUé¯ð'\z±¶j˜eô¯¤ú Õa½üªt¢k[\ÓŠÝVð²3xk]còI]Ÿ‡GÝãƒ7;ÛÃ!¿q/Ì÷iµíÏ¥‹DõEõª{ tÞGÝLïL3™§‹ä]øòðôMЃã³w9>„í:ÆzÖ¿È®à)^i&dWïµà Ù÷U·Ö'Ÿ¾Igx×+ºÛ\×UñÙ/öµô3<°$N:E<£7ÅQ(™rkú¶l[Ó–x“ìVÝh»¦ N­ìϼ¿ŽŒ¸¦”ØÜgîhÒ)a”.myoW¥¸%¡†7A“·”–¦}Æä^~æúØ0—­«øqëW3Í›8]¾Ì}J¤p¨)îëfÔ=ÆÐÝA‡`ÑÂ~ø™[üÔz;»Á5FÇÙ^ö b\eKw8—ÓÂMPOpØ5MÂÝw±ì®Òz »¨^~Õˆü= ` ŽHN‚A³åAñhÜ ¿6“¸ƒ &he¹?º¡Lõžøu]ûm³`&8¯2‡xS¸ðl …~q;¦Ê«ÌJˆ¥¨ÿu&ª(*WåL.z*4K‹|#Ä®œ›è\ÓöT^¿V¸ 5e÷ 4ØÉ9L¾þ À¨hø„ôÚ!Q¸A¥McÎw)Ð\µZï›zUä|Sª{SøãE½¶ÃC%wÞ w™P´?-Kð†pŒ.vi§~_Jn¾ÿËû:þÓ@Ž;ǃîe‹õJ5>Ha8X³rE›á§Deœ¿[N¡Ìd`»wD¶&Tó‘ü§’|BÉ=¡EôªvŽ¿¸%&K7à šÊß= ÞY’à­M8ßÈʒ¯»”Ö³Dð;|2ß â8é/zôÚÒn"XÙ±‡™cÔR|)Á[ÕÝè7,¸kÆ¡O(‡àiVnÜ.²Ov ±,8×_’^ó·î Š%§Ä.ä9&&¹ï)#~z¬ç~ƾö diŸ¸FEBd? FJâ<µ ¬¹ŽVy‹‚•"$%^]PÌI$ߣÝ3Gš¿0‡ú';ÌÄÌ€«¤OÊm‰ÿ­RµÜLzšžì¬£eš†(ÿ}‚µ‘YÈ!þ*ÍÉãNž…)sC%ÑåeÌ &®­äÏÝ4=[Ä‹k﵈.8%zÆg sàóôvɾ4m Mãà$õ<Õ+®Þi`Ž™U¨_¥i]1Õnêß»æCX<Š¼rwƒú̹Ml™ódÉW ¥X¤ÀUåéÆ7zã4îÕ “ªàÙƒ¡"¥xw[¤àÃø!Ôb»~¿}†f ŒÉæSâ܇YˆÈÒˆ€ TRC9sæ E<EX)‰qÝ<+`ñ/¸Ð··s?p2ež*3Y’¤Å½%ãf$+a «O¤ÝRÆã€T²\Ÿ«c= OÈ*T3+†»øÀ]P¾3¨cp³·Zt=T-»‹È'âu²z‰sèN( ³Ã­¹ ôtȳMvcï¯RÅ3`©ŒñÐM€/i’ ÷a"u)©¤Vá8[åkˆ’‚¼TpÑ CÞ‚FÜ6]2IN†2Ó#ð)àIžì}«T¹dâpƒf8¾¤8õ/+s( ©`Ó¾"‘`bZ'DãÕ‚Üσ£çø0åpBVß¼>Ö®Ë`Uc©Üõ ™4:2é $R-·]Ø®…‹U*·«B½¥õ»Ö@„;ú ð‘G^‹\ŽÏs“‚1Àà¡mÕ‡×zÔ:àyäü^ªMÕƒçë wа£à@£1½¢Ýl^ßü@n¯òä2™S0%^3Y¥9½»ßuDôfœ¿{¿”ˆN›û»á÷ÉïD¿$ jn:Uoüã·g™Âσ´Så›ú®M¾¨—2»¹¤™ @>ÇÕâ@Œ¼»ó 'I‘ج™×efÅ¥&%Ö"!ÊÇ䈽pÇVà`Iœ3 1WMa†á1¢Î ÿiš?³<À_ŠQ%Tˆ>¥.Úd*a8rÙ'÷ªùå¢g+ŠPzs––Í~R%ÛISEXÉÅH?ƒ"žG ¹ÃNº±ž ì–\Nó`˜7HÊ~sÕ`¡­ÏÜN±!N7ySù‚CIqŠ~]#þ9Sr¨#wˆ| 3Á1nLÎOW„[£€6¼óëH`bírNTÄÀÓl†ä¶w=†3’¯Î/® —h6™¾€8êÝ X°iûÞ‹““CU7ŠEÛh±`3zM.(PoŽl¢‚T°Þ¸9ˆÞ óÔù#žtr¦…60lÐ* ËÿUA·ŒÂÜËl1J¢L›ãžhD,¾Y[Ó]‚—’õˆ»EÊ(4è3²uƒ~{ƒŸTk »ªÌ_üJ¡i­+J&¤‰WÇì¹Tž%P]6]p«U‚ÊX)HŽâù@¹Þ™WÔ¨‹d«t>ê.d·|Ø?$öáÃT½ÒlàáqÒ·\çƒÃáµ–Õ#Ü]kïëõ3÷«¿XJµÆ7>]‘ƒ¤­0¡™¸:«ê ™?Çœñ¿/Óy>ÌÏSX“ÑÌÁ¼õ{B]c¨ÍSÂû®ÂÿÞÜÞy ϾxúÅöã-xÿÅŸàåÛ_üÿýŸøñÞùuþd3 üˆÏ>óK|¨ª° ª‡ÉS‰¯ 1ºãÕ½X±õ¯Ð%\ãK8} EÃÌaNǘèåjJ5TS7þ±i1ËU ăÐq¦—!áˆrl™`TAc¨Ìž¦¥Á=Ç^¢0Ímg p )fÏdct“ œwÁ­æ“U‘<‹/å ¦‘SN< âV&R“e¦ï¨Cðâ°‡ÉFJÎÂpëÄÄfÀÄÀÏŸ7ßïâ/ÿˆ§J‘4ðƒ‰T+cwˆy:âݺ$cËG˜Ÿä<ÄØL!†0\Ho WÈž†©,4$[¡Œ{í£Nÿ¿"ÂmwO{í“—/õÝFÿ¿zƒ ïÔ¾®o? /˜’wúƒÎ~]GÊ›úi3ZÄüU‹ðÛ7ß?¢ÐäFjŸRüÛâZ:Cv†ÖG± XÚ{nþjËÍæùœþîw¯O‡§ßחϸþÓAoØýâu-Ÿ7¥qã¤ß?},dß?¨ÓØ<(ö¿QPðõÛßuàcþ”Ûƒ¾a-â&M]=Ÿ7T®«qï ûÝ#ä‘ÝÃö‹.úŒbéšß!®x´Sì€y·%8öÑåGÏʾ,=ÚÞ,?Ú*?Ú.?Ú)=ÚÙôsX5/¸=Ø+'½Ž]‰àQ8j\Óöþ~°¦txjP?ï*„-7Çïk¦ê¾ÿùS8sÿžÛÿÖûÿñÓ§Oáþ¼óôÉ77éþß|òäûÿ?ñC§ý-UÝlnÞ³o5·‚¿·›ÛÁß;ÍàïÇÍÇÁßOšO‚¿Ÿ6ŸÑü"øûYóYð÷—Í/Ãþl6· =„.†}ÜÚnn…½ÜÚin…ýÜzÜÜ {ºõ¤¹öuëis+ìíÖÍ­°¿[Ïš[a·¾ln…}ÞÞln‡}ÞÞjnæ&6ìóöNs;ìóöãævØçí'Íí°ÏÛO›ÛaŸ·¿hn‡}Þ~ÖÜû¼ýes;ìóÎfs'ìóÎVsgKjYÖ$úô£Ù®ô|šÇÓ uk”£»q8?žö~âO g ÚÊÅn­Ð>ûq¿ÿÓ=û€åÚÆ…¥›ÑàdïÇåhó§f´Yî[«\I¾\‘p iã)Æ׳÷©ªEBð–ÌÃL¦ úz³\%㜦³·n¥Ê(Šä¬¾ü ë¤çÙ"%†Ct·áÕf„M]º5Yð|Á”PÂŃŸƬÁ= ¶R8EµnílÀÞø­U?ƪk%O~Jžþ•|ñ{Tòì÷¨äËß¡’íÍߣ’­ß£’íߣ’ߣ’ßcÇnÿ;vû÷رۿǎÝþ=vìöï±cw~»ó±;–åö2…¾\*y§?ãT>Û‚sÚiçla.¹Ï®—IuÙÿûEæÿãéü"öìÿ÷«nãÿ7cþ¿í§¿øâé>ßz¼µóGþ¿ÿÈO­…êQòî©Ta•’û‹®è±²Žë¢—ˆŒ…/[ ¹£Út|>ǯþ|>nªþçí/ø0¦*þŒÁçëFí@-_þÌØá·øеFj£(‚³úXGrpè-C®p…p¹Kdþ3°Yè±rNp/d±üÀVøýykãÏÏj+ÑP74õ‘ ýcÞ"õö¼¥¦/7þ¼õ„ô<ªá ?®SO7þ¼½Usù?ªkR×ö6Ôõ; qûËZ wOzßĹÜåGÿȱÚCæ*Ø¥w¼¡Ýv~ ûÖmC£û²Qõtk³úñVõãíêÇ;ÕW?~Â1çžlnüy²U›L³˜\º,‰OÄ7Ÿ,ÊvÊäËßgO¶°c°Ì¿yßQëëœ.3ÌzBÄ€oÏò ìžËdy‘1::)ú/âÅø*^H’q¨àEºŒ¶Ðƒ‹HcU/»ßG( Ïr“vLŒy4Yf)ûû×b$RµmØJ›÷jg³¤ög R^ #ì`؆œ‡Ô-ϽO×nKª¶VÜ–µò¦”=Y³[òžU"O;Éþ½Søûqáï'…¿Ÿþþ¢ð÷³Âß_b¦ã21 ¿£û‹„IòŸ‹hðªà ©öøžŸÂ¯>hó%Íà3jGïϵ?ã aþ¯›Ø?´åÿë~˜ÿÏçÀþwñÿ;;[›¨ÿ®{#ÿÿxûþÿ?ñóI­Úîí©-x§µiräù< Ž 2^c~ï“Zœ_"°&æŠ&«¹Æ ¢I?sùâ(O0TdØ[Ï¡ÜÀ¦%¬¼xû«ÙI?zÂI?ùÇ-ø¾í’ q¹åߥ$f¼Jĉ€NC±ä}|‰‘y-$myrÕî£`sþ"£%K!:7LgrËÛ¨ÁÊo¿*ˆ56]úpˆ‚ÕÓÇ<ÿ¯™ÇtÖÞ}‰‚ fºø æ­ígMø®÷)ÔvE$›ÐÏLjmo>þâ!}˜mzÂíè 8ZDb6–qmóýPñO¢þ`øòðuÿ: ퟼éSK bØÆô^m–ÍGQ±ºV帇ðýW8©^ùEs}Á5Ó~Ï® z†/¤L:›%‹{U?xÆ‘©çño×j0A¨dÇiÇc7Ç8Ã;ð‘ßòùó4Î7žÉ7ÙVsƒ>ÚúrW >;ʨ…8£”iñ5†Æ¡ßÇ'¼€¬æ<—¤1œÙr_t•g$ÇØ¢‹¿ç¶ >£ éóù5Ã8·îM³lþò4œo6„¾ÿ„EÔI‹ô Ã€Õ ï`l[À„ž¯šóeô—÷£Qs§ã8Ð3a}MÓËtوγeF¯îyfš§`§i¦hãyô,ª“i|[6d_áç5rÌ€o5#_¨&û¹rCû=[Z3><ázáR¦‹Ú_ηðóaNη~â9 "¸„›ïŸnÞ²|·-ÞmKw÷…ƒ>¹…sëVZ¼š]¼­ÙM‹V£ÕªÝqµx¥j·¯”’Šu´¢tD™Tðöñ£ôYsmáJjä¢fÿÿ6õ#˜ÿ©õÑù¨uñû·q#ÿ·µýô‹Í/þ´µùøÉΓ/v¾x¼àÖÎÎæüßäÎ1Æ ìeóël}ùìYÿýÁò¿µ¢83ͨ=2î'—0a©ú¨e¾Ü‚{ñË'hàÿ>YdïáƒfÛ”¬åmèÆÏ}"ÔV±ñ/Ÿb_býtšKí½HGù]k Â¯’«i²\nœ͈cÎ=»^_eü|ÕíGGíA§×mFðûiïä»î~g?j÷áÏfô¦;xµ_ôO_:‡?DÇ'}Úk~ˆ:ߟö:ý~gk:éEÝ£ÓÃng[<þ!zÝï`…íAôÃÉë^tòæ8êuûßj˧˜m/ÏèŠ"?` ç”ІÂ(žõÎ%çê|‘ÁëK,‹¬3¦âž¯ŠÕŒ(OQJ¹<1 ò,ã´~)&'B/ ù1AVpšl¬5MòV¡Ðêe´þZÂÒÇ IðxœæŒÆ_ Ó-½Ç4<Üç&VvÇnp”i,ï"—RTáÕ±*×Åñ »ÃWçºGnpMÌ"Q6ÇÙÒ&Edæ³,QØh¶ºlÿtÐÛ-”Ü;9î8FQ3›¬¯ºÞ*Àß*Æg…Œ3fXT™8‡Ýß»O èäkŸR˜cÚëŒñLiWeÓ9Ügÿš:—+_..öÄDƹvÏ EÀc° ÆÇåRé,Cvž¨VFûH*!ÌÂ<¹L7¹8PSLOM‰ì Há,“ø:œ»®PÞèxJF Á~SúÄÝ’‡§}Üb6ÆÛÈEæE 9ÒÆaÊ&CÍ]qæÚ 0ºÈ’¸H  øÑÇP6Y8’´j))cÂs´Ätœ,tþ8%7ÔD‘Fw_÷š~¸7÷qøoz'ÇEôÄ7ÝcrWÐ2\7%ƒ„%Ý5ès³â»,ðÝcL€töô±€¡,Mt@é;À`8ªüÁ0I”5™·¢öÌä×YÅHx‰ýˆA|žÐ†È/0óøœòZ"›OáCB_ßpV]U¤£BÚ˜Sþ÷e>n]˜lsî‚kúŠ“¶.Z5DБSX$§ªi)¿“á÷(¡É0?8ã º(Þ‘D"ž[h)Iu£á,ÛEœ!!xŽØ't¯(•fNŒ’ HŽ`1Œï#„ÁáàÐ՜Ӓhk¦/Pÿ6¥°LFÖÑG­C †=µ…-è[ãœN؃[PâEˆC­ùÏ1ål:Jñ-ÐW‡ŒC•NiÔ¾±¢(ÜC¸ {ßÒ‚rIŠF_™z£Îì›QÓ1Æ6bµØ Ø'ß`"¥laJØÊ?á«ÛóÇŸ¶Ì¼Nì\IÕÍÈ\Á¦?~mœZƒÝS: ªY§M_›Æègì XÀt!Y™å#»zÞ¬Ý@¸ëà—,»Nf “Xèz åCŒs’•Œ)ýuâÍE2ã|•|$˜Ë!»ª$ùÂ#ÜL¤éºÅèj›¨&áXI3/¶_õ’¼ëHR ñÄcö0ÿùB“dû„™º¨Eo›D%0vM3,S~kÌô›Ž}õ* ¤Ü˜Ô2ÍV9óy©i„ÌAb~ȵ\84@‘ÇÃ)†òçû­p]+ZåóxqTJ·Ó¼Àµ RE¨3Qxî^i¼Hójõ,3qË‚‚ìŸ R†csär²q/HsŽÔíe÷xxØi¿SIÐIÓ•f‹¡ÁèHÛ ÊúÀtÁ¤VRÊá3ß3Ü £ì|F$†EËÝ>ò›î¨×¬YLˆzH’‚0ñV°ì°Ë£­Yj¤„’\õº'½áé ýÚj{ͬæþÉñ#‘†/~t€ÿvŽ÷#'eŠ3ÒOäÛãÉ„< ®.J³‡Í¥›Â yê)´Œ0s#l:´1‘S‰îp73Ë÷ËX¦Q'ÂpôXÅÞÿ[­ê}ûó*M–Dé÷9÷#gÉËA¾ÊQe:_aç R¬ËxIK›NJ„-C«QÎ( av,_›/ÄÒ ]y—Mß‘¬f¯•ð\‚HÜÁŠé3NˆŠÖºIbÉ0› Ç Ô9Þõäb–Í@`Éš‘^rÆQ"ÚŒ›s5C&ÂÍ| W"É“÷|sq¨>& ör* ‚Âw*]+mIÙ ¾ûž·»ÿÕž÷;GmØot<Í®ó®„NWÜ Õsóø]¬ý¥#¤SCA|pQ{ÃÄ=AÁú=>(’ÅœPò¼-p‹7ó\סúÌ´¤´ËQnŽ'Lƒ‘ƒEÙXfólšc,þôzÃ4³Ô¦ít £÷yRõ´[ÊhçøoíïÚC™SNÛ(ÄÎÌ õvï,†¨i˜¤ÉÂ^›ø¡¿$»´úÐ/Á•¿=ñÔ—§ŒmkL4›ëÂÌv™½ù2<s&~‚‚Ì=Â5G©¡Ø©<§´ ™\Ïy¶VOîÂ`ºíeL;æ–©i<ªÎ‚ç Ò™;DënÑq6[§KôˆÀŸ?ÿnRJÅGÓJsÁ¸s’~ž¶¶ã­‡MÛ3ä¯àý"%ž×œÒs©B²È熗{óG¢Mpˆd ! KÄ$ d¿qº\ )ͪÈg$iö/¶ÕÎê"¦-«ù8¸°™B¿âÙ8X?IÇë{lÉû~J 2»Èö“ŸC\éš=ÀãŸpãÜÄBI3Ϙ’M¦Ó Ãq\cdŽ*²#Òk®¹uЯ z #b½ØJ6(Ô±¤ÀpÒæP ©€oxlt`EÜAQ_\ª'%@W1WLôÝ•X{ä\à`¹mõuô¤µ©%Q¼^¦—J¾=p¾“*d²†‘ø&˜Ï;½$ŸAÂ3pQ¯E_óÇrØ– k]1yýÙNÏ vHͬJÎkN—nþ^‡YbW”:¶ Í‰Uä*jc^+0úÆ&´ž3àñsÖÚ^XÂ$¹"RÃ@‘4GÉûd´Zê-ÄÇ»oZ}/¯€™Äv ;Õ¬ÈD¦gÈS,¯€­,E°ûñÌ0dë$üž“ßNŽ†_½,ÔJd›x¹å"EhTjI¾zÂM¸:Ce', ÌŸÎ—WL§³ ÜÚ¸Ã"¼Y`Œßá-—kItL¥.β«°²QDˆ± ‰H/ìÜì…q£‚;M‚#`Ä̲*'ª#HlTRñÿ Æ •“)_Ö#ØA)Òºœ“b EH{iÑPog‘M£AWDY³I¸Ð¾ PQ†KªBÎ¥ ì"Wð Üg‹1ïÚ¤âEnÓY6OsC Iy%È–ãëY| r·àýFÐd~èäçëšÒK®7j‚ófðn¹XåD„ç€ÐºŒµhßÊ2hÈ”‚[ñ(Euu6Y¢Â V@ߥ‹Œ.‡¼é¯wSl•³tJ»¥`‰%@w!+ö0•í€-tîK쟯5ª,\ôÙ%pýKóláÊB;Ác;³àëp?dŽü½Æ"Óñ£ÊjY³Q !:†,@È¡«ê‘®Ò@£ÎÛÜ÷£Œ!0ê%v£0Z*cõC,‡"ÔwußžG;ÁçDH-½Ì…Ÿ¥ëiݺTÜHЫ%_?F¹„÷qŦ2#&`u°½€HI-En¨;ôk²g³ nG…êÁVOdºãÉ šYÖÏã—¶Îx3/YñûJ Y¡Ìò†¡›ÖR68ööD~Oñö;˜TXõ±OÒÁÖè}OŒç…³K×%ßòÈ?Û÷‚†ÊÒ~§7_Oì²_ÅäãJú/´—Ûõ!Ž)¶IÛcÉùԸϲ=ÅÜ¿¶«]”x&ùÌÉÙ&nštË|W¼7ÍY-™ˆŠ Égm×53‰*XzQ‰‹J¨™æÜ]À‚<Ò\C.jæÓX2m¢Æ%ÐØ‘°]Çb¦Ø|±?Dè¢3L‹«“,—ŒŸ™Ò>µ_ÃpÝ£Îðõ1%íì ]Ës=9ök¥lkÆÊ™7Ì÷p½Ã– -f;€eÍͧª7«Q‚9xþiÍp ]ü’~´¤/XNHÊec¢ñé@pÿÜŸ“½¦ 3¶%pïûï—hêdVêÁ#k— K0b”ð×¢n[/-DQà5î {I‹Âž|\7 ˜¢ß[8NX\:Éù äŸÀ!´²É°¸P‹°ä¡fŸédÃ- Å¥g Pžç|²cVƒ[¥Êh•¬'-¨Œ4i1[ðQ–Ê =¨ãL »ïsKÝC®ÒÙζ÷¡H—b»d’8Ì{v±EnV±uÀ¢j,q á 8U/£ê‰#AŒ)„iôJ‚1½£þâÝU‡ àDjØ —|I RÅÕiò.Æ;N-1±23v¢á»Pì.¬DÑ£Xóù*&—$ãX„ùW¹˜¬,ù—’†Í‹ ùruv–!‚3w-w}c»C® ;|M¬!F`gŠ@VWÕK]8¯KF#¹ç(0«RìHk½#¬oîýrh›aq‡Á5=Sì1ÀØ*Dç(ygx¯sÚ"¬É|)í½´vM‰ðµ™Èz˜ FfX ™tDcÌôZ¡,œ™ØJX›vÀ[ˆYmV@‰¡ÍàR'ÿ¥–¸ÛYo°¤jÑňϰ+4…ªžžüÁ$Onŧ¤ª¨‰mÃ@-â\IJX[Æ+U¥›çÓÔ¼~ñâ¤w1ò!+Á.é’冦,_.ˆ²ÎšÌêû)+:½é]®°«r1 ;a¹¹*ŤÁ~¨è?#WET›òûž£ŠÈ©d ÛÇÝC·))þûQºg…P5¢ð8|+Ë€Ü>e£GÅ-L^Åaœ¼GS¶Ï±fÅå ´‡Ž¾àEŠÁc¹Úà®Ô\ÖQ½Ë×  £Ž®'¼!â™ó|Ð3 >„Ñ“­mQN‰´z–œ§³™(<ýlä­†löÁ Mäs8QÓå5;ˆë_²ÐÇÍÙ,‰òpËÓI¦ÆŒœ9!52ÂsÌüÓðÇ ¸g2ñ9®Ž’9¤1\¾”z /ž  ¸”Ýá©F%Z˜âÒ‘4Wƒ©â¾ªŠ1]$w jªXG›N1ÞÈdtž¾cý!)×!Ç$ËÊ–ÕWNF7¯Ú>/Ü‚Í£cœÍ3Ô+ð-©Äó4Ä7°†D#‘È¡~RÅ¡êÈ'ÉݾÇ@è±£ìZµ ªÉë"sŽ±IP©¶¬‹TM/#ñÁBÿé4'/̱º¹„ŒI”I4ÞZBÏ+W±Ÿ8ð‚r^GÔ­‚וxuiJ»=©¡f›–×u|AÑÕ*¼†ZɹŽA ©*]1¥ Ñ­z€ûí÷wS}ÜPgLJk$¼HWtÓ . ±£/dÐùi§×j$$Oç+u2Ëé9ç7—zœ·U¦ð5È$Jøßm7)‰´ÈYÁÖ:K§éòš÷ôž²cV0ÊJjô•Œ%³Xì£ðÄ|Å1I£3 ê”åwŠÇMÓ§QŠÄÑm¶ð'Α{Ïçt„:. † µìŽpy­*JHgÅ1L¸»}›töŽv™Úβ«è*ùœ(äjô¶m¼z,›ˆCº§/ĆM$øm:GjÔ–Õj݉™ó¢_îÔ=•yŽI*ZŠ|î֘‡­âkÕ²ºŽ¸#˵¼¤¥É™ƒeÇI ÙËa6ot_úc^u‚|üîÕÊÛË•mêVÄl,%6[L}nÛÙcãO+ _9úÐÍ4c3Ú"·ûùh¶"s“‰Ú˜]&†ó2ó϶Ša6 ÙÿCVÈö'˜l=ÌšI'«)ó}°qÓ¸  ©p} igÊû\˜Hr2=†v@ç¶YÙ r•L§:îew"÷›ÕŒ”¤Æ_//:ßUðÔ¹äÁáT²ìÌtô]ÇŠ–øÐh”,P%„\–Ú#ɧp$vK!ÉJÑy(¢GÊ)[ƒÑˆ”¯.@CCÉj©SIQS"·ˆÄŒßù„ ·Žá%³¥2ýÖ|«·Ì<ÔÞ=ºZ¤KM^á˜_á;ؼæÂÒÄd ƒKaäè‚ÇæF´ ÑPª%JÞSdÀ§sH&å2ñ&HS"žäºn{SÒþ\ˆMc¢VµƒìßÅ}[6ŠIÊ«õÞ¡Z˜ÌR¥Lth(sÝTŠ ¯.àBÔwC4þ·<ëH (>¸# *w—¾p&·Û{Â󡌃J@f 8`¨ÈÒˆw¢Óix­û‰ä³ÕÖg˜Ä2ž ý€Ý='ÎÀ1\••Ÿèj™E2¼ÆˆM¡á"MAŸ!wéÕ1ðמvüÌqÛð© &¤ƒ÷&BQjnb ÓF¹Ÿ¯I¶Óãod¢ÕZ«8ï=z ô‰Nd«0­§‹d’`ǵpê¹³ †˜7Ø(%£F§oEQò¼'*w Wä3»!sLsU0j´×ÀÄ1¡«9vnÉwp«V'ꔲ&ザ€ó8Ç,=.ÇÎâ,]-*Š8ƾç¬ù ®‘ªÓS±/oºGBM‡X̳ÖlB³[%>E.zð,Á7pi&ü®öªøð^æCüÊÐÑv56ÑSo:ÞÈ—0óÖYª¢mõf]C6AŦÞ9YÑM¤Xû Õàf‘i&zR~`R6Aá!†*éR¼èY§‚VT÷žz=W¼¹Å»p‰ÛŸb@ÝÊ8?5fñ×f¶x›“4&AÇÞ¥ _Çðßkt"<×›˜ñ2×A½NÎé"é "²PŠÎ{+„„ŒöŒ €»Äg°È"ˆƒá¥„‚{)3¶Õ]ÁT ¦Àæljo¤bëy8Æè!ܯÄôÁ,ìŠaë½5ã³ P»’IÊGGÞœNi­D^XvJ)̽A&—`âsÑàË„ÖF’Ö%»¸¬z•|È/×Ãe6,ï][ßjÍMè.Éê3‘ó‘ÃÌvÞK°£'XóEúH¤ ž¹$²¼=Šñ‘☋*på…Ë:wä7šsð)»©-AFByé#Ï·U-6c²Ä*FÙžh§½bç]âÉÕpæ'…TÙå™YÛ*9nñ÷76[5õ~œšÂ]¡ ~&ëæ˜C*ˆÎê·6¾Ìð­ï–ºI*sj"š~utR×á3p’€¥‰S[ë4ØWjûÆYÒØ©‚|ÁǽƒºK²ÐÖ‘H%m3ç)wÓ#-­›0±±TväÀFˆÖÅp§œôC4ø T‹ñÕQúáׄ«@î.sê1üÕcRñŸW¤©¨Ÿô¿zxYѵæÑ·£3ÞèLš„/ø›ƒsJ·úaÄÈßy6QØ2?±Í¯eÒËËÕR‚tùCv[±·7F‡¢5f-ýØÖU´‘I!€•ÿŠl(¤Ô´cž§É(qŽñAÅR«TÆd¥NeµŒcPš—=Š<ëIAês>ú‡°ÿ°‰(œQ#=E3ƒwi‰¢#áí…-ЮÞ·ºz·S¹kÿ55#Êè?»$ ”È7€t Àôü¯‘Óý‹“éOæQz;^maŸ“dsžH,:~þiˆËÑÙô5ÌtøªÓ>à’}ÄþŸÚ8ÆÀ‰6¶²šAïe¯Ó‘j¶+¿éÚƒîÞp¿=hƒlù›Ú[)Ü'.Sk}7¡ìÞ· ?‹Hl”Œôr¾@™‘ê+ËŸw¢ÍÂÕo&}(ƒ…Í0d/¦êÅ:eSß²eŠF|Q“øyïÒªærØz6Ëxù(Z‹¥PañEúq¡pbec׎K Ã5÷Q^ÎN#¾PžÃäIø‚¸04¿áv’¸æ±m:6áܨJUñ éÓB ø)ê©Ñk,½ÁwR9¦qcäC?B42¯\Å(:"Æ —†¦SD¯!öæ¬É:JÛÃhÅr¹–T·K. ¤¹Cþfzæ´šïôêܸ˜•Ršœ³K©*º™{ ×dS-Ï,A  ël¤¡ÑžO+»!ÃŽb¿cµcËùö“§¡e6Te×Fl·A}ÀbLcRd ’§<ëQÁ|6Cð*Æý‘ÎHÍ{ßS´:/ˆL6DrÜÅ……/)Âú^3V’‘juC@ÏV# ®¿âÌ y£Q:¦­Ež—¨:%‹î Du<T3ÅGzÿ5RŠ²Ã¢c`8ÙÍõº†ÍÔ?+gJ1O@½hHo H‚JDéºþR)Ap-Ý}JzS»°×Nxå6Ô=T·Ë’ü}—ˆÜä±ï‹ ZôÃÆÜò¹Š ns᪜àRôâïñ=ê»V¸:uT•\©;…Ùê±S6xï, Ìp[››ßb½dtGS«‚D™Û nî’£‰Ä`MÒó•(ÛÐ…©r&äer¶ ¡ƒ)lîé˜k’í}‰3‚JIwe¬ó€bˆ®a6™ ‘î•íÓ³Û½ÓîZK8?OÑgŸEŸøGǯ § ž÷NŽN»‡pó~×éõ1ü›çÑÛ›,yØCˆ™^áE¯3xNzûû½Hu:áé¥*kÂOسi:[½/á…v_`ï øØד$fÁ3ts.aý-2Û4yrÔ=>éÁóo0Ôjö_~m7¢¿3(k8!iLðÉ’‘—ðž`,¯0½ñ‹×ÝÃA÷xø.þA¯½×¡ìÜðûS÷ß`øéγ§¥Ñ¿‡g¾/ˆ¬}<¤t˸ ̆ô}ÅÓ»¶cáfXSuÃCÁ­m¼rMQÿŽÝ÷¸O݉˜|š‘Lüp[—ÃÁOOxŸ/9E$çZAE5;ïʱ=‚#ŠªMÂØ9’†¡> ^±¯êEXP˜&ŽR†§„]1GŠ%<À—Hƒφnå¨ñtÆ( HrÞ&ÉÜëß'ñH 9ª’ÀM.Ó÷¾vs£[27yÕU/ž ¨h‘DK…¢&ˆ9¨váˆ5`¼$Âdï$ð€ð/à¦óŒ.pý¶S{œ,_ô÷KO 9y./xýDŪbû‹ø<›½œ^Ãد¸]b•"X<$ ;Ø#–xàC;¾|Ò`ã“쪷3¼Ç0b®™3ñ3qæ*œã«DÌÊX„`¹)+bj°…M¼íÈ+ùI§³™­o6ýPšüJ”è²?Þ°8À¿¤us“›U$F¨cx%øòïÌô 55a†_Â53âo‡Ýcø­¢ØÌŽ¨01™XÞ‘­€æveÒ«jûCÛZW¿#OûÎ*Rö.["Ù…w«Ébè‹dôÖ ñN]RRÍ!L#® #’ÄÚ¸åhGÁÖ•Ë’×G•u³8ØJ&ÃÖ(¬Æo©Ø¹Æs½ì ¯`úÆØúÉDWòÃT¨kп¡ê'÷o[Çß³¡Ð¼w'çð5]üm>Kœa"ºsO?Â}– ~­º³{ŽJùzê½gªõê.,ÏÛ¼Þ% ¾FãÝaP4‰Æ«ËËkrŽa›?2Ñ0› ½wãŠDÄk2ÒqÚmSÑ'yÑY¨d0þ[í³6^šì“3±£½Œ‚W™hPò¯Äµ“?Ýj 8³C[Ác‰8Ú³ÿâ`øj¿×ÇЋÚÕ Ï,N¦¤Þ2FhV£ð)) và~ÀãkñõI“ÜW¢aÚŸ/RÃU“H'â¤ì¦È{áDÛ%#áu¼šãÙ²éÛs‚´L¶(¡Œdà¥èFö«X.)€äe#“Ãëƒq—$ô$u;û‰"lâäVø!…:C®ðÕD\¢škGXršæ¬rà5¤iIL-éì-3­²?ŠÛFBóä.WÕÐì²²àz{¨S@9le÷jÅ›¥L‹1)µC{8ªEØ ïw^¼>(0E 1^ÏÿÙ( žyªÙ/Ê=4yUq!Ô7×Òôö_ŸÖsSš¯U˜ÀÆí­¿>Þ;>moÐ~qØ¡Nü}¼n¼Oï4¬î°ËáÉË—@„n¨ºp }ÀœÝ½êïæ¦m¾÷ì»:²ÓôÍ u ½¡>7EÉþ5/7uÐí£…C! {õy3š4#Œ‚ÿdc×AÉÆaÆ•¾¿µ¼~çð凶¦‰±°ÑòñÉð¤·ÿáƒD€!—okSv‰†‰Vž-½½ › òþª}|ÐñUÙÅ,påuíï»’RSPAQ®ä sÜéµýDîwûíÓÓN»×=>@æÛ:Òã&5A L­8ðh9Jéo¥ÌÇYÔ±ìÚ•ƒOÛ{£Îñ > Bµd5Î~H'…¼Y,Ä© Ð¿üÎ$ï :ìv}çn"€ÔÜDdH SòbÀhIFpâybrDXä²òÍMã†Ì&4kA#Û†PœÈD#Â4LHÂ¥Xþ¾ÜÇbK^ { ùõl)ŽC#©)Ð ÅþÃÌ}ÛØ ôÄÊPƒ'Y ¼êÕÌßqçM}ÙˆêËèAÃPZèi6§Fñk%¯¥BŽîÞPÖmÆri¿Áo(àr%mj¢È¨θO`]–6©*E0öS:Çlè¨êŸ!j²wZ@-û8‰#F.~rÉ®W#ôao[Þ’*ˆ©cçú$@ÌÓøÁoGÓ,g‘è(¯¦ñÆN3ú[ü.¦ïÓ½d‡ü6ØÐ+ü erG“û%…äÀ&fÈɲa´¢ !•¸E©È8Y‘¢ ã3÷âÅ4z…‡úù"^,®á¯kTèèXö.ˆ]…©ÌâQv–òà{ÐFÔ^¾1fº»üœM¥‚•ÉÇ{bhV˜³l|ÍYˆâóE¢Y)‚ÂO@-Švmí<úrÛºÉ ¨ôÁ^·0#ÌÎS¡:û‡‹¶a׈!:­’þ¥ ½)“pÎʹ¶ÎR¢ÉÌ76Æ€˜¨ú»™ùòA6¯U&ýwwÊå­€úÅçG  |N…¦ f3 zu<ÀÔ#¨…!ŸbÚ7gB€ma…i~ä‚ÁÙÏ!ª3*½+H½ûP-xIµÆß6$z†|ª»Ž–CåîY°ÈeDþ)­[ËM%Æq–"qrvÛÛ!³J¬wxŠü¼Hê2¯•«ˆ¿êÁ8bŒ4VhΞl¢Js2kŠ)f–EHš™¾üƒ,É¥ÒuÅ1ß²ý!ܧéØ O€øg‘ç<£9Hf<-†Ç¾Ä#¨FÜUŽ¼€êÅð휈ÜïZÍ*x‘ŽÇ°2E„0ô/UÇ–x•6‘…`1jU‚ç¦Ü‹Óqp†É߇ëÍì³^ Œ¿rv]FÂGKÁ7ƒeåÌ@e:H|‘Äz„ÎTžš0úfÓ:»ÉƘ&Ñ*ϲ"U€U(Ï$¶})ë9C_©äªHJ®€ñ×Á68Âé#s–ŒºFQÚK¹‹@ J‡Müƒ $Xøl¥±9UÄaVJ‘cÉŒ÷îs§XŠqUt¡ÙYìÕhèZ°ö<`tÂöŒ=­ÜVPŸ3Ê?É4L,é@çÊ1l Ó"ÑpÛQ˜*Ú©ž L&]z;âŸóå5apŽ ÔËn‰ÖÔÜjª˜gìàhV3"m.¶iïáæ ÏPï âîµëð`Æ‘ðì—ˆ²[˜$ñ¸˜ÁˆÙ”‹éÃH~HGÎ|BŸ·1¿zÍOçRUEŠ‰‚Á2£g<ž¼Àláw‡®4çç†õ~—&WrŒÌÅìa;¬ß^ÈOg{MÂÍ‚x•)ï¿•¹úïé\ÅY ŽJpF8u*/¯XÇŲëÂÇ­ùwV¹$n±ƒ®¸Ä…båììÊQÝÉÿ¼ òŸïYE,®:1Ëe¶Ê% |&<áá L»¹ÚðJÊþ„*‚Bƒb@͇E”B‚Ÿ¢‚•4-¶Ê`/Þ›Íç¤Rpӂ úlÞPRÌnåsëÒ¨vAê$eƒSSd*–ĵ‰ŽUÄ=á™\²a×j…ã¸lÛþõ#)[ {½zðHå«CüSO®B7á¬ñ9å‡ÿAتÕÝà ÑÊÁÆ,»¹[›by1­$¦_õ5ÑyyÒë +QÅ9è¹÷y’M-¤žÄ­­–óJ·Jp-Ã;óµ,.¸ÓÞ9lfW¾ƒv‚ã<É"oÙ[\l,Í€®‹ øÐJŽÏ'׺–K4¯Ü¨%^ g׉ùŠƒ„M0M/I‹¦äÂ\‰ÏÃT¤$Xl^FQŠ|õ.e !l²ÙFiH÷祎Eò9GÚœ=PHÉ^-›.òMÅrš°–&YùÑùúEòë¨;‹--ûBsÎŽ8¢M3F³è/µÉxÊîñ°Úåä}|IN0p(g²‰††…ÖÐ1Š¡æmŽ×Ðñ_®ÀØŒ6]šyÒ¥ ŠúKÞ§˜L÷ÃYÄž ÙI{ª¡*Û¬4¨€ vèuêæJÑmXÖ(3Áó‹üÍE¬[|Ž×CÙ’ n†á﹇’áà¢=· PñòÁ7GÆé[“¯‰b´²Ç7Üñº`!jò”2{e\ û `K|Ðé€ýìE‡ºë²1è‰-êf@°Xe«Ü™ž®96΀€+ öŒ«q¼ñŸõo+·–œ9Ùp~6Æfí$Åk¨.,IÎ¥qˆŠ-¶±x*~Ãàh1B¥¼Õæn[üìp@qêŒl »AMcð ]¡*ÃépauÃÒ·ÀÅ@øV³”‰§Äî @‰áæS‡Ó¨þÃWø²Î@¦òÌÙ>Õ2C™À%›CȤEg ’Ô¹ÀFg:*ÍLžTðås磑] 1²¾òÀâÌ}X¥=Œ™½Xc¯3‡6ïÒó±¢’îk·„VæÑØ?ƒ.M·t2)íÿV­zËû5±Eñ¸Ñ¥g ÙÄ‹¡ôóºjÚââÑ•ÌhùÕŒ(iÀG¡Ó”ä°ðË­‘ĨpF|µ”µk}%‚qU2AV>7Ìp \ÁêÚÈÖ½$(ªI)Å!A5ækwVšU¹V>™Û€p[C]t¦úYt¸¯Ô £¨YN PXK‡Ïo(ˆ!që¨!³Áá_^{§Ô®´\Ñ×3ê^Bi]jt¼¶°BùˆÜ4Øž^!’†¢Ö0¤—Õ¢N"ŽíÈNø²ææ³Îq¬Æ{ÀÝFãq*šX‡‘$`L“;X{7£öÆó Þ¤^!—VÅŒòÁ#‡\®ÝÄ°ãú{ ŠMbÚ[œ= È™µ^/<4Ľ^ßxXŸ5šüRr™?íu†Ýã½ÞV®´¯þT 5ÏØë±þà}¹“þ€ÙÆFîÚ‚ÒFi¢X=Ϙ†¾ ŒEŬѸ¨«*Ï&Ô«ÕF•³S®¤bÚÖ×¢ã/W£ovtfL% I29øo,¹¤Å]‡¦ .¦¨»¿oDnDäCÝ&½ÅËÆS§Ü¿dØ`e«ô°aBušϲhìUÇ¡%]¥ýÌ8®Å¹Fä‰;Œ2ÇÀ­[0ݶ =‚S‚Í|¢'¥ðËa «½[ãw?-X.zø<º¡¨iaÝ—ÁqY7†‡k‹Ù1àW>ðŸH¢O¥ç³Kþ(Ü3 ôÄÀNÏTÒ§&¥?Øß+¢^´»ßWÍqpÒë`ìÁÏ|ò&.z@ÞÔþÞC9ñùZ*^ÿ¹±&b§º V}T~ßE·ï;Ûòƒ:7Àù5xé`2‘cRŸÙ±ex³ã¡|yrž¤D¥îFÈ©‹l|©šÊ±Û:+ FóõUñÌÞ©<Íš>™)Ò\ oÖ&B0+N aºÆF¹êd ªA“$0€d„d“&•%,-’ Ê3ѹ°hˆ¨0–åu¿3<ܾéµO aˆá^êæ‹ÓÁ«^§½_Ò³ôOÛ½n¨¯-òÓýóÑPÆ;T}iÞº¸ïñHì¹:ÝëÝV9¾$š;tíM÷xgÛ•ÅbdßCŸßiü.-?%ŸUÝ~oox´ã¥ð ﺮÈý&GY£™qzÓKÁÊÊ¡–‰t„dD'½Ý9º5“U‚ÜÒH½‚‚ ßAÎb+nFŒ,º}:% $DÙ3Ðƨ¤”Ñ“Q• ¼[‡4=szpFØKfÜ÷ŒXWjHÏ%¹>xfV,Mœ¤Þsò"Øeç#Á5¥¶.ôjŸWrü#³f _^rR ­€q":‘uP ‘ÔpP-m×uw¾¶í)I7‰‘È£$‘xÂFVºÇñ‡…2——š/mø†ê<’`­×¤F­*AŠ×ÛÏ`zÓüÑ÷Ïžòsz1Ù„ãÅÛ-Ò¹vïÏö~8à÷Ãê7üµ+†ñCøµ{¨ÜÓÀÎߺûi„\îÇ’šº±GôìÈÌ©¯ÕÇ…+CHƒÅØ{# ‰Òä»/?üMgÖ‰+[&£‹™¨%,Xýžö|–Yð ébš×E€ac.Îè îO§G˜{Çz-ðúw¤€ç@$ê„u~EÊ{®ÏËÓÜE!-ÌUë;ó1Û‹Ç«öñþa'‚Õ±Í~^µåái¿³÷º×ü0l½î‹×ƒN?šÎù«öv1ÈkŒ¢‚?ûoNzûÑøª,LFªàMƒØZ½Á°wòzÐ=î@}ôsnk–mﻓî>¼<á<¢ûUÓÕ¹'óðrŸçX/¿ÐÎtÇ¡œïÊ7{†Ùh”å{([­5ò¹pÈñ‘&qQ”rˆÏ#ÿÇ´\Z¶‡Ÿr)&ö›áœª.ø^ƒxê–u‡~-¤]†WÝc˜½ã½NtÑEöʯNÉ»âëÃÓ7} =ÓùÞ则{ŽÍÍàYaÄxÞ T!¢üí³ %Mæû¼¶{§¸—ðù0"ɨ´BQH–ÖÓ"1£ësXG*à ‹œ c¦(ÔÜKŽ‡®O÷¸;¨7|òÔ(õ§:ÄËã2~«iâ5AÌÐñ5'3.÷+ÎrLupRvå²:À0ë}¢çÙ2T®JªH¢ ‘Àe)èp¿<(`èFbñŽŸ1vŸ­fjÞá=@*FLÙGæ„©ÍâÏ8ýª€}êqYŸ”éV§,c8çZ›M ¤ªÞiFJ9YMBÖÒ" 8“.F+Êi‡„Vn³h»õ}TÿþëçŠ0s¶:ׂl;’û7zÚzöHúûzKæÐÖÅGWXñ³ ?O?†ÿn?Ýz¼CoÑßô¼{ò§Í/ž~±ýxkçñã/þ/Ÿl>ùS´ù{vbÝÏ o¤(úÓÅ‚4Üô]²ÈÿúÏþÀ&º¡ÛÔüšmC[_>{ÖÄ¿ á+š º2îFXª|üÖ—_nmÀ?Q“õ}²ÈÞà j4õ$ô9ª Å‚°ñ/ŸD'CLx2l¾¾$¼êö££ö Óë¶#øý´wò]w¿³µûðgdÓÁ«¨ý¢røzÐ9ü!:>‰Þ´{½öñà‡¨óýi¯Óïwö±¦“^Ô=:=ìvö±Åã¢×ýVØD?œ¼îE'oŽ£^·ÿ­¶|Š!Vì¨Nqã‹5x”¥„ÄT‘4ÁüÚÙ¸Y\“4 £ÍW0AyÒŒ|X»÷–¢ŽÄkŠÓnH|<ºGdó±B?à%Úp-²Ï˜Ñ;HBTüEJ9âIúÜÄÊîØ Áh—wÞUŽ}3cÚ®òƈ"çîÆuÜÒsM8 TlbyB»au§Åº'k½¨BÇÚ“kšE‚ÅŠ^²‹i*…UöÓo9r\Cž8.Ò¦Rá~˜Ôã4£×’ODJ£EJ²¡ÍóœÓÄr:t~€íãPŒlŠP¥¨^Á$.ÎE5V vT_Í8Hƒºä]NU|wŠ „¦ T¡¯L‚i½èW'½¢ õ§„WT‚EO¾USÎ9¤öÔƒA/âüVÄãÌ}š 7ð݈¯u••² ÏÖ—Hu€xlµµÍ/£Óý2^¤ÝÁ»nðÃigøÊ£,…Í—¯˜÷7>]½ÑMw¯¹lÑ»¶èæJÞìgéò2žï:P 4, ›ƒÞ1Ù7|á’€ùJу:XïоŸU;ÄÆÁܱ-ÂêûÿÕŸ©…JÕ!eT&úì²IùÞ3Ü^½O?Ò“G®¶Ÿ¢o@N¤‡q)ûÀVXk¾¦ÖÊ:ÿõ<ò2ÿVôõ×M”††ýΠ¾lFH³ÉÚ„Q.›“Æ£GL¥; Û%_.¢ ½èŽÚ§Ã~÷¿©«^¨è¡Ÿò­†]ã^iŸ`Äu>ZìZzÂF˜· ÿ•Î—Eç~Þ]ΪhJ\óA:°+ˆz™:8U­Û=W”ç{_g+1Í<"¤.q–hÊïÀJ¿ûðMí›(pË®¶ý;HBd§mô=Åä@TÐMŠ6Jc<‡âÈÇÑKÚ_T€S8±R’±¢§ ZÈ’E£Å˜FêÂO]AU^Þqž¯ F°©ÅEÒ7ø§ù!ôœU4¸(iÝûTᶩ5_Èßäùˆë’Î ‚§óö@nZnya7 f2VOêò¶¬S…[á…LÑC.ç!—¤ËÄ •6&SÑÂ`ñ^À€A¼;i'³Ón&fZž®ÄÞóΔéí§.¡‹M&ÏDíñY°ß§·&Cí°»_2YiGØr³ÝŒZ­A+‘{þ•ZokúÃ5¹s=}Ä«Šú5ðc& ?EÏ£_6Ý šW:¬ÅšEò9hN¶€€|p¡í LGaè2bö…)lžŠŠ‘Š¨Ê0ò)´L{‹¢ {[²îÉØÑÉŠƒ–$–Há8$Dì0Ef.|ÔFÉa½èD§m”¢ÁI$سŢbùö1½&tóC†^ÊZ±nû|èüT€Üuògbñ— ¨Û—7ò¢*O…@„˜nˆ‰Y'N$˜M| ‘k*ÂPeãËÏ¥ÏS„kÉÉ\K©èUºà†ÒÕ|!\$¬wÆód‡5h@¯9ì¿/Gä‚®% bÿGÖ£¨ƒn( E;Ûg !Ãe/¡÷ÈeP·žâË"ùɛᲙ•Ü.# ¬Ûtê¨tƒ§°À‘‚@|ØÝë`¶º.;hÜðñ³rf³ê fͨªŽÙ­¥œ½èö¾0 ïšcã¿ «½S¹æ5Ç!øÔª‰Œs_µpñkD»`9ºÀ\òwPë‰TC5þõ?¡þÄl`?Hx1†-ýû¨oÑÿ=ÝÞyò§­Í-x¹½µµ Ï·ž|ñxëýßâç€þï-Þÿ­Z<Ý9[M¯£­-Rð<_¾zòDÕð|jüw^uÚû^ߪx‚§*gs²žèâlúUÿSª½ÓSU‹|òîa4Ö˜g_G;OïÕ66¾‰’¥†ËíÜò "Ö@"§°Í±ìÑ­g„rÊmc©âv)’ô˜Ir)Å›ÈÜco•%ù.TÆgØ7•Y8,iv³¹´J¡Yq~õ° žÎÊ9¡¸ÚW˜Yð 3Ò/¸¨}ýÃy4³ëë½Èd¼$8±d©Ìƒé;i@ÉðIk¶ìü"Žž4%)ãM,Ñ×Ç…—;|/ÄÁšfÙ[Ìy‡“pñ¹ é\Àt¦dX”ÄØw‰6»1hª,âåÜsî‹·„ˆ«ó ñûi¤â¡MXMÿž’üÍ>N¶m”ÓI‰þâK› ýSKÇtÁ/964¦ànôÿ¥ÃÀbµÓ† |'ñ¦*EjÊnV>?*oËo`åƒàøvÿÕpph7ÐXze2×G µlŒF'´gˆ)mPÚ5¹FøãIé#7…™_vžïðä`øâd089BŸ¶¶ˆü–Ü8a÷‘nŽÙc3=tìEAÂû<—Ä™E³|¡v“?S»uPhprŠ%ê2W…šøïW/¿E‰¸*”ÃTƒòÍÊk­ŸTþ[£ôùܳ†×G&VJ£û?ìF`6÷^ulô†:Xï¼>øO†¯ºƒ>)Ô?éÙö{à >L»”:•Ï•àH§—ñy:ÃÀ¦9ê‚Ê>>w–ùPn|¨&ïeŸ¿0þûá"à Ÿ‰œè¨OA45ã¡çY“©Ð ,[[fFUp–@OÙMoR£ÞRD5jˆPáˆ%ÔKæ­½ÿ:‹bŒ –@jT7¹˜¸_ô—Hf&âoÏ«æòïYzΟ!g%ßÎgR;²I \±¼Ñêèå¯N·‚;UÀúû98ñbH$kT)ß½ùd’<ÄÜØêëèáÃRm…ý~ùC®³âˆiÍ•µx2æABô¶†­ñ ƒ@Û€òÒí²œË,D~‘NoОuõ4áÅ…ªhæI²ò]á|qMœ€vËM3ÕñŒœ+æÙ;­n }–÷;{‡ížY4\ðBå¾±ú2¡G’©åÅuz'uWÐE¤º'œ­ÞOe§~Ñð E£z½Nö |þÍ7! Œ>‹êaW6¶0}ˆ­oø]û°»?|yÒ«ÃÌ5/иq‡ø ¿ ˜šÒ0Õnh®X34]ê“¥iÜàxšK´§ãP$Fˆù'A]56ÇÒ¸À ‡Ãk± 4:xGc˜ZÍÇä­ä10´Š=°¸›"¨d˜ž pìµËR)}žÄ”Vzya²‘›ÉQÖ¤’f ½*n/ÚÚ@ZpÌ•ä ÇTy1Γ==”ŽJ ÂêüªÈÛ_9g‰-̧ו.t½Q$™Ø¥nûbØ>fJÂôÖÓÞð¸{X§" K“בo×`±K‘öÜîÏHöå¼´/wKådÄ8~àØŽÌüiµ Ð Èõ-„aíY¿÷¡ëó<Ø,ß2Ç2dåI Äù,ÚÌ–ÀßóY»ïÁÇRÑY¶\ã+B 1‹Âr°[‚€’è-¼$ BË¿º‡5l’Ý.üsµeƃÍ9|¬1>‰ø*Eú„æw2Icό͑,ì(Q‘»#}Ø¢*¶Ð›™b¿¾~µ¿þíõÑ©t…Ô½T+]ÿÐÈ’M Ò<ý|¿ºûˆvAŒÝ 4û·Ú˜ ‡}ã zbši'L¶ºÄ Ô’±—ª*™o•(J nž£Î‘˜$Ïgd¹ç\3ýú>ˆâ|D€»š³„€‘D+àœ>¼JxI(”0OȨÑ-U¦‡u£²ÝWNƳ™€Q*ÐÒļM®w¹„ŽSeI òqËJ3*5GÙ7þ þ¤fÐ8!rZ@­{¿ÊæÒ¶eá«ì …™¥Ó|äq7ÅL˸ñ-š+( b]Äƃ8%þøÓmÉŒæ*ßv¿Øº[†Ù?a‹èE•Ñ [¬d°¤$\ضŽ’Ü?1“o¾%õDò3ZÏeÇqÛ†Èy“Ìç²j(=ƒhK·õÚªÉJ~9_-Ó-g2¯ ¥›@¾×“âäØÁe¢.áÕw> Þ«ol. íPU¼OÒ_.†KõÇ¢E¡Œm¼Z¡:A |Ø“¦9ïa‚¿žó¼ËÙÛ6â;ù­ý^áÛ~ñÛ`NžKÑŠÚ鎦b16ãÇŸÕmiÕ[H»•¹J¦[yà{/1¯ ƒ¯‡CÜ õ‹”øï”6Ž(8p×4¨RÄ5ó‚g$®“«ÜÐ!¾ób¬Wõ¤{^&røÀLÚ/Òè¹gË¢èvãn©Æaž¥,²»ÿ£™ŽŸ\yùÏÕf²¯c)` áÎAå0ôï³Ï¨¦OžÛ3ït 5nEJù;Fß÷|¸+LÖÍ»¢rÎ #”ºÌ ̤ݚvÂî°ê4ÖöÆïê_|ˆóƒ©½ˆwK½†‡É'ËéNÎúþ×ÎÇ6‚u»£Vhä.† ‡TGžC)M©µbÜïIo“VI"SÂ41©.=øŸÕe¾N0å-É·ðïprW³œ=ˆ;Õ™5<*'%ƒÅÌ3 ê? úº®—<„ UƒëÇr"S@äñŠ-w™ûÔ G&ßtöåGTëÆ<ƒàPíFT¦H/6+0õü¦¨–?~îú³Öþ¿þ'ìÿÛ[Û7Ñþ¿óÅÎÖÓ'_ln’ýÿ‹ÇØÿÿ?ÿìÿåjžb5_b5w*×òåÆ6ì3¬åUr5M–ËÓxôÁB÷6evݺÁ#ᧄÿ;¢{¿Ái¯û,pÁßÀ? ‚A/Óy„6÷裛ÖðE?D¬Èf×ÃYr•;Xr|‚+¼wÞÀÎÁOúÑã‹  Ý£1îÞ~BÖ7`l`Гá=Œ76¢Y‚q»hýÃÄGè•-šŸÊ¯ÙºdCpEXëM#y¼ãz}Ô=íS¯oêj!žuÿàõ÷AìÍ×ЗG8‚M*¿I/“ÊΡ_:«·^v¾ÿ¶&µ gÌ_dÔj=*Æ™­vÔî}[Ybˆ A±b4 þ³kŸ2#Å/Í﻾¨$29˲鮱~÷^w¢-ÃÁµmúbŒwÍJBv­OGìQ …Ä d,áœv¨€Et ~J®„ ¤`Ʊr¹LìpÙäÔ‹‘/ pû>b¢f'••å`/¸2&éyõRX£ ¸<†abe¬Ê¶YŽ§é™ÛM“è‡92aüºIØ¢ð©-é8¾;9lº‡è]6…tšxWYQ¼õ €žÔÖôhmµ]Ø ·A~¨ˆ†½õ6ºN–‘åþá‚ëì êÉûù¢‰Î)˜ž« ‡„æ•Î†œÇƒßëkâï -è‹Ã'Ï1 _Ò†Ã%ÇI‡øƒçÏ¥ö8‘©¸±/\ÐúÕÊÈ“ÌüßVívq)n#Rz Ú{ßz'oúÃ}¸¾íïœvzÃÁ«öqôM ²ž úâkûâ¨ýmgÈÅ} ?¢.A<ÙkÂnÑ¿AžV ØëÆî¯^`f ZtüõÉq§¿ûk©)ÀçTU…©ßåëuCùæîCÙÀ¡|]ʆÅŽ`óè:^>±YÂœáv¯è¹þ²Ýƒ1‰æ€oÝQkù¶ŸGrußðÃ߇WÊx®âåLð—|ã„××s‡¶nïóï9°§×ƒ›dvžÛØ\!ñòß»ÓΫª?xýâÅIï˜Q8Ø”‚UaØw-_®Îβť‰)3Y+’ô2•¬C®(†ushd¨ˆ§º&zþ™_­wv*Û'ÔŠSÆ–îI/HÞâê™ KÁ'(ˆÆa °W w,68Y_-ìâø;ÁöÊ›2¹Œ¬×D›!Ü/°=عC–![_螊S¹©ä‘p)Q&a[’äÉb¿`½a!·=n34G‡ Rä%ì«ì%8ájšŠfGcˆÏsƪYê135LS³&ˆ“#×÷1~Àq?˜~ûŠãŠ÷.«\/Ð…óÄ0l”qœjCT¡‹ìŠî°€^!Ô4BÀú䨆8|†Û˜Xˆ©°u þNrGÛ3&´%øœs#ßÔyJćy9-´ SnâÊùGŽ st LP}—R—59*Þ£+i_ü0èÎìÚƒãáþÉë‡mŸßãfÞ$lcvŸŽ`"¯£mÆ?Q|qUát]ágâ܇{l<ÈÎ[6&1ƒr’¢ÆS„&±–Wc/ìýmØ}zzÒÐP¨§G@ £¯£g7ŒM·Ùß>ÏÉ©†qµóëÙnýYHÖ¥}úØGåKÖEÖxWÍ’ ì±Ï}mö´ÇK‘y–-wŒ*ûŒÈÔ5ó<Ô{¸’û'Ç4ÉÓ¶CÄoµÊ²A¯Íûc-÷SV°ù2›^âth‡mìT9Êì¨{ü 3 E[Ok´ûÓYz¹ºdÀ‰Õˆ% çá .‘TP0,±ÕäžpJÇZäà™½³w`{óñ3>ïoéAñè–µbnTOW¶õxó˧Ve¨Úw¸i‡‡Ý£î z²YsÍr¼sÊOyF$´ð=f;ÄÄ´:½¢ô5ñì­¨‹äz ·Á'å‚ËjBÚ¥Y´€|úvˆ7%ŠF¸tW+ðàW,1xëIt¬˜„°‘ð ¶ ¾}è[céø]œNYúÇ€ÕG߸ï›DÑì¨fù]~ˆï#•YJI ‘úŠàðpthH„Îþ÷ Î)~=»¾ê[‡†ÃBÄÀ0$I7Y!äw¦ð éÆVPŒ“Ú¤9ì¼Sð^ ø¸ÓÙ'îñËëŽ\‚>F¿Ü«‘Ml”ç#‰*Û#iº)ùäàwŒœÑ¥Sƒu>ÊÕ‡]¸)Ž‚RHËôê§]qWÞ PFFW¼ÛK·‹DSQ¥Â×n¢òõã—½6JpàWêÁCtØŒþ÷ëóçÑÖ=½ïY–÷Ø3‚ É;Ñöx¼º¼¼Þuíã«_w‹ÖÙ~û»MápïU»{̹´R `Ý+«L2V¥ÉYš1<8ÒÎÿÔ<é4µ„‚Ó%Ô"xƒLÕ%» \^ëüP<³/¢¡~`‡ Ë‹ÿü(ÿÄB® æâ?¢Ž‹vÿ¤oÒ1)[ýo9œ%´=”Í@ÆÎؘ@í $‚šðùCB®B+32¼ìu:ê¯ãz¶ÇàÓNöæžË+¡’ šGd#r뮈+ Âòì}[îÂ-ÍU׶Å(I‘„u6±WŒ©c”€;$`çtwÜïz±…tr– AÝ6÷MSû¨õgå5í[[­­¦ËíMbdhšû6¨…~c%˜‰ñëø®ýý–0=5>D¨/\<·WµßîÁ~t]^Px}§ÚÐ)¤9k FÏh~]¿nF`V6ŠÉ’’á=~òd‰¹7KŠ’Ðí¼ºäFo–¦ûý~‡-yS»´ƒÃÒ¦„…šÂNv(ê‹ÕIÄ‚ô‡ñ”I:möø ¡×I3ÀIþà$ìÇËXtiÌ"-ÅH“ë@¾$¨å¥€ ¡/8Ç)ypú8©Fé9â2M¶ö”:fç ®XålF4ªQ}¨ÂbS¢ß*už”NHÆûZ@ìæáeÆý¯0©h–¤díqSCâðŒìÑ8h¶7~ãz-upÇÇÞÇ 9<"°ag`Wm'å·Ã%É“YNÒ¼ÀXÉ#¦×lFu+h„"î³kôYBÁ9ì­€Ú N¹ÉËJîKÔN“î^<|vci±0.ßrs”/Î$õÀY©Rù,¹æëSZBá\½‹ØóÂ×ZŸîõì¾ÝïöÛ »û ǶÑðAIÝà«áàbØO–ýôü(ÎßbêaÔ(Ÿù ¼H``Ÿ0–MÇè´:¼„o‚Ñ9®¨·\m±Ž&ÆZÔ¡ª$Æâ †Õùñ5;>Ñ4"ñ_%‰sÛ‡’–Ãn• n“‘ðbcº„£¥’¥$Î-½ñ×/Søº8Ù÷|îµroJž/C!;P¸¦¢wéÕîÍÍbÖ¨UÕV|c’ZºHÈtKIW‰/O¹Rá®m˨æ>ÅÙyuäé»äÎsÝ¿ žsèá1jP¦Mª‚Us‡¤ðö*N—/³š\Å^a2Zß­éÕl5ý ýÙ]sìÊôæ”o…ãt`ÒÒRâ,¢ƒût\oì–ÞaBA÷rý ê¹iV‹Õ®9'¶úª«Þ¿Qû v.ö‹t^µMÕìôâ¤7¨ç Z†qž Ocüêyú×Fâs —9péÄ"ÔmþÏÚA˜¹™ˆ !Ô×hdV㦹ÐIjB렿֜ݨóÕñg3:è{„š~ô A× Ma ŒYÂOB Ú+òkaüÅÆ Ó<#bž¹É–ê[ÍŠ3Udí¤$'!O¨XȈ±ÿ€Ø¨sñ9ðÔ¿xJ‰uƒn¶‚`Ù7íÞ1ÎI3^`ŒïD™fÀ˜!V9Ä<|úýƒ½è ·ðUtg»¹l%u,ÚPœ@|ª£ªÚv]Ôp2{—.2Ö ÌÔ£Ðd7ÈãïÅSÝ9:ü /‡½Nÿõ!zmà½õ&[¼äÆÀP"‹¡<Ƙr9¡t¶tñÐÜ)>–m4Iß'cÌK]«#of1† Ô~Aݶ|»¼Dt>ù–Þï*(½zm"NhšÌðQƒž54¼ž°q6©Œüßìj\¼ÙÅAx¸çí¶Õb«Â~.ÀHcu®=Ɖ.¶`<®‚ÞE––­)à«öŸúÏø^ÆÐí\ã9ù"k{Ð?Ý`¢ºèW’öÌY@L89¥'šG ó‹Ýòc]Á±›GíïO^ü=Åê¶ß¶=… >òC4•%€ŸÂå·¶œ+Sj/šI¤Ô˜:Y¤×vʃ¥Á¬Il ™7n˜ò‚>4G¸þõgæ•Ã×|u¶\Ä#Ê/µÍ(9>ì@´Bo _•8ƒV"ºl̇'i‘ ¦И!xñLƒgèÒA(ýÜ€ÞÆŒº, úg°ù1tBãk¶´DÖºj‘"’Ôæ°WHyÉ JnT„á[y—MßQ¯Ñ• ºÕ‚ŽˆÿGäçˆÂ"|æöèzÂE€5¨Ã¦†i®@’5ô ¬íÿÕ×t¿Û?=4VTvçžuâ&'ÙØ&'''aºwhþ1žËå/TZ f²Bbïäõ1â)½–«§áï÷j…-O ã™Å-YÚ‚ÆW³Ñp7qè¾*‡WÅwf‚6‰Õ©l¸ÐîvU»8Ý[”}SsÃ6¤XÙ# VAºX¯‘ÖjëqaLŒeLã‚}è|`]WÉ›63‰x¶ž~KG¡8~ô¢e¿¤_ø ’F+ÄGŠ¶¿U±Èùœ«»t5Æ(Ñûè•»º¼1ÉŠ‘°JrFyHOëž>Ö!ÁÊm?yz×A=󃲟cx*\Û+44*µÀ®™°uçvO'd‘lR¸›ŒBsÿÎìç)œ¤Äñ6W‰÷àŽjö;.llÔ” `Þrd§ néüÚ¹µZ‚¼7ÂÌÛ²NŠwp9$³#a8(MæZø'›Ô:)Žƒø Q#ÐßÕÀ¶mÆsõõaJïùÅ’³ 1T€CëgÓRŽïiãG¯’àw”äÛkvøa1Çw~×6ª[ø—‚ÐdóÍ3Àoiè³çÀÛÝÐTƒQ`PÃX0’sŒ{:&äžØWöD½ôo„:ºx5ö{ûP¦ s]mClöŽƒ{NJ¨{µ;ù'˜š8”âøóW%çF9+šFY4ŠÞFùúÏ? öê{Q %y:ø|@xRŽÚýo¡zË—{aôEwÀê>|Š¢p?³‘™Äž„Ÿ>²jGQá°M˜½+‰o¼} |Äà ØÂów.F~“ì]à¯LAÃj¡áôº˜i]2Ù"‚qî³Âš@ÑÅÛb¨âƒGà(ì‡e+üt¡p]ž<ôñŽM)Ê™É%'LñÒtY oÎݑ‘}]?Ý\£Ì1ˆ’&^£Õuæ*q’0«Tœ°¢Mþ­ñ¨0äXQI5¬•Ó¤9†3¦ì€Rä[î:9ÛXß$.vWsT_"'ˆ×® ˜·™½ kKÆcqõÂX¸È¦ ïà¯ày¤y¯u(P~’¶ðyŒ‘Š8÷9Å2Á§~BøRo@çJÆ:¨^ˆ¾‡û¯§Ñdº8æÿÜÕ°3Ü ¹dFÂ?Tü˜¸AŠ3'ôXvªBUWÓ cÈGg"•]]dS Ò]Žÿ 4ØÐò]’4ÓÙ[ÎÏÓŸ¸€k—XC³ˆý“ƒ±Ñ]îb5{‹*›”˜{ÞyaAxm@yGï/€%BœêœpL¨9ן0”riè©)9ú>6•ÆÝNHŸò}0¡²æø"\Vî<Û­i1¼_-@`fCL—×´ó,uËO / ‰x ÚKäs«¦@àá§øåw$1“ÝN¹œ E—³SÛš¢/]b˜Ü#ᛜPܲ-nrÒÈ .o:®Òw-7d¯*ã:õÞ¸e>^ /¤DRqèr®§¾ÈîÑêì Q¨Ì-µ]—ÝQ.Ù=Þ;|½ßÙoh»ž*Ã…%)ÙO~æ 뛄¥h›Bàƒ"¯gi”.ÕCžîÁ£¦HóÒÈFÀÓÂä§ ž¼Á8Pv&8?·fJDf”·NƒáÒÑ9Þÿº[‹Î²ñu!Ôÿdÿb=ÙM’M²kCÀ‘Ø1¬ìG)+ÿënÑê…i!zN]’<Ð0/ 1hš /Q«®8yñ7¨•ŒTÏÿÙLo=+𓇑•ídòúB xêVðúÆ=#ÄÄö¼²Ñf3Ïœÿ“ê –³á¥x ãåëx-f¿¬ˆœ>¤LØ臨y ­AÕ&ó =íìõ£§þmáO;¾P“S¶d}rfçâê/‰H ˆç~ïGw…rÁøÆ &º Úš9ÂÖÌv=ÏðÓ9)G’Kf3qØ™ÞÉÉ`Øï œùãRÐ4¼ik´9W4 º%¥MÃb”¸.`80”bøÁZ<‘ Š³¡´Œîò¿ÁÔíµ¿*vccIÔ>G\û¥`ç]Púq¿+¦éÙ"VÍ=tšÅã PŸòσGÑú¾Š«F?ê|T®ß=9î“Ëzô˜TWG¥IÎ+ §9y/@øÄÿ,Ü>‘ÍŒæ‡ý0=¡úh©`AÈ ¤"aßqw‰òOØEz7x” K,tª¢-:B¸G|ßÜöù—Pb£—öHX‚5>I§(T p<^ͧÄo —§q;\£C¾Ig°¬€&£CIôiŠþ‘ÑÝÀ’0 ¢ÿ””Ù¹]Q¢ ªBÁ{¤›“Ä‹Ñ…lâk5MGŠj Áð8“IÁ³³Ð sÓlN„ýÑ€” H£ÆkNFäºáL±ÔêPj‚ù/ØÉ•Ežýdš,å_õ Rvðä*_ÏbÄÖó_n›OïÞµi6¶Îg3È;K96C{¢lŠô¡§†ò¤AXnÎÿ¬©f…OžN܃G¦éPÅs”­BEÁYY€—¥19)|ÿeÝÕõ/£q°©õkÚ¢+!§BUч×…\ @ª%¬ Cã|‘­æ´WÏ k‹´9âË\¤õµ;ø µ™¿MIü‘&ù{¡FR0(ZA³>’ ]L’”ÝF(¸Í×Êטêõ×tJÝ&½$ˆY¸VH[¢óÁpÀì@Äi©ü8NM;87S&±¬ÆBÀ“F¡I)w\v±Ê #šn……‘Ǩzð ç½Èʪ0sx·Éµæç¥é¾®áä°dÌ~~éfLfè¾uIG¸ #Tò1HiélÚºà|~"¯± E¨!}ÈïcÈ·Ñòz‰h4M Œ%w}!ÿÀª$g賉"­&ÎnH6:8—»î ÜÚO{€GjQ<+$“ pQò)oŠÃ<žåbÑÔK€Y¬S»û¨Í _p»ä 6Ä#HâJN©†£A†hÛ¬É'%§u8a³ U8aÑä²ZÌ;JØvhSµ%&Ü–¿^¹Õtf¤è -¹ôA4+*DÓ5ÀIwr‡£;Bè Ìh;ã¼7H®9Cò ã^âÈ× 'å<Ê´ÓuÖm)@ƒ/¾ý@™_¿jW|ýøË Ï€\½€…|?鬶¦ß23‘SÞ¬„åºH¦¨z¡å–6vjúNyÖ'´»rØ\Kt©Š¥b–ö ã!fÝ…®µáùÅU¨í8ô³2ývÙš5Ýë#‹®GÓ¤eXQrêwNÛ=Ltpxò¢}Ø÷BSÐ Ìõ­;hYÚa«4'ÐM¶ö+¤¼kkç·z4!„³4órðѲãE6'Ân Ôœ\U{ÙÖBJ¦s1Úóù"ƒý*|Y&G3lT7 S¼è ‡ÝÕW'ë+;~@Ü¡è<ÀéƬš’FË“ièT±ì¹ Aá-–Y6C=a¼¤Uœ}%‚dI›ÅçtïŠÕ!‡ uŸ¾5<­Ø~±U{B“K¢+mÚ{…£Ì‘ 7ó­™*4hÚÓ…X”[~V¼¶}Ê©ê›u5æL3+Ê?‰píBb³ÖP·¡Ÿkš@GfW«jOå:ÉG‹x9º@.zvËoè&r¯É$)îWª51oñÊ•‘pm5Š«‰›Fá¬8þÎÿŠ4+µÿä.ö´™xî†Þñ¡¾?wy„@áÞags8c@áN-(‚Ά¹ß§>p#Þ”³Ù'r©§xfo¡x2¹p Õ·üGu§~¸¥šÂG™8p?ñZ*‰?°ÿ>û+óíj\ÝZc ‘c¥jpµê—NW$FSÒÿÙ¼2ׇ¸Ë+ä¹TÙ‹ ó¥Òûàë2 xÞ 4íÁÉQwoøúxïäð°³7h (¯›ºõ# òÝÞiÄ®U ½í¯7‡´Ü,B ‘°_yÅ"¯4Â|tÓéʹK6ÐwZ{å—öàBµµÕÛðg […iYíEÊ  Y ],ål6CˆÂ?4–~5?‰§b(6β²ì>Ž£VÛΣÎKÂá=ɦ¥²ypì¾ÉoÝ6lX,¾ôaˆxñ4ó–ŒÂj¶ k_£+{¤ȃ¬÷3c5&²XŒÙ7ºh-6vçØò]ÈÿùÓéOÈWþC¬6µŠ Ô>H¬ «g¦lqäVµ?ž— +À~Î\?–¶¢è¡ìtû}a¿ÜëSô¤ÿGCYkS®ÛÞêÜ36™{ÎÞY.§L¹æ‚öL€ý ¥`qÉISß=þ®}ØÝ÷ˆ5 š#à1Õ³(Ù\ s‡€ $Δ ž¼|‰™Â'0Ým¼àa°.ëÊ2Ë* 3 0I]f!4X?¶ˆtå²Æ˜'ÎOû’àÛó&ƒáί(IèìœYƒ3á¨ûÇ(AVËTÏV£ ê* wóý$ð²ï&¡*ù”lñ‹ ¦Ìö…ºâ2ž–úD5I—jšJ–º…o0´YÅ°ùª–ujª'àj‘ÂE0Óæ\S¤“öª˜Ì’Í2ÄzøF@1BºùªƒÄf­™Äç¡)jBðz1ZzVç@Ÿ>Ž^˜ü±Nau_<}VcŸ:Ì¿¸¤0Ÿ1ª¬Éø‘«ðQD ½s N¡¹­mn®'ý¥ “¨` ùƒ­oÝ}xk×wž=êÚ‘¯ òp1TS÷ñ`©§ó½¹˜ÝÄÍ!÷šÏ_Y5Ž8ÑK–Ú}ˆ-¾+˜³o+DFE…Ì<)@þPÙ&¯g‡= ¢í&Æîm²˜%ÓÊ},=02 µ?MfçË‹›z°—]R¶ËH>ý˜Nl‘C¶é¯KœNæ˜ fNª•c'~ì¹èšRO¼¥zˆ¿Jyñ·o»Ç’òôžÂË «­‘n,V‹{{öv¨ìÉ'mŠÉ&Þp$"”d†Os|sÁqbKEÚÈŸCñd†2ú[Ý)¼[€-M!V憣¯T–/ƒÀJì½ÄYQÄ]_ס‰¨ c:5À°"¦SD ±’p~A94æ ïîºïC1—Éå|ªvÀ n0Õ¨.®Þ;AÉcõó¥Áð¼Hà§/Ô]ìMKù \'‚†\àV˜O1îW 3áU—R‡¯ÍA­ªÞb’…]Öîqõ©cÅç|µ\Š{é%[àëJžÉÊbÓfþÑìßqCO¦û2<œîqù|šåJ‚ãi+ÁSö]¼H9ª‚Ô¥êûF!…~_3Òžz¥#" Y¶Ù5E\<.ÙØ„ ù'B«)ùþ’*6¬•éµ­ƒJÕÖñ8Š…Í£/*·/UUÕÃHŒ)¥šìp>ÒG¦~:èa”VÃzË/«µ‹oY\9´xÝØŠ•Y(õD *n$¢bë#Y,BñÒ‹Ðê<¢í;«DÚaÁûN5 Q0Ú퇵Õ߀Ï[A¹CC^ð¾ ]ÞÕ¼s{Ío×TÉÓ'÷3Þ™(¶2ýñš2=f“l(†í]WFßÍŒ¼²ž¿¼ÊZ`㧽ÓøBÕdMa¿òÒ «f¯ÿCÐ9b†W$!3bßÒ£âÔ|X!I.»YÀ?m~d…âKtgÍ$LFÉZÁ;Iœ>g¬Ãô¾³­¨jvÊÉ—µÆ¶$²/º`Ÿ%Ë«„‚½S®¬†sÉm.¸².5ÑósZyÔÁ ãòÙïîSï7L#÷›QŠN'æs÷µP}õ—k‡ ¼äš®6Ζ‚’»ÐA,ªópê=€È]>ãäŽìRB òæ®+/ Œƒ0fç{䇘†[+¸#à7Gf½±üPBÕ8ß/ÎeB‡Ì±@ļÎ/È\§h"‚!b0ØM>2.Îól”²K-0³oÀº¾›¼ÄKñåG.ñdȾ‡»ìS†Ã燖³T[-ƒ185½»g%›Ÿ;Z¦]—6=žêº½Î)ŒÈ¿xtžÌ¼‹§ÖVzt€bÎô¢Ã…ÿû½Z=lDx$ÓËdH 8Ñ%PFÂ×Ç”:¼³ÏCƒÅ*±à¬Ï”Üv§‰aìr¦¹/´ü8—Ž ðU6G³Š ]¹Ä]´U¡Dö.aèCæÓn$×ûiH{Ìü²LîáÜ®ÜWLHjâbþ»¦Ýg"P‘Ÿ“_ ôÈ’O/n ÐlUyR²¸!ŽžQŸ*ã¹"•ð…Uoag¡b3­ì`}¡ ¦KD mÒ¢P[­ PTÏœ…(É;Ú£dÀâ¿I]Í1{Áœ·¦{hÖÚš}A®Ûð¯š6ÞÔgÑ$^´,,‰Ž*O%¢\Es¬ß°M'sÙ¹fÀ¡óŸå–©€?)%f„ˆ¾Ž6ÿÕ7êˆî÷U„ÿñ—¡ Z„ˈোw ÄD0Öý°\À`Y,Ý°µ=æ(&‡¥eH–'ù=…ûRͲ¼àp¨Wsb”;FÊ«ó¥8“Ý!LÛ÷Ÿb “¥ï5~Ð I)ð«ÄeÔ?Å^ñlŒÊN2\Õr²‰ÕÑ?Ñ¿€—Ç4¸Ž_K½ÄLœƒa÷%ZóMÑÑ=]Âé8K¦Õ½§?/¯‡4Ï¥™§…ÀO?Ó:ÑyF‰Úß2 Z§›…ðn¨Z±çù/Ûo˜:?a:vð7Íä§E»ûœ¿÷Cv#v¤æHDÐÁè%(Y¼Ã}=átžŒaO’a,¢ ‚¾µaÇwC=àKü¸ÞKØ÷» º™©0gÝTèÙì`wfX~‘à6z—TÒ‡+Ô4I™W þ ÷"CªK@ˆ²ÀŒ¯3L¸žãEýþiz=þÖØøÆêHN­Ÿ èªXÇ7ß@ °zF fðÔ¬gÓä±/ãÍÜi¤¥êmò›ŸØ”Ž.Œ¾n3 1 >c¶ÞyR\mz‹­?´­7ù{F²¯B‡5J(´7 õ­­G¢9ÈšÙ¦T³.œÞr:ÄàçcèµD$ú4‰HÎ>Ê`G‰ï¶‚cÛ‡Raõç. ¦;)˜Ì^"8úÜC×Lf ó.¯.š|&9~}ˆà Z–HÕãÁ›Ý{ªOî[4™Õ/ÎæÍà+-AC½ók^Ï©ÞNpzðè^IâCÉ BcÙºÎG¶G=ÎÇÈvélƒrSñožG•í?Ƈ7A>^\ìk¨~êa|j‡M’®FŸB+¬YFF…0]ôtæ¥wè¹÷Ö§}ªùŠ}¡ßø’—¿ª9}¾g˜‘–DC´"ÓªÈÿh» pêrT`$t'ˆ\ËX5‘qkE4›ðÆÅr¢Ñœ>/~ ‹cAÙ*~ì*ñagÅOzI®|¥:·ñ'æ@êGo‡¬Z(¼ô5 ˜þ3¦#LŒ|>’…¹͆:M°—˜õsÅ ’û ˆÌ…BÌ™2§!V¡÷ÃR Ã3î0´‡ð´ÜnÌm¡ŸWéè-ÇpÌ2«¦g˜_ Pç( µlÙí¡löüÑ?€§9'öJºDÉA<6*vY)ø£Bܳ[Ž:sŒ ï7ê¤@½yÛª``aÎPôçZUáMa‘-.?ÇÌé D j…‡l¾ÊÉ>YZAö"mŠî?3¤S(Ä°ÇÐ7R± ”†MÕ›«&¸ø>ª]°Ø¸M”AX—ž£‡´ml²š…:vVuNae€fhXè\¼æŠã3”ÀáP"až!ËÞ?“èøu¯ßéý`@Ù+O–Îy ¶o6Æp¸ßE:#+bÙ<ÝZ4Cœaõ‚EâصfénqÈ¡ ‡ÃÑ8M]O²™U?pö³õiÝ×5EÔàI›óçšJ“g9]F‘C^¹Q$"0^\4³V…‹Îëh\)u7Y€˜>K9w-ç˜$D'µ†¥ÐÜ7'Š‚pãœfÒ¼\ Ñ[P[;_¤êòë„¢ å‘R$M[Ê ó5×™5áþÝãÁðÅa{ïÛáa·?ÖõÛNçtø_zÕ µZÆ„t‡gƒ×LYœ<[-F‰ÑMì§ 4£ìµ}ps¯òô,b¶œCq° 7Æ]Ú³§1ØP¢v[«MmF˜d~AU}CÐ OÃMÁÀeǘ :ÛQ*T¤ÝBH|AÚ'í2WÏ~¨¨x tSVWÖt³Ù*Î ûŠÜ‘$¥(ÝB$¼G-7b¥¼Žâ’¸;Gm4c댨©¨×¢|âØ̥‘[Ù14¹°øˆFÉ©ÉšÆ8ƒF¤ŒsUŠ¹bÅr»ìÝát)ìü1ºÀ;ÕÉ¢ÑY,WóÀílИ‹V|¥ã¼Â~ÇžÈÖÎwßúþBE‘ÁF>`}n>oªØÜlýn>=þéº==tÙ4*mâäeŒ–lÝ_YŠq6]g5õ1”!_&œ¬%9ËÌ:†‹\'&Œ®m¬>ºÀ&s²âÔpsõ®ƒŠõ‰ÒØB»°ª …Û±±‘íý}Nᣃr\F]š¤kNe]ÃÔk!ÀìþU‹ª§ÖN*Ö7v*ø+çÛþ…Ú[[OçÍy6õ£–†—ûÂT}ìÌ؉Ð׶ïúº«a&üC+³ÒA‰çƒ ÈÆkÜ$*PmÓdøÐ $Îó’p5t†üÑ X0B+e®Úæ8sjqÍŒ7¶Â$jƒ(^ÀOÌ~»"NM‹êj®Þi—(?©Òó `…p>ƒÞ‘ê²Øÿ¢(A¶LÌä­»-‰-ÆðYÊNI$WÆoh$[ò[¶…ÕìÃÚ01-° óœL&è½dÍž†l5.yð”r1j…—4iÄЇJqJéAîÏqžÍ€§¿æ„Wñ5+“\`yzW„…6»Z°ÝhÙš¡˜7ߪpÿ¡ àÜÉëÔP£þ„»L£ì0Q:+1Š§¡^^ÒSêǨæ¯ò Šºxô8œÜ]»l–qªrQÀÍç„ó;º¯ÇÜ9Á62 zlàK¡™­Åëø•O€g2%ã½ ŸU;Y÷¸‚€¢õ8†Ã$x¤ "'KC!¹Âfwåt.“kð±Od;W“Șa‚•ÃÒ1)¤ £*.NþÏ`4ÈÑÆ6U ÆF™k"<] ßÈÿ)®µš}×~!û“bWP£0‰ÓéJsé”+XZ’‚ØË™BŽƒNwî®®¬«0±1ŬÐ0H£¤dÝœÕìÁ×()#‚7PBmç‘Ä3À|Fýîä½åF9K®(n¬´ˆì¿d¯FtŸ F¡¿cʽåWˆmDg«t:‘Wñ §’8ß?P*BóZ§¹ðò6Eÿª‹´Me¿9V×iø^Pwâ5 þa`›n!ÍÑC¾‹@ÆñŠ ¢ª^;ðX©¸Ï¾NùÌ_›OGN€¨u9È2:Íq5µË‹C¤[*¯B*iìjx®‘ as:®2—A£°èß´ š?žò.›I6[Ân¾±Lw ž2Ë©øÓ˜ käùJ OcòÄÕÄhÚ…í<½’î¯é{Øu“­‡„<Ü Ó+ö¨×äÈÚu)>­®3æóG/±ü`¥’B^ê– p%«&ƒW„óüs@\€ \õÚh—‹ôüuð°æp¹¤Ä8ç‡Is|Ûý,áѬæcñaµ8ÜÜ8KŒ5—óÊÅ#Êe*—†Tæ|>b‘BW-ªE–`bäû†ˆ?=æˆ#~xZ {?< Ö{Ñ]ñáæöŠÍ´påûÒbÕ×j«–æÈ”8Šß¥ ¦Â–Vq<¼˜WßF3«Âc»±€Ä˜/qža&á]:’ɦÀA TMRò&”z˜µà6"zGù—ê¸ A­QÁ õ= tŽ \”˜9'¼›ûW’”žá²Äm²Pí(Ê´Ò€?zNmœá~\% WHõÕF½&…´K†]¤0ûA/˜(Æ9GY¢ºJ¸½féSó‘~[öVÌ­`E— úS=yôë1åÃ,øâ†J¥G k¤5éÞe>Xt!¹°Vn5Šþ¶z‹P«˜ýð"ÈF‰9 Y.]4< À„ŒâY²)¸g±hPЄݮ¶'xõ4„±Ë¦ÅÍʃÁÊ\Ò¶6nCʆ]%÷Î|)šÀeÒ@Ê1™5§ýÙ*x·s*Œ¢c{…qà‘bñšP{=A S0COh3Þ*åªáVsfW[ENš`2…)Q„`J'X«V»Ç%v™uX°£Îú¯Å£ŸWé"±×°£tÊa*ûénS¥È@DاÄͯù˜gÚN½ç)àŽgÏ~¯(.•ÂÖÕ%Õ"Ìã¯S|Ïãº9ª—— á/òÛ÷ÿŠ³%={Iß°.ä¸óuÛ§S¹p)ºd:.ží4u¦ûUŒG4 5¯]ñ¼L&fY«ˆò&Ï%%Ù/bøÿ%Z.–!¢\ª¡È ÷¥;A3Ò¾Ñ 7 æéºÐ4(̬ß#ã0õ⥈5Z:*ˆßü5l”Üräy!Í‘cò 2F?Í%ú‚÷±àO`ϸÐüÅjæBÜ?ÈÉäƒý×hÑovû {ÞK¼0S+æjFýbðñÚ¸pÜZ•Œêæï¼5Áܘ¼Ýâá4].§I‰ àu9 vÒ~iÚzŽ£ÀÞµÂæwç ƒsš¦­|ܦ:‰À†¼DÖ²ätlPÍã³z&YÓîà »˜]Vª‡¦g ^=è”c]ö Ë”¸ôƒtÎpM£‘E=]ÈD¡BÊ!EÖEoŽç«Ñ4ÉM"«ï›Q²ù FƒâÝȱ<Κ‚Y~¦HýÙ”œY \1ßÐÅ.IŒS>Ø3_ª¢ŒýœÆcÊ>“gm •f——°Š4c2]¢æB‰Ðʃ™°C&©´¹*¼D>\‹erþ…&<»²Ã ´¬>J·¡KmÖ93œo“s! –Ž#)©vg°Î\¹Xu¸ÒPA½r‚ÁÚÎWñ÷ÓÊÿŽ®W¡)‘EpÚ74Å2qÜkš½2Íê4Á&ÈΉ_ÐLš(³Ì2Æ!Có/š¢k˜Ø<øÖ šF— "¤ùeëÆÉ2#(¯rÐû5ˬȒLË‚Ÿ]»ÒSÛ?d6ýX½^• ýE¡ÂÜ!`ñ¶PÓÛسs ØQ^K˜ƒ+"²EnIQàh¹Ìs)˜ %Îβéäé¼G«Ù[½eÕ0<Ô Í–Ãð†,8UÒÉ6Ñè8Àø“)…7F‘µ˜:2éhÇZ¶8ºXÁî§ÜôqÁ™CqµÅâiî=úµh•âÙ(Äct‘ŒÞÒìÝÒ„_‰ÔÛÝÕY€æžÖxý0n ¤¬E!¡¢e˜]{€P<Üe Ü$†³‰‹mÕx-(þ™¿­‡¬ÇBnµVRw}ÎÄDõ¼ž<¨‰$ìCeX ëLtvEãh…¤€JbCÂY"Ÿ]·ŠÝP3%±ÅùjtaˆþúY!ˆZø°Œ–ìS œQÉtÎ=”È>V{Ä$_†k»„k1µ×n¼`…b ²yÍ]XšÑïv_OyÜœð°sør8 s»ÙØ«÷‘5`Gà‚›F)Ü•ÔÌù K~hì¾Ü|3¾W©½¬6Cñ¿Á´+–±huóß.®®©»z¨4O8žñÖˆ¬àFqNpNëZî •é’bRÐÕ1É[‚39-œÈ\Êj9g—%Ã’÷¦‰ÅÞ ú¼SÃøÀñÉp¿óâõÁA÷¸Íu¼B—íä|5Ókž˜FK%/r|n~ž‡§°°ûÃý×G§‘x1†U6´•z$ÃuË&NÁaÈ’ï¸brb@'¥³§<|A$ºü€˜6Î.ýWÀ% ÏG¼©voØ"¼.X ":Ôíºµ¿ípzíÓW¥mL…Îñü‚×µØÉ\£E&)HäнœUYý&±Ç$-‡ § —ÒÎ¥zÿÅÁðÕ~¯©ÑHóéG*œ óUâtYhÞýÐ*Š¹©’ÁœàG«Ó¯tÞqá21©ÛÍÍÜ\vXð`Úê÷=ŸUã”?5pE³Zïê÷’ï½BÒÓ;¾g²áä«gêwœ£ßì|ä¼”fÄ*v<ä|Xê ÿi)¯–?®ô%Dõ„šðÄ-4µVù=½‘ëX¼: —j¿D¸»}ÉÝ9¿Þ²Ÿo9j|µm_m‡æ»tÁ_Š¦Æ~&G¶šé ß¡I+[,K —cCnI¡A}Jq”#à*ÎoŽj,`ãŤw¢ªÇw©›¬”wo`ÌlÄKpnU‚ÔVÜyä•Uú«4ÇI 7ºÝ^æíÜÂpÔWŽxïšTv‡€3µŸåú5DZ5Ò’Û$ˆUÜ‘w€Wý±Ô¤þÖÁ¬ CG.,kú~j³HÜþqBòÆO‹Yoü8P1 zCäÇ+^¯e¿#?Íȳ+¤¢n£{ôª!sÉŒ£ ýOÆCà{ƒžÖƒï?µL@€¼‰ö¢® Чkº|Ö†x»ýáË“ÞðeX‹îQkÝU·®ƒR—r*wìß4ŠoQy¾âD†#‹0´q§SŽ–Ö­áðM{°wr´7Ÿîµ·ÙœÖõA3jµZ>êʳmÃá¾+F7€Õ>Ry-Ù¹ªõ+A¦(xHà'[f»D2n7ñ¡¹ì)‰‘+"ó~¥`¶AÚî“P ‚d QÕêÓ$añæª4zç人ÐmuÄzÉ5½ž®D¸ýÑU†4ÈMQW=ýçõºt/W3 jj¸š&„w(—kÐ  8h†Ô ¯/ÛÔÓˆ¾_Iþ~ëÛˆRÉäI„YàZ]C‰¢œ‡ÕúÌ&v¸%¯iv€ØjDQÉ­Œ+Þ¬Oþ¯ú¤mN«þר(»ŸÇ…ÒuZ­ø®Ulcͳu•ð/gw©i‡kjŽn­‹ÝVác­°9¾{•Œ/ÎXæôl|SO|Íä£1Íð/ɺ¶žÚ¶šçÜZ­ÜÿrÞ¸W<øÉbñ{þ K°«^w/=Y-søsÍ—~¯úg´_}1»g×Tv§}ëˆ{÷¶:K+Ý¡‰ân¾­_wä¼qKûËÛúCZ«j¯ê}ÅN÷ÍTíö»v¢¶¾ýZyï׬‡IMy`ª¤ݪëO† yCR˜©°‰p­&“ÄýÍå2K®0·h®/5PƒqµIàVõ?v™åÁµ}†þ4#ÕJ°¶¼¿ã T]? åÂ|Æj >ý~§‡œZÿÞ§5ÞOëÉûù}áëŸð¯è\Ñ©¾Ïê/¾Šþ’õ—éøï³ûº†Àv†Ã&r ÇC[a8„…£ß~q ß‹UÞ‡÷ d­í«çÌœ0V¦2Âk‘¯8^oÆ– ¢DºLò<– éi H¨>‹ÙÏ+ñ£I.ØŽ.Óyî“áðàø5ð£ ÔN^|uOû§‹,ÚcüÝxæål‰YÆo%[°$% å£Æ<ƒ­YÖg¥ü·)äÜõÕ9m 6C¿LÚš÷% ðd÷]F¯FTàs0“y·°(©A6³¶ð?~äw¶¢¯¢­ŸváÑæOÏ?ÿûæçò+þ«§i‹ p–xUs’kÛ)¶â…Š&Φ£ ܲY…;<<ÙkI9ܸ'~ÑŠU'IaÑóëÙèb‘ÍÔ‹`ME‘Ü¡Š0vgM|¯)aŽ-ì¤73%=áÒA«žÍœ=k(½ðŽ¸‰a§:Úå¨ËthÙÈ7F¸­Ý@Û—P£”+Ü,‚RõHGèïçè›”(x•‹ìpØîÞø¦)š#‰!å˜ä<‹Lã,Ò >¤`’3JÂ>²rî|».58ÖäRLgË Õª±íðËE½Ê½ž ³»ÂTSÊ1¥ìUi-¨tŸr`q²`Ç­&®ZvÕ²¥œŸÚÒ¹®zG-ᵈ­ÍùEL$ù‚p¥[ßÊ*¨¼V³-¥‚RŒÔÑ1QÎôzž$Þ±™¨ÛºóOž©c¬9f瀦1ɹD‚oî%¦ld$õÜ,»a¼2=¥WÍž©„œ¼ ÁMͧ»¬‚+{{‚Ë_רˆÂ‡‹íÆwø°ªóò%zb…cÂ{ó™‹£¨ú õ&¢†5º¬Ä…)QÛ·W»}nôT§¥\H¸ÊËjE¼{·L„îÚê£ÑU¢ã’²[»e<•õ_$Ó¹Ö¯yÞ¤BE ,ˆ¿DÙ¾t^&™$ÞáÄèÌ´áÑv5™¨±Ô¤@áï%åJ©ò=™c¥€àbê»HèÌÞ…dg„Kob Òåèf†SñèóëVóÁ£Â5…ü ØC/“Ãv¯Ûêû{zGÉ]é¯ åù<áØm½‹°ÿ¿ÄºŽ«„°wÉÓ…O'‡U¤Ku“Zg‚ §ŸY‚^'1wÇ AÎ\y`ÿ+0wÐuèÔtƒØ¬¿6´G«Ü10ziyß}­*PiH yTV•If _ ,œë ê0­ÞGÀõœ˜5óÎTdþKƨÔ!€ò+¶ƒa,0NÊ*÷C£îb2à<ÆÈZyl«äsŒ‡døUîâ‹?¥L…^(è û¯û§ãý†¨$íò“áÖØ2*ðrÿàõ÷;Ïžú-@ä2.u „tNßô††üèOˆªâ0TŠ²hÞv*…÷5¯uñMËÅ’=ˆºl5Mc¹ˆ¡Àá ˆ/˜_>ÒB¸f˜*¡¥SaÌÝf&´8aT®Ø_ê©‚ð§Ë<™Np~s,ôºßÛ¢ œßös¾¾!˜´#J[n‘Úú¤¸‘«ÍLójé ŽºÇ¢ ß6徊FOåÃ*³¡{¥"D;ø'Ð5G„ÖTÁîŸÑÌ}FÒf÷»ö 3|…ŸýéïÏùèiëÙ#a€ÄúHÌ£óüIzÞºø=ÚØ„Ÿ§Ã·Ÿn=Þ¡¿·èoøÙÞ~üø‹§ÚÚ|üdçÉ㧟>ùÓæ|öÅŸ¢ÍߣñÛ~VèSEº8Ë’‹Ë›¾Kù¢CÿÙ8 ˜0u/›_/?nëËgÏšøï—Ñ«x–oü­½À™iFí)\•ðç>Ü‚‹<,U5 Ì—[ðÏcd{¾OÙ{ø`P®àÝF ü¦DFî<&ôEQ[€ØwÍqL¤ïÊå-gÕpå°Ä3jÑú—|pà‚tnÂ{¬Ÿ¾ºgÕNö¡ûÒßž*ϾD«µò]÷š2`Õ«±:QœÍÈ »edb†nÄ)«)"2"o‹Û¦î~Eë÷U!•à à7â®r€¾uªH™H¢ÙwEhïå«ËDòõQ 曜FÜ ÍÚAˆ=¢©Û¿¤)‘À0ý ¤dZt‰š«9'v›OÉŽ¨ÂAÏšy’Í "I"äÆŽ: ²á©î%SÇ„K§„RX ] –ñ+•‹ß6ÅÇ!´÷ž¡î•øtškb™û’ ážìüä4&a›=N–/úûåv‡C~#͸j;xº¶ºX–5õÉ«b…'ÀÞT#‚F5Ö}•òc‚ Ú_ÄçÙìåôZÞüý^­\„ñY2…/Bá½XáuØIytr÷Ö¥Š±—²MpcW>^\–º¹¼X]žç£Ý;ÚÙvR’ëV…­†—¢QŽOú?ô Ï°sCìÙðí,»š…¢DE†’|5 "E.GOŸÁUvôèé³oƒý×ÐöãàQ¹áŠÖ.æ_Båùέ ¼:ýðÊe{…Ãyúìí-M}tÝÃabT\U`?¼Ybl ô>ÜHø7òï0&Ó¢¯×çb^ÔéÉ›Nïôw‘íÒ!ჳöŒüæ±å¥µzõáU¿‹ß‡•|×þ^1ÒçÕn‹÷ÞØ÷úpÐë~otî “™@Ôÿ žÂºX©ëä‡4ÀÆÀpÿ•Ñ“p;vOû%åÏ, “«BY}X b7ýÇ@…J“s •”b7’NÓ#^¨Âøä!,RT±~nC}ËýÁ§aÿ»Þã ºðÅßï‘GCÐœý‚–¬æg¡ Í>a. ñ6á¯èië{ºpj®îk\öNúÁ×ý×~ƒ õ:šN§NºË&ÃUîº}ÈÎ$Üî·¯Q‘RŒtçÙÓÂBᣵèÂCõføºß=> ÕdðaéùGv5O~^kú[{«ä¨óÿ¼î>¢r‹ÿ]À›ýÉÇ÷ÀPóË1&´5}=x² b7¸{ƒæ9é—ïÎÑÿÇÞŸ7¶m%ùÂpÿK~ D™$¤BÑZ¼ÅŠ—–h™m—¤cgºó` ”“› -«s3Ÿý­ílXHÊVœî¾ÖôÄ€³×©SU§êWo”œgîí>ïô³17t¨îöãŽ.&Û{»\³Ú‰}û¯[?’,2CãgNS,kxÌ$úJ¿è-bàšï-ó°è¾ßƒ†'Í«gÚlŒ»¤}ð²{z”³üZ¤9¹lùÏÚ:·2ÐZ'Г޻¼[M‹~ *’$èp½TŒÒ‘yáð/ë¹¥RVh«ùI·v{§on=~çùI7C9½‡Ûrì݉àȧe½_¯‰ÿMû´“‰*?Áóë§ì3ÜXõªF;#3龘€›\Vfô±BŽ·ú¢÷¤s¼œaøº:gÔ8øi5®hÞV¿ü`Úô[¯Þø½³W]D´ k9[µ£¿}åç-ëÛÝàúùNáó]ü^Õz}5F2«þòªQ3»L†zyOܹÄG3™~ÀAà VY4Á”têKs|ë¦ï®3ÏÛg½ìFÁsiÅá€Ån:˜ þø“ù– šêßÓ©›=þ Îâ¯pî(¦eÏ ªõqMZÒéŠN]¨*Õ>˜E©®^hñ€Äuh¡å%Ç‚yÝ;3F#û–øE{^¦ÜÃûÅ%iiîHW&³[õûŽÚ.Z(1WeIáà "KR*‡å†õfŸOOÛwc)\Œ½ÝYn%öv»·¯æ`<½Êžkô,s°µŽÏ_®u°Y!ý̶ê•X…rðb‡â®šo›w]FÑõ DV%d¨¨qÒ9j¹=àGÎ(ñ‰Sr$zê-PÖêBÿeçôGÿ 3Ù'°Kìå¥fÚÖƒ¥bÑIë@ËÛ­¹Ód®ÅL? ‘—Z°9ËGu>JR¶ Y‡\ëüc²fî‡Ó‘ÃV÷uç4'ÈúSfã>)ú˜¤Mt®ÄÅÅmŠ¥7§á›~ùUA )œ¶ßÜ^Ö-­-4e‡ø1­g5É턹õºƒ£öûð!jäŸÑæ%´Ús™?Èo{Ž4p‘£;’ó¡ŸõG¨9b櫬ìñCëB¶dÅЩ°MÞ~ÞøYyàäñã]æðØeTæÖMië°ùcuÇg·ƒˆW·ðµúÒs ë Lg×Ö7½—{ øÏý]twli„!Äf³0b Ef®"t>_Ì#ï¡B÷ÚàåýŒô!Z!·Öçk½®…߃(™ùÞ—9FÒB¬˜6ƒ_`—'½Ã3×Gø?µ»lž%SlhïÙS/„uÚ]÷|”Tîáðó¯KN<á7æV"·Ëœ‘ííVø¾äuïí¦Æ^zë#W -k k=Ì®¥Ñ ºÒõ(~xŸ=Á¯C ‰œ™Í½‡÷·ÐïÝ€RDQ¬²LC×Fá,¦Lµs Ù2®ÍKŽvß?üëÑùy{˜¾q{NhSÐj#Šo¬çùeÇ¢Ô‘)(;‹îðUwÍK˜›*ý!riçôè5µ»¬YŨÿùY÷¸uzxðG5𪟉×Èžv•½½GŽ ßÿ€1MÍ çý€ZÂÉE8Ä|@®xp~~°Jð7¾1+ZDÔÖwAŒ´ÁÛä]?rÉŸ©å;ÆR2{ö¥ÓïØa÷Ü?z­X…+Žöv ?³R±¸^ûnÏ;§‡g¯{ÒSwÓœöíJ ‰,W¹Ù÷Ô[ó‘u½l…-|à>O÷¾ÛÎL6ëó®œ_Ý^¤`f5ðB•I®-à `«ÞËÅl¨¹Z{‚Àè#7“ˆÝïå«îaæQþàYâ¢å•uºì¡}¢%Ó$ÆT_^o+ à–¼zÑysÒ~¢2TÍÂAr#h~'ž‡—³h~ãq‘2ÂöÙÐûç´×?;_gùÈ×1 ÇœšÂÊ£ƒ {(†ÂžÄ+ò câbÎ.gêè{tÑvŸF©'Z æ0š Z[ÊÿPñí¤hZS;ôŽ3Š†KÈ=¢¡¢³^Ó’~¡ 0{54ÄË‚£ANVŽ×@‹(U˜>´BsqšîuØcÙñG/`JI= 9€¸RS¯•È <&}ÚdNŸ„Aœz­{¯Þh¿U!Wî„$¬‹%|ý“)†~‘ry‰g¼59ën³°=:è³ ]ÙÚzæ-búÙIMl“&ZBû„FŸpßùçéÓgÞI2OfÉ8ð>Þ~³Í —¢k|§ÜxyÞ@µ§˜f¢†®7r%ȶCŸ±!LIBõŠý©gÿàn´º„›bìÁ³Š—«:ÄÞ dµ ¼Ql°§mCÌ,õ’†øF]·Ôy~îѳVçÍ^óͪò}«ŸXúüà<[QŠn[M¹—çèõzï4úµwïñööÒV°ü=$3¢¶JŽÊÈBaj§?+ïÝ{÷øÞ»ïܯ+jWyŠÄ˜‚3•VØ…¡lÑ/dhw׬…öx/[W Må´-Ù§Ì!d·NTÔ=S§æ¿y³­&¥`ÓÀOŒÔ  zŒ’¬µzð×Ö8z«šLŠ:å[“ap5&¹wÉ:;¢,bþrZÊ#÷£ç)Ëÿä—uvÓ$s²Þ|–Ä—ð*?¨uV²ßwÎ_dW~«Qö»Î<ˆ£Å¤ž]]î!Î;¹ T zȳÿÒjîe4Ç©ðz‹i8{™y©ókem(ZL¶üé ['‡ÞûÇ·ÞÏïÑôPŸŸÜkM§cPð"áü ;":Gjß?ý®Þ`Ã} ½¥šôÎÌNqÖ3Ši¾~ ó„`°T8c¢¼«¯›Ù‰–dAž\Qá¡DÇ_¨Tºr/¾Ñø ,0³kæ&ïª-òl½‘ =Ÿïós‡×uÖºuAÜMƒ”S˜ŒDn½Àd«ˆVmK]4F”Ž¬jvùaxb‘hŸH€ÝÁù¹ÿú¬{ØûoF(J)œŸÐ„.o$¡X£9&ÙÆÐBFÁÊ9H¡N‚@ò#·n"k”_W(äOÅ2ñ7ÔÕ*M„ MqÚ{ ÑNH9¨b™Œ+CœÄf*Ûuax1;›@ù ®cEœu8ˆ=ªÏëQÊs@™™>™½ËÓZå´n¦‡j*^vÞðá—Þ¤óp’62Ù1¨ºt xQ°ÊÊÃnÚ$ZÀ“ h’¢-¬uk¹àÆý€÷ÿãûF¶9ÿnf ¤ÿó?‚ò‚ Óðþo¿ìó u½Û ´x‰d™z—O&AÈF1"ºpŠÄÙš_}ƒPdãE˜ÒnÅ:(8F0Ñ%‰X'@4ÿóõ-;]òx:U®µ|ƒT¦dsDº€ý5S\‰{Íô"M¡4ev›ÓçœË¶ÁáªHW —rœ1p›[ðÌqþç¶&”ut‹ˆf}k4P#"ÙDÓ?Ūðkdz(õS´$¢ÛRî¢ÔÙôþáÙ«çÇm6« Å©²MPúC•$[v6Æþ^Gƒç3Ôì@1{Ú:ýÖÁÏÏúý³µM—ÆCµKIËE† ®20Öp]^!R{Hpe¨Mý+L Â~G~Ö»‡é81¨gÄM0]xÄw< Ûk`V¤Ha›Ùc‘§Bo§®­Z}NeƒV»Wç ˆuöËYrĈû™G0SÕëÚÕu…ï‚ÓÃðÊdï*öÄÕŒ áìlä ZRÀ9†± ã×íW Vô;;Î_»Ø‡Î(»FÒÍAÌè6´y4w!8´a$€AªVŠ‡Ž8qŒá–ëKQíÏR¼QQ-¦à x‡¹ Üaθ3º Åâ?%o)¶Ÿ{± è^ |ê$òV¶ZD‚QÍ)݉."É uÏø¦Ì‘HB²cÊÈ|ØQçîÀ2£FÙƒ’éÜ[Ì8§b³Ä”S2bÈ ¶uBADöN‰Í¢>á„@Ïck“Pº½#Nû )ÁDòÏðØÀQB“tV¡xŠQóïçÞm(×%#Mß­Ó¦ÓÞî-ÚÓxpØH*dSßP£ˆFGi“a§)ÞFêoG™ÍUWysÆB z¤J`éhãêœOˆÒ5Á»ˆ™ù’åhF‘¨`ÅšÞE‰DÕÃr<Áˆ±1aá~hLp]š8€`ÒúCÖ‘?MÑ€ÊÙäð|aG2þ"7ç4|ØP‰³õÇ /Ô¦ð÷8K†ô_%1‘4žWÉ5ÞitRe¶_KñøA]TÉ„ " )‚zYd%p²ŠV,¶Ž»$Š¥Xã_b& ÚÿSÄ¢¹ÄSØ%Á¢žLf`Öé?5IUž;þílžà‰†Q^'¸%L˜ ;Yª¢\F,s©„ ‚OªLèzŸÎ Ækònˆà™Je(}óÅ‚Î ë sNÓŒø= ¸˜²ù ˆd¨d'jº1í+Î"KÓ4ãr6ši Tª(ʽ%ÝAÜ:J8Y;áÇ` *2”-Š_$ó9€ì3,Ï©'(K”N£æ]\ƒЄ¦ÿU=v$ãÔ Ò 0Ov¦Â Ƥ3ÁQ:Ž(Ù$ïUš6êBSg*®ãbJ%™AW‡bÓA2ÖدBx|ÈP¥&Êù üÓœ8M Úl¶'‚eÈË XcêB"3K¥ò¥ŽÿÛ°ÁO6Ô{¬´:ù Y$Þ5±Oër b"ÙËÁ>ýÅðß›üÑæ&~Æ/~£ÿbÃX`¸˜LnöUí“ôÔã3õÚ×ôm}_Éj2úÅý’çúq¼íœ% )ŒöuŘÎoXy—ÍÇFŠ›veadOxFO ½}Ð÷:|þDpÎ(¯NÝKèÃÁzC¶E²Pô€Ë½J¹/ïÍ ¢MàyÇHò´˜V&5¥MÅùñ©»øŸO['ÿø¬uØ9=¢‹ã›8˜DœÃæ@ÛEBÁ¤½„ó󰩯¢‹YPjum¼q.SW÷á¼Û~Ñ½¯3XqˆMóÆDL]f¶›ïÍ19dkã{Ãá·•L5ì–TF¶‘×ÝN¿ÕF™ ÃÛ|_’ölYOmj88n·º¢›J—QñEK¼˜Í-0Ee´9¦ˆ¿®5Ù-¥´ªÍþ6êó56’—ØR‰)‘ˆlË¡LPP$µ©>¿l·ÎÅR„ݵÔ2‘\DÚÐ]áN#ÅeLI[lhJlUP[È1¯Ci™™²”œÖ$×¹  zÏLŸ0Ïù‹Î÷! á5âæ¸Â‹ôJråÃwl£e²BÂð@V§åh–ünx‹ r>q`ÌyÔ>mwzÏ_õ^úÝöQOR«4ÇJôÓ`ºØtƒ<웇òØ©é?ÉÕP‡QÑ­³~õô©·‹_˃“Î)P•x\¯ÛaW®¿!¦ÄÄ, 'çctÿû{Õ+ùò¼ÕyõñzÙú©í?Õ9îwNýW§è°Uvúƹâˬi uêm¿ß!˜Æíª )Á³î¾Ú°ßs쮸Á` ÚM]E¸)ãÙ0¯,mÿËŠJZE¦ ’B1&mBt,…Î'.ï‚WäoTÑhÌtà€Tò~þ·_ö‹+¯©£„>«× ½’Œ;[Íåü:qD þ*7üâßu:*·ž p̳ÜÏd6èíFöµci’m¿1ÕnçœÙŠ;ÃEPîA%î2AI„Õe‘±Ò”rà(ÂÆy Šd*·Ono TyFTÆZ(÷e ˆ÷ݽG÷¶wŒ°ÉÆ&+éY?¥ëÅؤ~´µÞ‚¼s˜Ôqç9rf;üdz§»n[fN‹®T½„LÁXÍ®—¿¸¶IhsÓ÷Eyß/i­€¢¾Ö…êõÂkqýsM¬Ã¯ƒÞÂT\†O<]V™lÙŠVrÁn×DG(H½ƒÙ|»™°ô< Ç(5¥êœ™­USÁÞÁ¹BùØZì­SˆÝbï†3U¤Å¡r˜iª/ר oõíO›V‰|QEŠõæ «QÄ×Æ©là(S¬Ý'•h—îéH$ÝJbô×É›sþŠõj@÷o@K È\;ošÎ—ŒR„?‘¨„­»ŸopŠ·¦\Õð#‹ Zàݹú c-©0³j’2ÑS¼ÖûŽæÑhb‡÷¿ü[Ñq”e° M%wÒð‹j¥„ý߶k;#Ó9þ½^pŠíp–_ $ ¤&¦,»+ ÷åÆñò¼t w<ÉKŽ*â¨õªÎ.C 'Óh&V saš†á„<"šr4T4w_Ä ™·K»Gí>&lïuþ» ÊTz“¢QL(»ÏëÅ$@H"y€ÇfêœY»õâïxõ9³Ô@Ó—}ú­”eFôµM]á¹Pî¼ ¡”M(“§WhæÙ¢Ï/ЦÉ(°œËhàÅ ²›oßßÙk’"Z2ø-MĜԻI2…§âMAÜF`‡­«=l©A5‡b憎®b¥b4mQ˜'òúy¯œ| TùØ JA©z”=…²»àmŸò7¡¡lÉP‚wA4¦¬BU•§»RÙÚò΃YpIìMS, ½àŸ¶Ê(×w=sS5n¬„“ÍþxX©¸·ßo£¾†”Ù‡Á£²p‡yû»|Äéu:~Ý@Úÿ}}Ò>Ñ2©žÎãäú$œp/[ÊNU¼!«„©šÔ`ìLMd'h+³d¦´iÄäe ÷øä(œ,f=¤³ç°GkõL,\ù<Ù_­9Wí] ®½éo,;,1‹ ^5û<,9Cîkfõb{Ù¨;×J!ŽŠnìªQÜåõF 9äµyŽN¥Ý¡“àüày,¸ÿƒI@òŸKO4åkQ¤ØºÁkpNV´0óý8ûÊò½Ó!žÊêùñHÁù`*õÆPvv²‹ò²˜~äqøJµt-óanF/Ðýj:U€êôÌÒч“x{»è½j\¢Qtz¤;‘rdd¼m+Ôե¼3‰»‚2æ Xæ«L/(W²ô`Áví_à9>’ >~¹sËgK/Ì›7ožÐ6$Þk{õ†Íçè¬Sïêê ·‰¦Ñ’úÊÓL²¢K.½áÍx¨’G’lŒt0ôjœyáBÛÁë¹Ý½’,\Åý» ’/f؃ŒÑÉ29œ´Î‹Ÿú­Ó³Óü«VïIJOéÙVwÏÓ„îOI“@/„t£'&”r@Šd䚀9ø¾{2‘l‡fÂëäô¸-Ù]Oe™Bó× E7N@lqO!—©E¥‰ZiÛ)W·zœ\CÓ'‹ù,壇k0ÚÙÔZ¤Ù͹G8¬ ú³ O_­ ägúüSJðEP&îV¥£Ur³œ4šLƒÉÿt…0§|ŽxuãÔgd0ûÖŠÀ™}?H'¾ÿ¾#ßqÔ6†ƒ‹¹·Ýøj{Ã{ÿ·1Ûú"çtθ šÖûº-;_a­j#]³kö-D3”ÖXQ$Ç%‹ÒTy¨ÍÜPªRôÁpÖa0»Žâ&°¡?#Ö£Ç]U‰ÃSqv;Ÿž©¼€~¿ûóñÙÁ…ìÕdVXÁóÌOŠ3³É;"¯4©Û¶›Z_~;Iv†ùÛŠ>¶€0“ÔnÙÏT·òÝ2ÃòÒCÐ]ó’;¢—äª-h· A‚èÕC-óf–`JŠðÕSÃûšM KoN–¯r鵊ýÖö+-tÉá’¹gY5ùaXé5ÖÚp;KÛ×g©¤¿ ÓÄgírIçköwuÚãg?6< úY\Ž1¿eÑÁÊBK9¤áfÌ ÛïÛr"êÛþ4š,€%3»J†s7·Ž‡mæ6r»dívÊ4!l@%&Èë?ð¦äÞò>%tUÑ/”¥:‰/éž@]Ƀøq¿¹kGЈÜZJ@ëݤq§‹/KnwD+²å†TgûÄ !:ÚCL/]¢²(tý\Ûübc¥úúퟕ4T²&.‚¹µ$Ý~ÙŠ,ŸB‹F\°‘âN¢Éq(Ìt-_mõŽÞ)uÙФŸ–à¿Þ}—CÊ öKÄzy…Œüà¸Õëáoô‹|‘¦Îq7”¬â@¯*J,§2Y-—á4ÙѶYY Ü‹oÓ2«Mj;T ”)õŒó‰aÆß›ô§Ûœ&¹ï…&ÒpÞ¢¢uµŠ§¢DtG*ì¶;]<âO(ç´$ÒÈÉú*ÖRGÖ Ç ˆ»tù6 ×”|'Á”¶è,L)bŽÜ9u=^n¢³±Ÿq¼3Yï,Ȇ¶MǦ»ö½ŒÞ…ÞÅ Œ#Q ¼ÞÅì-ˬì¼+>©¬z«Ò*5.uE^±Ûx”dàã0•8swÅ{„©¸ªÃµS’6]ßw™½I‰RPH2+t1™ýâ@?±âI´ýÆ'ÄÚñr–n—³Û|Ôô<…áYÑ'è’wAF ú^Ý ²_pÌ”pÌFdÄçZ*­é4Pçˆ1ÙqZ\ fª{Ü9éô…osèŸô£B©ñÆcI¨Njå?ÍᩤQ)7ì;^K'.g zv9<1)èõbÙfówJzǦs½ŒÜ9$¥•Š,OÍ¢Å͵'V4$”QÈ”ÕT,Ylãû’YäR°D+ÌÝ—ñuŽÆ(k©W…’c*·0p`O¦srRß”ìç=Pµf0š÷={•hM¢%Ãv¯mÖWßÛBÓ댼›dÁ±cð›…±dBá Œì&!(QÚü…#²Ù-€o£(–’“>±@_J9íWÀÖ pŒ3ún#–’Á @´c@9Ñ8æăˆ\&x–<ÕÛ):à¤hü@ψ‹²1qe û(ŠX¦ ¤y’PìZÓ©Š–Ô±8TT¬Ãúg"‚f²˜ëÂœ7’qP­?…ºÜ2K™"ôù¦a‰@”™lµ•ìÞfåËe‹ZããæU㬎֔†§ Uéç‚B­µæô2Ëöò˜ï¥µAÅq'T¶ŒG\€YêáüFiWFOixi".}–ÿ6¦jA®æè5–|fŸËŠãXh Aæ«ì Q¬Í »Í mÔ"”z×ɧ‚ÈÊwJ¼Š=™ÔMdÂò“M:ãnó;…K«$IœºûÀW ƒ:‚ÓùMûÐ6Ðh›¶ý•ŠOŸÍ¬ÿYfÖ"6‡y1ó<îàlÉ¡óÑžæEŽæy?óL8Â’û+vá/žN Zt6ÉûBn~‹ƒ6Z·¼ËÛ·ï›DIv͹ XzŸ”»÷[ å¯Î›JŽ^½)ºÛáƒjÝ»œÛ(Ñ ïëòóékucÏ“àðž½>-‹¤\;ТÄr¼”ÓÅ乘ìbdê™c"F7±­Îq†¨*ZÑ)p0¡Ã 8bÁéhÌ/œŒd6ìCZ0rÐ¥‚1Ùœ©Ü%Ñ7sž†cDbBA‹±ê`ä$qÄm²wÂêJô•¡â¢½C䤭÷0ïÉñuR‚j 1¢<²H½1ÈD¯¢®«æ «qÚºœA ø÷÷Žž»—ƒ¬ÌÌêô°ý¢sÚ>äÐb¼©7KØO_Í“·Ô¼›kp™¼à/UЬXЪöì¨jÄqÀ3¥²Ü•Ü ¦fÁ@æ¯>½vµ‚¸~°´]jýÀh»ÔúAÐv©õžíRë7»ãZ7Ù.µ~в]ª<@¹¢®Å5%Vò;@H³ ïx¯N÷É£-Y¤óðñCíR-‡…d‹!j DÚ`¿(/j•‹ì8€H£‰3§Žò$$ÀLj!"v[Í8]—ºDWTã°®•¯¶7È+z²QÛ¬ñ&¬³;´âàm+ŒW•œoãš Æ4y.‡p4ó5n€Æø²F+B‡¼ œõÉjŽ.äm„T<[ Ô‘þœ¼øìš´+¶F*”øH>[8–››Ï‚Ñ(KJ:U)½–à«ô1ö¬Éч“¦"”<]þyGXñ8&Š0½÷„tŒa•Ð˧Éî…r­m‡û†ñ·à ¡óN§sïÊÖþÉ,}Wü:d0ß^BØ¢ù<íïžž½6Äÿq丢ë vU×KÛ(Wï$wÖÌkY[}·ó ‡¢Hä!û¿@ŒËAóÊFIq™^%[ža—K…òR‘<ûE‰7±¾1íí¨ðt½`ß`æ~ñlÕ2™ ÊJMJ&…+JáÈâ¶A!lBvô…Å3³U¼þ}‚ÎØ–½¼Ù¨»|Þ)Mi:Kž½ ²"QÌÅíb6uBÒâÑ´ ){ýúí$—AxøÖŠBQ¨Šé|qÅ£„0Õ \pÔ¼óÓùÛq¿ó‡¿^N§‚/M‚݇ßíØŽ_õzYá­Tå«!B]ú÷­gä›õ÷Ò[Á¥?ߪ±×ë eigòób×fé^(-JT#íÐféß:øgÅÖrX­´LAvŽ1­Ê¸e,ƒJ¥¶·ûíÃzþËÍ€¾y RS©(»T’-kßrq(oßrsÈhÒŸÒÝaiDT¡Ýócc¡– È}À‹Z²³wçZ3/‹É˜“ŽE´tò´²-;Ãñ‰àq•ds6ÝpÊ`3EHD»éÇó' D8ñÆ·BˆÐ'[5wÑËL|zÈýÄ‹ñó©ì„ʱÝ?ÿ|“·[ÿì|ßÄ’†Ó³Z$¢Õëw *¿Ž•Á`Šp¢ÃÐ !MØdLÃUoYñAI0¥Ü„q0aPÔƒ-œZaç'˜ EøV•Ë€Àõ§*¥ÏU vÐêãJ›6Ù—ÓYp9 ¼`ñÞš#ocsc¿è ¢w«}ëôÔ-Ãc»áÊÿàaÖ–$Ƀ]Üצ«%Ö§¥€ù|´’ ^9:×2öÛ²HL<<ð@ÖþyËü4””¢u‰zo¢·ÅÁª‰}½´8Sp˜zä,ôj¼è €ô|ô [……:(¹ýYˆÒÀÁø‡g§}ÿ¼ÕÉÞŽ©(iZÓÏB9|FrЯ> ’ßäþiHÖ4þ hª‡Ëàèx£)år¯PJ¢[âJïJÃ_-ö%WÎÁ’;õn ï ,çÿŠ7Ö”3*oC±%Kúâ¢5Êf*·¡®á• —Å×Üîæ¦pð]8N¦²IÌî¶x?PT"?¹¸•9 G̘¬çÏ%õ뙤Œa6tæœf©øö{éYpK„£|¡5ií/èÑygÜ" „r»iæBÎÂ[§'àú.êÖÕg!"—{ðpíÐ"¢37Þ9Þ§_ËŠ1%µ_÷Ї'ÃiòÁöM$R£ßûïó~—aè­8zt×LÎ^¦ûâ7òø¶¥kÅeê…_Ú¢ †[àtnõ1÷™Ys{(÷ë Ý ¢¼ý«¡Â *² püšú;§?õÓL\N×›mûâ»FíV·œÐêyƒÕ·^‘;Ú¨^_2¥aù”«…ìPò ÿà™ŽS`¤Ôk¤Òµ»ÿDÕ²¤O Q¸þ<Ž¥6˲d3ldÞ§s(6×gq, ˆóklûW°ËŽu1Ê¡öF‘ƒî²ÐFϹÙ¿3sŠ9º¥äÎÑ1ƒ‘iÓùb4DÓ% Ëç3;x)Á8~ÜàóÝáz¹;•|_h¼E€e–ˆ îAa7‹¶íH…­6P »2”ø!²{·tõ1› -J8N®Ý”{œÑ‡½s$\Ùú¼Ã9¾Èãñ‡)y ¹÷ ìÛ,ø\Œ%VÌš©`xEËÝqõ÷³Ë[¼óKX6Þ¬aÀ1fÄŒç «HN(’â.$õ'úð…Q™†Ñ‹~Ø,44½<÷Ï[%Ü„Þm8›“ãÃ×Þ‚w žaãÀ9¾íÆÿòÜöâ·SÕå|üõ1k£š'Næ¼óFHŠegÉT­5¦ÑkuÛ°«ýÞk $¤8o C=e ñnÒkŠ ÔÞ—˜×ê©DN°qU;ZDñ‚“^¤Éx‰?ÔúgàÉy¡ùÖñqûØ?iut½±ð‰ÿüç~[“Àfœ ûK®w‹”eÞûzŽ»Ù—n¯Î-‚Âõ)‘ÈðÕÆdߣ…¬l’;[ñ©ú&áÑû÷*vÅ›-â¿{y~ïÕ5÷ß5á‹‹* hªo Ú3!SòIι˜x3œiÐ#IT­`ÔbKª´ÝÀ£ø]2Æ Ì¢yÉõ–Ó °C-ç7a§`¼‡vRSvHC9Y…žÞÛT·] ªÝˆhìÈÃÇC:cȼ{ï¬gõ|‚ylÄ-¸Ö‡Î¿¥Yë7“xô›f¿éF¿¦iÈY¾ñXÐÌê>!Õóøo+ÄÊ‹í½=2¡“ Ã{á|p¯Ÿï]Ý´8ë·œÒï-É Ÿ../4{ .iÌ:èÎrw“®XCãÂ|t+›Ò¤}h™TêʤŽ•ðQe¥\·0°ÜK/v±dVÔÍJn®ýow¶$Ë“å)v™^ÛÞÇÞo+éTÊSöø@ÓfR¦£jØ_YžÂë:{µãÃ× o›þ‡uÁ/+ëø½ÜjŽ\É5š¯ `µÂ¨¿t±ÔúßEjˆ¬+™…è¸3òVZB*•.qþ²LV w%‡íÇyiÁ>r×ѧy¼¸©ºüÓöPÜ“‡íƒ{xXýÃv¦SŒ)œ*,eNÞœ†³wl3ÐŽ¦V†_Á½$SVÊG¬ ‘`Ô‡Ý݇÷^ÆÕ’ÁU…•²÷1s›PUrâ!¹#…>˜Rò`þ.ð<§BL<‚p0oû3„†AŠC'pH‘VÄU¦d}`Ö×U +²[â¹=ÛeÛÀ³¥Ê<.Æ^±+>Ä·µÄíz'ÒéJ‡â¬ ¼×O¯ħÐ9×°ÍXŸe&¤ø¥LKîeùäàéFRZûàìÅ‹æˆÆ¹N?RTPØoÛÆsßQ‰—xa®áŒ²£mfèÞ îaX êj@þâyz/ÀN7ÝÜrÿøbÈy/bݼJÆx=ÞÜÚÜÁ.Òáßî?øeyL84¿ÆœC¬fãn'=˜†÷®ÌÞº½;Eû»=«è¶Ó;[¾È¯Ð+•Àp{1ñbjðY é†0ŠÇŠ$kŽ±¥<м ,Ìnøì¹¾¶c¨!8fEÄ0{ØFtݸ¹\(pIJˆ˜Œê[±ï–yëª[ך½ÿëÕŸ¦­zýÛã_˜g“ª§‡ÖëUÄ€· ‰Ju¢TTŒ°ŸA»&“pQŠJÑ¿RKcÑå^Ò¥ (¶J*pôÄʼnUñ€: 'q1tkÄ» ‡J¹´Ç˜+Ý{žA³bõÒÑ,óÁ»,¬Q“rt…ŸÛºd­}Ý8²ôU dƒjÞPbñ]/2ö¤Óèe¡GêXлëCXWH²+eÙ<Úå 6wUšƽ¹ºÕfæ¦M”âòÍ5çº$Q,e–ƒc-œ" ,ãLLâ—'ŸŽ2SÚ5|Ê|×4:p’£2Éç%o|åÞ%yæïIšy¾EÖÁŽÔ jRDÖTøL+cš ]Ã)ÛÝú þòg„L>&L±˜u2µ†u+ÓȺ–É)|Ï8$ŠÙ„ï;z§PÃIòu#“çèº ¢4L7áÙ–†œù¹ ÅÕvŽÏIn]j¤´ˆÏ±GªˆBê=&PpÎÙBÌ»*¹ ]t婯ü•žFØ*&ÝzŒîmŒéj[Ï;VÇ ¨D©ÖUrÁ›ëþÎÃÕýÏÏF&i`aL¤kê«”ÄXûnaïSu~” ȪäßÈdn«ÏK˜ô ^{ÛÔ%6"/ohE÷Ôâ„䬣oºå”ªBŠžÃD»øñîZ\€ ­¤sœ{Âh´´I«Ž# 4<¾  A)¥T˜j[¸zSsyÖmû‡Þùqë M¤®ï˾6»BAçdáÉ«å€Ï‹d>O&ûeÕ=oõÚe…hL?Wà3:㈮ŽÈe… Øúôùâ‹/Êø¢ *匤„Ü–‰ä¹rIG³âHeQ8»N_µ‰”ØˆÍ Ué“â¼%Ææ sS<®;ò¦ýR':4ù¤Øš—“ä4Æi"Gò•ª"F¹AÕ°¥<å6‰“J`82s†Õ4Ûè„œ¿3ÔâS{øŸ!ÇkXiLýxÉÏÓ'e–úådž‡8Xº‰´Ûò¸;Œ®T‚Ž¤C‘]kö2 `ß¹ ²œ°f:¸60`!ë•$3yg†üë™3ÒE¿KTªJ¹ãÜ+jJ©ªVn¹öºe·ò"­Þ±ì¾ÛÜkÞ„WïcPÖfMûˆZKxVGIfJ-aÆïœöÛÇt+Ú9nw‹ÁT !Tj•1c•üí«í_6$Ÿ(â‡|"‹®® ÂæxEÇ@<ÂìÊjKç£&Yž©®§£m]BR´P]²z>|£àá}˜êY,°å³Ã£¨á/WPÒáDkx0/¹Š ª ¢%“sàÓØcÆ;ãèÝ»W@2 å6H…¢E3 óĬ0`q0AŸ/MÙTÏ>q⡲&I 0{Òüñð"™SìÒè]8ˆüKý0Šüm†ç®“²çˆ€ †?]ë—{uë¬'—…™á«u’,:2õ¦Ä_RÞø…P±ô|)Pq@…’0„Ëi,C’ë!Õþ¹ ¡ …Ô+6ëÛïGÊ2B`žZüv¤ò"w¡ÞÞ£íªl¸ÎHü¦çx»&˜ä$¾àŸ”£hm8îÕÓL´J3!á|•µ·÷ݶ‡! —ÉìÆÑÛó”„Z–@uYîÉ¥ö³¬¯ú½ò¤Íø²Vúß$ídñ•Xɞƥ)]‰ï¶×°CY7¾p<@™÷從+=/—¹m®tµ·/õçåóã)7ƒSP=õîo÷ð˜NK¤ÌÊ]›EJ®JÊ95‘°ämtžcßÛ}àä˜qm¹9³èIŸgç­—ìà|G×KfìÛ)YßÉ“u«{"UJjy‚§BKO±‚äQžëNèAaŒAö¾ÒÓ?EÌÀ¹’/'(Q[L]ËÒŽ¯ /s¯Xhé[çín·Òíù ÖeAIüê÷ß#°ÿ3Ôï¿Ô¯W¢dí²Ø²ÌÖª:=ëýlyÙG©ž¯Ì1‘ã'&‘é`Mç6dÓø4åîÇ+æ|ËðT9úÈײt“þ{ŠÞBï–nJ÷yJ5…?P/Ý+¿¥Êçܨñ}¾Zq;UVÁÎò”Ÿ¬?Xÿ Ö·Çz.wÍvYR£ôYÞXá.…Q$ŠM|t®_ôsöç þâCÿjì¶Ïùï8ÿ/LYkŠŽ´ä¯²ûb·•Å‚‹ÀÔ%çv®XÂßT'ì#ÐñÊèù«}P`²^3ê°p´õ‹ä„@:q9AÄ»‚é{’ûÍ$'–@ÞgU+¿ wNgot›¼oû¯ñrŸ»/AwÍLb&›ft¢c}Ðå°µre:èsfäÏ™‘ÿ}2#+•ÎÞHQqVW/¹º—G×JIï‰ë4L0wð„kd†!™×M.¼I8»d_ûéþMá\ã‰z˜ ÄI|3ÁKõ™ë“!"A´^«ã9²”v»À¬¥€VYe…¾áýºËÊÉŒî¬P u”ðJkû=A=Ì ƒ07ì'*ˆ7Jí™@VEMJ„Qw…l ZìUU¿í]À¶¿I™21`HÑ_ñ”@©¤Ó.0ŽvOÍ-VHº¾cÍ°:2ö 8ß2Pa£â/³ÜdK‰ÜRhZÚ(ø^Q{FvYb:Í[N5éô~êÞÏØûkQÊüख़õ²4ç†a©ÎtêÕéYï“<„  )Œ¬¸39ãÈ2ó’©È·zØí¾qž »‹ÉFxÖ£Ô`8‰ÐD΢§5a,ÍySövþÇ"G£›f†H±ŽÛv,×úP®Ópm$’ haHõp6„Á©tè®Íí1ç!:¹VŠW~x¼¼QÞcGÀYÚ,«Ô«^Éh1Z£~«¢’ °Eͨ至à2‰_ŒoPO'ÈiQ’øù>>«™‡Ìïå]}­ŽˆÒ̪’Ñ™å²Û?éœz{{ùÇ­7Þý¥»ÓZwáý¹a?¡ T>¨Öóey|¬Gz6ó5 _6¥ó7ÍÐý¢¢~«ãe|~çÆ…:þê´óöm&¸çA û*ŽÞoQ†r+û%Í|+{ÊžI tÀÈs ¡ØÙ­gÞE0ä+xdù%>?`ƒ<›½‹ Ó–AÜ2’òÓLfÃÌÃ]ë¡‘Xõ£\˜«nºò({+Ö=ðOö8ê:IçÓ$¶sEÈŽ\·¹lÝ(eøg§/:G× ‚ç„„ƒ(ɲ“#bˆéǶK’Ñ«S%Aæ‹pÐdÆJëfJGÄ‚´.›YÞ‚BDË›>Ce]܃U Ø}jWïÂëµ_´^Ì…ÌžÊrjQƒ14Ú1S†ùº¬"cf,ªÒ1B–TîÔÜ»Še×{»ðJNëùy.ç†Æ[Èn¡Û>‚]Ö¶„?¿Ýêÿ¬„É×,Ï#LU…:ÚpìG¨ðÌCz…˜IÆU%?-F (ÑÓK1Ù‰ GBJLƒQha;Âæ€qá¹™ÎÑ@M,!TéE:·jB®æ„ðÈí£‹hÛaª‚+©"•Bžê·u¤V+•/úѤIœZH‰ º_€ì‘ۄ{†ÒJŪCåÊHrú:±4©°·Mæ–=#Xq¿Žâ½]Ž—GYÊœrE6?ÇGSÛÞÌ5p‰döª8G‡V¨†C„ùŽ _lÖß×ÿ¶ý‹÷ÔÛÞÏ>ÞáÇöíŠh¨ ŠbJAµ™Ò5‘)-J` çïPR, Š8ZÆpý3.kê¬jÎË`3í8;#ÿºd«Á‡(icIŠp^ÁxlÏ¡<ÅÌJ”-º\ÌÈj¦kÎVœ¹2´kæþÁ5»"™[µÂÃþк³ÓêT."ûW^ŽÛÉâñ‡ÖÛ*[B’Ï>¸Z *®Xâ‡Ü‡*Aõú-ºMÂùêÊ$îÐ#Ü¡ËVÉ*•ïx¾üyÑ®Y¾U7Îi£}r =¬÷çg¯ÛÝówŽ”€¬‚É\- ï6À(Î3òÎvž ç˜SŸÖ’:{:%ß?>8 5d_¯(‚-$ZØȯ\‚@¾'ÜJÑ|£Á4È‹T‡ ‡júäÄÀñÁ<¾‹† ëÃÆÓỘJ½RH&*½ÌÑ¡hmÔDeD˜£v¿}úS™’áë ß;ñ™Ïœ¶).±Þ`ˆñI‘ȳž§ìÄ{-±ö•Šu“oó%ÑC¢9°®p©[ŠœÅ&á`p냗\üæb]1‘ôáÏrv¦£»Ùî{§/º­“vÏ«}I©OÈ®<šaBMN2xÚêá[xÌ.¹Ö0駢j¡¯ëŒŽ‚ÂÙð, ?e«ôZ•Š.× ç^¯õSÛ? âe 4b˜çk"üZïÎ^öɦ^ðzhz€æ× ˆ(²ia*…áØC 2²wEH ”Q$ILÓtæPÑðÍÎé‹3龩J9J³Mæv<ŒMÈO¹t»kÝ'UŸ´N}3:R{–÷éå y¥L%Ž©W“ž•ízp¡”Ke¶³µóÙK©ÎªÖ‘ži)·`©…_$+â0TÑ÷ј/ÔpölÛ 4é&^Ô ›è°¾5J&Ñ|‹¾Ü’/½Ñ8¸”Ý°r2ûÖ%§œ\dÖÎ0E‹–,›kÊLŽs@’®ì~3tê×´ëœfÆ×™7j¦ 6†æ¢ÂøÛm YL.P´¤í½e^/³×”¥’iùÐâÌ+œùLW„ÿ»à"‹ÐP”S™tÃq–YÙhöüjýˆèìXyþ2#1ÔᚬeÕ wý“VïÇŒÙBÞô^v^ôj74–e5sùª©Ñ¢šñ,L-£Ì!–\™ÍåEçÍ+¼¸¤³“J›qŠÔ¦uÿÿ)úR udæäûï½ÜTZ£~äØyM4¡ ·ü³íe½¶ú¡)ñ¼Ûù©Õoû/ \‹ILË—y7SÈ"vi 1îràOgÑ»æUƒþ΀?]3vz>Ä Q„ŽÐº? ”¸äZ9nÒ…¶Üêi,ɳÞëke”^ÌÞÖêlê•+Àˆ¨ØÁcfð áˆWåU4 Þ>¢g§é'y5ÄP"T6ÐÛ$z‡ð‹Îí"A¾\-â·©¸¿à Ù5ð¢O$ºI™Aq†-F£îûÖaæ&ÖEi)Ó?iŸÔêP~¾˜Åè7óR¼|‰µ4Þ4e¶)` ÆsÿA$Ñx¨7vÝ»BiÇ’Tß"7è©bô ÑEcBsž³éÕMŠ1ï Û‰ÖïÂŽ»“hê *²(8ŸE!œ!ÛÞ(3 D0álSA`*MÅÁ‡³«`ʃQí]ϱuñâüi±Þ”"hï ꧇ð®.Æo÷I ÇüÙŠ‚åø2¶{:áůSˆø|c¬BË•ED áš@"F7ìó~·f‡¯:}g ì7œ8³åˆÒÜ[tÖè½®p_w•/GÁÚíúÜ 7âq?2Îë%ç S‡ÛSݳlßê寶ÔiNW'§ØW=<ëÝ?zí^1IB+¥\´uÒ9jåÅ2|ê¿@{93T¢vIí¼‘ƒ)›,™{ìžxçÔvÞš«\>eÚeÅÅk©ä­šd-õ1O:ðFê l 5‹ò½Íz® þÌö„•>´8%efqîúí“ó³n«û3¶sÖý™âY¥£çóvó$ôà ˆþÁìæ4¼†§ŠHñŸFUv¦÷!n_χÕ._ž`ü®¸á¢Uf7[¨µ)Y—ŠYݓʺݩpã8®ÂÔË›Ô^ó–s²ƒ&ÄT@ƒÐ!ŽÊ­Iê@“†E ^v_›¹dcZÂÌ ¾ &Ñe Û²¨ƒú]¹ÍŽ¤•wë[cK–/ºJ†’óç…sý}ñæ»Ý<;õ8ÓìMX¤ ¿ÙÞrå¾kZ ±å;/k2à‹vÇ´kG)XO{ýCº(c,›ç'©÷~<0mÊõÈðˆgp<Ñøãw˜Í”2iK‹“ñ%_qíâÐùÏp–àiŽSãéXè¸2źԶ¥Ñ[Ãæ;gô_þí.›uz@Z@ ½‡ò šU›WwÑzP>¼þÝ}¸sþÞ¡¿ñgo÷Áöÿìlï=z°»½³³ Ïwîì<ú‹·}¯úA<Ú™çýåê" ¯&˾ gé§èЧý¹·Yõäyz3#ÊÚ îí|÷ÝÎüç>ÈÞÀ®yÌðä“,h­ñØ£ÏQ¡cðêf¾š]Xe¬áex=çó­ó`ð6˜ Q:¾i–Uƒ5õ_vz (€nÙi{ðûy÷ì§ÎaûÐkõàφ÷ºÓ鵞÷ÎŽ_õÛÇ?{§gÞëV·Û:íÿìµßœwÛ½^ûk:ëz“óãNû;~ú3j%Xa«ïý|öªë½>Å,Ù?ª–Ï„+MEÉC]†p9 Hå˜ëd¼gz#hmœ‘Ë¢å FæM0[˜§_¾£ëhÒ€.ð²T–h€’3¼¤@p Fþ$kz2õ¸™éê\ ðŸcçD9Úê#8¢‹Å<ä/Ð>­ì ÒçV¶f7øž w&Ü‚ª¼R¬J·ƒÎ¢v7l®{ é€k’¹…C‚uˆÇ»Œƒ™„2$#o–ƒLŸ@DèdCFêÔ$Ì@¥ä:°‡™ât ¤r­rHóŪ’B'9  Çc¾Âšf há1ùJöaÎÒHtruCb”9üºflú…TšiÑÀÓQªŒø;V£)‡—þd<@c«™×Csí{­h‡QVÓñ_®Pv˜^³NÓü¥ ¢;'H÷—Æpm=sMF?¶ÛçlÕ1Ƚ£„ƒþ´ï??Æ—ÇžàTÿ6ôŒ£°q°=ðu¬"Í&ž1|Ä—2Æ#§ ž Ë)Y.öP;ÎQ•ƒ§Ë4kÛ—(*(˜K| _±©E§úËT1çTA‡µ&ì»þ#ýÛIë O:^õ~Ù¯ >AŠU׊ b /F#±:1=Í ޮɩ¬\ç°ÓùøëPÑÄdCd=³}7#žxâÞL(”§‡p9àëm¦hëRãy§NÿðOÏ«Iñ-ÐaÏï·Žè…u„CªÑHî­¹#¯©WÏže«@»&†=7 $ÿbUÞ>ýɮ۪¬æÖƲöñÙQ¦¾ºU¾ éö»¢ânwКZ6L~PT+¼q¾ªž|5áÓØû>Ѥ¹V0¼ HvNnS̼¸b(¾¾ g£±rç3;•ÚeŸÿÃNï ]õjÓNNEû%Zï0!} ª¸D/ÀI}lóÆû­*Š,õyŠÛU_½„.óu®‚Q¥° -Yº5íî{(“Ãè`vP`,óà2mhÔ}¾x¢Ì>ºQ[‹³ÉìmK!†~çëÔ{ð‰²½ýŽÚÏ--£Ü öe>€¯9œÕú‚€­öµÙÚuÀÔŠ0—üéì¸Õï·3UÌ“)(lﵤ)ùŽ™VùwåÁubSø& O0å“ÅxM)Ÿ `V=ÛDSdƒ„•ã|#u"¯ª„lòŒÖNQ5h‰NU. 'ê+â®Ä‰,BŽ1ÖÕ,ŠUd4'öy9B–²òO¥¯3JÏyݹ·WÉx˜ªÔ è¶ÈH%Àœ\…ã©MbŒî²§¡À6U•é,üìÔª†8~¬!œùƒd' Ø1¹ßURŸ|%몛ðŸÝº Q (§õضÝÊ,”ÂVUã•Ê^ÝëÍñ ¼Ëqrá”õx‚PÌ“‰À»B%ã`@§¹T§Ý<µ’®¶›ú‹ûu’´É§™=W¸›,ýXc¡Ÿu>i\ÞúTRÕE N¦ó›ìa·#Ê9(gq Ô¸õ ƒ×.\öˆbW‚²Þ4ù¬êÕê ˆZ)ò —^ñ£^£8a(cŒ%gš@Ñ:Ag(fZq¿6»gy84¸Ù9¦Ägy‘ ¾Õ{Z°8]šY”uÖó(ÏöÔV ‚ṈðSêÕœì»Æ~ž¨z@Îd¾*æ³ 0˘6iI"$°ꚃ[¯#‡(=¾KôŠ¨ â$5OÍï¨ä‹ZljÔô¿ÛŒÃkÿj8ó§|˜ÌfMþÔŽ4 åƒ ±Ð!m&avL’ZùšQ]7°¼·yEqô«i£n„³¢zêF&ÓÂGÚûII謚žõÏj5úz’Nëõ}+¯ÕÙFDƒ¾|‡N9ý3¿Õ?;éÔÒÖ‰=‘àG±*Ü·O=|QP ó1œõ0ìE ¢y<$Ì—Íúqä^U¿£VŸ/R¶ëˆ:ÿ¨Ài˜ötšÄCfÖÁÔ»@¦‚¿¢€ VW–]I¡:¹¤ îTÚ$zÍž=ÿk ix¼’.Csþ&¹uC•Ë\çè!5€Õô£ÁšêYwu!º‹åÍ¿¡Û¢*ðÔÛ®ëüèwúœº`®TM¿Ó´;YÕsS[VÜa~û­ýû–áëÏžL„›Ò=Sâér¢Î4àôí÷Ò~âX´‰3 ·dXêsµ0îb`3¿»4‡Ð»ä\D¶9“”KK8C‘¤Œ£¡Pìuò¿uò‘Ò14L‰$ãhÞTæ”\¯CíR‚fÈÓÇ·Ðd’`~†K};EXƒ\>¨…°ƒy((4ÑÜ \ÍѾ¨P`š…;ààì´ß>í÷jš³­Ú vLàŸ4YÌÐáÅ4jïâŒÞäÆGbTSÏLªI~ª¦Œ¾àðâñåa·f>k¨zôš#©vzBõºÕÅxTôEìúg]ÿ´s\S_3©V¤/Â¥™B£˜Ðg&b“’Û=—t©á}-׳µ\qkòÚ&?ü×Y‚ü€×\‰ü"X“Uù{Õ<âíkÂo¥l>geÙº0Óˆlý“ã$y»˜ºÉ/%îà_”~ {KH¨!íêÕú3×%•°”Ë ‹Á„‰Á¥ÑYErƒMúTʸ1yjŽuA6’”4;Ix3 &Ð$‰Ó@±Z°¤{ÊL‡ ÿ5Þ̈Yx’šs¬TÅ|:0<¶ µ >È/B2«EÁëdÅDaJ‘L81›” 9þ4êNßo¿ÿt^øðN»Æ0™µá’öÃ>«ô±­5ñŽ£EE£§¨Øû…ö/Ÿ¢øz`ÔjÔ‡wœ ¯+§:uPÙ¦[½Ã%°%}ìâ'uï2!»ºÅ`næz¸³ïi~R ‹Ýád).öW=(˜aôŽmÜ2KÙ¡ªß0n¾s:æÖßð,Ãù$:Õ6ŒÇ“5†}g>”>áî¥PtF™}âȘ¨(­Gœñ58^™óÆQ‘a ±qVõ(@{ô­TÕÈ×Z`…ÖêVRÓ¸®¤E ˆx¢)Á7±Ú––XÿRS%-P5©©…1ŸˆiÄi4 ­ SËgU7Ô)™U ÐU}ÿÂÁ? eæ#Ø#Ê¢=…ï¢d‘¸¤cb-W0•ðrx¶›%¢¼Ã½?ì0*>X9°%D"*Üç¨*üx*'¹Y3Ù—¹"Ÿ(b¿|a€wÊV5“`Ê÷%Šrù¿T;ì/ô£l™jDšÂuAø /Ñ`èÝŸYê×r »ÄÝ„ª^Ú¨0ОÊìTæEªúg‚·Rg/^À&yÊýÔ~ už¿9RR—ÓOný+Ï&Õ·­§îœT¸?üòÛlQè]f( BÚJHˆ}Tü ­l)'KQ›ÌU³zÖ=iË•&#K\ ¢Eü™¥ºJröaMµñ»æo¹FŠ§Ï6±½^»Û—Ù½nÛLÎ÷ž:+zþy»ëãDj’X~”p "FŒÑÈ’•oú•¿¶Úgò§r‡Td.§/í[¾[¦éÃÕzu¥7Tåy.1ßd¶¾:L|ppŸEãöx3­Öûw]s> ¶CÆ·Á‰ò¡¾ž¶ýƒ—íƒÛ‚©[›ê…Ç‘+Sœ2>/ÜüH!žÊÇu15ÝUum›bŸRŽô%¹TᮬÛ§Ù‰ˆ¶N=fú 3zãMÉ—¥¿KÞD ‰ß º23ºf !Þ P?8Ò’"ÌëGzÂÆ–:ëCQ‰\Ö.Ž:Î7Æx²³\ gØKL¨ËñÛ=­ðÒÛ!'šQÖ ,){6°‡K>–IIÃ}¼KÄwi\«lÜì_u¥@@S¼¨ÊʾG¢qáÚ¬)oä•ŠF`fa‹Ë_˜¡K}8ª„j ²/ “5%¿· Â,ˆÒQTø)•^Iv¨q‰'K ûÿ^ã™Wö‹‚¶ÿÔå3&[á®%!» 1p,¹äˆ;¾îŸa!¦Sf†©Ž’ÎøÙÓ†è§Ð%wÒÊhèO›J>õŠ,¢˵¢=s£‹­5òe-M§À•¤¡J㩧N}ò“¢s"üjFw]Á<ï#€=¬¡ÃV³î užˆžw' |êêk0ÀÂŒõ$ê»d’G)þ=ÁÐÁ†TIÅpëôöœQX"DÆ=ÇórÓÒꢯññÏ~çô§Öqçó¹w¨$žfX'LLó²©}ÑaOž4{Mk¤Ú½ÙCr•î£°V°û.BtµÐs¦†]±'‡?ã‘Ø—› Õõ•|ßÑÛnüÂœ=çÜÚ×Á*ú‘ãhÊþì(®ÿqãÿ.Ñe|7Qægyüßö£½=øýÑîÞ£‡»>Àø¿û;÷|Žÿû?@ËnäÞÎw7ð¿ßy/ƒ8ÝúkÓ{Ž3ÓðZã öàÏC¹*¯øe‡&€á*Ÿ½`:z·ÈðïéYßë¶ÎNNÚ§HJ‹˜\¦Ë®ÃDÉ%¯Ùkô·¥»1ånË';G‚”/É(ž`ïHÙ­ÃóÓ>]- aÜoõ}hZWb@Q»41€Z&DÐ@‹††sY&ÊO±Ê}EIV—´Ò†ê Û/1‚ ê!_dQ;Õ!xÁ²‰ rIvz7™£9IÉ'e´`‘ò’¤\Úáé@²]€#æ‚ssɾ§úy©ð åê·¥".Ô\ ׎îФñ†z0>¥–ÈfKnªÍÛv,¦{”7gÏÿÚûoÎ'S©˜ ¢žyÛÐÆþƒ+TÙ V„×Fáu˜,P–ãÅÐÀoYi²rIùPpš¬«\b);¸úh±6AƒêªÛ¬ |gÈ È(sC_l:^¸ k‘ct=°"qù†‰Æ(–kkžáãöh$º•‘·Ã@òˆy2Hr+m~…ŽŠf÷tfyRp‰\ÜL>”ìÆ"„‹ßî1zÚ\q”N˜„%H X\GÜ4í˜?¤ÜP’I0š˜/*5ê†")fÌ!ªÏaLæ¯Õõ5ßìç[Qˆ¡ð(¦ºÑq:ZÀ%kÊú¦Æb Ç¡‚'è›ÚfCP0g'R‘Ã`¨ÂžÕÚJÍ!üÑ‚C†³`К* vœ6ë¤=‹ ·Ô‚¦Ü Ф¤z£AõCZH rUÌ~Fx_3§Hdû±2)âí¸èýLøÈBé:–+w‘dÞã˜lV•Œ³/;Ÿ%Óýâ›ÉT¿:<8ö¡V2QõÛøT^À7°ƒ¾F;0G¤8$¸¿Å¿h#;âÍ`Ñš~jÞê±ß{upÐnÃS£kÇ™'±í:9{lŠVF,,öêÔ­ q<Ò:›6%•à}‘NÊæªZ-®7<¾­Öèh«ÂM ÊGñÛºöZ¯íç!_q¬qÜ"µ>$óØ)½Æ(”ÝZŸß+d—S1Û)â±’E¾ðJ‰{RBì‡ý'ÐEðoD0ã˜>çß”2Pˆ‡5Á[h xºNø æ¡1Zá’5{œjâ`§tæ7üÔd÷SŠºYB"»¥œc}ò( ÝU  óÚ%êäŒìoS£•ÒŸ;ŸíXŸÉJêïJiê÷c«Ì§û)²ÿÀ>ºSÐ û<~ð—í‡ínï<ØÛ%ûÏÃÏöŸOòó¥­BÆ¿ÏçÿŸÜþgLž;mcùþßÝ…}ÿ—ä¶w¶=Äý~ÞÿŸâç3þÛg{ð'Å«š¸v2â¤&#lª¬z NÛ|0Œ ­)„ä)vH pßï eÅâŠÍD.½qpÃXÌ4—9u,pMÝ/cötQÝRàâFùÉ |û­jŸjÑ€ëh÷!-8©’¥µƒÅ— LL¥LÓgdžn‰1GzóÁðÌB±€•‘'däQD³aLŠ1šaæh½Ä¡çÊG 1ñ€Í1¥¸ q˜q6dœú,Í–5Ê·Š]cÈ—xHèñâr–füÍ´¿°XÎg¼¼ñB2`:îƒÅ´Vׄ2IgëWæ?œS2ei0üK1ŽëJ, £;CÉÅñûÂì@YÃÕ+Gf‚ÁJ’‹´ª¦Fë­Ò`²4Ð`„ëAËõ6 %£"¥sb+§U]êiì{JVÎ~ì€w ŒÇˆh¢Ñ¢‚Ђ‡NNŒA¦ý S‚ú6eG‡ÍÄF¿†•]‘3C!]MØâ Ìj@}µ"¯È’8OÃñˆÐŠ}Xä{¥h‘»ÔáÞ(ÌuOƒ° Ë/†í·®º1aðE :íi¸’bâPP™@ HOLÉÈŠcIüÀåÑ>w¡ÝTg´zÅ1¢öå¬`Ê·n™Èz-,f‚\a¹Ãä’át;ëšiã@{á?çÕÞ*¦õ”"ˆ‰™X0 e,_\ˆo•$Ñ°‰ŸsVÌÞ#úWóTPb¼O FjiÆ’‚ ÈÊϬÓí †³ÍáEJÁI~Ú9=zâõ*ƒl1˜sÅ|v"î1h¹Ýòtšg¯!Ò f. ÇCE # œG¸‹47ÛÐa©™cOÉŠNQòA[b©|( ù‹ÏcšVNfNÌ[ª"k<ÅHpÅq?\!‚`‘=Ýâ hWóè€ûË]mÚØŽuË÷Z©HA-¬Ár»DOT(¶ê3ñ¦Vµ‡ñ;Z1ÃÊÃ3z3§–ó²F‘«Å¸ŽU¹é.Ì(”dF™šDŠ(äª)nocôÏÆÔ,À¨Õ#\#æ(¤"Úš$íJ[Hg˜nOªRò„sRDv?"a;†P„€ÕMŒºò9aJ‚\ÜîþÔ>´gåq&*âèà¯ßùÓÃöo›æéŒw™ÝÊcùC¹dyeà!í0)7r—‹ˆyw0Qjzõ¾¤Ñ‰@hƒ^mM¹\¿SÚ0Ik/˜ÑÙŸ»ù=²=*:q@K ÷Ó-pÜ>==d[å–DdË™\Ó•Û8Œ/¯c*¥ P`³âÄ& 30€NÀî7‹:ÍØ¬ì‚ ã«=Ü­› ð× Hº¼"$ŽXaÈÜ1-&Cà¡é_NG£Q†‹™‘åš S+Ñ‘_bÁ{8ùêl&‘×*eBRG/ÞÖJ6Do H”j>þoÐ9éþ6CES†(º#Õa)xeo· ¿Ö¹–ô§vÏÏPª^¤tÕ IŸÁ̾æ/bw pyìJMý+ãäI¹ “ŠÀw±¼G$¤n_0rr# Á‰†Ñ¦»Æ.ŒØÅEiB$ÖÔòŽVÎÑ*Û’œÎæ‹?¶i85dM>L]ø¾A,VÔÖð‡”rLÐëý_Ϫ¨^/Ú=ÿךÄì6ÂðÖ³çmô½=ŽË3pΉqΞz¨æ0´Ã½uØãÈÊ %h°dm'Sï2ÂhEJ‰€D_{ÿ+Àª_ü4Ü^Äá%I@ ñ@á;n.ëomó{nÁjž±·Q¶í:ã¯ítÕ´À¶z¦LŸ|î稽cÊèMâ˜Ð A»ú䆬UáºØ³ÐBMÅÙù–Ì3Ûb€¾Žèh–‹Œµ/K/ÉŸ“@˜Ÿ$>ƒêLq 7| / 8A~g/!Îú¡|ÈÕnTPëâ~‘¤¬3ƒÂM‘ÐbplNÁO‚KÈŒa2½ªYdç*›9±è8¿fÞöûm,e…¡``ز€·ýü·ËbÜö¥SÏA¦jÕ_·8Ò#6ÀXüù±¶¦(í}´@¬}6—€Ö‹0øIÜTþY/Yú~ˉç„ÙIØÂVv]F·7ZÉUÈ(]ˆg`º4RE½©Žß³·vîÒ±!"œ "n°!ODƒûá …)톸-J 2fô.'£Âý@;¡D9¶ (?ÁyšÚžg«cʶ‘§sUùšç8-Œf6r¾¥%õtB±^ä®›æL±"ã÷³_æ&/û½Ú({›zYýÄ5À|U¥J•Ú(Ò¾Ÿp›ÕÝÑ"Fs;Ÿ¶6WCPn®êªÎÛØà›“œJ0)-eÀ#âar­É­éͨÅÉ\‰©h© ‘S"V­hK뉀©D‘Ðf©FlR:™:-\ó=ófÅ„8ì4ÀkãÁ,@%€Nž6 D04Ys„Ú´]ÄÅóž@Næ<'ݵ¥-0¾à-ùV-0ˆ5'mPÛ{*gQ.ï#`¡‰#s«Ïb€ÊöN…ÈÖ.v<Ø8ðÊÅõÜ…ãš{ Lß¿XŒ˜#OhY›…×ÌŽR†wÃÝü{W 2·pUhÙ_©µ•£—qû²a0Ýí:–žì.‹Ñ5~î~Í6PëkJÿçó¶Øîtцª€K•öÀŠ£Ø³ Î4àŸÎ I;W€¹”í©ÇÀ#ÓP_y§Öõq€yo.€UZ•À3eAÔù7€J‡’‚ÝnOÙë°Êãd¨»m}*YÌ”Ø*FpçÄ»¿]­ªêâ7GYQÒÁU@?ÞÛxhQHWù8žó¥ž${þmWr'Þ =WóŒÓ-Æ3$íÄNÿG„NÿGü°ÿ³æqt‘6wßÆ ÿß݇»*ÿëýÂû½½G?ûÿ}Š×ÿ—I}N¶ÉÞ<¸*{ ýúût>Œ’æÕ³j•An¢¸V¯þÆB¥‘Ôž¶|è¿î¶ÎëÕ q“Qmcëõ¸±µu= ¦þ:'Sà5ú†!ûÁ”IÖ'ý&ôJÞþšDëT‚Þbƒ«5>L£ËI¾Í6—ŽÃpú÷xCòv›ìÙîÈ;§¯Þøý—ÝvëÐM°‰æãnÇzÚ·ûºwvÜêvz –~rØê¾îœ–Õß²ª×zöÇ2ÂÕƒÀТç½CS—ÊTNI4ôk¥?{ê= ]n]Ú,þH²–Ü×ÅçR•g{|Úî;®tÀÛÏæÙÁÔõò¼|Ïz/v¬VÖk#ß„ZiÝŠ0½ˆ VS78¯nˆfo×iN½<øùˆ^~Á”M‹=+P™iΞ?Ñš«ú Aš…™E¹ÌäæÄ*ós²`5âèàÀÛkn7÷HlYDc‹”–!Fòb£G÷^½ñä ˜真“7H< ºë¾n „*í»ƒ<Á}:þ/þÿ#äùWÄáÿ—•çÿÎÞ#xöèá΃½û{ ´³ûpo÷óùÿ)~ð~öù.Täð}8XPîK¼vÁk¾®I4>Ý•œõøªÝH o÷¶ò‚ó ÝG21¨*CW²f—ƒvÞ‘×´N¯ðé~•µâMzkþ¯ö«¿iLBüÖûÞ»/©^¥Á¥X±ñ-td0™ÖNZ/I-ã¶þ¶óK]0Ëy·Ö¶ë¹2g=)±±Á#C•wTÉî/æfæ]^>.iq$Œ¦&œÍ Æÿ~z ST–Ÿ1¯¡"£1šû¡(çò WûtlïnôÛ=y9…š“YmãÕe´… m¨ «4kOŠûÃＯR"Ö.“”ÿ•îA×d˜Û¿” ˸´šjžB­ ]þ…5øpkÙd6¥v™Ãú'f²ÿÂ?šÿÃ!ë“ýïîUüÿb~=zô`ûáö}ÆÿÚ{´û™ÿ’Ÿµù¤ÜÇ¡b†,)_@›,›TÛÆyš™ Aã¤óˆóþ¶N{Mï_ˆ}ä‰V‹ÒCg’<üëÑù¹ïÃõÑ0B¾Bé¼4ú;:Ëîè´!4ªMo´Ÿï ¾>ìtáíp¿¬™k¯øÀª€ŽPg®Éâïœ]lÔ3ç B ~ª¾¬Kžxbƃq’†µQ]_ïfO¡ß‹ÇD="€À5S Ym£¦úñýM“Åõ Y‰ÒÒíª“nW¿Œæt,ÜâXÃàLj_R~œýë8ÌÿÑô36Šü¿wgøÿýû0ìwï!Éÿðú3ÿÿ?÷6ï꧚ "¾eüpõŽ‚~oñK›ô¯ÏuX+è9=ÐùO“w0øß“½';÷½ó^_)£Ô2P©)ú×Eìy½Ov¶Ÿlo;E‰ÈªÕUAÆ&º˜ü±²qÅÕ +®ò-ºƒá…8ûaÀÈrŽlàÛo›W*Œ–s¸¸Ÿ'£êÜd¹«Šþ¼qx½AªáÆ0Dw³ 6³ïAVÅ„œ%‘òî@Ê>Ó°ÖVã$Þ²q–ñ†ïœÔ5%H{Vüšâ[E;‘ Wã X·­­aˆú ÌÃÁUýc¦u]Å°p†àŠCÁ~“I”DÂ|‹.f4„…ØR”Ê]æ(XŒçUÂûÛBûtnæ §­Åü ¦õ‰÷×ä*öºM¯DG_ý5LÓÐ{¹«Õ;Û½›6^ça8`hùÝí“î£'» ±³×g=ß¹5€£D5º­ÜÔ$®5å4FaJ¶S—õrp·kòñþïð1߀ê*y~jž´tñ«®S,Ó5~ÈeE6Aäy»Ûêc"Úök9ÆÏE½ýÛ/L±Þ5zlI€…]–‰gyë¤wàÿÔîV«÷îñÝ9:ÊèvÍEº÷ƨ $ n‰CºJ'Óhê}±jÍÄ—åÝƽ{ñstÚz•ªÇ(¨òu¦ÿ|Ñ)DV¡ø FtdâÆÛÏ_U+fZ¦ÊÁO×Ó*µ¬ÏÙ®°õÙî ÷Àäxw¦YÍâÿÃÑ9üÚÌwÛÆ ü—G=Âûßûv<ÜÛÞeüïíÏòߧø±¶%¦•|i;¨òƒ»“7ÿM…Ä…„Qr[UãÁ| Üö±X0U…ó@0UæQ`î”’ªx°u4X‹¸Ÿ‘”$2_•ŽÚe2”§¤b]“~qíÖl¤I‚`"CC!O‹.ã£þð^¤ ‰¦Ñ"b~ιy‰4ó«Á2J‹ÃXûêóqgÏ";XJŠÙ‚%×µÑÁϵÙgb,ÊBÏ`àŽß&h*I_PO±S?WÎÀ[V_¡N¡<Á›±†'É:½ J(`’¥)÷wTžê$´óVàüåØVÕ=10¥RŽ‘r­DŒqr½5ß…c[zÁœ°WKpˆ”$¸d‰Y$gñimÊĈédn¢îu`7uMg$âÚ©$N1! bJr(Ħ¶`L±¿XŽ{h¶z$Œ;m§é=×Q$…I[‚Å%îJuZoP†‹HYPÓ./ÓM²0ùMTЉâÞpMF^z|ê=/Vx·uXl¿AòšÄË#h1ךºQU¡ÙÆ@ ¯ÞÚÃ9š ô…è‹påõ)‹cödlKfVò—ª9ÀΑ;j(^‘AT6¨þ"& ó¤¨c̳OXÒWÿâ¾~¼(³£d‘<#Ò8ÝŸ¹çðº‚]GÌ0µ¸T«{MŠ¯³Y<죇äì {Ò«Î E„/`’Šé`òÖpGóz3¡*+“O2ãÁÙÇÆUËQ6îÍ”í†IYbŠi€%Ž¦ ÙN®¬ë¼¦8´ª5,-ðkD#e9_Yî‰%öï2äíŒrfšñƒ‹‹KpbØ,¬k ä eÙUs'„{òfÏÝWS3UÕj­£.èRYU…ÝàÖÓÕP™rn˜ïÆupSüQ6U(¼<*dм4œ`Z”AjâÁ_KÖ¼!á¹u…íÛð† XêÕêý&è·¸X\"×Ûôz ¨š0Ë»pNxµÞÁ^s»®¹‰¾Ýðæ[Ïþ·_«Ûá(èÜìJ×^Sp´Yò&Þ­|£Î@ÄN4RíÌDåå2dÃUXœ-Ã3˜¡6q`íw¼‡Ðxãâ”;HËœ„Æî9‹›¦m-¯=P¶ÐÁD[nMÍŒ>¾¡d@ðAÕ´Lh’‘)æí& ¸cÍ4‰ô ôX3HìAÃ4‘aŠA<‚/渦'Hþ*˜ÞÀäM0+¶hn¢³\ÇÁzGÄ¿ô¡Q¨ú*nÝ£Y0½B’;à RÔÜ;D9é?À¡9l[Ÿ—³« T’B‡¸2‚TŒ#ÎϯV†µÓÖI3q¼8îÈaDÎÒÍ»¼³ÚÌ^EÑ5”2iö_vNôÎ_õÐ×ÚØ5Ãp0–k…ü O¿— K¿Ð¾Þ4¶³¢Ó½. .lw}¿}ŠWDü|Z'‡óèÑlÑ“Ü©é"þó³îqëôðÀ÷Éßyâ}ïm¿¿ÿ`[…XÅŽN_©" ÃK=„R»èú£ÿ~úÀ‡òà¤s CÁÏÖ j~ÝꜨʭ¿¡ÀÎ6t¦ž+œ wBíøŒ¢¯saŸdZ]Ñ$üèeôjž3«uŠ€ý1ZH:3ïy2³âÎ̶é,—[Szyu—”Î[í“öiß?l·ûmÝ•0^Làƒs½Õ~ã½c_9›‡B랪όC”ûƒ¶‰†wΪ׋Y_ƒ„PU,Éû¥ök¬˜•7¶û·øºá ër0½mq lVÅ(MµƒÌB5ß(ÞZñêÂ#Ñî0N(ˤªòWnù+’ a[qn¦ƒKïš÷%òCeªÌ¬±Ä”¬S_CªÍÄ-»°^:“¹«ë3ŸùþöK—« ³xK¦ s¾bRWO©®¯pR׸TÇú'yYb‚èŸÎzÆF…÷nô(A=`^‰» wEhƒd¡Òg¥%Âf¬“ž8¹ $Õ¬ŒñÄ{Íæ˜kÓR˜ öº)Qˬ‘ÿ_÷ ñÆuêPæ# KçóR•1‹ª‚uƒy€û·žÝŒîäØt¹W¶šŸŸdU^/³S‚þÌÕXÆœÛZ&©×:™/Ô ´8[PUfn_ŒD›&ùt¿åp!DsyÂs}å|çEH!<Œüô:˜Å:UåFŒzú|@Ø»™ýÞ"îã “™èzT“è²hs&ÿpœMR,\ͺŽ\ôôçžÎ‚ËI š¯ ¹;Oîï~‡ðºÂ —¼'lÖ#î4kÈCkÆ¡bB;~›5Ê´æЩ‚oÉÙF,ゾ?k ½ô4šVV«¨L2€t$1EC>|a £ìK2ƒnhb#\•x+^ŒÇb Tª5U’½Àó6àß 1R¦a72»@–QQkøJ)ÛÐ{š¨Ë¦« r¸S¶Œl %FuIÌ ”€E®zHU¥SqæV-ÐÓ`&G&2_73Ì›ÂB\1Z6mKËRäîzÞïú{vÏ–áýœß„÷6%» ¦Ú¯P4=}‰áž·Z›¿ qÚ7= @Š,ôE XEM‘tá«`Šaô°¢äöt5Æ ƒ4‰¹ ¸ëPÉ®‚E½¥Q“Ü^4¹HŸ¬Œº —v†þü¸€ho!þLÕÀ° ¥QZ&ÕMg% +ß³‰›f+V‰:Õ2Á@³HëY%êorB›[ÍGºÜv#ët§¤ž¼ß¿YâzgŠŠ÷Ý~™ËÛ ÉeÂߧå„Ëju€=kÈ2×;È +;¹Ÿðî[Ç¥ònœªž5×£øέÎÚ\\?ƒõÜXÇU}ׯ²@]ðLh-þýô©ºþÏ„4Ï8˜‚Ô*íè±uÛûÓIœ¯¤´½R¯Ý[ \«9î¤N3õ¸ÕÜÊmÙq\.ІÖkEëBÞo¿Ûfu·{vVøFÏÚš´µZ]§±†è­«´\s½ý’{v®ŠñòþˆÅÍ«ºÖò2é¬Áðª9ðÉGù3Ä©Ç@6 ´Ë3Ÿ¯í}¼Æ'k(†‡Öðø®7€£«ÿåÂi­\e$0=“µš)µ‰à¨xàÁ/8™ßzµédíÑȟ׹\½¾õÌÕb/lñXeˆÄ¯ 2Ïáß}똂GxFÙp8í2M…'}u–i,„€mŒ~Äoꞎ²D…Œ®Rr &Xwbš7–.IÇi¨IänJMk¬–æX¾AÈÁ¹A×õÕK=Ö¬S'¶<õ'¤a*ýZ¦«A¿‰ªÌ7jøòfºFǹ¿º~©ÞPÚïÙMÇ*c‰ R—_MÅûÕ’SÐŒI÷iÙ)¨ +‰£ecï&ñ9êôúí®ÿ¢sÚ:îü7üÖ9:=ë¶ý^ûøEÍý^Úlè¡X°¶êê3¸| ٳت­¼LÉilÇÍÒŒþ®køqõ'éqéÁT8ÿë‡ý¸‘cþÝ­¨ø_¼€üƒàVæÿ¾¿‹ø?{;ðîáöî#Œÿ½ÿðÑçøOñóe¼‚¾PUÿx«ê ú)>…¸rÇç/[¨Qö:g§È5èF¯ÏÏ)Ò_Åí_¾6¿n@©nð׳®û/#Uü¿â"ÙJ‚ñô*(®‹ÀHsÒ‡N_5Ä€µ} }ëÏ^’OúãÆ]‡Á[•šäî‚ÀVÄí<|ôà/Û=ÚÝÞy°·‹ø/v÷>Çÿ’¹u®øÖÒûW¾ Ë=¿kkÉk¨^ä r§’“—å¨|Zò[‹±éèŽ2‰ÃÏú1côùÇùcèes¸'ðÿ]Œ½GÞÎã';Ÿlïxç‡NðÀàTïrïÞ¼f †3 yê\Dv¾BNbSæ$1ùlN¯b&)r3A dÊ¿Ñ.‰OÂ[º×V“*ˆ£J¶_´?Î0Ó›ã•K(z‹¡ŠwΕSÕ`D…u µ1ª,?¤aHÎø|²ä:³™D„*AG¨P`ƒ%èüåz5y‹®ß7U܃ºA$]$3å{A •a¾QŠSá8¹®c—.B÷«ªû³pB çì"ú{÷ž`U•Žâ{qÄë{Ïä7›ÍüVU·ã61Õ¼þ¦7gÛ³˜žÑ!ˆo±®œeÁͺ9ozs‚·LÍÌ]”Ò\:˾É#F·9WI/{ØT^ ¿¡úä[õOQ±˜³î}Vý×½¾ž6õ3l2û‚󺄒Œ  g:Mè¡v´W±vrÞ…ªSu˜‚B£èˆéR£CËu3pÈjýͺ;z½\È9·žÑ‰ÇÜU=}Z³—ü{¢„ëé®YÚ#J¿qílåëéÇrLw<ôhéO¾{åÔð°B¹šÓ4С1”Ö¿ÿ®@ÅhLwTÒž$*«¢oTV‹aÒ üàf­(LF"" W«‰¡kóð vJq¥9v¾«»‚IëqgMéBÏY¦hV„CQRƒ=åýgµùNç/ût·ŽCÁ¶ÙÛœ&y¾Û¬gßY÷ö?ÁØ^õÎ[Ó]ÿ—Aze6BWÓþU@yІa>a N’ïböX Š-{‰‡Ñ»Op•³ë¡ò©^à,…4¹ðÜ¢y˜£ogˆôMŽ®µÛðh)ûw|°b<µ½Zyo};›-‡ Ƙç)DÄ r„ÁÞðÊkG9aÓÍ3fò ÅZ?X->¿ÞEAök²ÌèFêeNe‰åBÙ0YÌPz¢˜&Ø)ˆP·E †W’‘|#(å<©ªC7r|LBŠ³zÉ>äo«y»ÂHA:àˆšß—/+΢5¡hd¥iI8ÛºžEó9ì4$âz#¢¡Ý£œ°ieUÕ9‚µ{FU\uò Çq\œ(N²á[yèÅœBðêÞžµ€5I¡’‰üÊrÕq)ñ¹hBï’Š˜IMuÅf:uˆ” íL¼d0XÌìXWokË&8†‹x“ïD)c3À^BùSf†¾ÄȬ6Çs, ^Æi"‘§úå?áÖϪî|)¼¨°X8£@·0¦òËÇ`B©Âër=@qc ´dˆ¦v¿.‹¯¤®ç–¢úÏ­ëôÔÂŒ|úMÊU¨„™ö𸱔WU*¥†õ dÛã€U9Rßh·H>Šì‰(Ì™]{¹$zê)Ü 0b\$K¯¼Õ±º5òá$f"šU 俘¢nXÇs` ]"0°9BGÉ÷QSX£^ÜTO "„Åß q8F3ï<©¦7ñàj–ÄhæÖ8(«MÞôŽ\Uƒ2¢C‘6EûÝT‘yòÜ«ÆMk.8xBª³ XPG0X)†ÍO±¤éœæ{ûex•šD4KƬœ²;¥x;ZñVz]ˆkÑ S“qˆ«ˆŽœ:ü¸b3í)ï}ØåU2’žÒ:Ël–$Ë:^Þ 0Èù†wÂó³Ú¼.yl«ìÇç/·ˆ% G‚ó‰ ­}²ÓsuW‰¬€ð@œù°BƒÍK͘ØJ#Å©«ºzNeñÚJ§lüßP=a¶4OBµr·ÊÓ½Õ©!¿Ð=…R£DD°U(Û%¸ÎY’KõAŠozÃkWprÉWÑ‚‚1—cp:´R¦—wí÷ƒ†7|ÖPG)1…Þع¡•æš¯ —jÜ÷¶0>T° ìsIùÛ$˜¹YÐOä»—ÎvT¬³)>É6lR*q«gïaýLöÂ÷/8¿..Ö†zN€H²¾‘@Q«ÔN}yø›/‹íӪ’┳Hj¯ù4-ºs~9qg-™z™&¥7DÅQ]HÆCRt'XÆ“ÄÀö áZítUE:Çɲ$³C­¥D+®ýáíe%}5ÁCÍ›7Äÿ¡åwÜíéQÍdÉÚpN„L#Ü‹þ˜áu~Õ,UˆZÿKxÁ> øµ»ã<§Á4ñÌDZB°ÉÈYäû’iž‰@÷¯¡¦¿EÍ‹æÆéêÿPKGBošáÏ´¨`Š•Û¯Q½hÈb§y*Ú×a ä³qkvaj´i²°Ïa& :š³ÔáÅ6éáOá"iÅÍ! ³~zrœ0 Váð¹|ºSM®ZíZ¦zª|ªãääUßœRÝ·€¥ OZµ¨ö2 %g¨¯¬wsÄËIá ħM} lBé+ÅwŠ\c¨ mR+Å´è÷ñø¦j‘VÆö®Ä­S9¼ä *uƒpAD&ÑÛoŠ¦“`]Þºæ&¦62(#„+ˆûB•ÑwNHr̽5(TÑjŠet È@P/8!²HëRÕ+ú(& ~dQ°ƒl¤€®ÒÅE} îj4g}=aU Qµw³òk1âDuâöЫîÐ×vF»”é=ψ¾¢0W,6ÎIÔ¦YC+ù~ÎÆÖåV({:`‘­ó& “×ÊêùVÿÀªPê7s¤[!ØjLíÁFÕZ=ë^>LnèXƒ µ1 ®%6qtõ"Ú§óª[Š‰CAß-æÄÕ°cïæcÔÐ_D1ƒáÄz*”~%ajsNGž› e«ÃU*Æ\Ïb HWÌ‹jfNîNãÏĘZriþ–‘ŸÏ•{jÁgú:Žß][àó õÝNCÿº[Z†oD²U“æ㪧Òц •5á±Ã†…v2/®‰…øâ1*c^­°Kc¿‘­•FZ¤BH3ÆXq[®;…Þÿëÿe20ùq–ÞØrÿ¯‡»;»{ˆÿýpwûþ£‡ÿûáÎgÿ¯Oó¤Uõ6-O«ï?Ƥ¿ó^qºõ×¦Ê Ñßü+šP&èmâ”RþY[·Gô.¨æ!VóVÓ5 ÔOaݦªàex ,{¾u:i0v0åfY5ü¿;óÛ¼…Ó·ü¡`ãX6ëBöÁþcn?>s\õ¹•}8ì¸iò: šû0äq•;C!ìŸüØsÑîÕ£ê=Z‡“b„”o!æׄ ©Øܳ®¾’Å5š¹Ó0ê„y|“:á¬0(wÄ¡©ÁãtÀTêE«×Ç.ÔêJØ(2º× „G£DÞ,:=!^Õ c§fóĢńµÛ©ñw¼Ee³PÁbÍ]Ü`ù(¾Š.¢¹h$høá}ÛWÁG¦SdÙHP=•ô¬a”È)¨)уó{¯ÚmØG–kR¿ûª­§àÕ©™¾šÃ«Æø™‘ÚPT=.AvK•XŠ&ødŒ.A6¨ `s‡ÊÅ,€º` Ug“£‰ !EàÏœÂxÕŒ½½ŽRÂ^^ÄGçöl1eÍFo‡ˆA^6E£h.ììðàØçaö yˆ´ÌD¢Dò± k”úšÕ!ên"žG¬þºSwØéY¯stÚ:îÑG‚Nf=Â/ÕX¨5í 0ЙXãÄCðÂwÁ×xd© ë°¶rÞ궎ÛÇþI«û#ÅÃS6Hº6§|ÝÈCî@¼ •d„ðݯ„ôÀr¿Šy‚ï)ê"IÆ„CƒL}ú06,ì³KŠƒÃÉ3¦Íè‰Þ&^Ã5¸´$ äzèm‚Ä þ@5«®Û¡Gð/›D|¨¦´výçUríOÐÉDªQ˜9¬©øÁl¡Ü,¯«œ“üKB’<âU«`œ$Ó ížõÏj5l¥ÎPG\æü ëŸá‰Ôî·ûêE€Y¾Âº˜šÁ`‹ú Ó_O¿!´¬/Y$å¨oc~uëê_qÎâw³^Hx{lkg‚‹Ç_ø'ÇÝpJó&¸þdÌÐLjÑ3DNa¿¥áÜGYÖÿö'AúÖ)(LB7ä·˜=Ö¾v›«{N1Í]LÁ.»å ÞI9‹©[³æ·‘ônRua‹õwl dè Á°Ççõ'*Ù¼WP§ÃKk›5T)6ëù xŠ1„Õ RrZäÑqr‘ o¬}•ŒÅ&@G‹jÕj132Ž÷Ñœ‡ñ¥†Û²¨Ñ¥ïñFžˆç9üÂ)[í×Õ=sˆJÏùmH !±`»å6Ã1Œ þÜÿÈ쮩¥ævÙ{jÕÕŸÝäê)®È%‘l•OõùÉÛà&_…‡÷Ûß­ðÔZqýë w3ºæH¥×=ðOöœ5W\´Ûß^ø~Ì"òjÛ/ZžìGß~[¼Ùﶶ :- mHî+&œ¥S’ÙrôËrB–x' '¼g*+%]éŠ0?oÅ⋸¼Œ?àÞg1ÒÈ»ýv¯ï·Ný^»/r·FÃÓãv«ËxAS5±‰ ' $I4åû46´Ób#ØZ(§: Œ#ÒR™ý²åØŒÔs7cã„ÈÈ Œz5b©ÌõHã°vö?Ô×Í.:2BÀÄ)’`›×ôi½ˆqØvÈG¶d#&÷ññðÒX…X2{L3È—¶àlLÞ4àÀÛÀ Ú@¹y½G uø~N|þUÍû~ê{_m7¼¯v6€/?ñ6žÎ6jÜv½M6€S×êü~{£¶ƒo¬<£'çNV!Ó2™™ßÕñQ¼îþaûEçUúJïw¦[ï×U5Ösßê뜜wŽÛݺ9©ôžˆ‚‡÷abgQ¬÷‹jæ—ŽnEyà /^¹´_e/ÛÍå sæéW;¯vË—†Zæ·ð2Æç;ê±»,_V8u¡'½C¯ÊX…ÄÛJTeÉ1æ4;½ ò9:ã°:C{’=š½i’bz"Ù|Ê; 6þ?Xî%˜°Ùg«eÙìO~:¿ßF‚Ó?ÛÞÀi„¹ö̬Îë½{FÅ¥ê a·CÞ h(Á%…?¯€ÿ`Ëås¿mÍ}ùLO\²gè0çà©ÛæK¥³ÒÛ|qá!ánázK —沘`+wÎFpJN>þÑ"H„!g£©¬ý4Ú“äÐ’ª}3!¾JI<@‰¡‘æhÿ©â„zpAY6§Æ]Mº§_Mæ‚š¤\¿‚IŒ—ôÀyÔÿcïoqÐÐd*Àƒ÷Jy› $Þú…“hkz• !Òñ/‚ï¿™é7ì¸z0˜pŠ“ U“-ÁÕÂÑ3§Xj›²ôadçãBêÉÁ…€–…¿Úùÿí{)LäWÛûpÊ]ymoä¿ERÂNZ+ü €÷Ôf¾ùïó³×íîùéÖ‡½3ݧèLKÇ®óY$—:ÖZŽ'Ÿ¯ƒÙ{¶_íý=Þà…GÄkÁÈ‚)™qéúþ>L¦×‰Û\ÇuÁ¤Qu@E?…u]ÀLîŽL5ª.ÜLþÎ’†ZÚ`ŒRóMž$U]éüzð¾é}µ‹CÜ‘:¡.€@/Ê m­ê×–·sáv ꂾ€L#Mç2i,––×…Žû™ò|M(AØqÖ™¯]XÇ\MT—H0õ8g‚lj3UR]þ>Ýà–ÿ¾Cz1¥ä£º[lM½7×C>B’¨”x׸.$ò‘“ÑÍ\=ÌwyÕy®Ùˆ€™|<ñÜù·Ù‰þÐgá~鸨û·æ&îðúw<û¤“ÐÎ[QFþE¾ƒ%ö@X^»r ØâÄ4Ö+ñÔHif{íBé|ìÌxPei´}ü”ÉõºþkØq ¶ä:‰ÿd…Êå%'«G\äÖ#j¦âÕÄü/»¿oïÿ¾±º­=¦Ž‹3ÓU­¨¸‹5Gý„˜˜§¹“%ð7@î¹…RB; wSf‡t;½»Û`¼|Ýh:UñdPáâ=[«Ó{éM: §é½Á,JïMç[“-½aóÊ¢ãŽãNAÞ?ç!.ýi4NÓ$þ&ŸXñ iª=¨ ÄO°s0‡d´PÖT¢* ¤ ¼áb2¹Q[žÐP$7@"ž»ö6)ouIB¡Äîˆ*aûN½MÚ)›\$ø¯›é\êÐxKRé=N•UL´ÄÀQE]ÃÏÆ6œÄŸ2|·m/š@í»¿ì²ì[8WÕB] auË¿½¸yÛË¿á‘•¾¢Î_XÁÌѼ¤ÈL©ù þ¯$ë^öP./ïسõ$"R~àöí–Ù}½½ï¶ïÞb¤©^?)¢,ÏËYøcüÚW»uWØJƒÿRùâ«Âè¿¿R=ÛöZÌ¡,¦û|¨„&m¡qß0gl{,X›ß3 ”q]UYçÔÅŽÉ-'z•“2O%²««Õ"CòYïÅNµ²µõ /™ÌÅ5»$éð­ËÁ@…·.(uó5EúqÁÙ"¦8 rÚñú³ÅÃûͼҧ®.„AÞô pD¦ù ¿®¬~lèÑ!¦_ rý6ˆ1þñÙé‘ØwêÙÒåÔlå)$ÁRˆæ`Bbb}¤Á<¡nÖ‰¯¢€¨Öh‰Th݆jí÷¤÷ºsº·›ëjÁ@‹,ìµãs1u£±þ€3÷²'óž½;§¯Þèk)} {“Þ›©uÛ´|]œgâBá9]“ÓŒ#TÆ&Ñ4õ¾÷ö0ÙâŠÊ½šßzNˆ5ó‡÷uºECÿêªDã”RæÆìShåÑö6(Z…¥·º`–ë¡W<•s­ÚVVfv×[±Öì2‚ºyͬÇt¹-Wl.ûáÞnQûÅ{ǧÛv_.°ùá¾ûùrÑšTLJЯဆ :o꾂4,žfÉÔ°‹múdÖvÉIYº•ÇSæ®Veõ쳪Hif¦µš«´•c+¬pæ¼v©I˜:÷ €È¤kè¬á~aÍ=þH.±ÉÀǘ«ûÀÿnwãѦè,¬}Qc|µ)ytøz, i]'úÌ Á¥a™gFVb†à·HÿÓÜ›b &ýÖ–ÃMzºA‘·Ü"Óë`ên B駲x e–Û¡„}çJ6ϧY^íÈ«ÜiSnC¹JYŸó6’ç`ö Ü& ]öÒËsÿ¼¥±ê” "¢"jÍBN = $á·I‘ÿÉÄפ¥U¬z0ÄýÛC ™\5Y…£aw+ÔQLvM×Éì-z £/8|A]n°îÃÞÍ’¼]~~ò'iÊ ®bhqÈ´@?Z3XiPÏvÈ·YÑþ£Kyôöc‹ï¯ËGËÄå+þ°âS, ññ.ÒiEÖNƒ§3æYgÈu…¦’±äò;•i™×9Òõvÿø=b9‚aØúcâIj&‹Á„ÁЀp$.ƒ¥‘jÜ[êbeÙ[v™)·äŠµ•tø#EHŽOƒ%îù–E«¢´x¨@·œ¥8)±NOŠjeOº¦¦áÛRÙßµ‰y³VJpÊc‹Æ^.ASŽé‹ì[Žf!rûb½¹žƒ½¶ÎnïbùæÈW>ìåH6ãYקeæ;ÒôWNGNÏä9&ñ!þæÏëµ­¬,4Íz[ZWûvl¾›ƒéR^ˆrümËÙÂ㢧¦À—x ø#ºk`æDr šcy—@%Óp6BÌäÂñe\GœClÒþ3L¸•Ú^péœjŒˆÄhp`7†mqŒÔù2¹&„k¶a%±S‰ ÆR:AŒ%Q‘ÍÑàÂùàŠ† ”†lžQ'Î ŠL åxc…³«`J` CŒVBc SK@. ®·¦»4GíÓv´]TZZÝ6ÓäëÖyXîù,¹.Æ7ê0- }NË"&@º„}˦I^Ñ!G¾•ÕŒ§Üy˪<à€˜LUzÅÑq÷Ð=*iêŽWÄIW‘ å¬›•HS@c¦1e²ÉAy*3eq<ÁkÑÚ4(L<ƒ…îè3ÅÊThWY³@#g±Üy ‹ÓÖÄJL0b“FÏqU~ƒNìÞpOšö€WÅΔ…ÎTLØLiÜŒ{at†‡•.\ý°s¯Qc¾XMXö ×µËäÚB˜A”¢H¦ÂÖÜSÍ=^?|†ìØ"g’xö²oÔŒYŠóÙ÷Œ/±Ø Zâ té &Sñ+ÞmÈ^ÿdc¬}U¿µ¼‡ìȵk_V¯¦:CA¼|Éû+!¿&3T×}Ôýw5&>Á–,áü—„Ké…Æ9bΧyü“Lf ^z!„„;iÌýŠ¥4&,Dˆ0(t½¶à\Ï"GH˺”ìÙt¿ð’ÕÂQ¹lô{v§ ñ«>sâ)g¶[í ¥,Ãט7êõY÷°÷ßýñð¾îõ‡nš»Ù3žõ³”«˜=â*«îÍ“ºø¥û%Ww]ÏE†=î†ÆãîA±ó{Ó±ÌýÒOÐåÅ+sx!Ç·!9¾íaK%ž4ŽO[I5ì§Vür¡o°Wâ܃µ{{…=$§5)]è~³±Ç^m¹OdL¶Sõ韴s~s<Æ|ÿàäÜïõ1#öÿyÕ:_*.Åž\?Róߌï’ûr-æ\t“sk^»ú.~•£xæ"ÞvqȶjŠòCÎÏG‰¹ÍcÑÕîKWå*ÔÒŸ¥”V²âò—ñg/óû³|´„ï§0CïóaÌIÐñBÒÑíoÜþœZŠ"STÉËå%óA\0šN¼.Í/Ó »sïmOCáAßÊ~9ÌÚ ŸeNˆ¶¢HTÛ¥â”M®†DoAŠ–€üògÑ%ÅJ`§ò_nV– €¤VšÚ2€R¶VqH–ì³ÃDqCLŸñ”«£7¿K$q틲ícñIøÏ·ºÅÇømKŽ‡eœ‘DU¾#({=IA`áŽó-_¬±ÝUÝÀwg?rº§@¦Œ.ª’ÅܾŸr¯<ÖŸýü¤ßêB#ã}좠é÷6ù™;ÙÖ±Ÿ¸·®¹‹[E÷4ÖZ¾ \£È õHÉÅãHñyâ\ìÁ¤"$]ÂÑòp¬´!9"ï«(s›²•#< úÕºw„ñÐKÇa8Åë÷¡N¿‡ªBº–Go3šÖMxÓïÔÒ-%Š)øŸð/£‰àÌ̱iJ‡hÏœ%Nr—1r­9‰¬»ïÞyçÔg`<^M¦â›{O‡oÿ2…øÐ&ðü£Î%­ÌT#¶!œa :ŒêE”D¾òãä=œxk~5£{[¡pܣмTÍýð͵«çÙ­Àµz½v·ß9;í.ï" ¡»Âoä–õÒù:;Øz]Mü<Ý öéåÙña»[«ïÛBSœˆÓýªu¨˜Ïo¡è«Ó‚úþn´F¾wû˹óñ®Ö’ŽeÙÄÎÂ8âkí-IsŒ‘ª()mtx— náëž=ã):™±2Ô9IÃI0½JøZY÷Q?Ý×µ¹SÆÓ…¥ ¨té†wÒkŸøþéÙëV§O. r^}xsödÒ¡(†GøÝ>]ÝôpÀl:§gÝnû ¯Àâç&ÝäÆþ“ÂzSmœNʘïçÏ;Gî2!£eš¯äv[ž ~+Ûö¾ëšù±zR:ÃÛ6‘çm$ê¨-`ûèœ;0¥„ÄÎBg wŒe_Ø®°ªk‘&™C•VVäìãsFLí8áŸÎáÜ•¹¹ÊÛ2®â9z×陞ð~÷gì‡eËΈ™‹mIE•f~às”mä ™uœÝŽ·Œg|¿³«±Ö\(ñE3©_—n#i=·Àªï>ûž4f¤b¤LÓõ5ŠkO9»¤CiÆ…ŽL75·ŠF¦u–egýtvÜêwŽÛ®fÍ®Åñå¾Ýfû´ßîúGÜIó‘à­Y¾éô‹¿íl‰U°éç™9Ù·xŠ»× yG¿|ùP5Ë둃`)†Ö— ÚæÀs³Šäã9J¼K+û/Ë_–îˆØN¶¦‡Â9´Sk(¸XçŒÅìwðŒèÁÉŽ‘Lk… spg=ßË`2óƒ9ƒwᚥ]ªàõ¥ó2³Y3må¶r®/«¾p7õ‹Öq¯Í°½¯RFè×N~ ð̪7µ÷±JÑ ­Ë1Ì€B˜s ã¿Få‹\—˜~Õ@5»W[ ãúÎ=sŠOõCÃRâK&oéÌ­˜¶?yÎÔ”Éèo,æ—…ÌQWbjq!ŒíR¹7™ö ¯]ÆB¶.óÒAðEç–ìGz eWÚNNs¤³'àšÿÙ)M>ÿÜâ‡óÿ\¾87wÞÆòü?{·>øËöÃGv·wìíÂóx¶÷9ÿϧø¹£Ô³ôS­Rø÷(„:[Êå·ßr2Tœ]`|C]œ8èÁ­QEw•§~ÖOÔCŸ¯ÊÓcôP€i65ÕñÙy¨ì1:5ëd8ðEo{]Œ½‡ÞîÞ“Ý';÷½óþ§&6£T2âB¹Å8Tí§@™…p®>%êªÔªm¬àÞa8‡#ÄÔÇâ0¼LÝ裰áµ)™GÁìCËL˜"æH?øöÛIÖ‘FÃ[¤dì•Ý]¶Þ†7dwG±7Nyõ;s9Ò*æÚ¥< Þš 4ƒ‡× ÷Oÿr`?yè£jîQæCÎïÇÑ0î·*óßU0¯rÒ>Z´ç â%p7)¯‰ž760YéìšWœ7HÓ] ƱH3¡nƒ$E— >«±sÓ¼£ž0=l¶Ž m¹Û9ëúçgôkOÞžöýÖá!-ù­¾ß>=„™N ‡œ‰0¹Æ;5±POá1‘ƒBÁ¡=Pi³çIUÍÁ=X^o#‰Ã- Ü‚¯·ø³ ZTÚî,!ÿPv'm`(fL=Û¸¤\%˜Êrýéõ)(Þz8» ftM½:ý‚ŽVp ?R2±’‹ä£ç~ï¼ÝÅ÷“ O‹Q š%9WgœŸ‰Ò6%x}‡LãNð7¿™bJM•ÕðÝhZ—¶9S ‡WsJMf‘¦å{fÞPvB áQ°ÏíOò•Q®€–•ŒÓÇÀ …©¦£".ÃXÒ*Q\ÅpAìjŠÜ™Fàáf·êä²Ñ8¸ÜpæÞU ›‡V°g2Á„¯Ò*ìŒù$¶€ó£¦§¶™é¯;KŒúÔ Kl^ôî~ªÕ¬·Åq]2[ò—‹¹6¦j+fˆ€YÕÃë-¥‰af˜ŒÛÚddŠ0CT(pºµ*îQ<”ý<*Z\P‚_—îÚ$T“îPØÃ.Cî"$\–€º°;pzOCowXx<¸ŠæÐ= ³i"+Áé=}uâãñú³ß>nŸ€ Ôój¼ ÛfÖºNø”mƒKz$‰U`µé½èt{}U¹¾¤v ÆÇì’1¥ Ó¦ÕÀ’ƒE›’É;àdÅáxž²Í‹‚½§ý[ý3LF5YFà0[žz„åê¿ì{öÅÉó´Ôò»iwß0¦ü"Õ¼Äã0ÞZ­¦‹lÖa^·žQ7ë¦xf ì²´FPÊûVwØ ¼^¿óM‡»À9øu&>\~Î`<˜ES̵Gr…{ˆaÚãªJÆÍ{Ê*@‚&ÐÒu¢¤6¦óHI •³X}àF Rµˆ W~â³QNÁª9A&aß"¸†>¿ƒí'\ÀNNé"V14Wâóõxt^cù~> 4Y©8•V±jòRþhD®¸Œ1P–¾ 8Ò@÷€þÕ¬K¶ &Ä`WoZžƒtÇ÷t°­z„½™›/qDF+£îh¢è› 0 …(S¶¼ªÊÿg²6s²n<ˆQÕè‰=Ÿ9)“:u`4¯N`6)ka>%³À>š³ôÇÙkXx¥DÞÄ”9!µb"H⊽Ð{5íöû(5¢”dõ®ÒÇÀM·1¬{N'ªö°ZJ³­ÔZqÕ¾0†AÇÇÐDeái U“UspSNxØ Ì)Sò0E…cåš‘lì „ãŽÆƒKj tÂvÊÅ–3œåPÔÁÐï%«3œ smg¶œÂ[åãŒðRâ-gRΤöêÈNí{bW[Qª o²ÔÛ°6ÖåÀëoà!x R·8_õQq¹Š`–’O%$#"+Cñ†±U QhLCÄÑœ ÷„¥´­‘aî±tµF€ÏÀøgœ;¶ŽV˜˜R¤r…‹2IHÒcLD'ïÝ«x6R;h~AƒÉ¯Ûß~ÙP/ØkyŠ®õ´Ÿ Õ˜Ý Õ š$äcËà U1N˜ #2Åj=e¿ÆÞ¾î>I,ìE…©†µI ç†>¿"wL ät"t":cH:‡¢Wuöc¥èÓ>‘40sU;²ùpÑA@š9Á‡Å7¨iWˆ{›Ã×£–± ŠÅïV—,¥ÁP‚-ð[´R×ò hä[¼Â6øk£ÀXã­ßµFP­v:!j¸ÃK Bd¾áuy•~Ä ¡V¿k°Ê[ÆÑPjLƒ²‹ðwŸ%Å}e¢Õ1ÂIái‘“í8]6BX>ceNg¶%W…C:<ÐZ ‡oUnêOȃ N³ƒ³ããöAE«TàYE­Ç%5’bqšÊl®¶¦V;`sÎLõÎFH&é\ÎÒš`ry³ ÑKÙ²žºæ/ï‡ÌßOŠm`4'¾ñ;6\šp<¨¹dFd1¿-¤nÏr›G¨D\#•½y[Û”¾ -qÿ÷ß (GìÕ·§ž iÓšn`U@ÐûEÝf»údu§ï„ÜɨŸ¥ø5¨ýϤ«OGIRDüØ{CˆA;]fѶú¡Ï:x„ Çdz®ŠÕB“µÚZmºL[LÐ[¾øjkm¢ÈIð ¯­­J›+»M¾Vô1Ûkѵ˜ý%~£¾þÖ«a·<06åì«* ß®’¦äÖ¬^L;D/Ûún5_X‹ïXe©²Ýv›[þ½€ŒáÐC4w|Khâo¿ UÈ<Ò%‘ím~Eâ@x£1Þ?ÆAšÚ.‘,y:>’°#ŽÝ¸Í¨d9Én}³oŽ@ë©Šv¯¹³”ó}%µÌ ŒÄ>®uÚŽy¦X›¬qncȾ€¿Qæp¶šßô®QšpEû}½ÄF מÇ:±b[Qçìº×Ó­gêêç©gAF–lTA™ÀǾb;þ0Jƒé4 ðþËÑïmÍûÚj¥¡û™Ôë)o;KÔÞôdŒ¯A…=ÆØ5œ3±›f¦Ò^¸k¶1„ÚŸ³šË×RáüQ7êv5ŽQÇ&'ù—û¸¬‹™ºK@"jÙÁ7¨bÚï™íÐÆуqBî¿5-k–yº»ûÄ.¼Ÿzif?ÈÈìB›ðØžýèZÔKÀï–m&5 v9)R/Z›’bÎ2KyýL8:ªÎ’Ñ0pÁv¸v‹×­tò~ËÍM÷yФÁ˜òôd—žìî;„@)6KÉÀYƒ†÷5.Â~áp^éÕúäG­–SðŸu°ŒÃ ~5ýô‡Š»Ä[;ç… 2§ž‚TšÎgèt ÏÜOF£4œ‹k§”À]V¼Á<_FëÀŠË75”Ô1Á®çí Ü[½2ØÕ³ºey×[Ï5ó; I;}^ü z­~£ÆcYïL—{áN7ÎÉlgwt¾Û)Ô3eŸæ¥'éŠCn®O8J –cB¬þËbaîj¨9g)É­Ÿ9ÇUn²o3¿™y± @=ÿ¸¥éRMOîø,€Lj'…Í+økè´Á³“׳„—~ŽðÿÏùáøÌ[í/ÆóYôÞGÏIN›wí¾<þ{gçÁn&þÿÁý>ÇÿŠŸ/UH+)Óhïë´ç'Ž?ÿu¿ñ~ù5{ÂŽñ;?‰CæWÍ9ð–ª÷¥w‚i9ñ&»ßjƒ³²AÏÈš½ü\O¡&:jŽMõP”/›xƒâe^Ø™Åí´J-7â„5 )쀓oƒ¬u±Àð@áBï¡_ÒçV¶f78ö/wÆ/Ÿª¼R¬J·ƒ~Y¼Ý‡Æ¿ëh2àšp@÷ªÕ{÷àÚ£+ `e¹³¡_ §ÂMÉq+–ÀÍY8ŠÙ;êx½þ1V"ÜE9ˆ)ØùÂ|ï{o¯¹Ý´¶RŒ;^7_ ÌH2¢­C¾ôrõ©}˜§¤Æ'Œ„žL`,Xdë°Û>ì ±h¬OáX[ÄÒ Äîð9ÔJõ·‡ðd &ð ÞàB c7u¯Žæ$ƒŽxíè;S¼D4XŒƒY«DÔ4$ÚšÂÀlŠW$jò.>…7éc 1FŠ€ÕÑÝPcÅýjÍ-û :¦ôP|?ŤÂqu)ÓÙUˆ1¶”)¡lo©ø=Â=í65wéKèÝ8BïF«1Þz55¥ª%¿Ã’• °}CÎÑ¡Œ ä)8š+„~‰f(]Œ¾4ÁMÖ3õÈWO*Ðâ¹$›§:SqFdï!r!W„ Óýêr|Ó´jÒ†ŽÔ¯Þù¶Ž­néÄ ôȆ§‘G¼‘‚oöÍ÷ÈkâK|Æ«Ùþ”q¿FŒ?¢Aï.Hþ¸Ee÷>©Vµ|Ï/ý†ÜÀÐϪüGJQ{,Qx¿U«ÓÅ´!Ò:VßÛTNÿ5ñüŠóyŽ~ÓÆ´ŠÄ?À¿O¼Z³Îí=y¢ëˆud¼¯×ÂxAk8[ÞRaíå5“eNïå°-MÞ²iPäX·c•‡ÂˇRÔ`Q3…Ugªý}¿`»ä(%EjÌ)^mX2¦²ñ— `°äkqðÑp° XNgÑ»æ• ÑÇ(ÞúµD±@—kKç‹Ñ¨©†$\¦ ÈŽB šÌòÎø ãè«ñdjVÒÆÁ†ËlL¤MNMpºÀB‘m"×ô§óÙþÒƒ[}½¸]ÝùÏsßÃg¼N9JRÞ`CµèY=߆*¼ÜÇêsìÿ½©4¢œqÒ"ùÚå\ém#ˆóïD=gì†ÏÒ}FA`Ò9ïwÑ]ª²_NÔ†çœÒtÆ`ù–ó©D®+zÉþÆ€ÍTÚ6)o ׊7?ô§[ËSoW§ƒB¦Ÿ}»çáf0•O‚÷>žÜ>Ú£ËOè? y5¼§ÊžÍSX/øÚ7øJO½Ç™°çƒ\¡{ùF± I6Äôä}Í$Í^4ò Äož6ænÊãÍút3øàœÀɺ œƒÍD+î=Fõíá ¤MÅàài ­o²Ð4MÕ7!èÚ,YÄC1µ˜¾ëaœüÛüÐë÷ò6s“¦(»˜¢™ƒú‡ Á’Æž4Öµ¤{®œwËÎ’{÷úÖØ÷¸•(A°:H‰+¼÷õ¿YG)Œó áÈÝQYº•†£õÃô3/é,‹Dü(Ú qQr4æ€iª u// A%Ñjw¢:4à W5 1Ô:5’‹¤péÍB‹C{zÊyfæž9 ˆàäÄ*̸ÊÖ¸œ¸|ÎÂxÂò¼SGoB”fFì l#ŒÊ—Õª!¼‹“=™…Ê :çÊýË»*8!4i‚†b¹Óšy¨±’ Dn­ ¶­êo!šNÑ\”W–ÑZŠ«¶ :àˆõ“r¥éè@àòþýJ6½°Iù{~ûäIéÂЕՇV¹Ær}\ù9¼Ëß®v³beµßb%…Õ.Ë·O×ÞR½· xNVÍŸj›·mbýå–\4°¢R4ª­§yO–µ†µ¤5)B¾ÎK…e+Xß_¾ÀùjàX8s¦Â¥4žK$KEŽF T.+YêÞ~&öéÈo‘…”ŒËq¸Å9,Ð@vÉ€Äè…°ßd& Û$¬àZ,`M&á0‚) ´ýëY4Ÿ‡1‰B”€NE14\£ŽFNŠ“dÊu `áì·&-ÞU8žbÆ<‚‹Ñ·DDàûŸç+;¾-2àäÛ¸Wq9ý=\J:¼‚%S-ÇÅõ}þHé3£ñ•óÄK8=5=¢07ïY^®[ô!J× 5r£ýd/î’|ÇšõÓ§^-A/ùM(WGGŠJÅÔ SÆíiUBµÿ;ÿ³i÷ƒåëdª¾±ª.å›Ng ÀÔ8[ü^¸<0PÚKþ¿è:IVÍ‚åÊ*ËÜz‰*øé¬Rb•á)u,A7‚sÕZÙßæ–¬ºj‘hÑE ¦¿¦Çü»rÒ™ÈÖÝZ2cz§uY0x_¶©•â;5:‘9üÐ;±ªS{²ž¤<Õ­fe§nOÔÚäNßa•2 ¥·Ô¿ÐŠ­±`•µwV¥l­èefF+0$í+gÒå'žÔÅŸðÉ}†zä„2æuà¿þ øi¿Œàc²%íhŠÈÚÿ8^ëXÎ>ã®#¯ÿÉæ'[YIJ½jsÖá?n…[ÿRKü‡±ÓýqìûÖîªå”é,åâÖZ”+È?á ¼óy¿Ý±¹jÒ?øÜü°¹.?EW¡êü4Ç¢§ÏEOŒw£ š«QG5ûæ‹Is—h+÷º"9ìÒÚ„ê²g ð¾èFJ–…wGíí"Þ7 *]Ó”“°Ð•7"<iüC`^{ç탅ÉÔú <âõæ2¾ï7ÄcÖãïêRI2—/óÐÀÔÎ…N˜»â8Oäé3ïØPÞ"yi8­-¯{Y½+|4¸•·Œ"z.ôÏXÝœ4²¼â\¥¸7²ëŠJvCó¨zî}„äå¯êó²oFã$XZ‰Ê2d¾(éæ²>®ìàòÞ­èÚò~ë£%]÷cÓóuKÈPÖý\­ìûµ»þHo9ÌÛŒñVT£SùÎa~ö^ÿâZý³n¯Zýá‡ÈË—üˆØ›-•c;ÞôÎB n‰T¶,ö„ÜY¡¼Ü¶¬!rµ>3RæÍ‘v.üÌŽëúÿ+ÌÓ»X‘ÿõþöÃÝ¿ì`Ò×½í½ŠÿÚ}tÿ³ÿÿ§øùìÿÿÙÿÿ¶þÿ³ð]¤œ  · YÌ8ò§ ¸ï5·±ø«o6•K¸þ€!¾‚3¶d< fCoCêÞÀ¬.]ÀprÍLÿÒq2…5†-æÞ»`‘hèo®`f­èöfSÉ[U~"t"ZÄð uEò›];Q\#Ëéô;&cIï:hAûÚ!ÿQ*uUåŠY?@B €ú$Ù#‘‰B¸Ô¾H ¬•‹™Íg0²á…7È…¹àpËèÒÓþ5„Æ1ƒÌtª,:É!Ø$MU‹>z£ÓC‘ŠÚ@ðG¥X¢Ã7´´”%ç?²ÖÃÀ‘ŠÈ{ å$ÿ'Â}_ñeè„4hÿ&›+ áK”ˆÙÅ®£ôJ2N¦ &ÇêƨJ‹…þi©T-úuaý [ÌŠù„€€ç³d¸À¼I‹ Ìâ…f8Ú,°Txƒuan&`*ª•Š$²†²!_Á öÏXØÀ`ÛN“ðO)Þ,”\æð Þ{@v3kTà …jð+áß:­ºËÂ?(›¨ÝŽÄH‰Âé°kV°´•µÚ,dÝûúk±8È3‡˜|1ùbò9ÄäsˆÉç“Ï!&ŸCLþ5B>‡˜|1ùbâ.Ù¿dˆINÑdÕõÌÏA'ŸƒNþ´ “Ì%Ìçð“Ïá'ŸÃO>‡Ÿ|?ù~òo~RvžåÕÌ—ŸCRþÔ”;•C>§8kS:·¼DùðÿRp ³ãý‡‚ß~û/Ÿ’Óû ;fƒ2t­™@۬ܮ±¥ ý›G°ùý{¶dv{IoW~e:½òSéûÊïÔr~…É~¾Þ"Þ²LÙÐ×]à[–*žˆ¢ÅϹϭQS²uÍÑǬÛïOŸU% œßâÓqDóô{xcvˆ)¿™K`vSºH’±ç÷|t{ˈq˜¢ÌuQòA#žZ‡C¦RÝ$|k—ñ_]®ˆ~#¥,·ê‘J«ýôiû©Ê~Ýp4ë'óßrÊQÀÃù½¸/î¦Q0NÃŒ·ÇZËS¼‡ît±ÊšX{éJ+¸õB×´jÊKJ}À"ÿqí0d¸Å®|®îµ—<_òÖk©bÕ$g?ÿ€Õ½ËïhCÿ‘«»¢¥ÜÞw°òK+¼Ýf»ªøT½1S|Üß6´õè_9€õóÏGýçÿâ „»jcyüïÎÃû»þ²³½ýhoûáÎîŠÿÝÛÝýÿû)~–Åÿ>ÂWÙø_åÀ=óz7)œHiÃëă‚(\Ž¹mPPiCavä+ŒÒpß:o1ni„ÿLJ%sú/J&Îäö?ÑñÜ*–{ Ý É´¬Îø‰Ò¤XlŒ§7ÌF[ÂäyGr>¡ÄØ×ò LGÆ÷%#¬GGHèôúhåvE§ W—*„]#›QÔ=e¾3­™@ÐÅPvÛAǜߖ"6­À6'‚ežxEÎ&¹þab|¿9€=ãæ? bèÌâîa’ @Íì$àUÆVËšTÐ :nõ–~΢w*XgãöUþ³£ÓW”P­2V4Ž.fÁ ¶õ5ð²+êš«ÔÊ hè…‰Ÿé)ÛŠ¢iQÒ6ý¼(îUÂ&MÔ$&S³*è÷»þ«SQ™ òýZmãdc¤»³#E_S/!s¡g­,3.ã5¬œ?L)f ¦ðú*¤CXMöÞE%¾zoã䚸åEhß÷4y¡`˱aðl¨aNçV 1i Mý.y*b„¾¶Ž[ݶs›ƒY"S.Ê$|… iYÞo e™ç¤[˜9‹­ÿ‚OE-¥ëG·tüN}uÀÝ—ÖDg:[ëãýƒ¾†~涃Ûù7w™v0­ v6ÙR¬b}¿èeÕ]ò‰|[v6_QÉ’oä Xøu”~!ïÇI|¹¢ŠòOÈ]üŠ Îðî¤Mqêª3@]…aDØݾd„šûS$xgµ¢ÑA!Ä…-Ó©AQÿÖå'3°f ¢eÄ_„‡À‡à{à@ÌYõuaƒKÔ='äž1œù‡8æ—Õuoç™Û’~^Ö Ï@ ª]˜áS` 8q|êÄŠ#±Ó°ŸÐ.™ ×í‚ì?cÚ¡~âÿš±ØÀB°,üDf ò_Q››b½³ßëÈdüŠþð ¾¢÷_K-³P+©çk©§ð;&2ùyŒªËøMÑ|íhÆ’de²î4ýªQ:¶ú;ÕkSCǬß-D„“ÞÿS»K•â®øfB'¡²\_éÐIŠ‡ßæSÆúh.R´³šª¦¾ žC®£ˆ>Pfp utïXvù OñYHª-š7+[/ŸÓŸÎxÜû|ôu€c®a¨4R>˧wEujVÝj=ï3Ój½¬jRÃyBQµ¦‰›}_zÑóÑüž=W"Ôå3$µ¢ýI16$÷Ï{ ñmñ¯°…%/ n(rçŠØÉî×$tz‚•"mÍb­ 2ÄÜÄÓ§P%§¸‹2.räÅ é-ò©MŒR,'s`2—ðø¯}›)±˜xm>cß±ZG¥®)§‚sÕ¹\È·Ðtã:ùß©ôý© hÊN"ÆŒ~ÖEA-!TÒ𜹰%=ì&{á’˜@”¨Ë2šrèç‡ÕÔ² ÁIY5Gô}mk§îÝsÇ.R/©d*n'&æû°Ôè‡×Ô#~QãçL«2d¨+¹±«ÂbðÏÖ³ÿå2ÆsI‹KÇÅè?#ª(8VžËŽ&º§TzÐ`?!çÆù*t‹Ìf™ŒUði-#‡I\EÅ ïa?D°)¨ËòJE•£û,ñÜFâ)“g6ŸÕŒâå„œJ3Ÿe•O+«í˜ÿ§D–uùáÝH.e­Y’CÙ'œs‡2RMÞ½íÈÿ¹8¸÷ÿ¿ï‚÷£;„þ¦Ÿå÷ÿÛ;{vðþwïÑ<Þþ ¼ÜÛÞù|ÿÿ)~´ˆt„hŽ_ãÉÜ¢(‘GÔ€_'àè,œ€ôù(ŠI”W·NWÁ»P¡(¼él7Íå 6l¡Q o~s $Gèuf@©ÿ Ô¨E‡†‡ð•ÒävõC¬›à‚/ÝøŠ€=´úEpÙ™^‚,yÀQWÂwÀyp`A \ ªœ“Ð& –±™:uÚ™„ _ S åêoB—Íð£`ʦ3Ä8cùÀ‰Ú—4oÖ=Wí«>}bW·[©@{xd¤P¨ðô|ë1¼Úƒ7¿N·W+ƒñ¬òÕå~þ·ËíÆåÎ/¨K‘d§±µýþáv Ã' ÕG0ÈrÖ\7dÇ·*JÄmLAF'†„6å}‡eÉNÆø§onÊ_’3ˆ’¨á"'×Í*ž$O0Vúü â(±YC²#Ú£œÒÔñÁd ߃îT+—‹ Æú1öqê=óÆèâuï2™'tD¡ †G»gOТåÖ†áÎ;èͼ®Nmœæd—f¾í‚‹”—N›ˆ½¦ à*Úÿû÷;Ulþ‡ó‹tøéùÿÃxÜN€û;¶‰ÿ?ø,ÿ’ŸÿXþo¼Ážáá=è.¹…•œ þqëyû¸VÈóëÖa}¨zuEù'ÕârzXÕæÎ ·[ùןϓ=Onsš¬y–ü)ûßµÿˆCá½4ƒZ˜ú nš~¤=hÿ߃ÿÿ´'ÁîÎCø}çуÝÏùß>ÉÄ~wè·ºžßÙm·{UåÙ‡ šÑÞ•Wª…‡¸&dDçS|ÌÚ>ÞŸâ1‚?œýä×$Š¥HŒf/Hò 1 CàKWœ€ÊT¯ìÔ<ׄvi‹Xœ#‹;fóS:.·h¤Âkb>K<«On¢‘¦÷!?\Óù,™3äïÅ ùÖ\Í|èøÛÛÔÉ59ÙµŒß÷0ŒÉxôv&°É½¶Øf‚&»$Ó(ųPÕÄé­°:qÈöfÀ„ÑÊΕê¸ÎdãB]qúDî¸ìy–Ð%ÈП›+whߨŽ}Q::ëºF{íöi!ýn8•kÂW¸èïçì—ÄKˆÀš ‚>ÿü‰?¹øß " §»¼\!ÿ=¸ÿpä¿ÝíÝÝí½GñþïÑ£ÏößOòcíanWwðZç<Ýt\–¾.º Tx3J¾Úð¢&‡$Qº´ôÞÿcÚ Å"¦èG×ÆõUB·mXÞ’÷:†&¹ú’Žô"Äu–Ý •AW"é6ì5쪓i4BºH­°uÚëx¥N…º$©ÒFSN”z7Q¢¬òh1Æû-̈À"ŎŠ`4©Ã¹D¯ùJ²GZñW”Ù3=@}cõF 'UE%V4Œ¡ZI8§oà­á(œáUû97Òz¼ c+ Rbç$H,U§ÔoŽŸÁÔŠÊÃ~Xß}×ü~¾â˜Esš‘x.“s_Òµ5Î’Q4FŠ N.æê~.SŽ¤ ’K§”ᓳÂ&ÃPõTãŘ­9V–Š 1%§T+ĉ8¥š‚éðMrzeå²å´£‹ËK7útÉdEÃ0ÀQˆch«éÂÛ™roµbŸƒPwÞÇD+0Ñ<$1.¡CS&NW^]ÛR 0ì ¼gݼÒПZ‚8RÊf2JæO?F_éŒ`FÇóhjîa1 q–$óÔ‹bGXÀt[³#•ÃaÅ®Hå.ÁƘ G«,[6ÄK»u赩Hb¹*üc7b%(xL®ØAïéÓgznž*×ņ™´é”Ö"ìTMº]Ñ”íÏ®ƒõÜŠºäF”‚F˜˜‹Á€šÞFr”6È¿#Ö Ð+0fÝÀªè—XÌVÓ-ƒ ½7ìv7KÖc½D’\ ‹Þm¿hwÛ§íÆG‘cÆ%€HÐ ÞÑoàIŽ'ÜâÓ3Ÿ°aÕ7 HÕ¾´eiñCjJBk‡þ‹îÙ‰ß=;ëS‹]ã0Œ‹`‚Í^:5ÛÅÛG /Sœc¡ÿ—¨ÙÎø¸áN‰àŽàzUz«©4ƒ3m¼l·Î³]”øfNõ©f½©;*$ìu©b| ƒI%D8«49¿Üt8ò1½Ð>›ª¿ðÍ%О¤ƒ«"´¼ãšçJ ôš6QªGiž|(“â :’L¸ûjüùMß'÷Zd°Ä…䈻ÓfÄâlVP–˜Y•†/c(1™útk„Úä©\-L†Oè™Ïýò±b_¹‹ T<Ý)·¥I0{KqpÖ¦XÚ"+jòÃ…'8-æ¥é.3*!Cž“US½’õZ É1~þÀ'|,MBÌZ¥Š¬šÎ€ êÈ.§’ [qÊÅ|º£YHr 1¹#‘îòyÎÄ Ûêb†±7¼¸ô'ãAsÀåS”'0k=ÊÉbk0ìTiŸÙ×ÓeÏö9¢h.%4q`Má+ëԌɄË!ý‰J,b8Tê…¬_­ngÏ’â",a¼ÈF|¸X£ YÎôÝÛ$µÙÖšõiþŸçÊúßÕ”ž¥sV“ï‰îìöw¥þ·ýè¾øÿ<Ø{tÿÁƒÏøOŸð§ÒäêÿuÞíüÔê·ÿ« O^=‡‡Þ¶ú­ÿjüŸW­Ã§; 8NŸ>n´Ú½ÞÓ½ëÃç½^ùw 8=Ͻ³nÿéãݪn¯ß~Ó·;îô¥Žíl÷ï[ßœ¶Ë?làkÿìôøg(Ò99‡V½ÿâl³ÿÕÀñXÿkx##iœtŽ;X°¼wÔ*^SB];Ô~CÕ yÏÙ8öi¿ûsçÓ?nÿôt¯Ñê½Þ~zÔmtû§?µŽá·j®TxÞ=;€ZЛÓgÞ‹në¤ ƒé Ÿõ°M¬ºZ×AâÕ¾ší>¬7à¿«•‹wØÛÆGuê]§/u¶OË™VÎþs9øõŽÝ¿Wá¿íìÂfGÿïvv÷öðþïþö£ÏþŸä8Ökç»Çøßï¼—Aœnýµé=Ç™ix­1HUŠp!lÜÂÆ=ÀcüM8KÞÃ3P¢U ý“ñóåP6†ÍlãŒ<÷V‘EE[·*\‚žU^Ù^vzÞ pÁn§uìÁï°}~êàUH«6¼×þK¯õ¼wvüªß>þÙ;=ó^·ºÝÖiÿgøA˜Pûk:ëzÀfŽ;íClñôgïU¯¶úÞÏg¯ºÞÙëS¯ÛéýX€›—G0cÐ4TÐgLpÅf ¼ž`Ù Zó!ꃉ¼²«%6´Y3ÕÆølb{ ªYbõÑx/Eï¡_Òç,ÒÚ²nˆ½ÂG3 F‚E…UévH]!f54Ån–Œent>² …¶MoÉí^ …R50飃¿ú½WçÄé † ræE² í•Tƒ‹f_f+“ËõBÖY©`%¢pepEӪ܊b5 !`îÉŽjÌGh A/ùÕª*o„A…ÊÔ6ÅGÁ\Y&¸’iQÅ…Fb4…ŽÇ7F%Ó+ë—F" µL¦'ˆVÁ÷¦8œqªzº‚fÜÙ¢ Ü¥4ØQ\ãl^û¦O¹¦”›£ŽêÉ;&Y[=’¦ÄÖÇ`lCeæäw“)ì‡aøžXËdJëȆzý&ÍÇ­äÕÒ[ðñIóª^Ñ#Ašw§†ú1ö;.x¢kR–[UÅBvçÅ"Åb®÷Ѳ,°©Ö2¯W”§ˆ2²ë[Ñß'¹†e.Ô!D´^±ÁlŵÜãwÑ,‰Ñ<¿!4 k»ãÚ ®`©Rœ›ä-Lì>P´—xÚ 0²fðT[#O›b0—X(†¦ˆ´!ëtDñ¼°§óDÏÎœ˜õƒ¥d8Dfs!¿ŽÌE…vµPËsBæ³®˜œ¥PÃ#tE‚:DÃŽ¦ö¢bÈ ©IÁ³©ÝÅ‘g¡À‚Æ0QéM5S úѺÄÃ1ÿÊx!d89æJÑ­,™Q(õÜ,Á潉²d¶´“W,KÑÁ„½ÊÌÉc‡I (D °ÔBãdhG.¯ÆÌš'â×zÓl5: ƒáOEÜ있ÀYÔôˉLV28`­›™Á³áÑŒ\̴㋆ýlžøÜ1_dØ>Ñ—ÁÎã×I³´˜ Ù?“°ÀyYì@F…c_#²Bž¿äzL÷[ìêkõ^} 5‚ªÜmùç-PW{²¢½hRZ%–Ï”ÇZHm±;KºO\ãk¡Seü£s1Èx“«B|\ªE3E‘¾PQh>Å͉98›÷}Sš>ñ”ƒ£–@•À$§!bØF— tÄS» Y"è“Ðñüç~»G£Y,©–;! ìyo=²,Ð]û,üÇ"š1~nÃ_ë÷åw¡&DÊH™YÕkY¨uIr ½|tõòíJ’qö•@ëÚüŽp#Ÿ0¬à"„ã‡îÄe?›µ³õnQž¡´a–ïnÖXùyewͺӫ¶< lñbra²ÐS–‡ˆr˜ ¡ŽmMª|õMwöÈ«ùKnßC2 ›ÎÆG~,#‘«¨ü ^byá5>@`„c•ÿ¡î}ýµý²Û>ìtÛ}¿Æ2ÚÈÖ!üáþ³S[óÊrfÕ ¹T ›ü eåë( u0 Eßÿ|’ŸœýWÒ:l6¢~6¢ÚFTQ®ƒlc Çyb¶¢ç°Ñ%¹à¾qFsC …tå$Pªò»'%Ö5^£JjW¡R”Et4jš( Þ‹½J’s˜­MtJ…A²ˆçlf1Lbœd$”Þe„©’IõÐ9 Är'½n¨Ô$äÒ¡ûÿÄä»8… ÙÎ6Èpõä5Ä•€d4 ð?"ù#6 f‘z#`N¤I¤7ñàj–ÄÑ?Ù…Pl®Œ¤Cd×2¾ÐyÖ9بì)"‚¡&ÆqídCq¶=DAre˜øé,š°.>J ¶÷%´H–“u#/C4§i‚9aó²É›ÍûëO' :†6Q윳ŠvÔíˆ}“l÷9ªÍØçE.EŒõ¿n¥óNrÍ'è«cºŠ‰ÐV–²-Š|_,±tíÆsÒ¯éúóJ¾˜9xwÞ±ÀlÐmìƯ¨cìð‹’¯v,{VÑÞK=oý¬Ÿ¯¾–`í!åõ[4ü™ ,[‡"bËÿ:£Gj™¯Eý Fˆ¦©Ø;ŽâÅ{»'E®·4ƒíDùUhL[9~bj‚"Öj ²Ò–)I‰$Eaÿ sÕP«+”!»G¶Ï=[Å)Iƒ"y‹73áèCö…ûb}sö—®¾eQ4i[_dÞ½¬g+ã+{Ç>þZÝt©+*æ×Îv'7TzÞïf¤ÒnÅ^ö™+9‰ò_/ãw:uåMQT‘ _W·þ²L)ôØWTBʼn˜%6Oʼn¢¡—¦ÈÕ€x‘•ædimZi*Uí¢*ÃC¾=§ÙŠô˜¬é¬~YÉÖÿ*/O]¡‚Y0d—VÖh!ñ|ìðòT¤W=¨]ä87}¿P{œ[È Ë™Ì¤—¡ÖâNKñ„-›–…}Oª{[Yj(œÀÂy²Õr‡«}VÏÿã~Šñ”cðÝVøÝð€òîî<ؾ¿Kñíí}Öÿ?ÅÏ¿–ÿ—TóèƒÝ¿¤‚Ï.`Ÿ­9ë… r$)ùÝÄ, £¿߶“¦‡Š÷ÍAS•ßŽ¨ÍX…ÒœéVò@^Soåè…®D35o¹mÂ[•TkU…š)¡Ú—(=Ú|•\‡¢cHW0GPmºËšCŠPD7&6gè|¼Cµ[˜Ñý/8Ë šCR¬P·l3òâùÇ‚õ<ý¹F ÈÆBú‡Ïü“ãÛqËy¦&©ã¿„域uNaŸõP0³´<ƒx˜…ŸÛísŠÀ@µ¡—S~t¼ºU¬zd7S%ào¢Pc: ßEÉ"µFÖ°â¹p"3ÝdÔ å*ÀõÂш#¡ºá4ÒE%Ïú”w´ø‚P5ˆ©‹8Á¸q¯ƒëÎõ+½¹ Á¿WÑpÆrÞ,íŽÖ¦u¯ö¿µ\:¼pDõnû§6Èvv±+gõZ¦ÂzÝ’ íwLy¤ßê"‚Yëª"g»í÷£p8€ÿ]ÔÍg˜Þýèb0 á£:ùˆQ¼ìÓë¢~> RÇMbí(‚k†±–r3+vê ·> –º±íqɬ)höÕ§Kvuïÿþ_ýê¼ c÷ŸãËãNrR’¦j}sÒú±Íź­ó—u¥„žËÍõGam˜Í¦4SO 5Ð ßý’gOr¥a³†ãaʬ3Õ5Z…‚Ù%¥Fþ@îNè9b»±ÉݲֳNÏúäÈǃŠÔkÛuóš_ù/κ*0²Õïœêo1ò@š>ãÇ­¦ÜBÃAÀ¼Ó#£š£l:]PmHP(L/P™jàþ²T¸(G‹ReÙÊDRN¢ß´w€²+<#`Ç‘Z*.YàŠg©A9K…±Záºâ û›(xëP\ŽšÄ‹tš âSDæ >®Ë*¡6h·UIA 3” ¹Y1 D|‰HæÅÃ`p…´:¸²¼Mª[Ž‡*TQè‚ícæ¤äÿ¼€-áPÌ1¹–1˜XÅ+{@Á þwÇûšb•égé¢ÂÄu«˜RvÇ·ú^ ö±«¡+Ñ؇ᾮèË Wa*å5\æËkÆK“èž½z~Ü&süß%ùeÓþâi)Ó¦³‹ã ®üáb2¹±Õf8¬úypv G ¦™Æ µ+4{áìæa»góKuð«&`„û•â8ø˽әñ´ ¯ ?x:M[’Ð# ÞAô·SŠMìý²ïØ=•K¤÷ò ä@ý_ÂÚqMª[é?ÑÁHÐÔP ðÄˤ•¦–­ïGò=mBúS˜wúTvd†äJ;ØÒ®œø¬(gaË¥”.¡89yR’²´¡ÜIc“ÙË`§¢-vuÆ—ó+ål\`ÍÌTXâ7ÝMˆÇhT¼ZråÊèNB2ß.bý.êEÀi 1õ¯º¤W²6Ÿä®ß’.ŘIè#;Æû·[~ vÏ€sÖF[0Ü­0!ÂÒY_Î;¹W̦ùP¾äy-µÔ„H¡ë Ûž)ï[OýE,¨^:½åõmyì‹JÕí;´.æä»(œòT6@#C(¬ñÀ$BYfÂJBûOÛïž½B8EÿÕ¹ÿú¬{Ø«ÅušÃÛ~‚¾õèw|Hok;uèÝN]äygú/[S#¨Õ¹ó°Ñ•' ¸»#l)?c(°%‰]á<43=6×UA9:œ©·Â‚¯Õ+BSØ:Ó›”µ9Nãt µ’9tJz%¹Åk˜‰ w§Ôœ`Ù[­ŸÚVûöê»óU» °Y@!„ÎMcŸ¥µ’·Y§/ê0áϘÃ9¤”(lð#V×%×jú6Gu¯Ý]«Ó%ÿmû—æ ò§ï©Wƒïî¶Ï¹»À²î­nV[f ®h‹§âì¼ïw[P{£ #üÒ˜{–®B„J½ )âN©HÙØ-ìLÉßÞS¡EÆÃ*¦™ðƒo¿ŒæÑÄÄn’*¾˜p® ZikŸ”æª:äSœ \ÔJýæìGÕ´ð{êþæ=ûü5K»k/[=a–(`§@ü©Õ6Ùnƒøé aÎ(ŒÊGbèYÍååm¦ÌPjîú1¿›6:ê õL’«¦Ä*Ô„Y‹Åë„É1ÔΊNÌ™Ùnxé?"y5”@ÅK`ÙÊŒýó_ôî´ÿ]ðyîæp…ÿï£]Äyôàþö{à÷‡;Ÿó|šŸ,þç,Ì£F‚¤¸¸xR©{ù2œ+B¹—šßùrA‡r̨ÎÁŒ)į²œ"ujà1º‰+(ZtÉý톌QÆX0%!RYüОù+†œDP®ÎH| •xÉ¡¸CÎi”3PY·èzJFbõžE¼SV°·!ÞÖú–溜O7;b>ß"唆}¿T»—&& Òˆ¾Ÿ$ïÈÀT°fP9?;™KmcUÚ”ë$ÒW‡Ùlj ‚4) >ÿ½°tV¨Rvß ß‡ƒÅÖa8æ_tš·âÃ9xR†J.±4V½¼,HÌzÕ…’Üï|²aœ4¯žñÏâêp,WÅä äº³:`ê…DB Ëý†™¾gùCž šF‹Õ[Žj'bBÔø¦'%øý+$_Ø(zÏjÖÙh€¹¶‚AEƒ³~„¡œä)­ã•æ ¾@ÇíVu8„È`rjœŽâ†wzÖ=Á«/µðÕ~ÑyÓ>¬á úòKüÕ\Çõ{ k¼lû½Î·½íÝûú?‡sù%6XÃL’R‡?ž=ó×½ÿÏÓ¾†ÝàÔ„zJÝnë)hä6Õ›*¸v:Àcùæ³#PŽ£šVÙ2ÆNÆìÁÍ_¨ek©psƒÚh6sʱٳw*ŸdÆ‚˜ËF(¢(F'PX…SõhˆTùyä¼Ý¶@ÊüɆTÃ}rr–A ­*´’Fù#Žj9† Yª¡2Êjzne egܵ@E´oS˜Œ¡Ú r4Oo>d31™d••2™¡8†ôÇçUú­ZYÄâ>Nwp:Ȇ%Ó ¦ªa‚˜Kð7Å™|–´´É "*S@%øÝ›cÆgå; 9ôÞ9! éc_L(á:ñ朕Ù7£´D Ð!àŽ6¥AbôòªqáåÌ( gR ¿ßTø¶þŒ(%þÿ³÷7Ïm¤Y¿ Öžð†Xyåíd±§K€BõU%–ÔM‘Ä·øõT«ê­®F'™-‰F"YÝ5swÞÞ—þìõ /|w³œ¿ÀqvÄx鈉ðÌDŒÝ>¿sÎó•™ ©juõ{ߺ‹2Ÿïç<ç9ßÇ"JÄ•…¯€g|m3ÝÂØjÖ3·(9öoBHbß!·ÔÄp1“Ä‚-×\L!ÔZ–%¢“é8õ™ð¡œ~ÀaÆÄDPaè'Òþ\Ö3X1wÓŒ†õ† 7 ç;¾¥4ˆäÂg­XH£¹ÆíÚºµÇšï$Ãx1šñ? q”à‘Czdä{GÔ~z£Ráhܘ‹)ôðk/:ƒž0c©oòZ¥s•ÝÏ4nð:(‰#ô½Ž«Ô Ö{™9J^ÜÉ•Ëè0±r:¾L™ŽY·HEÆix5%y£^Oòª÷zQáb©4ßE/Ôš} ¯J¦ñS¤ÔƒÊúç\„w{C’©ËÄ·ÛÝéýóÉî!ù°Þz£TN| ¸¬=¹(wzaúK†L§HÂ$ôàSù]p;}¿Yò{­° ‘U48ÍÈØ^p“xþ}¿©YOd0c:š—pÏþhîÓfàô ¶TæF&j…fz_/% ÝŒ\ñ.Ȩ%4–Dý®¥ù²YÄ)]ÖžG ™ÑžKÁçÛ«Ìmm!ÏzU-˜xžå”Q¬Aóé‘‹Žd1¥ u˜•µløUourº[|n"uù 1Á'Š›W:’;ƒ-Ÿƒb×Kz5Âv=+;< "SQ˜Be-Y-“M9ž1=»ö\Wêžm̯)Wݳ训·)Rwƒ~FY.¹nÏy·e8v† Æ/ÿ%'ÿ6>"ÿ™m7›¯Î.ÒÉÇÎ{Sþ¿‡aÿýàɃöãGOÖ³üçÁ§ü?ËÇ÷zÓiÿñÃ^Ï]Ôû§»ýúpw»S'æ–ðâ•‘æ.-qédÐZft¶`$á—]ü°hF£Á¢áÊõ߆å2ÈWÿ´ˆÈ|î#\“žy´Ú’Z«":Жö_mô^«–/hq£ù áµ4ÊÎ6ê¶hƒ›ÙdE‰IÒê¼£7sIè°)±OÆwDTÞþ¿âºõGÙéi2£†r›Ð¦Ï“5‹þMZƒÜ»HØ&4†ÞŒ ¾,ÊÕ’dL ëä‚Mã¡6cÞH.·ùmkµÒÚÚ@Åá:Ø$¶å4ç^:s¬ ÿÙD^CZžÚÊx8"vLØýÛü¢>k7ø×"šµ›k_¬óƒÚ U¡†èÙƒµBD©Úƒ&ý¬­P·{¶'b3þ«|¾8u%ÞXâÑ%ßXâÉ%¾¸±Ä—7•ØX¿±DûÆ7–¸qM7n\Ó×tãÆ5ݸqM7n\Ó×ôÁkú`éš*0 Awñ°@0ž@ ¦ÿAŒçêxµ€mÏ€Žv·‰+Y ‡M/j gýܦÃƤÖÊÕ°×Cñ&áÕ´Ÿ_O³ÆÓnÊ÷~äÍéb–}j%ºyóÁƲó[žÜS*Jì ÇFêI»‘_È;»§ýQ´±Þ|Ðnî­ÿWA™Â罹R»Í‰Žx°j7Ïãöãz8ŠQüSjk…Vn-WpÌÚÍQvûê´Amn£?ÇPpè›Yb®¦ë¨œo­ºá›WHohp5ð¦ôNS³õΓєþG_ÒÇO¨ÿƒ¬»'æ¬ÙÇKxSþäüý÷èá“vûñCŽÿCdà'úïgøx 4‚Z1LPçjQF„#ûòzÜ ÔÇ»TÊ“t¥\äåq§ÃÚ}}Å‚0jbªMw´i£)mˆ×3!ÊÁbj«ÉOõ¤îžï¼9ªÓ/×.qâ°Ìïl}Ý­7¤1ÿ–ö-?¥ø_ñ8=‹{&ÜÞßšú?7œÿ‡Èÿ¹ñ ý°½ñ`õÿHóéüÿ /²ÉÖþî«-¡¸ì-{ Á’ã¹H)j‰TÜßúz÷àÕÞî‹F$tWm“ŠÀ, 3ºÕÑKcƒ 4M'=p$Œ°`Zˆ›§|ÜÃvñ´Ô½-…üjó,ž\ÕUì ÎOä­FԆϔjÀj=¶¦í Ò÷iž!©[³<ͺ›(çbÈYo‰i•—»¹ijpX§—Ê6ü"ÒäKÇÒÜòÞhlébüŽ0>Ç5¥•–´`ÃAÝ%íƒt;Íf“lÚT»vþ¦ÁW5±¤·bÄÌë¨Pûúým]U7bM=ÙøO>£ƒ2qj¤„`¸È§;úïú)ÝÿF¾ÿ)€›â¶Û"ÿ}´ñð1½¡ûÿÉúƒOù¿–üp`ÇlTÞjef£«ÙÔ&Ìb÷“)”.bb`ÈÀ‰´Ån žÍâÉË0ª ‡ø²Éy›§ÓY6!Wc«ûƒÝÏ%î\Hh8Vý>Œ8Ö=ÜÛ:Þíªz¹ÛPÛ‰XLxS‘Ôß0ƒ€º]¥´ÆÑÅ lB¡o-~Ä9†pjÜå› ä&_ÁÔxÎN€ Ù¯"Ƽ t‘á£`ÞÃö†Î´¢üΊDJÜF'y*Yέ»ç<³É>ª\t¢º3~3!«n_c1!1ûˆ»ÊçÉXƱS‰ÙNÛµèL&ÛX?Åýt”ίĒdÖ{—\‰:¼œxˆ=]a¥: f0vyéGIÕÒ™¤4þFµlšiñz´A%¾Rc±óçµÈy• I Sn¢'.†"ãGLºÕ¢Š¡çØ­§q ­.ß(çãÙYS´ÎptË«›²FNwAË/&O½áþ‘¦n ^Äé¼7ÌfM¯î†-ÔbC[¾È‹ å ZËÉÀµ5GLÑù’ná¤NÉuŽä£ŒÚ®³¯°:;Nc88s‘l0kc«˜M·$,yûk¾ÕÉæVèC§PœRH­pŒ‰„R…†Ž,ò lêÀÌ{*ù‹öBNÃÜË †Ó*hñ[¼°­Î>ž³KÃ]üëC–—Á¡~WËÂÂwZž¼…Õcc˜›V]Àìzû5‹-•K¹ÝŸ,‹¥YÚßó¥êž°= `:õö¾¸ñÔd±!\1ŸF–½ÞÛã­£b7Àï\!¹Ê`@ÊØQT%sÆèªU@d7˜;¹·®ªÏu@æ`ñÖøðáè­ã·»fµËC¦éŒãü':Ï.š:zÌÌ<¡jd8s?3ú×¹I•š+€°1¤Tž%ó÷ñÈÇy¦è !ô^ªYõ°û²m!N#ÇxÐ` I*C¼Rg§woë^AÁ£“*Ókxm„¸ÐÌ„J×åÑ/§³˜Lpo:KØj…Of‹Ç£7»ß`LôØĹh³»»ß˜ËÔú˜eDJÁNŸãPµÐÔîê55>&‡©P·¶K„‚®)îÂcÅ áCYÏÁð֨㧡"é¯ µk`×x=@Lz8÷‚§³´Sx'ëU”yW>7b¶/~‰Ox·ù¯+ˆð¥þmŸ>×”ÿ?¿h˜€@¶*4òÏbÿµþp}ýëO<|òäÉ£õGÿóá'ÿ¿Ÿåcng1²¿Äú ýØ=‘$êÖ>€WŠSûU—©|úÔU=ÍWö×p´ÈÏdT?››öë8{;xÏZ§ùÔ>=µèrnåÓù»Ö0¹ˆfîU‹0×tÉ þW²Jò?Iq×ÓO?ƒÿo{ýÑCèÿ®?„°­þ¿Ÿôÿ?ËÇóÿ5BÙaÅOÓ&‚`ðêŸc߈×rÁXÀø˜š dpá,`{§11Ùã(_¤"{B4†¬¿°þÆÜþë‚Òœ'9Ѭœ}–Ý^4 ™¤‚xŸÂ”2á8 .èél¦œPRsh Ò\Ü1ÙÌãz3V°„ªDk°„x‘9ôyÇk8Ç2[i(¬ÀÔ¶J6Pnáèš&vw¿©îßSUsçÕ› fOÅë_<öKxÞC{øýl-àÖõã{}ôfIEÿMUÍ€· júoªjîí,ë4xUU—hüÕuƒWUu}¡@PÓ{ˆ7ÿwÜéœ ð4ó…uoK û;çOµä(¨°RQ2Øš¥¥ü_Z(\ñ¥Å:'/º;¶œ·Hn8dÞ‹dß®‘Hä㉠2ã ;ŒÓQHWiµ„C’`&èÞ aÙ`¦)@8UEœ`çWoJ ÉY> oÅ3^”cA^üáVoçxëåI{¶òÍñv'h¿²DÔ‚ñ|ˆÔ †[þ\ðšvÏ+ ¦ë·½T7„°°n(:)U-­TX;äƵ¾9Ë ÷Z` ›ðO`ˆùNoûÛWòº×(*èŠXµ Ë䄈Ù÷èà¨ìÑtTÀi×"¼!\›Úémõj¶Û½vxUêóÞzÃ[¬ÒÇ«r>ÆaG[¥Õ oƒ1‡^<šžûæg›^)·èÞ59N§yá /Û©ð2ÿ ^ˆ šõoÙM™âø ®¶Žé®W€ôý­í×¥‡Ói¿Ü}IRö›Y”Ÿ{Ûùr–$8°½Â–îÌâ³lòrtU±­ôö·ÅuyÌe$…C”òAË|Î8%ôW˜*U̲LÆ}Àv†,¶·õPêK¯QŸÝˆë$k€zñ†K°ßÝîý¶s\XÁ€Œrðv‚Ü݃WoE‡Ï_ïmìl/©'xý-]À· oÖV-Qù„ùÍl‡G ô^móNJº;ØšŸSá«|> ×¢4‚§6ê3¯´ÆRû6™ +÷n´@”m0ioÓ‰¼/68JO©A‰â*ÚrÎ,É3“Ä…´¬ŸÎgˆeÞ›sÈûË„5õ]€öpI{;{{¥5D„ûªçxl=¨Ü¨6BOÛ°¡ _¼ÙÝÛ)ž“£]Ú‡AÒÁB¡>’Khf–d÷.OǶxR¦¸†Ûß.¯9?uتóý»Þ þíÖÉö¡Làçje­kFl §v} %×”-ü–ò,ÿTÇÿ³Ú#QþbÀ›âÿµŸ<„ýßú£'66²ýߣ'Ÿìÿ~–O…å¦ ³›–_z6«n¼ô=%¶òÖך¹X Å R.Râ•C¯jˆâz=±ÎãÔ© ·XÚ„Bq?ÓªŒÆå²³lžØø5k³dĶpaøÀ¼eR†HÔ¤¹Ii!)œÕQì*颪ßm InFeöƒ“4·÷Š°Âl -)¿æhÜ Y®ÌÅÄg9LVÌ ÃÏ®qê,ðn-úDɼYýhÁ`Ô²ŸÌEÿu|nÿxlïOïãFûÏÇO~Ѧw=zøù6èǧüï?˧JþsrÈtéÞÎÿ¾¶Œ‹ü³ËE7Šó¹¼ajƒ9/àØð±Ihxnãµx‘gŽ\pÌöáNŽçÄÁÕ *Ø‘«PC]]–00?• þ–ã(3GÀý3ÓÌ©I¹5ä“SfXE?ÿèmûhŸêóo„dÄM‰wNþ6ðMñ?ÛýbýÉãÇn<^ ûï'OÖ?ÅùY>eo•ngëèõáq'<ýoKn%ñk2›ˆ)A“³ 5ŽÆaU_¿çI[q]ªš÷Éì ÎoHÄhÛŽ ék†¶ÿV´Ëî¨nÊH^:DÎg>`j\¿Å/<Ï„R=Ìi¡ •<šÜ6ZÂÞÓ;7I¢k)œ›ÜÞjOWV/TÓSÇX×Ó…ý»‘ÿ{ šï Ñ|OÚT¬ þ¯Ýþäÿó³|*è¿%ì_Õë¥=x I@ä.SE Ð%†C†‚ûøÃvjác‡ ?ç ×3¨œê6. §ðÝH(Ü´U_m÷¼W\ÑõᥚŒ¬iæLl‘DÛ22C] £ê•–…‘y£?(/ŽÀ߉Êùï›ÎNó~ÞêÜ.n8ÿµ·Áÿ=„ÿߣuâÿøtþŽøÿmgÓ«k4ëýFÔþòËkôç!ôß$³ì’ ÌEºq=.Ž q’RþsìIøz·íotŽw·ö"ú~t|øÛÝÎN´Õ¥ŸÍèíîÉëhëE÷pïÍIgïÛèà0z»u /žo£Î7GÇn·³ƒ–#äOßíì Çƒo£7ÝÜ:‰¾=|s¾=ˆŽw»_›žÿ,Ï5 (ŒJiôgl‹10±)e‹¦*ê â×èõu9ÿ”ï š&tRxù>¨!q3ȲDÒáu³ñ),oX6MʼnÐçW£3{¥Á8EÅ’vm"è)²»q‰4È{¤w“179Aéí†ÁöÌÆïüàbÔäEœ£)ÛïÀÉ|™k»oá@Z2k»µ ={½Ž'ùÚ?µ¢8+QÌoàeк˜´úÙ¸QSa.ÓŒûó JÄ͈AêÑÓö—Ñt휄ájL¼i÷)|äl‰ Ó¬ô YBMêPd¬*¥µÕ¬Š/Лõ-gbÓÅ"A“MÔE:Áú"dÇŒ³×rI›XÐ’·IdòÜ¢mdLlç8&€A¾ræüãÙ»¿æšŒz·1U¨™ÃÛƒfÔŸM>X¨¥ód‡é`YÃD#Bú»tõG)”ƒöµÉ=8yŸ½0Ö¥k.Šv'1PôÇ9àë;Ã0mIOr§ÓµLrŽØ%—–OìRX¼ãÆ&IPµ|ç´žùZ䲪™dhY6î '˜—®Fùmïôôû³¨®¥Àƒ8}ãᛓÞáËÞ~gÿðøÛèÏ’˯ø™_³A½y/õƦñTÜzqx|R_Õý‘9ün²J~t½I¡q~F<[4$@›Ì‡u‚W"‹šÑê¯rªÐŒðz3‘ W·ó SŸA˜¾é¿Ä†vqÛÙŠê‰À‚¼Zá¸j“Åh´Y“ïâûh~ âöX&ßjOˆëƒBß³‰¢KæÉGÉpÞ%“^o/™œ6¡ÅÀ*“|Ðꊶ1_ ‡i?e}§šÍ`·a™µ­Gœ÷ý"ÍùŒo™²¿õMo¯óò„þDÕVD±Àc¸KžÄˆGQÇï̸/.ˆÍ/Ãl!fòÃ5Øô×Öd5½õ’Æ£‹ø*×Q„«Vz]˜`qˆjó$'SªDžÆ`œ¯2íÐîÇæFº:“Vå' û]û{H‰>'Sÿ mloô^ïGíÚŠ{þò€Ÿ=tOºo^tOŽùécÖTw§Ò:!Š^u±„têŒs¶O5³—B-ÑÓk%oµ"ºõF|í©v;ë 6þâÔæóYPjnê[Ë\¹VÙÖÓôE­¨9 ïQ<Ž®z’GfšÈô=gštï­1±öfÈ«‹™]Ÿ&Ž:J=ë4Û1FR8 ˜öÓÈK½Ûíɪw¶Nv¹–uw¢»¼±ö\·²%€¹˜Û*/5öòÍÁ¶ßÎõ }®[Û ][’-F;·Žƒ¯:ùÕ‘jÐ4@Ðê²>ìtŽN^ßPaßUyÕ9è™^xó0î“ã݃Wxôk€uïOu4Áð;~®ãõcŽ¯Ç¯Õ¤¬øNž>-ué•CçRÌÕžDkvÀúPÑ™–”1ú­øÃí¾†ÆÞîþîIÄ!峡Y¦[ßÕIJs6ÈGÔ Nõ|‡ã1eæAŽH€çY4M“¾²ÚËaàÆÉ|*P!·VŽ~yai/á+U¬z;Ü[Ý€«|ýÅ(åLË*¿Ð„#,“ÙÔ»ÅkÆÈ\ìÒ­ÜDðKå5ûêAçm½ª¦AÙ·¹>µÁµçFâàÉ? %ÌÊyôËŠ^—8Ÿ¾\ÒÜ„kÏ- {æÑC+îí¤šWüÊô¾XËœô+o2ºç2 Þ\n+²|M3LžÆ#ä×;[¯l³háìU­ºáW~tnHaZº’ÿýp²@(.'-?ˆ„¼ZRæBòªÀ¢ºe éh¡£ô’ JÈß/§PÃ{åØÒù.¯Þ•W±‚Ȭ tnÆÚ®nÂïFÁá¸òÆX[†LЩT‘àû„þ à!À¡¬7ÔîX•a²høL¸Ït„¡ Šõt|ßzÈ^CUóc›å÷¡P®qº~ç5} Žê¶ûÇ«(½X&«èƒê¾ bÚ ¤áÍŽéö<ï,# …îÜß·AI ¢?Tîj·oCÚk9¯ZdRoË—ÒaôyRê·ÄyWI^b˜†™ôÓë‡'óº=Þxʽ~"ÊÕ‡¾•X²nçÆ,Z÷H ÿà—O<+¯‡Å§¾BëYY¸ríúÁªX #î›P°T!Ä^)œ<‹Ì £~¸lýȪzj5mвhQ÷ú¬Êf€Ñìi±èÊÄXŽW•ͤ¿M«I™â(åî ÉûØ°zÕËFi]k>lÖ¥4êÜÈÚsH£ñ]J·›{ȃþ^„pn*]áÏ>•ë$ÄžµõyanŽáùän]kj!i-/C3²E ÂW‘nÁ'WY(¯“LCLFؽçJûƒÓO ôEÞ¢…1e÷Å4›p œyc‰w­ѱ.fô£F3â¯Q½ÞÈvA &%WVp)ÜNçZ’µ‡‚×[‹â-»ä¬*¨7Û‰'¡õÔ²ÑZ±;Ñå=fŸìß3O@h™@kº]Œz zÛÔv¸À[ñÐî1sýàÜÛÂØ<)ûm‡&êç´b8^Ï‹&Þg”Àã>#´io;‰’ õ]ž«cX N”UÑô Ø\VB~Y„PÆrÐ k–s[ ×- èX›÷Â6€ÍÐﻼÅŠ·ZÞ`ÈþýX(ðí³¢Æ äàÛåòfàkº–O!¬{ ð]oºL ,ùØsvà b³º­ÓôÓ(ªL>ð¾(Û,„ïqÃn1½a \óÐÚÐF ´5®#œ£jìXaLQÙT=ÖXY©&ïëâ=C¡«bÇK¯QaC²¿Yö´Šº¯*GohŒ/ÂA-ÕqÜú–/0Q¥®¿ó—ˆ„dk“ÉÓ@Œô§cšR'TéºBý%/!úýã5ïFéD8°Í5d K®þÈÔzôGP阾”%W+"ºªÛ-®ÿQ÷û`,ȱ -ʈ?¬„Z¹•»Ó{÷B©>a¡»Ó%”Öí)Â$—ËȼµXFâ…¶=²X· Ç+*æ2ð–tWÒi‚ òK¤±UîßU#ËóYÝÒ ±6"´eÁ÷†ƒáÚH=ÔŸé‘Þ´²xÖ69ìF[ßøñ{ܵ©¦Y*Bj@BnJvâ8¦¡æ¶'?uõÛðÖîi”'ðŽ‡ˆ E×ÂY g UoŽGfll–Â2ñ‰ëTœ#3§‹³3„–sT-æk˜ÎRDQ?´sd§›ä´÷§ûG˜ð}‘úôïÒQu"Té&âÚÔ:—(`~Sç—$< av‹fñä,áq[3Epò¨¦ìK–C´›ì £…9böº—×ɵ|yc…„)×èYûxÆk8¾ÄI\šÁ ƒrtÛ7d›Á6»‰rLÈÓôÌ·dDýá¬P¸ÜÁaïåÁÞ´~w¸Ñ¨O›K­ ­ä¿$Z­Ê6€-dîÛ z_hÏôVÄ<øLD)0›®ÿ+ã‹”BøPPRUs˘A‹±<ªzÇWPÞˆŒ—bÊ•"ªt´Ä_hgžH“*µ+:Z*-»¾Õôš¦þu âJK˜umí‹YM¬Æ1®ðeÔö·¢UÝGÓ€ðFKãG LXtçtŽòàÖ §&`Ÿ7±¾‘¤³„èΑ2ûìê)ÿèÇŸ€e®ld¬¼›‘I÷a åTäY4Œgh„óU ×D.ÄägÍgIª-$ÄšÐ\Ò˜X‘A‚¸ÓB]ô?’ÍÑPc˜æBü„šœA"×ñ@³v°,wÕ„nË7¢% ·Ñ“QV‘Šf¹ÍTfKŒÐ,›ÎRÎê=#&Ð:à"Z|žÌæhI¢-hð€ oò68¦“÷155™ç¼¤í–øxT£@è"ÕiÞ2ð6DÁg11KmLíy@Ù”ƒw 'É4ìÃÓ™Õç!n´8„Šl„Î]ÇÀ|£_öAK_Á~9?IJJk„gH%qyuÀH>z:¦_Òflõç©3KïKœÛè%÷ÖfÖ‹ÔúãtÂxò;gd}†”Ô"øñG_°t_Ê bt§¿Š­K¬» ðôÅ2LOëé½vÃæ6¬'R™.Gë/컋?@:‘MÇãÎöqg«Kä‹k6%f¼¯±)°èÎW síéÄë% ¦ouà…;5Æ‘1Y¦›&&|CkËß­C%h ;róº×&ùY´!¯¬=چأÙu ¬ÒV´[SýžíÄ»ÅM™¯¸L·Vö>™ ãáÖ ›Ðzfdb™æÏmÅ›†WAGýѳ3ε ˜k3^.îìr=„¸»o—.®ÛÄpeׯ]Yµ}9 v=½µyn{՛ȟ¸X˃lE,Ug?3@àŸQ Öñ±¨¸P(7XÃNÆ® øšpñ7Çy<»ò3ƒmèva gR¿Kšà^aDâµ|3:§¦ N¬ƒ·H½8ŠÝr g°*G60ïC!ÉŠ.7µ½Ë5 bÊœ&’ÐDãúJ2¢¹l´uw-´BwKºËn‚Ë´JÜF‡ôv¾G¾1z5J R ã븩؈QŸ=ð…¶¿·°Æ2+Þ>+êA½@'ç•mâO:›QÜ{"^¯H5h{¾´&`­örÃ<ƒÍŠ·<ÉÒƒ"@Vþ&é¼Ý\JV{…ªëÅiGÕЧ 7ÂU3dîÑa··{ðÛ­½Ý‚“ª÷†É¼-žäh§ÀÐ%—¤Brm‡?oÖ§ ‹9½ï>îTÕ¯tªü š©R ¹«ÜóÈ¥C )»O‰’ð°Vƒû7 õA>Æ&R©|*ôErE{·Ò¹_·üE|fú / ç‘~ë[í»SÔ ò6]s³á\~l„Ót,/’;ˆn:7÷8·h²Õù³yau4Þ?%3½Õܪeœ? •´Ã>Š»é*.Ufâ„«ºfî B<»!³&_™Š?kð`9䙦@]â«zWÛ \tëO3'¦÷âÍË^÷_ªê:¿wcÙ2œT•+ë$Mù²¯…'«;—¡=¯Xù˜¡ëûjÕ¸•dÏuT eÙN6ðÐcßr:ëZû{%Sœ¹”ú¹S ”…‹Ã*Ý+ü‡E º,¬ª¬\$2=CœÜÝÆ4гÛqGÓ“×eS—ï>ZLæéºÏa •åEV!ÓÎ?ᵓÇãDVTo*aYF›Òµà08KäjJŒ¯–•êæ¨4(¼ïžGëÁf%êÎ&—ôi“Ïü“ûÝZ;|€AБª‰MŽmÁ>ö¬á ×±Š¢ÊMVÞÔ‘÷1ûìUå¨Êдtã@u»gɽ~?dQvˆÒ‹)Én½e-‘ß°ËMVèðù³Š9Ô9¨|A3ž°7uò?6ø‹¬r³Ûžè®U8ó¢_ùhÇêÙßõXýÈ÷í-…< £Rª7ÏÄ ¨êH Òó÷H´ëÓÛ·"·8(ùª@ëÑ¿¿ ð½'¡d™Qpo|W¤Yƒž¾¥{.Áz‘k˜Ñ0Šašö†©•α¸ÍàýrV¼˜¤yäó´zŒènú…’ ´¨Ï kS92|U#ãÞƒ‘ùaI|ˆªcqïpv šônh€O¾TášÈZP½E+F÷RDÖÅ;&Oø¸{-–ÊiɼÖéŠÃµ¾ñ’XYrCæí"KßúäüúfÇ;.%½÷ü£^}úŸBþ7cüÌù߶>~ò‹6½|ð°½±\pÈÿöàSþ·Ÿãó)ÿÛ§üo—üoj­¹Ôœ94- =«¡GÆ1Øó9ÕR6c+%CÛUÄPGKŸgæk%—1'ƒW¿Lž<ílÕ'³Aï4ÎÓ~Þ*$¨ÛIúÉê¾à u¢öÓG8C]·¡î†Ds·HSÓàaEŽ»ÕDóà™ì9½×t~è†ß= SÕåEØ¡³ÄL;š¾æMÉúïZjãŠâo%Ø= }ÿpE|ÚðhôÍÈ+g²5x=†m2NeJ‹êT=˜IbïeÑSïÕBf?ΡGÝèêÂ:¡r_œ‰¶@ZÂö_À _3?ͳqÚoÚ 1­¤EE8a˜vnòhå0±VÑiE0}<œ[ÄXÚ6¦"c÷Ó !`ͳY6¢/¿øšÏˆ1ÆãTàÅà½6ÖNS$~åô3°YYðñ£×t~OãS›ýjLîÌÙŠs |c׎XèøŒ?[(Ï }cÆÙÐx)M:9v?ï½=Þ=éÔ/›W® Ï¢úU£T)tñ¶~j|›qŠO”Ù9VlnO(í³‚7ûgãÍ•¯,ïS= â`Ýít¾îu;'ì¥l¢ké3⎩žËaùÎÁN©<=‹6ly7o^vÿ%ÚXøƒå9Ð#¸‡˜ÉbToÛhǪɨ’°áYŒ˜RKÊI2¹u/€©Í/Äf¸6³T!4Þ(2†Tt‚¬3ÑáSšQ«Õ*- —cÔyVºïãÞ(e³¼  RËpSŒ9§ºô3ñBí Æù])8l8°òTƒZ¥ÂÚ&^”‚ªú|&°*7|š¡SV÷ÆTŒ4ñc…'ÉŠoHd~°™µÉxW"—ü¨Jt4R­…ã¨ù!aþÄÐìß*èeØ–hƒ…§×EºôKUb#±˜ø±ëüA8¾ãWºòôìÞ=¯&~ñ\›õ-. îmÅ'%Wa·L&Š‚·\~’žü_ŲËãËÈ­Âf%²¡õ5e¬Z¦Ò8B¹·?bWS‡–ÉîÏÝ9Ígåp2\³7ŠZôF ¶Ø›£;]%OE_캬º·ÉbíÊ*I,Sܟؘj¹¾c8t±ydR´Pž©¢÷q:‚ÝtËdÉu¢&ÞeêlyP¶¦s[ä—r02ôuØÃA«±˜žÈ¶Ú¥'f1T8$—jè®n\Í-7—3ú|XÍõmR¬b¢+X»´JBûèÊ>*/¯c3ºâ —áÒÜVÞ'ÏNX–‘`­í*hí¯©<ËK„ ¢IƒÜóM$<ñ’Õ©^&°àí¿½òò„Yzÿˆ|V{¢Ñ’ç®»+wUUn¥8i{rnÿµ^,_+«må(–ž\ÓJ·Ü\œh "ïAÅjQ‚Vÿò‹ë*^¹Š×g »tsMÈ¥H¶—W½ZZõª\•ÁÒT ¸5•4›—kî]Ø„S`T ͽ,t^¹Û’)œ™Ö8&ÈGl¬çëÇ“b ¾€Öª ßVš²ìÑs=ØÈì™Ð]ëJBqxVE0²±‹™˜ñ`0“ÙCÞ¹E(WàiJ߈}æ[c—‚~Íǃ÷l.‡¾ªÝRÑ«Ê¢UÞó·*z¼rÖàZûüÊaÉOXòï%ñ)Q­ÿù N9.÷žEï<Ú[Ø#ihí™y¼æ¹}¸áþ}q±Éóü÷ÂÉ×µ¿7/«â3!C¡”;·}w!µëF|¼1ú(H#héØ›â]†¼ˆÄ©bÆ#XÏeIa*DNžÃÉÜ´}27³¯ö¬ƒÍ箢Li]bnOBé—Oåßv•n³@…®9/ -Z±£lw—Â@…Ã×êª7Æå|G°ªËpTeлl4 ¶ô‚l—Ù8T ×Üë©ï~V} «fêlBòëÕŠ!îõs†‹ùK©^îîuÔtº.߯O#ƒ|Ñ/6l`[:‡/ ®aƒÝX>\ô¡c’ ×yqP\,X»¦‡R²?*]°¦Íêé¡ÏŠ|{2F€Uâ3+[«YzgÀÅ*m½¿}¡ñéb3½3yçÐÌ7¹Ž{/fú£,{ÇѲ™ËéŸÏJ¢N<ûP2íaû½d߬¬ž%P2äRˆPm²¡¡.Â{ÄÎúW9hcJ¶dÐ’ÜØýkà£O¡(ÒÌú}¹E¨ŽŽ?©Â¤¹h@뮘Y‚vòn"}»,÷V©*Z^‹œ[EùpøviY&ˆí»[SWÀ—ý Zm× %Ót’òòé7B>³9Íê=kFŸªŽ?÷xàÖOz/ßì,›ðìï?c.ÎLyöwœ‹’Å<"¦3¸£ö…é‹~hí2Š=<'³¬÷ç|U^üœEÎ)ˆy¸Oç0ùà Ó :óÑYFsƒ‰„„1Ñ8;„lµ˜QŠ'3‡c¶E˜Î¡í–(Óýl<…¤Ú u˜\ø,Ë E|ðÑUÓhÇ'p±œ4‚Õº¤êtö·ƒá7¼J­>ˆ-ÃÖ, ¯çñYbMŒÆ¹‘®¢Q:Ÿ’fÄÖs¬½7+³;¿“K1v™L‡Ú9Û±`£Œ6 6>‰Q)û WŒÝ¡ä×Ð?F沄N7­••, –}Ò "ô7‹Iζ "aÉ{"Æ_ß4±Ó*· Ðe˜Ë°Ë î\ãâ3:HXt›bÃEo=ý.Â’÷›R!":,#Þ ð¤#ê¶PÁÒ¯üˆðáHÆqþ®"úRèäUÖ_ õB*”•ÖK„ù¾ô¨‚„…,¹u_òbóRBaÝjNÏÄþÏ™ØÂl²a=X†‡ê¦X÷–ÍàÏ’vnc ¼ßyvÜVÛ¤¼7Ü#â‡'TzhFýàêS‘hÈôµÝöª¬õ¦5ãê% âÒßœX`Ø/«¥>ÛøÃö9å„Âñ@L 9xc>ûåx–Z[]ÚÍXíG…QYcô ,@¯M[ÓÞûx´0ÖÏbvÝgŽi–P‰1›"«‘­Z¤‚ †² xy¿O¢ ÓÀ Í-#“?]ñ#AE+íFÔq™„šÂÇï4Ì“ä]Áh“? œiןŒ"`²®dÌ^Ôו±D:À!8´Ó¾ÛnbLûyÅ2 k¾âúaÇ]‰ƒ­æÚt|„—¥djªž Å›'U‘÷·åêœdÑÙ"f cŠå1]ÀWF¾'çX¸c1%7fܦ ±5oêÆŽ8›X‰Uù,™ŽbÂRVÊ9SL Œ2&r'›[ÃÞ½ÃW½í­í×^÷_¢öC÷Â>¬·‰ÆÊ5Âê{»\ðKï±>ruõIãz(A“Gà~ùN+*±Êéëñ8ý•yAˆ&½Æ²òÁ_Ãð7½¯ÅT$ŠUìa7— Doѯ•P33ì™ÐϾ̖;4N|̬ÄÖöF-¾ÏFïTÍàÅwf9ï»)þˆ·Œ|Sïýûöu"=ëøó9ñvf‹àˆëmÊÎîoËåŸ?_¶‡h^‡à·nö°¢ñbimÛîqN¶ŽO¼–ÿëBÓÕa‚ÁyA¼­à+Ÿ¥ç~ì<:DpÖQ’W2 WîÅ$¹=ÀŠ#.ž3 FDˤ¿˜¤¢ï Ô€ò rZ›«t”×pHbm©“â\!Éób®¬=÷— xO›µ(W²«äAöPØ®9GZ¨„rZ"ËÚ{ûgk”KO2„êôà"X[Ñht+w¢´Ç"pÚ Ö’Q”nï÷M׳¦××ؽ¹gæJ¶™µçŒÆ}ÜcGÿ}QY 8½=ß²üPÕݳëT(•h±±Fô¬†‡åÅZzˆo)Eè :éX¿ã=jøŽRÚqQqƒZˆ„ð—¿ ˆÏBˆHƒ[Û :ÛxS>’2ìKÏ;´ÌÚyHßxˆÇ¦»–7þ©&žý óÖ0ìnŽÎ)¬u]–Ò1¥æÁý¸0ÂtŒéÏðwñw¨»ŽÂÃI×M#ÀÛÍèsÐèþI3ÍGæt š Œòv„ܶãùàDý§›þ±x©?;ü"\FÝWªØðPvuùQñ‚~Ÿ*ËRÂ&?"\%' Lb‚';}mVŠs&{n‡_„ýb¶ ÁίÙx#2³4ï,Æcån$(wßxÓy—6<àyg´0gË<©Î¥£>™â ™ŽÒù•) ŠÆ`@}‚8»j±S|y"ܘ8 Ó*Œ¹˜I´bŠÄŽØ×y¼ÍSá ’êkVlŽf¤e®­Ö“/iµùÿÄ„FÈàvAl¾åH,!g&Oéâ©–>iÐ’ºŒæ8]Êú²îÜ] E^‰½ÚížtŽ{/w¶övÿ¥s,Ûݬ8(¬-Xw.KFz'4#mÊÅS^ÔË¥CÌ–cQ[âa}Ô´þ áÉóh†¸³9Ÿßb,¶˜×S"猆ÄiŽX"òÕm›EÊf ÀP^»Âù:û>·|Žxßú—o{'¯;Ýׇ{;ÄËm|q·½¾ñ É*—ùu+lÐÒW…ŪЫWÊ+‡…¬§7Õºvï±ÿÛ‰bSˆÿ2Mæ?sü—ÇëO6~Ñ^o?xô`cãу'ÿeãѧø/?LJnÊO`>€¹.Œx¢N¢\B3Ýs_.pK®9-#› ¨‚jº®hòli4›³ks¬î®ñ„ö»»™ˆ)òv¸˜ÁÇ iYî~¶&ÆpÒÒxìs¾/ê#oj4àx`L—Ì}ÄB^Î%CcB¶¡éttŹâyorÇè.ËÜ´¾IUŤ,²ÑÌ£<'Æ.  *”Ï[¤›C×ø1P¬*ŽÓ@ÈW<ÏÔöÓ@º¼wt9š¾Y_ÀÂrŽ!KW•NËdh0`:åˆÖ€ˆ^Ê Âë_9&®- ãrë®2ç¯ä×9|Î4ñÒRf*TÐRÉE€ÖÁŸe;dÖ°»+eB¯ÔµÃÄ¥W+Ž½Rnš3bÄ&è°»¶n›*‚š¬Ø?ÂC`øÄ o.)¤¯‹‘¹nq²öÏ]WK9õʸRÁKlþüºq3³öS.•?êÈ—3?Ïf?}…µöGiÅ3wË/ƒÉÙR˜ w¶Öfi/äÕñ` ²´rl®ÞªŽeiDæ¢-‚Vå81ß³~zóV´@¸@PUUÈRzYpA‚à綟ÏäB‡a™8‹á)SçÀ2¶ØW^< ÆüZºö]ãè 뺹-%ctL~4ýËÂ𕬗 š8Š'ï*ýe¸øšñš‘JãdL—o]*5A_7#[Î KÞ~gŸ;ºÅNÝàW;š`Ê°ÝçùJK¦]{`ªk˜AÙ­`FF—¥Ê³Æ܃RáZ_ñàšÉæ•(ÍBÃoonjɬ¦8‡ˆqR5¢Ì²ÛÛ•*ó5¬‡7n&ê-ã÷!Ãwq–‹çAcªlÞ8Qß­ã.5tï^ÃëàvÓüñæù–6±’Û°}VÕ* ;ÂWor?Ú¸ŠùiÆ_ÜnÑWr¯([1n«óÑþz.\sP7é8¾ì~*Ó]¶­æfí—+*.€ýtHÑ´d%iŒ|ìûz0„f¤A—µ1œHóJ$؃z¯÷êàÍv¯Ç1A?sOwþéÕÑ«Ÿ¼QªÁ_BáKrò 1‘ùÜj`:4 ­‘¬¤+&áÝu:ü£¼„ûô¡÷Ï5cøÌPoãùÍuÝ~V8åÏmí 2mÏÍØ÷žõ6K:µ5ž+Šæ0ø•d>âw_ºƒ\¿Q‘¶”°”†2ãp}Gk&U ÅY+>kT7†ÏWÞ¢-韲§ÛrâŠgqÝšT ¹j!ÊnÁ<àãDS×¼N¯]ÿzqýëËë_sýëþ²×ølAUÆ ´uÝ»Íy4Ÿa@®ïÈ PÝÓòWË®?|ÜíÍëéu«X5X{óÿ c^?¦äú×ë_Ÿ]ÿúÕ‡Nx-NGÉOðõt>ËdËŽ7áÜFÒÇƾNþUM ó`Ì™@(•aÃHÝik=Ïs¬ôj&Š›Jó+¢øÌ0ªÅ Aô4¸ÅkÂ*!Œ]Æ]B´ $ûY%–½¦› "7 p©À½–¸5íþ¨ß=>ÇuY^Ä[@£¤³¨šcQöÄÂñ‚´Ïþª¼Jo-9ôC|gð*ÁÂÝlaE_˼ µBh˜,Û¡˜ûF)·—¥œö¤FÖóÓžHCv$~‚{ò¸[Ó£wÚn•¤ÄåÑÖœÅOŸ פaýmóúüöób„òÕgƒ,J·˜þûæ_¥¯¸Å´?tjûD|ü·°yùœ.¾ùmv°jæÿ*¶í†)ü£-—?}>Ædzÿ$Ýò_>7ä]´±Îù_Ÿ<~òøÑczßÞxôøÉ'ûÿŸãó)ÿë'óÿ¿[þ×-ÛÃ6gëîµ1¢%Ñ\ KMéœVý”¸ÊM Û’¬±éäŒÆˆì°H‰‰ñ<Å‹•ƒŒ­Ð£S"j¥ðÊî„Pô7ãG]ŽSŠ¼•ýYœŸÓTŽƒ8c]ØYó*[Ð"¼ÏÞ%臺¯'­³Vtÿýx1I/1‡••ú>ü ò­³>g3÷lÎcàQ`2Œ¢µùLÀªÅ•»ýY6f³ô‡l2Ç*TMîb–MΞòDä †}N›IS8_qžMXÒ[¯&—Sz½*!:<áÞéñ˜¶&Þ³ýšÓŒæpµ¥à<›OGñ•‹îj{%l  !ò@Ì sž¬ÝmýňSê0½‡™2JÁY/»ˆ2 ¤ÁarÄü̦ó”ú/fÜ}™œÎ1­×c“qwãéÆ/å®WvŸÆÚþ’Ë=Œ¨˜oÞí¾Úä—è ò Q|ÝÛ¶fõû[Û»'‡Ý×^³}6ºF³&9i ©qx¼·u°S’Ö¿Ý=x°!âP1¶ž«'ÌÎa(ˆV¬MS¿Hî¨$pÏE|eƒ£ÂžŸO!'õ Bê§Al¨Uµ—F•û«£Žä—‘ËB,Û•Kb—¢wôè /Y2òZ°ËB­¬¸…É&y6â¥k@M2^Œô†ÀøVtt°H"Hª7Ü#)uæ?™d“Qø;éŸgõFÔ'€&ÌEÜnïà°³ýúÐÒ¥®pŸ%HaáíÇ­¯+ Ï’!ÝYç~gñ`o#Bd~äOí{/YƒEM ù”VI½]Ñ.—‹à•[¯(G''áø*Í~6¢²PÊ]^Ÿ>‚°^‚¨È·òJ’)r¢[UùÐ×F×,Ñ{à}²¡¬…š‡Bqh‚!Ð(„ÌÔuÞG{ß7h8" 7C¸+8B´æê,¡@!Òõ´O“iä¸-‰a…_^.ù]ªu×FƒCÌŠ»¥…ƹLˆq£*=iôìBsÃ]eôM¼RÊÃ{Mõ³Ù•žp‹pW¦£8‡[00¯¼?0”0Ã"nJf6®c´.qŸgO/Zd«ÇôºK‹4ýÆi¼YsÊc±Q»Ðä³güÖ„G2Cly¡²•'¤p¥H_6‚"•·ã55ðÝ„š6µP²–BI “[‰Ê½Ñc§òE6H¤ß<ý;KÕÛH£2“qÎ3Ž‡€<Ù €}/*":§³…ŒÙ¢j{Ç|ÓÛß:êuwÿ¥= Þ‡ÃLÂ\ÍÌ©j*Ï%b ¯¶y„Á¼Ò{{;”øGE\îy=wÿ› ½ˆœIþÔ£àÄn`Þ8qþ³™f‹Ø^Ð’®eÆnÇÕÄV]Ž«µ^H¸aW`‘ÖxšÉ§ñIÿ2.¿Á½a9Ë=Çñ{¥‘ “Ú’ØNmƒ¦Š/‹ˆµö¨… .i†… áQ+gÈ3)-L0ÿãd°è‹—¥ XêÁ &œÃ3ŸÆ}¡½ÎgBeåÕÁc‹J‡Ã¤?Gv°)gÚ*î‹ìRX­›ðñB81'oÓÐ̲§Þy"¨Ê“Æo8Ä+×úŒBú),œ5,/¶câ—®ˆ’ÜmÏWþ¨Öô"ûüóbÃå0dÅ¥±”7Ô˜¡ÓÞÁo007ïÖ•]]"(,„ñUï] ¥õFH&Y éSº\JA©ŠküüY€ZþöJ]Ó‰YµgÞ¾yïä(ÚkÎã–©á‘ÐJ¥WvËØsªœz¡ ?,Æ„øúK÷\Kp)¤÷½k‚»¢¸ -Å@sâÙRWÉhÝÆŽ¤s2'®/è©tGG#òÝ<ó( Ž5O¹&ñS§éYË7Ù™SÂIãœyï2lîÙ¨oßéþ1 0h~Áo˜—ïíªMpX,<Œ¾*Ïš“‡ç)ÅÁ†F³ät‘Ž©„;}ç‚?†Ø€õ\^wMÑÑ.Çw^‘—Çzf€™+5£;¿›Ü)Æ{Fùg>Á°Ö¾> ^1 ø½{¤Õ¨@ñ {`ÿÈÃ(¹é—¢å°9ø‡ÌB*<+€VÃ4äÍ;+ê~Å«zÐSP6Þíó©»„/œ…7] ˜ Ýíû33Bž° ¥Ž•À¥Qƒ¦[¢·F» ±•£8}le‹IA7åÈ&Æð× "K…ß–‡ˆÐt€ ªS¶JéÏ%‡EhWÓ¢›ý ÉìÙAç®…¥Áðð¸9TÑ»•ØÑŽëÚI;MñíEŒt’L\Q ®&ñX3ò˜,7ˆ´4#*°(šäpªí•-©-º»šèÇt8ó!rÆ‹ÝѳpQØ~bò¨ÖÊ‹Aé$/ÌUïÂY I 付NÕfÑ/œN,¿ ye⢈Lî̵;„®ÞYFœ&(?à!ÈËlæskôfFÎ ‡°½4€=;cèx hZø3‹«!#…yî¯q÷-Xz.¬t†Ý$ÕÑ7¬…_ݯt×DCeûz‹¶~)£ù¬B†cºækñl–å9彋g¢ª Ÿvøtq8c¦)&ÉC^kSyFo{Ý"~Ê &ù¹K (‹È1Š}´… 8“RkŽˆÜ"2ýïÒï!U(¡e®¤âÔæ¤%›æ9ÞÙ²ÜäËÃã¨>å¶ÂA÷+XyýòIÁî˜W#ïàêýr–g'?Ú4‚&Ââë—1F'4*˜—”¼&ñ1rªM÷Ø&<ñÀF¢æŽÏ0"+óOD“¦î]îò°a¥‰ŽN[LAe±X(L eÈ-I?ÆÔ¸†°€s™žZ¹lXHƒ4O>‚ÎUr|–¾O&Ž(³H‹ê ó^'‡×'©›.vŽTö=3½,T%0Tç7¦9ï ìêÚ2+Ï}hFÔ\R‡q”=ð–FZË!'²Q@˜>Ô=r@üýŠ!ú¸v™6ðå;Á4ªm©%ì,QrM¾ÊtÜ•(>,tJFëãO>ëAë -øÑ©Æï*hŽ¢¨(LÕsn—¢*‡yÿ(Tcl[®cE½â´R zL;ÅqÉÁèDyÏúç6Þ®p1–ôöj¦.è¥xeyÕÂ/Ëý»b­ |€´´ƒ“Êf|lìŽÒŽJ_íïS‰v£éÌIò9œ•ÈÝbz{”Éòh¯?u튱KåR*,¢4”'=cñ]zåi)VlýÍf>%ä»d+ÌJ ˜/ú€}¼~ê4à Ç>߸¶¼¦Å çœò½s†Ÿ%Yž¸À«YFòbÏÒù•H ßLš¥µóÍ1~`mö=ñ)ˆ¶VB~W™ñ´Pz(ô`)Åž"=F?ÉóxvÕ ‘azir—¥cáñ³á"[&whaÚ oî|«`Ô쬵ç³EØã“ ²NÝZ:¢\XRgáá™ â…¤n%m rë–ª†,Ÿ°1zâ"ǘFR§oáheˆ£FO°ª¸3|\2¾Rlb ¶Ê7á|ål{ÜwÃF}Í” n§¤°W”LùséÉÛ0W¶|!¹³Ã—A¡»@€æç)h²‚Ã+ûUyèöƒfïÝ .Ë®ÌK¥X=ç±Ô7ª‹ÖÄ-HÈÅÈ–ÈŠùˆ¢Ò\AOó)tÆèþi¯¯¯ƒo}ý+M¨ÏðkLä¼Ñu† asÝ«\Zl(k$ÖJú–ašÀ–Ãx*<ûï‡K’@esñº‹¥·‰˜ÿd’q’é8hp M)ꎚX ”C3ŠMÌ/Si÷f$‚y(‚%d„Á ËÉÊÂj¡~çwëëOî0bLf3{Ƚ¼éÖ>$Šœ‚°wtÜy¹û¨ íó[ÇûFÔ‡µg|lÍ@ kŒ¦HüpÉÚ)ѲPª‰ŽhúV¼Zˆ¸šÌ/€=7¢ßï9Y•ÖÒÔ|~&Þ S%`½üÂ5uŽggÒ{9Ù“Ïň²qr–T·UFÐ^ÂZŒC"Ê©«'Ų)Ë»v·;Z‡l6H‘à,ow€Fàá.˜%Òø‚#_+„3Eg/$ƒ¡és{„,úû ×€ #^czu¤ÚsÏ®,Îó¬ŸÆ6e“eà£~‹ø>cg›kQ#׎Ýxô˜à ö„ ¨¹Xn#='Æ‘…ˆ&¼®•p4Èx"ÞÎ[ÝíÝ]o¢Zä"]LR.GÅF´]FÉlÎv“ Ùâ}#]„ Õ4H¢Ga@ÃÙÂÀ'‡'XrÍ{ŒšUÊëÊSõãíú9™-»@ßùÝŒsŸ#CLîx\¾;a„Ñh‘.z…‹#T±°0ïp{ë¤SŽÔS<¼Õ¯«Ni¡¤ŸiVÐÿµm˜±õàmSã>ô=¾L§gå;óŠ;@ß R‚ùšó#±KXX¤¨Ž‘î>»îŠ—q-#‘‹#¿÷lÙèÂòÂEn–7ieÙ…,är‘‡Vñ‡­ôÜŒ¤’mÖû¿˜B4t“e&´V$ Š#ðÆ[‘O-û¢á*g»JèQ¡VvÖ+BW­,ƒ‹µ’ï¼Ü¾Uìö¯7¤suÜ9êl¸-[)\¥Þe»¶ã<89ÞÍ%Q@`cÓ|ž¥s›C‘LØpÐr1…ô5ˆfù„ú>¤^•Ï<àÚ–ÛëÑÝðÙ½kz+¬^q:^—Ån6—VòIZ;Ù’7GœÐ _wß4–oŽÖª™çåC V¾Ðäž GQ`$Èßüºå¼A© ÜÖ© 2ZuN‘RW‡°=9<*´¡L öÀzkik+ÚÖÓ”õ!6B§ÂYñû±ü†}ZX³¶ÿþGï{U÷ØhF[¹©õª÷:/OŠSRyIÅŒè MÈ®Y8¹›¼ûêu©/ñM¼`îºk±.®Ð„&n‹†‹P¹s;‡~çVKÞ(-_ñ¶ûàE}Ñ­ZÒg•K ãÊàD¥Å½vˆÆ«˜la¨³WÏðLTJ‘ô€ðµ L~|§ð¯À(9 ïÿ´=.®Ì‡ïEx³.o¨ÀF,[çÀŒ„ÃŒùë°â_Ñv^ëÞÔš7·ðÛnrœFMˆŸq) r¦NÊ‹Ñ›à"ýÀi.o(Rv5®,gƒƒËËZ®"õâªÑ“¡vêâÛ?̦&¹{ôOò¹×°´­^œ®Jb÷ƒ7{{µB, ºÔ¬ ¯]'HïlZvwQèIV³ýÕ·È­é¸~7Yõˆœå‡»@K-‹ª͸è\Šƒš5„ôSØ›0ˆÝ9En€ ySI®{# ±‡h0á|smNTæƒ^±±ÂÏò¡(0:fàŽÉiš4¹Ñ5J=Þî\ÆP¦Õ¸c§mnÉ%—…ù\.JG5‚ÑÞ~B×`¢• ,»¢2Õé#ÉFQ¾RæJ–ÊÅTJ~ØàôÉDš$ýÁzzˆ¼à,™ ቄoöÕ&®ƒôÆЩm%ÛC‹C$D8cæã ·áÚU[¥_!²€2…Â4yõa+¶}@pœ v’ëLË{†@ú¤»ó³tVGȶ³¢-_yçzÓ°¡ö(šN•(¿Ñj°l|Ètƒ\ëœii15™ªž…r–ŠíˆJ¸$+©^óËMg"%÷4µqœò6÷9œÃûKYñ{SeŸ,ü|¿éIú›¡¬Ý“¯¨;_þšôµ5Oçlâ¹ú»éÎb|uØW—@d¥ŸŸgN'„X¯úÝ»>çála3:µÝÛ=Ø=1Æ,W¥}ÞPÝù"ÏôqèÁ÷ß™pçy2Øp2ˆf9øÝí/7èªìí¾|ñ²ñO#rSWD³Ÿâd¸©î‡›Ö“PÞ‡RŸùñŠ¬+Ãë?¿Ù=‘ÐEÁò•ë²D¾Xа~ôÔü¬«T£:'2ñ Ùå„Æö…ÎF¾«‹¥þº¤ =^dé¬è¤·ú†ßE¿ÊÓiàúnÝ$Ö.Õصè»ä*ýþ_`è÷/ë|EÑ·£úbJÿÔÙŤáh¹ïÉ £&Þà¥"_aÏA8Ñ«·Këþó"?ýýN3U+É¥ÇßM¾¿¦Ë“lJ…NèÕ3ÆQ]ľ¸Ü'ƒ½ÛOõßï¹Vx!Ûz&EzŽãÿ™•Ÿÿ£ã9|è§ÿsžä?wþÏö“Gí6ò>zôpãÉúãOù?ÎϧüŸŸ€Ü&ÿ§†cØZœÁnfã¡Fdh·Ÿ>ú"Š]H†( À‘ÇKZ[KˆùoXÒæfŒª²,FQ‚g£ôT˜Œ£±˜êR¡ qGp›$â€-k2u¾d}7F’V`aTºq4L.X‰9›Ä#k欵4ZrTFÛª&´û±˜Ñ~4¬j8žsºÅSv|ÉmtM‹i‡ž#/'Í6zˆßÕþÌÜ¥°d¥‹ìåñ;¸¸ùÎ6Š#.ߎîG—›˜Úl..ÿ5/# ÇÒ ã»Delš< 2Þ±’±U^‚®qAôÔ¥t£ý aR}ŸÆ­¡”¹9E”.é«èñCNr~¯]4*ÕŸGíFe ëŒuçôNØ! > þ«$®v|CmûÇã+¾<“ŠÊ~\ýëûXÖrÛÒ…?ª!C*q÷±GªÏM¯Û%mG$©çÚÅ}çiß™K1CypwNæ´Ÿ®Zš³lilÂxÚv®Üwßw†ÿ\ú<ÛeóÒƒ Éò³ÛíuOŽw^Õ/vá$X97„Äìé[uÂè ¼D.éXħ¾Jã½0£Ðhy«>_bÕ/mQ¿´—”.K&òcÕ,WûþØ,£{É£jo|aO7<‰}ŒÊÖ m™<{„¹êyÓ §¹iTÓ½—Íà”•víT!àj01wziäÚ]t¼ÛMõ«f "5“ªùSðù¬bnÉi†J£ üUòÖ æM lS6·#c$Áª0KM[žéUAbHS£ö4£G×@üÕßñWñ§×‚¼ ¨ ê«ÇLWüÿ1ǧñǶž)œ„Ÿað§ýŸ0l‹#LßËO8â?ÓsŠD'uwM³†qwµïQ×é­ñ]µK¢¥VÒ¡©ÀÉ,F¬!">zh1?£ X·þ!ZÄmWÜÓ”!Ñx/h]¬‹¨fHãàA~«EƒSÏ á¡þ©.Úaw1Ôþòï™Ixâ¬w_líwÚÑê|Yýóþ£‹fôæ§>?ÚqOñwÃ;€%å&¾\5¯ô)÷ƒWdRмÂÿŠè ‡ê¢ùCá4Ùj°ü$àIsd¢GøC+¡+_ëë7Q_ÑU€~¸µ qX›(’X:ÂB3v ?(*,Fu:(tjŸûÍ{ÍmT6åÏ(hˆö±¡ù7Êm=¸Å°VÛV¯ÎC¿ Oƒ$u³jŽ\m¼/ oÛ?ôÎ?4‡NÝìï=½¬¨§ZáryQ¨q•õPí¸®·ÿxðàÉÆ£_¬?¡gôöÁã_¬·<ÞXÿdÿñs|>Ù|²ÿøû$€1&#‡ýy†¸Ö4ÙÇÃ0‰GT3)ˆf4/$½ŠsÛV ‚'Û†ÌçùÑz3!Ö·-ýsš6}K†Ã´Ï6 ´4콺FÏE{’Ì`SÏ[¸;áiþ~œ‚Ñú!€0ü×'ˆÞG ¦ã$°ñ6!ñ˜ å©wûìl1æ8øt»éÎ’)ÎCiL<ý,Iˆ*â}1ö'hBõÜ1¥?,À(‰ßëؾÔîXá·k’‹žmUØÍÝìã'Q˜¥S?™šà4̹Fj—l4Ê.ØŸ®©i¨Fi_¶Bâ8#™‚w&WÑ+c4ë;šZLâ~?™Î%ùÐ3¡¹@¤8ñs¾Ÿ5Úl0åD½Ì¤é4 \zŽpÉÕGñäl“œl1‡h‚Ž¼˜ä'ƒÑ‰üe¢‘§‰X+CE@ŸX”FÁÒb´EŽXc†ã§.’ˆA,.›ç\#˜ ‘mWN&½Èhtrn…wȱäÀ %TÂ$¹(MZ±‰v$zbB'ÅÉ -êèù]’LíŒFÀW ÇYu<œ{BÃûš½†Å–æî1ã…|¼©GKÕk§Ø„†Já2+$±íl^§\@zˆ`²ôƒ NÂ6rJ¡ø2/Æ"†™§§é¹øXáv$ôÃÁ›=?Š¤ÆŸ  HÀk©f”"hÂp|M7˜\s-÷Îf4ØÑ•du(¾4Âò Vˆ–x„¶_V.†a$ HhEö(‚(ô•éY“ zvË0¬‰·øzÜÌRâÚÈáq@ô­ÅEœÆëü©öÇ\èZ•FF´iÞŠ·•IÆSZôðÇžDcxõ‹l­¢°0xÒnâï ‡ø hå"“]qÕŒcŸŽ*'©º¼ÂîÕi)èÂUåðP›.+âçÉ8ÿ!whQYš6øéÑš@~”\Æc¨í’¸ï4ÁáÐ «h"•£Žâ-;ãÒ‚—4òc+¥w‚P)õœÐçèªá*‚y’U‹¼eƒ2q«åõcå¥Æ/8<+™Äƒ56¯”\·¹^Îlªâ0ïjо,Qý ›¬Ákˆ^Ø Ï·w”ñ5Üž—W§õhIÓ„¾TŸ÷­è Ñb¿š1ŒÛ)Þw‘§¹­×žE¤> ?éÝ2 Ñû† 8Gî †z¿æ_wq¥éA"ëO ¸ÄtçMäI­8Ûëë¿Šˆüeª„ê¾ AXsœ5¤ÉS­ÊÑ),+&=¢Š©L¨ÁRƒÔ`Ÿ€àSøOsmeÂñˆ!Gd ÂGÊMë^Ļ+N¯xJf,D![Â,Ï9B3ZwÁêlî!Áx$’ä֤Б¦Å)Ð1“tÉo<<#yovs&X'^k…6b ¬àø¥ß’³ÉQýn=W§±õ; ‰˜n‘’"IÇæc Æö‚€•Hì‘Yò Q·%ZH ¨xDŒÔ8fÍúóHU¹¬¡.ŽG)!ÙMßr‘Àyb EQç„’„7?7ÔeÁŒ®:»2·–ÏHc9ödÖøï5ÖM'’jFÛQdNÕ¸×&`ZacÃ@Áš&K:-ÓåKœ .|þAD?殥Þ^'èšr!\N]AP<ŒM‰…òº –³ ÁÂyÕô¢³»Õ–À‚Žww–—žÃÞoÒ²­Œ#©ç4_Bžûx= W˘"igL‘ʽøë¥=jˆoF9îÖÕ+W“x6°‚—²áº¤ñ\¨‰‰ò]þ-V“)ø“óÄzoº…:§CnË­·át”60»îV΄µ*Þk“›ËZv`ÍÀ¼ÙÁ¨"L£çÔ-†£Òårpʼ厈BBíÃÅH<ì '÷38B5 aj˜•ÈÝŽf¢…{µˆY€°»Ù™0›àžrÖëb è©6s ¦?ÊNUH¡-ÀÔ¥ÇBÛþý©šVë8â¶"%¥óÞ` k·àhÒ rx2 ‰Ÿh~º¿ú %Àeç¾c†^ef5ãª6d.¾MY[7{3[Ý*!c òŸ‹©œEͧœ^bt%Œ˜µlÃä@,aÆ£'²>a^^£0EE3J5Ós‰jÎÌ4™LŸØRz-ô€øsÛË ÙO’Ͻ°áõwI¦ÉFóL"Xέ Sk£Å8ç8•¸ûA6lg–uæE2tŽ!V?1)zíqÍ™“&’SÀµ_zˤFÒï“‘®$?œ R"nñ¨ôƒw~ÅC› ¥ ÖDSŒ:¯ñPÙ, Àvj;wWnVì£z¾;­óÏv‰ŽkòÍ‹O0ÆÏ#H«ô)&oðþ•/™DH,±enT¯W6¸.dÎOsض ð1æTq¢Ì8Ì“Ù\¹iïW¼û¸a²»±1µ4‰Æ¸ø§#¹Æ/ÑxÜõ 'Ê®.Ÿ–æÂzè ÄãC—Î,),§]1¸5ä,¤0Á -Á+jNäÂXŽÄ)\9ã 8 -«sh,(Ì°”ª"[/ªÑ„2–è|X¿brâ“S’dš / ¸Z!75!‹»Hs¦ŒÌ»õV@eM0}<ÊD\Jkœ3áô•o÷¢áÕw¶ÃG÷¥Œh*Íš ŒQY4ËkŽØ–æòžY®Ž±ÃPZ—ûdâÚ 7ž–†Èþ¸ns(¸ª‹â}b_½‰_Jh—vhØN…xä]‚ºý$‰‰©#tÁÚ<[³ÑZÈ4ÎÐ'vpt‰ëþT-˜cì,]go±ÃBóÍ<<-wüëëcΛ¾á4cºF.b>”æê´ŒðY[aMœ*"`Lž*:ëé¬ §Ôl°x£ ËÕ/…äUq+#oeÀa ùšp+ŒÉèÅÞÍØÐ&š½ ¿Ð°è\:¢–ßLh³ç ` âƵwçá=MY"5Jž„ùɪØtFV¼Hƒå6‘½—ÑÕÐ÷‚ wZ¾!ÃDõˆÖM(3ÂV´ÀiášÔ½YŽÅ™1½ܳ¦·É_!šDov¿1®%Nq(JÜùl‘p)CAu£·š°Å:£¸b[„‚8¥e!s6ÅïF ‚;;Z¯7b«¼Ì!ZîÖZ1Âòi¦ëËv8z\ç¤EreL™ã`*æ’¹iB<“$žb çb`gé”ʳšÝ0­2oÌÀª2PØ3”š3+fæŽWN'Nÿ>LgDgö ˬŒ²§ü†]jî´ X¡­ƒîn´mTeV˜.©Ò`ZšO3áÒ8—QXÛ;h³0tÈŒÀy2PsÞü©Oû´[´¿šyîúFo$fØV‹”+ö´˜‡æõ2M¬A}.ÒÁü¼É"+VxÐÝ4§é‹éRˆÂœã&"Ûk>†¿r†b)h„¿ê7µ-8ùW]¡Câ.´+æJ&­†ÅFË ãy +Úÿ¯ØxîRûšxß2+¾~oŸä06ðQ´±„À£vŽãË·QäÖgåÍ„¹Š­egF Ä ëÈ#@€N“5½Pël5(V A¶åoàÃV´ŸùA)]Ø…:ƒOX¥yën¦j ®æ*æ±Ñh˜¢‘-Yñ*§ÄFäW“>Q’ʦz˜%œ±0S|¨—ìFˆM×J]¹Õ¯]³+3¤ž<ÑÛ{3\·Þ`«õYz–ÂæÄ^ªF¹‹û–óUCÍâ­ ‚:ŸT½©^’ÀY¡å/G%(Ê }K88?¹#>s²‰Jê\$;d:3ktÒšoH3TŠ=°8á,ï ž ©~;"b ‰F 5D>‚N*Cò®ñ„yl ,eûóDUï§ìž›"kúç&=Ý5 ÞTQÕ1¢6j½QÇîâ™g¬KPk]G ŸT‘ðEà¿Ë¾4UägË¿¿±Âû¸7¢õ€æ~MãàihŽú¹¡ø²^üÑ-kºªL¡=/S§[KΡI­í›×„<ôÿLúßûó&ÿÏõoübýñ“'ëíG6ÂÿsãñÃOþŸ?ÇÇšÜw¶Ù¾^ gþU²ÇÿeT´ÙeUï\Ρõc×=ëßfŒ¯˜6P‘Ý Q',c&*‘yf$¾¢¬`ƒM\^"þS·-ë`&š©k´ÚâÝÏ‹²; ØpqÖš©"ó7¸’ñ©1⶷¿öÀ~§%K0p¨~á@À]S¼æƒÞ‹7/»ÿâg¨vO#Ó¡±`±««?½¨ôPý—ÌŽÝÅ3¢Ö¦ó™÷Tž}çú»ÛMËlI`m×o ØÜPw¡'”v/ÒCHWëì¥T·ƒY“oı~¿â]à/9–W Ó$-gÙ¥*ûçV°£]šVVÞÇ#VÝ3É5áµ#tT¾3w¾(þéq$2‚@XRhÒ 8fT·ÇÉF±Tm {#¥‘„øÄ9UªÑˆ Gõro—|Ùønýû–.…H<3ˆr—Õéaêa{ôé÷!ûGOƒGÖn3a-] G­@YžQ8ëª}ÿsD_$æOi…D÷¼óo¹ßÁ p¥jÉ6ñîGü¹[j·qïæÖçB‚l™™-«XÕ¨ë(xB‡+ÆÊß7— `IÖÁ³È4ù:<•öŸc†–¿ï'¤ÿÊÆW£ò¿Ð ô{ò‰þû9>÷?Åÿøÿõ}Sþ˜\µ¿Ôä/O7x‘Â+¨ŒE˜QB'ÅC*]-±$FùÑšubåoªa6`ë)_Ê–›$—pÐb°+@šE1€#kJ¶“Á D`2‡½®1ðbH3ÃÖ™å¼UÈ鲿õMo§sD°ÿð‹ÚŠ®ˆ‰y0H¦ÆCÑz¬ñõy/jKC+¢Õð0FÉ\9 â¨r2•× »æ“ÁÓħ§‰Gÿª<ž±¢;B4®µC·Wµ³t}­ììÊØMcV2—Åâ¡Œ–Â,|VV7ÙÛ¼Š^?¢-ø³?.ª.Cb™%{ÍÏ¡-Øt¡· Ìõv~»µ·»Õ×/é§Q[Áò™Z ‡L©¯ž={î+ÝÙ2ÑDPôpÃ(‰‡›œÄYçƒMh½Äž ¶ŠSm“¼׸÷½ZRÜ×… s±=P 'k–ØQF‹ƒþ*Ô€åLìÜQÙvéŽ9.jKþÜx.”µL^ýÖ¯mßLů…òâŒÈ;—ˆ¢s]E­…}e€ãEí²é—oßeÖ¼¢5Ê•:¢T¹®– hÛd^ ƒ[ÛxxT,ß¹3KçPc=Hú΀Ó÷Æð™[•=û^;S(i=ƒ6¤3„‰Ýï–ê2-ÓûòÍÁ6£T"Ü{Äù~áØT4¾+”û^–`|ÏÀ‘û‡r|†ƒPþ2ŽCëy÷\o<êÙ¯1Ÿ/6v­ù|Q5xýýŸb@š‡.5¡¿ÿa&ôE ú¥|ø­èCvèÖfô÷?ÈŒ^‡y“ݺb,·¦/²oe‹z68úƒú[íÚÁ9Ãúâ«Œëï˜q}ÁØ¡Ú¾Þƒ¶ p£nHá²…¯‚á2÷ë_Ž~ÖaØëuúLdð4‡íüµ²óÑŠ÷Èí;ï7†¾y‘o«>-Mg ‹‹`Dšt¤j0hžpnôUŽÐn%,|ïžyþTe?¦u¸;æ…º~¢Ï? ãy^šî²Ñ¬­•F£]VŽÆÇ_SH•‚Æ–g4ê•.\*UµLR™ SD&ŒµG@©Ó$èã³ÙâôGÃa1,Õ„b5œÕ=¬TꚯšLA¥X\6 ëŽxAåâ‚›é J½ z¾ºDì#OFz6ÝB|‡ Þ«O›“Ò:G÷žEõ‰æðáSz7(ÓžzZ‘‰7C¤¯ÌNŒEKiêÕÃÂX3,ÐïjųG§¡8Þòñ“‘¢_B è4»^2›ÿ£…Ÿ>ÿ°—ÿyô.ÒÉGÏþ|“üoãáÃ'ôìÉãõGÛYÿûðQû“üïçø˜à«ñß'Éß'É_(ù{™œÎ0=¬q|ÛO7¾dñ_—ŪL‡XË÷P£D«žશQ0ùÚrJe6–¢Â¦¶gªÍ“ñf±¢RÆz¾Ó›%Ñng§Ñë8î¿‹ê³süû›i6‚?\k1·’Á¢ÁCŽ[Š?4H9!s¾˜½·¥‡h¸Õ*Ï9FØJ&zk³Aq³6ƒM§Œ\!lœ…¶3|ZÕ2l=¦Ëö~[û û„ðs<ÈK´á$.co÷ Ó•„ƒÂtìé/a1ä“ÿ°5Äãä»ïù÷³hu§³ºéy¹üB(’ŒÙCv£Ã1p©RíõÛƒc—y~1ljB ›¸Õ)½&ÕØ'Ú$>K^d—u.ߌê{BÇ(oÚ€ÿæc^yã)ÚÑÛÝ><Ø=xyxLøg÷ð ú ~©fÙ1~ÇI^—nײ¿é¸\[G»ƒ“ãoûð;«¿Þ=èžllw¢ó]vAƒ÷ðˆ{û¢44ùð$`ãgŽôäb¹<ÙºçÙ….Í~÷•­2ÎÏxè´¸Û{[Ý.žÑ¨û£8Aèë­ƒ½Ž.ûV¿ŸŒhá#Í’ŒŠ3C˜tV¦V>¿¢“c?Ät{¯;;Ç[oiõèÇoåÇf±âh:œ¼ ŽfY_*êRÁþéö(g±Žö°^Q„*ûEvö^½Ý=Ø9|Ûùæäx«TÞn´}PQ´O`êÍo/‹ü¬îm¤= rÛ‹YžÍÂôY]`gwg»GØáÛŠÚ§³„…Î8gj¿JæÝyÖwxúG€àÛ×»'Þ‹ã7Ý×åÊ£iþÃ~2Y``‘;Ÿ¥¶ñMŠ=s“HP`8Öl“\4ªnêWeXç£ â#Mm³Â"›+„Þ5£Õ É§êë çi´~ù«oV›˜í^œÏ;Œ4eÈJäpì ÌÃBJuÍÄðdƒãi:“Ð1jj$G‰MNœ{–AŠ~ ˜Û‹½•IPëay(R›«¨N78d¥õ»~ÙF#8¿^âv­u·Ô2DŸý´Æ> Öª­¨œ viUï–žúûnwE2ò’Y?¥Yò§ì¾üÜõºcÔvCÇ€D©~ªZFùS‚I¿c×€ýboZ±bÈ~;ÕY®ÐxĉG÷¬ÂŒ‹­8£:YÚǺëÍh*!–½e•9ð™ÁÍ€Ö9âŽP!QÝž«¦öQ¼èÑÛnïð·ã½­££ÎŽ 0B£ôt{ë7Ç-ÐõʶQÕí·=¢ow:/·Þìðïsd{0¸eQuã8O˜Š³uU±ü$‹4ioøŽu:4Æ müÂòÐ%ÊËrÔd±žÉSÙý•%$ÄþòÞ}T uÈâB5;'½½f/Êm©¿Ã@?›åõ¨êfP¯9h¥Ñ)Cè”.jCJ¬‹t/r·m:¬GŸQŸƒrõú2¤Œ¥¡™¨5´ž‡“mí Kï0F;)˜yÿ¼º€C¦ê©@/[GµÇTuá Ý™;öf2ŸeAÀFß’ótOÞ‰rQ­(é]:ñC Üå¬ Ap%õµµM}µÝÛßÚÛ;¤[õäpw»Ù佨mó-iÞd£Îð«Ù<žë’ÇÚáB"OÎe÷i:£:Fô]ú}#¼þt$ô‚ºݱ‹\Bp…²Úœ+_sµk %@u=J^7nµÄf¬é~¬-ÙcúŒmQÖ°zûAµ>-óƒ–飼uþ 줡þ×/®ßzSøišªìµÇ¸yÓý$mX¥³dÎWQcçÆñÄÝõ³w¶Ox‘ûó©Yxþ­='¦×-ßïwÃ>‚b§Ù|ž©$?Y{Žj÷®)ÏÑ,én‹¤à™›.]1óÞ{ Ö†šl1§ìN%éÑU¤EDšy–$Ô\œ÷¦qʲT‡‚ßp´èS|1¯c6¦€‡*BC¼ž‹)X=ˆÕ‰X·ñœöŽ;]º6£mÌ[Û_Æ…x<°°‚ßìœÐýǘt;‡ÏÛ£­ã­ýHi“8<þ9⟺79ÌŒúÑË­ã£ãÃí|ÓÖi¶˜ç»é½7Œ\ÈʼÞÙŽÂSmјˆ|C»?æ!A£8ÒÊÆî!Ä[ŽØâGƒÅx,ÙŽOˆ«ÚïœïnGóñf-ªLEÏßrUæ„zúçQ]$¸Û8ÎéÛýÞöqgë¤óÔ_+Ǧ=‹êà᥌̡aViíy‰{ã¿PÔÀ~ü.Á6™²Ô .i#2Åš^— ±A_x¯m&—Ý9”#ô›E&­ûm÷¤³ß{¹ûM1ÏNa}*~B¸eA'û9·ðù|–9N¢‰öߤ…ïz¦·æã­÷É6=|+ǪXTÉ;-ûZ~Ý“_Kɵ—ÄДǺÍãI@>÷@ÈŽ ´ÊêÞû–ù5ìZÀû>†smQTЈ¢Ÿ°ÂAÚˆ‚¤•ŠÉ}¸rñWÉ×[ÇO½Fp_ÈI¹úÏovOÜma|Š»Éd ”!ÎÐÒÞa·#”Ý^,Qáö0Í  ™eæB{ +yßKloaÝÎÉËÃí7]"B832 „Xnš>”}ƒv5ƒWEœÝö_†È4¨WšÂJy_ïîí•æñ:$KƲ×°ìJÞ^;ÊõÊÞ‹7''‡oŽü¡7p1ÑœT—б“pø–¸Éºâ,¾Ì^  ol§*j_Ií×»¥Úb$I×n©rá§ô°¶¹Îùïïó•} (!˜z´lM~\¾>Û‡ûût'gà– ž™DŸGÝ“Þö>aɽ­WR,ò wŽè*ÐbÞa‘çáÇÇ+‚S>¨¡F¹`Q&a>UTž¹ØÐRy¬¼»;Àû{Î7»'O‹%¢CK‡¹´ç×"(^¾©ìLåNŠÐ"Cw<ë*×yqH,ô5¤‹~dÐÁeëЧ ?Šô[ÌÕe0ÇmºS;DÜ<Õ×¾ˆÐ=âϪŠ^ß%WùÓè÷/ê|÷D¿Y狉¾ÕSúç N¬ÿ¤ñ»Éj±…7“AFUßàGÊ¡oéû?/ÒùÓßïà®F2Œˆ³AÒ»ãï&ßW4s’Méå }Ý“ Ïõ<‰gˆ¤.tÆô«T˜&{«»#ò†™ænùÏ”`ùhJT/r¿<¨ÿk ±À66£ÒìA† t='#í Yy‘?gVÁ¯ÄÛÒšõy£å!D‘ñŽ/T¸lc°÷”¡ÃãzZê'H0"]Ä2mUVñ•bàk+³…3|XÔž=ÈÛ¸——ïs¯G–kQ—¾|KÄ!îtiE‘UÖ¡ÝiVŽxÅÿ© NÀι×õk„>Ï ¢пäÖÕí¸³¿zQßxô¨¹Þ\oT4]ñ¨›Ì_¼ÛÏ C»D^¯VW¸¥ílDØÝœŒ«\~Óœ{"8›Z=³ŠGhòp!GÍ‚-Ÿsÿ7ØÊÕ¥ÿx?—oâòö‰ëàÞ ¨ï[u)Ñô7rÉ‚y+{r¼uÐ=Ú:¦ûòvËKÛù3ºåðœVn&ÉAùwyË|ZÓÿÞ™ ®Ãü•‚ €' n_¸½“ å>ÁŽ´oÄ9VZcÈq#³B|3"3G›î—ˆPDœ4ÎÞ[þ‡E\"™œ©Ž“¶éž(:y²MVÐùlL£Ì^ý¸\ˆ¥ýÑN3{D7vÝö‚¡ÀÝ †°Ä š>SKç)Ö挦Ú- “œÏNè³ò~5t?¤äŠoz/µpcÅœè4"WäÄÁ Â’š´^IäaZÇ,dÅE ¢Q2¶ñ™P²t/âœÝõ—çs´ ù\.¿—[{]µ)I Õ\D|¸3:»½øðZùadˆÂ¤˜ö¢JñÛîÁîÉÎîÖÞá«€š#y™õy…_£³Ýy2®ë ww`S —P!KÈ3¬ 3Xï]‘™Rjÿðë*Fx@3²å¼„Ÿ÷ä'Í·éRq ÞH‹>†a`ˆøG›n~”OÙþ÷〺!þÓ£OŠþÿ>úÿégù|²ÿýdÿû“<ÿyžÿ&pjë™1ÔJÕäS[× Þ»Aï~lIKd /rxòºsÌb•õËöúºšÌ5ÒË ÿ¥'^\²wÝÏ!nå‡ðý¡?ŸGë—Cdzß9xó4Úéøy¦ °»õÛÎÊJ=蘈ÿ·Ç»'F©4$†TÚM€õÞA1+Þ+–Û(—3"²BÉžƒŠbpGÄ;P“Þ"PÉâ°Q¨Q®ûæèÆšoŽÊõÞÃV±6x\.¼w¸Mè¡¢¸¼(WÐ Ýn <ƒÛŒy¯óò¤jô¸\øx÷ÕëªÒü¼\üE·¢ì‹nÅÔ:{U3ëìU w¥j "4/U89¬Z zJ@#¡’ý›]qëcÝùOP³t‚YJöðà•c°~Ù,"e­F&ܳZ Ò1¼¤%l¶=Ó`<šØ4@S>Y+ùMÿ 8“±†™°"É kZ-ª’•ÀQs©§a÷鈃6¸D(Z1¶V¿0¬UÝ2kê÷"La¹“0»•1$ Ú3má^ˆ¶9a+k¤ÌZñEc«‰~ª¦«Dzõ(g©±&ÔÝܤ"Nï 4­l ØI’‹Û+Xz™–¹Ð@ñ…^.…á¾²u9Êh1ž4£g;|3E ËPÇrë@– 9–Ü-â”àÔIhšö:—I2¢š°cƒ±Ußq ™árRÇÖÀØK=DÿÇS)®±øp(MioؘýxºmµR‘ª‡Ý Uukß ¾)•pó7Ðlžl¤là †®ÛñÑùU®9:ÇÆ_M½(€7ÝŸø¿OüßOâÿúüŸ ô¾ÓÁÙ•ØÑJ”V={sÄ‚¶öc çßAVAÜãÝC~w¼‰Nï6øÕ‹àÓãQ$-¾ [$R»½ñ„ßü:xó‚ýê¢/øÕëà8tÕæwo‚wÌùÑ»üîmðÖeTOF¿‘Éõ¨-݇3c(jËÔö‚wD¸c”ëüNW\ÿ­ç¿,ÿÛÝ>üˆÅûÉ?yôh)þðäqÿ?~ð)þçÏôùßÐÿ¢èÇßÿ_ÿÅ/~ñ¿§ëô_Dÿý†ßÿoùÝ¿û/–µðïøÿ¿øwÿNþÁÿðˆþüÇÿøéÉ_ùÿ¿øë_åüð§êóïƒ_++¿Àÿ‚×ÿþß ø¯ÿý/®yý‹Âk.p]ÿŸ>ÇÏ_ñùOýëÿïÿúûë_üoþú×ÿó_ÿúÿý¿ã÷ÿôßüõâÿñ_þõÿòßý§¿þ§ÿ$…þúÿKú÷?ý/Oþ»ÿÓÿüüïý?ü·ÿïÿæüïÿúWóßÿðßþõ¯ÿóÿá¯ý_žPÑÿñšÿ¼Ï?zþÿøOÿoì>nÊÿñøá“ýÿàýÿ³|–Ðÿí{áŸõÏN¡Oïg#Øê!ÿm øú»Ì”¨æJ5ùôÑzûTóµAnŠ÷Q«sßH ˜>ßhSo©Ë‡OjÝ“o÷:ÑÞû‡;[{/·ö;â”|txD$¸ïŸ,?ºßv¡©™‡«,­Âа2ñ?j/:¯vj+ˆ¿ÁQ šÑ à þ?OœþC/¯w÷v¤ßîvw_ìuj+{°ó*Æñ—¶>”ÆÚÒhecòãÕñá›#Ûîo5-ÞÃVÛk©ý¸=^¿eKGoº¯Åg Z=üzU,'t(Oè?4øðÚ–NÔ‰~¯uvhÃv:¬hŠÌ²É>¬~¡ójmEŸ®  qûô¦¿O~7ÿý[îÜ©£‚BÏ/Ó9Úñ A U[á^m/XV× X ×ÆÄç;ÙÅ„:þý6eÕJÕåßL¹ô‘_ ç îÍçÚTêW¼U8M±¤¦b{œýä÷{^ia‚ò;ŸË@ýaVòÍç ?<Œ.,³—|>Äê½ð»$>³Xîóc`<*øÒ+È\g±äN2Jˆ»ÿ@.âÙàwó]¯Î‹î’ /?ÏfRž8Vf½Ò`N2ÌìÄ+(ã _q;þ:M«áj[ÅôÚ€¯i 2 =ñ 2Ú±}…0Ñc*CO±Ô›ifìÙÚÞîìuŽ·N»æ `ò«¿?öžyi}Qy\ØwyXYò¢´ÿò¸¼Ûò¼´ô¿ýºGÕ9é׌~»{|òuç[. ˜î­>cRÐc¿süøßÑÖHè¿ãÎÖÎ~§õÏov·¿þø}Ü@ÿ=yð¤ý úÛÞØxòàÑ:½oo<~ðÉþçgù8ʯýå¸f¿üâËèu<É×þ©eˆ˜­Q<‰è'ÝÔ´µjbñÑ‹¥6£/ÑF7¥ÓôjOÏÓ~~ë&¾\Û ¸B¯“ B¨óµ#¤¤Dº¡Êj‰V½=¡ZûÉ‚ê&¥þx"ê%ŸþiÂéÚ‡°‡Ö;—LÅœaÜ+yÎéPsäIFI›–·7ÔtÅñüÕÁ›5‰ËsºHG,o? éE!%‡[WG{i2É“šdTÍ'âPQ³^ŒAΤ†õìKþ›ðW™Ý#Áo;¤ Öqò¶›M×rž¤ÍÆ`ù˜q|UÓ€M^2]šŽå¦¢øûd&F<ó£=ZΗ¨qŽÚ·‘$ž–lÀcI lÖw" ‘!¯{žp?µAÖ×;䮎\âÜKV)„64É]ðÖäA~ß«)–¹×ÂÙt‘“åBpQ1ç6•t¾˜JÖ<ªšLØ’ˆW†ç††“e¢9žS-Žá··ÇŸÖÞL<÷ÍÁÝošÑ^:Y\>­mØž³!·£:'Æ#иˆ¯O1rbÇ$û0mï*l0øÈÒÿªE¬H:yÅgÈo6hb®×ꆴ:!øt­ÖVV[÷i‡éàomm:K†é峯¨å盜ðXþFýó¤ÿN¿£ :è«Å^¹ÖýQzŠÿ0,CñažQµn1í/FÀ¨QÓ%:ìÞß@Æ„èËGÍèKº9ö꤉W„‡×ŸÖ‹%8³l:K¡ÃÇX÷·¾î€WiJŽÎt.¸BVvâ–¶U«K×Ú¥¸© ¹÷°y•-ì§Hß“ çÆÜb-æYF£×õ1‰+ìv#»ÐŠt’ gÛN&ïÓY6a{ŽGÆ9lz0n5jÇ1gjPø´NØR5—Èú"à.‘Mpˆ,!ã“j‘6_L7Þ'£lª¸Ñ ÀPLa–ýA«MÇ¡æÕZøkD[øòѽ¦9Êsð7g'`È‹'YÌÏyôX5ùÅEŠ Cšã¯éµ¡Y¶5m>Ç]d³w“ËÉ …¶ïÝ —åÞ½Ué Ù­h†‹™l5cr¤·ÚPÚ€óh b¯å‹S‡íàs"k|_l w@¯?2Þ=ùöhw›®7pÍØ âߺ RFàUè"@m¸y|Ü¢{ÕÑX¼ª(½Ñbçn„»â̳<«1ò ÷kˆ~eÙ°Urhìs¤B¥²Q¡,unÕ4ÃSÆ.¾ÁOèpά»)§öIpsboŠA²GáÒ^Ûw´`;yôh§óâÍ+c6-K„Ëk'´Â`ÀVsñHî$£ªÕöù^Ïú /õÙ¤<®¡¬Ïp9äÀ¥ñ¼v>ŸOŸÞ¿qqÑ:ŸŽè¿“û¬9ú¹^¡ÇŒí1ýß6Ô:ŸGMš“wkÙI@D4D"«v^uŸÒl3&¢òy¦D cH]9Í'jz“1+oRúÔmæW´cÝaÄ+3ÉnÜ„ù‚ÍÜlôÐœ&^+6gouÂÐ4Ì7¹ÅËÀ–¹Éml‰,,Á™Ž@’ÔYL€u#óJnî7jÓå° ã[½f~¶ˆ™&ç+ ³Ð†Ö0‡/$ûó'­³–¡> 2µ¸OÄzn.¾©Ôê%ss—Õb·²^¼Vf¸sBI¹±MX²]#/.§'&ìEOG‹¹²=¸K&ùb&4]Ù=²ëºêsc¨ -'`¬#¹“ËXø$ðÝ»˜ÙDô;†&ótŒ åÍxÿ+ùˆüÇÐÖ~üÑ@\/ÿy°±ñ°dÿ±ñ`ý“üççøÅàLßE/ˆ{Å B:2á;-‹ùj;zÿ°ÕÞ4±M´éÛx6K©ÈÑ,‹6žÖÖ>â‡ib“¶FXqŸ7GÛ»¸òòZ5ú7„̤ô>ªãÂ+BÌ0û ä†CÌ5 ' ²¹:%DìI­<·Îÿt)t >åbµ§~¹§tÙMg”Yå&üŸ!ZL¿%ù@«Ô ˜"¿%æâ·™WbÊèm[Ùš²Œ€³.€j€!Šï¦“|Ò!Å·ÃnO˜$%éJoOöA—"Ô÷!/ãÙyqvF¯efËä„^©~w[ÚWz‡Ç­±HaBwtW+4ow>¼ûš0Oܱ»Ó¹#²¯3„i34õK—[–ŸÛŒµ :˜­©÷:‘`Ϲd°@‡‘i{â–O&œ+p– U®¸ˆ,iÀsØÄ˺P0gL9±¼˜L×É‚ÔîæüUp£ô€ `ѧl3 Œoð+œ¯ 9_ünû--N›_Ánÿ©çZÝþ"ú§Å–¤_>©ñYŸ0Â%ò+&i÷ƒ9bÂJ£T|+yV<&µWÛ÷¹;šq€6BM'–¶6Åîó@¶ï›â†ó¡ik7aÍ× ˆðÐ[ŠhKÏ‚N{ÆqµXü)¤1h_INìZ‚®Ìô:ƒ¹[iá=6 Ã¥@ü¤U Ÿ¦šõg$'F®Ï2ùO„«Çƒ‰ –Ž_¤9‹§ßùKYÜÀÛŒ5$ÜÞÉy¥5:6wÞ'’àÉÉk¦”Eö™ +dDòvM³ÙÕǸÔ54-ª –Ú–bƒÇL7ûìÜÔ(1L.]Ò Yð¥3\/˽úpíôŠ°Ý.Ì ZTŠ@À/µ˜h¹.³ô]¡{vâyŒ[êäp{ Ï #3ÚÕ§µgåO­ÖnD/ ëòåš®m4"P#e´Åû‡é§þVíA±ôö½{ž$äŽ ­úýûçwJ-è+jC†ß3@\1òÚ®ì)îs±p[CH dò¨®'ˆ“] Ò!Ó™Ns8ñC{ïÔ²òÅpšàÎ;ŠS‘¬ˆ‡™qºd±`<VÆ%E9QjÞÍÍ2 ^ËŠ°Ç{”NÞÈ`WH–9.˜§µZ×Q~«‚ ªGÜMD^-‹¶X Orž#jËZô†¸.ýM˜Uw|È”:¿ïŠ GKüy[‡úãSÄdú£-ë$#ûsUŠÆ¯É¸º+õéë$†ñƒêÐ/[-‹ˆ@!¨Å“³¥2­t2âdêO µÍÆñˆŠœÛ×=Ü ŒÍ“ võ>Ÿ¡§J±à¨7£ã““]B Y6äm„£²‘ ÑAÖ\…ã¾lKhØ'RÒì©Œ›“¯€0(Ä#™:`vÁƒªâlj+a*™3Z\.$:.a®5ÀiB`©Z¤"{/Û·FéßWOÍ…ÇooÆ:ÑÚ$õµOæŸI,(¹LpLÞ‰ð((p>‡F‘!žH5kè,ÆÆ%——NÏït¨ºÉËX”?öxÔ»ßîËL 5¤â¥-Æ'Š"šFĨ¦¬üÑÓ¨»uÐñÎQôpí…¹¬>€ò„I’TÊ´‹N×7Öƒ'g£ì4¹û*U&x¡ÙíG‡A &¦–yu¡vlú¿¡‹’Q2Á§êá³)æ†R´O‡n%pæof5p$´¤W"äÈ_,ΚKÁ•³õ8z9ƒ‘€@/Ã.´Á³³Äg£P'g,ÉiKmà>pc x¼4:¨"¡¤ÔÙRV{ÖÒyhS"â1¹å 2f±6AÈÎÁÖ~çÙ7*·¦Ã_¸]c¾̳pجÒ6& ‹y6ŽçêGÿËr¸›D‰}MPìAGteÈMö®VL ªG}ì)¨¿FÄO¢3†0žžR ­s¾›ÖÖ@ØH/ü„“¦*¦ž±M9—X°+ç›n§wÒÙ?:<Þ:þ¶·ßÙ?<þVÞɪ7“È7Ì¿×8ïß¿aœ·¨éÍ ´¢¨›ry<­.ëŸýª Û2DT‘§ã×)ÓüZx†p„ë¹òTѾ¶¼ýŒZ‡&Q: QS!PÎn½Ñg½ÞþÛÎñ×Ý^–ý—C…!ŒTT;f$Ã:랊ÆFVs›²ßÝC&³ÞÑqgûpÿhw¯³Ó{ÝÙÚéw# Q»ý_Å“<Õ%nQK­óçüZü{½îÉÎ6̵mJC:(Âb@¡6Js^ Õ—ß²t½zBBi6E¬‚}IÍ›T—¦qpR$©Ò$3²N‘èq ÐÏŽTx]œHÓvt–-pƒÆ³‰(zÙ!Í@¶ööz»°k<<îò×.Zã\xCU¼µV~i°Nz[;;½ßžtz['½¼RíAšãŠÊÕaÀ‚Üt¨F¿.”×½í×»¯‚yã+Vlbžãá†ÓòæppØëî¾:ØÚëV¦uñˆ®6¨æK¢V¿!Ñ­÷Þlîíu¶O¶à›†^m÷DAÜ‹ _§ý‘Œ²K˜e½¡@£Í¨ù ­’ý‚bAÀ£çÓIxdÒONóyBˆÇb‡tÜÙÙE4UUñ»‘x+¸´L8Lé6¡Xž€B›ˆèÁj\Cs¥-ä|0Â[ f1÷w»‡(šý‡̹ê6ÊÈfÄðÜ!°˜$#o´…‡ÇÞËãNGד±3–’ƒ—{ªÐµî<Æn1³ÈŸSQÚà÷z‹Ö£··û‚[yñÎ9Òˆˆp‡lp€Yîêz´à\?ÊueEø+•ÞÂŒI® ¦°ØlB®s–ÝJãóxšgƒ+\hk°k†˜¦nÊ"û¨XZr¯M¡6© Üc` ¦x—h±3–æùç95WÚl{ j—•ç&cÖƒµÓtŽRu3G‡á`¶ã»€,¡@šˆšèäþ£kgžô✘õy}!¬ûŸ%ZÖåwå=rÀ¥çÏF¿ŽÚÑÓh=ú~3úqS®ˆ^o Ö­/¨~Ê=UŸ¸ƒƒ³zùpVBxѪ؈(Ý8ðY;Õ§ˆú²¦[–†P)%«ÝŒž¨š1oše,o„ˆ¤þ놻DôŸe¤CÂbÖJ ¢LÔ,a«ÀU¼÷oÖ‰‰„{4꟟ŽÞ1~‰"‡k8ÊxÿÝ¢.þÉìp¾çú{pzÖLaNvNû¤?ÏE~¡¿—½A2ÕŸ¢ è+ý¦¶M¹2‹°]ÔJÞXäÇ¥ý5{ç}íÍ涧47U&ÉEÏ›YvúGB€fY.ã¹~Óù¬×?ï›&fI§cý•Ï§§Ùl¢?çWÓ·gý{÷Z}3G• {Á;Bó°õÞç$w@Æïr®<㤯ƒ§OOãAO,É@á[I#ø«¢¦íM…¬èªMkí…ÂÔåÑͱF™v«d‚éÕŒ®}t‚Ëa 6““<±‘o‹•ãXÄ©IƒÑ©¬‹}…šƒi²| ®*> “[¢‘½{ÌÅŶœ¸°d—¥)Æ=óJ)keåÌI»“•Ï©¾c² ßäËQZ¸y{-q«lÍ›ú¹Ÿ•$§“"lF´0 ëîý%³¨}4a÷GŒˆ£öÁ€¡#ùù¡#ç´Øª5eÇšçûdÂÊVõ³‚˜Š¬’þl~låá6nôˆfAå––!Ö¼–ÑÉEƽ²‚®0Ù§:Æ=´…1¯ˆÉDdýQN×c>^-@°#¸ˆdï p˜Šn©æ^ÞËÒ{b­áƒ ‹?„zi¼´½+væh Tï.…è<¥™ÏúçWvÒFÐf´cñˆ%d¬Xcé›0¨Ñ‹h¯¬¯Œb·†síµ© 8KöÀɬl“ivø¶¼ÚŸ£ZÌŒÙgzK Uá#º¹òáþmâ~º?Ç]hÔ`1^ çÄMp%ö¢@Ñ–5,7…NU ÷c|,r¸<-æ5mÚévÐèQúÍ•‰þøxk¿ÅÜ­µ³æŽ`¦ÉÌê»$a·Vv‰†(=ßÒÑ}4…jlTü<)cQNŒf³¶jñÀ⹬#Œ¢t~'W~Ž¦B»Ó½Ã$µuöƒ›§¶;wy\cͨ-ö¹»V¢ [3Ae‘cîZ¬0»…Õ‹_ZôbH…ÄÆë ¨Â0 \Ä ¥e™ Æ•#“b01ÀͬìÊo…°$výMn„w Ýîà9ËÞézåãÇOˆ ÄuÑ° EdèHý— ËéÕ®iQM>U*îa3: ×L¶‰ŒaÈ$›×ÄÕ söeE§ øŸ¹1#b¡ÀŒV”Hé÷tü™Ó¯õzv ½^3’Ÿ=e¯'C¸˜Å@Z`Cxµ`—ÒAæ6æµ[§Ík¡Æ5DHí·“‹VôO NéKK•N® ‹õj»©váð¤]©ô͆e WûAUh-æj4O¯_pŸ~qŸÉ­:û>1ú¥Þw)Ï\¯b!Q;x‘ª*,ÿiDŸ~s3'™ãcb›áƒ©Bu™¥¢+`EZÅØÚ7íFCºNAj2]ª“ vMˆœñJX˜Ý¹•L³>ÍD94N€ŒSâè*!H„*b2²U%Î$!Y0ªÖn‚Ž:?¬®jV};¹÷ˆån |‰j¯7¢Q–½µ%cmTÈç *,—åotö%Ï)‡b~ÿÝ÷‘d&SM˜H+vŒ®û[Èà£,’i²÷r{ÿyÕLcµ¹Ú^_ýqÓVŠŒa“°]Tå×Û¼©7|÷Ǧ&²á)‹ÌM4îû¿¾[ÿ¾±ikF¾žÂÎøÚ>m×5]È´IÇžP8?Ï/#+L}uðF…©réq:8d,fÙ¨Gû×3pùYo¬õ€šÏò^:ïÙäÞ=8¾öÎ1Nβ¾k‘µ'ý÷¬o~Oe¼ÙÿXØ­íomÃMï7¾v|ÔFd‡á©cÙÐÓ 1†ÎnóŒÝK­°ÅHÌ]‹Ü=.ŒñA[N°}™šÃ%µ‡kFçD{X‹8k§Ä…Û³Àò&FÿC>4°¢Iw苧+0Ì4žÖjﶔlŽaoÇ\}¨ìuN<Ãý“×»_GÛÑû'­õÖCvé©yæ¢ê¥fUZ£µ¢‚åì,±¾ìp´Ói!ÜJà´Ã£áfÕëQ4Ù $÷ÌžEËZX™“¢ ßóÁ¾¾å&›ƒZýK-ÍU=—±ÌŒ^M¢ZÍ8Ò÷bzi\ž§Ùý4Z MªW[µ-Ph†y)ŒkµÂÄz5’ȼfàÈ„aªù­X¼ºR}qt–eD ’¸ÑôLZľܒÞÍšœÿ‡¨^ÔÄøâ¾–¡½nýŒºgG´çÿMõ„Ëaê:Î߉ß.ÁÙ@ðÊÉÕÇv3jWRs4ÕÆ~¼æ¶õ¥œ²›@fÜIJÍɽ­®éV©¾åUóÙ1H'À›_dváh! §¬µiá„7ï ,…’ÀBüçtÑk3µ$Y¸i(è®äï /ö%ž8)“Ì¢6`DÆ[®’\ÐBW˜™Ô<;ÏVTY°=æ=‚Ñc Ûc€=çhiÈr”;Î:VC‚˜†8÷ñæ[†K³º¡õó=nÔ|4´&üÒµ.„-p»³àm¼Ð—o V `ƒ}ˆì>ÔìFþ.›Öd[ºqS•ÆѦ%zÍ Tù¡Ì÷ÂT+oµªãtƃPCuË™V:¨³¸ÿ.sÕÑÈ8çú|±ç2VÐÁÿ î¢ä2†Ñ1ü©••›;—•ü¾ãüÍnÎ5›n©Yóµô„—œ×¬ãœeòŒ±2Ò-ïÆ¢Ë/­Ú?Á!àâ!GÎ{ôÉYïïö©òÿ;ì~óQû¸!þÓúúúþäñãG7¯?nsüçOþ?ÇÇ ú1ˆgH$£w%üm‹îðÓû„8ó&‡vút*ÿ |Jçÿ°»ñ±û¸éü?zTÊÿØþÿ÷çùœØÐ_MǺ¥ª²DïÆŽp´×˜š)‰ê‘Z›ÎB]ÊdâÌ”‘ÓHf(«ï`Ã:‚À—@®gbÕÌ8ØèÅ>ñ™Ýd~ÃwL²n02raàÒP«uY’|‘XËWÛ¬óLœ#2“A8šå•Æ#žmiL&beœ.¤ÝÈy­¬ÃºªŒü $DÔfD¢+³„3K±0õ_%Â,ÿxœžÅ·›üÿŸ´éü?Ù Cÿ˜>’ÿ¡ýøÓùÿ9>dpƒÍ€/nüú Üi»PýÒI]ä9Ç\½Pë_¬µÛ׸~JàÃG 9VlµÕ½¿­Þ¦Hz‰Â÷dê¯ÒL-ÍŠµÿgnÄß§é™ ÙñÉඪIØ÷&K³5þI£gý~Ó²öÒ“Þ[†‰ña5{…Kæ÷Øž²?¶Æ,SábßÌ*ðOo_ot£ƒÎÛ§µZvb´èìÒ;%óù=áÕËJUøJÎÅ6*·^ “³µáb¢bBŽÃ$¯Áz³l<®Ár›…™Àß#0ÆŒBèh¢£-̉u2,Â5蕠ᄪÉ}øT³å ôHSRÏ„í)h6—A²+Áõæœ~]cùã?KÏ&Ù,éeÃao**¼ä¥F åZ(a¢CqtB@O‘æ螪9Un,[Tî;q³^È-7Õ?d•oåFÕ‡­ä’Gq·‡˜^ƒ^ƒ% VxsÊsY˜0?eŽ¸£­r—žBzîY‡Ò¯ [öNCÀñÝ®2 ‘Z.û¾±MîVµµ¿ûj«÷r‹Ã,r$+ªy$t@®Öy"¦JaZ¡ú-}Áâºbp'ª_÷‚d‰˜Gß:=­~:]5ä4Eb'Â>÷ @Ã_¥:yöV©'äÞâ’‡°€Ï/Ò¾€C.þ-膖3Û/b-ŽLjôû/LT@wXuh¨RÀ½èÒ¬Êo–ˆÆ–WµÐ €“Z ~°!a·øj[´ ÐæðeôvÈ›h\“l8O&©¸Ý…^ož\¦@BÐÎ@Â80vƒç‹ `v»ÓY™×‘:a‹ž˜Q‹¬ÁÚ(Ës1ˆO9ê‚°˜”¥>¦1o1šzC" Œ"Qúö=²¤–s=,ˆˆÚôh›²Øp_â:kù4ÉÕÈøR”©ÃQ 7EÖ¢WÑÁáId©b]ÏÖ¨M^roOô•2‚æR þtîNÐ\LQ¨¼|Ìîª f{ØmV™–[p8)¯W¦÷ˆõ.kú×ùÒæLD\ö À\ym<§uFÒV¸^‡{ßbÍØAð5­‹Ä¹«À_®Úqçäø[{&«>¶C\§¼ò[7$ÅA¼ÂníÂÜV»Ì£ƒ7{{MübgŠýu5lØ VÊ”G`âÁq†|!žÈöÀÙ@¯¶­I\—›Ú»«À¢ëh(sR͇qaô_nžÎÁ5ì-ª¤Aw°WDzYð1š‰-†ø—‚%½kåþ q?¸F¹ÆT¹ñ†`¿µQ:ŸDcK^~?2Êm™é˜ÐŒˆ¾7––Å€š˜Oº°¯U—›C¸Q#Õ¹61nIƒ k˜ÆédâÓc™€X¬H d1$o,ÂÇHRÞh3j,`O´ÎI¢¤bšÛ#9Ë-Àª›2çßÞ”zÖ,.1¢»^L–„ãJýö/úç2ê-4Û”– »·˜šiäMC`/aجº‘,"’VFðÔéúŠ#ßßúz÷àÕÞî ñŠ ]A'O¼{’Š)­T»B-Z¥u ˜Ö£õ™¢ èbK®É††‚kMQ¢AvE=øÄ#åùL²MAŒbD[JÆ+å.4[ßp*FÆ° ‡¨tÐÖDºÇ-¨¼‰[ *µÓ–2tÏúèˆzî¢Å™fÎpÑ͆ ÔÚrê¹[édÖd¶Òš éê–›aOD«Éd(¬›@˜ª ò<HòkÙÅdÞo1*Úøa_vŒI80PÊ Ôïº6LŸÚe£\ØàÖ,E‡Y á›^*!×Ède”`kÖAͬ¼m‰ümñ‡(£“h.jœ¬:_nDèùÅdÍ»¦lS–0s  A¢ ä ¥h"w‹QW‡ÜÛvôµ]s”J{ì^Ù m27wwœÈ‚7—oHKY+…ä1¼°BdCdrh`Ý››Ìe€¾˜Ä`Rxkw£A:¹1äÞ“+Ë4Ï’‹™ÄIÌ`}XÒ¬Š¹åb¥­A"­[%í1¸2ÍŠÇnFG›(gÔ‡ÈÄÍñ®[(AàpY‚ HŽaÕ3JÏÝ1ÓG¹/åŸt°„/2} ;EŒ+mƒt‡õæ-AŸ×ï¢xƒ4›\åÝ’Ùœ˜JÝA“ŒŠ ‰®R󡬽¡@qçÙ@HßýÎþKF?D ?¶¾%2‘0£+¡£$’^Í£JB”ZmÃ$a‡c+às«a¬6r¬Ë‰Ú„ðʼnµÚƒVôFuØ)¹Ò¹ñ¢oZcmkè¨AƒçPcu1™$ÄtijÙÕjt§»}È)øºwŒÁˆÞ È_#7¬M™bÚÆeÍv/·áÐXÿ@âV54SϽsף̃l—ŽÖ†Q×TkåãwM±¢#„®61ÒÖlÀ¿ `À"˜Í(»'»{{Ñþn·K·öSŽ«)×îv½`ÙB&Q˜À"ž&xÊZoV”ŽçâÃ…mµ“˜n Âh Éžv7ØØßù9ÙvRr²ìâb–Ñ}¨t̤Ÿ+Æ=5 >[€S´»«ô¯±ÉAÂU˜#¯ßI«‚j§VÖËÁYö»N98— ) P½ö¢óvë¸óY­¶v"y1„+k W+3Bñ Æn œd}CžäbÞª­…£z*@(7Ü,ÎÏÍbšS¨0…íªtÏÆÏf £eþè#à,GPÄ%g잟Í3ÈGÙ°V¦(˜ÝõMsýuƒ[ŒGu«Ä+ÎÁ„?ŽãAº {Ý‹”OÇnТ9µiÖšd÷ÿëwˆI zÆ…ï‡mdz´µ¿ýø‹õÇëÔך©ò×=þ˜ê’•¤”ÃÙÃbÔ4++õöÚÖt¶öå—WKS{Ë'… ®)¡4¬˜Y˜\Žè·­'­V»}5䥥¿­¿¸•ÎïO§÷ùªº–$ïÎâ¼êôÉøñïîç“xJ÷!=üòI»½ñHÞ­¦“ûÏkû.õÕŒžåµíígý~ô_Õ·^ìö^îm½jÔæžžÖN:Û¯8ÅÁáI§ £ö?@èD—&C~ï4ΓzãM~lB@‰ûŒ†@Êéµ" FEœ}’ L· ›²Fo zb÷ŠcEÉB w¿Þ=êu;¯œbñk] µäó*ˆÜ?‘Ø|ìFW;:>|±×ÙïR£o 7,ñ¡šÌèýÁË ·¦ßl®¹Ô4€øšV´·#¹+àrO¤~:WO3ó[L0½LÆ‹QË~þöá“Öå©­WÛ–ËÅÁM‘~¬ÜŒÉ‡F”£Ú2>•íûÎÿÒa’÷hFç¼6Š—þиa#j‘f¼`+Yy¾¶—:±L_”è@|nk¢ šÒ )˨Yqc•Â¥^H{ÆÒuŽFîqÀFèx·?›¯ß…_Frþ ®V`:~œæùxM$¿-ÑS:cðã^N¬µhçjBo"ŒC¬S\Mz£,´úRéîIgG’Þu_žÁ×j0ñÇÑáiBwa´mÿ!ªgÙ5ò•â¼~v6‰û-köÇtíݨ5HîC0€NïI\rZç…î^oïHwŒÿÿ!éÖö A(‡nŠ—ŸcÓþÕ˜ÑÖÜ`­ß‹5̲9²“È›AÐKÜêY24‘y­–‹›U¢sÂÉ÷`Âj~hseqàøÀº¤Á{bŽàçi“…ä~ܺ$Ò=†:+ßk}D™ñä3¤“Ô 'Vmʤºf«c*#È]„»½„Ðw'–%@òBf»šF†jP ‹¯¯ '%J0ãu“™î!°ê% ‡ˆ ƒ?Ä¢I7ë)X+W M"qˆT·Á‘¤9þ…-ÃÉ&yϺvcÓ_‹ŒÄÛ‡m¼Øq¡7æ¬{.ü«Ä% ÖÐæ’¡GiÄTä7MQ˜ÎðÏ.“˜Me×  QÙ#·¥^·n„̽?" f,…8/\ì»:k%°Vëf‘½É8“ËdÛ_„Fe.Ú!‚ÐwX+P“&rÅa/º|æ܆òç\—"±æ}HYS݇—È%¾Qxé#øþD`Ñ1i¨ÔXÜcL€,7¬ób,Gqžf«.4+Ž°6˦´}–Å%æÞ¥S¿!›½B]{æP¿yé{d²Xì Înm9YÇ1< 9N\¸*[)_Äîšx;ôx)¶Ðd:D0Ęw%”«\vZ¬XÜN ŒÃjc( mŽ(^mã~#¼Hë ’Îª_B 3ÎÔfÕ@&ÛÄ°v‹Y¥¦;[¼™9÷ã ñNXhÖ“­i¸j‘å¾sd•ƒ¹ŒŽ|C P;?ת²PƒŒÑ"Ÿ cÿÄÕà$G@$T[%b)Í{ïS9¨´\ƒEì sðNHGYj ~Ê«ó¯iúïA9º%!ft¸™a¨yÂ<3zàŠÌOqˆ‹ê¨§R4+!÷î)à<¶~mVÌNÌ@¨ÇF­¡6”EE#¶©ŠÏìQì!d3:NÌêc!ˆ+XÛ¤çï_gƒcØŸÔ"k›ú yj9ßÄ¿‰GS:ÕNuÀQÚwiËï²¼\ÌOYfd€úÑúø@Ö$Ò(ò'|†%ü˜D7:âïBÝÔ¶vvv!3wuôòðX©ý£Ãc¡xlÆ ±'mâèáQJ´ð\jÈMÈ8‘Øo_K¨Ímzr¼îHÓBGqD• \œ_E»Æµ÷‹!ª5Ã<™¤ÎDkÂQºŒ@ëw6²‰_¸%¦€[^¦)eüæ€P\˜EZ!FíÖº ŒË(œG¿§ý6¡á‘üìUú>Q¿À1¡Š÷ª\gg9ÍãÅ«¬¿ÚnȈöòÇ#Z0Ìã%G³ž!˜ŽŽgfÒ¤Õ´0“V.oˆºËÏfÙbŠ„A»û»'œ‡·«YM„8±¦à±•)Íæ Í*Ñ ôðH¦µ2z!½!$¾Ø O-õpjÖ‘ïX’‰ŠÀ‰ºÀðtf}ù"™#Œp“©†ÅD˜[°ö/T¢ c#Dv–¤£ !QlVÌí½Ý–ÚÕ«ˆÄ¥\5 ºq? P«H¥ë2F¸@ãÔ€Åó)o#r /äÔØŽ–2¯YÀ¢¥—Å–ã€m|8 K;YÌX[e¡òªg~¶Ú5â™ÕVdBî«ISC«ÝmýµÊo4!oùjÞ§wôÂðíÑ‹ŒK/X [„µHbÍ*ç”g”dæ¥Â1œ)9¸Ž¥ôÍ$ñ`zžŽ²<›¢ ȱ6›UÁM‡1jž…%ß  ,Ìvòbe’VÔѬ»Êò3¸­ÕÔýœGK×HjCŠ(“e@ÿ¾8%"5²9sEBó˜/„Ù‘äšìA·GwˆÓRž’saÄ9Œ#ͽ]c¡Çibvͳ°ñÓ°ŒÒqª¹î—‚w6ztØÝý&RJ:Vj(‰gkòÄÀy‹(úÓ§"cÎçƒ4ãDtçâ!8î1VÍ”ZYúRZ(p­iÎæ35O…ººýz÷h#X=zóbow{Õ¤Šiwº„ëíî(u9æ0Ug) °Bi’8tÌ93•ôfßôZÀE%,–çW9çIׄFš’Ú#5¶²½fÍÒ²Ö¨tžˆáÄÅyrÀVœÆœTç5Ï\¦ekVk½~ÍôÝFxy¢u @žéÙDÏh§£…ÉÍ ¥®fÏåâHÃÊ©ÌÌ/jŒ¢orÔ*d¢íôª–{¦ ½ž6r5>E~ ð[t ]\ˆ»âk[t*éÍRâ&ÂÅm±½¤‘9|•{XuVFš`™‘‡Åé¨îÌ››ž'ä'D7qÁÉ»áÇĸGcGª ŒêÕ5$Ã6Ò¤{6Éen½YU:ujø6?S²&™Õ°?æ˜4o„AkâþŽÀÕéŒV ö )Œvgµ‹it.Q»ÐÓÄX8«Ô0H€z¾»uðí]ŠÎ¸ ÇÞm°BçPÎ2úŒ“Öš¼fâE@y}U„˜§j•n>©Éu på‹Yn³\óE䵑«ý¹HÅYig3.‰|ux¸÷Š®€© #“‹Ï[c¥¹ŸXÊi4XöÙøÀ\#µ÷é ö{æÐ=’±RS3b÷ˆh#RzÇ–ÐS¢ÎkØÌtU8ºÕˆÓ襱ñøÁ:bõ®Ó?¿‰6íŸÿÐà ‰ð‡ñ{ÚüØæ•£j¯¾„zN4[Ú5"ö¥X0zõ8z°ñHÒ+Ç‘´¬êJŽøô±Âל˜#&¤‚wʱÛævêi­V”ZÖjL¦¿!*ÿ´²Zñbe¥.á¹gꓵ &ï8—¨'\3›õãvë}Úo‹NÐÑš#ס§xSŒ(w(óàÏ›ÔÊì²×HmËh¤]@IªÎ@ë©Sµ([nK¼&{"ÔäR°¾B,pàè€ÜÈ i/')ƒ7Cþà§å4.ùÿA8ú‘ýÜnðÿ}øä1={ò`ýÑÆÃõmñÿ{ðè“ÿßÏñ¡ûäJ¬sêý‚müíîqÐtãîv›¢äÙzÑ=Ü{sÒÙû–ØöèíÖññÖÁÉ·Q監ãN·ÛÙ©¿»´·ÛÙAOß"–3axD£©3ã‡]7ÒȦó­‰´¢ÅÎïçóQ¡!ˆñÔÚ)Ö€Õµe%¹èˆ¼Å2çˆw'_¬è>¡  í$¢\ZÅg°Ÿy97QD·0"ÆnŽTǹÏô3ø·éĹDæmDÖÔ!N- 6Œ~’!ÑsÄ56³ÈÁÏPÎrqL£ëü ¤ô°¨n:29Í Z3£ò¡7GVh-œ1qaâ”—¬«V‡Ò‰&»Šk_¢W-«xªWÂéS_ï”·7žcS†gœ~üû†[úrA§#è{1CÔ@b_ã;Š@õ 9â¶Ý;_ –9ðüˆW; ÍÁ @/j‹)8…@9]Êêî*†`¿9Øý&"¤HtãÀr­jŠ×@Ì@ÇN6¹É\i´*™ki7î’UÃNõ#«?7XßhÚà삪{&]Ænÿ AÊ9€&„Ú¬ðòMm¡ù!1òÐ}ýù±m€ºrKº}x¼Óc¿ža”Šû/mî@BQoû®¬ƒ×¨Æêï”#’žÝ*Lk’MÖ ­Á˸,šÀ‚) ±¹½¡ÜÁÍ_;!6¼Ô aÖBµœƒ3‡eã^b¶Žþ÷uànág ŽÌÀÑùÖYs#Â8p0ØŽél2‡ö˜“4Ú·}Ë=~ˆ§¢Kpôÿ ¡Ûÿ ÷T>&yCüÇ­ýÿ¤ýpãÉ£'ˆÔ~ø¨ý)þÏÏòùêõÉþÞóÚWÈNAÿœìžìužïPˆ^©|sÛjÄ‘Ù“Ë‘Z |užÎG Õ½¤1ôï‹ÃoÑbûÛ9o?7hä,q9]ø\‹ïÞ¤f¡”a¾GmÄãšn€é¡µ"fùÚÛ$ÍÙ0c^E¨Ÿ*‘í\n'š@3(ú åžrÆè^H‡huœ'°—®Å¹g>@×2KõS SÃØ–ƒ“ r& [µ¯Žžl¾ÀìØds+Ç k³ºˆ³É{…²°iÂuMZmv>?·QÝ\#³DÍëøB´¾©£ø4a× šÏ*kœ‰VTV6$ÎÑñÕëç/yÔAj&±ÒQëI‘¹ÿ6ÍÄó¼ñÜÌŽorZQÖgi<Ëp’°_eö,OeÄMÝLˆ¿‘¯—”„©Ä@™ì[“›ˆk²ô¢ Ó‘ÈñŒ4€—3˜©ñÖ«o$¼¸ÙýRÜý='‰@(&sU×u±‰P©æD%Ã8å0B<Ê:У1Æß´^îo44ôØÑ'—ç)Ü^…@à,ɞΜúçXjâÑ&Î&ˆ¬Dèã0iâè*˜›àïÂnÜÄÿŸø»Ó&º7çl¥!¢ögv¦×ÇÙhÀ£glñBßêÓG>ˆ´QÙizĉö¬›¦¢¯žEmHHêÏ^wñGêÓ¦ëR,Ö5}Ûê¦gMÃðlyøCێ״©õ,rZ×÷„»úÓ+-Òœ6m×òZCý{àÚRœžýhî;†ÊH16q[ìØ/‘y[˜Ge Œ1’úò‹ÁZ­þ9­ãÆú×/Þ «ž ³$Š c0iS(E¶qR-}Ml«¬üa”‰¸|õ4;[äöŠ\%òºEÀDØrat[0n9Ñ©w—â‘då,Œ•ËJ2wÉ-ËžÖ|;[Lౚ†u²È¬[_Â=¶Î²@Έv½&Ñ ·(×F‡bO••kBó®xvòá D8KßC7aÜ»´o"Ùk‹$3,•.EË@3L»›X,ɼž$ˆS\ÇëZsËu%‚貄„Çļ¶ÃÁ“z/ö¶¶¿îíívO-7k¥)©†XVg}GicÆ’FMšÎ,1Õ2Ð(²XG±_K,Ÿ^Ô¬"H™{ÙÊ#2±Pš³…§D|H¡GÀÔ)[ìÚPÖþåb`YsèYž|R# I #ƒµmy9$d6+kg/e¹õAÛÈç ľ#Eí#{ÃSS§ñ Hçã Áh½–Ú׋^:P,Æ2ª¯ ,ðçgóÍèË/¥ð”B±¨v—3\¤Ó87¼<ÇÓŒ'¥Vi—gÎ QŒ©E¡gT°'ªSS!™ä5‚xø‘Í9DrE e(«+Ð`—bYǤQ –LAFœÇöâØè7“ärÊæw´G{Œ¿^'ñT÷нENòit6Ë.˜:d8ˆS–—½Ê’O íN‘ ë™±WFD¹PÇ&¬ÓY:¡ZjÄ|q(]€ñ²F‘‰p ó Ü|!å)Óüzõéس1kþ¨Ñ>ž›/Ÿb‘ ©)xå­¸TE *æ,³¶Ê…ÌZ05silØ-’I åС²Áì­õ½cWkjë›ñjI5N'bÛ"I§óšóå»Èf8{jÂ.´ünQ ‰ëÙ„ˆ?¿Ví6n›Ž&ç÷r{Á‘GĆ#¢ã¼¤¶F ¯%«Pª×Ä-Xt×Ó $ê·â“‚#ðfBàÓ™® ±sHdÄÖÎNïÅ·'ÞÖI¯s°ÃȬ!8l•M6s8QÓÐ0¯ œCÜìÄÁI³ íìŸ/&jóÍý¾~±÷uw÷_:Bµ8ÙÚï¡H~°ÁA{4„4­Ù_×èñã‡ÁãFdQ¨àå h‹<*îGB°îCÑÆ×ѽ¨Í¢WúšÂ Azøcü%.µ±½cÀ×ó=}b.1ÈA¤ ý`ÅÍOÉ0‘ä•›“†Äæª&æOP.³L7#s§l3›õZR6mœ/KØÕ¬u ®Z¾)„5Vs,e;¥É°hÈÃF}Ø Nnð”Èi‚mžÃÝÛG° ˯9 GP/êòÖ×3-Ù#†“=vZ8&6m¯ô(^-’æÔJ¹‚uõ®¹7’Í_w:G½ šNŽ»J4 ¦pÂaBœLÈC‰uëv\¢!j7ÓÑÍ4D£Y³X@áÔD ¡Ihuoh9:—cÏ[ÃWž0¥ŸLؼ:Ï„X{‘wlÔŽ.xÌõ@§»Ï:ƒâ^NÎ5R§·FšÜ›Q±lÜ;¥‹n>#vRÁYKðt:ŸµÎk1G¤³¹/A-Áä$aßR¾i¤!°ºíf`—EŠÇLh±&gÕ’.zD ã”0›¤Z$á15™L-‹fu¼I,ö0¸8 k„è¹ UàYÓ3ÛÌGS!ô–‹c|8$Zsîm¸é½UÛq+BIB"øqv4!ô×®a˲ðŒbë³÷5‘ŒbD6Œ+…í7½ Ö¼!v¼†Ö@Ù,ζ8†sQìn¼òcC©½j°T:RhŒ‡;û…¦!TÔ˜`Q_¼èŒ5bHL»•Î}º–eU‚W…õlf¡U¥)ñ2ó¶Ó"‰ójô¥ò¦2C8O¯œQqblÙ¬Mód1ÈÖ¶Œ‰—ãÓ$µ Ížgv72ô8Ã÷jÛ—6m†óÁ,ÎMÎtD\,«eÅhE "<™AA,S±,Еçä±vóæ¡`¸it1ƃ¥?¬Ñ§œwÃäkdDJh@šLcB[{ä{“ß„3íò4¶•ÒS¹V¯‡¸V–F9ò¹EwŵÀ¦éCÎ%ƶϭšð'„ùßöúú×ÖÁSZçªe°Q²ùü‰(97Ä?G¡ö_ðdÍå˜bmgoëøU§·}xðr÷•!–Å/¼LªÃóWN cšQÇÛÔ‚\‰XX s%Ä f¬SmFŽ_Á‘uú,=‹™ãlå6Öˆ¬) ¨)ˆ=M†!Ía^ªüBìì?~ˆ&*Ž`€¢2ƒˆE ¢ì C,üÌAªPÕc«‚;”}wÚWÆ=–c4ÞÁbbíÛ ±Ê¥)þÇ=ƸÃÈèÚª1ZVÛl¸Š9ž±)¶È‹4~ lÜ¡'°™ªÁ{Óp8œd˜Û‚¼B}áã¿;¤ç’ͱÞ^¦ÊªëY§î±0DqÆË­š‘¯n D«)»ðõ6•zK¯6gèRE“f”Ø#/ ¦¡åfÆ$ª§·Šk¸5EFD –Ds©9U“Ã+ÛœÃ_ÍÃÉr„\åUŠê(5ÉÀ\<¡_3òDÑâù™ yiÆcˆ“¨¢ r`”š;à¦-Øð›ˆ7,P«‘Ã.W‰ù‡YÖ| £ñœ±ixÿuý’ò¢Që`&i~¶H™%öÿªöÍá±gkî¢"ª2ߨO¾Œ=þò+X¬ph#ˆkÛÑpGH=À) 6ŠT¸;q'eU¸ò¦ãŠ‚ĉèÛzg=vÖ=R¶Hí±±½¯ä"H­ï ¯hC6˜{Í±Ý K %¼¤Ùøtn’ÖŒËÏÓ·V'´˜Ê7Kð“¼Ðx½0†1™õÕ,€›ÒÒ°82‘L8áŒÅ…^„ØÏp+NöÀ¬mÄFRX÷âæ¤Áb‹uãÜ _8ÝPÓ(°Òfx>¢‚gëýÓÖºg }¤ÉHÃâfÞ–ˆ¼£¦9²ÔvžKIƒaó bK ø=#JBÓí©÷\pbÎ-Zи^ÂÙUƒX™9ˆ8Ôìyš÷PíäËhöã}8 CòŸ«©ðìõ›»X§;L ƒµ¥Ce² ðï*‰Þ\;G<Ùš÷ÆŽ9’íT 23´~ÃÈ™¬Þò5– øQwÀ W.ýàèlÓ† QÔ¸NwjÇŠ…c¥=×èŒü ðpS ‡®™HoîeÍ„Gµ¬ºeŸ·+Ç÷§†“èÑ‹+ü“6 ×Лž5…Ê‚ì™$†~Íj+Må¦fÚÄ=‹ œ©•Ë•³=æE¨ ÈyQs-‰XÂø ‹íõé¤ÕÕJ¨]ž›Z¯| ?8­JÃÝ"ë¬0…M² @z!¯ì¼Ð½è֜ƹ% ¸’bB3olbšOwÛE€²ØÿNnÊ„Ü–(@iHòö»ï•!$šv¤Ì0lnÃ&Äq|€†… ƒÁ-‰}Sa7 ¸®F°PÙ} *V&‹2à‡d–Faœ?™‡’LÎæÆNà`Ø#Ìw.Ó*Lb±`”I/V!ùò~K‚×|EŸÇEºm•<•'Ó½™P32P¹®àó£t¤‰­æ <­‘"¬<¶ä÷ Îø5–€¾:Ò³½³QöJ’utËÌf¼,Èæd ê¬ÎS•aƼxYèžïZÙ҃пWŠGµq© ë(rv+-èÀ@ZX5ŒBbyjžQ¨I|Xn"ÞsÓ‚ô”Ú5´ëñj[]:EyÓÒF™l/çñ̸†J‹Š*ðp3bCð8é–þí>¿¼¼dîÙ²$D‡)ÿqÜŸeVbᜠÌ X“”¢ÿdMl¿íG‘[‘øýÓlpÅÑšëâ'…æúY>¥ø_ƒ?~ô>nˆÿµþèÉú/Ö?y²±Þ~ô`ƒãµ7Ö?ùÿÿŸïMfãVhc&#Xgïˆ/ü—óEôÕ¥üøML×Hël·â~kñîù÷µïN¼Øåt8Æ’òz$–³ðý¿Šöd;Ë[%üûZmWªÐƒtžM„_‚¾ ;í•—¾ÅädScöÚñ>—Üÿ­ qošfc~7~ï{3‡dæõVLRn5×—t6{Z«­˜üwAƒÈMͱwX¸C¿¬hXBùêùi¡úþ.ŸÒù?Ÿ~ô>n8ÿíGíÇ¿X‚à>y¼ÁçÿÁÃOçÿçøØ$QY̼¿É?%AËŒ¥©$Ü–ëô4 ½¾6ŒäpYØÁ]o#D¼š’t 5önz¦uÎç˜5rËÆ’X»pN™ä³´'q7q2,Š5[¸ÈË¡ºÃ;ŠF0u©Y}‰_uóÐC„-2þ²œT£ßç„ýhm $å6¾Ä5–9‹ð“Sºö^½ù¦×=|s¼ýÿgïÝûÛ¸²+Ñü|Š 33Û (J²,;íŽÁ‡$Ø| AYêN2¸E H–  @Š¾=ßýžµöÞçQe÷MßÌÜß´fÒ–H ç±Ï~¬½ÖQÈ"xÒûuM·/ÄZ­þf²›Jd R.è`¢9•\¡Õªƒ)dæõ}äYéÔ"Aà|ιšzM!2xw¾ûþc¶··~¥C/ÊÍ×»|ë2ð! ׫𛟜®¼Q_µh7K_¡ö#.6X–:+⊪¼‡´D~±eç«e1»×R‹¦Ȧ‚m±]÷èHŠ¸OÅJßñ5»ÿÛXõßþgÍþOаÿ×½Ççíÿžóÿ¾þ»½g/Àû?·÷âÕ«¯ÿfÿÿ3þDÔ#dùá%irA‡GYïã9Å=Œä|Fˆ¢~ž3güÎnßÅo“¬ß{ñÜm sãõ×s{ÒŒ÷‰W/;­Áyïâ “ôϬÇÛ“½R%oIãeqÔšýC±2BŠ“DÁ¨ø¤ÈííZ´ZÀfÕI]Ý…œjÒÙ+y‘ÕÌèݤòB"Q¹ž¼JòœïPDÁˆJ‡=¥{¡Dé9ª(IӰ؈zkå¡ Â0Òd\—pd®Í>¡CztüƈÛÑ™£‰ÑpfG­Ô‰h ü]R’HÛÚù0éì¸S©~œv†z(÷lkíà“.×Ú«a-ŠI¸Ä“œìUA‚Qfº&87b&¡÷n#NûÍøJ﵎yŠ'ÄóUÑƳ¾œ<€ç·ð'UP—ÕŠ¬0Ö=‘àWð• 8ë[ÀíGã<ÓJWåØs§ÄØ:LÄ$ºØ`o›4ö%\v©+ǽÓéùåqÖŒ´ž³×u”W"rÕ@™a´‹Ú¦Ä¨<ö:¬V½%.¥ ™!rgÎ%pjK‘wóg~z‹:k»çC½­N¶^ ‘ âUD 9sûÒ®RãežË P6Žº¨"Žû§‘ã€9ß9^^‚6W·lªo°ðaX«õ"ßÎŽXaHak»+|6\œëú÷ÞÊú]q§p_ÃÏ<Í,Ðtn<ß‚{8éêÀÀe„Ñ%@e´¨jã$&®o‚M  ?’X*ƒ‹Ž×½Ò ‚™yÊóÛÆ@<í‹›zdIÒ'Ý\)a"мv|8üpî5å°›˜Hù5SJÅ=(¾M¡ÛÉx;ÛÙyXäs‘Ò¿'P–ú¯¶˜ýk ©Í_þ\•k_ÀJwöù uy3Íë;ûq=)Šyx0gôÜ“ÁÚɯñWyÂôgö¤á§z7þ¨ñäï¦þù+è«tŠÎµãî PßâA.7Ö„H“Ez 6¾žÙAPF¾,ÌàÉœCõrÜwL#Ë]*Èdud·F …¯¥„]ËM/![š¯c㪈¿Ä¤+ðmD^KyLé“ÃÁîÛ¥a4’VJ„rTF>ñøBaÊ oѽåšþ¶Õ~ƒ_¸Ã ª°*Ç“rt÷¸MŒPüó}âÚŽ4Z䵪ÞËàíL_½¾ËîÜæâö<¼zýìå3¶æA‘9Wà•'4ŠX•˜@à~ïšê.J¦\~-ŠúJ·!Zb@ªÛZ¼Ÿ{ûš,žºPÛË¥Ùr›H êžs\Ú-½w9ÞPÂu@GV„¸NßøVäMLªløÕh塉GJåLXšˆ4k„'¶Vód(è*‹i OöÏWrzI„÷äb8‰e”r^j÷w­ìwò>ׂè3ßêQçR‡Êt?Ýv[­4é÷îZ»Ói>ëÞþ!þ)·wú³J¼ãÆç ô¶ö#ç.ãg­Ö^ö;” Ýü(¤a¾ü¥øîå³o^E?º-¯—ßí=—Ÿ|‚vöݳjñßîqtâÛúO%v²jë=:vùÎùÅÙåfýÏüÛ‡‹þå‘ðÙÅ÷ÀtÔZ¤-W#ffòO<½eÚj-;áä“ïÚøô6zÚ§ï7ܸsÒ;ž_ôê]eÎð¯ÞéÙigg¯#DM qš|÷ÝÎÞ6i˜2¡ª‚æZooáê»bÔ·”« 6ô›mû÷ÿl‘ï /ÿ]ãý»í‰üêw|ÄßmÛØ|‰Ç«®åÁ·ÝX¿xùÕ«¯_còùÏgÿð]æ¿’ÉÛ_ é{ÛM½{òÎiE®˜Ì)÷ÿ: /P|*—í=ýçÿÔ›ÿƒÎÊç/,é"ìÀ€/üʵ›W¸Ÿr·œÝÙ·øgd½úß  ´–ÿ[Ô¯ž=ûëfÞ~­þûõ×_5ë¿/_ý­þóŸòçC!'¤;^¯Ý8èö1u[•Ô~È=™àîŠÈgßR{"áÏŒ&¾eªÏêø¢ûÑÝàÝÑû‹þà²ðœîtóC¼ùO¤-ïê Ç=E*c>çºÀ[Ø$‚'‹a¢-°!øW÷D5 %ád:“* £+°z—$u†÷ÕŒAËÒ,ÿì"¥ˆH´ÆY “fPmÉì6¬ÏÚþ¯oÊ¿öû•ýï6;ôßÜo^=ßûêÕ3ìÿÏþ–ÿÿOùsžŠI>Ýw¦õ´d;Ü–-À=>²œëÎáéÙðèãÑÁûË£áùÑÅI0èŸ>U3…#+}5^¢(Ûyñ¼“퀹¾W/³Þ~í…G~U-MÔáó½¢¹É?Å+n9GÙ]d‹áÿá.½äm½¦ IÒQ^åv!Ù}$[y¬öhöÌwè•Œ(Õ½'tèêˆê4øpƤñzÛWkKØ—ÈÐ Hºgáe®\b¡Pªä±^Èì Ú ¸èÎ÷¨•>¿Euè¿Ù­¶[&¢jŒ 4@ÈnÿZ·ÑÉÔÏ¥k51|køBU©0£–YÔÐÿêoú_ÿ){ÎDã(ƒõ„ˆ²}*µ²f²ç¶mö =Íá¢CN *}ËÅò1>@«áö¸n—`­äHÔ4²eÁCD«-"1ПE˜Ãm«Ø[²O”ŽÄ4›KÄ*’§#¥D(ÎnahAŒÚIRƵ<3HtB¥Ê8M"i¡ÊÕ~0ØÌ.Øp) H7úC6VüX‹VemµÙújq]„kŽ¤7-ö«ý3WE[oøôÚ>Ý ýÐfyüBߧe"`¨C¶’Ø[ïžGŽ¬/c¦Bµ=@ËàÛlëDèź{ZtN™ÐãoûNv‘Ëtºû´UµŠ'ñA àE À<'½ŠbÎ –2’i”yì\Œî–.í——Î9h´°ÂT»£»}Œ¨º(Z>qEas]•B’ÂÖc¯K£Eî\mHgàaÇT¢‹* ݦÏ-D„m¶åY^v÷ž{ú|Š†pÙ…²Ã±2Í1$ÉíIï<ÝKîhoÊm,P«ŒVzåç3hâ¸èì¸wÑdê²~Û / ,Ùà,¸PD¿ê½Ý¶Û ຠF äƒçþ“æoFŸÖy²t[”–ã6ðÚÒ²šàH“€*øˆV”tû1^t#H² 7ÐáOIK2Ë?L7Ž;JªÖæ¢Ç½Mµ(Ù‰4@MÖÛ·ΨWw`,:9JÈ7uØÑpc¥ãIàIîÕ·W AGL$¡ô†Â¨"(()¥R·ÕKÈ ÊÉÒ‡¬\”m0³.]»ÕD°ÙIdÏ-!H$Åó¸h.u¯ê°wµ’ø.W^_60N¢ÒºZÝÀàŸåØÑ1HSÑQWÞ/h£jeŠZ¢W=` '#.då·œeﱘÂ@¹‹~ïäGýÀÞlyGZ)Å…¡ÚÆï~Õ"ÃÜRo¾Q6cÓ'ÌäÜIkL.-ÝXºYž¿úvÿýÛá›þÇ£C$,hS¾ê>ˈ-ýªcàŸMø‡*ÝH·t(aSxF¿9»÷÷/ÜÝŽë0¹ñôJ1ªÁîȘ4œ!4ìP ×ð®„Øà«‚šT¬‹¢‹iÛ»‘W Ê>”*$¸¤•ÔsÆ ®cAi~|ýʸ5,øÕ4sW¨+(-‰!Ö×”šÂhª[* nM&Yå9*h‹ñ¾ Góy÷V«Å?«-“½n\V³/j¦ÀGŸ*æŠìÁzÑG ÷U4PúZt±e NÑm!wm

”³1±¿ù*ûoPœ^ŠóG¨ÜXxV½ÀI‰È±º^fƒÃõ?•d„†ù¼û¬“½Äÿà¯äLj½=}¯ŠÙ˪]#¿º_-&øäË®‹*äGò¥{ÊLAÔ&‡ÓòrèžÉøËÆ ëësqu.ªqÕE qi]-ª;¶~ðz•ª_|®õÉ\¿è’.@] âýÆÆ+ÝL×%Ñ-aÙÜŠÊ¿D}¾}ßOÈ¡©xdM²ã*ä£djøbµÊ¬ø0AÙ‡–»OwRÝlÉ(Ÿº“«åÄi>ËoL-8»E1üf’×.¾Z-jÖ\Mü0èŽ ‘Æ ÕÚ=ZÀ aÎ&$5·†"S7.ëù$ôºQ¿-ÈæÓÈòå‹€‡g7‰Ÿ–r1‰Gõq>¾ÃiQMHÎG^cÓ´P Y+Êy°cÌ;)ù±mÏÕ¹‘!B)”vóz) Ì»xm'MÒ¶ÄÀÖ@ro›é1m6]ϳ¦@‡3yëVCó"j‰Äf­a|IÂg—­(ám\=PGéI&[OZo¼HMz i‹žýó¹s0¸©X=§Öî7¯·­¡OA¹©áÔªˆsÀ„ìaŸº©]´…rD<{¯¶‚¸çxZRBõßÞŸí÷Ž‡R­ö¢ ¡S lëÓ¹Dã¬Htãdç©rÏõƒ‹¸‘žjLrPÊÜ™FOã…F+ï|¡Õ[¡ƒÉú9°E^u÷˜¡{i5‰‡‚Ußh 5{#lUòy6I’¬ÄÊ Gü%NêÖNú‡gaø̸¸/&Õ|ÊÎj9ÙÝP€<èËñÇ£7ýã#PÛß1 ]mŒ6Ú€#AÀ=²„-I×—/^¿B‡W¦ÜxKkó-Bz Έ(¢äЀq‹µeb ü+`däk;éÿvÒ]ø 8›²Üwr‹ª{zt‰‰'µ"†\õ ÐtQÇ÷ùhÚ­7äûƒÃY·Ôév‡Hé&¥–«8G-Z/”ºàæ65]²¯Ö,î ìÙÒúxÔ’gµ\&‡tƒh™óìº"a’`_ZîØ’‘~6C´QÆ4kk5ùBInûÖ&Y×ðb¤ºÐò„^92ØÒq,ø"í•Ýاg—ÃÃããuyZTÔ:ë4ŠÔÎe]IÚ¤„Á ´m.Ôp•¶IZnô €ØhZGüÑ°gÜëîç;t}:Þˆ,Š¶ÄOÙØ ‘;Îÿ9Ûy·ÿo¼¹ÉL¡¡-Åͽ{ÀÅf°½×qh÷¾éD-’¢ÑKû¶0 q:îcõ¹ÿ¼;”ræÎcºfgã2âC9ì°wÙ\ö.ä¼Ç¿ŽNµç'àdžቭ•;7å,arÂê¨& 觨“ÙñŽÁÜòÀ“ÂÜo™ b=ÒBÕ ‡bë_.rR‹KË^÷߸²ì z*buí £s00]ëg¿­y~4{¢å™OÊ9a0«f{'ßÛ†lzã*ŽÇ#K¯‡¿¾n^®½û§ùëí§ åŒíâv$±ªGÏã9Èz—­ã#7•ÙË "¬Yï¸ÿöôäèô²«J¦àý³‹ãž›ßã7½÷Ç—ÙÉûÁekÿ(;ûéèâ¢xxt*@C”$´W8#ñLÅo¶ú ÈÅCfíìkþ k Î[/_¿Â8ÇV^MáTÄÕ8v²Î#a!¡û%ú”E,С¶ ²ð̈«xaÁN]›J)[ ; Aîç…vÓ2+n„"~@ çÙ•¶\šWjáü׎“(ŪÍÒP"ìÓ­í–FZ43Hu¾B+Ͼnjt ²ÌjZÖ"ä©‹é•fd¼¦ˆG„û_w²~è0jy-¶ˆ£}tztÑ?h°ìøBsÓ-µ­˜b¡ Íe¼ lW+xñÐÚ^š:ÐŽsVDNÑf-‰-YêÅOåïx&ݱ¬|æ+ ÌÉqnÍÇ÷îu¥•Ê„Kåc-C˜M%v£ÆâZÁµƒ‡»Z9C,mB^êl l6_Ãß³º+JÕ胋ar 6€V oeja*¢šxoeŠÒK+„‹¼‚ñy³)É \ă¢ùMç'¥°Ùvhý#ù+&ìKäŒrH‚ÂÀXt#”l­^p.º}ôF  êÂ=ÅZ…°¯wïº9üBK£'è µf„î¾É¶ºÿ*£µ•¼yû†–Ù’n6. 6l)‰[JïI_u%(äBäËÿª_’¶!9ä“ø•ž—óÏ¥‡¥ ±‡nûª¿¦ÑÇYõ0´ß¤kƒ—Ñg› 3—~1[V~bÑÓ35†°–ì!ƒì0€ŽÙ$bì Ó>c`zÕ}Áì“ácêFŠw7a5âδîƒþ s—µW²œ'{Ù?XÛÛÚPª;Èyã-~O`Oäw'Ø©Ñ¥x> …ømgC>ôO_<·;´<‚/"¤784GXÄÖ€2yòaÅŠ›Zr³k„:ríN«»¸*vvdRvô†ß¹ã¢üä¥Í‡†›eüiúŽ-+ÿ–’²“Oyš3ñ¨ò™²æ·VNf/ÓôŽ/e¨nË*]=J”ä~4`N³ Ñá%¡°ï³Îh„4ímèň9·õ) or±c-Æ g ¬°6²Ü°‰1%®SP²–LÃJŠáÕKëíö=‰ŒŠÙÈÈÈM»]}§ýËöv°J„"¶Á¬ ×.7]Û>cÃK±F}É¡G5»ÁüÀóñ=Tuóà–‘8â¥uZÉü¸ç‘S§wÞç:­oè×è½³¬7{ä‘Ÿ@ìбPVÞVµjol"Jk¯Ã´zaYOpkÓµ"u—…ÒÔÕrï*5K‹ÝÖR¦­þ½[¼?u³ÃÂÝ®ºw.„Ôéýô ˜°5<´¯î¤€h+”f{Ϻ¯¸î÷öºÏB­G¢aÍmð?*¤M[!¿ÖãJÁî//o oYï(s ¾¿L¢mdöä‹gƒÝçQg*]ÈÊi¬ÖÂ\ˆ¦ê‚·j–¯«qD´$ÑÚÝnì墫ntgµèÑŽ+_ÔŠ Ú f¼Þw#•dn„†M¿ô¢»·Ç 9½ÌÚîš-¤l¦óD²m\l£Yx,ûV É­öÓ4ÎÖzÑ‚²–¨?÷?Ü7Bc{FF±¼J‡Ù‡(‘©ÐÚ’ÓË–µ›vüÉ%̬mYê`n„·;~;[~˜ª±Èª2‹ÖB¨¹¹Y˜V×M½ÊžØÛ«‹¿ó-ÉUŒm?~aÚ¾(æ<Ê–¥KÿåN#ˆæ4_¯\M¨Éå3]!•äjFWH;¥Ç42–|¯T,†á­dUvÔ:–ÿý_ÎÈ9Wé‹/6Ðñ‰aŒÎ#äëo·„¬ÐK„^¸\‰ªm5ÛÆŽû¢nÁ-ÀPAó.›Œ°ofq³«VFMLÖvÿ-'ßf¥ûá÷K÷ùqwVßuë• 4èLZfþå2É$Æi60¨Hót#íªôv-§Ž;;‹D =¢˜$râUµ¬ã|V”“,ŠÚKqb80» ?l©&zí](3Å"Mm'¯P%Êg9®ªÔ$ˆÝõx³Lå¦DÚInCŤ˜gÄß—›ÄtEY ÒLª]Y¥!ËYÄÀoÄüaåG¿¤!ìvž€öÄĵ.Úηá&¢™+ž»"–dðŠ“ž±ùNíÕäé •î[¨A"GðÍ Âê²|IIU,,08·rtç¶Â6y ±|¨¼–½x %ÖÓfÔ^·²¬Û¾÷^}»÷ªe ’þ‘„©Z”ÿï«B;ª¹7ìm e`ü`õ dK†/­/3¼ÀÿjPÜÿAþó*_ y9—9Έ¿â=~…ÿÿåKü,Á¿üúùó¿á?ÿ3þ\†¤copÐw¯L¿WLˆxŽXõtµ­{çO9çòQ’­"›+2HË"‡¿/«+û½.³ïóúô(î°%4)WÝb¼úƒ@HÃIác%Œ4ҵVIOÚçÔ„‹ZüÚsS‰îe÷#ù3¬;SOÑ:'†EOJµýýßâ˃ô¥¯¨ÕN]N_t¿þ¶E5+üy¾·Ó›/v¾yÉáZduÌ^½ÈÖþŸ½^žú—½½“ïŸ]^žðGÏþM?ónÿøÇAÿOGÿ²÷âßp±/׫k?ú-Ÿq?jeóoÿ¼þdøÑåñð]oð®}[nË6|OvØœ·çÛøÑ_ýéÜŸ]ÿÿàÞç—îÎ~¹»þÕÛrÓç²Öú›ñ«CþɆúg×~~¶éGO\MÿüôÛ~öÓ篲a.6ÎO|¼Vó!êPŸþåßþ’«¸rã$ÿhÌÑ—Ée0Ðÿcóþü]úóæOüÅr»OþÙ|³ßËÛýÆ ñZnÏòB¿×ŸÈ0ã¿Ûp¥Ï\«Õ.á(mÿyÓ€—×Ù³ì÷ÙUùûÌÌÂÓ—²‘ú󆑢 ;AÄoÚ»Ÿ{¨Ï]‰ø¡ÚW$Ë/œýÙ+Ý?u%¼‘¥Q/Þ4Pet%Y˜ÇiãŸèJí‡j1Þ ÏÄ?÷O|ïsWb ¡o‡+]•ße~{t9Üï;ãôïüÁùÇ·CäÿçÎîŠÇï¾»-7>Sü£ÿÈ#¥?jEÿhK½X쀳Øÿê"¶z†L1þíWÒC¯›¹+íâ`¼)–réöö¯=“LÝ—;ø˧®ùLŸ±*¿õJ­«Èé½ù*·ùwXï/†½Ãà ž˜¯â ‰Z€ ViÓŸhÌì_ê†uÿ¦=úÃÿä˵‚QýmågN†Ó|þmsíF×úü 3À?»î®_ªkð¥ý¿Œ‹Gíȯ_ ²¾c,ìßgÏþœýYýgÿÿ8õº õ=ñbCç5ºÐ÷_7?›uö ø¿¼qû¯?[ügÓÕNzÏöü)ºào›÷©?èëýœ¼ì—{ÙÚóe™³JÇ.Òßò¶¿íá>wµôѼåüü£mžÖû¿â“¹Eûmødn˺Iž½y38ºÜá¬$#öÛ/%ÚÈ[×Û­w´ Îbõóí_}˜ó!aúG>Ìox”6¤~ò;ó=v?œ]Òñ‰/Ô¾/¶³¶ž·W“;þ`WJC÷¶ž—í½gÏ_"ÅNÕ7¥£çêÝl˜8¹ÈëݽW"o_ä£Ûí–ÚYÎy÷™Û«aý‹œúõög,Fä4ÿOíÏYôÞÙïÜghjÞòÿåÒ[AM~H24wÿÿø­’×-¹ÃÜÿøéþ²{$×_‘4 ×ÇÉq¾ñtAþ®Í‰§àü¢ †©‹à×Þy"ºybl>çrDãwÒ»øÑ9€—ûˆNP­a‹ œ+ïvqñ‹¢èèý2sõAïâpÈ­Eo@VíÓP“ÌäÒd“ÛtF·+g8ã]¸Ý åÓWÃŒÐø¤Ú?=¸ø5h~œ‚°ávç7ž/@uüb›ZØvgÿëÞέ,3]NÞÕ-ÿ«jü˜¾«?^âËÉ»Êÿþ¶§ ¯H^÷¬_âLVæ³_1Ù³þËƦÌþl᧎ß~ É?ûÀÓöt|‰/³MÿïËd¬ éo|‘ÿ‘üËÿùþ)fšòxú?û£8þŒæþÙá‘Li…•žÎË^t¡(ƈà †¨¶ÐüÚ{êy›,½dpß~Ëø>ñ‡W5ßí7Œñ?ô&“aÿôòè¢v1<¿¼ÈoÂÿê%ØüshË‘?2Ä/¡£{.Á|¾Ùéêú—ìú/üù·œ&€eXÝ7lfûâýo±xºÐ»k{+àÎئ F{»~)A’ã¢h6å&}÷&hiG«EløÓ›âÿ—¢ÞÁŸ&ÿËÿ÷ø|ýïëW{ÏöþnïÙËg/_|ýÕ‹¯¿þ»g{Ï¿úÿÓΟƒjþ(²íÑv¶÷Íë×üï7YÂþuî|–ý@¢‡Vókßìí¸ÿyŸê£ÛzŸ²ƒj6Gm”5àÇ€Uüú5^áßàƒrRŽ\tøv‘ÏoÈù­—øfçù³g/³wÅäX.wÎÑ Ú†¨×ümö³ÇNvÜ=×A"õ)?häÝ‘‘¹®ßMpÙ›bq³ªÝX€|ú%ýõëÐÝ™O;ª¼«@è.lÍ¢hÜʽ z¾² gÁÞ9ϼ?uŸ¸É];à„àdEøÊéûzù8ÑfGãVÔÛ„¶™7ÎÁm ªë%•ºß ïZÙ9ø ùbñ˜ôbºé!‘±‚€Ar[Þƒ!ž/Þú]àNPœc½ãÌýýüâì§þáÑ!t[úƒNö¡ù.ëíÎŽß_ÿ1;=Ë>ô. WûGt^ G‡­³‹¬r~Ü?:Äøžþ„ ¸Zï2ûãÙû‹ììÃivÑü‚ëZ“ÀÀ¿§‚¨Wà&ìüÑ7Pqêš(ÄÇl¾r+ÁJ(^/=å¡°¼Êð- ±=S^OâJç%Ήè Ð]¹ÑzôUiSNöÔ…|Tk†±Ö§í´~ãÈääú»ÐÊÁë=äuËß!¢t x'#s´5'—qCÙck½dI©ÈfD˜ÐXYBm:^ Uºw[õFpsáÔ±8Í£¶SLÐ7WRS|–ÕórQãž|âíùñ†}2 Š Ðk•ŽÀLÊ+R ¢ 2d¯¨ôÊ~˜ ¿9Vx§*_€6'm€3fß–´¼×ßìÞ¬öZd“%àjÝüמìÃ:X܉+áºû¶°´jnàuÿwÀ9@Kˆ´9U*ÎƦ¥TÌ7’åËVëv¹œ»»ûððнOÜÿuÝ›ìeç.Lüö}÷fÔj¡—ö§þÑ.ØC#òžéÜ“6ÀÈcü~i<8[ÊE§¶å¹KšOn*7«·‚ñ %NáBðòŠ­3ߢ[šçÍ»®¬î“nö¡(kô}n½ÕDàhR뾟*!0Å@2­N0jçÔôqÓõß²#Ð •èyïd·|D_J¿ù¼›½~öõÎëçϺÉÓôìð“t³Ámžv÷dBç ôpL²õ'uOrŽRŒÉƤ›«wp}äóãÞiöÅ7{îó3•ñ…q9Wš#Œèq>»Yá’‡}‰’é7´KìJ§j+ž¿êd¯²ö«YÁ#z[Þn﫯wö^½Lßnk0GŸÏÑõu9*嘌Öæ¦÷É¢÷iýG߇Øñ_}Ÿ×Éû¼°÷ùækw꿲÷‘×q‡æjÄ0}tl©|„Öggª‹:} –Yƒú3Å–²?lðˆ&r5Å‹œcÐ ¹RFîö̹5$RWÅòÆì]¡òA‰]I¢À¶1Z‘ƒ¨œ­mwÜRâ}«‡gwO¥dPov¨Ïp@G;ܺÃÆû¡Z-ÈÒ{í~íÇþêò¹ìe'{žµ1ÑÍðÍs°_`^âqˆ¢±¿W|§__¯þC+Â=N{Póù6¼ü>waxâ¿ÀðÍsüt×í=›ªÀ%bêÛ˜Õ¨9L_l³$Kš Â­Jñ¡¥SÌ“[Äž=MOáéjIbh9¡Ù¡Öã”ZÈ!¢M¼­môÛYÚ–Nš ~/4{ÕÊf"ezHZÖ),:ÊVQ£ÁîLÑÖ΢±íÚœ¦CfŒõ¾ Gâfe„lCÀòl¦÷X¿È’Âã{çôà¬à‰8E£B`I0yŽ~5_;f¸²ŒR ¦\8.r…O×Hë…L`¾(îAnI6öàÌ'•S ÄPˆÑÄÐIÔΫٵ´Ñl VÒ•/aÏyïâÀ8çŠMöîTyV''=:Wµ7 fôgc0£ù¶yÃvÁu×/«IvQÝÏx踡íIGþ†ƒ¦âBxÛ³ËÇ9! ÿ9ÐƺüÌb¡_ñˆNxWn‡j‹­ß’[Yüzƒãìõ˯‘ñ>t>\v2êOÕcö€Æw¯zŽ¶\8qr¢¾8°—*š/¨ŒbÌkéúo/§ÛâêET$HÛpáô¸ë!qãö✣¸‚­[«qÉm&vÙ^‹¼šMdƒgRäw*ÉŽ-‚F« Xü_âEíâbÝÛåt²Ýi催¥VB]ÍÁFh?æœûÕèz¶ÐÓµ•Eº}áSÇuP qÍóõ å#¦û]7Š×/\¨¸¼+gµÅpΑ:‘W§µuáÖlýmÖ›ÅýÞpE:K¾î5áÁoÊžÕÉöž·’ã+;_ì}µ ׈Š‚Ò„æÞ«¨Ñt/·l°m4wPŒó…°ä¯}Ê îàm?\Û‡n¾ü2KHªœí~£]]‘Ù†¨Nn¢:jÈ®Éå÷—»Ë-¸èöðhppÑ?¿ìŸbùyDõgã@꯬ M?»%î1•&«›rK«HdðE4é²l`ýÁÉû*=…­xs¢ú5ùÍ ¶|ÌÉb­‹ Òœ½ZQߎ½ {šµÄi›`6AWD®¶t@/çjr¾¸` ×t¶VT/%-–ƒ–®r³ÅCé Ùîç…WÇE8ýˆ›p’ÿ´<¿Ï˜[¾–þ4H¹1•X?°ú\D`“Å.`õ7´Ï5 |Ü•É”DÒ“P`9ã_AÐ(W­³é~P¥«VëÀ·Õš«³ùB" ‡U†±uoÀvÞ…;]Ø% /ÇÌ‚ð«GÝ žŒÏ†,¸a2Åj^¹#‰ =&?<"bC¯3ÈGG§PþŽ¨–pÌ` ¹­lSyErúÖÙlEëînå§ÔÈ£ü–>2%7ÂÐÖò‘~7Kæ„W͉­Ü  2ò*%ˆ·t ”·S¯ûK1öl›_*@^(Hé ¥onX]_çf”&j¾Ô!ž–ãñ„§o ”¶Çq¯à^'_Œ±^L{añ&Dš`ÝzYÒ7 +¡åWÂÚÕÝ@½ñ“!¹•:%ª—‘Ä‚8Þ›GA3ðž€òº…lÖM±ŒéjóÅŒq°(Ù„PBý³ÇÆ·à‹¨Øœ®9nF'5 å‡ÞÅiÿôí·ñ@so7Í`S;9Û’‡ß2%1ˆäÍìS›¸Ø}j&2²~R ÅK‰Õk©-ÖnP/Œ8ªðÏã™.—¸¬êuü²õ½ò’OZ}ÕwÔ¦ÙŽÞ¿Îú»gJ1ÅsȹxGˆ!\ˆ¼XÄòŸÜ7gØ+÷é¶Î£Nâ7]Sç«eqÍQGív'¶Á¡Ù¶ÓJÄ—¢­×3ð)„…JËð$¢³FÐVäï5dtÕ³÷LÐ6g^S›bi¶""x;YQO¸;ÚÛLe´ÛêADÍ  »„sÒú›:÷¸æ~m O(LÊ¢ŽZ÷E„` +ÆYÿMc‹o¹$ÏMr³j&bòš¯tf\¥?kh™mÅ5⫤ò¹¡*Oî¬bŽ«ÙÙ C ïì«îG‘Mè~ì´Þï¾ÿØ`ev6x³»×ÉŽQÛê„ö÷¤ À¾\mq‹¤ÝÞnÅš | ù›ínI¨;¡Aqz~鶌Q"“”ÙV„H>=L¸Rê~Aª7Q·Î=gn\@q•£lŒpƒŠ&zŠŽ¹(#îMU™D B«’²&®%L¢8†¶ðz¨Â†íí¦·,³.¥léù½]+e+ÛTðËÚˆ<(Õˆ\JAF4ÖB ¼#²÷îõ‚+nN‘|ÌÁ´icYOyߘÉGˆLÞ¬ Í—†¦k&©#=Eë{±µá5V¡ ºæyìÌàÉgè:'c$Ô!-’?Ò(ª?^Íø(‹Õ\øÓçìLÒp?â?Ò;v[Lj ¼MêúÎZŠi‡Ì8KK¥:öº½kS]Û¬Í<®15™‡´mJp*ün,ŽÂhä™z m}”A’•GÌ.ŒÚrçðôl8è¿=íäÊVI¶`­U@"+›3¨3¦Û ”k1µ®çáùS¯®0 K“è%EºçèWsE¡V9½ýЕ¨7 jwSÒžuufå"à’åÈúËw[í7+V9tøåò1¹ r• –#D²˜V÷¬ÈÖ剜S0OÎÏãeœ°«Y³wÇ˯-þˆæ©Æ<¦¼‡pXXåKСº‰m–PËŽ•uyªœSÞÞÞÖ2YHó¶Ñ]4UhÕSRRjAN»™é(’ \KáîŒJùÙc°ÑxZKb¯¿„O¯·ôsjaå³_ÔÌÕؘ}å­Ë…³5nö J ÍŠ,Ü’›1 · ¹s=Źs"@MÁô,% ²ÇbIéŠÓÁ¥óy{Hµd >?»¸ìí÷û—d€\GõõqÌ¿3è^ÆQ¹{gÈhi,è‚+ÈÄ%,/™"’ͪCIYíHT±ò¼Ï™TSR~ùû'¯™œ'lB|²šäŧÛòÊèîS1ÊFÀ=W¥áGй°Ws Æ:áÿtóAT®5ŸÍÂS)¨M¨@|'uÔÔWÓy†A2iK.âÂîL‰°’…\2-£Ózñ•[X Ÿ5( Ôº–žwlÁ§I¿ÎNöCÎKkR-Öy”ö1°$š„бºÏ¾z¹ƒ½àYbìÒüõvk뤹lœ±’βbw Ì;Y”Ô”µd´c\Èš{׌¼ÑÇ©«ÏëBÂ'~@•!ƒ ´\­ÍÞ›Ð{© ’^1JäycG§'â–UJ‹ÎZŠ¹k7£n®ë0â e‹œ’#:ëo&ÖlXƶ{ÁD é.Úm>Á–»þž’÷–©4Ö}`Ÿæªá©—Åh½ð¢Ç#]ˆÅÝÐ9kÝѶ¼jGìµãaK#¿U`Ž„œD-B}bN\7j·¦Ý,aÛÞ;‰;º¹,BÛ–ìÙjZ,¨ ni•çÃJˆŠzýAŽJ­÷˜(—Ð!y\a‹µFª}ñ Kbn*PF—’òJ®øfãŠþ™^’f™ìw7åµ,l0Éa€¶ ÊÉC&NF,BÄÔ³ôLè.ÙRV3(sfÓªÆYÄš}=q}ñœ»Ö]Y÷¯±`ÕÀ˜à¢j¼¢t0Ýc«’t_3f0 K#¾‚¨àëWYûcö‡ï²ÛÙùA­Ç'× Ó•(%Šv1’梥jbÎÇR¾˜Jk|Iw׈ØÔ8·sês…Óï:=»Œˆ+Ýbr³³÷Šo°*&€ührK:lãh3ñ(“C­ŒË}>1®:U›í&u|Ó\ôÐ4„úô"½†Ç9lægük˜*™§efœeNvUò¼Ój{fÓ¥žÃÆPˆó;¼æýòXq×È^  Éõv§¥ Àh÷‡ì´Xò¿’žùo¯:™¦e„»­jd/ž„XŽy 2²ÞÇsÉ@ùÌ-™)LHXûT^Z ( ŒgCˆ²wGÝ(=ã¯÷PD€F¾±J- }+©i}‹QÞÛΠÉçëª-ë‰I¤Ìà§Û]÷ÅçÛøÝ•–5¶ GŸTsu›º·XPD‚Ù®µ‰§TbW?-ÀvŒKј—ñÝ%âaYU‹pŸå ³»§¥•™à9Sµ'ðÙµ\Âí2ñÞaŸ;ÞãŠÄr”Y•(Ð ü¶¤IAé3â¡6Ð,ËêN¹º<ì• ðçò bôÄÆÇá˜uUõà”ÛËGº0‚QÁ’š-mûçK:ºù™ØðêÁ+¨ƒb‡31­ü˜g666ZQô@̳K4öØïÓ‚¡i§ÝŒ†Îã¾ÓvÃW‰9(½l‚Œl4 —º;w¥ç²VÍ(gðìÅ2J,„'¸ŽÊO´1=Q>"z&öïÍ@Ÿ¬˜jÄœq®Ãáv»[-†YdÖ‹Úhó¥4Ÿ«èŒóÐ9n,'ÏÉÀ:-ÉÁî½"ÈjxFÖlƒÇQÇTjMú\×Ta\ŸÉàµ+¬hà¶'‘gö4MÍVCw)Ó-™|†£–ê½Ù»s-HIpQàÛ.Î?øQXU:YòZOT~rx-B± om®ËVÛCeô£"ZRÂÁ0;ï`»Àt¾Zª‰oF„žI16åËódžž¾º¦ž)¯ñß {ŠY¡w©I¶©”"£¹ô¾¸×…^‚ßrî˜hŸÐ¯J¦Ô(5V¼µgZÑà„Ì÷Ôˆ£…w”-wîä ËÓwšË¹ b.@8 e}Âsy•mý—é–wÌõ·Ådîbg+#áû|«0ÉÒ`>Þ_ ®4a˜å ¸qŸ 11+fp!ÑÊÀÌ]%˜ˆV•)d)_¾‹Hh‚…/I#Þ+,’,\˜bÏÕ§R YHï™…c.+†ëîLåúl³&ýåHE¶4·$•BmFT‹ƒkHs&²Z0\qºçää} gÌü÷”ø2>×p@}Õ¢í¡¹uȤ4b,½> ·\a›AÊ Ä4¬Jç^ŒQHI¤1ÁêéÓ#æ·½ž·S49«Ösw3 Ôp\Ì»£Ø¨0å©®-ïž™€<tàPùr5é¶ìQžPÚ¿|<¢Îû¸Åôµ½¸²$™Ä]çun±ûÄ'W%<¡Ð ³këß~ˆ–¹¶7PDÖNÉròÙ¬îȘy#9EJ´›˜«Ì'//Ê›>ÏŠS@ (¢»#R’†W hYûô?%Rx!œ\dvÄž¶WŸ”Ór)¢ÅÍå‹Çª0loÍ ¥'ˆzAnžó0oa÷¬È;gÄ_ÕaˆLÒ¡N‰AŒR ³]S<êLyå,"bÍuÁ »+w!ÝO‹®ðS>s?ɳ—Ýç™óçy-÷¼?åŸÈéÇf;nS>8v‚ ï˜áñoDúB­q_9Û¡pšÊœ‰¦mͬˆ–(¯¦È ©ÞÜy Äšt¢ý˜®™ŠÑì`·¡"\z˜$‚ö)ü“þùÀ{9v|œì^\nÛþë©ë%ˆ­bÆ&®|á¾­Ðv,Š(òºzŒžŠñQ‡8@¢€èÕ?«H‹ID&¶MŽ—¨gËü“s~^¸1¯j}å¶ä~Õ[ä#ÿ= –ĺ¨ÂÐÒøÒ»nZA.‚)©MÍ&…—axŠ¾ý|Ò È0ê‚cãf'C‰lÀz^±Ä«°Q'>­e—cWÖKÌŠ#Æ}ىȚÑKÀUî zæsxÎë-ù¬Ðöðˆ;‰ÈdÇ7 ¼ \.rìÎMù¬í¢º…)¦U¼LŒ[à«à˜ÃV«}Æ‹zå ‘4´ß6êáôÛ .B"é¼4(à“r I^¤‡…Q棢¨“£MFúL*&FºÍ"«T«™JM£NY1\Ùñíkµôö¬ª+×Àú4þñ1Z”™µKø,z¤‚݉ïv|vð#/ÿþåâKªÙ ÊzE±ƒÇ°ã•·Am‹X"M^6.ËǸȹR aG^I¶J}õïlûZ°¼ðº%ZŒÅ/Mà‚L>æ|t4…Ä]iýC²•êåêJ×¹ä™ÅÂÇ“F´Èj¿X>ú㔕wpjò—é èIÔ·ÜnæÓJµÑøKw­—iýý¥6 £Ëǹmæ lÊDX±™°¥¿÷{ü· –Îz”±¶þ>(÷©Ò‘(À·×çPåApìuƒ ”çïÓl›È‚iš¯SûcôÞŸþî#cÿK­z§³uR¹÷¬Üaûêõ³gÏ:8d;R^êH³“\8Í_òLâùÈ#+>:­ ûzUibqp± !/g¢)ö?›ºÁ­ËwGÙAFDå›ÞÁQvy–áG½c·ƒz—g–EA³_ÁÆWA³eÝN½Æ—XŒoœÓ°Ø…‡ˆÇWpÞlÊNKámµ¶ØرùŨ?þu£­A£)¥R ÐNìlœ8­ÓÄP® *U_W·e<žh¸]+EP°l­¹‰”º}ª`²õðȽH‹H º\ä""NÕ" Õ–•ˆÖ z+ ÈÔÏ“@ Ž|7S(B1£]K³¼È)^w–½;ÏÎ{ÑSÄÚkÜD-Þ Òi›¿4k {Š®(ÞN´Î冘8Z¢öc~€‰ßÁYî"´0<õÒiHQímga­´gžk(Ëv|"1àÄék#Ò•Æm‚a­LÚ4/™q¹iº«BÜn·Û´Pä3jǶlY]“ ˆw”m®>ÜŠyB DÝLDPAëëîOØ‚¶ÇsdϼÒ#=ºNô˜‰"v½„dL¼wÑô#œçÒâMEE6&hkƒq‘ò¦ÅnZK’J—[Ñ Û¼<\ô%ÛÜsBºƒ˜°Px6uvN\ëjæ:zë#JWb¸BieÕüñå1aºÓ«€²@€øKÕ~DÙ£AÊ×ñ7Ëͽ4°•\E+MÑݹÅQ›CKMl-”} ³…3Û®ÀáÂn,½9 .ºn ³ÍáçñvæËÊÙ¬¿tWøïÓxl·ýÓz©úå¶-ü&Jac¾[Gö”­éö!n¦ÉGmþm¤è,j^<²®sàQƒ°\ŒŽwK&â±=¨"ê÷KëDð¢·~m.ÜóhI9:´0az›É8KÐù¾¶Û6´ Á-z±­Í!b»dÄ:î°{b6l¾"uq#’ÔÁU Lý<¼vŽ~£¾£Ù*„Ψžé]|ØÅ­0Éck4Êeû‡KÙøÂdL¢ú:\›f#‡ÀŸš0çü„oÎì‘r­Ÿ,×®c¤ªË¥œ"…6ð2‹ò¦d]R^(<ÛÌ®EMQaYZqTMyûUêy±ÝìÑ”¬]¬Š6K2zê!ž]¼E¼ò§£A\·°I‰µ˜YÒ3®0ŒG* ÆÕë÷†#ÉŽpåÀ– =9ÍáRpçýòÚ½"f¸ƒ³3~σ%¯ò±7åcÇ“VW:ì²2Áû©ËÒ£u&­"‘%ñû?Þ¹Àb5Î.Ý2Òlü;ÙãÁZ‚ÚŠ`ŠGíw–7C˜5ÞÀ‚#ýç¶ÙóøCzÿè¾Hk.‡ÑÚ0Ú¿ÿ.{-«$_Éh¸WÏA9=o'æô(ŒG?×:-ûÖt_FyIE°0:O`~6¹×Zg©¥Î.>ßk§¦åŸ<¸ÌžÅFJsÉÓKÃáBÀžîØÖ¡/Ù"$ñB2Äù2œl„9Røb5Ç:y•œ6&+¦¿ßÉØþ…×Ô‡‰ :mñ ݦe-I‡»¢˜'v ²4M„ óR‚¥(ªo=ÿê•îõ*Þ6^.»ÊÄí?)v ™Ü,§V‚c˜a.î+|ˆS¥C‡ Iý[ù<èM%º”&Z‹rsp¨<Á…òŸ™q´›I¿äÏá`*®ŠÄî={ö#_—A‚ ¬í¦ƒXÉ/Kˆ@èÊ%ƒjUv7¡_Ë„ºcyµÛøNãAº/ÝÈ0°k4Î5ÒeÙ÷°àAC1 ÉO)øágúMuþBÛø0º ᛑÙz½Í¥M‡wå$Ú~sÎDDQQn‚dÁý6k¦#Œ+,GZo%—,qÄ°/KH’žËccþÇž˜ü-òÛ+‘NŽÜ·Zã"]TšÒ°ÆBó”e3Ë&ZŽe³F-Xº/åÈk¹Ò}ÎÃ!œošKÑ–H)B¯é‘ãOF]6<ìñp~Q1™Àd~³íÓË(“¨(/ß{ó×8ËM8WtÌ2NÆ£¤Ö?G$ûÌP*œEWØfi ¹ÝM\.˜KUónÿîzç['û´-_vÿ°¯%ýþ,úÖßÇÙf}šb!W¸védÏÜÿßþ'ÜQšY|%¼«Ú c…äØq":²õ ½ˆp‹ÂDÖÅͺ™¸3-h…Ú)=d<4—÷e­îÜ• „?†[ÓE6-kí‘‘ú—VN™x¢T}‡nµ<hIì¨Nš&µ J`,YÒAÝÃ7ž‰÷-‘Tµ%•££¦%d‹DÑÍp±R ÏÇŸ¯~Xâñ˜U³¡s¿h#ðº?zŸul|ijV[vÇà+…^†§Zt…;0¬ìˆ{O·EÔÓ'K4zb©¸ŠÈâ ¤ùFuÈ-ãÚQëÝ*óä㽇Kà«éÜSѶˆ'H3·\ÍL•ØpK7/ShŠú­­K'XãȉmÑM_ÏÍ5r}«Z)5„ª/Ma°šÀ›}Ûjý£ü-³ÔÍvœÇÙö¿ÉO¦äíéöïܧ¶-õ*áÖ<ý:ºøcÜúƧ¬…ƒ¥E÷jålÒ½mùÂ7SoÑ7´zà»Èìà+gjbÝ]üópé^£6YêŒ #ž²¥=_~¹•å×tWY#!®F[.ÖÈ—4Â¥H8™Ü+æóîmè(ózÏðe¯ãÃVûAki8Ñ–8DFÄ󤸮9(ëÑ(W…IϺ<¼#+6ká çpÔß×cn¤‘©ˆ}ÈÅ…ª™ %IYÜ6`ž—V5|¢ÞØO§ ìʾÓdæMðq1GÑĦtzU΢5ÛÞÛ–¤ŒG¥p­«˜ÂbJ¸f[–b£2‰n–Véç‘h8´Ía’/°Û1à5î ²ã£ÞÙáÑåÑA¼¥£Úbd†µvs'Þ„ôÁÓ#¯A+>¡÷ãÔ‹ÝÞ¥´‰”y„7XLÙÁ'Ây眸HÂî‰òŤ)¸$n£¶³-{Ó?=òe¢6ËVè§ò°è´n• n7Äkµ¬*iÙ¥æ)­; ;¢™gÏ;[Úƒ÷Ú I51°šD ÊëPôÅâ6K‰p—x¬qÒží@æ\Æ+úxÁ ·UˆNðÂð²“{BMÄα¦Þz©cê\†:ôF1“ÎœÝDèÒÀQun¡×“äáñÑò|£èx²ÙGÜÜ\-2Ð)âMRײÐÝ+ H'#±ƒ¡enIÎDݲn y•=8^ý9ínÏ’o ¤¯+NNmNDí¿;<á(\”ߪžo«±ˆ­XT ŽÆÝPÙ¾fºeœ¸ôÛk£™á)óeTëÄ·CÞG1“Ì¥âÕ[ 2&¨ºÈöLß~wðþôlð2­ƒúG}¸ê/s´VD“µ sœiF’üFˆc§ójb_kIøJä$Bµ÷ºª¶ÔÔ" ‚ TmÑi·¸ Í3Ñòªo ´G°ýY“7ÜÒ5aÁ É`Îßa„8Ã7ȯäîŠçaòATœéíêa< ¥€Qµ\ºÿ½u'Êò"ŠR>ˆ—H¶`™ð«•–,kcט%ã1?> B‡/sÉ€éE¶è¸°j±ó¨6üÎ-T>cÖ,- ïk:‹"bª4ê³ö™Çº$õY‹ uåËŒl[ e–ŒAò6òZ–jvûM‹†H˜;ÝÓC>eJâ½w)ÐH¹jÓœW«Åíø¶ú6sî*ôûG ygÛ‡åC?Ð$yôs­I[:š>5óçâ3þ¯!’< ‡;`êz>*ñ…3’*‹ÊØ¿¥¥èÎÈ™Y%o‘¸¤pÒåJl/ÖØlU0­8FÐðÕ΋Ø>c; ;«åÕmE¹y.¡1åCøvž‘UQÅnÈd×K›/”…”ÎÒ(äîo4;ó\ûsàò ×\³1I½,à3Ü‘Žp7)×'iS½dlÐÖÄ·•ˆÄ2Y夹Ø5m}éÓÝ1ác†§^ÆÄ…`0®k¨)·ß­®.iÏÖÆ9/øÁ¸”-ºÆiÑŠ)k<’xÀ鳄é?#rÀø.e±ùÞàõ©ëÐW×µ$N7Ì<ÎüÓþ1'¶±™dáÆeç¸Áa­šH¡¶QÅWMúäƒãÍÔª'Õ½Ó5ö­yúz‹  AVQ –pj@§1¿ÀîqÑIÏ-÷d7z çPp©€v°7Çe­Ý®‘ŒŸçuUž$ßAÂõ¡(8j?1³“GO§]ÀYà—IªÈ$µ$šˆ´5›¸‰Ï!²@:ŒF2U ÎœäÇÎ;øVéYXv•»”[“ª\M9ýµRÔ …aJù¶a¼¬¨¬½—ˆ(·å)’»ÀÁ6Cº$Å׌³ôQhßï+·EÞ©Râ-·¤žÿîw/žÛWãϹBï ö¤9µ„ÎÝ+ZYŠ›Æq“.:ãaqãÚŠSŒ.’þ «,t²Ü˜$¨Î"™·›b‘P¬tãi¾(â´jª—!çGLÒãÍa[pmš.oI»ÇÜ û¶ì,´²Á„h˜áY¼1µ“¢€ÊìžÓAº ða7âVwÂ_‡½Ë³“¾üäâ(üöÍÅч¯Å_¼í..†Î‹è÷ÿttûm±úQ ­n¾ðµšÜÀ°š-Ô3oJ·½K!oŠAœßj%QB`{å«‹aKN‰F¯r]´,Òwó sà;¥4À"f(×B„Úöc Qu¯©âÆ·Oï{VüÒæ+˜g1Úbp‚€2ã*Îâ•ì eµÐ’_kñtÃÄÅTsq#NÊ4ÎÜxÄ© ÂS5f³f8pÂâß³"6¾/[ßm©%SØÎe¤a?d‹å¬¤¾Ô@èÒÑPÖUe4ì(Û̓øÈÎ3>‘Úî°$µ9;ÉÄouËÄW|DŽÈ]upq„ÖÞñ®0‡ƒÅªwœœàߊZXð‡¢\²ÛÕIÚ{óVk#x‚½pó["`}(ÊTRÄ~F¥i—Ü-Ùmµ`^EŠíÑ–_â\ rŒÕá5ö2OۆЂtY[qzKƒ¢ÒÃe€@GÌvæ Jé¥Zó·=:W¨6éD(‰ÈFGu" täËdìïSˆ˜j?vz©z X‹ VhÆ g*¡z)ôËúp‘3¦ÜNÁÛTòwßíGU}¦Cã²ÃÍ‹ÃX£/nÍ%3ÇÈ7Æ_¥¸qîù“)ÿÛÙ³±³¯š>]{,”?iƒZ£(Më¼´ZÊQcÉÇ` ÛUÕÚÕZiƒûU!•7±¡ã¬º}V®upµøv+Œ¦ ¥¨G®Ð—&\¤ „[‹B²²ºµ<¥v ‹H’ðiÞÆöÏÙ÷‚õ&¯•ÖŠ¬Ùš‰nµ\ !)[莖 £\cž$žË'ÂÝ[Ñâ ®dˆ9úä QvªÅº]0<§«|tÇ P\Ëûƒèªeíc#òîu îs`@SS™Tuä ºS»¬oV%¦7f|Ò÷±º  ”ÒŽžÑ„‰ƒǪžI&LNHzA26áäqV09ŠÂd(¹©2ý}>šv«ÅM\ö8E#ÿ”ÖÄ»­¡%o@TœÁ¦Je‘ü­©X›–³ÝpĨ?r-¥>ß"˜³¢“ɸò”u¤å‘ݵ¿¬Û. AîÁ¤ Z¾Öå¹Cëø*â€Zö³²Ž‡±H‘¼xö,s«yTãu”_4b‰ˆ×*,ˆùªºæžùYçð˜X5÷ãl¯õ7ï>å?ûr.êu§E6ÈÚW:½ëYÜ‹UkÛl–“©ÅãX9Ò\o½¶Z 5}4"¹i’+%¾°GYjªÃÏ X/¼¾3J‘V‰@×z2¹Œ‰ÌoKc­òŽÈR 8_¨}âv!"ŽÿÕæûóús3zÕ}½›èÉÍøUýÕä?¯^¾tÿ}þjïå þ{ÿæ÷³ç÷ìëçÏ^½z¶÷â+÷÷½¯žõòï²g¥ûöÏ Ã,û»[îµÏ}®ø« ÈÿFç·“ £$<Ý\þ/^¿Â_uº~(®¯…;ÊêUÖ¾­Wß×Õ8ﺕqWLŠG™ëp¡Ôߺ¾öYÞ/ ¿ ;àþõýÏn ºu=v†qܽÍ ·WùDíiÀ¡[yæ9‘^¿þ1P¸{²‘ƒØTíw¼VvŠhï]þpç²ޢÌÞ­–ËÕ Æý«kÿúþvµì^—ÛÖ OYMÜ$îF9Ürv–9j9ÙÅê¬M–gÈ¿ !¸t¥»©3nJîÜk#ñо¾Ç)0ç÷îe×Í:DȯCçVD9În šÇ4;C"w¹,½ÇÕ‰ ô¶&ÄlK÷·•"CÝâÖ¿}³¨œ±¨Ü4Ýy½jìÛÞÏD!³ôˆ[é!såªÙÎÌFWÛ©º(4uÎ]d7¾ÿCu;“~”t¦:²çÿt ©‚Ám^E•Åit¶Þ[=QoIûoeþ–aØF§,yjÿ;@AÔHXß’ösóíE‹©Å#·\†b‚RÌŽŽf ¯TѦÿÕÎßþ|îÏzü/¾æ_óŸÿ_|ýbïù«¿Û{öò«_}ýê™ üÝ/÷¾zö·øÿ?ãOP«—2–‘Nu8“X,³hÜjƒ¾Ðª4RE^'Õ¸dÓ 2ë÷Úøej@ÔŸO&€³)‚"÷§‹M-ú¥°H¨GB;OýARá'µZ{Ýâûn$¬öIe}bM{%Ö>æ »u­*L\žœçÔàPi¾ð‹ûù´¬u&n ]îèÈ€šVv³XZ+½ƒ&H· Ÿ3£„%jž¶YXÜbTfëÇ ºŒ°ÙTðbÝ”ìE÷«ìCÿòÝÙûK¾ÂΙ>N“¨\»ŸÈI Oè5„)gM™ž|ln`ß«=jšÈ7’OW5ÕËdÅòQ¤-Âì½äì!EU‹0_ÌèH‘Ó˭ÙÄÀS19 TX‚~:uØ”½_¬ä¿v_?ãZ1éer±…äEƒírÎA³b×máXè/L&AN©ŠàP¥¨Ï<Çx;£«Ï³­Èc¾'³G­µ÷ô ±ñ´Y3r Ç» ú(„z°÷Ì.$ez¹X7ý¯’Ñ‘4*Sª6ùZ¥1i _> bxK5B™L˜Ö.½Õke²ÒÙ«ôx¢) '­M?|í´úÂùŽ¢zßxÞ}–y-ܱUNAì³{•p fÕ¢à…È1ðií1á‡\läÒ4RWÃF:7ÐH·'¹p#ʼµ‚933‹â>Ÿ¢uœ©¢¦ÊœG'³Œ4N˜Š“.æMl±›m0WòMY]*PÖÊ„>w7¢Ïm¬ÔºR{ÇÇCÒYôÏ.†çgüë Z©Üž\ëKô¤ì½“y µalß3Ó¨› ïÅ4=¶.LèŽM…97øÄ>¬‘£í ß{öì¿l"æ…^ ÖàzÃÛ~¬ìŠýübôÄ¿š¢\>­&lN7™NžÀ%Á»S]ïxn ÓïàlÔ]©„·ÌÀ°ïEˆŒ®¥ü¯†RY«Ø£v+Í}^ÛKzú›²t~í[™¸@ÝÖœÎXH-¾pK´2Áå<É>/Ür…?P*En& ºÜU<Ëièf’ËÅDçðñýÎNj6+F*Ü7Ô«u8ó)—& úìŽí&+ïÖì#Ìd)pNßeØÊ`=n¤I68îer ‘Üs7R¦îpêŸ^ô{zª§­!ÄApj»éb¼Ô-°™ºŠõK¥.rÇÝUG>í®{ÌÖi¯ ”mãœ5­åjFópQ&NI×r»åÖáÞó×îÃÕB—…{ ;¤$Oפ§w?•fTÆûd1ÉË¿ÔÍ'MŠÙÍò6qkvF'¸óíשûä{Þu{x&˜,CzaµYfK1íÒ~m·¦G kz.PÎœn6沋»!¶ÀÏBðÂ4µv²IÐ}ê%'?Z> ‘W›3êh߬-“jÅäø ú̇ ÷‘D©®Ta˜ ‘K+Ó îew¯»÷~OhdÜÓæ /‡ÅãïÊH48EaF×(Ù`wö…Òw}mõÙUx¡ êyàÛð0çâS¹lïa»¿áâ†[q ¬-Ï-&ï,ÔÖÕ-RG±Î•o´Ò®3r+GŠ£—–ôR†Še´-LW¸ .ê…²fjß~ÃâÙ¤Ö`«FÔ“[AV)`ëK¯¥ÂÏÖ¹4™Â-1Ϫ4Gs8pÎq–¢M±U¼g¤5få… jt×Åx¶ÝÍÍVØtuŽ¯¸§LçùÚ…ˆC¾¥Ó(nTš^2/»ÕV‡w×v'¥~]v‚r}âÁø;R CÄm9ß`ø,ÀSÊChhgªÜkÍr˜þ :%º+Ä„»¸Z;QÔ•¬™z[ ,Œ¶¸ 4⢇ۗÌp«÷`ŽH2£Â쵤!o@#¹jv®ÐøBDÖJn{A©uéí¿á6>ßß¼àa¡tÊp ¦m–Bº=Œs¸0H,‚A?TŠ+ Ð_=ñ ®ò“Æ!.¢†æ¥ˆ1øÔ»‘Šøë¾ Z~¥Ûr§PžëšEÖ„q«AÞ†‰™{T:³bh÷Ã÷N„rV3´àS{{ 4{Ãm› “cõFsºäBpæáäá1šŸçº”)8ñæµ ”üi¹€¼Os„²aÏ6»17ÝíªºYItá§F†ÿòÙ7¯Ôy”+y6†1xî³,u!óŠÙ’\Ê/ ‡^FC§p£˜äq–’|˜`ZnÿtOH´ÁÜ•Px‚,dñe,-;†ôB ‘õN™VF“QÆ â>eè?Åk8XF3 Ïj{‹Æ½ªµ7>µáváÃ\ÀºÐeÇ×ظG¹ØbÑ„Ž{d6F¸ý¦7¸ô¢Oò‘F³’¼És¹?gÅ}d±O½zW¹Õ"Púv)øðrÚk\yK”JꚎ4´³'¨Í7 y)Û³å%T3U‚ãiónÿøGH[dÿðöó:ÒÆ6?Ð4ï8ŠsúŽâêePØSå$=*ÜýÿxÚ;é Ïz‡ýÓ·A9´ÚÑ£‘¯°q3tTkˆWÒ80 ²®½n¼fyíZÅÞ˜¨fJ¯¿¨§)ùÈ[oÇ­ÕÍŒ£rkímé§BÁl‡ Ü58úô_t?þóv†%ºº±Éì3a š*Mt©@=§=¼eí"&85Ý5.Ì[<¿·!^Å0äL‘÷u(±›6Bè¿þ1S²lÖ‚×¥½ÕY‰Ë4QM˜éu¤L#ÏF‘ ß)†q]ì¬úCÅ'g;–ÆÌ~)» 3 Cô"Fd W,Æ[Þ0(øX̃MåÚR÷_ŸþEÿãWáÃqNéèä£~ˆaq.Dp2ʪ¶‚¹~…ƒé:õt‰i^3g§¢ ¼n´Ì&¾‰®b¹’q†úº§®LF6ÏCÀŽ¶q3¾L”¸'p®Vx¼¯¿Ý¼Æ2€\5q©z9~;˜«<''Eãð¥êLŒ­m¾(Î%ÆJÉx½ì>ûvãà[g PQ¯áHY«?ý]AØ/ ýg<ÅpÍ–CIˆ7®†¼M(]‡VJ#ðí¢š Ž5.ÍûÖÛaýَ̪=òC9{!IIþm`ï‡O·ß.Vc\qòرrôu»¸Ô²(…êQ1#Kã¶{KPê0çXNÈЂÍTÕÉ-(Y¸7½Kýz`ZxËù^õ5i.ç$°œë)wþ·&Õ¸aè„Å\ÄîÜ™…jõ­±ûZ4†œ_£Âºœ€°ÆT4¶ÂÓ°Ç_G;x š¥ÇÀ 7¢;,!¶‰rôz4Û§T€ÑFD\{ uQxcz éÂÝا¼ZÂme!³ÁÕ9FwÄÞŠÀz7>×u) 3dü–0Ǥp1*ö‰È’PßQ CuP¤±œªo4ž´ö…b2Ùqðº¤H2cîêJ”ña¡u6«ƒ·Gþ Nb!Eój!uo›HÉP¸]¾¨”Sœ^’*‚±Œì\xåŸ*}¤dIr ˆ•×âäÈÒÕ8EEØÌØëÙ§9/Ë·\:_cõZä£Az¹œÊ?ˆãù]†’á5í˜l\,Ž¨Që”@n?Ä–d1Ñl­±0–Ë_Óò‹íþͺ§º.œ—4–ø{Öwè~ UZ©‡º§9õlaYD#>¤¢n‘ß‹â± .ϪÝਹ޼·F„"ŒjàBÌ¢%Ï\Órˆû %²Ðk Bam+³m¥U VS<òG&É{M\zäìð­îSïc£Ýnl 7°þ`´Ð:ù<ÛÆDQXPÀÕjɳ¥‡óGÆ\¤gîÊ‚MDv9jÑ„‘eŒ‡uN#à“Þ³ý }ì.A0|pÜ?:½èN7;óÚDu+3=IwƒG½Œ„}ë™nYN ÜHŠÛ¾<¬nž:ŒŽ€¡©(<<·rD7B ñÑ~63Ng‡CLü†Ì1áRÖî7Ö+V3"ø \½êq+ïª Ö­«w)[][D˜Jy|¥>¹`NŠÃâØÑÿ;—,„q©þüõ®|(UýÉ"Ržfa{›ÚÔÍm±SCž†|dïûéÙ¬®—p© "E¤+Ä,eyÚÍI©h3€ùÈ]oˆ‡Êi–2F&×dHŸÁFèKÃA “Ý)ÂE±da`%°_ÜF\×aµPCFiÍÔAß`jr­¢‡?IVOÔ3Ü‚zE¥,š…µt”ˆ’–ŽþƆeF¿aHHþU4œ¤ÔÚ/©¯²ÍœT6Z ðå·xö4ˆ ŒnÕ,2RÓ ŽlÑ5|Þ=ÂO뎇ÓɨË$ç]º3±×ÿÈj„ç’‚b Y×JìèÂ÷¾Ê9: é¾>4o$Aôsø,~c[ÄŽÿ,’”E¼©!øÂÖ?³½iì"´qA¹ cnά¡1‚ØÌ´íÝDÁ#¥ü¼™ÕŒ6úJÙøê£mŠÓBæ‹Gð®Ôhqäù:æöL!"äï^_¾Ùh:—dÑ-w,获mÙJó¼´Cîl mjVàA Ð?A¡ÀbÁíZPÕºä‘(v2ƒ<)XÖ°Ç<ËÝçÙO{Ýg˜=ãj$ ˾C=že¶…îúq»GК¥š|³ân¤þbƒÝLxBµeTþÏk¡ªýã†óÐ~rÃà°’|¼ÁrB©KD’#ÀÉbX¯ê9Ù´"‡WœQ šˆ¸œ{ÔPjæÐää¡eP%ÝLvQÿUI, qdQ:o†®\ŒVSø¯#ën—¥fÁ®µj Æõ, 'D;ÚNᾧ26Ü×¢~ÖQ6.‰+u‘NÓ:Üh¾Â ñ9ú%’ÖSš#D˜Þ)ª³n7:§¤…qC©=éŠì|‹Ý‘ QàŠ²ƒ¾üRs¦©&:ÆöŠ¼’ìÔÍ—_JràUýë™@UXh‘[û¤`¤­…'·á¿zÉ9N±üë&Æ “QF` xŽ¤0`bènðüßšíín8õ…q¯yø'Ÿ´ó4j l<‡œ-¨p´q:DLRQ¡Ö˜ik€ÔdÛÐk¸ Ûð‘¡frt—ÙÒ5XEš'µo°€xh®ñ’÷è0‡½ËÞà²wq3 §ÕkmçÐÈ ÏöðÈ{¯~dfaä=ëH@ª ÜÕŸ»¯¾zù£æTI[àM«ZŽv°]6wtç³\Žözê-™t2ò ßBÛ[O,ŸÕÜ-M<Ë9±¹rn0¡ÏCáSPCaÚÉ›°{‡[6-ª°®Ó«6ÎF+ #ô?!›Ÿ:ÕB3ÕÂM&W?A8wÒþgút¶ÑÚð€M Œc90M™ÒÒ1žüÝ€/ËÒïÍ«G†_Ÿlî QìÎ'·Iæ˜Sž >ƒð"cžB›>¦ô¤>È.úƒƒªv#ûÕ^ü°…Ú[–§ÕÕêquçsyçVh)1Ì º^> ˜ò´7=Ò¨;“nöCîüÙ`ãÞÏ{ë–ÜÌ]øÓÏù¤wà ‰{ìÓ8´ð¨6ìbäÀÑ%‡‚¤Ÿˆ%\’¦¤IÜ® X› ƒ‡ÅÇ —ÁÆ8B()ÀÖURÐþÔøU¹NuÿZç—ÃÞáaÇþNV,ÝxJýy.±ožóí\CÖHp[îEߟ:8|<‘5’·(Fµ,º ‚Ó*"ïÞ?usJn°ÅdA*ôŠÝ f©4ã ´à}sT&Ï¡xPí« zZBE-O¦íCæjiû¶@]\Ä¥¶2Ó궱¤8ið½5BüŠ±ÔrCÖ¸9¸@j‡q÷¶ƒÁ£GêÕ¡yä¤øqê"ç‡Ùz›˜O¼Ñ誎\VC¦ðÀºëœ0çN>™ ˆP,H]K‰ôëegð€eÒržÝÎáÙ9ä}\|pzôaØ»¸èýÑ«Ó‡a|%qƒb¥!kÙÒî²–G6êÊO:Íñ¡ìµ¬±Óø+QÄÞ¢èK“jÐ剆5Iy6[®rĪ5í߯\̹woÿàÑ,ØÍe="KAû4R š;k¬ôyå!ÚÄv- Iìe̶êÅȹn[;æ9yÞw>…hPÝͺ²\uN(cì²ûRxíÙa¤]b’ÆŒ ú¡zu%uK¥Èaý‡r5È^æ„|voµ¶ÉR—|“ÛŸ{Æ)©Sˆ’÷9Õ}7Ü΀ø”'¥L*áð'dCo$À¢‹«yÖ2ÎùbV|Á¿¿&ÓeàIl #xUñc¨Ê'0Tm÷8 |ç Žrçû=ýÀÊÙóô2AõÙF‡TfÜ:_×Mø=¯3 áû̺X×L½ø¶•¹…68õ.†g‡GbO¢TDÃâ|wî.“E ëH)‡ïoD2$+èâòQ"0~'JhKùښϒ<‡ð¬îW+‡¶§Wò·ïïgîeÊ+¡ÍÜæÞ«iÖX½wzú‚Q}”Å3RýF•²&‘E·š¯w6ƒõ™sÕ¾Õ³ØÓ@G¢X)Žáj,Ýi{±/:˜ îžÔD| ‡ÑwzÐUõµ‘¡&|¡ ß%þÓóÔhé^à`„¶'ÊÁ×¢SZ5Î ÉÇÆÑ|ÅSÅ iÔøy=Éoh‚dƒzÍ…(½o<“þz^Á¨R]//á s'„Bßè‚~’³ï¿¯€A §µû  dXhU‹ã`8«f°ÿp Ña©#.¦­9ȯ‰ØÍþhÆìd¦YûçŸGßÿ,ĦXÑ W,]dò) VøkÒ x1³OâŽ)~A „Pƒ8?:â€D4H53' œPûŽä7˜  ÷RŠæbägyy¯ÇlD!]Ñ«ÁÔΠ“é¾´\¢¦\h×Íâ>ôfÜÊÊ:‰PHc·4ïž, &ói,C2Œ¡ßYVƒÀja^¨m"ùDëšÅ'0Ø“ô²mÓÜ»ŒMv-»‡âí;©nü÷ ô*j\ Lgß’¯9>íÆ‚‰ËpȀǭʮjzrÕÃ]Š´X¡cLE2¢Þ M;–cåëro€os¶=;‡ƒZµ Œe¡ð¶nq5R8ïm¹âFz[Te™X…Eº­÷9ßÁdÚÑL”×>’rŸúqåNßl°(ï°g¹åyòLÕâhÜb¢#é͘ cÍS4š8U¾] ˜ÙÒd®_4Ê€ÊÜúÑ£¤§iH7-˜Ëí0™´Û±oŒ¯îW‹‰@ÿ6’¾†¡åST1™)k éHËí|ÃÜÞMWEÄžWÎg3ˆ‰` V3ðš2”À}"4S÷ó8Òl ×Vˆi&ÁÀ‡ÞÅ©ZžbF0N¼]F8¯B?^{G!ðŒuo½âÛÄkiO6ÝJÑçv—éϤO?æÎU¬˜Š=%‚S]2ñÏNφ罋ÞÉÀ²ÐŠ}ô?—´[f·‚ž‡÷Í4…^3änàfCæCéŽ-¡ 4ÇÒ¡Šx|ÐEÌÙÍ,„/^’`×ý÷û9?84#ìo‡‹ø,×”gË÷3 æpýÕlŠSÉcߥC3º¸âò7E·?ÉqB§D#ænüHb[},ÔLen|FkÉ’¢ØAR/œ®RScš³ ¸8:ì_\ª˜ò†¢çËoÃSrIÉû ê—Â7½Æ:"²´<ÓxÊzÇçïzJÛý¼7¹ñ.Š¤àÛ>ŠÂ¹xfíŸõ§ß3dp–{ù¹2 qÇÞÛƒ€¢89¿8»Ä@ýt¸/ÏÍ|cÖ–鿦“¬ŒýÅjVeïòRšTpý‰ä•¥tœà¬!·ê÷–J¸_—7¨Öj†^Ì švñ›b~ùw€X£ù7~‹«§ÊïÂÞ¬6"ñ|ŽÇ;hQ˜„g±~óU7Û¬÷*¬­³ªšóø®Bm©ëó %MŽë!C%Bãö¯±sxÜ»x{Ê¥7ý·ÑvqÑív7ã0]ìh‰#TÀcí>»tmû¼ú¶v}] vYJ²“Ü3§2ŒÀωYÙÐ Mf–j¶‘\À UÜ»‘ÅЉ’¨oc)]¼$¹¼4 kPÛ6W5¢'a$I}fR_œ5\E&N“Ó´I›Ÿ‰•J’jµº%5E’sãa’Dþ|´ð1¿¢äÄõ”³7Ýã¥Ob>|OZYEDhÙgMrŒÔ–צcÌK¬OS¥=Œ'N"G†¾{“ÊroiT#ëýdð¡úây²xÝùHÈ[pÕG¯¦óÄî;›®½ŸB¼°( ‹áø7êfÙ—x¹5“íï(­ô»'¯@ÑßtA…$}9Wj_»¿×ß;_±, ˜StëÊÅ0‰H×µÕ׌.NPno"¶Å˜g±¡+˵`ÝÖì¸'ìA )“›\%}l >““ò»;@Æõ÷s„×Ëníü·÷ÃQ⦨YõRC…Ù9ÃÌÊx¡Þ8:‡îàƒ!²" m=óÕ·alÅÚ¿Ùèßg½Å¢¼©²ËE¹šüRf¿ÏùïïË‘ˆžèxzö<¢”Çë„Žº¢½¶¾á F]‡Œ¬FŠ¯‘êM3I#à¡€‹ÓfCôJœæo&M'KÑ7N”™¢örí°æ€Üæi wÓ$º‡÷6,)³‰E+.–R1©‹P¥^DßFšWK3-|'Èùö³í”\-Ú»T`ø©J.êC0»nÚ•žrÆERV“?¦ ø êÛr‚®'Áênxx•¥49‡¨‡•–ÃQEða“Ï8M½Ȭ—Ô2FÖ° ¢QQƒ_·qz|ñÝw_Ða y/æ< Θ„œ³ý&ð¸b'XÊ»´,QtSÕžx<ïìÑ'¶jü¸5¼°Øp6:¸ª¬Áp(Æî8 )ì¡8‚k?² ®flcRÿxxÜ?é_²hë.´ð *¸|½ÒèÅ\°0‡š¬®Ï¸%Ç‹Ä:gò<_9q‘»éo¾ÁI±\ LrWïâ`Aúñ‰œþj-2oBŽ³f¿äJéaTó!Í÷©ç 0:‚q\ø íJVB‘åjùœLQ⃵ Œ“G7IäQóˆp¶Ù¨Ig¼•LwÓáéLHôÜ´!ú’ì6€Ë½¸É­Ì»%²i®'Õ|þ¸å.°æ¾ú¶qU9`ídb Þü8x2ˆ‘ö}7ëHÜÊFÅ‹Áº†z¸°CTQךBS³ºÉU·® t-‚#Ëm§É¸Û<ÖÖä rØ"BP_6Ý}ÝJ¤çqòL8BÝP–÷"•ÈÖ¾HëAË „m¯ç¢¾þ6)òd[â©-·¤:ª/>…¦‘®¸¹ ’Þ•RÝHðŸî9=„.â˜\{€×¸?1—Íó**É©,BÖ׆¢ ºB¿± àËU ò¿uô¯ˆTž2eMÅLE¸˜J²$*÷ÓÖIÖXé V•õ3««ÍëZ“m~ VQ†Q|Ó´3÷Á¤âh•æŠx `N ý¸,o~Ô´…–çÛF°YÅcÒ ¹J|ŸC‘¿ÌgÒº*<Õq‹º¡×hZ+¸Auɦ9Ê}ónì‹ùú\´H…ÉL‡G{™»²&ª/¿a(ÙÄâµÊ„BZ`§Wq ½’2cúøLþ0ebu›é&]Ÿ’ÖÚþ+‚ÅÉ(ñ=34b'ª#5s§nòdb¾ˆé±73F´xß*ñƒ õäV6É´x¤Ê1ŶÝ`œŽN>Oz?½éIcÄ5«wxvߞ¾(Ð7‘Þc­­Skc!¾ Óó›ÊoÓ—Ýo¾Máòq^ùNYO빜YÄ(å6ö6ùU“ðgÍ¥¥"‚{ÙÝ{Æç»È#”Vû6¤× ›R‡Øœ€“C>.ŠÅL¥Ú+®ž‚¾¾ŽY’I̵ Y&ß­Y34 ¾N‹=ƒÚù™lw5/ü’¤{MòrŠ@j¢k]V}ô[4©.J:'–6™Aª'£ùEž¯éŠL#%ÇÃcC ÊÆ"M¬Üm4QÞ4p¡Ï[b VçI±§‚\Šü”²)J/AÜ üá&éýÄy¿šÛ×þƒ€¼ÿj;q†—Bºã³(¡s»LXWRV£ÄÝ;à|àïµTƒš2…C¸ªÈþËͼQ£—ÄÒS!­¸àÈ—yI3a•‰9ÜtÙÂåIJ“8£Y`kìb“†Î2ç5á½aÑR䳘/t'a‡V²w ÂëÎî« ì/‘™–ÿ«Anç6¡TN”²æº èK‹ˆ‘ÅÈxšë0Y~M°Fÿ¡rF –9~n¸]gVG«:. gZp¥Z7 =tþ€Âí®w1~E:þøƒÝ µ¡ l€á`8È©¼íÏʇ€È‘‹®ª/ß+-Ý0&™Õ¤ñ…´õ}|ülÊ£-í(\tìŸIJ¹=QדU‰®íL{$ýpÅ4¹º-¹ÚPO´º6ü¼º&‹æq/þ H/–Lá¨ÒàÜ*£’^L@4_ÍIº•0‘¢!‡rÔ²¡ÏÌhÚ Å¡¯x3(ê}EÊLÊÊĉ ½aÖœÝ Ú,%}<:xï"×󣋓þ`Ð?;AH&+×6œåÊGK=Û—OQ\Û¬/ÊO‰‚Žþ¼ÒÞ%k¾‰‹Ên7P^£VëŒìÉgÂd5Oó¹=»pT¨‹ë6Z³C?mÌÇ£¾ÒÏ=½;oÆ4?ÎÜ~éìöýïïÜ¿–÷ß»S¢»*«î¬Ò}tùö…q ÚêÔ[Ɉ‰l¤*0p¬®%^ ¾ã ÛÊ¥(²õQ5÷Ü9Än÷\<ŽËYHô'‰iÊ9{£K#zP¯7-bÓ_$ñþrðÒIrVõ(B»¼øúÙ‘ôAìî‰`2¥õhòÓu³(ìÑÐü´Xô«¡x¢P¿D/)Ó ™ÑÊHúŒlÞ,7¡ÓCŽÆˆÛS4.¢â¿»Ãô€à_Jr"g· «ÁgÈgq^m. Œdßž¾×%¡’ºrÁ¸U#,WqÊÆeÈïózù8IiœÂéõtJÕ9Q”% k%*]H‚ÙîРÔòÎMe_¾?¥‡÷,& p˜t Æùì{®Þv-kÙt‰Yè ¢*,ŠEæ0 Ø|LTxäo%\Ig_"´t—yÈÞ¸P~O4RkBÎSÙÈC\½í..†oú§½ãþŸŽ.²X)A½J´…JÈ@æ¡ kΙ—ðR[úäH†=ÄÖ)npÓ•ùJGOoG‹ÌQgÔ*ã"_£oÊ~m×ÄCçN­rÚX¼QŠÐ[mËQ17BôŒäXÕÔÀ-ð¤À*1¨B¥– `”‡Kß ¨"Æ°æðù–Ôžò:Pyľlp(ó¬s—Vµ1£†MmêÇ2¯îV3çq¬œñ†ˆTæíŸwŸíEçŸs¯t.cúƒ¹˜V\·ÛíÏY؆S‰ªO¢læݧu«d²º·›1šÞnâz)ÇVWì#5PiàjªŸX›Í,!!·«««Ïç£ÉX+¤Ë¨†“<ÀG´Ø}£»aÍú5}aÃŽŽFiô”Pöjˆ„|#0I¥ˆ³›ÌO„âñ¹ñ#j ä%ÂÝìÕË+öµ&0Ë(A±·e(Ž&×âÌ5¬ÍãLuʺ¿VdT«Zå<åçÊDµzz»À¦C&&öíä1é?È*祫u¹Sê&bk°ÌôíÆ‚±™lz,2[h‹À8oEv~°šiòzpð²û¬ãî$I¿Ô®l]UÕdKª¼|ì'íT‘*ÑL›ëé rYNãû˜9”%ZMËß ©Ñ¢‚4xIÖ[Ä?Uq =›zé‡;%m,ÝÄ<'l}> •×‰ÛˆKþXÌ~vk-»ÌÝJ÷fRxŠU¡¼–ÃþÓšêÙ³NH«%JÓQþA=bL„®@xienDG§Ãòº«k@=”ĉe6´¼+IžP~úŒ —ùͬª=ü]j$ V3íH‚ ú‚Í•£¯œq_¡³ š›Ù8Ýã,_ƒÂ/Ñd\ ¡•ÑÇȨ™ ÁyÑ€Pyn-/4Kj‚ÞžŸGmxŸq%­’0öY˜+@ePîN7%[0ü¸KSCË°]ä¾kÓpRÍl3öÈvµù’7Kmø ý>Ú«É\öfA%®ÏXOJXØÐBæ'ŒjƒûDZSqhUÃy” eÖ ˆ!Ï`½v‘¹dyU ØPååaŠË ‡ƒËÃá°Ë„ Šà\ô;ñ:7Êý•c%‡Å,hx[º?–Uqïò“|ÝSŠÄ2¼†´â®ô¾½:"¢: ÷­@òXxÜÏž^Vä üãw¸2Hxå‘BZ»´|÷¬›Å®uSƒC2µEXŸ÷êq­h cOÇLîoþ;‡ÈG™;C-óH{"þX¬Õ§L˜1¦*Y°n-(!T"›—]´dnzàÆÝðÛÏoÝa;ŸÙ_Îõ,F 9zû“†°W‰˜ƒL¹žIòBæqÍlj x˜ß»OŸ;o¨˜Õ±‹•{…À¦3ˆ!F×î&{ÇËñÁíŠÞÅÐòRɵœ l2$¼kDÁß¹×ÜÙb‰šY ?-‡ú“¸%Âõal=ZGÜ‘çݽîÇîßÿ*à*>FŶ .{?îŸ]^žp;Š+õÃ;P™ˆzÌ~$ÆÑÍ<ÿâFBÁxÖ£ŒÌ•Â¬y^!ÒS˜öñÉ° ëq¦>²¼f%̹D3­fÅàÚ -§måͺñDÿ£5/ÿ^HÔѯ=öÚyo7êEÄC:DvD4ÒE /9_|_# Qk,ÄCöö¢D¨RÀÇ*Ê#ÈIÀYט·¾+³bRÇ, Á¡‹éˆëÁ"'.É ‰F≷$¿Ä¯ØL´—e¾¸ÂŸQ}v` ‡Ô­{¸K™–†'OìŸø’}¹ÖŸ‡±alGW¹(Åà1C±¶Cy°ùR›§Ñ\ƒºËCž7r~50Á nДZ¸·à{Šwá9~4¬WÎñz9D&»³Ž³¹Îÿ¢ŽEE·‰*^ÒÑå^Kr(4ŽF1””à"¸x†Î*:M“›Êù·S_ì¾5Ô¸8³<«®VA}Ë dzÊ;¼Ãt§ÅâŽKbw9¨ |‘p†ú”åB6)ø0˜3ÒZ ùý¬–ÅÈ@ª"ÂD:‚®s JÄõˆëOƒò—µ{ýÛOÆrA_›&n(6n —ÊV£¥[¦éÙÐ4Ÿ_ÔÆ»(h¬ƒîáVµ´‡„ª(Ï̵!Qiƒ¨¥:®âg '¤ÃýŠÒ‚ϹIE¿ÄNNzçq¾(Pþv|Š¡÷U£J ×GÄ÷£P»1òåñX‹j"QÒl%’¼~N¶X_ÑÒ–ªéòžzÍ=}ÑWbæÈ“JÕ=’`Á,–¬Y"Iá5uEŽÚH>Y¡íèRœÙs' !n„l†Ž£——)U$ÐÄ ¬³÷ƒ£!‡¹!šaV/ g~F–_`òkjìÂvŠÅy\8ƒ3«¿ˆ¸¢=×tÆd¢dýnÝß´$ý4?EK§øìðøX-RèÃú÷n/ÿÔÍ ÷èÕ=n ´ÜÀ…‚·þøúUü÷•ó=ÕËÜ}îÈ.ùbÎ2Ÿ0<›™rçj±¬Rîm»>—t³ÛÅÛƒL@Ó©H£haÀ.û¦¬%ç jÑVrzTNó%6¬tú^ž(Àeáa’’ÖC¥ˆñEb’ºånç¬H=­å’qÈ3ÊéÚ¢mãqNëy‚º9¯Y[¢:ÈŠu: 9ñƒ>ì¸M´rfú0ÖOdq,E?<;ôN×ñâÅ¢Ñ(!ù)nÜž*Š F÷Óá3âbx± ê1mÑ£ )’7¾¹Á¸¶bnáæ øSœ*¡4ÂÁS¹©ˆ\@6dvÃö€“•LË\ŽC2K[+£2JÛã»sYo']&—Î%™\go*÷TË"æ—1†ðx$›• ·.¯¯U,B»V5àÅšU‘BÊ"›Ü„„_… zô¸¥Â¼›‘ÊRÁ¾”N•jžz@Ê >ú®ÒAYü=ѺR&J$ŠoZ&V—²°»QÕ¥Ñåj7¨¼m-ƒ@Ù×qˆ+áË:ºè¢¿swøªûLÀE¡à çå~é¦÷ äYŒ$ ²aäßgp¯€ ¹S²ønv7ÄE" ó Fʲ¿½«4SÈW TŒmîêÎgwý^‚ÈUÿ% ½šU•MÐ.u ´Imö.Yf`Úu²iöûìUz4Nwü³ápó‘6ý舊¨7sNs!–h¹ ÓÕ&/åà,;s>Ü=1ÏùEÿôr¸ ì¸?¸Œœ’€ †Ð“ ÚÜO()#Hûë|"h²„ÀÔŽmÅp^â–¡»¢˜kÕÚ—dÍ1ÕdRgcCáB‰nÊ{IK"›ªŠ<"ò$m€I²Zê ýKÆV“ß4è\×Bý1T룃,Ĥ£&†L-DTðEu¹$͈éÊ¥ŒWlë6rP07×ÕâàoÅñ°õ¥±5ˆœ<ë…³@GÊ£t?y7‰ d, u;ÄjI(uQ´:$/’‘—eù¶úyãV÷¸^¶;ÑvÎ êZb$Þ§ñÍ^6ìí ëA«…CŽþpìÖR-/öB› ÜÚ°N¼µ|¢./d7ì».òz%‰M¶ªe‘.ìM”)»v‹ ©3.‰€…È©¦+Õ÷ !8êÑʹ|tcµsX=ŒÍËÛ Ô¼½~Éæ*üJ>s­ ÃÀ¬}z“ƒ[¤’\páŽcwn8+îo&ÑÔ²ü-L‘3Qnƒ»8Å–ÊîeµÆïÓŒáÀ.‰Aþ÷ìn2Ô¡’äQ©O#Ì©X.ŒH’—(î”v†ø‰Þå‘æÖ"H¼L°¾àŠ»öaÍÛ>r® Ô*%t‹o+-ôœc…*e%‚‘:²¸¦H‡Š:Ê"oÆwùIžLVIN·½¿dȌ̖ÔêÙx‰Þ¬(»•g^îÓ”îÞNÜÉäf~vçkXÛ&kـϥø²k•qŒ1²™va¾‹¼ÔË_4Df,-"k–Qhö{FlÚ¼¨æ“”÷dz”oÿ2:áð[*ô,M°vlµ²ihc— ióusðE´Õôlm]ç‹ìfR]¹Ss+šE·â®®fº¤ÁÐXk¦YMðˆk;‘Õ>Ά@Æ}ö$"S«åNu½£EDïÞG¦¾C§G»©™U'`U•Ô‰ÜÖþ”nŽª¬X$bŽ‘ˆé4 Âɉ^'@Ñ¿ÖÎj¦µ¬œ˜¨a(%”ÁB¤PbE¨±Fe$ c T/›²;/¢cÇòM曀â ‰=„Ýûñæ¡œ%‘ÚjX°]XøÀßÍë©Xá˜=’¬ÿü–À¿§ÃßP6ºáÌ RŸ/#§ãfþœFÉQª<.všÖZM—…¦.»Üï½ÒMÜ? Ü´wY`v+&#ù„ùn‰©ðšˆ;i­^wn½. ë³à1í;0IîžnÝìëî ‚ÄÂÉØqwïé^4;YAÕr„ó  ð<¬NZ¯‹ ÕNåƽ·ßÏÚÜZqŒÿ‡(¯/c" Çíp¾\X‹‹4Ÿyi%éOåë dPŽÿtº}û-Ɖyb¯•dÅ-°J6>SÓtf.ÜT–ÙŪºu[bfàa^r³´n[ªm†Á«üºó³Ø©±ÁŒÆÆ»;ÆôA|‘Ì2)¿Büê…Ö¨=“àN ç‹BkÎnpà<,œI2ëbAݯÝiz…2 6Òå;Â`‰Ë*Ô¥UÍDF û|œ®¤4ïó›•p´³Ùh qÝɈ_Ì(¬K°(ZíÑ<%>K¥y+::¿eI'ÐÆ?€.¤zfpLQ4F4ß9 ½5ÆõÎçã,~“ŒÞ¤¸çŽÑ‘ž'mqgD 2Är©ErÝKÈZ\‘p«Øô¸—ûžb±ð€Š……ôAeÝ4cÉhD@‡³Ñ²¢$â T²óé°˜éli&èŠYæ.„„SNÉæ"O"gã°i4©mÚâOQ^Y÷¸‘ÕDêç:e¤Ã ûÒL¥¤|ØM&+Þ·Ç/â¦ùMÊ>¦‰ 1²—EhÌÜ"™…`qULÒ²²å}Õsíì”æµ`¶^JbDlaìúR ëÁ*Gø7µÿ½üq[zÏ8íð Ó†Ü\ávšg¾Å5\ý£IáÔ\8p±Ò;³Ã?Ù~ìxÉg‚«WE<Å‹)§n ,­¬qNFï°§h®´ÚË n²}ºžu™ ’V±NxH‡×òçé|çŠæH1TrŠÃw{{tê ðÁðüýàÀÝñIË'žÙȪ²bÂÜÐWT1@npã¢n¤«7k^¦^}hìHóñêÓ4<‹v ò)Õv¿9¯òÅTU.FÉ·Å.,æCEf7æ~ØÇø =ˆ^l„ía.â²|t¡DÆ 5DR ¼¢Ÿ(ÓëÞìÿešyzŠfÊÝìÈYmv½°¬ü8¢¦€EY#+ÁÀVÎÃסßHåæÓ1—©Õ†)i’Ò¢»ÿ‰­Xéø'_n¶d½l5íMhb©h¥˜‰Ø`ˆâM“d µÎ‡ÎÆõƒ£‹ËþÙé@€…Ì8±…ƒÈå…•‹ü±Û×pC=`ò¸T‡ÔóB%;vWF;ïOïXÓ¿RvŒc‘LXYe‘” "£­•R¤Evæ !•v~=\žáÝÊKš!W`Ž—»„5qîÀ§å"wÑih¦3÷TŒu=y8w<îLwÒ•Yx24D3±P`nn¯Ü(…„ŸòÄ>»î¤dñÌW‹y¥¹#Ë%ƒf ý1ëL[>uÛ$Öu—)E*Pñºâ¿Ö›žUHzgƒìc&e‚'H­Þ€U¶¶Pšý¯ âz9÷'嘔?d¯³“}ßzš[`ƒé<ò…è÷˜2 ‰úòkAɉæÜÅrÉ< ÏkâÂp‰•âíèuêÂòJu^2-eŠñ:É”ÏÞ¸c·Ž®ìL-ÖšOض ¸õèvêNa Ûsœ]ëÎ<„rë£û,j4ˆF%Ÿ*Ù[=Ù¾ê> >™ºä"p¼\TÈn*KOm½Pöß{òŠÄ\»;‡?÷ở_^ˆÉÆ^v1j×Ò¹ù›EcøTž‹a£7AGê‰7xÞÈ¢¶Du`s’Ö›pQ ’íÑY‘‹û-7 ü9DÆÍ€1pNÈ-WœÙUÓÖ¡C_Íí¸üÐû©g¡‡«£ Ýõ }G1´R°€"5ÏCc f'ßêsÝp°É’wÛxî|(qJ%þ/:S|^ÐÅÀ¦…ÂÒxÂBk—¢N@k+ì±fÃjGðäÂø÷•‘’¤ìªº/âU§I°0i!7†Ónñx¥…Ä5ª-¤­ã‹j t²›ï»$I¶T–bßø?œ½¿88Âwì0´¢ÅèK¤6%Π*k¤£$¹ýŒ¨?Í—®vâ#\y`IîÙ¤eJ?òîèý…;gú{kˆFNœTu}U · lŽëH§ÊmUÝŸ7¹>Áˆá”ìíekm¥øGÛ’ ‰¡]D}WÄ)}aà–¹ì÷^½|ªÍ°7[ÞBù­soaòÎËQÅŽÝ'>/b½Y>+)u4Xâ(ì]œì ûoò½N’—à-~B)Ókü5 HiÛÐô}tÈŽ˜aÓgFûV¡+MœÑ6•† pª‘?Ðnצ_Ÿ¶‘S&À—ÌÒ?&s[‰ (‹—J´,ºÏú±&┊-âÐx…¦ Ç+¨óð与´0á°D=[Öæjt«aø”C{ŒƒXœYºCø,‘j)€ˆC% Y7ý'›‡÷hy–‹Ò¹ŸŒñé.aR³¢óÍ 1EŠOjci”ª×´¯ÖšDðq׶*œq^Š™C5W —‡!.bxŠY yƒÌ’÷'„®ý¬EÒm…á$ð£Í¼3ÊRˆŠ]·³/õnŠë o>Ôöè ÕÔ‘Ä.VÏZÍ•Ós3*à> Q½Œ§µ~‰lXDJ ü{‹»˜ÿ@=-²S¡š‘üç‰Ïȇ Ñ,°c›ÑV;m>Ltêߌ~–) …È”iAª¦bxUèÕäÜÇS<7—œf–œw»t[^•Òýe —†$MþY!ÚRÖRW’Jaˆ·Ë:âÄô½)9š5°­‡5Eâ5(ȇª†–²gæÙéûãcúK­†ú JÖðÆýÀz„‡D ‘OÑÁ‘쮤bèCá Dgg_œ<0”ÖT“Òd#Vg§—G§—ƒ± š$·zÔ2Ï‘»^Qèo4¶…>oM*<î…·]”„œGΖ÷›Ò·ËUÆ/át9¬%`gÕ¶ÉcÑXŒâñ åþ“°Ò-ñ'i)¢Ã.42™>Šó”ÇôÇ›Ízøa{›Áª‘5ˆ—“’ɇáb†ñxìå]¹¨êÛ2û1wãs[Nó%¬.¨Ž"— ÒM&é"ψ•u .ZóV7ê>C‡=Â¥‘(„y¬@`…èû|è‘´Kç¿zªPò2zŸ/fK#±ÓŽ<ðrMjÒ%g/ËB“±ÊÈ1s%ä¥&6ÒWrŠ¬-ØM%Xj—è6õ"£9Ãã»%%¬:ðÙ¬Œ·ÕÍ,)¿wm¦ÅÀ!"¿|ÝèÄÅ ÄDJS |‚«‰¼d²’%åÕõúÕðüâèÍÑåÁ»ŽþðÅáéه觱…'’ÒùsrØ9£½d®O 9×0˜ºýy;Z¾Áñ(ÏÓÿbàúžú„U8÷ðè© mµQãSE©_QXßtëÅ=É~äjU2a)¢JÄŽl0眣í+ÊnçâèYNŽM ØÕ¼N·µ¤ªlH¼]åÌÚúWNG‚rª–¬‡–æw‚z·•Ý¡/)ÃGþ<‚)è\G7ã‡ÇÄm'U2J#z–-E ›5±±P‘$šD6h"Jaƒr9EŽFÒm(i8-Ňág†ž‰U’j€Ü­-ÕãÃᇠIÏ“œ:¶•™ú E¢h‚@ÝXÛ2™ [hŸÕ´@àUÖ@{œ›»F<á pïè\"< Ç²éìsþ Ø€M±]M°k’ÇÛ_ŠIªÔ›¼ ô¯ž@XbŸc©ø.}¬’ÒâC¯MuÙ±Î,W,´Y$¨A”s}í Ìj‘ôn¸±}€‚×ZæÏw؆/~îø—æ´8]LÜmaŽZ¨4EÕnøW’Õ„/õòa»5~ä»0^à˜‹µ×ºœì9 Q7/AâxÈ 6©˜Ð/Ξ&mi¸ÀC[Èô Ÿ¸¾'è<ŽGƒñ³¦p¥q%ÏÀ ¤š†‚&Õ¿#D¢;ÑúËœ}å_V…0‹Oew=$Áyê¹ ºÿÖL½ ï÷ÎaC~'®~[ñU7’»=@¥[À¨{@lk@ÓÍ£B‰OÀ›Æâ¯úÚHœÎñ´IºÇœ7w–ú‚‡éÕÍp:uG¾Ü«ÊJúóJìêX·ãŽ-x4„®Ôð."¿X.§ù<œ6]e²`õÁ™âÛ>ØÚÃ„Ÿ¢(çåã+"›ÈQ=£A÷„_ì²…ð4§ˆ»Dw–ˆÍ#Pêûúž²·^~1rþGÓh EŪ_^¼?Š ÕÞôŽG¾F‘ ĵÒ¦èÑgˬËLÊö.®^ 3šÐ %k§O ‘<½ô$Í¡÷ Õ`”õàÊ)} ßå!r. Ÿ 8?`-íÕË“ýŒï¦_¿¿xt}2úÑE Åc£u’ Ó󸧳ÊÇêÜûž§Iyå‚]ð°p§b_³æw'C{ùÎÖò—Og.•Ð —f¦páíÊ}ù¾Ê.ªñÂvñËÎE‰ñGd$Jžt8ûUÉåXÄrŽý% ³Ôw»Ê8¶3ò°'`ù…¨h ’“2¢&[[«‡|ìd¼ÝhÖJÊLC7k8!‘ÕS'gg2ž‚j ôTzú\NXBq~=¹| ½ˆXÅŠKœ€"µÉIŒQ(8&n³™9éØ#À„ž3O' _’îQûŒI­¢èÂÇÙ5^OCªÐ^:ñuiìU‡[KÛOŸ^î>ö,™®Ø7"Õ›ZV¢åhÝƒÕ t®k”$‡PžX¹Ù¹‹)‹1g‘ëwÈœ}þÇùXN’ðæÞŽ6 §^!ž¯+ õé&$ V.,´«wA¼Ú Qûn‘½[-G²õ.♈³¹^]SS¿n}{ú"½£ Î_f›ÈÛž¨ÇPä8½»J˜ª´íGH ëhFYŠ ä1leuŠ¸âKÑ8,fc‚]¶ƒÕíå™À Hë({=¨+ð(H¤qÁmæ`d(3\‰‹Oöý"…(ð«¶/¬™ÖÔ!¥hÖ3éC^-2vx5©)Ce龬”èÃ]{Ó@[Yzí¸o£širÒÆ |#\¢Þäu}.oB!×—aÿÌW"s~…ÒÔOpç‰÷ƒð)KÃYr//üúÉê] ÏÞïY©SY”™dŠR2Ÿ*9£p&Ù_ú2¾ÏÖÐß2î0ix(¾0z[º¬Å2hæà¬-¥ô¯õ#nÒ+ç벂ç1a·@ ¹Æü°]¤tb¥‰«Á ÀåÑðíñÙ~ïxФi^úX/FûHQ à\ÑBª2÷·>k¬¥ƒD5šT‹3£é˨†Àª¹k½^¹ôÐh•À#1Ÿ"x²o1r§ƒ¤rÈÀkªÈíO5et*Iæ,,쀱%Ô`èÿí W1ð7tÁ°Š˜kÃU:Á3’ºyÜq+~§~p"ʯfÛ¬Þo"?y"žD¶Xp^m0N|=û”ïíHù8ŒëÓ˜›îÉ"(f÷ìbyZ^k¡mû$**$4Îé; ÝG‡|'²ÿa dˆPMIX`OMG6òÖÁ—W^}ºªàvI6ûóeå,B¼×a!Êù#ÄpowšÏk+lkòœÞã¤y¬×b~›õ™2dÓ™–Xš¦]Là¯Ö¼¤Ò¬Åò›Új™¤"«ìE:¼›³ÿk¢3ʳå?@GE<àCè™Ðk8D·áãÇÐÍ\é¬Ä¿`_Ž'ÂÐDøÅXWa‘¼¹µ¨ÈY–ê¾G¶}÷| \¦Q·výDÉ5œÃÄæ‰ÙùÙ‡£‹sO†¢Òà¡3«9 «É¬–óÕÒ{'Ò$,V( ìŒ)”¸,–ΕËÎ'¹{ê_Øt,Fö°´± ý‚ekEQÜu<ö _Æò±¼û= #P…Äb¡¡¯1â6p»Õ…5šÍ¯|kYâ4ÒëÛÐÜð<Ñ™ÆÕr”¢‹R\ã²è„Z¬Û7%ù‰5²T:ñ’·è&o 9¿6&3ÐMGÇ5ÂÌy÷R®›;ç¯c§°»Œpღ[_xHÂqÖ¤Ï/ þ åô0šŽ$A‰6d=ÅÚ?¡ ; ì3D£ñáÀF˜Öp˜‘ÃŽ]®”p˜ÐÂíÂ…+£&=x Ào‰òyäºÉú?/­?ØU›/•¼ñJt% f÷l«pps%ŒšÆj›LƒñÊUv ˜c«A`Ý“?Êq¼ n˜äÅ}†2µÕ6f¦Ò€&1æsѶ¼G0¿\Írñ¸x7˜L…ô©ÅÂÕ.@ýäShu”ÐuÏ1Ñ0´°³x¢@Aà¶4¢ºçך&6©~ùöëŽQI\&"·.a ël ç¨HB‰ É͇rföá¡Ð±IÈÀ&Œ*ÆUX9J¹L]_kÈò½tiØLG–Ë@À„ˆE­·ûDN²E†ë] ¦¼™L.šóô+ÞŸsÐ|üpø£(öŠnúœ©+Ä·¢ã[ü KEʾ ÊàÑÒß (ÈjH÷áGÊVh‘ß¿ÿh§!îЊ±»añy\-œsõ&­¢¥0à î1Á!ÞÞýøú• QrOù ÏiXô’ÜVoõ²§ évrB7£á¬#Ž,© i5ú5l=½ Ø¡¸/œPG=»>—•0œÊûRzÆ)åóîÝ¢@CÓZ6åL]… N3^Q÷Áaºðlx¼ÊRr„ «Ñþ áà(3•Ü0 ‚H®×úÈ’Kf}­ÿ__G·Öà«âo%·ß1ŒA泥á1ïzýÓÐ ÿ*éÞs¼š+ºÂÊÈÓ)“3Ú®g¡ôðÿ{1X䤯Øb³U ­sFÝ-ÀB ¡Fˆ¯qÁäT:>Q#¾¡&TòÔÜé  MoWÝäTŽ˜ôËf&H¦úfáü2î@g«–Tœ¶£HÑÄ+ˆê¸Ìt¬*X£Æ=°¸zè*0Cµ7íJ ß+ò ¡tÒŒ’ùÀ°ÃdD³†á9ÙHžºˆ#M»åЄ,â‰j­@jC}ˆµïÅØ«”Ó¦–(„Ñ>žô÷4ÀJ5᫆g˲ý•ñôEQîé\@½êÃÓ|âQïíÑÅpðáèè\ÖËL"S្¼éÏ déF9 xwÅx£pŽ5™W£UL÷iŽ6ªx*¥-0Æ'å1ƒ›-¦1õ­ß¸ðö¸¿Ñ»è»X}L×™µ?:`LÐ𦒵¦¯ ¹ÙúÉ­¡›¬™b ýÍœ£·à99ŽÏ)„ôÅr¸¬–ùdxõè¶p{»›…·ÚPÈ Ž /N$¸ñ¸žw1gH;v5‰ a±Í*ÃZ§ò¶Þ³{º9ôuû«e´Åa*ÊÑÝcÂ\úmQ—¤7Ä€W–Þa¤Ï²*Î5òª>q2¦A[AMˆÏ=”KÒõx§Ÿ9×è´ðR„Ú©Áúu12·…7g5ºÛÖ,Ž!˜\‘h“!†š—îZŒ÷² ÿŠ0ÝÚ@$ñl“"¼c–ŒK<5¶ÍµFŠ¼=EËÑH¯ÅX#_Ïì ³óJk~L- [ïj kN×xÅ;é²åLJWz$ŸAÊ=G?yxZ Âǵl[OÜ ¦“ßß´²Ár ßå-nËðMÐÄã„ÕÜ‘ÏóÕáMùÔŒ3WwÅJµ)bxŽñ…&™¹†ðfRæId{ž¡ÑøÆQ„Ôœy5„H$4ûò‘°{ôÚ×tjB‡#®M¢Ò…Ysít^&ÅõrGñkE±#ЄF}àÇŸ ÀþNÀO²BS® Wö‹³AR̽(àO†…ϽCI<ß‘ˆ®é›S+/‡,ÐTRƹ²o•Ú°4¨„z$"5 ­Á<($€ÉîKß3Í$ûmÓ`€¬eU.Y‚ JVËíÜ­¾rQ~JÀû¹âDªÀRId¹ðÁ.ji7S)<6–;³XÌn«ëN 5Šê)äI0V¬pb|*Ç@hD»Žc©Î—tn›#JcòÝWà™Êc·BÈù™M{#Wî’Ð/êP’iA¥!©Ä²fèî‹{¼B/èˆgdò9¡F…ÓՈ¯N†¦4&Hæ ´tÞ\véĈԽӥÝé ŠÎ6›Ê}pHÅRb–Eõ0›Û«ÝRÒ*%57z‹ò¦T¾ú|åŽ(ãá'žKDz®á†túëŽ:w›¦ q‘E±z–‹×2pèԧC7¬VŸ>KÜI²;¼•/ºÄETz‹EÚ­DŒ(]%Qû»8::½¼è^2Ï”‹3j¼«ËàXàîMÂWƒ¢3HÔÊØd$¡_DïR.}@W9ŸKÒ²¨R:¨QùêÛϽA¬Íý»w|þ®çAU-UæÔÆmVçËÌ$gó¤¼òidt”…‡bˆW¸ŽÆΈÐlaü"Òb]Ä,»FCü ‚,ýñ§p[Ð7p¯ÑÃ…l?Ž7‚WÕæ ¦°¢jðé¢À|¢²Gî£J¸A÷ ‘ÖC¯âºt$7ñéû£5 =/¦ÃÕrïSMwýCë2±h£Á…ã ¹ú<¸Îú©Îf!§§Yïì®2ÁJaj&ó°pð€uKúÐ…ÃSï^”4.á|-¢ŽÀ‚ \^Ý8ùøÛè´CÖè:"ík€ÜQÍNª¢!Lx] %²ÝÝ%ð,Þ[+5­Ž61èϺwXCœI·¸w*bª* /|{dôÛa5s2"'㊴ „5KxNó°ú°Šá¦@´fŒ¢]ÚwÆÚy" {é\ÄKgiÙ‰;xñÍ3MÃK£QD bòÊ`»Ž„‹è†— @ªßì˜ØEnFÑ·ÛÛþ¾¹i¡=ï›Ü-–'ÌCJRé}ù5¡?‚óC.èw™1Pràa±x2-¡²¨!ù† ”Ãø8@%qi£N|vÇ9œå‰àRgw—ĺ”Vâ1ÓÆ­–vvqtËöøçÉw²wûѸÿPîüi¬ƒÛÕì拺ÁÀ-€`ùðŽ8nÈkø㋸ñf¤;ºàš\Æ!ƒ‘HYÍ㜜×ÆÑÒ^x2Ыb¹4Éf­î —ɲ¼×ìOÔ~BÙï¤úöƒéƒÉ:y·r6w ùƒü¾ˆùÐúrˆeïJ8Îe6x÷R|p~íÇü—ìÇêçršó+çqf-¹,ª‹qƒŠßb’¢r9ï /œ ¸¡nF¤8p«Œ©­ùêÊE) B{ì½DÅvi¤Ðy o.:_½Y âö"¼Ñ`ªR †OZ,ÄÌÝcˆ„2‹é”æ.jßÑlç2—’E°ê ^ÉD¯Ä¾ð¤w€œÕŽð‹ð}ÓúÆØ9 CتLEóñ%Ëç3¡ŸnǦö‡/­³ÀEÁ÷¥”Ÿ”Kn\Ev7Ò'";°{O«¥²Hm‹ÞVE„\gª…JK4ÃF·Î`ÖM$¥­LOZÖ?}ÿq÷Ýùð¼GySzrÍõS°âc± qö›¿®î–$“®Á1,™C ÍdX$OÕ5UÕâï¤äýìwŸD(Àçþ¢2@O‚Æ8;)˜U¼âèNË—î3¸|¿¿vq*íM B(Hß”B²/×±;ð¨œGÜ(~Í“0-¸Ë¸ˆZQEz쟴Wê 3©×1ä)ÍA á`œ¯$ÍfW©’”œ€4ß°z Z­•n0D‹áϳ™G³†t§¥Å]év¥‹Ôäˆo¡ñËÐY/t]DH=—¡å‡­|D”ZÝ%0@‹®®–“ id`‹”YaÆŽÙÎÊöòŸ—O³ÓBÅ°ÃZûÌÖQ.üs/f¸i]\;#†E\­îZèñ¤nS¤‘O7EÚ†wš…¡˜Ð¤o6to ²²Žtew¤…ùçqÓTàæ¥x´PÖÛ@¥5¼X“EG\À¾\?cò·Š+ ZX¤ñÛ•9Órm;WEªZÈ*!c1ÖøŽÇªÐøj¤ '{d\ºO}Œü´)plQx•6ëfK¤ÉãH©Ór}Å£AŸâMA!²ÈŽÁìÎéx?—öÿ9HæðÂFUý)fUK/Ð?¬Ä· M©ê¶˜ôÖ*±_ܘ Õ¥;ij8Sî 4ô/XPÐÛåtÒ‘ÔO$)ȉn²x‘†Ëž‘ñf$­ì¸‚¸ W¿à§{rfnYØñ…׸¾û™Õ«¢o<öÚgÝÔ”¥a± KhøL­”t¹4{'ÖWa­úש)ºØKÅ]ßD˜˜ð¨QârýpŒ)ómŒAd퇷Ԗy¨ˆHÓ<6˜2 xÒiÄn[§^‰Åãc!ç*n™üI?ÜSÝh/}»$5ÂQŸc‘aɃ¹i™Œ<òQNY.Z=?4bk‘¢ôž'´‚Ãgv ¦]Ϩäö"6ÀpÑÙèê°Ü’unÀuZ(÷/.Z&ht¯ØØ+"B¶T™Ë¤Qmפ…„YKKÜ¡1ÚÎ ©P=ÇA¨éà;`´ª¥çTv´©4@¼éÙlƒü­„%…ÿ-q!¶Â¾ûy:^­®žÈV$£½O’EYAž<Ž³£N"ÚCmÛ Ùòe-’é[×?b:ɵd!ee^•“g~DaZDíiÑ h®,ûµSí©Æv÷0º’xb)ßYB¬u™Ðïॕ÷I¼(è]…µë×üÚu… ¬÷‘@šãщ¢?åäcM€öI…cÇ—8ÒZ§üO±Ñ#b[žÆ|“'à#½8Þò(:ÎÅXÁ¼žÍ”:GšyPmkq_ÍT}D§;S•Ne¾ Åßè³Å=6aTFH›<-”)TÕ09«”Á,\DÝË‚— ø¬Òì¬ ų̀q‚¢Dh½ÓJ®÷Ã\¥ZB=A>)™´oØdFtí€zÍÆvU÷°ÖEhæŽ Z(=µ ã‚xàtÚn‹¥Ê\ƒˆ£˜Ay›ðöµ­FÄÛ9€ûÀZã Ùªïç«~ý}«Tå#pýQ%|RE”«ôÇÞZw`CÂIÀ®1 _Ä?‹üÑ´\Þj˜)’'Žh¶ÜÀˆBÀ™.DwýMêÖÒñÓÄ á,%Oá„dÚ!†ƒ.Ô,$Ê¥¨Ôz±ßóLúj²ÇÎÞ.ãÆ`[±Äªõ3ôXwmˆ±ZtÀr¯T¨ ŠI–ˆÄ}v. Ü±x«z!¯Ú]"¢£+aóqÐP3½ÒO›Ò”‡4¼‘ËDpÎY¤úËHZw©Bˆp?Fٱ߶.ë§x­»ÉåBZé>¡³i-ÜLÂéjϹœîWÝOImœ”œñbzu_ˆ–R}d‚šQì ëZ™×ZÙ·å¢"Õù9´ ºæµ¨žè¾ù)ˆÕ2ÆE aNž€»šºµ|N½Ö–ÈF"€`Ù<¯=âAÜU¡€4DYD~U—–1Qõ×bô`ÕÞ×u>Û9ÌgîàËÞwH”J—ÊÒôpŒ°+=w5=* ‘s÷mpÖçÍœ±8í]¼|÷l½L„cn†õ{•§À-mÆj&›¤7T¡­Iœgˆ7ØqÉ™$½/Á”<êaySÂèžäÔ(VJf¯íšš>0݈«ï3÷™4–3}Í@VÒQÀEÁ ³ŒÎLó;äE§WÕ„[Nûâ’»ù/åܹdŽ‚úÏÒÄŒÀõÜBî ¡×e±vÚŸEÓ­Ò'€ªªÉŽ:¡ËòÊ-p;¡ç MJ ©XdÐm AFÿîý…`•’á9çvßài‰ð¼¯îÇÛüþ®4™D¡1£§Øn6ÏK[¦@Ç?nxÇIbFSóK)B7;;?ºè]ž] O> {½?†í»þ»”µñ÷š‰Ž «xÁdéù°(ÝJð­Zî:§g›o•Ú¯ƒÂ@/廟/°€ÈÛmô#I̹¬BÇ@6U%ß÷°æjÇI~ÿYôK©¨ ^ƒª7¢ü¥^Šä箪å²Ò{4î-«jBK,†‹G7,'+´¹6 “qžÐ†°¤PDɳC¹––\“ â{$aë„ì€ØÿËu fÔnCÇDln»ð³¾P|Q|ØV,8[—õBà‚ËmöðT¥ Š’qú0íd!И¾h «ÒXYU3 úoûÇÇZsQ‰XˆBuüYCݪ8@ÉDT“/¹.Ò£Y Ùâl`h/ý¬bCûݼßÿÔ‡¶c«x5SÃW˜ëi.dñJD‚Úuâ,Ä]ƒxuDÿBÉ%=?6 2tKüØ!Œˆ ™‰½ ìáŽ<—•×ä¹LÖ‡YõБ†})áSìŸÉ%FÒz×ù“ùW®ßu¾TÉMJ-„,à@ªå– Y€ö? ëTáÛd0¾z4µÂLºhX[C)ßG-rŒÒyk4á(èE»ðœÙœ÷Üécd<1lÓ—.b †!KñÝþÛÓ³‹£áÛƒ†ýÓ7g1}ò®™]ÞqC¸#4ähé§tOÉä¡”À—½ËA|¼“¿i+–¾²5’´bÔù§ÄïCáK¨@íh Etm™äAu¿ö´oZáM>‡îndÝÝ<ßȬcäFàæ9x4YàÃí‚ÿý}¾üCO¯òåì¦[-n¶ðT-öÁ9wÔûîró¸23_וh¨›Yé‹&ë1‡µäLáüVº5Šâ yBÅ ˜Ð„*ìeÍ š"âέù>?8;KÜäÁp¦*¦9©§GÙчÁË×Ïžemv;rJ³À½ÌàˆÆÌú`B²_Óa;‚Ö›än³¸enœ°¤H R˜^Ó§©œE(<ï4J 1=!â9s&4äwù´ZVëÒj"Tê{‰ oÌÚVÂL¸±ÐgQ À@º›ù¯3¹Ån½£#"‡°#î/jö0lŒ4¬U’FraÚñÏk´0¬Ý/¼u°UB!iŠXnôd”†Y“‘”$×À$¤UL pWúTÃ9¡Ì‚<(Nâ GÕOÃéÕZ³`#X`)6ÒÑâ·§êæ‹×¯Ì늮ûb&ðëÅr±šÎ“„¾Ä­?}“µÅißÞ Ï·\Wô»ðxƒ"4õÆíg0P l(|é‡Ç ·Ê’cV+q†$ƒpKì‡S4"¢:{ÏÝ*Ù…ŠTÒŽ{}¨@È9ŒïW €ös-tBCÛÍÐ4ÜDyæâžÁkäœ4IÍl Xæ«…›«Âºf¬ÓÀ-Å1Äè®7ˆºç"YfR±ÙàÊT"ÍœD]MŸP"FR•¹Îï+™¶ aÔI+ð ¢±f{­•j;°?1£êGܵ†d•ÖŽ°Ÿò[#ùÅ:ÑÝœÇô¾ž×n‹\.‘^ÂhŽîÐY𥻋$,” =Š’¬« ‚¡ÖööœWtpqtrtzÙ;Þx؇Ü=Úø܃Q÷ZúåîÓ†W¤á ®D'øeÿÄýÛ½G—¬™=uƒ#+¦I—Œ ¤†õ/ÔÔ=ù§±áW^Á6ˆ¦Zmž™vÔô4.a·»0Ìâ¹Ë{m‚×ħ°\ >’cÕˆ^ÄBrª~ãNúÅ(ÀâS±"¼¦Q,%o½ž&Ie˜uºúÙ /ã[J³–‹èƒ¢¦GräQ ©AØ ~3Ú)+g.Âd,7HÛ–6è¸jbÆÙÕÓó‹·Go76̧̫w¦s"šUWUN}x¸×MõÏúu‚²ýÑÅ`³£©À°šwö²ªø…@²Ämá43}挀Gç(¯zÞH  4rÒqwsoέñdc‹3k©–ri¿?eeéè0jô¨­)%‡Ù#­vL|*zOl¼Þ™üúºA±õr®šV)Êè²÷až»K[”à¶É}eÿšÁ*D´V±u쮵&Ñêßæ fÖg2WÕØÈ3õÈ 5pmv*¯c´r!².ÀùزÑ;x8£Ñc8/xT‰#ôCu /^;/#¿w­·8¨&4´àT¦D˜†MfÅ¥•ž7ùöÛoñ k&ŒgÆ–\ƒ„?²ÖÊ;V¿cžã=ÕEB+â­%ŒuE˜¹Ärù•sG„Ñ"ÂÀuåcç®åθ½|k®¶T²ÕŒj ðø›‹ß±JJZšäÀV¹¨¤èG#nÖˆòtQ¾‡Ï?q7wµëœ fêyò«¬™¦cLð8Ÿf'ÅM>úŃbäŽå‹Ü<ß^ [¬&>‹ ¢wò÷$Ä)&[ZJ”&=ä°i“RO]Z7dçnªšÏblƒúo„¢P>Y¢Â-0ÓR&R>,×XH•Ü/îPt‹õ"0l‘Ë5¤ô®éÁb¶.sðÅöA~_N´Hô‰V<½To`Ê%îU )¡¨1ŒÏ;‹ID¥€O Z—]ÍexP°÷pö¼T¯:¾ÎÎw–Õ)¯«YC‹›Ûòì¸(Î]™Lrµß,˜»›”W¨Îv2ø˾ÏÈ+U‚Ñ“‘{N1ÓI \_*DÓX¼îКeû«Ùx7S2féOàý³½îËîó´±@Ê X¶TÏ¿¯ª¥ì…’â"[°v[, ‡4¤a «:ð¶-ÑUÔ­FãJèå–Þ1rOëDÌíø¾u—,ƒÀŒÛM¤’šÙ¯lݪ3Ê>ÿ9žõfîQÝv~» Œ3DÆD€±:! ]I§YwJbÏE~—†3Å8Xl™B‹—ò9°xƒî@èõj;þáÝ4Ää-u#•S Xƒ!¦ÂZ’Eþd•1à,zê€YDõÜ­àˆîQ1kS ÏÍX$ Í™ó ‡'G'iJqY%'&¼Jêlj u¹)Ê“(ú,¯Õ­Vª_¤Ý5óåbèór²OŒ T,ͪéRSGQÐÖ ?ëŸþÔ;îÿûeÿP|iYˆª:Pd;{"m¨";B;éŽUqƒ©3–¥¹gTG,­ö¯ :žÚÜÊÏ)霡•ñÏñ/£ÛóG³·{Q¥Öƒ“xC‚*×~JFÏ–DA,+¿\ì\|™7IÚPKsCýï+°¶ %ä{ŠzÎþÜàÑŠrW}^ @AtÂAêüBÃO»G¾/£‰<Ý‚Þ¬`¦é‚:…Ô<®¤ã!uÂ.Ÿ”ÉàŽïìo‹Tá·Ì)¡Ô5%~*Á„à°6õÃ#“–Ä™ÈT¸°N¼ó(ƒKì¾ëº÷ÍÙÅ›xnCó[¡RiD\.†Ä੼–g&0 ÑÝœ?Kœé5ÝÅ l¢OÆ- ÉÝ&ö#¾-RÚÚ)í9KžjHƒ[“ãS¹7¥¶X—óÒ ¡¯oÓ/ãÞM¯Úì%QrÚ2&‘ÔÔ¹k[±¼v^Î>ù¥$1}X:QØgŽ$¯Ãú¡‡£ù¼;’žTýÅà>‰ƒÈ(”B¨˜JŠNÄ| &ñS Ù.>¼JO°5ßH]Ø&!)fr¨ä¨/ï T"ÁIäÒ“ønJ±ÕQs€ æ¼·±5™xª<ÚaæH£qøoû‚Ýmš&ô®§\ 8­íø!¸#ßì°Å2gÇ™îdzí?’|;jKaÑ85¢¼ûÒ0nÇÔËÑ—_v¤“ûmãç˜ÀyÛoDèÙ äXD“Ôৠ½›¨d½2q$°P—.Ð 2ŒMU*Ì+ _5¦^æ•U½Ic¦J¨÷ §’xÿ|ç”'VÞ9…Cpí´YãæÏ^¼ÝßÞÈí¶†g)®/w]¸EZÖ¤ HÎœ¦î‰D÷=ÐYò⇸VpQ\OX¤-_Ô~õÛIÀv|´Kj¸)I\¾émU SYµ$»w‹Ãý3n`!ŠÍ14=zdäîÄ™Vc/‰GÆWÞ lt¬Î²7îú‹RÙ–×wéÛòÎÇg^QAM[•!Ö+q¥áÿR0\A’€JjE¾¥&±cnNˆY$\ÒìMN–¼þlï9kDN*5³dº—zžÐÆjä«ððÿ5–?±º¬¯}^æwîÎë|Qݸ¨e–ßUs÷tUýEÀ†¿ð«ÓׯBz‹¾{a [k(IAâ¨ˆê© êòÈZ‚E›”lð±…F+‰Õºߘ–‰óÅ´+âb 3q¯æ»eã°[¨“ù¹³þÒœˆeæüú‹“ÀŸe¬I‹wÎ-³7n.îÖ`"/Ÿ"»Ù"ÂÛ±¶j¬ç?´{ÄêÅňDàî)™c¯r­ƒeb&ô=Ndƃb€|=d®càbŸ™Â‹LÄLäjVtB—`¢/ÿö I‹°šŒ…²Ï8"UyãL·Q®P„/Æ“FW7íÓEÆÓ³Ó@ÞE5ø(lôgêR¥çpÃ+V’Áƒ@ŸÕϯa 3Š¶³w!z»Õ¿ ¥OqŒŒ4Hä&PÛ¬‘Ç\^ˆp¨x4ÒéÓQ·dä=biRJÊÎù² .NÂà8g_ú€&MƒmÀà,d^pÛoøDš:>˜8Ð÷~Õ¯xBæŠMŠEÑëhíÐ)t D°ØCé¦3Ì@U.Ò`Ì*Â)zý”¤k˜Z{ Ökº££Û˜^ÛçHkÑmC™UIÏhÁ!N¢Œ8J'i‡Ð@£Í|n@aÓfÒnåà¼VÁgÈšºÖàwX\!%´N ¿!qL„Tš‘à s¤™á¡Ïê‰IÝÔš¤¤žãÐ}{ñ\ãå˜3œöo¥[”¬BastztÑ?ž¿¼^½íLZ>Á#tüœ Í^µ`Ä] ¹“û|ÈÂ¥Èèé…É*͊е÷çéÏ\ /ë¶b,‘®’=Ï®â%4h½²Ñ|%æ:šÁ¼5ÞØŠù3MðəƋjÎ\TªläÕBÔH&ñÌÈ f›b8½•ûµ@p$~"Z¢÷ÑtMø‚-Ì~nÊcEÍÑF"²…¤äL’jj|‹‡'†'1/CrSÅØó€"FÒ)éõø5Ýj²¥ût‘¡~§I6]«Aà[ü Ôa%€Â×µˆ»ë|+«j¦D¤)w‰[n'0R‚ûŸ.<‡gvc-±¨œoØgÊCeW !e•Þó­³¥nm÷PÈ,è:Zµç¿´ÐåzÎ1©— ºšO'¾¨°"±†05¸ï].VdÜ_‹ oÝoG…q{™yˤ½Z;˜bœ˜,!¸Åà+Ï7(W=ÐM$¦W >IÝ–«™—ÆN€yî_¨ F·Ór¼Ü” n25A‚}zÔÑ^‡—1‘Ë ÚvVDÀaãõÁoGäÃécõÆ3øˆ“rÓó4 ©› Z9_E'²{|Üøº»®ŒVw…Y·’X<ý¢-+nµý²s~d²ä°óÎm)AGr+k¹¥Íªå\güœD hã@*~aÿÔà6w—,ÕÞãì°Ór¯IØ-æì[¥ ÕëòÓšƒ0z¼y@}Õðî>_‡ãqÝ~vÿ"÷]&˜ëÃ?žöNÜ u|Ö;쟾夓>ù aöøOÜê‡-n3å! žë• ,åøP¦DCþJG[èÔž€ÎyZn5^â½5cÁér¹¨–z¾9SÆ®T™1û;þ1 îâj© …¯%n`'N PÃg¯$©‘Ô‹Ê”RQÐûj?fnå ò¸œdf?•I+¹^âÙ§½gÏžey­õ"éü"‰ÖL qžL.½þÇŽèÑB%b!ÙûXàI\J3biépݼœn‘ 8æäÏškΗ=r2¬PÒF5Xzܼä"þ¹(÷èê¢?Ð$ODõI²ã‹œ09e݈>± nAsATG¸ÎÜlÞPu•{Ù«(1³|ŸÈ<ÀP#Uj èæÎðÁ"ÈF„X6ðžl}sÊý>ߨz,ÏXHXCÌRx't¿ÕÕdh³•AŒl#ÿ* ÄOzû'ïO†ïŽzçä8[†URKÓ?ì’F4™ßwݺÙñÊ–öÙºos ¦¥®±sx dÛðàìôMÿm3دÜɈC‘ÌÇׯvœSË”EK>.‘1£LzSöSìÖ·YØD}3E¨Î9V¼¾-Éáþ;ÍÕ»á¾O© |ÅŒHÂãÂâŸ[±|Œ!ôŠ’t<êppä<µw´ ŸM˦·+Ùs×9:°L ˜Ô|1ºõdå‰Ê‘}u 0 7%äÌ±Õ ;é;Ü:Ò“;èøpx~q„¤“±=ƒ‘ŠWÊäy'™H~b#,Mš=:@æò´tóý©\¶é]KNîà«n!±NÊ%=qLá¨0`舿RñpïHik`­j‹Egå4Ô â÷³djÍ¡°b=A&ÐùA…7D;mÃIÜÄö›¸Eß ÁKvŸz‰IÃrLS§y6¡( ﯌ê¸üYK’±,­vŒÈe…b“ÓCÞÒ(Vxþ.bå¢ö…¬ñF$À«ÕÌOpðAc $?;ÊMžXœÃ÷'ç‘ß»MüLjy5éáº4t5^Mç혫!f½EÞW…×`Û“ò,àÅ¥À|´‘!)Ú¦mIl}¡^Q\¤Ú’–⎙wI36õ¨Ž£ŽŠÑUÎc:ç{B[ªBîäÝf:ÆÝl™. »1<¹ÈˆÆÅ1¯Š%¬O€4¢l¼W­I×[!•#”Ió@ß\ç„ÎÅOqÒáIq_­ð±‘ û”L/ˆ€˜q4S‘°dyHOËÂ| Zå7°t¢éÇ~˜0K‹ß5Vº«bÊš”C•Â7P?h£Žútq¦ý /÷ÅWŽPS.4gÂœðÕängâöæ$‚¸U‹Ù]fÇ–ȼ‹qYûXTIÀÞ*Èh³ ¤Ä=‹Ï~ÌÁ%kOòVú´’\Ô–ÆÒwûÇ?ÂOˆÚfºå#MS‹*°J£-Xt…ÆÖ.ÏBÐs—‹Æ MȶñN’”—˜[§H«§oá¾´©âLÔ&3Ýé3Ñk÷´bvÉé&…I)ù"%1™E¼ùZ"â†r)":†8f¥8ãlõTª¢µ)!Z‹lêT{‡7æuŸ­ ¾¼n G4ƒž›“c-ôtÊÈÐh€—ƺ_†kŠ†#¤1Œ/\¢ñ[þ„O7É.oÅêýÙL—óMÌ…LO#¸Ò:'×é:…]]D§ÃgUÂíh@ED…Çõ+:Ìoi“|F{?gÚœËÚ” 3üÇòz³vz&´`o]콕2ôŠ›z}DAÆo=ÙâÎÀÙ iÅJ•©®5<à…S"f1”De\‘Ul=À@äþº´ #@…*,$÷mý‚;ß==úx)œÍ ùŽvÉ_n$”Ò6S‰ñ7 ·˜©L\Y-¹ A•ç YÏa„‚â±k:2Þ㬸¾qe‹\ ¿IqÔ8ƒgµ@.%œ4×ØSŒqÒå0—OlÉV”4ÂF6²|TNÊå£!\˜ÈŠ$gµ®k’vØ °3šOܼNÝ–…‹—œ;éVGijÜQ55ªð3 `¤ªöwWLÓÙüØœ•-y4 0¨ÄÃã1e–¤x„¨NE¿HyfÖ°•ï'Äw|(Ê›Üò<òÜzê²ê©¡‰[ÿ÷IçàÒÖ>ž÷.ÿ8¼üãùÑaæiÎÖ>ÓL,ùvˆ*VÝ…I·3Ñ8 ¤”e®I~kÚlû¶CS¤‰Rþx fOqÏ ´ ЗæE”Æd\šö*®“gF6.)O£T]ªzOC6Ýÿ½»r‘g—ùMuûDmèÝÑû‹þರ—rôÊŠWób*Ò)É…3p¢‰A¿r8.ïËZ0X’¦)5r‰ñ$qMUƶÿñý¹i@v2ýËpð®ÿæ2üó¤7ø1$åC§‚)P(—6qoAüO’“éÊ9áKÒ÷$Pc£Tó…4ê"xb·#*LaRAÔ!1|›¾Õ$‘@Ð(ZX ž²ˆ kQ]¡°Î}­Rå%ôi~`¯1Yس®³<$…p¸œHãá"÷NâT´·½C/A@çT_"^á°€`=E­ÐŠ²©Î…©jÝĬSQFOß½KÕ\LjÃkPkKÚð:¨‹®QØ*¦i0MŠØ#ǹ«ÂDcŽŽL£‚¤£êżZ úË+²Ä±U“~‹õ#ÍS«xŒ»CSëG˜8ר¯)ºîx±s«L[D.¨Ã„Ä$"d2ZMsžåL¥¶†óêdLXËùCáé14ô¸°ÉE#n¯-Ï9¦lPµy/£nB¨çST,©îjeYòrŒÚ鿹VbÞ¸ì›î­­¾þEÿcÄu–Ô Ý7ñ믺 ô݈©¿þÔì 0^2 Oè4ªÛðÔ¤òœ'ϼí‡T•pÄ_xV°Ç r@Ñ·nö^©såæ¨ýã){ŒMPâ XÕm†ÆR‘Žýz¡WV¡Û‹+”žÖ.ÅPùW¹ÑóÚrafof¡4¶Yƒ.H€lJ:E¨»@ªÅ»+À;ô `Œ?~üˆ¥Câbü_ß‹'‡<R†¾BçE‘©8YΆr's™ÚϤaÞ ù‹™§L ÝP­ËîJž=âÁm£+\Œ¬JxH:„…¨+Ðo³ÀBmó£ãTq£üÀ=*¤"Š]‰XbJ˜8ÃVwyû8qg ;õhÁÛçX#ih+YCïðl3G\tû«)Ážd=ý&ÃnÓbeàR,:ŽxZ¢Ô°u-kîZr•^{äÏŠOÔUiÜBh)°Ö¼)>â¾3jÒç´ŽŠ"†\ŠMtëÿÙÞ×_?ö²‰Ùˆ‚?<ÓgÄÑ–î,qm üžQ žë¼]üRÜT‹_À‰óàÎ+¤"=¶n{šÁ,ÛB™„ÈÉ-z¿²„Àä³½j5ö"óíRʯƒ^Pn¿Ee?Äo­ÝžCkŽ N¤Äå!=°$ÄÄäQûî\±ÂÄŠáv\ö¶$Pìs8¢:ÕÜJ:ž#’áèrÛiZ³79-pà±µe5õyWúÝž+E‰ÕÌ€ÞŒv¢æÆðz¿P¿'ø\Wa„Ò‡÷r[‚4 –{`y2 ª30C%„¿µ|m’«Õ&}²kן†Ã;æƒ €‹˜Ë¥5'ZX«a¾3¨þÛ>¢ã÷0UúåDÖ=n1¡çJŧm¶ÝÝ¡Ow¼GfÃÆ]1D¼ºZiÒY‚¡­À;DLäѾj§®f ñÞ(P;7x(Y+²"– ‡@üŒÚÀ¸¶%÷Ù®Þ›¸^zôùë“æ ÇòJ¶KÜWñW%F¾A0h ^½u¡š‹ˆÞôO{Çý?¹¿)-ãàèøÏP„‚YôûÂÞò@ñÂÚKƒD$§JÀ½Øš+¨ÍÚËú5Œ¨4w°2íÕ騙XH¯A ŠÒV¡Í !Úk÷e,ܤ»Ie_sÒ $€"l±ï­œZ.´¿˜Lžà+õ„,ƒÍø'íªÖ:z%qîÝ~º© ­ñŒ“Z+bù")ƒî»9z·q ñb,¦/7ùšuŽÍ/’豬Ìáñ± Úe&ô‹Ÿ!bbÎBùµP£p?.”ì ÂÖkØÕÌŸ(C×Ö§|WH(äÅTfa RhðF|êVq93.s9¸'““œD@à$|°°òÅWE\/oãÖˊшK¢»&ò;cöáÆ<êíÙÑô*_X<œÇ¥ÝF ð®k'™@+å±Ü,8gx÷z½¡ÇºëÐÝ—Õ$×S‰· rÓÄŸºGðèYÄÿ!U:C,PP*°µ^ö.ûv:mó%+)宑ŒÿU]*}‘ÛìUìR¾ úêg‡ÃQšàÅUîŽë‘¸Èß Ñ|¬M0E:ž:aL4Tp×BæDò\zȼª“ ®}¸8F̞ͦbˆŽ¢™\“âZA…îgù°Ø¨’0–tÊ8žnbDÑ;ˆ4ãv¦M½LÖ‘rê£2R;+®@0ð×ú­¢ì¥¯ºQßQÿglµ²DœÏ~.!$µçZ€›mb·³f¤ºË^ƒÆyg£îÚ YÓû¬¤røB„? à¤Ó^nžÊ‹g‘“†ó§7‰z^_ñ5¥‘gp¦\?Qk‘LNN>­qÀZIYñ?äÙF'jrÆ VÏG‘krPÒâL%}ï?ºQÌK Už¢ù‘õL3"<1¨Z$>¿èÿÔ»<¾kàþrÑʳ!y löÙùðìtØÛ?»x‚2XÊ&Lå49©#S™ð ¨JöºXS1ÞX™Y!]yAi†ËûiçÙ©‡ 3 r¥øÅ<š˜ù¥ï9ÝbD†ˆ3wVeÑ8fÙAšµ[ÚY;_wÑÂl,â®yÊ&ÇL/_i”|‹7)œV3uWøb›ËÛív¨}k"]Ò„åÒSŸªî‹©‡¡Z³‚Ï÷B!9>á;×¾lû€.ŸŸx#¿¥nq¬kÍÞ²€ŽqšÁ½B)BNTß•kÙz¤pð 2½Zé;éžýìÚ×s¹M5m5¥xx)„QçâåâsØ#%šÞ SùÊWÂèQÚ±ËR²ÀO1ý*$z¥Ùj€ ñ6푸Œ]è“íNóy­¹ðÀŸu[h¯¹öJúDsÁ7+©Èš|NÖ¶–ß‚ôödÇçíx"a=EάŠa_WFa‚íþ¼û*TK>Ó`Àu Ç’¶5ßÒ-RŠh‘vÒšì] ª&k'T¿ÛÞ° á÷Ì ï)ÇmQû ù›rþÉëÕUœ9Þ˜•–±VèŸwÍÆÎk­¹Hü”ìjtÃæ³G²Ú'¥…FÜø(m–’DZm1Òß’vJÑÖîTp1`3¬¨~ž™)IàÏFÕÂÓ”‘ÄK‚äÚ}>Á_»lèž¡çgñÚ¹ “ö«Bˆ}×Óé¿%æÕÀV­×¢±ü‘¼ú¤¦fw­‡‰ Kuh£ù!Û ÐW‹£ÚŠ!K¬dj‰*m”3ômºª”~Û….,¶r?Ñû”w]tR„ŒLûSeŒt˜¾Tâb^ßØÖ› †¸¥kS{{¯ïÓ†aàDÇWŒòƒ ,0 î4%v×j—uñTÇžP9¯±"-Úžáéi ú¹ÅÒ„gL•Ç¼Ðwçï?î*ÛOÚÉ–—Ÿ†å¢Œ@H]#\…±1F3Œ–#vl¥]»ªý¨3ßcÙ䑶ÀøbÇL€MK³œó`n«Ÿ\xÒsƒä½7*Û`ŒßBåA‚ ¢“îòF”ÆçmžåíÂ/)D:ªç»• ñÛ«—ºKC¤i=tÙ¢ò²m\c¶××Z78Î qsß"“OÐÛ9¶ƒ?Hw¸^îŸ8¼5Ž<´¾ÿÈ.“$èî™ËŒxWVQìÞ'Õõ Å«¥ðå«eŽL–;! ¶ñŠå£l7pžÊÒçÉ ³g'ZijF1<âÄ{•áMÏ–º’bXC 4ç^š]Ú}\„$"gsjAƒB€=¹YL‚ç©`pP¸3ÒbÕøÑWŒ7ŒYÁ+Sþ–dYÅöv–ŽÜ+>À¸\-‰ L 5O鱫I—äÊôŸ äML$¡ Ï-ÑŸš:u¢)D`ŽðÐ5O¾Wß6l —k‘ (øiØ…éó­‘Ú_ƒnç´œ×Ãú¦Œ{¬jýwu”U[Z[h®Uë@_DîÆAŠMù'2™ì­+’5úWEÁã³wñ¡úëßÈ'yã"ÄÊÑk,y«¨qÍU™ªåé4ÝÄH!^lwQâGRÆœµ;0i ¬•‡SṤWE1ù êŠc-ÛËBy‘MHÁ‘<¼g¾É<1ÛƒB5â´^‚¸fi[ N¶%C ºÉ5Šxû‘Zµîô¥%qíÛ>ÒpŸ³]/Ùæb¥õ?+nÜÅá"2Œ3[pGn}Žn¥Ã¡8€iEë³WÓí¯Ei4÷iÉ*FSAv~¬ˆ2fërk4Ÿßò`ÒâFãóظš)ŽÎƒ ³`ß3 éÈ­¹[Ý»ÜYÜêF€ƒŸ¤™dýX©$\dg‹%4éþ Ä©h"i*²ï[ȧ‹)j%µ@VuèWguÿÍ)Ä8a¨ïHbä‡l¿¸)&±'–´®ƒ…ÈúP[À›ÿ›2i!¨A ŒŒÒÅ :Ê©äU¢!ÐÞ ¡—àÏ•Û3F„¯¦ÙéÍê±Øø~çY|y4_ÝäõÔ÷„™[–(-¹-àüE¨Û6<—‹ ¬—ƒ<–OÝ0”t—"Ï55ãƒQR„Y>s3mµè¢0qðþðÝÙñáðøìàÇ4Á¾¶ôÄ+9Gz@XTŠÌÙÛÞ~?ûww²𷰬ݓÍ4Tù ±Ö¿džÒMŒœíáÚqo0Rb&uAî¹8kIH9ú[(öà‰3EQ-*ÓIf3ÒüJÌáå@äTqËo2‰Ùºt+`q»Û^VWw: ÐPðZI$hQ ›I¬ ½f$¼GGpRUÆŒÖ0êÄÛŽ)2‚SA7C`Ù7†.Ï"åŒ'¼FfãoaÖToí‚kÇýÁ¥376ͼä«ÎÕÚ-2¡æ0.f*ÿ$4’ëŽpŒÑc±ët)t„6”A:6¡þ-…Å]§"¾ßŽ-_ 8º-¿ð­6ÒOå^ýócãO´NK¢Fܱ¡0)5\¯r$9Îq=t$ýmÓ°0ŸXÊyBŸx/x@~…už¡öñ5SƒI~Ÿg±L–Åý¦8Uq„IA "h\WcöP’T±»,F¾vkIÔHRÚH‰aÇêüƒ:]¢ü¸a‰Á:šj,bæ¡¢’”õ,Æ'ñíM8%ì‡Ì&¬á6*9’1‹ÏŒˆ|3Hõž”³·ÚvÂzo»\ç7ÖŽa}r9qµƒa”gmÂþF#/cÀŽë´g uÓ“÷§'½s7¡·nѨø>¥”·Yé\ùq)¶öeî½)™Zîp4£ÿ?ìýkcÛF–- ÷WãWà(™‰”Ô͗ĉ=-K²ÍŽn('ÎÌôaC$$!¦6AZVOúùío­µ÷®*€”ìÌdzÎyŸh¦c‰ …ºìÚ—µ×îíÇ 4’Õ¥X¿Z¢Û{rnXn¬³³YSîšàÅìüÜΪÁ=V*ƒ‚c·e®Üjñ®¨b¯Zä™,õ#ÉgŒçTó…÷œ 4Q\‡'¶êŸÉ{õψ©óÝÄJ‘ìé[JÉ­¸Ø¢ aâQn®>åFÑ\ªú­£.ñS7êÉ8Å´ø[Q¦?dÅ4M/DÄÅ<4¨H?©SC±/$›v›Ry.´%D¥>®mÙ Zï¼ëØ~ÏŠÔY_Ý|_䮿‘EÅoÏó¾F,šÆµz²Á€²‡}’Êq€@ÕzÈÆgøXÖ¸RJÕñ±w¯é TàÆËÉØŸ¯'Â4»ãÖøÞþËýÓ»%Å~6ÚØ7¦™LÃjג圮9 SdÁœð ©lÌ%}Ô}ë,üï÷ãŠÂÙYCÁm[±Nl¨[&Ø’L:—)Õ'VÜ™Bÿ†AS*„9ºr¨7l·a~1ÖÓ'tKA]m¨ª–öºÿPœuÞîÈÜÈ‹Àþj’Q“˜ª¢Ç@ø¬6Ç0¥ÒseG¤¨ì‹Ïaª"ÉëóðÐ`í 1Ñ¿îl3Ýö}«iÔÐ8¬TÊI½Ñ¶üFeVCJŠ‡ ´m0hÅœoi‘Áºmz5ƒÒ²;Š¶ßZ—J;mÌÙžÂÓîìï8amZ˜š9‘W@Eú¦UK ¾LeÕ¥#I|"Úd’¡ç©'+ #¥ÿ‚aÖHŒ›ßë[XªQŒ^$˼Ïy([§‘?3–K[Î3éo +¿U÷z “%øMppÁÓ¨t½XÝ•.{ÐéÞFu^]O~̹Å,ÕWâøˆÖpD¢âË'g­À°¡óÛZ2‚Ead1fZâëV©Å¸G8$‡­±`ZjúÏéû*ýçö¬Õ‘¹í=Úrý‹f2 ÷Ý´t¿J¹OˆÒ¨ô"ú\$4I‰ÀË5ÈÑw n³­5¨ ¹)K´æb\¯­ZØH­^©û¥áž¬·kB 4“K{îVg»ÎÒl”OÃœÀò[”—(AtW| W\#Á DâÁ辬]¯Æ$ ¤ëÁÖXŽ5Ž®Î¯›`vnÓ£Â-M·ÝvQª¥²Œ–edÙr<»;™æz¿R»$;îÇ<ŠqÒNÀ ŠY]¨-0:?Í&WxUU4`‚UÒY1&‰š\eƒ:VfºÃñû§§Ý½ý^úlÅ*¯"DñøÌ«ða!…î,`IiíÒ‹üC!»¤~LKQ8‹Âæs—ùê¤Gûû{Ræ–%›cfÌæ;k¹å–Þß3Û?xY×"!mùéŸô4 ÍÍ >Ý=>(v­1º-A“@q¶2}ÀøÝŠ`ñî©Þ‡`Í*sCØz :½œ%Š„G¿ŠªÝïìïv_vw ù(9ó ½ÄÄT[DG£EÉ¥ªÌ_-‚%¢œ[ å¾WÞç& UŸ.hõ`¿éºnžö_žö_ìôö½ •˜µëŒçdnJAŒ€„xl‚÷ÈÔ­šä;cú N~º†Äëhw‡^½/jVY°ÁMÛÔ§‘‚=ÜèÕÑ7OsSðÊÄ0ëz…ÀÖÔqŠ­ÛÉP zG7 q¸Ž¾ØÙýþìtgw¿yŒ3õñ1õÃκqp$ÌlÎÚO‚ø왹T¤`8z\ÁÐB4ŒBÄ­ZÞ$Hœžª~öÏÙûìÃ…0"¾¬96 e`ŠX]ÓÈ:£c”ÓD’„$a3cÍ°ÔDØEÅI«²Rbj—[[ j› ù³8åD¨Þh2Õò@êZ!ÚX¦Šé«êÈYÆ·Ž5”Ä®¯Ðî¾?+œL¿oS6 &þ»Ç}Ûw×$Öwíìî+ä¤Q€ ~T¾ÏÞ5hw ´Î¡Xÿb¼@"ò ýÄ×éáJ¢IT²Å.©â4÷˜þ›‰Œ>Úƒ§ëÊÀjL໵0r¨XSc6´…€6Qú®Í¾ÍE™8•p¨F”çÕ€)Ù!¥ÅWeàî³RÜY †³!X:5"—x?›2uÆWãÆ28: ™üèñýΔ©ç½ÎÑþY“ü ä‘SYðt‰g|en‡€c‘+Û=\­¢+ù²¬­e¼ ð…¸/Ü1< €‚‡…‚/ª­uî++–Ì>ji¨†(y6þf$åHö¨ÈS)OÔKÆjkA|z /9W™!šA‡é“¤{YþÕ/™=ÎÒõ̤”’îbÍ µÌÝA1.å^„dÁglç C\}Ïd¥. #£oø¼ïôq_4*†¢·’¤§Žf2ó'·$´ðx—°xðn–Óâ²+ÔÝ$37„Ñ„ìE‘¯`9DÖ°:I§‘]/ $;C…ÓÝ5À4ßâðñ×ß78xÞ~ý¸ï¦ûäÔ‚g»¯#Ç}@¶+ÛÞò¡ZäÌÄ°höùE.éž0ÐjÄî=~¸Öà ‹‹3 ¹NäÀˆ“”¯µn(ÄÈ]ûc÷h{ËçŽYŠV šˆKNVÔ¦úîXÅ¿«Ùµìy°ªc0÷%`:¬‚YPfã+KI”½¢dQq‹Ù‚ß:x–_æp² XÛV¶Æª*5?°Ì„Ï ŒN w*Í*O‰ilÌzY[ä'—lÔ¸Ìm-WÚs«4jI—c¤ˆª–?Sâ˜?•¬§çi`XâSeP'‘mÌo’AÀ3‰ŽJ0TžŸ³  ÷M%´“,H/‰tf®³ê¯t‡/ÉêÚ‹‹RlÓqTÇ&íu_õö_ý  /×pîÙÄ 8FÓl3I!ÏÊ‘›¥IRª«ËñôL DvëSÇq TÅçù ³ð+<Í,Œm«óØÛ/|¥Û‰Ñ|BMäÃÅx°q¥ã¬bôÌt4“ÍÙ­‡˜Ð:qH¦g±Z÷^9ã&ðÝÐa8dšÖ‹ùø]]•Í5a0rM«˜‚ñ^ƒ-kiW*óEP°êªp³³ç4ý«qÄr90á(þ]ËWˆJHK~ÝÛ·jîǦ±~Ä®ý-ZÐVA«¨—þÍ"ÓëБ42²ÖS|Ó«ûÙŒ„ žÐÇ“¤âèÂF ÌçGÞuÀš„â¢%Ÿp8‚ `lPCÛK8x´jÚÒÔ’`ìG¤ö Ž×-RAlSsÔÓ"±>ý$³ Qõpå¬N5Ëjæ7S¡õ~‹€ÒãÀ¸øç²ànoÔ|GÑ»Ô&9ÌØŠ©Ü þcôr®@WÆ»_ü)&©Ç0—p•ã:ÿ‹. ÍÁæöÕãóIýðû×r4s›â”+„P†BêµÒ߆ KgÓâ}‘î,¼›ždåt#°ºâC,*~+0Ýä ˆÌ§zŠbìùPõ`ÑÇííôÄê½<¶–còóÅ$Ê"Ó3C‚s#¤ùЉX"kZB³ñ;3ëìì´ÿæÈmƒ½z¶¤¯²¥©]Ñá³ÕŒÃ)*r'öûH…Ž ÚF%&rù&=q¢ä]áÊ„ø¤ÐÝ»;ðÂõ{ÿZ£Œ‹ëš ÷¿ ¦"Eï©W.jDq}Zïágj\ÇžF{TrÜbÀâÄôZ Ü–ø' Ö<,Ú#«¼ÓA¸ÃV¶2«l”h‡û‹ä[±Fsk,‰S«Àõt·ƒÆµ‘L2K¦v1¦åx8¤Ã`«–9RúB\?&±o„Ò2Tn3€³óѨ%ûÇ=ÎõðTU[Ýñ}eIô•;LgzZçûØ#§!ÖûãÙ•V}WvZ¾SµR7Pn~ 8‚¼¦¬8sÀÌ_ïw_½>S¤çŒiâ"eÈ€÷™Un‰µ»NËø@§"E•%‰`ùx¤r0éÄoéfŽæÏYÔ $Õ(œ³ñ-”Æã÷¹8%ï`ÚÀ7ƒ’#YðÃyó=Þê‘k„Å\NˆšëØXÃ?? u(ávÕö7´i}ä—‘Õ[ºˆù/õ0‰Jœ{Ò‘0ú–#ìÏb\-žfù…ü§…%S¼˜_ú$%U²ë!Õþ¬fi­ ý¾^[]mGQ‰Æ« ®ŠÛì:KʪyuUÔŠäBëô(od©nl‡ád:ž5E¤Œ¥æzðäZÓˆ ¾@miùü’ Û‰éˆ?"êfÖNí¼#‡e¦»#† MjëãÃEðÏG“—A-PÍNpÀº4êOGñ¶žî(ZdΆ½c·ÿ@0ú⧳}w õ÷öl/¼Ì*ˆÞÖ›¬bu2牚ñBfȧù'`*q;g´PuO%Œ‚ZiS‹Ùrrl‹fçF€ËåxÌXœæ«{öTò}uz¾NSäÜ=íöÒU'˜²kË—žÄWOÊjüsæÝ=£´å}ŽŠQ¨éeç„Ðj eé„sy)§‰™1É3SKtqz›Ø@nðŒbz÷ûÝÃWûf﹋JÁ- -ÚXRÙדhhqIÅ°+»0Yu^]¡Žö @}}‚éèD`âz_$39ϯŠ±–°²¼§óÜÇn¯Í+Û{\VV™9´SÅû[l Cä6d1VöÕŠ9‰¨pÑxïìÍ‹ǧôßZ?üvjlÆ”‹‘Ïð²,¢}šéÙ-þ.^dgCU@x6oÕ3tø³~̇†zè¡¢‹h´Z‘à_é!ªê×I:Õ~®œz‰¨-Ïoxß`ýŒ³K_‰— |êŠôlE°jîQO:ŒˆdVÁÛL¶½j$w0™š°\¡ÝT·ãAdr¥yQÆø:—+ö`WÃʳÃèF9 Y÷çyÈAUnC2(JF«€'²Ø‘!ÚùG.©×d ¡ßžð:³šz~ÊÅ)Î^žJª)!ê!ï€êºrÿ›•QPïûìoó«Â™ÂÝqV¾Ëj2 é­P»h{ë´¦A±‡ô°{ªâ@±à²VF GKûOÅ*=è¾è©É!ìà£Ø_ÌT¿ºEÆôùtè4 xc)üZŠ9æð~Ô pÔ+)ü:µP%÷‚Ý[é£X¡™Åf7‹~ÞŽû\ – ÊJŽÑîôö&—ݽ[¢¬¹"ÏÄi[«ŠåV­MŽÍ ËKÂ?Ñ¢Wótv+•(|]‰0úJâd 4«QI%ÑvÔ7"BÂRåÜ«ö¡ŽÓ"Q5¦©§OMU×PôpBáÐ °ÊV ê¯Ê¿ÖP< I¨ñ-’¯°ûÂSòõ,ݶðŽÅÈ1Õ)*péËŠóL"w¾lF?bpsú¸/›È(Æ÷ûû'b7œœö‚Æbš<²DaïÞQ$£=*Åý:¡‹V>yçȱayÞi<–¤ sQÕÀMËòf‚œ­Qvì¨óF³‚©<«ßÄ›¾¯vw6i "_G¹ÜױﬣSš¸Î²@èP!Äï Ö?-?8ÓB¢\˜Ñ~}}›Æ¥dc¬‘g®*Ä:§–$Ãìî+ßUQöV|ÊY-ÂJÙÿKF0Ü%eTÁkì+ù¥©`> $ÿ}UÏ•&­+â­¼P|1O¬WÓÍÅ.g€¬þáü%õqÑL#œ½n¥ŠoN²œŠØË\M\Ÿ—9P(t1ó¥Û´¶Ÿm›»\ðp²ù6š¡æ|*ŒÊqögð÷ѳ0%xK8LG#A¥p- ¥,˜–÷N¶"2"ó~Üæ´Êˆ B‡|o*_«ú•ÍI-\qCÍÁ‰ê‚ñœ†‚™~¶7£Ì&Ð+¡Q(îÁd`’GÙ ´ÅUÍbC:Ã;LMZtù†£²ò9¹’W2Íûnœ©£êiÓuËpÌ@Æ(Þ7ETu=-º¥ˆ+^®)X¸H(´¦€ZQHxûŠ`ºÙ´b¹'Œ'VªÕ‹ä¸Keö–!ß|ýGÎÐáNŸˆã“”õ{ûGÇg»;»¯÷÷@üÊ$¹|ø­®ŸÛ/ˆœóXÐ>‹@¯YÏìlãç{Ÿ æ@‰‡¶:,2×­˜ÙL_X“Éàf mÜ¿ðèµÈ¸Àî_gÛòw4/ƒËA¨¢EœC¼úÔ#»k÷ä(øQÙ' ½ðѹ¡7@Ì]ÜŽÍØåÒC3ÐovkB:"«jʯ#¹†Ì6ÏK §”JNÙBܣ嚬s>wAiD®,ïI ¾p¦›êØ1cš/DÖt;¢¤úß$ú3™28H¼5ëc¿õ¸CȬq­ gŒo°Jr¼·OuëVú#¹"¢Œ q ñqÙŽ,^Š¦~qí,>”«QÖ©?Í]—þ„<ÙWÙtPdéi1)G…À:î®f%Jzï5× /Yß9=¬­˜Þü²(ß‘åø¬¬œf\žÏå] “L>s›lÖðï÷Áæ©'Ý‚Ÿ_s'^h-±ÑüöÙ-Î8ñµ5ù¯#~j ó cƒH·X¬îÈVzË(vvYz{ÚË­˜AÝ3oŽä Š‡Ñ^£È<×™Úœ¦¦ #×€l:­YO“¦Ëø¹èF¨, Æm¢ÂJq¤ Š]Íä,S=éõ‹ƒï{ÝÝÇ>Üøæ1ÀÙ PôÝ _ØòÕ›Åðð{q ,…¿ÎFù­ÖÄ[ÆÄxUK„Ž‰{žñBk3à±Jcz°“_¬^ÃŒ)ZÆÍ>æSŽi>ÑÎ#õÛj1dÀK€ÕÃÎFg«CÂû¸"œ ŠCôe…KUƒ÷+Ný]ácWX!u!s)ÈzKØ ê‡øŒ¸§v¥DnÜÄ b†Ü\7Zÿ\3½ŒÐ÷‰&èÌ*‡5£[ç¹ñrüK=ç¼åÍuVã[»ÀMÁd¦&cü¨¨„‰º|â–gúbZ–5Ⱥ„¿HQ¯ç™‡°·fߺ‰É ÞÏÊ-ÈQ@É(j4äU>;,‡óQ.e$vD·ÎaP¹CÜÆÄ‚+¸Õµ$“í­Ê×ë³êåp…çŠÎLƳ™’I­ÀHŽX‘K«É\òÕ.OŸ6èñ:ÀÌh–å¿ýYÁ4̲l†)áŒ.ÁÛ>xW|d᜻³0ú¨õ‘FÉúšÖ÷zÊd2€ZX…†\ÍžÇ"T;&D×N ìÞ`ÒÙ  ¬©\hjSoX¿kvçÖÏ:Ýh…oàgbâÎåÑðo14¡¾ —ÅxxVNŽ/z¦xÝA‰8Šß!ÎJ’†Öß~ý¸Á2˜Ã£|ä.S‘HV9Ö‚¿õE+#«£¤^Æü%1EFn2@v@u½D¼˜Þ eÅáàûbŒè')–Íåàç…öÀ[ƒ¨¬zÂA¯1·ôšCɼp ô07*;Óÿ¢·%Ë Ý‡ ¡¨`¿\¸£dYÎ1"3Ï?Œ¨í·›ž³@j:êÀˆBV0Dâߊ9ºÅZöþÜJCW¾<  é‰ÅLÝf”Ñü’Fd‹g“¨5¡i¸2î™çg§Ü $OlèÎgÙ¬šßfé ·üÇcw¬¨Ÿ«A<ß £ËÌ1Ô§¤Á-é«ž¿–§ä–ûp>©¥úØ1Û([‡¢Ú èý’~ØÐ2þ„8R pÑZe4X’ŸÞK©ÏôÉ:r³L¦=ñUü£Píh®!‹f 4ae9·´8Š4.Ô(ØV°²-¼–8¼"ÅâÉÓ0lâÀ‰w÷Ôé•ã 7ÔMZ7nÓ:d<ÎÇç9½fö=»*¯ÝRû~”Í«±ÉnÈ/±ÃL=éºõXÈ>ŠÀ~Š0b¾Ž³þ/óÐ\ªu(g°˜Â£<ÓäLaâÔJ³Â9X‚ŠXÏŠé`~ Þ9)“½{žÛ/²É 6=*Þ—E#1pzÖÅ|$Ç…ÆDîHë|g>®¯¤Òn‚.a9Cpl‚âÚŽBbC9è_ kXg-NŽÌ¹U†~^MJ,7Xƒ*2ßY¾&V鼪U* õæ<ÁÎUA,—ÁPk§ó¢;f·œ9¹£L KÊëá=|ò¤m¡¶n)ø¨…§Î˜8ËŽ-Í!äí7 úÊ{tBúx£{*$žÔc%{”›YÑ …fÍ·ú­„EÕ±McG8ÛŸ#ÆlÝ"7‘:„(y. ŠÍDã7dÀ‰¹çéæãôð<¥U¹v7±‚ZîÙ9Ä›™_`ÌH- ê(.FåM4QVm”á^D^ÍÏÏqòŸ¥?ퟥ/»o÷q:þ|õR—Á˜6%“Eä® ƒ¬zÕm¦4˜8 èi¹'M#åölÅÀt‚Ö3u#ú¹X‚óÖØA9?H³2©+QhbX"ú·FA0.t4ô4ê]ö‹°ö/ˆö°8JZ1©Q%jש³ö~:Ú9ì¢äΞ;^w• "#¡ÑLãIÍŒ¬7‹(s*±Ql¼QºŒnõe¬úXpd@{Ýù+s{“9á ÷Q]ÔWæEl†§óYuÉÀT¬ ‚êpÁb?-Å>HóDq}UŽì6v.wºqNã– h‡muêâsýJþðûÏÿ%?H0üz}XÖ%Uÿ¿ãîçñÇîß­Ç›·ù÷&ÿæo[›þ°é¾|òdc{óÉ“?¸žl=úCºñßÑ™æÏ'Jšþáê¼Ì¯®ï»Î ÔD‡þ±?³×Sâ¨O7Ò•­ôØ @^·66¶W’Nïuê„ç~‚³Â­ÔÿÚwÙ -ã*hIX/\¶ˆäkÕ(?¼«*n´A·ø¼¥W @,ò0¨¢¥ÿÞF ç<»ôRžK³<ï߯÷ÓÑñI¯ÛK>34 Ôx÷òçÓ„€ë/CV%á€GîÚ·á‚U¹~2›Æ_~ L¸¢•.¶Õ©&É`€R0%²¤spÂ>îí÷vO»'HdH:ÝÐÚ³|€Ç'¤¡Í/ÛT>ý{VæÇaLÕhKr¨Ö¯ËàxZ®­0Õ á“Q…Pum»O‚Ž<%÷JJÅ×ùùmˆègŒÏH8Ãiÿ—õy)YÑŒXÆÉjšh­žÌ-¢¯&‹8 £QóL£þœÃið ŒÌãåà¾úŽ‡ÇµDY[­ÖZlWŒ˜sPk0zfüÊáÁ"†#Ôë/~oy³Ra'ÌGÜ2DŠ¡õ/ƒ=!qÁ{ÈÑ,çp\8¬>Q`™§T‡K¦;¦&/ðVm™$ Ó,®"­ãš /¸›^žîï;•p6è$‘XbM—aõÕ¼abKŒB”sPÖž$*R휟œüÅl>óáAá BšÒþ‹7¯4;‘MŠo„ ïK~‘…„ÕóbŒQ\ƒ=Bq7¨-Ö™õr) ž <ïÁº•'¿{Éo¯ÙIHE(Ög •1}üÓO°R²uj7¨üK`ªB7»•$ÏÀ…ÊÜÅXYµë{lj$åž|3²¤n„rñ½rTÀ4¡Z§ÛF3dE£¤Kä¢T»36pߛ쑑žS*E¬î†Ô´4QL-7©R Š53 ^K”×ÑÝ¢R&¡¡ÊÕy+µiÐ/óeGysÂŽŽvÚFÛcØ“¾Éæ•èjƪ©qNE…HÕ†ÉXFØ ?À¤¤ XêT5ù)ƒu¶l…!_> ¤(sCHpÉfëmOW‚²À×Eá¤.¡˜¦½¹ä¯“ #ýË_lú¿øB ;WÂÂ-¶™tYÊ^£0ºÜÛ•Òêxr ÷R­Fnu‚I˜g'½Vº®"í㳈E±ÙJH­ñé›Ñ\®Uè¹¹°·®“ u×~R2AáNâa)Ð)i±¦Hø8â2 4k[‰÷s}¬Jö—òFLÝ`>ÚÜ’|³5+¡N±jçùmiêÓðÏâžôÃþNNfjfŸÕsG Ñ`sÎèqˤô”¤k)Si|ec}«ùé]$²,ËäAŸ8CàûL¯S™sžGBQ‚T€<ä–óâ-'ÂD2—ñ\Š[›(T­J>dÁ2ß1@žÄOQטÖU[ªk&:ò í²r‘R1: ?ËPèqÑh·¥G´!îx8Û{Õ@wöù@2+9©¦ó‰ž›™²µ4³YcIžÁ+¾½0p!ñDAÅþ¢Û‘Ûñœ>Á ÌˆñÙÒž9aÀ1ÙÛƒš%.ZGðÎœ„åøcãfGwL3…·å]üø sº´é&”½[Óú.p–뮯LKàÑú_ÊGFW½ð ¢ª”jN/çt5N:[‹Ì‘ç’Â.R)ÃZ2«l£8L%lüjWà¸äX•³¨† åäT¿²ÊyõEŒW‹²ÜV¤„˜# z Is¶Pߦ¯Ý¨€†97Ø·¦/"=D ¸š×Á±Øó„‹±êvÍw¹åvíûH‘£õa«Ž|SÄEpÃRA.^gÆrËÐhŠæb°a„b_“®]W<Ã/‚N±%ëÀsZ9XRT±¥+ÐwÒÛxÐE¼ hŸ‡ZÓ °¤ªNéwƒ/•À€š›DìÜS'shjFÚà»®ýn‰»Uˆ&ݬeŒ!x¥…y§m–ê 9˜œcuÀÛFkÅÁ³JÔ+© fƒCÑT¡¢u]tU/šëÄŸÕ8xKøjYBS±$R2ê<=˜)äBµ!ª7ƒw%µ#ï³Ç:fB+·.$Y60ð²ÂÙÄ.ì›–ææŸ$CÁ æ”uäÕZkšâ¼‚Æ)•¤Ô`+È…puÄzqG,Æý­h+æ16Y8 ЮÙ,õÚHõŠözN*f3‘»ì–´ ÕQâï_þrãV«SÖ‚Ú^ÿš¡ Ì­»¦Ñ.;*,´nWj1t5ýÌù°ÒÛßOwzÇ+<tN©˜S†"wãŽâ+‡Âš5“ô·/Õ¯<[=•Õ…ã²x/Ö§ Õ1á#Œ’ƒ.rU˜ïŸ»Ê¡S3g³ÉÓõõ›››ÎÕdäþ×q7¬OXõ#­ƒÕ¡ÿŽÀõËA*¯Ï?[éëŽÈ‡ÃøT*8¬VÌÁ´[‹Ù99 Ö"=ó]ÿö³þJ+ù÷‹n¯¼˜Ýà•N°Ö '8þ´ÒÖ9 ýß/NZHet+^¸Ío¾þÚ­)·¥¾ÞxÒþzk#ÒêÚ^ƒD–@®Ÿ±7g¯OòTü©“ò-ÒUüÙáï”w_ë$=­‚â,¡R`ŸÍ¤â¯ª%'–cÆÒw‹ßsð¥ÿi'æï?ÿéŸàÿWJ¤¨ ÄoõŒøÿ?Ù|ò‡M÷ïÆã'[O¶7ÿ°±ùhãÉãßýÿÿˆŸå^ —`ôN>,+R…¿dO‡9x²‹ Æ ‘q?Áv‡-•6«þfüå‡6”ž$h°„’H‰0Ó¹A=÷zç¤hÿ³ïh?OÛºŠA"´ÐÒúø-Î §½T“œœÕÉ÷£…ûNОO¤ý÷ÝÃ7‡ËÚwM|(®ç×6Hù08>>éõw^Ÿž4œ)‹Cí#bÀøÅ™›/jØÌòè]W (ãAjWÑ¢¬±TöCx¢¢®7W$ÿ–ØÂlF™ÏU„ ˜‹Æ9¼PÃ9$€ÞèLv«ºÄŽ^Ï•&5Ú|;{{§û=Ô8#yžÑì,²FÂZ+-:nÍX"+q+Ïà !5ȳ0›„)Gÿ VqAròdåR·ÀTaÂÀ´}µË9rîÅ74(&NÆ…p „Ûe©ª|9:9=Þµ'ïv³n`Z}˨þqü ûøó5Ô¶Oì ÁÍ춤ú ÄƒªnN€¡ÈÌMn•¹îûM×U†x LFyôžÁÙûL©â-°°ˆ»Mñ…c)¶"fßX¾Ÿz审xŒ@^-woÈ!%0ºÁ‰Á'Åå^o‹|4ŒD¬ø´P‘Tüør0Ÿ~¿z×èJzœP¢+«Žx/ŸE£ìZ§÷*æm6É/!sc&¸ŸÄë ²±ºÞ[+…r1tU\Ú~]„q‰.ÑÂ3,07³jØKÆLØqÿÅ)ÝÞYÿÇÓ#àØÚ(;÷^𵆞I -åˆ4~Ju²ÇànD¢X‹ày¡ƒìå€MfBBûFÐlî¬xµßg˜]pÙÙþé;–'¤ªÐ]—éžiM6'Øö̉, ½q½Ð¡¿­õ5£Ð†ðW÷H!œ2Ûcñøðáy>vgwËÅqù°6×Ô­ü …»!žBÝ ép;dÆ ÕÏ‘žâÉÍgQ(kËÝ»iGæŒa‡Kp=Í«ô‘œ2)Ò3§—P©.Þç•@>ÏCõJñä«Ý?õÉg홵0V$Œ«¡c­™Pš+ÿüÖ¤ÜUn¢}3÷¢5 õëýáIvðiô€PPq©xôo$œk¾F§Fqy–sc-ÈV¼CŠ[Üv÷]ø5Ð "ÕæPæ Uúˆ€›þ¹WÀº ÞYÎJõ¨ ºIJÛC q'zGìîlH€ŠNTMóŒ)Žm\gܲ_ ’$»þH„Ó<8ÇÚU{J®Xê1 uù‹¸ºJÕ¡‹Yêxù;u­Òá<¶s“1 $ýº3ƪ“c+6¹ÂV…Áᆑ”ópp¡¶ªTi,òaMrÀÇ#¿”"ÕÞoAqëXVº§$‰ïÅ`ÒYÐK£ÒHFI¢c˜»ÝØyÈtÅCT Jˆ­L d~¶¤ (~Ž$)½Ÿ}r†‰ ñY¡–Ò–ķÆæªD*ñ˜Õeó2Å1Eá%Y$¯NwN^‡ý#EXÅÌâT-ÀëSuL®¼ÀXbDz|·7¥Ùí¨ÇÒíÿ•Vzr|r°ß&Œ=»S=¥£â<ö”ªšÌÏ«u\¾þúä _Ú[6YŒ&•ºvúèôvPyR¯Ú‡0Áœx›IÑ·Ì SBvB5 ²Ð‹MƒšÔ‡%¯6fh¡A šçp?î½Ü´r -ÂÁ=¡éOÙŠbqÊü-¢' af×ÑJΊ¸¯Æ°¡}µEs–Æ¥HÜ1Ž‡ØΦsòfKNÝMþÅû<&]-‚¿×xv|nET]G/0YKVí6"Pò A‹ñÆìÅ(»÷e L­öµôYïȶ KU;v^¾ø7óvSœ®þH–*ck6ã‚d!œ\À’…Õ/æIF±h…– TÌç™îæS"+VÁ` Úàñð_ÖÜí¾*ì ›£A‚‡Q•%µcùt®€«ÏCðT`ˆGœƒ!÷AB¼AÌÆJ ¶$4QŸëR‡‰788`0YM[9Ê´=*«3KzYæl#€Êù2ÏÒÌW¾³b¸L©3pÅ8=|.ÃßgÛƒj3»ÓšàÝ|ä9G-î 熻;Óü˜ÚHǬ1fQE•0ÎCXŠÕk’(âÉR÷øƌȑN;IÄâ}Ž`¢2úW…#fæk Æç¤-æ8qˆ¦Žv=oÝ»=æÞÔŠ³Ë®'ÅTq«JJ´-Œ·¬7‚¬¼{šª þÔM›:TþFZaA1Ë,BUXå¥1Š>1ènÑá=îø[ÜEðqé✾8°Oƒ«×+Àí=_Ç1XU¤ku¤ZHó"hЕ ‡ç \aÓçÅ{v9{°Šêh A¤q„(fYÌ°í*{$ŒtÒ:õ¹va$üDnηÝúÁJ†PÐ¥f«[ÉoÂ’˜\BÆÕ ïV#ßǸ³xPkÆ-Ü¥n ¹±ó.Öißä‚Ê´ÞkQ]Î%Ñ0ÔŒÆvé¥?8S­{|”>îþÃÆ“ÇÛ[[Û¶¶6þ°±¹ýðñïñÿÈÏw¯Ïž'ß½vÆñs$ð¦ßuÏöŸ;ixS¶Àrä ·Îg7¹8_+`fð˜K§›O83¸O&J1ô yåJqÇ/utQüÔìž4)9<¢1'‡ÅÙ™>!·–³SÍÏaŽ–ìs ¢ù3x¦­ÛÄÖ­;œróÞ:f%¥±"ºc›È[aèâÈÌ’)Òé`Ú˜äŸéÔû™X b˜‚ÛSzÎZ™å x×:\œÍ{´QZJžÌHAïºon;VÚ Ó/I¸jª…±.ï˺j%w/#0 ëÖf{g2móá?IB'ÏãítáçàøUÿìø¤ßû×ÛÜü³ü-õ2øÑÆŸõ«Îðo›ÛFc_µ~>ú”kÜGI:yúËbÏðÑÙAÿõNïõêU±&,¹=ÛëöNV'køè7ïûù÷Å/øƒgŸœº'/ùr}ñÖ«bÙui²øf¼µÏŸ´¯?ëöIølÙGw´¦??|Úg?ÜßÊ’¹X:?q+±´ú·?ÿšV@TÚnË9úê×4ƒþßË/øåWµƒ†~Y~ůnÈí>ù³ùfßÉÛ}bClËíY6ô~"ÃŒ ¾\ÒÒ=m%«ÐGk¿,p'Y7ÒïœÄþ.m¹³)©_–Œ5¼ É}º¯%:*˜Gý¹ø˜÷¶ôþ®–ðFÆL€ø²*¢–da.§¥?QK« k‡>ñçý÷Ý×RæÔwܯ…–΋gé/¯öÏú/ºN8ýG;œèoC!{öìªXÚ§ø£ÿJ—ê%Ñ«±òà$ö¿§Õ` `© òÅðÓ[²’:îuS×Ò:F0Á³éÕµõI¦î«öó_?uÍ>Ý#U>µ¥ßª­vµ´•«ìÅë½Sf÷ðÄ\ÚŠ$*–H¥e?јÙ_é†uS}DðßùrIªŸ6Qî qâͧ͵µuÿ ÓºæϺ{êWª|eÿ—rñ¨ùxk,„…ý]ºñKú‹~ý‹ÿ?N½.Ⱦg(/æöÎÒ¾éQgÁÿ̨\ì[ü³¬µÃ·Ç/þÔûרÁO›wÕs}½Ÿk/ûÕfºÐ¿4uRiéØÅCú)oûi»¯µz׼伿k˧õýoØ3÷WÔاý°gn˺Iì¿|ÙÛ?ksVj#öéMÉϪð›%¯)A~ñh)D jøý9éïv÷{ìÌ'tåߣ ©W>3ÝcýÇãÓ=*>qC«WÃéZºZ“¬¹Ý,äqîU=/W77¶²/ ®i#X½Kì%'|½¾ùXœi®%*g9@$MQo¬ú›œúÕÚ=#RšEâÛ~I£÷N¿tçf üO>¨þ(–í$‡/£HúÇýQµ×\eS§ÃJœÊü¼ÞÀ¯{F­ý9Îh'Ç;`Më ò¿ÐvºXh®Ùvûë掱¹OåˆÆ‰‹N<ëÙ%:A•šÎ*pª<¹Àâ2aJ–èW©3¨wwN÷úÜZÔdÕÞ- åò•ƒ„/àÀ\ÍàŒwáZÊ»[C Œ’JX¿ô¶Å“Bù¨¼Yk}ÒèyÌXË÷‰âæXKO;I²§UøŠéeªÐY>E·– « ²2+î) §¯àVpã%ÀΗ"×A¿¦+°ÛÇ3ÌÐð[NݵQÄn5ï\v‚d[ëˆ[ä N"4›M=|¬¥«Í˧¯ÅÈìó§iíw¿€â…ª@ž«-®?S;& §üŠê‹ŸÎö{©,Ä;­îtéÇñ_ïíØJSÁQsò®nõŸ—ÃÛú»úÓ%nNÞUþûi½ ¯_$¯û¿›NggôÅdËþòëƦH1ëÓǧ7¡#ù‹·;mKÇM|…Â5‹ÿ÷Um, é'¾Èÿ®ýåþ·ïÅX=w7ñ³?‰ã‹d4cƒ/% +½>/›QC‘‰[´Pm¡ùµwW›¬ÞdÐÞ>e|ïøa«¦º}Âÿ¯Ñ(Оöä›0Æm‚¬ ? Ü‘'ù‘!^Ú„ŽîQh¢áЂŠÃ/Ÿr˜ì mIÑHa3Ûï?EâéBï4ÚöRÀ±L ìîÅÿ–OKÒÑó¼Iz¥e̘]*œ­O$ð;Á³#Çò†ß­O¦9ð–SÏ'rûÿÜO\ÿ…hžÿøýøï'¶PÿÅ}ôøñæc÷ýæC÷¿ã¿ÿ?wã¿ëyã»Nê]–S'J Ë‚¢ê}‘ߤŸ„ù~}’dçNÁ>.Òj1ˤSÍ{¯º÷À¯õŒ,HŠø¯U Ô Ê¿~žwˆÄU8øÄ7 ¸qyXæanýof÷Jô·©ÜS‰vR¶œO“û±ç,jèSør Ø#¢-xî¨æ›HrfÒ€{ä|ú>¿•”QŸ„ '$hö&£<àÚ/kwÿí ªÎ|澯:ùp¾>™Ÿ¯kçœ(v;“jå¹Aÿ±Uåø‹*AŒÛu}Œä§I>æÝz3&Gq$ÙÓh%èšïÎåÀCÉô0 ñøÃ,D€‡©E߆Ãò:‡å3›Þ*Ö#‚¦g œNVIræ+}ðT HWŸnM¶Es5*VNžŒú$<Í„£52#˜éêœá€jˆ_Žèƒ¬{$Ô“ºleY÷5QöÝ1ñNHÏͦ-Ƥi¤˜æ2VaÃ/M”dqÚ×ç¾Ò FºÞnÔ£jVNÚ®¿m§£Ž†­d\ŽÛqöz ”Œ&HæÂ7|›Ç¿,É’K Œá‹SÍp’…Nòcô®!·]ËvT OYº«’Ü A¥A7³ ÂÐݼ/•D¤m½È“g'1ÈÅ,o{Tâ-–_Œ u‰ðO) —/îbðÎÀy1òiåìROº½PS‹KUJ£%§Èo ŽØ"Œ |;ã[ÂÌ&¬ok^¦¹l˜´NJE%5j£ëlŒ29Ëé´Ñc‘ šøf¬‰ú>ÝÖR*¯Èå?Ìcî¤%ÔåI ”S°]MÌÜÖ©—.Hªbjlf1…Il¦È³bªRÂä;úUÔã> ˨7ÈFÍ'^ð %wZZ†Ò%ŠQõ¾•x ™©Ù\F\*Ùb[Dcï5Ó‚@BƧ:C"55D`†ÎìÞ·¬³Š54näÌCLùÌqŸµ”PÄJ2$p\GÜ›Ù8fD~WTJz/ ¨)ŠæÜ&¾×Vz˜.Ö0v©IA_²ÓX*Ó,kKCV 0/¸ŒxUÎRQÓ™uº*ã[Ôl ³õ2–ÎaÒÞ,r^©ô»Ê†òÛ?ή%ô4nˆ´Âã¿Îó¹f<×¾EâbØ( ƒ>â%Q\Ë6ôÉ_>%J0áMùºP­5Q…cRˆ·ãDe‘ë̵y{`•'á¹Îo×Ý‘ö#âg2Ø•ë¢ dr /¼ˆ¾·á‹u3>µ¶æ›qãKKYð»É!Ø6Ñ =Ö]9 ¤ê‘R9´C.Û ±¡o¨¼£D ¹ˆxljŽ  B5§l&&Oß韚0vm¹E¢E‚ˆ/»†iœÅf.Í cg*FÁ à/LBö̲É"¬=£5ù ¹Ú÷Y* ¸Õ¸ÞòVA¤"\ÃE`è‹2$Ýd$MÓ‚ü%àt§1k]Sþ€):7¤†÷¤N§ÁË°†b5vY­÷Lƒ¦‡B„kQ™‡»¿òDZR?MYÃöa+Á­-7¯Œœ´9¨E±|ÐÛ$Ê ð{6,Lë|¸9œ%U\0¹b¡¸ Ò¦“ìùÏùaZKÁ2†7³Ô´T. *\Ur×r‰HªBÓv|]„ 1',¤º‚ÕÚFò ”t¹ÑêÞ¾­§ís#E1ôt°äQP`39¦‘h †$Ùˆ‡Å#ýV“¿¦v´w˜.4uíÚË8³(/¡úP.Y„½³7/^ŸižβkpG4Úž[ƒü¢sé*,˜j‚´#Ži6³‚X¢“ëYte´›»ªŸX¦P¥Å$‹ç鞽ʥzt|z¸s ©WHÝuŸœ¢è¥¦¦j¹3®¯fRøå`йÏ;åôrýg§ñ¬<¿ü ›ÕSüÐ>d¡5hdï™L-ú9ç`5l2n¬Ëæš¼'ÅM•pÖ㼚’BP)îkž$¹Ú¡ ó£±`œ„”€X¸ïÄé¯qA¥Y™-º^¨í*]X.†…3T@{î($¥Ý=äV /¡f¶fVIòˆnêB¤ŽD}Á§²à¦Ê9'ˆ·à©—õ'õ'q­njHB)ˆTªKOóéÖEJƒ)Ê¥jà‡â*™^/b&¤Ä;§PáèŽB« û3Xþ¨ù†²Ì4á¯A˜¬/¶Ðaè…BC_€‡ž&DH8MØÈYí‘d&);`² e´…1WãËuùoAlŽÃÎ #ÜIh=JTÞé½n†´”+œpÅe˜ìÂ’~ªÄëËõá“{­‘,/s }>k®æÊŠ¨éÂ3 ìhX¦ïkù32ŽÍE9Ù“îá-¥jo˜T‘²±ø$T» ÛßÓûD_èÏUÁ°zhÁØHâ *üB^ÞBPV’¤—¥ÔmóYwѬ¸s¨þ6>Øäi0­¶o¨Ð ŽP9;^~'ì îiDª$QÈ>^ØΖ•ù™Q¾ná뵂¸ì(_FÄL¸²Æb慤рB˜™QâªæzÔší 3šM»šyccÍeîíÙÔŸ´—sæ]›‰eî}}÷ÔÆ«éêù‡|0÷öK°ºju/yJhe8NUhLÖdÔsƯsåþ; ƒzl*HàÍë³òxHÒ« z½J¸å¦Æ2ë S³<…kp¡ê'ÄAlšÐù(Š€æ)»0µ1î‹<ÿE v³He­•0}“è…ä’yNL›¸?„º*Ó0•Ã’K»‚^:$ãóU^¤6&Ñ;M²ÙÕBZ¿#å¿à³ª6’j º®™ÅÜ £è¨üšm‰Gt–½‹Q2Äx«†Àú¨`•9‘¡…âyÊÇ¡ ´ŒqaËô˜®jÿÈS |Y]§Ô]„ìKõRT /ؘD^¬¼[î/¾É¥NÆB ä37³ƒhä¸Î6ôï&¹%ëÃ!^‹ÀöEûBhU|ži­Š…(%]Ñf%z•]»0‹ÙÐBɃˆ{FÞû2ñî(î(ã›9¿µ™ÇÌô™ÂÙ'_L95µÊÀ“üÃÄHå´Îâq@¢ÝسŠËR°­·0„—Z¼I¨ò&Áœd—gæ)©ßš9 $’„¶>åÛBCLõ GžÙ7·²M|¹ŠnD÷Ž¯vQýúòRJo\åNÚ V‰wˆ³äB2¤½ŒÑ‹·fƒ•ÉÅ4» ep2Ea“§ÉwoŒëàÄÊk*­ÀÆAì•Ä)34„ö¤î‰xD¸EsEQá¾áf‘ô8$4 -h„gÀrSÞ&ÓEu>,ÕD>|Éq(]ðl FXŒ…in*=c¥"¨aæj„À´b(ПTá‹Ñý’Eb£êªd¦yB¯žËpmÒ%oÅÚ•Qøz;˜ms}LLŠ[û¢@Ð93ùç[Ãù@´ìhV¥f˜V sÅuŽÝãÖ~®ñR¤ú1~ìÆxpU–¢åÓ˜Ö2%)‹½ç—·­4Ѳ¥R>jyákyG'½ÆZJ[üIá»Ú]’Ö8Á:y>¦BÊ"«­`ž¸î&VéËÃúhdnq;iŽ¥(‹~ðºÉÝ”=‚ Ê1ÏjšñM¤9ÕM¡:æ^`83>ï‹Z`'›Ö®×h…þ²JH[jñ“ïÍjÔ:“[çRÆíÆ“»EuÍ>ÊÌÉb.™å:Qs#¼h½ÎÕ܉¡J*./PTžœ’ˆN#ùìÂNŸ&^ Yòxà+’s€Õ. 㬞\ÝV¬‰lãݱ(íƒL)Œ¼ñ«a9?Ÿ‘·×­âs‹ÇB}w«”§ÌòçÉNöq‰Qnk­ôÌѧ²êÉd£År¿¼0bLÊ’……þÒÛGôàmNvfb»…¥Õj¬üëåQ?èp¾:H=B´–ólùbÍA³ódvÉ å†ñõÅxoY©\}•ù}D-TüSÖÐ…XsåELJÄ4ЇêV1Å1÷átpU ¾NÎOÁìÖÁÛs s’UU~}NéEH¸¿¡Ÿ k>]ãùìçkQY:1À䌬œ†ñ+]Ñéœy&(Æ%;¾ËüsµZ“ƒ1&»°‰oûR‚ÑJi%åÒræI°èµ#NÏHcÂ[­¹TD1X‹u±„ ¬ZꯃªŒ/$ýÓœ8«€¢t>R̯[ºçôõyu⣈êe`iÏ•²¤Ña%øÛs "gQï@Å>.Lx¤×xû’ص§Ñå@.é\ÙK…_Ñ°Àg5 „3<ã¾¾¤7|LDbýäy #ŠE;%Dã½Ôô‰prFv„*Ïb¥Mp×'´—¹/k„i¦&ለÃBÖÃx]$ rùˆ›j:ò¬•Ü Î`^iÕ ²ÉLCŸi5Î&N;SMU„b§-i‡±À{Q|/^Žk+]øKpü)MžtÖÖ›([®˜¡½³ÞÙÎéY݃Œ÷öŒ?(øQ•ÿjqb_—70TZ ÔÇ— •Hz’•à<©^¢Š±ÂÞ®ù&£âõ“ò@jiê1Î2!9[\È\ º$]£ýQ™ ;3ÑqN¦Z…šõÔ¼ÿŽ–¦9—)ŒǤמýžžìDýQ|^À:™F˜!ÌosÅ5käk¨‡ºQ}’òä- ®ª:¡®6Ñ„kû§•D1Ã,¦LŒïñôTKJ¹ƒ‡ÒC"¬X¡ÑLZŒ8j—N]·oYš¥*œ¢‘&ðm9 µl½ üda1ËÖÕ˜å.hr]ûã™UTÓÚ±–¬f1Å,-¹5Í«+O¦"'˜®ø¶OÛÅ âÓuÃçÅMl!j~Ïóö%ZF“Þ*2z´¡W”~(©ÉŠÊÌîÊHB°wÅ}^'ï>;í)½‘„&uŸê”HS|£ª÷1+–­ÁH™è C¤2k&â65‚uÝAŒìîïûãÇ´X|¸8ø#ÝX\% ci´#5Ô0;U-<ÈÕF¨dâ£Yf¡ëžé‡æʺ©ƒRä]Ìѯî!í5³3!º•{Ì?êÈ öF¢|û7¬Ìcã㽫4ÿ,&óÙ,Éíðhy'‰Æ\#$½WI—Áò"+¦Tÿ-¤3›óè®Ìö7&üÒÒ›ûö:û!úÛ;`;t[Š½`}ž¥\ÿ¦V=»~Ä?9÷)Þ+QðWaÞ1CáÏlÑØÐz$D­Š±Id7€”Èâßñ±YXïL%ƒ]Þvæ{ìÝ0ƒ^O2 Ìå¨<×cÝïÀC¬ i-Ø\.~q:ñÈ’4Âï,zÐP+´z4«!WÅ«€ 2 ,PS_v‰¿¦µäôyfr°qøu’žy3µ¨A6ÂÈÜê¶]VT±oEPFYVŽ•“õr$±ê±þ5Bè~®étjkŒb|ëÙ(ìuÙó…~´sMß®ÏLéDueÙêz"Õ•|ÿ•`e©PåŽÈ¥ KG“…Xb¡8p„ݦN j $ÇÖËnEpGžj8‡Ì , ñÃ6xš„œüuž¹uã„ÿê×µ/ÄŸðØ]]pé„™W‡@a3dÜ(J CE²YÃ&Z°6[ ž[È…ÄÌò$‹âM‘ ‰^Eo‰ªs(ÇG1aùÒÇ ¤²žl4Tê¦^'Ò‚¦â1‰>j@L¤t§OyQ¤DœÝ\XÊ}\‹8÷hwºÀ'p ÕŠ0ZÉMn A†û¢±Åk¤µº‡~D`¡#iDØC¦ ³ ¯<ùâ ]½HÊM©{ý[ïJŠ1i‰pq›Õ”-âÇÚˆÎIhË&´Fe,5Ê›"uKÔ¸p#‰·ê–fACbÑZqw´ÛIVwX­æ†úxv©þÍ;%‹0‹ƒH‰qI‘÷„ QÆ,F-Æ|Ó <øÑ ‘Æãx@ò&{Ø¡|é`×èë³pûR]+ÏiqHº¤Èðz}ñz)º~c1]Ë¿ˆ8BØ¥;Ô#°?óä³wD7 ý®û|,EpBëÉBëö²q¨´ù⌜ÇZ“áOÎ3«òâFj»—™yÕ8ÙÞ¡{QLÍ›»¼CZo}:›ÎóZpÁj²d¹Gæ;FÎ )V¾ºjorÁ2%âîžÅ ^KÝrÇhkå.?å‚/,FuÂ2‹:R÷*_Qxèjµ–Ä[¦}GðD¨dJø$@}ͲÊ#O™=(v†êÀ6ëŒ,LM¢JÁ…fÐ|IOƈ©“"Åôn…ú¸DŒ¢P¦¶Ž€A70 úƒ &îUf-Sà *8©n¹.µ äàüÉ«+Ü[#{Af¢paœòW‰¯Mv‘8‘†yT¯ŠZ ;W¯ì“Hq°blJüÂ÷_¼LìäC=uÓîÆ !AR~TfܧÆÅÓ±¾K7­e4—Z#‹ªa4V¦/ƒ-aâxÝOT_Ó7è€2ÓØDŒlù:prw}¬Ñ|u†çãá27x}-ò‹Y› û „é°ˆ ˜º™Ei€:·&yÚqzUÎ¥âñ·¡ Cåµ´E‹•ßÓÑ«Y0Š¤€Ò ðÆ,ŽZ…!¡»VD C­ý®»­b‰@‚M‰Q‘6ක€r—+¼# ¦3b課eêm1 ³ö©Ýè5{PE"U’äšv Êe.LwdýSrßÄšjýàòbCÓPˆöb `UOŠ±§U‹ ô™Ÿôb>Å᱘º¥i—ÐÌÔJ»‡áU±¸JâƒF’ŽZå£÷×›Ó»àQÚ>\éIîEø¶0”’ÂNàf¬Õ¯#4ó³ í@ÿœâM7ÑÂrЧ›|2“¹‰š¸c î’8'µ‘I+¾Äe É Ÿc²M „AÒ{Ï—tHµ³DT XòhŸ"@oBº6DÌL1eôµªõ¼°•ÒMŸyðȡ鋵‹¬Hø¢`mx”Ex‘ÞËÚ P?åʇQ2ž$E¯¹v<À+Â0J,Çùù|V0ƒxÀˆ,q—‹exÑ;\„Ü:|ÍÌi¸7duáB˜¿!ÕŸ'ž$‡ÑpþÒŸŸª¶º Ã6—@(@ -ua(|<5Ð,f À¶_LO"¯ÓÕ\žnP¢ÄÖYxµ>]ØMçP Ä!îFΙkÞõ?Jäˆ÷àžF‚„Xr}0˜#Ýì3Ë V­1ÑìO(!rÞ¸“oá «‡oqh°ð J›ÕïΉ*½«R²$Gö[ºU“à̤/ˆ/D 'NŒ§RÅƃA`p(ÉɘÙ9Ò?Pë’ʨB»e៙f¨IY¥XR*_òBÐ ®ËqR›jÉœ2Ð×MH—à÷ÛYl«V4µwQUP«f=Ê1KÑVÔêeEæ^E¡L"^‰ÓS¾Žn…/…óQÍ ‰#ÎÇÓr4Òµ<‰ïéÌ»‰$H¸ªÕLM)Þ ðñJJ[_£¼-õɨëY{jTÒ¤ð‰ßדbD,fåZ’Ș4wIž ž(µÉ{ZN À˜ý1ÆE½¾I7XrÔÙ\²æ¿v®2šºì°6¸$$C>Œ0˜VfAá¹0@ƒ -Ì…OA2OA-?½°zI¶$ ZšuïhAxt:Ña_/¶ä–B™  „!nháGeTÎT +h)øœ;(øXŠò ’&úZ$ded†%óïE°ýª©•Ï×y‚¤Âªþâ¾ìÒxh‰æÊHTNÜÖD  p†¼î“0ˆòÉœU¶ Öwæ`ÁÜdD%œà—i^ª| š‚!Ñm%y_RIª^±-«®É!–w¦RMž—Œ-|¢–ðhKjV±é‘Fþ©ƒÇÅòÜÛ#Qxi× Åo„ö¾ Pid«øEœ¨æžÉ„n|·%)¹L¤¹(„T}e/_nuñEªVƒc¬ób!Ú°ÌÃÞIvHËamDÄÅ!Þ’kæ’„˜h­OßÕè}aìÂl_lBp‚>á¼%€*ôU5÷ÎéÐg‹Ÿ¤~I)¦R3åÅ£•„å0tþܹðJ™†J¢˜¤œ´fµsâêý6%À àÍB¨ÿ=ùG2™\UÄÅwU"…lŠ(Çê&“Šk¾àbÌÀÚÁ±É†Ñóo…9БÌÇðS)Ú»1(ýÄ; u£ÿ“…Íã Ǹ²l´:%•¹”³bP·¯­U·Š_¦YÃÜ Ž … ‡ÉÄŽ‹ AßÀåˆ\Nçã&æ:¤p×”V|wÆÑRk‘@s_;™yKšÕÀø^Ò8=*ú(£E^@p@ÌUjýƒ?ÒdI'Y­#zIê#ônp{ÌœúÌsñ¼Ô¬4£53¦¶P¥³Oó:z UW·ã31Æ:=-[6²…E.Ò®ìÀ¶›Mjj™ÐTxÐ89pgãâ©ŸÌ\1oÜU¶|m‰`t €ÙÌâgØ²í´ iÞGTÀ`35®ú¸Y42´¥=Ì)k“ û¿úSö>kW³[‚¤¯ -tU„K£mi&š‰d¨X%šÚt‘ºeVT~óï~õUZO÷çÝï‹)ÃIÅØ->§Cº¯gö+N‡(wnÝÙswݦ/Š™­tj¨Ó5 h‰BP,U­`ýø½˜B2ŠJÆ€_%1͸1–9îÎsÐÃT4ín2+"«³3’a2ìÜÌMÉÇn•L×Uc-E\lÈÿã >@žÐÇg–×D–“écЇs5„à#g}e¬@$¡—b¼ƒ¶«m ª¶èbÆ9ÈœòœƒJBE÷|«Õ¼Œ<3zuK”ÁzxÝŽgÓïfMÐ’LìÊ°e#)Ú­ÖW‹0(É"Cê-øà ¤s“ëZI•ˆGD¯¯íž1{êÿúVúåG›©YQOG ,$Mš¶jMÍG#´÷W±1œ‘È3źÎC8¯ÚòÕ½nš!0*ñ-Ýg>]RÓù$j&ò.âaÓM²úh#½®òA·‹žÔktü¸É)¦7vU¹+-–G„•ÞV÷82v4²(¬êî´T¼:sWMèUqN-ù±8‹IPhä“Ä ï—½ ²¶eñú“Û\Af/€fܶ"ÎwgýîÑ«Pö•Hœ3+*&¥ðX\.­Üþ£AyãN%/Aì2ÇèWÅëPDÎå-nÔ"^U Vܹ v“v^ÓnUƒéöT¶ñÖžØÚr§. uÔÃÖÄ—z‡˜Ûg„'†ûôœ,^߉QÞNDŠ*ãñöäA郅`—ñìLxT®ÍB@ÒãRIÝPÍæççåtl KBĆÔZц[$óÃáÉéñÙþîYÿ‡½Êîõâ– ÞyÛ ´™fnû¸FœR8%Ï\œrDúX%䂆±³ÞŒ‹’Ó(¤‚’æ@ò—b¼½å!¯D-ñ Í«‹ü¦vÄ/áÞa·þº:н!(¸hâà#Wä:”M§¶‡!¦·¼7%v¯A«3R²ù~ꦵø¦€¦è„kuŒn*èxI —rŽ3X_eÁ]ëKèÖé;Nk0d‰¼ÚîióÍF·jÿ0#Ë8ÿÂ[Ö4Ï–a¯kJ[V`Voóiù!uíÇ#¹·ÿrçÍAc50;Æpoº*yb¤ÇMq‘‚¢ ¨Þ¸½Pqp½‚63úÖäžÅl+ƒ‹8MO¦È”Īô´‚;1,†(õ÷È{‡ $[šó*¿oçx,84ô1”KcºuóÆ{°Ëyýzg'(¡Ò BU™’;ÔðlpMºÉü¼ZjEp½:͵) øúæ£Gßl¬O6¿yÒf©ƒõ8ü¨`ÿå/=jû^[¨QåÕü‹/ZéÉÁ^7ýâ›mj颻ú ·ÐÃX÷ßVÝ¿Îì¾×̽²4ªX¥žÃü—¿ŒZ¹.@uŒN¼c:q¸ˆÀÝîÿË_4¨ôÅX2ŒgÅÔ¯ª¶·›¨¦’¨“, ÌÇÁý¨q@ߊr¯HD2¤)"=1 À I,‚C'êþ"ÍSý†Ä]eiú÷qïí1sŒ/ùµ1ŠÈÉ0»¦B—¨ž}ˆÚ Çp~ë】³u̾%†eŠþ(F×YæÏ øñQý¦‹ÚbRâñx犂äQ¯A3Õ-8y«Ä؈œîÑŸ•}ÞÛǽQÝZ ò¥lFŒ‡{S‚±VÎð,p~kò‡Âf—tbP^Ž I}¯ø¹eŠi|Qtõ˜À¯oÍõmZ™_¾˜ThðÏf·ˆ¼E "DÌ.ÀGõ‚ nK kø:·WÖ’Ê=¬A¬£É²÷ÖØp˜OE 'wΊd-¨¼Ü‘ U»Ý2?¿˜€Þ°s7&£M.B]1\Û‚×`)£¢åÂsGÁ_Çå ®¡¢³.À1\K5ŒpszXÿM NÔXû‡ÓrR¥«"É7oFü«C£ú“>ö4 Íy_᠜܊þJMÖêäÝ\#åe¡<³xžS'.§äMwÖ—›NuY0lw®ºP÷±6–ZÔ©dî›ßkƒþÿçO¨ÿyº¿³w¸ßq «Dˆþ7|Æýõ?7>Ú|ò‡'Û›[[7mo¡þçöÃßëþ#~v*!C}ÜÙÈF“«ìkñ9rkþ¯ŽÞ($‚ˆö*$*Y·b ö´[;rbç΄Eç£Ü‘²·0Z8+¯Ó³©SÓo¿¤”›¹üìŒÄ3©?"¶4Òuq®yr3j¤Õ“KLþk‹ÿÕ㯫e@£§I²¹ÆšgŽÈ†0ïUú¹<§TæÏZaAõf&Sð×`³s¨Jùl ^¯f™"ªp~1TÏw¯½ÅîÌøŽPPjD¬+sjg9´°—ùÓ_íR{ºÎ%Ç6$f%wSÜj]!]óÝRÔÍ8Ux´Z¦~t“¸•®q=ÝfO™Ç&… ã°…Ò,MKó¤ ˜½±šŠ‹>6tyÄÌëvNb%=mÂŒÃvÕÝTR•!KÉXž;3 ÿÊ2Xk%ñ¹* ;:‘)›ÙÑï~'kEfqý¼MŸ8”HJøè•ø!+Vt×;¹ËÜKJ>˜îæ…YBÚ_ȶžHƒÎ]³“-1 á84¹ Ì ­4¢ü!ýÙıë×ÿ}FÒ‚þ ¦åo«èÞ¯ÿonl?yü‡Müâ.xøø‘Óÿ·Ÿ<Ùú]ÿÿGü4B¸UD—Pndë(ÀKôZÏO`q§lÿrŽyeÓ¤ðÀHˆ;(Ê‘ºÔÝŠöE}”$š7ƒÎÕq ¹b™&V¾(ÄÎÅËê!¢µ&Á¡H†ñm¤7–“ UëpîIÍqîÐsx9wZñˆùˆŒñ+_2™ˆu n*ø—>Õ 7¢‰~Vˆiäþuúºæ³¹§ûÜ¢I.…¡†âY÷ÈK½ÎIX¶dÔv½¥¡àBHX7ÀtDìCéÊg+žÅc¥¸X1oµŒ­é4Ý9êuÓ];KR›L­M_¼È5é“QoòDBPaD)µÔ×eÚ¹±êIÔ¦ Y'N nºe3L²E¥ër“dNM+sÿÆ¥ CˆÒ§;J§Mœ‰&¡ë/*­¼@ÍÑé°nÕ³–dQ¿zjÙº2)‰›e§F9•–CÈd@™A‡÷|v6œ-〉fõvãÍ€¨HÂÓ@žD´}>ïQ1Kxó:U7á©ÒŠ4jÛMFª˜%ÎÔΔ8ݽ—‡™˜øc·ÊÃ"R56„ÓÔ ÏHü3bÄ!|·úF!iÄs?…½^,±Æ{¨ºð.Q§¹—Æ wjD/Ì*Ÿ¹-z!qvôMHƒ-±Œ´µ¡O8$Þ@ Å$³Š Y MyîLŒ±ùUòà/(¨N! ¶Øè:u•PXÛƇ¯77€‹}ðÀ.ûº³y¾áº±räþÎééÎOGû?º+îï ò‹ü3qš¸;$,‡ùÍ¿ý™ëÓoÎòÇàððu1p±ë¡eü©LLõ“IçÊ-£þao·ÿÃþé}W3Q(ùX Ž˜ ̬Lì{ð@1ඤ.<Ù}Øa«~ ÒÇ/cw·Exè6 µš×з½ƒƒö´]7>Q§\; …øúç9 g¢â1ÞjÒ7ºÉ±WkKI¶þÑñ™}™x!”CÄàÞè‘ø$W|—öè³)Ü­¾’ßU.ÙRx)«E_Ÿ%Àˆ3IF”¡:ä?JãhEhK¬§@Âdââ"*îÆʉ'6"î3c²‹²¢ÜMÍq¿£‹-ïDæ¤ãi *¼½>/?ð ad±>ßõH×9'©è–•‰ö§²›ƒ{ \< ¬(&²Æ‡ˆ4—K¤•0•#”Þ&ØNO:¹Q’o$7R4Ò Ü‹VòÝ=^’ÊS*L¹1I›]Ûöñð…Ã^ú£{_²rÙꢺ{åBM9 }¾8ÝØa»Ôw16­ÕY¶aj~dÔ­ê÷{g{ñ^4ÅBIˆ™n#‘Änׯëú%8Y1 2l÷ëoÒXÍqsô>Íyî…êT"¥Ó•§3™2»YN®•À§j‰sA^Ü ôÞ÷õº¯zÞ¡ÙÐG@·¶S½ÏØ©XnÁköàO/W0‚y¢/çNB¹;ΩqŸÀ×tA*Œ6ÕÚ™­ÎÛV T“¬¿½ÓÞÑ[H[¯ ï÷À- ˜úèÞôd÷ôÁƒ^ngA}v#ñMW^D±É4÷¨Þí îTj¶c Owû‡ÛŸÜx¦ ÉƯíÎŒ@N»·¿»ŽšÏÙ_S×vzX磬½meâD¨æ•ÔÏ»â‘u”“Âβ»Ngûæ¡%kjÙ·óiɪ¨DwJÍùËóÐ…y#hL§‹] xÍÍ*‘nDÑ=¤SJ ž2d§+®Y“KÀypööû»Ç‡'݃ýÓþÙAÏÎm9@€JÌÈÑﲆ1ýƒ^?4è†O¸91°õHÖ…Ï›•ËkõZ(vBÞ=íõÉú›·Np2c)XN¬„RÂ…XV!ç‘k>iÏÊ6Ù%÷^ÖÒÿ…îºßügÁÿ—ßT¿ÞøM]o‹ÿonºÏž<Ü|¸¹ýhc{þ¿Ç[¿ûÿþ!?NÁp{fÿÇ&=i·kfÏf'Ýa­eû>MíWˆÃí­ób¶þø!rÉ`[UZW7‘ ˹lGû»NÔN¤ÕІû9î=Mß¼]gS§ßt¾LÛééæ¶ûwµGñóCzú°³µ&ïž¼yêþvk¥åþyÈà-ÞHW»'=gÇmu Í)ÜÓÙ±§¸×)æÏòRCÛÜMŸIp";/ƒ щõÁÀÝÍòwËë}¬ ×Àã‡Ö¿Û9]üΉ×d»C9K8•$C\ÿå—_¦»¢=¥—#К#ÑC:AÜg÷ÔÞÕ7{%…ÀçÌ Ó‡tÜÀºÃ;ë¸é\}¸&Ðëñpu{w ÁMvùŸûÌ’ö!²§òÏ ,WZL/Ìñ™üîKá5o“ e¹-]J ¯Y#¸¢ÑÈÖý­¸WZÒŽÓ¾ð+Ü ­Ð”è¾aåo§OƒˆOƒ’—UhfVýü¯sƒúrïvstØBM<‰N·Ð¡¢²S6ä\÷:EØ-þ^å³=÷Ö=ÌÅê]Ë•3&'í¬Ð¤[c««2éWéƇí ÷³–þsúÿúß¿Jí‚vð3ifOtgÃBHù´9hþŸû—¶ý56ÜÒ‡H{½`Üݜκ¼®xˆKá‘õ…!+cßu}Bå~Éÿtm,\´¥WͳKü¤˜ ZøJÐ)¼%,âÚB‘B«þ®¿úJÒšBy¨9Fœ}ÇÅ`0׊l ˆåÑPÉìÕ:%ÄõQk…Tá'¿D éPâ÷M£O.<­í"¦¦ÛÎ{?ívwûÝ£ï»G¯Œû­˜«vøÀ¤v|uYb4s5QÒ”ý‹ îýHxô/ø.ÏþóR¤I‘þÅyUýzÒXº°´—¸C0yäq·‡ÓÞÎ÷;‡ÇgÇéwWUö.ûãõìªs^`œóÎ8ïüXÿÓªÌï?ÿ‰ŸýïÕ›·Û_?þ-Ÿñ‘øÿö£GÀÿ>tÀ“Ç[Àã£ßõÿÈ`ƒ‚Ë ‡UŸS¨Ó~M²?|ý8Ý{[ü4”ÔôÃ7O=¾ÄBúRsqÝ¡¡ëêÿyÓÝýÞ˜ŸÊ¹ºé€Ýmow6:ÛN>½OWÙüZ ?k5Òå¹jßBe—Y°™Òwx9ÿàñŠOáQ|VQh+Ý™‘õzò¥³ÁUºÒÖ$œ•OHÎh_áL¡¯ýþ¢JÛ£éÌIð‘‚l)‘Û#8'L+ /tRid¬LOõÎÿ ˆÅ ™Ù½Ã§Î^˜`‡ éɆ¥*dúÈ´³Žž;€Qr!aá×ôrŸ¾Îå q·ßº)%NS¾\á@…GÏý=Möœ2òâtçô§þÉÎÙki!”‹³Ú€¾ð]6nrªÓVQfjm\Ð7;‡B8—[ÿäW_8ƒ7¿ }>­z“-Z‡*7Ö7?3ò _FjepS?=›kéŽ2ç®,®¤£ìÒ–êlŠú¸­µtXÌÂd*eÛ§Rr%‚Èôúz¬ì§¸D îgýK q¦{û/޼ꟽÆ.é—ëxÿv»ý<Õ‹ï¸2±Mêt£K l° ¿)IQeâtŽÉÚÅÅ,æ!lþ*]nãflß­ Üg"ÙŠ:[‰®K7e«NE»c:׌n7}Ñ}åÃ(äU”~fïœ49©2§™Ùxœ½+'å|Tª>ùf,‚Pxav³ëói1¼ÔM±‹Œ$†f€€‹FŸöà…W¯ÚC\uf®â¬¼pµ^óc1:'Jdàä&ø§¥}{\ºûb;ÝøñEÚzó}ÚJ¿›¡Ó|ûÒÉįwŽ§—Ïå†?eã9vÈ–;qE.;ní©Ÿ×÷)…jj¹ÖiLÖ wûØ@8VJíqg“y$Ûˆ‘Nsê‰4*ßç~ûðŠ‡Á—’š?0ôÙó17"yÞ¤„ F¹¢¸RxœÁÏ0ð iÓ‰àmJ·>ÜZéh¦†úñi÷ÕƒC÷Ún”Ò­¯Ý =ÝÚzºùµŒÖW_}å/m\õðáSgóª?þ1m?þú›Öãô+ü³¹™þñÞð˜ƒ>¶è³ö÷¬é»äë‹BþýöÛä+g›¸cêË5üÝõEû⤻û…|ŠÃ¦/âÅ}ñB~ÓïnFî£G-ýÓ5éþû¥5 ÍÙcÑõ'›_£ëO¶¶[›[¾ëŸ¸žº”n{ ËÕµk£ãÛHïéü÷ÿÙÎ…æËêbûËôüûPÿ}d¯ôY ÔÛqïåú¦VVwÖw+4ˆ7ÜÜ|ô¯¸¹ùøQk+¼c4þ /1ö«+'¸«g·nÏ~%| oÜ»ë€ 8‰©ru˜Opm'd7¶Êˆy‹"8̬=­Ù0”äºÏ¬À$°eHÜòZ @I™ ­Ä0,%i1åuŽ?o¦¥±•(· ‰¤Ø_¿‘íà6úÅšµýº¼‘ôÜž¦^µÛ7W¥«Ú¿ÏkPƪŒ![Ø£µ·Öˆ×cúe¿X\ÛmH½$ŠuWJ+å2ð<ð¦s”‹°–;£r½S*Ì?°ºO¥hÐtžºtãw1a ò¦#mjŸúƒëaõì‹ÏwwS3ÂÛWéç qƒÖ.ÓÏ]«üOyþs…_ÆîȘUº 5yìÌÜ}ùÜ U…Òï÷´gò;$%–uß59,¦µ»>—¿h\ÊõêDðUÿ}6}6.õ ýÁû~ü}NV4ð×؆Ü^:9Ž­†òMØkwv§V¯åEȾZ ]™¹®¬æ¢'8(®ÄêäJG6éÃož´ž¸Múhë¡û×ö(÷fê÷f{ɤì¥íW÷χ- æÄü—§7ýôÉJX$om|³aüÕÖæ¦;Pl4d,ÂH¨ŠÙÌàµ:¼UíS\Œ[1åè^_SfäüT¯ÇGíÔôé>Þ¼Ò—øü?ܧøàïŸÿÇT,½¿wªòs܉øê‡ô®+„|õsýÒ}òž!ãú‘Æy+§ii—B“¡¼ºÞøòËÜ«×Ç¿i‰|õi{6ìØOÞ¯÷îÖìU¿œÍøþá—‡'n˜>„M§ºZ¦Ðlo6½öÁÙ<—˾I76žnn>u¿xfsãÉt™¯øËö×\ƒò*sÊË;1ñ£–Ο©-ê¬øt«óͣ·VºÝùÐùP³æ±}*oó6ïìTcÛÌ÷%N ÀìV>ϦÎÞyæì ýr……fÇîšT÷ÊçW% ÅB>+þmûá£Çþúqû˶íÐeÏV‚`@Ûú-’æÜfÊõOG÷ ßü«Ngøê好þä¿åý'þË%ïoŽˆÿÑ÷OõýG8&–õr4°¦K:ØvŸ}é:Îü%çŽþQV[öëy^VÚý_y“û}É8¤äH–#••^žQñ¸0gPVäN´QüLIgEÃrZ˜Ì=ÁôC¸sDk ªœ,ëæÇQ²ŽÁ×ÎøaOmØSvîÇ­‡ÔÓ7·ž<2EýAJRª¾Í'?!!4?@Ÿ>÷y7·MÕ·î%í2#r­_4õ ý þ€•Ïã?í\]á…ºNÂŽøõ÷K¿Ú§_®Ém¦Ïþòy>¸*Ó•·¾¯¿¤Ÿ¿…–ÙÎÓ/ªõÿÝ>]_ÿâ/îöúRéç¼3ý\ZHùvøúK÷UÔtºâ¥‡îæ“ Úp›O:Á·mŒlþ"2ffÏÒƒ<ÎecñËqðbÏø«?~ž­t>W›ºó¹TG+Ç+ßú‹fpåÈ=²Ïðh—5+ vþ’˜¸sÕ(œÚnÿ^æáÑsä íà»èIú²NÃøÚ½ì×Û[­oø®îîÆZ òaÅ}¹¸ÿÛ÷7Û¼Ÿi’É}[7[¶yÿ—ÎÝo¸w¹r}¿à®s_ Ø, ]³ö¾¨]îüŸ#[ä™^w’ø cÃmmnXüçÉÃGÛày¸ýø÷øÏ?âç¥3™Ÿ"YäÒ­öYúr”Þ%Ék!®`ò^~«ä[ÄÍÜHV©ò™&-5pÕqËÒª£Ê{®$ Þ<æÛEÄæH¦±ÊU–ìS(…`Çý@ãpº®u/úˆólx™?ThBo†ý¼3½nonnn 2å~«} ¿‘¿EÙhUZ‡%Q“˜\Iˆ%I>C™®_¹~¯»=³Ž´ÑJ$Kƒ‰®L¤ƒÄª8íœz7·tr$ßïÀ—)ì,ï‹,=zÙK™~ë$RYâ~"º¡ÂŽÎýÐõp¢ö¦¨—¾2Däà'(@eo²vàl–±þëy>*o$OÂ×ø@ÌFp¹è;ø|Wö˜µêŽ„õê]qq! þÀò—éâ¨hcÉì=5»ÇG/»¯ú½îÙþ³åݯh„xä™»¨-F¯çŸh<*IŽÇiÒ1mY\ÅbX5f 3KTXœw;E4—…1ωëîtäQ8 Ö逋éL³ƒ–.¤–2ˬ¬wØ÷Qƒl)‚Uú;ƒ)Ëh,.:v†iGŽ+40šµ-h·WŠëkz«[Oø$Þ¶:#©é\Ó¨ÁU³aŠ]Z³LOÿÈô:),¯ùÙùÔ@ç†Á/ŒZ$þÙÐÒ5ŠŒ²âZ«¿¾GKã…y•0Ë÷å¡qöyï#„ ²)1íìÅ4ŽœÝë¤ÙiéÔ-wtòõÎx8ÍNwóa1ïÒï²~ÝüãÀ dg~}>èäÃùsw“hl8«r¤ <®³btíÌúÊË|”~'uø×oòóÎ0Çí'B[Á@þÉÎÿ“¾tŠÍ¨pCá8ÆŽž¦ßc<ÓïJþÕy‡¿þXŒÇ¥SÙ²YÖ@4ôRGÝÓºêGˆV‹¬v'Êqïlw÷Ù%¶Ÿ¥GðëxHhmŸY“¸Ëb©¢ÈYÝùm´°ûöíÇ.I>“da´@>aZM’Ý—;¯zÏVÚÇ[iûb\¶¥R4¾[Ácîýúä侯öôÛt¦å²È2¯’ÓûÞ"›&§;GÝ÷]4ÍÆn“'G‡÷]4¾NÄÍDßÓ'^ `j¿Êg“Ëé¤kFE>ô[Õñ ¬@öí榻ÚCÐîºB—þOëAÿ_ý úÿ(ÏÞ‘ô7ÆýúÿÖÆæ6ôÿG[7¶·“ÿqûáö£ßõÿÄÏw¯ÏQfêµ³þÜ?gݳƒýço<–uæ”î·RÒ=‡YÈ­˜ròÄæÙÐýûâxï'´¸ù+Û¹Ú òE]LëƒHF jpçPï$ÁGT3CâÈ|» lÈ ¤ÆB×=Í™¢k…~”ìcCY ,UžËùÕnÿpçààxW™YN I²þ&¡1iÜóòtß8œaâ¸óE‡úhD¨+ ‹µ§6ákW/»”E˜íœúGºë”¹1t)n À_­É† ñ·RµU¨¸YOVÒ03Ë„5ãHo7–‰tÓW:5ãj~ŽŒX-¨–© Ô¦©Ï`evqædugˆ@”G£¸2MT9pt&ÑЃ] Yä1|rÖžÊ×U=-ñÌÌl%¥ÓîC0©þá+F3O“ïßI™onª-r¬‹ˆ]ÖXZ[cRÄÚ½gÜu! Ã)c4}ue’ƒ5Û½ïJ£òIôeö¢jýÝP¬Û§3‡‡e33–)PC[>K'%Lƪƒ=ÔJï~£ð\ÔZ ²Jb¶¨J«W!ÓØ“¶?’¥°T“e|q³ÛŒDsEšHAEvW&0»Gm¸îªº9äIe¢z"iB[פ‘jÑ’ âÌŠ6siÏo¤¡c¥¢æd1öÙŸˆ•‡(™…2Ÿ²ß_vöúû;ß'Æ`ôWš&of¥f;3× Óßòi)ùáI6‹²GÜ2˜O:á]¢’u¦L 3ú2=°²1ÌX´',jäçÖÕFðºraL„šì]˜1+öRU~pzL™Ô/Äê¸ÞB8`ÈMîzâ_Xv¾dKã*kc­r§ŒŠG§Kã”hY‰°ºñì¦sR[*/I|ûçgÌd3#šÂÕ}7Q\èÄ*¨ Á])m[K*d›U+ð;\–¬Þ8U>£%»EŸ±3ÊCJ¡ý×óæR¯“Òxà”S¬wcŒ°ô+Vå¤w’Õ—dÒ yÔ’en®3`”¦‰sz…R7ã¨Pz+Á çÓúé ^/”¤½`ãñคΘXº9N ÷(½z"-V€# /ÛÞ;Ýß랢<¥ÌÏ|­>yyRˆ/æõ#£¿•”S-à*üCh7j¢ÅÑ|ò4ž‚ć õ”¢6#òÌ©Ô„V’Ég;ÍÍÀ‹ùÌ\¡·`ùÈG-h¦ë¹[fdÖõ'Ô{pÒf—ã²b¥“¤ò DŒ×¢^¡4>å2äû&WnŸ˜€©«CZID²ÝDXTF*õLjŠ6MÃRúd«bYÕÎ×Z3‘]B7ºOÝ ôt‰Š;ÛñZw0äS: )]õ’X‘R×8ª'µÙaPËQýSÊÍ@S«Ðͨ¼è}P‰ËÈ^"z õ*ñ,F˜M´‘P¦Ž­MªêV$¸WÁÏÂZ¹ïEÇÜZß,•“®6/|#Âhkâ¢I—É!!X´õMW¥Ä+ÜYÙK[pjŽ‘L'DJ°¢’²Wâm¿«Ö¤ä! 7 (®mµÞèŸþ0«!@Ýoͪ¬¸‚DLòF&<¯sTø¼¼œW¢;øeµl+ÈžJ¥]jNÝ-¥RH¨PfU‘H3¶¸Í3ÏãZ0^;Qø$³ûÞxõ¶CrÆ‹Žo{•ltbŸ9¶â¶Ko5 µ•ge½w²sºÛb%!kËN¯ÞÎûý]·Jû»¯wºG­D*M½ýúñZkÉ"N¸ddáÊ] «RCVƒˆ"ŽõpTÑä"MÔÝêg›;n¼»n›ç«¨B!±rRÐA‰”ÄÖbÀDT1¡Ôj9W¢q]_þlÈŠ¡”Q‘¼ Vºz½õ|gœîKøC ÎÕ1í°cÝ6äe!*7a}om^ù=®ûÉ:ž¬è+°|ÌöhHr ÇÉéþóÄr'L%ŸÃó ¤ÎŠ¿@ΡÕñZêgÉýá¿–SiõºU»`õzíKwU¸ ÇÒê„—Àu¿ú¯ô[h§ûÚÆd­Ukc÷õþî÷Ô‚z«¼Ò”ŒUâN°KM›ˆ)&l:o9 …εŠš‹z!ëÎ’DR;Ç4òLSf<%§•¢ Êû³tSiµñ7XE&„¬®¯î;‰”s6÷JEKÆ ¤˜•å;FØüûùl,¢•$ÁsÜþaUï_NþmsãÏßú¿ ùuýË´ùßòáÂÛiƒë üƒ/×í^u~‡ûûÑëÐÜjášÞø6-ÒïÒM÷ïW_è݃ɿvßèD5ËòbÕõoÍ}/=ü{½ÍÅ6d幆–ß¡Oýæ×?´¶¿Mþþ ^„Ç4ػNÎi©9->h%@ {* ¢U3·óQÑÝí‡k›Dµ¸0%c@ÁV„ÇË‹t•Œ¥Ñ<ýÚ:{öÐïˆÕã±xÍ©3ˆ5¥õÑ`„e¸776n\äw·"Ó]d~Mµ„‚jQOý·öóÙg'»Ÿ}öLšÝxøÍæ†M ÜÆ~$f •÷Oèl~ñxkóbðõ't6•¸úG:œM/«§éÃtuãÃCwjoml<~ômo¼ÜÛX»ïîìíÞÑÞ&ZØtíµ·ýpûñÆæ>Ùé~öö~¤ÙÇmк²‡FÁ(M6_U¯‚ŽÖÐàˆ Ùót°á\Sli:ö}Hñ³È0qË4ÑkEžªµFþ”ýÒ½÷\ŠÄ¹­ç5„ØfL |Y¬Œk•`7^‘¹o:9s+]L9/ýq{h:\Þèˆ.|¡éÀQ³I½YÍ]iŠ4Q RLXÕ¨]ó1YjÍ×sÅwÜxâ-÷I¬j«ÝӼ͕o*fl*]Õ>]š[~‚À°>dÉ*è@¬OUió¬­dÃó߶Œ£âð_Jýl-i“¨.hŒÌÊÏ·03t±Y¡)•L6è$RË|N;›‹5éµ&“·?êM°êRЈ­tXЫ ÜO $7£˜ã £‹¶ [êQ²@ŒŶG cò ÿiTöQt^‰0ÔÞ³˜Eöˆ™ÜV€§a?ù€¤áT…UìvMÅæ¹”Uªj×Ünûãj>UБÜWñ ’‹žœ™*7ŸÅôÝFPiÕˆ_¼Ãßdþ*u–¹S4гçÑsmlQbD= ¾krzc֚ŵNóák׌”Ö\[ò0=õy+¹H­©Ú†8óž57£ÓRÓêþ:gGÓ‡cK²ƒìaZ=8øù²Á•VlŽ‚Lžßû è3‘†#ßûïÒ˜Gû aò©½¹Û™—q“zÄÁTú®ûü¢,éj¨-“7¶LbP˜"À¢{–dˇϬŽj[D|òû-ñ„O NÌÿæ‘bß­ÏGÚXÆ @}»¼Ï{}§*ïìE}­¡Çä:Xe>nÀO@“á“ ÁÙi\ îÒ“ÓîÑY¿w¶sÖKW­>Óô:¬äPEV¶¸nÉû¶î&Á5pp||Ò?>êï¼8>=cZ×-Ð0l—¥Œ÷ I{!РNjUãŒqä£$¡<µ¸ÜÝàÂF!hbZf4k,î`aë Á¤ê‚êp’ –sséÞlÍ }cZ>%n´Z ø úÚ%™œ+U¬¸P(á6ÕH³*²êJKòësÐq0oVª[`KØ 0øŲ[ ˆ<šõêv¤•Þ‰5ÌÁÍ+•”Π5ÙJâ·µ ‹Vhí'£§³6 ZÃŽwœÍk+ç¦õ¦åÄía-!•'4\úS™'Å=¥:9 Ë!±¾L´Ô…ÒêšFü^-öÿΟ€ÿ •ëg|ÿóœOOoo>Ùz´µñPø_ÇÿüC~–â^-„¦¢zÞß­ËEn«ëMðó‘ðé o¾Õ+­ñ׈¦ÍBÙí½üÚ xûǼ€gb!X–ø ~áÎ.ò –Á’ óøKúšâšSÑqQ¡ã}á|à:Õˆ£ñî>ûö-D5?Tú±I"š‡ÙÁvÖ\±Æ QsÃN–j 5…˜¯Bçûr˜4ä „$#ãºbwäy‚†*Ï…©"e7ªZ^Cۢ糳ìqµÇd…“ àQ’#¬g0(H8v£ÃüXA$vf‰b:¾4® •2[µèx›ŒXË@šQÓ¹z„Ñ©·{pdM}Pnq&Ðl¸¡¼­5¾ÒŠ!ɨ¸ÆÊlÔ¨§) øܤ)V/è#54ѼqÖŠzåt=J3зŽˆÉ^Hª L,|Ë%ˆZcpyl—÷‰V“)€GQQcXÚ k½I(Õ(Ï'ªÇ\peø9’úV G±t¬üënª<3ò¨9-ä]1™Êø×|¯T+$0ÆW).E fê ã¦+ ­jÖŽ\åÙ¤VP,‰K‰E¦[¤bAãkJ!**nb‹r(Á7T ðcÞµ$„«LaP¨”n`ÉèÛ‘e0ıQnû&7%ŠeÌõAW$n“Q·£´ÉHÇ£æ^Ç©NžÆÙµg¬¬9'Ò$’ÿ×y>ÏÛ‚Y»žÓ•Œæ4ÕëÕJ8aÐD1 fèôU_1ºÁ±VtEoóñUÆò u!½õ<ùÁ{6‘“‚¹ºñö‚zC´µHDGÍ.Û*('‡HÅÑRIá‹PeS‘mёদ»óøaÈùª¼ÑªT~¥ˆÆ$”… ížxn@N@Y³iÕ×}~“M‡ÌaHüYãa¨ &ž¦KV°é«/yqÏy"çÇÉÎéÎÁÁþAÿpçô{ LI¹½¦NÌÿB–37TR(4ÚàúÚ ¾`Þ<’R£<© ÿY½Å€sÅQ1¿Ö³@ìæc?‰d†V² ‘k\‹eÇ%oï8Ѷè´'O }ÐÊàbs¾†nQ%¡°žÖÀÒó@$ƒÀóšBt 5©3áò#ãíM§›H%žaâSÈÌì«s´‰¨P¬xÄBg"¬Öy£´q/V°ªŒ°¨ä‘8K=Kq†Xâªæpœ8æä”òIS¨ÎÇŠH•ŽÜÝêý§H]uCHÍ(®ô€M.Ŧš„ž¼gNYxç6ª#u­å„ö=Ýv>¾OÚ{¢OõŽwwúŒH‹ø‰k+mF³|ˆyª© eË>5ïKÂÆ–&”íMÜm mð'_ÀÇì6a"p¡>›ì³I"ÄFFkšÏæÓqÈ[¬~‚ÕgÞc÷œ¡„pl$ª—³j­{2J©ØÚ’÷ˆQôîZ‘Œ†0i@QÈegnðÔ‹¡CfA¡°o]DZ ò) ¹»Ý)åZ¥3=YýmCík¸Ì pÆ‘u/& d v°Ì«o—Ø7¬Í0.Á;«r”ßñ0ÙqpÒ¥+ÄÝÉû@wÝ8À»S†GîÞ~s æCq¡ÐžÚ@´E)¡º£…­õr7#Nö×QPÔz}ÓªoØÉ"}éXc¥tòeL+;>╹Å̪Թ[×UCZ^¢ÇI_®'§£½/¬¸ØLN‚X>ŠËjhµ%Ô½da.‡ó¹*5pY{ORTÊÁ/é}Œ`ßÕUœ¤ÁÀ’º€z–ª§+ÀIÏŽEî(سÌ}$Êã¹ÅŸg@ý±¸›¤sðy²ö¥[ã÷(Þ¤tîCÞ¯®‰ õë[‹¤™}m'Ȫ]„m5 \ý³ãÃînxèÿzÅ«Ý?ÅwšY-ã}bÚÅ¡ž´;VÖBtÄE20`õ.b!ùn'u²û峕«Ùlòt}ýææ¦s;êU§êÌÛ³òÝmÙÉŸ'ë—ƒõ•ç3©*ú>•ʧd<,[éYæÖŒ,«ŸÜAò·ì&ûn={nÉ:/ë[M<[°ž.!á‡ú)È –§" TZ›òZ ƒ+ÃXBáôŠB b{_'º•xгvÒÙn¬êJªÇÙú¤')½DUL¹,56 ¥S+š¶ÒØ-\¹%/é T¶ÇT´® =µèŽ‘Ð ¯‘¡€mÒ¢TÂÇøc6®T©â½™]G‰Ò©“¼›€æŒKH™¾dWWSò^)Wqi›ÄkŸ¦¹AdÉŽŸN­¢jéäV5B±2=ó£®cî8O¦Qh¯- A<H³hYÁE)+See7D{iXƒ*W -¹¨r˜½ÎFI¡U„y0ƒöðv<¸š–cUáLAf<.ÄV/  M)áýàÖ˜ÊArm‘6âOùÔÒ+ Í ‡ ýðìg\»¼9·aÎœ…ÃsÅÈ9vÞwÄ"ÃCšs‰¨>Ûž‘…ÑÖ­ OƒƒâCÕ½@z à`ËH²œ§[±òJ!»@å—#‚„=®+¨y!PÍHÇÓ¤§¤1îÛˆ“d|ìi6Í#ˆ/sè_1ÓÂHf§¹á TÍ_‰Ê Ü@Æ’ Ee( Ø–öQÜ[ÞzÓÇaЮÝ9p " ,îŠÆCìjäÉ…Pz LMMüÃ"%v”û0:G$RŠ煮ǑžIºÖ£ 3¬Aaåœà™_§ÝnwýÑƆ'å‰]˜[­Îæ–ì’S=u¢Ô~™¶Šä5G ¼‘ÓÐ0®ß$âŠ@~Äñ¯ÐP¡ïÅyÐ=zó¶Ç®Zª¸me¨„Ò0Ó£p[ôÑ<¹·¶;RwºNHR#_¨´T ]w’Uæ…âä¼lŠp—ëE-…ÎV®ÖKòì5îH Á»=ÚLW½Ñë«qOlBü ÍøZ+ÙÚè|³áÄ¥wNEú‹ ¶v=ò/„>œÐ ¤èZ˜‘‹ì=Dp–,!’“P€{Q;m DŸÕ’P¤Dñ%y¶êó.Jog½zŽÐ‚XÎ|cÑ(V?Z²* ákÅ…µ6¼ÔK=rÂh€åg©"­eO‹¡ªÙÅv,Þ”óNŽ{U“貺 ©Á…j¡Äþ¼8©‘™1Ù#K‹uДø$´!‘O‰~ÁžºÔDxJ;ÏÈÃ,7Ml%ÍãLýRË33N7ý'x®/u¬ªÔ¡Ši†-·ì-d ½Þ˜X¤)Jní´r$ÅI ŠüᎮŠü ºú×óYþ.Íw²×E§¥›£°!’¤ž|!IÇ«Y1¹ÎÍáær'ùÔ“Þ8UË^ñÆ ÝÎL§ßœ y·q°JoˆžÖßÅ]Ê÷Y% GuÛWÝÀ—}€ýziµƒ¤Qí}pƒ´5»‚}>¾8Z«ka_» ®ÝkϧjØ«fJ`תóNpò‹|60õ Ÿ('[H6žX(„}7Òå½|ꌡÖ h-Hmj¿é|<*óÖLVËwg;/öÓǧ{û§éÎA÷Õѳ•Ýý£³ýÓ|{úü»³×ÏüHélºµsÅo6&çª{hÕYã÷ .ØjªÂñî?S{ÊžkKö¿ûtˆšÝqGÂÃGw}ù¤óµ|ç›Û²SêÎö¾é|sg{î8ßÖöÖ)¼áº4ßeM€­è×\@e´ˆT­Æ¦Oô\^nïêb0;´ ‘Â0GÜ×m>Žm6Nü=u•ÃÖýmª™ÞðèÜùráÄ7ƒki¬Eî(*‰ñnvê7«äKžÕQ’ú{Döóx{upvSXn°ªú%vÊ™DVÔ XI‚”øœ‚Š¾es)êô>—Yµe$ÓéíM'íš±ÀÚG=s$E%y¶¤ŒÊ½²yro»‡]QihÂÄ#Ùîèž?n ìÀç‹]dÅt¤|¬<»4Aht ß3rååCgwJRIðB-Î…mCÈ Àq"#ªò£A©²™ªk‰äß~ˆ™ü=õžRÄ‚É‚ 7FúcDpÿ+¶cY$6æ@0Ä“¤þ¹—ID›¡nÄúÇ3¿+µ7Kw3#Ûâ%´8ÂRÔ‡¸#%ÄAxkvy9Í/ᶷKÜ×7ŵZÍ¥bÊ5R €4C Œ4–GšaúãÅÎofÚï`‹ƒöN ‘%FGë=î¹¹¨æ,{2Í„#E`ÑŒë¡m6ÎÉ´ôŒ¶¦½ù‹œ;=”.é‹l*º‘GÎÎT† ßaÃÿÓ?ÿ{9ð±ìß|?þw{˜ßÍí'>y¸½þog6oÿŽÿýGü|÷¿öŽwÏ~:ÙOïÚ¾®­‘û`À»ñeýk®`ˆ\Ìíº›ƒYá%bäRÉŸ ÃÓd4¿lý$)£K‡Àê$«’|¹9î¤r–”SåŽO÷CŸÓÝ-OéΨJ‡ø3ˆšìp/¦CT›œÝ†’ÛJhÇT’š¡Îã…áˆ`#éò¾E7K`oŽ3šbô ³ÉLµ‰aÞâybS•1¡S–¬COAfT:É2,ªÁ¼ª<%8oÛÅ-×n·0FŠµYÑGÜþjצ ìX €}sÔ}Mz"Õ&4™äJɸ–P1¥XêÜÙ3±?5€-¹Sÿ‘µªòï ¶†àD‘hÀ¹i”fvïF/k1¬Ef­îÌÊÄe‰£ìP1¥dšŒò´ÌÚ„Cb«‚d$¾YaL kITöƒ›`Åú m@0ÌCñ÷{º,BLp½dZuWil*…0‰E¯š‚" ;^yT0†ë–¢ék†â“Ê_ Ñ•’±$LH5¾uúÒy1»Î&îû|6PšáeÔÄBĦýJ͹VyX¶S=æcCSßI‚Ò5÷$Ý1–y)~ï×),G:ô*„ü)ŠÄzÃ]k°¶7?¶»Cø&º’’‰i¸gÞMë‹WVƒb:B¾‰jû‚²ï›¤!ðó !&fÄ®&ŠÔi«é “õ¥LÁS%ç’5¦†æA`•‡ë‘ iw¼ E€Ñ-HOÎ,¸¨™æ" è]–³jQ€®ù©JÃ\cœ|âfÇÙ#˜¨~Âò›>þ┥‹âš¹QÛ2&p«eåõÝR¡€p®q\`ÙŽÍsæÛ3Œ{t‘Çv!›†0ìâG‡k ÃÔ€˨‡4änÜm½J’Î_µ“ô¬Wd%.ÏIÄòCJ]XÒ&—Û8]|Píâ–¦àÕaÕ-*~]",õÆLs Ÿdwí°9›ûžD$& ÷Ô队j¤a00-øL½dñýªfGbñ ¶ûñË—ý“Wwˆ¨w·$³ö«Üq+£¼Àg©Èñ´Àw,¦@’*¹œgÓÌÉ;£@8_¿ZÝ)¶Ä0w9 D*xx‰ð‡ŠÉ¥žDDOM}´¹•òýXeyšY“ÁþBóvçZò¾ªRЉBe!g‰¦‘(õ¿áóµÂ3!•6ø=}+±LŒÄ%tÿüÒE²Š¡‹ÈICãçì÷~ÍEþÏ—³oÓÍï_ðåQqN@#¿D¾¨Þ)ªdÅÆ“l ÉZÄsyŸŒ|by¦·Jsøx´²Mb¢Üf—¹Y:àAÉ"ˆr#šÛ²{Ô=㶌æ±x#¿›k4@¢¸ò@@œ^“ô+0.©_‰|0©•Å4”’•@oMDh3m|²Y+RɆÄ]B E“*eX!uX!™‘xsN€Ù0÷¹‚7¹Åüc'÷zù‡I6VFªß.' t¤ªi}F´ÒKÆÓÓš6Ç4’n®f°/&»/ip ¸¶Ùô®UXžï¯èAô @c_å õ€ 8 z¥øÅIC]Ø­*©Ð0©i=‡Æň©,ì$Áš•îå_8NÒC»³:•0¡WF¦³"“¨ÎŒ+g=WóBæÞ2þTs\ UAÖ1+‘¾Çqñ!1p XÇÛ[Hò Y$–Ïw†ž®ÙõJ &2‚‚Õ*Ϲá`[ë,ºÊS¥ëv1·F9µº2jã(­RÉb#o¹WSµ&ÑâtËâ&›Žûˆ*â*Ÿ…Vkß:É0i|§‹¹n Χ!Óp»;™ÂÈAÓ°~Ô,óÈ+R1Í,aÛ¿p ÓVZw¦=RpåcBñ`ÄfóÌ€ñb¦‡$?'Y¸ê—ý F©‰\BbF9 ‘©¿Áo=ëZ¿›5V—ŽÓýWÝÞÙþ)ØÁvºÿººÚétêÓpYT T²‚Gr´Åš¡vÍy.¬uN£ 5‡ñ£¿¢;+¼›OR0~•’¼0ÍGêžÖ%è¶3ß®Jjd]ÀME Þʵ@ä©1ÛÜgõhÏ’zÏ"Oü˜µ&f±C±hŒ Š˜ÛÔç‡Ëš€@‚ðΪ+Jêÿö9]Œüžî+nyKþ™šó-·ÌÑ,Ù¨Ð)šý°:DñÀ<Ôˆy¥ Ü¢É1<¤•q9Ž¼ºæxÑÜk· ò€}=/ÔëÉ:"]çª9I®Ìò±¢J0êdƒëN9½\š;¸¸þ—!Š>Þx¸¹½ÙÁ?¶Ã1‚qÿ¸Ïr×%!o[ßÚØØZ}rÐÆ/íííGOê;w}¨ùª]a²Ë4ù>g~v”Dà2q¢-›!/°•  U¶Í™R‹0T¯¹n–c«âhÖ©À(kù¢UnžÆeyë4DI¹gR¢'qÅJ«QÏ煮³€Hn Ž‰0(ç—ÆÞhm´%1ˆcê… ¢™ôTaB’‹?šž²$v¦aJqJúu ¿½“uˆ¼ðM”ê_›d – u@½3Kœk40TÃÑq÷ž±(¾é>¾ü\‹”ÕŽÉza긾$¶;?Ä·˜¢Zµ;ÜpX¨v½C)ÏŸ³PU‰DÊ^výzΠœš¿j0Q _}Õ ¼©–uK \nÄêR£†{ù͒ãN‘Z±°ïŠ¯7îíBsÞŽÑ°ú‡Lyútœß¨d‚ß>7ÿžTk’Ïzg1uC£ýÄÂ?8ÁT2iI¿õì˜+¨Î“»>Ëë%ñôaežÙ9;¥ÉSKcñCTå‰õ7ê«/*ÄRd ’_ —¼ZôKåC$äE!‹ºÏ¿lDÊúðvðgE;¬fûˆ^-ηȧ¢Y’ÞÍNÂ^ÐÆ™uQ(ûPÃH\âgM‚¿~n-y¦'\D ¯'JìÊJèZL(,#_¿‡/+”)Çý+áBR ¬œ-|cÕrÒˆ‹*·æXI5.fœ ñÒRP#?ËRŸÛ™9,jkéã³,B!$Ù¹³÷,Þ$µÌ*Q.¼D …qâ‹&4hÔêuA¥–y6È£jwŸ}Auâ«2G¨›Z¤ݺ¡‹ p¶S «:±úK‘]âìºÝ"“XÙrvNY;‘âzY15Õ&0O…hïr®‹xí.™')ÉGŒâ™uiÇ ºlžµë¾_b„³ K¤O\–~þdˆÜõ`›0Ÿ-á¿Ð}"g®b³Hêíq8NšG¸Î‘º_T(¼‡½›â5>o9°×%§TuYx¥n½š9Õ­÷ª q7¹†y ²@ëÕ8…;¾bMÈÔ__,A¯"Ì\™zp×î Uß8c–V«J¢‰ntÎ5k~M‰W©ûXsœÃ(DâGø¬ù«`êú¢£÷£/¬WË. ßQÚÈ|ÅlAª­øÌŸ%G¨&厵ôëŒù­ô}º/òk¬ôÜX†ÄÛŒßJ=¦Á”Nž‰…¿\§FoÓ‚ ñí‹3q*ÔÞ3Œ¶ÉNO e®ŠÁ’EJ5“¡’DjÚAÏ”Z)-˜Gƒw kñ“´%ñJävEU2#C³Dœ_R?5¢å‹T@³m§µA³j~=[BM-dÉB±+C¶q5F ÏXáŽúj“O¸ªv€T‰álqŸ:–WwN~4•EU˶÷UBµVÜâkR¶XÈ!rªìŽ²JY?ͳK9–|ì»)]°lXÝ{ &“ÎUTb•î'×Ñs•D<@(4Îózĵ¡úE«§êUö^ldšh+‰vT#(ìûå “4ôÿÜr z÷N!LÏ ëî K©b=‰»t×оR~ ïnôñâM¦àI¨G§«¬j2uûpX­Õˆ_D!bV_^\gÂ3 ;—)B–²ìXô *KlE…õ°tæE©äŽjoHŽ]¸‰ùma–^ÐÒÁ"˜¹ÞÄ×IÝÃb¯Ä5<¢Â©¾|¦¾DvgM]9û}¡6_Í)´‰fmAœ…±2^3™~ÖSâ!íy.2ï§æhä1ç·~±5U€¶cÊ\DÚ‚‹ˆ4 qeBdÔüæI¦õPF·Q%ÖHOÎËZs!‰»6^ 9iK¢ÿj·#Ç™_‡èöUD{—EØÇà€ ¶H$IP§XËIÌá!_—­$5ìÂë“xÚ¡gÈ#JŠIaf•¤yè@ó1 ¡™VàUŸzz‹é¡÷ýžôóÌOÈÿ<ùp¿ãÎQ§Íÿ¦Ï¸?ÿgóÑÆöÆ67¶n?|¼¹ýhüÿOžüÎÿÿùyÜy”Î'Cw?Mºž¾§–•.Àï=® S‘`2±+Õ8Ç_Ì’Ë|æA00•Å‡}\SˆÏ  ”ŽÀ'F›(ìáÉéñ2c~Ø{!j„êãkV? Ñ@_CY?ô⶜'çO@OÂyÿàÁƒvúúE’tÖãŠBêkLFó ÿóY•Œ­° ¶+H ¹›Z>ƒ5±P$žôôé0§gjP ½,á•ÌáÎF6ÉHü":¸: óî§î²kSƒªí£3-% £äªáÔæI‡:ÆZÈèjÑ ÛþÁK+¸¦üƒäž»*å\¤B]Õúƒ#ÅW@S}¾º‹ÇàoSí± ú\¡/˜/²É*îÅO„ŒÀúa68î½M{ìo§{ÎìaêëæcÖ;ÜNž}êO’t=g«ø”¡@TËHwª gzø¦wO-î¥\i0;JK¶%ÛÅ…’4±5‘[Fc´U~)µaÂCÚ˜4#Õã‚GfèÑŸ·0òæQŸXr ͤF”«9aN£G¤É“nðMPzŒù Ú¥N’üˆ­ÊxODr¼¶ ~ìÓEÜsŠsÉ2À¦3n·LÊ‹é°ê8²qßÓ/RYñvbð‰Ô"Fv•M|1H¿}‡ðf§tßÔ³dÄQf˜DeϤ_O“P¥÷;*æ«ç \DÓqº²»"qøëÛ¾¶`¯ó¡‰oÓ¿'É®wÓÂæÃ܈3·vÊ–U|'Tî* JÂQì¤6r#¶ø¢%²·ÑŽ¯!)*m¿ñ¥sêsÚÖõá¾NÛeÔŸF}®ôÜýoÐ)“…ÎêÚͯé‚×Êö‹ÃSÃD”¶K¦[`©‚òß±ðl?uÒ„öÀS#€DE­«ùt¶8Á5*òANfs»B:'“10Ø„}4Ø„HÍgBLc;K".¬B/,3KȞЅ,ÌÔ/Lá}Uä“ y|×;é á{¯P•Ó)ßþìj)yŒlNáÈÒsøFÙ;`Õ®CNóö„ëgB rþ‰€â™‹¤ÊK¥V7ãî|~YÀ´æÈ$ 0E·zç|‘àH˜b)íòiîkÜÑc83½ÝáéÊIn«{€ŒA”ÔåÄqdúù¸VpYò›G2QHÑî!Rûj7€ùýù lœRüÈ«ÜR8ÐÚ°4®f+Í;ÿ‡/„5ŽŒ&]qá')ø3Uƒë08ãb'^7D²ï9)Ç­ÇÖáð‰ÏwµwŒ/ÑÅB=BJw>¤«ÚÚæFgkÍ|ýØ÷%à¢gÓâ}×dqôb¯&7g"äY4t…ö+§~æc+˜Ã ‰^‹<•m#~¬/ñæÜ2÷hÜÌlfii¯"™8ê‹Æä'ìà"Ó‡¾#% sukà;VˆiLX¦D-æ¡LÕ˜*àT6‡kgĘwäéÔÇÕ}~߸”"Q„~‰ÌõN·%D_÷3ˆÏÙ~mn¹D Ÿì¥nÞVè3\7&&¤»€£ê2(‘¤¢ Ge(ŒAíÓ©(:i`º´RUDˆ ‹f”Š#™!œ{]Ç2íâ~CÕ o.ó"æןe½0î[Í[k ê‹i"¼Å- Ç Þµo²«@è}€ÑË^º·xVÌ꤯¤‚·?딸Ù`6«ž¯Pc,F¸˜%v %éHp™×suE¢Ëo­”[9n³˜Õÿ"›3tÎù,Ï~ëïM°=¦'žì®­ÁU*J^÷`‡c0ÛÇí]E™°äßGJ´ÏÝĤj}&Wð«Nl]òZÝg×uã¼`Öݶw°î¶’ݯ¾j¥’«åÞª­\~Ñ i¯ùRpvšþ){Ÿ%VåØ{HÓ?u; ߢ” I¢}³$zOiv‹Œ; žCIŠoí(s 1K4Öºacº“­é‚|Rtg¦Yuµ\«3uÆ{*—ë5&Eç8ãfó1ؘBdÉOûO%XÖ8S¨ùð´À&ÕP‰DpÚD9˜«P–”„3¸Ã—óÙÀ-=ÑHÀò"YÛY´˜r Où"‚ ˆÍÆ[“äP~Ðé³â®{ÆÎxèDQÚ›9Û½•îùì:›¦'£Ìí¿¡£zÁ‹ü2µÒäOùÅ…»z>½–•õ'ÔðKOK°CÍà궪{”ÊŽ+Sl Ãq/}Ë| 'šÛ/ÜÆCÜ»''çøãüïM~Þ»’ä˜Ï-¶7®u×V1›£‹–@ZÓ8>ÎokÒÆÝžüi©³ §ÜF’,HŸd覡3ý‘•&³™˜ë¢†Çré©“ã\ltäòî$ÜǃNF nµ¬Ü€è u›5¤ô=:,.æ葆iûb\¶%mÄdÌî˃W=[U‡Ù»œ%zd,޲Ȥ”üÒÛªÛëór$Î`-Oî‘Rã™ÄZ±¼+bݩαŸIÓæXí"ÀùÅ,®ïÜ®nÍÜ Ô$î³ìb¯KmQÚ¯±"Q`ÙÉŠhcL5„‰™Ÿ§[æM…åg‚7b³t’ÍÌó,5 kÆM'a\rקŽSEÅY¨£­åÀdS7xšž:!”4Vyl<‰[ãº`v'$ÀLÙ¼¼æÑ$ Xî"àGÀ(&èu!ÕÕBÎéN7¡¤*ÆiðdGðŽF-“QÐItªe&Z­ÌeÍÏ¿¹±ñOÞØv×;%À}·¹¡3Ÿ¾Ôó Ï›Rå¶V+OÖ¶VJöÌ7 14ÜÑFfÆÿé¸Ôï?ÿ˜Ÿ¨þ;uÒ¾Ù~K ÈÄo?ÿãÆöCwÑ&ã¿m?ù=þûøYZÿýMð…6 Ÿ¦;¡ÈWÊwë³bF¶ëu akD¿²!dœÕ0ÅZ´\\†³|Ò>¿mãßX¿Ø×o‡§)8sã4†ó/h3Ó“–I%ŽuH<›Dq Ä”QH|/ÎÒÝãƒãÓg—Ó<³ZKfùïs©–PôHÜ0"@sš¨³TÝÙQVLsT‡¥ÖÖn¥¬6!EÖ‘š¤¤÷ŒÆ~·~áô\Ê:/¯¢*Ubº!ÀÁ3f„Pá ããu )ªËâ,4ÞïâádPzÂyrrºÿ<ÁúðþâoNcûNœç÷açòoÉ`êÖÈdšKŽ44¼®À·d5HbïHô‘ æŠO‹÷û¾´¨¯_9MýÃíßÜ”¶~)^K„ TOµÛõØ¿PÉ<‹[qŸ* B×B•€üª}µ—{KýtEpQv1QQ+­€LÛ‰(f¢î]—W’Äat\¤mGnåÎtµšÆ´B˜! ˜@Q?™Û%®!©6“¡¤˜Ó Ü*YX¶nál??®¯H·b¶Iï2è[üMRëïÌÈÒ6ÚŠõ ÿuD´x­z63è%oG›ms­_¸·(˜ôáÇd mÔš)lltÅÔø•tÕ(϶˜€:3ñš¾, ÔW82kHh;§ùZ+à|QÛµC ÈJ‚*[+cþŽ=ŒtlS踆µr¶*`VýHê€ÎÜ໋±ü¯‰z“If ký!ª«ö±ð;ê­ŸÛ¯VÝYéŠFä:qª€=ý˜×Š.ð5ø²°S©¢VËAéC·ÕX»Z¥wø3,vâ#&Q6ª2Eþ5mÜÉ°üÌب m³’º9ŠTË¡“Âw˜#O÷T«_DÊ%Àïv*Œ³ðw¬¸ÆáI]Ñl4]Ý™¥Rć+¥º7éóẖKz€öyu´ÀE)±¡ôbÛkÜ[gVú{J'>„†áÔŠ†½¾¯"ëÁI*‰žMÊÊYË%ÚVR㥹³&¥éG"‰¶ Q'ØR›¡±ô¥§A»¶fÐ#x:ŽršWÇeºru;ɧҔ[Z+­ vkõ¹kBÕµ[óÉôíp4w¿úJFò'kCÆ2$=Шÿê«0®*#w1œw’ˆÃXóu©²A–'š™óbŠ…Å[ Ÿ'„9ËѬ¦XŒmÛÝ£l|9ÿ!Y‘)HyPî×ʵ1ð4AÒú´b[&º¿¨¥@àÇHÖi0@€ú€eº¢<èeˆ—[ºµÏs' )PµV˜e¼ © Ù·¼°¥xXÛ8Ê—ÐÐÐ=~E® 쯄N›]‘hú; —’®yÆmƒpÛ·…œ-™<ø²‘=´_M~¾3:RãGðÈ‚;‚kÉ"ž®ƒ–Á£Ôùî35öÃ[ [É`a¸bÂ0ãëÑÒä!b§wxóT lˆû†õ'ñHÍõdŽ¤’Hˆë¾ÞRÁ¬‰­|e_«ÃÈ6´öUq‘È[¥ôfbœòYC¤ KzÇ~.Ï­û¾ìv´.ü+çX‰—ýíOUÜ7Í£õ‘tgµ¤¢hHmŠÚ„Þ[ªoÚ/YJí§ÊÁí2vqÒ‘—å¤3ˆ˜a`ÆÍÓ;vÿûŸG³o*˜Î:W $«S͆E©_$ÈEÅ´º–üG’¢îãÔÓ€­}û`ýËôXµKˆ'±uÞ~ýø[æ I–mš~¹îî‚õ´Z¤ÏÒoÓ"ý~'þ|›~õU±æ.Hñ”Tôå—wåªüºÖ "./䋵µo£;þêoX[ Ú‹nó7É(¬âA®Oöiôܵ˜nò¯­t+ý2]ÒŽ›_÷Zÿ¤ï#É7©0]¬®¼†O´’ÏÒþûx¥Eî¯|ÖÇ–%Wåª6øw÷-Š¼ñmòwoÊ,׫»Ê×$P¤e”ŪÌjÚ3Tzf4—,V»(Ij§Z³QFÛOôü)Š©DÁySrüèéMîðƒ6„ÙRš»;ãbpœ,§iØÇKÈêbÙ(‹]EFµÎ ÏšÌJA¨P ywœðvD/å¹[„¦'gÆù!œÀ@zòFð‚nzY– /À€F¾¨¾ªžÙ½ÉuûéFü·OCÞeò2p¿kjnȦ '1‚œ aROW¥³Íج56‘È2©©÷â§×a·õúú`%qÒ´H4[v Ôƒ"À¨æyE²Œ­žØU–Sl ïò|ÂœÁw¡ºœ¸'„vãsVÒNk$'¢è/­ƒÙò©}q:;OY°&ùœï:%·—éú6”JZÆãìX¸vj¿N°ãU®3?0žÌL„$ǹ)21,w «²'Õ J‘)ª³WòýB!©ÅRËùÁÂ}ù[ÉÝ­ëß‚ D­4$Kä¶Z&d¼Æ”|TÈd LcĦ%/Òœ5|EʆÃeÕ<®—9ZyžõÆæ d€–ƒJ†©nå=#_—Ù ˜UÒ²+ »ç2þ1å¯Õ… ðFŸyÇjs{*zŽYØ$çð…À›ô†‰ef6Kþš¡xjŸ}Lµ¤–ôk€HÂ+ø6ê}×øžŽÏ´§/” ¸€4~ëôm%}kâî_‚U§œ™&°ÜI(U{·¸éi× ƒKKe®>Øë»­zp¼³'Ý]VûœéFô1«¥ ûZÂó’Új¦–g³hwÒU(» «;€¸3ŸâŠxC¦Yíø ¾ %„má×1* éf‘!©Ë.hNñµpúJþ‚Q‹$í[ Hî,âkðø¦ÞK‡¤b{^ˆµQpá­¡²é ÝØéºnòRZ®¹u×Ý<¬K០™ ¸Ä„(ûÈ…ÑUŠSQÉâ¨t)±M0èaLP²U‡çi:åM×ÕéžE ωrѸ¾‘‹ö­8+áØAe2Q²26­`¯Ýä¬0¾T®žZS’¦pšÖÌsTú›ÍLt¸EÐ}qºsúSÿdçìµ*aË4ÖEý„™çzºD~_ï¿Ó³á^„|1¨±ž½=Ò&”è:rÍ ‡¨Hù,x}æ“{'š¢Ëa ©ñ­ öÅÎ!ßY£á¨F°ÖMg:$e)¦ ›©3ˆÀ÷"Šü 1 å¹ùð†—;áraU×K%Ö¨†ùKÁÑú^´’ðh6(¦Ñf r£…ÙP´»ñˆ……!ìÄÇ>öŽr8.ãÀ)Â2Y¤E,¤•x<%J¼&Ý©qrÚ=:ë÷Îvδ’6aצ:höXÅÌG¸ÖfÃr>SHׄÆ¢'ßY‹ªÁ¬ú{ÞùÂÄÿ-$òßóŒ{ãÿ›[›ýasãá£íGOoÙyÑíÖø,uwÚqfff€”@Å.jÌUK¸;BõF×Â2ã][ɯ'³[_” ¶ì@æ]p~¿ÚÛ{üøñÃö9‰ùý¡åzüúdýÍ[·8Òöx{«åþûø¡ûo¹½Å[z¯ºë‡Ý“ºUu§×÷ïöùªýº&o)ïCôº€­ó©¼Ÿ‘ZšüW;¾?HŒt÷†á»»ÏÜØÄ­ï¾}ûìÒÍKüÙNHÝ'¡GèFtäødä2«,ås­fwëžøvzHèø SvÝÿoÓF+mwùÁùïn<ͽ5YMN;I±ª®lŸÍDË¿ŸìžÞIü£û7v<âïVÆë>HROäiÏÒNò4Ëgn8ä£57Š„Õ>KÛÇN³÷Ÿ{µ¾½§EVj¼‘îã£ã~¯ûêhç 'ì¿Ýß}s¶ß?Ù?=ìözÝã#÷y¯{°ï”W×ÈÁAß©û§ÝãÓþÉ1íaLÎb!䙇Ã^,}P ÎÖl{$ÉÝ£7ÃÚà'vË7Ê¥L×Ì'½ô{qwW“Èh´/ðm J•sPú<$Ñò-XÛ™Yiù!ÔÍ=9 Ù]ÌÎw÷[t\ç‡ Ë¼¨³ÔØ “Íóf-îf²tû+T¡Š æD…Ó#/UFª˜`gÍÞËî‘Û-û;ß+uü«°¢ûô¢Ô‚±#šÓ”Ð1ÙA£›kzj€˜6Ÿw)˜.’|š/+•¥8Ë–œ´Ò•—Qªù^ÌS:¯Ä+¨ÎŒk7í+½ãƒÓnÏKñ¦U5´x¯9“ΩTnÑö×téj/V~izGx³y¤2o Ú€oÓRoBå<§XÕpôeÊ4É~0N­Á­‡„EÏtBïtß-ŽÓ£³…—<ù”·œÔßtâŽ\M:ËÄeýx›½/òizOËÛ/*&õõR…–G5i½_Þ}Cþo«ýðÙâ³ôù<¬jƒÀû…xÑÛ»÷Ö—Ó A ƒØôŠu¬ K¨vÎ3毴¦%#¥ÚùaÇjÅjôNž‚íwð_váDB·jV‚°Ùˆ…K}  " o%Gp\Ž=ä-.FÊêŽQõ_)‘LÃ_ŸÑ KòØ—µZÔ¢¬©¸€‡вiuþl§œÍÀŠ+àÊœÈÅÔÀé7¥RßøÒhj$2ý1Xys9q­h§×Üå•-‡«25m*§QuÙGI÷¨³Ñ"(>Í\uAÑ…#Ró$¸Eòsö>ë×Ôð4ÞqÍê¿ýã#·Êwœéc;EÇwê=ó±Ögû:Û¦˜ÇYHfq|öÃý«kñBìŽñ©–c r2û"(Ìõ”S[¶©»Ñ+Ït“ÖÞXßÖžÙ/Çnƒ"!Z}2Ë‚ƒÊëšA…pŠåuÑÐ$êZŸnÞâ”ÌÂ{7ï4œDjTB’j!-ݸµ±ßCI túõ‹ƒï{njž ‡`!ΧáP& Ä[o!aêVÑ£Í-ŽÚæãí¯¶¢ €zJÕZ Ñ"EH ÜÒ…dü1uÚ÷¥ Fc.¡.4÷® -¯›JéÚÆH§¬9Ú¯ÙÓ]¢”~¬š­]c^+ã‰GFpªS1]ØfŠƒivéÇZŠ8¡9eq]\ÌwÃËÓÞ{ÓÛïîœPî󗨊}u>}'a¯™h§‘ñ£WÌï™èz¯;~s„Mm÷I†”#82r=î©ÓãIå\*¦ƒùuÅ SÞq(f½Ïâ‡Ã¶ÕŸZæ.«/äp?€i!—«ö£ª—w¨RÓb?Û<®üÑ­88=+"_CLÞî÷=áë´ÑñÅÞ@_»vKâzÝ­»u&]*j.ÓÞ«Ák¦¯4í6Â(&£½'PÀî±ýƒnïŒÜçL®ÉÜ ÇÕRº÷”Òœô]©‘~£—ú•¹H.˜hlB=ßÐx¡•`!ËêƒÊKlj #™yÆZZ­žŠÍÂUgÙŸÓä|f òòN¬¤lÚ>//çU[[f^ìØÙC"³²ÂJµ)¸Ã–|š­¦AD‚<ñh±"ZYsìÉ@¿¿Òa>9;í!‘ ÐóÒ¹q}Je¯¥H‰ÃÊ»ð}£Å¼¯p“¯ý# h‘R§K²”B¦ Û°”‚`àÎDƒ¤Gž†=Mo;ËüYnN:ŠÁÜ-[Èì©›‰òÞkäçkµ2½êá_Ê÷|Ý)0ƒŸÌ§N¿ðU ‘QšÌ¦«¨UTu_ŸÂ-.<îÈçFX„§×Û?…bÖK÷…ê.ÔC+‘9s q1•D0VÞ»¤cèšv] ·vüúÒ×ÂÙÎ’›¾Hž0–L3 ñ m©6÷Ô|˜UùèB¶LÄFïwd`1¼“†‚¥± šn7I‘ÑeÕÑHRæýNÒ3y±UŠ›o¾é|ã~þ ³N^´ërØ!ý>=~õEÜt«Q>R}'@!=äq×Þë½>>=ëÛ«x¾{j4É¿’Ö”Œò1­n™-îzGüŽÐÙxÚNBpïˆõ®À 9öã¥ßHÖè  Ó¡y:·–Ø ¶¬¼™ÏªÞÿÈûí—kD~3Óе‚(4&©‡Qy.i)¨+dÅk×- $eÒLÏõPܸ`7îüª`¸*òà« ªµ°¾|œ*©NÉôú0¡/E·÷Zàù­7DÅg6ý}þ*q\0Ÿƒ.{ÌätZÁ„Õ:²øÇ£‰S?PÍó#Ç…9jÛ6k, Í! ÛQ)«!Àá4«”ÖPèÎûý] "¾9:{öÝø9 Ai=‹þ§Ñaf„x•’<öq2}ñÐóç&9r–g×È’²#0&ÓªAc…Ùë×tÒåÝP2”¶8o$qÂûƒwÌ9öo´"…K}«ðôýsJÿÞšÇn?©XÁf%^Kž~„ðâ(&ì“ÕØݲ…&%U÷ˆV|̉@\UGÇgµœ*ñð\€C¥Í9ðªEcvN_õî˜ÁP…1@²¨ëŠ1æ”ÕJÂ|w–½@÷r,UÒ/ܳñ<’G‡4)SŽ~CÀÔ‰oã&Ýß}½ï´Ñ7‡½P7bœæS'lòr^yæ·#Ý1q^ÌÔ 0CÌÁY¤Çó;òœÍÏÏËé8p\À˜ŸŸkÉâQÍè8á¥ÎøJ KÉ¥F”?é_íþ©ß{srâD}”'.?KM3=m¬´”ÖæR–ù$µ —ŠÁ7»äZ=}¢(SNSØsò²kò.MœVðŽ9p‰2leZ™=Ô}üõcäO¾Ü?Û}}' ®p:OO Î¯Ón·›²fµúÒó‹ì±1o_-Ž£Ì’; mŽÕÏ`e]W’÷ËÁ€`M'˜e±)¦²z8¸ÈáWYå»2Ûð3AÊ¡ì'ú¡™M§o¨ÞwMN•òU^{˜ÇÜþ> Åþ4䆡°x‚0$‘?‚ûj\ÖVÞ¹EÅŒŠ‰¸ãÅ#+ƒ-a„BkÿBOe23Râc‰ªÖ¸óÑ?‘z° S¼½wtüã§ÎñÎá^ênpÛùã3Ü£Û(G¢€‰™*]XT2?‡P^d”yBÄÃb\ê$ï ªAïxCúýãöÖú£ðF''»Ÿ¼f¥&Är½ÚÝçª/Ù“hð%”úòr&$ÐÙƒ½þ§tb`ŸCM¨Q| t¡ yaËÁ£é’óQI® ¦PÐe}ÞÔÃŽá ¦Ê™Pvî(¹—@Ð$7¢(©ÏÂêÆ’¸YÅÈ«£7©r8JŸü:©oF‘ÇŸ-³kÕq(YžŠ¿5>RWàj8™ýNÌúû¯ÊM}uVû2¶è<€Üdhð;ßd·ôð‘Ó:‘ø¨=§—#÷Ö#’-htÕH4±žbZ°ÊÀPôÙJÚt|°¬$eë½tb÷øð¤{°Ú?;è…µÂÅÐäÃ0œ—çÑó\ô|äJ¿/7®Xú@½TK •]OõËúA*Ž 7¢WùhR“R¡€‡ òkf¶ W5‹ú›òÂê Á]§ù𵛯E«m_ |£PÝz.Eäf`Àa°Ÿ:¨#_?¨SwoE7Ç>žnÒÊKéA@çò,äD+RD8!Ù_´D|B—„¨ýl¨±W” ÂÊ -ø·Kï®õSëcX¯öÏö~€ |¯8‡üöø(dLß‘¬AÍJª»…ÇQ#ˆ¥†ï‹ äJÀ±”›25k’ÜZpÈR5P>ŸËá5*-R-a[et°ãSÙU+¥•ukê’µàòé¿ø}óêàø…‰#°ëŠmÛåð·øŽ«"ž÷ƒÓMçöÝ,.z0C‡–¼A™d‹U‘dÞe{t¶Žj rj‰ç$(>”¥Á{½€êŒn-!šŽßï÷ÅòÊ@¯;æ’ò‰Úüîõ~÷Õë³¥s½ð ø¢:jg?r[wÜ>pvK¬¥xíã宥"Lì[‚…Xc'‰+ ,Zþâ7 ’]¬¢³7/^Ÿéùྡh|º‚"t¯^g·™ ôïÎ+•^Œ«.Gº*aŒ[0ny hzç´ŽÔãΆŠñŒT’ðß±€äõ-—º»éR;þzçhï`¿ÿò²ÊÙ·×±ÔÈQUE•$©LWQÒ&ãÝꚉ+©‡×` âù_[<ŸB)÷wœC«=7Ÿp¾Æ« ^‹&h‘\e•hA±ë¬Â¡Jæ³ýÞYÿÇîÙë~ï§ÞÙþ¡¹‰õØ õ¥ýŽZÍü²¦Á¢ÁÕ|ü®²«Åƒ=E™…°kœlvnEdLtΔ $›É¼5ž"Ä7¦Ð†S䎴ê.3ÊAét2×JŒp£‘öF•¦?–ÁŸü šö-¡9MÔ!ÆJã-v£ÙûþÙƇN§c#:@•ª¡ÄÔèÝm+·è"¿<–åÞ®³ê%ïœçž¬}[[¼þ>Ü*_ƒ~èþÃXðÜjAÁÏwŒÑ¡Á´|¤4âŸÒŸ½¡ K„á'©h ÏC%€1ypx ú(SI(ï©­+Î8sŸçÎ*Ô%ö_†J‘bÝ{![ýw[ ÞÄw ¿ÈoOöO»‡ûGg;õiì½î¾<{6¾ÓºåÀг%ó›(šQ¼ÃBÜêt³j‰SÉs)Eˆ:€Þ£ëdPCMN¨ ô6^\^Ëù@$ýz×Aˆ Âw@÷‡9ʵ—•þ½·?jé£ ò!.:‡ …«™U(í¡= Ý¹éë†ç—ýë‘ø¢ð«NË õßúiDÓ2X˜–Áâ¡¿lZËŠ¸†i„iøi,NËÀOË LË š–A4-ƒÆ´ Ü´Ÿîõej„=ÿ9¯hÙÿýÁºñß“éxfóøŸóÀò#ú äÏ|ý¡¥)xMß î+m°ì¶Aí¯ðÝàzؼ´»{\ûûtWßK6xã½ÊÆ{•÷rkUÆÃIü²æ–ç¤êW—Eß/L'ʪÇκˆ?ÉF“«,|ÐKÿºð âíý/ãÁpó÷4KnkŽ’»àj8­–Œ_Hœ»ëN1︕{¨y¯û¢êýs€2 öYíæ:ØßY~—³þŒ¥ †ÿ âv$mAš¹Œ1 ßß8EÕb5Kߣ*ºí<ÎÓÛ"OVôlemŒdDôeózÂ5š÷•øá—ˤWóqY=Œ+ŸóÙy5Œ?_>sMÉRëFÀWÈÍW“ùòôöÒg¸§þžâº[˜çÍêBL Þµ¸¼È¹ìÞÄÉkw¾쎾 Êich¯‹Ë¬oãjYwM’ÆÙã‡}ßX#´O™ Å£ùd,4n…¾¦¿.¾oStßõÞKú’ÁSŸ»ÃéÊ©ˆw¶¶x\Aú˜h^K’½ãÝþËîÁ¾Kê9øÞtÂÕ|A–týOÔ>9îm¹ç?ˆ>áxÇ—Ç>ðÁ;òf6îþßt5‰ÿ¢‹=þ@$e£'Mãkt¥oÅŸÍgUã&ñÊàƒó̙ܳYXd$q駌¦Fï¥È¯rZÕ>§ËB>ròø:7ûgð1 ÒpD䆗 Qæž…Å?M­ž¸ù›êá× ƒ£9åñ…ÙÔ©LàZᇞÏÔn¬Ü®õ«ÎÛ·$kÍ߸XÈ.IàPp ä\ëz¢‡?L|ë'0Çûz‘kT>å¯ß)ûeñ‹ëb8tOvªÈ«£7ýoº{¶Ò} N1”jàKõÅ=@-˽Թ~ˆÇ?€u?+ËþV_x»ºŠšºÒÆ7&#ñÀµC9ˆ»ô´¬æçöëå!^g;7îÍÂgÖ(8¾°ö·]4šR½ãúxýN;ì$Ìü –VÀÓY+g¯i0~¿¯Ããö³ÿ3=:«ý®œá3®îwòÈ»»á‹ý÷áãoBí§Ÿå¾“ÝÓ¶ç#èEo)âÿÜ;8ÐÁ—€ÎU|r³’”ÒZvwúš|öÀ?%îÌXÈiRH݆ðKñ}ëéøøF*%éNé†.‰Ê™ nÕ+Ê È V³Á‰(ª:Uᎀ¿~R \àõ û,a´Ž2ª FÄêŸ:[÷îÛØjßkgÍ/θÙìÛZÙpاއ:l‘R5™`äÝ Xv÷í`v´óøæóUnï5÷KcÃá£Æ"[SEº{´{ðfoßFv©L”ÙÅUÿwO^ü._~Ë¢Y$oκSÖ4ÊHëmÒ¯=qËØ^«š[ÁÀOÑUàûÙ}sÚà ¶GzO˜kº >ÓCÏyï´+w rðæ{ruWu€™ ²ÔÝiøqzWá‚18šÅór…Rt–0£.;|Ñ{½ppG8ß=K×Ï‹ñzåFªw²¿ÛÝ9Pž­gËXå\«•FདྷÌ` ‘Ty3Äáv:ŒÌrŸÑ¿ Aà1ƒ•eïÇiè‹ë¼íy²ñ-«Ä>+­wÙu¤ýWwìõ>ýãnl÷Ç(PIâöïSaÿv’€ŸªASW%É‹Þ^{òî²Í[âÝ6Vlý§i–$ÑWO±`± Ö”õìÙŠo|…Xª18(Û³äÁõû4nŒD”I­å¨±öÅ‚4 íû©=b¼ø ë°½˜OÓèMÝ3ÿc÷äïµ÷µî¹¯ºGNøô÷vÎvþn_¤Ÿÿ@ Ý·qøâeÜäÞZ ÛŠn8Ü9ú{¬U…‹Ý_øß6¾ÙN’É`ú´~°Üaߺ_—[jÿ{re¸Ôæ^b ÿ{yú>_å;ž½ZO…sþÎï“ÄÉÓrË1Ò¤Êàd ¿Š¥øh»S>U9·\lšû÷^©csï5uëù“Eû¶ØÇ;å{i›u/ÈÒKš6œo‘ÐV `@¨HXVv$ bµ_+Æ¡n@Ï›…˜#&¹x¹Ü@1~Ÿ&ÐŽ”.^OÐhÅîü|%‰:‡#×kä^اË_[}-÷¯ ¹(I"í‚“xYû‹ö¼kcÁ߼辷­¦û"I‚³Û;“ïkÁ{’$ÞBO•78Ü›*Ø»»kQ =¸óR'Yu[ÆÐÇ9Á}ýL±üËIõ¬ÊûN2R£ß²»£ ýù*U'3òÁU™>Oí–äÁôòaè Q·†ú›ÉƒÎºé3†î½9:î=ràœÌ·»îóÕÓµtŠJJÝ ‰ï<|üõ÷éÎa÷ÕÎ}íGWIëí÷o?hb¾Mß·ÿÔ­¦Y“{ùÅ©ì3É ÏݱöÙƒ‚°iâÛä̺oëX30I1‰ÛT3X*«(˜“„§æm‘ŽÖ¼Ùќ֧pû§ðîë¦0ôá“&oûÓ'o¡åűß^˜¶O¼éþ KTa¨môà^.áEÁX~yq}þö­no ü­-{Šìgüñt©$ø„ÎØ[ÜÕ«Ò¡¹`ì ñl½>éŸì¤ ¬Lõ-âWh—þ¦{ûë;%ôð£áh˜þ¥³L¢¿,L\ÔîoôØÆêÅO¡»âá¾ÁMùfl_ý‘r °ø*Z"¹æU1]Eá+¼ÿéý¡“F¼¾e~â–½ûºÆ–µÎ|Òv}ø©ÛµÑêâ®{ØتŸtÃýÛ´>Uv|a¦’eZjˆ”.9n÷d°¶û½×;§û,¬S?ƒ£8«[sŸÿ‘LÊó1¸º"“¨7ßÉÀ.}qïR•‹'qè©õ®ý OŠnºçn¤äÁh\»^l¤ªLh?O®²õãÞËOî®»€ñÁz‡ÝC†i[ÛhóáªeúE{4`ÇêÆ]î¯é(tïEŒ^Ô¿ˆ×_ûêïýHWÃuqOÚû+ºÊÈÂ=}e-€Ú`†;–¿Ü¸qQ}ŽƒDºŠ“˜EŠž ­zU”j~>%C6A`Þñ¥ÅÆå¸=ZÌÚqûD"ÖŸ¯N²³­Òê”-÷Ÿ‘û¯¾Âj„tzo^:sz¿÷4ußÁTÕ¿åÛûð©Ó•š[ÓývrbÛ”læØ—ßé.Dí‘…qÖNE#7ä§>Ú?ŽZíªDÜö™agC'Áþº«©"%kN";<>²#dHôá’ð¼ø:›-Æk^ÕèòÅð~øî¾@gã© ÁÿæW‹!â…6î‹n.}Übx¹©‘„Á­I(!ùcŽB“â¹æ¹gÌš:íöv{¬þ±vC ó²ÐÖ›ƒ3¶ÿj['Ç?즂ŸûHswÎsÜâÎÁÉ딤ßµ&Dä5ã#-5Ö-=üÈ+Þ±[;>Ù?ñ÷oÔÜÑþÙ§¶¶°šãÖ’®¬¤ EfÐè]§ü”͵ì)ËfeS…±{m©ÀZÖ N×iãýã†ï|ƒE¯6€ÚËOëVpŒuIëñv‹ÒÃnH´›;ìóq¼RøcÙj»þ:s}éS–¼‘‡W.iniŸ=aQ[óRÉ᾿k B„ W"´Ã¤åÀïçsÁ'ÃÈi›'ŒÕ)£Ô ¡ªcÖ6Ž@Ïm•(zóiˆ½‰wÁ{‘ð‡|Ñžòãè}š <5Ãk¸µ¥>®(Ösw{ty-ÃÂÉßܦßs“%‰YX¬ÐepÔGï"@º»ßE„¿Ù»H{þ]š8>ù;êŸûîþI{¾òøEœaÍÑôtYC •¨¹§Ô;Sß”µ;îÞiïȨèEÊ_ק÷ =šÎïöiü–ºÓ¯±hJ7žûBø 1íîÑ+š¢ÿ•Î|ĽÒlø7†?‹ ^–M{äõî5„8Þ¯[=Ãü¿Ò ¹¯Érºg–?auýV¹¹öˆgóúÀoÛCÜ«µþæ­)'€žÅ íÏ Þ3‹:õ?¼ ÔÐþG{ðŸ•j¿áâkˆ5¶üß¹óšN‡¢!ô°òO 1ãè–šqèt('æô’Æ“$ô£1ˆîŸ㎃wö$4{dz8~6ãë?ö¾aBïl!!òäijg§èK7W_vòZ°uýKÎO0ù§Ojˆ{'²:'R¾ÃÕéµÓ‹‘=vi¿dü/À=õÚìøfjƒtg°ÎV£³L¤ÿ_þ¿ˆ@‰~Uƒa,=Sôé ŽÂ’¦¥zt_C¿¹ús÷Ã>¢Þèw÷ÿ£-ÂE-Lyj– k IJtYê%Ô·)óÀ»(Q½ÐZ¥{ØaçÓò]>î¤é«¯Ç(lCR6þ³ôlz«w° l€…ÎǾ;$êO¼Õ¢ËïÉØjZ2@ñ[.kTb”OÓô{gf†ÅtúúŸD»”•ÕP–¢ À‚ˆBópÓïÿù4Âô=M|ÛOë£î—}ô)þ4Œ] oJˆ¾ V°…`Ê:lõîV°ca`Ö#Æštÿä²%÷¡ÍÎ,›¢MÉêú|Õ'Uä«þY勤á&`|ùÆWŽ†µo ×$¿ˆ–¿t´/aà¡]¥Úgõæè|¼›ÏÓõÙõd]Þ¬MðQò%Úï/²ÆÇé_èk^÷vÚ.ñýÀŸÉƒË¿“…ÝkDýM&È(jŽhÜ;ß“·©¿¶†º¾ã¶äbTN&·OÃ]N˜__Óì)Wý/;tçØø \)î Ÿá†̃¾“¿¤«ƒaôý·¨Äž~x‘¶×Ð제ܦíÙõ8ºfýË@Ï;¾dO¿Œß@.[rU”Ó¸pù²VMéørÙˆ,½ÍÆãËÆhÝ{qí1 #Š%^QÝm}šÚB ‘ Z?°K.ÿ®á³ï¦Ö,Ì:p _¢^÷èlù%nóËi>IÛïÓ_˜ÊØBí4-HùKv^Ng¿äŠÙ/ Dÿ”pÈQû¥ºEvÍèÉBž<¸ÿ~!gÜ$nj2ùÅÙÁSåÇ3$ÃÝ!Î âR²+á'—Øx:l·ß=êžÅdy­å²µ€3‚k¨À‘œ&;/z{ÝÓôYú—ÉÍð/ICqkhG>j¢õá_4à~?~/—j€¾öèr@ Hza°'#*|Ïã}Ðxiück­4Ÿ-m,B÷k yCשV±KõŽ@_(É€]üŒœêa}A-E’^Ê«F”h«¯yû”„ÒÙíÀ£X»Û8l9ñOy}ªOÀï†ìöÍçD×ÕÆm$·ÄH’ÞO‡}g TüÙ«]ŒÙ›±°54 1Ñ!î+“g¤±“Ô<÷*Æ ýf-#(Iܲͧïóaëaú“#yg½¢¿ý¹pþÙ·é°dš˜Kªu7˜ë}üç2ý.ýüs¶õ-?¸ ¦“R˜ú”ƒ—³¾ %`Ç5ƒ–Î^w{éáJÒî¤î÷“Óãº{û{éNÏýÙJAê•:Ù}|ðælÿà§ôè8ýµ&Î~gÐé~¯·¿‡–ŽOÓîáÉAwO<ú Üvhpç,ýéøÍizüãàßÛ“O|Oœj0íÏQ<3kuy± óD«sjiTÜK†žñ­•|h¥ÆÙ-%»¤¾ô¸tÊHn$Pûƒ”?WDîf§Ñ³•Ãâ"f fùaQù²¸ÉqÆ‘¯}n¡±O솠À3ý.õ•ÙäMV¡)ÿœÂS(D¥;¤í_ÿ?öþ¼ßQ$KDç_קHB ¡ö•ù@ìb !‰ªq±«;pÝ33º;ç³?Cº÷úuÈ¥_Uåô› ý"®KfvìØÙÍìØ£¥q@ßO¦`"Kcz˜ñÒ•G~ê»À˜FɧÇæôqAÿé5¯Ö=óÒ(PâÏùwc  ¾‘¿Ù»Ž?®˜#åKœì§çûwvÝã÷(Ù£¾ôºrûÇÑâŒy=ŸÁ~~äïê>šþù‘üîÝ›ÚèhEfÙf„û’ÿë%ñÓæÇçK>žçàmÕÇ9ûqyü~žæ‘ŽìØÇ/y¢ÏÑšçåôW^êGÓ7}ÝõK¿ŸŸžoõÿ½íúmn©ç9½_ÅõÈýÝ3¢æ/׌·Ç¾ÔN÷kýßsPg¾š‡|í¼Ÿá±ðÓkV¼ÇÕ¾Ïôñœ³nd¦2Kî牦_¡éØóö»ßð&'ë=yés:Ñ1ûëxÇÄëàg/׿>}JËßx[t'¾oÊ> ÷ÄoÊà_Æ®Gw¦ÌÓ,šjŠw5e¼¼ ÅƱßoš¿_W4^n5’å_²6¾`#úôî1Ä—Ã÷{~{&ãëll/ïÝ“Ô•`¤ã iï¦ãÚü{ùÇÓ,°5÷å¶q’~Q¨¸îã]߯øøDßgpòø“ÿqßx¶~¼ßJ8f@ Éÿá^øHÝ‘OQùãÓñs6ü|úùÉøD'ÿýˆ™÷#jðé×?ïµÞ½{ÙbˆÞo^a¶ñûѲ9zïæÐï§ãÍ#¼ØôË»üqñ4 f7| Óÿs~ßûc@ß=Nü;ðö‚çŹÿ}\Ê…¢ I }}Uÿ2™ö)óÉä‘Æ{ú?€Ë dýûè‡éýàÏ÷ñ™F?Ü1~ÈÆÛWÌå÷‹dßàì¹Kä^~ïh2æ<¸×y÷¦Â»ñ¶ûi7ÞÝþ­'Ïrƒï¯ba¬úgðò},æ&û€ÂÀÂt ¨Ä¿Ü TÈOŸËÑ.¤ôîá*ß«ÿ ª`8ïžq ?®áüŠó¢éâžûö~}Õâ àZ[Òß{—˜îñ¤>ø2B9Ç”»ÿyÌ`*ßM§/}<'WüÒÉ=!æxûþœÂúë\Ðß=¦öM âô§Óé#1Åý²1ýßîGÏûÑ~$½¼_nýpà+ñçEóç±|òJ‰SýüaÌÂ9Æ&â±— š®Á`Sdú¡ÝÓ†IãÝ_¦Yl‚`Ÿ»_‚+?Øñä{Íýñ¿ÞŸïùÛßžíýß`_ÈÀùø){£FÆ¥„»*}¹•ðåêñûeO÷{Ûãæçç!¼4òšO1ÀÛc0iLY‚fßýôÝÒ™Òß³ÄãJ=úû-ñ„}÷Mý?<.«íìõî´ûiV \òòÏ@§}Síx-CsÆì’¿†µE“~³_ ¾|a›_<‰îh›¼Ü6Ðÿ<<îý|s± Š:˺3ãWµûÈ’#S«?oÈ7ã¸ê탇.CãVÌûû)ùÌ\Ñü籈º½¶£ýºéô&Çþ‡‡ õÀãìÝØøs–UôqÍx^æ¥ä±ÿã«"_ ¾ú=nYþº€Ûš_Œ›,¾*pN4õõ+®‡Mzãub7tüüœ5øó#«è+Ô#‡~ScLÞÿr±Ç£Ú—·ï¢þþö3s¿âü‡ð7òĬ½mème¼}äi¼0᧗D,ßdX[ÿ΃?¯×/ÿÍDdw§œÄîŠà®Wˆ‡JÅùO蟱û—?ÿ0ê–çþ|á?îÿ=üÿ×2ÿñå3:ù¿cÙ¿æÿ¾s¿ûE,=~'i‚ óÿÿŸô’gååòÅß““ìÏ÷œ´/%“ùjJý!§ÿsý©ž.ÿÇãFL˜ø3ý>ù7ž0øû—¾ÿ?ÿíÓlvf³ß?ý#•Ï©Ñü’å¹Îœ‚ÿ?%ü—¿,ǶÒx:møéûÿóÝ»?|ÿ‡ïáßÂ…ÿÄσÿß,aþôñwâÃ1÷øßï~ÇÒMüOSÔoüÿÏøü"Óïä—éx'÷©/?¿ÉH<ù*áðä~béÍÑ–_;›|sdèiòÍÉŸ§ÉW)gÞì'yÕS“/yx&oˆwòMÅÉÛcÔëõwÅÛ‚—䯓¯ò>N~‘æqòuŽÇÉÿ£äÓƒÿ%?Üb›ÿGô·úŸá@ÑoüÿOø ÷àÀ}!¯¨x¾ÿàÙðz±ó®ü gž2ßØdò/ó43w+¹wØL‚»„§A0ÇòÌb›¶=£aË ‚™sé=Ê üd q5™lvâvvÝÏh(ÚÁ3:%fKÍÆí]ÉÆuµË z»Ø\¯ •v-¡´……ä@Üà@ ÁñðdÂrÛlNßÐ9îEyÜHþºÛEà¾Úƒ¿êüÙr¯­È€ç xXJ“˜åéœÎL&³•ØklÌêÆ ;V—¹aıp3o*¹A›W_qØMpþÜæ¡áV§^7ÕMË5›A“I»™õV¿›%ÕR[0\Ÿç;ºßŠ]gf²> «²aT{o÷´CSCxÆÑCsrÒáØnö(u“IebŽÞšû“~p$)NsëêŶµhÛ˹xæNô²ÇêÅ"dCväy4ã¶qµ‘™`€V¹.m¨T½Òå–ý!d‚b¹–ãÐ.÷Ø0t}¶8y7\Íü’‹ñU¯ë0ÆdÇ„Ú:ªíL&WoÕâ|Yln]*Öœkér”ù>á¸p@™óÙä¸ál/·qΓMsBáÆ+¶$fïŽkfÕO&C®+ŽRȘ™%ø¥½ˆ­ð@®µí6æt†±Z—µèv»|Åe†¾"n×î.Ê>ƵŒ¬0n»µ±S;ßµa"¥rUP£jÅä†z~W®ü:BQq…\aiy'´W¢}˜áT(Î'TÕE᧓*!%ß]²•ø[j:mâx#Z¨ ßÿÅU[D|·?[8Zä‹ÝdâeÇ8„¶ŒùøÐ&8¤½æ£r–Ó ŠžºÌÞ)Æ&ø.¹º´È.ƒuu©æËÉ„Ã8Ý÷×nzƒn„*ÂÊV —Ia »µ!½·Ã‹w'–ñª¥Š‡µm"ù—ÙSªM&'ÑQwíöÉ\l·4ºÆn°†Ê qÉCñîÈA13§ž>é[™tdÍ æ µ’e –Ül怳̊° 6MN¥ÍÇ6ÅzÃÍLSÚ̱Š9QkAЕàfÅÈ"Þõnë&Îr±ÍãÀÝ„ Ú‡o°léjd®Ï^ZÆÄqª¤& ñ[ÂBšqÈ¡kâ”ËíÒÏ÷jwÊÓ®_K—ù¶Üí/ó|¨æf$e [´¹'ÉéÌq2ÛõòIÜò]ê6·kXUœ‡@‡öºS¯UÔÀàîRãfq£Ì×Hm³ã•$·Jxä-®8±öž/“U0 (Yº{ž;Ú×ê×vbç’›LvëÇgK‡,“Øf8Švy£¯üy¹u/Ë@,ý@5»RS2»Ë¾”Ì_SÇÓ2†Ôd² ŽÇ ÊlQ{gµ¿È6ËÅ~•gP·µûÖÂH¿­üz¹ÃÕYY´hŸº`IÇÕi€¢Öô–' ÷ùºQ#äÄÙË·W‰rˆFMâ´mGç?gÖL¸d13MVÁB&ŠÖd’„ ½–Ú.Ú¾?×'T]ûr4kvÈrh\±iÜÒ0qLpÌÖÝyeÂ|{a‚d™Ý’p·B‰çs©¯s“çò,žg],]ñ˜YÒHrÕÖ°9lk~ÖwËÌغ‡<äÜyzZÏÏIoL&Šu9ùáJñT ©B¡¶ݧ¼A‰³¸dü¬¤Wi¸ÎC h‰âŒÐ=¿]0 \2"·Ü ”Õ•ÛpŸmIZ6a‘ëP«r¯W-Òô5i±§rç…(—Õ)µ2,ûœÑ›µôÑ–oúë#P0ÃÊÑfî1*g²S0xC ‘ÝÒKÉo/ä‚çlaü–ò‰žš‡¥UËBÏ ðÅ"ÍS+“$ÇJþlì«`Ý:ܶ/l„qÇZùX+µRý¼î3$psçzê’T=ÛÚÙ ¹: È#ŠÓ%]§d(7ªfswÀ;VÆ@2Ä-=Z5»æ–Ž³°.g˹…²É$Ø:T\m®Ëù0ç6sçZYš„‘ÍnWÇSž aT/¬}8³EG¥©¨¹Šƒ °¿ÆOœdio•FÌiÓÝÅÕCG „½Eà9î;Ïæ; S̼–.Þ\ ´š’Þ:M§›É†ÖAxÈ{3?€ù‚–ÌÚy¬"à"m ´ªJ mw¶=#ö³èmñƒ/ð€³nù,¡ºyЉ¾/%›ðVSÄ…÷kÉÓ§¤º]—PÓ«™rˆ\½&.ôñÐÛ¦÷Ø ÐÃ×ú²ï—SÅ-}°¹›y®¢‹ŒÍU¨äáwu#âuHõU­Æ1°W§ÉäƘÅ<ÙZ9ûÙúr;ΣÖæÚd±’H´R2V<5«KVÏDÞ†ç.Ö›§ûɤà™¸ÞuÜ‚sµz‡ÔöbYó«ÕFmHC[jÐl˜Õ™¸ ¯»u _Ȧ“1V²xt2ŸuãB›Z_Ÿj Š®º± ]·ƒbtqº^Ücµìr ÓhšóL0C{ŠÕ¶ç êÀZÏ´SÕÛ°+|J Ž<µŸ¥Ü RÂ!´HP› 6Û'Œä²Ï©Æݵ2•`+÷¨¨@ãlÛ%_õýÊ®t¯*­—»y]°9ð`ŽûŒ)²{Â,S¬¾ ˆm9¢ê€vV`”‚avì™]½IÌM¹*n‰Ü8dbïÎñU¤×qfÁj4à-XØÊBåÉ\ßÑ»H’–Ë Ð8Nm$Åá C\¸ÁgÉöv‘ä|1ƒM^¨LK/W岆˨å4j×5¤tæ µÜWK™' ¾ ¶ +ñLéÅ1tJé(!9êd·½ ¨å’9UÉ +‹5ÌuŽ [´ú%§¢‚!óvFhCDªí˜¥mäLRU*Á÷&¼"mçJ‚·Q’زd³lÕUÝnÀÃ,ÑY¼³¸]w䪞-[oÓRíJ{ÊYêåz”½pÊrÉÍ÷øA…fάÒN´qâÏq´º{)n°Õ6œ- jÃ/g-(Ýùpä׎ÅÍ›´ZÕþ‰3Ãn«~ÙÏ ÍÝK‡¿uç}‹æÇÉ„†f­6¤Ç>›;-EõžJ²Áéà’ž·Ì•£NìEd ý›몀e8-Ì“Lo|@RÖz•7ñ%‚lCÎ2m/>rÂfµˆ÷ÊŒqm<^ªâjéKìØíR/‚…È ìÖž—À®v„TN†iÛ¥]ÌÜ8¶N•å1¼¦ñ°ºe°ãö˜;:d¤øÒgUO÷†*¬o¥³WâÉDß ¬ [¦‚àÕ‘el}]!Ä6½…–ÇëHíc² 4I#@œÏ‡ƒÌ¬ÖgÑh€¤Ÿ×•-Èãù”+Ÿ:vŒnæ×™w9z’‡J$ÅÝúèܲà]öI=¶˜Dò†`?¬Óuf1ÈzY¸<•–ÛÍ­KÒbk'GG8Ûî ™×f?,2ý¼‘wYŸ%iS¯ŒÃ@wE´>'lTaµŸ·«eV­¶rÔ”ìÙýYQ±iæ×<骮 \³õ¼|5à®é]©Ùq»,&[¤ra_z”ˆ¤2#84¹|±²=½RUE£ÖÛ|÷*ngÄ£vu…gwíQ­÷€»)ë;Œ§‹Š$ÍÊ/ªNÊ™ÑUÛd[›DYË%æŒîb ‹9n½ \J¯(WlµX¤µ%;õö&tDÈ©p1hxF·ºmÑ]!ÛÇj× ·¬’u²Ó°K|.öò²d#ù¶ÑQÿp¾¾*9wú “IðH8û‚nÓ¾¨`=§moÍW¢a:PY+EàËl]µùæ òéeÆq·ëdæµ-B 2Ï®4xžK†$jÀ37õæ¼£§ÙÐômp¯He¸¸HmmGùŒ¾à/`Yù•Þ‘<ƒ;RXÖÐѼž.M¤Àiæ'äœy4ð3uoh„‡ó«•°ý`¥äx¾XBø<vÔ:¥ÖÛ“rº]W&QéÖâ~ˆ K3[¸6{c&Wz¦¶·¼Á|‹OÍËÚ2Õ†tè ÛOˆÙEê*N€p›ðýRà’}t uW5äÕWEI&v»ÁÎí˳ dµ]¥­¢ ÁÜ-wYÑ]¹Îo–ªvÆù0¨»Å&Àræz\Ø„ ¨Ó ‰)…sFí$Ž] )"Ë­=YijëÙD®æÆLøš¹n£Y¤QŽfá@³ÕÌH¯› ßéáˆ\3ƒÂÓ¥’—zÐÍ‹TœLò9iNãlFŽýíÜØ–§Ð=)}5;»ýE˜ó1î52Ð0lQg}o¸_lyÑK:¨&ig@P¡€Ï­.ö²ð¸(faQD%(ºº6öàe¯q5¦‘C›S½ã|,ó[!«÷s²ðýž#Л.lø\A ×õ!XŸÐT:!íjÐx,f MtÌg]A¦;œeæ{¦—PµÄÚÂMšE{Þc|Füsè¡ ¹Æ °¦¼Šª˜;W*N^&@"ϯ†Þày-¢DVfj›KuÜq¢éa[@cÀs¯wó5Ë. ùo˜# W’OêüÔài¸$Ùy°ao ` J —]UxböLjÀV=¨«UÃJ•©kÛ:²Js8)ëXmѹC—Eì®Û$ 5 R "/±õaƒt¶n3 ¼|«³7êMoňk.vÂäâVI†ízkì’c®[k=[?‰9`lN¯OvNu-H -J{ì–+¡Ãòˆúô5ZÉUpà‘æKàÿ:W¸EÞ b/YaF›Yí¦UqëEDrE) !ÐÃúp*ͪÀ¸ÃÞfôùŒ] 煮΀aD¨sÛæró¸mªžŽPq\…0PŠš­,½Ó,»©m?™œšÛ’è]ïjçJb ñÖ¾¡…GxÝïg[^CæT°1ħéX4—ÃŒ=›Üvr<à°2™@ž­`ÁŒØîZ|5Çò%•‚FÆžvŽ/„~Á-Ž(B*e±ÝQ 6g_qXñüÒR.>ÐÙí¯ž>ÛI Ì’ 7Hm·”U¦²"Ì $Ë*iÖ.“Ó1…kRBN(\+Ø€-wZHk¯mk…‹ö+îD×^ºÅí„œêÏä ɼ‡@û£·Nü ±b…%?Ÿ³ksÃn/0°‚œ­-¬§'Cçlw]öÀ¯DHF†qëèï—óÞ3Hù|¦ç@R‹2”ñº]773ÒDñ´¶œ·ŸuvqŠY·'’µµ§ÚÚ×2•&ÃÞ¦Ž Ú,öjmö.Š´kknm°Šâc|±câa‹è2¯˜ë¹¸aaf@"ä¢)Ĉºv³ô0 saȸULµ¢qÃtV%"cM—ž*%líÜ8 y{iñ+UV¸³0ucE1&4¯…CÓ®ôvé¦ÛMœ”D!¬“k{Ù7at%¢_¦£O&罈´ÊÆG–¦RIñe÷΢To '½urïäRƒ§¯iyènnmÉr°·ª‚+,ÒÌ;gvȺÑ6.›z¿çrkT"C‰e·’êlM9=Ÿ$JUÌÎƵç$t[¥¯>À|b€»¶÷37šÛ´s~'Û}æí¼á¬ÂF1àEœ$ \ŒÒœ˜;µÄ„ å­N&ˆ=@nË"@:¸/¾?+°ÊH"½ˆº6e‹7:ÒtˆšÌ»2åùïÍ>¶ $Œ°«d1í©ªëP“-†¥& ÊÍòƒßšAši}L9<“[¿gª •lry¨Íh‰íc¢SÒààJ—Àw¡ŒLÐ|Ñ«7ÍÏÇäàѧÁ&©”vÑ‹~F}D,WìfXmÁlÚ¨¡‰ÚbLÉç«ì{ýæ$Sí~]«bµjRñØÂcKl‰+d."ªÒ«´]%Ìd"Å=ž×Ö¹o‡ÒŽ}¾…Ý=ª~1ƒ‹dÖ¨ )‰Ѷ¿Ñ5:ä`+b Xœe.Uò¥n?™ÔÃœ”ÙÈÉ—•â‘AtÌL@3ƒ˜‘äIZâ磇¼I÷2ªm s6^O*hÇs.ÊÅy%ÊŒ `)7¼‰çTÎæpÜϘü'·ð3G^ŽŒ»SKS’uXHÀ~^-ÑKÆœ+Ó0xµ ãÛÙQ)Zs×B …¶¿§,0—^Í.󹑘·î,ƒSM`™7Ç—‹ØºšK;m ¶êkzåÙyY¯rT½æ¨¢]Á I[»OyAdÈÎe•£À¦õš£Ï‰—BTöV0ó¬«|:>õ»RLÚªÌóÏ—Žì \>äÊI4I˜ÊNr¸Ûd ð’ôlJŠ¡6„¹9·„²‘Ô!ÄçºÄéErËåa“ÅÀ_ìêVž”̓fžµns³;ûp5LÎ.·£q/WvÉÎ ž¹Á‘Ð [s¹Î1¿õ³ÕӮò-Ð]ÒJß\LÇŒ7_ÏÏË[G>CoHq €*¶¼»Ý‚Óõhû² ¨’Cs$Ö­\—áÖ*ç­,óË ¶ç@2ìj{Rwµ¸àJÇ—*×XH((DZhh-”hVhFºvÇ8<,!2®_R¶åoa¾o)GáýPÀl¾“ÄÍ|1ÄdJºlW7 nH çˆÅ‘l–ÞLéw$F’„€L.JˆgíuV+¥MèyÒm²æÏÇ ²ðç•w<ìÿªúíŠQ[ Å$Îóù¬¯xDæȨì_)‘ÜoÂÝ"kÌyEH½½rô>ŠjÇwRkžùa±oGÍØ/ã–+uâZ7u€§Qëm«ÃŠ¶c<¤»XÜ’—”{®òÖip]‘YÍ(—_«c°òD;¾$~–¯.4² <”£ Ïõ|)*¬àï´ÓaM­²æÔ;3Þc´¾|bì@›Ûâ`a§l³”5´šUÛ~'Ž>ŽŠå7}¹ÚÛätÁ_Ý–>e\ Òä.Sšêâ"uÙóÙ7’¼²"ÿ¸¯‚ÓÂòΊe¯ùìœÉãÊtÏPÕ7"p¥ÀQ§K>ÜŸ·ä¡9íæÃ"‹tÙ×<ðצiÕ.Ë΀/ÂM’k>Í ú^î³L”^Kz€²ó!Ÿ—ó™xLo;à™§jÏ9.•±¼ÌvÛGàožñÎ=-кq$ùšëp¾Ú‰«bNïFW½ÚÈ\ 43yÙKœ(s¤pTÔ«Ð%Áã@FÍèáÆ–í*°O,%R³äbî òˆÊá­p<±³â@.P²•¶}l/ØÉX¨¾æŸwµ’±S9Û¡kUgm ^45ü`„`Þ|cÝÏ î6?í¼6“ ½ÂB‚tÅ:ìâÈÍ%¶¡BÎ 7ؾ÷sùsw¬™òçdÉ•ìÛK©ÏÁÛdã™þbNfÇ•åjQ”¶—2`Ãø‘'«I)yžyÈòÍüÐÎý2ÁÿØö±5G×­ ¦°Ó€¥YûÉõÕÆ~ë,ìï©ÉDÄ?J¼¼“ó¹§ Ì7TÐdÀÀïdZé"N!e’P@:¤ÑÌéL¤Þ¦W¹D2Ђu£¬Eã_pɇVÍ÷Ièa®ëþÑ=/g±¨)äXß|3’C¼¤®z}K0r)îf³‰A{ŽF^ ÄÕoi_àí.?\ä„ÑÒŒn|F,m­ ¢{ZdÛ/cÇJÑ‘¦9î=Áßj¾VP¼-òÈC/ ©YØæNm¸W3qŸÙë­NÒ…ÍÏI®\©+¤M&$²\•Ú‘‘ÙÌ—D±ÓoîÈ]µ@n @E›H¶Þ^&®°'„fjì笵" wMN&˜ÓJ嬕• ݳå-?1fä‡ ^BñTU`Æò“Q§ÀúÈ×X¶™%VgÛ:Szû£ª¬wÀ¶wÕÒaÜ µÛ]µ@LBúhãu)V’]4„öÛFU¸™!oË˳Üôx›çÊÍ€EzeÏû01Sâ\¹ó‹°pØì8„±ŸÊ¢£“Rá,¨’=±8e$T™Ñò<ËC{±Snró€Þ6m®¨+rÃÉm¿<%LL@7âH&:ðu3”Ž¤Âô[ÍôFÑå—‰­–øZ±mkï.÷Àž\¢ïv nÑ+NQõ½¥8Æ:öŠ$¿ »]0ßùÛ3y6ÂZ(›*@Ô¥½–¹Õ~³dgè‚ú"$¥h¼%  -PÄ7ç85ã~AË۲ͽ% )´f} w¤k0¯‹•}4ùâO&Ìe³]$a,6ÔlÎÂñÉ*Æ®6&Qé:ˆKÛºVçÓžÞlÄ~«7óÐ%ÜÄŽ°£2¤±ú¦;W¡§ÂÒöû¡\ú×ÏMh×2Üo."1Àø"™ZôËñ÷@«N¯SuûK£G”ØÁIaá.CW€ ³¹–¬;:íO„ªÝŠø*V"b0†HE±œÍäãƲšØ-¶s›Œ`år>’žKhnʈCmdG¯ê®L@²ƒ©R·ª,¯l›,{<’ñ|Œ™oèŠ%wüiÜ´±D´Z£Û`½‹bz'óu)àºÏ7BIªÄœ3åø0w%4¶–Ô¸2XÖ‡-†¥«E²vÑÄÔäÇ&Ûg·ßI>R²1“c$jÈÖ ÌNš5ãwëðPz¯Ï.´nù3à¼(zÁ8±ûŽ·ldgUx¤¶WSI|Zð f6â svʇ=8ÀScíN#¦(&V¯ƒRDy~éN àZÌ2®8ç°ƒµ€º¹ gØ•Ò„ý~¿Uƒ3Ž¢  Éîˆ s‰Y!èêêp·Sož´ÖÔq­ aÙ‹‚©{u§Ç’Íô¹­.€Ï ,]Z7潩—¦\S²X`ofÅ`ûÄæ óºÆfRQnÃ,¢j݉ÉI´¼ÖÁûc«"\H_oóz<”…¾°É­»WÔMLQ.Bô6²æpá"›Úe½"ÏÐN33ŽÙq$Ù\°[¹stƒ‡Ok1æœÄö•™²ºGû‹ëkàôÞøëm¨½_;Ò‰ôô paŽÜYó-æñ¼µ8娲*Œ9ÐY#Q[ ©orÕÌÚ9C–{íஂí<¬Û…;Ö©¹^0%ªlØ嵂ÃIË”õ¿Â²ura©÷Ç3’óÅé@ð¿Ãø[îÒÎÊšm*1Wg,Q÷g×Ú.ºó³éµÚ–ÝugX}íéÂ_öe‡E€/·Ö,JX³3¹¨³þtíIã¼ò2ÄOC4œÚs;\Jó ‚vEr…Z’l%‡B¨ŸG&ðõJš õ]¸E˜âE°1­9 ÎÆn—0(Ô.ù”§k4ônXmÒªºÉ«S·Û‹×Q>ð´åÔ%]^çkÞ’ÅþTôû<¬ <±ñ@ùáé`^·»³¸ª–go)T.lã yQ͆ó¸s ˆÏˆÞ÷5´ÝyÇðToú7Àj²¾Âþl>amO1Ck)âƯDh]7­9YøYuB{ÇW<éÏÊÓéf1N T¹¤È),p^3NÝíì=™j{kE­ùŽêà%ÜïÀF—Ò6ßÁ˜‹ÈÂër¯0®·!(ï· FmÍŽ"^kz)ÈN‰ëú>•S=ðP-¬—gmXlålçl“PZEl¢ÁKÑŽÅC7"¤B £S<+¨g®PÅ’°‰q¾ª«9°'OE¤ ]EY7³5|å¶+¯¥FKg•š[6uì¯-cp'9SϤ°JÞÀÈ‚þŶ=»š/ó$Õµ^3ÊÅÍZ •ƒ4¨Õ•9ô—ãEõçVy³vLb,X±f$#Š½„I|hÿ Æ}:¤î–AŒ§+÷ØH~³á†8wL´œYìÉp ¢DÍû>D±ï÷J@_÷@Ò2ÚYLzrf„s»º`¨è*ž_ËËšÚÕuêÚBoºô·IŒ·e´h©ÆÞòé5ôûÚŒ|qì¸ó«êJñý^ê ƾQ)¯À¬ÝkVlijчbVÍ[‘„ƒQ2¾Ç=È?úgÀ›·WâŽ÷׺h0øPíuµY@‡LvT®WV0‡CÇFªàðZ/Që¾!OÈ¥>¤^«q ¨WüÁŸ×“ E;ÖÑ©7r'ZW'uÉVîýÀ±—GqwK†fgZ‹¶C핯TézC€´—¯HrÕVf¹Éñ½Ð¶–]·•KñÊFÝ…Ç dg`äæ ^“ÔÙlêþx©Íl·‹.g@¥7QA¡#{턺i“ŒWœT°Òcts³GŠnÓµ“£Ã~Ç“-^‰äÛpóÞ¼œ7Àµ…éhÀìÈ4#Ål–sç(qEJn¬žÙÍ„¶ vël³s£JÚãëåʧã”q†^ìpàw‡ñÞ ë4mmå¢ÙL4"ã]× “ºAÐœ†VRN²€]6V ¼L˜¦ãº‚VÝ[À¤C¼‡ ¼ _öÉÒ[§[³)‚qÐ:+œ5[7B„ h¶ªAÍå<]@ã{á~ì¨YÁsu^JAœ(G>ÏÕ•ž„U_Žv.~"J×Ëœ˜ÍÈà _ç~(ÔY8O[ÿÈ™ll¹‹$ÊuÛD î å„Ì*&øŽXÞüât35ÕŽ"‹mš—ðÓ“›×ß8ú@Ñ>0—›¯è7SïŒÏQUVÐuÈ7˜`\KL,Ì ¤C·éjÅÐŒ@ú G²€ÌíYŽâ}OÛ>°ÈÂæ0íÖœ˜˜R¼X“‹´öˆÃ^¦­´d¨(>W-/¾…2á‚â½óAѪŠØr¹CðË”Œ¸'¼-¾R³-«`ÝõºÉ®ƒ²[_Ã-¡q".rå@-Ùê’ÎËUÛÒØ´a»!‘3¸KÏZX ‰¬pñ` i\•ƒ«uÛ\îlVgrÅÏia¹ÕœyB,Ðàn-krOGÔ”9Xe îÂv*²‘.É·éívÁÅÚ¡‰¯´£N*Ô¡ˆ—{ëØ`¼€Î2®ˆl'‰3ÈÁ­•K‡žþIAl Âvkºƒ Tµ™+ wm>›±8Ǩ)Í#¹È+IÍ9 4ïÆÖžyëµãmƒ¤ÚAŒYr±<.÷pº£cs^^/¶~0ÚÅ|yÜߪmN5\Ò³ÐÞEF€´— àÏ`’TÕZ¯­ýúÂJýY0äÖ8žÇHBÝ‚£is–Qr&ï.Öx´žÜvÜXb2í\±ë°DOŽ¥öŒâ‚51#Ƚ°Ix;)V¼ n®ærGÉÜ–RÙÎï’fÆ%6qKÔÉÄ7 ÊM…%rÎrÎ5B”¤!Ôy·¶šæY¡Ü¬v=Ù¡jº“O›vå`Ä QwÀUÜ=ð³¼^t®†g9‰ K)WIå‰^xä-öΪcSÜ‚ôÁ#µXŸ¥æv©Uº1Ï3ÖÂd` ªþCœ` à@¹`‡¡À¹êæ8Z¯£z­W*ÝÈÞuà„m‰‡~{–™rÆz$ dµ© )ÔJÃlÊÝm‘™åªQzAÙÞ’= ‘,o1,29ùº‚ùÚùèaÍ’ Sh¸µžL–>­j† ¢­˜´)ßywÔ›ŽÃ™Ã2ÃÝ‚‰¯: gŒjóCŬQˆíÔ+zoîôÉ$joáâcî1#:M¬Ðé2¤âpÚ­M®C™~SGw!g¥)غç Þ:*‡Nír#ÞœÌö ‡ùIëÃSw*ÇJ+à>J[¨'Øa°‰NgÅE‡«Ú°ûäv—ÃàU ^röV—Á>ix ÌbɇÛÎ=öa©œ™ó­QINVG ‹ ÁºØñÛK­Ðéd‚yR6-ɬP+ÝrA¹ëZ5éA…ßîæ&͆Ôc,±†Û̬gƒ}¶†Æ®!°iÓ%w˜_g ¡ˆe9Mb9‡ãA¾ô;ºaæaQ sbΔ9•NL•YLåÊ°·lŒ×»¯R´B‡£¡sÛ êpe¬g¥9d °ö–6uBn{©NAG¥°CÝÈ4zßzmdµ²´kãƒ0©wËr¯dócys‹BTw$é‘Æ4¯ªé&ðFæ[–ÀfË+§v j]©VžŸ€„qX¯Z0‚Äš$zU/æÙ–Þ6êµµWí& –ê<=,Doû<OêvŽ8óPÚ< ìjG¥‚SDì…œÌut¿… í ù—Ú;¹Ö÷Yvà\fË–‹=ŸÙCª~‰v«³M×hA¬4CSBb€•ÔÊú4©º°uN]à¬.{6ªC4 ‚6Z˱žo–eé’é:Ò im渹ˆRnvž’_q†º£uÙõ•Ý­Gí¸Ý Mü®SÝj±½BÇ¥±¨Ü+ãÉ_ºc‚@È%󣲋«l'¯š¾\’Z’رQeËX‘H]ˆX.5ÈHXß)ýNÝô—$"ѾÅ#wW~‡-ß[eŒÍ—u଼•„UX ±$û­ ¢ ÑÚì=àÉi)³£g'd¨À(8”8ÙSe+{¹ó˜µ¶áw…į„ [%ú<$(èö£QqÕdIZ7&hCÚ1Cu’4žAí¾Ba´“DÛNPš™_ýe’1wµÜ-â/¨nØ°Ýo‹jp™G õá,ÂÃ`òèýJÞ`ªâš×1a8Ÿ³UÙï‘vXk³s]Eù¦Ú¼;µíä, ÅqÔ4)/ã³IRQΖ*KŸ·ŽFmPgÂÕH-cü˼Î6ôìÐe|Û½wƒ×<æã …Îk8C·jßÀ—î•;ˆFݹ”ØáZ“ÜÔ\©ízmàê® ¤¥ä±¦”ÒKÇ¢iHøq¥º#EÙNݵ&$ÉϵÄϱ{ZÊÔÃéoÎñ EÆEiŸÐ8b+įÖ.ŸEÞ‘Ü;™Ò Ç?XÕMócÙ_È—£œ^ã6;…tYÆhVÖXÚúpbnû8;u­Wþ\gæ9§Sª­«zåˆØ€O)ªÌ’’·foîfA^)j5·¹Ámãy;hXÝs@Òê»Ýa…XÍQ"Û áõã1ø²$H€Î„¶_ '¸ºÍK§¿"½p‰{8ƒ€¼„>¬ñ!A•Q‘¦,ø£¢ L/y*N’8BÔÒfÒpa¥—5PîÆJ.­ŸñahëŠ"¶Ü•:oc-3j[Æ Oó±V,Y²µLÓ^3ÆÙC´þ ïFg¥ëV 7cÌ<0T¯‘_wK1)¡•Häh0º¨[­eüdUÔt,2cœ[1©š0ôݽòëy~0¬³‘mBTX¬êˆŸë"í°½-¢˜–Eá/kË0¹+Il!wyñ´ß]*`—>pnÙ·Æ<\·VÓÉtnÖ%®Ž÷ùæ ïøç ½ Ï™“ß0tqnŸÕd¥'ÝD¼ùéÊy?¸³´Á8ëÓ%€ã` ˜’U*0éDQLa–óØ–êtÕ\ÇÝnmƒÂY2çW@휳¢q¸b6¬‰ÛÁ[‹îL§µÌíhÕ6ÃE×óÙ°½_ho™6¤+ «ñ6=g\œÉ¡‰8ö\Ýl.у§0»ƒbÓD-»‚ 7Êòœpžc!,yÝ­¦ŠÃ¸öVV'äñdÌ3@Ä µ™©~>»së£Ï³Ñì}ï®ëø\Zz«w‚`/—h¶Û $_qåâêEeý!a²C¦pØËQŽ³‰d#…rüêæ{Îöe})Ú«Iìšì¶æ>: ³œKh’óWóØ =·µl£œ3<±+‡ó‚;Ä‘/£©7<°‘G6s³ú¢l)­20Š}§½•iˆTk®Üm/mÖ¶Wk]ö8"r©«• O_¼™À†\©¸¸¸tÅn@ ¥!C Xƒk$•¦!c¢±ŒÎW1ad¡Ð×¾èj‰ƒv« ÑyÜe™†%ø(mZû¶À®FšõÖ’Ï­LjÛ›é§ížÎõÜÒÉÀ?{úµHbdÏyÊíVôÌu“å-ËW;¢‹ Lß¡&ðPô¥ÛgÏç»Tè+LZè:¡S›4*‹w³ÛÉ¿:Σ\"VÎåzËÄ€pp ýŒÒI@Êêr LÊnÚ€_%#R÷[”üv­˜ñaÈ4àµ'´guËôqáqc[nÈyJZÀÏêåŽÎ²Aô÷ŠÌ¹ðT‚rçÜX'Ì¢¹™«´<Ï×É-©*µA“9΢Ýþ|º©sv´@® q+°ËU‚*}Tá5iÕJÒZ9Ïm~ídHµö/,ö ¤NÒÆkk®ºl³Î[€¹0‡ëñ©YäNÓbk~0µ7¹ØìÜ~e;'¦Õ{°,‹6ˆ¦£YW_Hq=[v]µ ÕaAœðü0[:'³ò–K©".¢îva]¼¢j+cd‘LÉü4Àœ³M.HÂnGUÉøþ)|h{Š‡OÇ­.fÓ,øÑgKoaõ«æ¶ZY \%I°”·yÜ\œ´B×þi¯{;ÏýìÎW­%¥øãk 5̓H§åERÝcŒ6nÝì]ì¦ÓuÑ•¾šÀi—·ùME-—§­øXÞW§ r¹µµô½…†KÍÍö¬”:µËŠ]Ò†·3¢$Žéçõy?™„q݇Lß$°…h¹]¨ò€¹CâÀZÖH¶°‹”Ab!ð é+pÔ3är)ízû‚æ5Àär‘Æ·„ÛQÝÍÙh·˜®)åfIÌÁž[‹œ¨Ì²ç75½âÅr»×µ‹V]q[5D¼8_ç&ðý˲ÞÌL£\HÇD/±G)5P"Íß7+>t>«@AXÄ[mL”Ùè ÍLÅîÜ+JÞÒ™ &CaiièñA%vf¸u“^µâºg7îe𦖛f Å­éÙI= ÷”xÕ›<µ}Ñ€E!Šj4pã4wYéœløe ;­zwîê H+{Ζ:³âàL‘-?oÖ0øÝl’™õ×y>W•ÍB8îX»I|tæya¨8ÁßL¯²lM]»9“GµÛéW¤[XÛä.‘N&ðAF7νh¡È@r(WEv¸‘ªVÀeÜ-í´\êË*‡ÕAeŽ7‹A”Óš×Öq‘V«- É}/fÔ®´,žákO…4þâÈ»{9œ_B#‘‰¢±b;´ó|çD`¦!_½Ož€ý 4Æ约R‹u#Îr‰¦[‰ã†JfR3U*D ¹~¸ª#²<ߨ#+élIVÄ‚8¦>_Ùñ@´FŒøMè7TZäQ4ë*¯8S>$s£ A*:¤¸Í‘6Œ>™9EAîžË/-¤CøNɉÖ‹•%ÙJäq´ïœ4e+°ÇÍâæÕ3v¯F‹z­C—Û¸395usé/RýzÉñÓH4w™,%ÒÚ¹é§ç8q.Éêظˆq³Î³k•ñ¥)G–RqØ5&6zhs œo”Ý(ÑQè.&jæC³&Z+•)¶¹}Hý$¤ešjƒ”~·«WZYÇ~4,/|Íà}s]ëâÀ$X® É·" ×opê Ãâ ©TrJú@[¾]œ‰q½[>rMÐ;cÏ”z¼ Ú¥3o@µ`Þ €ãĬÉÁQ²NßeÄŠ´$àÕ»ÐQ­/f(*” HÙò7·ËKÏSÌKq^H|ê§KLfþ5tNEÚ«úeÃ]x ƒ6]4N·½^‡Åíæ1óÍ©¦z*ó Ÿprµ’NÙ‡†‹ÃÅ=q½-[±fvú¿Qpî¨<Ÿs;:3÷º•M&eU¬wʾȥvp8v.QÚšíöÃkÙ”gžÛÙ­ª˜Ö]ì„E@‡¢¸!õ6 ß É 6[à9ª!Çè³&$3*‡S¤Õ´8ØNä3<Ѓ»ÚœDwOÑI q«õà¿k»ì¨ñóZLñ}ˆ7-D‹}wX-ÒåivÈÞ-G>ÈìJË(ä Âò,@ :ú"ß,Ù¾tg˜Ó­åíþxi/^>¬AÕZ¡Ý'ó"5Kj (…ƜڒO´Y]]à5ÉJ° ä1öŠ¶Z¬‘—“–[dE±Îf7ZÓroù›9¿ó4ãny6×æøöÜã´vC%ÔIG)!£8 VJ¾Á‘¶Ú*¢`V>“»Ç¼Î7<¿„PiÆó¼ó´§üÖYŠì®Û±S÷jÓf-jø•Âle…hÊÞÄ1íýÑ4Q&·Užio²ºYˆŠ©Ü.F¿ºôXº&ÚA eÔiýf]›R®*–G÷d‚WärRèšY¼ï1É«ô*á˜*¨æ iql·pHfBéÐoÔ]õWa“éˆ âÂbcð¸ þÚÓU….—†€§HüEwsCËq¬ÙÕòÔúØigGf{ƒuT®ë“x<¦YL.VÍa»0`3©Pzk {ŒpzuÔWCu;KÀ4¿òãÿÖ"ù)j}Vsª™›¹$Æðu£A'ïzõ–"t‘iQéç´¡”ä°Öo wk`øµ¼Y,û9gç· œÃ¦Ê¸s·¸øÔJ jºex}áßòÔÂnœŒ²z½¡*’V»¤6ÊQ¶KÄPúr2˜ÒêŒÔåœÒs>âHC¢ËÕeØ.”®Ø“ZpZoXìgÀèAÛù+4ê…6Ç#L•¶f?W\j}ãLiÀv|AÀ8ø‚Úp8¦ý©WwT,lwæøœY˜zHâ"ÙZRsÕæ¥á.W‰!„Gñ9°é2¨E¥Ÿ£esÄ~€*:_ã:6f,uŠŽå’¤²Ê1øÀíëC`ì¼2·‘™¸P:\®ÔÖUß#Mzé±ìmæŒB’+ŸwÐÎkGÔ¸=ŠéuÈÇúUviKÚ-ª¥» -¢cÑ·¨!FæÛ-7ª@VW'4¯– ='³¥jâ«|#ð‚*Ñ$IËJdÌ÷‚­hìPÃü¼\Þjo]’ä!£«Ù¸Ë«X\ç´]í•YreEoñèçaâGîVªpeïNV{–d¯ Žä!\lQ[ð†µÀ†YmI½°–UxmM”>,®Šñ(æÅ¢2¬›Õr1¬‡£»aëw<Řä(E–0Лyf@;êè‚`ÜfbÈ.dµ!ý–þZËìA½lÇ^ªm«¡mDÃÌÓÎf†¤{뀬öHm©\NMîyŒ¡^€kãæ%R”]‚•PçÀK½àZ@<Å+*Ë\lâ«m«åx:{Ø×ÒU L=‹®Ú2!Ö¦o4dšb”ÜŠÚF»lW< â9†õË~À—3Bt\6-éHÙÌ0ó´ÕmóÚj6ìq.¸ˆ®³âñÝá²o€5¥ ÄíÔ ¼ºž÷'©ÉU€ 7 ZåÔæ²ØÇŽÄÐ!ÇÒÝÉߧÉiËÇ-¯‡mlZüv½uëð¢’A2}•ÑkJ÷zñ¢~·eÛR²Ð{-X“'ñ¤ $’ ȲY­-/l¦%ý#ß2L)ËîK^ £ÔnÉírhØÉdFlg ßvS;;SÜÕdDa¶ ߥ¬ýFòÔµÕoÂ#4*8<ïÝd³$™œSÌ–vÁ\„:Ðþ£]Œg§Ãúåæñ3öœ yÙwn€ä #¶Q!Û×Îî6äŽ)ÉÝ@o•|`°®šGʬe­­‹KgX&[ú;‘\—¬J¹µ"º¦h;Ä”TN>Kå€JQª†~½·Z` ÍœÜòÚàtŒÎÞñØž¾¿Ò» MkuÎz0M¶¶á’Pº8‡•ätu í|±pЃd‡p†ÏY¼ëh~#3üSzµ’\¼¶–]c%žêó²ñ€‘2¬O@¢u*ai|Ï¡&vMF³ÝÉM4³ÎðP pÃÛ:«™ÎY=TE(ãE“ÍU¤ã.‚¯ŽùHñ¹^”‘v#€¤UHêœNj÷KÇ*P±¹àZ0Îp]W~vËÀÌ@Y°²Ý_‰€ ÅAOôYgH ­@Ú&SÖ6Ï‹ålÌÌȆŒ´˜rÎ3»V(…¶KÃè‰ÒšÕ»æ³h)ø±GÌ9O&[d£À¡€Ÿ–b¸î:ó‡^² Ä,< 4Ðw|sÔ‚Œ£K/Êø5¦Nõ¥\õÑÜ„tt29ÇZX מMjmÅ5ŽlÈ䈪‹am ”Hz={š0ŒiYÙå”6Ý‹.ðÿ•qżº¬ÃÁ EkŽEv 憒Xùé-Ó°ž;–I%¯›|<õÄÀ‰ SØ 57x.°Äö>?áÜéEê|kaÞ1ißÏYË·½nÈÕ¶‰ðAMnás\¸3çD_J;r»*.@F‹¥r êóüìpøŽ.“hݵFuÕ;*‹;HöxÁ±™/—;~cTÇÃ0Ë…ž lÚ<ðÖfÏ*xÎl¨`Ö stK‰K/KGÆ+*õÚ¤;®˜ù¼ÀO3uksßvê:g Íéw`ËîJQ¸¯UïåÃâ /ih}X:\@ƒ*„v½ ›*n’†ÏbÍG÷h{v¨€YM&]ÀWŒæÎa.ô²Hôe&bðœY×¶à˜—[Ùu¢‰N»7¨íÓ Ýé™iŸÊLïfj“c7œ^$'±€PØA?16Ù É$P×?î·ßÊ; 76g̪L—dCÛ(>¦õq`ÒYEy°´°Ëý8KÝÙN]ö!©Í^Òé0£œ9&KuI®T˳•‹h«‹ÞέF‘ε·f«;¯s#J—69a—B"))¯ôeÇ›V`ìj}ÕÓÚ±`¾“Ķ[Àã1= ·€±OŒ´*NÇºΫ«®e:ì¨HNÿ"¾U A)á²Þ”¬ç^Š“|ŽãëªNŽ§íw?[Ä^d»Š¾¶A||™U·'"‚òa^\y–ó.1Úvdq˜Õë­ã`ñq_73k¥zLBˆ^²*x„…0:ÝÝ‚p9ˆí)µ%V¦'“CÅíI¬ùs·•ÇœUoÈ€&¶ÐQ: XMókBC[¤ÊïÎœç7Aê¨ ézÁe »op$X/³§ú$ êÚòz˜Á¶½‘•XuùÙ¶o¬žnV"Ã]ÕÔ·öàmý3|á Â0Øå gbl¶_ÊÞíbv0úk°Zm¶•¨{y+À&6Ûž Nð h{Êîÿ¶Q0™\R´v`UKÉP74ÊCZÖñ-0½tŒOPWÕ?n{ ”>[šYk/<8p;afú °Ä.p/äìe=g‘}•dä4T7æD÷¥EIÝT‡ ð]´Ö1ÁÏÔK"UË0îa§%ÃHhÁñe/`m(­¶g÷Œº-Ëx±<äÿt[m+|ÃÁE¹™ÄZ(ok6Á3!¹á|<ÖÆú²QÕcCt¼œµ³Ä»ÛQ¥.À¦³ÃCOmºFwÈ ‘<Æ"=p¤@Hðpf–Ç ¨Æoíb«:²yo»²pcö•»écn:Í&qoËx[’#,`Û/v²±A©ªXF±½¸À[¶»+C]˜J\V+ò#ÞÎ×¾CÕ+ºêU))R7Ük¬ÜСÉoCBQwEÂís¨^êÕ¼ž†gÃа,¾z³Æ×S_n´¼?²ç‡Fd #’èLƒìR!’ïØú–F${ !¼Iër„ÃÛðÅÁf¥%âXW «ü èºØ½ÇË>URË•¡bÖÃrØÊak׺ZÆ1A•öÁ©ròtV˜¢ðÜ>»dlS´#­ñU²è¶ò]¥jev=ô^€²äfaI‹kp#ŠÂÂU¹ 0Šë>LŒä¬YŒ6ët{WãUK*á8u8ÌÖ(ëpæ‘ó¾Õ‡>Ø'!·T#êXgÅó€w0_]üÍ\¦“KGR‹vÖ+1ÚÀ"̬m¦)ì¡ßÛ*]úàŒ,Wñä&£ÛpØÞà d”XÌ9(ËðT¨óâeœû+%vDä`G¦ê³³¸.…Ú `¨×2‘hQjÉ@x^s)ð’/ä³6ôÏØ]¬£ÝÂቅÀŠ¨8œ¯&´Q_6sq‘‡år·p‹ZÇÖ À©­¡C©†dµ¹vW^z1 P¹šËA­JXŒa–m2¹M/þš_áá<Ö BÕ:j³6¢Ò-9äU,Š3‰sÃ5ª;¯î¯¬_®Z´(ÖnI>º›u½­ˆÝŠºY€»ç§M’1[*IHeVNo•2S¬ÛÍ6²Ìõx€ªRJRFВ뙑žgꤖdé»ÕxºŠ1›èøe¶”nÛÊß«Wω[V\”Ý2‹û Çõu˜WÕ&JöÄr»‘K/…¥°9n(€‡UÏmM¯´ƒë­ŠBÞí%µŠn1h°Û+ñ›Þº#²éE®K–Är_³o)wÑâÎÝÌA-è+a›ø#gÌ°ãêЬK!^o_r&-2b‹¬n „=óñ pÖõœ@Õ˜u¶à;&«†}üQЕ]OãýÐl*­õ¡"ªvŽvÃç±»»ïú“]Ý‹jGç=e:ÉØ ˆ•éqIV‰m“¥¹RC«›ƒnI )ţ㵠bäeIGé4Ã` nv(륻©â0›#Ff“@ÚÑE± võZ¦“Ÿ gèÀg¹gŠ \@Ç‹ñ&óWE:T+Õ,J£: E™*s„b±ß6Æ`Q¹"Ï«êšn·ý¢ r¡Îí›ëìcñxvu±X8Ä~%ˆ0Ìua§Ì$žX|°0·Ux]”ôv®b«¥»&IçBpždçLÔ¶¿žLª² ÉRBu…¡•EÍŽÍ UW&ÔNº]AP¶•7 <8ËÍ¡#•S—µ5WIêiÀlj¼y^Ÿ‹ÂäTàa{IB’êYûõñx dÃép{îZ›µÔò=WÁ¾¹Ö¼*†*Ø‘\L¥ÌD”+ŽÅâÃãÕ©½[<¨*W„`¡ñ et›—«‹üíbòDT-æDií¸gO³pGC@-sx£´.KôJQüf+7»œ«táÞZšâB8ÛÆ|âbÏæîdTس²fåÌÎåÄ%“),I鸞0˜{Ö¯ ´ ’ ïöMAÕœiÆdê´ݼa#c ",ÔÊKŸ/Jv¸Ò¥@;½[øì­0–í¶ iÛ©G/båÜ ÇváÛç»coH0UVÃbX©,©¶+‚V½è6þ¿9΋¢q–Œ{;D7WDתºní¨u#¬í©vNy8wÐL«œín)\¸Íš(ϳš1wõŠj¿dØÔaþä@Š‘ÇÚ4gë›Þ @¸L&ú>¾Δ[Ñ{KÙã=×ØáèIÀD홽РL óg\=cmºA‰Ëo–µu’h%–ØÑ»r9·!œ«o_0[x›Ð‹Ín.æÔÕÝJotÔ|C³õ¦›!|È\SlÎÜe±ÐnœM—€ù E{ÛÎãd…»zhˆ~ijmY»ÀÇóhybê¢:ß“ê…â‹ ãÅŸ€Ù0\8jËéå¡ÃWë%¯áÑÞP5à¤ÌÎIF2ðº–é–r²† 6Q}‹›á¸&óínoÏÞþŒ³ÌÙð‰_¬·Z e«ó¦‚6õ;pó«ón™V+àgIr¼Qf†1¨s“éwµTç†kb™Z ×AU‚‰²M!Ì=Ò@³ÅMBLÏ%í!ðïmo,H,it.ð”«ln–Èwƒ©gj‡TsdmZóç]‘™vÊë5JÌyà³.©©@ã€>“l±ªkÙš¶{êÊü|ê6ÎU·‚À\qFºžu$¨'ö™¸hþ锹 ¨í•ðC•`u†îŒä›šˆl¸±PÍ6ýò[µG.=ÔÖ×€¼ú |Œ3 ¡!¢oÁ<–ùš\àÿs­™!Ç\÷ëMÊ0+äÚ9’¢sé»éö"@ÒšuüC)9W ¡„'\f³Õu2©çÙŠ©Cœqa²?÷‰HLSÏõzË%B^*½Gù«árj,=ɳƒÒueG^l^o(9køÉ„‚,xGüäíaîh¯äë¹Ä—÷»HöÙàùÁ&hO†N;ëlÚ 9¦‘›£¯«Ö—{“FxÄ ÿs™—ay¶‘Øç¶P†á4áŠ6èv{ 2ÌÚÝ®ëå)Â!G ¨õ:·Ì9§!_éÈÉ“—Lß^“Ø›“ÉfmÓtè>nf‡¢oWry–ÔmfÑ>²0p†4½e(¾Öô[+Ö"hŽ;Y·Ä1[àfË^Oím·jËDt8ì*µZ[™Ê`Ô,/£q§Ùv7Z¢¼JZX`{ÐÑ÷M5P/»òìÁÛÚ±g‰Ô-L©¬! ,]lëËÊѼæ›ÉÄgêܱ|åãLÝm’þœ¥ª¶#’µžo¶—yv w0Óe˜Ÿ¬pÎ8úÆ"SZ:ê'mkâdb l38ÐÌVÎÒ±(†a‹v¸’ÐB]f3÷áΈM,ºñ›ñ´á®©77E0÷[Ï–¶Ú?cQÐÒTà”Ù<(6êHsÔCó¼LµË x —ÁêÔ¡Ûâ `G.϶͟YÉ€ÆY&ÛxÑËÀ ƒ-œ<ÓâÌ’^ó"l(éjZx!¸[„[v f;éÔ#J.O\'_OÒI­bÉÏn8 çŠÞdâé„z)´Vñ3©“…m«Î›mi„ÍXåz"ë–Uëý5æÍdKã:NÁ×fV8äÚÅíÃi{UåêÚq§ ‘tµð€£ÉW›xm¶ÉNƒ:´‘áÞñŽ¦š ¥²ö3«:ì5›œ³„¸Ã×wJàQªÓr;ÓU‘/MwqµÏG‹³ÃPŠ -’voXŽëªÈI;,¯›mŠœÂÓ RMAlM[ì,9’’Ï8µTÙ¦¶8Á{oµb PuÖ¯+ÝöÏ"ðÈdám¬ÝÖÑ®A›ØÁ » !s•Þ1´Á‰¦ÞƒØÏêλõµ OÀÏ*÷-t‡‹Ó¹w·^Uzg.[:D÷)Ü,~Ç¢«+a«…Ãîvn˜3êâ׳˜YˆÀß4Å­|mÊ«D$¼•¾#Û}w+rÞ]¯vBëòžîÊÞixâËÂ7¢ÂÈÖšL:³ÉáйµjðùŽTÂÌyÔiŽÏ!d¹¬Š£µÚøï“–Jm`<µ\Pg¦à¹ÛºVtÈ©#d}7×ZkoFüóÜ B“¨˜àvZ ”{š‡´ȦÔU¨`*o2Iúëͱ8….áÚ`HŽ IÞRBXæ;^[¶Ç#–$øì5 Õ2uàâpBÑ÷ñ™Ž€„‰çHåWbã]°†Í%K›&%…ôfnsËx¯IλÚëˆkê«‹Î\ÃFs·¹+g€ ¢pBX³·°Ù8ÞþrÊ«jЫÆàÎ Ç«ñh_gËævºhŽr\ktØÔ½Ð5¬b\÷Mn°Žpøn²†®G»¼¾kgQ ¯†ÎDu6:åÝnvý±f¨B¦õgÀSô–šKAú7^_¸pÔÛî:.ºêVÊ}¶@ºm,.Ô{Õ"dæu§^PÛ\6I{IA\ÇSfàWã•Dcxa{ðcàŸ-(k´Êµ™½M¶ðz6`¡½ÉjÃ^Ó·)»ÏäS·à@ §[táïÚvÖq=×Q§€“f1Ü\scÖÌ z¼ÿ¯Ÿ‘O`•Î!f´/7ÛñûÆÆVV Ãìáf8Ÿe×↖ nÚ›*ši}ò·êeýë÷Þó¢@Ä×·ˆ¿`@=îÃßQX躭½ÍÜ%LÂT³leMàöƒž¾X Ø•îš ]aª>ÞT ¡Æ˜Ã ‚p ‰Cf‹F©x“R Rö\_…Ûbž){E>¯¥d,„ÉsHÝK$˜%he KªÆf&ß*‹£5h…&´&­BÜÂü`s‚›øl÷èõ6æ¸[Ÿd hF_½- €õ8‡–[ˆƒ# ±FC³‚éÅv |óðo^°úðxÝÏ+´„ÙýîÅ´Ùƒ±ç|*Ýo¬@Qî„ô‚¶X »ùÖ=§¿}~ýózÿë§ï’ÿ¢>þÎýÏ¿câ›û_)Š$»ÿõŸñù~5y÷<û“w“w§m6>~þT~Èž¦ùÇaú©È¦à…òçOÅôÇÓô~5üÇüþ@>Ÿÿ0–’ä÷õ=ÏL§]O§§OCÙ‰i:dOO÷®>e-è9~ž¶Y *M‹èCÚdw)f—Ÿ¦íÇ4ûîÞM|iÉ¢¤.?ü4šæ¥î秬§Ó?àÌiv¿½:ú”MA;ã‹ã‡dlŽ ¾'AsÜss¦,}AÑôÓÇi— †vMóòCÔ¼ vߟŠìÃäó‡æc”Ž<Ñê6e<ŽãŽ‹øçé!CMê©ИECúÝdºú~òýê©jŸÇq“,>%yõ/,;íÚéáä¯NfÏ—ZOfŸ>~’ìé»âoŠíû¨¿.³>þ ]öô)-?þ¢ÀûmÙ†3–})„J¾+à¯~¿ï†òcáäûïƳéRúQV–ÓáÈ)1¢ï§ìÓ4ûs”|šÞ'`DÛ3qÅÙOå‡#â@ÁOÍÇ ÷©¯ŸL>ýÜei–O(ŸAÕÿ1y÷ùÃSùÓ‡½ǹŽ?þ1Ù¾-³æãŸ~¥|ïÊÿžýJñyþ”}úaò—éJäu͆‡O>]½þÔïtøÃdòÇeºšjÒ{À.ZöIŽ>E' [>¡ØÀ÷õë€JÒŒ˜þ~Š~]ŽŠ/“ˆ>ð…O VæSô^ GûîíhFÐǦV«Ç ß}å;7k²è){m}îçñæøÆ}ú<|˜¢– ú–>Cöá“È¢Øtó¶ýñÕ¿LÞå`N?|ÊQ@ÙÐK?7é‡å8{QzŸ¶êsÛM?Eq“}µ²?—ŸÐ 9~}îŠèœŒþidÍ{¥‘<Æiÿ–É‹†Y4¬>d`bÞrçü¿¡ï¥ÕïYÕ¿Z8Nâ7å¯sù·ÚèÿÕjÓÙŸ?Ý_CM¯OS@ῃÑÞ[Ä|ÛâsM€‚o€ùtΖõÃK½ÝÇ`"?3<}ò€ã ^0¾ÐÝ3Ù©Cß4„Žò'€lŸßz}ÃÉþJÑ'0¿ï?MÇð׎ðwx4q§ß¿ Ç»OÊ0ŒÜý¹ óWp4Î0(xAÓÔX4þûû釲€¾{ûÎH׿Ú6–‚<~ÝÇ0]ßÇð1ÿ¶Æ½% Ÿ"à^Øé«~äôéï ÁPŒ¦[à鸠ðÜíÛJwþù>`À¯ž~7ÎÿøÊwßàs¤n UÐ窀Ãñ;äß´÷V¾¼;Îä»w@ ÖYÖ=3г¼|Qaé4» æÝ/@z¥ÑqÞ~Au÷þ¿™6 &³éøCƒó]˜¢']tù½eì\ѽ¼ß KÆ&#°å@>#ß~˜Žâà­úLîäô¹»áU=|þé^”}ñŽÁW’{L é(Y¿Jùwl¾¥Ójág¹ôŒâ»thÊ@ÑŸ>wÞÊ?¾bq(³§¦¯¼|g¼gõÿþ®üßQþw©?¾ê“òðëÞ\=}zÓ ŒŸÿ€HŒÒ X¤÷‘ƒ^À4Å?}úÌ€8K¢QJJª äaÓ<,‰ø>‚ׇÇû“ûÈ^Té]@ÞKÀîÏÍÄÚ}ÞÂ×£çOñã|½´<Ú_hyÄ´œþ딚þÏÿù5Æ@á7Co®×ã,NŸ?¿DÉ×8}ÿô !Š=Šÿ2N×ß‚ãdÌFbýÛ´:¶PÞë>>=•@‡á_òj>âwä”þø±¾sÝ+ž†§/ÿ„ñåA{“gB…é ‡¸û]Ûúxèñð<2Ènþ1û×8ýOE ÞüZ ¾íôïi¹_“xoUà»o^ƒiÍ>=šmŠ¿.Såò L@ö,Ûÿ¦è}3Ê· õ7”ê³øF|–âxب þŽH›¾~ÞØC@¤{(¼ú­ û—étÑ™üó'`–ÿû¿}€ñ7õ_>ß  ûáèã I==úx´þà‘÷>ÞélúFÒ½rË ûýûÝóhx?**l¤Æ_±a•):ù¿È†}¶ÔaÃ~±àÿ#6ìúmûÿÉ6ìˆÌÉìŽÚQhü¡£,ø¿Û¿ÿ{Ÿ×øSMöôýøùôŸ ú;ñ‚üûMü‡%Iö·øÏ?ã3ÆÞÌùh ‰Óâî–=|ó» Œ¡ŸÞ¸ác_F‡þvDcrg÷÷ï_{ûá{æøÁç×ø4¹ÿ3cÁŸÿÉoøŸa)ê7þÿg|^øÿ>çÿ$î}ýÆûÿ›|¾åÿûZðV>äåOßÿ9}ümþ' ‚ßÇ0,Cq4AúŸùMÿÿs>¯ë?¯s>²±tÿþyxÄãó&úé±ôe!(Íþ˜5»v” O??OlŒ7M¦¿¶º3ËIò{’ûžgŸ—QÎ]zU%Û®lÞö$Ïåw—”gOŸ¦Ìwè¹ÎF ýGWM`õ·q6LÉßÝWMØ)Iý I|½l’aã÷ïíÿ¦¸æéýûûBÅ8ÌÑŸùoÑ0”àûaø8ýSù©˜ÚÙ§á㟲¡~šž>t:µK9SÔ>YØwcõÙÃsœ‚‚÷ç“òþà*Òö¸–ò{]eÅ=M‰7k)ч§ò}\þù»6J -ù‡`'O–X/m¾Œ <ÇÞº/ø€¤óS6†ì%è1~ŠÊcçuqæ»Éìó½3Ï=+/ßUÑ÷h½t+ZÖ{Ãñ×øÑ}øñþõô¦ùø§'Ðà§ìŽ«îãý+ „—ºŸúÝ=bùáãÛµ±6{ážF¬½¼-ÿèxïEY~¿»xÊ{Ñ{¯8òsÍ.JÇ5´·oŸì2éGG5´{*²{ PÐ)‹¦Omú¦Eu_`r~|24 ò^kŒÏEÍÓˆ¨Ñ2 á|ß趗ÊãœzŠ}øñ°ûG÷òîy}ë w|»ŽñÝ}B$ÕµÓ率§ù àÇMà˯âÔÿYÆøå·{Ÿì*²¨Ï{?âéGé÷ v{¿ÿüáy"F÷M_Ãÿß ÔQ_ECü¹lî«œMÿ”|M7›;ÇÐÞôÓŸ>Þ qÈúÏå¥ß=†4=eŸª¶{çò6úyús™5é°îÐü<ÝéÈ2yŽÌ?ÝTŸEF–Ž Œœùñó§çwÿû#è9>xÅGZ>£|šÞƒ¶ckOÓ{ÀúÈk»tùô±‹îë¾÷6$]‘ÌÓÙ>Æu六2²aøø!ûøù Àxêƒ>†O?OãòÓÓ£Åϲ?w½YÚüüÀSÔ¾øôés>L?Æxa|ÈÏÏ1@(ï ` OŸ¾{Ô?ëc@‡#ªð²Qò~ Ò4‹?ÿôÓ3ØUÑß[ŠhNïãÇ*ú—דDOOŸÛqñ)zD7ËQ’d¸ç£Ûg(§OÅ"–áÇeÙlŒâwM™”ŸD_ÖÎÓÇè_P•ý9ÉçA¨0éCØo>ÖõÁ܃ øiˆÚ;|øøi\Ÿ)³Ù°|z^ØÌê–è§÷žîizšfžg÷swߘ0âçô±‰P ýT ï1ÐàéôTjJ€º×1Öÿ8}‘(ß4þ ã(2ïâúÑÂ¸Ò °zÊ^¦k¤û±³éÇû Çì¡;Ÿ¾Ã•¼qà¿xøXƒ>|üp:ˆ®?)ÆíÏ#üUn»/îQ;NÓ‹”§pÄà‹ø}ž²üuÖÀóxä¹äãOÊÿ¸Œþ”e_¤ÿ[@ï?¶Ì>ŒÛ°g,¿­ÓGH~ììó‡ì*¸KÙ»Œ½/b=á@>?}å?ß©ï¾pðéE07㞎ûJþ}5ásR€ŠŸ>GoiÅø%—w¤ÝæLÿÓÇQ¿PH=½P˜BMy…ýó‡_Pþóç/àRù)»CÿÒµ“L0 ïñÍû“Ç[£Ã}#Š@â°1µwãD¶ïÒëÍ$N§.@z À÷Šü­V84ò ø¯Jß‘ú³hÜ‘n"`”y^þ ±€yvF2ïoJïgÁ0Nß×43jÛQZ}|‡WŠ»¯MuÑÓëÒ ·g÷"Ò^ë¿";ï1G÷£hFϳ‘½"{QívÀ{^`oG»# ÈÛ{}š~¾/1òÓ‡»í9R律5Ÿ^Yí¯`òU|úÒç3æßèÑôcötAϯ¿šéçqÓË4J BFAÝÕÁóðÇ65i”c#í|÷…ßG‚É=ù8 #vîÃâŒî.6§ÏÃn»æAîw&xVL@5|l3 ÙLEô4Z4š2€¡¿Q¯DÉ'йìT Cñ±CóñóCQß;#ÜUü)ÛˆÎɘJžÅðÓcÖÇUÆé}ÑPnYgµ™<=ýü!)€}`èy?Öð"Æ€üñ ¸¢¨ÎQþÛ{ÑuÅ ´ `‚칇kÒzý¢Ñ‡)~Ÿ£H²?ÿàåÏSø!UÁ@aøïð}4Ϻ羿  ,Íšìñc¢Ÿ_¸ñYè%]÷,óÒìST6OwF™fy>Î̳Í'ÝgöeMýÍε¯Äø‹E=ÎÛ³Ñ2͸ه?–5ãl¾ ã[S,xa½àw«óþå¾ì:dÙ3#>÷óÌc#«–ÑÓóμà¾ÔóUÍqÕTÛ{ ÀeÍÏÏ KzÀÙ+øã¢÷Ð>½ wÄö$€šàYE>ªœ[ÞÍëW;òYÛýšQùŠ®û½Ôý~L€˜ä}gn0üQ¢EùcÎ>ðKôìãúΣŸ?~œ9šç)à5WJ0 >ÖÀŒ+rd߱ͱñGýìÏ£å7²/h¶ê§‘5>柀*9~$„çÑ=ôÊh Œªx #ü/: (²$»3åôA§£:û‚Œäñ €÷1þ4ºZÏøÕ x À£ŒŽ~~îjÄÀÙ1‚Ç þ©ü@S/jÈ%YÙ50cíÝBØNÇ¥©ãéÕæû²g³|0îE”~"é>ð»zž>5ãò=èþeƒÅ]ß·_=š‹â²)?pÿïŽMüöù¯ÿüzüÏFù^ðïÆÿƲçøÅŽñŽù-þÿÏù|‰ÿ}5çÿ¡ à»±©)0@žîÞø_‰ þo$ØÿgÆÿo¾ Ô½ïAºènµÿ—Å¿ þ#AÀÿm€¿îú¿„²~ þü- ø[ð·0àoaÀ߀¿… þü- ø[ð·0àoŸÿŸ?øPƒïïæà=æðŸâïíÿå˜ßýÄïh<ãŠ÷ÿ‚ÿ~‹ÿý3>³é¯œþ-ƒ_‚x<™N€ÚR®ü€ûuÔ4ÃOÄG5×a÷Gcé“ûÁçÕêþô˯ñ­&ã»åã€Ó×'ÉÇ Â{;_Ÿ¡'Z]|ïÃÕøÑÏé‚2çGïQ~?Sô|´þ)Y¤ß-ÒïOÓlj¨çJ@óît¿.1œ±d„7,ÿýõäÕ_¦YÄá/ÛŒš®ˆþzÓ“wÏg®~ÙÅ·#ø•N'_þ>¡ã§¿ü×Éàÿ?[EàÿÿŠ>þîþrŒÿSÅPKq€ÿéqKðoüÿOøëÀ/Gøn?eY{wþFM¬ h:ÒÄãÀ=z}—$_§ù¸SNÿf'üÿãçÁÿ¯bþ¿¤¿ÃÿA‘ÿI0CÿŽ¥éqÿ?õ;ê·üOÿ”Ï÷«»wöLSàúd/!Ñ6ú”ýî…=V³ï_¿}W~x÷X`Sþ¼ÜG í‡5£ ñ¯lúùÇ—`p±ÔÑuÿø§1÷Ò‡,KŸ›xÄY-@›tóôéç&{¬(¼„T^œÄïÞÕ^Vc€bõìÃ׊xÊýÕÇ£6žn¿}üµqñÖ²˜¼.¿}U:®þÒÄkù”øsžYŒ{“sà[[{¤$øUè¡ßÿ´+üÛk6‡_Žè›*÷²/UÞñÕH±±ú«8€¾5°þ‘Öä×úh쫲;Çe”aŒó~æé~Òì…ËùG@/R‘%õt ÅÛ þº¬\<å·ÄøÝk^…Ùh»__¦çkLþÊýõ; Ý_½þ ÚùÅø_ âkZzmÓÝÉä5Yxö‚09¿ œé¿þë”äÀ|LÑ_À mÇ'¿Ę<æˉ‘_0]}?ýM‹ÿ¿ëóÐÿb[þý—e€üÛúŸf˜ßQ£ýO“ E9긿éÿÂgÌÃöþŒ™CžIhóÔeOãÒÄ×Y$5é»ÉsØ|ܱóÕúγ/‘>²}|zŸfÀ¡˜Lþãp}ÿ·_Ò¹Œ¢Ú64ñ½¬¨_'zy}rÚý•òé¯<mìmÈäMâÿ\ù×ÇŠÉ£ð.yðWJO»_{õô+…¢ý•ÆyV8_Ú¾›Ï[Š4ç|ßRtÍ<Öý9K¾ÿ<À{V«_ž{ìÓÇ7/|ó ýøôM9(K®ä7ÏF£.Î>$Å÷÷ÄŸ»GnÉø9€‡ÿº}ìFxÑãè9áKê­ï&ÿñÞólÝ“òdŸ9¸Þ]=盾¤-<<¸«ÑÒµþ×å+ìôóÓÔÛüaä"/zª˜L_V¹£·>.Ýÿ˃§Úçá󘫯žÆÍUÿ2e(œå~‡³¿c^2T1µ±¯ÍºáýØÞwŸ’÷θŢùðÞû¹Ë~ÿ{Ç{p””Óé5à€×J’e|•0 rO·6=[?:ÚÈã§q¸÷Ô> Sð|\´ä¶{mĽ‡¹Æ,w?LÞ==²=¿ÿþÈÁ×ô>h"ö+u¿¤þ»÷ý’ì5†÷×Zx÷épîºløáëIĈ[à‰¼Z¤š¿7ωãžgï¿íNŠž®Þÿ·ÝHâöÓO?¼}ñ9/ÂØƯ•ß{øá-¡Œ OWŸðWèç«'ÒǶ¦²äƒ1®ßç㎋UÒ<Ç`ï=ݳŸ¾Ò:6&bdŽ±?”À°1ÞúHܬö÷ÝçOO(,EÆ…¶|d£ú0½×|ô ¬òûpÏŸ$î~t=¾?k˧q#üš¾múXrþ¢3õeœ`ðÆN”e}K‚ظ¿àx$LbtXîÕ^ ¦¯2ßüáËôO7¿öÈwx~KPÏ-Ö7ÞËY}n>Ý ~ºš2?ü"’û’q}L6 Øû¢éŸÑGÞÍç©ÆîáÞ/¢û¯ÊðÓ–t³ŸF¿ë‘­tú”ýô¼býoýûûļdæžû¹§yÿÒÏ=µØKœÿëÙ÷†”ÿAZžîž;m­7 ³ç‡8Z=²q>dæ¸ñîÃçö‡És.¸—}¿ÏºðEÜ=ªŽ5OÙOÁ/ÀâÇ¥ëÏÒ—ñŒ<3n½ç »óñžÞ?40æƒ}¤\ynñ÷o®·?ÜÅ(`ªÛ3OêÈz“ùÍÛ¯I!ß&”+?Ýž^³>GoÆå`|LÂY¦[ÏÐ>òç¾M†9®v|Lþ1ís‡ôïk–Þæ9P>,P>ôäÝcydt݃Ë}=µwå𿤎îÌü µÑïßh£±›WJx«qÞ­;q¼{ËÐÏšt°õ1æè»åãßû~‹qoÊHxÿ2]ŽÀþyô‹¾_Å„ý1ý<&»ž¼{Ûû³ˆt€,^Ð~O>7}´Ñ=oZüfœÏ•Åa~*¾ûî±%âA?/Œ†[͆O/’÷Þ(ïŸÇÝ4Óâó‡q {‘5ÍÙ;j^À"¿'¾Ðü}©î.'‰<³ö@Á+pØI½$[œ¾ýüzå{¢dâß±7óŠ>kò¿.:¦ÿ:}y¹7@þû¢zY€ûøÃ/RùþmC>€™}ü7Bâ‘Ø÷ +óòZýžâpú ñ0î²SŽIhŸ!}ÎCû*VÆÕøáãÇOOï˲}ÑI/@â“qÏúôåØèñ‡ú*‘ä_Þ|_¯ïÒïõÑHûãìŽQÕé»oú¬^¡¯óJ}/ä÷Fj½ìs;½¨“ûpúØ|…Ø¿Üw1GÆ]F€ô^L+ ÚÊ?gíçæ»çüøð3#Ýõ’Àòofÿ¦ù_´ÑþºBúÇôѯ©£¯´Ñ«å2ýÖt¹c÷ÎoÉ—·6xjߟ^fâÕÂy&¡/ö™óqúRýî_¿úZϦÙXáa Ü³c>ˆáE,Ýûÿ«¶Ù¯[‡¿€à­…øÆÿÖ@üŠGÇUÂþñ‚WþV³C0ÿ¯ ò¯öò`µ/[þqyùFÒþ‚òU6=¸õÙ36Ãû“¢}eü‡Ä集þsDê»;y=·;"ïQö–þz_ò)ÿÃÂñËëÏÆÆÿª ü² ã/oÂå߈›·ñ‰osÑþ*Ìÿ(TÅ“wßöùœ¬z5f4™Þß· þiˆFä«dü÷Е8¾ ~þpßüŽ½}…°7Þí¯½x÷'&/-ýjŸïÓØÿz¿“w¿ÿÕÖîk ãO&s¤ïﱂqWóÿzß?üSGôÒÑ]øOr»îÖò¯DK¿ì}›l’ä¾µ|ÌËXþñÎ=ñèjæÑÓ§ xó~&jÜíýjû7yçÝÿùÇ-Æ5hý§dóº»û§MàåcCã¾×ñÊšéc'û£÷Ð|üÓý„À¢ûž|`úßÏ¿Œ7Â$ãfÒû:o4ܺV6f•}*›é黩×??=eð)EÄ’ƒy¿Gd4ç7E¬õáe7ø›Ûž·ÝÞ™öY‡LyŸæ;=dés‚ó{ €Ÿ2÷y÷T™®ÆÔã÷{>þ¡·_d‚­Ø¿Gÿ¡ VìÿBïVÿÏý¢Ñnzà’çÃRãvÞ,ùüâ3F/[úñçƒT÷þ@(~øé¾ÃÀ¡¾Ëÿ¼‘,å¾8™<ðð*ÁƧ@%Ý_¥ÙôN¿Tx°°²?ÞÁ+'q²‘@w|Ù§ÿœ"½Ì¿lÿŒæñ}ª~!?t¬ËØëd÷ãÖ—æÓãá ÐêïŸï7+ï_Õ?¸†ãì>'Éï |ü‡]œ±ìÃsᇯK?7 °ãñ§/Eíó.÷×¢¤(»èåÇ PðÕï‘Ã^ßþ<o¾“o¿¿}À~õÖ7¿^k}xÛ܇·í}øªÁ_µøáë&?|ióõñj:^¦ðöú‡èõ”ÞfL{'“»û1!ãɃQ|Ž“þ¸|æüƒLôSšø‡âÿº³ú†—F½ðõ4Ìýáo’Èë®Ïû¬<àpÁ‹çþ#Cs;J݇,|ûä­<ÞÞÉr'ÿ‘3<}w¿àÝ»*Á_ÉcònÂs×­Ó韲ûÚQç¿mø—–ÆËAšÇ­I/Œ—?«¿§8î¤ûU×ð³eûòó͵Ó?EO÷£Ù}àå1žÅºSÁª±—QR‡!î+:o»¿œ¿«~–:÷3þwXÞ°ÕÛÞéóºL{ï<ºóîý|zß*4ê¡ñdTúšù±y½Kì-Ú±G¯Üü7|{x>µ—ŒP€îüÒðÓ}™ì«ÉyØy!ƒû°Fp‚æmj4ž^þOéà.¯ž¥Ö_ÔHOÎç{ÐÞ3^N°ÞQz?¸=ºúÃØÃÃîø—g þ@‰OÉÇ?Ô†þMl˜ç¯,±!_¾ÿÈ–ñÛ ‘…"æþçþ•}¼üCþ‚úÿ*´ÀA.û´w‰ŠßEâÿ—½/hãH~¿¢¿¢#“HÂ’@`“"ge!c6\‚˜<ãˆA`bI£h$kóþö¯Ž>gF>²yûÌn¬™žî꫺ºººþ—_žÊ4ýËmVô’Cªä‰Ž}S¥½ú½ SR¥ÄÒ3f®Mâ¼EùQÇ€ú(JˆÕ8ÆÅ}ÊùCïŸHÖk&"­GOFZìâ]['Ú»²B>¦÷|šÂ´žwËû~FÌïÎöþHÙ$“Õ?]•h6…ìˆ;‹5yDWbߧ%Ÿ|À塳ŽÉäŸD× -¨ƒ+mD[!E„A?$WÏžBäÍ–>¬q[QçÑk£Ê¢&‡ZV.‰›¦SÛcd}жwêJâGÉæØGŠ‡m|›Óæl!¸Ì§°¼%›tïúàcƒ¤ T7›U¦Ô4s; ì6Ék ¦€-·e±K£î`Î(1Ñrqh*G§1Tô'IAˆF*^èqU»îQ† ¿ y7ŸÌDËÁ'x+Ѐ{¥/2…øÓV‚<-0 C"8öùš•š#×CXIYl!5¹j‘E-ø|’!$jåIJWÒöò°€ ãx§Ù㇠†ûÊ÷" ÆÞ&1ñÁoúú RÒç cÆonÈ©!%¤Éî²Ê׆9Àåú.ð¤-s bÎ`ªÔÓëß}”ŒW¯Í"þ³Š+4…! ÛEܶ!Ó:Ž¯®Ù{’ªN¨¬Þ±S §kIì -—:ƒ ÐR·q@üT6UO.ñååm HiÙÉ»ñ±·•|œºl×%b~ƒ–ïÐY82¸…m7 ä4º„DÅ0§%rà—iý\X0ˆ¿Ö©´™Pj ³a§\xU;ÚÏgÆä‚‚7õoPWG¯wv¿¡h+ȽlæÔÐiÁ:Ëuoúf-]3¹z}XÖ¥ˆ˜˜då¼aYÕÂ"~ò*Y'Šç€¨ÈÈÃnÌÎéH¼{òGír‘ØK]bh"½CG!ìËC”5 þËe:¥pm'äsèªMî¥0º)Ù’€”Ü}à9±½„ì¾)ˆŠìþ%ò»Ø­QÜÇLb®Â°#½Y•h?+ä4NË×rÌZÑ(@ÐA ßÙU‰z%ˆHÕ4ƒc".ñ'Ø3%ÀgæÅ ŠjÓ¼:XöÍ$goj¦jÇ{;õÖÉ~ý`w·Q?®=ßm˜ú‰¼QØ õòŒDjNŠ.QØì—\xÒ’™±Æ]öcõ'—ÿXu—™Íq¤ðR 2X-\p &Ë9ŬÑQ«Ìicá™!š„® OÅe)ËYp6½‚!0¼)¸Œm.èçcônÔ!7)Wc*¹ÏØ;Oßl$‰‹o¹j´îæF!l{–WåIÉ•Gp|¦\yY7UY¢ðÞªž2Uñ+Õ¥îg—Å7)ÌþôûG Ÿ¶ϵAº¤Ú _uF g¤åØA^äYIÝÓöÄm‰wÄé›–…Ò±.N‘a,è,ûµØ½GââN¸”¦¥àãë¤[à ºPrSvw:§æR«ÂÔÏ\½›­»´bËç Ý™CK¬éÉ»HI†ªŠ8i­Ï=ïv—d)›„ÂhÂ;ðÃ:FèöÏ#¬ÌOöÂZ6d]9Fd9Il{ŒÊ™‡Î.ÙÍÌôiÓË:1o÷‹^¤éeØÒA×Q.¹4“¯Oç‰s8ïoœv;-v„W”³Ð÷oHi·ô[,ÕOY+¦-Vd fئTº°‰“ÍÏ'Jð0Vç‡ï,tiæ›”á%î…ùx\’äeõÅEš„ã/ ièð•{@·?/uKî€;ÙLoDüüùSš‚j•G–´e`škb™vŸF2P¿ë?ÄPší‰Lп_Âxªýoem}uõÉUVVŸTVמ<]Gÿÿkkë_ãþ%@˜qÇ«‡ƒ»!mÑ•ø½ãÿð£xéõ£Ò?ËÊ}~­ëõ¼nù= ·T¾]@ú•üóN¨âÔ†·aˆÐißtéHÙQ"ÃùNÞû%À¬#„fÐ Ú!ì€@Í®ƒv4mÙ/wšb¯†þmk»ž~ÝÙjl‰Z^‹âÕÎñKQ{Þ<Ø=9nìþ&öÄ+tFºü›hœ5šÍÆB:8;{‡»;-¬èöI³kÇâ·ƒ“#qðj_í4Q5úC2iC‡9PÆ_ ½þÈ× ä_y £H–%eµþŒaœ"¿H†pïºE!äEøŽá§‰©PfäL­EÅ–ÉÆk¯Ióëb)¦Õ…Ä„w›ÈÆ=$‡õ#w F×ËÖ:¾®›¾ƒ´Ïê‹^M,Y‰ùw’©ÒûuZ‰Jj‰Š)‘¶ª _,Ü@ÂË„ú~¨2¸ƒÂq Ô"0«]s'FÊ®w¼ pBQ^“l³¥”‡±;êG;Ç;ˆ®ÍFý½$aøŠVpS‹2;S1nšà ¯¨MÖ…^Íè5MXÀ?Rð•16ZípL–wRÏÕ‘[Ç?Nù$ÅÞ±Ty¨²“ã>¿bG{‡†Ò·êÊK›´Yº´›Êε>P‰P*Ù¦*l’Ù'üÞ/!/j;»‚‹Y` ´¥ÔD'Jðo¢}0ER¦îù6íøQ[mì´º9H€’iy“8'&ÅÚÈÈÔù*ZXP6±ê,#¹ÐõUY=ä ’%­5|D'@cG ôY¶oν[£E–ÔÎ ), ©¥ZæG89“ýÁòá”ÓÒ'«=}²¼âܳ6 ’Wüìó6³ªÿ¤™³½õLBX¯xQó®CÊì€<žÅvðŒìÒ¢ ù¤oâCÁ¬¨»'ÉŒ$B;FEäF/í‚[È!=úú6Ï;”.éæþô,…»$µjº0B3=Nh´‰ýÀ-…£„°óJ­‚*©·þ˜u;ÖŽ ‰B¬¹rdyWðŠŒ—B‰V“⵨SùïÇ`PHÊÏéè#sÊÛ:Åñ ÔÁ§mÇìÃC+ÍZA ì „Êò¤ûÖ )¤ G`(Êh7>¤ðºèϵö鬞šxŽ[#NZàl÷ÞpsÊWôt Å„}€iÙpƒU×:>hÑ÷ümAäó”¥×žÑ»M>Ì©t xyÌJ¡`>Cƒ.üSzfzagé¤eéØY‚¨õè\Õ*V -"6þ¡gñÖ¡¤Ö£T˜ “tãÑy•½±¢µŽ¯ð¶+5'~ Ü ¢å. 4PïTà ‚é¹æ  PyÑÍ>Y?ü´ÈmýÖ²ƒIÙT‚ºBÁ£0úd¤H#ÌßÅ]A¦Ünʇ;åO^Y"óÐ ‰a:Çxi’Ø»kÑØè[s`9¦w9H”m ²…'4CÚá\€e=yþüàh?ïªôJ¡¹±ªLïš"?ÔÆæjȘVNÜÉÜ݆®ò*Ž%27`û¨Ó…¡eÔ¬åäƒZzk©¹Ý¸„F27S Ø?)ý- ´}|¬½•|ö…né‡ýùÃ++·ßvoEIm¾L9ú›Z e§í®Úâì}Õöb±„]­¬©0› ñÌ‚5U¦ÃÐɼîðwâ¾/8{O±½ÖÈíf"½ƒéwœ®À)!‡ºŽgUŒÆÌ之Þõ»žK´gÆzª±¯UYÛßnX³»iq ù!;—Š·ÆvýŸ­æÉááÁÑqÆuîÞó†oé„l'^µÿ c¼Ô©ä  (±’hƒn<ðê‘öžw#Ä‹ÙB6<É6ä?K¼óºcxíÕŽ~im5špF?xñ¢Ù8&A‰¬àÒ{ë·$à÷šq¯w·I²‰v ëí9è³n–j’ &î—7нE€Zü±³ð^¬SW ëýàhÇW‘ r© î7¥ÞX×ï_ÁŽ2¬·$ µ]Hïh¼5«¢JuR‹òk]tý›¯²¤æ¿aÑ­¤'à­fëùÎñ^íP×ý<õ¼AzÝ–s/j±ät‰›‚m@”h¡?ŽüM8ÄaGcé“Fþ¥ bì0o0zXþnÐ Fn ªÚￃGíHQíj VÀBåœð€#Ó›Lb HgèÀv ‰÷IÜI8µã£Ö‹£ƒ½ÖóZ³‘Ç<ù½µÈÇN >ãFÞ| ìÅ ñ²¬¼[¸c#ª¼±À¨Áâ>IÈIÂrLËnEÊs‘ÄP* è#Gvé“›ä}¦&yºI’Š¹0 ŽØRŒšÙAS„¦*Ü1Ò±Ù€¤,.É‹‰S%©ÿ.&EJÖd¶!œžÙMØib\ž5‹áAa^fÆlµ±Íƒ'_R’ö­XMp<©Í@€Ó›"“¡.P»qL%¾Kn‹s²+Í+ ’50ùîcLÁÿ1–-O¸]økX7ž•/Át}ø`-¡*zAñëãÇfÁ|+Ö¾'çK_‚?s/M¤’¤ˆ½“m0g¡#*ZøSÖÙ=ªJÚK‘ÓïnÿŽN‘)_ÅEã¢A`-ºs¸n…Z;Éyå練Iœ•g™"ÖYzÌ4Q3­7 ë½Åp¦·P™©…ú=‰-²n¾!ȳÅ|R®oô%‘¦ª¨!›ÿMQŒe`Gùb ª°<à ƹz!MC°íGGú € ܨ¢nÉã µ¥`V:…z8àÚøòˆàÔ¢A“Ñéa•!ÅÄÒ¦3|Á©ÕѧÕnIÊÔ~äQîáSχ·/?ù±zÔô›³ã pÊOAdHÀY¾ X²'¢‚Ûž©È0eÆ/ʬÓemç1*Šú[¤Ø'ˆ®ÆJ¿`B¤TR9l`µFô˜(ÈÍèÚWîO®àˆ„>¤«Ë5þ%Ôåxç!§æ\ÉéN£µ$]¥!–Ù‚ˆ”Ãd%j‘ƒã ½Õ®Úè¸NøŽÿ‘ûÛE Ã†Nc?ìÖgÑߣ\ælp‹ÁÍ;¤)Ên§ÉKoɽƒÕ'×Ôû{gf€â©QI¢Ñ‘-ÆöÒÒzo·*É1Q3GaÈ!6æhŽH?0'°Áš Ý(š9{ö>©®ÙœƒJ«¾Å÷¥N’Há­©5ùióïF…gÍÓ¼#ŒHñ?7$ÇðAøÒÖ/‡)“5¡ù0Gj±åUxºw]íÕ m G½ÄzZ4e›š¸&jg×t=Ñ¿¤+ÿm·SÈqæy%N![ãGìe ~»S–Ò”¢ˆMÌ뮄gÍM¼Õéàݾ·GŸ\ª‰QпcTÑô.î˵5EþUæ‰Ë.›Ô|þfý·mVÇ¥¶lá]’ à4T¢ö(£…-‘Ê\«÷`I™<3?N$†˜Àð:&ü Ç„º)?ÌtYP1Fê—+Å z–)Š züÓgñ‰Ü£»väfh³]ioÓj²Ný“†Òûiš¸zä`Þ¶¼Ï.ÉÑ—º-À…;,Aéèð4ì?õCª:;¡ˆŸÿöJ191hpWp¡ É•Öì¸8'u®Ä·Ý±tŸh0ÞÝW°Eß’ÚréÍþ˜²|JëÒIÓ@,šhÜä&á_š¡õ´4{Úx!É.ÍÌÂËÚþÖnC\Ëá¸æ+¶:MÒ1—Glj“EÿÿNCŒºkÜÁò\GAÅŠ™B‹æŸÛTÿ¶?Úõ¢Qƒùæ œx@ׯ¼`ô"6aéú|9›¿.Šý;û;Ç šîWµãÖÁóâÍœ5õî2œ.ÜøÏÚ|ÛöÆ$N$ôøY5’}á[ Oq±ÕeÞ‰9ù8$½ØÝÏužt¨†èÔ›œÌpÿŒ.Ž]!±šDF d=ˆ’¨mê€Øž¨•=OíAGþQ×H ”Ç(7‘¨¬þð ÇŒŒXíM˜Ù~¾³MþIã*¬¦VR›EýøÕz0 9A(ûKYp$Eq9ôzÒo<À)¯¬®H@Tñ‚Ué÷²NUë‚U£Òº]P=ª7œ­?qú³àôæ)^@á;h¾¨t(-x×ä´ 7Î]bEË;ÕS>kwðe÷Êf E|$W©ng yžÞåë§oÌÀU¾Wƒ9©¹WéÍ}ZY{HƒãPâ ¢ðÃÊʈW¯¿ÿñG»Ñ?Ìjôuz£++«OÒê8˜x«¯9 F Èjׯ+?r—´H¶R\Õø™Â…W$®ws„beª†ƒ!:|ïêæ^$}¥BVÅoQ jê‡7zé[Wp¦ §…îÍF|?$³D91lðÑÇ-eÌ!~IZÆû¬/™8CñNWð—•)T¯™ñH®zÅÝ Æ×xà/ƒv@ÊÖtdK ÀR ¯ú«j÷%}Ôíh§(¯¶Í­ŸLÑ5wR²wÒ²[X¡-íTÇM^5yyH+øj íQIÂô³a¢.Š•¢¡•&݃tMXx–òI ]ŽŸ/Œós´hÝ´ˆX×@| ˆ!oMclšdµ)¹àá¿HZŽ¼ó†ùÐFšîÁŽKNÓ¥e:Ú‡3bšJT@HO~$ô¹‚¾•1Žú8b³´ an7ò.}’l#CFnK‹ ÂAڶ 5B:pŠ¥/­[^ÊÐzŠ´1åD½À…§¢Úžì@í¬ÁíJ&ôi‹¹–cÙ2ä7c ìUÔnilš,W‹‘ÝG)šRÂúóÌ¢J!¼²6"NûÌ„òÃjŒ–TvPu"j§ÒR:ýH§2Ûâg¨Ñп‰’ÇŽ¤,;äð«áÌ7ÞréëÝÎ’{ÑD%³`=fo‘ž”mÁcÝ Dª¨ íió§{­NêَĆ>¯fZ¯t ?^×ëã•ÅEÐ÷(&‚ïGEnS¤ÝhÈ;'Ô "ôéä ™]&Oh¬§¼Yr¿˜Ý‚%#!szê°tåi(–iItÛ×мI_‡òë½õ7ÙvIµ Å\Z~ò;ö‡_áˆ|¼³Û ¦t†!zXká^ÍŠ¥ùtrwbÙŠ„8T"D`€‹JÎØî@Á(¡%†Œ•£NNy"&X›æÍʳé)G}”iâbÁ§•rÌ -¿­Ùæ]DnËŒ†OôÀ3DÊS½ñÈ¿mØž ?Ï'ã{þ;ý)Þ†ÉBH \ á•ÀÈ­½“ãÆi E6;µÝÿnqÜ¢© qMAãb5¹¬iëC`“`ïh2?'!µ£T3Ï´‹&kFQ¬DúE´4ÉO ç_ ñfÆ^e•sÖ]’!ÝŽ-æéMí0Œ¥Ê&nÏD§¹1nWèØ©7èõüNÉ|´‹cœƒp·Áè‹àOä¸?§&¢”‹àÌ…t˜xJ [üÐ4øCMk¤à`¯vÚz±³O¼…§À)¦ÿ&!Bþ·v¤Õ»Á;Üå:éHG¯H¸½_¹WÞ™q CŒ^C<æñËý_Zõ2:Ðô_èpTêÜõ½v±{'-E´®`¬R¹7I‘Ñy7ƒãŸ‚ˆXï-’ö|Ÿ5ú1%³I7$TÔèöœ`>0ê’§‡ å'–ÔÛõä“ö­&¿DA?`w<–%7qÄ”Úê"†7´ø8¹3˜¶Kž(Öû»ÔÎ;³€Ú’‘?’úŠE‘órÀe|ox=ËÈ`²’K\HɈˆDý {CRà—›IÜØÓ»)§«ÏJ .iäÝ"›K…}ÿæp4¬wõÈ»kd)n…QØœP‘Ã?H±4¦Z1fj Æ¾<ˆI-Åe’f«œ¯/£Þj‘ñþfü±Kh WZ)©þ:œ˜‡MhˆT=~Œ‡Íï©H©ûhÜ°j÷†¹’Þ€k±úu-¦?úarfÒPìÆ MÎF½A\³ÂéQåÇÄ´HS& Mq›ÒÞ÷Rଷ>B։ܖ%Ÿ¼RU“Y.ú<‘ÕY°ϲ«SvJõ÷éL˜ú›ÍŒidKÖ§îÄêo&M× åo¥„a$CÒvE!4Û¹Ñó‡Àùá]?¢‡ö%tÇC¿ìžæ‡%Hå?…_(œHÛ$iO™…fõù±l ƒ4¥²9¸­´{”¹f{þkÆlßglyâQc{§yÜ8ÒÛË‘¨­SŸâŠÆÜTí<}£Üh›¤Ú4,Ãv½bšÚB$O5€À:›Éýìí"¾s†ïüá%FOì¨ | X06oqFQÕöÆ2…S-AGc¿ql€›­fí𰳿ÝÚ¾ÑÒ„[0Ê—ŸXSÁV]p‡8©]!œ£ÿ&¿ïI€ÇT--–€UÛêý·ò¾=¶‹/L2”]÷'CL洛ˆ“=µË…Ä6“èØ´|\—þ7ÏžX§³®£1ÈQ£ÌÑŒŠpÂ@þDj„ömuÀ¾æiF³T{  õnxqá£%]]~¬z§Ë-vËbçP¡sºžÑ.:AòØ'Åj¨e2±Q‰Š©Ÿôg´Øf›Ö¾_Óø¼z ’j[–u§,ÿíÓ•—Õ³d·¢˜Ì„~BÕÐìÉ5šS侑ÊÝï­ ÓeTÌ™%>ëý@z¤ZâTgû)rA¶¥{ÜÂ䳨µ"ÌüP0¢ ÌÀXBF„\5âuz2Ø´¾:7Í ˜ðôzˆÑf£ß.ƒvž{WR,Š4$z†b,®ÐÑ[HÃËx5 B;Åœÿ’åsö¯bfµò6ÒÝ"±ÅQÊ0$úîv=¶Ä€%»ï.Í8´ë„N,¥Om|ÈÃ5÷`ñ@Iw€= TóC’•™\OúX«BiuÅOÃ3†!Ño5¡§ÇNƒ$´ÔOÆX¹ûp Z=­.7‰ü‡R”aÖ‹_õ9I! éXø—/\ÕÂ϶xSþ›ðÿ¹5: ÿ§,^söTj§öz´\,H‰êÆ\@ º ½x€I¥Ç‘fs+,W:µ‚âú}üy\?ØS`{|¶±çÎmì|“7UÐ9iÎâÜÍ%i’†§û\Ôƒ}|Ôh´^6v¶_‹ÊêÿªN¦§îµŠ{QóÚÖæ©m=処¹FW)˜ïÂp´9}Î1‹µZµ¹7þÉ®Hl°ðŒÃ'ÕÐW‹U…[…ÂœøÅ8²²É»ðéG¡Ã¡ßóFhšêÜ~Ä(í¾¢—~? Ô™ÝQáö}¿qXtTm"±ì£ » ´H–—„`LÕ»Œ5!óŒ¦^ÄÖ'\ÇÏxY—JŽµ¶SY` ‰[M )Ÿ'`ñê“^¿ÅZ|§nò.z­ëñ•ÿº²BW…wåöRþÿ&ï++ê=%¢gZVøÈá,«7e³t­â.·”^?}p°qâ)p cåm:_.zk8n·kñäUJ^'·XŸ¿]~‰ÿ¿ÔY¤ÃóŠÚŸßú-£Bÿª*ŠÕB<ûêÄ쫜ݖÝ}¥“dHótÜÞ¢X[Mam¾ân¡'é…$Úa‘•Âfln]·4Û“½”£Þq*)Ì ½Ù„nŠVbëYnÊOºQ»œÊÆ$}éLjõ“äÝ%t¢ãÎVH äß¼†• ü¿~­¼ÑÎÔl’üÜCô`r|q7¥RLlh²%)–µs•Xycõ²ÚWq<’´r¾øP­6ÿ†m][KmìÚ¿µ±“<ë?ª‘Ò\ L;“uó‹v@©Á"ýw¹Ùuí{ *svÍF¤ÕÙU[YY©ØN.L5bÞöÄZôo¢ömÂg£ XœÊ" OêÛ“ œ«üëœm>jíøêÁiÃK»lº f0ÇqȈ•‰MÅŒ{Š“fŶ“D&×{Ë’hRe…ÞÄüô Õå¥ÚÑvó¤ÙØRl•Á;Ç ºB×;Ú‚ˆëψ²¦ÂQ@ é@ =7“Æ÷ƒ?¥fPår™çðÇòSÉŸÿöså ¾Óé{ ŒpQJ쟯ûãx“6”Æ€™£¼Wdo„N›yÈ…yà3°"ðQJ~ ›}Ä+Y¸š¼gJUÄ»ŸúŒ|9ÿÀô?~ à•Îùçëà žµÿ|ýÇ!·ÓƒÀ_¶6xh‘ ,©DJ Žè ßbU=¶R¡Ñ'Á˜ !gãýáµ7ˆ¨²qt×hFQ°ƒ{h4Ý»Ÿm¸Â]ËrÇg±Â£¤‹«¦- !×o!'ûÇù~ATdd–Ùò Ãé’ ®e8î·Â~ì`Ín·¶Šfmø㥯$›Ö'¥$'ƒ 6ÇÙÜ­ú.ª½ýÒÂȾ É:šzu“Lòî"³°=Ö1RdtMe G§À•‰=Ì¥Ù©®LïôÊÌ>MñRaƒ‘Ë~Cu_J&#Ø™:Ú%@jýŸ¹K1]ßÁ«ƒ  Žà{bó¡|µÞ‹ÒA-€A×k“$×Àº2Ua¯V§\Øñ™§Ñ­-ÏÆ#äoÑiè Ôíôá ì×¾7tkâŒqUŒ;(Ê"¿ïXqÄÚr—¸‹˜ÜË~k®f$¹œ¸÷ƒL^ÏÇ°íùÛÇO‹88&0ÜÎ3I&ÿG7ç›øîV¡u‚Öƒßä•<ü¨¹Ž’8ûÚîðàUãè°î¤íÔÖŸ\_ë?ü¢ì öÉ ƒ ò[k© †]û@‚@2vä_áÒ*¯_‡¾ ãE*ÿ¾ß‡J©2FeSúXEöpdðIæŠMFoZ¦½ ë¡+kØœ ‡)~á‹«³ Dôx¸ïž7·–±Ê}á4DN›¬¶ˆá¶ ©£ãÜ>ñÔÙŒ©• > ¹ôj0H–Ì+ñm¾¼°LÖô‚Y›Œ£œ¼é#ÉŠF/Åç¹ú+ÚéH"àªÂŒ¾ô†Œ5'Ãs¡­áw`L\múë Œ U¶-T8K?–öyi  ²#b4Éžß#ç1x"’ ‡¢ÒlÔ`Ž±Ky XŇ%©¤®NÈt 3檌°k ¤uÙÿ[€‡Ä§ÙÒèÇ×%8“™D›“´@¹ZÜõ‡¦õ©qø”²ª5qSŠ³WL¢NœÃ±¢—+Ýv*Ç-M^’ xX  ß<¨àªÓ½(§­û)˜ÿ¾«9/6‹¬°IErì†*cbKBmá|©ìÅ*ÌúR¾Ž9ÖÒvÜ´ˆ¿ J¨¨”W˜y†ýñvÝÑö<Ü­Õ{ ˜€iÑ  6kÕF2Âó Z§« ¾”8„ “å±Öƒš¬-ù Rô|º!*Ë ÚÊ(Å-É쳶¢«…âôW](ïZŠN.+Ûƒ`/|:P…A©>S”o¯“l8æzá²—ÀáPK<¬73Ž¢qÉþ{(]û®7¯ø zú‰Ù¾/tÝ8>¬Ž©n’d)ðzEQ…z–»J’~²¯>ÆìöÒ47ØA_ëÅÁÑ/¶  =ŠXj% 19åBÒ«&No"›=*z <ÁZHDüHÝÉÆÍØCÄ­ìØ»‰¤€}{‹gha4°º—è?ÇÍuG3”Ž"-^rÄ¿¢çÝÊLÿš|™P\÷¶>Ô:0imP™{8ž0ÃT5Ù9 ‡è†nÈžƒ˜µ/‘™Ã)4À©q=bˆg≣fz xÂ:Râlßo,¸W°3ºâ´‡VZùqeÎZ+••dµñ%YÛÝÙÞomœ<ßmØÌè+ó¢:TÁñê…8|äZIº&xWÒ[ZSWùîae%I ä&KZM§ÙK´É»îgšµ_­:ÍêËÚξ´¢r ­¹fI‰‚È*eb t€Ä³/?a#ª¸‘SÜÇœZ@ÞðDm»hǦ+ÒÑУЄ€Ï^&íÔ<Ñ‚aÚ^vZ‹ˆŽrú0'Ä ,nŸ6\YO åý£œÑ‘Ô'±„›«õÄPÊíþ¥-¶ÇUf`Þ…oÍ·a”/¸gø¤¨®¢Ɉ]t²_¢(q ¦±\LMÇtD0¶›m9‚i@äœàÝ8S*HÑ¢³ é£i l[9qN *žñ4°nÌãtÀ«´0ú!àe.aŠ’·}é·|1í·9²:cçÜm^ë¨Sc¯†ñ~ÓÔëС|ag+knÁ™´ßqõëÐu˜¦¸‘4I7ãYÒ,Õ–]ijÿ”̾¼:]'ÐõÑ”¾›¥8ýú4Èá[ËM;ýk6çÉj=Že¥CthãæoÁ›¤¸©Fq] ¶Ž3V–tMTJŒr)ÉL¨ ÿ`Ê`¯º¨“Eô·méÚÒEJ?±è[à·h{T«äå€x?¥›”¸%/«­ÊÓ½}eÎÊÏÐyšZÂÙèWRØGƒ „ãè‰ÇzþSŠ4áÈ}W§¦‡ÐpðKYÁ±Æ?IˆŽÃœ+úãÞ0tÀX±»‰ÄDŽ¦ÀBÜK·™zùGw&ç„b¿)iRÄZÑïa,¥uáâº0‘ZQt‰@7EÜ(n«Õ´´ÉÁ­ÒIV¯}ì°ŸÐÖ™¼+þý$V¿'>jIm“RÞãœ~kkOÓ³Y‚Ú´õ¿£…þ­ßKUã^¡ûNºA7zžÑlûËäXÚZŒ–ݼÉ:1·4cWÃðftí¨@÷¼;d•æQƒN±6Õ`x]“øfI’<A÷ÉBž¦?"g3ã9mÎóñ&è7¡¯xöY „¾S º»èªå¬d™`8v÷¶ýÑ–Ù1ŒB!³€&èv)”¢2e€¼:5Ï1KZ)¨7íRùC¼¯²ÁSž=ïþ;ìûy^åØq©hІnÀ&ùtÎ?­¬Â‰(Ðê“]í¬\+48R%¨oÈvùò`Ó‹®ŠZR<(hŸI‰ì”q -°TQW‹u Ý!½WéjS销µ˜my‰0ƒ¯4ÃZ"X?šhwªög%–kJ´mË\M¶d̨mQpñ,í® ÕÚÛÙß~u´pLð@\;Üiìý†×{° å_îì7kûut½Çð~6“6úïŠb÷ð¸y|$Ú½N‘Ìc„S0Ãolýsûð\û±‡y—¸8 ð˜0 EžWaˆsNN}QgcØCœc'¹xÉ*.‡a¶Ú‹¡7¼Û]f¡Ì Šë6&_OaŸý.€D…éáTûEÅR„xŽF<[û–øŽú"¨JóÃd¯7>ßë‘Þy6— $–÷ó² [º8p—®6öÿçBä£ì£„F½%¹a÷"¼%k,/ÏaÏ…ÑFnd»íkCZ] t2I‡½ÇäÙÒãÁãÁ*F‰KÿF"×cÈ&©OE7 T?)˜¾œÝ;<:8Æp¿n=woTŽꔨVÿ9·bµ_­çµú/­í£ÚáK%2ƒúý¾ô6ÚÒ……×5gOÓJMÝ›7Á¨}ÍÚ`VK%(qyç´;Uc¨7îò…E'Ž`ë T¬¹ *-#Éñº‘#´=°(Á&DZ%G¾×‰UAë`GÛ†kíþ)›'¹ÙÙj¼¨ìR‡ ä9åÂ{‰Æ*†µZVÊœ«o²ÌšzÕF©œŒ¡¡î ,Mg>ºesžÄÚÙ‘yW¶òVùÖ¿S1¸•¿;9âóD¶þÅ¿›wOL³m– ±’-Z)Ò½Ýþ3u¯Ì®—ö¿µ¹€vä‘p÷Õ!5|u~Ž†O"¿vgþÐxeÞøæ1²9GËÌÖꎪՀUÙ€ùë_ý´ú'ÑÌtù 5E•XòRï8R†ó}IØßúR陸€÷ý›H“2‡ ’¤h¤E*ɆŽ? "åè®îíœjÿùHŸ^ÈHÝä¬i(/9l÷`è]úSwËGÒñ/,F*h$ê·’b7¦zÏ}ñdhŸãÞ8íÚø!œ”Ú@mçÎq¶j¾½ô pTªQªA|¼â%”Â¥üûx©dCW?KCÿÞI5ÞâŸþbæ)Ö‚Õ¿9÷ä÷_Ùéý3L0ÉèØ1Ô©¥t»Øꇓ¹’q8´™ûCìÜ(-÷íìÿõõï/û»j¯—X¦=œþmµƒr»ýYë@ÆaýÉø]]¯Ã´†fþûç¸ ±ZÙXYßXY‡[LjdOÉün†‚öK»Ø–ßöÉèdEFˆßo¬~/=qØ<Ær´ì3™1^tlE¥©J)¼,p¼fÓ†LæØž˜vÊCÞXpdtô‰úãÇÚi× €CÖSsq— ´ýøqùšm>ƒ¨ŸY ˆˆl…d¼.?„Íæ.bD?c|7d25˜ÙvØÞ+xçuÇ>!gZpJ+07×AûæÕ]PyÙË †o/èGÜ©¶äþgœWÓ0F‰,Žì6×Y“öi8—¯Ÿ¹IÝà"ž†š”&e×°ÂÑÀ€£æÖŽŽ”œ;å2qV#¤èÆ›âw4VØÞ?Ac'oß¿i©ü2¯Š‚ÇŸé€#ýëdëY´·Ñ9ßz¬÷2”ÀG,p免­­: âËîˆ:-QZØ´_ÛkYÐîNýØv‰½ß®‹“ÈßæhÈÊ I dÇ6­N¸E ¿—éAîݵ¼¨õ(/|¡Îâ¤J$ò>™›ã¹ÅRŠlJ©S{ŽYæ;»VKgÙÅ ¾íl@ò#â6Ýþúkaü<,UØ´ràí!m7X;«&ÞÆÝ ½¡®ëjý˜ý.e$#uÊR˳ÒHmx% "ÈËGñž™oºqAÕz;ŸF Q€·Þœaó^haa°‰NôeŸon ¸jÕcJ«Å”&?ç¦üí…æÿaû?ÏóÚÖñaqãaš&ñÂxŽÝ’.Lš D—¬Â·0™~ÈÏÔILx¾±aY1]¯[]'•çþxð°!à=I¥Mí]0QR3îŽ MôaGH¿È X;FAûä<ø™×"?ÛIÖôµUuÜy6G|–ŒÓõ/Gì ëæl%ÂU'里ùŒÿã„—l ^_Ù¼—Ó_w¦¹—Ò³ÚÆ£/ƒ·šÐ1ôÝNY#ã\£×­ŸEÚ²äFÈxŽ²)ø¶‘žYBÃR¥güúz eõ7b´Ä»œ‰¥ÊêÚ“§ë)èMÝŸ°.x ÄOUkš)è6§?«Šò¡Â|ʼn/ν™HÖ¥ÌÕ5Wjó,Q·ô uN¯£úƆluW%™†8‹kËZ\ó/%OG¸f¦I;>äkŠ1|zÌey}îƒW` – ÎÉg!±®ÐHÿÆ,¾­‰6}…%ç£Ñ÷Oyz[d˜Àäpц´µ$Ðâ »¶– ˜uNtÇR¥gDÁÑÁ\A™Zr ‡TGæ·ö‡‡£“B’­$’lMF’F ~ Ý¥Y'ã3™×fžùSú?±j:>f9ÝóGêp#9ä`n9 /ô04Þû"þà-U<XE®%绦3‡éŤaú\(˜–ƒS¨Q¬ZCG؆ð?]õt½HN׋ ÓE†Ó[At5"_-ÿ^ðRéùÔZlJTKâYUŒ ñR$<ñ?ÈŸe2qNËÊJ !o¢ÎPþ¥[9zmŸ®S¢b)QX©ÿ ÇiŸ>X›ñÑí‘ž\U³664<96¸»w¢“¡Ì"å*’`¬þ8Ï@ª1¹U#ukECp¼Ñ„pñ¶–Å`@Ü…Zª\ª…‚½H­«W‘GBuÖ‡ƒö¸‡G­Ê #œ£©ÇŠuœ0´…²3qáGd‚åsÂ1˜9Ú71…÷SÍ€S<ÞŠR€ÐËaI(ÚÎÎCÜãxÍæ¹FaW0ÔŽ·Ë¨]T}7~¥©x)†ìfäû8æ(FSÞvȯ߈d](ß- ñÊÏ ÝËn*Ý ø Æ*úTpHKçŽÀ9v\ÜÑöâE¯IeB¼Ùt?\¤|H¸bK ȃ5 zm6A<+æ÷ÃízD@*c‡Ê‹é…ž«B÷“§ÉC©ÍÐrßc9Wu ;[3Ï—Ä…Ì÷<åóEFZ¦Ä»M¡j66Œü+!¢¡aãy¹H~qʮТz$}™OòYÇ·'8O´ÝKÒcl§Ïˆéóø1 MÎT¾|²ÍQ+º”>aùç±ìéÙ½Ò3)W‘îÅ&|bþéS˜>}‰©›gæ暸Ù3× 9€*ÎàdÚJ,¤$pÖ¥„Ïê÷V2é…NºÏÌÁì oC Oœ¿Ñ‡F‘_ý—Ö-q¯ôÍa`0žÝeYµˆ)ŽÆí6©í—-fEj–ÈU„)™¯Š!ŸÿÏÑÿ@Þž”®ÊŸUdºþÇJ¥Rùþ¿V¾ÿ¾òduýéÓÊ ê<}òUÿã/ùK»y5Ö@Ò@ȺÝÄkÊŒ¼CD¯è}Ôx/E=nêÒífzúF+äí÷z3 pIÇéÆã-oCÉ‘QçX¸ÿlu®®<ùaz2Ô©}§Æ®èh“½DlŠǃê¿ ¿þý»þ˜þ·Ãþep5úå ÿùë˜Nÿ×VÙ¯¬“ÕÞ#1¿ÝÕû±¦{PTï m¼÷±Ö{N+>Ê~Oµ¸°>Þ‚OØ|éãløá$@í&Þxt7Ä1ìåÇ°¡ûwðuOÁ½¸ÛÛÃùWáð_âŸÞ[¯ýv»?ä­h÷DŽfáð ¶õN¿+9ä¨åCŸµÎÇ£)Ž“Œ3- EÂËIí;•Î Puþ2™šÔ¼jž_zý¨üô?®e8XÏéÑ#uj½1ò*PK8ìaůWJ?¾yüºü†ò^wpíñság„ÏA—ZÍ£úÖÎQžb1wÛåv¾ÕööwêµÝÖqíh»q,0Ðú¨ñÿò«å§k”é¨ñëNsç`?¿xäc$æ°¿!*åU±XÈ Y|ã¸õkã3dj{Ô›Víäø½šPÿš'Ï›ÇùÃZý—Úv£`R ¬,WÈpµÛ­zÝ<žžf"½ÔšÔ\:…ìækG€KÃB,VæîÎó¢ÄìE±Q€±ƒM¤àº»K÷j;ûÇð_㨵w°­-‹×‹oÞGÃv'Þ[›Ëu2ØÙú‹ÝÚv³ºøõÎ/»ÞUtïtˆ¿su0 ­Æ~íùn#/½=ÅkôëÄn]J2±züÛaC W’ÚØPz>>zWþt-ŠÕE.ûÎëbêkÕì5·yvö·ó¯‘<0rúÒeÓ .Ûõúöï¢`/Öë¢ôN¬>û®">ÌWê‹\´üû±`C,/rçJ#8åÒ¿DvQ‚ÉnâºìK®OÁî‡|ä èG¶’=Ìç_«¢o o#5ð†@¤ün ã…3öx9ŸÔòŒ˜€#FqÑ E…†éãë/@XDñšX|Ót /²ÝýF J 0ä´YÍnå_Ê ©6 hä~*JNç-YÓBÏ6™ö#¯ý&“èi{ÐGøŸÛK¼°@jÙ@±Ñ(íRÂáú€vöë»'[fµ´³¨±UÒÊ wnkÖA³š±KÑäWúD]Cg¼ †Œs0‚˃`“H°´±rç¾ÏÊØØ£‚[Ȩž¹Yé«•"[]êÊìôI¶× ™±ÛÖKK¥nÐß.øÀ[â¼?}_wß¡xË-AdS'ðìo5^qÈÇEŒÎGÀjÔ­¯aÀ+}æ“ë$»ø^ºpRØÚBä¹ÏÂëÎäÊY "Á¹¥2 °‚¬Ê¸-TpÙeEƒfbé[ïò‚$ÇûÖ<@®ãÛJeÉ,%àöóYòwùò°tr**qxÐÜ9UÇê^ŒœÀ¥eãMˆùl³Ú@`Zè¥åä¨Þ(¢uýÊún„jád8xœÕˆ,JÝá(›Yx$°´#¡‡M0ÕöEkHA2`á¥oQT` ‘žï:Êì:8&÷VÎH"±ONÆÊ'N† )íEÔI@D›˜çÍ-29 ÷?—ã.…ãd²£* .ŠØØŸ’³w—YД/»¨EIŽq66ú%›ˆw0ުƗ®úã/TíߊH˜Ï¨'W?Ø;ÜÙ¶çx·YHŸ¾?J›ZBàA÷ýÎðjy)ìÈ11{ûcw'P {›Ì3’ÝØ(ìÂþ%èUÜÑï„ÏV¥6Ô`˜B‡nþöÝÕMÐO”p ¹E:Þ0­HÌâ̹ý̘d·0Œ.Í;h¾¨¸^?3:ÛßR;Œ<ýžwÆþ¹®Ã(}¢ž01 Ào°,óûj¬¢Ÿ?ÖGí3aº@IqX–2÷þ!K}2Z ké0ÿ˜=TDI¢¦ªÊqÊv=òÑ"¸ÈCjžŠ"^g=Õð;^_á&qåüþ;Š,‹õK!*F4 Í‡ä°…ø”.yÿ 'ÃÆþ¯Ý‚ÎÕøví‡u—™“‰)ÿ¢=j\èzöP\!NT¸©nЦãC3…œqÍ=¤LÁ¹Ä`omŸœBoÝá69ð³ûí‘h0š2«ò¤ÖÚ:ª½8®¬H–…7C4:'|\­·]–Þý¦¶òüë7Åס\I·Z·]2V|$| ®¬øþH©r0„<í*,–DZ?|SÈÄ–°¡ï“æ'NwëÜ#'?¯ÉBF-Þ”¢äÁ»£%³Í±¯ó#"•rˆÈ ˜P¯ç—n¼. ”`Rù€n…ƒh#q…º2Îåmvë`ÿ¸dÌju @2Ä+Øôwh†»L7¸èt ×^;#Žy‰¶ü•¤™ xÆ:ãZŒA³Xç®ÛaÖ…·7Þ]É2.G@hx.¢Ëû÷çùN·(:Ýpà÷‹îÒÎ:dv¤N7ë"¼ÁøÆ)¬æ†RiI¤áéï&«Ð›«v¹ë™ìæc¢;lòÁérÉùõ0Ñ]4ò{E’`“¼v0†ƒ!ÚcQ.½| ý‚•)åÅÎé^cƒ÷?i͆ëÿ‚ÜŽ‡0p"¶…DWÝðŒQõ€ëÝDñí…üýÛ aÛú!·³—3,êl5ê0hý0«3(ìÏ#U“$È%|öŸd6†ãþ(èù6dKHãT±ˆ€Z(‹Ò¯Ó /þˆªøCÍRzÃ/¤ÕPÍÔOO5ñ×’X CúaÁPf=â»^ƒ>sª 5‹$ ¤–"eefÕÖì¢|Ør7Ìƈ\&¹1kIVê¦l÷™ «7%ô_V^ÖìÇã™ÄãEPØ©·6„§µ'V‡»'Mü¯8³ÅkÉÀ¸Ù¯j N“šÁ *–³ž†Ò¾öðÜÞU¹Ì£y¿¹ö‰E¿5ã–A¼ ÕÇ"ÄVóeí¨±•Ø°2Z˜…T‚Ïq궤’ÑÆx5MÖFËBãÎ~Jg‘€^êøôï'ÕµR»ŒýÒ³[Q‘Q ôóAžê¼Vù³ô¹…¯-x×(¬ðöÐÀŒ{ׂ¡nuº-¦±€ ßÀfŒ;”ËSÚçâÈGÝåVA|7I¤ó…²hÚsh¤ å%ˆpJ:'Jü‚²%zóô ?“¤Sò_«åׯøñÍäÒb*?ǹÚ[ÏO¶[@›[†ùêƒht»ö#Àò»—ñ–á×Ö¸;–0Ù>«*ÜiŸ×0WK²‡éL0ѵãä<:nÁ1Ž §Çn3YÚ%®lV;Jñq¢ò}(;Ç»¥ô*™FNr«²¦BÈBOi•GWÁ´€SUã´Q?9n´G{;M¾SuFp¬iÛ‚§úÚâoéhÀå£qßLøZ*i“t²Ð|º&É 2 ±ö-¹¤·2KY^Ÿ8“—²´"8¨c¤ï¨ôOl0D{¬,ádɵ¯Ö+sPµiµÒ†‘Üô4dCì姂“¢ö077y7…v)ëR†¯/3t]'Èç×~ ‚ƒ}tùrM.Tç ïx¸„¬@®‚¨…Çn¤åšI| <`ã(H¼Ü¹jÁŒÝeX¾®Æ*û1^¿áP>z$6¶Žë/k‰¾²f2µØUàÊдLÃÒЉÍÞ°rBa0ê©ÊBn÷QÞ²fKpî¡k"`‹;¢´…ý†:{«Ssi+€c8ä뇥®{‡(¬*æ¶äÏËòÚ¢›÷i zpi#¨ü†¼lve|Œ!ù¯¸qÔ*°7]ÔìðÛj]Ðö«àE2t¢qÙaŒ™Ç…Ñ †6‡ì|¨B+¶v”íuÚŸºUç°Ü仯= £HiÂùì©ë¥%ÜæíJMjõåAóx>°°¸Peƒüxà©.RnW¥:mÀþRâ9à9-ônŒ5ÆfâÚ{Çǹ€Ïü8éõ݃ú/±ä&:JÉäa¨ó'û¯vö·XUÈUOÂݨD<š«ŸdÒ” m\êP‹dGÚ4ecO7K£vù ‚z 7èÜ?7Yóó@Ô7]ÂŽ±Ê¸„ÚݯûÊÙøÁò—Fã#®%ïnžo·^n5ñÍ$ªmTÆ\•#ç’4ÐÍúÖ¬ýÚhÕyŠNP¥ãs‡êÈyÇ}ô›_ÔƒèÅk÷nõaÚó“Ýã}ªñø¨Voõ¶¦¶Ôe`²¸Ï: KZèjPRPäB„wå¡.{.N’o\a£Hªb=PõjöÈ%ÚK*°Èग.Ã^0’óbÊ“Ç\w"x>·ßPSñ³4½YNiÜ„Ä› nX¶„ÐL@B÷oè« ¤£Ä†1î ‹}Dÿœ ­5¥šc@— 0YÛu-LG7)ˆUå¥NŠ86YÆ,Êøͽ•XˆÃ¢ ¿, ƒ†þ  ˆ‹wî…Ô‚GxIOtvQTÒ±ÊQ0bÃWÌh%·Os$$v&èª]òT䇘‚¦óInµD˜Gêç:f„òÍø¦2-(ÎÖ€R&Žœm6G¸“ʃ]L¦J=€iÐÓ¢¥¢Û^²Œ‡'LJ'Çù×èÅ‹tÙ;a{Y¿(a»JxS,fXÅ´ªuM3tîZ|O{VFé—¿lìîB¢ýZZ¾úËÑ5dª[õ¾^¿Ïf SÈcáÞ‡|¤ýÛÿ¨V–½)0ý7#þדÕŒÿµöýÓ¬­¡ýÿZeíÉWûŸ¿âï«ýÏWûŸÙÿ4ñ25FC8xR÷ nJÿ,³ê'X =z4ÍHˆPÆHH“­ _¦²òþûœ2âÓΑcqÝ i“¹32‘öNý‘Š” þ©ƒyfìo©ÇäÕ„½ Ã%"k€ ¬8Â\Òr§upH» ìJ€q~pÕÏdX´‡I°c¨¹ÉdX—`k§y _”<™„'}"nñ…ô–ï°EŽH4D‹¾“Å SCôÕIJxÿÛõ2´¥«VdÁ[ºÝcØóŽjG;¦*ÙÅbžòÚdS#¥Ls™Ëd÷f™´ T,q–±>)W ŠŠÜ’|Nl‘P-rÊÆØ…Fw B×âÖ­Á?ÔX¦µvê]8¡«X”ñ¢^‹†¤…ã!.ÄjLYÉ\ÍD<ÄiEäpg8½ëIA56о¾è¾-·å™«-.€i{ÛE<ÌûDã^Ï‹+6:ƒÁéÜõ[hn/Êóh™âxð})=K54 ï ól,×SuðÃ-= ßÊŸÖp„Ù€ža”5É–e ç à9Œ¨·m1hÙÿxL| [íë6æG´¥ë‚éîzAàÈ{.…XJ²Rd$=|/.Â!öf»£t@9×ðFªœVñ³ŒB6yž¦ÆÉ”Q8hÁZïâÐÉtÒÎ2‹ùÄØ ‘Oꎂ©Çö¬t«i1‹5´›š]ÍÓiMjÓE>Œç5®psm€ú/xlô;W ¨Påòºì°8m;x·ÏIºäVã°±¿ÕدóÚÖå-Ø[,‰¬Š’li ï¤DecucE­¤T¬uîΛ2[òÎ6©—ÙÑäU$A £u`íôØMhS¤_à*ü5÷Ãè‰ýuÒ•h$—'·¯’l´ÛÎw=+sÌ…*2Ï`Óð8e„ÓÆ6>$|¤‘—W8ãÚšòô%-=eçh1ÙAÍA©dí棢j‘ï`j{Ö$™­>è·ºÎ9®Ÿ4ãÇrsžˆûʱ·Òo»ñmQ25.ìû°-$Æ°y†Ýrï ëÃjúµ½ÂÊ(Ãq×gâJöUV*Ü–Éþ¶³”5³¦ž–˜J-°ð`o#û ,Ž‡®(Sn–£ 2¦¦»€‡´g‹ÿjÿbc“ƒ{¢Yþ±‰‡ÿîKÿÃ1ÿ_¤öñÿ4õþ¯²ºútµ²†þÿ*+ëOVV1Leõûï¿ÿzÿ÷Wü=úFÈËeXå/«·}A ×SÞvmñræף؈«fYGï¼a€7ó{Œ}CkŠH7fÛö‰ÉQÍR½ý‘ ^µ &_Hù¤u1¾"áÎO ïnÏ8Ÿu“ ÌýêÊÊš@'*¢^Žnã|A®m‘-ä+M¼º¼,ÎXDm8›‘V29ÀŠdI"^¡pp\í½û5pîñž­hÓmyQˆ:“ÀT—Òþ€ÛÆo{O¢ë˜ ¼²ß&–ƒF=÷Ås8ËõY…ÊÁ¤Ä4çþ»ùRy{ \Ñ}cÝçýÞ¸Ká9¯ âl‡ï–û¨›†δb…É/衾·UÝ ýåÿ†æ®•o©—Oà1DxÃÖÑ °‚ ÎâûÊãìâ?²÷EfÔ©<ÏȈ”$QuŒáÅ}€No±¡—¼Ì"BÀÀxp‚¹9 1WÍáo.ìºÓççµÔNÞõÈàr·í\¨A²uRÛ…ÓX£ Yü[ÂS•$ø–yï—&^Jݾq¡º£ÑúD§å"¿WÛÙ­®¯lÊ<øZÀ˜±þm0šÜ(/jQþ*ý«Ä :•ÝIÝí±QõÛ"òòŠ‚Ulyi­¼"N^íì‹·Ñu9³¨ ‹Æþ¯Ô úç°vü2sجTs‹"«ÕÜ3zxRÍ=†€¿¿Ûý1LF“,gèž=jMÀŠåÚ­íoÓ?'µí†Ø­·j[[¨@»»øƒz«µcúX'·~ð°ìÒñ΋:)Â2$8¢4jÍ“£Æ|ã×f ¬½ƒýÆqíè7|Þ¯íý“½ÆÑNk‡#渱Û8| èeg¯‘é U'Î ŽÁc4ƒRê@çyô(¹WÕºžw™R ¹9Ï,¤é%2–·xófŽTÁ‰J§URTƒæ~t’Bü¨0ØbCäÎòÞY!7 _0oÿ±°…Ò ²`ï|±œÀ>\4¬Šuzn²ÉΣêérÖ®Q婪«fýÍAÕ}„(£"ú·~{ÌÁv3P²ž/Za]¯da¡âÒ8@혃Q^Z>Ë¿þ}ù þ·tVX^Z̉³(L§*ÓéY~yù¬0á‹ý£HÐ —qW­qøíëPUþ¯¡`ºrË¿——ÎÜvœAC–ß‹ê­,oŠ?7)’À‚Ë¿ŸbVø+ž‘¥ÝKË-Ç2&åÎi4qíJiõ#V ÙÝÙoìèDJÃl¸1Ö(`ïêH¬Ç ×õk΃¨“|äõ¯p}Ãp·‡pæ¡óõjλhwüË«ëà·Ý^?ü9ŒFãw7·wÿÊɬ»cT¯æjÏë[Û/wþùËîÞþÁáÿ;jŸüúêô·ÿÖY%ÔE§’EŽÌŠâÔ¬#* ~ÿà ˆ×í{ Ä®‚ eˆ  ƒÜzÝï.bM§²­oˆ#Ój6ÐõÍñÁ‘Ü9¾©â–`vEœý¬aª²â2‹‹eÚ'é³È"5€B·¯)j#ìD\†Xu5»Œ.!o‹.k³ ‹Kg›¼5á6»šÛÌÙô&öu##íEø|fÚAK’Ö*Ê­ûa«R]dôqRWSSת@4qQ.ZåÅcQ)Ø«£òXßÚùhŒ¤UÜ°S3¯Á˜&3ãúž8‹`øÍ5£= ¾†oÕµ°H×8Ü7ä~5­Ð祢¢R·K0†>ð=Á;Ò,ƒã0r¬×¾¢”Ú—^ŸÁ ‚Þ]äw/«ðUª9/Q2]?ï¼hVáŸMAOî\¨­³ÐÖI_y[¢Ì 5¤¬Ê%ˆ¥áÇjYêïËHž8‹j þ€éÀµ¿•»Ž°´´¥yÉÂ;{ÁH=Ȥ˜wè,ŒT¦ô'Þ- †ÄpÜG3—sà ë{A7ÇÌžÑÒ ò¼ð•CˆÚN—ĨXTÎXzÖ4ÑÜÛZ™îM­¡WH­Ê}ƒ¸µÊZåÞË5L_ý öû³¶Eº¯\h0;ÅÚiй‹(ì"s­„uÿÝj†ÀåiµW ›‚€B3‘¦&1êØʾŒE¹\AuãÁ¨‚´'–cy S’? ©d­¸“¥Õ5²#×È@ÂóSi(ÇÔƒ”ei‡„ÍࣔÅk¬ÜÿVJ“sª1NúÆŽÎÈVYR{‹Jsv¢[:{U³*Ñ(<7¤Íä*¡ÇæFæ‘åì¬ú‹ß†Zí/YæÌô©Œr^d옰u¤ !úPgù/Ç25Õz=4ë˜ï¡iAäxg©ÏŸ@Œ¤9„vHw°À\øC2hDu àXDx6ÔE³¨Š `Þçår>ªt ýµa "öŽŽ„@·}RëƒwR2åªdN)rö#¹ý]úy°V4\»R†¡[ø¹DéûR'x0`ƒ–¡Çæ{¹4ƒì¹©l4¾ˆFÁˆTGÐD™ÔÕä`©[2ÕïP?¯7âþâÁÈyxâH¼ô,îŽÑø ˜A”{¯[Íq[½qW4à`ËÍ0$y5÷À$4ï"'¿ëû¢Q{í=ïQÄÙÐ'ìÉ·o£TÈU•øÉÌ¿ÍpKÄÚ—¿Qq±X*Ê— Ñeþò;°å9‡'Ìž–½ðzñ òî*1•¹Ö›³Bñ¬r¶ ÿ­)Ø#vi±X4¥TÓ—ßá´æâ8ͺß>|˜c¯j§¬wÓ’~Šé6cöŽE3·Eöü#–ÌÐz‡µ — :ˆÅ×+oŠÕ È„-C¾Ô’¶ýl(Ÿg5¦a_ñ°˜B?Úéq™¢ˆdH3HƒMT¼b»ýsÛQ8ç8ý‰.Çì%I>!aÎaT0º}kB æ<3ŠØ{‹ _iëlB]”£5€3§¬‡«ëŠ«9ì!|s ô"„S‚!ø’•#ž%q+lˆŽ¾±Íñ¸¹†,}FÝ9³u˜9–£HÔb0’ÚÑfr÷í’+„øöÐC|»}ûú÷–½=¼ù¶õíUîÁ-Q·'Ns¢ëXk;L«•Õ‡7:KÑ€LŸa ½1Ž*3 ,þmY¸¹v€šû]$><dÅÂ"¥P‡ê[,&2|'§PÅ/$™Öð$yŠP‰Ì,„8‰Øዺ[?ßÈë…y3t¾™#˱uд1§“%1§¶(æ…¾ÕÅ÷ô[:ÓVcîÕñët‘òèã{ *,ˆî½Ø¡&<еtûQ‚båñorÖœsnŽI['TPöaE³"OÆÊwœŠý¡3Ê´‹—3ÓíG3²ÃHú±¿§K¥,§.S”ˆñ?'aå>Øÿ‡R¥Jº¼ñ"¥»Ùá›ï­O¤¡Wå†HUee`œ\T<ÿEøÿJ1·¸’+RL½ah<–¡æÜÛó^Á3þi©ÔKC×½µlQ=RáˆX9H%¹Qéý1]E×ÁåȺ²€;£aUÀòРÏj›RÅŒŒ?ŠÈÿ ÙÿŽÖåˆdÐQ]Áy~‘$w6rO‰$,ÏB²UÛoðñ™ËÐnõÉ*®0E¤‰4äql‘… t ³ƜȤ¬Þ …˜zõ=¦¸¤F⧟/2ü‡ù$±"Ý“>>†É@1 Ê!xm—¸Æ`g;! T)&zC®Lü‘Kø“¤ 6Q…ªúìË ¤ƒb.Fÿ¥VvÚ†}e}4¦Ý©´çsªš¾Ã`qäTËÍK‘RCþJçFtaçZióHþ peµ{$Ãó’xºò'ÍfŽ_WÝ×Jì«~#D–çH0à  /nÁ¿üŽElx Xýå¢(*øÏÓÊ*—G(Ù«¬«§r¹L P†“jöœï» ÕçY×ùPò‚©¥¬Œy5øñ|É”Lvj$(–ó'l !Åo$qpÀ U¶N× µª^¨ÒÙí:—03°&õO¯E‹ಒþ³Š¢¶sÊ$o O™0¦'ýàV9"âs‡4„F•¤ë Ws§œkÒF'Ͳg%?m=…¹¸©ŒŸCçu ²¨} ê¿|v¶ŒôùŠ„¿”¿¥Ô¶¸.ŠãI®HD<Þ 4)Æ;š\$﨤Ð2»øĺý!éep‰N'!1›.-å5eËÕÉGÇí ½6±û¾ˆB0j†’¬Ù‰è²(ª;*XXkIžPb2Ri(ó"–øDäRm‘Tug§¬!5j²[NÏ5vvs“€'I5/ˆÅ¦ÊÉ‹žÁ‰.™í°¹„š%=мw”†Ÿ4ÎÈ_9ÌR ‰w€k’m’>bÍe{ˆÔâDÒ~[¶g)§r²à‹8ÀÄþá~ká¯J‹¡ï‚î+ÅÅN‰5~‡nÌè¸ ‹$RlªÑ¬"7Hj[SM?8ÚÙF÷f­¹œŸÈîòÖZTfq ©V»ÅSJ1[ä\ÅLášx”µï=˜Cè6K½8&wÊô\Šo£³¾M>xËYøôgáu5ìÂnQö¹Ò̆ê'¢Ü„¦N–]‡ÑLn÷Ìef ÓD*ú€vÌ9œŸ²ú\¬OÇè…Ôë.»jÑyUI&ßN_Wâ=ÍÎ1ÿæiû{ÌÖC‡/ÌáÁðB¹0äö6†ŒLôÂ`è¿«nd2 6Ÿo˜õ8ŸÆ㻯ú| <•ê`"=‘_Çâæ“÷ýÚöÐa´<‹¥óXUÀŠ¡†_iÛˆ7JÁKd+°à9e`dŽçãOD‹SWLiÂöqŸ¸‰ä)BÚ}"öbÙ YÈ/ãÞB2eÀ8ëÒø¢r2ó²È™3ͧö†2F¤-An="FɆƒÌ-3¶G)Rɘ ÝHHÙ ¹öõÅHј¾Ñ‘à fH6Cx`lYHSïûiømv[$ÜI[$ÑŠ)õ¡ êšá/ßõÙ(žuÊ#‘oþz´V^-Š]t›QñÖˆA ¯Æ‹ø¶½'Á\±˜ïÊ‘›w\Žª¨‰® ˜!Î]껇T>­Tþ<ÏdÑÖŸ}WaW uÙ¸G·Ëîtá 7¦h~žâ.ñBMI¯´þ»–9³…5YýÑ$y¤B‡h…ž åš½P¡­$zqõЄü¶#×âÊÝ#å̆ È ˜ [Á¹ªk?PvÐr Ý1f Ï¶+gdÀsRá­æ®Ú9r\;J&J½îjn½üƒImíìocNá¤??Ù>j ûÜj.aTËàôûÁŸcŸÌöªYíQ'‹bnôKLòu²V&®l¯ ‹ìâÿ”I½Â•jö,óHYŒþ:AX¾~I—‚|‘6k¶Pó¹Ùz‰ò.ñ.ZF—GefKs§ Ú—%‹à ‰•hoÕ•­“}„f”ÙI„v3¤™$ã:Ñ+Õ˜CÖo*Í7ôR|c7/~(Ï^cïàè·è`ÞðÎm×K»jÚÐP}ñÁ¤ì©C¹³œ2úÀõZƒŸ(”(3m Nöw ¤[  4ÍÊ"’â*„GÕ“ZWª!ì…"bkDÄ–‡p†H¬Úa%Aú‡dF­Ñ– *Ô´ˆzBQJ$Ñ6Êâ#ÆÒ§»© =RÄGŸ2#•4oÁ eØÛ <†ÝŽõ†®rð/àᇠ[lùD]>ê køBFó|ç-¯Àå­· ßMŠµcùô†=TðCÎ5`zYèÙ.“Uc.ù(óÉ7ȹ³KtwWy(Ñïl°¯_1d¨ÿ¶MsüJÍPÓW«STMnæpWÊß=ðJø¾³ÿâ@Y½·¢kó}ˆ´º=jñ³n¾éfÉ«VQ{õ‹h6ØV]ÀÜ£u/ªƒ·Ðe_mЋRÑ„Ç}|Ú®k<«×¥ ¡\)g²AFX@*ð³Õ8ÜÚa¨jEà33Lµ=øÜ:>:iÈǵݦ|F¿ÂÍÝZó%T ¯{[ÜâKV“?¨×¹œ›Äå맧:¢ˆj'¥:=MB‚4 ª^k ãŸLJàÁÃQmN¾Ë—½P ø¯qÔÂzp<‘!SªÐ..\'d®Ó:K“í³\±p6'…3Åì˜%Õ5~¢daýÊ%u¬_+ˆ›Š~gǪ2ž;'v÷[¼Ré.¾tHH×B;æ°¼q ã«—›b½s[àp 0ïX>å %SÄj.—±™:Ÿ™Oc¿ˆÛw*Ø‹Üȃð/ÝAU¿IçR-eñ»ÊÁ $–H1#uå#áéTŽ+X”ΪTl⃗{]ŽïØöÚ×’1ç3‹LW÷ö™~Øb½¯*>ýö˜—±3)Jž–/i.ůFÅ[ø_&‚¦ôGUøÅÚ¤sã ŒÆEA­fzØmKßãz¢L|­lîúô€?’¡ðæ›®VÇ}·â“ÎÙäÒY– Ú%¡³7¯êòe"»FÊ‘Ý. ¼™«"tÒç‘~ ¡8·(‡;(&ÅH,EòçÏ¡¤Ch_¯œáÍ´š[|o5àyþ\&šð1¢¯fÿMdŸr¹1c]7f€­·jû#4>9[·ý™˜eg+·¿Â`S«&´(—1;¼]L¦æ2PÍÑéJ”,[ð2Ìe˜G°Ó!…Yz’[°Ê|»Å¨Æ*ðT_-Ù`7ûÅz6¦ñ\8Ùr)÷ÅüñGýä6Rfã6ʳå’À~±žUSd¦Ô–(áµ,“úê¼Ù/zbùÝ<ê§D?Tº/êô¾kBšGý¤Ôúp›Ÿ\&Ö‰!þ¨ŸÔƒüåw4¦ßáå“/Ö³yÔOêAu`"#.oÜfOOJ¤è‘µcïîk¼×ö%ˆî½ÝݯY‰Ö4Ûéɬ‰”x‚9çŠfòò}dRR"%ÑhHŒ½»¯é#(ësGPÞ#-¥´,-1e1=™5‘Oˆ ¬sòêÛ­«…YÀbŸâ-t>Oü2­Ø„ôÉERS'eOIKÏšHq³aR,‹ûšŽ1E?Ü¡MbâãÔ‘ŸRxzщ§›Phr‘Ô“²§dŽgÅÄD¶xB|Ä®p“«áO,ÿç8ð™rŸÔƒüåÕ*¾¦´ø£~RÜ(yslñ#‘u”|6úI=È_#çb)r.“ÒÞìëÙøèÂdRCM¼lŠi9Q±I¦&+5ž{w_ìëÙ<ê'»¨ü ¨Ûz9®î…ðRJ?ÓíQµÒ“Y)ñ„HnçÍ~±ž] úƒžd·?)s¨y±b£‡_䘦_Σ®SSjj)DüQ?©ùkÃÐ’2H]% žýb=›Gý¤[:œ .°Ôý¨Ä„WçÍ~1óAïæQ?©ùë©©OöÖè4,ÅZOˆ½»¯6¦PŠýÙz6úI™©99nR‰KÄõ“z¿üãößÑäà$Ùšä‹õlõ“zP}°á§ôâæ–J@T0ùlõƒVºCÖÆ •«TÆسyÔOøð«+ÕV Z (‰õ¹[ühFÕΧ\ÍQ/t1'kÿ¬s¦u1§k™óbÎŒ‰º˜“)ß{9’Y-M¿•S²#ƒ ôö@dÀ2_â²ü2ˆ)—å‰é°®ÊK·S/ßn-±Þ­MnÕu ““I¯Î›ý¢iù­¹¢Gý¤\òjÔ%q55KJ99!öî¾ZÛË­}ÿsË7@úÙ<*ŠliZ&éñmI«]Êr“ÞÝW«1œb¿XÏæQ?©‡øÀ™ŠÕÈÐ¥xã)ñg¼8ÍÍâ¼Ù/Ö³y4ƒišM ?–ظ?ôÛáU?ø*Ž•Ø°è`ÍÃÏÎÉ2oYs:ª]Œ {Öc¾uÈYªRå÷ßahI”JïWÕÏK£¸ZM¢>…r*äT•ÌI¡>f±h•©ÑÝ4T×9nƒÊ£¦BÑ0¬ËؾIS9²ÁSÎ)×Ê+r$‘xU;ÚßÙßÞwáXA`JHêƒEÁ÷èEÍÃé!©ÓλFyžI™Ð5)t÷¦O6F›ÚѲ/EÃòÜ×äå¾üÆHâ' Åi[gÓâé:¶ºtµT²¶&Ècö¥ìL¼/MÀAŠØƒ™¤–/ꂧôw"²¡ïsT&çðìÂÑö ®"¢´UD”¤ë"2R¶nuÑôJa4“…¹$‡…Nçß =ûyC: ÿ PÑ~r9Q°}ÖMíÊvgnÔòIŠ‡Í/•d[6T#fŽñ‚§B™ÅÊìLº§þ$s³Ï8-»©8&³`v² 4kà‡ƒ®Oq8þBÁ Ò´aøÖ‡ùðaÒléù"®ð\Fz†ÃéÄ|•]-¤ðR/²wÈh:yªh‚dyÓñîÊV«^´J†Ô‡ !ÉÈ3ì¢MB2ÓÁZ1 rP`¢Xy¬êã‘âÖÛäáa=ß¹$’Ž!–y€Ð®ˆ²2:’Ö¢tûÊŸ-ã&ö¸J!£'S”’0Ê„äØÎùŽ‘Å|¶OQÆ× ',‡„±.²ç{kd¦t¸ðŒrn€è¢@]Te ‘¶‡¸­Ï¥LF:`Á08rúPHÚ߃'ÇÁhŽ‡mŸcÓqöpsÔ_}I“èËíÏÿ~,¼röNRÚ~Gv“ûHwÕrõÉè ìq=7‘ó"ÏE0ŠØ܇&Ðc(ñ9Ïw¤ÃktDQˆ2‘‹¬ÈC¸…/¿9+,//éÈAÓâa†‡7zXl£dh#«¡´È4ujˆ#à3Nˆadåšf® HŽÈRNJÆ 21–1‹eúo- ƒü’‹ev”œ‚?ýȃÀ÷))å²xX¬^"‘ÈǪ,ï;3ͦ<×ñC;½úäÚå"œ/T ü?ßî¨B:øXiHnÜcÐcx;±­ª}Ãp#qvnªË™¸íèõjv“%–¨Cˆê©âE¿Å2€þÄ,~{Vùp”-‹4·0‚ŸÃ_“ÏÑ´œ”ÓÝ9q‚ß=dJæt¨˜ËPp Ñ$8m´òI`ÖVn*\2k*DÌcó ä´ÐÉ+!:¼…©z^°iÙ'@Æ|õºV¯;-ƒtYª^·À¦e7Ÿœ”FÖÓª½¸µðwUŽÞlSŠ»Yð›4ý—åå›S¿Ê!‹ËW üt±LI(ÔBéx@uC¾ºã ò¨~Èw»£3Àij¥@¢ï§§ Âé©Ûø¢ žÚ S‹XÝR2Õi¬|×ç¶T¾»À§‚‰gKĘYÓ à1†ç5Sž„N/fŽ•TéN«Õ{¢^·Ñ*!VÅtP‰ŒiÐ$^̉㞅,.*¥±>Z¥ìxÉ| »”žQ]øì°Úèƒ|¡]JÖòô}ÐCïZx‚ úäyµ‹\‚ò¥l‡9œÁ[_TÐäEš£;žŒvp*[AqU½_³¹½v•-ýüÖ–ONÅZ¹"¢kŽ¯‡.Å[µ::‡}Y™/çŒ%s$#F#@¯ã Fܬþx`<$8J§båLæ›±ÎÍ^b8Ù7årY¼þµvTýµ¶{ÒÀ×Læ8TVÞ0ÐÁ0ì÷ÜèÖy¿|U.Šz½(}œ@©BQ9èÈÐ ˜ë¦a£ºá { öùà@£ˆ k48¶]Žü[½ÅŒ û—²üG°ÿuÐ!aÉÐk¿õÑõT¦.ˆŽE誳t]TXáüu‚hÐõdLúŒÚáã†3(s"²ŠR-‘­h«@;êÂÉaL–œzÑ-¦Êa”·­s,ᩬôkѺNöB}±dëvJbqÒq* ­¶„®Œ‰Çc_º€h~5æöFº/–=ô‹Ý†¦Æ¼¼#i®`6èãkiWÛyƒÕ×±VÇ^™þøΞúÎø¶á2º-õ€Ñe×ÝçöËÔpÉ”"IV †32_ªg‹/ö9 /Ðý»á¦HìèõS6Õ!:†y1 ÆhLÒI¼‚©ˆ Õæ, „?Š¾kbùDⵜ .žÛ(­ u ù=)LO”4ËÈÉÀ ’éee .®¬îúa¥uJìq“Ӏת5(š–ý1Ê@¤‡óÖõK=XórĆ("a¸êi §v€Ó-Ú|j‡=9BŽE‘l•nZ›`«ÒÃœœßð‚®Û(š4÷Àö@saËÞÁ¨K׊ra©e^.èÚJȲ±‚—²·_ºj·ÅkÛ‘Œª›-–“¥¤ò˜Émê¿ ¹¤4dr»ŒVUéáË›=S ‡#éÊUÑNÇ!FC ‹YP/¿ŒBµýŽÆp‚瀓ªñÍ“1pERÈsB‹)m+Wr‚±¢ÜC¥„ý‰ð2M^ÏägQ’ ºx~²³»Em3»Ò¥rÒÇA´çy}5†Zn´lyüò y,{F²ì’’”#÷IxR°¹ ½&˜ J^:׎¶Ç“¢¤ôŒn2÷k„¦çÜ 7Ó³âš××Iú›Ö¦bNéƒ0¬TAJ¸† 2óÅY¾s’ŠR1”; šüý öb ‡^ùyѨŸ5\&C)بyrpü‹öx!¿Tûd½O~]…¡y#p^C2ÊÞß8MP”«}‡xF\™À½u›ÇŒTUè§Á®-µ êÕ "äÈMFØ 0+ìY‘ ¢Øß–è†Ep:~†c$0Èbj8”2+ÏLEž£Uö|l,;b¢ ºÀ3z`ÂØhz} 팮qwˆªèšñï:$7M”Jq4³­‹`<1Ó…Æß.¨7tu‡ tÙ ºúòè ‚“ظM*+œö ;Žð¿…ÅìÔ?VQíœRÙúð—í¦ô{$¯c-²¯œàÞùÎãÆ´Ý¢”4»(úa,É–Iȧô°§¸ ñ{Œ-‰Rˆ&]nãVø!EýÂg«¼¼"E?èB &·4rPæ» ˜w1¾ZPèIj¼ØÍwH§jŠ¢ƒèF±nðvÔ‚3ô™{*¡ßø°ì'™À³pÈßPlן~thƒ¹j—à$ë™qƒI†v#z—ô¹^êÌc…Cyîb¢@jyÒ!©ZÃÄ¿i/¥î V:’ê«CDìb±ëÐäƒývÙ;•Z„@´iýûuãŽÕÆNöäÑ—©¬}.Š`{¦…W7׫}p{ÿDt;M(<¬3Œtþd8\ì ±n‡;õeä3àW2>q1Ópí·¶ÄÀa3F–1ñOm;ˆ/2¬€{=l ófgm³Ëfš,ï¹ìŽÑ#7Ì~ªðQ¡^7²FOFÈÅ ì³3žCò!z*°ø‡1NÕ§¢@ÁŠ(íþ„J…0&Ïð^ oÐIOÄÐÔ©Š T?¤sMCšûZ ¥üÏb£–‘ˆ!ï4 áà…±ìü¤Vo¼±j•çoò´>¡ 6(lǩḰiã§\ÒƳ¨$g³•ýÞ…à@ùŽ’’ÖÉ-šñP›Z’*ˆ•£ìAkÞíÑCÉ­¦Èñ±RDÄaБ®ÃÅ =3ô¨iËóP²’(„fʱ;šW# ¶G›xÈe¥€â/) BLíø)áåýY9)KŽjNË–²¿È¡/]ˆ’ ÿ"F™—òWÔER"1~I€A8 ûÁÁM/¦¥®k Vå‘àZ¸jµ ÎGJ)x jù‹4!te.Œqà|‡dÚ®è ;Ö_‚úMU”m­¼–Ç„eK¥Ò¹Í,þ~V¦kÌ"Gó|$j"[./g©_ÇÞ¬yílàÊ…Ó4·&™Ñªp™oO—ŠPKuúÌ5¼ÕàXšcæªå52ñÓå¶y?ÔÒ1)ãàˆ 8µš¹Ç\š¼¬FS©л£b«Ü ù¥šæ·ÂIžM3¤5‹rèQšÇÚeZÐR;Ù±µìâ½£âûf&ÙžEÛœl©@êÄ] Ì–7ÖðÔzÒªI/gÂÅb mÍGà}ýeâšÀe…ë vÖÕ-,*?¼2¤Š%¡¢8®п P‹C»8@•2YŸ0ƒRz5@›H ˜J˜5¢,^Ž`Nœ¨iµ(#˜$¸e7‘)}”´K¹]rV …ê°SîËNS¾Ç»ê‹U=«çs4Ƈ©u-O*ÿÀ²’ÝÑÉñ°Ê=dÒª³û<ìr¬ÀG`AlõMè¬ù”6óÙéiÕÇ'|ÚÄ Úƒ@t¦­·HzU‘¶q¿Bñ*Vj®d“…ì7AD…”åht×õM®Øpi!IJÉ%6å£ Ô<©XòöLî3ªüˆê>¶ª2:þ`¬MÊô'6ÊS“°ÜŠøÖ8Aɶê¹ðFñ«¿ ²øc¸ cu2°I1ehé¡ÃOѱj*…µ.ˆNÞ:Z<[ÊvÕ¶D†ëå2W~ß’?pÁxÞ¬) ‘ÕòÓñîvp7$‰C¾^«++kâJjšáåèÙ’á_ìaQìôÛå ]³›Jøz{OžH–£öM•¹ÂøªbÜï½7ð‡dJà!Å++â=ëh\ÐÞ ,9]Ü‘7tÙY;ì7)ñ>}&/1»áUæÙwOÍÕ!5œœOKÝZdõïô+òüq›GÊXo®á7“ˆ5Z$%€ïÀø_ßvi 5öÐÞcÀïŒHc˜ïM©˜,F1œ)J ò̘4 ™Õ§´ÕŒbÆca–ET;Xü‡¾D}ŸQw¨Í Õ“yô_þ‰Gðýx+Dæ²|w¾gt@³ªxXt3ù½GÕK\y’×Û¸ÿ¶Þôu™¡]f8_™È.ÍWæ]æÝŒ2ºÒÁ¸h²À€J'Rg€±óò Ø©.üKi Àû7WT aá§$ý—l–êÁ,½µáÅ>¥M‡ˆûο]Æxyw]uix‰O3† 1 $û«>Méî„iP7)ã'?M‚9yü¨ë¿ó»6¼Ø§ùÆ"@¢ï§´O}šÐÀ$Âh AÍRŒ£MÁËáŸô0æ$4ˆ”Ѐ¾²‘e¶`d„},xD‹Œ¨¥Ÿ¼©"ˆ ¡²Hó {¤Ô™$ÉÎ8”HÓª:š´rà»8µ’ôÊ”¿øþ1Š¿µæ“M4ÑT¨ ÍuYÌs¬Ñ ÊVâÁÝd<ˆƒº>*Ë/ínÐ:‡nÿüv8ì`È{º7“rØb(M µp(*Üž¼áUdƒ°ÍlÏy¥öµ‡WH€e Јúq7!Åöd‘ÊïY ö6ØbEg<è0Ê~I›M¡{èÓÖ[ÎجQ k®&“VRÒ*”ù±¨7ŽF­·0ì­¾;’1‹¤ø ‡¨T«ŒH2 OÄÌ’>C ¯ÔudŠWM²«&úTç—ÀÉ+¹”2†ûXTéƒJ$°”Ù¥KÙü÷õÙë³7gÿsöèlñì÷³ïΖÎòg…³÷g÷gggÎ6Ï~:{vöóYö,÷fIÁã1±eW3¬ŽÎ+ôØÊ™ ÄJA¤Ìsv1™(r²Rvq…W­ÆÅÑ"DÅ! *ž1<@êFñ:`,L@.8[m³Qù3¼ìBìï#kÞÕ!Ò)o³ÈÄf-Úÿ™ë‚Í=?L€/Úû;#©ö1kŠÆQq)‰c”¤Ý˜¢ ß2*1ÅÓû(°yªŧ5+GÿÒ&- ˜«ç pX¸‹kAã=qJIºcS†J94NêSR ¥¡Ð"›ÀhƒŽ¢ó2’ ˆZžÊ2C T°e‚»DhG¢p“¢ S öV)Ö~ŸüJÔ$èÆÒõ}ÚúÚT¶þÉohß3¥úÊÔê+óT_™R=ZáÖùŠl ñþv8àqEípäÊuŠ¢ cÛ ùÉÞ)IÜ5Upk€aNd,ê–F³¸¦›pe°×ÝH]Úü"©§=D 7䨀3bà.…ÆØžá[1¾êÞá¨éÊêwhyeÊJeqÈbKƒÆ]•ã;½…äp<['âiyE^~Y“ì/ÏÛÝ0òsÔZ`,€ÀE§Å±¢«‹?Ó5Eïa Ck$”»s ¾ù—:8æ`‰xûž1¥’ŠËSóùÁiŒr8%¢fFÃ;É.éÜ–®‡¼ ‘ û\¢'ß  œé%s¯aâñ*®ïßppfèQdVl~pùÔï*Ò°“åÞy\Ž¸<«¹lãËã¿›Œ¸âjˆ¼›ÌÀ…ÏÕžµ¤ ž ½?â6XBÏ¢ ¸"(þ—6D|à´+¢OÑòïggù×®óŠ%´zˆ§ªgä€é¬°|vV©J « n£$éÍùèÊ žD$mÌÜ?-^°ÚöLĘˆ®çy—(ƒS†Ž’·Mwg €ò¦CQpH¥ŸzÎJx}òÿÄÊv§ãZnVôM÷Blúè¸#CÅSG%6"ŽlqÒ¨Øêñ00 ÓÆda®áHˆ=9AldX`×ñ/£òõÜC";oJN8lM bI—_\îd- “›Œ?–erpÕGG°‰­Lr"RLÎ*¬R™d^.Z3ñ¹SˆaÉmÀ¿mûèÞ`âx”1´lmçT´[c$ÈFs0b΀Â?’#íÍÁȒ¢9*Ïyjó(³€g|¨àpèà |î¸ú4¶‰¬rF–ðˆËº1̳‹ökÖÈ æ‡£ÂŸP2壠© ÖšLù(h2ôºÆ ËÄm7àtZÖ–¸ìJ×#ä“–î‘Ê€äg¦KÚ€#Å8Ðg SKGPlQ橾$c ”W#4U 0õ—R©]]!÷Ô¦à¸úsHŒ- Œ^¾³Ýjî7²i~XXãý´ 3#‹BZEá "-hH×TÞ5•©“ê‹?jÛéHbô­’ ÊKØå¤@MfJ©€ýhª2’6qÿ±ª”´EËPQY™?;ÙåÃâîÎ~cÿ`¶¦h >¡G3€ÌÙ‡Bü€kí¢f¤”§/ƒŠÜ-Ìßók¼+§ˆ÷”Þ´ýD»7æëýœ€p&6Nv=Èë~C§·ÉVÌÊ?£²öx8dUx*mdjeÓóSeiÓªe¯Æ[în‡x1B‹4öö–µV4ª ÃíÜM­Ù*-Âù<·!ê¨lÝŠèîϾ‘ _»¥©×'YW‰ˆd¦"k¹!weåè‹Õb™=¢²¨Äœ‡HúýˆüKxm˜J¯}W6›í\ñ”[³ó_$Uˆb8 çhƺäõ£§Ž¹žQÜ; {´Þ&-¹)‹ó#¡1z?«­hZ)-èQƒˆç9”J/“w8ÃZŒ}@ °áˆ ¦´ú“áJ;Õµ+î¡·£j›8‹ÁÎþh ¡=ûäøê•t“ð[]”ÚBzB2¹ô½¼Èð°STM`d¹PçâL>æK‚RŽ’0aÜŸ75d¥0պ꫒upS3Sþa=Ò5ðˆ*Ä`T@v^#;ôøuù ?ä½îàÚãçÂÏ4hÞø¶ÅÚ÷Ž•ƒRæV>ñÊeëþ?]*ý½eiÇWŠly™U‘­Ùé¡jeoE×¼cs¬zMÎ[dVãjôfÕðÊ—2d­ÑøbZ~øœuÔ5¦d†¯YåFÉ8—šÈ–²Ò5!9ÞO4‰£©²œYtZYûOl§à|úð€éÆ \ ³ç/½Ì¬ ÉL8 J›Ue4l|X YlÔ_´öEvrnôÅÙêtVµì£Þ3Ù¤"ò ×å¤Ü:ò´Ýt .8c¥Ôv|,ºÞ5èf̲ ; à|1†¨çs€™w~  0®Š7É ’6åì ÈÇì9ŸÎ,<°zätñ9ÙÝó9Ñy& AùÓا‡€˜‰ì(™Im/;—ÚpÀ;zOXw|Ï°®¼k[éœÍØ23S÷üßÑei %û ãÞ,¢ $w.½óûpø °V ¬0ú8kg&É ¯äóRŒxæÙK|zaÇQ°]¡Ç–¹ëu;µt)3&ϤådÊÚj2p>v1¥Bølk ¡O[JêûºtJoR)!¹Œe²ŠLÚ"z¤U )¾„e¾¤¼-̹†’Ùg¯".óyÖ‘vÄñÅk‰ËbÉüÖYQ‰ð%nfìL“• âÓ–•ôï#ÖŸmi™ 5“—ɱ®C<Ø_dbr‘éx‰ó/3 *m¡= Úª-¾ØI.7Vì¢i·$kQ‘š|ö•‡ºáÝÀïÙ J,Úá5è¾ kÎ+ìã5,†¥*[æl.rZË%çFׯl¤½˜O—ëbã-þoá 8ËÜq˜}_b!à "³]׈þ¸wS‰L2{‚ÈȤ.ð[{µ©¹‹ß÷;Ó‡’×ò èuùMy‰Šã Ùwöçøú÷ò›%‡ZÛ=|YSÅç‡Êà– ­´‚qœ–’äFËo'ÕO—ó.Lõ'Ö!^tvÜ ‡‡>—FÒm‰}6ã³´¸¶±¡ª-¡½‘› G^fBˆZn2HÉXW©äÉú¶.¯…gPiXuRF†Ø›©j.>w¹)Äúc@Í¢ÙJ m¶†I|ôEb>bŽ ç‡ó$3gspÀAº ¼ÅÂùµï1æ¨ÛÅÜX«nÒy›Ž1=ïØ9ã!`žâéÔÕ³ÌâûDGÓj©Þ§,ËDüòU®g2@©[Þ Ðas³•òYvÇWa¨%oŠ´³úø€ƒ<ò Ä^óèxÍH{;Äã½e” lóÐØ—lìÎóñH*kÐG› ‡P>è£ÈÚèïK©ˆl y×]ô« õÙ¬¢ ‹>ôüª’0Û¸Ðä/V^ø°s´s*â¹Qcn9–Ô ®<Q7±a°|ÄEŽ.Ð])Ù]vÃÁà¯$Ú‘ùDhcCYè"ê(0d„lÑÂá[!­D`8KWä !¼ð.£›È†¢@ØÊÞ0ÚèÅïnð" ‡à×#Ù€qû"^tDP¤R>q€«a8ˆ,¸¼Dd8h.¯æ"ÅÅÇ áµ®§ º8—€dÒæ÷¼þ(hˆr¼(¬¼ð‰îõýpAAË"›nw.‡aÏ,£{øŒ]:ˆçÍ­’…=²üTbZÁ‰':ˆïì7k»»Jnž8Í %«ÿä3Í_n* XØn‡ã¾ôbhbÅ¡j6°…#LD]/º–Ž»¡6áw}²))+'$pYºYŒÿ.·ë˨ë„Û;-S|1«Y¿éOn²Y ÈÏggËa´ ÿÊ!‡'Ö¦‚‡ƒ&~&?PÕjèh}:ÄçAóE…n›õq°uŒápA_Š5|þgAþÑí ó œé°^g†r>œÎÁüðÊSÇ|»DÆÒÏ…iÅ¥ëqd…p82þèÉy/[^ó13ƒÄj‚ž‚à ùeµ´Ç’ÏF©SªÝÔia¬‘ˆçiµúhŒØí¾ H!ì½D ,g¹½‹dy¸H7–l IÍ~h(}¨•Cc.v3J©x†ÈEíA©Òëã:ÊÈk£$ûªßÄ-=µY ,ÂD}ñý;oX‚cÑ=ÊvP3è¿døƒ!ê ­—ìŸÖ²vd{ŒÆ¼ö{gKú §Í'–gž÷2é>—I)Û¬í;E9ifÉ­ÚqÍ)‡ v)ô–²þäIn¦PôæÚ'á [op½þtéÌÒ ä‘øç˜h=ó3Q=+T>ùšy½xfTEHõ–üçÒ̱ëRœ^I¡ñŒyqásÈ¥ÍF¹rÈR*g¨8µ‡M@g¸¥]‰²=–óÀ(gú„SÁ]5_6¥­'ÇèÄå¶ÓŽ¸¢½”|}b zp` O¿чÊb3òþy4~ Áh<ìG‰ìD-¸HÎöÛÅõB-}BW ªdžŠsØ…K»#­<`zâ %Pv£‘NÆs†.‘ôøÔ5x{„ƒÔ :ŠßWjeV­3+¥z˜J++){vã@ÍÏÓY0³Z £B,ZeÝ.' ©ê.î\Š¾*÷¼r±2HêÔÝöÔ ¯‹øÃî«`³¾¦LpY4Ì°HEm°AêPˆ¬)#æ êCC)OЕ¨;ÈqÅôÛTýÄ/H Õ¸A~c8‘²:ù´Io·/h £ ãI«׸šÔ™ò"žn¬ÄÒ å︢´2û™ X[X [†»«ìm¢­ÞL(}‘ºfKœ”å£Ä©U\ |-dÔF›×Ć:êÌ!uóo¬3#[QDµZ…È1nËøsôM†í¨KjJñü>M ÷yk™C iú^çG©Û¼L_Ϥ öiISxxGFïÊõ«Ù¨ø{1V²¸9é@²lcÜäµ]apÕQ‰=ÄÅš£œûÎÙœ³Åb¬èÔölqKÐ[ϲ\‹ey¼fƒ~r Ý‘gyhEŽÆÄ|"ýsºÏÈ•‹$3—È‚b¬»rÆqôǦ‘„ÖÀ»g¢å×gg‹o–¿ûnùj3ZÞ䛑Ååe%mœÐW)oOÿ*¥í6ɇ÷s´u*‡žø·$Œ–NYèõ]§¸(õSZ…çm7»t¨+¦[À°½fsg[3õ·Ò—…LG‹“÷D›ï¼LnûW OÈNÚ¢ZH%pû¥ÙE M”J¨-†®I¬€Ý½–„Ö‚Õx欖¸ù¦¨Skgç²DÎ’UbÀB k(¤z‘B!>®é{¼÷‡»4°BÛ•ªyj[þý|——uVˈî‡}DZE×.êlr^Ρ(93Å·‘¢‡C"^!•fÏT‹yjMkP1 ¢JÊÒ°šjÒSÑ# bV¡Å<2tðR o7´¥˜DÁŽ*;ǘèÒr x‡}Þø¢ßNàý`Ÿ¹"(ùðty ©ÚJÙœ¤è@Æþ>U„!8<{|gŠR*©‹†n2hDdË…°ãºƒÃ"_-|ïÂò¢1{xñÚö‡ÈMB?0‹ê ÈV£y¼µsTˆ q}!’'È4Y?6bã¾2²æªYîÙ,¦Ç¡8Bw<èüxQ3`0·4˜9éš³¸´gôDŽû`#Lƒ-¶<Œ‰N˜N !Ts®çÔb…=¿/öýÛQsäsüÉàºð¥È`©PNÇ«ñÊðÁº^õ1à {íÁ}g¤bô)Jó«CgFTÖöŽ¦4´·³»bWaÞ‡Æg­£.Îó•&!9õŽ¢zâ‚‚u9pgF{ÝÐ.ú;¸”‡=RRîd´på µDDøѬªyd®‘qõ[’28­†8¦­–6±“ß>èy‰Wž³å0V.#’(@orZ.‘‰‹#½›·°¶àŸ>þÿ±äù‘hp”%Kdpƒž÷BÙd-Ê•!¯<'\˜ a2¼‚.ãÔ÷zwZf·‰­@ˆÕÅÕy. eö™—*ãlµ%lF«öê—Oò;^Tžµ :õTù«0fþDöœèÄ0à¿þîàcÏÔýé’gœ4ɳ% 5#¤PkŠNÀ%:CSkÐï,\Í3 –‰òjÀ*Ý&d&Ïæ ™Ímš¦¹-ÄidkîÜœÂ/`k¿4JH¬î÷#q¶˜Ç¤Â\Ò¯ÉÅKÏZþV!"ø¤ÍWu‘»âFyùq©Øjµ- ž¡ùNêú²°ÖÄ!6Ÿ&ÈhKI«úL.ëìǬkÒYÐü:Ñtã.ˆëFfá.'ëE‡n€Âr sêñˆQ³[Ž‚G"‹É¯+o6Dw@ŽfœÕ­Ùy…¡Cj”ÇàÜzû”A•¸î¤é&„Zvžˆj¨m 4NŸ2°“M¡òÙû!"mL†Ÿ19>­Œ ¹Å8Ìœ ôœ&öÎvSõ‰§p!šãkõ³¬S ^–þµç,KËXú* çÖœe˜÷J$ëÉëÐ7û¬Õ’Þ[pT-[‡+çC‹ç!8ÆZAàèÀÃ'ÞEhINʈˆ;f#¥“¨Ì'O¡,Š<çGöè¤-æy¤´„žßx-~”Ò²M¶4ͺ–¦€*,1#.fŠäè3Ö0ÁªqENËß¾»¢¿ë‡ç·mÚ÷_9^xò2¯9Üó¨~¶ýò(PÕœ.~ã°‘&‡ô1&YG”×°®E‘Æ@ÅÁèN‰îåáø0wÕ¸Zn½üCî!n“Œ³¤9]2n ÿ´¶Œ ŸÞÇ(¥åL¦Vß=¨×va¡Ê§rŠŽ€âÞkS æ}°Õ°î³÷кÚÉñʾ†|L"Cè"’>¨Ç E°±Ó*~Ù¨m5Ž$~™‰ãáQA¬ogÿÅ$Oø˜R«FŸ›XIJb]|o^ ”%J2¦ŸYr‡ºcŽûA_ÆŠâŽÆ7M( à+ßÔžÓ{ŽØŠO(¸öœï%Îh %TQ–JÁ?‚ H¸æÐÔVjQáõ—p˜ý‰Z’ó¨ÈëúÝÚ)|QúÛ×a?ä[·st v˜K ŨÃëñ%&J'Ï:P#¤Å7‰€†öÄ¿-µkc”˜Ø+M;°½w‹ÝÓ(}Ôñ-Òßå0GñYs1õ@G_ª*Ç×C]ú¡NR:þ%‡ëø+Oðw^ßf¬¾²K'vçþ£ÉÀßs;Jÿ³5ôÿ È?¨¢ó‚X>÷§-êªÈj€ƒŽa`rðît|:וߥvlª¾<͉›Ç릲ʔk‰Àzâ"¼ û:Æ…7ºŽE»AA-Þ°ÓÅ9é°»J½ÇŸ®ƒË‘…¿‹(5’T9 $i$J–hl¡act×â+' òª¿ˆd­G2¶ ZúHŠJÏûD·õ²2U¹´½Ä~a?êu¼©ÿƒ,d¯ ¨MmÇ~‰5dM†éÜÕËärŒÏßûÊãœÈÝ/þà ;õÂî=øŒÓ@o£é~GM¡unüT%ôP_÷¯lb|!§ãÜ×£à¾P¸ 4šé‚ h¦QØ 1I'þoY¦|=Dþ©ƒ;VQøÏ;J¦48nÐ;oJ6Äv# Íáù#EùšzQ·øMš!À¡3Æʦsx>GøÖCMÐŽ?ò‚n4- Êç®f¦—gŒû¾ÃuIúy$e…VïM‚q¹ªVLðʧ}‹¸dËj½Ô9æŽ{ææ¿zÎ~QMÚ¦$Q«çl5Úx¤OÌYÖ*5´l«2šìPÝY6[K„¡ÍUŠ"G>e*ÇÕÅŸ'¢íÙâÏ@fuÞ¬®bRëôùÃzõîa݉gÿÛôãׇõ#žý ö#ãšk)m°lÇÜ. ±¤=<`AË¢àYˆeu0¶ßï$àg‚þ(Óó`µç ™÷HÆÐИýÁa8s¯Z€cf"¡Ó&ÈäÎ$ÆòÈ-Ú Ÿî•Éò¿ Š¸Àgôãp<¼3ÓU\ï{ÚY@)d.ªˆ-Cÿ 5¤˜tÆÚî~w dñ®úì9Œ|ö¨©ŽØã>!Ý ¦ 8a4& Ø3Ö?šË'¨Et”£€‰>,õ|&¿5Œ+æ±ú” mFÄô¬ñ£ã¶¤PâõïBzò†xžeW’º†ì _nÕX² òŒ»Q‘CðÑX*Q ¹RèoýîrÇÁˆã~ƒN¾(pTx1f3²?Æý·Á·œ+ú ëÌ«ÝN,y¯¼T!ºeð”A4ó ‚-ë9ºìƒ£×˜l6‚> 9ËgS edQ4®9•c é믃H|€V7p]|°@Šù‰xyÞs¢ËϧÆé±@ év =/!Æ”eÔFã*¦uF¾2Œ#ÜàÇõ³,ÊÊà^E÷Z¸²p‘òRÕD…“žJ‚×%ó}‰kcvÙñÀ~Á>|°Å:n¨¬zIS®ð|Û//éis¿úwйàïÍßöèáâBþ\ÑoÈÿ^ü! ™é2>Aá“Œ‡H ×ñ8ªb¯½‹7ÔeÊ®¥‘˜_­XC°Šâb<’4Ò`DH,i¹÷@3¨€¸GåÏÆ®Àq\õäû·ƒ¡=|"G~ùÏòge øK¿Ø9ÝklˆÀ§nà¿#1(”Dw68"7»ÁŠ ŠX[Œ¤ý.¹c«#Š‹G8s ßs¹Íµ´…®2¼þÝEعÃò¸i`ПÃñÞ=èYJõ±îbgM‚qšÆ²ËH"úx|ãE28°P>MÙ4“™Én[$Xzv‘[‘™ÖèYíÏYEŒÍþþ{Ågÿ}<Ò(aÑ¢3 ³OW‰ ìöáJÇ`·ã­¦§¨3FÿžVǬ ‚èLåipQ°O?4v³Ë£Ò4mÚäÜ ¢Ù™ú>sWVvªÓsô…3=ØÇ´‚)Ž2å’;¾ö£X‡â½€Y¥·VšÌš´ªD‡Ï™Gr,И"÷G°ÛX€ÑƒÝ¡Ïkg_£ÐŽrÂá]5W^VS‰&µópP,•€ô/¹ïß[bXñ:Ð2ž2U Tw¾r™‡£nÆØùñCâUj<Ñ” vR˜RŠH<Z 9ØãðÙy©„‘vråO¤*ÿ–¶Ìᥑ/çñ1<ÓãtÉ`Ÿlc³¹1ß;ÄŽtfù[Ó-(ˆ&Ç1‚0åJ/š ]3èbõ¤í)™Ög:tAdbg‹ò”¥†yæ)µTš|zÞ3ÍijÌ_r†DºG×âÜæª9 ¸NÊÑ\ž`^ü>¼åo|Œq^Dþðö¿ØFw¸10€¨/,/·|‰P¿»º 3Ñ#°©’?b?q€þ¬i>(ûetQyIÎübÐ *R±ävàóa/—8E8§}^0g)ìþ›„͈‹‡óá"çÆäÛ+¦p½óî>¸ôÐëfêÊpr临#»?ÏnóeëžÇ'‰ë¥ç¡ì­Î;ùÁα¯OËÛø c¯-¶›¿?Œ,&úmý<„.ÚÅf_ÜaîÛOŽ„ù¿X’›ÐÐz¼øcÞDbø4Ùò_°ÄHîyÞ"ñ±Žm ûÛRÁv½s.iñ"µ+jŸƒ©”j™ãYRèB¡¯ÿý’‚‰$Ð^€qø¥Èîç¨óá䶼hO`’*ÎÉ•ËO£Á&Çzæàù?-ZË_ÖJ4Zäïä²MÄt}gNýa·'Á˜M…]“äÿxjü(¸DÇâՂª·ZjeCßúpDÍ< ÁåüT{QOÿg¦Ø†mV’´›<–Þ‰Üïbé±EH ³°‹3‰€ O ¸Ê'›òé{‡•2R×Ø¥uCô¤…Q³ ÈcSŽoD)rôw— ¥÷3JÃŒ¿{Wý&Ûmí½òóíoñZR^"J¦ e’Ò§‘±êb¬ŽùC{»å¦m Éœë™íz½z®Êíï¬OŽz7 žÏ±é˜·Å>&ª‹ïùˆ0~$/õ‘3ò5[ºÊÎí»¶^—6‘(Í'Åq‹Ì©„×n·®þã7¯Ã×áÿæÆ`­ò/¸1ص|ÚÆ0/Å×õM#öN&›º4ÅUá†=„ƒSP”ÚMDm¿¹#ê3eJSÊοE£Nû“ƒ' ’ šNÖ¿ÿûmZ‚~»;îøâ'h²7¼*_?sÓ‚0–t-î~”LFŠ€©PÕ*5IÆ—!סc'´Œ}ÔF£°ë÷Y ê¨ÞOËßcdía›YcŒkj]4ŽÛ#q1Æ}¶Wq‹´&óbg·!–D~iØŽÂß/ˆ¼•s µ¬è „¯P²°™Á·  ¨ç Å’/òøÀŽeÚÒ€…>TS° {¸Þ¾¯ƒ7¸ƒ;0ÐW4=@K® êEÖWÔ@‹0±@Ð8)ÂjÞy­nƒôN¾b˜È¿+ ˜&^QáÌ ~A°™ç2ÿ®`q¶Ç£*?)¯ˆ::dûS´Û@“"M¢¸fÅ뢎O‰–‰YY…ÆA¸÷Û´ª£G!M8ÉÆ)83+ ¡ø&wvûòeN\û·Ô7¯MÑvBºÍá¨,Rç€Ãj°wx|FIÜÄÅUªG㾇!Ó‹t ä{FØú£î±Âò"‘»ÍIçu¯‚>ß…*°E€; º°—Ž:Š¾Ùé°"Ú•O¦…|}Ät¢vPY¨>ú´²’û¦ 5ÁH‘×;`ªfôˆzáwmÅ<#Ñõ½ˆÇ°¹ïC›"•E9öƒ®VWd[8tÁu@¡žHBj/±þ]†Q'x9 ^†Ñå¤0\ñk†(ªU±"~±!JÀTÊJÄ.OÈ\Táéni!ðꨈ÷ø1¿tYàl^aóÞ|^µ?Ë✓^0äßXTc{QðâÌ/f¯IúW-OjÀ𪽙‘ àåÝfŒ©–¸+CA†¢X) î>¿^y#t>WÌg˜‰L¹ŠSŽ¡\¯`Í”¼~l²N ‡VE1ò8"µIcCA©d„äȉ犫=‚Ë[Ž …é~µôg×ë_ußu«X†…뎆Á-‡~j¾X®,ЌÇ—‡¥“SQY)¯®ð½,ƒáB©æëo€QjéGðÉ¥­ÖËÓÓVóàä¨Þ@ïì¿=ÁjOÛø­Õ8=nì£÷f«¥.@‘¾Àg³Âmœ\@P£È&ag!1h–•)•Üþ8¸ÞxŒ¯çŸ¯çŸÿçb%ægØöêó†æ>ùð5Túípj~i&—0›‡Ñ[öv1ÙÑ,ß¿Ý~¸í‡ÌWͲc볟Z¿“z Š}_ç;¹¥y@§¶nö™Må[ç“ ›r§ƒ¶ÐÍž 1ðCÔt“ç…úãÇFÓ õؤrAC)“Rý g=GlÊ_,u#=÷B¡Žßî"C!cŠãƒÃ…- ª® G‹$m­í$ê´yÄ s DTµÛ u_êŠqØÜ´&‚‘± È©Pã°d;>F&ĪìÐÒ³;æ‚¥=èŽ#ü/“¼^ù*2ûºeü‡o’ ³—š²" Êåä/2œÀ°fëYñ. ðÖÙØ ¸È}Ô0¼yS^ðêï›sB˜¿`Z­³óê,‰ôŒTäø»IFÝ9q¥"Ýà%îá„{õdµ0å˜ñ•}%dÿ©„lã 0·Z­öäûÿ¨ËWJò•’|¥$Š’üÛÊI"’rv^Jx†±VtÌ?LŽ;±ÓNΉ¹¨o›b¬ ý¥eÌñ )'ì?'#×ÿVcèý‡hÙjníU9Î!ö¾ã0,™$ˆŠ®ÎÊñ„›çê+Ög(Lu¶ÞòÞCmÞ¶‘kìoå(¤N' F:”2ánùðåÁþoB}Í@^6é¼Q×3dHM&˜Óå ­Á;¿ÈN±eèOÒ¸¾éÌ6#ÍÿÑ]—œ(ÈäQà݃q¿fÛÌ‚t:ý”™«ÙGYzÿsŽüj¦Ï,*ª¢ ícÉãÊþMTiªQBP½TµË1ÏÊáï]rÔ%Ú qtÎUàiøVZLíúÞ;7Šöð¢è -ø(B5ñ…íöxˆ—ðç7Ða<Às!N?á,9é‹ú“h^˜yì†á[¼Ž:ÿ{²‘~ÛCy“î\Oî¼Àâ•\GŒûx—@7!©v‘S·¼Š&š½¢y¢;n&Yt‘ßRw;á­× —Twyè ‹æ,óßs5k¸QIRÒ»„­E$‚l#oáŽ×9ù’Eœ¶¼ˆÙ³-U²œtx³æF)Ù#±'Xœ÷çÍ­Ôy·8LÔ‚GVõL‘Ë =² ?rAl£ß9úŸÚËXGËVOÎfaû–‰VŸ¡‹aÏ¡š‚é¢S÷ûºµ) 1’ÖÆ«J_°TòûhyUâXí÷Ûw%ta™¦}Å8Ôï¬0ôXw{àÎ\¼íN²a¯|éúzt;Ò¤‰5cldGÜhö^6{?"×__óŒÐ**è{ƒA7h“1k1 vJ3’&tÉs<¯?ÉE¨ãƒMØÖ7Ȫ&€Âd³o.§qèŠ`DèÚп¼Ä„— ØÍ>z«f0ÖGBŒàxHŽÆMwÙìšÚç€è)oè2’}©NQ(ÚºIöDÑvo؇¥™eHœ¦7|¡œØïKÕW$]/ ¾KˆˆÅ]upYyöN =4(BäÕm=ÕbTƒ«~8¼„bˆÉ’ÁA'”ªä+\þt.¶ç°HÝû¾ÌJ“ß—+´º1¨á»¡ ̺šÒz+Q]ÜàzéXÊmÉ•ör›ä„zx5&9’à]:ª%Kg®¸sÂ*»òÉ15¶è‡òÊôšy 7¬úsn— 9ËÓˆæbm̹BÙ,©#pÀ¹Ù .î+¤›ÆºÿæaÊ‘Ð…Rè&ý(WäÀk—ËòŽhxéòÝÊÂb^fPz2Ÿ¥"6ܱù ®gêu8-îl5ªšvÎQ6CB€Œx€€è—:fçk`Oyk¶Ä¢uéá @A%HpS…”B,XH+Çu`ßœžN½8=å{€ÓÓß`Ñ WIhŸtp{ûÛcÁ8ëpÞºÂíþ»ÀQÞáÿNx˜Þ/àýøïþ»íÖ[Cü—Ö‘ÜÙ¿ÆúÁ¨.§§Ÿ7ØÏéiz´ŸÓÓ*ýÑcB¼¡ ˆgŸB¾\ÀhÁ¢Û¢ÌäɱiÐT§m òËúƒàg†ý‰c鈆Ó?'±ù?0è3 uZÈ µtdί$fjÐ 5ZyÔ }Ñ©©qƒ@k¬™Ÿdº ?ÑÐAí¡HÍòáƒEt²@ZHéA 1_2®Ž-ýøYçkd¿mdOòýfaù'x³ Ìáÿ-vÄùwàóÕÜ¿WEðí«’î߯+ÿ >àb¤ìS¼ÀÅ@Mõ—’w=³ ÒGx‚“ò+ô'cÞàtõ”ÑIó wzúp§pN™yñÀð|u ÷u·øº[ü§îöBÿ <ÃQ5¥k8¬p¶Ÿ•+Õ9œ$Ñ ÷pššÇéû$qXËdqx^Oxt³¶‡¤—8gï˜à'nÔI 3J'ù«%ôßr‹™$}µ„þºÝ}Ýî¾ÚBµ…þJKþv ð?‘–|µ†þ\ÖÐÞ°²±ÜB6ü‰åÖééWÓ­¯¦[_M·þcM·¦.ð¯¶[_m·¾Ún}µÝúj»õÕvë«íÖWÛ­¯¶[‘íÖt®ì oÍÁ>Èzk*¼©æ[3K®£¾Ä$®©¥?›׌6N1á‚’i6\<ÕˆKKZqé’ÒOÌ#ñ\Ž!ž4€ezGNÍÉ«¸ÙÆ`Kâ—E~ï2±Û°ŒÔ뵦}ÔGá#¦QÄ$;“Ñr‰åtZNt¦Z_M7axï»÷†eÍów1l¨}V‹†ÚQª)C ]âÁ·¯Æ éÆ 5v˜À5›Éÿb Pù¢Ó–ÌÄ)AŽq†Óˆ-§>넸ɓÓú¸ñvú4c¥ÜÂþû¬cÕ×/`Ÿ4aMëѵò}]ßÓŒ“p¬þªEmp?¥i6IXæfº'[$}î%/„ê u@ù²SØgV?åþ;ÿÐëwƒ‹Ï²û3¨¿ å8ªíïî<ÿ¬tƒA¦R þTÕy¾RŒtŠ¡Çiþ%DD6b1Ñ®ÌÔéžA>Ô̧óí/áÒu¤Æ^6f¥øxÂð÷¢vß¿1…&8£Ëÿ•>Lã(Ô˜ý5DA¤/"w¾p&5s#ëp')äÅþÆ¥<Ô¸M›Ì­| ²#„Ý?Ý) ÞÁv—eHªöHl2䓽±‹«0ìðý1^Å2i) ¼’À}†'êšääQ^ã R¨†Š‹ÚÃ`0¢(¸ÃKä>ÝÃœç¨z@ªÈ¸®.†á[¿/Â!…¤CŽ7 ð^[ÅÝÀ€wwѯbÙµ—e³Š¯±–#¼Å’I˜mÜ?hò+/z-?Ú9ñÜx½·KêW‚¨›ŠäÕ&¿Fâ" GÝ°ý–nN/»á•‚¨IO¸à‹¨£À(1:,¾Ú!= Q*Úõ® Ùï2º‰l( D/ˆø>&¢+¤Û†ŸÙF2ö*·/âEGC¼Š…Zhf¸†c Pàò2 šË«!›bËŠ¤kœQ–”ûHFà0áD›o´D9Þ¹a¡¸¿ïsìc¾Ä¤ûbR¡Ýº Æåžg£òЛzÉÂY~æÆ5©àÄŒ(ÒÎ~󸶻«hCr“óF×- é“üÿå» `a» 4|D#$ãLÞ@ƒI-cèqǨëE׬½‚µ ¿ëã5GT怊üóínyY|€ðßåv}y ~QþLË_ÌjÖoú“›lÖ…òóÆÙÙr­Â¿rÈá ?Ò‡ƒ&~&?PÕj,‰‚ç1ÿE…nƒšõq°u,ÖÊ+:|% 0^{q êK¥h# sLg\`fõ3Rc”tÌÒÐ oŽr„E°"¤kíÏ8Ò¹R´9j‡ø¨€Y Ã0,Ìä°iü‚áÂT6ÀwÕJÒUWJhЋ®f€M¿Zb(LdÕ «ò2†ˆYÆmøŠXÚûï+¡“e.¿?®Ó´önPUô“Ú+wÊR4ðÛÁeÐfúhŸTê2/em¥RG!‘ÛhT)°x3‹ÈT§6P”ÚY.ÉìÖ¾Àο u´–‡~Páf™c>áátæ‡Wžæ¼¬Ë4 ¦w”.*àãGE½KEÝðF­ÑCÆÌ‘NRQ£±ð„ü²ZÚcY¿ŽÕ¨´ú˜ÑœbýÈ@j‹ÈÈê2"ÉÀk¿¥0)ÆWˆCåŒ[ ”®X™¶üpÈÙ|nViÕÂrbh䴢댲M›Áoª=(•Õ´>®#gwùšì«~·ôÖf).àèÉD}ñý;oXzçuï)î éwôßFÖ±´ÝEM0*Áñbð H/1_D£`4æµ—Ø;[‡GÛGµ=Ú|biÕÜâ{™tŸË¤”mÖv¢œ4³äVí¸æ”û”(õÄú“'¹‰áJ¶çÀOñu«@’üçÍbÇ»s$±x~߇ã+ÍcÓþp\ cä„€(XRÑq‚¡Ä?N „b2·0ó¼APbÅðLyÒl´öj;ûÇð_ã¨EWዺ¨â‰Òr‘ÙíæìsZJÙô54!ãºuÛ›–'fûª/Éãé‰[òÔ‚|Mž^Vžécu1­8^T‚¼†m [÷¤8\‡~ù:ŒF™Ìv½UW>®€\ã™$ºÏL‰©3ºb +ßA•8ed¦yQEfG9~yÔ¨m5SÐbÂÔ; ?"ݸ®Þz·ëõ™'…ISלjã9™f¼cU¬ÂR>¶ÀmˆååAî<#µu Õ’`ÜxL v?4z13±^AJÅtëã:-¢É>ð†°MùÝ*¹Óî~š:ù*k ³Î‹N!D:g˜ARz¤¨Z cg[r˜¿®_È,¼ï' iŸmˆC _Pû¥¶V”Àõê­@"쌤´úh@«›÷Øô÷Ò0«RØd3í ÛeelÑ3¤í›ÜÙ1ÉSgFg›wVt¾*³³_ß=Ùj4«¥CiTØ0ž«­]45ªf=»ð$–@mRÖ'UV ;8eÁV× )´!É–õBTçÌØü§M½»h  {hÜBÆéf¥¯VŠlu©+³Ó'Ù¤ŸoX/-•àü1¾Åãfà­?qޟƾ¯»ïP¼å–ðºƒkO'2»WiûÓOgÒ2õ¤ ~ s@ð“Ó–ì¨(ÛÕ¹Š·Žýã£Úþ±UP©çÍXÑ÷®S†i<½B”dìî6va?=úÅn,Tæ(ÏÝlíÔk»-€tP·È$–þ£è4Æ Ð8ú~±†\Æ·•ÊQÊt:ùªv´¿³¿Vª¨OÏ6`•Š8†e™ß÷¢ñïÉèF©ÏTûÂ÷û$z/ó?„ªN^êbižcïYöPmŽ¹[ðâÌ!µ$ÌPItœ>È~2ÀƒÕ!âÚjAÆ>e…+DœÊþAk»qÜØÿ5VÛӹ߮ý°îž%eâü’žÜiâ“C‰yQȯPa»^"‚}¿}r„µ7⇭» Ò¤Åg ­>uÎ?é[Û'§0¦}`BéG¢ÁkŸ Oj­­£Ú‹ãÊŠ:<û…ÂTጼYå*YèåžÕøÄ’K|üyrÎò%´ ü6l(óÄ-~zhÖÿA„Ñ*Jf¤AúÑi£¤æÝ-*ÄHùËLŠ%ÇJÞÍiÙ¦æ5Å™B¤c]R^š³º¶€.®•)­Û¦)Ÿ»üœ g±b&E–5oüá m³<¼þå‡'WGCmùnà)Êr»èæFËy, IÊáÁ«ÆÑ¡a“äI,9qC’VŒ/HRK²áW·Ýéþ‡dž„à?ó÷st—pmB `x¥$0RÁÃ×ØŸæ@mºË»¯ïþ†]ÑHÛ9úþB~¢*>ÍGô Ò®)ƒŒçpî´í1Þ¯~°w¸³Û8jîšNb‚H'‹0‰N)å˜S¥4C”<è„»— wêì%ìcJn40Ùí·¥K˜,¿tãuß²Fºœ‰låU¥ƒÜG²ž™äeë`ÿ¸Œn³Ñj×ê6›‹‘ÐÅ»ÁE§‹õpûʨVƒ{8`Ö[_~%µ"r¢A:5ãt¤À:wÝKaÑ%Æw—²eÛâ G¯qŽ¯Ó >yÀ.u;³ugÝì³M? ­N·ÅÅ>Y-@bc*)·LN 3ê` ÃÉn ³ǽÒ”‰ º8¹j·Wa4Ñ·GŠ÷£Ý. põåÑÕn"\>éÑ2c|€«PAPÇ+2gAÿ"Æ'Ô"zÁÕ5üëÚìîJnùTex‰vÐDt¦0B%º~‡}|èÅN¹51í¼!'aѽÀ ƒº;n'U,q%_ØŒ±$Ö‡‡s)./çeFÐsfꞃ¾²!ÿûÙƒ÷žÄìÔ2ùEƒV¸5=ˆ'Q>°R|Î&è#æt‚=w¼ §­ÓB^$2š(-GŒÃqE«Ž¨7E*לs3#ô¬8j¡6À¾j—»¤׎¶Ç­Fý õÃlšÎJ†J(*aeiÄ)éz:˜¥…ßS7PüÊê9:©ÌÙM±?±ÊŽ×éÀ´FU|€ðƒTÙár@[EÿDZh¥Õo l%5è‡JLÀ[-5˜ƒ±B8 ¡¬]oõŠ¬JµrQVfV½Œâ'}-wÃl&&¡˜¢þ”*ö´G… «7!–¯ÈËsùÚN´¡ã°m_[Mä%(Ò»/ü‹…³ÒßÑCW?Ü=iâ†)×)IŽÜÍ,ÙñX~Ùv¼T—z¢ìxƒ¶týIå­Ì£(K³o¦8ˆyU¢ÓK'˜Ï‰êq²¤£'Ó¦*Æqžyµâ87N÷ ºøþNµíFIõÜK )]— LgA8¥‘ô#®ÂjŠ}臘N«*þN@»aøVH?šOC¿z¡4@-P¤wÕÌ*:ƒ…^¡ìP•9¢é þˆ…û,á.s!=»ieºß(Rœ´{Ë¿uµi’ØÓEÈDÎváÉUpMŒ‚¹2æ)\©Õ¬X-kµ[& ­Kœ˜”nn¬‚Ò©kûi–ºš"ê:¦B»s…'Ó <&f)Ëeî@SKÊ¥Ûˆ¿ó,V24M-­|Kgª3–íÜp KA‰ê¼¦ògés _Ñ•&ûZ~½g¿x´äœ›®™ê(Púysk¹†õj›^†š/”EÓ&UF5Žý’ü¤^S|fðò"@ݻѽ´Õ!çE,üLêªògµüú‡ßà=O,¹òóÜ—²R;dõ)Õ[¿n=o=?Ùn½Ø9ml¥Ü-õ‚A4º]ûjó»—ñ–ã×, ap›lÿø¶°v\@GÇ­f«qÜ8M»#Öªh—¸µ³:RŠO•ïCùè.z·ô^å]'œ¬ñ¹Ö àCZÕÑUðQ¸Ðjœ6ê'ÇÖaãho§ÙÜ9ØOé~{MÛVýrš@_[ü-¹|4îœ[KòQXp²Ð|ºÖj¾¬5¶ð¨2©KnÒû‘¾X/<1ø&/eáMnè_E­ Ï(iƒ!êoQ7 ‡üSKR6〥K¤ª¬´ã¤5“XÖ$Û­Ëj>rK‡á cÉ8m:KFyæfÉ(÷G³dT:%ã),™úðŸÄ’éQø$–Ì@A–l"^ g‘’2–v°Ãù2G0çtO IL±Ë|,¾Ø0R°ÆùœÄØçÿ ŠË§àQcy±áA¢q6»§Ð£ƒu=T“&4øÿùFŽb˜@á­nâPBêfŽhl4-Ô:Ed°}oH´öñÔF¬“ýÚ^0‡~Kçcò͵j<œßg¤ùÐé"åQæCK%¨° º#dRag›yÝþjÚ%á– 4¶“³nȬRcÎmxuqRA>ýOW]õÇ¥nÇXÉ´)"+ÈÑꦟŸcB+ΉÓ.ÈïX Í»>+›-µ“¥5°t†Pív¬‘µ§+@Q]…LϨ4ýQ ‹–pÞ <õ ¯êp¤ÊE¿Î”zˆ…©›=Å®”iž„Ì]_Jßh×%Øø®ïqKµ«–¶7¨æ$ïVø\6À$D‚Pq5Xçy²ZMŽKÁ×ÁÜwDîl¥ò4wîÜ2Î ãÜAKé0F{8‘©Qv·˜”"Kø)D6«fç5–ñ.•ñroHâs€8Y²D"DIgŠå(¹¾sžåêBB|`ƒ¯µ5;èv”÷ †l/`y1UÈ À,c›XÄ–óks{ÿDtg;6äl‰µ8Õq›P¬4g]&k¢>˯$T&ÛD²w·>kÌ:@ cnN!î‹J»²½QifÁ¹ÔÞ§ÚÚû”Õ¢KI»µÉê Ë´¯æÊe>œ«&’@»Ú û¾vÞ"oØ©åìÀØä:vJÜ‘í*•¤·º¢†„!ѼÁ—Æ¢0U\<'#6yLÞJïLh’çìz¿—*öéÌïŸ,ô*¤ûãS姫Yí{à'‹â|>‡÷ȸlöb«³É’2³H[kßÐ> ³fGé`ïD²#ËŸˆê‘ÊúIÏöl–³NéUî×ìR'C¥Ý!r]?Ú `Ʊ‘vbæôÏæÜ1AÕgªcÐÂ-RJta‡œØž–âÍâyŠÎR*žAåªB5 ˜¶<ôª`–ÖT9µä4õ#9áè÷r úšùh"£³ø°Õ~×v·ÌRc¥V`˜tÃݳ™âäG¾çŸ}ïž(™Žî©ÙÖ3ö^žÌ3Ÿ"6ŽŠ oDÑ„Œ&fûQš Âl´évZ\Žtf>sÒ`Vs¥anî qËN›“dÎõŒ]mj¶Œ¡…Na Ï51O›ýÞÌéK”˜c•#Yßßû¬^¥÷÷lOþ³|D;ÛÕþ^•Ê+¸Ÿ—©b/–í69ÄÔ.-É«íø­QoÐê÷ªš+Š»ï÷âlÙ"±y1™déŢȥ±V‚é`ä8b%[)ÃÕ:å|B¯VþÌ!çóŽ¬(/½.š½…Q0¢ºŠM¬\Îbˆ8;Z¿·‹]'²Ï³*lœÎ¨‚åB U<8IÙPç@º|'H‡ª~,¯Fªô<˜Ož"¡3rÿ\)Xô^gþ°#áSüd@Yj\"Ë–àØâȧuãQÒQÊ´oðö™¬ó×?HÔ £›;¶ˆuéì=LÉ[j6‡GR\e±¾)qðOæŽÑÛðhx‡8GŸÑ+‡ äKÒQŽp-zSj¯)§½´´ÜÀÚ‘¬'uÇÍ>‹à#Ä4òÎéës{(ìöQ1’LìæR³±ò'îî~‹ wû­È"¿˜N’_*¤“ κyhÀN®”_¯TVß°|Êœ°h¹IKe™Þ-¿@5Únå—ò¥JYþU†ÁX^’ß ÎkröQ9·åïèzžÞ*å5X0³Z½•"kíÜÁs.&rç¹1N¯ˆ¯¥n´Z€á­4ˆîz¢¤.;Ô—¤@a[ë¸=«ûž`é‡uaâ¾ïKÚatyóˆ|ô ^*Å8¸œÔC?Ö#ï­oNpT^ŠZ.B¾Ý@=8Œ‚®¾nw}B‘ñ@•éòÒ ×ÙšÂrðz ;t%OgàÔ ?w| Û<ð®R±1u¦#„œ”1\Ö¼âÂ//©«"×{Šv½>$ž1áª?~ ádOoåÕ•¥ÚÉàü#Jÿ|8¬•Žvšuz)Ó¿…y—x|@§QOwU_ЛÅÓ%éÖb:’Ø–„à\êNŒ°Œv» _ :*ø¹+fCº>^·ñQ'f °¤±ŠYs•íPŽ?0…Õ¥ƒÛ%Q˜—šÄ®Œ¯°shç Ìéj¹R®†ˆŒËÏQÞØö¤Óû¾¨íͪp&3¶»7…ÜçMO–y+-Áû¹œKßõSwÒi}§•ƒ¢2 Æf¼þ}ù¬üæñ´åŒ çcõ»˜›sG˜–Àè¢L´þ¹8f–f>vù#i}¿nÙ61øÔJ¦íÎöüù|qnnÂ5{ZÒk˜$1²õ«åJrÕfçÄùÖ³læF ¶dšÊK)û·Æ¢0º\["ÏQ—Oä/o­Ÿq˜³½õƒ/Ôɇèã<|Ç”Ùü”O³âÌØ„fYíÈΚŽF'N½*ÜÂ|³i­žv=;)?Š¥AZLºLê Mm™ó’¥†¨&N^=BØ[¼ vâÝÀzë]„]'|v»°{Zj]}¡€výÞÌØŒVÀ,âÒÝßáx4¦ ͧ”›-+G}æ«nxáu[ÜÜÖ LJ4¯´œxi?òÙE¸×÷U„>%0Æ€ž(ÈÆ­ƒ˜yâÒ¿!Ú*“p…ÄÀ¯ÆvNƹƒ… fàÿW!7êà"Ÿ$%^´R£$ÄŸ‰NJuˆN'z ðÈçØøM¨-½·(¾Çô.¥³é\Ü£ÑjAìÓž‘¾ûŽ,€g¹USï´c5ÚÖþ¹I €[rѦS.¦~o¥òîC¸ya”†‚¤fÙ)oÅál±áÎÊZeëCAL?¯ÓÕ/åÜʈðEçZ«ãfSè2¿ºøh®Ø4Ë©Í'l³L'UïUiòªÎ÷ªD­¦§ç“A~¹YE-#íí¬ÈÊvH#0ˆ®„Mòàýkê]Üj=:a¥¥§»U.$:žÝsÅNúj¥ÛmŸî´ºÝ â”þžF™ÑcÆ@e[…1áê&3‰®FÉÐ`81ão¬â½ ¨Üh„¸wîN®1օŇGÖÉa$B€Su<íM`*ƒ”†°ÊóQغ0Lè,SX'ÙíËÌ…¯^«fá^6¤‹X#›Eª3TŸÇç,A´¼èk1¶­ðkf1,BŠ<¯ÞË“ë@tÙ± lÐ\G™ádh»íÆ1ŽS‹â'U'J Øb‰?(ƒ f€¢ÜD’tÅs¨èˆ/-|hÍuÎùå «žD;–»ÅY ……Q×óR2“Ÿk:!CGqçÞÂ-ß¹H=Õ¦M¤á­‘ úEjçúùµ&+òkê (ÈxêÏ>Ù"XÉÀ‘iGÕ5Ü›3SòãrÚA¤dس¦ñv•Á€žu`øŒãwêÃFÉtŽÔW v€“hýÒÞý´jrâ #‡ëåî’Š0qåYŒñìÙ,Øo>³‹š^æÜZ3sâ÷I­ò™wï}ì,Ð@>„X¹¢mÉJ#O·”Ù‹ŒÔ8ä­ÂBÇŒ™rÙ(kA½ãàM&NfíbÆðf<®ŽFÍr©u|¬ð?DÊ…ˆ Ǽ–ªõ”ШT採ªH¥^å‹5 ª´¿““Ù¸_¿ô§MqœO]TszêÓfmáUˆÊƒñB*Ó™53\=ùª=õÃ*é L<ä)hš…½Ùe0¾­Ç=¡L1¢ù}I±¼j7Sø+‘rqN&nPäSU³™KÞ ¦¨ý¯i­ßÝ42ŠÒ‰î0]åÞŒ€ƒÛ¼îcƇ/ÇEý¡j“±Ó÷Pàá jèiTé„œŽbe±šònð¦I&6Zå\;c>Ù±±réi¡Ï¾j0•CjŠ.«&‹L9Àõ ÑÄe¯‡Ë¥tz\vR¡ú¢|íJõÆAÖ4æEt}Y“ù³únà ½IX¿úgä;ÔÁOð—waxZrˆÇ\oC÷،Ӫ üºaE³"ä£Â# vä9‚—v/Ý—§U…îBvWCq:CÆ`ã`zy¥]ñPÝrÈOã*ÁÀsŒ^¡uYô«Ší[âÜ°9n;Mê0¬žøiGmE'$Ç?ŸK{ÃÚ‹„øÁµ&Ú\#L–Y0Íî.·¥ì¹Ð]_Tê1¥\¶$£àµ÷÷ÔMÖÒ.‰;x·˜žˆ.$2©OïñÌbüò+osQV晬ð ’Ξ›âT6ÊŽˆíæðƒÎN0ú"Í2¶·ó|’hÓ²E|£ãÎañSU$“Ž^ )$l¼Àõb^•Ð­Ñ´¥`’y뻨S’ØpWh†òçÜùf7_|±Œwõ×­û}ëF›,œÒƒ2î m8›Üh_f—ã)²9\¯â\Îf¯€‹îsºüÁÀ„+ .Ô(W |÷ød—œÙî=ÙÝoï–ÙÆÀ7ˆÐ`!|ãF(Ú\¤=|MŠuØL®é¶ðp~´|CÚDÆ•îªÌ×–âÙöÚ&+Í×!>:KÑE2%¦ú+Cù•¡üÊP~=•¾2”_ʯ å×­û•¡üS1”†.Îõ4—Ìâ~Ž¯SÊtÊ›Ü2u*´]WuΘ;«‚Ë2‰*‡Á˜–¯ÏðK÷ùšçÅî]x¿Ç.R›˜ë¥‹JÍÿI· *ûœsQiG½W+LwUyÅy^)W,ªGŠwDzH'.ÙfYê–ÍËhFúSÖŸ‹†«‹ ÌŠU/õ¨ vŸÂ.o¦r[­íÃöìë–4ßA^Fù+É¥á¤éçD_X|)ÿÌŒŒ.t°Óœñe2 o›ñ´‹A௒ŠÀþ5¼ú׸¦ÿ׫§ÈÆ kj·óiÖ“‘C-È©í©ÔVê7JӃȎmP\5t‡«UlfB>š&Ñß?û,¢oÖÍkEôsîME+ÆV¢SMaô½«q1y@§ùÎÅ–qµ?‰öÚ-µQ_«o(MÚÓK„bºÿÆ%ÒGÕ§-Žþ?¸@d Ú#í·½±wS{‹õP]b˜ ”j³Ò£XãC¥¸ZÝ‹3jŽzq/õÊéE’j_›ÿ l ˜¹ XÓ•²*«oÔÚÍÚ“'Õlâ×ÆZ%Ò¿Ýkï½Ø=YéUÔJÙ)«ïš ¿¿ù†þÀ¯ò¿ËVñÓ£çÇÇRܪúƒ*o—Õ=h~Ôª¨M„PIª[•:,h]Éi×+›" Ïç•òoYÅÆ©baÎ( à=ÌÒƒ5k¬œ¬ƒ½½<:YMuWV\jå/+• µþIÁ„J‚›ShÞ§<äè™^ñ¿Ö¶”§¾SÁǽ{lüŒ+­@‰i±h¥ª§T KȱÓшsÑm¾ ŠóEgÚ• Ù)㙋&!yÛÝÞÙ=±C‘³õÝM'{/ÕÃúý*š<6:³ Ðú@‘“À6^mpêóO^=åÂíùŒú}ãJá§æP 7 ìª0ê,ÏdÒjjy(#Gûø®_á*L8´øŒZ›Èbl–J¦Chúƒ 4©»:[ÈG¿Uwž3~S4KÄÀÌ ­a§Ø)½+ÙÝ&1CGä Åÿ A–Óä»âM `ûÑt}ÿUFðUFð¿.#З›X¡ð/ &ÈjÊç(¶+)˜{¼E+P.½+Ç/(Ÿev‹TŠŽ¾y¥—ŸŒ“0qÊYñlûçÝì3®•g‰’mb2ιþà¢çêô)çÄù9öŸÄ°(ìë$ɪò‰ž?~˜Ç*Ds—uçnã“Û™U!5Ýÿ%‡ú×3ýë™þòL7ØnÞž¿œà?ÙЧIþçßUíå^V3Ê="Ï21RÊžÍ'w¡£Úú¢dT—ÿ/ ¢3 æWµ¯ÿ³j_Ñv’Þ}!r’ÕÒbôäN´C@Ï#V1¢íàñ蜣`Žt¸¹ìK;Aw6Ó7sš]ªÂÌnúÁ¦¸õÎS{±}r¸wøÔÖ¦\`—‘¶Æz&á7Ö=•[«ë/YòÏÏ _Ô¾î6ÁA‹Hr›ÐÂç•]¸÷ CÓ}ÍÆzÌa—±Á&®ÕêǬ”;ä"YAœ›Þôï0¤y`>jÞÉa„qV:ôBzæƒÆÆ~(D·e¢ßüÃÂ]½#Ìê7»)sÕöt u0Ñ¥È åÂ]æ£g5„]‚Žï:ÅcYºÇ°t-^ºÇ®jÉÒÁy—‰½Ø϶í]þyöc.Äê³Çæ=S Tmxv_ŽQk$2Z‚£›Ýõ¬G°"/Šâ¬¨»Ý~|ô²°¼¬jsþ©åe,vâbp5>|&zm ë÷jøãÕ¨½b‹@“¶±7RG`\bgMÔ à¿ EAòÖø¿ äѬL†€²“ÁüG…B6Çö§=ò3ÝàÖ„¡}ah>*¹VuZNfÙŠŽ€1ÆÑ›•åH٣ȷŽã! 'q'݈v@E‹ß^[“xø|Äͪµ`ÜdÓÓOWëÅÙ3à˜£lXaâÍ5‹QÙâÜËÚša ºqA?l~nðý Œ7Að‰› ¼ð¬Ô¬ÏÅÍ"ìO‡ÃÛfQÙ¤ØÎÅB*ä³.z‡ØÎvÐf''¾3"HÌdÎΪ¯@Æüëd9Ý×ôpiö[²ÝýaæÉÙšG®z›Å3÷fDÖ Y`€£,À‚Ãîý:Å3rÐf-kÄÚa 3;™ƒS–3_8ÉH‡‰}OÆfƒº_ÌðüK6É?œø‰³Ý9®ã‘WX]]U/à®~Sùä,f€Ü$OÑ. Žd6ô‹Ç(ñÜ°Jª"ÔŸö0‚6ùek R;‰ã ¶ÿvë=;òAƒ†Å± Cç–®àVèÛ»©®4\šöPòsjâ¹8äG7v‰ßEƒ( Ý F Ça%óÈäxéZ"‚€P…dhW%(`êyõ‡ÅrÆ}Ò3¤èÐG Q:p‡h~‰QÊ ›˜MáK Žž£—âè…Oru5Lµ#¦Ââ9—@‰` °á'Á8Ÿ^Ö¤k?^úÓz0¾4îD/<¤HK& šñîù±[ ŠuboÇÉš¸§&ðp¿[b[?J_0´M¡³Ä!±ì…ãBç„‚Žü³exáKŒ+-Có™ÞZ$°x·ƒ}¡süë±ýõضí;žÒ_寇ò×Cùë¡üßx([GÑ7 Ú·Eä0 ÌËj—ô°È̇ä#¸øSLÝiÆŽÄÈ¥EC2ïIʇOœñ%ÆX‚³‰ˆ|úþÍ è<Áöš¥EEUX|!A\Ðûdûpïñg°ÀŽfœAÆ^éâ­5M™¹§x[€™!ÌÇ-‚G/Ÿ¼tÀvÛ»ÇÛ'Û§G'¬cšssÙa¶`bgn¹¡9såÌÆ(£ôÈ.¨D×]b†ëS8v9ËɉBh™zeJÜbâÉ59O9x8ƒ³¼¦@bg¶©´÷m¢Cj£y¯6.¬áÒ‰Rª_…™Ë=‡„è•Ï¢QÞç#YïȱÑÄu¢ç^:3R| Cþ,t«}z²÷ÉîÕcÓM3)å4u‰¯´)›6éYÊFÀ?„sá.”’*ÌZç9´DÖ<‹ˆ˜¬?„iÉ@ωÌ9÷deøhBð§Ú÷Ö¸¿»’OìùŽ—þJfñ*2c˜É©Èbe1*ÒÇŸ’&&Vz—r7ÂëU>òˆŒRÖÐôx¸à1ÂC5 ®OÑ#×GUXI¸öüû<À4Z\{"­Õ¸˜™Õä˜Ñ÷Âtú0¼ôÞº~Ý&Ò””ìbÉl @åÞ:Î(£N©ìV¡Þd–@Ÿ 7~€¸’‘MZ—¤~‹á»ÎeHaX$ Æ›v. 'Ä4±`À£7æeôŠ–š†ÓŠ"íÈÉ(j_­­Ö0üî#z½XVO0Æ*û^_y½+µýx##::0m]ãGy™¢N?ZûvCÙ âtìËY1 ÿëbˆÒé÷zâȲæ8ãw+¥VïoÔνɪvž±rÒwû;µAÿƒªÝßÐï#ôLÅ%òtº¬Ÿ.üèÁ Ø$Š‹TØÄ8Ç#ÒB)Zò°ܯoHelÔ:RG°éÚîÎõ°ª#bªÚ¹;¸ hªp ]LƒÚ…ë "`_ÁìÀÑ¢*T©h~©p} ®˜»dæìÖ›{B‘™ ’sD"2ëèŸ_}þ£g¯×¥ò],þiÜ€„$uþ—=}*ý`õç2òùtψ_ÒÓÍ­õÏWsÉÿVßAÄí Ù7eµt'{ÉŽœnó|1›ñ¿N`çû6ʘðlæ?§à#ëÚzSÌ.…Ìk=fÄ¢®ÓÓ¸¼ŽK{‹RÔFýÛúZU¹—½P­××Cõ] [p`æ9U: Œá,f¢h=Ãä!˜c¨NÏÉ7™’‚) \¹ƒz郋¦‚~`” jˆŒ+\p'êÜé½ Nxå] Â2*d;ïÙéMܱh1 ³ pQ¡7[ -бEI¬Q”ľqŽTx ¡YÆÝPƒz__6eÜ]*Ø¥NB~£³òªÓ)v:g¥ü{Ý©4àÏzã²LÃAáÜJœs¸Ý³ÎBŸcÐõØ,¼(( ƒ&Ð2w(·¬fR³†Š"ç–ƒ;†¢iáøÀGöœ–†)DÍÃ48è /ÕrÙL ô !vu«gÑ¿RCÿ厵0ò¶ãOÂM  Í"Q‡"f<¥h¬¦/κ²åM­¿Ñs|ŠÝﲈ¾DmCïßøÁµ/W£P+ß+GÕ2¬vï É¥×3A¯Ž¢ýŸ:(ýܪ,¾1Y®CËåJ½à8@ëÇà«­3½!1§Õëb»‹ÊJV÷‹Ä-ÜÜÝA?Ò­À[1§ Ø] ÃÜëf£nµÃnùG’ §¥Ÿp@é@H#Æy `¿˜ù-Dçøö I3¶OšÎ8–Üe¨œÉ?š½ñÔ.#¹í¦cC„þa2ôµ×³’wö÷OŽö)O¾›pÕ§uJíïP¸ÿ úvòa—ÃfqàÃá\´ò-Õ(©yàô[Å(ÿð é­ä£ÇÿØy~ÀbùnÂÑÔŸGV)ë‘J`6­ÜH0ÄÂ;ÏœtZpÄ¿šAôTd/ëBwK„ä1 ¢% o–ÞaÙ®3ðœðCͲ€¶ ‰‡¹Ó1ìx²[„ŸÞ¬"1À»!ýªþ­V1I K™‹¾ {co„±("qB7ñBU¯ ÉfØ…%Ä Þ+ÍA f^­. w*¬¨b¡t6å3!û©¶ïæ¾\a·÷^Zay¯£§FÖvO[x ÜÞdCs4p0<Á­U ÎØuÂÀ'»¸‡"xmíïï¶N»‡Û»m¸e¼õÆ&’fçTm%/ŽƒóÖñ½ðŠh¦M/.´†Ãàóû²ô.]î™°Ú/훦Š÷¡É·ýZšXN!©µ´¬v\8݆(¯mAÒ$Ý:×µNn®&Bam‘–È/T óÙ>Q†¨Z„oCüÛeÌ2UÁRyHÙл}õèÁ]9*8õcE ³µAR¸ Ê ÏþˆJ2Û/vªs)]ø½”U–+‘fï\ˆ ƒMjv‹¥dÒï)àEÙ¼p®×@IE*˜óÌBV¼ñG×V«`\—Kx6,«'{/v7™‡ ¯‚)luº#à&âJ.ò2ƒôÑ›oøÈÅRB¾àéÂeȨȆoðÉ"n¤Ï™A~“#ÇRíÚÎQ;rÇíÐ<âaÀA¼‰' AÕþ¹gS_ªðvx „s“Y䧰º5<ôFƒ3C4<¤Ø]¢æχ¢=®¢†‚ST¤¶„$"D¦–ÝÜà5$Ý\æúÆîk&Y%·ÐõàCmÐJ¼ÓÀä_:Ah­½wýê‚æÀŠNÔ£o×6Ö8ö q6ÛÊÁ@rúäd ÐYmHõË4{y`¸¼EÆ€¡aYÇ¿EÇ%LÛd‘^õZ½ÑP¬•³§cD¸Î ©u^ ßßP5ÀÓkç6Ä´I0vk΃r|Î]˜¸ àäCýñ?‚ðâ¾ü} Z³DŒÍNÌ…–èüD:j»f夡¾3¾ö|4¾rFaп Œ$J(΂“ïH¦l 8h´3 5<#ûÁ³îÎ/ȯQ„«³uá@%f¤w{)†ýò?F×÷7x 6¬NGøÜ@‰a0E2Á¯–Œ%8šð&L ¶Dd“¦ö-IèÒ—pµ‚G¤0rÝÐc§˜l7Îp4p+³0c.õÝÝ—ÇG'§‰Á†·áÛ«ÇfX7Gϯ¾Û3ÆQiеŸðB «ƒ¿‚±…Ñ崙Y«+Ÿè’0çÆ0°ú}°+üŽÑ…ßåå´->të3é=¡5ü} æt1~ÂÐÖ‰0XF<ÉÇ‚no4ÅÌs=ÐóÇW䇀±×úNª½íG”ñ@SXÊ9Ç냌c󴜲ç> cí|o³ä©3ƒ‡LXÜ)g,}]¦7ÇÙÀõ5óµn¡;»1$¹Ó¨LšÌ»€#Øškÿ9,ø†Ñjý°ÐDçû ²îd{¹ÀóñîÞ?ˉHпÅ"güÀ¦&ÂDÙ>M‚ïJ‚ÜÕÝù?C„èËw¯Ã |4‹PüdŠÅöˆ>çÃ-}Ô~ÒXÏÚÔŸiùuWbJ¹#EcÈi¡ïç &¾LÏ9©¶áÊ5öÂÙMßy’gOi{êკMŽ–ÿŸ\µGS=Às%žø·¾1½¦­Ä¿îëÏ9ërç.š#á†Ï`ùúÁ…›Ð÷ô±1ýY„>9Ë)j>Ì™ìù–³—aÔVÖ¸d-v¡¼èa—_ÎØRwL?Èä,D ;Ó#DÔÛEÕ<1byŽB&g,¨Ö™ÑƒïƉb8R5sHpÇ¢78ºQ‘LÜë±»O§7™Ò…“ÎçznŸŒ$5… Cs]]e€3…"w•’Ø VZBÒ¥JŸ,'A Gåë %º´]F×k;(ÞóO ë«Ÿú¯ŠWÿå~êù_æÅpö-h‰ttŸמ¿¬²Œ®Õ"á5ŠsôAˆ^•™ýi†Üñ\2|ÑW@ø{«þ0Ò%–Å9ìMBئí@û+Ò}M—-Ÿ!£ª j# ‘ÃÛm±M·WXší|)ƒ-`Šgæ’v~’W5;–à]’s•Näôyo—6%ùEôK8òÎdv¢Q}JŒ€ù·Nˆ"3…ØcrNð\zé¹âl‘Ê/ÆÔ˜+ £˜ÅI×sw¤›<Øgq"Qa2CI½ -["Äëpäö<¤ÛÂÔ[l†Xy9Ç¢3î<³6×]oç¬Ôj•# ð;`9_Ô;ÓgïgÎŽ{Ñ÷7ÂêEªi)ôÊžj®*¾RK¯³ÚÁôb*J€Ú´0hî|9ýþ¬QnF Ÿ4¥g®ÿ6ÒVC‰þ‡´uʬ©ûÜ i÷Ç‹ì'q7ó9âcü®õ€’Üd’uGzA€‹?3r­ÏÅGçÃæù&*z¹Í¢ÖÐE2•JÌ^±ð¿Éb5tøÊoÿÏ:dÒ/cïð¥ "²d“.Íÿ‘ÞÀD­Â)´ªà ï±ÀpŒÔðVMÆÚ‡0´§WýàÚ%ÔÃhO’ðŒ¨’“­‚q'v.y>G—,ÿ¨PÐ’¤ÔË;1™ÂÏñ¡­oúT>L?ÕÛV¸¤r®EÔY}£ÛÏlOŸ‘ÎIv¹(¿˜ÖPON(~ª˜%‘Ã@ÈYB¢ñ ²,µk,yCX0ÇwY‰Ã\äPGCùwã7ôó"4M‘‡Y[Õya6c&œì7µõ TùDóÍÓš½™¡š¨³ ½~ôͳç2)›èÆÚV1ËVšaSÔ1Ûîõ‚1«rê4ªÓ1¹­ª=ÇWûŽßsÕ©s;ž”ÝL¢I8?‘Žm›×ÔÕðYõáäò?q‡Pï;¤© #|ô¦ã1j5C'ÜÞ$€ì˜LQ|'¡¦yUübw[/vPº_cÉ5K>Ä'f™ô™€ÖVÙ«¡9þÅû™Ö~áCäýE hµ(D÷ÁÀøñ°Êè¤]\»VõB¶$5eŒà`z6l4-Ø背c’2üþæ£G¦ÄtÙúp+[úh·Ê¢<€Ô$¯S–¦SÛôŸX#1‰¿ôÀË»t?æƵO`Ú@œ[´Ç2’D-ô)Äbº¥{'$§,%+ˆàðRQ¤6@ù9rÅë9ñUaääçº>È2{ɾÐlò:d‹Pe¦÷gp“kyj`Uô|qC¾®×å·Ùà³èαŽ”Ò›wˆÚe³Íd‰G1Û‘xnÊt/}F\óƒýõCTA²£`ÖïøV“E¸Á§þA°È«ŒnÐ|*ÍOá´n‹8;èÙ†¢8º²úØ&@ÌKÍùŸþŽ™}²}}ÜùzÙü¿ù¸ó™ŽåÅæE­ΠaÖÙœ]JGÄcì?yWθGtRŽóˆ„Îx)Q*>ÀäqŒ‰ó_)bÅçɺHù"¹™/ŸvË“Xd¸GöI žø(ò}’W)æù/HÕ0Ë‘ nÊ€Œ8ÙxÿŒN×$ÁRÉŒL”ÉlÑzeZÖVìè³N8 c´pó\‘è­×"ª"³¿×!£eÇ^¨á zÃ1£j¯aMˆÜ‚¡ª}žÛL!N›ˆ6â$ÀHQÕÙ ¾yˆd? ãcÛžƒëQñlDçÇ92;/†‹?“3=m„Ü9#ŽªL^&;g¤hTû­L1ÎÑ‚$t.f¿ó|2dý°cæ#MŽ]d¬¼Ï±Åg&Íò ‘Áx2ñø‹½PI}2Å<Ëçç5õ1<¬Œ=ygùÊX÷ÜÙDIÂ-Ú¤+u£ò¼Ñ¾²ò_Yù¯¬üŸ{(vV~6…‰ñó¹EÿÄL}6ç¾8?žêÖ<£ô£¸p~ѦJ:ÀJ¾•ùÔ´üäl‹Hg)´¦È§^ÚÌ' æŠÃXsø‹Ð¤fÐ\³uÛá¦@])íïT"Ø3T™fûï\ \Š=(afטó¤â£]*‰ø5ï\{È™úä3ŠÓáê‚ÖH&A¹>ñ"[» 2a~Pµà½IÄjòH *éò‹ Å`Ù½àð‚h†lÜwbNBÌ/÷fÞ%Ñv‚¾ º¾{—ÅCÉfsª®ØƒÓ|tñ%µY¸¾ nT5ʘ\áãNb;ù}4bê'Ÿ ¤K&íνqfÉT ÆV¿1Å =v÷ciôžK1É€{•2Ìma<õM:?ì¢GñRc֔픻2b[Fþ§c)Ú Îá*A}tzƒôÇëú:eðá—ä±LjtGÞÈÕ®Ž:e ŸõUÕhà'¦âÅã=Ü-¼¯ZŠ·U&gdG¯—,¶±ÉŠ= œž[ÓÛ<²g”Zå‘­FÀúú­ œB¢¡&k[;ô÷Eóoì^NßÁ¦ µë8«u€-ËÛ#T¿;£ß9ÎÔJ™Ò³J‰¯]d öán:¸“+Ÿ_±S~ŸCú.0±»l÷·©Îœ÷ç½÷õÕ~}µÌMIãÖ@C(%í÷ÊèÏÍ Õ5š%¢ß=Ôåù §RXÓ pÆP§_ÊŸŠf±ûtÿèñö~÷èÉ“öîi÷tûñþn·Hnypó^^©ÌìÓ¸O/“j‘àèË©óï6:ÕŠs^A¢á‘s}Ô¶Ftg04olÜÚ¡sfù\uÐþ™¼7ྺrÈŹëúŠZlO:à¾({âñëRsÄ8òpŽ^)È÷µ<…Ãèl…wÛ:Õ>ðàX  Ü?{áUè@Ì¿ßÙÿ’ô&b;þÓJ d*f{±J2N½HK„H2tQcV´ `ïBÙg‰Úªý*¾Õ‚aÆîYTÆŽ&·ØLº÷îzð¡ÌÆ^ÂC<=|Žù‡r!ÓÞa†Þ·£‡ÁÄÝdˆU4ðÙؽFöíx\7 ¯b0uè¨ç-p¹ˆ…ljͦpÒsîFU#e…éˆc~â/WmÔÿ^_¯b·µzaº<%OŽRÜ£M$šÉ”Á˜ «°{áÚQ5Žý>9Èâڌۅ‹¯#”BCh†×CL&¿—)w"ÈÜØqL‡Aß»¸åÀ¥2Áh{o‡LIâ+Eá6´%Ø_èÄÁðÅ42§ŒûAI8›ƒ«D‰uMºì«álx7¢¨_ï;ç÷s¥ËÌÏ)ô€GG3R)ݱþþÞã“í“_º{;jªß¹þÏ»'í½£CU:¿¡­íÝ!œìþ¼Ç Æî[ÕÅ ÄóAžáP~×>ä0á÷•^?Œ±•¾úN•Êåµô±¡þ.Ýš=÷ÆÅ1dSZ=2Ë;ó£öiW˜ÄâMQ‰”NG\cÈÑÀ¶ Ä=UÊ+uáUtŸ3û ˆÑ°à" ˜·`{ p@œØÍ–&”µ/gرNØ,m·1Ó`À»Go7£%(Ày5:Åå|÷šö ;ï(â3hK¡»ôHó–Ó» {ÎÐ`çÚ(ðÐç¹’JgÝV£óAnzuIÑ>ÙˆË!çpâè7^6Ø¡´Ù¥6šÝ.w¨k’~\߈ÊÈ=Rï“Áàn™P¤šUÏ${•‘ý»pªÆÄL]"/3<5ÜwI´ú,Ýhœ¶qOMGºÏs{Uwð1ηégÜ FÁ¬#¯ótÅ =¼á‡Ä„þ†¢ûb?õQ†Æ –gN®}ËÄE®¡¹_läz˜c·‡h˜ÂUvÆL:Þ3¦MÏ•€犖.á;>CH@ Ç0è£ W »@ø/¾»éï’KÒÁÆPïÆ@ Vƒ!A&À'Aqß$dÜŠàV„ž½¹‰²¥Ö¨Š±Ê3€8: R'åÍ9tý|ú¿ÕOôæ÷ÂÒBݶ†ž{ èÈ#ñ*¿§ù 3ãéY4ï8ŒvhNÙâ+‹D…äÒ°ç¬VãäœðeôFê@Õˆ·ÄÛœ .=ˆ—0öäeÜâ¦áWõu0‚£¡úäËϸB˜C“ÝÇ.ÝM/¦­îOá©ÖÎöé60«—,,?w9 ˆ’x²á³¤¶hn£§®¨ûXçU4)ôƒ¨EM‹Ë¥ RŽNª9'Z¹dÖ±œ)8Ö4RcûzµÁ¾ÊÚ>ai1l¨Õ«µÚß_¯6&iu«ŽLLq8¿ù Ù²ÌôSM»ñ©†kí PÊË2˺A•õpBòWÙÒÓJU‰¨ÒÁH0õ¨ ½f¡ ¡&ˆ²h$QC!2¤UÕUࣔï8‰ ìrD½Î® ›ª¶žãi»Kß´ç‰Þ(YlƼ§ä‚®én&§´UXêE…{í¤¹?P–”lô=Rw çâh©(EG]R‘«öNI2 •NùN …øèCmTäU¾;¥ @NI7 l_–ÈÀîáYµ€d€é”î/ tük†}†j]ݳàA £ªgõÂÓH_ÎÞšH"_ ªµÚ9 ¾F4*§X€ö˜D+BX!ÜÔ{WeáVeãé\¦Ë[&¤œšs9ü=MDf0½ “”¹Ü±™¼b4†6ÁZ䄬ß?rºó!~]‰[‰Ù÷‘iÖ‘QpìEûS-DÙvøî$ŠÆ¡Ý‰t»»ûOº]|(E„ÛU5ø$i”ÎIú É–â Hë1IÏHŽžÑ1–E‹'&®ÑïI^+CP$ò¹šˆ§T ûsˆrŽ¶/Ò0§]|ÕÔˆ/˜ …§S¬—1–vã™pY©…ŒoÆÇOvÔF§þm¾81%/›óö‚:YFZˆáåVõÍÏzà÷Kó²Bf¼®´yPúEÆä3 ÁXô©å\ÙÆ—.½¢ó:]Ž>õÀœ{þtâñ#yì±ÈÄÇÛ>˵jY=Ãóƒ•"-51Ie÷E¶C^ß¡Xvæ…†€àcñÌG˜ÁÏ-?ÎÝdÜ®úOl£…eÄ1oµTÏ CîK£éØ­Mð’iÓAir=ä.YT0©o£µslb _ê¡á+¢Ì@”HŽ½ý›âéØ%¶ÔþN÷äùa—žqckœ~àQÔÆô@?bO¹ºcº¢Ü+¥@9_`9ûa„ ‰ä®¨_ÕðabŒ1#ûÍUÕj:”£ 4Øh'Ú¹jlœ ° ä°çáíTTú^Û‹ž¢f56køA¼jê/åõ¶X¢ÝZ,'ÚiŸ•­R©Öb—Ù9“’ ¢¹.6–úá•­ØO»Ë1EŒÎ'>QË¡ÑàÄc™çç;O1¤ò9 ò78.P.»;—“<ßÝLíßÓ‡ëªöŒþ{~°Ù>ÙÍ|Ïl±,rÒdá—c™-½1ÅU¿xÛðØ[ÇþÞc:ýµF¹@AQŠÄ “_œ •îjû‰w@ûÁ^08eky¦ _Õ ï8Å„Úü¡ëçÂ}Ð-!Ëä§c¬ÚŽJ%âšÄŠ>&b£Þcɳ*‰±Ó4CÁhn¨ Ýþ‘Oñ1ª¶2)ó5%õ13 ˜XaÓI z «Ñ0´<¾D‘vÄ]‘t° ìX`#hqÅ€rˆo¢^{Ì(¨wµðENÜSW›\覧8'l‰HÀÄó õR#FN•âP™ú€“âHJ™:ŠþjçãÉ€ƒC Ýk~¨öµ?+ò(«ëSÔ#ž#é¥d.qrA‹[µqÿõ{óU_}/K½DAá˜l`aíÑOäl8Ôƒ’.ÔTEênÑãIJðÖLÙ•ÈmîÌ’ÛYÌ?Îì ~¢ÇZ”éõ4Ï`©µ=Ÿµ¶`%àK{BþOzŒä® Û›²–¥Šô»ÄÑ/-/ÙTiÑ0®«£ŸÑSMäTº4i÷;¬ mÇ„âJ’R™ÆGkÁè¹±±!aS Z²"™=©Ó£=c]‰/’ïÍÚ(‘U›=ÀÒzù’V­!Vy¸¨—÷î5(v˜ÚÓaöð6xEd—ÄÂõI#ý y7ì‘žÇWå†i]ϽKnWãf½0“1Žs§ÙêR‘>{y³œK\ã>Ù(¾¶¾¡q?ëˆÞš,âÒ<+½kµ>¨Úhìù“Î{Òu¡3Ë'ó™¶D•‹¬–(*1ÍSù"¡e oix]:+-_7KzGP¨F¢±‹¾Ûܾ!à˜5ŸÆãsT—ƒ çW³i>UÜ›áRÈË L¡‰&»£“å†<ël@,®¸²Æ·¨HO^.>¨ÜåNh7$O†€¤2êë IA$6 ûÔ]ZT+'£ e2±d˜6›´ðÖפÎ cËqõ爗}N.Å€3Ëÿ4ÎgF0²éd|,%úk@ ÉÈf~«l_>"ʸGñ=‡Ý•è«C>ÉÈI`½ã_’Òy9‡\(¢8S†™7QËøÂ6w éÏ\éÝ&E/‘ˆÀTÍXñ‚‘ý!1\æØ b·˜a]¡C«…ôƒñcÅfØ¢G¤™• P÷WÇ u4#¦µ5O‘ÅŸ—ºÆ‚¹wËsÙ]›‚å›Ç¾)|ج‹z±ƒñägI®çßÞÏ,%ˆwYãù •²D'K[âM8§Â«dm¢òÕ\É:\:vŠ+I´þÍNêeÒÂöG7wÎû•3éK™K[îŸÄÑaJä­H¼×3—‡:qµøjÍšöO™èbŒdÍGY?¤U‹áðÒ‚›W¥wo+ú†Í^P=Þ°KÍÞûÏ12ÓE†ï‘*–‡_@뮂kb¡DßÃ?饲FĪ[)SÏ‚5  ÉçDz¢ }­7:ˆ·y“+‰¿îDYöÝÞ>‘ðÏWˇÿuË>hÑ ÆxEa"kF*©–!ƒ=_¡fjo¢•s”ûç)‘Š=Û,‹¶ÿ¸‚ººƒb:Ê3\NÈÁ‰ŽIVGì çWló;–~‰1…wNž½s!ê¿šíGÚ‹»KT ™P:}ŠYÏÚŬ•xI² ÂR5+*£òÈöª6è•Øbø ¾‘ü£JÃï¦3M-@<¤TtT8ÓI0Da[DœÉ™§LÈzt:¬!ß”¼<O¸RÏ Û ÜI䢗Ž·úò¤Åið ‹4ŽžŸnb„øpª(àˆL‹–uÜtÃq{ßEÔi–Ï`3Õ®a%¯xf«!äF~¦»vQ_¶‹ú)”‚\woÝú… ‡ïµ¢—&¢It"²ðj¦m‡ ªõú}Ì4©)×àÏ„îÙdá­æ7 RzkuNÜIñ€ÆŒ‚л¹U¥•ŠíÙHz`JUù‡4 ¬YÁp˜˜bÅÉÔ‡kЀW˜ðYÑPœ½ÅáÜ¢>›;AIð¿Ã+*]Æ[ñ0@¯.p…ê@¿{ÎHoÂÄò?M ÛšMKŒº}"™¦Ô8È/Jîø·¼9òTT)k†óßJ°È£Doa7‚e$5Ñûâ…k$™(]*wMøÍÖ£,2Áé_x…d²H%{V€Q³Fl-L«vƨèÞsó^…ʨÛEÆ4¦´jﲋ±ëž‡}±9çèÄ„rÛ;j£¾Á»Š±?Êó¤MÇ{÷î'kõÓв­º¡eôŸ5 –qZ{M'èkCŒûé%FÑ}X›F ì¨P¼tÀÖˆéY;_ó¾ô½ €F§èŠ(Vô P`2ðë>±kŠJ,Ó£ÎØ¿û3¾Ò†Ê|îå$›{ùˆwÿeõÜ&U1C0«sbV[ûä‡\› ×ÁE³'çsNÍ‚ÃK2m‹[ë>!Ç%iñì ‘Û2Úü˜‘e/#ΰ­þ•?Ø,½»?fÝçEkÏ|àçJ•ù÷¡¬¿ÓºŸ«{0xM€yÿvû;¿éd×mòLÃù1|; ~Ù:Î30z|eTMs:¿ú¦Îôyb l+¥ ‘/.Þ¼óþà'jã<†x|‚ (_@—vËèYÕÑ  FÄyÚ#»öùâñUP ?¥^rsžS>ŸM­ü8‹‚šã¿h8©9y’ʦè™™ŽàþêvÇ}¢ˆ·b¨÷¡¢£`žÅ|E¡ DÌgœ»Ñ\hlñaY#ÊÌÂã©È\¹[žÒ<$O9}ÒXþÇ«)/¼ûQ“ƒœ-¼Ð‹ƒf>F±àìÆ£®’a>Ê=矪ZD=?ïIÿ¹±j‘áÚ®|>vâì0ñg‹áæY¤À`®·µØ3AQz¶Qÿ¶6 ®Ýñ¨W\”pšpîwZŸEW¢[„… ÛóeöµÞ¬Ü:^×ñ$1sðj­ö·×©zdÿL¼è¬G…ÄöìᣕøEVäc×Äê aOb¢í ÜHâüÇËQSŒÏËÔD¤m¤âjïpïtï°}º}ØÚÍ‘G66î…Nïì¶['{ǧ(—îu‰N1Ó,.]Ÿ,*YTí½Ã§û»êðè°ýlûdwgÁ&ŒIâìÂîð†Ì4j̃öO´Û­ý³7žÐÇ¢—‘Y€ËódŒÐOo8Êbò5g>|†÷æ3ep©ÁÄÁ†\Ñ€észg5ù>ÚœyoQÿcìgöäeÌ[î”EœÌ¦ìÿ'kКTZáïÃÕÊù±$TœS9}~–Å{WmÞé5ù¿z'Ð(þô›âÿO·ŸhÆÿ»*GŸ =GœeØŸmQ„HÔ†¼PE±C¡‹Ï >Z¡…:äl‰VO§ä%ÒÉ\]rkW^¿ïúE«€±Â?Ù5ÏLj™ºfbªÓKñ§}Æ|ÿNò8écÙ¨†?a{ì¦çæ&264&1ŒÒ|­ÜÎßzØèŸC;³I`Ø î×7Œùé—¹If^Ç2¤² i6vÞE&¦Ð7¶Õû$[®éuþNݯ¯U cS*¶¯ÚÜÕ\hgÆæeËtûÄròM*×<òðs§@œže¾ÃçE¬¹«z‹°·?!%96X*sïú=rr­'Óþ;fûM ÐÂ.þ$Û·*^»XC{ ¥3A[ƒ³Â÷œE/C Pè16rÀKºì¬©£ƒa©©©Ç†æE6¦$´ Ÿ¢g¡í‘†ŽÏ;À0ŒÎ¶#à!³U2'èœé·lêê6V§ ÞÙ´\ŒÞ)‚,ûhÒkÌëŸgã>vy†Ð€—^bR#Έ9RÂÞŸ¼ áoCæô‘A{öÖ(,åJ4–•-kÑó)ÚZ´Ì¹560Ü%ØæCè$ÇÝÃԉ áÎÃI¿wï^Uë›;o¯OΪ1dÌuî —Ëk|äÁ—m,ÉÜÏ;Åa 6Il¢ùŸlÏFÚ‡UØè¬ÔW;•Fg}«㬴ÈÁ¦ZÅÐ;ñ…¥¥9ƒ<ˆ˜©»8ÁèÌcWrà™ Bæ맜ä$Y|øš"?Ø @;cJBmcD’;aMÒ6êÔ P…sôñ°¾þƒæ+nü‰¸aÙ óY€ou’›~rœópsT`)ÒÓØ¡>ª6ÕM<ìß„9Ãsq[Šq)‘˜=·’²¸XAÉC%‹1*ˆhŽ‚U+êÄ›Šh$+ùy>ú ƒMVŒñ´Je¨ÐÉ/¤ï©OµFú"Ø”õü>û&Ëo“€;íÒÞkr«ŸS¿<˜¿ò± y|úc&8I¹2ɾéH×DüÝ£úâ?ü°ÀZ}üí!Ý?PËÜ``ËËž¯oQ •t÷oEƒ„ÁtÝÂŽpíŶïeëÖ±=²Ö«~ÿ¿/å_{2o<–O¡v"q侞Ì_Oæ;Þ×Ó[‡±n:™åoç3ìŒÅiôŒ-Ü¿œÞüù{I„fõà8ÁÔú¬«è»½N„O§½™=œ-½™#¿±uZ­ŠI»1½ž¡Çøô ©/ÊgæðfÍŒE›§×[åˆe7×@vÿ–O«™—ú7óTÑþ•-ÍÙrÿÏÆ¢%8ÀOhã³Ú3t©…KG‡<³ƒcZ>¡²¢aƲ²Iq¨÷žãSlJÌÁÕÀ¾|ž¸õ–g2{À-m-'™FsºãL†, Ñ\f†™¼œT|I³†]0š& ÉéséjѸˆ [È¢q bM€Vê¦{hɽñÐïÕÄvò8– dÃLËȨoÜ>“Kî!ÌŒã{áD5ÄáXKBËhahä²%òjÃ.ª,%½öàÖv ëì]^M"sUL%2Üj@$Úºv-„ÑNED&zëNj“ vîÖ"Æ• `]rܱ.'‡Ÿ,,DTŠYÄhY˘Ş?áiâ¿BdÑH£ä6aÊ&øÁóT°¨Yà˜Yo4ýl}pFÂì4™4œ“Ö¼áÐí{,H¶w½Ðñý"€‘±Jؼ€&à±)¦%0 äK¶n+ȩ̀R‰ÚÙ´*£Ð£O¤AdD«ÇQR£_ †º¥ #y- 4´9 ÂÐ;G#¥âÛΑ":1Ó>=Ù;¦w@þTµŸµÓ9R,âmˆZ(f)¬F>½ìá¼Ø|5ô%Õúîù”<Db•s+N}|çqûó£:ߺÙ'–¤?ÊŒ]‚â™@8ùQf(eŽU1m%I0 vün­“‘(¢yΠKë }‚ݧ9ÉÊ0ágïzrŠó½'â||í úõ0uP˜çŽq«öÂy˜0cǹñÚ3xvÕÞ dƒF¹¾ XoKnð«ÄFóÌwI!Ø mDÁa/0Åøï‘4”ô…Wñ7¾Yˆ3XÖOF%Ô ±Yy¨èNnGn©mAË/x°M£^ʳ^,sLn‘ú6Œ óTñ܈ZÆR+*:§ |à=œë¥Ã¢_‰±þB§7¥2&˜r™ò¥wâ´àôŸT¦è+Ò²C>5>wâr9tÿpå ÉœnžœÚég0ö‚‡±~I¤BNÌ<"Q;ØŠµÜ¹]$Ø'äS^ý2g`!G<’‡QStù'âïÅ'Çw‡é ÅT/1Ã;]í‡An_6«€¼>‚q˜ÑúßÖoªÆM–º&š¡å] µ3P²%ð™Ø¼yº±‡G4·*0Ž’‡|‰@·?W-ÿEÕË:Ÿ4íè·¹H``žÜ·ï­gõrUsVÄr`䉥Ƞ4½!•â-ßùU}gÔrb^•Gc ­ós¿¾VÏ‘aÏ-Q_Ûßô˜ èóŽÏ—ò2|w»p˜¶ÐòCmP`“ÐlB xI8Ø;<:ÁrMõ÷¿UÊìP‘7ÍxÒ2L‡wQÞRP£ŸÝ¸Y:ýX!ÃO¬R›‘W¬¬ËºÃZJ¾è0²¯Àä£ÖÿjeÎŽ|F0C(@bÌc/“ŸO¹,³Ö…ñ?XWÇ:Ht ÚF§ÅuÓøLЊŒ{¾ -çämcÁ x1ÕƤë^ ®DüHžru¹"Ñ„Ô7? ±g…ž¡U¿ÃAÛÙÂs £º°*Šä“J :I¹ÅsÆøf]qÛ9 :†VËìT3Àô®ôÉ¢@³)X’>żĽ0=c¸÷ÁŒ*>q}¢éYq„éé}/Â0`ö ¼ÔÐ4š›ŸŒ_õƒ¬%¸óˆÄ9F”öN§ŒãdQ¸î‚íÇ'³ƒº'‘Ÿ™xç–U‹ivÔ©näãÆ¡è…âô·ÌrlDlq9¤ ‰\êCB­Z×XµZµuwH=RZkž‰Ðÿe‰x B/m$ýµ¾Ú謼úµñzµSéDKí¬ÿ•“l‰»Ôñ0êb#{8[èê ¿ˆîxLaºÂìvµŸÌª•â–úˆZäâÆ›¨uÖèÔL„ ’;­d+Ìã30Å>Ç©Á°ï=ÈgW(þžä°¨ïØáwÛ6—]Æ‘¡÷.ü»ÙÏ1jà Ï(lÝÎy,Î †˜ª&Xâ—ëëÑT{çœÅ5Gà3Yó¬bµsß/kcI+h¾HÔ)!ê8ÀÝà!ÊêjaºÇ@©¶×É#J^Ñ¿ÙÅɆàøˆJUøÝÏ“iÈÚeg ºj"ЬÑùÌLL’)ø8Ë‘T C¡T?¸3q”Rp~ádìãDf¹PÝ,Îwá“·´ZÉç±5†R¨#a“m4=~¬–ˤ°ñëÝaÜ^6ÊgºœFåX¹Wõ×Zã²|Vzg¶Îl’LÝ:ËýÝÏÎðŠ…,µȺÑ}‡Œóo‹Zí”úvŠÈ£Vï `³WÎ Ö8ƒÿÏ„…øY<¾pŸ2Ðkz%xCîF:Í(Ÿë^ââ’w' ¼Ü¶.ªG#KÜžal0ðì¡á D>gL4-4ÔÞ` ³è<Ðc3®Œv„ÚÙdîSV1—´°Z+k9rf %©Fnö«áa6‹±‡s+# øÕPËâY|„–O¶¬ÎGâÑõ<®Ï;uä Îpt’ ´¥Fô0•:/Ë/<ÿþÒF¸0×#/ò}dIÿųD]‡%Š¤êªR_-:U‰0Ö›ãú+÷(ïßH4#~ $Ò¥ âG;ßú<®·>ÒñÖ¢¬F Ä+W]œrÁ½ªnû䂳O»ã‚™%G\™‰½ø$hw®»ëóÑ=‹s=i9#?ºÇÑvç—4g„8s¬•À\Â7«• λÀÈ “¦ Ý0çüYÃäaß3Rõ0œ`:9Kni¤V2åÍIo—Ó]Ü\3öÏÊЦ/«YÛѤ&w®!XQW?µŸQ¢ÔÌžEJ%6ÉœÇ(g²®³æ#]ü\˜U>©5‚$Nb‡$}G,¼ô§sn7ó©çç½òÈV©ÛÜÝ®=ó&wŽpVf»ËZVO1Š”£Åg$M G¯‹ÎÇ¥ç:ª_/…q²ÑªfÈn Î%^8&b·¤=²Õgž}-uú‘’÷âËŸ©ö3˜(sÍ›‰kÐó{ôðÉhì=ÍõéœYAsdºDŽA„ËêÙqíùKZ…j•UWUw28¥§>:ÁM ÆPÞ5ÄÛÙÇqYÒ×Þäc¶±„EdÊpƒ[.L¾ÃjÝi|iÄb¤=ƒòñLö[k2ŽÑgŠÔ1ˆý”™›r}ø@Lµú¤P"~Ê $ÇÊ¥m¥öwÂjíþÆûÕ"üW+YmbÚйôzÍûµso¢M:j>Wôã5áWT÷™c]~˜º`ÕGìšð+ª ?LÅGìvçtÒGK³㽫ä;Á"§Réúa±=>[Ö#2ª’?c™(c®gä¢l.tpgmUó(²Õ}<ÆP+b€S=ªrÜÕ‹‹zŽ¸œ~”»Ó¤`ÉXÖ˜ÉʉþáÈ÷¹+íîî?±šù“²¨\±æßI´8ũáhà‘ÿWuá‘R¬­9¡\»zhsKoZT±ÆHãˆiÈ9{þß¿dò‰˜c,ðÃZ–²¢*YA=>èú1Eª8/Q÷ŒØKl²öžÜ¿²Èq®Ìl¥š阀ˆ¿¯ÈÄêà 7*{Eñ‹RõµwæZŸ'4@0>Y«Mô³­D¡ zt§5®Â*¢ë\éOpX7Q(åX .:Üçc–ʃN¤¼%×j2¢8\m=”28rÖa¯y4Æ#>™•6x> .$mÀùÏ`£ÊQ-Z }\[¾?…«úD¯„ŸºÝ3î3wذøŸ‡ä̺t¥»Bî+Ñô™‡Ç?”íHÞîþl˜3>| .º •Þ?…vñíbæµÃrµø9Õƒît|òq ¶ÅOÜD¸#Å_„‘£Áoÿw<¿ëF ±Àí<¿x@2b€Ùkó+ê~v‚ò±äd†þˆ3ÂALÙ°¤D2±'s€¹c²o'ãm¸|ÔnØ¢î<î:îzŸpê•DuHýè Üg¿ºÝy›Ïæù­'Ø^/Œé@6zÀ—CHÏ{¢U h“AÌ»”òú¡Ùÿ˜S¡ŒéÿÜ–ï6ñ4(ˇÐÿÔ•á ŸË°wûÄ«èÝ^„8qéMô5C|sï&&½±<&džd$]ÅmäNz©²1wr#%ÄT…Åtô*è,Á¡ô3¸xÕl+¸tc¶›Ìú’¶»'.ëk_¹xÈ8ŠÎDÎ{z XïzFWÍØ]$åM32Aš3ûÉiÊžÿ¬RŸj†¸ ¹aÂyÜ‚S5·vjžÒ#…û.šÎ¡Þ ,-|”8"5ùjÆc—ß·|ªH¢6 ñÕ“v3Ë"©ÀB CtcûvÙr¼×ª2.ÔÆ Jºëšpv—©# ‘ÚRr¨PûöóÁö{G‡í”äî‘ÅÚñGË6¥ &›Ú6Ja#%ìô\CØáVï>ºG‹§جݑ*ò‡ožÝqk$j§¶Æ²:@c!†›s=ª2PÛ³Œbã[¤ˆ³–ÕnbKƒüî‚‹Af/†)’±N´yuS û ~Áº¡7KAqGûlD» ;ƒ4k¿{ ®,ÓÖ .2šfóæͲԟÑ/à)àêÆ®2û|^îи§;:E¾Ây‹ŽL‚q—§ YÄ£^•bœ€Šym(Ìôl2 t)?-Úº»/w[Ýã“]X1Õ::8ÞÛß=!ÖCÙ|H‘†`9c“áö(]$¢rc÷(–m,_é]ô·:3Sc¬.#¢Ä²·8ó«V _¶ …̇}c–‘€R${k§ßïr¦²d*™÷[8;~r¼Í}hsŸYÎYmÆüµÌ!Yl(Åá4gR'»`®ØîN»t1õ{]]ü^èN> ÂßhÅcͬôh©_I°H¼|è>ì{ `õ´€ ¿û®»ÝBGªUd÷.Зpýªo$+FYêû*‘NŽÁFûÐ$|HÞá0ázŒŠ½Ýz¾ô¦Á4ä=†¾#=Ÿñê»7ô&â{Õw{ a4¡¸TO"‡ÒUÑâY_÷2ë]b è¡\ô[î‘[núczb–¡€Ýn“buå:}>j¤^¶ÎôœO:æ‘®©.¦è©ð½FíàI€·z,Uòïœ87¯7‘—U ‰Q'V*[°ƒÁ5ÛÌÃZµFøŽ]Qâ/²kmŸî +z8fNUö;J¬ªäÿ#D—Úè„tÑ iª™—]žœÂ²‡Ëg€–Mh×`a™ÐÍÊ2+°U,À!¿R*6£Grf ßtŠ¾Ö-îo!fÒ"g6ñu<Ʋjº_½Ñ`âÿ hÃ8°U,¼ÓíB+üØÎÓk¼‘úqlCj3ÄÀŽÝɪS£{„SG¼+à¢è±ªNPtx9%Ã娧ÚÔšôF£àWj]±S§âø¸ùœ¡%G—¤o„@ü²ò„Ô\l•É ©'ÐSù…ã ‹€Fµiã>ª5D0ˆ×qÝ‘Mï˽=Xå.šˆW=€FZmßGáÕ!;&|Ÿ÷œÐ,ƒF64¤Æ`v ì%3»Q6ÌL<ØÐü¡‰ZY½¨À$©¦™²-½–KþÁà¬hBįT`õe-/ð´Œà}‡ÿKÞÚÔZ5ª¹#hº“¼™˜4&o.>2'_AkÍœ¢SÄÒxìwŠÅ J*茊ڈH§;^‡ƒGð4l–г)=_ÖÞªò¯jõ^YÙ…•] Ýgxš‚ërÒœ.—~ÀÀ©¦EÓk´·ŒÒ+hÝþÍ7…%˜HœŒo›åÈg `ÝkÚ¤d`WÄà¡úáõ/ãÚîÞ£™Hh$s!§‘R“÷éƒÌg˜ö‘Î!ƒÃà+J†¢)°qÅÖUn6¹Ô\BÛ¦Æ{Õ(«€E Y-û¬m YÇ™¯#bäôl§Z\À/UFw²¯Z9#>-«DâŽç< ˜ÙžŽ2¹Eä€j¨‹¸0ijÌg4ù}µÿÙxM„J>‘èÅ.@(^m7Køß}©gg~ >æôË2%f–$~|Ʋ¾žš_Oͯ§fŠ\~у3ÕØ;;™FgÓî…Ödwg­YeSÇk²Ðb'l†P§XÃÓóG¯³Í9o¹Ø‚Ò.ü¿,Ëá~œ$G¦ò³Éq¤/‘‡þ8ŽtàT‚cÍæÿ!ùM´¦ÿëÒiŽìF2çHn¸Ô§Êm4”¯üçWþó+ÿis_^f=øý $6)–,[^Ë–Ö ŸÅI ˆ;³‹Zê² Û¨‹/*£ùL ä‚š¯ò™?Ë?$­Œ¯gã׳ñëÙ'“€`æ‹ŸŸQ*³Àñ™*˜#¹Ãš)ŠÁò#ÏÖðí É ‹¯Xò~²¿ýNÎ’þ,ÊÚ*ÓEž1~Hp=¿K&_7b¢˜DÕvžmÿ¼ÛÝÙÒ:ì>+¢&÷wtaùâi×é¼N±£sU)/œG'•Ž9÷1UR ¦yƒÂf?ÚÖÐ1[ Õô„NÐNi![ÅõgqQ)£¨Oe –lÛUòî×e ‚d„-µYȲɢ*…ÈË,Ê@ŒÈšk[üʇ½`ì6×u úA´ †«I© AÎÆïÓdë»ïX¦vß>üvf˜¼ŸLÇ.ð*g0vþ­¡…PˆYê`L~à—'‡ Û3 jý.âUê¬Y0÷&6 íܺ*Ì“ºÈY¿#ØkÛeÏ®Ÿ|KÀ¨ºe2sS6û¸Ãépx»UÎàÒÍõn‘“O#óð“¼/ù¨e]/ÙOkSFRÞyFRpþ[ØÌxi*h†nù Sêz I^»½^÷z`^¤x_Ðí5lÖÞš6пj2ÏNÆ€D2pê£éǨÏõ¨ƒYC!MAƒºd/‡TÔB³”•*µ2+D|Ùü5¶IÏFçûÎ7ëª#10:EÚð§qR(#>җÙB¢¥üÝy­¦í5«d>ƒ¼fæ.@)w1 ¦Á°äþ:Gó!3(_‚íÈêð,Æ#¯ü£‹ÐßEÓj07>Ù©0ÚG†.LH_õ¤g"5(4Õ…'Â5J?΃`{Í$(TÁDôÃðW° ϧ7™`^{é6˜¢îÑ%\™'åÍ'ˆ·¦zxÕ餃2c8 zoœKöDKµ(¸×¥;1&!àDØ.ÚXB}`EÇÓÇ ¼t}—†f¨6¡v¡ð!Ó#W³›š´/ãiÉ`É%yÅì͹Š<Àc?Ã9ìÀ¼½q©MŠ”IÑÄ‹]êÂÉ×jc—η2»ã©/q´°ClµÜƒ³yâšà^Ƶroìhœdg­`:Ì õÂŒ(æƒ2s¨¸jŒá'óá´Sä«ŠZ/ªuµ¡ÖÊ1G t)zg%l¦îâÒ—(‹ƒ£×ê_Ó`ÂŽƒ)䚸ÊZ!ïó2ÁkòÐ8¨TäôàÖM†¶dY 0ê9Ru@Ò˜1ôPÊpæv«Û~þ¸} <н©‹±/ §¡Œ(ÎÚ…™HãÙ“f9‚"%QN/)\11û8ñXŽBßiüÁ ß–Žþ°°••(¶Oà]NüýµØm«ÃÕ~¶»¿/¥…Г&Ò#ýMTûz F"°UI .LIW”¹øwÞsºš\!Ï× ×Ê»¾ €MÖT$JXz@ÚÛ»í±] ‰eœØ)d' i U×QNÒY³ÓYS?–¬ÀèÃÛ!§å€ËœbžÔsú˺†´ Ùe>pt) '–Õ+uσA¬ºð=¢:ƒàA?óüÂUN¤täL2ÑDô7þ—ƒàÜH›Ý‘7rI“ ÛC 'I Œ¾]Çh…KÄ–ÄB”dŽ%°I¤j^ü‰ñ¤¦aù€iŒ~ÝA q‚Þ\BDëEÒÞôï-¸Ì"±J‰·®½÷h ߧQöý ¤}ŸÀÐR½ÏC\]+ /Þ«DãYˆÈ@ÛŒþ&ò£mèÖŒ¾Úxö>1ßÏXNÝdYíS É´·Ï?k1Â%±ë¡æÌ —‹Àãà‚5;N±sÖ)Áí_vJ˜ <,ô²ô•ãj®BÝ"†Ù¥ºáô<œ ¿ËyP,;£ïœÛ®>t.´­êw²dd·ì_ª™­ˆ nánAžx¾û®ÛÝ=¢¨’±Sxù/ªDç :ý?+ IÙØ:ë þõ×újã¯-Ÿ©š:oQG™º÷oà¶F~×É…„ü Ýñ[äËê©0R@§¦“`hÞîÎoUéøäèéÉöZA‡¥ãíÖOÛOwUéçÝ“öÞÑaétï`·}º}p\Á°¾G§À‚¶®ÿNÝ¡Ów9²:úÜÀ³_‡oNnƒ7 ÆoqoÈœ¶‚Ñí˜TžWZµþ÷¿?ªm¬­­©'c×UíàbrÞ6ž@:f>÷üŽâjaˆ îøÓ` “ <ÔäßÞ嘞ï.!éÇKZw¼úЃ‹@ú}•Z(,ëxÀú»Œ †Ò౨øz9v ëëâ p ‰Ã ï]Ü¢‹–‰Bª>–h¨ã¡æTÈ% Oõ@2{=µKàír eL ¯`Î VÈò–ö‰¯CÕoè&M+0»Äk#¬V!íõ,´©YÏy4À¾~)C;Ìáy³Žps®ª $@y±wúìèù©Ú>üE½Ø>váô—-bøñ-|á $ŽÜW0¦±ãO€ËÆ·›ƒÝ“Ö3¨±ýxoïôôïÿdïôp·ÝVOŽ€ÝRÇÛ'§{­çûÀ{??9>jï¢×“5hœšÛ Z˜À>ð£Þ ä1ÿË)·’õóîq…-€\ãíü5Ãèƒ@»t™XS¸…2àjá"1ö&²« µ“(\Uÿ®N]ôB£ŽNÏ…-Ýž"€û÷תê1l,z°­Ö6Ö××kë÷×þVUÏÛÛ< ío{@“=”DÜ`eD i<Uì-` €°;Ú´ˆš 25ÐHB˜ |>´[XVú šYl¹Ñ\Â;rh –ªÒV‹‚~hÖ[FОB•Ø÷KÙFÔ(Öʪ²5D8áÅr&º{u¤˜m àŒ‰Wî`„qP´qF¯DÒŸ¡€&./]<žˆã_Y¯È^Á0tpÕ¨ÁA"ß, ¥¿¾l4Š¹E³¬7á]<+÷^V¹4 A!ÑgŒ·Zà Ü0O·t/žÀq†›æ¾µCAðÞîN¢,5ï8ÏH2_Q¦Ôjnn Ë! [ôœ±¬–——Õãݧ{‡ø8qzt´¯ZG‡OöžbÞ¾\|0J³QÀË¿ÂêlÿG¢÷ï1 ÷ç!ö¸%ÇÏú¿Î6iªiÄ0,\’xþÛ€½<Œ°óè<#A 9Ù^ˆ(ÖSn‚9ás $G®m¬É ˜ .rDÀ ÒE³Ai±9"_t¢Î騑ëÈG6hD»!Ù&–y,ÎF½ §Qʈ±¡Q’Öß êŠø@¥š¥è›’9kmËu7¶¹â:Æ€Áç0å–T"OÑBâ‡n[8Ôq½°}B™Û'}S–ßüCW€Û3òšK@½ÐjQÑV í…ñ§“‰qí¥“~(päÃÌðS®tJ·{Š&®ã¸3Xk´¿C­ìïØËqÍ¡åéæƒkƒ§??Ñ@¸âsø iSÛ;ø Ü°‡‘àýaD€¨ìá—äûß&I˜& íÓ“½ãf‰þ`ÑçÒ_t³‡úQ 'ÚW‰[è¹{‰ô·H¹ÓË«¾Ö òîqMûó(ê…’èy+ì΢bP¬Ð˜à Ø,Fï)4WG€½²»2j:X&‡kòUÛ5ÑSóÅš¬é5ùƒjn÷û"…œ“ÍG/1qâ§ìñüÂÔj¡Zÿ TàÝfIa;Hc ôÐÃ'VÇwƒi=Ó•ZÎÖZ Oæ ¶ô€_•¬Ü>ö2³_ŒV:wUÊ‚€"‡8LAS|¾ÅËJï ã oÁ~yqä-ôC!’Y¬è'ÒÐ;*9)œiåÙF²”HH€r óP ™8:„eÉþeS:­ƒF!¥êýtÏ)Íxh£ŒÚ°o…|„9H…!­ +Wktt£ž«}@ø`c0mß1ÞG&:ˆ¤’Ho¸‰â¢XZÏdb&H²„ ..Œ®qY/$乌$ñ´L˜$62v1popçóèðôÍ󉜓™Ù„yDÑÕx#G»†‚ é–s¤ÊLä²óf·ËÂë ¯#*’)Ѧ62s„«%J$ÈN/V·#·^ˆE8-Ù¿ t JH7MÊèHâ=GD5Š\ʸ%p³|ÿÐÄ™Dèp5}â!Cûõä› ÐÒÀ‡ —¹·àµ^Ø áZœD%(oÁÌiãù}£3r¸}°KÝL†k•Î&’õ¹‹rÝ~ìô•²tì{î7­¾é=Em-ØÁ\I•-ˆÍH‹UdÂï…D\XU4¾»Nn†i¬ø@òg!)¸¥¼db!KRkJ&3 ÙÜXùx‰Š¬~ËÑûÇŒ&WÂœD,×nÍâ|ÒÍ¢>ûvVßéóý|n'l±qvGì‹.gªÝÔ¢Å,Cþ+d¥26µ¨9 š³˜zDtã ut/°_Ìé„B,Ǥ"·Àï<È{â»Qpê»@°QÜk§¶p¤e¼±A@F†5ˆØ­;óé©Ù´n pŒÝ ¨‰xEægìÐ ”ŽùËÔǼ^Éý†fôÜå Si×9Ke#Ö,ð4=º¦Û Ó4h*5yù̓8w¾Jhªj‰ÿæ:‚“f^JdÆÌo’ u`aσ·.‰CqKÀ „7KÂ.ÆÎ%¹áà’—,Ia=¯‚kß4ƒ™v3ø›è6>~Ó¡@O¸ãáʉH|RÚsiX!½ØCÞع6ë‚…Zr6ÒïˆÔZ:™;~ˆ¶é–i– i¸ pvýNóWÈ~–ÌhEg-Ò÷_é×Ë‘W¾9Oœ9-ÆÊ´\Nܪß* ¬ðÉËèÀ 2 IÚ´ã“Ζ€x{*Ò“¦øí ±†•6I,ïŒû5>Ëu\ŒZúÁj ¶9+:¬uÓÕ¯À• Æó9ª€knšõB"Äm3ó6!r1bxiȆr6°0CDwé´ˆœX# Ò°­¥ÓêÜóÉ9ütÌWY¹È éˆf?ôvl‘©o„cäèßêSò 077KôdGmLóKü2QÛH—«o¼ú¤›6ô™M›\–9BõiÜÛU;{' (K\e$¦ÆÌdˆåxY+Œµä°Ï©Õ/&£ÖqB^«kûžFþ:0ôüiØÝ·z )y]h?Þ…éÝŸ·OšØÐÜ^ÈËÅŒ^$¶zv:öèg£Ë×)8ÙYýÉÒé£àÅHõvz(@a)»„vÇ F@LÙDL+$dõ™á—gÄH.Úت›¦=B°£·!ç¥vÄ:*ÍõnímLwjäÊ´žp)™b]kD‚Y¨m¸¸ì£§ÂÀÜZN&6s2õïØDZ"ÖH:›’w#‡>Šè©²Ž{$žÓZ‘ø.¡]É%X°DɤbY`ñeÈrŽÝMaëõ‘1øݸ® *@g$GƈiF&#Õ†Jغ/¶<ÂNÏ‚*š/4 àÜbÎE+KcFÚMgÐ\if9MÙWHÌQ3Ú‰½G,û1¦‚$íÄÒRMÐ&‘X"çÑØê…„>K¤é·±Áù«2ÑÜbU9‰AgÞrzqA‚ÁaðƵ_FKïbå}ô/ö) ÜÆ,+´å»Ãà-E’%¦1:â é‚P¤Öàf9\ïqQXzT‡F{f¥C5½Ø;¼¿ÑÝßÝ>ìnîtàs}ø5÷‡ŒÇ•ÄšWÇØ”/S2›Nw»­_žBM d̦u*À“tc&UÈ(¥íu|n(i ¼¬,kàwVqõ7ÙöñÞîáéÉ/jg08 £ßg{‡íÓíÃÖ®ºÚƒó­ªv^ìÌß?þùh¢f•ÛG‹âìf?ätÍž3]Œr þÓÅõ¢ÉÞÙmíoŸìê:;ûû+¦£Ü²LÔën÷ Š`׿çvÏ¿·¨±ñ"ð1TÅyTY-©&ÃØ¢â7òôäùî–̈….—î¾]¼!móèÐÑîϨùiàôÞàŽ‚6c?!Œ¶4}éúY{ 2UZ·íï‹é¶á¤/ÒÈÁ§páÅìbŸ®Åö¹ÔØ>‹ÛŠlŸªÉ† P&óIªlŸ¦Ë†fÌp¶2ÛgÑfûDu¶ÏªÏÆŽs3Ž¥%ØJ8 ¤au±R‘3Ëœ1éÛ%ñÑl¥RUÀ”»oðŸÒ/zþd`×;êžìîÿR…¯Ç{‡Ûp$ª°j³]RúÓ‘ç}o*{!ÓæÃÕ †S|Kr[‘pj6¬"{ï¹7i’OJ Ë:¥ øµøÁ"OS?ô.}ÂT8¹ÝKw²þH­\ô«ø^ S¥ ]„à‹OËþÉ%¶ m7àØOñ«×\œæÖZUíÝÝŸºíÝÓŠ&ú± œWÕF%vœ¿Z{­î©•óW믿ûîÛŠœ sFq#kñA,2†7†³ÇÀßð½þH~܇âàF“±Yö6)yãX=‡CVò?©SÜ ötâŒ/{U7½µ§SõsÛXâÕë¨k\ŽY]Ìô•ˆ ŒP|“ê‰Ê~ÕÇŸaUùÓaÎT<»áF‘ A.•ã·NÕ]xÿ†ˆ?»WÑÆæƒòͼ$á( `³P.Uˆ‡9@Ú ©U`uœøÐñLF( ã%Ù2óUlcÁ™°44E믣<( ÉDœ"šæ¼×Ûºb0™|· Ôwj×bIVx=°+i€VO€Ú¬xè˜Jç½ò^m¿w !t+ŸÊ2j€&S;²ÊJß, œŽ®yêžÕÙ$ òš] ªjíæ~ÏŒ>Â.¯{O=€ÿo¬éÒ¥áZ î©¿%²¦Ø®ŠSÜÇB¦Æsáã¼™1Yx;§ÒúÚš©eÜÔAjNu²çeÃTå õVrgPÝÓ‹¨ƒ®€TbóÀM˜µ`Ä£@ï¢þäÃH6–hC…„Tß1YŠoVîÿ:ùt ‘@ÖÔ*ÓˆDÙ·ø¾“žV úÍó’¬–½VµGYÕ.xйµ6xý–˜±3gÌñ&\€)Ÿ†´AyLß5mlûæê=îù÷VíÇwz=ÍÊ\ðÌ­X@j ƒ[Ò;ÁÊ¿ÃÕïerïñlQ3KqdæÎÔf7rc}C¿>|°ñ).âjŒ¯VPq1è­Xíü–œf‡›:Áõ®Ë0YÏæò^Ö©Y¡;ž¼î|bKé{¢ýªO˜¬r÷mòíZ)î¾<>:9mwüb%s}GGUjûdŸl±fá÷=Ó¡{Þ*wsÉ´Ü™ü5T?ª¿ÂEb š¯ªXªZ2nú­VÂÜæÍU8vÏ–µ-ëà¡Û·ZP–¦Caœ;á^ãwþñôøý°ñÝýãE €´¬5ôn µuÒØB—õý'5rm€~þP9«MnvHKyDZh"à[†›îÍoÁh3‘Çí™´ÃEs2¼ðºÜ8©o"Ääž„0%,æ% 7*o–×W·$kFïié,B Ð%ö•þUŽ¬úrD<|WRVûÚ´¿‚:|›Èµ,µù§!@Hz£ì:•j¥½+˜*uïÆ”DijÊ;þ)ŠøºÝg/ F/Ÿ_²P‹ŸAÝ~A¤ÝÝÝã6«C;Ó|g^ 3þìC±# µÑÏö_. P²¡;EJQùÔ7Ñ^.ÅÍ(÷È2ßú:§"òÄ•köÜ;ÒV]í¿€´.BE¥•£Qj­³ gFÁÿj*šá©×xÉŠJËë!OD9äÚ[ÁªëŒýÈ\²§èsÁr´Oq‘dù{,«ûV·Å«ûØÕê«}8}?bÒïýsïh›d|Ö] øSF ÊÓÉt,J…Æ°œ”<Èsäõ"ú Fr¡| |=žË íwßuºÛíÇG/QFV›óO±(í„$‰|ØMõÌñÃúãÀ½þx5ªC/¤Ø"ФmìME½—~!_PD¾ 5ø¯ACÑ„•$¶ÿ³)‹?ˇÞLóÿAQ–Í=ΩðŠoÉ(1™}òÓ:2m>=:m=Û&øý€DÖ|8þ-ù{¥s,µf±®ôD³¶÷víÆfJZÿçSŠ¾T„ÒŘWò–„^¨]ªÚ• û蟥¶ƒÂVøÓÅ¿ÝöÑó“Ö.üôîûÊùAmà^âU«v´¡uo[/_~&X–wiÓ½OëÐkGkµdÚ¸Õ¯!µ­±ç©Z8%£¥@§çœÈBOP—Þ[t?lm2ò«Ã»\0sca1´X,–ÒŠØÁ­ÜR­y,ŠõÎJŸÑ5ŽÜ…¥éWT:ê»;Â}í·é€x†íVw÷åîîËS¸™ã‰K[5·È@Ë›@ò¶OŠvèʘ<þ¡vjo2%ߎ~ ªš·«øqá–Ç.Çgè#'XFmßÅÑ{ ¶i¸'ȲŸ«ÈíǾ˜ãƒMÉ…˜hÍc"ng£þp ß%Âh@x±mU‡‰gÇàüÖÑ *6<îòª Í·Ä»¤tîN®]×WgØp™€]xeÜÜÞ„ \ã“mÕr¶Y†jƒà=n2ê.n¢ `nBŠp!ž²$àŒwC.¼eúf ßï -Cn¢nÂ"º,®:Þ(þG虂„_”gHö²ŽI¤¡ §!9: gØC¥ÄäwIlŠ%úŠOîµ#è¬hwÀiŽ_Q‚¸XŠ~(¨¯#NLéy2UqBhUNË9“à™sÀÉ&^¾åaÔ™OgšÂÁ/ÑÈuÇ –(OÄ}Ľ‘(N+_¶÷öwOÕºÑ-Rçð¨ÛÞ{z¸½ß¾s=Øƭ移ÝãÝ“ƒ½6z`½ˆíýýîÞáéîÉÞÑI÷øˆ>í^,ãÛ?owŸìAÿ÷þ¹}zç.Àõaó®iug÷ñó§Os·*#‘}~øbïp‡¢TeœÄÌ„ÕðÀ©Ægqß “éÙgqŠ‰Ëf¿©ŸÇi¶¯pw¶pî-±Sl³F|„x4AtVá©Ìƒ"m¢:ÏÞÀCKŽúœÛú'Âշ–ô§ÝÝãîãíÖOÝãÓØ6]°þÎã§Ýg;'í. Uª¶¶n‹BÐyΣµÕ0Ó”›--ÐÄÁöO»Üŧ'ÛÇϬV©ÝƤ-Fúç@F¿õ1ÿ´ˆ]Ñ-%zº8×µÁÔG³´¹×ÍÌZó¯œhÜËe»Âç¸n’Ç2OÖAäš%üocËé*Uâs¾,L??dŸÜÕ{E'‚ÀOtºE~Íد¯èÝD?€Íש£sr„WÜd¬º/ü5Eæ$»ª¡3é]‰->©¤Q“ä ûƒx¥ý³ ÿKˆC«ŸÌî8£Ñà–ûÉ ìY©la`ÐB4žŒJÁÖû0W%"ŠBi‚P.úò77„æíËÞWýˆJüÙGb‹™rèæ—S“ÈkðNê-¶MÍ}úá“ v6!_X8˜ÕåY‚Á¼ò’Á¬‚±û)ßaÝ)ˆøãç{û§{‡t@ûØWÊb7õ¹…É 0l-â”È9!9ˆg§©âèNûÑÈi=—Qû(xÈ ™ pÊŠ—ûí£ˆ;z¯¼‡‰ßâ¿¡x÷³òS‹Ï9œ@É žµ‹`èMj°‘ÜÚ( yá™[ÎÙç`øÌd{÷<ä Eòê§N^ ºˆ/(ôßV!S|*w"´’FgE5¶9ˆ_Œ’™3oGºp— /zEJTӒ˹ð?¤åO³nl‰â‹ÌõÉîÎÞ zÑÀ;ëQ i’@‡Fhó‹<Õ®îÉn0z ý,ŸœìîF`Ñ@>†'Ÿò㦀'&sqì²WCQð˜MºbÏš‰_—½nTtQìŠUÜš:±;8¶ÛíÝ”µ‰B\ù))«7 =oïâq SÞE¿ÍxÒ“íýön³¼\Ö E²8feÔà.¨™ÿHÅÃd§Ì°) ÉQJ©±ôæ‡hô™„b! ¦vkü"‰´ÞºðÑMÒžã¸g'rC<écí„Yòå`B–%D¥¥p Qñ„EÆþ·ÚpC|/iá¿ Âò>¥ÓûC•^ULZ97€éœX£¢ÙÿÞ„rNÄ#ÙÈÐ~‘(ØpÛÆ(:€z¶ gƒÏ9xοqÝQnF{ Õ}ßl&ìw°÷7TÏÄ5cçϘ-sý·Ý‹ ([á+WЬ:³æN*Æ=…øgìÔ£‰ €@¿Tì.OÖ^b°ªUªºªÛ ø lc¶c?úaõÈV’BlÌÆdï\Qk‡|H í¤gcèJø}ì»ï^³u\„ úÓ8ç4 OÎ<r©èŒÑY„qà¢' ê9°W(Ä"÷âÂëyäåUÿtìrt j·Å1sX6£YVÏ“±wXK©È}…xýí#×O¨Šp89ú…éѾϱÿì}"zÌÞå•:GÜñ“1õè•ôZϲFètå^”hIáʵ.š$ƒ;[Á›Óo'eUÞ¢ŽJ\–Ša£Ü(cír¹qIÏFpoëtV^u‘Ýì»ÎÀŸ_¯"–&Ó:JŠÖñ£Ñé¬7ÐF¹1Ê Ù§G/ƒ3£F‡4ÆÝÆù-h¢©†hF2GðÑý…î¦z‹lçVá->Ýc9HÙÀuÆücÓþí¯¼úµ ð<@õîÃkh£Rjè#º³nŸõ(÷ø¦¡Áºpí¢ÏƯ†Þ4þ’Šà Ç«ÙÙøÐÐêe9× Í â^•è'|*:ìˆã€­¥ ÃSñylùk€ÅFðn¬LòèV¼1€É‘o,S´ž%÷KÔ¸]Éð$V߬ü‚õÉ°è´Ñðà&T‚Ü2f‚fn.’ ðÔtç9l.ÇÍáÑá.vX‡ó€5Ã\ôXVûî„#;óë;9ÑíêЦ•l¥7Ë¥wüõ,¦ˆb‹™õÆ´ÛY½ÌP«!í vMci%÷Ð*é^éÿø@{þGþñ#û`d𰢜Š¼X/Vµ3u—&vC:;Þ€e ‹5RWii$Å ÓZÊÐÏ]à`/»ÃÑI­ý ŒÉ⢓#”c.×ä¨䊌`gž»ã°b±Ë7%î1ÍcÝQ½ík–¿¾ZR¯W© ôÕl¼+„ÍÕŽ™œÍÕÆfcKõ$Y‰zªL’ÞoMØAu)\jp«%Á2ò¥!rŠm1ØDtwvŸ´ëdµ ä«71â fÿŒéª„Ýf÷̸†=¥8êYL K3$ò±Å‘Ó1J<6†^‹ìCà uŒô¾ZkAð†½® |‰.,°G 5_%6(`µdG:kb—á©o¡ñÐ0À£Õ±û'­)±&Âa•±a™þËWüäu„E]R+¯ù¿«ð«òzµÒ©H&ÒÕjm‡hjõ² çñ" "âÉlH}覆 %Ï~_.ýúÍêJå݇NçýV¹øÝ÷?¼®v:ß@•°Úy}Z©¥j©_£‚¹JÈã Æè& §CÚÑäwÎëMΘöX<8ÐîÖqÞu$r¾ +Aüq'òK¤VC€kB«j@‡Q@³š\‹Ä9<êaYe‰ºyȳíšpÈ•·¼‘£R¾çð= mÓÉ{ ù‰Ã€–£3oô]G`ײÚ³gਫ+ný²^U;GmDft\ÇOH”]G¹ôþ“.t¿»stÚ<Ã9Þâ™®Ÿp77Ï„ù³ÅÆRk÷¿Øüð+ª²ª—ϬƒÉª\ ™øÀ;Î ›ô=1¿hóôº¤=´I¯‹GÿA D†fb6QÌMò/ÏŸ²ýôz]DtßëˆR0£XzŽ³ì Ðᆠ°€~oY÷”§€Gðß‹(âýNéy§Þ¨7¶à³ A¤óßà‰ oÔ1BûmdxzDòF?X ÀYrý¢ŸÄ+LbUŠe¨3ÊRo’IiZ …ýÓXòÄdÄåï¶vvIñ˜T ",å”w¹’rzåÚÄ0±Ù:EÒ)’xȇ=6Öîäê…ç!Ÿ˜„èC×ñCKáËÓe—bu2Ši°ƒÛz–|øn_T%ÞÉÓzEû¸à'¦”áÜ;gØ¥˜˜}wÔjeÏy¼È'Î} Øp þ€~|ÒZ¼|91 Ìg\—/ÿ$Ëñ¥:rçõ8ØÞ;<…ÿïžtŽvv³$YèW$î?¸$HOî¼&ÇG/vOŽ[Ýít㜹$‰2Ÿ¸"qhÿÁù#:rçõhï펼ÜÏ9>b%>q-lXÿÁ•øòݸû:ï?oãÿsÁdê h@ÿÉéÿ²}¸óÜ'ÎR“Ÿ|BûøÙ ý§ÿKwbù‡›<Ôúî¶O·OŸ·›õFìUê)5  u~p$å"Ö7Šeä=1JP¥XÅBÞbqlp¸’'*dL錢`à$p‰gEz¤ËQ%òÊå§ –¤ô  'S?záâç4ññO¯/Óñ˜Õ{øulx°š 6+Aä$<7OqUýÄHñPà’¥V ˜x)Á%[7qÔ/|.£jM²À¢Ù»òK ÑîD’hÄÍN´àø»Æñ!a ‘š9óæ›cí+–ÀÂ+µç":1mª«YV˜#ìªÇÁtì³±GµOØTü³ý¬ûóî ZžÈËP‡w8p áJöCJÝMøqø|ÕoÒeþŸÐÝûõ<€¿#wŒ’—E6}ŽÞ„ƒú°QÖïK??T9|CA¼-¢T‚‚Æ’ Àiè\º0èV¥,Ô¡GXôuïÁÞ­]ª²Xn–ñ/jÄÇüx;sÐøàR Ô(½›üaÛ¥p³ï<ßÞom·w›ë[:NRË„‹?µq’ðÍSB Ó“.;G8¡GAöÐC«Z¾v¿ùhmKÊàÏ >!Éïl0*ߤÿ=tʘ*–¥/Pl&ïµ€í´#Fc·v¿¾¦žë¦Þ„WõBIWV»‡?S7è?(G/·×›å’*ÃÇF³ü=}þAs íSÊlþrL{;»‡§{OöZl£DZ¦ýüd÷¶èg» P ÖÁÑáî)úчo DŸìžìµðóxûx÷Dƒ9ÝÝß=~†1øcï`·Ðø‘‹ÐâÞÍVtdži¥[U³eÖ]Räy·X±Ãf×°ß°¢‰2aåHn…T¿~JœXŒÅÂQœ9LJÎ7U¹³ât*åYø‚e›ø [(-B½†¯)ì3|DñåYTL>/E»E]¦©?¬–M^ U­pÖv£Ù¤g8Ô˜ Uë„%ºÌ!˜DJÃbxènÓ[û£—Ôë–––«Ç¿ÄýÍïæw‚"ôfÙ9ï«uyåýöf0ôƒÑ¿Æádúöúæöße)º¿{ŠFŠÍòöãÖÎÏöþñÓþÁáÑñÿ;iŸ>ÿùÅË_þiŠ ÔR¬‘R Ží{—ÞÚ_[ß@MÓ¿}ûw „žô5ˆý®¤µc`;ÑÓ§Dv£¸>1Õ< !ÙÞ=Þ>Ù>=:‰‚”¥»+Ô8÷üFˆNÝ(•êtNR¶*Çø¡äA^gÿ»v"nClºYlø@Wöc«›ËË?”Šw»YÞ*Ûô&‘»YƒÜèåû!zuÆCô]?è®7…ÁŒ¥nd¦Þož­Ð¦,YõÑ÷zÅÞ=ø`Þ(¢r¢6`%màYø>Ìiº0 ïˆ³x‚6W×WôJ¡ØÇGàRÄ;QGCý&JåÐÙcìbTiV<óƒI½ ­ïÖŒFÏ«Nv¸ªà oCwpÑ„\£å‚ÉdN°÷¤Ý,Á¶}Å×BàVQ.KTØ‚¡§‚ h¨±4üÙ¬›ü±Éo yâ"ºƒ&ÓéKNe©½ˆ®5½,ö=Ž³ˆ>º‘I0oQ aˆVˆè3¨5=ï“çÔ›í xÃÖÑÁÁöáN™™=_wÑ$òºXŽ¬}AŒŠµ@uKù„š@/Z¶@kê5Rëzaß×Qݘê¼K/;l¢Qsõ-Q ä°¾0Ìó0` . ç9ãæzwHó®Ÿ2PFHûJ¸Y.WôäÜ‘¢%J4¦á8#ùÓPUZ¥(sÐ,à ¹cƒZWÅ‚8Ôƒ”†8>@ra¹*ªZ´þ+éW9ÖŒVêWqv‘n5Ȭkc9}Ó´ØYEÔÐofT§ %'àfƒŒA‹²±™\)c‚yFEMŽÛƒVíœ"ó{æ®G%/“PBš’’¢AzåÃ2©l8°W \»Q†¡ºq†÷EuRSX_­ýU®•%Šv!¥hŠÚŽL–ÖwÆMöà"D›×™ðxn`¬œ8¿9êD=s,ž¹áôXLŠŒt³Ì}9v¦µ YcTXxĽ°'‰']þ ð~°ïºj·®zÎz†AeP ã᤿r›µŠÖäl–ÕwÑúÛl¼ Ö¡Ö.­–ªµªüØDõ¥‘ÉA=±rŒÓ,×O@¯J¯yvðF K«Zî¾îTªõÎüÿ¾†=‰Ã®•ªÕ¨¡Œf|ɇ;`ljð>3ž÷þýNÀ^ÆŠ`¬ ËúAóÏÁ»Ã›w¢¨º–%-}ŽWt…Q¥Wk¯«¤XI:Qhkp4NƘзÐ-_.¥XM£6ñ&ñš£\»b¾NG»FÏ®J©Ië:P$Å3Î,QÓN6”oÎÑ I#»®êØìØ]±X;x¢Z.Í'œè˜Ü'§ðÜ ª:/uy§Wõ¥õêFõþY•³k¾’±\f'V{«Õš -ûEhòßV³\(óçi³¼TfÎË®¢›B) €¥´.*å*B»“0;½²]’iùç—zØ}ÿ¬ÑŸ¤sLñ½ýøÚ²[5ôÙ- tÔÉ~C›ÌÈ!+ÅÃÙ¢#‡=Dâ™ëTˆÄ‡ê¼‚kLC/QÆî17N–b_"½Þ:àÏ ŒÃ!vB–>"Å¢Ál¨V8c£¾ö b³ÕÑÅn±Æz/¡à FËw¢­ÈŸÚkñ’ï›P3š¿ óÞHÕF±›§É¢‰+Ä£6Ïä‚Ó¨a |kAc Æ´»óWpø™ÉÚöYN[T¢;‚[²´ÆÓÕ‡} Õ(ª‚À_ñ zÂiQäeÆ)öMÛí:»a(öFCg„'…%…ÅDNYÙ¬KþädŒ.Æ›E’3ÒAuû×Õ¸Øä¯ÇqÁÉ_·Â¿¾ú5nøð×î_/Ëwî‰6Õ‰u'¼JôæÞ_G£Ym¢*2Ühc]7ÙÄTL¡·ï^ CÂëžgó­»q5U¬?@âSÀkGQ-•(…ÔÚaÁVÄÓrJ¡@GÂ# Xìh$±€ñuÙ+ Ô¨ÿ(ÆgªCdßpzA„ Á`ì –%T”x„îâ›1!a>öÉÞþn[¹ò)d"dAÓjšJqçeml~*²ÌÂø´(¶ ç-U«éXË )TG?ÕyHY¶Ä/]d±„dK³8W[að´q ­×ëåe…z™ðYj¨ååÆÖhëÿ_¦>íâöDâ"É1dù ý@ç;=t}óë´ÚôôY3âë*©”ö™U¾ì õ¨þ­¼ÿ`¡Â¥ýzˆ1Ž·-ˆG“AÿmÐcZ…˜xI¬\PñVx£*ÙIQ‰g»Û;è0Í*!IQà}~J@¡¤¨„ˆ3ÚV …J(*ýX(È„ð¡ =?[AƒXb'àú4¥š_‰Ë“i±ÖÿufqOøÙõ=¡§`6 >âl>…˜®Ç_ýæ®Å„ô2fÛI'‰·Lý^Õ†8ÏiErãíHâ][¢c'§Ê‹·BIwmC[òæ4c¬;Y•r›ó>,ÏôÚ,v 3Þ8eÖÂö'żcµÖ°Ç8Ý”èôz@I#Ÿ 0 9Ïì…ç}±õÕÑ1Yv¿V¯püš€ÛªvUz¼÷H84Š2¨$hÃ`$ÄdB韫u2¥u_2Uþ…Uþ5õ€:ËõØk®IÞcÐ&sˆÎÒ5ò‹Rø´Ùci¯9°¡Þ¢s7ø¹™ÜÚåÈÖ›bq"y!a~f dƒ•´adŒ2›«±÷¢e®±`˜¸ë|¬ÕV›bü‹v„Í3ºØoJëô {™¹’͈. ˆ’*Êæw,i‰ ‡WÞÅ„^¸ä1£–j³´ž€\ڈצÿFà²*þ´ËÌ®Š«~V¼‚ÃؼˆÓä®^Ïc`x…‹ìÚTf§TjvÙU´-Ø41sÄcDA}&Œ£– Èæ«ÛNg Ì”&™ï-ò}GŸæKÈ_þc¦ÛÒ¬Ú”µ0GÅ{ùF§KµŸ%Þ‹E" UÒ!R×4iþª"·U¤0ÇãßBN/܉ø‰LÆb/gxd)˜jWpL®Ná`“xMÀ–Ù&¯æè<<äƒu†Üë¡Î‘~™I¿çü{•5£ÄY¤æ“ÏU¬Û§ÅèKUV“3 Gtç=È_þ#ÅKz÷¬·âÄ›Åc®1¶B±0ãõúÉÐÑÕ_úcVóÂæGÐW»tá_س+ï 㢿ô‡üå?¤o_¬BHiÉOó¥?ä/ÿ±wè!Ò:Ð6ׄÈ8âd7½§>²=—¾÷o ¡üù0üÓÏAr;¾©n›#ÄðHšÂ‚«È3c?tÇ2x%6¤I—’=éóÏÂsc+X®€P N”c€Â-Ï¡ÉQèÀN)FH÷À˜5Q‘«/ª4‡%@²:U„nùAM„òô -M™òŠóv}ÔÂàçC·gaÎ4ûáÞiÍÜÁµa9d"SM˜üèG—H‚OÇ"QG<™öPÀ+:ü$ã…ø3f\ãWô} P«‰& ­E6.–𠸌[óyç­ØðÆP—T@RølñRil/fÿ16£h\Y©ÊL•#ÊW´ýbÍ«/ËõS®´æÀH——~¸#aDõ5&D nD¥umvƵ`e)¬¿¹TÕóY>ª§|3½€3H炵aˆÔi Rñ÷@l©ÖàÑ1M rS%âñ™½÷ÐW&ZwÛ*»Éâ²ë¿e߉;¾ /ܽÑNЖO¢Ú€ÚÁwÖñ©G. XæÊμ‡&ĈLºø`"‡ÎÚG4â²On Ü¡;@—"çÞ¿1&—÷¾jOý£¶zP_¯ß¯k;Ê ÅÔj 6Ê%ýðÄ°3~GOÐ8“à YêÏ>BžÑ3Š%½`ÿUÊ1òm ÷âà*Ú™*ò`…ΰáÒ†>—Ù ×­µfìòEEÛ!ßSQ8 õ1EØè/¡Ï’\bcÂ÷×·äp=45&Ãy“C74]¼pkúñ” 8˜ÌgŽ‰½ÒŽ?Ðy7‰oœöÁeŒ9ê…’°¤ïIž gÉH•Ý#Ç[¤¹8†åÆŽ‘[tgl*«5S7sÛ”ÕºÚPë÷ÕúC|,µº¿âåVÂŽ¯ ¦Ð´Ô Ü·á¨y¶2:áµö·¿aO†opøÈF#Xd“ ìÒKúWŒëYB$x–åV_R ”™ h0‚Y*ÕJ'€dG•ì¾Qaõ z¯âÚš’‘Pì9>Iê&\æ,âÔ-vˆÓ)#÷ö!¾¬#ŠÐÂ%–ʉ‡Brý¨ÍT%ª®ý)^‘ ;ù`"Ưõ0Ž¸m– ]Å$ÀØyT´Þq“ÞvÎ]1m!’L…(e!ŸõÆ¿Že‡ÄÍÖõÃLبþØøñÇÆ– ?VõWuk¢&RãGü )ü $C0F0FZ¦!V¬ ”}I%‚Ö(«ï;ˆ ì‘öÓ¡% «?[óc•¹;ª€©qE?ÈŽ'XåZ?m?Ý%à *ýL•9Ý>I“”TI1Ú±JJJªdûôdïð©URå?z²‹k¬¢&Í”¶\sA9ë—)a2Séäò¼;Ñ~ŸºøÎCå²2L=à&ÑéTµÄ&=4a"gàcÇ83úaòûÎÄáLùŠ`Þ†äa†ÁšQ>9 E4u¥L,!êAЃ»qT,öÛî§é£.,çE?L~0èÇŠÄ~[P. ‚¾Lž°”ÁÑLã‰Ù%û1œîè—)Ì¿)ý0ù!O—°š2x€<ücÒX±Rù#ž~¨Óãé§:=ÂNôÌ©ø'>*=žÄX{£©)|'r·ècS€&ÊÑTñy’ŠÏ7¨?ãy¦9ëW¼D`¦=Hι™íäZp‹Ñd¾i5ö;Y*°–Ój[äóÝã“£§'ÛP&‘’*ÙnìŸZ9!UngûtÛ*…?M™Ö/O‰Ö¾€æ;IÏ"*fr"š™¤•ÛÕji¼|E9ÏOð¼Ã,ùŒå¡cvÉÃÏX Ò$—˜|,¼wøärõ§µsÉŸT7¼¢Í«˜|$àÇxá_“ŠW¢IWçY¿Òk€©kK¨+î ¹à¯hŒ/~ÂÁ½ø)êÙ.º §ÑŸQÿ†Ý®8PìöDØDJ÷N=„Œcõ¥|År¦~”Gß&÷iË:,£6!ÝiE4‡ƒäa}D´eGgÈWTãøØÔ‘ÏĪPú3¢b¹©}˜ô£Çÿàtþ°(çñÎÞ ÑNüˆ_™ù+A>ã$Ÿ¾­ùÖò štý#‘O.Lú/á ÚûÛígºI°æ’ÑK M¹|Çz÷q%Ý'æ”×ýËHÚù[~ùÒN1k'ŸÉµ£:æÛ®i ÆüÈìx‰JôNRójd H'[3ºM}‡?±43(ý­m­“Ä()Uš<¸7ÁY 9ü‘¨crퟅK{e"j—Nέ£§ 3=^K—²÷½ÙÊæÛäž>;‚¼³/ƒý3:IÒ>ŒðTI§æÕÐÝÏJŽV+é™W-™–]ZÃO'Z4æôd»{ºÛ>íÊP)iÞm`sn‹ÊÙžkˆÖÙ åL÷â)ÖyÔÚ¾³Û¦#ˆ?íÝee[¿"ì÷Ñ+!¢Ù9B%Wÿ²KÏ-¹øeçPÄ΢Ïè8ìù‡?1NTøPû<࣠*…×(,†mnõôèhŸVüŠ0ú—wÍ·É¢Avô#Êû¹ÁBñ”¬’z±’IvoÑ'$÷¿¢œS+ï4–ËR(hÈÜçõeÕF§Ú/ª1¥ Ù5ð¹7qk!½¡<Œe¬ÍWBÒ¥!!†*1ÚƶgèÁRÂß7.Š$vÐ>Ĩ£ö“Æ:ÉÝžמ¿›Cç¦ @Éð,l>ø–S1åbì\6ס•C†‹Ñ&D‹ e^RÿÜåBOÈ؉2I^™. Ü6y»‰µ5÷±ë¼’éÂ,øZ(]ÝŒzÚöC %Âj'¥X92ÄçS;œtZÕ.IdeôÜYS\¯R”H(ñ¡¿¥è:þá_E—š|ýĉâ×õ(B2Áº[m ‰l™«†*^,ÖÛøl°®y¢lâ>šŽGAèFæ!ç.[£H{jfïÞ¢ìÆî~ ”p„’¸éHŒÒ(¦×Æ:+IAÜÙe1¨r†ÃBh-Õ;×![HGb›ÀD# A„ K¡ÿ^öKÌ.u%ÆÊÃ|@’s¼uuíq–7Q ñã+§öïíÚ?»¯õÇZíï¯Wlüå¼L^qÑ~-6ãk¥j%kcK^n"æyËÂH-/\²±´HÞ/T>Tp€#ÅêÚÐEKn!P‚Yñ}&¶­QÚ¶žE%qg—£DÜÄQM !zO¥6õY„ÏY|ÞY£¡ÂJÄO¿Z¶â1yì¼WóÄ˪„óAÉ6˜¤—d~iÌt”¬]ùƒé‹½Úô|ûo½^ýºXÕX¬KJ*£ºFÝó‹‘S¨³+ºº)ÿÝD?ËbE@O.À{:¨¯8' ¸Ù®˜yZ‘²úê×Í׫›ÕjùÌT˜Qz³¾ŠEåÍ“ºòÅ[QÆÝŠ®¦’V¼Áp„ª•ÚGUý8 F]ó‹BÈEÿG>4§çúÃã !ÇÁ7ÏV´m_ÔÃJÒ·Kä\Æ»ˆ©¯¢W—N¥ÑX5.^Žf5ÐÝ ›Sd&4w»‹[{ö úp*£33ô: a¦ñPƒsœÐX¥fƒYÈ‹ ¾4yb™ÍR‹fë-#isÄÍŒ¶‡äéDâ4Ç ÏÛ~äžÀ° Q§=„ÅX821”Ù¸$ŽG¥X…LLJ•˜à#ðHüW¢‘9Œ”Ypß,ª¿×¯¤’D'{9¸“mtô`ÚѨ—ªónµç)}°é3Ü(£gÇ–'#Ù¨ š‚[*œ^`š†E­y5±þµS'÷6DÜ‘o«b½Þ(y%ï±WâR ®\$Ò¦kñ–¤ Õ`ãÕ¯äN§ ­T/¡Ñ(̺ÕáX±«ÁÃU‡µÁaÖ+ØçÕî8™Õí_0gIÄøƒŒºë†'aí°zŒ9×|ŒÝx1Æžë®Åª[¼y"Ÿç# Òš’L=á$ˆâoè½úaÓ¸•±½Ç$G!³Ÿö­Bº?zú"…÷í)n¢ã™íd5“]/2õFëc£­tÖëÂéºÆÌ Ä|æÀåWÔ_$¨Ÿuúsá@üÖÅ(žÀªÔ‰Õ`J™Ý}"ÓHñŽöˆF°d=‚™»P³ZÑš­ipx1 F&3e8J»V|H±BwS;åC=6ÀŒüäPãðMÏù±çaf[¼úwœ )ù3>#&99V½»LAVsö˜sÀ6> »/g°QVÖÊä g5Ÿ\ðY¨hOBd#·î>ö¤”Ñ+mƒeJ[=1yI:+ÝMöÝ z—™ K†ÑØE³gÒÓ v™Ð©bô³â\ñên]‚c¤i¨ +U5rƒÚRs$"””ŒGc/dA Fæa¼ð¯±jT™àp‹ydŽkÁÖÅüƺ$ÀÝ·f‡6ŠÜtmÚv2Ï@øi/]¨”H(Fݤ«ntÊmà ---Áœ‡ÀÙÑíÑv]/ò"ˆ(R+’*+_¤Iƒ1¥4)QW1™d²puÜ£la_¤/'lž¡«¶)Ã.4Ï#e¬Ëãá…v×ü ³’Ñ>Š—.Š.ͬs|ÅD7Ý9j×ÂÉ-…V ÉËÚ&–Õî;Š¥‹â]ØUòSÍ̦Âú ù­KWšç”gI÷è¢h†c+ „剄ÊE.Ï–ÕãHÅ 0<ˆUd¢ÐHhÓqÏMAˆJ$qL¶¬¢ë©ñçœVò&Cí ï9gŒ Y:š9Ûþ/‰}?ß³¼©:˧¼UèFÜŒFM3¡XÈFKÖ‰öX(‘,¿nN ³äÀøÈ“ O?V“+R’™St"G¯kæçìèwô iI­âGZ J²X<-®¤e é_1Hñ"vJ¬OñbvJª_iˆ™Åµ4ŽJÉÎ,Úti+Ïìj;.'Ö‚ø`ŠÇ##%] £‡o•bšfZþÏ­ÄÚá$¼^’a1d³•œ³Œ•r%ÓºðÂÂi¼@±ùòV.5\L–›'-ÅöæJK©Ð¤¥vii²ÈL%-eÿ•b®¯ÒÒ¯ÒÒ¯ÒÒ¯ÒÒ¯ÒÒ¯ÒÒ¯ÒÒ¯ÒÒ¯ÒÒ¯ÒÒyÒÒÜ›œ–êk<2ÅFá*ó„ž]œ¯ÿfÂ(_äbÚHF®oq¶ë¼È‰ç —!,oK*ñÐIÛžŒ½‘:x‚Ž˜®ÉÏ8ê­E^έàBZ­pxaÎ×á…>Tk.eÂ)ŠVÞ"ÿG×W. Ù»]A_gC´ÈŽ¼ i—V¸môÞg¿ªàÄ@ÞÁ$v®¯Îtݺç—É =K#è¹ÈÇýã¦oá@µ+Ñk—¥žÎÄ@¥;¢ëKžŽÝQ™¼÷ô¤m)~¬\?˜^^mÆÚá¤&ú~ƒø«ì*¾ÿ7ÞZÉ6áDSiø/„Ã$ ¸+í@ HX~ }Âè,ƒhE€o Ôò¯ËõÕ˜k9G¦º¬`­Ô÷*7þ `úÈOb× XÝ™W \ý…¯QᬫE<7¯âݯ„ ÿ× ûÅ@Ë,èq]™O0¼”výàù¬‚ È#Æ?ʶóatÓ†=€}_Bm³ëp¿£GûÃ9#œAÔbÍ3Úã>îñ_9I5U£1*«ïQLXâ]¹H1)s‰ºh¥Ï‚jË‚LãKÁ¥Ô ¨@]Ь]ÜÙû¡·ñÆWÕsbàÎG“[¤F@¯¦>úYíèëpŸÜ? ‘ykíyf+K •Î9F˜ë÷nu€N"b¤ó{K—m¨«]j¥õÒ OgE[àÀÄ òõ‚ƒ°zO®½žkYð3šyœA/ä$}Ä ‰ ²·èÜŸŽÓz/Á°ì•™\Úo<4ü¤qò”#¢8=,µ€é°ÍTdY†ÛO7†Ž£œb¹„{'P,}›‰N˜Žéj£lð¬Ü¸,›üç˜ñœÒÎŒœe™]€„SQŠŽî“:¬©¹¸“¤]Èa£Äb¾8¶ÁÈ“™ùšwTƒœ§9Sòµÿ‹UçYË _2½T¯‚½¯‚½?N°G¿í¥,&Þ#ÏžºÍ{dœ² ‰lD–U:Þ–­LÌ‚TÊÒù°Ÿ‚æ¾龮龮a/õC’ Î÷îÄ×â¿)ÂEQ0/”xH^½‰øþŽ‚H¨äzp€‡IO4Ë ÷Èo ÏÎàÚ‡/ù¸å¸P©Ästä8™ú°|ƒÛ*YŸµ%n³ã BR\°Cqke™7îh¢€‹.½b¾Ã ѱë@Ô! •ƒÃuù¤ßÂaI<»Ãê{aÏ÷Ù7_ Ñ!¹zÞÁºf££û+÷âûcMôA(ÆQf&ñÎ5!Xçäój䎡äÊØ­àÐÉïž(1wJ+àÇd„~îÀÝÒL' üåqÚZŠî—Ò[ç-L% žÜÙáJý Ë›‡îÌ·nhˮё崇9m<'®È¸GâöÒ86÷”Šà°gª¼J¶B+]»G¥g&ŽNaûÌÔ>$ã;&Пø´Å[FØ ÜöÏCŒ°P¥{í7ßP,‡‚ÛâÖ#wfúÖ€±?)ÌÛ0Ôu;$9ë[ÑÔGû ñ˜½OyzIB.á-|<•·]e\‡rwóµ1Pÿÿ}ý÷Çÿ»ì=ªÛpzÂÔׇ>kðïуðwãÑúƒûô{~Ó¿ûþß{ô·‡ëÿ¶þ·GÿßÚúýûëÿ?µöù»’þ7…ý5Vêÿ»:Ü«á¬rp]ü#:ôÇþ[Vúßé³½¶:Ø>Ý=ÙÛÞWð}|rôóÞÎîŽÚnÃϪz±wúLm?ní??ÝÝÿE©Û''Û‡§¿¨Ý—ÇÆ~w轃ãý½Ý ñvø‹zÞÞExۧꗣç'êèÅ¡:ÙkÿTçv£ÈKcìbxœ±ãO¢HïäùqtËÄF¼‡AUÒñoµioUi·þ}ö艰Hù<4Ç»øØÅÀÆèŽÙWl2>"K¸X/ð˜áPÀ¢ïJt#; •ðÈò¶ŎôÍ;!2Écß ¦EŒæ³µ‚4VËŒ—A÷LT'm›]óüvS=ÿÛ½ ÆÿVÿpÞÀë©ï~“´Pî ÉÁ8R—ß# õ´ÕEO>â4=i¢ïhìêv«»³ûxÝPE^uºÛÿ8:©ÆRö8ž:$nï?Û¶ aÔÓ¾v(RY •ðj·•LPCŠlŽ5õ õÕ¿æg0ºr^­Õá»òâ–ç«{#a.·"g‰l‚MÅM0–d_)(!Š‹`>yäÏWâ“SU¯à„ƒÌƒöÓnëÙn맽çP&è…—'gL?Þ&Gi¢~`M×kùƒ‘3a¬¯Qw›KºÆ$§}>ØW¯~ «*£‰$ôØœÜ ºJOÑhhQ¿~Ðz¬V”\¤óO-”–'™^ Œ±áÀ´©-[4°xMÊå¸&»æ(7KÉåÛ&isS7] ð¾\J.†BˆFZ!ØÔòùþéŠ8:®ØY»''G'+¯üÀdG6-1ãÍrr ʯ+Z–Ì8É[µûüðÿ=?:ÝÝYIoÙÔ *ókâ°51©’œ¬Ø m"Ž›†Œfbµªé¥6CŒÏâÐù-7SÃQ0sÉt"MBé]ª÷kš2…©-„BWÞù$À'Uþ'Væÿ¢Q}‰6fò÷<üÛ#àùþöàÁúÃû÷ÿöàoÈÿ­=XûÊÿýÿ0 ·^{US-sÓdc<‚n(á( 'î°®j«µ6F"®±#bø‰£€Tëÿû£*þ÷oôßo鿯bª5úï:–Ÿ­ JIÜ`tå}«žã>«ÎäßÞåîŽß_Ó§_ŽWz“ºÛŸ~O=‚êáÔâ3¢\ÝS’` hÇpw3ê7(.r‚Òèň½¯»êt ôŶ;u<=x=µŒ˜ÞZ iL ¯ˆC8³ÂjÁ…Ø£guÍ@lè6`Ø4²Œô\«¤U8ò¬3‰ªÖs†²¯M€®‚‘°ŸÞ„ÃèžÓ=öćwƒÌÿÑóSâç5׿eÝ·â ¥LÈu¸FŸ6Xû`÷¤õ ªl?ÞÛ߃ëL쓽ÓC¸1¨'@·áx;9Ýk=ßß>QÇÏOŽÚ»ä<ßÕó‹@r¦ØDOé#_=õÀ… ¯HtA±yÇnÏõÞ¢PÊ„¹Ÿ½xÄ!·üÂqGI¬$°ÛÕHè–ZVÂïFWÕÿ«S OèªcŠ™]Sí)B¸¶ÅcØaXô`[­m¬¯¯×€ ÂþyÞÞÖƒÚ­PòîMÏåPWÒ~þXªØa@„aáùÄÄ'EDu8ò·cÐEGÖÄû 4Œ•ãñü$v\L7A‡¼«ÒÖÂwWý\¨wÞYÐô†ÆAÛŠšÅÊSY^ò&Ž¬­™3Ѭèz2ÆÉxð™teÚßj…ˆm•Èz]-`ÒÉîÿ{¾w²KÙ’ƒìýóãו¾?(h÷é"àœCC¶™Óô‘©£€Òí4”Ýãv,¼Jc0ÁÈÔõðŠ"òn®Ûﶸ‹¯}C…5 `ñVH2XQ¥[M­¢ë2°ýüqûtEêènqGNàÊ4˜xˆlæ·@ªnÆŒ¨W¯™Ó‰ÍZ|ZxÚàª3·²Q_¿O &fr÷pûñþn·ýlûdwçõ¬§Û°ég•x²Ý>Õ†2™åZÛ‡G‡{­íýî³£öéœ"Ÿïígwˆf¢•Ýž¥õöw mÿh{§‹NûòËÌ€qØmgæ"¡§?¾]vv gw…=ÇfO&9›å,BîþiW·Lþ´ßVß 6ÖÈó5/é&<;RŠªÜ¢%yè Ї=ñ¯©7¦—Q'ì»#t³Ø¥b])æa|£Û:—^oÕ¾4ðó4g ©ÊÛË¥ƒí§{°‚;åøÕ@S¦¾5>\qš+DÛñPªà0‚ÞTÕf%Q€ý%Shïe¼ Ø"zePÖµ¶ÁÎþÑñî!lקæý¾t4oQã#žä•Ù ^ìÞ߀HŒ¤êµçCR0ˆŒR&öûä©ì}© ‚ÞŒ/úŠb×y!Ö¬Ù™JäþøMë†Ä§]ç ’~`±Ük´‡ ÚÚJ:! ºX}R©ÎÈÆÎSuTŸ»8—aä쎟‰œKG„{,Ž`íÇÈ`XbøBd» |<ÒT6d§c¢{M>ÑVóôÆÞÍ#Â&QÌA–„ËáÀG.ä²H'_$ø™óÕòkÒÑëvüÛíê0ÆÀúññá$ÔÉÃÛÍ„‘u½³þÒÝýy{…^h¨ïÛNœtÃÓpLa±´öa+8ÿ Ài©ÇêýÚ¹7‘pœJíï` ­ýÚ ÿAÕîoh½-µ¬É)ë§ ?z0ö£‰âb9KJ"É螯ò£ù{ÁýúÆÛ‡2åG¾j·Ž(z|Ûû©VMÕÚ¹;¸àè% å vá:Ž™ |½vDÖÞþyWœžbø)úÀÎ%’\‘­mØǼ—W^Eú¨®jE(…}¹lÚÁ¤Û{Ûíq(¤°‹©U8tÛ‡O»ØžÒ2?qÝ1úùÊ«×Uü_4Dýœ?x]‰C>ÙmŸ쾶ÉàM±”QY4oݘ£ÀeóöEWíõÔFýÛ:ð’îe/Tëõ5R½u¯Ýñ–ñ:‰»‹¦„À˜)¶Ö h‘ÕÅ©Ø+DŽÞí%,TãÆ_(»ºÖ?Fׂºq •É®‡[½ªèM3]p»ïæ¹ÙpîöP Wf¼jX€ütå@]_˪&I¤…U7äo*R\71õé!Õà.Çð —ŒP×ÆLÙѯ€Ä¸c ‚;çL„ãïvWVºÝpÒG݇n·RÑM­àá°ZÅòUEßmO¯;³X…ÿ«lE­¤{…ˆ^ÍJÇ­‹ o”Z-&„î4u0D"'¼PI‡· ÉDkÐbçXPÀ¯ª¨vÑ=Q0–$`QÕ!Ö¥Ô<Š”A“¢Jɾ ®MG ¡Mƒúân–½+3›‰¥TôÿŒ MjÒ&4vfU„Ødnn±ÏJmV³? Íy£èÙ5q³õúè‚o>²ù1 µ ð·†çu {ˆä z¢õÂó©~\d);³ºfÖ Šµƒ*7[óØMìh†rpÑ7Œœ9Aár÷Ou”[`r tÃYVã0Ýív{÷ä²j9ÿ²ïE±Úr?Ê<˜Ñ…‡ 1¤Ÿ;žñ j½à´>ËÖ’•ÅýßåÂÝë`ü&ÔÙq&ˆŽz<˜ƒœ¨¡9î#æúi«i°èDl¾{éO»ƒ~JO†ÿ1/ƒ]BTǵyQÙW¯Ö7ðqª¢rú”!òñÂÏ/ü/¯<öÖª`üzXž|-ÆåuÅ2\½)å%¯ö@Í"AW¸týª‚*)¯+3pEpŒ!ìì?iæ`…=é:obýè.z>vûÑN‹Û¿´»O÷oãçÁcH9Þ;ÞÎsð:^†Ü$yϽúæ]X Ú¤ˆã;²wdÇÎ9K~$òÃs8%IŸö" ‚k6µt©1ùÃz!ùûÊ ×Ü6‡¢ÇâíŠ ½ì: yÝË°T@~zwä\¤ÅF*¤=q‡ŽouŠà ÑŒô €º¨å¨ ÷š,!¦¨oðêíztE®?À }CÚp$sWÌW\_Jü𗿨­ÊkŠÌxå Áä÷…ŠDqÜ9^î`„<==¨SíÂ/üj–_½zÜÚÙ}z+öºŒÀNÜK÷fÙdq=’ÀRႉg%HàS¨ë-‚;r&Í2¾¹v·kÿtjÿÆwWùÔϯÔЩŽùf©0£Ç^h֌ЫK Ü\Œ‡Ðºêltî«Îý4‰‡ŠÒ×Pب‹³z"€ì»0],¿,ðzÇ×zt{XF|”ûbðk]ÕW*7£²pW=XÕYßjŒÊÅ»tÇFgªu¿?Fû²¼nQ˜¼®”JöoSáìÿªhªU©¡Ô»N§Sì¬ã«j€Ž&ãŠZûPEk ©U”ˆU¶¾Næ܆Ñù¦³A`hÔ;$Rì®qè\¯§ÞÂY„Âо³wÔd)8Þ Rq„$d$¢1&æa¸«Î6Tzº×>}a*^¦7dy¾ûQ¤ (b(S|…mâLF\· zAC‹!Ãi>2¬T¶2æwuöä·ÿW}õ£—&/Ëhè ÒL ªg܆"5°+XËŽ$òwž¶OŸ›"ÚŸâzÃ]ÿdÿ ¾cñ]€®R0­€aÁ¦sÜL£^t"¬VR¾é¼[«®w>”¡£“±ºQåÎÚúÃò^6ø•¥‡&ÍÀÃ"¥Œwfïî|e-d¢wXe-s6ÚBoè±3î'H2šµ¹®ýL¦›Ð¶Ë6Ÿ+ä==<=~²S)ÛFž†wÉÛ Jùt|k8L¤›“`ÐæMzG-x“ºöÁ„”||qƒ-U±Ë¦/tñ}ÁO]r"#Ù‚«[ãM\xÀÖ ³NÏ5]}õJ-¡’ÆEƒ“¨æ„YüßU(õ 0“Ïš/^©Q’£‰Qd ŒTÖµ´ê°t6£âý˜Ï/¼o`ºáO Úו-ö"ƒ†”8P}÷,,“t®Ø½Ñ`âÿ ²»‹Àq¿+,£‰ÀE¶º?ì"„.Æ­ cu ²©+•w²À}Ð0ð*7i(hAj–òVÎÖØLÇþ ÜÔ?$ ÏB¢Kôv›ðÆæ¿„BòåÌ1mšÉð‡¹hØП3$žh]Tš…#ªó½*Q•(Úsˆêü˜÷”ÂèÂmJ‡çžú\./nµ]7³x: ô0¤˜ 6V #N9Õ~‡oÙXP’Í—@bïˆÚwŸŠî%¦¶e"²…ðÃw./]¶µ&VËJ­® °1¦TŽúþ}’,eÔA\˜]‰Q›ð8KÞ½ j†-i䉩ޜìÙ¡ˆ8´›uÐÙÐV÷9Ý-`ûâÏî9K`²WºÝöéN«Û%œÒ?€Ù>=:¹£¤o.<”ôÉk:¿Ñˬ°œ0¨/0 Æu¥ž‡SRÎÔO‘g›â¬¶Ì?žãŽÔ­2ÇaÜ9j[vš/Kïâ­Þ ÝÉ’E¿„/ƒÏ·v›¥wô·v6%¹‰-‡6•^–¨L$‡+Ö†BGo]Óÿfy«l[Äö^²èf9öÖïx³”WQK‘ç¯`´ÌÙŠ93°¨ßgE$Ô§z'ÑŠŽ‘’^dÄ)ú{lê¹Ìo4DèQ|…DV Où m¡Ñèn"îýúÓËE8pP°RO£WÆ8¯¢å=­˜xtº×ÚE«N>í?o?[É(U Ú~ª¼.R),4ãrY̳ÄYN¤ì«‘?D…çz”òµ½.þ¬‘®GxõAI¾¤ø°ˆ†/Wkµ Ø"8S5œSVš8q‡(ù Étߺ\%ô—Âz•+òfæ˜gM~µÇ;E„DèÆ]þ°¼`vðß«ÒkúÏZµŒÿ-³H#²Àš0¬Iú`mJ(¿Ž§ÔËZÍjc-‹ÍV„mÍ&ä43V ÒôáW@íS;^y“Bä›>>6/VÛÄ{> LûAoŠQ-É4°Šç«øò¸z‰‡:›±&ÎVJ,ÓéLÊ1§g¤Vö’­Ö~ñF#Œ~Àuèþ‹€ ]Y,ÞI¹(!æ×bÉ]Ä/Æ&§ôný&ÿXdKç;M)ž:è:€óikš¹µ.C…Òj½Ã³c-‚S¬[õ&¼¢:>jï½äÎÓ„‚â±)´åoe(“~@ÔzÜÚ!òÞÜIœŒs–o›zK¥æ&ùXÂ8'l){èD&4–aÛ°q´Ìv¢–ž™yH, ÝR\§k€Ã!Åæ ½s A ÝÛ«óàëFUàEV`H½!)È—qò®ýKVµÌ É„õT ë7!Ž ly.‚épùuÀû·n*âé¥gã§óªZÇÿ<\ßPç·T\¤¿êuãVv%97Íâ]²KÐû³„Ãq] üs~-«àŠ^„d \ä¬äX‹Å’ÙhF׎‰ß l\éiZգе‹súu&0Rƒ‹`åÏìJ‹:àöj³»ª¶÷^2ÔᦟûÞ~!ä3Un)!“Èy›}*V;G‡ tŸð†ƒqG²ë3«< ùFÇóPã–b¬";ž K”¤/Øû`UüjŸ‰$&"ˆ»ˆ ‰•*@•Câ{êx'¸+ÅÒ;ü£–>ÀÌÐMÔ»@ž!³J‰#—÷{U”©HUrÚ;·CT¯hŸ]è¦AÝxÿ^¥ù$–$†k#d2•ç#”ÊG*eQÄRŸˆ\º/Í¢i»8céµÐ P´MW¥!¢Ê±sE\qö½>²tB=ÏÝ >(cArïáÄ%äË9Œ{µÆ‰æ3¤6þ¤y6@þÈi> ®4¯yŽ2ý!îüÑ)9özoêö*•uɲH=l&ÆÏ] uZ}—ÌhlÖ’O:]%ÑyzxbeCȬ’ØL3°›Oþq¢§®|t²÷tﮚvc¹l­ —ð̪R$M÷:^=£3IvÆ<.*!_â÷~~£å¸ÈX¢ õ×°ã—#9ûÝŽ¥O?u–>a—оÕce,Ä©–6̲;˜¹`Ñ ÇÏŒYàžÏÝlÖDåÒÒ;õdÁ)ý*°ÇþlÌ^ÊBÜ%®RŒoVSV×d2-69Öâ«ø_¼?ËšÝ}RQœ½ŒÇsaóá¢0D“—±\©^Ý·ÍÍBaÉæÿ#æ=ÍØgsþÉëö@<Î’ÅâäòÖ¹|h<²i»yÆXVGÁH<âö£>¸ìUؓߦôŠæ¡Cr\UìU]£I×äèQC>èü‡ÿW`£uæt‘ogöšïøN‹GÓ D T~Æ8~ %^„v»\5ŽÈE¦c^¤Å–½ª#_†|µ'»ízd:„ öõ—…;Í$Wïw@À[˜ÿR'{ŸàLcR¬Kš‘Z®vtl‹0³¤“‘쟽ØJ¸þý'je»uºwtXÛ{RC'öpCŠý®½¨=o·ŽNvÑqRþ¿¨Ò“íýv Jëä¨Ý®µŽŽ÷ö÷ŸV‘„„¨<1.–cêÕÃM4*d›7…ô«Òƒ×ÖS€ÑƒÍÐ&3MD÷Sÿ\û͵-þíÝ)y¬n®ë4±´ ®ÆîI"m ÌScyµœo WXÖÜ”wÙ°NVÌ0þghV@ýî>‹Ê}'ºËß›7ò( Õ˜¥ß‚ON÷wäÕQ@žØa^vö9ui)VD^è×ÞÙ·êf׎ѵ³‹®Qê²õºÿÂ%‘£6é±+îoÿó—îÑI÷ðè…¾'k‘9k{"^ ª#v‰ž\%ð5‘T…ÑÈ‚ @ÕQÒ€¹ñqxÉF¢Óœ`Nz4Vy™;].½™½Ä ±rX_¤w³!%KÚ°¬NÅ`åCK–ŒC˯·fUáÅNý0Ÿql˜­ckªàÐ+[¦e\øÁ¸¿RAWÖp[ôšÐy¯VêR+•ê°JˆF“MŦÄdxe¡éûäxÈR ‰gئŠíý-¬ T6 y]VúƒðvÈ™Õ"õ±XѦ €†ülYŒUdE1®’¬+ ¶W€¾e]éßdVÚs1O'‚~x-î;(YP ¾g°9)ë.½RoD*Øä–J‹2-Úúƒ¨@·ÉÔDjÌanVQ¥õÈ–å&5¿‘È—Õ{êÌ¥û ]šøM‘âð¹Ã/GüìL¥û†Ñ!݆±¥Õh牃-aWbçd¬Ùæ#y'¥±'gÔfÃV["nD^±ô.bÊÌLZ¯gÊÈÑË´ÆB?‘‚Vìa3n (JÃÀh»6¬ŠA)¢6*t¿˜Ê©äPŒ…)g‹vè,•÷d›ûÐæ¾w>vÆ·³ÚdÀ«Æ»³°V­•WáZë;}cˉÿ^Å›ÑeŠ¯mE†+½òª?èã“m&¬|h½E£MjféU¢Ÿ\ s2 q~ªwd³“"³Wƒþ ¨«& ‡oyðiøwká­ñeÎ0ü!úo&£!.6cŠ+€þâ¿ø_m ®ä#Ó¢1­³w°o‹•S®1 ¶êVÂIFA+Íò–³Aó¾ãoîëº<ù4Æ· ðÕÊ u ßv¯à¢æŽ»Ä±v¯´y # ©ÚŽÍñ Q·öwtaùŸúx{ÖybGçª_¤»ý[ßz=Òì¢íL'ÕÖZÄTIH-¯’2f«gÙ FžðÍSÏò$$ïˆ)%6o•}Z¬0eÒ¶jNr^?ȪAW+^~6ÏEE*Ÿ²ï¤IK® ì9$Dq“‹æO&e'²+êÏœL„•5¡ÒæÇΫ>ײ§×Î';?ךtC ´n»µ-bûQðs'–Û iEÖ•ISê“Ö{?¨dñUthÀ|Îa¡¦eJæõ@Ï\>€üþ$˜«[i 䧖Öç³mÝg99˶î%¹¬Ú¨”0='ÞDܲáØ•;¡À C±ƒs”¼‰p«®Ôž¥ †æ@ä¼Ú8=m£*–¤d3K‘. ,Ab;¸ýôƒ):,"á[_D²a½ð2tûͲ„‰ ¿¾l4ÊøÉ¡¥ºÔÉ&>m¯¼z…Vo³>q¿ÆÈ9ðÝ“'"²³ ÙÚ”}vôYŸ—¥}ÚRQÝ wìú=|ãä.å·”ÙPjæP\0pn#läaχåí9#,M¦èší Rm—Í´@ÏbW×±úý+5ô_îX Í nÂ] Y¤ûÙn>e3ac«¹Y]…n€²Ì¦È9 @ãØ]7„%…U'OÛ´ÄgÿuhlZ>ÎêNV¼w… òSÙ Z¯…ªƒÒÏ-ÿ±T”]ö”ëÐr¹R/À¸·5;ÐËuªÇÝ-–bÝ/,æØDº­ýè†n«Po!ËÙU¡À¨[-dZEþ‘4 ¥Ÿ$¬ÁqÄ8¯ì3¿…Hßi›#émŸ4q,¹+n:(“EžÚe$·Ýtlˆèä—V³×³’ÅÁåÉwS|íX¥öw¨ÀþNsз“Øp|ÀmLJ›uÑÊ7.Ú¨ùÕÄé·ŠPþáAÓZÉⳇòä»)î{¬RìÅ ñgsÓÊ%n”I_±¼ÈxóͯfiÝé¢'>–J„ä‘ ‚Æ¢‚8™O6KïèRè <'üP³â‹Û…Œý¥6„ŸÞ¬"1@/ô«ø·ZÕ‚ðE$5s³L§£ê<)v…¼ójéäÄv$__­Õ¥áNEÛÿtÖJg½³ó!˜e¦}_¼|m£Â jyhÏ„šèuj@îŽt@‚§-t½5¸½É†ñÑ©ÔÜúPµÀ¾vœ}œ’d Ùe×Ñþþnë´‹ÊÛm8"ßzãÀ'­O½sªlÅ)m¨·Žï…WD3Õhzq¤5otðÔH;цž£c®â}hŠðIÞ}­œBÒã À£ãR¶ ã8¿ÈÃwÁºÖÂÉíÀÕäO("¬-Òù…>Ãfv¿2@• Ð"üxâß®øU,SeŒJ‹Mè̉p­GèÊQÁ©+ji_úÑ3ó‘!A†å<ì‹\h'²¬òŠ  zÙ‰P78f Õ×\\ÛXÑ£×… ¿;ØýRäÛÓ8ª†Áô§=ç=é'5Z\ÈTbÓˆmubxx–N¾då«V*=²ãLç¥xßR2%& ³œmY§KªketiVÎÈ“.–küQ.Do qz Œ‡øßÀË걋›ÕD¸qPÍv‚ï–줇‘ˆÆCô gÅi3£´3R§‹N[¦ÃÃD÷J„V¶0„ àVÁ"=Šü§AABK­ Ѻw¡Üº¢µ ‚ó·È"cpBc^$‘Ž<_J{")gh0Éçäë²®ýscÏÐ8ƒM¾]= JFJŽhëÖð0ØÎ ‘¸Pµ"½l&ùö¸Š „u4z†„{‘Ìüáv K¢†¤›Ë\ßØmÄ$«Ò»$¦|¨ Z G­0ù—NZk/´R»]5Χ}»¶±fŒÂØq9ãl4µññ8ý¾VX9« ©~™f ‡7bçâ!Cc÷ ·¤l.êÃUk­Þh(ÖÊÙÓ1"\ç†Tmì†äSäþ†ªž¢—tL›c·æ<(ǧÞd€ÑE?4õÇ#ü‹ûò÷ü}hÍÒz‰Y¨UóÅÏ< ÒQÛ5+' õ±¼ÍŒ¯œQôog#™ :f•7}S¶üaà 5G,#ûÁ³îÎ/È¥ûŒÙº@ߘ*1#yH4V§#üÇÃ5ˆÎž0˜"™`·Åºä‹{’‚rðñs—í ‘Mš>Ú·È YrtÖ¸BŽøìfZk¸7êsUfaÆ\Y»»/NNƒ%oA«Ç)‡ÀìQo ×–2@×~’øJøK $ Й«+Ÿè’õ<[ì€~ìZ.î]Ø+¶mÀŽ³ŒÓâúLzOh È߇9]ŒŸ0tƒƒõ@"¬#ÖAGꉉã«p·7šâæ9DºÇXõ!`ìuäÆroûÑ$vè.–rαÇú ãÆX¹/§ì¹ÈX;ßÛÄ  ˜ Ò[Ü)g,}¡Ë¯¿ãlàÇúšùZ·Ð}/”sј8d_ãÀϺԞOÑÑTî?,4Ñ9Ä>ƒ¬;YÄ^®'Å|¼»÷Ïrbôo1„ÈY`……©‰0Qv…OÓŸà»’ wõDwþÏ!úòÝë0Í"?Y„b±=¢Ï9ÇpKµŸ4Ö³6õgZ~Ý•˜×÷Ü‘Ž¢1ä´Ð÷s _&Ç䩶Žm?Ï$Ïž ÓöÔÂ3›þ-ÿ?¹!Ž¦z€çœ¸Ï{Pߘ^o¬š_÷ã~õ>ßäX¬t&Ë×Æô¼úž>2²¿3‹Ð'g9Eͧ“9“=ÃröÒ"ì‚ÚÊ—Ì¡Å.”=ìRãË[êŽé™œ½fùp±ú ñâÒ )é¾ÎqIò* çu%áPoh¹4sI¢A÷§7a' ÆñMJ€^,@s@*Ý$ƒx­ûçKØ™Ž<£ÓêfúsÂœ¤¿öŒVk;Ð'£E‚oñ¬O¾¹a×íäpf³Ù%Š’A6øU¾$Ã=Šä¶X uíŒåU®Âd¹ýz½nx° 9 f¹rBf…ñÒœV蚸Ÿ!ãk*Æä@"q²Ûâ+¬n/²±t(ëîxY‰ä,"­±ÝÈ+C¾­ÐZŨ;âÍ,mJàñ™Ñ*œð…s™¥ÕJ¬÷‚pdBÓtÊM-¶³ΞlÅ •€‹ìÚ®ÞBP>%Vµ}m#rèPr1‘Àm\£”'±Ç‚Œ“;Et^lŸ®¼ê ÷ør ~gT.ç 'tx1.ã·XUŠžaUÑ8M­¹ªÈ^C³᜴#DÒ£Õëë¼ÓïÏê0=\µ0ÀŠôÄõßFOù¸½Ç®yÑ{]Y7´eÒ'½Ä(®%K"—di¤Éò‡/ªè ˜_†G“¯—¥–•LÂýäEÆÈlùV'O‰£@;y< Fjx«&ã€"¾’Ûnõƒk_Þ–SDÂn\è ý³eϳ·pl–¡›ú˜M ‰,Èf¬Ô>]©|˜–0Ò>-\R9׃b!©—# ,.Så¢übZm$Y8Y ø©OA ÿ¿° ˜±1H7îÉZ_4< Žèø.ËžÍñ‡¢e½oæí*-5vOi¹‹ÌÙLºvÊ!JiË´¯z:«ÐëGßLÉê#ºFpom«˜åΕa±3Ÿí^/÷Å”ñ4ªÓ1¹­ª=¸lï;>ܽOÛP6 «<-">ÛáµBz3r$h¬ð%wUð!)¦1‹šŽÇøžy»—θOno0J¬å´7*D¾P¦À»ë‰Ým½ØA ‚~™&jÖa§Œ(“À‰Y¦·ÇH=¬¦ƒÞᩧ%ãÂß&Ä¡¾V`Âá–% ^½ÀïêµkU/dsš©¨@ÆX•lĉÚH€TÐêZ!]aq»&§Æ¦±ÈÛTRg‘ªbE­ÿÍÃ-©fe¡áŠÝ4³nl˘¼žYN§NíÈ|óÊ°©¸‹¼K?{€\\9".y—¾÷o2BA3pÜbè1Ù"i¦Ôb¼ݲÎèÜLÎ[ŠŠ`Õs8JÍóööhä’w»[àƒqÅ Ä ¯Šˆ¦’ɾàl[þD³ûmes™Œ>Ó{ˆ?¸á#7£ØΪ<—ãæ„=^¯Ëo³ÙgÑ 3±n”Ò]K81"T‰éBÙYtÛ‡K“×kÑ™@ÈŽ‚iœ{Ì¢ƒ }ñKRÍ ;`²™Ẕ8ŽE‚ RÓf‘ä/€*‹–˜­?VP–ú˜`ꦘMíÛÊgÚY‹í­ØîÊÙY3&2æa%«”¶`")-^4G²¢é›qÿR*7‰Ã˜˜q÷‰c…l¤F’yú4¦B°‹+t†ˆÌ µJö¼rú]èÐÐXŽŒs€1ƒåÄ•@vÇ2"Oì¥x[eR”%ÕB½d±ÝFŠ…hB0rznMï½HQj•G¶ëk‡ ó7¶DCÍ:ü·­£*ú"½»—Óƒú# , ¶bVë[‘ z3;£®gj¥L‡ÂY¥Ä¬º¢¥îìHÊÛ> C°S>¹©BC]©]V…ØTgÎûóÞûúj¿¾Z榤qk !”’öÎ{e4àr0–Úö…ü¸ÀóÁ!$âxpxžõËõBb*šEmxôäI{÷´{ºýx·[$=|ܼ—W*³«¹«ë™°j-ÒЊ60Nå]Z/T+Îy…#²áªáû¢;ÛÂÐàÒ­íØÐ6‚ä¢ËÓ*iÚ…¾¼ž‡ ÐÆl°¯pâ-"褘ÁqO hýBÁÀ…ÔG‚ЯyÙ äN~kö¹oݱF4î4GÇ2S,q%äd‚"¥ízfùš°Ž#W´&…VÜWWiçžcp#¾½°ŠÍ €(HóÄÄçRsŽ–‚xvÙëUé>Á@ ²n=AŠ×ýȇñ‡ÖÇîŸ= .µñ`*Äœ¦âÛ–~ú…^Ïm³•T!cÅCh"aÈœDÅ‚$'9â½ eŸ%èz5Tû;U}«Æ ݳ¨Œ;Mn±˜tïÝõàC™_Ùå`ÇØ>ófùTêz†f ½=“_j²ÑBø|à vÁc¼±"ÀMÜMæô­¢Ïú5RùÃãº}õ0†-ì·Ž7@,”Þf6…+Œv­ÿÍF¡°ººª^0ë¹™èW5’ÑN)"-`»‹#Þ¨ÿ½¾^Ånk©4aº<%ÓM)îÑ&tre0uª|ŠŒðÅCÔ.ý~ß Erœª, ƒ6ÏȲhõzˆÉdèšÒ°Fæow׎ORæaÐ÷.n1yL.µ ŒVsèq?¾RðXÚ¶ÃÅ0”“ ^HZÃ$®ž°.ƒ;z‰Eì]¶¼i8Þ¼úÖ12êïâÌvY|gQ4<š‘JáêŽõ÷÷ŸlýgoG­S(±;֗Ȫ4t~Cõ£»C8ÙýyAŒÝ·«‹A‰[âAžáP~×Fc˜ðûJ¯ŸF¦¦64Àߥ[³GàÞ¸8†lJ«Gf)¬>;jŸv…I,Þ•èùètÄ5† lËÀ!×z¥¼R^E÷9³¯›z“ô¸Ûk€b×7[šPÖÎ`Ç:a³´Ý†þ`À»Go7£%(Ày5:Åå|÷šö ;ï(â38¦6´²ïSàXèž34@+ÚQà¡i×¥³n«Ñù 7½º¤h35ârÈ^NŒL)º\6ØÆÚìRÍn—;Ô5I?®oDeä©÷ÉÎ`p·L(Rͪg½ÊÈþ]8Õ õÎ(h8ƒ§†û.‰VŸ¥­“Ó6î©éH÷yn¯³jbâ.>Æù6ýŒkì~Q.^G^3æéŠzxÉ %÷ÙöÅ~ê£ AIØ8 ¼*·L\äúšûÅF®‡9v{ˆ†)\eK*fÒñž 4mz®´Ø›Z_„ï(R.fìi1r  ô¥¡é⬃nð.™C&0†zÏ0q·d$È„裆äÎ7 Á³b¸a§gï_n¢l=E«b¬òÌ# …N‚Ô @ys]?Ÿþ/Bõ½ù½°´P·­¡çžD°{*ÑBå÷4?af<=‹š¿ÔØåÃÖ–ûˆù‰ Éœ°ç¬Vãäœðe4Š¢·ßjÄ[âm-[—QÆ$? ¿ª¯ƒý Ò'³&zâ a Mv»t7½˜´–ú’Q­íÓm`V/YX~ŽÄ×€üâ H6|–ÔUùôÔµ½ƒu^E“B?ˆZÔ´è°\Ê !å褚s¢•KfË™‚cM#5¶¯Wl¾Õnô K‹aCý¨^½Z«ýýõëÕFÃ$®nÕ‘ÁØ3:!]–¹Þcº)£7†f¸ÚÎåü·,µ¬$XY'$-}­T•+Œ®ZšÐ« j’(ËF25#CZU]>Êð–ó—˜XÀ~ò(Gôë bªÚzrŒçFú¦­z£d±óf;Ž–Ón&¯´UXêM…›í¤¹?Pš”lô=Òwòáæh¹¨DÛˆ¼³tJ’©tÎc8ä“·ÄŠ¼'Ã7fl‚tJºa`þ²v/·̪&&Ý_îø× ÿ ŸÔººgA<Ûâ`zv/<þåìMŠÄòÅ Z«Ã$ÔˆZåô Ðn#}œÙ!ÜÙ{WeáVe+ã9]¦k\&¤œ-›sMü=MNf°¿ —¹|²™¼b4†JÁZ䄬ß?rºó!~]‰[‰Ù7 ‘nÖ‘epìEûS-DÙ{øî$rÄ¥cºÝÝý'Ý.>™"Âíª|’\Jçdº¾OÉsP¸õ˜äh$QÏèK¥E Üè—$ו!2I]ÍÄŒ\Ãþ¤œ#î‹4Ìécß75â æB¡Ä)ëeL”¥mœö¼ZÜø6!j|üdGmtêßæ S’³9¯0¨idä†õoë«úh½DðK¦yc!3ÞY$.ª¾J‘¬1ùàB0}ty—7 ë‹ï)èÅkt9vúÔCsîùÓ‰ÇÏå±g#Tý'Æ`lû,Ö Saô C@Ì£ VŠt¯D'Ÿ­âlo3z«! øl<ó¹†"½}^Irî&ûãvÕb-,-Ž™ògP=' ]¸9¦c·6Áë¦M¥Éyô»dQÁ¤æÖ}ËQµ‰=;|©'‡¯ˆ2Q2b”Lñ´c7[j§{òü°Kº±5N?ð(jczR ±Ç‚\-2]Qî—R œ/ºœýDBúãrgÔïkæÝE÷щ"*­Õ´gh°3ÐFrÚ8;éCiÈaÏÃ[ª(9HìáèQjVc³6Ä«f¡þR^o‹%Ú­År¢ý˜ZÙ*•j-v©3)IS‘_c¥$.£.PíŠØ¸ìXTÂè|âµíM<–y^Éž"GE¤ò9ž¢ò78.P.»;—“<ßÝLíßÓ‡ëªöŒþ{~°Ù>ÙÍ|šÏl±,òÒiá7d™-½1Å‘˜zl®¸¿÷˜N­'-PP¤â±Âd}{á±ú]m?ñ"h?Ý §Ôë#«ÊtSŒÜ“, mø3nK:ÓŠ*R“‹&º÷ OÎô¹býŒŒ]r ‚ß½ø·ðVæÔ\Šeæ÷lÒü¢º˜î©ÛÒjì ‡EnG¬s©¬¶—vŒSLjÿUš8tëèK5ÂVã8NÚ™ÕE¼£ª,¹•&3Ö‰Ñ×sã’Îpf¡Hf­êpw.µÎÌÑ£§ªuE€TµaÜ\(kïÞÑ¬ÍŠÑ NêÅwßÍ’sUµ©þâ‰ðÚú(f—1"ì‘~.]G7ÊqÒ^åŠi^Ï¢ ®Wãg½0‘9ö9Ô|å)«Ý^^.%°¾íÊ4ŸkÌ[<§—:¢¸&¸—¬œ–>¬­}R5Š¾^ñ¯QºÎtêøÍ9' [¸ÈŠ SJ‡6É|I Leܹ¢.6iÏtã>ëUAŽ£ “!º‰Û†ãç¼1u"*ë²o`|1—öSÁÍ!™Õ'<ÕÀ‡òÞYl9ä2YfÄꊻ!¼²šórBu¯pH+"½‰2$™¶YìÑ8!a-¯îî;u_=œŒŽ…%í’^þš|¸Îóœ]⑯myÚ;ünzÀ™õíó›F>­ô×ÁTª½¤ÁœÏÌw•scië+)ò6ÞñDcrÎ@6²€õAï‚ÔøÈläÚ‹#9ã4ôÈÜ’:æ®IîÁ>lPô‰(LÕŒÍOY×ãe¶Ï8 ¶‹×iÚ¸*Öï1ô,6œÀ <"Ϭf€ÚÀÚz 2­÷¨y‹<>½ÌÐ5ÜyÆ<“Õµ,X¾LÎîà™|¬N:°1¤Ì$ öݧøSG-âC^>i5-ÑÒGOt"Sà¹Ä?Eu¬S8šsno'W’ènþËÇ™›JÛ3œÝÝ«óαßWc}*wj‹p ±tR„ãfÄoõÄé¡F\Þ¶& û— tÑ#Yw£l/¤U÷Ãá©{.^•]½U,üå 6BuxÁN‰Ë[ºÿ?ð L~DÊYš€­»Œ¯‰}„íOþ¤©Êîh+seŒC¾ ÖÜM¾>†”ìk­A[æßÍ•D˜_ì'÷ŒïîHøóÍâ¿Ý‚7ZôD€ŽðQ¨Èú¤VIÕ1mèÙk,ÔUm µšãuÿ»ÔÊ¿ÄÂm’Û¿]e]=@UåH.)Ÿq‹!Ø÷ [ÁÁŠ¥71¯àh~ð# D!X³ýH{9Òbr´ÉIx=o³žvêb&Í‚K!Ô¬¨Œ$[«Z§UbâSU#òª ÿc³¢‰‡VZE[E0Æ]–XvDæ£Óa¸ãËËÃÁȈ-õØ°õ`GB¥‘¯2<ÞêÓ ¶–ÏP1ËìîÛÃå‰Ř~Þ4“A [ßDÔY)ŸÂb $ª]ÃÊ·â©«Ž06<·‹úÀ]ÔW&”ಠ}îÖwc8_'È à"šI§0ÌT`àÖ ¦jÔT<Ñ̦\ƒŸ!´Éê[Ý]qAkæg?ì<¨L?N¢›[Uš®¸¾éŒ¼–¡•?Š³[s¼­2'0B?ÓÃQBžcÂ`dFñöãùE ·pˆ2áß“KÊ]Æsq7Fßppˆ:–€£Iî"ꎸ?„fkF½ \L² ›PãX(¿ãw¹}ô©¨RÞ¿5M‰þu(7f@èVÌò#hdFr½2~ LeLå¦ñǪ{”H¦xýó 0€\&©äŽ °#ÐkÖ’­%YeOŽ>èfwÜýP5e›ÈšzŠ¬î:;„áYÒÖ-Æl^€˜ïåÁºš¯Ï×iYé G#:FksòÖwß †sõÓÐÚ-½[(v0 Ž‚c0†`£!ú߃?ÂCºQñh ã/º4ëxSI=U‰çÛ=ëIp€á$ºèEçöÑiQ±hÅ, @±ÀpØá{22†bw ¼A†z=þŠÿáúJ5fuWîæ_öóù—ÏÐx¤ÞºÄ *¦ f`LÌlkG`|%‚ss8iîà|Í¡¹g÷ÒlÛýú­»µ@ÈqA:FÜýä·Œ_käYÉKó;ì*‚ïlžÞ3ïwµÉ½êçB•»O:BYÿ‡æýL}ט;ðù·¸ÿÃ7;ùeWx¤aÿè^M‚_v¶óL…_¥Ó1¿úföô»XWFUc¼ÀxùÁëƒ/«Cfáñ2Z«w§055…AÖâV U„´2Ä»ôH6Üý%7ŽÐ—*_O›ˆ†V^N­·y³ý '"å¬ã')l²žJ–QN°as^D Ú,Š€ËC½O³ zŠäQ¯2”ƒˆãûés7ºƒ÷ê›ß-§G9¹w?D.r§ämœ>Ò]Hžq¥±üWX¾÷êGrt?hæS¡÷ý¯¸ux©rúòZÕ,õüº;ý×ƪût×JýyçÆÓ9½nžZ5sÀ­yEiÙ|ýi­_‡ƒ~«x_Âibë.êÇÅ\3¹ly²ˆ¼W΢:ØÜy½µ¡vvwÞ¬îo¬ß³ cª89sؽ!s$wÁFû;ZôÖþÞ éá¾G’I€ËwÉ¡Q·ŸÇêk(ÁÝð5ž/Ü›_Ì•Ä ¿d¾Š&L›ÓgÒ÷Ô™Å9îNê¿Œ ͼœq;d–ŸyÀý_ãg Z;a7)xš„ä4n«0\¶>}ÕºÉm—n•ÿW¯êÅü¢ø‚Éÿ[O4âÿ«jŒZ?ÅÕE¡ÄiŽáýés ™ƒZ‘çª(v)ÐuñFÁ[+Ô€1œŸ‹vÏq)J¥“ùº|­]FívØ+:ŒUî݃]‹zBH—L uv*þ…Ã>a¼ÿ‡¤rÒƲQ‰±![ìÀçæF¥Ýá+Ai>Ütnï^z ¸è?†væ“ÀTØßÍy2÷Pv/Ã*7“fcï:Îx þ¾ñ­¾à' sMÏó÷j¡>gT‚Œ©ØÂjó×°s®Ý›òŒ%«6œ­JHD¾ô>C}ë€V‰Ü°¾ø\À©—› .­)I:´”›Ô´ëJm™ÊHýÀz9óFº9Ë«³Ù yWݸØ‘Õk ô²Ë^£:(W!9“ME’Ä«¥ Uo†R‘…”`¨Ý!º+M´³F¹2]V©XeQWýôÔº0ߣný*èÕ/)õE?ÀPÅAý,ü¡J—ZvøÑÝõ¨/Ö0Æ¿¾À™–;Ä wW´^+ʸûG󉜉îŸèâŠe¬Yÿ÷e”$ ßCôÒOi 7HçÄ*9µçë£#«>ɘ{ßq‰AfÃ`ЉÈß?Œž®±z’A·‡Ñ÷±ï®êEÂ6ݽ!©Ë±ùÐý°×"Øur-Â=kp…6wþÕ<,àªxôbU í”vmîÆ%@ö†H]#ÎZ缤ÕÎ:;: iƒžš’ºohpäâJJïð5úFÚB©ôXwXF‚q|Êd†- xDÈ• ŽOõ6µµœ¯3&ðll.fð~‹ý7é9æùgõ>y„Ф§^Âô!ΈRÊùÂwCSöÖÄ=qäÅó•-é‘r¥-zsëË7ŸdþçƒâË$8ÑP¾Ï#íß*™=ž®ÏWfÏg=ÞJ =é,«™çêÓs?CajêŽNn[vêáN±:w1,cá¹,Bî-¨ìå,]|LÇtÐOOaèÀ˜”$änX“µùú’šÊp†^$×?j!áx%Žß‘‰›VÏ‚˜w¼·“¯ÙëÇ;.Q<÷ŽZ=õêi£R芺I€³€5œ2nx+nM1H²òV’×++E¨p1@eÍW°šE=6xad•¿¨‡Ê`¡Õk"­`™PPacÊ=­¾Öúé÷Á¨¼«øÉw6yÞ˜ —Â[‰­y‡–L€QC­zÏ0Åø}‘4” %—þKxtV þVì¼ê€‰f̸‰X»9¼í‡+H, ú¤ËÝ[1J‰<<Å°QäN§Ýauz2kÏhÖcì{lÖ;2ʞظ\6À¦ñµçµš8º)(•3àÀ¾É*}c÷OÐ~ºb£k%«•…?vⲎ7Vtp ¡•®žœ¢éKö¢†QcéðMÆäæº@®¨¬Å™î±M$Ø&ä¢2^árGà^Žâ¸'m,Lt'‚Òû ÷ïÛˆWj„×›Ú~_øtw§Ã­¯L8`å|ýÙãúMÕ¸WR×´¸µd„Jám>Ê@^+š²Ð»¦B£c§€ãxk¸­ ¹) Õé£?«zY‡u“ª}“cï;æŠV pýx;wZ/W5c@Ì ‡Ø혨| :@£Êº‚6 ®€JöÉ?é} kCsÙ`>Ÿ…ú\}¼üž= J,Ó:kûotý (ôu2Êà¹Ù„mj mÔ<…‰1 ++ôX¶7wv÷1ߊzö¤Rf7rˆ<2úI`H¢óòsõ uÁÙ˜£ Žr|*µl=*åñþèJi*-ÿg„Ÿ† ØC}ñ™ÊËØú`žF€xüO+¯H9ZñM½ñ_WW{:ä°­j³•âÜiœ¦hå·€½¦$„3²TLj3°]´âçºf®ž¯U3î§%6íb}Y¼š VèâÐõ{ìô°¤ Ü›0B«/ÈwRƒ@û~c¨JÜkŒï$ןÖé$Ð2´weÇŒ9¦‡¥QšLÅÒ4Êó0ö‹„|ÀѺ`ŒêaØ#ºž•–.zÐwtFÏÀA¾œ†Ñ^¤ÿªçMÁƒ{¤ö2¢¶ÚiÌ¡?´ÁŸ ®˜Üê–X%~ãàœÍtÛ6ªiý£ OÇΛŸ:œiÐ!ç€:tD«cÍÎ8µºú¤R'µ­œŠˆø]‰Xc Bï\÷ùG}föxúèè³''3Ç•c ³ô—ãÆ_È­Åsq¸9èÚFÎæwè9: ô/¢3“™Ž[;Míþ%·hÎ÷ŸQŠü ÜDCÕ`=@ÍJ˜ «“KÃ]|`®¸»9U˜´£ÅñL Ås“/,úÖøÃÖ…Ëk—±gèû —g“3ŒB×isW#ð.Fg[LESŒñ»Fþ úÐ :ã„<ÞÙ‚ÏeÐó*ðJ½ïª $­ ¹#¹~g„¨ã8ƒÛ(«8%Ù%¤Òº_ûK”<­ßÙA 8`±¹*|ψ;Ê(a$‚Óý&‘ÃÕh‡æ-ÆÀ >NrCäa(äjÇ×I.ŽR Ž/ì €}œÈŒª(ùÜ^‘J­•ñœ¶ÆP ˜#̲‹¦§¢ ®‘Õq¸“Ìþ£ƒ®n/f˧:ŸFe/ßÑQýäd¶6{Q>-}0‹çVÊUfNŸåv‡ÎŠ§gArÉ"ŒZ‹ˆd]²~@úSôœê=.µ)|H­`Üî@Æ8Ô'C,q ÿß„™ø©±¶MÐæmÚß“ñy_§¥eÝJœ^ò´—ëÖYõ»íYê }ƒŽçw ;%ºÓcúDÃBC@õu:úíºo抎ñÀy:™Ð}Ù<Ž%/¬ÉÚqü±†"A#—ú‡ád–‹Þe«óÁö{>«f/Š§~¯^y]¼‘û×wâq}bï©)ÿÒQ¶;JGëùÛ Ì¾Yþ%ê-Ì#„Só?"§"ÿ9Ž([¼Ôu+"–ˆúT’¨‹¿Ñ8ïRc·ôöm‡Äd ã(^–0~¶§¯ã¾é37Ý—åð°@<;Õűœ°ê®_'صK'Yræ” ‘ØŒ/‚öà²÷b>»e>÷“•:òe­¶ë¿f9$ÄaÏ9S s ßœL”'>ûíýüWÄää†9àÓfÍ7l{NªîF†§é… •ÔJ&¿ÙñÝ|ZÞ¢³‡scýUÛì±5o9šÔôÊ5Ë6õKÛiÛcSs[f•\’yÃœ#ÖJ¹_ºéüaRþ´¶r’8ˆ‰IÚŽXxÑÝqʹ›z~Ý£,`•9Õ=ìøs×ÄŒ#•É.—©×“(Ђ4’«%ý¸§MSÎû²t#®ŽŽÂøËh‘1Œå,§†àC±zÑ^½ê÷>‚–ÙýH9øþÓçÔÁ(sÜ›ˆkÐòïè:‘í—ØWØ£}Þsé܉ ÌÙ¸sOäèXäx¤ÞìÕÞ¾CñU¢fXEuF%p6ƒ]zÔCWªYJ¾ºxJ{üø1NKöÐѺ„ïøÙØQ"2å¸Rò¦ “0[Zÿ©ÄýH{åã‘0 .Ö¶Â8FRÇ ¶ÖQVfNÌõù´I;B|]ANŽ¼JËJm­„™ÚÂüÇ™"ü«Š•¼:1­\D­•…ùÚY4Ô¦µìù%áÍ–ÝAæX‡Svi‹.-º%áÍ–„SpiÑ­÷ŽFöÐJ©Ûxë2}cpŸ]©ôÁýt¿5>Yæ#²ÂªÒ¯žÆ~¸SØsä¢,.t’æ,Us=RÖ-ÜÆPó ƒá7=ªrÏóóz¶¸ì~ôW§IÁœ^–˜Èʉ/÷îÈ÷Y(õnl½rªùÛdÿPùb­÷ ã]ø¨=çwûˆ|ˆªóˆŒbm 9àØÕB‹MºÝ¢‚hÄ‘r˜†œ±÷XñK悈9.À_a¡U"ëg Æ”ã®íiù¼DAnb0þ+±ÈÚ#xr!ʢǙÙÂ17n.ŸQÖ4gû½ 7j.Ù(8™òÚ7s-;o•¯‚QvÈÊi¨/q%–•£3­1îºVÍB ⮣@i\;ôÀsK“3üÿ'æ‡ x5ç.§×v\MH¢¶‹HðRã ‘Ð `!ó€qŒ)ž;{²ØÛ\«r΋ÆäGší5M6S·ÉÔÔ‰Íñ8ž¢{8õ §ý0Uÿs¬ã/—„­ÎcpÜ ewµŽ»¾]ƒœ?³E6úN}@y§ÅݢܕçÁù#p1…$X¥ÚFWG †À #Ê¬KÝn¡ò×䤱@5o,w×{Ê‘×ûãh6=ÅjØ0×Ì :Éô´+8TîwݼK®Hç `™º&0¶{Ì'ŒÇ"yB»`«ŽžMªsÛÛ-òühÜY¢~ q» ®Ð7B¸5æòíö$ºGèŽ:è&^ •³G¾‘\@X€‡$÷×K‘b¾‰ó[ºôiEhçÄVFTA­Óom1;*8Æe­ƒîÑ‚ŠÌ–€¼Ë…”¬£A~:ƒ0h£„u3à“€Aƒ víÊCºuÆú ô]IÇjž™"Oº@&së ¬­BùæÏ«[ÓG ½W^ôÎ&ó˜­/„»xÄù›aÁ ªi²ƒÎFÝîíó²úÁd¬—‚V3¼²£a@¨õ°n+…O2ÖÏêŠù­ CRaõä$¡UôŠWúyºÑ9´C;y½î¬”¸§¨Ýlµš×ùä;øX©]™:¬³›j0kÈž«ëÇ2)¯+¸T›¹ÀsƒYJ©Üò-=²îš?þáø¯ u,¢ëã"áüÛË É¤Ï{lL8'ì)Žm 'ä´âd±œÓ‘ÒØA)˜zd¦‚¡Å/ØÐ íã×`qÛ÷•2»+–0hO+ºépš[®ýúôÅlõ![ƒÎ´U«Cw­R‚®ZÏ#Xód wÇCŒÙÎÞðŠÕÚt´Ñí7z_!=`ë/Ý´Õ¸ˆÉ|2¹Œú2¹ž\Bq¢edÎ|çûà‚YO*E—Õ˜SK·†‰1JQ^"=FÖѶ½¶‚ºuõpŽŽi(Ýò–ËÖu»Má˜Ë¹²6¾ ‡Ûz€ºÌ@iöùˆu*cJÊ NY6UGJ4ÂëÝAH¾ÊìH…Ìé^˜5¡ÉÉ9›ÖéËjsVi ¢>õ³W×5tÀ4 ¶/j…émœ»Š³†Îhº[æCL† ‡Çð-ÏŠª¡æUñó«ˆT“ˆ,5§¾DŸø²'¾VÿÅC>)Ð6:12oµ‘ê†ÃÀ¸_HPg¡ƒ›’v;Ò d0ÛcTA¶Šá"LXJo_ÂÖqtFdþ |ÂahÅýˆ]=ë4ì²…"9QAÅèŒ>Ù0¢6c€R,î?:ô€M›~8ü1¯ó}eÂÃÃ÷­uEF;ÛêàÍÆÖ–ärýj8N7`7 &º9Bå z1aìù}œÕ—^⮬عãœuœÓVï²Id%®ôA2É¡*n{|Èú’> 0ýÉ·ûñÎ~yn 3‡==”YPâvVJ'cÚê}µMÓÞXŒ[òEÐ$5Ì«|߇nñmÏ;±¶ÿsø¿ü¥|ªjèÛâ*jkŸ'èwëõ¤F’×·úMˆè„úH½6NR¼èæ膶´·¿ûzu[M£f]iouí§ÕתôóÆþÁæîNéps{ãàpu{eF;»‡À‚®]½ Øu»â¢ŸCs“+QGìN.ÿñ{Šc`¹7ró÷oäqnz­¢Ïž-Õæçææ(@¶:ˆÏ‡èR½ŠtŠÚf¯…½Ø…R($憿Ž0ÈÀC .Þ‡Àô|I/.z£zÕ»0ñíÑUª¡ðHë·ŠI2²…hÃÛ WøœXTÔ愆õ%÷áÀqÌIìÆíèüÀDCñ5ÎÚ}ƒ®æTH7‘‡º£ö™áøºSÐCP3¦$—0 g Œëòs-“3Á3t•€†“'^›ƒ TÐ;œ¸º’õÜžÛ¶ulæ˸2‡ Í<²Ç²(¿l¾Ù}{¨Vw~U¿¬î»pøësã /¼ ë´¶ô ã¤`d7n쯽«/7·6Eùâ«ÍÃõjØ-µ·º¸¹öv x¯½·û{»¨ØåHƒÆ™±=§Ù A<°¥„ûü+L§œzHšÌ{aà+ïeòœ¡¸¼kdžCgŸã¹¸Z8H ¢a¨­e¼Ù„Òi®ªÇÏÔaˆAhÔ^'@úê`„æªê%,̺½ªææF­±0÷¤ªÞ¬r‡VÑ6irMµa\¤òñý¨bkK œyw-¢&ú^‚ ’&G”åÃÐHXl9ÑXïK°"W¶`.€Dös³díénÂ=_Ê2¢J±ìHf3ðD“¥yu¤˜¡7¹ ;ý„GÌ Õ"ÙŠËöèâ"¤°DH_§Y+¨RG¬$ò+E¡ôÉì?ÞÍÎ rŠf›÷É%<+ÉCN˃츙<Õ:æÂp.¶cZ40ökë$Ås{8´'XÜj>ð·ïàÃ'[BS$ΔZY~.,‡$hD».lÙF7ß»¨¼;€RÎÅ€FIšC– × t»¬@ý³Ï”Ì XjUŽ»ÞânÇ!ßG‡ƒþ0ø,¦¼À”B±M$>躅CÔ «ûôqu¿ OÊòÎ/º€öQ²fõÂÚe][ÃL›‰/×´Ìø±ÀZ<-á×\èP¢A~m—ÀHàÌÑÖ:Õ²µîNÇ5›JÐÉçwÂC8âsx aS/Öɦ-z]K€v¶)ïÎ6ç”è€ÖU©d,¯Ïvù‰YßJ{1z·³7·´®R§Ð³ðéo‘xÂÂöêë͵æÚ6ôÌ<˜°ºÙÓɲZßÚѺÐ-†T¤+Å’<óÊJ8ƒö¨ÛǹÚ}ù·õ·Û{PHžr áeC÷Œ&wõò®JÔEöZס‚»½xÞy‰rQ4…zAÄÞ%þEoØë³ÈÙøHV'n†zÁÍÐ49ïžTç¾;5àŠøÂÁ Qxx×îÅ\|­DöMës׶B‰&ÈtMÖq/*ÆÅ õ Ž€xï­ïh¬v{euå” °$ —ä*¶a½RŒ©K†7!—ä*¹j}Ý™ÅÇ1%=â'ç _Z-Ô¢^ëJE»Ò•’~Â:Ö‘ÆØ ^¢½0%Öâ¿àÞZ‹õÎücÁ•ðÍŠ“€€×òãÆì—ŽÉáÂêX9PäàƒÀ„±=b÷(Šð´Ù)œãÀY™Á²¯ÜKCWDì¨X}J8StÝhV·ª”JH ó/ÎÖ˜L­ŽUrß\J×î j?1ú¼^àĦ¤˜]†“sJúÕ.œÆ@ ;ç)0”–‹w^BK¹5¼ºÖ$È©ÄÙÉ×\ ¦å;ÀóHÆ‹Œ=Q,Íg:1äp4À^œ+‘ܪóQCÕ )y.#‰Ÿ– “­õ`ú;á ®|îî¾ã܀ю<æcnæE+vðB¶«†´€„ô@ÍãB‘Ëÿ6¹^^×Pxm©H®D›êÈý"\-Q"Ç'êçÕ}ÊžKÂÈÃûÇ$´%ñš«ûŽ¡lWËçMœI„GÓWä>ˆ`E‰œTпM/¬Ús ë…½®%HâØ›| fv›¨×6Z;«Ûõ<ŸÖÒØT²ÞwQ®Ûöv_ÉKÇÁvt~R`Dš}ÓzÒ@ôœbc-λL5*A$)Þ ‰¸°ªèdøîZ2¼í¦±^à É…´à–¾¥ y’Z“3ý¡/ÀõòûŸ¨OÆ—q¦Ý²@ôú1½+aÎtÂûêÖæp>Ùju`;ÇÃë=áŠóâæ¸ïtfêÍLš7ayñ¦ÜLNzÖé:ñéI3¡c&S÷ˆâ¼¡¶çω¿ Pð¾˜TäøžyO S¢õb´“ëaÊD綰¥åyÏÇJò>8ðNݹWO++ΩÎ‘Þ ‚ªð“ˆ(2?HxÙG!D}œµ Ñ#ä Wáç9OÝ«xšÛ½gê Ý4h&5yù΃õÑQBS}_/þ ®­ ˜y'ù’Ñ&ö,¾ Ù)Z€ÊZÈq³$ì|\›p!¹Áœ¤‹x_÷ê^´§|'º—ß´)Ö®x8r"ô)ð0G¡ã`"ðm\›yÁLk²7²÷ˆT[6™*½Ýjek¦Q‚ªá$Àñâ1`ñ_!ÿZ2§ýé>5qû•¾½ìpä»ãŠsL^ãÚBvÜTDoÑý¥¸AFÏNNô%W©òh)(¾ö¾¯«)Ò“&k´£†ÐºUµUˆŸB,òãÄ“TZ“® -“ÛÚq²ž‰¦”VÔM‰\Œ~|¨&‡@ç˜Æ•²i–œ8=832i4†t¦X?#‰K/g×Õ ¹Ñ » `‹Ly#£8:N›Òwè„€c¿æ‰ž ᨠh|‰_NpÇöb„ä$[µ¹¤Ï­Ú|e 9‘#T´¿ùõÍ}´x"®2‰SCãDM‚|<Š¬ `! ©Ó.‰-—Žd5®ˆÕµ-O=ÿ ÐAì2a¢Æ5üz¡0½ùóêþ Vtg+äæbB+RK=?[ô³Ñe‚ãìì¬þäèô‘Æ5’D½…]£† PXÊ.¶xÀˆ‰)ŠVúÆ@¡ì„MÚ ÞNòáŽò4®ínmm¬6q;9Paï*Ä=bƒ5òWe ¹ÆªrƒÎ¼åèüœƒÝø}èÞŒ–>xå~ôÏî)tÜ˃*ëú¦ÔMGUZ˜”:vþŽsPO¾1æ½Á.Ìrz´µ®”fÑ»æ:þÍ[dO+rÑîtÐM–úÅø½×:Wh­ÁŽ£ƒµ Ó ˜DIË;NDj£ã<;£:Côhßâ¬0õ¨=3‹ÇÇ(õËæÎÂ|skcu§¹º³Þ܆üª¯í¿?üõË0™N_w–AGó1• äs*Ôl®ýúJ2?BOÑѹ› ð$µ+©e¶@N. a„òÀ1ÄV¿3Jð?HÄp1ƒž*®Õ'»z‰‹luoscçpÿWµÞél£6óô›ÍƒÃÕµ u¹ û[U­ÿ²»¿n0kïçÝM|¥ˆ4íÊóqÕ~Ó4wÌp1ÊÍòOç‹{}cmkuC—YßÚš6 åšugl«›ÍKÈ‚Mz­°yøýœZàõf¡(Ž£Ê«I­0Œç”a’´üpÿíÆsCÜ46N=|¹Hô0»i »z8ö®(v¢× ZïqÅA›°žÆ=–T}öòÖ|TYݶg÷ÓmÃA;49‘ÕÈ¡hôâ3ÔÉöåZl_Kí«è±Ý[‘íK5ÙÊd¾H•íËtÙÀ„ÎWfû*Úl_¨ÎöUõÙ-šÜcj –iXOWdÏ2GÀ@ ÛnN¼4›®T0åá{|À+¤lÁóVoØqËí6÷×ww¶~­ÂÓËÍUØ REXµÙ-)íQ_€óº7…£„é‹x’žF#ê+’ÛŠ„S³aY{o{pb*y§Ô°œ]Ú€Ÿó7Ñxõ’è¢Gø gý°yKjú¼]ÅûJà˜*‰Î€*kçíçî+çxnh»‡–=êìhþ„³Óغ@«ê`cã§æÁÆaEý ÍΪj¾âígGs'ê;5}vÔ8ùþû§ÙîèÅÂ|^/üNܧ‹Ÿ×‡ÅÉ}àçyxn,É˼Ì/Þ§wA‚ëfnHyqRÆõcæ 6YùþEâFt‰­*Š›®ÜáÅT=À\7æ8:±Mã|°Íêl¦­Dd ‡—0”¨n! ”ý²¯IUõFݦęƒE>9T®‚ª1ºˆ~‡ˆ_»WÑÆƃ¾›qIÃ!Q0@Áj!_&w¾iƒªf€Õ ü®ãžŒPà#ô—dËÌW±„©¡!jœØoè¬o…‰“…¡iÎG½¬+“ÏÕ4ù^5p.¦d†À¦T¦:-j3­Ì=7ߎ¢ íß}Gкó¯Ê³eÔM§—U^úr™iàZ¤¾s›FD^³ªÛèäxîf¡ezoñƒ3úe¿S‹ðßüœÎí`P®ê;õŒ(‘3ÄnQj¤à½Xp,ajœ3öïªpÉôÉÁÛ; 5ææL)ƒà¦ Rs*“?.ó¦(/(7=vÕwzÕý + $o¸ 3Œx”(ð½m¿A>üC²1E *!¤zJÄdÊ_¬ÜþÀ’ž@ æÔ ÓˆTÞ+¼ßÉ«íæqIËŸ §ØR^±sîôØRó<SÌ‚¸S{Ìñ&œ)@¹O߯¸Øö׿rW¿ã–ÿà|£õøAϧ™™s¹iHapMz%8ß¿ópõÜïx´¨š)™¹1µÉ•œA_ßÓÛ'Á‚O.!ÅE\õhñLãÖ´SŸÁoÙÀiô¸»™\ïá:“õ<`!¯eÝš3°ÝqÏàyç[r7¿h׫Þaòò-¸ä‡9Z5]Üx··»xpÜ+VrWÑ÷´Ue–OþÎæU ïß™}Íp3§LÍÇÿ$ê…ú $žCõU啨ªqÓ&;[BçœÓ¼9 {Çù|Y›v!OVŽB ÊÒ´;x gÄõ¿½ÞÛC?l¼@gÿ蜀ҲnT—Ât¯íÏn½¢ÃúÖ«¹6À€á‰qOZÊ}ÒBß#8éÞ )J‡|¹Ý!“v8h†€G ®CƒSÛDˆÉ-Aî,æ% 7èØO–×—·$kFï1i™085þÕ¡a_éŸekÕŸ’#R¼ïŒÕ¾6í¯à€v¯R_ËAmþi@ÈôáÖÏ/Ÿ2õ¡´ÓxÕ9QššñNqRy¤š[‡MôôsÈÂëæ›ÕµŸHúœöþƒëŒÃë‹׎¨¨€¢Ë õWow¦2ÅOª _nÀI{cú¨4wRu3x»wR9©¤êfù!*Æ×D‘!Ô*¼pFïùšÂbXÃ$¿9bN‹Ô¤&m쬾ÜÚh¼YÝßX‡æ !dÕ¼­ñèH º$- Æ=´t9Süh¶úvë°rB õZ†’†H*ò—ÓÛ0)£œâ´—©7ÏU܆CÄÚh¨­4(–‚¡ìu¿ß^½'ÕŸN³ßšRý ^ ?Žé콘ÿÈ•J»×Aà«û¯¥è´DL(´È¶”Ìl§¿ÿ¾ ƒ2ÿ½JÌÑÊÞO¯NÔk"u$Zùá‡ñ-ôê;ªªªí¨¿Rú –°5ó‰}ä‰2ZAÁΤ|öá¾^œþ€åž³—ÆŒ—?¤([b-;$3¾ýÇ«–‹xÈ®1Fj(”Œ{|kf®üÉ{ó`|ÀØuh-ºémFçèlÒ!Ífú´\-ŠcŒþû ¡Ù’ù½ð ú^2‘¿Bx*zΕ2£ èÚZ·ÌiNѺȃ™ðŒ›2š³”Ö7üµ¤ï¥´Ù‘³ˆ¦§#tøîCC¿›Ð&{m†ÉϬöÃÕÃ͵ «åcW;ÿ7¬vªwÌj§oŸ·Ú©·÷\í”7½ÚÓn/óW{ª…_sµÿ†éÕ®@fV»ãò¿fµ[/Ÿ¹ÚÀ¸)³ÚõZʬv»ˆR« EòW»Añ¯v*©W»·Ü_­6ér8Ž1‹­;kZÇzÜÒwAýñÀ­=Ÿ ¸9>‹¸£p?’à–0„a²}m>ÈoûW$žQo–X¤ü‘¦IFÚ]éáHËg’ÌäiÍ'%©uš&(q±.Ÿ”¤ËC Š[Þc"t©½ÍµíÝõŠ‚—zµ~‘*{4ÿzôƒ@~>ñ8‹‡—iꑪôþƒaìH5ýxTmTˆH­¥%ýM®„ýÐÖH6 ¾C×wĬÀ7â­ø¢%im¿åi°Òtß)*®ƒRƒ[g§ây6”faRX1ËarJÚ›ç".xÁIX×¥õ¸åÒõ—YsaÔ "uùqùkƒolj_Á×Ë3xŠÊ(5‘Ì, 0ÿ —<¹{Õ"I¿¸'áìÑ;ü0¤ÇÖÖðÜN×ó¤G^§òä¡£>jÝm§,j P˜Õ{}ô (sxÓz$§©$Òþ†ñ¸¥ÏZ„Z!!†Ç½ l‹xˆ@aïh ošHÖyp¨#+EAå£Ò<ì‹UE1Pª _+š¨bfR[·`Ȫ Vâ\$­áGqë8Š”<³¥†GvÇ`‚ɬU×<ÏíŽÙ&’‘¦æSŒÕ¹I€àSE[XY¦”ëÚ`^„7+ÅSóú¯Ìs\TËðÍs<]Ÿ9®O‹ÎíG^÷(ªÊâ¶\òM ÔqnçÔüÊqR`©:y·õFƒš_TNf=*X`Ø-¾²º ªf6~øë|¡033£~ h¿ºl6i”aj•k ª èK -ب„T‡ªÚB(ÑhM 0$?’I2üða…v6fq  óžó ê°§S)•i A Ðr»u©G5>?EÑ×ø¡ˆmè{lÃJ ë“ëëtI¬j ÅÅpœèÖ«×| šA¶0YÁ€ª³’Ldô_¡É;¸Â¡™ø™ÜìýuÀ¶\¡BŠ‘6ê*‰.9Lìµ­aÛ"Â8]Ô¤iä’,\°lœVÑ)õØñaL7&÷ã†R Ù§Ä.»T)ܽV¼…oÓ ñ=Ûíq×ÏÌ JŠS»5•zÀ>6HÊÙ© ¤ìÑûÿïí&ò¸+ã^ííãš×JoðÓ¥0zäȇmÂ?a»ªæ,ê-½®Øú]D3XÞ`úÀ]n8¯1ùu;~ªíT.IüaÞß}ÝÜZ×cLX‹6Ž“0òHÔ«±b!š›§F•!Èâ1 u妅k6$*ÍlrŠ²N,[뼇©UÖ¶g°^|81º€FKÔ•´ ÏU/1+5×Ôäµ53ìîìîl®­n5ßìÞ‘ååÛMèy&¾ÚÐÜꯞ=9AÍý££ÕÚ߃Úï''Ë:U{°±`dyöèèð‰ÿ™=®×guX0ò7÷Ðu nƒfUá–Ö–<¦_äiK·Õxñ<†¿¿Ìþå¢|*ùÙY¶—Y-–L»<&¦AláÔ¤ÚŠÉ_,¨³¨«”ÍÄç)·Ö‰ŸÜ’]ÁxM‹E:p„ãrI•]Ô¡Ó°‚Y£ýª>²} cÝ›l%4<ºHEÍU(PÅ6K›J“Ÿ©÷â²cÈ.IõÞ÷âë^êÖÙí2! `îÒbzu’ÞÜüL†ŠbF Âã΂[xôv-g¯¸· ¦äÓœìÁ½~ΡÁ4˜ðÃy_9ö9’wÈØrO)´Òô3„!µã2tuºyPQòPn«A@B ”jÕjr“^5È¿ßGìCW6¨_+ÅË ö¦µ«º)ôy,þ¢ŸDÙgí¬2G|Í®bÐTÏ‘¼ýPíŠÖ¦úÞ=>ÈÉ¡ŒŽu?¿úòÕz¥œwlÈCÓ?ë¸k–%ÔÇŠ1Ù%Ž›_øÊ;xIÁòôüm=Xþ@2¶R\æVš½ÜÏWnÝÁPfè–äÚØßßÝŸ>‚ãù&ý˜ÂsTYÇÕÁ‘GYb#,NÊ›“¨j¹,~¶ˆ×9‘ŠIçøî¡>X,†¿†' `<‹Û¤HS}bC JÈôi,¼bl3 ™’HÖÇ çc/æ‰vip)“-;´û[»«ëäR3¨lÉ76l‡K)Êk5…:RÛê;Ï_:›‰½ub䀩çÏSwÞ’@†06>u¤ëVÐÌe§í:pyÉ+åÚ  cvE˜ÉX°+ÃIe§lQyŸYöÆ°¦räÙÞ8|³‹€Kñ”H´ÖÚ8ßZsm<Á?rúÍ°XŒY¨õžÆEM°tBÒJ)Æäµ#o¬¥aö˜Ç \:PŽ‡*O2d<åê¦l¥åB&‡‘ò¬L½Rf¢ #³²Õ™¾è£Ñ ÉûŒe7A_ÀÀÀ cmr,jLØ·jÞÀ£ Löš°Œãï~ñc×a¾SÝ&Ìšˆ+š9C2ÑŽ[t ”˜ ]y…àX_X”jC–h~O`°Õ^­0Lä*=An% œœç¨,£;ºyK ü5nF¡„#³;:"aÙɉ_]ÃcQº«#׋ìîÀ¸0|„I?rœ„´$Oö<1õ„ØQØMò{ÍS§çÔ|´Èùç(Bï?7ó‘YÚÓ‰OLåçãÞjmó`M^ëò[¹ï‚Oí$Zê¨îU4Àýp–f|¢q‹Á¹´Üfh®yÎB} .‚wb=jÌštB ©÷!,(Ø=~‘`’ª¸kÖŠ©Ýhaž6 mØ{œÍFmoî Ý‰žä"Ó4q¶Öõ"©-Ìœ)¿ªXATÇ Ãס‚j=ÎÔKåÚY˜7Y–1ÇÒ¢—aiÑã|èáMS ¶œÖ¥Âÿ¾!-}ЭûDãÚúIíè¨1¿°xrrßQ–^ܽ¢UˆÊ?éuMËúþ‹ÐuÜv†Nz£ì y›ÝÔô²Î#ÏA§ ª_±šP©5ÆϺý¦$pÞ¦ >£*÷¥,)Áæv1²¬óõF½aÝÉõÃ9@¤ó<çZ[úÁ¨®îoßUáýX´­í;X4U)?|òÌ”Ù·Ú ¼ŸÊÜôÂá×Ú]'­ ,‘klŠìë''ßCkŽ5ýÎ>•Ê÷Ü)î^òbÍ÷€»I–¾.Wm,Þ¥þÌ ×I,G–7zæ¾´’I»·+?½~œZA´aakf]“†¡´~¾þ´&+¹xOLzÈZò–Ò½ÑÉ©A˜«úLÎÞn0*NÎØ×Ôù¢üò¶ûwˆ{¶wm÷Õ+}F"ÊyždÂÑíþ4>iÅ õù«‡žŠ“¸ ¢‡Œ'5?{îLn“«Ç£ë££'OùZgF×w=Ó Årº|}˜·ýø8½]…½v,Ñ/»ñ0@wïÜŸ¾Ö‰^m§J*9Òiˆå{StaÆ9þõZƒ{ï·¶Tþsö†c­|(Ö”«üU)ÂÄÝÕi`/ú:K3oç´¦x×Ô¤p=sn¦'ºáÌøÏth¼—ó1ÝJ«®ìlç©®™@LAW\9æi¯ìl§‚î©Á‘{Í›‰5AíwgÛ½êE‰þÎvÑQü˜|—V÷ïàv¶W¨¼¾ˆùº7ż[­Q_F­3…o¸DvûÍ^wÅ\õ¦U©zÝ‚Ü™U.â^0K’½VVÞµrþ}1:F'¡H⡇Üé’äH|Ÿr@»² “¨óãçFCÒ·zFáþª"zN‚ÛdÙ€Õ]V"Š×EÅ—E]ôÐ ¯Éx8--–l¡t/¢y{/‡Îî(ˆ^Љ¼K&‚ÞôHÕ^¦T@tlXèŒØ„ÏUœ›>“ùã¦À'q ºÉâz02 ÞCg®¡ÓÈgP,Lù·Ð^ûúiŸÍzÿúû™úñÜÏ gËÜÒÅO0%Ä Yebó9ªé!ƒ³c¹’ØÜ  â#952QZäb&A”ãpYÒ¦ûÝ´«|BX帴üÀÚ¡kVꌟ¹à_Ž™€ŒæFoà€Ú!5µ€]$§¹ª”¶@ž*eŽ f])øêf¨lFw0×øl%õøf„ôä81ž˜ù’Š®hPÁ{ÎL ؚ扰”ÛÈéîuU5»×„ÜÔ=à|©EÅZ§{]Ì毒³+©Ä#ÓéRNms5©„“Wo‡Æ0gëp}«¹¶»óóÆÎæÆÎÚÆÑ4PÂÊ [%Jrèë+r¥m¬éÈ<è“Pô"ëË0”¹n0´sºq`؇• ÚíÄÚÍáך[‰ñ®n¢„›2ô¢±íu/ÜÖ|MÆqðöåÁ!Z¡WM n8šì¾¬oî(¼ÑÛlOD^Õ)Ýç¨Öl]„„‘ôHÛHãTz…–HºúÄ›LˆÎÐéT.}Æ}Šºtði¶ì58]Œ á}%K-)4Ý㎇ÚU?™&®pëéÊP;0Ý€Ù¦oYŽcn¿«Ú¹­ÛHqæn€jƒ¸?ˆ‚aˆJl¬² å%¶aÚÐ*€÷7¶Ò' ±¦ÃanºèA§ 4WôµlX‡^úº y¡ôpaTŒ ¡S…±ý#]Aƒ…MÀ„i§Ÿ6—‹ß*ò’Å×®ì¨Ô€±)k ;©ÌÊc«Þ €3⬔k›)™%KĦü¾€k&Óµe_ä3v@Jþ\ã ¼¼(uÉä¥sIÁzx'a4äÑi(Æ3káX«X4Âdˆ£u íC—‚¶ gk_)üÉü]´–êOg3jÉåŸþsð÷äñcø_j,.Ð{cq‘~ái~éIãOsOŸ,<^|Üh@¾Æþ¨¹EcÒ#tM¯ÔŸ.Ïâð²;)_8Hþˆý±þLBÕäR\3;SsbYŠªbUâ)¡z…¾Iþ"¸ÚŠ1X ¤y×hì?VÓÝh8;FY‰Â¤Q¬ž\VØI»uþßxö¬jŽ¼ñ&À“^Âhßà ѕâsu¶.{q'¾¸¥ò{á %‰( Ð;>úv¯ŠÓþªãì¾JŒBvDHûÿ稬@«…òÆDÀÞ­ê} :±ÇFhãz¶áyV-ëEºÌ?RðCjwÖh„K¸ß’+âèÂgŠ€Ùó ÒX Ù¢” ¶ç¨"qZîTÕV3t"Ío×7ë‡uð‡ÝGBãÚhé?E,1Å1h¡Å>ÔŽqèIPÛA£eââôðêA€OÑ9º°zDNó‡d ¡{Óàõ¤)È»Q¬ËAÈê_C¹õ7dÀ$£hœEhxk •M½©éC6’X]3OÅékQ8R bpÓ§0ŠÈv§ÂºÂ|±pkâ(––l2t4|¡[©þ>q©)3Iä6QeÙ‘¿‘VaÔÓÇ“áåsDlKØ»ª£Ò;v¨{E&}PÏöÏTK÷ êiõuêÚ¥¶ú˜ŠîC͇7Û»ëü “és|ݳŸwÙ‘ÏLŸ/ì›×û“á3EçÕŸ÷7ù3%ÃçAWÛߦƒ.¤vß[j:ðœ6¹˜ŒÃ5Ô1J1¦ Y¤‹6yPLÀyÆK°b‰GCzÊI¦Ó yé%}’.É35Tž].ËVµshé•_pÔ˜³ é'èÆØ”ôÏ >©s‡Ãž9娵*Ê6§¬È^*’Ëè|(+D"Ž—ÕSµvE麆ƒQxGînEåŽDi>[ÏX 1ÑcV2Hò0 DvÉ ÒÀ$eg©dî®1®ÌT”A:±Ó5W#É,dš-ŸÞé̃dp2ÜÙ=À,\ö„)€Nt¢T'œ‘o`¦ËJ ñ|B×,S¢|ÒF¥GŽBbv¬ ȸ.P O—@ Û…ž/ Ô2ü‡¸ªÁÑkBÛ¨:ÝÑÕI!§‘Ü>êwQÈìòlQÉ‘kÙ”Ã6Ì»Jæ«Sh Ôn€ :ە ©±PaaJVÚTaŠŠÔÚªmÎ)½†°ݱV1ý½d¨Ma Z@_ÿDCmüBC˲ö÷Âý¸ŸKGa³¨ Ãn¿¨ýÅ .1Sì=[³ŽB ƒeµõmæµ/Ò8‘}ÁYÐVr«MUL3?5Jteš#ºÀ,Ï”øˈHþZLƒƒ€E28ËfüÉRœÑ¬[ÄlýõΖð¦1®%ü5 Äl!›…/ .b9¶˜:°’C–‚U%®ÒÖÇÒ^hÊdj[är+Bw•K‡X‹Ï!H²D(ÿ»*eÀzÈ>…˜ïÕxšÍª)6ŸO0"È5Åò†æͨaÒEG؉ºHô 0ù-x[ G;x`÷ÌîAdN„a·Ïe6±„1”„¥}8º¼‹®š}„^/•0”¦Í ð}ºÅ QîÞ¨éCz…8¯À¾*r¢2CZÔsôõ‘ˆ‹†$D`Ý¥)†xè,–íK¨OÌ:Š€[@Q£$i) ¢N•Ü¾œiçh×è÷‰|ï‚/¹®CíC 9 Ò‘Rá`D2ଲ`¸k¶ÜW¡=\ Ê»­,ª8aT ŸTÿ<2 ôÒ{þùtd”’‰m¹7%ÉBAwXVéèôC+rw[¯[4¤ã*aš`¶^[Ô6ÉDXƒ¤™œ…‚4¢À*b…»E»÷úcù¿¹6ª£zÒWmþPÊ¿Dòþ<ùÿÜÂÜcx~ò¤1·ðd~iq åÿO–¾Éÿÿ?G™‰æÞ\?‘ÐLË™uKHfM lHûÛ¦¨šãJ¸gÁëIQŒôx@·èCÖá@oñHW }C$R¼Í)2m2™µ«t%þ1™*×9Ö+ %MpâtãEÄ‹z!;¤ C¡ªÂ­çw[BÈžá®u£my@>@T==jÚ?WØkÁ1ˆ®W ID‡«&°.­\ñÀ'ô9MoÅ‹)’”÷nö’ëÏ2UŒ•MM:ª&<Ò΀Ö>ã2©µ½·”°þ"6a“~Ð §ÌU1¨éjšnÑ«ªØ‹ñß"‡Øz½¶¦Òv¸¨Y#ã¢Õ*8p~^´š-ÒÈ™:àã·ZCg4rÕÃòo}¨P0ÙIÂG᳤1tœ8oP÷™.¢sqÀfÛFHÆÒ¹á«0Ô6§´¸MóÁõ¢õ›vÝqG~xiCZ$7Q—FzÙxpZfŸ†ËÀD-Ø,»ºÚN£KÌË'¯¹FÝsM€~ ”9}…fm¦††Öh†9e*Ǻ—q«[¦ Yö5Åù/Ý iÄwí³‹ é‰Ó¹©åÃÝõÝe´†pöCßf¨Yu–GuU‡"Óeå¬dÝ]ý`vþÑçSp%]ÈRÊ|H¡î§åÒ•Oâ®ÇY¬KÇñnâå.wæ5T½]n7æ®äiŸ¦/SIcÙº3ƒ§³px78 gIëQ»•ÚQ!èH2ßl¨C¼ÀWðp°»¸±è÷ÓÆÆžÚ<„Ï«‡ê—Õ_ëvhÜq åáͳÚÌG|¦GÑÈÇžMíÖk5Ó®Ít§tÓÿÝ{Õ·¿¯ÿÇüŸ¹=Œzÿ‚:&òÆÒ“ÆŸù{üdqna©Aú¾ñÄß#å̽º{ÿ‘¤êZR5êÏê |š4™ÙwÕ «oFàO±cz­‚Ê‹Uü÷1ý»Dÿ>¡ŸÒ¿Ïªjð€þmпó¨'¿ ô¶¨ú\Qúvÿ^¤ˆJÃf¯U׬›Û‘O¿¡UE o,€À>„G=”Š`ÿûžv IÄc¹U+Æ®ª•ZáƒV% F4WUô>FñGÙåDeƒH~жì§ã×ÓÖÓÖB“˸/2dÍR2¿r>ê`CðúÝOï¾=T«;¿ÂÖ°¿¿ºsøkUŸQÛ!n4Ô·¡Ìr'¸~î°È¨¤Àý”éŠl쯽ˆ«/7·6ÅN¿Ú<ÜÙ88P¯v÷Õ*jå¬în®½ÝZÝW{o÷÷v6 s/6›Û«?m¤ñ£Eøñ¬†SÙ‡ ßCžWµ ¤ŒèôVÔ#¥7ÆíÕÃýÍÕ-Ü÷öwÞ\ßXW«ðZ¥aP«/v·ÞnlýªvvÍh¨w{ûÐäu­ÞÜÞÛÚ¤}Çìííµ°±þºûv_íþ²£ö7~’z£¬J°¦VHeç5)|”ªrµ†´ˆ†q#!ötâU‰¬®P=£ùdÎ=ÈWµEM(vÑ”’ÎkmBOu~EÕ A·Ùlµáqm[œcéÃßÞ4ÞØ?ØÜÝù®þ©4íÔV8”n» GAGäñEA.¯šÉes}õpUZ¢Ó*ªÖRµ®æÁ͉:(û«Û9™Ý\kû›{‡y™t¬«7«ëû”Ä¿‚FT¬ }“5Ü´z-(¬vv÷·W?žð @Xü÷]'`&H™·;éR©,ç'Ñ,4QΉ+` )áEüN2¾Ã¼ñÉI甶'—!D¬gtE<ßTGtÅ9æ·f£RXß„¶¬ínoïîÐp˜mŽ/ –ArÓìÅ8Ò2®€ùÇ…)ÿ Ï ­ Á·TfÆðʬÃg¨œTtQŒÙí*©X¦H=ê#Tè“—dt†G-ÎTÔ¹ZêkpÅäã?J%§âÙ‹§ÏŸKy*Ù%Ö\-åm2²É8Ôë\}üG}`éfúÝZß88\ßܯŠ_ôS_,@–­Ã­Í—û«û€•2Ô°Rp2è¤é¤1²¸øÔlÈD¤÷KÂ%€ím]žuÞ×[tKÙ‚ß³lÍdìGwÔMà³}vÑìv0Oû¶×DoÎõß×bT¦Êe8:=ÿ&y¡ í!”®®…nèið^~šƒ!eŠ)Ø ¯›Ò¼ø }|JpÁC¿5h’âó …õ÷‡ƒfë²õžËâ PÓÔ7À°éQžÄ×N³?¼„,íÄI²)P^kIã÷áèì,`¿†·ý¶tì Æ v¢þ%–p™LÁqΠ $òcæ¾RÈ™\Ê“N—œÂ0»TÃì[>)©ä§„H¶Z”aö çò¿ÛfùŸ*…k{[oð?ƒÞn¾ùÖYQ5~0ô5¯œa ¿fü w…m—ómy³)McfÉ|§fû©&Wjë³Ôìz'3¢´Ý?h¨ÍáÅo0´mtN.‚˜NwrŽoº<Ò\~¥ŽçÉ祎´ o›hÿøvZTÛ¬Ãf»/hþq,“"h„g2 †E{BPX[[=~zØ…ïiu»‰tÏU‘t~}8]H,,áÕÐɘjcÎ+ˆ+ÂQ9}w­>|RåçeCóU¬çêüŸmuí àú×îú0Ô/~/¼þûæ^scçgÜèjgÐ` 3÷,'B¯qd…]—¶žK0B*„Þô{÷- ²”IÉã‹Âê6ì×ÍW«[”n_õ7ä®ì'âµà ,bN„xç|z{¸‹2z—gN52¿ö¿àý„N绊Õ_~¢„_~z[>®­½ í›ŸWø5S$‰^^è ¾C{)d<}—(g q ½#ï7ßm­Ù¡È¦¦rêÉ$B>ÛZp~’›Çò9ZȱÇÉ{ôlÛ-Ï/p碄wïèÙí°y£/¶¬À;")½ãËÂá›} ñë[ Ý÷…·;PãºþfßàËÁ®a '¶Wé4/—îM*éEÁa3²è©gØäýJ?ëTÞiô³Iek^tº'÷]5£á¼Â7tóJ XBßì+}C·Ã’Ž”Ÿý¦Óð‘ÒÉщôü‚X¢óøŒ°¿ælb9Éé¼zø²©~ÎwïòÁêôLî<À’üB¤èìNòÈ+¾L›x_,ß$ÎCÎÊôWzátT+’Txä´QÏI¥—…3à’øΗŸ^ðUŸ²W||õt¢ 1©üª¿aØó^tzìˆMnñŽn¾ðû‹‚½S~!/ ȃŠ{bLw^ùêQ™+Gºˆ4´oòEš¨Ÿ%5¶™cÓ6Ïy}Qðî«_Ø7ür›dzt/–9Y¿½(˜{ñüD)Ø/›*oðoÑð¾JWë%¼( Å à§ì1¡Ù§$~|Qˆ;m¿ñ^‹‚^=²ùWÎœ#ïË‹BbÑ(ÑxÄ^7Üæû)/л>ÞËé¯æM_ +çâX®”Í »ïÎ׎÷­c¾ÈüÛ7ó%vÁÅ–Å/ÁrëÍݽC §H»a$Âè¢W°ÇÄvÜÒj(…Œ¶ñoˆŽ£DrvFÁǺÚ ¤,¿Þ=\{³º¬Ú!"Ç€=^£³` RÖ÷Óe„ç sÞÀøÃË çjÓqÝd🫵ï¾Sæ6?1µe/‡ Ò½#Ÿ^~µùn{czvûc…K´âA[ûMä'¶{`µ„tüÅürÛ²ZáöNç€T‹›ÉEä\q8 7Óqa ÷Úíúÿ{»¹ö“z § OìjçÐ{æmùÀ¦Aá݃yû¾·¶_Ó†V_D]ô¯£ª6¶ßyÅÌ°°m¡¦öoö€D8#]Xø·°¯5/4¹£+F\kðS?ù ¦¤Ižxäê±?ºa©7P„&Å™ƒÁ飳vÙr/ZÔîí µ{ÀeàqoÓ…J=‰†õËÞ(3-´aø­Ûoâ_Óà¶Ì%W±á`Pxdi7*µ3©°~L…’L­5‚ú¥J8äh¦òõ˜uÆûШ–¾lÿ7gÍ­|”” / WË©0$ïu¢äãË'÷"ï,þs–´¤¯&ÉÍÒíSó:ê¥Þ6×v½¢ýAσ~MtŠ´ºíúéB¸4å%aMYýŒBæD"HX3™«!ýÁ¹Ú(¤îÓõW¾õ UH Ë “¤ÌBÎKç¥ÉJ|Ɉív>é ¾AÈË"ñKò7É`â•¥IagñÀ/„r6$ù¤Ž¼Övx ¨­AÎÜ3óx‰¾ILâÑ E,ë˜+霜ãoµÓ²eõÝ«˜p\xˆj‚ÕK8.ò…¯¬Z)à.-Špï1}Ž¬Ü|õ€îiSCí—~µ¶§j7è=ìžuÂA 5Ök89õ,¼X¾ç­¼{Ë}ßmóÕ|3BG|1\BáÎËãµÌý¼,uOœ£$¡VȉA[IÚðV679\i§ö®úiŠH$»¿{|¡x+@~ñä’seË*6¡ðÈDqЂû&‚èàVìˆé|>!‘ñBê\5i¿ú‡«‡°,3 IY¥[ê)yçò/G õƒ·¯àlµq°ì<* ‹°‹!;ŒzSuüÿÙo ¨[ЭAéóA˜\.¦^,rUœ—ÇȦó¢a óU³<n;$ÖÒäÆä=Ê‘bk9·P™•]ÉíÜL©i3ý®Ø!gYµÚ¶!x ¸%çrÄ<9«òs[ð~%0ÿº§'?NqöRö\RHm–ôáÌJn»­œ 5™ó:•Ï+HUÝQºPßÛßXÛÜ} SnÒôÃòõu®I›Vh$Ýh˜4™íTÌxYì„H·JR݇e'`\=¢f@L3y,óÁÑôUŸ*¶_ 7˜õ¦ ryœþ¼QˆÏ[ý¤ºcÚ„ —v%]sô„e›»>óW¶®Rð4óïœÖùÏ…ÌÐ*ö±¹º-êHZçÃ× _ÎÓúžzQšö­_*|¸çP]VûüãG(.rÐJ¾†:C•r¶@¤]L¹J˜ËR/7F^©/~|ÍÎWxDŒ>½ØÅœ=R»"¦Fä¨ÅW=¾ÅQ«À -õËHE3›-•ÎËEgñ}­*ÙÒ o,±J]£x.‚ýÐÉBÁ*ö¤&ÙQcv„óLî3nž«Ï™¢þ˜i; ¦y¬Õ2nXûfXï1f˜úEgTH{%;"5¡½nf‹÷°¼åñ9Ã…Þ%‹ùf³ì^²„¦ºïæ¹Dîÿ¼¢ P>œúsw¨¹¡ÇhªGQF’¸iB©5@=`9™œÑÒ<þrÛí¦ùVFHQ‘A­dT¨Ý2ŽÖâDØ|à«ðü;';·]) ïTr¶u¢~)úÃåï4€tS'W—n°àm$út³ìàMêÜ3 m´LÿGñnl´ÍK%ôrìá‚ÆZÀ0‡Zx‰ÊÎvÊ6pÙjY:ÍÑDÇ!}Á@S ,"˜‚ÎPŽN‡L;~½úeWÛÓ)ž«lî´.« ï£‚sÊ5œXOª¡….:·2Ý|DÚµÏ8 ôV‘./ß08ƒ3~ÁUón«ÝÛçú,=T…ªÌ‘æ^'v/¨?PÜúb(VTøÅ´`öKY±î—BÊŠ0¿¢ˆ™¿ŽQ) #àþR@"Èû `DÊþå~û*C­%ü_ §ûuœ¾[ør8ƒ/§!æ^ã‹á­È—1w*_ HßÇ|1¾ÍùR0þ]ÐCË^Ö|5r#ôåðä²ëK¹We_‹/Ú¾Næ’îküjðôáÒ׋_ ˆ.Dö¾ïP_G_”~i§ü‹Õ´Bý /k ?¹ ç)¥ïùãÙo¹ŸO!IëÕ£0ã{ Xù; Í3;dg,1Iåj «ÌÓ×Dÿ“(^Ó¥¶±Lm{þÛƒÿ^ñ©œûUš©ö㢠¹pIÆÓ½2çz‚Ÿ´Å}³#ð <×eôŸ™´ºê_?¯à)6~†çe­ ²Ò‹Å8ååêÚO[«orf9•Û´bG÷4b2AnUØ¢´’;ž;î-3O8û_¦rçÛÔ}­©Ë_™-Z™ã§ÒÜFþÛ–]çž< fü1{îØ»„’oïa ú÷õÖãç›cßm‹Mx¡›4;軃&ÿ©#v/»Ý)kOúÖ¦rZ¤ðÚ\Ž¥òžG%&¶ÑéÄ ÅúL¬ôZmðS× ‰ù×âÖ¿[:fYmé!+ËøøôÑÀþwlnÆÞåëînlîkÎ Ÿ…˜Ÿ™ÌãR¾Úä݇Sù6›_e6Çð-9Œ‹?»®ƒŽßâüZÜËýçóaìË¿vBSsfbè<œbd´6àäuû÷œ\¯'š§Ñ-œÄ×PžocÊÙ±¤—wm[6Û=÷.[ ݹ…ýÎä}¸ƒï1…?§³ñ8 =ªÿ©Äë_Ž•ÿYød8™$%J&%r/6e~Ý ËNì(V¸çªNÆxÇž¸×ž(’PHùª ºË›àº¥Á[àŒk™»”•\§˜“–<ç™öª>]ß=•–Š¬„BóÝ^‘Å°Éf‹Fyg¼F“Q¥ÉwÏCúIí¬Š’ëëÙUS§ÈpÆûµºGiU£ÔU5úœ½c\rÔˆÆu=G]hBïÄ[¿‰^XN» 6A…Qý™—´ÛÄxyNÁm1ZU‹c ±cþ.)(c@ªS´-›P¯òr..YíÙ(‘b#ÐKfлàxYWAgR¼Wbc*‘6ºÀGèÅSÖ€t?ݨv.¥(:.*p«S_£´J0Ò©Žï3-ñ“1:ÇZF ¦2‰¶<m¨ Šå„ãb òÛ4_acÙëýå÷ƒ$ѱsa Û¦¿¯@ú¬ƒ]¢wáz¡4qøUYµ¶óÚÇ–Jdî‰û¹ ºè˜w^&zØL°›½³ ²V¶y!úYɬUŸeUÈÚM• °ø‘ÎÁbÆV"œ–RIL¯)#ÒHªéGÑ|P+ªX/úê¦åÀ[ýCÖ •Nu%@K=…Á‰™uNC•¦QÁTZÂú¥¬#M{¢Ö öר•1ÔJÔ¢Œ;…´šÁøíFÍ{æ=zJ"b’ñÝù–ÕþvÆFN/ö†g\½!Á¶i–èã_=WvÃ(a“Šþè¸K½ÛíÍu±†Ç)°Â –úø™Ø)#ù¢hÔÅmÅ”*S! ¦ÆS׿Z¥¬uð &+Gõš½Ú^­”ïÄï;Ðvù¹‡|ÓäXðžÂ<3ç’~T½øÀUšn2ù—­ÈÿæŇugúíópúÁ41;ªulô}{ ¨Ø »õooP+Õ¢Âæ:r«ŽODÇUáÖæÁ¹,„¢ìÞ¾â´ØæsJça» `Äþ9 WN±wQ^ÇÒli¤‘WÔJ#YžüjØSú`°‘0á£1—ùå'`=ôvƒqT*ÍÀ=ýd zÔÆÎ:怖MSÓ(oE‘Ÿ@ ?‰òj÷}„ñs7ס9Ü°e…½-ðßeåOñ˜±Õ#´žŽ0å P$(É 5­‹WNû×íS½ßL—¦Éo%jŸ“ãJÍë»ثUÔ³íðj¶7vhþ‡¿6\ 9]Ž{¸’¢IC·?¼mžG7¢ÔmIE¦ø¸‚fûæ$—ÂÕóI·v{yn–Ä,yòüøÑNúã –ð±ËïD©„Ã<ëGý'-ˆÿöaHGXÂÂ&ð·X½Lr·X.ØÞI.œ •RÉà9 ’˃+øðœf³=Ï ^0‘éñ²"?¯ìíuYµþàü}ÜY‹; —$"kÖÒà'¬e1 …Âkšo=b×&-ú´i N¢RÊ·ÏÔ.¨‚ZŸ_; `ZâJ˜ëŒx‰Hì)TF½Þ矃_·á_Š¸EÞ‡9`RlÒqǦ2«N'l¯Ì=Gc`ü¹!v ð¨ŠÉû¨¿Â&¬Üæ3Ý(sEíG‰Oãa$WQö:­WÌáñ–s;Þ‰†u@¯!~ešÍš³aØñ¬éü|N.”P¡‘R¾ŒŠê“Æ£_áÍýÝítçÍ&E.dƒ²8v§0Èé£ÙÖwªqúÜ~f&À¾{µº¹Õä‘QEÇ>*En´*²ë¿†Joî”Ì›þ̯Îwæýßí­à|#à¢Ó çγTÇî‘ßðÍþ —J?Âô†êÉ“?dpKÍàà[¶óï~¿ßhÞ^jp,S¡xéð%=\ÉÁO›{™J<‚š=´q{‹ªþmÍÝáwrÑ(åfRê,èÁ©z¥ˆÁ*y–ØSb@Ó¥q¥ÎÂËàŠâÌ#}[(›ÖÓdRðm4ÊžÓO·· Øž;º`¦/>÷%ƒtGWÆ•n ¸k™žÑêõL[nÏìTÉeHL$×­ó"jô‹y§søV¤e–ê¾)4-¸Å­¾ÅÅ`ÔsCàLÄ/)‹q¿®[ªÖ:UµNh?KëìW—¶ÐPÒÝ„¸AäöÆ -öÇžÀq˜Î8®¤¤îì‰x7H¯(—S6·ë\ê {.@Æ̯ÆïE#Ì©Ï®Ì^øf&S*ÕGGNa§î£JOg6·é­Íì·=¿c¨Œ>Å‘yvA @æÂ4¨èè6~€ ž…I,fÃL9V6yÖxòsÉ%¤ó®Ï«N¡? !7¸Ê¸Ÿ[ÊáÙÆ”tE‘†×FÞ†¼·ä07•OÖ§ /2|³8„o÷ˆÏ'`\Ç÷åw|öcÚ'…ÝÙæ<¦‹zèÅ)mI1„usCèpvÁW–Û<2¯jóñjÕ»Òrk@ÎE59q¿eîœå θ¹7§£¼LîÖ0Êåôâ7£‚cОõÆ!Í׶½ã ¡n<”ņ;£åïy­¾ªõ÷³åSíNÝxû‘bÚygñŒ´„<˜Å'P$ i±†ü ²™½š\ÇSù¢þ¯.ú )z ÔÅlóq$7kjÜ%¯b4Tä°hw+µ%{Æ[*-Í5è2N¬kÞ^E¢ úµèfs²Èc¶óN>§Š‰3\»3¤Ì“'O¼2Áwƒë *süõT䟳ÅaozïÕH—¿GéT›ûÂ*©g-Z`18€…Ë…*©íÓ7gćÚÅïQY+]ñ‰ÜÅÆøT Šrà»”SQ+ÿ!MgÌvÍ5ŸA¹ùUM%TíY^mg¿ÏO®2ýýAµ¡òÔƒ%çÔö÷Éu¡Gq§.|u±ðžƒˆÅîEújÚýŠß S|ðÏTzŠ_[¯‘‡·?OD£Dn)4€h;`³Œ»!+—( ¯}I‘—–ºaÕJ†êb ‚Þ0D… íÕøúFè¤ÜÑ9¯ºÖNÊñÂ3è‘Ú:Ú ¬kB24„ñÀÈ…³ÞQtœ)ã8nFº«]ŠeGhÔ“1Ê ‘ú(£KƒPQÏŸ€€ùâ˜Ï™&€ø»0ê¹XŸFú1OÖ-)¤PÆNëC€ANÛI g)ò‹0Ú†®Õ®lÏ U½ö0<}F˜e^4ï’U ß;KK‡˜nžÁtçï¼ BvRíüÇÑ?–gO–ðßê,pŸFd  Û¡Ù?n£bgmvØíš ºµv«V‚¿Ù¢/üMõÇ|¬×ÏnµšÈZëuxfçí´Ûú½1›-ãðÚ›µŸš6Hº»¿O¸Ö½ë{û*º3­«;si¿V÷Ìw? Ö]ÖÉƆÓ\̘qÕLŒ_ÊN¨‹ÒcÁ@ÆéDdÐ`¶ajá˨$ïÕð5ð῭µŠ.6¡o¢ò·âöGü3a¤ø3¡8#š?ªÎ\˜BÙ\ŽÄôÇ!…\¿¤Uÿd<7ç½°& "½gÜ ˆ08V0òbZËÌF Z—Ñìh5K§w\VúXêìnƤô%Ÿ½ÆCÖ»¢oé4ák|¸|.2ªçýç7Ï?•)¨¿å„YD¥/Cà²3KC¤¶§¹¹LØÅŠÈÜ:,‘kÈ”Ólóølìïïî/Kx’Nx>TÁù0XT].ªç.ÊyWPF?¶˜>QãŸèÝ*v`¦ÑY‰§Jу{ùõÜÕ1/³AQõÃ_çSA(—-ÊÀÀêæ[ ù2)ï¸í÷FÆFÚºq¯sKê©çƒ¸kØ/Ú„Ì`q‹”¾âžzáNW^„LwªP0È`&Î "ï|m­y,“gêHMÞ¤ÚÝ|þpò•gÐe?ÇA×Üí²Œ‹î±Y{Ô‚LS*mk³^tñÞñžˆÇA ×í\Ök[¿-çÇÂu³ùÀ“’zäz%¯úŸÒcù0ôtÃʽ舮W—‰ø›iyíw?P°É„\l&?ΰU»_VyQ| wn_ÜÁJpC‚®_'”,x4lLtbS%ÉF—ÇãG*d%^3çFž¬È¶c÷)’õ¤ºRKЩžHTÁÏ@ ì}/ÅTãÛ_¡¼˜°b Ou»<ý`RvZËÚ&ƾ[å“æy/Åk[«;¢†â9Íù^Ȫ[Ø/¸?tØÔºòèLΊ½6^-¢'vSœÔõGÀ™‚@&Úa'„ ]¢ãe7òþsT‰#†…¦;T~ͪ¹óËii=(ˆ“9~1•×•ç­çʳ!Rîà#¦Zú˜§‘íHµ1¥c;®Ö€É:æ1Eço ßvOƽ£ÊL=‘Š(eådc}8R,ûQÉ)èZƒ“/+?Dyä-§"•s*—J-lK]|ÛB!ElF> Ž}לjÜæ,\ö© ·+ÇËY=öÏžCÿ’' ãîâ0¬·¨ÿž3i Žˆ;ýÙæÊL{ÖË*×”À·0@Ð9¾DU•A4ʱÎ+úíóeåÅ„§4ë>lžn„xLá/v#ÁFŒ3ìJG”‡Þ»¡äÓâg_¾P¨ï½ÙÝù¯G³Æ<¬B(*\xÌâf*'‚=_;ˆÒXÆ ôtÇ%1.éñkÆ„TÓ°lJ»Ñ“6*+%VFT­Œ|UÓì*- UF&gq.‡Êx4Ewf•qíT¦|â“få •wÌÁ&"HL•ˆ8•Æ}<¶(†Å\‚”f;<¶$ã8…Sø颗ÊAÕ|DUR+“‘´¤è—ËŠzli] %;†VL y©•þ…"Ÿ !ÁPL%€>(" tÙøBj+ípi†O¾Œjˆ7¥å©|W0…´´ü\ÔÔÛ„L{¾Ç ǃ³:„a—xÒ·B+Lúøfoöí;44ܽhÔ¥hžuÇ)B~{´s„¬¯ŒI¹aÿ’(Gµl¢åôÑU0Ęy&cöS½è}ηËöÀúçGâ»hýöÕb^`l°ÁûLhÀzâxÔÃç?¬’1IäÆ^}½ó–†Žá€Õ̦ÒmE=Qh*Ÿc¼`eÏ;ÁuØ®*¾!;TÒã"yQ¢A,)Ç™NÐç!j³ÃŠ=Tüþ^ýPz¡R—ÝÂa¼ ÅGê#™¨rG õÇϪ õ¥… ¶Æ4xÈQbEßW‡1ÌE#Þ]m⪕Ü&ð«:Qš><¸M~VÀa£®Ö°BŒöY°Zaìz½PßÙÝx‡šZË…?}ÎßEk©þtVb‡Ô»‹Ÿ䎿9ø[Z\„ßù¥Æâ½7èæç–žü©17¿8??¿4?ßóOþ¤æþIÿ0TªRº<‹ÃËî¤|0ÏDƒþØ¿GÊb # òu‹÷‚ªQV_Pµ™šZ…,¸îñ/-×âþí º¸l]«¨Æ³gKUü÷ ýû”þ}VUó0Ïôoƒþ§èßEòj†ê >^£Õü«xÔkÓfÃ<ÖõÕ(ëzÁ/æN$7­Ï±0˜ÉG=ZR¨^ºQ‚ ×e š÷ª³®dj¢M<‘ø ñ»qÝrHŒ**²vb¼-MØ0ÖxÔ¢â­b8¸Âå©/a»U”8õ´õæs÷%\¥¦XgÄì|ÔÁ†@^õËæá›Ý·‡juçWõËêþþêÎá¯UÅî€Àé}È}ù.¨àsÝt€^…\WÔíw"´ºxC|‹¤j{chìÎáêËÍ­ÍÃ_±Ó¯6w6Ô«Ý}µ å÷V÷7×Þn­î«½·û{»Ô¹ÏüË R“,–¨»ÑãµÁ`Ïvu°¸¨÷\Çè&0,—0Û¹Ó’B+í§÷>/4².Üòí¡€Þ0…0ä€_þsË:jotÖ¾k ¤—tS’Kš+Šh7‹aï‰(f¸tKÁÈ …  ´r Øt®P‚ÎûÐfý# A°‰èîB°<ôRê $ç8ÃãÇR‡„}ˆ[9uùW˜½Öi+R:î%ŒH¯ž—üS„ƒI«[x@;‚Ï‘{ŒªªëA4 õô&iZ M«êñ3à`tBµ× €PÔÔÁ,,m| ¬7fÝ^Åæ¯n7MŒûŸK®hZ~qškþ°4‘q`<ÞÕU‚[(qjN€\»ëÃ(¡íi\ø« ;XØ´ðXh†œ“[O½°ºÖ\ßxõvgú(§õ'Uu„R™ 55WŠ°«O*Ò߃Ã&î÷7v3¥ïè2÷z «œªaM#RãZœ¦áhÛ=E¢ýâ²€ìoü¿·›ûD?áusgÓ6&ÕÃIí=©¦TÞ0LÑNzRán¿b…\?—ñ5‰JGrÑáHë“É&¥­ ÙÝØì·²ÓÞEH¿ÅoDñ?•(>RsóF£ÖX˜ÞòíÁj]èJëš«‰ðWªä€EyôH½¼…!9F˜QÀlœ˜[¥­)š ÈK]´ÊJ¼…Oíh€ €½Æ°×ÖN8"•*–> ï´ï’pø u¥Ñ‘ËÇ ÓVJkk^&ºõÊËI ;ýb…«û¯›?¯îOáW ¤ôwdH„m´¾Ï™–.’$cm ©M 'ªœè‹$„ïè!Ø«oß5×7÷›pú\ÝYŸD}¾Ñotç¿‹î¼Btƒ]]ÂÙ’$‰°ÀäÊIÆôÑyŸTªvÆ5ž@áRÐj£TìÁöžŠ!Ò,d/Ã8oöØ险 Šh ¾Ø†1Ð%ÊU[¸^/: ˜V'Úî9 ôh€NÔ ÏÖ%ÈuôÐ~Ôx}Col€@fš:`úpI |Øðƒ6è¶ÑCaícl4!Ì& –æÀúèµye B  ìB€æ–NE3i²Â‚³$îàJ‡6BXJ€4¸Ø›:,?dœ¬î'T ,µ…#„ÃQ|8Ä#~/Fžµ $¿× ™Tà8$^CþI80êv€×Kyõ[ÖKt÷‘õ"?¨v ª´æ¡{]^¶×ñà=0Î=w\´p4²ºgŠÂbö°­}äíß`’GÃ2žJ§µ³$Çè]ð)œÄ˜ìJ¯EáÖµª’Så-Yè;ýÅá’궽½£ž,=YÕ5§çëRÑw¥ §> ĶA$€B@ #R[1Ž¶(h»E*ô òÓx N±¢0ËNky5Ò½OMæš›©ãÏ’ŠÊÌe0èvP—ü,d§‡ñ!×)®MD(Öƒ•Iú ~ׇˆLÃ¥ÃÞpâ#, s¯×‚nÁAŒ\L‹H+fLânH• gu"0wL+NXt~Nì]kÑP†-0Ý š<§0­0Ûkªú,\¦Iƒž|_)û÷ëe6ß/:0ŠjÞ¥a³3ÇÓõ™ãJñ”vÎ6‹Ý¡M\ð"°ŒTi{óà`sç5P ªP^WŠÇ¥d(ô ÙM÷°¨·]»(ÙÉ<[ ]©êiH£,ðá¨;;p…¾CbK R"ÊÊÐ×åÓ,?ÞMV¤rD–¯Pb¸ýAë–0⇗5mÃÑÁðL] iqƒË‹"§ßîuÔ>N‡@oÀ7ÑQ_­­Ó*ƒÝª:·Ä×ïíok?}4_$8–€ý˜'ò—ÆÓG¥ž´ÑÃ=žÞ1ë«ÕChæQi9Ê« µmMË òWP†(Ég=>ܯ Õ YÞ¾<8ÄÊÉ·>Ël­“›ç[î‚R’y…)ÏJùQ¹€ýp>c’“£pìùgmw{¨ðŽÇtáÈóT÷A |²^L:ÁúT4mˆÛ¯›¤?}täÌha=ÁfKû)sízá-óc"í†]˜M(YîùIx¯¶;·°œÀ`œGZ4+ÈõdŠþîEz¿øžó þF‚ÿ7‘`>„ '¨óðÂC¼cm½Ç“P‡/5‚«ÈTâÈ žZ±iòà=û/­{Ä.ÃÁcPÅ'æÉÊ8™E•K9›ØÛ+¾¬G‡SpöyØ’„d%=Ø2SÕç a9',Ý ”1 êᰌlj5m¦„ôâÕíP¨±ÚIèÙb¢¦+ð†-K`AV±B>"¯­©pتkÖºÂU®í7` Ûa@œ®×q@¡|¶×·%íeã·.<†!_]†V†‹vÅN”>кe¥Wh'F..¼âÚZ± ÿ¾{‡?¯×þV¤…\Ü}ù·µ"füoÍne‚‡aë’Ü8&4ª|ІšµP¾rØDjÔæ`ÃgÔŽ{å¡sÓ& ¤³LÇ’Õ¸Gûk:÷±b¡åÙQ[[«<·ÇGv<¦ZÑ 5‚S±‘!á 0z šHϚʣ²>Ïdæ~N_¥"Þ¡ˆ…tÒ°mw™…tã„]°÷|›Èjæfûv?‰Û{{hüj6ÙÜìtå(Ñkr3pÀÕµŸøkÁcTðô \ ÆÔi­K€|´×¸E&d+Ð 9—H©wïªn)@§{”B$«ÚR„sÙRå‹VkAÁ?åty@W·VÄÞœZóÊ»¦<²y­®ÐysmuíÍF“ ŧœU• o;!y½#8Ù:ðê»uÕÇ”ŠÂÄV‚þO)—JXääõVÏ`ª„v‹ì½¡c ¬t„ÚçèêM˜‡Ž x“ÂCW(ðª¿c®ôÐŽÓõ‹•&ýÁ.ËìÁƒ _°B ¿ÓŠ;£nO=SÓTÍq…6U‚‚eæzI¾zǤê¬Wõ…¹=2Iì“$òŒOqu" `Eà ¶€$¶,D†›hOœMO•53¦¨Ü W攩ßÌyw™¿Ä²‘f²ã³¤…— nX!Ý(>Ã\ÂbæÜèh[«ÕÍwŽJZV? ÂÍšÅÞ¢dãf ¡æÕ‚ZTÕ’™K±A-?ÒÞ‹T:–KQ¹~Y,«rbÙÌáÔ«6–¢úeYñÊ¡ØùÚ¨_òEŒrÃÜCWŸÂòÿ0;JÕO³gQo6¹¬Kža<‚QOÕ@ßÚ¼dŒ‡Ì¨&ù¤øõŸ#à¯?y=Ø‹ÝOEh>~êž{´ {1Ò&1Óv6²o¥‹*ì1+Jº¢‹ÓÞuªqÑ**ŒÁôÝ–;…†ˆOŸ¯ ¸B ¡Æ÷BÃ×/ê$»!7¥°‡DÖ’”Û&* áƆ”â†4­˜B?LQoêGËÔÌÐ{I¡õÏŸKwÑ÷åÐIä+Ȭ¶K"l<­µÊDµOkq™}†~&È/È¡³ˆŽK»É° D¼(0ppñ ˆéhÐc+ Ã!Œz{ƒX­}÷]_í8d–YËÕêÜvh£VP?3Ü×v)˶d—;  Ì튙äcÍTIðIßuÜI/µôøÉw‡µø“-ðÈ›g ÛÔ°ÛÏýt¸ÛÂ%)Zº,ŸDz[yª­œòƒƒ˜,áï t® àžÜ¥µT¿TéÖÿ ü(#c‹OlÚd@¥x®¨!—ùIÕdFyMf ¹û² 0BˆÈ:@¤ë©QYɞȉXÉ6o:PEI2 Q\ƒ÷h‰]†Äkƒ÷‰š&áawí°xPAá ]ˆr—‡mG>ms&IpP„È ^pºĪF½¯¢ b²°8(\Ô%ÁåÏçÅÚö^•º÷¤>GXý¤Þ åÐ ˆõ%ÛeSPaÖeà7íV¢»¸Ìõ’N·¥\Û.?ÇËDØuGx×öõm®Û¢à _"Ix†-zZŸ›\3ä²Sß^Ùï²%gÓ4¢åTËÊÃØsðÀùÙÇÆK+ê>l™&¦PݤŽ¼DÜv'TŒ¼=Î[j¿7;€S²u L{Â[&c÷9ÿãÈ ^ËWu¯­åÏ°·ô˜nYg¾÷hnJxV=?«™Í²‰´ Å]†3ì8Ò4£ªYEbÏŒÖ5ËãS*×€·iAIVãZd$ù”­ÕõÍ×ÍõÝÃô%ˆ.§Ž„‡f;~‚v&E.a{mD$©Nûm²‚nêXn쬾ÜÚ˜¶½¯é‰< €µ#R/ªåäPè=5€€uäª £®èœ°$Ïy~Amè2q'T _o0+LP—>÷G#CÍíñuÅÕãЛ!² ~øå•òq™î†RhM¹p2îßo‰ùµ¥TmDªºÎe¿3 ,ªÕ¥K;퓾]ë|»Öùßt­óHî>çõuÄxéó7ê))ø96ÐFÝs’kÈU2ùl‘s0CI=mûЀËcY¡=nÓ¾#ƒÍNk€3~ñ1Ê¥ãtv¹>Sš-Ÿ² ÏJ—!á¾VïÃ[­/k­¢Œs2fëZVGgC˜¡n0„³0uS-¹4Á›£ë²l eý0Æù„ÔG<'Ó% Ü îÄñ{%Ç/jž3伎«ÌÑ¢CÖe>Oßbô0„ô²WW¡¨ÖÞ˜`ìÄi#ñ´AQ¹^3<2œíS iÌM AZÀ):æ¦Þ ‡å„¹Àë˸cgšyÃ<ªÏØAEccê²*M>SÀžÓÕÓÕÔú‹¬išß N¦á51Ôï"^Nkv¶_Vß3Rž\Orœ…$þNûfyôIPly©¸”šU@"îî%ÑüûÞh‡qM€áßqÒn•´bÜäD•.B”ëÕö6·–W(d'ß8vû 3G-'! q´{>Yk"»z¤Œë&Ùz¢­C”qÿê«CZµ×h¹­E¡¬n› ®‘ŽÂH}X*$\”¨ë¤ kªÀËHÏ·†£ Ã±É¥Z^ZØ}Þ&•ÙDK]`8JÌT ~¬® 5eí—bYdÆê{M欴ÄлcÓÔÙ²Á³òìEÙ|‹ÞRÚ©#HF\Wd/JëÆðùá Êù\lo§dqÎÚX"ždëœt$… 9å<¡Å äAsû'Ôå܃£”O'it’^ÒøUZacùß•˜¤¦ƒôÏIåÎNNŸ¿úgá´XQk$ÅxgV«ÑµúU8磺輓ˆ¼MT}’ŠP€…’ÆCÏ‹ d¢˜Õnã5Ïæ»í m*¡eÁDÓOë{e!ìrù‡l”'‰àlk„„åxs#{: i lÂG‘I5c÷͘sã¹;©MÐ븯@Ž(OY‰f,¦õ×A­±Q€ØAùÀq9ZçN’¾SqjKÙbìÇ díz¡»Øì“V]¯I™§þàŽVk?ùŽ¬½K¹ªcý^d ˆBœ¸OÖf5´}“€.Ä%­ó:ì¦ßYA%™ÕH>1©áÀt§üÈ×T&¢šX•‰«¼d GÉÅò´gN3ž“Þ_‘0ÇxÀ,ŠµIw¼ {¦å0âD[·d&äéw­ýJA¦›¿Xu¼i‘¼@dI]”˜gç@l@­”Mñë²{¶93æ1+í‹HÕd‡íhW†n á6£Nȵ‘®Ä¶S ÃëÖ ~UâXCìZÞȘ˜ð.:‡ã°÷óˆ÷ÎûÊ„›‚dL$§zqõûµiƒ²­ª„ÅÐô!õÕñ=U¡EE øÁt^1hñWB¢®Ò¥<©7¿$—u³ X÷æ«œ~Uyõó–Ñ|»óÿÞîn¬Û¥X’Ç"î-"å’iÀCQNY³Kòˆe&¦7êžzºP¤(»Aé¹î6„”Œ’ëJ° $ìWÖ‡Ì]ùx"ÎtåûvS¬-)}zumkwmu«ªU¹k|7ã8 úTÉ¢ƒ„ªÙ¿òó aª¡Ò½A³_R.x t dó!èÍW»UÚLÐo)åq)]óàM6 ]ħG‘rȉW“G­æ\¿7{^‘øÿ¢cKqY„ŒEڸܠ Z¢ü(£§§Nhòê/ùÓÆ-B²+eì¹lK¡7´³F®õš&°‡è„“+=Ù£ýà& É@ŠËMMÙâ6ÓÕÄjXyëÎ^€êÕÞ\߀œ[¾s—<áŒR7jœççäU~'DýÙ{¾o™üº¬¡×ئ¿{w߶¿{wßÆ9¦õ;¯ùX]Åܸʥ+‰½ÛÝÑ–ƒc7Uò]1ê·EýMç»ýڥȘ]w‘ƒ5»}ÖJx:;½ÖÄ:¥‚‚¨†D¶ö¶^mXv„†ºcDF™ã¥}Î¥ç!)§2SFçË{¢/&ÒÅm-á`bÓ|³»û“š& Ž˜²i‰%èÄ1ÊÐÃA˜-²¡C$µ=©ÊÕò«ºõOªnãYÜ»›Ó*vš´wûä{ QÆ¡l‡7tI#þ¥îz¡ –ªi¶à6\ixa*gÉ)„ê$hd>//aY©‘øË3J«ôyo69]9û(¥’ÕwªqÊ…IYŽÄ,OÄ«v$h5ZüàÉ)‘S8T;:IC6öÝé] ïˆg9¬’b’#ùæCé›Tå¿Sª’õÐf—LŽzOÊÁív嬔>Ø—ZÑub<ö_?ÙãŽK˜×ígÿÝÇ‘íÝ.l¿­Þo«÷Óêµ2QÚ³RÊ!£`‡œÄ"ÇQ“sŠH˜7#© ^¶ãq¨S&Hjû ¶¾{ Uˆsü°ºg :tϸDG`R`sŸL²‘ʴ雫îæª ®ÔÕPïCE)ƒn.p+&H•ÒŽVÛm«ØçDú ¥wÑÍ%G厡W¨†ð·¨«¶ÃÛr'ÜÝ<ýv_ó6ýŸ¤M ).c{uFusŽ6¬žM\J‚I„dúȱX.ÊÝà;Øî:ŽDŒ"~Ä6XBê (M/bF#ºuG5'q«ÊrhG_8ULt…ÇÛ: ˆ’c*ŽÀ/ S("AŒì!O:biÄ£¢çÎ`¨º"ÌQ80ý·éÑ[Ý« 3)W/®XûþÆÁÛ-ÔÏÉI£—ÒNeÑúÂyÅÕŠº•) /+¥TºÙç¦0=¦ï,( y÷[)¿u³˜¢òð§b÷>¹Ê@/ eVaâá<ÑšIIý.dÒúaþF˜ÿ+ ó¼HJ\7Ó¹wáy ŒïoSË+Méÿ@HõÂR+®[¡ˆÂV¥E}ÿ½*o쬗ѕ°gÑЄJ%‘A¨¿ /4nóÜzF §ä+”5÷Ẍ.kÙ¤ -ˆQ4‹}»QŒòw DãPBÃÒÑ%é ÐW%´ø¨X°Šœ$‡„ l2l¡„º”¨Œ^\LP*®C ÔE¦ë“QqÌnéR‚w±ý§½!1žV˜*ö¥[apå§CQ±½KŒSŸžŠ[-Xõ€…§×eÔä&‹XÈ&0ò¹›=…*{9m±#­õ Oÿ=Y.ÅMÓ¹.U\óVµŽ [{!"5ëiñઊX°X±¾‡HU‚µAûÐUĶaB7ÿTRëeÃ,i_{Y­çÉ7“œwuš?òhÖ®TÙ¯Sò!€Xçøpg[~u²Lºˆ@eÞa$ ¡lÁ¼¿ˆªLò’œ¸åû ѵ"õ)n’ÜHD’û»Ø~ Åó žÅo2•ÀM†>ÿnؘFù÷»¿’Î\tÄon>{¾„åCq*Ë*i ¢>ÛrÄ1éãá䯬°å_Ú‰FvÒ32ÎS%Öúe Ì -Ü«0ïy¿F;°÷n`3…ù×|ß¼4Ûþ+7£DÖ¨?åsŒ^<]5÷äñcXD°ÜÊNT:šN'J2â¤ê@G b¶µŒªÌ®GÙQýu<è´É;( ¦ª<µÑ¹Ì„‘j‡MZkO#Wx]Ú"€`thS£.úêœëuhç“ŠÑ+A'!’‘!{Z¨ÚÔð:–Ðxä¹5*+0ú…GŠ}ÖqïË8¡ÆÁVàK¢HÊóz†Ç rÀuðzs]¼â‹w’ª-%VwHáÜæOÓI'A`‰x°TOž-Õ]Ø5ð¥Ê`…riÇ€z¼¨¨¡dDöx ²'5šÌ¥g™Š¬ÅÆ´q=T brᘣÀ¼£mŒv~Šëˆ ÄÌXå’\P°.ûÞâ$ÛWÇløô6.e¾Â.µ Ækß#j‡¥YÕóŽARõîNÃåwmCÌýú¹þgÖËïJ̼¤+÷Lœ\Ž:ô¦œcÞ ™õ¥û›°ÓÇHQý•-‹„RjËÕ\;ÎϸÅùÆÒcéÿ»Xú´˜íÕ×[ZÁ~²¿ú´G¯,²ì'†^›'ÝÅæY?&£³d8]‚uutôã-·yB–zM§ì†îh†=Ù–¥eÐÖ%æºÄ]uçVÜK³ÓróŒARÅ8mñ™Ä§:g›#†N¢MŸ4Ò.®ªFn_¦å÷~ö¢Iò“8PÀ×’™`\g趱ÎÐnـƷ^ÛåÃúØX]{#¾|¨”˜^eí¶l–Š;CÖƒ#_Õ €‡ÝÃÜ«£n7nÂ’E††ë‚áKàLªF »¢¿Ç¦qÆ. ŠŽŸ-2`Sh¶Æto+»ŽÓ qÙÃn¼ÃÞU<$1mض GÑÆ+påDôú¶¥|ÛRþ+·}màšæˆc}P× q’N×ØõGäæoäv¶GG’BÒ£ªjð­¸5 ùÁz E•/žœ('ü€óhòÛÛêV'>;“¤}×S. :cLÏ!¶GrI_Û’ƒ±´Çpkœ„ d#¹í³úþ9ßl³žm‚–(2ˆmuj¶ÖI¬lê∔ÅfL‡4ÇxM çr÷œÎNT\¤Lfòge˜J€vD(»ÑÎÐœ%¥ëÇ@¨O n‰UH‚§íW[&:À %Úì¡]]WgQO¬o¶Ï󋃔QB‚‹ÈõV50îïô¸íQ7§éì^ ­øõÁfmžP/ƒ•‚FDàµó–µà ÕÎ^x KU °ÙéW‚—QDPzèìW¤HúçsÔ@=B¸õžï¬|]…Û0©Œ1=#kãñçÓo\Ä7.â¿Œ‹Ø%w—ä9>"}¯ ?5—Eì3:T1щ…Ëx1ÃúÝìµS£‚–]sh쳨 `Î 0Ê} Éøu˜yÚ¸q’Ôؽ6&9¤&©Š Ú `C¥ X´Š÷>xþŒuìFÀjšFÐÚPÔÖÔ±ó2î¡FE„Iƒ Ç&fÂ4tuFz¶8z%tEÐ5j›n ¯™@EÇò¶á0Øó¡ }7õªiÜœÏx„Q ^©O2IJ9j ikAqš°i…ì2@t%¤ü¨ }Täˆ(Ü%‰ø"ÍÁ+–Q~ß«]”” õ®… ¢uˆÞ3Œö†\Ƹ¨04‘ õ‰¼ðÈA’6Ó`”=îÕŒ*†^‚†¡€· ÅE q¡´¡‘a35§iñ’4ç«®óKîØʸƒÛ3O³1]šxÇE8:ïCÆ»y¸»»5}$S¨ŽhÈàa™¶0o†µ‹WÃä8%Óm©ZRtĹ¹´˜wÏKŽ=)·múÍ8xöΗÙ=¿It¿mœÿe§µæ1q£¸½z8Nw×jC @40õ ˆö,zÒ#xFÞÉHàê l1§ä¦LHxÚnʬOp€"àh8"è†ò•¦Q‹òW”vÚè¹–¥ gÜ¿ÛtW,µ×tí1–Úd¡t òÀ{½ —‘ô¶b½‡ÀáΩÿÅ Ãõ!ƽ£Å£žm³fP¨Ô€ˆaÆ/õøzº„ïÝZ}a¦žBvá±Ê=  á¬¹QY ªMQk£Î€¬oë—GGT„b6 ïöâ¥#›_=1>Uet âIžÈ!PÆsd?†èDì­Ä‚ü‚z´/d¤BiŒ-5¨H0h]ÂZ&‘Ðz^Á•®il7’ÔNÒȮ˹FÂh”IˆSr§µR¾è0«7tÆE… ¢±UÐEÕêG1…ø*;H“µuÕDb£Ü,5j%óù“Uæ9GeG«$€j ì ¾‡¼B/´Û=GMäsÁFzÓ<$»€ƒ3_"?:ƒKÚˆNk°:µâzÐËiP!åÙEr@»n1årƒ?2Pð»y1ð-÷ßî4·#Kº”¹Ù†±ƒEiƒÿ˜Øs+‹NFŽo6ÄÛT?N¢íT¸KBಃÂ.ÔæƒÍ@åµá€ÅÅÁ&ä»F#‹öˆM’Ãä=œPpÓË¢tl´8L¨NÝ@ý•D”„É‹0Ò!fX3í v&€SÆ×·¡XNz;n½®Ž‹#@Ò¾iî”­˜ÛØ•2æ¯Í-Ôæž”$B_°L+‰i+‚3q…öv¤³ºµEL’Æ°^? |Qé§E'ÑÃ1\2ÃÌÇs›Œ..B yM綃Ýí *Š=+° † «~^ ¥·™†`a'ʇîÈÿ&É‘®Bàáï–S¢¤¬rÆ6,á Ú~ˆ «É©bsMH›À`¶]|ˆ›Á`ÈËSc ¡‚ˆpÒ‡hyL,½0cZÀ[¥µ„æ3Ú¬]¯Á{q+m¡NÐ:2÷F#™V:‡¬TGü íqh€côéúž„ßsCk’ôŽ¼õxpñÝŸuqEsx·›!Èù9³Î&´¶7°Skùw+Æ;¦áà–1Ë'åý†Ê…°³ƒv &q/jÑWê”à°d‡ÇG‰g'^ÂvNVœ% NÆ"£ \É‚ª%u>â@N¶wÿ[A¢6cÃÂZä]5Ú®5„5`ˆÏ×ÐÎ|©5 ä~x.µZ!rN“X:Ë=Ÿ\å$:†-žiÅšƒTv(¨…Qð—8@k{o©R´åå;{zãYC1¾A! ¨Oõ.€pqg€(Îd6¦ ŒÆä’–õQ=%‰ç ›\Qáò'Ï4Âþ¼$¼¤âÒ˜LQ¬$V_'µ­[I¢n©TX+Ž ¯2Wºwhh‘^“2ü¡ºˆa¶hÅ8SAš“}3¨(6G ‹OË­€£o½MkÏ\Ü’r¢d¾`\<Ë…GS0kÍÃ_÷6jÛ«;o_­®¾Ýßدíîm쯢ìóà׃ÃíE‡¢ˆ ç’@zá5šÀæV#â4ìOû;Ð7‡Æ¶ˆ !ñèI–#´¿2.Ÿû=qì†&¸åœÛ²ZŸ™­V˧…Â×ÕJñ¸ð–UiNIô™ÄØÚö+ì-´C TÝ «[›«…ÂÚ$¾P )»ýPÐ=CÕ.«ªV» ;}#¦Õë„ ]Ô˜pcþ!æGö®ÆÚv:?Q*è~M+‰Á‘!H•¿ª:¶jN}:‰Ýu»… û!š]ðB½. ÇW¬=<©é’áO+0r_Â;¬qá.¦X+#¤˜Å$jÆ!Nb WÁaÙÄÞ-1&¬P~g· ¢ç5ù%,÷9œŒNóJ±p8¸Uǧ¥n(Q¶ìFOÀ QºHf0H¬àÅÖ nH—ÈùÛ#U»ª9åù ohwá}”×|Oá?ÐÎTQ=çÍfN»·xô=ô¤KÊǼr„ïXñ%Õz™)K+²˜-¨*Šå¯]•¹&‰Í‘É!ý%—Ñùð¹ïÊN±ûº(R¤ßÖ µâ\*÷L¦M]´”åíY×\j”°+E“›Û@”2Cñ:f íb C@¡.Æše>ó:M[bÝ«½Ôðª˜35ØV:Í·NÛ <óhæç*nWÄúÖ°!ÜõÃ_ç ¶+®Q!¨3^iŠº‡M7ª¹ãʳp-HØ´‚,¤2‰º@†žö"¤´k»Û{x&!KÂ\?z;8€Ã*rw·dcþ—¢6ϲ“˜õH•¼R¨ÏENØ<wŠÜѬÏÔfk *~b¶ç¢J¬,n ;ñu]PŠ‘iª–Œz3€/•ÂЪ½n,tO Yi?êÐu$ñ&v(] a’65£;Uƒ>íF}Bš˜ÊÓsØÃÃôØo=^˜ç ÿÆÈicˆÜ©œŸ(íÉÂÜ=,è‡vØ\C èwøzq4¿°x¢Œ€1Š»ô):ã_ŠA‡¤Ÿö(áZƒ>v•ž:C^7Xf6“ Ýð^k 0®j7}aI7¯!—Ññž ÊQc~ÚÄot[)eÐ&XqØKîÛþ s7hgFº9—°ùG”»wú€m\×Åeæ }ÖÕ.言`ϺÔRÊݲ zXû(=À¾ÞD Î8,ø×_ž@øe.“ˆ@µ"€A-}áÏuØ¢Ÿ¨wÌÊ=À´à¤WÑo×]síꆯÆ…å=%‚žXD'Œ-£t¡Aû ˆ[ RòŠ)©ë2ݘzðå:œwºðX‚ç…úüÕã ¬5âèÍO—jÀôÿý’% o1oñ áŒúÑbíى¼ä”ß+†ñ…õ^Ùz‰Z#ðŽ¡eñ#-l žâ&K'´úÖ=“Ãù/7j¿'xŸ –‰n<Î׿¨5­Nt“ÓHî]¯‘§‚‹Aпtjÿ²æwn{ÿñ…V}êóÚ2¶Ð}§aB€¤NÄP“ Ÿ<}—ôÛ¾._ÌÓïÑœÆE¿µÝ¥§ïa_ ‘ÀÌ @ó‹ë! ´D*ÄÇ2 ×ìrŠ>kÇ»©Ï«àÆúH훽ÔÉ1‡•FÉ7éwWËö)q­CѤ»‰é¨õ‚Èlj¤µ,Wd:f{Ÿjõ®u:ŒÁ‰ž`†èéý<ãó¹»0?€@Ã9ªñžò2F’8'Å?%y ÑæÚîù1ðIØyƒ¯ÈÒâÕ`±Á•9¯HÀ¾û%RYÏy ðÕ­å,”á™~Ð¥;úÓðfá™óè’`a^™g3Z½ÆÜ<× O¦‘=®e¥Íío„8%öÛýÆ_¤Oýßè©·ÃÞÓÇòDÃkž©ÙòÆÏýÖ™LNÿvt饗ä ×%`ã‰y QH.iT’Ëÿè^%}Fvú¥JéééÒ~Dï^úïväùê™}:XC”Jⲡ×apcöá娋MF­§8˜‹s\~+þ‘Î\‡fož"ªÝ$­€š|CGÉ[¿›aØKÎöûÓ÷YÊê?`½I#Sh3 9Íü^¶ôScÞ¤Ì3×°-̼Zzúf­Ñ˜mÌgyƒ±õ 5'‡ÚRåS¨R–Ørà‹K'òºð£Ô¼@«³û˜qìŠVîõÒceºˆâŽ)í%Kö[e§©Kmx*µ—1“¦ÍÓ V.'Fât¥hd<`oAXbz¾B›ð¿mUXE5$‡ÛU!ž…°’ ·„BùME3ÌO¿ÉWÛïño½önÊþ›´ßlÒü†Û´Âµ~aÙg²ä¬ä’yëvi´x—‡Ž~°˜Fû1§ò~nŸaG·/°§;/°«{®žÙ°¹ó‹ÞÛù튇.¹ùQ—¤Ýži¿ç§H¯xâU/l? ìÄ @‰Ä ðS`ȱúåFo8ü¸.xÇ ƒ< Ë`Jß ßniü5Á{Kù×7ËzS¡htîe½Ü¨£¯ÚJIÀ좌¡÷ ?²]šÁ¦·{{ÈÂÓ¥³¤åf"øâ- Ÿ´vá 9˜'|`À”T"¥k’ÚoÉCœC_àaÔ‹nú­ÜéC0Ðsέ<6nx—Ñy6#í„A·-µ#]¢Ÿ…Kyœ¶V(e°’”‘©ªCN'k$ðÙâDö%“)2¤ã<ý.Ì-=wÇïºLZ>¦?ÂÖù³ .;ÙÈð7Ý™ÛäÊ”‰.èä‹¿µqòŸw¥¼Ü|jÇÉÅ°V)æA`07÷ _ÔHB=~$ésN‡¥X.’gK:£;×FëNŽn$ÿYÐA·%Ù2¼1ˆHŠµoa$¤`ëYNAb­5n5£_%ËÐk­FN±†HØ3ÝÑ…æs ÍßUh!¯ÔÂÝÅóŠ-ÞY,gŽ!ql1&@ªßò†ñ·IÃÈ£ÞX|Æ&3Ý;à‘ùp8r“˜¯¤\;X@"ˆ?cW~ÔÙÍUJÝ›Qí7òÃ[}7’Œ’AŠôrjB >;ÑuXƒ.lಥ˜uáb8€Ã7½4Œy cþ¾0æ-ŒÎéÑoú2«–~ç|ÇxŠÃ?.`vÈ`ÆŒ´þìVþ4¢<õ3kš²  öoæi¸ñ7o^…½:낯qr㔞‘Ò3”gLsâníáY7îß+ìÞGu!<ÆdKðé†þÍ,,¾¦Ä%Âh×í9$‘ÉçÕ“ÆSš¾Ýƒ ïÅIh8}L—ÃAÔJ’Xo]`žßÌÌ>OAþæ{öòönhO¯Ì‹nÔÄÙlÄ òÇìnrç‘Bâ•ú¿1d¿\˜{©Äeì>nŠ`[æý3º;¡èôí¼›Á9·ÏÞϧ!¼_hŒ)/ܯW|áh~|…éQyö~)UÛÒƒÛû2?qA¸ °ÖƒñÔ)þÔ”|¤^m¾ÛÞXFw(þÓ‚*{°OQ\Ô ¨Î#¤ÏÍ/rmÎ#æòôä™ä7þlŸ-|fÑ7–žHŸ½”{ŽÙÓÔÌ=}àÌõRçÐwø ûqÁÉ'9g$¯1LgÏm™<ª˜)¹ÂŽ.„w>ZÁòH$çàÔf¹+êÞÑK+ M˜/²+c´3`µoR²9#ß‘W õùYö{•G‡ÇÜÄú—¼†ühúJàï±›nÑ…ö…°PIÜù¢Ž²¿ÓUبƘ- _¤ <êBµ«„Ø4ü¹—¬3êòÌ:ãÏbõFÆ4¹ÀÝÄÓÈ"N¯¥xß$P”Ư¤^Í7º¾–*“hé)Ö™Çò ¿ã 8íS¬‡4f£:wpÑámmwa~!‡3¡Žá?9…ƒN”ä3‹2†ïsÊD½‹ë»¹Éf E烠›s,•ÇjxI‘™¬¼ÍlG;‡ú÷3t ¦p fò¶yAf_uÀEl*:˲]«Á¿\ú¢®›«p‚ɵ÷½ÑÐ,H 5)÷"8.Œ“AŒ?R²ŸŸ›RƒþeÞñSË~ýE%Ùuá$W“B̤ \åf7„™ò_éܽÖا<Ž{*€¯9įý‚Ü‹Fpn[5^Âœ!ÄûŸÅNmž…ú8Dú¾¦$)#âÏ:uàÓSóô,¯4+¨iišrmõhð¥‘Ûu\3pŸT”!QÀ%-ú:Žâ…Ѻz’S5$BÆV!CDŸ³;ÚcúŠßò)¬ff”Ofá¤4O OÜ.1Ÿ¥ÇÙL y„¹w™SÌÔº'„ÖàË£ÅÇ'ùå2' ·àÓí³¥<Æ3ÔÓøDYíR¾_!Ψ+‹{èØ#÷°óM¢øêêtf]¸Ÿ#ËÃ+&RgÕ™’A ¥ýa7oãÐß$sÜ<ÇwJqi®•Gw5K¿×äÚãéH‹„•IòJSº¿žÂFV˜¡£ÿØÕ;ÐØ#œŒ“Ö{qÊ&E€!–ÃéçµÑPâ"ÎÙ™IÌàN¾å˜ûg9\ _Š ‡‘Ét6¦'&±BC•pºAyœ?ôÌ%Ðg ¶ïˆx‘>ên¼§–ˆÞÀÖŽŒ[´rºõXo@„„å—X!&^vrGe)§x„—=òœÇ®ä•aiæcúy/?|áÆ=à»9ìCÞ€P/&ìûh©Á³–°åʹº%}ÑÇ]έméók‹"®LFçëÏ™œ~Ï#ÄRTòø {.›ê÷[¹Y\VDã©ä‡>Œ)ñàNh=3¹ÎŽ†C­wVs?ÔøËX®©ŽmlêÂœàäM‚…ôXZ3"K‹c†wÊ5®Ôg5Â2xsF úïQÒ4ßtTu]Æ•Š<¸Sɸÿù'¤ÇÞ³oÏHÌœ?stPƒfܱ/‰0 ¨æéCҲğÜËTÊ°}HžÑ½ù³\©(¥û¹o$û͸ü7n`þÙ|^ÃÇ^œËÕå˜Á·›”7G¶\Ž•[]ë©¿GÝ$Ö¶19;ªÎZH[Î0°äÉýnRæM‰QÎySS§Âd8?žoõ¯d8†£¼ƒròµ=:%£^æ ‹lq’³“{9 8^l.xÅr®có‹9ZWÛû u-Œ«+SÈ©i1·&f¤ÆWµ˜[Un)·®|¹Z¦˜/>Þ!’ÂÏØû oªîh™†I<? ï4ˆƒö`Ôëå…yÉéÒš'W9çÔ—w÷Üv»áps5”ZÓie…áB³Ë §ãê.äl,Zu|©¼ëüá„ë|ÖöR¬ê™3;¢ 6öÈ‚Š~ùÔœô}zÀZ㳇t˜Óœ9â»ñ›÷š8ywãCÜ,Qe˜´¼B$ŠÁ@²ïs-l);ÙXæ,:Ö9º:ÕÕjÊWO,XiáSŽ˜R9…£Ž~ÜäÈÅQß®'ָʻ~ôs_™mäªßŸùxuÿ¯Y›ýçƒ8_˜kÔÎG¿EÃd”ÎI xK/·ûÈÛX¥;ÊŸ¸q¯—çéÉ-=®]·sÆÿúé³÷“ÄbǪù#W`Ìæï’6ZûúnrÕ }*uC=¬6™…$ê”—ÐâÛë¶k¬û=•¤ó¢å8:@j•´°³å~Ïj˜Ezãf—´™³6*ü:Â; Ž/'Š¶:w-ØÑ9Œc@'^&”xÕ‰ÐQuÜCP8¤§‚#£ÝERR†>-âþ¶©:Oñ}&؈î qÆ¥¹­ÍlFdcïdnY1&'+ÌØŒWyº&vý³Ä3=’XZä¸ õ][ptÙ3ÀúÆš±•çhL2C‡}’MÊÚù$»á´‚SsÖaJ_5¹$Öá’¬.Ä>j1Ì ¿œâ>/—ò8‰K÷›]´’.t" Æpm Fxâºò#«i}d™áX#4Ln®ªãˆÞŒÌ:ºನV`žë­Ô?êlù„õÑñKÀ_*…Ü£T-¹,Z¿ÎAwsºYõ¿ÖçG×:ÇEo4K7€“Ûf²}4îlûôl-Çä.3¤ä}7,@çƒÚ‡ "‚ Lä 1è ÃZÄ_…jûíÁ¡ÚØYW›;jUÍTÒòø&óœÑ;•gê ¥6òI[UÁ9º¦ÅüƒÅ:¹M9KÚìš2#ø»Z!HzBŽ_IµÂU©­ÍGÍ®YZ1ý†‰Î›°;› 2¾[h°ùM…f\@¨PÇÕõØ— ^—ÐogÔ ÄÉ‹d1‹Ï·]¿EbC0cžÛòB÷ÚôÄ·§Ròœ9>OAÂn]ùQÞ«àå‰lî;*ÏÒÓ¥ŒJ÷*‚œSà^öÚ6ô;£D0? †ˆûQÞÏî'ÃÚ Ã÷&Ýê>±„5ïCЊ¬«kLWC Ž ~Õ­Ig Zk¨iÔ0ñ¸+ƒæ²DéƒY´æk2:BšAMkIÛAx6ÌÖ†/\‰q«·”Éu0²*‰å§;&3}Ä–»Ø¹ƒè±”Àó E©3m}PÃ"÷òW¹ÐàÃB~‰ÛqeÄ£79Íl‘c#bâj–‹#þ¯b墖A+!29_n´Í ™r„F`¯'«–¯ÖYÓz5O¯ÓbG‡³¦edæDõH½†“Éý²r$€ÓZY‰“Që´¾Á ÖógNmÞUï=ÎÁ¢ÃkœÜÿìKñÏ'Kí²¾"ŃW‡löͲƒÃNYGåÆÓªÄxnƒ°7Ä8¿—è×=^QÅ1|Ô¡‰£ã2Òûäž}l_·ÕŒÈæG»»lÛÇ™ïÄC‚¢”èØ\bN·vƒ-z¾À‹|™N ZSDR[¬ˆojŒ-@®·F(Ž_iÿEÛÂÿŽúxm ‰%EøˆûÚ»¼[ œwÐK^=^וëKŸý‘a¬@z8‰.zAǺ臆²Gλk@q+ÕÁḮÃ2¤ÐÉx̦H¦† Îvä°z†ZCÞ¨kJ º3¬²ªs¸:«ô5 »‘¥íÆÜLÓ_ã÷ј/—}ýÁ1¡›qU0µŠ¥Æí³fF?¢ØTâËxÎñçcC·9 ŒQb" %D*Ïð(Õéðô[y÷2qðŽÂp°fÏ-‰ o€F´" ªu<š/ŽXX(쎆}‘ìfÃêuo¥×Ý°LQ3Gè€ú[”BËâ¥âÞ¹ÞêßB~ eø¿=”¡ à§Üp†$9»+Ö ;=e^QsÏiu¼Jï(·e(·*´GÝîí ý[+• pŒî«ò «jçªD©õ–~ˆõà ìÈ£Œw£ íŸWLjhkkM@ÝæË·›[ë8(ç<(Òg<»ejÆÄ›‚ F¨Ï‚[R綪NÝâe.ᑬ¶Õé›ÝƒÃæÚZ¹ŽB±d,$rʯ@Á ¡ž†·Y¬Æ:ôí°Ìr°²“pØlµš°Fš´7¬”ãÝÚ«%X…dZ ÕjÅN/Z„éʇO0´v¼PŒ‰4™ÞVK]À­§ÏTëÙ3^^S h^Ëæ¯ÁÿÍàÆõÃl;¼ší€;žÿᯠ„GñyÚT+´NiÚùöÖmõJ±Ô*LÆ çþ"òàï=æEÏRÛMÑ’"Ô}ãÔíUÜ‹›z®a`–Ò@D’ W«3•tKqXéÛ }ô¿ÉØëø…ö\…j“À‹0^À,·éþ#P{«d÷à%¯=Úoåìñò`ýR#•¡CãôÅeð{ô¢·êƒÑðŸÃöˆöÚÜÓÚüb×Ú4 Ùlø)–UÍŠÏÏ`×$whÚ:o€ÙO`õum±ôÁ¢OË:Ûlße l‚´ V¯ìs3Ë;áðdyf™µ×øUM£^fE Œð–èß4ËöQÊ í>ëRðýzLwúXžöbᇷ8=…FXíµ«Î;éjV± “‡u1q׶‰3À^¼Â£‹´ˆf<{¢Þ–O€µn]ò"ÙØzåV2£®©ùIØÁØ(t%Ñ!¿ò1GK¡ó³ÄÅDFó QxÎÁoxÝEÈÕÍ0:‹:ÑðÖx¢ï%@ÔQ5  ´2èEI—8®‘ïîÃ1B2 Íí=>ñA´„dâiΫ+ñ8,·ƒQ× u•®ÕQf$ý|„—_õŒÖGÔaøˆ×…ɱÎGèýÌGºƒÿ(Fh(³W¥4 4KÍ&4ªÙ6´ä³:@·Üi=ÆÛˆêböM!û>ò~1Åüén¯Å‘•GC\KQhξk»¯^ ²Ô ‚#Ôõ§-á¨Ô °ýFÎoô–Kújl¾ûQòÅÉŠqËF S©d¾ýÇ|Ê₧0æyuó¦þ¦D Àqðƒ¾}IãÖYßQ­ygïã:)‡ËŽJ˜xEÚ<üuoÃÓYªé¨Ó{û«‡›;¯…Ø/3MÒös8ÒrŽC¬Z$|€LL¦BùÕ¤áãN…<) µðÛdm|ª•>ÄɧÒéî' þa„t–aQôìC@Ü`Ú =L`ƒV.(Žnó@`ä<ùkµ ÆJ}Ehý~nWS¾Šî ðª~Íö¸§cÀ=ý! EÒýH­ªŸ{õžKŒb`!Rm{CÇg çÚOç`3Æ›*T8=.Qù‹Wk~Þù¹Ö|òÝ yOŽ1º7ç¦ê¥Ëè²ò Aa†'èÉ`ˆ9ðíiaê·«–œgš‹¾Z±<•^rò“p¡Íƒã^Ë ù|ž+Ãp¹ ‹ãÅÒEOtÁlÛi}–KŠÒ\mŽU;üƒo‘OÑÑiLÊ^=öó6&æ]Jež›ãzùçk s “Àgr?™˜û‰Ÿ½qWþ§N~fÂpá{‚žDÆ2à+Ñv%ŸEs/GfÿqôóồÙÙ²Âøjª¼úrm}ãÕë7›ûik{gwïÿí¾ýù—w¿þ½¬ÊÁY«ž_\F¿½ït{qÿŸƒd8ºº¾¹ýÉ“OW±7Ç@xaë¨æΡ>…¿‰¯á h”è"Œ6ºÉfx^„Rdìè®0j©½ÝƒÍw°ÅœñÌÄPò¹ âéîÌ—­yj£‰ŽÄ|½‡H&JÚì|L–»mBN-§kœÎ2Àì% vk±Lwv¾1·´èôtùñÜòBÅ+ŒSBÖ— õÇ™±BVrfùíÎæ»&Ÿ­š?/ÃŽ1fåK†a6¸£ÕàáíÆ'GÉɽv:£x›Þ.¶»'hø hÆÉufó=˜]x6çÂо«}Û­4SÜ]ÞßOªJ!=ÓØŒÆ?Õl8lÍvãa;užÁm|8˜.=®6ª •OeŸ*¦˜te¨7’«âMQýõ¯©[;}zêœyÃ>W4庫§F4¦]@æ þ˜b<å©=l”\ö³Îác?¼¹ß ³ .‰†#V3!uÔ³¦s¸f?3°¸Y]ÁóX$PD y ªe õÜ-,~ ÓÎ3Ǩe§&R´HŠÛÉ°ˆòJýÑh‡COs.Ð×òñ@Šÿ Á¬+Ò8WÛh€üjfÄ]UÄnAxÈ*¢N½ Q\ë ô„æ\¯ž"ê Õ46 <è«zÅê'º|ªââáîAQµCèeHªrüÍô-2h˜ì0`sîK`'õÛ×Ã+sÒ!ý>€MŽÌøŠœG`àxŒ#9»¬ ãy¯…p…Mp“±O9ɇ·´(×b:e#õü;…d'“­zæîj§îUŸiœÏžÀZ¿b›èTm¿JQC.U­Nr+Õiê¤,éóeІ}Ä«Z'¹Uë´ US– ·?Î~…«2<þý+ç2R¡aØË“~’IIM2Ü5e|؆Ìi ®J8ÑÅúB~É·[‡û›ïr˲ñì] øyõ†2ã‚߆÷„2?7?·¼¶Å-qŸ_\°ï¤ö¬G΋Aп$—Ewcu?!†ûíöæÞá´$àPÌ¡qb í¼} …߯\Y]«ð(:‡£¿j6[è" ÿƒ$QÔýªâúåJÍÎÐÆÄòªé R¸aL>ÒffáT"B95OÁà¢UÅ£û@ÍÀóÕÑIE}(<âs†ÍÊÙ0CEébϽbÏ©X¯Ãeµ…Ô4œE‡M ò &‡fãe%•o„~Ý#5ƒŸéZŒ;¡¦‹&˜8‹úK‚G¢ã^‘›uÔ8©ˆæÔô\­ÀóÚbÀÿ¼¿x'x8}&xàÈ*x-ŸÜ/wÕ ‹çÕʯ¬öéZ¿~bc®,Ñчât˜ -&TZi7Ã뉔ª‡Hy<ÍfdǼPlÌö˧R®~[®|)—8cp×úÚûæå=$`Û«ïšþ&¨éš ~L Ý #1ÚA…×æàŠT…?y8BÃõ²¢'¼–Z^{7ûöÝò“ôm•”EßaOrË”aÑ/eÚîÉ™Rå౿0¡\†¯þE»;Ëh…éo1Ôúkh½Ð%w"‰Œàý92óÑ0$ÃXëa‘giowmãà`wÅžÛäÖ?%!È‘¾‹1Yá Ñm=}Š1·Op™ŒÏÑ€…)«—Çà>®î¿Þ8l¾ÜÜYÝÿµ¹¹s¸±ÿjumãÓ –ƒqÀ†óoÜ<ÝYökÃŒ®,†¶}AÆ«Yܤ-×˸¹ÏZ9ÈŒHLC…ÌOA6ÆÖTz<}:³¼ÎÖø²à¨k€ý¼¿à!‡˜îçã#„!Å:… ‡ršGŸú¤ypïsïÖ0‚ÅTø#DG7ô! ú-|þ9§åC]*¿(µ¸`c¿.#˜l…‹=§B5ÍdÙòY¶:ª¥Ù·Í4ï¡cp’Õþ½¤Y±Àò·¼ºùîÇå£ÆüI½±<_¡Õ Ij¾>_oà©_ð'šýÃÙ½5LÒ2 í0mÆõâÖšê"º é:ñ©º„C/ù…A{ùÈí¥òþ'8Ë¢¦[Ö‚–ä´\˜elU™¥j3O—°¾¨™ãÌ°C”.XZtòÓ¯Ý(CMâ„.8a-éæËmÙŸ’#™NŒTgI+&Ösסº´¸ôA åÜicÃçé¢NŠIgq²0ÿ˜Û/ìÙ¬pgi W+ô§"e8Â|–pjÊáo“YFïÖùp‚øŠìÛ4Ýt}ÀPùöÏÍ&mdÍ~kºÂ—`اib!¦¦ú£a2]Ô;Ÿ ÀàÞã"g Ìsü,ÇÝ,‡Ëm܇_Ç0Žoç¦q8ïÞ,>pòá.ú2÷L†<‰ûŒ 3F]„ñEÔAM¨ÍuWË “@;Tm 5ÕFÕTpÀYö¬£­èÿ4‚;1%*5©"@w]xÁp6>Ø*ñ¢‘Ƥ¬övÙØ/,Cê—ÜGoQº ÷øߺHu“î½>BäÏ`†uÃåÅú" U?jZº¬e¬>…¥sn†9c3¹|ÂÚBñš&ᨔ‹F~Ù:2wÇXØlêǤ8h³öþX2ž¢é²9[6õPõxhçA{¹{7jŠ|ã¦û¼¾÷nvþǹ¹å—õÝúA=#’¢‚¹[÷3€;‹aãƒú¡»Ëzºøe?o#f;=YtŒÏ6?ZÎÌéÒKOž"€7{µ·zÞì½}ÇÈ|¯ëŽúÑÜK}鑯QoEãTëBãGåaÇ›=^u,®5ŠÃNüNæ÷©¬ØËUXéÖ_ºáeÖêĬ\,ž´š­þ¨©­ O3ÙÖˆÆÈ’õoò¾½°Ó<‹†I>@VAÞüðàn€z`ý–Z˃ìßãy8–ëÁ*ò5ò\× +«î­6QDÓhÎð4 ‘ 1ÀÂ|%ÿ‹`~l ¼n;ã9©Ûø‡õz Ÿ¯Ï¡Yàó e–³e®©ÌâH¹œý\dÂóHÑâQ¹úüøžà]͸ˆ³Ò”&Œ…Ke|ULáëX ?j.ʯ#—£Jµæ‹pT“(ÀÁîÛýµtW׉Îõ—cÔ‹ 1g~+kK`úfDNÓMÍdb7Á)Ä!†À ¡¡¬´L±ôˆxi 0XlÊSÍ¡-§$!¨i(œnåTº‡L2ý¹Œî<5mVmE òÒmÏ)ÜHnÜ¿0,ÄåÏÿ)·ç8™ Ù¾sàD䶙ÞØFs‘…ùt‘Þ„"âü1]dB‰OùHVLBç?”;ç Ì=kÎEÆÜöOD‹O9Hi%«~º>ÖàóôÚÚîÞáÁŠºóŒãlX$ëִѪc H­Tû¨šäÅdSûóœäDTdÜq Qí­7³&šL"£ƒŽß0…¹— {LGï¯Äçð9Þ£Þ…¹Çs3¬Ü¥yÅϺ™Ê£¬Sä_PS<ø:„k"Ýš"<Æ{q¶¡$¯ 2LÇ¡CÕìÍíµ¥§?‘óÜ^’έ–Š¬q8±ŸŒÕ•†!iFäÚŠƒ°5”âƒ0솚/áÔuEVFxyC¸3‚@4UŒˆ>hQ§Goùô/¬Ãdºê)Õ]‡ó΂ʇ!®„0ŸjÃümÈ[ú‹ˆÐ•~ˆZ9ƒh¦ÒȨ… `F²é[Ù19ííÍ}ïg*,™t¹2¦q¹GŸ'öÔ䧞þxôäÙ‰û!£‡™{<“Â.H¿àܘ‚3Ï~üqfy{oc6Ò׳3pÒ›sÓr ‘Ëì;¥ÍCð’¿/ý1i9½¡i@O@9Õç”!A¨ošbO^lkGbÑ9ñüÜa“œ7ºï3WóçIªú¨HÒšYÞúÿì]{w9²ŸçÐØž±Í5yø&Þ1ÆÄab0 Øq6Éà6ݶ‰îí?f&ßýV•¤n©@v²sÎ=w¼³ÔR©¤.I%©êWY&ÑÄÖåag¢%k…l¥†ÐÂOüêz–†ŸÂTÌ^¥81?Q×Ößfq1ÍbГè£ýì£" ¿?0G¦×7~[Ä;dP*ªÕR‰'ú¼^Iæ©T^Ìæ [Z*/ÑÔÒþd÷5²ûK]‚Y×eXíTßgßçšíŠ& 2„¨5׿á£AÊÂZ޸̯Ç$ é¨æþõ‰§Ï1qŸWßÇÌ µJ¤jd?nÂ7ñÆz=¼ „\Ïùt?‹|º—E^#²Tëz]½a2 ó·é»^éX'†“Œïÿtõ„*døéoUK÷¢ ×"#pÿé~zÍ°#Î|€¼ÞÛÞŽ?^Ÿÿ›—sº“L‹ÇÚEGŽ2I¾û¾Pwÿ$u½Gò¤—GëƒÞKQîµÒŒ›.s‚0Q;å‹„Ï…éК/á/ üe%e^¡Åñ¨{œ/Á¿üUIÁì•­Týìÿ>²úøÚÆ3î¼në›#ÜÎeÃ…æÓhû›U*Ó‚å¹ ©$*©+ñrÑàvY?YÕn $€ DHò‚€EãýÉ»FkA¿òpq ¥›ÖÉ»…E¤¸„ÒíEEÝ„rO )Â] í`¢~ÂE,vÛ0Œ¸ÂˆµíÉt8ÿ7}äS¥·£á@‚4ºžƒÝNè‹àÜ°jïÇ;‡wa„žuHâë½ê0»ãçä®Iè™óÅ"0K7A|Ä]áÈÄ4Yx  ÜD/Ÿ8?­œ´ÎÕ1u•ØÎÔÖ‡\ÆÌ"W|ÜNf‹XØÊ‹B‰‚&ÆÙZ4‡QìÑhq„[]}2›_\rŒK<õùt0DÌ7¡ƒö±ÿð0¡joðp!øŽ¤µ[;Áí“%êi¿¯lÊd=1!M$e^@­A|c–PÏQr=G õÅë9Rê jÁ„˜ehèl~ƒÔ  4À$n&ð+R»Š)o 'Pàù­™N „Z€©(¶Á+^QÏ'ä`wqi‰Bp¤ ”N’ZQ> åžNCE¨¸·¼4qÍÿŠ„äsœ!ƒéˆ}Ü€MÄ&·ve¯X-5ò ·Wâ·~±ƒWzº#¹TÅm,äÙÝL˳+2µkUÌ•‰Üã•\{ sÕ/vS™Ròì¥1µ»fÚÏ&V‡^òêí?ƒv®?ƒÐ¸,—s½áƒ9µsw°¡™ƒ€¡—’6² ß1 l \vÚ8ª¬Œ†×ƒ!™â6ž§áÏtó­˜H¬ýŽÅâ€.tŠ¹º¬`4 ç^é22d‘Ä-lP|>üjæ~û”­¬ë²jX¯sèò0ÈŠRŽÚÕ=èhíô%Æ¿”꾚LÓ²fCxM:'MΗä5Ç;Es¢[’†!O_<}tAW bÂÓ‹ÚˆpŠwßd "½_ç S¾ÍB Új?‰O_bÁF½AF¼¤8z}Œ¨Ã÷ ‡"? ›dŒ²¡îpH‚¢¯ò2ÇŠ#?a H8ó 6°¤ŸŸç8Sf ñvÂá!Am{ 09«Ò}N¨´<Ø¢Àz÷ÑXU–ãàk„8~5Ñxs.¨Ñ„\Óµ§ì´Ö¯žžÔ° {â# 9(À\¿õÙØö˜¢ÜÕ'·‘Á@4–¾?sјɶúºñà ˜ÏÿÒ*ï˜`E E.ðm-è•ü÷™F’lä?°ŸðÿYØß*éF6^’ò©da†úÛUöÔÂ#©Ò:ÈÝ”Š9TÝñ§Woõª½ÆEý fN¤/¾ -ÚQyþ4p¦O¡ïH …/^ 5ÄÉ ˜Y‚ æ×È ‘•,½ÊêUÊrƆ¬ Û}’\i@/¯}Š“fР ˜! ŒÞ„é†apŽÝ‹3"HÕÌåajëXq@в]ûìs3QÈ'ŸK‡ƒ”>Kv7¢ñ#R„Ä)6ÛhU©zOx€tVãÞ¿ÃUùAo‘r€Žp¤hŠ„Ц¢) ¾àÆ£h]CÅ¥h†’µÁÌ1 ×ñ‡ùžf¾þ`•AâGŠ`ÁA„Ñœ €ì3F•Qx1„ŽAÐöÞØW«!¤zì£8{¸#9TD‰YN—¤©‘¦ Šˆ¤5sNìhuPÎC9H&aeuœ‡ùǸtÜl¯ñ“ißrp×LãqÊZÆßuùÕúž›ö*||Ñ­æÓúD/¿žݱSù°·ÿ)ܯ©.f—rvXùµÉqV®ËÚly7»É/kô Ìž†²Yq˜œs'š3ûG¶fÃÔQ›"ywE^Í'EYŒt½ºÊö’âR2ŠòaNøðø~~pm`gÅ‘®BïN#{!.¢ó´×M¢p5ï…Â^!„\Þú›Rçtåk_ZÉ?lzÅ€¨õÙ4âDtç‰E†ûÛø¦#†YqYH+¿.¥ÊB²®#M2NqgiŠìçFc)’»_Ã$k{ÎWPM¤G§‹Çt)Ñ%†Kêñâ»›±o9¾õù6Dó ¶£ƒàr¶âöÍ”‡Xç‘bÀôŠ2}—v"¾f>þå¤Ý–¸åëî`=XœD&ŒËá +Ä&÷Ô!H‘GŠ®ôÌ|óÆÆ(¦ïÏ𞃖TmyÕ[œ˜h Ä›…GV(E=ç\Ž¬»Ï€-ªyëLôkS Çü#aø½Ú–‹ :HRv\2ÃU¢ K¯…Ò©»P=ûù™iA ã~TŠñJȃ/È$Îu?FTsÅL•:âYeUËkzðL ÒûìÚ9Až?“>d¡û8¨„%­22oÎåê G[WˆË0Ég+µ^ã×äìŽEļ°éJèd²]ØV"o‹HÑÛ]áo{ñagwOèñùÛcØ×»ûÒ¹ÎANTGÛõPõ ¬*…çK–p K kþ!ÓªI‰[Ù¤Ô¼žZÞßÙÖºo«e%¸>ëÒ¬½¾®4Q§0òÉйX™ eÍùð+û”eüS  ÐGˆ0€g®!%˜æ5÷ò¤]‚6Ûø\`¢ÇpéB+­ýÎyú¢*ñó*àÞ*X‹˜fSkÚYXSò;Ë&¼EÑþêÖ³à/¹âüð;ç Ú …ª¦ÁúSÇWc1zÃxã5¹(Ǽ´8ŠPú~$£šVBLÊOñô²Æ;M¬_Ç{¯‹ÏZÝɆËÑãnu‰ä„ÇÝ×Ñ#‹v-Ú7‘dµ{"ôŠÝÍ,ÅD·ùá¨þ©lcP?–8Gétš0;°7'S$•K𸟤í6¾²P´ÈP^¨G†Zºê =äFAõR•'EÇ¢xÁä5©]oõçM>Sˆõöâ]Õ@[öÚ&ìß4Û¬qÉÊ Pë´9†}!³o@š*3„ú· : ÐxÕ"Æe4#،ۣÃÁ iGF g}ãäì"tu g¾q Z”¬ìÄ€v³•×½K¾¢¾FºŒ‡j±7ö#l¯_Ýá?‡S;6½{{*b‚  ±#{ÂÚ33rmOm#hRsÄäg–³>#Æ®"gšxàÿt&}ÛœÜúÖÀe‘1CÕÃмTbA²mÎFƉŒ&ŒrúúÅù5[©æÏ5;i>¥З™„/¢Ó˜Ø~¶Òª¿ëæBØRe9“çæqüÝØÐÃÕ 'µ¬|·YqŸÒAù¯ý}Wšßu²aêE8ò>ÀûáÚçÄ„ž~š¬/ð8m6 Œ£õó”Á9–ÀGö‘óT9²C¨ü‰ÀÆG ‚M‹öGök·kðlôlDæÔkþ‹¿½#6skçxÖŒÿ FÎdNüu'×Sþ¼Jh/€nˆ¥Hõß$Ñí^æÊ•îy»ÞÉéâç?•ù›š¹¶·Xþ€ÎN ¯¡C«¬"w¦ë;Ös:ø'r,6ÍK¢›Ï¿–è±é=5l¾À"ôJ³(ËbR¸CL9貕¶.+Ñ]*Ã6cÿå'õQÁnÒ!›Ä-|$Ç~ÝßÑÉ N[%f„ÖWA òé>à?÷ïÉ·ËÛ†ðYѽ2Žfnu;¹'oO[íÞÅ»O•ÖY«Û;k 7Eµç'¾—›šËç&~̤9ÎCË™`Ôˆ ÒLCƒçß¹‰3ñ!Güêú¨‹s+d2¨)*×>>ÈùC{ mâöñ¸›®¡ó$2r²˜[Ü®öÈœ¼ Ö¦y”²"àh•ˆtt‚ÞqkwF8ƒÂÑ`$«X„ù hŽÇϔ҉B¥ÖJ®„ÔK̉A˜‰F\S‹E%UHb,Ò*“˜Á •‰GI%ã³wP2ö(Ú¡ºõAìä$£W(‚sRõ€ƒ)Ä‘GF;ßPž6œ´fÓ ZÀ%íÔµ€=˜Þ§J¿‚Êă9ª€â`Y¹;t9[ô†S;‡N<”à³u]9^¨¿…¿ÈäjZa+Áð;X_Ñsˆ0Ïlå‡Êsî‡íâ?¬H&˜~ ­Ã×Ìwÿýý»ìû _Ó¼·QŽ sü ë€]âön¹ ÿw åý.Ðoú+–‹{ßmïíîîì·÷¶á{¡¼³WøŽmCRÿf8$ûîîÚ±ïæ´”FÏÿ+úkÿVY†þë½itY³Ú«wÕSßÛ³‹Æqý˜U»ðs‹½kôÞ°êQ÷ìô¼W?}ÏZgì]µÓ©¶zïYý²Ý©w»õc tÖafû´Q?6«¶Þ³s˜(^µÇÞŸwØÙ»†úzkðzÛèDåË@öh²{ýÌn=Øæp…uuºrŸyˆ>á<E)ú (;îÌs”#©¥pÕȼvÐÛe:ØÜƳ§&í¯ 2 [D‡¶oè\@¤g> õÎâ^1¨¡*…ò 5Qz\ Ž·2«Ë2±Å•5ñŒ+ŸA¦”‚Z0è+¡¿ IcÇx¤×qBÐ(Ù”%¯Ÿ+ìÄû;u¼ßØ/æ½9¸²WŸÅ¨ÒŒ™…ž8 ñÁz³Š¦áÒÖ°³É1”j4gSg ³ƒP­ðÌÉ‘¡ótqÅ„O7ðâÞß ÖûoêÕcXå`Ñ»wðA{&‹NFð…[$òŸh°NФ‡¸néÑ6ï]‡ÐJøC¨ÙAºû±¯ü HR‚9uDökèwê©9nŸù3Ì8 (€Ê}ß·ì)ù©j10w¶—äÃêó²îôÕv-9(ÁõahÑÀsàvštçÑ,QBðR%èJèB”»þÄÁ$¥…û|¨ÞY^X‹’Ž_;%E¨ãIYE'+IÐøû8Y³Òç­ô•"Ö54l4ˆ—1Û•¬ݸï:qê²ó„ëR$x2uÜþ£ã¬XanÑ÷í±éÞ9ž­ò&Å #+ðÃFö>›æÓ ~ûÿ£Ð¤¬ÿÃÉ7¬cþú_*– Åï Û¥½½òviw›ÖÿÝ¿×ÿ¿âoUÅ9J•9¥…#œò ÆK£Äãþ* "®›‡|F™y6ÌØîlzÈOáä’´QÛăÞò~îÐç.}îÑç>}¾Übx@Ÿú,â2 ÿ–èW™1Ä;c]çfJæs¯ÙÄ¢s‡-Ö˜ :+R‚kòE!2þH¥x”ª,;ã!¶ßÕ4R?`½ÎbA  §È)7Lñè_44åËö€(û[èBèÒ¦XSÅ‚OªŒ Bõ€†² B»¡xÅA=–<2E?T®)H8†k[8¶##规jÚÙy4/©ŸmI¤û íqxÛ¦â-ÌÇŸ$ë´¹´y]ñ;B º u›g<ðjÖ;µ7@±zÔ8m€Þ~Ýèµ@õc¯Aï«¢&UíôµóÓj‡µÏ;í³nwØ­÷`ý¶Nòñ·Âù·Â)N߀šêÌ!ÿv˜Á%:L f.ÚU%+è–xêɳ®mˆï›ùÃvµö¶zR§£áµÌÀ¿FžËvŠ<áO5²A&'<›adÌq¿?°à{íÙ:XY[ûý_Ý7òçŒ/kø ß­Ã¨öÎ:›0°2V·W==Å–ˆ¯‡¡ïõý»þqµW¬È´MŒ–3XDÕœ0bN:ÕfBf5W·Öi´{I™DíB©¤2 ™ØÌLAÈ|<¢gb ôƒÔ>KnfZgfõ´6«’Ñ©ÿ>ëö´Qæ¼-IÁrz½àaèŽì)ö!%ÒY¨šŒ¿áÅ^ŠšÎS3þLÈ…xã™ãÔU;k6ù¹ÜF‚Ú½‰½ÛÐ÷ìÚ—ÊMõ …%¤'™jíô¬­o–©¢PÆ7óæ€öƸL&~öÇeØ€¸~BvÁ ø_öÞü¯ëjî¯èóyþ‡¡C‘X¼¤Å¥5ìðƒ_ÀóD©+moãÏímüµuÌ¿·ŽùëÅ>/Ò3óé0ÎW‡;»œ.n ë’âS§ñvÛ.A>5SR/H.ʽÞsŒÿ9ÍùInÓ—‚%^sòkúmÇ-¿!õí[Jxû–~»6_”cëÊoJÝ;ØÞ³³«3ô'ä}÷’®Ùo)G<+íì¾ Âø/~½†cÂßøëYiwû›CüÆù«±­¿Û’r`R$åĤœ@ÊË£]š7ý€ï·»¼”@¿0aùNicïù1gyIÏJ/·v£Í¥Ûg¢göëYÉ] »îÕíÐôms-Íð,“dˊᙟâ”8ïP[^ƳÒþŽ™™ü„´½ç‡Ïÿ—Óø'¥éþ:9<Ü—ü i .ÿÂ׉ÛʉiçÕÖÞ œ~È7ü fa<˜‘/¯á=”Ž¥ÿ¹‹h‹KðoHýÎÙOóñ¬#èà_ÏJB^b’¡4åGãù„©Ã£'×&ÚrøxèÁo›‹ÛqðÒÍç[a¶ I²e0Ì$a—Æå"n ”À¸²¯·¾Ý;°[JÏ•ÖH~V^v³ù׳’æ31ÍòœDxPþ€oRúÆÏJ'ßnßÙ×Pè~?+½9€wtžý‚œã]<ÀO쬲i^)=›L°6v…ÍÊFÍFsØà{JÿÖ©|Ãèß&•q¬ùÐévÜokVÃù„<`uøºO)Ï~R–:RZrú†?) Õºt"ý~F„ÌY”¢Üv.±@r¶¬^¾|ª_òíÛp³:=W:Ô°$?‹µ%¥Œ|r^'®³wÞ@¦Vò$.óãc¤K.}p:Š%~rÚ¨ç¤ÒdzÒi»' 1ÿzÆlÃþ0[uÚQjRùSçqt³gæC§'N…Ä”f/*6‡¿Ÿ•,ÃýL~>+ÅW1>6s…éÎ'³e–#&Í Ò~IŽ Qÿ–ÔÄNtI;<çÙh‡™f¿ž‘¶’I¦Ÿ.ÓÍÉúëYÉ žñ/JÁyÙTù‚d‘ êPwë%<+¡á gð/Hyÿ4ú”Ä?Ÿ•’N˼—ð¬d—W¯l˜ç¡`y-¥ŽÒ‹h·Üáû)P‚ãáé\ó¥™kå0ÕÂn›v¿ÜŽ—×19²ÿöËä$ns‰mË—ðìþ9òFÏ‘÷ï‘wô=²‹¿2äjÔ-•jÇo^¼Ø{»{¼Q J˜6 (Ö<*ê*‘öøB ÅÒÜ3x·b’„Tþñc#’,+-°Ô„½!V*¶´hb5["ýѲTÒz¯<@2 Yÿ­WD±Á¼¨¢nµ ¸n§äŸÎ¨?µ-²¢ÜSI!É þl%½˜~°!£íX¦ÏÝjî}QUÉÓ¹Ê>ƒ.P¡ÊÔÝ-”j¯v·÷ßo˜÷©’þ±–f×HÄu5DÉ£¶EÖÿv±—¼"vÉo¼àzEmSÙ•Ì´(½š?Xœàˆ…î•gf8ÑÐÎõi¼¸ðtÒ`oÜ4O‚Åm¥±‹ºQ$ 5O ‹·NÞûRO6f]`= \cÎnðÞ|ž¼vB·YIðGÍUê;×M¸ÈЧ=ɨ7JsU6&Yªu’R)˜98S5b<øw‰.¢‚V$¡4êÉÍUEª熦úª9 éF”sîYåÿÆa<ña€æ¬èÂ+„°[/¥J2n.;†“˜Ño Zìør%A´ÂhmJô‹Ö¦z¯”1†³³MÞP#z–Î2mo2‚ãE@9•t¶€¸¿hN+•ÊÙBù©FcZ+skåq+„­• F/9Û™ß=wŸÌ“ÑâÍ—xÂJ1œM»\z†™îí 8:òwGZ¾¿wüš¤æp´ø•¦©gé”sjª0â…ýqo¾Ãeh‡–! km kò^шãOs”a ç¤~6·æ·ÿ`¦" ÃôûJeõ !מª_ìÝ®Ñb Ù•]d£8Mÿ²ðŽÚï¾o·`t{;0žO Ÿ 6ζT¿7TÁjê5ɽfÍy‹¥—>´¼IÝ¢îÀæ»þe‹G1n~ï;àE¬@ÏB­#@ü• ®—Þ=ð 1uÄ{83)…TV¥R‰»ýáu8^ƒS¨ùEýC.ºpügzJ<&ÔäY»Ôdp¡,~ƺ‡—O /°l ·K·é¶Þòíì–û Ûù-Ïîy©ô’6Xï‡U-ý0í‘3¸YÆukŽÐçÔAµ Ù/T*؃K¦˜…žKiQõòˆÿ9þîüMª.ôŽJÕ¡» y6ÕøÞ!1øÍ–6QL¸õf|§]IúÁZÎœ jjX¶”›•È0*ì:[Oï¡òì[;~MñÜ.͸”õMù_ù9Ë+8­Ó;e2€UmÇÌ)†,«ºÌÌÑ=líAxx.òû¯üÜ4†ŒÌôDT{@!HLU€È\^MãY"챼œus©V S^!‹¶¹;™¹˜UÁ5h­xëEO-ýÐêÁC]¸³Zn @}UíåëgÆMÖ™,#ÐuÍHm#fœ«»ó7›oŸ´" 2õî _ØëI†IÔ`ó"n¾GæEK€(aCéô'[ƒs—”¥À=gs Ý8ÎÄžT‹ªš²Ü…ªô¶¡%†8:ýEæ6¿Ü\|N°¹ø…¹†âGkq§Í’ýmV€0û™é3׋nMÖÕýr‡Hèaqo¸›Ì‹:ò`Á‡ñE¹Ûòº|ãªøéØåf5å†Þé]Bz³p£\ÑM93¸ÆîÁ¿6©,&lÚŠåwz\£.Œ74on¿íýfÒæªî ŸSêb&YœG„òKä|‹ôVÕlÛÏx>¤/­“‘Âê0î¡Â*‚¸­žŠRoÙT„CÖŠ;1ŒéV…íF×jÿ8jbE"⨣P„²[º jež<œ<BŽþ¥Ót gO0¡Ü•ÄZfÍ6”]>a¡ Œ¬Ð͵ݪܚ«œ0„Ž¤Gz@·ÚÐá‡6þ… ¼váxáßrÎ’ %òþär™SckŽ/•2'Ω­›÷Ä26¶sÃ?\= *"¡õ ò—<ߌ¬¨'§ÚÈí ÿíçë= ºJ¥~ëlCÁ_Ô ÿ ÓëÿÑO9-å$ß¹ØO–L†”Jµ×ß|'<˜øðÆÍñÍa £äÛƒ'â’ìÚ`Ѓ8]͇A%×B¡@"A1H zþ4 8÷‰‡½‰ûôáÒÃö…¨Ÿ:q*gúC8,†o·"] Þ•‘½?ô7ém¢¼"q… èUœÆº¦¬ˆ¾Çõ7PãݧðbV³ÂæÕ † 3Îv¾X{ü×凵'ÑVäåÁ¥ Fñ1¾Â4‚AãÍ-!Ñ£ëeȪH{i!õñøñuú/´@·'ÃEBÒ§hÇÒ$$µRíàp÷-jDÝû ¸Ù¶ÿk%ÍOdû&Ùÿ¯=Dû¿Õ‡ž<\[_{ò‡Õµ‡Ož¬ßÛÿ}Ž?÷æX÷æX·oÿød„ŽÝĺ’UFÄ\K+(ŸFX‹a£ÕŽÈä±4öù9úå"zà¼YëFÚã¼ÙŠÓæ€sP9óÕ®üS#­ó1èÖP—%•z:§ú›Ýì¦æ3éñÆ&ƒLEÔÆ0Åv^¾y‹ŽÉå³õýËñdçW/ÓGY]ÕŸ}ý‹Ìê ÕàUƒ„Ãã·ú‹µsô×áñºþÉ!€üªéyÛüdÍScdËÏËvïáºTâ˜×‹ôÚ“"ÓYÔ”,tH'?½îXE¥h,7â«ÿ¥r¥ûûø7ñ'pÿߪí?þÿ¯?y¼¾–±ÿøõÚ£ûûÿsü¹·ÿ¿·ÿ¿·ÿ¿'8ïíÿïíÿ¿Lû }2¶ÿÂ`ˆ)´Ë¶,hP‡Ü›úß›úSêÊg4óçÓlK¬ï­õï­õï­õï­õï­õï­õï­õï­õï­õï­õï­õï­õkýûÇÃûÇÃ{s÷Ï`îî¾úÍnêîÖ¾7s¿7s¿7s¿“fîYáFX8…‘»:N°p·ÂIk{ïñ×±n/—Ž1n7ÏJ¾e{qK…†ínKa«öÜfM4jŸmaodÓ\€°A{Á kl¶½ YÜ– Mïmïmïm¿`[F¾¢¦6d4нã½ã½ãoÚŠñ“Ù,fI­{“ÅOh²˜]ì¼¹™µXœÍJ±Øäu*Y×+;‰ÓZ#f ³X¹àÜŠ“-Öy!KÅ)ŒmMR.™ÞÑ7@œz\cDhÁØ#N´C ­WlîÍ?êëÿw†¸ëµôâ“ô1VÿÿÑÚ×ë1þï£Gk>^_ƒüµõ¯ÞÇÿý,æ•Ù{UEã/T%;€Nû¿@ˆÀ9Dƒë*ÑíÞ¹g¸ u×QËÏÁáÉ.°óø4‚E\ã18ix𢳳¸9DýiÈ„"£Þ°ÝQ×ÉÈ’ÁкQT$…âœÁè2ÑJàl÷àè_£âûËd´>\»Ãÿ¶ÏßÇpÔÿvIÏÎ{£ZÔ®ÁٯŭÑßÙjÆ”ÕÐÏXà\š€ÑÕ²c" íXÉ_º†0ùV< ¥êa<覈¨ð‘ÕK^zõztÚŒº+ÜC¬=cJzAJÖŽ}ŒApèmDh-ªuÝ…´·¬’´ñp { ’>V[$õöN4´5kÁ™Ïh›€– ÐJÈ6ÁØŒµ<@ ó ¶!Ë¥ŽãX¯,´Q°¶Dj'°€-T•ï¤<çï`;SY§¥.¢¨GߌÛbT¡'〉{mDdù!ôv Ÿ¢ØŲº´‡±6Ïðv:ÂËêñ_á¶Ãg2õº5c8±Ç#làáC8ÏáòÅ¢¯¶ÔêúÚÚZuíá*œ—7Ç[<¡­ï6a ðî¢=×ÏcG PM8€m8‚fø$2@B€o£€[ _¨«8MH¥M T†¾ÁÑ–¼´.ÓQÂKVkrè##`ŸâÓ¹ M‚ŽuŠuG²«Xx€<mdÊðÈàf›È#J¾Œy#u™ Þ#zª —U+ÙÔÛÊZYmª·Õj/©Â>Æbœ’Rój§6£[`8%ÔY':g» \ŠvoØMTµÏ†¥¸hü °º‚¯b÷N[’65tCoÈÉzeG’N|S…“ u6¼Þ=¨ðËV}¸°¨Öÿ¾ÒŠ?¬ôFÎ;ìxá-$;½}×î÷ch™ëà’¤_I“ÖXâ(ÆkÓEdÍd€þåar@ŽñœIÊEoTº%D Ø®-P…µ½Ê•Õ²·p•ŸÖþ\®<+ÿR:k—B»P´P#5Dê|˜5Ga-àù¿í¾(U–Jø<ª®RGˆébEš1öÈÖHƒs6ßUD¼¹j%ÈDíí?þqá0Y­˜Š•+ºF™­ârí »h)‰¹yµîÞ¦æ¸D­ls­ö¨¶^:Ù{µ{|²õêõfY=X«ýu}½¶^{üտ®¬­©Õ‡kÙx¼¾}µâ³hÔ6p$›%ØŽþfùdp­êï̈`­1}Á¢>¤§]:›µ2° çíæfùüã«­—{Û†T†„2+Äl–éøú??[. º›eâeiÂÇ°0éè4¶‡rFñ¤a·)ìJæÉ)P_ 5¬PsC©½¡Â=K;nW;&›$ÀÉÍ‹h5‡$ÁFð²ƒv‘Ql'†…{¨•âŠ«¤²zèÃz¿…=Ú\ôZºòï·++ %øfå® ¬Ô|_¯¿«×Ë•:üù¡¾¸ÿ¬­œ/”Ž_¯ìo. ª¾úhþZ[_(쯿–ĵǘF¹øß®ÀÁþ±êÚiÔ*é°¤GÕþÖÁK:"ûÛ TÖ¼X6ê`P*Ãf1 ²..’PpŽ°ò¨ȤÕÆ5eZ&nFˆðˆÊ‚5aö%峉0×B»¾,0v»¹­@IØÍku¼}¸ˆý|‹(õß” Üw¢Î(‘Ü)x3Žp-éÌŠ9Zì ÇÊOŠß,Åt [‚C-ÓGƒPI §Ñê´r³ÔIÖ“Í2œ¹z­“Ô++µÊOÉéâ«á/+åR²ÞÑ™&Ët’Â-¯£šiŽFtJ#S±@NÃ[†…HÉèü¢s]+]^ ¥Â¯1óªzŽ¿…÷B48‡á®•ÍQÒz ŸÕ¥Í¥ElËjäÿóÿWޚǭ•ï«¨úß­êÿ­VÿúÃÒ&`™wêéÓé—H}þÆ—·ÝW{LEâ"¶@‹<Õ‹ã@iÇGw=Ú§íóÜöxyšg'|ýÀÊejzü˜ÊP*³ú‹%­Näo 웟B«P–Ò4rœ‹® hBz߬ êI*Å€¢°Ð8…&*á /Ç7ˆ†.Ï逶ª½*¯t¥—Öðm¢+gaIÆDe„­ábr*µeĤõÑYT¹…+æþ-—ŒÖª×*ŸFé[Àamyåßój~~^=ß}¹w ´?¬´¨”.ƒž“3%–+P¦²ZÔ'©uä©‹/ªÞ™pzBv0èÜFÿ•ÍßF¼qú>Zj68—þügøû¼Ù\Â*þÐw 5`°÷òM®çò7÷œ‡ýçªÍEz%¦z°†}|H›3à1ÇàAJ’¦ž>Ïúbkâ8Z§WøOÊH~ £4õ&Ç!S]ž&–~nöî~ð*è§h¿Â ë2÷-Á“–TôÈkDL¢5¥oëËX?û¢/†eQØI2d;·fFæp“Ò7MÓÿÿ"'‚¬‚„pp±o$æ¼cÉ`aòBÇò2ÀÂœo l•CÑ! ú½2´ÃÉåö4‚™#¤}óVµhõD«èÔ_·+ØÝ yŸæ±ä 1|îê#€N.™æ§­tK¢4GÜ…vGî5¾€Ó2Ρ›Kß³`d=7ö3(`Q`ÔÓ4:'afDs­êH{@\È+!fÒ${ =`!çôMGé…â 0ËIKüžM(4Ë „S>C”÷š€ã剨¾ù™³xÃX®dœà2n¡~° òuD?vÝ¥_V(‚Ö^W0™aMã|‘™ÁÈF@=¤'Ïw §! Y:šu¢” ¾àMÒ4‹SG}t5”6–û# ¾)´l‡³ÙKJY,ÛJ²óÜ„Råò¢†x¥®dd@Áój `ó"ŠˆdlJçq8ú­•æxsz ż\J¾´¦ü®”½æÕŽ#þÁnR-€FJ8¡÷¦‡}™R ë¾Â ù9,|/– Rcólx³“@o@ã5ßÇÃT‹;;×X­Xðåîv¸Æ°.5¾Fél÷#r#lÍ-}_ÿ¾þÿêóõ×ÿT_ª?¨/ÖªÿRÿ¹þ´þ·úßëÿ¨/ÔU}Ÿ—à?XgD_Ĥ։詗˘b.3ZòV+¼Ä$Vp`§–‰Ôãæ98Ø·rE¶§lÑi¦€û©œâ€)æ 7gàÅò…$ÙnâCÑCrª./_ó Ð0{ø§š,Úù”+<³žh/{¯Èsn±Þ+À‡É#@ =’#h”o0 MË;<ñÕ¦§ÇÅ Îg<ˆõD×@+ÁxPíS-ø›e·Ë#{œ©ÓK ª¼uN);sl *|Û\ÒcÏѸ“™®ü‹®¬À‘4'¹4Gò¹öÊö^ÃF hmay7yi?Ó§DÎ)*ç\êRŸ£—•Ÿi¬ý§«Ïr®3 Ê&a78ë¡ÓÎç]NÎœÅùælŠœ†•Wç²+@°úf·RÑ>ºHEã’ôî#ÞçhZ\g”®'zߤI£; ¸ë¦É Ξð R-jE‹R~š‚ôS›~ꦧ6=uÒÓ®IO»6½ùç?ëtøé¤7MrÓIí÷Mr¿ï¤_]™ô«+›~ö×U?ôd`ÒPÊmK|8!{‘×kjDÞÌÞ•Æ,d'YT“Û¬àƒ]ùÝ€(謣R’òúPøÂÈl¸·Y`s"ž˜áŒqo$âoˆ,¡ëL2X.>’ÈÕŸ¶œ–Y^'q"»Är·NoPÉ ½@A·Œ`å•Aþ3E)c8ˆú0–@öS™(Ì]­«µÇz¦‡=µ}}~ÉÚƒx«ò Ž:eõzo›¤Yr9ÑŠóóöi‚¾’yÿ‡×}yJ`¸Ôîc0›Ô:Š†ˆÎ/ñGÿòá:þ›¤ëþ ç£ßñó0ã®wE—‡u†[aZ °¬ƒôäp{_$-â#ûQš¢ßoKæéiçÉy{¹·(Å®žµ¶lÜ7^ @ÛQ§9B LB¥ˆÝ+EHLY@˜“æáà“µœw{EäKX¶ÚÌ@®Øh6’2­…7?î¨1ËM%_õÚ÷ÿ®ý°TÁ»Ë>ÞëË/i¾2ÔöPÃÔr„í‡rÊøK3ºÒ Л91øÎÞÀæR-s™Ùšý„ÔÑ^kÐ&Š.Fz»Áuå»­GRáÛX„åøìÃúŽto¢Çg2I "¡÷ž.Æ5ü°é8Bm(|üŽ/™™ðwÎ9„+X­š–¢Ócµ²]/WóùnzíQåo£6õŠwŽ)NdZ,[Ò:/íÄq_ih^PEÃÌèPÊî ϳì7ÃÒÔZ½´´´¤vŽ–ÁÀF¢w2­L‰z¥¥w¨Ïg˸Š¥½¡ç$(¤ ä¢é} s‚,ààštÖó´ú¥¥aÜ…#äÞWÐó3VŒÚÁxÞP©È[TØÅÍ•¬Òµ¨¨Ø3êN Éš Ô"Kž† k0:T…c•[ •b’Q³• ¾©ŒÒg:j¢ Ê2¾ë¡c¢¦¼áEw¾‡p —¸PK=,u§êAaõ?‹¬Ã‰Ð<’ ¨®tŒt z(mŸ ^#sÞmFØ×­ õwwÛ½óå=zYÙ* ô×ëßë¤x¢Úz¾t½œ9¹ô #úUt9Yzɨ1nÐ[kðxøºž¤Õ‡_ÞŽh]Yw‡õx<~äY< qÞF3"YºÓ´Õ¸~X&4ª=ozTN)s˜ÊæR£ Ë r”â'ª75%ø®îÀ,‹9’@ÀÉa ÍÙ4îž"°6é1oNH¢¥7”º¦»žö91d—{ úî×·åÄFËYšŽXšë$ #eÑÔÏù#GÙÂ%N ˆÝ²å·l*¾éÔ³b-REbŒ”`0‹“á’+3.Ì*Oáý[K•ÅH݈´uÓ94Óui‘W>`3ˆeP¯Ab2°â ÝRÙxäÉ\÷ÂG.:GwÂ=‰¢=â*qDÀ}±$Fl(øÚ £»Ãu dVÏ^&´TTÐ];JÀÅñvKäN•À69Y·³?¥¹+ÿâŸáÖ¿²×¾çS“åšsÝs ×à‹ ŸkÎKçþH×;½—f¥yR=#zCux,>¯`5É,ò\Œ-qÙuiÚqTÒµøNÞ£d# ?;.Ýä¦]÷©waÑÙº”¦©´`—i^½éu˜WŽ‹XåKŠŠÕ|¼ò\Ñ䑲™ëÕòB\UÛ[>Ö[¨¬Åmi §”ߪèаf],®rVïfAÙ{î¼?­-ŒãSúIJ6>ÕܽJÝ=¶…Ë¡¹Î^eœh±€…ðÅGÑðšøµ‘q´fž , ùaå)Ä<´ËŽ[Ú@$vÂiŠyW«­ÑÔäÆPÉÀQù3Q›÷Då=Qy׈ÊiÆi¨Å ¤â'¤·QÀ‹d¬#¶g®‰"ܨUT/ÑæÁ´5›m¼HkeÈ$î‘î­±XΞÌbCÆÌrѶ»häÝí«¿;Ôµƒ=r¥êVœ!+ÿÈ\¯ôƆÉÎ0Áhh›"²Ñ¸åMóo癨šbœøUî±%H׸}笈æ9%ì½(#ÓïŸÕ ÆcT’1»œyx3ÏÁÕ¥ª}yÃ/óú†ú»¯póh»Ð`Êvµ‹4 HµÐê߇¦€& U¦Ôb!ìŒÔà•&JW»´~©°iñ[AKMíæ…vÞ$r]ÆDúeè„#÷žBàD‘iƒ,Š×f•á¨&ï½[zžÕøhd}†á5ñýÈä½Ø{ûjw šŽz¤³Ì¥4,8¢°D@e‚k^"ôòcÚÒ¯E²Ž4I4a6=Ô»§I']Æùq>í«‹/ȹJäÛª]ã†!NÂòæÜK.—qáZ±[y$7 ÛkÒÓZ.Is—&Í ŽÒ)üpÛì|èf%;u6+yÁ¸R6Z¡+—{gc…b8˜òaòÊù±™]€@ÂÒû¾@¢‘FgfÈÐfSßRßÚóû´ÖF'Fë\´Ôر–£¯Š÷‚pcl@|í{v7HógGçݤb%ÊQœ²Ž8eŠ75óÈ@¢0„J½ú$ó„cL¼t™4tLu{äãÇ¿¯4YëyV°Úÿ,dð^)ÇŽ‡ «ÕçC*è&5â©4Y™Ÿ™ÿmõG2ªÜr“Ù@ÈZ!ò”.f•¾â'ƒŒÖ¤œ'o0/dkD;‘Zg™Þ!²':§&Po:00ç5^lôâK4ZeC¸À¥ï—H:“û_‹}Y™8Kì¨h¹É.#¹ZÎ"žÚ³àxŒÀ?Ú±PÁ1™]ÉöGì ^žÉª^&'³ ‚m¨ô}»ˆ E-hq°CÙΞ--*ê‹œßÉÜeè~ªÊ¾ù ýXàŸB_s¾é™H`ÈJ"gRÔ³Ã7'¯ßœ< aîvÎ&ùûªÌ äûÙ^`‹>2“»ÀSªšãEÒ Ñ|[yZ÷IFÄF,SÍõø»WèrúYY»…Ÿbº™:ú £ã­Ñ]Ö¤e©Ö‰ú'ѧOå¾Åõ!éóc +¡±K?Qò‹¾³ür…¯ûüYBÖ6µ‘<Š@F©Ç©¯\Y/mZ_l9ƒmæA°C°[ŠéË}J¶uÙôÚQ$´¸7Ë^5›ÆŸvöKc¦œ·vã» ŒÖqXV¸Å§¡¶l¢swÕ‡ÂÇ*Cò•MËz*_±*&§äÌq˜vCael¤[¦'(f~zìfäî¸q2Í­£vÌ…- aHmh"±\¢Ò…p™€\äÇM"Ò=M“šžcvÐFíûz}ådè¿ßªþ_Tý˜œ€· |«0 F½*vÂÜœX¸[âÉ]Õì–ç’fãî&º\áé–­y]™§R6Ã¥K©e]¼¢ý¢Ì™ÛmÎ…biûjÊƯtëW㚟9®ÅtŽs((A_µ~ƒ“®[išËÀ–Î •YA¨Ç29äÄé\vn6#·ÞT“r+dçÅ€í¹°*דËâSo飳¶š7¤ 5¢é!ÍöùÖv㹨ŌkŒ1Ôþ‹•«=õªjæl/Ñ'—V&D‘"ûb+³Tb ÐQZ¬Ÿ†äíy.[êï²-/×áÖµÉÞbÅç!k];îH4Î ÅÖØœ/¦(6·Ö^’ØpZ;A** …üâú^,¨Á·FU.÷EºXr·ý¸šZös6¥ª¯¦ŒG÷–²z%L¾ÂƚѻÖò±@ܪZéžØü‰=„¾Œà],êƒr:Î8Ä+]À–‰vSyèÅ°«]½’ÿн£½·‚Þ·™©ª¢É¥eø±w|²±DÏoÕýƒÃ%ÓLš,Ëónk"˜1 ?á:<±t¤òü@GÑð9m_oå>^À?Ð_KˆœY |¸qÞl®!ý\/YAé{{оZš’ªÌ„6uaƒíÂÀ·½ûJ6—ˆÿ®î£D1•."Lx²Ω47ž(áIC ÔwSëÅ"NȬ0…KN s6kf„P˜´dpmÌØ€z„Ä…0uÃ7?«IÏ™µdzCD°Bp±Qݧù—½YjA­-ÏÅÊ|ûòWâÐÝ«â›éÞÓÌÏ=š†Ü¨xá Í –7°Ó²CAfdÇåLMÖjÎsÅ×Y*’3všŽšœ—Ñu¯O B^îÄOã$Õt°¶Z×>v[¤5‡#z‰'âÛŠ‚7Áè—–QŠÏï‹c˜´ì⛟¾Û‚î ¦hxðÚîw8zŠöÇý4Uk³ö/¶Íü«1¨Ý cÙ}Ï/º[±1˜´‡Ó »1#/r¤‡Ôg™:!íZñþððð|çOeÈ©ƒ†V~_XÄà9ôÐP|÷’êY”«òUðÓ}(¬g«ÜÂç«ñõÖÉ7°³Í÷øŠ/‹ƒ¨ßGËn²dKÙ’›Ü#’÷Ûv¯•\¦\ß<´j'ü(ZÒ·=örŒXé7ÖÂÄ…áEhgIÄ`û¼— $N»5øxL;QšŽHðË ºË½@‘’âÈa[s˯y÷™Ÿ)& ,÷ÝÉÎüËq¸^ž@7å¥Æɱ* ŸÍhéÅ‚‚GÆ7ÐØRS^üGŸäâÿHI„½©sW²'@öß¿ó¬?‘¶Þðv|¨bŠ‚C_ªæ僘zSGÇ V†ÞI’~MâÀñi%V³¼û ‡ÐjXâ+;VmµIŸBnm˜Íz_ô0‚¢oýóí ±ú%)­¡ÿQ8éÀ,#!Z.—ƒD{ì—"ø „CÐQ²Hs´}ÞFgåozí+"·öÞÖ Š‘p61ò´óÌYŒ0…s£``té5ôã\ZåÞW H“£+êiœ\×;ÉË•¹Ê¤´šnä8 › ß,ø£Àu”‘JxÄH& m¤dƒ© ÞûŒc)o3:»/u3ÜÂc…r·¿k3»‘{kˆ\œ?‹xòc4]`¥[£ Ët™4‡·ÃŸ—Ÿ¾é¡‚CÏñPûK&r<-ûL1^IØ ¹Gy?XVÊ4D¡ˆ§Q^ˆN0BVmâüHe|VÞ²3Hg)ñ‰Ž^ê*ì}sZ_$E" Z¤ýÍMñ<$¡À8´2ÚÙ°¸™`IYÍ—ëOVï°¯f¬ìœQËÇ }”*x]²R~z öm™@õŒƒ±ÕràäM´ætâJóŒFExéòŠóê5·ÈºÍ¸î†×Øî@ñ“ÚX}vÍ㈭õÄï·@SjU(m[—z¯K‹JrsY–r [1ÖÓšµ1|’«ƒÆ*S0Røöl¡7Ã. I§c£Ö ö" Æú4L€ä1 gÖ{Z8qƒ…»ññXhÈ÷/æçE+^, a\ëóO–þßâ[^!üDàÁ¹]Y²ÕÓ" +öô‘¬ò‡UúàúžÈÞ}ÞžZÜ;½°—{t|áñTx„ýˆl”î7pÕ‘ >âÐp~VÞÝE9hlt·¥i|oÙè?Ÿä4 {¹"D-5ð$üŒ°6Vaº^½i·E¯õ,{cmšž{(×5i5ûö0µ’kVc%‚Àî­Ø¼Œu=(WDéF{c”`t“°ËþJÎÕS=(ô…öÌôúuÝå§ OÌ]Wçñ×Ëoë•Ÿüª¿Ô˪þ³ª›éÔUØXQ+çp´yBŽ÷§|ãz¹mÿ×i#7˜k>Ù¯j«SPÙËÐÕÍj°QÌÄýr ™½£ð¶â5¤š¹‘_¾c“̂効ß+^-YDcðäXsÀôíUÙ‘ˆ×¤W|÷%þÔt×—‰WBo¹qlâ£Ùq¾MBCšó<œxÔõ¨Ÿ“pöèïO+7Ǻ÷t;iQž(^;Eˆ4ï¿°çªqÏŒ<­©„¡âˆ¡$u@—Aš-‘a(œ‚§ÿqJENŽ[ßIF 5TDzQÂA#iëL$|+6ëúQü{ ö×¼zAâåN‡Ý[ÓiMaü:tÚ&ÈOKÆï01ª­Œ7xõ€)V;üwŠÿ.­yî‚Йôö4£AOèSÞü8™ÄŒ\%™ÙªðtÙr‘º®Ðô¶ ÕɦîªõâK½<Í놗ÄŠdÃƶe›½„ì­Èþ¦…U^EѾ‰d[ëFÑäŠ.€ÝV§­F£‚:,èuc OÕŒöƒÊà¨wÊ ”-ÏaÑŠF,åX€Ôf˸>Ë“DxÄ%…ߊ&«Ò™Á‘É” ÊÂ’íÜ6¸‹i´ëXð#À‚'jÑÒ,¡h“`õô¾N ¬hëþ°Ö;þŠ‘gj hcx½Ž(·’Í1ÐŒ+Nz¸â\Ö9Li›-ܤÙ9> æeƒ8Þ2béɔۨus¨Ö-:;æé€;˜DB³sUÆÛ ÙO¼Óô\] .K¦«d;Ò‹É|6Yo*¿+õÇÝ×û{ÏÿHGÛ=µÎ„w å’ÁHèv· Ðùñ‰_atÑÒ?±‡Z®}EzY®ƒ˜IïyùgY¨pgR~<‚#3¸Ú0|üeùq!ÍCvIô@`Y9ûʺò7-ø^“ äI{ÓA'¿e!%ñmÄääL&Žµ†iŽnD×è† °ÇèUßÄë?.ë`Ÿâ¾*ÿÃ-‰oDÚµ¥Êë­ín½Ü-/f=,N35™‚1PQ¾[.VÁ ;QÎÁøX?£Z0Oõ¬sqRŠæ¶Êä5­Õ!&T &6ÁÁ&1ðX”~à64ÈÇ&¿¬KÚ&.ÿžŠ _œ­pŒ^œñvé´´Ù©„éÁ‰/SdÓ!G Ç…¼NjŠN8sÝî™þÍ^Èɬ(: Ñ8{!5ˆø5v…Tëu zjœ,ª–5U[1ßb‡?–1„²ÌtÓÉ›ÀC"ñnÊþ4»ã¯±]«ó=ìÏ"âSŽñèä$º>-xKi˪’›­"›/µ Ôl±Œ^J˜–£DmMî¸ K±aø— glÀéqç^¾Ÿ~<ʱ!¤ÈËC3Ž8‡èVvÄ¡úÆÔÊ,¾ÉOöš\îE-z“Ä'T²I_ºÆ±>ïÚê|œõØŠ7M®›uÌÄK1[Ãn_äô<³Ü›ƒËv[±ÑT,/³(º‡Iù¨7 ½³x“pzóog-_²J5öø}Å‚ÞÀÁ$òít¼ø1‡é 0άËÞ¹dúë*Âxã¢^Æâ)áËy;"‰¨m¢³é„-r×û©kÁY3š™#HÆmÞìhe®öéU¨ò&fä=A¡Â HáÜ!‡ì–z]ó¥[þ t/ö³< ¬p(áb¸ðZÐgk º´ˆ(õž]šÊ¶ƒ°Úë¨ÙâGFž¥§d²±§cîÉŧö6›é'µíT¾m\&r0†2!†Îì\+ÇÉO¥ìªyOý:6å:™^씫:A5†qË_ñ.ØQ­°wXX:íË–ƒ‹†¦©ÜŒJöiŸ̤٫¶m ¬XòÙ0ûjÊ-3 ë¸s—›–Ë©Z`"¾ÝÞúÛ Ê~§õ é3ióê ¶(ÌÈîQ«.3¯déþzåxf¨Ûq\DƒÚÍeþQõïÄ_rèÝ>!MäÁ@) ÑòŸ'íÓàÖ@댆 Ê¿ø|Ý7.]Nß8Û#ºZÖ” 9¼Œ¹Ü£n/kã#môV(°ú–*p*³W…9"?B ÛKKnb*ðy>cÜÀ͔ўð§ì±Þ>©’Õ¨¶|¡¹j¬ˆÕÕåö‰š«â9ßÖ¾ÕÈ·?QƒÑZ‚k™iJˆ’uùÔ~*®µ5ƒÎ\+YÖÔPE2Äzƨë /Ĭ‰øf;G7@Ãü·¢“ý3òÉI åpB¦ˆ#R2¯Í²Ëøäx).äY”™ó~Ú‰/àr5Îr ÞrF·=€ÝæºÑ’Lþª?fa4 ICáy SžCUÑÙYû ½ÆRY×\XþΦI<‹º7Ôz€3ÓÕ»dé ½Ô¯88 F«§õÖ.(°JsèÁŒÄÍ’]NI2ÜÔcÐ{ŸÈFsÜp*®CÞÖ–ê+V5‹)äM|lwûUSÆÂõŒøâ)Š5ZÊ5ÞÕ¢²™Cæ™ë‰Â6d¦¦ãx²-^½ä23(ÓÊDñ0ªp¹;ìÙ5ÖA—x½ÈFœ(j§Å8Ž–T'm.˜k(ì÷âÿ-xŽ‹ÏfŒùM©›¦è °Ëy˜ÃlKÞq„‰Ò…èÓ )Inü'M÷Ë£þ ¸Ýð J,Æ„ù™¼Ê\άðÓÐêJ4’Êve[½§ŽZÖ±ˆòά¯,o×£ô2èG}v‹ÐOÚ½¡º£-8ÝŽL…¥›;Ã1ãyt6Ïw“;v©¼+('‚°¯.&P%ßa.ŽZ-7JŽIc} ùÚ4·Jƒù«ð.¸Xs‘Ä÷ÒÙÝnÜj#tþ캎0¨½ªM LeùöŽ¡œ„ùw‰ÓHH‚´±Ÿi%so³·tÔCw…™u(çh°9½(eãR’GUíTt\0ŸøÌÍ-×sqãxRçœè™Wk ±–ºÖ‘ͦYlGòð1«iæW,Ûò§Y22»tJúœŠ[Ù( ‡.âÝh9moÃ=–©# t×°[­ƒŒžF€ó&kôÁ~Hs!³6<~oÃoc£“u×?—–m$¨Ü³Ëúù“Ôošyi±äk‘z 7RÔ€{Y†ÇËä1dúÎVsv¿2ê†Û Î åÆ8|\µ Íòn»¿ár¸8lå@#¦êd¦w¶ïc/Â`Å—ñB§£ÎØ3;8ëBæòMPZàËà‘5÷B 73•¹ÞçBkæPÏ…tײ+öJ²æÕÉàÚ<,‘œÈ{kç2ß ¦Ô¥ø&­qd¹“3•A<¨/•Å܆¨ø9”HM±ÞüŸ¼ÑY)¬;µÒÎX{-®/ Æ¡jÆ¥]èÒrúrW.üòOúÞF•/¯ëYðj,Uf}16Õ&¼çzt ½ÓOÝm¶^°_ÿ ŒV÷=è€73o@ÞÞÌdD†púv×]"gžÍ ¨2®vÍv¤«ßq´¡³(ô!êÕE)´yœ5´$ÊL¤kµ|£ ôóë??ªÔØ€7½â!EÇÙ•‡:ÇÒ*7—£1溓¹Žµ—û4Ör·m+wÛ–ròØÃ{¶°ž "(à”xÙh¢Ó[«È Œqc˼Xâç2¼W:Š;ŽÀ$±pH݇ «g¡ÉÌ­Áˆ‰:­õgÉÅjŽ6§§ÙóNru$ L£ßî[‰øƒÒœÇ7É%Î^æÅgÏд4ð¶uÁ‰Jc‘D ™¤;Ë^ƒ(ùLYôi\-‹¢Vý]¯»€7€õMÍ~­;FÁú÷Û3ZÏÁñ2¤Ôq"£æuÇÕÂ(Ý0ÈkYc4¾šß÷Oc{yðFÂõ3lcÄ<Ñpb`O1á4€úk…~˜ì[N=‹ÿt4ÓŒT%´•GjòüÈ­",,(ˆøê…ÿu/ƒBs‡›9ÔœV‹ŒZwáÚõÂ*¦r¨W|Ü÷Õ¦Ž«æ¿þd½¬dI²–@F=<³£ÆþÎjv<2¥=ƒ]9"Õ#†·Ìà4¡Ñí;.|hKÙÁ•öJ2ÆDÄXfimmNF‹znX¬Ò==c¢¤ Ìæç”}Ø÷,ß1Ví+² [À;e˺rL÷åÍ_ Ý·Ï–‰3£”ËpYÑy^!ÈmDÓ,øÏÔênŽ"DH—Å!`\Õ6‰•Íš2E^C\ýiRá-Ô[šWµZðù…ÌÏTÙn¦AuW4§ò‚W¡õ ¢÷Z•2ñóõâ²\ÐôVZAÕ@QÔráœi•xEÎÄã*ú†¨ÆÕÚ¡êZÈæŠ!êÜxLüŽñ&¬õnß!èe{l$¯¹ -’ åEKp{–®]ËÍÜ1SÞ4sÊ{FŠY²µ€í%”ÿ®ŒE²3nÞOàŽ¸Ç@ìæä…‘ñÖæ;ÚÅž£Œ©õµ¥úbe¥¾¶Ò_Ð=Ö­ãkM¬.µ0­)4Ÿ:‘áÛÕqä¼_x˜¦„ã3ÆŒ…\©x"3gÒgf=q)'#égDØMßVdõƼ›Ê4šUhM¹`X¶§¯C­äqŽCÊXEºå4>_·¬c¼"[ G]>è±–Yqî ²LŸ®C<ÃÆ©ö”Ž{ºœû ß,ÐÏ#¿‚,ËÜ8Á›&×vÖðÙ*Ée¯ì©œúd/soú˨€çƒõMô ”'8rÔ†A®.Øi  9öÌF/ȪÏ~U`Öð!ÀÚÛýÕ\§g¤D9ù[§LAZ0¬˜Ý\½d|õZLP‘zd7ÑmF+i¤iîŒé‹EY ÊÑU¦ÔÔ;Ž3FÞ°,^ÉÐ/cL¬§ê€»˜Ó­ëžÒ¦mR¿`MlZßkaY[ãHÝþK›]²iìÑ}` åW€ö6UíìÔ âÈPHW« Îlmšç°_Ù*ª“/Tä3¹„ãëS©]]¸Ê^UWÞ¿™Ð_é FmL¦û ¯è Í6ŽÌsÑ]ð˜!·SÀ ¸lòŠÌÁ|÷aϼìc1³r¢¤I­xNT]óí4}j~¼£:í{·À[çI[:3¦§¬0¾;*ûQ½]ÍÒÝÑGuE±Õ¦ìÉÍöq«Éži¦]O.ýQ=Þ<@öø±ùѬg"IÅÅ„U×£|”3¡L]ù˜‹R‡ Kÿ8…áá°:݆rôèlAÆ9–.Mu)o…¢ué8“1á*’AW½ƒäƒ­W»ÀÃ.èÁº.ñY[ã(Œ7D0„Å,Ìsš±Ò:ÐO‡Ü‰êâÅv¤û®d èÎÛuk‹œ r}÷ŸÆçøÀ2ø:®ÀB>r©ã³® Lz…tø‘ #ÄwUΊ,¬À‚¯ .FàÂ3¡×m°LôѬ+ûÎÜcVS“†ºÈŒH´)Þ k©€1IôÜoôXhcÎü1›JÙ ºN&¾ÅÔ„CŽ š½œTí6’t¶;Z‚¸LœÞl ÿ5Êc3´Ä$÷Ác©‰ ×2>ó=g ŠI}‘“º”…/¯£8hÐïÍ8™A—gmȵ‚@¦ cá–O­âÿò‘=3þËØ©Â>ª.FíèGHÂàÃÎ.ú —TiNL”Ĥ ãcCðù>£s||TvýCâw5/4y@AaØE½Q÷†cÜ i#(d WQà¼VýëúßïW³ô×ø0ÒÛoŽŽvN³KãŽj/>‡­úSd™óx0.Þ8´ñÁ€*¶À“lüØÈÔz²zoq¶G»ÿÚ;Þ;<À¡êæïÌ|Bnqª[/wq€Ð蘠¹›pŽx;i`wD338'M´²‹Ø†ÜH>‹ñqqaùSÍNûyõÓ隆KsË6Œ%ÇX‘ñÞÝÔ[/5, a6*¦ý-͵¢Áe›c´ ˜ FW¬ôatZôbè1D¢vGÜ•rUÓ« ñ–øê2±5yuG"VäÁ׊,0•rL0Ù³†Y5s¶äv‡¦ € ÔŠbœÇª¶šDQ&GLÑÞ;nÃ…ÓÐø4ÓÿŸÕšéœ—±\EÙ+lk\5ô"T¼vTU~äg†M‹6ˆãÓ´U€XX´KR®éÑ”3Ë`2œÖžæšòo¶Öœ6Úƒö•S9¸9¡5JÏÛzì<-ËÔf½Ps Äo*¥HwžÖƒ ·Å1†ÇÜ4íaÊ傹ä"u¼j… mlWÚ`ø*—ãVjTŠPU™MÑ|¨ÑŠÉôŸ»VäçbKÈÆoYqUfMñìë@Zïj 5ô¹X¨çÁ¥ƒ'sñöŽ5š¤g“ö;Û¢…ùF5,,v;pÎ μf† •Ÿ¨Õ_j«YX qM|7GC–$ñó ²­ÉhÅ£µì‚¹]HYÝ m"ÞS˜fÄT^°þ@ Õ5ˆÄ_ Ü€ µ…e•¶‘ ×r§KrkÈòùyT0Œ{¬áÙS;‡Çê/µ‡ì¡™tvÓÚŒ0emìeŒE”ÇH"&ëûDc[ºÜðÒu.;×Ï*µó"F}*+Æ|ÏjÇç°­ÍTD;äZÆ\ص ôÜÜÒiÍð%â6AÜÒ`pôˆÝF^;Îþ"í6ÜqóGü,3w~ÌÝ<Û¥)®V† È€`KH@€f„©õbMmÐq;cr=Б¶©8¾ÒÕQdz0@îò.cyié,w€ê\çN—h2ùáoSðcñ¹ò’ÝÉÜò®<\ ÉUÈtŒîÃD 7~#½]dÙ”¸ÁŠ¬`#m~HP•Û•:P’;<7~òøÁû[j'á¯^(6@›?Ù2V‰&µíQÝÎkoiÍk§“\6L™œx¤°$…pÆâfcd¹1OíK8c2ÉöduŽh X$ïde•y]Ï¢@F&ñÔcp}” Í–|ÂdW`‚d¯ÀÒÞ@Þ,>Â~µß‚ŸÝ_²xW\¡~‘Èi)—ó“dý2ù¥¶£æH¿Ÿº£[|…§çí°ÔOTX´¼Iïƒ#Ãã_…aK]NQ/¥' c‚cÖäwvž€TÙÓûeQöϪrüzý`ߓݯÔk ´”Ð×/ ••=¿”VYO¨ÊÁþúñëwuÝí´ !¤²bôÒ—¦§z#ÕèmmVQ½ÀqkÂ[zZ.ïä(ç5n¿2¯?ª?žã»ƒ~ו­Ú†W©ºŸ«æé'9Õ={žñÍð4™V ¼vdž|ÿšQ 4‘s=÷®ÅýžôT|؈±Q·†*VV±[¼Ð[eqN×Ä©[´ìénW\CÒñ.Ø‚î×fp½nk*7TÇ·8¿@ûÛDaË)™§ûª}ªÊäÌó@ÈüÔÓȳo\ˆ«S!xí¡Ð*7N=Þ@£Ûè á¼9²5f_Pµ1œÄhÂ8ñf]0õçoú*^o¢A÷õ’Âû™qŒ™ê×ùã&<Ã[Í‘€ 0ôå"À0H|v<¿Ôýˇëúw’šŸ§1:ÑÄ- ”„ËÁa#ÑÐŽÈÒŽmâ”ãçyš‹_yô-´:¸ˆúiÒºÖ½0 ¾Vû~umýÓÛ‘”RÛ¦ÉvªÝ\³yä>1 1WÊ+ÏVM ©RΦOÓ–$ÓBdúC2@h¦ 6l3«ÕÐ%]§Uú¾ªˆW±Ž—`ÛÄC—i”h:`*;£VÌm 1JqéØXô´‰!v›ß¢iFô›bÑI3³cÖ°Õ{°Ñ‹10µµÓ4ˆÍ,~öGC¡òuœf\¢Ö³ÓÌ8€rQ¨ŽäaÈ]D¡lI))dÝ35…­e·ÆZ |Ú¬°ã?£@iò…oADZI²|9BaÉ0ß"7–d‘AÁ…·Ð¥ "D+…ßC‹ë‡rϪ™ äê¸æ=zVzõu¶ðAD¶ŽúX«õ ÿœwû…3äãC’…a‚mPœ !Õ¹l7cìÀÄ¢§Nÿa¦K\þ•µ8±³hO¶I¿· !Í…æöõOh=†E—/°œ°g Ü…1\ÓÛYd2« þü9…f;Æñ)4áL™ÚI¥¶áÛÅûØÜÃå¦h¥ FŸŸóbNZ­¤ª­u}“MôÂO¼è„¬G©µ~2D.(’g£wÜf#çÿ¾VýaI­Û0Ø⊃eæTµ¡×ÜoÉé‚E&ôº”&g|Ž(D„¹;(YØG‹}ÛfÙí–|rΩŸÅ8^UÿÙlƒË笗8PÍ(NÄ‹q~pÞ)0ž6¥wJ£.{Òr* E—=¤/G¦²ŒsnJŒëæu³CÞa¼‰Í[V7â1¦¶ÑñÛœV6ˆ¨ºS™úI³“ xŸ>.ÑÞ…–“:\vê BCùà–˜dXÓù…s×d::$Õ Þ€ìâËVÎqEyxG;ÖRRÜzƯ-áÞˆÏ7ØzlK:Ưƒ;T©ÃZæl¦};Òcõ¬=–Ù-Åò2œè|3bŽÊsgäeÁm/l„ÞÕÑè—›©‡A{^[ýÑ|K\ùJ«•ƒÎŠ‘­ÆR¸WsúƒDÂ{÷8ïçá<Ô÷§à¬:ù³¼¦¹•E<¬É ëh&cFŠ¯_d\×c6ßïýðý¿ÕK++çÚBø{5÷}j}tNj²•–ÉøQubc‡ñ+z×Âye°TjI±¸ªÁɨè~òÒ¡Úb_ª7¬ÎÞ¬^{ö¸d(gmÓ[´ÍNÄRÁ±ÍŸÆˆîå$ë&s;çܾžUüÇBý”V±…öÝ­â¾7šGÉM{P2§Ù„R6²Êtàóê°g_Áv:hŠƒ‡Ñ{/zw@üm›‚nµ’1Wb˜°:À®ô]ÉBG¶cw\¿« «€ Ó³k9è!Éùäõp™¸c5zlj‚Ý\ƒ“êyÏÍ75»7Ýi}éÚÓš?¹·ãU7Ûê­¸ÖÍ6úÑþu³ ~„“Ýl8–ñv¹ãim¢ÍHǸåu ä}óºHzŒ6pÖ)¯çGz®%('rá4˜”s¯.È·>‹(óðí‘/Q«EŒ¸‡Ðg73ú–€É5‰„ujÏ>¦>%íaMà³F‘¾Ör`ƒÂ'ä˜2ž6gϔӓ^€ÛiÜŒ0vdÜ6Z úv%‹=÷&-J• Í´Y;˜#Àm 4‰~6bŠ¼MkVí%U3 Ð@<ÌF‡=ëÜ¡÷h)34ôwÒ3úgs=-¶ s¤Ç³2 |ÿ}e•r[1 ‚¹%VZ Uшm:êÚ|G ü&ã¢V3î¸o^›Ž¦¢dlÍD" ìNpH‘c9]BLxá³@„Ä¡-€TÔEÛëŽ YmEF«¦=3-ð’°+7Xä†ÖV*¬K 6@f=!ºbkfÔŽ=­ã K˜"0„¢¬Ž­”ƨ¼3LW¤Þ%]×cinÊV÷Ù>}I¤‡¨Ùu­M´h½JM:g‚ fG˜KqQíZ{iÌ„e¬cVD\ò*íŒÛ|&>ýØœ5rÚÁnî-‹dd®R³ãèYhÎB'I¶´²¸Øµø(&¢w0êåbgsÑîǃîŒÄm•M¯~F{F“ ×2ÆŠÇ£ÓtØŽjô´4àX+õ ?%¼[ö…¥}…ÒŽöb“+%kŠ[e7aÒ~éÉn„o0hW0jú[«·)v8N#"ž°HËwÌjuGô¦1n¢Ø\þk©ÒáWž6¸|½â¦.<Õqƒ½©ÙÙ{!d~~d)”=‡©¥¹ñqÅÊâ47ˆ†Ç‡7tÛG™wö@– ¨‹a¾aA¼Å”–"š±û¸)­ófä(k€7–¦R¡À™ˆèiÆÞ<ã±3lþ{]§¬oOßBl²‡Og“œâ^œvŽ'®ù¨N¤cŠûís^PÎÝYT ̌ɹ‘l`woÐnÜññ‘ÌÃ1ÉùZ 7ó—èä’6)D¹½Iƒ­ŽqÀØ3~ÊPÊ/Õª—ó9u|ä‚ÔŸüä_NêåÀtLãʃ4h½¼]¿î‡‚a„ƶê)?$½Ù.Ÿ¹å²“ðh11„ÒÁÚ]‡rÎpô¡Ï–¶‡ÿïŽ-?ÇØ9pœ©ÈåE4Œ‰%ä5­@X C:Ú­eAíz満C>LúùÃú“µ1ÿåªìám”ÎU½£Ì9åLW뾧H‰ùZœ‘©„×ê(ÝÔ§ËÈ8]4fõÂÓ² djtH¹š/7ÕÎ{1Œ¯ùmhÑÇ•~¸v6ÍE#6~¢t¹SÌ3"óÀÒ†N,V8ºŠˆF¾êdâàHÎ;ŒS^Éå»ß1Ϲ¢¸hñUïP fî¦7L@ÖȺÎ,bª>¦É±üÖÞ™ªÊ“(¬ˆŽ †™ôŠdz,y j¸°OöN 9wÒ`À}ô¡Û*ä‰eú²8@†¬ÝBµ´fÔ¡»»¥Å',­ÈøÃà:LrÁè"ÞšÎexgNüÚ_à9Þ˜…¬˜&¾ÃçŠ2Ã>>dÈ }dÄzºµ€!³,å­Ä ß¡¤Â¨@Òd1síåhÌq€.É4Â#˜Âr|Ìe]by”[y¡0¤%nÀi/ž„ýç1ÍßiYºß%Œ‰’hŠÛ¶•µ,çô´Nš@m4ŽOG]ãHf3Î;±§Âºßj½4§ëÊ´ÐjŸÅäÿ4‹C_ïm¯àŠÃ¿Z '^ÐêйLj5ƒl#8mÑÁ!à–D¹A°¤ ›ijërè¸ ˆÇýñ„Õ¹&_…°¶èŠäþ´auÏLÝê·^¶W ^v6ƒç'ÄyÏÈwÓ½™›*²ß’8‘×ä\1û}úị¹îBž»ã.â·=®ë¦¼v–íb–k .{2=ŽÃð×3r×ãykËYÏÌW᪋yêBŽºŸ.â¦o"Cñ8iÁz…”)Yé3Ò¹#VöØÇóÔ̺ýœ ‰/ؽš¯;ò2È® ””º™OÁÊ‚øÄdH+t1XV•ìú”Õüü|föcŽÞ‘ë’ úEÁ¬ææu÷Þì´Èˆò³±Nɼ‹›í-~?Œg­û2®é,ÿUï¯ü‹x¸{£Ïø$¼Y†Â-™‡ëE𦩱GÀŸAEè!„²ízgM‹>ðtkÙGÖªDü;.ê{†Åj¾Òq»\‹¯âÊòòÓt¹B¿—Þ)Ÿí LíÖ¸oë÷ìs±ßSöxŠÑ@Z,JsP4Ó•mö÷Í¢.kGªËØÇ-@TV¾PƒuZœ²S†ÛÚnìï=?9<Üoìì¾Þ=X UàìsMm!‹·1Ü#:8ºVÒ`>4qÚ4†Je¦” ííZ*e²f3WʆwÎ…Ÿ©å tBU.0G'NRòÓ1ë/ƒ±U³I ýnÍ™sH:ëÅYÊî’«vi«ªU'ýÜ>œ³€Í>Ö/ŠµÕ¹˜¨xòG^{]ZõWÅSBW™!ò*ͬq>£¶yŽ¦«‚;^çÜ’zå¦Ò<÷ðÇm)Ÿ úxýóL€ûÛR=/V¾v¬«¦Ö=·X®dÕÎ9VÃêæŪæE‡lJsãÝ7dÈ:ƒWéE3Ê ¸;ìð;Ü0ãÜ®7¼qz…É¥¶[YÖò²­Ázf­øº¤?…Rü8…xzŠ"|þ\¹Ðcžyðd®Œ› ¹{¼v×~}¼f p¨³n©å}iØ#GwùèÛ„‘³fƒÍd‚ÑXbÔº†|«J«Žk—Õ¯YNAÓÉV.É™V7|.GzÛ&³YÓ¶iÖÒ˜r¢Âj.F÷ µ¼ú¯2JOc½È@Êž¢éq­éÈlò¬¦˜;SÀ86¶Ö^¸/¯Šžp#J擉]]¨?áé‹‹zJ¤Ó].K\ZSû¥o§ÍäƒT÷ŒR¿£>&«KHœ ŒW¹­õºüR¤å5(7ã†+?Ñ¿¿›_'ŽxÊ•¹ jIë¢ÎïòÑÆë¦Gj[$¶i24c‘’ÛA4u‚ìÈeÁ¨a{?Âx"xQ1:\M•ë¥•%³ÂUmm0ˆÓ¤3"gÀQ[ØeZ`0R1]šø ­–V°­—æ¡ý½>:|y´õ ZF &¦`å_»G"ºr²÷j÷ødëÕk¬]šoŸµâ3Õh4ûQŠÿ•0Àâ §êåmÀ]?•æã^«}VÂŽ^Ðw©M2}ò ‡à·ÇOÂÿvN•~^HWþ][÷†••úÚJA•þæ/]Ø`ÆeB²]RËõßÿð}méß•ê‹+õ:4n܉ý{E­èßøßByAý-  Àü΂„ö’aâll=õ·©AcdÌøpqA6ØÖÍQxjdbÒýÐx¾Æˆ{2¨Â†x–,³i‘7ö›cƒ_<Gî[¢Û`gÚŒÆòª=qui¨}œÙúq#úg@i7Ác‚ûžC'@맰ìb¹Å\wûìZGZ˜3C7#‚³èAáÏÔŒúó:¹÷kÿèŒéØŸÕFþð¶ê4R„uÏŠúØðb˜4šH4Èi•Š ^a-€+øŠräàð`ˆŒ…qõ3ãzpôGi^9´Õp È—öÐn8‹lføQÌÔÉ@±¥C—Î;¡ç„~â4^¢Ë)!NØ!GǧEÊŽZÀ`K#àN~*)nR:Â*øj#½G­ÆdzZú¥šî÷?¨ÍÒOšŒ³«dúßÖ| ³93lŠR?­.«<ìEµúKé—§²<ä¸mð} &#ò]&‘§™¾Äñóã±"—‰ìG»»ÑøöðèŸ[G‡ovJâý‰—‹7Í_”x8êc(¦’ÒÁ˜B‹†‹©÷/@ÑëL\U‹ÿµ¢Hã,!š›ØŽM#ñqÃÎ ­±„ƒ0*äý`é½Åáú‘Y–Óѹ’ðs#ŒÌ¥‡)Ù J/ØDªÚA×d\Yü“IL|;ãx{VE\­¢{&í)l¤Ã+ÛQa»:B;î2±ÔäõJÄ3=u=ðõÚzí ¾Ž<èîöÃÚaM¶ŸAÚiÚZ_úÙùzX[õ¾)Á$‰.(B¶ì»¥uV³TÖ£õ\Õà+BpËÊh©ê®Tu'€eWïÓFP¼è®>ßÈÊYåSñs©ßuœ5’,ˆ)@`–i/°îÁ0=M —ò1¸û¨óJpxh­ÍH ^^̨ ÍÒ¼¸øZ-<Ûm 6zº§jõ‡­0Å1× r“"Ì7@ÅŠ„@¨Àˆ_%p¢ë¦ü;ýx!¢aeÓ?>;þîÕ‹½ýÝg'F:®‘&9ê•þQŸÏ(c¼….9mX¢§uQØß­1ðÂ/äí=rhZíÛX½‚:'}ÏÿŒOóA5º­v UBªGA9z Ý‚úä®"ÿ„gQ»C¤_Ž²æX›_0JÉ b›†bÆÁ¨ÓB2 3ËŽ=Pvhu?b;3Mñzæ%¢ È*~–Pøë…'몢 ¨Õ¿Å/:Úi!Ëínº$À@=;|sòúÍɳ?.“ŽUŽC.Ö€ñu%Ø`õ[ár`–!{U×)éÁê5V ª lµ\+n÷çL–UÔ'ÃckW”GxãÕc‘aÁ€‹kYmfmPA¾Ÿ-ï)-äëÌ+Yšs£·ëç_Š[î)þˆŒ¾­Ÿ4 -@Œðñ”„˱2ZAc¼¤eÃÅ(nþÀ•7HI)"«)@Üšh~^‹õŠYÉ·íF|·³³]c×6ïî,à;ͼfä4Ã|?gõéÚËú@ÃG½ìA;äyƒ3Ä€ ZnŒÓ(‡óJ†2fl6ûàè¤M|öÎCžý¦ñëg½úMòéW«ÚE„;-ß©_½òê‹%zÑáMºåÚzjÞöÌ4·¢CTFBU°}îø[[Ô3Úî—Œ41PisÐ¨à¾!Lº{f¸'½N\åuçF™ú†Ì±Úžk®Ê>§c…} ëAÆŸqsļõã0ëÝ7‹-‡£WÀF§y7ÀšFDúÑ^Gö^X‰Ú'î.¤‹µ³è&çHx¬º¸ëÂzã&Ç„.5"ñPŒ±¯&“óM;6Õ:j#Oª·FTÎ]*O)k»ög°°ö|å{.·(Ù% 8W.ê%÷@™Yþ<8y‹ÎF^ÿðv®S 4> ~x`wtÚ¥6`Ä èß?8F/­†¾\Û³‚_ØÒqJÌÃÅoýdÞsȽc¤Bãz;®…=ç·žÍê «N®î5Œ¼œÎ&a0O¿»i H³7…×]V«Â±güÿF‰´ ü—5á]š^´IÔæòÅ¡·_bà…?°ÌÐú‹'ñ#úqÎÎP@¡eCÔNL€Cº¿MEŠ'Ó"yŽÆÄƹ ­–~]BãøŸ°ÞŸáÐüR/9ÕåŸ kábzxì0¿~¢_›Ö/|=U¿Ðÿ³«ÀÇY ©éŒâM ¨–} 3ycÇê9ܧF!¶O{tl_¾¶üh Í.¸¨Þ§ƒ¹Qw†Œk;qHÆEOîFk¶ÙÁ‡ê¢ßLÉIÉã †tnopC_XF ÿŽ¿ÙÝßW•UU­žJFWcUÊöU·V‰),v ð#Ö•,nŽ$X™r´J+¥™Ÿã v™~ä±Oµ: 4ÙfhÀ]^²g¢iD’*Ž¹Ö;'³VÔÀAܦQ ‘K½*F ZH»Äó@Vô®3qM2eÈh[Š0  Ù[au¥d,¬ÐÄOd~$G¹DŸ¼P‰¢TŸQ—šÞ>놙p¬6(ü™#¾j[B¶ ”`«x¶M'ó ¥ûÄ{©º\Ix\¨íÕCcÁ4g^ý›F( %7©ŠQï•D§g|ÂEà‰gžŠhH/µ®Ö ñïfÞåziþ+Å@W*Í›ôªBAAÂ.ô¼ †¦YÉß‚¥ù›*Æ•æK«Xw®õµ´GŸØ8o¾ Ƈôa»ãªÕ¢”°4o Wˆ8Nn¯4©[“~ñqÑŸ¡pìázï&p !Th}Kö1ăJPCvgh”ž.SøY:{3¢ù…²ÇHgk­jÒ@¤pCq§Ÿ¢W8Aƒä¥ÌâU£É×aÚ‰ÐÉ:LšéÆß|á衳qjgÈÑ—‘‹ùÀ…­d„þÄé(·è8À ­•ð o.Èi_KWþývee¡”9ôèÞOY(ÉŽ}óºúæ­zŸ^—öúðxï-¬^L¡âÛ¢¹8ŒègǬ–"gУ»½ózëä¡xk%èvæ<}?ob FRksÃ\Gœð”0Sæ*©gI–z¹¤·>î}h’EÈÖ„€ ¬h·þ‹H‡ýºÁF!÷ãQ˧uH2 ¤±Ö1F(}FC\©é{lHkâq€k¤Óô6 xw˜mÕ¹Pɤ,”‘“°Eüȳ†-=—Êy¡þ–3ìŽ1:è‘óš—ß"dwvÒŒ™ÝWÁé±æ.7Ý,¢m]’û¢UIp5hô|Í÷íüm½²Fëø¶Šñž1ŽÁéJkF£Þ<.¡SŠŒ5–iš:@º¾m8D_n_ïÈ‚,Ô‡ ‹n@Øú;ÅÂ[ÈÈtÿ1-«ÆW’»Q2÷¬e…`ïRQ÷DkÒò‹07ÐÊ€vt³xš±m=š¢Ð ²®Þìáܬý3žÕË¿È”ð/ÒG0ºÎ@ô¢ÍÝ»'Q I3v¥àK=EäÍ›°@:Bð[0$¥aA? u¤ dÙ¯ŒÐZÌ•©ºþÒ~M†Ç1àù©KGŸ—kà2&W^®¯L©]+iÔ1ÜqaÌ Eû‘"¹S ÷>Ð ßsª‚+Ú‚¬Ù&_—ÙË`;eÔ}ðƒÎš#s´3Æ $X ß;Ýù¸§VL†¢Oå•«¬DjàÒMvVzåÜP9›‹–BžöU&Ó“&åÔ äüû^(Ô `¯HûÏMx$µ2ö8ÏN¸¹n•² ;[aR§ìOoŒöÕU¥ìO«/5½¶ÔçÓ•º¹¦ÔÍô¤4žùh©ÛÐ ûY³úxµñƨU9jFøæ»)Òf#-‰çÆïmi\ùš@ΙÔïŒnÃHµר4Qõ猼j•d€ñ^Â÷y6¶)PçõZ×ÏóÚw¦w%ˆßû7Ž]Q¨SÚ¶;Là»~Æ°‹0’UI!9.Œ-„A’¸! CŒ Ø5³f2&”&ƾCüB®7!1TÒeu2c¼¹9öbv™Ëß¡s:þ/‘Ž£˜tåß’ê»…‘±j6î…»èA[M4Ì¤Ú Z§>R~¬AìZ!Ý1Ü$¶h.°~åJ>Q»>\©Hà=ϵdh­èÕ y´áº§i«l÷Ÿý¸9ûn6½“s•ÙÍ  pÖýäÍ ÖìŽ÷s–Í´6¸î)ô…—Ž?r›˜Yõ@w•µóàBç=ó|Ikm–FÖNO\ñ¢ŠF#XùÆ>ä*‚ð&ÇÂ$6JôaúIÚ6²D––c…¡Dͬð¿V"úeiyÙ^ Ë×s¹bºàÑj=Ëå¥NÔ^†{c¹—,/ÕZ΢é¤V[9m÷VtU_:R£TÎå ªÈÁÿìËè#µ$_SÀµs¨O¹ˆ9ÈèÄ_¡"‰tÍs²Ò‘bµ+‘ŽŽ!+|4ZÍâ¢û@Žžðàáb­$+±P‘5!µ¿òHCŠÐ‘iN~—ÔTó¾¼ÞD‰RxWC¯»„õBÅù¢Úû¾^'uÐg´;G}4#É¢Û…ìmImýK¢:jÖjÕÔ|©9`ôÍŠü(EçvðWihcåÍŠþ…-î¥<¢¨g´érÞÿ(™¤M £Xû°¡Ž\±b|‹–8§ÁHl¡dò(Q2šÖN@oKÞ¨&¨ÎêRV%ÁF i!c;åQZ@ŽiñKÆ‚?ëó1ð†2Y9Ó7"0hÊ•(E¾"˜ à ªOQÇrDÒ'ÓÌþ9Ú:ú®A¨âïÆyi¢À*V_˜+NŽ•ìàdÐIÀdH‚&KÃSEMž±ñ@,÷ý„~ØÇŽ»3o–ÐUWE…þdîYß?›îU¤•˜4“~B:nÈОR°¤§ Œ^o÷Ð`Q‡ä4³ z]}“ÝÀ¡ý–_.ÕÁÉ¢¯‡F·=è‹Q̹þ†m&áøôBë—P[¤h(ž=[!fN/pA ÷ÃÒÏKäÕ;/SHøs:ÁàIÎ>mRQUvÆ^®¬™Ž®Qªòª{õd®éωVô¾™…w?i´zžµ£Q³÷‡Ž»E1£@ÇZ¾)P¯ªrn;qð {"¿àú°é exÝ%…Tå=“¬pº’#î0Evþc·ŽÛ¦-…¥<¸ bòuMӜӺ޹#pª­EŠõ áyuLv†(Ò"ößH:XüO*s¶C¹ºB¹t˜{nã—6écû"æ§Â4Ž-Ñë®JÛ³(ànx¥[z¥‘v4ø/C:Qº/På)k£iÃI%:0{¥ëâ&ç¼%r=ý’(õå1Ñ [7[Ëö?¾# 1Èë€eÒzÈV´Z\ÔeJÙ?²œ®ÿËà[HkÔí^+†õ Wæáªõb' h:tÄ8fhY'0©\[ì)ë¥1h±¦† FC}à -eN,ãf%Ut’ű~ødfÈUòùc^ ÀàÂ:æ MwŒ»>‡[ ¨ˆ‘Ò›±ðÆNÖîS4áhó‡Î›Ü Bf&zø†ÑJÛ†ÛdHnŠBªc,ú`?­ôh8dÂR‰äÁO,Ø—3&] —ÖÕêo§-é‡K"3vW0cŸ-0f:\r†]®Øn”ïVÓ.½8„‘U;Õ^ Qån‘hy îú 2èŸÅ_wùßZmI‹Íʋʱ@Ccæ0&ð €'v0­üt\’³/#­@ûÐœuu`I<Æ4ôÐ ýÁ±ö®Fq½G¹&éâ[ ¦j+6AܽZ5n1r?åXÖKÄKïêr£%ûˆ:÷Ħ=ÚfÚžÌ*{ò-ƒXé}&ü»ó#C;>j’äìôÎàäP[þ‘ÍÕ/ °<‹w%ÒÑ)¾WÐcŸ¬²Ya¬³Âw!´Å-–1_ K\ã²q[ÆÜå:ˆåôùp€ö™÷ýýºª$ÁžÙE½UýÉBô›E¬h¨y?N«:¦w‚ôÈñÔÐÖeeX¬(ÖZ¹g%ÚqFO ‘ž½×½CYâuOE!êˆdlIâa~ЯASŠèÒT²pÏp·uNÄ=ðžpù)¦k¡ ÙU,YÎzî}Ž‡^y¤/C>¬øãt÷x¶Ú-(ß'sÇÃ"JÅ'·@4!“Y4P¨ãJçÕ³<µN¦ßVýGRzqÅöœ!zñ%½ò×ÜÇÆÞ{ý‚¥œgFKƒëdÎâì·}t¤ÐšÂÓ"b]Ù ñ®°™¨Ä6—Ñ!½yK†üôÞe u@ûI:ÌÈSy™Pù·\°£ž²œÓ‚V–›£ 7W¤‡£ÎiȹpÆZrYxÊjÊÍÙ¹çZ¬ãžÔ~ZIÕ<’Ú‹}“ê0?‚œ ƒº5ì 4.ˆ ûbÛ¶þÕ¥3!k]|È‹êøÊÆèèáÚ>8å‰KเªÉg4~%“q^ÍÉê8Né ý™,º«ý ]‹khúw½èœÌ€†ú‚âþ‘———&ª ç¶,ÄÐeD¦9Æi†åçrÒKïÈ2§JFÊh›b¾ ŽŠM»ßÅ- a. ··Fͼ`Ü.ZˤÃëŽV÷7>Å +éó}Z ¾Ý È1r£ƒ븽Va%ól;ewôÎôLÅNÓšx^ç¶é[áD³äÌ´|föüf: SìGÐAh>yÚþÑ¢õõ§_|3…=TÀ7äìÐŒÖì´ãtB@S¾ñ‚0T7zW}]ìbÀ(^ÓŽþ)Oc–§îTª»µ²ë¤ÃÎeï_RÀÇt¡pémQí°lº=IæÙÌãÑÝŽ#Î:< (Üjzwvv9+A>®€e&Ïgš½()"Õ¸ÏhnËë#vœR§˜ƒ{y²îÌ4Ëy ÿIÝGdœ•å¹3uéØsâ«•¤½s¾Æ[f4– IoˆŠÓôŠ¯1'Ò/æI]r–bˆe øee´\ýÍÄLO³“öÓOÍÆü¦ñË‘u·òZç ïÔü<{LGí!l½Àõè&Ð^Ü(;³0=«ß皊Ézeî‹0x†]k^D,Æ"ø󴨹)÷8Àâ@G/qWÃÄñ 8þuO ÕoÙôµ”²ŽtE¥ñ‚¯YŽœŒPC`Ù»}À¬Àà Ù.O^½ÞÙ;âí•’:-ÛB…¬ÈI¯V*¦ŠUØþ°Š>¹ 5ʦÓ_¯®ÚdWÊB`NwHàÉAÄ,šjÅ}ãøÑî)@·m gΪ¸'HüðLMágCÍ*T ýÃÈbZö\þ&¶ AwÒ®ÿh}‹Å_z¯¦M³9· ›3v® “·Ï›½\*n4×b4$À”¶‹p¸+×õ¹K£ŠOW£’ÊP-¸yv<ÐR” 0VNÿXÀ~×+ÔîJëk&P•¡1º÷§±m´Ž®+£t@êaš}%G|x÷bÂ…ÄÃðI0ê]_F×Æ¥«K….["Ù—–ÃW9nøœ–8¦Ý`÷´zÑ4‘–ˆéŠ M.)¥ hÄl¯¼×ª¥2Ù÷­†TÖºÀuÛÑW©ã?#@Æk _€Í)¢â릎x¯¬ð;Ž Á‚.›cf¡?¯b•;¼'6+pxj•”f‘Ř—¹ãx¨Í ¢’!è’¥‹ŽFé3; pÉu>~¾âiäª!òŽH–PÊüËßD «G†|£±ê1y[,’×Q€<,<”}ÍÔä„\ò·dKë?1MÒïq^rØò82RúIÎÙN¡ ÔN;½È´½à¨ºŒ2OqY?K,÷£çôV’7üó¢1“}ìƒì\'Fó&nâ&n.xNÕy™: Y¥GÙY´$²:ÏÜVyæ¯1Ï\ ¬ßþå5ÐUZZ]¸WC{JÕ &õo„œÌ‰ .³Ä<2 E¯ÎÒ¿y†$„çSWž5´¥¸±ŽÏ ÎTp(eñG]³|îÁó¯ÄjïcÔÚóª‡ÌMN¯î«oû¶‰&ÖóümécÎ`Î>•:&J#£ìèZeÃôÄÌ9§´ùk©eãÛg½ËŒN8‚Tÿy‘Œ(:™ÇÅyõ-pö‘2爌hQÏ°+À“±"’Œt0I þHJ DØ Nµu õÚÍ…¼UÑŒºEªF²æê=âékYgÛ+ùÅ1j“+For TÊê“«<Š"Oñò¬Bªí^Þ¶ˆ1/¶TY5•ÿ%¬­lü \- :µí>ºÝ“wõÛ^¸ÌËwá®ã¾2ôÑùlŸ÷„&DŽØ«“syƒÈ_<æéÕ½ùVe/³4åkÌÉ8†c(WôC:@Êɸ¤™¨Ið£)æW1¤K¬:.‹˜-sceÝxÓZ‡×åu³5èd˜Wv#ЇoñayûÙ-BNÏÙæazkÏ wÆÚAß:°vDcy&‚©øSD±D_U¾ÝƒÌuÌMWµ†,Z‰ã.i8üÚš 'ƒ¨—R`4ªD—Ö]hsæùG;–ÖŽ Ë!;P}†Øu™ÝÑÐp_;¸ãx`~°²Åšß ï8…¦¡d×™ªzYB5ŒµÔtžn}Z­˜­ó|‘g0‚Ù Sþ¼«bŽÿ„¬yé.Óc2³6cåÊO$xÚßnlíï“ç=/ZiŽs´€Š¿¬ÿ9þöE õ­ƒ—Á¶!Ý´ ¿vá+0?Ĥ°ë}Œ)FFæ’<£;̀NJå¸LöÓ^æ¶å«ß‰®Õ%= jóþ©7’÷Êñ¢žA´«oÁIÌ?ô• 3©¸Nö& œ›­áz-ë=N³bœõ³ÍÔÑOîuÐÍùM0vûƒ.ÿ¦¶Ö„Á5Äñê]´” z ÙóŸ-ò¬QkM¶Ÿš‰úþK™r^$«Œ“??ðV裗îMÌ¿^}´å÷ Ë‚y65ËœÎF5fÐEŽzÔGK(H¦yÙu¼óêÀÔÉôÈíÌšåa•k°iSÜtNºiu:,»8XÞÂÄ«.i ·64s\Ü‚Û,v6ê"û´1¤}¿ƒJ&yË^éžÎª¸ŒF9k2éÙ³&“-,ëòz…²&®þ³(…ˆ@-‘çóÆ{Á#­¬;„\Ú(µËHß0ôîkAEŽpQõÒÜÏ?ër“ÊYÎËdʘV¶Œ‹‰Ör¾ÀàÔªÚ¢ÒQŸd(ùj7±wZšj_ ÛçÊü!ä«3F²ô¾$¨ZmÅVÒþa“=$@O“T‹Ö0DFŒ©ö–± ŒaYÿÑK¤ïTzžÁgl˜4€k‚\;gªZ=‹#TL³MœFi»™±k¯Œw:î”n†uÁìœq… ©¿“Ø\`AŠÓ:t¯„ó)³‹>Ïãl?Ôn–T$¯>4Sî÷­ø,u†›0f`›‘ W.½ÍÇ?H{?ŽÚñP…ÇÍšRzÈ¢7e‡L,Fr&êè¡ëþ ˆõ®ò!ï—¸T¢¡k¯IAÃÒÐ…gÿ‚e¬l±+#vÖuYÍÞÔÕßð;# c´LÙáŒÙ«#Í÷ý' œ»D9‘~ÍDšÈ¸P#}‡ëƒ Åð>žOX‰/¤q¿ÐCúþ¶<" œTW#M/ç˜ÄDfì(Žê9¥ž%]½¥wTDpù#W•Íî@É@ žÿkqiMNpù2Äüš¢{SвèîÒ©pÀâÀRÄá[ñ0"Ë À‚$µ“%£ÖÊ%G2‰×ÞWÓ!Gé”Aîè•úþèUÕÉ~±·¿KXóhÄr¯´Æˆ«á¦Ý0ë «‰vyÎíEiš4ÛD¶Ñ›3!ìºô`xÝÈ«¿#“‹AwaÖÐ óX¡˜šÝ¦@Š†œñ³…Eq”Í!µJðqô ƸwFûô§UÂc»çÄH9—[ÕìhK4Úö† DMM¢ìô²ÆËìjŽû¦qç »ÔÄÏJq@e½s|Tgß;9âÛ‡¯^CWUÑ¡ÁLJoŽ¶wi%KÛÓ`s<´C’!êe_³©³ðq«-¨Qö€ÐX5Ql€U¥Ù+v«—µøbŸõ^Q¬‹ÎÐãA6^Ná Ms;¿ÞÛ6ÑÛp‰Jøxͳ•0'TQYØ?QM€LÀ·ú»Z² j£6‡@¦X>Ú© ÂúúËÏÐ¥9d†C”ÚQxN [‡vz­hÐZp-îK戱 ªÝHÚ“À2dqlæ~uiƒÀë$â’mX»œÅǹöp4ÔU·5¼ Î"dŸµ¯pQšÖ„­äƒZÆRdÁ¸£6€ëI¯ì÷tÉZÚšùrú˜½2 Ñj¼¢ÍTwPnÿ0à4W ¨·ŠCMȤ©•7JâÞ‘šó(O—P4°2F'~·<¥²:¤?NO}ø¤Ü!¼FXŸz(”G C}»a‘ØÀ]$Ù®Ûí|ÖÕ%— Äž`ݘìÏNÈ_çÉî·–Üxf©á[ƒ—µð˜ º„LùžUN¬¶g"U Â.ÞX¢´ê{meå<‹4XùÄ>©ºQ1Bdö)¹Þ—…Eî$2Á+ªýPê›*õ&K¢;®¹ã¸ÍŠñôܧÕáQã¿Åêµ6kê¼Vδ¨šŠÚ;8>ÙÚßwî$€TÉs¨6ÅVfE2Õ4Iáí„~„VŽÖªEnÆ}|I4ôya¤Ññjö<´€žèQþL¿rsc ´p&âÜ2xw»ðÇpL{̸þÝ,ÏwªØ ö´c]'iB[IÎ{È€.šÇëdæÕ&jwïàŸÞ:ïcªs§ø« Ã>yeÅŠ$l ë™# “’&]jÙY5·[ÿÎc‡¯þV !‘aN¨Aî£d4S˜)šqDo²OY;»û憑ZLt¥ 7Á¨~ù+!ÍG´£T&ªŽÖÄ‚\ëSE|CtÙ>©ˆWAd?¹%áÐõù*Þ„Æ% ̂Љ¢88ÏÃvWš’jº5¶|FÆÐÑ°(^… ´3l@­NömH:6æëw„3tMÚ —šcbŽJÒù IöVŠ?x¸è´§ë÷Š(»¹9‡–] "‡ìÎ wÚäjf¢«å¬ß]©£Ý—»o§k(„æQÛTZÛKô¥1> jίÉr‹ …°‰ÎÁÖ«]åüq—Èø_wЖãÊþÅÚØ G¶ršÑt§.˸Åt¢ð©@æVQ”\5ܪfJÆͬᳶl …À«3¨%ÆZ£^+>#¢’À=nv"LÙߪ» 8c”_º¤1ÐrLà7Õ¾Æ÷’¦Ø±_ œu´»¿»u mhÁk?j¾G‘’.àŠ^°VΦ‚Ü 'A~0>³è;eB,)cÒS=ú^ýàAPÞI+St€™´Ê [Œ¸€”c@Æã¢a‰ÆIUœ¹Ú~st´{pòýÆÑî¿ö0þØ÷[/wøA΋^5=sW`¥¾'öÛž"l# ²úÜx‹ÑEa˜n{Ú¸?Zy|a‘oOV0FR :»–<+Ù öî‹9ÔdTTK)¤¥]ëD ØhÉ©26^ç²t'üû€¼Óe¯ÄëRæš‘X.lR€23­Þ™cža2ZË%ÂE>{ ÆŒwµ¨£*€g’ÖŽ õ³K-ù¢/—صÃG €ÛŽÑï…y!Ä9Œ?¨†f&fYòS)ñu^‡–u<>ö°@„‚ÄIļ±cÀ%àA˜ç2;¾¨]¾ØY[ÞT´„‰gð†¼òôïf¢±¬dp²”¬P\È”ëïK^V$S!áXé¦Â±%»a7yô ªá™‡.è€ÞÈšPʆ¥´$™UYË@1(d,ÃÏUe”w°™õ¼ÚO`OÔ¿ô£Ð$a© z÷©²TÒÒ ÀÞ-m¥¸±I»½ÖFé÷>íŸóæ“Ú_Vºïå˜âûó­÷± ¾~üþ]²öè!}¯=zDÿŸ‡Wá÷×¾~øøÑãµ5(·öðëµõ?¨Õ[IàÏæ=Pê§I|ÑW.þKó«ÿ™ÿJÄ“é‚û*\Ðï]!ßE p ×Pxk4¼@ï^I(p~ x_õ·3ùõ õèkQ»Ömkqkôw¨²ÍwÒ†Zûë_VWWמ`DØÑ)Ál%¨îƒ8£²E¼±,Pkµµ‡Xï¯+«k+«Õêõ¿l<~¬àŠD U´3Mp¨F·WÐÑo¹Ír½$×?Ïï«?À_„äðG—0Ô¤•w[‡×†£5>¤ŽµHéò¢Mz掗u¥Õ8$8ÃOk¿”žfõBý¬¿èÇ’Zœ›››Ç IJ˜QšÌý ÿFÞOåÍË(uÃp±*Uîª×»p­¢¶ùœ8ì7cŠd実Ԙfמª_Hš—Ž-MÙ«j‘£<å°óCݧ䯅n²^ø<À•`‚c;ÆFæ–}ßK.uŒM®Š5ÝŽ ‹¼ðY#éµr=Ýc¬Öbl­h 5v‰HŽÆ\ƒzbnŒ•/0ŠgiuÑY}¾7Å«4¯–YXXä>¯CX°šZ·Ú8Nïbm,i[÷¸é5Q®<+Ó°°ï%¿.k‘õÄ,=víÈ‹{4î…×Á_rz8¾§¥Ø [yÃèÂs$qŽ#¾Q_Y™_yŠ¿VðøT+çø=¿ŸöYM^bNÀ/d PîE¶¤:URÖ¬Âä–+úgE’èc¨ÓíYà4uk+¦yǸӱŽo¹í-pgmn©4ÇIî~þYu¢tXk“œÍOjZ)‹à*RÓÚû:µÿël™§Áʃc›fë½Q²€DFUÖ ©\ÃqÓÈ.E€ç}Úà|(ƒÕDE¡O§nòJ™¡ Ë™6Ýú8BT§DÕCMŠf¯GbçP¯ï7M¤2ý׊û¸ŽŸ¨ñôßÃÕ‡;ôß ÿÖ=ytOÿ}Ž?ý.p ªŽö”æÈYk„.&"==k¦*m·âj|vF²J ó’þõ }~1$zmY­Ã.…Çê89^"Wü#™‹k™½^³†Óã°#Á8éÔxJO'( Ä-t˜Ó>Q„c”ȬcŠº€Ð $¡à–ß½P-ÀF ج&ÝÑDç~»÷RÒëc T!(ÍS…¢1?Õί´ôp$AøG‹¡c’Q–.œ©±(¸¾žEÍèöų¬Eq6ê,C PV}»wòÍᛵuðúvëèhëà仧F7¥¹,ƒïö;(K†9 ¢Þ_«¡W»GÛß@­ç{û{'ßáð_ì쫇GjK½Þ::ÙÛ~³¿u¤^¿9z}xŒú[o êYK#&`õ­”¦üìžëZ8Š¸o(‡º˜¸E¸˜D‹W‡Î >Å˦— —Õå =ŒµÚÛ<¨¹eõø¯ê$ÆçnõšÜ2WÕ1º>W®.«ç гPôÕÔ]]_[[«®=\ýzY½9Þ¢m‘+~\Ù$‚‚ô^<‘ey‘Æãf™&D:-ŠÑ€ÞbíáóŸÒ#¨ëë°Š'ýs×5D°”øl‹®¶šQ+6GDÀœ´CÍXhtlÌ‹åHvuè½GCç1t^‘G·ãkÚ‡!€¢_Á h8ì´?Dêo þó¬ÕlÖF½v3êök§ƒ¿×¥j¥Ûg:ÃXä‘6iãdYDêh_‰#ˆlÃ^ø¢Ëc´ÜÈwwctSjÍŠÈ€ì˜WïDô·@(꤉”ÆÝ~w§$Í}×KÉp§@‡Šob3xÏ71Ú‡.//ÈW½†N käz¹öº¾¶Ì$1ÙÁ[J+µ¥ÊòŠ”´&Úø5·fJY÷KLoeÍs`º]uÇÔÎá1`ÊÜØ@µ†¹+œ]™”ÜÑS±¨üd?ªzÐzęWÜ©®ÔNêk+ ï~)•Øô“]K·ã¤+úñê2¼gýŽNû}ìÊ"— Q"øÂåpHù‹Ô†”ú‘‚ñ`ÜþoLÄ×H‡mÒ´M‡V _cæÓö93§q'¹Dd @ÀrºkÝG*ŽÒ6?J‚Þ$’#{_âWî%YD­A3Ò}ÜŒØóFs$1–óO*Ô4¤ncRîì²>;›ê¢o¶x^}óÚê"@©ª¾¢CУËA„|4îëy³Iþúª¯JJŸMH¤] vÓŠÒ‹·ÝtØ‚{Ç”\síÔÙ,)GÎÆxש$ãê•@Äi‚F$|°u0؇pùÎãTÔCºc~¤3„ E·n¾g5hȯ¸€©šÃ{iÀê°S¨0»÷]týïák@"ð `—á8ègµÚ#c¸Œ“ÅÚ¥¨újþ£åGzél(ÄIõÕ ØÂÑÙôðM·‹óFÎÒOœS­kciÿpd¢MrÉlLÇ0‰¥=ÆQ™#Ý&føÛR·$( ûÁ/æYy˜€Õ¥U>!ã&¤ðå4ÁD-Rþs $Ü!½jZ¥ž£´C½°AÆð2Ql+ «hïj@äEäáØû‡sêõÊÊ Ì+ÿ®¬´äçýtHë•ÊŠÚ€‚Ïœî0öÀ+X2” Qä’$E»O¦CöµR<Ä¡ÂÜö†ô ¡‰é$‰V©dÑÄ•0RжøŒSNOÄô÷ÈŸ÷))U-S+à…Cš7Ñ)ø.¤X:µÌÛ~)=o/–\@¨ßדr±2 êQ8åx9³"Ý •"År+Gˆösâp÷Ê4!=ÁÂ]Ǭ÷/Œ ;š¡­C¦ÆQ“rÞIÆ\ Tj^mwÚ}ØÅ3QwlIÀô¦zࢭ!¢¦\´N,4;´ÍäèÆ„ˆjË@g HÛe” ìí½¥”Kjˆ/iß$¥N—q2«0§+tŽ7bŸAgʺ°S­þõ‰~™çÆŸÔÖ±ƒeõ—µ¿®#N–ÔÇK"÷+ÆøŠó¤žŸJ+8gªƒôJ«•êR)Ódïæ7Îâæ‚Æ3´ü´zRÝÁòج8ó/F“|ó¹§èz-ÙÐ(!]™vØEŠÐBÝ´\¢¶-èíµ à&ÊëÕ…ŒÐ…Œ讀ÙJ,äÜ%1ÕtfžFošðçbΘ Þ9Z{Uó–¤wé\uä-8©ÏþÿôD]X¶Ž¦È£Sjã|½‚{Ú,ë~óÔKŽó@iGí+µQ·a Àq;Äüò5—æ8ªÏÉÈÜîVDÇvr ÍŒX@¢¶¸*nØÆF;8C_S§ï½l,è;ß"èR •½ø)µ¢ñ&*H„jÕ2},¢18Q?nM/fZ©?0[¬×¶HðRâ˜~FÄ£Û¬p™éΤ'åî™ê·Íe’/d¯”’~èûd×ÇÄ»B€tWï(ÓëÐË»³$iñzíb¡&•v˜€!-BÔ½í=Eò@»½s¢ËH­Q*ðšcÐäÊ)Š/®‘æ6ù  T†Í¬ÈŽl,›+k¹œ§öýsnA1,T–ëkÁ62|Y¸e8=y´X2Ó=Áïœ\m‡…|-ä^Ë"z/ã6øÑ Ë;¸-IÒƒ&I_¨y´ ‚¸‰ eÃZ‹a ‚Hx¿•£¸…¤ÿ“ÚÚ2!¿èGµ½½­þ7|õñê#4‚ë’H ý’ùr7ÜIk”xá£ È†ä ™_sA!®L²ÏâM(!৯ÀeW±—]½Ö¡O’dÛíX̃-á”ý¬uÅS`$'í`’ã»U“º%«‚`QÓÜ䶓©µ²÷¹îy[ÕK÷Y€²Ö|¾‡±ÝR™Á”ã!ðÀ8ÒCH¥|UÿûÃ’AASa >HÑp!5(Ùp©atª¯Öï¨ù.ø~¯æ~X²O&•ååI’=ÆbY‚û‘Â|/ÁÍgÙeƒq˜Ó6û®$ÙÙn³ìÓºè¥ läÔݯvÚÝú´“\"Eß#› G,Î#ØøC‘öHlïƒ?Jhá¤1¶]fãEFbKø¶D¡#ïª,ÔÎ^œXQsÔí2õóh€-º0« 3¬V,Ëïl$®MX¤er6I"bßÎôû¾·H%<`÷rŠ¡Hû*]RF¯k©œõîJmÌQ³ Yø‘È’àä‘ë ×u/'«vÝD»Œ"·* JþÈ{9ÞE©eåEv† 5†ЮzDŒ“-LÑåŒ*ã"®A9¤—9Ϲ~äÒL%Öä45ô§dëišÀŽ¢þfܨQ[v_ÌÓÝË"ë|7 f_¨o( nÿž;7‹êO%EB¢ÍÊW%¥5 -j½ŒÚˆ´±„OXbrI¨1­Å—O E¼MÀÎPÑ8IðT_ ðË}ÖËŠÁHþ%²0Ä0ØôìÚŠÂXüE¢d’lˆ#ujEYJJ›ú£L[);¶áÆ‘)¬S÷´“—ná™å.y|o•MAÁk%¾ì]jlQ©o9ÝØ ‚Ÿãv•z¥8æ÷’EsÀñha| Q°Ö^LŽ×Á 2ÐMTw–~®îq„ãàI•ÖñY4ààˆ/ 'ø_µSÒ‘'ßMýþo›à¸%ñ±‚öýÿû£ª»êg =Áyõýjõ¯?Ð_°°¨æSF5ŸrmiE¥ª¾¦êõþ‚Ss¡9ZÙ¸ ÄoÄAÔÀ-Ù2|DÑæA‘ „¢Óûôv7ýÐNáž½?’÷GRÉâè#Y²¤\}Ù-ÿ\^¡¿«/Ûôÿ®þßþ†¿³£4ffò¶jÜ„ò5òK!6!©lF!|§õ]óúœ|PTGx^ëkð×»2a•"èSPšÈ¥–£E˜fû£úc½®þxn®uZ!‘àÒZÌÜš“ÜR·sy,uóÎ`7B]ã¬ìöbI,ÎdÕ;ðjm]«ëWlÍÎö翶qÅoàØ·ÉVóõ1ÞþgýÑêãÕŒý÷úãÕ{ûïÏòdzÿÞNº]4&ŽNùâPgñ¥à “ãˇ-žÅrkY»Ÿ'Ëø÷×Ë3Øy6§×P<ê-7 O^£ÃE úôï³ö ©`¤è§SkF§^žÜ[Ý[Ý[ý–­ˆÌ{Ú¼û˜¦)¼îwšÕ±niÊ–,À4à167p¹÷DY#JMTf€"Ò°]VïÛQl`Ž£†Ntù<¡yð ‰fÜQPOëÚÚ]y£×2®EM3p“؈š›n‰’¼?²Ü±nX#:½Š~ME+H0âGüã(&×Ökw¯ÅJ´ìX15›qÜ"%b\Ž’•Œ¡ý§?yÞÔ™Ž¢X¯í¡}Ê'‘/¡©3<”z ú&ÜX•CZ=‚¬ÉFFüvGˆÈ(ð˜7·:Åø¹ÊÿÅôW‡ÿî3cÇ´`½ïú¨z}tøòhëyF~ój÷à„ÝØ~CŠq'Á|†â>u>Âï<ÍnGÔX(qt:¶#— u&ò-Ó¥¤„‡€‚J{0„Cí@g¶ìE‡ÈÇ…pâAT?,{áD7YÁ«åEÌ0~!1qh|i‹÷»!´£¥Ò1 `ÿôÚ|ˆ:£˜&5;dF¯¬x˜°MýäÔº0²D$H#_Î@¸.&ÊqÁbµ 8º =ÐÙöÐùVýÖþÀrF{ó´ÚÀâh±þîº6ŒNkß7/~XXvý“.ós*A6î"VÎ:ñ•Êµ‰µëëZsBÈÊâÆ®w%žÚѬ·“õ‚ËBÎ ÇõB$®Ñ`Y÷Fü/ýMì*Ôw?9”Gùù}G«9hé:j6óãimYjÁ†ªàÓ1ý5à¿Sù§­ÿMÌž‹4iºZ{÷.Þ–R¼N–œ:|‰TV7”æ+á2YÓÞ¢ËÙ‚Sß6ÙˆFö´Hï¹@ΈrTÖìa_®?«K–›âÝÓ²¢œZ3\Õ™M½$ÞÁÞÁË ™µE{¨7Ddgz —IÞ,±EÏ}±ˆ°…‘›1M€43Ò†ˆ„8@<À+?¹7Ü/ Ò0[P¡ —m ð•®þnK6S»]|: Úá)Úp¾D§X–Ý&Û–`&hà—*E#L÷QË¢+w¿k}9û5qs2{bâÍÁÚzsp½q× ·GMEÛcF•Ù±×ùböCðExK§iÚ ³Í¸;Ú0ºt7ßiy Ÿ©–¶¾ß~õCcûðàÅÞËÆ7»[;»GPH»ˆBÚÅÚ*2ÍL‡c"Û]¥¶i_¹—²^ Vœe„ÝgÁ°ÑBkž9òE¯‰rÅùRe­¤x†¦XèwL$ggµ7`b+ ïÜxÜÅT΀h)‘óQpëdN¢Æ/èr1´^Ô]Xžò²±Åk“ïÛP©…´TSÕáu(8È!;³ÀÐ=4ígrze¼ DÝÊ €ÆÊ‚d°¨ ùMu† mô2ÎHg¥—E’ÝGiæîBn¶vöŒ›,n¿Q!7Fú#ÆêZƒŽÝ†xK©†²ÎçC¦iÙ‹H²íà;&½…’«D£Éã C‡»œ!”¢Y;Îå!ð\i‹‹g§ºõ 5jÑKeç%]©-U«Lί6UˆF5 aMƒ4Ç4š ¢.hÍSÿuç+Y+)r?—í"¨ÆMõw.(^ñ¬°¹l’´SP”5á9ÒçРÒ˜³8R§MΜڪ¢è’¿Y‚Ÿì°îÏWJ÷ïÁ¨=/Ä*þŒLMŽEø´èŒ¢k]/hÛ¢ïD¶ÆQA !=Ç¡ d›1ø,Kà šÜªÖBÙ!. ±-pàÖ%ःIXŒßî˜ÃkÊ¿H¾'Q]/VkêspÔý­ã“­£—›åzå§Ê<:•›X2XGv©v½ÈŽÿŽ¶Ñ/¶ZSÌ(©]WVšh0gF@0*Ëfsf¦Í¾›/ñ£QOÕíÅÇw{ávkžþ¨¤–¿² ~afsDwý ê43uЯîƒEõ“–j­>U¿,覚ùCщ¯~Féǯq$:ãŽÄ Ô§<ÜþtB‹hnû$t¦> < fSä®1%€yKäA˜Ým2å& =—…i×ÿ ¾ÅÀ¬G}€àCýú;KWèØ.ÓB8TÁ¸×æ8ðž†IÔ$šá¿Yša:êf³ ] -=baðc(’ÐòFN‹^‡tè#×€Ÿ aÊÅ„„ÃŽƒh#ª½\ëºw‘5#Ä=„è &øÆʨ|™#_;.\Ôm¼E¸ÚQDVƒ&: x—öGäfʶҤpOÄ hç|ìͨ—âãXýØpdðü…ºÌí=ØÚ{»l›Úy³LÞ '‰Â =M}L‡Ká"$c¡~¤Œ²ÈÓÿ4Ò•[=‹<¸p³Ô¦mQ9¶à¶’Uüz–ÆCLC¶v°öSÕª~¤û€ÆáéìÉå£4ŒDÂg-7Ìtzrž¼Ù8€¾{ttx„@>Ä`=&½Žy–þQ±çLvÕÃÐsˆ¨R6h7‰ÏÓæÞûIÂf°ü’²‚)Z/Ôêë[Ûeô"ÆÌÒ€Ž©^Ó³|À-9€Y±èc)_ùiíÏøŒû‹÷ŽëâÎç³µ;E«ä†?œoâ#®îG"0jÖb7)(4N²´¨iiÀÈÚLA†Èt%YY ä– nN HTjÃÝ_ÌÐýÅGt?ï‰mˆ|ÞâPvüp+PlLÝù׆Í·€ŒÈâ)Ä*8pÔËAE–~t5¶;)ád¶âöD"áðµ‚÷­ü³Úo^Ø£Ô¶^˜ÁÑîÖΫ]¹ÆœK ï%ôo‹¶»)MŠ£ a-ž.Ú¬ öaß7Ø¥Õ–s¯ ¢-ôÝ 7’®±~¿§œûa™¢iG©3EZ ¾dõ…Ä¡FµÿÖt‘kŸ÷G«Þ„vø^•ö øÃú¿‡Çë ´éCÆðöû@-ß'¤ïŽÿôõãµ?¬~½öd}}íÉ*Æ‚Z[òøɽþïçø3o$E¯¬ÚJÓú Ü{þj!5VAËJvJ@N €Ž.éÎ)+’N¨Æ»E¾sñ;µÉ;‰£ôš¹™!ù7Å{Ãa,ÝO^ôlcܺiC"GöP ¸ý¡u–Å3Þ%rx­^£ =‘£'u‘\¢çöÄLj•Ñ%·½€ìß9Fá°¶éqû¼GíÀ%ÐI‡ôq†ZÕíÿÆôÑ‹/¦×Öéy£ÛÑ›Q¢øi2èÑÇðºß2…úÃA£yÑ|ïÔ¸ÂߥÒöáÑ϶™ Zuüë4mòM ºšöSúƒÞPØÞTíf³´ýbë%4³r¨Vþ?µ²s héà¼ÚÚß—geøĽƒ“Ý£½Ã£ÆëCúy ÷Ⱦ•“¶v[ƒÐMQ¸ ¹?rì©Žãáºý1N×íY^ØXØmTê¢ÖRuU) ,å³Ð‚úšÜà¢ÿ÷[%X‘ Uy€ ±¨Î›Ø|-¾Ší|uJ©¤KQ ¬À†Ö­­ctûh×Ï› üY»å\´`ÿmÎy3XL¿™—ÐÔx÷cŸ|³‹1{Õ‹½£ãUý?´*ÖÜhÆÆB4hºTÈQò€m‘<$2;ì¦Ãk€Á1î+±èW‹%Y§}jVÅ F‘r¬+Âl:µIÄs’ng™¾Ó!:°'fÞŸ¦©\y°½½ˆd-ª•m·TÉnÓ†ÙŒlÿ¹&ž—WŽO¶¶ÿ¹ñxýÑú_þRV+/bn(×F)w 62g¤iv“‰É~’Šì¿`R+/¯Ýl/ÎHôAÜÈœÍFb²âæôÃ"_ó™.ail°‘AŸzXØI¶KgX>ü¤› "èrqzH{òøñÃ'hÞ(rc2çÄôQDÀ3ýwpò É¿Iôßc öþ°†™_¯=|òhè¿Õµ{úïsüÉÐ:’õÁ‰C¾j7 šP9”`å·³¿ÏnßÖ%Ò !ž_[Uœ0釒N¹l÷®×äö.÷èré%tao®!¥T¦ÊmkÍ R‰ Ï1™“‚{«=Lp#¿ú®±ýúÍæÛ¿<)á¿•œ°XúJ›²ü­7¤þkÐëß$ÐÞ #>~*¢ÙïçI9"b²ÄK+¦ß˜Hµˆ†©Q«¥¹Êƒf±V“¶Œ~‘Ò8ýú àGuO/xUÓtÕ0éÆñÉÎv£?_n7O\üñüÍÞþŽª,¦ÿÒ˜k2“O0–Âl¿~íÁ%èÒúg!ëB-À>¾OÃY}<·õ§”rTÚ^!+¯¶¶¿Ù;ØÝh?ü˵ôî†O„•Øf"–›p²ÕñÎ?ÙÕ{¸îRáD e‰-»Pú"œŸ;!o«—Èû±u²ÙÁSj©x@R/tjj“9â~¡êÝF39;ƒ6 eµZèýôºÛÅ¿ô¼2–”­Q“ÑòË7{eŒKб¬h¨–ôãþ\ š$šÍSm±×IÎ%€ReœNr^Ö¾ƒÑFS¼º²÷?6„æ‚œ`è×A†À„ #ó ÐJ³Ù8#ÏJÎÌ>À6œÚÜU¸Ëšï7Ö®­~½®ðYu SŸYg©¬tºh—Ü,Kµ‡¾9d— ÉÁBµâŒ°60TšNˆÓÒ\óß\ àt <Ø›“L¹úºË#J¦w&[nUûÕ춂.ezÍL£9¾6ìÊ€ÐË@ã’ªž%Ù©X\ã7^"SéAk…=Ÿ¡rœ†lØîj%ñfY†1luxùTvíeïoeOþå™{;|¢A: ‹DßZ."Ã4oš¢ð߆¾ìšø2„ÖÂæ[ÙR¥’¹Þ¨Ž=8~Ý\ºrëólëûöŸÿÌ‰0"Ã*yÓ¶ Fâhúªd¾=ê™e‰œÒæf­oÀDlÊ›Ö4^–86Æ 9²&—9=•Ü}ÃNwcìòÞ¹ðûì~éþ1âöþþïä|í:þ|àXþoíÑ×OÖŸüaõë‡×¿~ü€ÿ{ø5°„÷üßgø3ïpw;ñ‡¸CϤÇÃQ«ˆëTÎ>@°P/Hç™=ªøÚªFwÍÇl]EŒ\F )2Ò<=øÑîÆ„œ¶ÈgoYt{:׎ۮfI/uðIÔÎê…öAÂb‡[G/O¾{½«ÊßÒÕùàê/OÕ–½<Ëjõjumu­°ì¿OT÷w©}æ ¥Òz©ôÕÆÛ{°ýâåbYmnªr¹¿7…Á¬*né(F¯ëqé«W»ÇÇ[/wÕA’uª€Îð©ÿÄg{fo:ÓÐbËZé«Ýƒè8ÓýW›ˆ­³’VYQjKÔKÙ2¡ „ÚòʶçÍ¢°µü\ËvÍöz€ÕmeÎÔ·+h«híFλ& neϵCo¢_ÀuÄÓØ)z®~[+Ÿ7?HtÎubO/BxŽø*B§¶¨¿•3ºb¡»2¶µ9~ ì¯×b<­šI»)ÑÆüÙEƒpÇA y€îð)ÈÑdè_ ·%›ó– WО{†Ç43~PE„Áõc¹Ñ8à £ªšÚB!è×>‘î3háðX’ì'åÒÁ›ýýM(º íÓGoÔ1Uçoù Õç1pÛêõ AÇuðýúèðµ:*56ö# âŽ1Ð-,Jxëx6>’ pI·ü߮ޤqãÕ‹mµšK¥F }Â/qH„pc§=PeÓ²[`¯‡þjà΂+hL1™09¹Aϸ¡L…?`©wöŽ6ku}ídJ[ûûjC•M ’î-§úIÀ®ÁRoïïn@ñÒ\õ?Ã9¥\Ùgy|‰ôtPX‚å•ã² k»Ò % Û ½·tÔM‹±E [q„°ã ·àˆh'”(lÃO(Q؆ÞûpžæÄÆækA­(xÝÂ<àöÂyŽ}|ÂQ¹Òú %Æ´1» Ù·/0¦…Á˜“H¹cëêw‰ %ŠÛÇ1¹…uÝ÷Œ % Ûp^NÆ(n!’_Xß}J™P¢° çmi|ÂÜwŸ % Ûp_ˆ&”(lƒ$˜ ~ X~1j­„ ]d@lhMrãoLÙì•Ê$l X÷=úas*ÂÝõúõf³Crjà/wvø¦'š^ÒIεòêD­|ûP­¼|«V×ÕÊPP{×Ëôó`g÷ù›—ü»é;‡ßÃ×wP¸)Mú­íø­íßxÙÖø…‰ë÷£r¶{§Kø ¾EIAy3íQ#Z„ƒúGzÔ0Þ ÿ»y‹ƒFðc‡m;Ê$Ìâ ~÷o¸úÍ Ù‰_²©h®ôtk€m…ÒŽŸyi¥Zó' 9¥ôâ/ühÈŠ¯_/ò?´jðûoJñÓâÌU®®f®"pÀPÎÆÔÚ¾ŠÖ´U^ìovßÃù‡9{¸ Ï|è”KÉ … ;¢¹2ªtt¼½9hf»‡TµÒQ«WYý«Zi™jR¦0ûùñöÃõM zPm”2õ€u†—F_ VR4ƒN,%$•’’€ª^š+¢”óyB:d2<â6“çÓ¬™L—Íf¹Df&Ï#3yé—Éqé¯L–GWåòŠ¦í’B¹¬Ap =ò%›§I“LºGrdò\Z"›•ÍÈ»ý3yÉò®ëLžw gò‚7kŽÎG^йn+,Œ²f¦¤,ªgû[É|6DÍ/%Jû{ÿ„Ó„/@Ù£ÄYê}<èŇëô”ƒ‚tùyÞjË/zÚÇèøÑLº­Î¹äD­Q_K/âŽn'éÄöW4êæGí§¶N›ºülöåÃØttÊÖEú9xµ‚0ÚîÅ{ÿòD&óÛŸÏ@pÖGÌîí[˜ ´2Û\€DaKª¨³ÑK úJ¿uºác\H)û³f}¿²£XŸZg›@žSéµb-°¬ämk2<¡E!Ödº2†"¬Èó„a¬ÈqÙê"¬Ì+š¶ËᆰvAºaKCX;î±’X;”•ÍÈãê °v ËcÊ°v /À6e°6 ë²X{g÷Eßi#;«Q8'Yîžÿ\Äâ$6'ŽÕ2Û› c× …±ÒîxQl Ðͱk!A¬ßäa©Áò§ÀÒ·+~5 c„¯\¦XôšÉϱç&?$­r3 j‹\3ùõLj[³ Z(µúÙEµ Ŭ™ü‚úÅ"ÖL~Aý"ª—[X7/šõ€(œ“«šœœPÕäš,ÈÁ{5S(†õ³ fV,‚ÍäÖÐEÂW77 zõ³ k‡Ä®NÞ˜za‘k&¿¨~PÜêäÔ+µfò êŠYýì¢Ú"V/· n±x5“_P¿P´êgÔ.«fò ê‹T3ùõ?4­ÖÚá³Gyçr‚6Tè³ a["‚ì²òÿÚjå°•‡Î,-hÖ—p6îªXövF¼Í-Œÿ–å³8ª­q[‚KO^+)÷ÒÚO&­mL#­mL!­mÜLZÛ/­müúÒÚqÍñE–šØË Jiót¬ŸÐhO/'/Í“e^FH2›#¦éW¡ŒA`©BÙ õ⥆¤±y’ÃÏÈIb„‚—Ânw/'$s©fHù{éëIY ü~„°¾àçÕÏñ Ðö7|¢YÏà¢`3a î¬òÛ€%€ÇsÉ!ÉmHªÄãùŒ€Ì6 cáñ\z@Z`¬Cx¼ ý*”1,UHF›áPÃx<—Îæ˜Æ0Ïåä²..ŒÇs9Y_z÷kÉcƒšÔ·¯"ËÕMãųãJ»¢R.w j³N=²Ð ŒׯcŹ™t-× éÜ{|m=[$áõÛ5VºEš‘Ns·Ã²‹ÓÏ;oçXcGôŠ2ÿk(Y}žýãÕ¨ †…öÍF µÏ|ÓîL« åÃœÇw×îYî{©OÎr´ÙîßKó;`c k¸wÑo—™‚uaÔZ¤_XŽ RtÏçT4ø™®¾õïåù©´d¦R (.û±4gPC ØÝ”£š†ÞÌ(x©Z“;p_j-ˆ”ýêuÝŽÕ2pt€BÍ76©PîU9T(÷å “Ãù"¹g4¯Hø5-_„ÆòùžÂ>ã+X¦­ßÂWhŒò¾õq£Ì=MÍDIÈraÊ£«ýŒ{ûþYë×£±‹1hi º¿¼#ÿݼ[Lûd!Ô/ã³/“ȼd’gükFnÅÆöŠä¨c§HXž-P`\¢×,˜Óî¼ÿÊÎ-!þQ"ôˆÆypHƒO7ˆbŠœ$á3ɺ-ÔÜSè÷Òm/{V ½qO¡ß‹£§œ‰'Gý}Që×q; a0õbÓìŠ&œ¤×=*&”¤Õs¤IHÂí±?•.N•?™kd¦_‘È?ˆºqØ»q OóSºGžÚuǧŸðq24c P*¾9ÚÞ¥—oeÊ9íì¾nà-y´»½¿µÉðR«ìÀØ$å¢:_«8Ÿ#såšäø'˜üÞbÛûovv)×á4×1¶ÀqíÌ,†Æ>¼¨¿Þ>jœ\˜–MÊöà8n’‡NÌ(‚Y{ ÕÅk¼H§ÃéuQÙ«6«If §o`z»ß8ãòf<3m[Þšs¦MÓç]íöZÞáüÌ@Ûç4[à×<éžIÓŽºgÜú»=ë¿Þ¡¾ùŒoçXîs-–z³ëÃc`øîÈŸl0ÄL NÞ:%{û¦ûn—R^½ÊCÒì ‰Z”ø¯¢p­%ÃPDc-Æ®Ùüô ÌŽ&î÷ü£÷n¼C~ýÙ÷ç®kYtösý|kûŸwfÜAÞÖ¹ö£±†·ú->Ø~`î雘ýdq»Ä'ó#ö(ÓÀì;tWζ‰,;ûÙ†mÚùÜO!úõ`úqk68t§}[ØÂï$ê·[ø¡Þ§obvlq¿ï·„>b×3 ̾çwÿ˜0Ù³ãŸ×'G¿ã7)wv·…fü˜äax¡~‹ÑŒib È…š˜ÍÜoïlØä#67ÓÀì[{W°Iëº×è$Që&ˆïŸ[Þ5jfwøâMàÓ:|ñåzÍÇ1È8¶1" ÝÄ89ÐÄ d÷»|#ÈÍ÷8ÓÀì;|Wp yžn /qÔº‰©0¹?¿; /w·… ü…AÔy1–ðÛH¡vfG_Ü~ñIýØÝ µ2û^Ý•Cß¼ˆ›ïÓQ÷&~û›Ý»/Usy[Þ.Úð¡Ž‹»mc ð„Ú˜ý qû$ŽÓ?b—²-̾GÅœRÄù';íygç‹tœÃs/œÓópC…`n÷“;?=Hþ7‡Ðc?îµâ^óšÂ;qjRzâ³M3ÑsCqD‘W[ÿØXáâë~å·¯u£÷e=l›˜q±”n>i ¶5üdûU ½‡¹§\·iå³»Ç'¿š#£³:£ÿ(D7Ð:qÄ8=ÿ.DÃœöê ‚h.xùMº ¶1NöÃÆá¸ÌÁÜbL\Üy†pww Lñsãààâ}!˜‚ÆH¸‹‚wv±É `Šå¤–®Öì¶Ò\"¶U„l±L£ŸH%W0èR#õ`§TÓ²@nƒ=û8¥ ~˜®\ˆ*ƒd†”Üs«º3<'ƒNÛëñg‡§|Ÿ·PöºýœÐô)Fs§@ÉDȲµ}x´“Õ÷÷àI'ÆÅda!ä„¿ Àñ#}p›Ø÷烞O8¤;BƒÍ¡¬K— M/Ù–n ^là¸âÍyþyáå éNÁ‹\:GÛ·@yP>w©r+st¼½¨¦ ÝÙ–ÈÌÄó@‚xÞ*Uò©ÛvJ¶Í%•oþðÙþœ7ŸÔþ²Â<§êcþïŸyõªÝ$ir†߇¸“ôã:ŽZíD½Œ{ñî™–:@¶’ÎÁ²z‘ ºÑPý Ö£ôÔ£Ú„?¹h§ê"JÕi÷àG¯U[m¬{]«a’¨nÔƒínœÖ0­jJê-cò(êt®Õ¹é #ÿžA_ê2uZТŠzªÝí’'µ†çódëè%Š»T™‘ȃ«¿Þz¹«ÅâÀÑ€F¡Ò~ÜlŸµãVMÁ ŸE£Î°Ý;‡QyX³Èëþ«ð»˜úÓŸ Ë{ÿ§?adp¿LPbh+ b ´¼zr­…ð½Y³½Þ‡¨ÓneÎÔ·+h«|—ŒT3Ò«{­¢LåË €ÂÁ¨×õfè…Ô!©†.ÛØéµjA•^ÄPŽ L¸NŒñL[ªÓîÅ°pT|uûxöâÀõ·r†‹è_Æ®ýõ:IÓö)@ó"i7ãTAwþì¢A¸ã <8…Z8•ÉпnK6ÿæ-…A® =÷ ifü Š ƒëÇ4r£qÀA?::5¾Dq:*]qna]Ï%àø…m¸CÇ(n!N Ì`¾g0¾Daná± [ð<"/Q؆g65¾Day-Ç)ŠQk%¤hÞ°DGm LGµÏT/•Ý²Áf¯T aźï[xÚŠpw½~½ÙìRAaÍÖÎ_تVzI'9OÔÊ«µòíCµòò­Z9\W+;@A¡¶d™~jñþF-ÊÃoáë;(Ü”&ýÖvüÖö”ÈZs­ïíï‰F¿_n7ž¿ÙÛß)g»wº„/¸¶p™ïí5^ÒOÉj4ŽOv¶ Ó5Ò8ùæhwk˼8Ò£Ö¢ÍÍ[4r€;ll#8pGt‡ß}ç.…~óB6äEâ—l*šëáóÿ=¶ÄÏ ¥??òÒJµæO,ôÅÒ‹¿ ¬n „ÿ¦Vè÷g®ru5s©€† p6¦ÖôUÌ°¦­òêd³ûÎ?ÜÈÙÃyö8¸àC§\JN(ÙÍ•Q¥£ãíÍA3Û=¤:r_+€–2…ÙÏ·®oÕƒ²€l£”©¬3¼4új–…tâ`)!©””$Tü¤”óyÚ±ŸáÇûyÍQ?Ós˜‘ÉòÌHü<ߎŸç~™/Ê•Ÿå¶ËæMÛó –Í—ÐŽ™É3qýtßÍ°ŸçyÏd¥E3ò­ÿü<÷ZÏdù ü<ß<ÙÏ Þ¬9:yA纭<°0ºHW¯¤,ªgû[É|6D©È/%Jû{ÿ„ÓÔi÷Þgg©÷ñ w®#M¯P.?Ï[mùCOûIÒ¡fÒmuÎ%'j}ˆúºXzwt;I'¶¿¢ÑP7?j·8µuÚÔàg³/æÀ¦£Óô:ÆÝK¢ŠètÔ Âh»oì=üË™Ìo<ÁY1¸·oa&ÐÊlse@¢ÿ¨³ÑK úJ¿uºác\H)û³¤<fJ!;ŠõÛ]¼Ï2™Ès*½VDJamzlaí@†ï¥k2=7IX;ç»M bí@ŽÛ°kóŠ¦íy‚ `í‚t9€µé¾wù0Öe¥E3ò¾ÃX;å¦)ÀÚ¼Û”ÁÚ$¬ËbíÝ@ #FvV£pN²8Ü=ÿ¹*ˆÅ§6ñ¹™0v­P+íŽÅ Ý\»Äú=LA– Y,Z,«58âW“0Føi6.?ÇžgfÔ,¹6òLj[C&O…¢Ö¼3¸Pv¡˜5`FÈ/±|Lò‹D¨^naݼhÖ¢pNN¬jrrBU“h² ïÕ@N¡6ê6],‚ DÀæè"ákÞEñ˜ìÂÚ!±k&Æ@A^XäšÉ/ª·:yõŠE­à*üB1k>ìR(»@ÄêåÔ-¯œ«ò E«~vAíb±j&¿ ~±H5àh*ÿ¡ùhµÖŸ=Ê+8—Ä°E¶äŸUÛd—Åÿ×V+‡­œ8tfilA³¾„³qWŲ·3zämnaü·,ŸÅQ½h“Ø\zòZI¹—Ö~2imcimc imãfÒÚÆximã×—ÖˆëlŽ/² 91us‚RÚ€Sc/# ¡ О^N^:›'˼Œd6GLÒ¯BƒÀR…$²êÅK Icó$‡Ÿ‘“Ä/' … Üî^NH;æRÍò÷Ò× ’¾®ÖïGë .q^ýð¿ mÃ'õ . 6–àÎ*¿ Qx<—’܆¤A<žÏÈl2†Ï¥¤µÆ:„Ç Ò¯BƒÀR…d´5ŒÇs9élŽi ãñ\N@.àâÂx<—S ‘õ¥w¿–<¶ÀÝÆm«Èú®;&‰gÇ•vE¥\îÔf :œzd¡A)®_ÇŠs3éZ®Ò¹÷øä@îæ" o‘›”ÍH§¹ÛaÙÙ× ŒÊs}3×Lú×^’’œixü_CÉê“ðì¯FU0,ä°o>0b¨}æ›vgZ)æ<¾»vÏrß+H}r–› 5ÈvÿžXšßP¨ÐXý‹~»üˬ £Ö"ý’Àr™BwhY ~¦+…oý»Ay~*m×óÚ”TçÝ€›ÐœA `wSŽjz3£<à¥hMîÀ}©µ Rθ°sÐíX-÷@(Ô|c“ å^•C…rYa~ŠäžÑ¼"á×´|Ëç{ ûŒ¯`™¶~ \¡1ÊûÖÇ2÷45%=þ!Ë…)®ö3îiìûg­_Æ.Æ 9÷§n3÷ÅRðßͻŴOBý2>û2YÌK†!yÆ¿fäVlÌ“…~Ô(:³9éô¯Í'x"»mù´ëÕlŸP\Ö%ËÉ1ØÇK¦ƒM9¦üp à–·<‚—:¥<º“E{û_Ìxl,.Ö ¨Ð¹ÅXý¹…}&Ä·*ÿ•EÝåZ¾¥™)÷éEØÔÝ­J²=Êš|YN+¡vwý^>}/Ÿö²!CºœÂë£ã˜ò“Ýâ÷bíßÖ2r\}…ü^èØ D  ÒÉË$NÇ8.(`]: ´â1YÖ5}q6ôÉbt=¥;@*ºõŸ;Y;Qºšj<“âŒÈÜI›B`>!,º^ãÉ`[h lºœ“…‡£4L(’£Ž"aIx¶@q‰^³`N»óþw*;·„øG‰Ðo PäÁ! >Ý Š)r’„Ï$ë¶PsO¡ßK·½ìY)ôÆ=…~/Žžr&žõ÷E­_Çi@ì,„ÁÔ‹QL³(špv^÷¨˜PFVÏ‘&! ·Øü³QéŸ:]>$ê¸p¨7u<µëŽO?ápü1b€ÿfø|´»½¿u7oâf »éŽý¶â@»ö áX7Ôkqh×0púf}¿qsÞ»Ü ·-oÍ9ӦݕFÚ>göˆï¿*ýš'Ý3iºÑQ÷Œ[·gý×;Ô7ß¡€ññíëÏ}®ÅRoöc}x ßݙ㓭†˜iÁÉ›@‡ doßtßíRÊ«WyHšä ñC‹ÿµ@®µdŠh¬ÅxÂ5›Ÿ¾ÙÑÄýžôžçícgÚñ¼›„™öû®Pdh<;Îyµw¼Ý¸;ð†1o9»-âšj‡€FQŒ1¬ÇŽé«ÏŽ/î÷+gX?Óne½«Ì´Wwæ¬kw78ï[Gÿ¼ûðã òÖN·ç¢¡`Û±ß1'ÜóÖ3}78å_Ú.…ÜhÌ´G!J3íÐÝ9Ûâ«ä&g{û›ßÔØAÞÞÙvý»m;ô;îl»®¾¦oâ&gû Û¥ž™ö(ÓÀì;tWζvP4ûÑþfwë.±‰a qy[GÛóéÞtê¶ød{Þý¦oaöƒýÅíQÀëÖL;äן}îʱfb³ê­ýýÃí»0î oëP;N×ÂNiÇùæôõg?Ð_ÜþäüþÍ´;níÙ÷æfö‡x£ó¼ýÍo^Ì oñ<;>$ ·}û›±GÚq'<}7:Õ_Ö.…ü|δG™fß¡»r¶ãËÙÏöñÉ›çÏï:Ô¸ƒ¼­³í; o;õ[|¶}¿ÑÓ71ûÙþâv)äÐu¦=Ê40ûÝ•³­çÞàÙýùÿ6^Ýu qy[GÛó5\ðè‰ÝŽy%w½ÎOß žÉ¿´= xƒži‡üú³ïÏ]9ÖÆSöìçú`÷ÛÆ'ôÜAÞÖ¹ö½‹‡·ú->Ø~ ‰é›˜ýdq»ò?Óe˜}‡îÊÙ&_ú7|ÂþÜrk¾ÍF0ýãŸUo[âfÃŒy#q³ákf¨Ãwïû­ñÉü&ëÔ¾Á¶Þ rCÑû+”BÞõ[Çäí!‚IÒ]êu&˜$à 5pTð…íP> ÍLûãUŸ}wîÖ‰¾ºá‘~û[˜·ŸäH_M‚™·“ÎôÕ$°É¶p³CýEíQ šÔL;äן}îʱ6Á¼f?×/ö¶ö·$¡;»ÛB~ä´0¼P¿ÅÁ¢9}³£„ûí —|Äæf˜}kï 6ÑÑgG&;Ï_Þ}9²;ÈÛ ^Æð¦S·Å(Á Å;} ³c„/nÄÃÇwȯ?ûþÜ•cm"‹Î~®Ÿïomÿó®ÃŒ;ÈÛ:×~4Öð¶S¿ÅÛÌ=}³Ÿì/n—ød~Äe˜}‡îÊÙ6‘eg?Û°M;ŸÛ`âã)D¿L?n͇î´o [øñ}ÀDýc ?ÔûôMÌŽ-î÷ý–ðÏGìz¦Ù÷ü®à&{vüóúäèwü&åÎî¶ÐŒ“< /Ôo1š1MŒ¹P³£™ûí ›|Äæf˜}kï 6i]÷$jÝDñÝAãsË»Æ@Íì_¼ |Z‡/¾üA¯ù8Ç6F„¡›Ç#š¸ ã~—o$¹ùg˜}‡ï n!ÏÓáÅ ŽZ71&÷çwôÂàåò¶„¿pc ˆ:/Æ~;c)ÔÎì¨â‹Û/>©»[¡Vfß«»rè›qó}:êÞäÀo³{÷¥jî oëÀÛE>Ôqña·mŒžP³ô/nŸÄqúGìR¶…Ù÷¨ø€SŠ8#ÿd§=ïìc‘Žsxîåszn¨,Ãí~rçç¯ÉâæzìǽVÜk^Sx'Nm@jCO|¶i#zn(Ž(òjëŸ+üC|ݯ¼ààöµnô¾¬ ‡Í`3.` –ÒÍ! äÀ6°†Ÿl¿ ¤÷0÷”ƒë6­|v÷øäWsdôñbVgô…èfZ'Ž¸§Çãß…h˜Ó^=AÍ/¿I—Á6ÆIƒÃþcØ8—9˜[Œ‰ ‚;ÏîîÎcá‚)~n\¼/SÐ cQðÎ.06L±œ4ÂÒÕšÝVšKĶŠ-–iô©ä †]j¤>ì”ÊcbZÈm°g§ÄÓ• Qe’Ìò{nu@w†çd0ðÁi{=þìð”ïóvjÂÞA·Ÿš>Åhî(™Y ¶v²úþ<éĸ˜,,„œPã·8~¤¯nûþ|Ðó ‡tç@ˆb°ù ”ué¡©à%ÛÒmÁ‹ W¼9Ï?/¼|¢!Ý)x‘Kçhû( Âç.UneŽŽ·Õ4¡;Û™™‚xHÏ[¥J>Õ`ÁÁNɶ¹¤òíƒÃ>ÛŸóæ“Ú_Vžoo7ˆqØÛß½ý>VáÏ“Gàßõ'kÒ÷}ÓŸGÂﯿ~ôpõáÚÚ*ü^[ÅÔêí%ÿg”£R¸8Mâ‹î¸rñ ýú¼æÕ«è}|®Î’zž :@ööŸÿ¬×«¤§NþÀ}ïL]'#u}ˆÕð"6£4»§x°¬q7ÜruçÍñnãåîÁîÑÞv*ÿOé´¹9'µ¹Q—zu€¸Ç1ã´Ý£¼ÊƒÓæb¾0±Ó>uá åÛ”TùüŸÒÿ”ÎuÞšÒ¹×붌)±ž)è›hâ1FÃh6®ÿOià'(‘ÇfR‡4: 즶1K7Ï:Ñyº©Tõp]UTõCþk«ê7ðÿM¸’›iWU÷°¢Œpñiå÷µ¾¨ªûXú\Tõÿ)Í©êeµ?HðŸh”Ò@3üÓl6ñŸAóBU£GªºÓhŸìl7›«°#-Øñ^ êîÑÇ-Î%Á`qåí/|ÂÇÉîÁ¿à÷ÿnýk‹-ªöþoëdïðÒ^n7_ïm@#è¥eëèhë;\óiinÀ4*šÍEõìOú™?(Ì-ÞƼ|ôëC4 2PXŠ¤²¤ªMUYª5ÿ§ô3·ÈAo¥Í~_·:hâýr Ù´[m»[¦ª°ègX*šXéíÛ·|~;wüp¢ÆIžñU‰ß:Ö n/v‡IŽ;yü¶áŸ8×’ÀoÇGµÎδçxÚÂOWe¿]«;üvÝ÷8­86<Ü;I×Kv”]œ6\m]üvõíðۆʹ]i1®0/oå¬ôü»¹ˆPlC± +ÍüãoL¤6áËVP<`¥ÅªPÊa!¾rIì@1ý> ôËH ã#]C# mÅÅ©±tȤ »ýó¢§ç†rž.pÉt[ µþi3PýVUc裠&õ —3\JÔ[-fSrs· ŠWõBÀ/cq{£ ùŒ’€Ë"ª1Ã#é¦Á)vWxì’LÓ·Ó~°g-êÈÈ™1o¨†ù ®8ˆ­hNaø!ž7iPýk› l1¬dÎU³[Ÿ©žËPnE¯!}渎ù¬iZõà2m¢aóBÐrOÏ•Z¢e]¢ó¾D,-ñ’Ý¢%»ðKEPY‚A`–zÒ®Rî±´)KŒ†l‚„°™_›¶›æÓÿ»¯ÞþjôÿÚúã‡_ý¿þäëGëkO­!ýÿõúÚ=ýÿ9þ èA¯¬«´7Ûgí¦Ï ­СâÞ‡ö éuã°»Xç;àzqÜR/ÞPõ°öõÚ2œ”¦Z¯=®}½¬âî•Z­ýåB!£€Å°ÕÑ°ÝI¡ì_±è mwÛØa’tÒ1íÞ0œEÀxcE¹¸/ãAÜ[Ò1‹[5ÄQÜ÷¼áE;¥ÆUY¾Œ%èݯ  3âÛÓ H‚³©ª:µ;­TF)Ì÷ŠAnPUQ ²ü± ]Š†%øLµÚ@Ð ® X$Õµùãc®/ãöùÅP¥ÃA»‡ÈmŠ¶ä}.ÒÞ0Uýd0„ªP6¥ ÛIo÷¦çOãÀ(d©äŒf¹L­F½‹ÿ¤I—© K5“N‡º¤’4äšR; `Ç^2ĉÈ< D3»Ø…ÌzEvÉ,kkÔ=Uq«MÃØN`XÜ~i{{Á¤´ tÌùŸÿŒÐHT¤sMPWî"@A‡åeuyÑ&†–ÑE©´MoÀµŽáW˜¡~Žãáºý­m7ºV×í¸ݲAÇI°˜aávu`….q…›I·Õ‚ú—íáE2JÑÿÒ> Yž©ÕN#à†SØjÈĶRÞBØ<ÞvøµP¢SÀ½ì5cn‚´ºŽß¼:†îq¿S\²x§.NF) ¯¥ÉðZ¶‡)78êÅWptáPt®i›£¬¬¦¦Á\GÅG§04OÔqG“„{‹†ÜÛNcw럪 ,e,«nàöxþ:hhmØŽ¨ÙŒÓ´}Jb2¥;T),¬/ NcXJi§Ýla2­˜¨y [¦2éøª÷qaS^ØÃý­£½ãÆÉ7G»[;Ç€ˆdG},Oàrœð`x1hÀéY˃íN;îÙÁD4QÌï©lÛ8 :Tr ©"XNcè'Ö+†'»ÂSÜ-€C< XHk‹4è0 â„/SZ²~B0œârâúÒW;ðò™„ìÓ–¦™œ÷€%kÁá|pÇJ˜X=.°iüã(†½Ôƒ8F?IíÃ{/`ž˜{xÉl)ÖO‘¹R€¬ú€‘ÿ§Ë4’Q:‚äk‚B?Cl BÁÀ’ö´{°pDÓöp$«@•÷zÍAŒ€št†¸©¸/éÇu™ Þ§Xðw°CàÎáÁIckg§ñü»“ÝÆÖIc÷`GA‰.Pe0Š³Q‡1žFê©`Áa±¾qE¨ºÀ9.€¿î}À:x†u³iÿ¢2á/\È &9㣧´ÙËíÜ O“2ðÌöÒö‡wôä‚û‚ÉQ3mľ2ð.Ât-ÃÆ^ášú&ýœ.dÚ|`I𦠽WE‹hÐÓÐöX+•¶Ž6U4(mìï=ÇŸ*Å»ó(¦s‚Ÿš€w4ë9&-K$ô’Þëí#÷ò€ o4ZÓ󸇇%Æ[Æsv†÷úÐ\}¥%élSÕJÿz½uò ‰ì8q±$l¿H”‘¦(+HQ,CQVn¢´ÈDYi‰2‚Å2eä"ÊŠD”•†(+QVž¡ŒDiˆ²Òåh++íPVСŒT.³Ã£ÏoUË~Úof>íwКʢØ@BþØY¶ÂböÓÔΧâó´ª—”ý¨Æ<=É>Ñ1ˆ\z|‰6 èDõÝ N2­S h†Òö›£ciµ#uªx{u:ÂÆñ`œ%t„}Y q'þ^Ž]¸´Tz aÛ7s¤ÎâK¨)pHD €ãà²ľ'àL/b8òB÷@"”BÆñ7»ûû.É«>ÀñäÔJ”·‰4 LÿøõîöÞÖ>!¦P Ç߃9ÃG¬¬FñÛš`„kcŸ"Ò{e¾`ÀC¸Z@‚!¹ÛiãØrC¨ˆá^H£AV\mÚ@k¢z×—Ñ5œi‚©k%D¥Œ¸kÃ-æòÒDÀ•¤zɇ GÄåÕ]UÙÉ–Ñ(ÃÍ3lF[ƒlá6 ºsFƒ |·D©¥±"À„£q ádâÃ- Ñ5Ý[íÞ8²­ˆ(fÄêtŒí¢˜—J‚œj½»HB¬óå@žÜË+Öö¹„²¾ÈHúPʱu´t9ï“Ìx‘)k…¥XÍà…E{ìÍžæZ³¥sMÎ5ûH@ž?CcG¶IE­‰¼ÏmQ£ -ÛÊžˆ—ri8àQ$~ Ri®~%¸+¤‹NX¬äÊ& ¼è›Å‰ÎÇ½Ï î%„ï <”±®]²·”ß¾ …î¶o.4j?Ô° ž¹U6BûÇJ)¼eQwlû©6Ç´ãË^dÎø& Žu«>n Ò†7îÒßžÁ1PÖGŽAÚ¨îëÜI‚í|ÀÀš@’G3µXrùÜXPw²p£“ÂåO& VÄ·ÙöBDЊ,ÈU¥¹AWUY&²¾ÝW"àëû£ayÒŽþ@úTãg¸ôæD„âH€2sý#¢¿›H¶›ãQ¸»¥¹*uéÿ•òo;vØ‹êÌ'_Ÿñ‘“`zYg*š2º Òωs#Ží,u†x±&(„‰`b×Éh`ɸÀOÉû¸ø˦®¤Ã6ܽÈä!…s2¸–ÄOH¿°Ï£žN­äŒ' †NŸ .D¦¡`;%zÀØÈ•u¦¹ÚŠ“‹ŸœYšc Uþ6ö’îþËÿ¿ýõÖÖžgILËJ¥¯ÚgÀmž)üįFãÕ1€P£Qòá髸“/*eNl €~ €;[²u›Þû^rÙƒÄÐúŸÒW"x6€Ê-–ô°dŒwØ&Êï0AUO‡›­$õ:ײ…%…J÷†^aš-ˆG %©ðWøÂ0€[˜‡ÖRô!Û Ÿ}8•(úÞpÆ®''£²'£ÿq‡§-VÃD²“49:Õ›˜=N¦ ¿š?è]>ÙN5½3-ô?Eäß2[±½½yÙl>üËz†ºì÷ñ'‰Ÿ]í6 mñ£6¾§|¥›ª¨1þfþ拤Á5Pÿí?‚¿š¼JXœÔÐyô‹¼ÏßìíïdúAUõ@±ÂXäAËP3¼7íÚ]½EÓ 7éôåô‘±žþG¹*kž¾šQVû“È =U5GOÍSRs5ÔŒzšnÁUNó4Ó<µ4O'MWu5Òu4OÍSDÓ=54OÍQ9³"5¸²„¶Ö‚)…NƒQõ‚[Ž²>Fʺt‰VOIÐÑSÕþæãµuUy¦þ,uþìT*qš(©ÚÖ›4ýØ=Ø1->ûcsðÿ·÷íým[W‚ýWøýü0²S‹ŽHI–í$L• EÑk½–”jgê …˜$X€´¤Ž»Ÿ}Ïë¾’'íîZ3 à¾ï¹çž÷£Eâhò¾€gL©pŠB9)…ÂTض§žÐA%ÒYVs2+UCôsßÎè`.*LŠþGOÌw¤¾JP‹°&ëPƒë¨TH›Ç_%qâ¿ûrpüÜ«î'¾¡{ Îi’“pÆ%'Q\£´. x¹gq<.³øk– Ð›—®He'ñÞs >}2÷¬¢gswùÅÓ Š`€êþ¨ ˜f[0¬:Pø_l}Ø\lù_ÈTL„¾™ß}„”!諧Ä×[¶mº¹_||Zx6üG÷Óí]G6’RwÙw Á£÷;OŸ¿xuÿƒ_uÀÕ*.,¥èyYå ,}?ôŒKG Ú\z +ª\Ǧ üË/ó+¦iüæ@SD®÷ª¤Ñë}j,F°Ÿ¬¥{àÓÇz¯*Knƒ{ÇjÚh”ª#Ñ()šWˆ`ôèPfxèüyÆ#ÀŽ´¨Év­@ES+ž f¦Ö¿j€žr Y:&g8PcyîØô)=‘݇ZýŸŽvO»mªócr —z’ÏÄîZ›E—¾A/_áWé+‚Å­,}…W¾Ê=nÍoÇò~•¾›(_áWéël¬F¿ÊýÂ¥ß|Vnù&V-ßÄåºéPÕM‡å¯@'ÈWÁßöW¤öù+RÅ¿µüå¿JØüüô±\þû|ë›gOÑÿóùæ‹ÍçÏðýÖöÖ³o¾È¿‡l•fc ‘ÛÄ1ÇÝûóþé)šý¡°;#[¼0Á¯¡O®""ÔÅ—º©uÿbŽæÚ“™À ‰Lg/˜DbLë'³†ï·üqœ cÿš„5Ó,½/ ñ‹-ˆ²tš%hèø‹Ì¹á—[@Ýé8/4d¤Q ¿þÚ_­_£úûøöš<Äã›è¥ï!)ñì¯þuˆ6+âÌÏb²ÒÓ"V˜Íœã4Ck©JVƒ¨ÃmÜÏÆü—Y“.»qe.¾¢ ȹÝ8.¦ãÖ:o:AÿüåË.ÚzÜdž¼µÛ X"Ønï ÉxD½ª±aùÍó®Õ§bȜݯå:n.c§ìCŸdèáú3+K,£ß†¹2KWa‰|¼Ò±êËx[}T2¼[ÖécX”|‡ªw‡.ó»Yrã¿X'Ã5*PÙå:;µ[:h0T­žn?]Vÿ +TñŒFž°§6Â6îÙì ÷Ÿ¬ßØŒtF–X¤Ó¥v`MI‹¢;73ê+‰Ð47H—öp¯´¸fûvX ÆÊVmÁépj“ý! Þ‹ükvî–,©Ðf÷ìä¨ÛÎÛ'‡‡öYk÷°ãjë   «}~Ö N;½£n¿ÏîÈâ ðïî P2ÃJ6c)ö^li“I‚†ü¨Ó‰glt-6ÆÿZÃ}ÊKزILë=Áœ‡Y8&õ¢‹9-“¶§Y„ßËŽþÿA#úÃVo¿£>Ÿ”à.À‰Ü/Tºt|#d¨›’>p!A#€ôŸonúG»ÚWpˆ4уå™–XÖÈ‹gÐÆÓÿ…éÿC›ju®”pÂ!Æ«8#}¶23ž†äŸÄSÇ÷ÛxªdÔli& âpgg¬X‡¹Ž»½ŠÏSOG±¶6Ê•3ß^ÉFt’MŒÑøÛB—ª0BRò ½Fºl€ B<$é<›kè¦Wÿû<™ÅõÖq¿ë·©¾`$±Fõ½OgÎØ„´/ñ”…H¼^eéÛäÕáM#Th œóÖÅ­ºiqQæÙDŽzyIs•ô:cÝŠƒ£pef¥­—‚óƒ4fŒ‹ ôx]ë}­¸ñ¢#¨gŠ.Íø™€'Ô𣾩E¸Ð£ùŒœŸàB̉„L½ _›x§Ê4jK=úˆdéX·VÞó >p²W´RHA[V݉AzÒˆBZ°¨çÇÝ7ÑÐüqC”~B;r£ÂàœK•Q1›>ð%"Õž&^}(aq"4,—mv®u¸‚aQËÁL`—#@kÊÀœ¬ýâÕrE+ }jP‰]Í•½È`’ðò¯[%ˆ•«– ÙÉvó»3ÀÉ=ƶÉìW1n$'èÇ´®¸pì„€'·äãB®²Àƒ)—>B>zVØNØÁ¢Cr©³TìØÖº+²ã­ œ$/f¯³×íMà {ÒÞy£1ã†uf­ðÎʼn‚šín1Œ’0õÍ:’INE$› .6‡TíŒÏ·ÍHˆtüzΰNç¹Z"Ü Ñ%ûþ9i<ÃXYA‚ÏRë!˜Od}Ùq„W˜Ì¬Æl4™Fp]p²‡©ã톳À+79à à£Ï5ƒôý %¦‘!,Ë==žÕ€.HßûáÌœ ÝÖ€ŸáZ„¹¦Såi$+j‘ Óh’ ‡öQ‚Ï1¬ˆØîsªÉV „Ž)>ìÉŒx¢„ï Më æÅ”ˆWJ>B.1›Ð „aÈŽ[ /’Q2»åQ”'¡i®îÁk¤ïãÀÔ_«ÙÐØàTø¢»ˆ#TˆAËHLùáIXܺ@·º­yÃleã¬ËlUŸA: ¸‚áÕªxuaåsã+jð#Üuãdšä‹HN0 Ç` áâd@´#o‡xÄJÓ4ÍÖå(`Õ¡—veл‡¯ú°5;ƒÁe:1ÀüÄB!´t }¬ŸÂ"ή‘PC•>®ÚÖ‹íoŸ­[l1cÄX¢£.`|ï |uàÜدéšý’…]JÄíd8ÌPsp  ¼_Û¤Ìâ\g‚3rÂ33ô šEWšØ  ÉYØë) Ú‰öŒd&6;©"ò!Œ²Ð¸ðÅÁN#’ÖÎ~œ ¸ßƲ¾wÚþ‹Sx‡Ýþ™ÿPÉRC6ø‚1Â@¡@¸Ȉ Åy-Eõœ†avS1«€PŒh( ¥Ów"R ¸-’æf" šã[f’AÚˆ>r ½µ BØ¥ëÔ¿B+ì‰^%ùBÈðÐØ„Í×+ˆMLšü¿Îtò*±ŒËàhàAp±Y?EÖ±„nY&Ú¨Š½Ì(” Àå*’®«š$[WNÝÌ¿ÂYñg ¤Ÿ´$Qµ„P-`à_UÁîãktgò>±Ž]M¸mX%ÂÝ)„“´h„&o8¬uIªëMÂYJc­½ˆß¦Žñ¼âëœóf-î3a»Az=Ñ7‰9„Š07× sÄnÿbùþy­q ½T’-Cî·ÿôÏOOᰲюò3Œ~ö×pÔr^oE«%  ™§¥ïs&±È•²dJ¸ V©2s©ñdk<—]TBòMàÞ*O€ ˵ˆ§¡=º/¾}œö:/;g탅š˜@<öOñæžýn· +~+wÓ4‹/c ÜH9˜Í#>ÃsXÓ‚[üæÛþa2™ßæÜÅb!êvqèBÛ0Šê8d8DäF¤TN$g9ûa®‡2ÛÔ;ªo–‹x}¿¶O üw ÉŒAS¦= 5>€¡-ö %})K…9ƒY %EY2àP¤èðµ0IÈ»rð’LŽDÐÁ Cµ„+dZûOâè‰BÞDsZ8`¡©þÖó¯(L]j¶x{ïøäõ}÷¸u´çC UîÞá>1j1*ö{Áb—€JŽÚ1š‡uöþã?Ô‚‡{Áë^딥Eã Ä`ˆ.5µ6D,FQIÈf²c_u##[)âNˆÖLD8t9Ê–ˆa˳¾ˆ°È2E²]†ùUBÒGÑ=“ƉÑpµúdä'±b9b.pÄ F“O]‘‘Vñ9hx^•Í¢0ÔÅÐG0x =óoeèÞ¡…rŽ€fr ßlHטš*€`¥†ŠIq…ú½6,…Z‚È,AÄKÉ2EVLµ‘YŠH/¿ÄB²‘?²@Ó×ð¬—&²Qfi"‹ ž´WO¤×,òõW½f‘µfQiÍ"³f‘Y³H¯YT^³H¯YdÖ,’XL¼n…øQ!…õ,±"L„bÈ7F‹‹E?¨è3…ÀË* Fä<™oÙùØmŸ8Ͻ6?öÛèpŒL#'ÃP^j Bzù+CYñÊÁáÅ5€²iäÃ$ÐðdNþbssÓ¼AŽqzÚE8Hâ¢È~m¹¸±]$V‘T«ˆæãÆúvâü° Á¢š:6REU #äV…÷Édä^ uÅN† Jj0 ÊBÈJ.ižü .Ã/Á¸YÑ¥X6nÇ×qø^I**‡‹²«\Wƒ©B2€mšàòº±÷Åê’d±S<ÕÖGõ¥ª7—ø†·0ŸOÒü™Ýrõzµ³Š†›çÊWÓù pÑD$»C†ó]µ=%¤4d5…ƒ„FW,cœFÁ Ìà-ž*–m¥ÅÒ86Ï:=ôMÛrž¶{uý€þÊ*ă|f~Û¹_ܸoLØDìà‘Ä£pþÝvúmåDÎ…àpH×Ø@ºåà)ò™»zú_çÝö+¢<²²- €$fŽÁéù"ªa6 IHGR½ åçQˆ#Éä“7r &¯þ~ã6Nú0K;L¶jÀp9Å*ÅÛ„³mŒq™Ü·ÀZûÕ¨ÏÀd(|8£}P_6€:)Á†à­%•s¡gUý¼šª_óY. ObÝ2&Õ,§Õ+ñ³oÙ‘»ûGÈÙ¡4­ 8é¿Q¨4SicïðP ÆŽOâO0P`vÛp°™zé†ëJ§·q||ly€DçZ(¿–;÷-›)~‹««”¯bÏ;?ëB·‚©]»Wi;_þ?³¸,ÌFU¤Å {Qïß&ø"‡Ñp‡ ©ÿêp Ó€ØbXÛÎ#EUÄk,@€¸Ñ‰?*?ù‚|¾ÑÌŠñï¢Y––,…€¼“.Xpªîî«"ŠäB Má ïÿÙà’ž‡üqÀᬒöî?Z#”RóVâè*õðUó,ýô<Ø V‚D[@Ö÷ÏOúÏBq1î_^EUÌ0–ÖदFjå¶ýÊH˜Nõ{´áDq|¸’ '(‰`^Þ¿ “Ñ<‹¿WvHld]¡Î:ÅÈù¦ 6÷ˆÂébq³!Õë¿ý‰ë¿¸|iýíÀŸw¬ÚviåíÊw­ùvqÍïسÄ,@úp[@¿ÄŠH ÚÙÒÙ{D6ñºdL±D xLŸËân«üʱØ[ypœ¶üÕÕ*¯Ëzjª½";7£AiÏ+‡Àýî-ì°XúÎÞ‹S÷d--ô‚Eª>8Ï>ñà,._88&ì`ÿÌ_Hö®ó¬x` «êßÒˆVÑóª.w#쪈|¸ÇsÜú­^gb"9¡I-Qìú£Éf>ÁuɯBÔý(¹…¡Üy,0<-ßIf¤:Hí>d4•–Ô!PöVF§<;ñå©G$p'ý—÷. öÃ0t2ðëÒFú0¥ªnZ i`nA{hÝ^÷ͧŒ*É’›«ˆ«gÏòµ’±êºw Õ”³GÊ*£O*±lKÆJ^nÎbšÕ#LÕ­‚fˆwX¶_VH _ËB)‡a¶Š—ÅŠæÛbQMñ0£·qÐQ÷´O0B¨_Œ½tF¥vzÝ~û¤Ÿ†J“/µu~x†ûkÛêõIFCWÚ²–Jkl7rzòºÓ;mûG­6Š–·´pGì[‡§­»GU/»=–4S7/hæÙ½š)‰þÆ,‘C¸¸ñ2úÙëõß”¢ÃƒÇ/âî`}4.1:¿YŸUüÏÒÆ—åSz¯Ü_G_© d”GA5<w²i!ÖÂ4ð³?~‘hÏU˜þå@ä*(^ˆræ1ÐAé8 ªCûßs\ÆŸAÊ,“Öv¾û$û\Ã0PV"x>ÇJTo÷ØÝF{¯îñùo³äZ;°x­ùbÿí‡P}š‹¡B`)2ù»ïyU:G|«µï÷‘p«ÓfY¥Ö+¨ {žÙ´Å20Ûb@¿^"Š7¢8‘óèüÝUŽÛªV=ZájXa™-Ók ¨,V¤-XP›¼]ÐÐHm ‚¦<Ÿ ™ú¢„#Ò‘r}­Ð 2TVÃYÎQï•”9㱊†%ÆHsýGeš’'HQK*ÊŸ¯Ö3«äŸ€xmŒ§ÅrRìÞÉKŠKŠ0V%¹¸¾þÌehnw°î!-ŒÜý¸TThÍéž*Õç­8»Šûz™UÊÚRàR6–OÕWíò/½›¥‘ŠA}õ¶¬™*‚¬jÓ6[ÞþBö{=þ/Km³¹Uæ¸)èVV~ä,êÿ®ô9•Ã«hTeÓñ_ËØ+c°.ùJ:Ý4WÇHsG.ì€pÅš9ô_ý±géõ›žî·¹!,87‹×F%ü)ŒÏ±±)lgÁþÆÊÕ¶¸–-ˆ*Vç•v^SøY˜Q6²‘|´fÙ€Õ ¥aK»®lâb76¸£:©¸½•µh` µÑð¿ÇP|~ôáòʯûï"اR­wØ¿ð¼)šÔ-º·" ¾ñuYÇÀkA5Y‘Æ5U_+䶩:—"Ø2Ã$SýÎïŒ4½Üƒmøæ­àGŒ«Ô=>«.âôãaOýúUÇCQ.(&d°âñÇð"Ífã›dö1¿ÈÞD'´ïû˜ßæhÛ¶ŠÇ`÷ì°)þ3VÒ-Û;N5&ÈŠe(OBÑ÷8æöí {Ü=ãÈ7ä}ÇÙqPWm¡Ôº´}–¼Ön¯ÛówüwÓëÁ;¯p{«ÀæF¦¯ŽÁ!*3°*üîY¿ÓJÒ…tÈn4Z¢«YT½ƒÑ…<ÎPwÁp”^„£¼27˜r•Àô õÈ­­ô Ô²é¥i½•ðw(“Ã8­ÒUΙ舫Øx^ÿ§#rê辩SC;ûm.‰ eæØe‘ìàcà?t‘`³IŒDýP»=9tÞd9þ«m)úùcŒ.ÿº¹½½½õ‡Íß|ótsëùöSŽÿúüKü×ßåï!ΞDƒä ªÞCÏ“¨U„&á(Èjà¥láB(° ã÷°ÞC;oÛÝ­ûñ mëÐçôTí=Zy+H M¨Ï”_±¾ˆ1–zãÖ†z”烓þÙ^ç4èôzÞC>Ê+;üÙØn™6%‘M¡`é{Ѩpå!…X`ÖɇtôŒ¼òñc8G­¾šÈ‚™è÷ž FÍèaÓj Vc*Ïá^ϬŸ|UïèsÅWõñ¡ú?·³ß=öO[íW­ýN&þ²Û†½3] Š½LnÅÐ¥Eqe)æ4ÊÈU nÞc•­ý¶áÁ¬Åíl …íîŸïç4õ‰žR®{Ð=<§l÷ _˜­ý“]ªØUꋧ­%ûÝFF¬žAˆ©9úòGkܵ Pg 5€ÅZ®Á€µ¸¤µ¶4õeý~•–óz|àˆÑlÔQß:«—j-U‡kåu©ZA_/ÔW—jTÔ¿P©l«’¥ß¦ådK:—H1-Ù¥=„¦_óÝ%¸+Šëþý3¯þ{ü1ýWpßùÌ}ÜAÿ}ÃñÿŸnom¿øf“ãÿó%þÿïów~/V±:ò± –ý³6ü<Ì7¢†_õsÚë…¿³““Ã~ñeñƒ½ç‘<ø«No'G.váw:U4Ú>=÷Å[uI£”ýôÅ·›/6+šxy¿&Ž0Êù·ô:’Ãÿšy4þöÛ­ûØ”Fvrt TkoiÛžÇaw|ù÷Ûçê×Öógúç‹-ýî³®bP3%}ÔRQŠÌkÀã³+ª­_Mãxz•Ž¨ø(M§8Ð~û ³gŠ$I–®^9nKÜ,TQýŒ ÃE·T‡Œ¬y 3Þîp®KŒbv¿qik>\ig@ÄR¼ÿ/ÞîI]Z§çǯà3¼£8·Ç'Ý6F[š¤Sç-æ™íw|aÞz ͧ€ýŸú»­~€´o†…w/rÍ”ou÷[AÿU÷4èwö­÷U¡ðôWŒE_¶`. «ü­×9ëýTñž¢§Aµ³~ÅG”xÕ *c§¿Åiµe^}š˜UÝÊQëU÷xs°AÛ¶—Àž¶ r V€z½Žçš\|~Ô•˸D ëŠ%Q7)n,ÙtŠµP9Çy…”–LýÀÒê§úll5Ó«Öݲ¾¯ xä ­ÞFÌpb Î4‚ýv ‘ëIßzÇÒ.ÌQÁÕ|D#HòŠ$ììDͺá4Ø'A°0€jˆf6¬?¹ªîÇ*43O¾ÛAÁ˜©YˆS`iÒ­ñÙƒ…u&ùžêµX'g&áγªmkîg'Åõ¯†ÇÝÝ;áñß"ÈgàcïäZíõ5æñ»Îdº3ü(zXhKQ4‡+Yê¹]·Å4nóÊÎL™ª}åKuéΕz <ºòÏüBäð#NŽ¤c³xeÈé75ëN¢­53o UÖ|v>ÛùÆó È4-™€[Ý~Ï P— Àš¶¡Ô±ù ª @6•¸Á­¢_ªâZ›F ÁU|ÁO†õ² èÞ Œ7méE¡WûƒªjÎDÓv¸í÷v—º»Ê®Ü ê“Ö´D(n%û½ªg˦-aqk:TUë7m‰Œ[Õù ƒ±«g+Ûd\LD·è™)2 hrˉ‚?Æÿ©´Ò&Yú;æN”h ¹-¬Ò´åCîÀœjN.jDJEˆv¿©6,Üe»0j;tU뚖ЪPÑzo€ExÁ`+Æi"$5<«²ÚSϾM[ŽæÖt>¨ª6¶n:‚7·²ûEÕ6ø½i‹åܪÎ3U}o9B³âd­ªª¹Iš¶Ð­é|ÐÃåXi{Zgœêe_VµL¿DýBKjÛLH5O²§5+¬îÝ€ßò¢- ùêÍq¯²fán+Ô7Öå¥úÊ\Þ}Q¨o çKõyáŠÔV¡¾1RVõï¥ÿsT†Ÿ]Æp—üçùö³¢þoŠ}‘ÿüTÔ¯ø#’LëÚ>a³ñŒr˵uôê¦)xgÃyîÄän‚™V¼bNJ‰ºûÙ|$‰>(×5*ç(H ´þ:™ 0„*§ØNæuÎQI'þÚÒðp0<2+{×>ú±Ï™/9,.†X”H·ã‹t¤"ÚfŸûblC¦Òðý×2Ö7?V†¢!GDO9¦¶„÷¥ê€/ofþÚ»³Ç|SõB™bÂY¨_Ôëb€k3ŸHT²’£rkïv×8¸EéË|ÁK}Pç$ü¶‡o9õ#*‚9¨}Úk ï+\‹¦ÿšé‘7sç †uíû? ÃñÊdì?ú“ÿÑ'c™ÇÿÝ?ÿ¯»í½ÞÙßüà1|ÄÀó¿þwð·'ÁÆÆcÿ‡Ä[ùuL±T5Ð83Jfç‹p GÚ”H3xx•_+Ú}Œ1m á¤@ï.Óô1%k\{ \&ð¢ö¸±h§y‰»ßNyH¸·~'UAd¶É)lÉ@˜2ŠÂÕe¬A=ÁÌË5†µÚ½*l Ô”‹×=:]P¾xû‡'»­EMðGÏûÊLÇÞ²Õ'~8Ÿ¥ce¤(éغQšžl¬®ðÞr݇ɥŠ€¾ûÇçí ¨ùü£yI ækþÛ·PÑ®¹bz´¦ V[]YqK>ô•ä Hµ µ5tR«­ð6>|ˆO«þâŠö ©ºkOÊ ÖV}· L¡ŽCZ6ªªÆi@Å:”Ú¼ª5y§^RŽÁÛ1F[}·ô-8Cï¾h$RéX õ´ºR0½­Éþ|Õ0äv5þ3HI…Ä&̽†G«׊g„Ã\ÿŒIv(ó§´úž9›Š¦.0ñ …-7ù«c:ã¡TTö $ͼ2–£±ñVyH”¾ñ(é¹J¿ÅFX:œ¸Æ¼·›p3<•”Íú?$ai†˜„2£©<|hÔŠüÒ£hÌtÙ&ï14îG6£U‘‘©¹ š…Ñø_‰-^ØOØ¥Ñh–¦èY ¢ZE»ÉÚψdVVêu¨ÀD&/F#TLÿ?Íût>›Îguìöf>Ÿ–>‘ò I…{pø˜nŠ“A_Ä£ôšnAÎeÂÌß;é×)@²ÿ®Ý| ›ôö"ÌCÓpv…cÉ9ÅÓù$¹Q76¢ (¹%M¹†×þiŸÐ ¿`ÃA†@¯&Y?|7H2šä[ÎÑK)?ÈbµŽ¯wÈ$Ù?R‚@ l~Üzj5©N‹Ý!Ÿ#ü'ÔûAØåñŸVýÙðÚ}GJá¶iÇÕ9Ì¿lØle#cñðJõ~ƒÝùñ_·1ÝìúÊäôFãp˜Dþ4‰#Š.§ãD`‚ÿJ ‘RN·:êO3LIiB3NPAW‡bøºƒŠxž™OÞšâq#— Œb>z´ý$k™s]S û›ëüêÇc$ìÒzvœru¢£!a–~H0ÀÄðb&*WªNª—¹§·$Òã ‚p& c¬J 9Z«G`v0R¥ÑnQoò>qvÖu¼>É1Š#åý|2e5â+ÊÍüOc–Aë{ÿŸÅ"Ahi”¥×AxÞ6è¿š·¿ÏËÉ“åÎõó÷q—ý÷7øû›í­§OŸ?ºµEòŸ/¾È~?#®1®q—£"# XèÀÐ`*—#œÚ#¬¢Dãúúº1àYð ½S# Ÿ_S²7Ã<™<ü?60èïÔ÷Ž9)˜¶í&·ÝóîáüDîqïäuŸß’#Ç‚TñP6èŸíû ?3Kãb¾Sï*óv ¹¸=®oüúðÇ´òÎÆ8Ü l¸Qú€­p¼¨¦õ¡ÿɘ¡n16rP—ÕèÇ̤8¿žlË€ž>–ÚLág# [‰ýÀsP†£p|àYØÃR¶>ðl4bëox6B±5Þ<ƒZt8PøßÏB2–öÿgc[!ùÀ[ëZøÇÒÕ>ð"RV<Ù¦ <…˜”ÉÄÏFO¶¢üg!*Ëœàg0–±£xàÙ˜ËV’>ð,fY†<ðldfëx6Z³µ¼¼‚k#÷?XJ‡ôìØó™iŒ¥ôßÖæÓ­gÏÿ°dàæ3 7Ÿý÷lsóÙúï÷ø{¨s="I—-†ŽÈd^úkщåÙ:ErÙ²4† H'|hƒüÏN)ûè­¯î^xÅ‘"¸JŽqË)¾É6‘šüúkøbX†6ü4ÉWg©] µüª?¬Fùp{#Ué£i2Ìkn-²˜©s’ßœ’×SÞƒ å~ã8ÿ0…‰;4ËÏGÎyƒáo…ô`ÙȘ#CØÞØ¢(ƒÁÁÚí¥˜Ã£í ä¥y9WhÂÎ,9š¹©¤Wj0_øñ Á–9Z:‘æ=&vÅâêÁ XH;‘f!/:}‚”@‚R> ´A%”$ˆ²ß$íOg·²¾PçTù»söhÜ߯÷ö^<#öþų: b-ýÆœnœ¿¡¤z€®Öá¿/žÁÓí§T¥¿ßÝ G+*ÎZý@ÏÍŠ†Ë³äùÀ^'1¤iP:'ï×-=V@]3"ìÈz nZo¿y³3„}±ßµú;!F!°FTSÑ"Ëôƒ öC+È\kæJI¨>RD¸±ê«aZ}RB’´þÿÆ̦Ž­Ô¡øcòÃÄNjò^L Š:B!TÚdQœè¤ë”Œ: ìÂ(¿EòdN<¦„N./c # ]>\*îmÇox9EÇÂSl•_?©JÒ±(Q<ÐY'A¿»Ü:ìó©íó³NpÚéuûdÓoÑ`•‰¢l$4 17ylgI‡©Sôãu:€’„ö­©)Rt3M¤Õ÷N[=讃Š±Þ+xæ/Š¤2à¿G¿”!‘ƒ*hm”:ˆKŽæàôƒdééI¿û&hý“ó^»³³õÝwÏ7_›<ž‡ÊtBôº«t–ÍñDVŽK%䬊ý—[j€¸èàÜnÒ£ŸìŸŒú•óœ{+•aUŽå¶u}\G2yJ:øtb}Bz3¤ÑIÌc¥Z›K A[9j@à”Éypë*£*mêîóºíÒn¥¨ÁózœÎ$³5?Á±:÷ìäVG%¡!³ÎÝ*+§Ò¦y¼Z;Äsx¦½-" ·l´#¸„c xø6XÇx_Ä®ä÷M§ÀQg/ân›ð̹ˆ»~‰/Ô¡ ¬Ò·bÿ`Ë·”û¶ÅÎìÁƒÉ‡1Qé|WÝ5^•"üA2qF³çˆUî‹èœ˜S*i¼wáÊÀ”«nÆQ6žgÔ9þÀY2ØÐyÂÁä|™&”]9ëK`Ø‚ÃNë•Js  ˜aMP ˆªaºy,™‰JZ”é5,¤ôŠLQ•n^åø !ƒÞ‹–-¾ÁÔM FiÄ:1ÏAerfؤäNÔØKf±4)õSx:(Íž5$1æ´LÕtŽ)n‹ •þÉa«×íkÌOdI­ŒË}öûö×hƒš¯X Îܦ`0zN¤y7®DÅæeœu@¨ ²¶¿ˆ/1Üœl ³ý£'ø´æ£ÒC\qšá#Ô“Û}Òëu8z­ã³Ò$Oï3Ë©;¿î„rIqcÌ7¾xnpâшFFÝb÷¥ ÛÍ’ÓŸG.VùÐ0`£÷W5ÄÎÖVað”Â\§«¶—táýаr5mT_ˆUãx~HâÌ?Œ³ôöq.ùœ!å¦eŠø³vÆ…˜†öó"V#èØWLeÿtY9‹@õ^Bû»ý½¥U_fq eŠ+H«ùºÂûˆŒˆ¾§J£[TÄåÊ4_w»×ê½î/íóžôý7å1·î‚Ý#ÊøÅz{ûço¶¿}±´îÞ.‚   $ëLØÚyiI·ì ­ªÚå0DžÏ¢/‹'9Ÿv&DmÃN+$U›mT—ª3A.9‡ËäLÑ€éQí‰a5…6`²›­îx6À¡†’]-°}Ö¹Ÿj!ЈÇ%v—Î"GOIʉšo…ÖgµQ:œP°?@¸ž&ÍÚ%ßg96Þt ‹YùêF·ë”hŒÔ‡ÜM û ö€ËÎD-´ªè“ëáô8ˆ†?£Ì8‹ù¤xÍ’QJÏP7¥¤g93·*W^{Ä Ï”Íåí,ó)2ªÉ„“¨åÉlZ·Twe$ú 5Œœ`L™Évœ£’©» ³±óÀ·îwôÀa¼Å <Ÿ¨ÁP @C—Ž5„éÊ89 'Ï77ý£]ÝPˆGi¢s.•AqQ#€rŽvyÔ{'ÇgAko/Øý x–ÖYÐ9ÞCžóŒÁÚ]ÎGV¦òE 'µ vü-­c¤gpꋸ +‡;n« ¥S&—§L®è¶Æ uæ|Ð`îàÔÕv’¡Ðs¡‹è3pØ–þÏ®¸/ηç“e€8'ŠÇuÄC|q §y0'™‡‰’‡§e–…(¡‘ò`‘5183=òžXå@I]¤4€ëîv¦ Ã×)‘åÈÕÔ±Åý¶:oj¶4>QŠ>ï3žËi~CûH¯1Ú0ÑûH„xˆÒy.ù,¡k˜^îÍY\o÷»~›ê I(9”éÅDV!‚¢f(OJé£ú­!5›¬IúhJƒnð4“àúRvƒ£ÒIR#\.Âô*Q2žFÙeh–‰g¥;°1¡$k°ïŽ‚‰HŸô­ñ%ß4ÐOc 3H,ù)0Z)*¢-Α&C6û{Õ| ŽSf© AÁÞî~p°×ë£|t]¯‰\.Ì„äñ2°£Sê[Àeƒ¤{èoqO½9šO°Þ›†ÞkØÀËH…àp’¼ªY=HiÓåºúaÌ»Á¤f-›&™˜úZ\HÀ¤åPÔž}pý)¶ÓØ` –…wCGáÀÓ]:äÖͺ¦ª^1Z.!s/5§g«ð[}£ÕÐgê¤ÈúfZ1Ÿp æ+ɧ©Á Ë´™jÑõ˜úk5»œS•˜ÙdL-S ±p€ü"ßÚ ØŠÜµ¦<“CêÌXf«ú Ò Pt ™L•rPdƹQhËqR $\ªOor©ˆÜ…°ïÄ81ýäpjXiš¦Ùºœ¬Z8ï&Õú`÷ðU® Ôób@JøId™OI*qÖOag×È=ßzJ«¶õbûÛgë–@$¥Â-ÓBžµ„Ð cfZ¯‰¦ý bDNr2 Ò€¨9 FX¼…pR–Ðà\Á6 „Rt¥){— ï{=Å3!C;Á¥½NP8D¶š ™~FYh2p0AÁ6°DHØY íwAÊSßCØ££Ö)á}ú!Šqœ*†ÓWÎÓDZDÄkM:(¹?îDWKÝ©áóclQ‘íŒJÔU„WF¬u¢'}`âY2ó½”dÑ|Œx2Šµà ÒÜ¡–Yüå¨Î&›!Ü™dS/€,áâBýcü¥…Þr Å,‘Ç’ÊS^ d=q  ­×÷×ìÕéiÍ?Gzm  GèzànP\í¡ªp¢¨÷<Êf:\k5µD6X›QߣhvÁî!tvûgþkÀá(æXfgrl!g:M(»&ýZŠjÈ,Ûª#.Â{$ÔCè)^¤Júä%Á / FB%[g :$l 2–ýÛ¨²†§2d@×øŽ¹¤0«_¤Ãy^—–Q^À‚3¥Oxå\&Èr ÉÝTnb‚*|€œ?öŸç4`T @sJ°Ç ýªÓ9 vq™OÏz}¿E¶G:Þ9 Wp­µ, ?4•"šZ„¯.g­­T‰lÒF>¦8Éî¥-†”íÚgx…°"ø”Ú@-ÛjwÆ$I䉱'Ö[Ýeú®ñ¯Òk$ÑÀqv;‘ŽQz‰d&fØÄË é¡'¥G¾Ì%'ò™Î3 /äø“«4e+ËP+É]Y_,Er©íŽd6FÃÓïwzõÓïLX‰‡5…#ŠÑò'£»ˆ¬sÙÆJK—d  öåç«ëwÎÈD„DÙ‹,)!Z&w¦d—HKÎ(x-Ÿ¦d–Ç£K>2‘Öù²ôÛb°H½ãçóÌRˆ«Å'±ÇãTv¿¢)sCO¡3g"$- #D7ß}×øþ¾Â]ßÚÜü uÙ LÔ ˆ >Iü.] 4bºµ˜h6º`Ü“€é]wõ½þÁIï,PSñ•àOô¢MÒS’\(JŽÅT:Èkàv¢O„œÈBo­‚ ÁÒë_¡“ßD¯—|¡Ë0ÒØÐót;¯Wð ¬4›1€É½ÞÑé¿%ýÖ`„€cËÍ…ΖnD)X)c°ªŠ4LºŠ\Ȫ¦®×Y‘r3}!‹qÿ „qã“v€ÔU–_X@ãÆ¢&½ODÕHlV‰°xÊ´½¦/n5#Êò8ÅÓ/“W±à‚ôñ*Å´â‚ɬFYç!ƒÌòqkãDäH~øºPÂçØÚéy` iÂU?Ñ’9ËŠ4à s‰ô!ÚúK'h³ñüølçO“Ð4ˆ/³9ÊèONDúx“Èm`#{sQØ+nFn²À&[Âòpœ·¡®@Kfçš(Ú2 ůIXh—‚ŽýS¤@çc¿Ûíú§Cdéñe<ĨÕ3À9z±ÀL黢ϑ{‡È»àÐ#DwÃ("cM@ £Øè¦pU98ãáý0×C™m긅µPBô#X™- 7w ÉL¢ ñ´d‹àGgEÔó‰Rȶ×,…Ò' (¤k Ò¹š¤ä]*ºLfD˜°8žÅ9 Ô®ií?IRC$ZQˆ­~•$\aTëùW>]f‹·÷ŽO^ßw[G{>T€ã|÷÷Il££€B3¹_*ÞŸ#$^x•é.D“ ðb N4ɇÕPõ þ«õ§Ï77ÍŒNOÛ÷†YÑœ¶!¼ªÚlÎå‚쩵ø¬Êü$“SH{¸¼î‘øɼè4g•Ž”5/2Ä|ñÙÖtžeóáN’àB”)„hÄheÞD‡±90L˜FÝ;—a~EEhÚÀ1Ôæä„’È,È ³·Ø‰Ïý°ò˜ô:u•7ÆF,V³3óDbtÊ6 DÖZm½øJDkæfÖÍêz¤¯ŠùŠÉ£ŸmŽN+jäΈ0EéËÆGZÿÍÙ Në'3ñ°U0:”Ö‰vµ*-£M§(*Xp “+(å’ ”éxTm¬4†91ØÁ•r"8;ìX!`à<%-v^ ™Ö¥O¯â^¸ªÜ¸%°¶Me˜Ö:Ayý CÊ‚ XÑ«x4u°T:Q¸—ÀN=†M¯7‹QŽyÂ" ÁZ½xp»ó-Sµ‚&…¦)ð˜êº¾–˜™±ý”E)w‰¼á¬»æ¢‹koo·¾iyRrÑ¡Ag ý,øF`šË"˜8MóäÆíÐë€*jàŸ•Õ?ó+ “'²¿eùvªÅµzkµk¿sÖ9þ âÀbçà˜ß!?ŽB4’óÌlÐ¥Ô$%ï­Õ}@#ǾŸ92 ¹‚6D()E¦(#lJ’Žs!9uáŧ}94EÅK!j[”F“p‡7‰ýöH»‹–šSCÔåqöŸúÜHT<Öóù(?Ý~JǶÁÄá>ñ+´šúû ЦsõÌÛ¥Ø6CGÊy#–$¯¬Lˆ0&Ó"Û㳧˜FŒn-–œ‡p©‘^—¬zÙF×6£aÁoëU‡å!ûp4”Hj¿ˆt¿tºûg•{]êÈ.äZít,±uÎð-±á–lØÇÉ¡‘[¶„âÈATæ$Tpþ,71˜¹¢³óÝÝ“Þ±Ü/ÆÜW5 Àµz…ÚM¯^¡ÝªÅ2|wž ö"½jµ¥+@gBBÞ×^l4=° çHFþ‹Æ¦ q¸zE~·N‚œ[u¨4”´Ž÷;ÁËÄUÀߎ§Ì©á(ŒBl­ÆÄ®LW–ÓnÆûµšBWxŒCÆXŒ%p+èþwÐÝOGàÜCk}ØO¾Ú«B¼J› ¾ÚŒä*ÌYAOÈHy ˜ù¬Ó? ^wÏ0ÏYçH‰‰åÚ’,(ö‰". e5QEWóÉû\)X•>XTZ…­ìL”Ó™vtecBΤb6HØäÌKÛ´aá0CjØr2ÞáV¡˜t/Âb¤ÉüFÈh¯È„”4l¤Œ†-*ý˜yŽ‘ƒˆSØ÷dšS´:¤|᱉0¬fÿÕÎæ Æ •…10Xì½Ã± ³DüÜm‚YØÇaþ^9ï\Äl 4A DF„{×R·òÆ;¦r~€˜´$ädܪ”þl¿?0ò>=0²(3-­)UÑþ.bññ@3ºÈ‰ú‰T†HEgºI–€JÇf¬ôátó“vl“ÖÅÎØ\sÚ>O: Rgݪ/váîµ!µr• ¯êlr¡Y| ø”¥ÓëuŽÏZ‡î6öº/Ïv& ¹›Q|‰6´Éå¬b=±fd)Æ aqÝd_gû¹¤ŒD" éѸA2€žå†ºÄÑÚÀU5ßd Dr$ïÚ¨Q,èÙi†l¼0ÃD\¨ŽôÛfr{a† ­!_ûº% •ÃG‹6ù/Oq.ŸO¤ÝC¡{4Db¥u½±zº áè=-‹7Ó‰  å }k[‘ðÉCbⶵEš2 q¹ø‚‘}grFÊðç“kÜ‚/ÐÅ¥Ú„òZ½5¯×:Æts¨í¢ÌLÿY‹~M’Ýâíb½™¥Ó.”å?"PpßÝ‘éHw65½cH5Ī'¢—Á`ÛƒÅMfáô ~b­p¾ßþÿ K—~Õ¶DÛrg®àò¶Dz["³-‘µ-‘µ-Q1Þ f¥êí¼5¥ÌÅLÅÌm£QΩ!XzEò~Œ#ëARJQ™Æ•j0@ï¶Èy2ߢñ X´Û>qž{m™ðÅ·8ÍH1—çñz`bøQã\Åù0Yž¹dÓúˆdÝ Â}=ÿ¡½°_(žÆÅâjÅU2i·*¾ˆãÜ¢š*CWeU:Cźð!™ŒÜñqZJ÷S™¡ P+ÂŽÉnìfÖÁ­"»v[àf††X¶€èU¥«©œåS°êGÖÉ£½ºi'“µé›wqGX‹åÉ\£X­o.±8oz>Ÿ¤ù3»[~?‰gùÀ~_½sEÌâ ÃØWpå«éü†â@½¤îqçÉ¢»Ò>³Ð¯8O5…—F9Wl»7¼ÃhmáìïØÚ(Í K‹‰Ô¥8Ϋ†«0©]( _< Pùo‡y@8 bÏhtq-Ï·ˆºÍ»¡W,ž ø.§+ ¶V¾ ®(yŸ æšçí´ƒ—Ýà%‘ü¯ó.|ƒ4Úè%í>žôßØoNúO91~ÃY‹­c _hå]ãj6ê ~¶+]Mí'±Û/SZlj—Hj¿›ÏòB%–Êà‹‹XîÙ,$!q0…d…}Ò¦Zó˯4Ë÷$²àW€Çá¤Ð¥-ŸÁ×3´Œ§á*¤N¬Z"L‚Àf÷&\ÝüuþìÛÒâˆO¹]0Ì€dÂX+ôÓigØ—!‚ôKµw̨Š$í â›ÿ¥Âž‡4 ε!7ºyPè[Þ ;H!h”ßÒwkòy)'ƒÁˆÒÐïŸs¬HéJè7`ÀVÖuóÁ#9Kñ3JÖÜ=ftÀg‘…×ó+«©+´´ÑñJ¬@;„±–Ü–ùüBýÎQ"DåÔɵGSz§Å¶ :ϪÐh6f1ŽßË€³!›?E¥OÞ–“!p+gÄ0¾êÈòÀyÖþñ™ó[b˜wÝï¹ËÝvÛ|è½1¯í/&ÐáÏ\ï´Ý«ëx}kfˆEÜ$7<+J«_›ˆƒÄÔÌÝvi¬ÞÃÝK8”j¢Ô J§(ïL/Y…Ÿ²ì[ÖHÖG7be½CMŠ$r`êÅÊÀà T¬†Ñi–’³‘'püýÆ'dJî °ý|cÃchDìÁ} ¼îâjÔj ©³â‡3:lê«ÓF8D÷Áo,¢j:Å•‡b° õtrRùòhŽ7Få/8|U²šÒÝãöáù^G­l)R³å×Bÿ¿Å8±Åoqu•2[àyçgÝCèVhJ‡¢´¨N ›tH²=‰Ñ[FóŒüû-±‚2~²Ja¼Ÿöy¯¬¤N50cNK/>†ÊEp âè)¨‚#ˆ¸ªö#3¶,…šÊ~œ¤«(‚6:4³ä…ò®(‡Ùá‡þAçðp:¾íøÉd#‡•êŸvÚÝÖ¡ÄÙÚ©Š*­Z¡4LÜ+ö 6ÉÉãC1â(v:²Øríшr2·#X)ïýÇ(8C•/úÁÔuÜ€pr‹RFÂgùîa õ¿c"z:ëÉÇam;“ (ø¼ª,âƧ*„³CWyÞn¯>}?¬SU ¼ë”­Zßt›†žg}j"Àâ)¨IÔ³UÝø*ÙRM0e}æ­Œ?øvcˆÒsZ¶«_–°™i_OÄébRîC XML®¦oÍúüŸöé?ùªáÁ§î1 ßÃÃ`¯uÖú§úà?úNxöÏ Ê<^,& Ÿ…[3…`YŽZÇÿ´©*SžðÛøeÛó¦QÖt/–ü-gŸ^Ì¿õ–p†•p*du„$½UÑfUTLzë6ˆÌ*ÇÒî@ºÄ=~‘bé °z˜Çg?¬®sXúÑ‘*5‰ðÿƒ¯ª¨üM”'Ì‚-o¥±¡è6†îŸŸôŸÃ8§È·w•{´ÖêÕülžóÕPŒ]óèÅ·¯üÖQw¿µ¬}«·^ÿpwû†Ómê±ý¢ª¬¦©qÝdŸ±ÝdŽW2›-Ù6[÷½kk†‘¤È‰[‘(˜AÈzÁ¸€SFçM%má:ÒlkOÝ-ܾç..WÚB3†{mÞöý7¯Ôryí·KÛvÏJË7Lg6°ºWcx&0ª¯"îñœ¿y£rĈâ¯VÕ Ÿg|hVb‚{ FÍbѨÞìPÕƒ½[§ÁiËÇ•¾ÌžB=Õ•–ŽWŠÃãÿ®±aX¢w¥³ÚýLÝ:ôˆ.n"íŠë·øËD}ú‘Óª¢Q˜]Š8‘XüªÈ]EÌ5V©~sùFÈf™wì³{ÙÅå GV æ^ÇõÙ}k¡Õò©{V8ª÷ª°ü˜º[¥®/Ü)¯ŠJ5šÒŠëvk;è´z=ÌïçÞÁ–ž•’R$åù8¿¢H¢*póÂì<˜Kž–ob3R f{²*-©CÉ[MœòÌ#å©Güóô*Ü8鿼÷p¡éÝC'¿.mÔ©SªŠ¾¨"˜[ІÓý”QaÝ«ˆ«gÏŠë/cÕuïª)g”M{?a¨¤YX2VÊà,¦©Q=¹I¡»ÇFFÂCŤɖ1 ¹=dÖƒ,ôrËÕü"£Ùd¦YKåb0I'õQÙkÎ k¬­MÃy[ù_5ÒuøÏþ+S¨aŽFÿü%°Ó~Ó‡oȪÊ3àeh¥âÑ„_§§ê˜R4s<—’Sˆ¹GJë,ƒ²Vn„&?îj¿­×óÔ¤†ºMÙõ´¨©Æ’NǞŇÛW¶eb½¬Pϳ¬³X¨¬v¤ªVñ²zß|[¦è,ôZRþ?•UÄ¥6–i7+»+«—‹‰Y\çJÂ"ˆ?ðšSY½Û§¥k^jª×í·Oú”ý£¶¼¡Ò¾”Ú:?nO»/Û:‚¦fUCb*ሧD:ãJ§FáîõúÇꂲ&’–d]÷A}4.Ë4>gG åeVºÐï9†ÂO¨Óîï+úks‡x¥Øðg\†’œ…-^K`ãä.0y] C¨Çû4è¡lпx¬r¯18-Ùå{@×çÈrpëõÉžMÓŸwÊò`)ÕúÙ»uˆ4=³ Úßf‚KV¸LSÿîC í_:‚_ŠÕ>#ðеü[ž¼"†“¥p4„Ú¬ü>*f¼º9gÚ$Œcö@º¢qÏ3ãp4¶…û½tܶ²báHL³ ú¢¥Ð»QX˸þ®ùš ]Ø‚d÷Õ@[ôöê‰É¾ñ„öŽn0þ' ‰N2yo"œðµõ–öÇ@£÷ØPýé¿hÜãPíŽnÆY¤…Ê:À™ðøŸüoO2¢7]3ŒÊPlŠîÊ*T4ý‰äѲ†>;ù³¸³;È©¸xüw¶ˆ"jŽ”'lÙÀå¥K©^búÖ'?p4»H1{1š€Þ¦ó̘«aØå,}O¾¿é|Œm=«‘½;Ën¥¥5f¡ó‰NóÆc5«øB#M dϲªQÖQ6}ÿ°Y=̆¦wÉÚ%ÍUeN Š¶„ˆBüpýWìY6}MO·ÝtW]ƒ½õ•coj/JÑÕ|1\°RÁ¤®ÙêâVðÄ"ƒéjŒÅ+hy\¬¢¶Ù˜…¶É^]Ö´S…±|•Gw ÜlÀÔÈòµ_:8_”]ŸÁüŒZÞ5d,ïHñPÏý†ó®±Q\»‡ùƒ¿1O7xfu2>òV0E{ôáUÖøÚGŠ¾b¹w4hUD½•á?’ié%Lï7E¢âŠÚ£Ó#yã벎Õõ‚jÞå(No›¦ óñxà‡M‚~÷I]ºæ­¶F,¼0%YCKB}ÀR`äA=ÈþZ4°¾™Øý›—~½†ÍFéôÖ¯ÏÆ«ÌÆ =|¤‘>±gÀÅ*JY>¥âU­*¢ãIÕŠTVSëñ¤°ZK ;Ý”VAÜYQ9mÿjúj Q0hy¡Š ÿaÊà©ï€¤ ‹¦k¸…1^÷ø¬ºìb<Ìâ©_ÿà¯êÄT*Z€É& )?†i6ûß$³ý#†„Cµù-z׌>²¯úÉcì¿3nj7µŠ8y÷ì°)ññ”%Ãb§±2ØÇ'gݸ:¬t»g*Äd:–tÙ’À•k˜Ç rêµvû{Ýž¿ã¿›^Þy­@iM¨B­‡¨þÅàwÏúVR€ºúhƒ–ôy@õŒZá%Ýk¥qåt·N+ž¹²é¾!oƒZ÷­¨Çœ}‡V àdh»øbªO9ê æR¤ —<õÑH%*è+V¯°’pv{‡‡(Qtj+KjÙÓ½4­·ÒþV–Ý2û¦~¬rκ¸ŠÝçõ: Ø<›MÅwöÛ¸fçŽÖPLÄDq™<¤0vìšS!ÃX¿éxy€mœ}ˆ^ ”SßÞ ëÅú[ß ËýϾ÷)¹aä’|s#Àÿ ý?ùQ[?ø€¾§Bp×ÁoùÀ¯0’çaøªßfD4šOѾüý»þ £o7;®}Ž>6áïųgðïÓ[϶éy‹žéïùöæÓ?lÁ¿ÏŸo>Ý~ñü›[Ï7·žþÁßüßõ‡il2ßÿÃÕE_—•ƒ;î÷ÐïûW0å1‘欈ëG z%¤EÈ L>‘”,‰qã@…ÛÁhY)‹/úã3dœßbích)¹:!ï±IJîÙ;[¨§ã‘†¶}Í„æXWì9jðâAB‡wôSÐ>=ßyóí ÿ}´Æ/jÞ( þ§ÉŒ3ÅA¯?âå\ül"æÀo38jþÐjixP‘sè½Rž#¸°Š ¿M x0.ð`âèÀƒv. vô(M4,£Í¿àÁ8bÀƒñ¿€eP©[º¡ß… 6?k4ºP@†ø[ ·”°ŒÚÏkP?ä EH D´‰ô‹œðèׇ0ƒõ®Úí²(r}/|´×•›ôŒIŠr6òGOàÚÚx™Â¿4ö†Ìñ7“5è­}zZ5k(Ž§Ô[&à``ê¼¼Nã­ñ~ªøâHyk;{YÅŠÑPì þbN·âcZ”³ tͶêL.ü£Vû {Üi&¨OÙHç³&—ÓŘ*M³dˆ gßïï½â¤$P È)+Ky 0kÊ禽‡+.¡kr?JìÕS[ÑÛÜŠÔŽQüè ý°šQzy mRtðÁŽÂ4¿Oc¢Å\‚ !SNÂú«ûçÝÕŠø]‰ˆâò] ΤqœEC\OGéÐ/.§“W-kKÎ"9 %ËÊæŽÁi¡Ë¼ @-ͦy9G¢×šÙ؆á< ¯“]Msk{kó›§@Ãf=²Þf©J2kfÉõ²Ô'†1iÀ+ /°ºö­0÷‚¶ó7ч²vp4Bö7NÎÏš…JõU4Nû£sðC€ãk+Ó['ìÒ[v©08/L#Z^v%#4“)œ’aJ†âT ÎqG¦¤-~J‡Ñ»²a[l¸kx"–AE”Z £Š2KVµ|~qíeï!”a&;2û¶øi¬ñű!B{MØxS%ŸãH³BB"ã¾cJ®cŽ[·ôÞ·ë1¯›k3I¤M g'ßw6Ö2/|Ne.ç:¹ßh²,‰töŒu .±¶MbÀD™DPxy>›Z±…^#âO£'Ͼá›f"¸K—÷³=·ÿŠÝ÷¾0—_þ¾ü}ùûò÷åïËß—¿/_þ¾üÝûïÿñú$£`,stalin-0.11/README0000600017435200151030000005126410510300305012244 0ustar qobiqobi Stalin - a STAtic Language ImplementatioN Finally, a Lisp compiler that does what it should... Jeffrey Mark Siskind School of Electrical and Computer Engineering Purdue University Electrical Engineering Building, Room 330 465 Northwestern Avenue West Lafayette IN 47907-2035 USA voice: 765/496-3197 fax: 765/494-6440 qobi@purdue.edu http://www.ece.purdue.edu/~qobi Monday 2 October 2006 INTRODUCTION This is release 0.11 of Stalin, a global optimizing compiler for Scheme. It is an alpha release and contains many known bugs. Not everything is fully implemented. This is the first self-hosting release. Stalin can now compile itself. Unlike previous releases, this release does not require you to have Scheme->C. And it does not require you to install Infrastructure or QobiScheme. Stalin is an extremely efficient compiler for Scheme. It is designed to be used not as a development tool but rather as a means to generate efficient executable images either for application delivery or for production research runs. In contrast to traditional Scheme implementations, Stalin is a batch-mode compiler. There is no interactive READ-EVAL-PRINT loop. Stalin compiles a single Scheme source file into an executable image (indirectly via C). Running that image has equivalent semantics to loading the Scheme source file into a virgin Scheme interpreter and then terminating its execution. The chief limitation is that it is not possible to LOAD or EVAL new expressions or procedure definitions into a running program after compilation. In return for this limitation, Stalin does substantial global compile-time analysis of the source program under this closed-world assumption and produces executable images that are small, stand-alone, and fast. Stalin incorporates numerous strategies for generating efficient code. Among them, Stalin does global static type analysis using a soft type system that supports recursive union types. Stalin can determine a narrow or even monomorphic type for each source code expression in arbitrary Scheme programs with no type declarations. This allows Stalin to reduce, or often eliminate, run-time type checking and dispatching. Stalin also does low-level representation selection on a per-expression basis. This allows the use of unboxed base machine data representations for all monomorphic types resulting in extremely high-performance numeric code. Stalin also does global static life-time analysis for all allocated data. This allows much temporary allocated storage to be reclaimed without garbage collection. Finally, Stalin has very efficient strategies for compiling closures. Together, these compilation techniques synergistically yield efficient object code. Furthermore, the executable images created by Stalin do not contain (user-defined or library) procedures that aren't called, variables and parameters that aren't used, and expressions that cannot be reached. This encourages a programming style whereby one creates and uses very general library procedures without fear that executable images will suffer from code bloat. IMPORTANT NOTE Contrary to any other indication in the documentation, this release does not run on DEC/Alpha under Linux due to limitations of gcc (it is not able to compile the file stalin-Alpha.c because it has too many global variables). It is possible to run Stalin under Linux on DEC/Alpha when it is compiled with Scheme->C (rather than self compiled) but I am not currently distributing that version. Contact me if you need to run Stalin under Alpha Linux and I will send you the Scheme->C version. It might be possible to compile stalin-Alpha.c with the DEC C compiler under Digital Unix. I do not have access to this environment to try this. If anybody else does, I would appreciate any feedback as to whether this works. DEVIATIONS Stalin nominally accepts the language defined by The Revised^4 Report on the Algorithmic Language Scheme (R4RS). The language accepted by Stalin is known to deviate from R4RS in a number of ways as described below. (If you discover additional differences, please send mail to Big-Stalin@AI.MIT.EDU.) Many of these simply are features that are not (yet) implemented though I make no commitment to fully comply with R4RS and reserve the right to deviate from R4RS for any reason whatsoever, particularly performance. 1. Unimplemented syntax: 4.2.6 Nested quasiquotation is not supported. appendix Macros 2. Unimplemented procedures: 6.5.5 NUMERATOR DENOMINATOR RATIONALIZE MAKE-RECTANGULAR MAKE-POLAR REAL-PART IMAG-PART MAGNITUDE ANGLE 6.10.4 LOAD TRANSCRIPT-ON TRANSCRIPT-OFF 3. (1.1) Tail recursion optimization is done only on self calls. 4. (6.5) The following numeric data types are not supported: a. bignums: exact integers of arbitrary magnitude Furthermore, exact integer arithmetic can overflow without signaling an error and without yielding an inexact floating point number. b. ratios: exact non-integer rationals c. polar format complex numbers d. exact rectangular format complex numbers 5. It is not possible to access all of the underlying C scalar types. (This is not an incompatibility with R4RS but nonetheless important for other reasons.) a. No independent control over the float/double distinction. b. No long/short chars/ints/floats/doubles c. No unsigned chars/ints 6. (1.3.1) No R4RS compliance mode is provided. 7. Limitations of (6.5.6) STRING->NUMBER, (6.10.2) READ, and the source program: a. Can't parse largest negative number. b. Can't parse polar numbers with @. c. Can't parse rectangular numbers with i. d. Can't parse ratios with /. e. Can't parse numbers with embedded #. f. Can't parse exactness with #E and #I. g. Can't parse inexact numbers with mantissas where the digit string before the decimal point would overflow if read as an exact number, h. On Intel, SPARC, and SGI, the source program can't contain exact integer constants <-536870912 or >536870911. On Intel and SPARC, the compiler will generate incorrect C code without warning. On SGI, the compiler might signal an exception or might generate incorrect C code without warning. On Alpha, the source program can't contain exact integer constants <-2305843009213693952 or >2305843009213693951. The compiler will generate incorrect C code without warning. 8. (6.5.6) STRING->NUMBER doesn't accept the optional radix argument. 9. APPLY and CALL-WITH-CURRENT-CONTINUATION don't accept continuations or foreign procedures as their first argument. 10. (6.2) EQV? might return #T when given two procedures that can never be called. (BEGIN (DEFINE (F X) (LAMBDA () X)) (EQV? (F 1) (F 2))) ==> #T EQV? might return #T when given two fictitious pairs or degenerate vectors. (EQV? (CONS #T #T) (CONS #T #T)) ==> #T (EQV? (VECTOR #T) (VECTOR #T)) ==> #T 11. (6.5.5) =, <, >, <=, >= might not be transitive. 12. (6.5.6) STRING->NUMBER, READ, DISPLAY, and WRITE don't obey write/read invariance for inexact numbers. 13. (APPLY (LAMBDA X X) y) ==> y without checking that y is a list and without copying y. Furthermore, because of the way LIST is defined, (APPLY LIST X) doesn't copy X. 14. (6.10.1) Closing a port that has already been closed yields undefined behaviour rather than having no effect. EXTENSIONS Stalin extends R4RS in a number of ways: 1. New syntax: PRIMITIVE-PROCEDURE and FOREIGN-PROCEDURE. 2. New procedures: LIST-LENGTH, SUBLIST, SUB, LIST-APPEND, LIST-REVERSE, REF, LIST-SET!, REF!, LIST-FILL!, FILL!, LIST-COPY, STRING->UNINTERNED-SYMBOL, STRING-REVERSE, <<, >>, BITWISE-NOT, BITWISE-AND, BITWISE-OR, MAKE-DISPLACED-VECTOR, SUBVECTOR, VECTOR-APPEND, VECTOR-REVERSE, VECTOR-COPY, PANIC, POINTER?, INTEGER->STRING, INTEGER->INPUT-PORT, INTEGER->OUTPUT-PORT, and INTEGER->POINTER. 3. New data type: pointer. ZERO? can be used to check for null pointers (as well as null strings and null ports). INTEGER->POINTER can be used to convert an integer address to a pointer. INTEGER->STRING, INTEGER->INPUT-PORT, and INTEGER->OUTPUT-PORT can be used to convert an integer address to a string, input port, or output-port, respectively. 4. New variable: ARGV is bound to a vector of strings containing the command line arguments. 5. If the last expression executed by the program evaluates to an integer, then its value is returned as the status code of the program. Otherwise, the status code zero is returned. 6. Vectors are self evaluating. 7. DO iterator list can be empty. 8. Bodies can be empty. 9. The commands of DO and the expressions of COND, CASE, BEGIN, and DO are considered bodies. 10. Bodies can have definitions intermixed with expressions. 11. Definitions are executed in order and can reference variables defined by previous definitions. 12. Any body with just definitions treated like BEGIN. 13. Binding can be just a variable in LET, LET*, and LETREC. 14. DEFINE can take a single argument. 15. (EQV? "" "") ==> #T (EQV? #() #()) ==> #T 16. The procedures LENGTH, APPEND, REVERSE, and COPY are generic. 17. EOF objects, input ports, and output ports are disjoint from each other and all other data types. 18. All EOF objects are EQ?. A future version of this document will describe all of the above extensions in greater detail. INSTALLATION The Stalin compiler is written in Scheme and can compile itself. (While I have run Stalin under other Scheme implementations such as Scheme->C, SCM, and Gambit-C, this requires some modification of the Stalin source code.) To compile and use Stalin, you must have a C compiler installed. To install Stalin, do: % uncompress stalin-0.11.tar.Z % tar xf stalin-0.11.tar % cd stalin-0.11 % ./build To test Stalin, do: % cd benchmarks % ./compile-and-run-stalin-benchmarks which will compile and run some sample programs including the Gabriel benchmarks. If you wish to compare the performance of Stalin against Scheme->C, Gambit-C, Bigloo, and Chez (assuming that you have these systems installed) you can do: % ./benchmark This will compile all of the example with each of the Scheme compilers, run each example three times, and automatically produce a file `results.tex' with absolute CPU times for each benchmark and compiler as well as ratios of the CPU times used by Stalin vs. the other compilers. You might wish to put the executable `stalin' in your standard directory of executables. You might also wish to put the man page `stalin.man' in your standard directory of man pages. And you might wish to copy the directory `include' to `/usr/local/stalin/include'. If you do the latter then you need not specify the -I option when using Stalin. Stalin comes with an experimental Emacs interface. To use this interface you first need to compile the program pp.sc. This program must be compiled with Scheme->C (which is not included in the Stalin distribution). Compile this program with the following commands: % scc -o pp pp.sc % rm pp.c and then put `pp' in your path. The Emacs interface is in the file `stalin.el'. Read the instructions at the beginning of that file for an explanation of how to use that interface. Stalin also comes with an experimental FPI to OpenGL. This interface assumes that you have the files `GL/gl.h', `GL/glu.h', and `GL/glut.h' in your C compiler include path. To install this interface, do: % ./build-gl-fpi Please note that the OpenGL interface requires Mark Kilgard's GLUT which doesn't come with OpenGL by default. GLUT can be obtained from: http://reality.sgi.com/mjk_asd/glut3/glut3.html Since Stalin is now self-hosting, this distribution comes with pre-generated C code. The initial installation is done simply by compiling this C code. Since the C code generated by Stalin varies depending on architectural parameters, this distribution comes with two pre-generated versions: the file `stalin-32.c' for 32-bit architectures and the file `stalin-Alpha.c' for the DEC/Alpha. The `build' script automatically determines the architecture that it is running on and copies the appropriate file to `stalin.c' and then compiles this file. If you wish to rebuild Stalin from the Scheme sources (given a running Stalin compiler), you can touch or modify the file `stalin.sc' and then do: % make which will first generate `stalin.c' from `stalin.sc' and then generate `stalin' from `stalin.c'. This will automatically make a version that is appropriate for the architecture that you are running on. If you wish to cross-generate C code for a different architecture, then do either: % make stalin-32.c or: % make stalin-Alpha.c USAGE See the man page for how to invoke Stalin. The Stalin distribution comes with a number of examples in the benchmarks directory. The first example is a simple "Hello World" program in the file `hello.sc'. To compile and run it do: % ./make-hello % ./hello The second example is a version of the "Hello World" program that uses Xlib in the file `xhello.sc'. To compile and run it, first set your DISPLAY environment variable appropriately and then do: % ./make-xhello % ./xhello then click on the window to exit. The third example illustrates how to use the application framework that is included in QobiScheme. It is in the file `define-application-example.sc'. To compile and run it, first set your DISPLAY environment variable appropriately and then do: % ./make-define-application-example % ./define-application-example This program illustrates simple buttons ("Quit"), on/off buttons ("Flag"), radio buttons ("Line" and "Ellipse"), mode buttons ("A/B/C"), increment/decrement buttons ("-K" and "+K"), keystroke accelerators (c-X c-C and c-H), the builtin help facility, the type-in buffer with a few Emacs-like key bindings, mouse-clickable regions, and rubber-banding (click on the display pane to draw lines and ellipses). FOREIGN PROCEDURE INTERFACE Stalin has a rudimentary foreign procedure interface. The syntax (FOREIGN-PROCEDURE ( ...) ) returns a procedure. must be one of CHAR, SIGNED-CHAR, UNSIGNED-CHAR, SHORT, UNSIGNED-SHORT, INT, UNSIGNED, LONG, UNSIGNED-LONG, FLOAT, DOUBLE, LONG-DOUBLE, CHAR*, FILE*, or VOID*. must be one of CHAR, SIGNED-CHAR, UNSIGNED-CHAR, SHORT, UNSIGNED-SHORT, INT, UNSIGNED, LONG, UNSIGNED-LONG, FLOAT, DOUBLE, LONG-DOUBLE, CHAR*, INPUT-PORT, OUTPUT-PORT, VOID*, VOID, or NO-RETURN. must be a string that names the entry point. Calling that procedure calls the named entry point. Foreign procedure are first-class objects and can be passed as arguments to Scheme procedures, returned as results, and stored in and accessed from variables, pairs, vectors, and structures. PROCEDURE? returns #T when given a foreign procedure as its argument. C Scheme ------------------------------------------------------- CHAR char character SIGNED-CHAR signed char character UNSIGNED-CHAR unsigned char character SHORT short exact integer UNSIGNED-SHORT unsigned short exact integer INT int exact integer UNSIGNED unsigned exact integer LONG long exact integer UNSIGNED-LONG unsigned long exact integer FLOAT float inexact real DOUBLE double inexact real LONG-DOUBLE long double inexact real CHAR* char* string FILE* FILE* input port or output port INPUT-PORT FILE* input port OUTPUT-PORT FILE* output port VOID void unspecified NO-RETURN void unspecified VOID* void* pointer When a foreign procedure is created, the entry point must take the given number of types and have its argument and return types declared to correspond to the above mapping from to C. A foreign procedure must be called with the correct number of arguments of the correct types as specified by the above mapping from to Scheme. No automatic type conversion is done on entry to or exit from the foreign procedure. If -Ot is not specified, a run time error will be generated if a foreign procedure is called with the wrong number of arguments or arguments of the wrong type. Such type checking is eliminated if the compiler can prove that it is redundant or if the -Ot option is specified. The foreign procedure returns a Scheme value of the type specified by the above mapping from to Scheme unless the is VOID or NO-RETURN. If the is VOID, the returned value is unspecified. If the is NO-RETURN then the procedure doesn't return. As an example, the expression ((FOREIGN-PROCEDURE (CHAR*) INT "atoi") (VECTOR-REF ARGV 1)) parses the first command line argument into an exact integer. Stalin introduces a new object type called `pointer'. Pointers are first class objects and can be passed as arguments to Scheme procedures, returned as results, and stored in and accessed from variables, pairs, vectors, and structures. Pointers are disjoint from all other Scheme types. The only primitive procedures that are defined on pointers, however, are POINTER? and ZERO?. POINTER? takes a single argument. It returns #T if that argument is a pointer and #F otherwise. If ZERO? is given a pointer as its argument it returns #T if the pointer is NULL and #F otherwise. Pointers, however, can be passed into and out of foreign procedures as values of the C type void*. ZERO? can also be given a string or a port as its argument. It returns #T if the string or port is NULL and #F otherwise. Note that null strings are distinct from empty strings. Null strings and ports are never created by ordinary Scheme procedures. They can only be created by foreign procedures and the Scheme procedures INTEGER->STRING, INTEGER->INPUT-PORT, and INTEGER->OUTPUT-PORT. A foreign procedure invocation should not access a CHAR* or FILE* value that was passed as an argument to a different invocation of the same or different foreign procedure as that value might have been reclaimed in the interim. PORTABILITY Stalin should run under Solaris 1 and 2 on Sun/SPARCs (in 32-bit mode), IRIX 4, 5, and 6 on SGI/MIPs (in 32-bit mode), Linux on Intel/x86s (both with libc5 and glibc) and DEC/Alphas, and OSF/1 V3 and V4 on DEC/Alphas though it has only been extensively tested on Linux on Intel/x86s and DEC/Alphas. FUTURE PLANS Stalin currently provides only a minimal set of features, coinciding mostly with those specified in R4RS. Future plans include several language extensions: macros, displaced strings, an object system with inheritance and generic procedures, weak pointers and finalization, hash tables, a condition system, a module system, separate compilation, and a debugger. Additional compile-time optimizations are planned, as well improving the speed of the compiler. COMMUNICATION Bug mail should be addressed to Bug-Stalin@AI.MIT.EDU and not to me personally. Please include the version number (0.11) in the message. Periodic announcements of bug fixes, enhancements, and new releases will be made to Info-Stalin@AI.MIT.EDU. Send mail to Info-Stalin-Request@AI.MIT.EDU to be added to the Info-Stalin@AI.MIT.EDU mailing list. HOW TO OBTAIN The current release of Stalin is available by anonymous FTP from ftp://ftp.ecn.nec.com/qobi/stalin.tar.Z. ACKNOWLEDGEMENTS Rob Browning , Jeffrey B. Siegal , Bengt Kleberg , and Sven Hartrumpf contributed portions of the code and documentation. CONDITIONS This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. stalin-0.11/lenin.sc0000600017435200151030000000556610464416401013041 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; Stalin 0.11 - A global optimizing compiler for Scheme ;;; Copyright 1993, 1994, and 1995 University of Toronto. All rights reserved. ;;; Copyright 1996 Technion. All rights reserved. ;;; Copyright 1996 and 1997 University of Vermont. All rights reserved. ;;; Copyright 1997, 1998, 1999, 2000, and 2001 NEC Research Institute, Inc. All ;;; rights reserved. ;;; Copyright 2002, 2003, 2004, 2005, and 2006 Purdue University. All rights ;;; reserved. ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License ;;; as published by the Free Software Foundation; either version 2 ;;; of the License, or (at your option) any later version. ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;;; written by: ;;; Jeffrey Mark Siskind ;;; School of Electrical and Computer Engineering ;;; Purdue University ;;; Electrical Engineering Building, Room 330 ;;; 465 Northwestern Avenue ;;; West Lafayette IN 47907-2035 USA ;;; voice: 765/496-3197 ;;; fax: 765/494-6440 ;;; qobi@purdue.edu ;;; http://www.ece.purdue.edu/~qobi (include "QobiScheme") ;;; GENSYM (define (gensym string) (string->uninterned-symbol (string-copy string))) (define (no-cursor) #f) (define (no-version) #f) (define (notify format-string . args) ;; conventions: FORMAT-STRING ARGS (let ((string (apply format #f format-string args))) (display string) (newline))) (define (split-into-lines s) ;; conventions: S (let loop ((characters (string->list s)) (lines '(""))) ;; conventions: CHARACTERS LINES (cond ((null? characters) (reverse lines)) ((char=? (first characters) #\newline) (loop (rest characters) (cons "" lines))) (else (loop (rest characters) (cons (string-append (first lines) (string (first characters))) (rest lines))))))) (define (notify-pp format-string . args) ;; conventions: FORMAT-STRING ARGS (let ((pretty? (write-pretty))) ;; conventions: PRETTY? (set-write-pretty! #t) (apply format #t format-string args) (set-write-pretty! pretty?)) (newline)) (define (notify-pp3 format-string . args) ;; conventions: FORMAT-STRING ARGS (let ((level (write-level)) (pretty? (write-pretty))) ;; conventions: LEVEL PRETTY? (set-write-level! 3) (set-write-pretty! #t) (apply format #t format-string args) (set-write-level! level) (set-write-pretty! pretty?)) (newline)) (define (terminate) (exit -1)) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/make-clean0000700017435200151030000000036010464432111013305 0ustar qobiqobi#!/bin/sh rm -rf include/gc.h rm -rf include/gc_config_macros.h.h rm -rf include/Tmk.h rm -rf include/libgc.a rm -rf include/libstalin.a rm -rf include/libTmk.a rm -rf include/stalin rm -rf stalin.c rm -rf stalin cd benchmarks ./make-clean stalin-0.11/make-single-file0000700017435200151030000000162210464434512014432 0ustar qobiqobi#!/bin/tcsh -f scc -o remove-extra-blank-lines remove-extra-blank-lines.sc rm -f remove-extra-blank-lines.c rm -f stalin.sc last-line.sc trotsky.sed cat <trotsky.sed \+;;; Begin delete for Trotsky+,\+;;; End delete for Trotsky+d \+;;; Tam V'Nishlam Shevah L'El Borei Olam+,\+;;; http://www.ece.purdue.edu/~qobi+d s/\\\\+\./+\./g s/\\\\-\./-\./g eof cat <last-line.sc ;;; Tam V'Nishlam Shevah L'El Borei Olam eof cat lenin.sc\ source/stalin1.sc\ source/stalin2.sc\ source/stalin3a.sc\ source/stalin3b.sc\ source/stalin4a.sc\ source/stalin4b.sc\ source/stalin4c.sc\ source/stalin4d.sc\ source/stalin5a.sc\ source/stalin5b.sc\ source/stalin5c.sc\ source/stalin5d.sc\ source/stalin5e.sc\ source/stalin.sc\ |sed -f trotsky.sed|cat - last-line.sc\ |remove-extra-blank-lines >stalin.sc rm -f last-line.sc trotsky.sed remove-extra-blank-lines stalin-0.11/makefile0000600017435200151030000000466110466512032013077 0ustar qobiqobiCC = gcc OPTIONS = -d1 -d5 -d6 -On -t -c -db\ -clone-size-limit 4 -split-even-if-no-widening\ -do-not-align-strings\ -treat-all-symbols-as-external\ -do-not-index-constant-structure-types-by-expression\ -do-not-index-allocated-structure-types-by-expression # Stalin can be compiled with -freg-struct-return on most platforms. But gcc # and egcs have a bug on Linux/Alpha that causes them to crash when given # -freg-struct-return. ARCH_OPTS is set up apprpriately by ./build to handle # this. stalin: stalin.c $(CC) -o stalin -I./include -O3 -fomit-frame-pointer\ -fno-strict-aliasing ${ARCH_OPTS}\ stalin.c -L./include -lm -lgc ./post-make stalin-architecture: stalin-architecture.c $(CC) -o stalin-architecture stalin-architecture.c stalin.c: stalin.sc ./stalin $(OPTIONS) stalin stalin-IA32.c: stalin.sc ./stalin $(OPTIONS) -architecture IA32 stalin mv -f stalin.c stalin-IA32.c stalin-IA32-align-double.c: stalin.sc ./stalin $(OPTIONS) -architecture IA32-align-double stalin mv -f stalin.c stalin-IA32-align-double.c stalin-SPARC.c: stalin.sc ./stalin $(OPTIONS) -architecture SPARC stalin mv -f stalin.c stalin-SPARC.c stalin-SPARCv9.c: stalin.sc ./stalin $(OPTIONS) -architecture SPARCv9 stalin mv -f stalin.c stalin-SPARCv9.c stalin-SPARC64.c: stalin.sc ./stalin $(OPTIONS) -architecture SPARC64 stalin mv -f stalin.c stalin-SPARC64.c stalin-MIPS.c: stalin.sc ./stalin $(OPTIONS) -architecture MIPS stalin mv -f stalin.c stalin-MIPS.c stalin-Alpha.c: stalin.sc ./stalin $(OPTIONS) -architecture Alpha stalin mv -f stalin.c stalin-Alpha.c stalin-ARM.c: stalin.sc ./stalin $(OPTIONS) -architecture ARM stalin mv -f stalin.c stalin-ARM.c stalin-M68K.c: stalin.sc ./stalin $(OPTIONS) -architecture M68K stalin mv -f stalin.c stalin-M68K.c stalin-PowerPC.c: stalin.sc ./stalin $(OPTIONS) -architecture PowerPC stalin mv -f stalin.c stalin-PowerPC.c stalin-S390.c: stalin.sc ./stalin $(OPTIONS) -architecture S390 stalin mv -f stalin.c stalin-S390.c stalin-PowerPC64.c: stalin.sc ./stalin $(OPTIONS) -architecture PowerPC64 stalin mv -f stalin.c stalin-PowerPC64.c # Should ./include/stalin, ./stalin.c, and ./stalin only be deleted in a # "distclean" target? clean: rm -f ./include/gc.h rm -f ./include/gc_config_macros.h rm -f ./include/libgc.a rm -f ./include/libstalin.a rm -f ./include/libTmk.a rm -f ./include/stalin rm -f ./stalin.c rm -f ./stalin stalin-0.11/native.sed0000600017435200151030000000012210464433700013350 0ustar qobiqobis/(module olib-stalin/(module stalin/g s/(include "olib-stalin/(include "stalin/g stalin-0.11/post-make0000700017435200151030000000023010464521065013213 0ustar qobiqobi#!/bin/sh lib=`pwd`/include mv stalin $lib (echo "#!/bin/sh"; echo "exec $lib/stalin -I $lib -copt -fno-strict-aliasing "'$@') >stalin chmod a+x stalin stalin-0.11/stalin-IA32.c0000600017435200151030012274420410470564533013512 0ustar qobiqobi#include #include #include #include #include #include #include #include #include #ifdef __GNUC__ #define NORETURN __attribute__ ((noreturn)) #else #define NORETURN #endif #define ALIGN(p) if (((unsigned)p)%4!=0) p += 4-(((unsigned)p)%4) #define IMIN(x,y) (xy?x:y) #define RMIN(x,y) (xy?x:y) struct rectangular {float r; float i;}; int c; void stalin_panic(char *message) NORETURN; void stalin_panic(char *message) {fprintf(stderr, "%s\n", message); exit(-1);} void backtrace(char *file_name, unsigned int line_number, unsigned int character_number); void backtrace(char *file_name, unsigned int line_number, unsigned int character_number) {fprintf(stderr, "\n%s:%d:%d:", file_name, line_number, character_number);} void backtrace_internal(char *name); void backtrace_internal(char *name) {fprintf(stderr, "\nIn %s\n", name);} int ipow(int x, int y); int ipow(int x, int y) {int i, r = 1; for (i = 0; iVECTOR* */ struct structure_type24753 *a789; /* *PRIMITIVE-PROCEDURE-HANDLERS* */ unsigned a835; /* *LI* */ int a839; /* *STATEMENTS-PER-CONSTANT-INITIALIZATION-PROCEDURE* */ unsigned a860; /* *TI* */ struct structure_type24753 *a875; /* *WARNINGS* */ struct structure_type24753 *a876; /* *ERRORS-USED* */ struct structure_type24753 *a877; /* *ERRORS* */ struct structure_type27501 *a1194; /* *DISCARD* */ struct structure_type24753 *a1195; /* *OUTSIDE-BODY* */ struct structure_type24753 *a1196; /* *INSIDE-MAIN* */ struct structure_type24753 *a1197; /* *OUTSIDE-MAIN* */ struct w49 a1198; /* *SYMBOLS* */ struct w49 a1199; /* *STRINGS* */ struct structure_type24753 *a1200; /* *USS* */ unsigned a1201; /* *SQUISHED-SIZE?* */ unsigned a1202; /* *TAG-SIZE?* */ unsigned a1203; /* *LENGTH-SIZE?* */ unsigned a1204; /* *JMPBUF*-SIZE?* */ unsigned a1205; /* *FILE*-SIZE?* */ unsigned a1206; /* *CHAR*-SIZE?* */ unsigned a1207; /* *VOID*-SIZE?* */ unsigned a1208; /* *RECTANGULAR-SIZE?* */ unsigned a1209; /* *FLONUM-SIZE?* */ unsigned a1210; /* *FIXNUM-SIZE?* */ unsigned a1211; /* *CHAR-SIZE?* */ unsigned a1212; /* *JMPBUF-ALIGNMENT?* */ unsigned a1213; /* *FILE-ALIGNMENT?* */ unsigned a1214; /* *SQUISHED-ALIGNMENT?* */ unsigned a1215; /* *TAG-ALIGNMENT?* */ unsigned a1216; /* *LENGTH-ALIGNMENT?* */ unsigned a1217; /* *JMPBUF*-ALIGNMENT?* */ unsigned a1218; /* *FILE*-ALIGNMENT?* */ unsigned a1219; /* *CHAR*-ALIGNMENT?* */ unsigned a1220; /* *VOID*-ALIGNMENT?* */ unsigned a1221; /* *RECTANGULAR-ALIGNMENT?* */ unsigned a1222; /* *FLONUM-ALIGNMENT?* */ unsigned a1223; /* *FIXNUM-ALIGNMENT?* */ unsigned a1224; /* *CHAR-ALIGNMENT?* */ struct w29434 a1225; /* *ALLOCATION-ALIGNMENT* */ struct w49 a1226; /* *WORST-ALIGNMENT* */ struct w49 a1227; /* *INCLUDE-MALLOC-FOR-ALLOCA?* */ struct w49 a1228; /* *SQUISHED-SIZE* */ struct w49 a1229; /* *TAG-SIZE* */ struct w49 a1230; /* *LENGTH-SIZE* */ struct w49 a1231; /* *POINTER-SIZE* */ struct w49 a1232; /* *FLONUM-SIZE* */ struct w49 a1233; /* *FIXNUM-SIZE* */ struct w49 a1234; /* *CHAR-SIZE* */ struct w49 a1235; /* *JMPBUF-ALIGNMENT* */ struct w49 a1236; /* *FILE-ALIGNMENT* */ struct w49 a1237; /* *SQUISHED-ALIGNMENT* */ struct w49 a1238; /* *TAG-ALIGNMENT* */ struct w49 a1239; /* *LENGTH-ALIGNMENT* */ struct w49 a1240; /* *POINTER-ALIGNMENT* */ struct w49 a1241; /* *FLONUM-ALIGNMENT* */ struct w49 a1242; /* *FIXNUM-ALIGNMENT* */ struct w49 a1243; /* *CHAR-ALIGNMENT* */ struct w49 a1244; /* *JMPBUF* */ struct w49 a1245; /* *FILE* */ struct w49 a1246; /* *SIGNED-SQUISHED* */ struct w49 a1247; /* *SQUISHED* */ struct w49 a1248; /* *TAG* */ struct w49 a1249; /* *LENGTH* */ struct w49 a1250; /* *FLONUM* */ struct w49 a1251; /* *FIXNUM* */ struct w49 a1252; /* *CHAR* */ unsigned a1281; /* *PROGRAM-HAS-HEAP?* */ struct structure_type24753 *a1389; /* *PRIMITIVE-PROCEDURE-REWRITES* */ struct structure_type24753 *a1524; /* *YS* */ struct w21193 a1594; /* *ES* */ unsigned a1595; /* *EI* */ struct w21193 a1633; /* *GS* */ unsigned a1634; /* *GI* */ struct structure_type27650 *a1666; /* *FOREIGN-POINTER-TYPE-SET* */ struct structure_type27650 *a1667; /* *FOREIGN-OUTPUT-PORT-TYPE-SET* */ struct structure_type27650 *a1668; /* *FOREIGN-INPUT-PORT-TYPE-SET* */ struct structure_type27650 *a1669; /* *FOREIGN-STRING-TYPE-SET* */ struct structure_type27650 *a1670; /* *FOREIGN-FLONUM-TYPE-SET* */ struct structure_type27650 *a1671; /* *FOREIGN-FIXNUM-TYPE-SET* */ struct structure_type27650 *a1672; /* *FOREIGN-CHAR-TYPE-SET* */ struct structure_type27650 *a1673; /* *OUTPUT-PORT* */ struct structure_type27650 *a1674; /* *INPUT-PORT* */ struct structure_type27650 *a1675; /* *NULL* */ struct structure_type27650 *a1676; /* *VOID* */ struct structure_type27650 *a1678; /* *W1* */ struct w21193 a1679; /* *WS* */ unsigned a1680; /* *WI* */ struct w21193 a1936; /* *DISPLACED-VECTOR-TYPES* */ struct w21193 a1938; /* *NONHEADED-VECTOR-TYPES* */ struct w21193 a1939; /* *HEADED-VECTOR-TYPES* */ struct w21193 a1940; /* *STRUCTURE-TYPES* */ struct w49 a1941; /* */ struct w21193 a1942; /* *STRING-TYPES* */ struct w21193 a1943; /* *CONTINUATION-TYPES* */ struct w21193 a1944; /* *FOREIGN-PROCEDURE-TYPES* */ struct w21193 a1945; /* *NATIVE-PROCEDURE-TYPES* */ struct w21193 a1946; /* *PRIMITIVE-PROCEDURE-TYPES* */ struct w21193 a1947; /* *EXTERNAL-SYMBOL-TYPES* */ struct w21193 a1948; /* *INTERNAL-SYMBOL-TYPES* */ unsigned a1949; /* *POINTER-TYPE-USE-COUNT* */ char *a1951; /* */ unsigned a1952; /* *EOF-OBJECT-TYPE-USE-COUNT* */ char *a1954; /* */ unsigned a1955; /* *OUTPUT-PORT-TYPE-USE-COUNT* */ char *a1957; /* */ unsigned a1958; /* *INPUT-PORT-TYPE-USE-COUNT* */ char *a1960; /* */ unsigned a1961; /* *RECTANGULAR-TYPE-USE-COUNT* */ char *a1963; /* */ unsigned a1964; /* *FLONUM-TYPE-USE-COUNT* */ char *a1966; /* */ unsigned a1967; /* *FIXNUM-TYPE-USE-COUNT* */ char *a1969; /* */ unsigned a1970; /* *CHAR-TYPE-USE-COUNT* */ unsigned a1971; /* *CHAR-TYPE-USED?* */ char *a1972; /* */ unsigned a1973; /* *FALSE-TYPE-USE-COUNT* */ char *a1975; /* */ unsigned a1976; /* *TRUE-TYPE-USE-COUNT* */ char *a1978; /* */ unsigned a1979; /* *NULL-TYPE-USE-COUNT* */ char *a1981; /* */ unsigned a1982; /* *UI* */ struct w49 a2025; /* *X1* */ struct w49 a2026; /* *X* */ struct w21193 a2027; /* *REFERENCES* */ struct w21193 a2028; /* *ASSIGNMENTS* */ struct w21193 a2029; /* *ACCESSES* */ struct w21193 a2030; /* *CALLS* */ struct w21193 a2031; /* *XS* */ unsigned a2032; /* *XI* */ unsigned a2038; /* *AGAIN?* */ unsigned a2039; /* *DURING-CLOSURE-CONVERSION?* */ unsigned a2040; /* *TYPES-FROZEN?* */ int a2869; /* *CLOCKS-PER-SECOND* */ unsigned a2870; /* BAD */ float a2871; /* FIX */ float a2872; /* *TIME-OUT-TIME* */ float a2875; /* *CLOCK-TIME* */ struct w49 a13725; /* PROGRAM */ struct w49 a15160; /* L */ struct w49 a21007; /* V */ struct w49 a21008; /* VS */ struct w49 a21022; /* E */ struct w49 a21033; /* V */ struct w3467 a21130; /* U */ struct w49 a21648; /* U */ unsigned a21659; /* I */ struct structure_type24753 *a21816; /* US */ unsigned a21991; /* P? */ unsigned a21998; /* P? */ unsigned a22005; /* P? */ unsigned a22012; /* P? */ unsigned a22097; /* P? */ unsigned a22185; /* P? */ unsigned a22265; /* P? */ unsigned a22282; /* P? */ unsigned a22605; /* AGAIN? */ struct structure_type24753 *a23042; /* QS */ struct w9296 a23109; /* GS */ struct w12224 a23111; /* XS1 */ unsigned a23171; /* AGAIN? */ unsigned a23615; /* AGAIN? */ unsigned a23650; /* P? */ struct w12224 a23676; /* ES */ unsigned a23891; /* SPLIT? */ unsigned a23895; /* AGAIN? */ struct w12224 a23897; /* ES1 */ unsigned a24151; /* AGAIN? */ unsigned a24437; /* AGAIN? */ struct structure_type24753 *a24463; /* USS */ struct structure_type24753 *a24481; /* USS */ struct w12224 a24598; /* XS */ struct structure_type24753 *a24599; /* XSS */ struct w12224 a24703; /* ES */ int a24704; /* I */ struct headed_vector_type27624 *a24768; /* DISTANCE-FROM-ROOT-TO-ENVIRONMENTS-MAP */ unsigned a24878; /* AGAIN? */ struct w49 a24890; /* U1 */ struct w49 a24898; /* U1 */ struct w49 a24907; /* U1 */ struct w49 a24922; /* U1 */ struct w49 a24934; /* U1 */ struct w49 a24945; /* U1 */ struct structure_type27623 *a24951; /* TRIE */ unsigned a25612; /* AGAIN? */ unsigned a25738; /* AGAIN? */ struct structure_type24753 *a26477; /* CS2 */ struct structure_type24753 *a26478; /* CS1 */ struct w12224 a26481; /* CS2 */ struct structure_type27623 *a26512; /* V-TRIE */ struct structure_type27623 *a26513; /* T-TRIE */ struct structure_type27623 *a26514; /* R-TRIE */ struct structure_type27623 *a26515; /* A-TRIE */ struct structure_type24753 *a26544; /* CS */ struct p18679 *a32578; /* GET-CHAR */ struct p18678 *a32579; /* UNGET-CHAR */ struct p18678 *a32580; /* READ-ERROR */ struct structure_type24753 *a32819; /* C */ struct w49 a32821; /* SPITTER */ FILE *a32822; /* PORT */ int a32824; /* INDENT */ char *a32825; /* STATE */ unsigned a32826; /* OPEN? */ unsigned a32827; /* NEWLINE? */ unsigned a32828; /* BACKSLASH? */ struct w49 a33342; /* W1 */ struct w60864 a33368; /* T1 */ struct structure_type24753 *a33576; /* PACKAGE */ struct headed_vector_type24751 *a33825; /* CHAR-ALPHABETIC? */ struct headed_vector_type24751 *a33827; /* CHAR-NUMERIC? */ struct headed_vector_type24751 *a33829; /* CHAR-WHITESPACE? */ struct headed_vector_type24746 *a33837; /* CHAR-UPCASE */ struct w49 a34032; /* STRING */ int a34033; /* N */ struct w36789 a34087; /* VECTOR */ struct w49 a34225; /* PORT */ char *a34227; /* CLOSE */ char *a34228; /* DOT */ FILE *a34448; /* THE-CURRENT-OUTPUT-PORT */ FILE *a34449; /* THE-CURRENT-INPUT-PORT */ struct headed_vector_type24746 *a34450; /* BUFFER */ int a34601; /* RADIX-EXACT */ float a34602; /* RADIX-INEXACT */ float a34603; /* RADIX-INVERTED */ int a34635; /* EXPONENT */ struct w49 a34656; /* STRING */ int a34657; /* L */ int a34658; /* I */ void min_error(void) NORETURN; void foreign_call_error(void) NORETURN; void make_vector_error(void) NORETURN; void vector_set1_error(void) NORETURN; void exact_error(void) NORETURN; void negative_error(void) NORETURN; void vector_ref2_error(void) NORETURN; void vector_set2_error(void) NORETURN; void string_error(void) NORETURN; void max_error(void) NORETURN; void positive_error(void) NORETURN; void gt_error(void) NORETURN; void lt_error(void) NORETURN; void quotient2_error(void) NORETURN; void quotient1_error(void) NORETURN; void remainder2_error(void) NORETURN; void remainder1_error(void) NORETURN; void expt2_error(void) NORETURN; void eql_error(void) NORETURN; void symbol_string_error(void) NORETURN; void structure_set_error(void) NORETURN; void times_error(void) NORETURN; void divide_error(void) NORETURN; void round_error(void) NORETURN; void minus_error(void) NORETURN; void zero_error(void) NORETURN; void string_to_uninterned_symbol_error(void) NORETURN; void plus_error(void) NORETURN; void bitwise_and_error(void) NORETURN; void bitwise_or_error(void) NORETURN; void string_set3_error(void) NORETURN; void string_set4_error(void) NORETURN; void open_input_file2_error(void) NORETURN; void open_input_file1_error(void) NORETURN; void close_input_port2_error(void) NORETURN; void open_output_file2_error(void) NORETURN; void call_error(void) NORETURN; void close_output_port2_error(void) NORETURN; void char_to_integer_error(void) NORETURN; void vector_set3_error(void) NORETURN; void integer_to_char2_error(void) NORETURN; void structure_ref_error(void) NORETURN; void vector_ref1_error(void) NORETURN; void vector_length_error(void) NORETURN; void inexact_error(void) NORETURN; void vector_ref3_error(void) NORETURN; void out_of_memory_error(void) NORETURN; void string_length_error(void) NORETURN; void string_ref3_error(void) NORETURN; void string_ref1_error(void) NORETURN; void read_char1_error(void) NORETURN; void peek_char1_error(void) NORETURN; void write_char2_error(void) NORETURN; void f28720(char, struct structure_type24753 *); void f28716(struct structure_type24753 *); void f28712(struct w49); void f28708(struct w49, struct structure_type24753 *); unsigned f28700(struct structure_type24753 *); unsigned f28696(struct structure_type24753 *); struct w29434 f28643(int); struct w29471 f28615(float, float); unsigned f28608(int); unsigned f28603(int); unsigned f28598(int); unsigned f28592(int); struct w29434 f28591(struct w29434); struct w29434 f28477(void); struct structure_type24753 *f28454(float); struct structure_type24753 *f28445(float); char f28444(int); char *f28396(struct w49); void f28351(struct w49, FILE *); void f28291(struct w49, struct w49); void f28274(float, struct w49); void f28253(float, int, struct w49); void f28224(int, struct w49); void f28215(char *, struct w49); struct w49 f28171(struct structure_type24753 *); char *f28165(struct structure_type24753 *); unsigned f28160(unsigned); unsigned f28145(unsigned); struct w30215 f28111(int); float f28079(float, float); int f28069(int); int f28063(int); int f28057(int); int f28049(int); struct w49 f27815(char *); struct w49 f27810(void); void f27795(char *, unsigned); struct w49 f27790(struct w49, struct p18678 *); void f27755(struct w36108, struct w49, struct structure_type24753 *); struct structure_type24753 *f27731(struct w36270, struct w49, struct structure_type24753 *); struct headed_vector_type27896 *f27650(struct w49); struct structure_type24753 *f27648(int); struct structure_type24753 *f27645(void); char *f27595(char *); char *f27585(struct w49); struct structure_type24753 *f27583(int); struct structure_type24753 *f27579(void); char *f27556(struct structure_type24753 *); unsigned f27434(struct w49, struct w49); char f27415(struct w49); unsigned f27407(char); unsigned f27405(struct w49); unsigned f27403(unsigned); unsigned f27372(struct w49, struct w49); unsigned f27366(unsigned, char); unsigned f27360(unsigned, char); unsigned f27354(unsigned, char); unsigned f27348(unsigned, char); unsigned f27342(struct w49, char); int f27310(struct structure_type24753 *); int f27305(struct structure_type24753 *); struct w30215 f27250(struct structure_type24753 *); char *f26395(char *); struct w49 f26356(struct w49, struct w49); struct w49 f26355(int, struct w49); struct w49 f26354(struct w49, struct w49); struct w16638 f26353(struct w49, struct w49); struct w16638 f26351(struct w49, struct w49); struct w49 f26338(struct w49, struct w49); struct w12224 f26331(struct w49); struct structure_type24753 *f26326(struct structure_type24753 *); struct w49 f26267(struct w49, struct w49, struct w49); struct w49 f26254(struct structure_type24753 *); struct structure_type24753 *f26236(struct w49, int); struct structure_type24753 *f26233(struct w49, int, int); int f26227(struct w49); int f26219(struct w49); struct structure_type24753 *f26218(struct structure_type24753 *); unsigned f26209(struct w49); struct w49 f26199(struct w49); struct w49 f26187(struct w49); struct w49 f26183(struct w49); struct w49 f26181(struct w49); struct w49 f26177(struct w49); struct w49 f26176(struct w49); struct structure_type24753 *f26175(struct w49, struct w49); unsigned f26165(struct w49, struct w49); unsigned f26160(struct w49, struct w49); struct structure_type24753 *f19649(struct w49); struct structure_type24753 *f19648(struct w49); struct structure_type24753 *f19631(void); struct structure_type24753 *f19627(struct w49); struct w61020 f19616(struct w49); struct w61020 f19614(struct w49); void f19576(struct w49); void f19557(struct p19556 *, struct w49); void f19556(struct w49); void f19549(struct w49); int f19546(struct w49); void f19543(struct w49); void f19541(struct w49); int f19530(struct w49); void f19523(struct w49); void f19515(struct w49); void f19504(struct w49); void f19501(struct w49); void f19484(struct w49); void f19473(struct w49); void f19467(struct w49); void f19431(struct w49); void f19415(struct w49); void f19412(struct w49); void f19406(struct w49); void f19400(struct w49); void f19396(struct w49); void f19392(struct w49); void f19388(struct w49); void f19381(struct w49); void f19378(struct w49); void f19374(struct w49); void f19336(struct w49); void f19333(struct w49); unsigned f19299(struct w49); struct structure_type24753 *f19298(struct w49); unsigned f19292(struct w49); struct structure_type24753 *f19291(struct w49); struct structure_type24753 *f19290(struct w49); struct structure_type24753 *f19289(struct w49); struct w7121 f19288(struct w49); struct w7121 f19287(struct w49); struct structure_type24753 *f19286(struct w49); struct structure_type24753 *f19285(struct w49); struct structure_type24753 *f19280(struct w49); struct structure_type24753 *f19269(struct w49); struct w64143 f19236(struct w49); char *f19235(struct structure_type27657 *); void f19229(struct w49); void f19217(unsigned, char *); void f19147(struct w49); unsigned f19127(struct p18679 *); void f19125(struct p18678 *, unsigned); void f19123(struct p18678 *, char *); struct w49 f19092(struct structure_type24753 *); char *f19086(struct structure_type24753 *); unsigned f19081(unsigned); unsigned f19066(unsigned); struct w30215 f19029(int); float f18993(float, float); int f18985(int); int f18979(int); int f18973(int); int f18966(int); struct w49 f18699(struct p18678 *, char *, struct structure_type24753 *); struct w49 f18677(struct w49); struct w49 f18676(struct w49); struct w49 f18663(struct w49); struct structure_type24753 *f18659(struct w49); struct structure_type24753 *f18658(struct w49); struct structure_type24753 *f18650(struct w49); struct structure_type24753 *f18646(struct w49, struct w49); struct structure_type24753 *f18643(struct w49); struct w49 f18639(struct w49); struct w49 f18621(struct w49); struct structure_type24753 *f18607(struct w49); struct w49 f18590(struct w49); struct w49 f18573(struct w49); char *f18565(struct w49); char *f18562(struct w49); char *f18559(struct w49); char *f18555(struct w49); char *f18543(struct w49); unsigned f18530(struct w49); unsigned f18526(struct w49); unsigned f18523(struct w49); unsigned f18522(struct w49); unsigned f18521(struct w49); struct structure_type24753 *f18506(struct w49); struct structure_type24753 *f18505(struct w49); struct structure_type24753 *f18504(struct w49); struct structure_type24753 *f18500(struct w49); struct structure_type24753 *f18496(struct p18492 *, struct w49, struct w49); struct structure_type24753 *f18492(struct w49); struct structure_type24753 *f18486(struct w49); struct structure_type24753 *f18482(struct w49); struct structure_type24753 *f18480(struct w49); struct structure_type24753 *f18475(struct w49); struct structure_type24753 *f18473(struct w49); struct structure_type24753 *f18471(struct w49); struct structure_type24753 *f18469(struct w49); struct structure_type24753 *f18467(struct w49); struct structure_type24753 *f18461(struct w49); struct structure_type24753 *f18455(struct w49); struct structure_type24753 *f18453(struct w49); struct w49 f18449(struct w49); struct structure_type24753 *f18447(struct w49); struct structure_type24753 *f18440(struct w49); struct structure_type24753 *f18436(struct w49); struct structure_type24753 *f18432(struct w49); struct structure_type24753 *f18428(struct w49); char *f18386(struct w49); unsigned f18346(struct w49); struct structure_type24753 *f18342(struct w49); struct structure_type24753 *f18338(struct w49); struct structure_type24753 *f18325(struct w49); void f18320(struct w49); struct structure_type24753 *f18319(struct w49); struct w49 f18318(struct structure_type24753 *, struct w49); void f18317(struct w49); void f18316(struct w49); struct w49 f18306(struct w49); struct structure_type24753 *f18302(struct w49); struct structure_type24753 *f18294(struct w49); struct structure_type24753 *f18293(struct w49); struct structure_type24753 *f18288(struct w49); struct structure_type24753 *f18285(struct w49); struct structure_type24753 *f18279(struct w49); struct w49 f18269(struct w49); struct w49 f18268(struct w49); struct structure_type24753 *f18266(struct w49); struct w49 f18261(struct w49); struct w49 f18257(struct w49); struct structure_type24753 *f18247(struct p18246 *, struct w49); struct structure_type24753 *f18244(struct w49); struct structure_type24753 *f18228(struct w49); char *f18227(void); struct w49 f18224(struct w49); struct structure_type24753 *f18223(void); char *f18222(void); struct structure_type24753 *f18220(void); struct w49 f18211(struct w49); struct w49 f18210(struct w49); struct w49 f18168(struct w49); struct w49 f18162(struct w49); struct w49 f18156(struct w49); unsigned f18151(struct w49); struct structure_type24753 *f18148(struct p18144 *, unsigned); struct w49 f18147(void); struct p18144 *d18147; struct w49 b32201; /* U1 */ struct structure_type24753 *f18140(struct structure_type27745 *, struct w49); struct structure_type24753 *f18139(struct structure_type27745 *, struct w49); struct p16282 *f18138(struct structure_type27745 *, struct w49); struct structure_type24753 *f18135(struct p18129 *, unsigned); struct w49 f18134(void); struct p18129 *d18134; struct w49 b32153; /* U2 */ struct structure_type24753 *f18133(struct p18129 *, unsigned); struct w49 f18132(void); struct p18129 *d18132; struct w49 b32151; /* U1 */ struct structure_type24753 *f18124(struct structure_type27745 *, struct w49); struct structure_type24753 *f18123(struct structure_type27745 *, struct w49); struct p16287 *f18122(struct structure_type27745 *, struct w49); struct structure_type24753 *f18121(struct p18119 *, unsigned); struct w49 f18120(struct p18119 *, struct w49); struct structure_type24753 *f18090(struct p18088 *, unsigned); struct w49 f18089(struct p18088 *, struct w49); struct structure_type24753 *f18081(struct p18079 *, unsigned); struct w49 f18080(struct p18079 *, struct w49); struct structure_type24753 *f18072(struct p18070 *, unsigned); struct w49 f18071(struct p18070 *, struct w49); struct structure_type24753 *f18063(struct p18061 *, unsigned); struct w49 f18062(struct p18061 *, struct w49); unsigned f18046(struct w49); struct structure_type24753 *f18045(void); struct structure_type24753 *f18042(struct p18040 *, unsigned); struct structure_type24753 *f18041(struct p18040 *, struct w49); struct structure_type24753 *f18033(struct p18029 *, unsigned); struct structure_type24753 *f18032(struct p18029 *, unsigned); struct w49 f18031(struct p18030 *, struct w49); struct w49 f18030(void); struct p18029 *d18030; struct w49 b31667; /* U1 */ struct structure_type24753 *f18025(void); struct structure_type24753 *f18024(void); struct p16287 *f18023(void); struct structure_type24753 *f18008(struct p18006 *, unsigned); struct w49 f18007(struct p18006 *, struct w49); unsigned f17990(struct w49); struct structure_type24753 *f17989(void); struct structure_type24753 *f17986(struct p17984 *, unsigned); struct w49 f17985(struct p17984 *, struct w49); struct structure_type24753 *f17976(struct p17974 *, unsigned); struct w49 f17975(struct p17974 *, struct w49); struct structure_type24753 *f17966(struct p17964 *, unsigned); struct w49 f17965(struct p17964 *, struct w49); struct structure_type24753 *f17957(struct p17955 *, unsigned); struct w49 f17956(struct p17955 *, struct w49); struct structure_type24753 *f17948(struct p17943 *, unsigned); struct w49 f17944(struct p17943 *, struct w49); struct structure_type24753 *f17936(struct p17931 *, unsigned); struct w49 f17932(struct p17931 *, struct w49); unsigned f17916(struct w49); struct structure_type24753 *f17915(void); unsigned f17904(struct w49); struct structure_type24753 *f17903(void); struct structure_type24753 *f17894(struct p17869 *, unsigned); struct w49 f17890(void); struct p17869 *d17890; struct w49 b31082; /* U1 */ struct structure_type24753 *f17885(struct p17869 *, unsigned); struct w49 f17878(struct p17870 *, struct w49); struct structure_type24753 *f17844(struct structure_type27745 *, struct w49); struct structure_type24753 *f17843(struct structure_type27745 *, struct w49); struct p16282 *f17842(struct structure_type27745 *, struct w49); struct structure_type24753 *f17841(struct p17839 *, unsigned); struct w49 f17840(void); struct p17839 *d17840; struct w49 b31010; /* U1 */ struct structure_type24753 *f17827(int); struct structure_type24753 *f17825(int); struct w16638 f17821(struct p17820 *, struct w49, struct w49); struct p17820 *f17820(struct structure_type27745 *, struct w49); unsigned f17811(struct w49); struct structure_type24753 *f17810(void); struct structure_type24753 *f17807(struct p17803 *, unsigned); struct structure_type24753 *f17806(struct p17803 *, unsigned); struct w49 f17805(struct p17804 *, struct w49); struct w49 f17804(void); struct p17803 *d17804; struct w49 b30911; /* U1 */ struct structure_type24753 *f17790(void); struct structure_type24753 *f17789(void); struct p16292 *f17788(void); struct structure_type24753 *f17787(struct p17783 *, unsigned); struct structure_type24753 *f17786(struct p17783 *, unsigned); struct w49 f17785(struct p17784 *, struct w49); struct w49 f17784(void); struct p17783 *d17784; struct w49 b30860; /* U1 */ struct structure_type24753 *f17764(void); struct structure_type24753 *f17763(void); struct p16287 *f17762(void); struct structure_type24753 *f17761(struct p17759 *, unsigned); struct w49 f17760(struct p17759 *, struct w49); void f17734(struct p17732 *, struct w49); struct w12224 f17722(int); struct w12224 f17720(int); struct structure_type24753 *f17718(struct p17704 *, unsigned); struct structure_type24753 *f17716(struct p17704 *, unsigned); struct structure_type24753 *f17715(struct p17704 *, unsigned); struct w49 f17709(struct p17708 *, struct w49); struct w49 f17708(void); struct p17707 *d17708; struct w49 b30704; /* U2 */ struct w49 f17706(void); struct p17705 *d17706; struct w49 b30702; /* U1 */ struct structure_type24753 *f17697(void); struct structure_type24753 *f17696(void); struct p16292 *f17695(void); struct structure_type24753 *f17693(struct p17673 *, unsigned); struct w49 f17689(struct p17688 *); struct w49 f17688(struct p17686 *, struct w49); struct structure_type24753 *f17682(struct p17673 *, unsigned); struct w49 f17681(struct p17673 *); struct structure_type24753 *f17679(struct p17673 *, unsigned); struct w49 f17678(struct p17673 *); struct structure_type24753 *f17676(struct p17673 *, unsigned); char *f17675(void); struct structure_type24753 *f17656(void); struct structure_type24753 *f17655(void); struct p16302 *f17654(void); unsigned f17645(struct w49); struct structure_type24753 *f17644(void); struct structure_type24753 *f17641(struct p17635 *, unsigned); struct structure_type24753 *f17640(struct p17635 *, unsigned); struct structure_type24753 *f17639(struct p17635 *, unsigned); struct w49 f17638(struct p17637 *, struct w49); struct w49 f17637(struct p17636 *, struct w49); struct w49 f17636(void); struct p17635 *d17636; struct w49 b30537; /* U1 */ struct structure_type24753 *f17631(void); struct structure_type24753 *f17630(void); struct p16292 *f17629(void); struct structure_type24753 *f17628(struct p17624 *, unsigned); struct structure_type24753 *f17627(struct p17624 *, unsigned); struct w49 f17626(struct p17625 *, struct w49); struct w49 f17625(void); struct p17624 *d17625; struct w49 b30489; /* U1 */ struct structure_type24753 *f17616(void); struct structure_type24753 *f17615(void); struct p16287 *f17614(void); struct structure_type24753 *f17613(struct p17611 *, unsigned); struct w49 f17612(struct p17611 *, struct w49); struct structure_type24753 *f17599(struct p17588 *, unsigned); struct w49 f17598(void); struct p17591 *d17598; struct w49 b30396; /* U1 */ struct w49 f17591(void); struct p17588 *d17591; struct w49 b30389; /* TS1 */ struct structure_type24753 *b30390; /* US */ struct w49 b30391; /* WS1 */ struct w12224 f17583(int); struct w12224 f17581(int); struct structure_type24753 *f17579(struct p17554 *, unsigned); struct structure_type24753 *f17576(struct p17554 *, unsigned); struct w49 f17573(struct p17572 *, struct w49); struct w49 f17572(void); struct p17571 *d17572; struct w49 b30333; /* U1 */ struct structure_type24753 *f17569(struct p17554 *, unsigned); struct structure_type24753 *f17568(struct p17554 *, unsigned); struct w49 f17567(struct p17554 *); struct w49 f17566(void); struct p17554 *d17566; struct structure_type24753 *f17564(struct p17554 *, unsigned); struct structure_type24753 *f17563(struct p17554 *, unsigned); struct w49 f17562(struct p17554 *); struct w49 f17561(void); struct p17554 *d17561; struct structure_type24753 *f17559(struct p17554 *, unsigned); struct structure_type24753 *f17558(struct p17554 *, unsigned); char *f17557(void); struct w49 f17556(void); struct p17554 *d17556; struct structure_type24753 *f17549(void); struct structure_type24753 *f17548(void); struct p16302 *f17547(void); unsigned f17538(struct w49); struct structure_type24753 *f17537(void); struct structure_type24753 *f17534(struct p17532 *, unsigned); struct w49 f17533(struct p17532 *, struct w49); struct structure_type24753 *f17525(struct p17523 *, unsigned); struct w49 f17524(struct p17523 *, struct w49); unsigned f17508(struct w49); struct structure_type24753 *f17507(void); struct structure_type24753 *f17504(struct p17498 *, unsigned); struct w49 f17499(struct p17498 *, struct w49); struct structure_type24753 *f17491(struct p17485 *, unsigned); struct w49 f17486(struct p17485 *, struct w49); struct structure_type24753 *f17473(struct p17464 *, unsigned); struct structure_type24753 *f17472(struct p17464 *, unsigned); struct w49 f17466(struct p17465 *, struct w49); struct w49 f17465(void); struct p17464 *d17465; struct w49 b30003; /* U1 */ struct structure_type24753 *f17455(void); struct structure_type24753 *f17454(void); struct p16287 *f17453(void); struct structure_type24753 *f17452(struct p17447 *, unsigned); struct w49 f17448(struct p17447 *, struct w49); struct structure_type24753 *f17440(struct p17425 *, unsigned); struct structure_type24753 *f17437(struct p17425 *, unsigned); struct w49 f17433(struct p17431 *, struct w49); struct w49 f17431(void); struct p17425 *d17431; struct w49 b29911; /* U1 */ struct structure_type24753 *f17430(struct p17425 *, unsigned); struct w49 f17426(struct p17425 *, struct w49); struct structure_type24753 *f17420(void); struct structure_type24753 *f17419(void); struct p16302 *f17418(void); struct structure_type24753 *f17417(struct p17412 *, unsigned); struct w49 f17413(struct p17412 *, struct w49); struct structure_type24753 *f17405(struct p17400 *, unsigned); struct w49 f17401(struct p17400 *, struct w49); struct structure_type24753 *f17393(struct p17388 *, unsigned); struct w49 f17389(struct p17388 *, struct w49); struct structure_type24753 *f17381(struct p17376 *, unsigned); struct w49 f17377(struct p17376 *, struct w49); struct structure_type24753 *f17369(struct p17364 *, unsigned); struct w49 f17365(struct p17364 *, struct w49); struct structure_type24753 *f17357(struct p17352 *, unsigned); struct w49 f17353(struct p17352 *, struct w49); struct structure_type24753 *f17345(struct p17340 *, unsigned); struct w49 f17341(struct p17340 *, struct w49); struct structure_type24753 *f17333(struct p17327 *, unsigned); struct w49 f17328(struct p17327 *, struct w49); struct structure_type24753 *f17314(struct p17308 *, unsigned); struct w49 f17309(struct p17308 *, struct w49); struct structure_type24753 *f17295(struct p17289 *, unsigned); struct w49 f17290(struct p17289 *, struct w49); struct structure_type24753 *f17276(struct p17270 *, unsigned); struct w49 f17271(struct p17270 *, struct w49); struct structure_type24753 *f17257(struct w49, struct w49); struct structure_type24753 *f17254(struct p17250 *, unsigned); struct w49 f17253(struct p17250 *, struct w49); struct w12224 f17245(int); struct w12224 f17243(int); struct w49 f17241(struct w49, struct w49); struct structure_type24753 *f17238(struct p17234 *, unsigned); struct w49 f17237(struct p17234 *, struct w49); struct w12224 f17229(int); struct w12224 f17227(int); struct structure_type24753 *f17225(struct w49, struct w49); struct structure_type24753 *f17222(struct p17218 *, unsigned); struct w49 f17221(struct p17218 *, struct w49); struct w12224 f17213(int); struct w12224 f17211(int); struct structure_type24753 *f17209(struct p17207 *, unsigned); struct w49 f17208(struct p17207 *, struct w49); struct structure_type24753 *f17200(struct p17182 *, unsigned); struct structure_type24753 *f17199(struct p17182 *, unsigned); struct w49 f17184(struct p17183 *, struct w49); struct w49 f17183(void); struct p17182 *d17183; struct w49 b29169; /* U1 */ struct structure_type24753 *f17170(void); struct structure_type24753 *f17169(void); struct p16287 *f17168(void); struct structure_type24753 *f17167(struct p17149 *, unsigned); struct structure_type24753 *f17166(struct p17149 *, unsigned); struct w49 f17151(struct p17150 *, struct w49); struct w49 f17150(void); struct p17149 *d17150; struct w49 b29118; /* U1 */ struct structure_type24753 *f17137(void); struct structure_type24753 *f17136(void); struct p16287 *f17135(void); struct structure_type24753 *f17134(struct p17116 *, unsigned); struct structure_type24753 *f17133(struct p17116 *, unsigned); struct w49 f17118(struct p17117 *, struct w49); struct w49 f17117(void); struct p17116 *d17117; struct w49 b29067; /* U1 */ struct structure_type24753 *f17104(void); struct structure_type24753 *f17103(void); struct p16287 *f17102(void); struct structure_type24753 *f17101(struct p17083 *, unsigned); struct structure_type24753 *f17100(struct p17083 *, unsigned); struct w49 f17085(struct p17084 *, struct w49); struct w49 f17084(void); struct p17083 *d17084; struct w49 b29016; /* U1 */ struct structure_type24753 *f17071(void); struct structure_type24753 *f17070(void); struct p16287 *f17069(void); struct structure_type24753 *f17064(struct w49, struct w49, struct w49, struct w49); char *f17062(struct w49, struct w49); struct structure_type24753 *f17061(struct p17056 *, unsigned); struct w49 f17057(struct p17056 *, struct w49); struct w12224 f17043(int); struct w12224 f17041(int); struct w49 f17032(struct p17017 *, struct w49, struct w49, struct w49, struct w49); char *f17027(struct w49, struct w49); struct structure_type24753 *f17026(struct p17017 *, unsigned); struct w49 f17018(struct p17017 *, struct w49); struct w12224 f17000(int); struct w12224 f16998(int); struct structure_type24753 *f16989(struct p16978 *, struct w49, struct w49, struct w49, struct w49); char *f16984(struct w49, struct w49); struct structure_type24753 *f16982(struct p16978 *, unsigned); struct w49 f16981(struct p16978 *, struct w49); struct w12224 f16959(int); struct w12224 f16957(int); struct w49 f16948(struct p16937 *, struct w49, struct w49, struct w49, struct w49); char *f16943(struct w49, struct w49); struct structure_type24753 *f16941(struct p16937 *, unsigned); struct w49 f16940(struct p16937 *, struct w49); struct w12224 f16918(int); struct w12224 f16916(int); struct structure_type24753 *f16914(struct w49, struct w49, struct w49, struct w49); char *f16913(struct w49, struct w49); struct structure_type24753 *f16912(struct p16907 *, unsigned); struct w49 f16908(struct p16907 *, struct w49); struct w12224 f16890(int); struct w12224 f16888(int); struct structure_type24753 *f16886(struct w49, struct w49, struct w49, struct w49); char *f16885(struct w49, struct w49); struct structure_type24753 *f16884(struct p16879 *, unsigned); struct w49 f16880(struct p16879 *, struct w49); struct w12224 f16862(int); struct w12224 f16860(int); struct structure_type24753 *f16858(struct p16852 *, unsigned); struct w49 f16853(struct p16852 *, struct w49); struct structure_type24753 *f16844(struct p16838 *, unsigned); struct w49 f16839(struct p16838 *, struct w49); struct structure_type24753 *f16830(struct p16815 *, unsigned); struct w49 f16821(struct p16815 *, struct w49); unsigned f16816(struct w49); unsigned f16806(struct w49); struct structure_type24753 *f16805(void); unsigned f16800(struct w49); struct structure_type24753 *f16799(void); struct p16282 *f16793(void); struct w12224 f16785(int); struct w12224 f16783(int); struct w12224 f16774(int); struct w12224 f16772(int); struct w12224 f16763(int); struct w12224 f16761(int); struct w12224 f16752(int); struct w12224 f16750(int); struct w12224 f16741(int); struct w12224 f16739(int); struct structure_type24753 *f16737(struct p16735 *, unsigned); struct w49 f16736(struct p16735 *, struct w49); unsigned f16724(struct w49); struct structure_type24753 *f16723(void); struct structure_type24753 *f16721(struct p16719 *, unsigned); struct w49 f16720(struct p16719 *, struct w49); unsigned f16709(struct w49); struct structure_type24753 *f16708(void); struct w49 f16700(struct p16699 *, struct w49); unsigned f16686(struct w49); struct structure_type24753 *f16685(void); struct w49 f16678(struct p16677 *, struct w49); unsigned f16664(struct w49); struct structure_type24753 *f16663(void); unsigned f16652(struct w49); struct structure_type24753 *f16651(void); struct structure_type24753 *f16648(struct p16645 *, unsigned); struct w49 f16646(struct p16645 *, struct w49); struct structure_type24753 *f16635(struct p16629 *, unsigned); struct w49 f16631(struct p16629 *, struct w49); unsigned f16614(struct w49); struct structure_type24753 *f16613(void); unsigned f16602(struct w49); struct structure_type24753 *f16601(void); struct w49 f16597(struct p16486 *, struct w49); unsigned f16596(struct w49); struct structure_type24753 *f16583(struct p16486 *, struct w49); struct structure_type24753 *f16567(struct p16486 *, struct w49); struct structure_type24753 *f16565(struct p16486 *, struct w49); struct structure_type24753 *f16561(struct p16486 *, struct w49); struct structure_type24753 *f16460(void); struct structure_type24753 *f16459(void); struct p16287 *f16458(void); unsigned f16449(struct w49); struct structure_type24753 *f16448(void); unsigned f16437(struct w49); struct structure_type24753 *f16436(void); struct structure_type24753 *f16433(struct p16431 *, unsigned); struct w49 f16432(struct p16431 *, struct w49); struct structure_type24753 *f16420(struct w49); struct structure_type24753 *f16419(struct w49); struct p16287 *f16418(struct w49); struct structure_type24753 *f16417(struct p16415 *, unsigned); struct w49 f16416(struct p16415 *, struct w49); struct structure_type24753 *f16404(struct w49); struct structure_type24753 *f16403(struct w49); struct p16282 *f16402(struct w49); struct w12224 f16375(int); struct w12224 f16373(int); unsigned f16363(struct p16362 *, struct w49); struct structure_type24753 *f16362(struct w49); struct structure_type24753 *f16361(struct w49); struct p16355 *f16355(struct w136041); struct p16347 *f16347(unsigned, unsigned); struct p16335 *f16335(struct p17698 *); struct p16328 *f16328(struct w136184); struct p16321 *f16321(struct w136217); struct p16314 *f16314(struct w136247); unsigned f16309(struct p16308 *, struct w49, struct w49); struct p16308 *f16308(unsigned); struct w16638 f16303(struct p16302 *, struct w49, struct w49); struct p16302 *f16302(unsigned, unsigned); void f16298(struct w49); void f16297(void); struct w16638 f16293(struct p16292 *, struct w49, struct w49); struct p16292 *f16292(unsigned, unsigned); struct w16638 f16288(struct p16287 *, struct w49, struct w49); struct p16287 *f16287(unsigned, unsigned); struct w16638 f16283(struct p16282 *, struct w49, struct w49); struct p16282 *f16282(unsigned); void f16278(struct w49); void f16277(void); unsigned f16273(struct w49, struct w49); unsigned f16269(struct w49, struct w49); unsigned f16265(struct w49, struct w49); unsigned f16260(struct w49, struct w49); unsigned f16256(struct w49, struct w49, struct w49); unsigned f16252(struct w49, struct w49); unsigned f16248(struct w49, struct w49); unsigned f16244(struct w49, struct w49); unsigned f16240(struct w49, struct w49); struct structure_type24757 *f16182(unsigned, unsigned, unsigned, unsigned, unsigned, unsigned, unsigned); struct structure_type24753 *f16181(struct w49); struct structure_type24753 *f16180(struct w49); struct structure_type24753 *f16178(struct w49); struct structure_type24753 *f16176(struct w49); struct structure_type24753 *f16174(struct w49); struct w61020 f16161(struct w49); struct w61020 f16154(struct w49); struct structure_type24753 *f16151(struct w49); struct structure_type24753 *f16144(struct w49); struct w61020 f16121(struct w49); struct w61020 f16113(struct p16101 *, struct w49); struct w61020 f16112(struct w49); struct w49 f16109(struct w49); struct w49 f16100(struct w49); struct structure_type24753 *f16097(struct p15922 *, unsigned); struct w49 f16096(void); struct p16093 *d16096; struct w49 b27143; /* U0 */ struct structure_type24753 *f16082(struct p16060 *, struct w49); struct structure_type24753 *f16069(struct p16060 *, struct w49); struct structure_type24753 *f16037(struct p16036 *, struct w49); struct structure_type24753 *f15988(struct p15977 *, struct w49); struct w49 f15922(struct structure_type27501 *, struct w49); unsigned f15919(struct w49); unsigned f15913(struct w49); unsigned f15912(struct w49); struct w49 f15911(struct w49, struct w12563, struct w12563, struct w12563); struct w49 f15905(struct p15881 *, struct w49); struct w49 f15900(void); struct p15897 *d15900; struct w49 b27021; /* U1 */ struct structure_type24753 *f15886(struct p15881 *, unsigned); struct w49 f15885(void); struct p15881 *d15885; struct w49 b27015; /* U2 */ struct w49 f15881(void); struct structure_type27501 *b27002; /* R */ struct structure_type27745 *b27003; /* Y */ struct w49 b27004; /* T0 */ struct w49 b27005; /* U0 */ struct w49 b27006; /* W0 */ struct structure_type24753 *b27007; /* TS */ struct structure_type24753 *b27008; /* WS */ struct w49 b27009; /* T */ struct w49 b27010; /* W */ struct w49 f15877(struct w49, struct structure_type27745 *); struct w12563 f15858(struct w49); struct w49 f15830(struct p15827 *, struct p7717 *); struct w49 f15827(void); struct structure_type27501 *b26962; /* R */ struct structure_type27745 *b26963; /* Y */ struct w49 b26964; /* T0 */ struct w49 b26965; /* U0 */ struct w49 b26966; /* W0 */ struct w49 b26967; /* T1 */ struct w49 b26968; /* W1 */ struct w49 b26969; /* TS */ struct w49 b26970; /* WS */ struct w49 b26971; /* T */ struct w49 b26972; /* W */ struct structure_type24753 *f15815(struct p15800 *, unsigned); struct w49 f15811(struct p15807 *, struct w49); struct structure_type24753 *f15805(struct p15800 *, unsigned); char *f15804(void); struct w49 f15803(struct p15800 *, struct w49, struct w49, struct w49, struct w49, struct w49, struct w49); struct w49 f15800(struct w49, struct structure_type27745 *, struct w49, struct w49, struct w49, struct w49, struct w142334, struct structure_type24753 *); struct w49 f15793(struct w49); struct structure_type24753 *f15772(struct p15766 *, unsigned); struct w49 f15771(void); struct p15770 *d15771; struct w49 b26894; /* U0 */ struct w49 f15770(void); struct p15767 *d15770; struct w49 b26890; /* FS1 */ struct w49 b26891; /* TS1 */ struct structure_type24753 *b26892; /* US1 */ struct w49 b26893; /* WS1 */ unsigned f15763(struct w49, struct structure_type24753 *); struct structure_type27501 *f15762(struct structure_type27501 *); struct w61020 f15756(struct w12563, struct w12563); struct structure_type24753 *f15753(void); struct w49 f15752(struct w49); struct w49 f15748(struct w49); struct w49 f15742(struct w49); struct w49 f15737(struct w49); struct structure_type24753 *f15726(struct p15718 *, struct w49); struct w49 f15718(struct w49); struct structure_type24753 *f15715(struct w49); struct w49 f15709(struct w49); struct w49 f15701(struct w49); struct structure_type24753 *f15696(struct w49); struct w49 f15695(void); struct structure_type24753 *f15694(struct w49); struct structure_type24753 *f15691(struct w49); struct structure_type24753 *f15689(struct w49); struct w61020 f15683(struct w49); struct w61020 f15677(struct w49); struct structure_type24753 *f15663(struct w49); struct structure_type24753 *f15661(struct w49); struct w61020 f15660(struct w49); struct w61020 f15659(struct w49); struct structure_type24753 *f15654(struct w49); struct w61020 f15648(struct w49); struct w49 f15642(struct w49); struct w49 f15641(void); struct w49 f15640(struct w49); struct w49 f15637(struct p15629 *, struct structure_type24753 *, unsigned); struct w49 f15635(struct p15629 *, struct structure_type24753 *, unsigned); struct w49 f15629(struct w49); struct w49 f15628(struct p15621 *, struct structure_type24753 *, unsigned); struct w49 f15621(struct w49, struct w49, struct w49, struct w49, struct structure_type27745 *); struct w49 f15618(struct p15610 *, struct structure_type24753 *, unsigned); struct w49 f15610(struct w49, struct w49, struct w49, struct structure_type27745 *); struct w49 f15609(struct p15608 *, struct structure_type24753 *, unsigned); struct w49 f15607(struct w49, struct w49, struct w49, struct structure_type27745 *); struct w49 f15605(struct p15586 *, struct w49); struct w49 f15603(struct p15586 *, struct w49); struct w49 f15586(struct w49, struct w145455, struct w49, struct w145469, unsigned); struct w49 f15582(struct p15573 *, struct w49, struct w49, struct w49); char *f15581(struct p15573 *, struct w49); struct structure_type24753 *f15580(struct p15573 *, unsigned); struct w49 f15579(void); struct p15576 *d15579; struct w49 b26749; /* U */ struct w49 f15576(void); struct p15573 *d15576; struct w49 b26741; /* CS0 */ struct w49 b26742; /* WS0 */ struct structure_type24753 *b26743; /* CS */ struct structure_type24753 *b26744; /* US */ struct w49 f15573(void); unsigned b26731; /* M */ struct structure_type27501 *b26732; /* R */ struct structure_type27745 *b26733; /* Y */ struct w49 b26734; /* CS */ struct w49 b26735; /* WS */ unsigned b26736; /* U1 */ unsigned b26737; /* C1 */ char *b26738; /* C2 */ struct structure_type24753 *f15571(struct p15564 *, unsigned); struct w49 f15570(void); struct p15567 *d15570; struct w49 b26729; /* U */ struct w49 f15567(void); struct p15564 *d15567; struct w49 b26720; /* CS */ struct w49 b26721; /* WS */ struct structure_type24753 *b26722; /* CS1 */ struct structure_type24753 *b26723; /* US */ struct w49 f15564(void); struct structure_type27501 *b26712; /* R */ struct structure_type27745 *b26713; /* Y */ struct w49 b26714; /* CS */ struct w49 b26715; /* WS */ unsigned b26716; /* C1 */ char *b26717; /* C2 */ struct structure_type24753 *f15534(char *, struct w49, unsigned); struct w60864 f15531(struct w49); struct w49 f15512(struct structure_type27501 *, struct w49, struct w61020, struct w49); struct w49 f15508(struct structure_type27501 *, struct w49, unsigned); struct w49 f15499(struct structure_type27501 *, struct w49, struct w49); struct w49 f15498(struct structure_type27501 *, struct w60861, struct w49, struct w49); struct w49 f15497(struct structure_type27501 *, struct structure_type24753 *, struct w49); struct w49 f15496(struct w12218, struct w49, struct w49); struct w49 f15488(struct p15368 *, struct w49); struct w49 f15486(struct p15369 *, struct w49); struct w16638 f15484(struct p15370 *, struct w49); struct w49 f15475(struct p15369 *, struct w49); struct w16638 f15473(struct p15370 *, struct w49); struct w49 f15458(struct p15369 *, struct w49); struct w16638 f15456(struct p15370 *, struct w49); struct structure_type24753 *f15442(struct p15369 *, struct w49); struct structure_type24753 *f15431(struct p15369 *, struct w49); struct w49 f15355(struct w12218, struct w49, struct w49, struct w49, unsigned); struct w49 f15345(struct w49, struct w49, struct w49); struct w49 f15342(struct w12218); unsigned f15338(struct w12218); struct w49 f15328(struct w49); unsigned f15324(struct w49); struct w49 f15322(struct w49); struct w49 f15319(struct w49); void f15308(struct w49); void f15297(struct w49); int f15290(char); int f15288(char); int f15286(char); int f15284(char); void f15257(struct w49); void f15236(struct w49); void f15223(struct w49); void f15211(struct w49); void f15201(struct w49); unsigned f15198(struct p15197 *, struct w49); void f15178(struct w49); struct w49 f15141(struct w49); void f15137(struct w49); void f15128(struct w49, struct w49); void f15126(struct p15122 *, struct w49); void f15067(void); struct structure_type27501 *b26412; /* R */ struct w49 b26413; /* X */ void f15066(void); struct w49 b26411; /* X */ void f15036(struct structure_type27501 *, struct structure_type27745 *, struct w49, struct w49, struct structure_type27650 *); struct w49 f15030(struct p15015 *, struct w49); void f15026(struct p15024 *, struct w49); void f15019(struct p15015 *, struct w49); void f15015(struct structure_type27501 *, struct structure_type27745 *, struct w49, struct structure_type24753 *, struct structure_type27650 *); void f14997(struct p14991 *, struct w49); void f14988(struct p14985 *, struct w49, struct w49, struct w49); void f14985(struct w49, struct structure_type27745 *, struct w49, struct structure_type27650 *, struct structure_type24753 *); void f14848(struct w12218, struct w49, struct w49); struct w61020 f14818(struct w49, struct w49); int f14785(struct w49); struct w61020 f14754(struct w49, struct w49); struct w60864 f14753(struct w49, struct w49, struct w49, struct w49); struct w49 f14751(struct w49, struct w49, struct w49); struct structure_type24753 *f14750(struct w49, struct w49, struct w49, struct w49); struct structure_type24753 *f14749(struct w49, struct w49, struct w49); struct w60864 f14748(struct w49, struct w49, struct w49); struct w60864 f14747(struct w49, struct w49, struct w49); struct w60864 f14746(struct w49, struct w49, struct w49, struct w49); struct w49 f14731(struct w49, struct w49); struct w60864 f14714(struct w49, struct w49, struct w49); struct w49 f14712(struct p14711 *); struct w49 f14710(struct structure_type27501 *, unsigned); struct w49 f14709(struct structure_type27501 *, struct structure_type24753 *); struct w49 f14708(struct structure_type27501 *); struct w49 f14707(struct structure_type27501 *); struct w49 f14703(struct p7717 *, struct w49, struct structure_type27501 *, struct w49, unsigned, unsigned); struct w49 f14696(unsigned, struct w49, struct w12218, struct w49, unsigned); struct w49 f14692(void); unsigned b26111; /* M */ struct w49 b26112; /* W */ struct structure_type27501 *b26113; /* R */ struct w49 b26114; /* C1 */ struct w155635 b26115; /* C2 */ struct w155624 b26116; /* C3 */ unsigned f14689(struct w12218); struct w49 f14687(struct w12224, struct w49, struct w49, struct w155862, unsigned); struct w49 f14685(struct p14680 *, struct w49); struct w49 f14680(struct w12224, struct w49, struct w49, struct w155919, struct w155916, unsigned); struct w49 f14676(struct p14673 *, struct w49); char *f14675(struct p14673 *, struct w49); struct w49 f14673(struct w12224, struct w49, struct w49, struct w155862, unsigned); struct w49 f14671(struct p14646 *, struct w49); struct w49 f14667(struct p14647 *, struct w49); char *f14666(struct p14646 *, struct w49); struct w49 f14665(struct p14647 *, struct w49); char *f14664(struct p14646 *, struct w49); struct w49 f14656(struct p14647 *, struct w49); char *f14655(struct p14646 *, struct w49); struct w49 f14654(struct p14647 *, struct w49); char *f14653(struct p14646 *, struct w49); struct w49 f14646(struct w12224, struct w49, struct w49, struct w155919, struct w155916, unsigned); struct structure_type24753 *f14645(struct p14637 *, struct w49); struct w49 f14640(struct w49); struct w49 f14637(struct w12224, struct w49, struct w49, struct w155862); struct structure_type24753 *f14636(struct p14630 *, struct w49); struct w49 f14634(struct p14630 *, struct w49); struct w49 f14630(struct w12224, struct w49, struct w49, struct w155919, struct w155916); struct w49 f14627(struct w12224, struct w49, struct w49, struct w155862, unsigned); struct w49 f14625(struct p14621 *, struct w49); struct w49 f14621(struct w12224, struct w49, struct w49, struct w155919, struct w155916, unsigned); struct structure_type24753 *f14620(struct p14612 *, struct w49); struct w49 f14615(struct w49); struct w49 f14612(struct w12224, struct w49, struct w49, struct w155862); struct structure_type24753 *f14611(struct p14605 *, struct w49); struct w49 f14609(struct p14605 *, struct w49); struct w49 f14605(struct w12224, struct w49, struct w49, struct w155919, struct w155916); struct structure_type24753 *f14595(struct w49, struct w49, struct w49); struct structure_type24753 *f14594(struct w49, struct w49); struct w49 f14593(struct w49, struct w49, struct w49); struct structure_type24753 *f14592(struct w49, struct w49); struct w49 f14579(struct w49, struct w49, struct w49); unsigned f14564(struct w49, struct w49); struct w49 f14557(struct w49, struct w49); struct w49 f14547(struct w49); void f14543(void); struct structure_type24753 *f14536(struct w49, struct w49, struct w49); struct w49 f14529(struct w49, struct w49, struct w49); struct w49 f14506(struct w49, struct w61020); struct w49 f14485(struct w49, struct w49, struct w49); struct w49 f14478(struct w49, struct w49); struct w61020 f14433(struct w49); struct structure_type24753 *f14430(struct w49, struct w49); struct structure_type24753 *f14428(struct w49, struct w49, struct w49); struct structure_type24753 *f14427(struct w49); struct structure_type24753 *f14425(struct w49); struct structure_type24753 *f14423(struct w49); struct structure_type24753 *f14422(struct w49, struct w49); struct structure_type24753 *f14421(struct w49, struct w49); struct w49 f14414(struct w49, struct w49); struct w49 f14410(struct w49, struct w61020); struct w49 f14374(struct w49, struct w49); struct w61020 f14371(struct structure_type24753 *); struct structure_type24753 *f14369(struct structure_type24753 *); struct structure_type24753 *f14365(struct w49); struct structure_type24753 *f14333(struct w49); struct structure_type24753 *f14332(struct w49); struct w61020 f14328(struct structure_type24753 *); struct w61020 f14324(struct structure_type24753 *); struct structure_type24753 *f14322(struct w49); struct structure_type24753 *f14321(struct w49); struct structure_type24753 *f14320(struct w49); struct structure_type24753 *f14319(struct w49); struct structure_type24753 *f14318(struct w49); struct structure_type24753 *f14317(struct w49); struct structure_type24753 *f14316(struct w49); struct w61020 f14289(struct w49); struct structure_type24753 *f14288(unsigned); struct structure_type24753 *f14287(struct w49); struct structure_type24753 *f14286(struct w49); struct structure_type24753 *f14285(unsigned); struct structure_type24753 *f14281(struct w49); struct structure_type24753 *f14279(struct w49); struct structure_type24753 *f14278(struct w49); struct structure_type24753 *f14277(struct w49); struct structure_type24753 *f14276(struct w49); struct structure_type24753 *f14275(struct w49); struct structure_type24753 *f14274(struct w49); char *f14272(void); struct structure_type24753 *f14271(struct w49); struct structure_type24753 *f14269(struct w49); unsigned f14245(struct w49); unsigned f14226(struct w49); void f14225(struct w49); void f14224(struct w49); void f14223(struct w49); void f14222(struct w49); void f14213(struct w49); void f14205(struct w49); void f14196(struct w49); void f14178(struct w49); struct w49 f14154(struct w49); struct w49 f14094(struct w49); struct w30215 f14093(struct w49, struct w49); struct w49 f14079(struct w49); struct w49 f14028(struct w49); void f14026(void); unsigned f14025(struct w49); unsigned f14024(struct w49); unsigned f13985(struct w49); void f13953(struct w49); void f13951(struct w49); void f13931(struct w49); struct w49 f13917(struct w49); unsigned f13916(struct w49); unsigned f13914(struct w49); struct w49 f13890(struct w49); struct w49 f13889(struct w49); struct w49 f13860(struct w49); unsigned f13859(struct w49); struct w49 f13854(struct w49); unsigned f13816(struct w49); void f13805(struct w49); unsigned f13801(struct w49); unsigned f13798(struct w49); struct structure_type24753 *f13790(struct p13784 *, struct w49); struct structure_type24753 *f13784(struct w49, struct w49, struct w49); struct structure_type24753 *f13782(struct structure_type24753 *); struct structure_type24753 *f13760(struct w61020, unsigned); struct structure_type24753 *f13740(struct structure_type24753 *); struct structure_type24753 *f13734(struct w49); struct structure_type24753 *f13732(struct w49); struct structure_type24753 *f13730(struct w49, struct structure_type24753 *); struct structure_type24753 *f13724(struct w49, struct w49); struct structure_type24753 *f13702(struct w49); struct structure_type24753 *f13700(struct w49); struct structure_type24753 *f13698(struct w49); struct structure_type24753 *f13696(struct w49, struct w49); struct w49 f13691(struct p13687 *, struct w49); struct w49 f13687(struct w49, struct structure_type24753 *, struct structure_type24753 *, unsigned); struct structure_type24753 *f13686(struct w49, struct w49); struct w49 f13680(struct p13676 *, struct w49); struct w49 f13676(struct w49, struct structure_type24753 *, struct structure_type24753 *, struct w49, unsigned); struct w49 f13675(struct w49); struct structure_type24753 *f13673(struct structure_type24753 *, struct structure_type24753 *); struct w49 f13672(struct structure_type24753 *, struct w49, struct w49, unsigned); struct w49 f13671(struct structure_type24753 *, struct structure_type24753 *, struct structure_type24753 *, struct w49); struct w49 f13670(struct structure_type24753 *, struct w49); struct w49 f13660(struct w49, struct w49); struct w49 f13650(struct w49, struct w49); struct structure_type24753 *f13646(struct structure_type24753 *); struct structure_type24753 *f13645(struct w61020, struct structure_type24753 *); struct structure_type24753 *f13643(struct w49, struct structure_type24753 *); struct structure_type24753 *f13642(struct w49, struct structure_type24753 *); struct structure_type24753 *f13641(struct w49, struct structure_type24753 *); struct structure_type24753 *f13640(struct w12563); struct structure_type24753 *f13638(struct structure_type24753 *, struct w49); struct structure_type24753 *f13637(struct w49, struct w49); struct w49 f13635(struct w61020, char *); struct w49 f13634(char *); struct structure_type24753 *f13633(struct w61020); struct structure_type24753 *f13632(struct structure_type24753 *); struct structure_type24753 *f13631(struct w49); struct structure_type24753 *f13625(struct w49, struct structure_type24753 *); struct w49 f13624(struct w49, struct w49); struct w49 f13623(struct w49, struct w49); struct structure_type24753 *f13622(struct w49, struct w49); struct structure_type24753 *f13621(struct w49, struct w49); struct structure_type24753 *f13617(struct w49, struct structure_type24753 *); struct w49 f13610(struct w49, struct structure_type24753 *); struct w49 f13609(struct w49, struct w49); struct structure_type24753 *f13608(struct w49, struct w49); struct structure_type24753 *f13606(struct w49); struct structure_type24753 *f13604(struct w49, struct w49); struct structure_type24753 *f13603(struct w49); struct structure_type24753 *f13602(struct w49); struct structure_type24753 *f13601(struct w49, struct w49); struct structure_type24753 *f13600(struct structure_type24753 *); struct structure_type24753 *f13599(struct structure_type24753 *); struct structure_type24753 *f13598(struct w49, struct w61020); struct structure_type24753 *f13597(struct structure_type24753 *); struct structure_type24753 *f13596(struct w49); struct structure_type24753 *f13593(struct w49); struct structure_type24753 *f13592(struct w49); struct structure_type24753 *f13591(struct w49, struct w49); struct structure_type24753 *f13588(struct w49, struct w61020); struct structure_type24753 *f13585(struct w49, struct w61020); struct structure_type24753 *f13574(struct structure_type24753 *, struct w49, struct w49); struct structure_type24753 *f13573(struct w49, char *, struct w49); struct structure_type24753 *f13572(char *, struct w49); struct w49 f13567(struct w49); struct structure_type24753 *f13564(struct structure_type24753 *); struct w49 f13559(struct w49); struct structure_type24753 *f13556(struct structure_type24753 *); struct structure_type24753 *f13554(struct w49); struct structure_type24753 *f13553(struct w49); struct structure_type24753 *f13552(struct structure_type24753 *); struct structure_type24753 *f13550(struct w49); struct structure_type24753 *f13549(struct w49); struct structure_type24753 *f13548(struct w49); struct structure_type24753 *f13547(struct w49, struct w49); struct structure_type24753 *f13545(struct w165970); struct structure_type24753 *f13544(struct w49); struct structure_type24753 *f13543(struct w49, struct w12224); struct structure_type24753 *f13542(struct w49, struct w49); struct structure_type24753 *f13541(struct w61020, struct w61020); struct structure_type24753 *f13540(struct w49, struct w49); char *f13538(struct w49); struct structure_type24753 *f13532(struct w49); char *f13530(struct w49); struct structure_type24753 *f13529(struct w49); char *f13523(struct w49); struct structure_type24753 *f13519(int); struct structure_type24753 *f13517(struct w49, struct structure_type24753 *, char *); struct structure_type24753 *f13516(struct w49); struct structure_type24753 *f13515(struct w49); struct structure_type24753 *f13514(struct w49); struct structure_type24753 *f13513(struct w49); struct w49 f13508(struct w49); unsigned f13504(struct w49); struct structure_type24753 *f13501(struct w49); struct w49 f13492(struct w49); struct w49 f13483(struct w49); struct w49 f13474(struct w49); struct structure_type24753 *f13473(struct w49); struct structure_type24753 *f13472(struct w49); void f13469(struct structure_type24753 *); void f13463(struct w49); void f13460(struct structure_type24753 *); unsigned f13457(struct w49); unsigned f13455(struct w49); unsigned f13452(struct w49); unsigned f13451(struct w49); unsigned f13450(struct w49); struct structure_type24753 *f13427(struct w49, struct w49); unsigned f13424(struct w49, struct w49); struct w49 f13419(struct w49); unsigned f13416(struct w49); unsigned f13415(struct w49); unsigned f13412(struct w49); unsigned f13411(struct w49); unsigned f13410(struct w49); unsigned f13407(struct w49); unsigned f13402(struct w49); unsigned f13399(struct w49); void f13380(void); void f13379(void); void f13373(void); unsigned f13273(struct w49); unsigned f13272(struct w49); unsigned f13270(struct w49); unsigned f13268(struct w49); unsigned f13267(struct w49); void f13265(void); struct structure_type24753 *f13200(struct w49); struct w49 f13186(struct w49); struct w49 f13160(struct w49); struct structure_type24753 *f13157(struct w49); struct w49 f13143(struct w49); struct structure_type24753 *f13116(struct w49); struct w49 f13111(struct p13108 *, struct w49); struct w49 f13108(struct w49); struct w49 f13107(struct w49); struct w49 f13105(struct p13098 *, struct w49); struct w49 f13098(struct w49, struct structure_type24753 *); struct w49 f13090(struct p13063 *, struct w49); struct w49 f13088(struct p13063 *, struct w49); struct w49 f13063(struct w49, struct structure_type24753 *); int f13061(struct w49, struct w49); struct structure_type24753 *f13058(struct w49); unsigned f13055(struct w49); void f13048(struct w49); void f13047(struct w49); void f13045(struct w49); void f13038(struct w49); unsigned f13035(struct w49); unsigned f13034(struct w49); void f13031(struct w49); void f13030(struct w49); void f13029(struct w49); unsigned f13026(struct w49); void f13025(struct w49); void f13018(struct w49); void f13012(struct w49); void f13011(struct w49); void f13010(struct w49); void f13009(struct w49); void f13008(struct w49); void f13007(struct w49); void f13006(struct w49); void f13004(struct w49); void f13000(struct w49); void f12984(struct w49); void f12978(struct p12975 *, struct w49); void f12971(struct w49); void f12959(struct w49); void f12940(struct w49); void f12919(struct w49); void f12895(struct w49); void f12880(struct w49); void f12865(struct w49); struct w49 f12834(struct structure_type27623 *, struct structure_type24753 *); struct structure_type24753 *f12827(struct structure_type24753 *); void f12826(struct w49); struct w49 f12820(struct w49); struct w49 f12784(struct w49); unsigned f12781(struct p12777 *, struct w49); void f12777(struct p12773 *, struct w49); void f12773(struct w49); unsigned f12771(struct p12766 *, struct w49); void f12766(struct p12762 *, struct w49); void f12762(struct w49); unsigned f12760(struct p12755 *, struct w49); void f12755(struct p12751 *, struct w49); void f12751(struct w49); unsigned f12748(struct p12742 *, struct w49); void f12742(struct p12740 *, struct w49); void f12740(struct w49); void f12739(struct w49); unsigned f12736(struct p12732 *, struct w49); void f12732(struct w49); struct w3467 f12719(struct w3467, unsigned); struct w3467 f12708(struct w172645, struct headed_vector_type27624 *); unsigned f12705(struct w49, struct w49, struct w49); struct w16638 f12698(struct w49, struct w49); void f12697(struct w49); void f12695(struct w49); void f12694(struct w49); void f12684(struct w49); void f12681(struct w49); void f12677(struct w49); void f12668(struct w49); void f12665(struct w49); void f12658(struct w49); void f12653(struct w49); struct structure_type27698 *f12631(struct p12602 *, struct w49); struct structure_type27698 *f12630(void); struct p12602 *d12630; struct w49 b24693; /* XS1 */ struct structure_type24753 *b24694; /* GS */ struct structure_type27698 *f12602(void); unsigned b24683; /* G/X */ struct w49 b24684; /* X */ struct w49 f12566(struct w49); struct structure_type27698 *f12557(struct p12513 *, struct w49); struct structure_type27698 *f12556(void); struct p12513 *d12556; struct w49 b24667; /* XS1 */ struct structure_type24753 *b24668; /* GS */ struct structure_type27698 *f12513(void); unsigned b24649; /* G/X */ struct w49 b24650; /* X */ struct structure_type27692 *f12512(char *); struct structure_type27698 *f12511(unsigned, struct w49); unsigned f12510(unsigned); struct w16638 f12485(struct p12483 *, struct w49); struct w12224 f12476(struct w49); struct w16638 f12471(struct w49); void f12458(struct w49); struct w49 f12436(struct w49); struct w49 f12435(struct w49); struct w49 f12409(struct w49); void f12402(struct w49); void f12392(struct w49); void f12386(struct p12383 *, struct w49); void f12383(struct w49); void f12381(struct w49); void f12368(struct w49); void f12351(struct w49); void f12348(struct w49); void f12346(struct w49); void f12344(struct w49); void f12343(struct w49); void f12342(struct w49); void f12341(struct w49); void f12340(struct w49); struct w49 f12328(struct w49, struct w49); unsigned f12326(struct w49, struct w49); void f12308(struct w49); struct structure_type24753 *f12307(struct w49); void f12303(struct p12302 *, struct w49); void f12301(struct w49); void f12282(struct w49); struct structure_type24753 *f12281(struct w49); void f12277(struct p12276 *, struct w49); void f12275(struct w49); void f12256(struct p12245 *, struct w49); struct structure_type24753 *f12255(struct p12254 *, struct w49); void f12250(struct w49, struct w49); void f12249(struct p12248 *, struct w49); void f12247(struct w49); void f12244(struct w49); void f12227(struct w49); void f12223(struct w49); void f12219(struct w49); void f12208(struct w49); void f12198(struct p12192 *, struct w49); void f12192(struct w49); void f12184(struct p12181 *, struct w49); void f12177(struct w49); void f12168(struct p12146 *, struct w49); void f12167(struct w49); void f12158(struct w49); void f12146(struct w49); void f12138(struct w49); void f12137(struct w49); void f12135(struct w49); void f12125(struct p12119 *, struct w49); void f12119(struct w49); struct w12224 f12116(void); unsigned f12110(struct w49); void f12105(struct p12103 *, struct w49); void f12102(unsigned, struct w49); void f12096(struct w49); void f12075(struct p12057 *, struct w49); void f12073(struct p12057 *, struct w49); void f12057(struct w49); void f12041(struct w49); void f12040(struct w49); void f12026(struct w49); void f12025(struct w49); void f12024(struct w49); void f12023(struct w49); void f12022(struct w49); void f12021(struct w49); void f12020(struct w49); void f12019(struct w49); void f12018(struct w49); void f12017(struct w49); void f12016(struct w49); void f12015(struct w49); void f12014(struct w49); void f12009(struct w49); void f12006(struct w49); void f12005(struct w49); void f12001(struct w49); void f11999(struct w49); void f11938(struct w49); void f11933(struct w49); void f11932(struct w49); void f11909(struct w49); void f11861(struct w49); void f11857(struct w49); void f11803(struct w49); void f11793(struct w49, struct structure_type27745 *, struct w12224, struct w49, struct w16638); void f11784(struct w49); void f11783(struct w49); void f11782(struct w49); void f11779(struct w49); void f11771(struct w49); void f11764(struct w49); void f11762(struct w49); void f11758(struct w49, struct w49); void f11754(struct w49, struct w49); void f11751(struct p11669 *, struct w49); void f11674(struct p11669 *, struct w49, unsigned); void f11669(struct w49); struct w49 f11660(struct w49); struct w12224 f11650(struct w49); struct w12224 f11644(struct w49); struct w12224 f11641(struct w49); struct w12224 f11638(struct w49); struct w12224 f11632(struct w49); struct w16638 f11631(struct w49, struct w49); struct w16638 f11630(struct w49, struct w49); struct w16638 f11621(struct w49, struct w49); struct w16638 f11619(struct w49, struct w49); void f11607(struct w49); void f11588(struct w49); void f11580(struct p11570 *, struct w49); struct w16638 f11574(struct p11572 *, struct w49); void f11570(unsigned, unsigned, unsigned, struct w49); void f11568(struct p11559 *, struct w49); struct w16638 f11559(struct p11619 *, unsigned, unsigned, struct w49); void f11558(struct w49); struct w16638 f11552(struct w49); void f11546(struct p11537 *, struct w49); void f11537(unsigned, unsigned, unsigned, struct w49); void f11515(struct p11499 *, struct w49); void f11498(struct w49); int f11483(struct w49); void f11463(struct w49); void f11457(struct w49); void f11443(struct w49); void f11441(struct w49); void f11415(struct w49); void f11409(struct w49); void f11399(struct w49); void f11397(struct w49); void f11387(struct w49); void f11385(struct w49); void f11379(struct w49); void f11373(struct w49); void f11371(struct w49); void f11365(struct w49); void f11364(struct w49); void f11354(struct w49); void f11350(struct w49); void f11332(struct w49); void f11330(struct w49); void f11324(struct w49); void f11319(struct w49); void f11255(struct w49); void f11176(struct w49); void f11168(struct w49); void f11160(struct w49); void f11152(struct w49); void f11144(struct w49); void f11136(struct w49); void f11121(struct w49); void f11097(struct w49); void f11088(struct w49); void f11083(void); void f11082(struct w49); void f11072(struct w49); void f11061(struct w49); void f11054(struct w49); void f11051(struct w49); struct w49 f11049(struct w49); void f11044(struct w49); void f11041(struct w49); void f11039(struct w49); void f11034(struct w49); void f11032(struct w49); void f11028(void); struct w49 f11025(struct p11003 *, struct w49); unsigned f11023(struct p11003 *, struct w49); void f10998(struct w49); void f10995(struct w49); void f10989(struct w49); void f10983(struct w49); void f10978(struct w49); void f10976(struct w49); void f10973(struct w49); void f10932(struct w49); void f10910(struct w49); void f10900(struct w49); void f10899(struct w49); void f10894(struct w49); void f10888(struct w49); void f10877(void); void f10873(struct w49); void f10752(struct p10746 *, struct w49); void f10746(void); struct w12224 b23499; /* US */ struct w49 b23500; /* W */ struct w49 b23501; /* X */ struct w49 b23502; /* G */ void f10716(void); struct w12224 b23478; /* US */ struct w49 b23479; /* W */ struct w49 b23480; /* X */ struct w49 b23481; /* G */ unsigned b23482; /* P? */ void f10680(struct p10663 *, struct w49, struct w49, struct w49); void f10658(struct p10641 *, struct w49); void f10657(struct p10646 *, struct w49); void f10651(struct p10650 *, struct p7717 *); void f10641(struct structure_type27745 *, struct w49, struct w49, struct w49); void f10640(struct w49); void f10634(struct w49); void f10628(struct w49); void f10623(struct w49); void f10619(struct w49); void f10617(struct w49, struct w49); void f10613(struct w49); void f10604(struct w49, struct w49); unsigned f10572(struct p10570 *, struct w49); struct p10570 *f10570(struct w49, struct w49, struct structure_type27745 *); struct w16638 f10533(struct p10532 *, struct w49); struct p10532 *f10532(struct w49, struct w49, struct structure_type27745 *); struct p10497 *f10497(struct w49, struct w49, struct structure_type27745 *); unsigned f10495(struct w49); unsigned f10489(struct w49); void f10487(struct w49); void f10461(struct w49); void f10458(struct w49); void f10453(void); void f10411(struct p10409 *, struct w49); void f10405(struct w49); void f10404(struct w49); void f10399(void); void f10395(struct p10394 *, struct w49); void f10394(struct w49); void f10384(struct w49); void f10364(struct p10316 *, struct w49); void f10316(struct w49); void f10313(struct w49); void f10310(void); unsigned f10308(struct p10307 *, struct w49); void f10255(struct w49); void f10252(struct w49); void f10251(struct w49); void f10249(struct w49); void f10207(struct w49); void f10204(struct w49); void f10159(struct w49); void f10155(struct w49); void f10117(struct w49); void f10114(struct w49); void f10110(struct w49); void f10070(struct w49); void f10067(struct w49); void f10066(struct w49); void f10065(struct w49); struct structure_type27698 *f10026(struct p9977 *, struct w49); struct structure_type27698 *f9976(struct w49, struct structure_type24753 *, struct w49, char *); struct structure_type24753 *f9969(struct w49, struct structure_type24753 *); struct w49 f9965(struct w49, struct w49); void f9919(struct w49); void f9896(struct w49); unsigned f9887(struct w49); struct structure_type24753 *f9882(struct w49); unsigned f9875(struct w49); unsigned f9872(struct w49); unsigned f9871(struct w49); unsigned f9870(struct w49); struct structure_type27650 *f9869(struct w49); unsigned f9842(struct w49); unsigned f9826(struct w49); unsigned f9808(struct w49); struct w49 f9788(struct w49); struct w49 f9774(struct w49); struct w12224 f9772(struct w49); struct w49 f9769(struct w49); unsigned f9766(struct w49); void f9762(struct w49); unsigned f9758(unsigned, struct w49); struct w12224 f9753(struct w198746, struct w49); unsigned f9751(struct w49); unsigned f9750(struct w49); unsigned f9749(struct w49); unsigned f9748(struct w49); unsigned f9747(struct w49); unsigned f9746(struct w49); unsigned f9745(struct w49, struct w49); unsigned f9744(struct w49); unsigned f9743(struct w49); unsigned f9742(struct w49); unsigned f9741(struct w49); unsigned f9740(struct w49); unsigned f9739(struct w49); int f9734(struct w49); struct w49 f9731(struct w49); struct w49 f9730(struct w49); struct w49 f9729(struct w49); struct w49 f9728(struct w49); struct w49 f9727(struct w49); struct w49 f9726(struct w49); struct w49 f9725(struct w49); struct w49 f9724(struct w49); struct w49 f9723(struct w49); struct w49 f9722(struct w49); struct w49 f9720(struct w49); struct w49 f9719(struct w49); struct structure_type27510 *f9715(struct w49); struct w49 f9713(struct w49); struct w49 f9712(struct w49); void f9707(struct w6315, char *); void f9705(struct w49, char *); struct structure_type27747 *f9690(struct w49); struct structure_type27747 *f9654(struct p9612 *, struct w49); struct structure_type27747 *f9651(struct p9612 *, struct w49); struct structure_type27747 *f9649(struct p9612 *, struct w49); struct structure_type27747 *f9646(struct p9612 *, struct w49); struct structure_type27747 *f9643(struct p9612 *, struct w49); struct structure_type27747 *f9640(struct p9612 *, struct w49); struct w49 f9612(struct w49); struct w16638 f9517(struct p9515 *, struct w49); unsigned f9428(struct w49, struct w49); struct structure_type27747 *f9424(struct w49); struct structure_type27747 *f9423(struct w49); void f9422(struct w49); void f9410(struct w49); unsigned f9390(struct w49); struct w49 f9368(struct w49, struct structure_type27745 *); struct w49 f9367(struct w49, struct structure_type27745 *); struct w9140 f9362(struct w49); struct structure_type27698 *f9359(struct p9176 *, struct w49); void f9358(struct p9356 *, struct w49); struct structure_type27698 *f9354(struct p9176 *, struct w49); void f9353(struct p9351 *, struct w49); unsigned f9286(struct w49); unsigned f9256(struct w49); unsigned f9226(struct w49); struct structure_type27698 *f9176(struct w49, struct structure_type24753 *); struct w30215 f9170(struct p9146 *, struct w49); struct w30215 f9146(struct w49, struct structure_type24753 *); unsigned f9142(struct p9140 *, struct w49); struct w16638 f9140(struct w49, struct w49); void f9104(struct p9082 *, struct w49); void f9102(struct p9082 *, struct w49); void f9084(struct p9082 *, struct w49); void f9081(unsigned, struct w49); struct w16638 f9033(struct p9030 *, struct w49); struct w16638 f9030(struct p9140 *, struct w49); void f9029(struct w49); void f9027(void); void f9026(struct w49); void f9025(struct w49); void f9024(struct w49); void f9023(struct w49); void f9022(struct w49); void f9021(struct w49); void f9020(struct w49); void f9019(struct w49); void f9018(struct w49); void f9017(struct w49); void f9016(struct w49); void f9014(void); unsigned f8999(struct w49, struct w49); struct structure_type24753 *f8992(struct w49); struct structure_type24753 *f8987(struct w49); struct w11873 f8984(struct w49); struct w49 f8976(struct w49); struct w49 f8966(struct w49); struct w49 f8965(struct w49); struct w3457 f8951(struct w49); unsigned f8944(struct w49); unsigned f8931(struct w49); unsigned f8918(struct w49); unsigned f8903(struct w49); struct w16638 f8899(struct w49); struct w16638 f8897(struct w49); void f8886(struct w49); void f8884(void); unsigned f8877(struct w49); void f8868(struct w49); void f8859(struct w49); void f8848(struct w49); void f8846(void); unsigned f8840(struct w49); unsigned f8832(struct w49); unsigned f8818(struct w49); unsigned f8793(struct w49); unsigned f8792(struct w49, struct w49); unsigned f8791(struct w49, struct w49); unsigned f8790(struct w49, struct w49); unsigned f8788(struct w49, struct w49); struct w12224 f8776(struct w49); struct w16638 f8773(struct w49); unsigned f8764(struct w49); unsigned f8755(struct w49); unsigned f8752(struct w49); unsigned f8751(struct w49); struct structure_type27745 *f8743(struct structure_type27745 *, char *); struct structure_type27745 *f8739(struct w49); unsigned f8736(struct w49, struct w49); void f8714(struct w49); void f8712(void); struct w16638 f8705(struct w49, struct w49); unsigned f8698(struct w49, struct w49); int f8694(struct w49); struct w49 f8692(struct w49); struct w49 f8691(struct w49); struct w49 f8687(struct w49); struct w49 f8683(struct w49); struct w49 f8682(struct w49); void f8667(struct w49); struct w49 f8659(struct w49); struct w3457 f8654(struct w49); struct structure_type24753 *f8649(struct w49); struct w3457 f8644(struct w49); struct w49 f8639(struct w49); struct w49 f8634(struct w49); struct w3457 f8629(struct w49); struct w6194 f8624(struct w49); struct w3467 f8619(struct w49); struct structure_type24753 *f8615(struct w49); struct w16638 f8608(struct w49); struct w16638 f8593(struct w49); unsigned f8592(struct w49); struct w16638 f8590(struct w49); unsigned f8585(struct w49); unsigned f8584(struct w49); unsigned f8581(struct w49); void f8570(struct w49); void f8568(void); struct w16638 f8567(struct w49); unsigned f8563(struct w49); unsigned f8558(struct w49); unsigned f8553(struct w49); unsigned f8548(struct w49); unsigned f8543(struct w49); unsigned f8538(struct w49); unsigned f8533(struct w49); unsigned f8528(struct w49); unsigned f8526(struct w49); void f8522(struct w49, unsigned); void f8492(struct w49, unsigned); void f8487(struct w49, unsigned); void f8482(struct w49, unsigned); unsigned f8481(struct w49); void f8477(struct w49, unsigned); unsigned f8476(struct w49); void f8472(struct w49, struct w16638); unsigned f8471(struct w49); struct structure_type27694 *f8468(struct w49, char *); void f8455(struct w49); void f8453(void); unsigned f8452(struct w49); unsigned f8451(struct w49); void f8440(struct w49); void f8438(void); unsigned f8437(struct w49); void f8425(struct w49); void f8423(void); unsigned f8422(struct w49); void f8410(struct w49); void f8408(void); unsigned f8407(struct w49); unsigned f8381(struct w49); unsigned f8372(struct w49); void f8368(struct w49); void f8362(struct p8347 *, struct w49); void f8361(struct p8347 *, struct w49); void f8328(struct p8291 *, struct w49); void f8324(struct p8291 *, struct w49); void f8312(struct w49); void f8309(struct w49); void f8306(struct w49); void f8273(struct w49); void f8272(struct w49); void f8262(struct w49); unsigned f8246(struct w49); struct w12224 f8245(struct w49); struct w12224 f8244(struct w49); struct w12224 f8243(struct w49); unsigned f8236(struct w49); unsigned f8229(struct w49); unsigned f8225(struct w49); struct w16638 f8224(struct w49); void f8220(struct w49, unsigned); unsigned f8219(struct w49); void f8215(struct w49, unsigned); unsigned f8214(struct w49); void f8210(struct w49, unsigned); unsigned f8209(struct w49); void f8205(struct w49, unsigned); unsigned f8204(struct w49); void f8200(struct w49, unsigned); unsigned f8199(struct w49); void f8195(struct w49, unsigned); unsigned f8194(struct w49); struct structure_type27692 *f8188(struct w49); unsigned f8184(struct w49, struct w49); void f8183(struct p8181 *, struct w49); void f8181(struct w49, struct w49); void f8176(struct p8173 *, struct structure_type27657 *); void f8173(struct w211045, struct w49); struct w12224 f8172(struct w211061, struct w49); void f8167(struct structure_type27657 *); struct structure_type24753 *f8162(struct w49); struct w49 f8157(struct w211113, struct w49); struct w49 f8153(struct w49); unsigned f8151(struct w49); struct structure_type27657 *f8149(struct w49); unsigned f8148(struct w49); unsigned f8147(struct w49); unsigned f8146(struct w211225, struct w49); struct w16638 f8144(struct w211235, struct w49); struct w16638 f8140(struct p8137 *, struct structure_type27657 *); struct w16638 f8137(struct w211257, struct w49); void f8133(struct w49, unsigned); void f8128(struct w49, unsigned); unsigned f8127(struct w49); void f8123(struct w49, unsigned); void f8118(struct w49); unsigned f8117(struct w49); void f8113(struct w49, unsigned); unsigned f8112(struct w49); void f8101(struct p8099 *, struct w49); struct structure_type27650 *f8098(struct structure_type24753 *); struct structure_type27650 *f8092(struct w49); void f8091(struct w49); void f8089(struct w49); unsigned f8086(struct w49, struct w49); struct structure_type27657 *f8052(struct structure_type27657 *); struct structure_type27657 *f8048(struct structure_type27657 *); struct structure_type27657 *f8047(struct structure_type27657 *); void f8040(struct w49); unsigned f8033(struct w49, struct w49); void f8008(struct w49, struct structure_type24753 *); struct w3457 f7984(struct w49); unsigned f7960(struct w49); unsigned f7936(struct w49); struct w49 f7931(struct w49); struct w49 f7927(struct w49); struct w49 f7923(struct w49); unsigned f7922(struct w49); unsigned f7921(struct w49); unsigned f7920(struct w49); unsigned f7919(struct w49); unsigned f7918(struct w49); unsigned f7917(struct w49); struct w16638 f7911(struct w49, struct w49, struct w49); struct w16638 f7905(struct p7892 *, struct w49); struct w16638 f7899(struct w49, struct w49, struct w49); struct w16638 f7893(struct p7892 *, struct w49); unsigned f7892(struct w49, struct w49, struct structure_type27745 *); unsigned f7886(struct w49); struct w16638 f7880(struct p7873 *, struct w49); struct w16638 f7874(struct p7873 *, struct w49); unsigned f7873(struct w12224, struct w49, struct structure_type27745 *); unsigned f7849(struct w49); void f7825(struct w49); unsigned f7801(struct w49); unsigned f7777(struct w49); unsigned f7755(struct w49); unsigned f7754(struct w49); unsigned f7741(struct w49); struct w16638 f7739(struct p7738 *, struct w49); struct p7738 *f7738(int); struct w16638 f7737(struct p7736 *, struct w49); struct p7736 *f7736(int); struct w16638 f7735(struct w49); struct w16638 f7731(struct p7730 *, struct w49); struct p7730 *f7730(struct structure_type24753 *); struct w16638 f7721(struct p7720 *, struct w49); struct p7720 *f7720(struct w49, struct structure_type24753 *, struct w49); unsigned f7719(struct w49); unsigned f7718(struct p7717 *, struct w49); struct p7717 *f7717(struct w49); unsigned f7712(struct w49); unsigned f7711(struct p7710 *, struct w49); struct p7710 *f7710(struct w49); unsigned f7709(struct p7708 *, struct w49); struct p7708 *f7708(struct w49); unsigned f7706(struct w49); unsigned f7705(struct p7704 *, struct w49); struct p7704 *f7704(struct w49); unsigned f7703(struct w49); unsigned f7702(struct w49); unsigned f7701(struct w49); unsigned f7700(struct w49); unsigned f7688(struct w49); unsigned f7687(struct w49); unsigned f7685(struct w49); unsigned f7684(struct w49); unsigned f7683(struct w49); unsigned f7682(struct w49); unsigned f7680(struct w49); unsigned f7679(struct w49); unsigned f7678(struct w49); unsigned f7677(struct w49); void f7653(struct w49); void f7629(struct w49); void f7620(struct w49, unsigned); unsigned f7619(struct w49); void f7595(struct w49); unsigned f7594(struct w49); void f7590(struct w49); unsigned f7589(struct w49); void f7585(struct w49, unsigned); void f7575(struct w49, unsigned); unsigned f7574(struct w49); void f7545(struct w49); unsigned f7544(struct w49); void f7540(struct w49); unsigned f7539(struct w49); void f7535(struct w49, unsigned); void f7525(struct w49, unsigned); unsigned f7524(struct w49); void f7495(struct w49); unsigned f7494(struct w49); void f7490(struct w49); unsigned f7489(struct w49); void f7485(struct w49); unsigned f7484(struct w49); void f7480(struct w49, unsigned); void f7475(struct w49, unsigned); void f7465(struct w49, unsigned); unsigned f7464(struct w49); void f7445(struct w49); unsigned f7444(struct w49); void f7440(struct w49); unsigned f7439(struct w49); void f7435(struct w49); unsigned f7434(struct w49); void f7430(struct w49, unsigned); unsigned f7429(struct w49); void f7420(struct w49, unsigned); unsigned f7419(struct w49); void f7390(struct w49, unsigned); void f7380(struct w49, unsigned); unsigned f7379(struct w49); unsigned f7374(struct w49); void f7355(struct w49, unsigned); unsigned f7354(struct w49); unsigned f7339(struct w49); void f7335(struct w49, unsigned); void f7330(struct w49, unsigned); void f7325(struct w49, unsigned); unsigned f7324(struct w49); void f7320(struct w49, unsigned); void f7315(struct w49, unsigned); unsigned f7314(struct w49); void f7300(struct w49); void f7280(struct w49, unsigned); unsigned f7279(struct w49); void f7260(struct w49, unsigned); unsigned f7259(struct w49); void f7235(struct w49, unsigned); unsigned f7234(struct w49); void f7194(struct w49); void f7172(struct p7168 *, struct w49); struct w3467 f7166(struct w49, struct w49); struct w3467 f7155(struct w49, struct structure_type24753 *, struct w49); struct w3467 f7154(struct w49, struct structure_type24753 *, struct w49); void f7146(struct p7145 *, struct w49); void f7145(struct w49, struct w49); struct w3467 f7139(struct w49, struct w49, struct structure_type24753 *, struct w49); struct w3467 f7121(struct w49); struct structure_type27858 *f7110(struct w49); struct structure_type27779 *f7054(struct w49); void f7033(void); unsigned f7032(struct w12218); unsigned f7031(struct w12218); unsigned f7030(struct w12218); struct structure_type27501 *f7028(struct w49, struct w12563, struct w12563, struct w12563); struct structure_type27501 *f7027(struct w49, struct w49); struct structure_type27501 *f7025(struct w49, struct w49); unsigned f7013(struct w49, struct w49); struct w49 f7008(struct w49); struct w49 f7003(struct w49); struct w49 f6998(struct w49); struct w49 f6994(struct w49); unsigned f6984(struct w49); unsigned f6967(struct w49); unsigned f6961(struct w49); void f6957(struct w49, unsigned); unsigned f6956(struct w49); unsigned f6951(struct w49); unsigned f6946(struct w49); unsigned f6941(struct w49); void f6937(struct w49, unsigned); unsigned f6936(struct w49); void f6932(struct w49, unsigned); unsigned f6931(struct w49); void f6927(struct w49, unsigned); unsigned f6926(struct w49); struct structure_type27698 *f6920(struct w49, struct w49, struct w49, struct w49); struct structure_type27698 *f6914(struct w49, struct w49, struct w49); struct structure_type27698 *f6908(struct w49, struct structure_type27694 *, unsigned, struct structure_type27698 *); struct structure_type27698 *f6902(struct w49, struct w9140, unsigned, struct structure_type27698 *); struct structure_type27698 *f6896(struct w49, struct w9140, struct w9296, struct w49); struct structure_type27698 *f6890(struct w49, struct w49); struct structure_type27698 *f6884(struct w49, struct structure_type27698 *, struct structure_type24753 *); struct structure_type27698 *f6878(struct w49, struct w49, struct w12224); struct structure_type27698 *f6872(char *, struct w49, struct w49); struct structure_type27510 *f6868(struct w49); struct structure_type27510 *f6867(struct w49, struct w6194, struct w6194, struct w6194, struct w12224, struct w49); struct structure_type27745 *f6847(struct w49, struct structure_type24753 *); void f6840(struct w49, int); void f6832(struct w49, struct w11873); void f6824(struct w49, struct w49); void f6816(struct w49, struct w11873); void f6808(struct w49, struct w11873); void f6792(struct w49, struct w3457); void f6784(struct w49, struct w3457); void f6776(struct w49, struct w3457); void f6768(struct w49, struct w3457); void f6760(struct w49, struct w49); void f6752(struct w49, struct w12224); void f6744(struct w49, struct w49); void f6736(struct w49, struct structure_type24753 *); void f6728(struct w49, struct structure_type24753 *); void f6720(struct w49, struct w3457); void f6712(struct w49, struct w49); void f6704(struct w49, struct w49); void f6688(struct w49, struct w3457); void f6664(struct w49, struct structure_type24753 *); void f6656(struct w49, char *); char *f6647(struct w49); void f6640(struct w9140, struct structure_type27698 *); void f6622(struct w49, int); void f6614(struct w49, struct w12224); void f6606(struct w49, struct w12224); void f6598(struct w49, struct w12224); void f6590(struct w49, struct w49); void f6582(struct w49, struct w49); struct structure_type27692 *f6515(struct w49, struct w6194, struct w6194, struct w6194, unsigned, struct w49, char *, char *, int); void f6508(struct w49, int); struct w7121 f6499(struct w49); void f6492(struct w49, struct w49); void f6484(struct w49, struct w49); void f6476(struct w49, struct structure_type27657 *); struct structure_type27650 *f6465(struct w49, char *, int, struct w7121, int); void f6458(struct structure_type27657 *, unsigned); void f6450(struct structure_type27657 *, struct structure_type27657 *); void f6442(struct structure_type27657 *, struct structure_type27657 *); struct structure_type27657 *f6423(struct w49, unsigned, struct structure_type27657 *, struct structure_type27657 *, unsigned); void f6416(struct w49, int); void f6384(struct w49, struct w49); void f6366(struct w49, int); void f6326(struct w49, struct w49); void f6318(struct w49, struct w49); void f6310(struct w49, struct w49); void f6300(struct w49, int); void f6260(struct w49, struct w49); void f6252(struct w49, struct w49); void f6244(struct w49, struct w49); void f6234(struct w49, int); void f6194(struct w49, struct w49); void f6186(struct w49, struct w49); void f6178(struct w49, struct w12224); struct w49 f6169(struct w49); void f6160(struct w49, int); void f6120(struct w49, struct w49); void f6112(struct w49, struct w49); void f6102(struct w49, int); void f6086(struct w49, struct w3457); void f6052(struct w49, int); void f5986(struct w49, int); void f5946(struct w49, struct w12224); void f5936(struct w49, int); void f5886(struct w49, int); void f5854(struct w49, struct w49); void f5836(struct w49, int); struct structure_type27501 *f5743(char *, struct w49, struct w49, struct w49, struct w12563, struct w12563, struct w12563); void f5736(struct w49, int); void f5720(struct w49, struct structure_type24753 *); void f5712(struct w49, struct structure_type24753 *); void f5704(struct w49, struct structure_type27673 *); void f5696(struct w49, struct structure_type27858 *); void f5688(struct w49, struct w12224); void f5680(struct w49, struct structure_type27501 *); void f5664(struct w49, struct w12224); void f5656(struct w49, struct w6852); void f5648(struct w49, struct w6852); void f5640(struct w49, struct w6852); void f5632(struct w49, struct w6852); void f5608(struct w49, struct w225099); void f5600(struct w49, struct w11873); void f5576(struct w49, struct w49); void f5568(struct w49, struct w49); struct w49 f5567(struct w49); void f5560(struct w49, struct w49); void f5552(struct w49, struct w49); unsigned f5543(struct w49); struct structure_type27698 *f5485(char *, struct w49, struct w7121, struct w7121, struct w7121, unsigned, char *, char *, char *, struct w49, struct w9140, struct w9296, struct w49, struct w49, struct w49, struct w49, struct w49, struct w49, struct w49, struct w11873, struct w49, char *, int); struct structure_type27747 *f5467(unsigned, struct w49); void f5380(char *, struct structure_type24753 *); void f5376(char *, struct structure_type24753 *); void f5365(struct w49, struct structure_type24753 *); char *f5362(char *); float f4651(void); void f2294(struct structure_type27623 *, struct w49, struct w49); struct w49 f2288(struct structure_type27623 *, struct w49); struct structure_type27623 *f2286(int, unsigned, unsigned, struct w49); void f2279(struct w49, struct w49); struct structure_type27621 *f2268(struct headed_vector_type27896 *, struct w49); struct structure_type27623 *f2226(unsigned, unsigned, unsigned, struct w49, struct structure_type27621 *); void f2186(char *); unsigned f2087(struct w49); char *f2082(char *, char *); struct w49 f2078(struct w49, char *); char *f2069(char *); char *f1999(struct w49); unsigned f1883(char *, char *); struct w49 f1583(unsigned, struct w49); struct w49 f1581(struct w49, unsigned, unsigned); struct w49 f1576(struct w49, struct w49, unsigned, unsigned); struct w49 f1572(struct w49); struct structure_type24753 *f1553(struct p1542 *, struct w49); struct w49 f1549(struct w49); struct structure_type24753 *f1536(unsigned, struct w49); struct structure_type24753 *f1518(struct w49); struct w12224 f1486(struct structure_type24753 *); struct w12224 f1454(struct w21193, struct w12224); struct w12224 f1422(struct structure_type24753 *, struct w12224); struct w49 f1390(struct w49, struct w49); unsigned f1384(struct structure_type24753 *, struct structure_type24753 *); unsigned f1378(struct w3457, struct w3457); int f1370(unsigned, struct w227393); int f1362(struct p11483 *, struct w21193); struct w49 f1314(struct w227506, struct w49); unsigned f1258(struct w49, struct w49); unsigned f1234(struct w49, struct w49); struct w12224 f1226(struct w227671, struct w49); struct w12224 f1218(unsigned, struct w49); struct w12224 f1194(struct w49, struct w49); unsigned f1183(unsigned, struct w11873); struct w49 f1182(struct w49, struct w49); struct w16638 f1178(struct p14552 *, struct w49, struct w49); struct structure_type24753 *f1169(int); struct w49 f1158(struct p1157 *, struct w49); struct headed_vector_type27896 *f1154(unsigned, struct w49); struct w12224 f1149(struct w227957, struct w49); struct w12224 f1144(struct p18442 *, struct w49); struct w49 f1143(struct p1142 *, struct w49); void f1141(unsigned, struct w49); void f1120(unsigned, int); unsigned f1080(struct w228118, struct w227393); struct w49 f1078(struct p1076 *, struct w49); unsigned f1061(struct w228245, struct w49, struct structure_type24753 *); struct w49 f1059(struct p1057 *, struct w49); struct w16638 f1042(struct w228345, struct w49, struct structure_type24753 *); struct w49 f1019(unsigned, struct headed_vector_type27896 *, unsigned); struct w49 f1006(unsigned, struct w49, struct w228463); struct w12224 f1005(struct w49); char *f976(int, int); struct w49 f960(struct w49); void f850(struct p731 *, struct w49); void f841(struct p731 *, struct w49); void f780(struct p731 *, struct w49); void f764(struct p731 *, struct w49); char *f665(unsigned, struct w49, struct w49); char *f644(struct w49); void f642(void) NORETURN; void f0(struct nonheaded_vector_type24736); void initialize_constants0(void); void initialize_constants1(void); void initialize_constants2(void); void initialize_constants3(void); void initialize_constants4(void); void initialize_constants5(void); void initialize_constants6(void); void initialize_constants7(void); void initialize_constants8(void); void initialize_constants9(void); void initialize_constants10(void); void initialize_constants11(void); void initialize_constants12(void); void initialize_constants13(void); void initialize_constants14(void); void initialize_constants15(void); void initialize_constants16(void); void initialize_constants17(void); void initialize_constants18(void); void initialize_constants19(void); void initialize_constants20(void); void initialize_constants21(void); void initialize_constants22(void); void initialize_constants23(void); void initialize_constants24(void); void initialize_constants25(void); void initialize_constants26(void); void initialize_constants27(void); void initialize_constants28(void); void initialize_constants29(void); void initialize_constants30(void); void initialize_constants31(void); void initialize_constants32(void); void initialize_constants33(void); void initialize_constants34(void); void initialize_constants35(void); void initialize_constants36(void); void initialize_constants37(void); void initialize_constants38(void); void initialize_constants39(void); void initialize_constants40(void); void initialize_constants41(void); struct {unsigned length; char element[16];} t1075; struct structure_type24753 t1660; struct structure_type24753 t1661; struct structure_type24753 t1662; struct structure_type24753 t1663; struct structure_type24753 t1664; struct structure_type24753 t1665; struct structure_type24753 t1666; struct structure_type24753 t1667; struct structure_type24753 t1668; struct structure_type24753 t1669; struct structure_type24753 t1670; struct structure_type24753 t1671; struct structure_type24753 t1672; struct structure_type24753 t1673; struct structure_type24753 t1674; struct structure_type24753 t1675; char *q0 = "CLOSE"; char *q1 = "LIST"; char *q2 = "-"; char *q3 = "-."; char *q4 = "+"; char *q5 = "+."; char *q6 = "VECTOR"; char *q7 = "OBJECT"; char *q8 = "UNQUOTE"; char *q9 = "UNQUOTE-SPLICING"; char *q10 = "QUASIQUOTE"; char *q11 = "QUOTE"; char *q12 = "CODE"; char *q13 = "INCLUDE"; char *q14 = "DOUBLE"; char *q15 = "BASELINE"; char *q16 = "CONVENTIONAL"; char *q17 = "LIGHTWEIGHT"; char *q18 = "IMMEDIATE-FLAT"; char *q19 = "INDIRECT-FLAT"; char *q20 = "IMMEDIATE-DISPLAY"; char *q21 = "INDIRECT-DISPLAY"; char *q22 = "LINKED"; char *q23 = "P1"; char *q24 = "P2"; char *q25 = "P3"; char *q26 = "P4"; char *q27 = "P5"; char *q28 = "P6"; char *q29 = "EXPOSE"; char *q30 = "USER"; char *q31 = "BUTTONPRESS"; char *q32 = "SYSTEM"; char *q33 = "XIMAGEP"; char *q34 = "UNUSED"; char *q35 = "UNSPECIFIED"; char *q36 = "CALL"; char *q37 = "CONVERTED-CALL"; char *q38 = "ACCESS"; char *q39 = "LAMBDA"; char *q40 = "CONVERTED-LAMBDA"; char *q41 = "CONVERTED-CONTINUATION"; char *q42 = "SET!"; char *q43 = "IF"; char *q44 = "MUTEX"; char *q45 = "FORK"; char *q46 = "ACCESSOR"; char *q47 = "DISCARD"; char *q48 = "RETURN"; char *q49 = "ANTECEDENT"; char *q50 = "PAIR-CONSTANT"; char *q51 = "PAIR"; char *q52 = "VECTOR-CONSTANT"; char *q53 = "NULL"; char *q54 = "TRUE"; char *q55 = "FALSE"; char *q56 = "CHAR"; char *q57 = "FIXNUM"; char *q58 = "FLONUM"; char *q59 = "RECTANGULAR"; char *q60 = "INPUT-PORT"; char *q61 = "OUTPUT-PORT"; char *q62 = "EOF-OBJECT"; char *q63 = "POINTER"; char *q64 = "FIRST-ARGUMENT"; char *q65 = "SECOND-ARGUMENT"; char *q66 = "CALL-WITH-CURRENT-CONTINUATION"; char *q67 = "CONTINUATION-ARGUMENT"; char *q68 = "NULL-CONSTANT"; char *q69 = "TRUE-CONSTANT"; char *q70 = "FALSE-CONSTANT"; char *q71 = "CHAR-CONSTANT"; char *q72 = "FIXNUM-CONSTANT"; char *q73 = "FLONUM-CONSTANT"; char *q74 = "RECTANGULAR-CONSTANT"; char *q75 = "STRING-CONSTANT"; char *q76 = "SYMBOL-CONSTANT"; char *q77 = "PRIMITIVE-PROCEDURE"; char *q78 = "FOREIGN-PROCEDURE"; char *q79 = "APPLY"; char *q80 = "VOID*"; char *q81 = "FILE*"; char *q82 = "CHAR*"; char *q83 = "LONG-DOUBLE"; char *q84 = "FLOAT"; char *q85 = "UNSIGNED-LONG"; char *q86 = "LONG"; char *q87 = "UNSIGNED"; char *q88 = "INT"; char *q89 = "UNSIGNED-SHORT"; char *q90 = "SHORT"; char *q91 = "UNSIGNED-CHAR"; char *q92 = "SIGNED-CHAR"; char *q93 = "NO-RETURN"; char *q94 = "VOID"; char *q95 = "ELSE"; char *q96 = "=>"; char *q97 = "DEFINE"; char *q98 = "MAKE-STRUCTURE"; char *q99 = "STRUCTURE-REF"; char *q100 = "STRUCTURE-SET!"; char *q101 = "STRUCTURE?"; char *q102 = "NOT"; char *q103 = "BOOLEAN?"; char *q104 = "EQ?"; char *q105 = "PAIR?"; char *q106 = "CONS"; char *q107 = "CAR"; char *q108 = "CDR"; char *q109 = "SET-CAR!"; char *q110 = "SET-CDR!"; char *q111 = "NULL?"; char *q112 = "SYMBOL?"; char *q113 = "SYMBOL->STRING"; char *q114 = "STRING->UNINTERNED-SYMBOL"; char *q115 = "NUMBER?"; char *q116 = "REAL?"; char *q117 = "INTEGER?"; char *q118 = "EXACT?"; char *q119 = "INEXACT?"; char *q120 = "="; char *q121 = "<"; char *q122 = ">"; char *q123 = "<="; char *q124 = ">="; char *q125 = "ZERO?"; char *q126 = "POSITIVE?"; char *q127 = "NEGATIVE?"; char *q128 = "MAX"; char *q129 = "MIN"; char *q130 = "*"; char *q131 = "/"; char *q132 = "QUOTIENT"; char *q133 = "REMAINDER"; char *q134 = "<<"; char *q135 = ">>"; char *q136 = "BITWISE-NOT"; char *q137 = "BITWISE-AND"; char *q138 = "BITWISE-OR"; char *q139 = "BITWISE-XOR"; char *q140 = "FLOOR"; char *q141 = "CEILING"; char *q142 = "TRUNCATE"; char *q143 = "ROUND"; char *q144 = "EXP"; char *q145 = "LOG"; char *q146 = "SIN"; char *q147 = "COS"; char *q148 = "TAN"; char *q149 = "ASIN"; char *q150 = "ACOS"; char *q151 = "ATAN"; char *q152 = "SQRT"; char *q153 = "EXPT"; char *q154 = "EXACT->INEXACT"; char *q155 = "INEXACT->EXACT"; char *q156 = "CHAR?"; char *q157 = "CHAR->INTEGER"; char *q158 = "INTEGER->CHAR"; char *q159 = "STRING?"; char *q160 = "MAKE-STRING"; char *q161 = "STRING"; char *q162 = "STRING-LENGTH"; char *q163 = "STRING-REF"; char *q164 = "STRING-SET!"; char *q165 = "VECTOR?"; char *q166 = "MAKE-VECTOR"; char *q167 = "MAKE-DISPLACED-VECTOR"; char *q168 = "VECTOR-LENGTH"; char *q169 = "VECTOR-REF"; char *q170 = "VECTOR-SET!"; char *q171 = "PROCEDURE?"; char *q172 = "INPUT-PORT?"; char *q173 = "OUTPUT-PORT?"; char *q174 = "OPEN-INPUT-FILE"; char *q175 = "OPEN-OUTPUT-FILE"; char *q176 = "CLOSE-INPUT-PORT"; char *q177 = "CLOSE-OUTPUT-PORT"; char *q178 = "EOF-OBJECT?"; char *q179 = "PANIC"; char *q180 = "POINTER?"; char *q181 = "INTEGER->STRING"; char *q182 = "INTEGER->INPUT-PORT"; char *q183 = "INTEGER->OUTPUT-PORT"; char *q184 = "INTEGER->POINTER"; char *q185 = "NEVER"; char *q186 = "STACK"; char *q187 = "HEAP"; char *q188 = "UP"; char *q189 = "EXTERNAL-SYMBOL"; char *q190 = "NATIVE-PROCEDURE"; char *q191 = "CONTINUATION"; char *q192 = "LIST+"; char *q193 = "HEADED-VECTOR"; char *q194 = "NONHEADED-VECTOR"; char *q195 = "DISPLACED-VECTOR"; char *q196 = "LIST*"; char *q197 = "UNION"; char *q198 = "THE"; char *q199 = "C:DECLARATION"; char *q200 = "C:PROTECT"; char *q201 = "C:NO-RETURN"; char *q202 = "FOO"; char *q203 = "VOID1"; char *q204 = "VOID2"; char *q205 = "VOID3"; char *q206 = "VOID4"; char *q207 = "VOID5"; char *q208 = "VOID6"; char *q209 = "VOID7"; char *q210 = "VOID8"; char *q211 = "VOID9"; char *q212 = "VOID10"; char *q213 = "VOID11"; char *q214 = "VOID12"; char *q215 = "VOID13"; char *q216 = "VOID14"; char *q217 = "VOID15"; char *q218 = "VOID16"; char *q219 = "VOID17"; char *q220 = "VOID18"; char *q221 = "VOID19"; char *q222 = "VOID20"; char *q223 = "VOID21"; char *q224 = "VOID22"; char *q225 = "VOID23"; char *q226 = "VOID24"; char *q227 = "READ-CHAR1"; char *q228 = "VOID25"; char *q229 = "PEEK-CHAR1"; char *q230 = "VOID26"; char *q231 = "CHAR-READY?1"; char *q232 = "STANDARD-INPUT-PORT"; char *q233 = "STANDARD-OUTPUT-PORT"; char *q234 = "WRITE-CHAR2"; char *q235 = "CLOCKS-PER-SECOND"; char *q236 = "RAND-MAX"; char *q237 = "POINTER-SIZE"; char *q238 = "INFINITY?"; char *q239 = "BEGIN"; char *q240 = "COND"; char *q241 = "OR"; char *q242 = "LET"; char *q243 = "CASE"; char *q244 = "AND"; char *q245 = "LETREC"; char *q246 = "LET*"; char *q247 = "DO"; char *q248 = "DELAY"; char *q249 = "PROC"; char *q250 = "RESULT-READY?"; char *q251 = "RESULT"; char *q252 = "X"; char *q253 = "READ"; char *q254 = "PORT"; char *q255 = "CURRENT-INPUT-PORT"; char *q256 = "DOT"; char *q257 = "STRING-COPY"; char *q258 = "STATE"; char *q259 = "READ-EXACT-BINARY-INTEGER"; char *q260 = "N"; char *q261 = "C"; char *q262 = "PEEK-CHAR"; char *q263 = "CHAR=?"; char *q264 = "READ-CHAR"; char *q265 = "READ-EXACT-OCTAL-INTEGER"; char *q266 = "CHAR>=?"; char *q267 = "CHAR<=?"; char *q268 = "READ-EXACT-DECIMAL-INTEGER"; char *q269 = "CHAR-NUMERIC?"; char *q270 = "READ-EXACT-HEXADECIMAL-INTEGER"; char *q271 = "READ-INEXACT-NUMBER"; char *q272 = "M"; char *q273 = "C1"; char *q274 = "C2"; char *q275 = "C3"; char *q276 = "READ-NUMBER"; char *q277 = "CHAR-INITIAL?"; char *q278 = "CHAR-ALPHABETIC?"; char *q279 = "CHAR-SUBSEQUENT?"; char *q280 = "READ-SYMBOL"; char *q281 = "S"; char *q282 = "STRING->SYMBOL"; char *q283 = "LIST->STRING"; char *q284 = "LIST-REVERSE"; char *q285 = "CHAR-UPCASE"; char *q286 = "LOOKUP-CHARACTER-NAME"; char *q287 = "LOOP"; char *q288 = "NAMES"; char *q289 = "LOOP?"; char *q290 = "NAME"; char *q291 = "CHAR-CI=?"; char *q292 = "READ-CHARACTER-NAME"; char *q293 = "CHAR-WHITESPACE?"; char *q294 = "E"; char *q295 = "E1"; char *q296 = "E2"; char *q297 = "C4"; char *q298 = "CHAR?"; char *q300 = "C5"; char *q301 = "LIST->VECTOR"; char *q302 = "BUFFER"; char *q303 = "THE-CURRENT-INPUT-PORT"; char *q304 = "THE-CURRENT-OUTPUT-PORT"; char *q305 = "WRITE-METHODS"; char *q306 = "DISPLAY-METHODS"; char *q307 = "DISPLAY-STRING2"; char *q308 = "I"; char *q309 = "DISPLAY-EXACT-INTEGER2"; char *q310 = "NUMBER"; char *q311 = "DISPLAY-MANTISSA-EXPONENT2"; char *q312 = "MANTISSA"; char *q313 = "EXPONENT"; char *q314 = "FLOAT-DIGIT"; char *q315 = "DIGIT"; char *q316 = "DISPLAY-INEXACT-REAL2"; char *q317 = "WRITE2"; char *q318 = "OBJ"; char *q319 = "DISPLAY2"; char *q320 = "NUMBER->STRING"; char *q321 = "OPTIONAL-RADIX"; char *q322 = "RADIX-EXACT"; char *q323 = "PROBABLY-RADIX"; char *q324 = "RADIX-INEXACT"; char *q325 = "RADIX-INVERTED"; char *q326 = "HEX-DIGIT->CHAR"; char *q327 = "MANTISSA-EXPONENT->CHARACTERS"; char *q328 = "CHARACTERS"; char *q329 = "STRING->NUMBER"; char *q330 = "L"; char *q331 = "NEGATE"; char *q332 = "PARSE-EXACT-BINARY-INTEGER"; char *q333 = "PARSE-EXACT-OCTAL-INTEGER"; char *q334 = "PARSE-EXACT-DECIMAL-INTEGER"; char *q335 = "PARSE-EXACT-HEXADECIMAL-INTEGER"; char *q336 = "PARSE-INEXACT-NUMBER"; char *q337 = "K"; char *q338 = "PARSE-NUMBER"; char *q339 = "CURRENT-OUTPUT-PORT"; char *q340 = "WITH-INPUT-FROM-FILE"; char *q341 = "THUNK"; char *q342 = "SAVED-INPUT-PORT"; char *q343 = "CALL-WITH-INPUT-FILE"; char *q344 = "WITH-OUTPUT-TO-FILE"; char *q345 = "SAVED-OUTPUT-PORT"; char *q346 = "CALL-WITH-OUTPUT-FILE"; char *q347 = "&REST"; char *q348 = "CHAR-READY?"; char *q349 = "WRITE"; char *q350 = "DISPLAY"; char *q351 = "NEWLINE"; char *q352 = "WRITE-CHAR"; char *q353 = "DEFINE-WRITE-METHOD"; char *q354 = "TYPE?"; char *q355 = "METHOD"; char *q356 = "DEFINE-DISPLAY-METHOD"; char *q357 = "ARGV"; char *q358 = "EQV?"; char *q359 = "OBJ1"; char *q360 = "OBJ2"; char *q361 = "EQUAL?"; char *q362 = "STRING=?"; char *q363 = "CAAR"; char *q364 = "CADR"; char *q365 = "CDAR"; char *q366 = "CDDR"; char *q367 = "CAAAR"; char *q368 = "CAADR"; char *q369 = "CADAR"; char *q370 = "CADDR"; char *q371 = "CDAAR"; char *q372 = "CDADR"; char *q373 = "CDDAR"; char *q374 = "CDDDR"; char *q375 = "CAAAAR"; char *q376 = "CAAADR"; char *q377 = "CAADAR"; char *q378 = "CAADDR"; char *q379 = "CADAAR"; char *q380 = "CADADR"; char *q381 = "CADDAR"; char *q382 = "CADDDR"; char *q383 = "CDAAAR"; char *q384 = "CDAADR"; char *q385 = "CDADAR"; char *q386 = "CDADDR"; char *q387 = "CDDAAR"; char *q388 = "CDDADR"; char *q389 = "CDDDAR"; char *q390 = "CDDDDR"; char *q391 = "LIST?"; char *q392 = "SLOW"; char *q393 = "FAST"; char *q394 = "OBJS"; char *q395 = "LIST-LENGTH"; char *q396 = "LENGTH"; char *q397 = "SUBLIST"; char *q398 = "START"; char *q399 = "END"; char *q400 = "SUB"; char *q401 = "SUBSTRING"; char *q402 = "SUBVECTOR"; char *q403 = "LIST-APPEND"; char *q404 = "LISTS"; char *q405 = "LIST1"; char *q406 = "LIST2"; char *q407 = "APPEND"; char *q408 = "SS"; char *q409 = "R"; char *q410 = "STRINGS"; char *q411 = "VECTORS"; char *q412 = "REVERSE"; char *q413 = "STRING-REVERSE"; char *q414 = "VECTOR-REVERSE"; char *q415 = "LIST-TAIL"; char *q416 = "LIST-REF"; char *q417 = "REF"; char *q418 = "MEMQ"; char *q419 = "MEMV"; char *q420 = "MEMBER"; char *q421 = "ASSQ"; char *q422 = "ALIST"; char *q423 = "ASSV"; char *q424 = "ASSOC"; char *q425 = "LIST-SET!"; char *q426 = "REF!"; char *q427 = "LIST-FILL!"; char *q428 = "FILL!"; char *q429 = "STRING-FILL!"; char *q430 = "VECTOR-FILL!"; char *q431 = "LIST-COPY"; char *q432 = "COPY"; char *q433 = "VECTOR-COPY"; char *q434 = "SYMBOL"; char *q435 = "PACKAGE"; char *q436 = "FOUND"; char *q437 = "COMPLEX?"; char *q438 = "RATIONAL?"; char *q439 = "Z"; char *q440 = "Z1"; char *q441 = "Z2"; char *q442 = "ZS"; char *q443 = "X1"; char *q444 = "X2"; char *q445 = "XS"; char *q446 = "ODD?"; char *q447 = "EVEN?"; char *q448 = "ABS"; char *q449 = "N1"; char *q450 = "N2"; char *q451 = "MODULO"; char *q452 = "GCD"; char *q453 = "NS"; char *q454 = "P?"; char *q455 = "LCM"; char *q456 = "Y"; char *q457 = "CHAR1"; char *q458 = "CHAR2"; char *q459 = "CHARS"; char *q460 = "CHAR-CI?"; char *q462 = "CHAR-CI<=?"; char *q463 = "CHAR-CI>=?"; char *q464 = "CHAR-UPPER-CASE?"; char *q465 = "LETTER"; char *q466 = "CHAR-LOWER-CASE?"; char *q467 = "CHAR-DOWNCASE"; char *q468 = "STRING1"; char *q469 = "STRING2"; char *q470 = "STRING-CI=?"; char *q471 = "STRING?"; char *q473 = "STRING<=?"; char *q474 = "STRING>=?"; char *q475 = "STRING-CI?"; char *q477 = "STRING-CI<=?"; char *q478 = "STRING-CI>=?"; char *q479 = "STRING-APPEND"; char *q480 = "STRING->LIST"; char *q481 = "FILL"; char *q482 = "K1"; char *q483 = "K2"; char *q484 = "VECTOR->LIST"; char *q485 = "VECTOR-APPEND"; char *q486 = "ARG1"; char *q487 = "ARGS"; char *q488 = "MAP"; char *q489 = "FOR-EACH"; char *q490 = "FORCE"; char *q491 = "PROMISE"; char *q492 = "FILENAME"; char *q493 = "WHEN"; char *q494 = "UNLESS"; char *q495 = "FUNCTION"; char *q496 = "STRUCT"; char *q497 = "UNSIGNED-INT"; char *q498 = "FOREIGN-FUNCTION"; char *q499 = "FOREIGN-DEFINE"; char *q500 = "IN-PACKAGE"; char *q501 = "DEFINE-STRUCTURE"; char *q502 = "P"; char *q503 = "UPON-FAILURE"; char *q504 = "WHILE"; char *q505 = "EITHER"; char *q506 = "FAIL"; char *q507 = "A-BOOLEAN"; char *q508 = "FOR-EFFECTS"; char *q509 = "ONE-VALUE"; char *q510 = "V"; char *q511 = "LOCAL-ONE-VALUE"; char *q512 = "*FAIL?*"; char *q513 = "ALL-VALUES"; char *q514 = "POSSIBLY?"; char *q515 = "NECESSARILY?"; char *q516 = "LOCAL-SET!"; char *q517 = "LAZY"; char *q518 = "DEFINE-TOGGLE-BUTTON"; char *q519 = "DEFINE-BUTTON"; char *q520 = "REDRAW-BUTTONS"; char *q521 = "DEFINE-RADIO-BUTTONS"; char *q522 = "DEFINE-CYCLE-BUTTON"; char *q523 = "FUCK-UP"; char *q524 = "DEFINE-INTEGER-RANGE-BUTTONS"; char *q525 = "ABORT"; char *q526 = "DEFINE-DISPLAY-PANE-APPLICATION"; char *q527 = "ARGUMENTS"; char *q528 = "STALIN?"; char *q529 = "DISPLAY-PANE-WIDTH"; char *q530 = "DISPLAY-PANE-HEIGHT"; char *q531 = "PRE-INITIALIZE-PROCEDURE"; char *q532 = "POST-INITIALIZE-PROCEDURE"; char *q533 = "FINALIZE-PROCEDURE"; char *q534 = "REDRAW-PROCEDURE"; char *q535 = "*POST-INITIALIZE-PROCEDURE*"; char *q536 = "*TRANSCRIPT-PANE*"; char *q537 = "*ECHO-PANE*"; char *q538 = "*STATUS-PANE*"; char *q539 = "*MESSAGE-PANE*"; char *q540 = "*DISPLAY*"; char *q541 = "XOPENDISPLAY"; char *q542 = "*DISPLAY-NAME*"; char *q543 = "FORMAT"; char *q544 = "XDISPLAYNAME"; char *q545 = "*SCREEN*"; char *q546 = "XDEFAULTSCREEN"; char *q547 = "*ROOT-WINDOW*"; char *q548 = "XROOTWINDOW"; char *q549 = "*BUTTON-WIDTH*"; char *q550 = "*BUTTON-HEIGHT*"; char *q551 = "*WHITE-PIXEL*"; char *q552 = "XWHITEPIXEL"; char *q553 = "*BLACK-PIXEL*"; char *q554 = "XBLACKPIXEL"; char *q555 = "*BACKGROUND*"; char *q556 = "XALLOCNAMEDCOLOR"; char *q557 = "XDEFAULTCOLORMAP"; char *q558 = "*BACKGROUND-COLOR*"; char *q559 = "FIRST"; char *q560 = "*FOREGROUND*"; char *q561 = "*FOREGROUND-COLOR*"; char *q562 = "*ROMAN-FONT*"; char *q563 = "XLOADQUERYFONT"; char *q564 = "*ROMAN-FONT-NAME*"; char *q565 = "*BOLD-FONT*"; char *q566 = "*BOLD-FONT-NAME*"; char *q567 = "*ROMAN-HEIGHT*"; char *q568 = "XFONTSTRUCT-ASCENT"; char *q569 = "XFONTSTRUCT-DESCENT"; char *q570 = "*BOLD-HEIGHT*"; char *q571 = "*TEXT-HEIGHT*"; char *q572 = "*ROMAN-BASELINE*"; char *q573 = "*BOLD-BASELINE*"; char *q574 = "*TEXT-BASELINE*"; char *q575 = "*DISPLAY-PANE-WIDTH*"; char *q576 = "*DISPLAY-PANE-HEIGHT*"; char *q577 = "*WHO-LINE-HEIGHT*"; char *q578 = "*WINDOW*"; char *q579 = "XCREATESIMPLEWINDOW"; char *q580 = "*WINDOW-POSITION-X*"; char *q581 = "*WINDOW-POSITION-Y*"; char *q582 = "XCOLOR-PIXEL"; char *q583 = "SECOND"; char *q584 = "XSTORENAME"; char *q585 = "*PROGRAM*"; char *q586 = "XSETICONNAME"; char *q587 = "*DISPLAY-PANE*"; char *q588 = "XSELECTINPUT"; char *q589 = "BIT-OR"; char *q590 = "EXPOSUREMASK"; char *q591 = "POINTERMOTIONMASK"; char *q592 = "BUTTONPRESSMASK"; char *q593 = "BUTTONRELEASEMASK"; char *q594 = "KEYPRESSMASK"; char *q595 = "*THIN-GC*"; char *q596 = "XCREATEGC"; char *q597 = "MAKE-XGCVALUES"; char *q598 = "XSETBACKGROUND"; char *q599 = "XSETFOREGROUND"; char *q600 = "XSETLINEATTRIBUTES"; char *q601 = "LINESOLID"; char *q602 = "CAPROUND"; char *q603 = "JOINROUND"; char *q604 = "*THIN-FLIPPING-GC*"; char *q605 = "XSETFUNCTION"; char *q606 = "GXXOR"; char *q607 = "*MEDIUM-GC*"; char *q608 = "*MEDIUM-FLIPPING-GC*"; char *q609 = "*THICK-GC*"; char *q610 = "*THICK-FLIPPING-GC*"; char *q611 = "*DASHED-GC*"; char *q612 = "LINEONOFFDASH"; char *q613 = "*DASHED-FLIPPING-GC*"; char *q614 = "*ROMAN-GC*"; char *q615 = "XSETFONT"; char *q616 = "XFONTSTRUCT-FID"; char *q617 = "*BOLD-GC*"; char *q618 = "*BOLD-FLIPPING-GC*"; char *q619 = "*LIGHT-GRAY*"; char *q620 = "*LIGHT-GRAY-GC*"; char *q621 = "*GRAY*"; char *q622 = "*GRAY-GC*"; char *q623 = "*RED*"; char *q624 = "*RED-GC*"; char *q625 = "*DARK-RED*"; char *q626 = "*DARK-RED-GC*"; char *q627 = "*GREEN*"; char *q628 = "*GREEN-GC*"; char *q629 = "*DARK-GREEN*"; char *q630 = "*DARK-GREEN-GC*"; char *q631 = "*BLUE*"; char *q632 = "*BLUE-GC*"; char *q633 = "*YELLOW*"; char *q634 = "*YELLOW-GC*"; char *q635 = "*VIOLET*"; char *q636 = "*VIOLET-GC*"; char *q637 = "*ORANGE*"; char *q638 = "*ORANGE-GC*"; char *q639 = "*DARK-ORANGE*"; char *q640 = "*DARK-ORANGE-GC*"; char *q641 = "*COLOR-GC*"; char *q642 = "*WINDOW-METHODS*"; char *q643 = "*ABORT-BUTTON*"; char *q644 = "*ABORT-KEY*"; char *q645 = "*COMTAB*"; char *q646 = "*HELP*"; char *q647 = "DEFINE-KEY"; char *q648 = "CONTROL"; char *q649 = "HELP-COMMAND"; char *q650 = "HELP-SCROLL-DOWN-LINE-COMMAND"; char *q651 = "HELP-SCROLL-UP-LINE-COMMAND"; char *q652 = "HELP-SCROLL-DOWN-PAGE-COMMAND"; char *q653 = "META"; char *q654 = "HELP-SCROLL-UP-PAGE-COMMAND"; char *q655 = "HELP-SCROLL-BEGINNING-COMMAND"; char *q656 = "HELP-SCROLL-END-COMMAND"; char *q657 = "*HELP-COMTAB*"; char *q658 = "*PREFIX*"; char *q659 = "*STATUS*"; char *q660 = "*MESSAGE*"; char *q661 = "*REDRAW-PROCEDURE*"; char *q662 = "*BUTTONS*"; char *q663 = "*PAUSE?*"; char *q664 = "*HELP?*"; char *q665 = "*CLEAR-DISPLAY-PANE?*"; char *q666 = "HINTS"; char *q667 = "MAKE-XWMHINTS"; char *q668 = "SET-XWMHINTS-INPUT!"; char *q669 = "SET-XWMHINTS-FLAGS!"; char *q670 = "INPUTHINT"; char *q671 = "XSETWMHINTS"; char *q672 = "MAKE-XSIZEHINTS"; char *q673 = "*WINDOW-POSITION?*"; char *q674 = "SET-XSIZEHINTS-X!"; char *q675 = "SET-XSIZEHINTS-Y!"; char *q676 = "SET-XSIZEHINTS-MIN_WIDTH!"; char *q677 = "SET-XSIZEHINTS-MAX_WIDTH!"; char *q678 = "SET-XSIZEHINTS-MIN_HEIGHT!"; char *q679 = "SET-XSIZEHINTS-MAX_HEIGHT!"; char *q680 = "SET-XSIZEHINTS-FLAGS!"; char *q681 = "USPOSITION"; char *q682 = "PPOSITION"; char *q683 = "PMINSIZE"; char *q684 = "PMAXSIZE"; char *q685 = "XSETWMNORMALHINTS"; char *q686 = "SET-WINDOW-METHOD!"; char *q687 = "REDRAW-DISPLAY-PANE"; char *q688 = "REGION-HANDLER"; char *q689 = "REDRAW-TRANSCRIPT-PANE"; char *q690 = "REDRAW-ECHO-PANE"; char *q691 = "KILL-APPLICATION"; char *q692 = "XFREEGC"; char *q693 = "XFREECOLORS"; char *q694 = "UNSIGNED-LIST->UNSIGNEDA"; char *q695 = "XUNLOADFONT"; char *q696 = "XDESTROYWINDOW"; char *q697 = "XCLOSEDISPLAY"; char *q698 = "XMAPSUBWINDOWS"; char *q699 = "XMAPRAISED"; char *q700 = "PROCESS-EVENTS"; char *q701 = "DEFINE-APPLICATION"; char *q702 = "TRANSCRIPT-LINES"; char *q703 = "BUTTON-ROWS"; char *q704 = "BUTTON-COLUMNS"; char *q705 = "BUTTON-WIDTH"; char *q706 = "WIDTH"; char *q707 = "LISTENER-PROCEDURE"; char *q708 = "*TRANSCRIPT-PANE-HEIGHT*"; char *q709 = "*ECHO-PANE-HEIGHT*"; char *q710 = "*STATUS-PANE-WIDTH*"; char *q711 = "XTEXTWIDTH"; char *q712 = "*TRANSCRIPT*"; char *q713 = "*INPUT*"; char *q714 = "*INPUT-POSITION*"; char *q715 = "HELP"; char *q716 = "CHARACTER"; char *q717 = "ECHO-PANE-INSERT-CHARACTER-COMMAND"; char *q718 = "ECHO-PANE-BEGINNING-OF-LINE-COMMAND"; char *q719 = "ECHO-PANE-BACKWARD-CHAR-COMMAND"; char *q720 = "ECHO-PANE-DELETE-CHAR-COMMAND"; char *q721 = "ECHO-PANE-END-OF-LINE-COMMAND"; char *q722 = "ECHO-PANE-FORWARD-CHAR-COMMAND"; char *q723 = "ECHO-PANE-KILL-LINE-COMMAND"; char *q724 = "DELETE"; char *q725 = "ECHO-PANE-BACKWARD-DELETE-CHAR-COMMAND"; char *q726 = "ECHO-PANE-BACKWARD-WORD-COMMAND"; char *q727 = "ECHO-PANE-KILL-WORD-COMMAND"; char *q728 = "ECHO-PANE-FORWARD-WORD-COMMAND"; char *q729 = "ECHO-PANE-BACKWARD-KILL-WORD-COMMAND"; char *q730 = "HEIGHT"; char *q731 = "REDRAW-STATUS-PANE"; char *q732 = "REDRAW-MESSAGE-PANE"; char *q733 = "DEFINE-COMMAND"; char *q734 = "STRING-ARGUMENT"; char *q735 = "USAGE"; char *q736 = "INTEGER-ARGUMENT"; char *q737 = "INTEGER"; char *q738 = "REAL-ARGUMENT"; char *q739 = "REAL"; char *q740 = "PROGRAM"; char *q741 = "OPTIONAL"; char *q742 = "REST"; char *q743 = "REQUIRED"; char *q744 = "ANY-NUMBER"; char *q745 = "AT-LEAST-ONE"; char *q746 = "AT-MOST-ONE"; char *q747 = "EXACTLY-ONE"; char *q748 = "PARALLEL-BEGIN"; char *q749 = "PARALLEL-CALL"; char *q750 = "PARALLEL-DO"; char *q751 = "MUTEX-BEGIN"; char *q752 = "DEFINE-PRIMITIVE-PROCEDURE"; char *q753 = "*PRIMITIVE-PROCEDURE-HANDLERS*"; char *q754 = "MAKE-PRIMITIVE-PROCEDURE"; char *q755 = "U0"; char *q756 = "W0"; char *q757 = "PROPAGATE-RESULT!"; char *q758 = "PROPAGATE-TYPE-PREDICATE!"; char *q759 = "WS"; char *q760 = "W"; char *q761 = "W1"; char *q762 = "W2"; char *q763 = "W3"; char *q764 = "TS"; char *q765 = "T"; char *q766 = "COMPILE-TYPE-PREDICATE"; char *q767 = "T0"; char *q768 = "T1"; char *q769 = "T2"; char *q770 = "T3"; char *q771 = "NIL"; char *q772 = "NULL-TYPE"; char *q773 = "TRUE-TYPE"; char *q774 = "FALSE-TYPE"; char *q775 = "CHAR-TYPE"; char *q776 = "FIXNUM-TYPE"; char *q777 = "FLONUM-TYPE"; char *q778 = "RECTANGULAR-TYPE"; char *q779 = "INPUT-PORT-TYPE"; char *q780 = "OUTPUT-PORT-TYPE"; char *q781 = "EOF-OBJECT-TYPE"; char *q782 = "POINTER-TYPE"; char *q783 = "INTERNAL-SYMBOL-TYPE"; char *q784 = "EXTERNAL-SYMBOL-TYPE"; char *q785 = "PRIMITIVE-PROCEDURE-TYPE"; char *q786 = "NATIVE-PROCEDURE-TYPE"; char *q787 = "FOREIGN-PROCEDURE-TYPE"; char *q788 = "CONTINUATION-TYPE"; char *q789 = "STRING-TYPE"; char *q790 = "STRUCTURE-TYPE"; char *q791 = "HEADED-VECTOR-TYPE"; char *q792 = "NONHEADED-VECTOR-TYPE"; char *q793 = "DISPLACED-VECTOR-TYPE"; char *q794 = "STATIC-COUNTS"; struct structure_type24753 t9715; struct structure_type24753 t9716; struct structure_type24753 t9717; struct structure_type24753 t9718; struct structure_type24753 t9719; struct structure_type24753 t9720; struct structure_type24753 t9721; struct structure_type24753 t9722; struct structure_type24753 t9723; struct structure_type24753 t9724; struct structure_type24753 t9725; struct structure_type24753 t9726; struct structure_type24753 t9727; struct structure_type24753 t9728; struct structure_type24753 t9729; struct structure_type24753 t9730; struct structure_type24753 t11228; struct structure_type24753 t11395; struct structure_type24753 t11396; struct structure_type24753 t11397; struct structure_type24753 t11413; struct structure_type24753 t11414; struct structure_type24753 t11415; struct structure_type24753 t11416; struct structure_type24753 t11432; struct structure_type24753 t11433; struct structure_type24753 t11434; struct structure_type24753 t11435; struct structure_type24753 t11451; struct structure_type24753 t11452; struct structure_type24753 t11453; struct structure_type24753 t11454; struct structure_type24753 t11455; struct structure_type24753 t11471; struct structure_type24753 t11472; struct structure_type24753 t11473; struct structure_type24753 t11474; struct structure_type24753 t11475; struct structure_type24753 t11476; struct structure_type24753 t11477; struct structure_type24753 t11478; struct structure_type24753 t11479; struct structure_type24753 t11494; struct structure_type24753 t11495; struct structure_type24753 t11496; struct structure_type24753 t11497; struct structure_type24753 t11498; struct structure_type24753 t11499; struct structure_type24753 t11500; struct structure_type24753 t11501; struct structure_type24753 t11502; struct structure_type24753 t11503; struct structure_type24753 t11504; struct structure_type24753 t11505; struct structure_type24753 t11506; struct structure_type24753 t11507; struct structure_type24753 t11508; struct structure_type24753 t11509; struct structure_type24753 t11513; struct structure_type24753 t11523; struct structure_type24753 t11524; struct structure_type24753 t11727; struct structure_type24753 t11728; struct structure_type24753 t11768; struct structure_type24753 t11769; struct structure_type24753 t11770; struct structure_type24753 t11821; struct structure_type24753 t11822; struct structure_type24753 t11857; struct structure_type24753 t11858; struct structure_type24753 t11859; struct structure_type24753 t11860; struct structure_type24753 t11868; struct structure_type24753 t11869; struct structure_type24753 t11870; struct structure_type24753 t11871; struct structure_type24753 t11872; struct structure_type24753 t11873; struct structure_type24753 t11874; struct structure_type24753 t11875; struct structure_type24753 t11886; struct structure_type24753 t11887; struct structure_type24753 t11914; struct structure_type24753 t11915; struct structure_type24753 t11916; struct structure_type24753 t11917; struct structure_type24753 t11918; struct structure_type24753 t11919; struct structure_type24753 t11920; struct structure_type24753 t11921; struct structure_type24753 t11922; struct structure_type24753 t11923; struct structure_type24753 t11935; struct structure_type24753 t11936; struct structure_type24753 t11937; struct structure_type24753 t11938; struct structure_type24753 t11939; struct structure_type24753 t11940; struct structure_type24753 t11967; struct structure_type24753 t11968; struct structure_type24753 t11969; struct structure_type24753 t11970; struct structure_type24753 t11971; struct structure_type24753 t11972; struct structure_type24753 t11973; struct structure_type24753 t11974; struct structure_type24753 t11975; struct structure_type24753 t11976; struct structure_type24753 t11990; struct structure_type24753 t11991; struct structure_type24753 t11992; struct structure_type24753 t11993; struct structure_type24753 t11994; struct structure_type24753 t11995; struct structure_type24753 t11996; struct structure_type24753 t12046; struct structure_type24753 t12047; struct structure_type24753 t12123; struct structure_type24753 t12124; struct structure_type24753 t12125; struct structure_type24753 t12126; struct structure_type24753 t12127; struct structure_type24753 t12128; struct structure_type24753 t12129; struct structure_type24753 t12130; struct structure_type24753 t12131; struct structure_type24753 t12166; struct structure_type24753 t12167; struct structure_type24753 t12593; struct structure_type24753 t12594; struct structure_type24753 t12595; struct structure_type24753 t12596; struct structure_type24753 t12597; struct structure_type24753 t12602; struct structure_type24753 t12603; struct structure_type24753 t12604; struct structure_type24753 t12605; struct structure_type24753 t12606; struct structure_type24753 t12607; struct structure_type24753 t12608; struct structure_type24753 t12609; struct structure_type24753 t12610; struct structure_type24753 t12611; struct structure_type24753 t12612; struct structure_type24753 t12613; struct structure_type24753 t12614; struct structure_type24753 t12615; struct structure_type24753 t12620; struct structure_type24753 t12621; struct structure_type24753 t12622; struct structure_type24753 t12623; struct structure_type24753 t12624; struct structure_type24753 t12625; struct structure_type24753 t12626; struct structure_type24753 t12627; struct structure_type24753 t12628; struct structure_type24753 t12629; struct structure_type24753 t12630; struct structure_type24753 t12631; struct structure_type24753 t12632; struct structure_type24753 t12633; struct structure_type24753 t12634; struct structure_type24753 t12635; struct structure_type24753 t12636; struct structure_type24753 t12637; struct structure_type24753 t12638; struct structure_type24753 t12639; struct structure_type24753 t12640; struct structure_type24753 t12641; struct structure_type24753 t12642; struct structure_type24753 t12643; struct structure_type24753 t12644; struct structure_type24753 t12645; struct structure_type24753 t12646; struct structure_type24753 t12647; struct structure_type24753 t12652; struct structure_type24753 t12653; struct structure_type24753 t12654; struct structure_type24753 t12655; struct structure_type24753 t12656; struct structure_type24753 t12657; struct structure_type24753 t12658; struct structure_type24753 t12659; struct structure_type24753 t12660; struct structure_type24753 t12661; struct structure_type24753 t12662; struct structure_type24753 t12663; struct structure_type24753 t12664; struct structure_type24753 t12665; struct structure_type24753 t12666; struct structure_type24753 t12667; struct structure_type24753 t12668; struct structure_type24753 t12669; struct structure_type24753 t12670; struct structure_type24753 t12671; struct structure_type24753 t12672; struct structure_type24753 t12673; struct structure_type24753 t12674; struct structure_type24753 t12686; struct structure_type24753 t12687; struct structure_type24753 t12688; struct structure_type24753 t12689; struct structure_type24753 t12690; struct structure_type24753 t12703; struct structure_type24753 t12737; struct structure_type24753 t12738; struct structure_type24753 t12739; struct structure_type24753 t12740; struct structure_type24753 t12741; struct structure_type24753 t12784; struct structure_type24753 t12785; struct structure_type24753 t12851; struct structure_type24753 t12867; struct structure_type24753 t12868; struct structure_type24753 t12928; struct structure_type24753 t12929; struct structure_type24753 t12930; struct structure_type24753 t12931; struct structure_type24753 t12932; struct structure_type24753 t12933; struct structure_type24753 t12934; struct structure_type24753 t12935; struct structure_type24753 t12936; struct structure_type24753 t12937; struct structure_type24753 t12938; struct structure_type24753 t12939; struct structure_type24753 t12940; struct structure_type24753 t12941; struct structure_type24753 t12942; struct structure_type24753 t12947; struct structure_type24753 t12948; struct structure_type24753 t12949; struct structure_type24753 t12950; struct structure_type24753 t12951; struct structure_type24753 t12952; struct structure_type24753 t12953; struct structure_type24753 t12954; struct structure_type24753 t12955; struct structure_type24753 t12956; struct structure_type24753 t12957; struct structure_type24753 t12958; struct structure_type24753 t12959; struct structure_type24753 t12960; struct structure_type24753 t12961; struct structure_type24753 t12962; struct structure_type24753 t12963; struct structure_type24753 t12964; struct structure_type24753 t13021; struct structure_type24753 t13022; struct structure_type24753 t13023; struct structure_type24753 t13037; struct structure_type24753 t13038; struct structure_type24753 t13039; struct structure_type24753 t13040; struct structure_type24753 t13041; struct structure_type24753 t13042; struct structure_type24753 t13043; struct structure_type24753 t13044; struct structure_type24753 t13045; struct structure_type24753 t13046; struct structure_type24753 t13047; struct structure_type24753 t13048; struct structure_type24753 t13049; struct structure_type24753 t13050; struct structure_type24753 t13051; struct structure_type24753 t13052; struct structure_type24753 t13053; struct structure_type24753 t13054; struct structure_type24753 t13055; struct structure_type24753 t13056; struct structure_type24753 t13057; struct structure_type24753 t13058; struct structure_type24753 t13059; struct structure_type24753 t13060; struct structure_type24753 t13061; struct structure_type24753 t13062; struct structure_type24753 t13063; struct structure_type24753 t13064; struct structure_type24753 t13065; struct structure_type24753 t13066; struct structure_type24753 t13067; struct structure_type24753 t13068; struct structure_type24753 t13069; struct structure_type24753 t13070; struct structure_type24753 t13071; struct structure_type24753 t13072; struct structure_type24753 t13073; struct structure_type24753 t13074; struct structure_type24753 t13075; struct structure_type24753 t13076; struct structure_type24753 t13077; struct structure_type24753 t13078; struct structure_type24753 t13079; struct structure_type24753 t13080; struct structure_type24753 t13081; struct structure_type24753 t13082; struct structure_type24753 t13083; struct structure_type24753 t13084; struct structure_type24753 t13085; struct structure_type24753 t13086; struct structure_type24753 t13087; struct structure_type24753 t13088; struct structure_type24753 t13089; struct structure_type24753 t13090; struct structure_type24753 t13091; struct structure_type24753 t13092; struct structure_type24753 t13093; struct structure_type24753 t13094; struct structure_type24753 t13095; struct structure_type24753 t13096; struct structure_type24753 t13097; struct structure_type24753 t13098; struct structure_type24753 t13099; struct structure_type24753 t13100; struct structure_type24753 t13101; struct structure_type24753 t13102; struct structure_type24753 t13103; struct structure_type24753 t13104; struct structure_type24753 t13105; struct structure_type24753 t13106; struct structure_type24753 t13107; struct structure_type24753 t13108; struct structure_type24753 t13109; struct structure_type24753 t13110; struct structure_type24753 t13111; struct structure_type24753 t13112; struct structure_type24753 t13113; struct structure_type24753 t13114; struct structure_type24753 t13115; struct structure_type24753 t13116; struct structure_type24753 t13117; struct structure_type24753 t13118; struct structure_type24753 t13119; struct structure_type24753 t13120; struct structure_type24753 t13121; struct structure_type24753 t13122; struct structure_type24753 t13123; struct structure_type24753 t13124; struct structure_type24753 t13125; struct structure_type24753 t13126; struct structure_type24753 t13127; struct structure_type24753 t13128; struct structure_type24753 t13129; struct structure_type24753 t13130; struct structure_type24753 t13131; struct structure_type24753 t13132; struct structure_type24753 t13133; struct structure_type24753 t13134; struct structure_type24753 t13135; struct structure_type24753 t13136; struct structure_type24753 t13137; struct structure_type24753 t13138; struct structure_type24753 t13139; struct structure_type24753 t13140; struct structure_type24753 t13141; struct structure_type24753 t13142; struct structure_type24753 t13143; struct structure_type24753 t13144; struct structure_type24753 t13145; struct structure_type24753 t13146; struct structure_type24753 t13147; struct structure_type24753 t13148; struct structure_type24753 t13149; struct structure_type24753 t13150; struct structure_type24753 t13151; struct structure_type24753 t13152; struct structure_type24753 t13153; struct structure_type24753 t13154; struct structure_type24753 t13155; struct structure_type24753 t13156; struct structure_type24753 t13157; struct structure_type24753 t13158; struct structure_type24753 t13159; struct structure_type24753 t13160; struct structure_type24753 t13161; struct structure_type24753 t13162; struct structure_type24753 t13163; struct structure_type24753 t13164; struct structure_type24753 t13165; struct structure_type24753 t13166; struct structure_type24753 t13167; struct structure_type24753 t13168; struct structure_type24753 t13169; struct structure_type24753 t13170; struct structure_type24753 t13171; struct structure_type24753 t13172; struct structure_type24753 t13173; struct structure_type24753 t13174; struct structure_type24753 t13175; struct structure_type24753 t13176; struct structure_type24753 t13177; struct structure_type24753 t13178; struct structure_type24753 t13179; struct structure_type24753 t13180; struct structure_type24753 t13181; struct structure_type24753 t13182; struct structure_type24753 t13183; struct structure_type24753 t13184; struct structure_type24753 t13185; struct structure_type24753 t13186; struct structure_type24753 t13187; struct structure_type24753 t13188; struct structure_type24753 t13189; struct structure_type24753 t13190; struct structure_type24753 t13191; struct structure_type24753 t13192; struct structure_type24753 t13193; struct structure_type24753 t13194; struct structure_type24753 t13195; struct structure_type24753 t13196; struct structure_type24753 t13197; struct structure_type24753 t13198; struct structure_type24753 t13199; struct structure_type24753 t13200; struct structure_type24753 t13201; struct structure_type24753 t13202; struct structure_type24753 t13203; struct structure_type24753 t13204; struct structure_type24753 t13205; struct structure_type24753 t13206; struct structure_type24753 t13207; struct structure_type24753 t13208; struct structure_type24753 t13209; struct structure_type24753 t13210; struct structure_type24753 t13211; struct structure_type24753 t13212; struct structure_type24753 t13213; struct structure_type24753 t13214; struct structure_type24753 t13215; struct structure_type24753 t13216; struct structure_type24753 t13217; struct structure_type24753 t13218; struct structure_type24753 t13219; struct structure_type24753 t13220; struct structure_type24753 t13221; struct structure_type24753 t13222; struct structure_type24753 t13223; struct structure_type24753 t13224; struct structure_type24753 t13225; struct structure_type24753 t13226; struct structure_type24753 t13227; struct structure_type24753 t13228; struct structure_type24753 t13229; struct structure_type24753 t13230; struct structure_type24753 t13231; struct structure_type24753 t13232; struct structure_type24753 t13233; struct structure_type24753 t13234; struct structure_type24753 t13235; struct structure_type24753 t13236; struct structure_type24753 t13237; struct structure_type24753 t13238; struct structure_type24753 t13239; struct structure_type24753 t13240; struct structure_type24753 t13241; struct structure_type24753 t13242; struct structure_type24753 t13243; struct structure_type24753 t13244; struct structure_type24753 t13245; struct structure_type24753 t13246; struct structure_type24753 t13247; struct structure_type24753 t13248; struct structure_type24753 t13249; struct structure_type24753 t13250; struct structure_type24753 t13251; struct structure_type24753 t13252; struct structure_type24753 t13253; struct structure_type24753 t13254; struct structure_type24753 t13255; struct structure_type24753 t13256; struct structure_type24753 t13257; struct structure_type24753 t13258; struct structure_type24753 t13259; struct structure_type24753 t13260; struct structure_type24753 t13261; struct structure_type24753 t13262; struct structure_type24753 t13263; struct structure_type24753 t13264; struct structure_type24753 t13265; struct structure_type24753 t13266; struct structure_type24753 t13267; struct structure_type24753 t13268; struct structure_type24753 t13269; struct structure_type24753 t13270; struct structure_type24753 t13271; struct structure_type24753 t13272; struct structure_type24753 t13273; struct structure_type24753 t13274; struct structure_type24753 t13275; struct structure_type24753 t13276; struct structure_type24753 t13277; struct structure_type24753 t13278; struct structure_type24753 t13279; struct structure_type24753 t13280; struct structure_type24753 t13281; struct structure_type24753 t13282; struct structure_type24753 t13283; struct structure_type24753 t13284; struct structure_type24753 t13285; struct structure_type24753 t13286; struct structure_type24753 t13287; struct structure_type24753 t13288; struct structure_type24753 t13289; struct structure_type24753 t13290; struct structure_type24753 t13291; struct structure_type24753 t13292; struct structure_type24753 t13293; struct structure_type24753 t13294; struct structure_type24753 t13295; struct structure_type24753 t13296; struct structure_type24753 t13297; struct structure_type24753 t13298; struct structure_type24753 t13299; struct structure_type24753 t13300; struct structure_type24753 t13301; struct structure_type24753 t13302; struct structure_type24753 t13303; struct structure_type24753 t13304; struct structure_type24753 t13305; struct structure_type24753 t13306; struct structure_type24753 t13307; struct structure_type24753 t13308; struct structure_type24753 t13309; struct structure_type24753 t13310; struct structure_type24753 t13311; struct structure_type24753 t13312; struct structure_type24753 t13313; struct structure_type24753 t13314; struct structure_type24753 t13315; struct structure_type24753 t13316; struct structure_type24753 t13317; struct structure_type24753 t13318; struct structure_type24753 t13319; struct structure_type24753 t13320; struct structure_type24753 t13321; struct structure_type24753 t13322; struct structure_type24753 t13323; struct structure_type24753 t13324; struct structure_type24753 t13325; struct structure_type24753 t13326; struct structure_type24753 t13327; struct structure_type24753 t13328; struct structure_type24753 t13329; struct structure_type24753 t13330; struct structure_type24753 t13331; struct structure_type24753 t13332; struct structure_type24753 t13333; struct structure_type24753 t13334; struct structure_type24753 t13335; struct structure_type24753 t13336; struct structure_type24753 t13337; struct structure_type24753 t13338; struct structure_type24753 t13339; struct structure_type24753 t13340; struct structure_type24753 t13341; struct structure_type24753 t13342; struct structure_type24753 t13343; struct structure_type24753 t13344; struct structure_type24753 t13345; struct structure_type24753 t13346; struct structure_type24753 t13347; struct structure_type24753 t13348; struct structure_type24753 t13349; struct structure_type24753 t13350; struct structure_type24753 t13351; struct structure_type24753 t13352; struct structure_type24753 t13353; struct structure_type24753 t13354; struct structure_type24753 t13355; struct structure_type24753 t13356; struct structure_type24753 t13357; struct structure_type24753 t13358; struct structure_type24753 t13359; struct structure_type24753 t13360; struct structure_type24753 t13361; struct structure_type24753 t13362; struct structure_type24753 t13363; struct structure_type24753 t13364; struct structure_type24753 t13365; struct structure_type24753 t13366; struct structure_type24753 t13367; struct structure_type24753 t13368; struct structure_type24753 t13369; struct structure_type24753 t13370; struct structure_type24753 t13371; struct structure_type24753 t13372; struct structure_type24753 t13373; struct structure_type24753 t13374; struct structure_type24753 t13375; struct structure_type24753 t13376; struct structure_type24753 t13377; struct structure_type24753 t13378; struct structure_type24753 t13379; struct structure_type24753 t13380; struct structure_type24753 t13381; struct structure_type24753 t13382; struct structure_type24753 t13383; struct structure_type24753 t13384; struct structure_type24753 t13385; struct structure_type24753 t13386; struct structure_type24753 t13387; struct structure_type24753 t13388; struct structure_type24753 t13389; struct structure_type24753 t13390; struct structure_type24753 t13391; struct structure_type24753 t13392; struct structure_type24753 t13393; struct structure_type24753 t13394; struct structure_type24753 t13395; struct structure_type24753 t13396; struct structure_type24753 t13397; struct structure_type24753 t13398; struct structure_type24753 t13399; struct structure_type24753 t13400; struct structure_type24753 t13401; struct structure_type24753 t13402; struct structure_type24753 t13403; struct structure_type24753 t13404; struct structure_type24753 t13405; struct structure_type24753 t13406; struct structure_type24753 t13407; struct structure_type24753 t13408; struct structure_type24753 t13409; struct structure_type24753 t13410; struct structure_type24753 t13411; struct structure_type24753 t13412; struct structure_type24753 t13413; struct structure_type24753 t13414; struct structure_type24753 t13415; struct structure_type24753 t13416; struct structure_type24753 t13417; struct structure_type24753 t13418; struct structure_type24753 t13419; struct structure_type24753 t13420; struct structure_type24753 t13421; struct structure_type24753 t13422; struct structure_type24753 t13423; struct structure_type24753 t13424; struct structure_type24753 t13425; struct structure_type24753 t13426; struct structure_type24753 t13427; struct structure_type24753 t13428; struct structure_type24753 t13429; struct structure_type24753 t13430; struct structure_type24753 t13431; struct structure_type24753 t13432; struct structure_type24753 t13433; struct structure_type24753 t13434; struct structure_type24753 t13435; struct structure_type24753 t13436; struct structure_type24753 t13437; struct structure_type24753 t13438; struct structure_type24753 t13439; struct structure_type24753 t13440; struct structure_type24753 t13441; struct structure_type24753 t13442; struct structure_type24753 t13443; struct structure_type24753 t13444; struct structure_type24753 t13445; struct structure_type24753 t13446; struct structure_type24753 t13447; struct structure_type24753 t13448; struct structure_type24753 t13449; struct structure_type24753 t13450; struct structure_type24753 t13451; struct structure_type24753 t13452; struct structure_type24753 t13453; struct structure_type24753 t13454; struct structure_type24753 t13455; struct structure_type24753 t13456; struct structure_type24753 t13457; struct structure_type24753 t13458; struct structure_type24753 t13459; struct structure_type24753 t13460; struct structure_type24753 t13461; struct structure_type24753 t13462; struct structure_type24753 t13463; struct structure_type24753 t13464; struct structure_type24753 t13465; struct structure_type24753 t13466; struct structure_type24753 t13467; struct structure_type24753 t13468; struct structure_type24753 t13469; struct structure_type24753 t13470; struct structure_type24753 t13471; struct structure_type24753 t13472; struct structure_type24753 t13473; struct structure_type24753 t13474; struct structure_type24753 t13475; struct structure_type24753 t13476; struct structure_type24753 t13477; struct structure_type24753 t13478; struct structure_type24753 t13479; struct structure_type24753 t13480; struct structure_type24753 t13481; struct structure_type24753 t13482; struct structure_type24753 t13483; struct structure_type24753 t13484; struct structure_type24753 t13485; struct structure_type24753 t13486; struct structure_type24753 t13487; struct structure_type24753 t13488; struct structure_type24753 t13489; struct structure_type24753 t13490; struct structure_type24753 t13491; struct structure_type24753 t13492; struct structure_type24753 t13493; struct structure_type24753 t13494; struct structure_type24753 t13495; struct structure_type24753 t13496; struct structure_type24753 t13497; struct structure_type24753 t13498; struct structure_type24753 t13499; struct structure_type24753 t13500; struct structure_type24753 t13501; struct structure_type24753 t13502; struct structure_type24753 t13503; struct structure_type24753 t13504; struct structure_type24753 t13505; struct structure_type24753 t13506; struct structure_type24753 t13507; struct structure_type24753 t13508; struct structure_type24753 t13509; struct structure_type24753 t13510; struct structure_type24753 t13511; struct structure_type24753 t13512; struct structure_type24753 t13513; struct structure_type24753 t13514; struct structure_type24753 t13515; struct structure_type24753 t13516; struct structure_type24753 t13517; struct structure_type24753 t13518; struct structure_type24753 t13519; struct structure_type24753 t13520; struct structure_type24753 t13521; struct structure_type24753 t13522; struct structure_type24753 t13523; struct structure_type24753 t13524; struct structure_type24753 t13525; struct structure_type24753 t13526; struct structure_type24753 t13527; struct structure_type24753 t13528; struct structure_type24753 t13529; struct structure_type24753 t13530; struct structure_type24753 t13531; struct structure_type24753 t13532; struct structure_type24753 t13533; struct structure_type24753 t13534; struct structure_type24753 t13535; struct structure_type24753 t13536; struct structure_type24753 t13537; struct structure_type24753 t13538; struct structure_type24753 t13539; struct structure_type24753 t13540; struct structure_type24753 t13541; struct structure_type24753 t13542; struct structure_type24753 t13543; struct structure_type24753 t13544; struct structure_type24753 t13545; struct structure_type24753 t13546; struct structure_type24753 t13547; struct structure_type24753 t13548; struct structure_type24753 t13549; struct structure_type24753 t13550; struct structure_type24753 t13551; struct structure_type24753 t13552; struct structure_type24753 t13553; struct structure_type24753 t13554; struct structure_type24753 t13555; struct structure_type24753 t13556; struct structure_type24753 t13557; struct structure_type24753 t13558; struct structure_type24753 t13559; struct structure_type24753 t13560; struct structure_type24753 t13561; struct structure_type24753 t13562; struct structure_type24753 t13563; struct structure_type24753 t13564; struct structure_type24753 t13565; struct structure_type24753 t13566; struct structure_type24753 t13567; struct structure_type24753 t13568; struct structure_type24753 t13569; struct structure_type24753 t13570; struct structure_type24753 t13571; struct structure_type24753 t13572; struct structure_type24753 t13573; struct structure_type24753 t13574; struct structure_type24753 t13575; struct structure_type24753 t13576; struct structure_type24753 t13577; struct structure_type24753 t13578; struct structure_type24753 t13579; struct structure_type24753 t13580; struct structure_type24753 t13581; struct structure_type24753 t13582; struct structure_type24753 t13583; struct structure_type24753 t13584; struct structure_type24753 t13585; struct structure_type24753 t13586; struct structure_type24753 t13587; struct structure_type24753 t13588; struct structure_type24753 t13589; struct structure_type24753 t13590; struct structure_type24753 t13591; struct structure_type24753 t13592; struct structure_type24753 t13593; struct structure_type24753 t13594; struct structure_type24753 t13595; struct structure_type24753 t13596; struct structure_type24753 t13597; struct structure_type24753 t13598; struct structure_type24753 t13599; struct structure_type24753 t13600; struct structure_type24753 t13601; struct structure_type24753 t13602; struct structure_type24753 t13603; struct structure_type24753 t13604; struct structure_type24753 t13605; struct structure_type24753 t13606; struct structure_type24753 t13607; struct structure_type24753 t13608; struct structure_type24753 t13609; struct structure_type24753 t13610; struct structure_type24753 t13611; struct structure_type24753 t13612; struct structure_type24753 t13613; struct structure_type24753 t13614; struct structure_type24753 t13615; struct structure_type24753 t13616; struct structure_type24753 t13617; struct structure_type24753 t13618; struct structure_type24753 t13619; struct structure_type24753 t13620; struct structure_type24753 t13621; struct structure_type24753 t13622; struct structure_type24753 t13623; struct structure_type24753 t13624; struct structure_type24753 t13625; struct structure_type24753 t13626; struct structure_type24753 t13627; struct structure_type24753 t13628; struct structure_type24753 t13629; struct structure_type24753 t13630; struct structure_type24753 t13631; struct structure_type24753 t13632; struct structure_type24753 t13633; struct structure_type24753 t13634; struct structure_type24753 t13635; struct structure_type24753 t13636; struct structure_type24753 t13637; struct structure_type24753 t13638; struct structure_type24753 t13639; struct structure_type24753 t13640; struct structure_type24753 t13641; struct structure_type24753 t13642; struct structure_type24753 t13643; struct structure_type24753 t13644; struct structure_type24753 t13645; struct structure_type24753 t13646; struct structure_type24753 t13647; struct structure_type24753 t13648; struct structure_type24753 t13649; struct structure_type24753 t13650; struct structure_type24753 t13651; struct structure_type24753 t13652; struct structure_type24753 t13653; struct structure_type24753 t13654; struct structure_type24753 t13655; struct structure_type24753 t13656; struct structure_type24753 t13657; struct structure_type24753 t13658; struct structure_type24753 t13659; struct structure_type24753 t13660; struct structure_type24753 t13661; struct structure_type24753 t13662; struct structure_type24753 t13663; struct structure_type24753 t13664; struct structure_type24753 t13665; struct structure_type24753 t13666; struct structure_type24753 t13667; struct structure_type24753 t13668; struct structure_type24753 t13669; struct structure_type24753 t13670; struct structure_type24753 t13671; struct structure_type24753 t13672; struct structure_type24753 t13673; struct structure_type24753 t13674; struct structure_type24753 t13675; struct structure_type24753 t13676; struct structure_type24753 t13677; struct structure_type24753 t13678; struct structure_type24753 t13679; struct structure_type24753 t13680; struct structure_type24753 t13681; struct structure_type24753 t13682; struct structure_type24753 t13683; struct structure_type24753 t13684; struct structure_type24753 t13685; struct structure_type24753 t13686; struct structure_type24753 t13687; struct structure_type24753 t13688; struct structure_type24753 t13689; struct structure_type24753 t13690; struct structure_type24753 t13691; struct structure_type24753 t13692; struct structure_type24753 t13693; struct structure_type24753 t13694; struct structure_type24753 t13695; struct structure_type24753 t13696; struct structure_type24753 t13697; struct structure_type24753 t13698; struct structure_type24753 t13699; struct structure_type24753 t13700; struct structure_type24753 t13701; struct structure_type24753 t13702; struct structure_type24753 t13703; struct structure_type24753 t13704; struct structure_type24753 t13705; struct structure_type24753 t13706; struct structure_type24753 t13707; struct structure_type24753 t13708; struct structure_type24753 t13709; struct structure_type24753 t13710; struct structure_type24753 t13711; struct structure_type24753 t13712; struct structure_type24753 t13713; struct structure_type24753 t13714; struct structure_type24753 t13715; struct structure_type24753 t13716; struct structure_type24753 t13717; struct structure_type24753 t13718; struct structure_type24753 t13719; struct structure_type24753 t13720; struct structure_type24753 t13721; struct structure_type24753 t13722; struct structure_type24753 t13723; struct structure_type24753 t13724; struct structure_type24753 t13725; struct structure_type24753 t13726; struct structure_type24753 t13727; struct structure_type24753 t13728; struct structure_type24753 t13729; struct structure_type24753 t13730; struct structure_type24753 t13731; struct structure_type24753 t13732; struct structure_type24753 t13733; struct structure_type24753 t13734; struct structure_type24753 t13735; struct structure_type24753 t13736; struct structure_type24753 t13737; struct structure_type24753 t13738; struct structure_type24753 t13739; struct structure_type24753 t13740; struct structure_type24753 t13741; struct structure_type24753 t13742; struct structure_type24753 t13743; struct structure_type24753 t13744; struct structure_type24753 t13745; struct structure_type24753 t13746; struct structure_type24753 t13747; struct structure_type24753 t13748; struct structure_type24753 t13749; struct structure_type24753 t13750; struct structure_type24753 t13751; struct structure_type24753 t13752; struct structure_type24753 t13753; struct structure_type24753 t13754; struct structure_type24753 t13755; struct structure_type24753 t13756; struct structure_type24753 t13757; struct structure_type24753 t13758; struct structure_type24753 t13759; struct structure_type24753 t13760; struct structure_type24753 t13761; struct structure_type24753 t13762; struct structure_type24753 t13763; struct structure_type24753 t13764; struct structure_type24753 t13765; struct structure_type24753 t13766; struct structure_type24753 t13767; struct structure_type24753 t13768; struct structure_type24753 t13769; struct structure_type24753 t13770; struct structure_type24753 t13771; struct structure_type24753 t13772; struct structure_type24753 t13773; struct structure_type24753 t13774; struct structure_type24753 t13775; struct structure_type24753 t13776; struct structure_type24753 t13777; struct structure_type24753 t13778; struct structure_type24753 t13779; struct structure_type24753 t13780; struct structure_type24753 t13781; struct structure_type24753 t13782; struct structure_type24753 t13783; struct structure_type24753 t13784; struct structure_type24753 t13785; struct structure_type24753 t13786; struct structure_type24753 t13787; struct structure_type24753 t13788; struct structure_type24753 t13789; struct structure_type24753 t13790; struct structure_type24753 t13791; struct structure_type24753 t13792; struct structure_type24753 t13793; struct structure_type24753 t13794; struct structure_type24753 t13795; struct structure_type24753 t13796; struct structure_type24753 t13797; struct structure_type24753 t13798; struct structure_type24753 t13799; struct structure_type24753 t13800; struct structure_type24753 t13801; struct structure_type24753 t13802; struct structure_type24753 t13803; struct structure_type24753 t13804; struct structure_type24753 t13805; struct structure_type24753 t13806; struct structure_type24753 t13807; struct structure_type24753 t13808; struct structure_type24753 t13809; struct structure_type24753 t13810; struct structure_type24753 t13811; struct structure_type24753 t13812; struct structure_type24753 t13813; struct structure_type24753 t13814; struct structure_type24753 t13815; struct structure_type24753 t13816; struct structure_type24753 t13817; struct structure_type24753 t13818; struct structure_type24753 t13819; struct structure_type24753 t13820; struct structure_type24753 t13821; struct structure_type24753 t13822; struct structure_type24753 t13823; struct structure_type24753 t13824; struct structure_type24753 t13825; struct structure_type24753 t13826; struct structure_type24753 t13827; struct structure_type24753 t13828; struct structure_type24753 t13829; struct structure_type24753 t13830; struct structure_type24753 t13831; struct structure_type24753 t13832; struct structure_type24753 t13833; struct structure_type24753 t13834; struct structure_type24753 t13835; struct structure_type24753 t13836; struct structure_type24753 t13837; struct structure_type24753 t13838; struct structure_type24753 t13839; struct structure_type24753 t13840; struct structure_type24753 t13841; struct structure_type24753 t13842; struct structure_type24753 t13843; struct structure_type24753 t13844; struct structure_type24753 t13845; struct structure_type24753 t13846; struct structure_type24753 t13847; struct structure_type24753 t13848; struct structure_type24753 t13849; struct structure_type24753 t13850; struct structure_type24753 t13851; struct structure_type24753 t13852; struct structure_type24753 t13853; struct structure_type24753 t13854; struct structure_type24753 t13855; struct structure_type24753 t13856; struct structure_type24753 t13857; struct structure_type24753 t13858; struct structure_type24753 t13859; struct structure_type24753 t13860; struct structure_type24753 t13861; struct structure_type24753 t13862; struct structure_type24753 t13863; struct structure_type24753 t13864; struct structure_type24753 t13865; struct structure_type24753 t13866; struct structure_type24753 t13867; struct structure_type24753 t13868; struct structure_type24753 t13869; struct structure_type24753 t13870; struct structure_type24753 t13871; struct structure_type24753 t13872; struct structure_type24753 t13873; struct structure_type24753 t13874; struct structure_type24753 t13875; struct structure_type24753 t13876; struct structure_type24753 t13877; struct structure_type24753 t13878; struct structure_type24753 t13879; struct structure_type24753 t13880; struct structure_type24753 t13881; struct structure_type24753 t13882; struct structure_type24753 t13883; struct structure_type24753 t13884; struct structure_type24753 t13885; struct structure_type24753 t13886; struct structure_type24753 t13887; struct structure_type24753 t13888; struct structure_type24753 t13889; struct structure_type24753 t13890; struct structure_type24753 t13891; struct structure_type24753 t13892; struct structure_type24753 t13893; struct structure_type24753 t13894; struct structure_type24753 t13895; struct structure_type24753 t13896; struct structure_type24753 t13897; struct structure_type24753 t13898; struct structure_type24753 t13899; struct structure_type24753 t13900; struct structure_type24753 t13901; struct structure_type24753 t13902; struct structure_type24753 t13903; struct structure_type24753 t13904; struct structure_type24753 t13905; struct structure_type24753 t13906; struct structure_type24753 t13907; struct structure_type24753 t13908; struct structure_type24753 t13909; struct structure_type24753 t13910; struct structure_type24753 t13911; struct structure_type24753 t13912; struct structure_type24753 t13913; struct structure_type24753 t13914; struct structure_type24753 t13915; struct structure_type24753 t13916; struct structure_type24753 t13917; struct structure_type24753 t13918; struct structure_type24753 t13919; struct structure_type24753 t13920; struct structure_type24753 t13921; struct structure_type24753 t13922; struct structure_type24753 t13923; struct structure_type24753 t13924; struct structure_type24753 t13925; struct structure_type24753 t13926; struct structure_type24753 t13927; struct structure_type24753 t13928; struct structure_type24753 t13929; struct structure_type24753 t13930; struct structure_type24753 t13931; struct structure_type24753 t13932; struct structure_type24753 t13933; struct structure_type24753 t13934; struct structure_type24753 t13935; struct structure_type24753 t13936; struct structure_type24753 t13937; struct structure_type24753 t13938; struct structure_type24753 t13939; struct structure_type24753 t13940; struct structure_type24753 t13941; struct structure_type24753 t13942; struct structure_type24753 t13943; struct structure_type24753 t13944; struct structure_type24753 t13945; struct structure_type24753 t13946; struct structure_type24753 t13947; struct structure_type24753 t13948; struct structure_type24753 t13949; struct structure_type24753 t13950; struct structure_type24753 t13951; struct structure_type24753 t13952; struct structure_type24753 t13953; struct structure_type24753 t13954; struct structure_type24753 t13955; struct structure_type24753 t13956; struct structure_type24753 t13957; struct structure_type24753 t13958; struct structure_type24753 t13959; struct structure_type24753 t13960; struct structure_type24753 t13961; struct structure_type24753 t13962; struct structure_type24753 t13963; struct structure_type24753 t13964; struct structure_type24753 t13965; struct structure_type24753 t13966; struct structure_type24753 t13967; struct structure_type24753 t13968; struct structure_type24753 t13969; struct structure_type24753 t13970; struct structure_type24753 t13971; struct structure_type24753 t13972; struct structure_type24753 t13973; struct structure_type24753 t13974; struct structure_type24753 t13975; struct structure_type24753 t13976; struct structure_type24753 t13977; struct structure_type24753 t13978; struct structure_type24753 t13979; struct structure_type24753 t13980; struct structure_type24753 t13981; struct structure_type24753 t13982; struct structure_type24753 t13983; struct structure_type24753 t13984; struct structure_type24753 t13985; struct structure_type24753 t13986; struct structure_type24753 t13987; struct structure_type24753 t13988; struct structure_type24753 t13989; struct structure_type24753 t13990; struct structure_type24753 t13991; struct structure_type24753 t13992; struct structure_type24753 t13993; struct structure_type24753 t13994; struct structure_type24753 t13995; struct structure_type24753 t13996; struct structure_type24753 t13997; struct structure_type24753 t13998; struct structure_type24753 t13999; struct structure_type24753 t14000; struct structure_type24753 t14001; struct structure_type24753 t14002; struct structure_type24753 t14003; struct structure_type24753 t14004; struct structure_type24753 t14005; struct structure_type24753 t14006; struct structure_type24753 t14007; struct structure_type24753 t14008; struct structure_type24753 t14009; struct structure_type24753 t14010; struct structure_type24753 t14011; struct structure_type24753 t14012; struct structure_type24753 t14013; struct structure_type24753 t14014; struct structure_type24753 t14015; struct structure_type24753 t14016; struct structure_type24753 t14017; struct structure_type24753 t14018; struct structure_type24753 t14019; struct structure_type24753 t14020; struct structure_type24753 t14021; struct structure_type24753 t14022; struct structure_type24753 t14023; struct structure_type24753 t14024; struct structure_type24753 t14025; struct structure_type24753 t14026; struct structure_type24753 t14027; struct structure_type24753 t14028; struct structure_type24753 t14029; struct structure_type24753 t14030; struct structure_type24753 t14031; struct structure_type24753 t14032; struct structure_type24753 t14033; struct structure_type24753 t14034; struct structure_type24753 t14035; struct structure_type24753 t14036; struct structure_type24753 t14037; struct structure_type24753 t14038; struct structure_type24753 t14039; struct structure_type24753 t14040; struct structure_type24753 t14041; struct structure_type24753 t14042; struct structure_type24753 t14043; struct structure_type24753 t14044; struct structure_type24753 t14045; struct structure_type24753 t14046; struct structure_type24753 t14047; struct structure_type24753 t14048; struct structure_type24753 t14049; struct structure_type24753 t14050; struct structure_type24753 t14051; struct structure_type24753 t14052; struct structure_type24753 t14053; struct structure_type24753 t14054; struct structure_type24753 t14055; struct structure_type24753 t14056; struct structure_type24753 t14057; struct structure_type24753 t14058; struct structure_type24753 t14059; struct structure_type24753 t14060; struct structure_type24753 t14061; struct structure_type24753 t14062; struct structure_type24753 t14063; struct structure_type24753 t14064; struct structure_type24753 t14065; struct structure_type24753 t14066; struct structure_type24753 t14067; struct structure_type24753 t14068; struct structure_type24753 t14069; struct structure_type24753 t14070; struct structure_type24753 t14071; struct structure_type24753 t14072; struct structure_type24753 t14073; struct structure_type24753 t14074; struct structure_type24753 t14075; struct structure_type24753 t14076; struct structure_type24753 t14077; struct structure_type24753 t14078; struct structure_type24753 t14079; struct structure_type24753 t14080; struct structure_type24753 t14081; struct structure_type24753 t14082; struct structure_type24753 t14083; struct structure_type24753 t14084; struct structure_type24753 t14085; struct structure_type24753 t14086; struct structure_type24753 t14087; struct structure_type24753 t14088; struct structure_type24753 t14089; struct structure_type24753 t14090; struct structure_type24753 t14091; struct structure_type24753 t14092; struct structure_type24753 t14093; struct structure_type24753 t14094; struct structure_type24753 t14095; struct structure_type24753 t14096; struct structure_type24753 t14097; struct structure_type24753 t14098; struct structure_type24753 t14099; struct structure_type24753 t14100; struct structure_type24753 t14101; struct structure_type24753 t14102; struct structure_type24753 t14103; struct structure_type24753 t14104; struct structure_type24753 t14105; struct structure_type24753 t14106; struct structure_type24753 t14107; struct structure_type24753 t14108; struct structure_type24753 t14109; struct structure_type24753 t14110; struct structure_type24753 t14111; struct structure_type24753 t14112; struct structure_type24753 t14113; struct structure_type24753 t14114; struct structure_type24753 t14115; struct structure_type24753 t14116; struct structure_type24753 t14117; struct structure_type24753 t14118; struct structure_type24753 t14119; struct structure_type24753 t14120; struct structure_type24753 t14121; struct structure_type24753 t14122; struct structure_type24753 t14123; struct structure_type24753 t14124; struct structure_type24753 t14125; struct structure_type24753 t14126; struct structure_type24753 t14127; struct structure_type24753 t14128; struct structure_type24753 t14129; struct structure_type24753 t14130; struct structure_type24753 t14131; struct structure_type24753 t14132; struct structure_type24753 t14133; struct structure_type24753 t14134; struct structure_type24753 t14135; struct structure_type24753 t14136; struct structure_type24753 t14137; struct structure_type24753 t14138; struct structure_type24753 t14139; struct structure_type24753 t14140; struct structure_type24753 t14141; struct structure_type24753 t14142; struct structure_type24753 t14143; struct structure_type24753 t14144; struct structure_type24753 t14145; struct structure_type24753 t14146; struct structure_type24753 t14147; struct structure_type24753 t14148; struct structure_type24753 t14149; struct structure_type24753 t14150; struct structure_type24753 t14151; struct structure_type24753 t14152; struct structure_type24753 t14153; struct structure_type24753 t14154; struct structure_type24753 t14155; struct structure_type24753 t14156; struct structure_type24753 t14157; struct structure_type24753 t14158; struct structure_type24753 t14159; struct structure_type24753 t14160; struct structure_type24753 t14161; struct structure_type24753 t14162; struct structure_type24753 t14163; struct structure_type24753 t14164; struct structure_type24753 t14165; struct structure_type24753 t14166; struct structure_type24753 t14167; struct structure_type24753 t14168; struct structure_type24753 t14169; struct structure_type24753 t14170; struct structure_type24753 t14171; struct structure_type24753 t14172; struct structure_type24753 t14173; struct structure_type24753 t14174; struct structure_type24753 t14175; struct structure_type24753 t14176; struct structure_type24753 t14177; struct structure_type24753 t14178; struct structure_type24753 t14179; struct structure_type24753 t14180; struct structure_type24753 t14181; struct structure_type24753 t14182; struct structure_type24753 t14183; struct structure_type24753 t14184; struct structure_type24753 t14185; struct structure_type24753 t14186; struct structure_type24753 t14187; struct structure_type24753 t14188; struct structure_type24753 t14189; struct structure_type24753 t14190; struct structure_type24753 t14191; struct structure_type24753 t14192; struct structure_type24753 t14193; struct structure_type24753 t14194; struct structure_type24753 t14195; struct structure_type24753 t14196; struct structure_type24753 t14197; struct structure_type24753 t14198; struct structure_type24753 t14199; struct structure_type24753 t14200; struct structure_type24753 t14201; struct structure_type24753 t14202; struct structure_type24753 t14203; struct structure_type24753 t14204; struct structure_type24753 t14205; struct structure_type24753 t14206; struct structure_type24753 t14207; struct structure_type24753 t14208; struct structure_type24753 t14209; struct structure_type24753 t14210; struct structure_type24753 t14211; struct structure_type24753 t14212; struct structure_type24753 t14213; struct structure_type24753 t14214; struct structure_type24753 t14215; struct structure_type24753 t14216; struct structure_type24753 t14217; struct structure_type24753 t14218; struct structure_type24753 t14219; struct structure_type24753 t14220; struct structure_type24753 t14221; struct structure_type24753 t14222; struct structure_type24753 t14223; struct structure_type24753 t14224; struct structure_type24753 t14225; struct structure_type24753 t14226; struct structure_type24753 t14227; struct structure_type24753 t14228; struct structure_type24753 t14229; struct structure_type24753 t14230; struct structure_type24753 t14231; struct structure_type24753 t14232; struct structure_type24753 t14233; struct structure_type24753 t14234; struct structure_type24753 t14235; struct structure_type24753 t14236; struct structure_type24753 t14237; struct structure_type24753 t14238; struct structure_type24753 t14239; struct structure_type24753 t14240; struct structure_type24753 t14241; struct structure_type24753 t14242; struct structure_type24753 t14243; struct structure_type24753 t14244; struct structure_type24753 t14245; struct structure_type24753 t14246; struct structure_type24753 t14247; struct structure_type24753 t14248; struct structure_type24753 t14249; struct structure_type24753 t14250; struct structure_type24753 t14251; struct structure_type24753 t14252; struct structure_type24753 t14253; struct structure_type24753 t14254; struct structure_type24753 t14255; struct structure_type24753 t14256; struct structure_type24753 t14257; struct structure_type24753 t14258; struct structure_type24753 t14259; struct structure_type24753 t14260; struct structure_type24753 t14261; struct structure_type24753 t14262; struct structure_type24753 t14263; struct structure_type24753 t14264; struct structure_type24753 t14265; struct structure_type24753 t14266; struct structure_type24753 t14267; struct structure_type24753 t14268; struct structure_type24753 t14269; struct structure_type24753 t14270; struct structure_type24753 t14271; struct structure_type24753 t14272; struct structure_type24753 t14273; struct structure_type24753 t14274; struct structure_type24753 t14275; struct structure_type24753 t14276; struct structure_type24753 t14277; struct structure_type24753 t14278; struct structure_type24753 t14279; struct structure_type24753 t14280; struct structure_type24753 t14281; struct structure_type24753 t14282; struct structure_type24753 t14283; struct structure_type24753 t14284; struct structure_type24753 t14285; struct structure_type24753 t14286; struct structure_type24753 t14287; struct structure_type24753 t14288; struct structure_type24753 t14289; struct structure_type24753 t14290; struct structure_type24753 t14291; struct structure_type24753 t14292; struct structure_type24753 t14293; struct structure_type24753 t14294; struct structure_type24753 t14295; struct structure_type24753 t14296; struct structure_type24753 t14297; struct structure_type24753 t14298; struct structure_type24753 t14299; struct structure_type24753 t14300; struct structure_type24753 t14301; struct structure_type24753 t14302; struct structure_type24753 t14303; struct structure_type24753 t14304; struct structure_type24753 t14305; struct structure_type24753 t14306; struct structure_type24753 t14307; struct structure_type24753 t14308; struct structure_type24753 t14309; struct structure_type24753 t14310; struct structure_type24753 t14311; struct structure_type24753 t14312; struct structure_type24753 t14313; struct structure_type24753 t14314; struct structure_type24753 t14315; struct structure_type24753 t14316; struct structure_type24753 t14317; struct structure_type24753 t14318; struct structure_type24753 t14319; struct structure_type24753 t14320; struct structure_type24753 t14321; struct structure_type24753 t14322; struct structure_type24753 t14323; struct structure_type24753 t14324; struct structure_type24753 t14325; struct structure_type24753 t14326; struct structure_type24753 t14327; struct structure_type24753 t14328; struct structure_type24753 t14329; struct structure_type24753 t14330; struct structure_type24753 t14331; struct structure_type24753 t14332; struct structure_type24753 t14333; struct structure_type24753 t14334; struct structure_type24753 t14335; struct structure_type24753 t14336; struct structure_type24753 t14337; struct structure_type24753 t14338; struct structure_type24753 t14339; struct structure_type24753 t14340; struct structure_type24753 t14341; struct structure_type24753 t14342; struct structure_type24753 t14343; struct structure_type24753 t14344; struct structure_type24753 t14345; struct structure_type24753 t14346; struct structure_type24753 t14347; struct structure_type24753 t14348; struct structure_type24753 t14349; struct structure_type24753 t14350; struct structure_type24753 t14351; struct structure_type24753 t14352; struct structure_type24753 t14353; struct structure_type24753 t14354; struct structure_type24753 t14355; struct structure_type24753 t14356; struct structure_type24753 t14357; struct structure_type24753 t14358; struct structure_type24753 t14359; struct structure_type24753 t14360; struct structure_type24753 t14361; struct structure_type24753 t14362; struct structure_type24753 t14363; struct structure_type24753 t14364; struct structure_type24753 t14365; struct structure_type24753 t14366; struct structure_type24753 t14367; struct structure_type24753 t14368; struct structure_type24753 t14369; struct structure_type24753 t14370; struct structure_type24753 t14371; struct structure_type24753 t14372; struct structure_type24753 t14373; struct structure_type24753 t14374; struct structure_type24753 t14375; struct structure_type24753 t14376; struct structure_type24753 t14377; struct structure_type24753 t14378; struct structure_type24753 t14379; struct structure_type24753 t14380; struct structure_type24753 t14381; struct structure_type24753 t14382; struct structure_type24753 t14383; struct structure_type24753 t14384; struct structure_type24753 t14385; struct structure_type24753 t14386; struct structure_type24753 t14387; struct structure_type24753 t14388; struct structure_type24753 t14389; struct structure_type24753 t14390; struct structure_type24753 t14391; struct structure_type24753 t14392; struct structure_type24753 t14393; struct structure_type24753 t14394; struct structure_type24753 t14395; struct structure_type24753 t14396; struct structure_type24753 t14397; struct structure_type24753 t14398; struct structure_type24753 t14399; struct structure_type24753 t14400; struct structure_type24753 t14401; struct structure_type24753 t14402; struct structure_type24753 t14403; struct structure_type24753 t14404; struct structure_type24753 t14405; struct structure_type24753 t14406; struct structure_type24753 t14407; struct structure_type24753 t14408; struct structure_type24753 t14409; struct structure_type24753 t14410; struct structure_type24753 t14411; struct structure_type24753 t14412; struct structure_type24753 t14413; struct structure_type24753 t14414; struct structure_type24753 t14415; struct structure_type24753 t14416; struct structure_type24753 t14417; struct structure_type24753 t14418; struct structure_type24753 t14419; struct structure_type24753 t14420; struct structure_type24753 t14421; struct structure_type24753 t14422; struct structure_type24753 t14423; struct structure_type24753 t14424; struct structure_type24753 t14425; struct structure_type24753 t14426; struct structure_type24753 t14427; struct structure_type24753 t14428; struct structure_type24753 t14429; struct structure_type24753 t14430; struct structure_type24753 t14431; struct structure_type24753 t14432; struct structure_type24753 t14433; struct structure_type24753 t14434; struct structure_type24753 t14435; struct structure_type24753 t14436; struct structure_type24753 t14437; struct structure_type24753 t14438; struct structure_type24753 t14439; struct structure_type24753 t14440; struct structure_type24753 t14441; struct structure_type24753 t14442; struct structure_type24753 t14443; struct structure_type24753 t14444; struct structure_type24753 t14445; struct structure_type24753 t14446; struct structure_type24753 t14447; struct structure_type24753 t14448; struct structure_type24753 t14449; struct structure_type24753 t14450; struct structure_type24753 t14451; struct structure_type24753 t14452; struct structure_type24753 t14453; struct structure_type24753 t14454; struct structure_type24753 t14455; struct structure_type24753 t14456; struct structure_type24753 t14457; struct structure_type24753 t14458; struct structure_type24753 t14459; struct structure_type24753 t14460; struct structure_type24753 t14461; struct structure_type24753 t14462; struct structure_type24753 t14463; struct structure_type24753 t14464; struct structure_type24753 t14465; struct structure_type24753 t14466; struct structure_type24753 t14467; struct structure_type24753 t14468; struct structure_type24753 t14469; struct structure_type24753 t14470; struct structure_type24753 t14471; struct structure_type24753 t14472; struct structure_type24753 t14473; struct structure_type24753 t14474; struct structure_type24753 t14475; struct structure_type24753 t14476; struct structure_type24753 t14477; struct structure_type24753 t14478; struct structure_type24753 t14479; struct structure_type24753 t14480; struct structure_type24753 t14481; struct structure_type24753 t14482; struct structure_type24753 t14483; struct structure_type24753 t14484; struct structure_type24753 t14485; struct structure_type24753 t14486; struct structure_type24753 t14487; struct structure_type24753 t14488; struct structure_type24753 t14489; struct structure_type24753 t14490; struct structure_type24753 t14491; struct structure_type24753 t14492; struct structure_type24753 t14493; struct structure_type24753 t14494; struct structure_type24753 t14495; struct structure_type24753 t14496; struct structure_type24753 t14497; struct structure_type24753 t14498; struct structure_type24753 t14499; struct structure_type24753 t14500; struct structure_type24753 t14501; struct structure_type24753 t14502; struct structure_type24753 t14503; struct structure_type24753 t14504; struct structure_type24753 t14505; struct structure_type24753 t14506; struct structure_type24753 t14507; struct structure_type24753 t14508; struct structure_type24753 t14509; struct structure_type24753 t14510; struct structure_type24753 t14511; struct structure_type24753 t14512; struct structure_type24753 t14513; struct structure_type24753 t14514; struct structure_type24753 t14515; struct structure_type24753 t14516; struct structure_type24753 t14517; struct structure_type24753 t14518; struct structure_type24753 t14519; struct structure_type24753 t14520; struct structure_type24753 t14521; struct structure_type24753 t14522; struct structure_type24753 t14523; struct structure_type24753 t14524; struct structure_type24753 t14525; struct structure_type24753 t14526; struct structure_type24753 t14527; struct structure_type24753 t14528; struct structure_type24753 t14529; struct structure_type24753 t14530; struct structure_type24753 t14531; struct structure_type24753 t14532; struct structure_type24753 t14533; struct structure_type24753 t14534; struct structure_type24753 t14535; struct structure_type24753 t14536; struct structure_type24753 t14537; struct structure_type24753 t14538; struct structure_type24753 t14539; struct structure_type24753 t14540; struct structure_type24753 t14541; struct structure_type24753 t14542; struct structure_type24753 t14543; struct structure_type24753 t14544; struct structure_type24753 t14545; struct structure_type24753 t14546; struct structure_type24753 t14547; struct structure_type24753 t14548; struct structure_type24753 t14549; struct structure_type24753 t14550; struct structure_type24753 t14551; struct structure_type24753 t14552; struct structure_type24753 t14553; struct structure_type24753 t14554; struct structure_type24753 t14555; struct structure_type24753 t14556; struct structure_type24753 t14557; struct structure_type24753 t14558; struct structure_type24753 t14559; struct structure_type24753 t14560; struct structure_type24753 t14561; struct structure_type24753 t14562; struct structure_type24753 t14563; struct structure_type24753 t14564; struct structure_type24753 t14565; struct structure_type24753 t14566; struct structure_type24753 t14567; struct structure_type24753 t14568; struct structure_type24753 t14569; struct structure_type24753 t14570; struct structure_type24753 t14571; struct structure_type24753 t14572; struct structure_type24753 t14573; struct structure_type24753 t14574; struct structure_type24753 t14575; struct structure_type24753 t14576; struct structure_type24753 t14577; struct structure_type24753 t14578; struct structure_type24753 t14579; struct structure_type24753 t14580; struct structure_type24753 t14581; struct structure_type24753 t14582; struct structure_type24753 t14583; struct structure_type24753 t14584; struct structure_type24753 t14585; struct structure_type24753 t14586; struct structure_type24753 t14587; struct structure_type24753 t14588; struct structure_type24753 t14589; struct structure_type24753 t14590; struct structure_type24753 t14591; struct structure_type24753 t14592; struct structure_type24753 t14593; struct structure_type24753 t14594; struct structure_type24753 t14595; struct structure_type24753 t14596; struct structure_type24753 t14597; struct structure_type24753 t14598; struct structure_type24753 t14599; struct structure_type24753 t14600; struct structure_type24753 t14601; struct structure_type24753 t14602; struct structure_type24753 t14603; struct structure_type24753 t14604; struct structure_type24753 t14605; struct structure_type24753 t14606; struct structure_type24753 t14607; struct structure_type24753 t14608; struct structure_type24753 t14609; struct structure_type24753 t14610; struct structure_type24753 t14611; struct structure_type24753 t14612; struct structure_type24753 t14613; struct structure_type24753 t14614; struct structure_type24753 t14615; struct structure_type24753 t14616; struct structure_type24753 t14617; struct structure_type24753 t14618; struct structure_type24753 t14619; struct structure_type24753 t14620; struct structure_type24753 t14621; struct structure_type24753 t14622; struct structure_type24753 t14623; struct structure_type24753 t14624; struct structure_type24753 t14625; struct structure_type24753 t14626; struct structure_type24753 t14627; struct structure_type24753 t14628; struct structure_type24753 t14629; struct structure_type24753 t14630; struct structure_type24753 t14631; struct structure_type24753 t14632; struct structure_type24753 t14633; struct structure_type24753 t14634; struct structure_type24753 t14635; struct structure_type24753 t14636; struct structure_type24753 t14637; struct structure_type24753 t14638; struct structure_type24753 t14639; struct structure_type24753 t14640; struct structure_type24753 t14641; struct structure_type24753 t14642; struct structure_type24753 t14643; struct structure_type24753 t14644; struct structure_type24753 t14645; struct structure_type24753 t14646; struct structure_type24753 t14647; struct structure_type24753 t14648; struct structure_type24753 t14649; struct structure_type24753 t14650; struct structure_type24753 t14651; struct structure_type24753 t14652; struct structure_type24753 t14653; struct structure_type24753 t14654; struct structure_type24753 t14655; struct structure_type24753 t14656; struct structure_type24753 t14657; struct structure_type24753 t14658; struct structure_type24753 t14659; struct structure_type24753 t14660; struct structure_type24753 t14661; struct structure_type24753 t14662; struct structure_type24753 t14663; struct structure_type24753 t14664; struct structure_type24753 t14665; struct structure_type24753 t14666; struct structure_type24753 t14667; struct structure_type24753 t14668; struct structure_type24753 t14669; struct structure_type24753 t14670; struct structure_type24753 t14671; struct structure_type24753 t14672; struct structure_type24753 t14673; struct structure_type24753 t14674; struct structure_type24753 t14675; struct structure_type24753 t14676; struct structure_type24753 t14677; struct structure_type24753 t14678; struct structure_type24753 t14679; struct structure_type24753 t14680; struct structure_type24753 t14681; struct structure_type24753 t14682; struct structure_type24753 t14683; struct structure_type24753 t14684; struct structure_type24753 t14685; struct structure_type24753 t14686; struct structure_type24753 t14687; struct structure_type24753 t14688; struct structure_type24753 t14689; struct structure_type24753 t14690; struct structure_type24753 t14691; struct structure_type24753 t14692; struct structure_type24753 t14693; struct structure_type24753 t14694; struct structure_type24753 t14695; struct structure_type24753 t14696; struct structure_type24753 t14697; struct structure_type24753 t14698; struct structure_type24753 t14699; struct structure_type24753 t14700; struct structure_type24753 t14701; struct structure_type24753 t14702; struct structure_type24753 t14703; struct structure_type24753 t14704; struct structure_type24753 t14705; struct structure_type24753 t14706; struct structure_type24753 t14707; struct structure_type24753 t14708; struct structure_type24753 t14709; struct structure_type24753 t14710; struct structure_type24753 t14711; struct structure_type24753 t14712; struct structure_type24753 t14713; struct structure_type24753 t14714; struct structure_type24753 t14715; struct structure_type24753 t14716; struct structure_type24753 t14717; struct structure_type24753 t14718; struct structure_type24753 t14719; struct structure_type24753 t14720; struct structure_type24753 t14721; struct structure_type24753 t14722; struct structure_type24753 t14723; struct structure_type24753 t14724; struct structure_type24753 t14725; struct structure_type24753 t14726; struct structure_type24753 t14727; struct structure_type24753 t14728; struct structure_type24753 t14729; struct structure_type24753 t14730; struct structure_type24753 t14731; struct structure_type24753 t14732; struct structure_type24753 t14733; struct structure_type24753 t14734; struct structure_type24753 t14735; struct structure_type24753 t14736; struct structure_type24753 t14737; struct structure_type24753 t14738; struct structure_type24753 t14739; struct structure_type24753 t14740; struct structure_type24753 t14741; struct structure_type24753 t14742; struct structure_type24753 t14743; struct structure_type24753 t14744; struct structure_type24753 t14745; struct structure_type24753 t14746; struct structure_type24753 t14747; struct structure_type24753 t14748; struct structure_type24753 t14749; struct structure_type24753 t14750; struct structure_type24753 t14751; struct structure_type24753 t14752; struct structure_type24753 t14753; struct structure_type24753 t14754; struct structure_type24753 t14755; struct structure_type24753 t14756; struct structure_type24753 t14757; struct structure_type24753 t14758; struct structure_type24753 t14759; struct structure_type24753 t14760; struct structure_type24753 t14761; struct structure_type24753 t14762; struct structure_type24753 t14763; struct structure_type24753 t14764; struct structure_type24753 t14765; struct structure_type24753 t14766; struct structure_type24753 t14767; struct structure_type24753 t14768; struct structure_type24753 t14769; struct structure_type24753 t14770; struct structure_type24753 t14771; struct structure_type24753 t14772; struct structure_type24753 t14773; struct structure_type24753 t14774; struct structure_type24753 t14775; struct structure_type24753 t14776; struct structure_type24753 t14777; struct structure_type24753 t14778; struct structure_type24753 t14779; struct structure_type24753 t14780; struct structure_type24753 t14781; struct structure_type24753 t14782; struct structure_type24753 t14783; struct structure_type24753 t14784; struct structure_type24753 t14785; struct structure_type24753 t14786; struct structure_type24753 t14787; struct structure_type24753 t14788; struct structure_type24753 t14789; struct structure_type24753 t14790; struct structure_type24753 t14791; struct structure_type24753 t14792; struct structure_type24753 t14793; struct structure_type24753 t14794; struct structure_type24753 t14795; struct structure_type24753 t14796; struct structure_type24753 t14797; struct structure_type24753 t14798; struct structure_type24753 t14799; struct structure_type24753 t14800; struct structure_type24753 t14801; struct structure_type24753 t14802; struct structure_type24753 t14803; struct structure_type24753 t14804; struct structure_type24753 t14805; struct structure_type24753 t14806; struct structure_type24753 t14807; struct structure_type24753 t14808; struct structure_type24753 t14809; struct structure_type24753 t14810; struct structure_type24753 t14811; struct structure_type24753 t14812; struct structure_type24753 t14813; struct structure_type24753 t14814; struct structure_type24753 t14815; struct structure_type24753 t14816; struct structure_type24753 t14817; struct structure_type24753 t14818; struct structure_type24753 t14819; struct structure_type24753 t14820; struct structure_type24753 t14821; struct structure_type24753 t14822; struct structure_type24753 t14823; struct structure_type24753 t14824; struct structure_type24753 t14825; struct structure_type24753 t14826; struct structure_type24753 t14827; struct structure_type24753 t14828; struct structure_type24753 t14829; struct structure_type24753 t14830; struct structure_type24753 t14831; struct structure_type24753 t14832; struct structure_type24753 t14833; struct structure_type24753 t14834; struct structure_type24753 t14835; struct structure_type24753 t14836; struct structure_type24753 t14837; struct structure_type24753 t14838; struct structure_type24753 t14839; struct structure_type24753 t14840; struct structure_type24753 t14841; struct structure_type24753 t14842; struct structure_type24753 t14843; struct structure_type24753 t14844; struct structure_type24753 t14845; struct structure_type24753 t14846; struct structure_type24753 t14847; struct structure_type24753 t14848; struct structure_type24753 t14849; struct structure_type24753 t14850; struct structure_type24753 t14851; struct structure_type24753 t14852; struct structure_type24753 t14853; struct structure_type24753 t14854; struct structure_type24753 t14855; struct structure_type24753 t14856; struct structure_type24753 t14857; struct structure_type24753 t14858; struct structure_type24753 t14859; struct structure_type24753 t14860; struct structure_type24753 t14861; struct structure_type24753 t14862; struct structure_type24753 t14863; struct structure_type24753 t14864; struct structure_type24753 t14865; struct structure_type24753 t14866; struct structure_type24753 t14867; struct structure_type24753 t14868; struct structure_type24753 t14869; struct structure_type24753 t14870; struct structure_type24753 t14871; struct structure_type24753 t14872; struct structure_type24753 t14873; struct structure_type24753 t14874; struct structure_type24753 t14875; struct structure_type24753 t14876; struct structure_type24753 t14877; struct structure_type24753 t14878; struct structure_type24753 t14879; struct structure_type24753 t14880; struct structure_type24753 t14881; struct structure_type24753 t14882; struct structure_type24753 t14883; struct structure_type24753 t14884; struct structure_type24753 t14885; struct structure_type24753 t14886; struct structure_type24753 t14887; struct structure_type24753 t14888; struct structure_type24753 t14889; struct structure_type24753 t14890; struct structure_type24753 t14891; struct structure_type24753 t14892; struct structure_type24753 t14893; struct structure_type24753 t14894; struct structure_type24753 t14895; struct structure_type24753 t14896; struct structure_type24753 t14897; struct structure_type24753 t14898; struct structure_type24753 t14899; struct structure_type24753 t14900; struct structure_type24753 t14901; struct structure_type24753 t14902; struct structure_type24753 t14903; struct structure_type24753 t14904; struct structure_type24753 t14905; struct structure_type24753 t14906; struct structure_type24753 t14907; struct structure_type24753 t14908; struct structure_type24753 t14909; struct structure_type24753 t14910; struct structure_type24753 t14911; struct structure_type24753 t14912; struct structure_type24753 t14913; struct structure_type24753 t14914; struct structure_type24753 t14915; struct structure_type24753 t14916; struct structure_type24753 t14917; struct structure_type24753 t14918; struct structure_type24753 t14919; struct structure_type24753 t14920; struct structure_type24753 t14921; struct structure_type24753 t14922; struct structure_type24753 t14923; struct structure_type24753 t14924; struct structure_type24753 t14925; struct structure_type24753 t14926; struct structure_type24753 t14927; struct structure_type24753 t14928; struct structure_type24753 t14929; struct structure_type24753 t14930; struct structure_type24753 t14931; struct structure_type24753 t14932; struct structure_type24753 t14933; struct structure_type24753 t14934; struct structure_type24753 t14935; struct structure_type24753 t14936; struct structure_type24753 t14937; struct structure_type24753 t14938; struct structure_type24753 t14939; struct structure_type24753 t14940; struct structure_type24753 t14941; struct structure_type24753 t14942; struct structure_type24753 t14943; struct structure_type24753 t14944; struct structure_type24753 t14945; struct structure_type24753 t14946; struct structure_type24753 t14947; struct structure_type24753 t14948; struct structure_type24753 t14949; struct structure_type24753 t14950; struct structure_type24753 t14951; struct structure_type24753 t14952; struct structure_type24753 t14953; struct structure_type24753 t14954; struct structure_type24753 t14955; struct structure_type24753 t14956; struct structure_type24753 t14957; struct structure_type24753 t14958; struct structure_type24753 t14959; struct structure_type24753 t14960; struct structure_type24753 t14961; struct structure_type24753 t14962; struct structure_type24753 t14963; struct structure_type24753 t14964; struct structure_type24753 t14965; struct structure_type24753 t14966; struct structure_type24753 t14967; struct structure_type24753 t14968; struct structure_type24753 t14969; struct structure_type24753 t14970; struct structure_type24753 t14971; struct structure_type24753 t14972; struct structure_type24753 t14973; struct structure_type24753 t14974; struct structure_type24753 t14975; struct structure_type24753 t14976; struct structure_type24753 t14977; struct structure_type24753 t14978; struct structure_type24753 t14979; struct structure_type24753 t14980; struct structure_type24753 t14981; struct structure_type24753 t14982; struct structure_type24753 t14983; struct structure_type24753 t14984; struct structure_type24753 t14985; struct structure_type24753 t14986; struct structure_type24753 t14987; struct structure_type24753 t14988; struct structure_type24753 t14989; struct structure_type24753 t14990; struct structure_type24753 t14991; struct structure_type24753 t14992; struct structure_type24753 t14993; struct structure_type24753 t14994; struct structure_type24753 t14995; struct structure_type24753 t14996; struct structure_type24753 t14997; struct structure_type24753 t14998; struct structure_type24753 t14999; struct structure_type24753 t15000; struct structure_type24753 t15001; struct structure_type24753 t15002; struct structure_type24753 t15003; struct structure_type24753 t15004; struct structure_type24753 t15005; struct structure_type24753 t15006; struct structure_type24753 t15007; struct structure_type24753 t15008; struct structure_type24753 t15009; struct structure_type24753 t15010; struct structure_type24753 t15011; struct structure_type24753 t15012; struct structure_type24753 t15013; struct structure_type24753 t15014; struct structure_type24753 t15015; struct structure_type24753 t15016; struct structure_type24753 t15017; struct structure_type24753 t15018; struct structure_type24753 t15019; struct structure_type24753 t15020; struct structure_type24753 t15021; struct structure_type24753 t15022; struct structure_type24753 t15023; struct structure_type24753 t15024; struct structure_type24753 t15025; struct structure_type24753 t15026; struct structure_type24753 t15027; struct structure_type24753 t15028; struct structure_type24753 t15029; struct structure_type24753 t15030; struct structure_type24753 t15031; struct structure_type24753 t15032; struct structure_type24753 t15033; struct structure_type24753 t15034; struct structure_type24753 t15035; struct structure_type24753 t15036; struct structure_type24753 t15037; struct structure_type24753 t15038; struct structure_type24753 t15039; struct structure_type24753 t15040; struct structure_type24753 t15041; struct structure_type24753 t15042; struct structure_type24753 t15043; struct structure_type24753 t15044; struct structure_type24753 t15045; struct structure_type24753 t15046; struct structure_type24753 t15047; struct structure_type24753 t15048; struct structure_type24753 t15049; struct structure_type24753 t15050; struct structure_type24753 t15051; struct structure_type24753 t15052; struct structure_type24753 t15053; struct structure_type24753 t15054; struct structure_type24753 t15055; struct structure_type24753 t15056; struct structure_type24753 t15057; struct structure_type24753 t15058; struct structure_type24753 t15059; struct structure_type24753 t15060; struct structure_type24753 t15061; struct structure_type24753 t15062; struct structure_type24753 t15063; struct structure_type24753 t15064; struct structure_type24753 t15065; struct structure_type24753 t15066; struct structure_type24753 t15067; struct structure_type24753 t15068; struct structure_type24753 t15069; struct structure_type24753 t15070; struct structure_type24753 t15071; struct structure_type24753 t15072; struct structure_type24753 t15073; struct structure_type24753 t15074; struct structure_type24753 t15075; struct structure_type24753 t15076; struct structure_type24753 t15077; struct structure_type24753 t15078; struct structure_type24753 t15079; struct structure_type24753 t15080; struct structure_type24753 t15081; struct structure_type24753 t15082; struct structure_type24753 t15083; struct structure_type24753 t15084; struct structure_type24753 t15085; struct structure_type24753 t15086; struct structure_type24753 t15087; struct structure_type24753 t15088; struct structure_type24753 t15089; struct structure_type24753 t15090; struct structure_type24753 t15091; struct structure_type24753 t15092; struct structure_type24753 t15093; struct structure_type24753 t15094; struct structure_type24753 t15095; struct structure_type24753 t15096; struct structure_type24753 t15097; struct structure_type24753 t15098; struct structure_type24753 t15099; struct structure_type24753 t15100; struct structure_type24753 t15101; struct structure_type24753 t15102; struct structure_type24753 t15103; struct structure_type24753 t15104; struct structure_type24753 t15105; struct structure_type24753 t15106; struct structure_type24753 t15107; struct structure_type24753 t15108; struct structure_type24753 t15109; struct structure_type24753 t15110; struct structure_type24753 t15111; struct structure_type24753 t15112; struct structure_type24753 t15113; struct structure_type24753 t15114; struct structure_type24753 t15115; struct structure_type24753 t15116; struct structure_type24753 t15117; struct structure_type24753 t15118; struct structure_type24753 t15119; struct structure_type24753 t15120; struct structure_type24753 t15121; struct structure_type24753 t15122; struct structure_type24753 t15123; struct structure_type24753 t15124; struct structure_type24753 t15125; struct structure_type24753 t15126; struct structure_type24753 t15127; struct structure_type24753 t15128; struct structure_type24753 t15129; struct structure_type24753 t15130; struct structure_type24753 t15131; struct structure_type24753 t15132; struct structure_type24753 t15133; struct structure_type24753 t15134; struct structure_type24753 t15135; struct structure_type24753 t15136; struct structure_type24753 t15137; struct structure_type24753 t15138; struct structure_type24753 t15139; struct structure_type24753 t15140; struct structure_type24753 t15141; struct structure_type24753 t15142; struct structure_type24753 t15143; struct structure_type24753 t15144; struct structure_type24753 t15145; struct structure_type24753 t15146; struct structure_type24753 t15147; struct structure_type24753 t15148; struct structure_type24753 t15149; struct structure_type24753 t15150; struct structure_type24753 t15151; struct structure_type24753 t15152; struct structure_type24753 t15153; struct structure_type24753 t15154; struct structure_type24753 t15155; struct structure_type24753 t15156; struct structure_type24753 t15157; struct structure_type24753 t15158; struct structure_type24753 t15159; struct structure_type24753 t15160; struct structure_type24753 t15161; struct structure_type24753 t15162; struct structure_type24753 t15163; struct structure_type24753 t15164; struct structure_type24753 t15165; struct structure_type24753 t15166; struct structure_type24753 t15167; struct structure_type24753 t15168; struct structure_type24753 t15169; struct structure_type24753 t15170; struct structure_type24753 t15171; struct structure_type24753 t15172; struct structure_type24753 t15173; struct structure_type24753 t15174; struct structure_type24753 t15175; struct structure_type24753 t15176; struct structure_type24753 t15177; struct structure_type24753 t15178; struct structure_type24753 t15179; struct structure_type24753 t15180; struct structure_type24753 t15181; struct structure_type24753 t15182; struct structure_type24753 t15183; struct structure_type24753 t15184; struct structure_type24753 t15185; struct structure_type24753 t15186; struct structure_type24753 t15187; struct structure_type24753 t15188; struct structure_type24753 t15189; struct structure_type24753 t15190; struct structure_type24753 t15191; struct structure_type24753 t15192; struct structure_type24753 t15193; struct structure_type24753 t15194; struct structure_type24753 t15195; struct structure_type24753 t15196; struct structure_type24753 t15197; struct structure_type24753 t15198; struct structure_type24753 t15199; struct structure_type24753 t15200; struct structure_type24753 t15201; struct structure_type24753 t15202; struct structure_type24753 t15203; struct structure_type24753 t15204; struct structure_type24753 t15205; struct structure_type24753 t15206; struct structure_type24753 t15207; struct structure_type24753 t15208; struct structure_type24753 t15209; struct structure_type24753 t15210; struct structure_type24753 t15211; struct structure_type24753 t15212; struct structure_type24753 t15213; struct structure_type24753 t15214; struct structure_type24753 t15215; struct structure_type24753 t15216; struct structure_type24753 t15217; struct structure_type24753 t15218; struct structure_type24753 t15219; struct structure_type24753 t15220; struct structure_type24753 t15221; struct structure_type24753 t15222; struct structure_type24753 t15223; struct structure_type24753 t15224; struct structure_type24753 t15225; struct structure_type24753 t15226; struct structure_type24753 t15227; struct structure_type24753 t15228; struct structure_type24753 t15229; struct structure_type24753 t15230; struct structure_type24753 t15231; struct structure_type24753 t15232; struct structure_type24753 t15233; struct structure_type24753 t15234; struct structure_type24753 t15235; struct structure_type24753 t15236; struct structure_type24753 t15237; struct structure_type24753 t15238; struct structure_type24753 t15239; struct structure_type24753 t15240; struct structure_type24753 t15241; struct structure_type24753 t15242; struct structure_type24753 t15243; struct structure_type24753 t15244; struct structure_type24753 t15245; struct structure_type24753 t15246; struct structure_type24753 t15247; struct structure_type24753 t15248; struct structure_type24753 t15249; struct structure_type24753 t15250; struct structure_type24753 t15251; struct structure_type24753 t15252; struct structure_type24753 t15253; struct structure_type24753 t15254; struct structure_type24753 t15255; struct structure_type24753 t15256; struct structure_type24753 t15257; struct structure_type24753 t15258; struct structure_type24753 t15259; struct structure_type24753 t15260; struct structure_type24753 t15261; struct structure_type24753 t15262; struct structure_type24753 t15263; struct structure_type24753 t15264; struct structure_type24753 t15265; struct structure_type24753 t15266; struct structure_type24753 t15267; struct structure_type24753 t15268; struct structure_type24753 t15269; struct structure_type24753 t15270; struct structure_type24753 t15271; struct structure_type24753 t15272; struct structure_type24753 t15273; struct structure_type24753 t15274; struct structure_type24753 t15275; struct structure_type24753 t15276; struct structure_type24753 t15277; struct structure_type24753 t15278; struct structure_type24753 t15279; struct structure_type24753 t15280; struct structure_type24753 t15281; struct structure_type24753 t15282; struct structure_type24753 t15283; struct structure_type24753 t15284; struct structure_type24753 t15285; struct structure_type24753 t15286; struct structure_type24753 t15287; struct structure_type24753 t15288; struct structure_type24753 t15289; struct structure_type24753 t15290; struct structure_type24753 t15291; struct structure_type24753 t15292; struct structure_type24753 t15293; struct structure_type24753 t15294; struct structure_type24753 t15295; struct structure_type24753 t15296; struct structure_type24753 t15297; struct structure_type24753 t15298; struct structure_type24753 t15299; struct structure_type24753 t15300; struct structure_type24753 t15301; struct structure_type24753 t15302; struct structure_type24753 t15303; struct structure_type24753 t15304; struct structure_type24753 t15305; struct structure_type24753 t15306; struct structure_type24753 t15307; struct structure_type24753 t15308; struct structure_type24753 t15309; struct structure_type24753 t15310; struct structure_type24753 t15311; struct structure_type24753 t15312; struct structure_type24753 t15313; struct structure_type24753 t15314; struct structure_type24753 t15315; struct structure_type24753 t15316; struct structure_type24753 t15317; struct structure_type24753 t15318; struct structure_type24753 t15319; struct structure_type24753 t15320; struct structure_type24753 t15321; struct structure_type24753 t15322; struct structure_type24753 t15323; struct structure_type24753 t15324; struct structure_type24753 t15325; struct structure_type24753 t15326; struct structure_type24753 t15327; struct structure_type24753 t15328; struct structure_type24753 t15329; struct structure_type24753 t15330; struct structure_type24753 t15331; struct structure_type24753 t15332; struct structure_type24753 t15333; struct structure_type24753 t15334; struct structure_type24753 t15335; struct structure_type24753 t15336; struct structure_type24753 t15337; struct structure_type24753 t15338; struct structure_type24753 t15339; struct structure_type24753 t15340; struct structure_type24753 t15341; struct structure_type24753 t15342; struct structure_type24753 t15343; struct structure_type24753 t15344; struct structure_type24753 t15345; struct structure_type24753 t15346; struct structure_type24753 t15347; struct structure_type24753 t15348; struct structure_type24753 t15349; struct structure_type24753 t15350; struct structure_type24753 t15351; struct structure_type24753 t15352; struct structure_type24753 t15353; struct structure_type24753 t15354; struct structure_type24753 t15355; struct structure_type24753 t15356; struct structure_type24753 t15357; struct structure_type24753 t15358; struct structure_type24753 t15359; struct structure_type24753 t15360; struct structure_type24753 t15361; struct structure_type24753 t15362; struct structure_type24753 t15363; struct structure_type24753 t15364; struct structure_type24753 t15365; struct structure_type24753 t15366; struct structure_type24753 t15367; struct structure_type24753 t15368; struct structure_type24753 t15369; struct structure_type24753 t15370; struct structure_type24753 t15371; struct structure_type24753 t15372; struct structure_type24753 t15373; struct structure_type24753 t15374; struct structure_type24753 t15375; struct structure_type24753 t15376; struct structure_type24753 t15377; struct structure_type24753 t15378; struct structure_type24753 t15379; struct structure_type24753 t15380; struct structure_type24753 t15381; struct structure_type24753 t15382; struct structure_type24753 t15383; struct structure_type24753 t15384; struct structure_type24753 t15385; struct structure_type24753 t15386; struct structure_type24753 t15387; struct structure_type24753 t15388; struct structure_type24753 t15389; struct structure_type24753 t15390; struct structure_type24753 t15391; struct structure_type24753 t15392; struct structure_type24753 t15393; struct structure_type24753 t15394; struct structure_type24753 t15395; struct structure_type24753 t15396; struct structure_type24753 t15397; struct structure_type24753 t15398; struct structure_type24753 t15399; struct structure_type24753 t15400; struct structure_type24753 t15401; struct structure_type24753 t15402; struct structure_type24753 t15403; struct structure_type24753 t15404; struct structure_type24753 t15405; struct structure_type24753 t15406; struct structure_type24753 t15407; struct structure_type24753 t15408; struct structure_type24753 t15409; struct structure_type24753 t15410; struct structure_type24753 t15411; struct structure_type24753 t15412; struct structure_type24753 t15413; struct structure_type24753 t15414; struct structure_type24753 t15415; struct structure_type24753 t15416; struct structure_type24753 t15417; struct structure_type24753 t15418; struct structure_type24753 t15419; struct structure_type24753 t15420; struct structure_type24753 t15421; struct structure_type24753 t15422; struct structure_type24753 t15423; struct structure_type24753 t15424; struct structure_type24753 t15425; struct structure_type24753 t15426; struct structure_type24753 t15427; struct structure_type24753 t15428; struct structure_type24753 t15429; struct structure_type24753 t15430; struct structure_type24753 t15431; struct structure_type24753 t15432; struct structure_type24753 t15433; struct structure_type24753 t15434; struct structure_type24753 t15435; struct structure_type24753 t15436; struct structure_type24753 t15437; struct structure_type24753 t15438; struct structure_type24753 t15439; struct structure_type24753 t15440; struct structure_type24753 t15441; struct structure_type24753 t15442; struct structure_type24753 t15443; struct structure_type24753 t15444; struct structure_type24753 t15445; struct structure_type24753 t15446; struct structure_type24753 t15447; struct structure_type24753 t15448; struct structure_type24753 t15449; struct structure_type24753 t15450; struct structure_type24753 t15451; struct structure_type24753 t15452; struct structure_type24753 t15453; struct structure_type24753 t15454; struct structure_type24753 t15455; struct structure_type24753 t15456; struct structure_type24753 t15457; struct structure_type24753 t15458; struct structure_type24753 t15459; struct structure_type24753 t15460; struct structure_type24753 t15461; struct structure_type24753 t15462; struct structure_type24753 t15463; struct structure_type24753 t15464; struct structure_type24753 t15465; struct structure_type24753 t15466; struct structure_type24753 t15467; struct structure_type24753 t15468; struct structure_type24753 t15469; struct structure_type24753 t15470; struct structure_type24753 t15471; struct structure_type24753 t15472; struct structure_type24753 t15473; struct structure_type24753 t15474; struct structure_type24753 t15475; struct structure_type24753 t15476; struct structure_type24753 t15477; struct structure_type24753 t15478; struct structure_type24753 t15479; struct structure_type24753 t15480; struct structure_type24753 t15481; struct structure_type24753 t15482; struct structure_type24753 t15483; struct structure_type24753 t15484; struct structure_type24753 t15485; struct structure_type24753 t15486; struct structure_type24753 t15487; struct structure_type24753 t15488; struct structure_type24753 t15489; struct structure_type24753 t15490; struct structure_type24753 t15491; struct structure_type24753 t15492; struct structure_type24753 t15493; struct structure_type24753 t15494; struct structure_type24753 t15495; struct structure_type24753 t15496; struct structure_type24753 t15497; struct structure_type24753 t15498; struct structure_type24753 t15499; struct structure_type24753 t15500; struct structure_type24753 t15501; struct structure_type24753 t15502; struct structure_type24753 t15503; struct structure_type24753 t15504; struct structure_type24753 t15505; struct structure_type24753 t15506; struct structure_type24753 t15507; struct structure_type24753 t15508; struct structure_type24753 t15509; struct structure_type24753 t15510; struct structure_type24753 t15511; struct structure_type24753 t15512; struct structure_type24753 t15513; struct structure_type24753 t15514; struct structure_type24753 t15515; struct structure_type24753 t15516; struct structure_type24753 t15517; struct structure_type24753 t15518; struct structure_type24753 t15519; struct structure_type24753 t15520; struct structure_type24753 t15521; struct structure_type24753 t15522; struct structure_type24753 t15523; struct structure_type24753 t15524; struct structure_type24753 t15525; struct structure_type24753 t15526; struct structure_type24753 t15527; struct structure_type24753 t15528; struct structure_type24753 t15529; struct structure_type24753 t15530; struct structure_type24753 t15531; struct structure_type24753 t15532; struct structure_type24753 t15533; struct structure_type24753 t15534; struct structure_type24753 t15535; struct structure_type24753 t15536; struct structure_type24753 t15537; struct structure_type24753 t15538; struct structure_type24753 t15539; struct structure_type24753 t15540; struct structure_type24753 t15541; struct structure_type24753 t15542; struct structure_type24753 t15543; struct structure_type24753 t15544; struct structure_type24753 t15545; struct structure_type24753 t15546; struct structure_type24753 t15547; struct structure_type24753 t15548; struct structure_type24753 t15549; struct structure_type24753 t15550; struct structure_type24753 t15551; struct structure_type24753 t15552; struct structure_type24753 t15553; struct structure_type24753 t15554; struct structure_type24753 t15555; struct structure_type24753 t15556; struct structure_type24753 t15557; struct structure_type24753 t15558; struct structure_type24753 t15559; struct structure_type24753 t15560; struct structure_type24753 t15561; struct structure_type24753 t15562; struct structure_type24753 t15563; struct structure_type24753 t15564; struct structure_type24753 t15565; struct structure_type24753 t15566; struct structure_type24753 t15567; struct structure_type24753 t15568; struct structure_type24753 t15569; struct structure_type24753 t15570; struct structure_type24753 t15571; struct structure_type24753 t15572; struct structure_type24753 t15573; struct structure_type24753 t15574; struct structure_type24753 t15575; struct structure_type24753 t15576; struct structure_type24753 t15577; struct structure_type24753 t15578; struct structure_type24753 t15579; struct structure_type24753 t15580; struct structure_type24753 t15581; struct structure_type24753 t15582; struct structure_type24753 t15583; struct structure_type24753 t15584; struct structure_type24753 t15585; struct structure_type24753 t15586; struct structure_type24753 t15587; struct structure_type24753 t15588; struct structure_type24753 t15589; struct structure_type24753 t15590; struct structure_type24753 t15591; struct structure_type24753 t15592; struct structure_type24753 t15593; struct structure_type24753 t15594; struct structure_type24753 t15595; struct structure_type24753 t15596; struct structure_type24753 t15597; struct structure_type24753 t15598; struct structure_type24753 t15599; struct structure_type24753 t15600; struct structure_type24753 t15601; struct structure_type24753 t15602; struct structure_type24753 t15603; struct structure_type24753 t15604; struct structure_type24753 t15605; struct structure_type24753 t15606; struct structure_type24753 t15607; struct structure_type24753 t15608; struct structure_type24753 t15609; struct structure_type24753 t15610; struct structure_type24753 t15611; struct structure_type24753 t15612; struct structure_type24753 t15613; struct structure_type24753 t15614; struct structure_type24753 t15615; struct structure_type24753 t15616; struct structure_type24753 t15617; struct structure_type24753 t15618; struct structure_type24753 t15619; struct structure_type24753 t15620; struct structure_type24753 t15621; struct structure_type24753 t15622; struct structure_type24753 t15623; struct structure_type24753 t15624; struct structure_type24753 t15625; struct structure_type24753 t15626; struct structure_type24753 t15627; struct structure_type24753 t15628; struct structure_type24753 t15629; struct structure_type24753 t15630; struct structure_type24753 t15631; struct structure_type24753 t15632; struct structure_type24753 t15633; struct structure_type24753 t15634; struct structure_type24753 t15635; struct structure_type24753 t15636; struct structure_type24753 t15637; struct structure_type24753 t15638; struct structure_type24753 t15639; struct structure_type24753 t15640; struct structure_type24753 t15641; struct structure_type24753 t15642; struct structure_type24753 t15643; struct structure_type24753 t15644; struct structure_type24753 t15645; struct structure_type24753 t15646; struct structure_type24753 t15647; struct structure_type24753 t15648; struct structure_type24753 t15649; struct structure_type24753 t15650; struct structure_type24753 t15651; struct structure_type24753 t15652; struct structure_type24753 t15653; struct structure_type24753 t15654; struct structure_type24753 t15655; struct structure_type24753 t15656; struct structure_type24753 t15657; struct structure_type24753 t15658; struct structure_type24753 t15659; struct structure_type24753 t15660; struct structure_type24753 t15661; struct structure_type24753 t15662; struct structure_type24753 t15663; struct structure_type24753 t15664; struct structure_type24753 t15665; struct structure_type24753 t15666; struct structure_type24753 t15667; struct structure_type24753 t15668; struct structure_type24753 t15669; struct structure_type24753 t15670; struct structure_type24753 t15671; struct structure_type24753 t15672; struct structure_type24753 t15673; struct structure_type24753 t15674; struct structure_type24753 t15675; struct structure_type24753 t15676; struct structure_type24753 t15677; struct structure_type24753 t15678; struct structure_type24753 t15679; struct structure_type24753 t15680; struct structure_type24753 t15681; struct structure_type24753 t15682; struct structure_type24753 t15683; struct structure_type24753 t15684; struct structure_type24753 t15685; struct structure_type24753 t15686; struct structure_type24753 t15687; struct structure_type24753 t15688; struct structure_type24753 t15689; struct structure_type24753 t15690; struct structure_type24753 t15691; struct structure_type24753 t15692; struct structure_type24753 t15693; struct structure_type24753 t15694; struct structure_type24753 t15695; struct structure_type24753 t15696; struct structure_type24753 t15697; struct structure_type24753 t15698; struct structure_type24753 t15699; struct structure_type24753 t15700; struct structure_type24753 t15701; struct structure_type24753 t15702; struct structure_type24753 t15703; struct structure_type24753 t15704; struct structure_type24753 t15705; struct structure_type24753 t15706; struct structure_type24753 t15707; struct structure_type24753 t15708; struct structure_type24753 t15709; struct structure_type24753 t15710; struct structure_type24753 t15711; struct structure_type24753 t15712; struct structure_type24753 t15713; struct structure_type24753 t15714; struct structure_type24753 t15715; struct structure_type24753 t15716; struct structure_type24753 t15717; struct structure_type24753 t15718; struct structure_type24753 t15719; struct structure_type24753 t15720; struct structure_type24753 t15721; struct structure_type24753 t15722; struct structure_type24753 t15723; struct structure_type24753 t15724; struct structure_type24753 t15725; struct structure_type24753 t15726; struct structure_type24753 t15727; struct structure_type24753 t15728; struct structure_type24753 t15729; struct structure_type24753 t15730; struct structure_type24753 t15731; struct structure_type24753 t15732; struct structure_type24753 t15733; struct structure_type24753 t15734; struct structure_type24753 t15735; struct structure_type24753 t15736; struct structure_type24753 t15737; struct structure_type24753 t15738; struct structure_type24753 t15739; struct structure_type24753 t15740; struct structure_type24753 t15741; struct structure_type24753 t15742; struct structure_type24753 t15743; struct structure_type24753 t15744; struct structure_type24753 t15745; struct structure_type24753 t15746; struct structure_type24753 t15747; struct structure_type24753 t15748; struct structure_type24753 t15749; struct structure_type24753 t15750; struct structure_type24753 t15751; struct structure_type24753 t15752; struct structure_type24753 t15753; struct structure_type24753 t15754; struct structure_type24753 t15755; struct structure_type24753 t15756; struct structure_type24753 t15757; struct structure_type24753 t15758; struct structure_type24753 t15759; struct structure_type24753 t15760; struct structure_type24753 t15761; struct structure_type24753 t15762; struct structure_type24753 t15763; struct structure_type24753 t15764; struct structure_type24753 t15765; struct structure_type24753 t15766; struct structure_type24753 t15767; struct structure_type24753 t15768; struct structure_type24753 t15769; struct structure_type24753 t15770; struct structure_type24753 t15771; struct structure_type24753 t15772; struct structure_type24753 t15773; struct structure_type24753 t15774; struct structure_type24753 t15775; struct structure_type24753 t15776; struct structure_type24753 t15777; struct structure_type24753 t15778; struct structure_type24753 t15779; struct structure_type24753 t15780; struct structure_type24753 t15781; struct structure_type24753 t15782; struct structure_type24753 t15783; struct structure_type24753 t15784; struct structure_type24753 t15785; struct structure_type24753 t15786; struct structure_type24753 t15787; struct structure_type24753 t15788; struct structure_type24753 t15789; struct structure_type24753 t15790; struct structure_type24753 t15791; struct structure_type24753 t15792; struct structure_type24753 t15793; struct structure_type24753 t15794; struct structure_type24753 t15795; struct structure_type24753 t15796; struct structure_type24753 t15797; struct structure_type24753 t15798; struct structure_type24753 t15799; struct structure_type24753 t15800; struct structure_type24753 t15801; struct structure_type24753 t15802; struct structure_type24753 t15803; struct structure_type24753 t15804; struct structure_type24753 t15805; struct structure_type24753 t15806; struct structure_type24753 t15807; struct structure_type24753 t15808; struct structure_type24753 t15809; struct structure_type24753 t15810; struct structure_type24753 t15811; struct structure_type24753 t15812; struct structure_type24753 t15813; struct structure_type24753 t15814; struct structure_type24753 t15815; struct structure_type24753 t15816; struct structure_type24753 t15817; struct structure_type24753 t15818; struct structure_type24753 t15819; struct structure_type24753 t15820; struct structure_type24753 t15821; struct structure_type24753 t15822; struct structure_type24753 t15823; struct structure_type24753 t15824; struct structure_type24753 t15825; struct structure_type24753 t15826; struct structure_type24753 t15827; struct structure_type24753 t15828; struct structure_type24753 t15829; struct structure_type24753 t15830; struct structure_type24753 t15831; struct structure_type24753 t15832; struct structure_type24753 t15833; struct structure_type24753 t15834; struct structure_type24753 t15835; struct structure_type24753 t15836; struct structure_type24753 t15837; struct structure_type24753 t15838; struct structure_type24753 t15839; struct structure_type24753 t15852; struct structure_type24753 t15868; struct structure_type24753 t15869; struct structure_type24753 t15935; struct structure_type24753 t15936; struct structure_type24753 t15937; struct structure_type24753 t15938; struct structure_type24753 t15939; struct structure_type24753 t15940; struct structure_type24753 t15941; struct structure_type24753 t15942; struct structure_type24753 t15943; struct structure_type24753 t15944; struct structure_type24753 t15945; struct structure_type24753 t15946; struct structure_type24753 t15947; struct structure_type24753 t15948; struct structure_type24753 t15949; struct structure_type24753 t15950; struct structure_type24753 t15951; struct structure_type24753 t15952; struct structure_type24753 t15953; struct structure_type24753 t15954; struct structure_type24753 t15955; struct structure_type24753 t15956; struct structure_type24753 t15957; struct structure_type24753 t15958; struct structure_type24753 t15959; struct structure_type24753 t15960; struct structure_type24753 t15961; struct structure_type24753 t15962; struct structure_type24753 t15963; struct structure_type24753 t15964; struct structure_type24753 t15965; struct structure_type24753 t15966; struct structure_type24753 t15967; struct structure_type24753 t15968; struct structure_type24753 t15969; struct structure_type24753 t15970; struct structure_type24753 t15971; struct structure_type24753 t15972; struct structure_type24753 t15973; struct structure_type24753 t15974; struct structure_type24753 t15975; struct structure_type24753 t15976; struct structure_type24753 t15977; struct structure_type24753 t15978; struct structure_type24753 t15979; struct structure_type24753 t15980; struct structure_type24753 t15981; struct structure_type24753 t15982; struct structure_type24753 t15983; struct structure_type24753 t15984; struct structure_type24753 t15985; struct structure_type24753 t15986; struct structure_type24753 t15987; struct structure_type24753 t15988; struct structure_type24753 t15989; struct structure_type24753 t15990; struct structure_type24753 t15991; struct structure_type24753 t15992; struct structure_type24753 t15993; struct structure_type24753 t15994; struct structure_type24753 t15995; struct structure_type24753 t15996; struct structure_type24753 t15997; struct structure_type24753 t15998; struct structure_type24753 t15999; struct structure_type24753 t16000; struct structure_type24753 t16001; struct structure_type24753 t16002; struct structure_type24753 t16003; struct structure_type24753 t16004; struct structure_type24753 t16005; struct structure_type24753 t16006; struct structure_type24753 t16007; struct structure_type24753 t16008; struct structure_type24753 t16009; struct structure_type24753 t16010; struct structure_type24753 t16011; struct structure_type24753 t16012; struct structure_type24753 t16013; struct structure_type24753 t16014; struct structure_type24753 t16015; struct structure_type24753 t16016; struct structure_type24753 t16017; struct structure_type24753 t16018; struct structure_type24753 t16019; struct structure_type24753 t16020; struct structure_type24753 t16021; struct structure_type24753 t16022; struct structure_type24753 t16023; struct structure_type24753 t16024; struct structure_type24753 t16025; struct structure_type24753 t16026; struct structure_type24753 t16027; struct structure_type24753 t16028; struct structure_type24753 t16029; struct structure_type24753 t16030; struct structure_type24753 t16031; struct structure_type24753 t16032; struct structure_type24753 t16033; struct structure_type24753 t16034; struct structure_type24753 t16035; struct structure_type24753 t16036; struct structure_type24753 t16037; struct structure_type24753 t16038; struct structure_type24753 t16039; struct structure_type24753 t16040; struct structure_type24753 t16041; struct structure_type24753 t16042; struct structure_type24753 t16043; struct structure_type24753 t16044; struct structure_type24753 t16045; struct structure_type24753 t16046; struct structure_type24753 t16047; struct structure_type24753 t16048; struct structure_type24753 t16049; struct structure_type24753 t16050; struct structure_type24753 t16051; struct structure_type24753 t16052; struct structure_type24753 t16053; struct structure_type24753 t16054; struct structure_type24753 t16055; struct structure_type24753 t16056; struct structure_type24753 t16057; struct structure_type24753 t16058; struct structure_type24753 t16059; struct structure_type24753 t16060; struct structure_type24753 t16061; struct structure_type24753 t16062; struct structure_type24753 t16063; struct structure_type24753 t16064; struct structure_type24753 t16065; struct structure_type24753 t16066; struct structure_type24753 t16067; struct structure_type24753 t16068; struct structure_type24753 t16069; struct structure_type24753 t16070; struct structure_type24753 t16071; struct structure_type24753 t16072; struct structure_type24753 t16073; struct structure_type24753 t16074; struct structure_type24753 t16075; struct structure_type24753 t16076; struct structure_type24753 t16077; struct structure_type24753 t16078; struct structure_type24753 t16079; struct structure_type24753 t16080; struct structure_type24753 t16081; struct structure_type24753 t16082; struct structure_type24753 t16083; struct structure_type24753 t16084; struct structure_type24753 t16085; struct structure_type24753 t16086; struct structure_type24753 t16087; struct structure_type24753 t16088; struct structure_type24753 t16089; struct structure_type24753 t16090; struct structure_type24753 t16091; struct structure_type24753 t16092; struct structure_type24753 t16093; struct structure_type24753 t16094; struct structure_type24753 t16095; struct structure_type24753 t16096; struct structure_type24753 t16097; struct structure_type24753 t16098; struct structure_type24753 t16099; struct structure_type24753 t16100; struct structure_type24753 t16101; struct structure_type24753 t16102; struct structure_type24753 t16103; struct structure_type24753 t16104; struct structure_type24753 t16105; struct structure_type24753 t16106; struct structure_type24753 t16107; struct structure_type24753 t16108; struct structure_type24753 t16109; struct structure_type24753 t16110; struct structure_type24753 t16111; struct structure_type24753 t16112; struct structure_type24753 t16113; struct structure_type24753 t16114; struct structure_type24753 t16115; struct structure_type24753 t16116; struct structure_type24753 t16117; struct structure_type24753 t16118; struct structure_type24753 t16119; struct structure_type24753 t16120; struct structure_type24753 t16121; struct structure_type24753 t16122; struct structure_type24753 t16123; struct structure_type24753 t16124; struct structure_type24753 t16125; struct structure_type24753 t16126; struct structure_type24753 t16127; struct structure_type24753 t16128; struct structure_type24753 t16129; struct structure_type24753 t16130; struct structure_type24753 t16131; struct structure_type24753 t16132; struct structure_type24753 t16133; struct structure_type24753 t16134; struct structure_type24753 t16135; struct structure_type24753 t16136; struct structure_type24753 t16137; struct structure_type24753 t16138; struct structure_type24753 t16139; struct structure_type24753 t16140; struct structure_type24753 t16141; struct structure_type24753 t16142; struct structure_type24753 t16143; struct structure_type24753 t16144; struct structure_type24753 t16145; struct structure_type24753 t16146; struct structure_type24753 t16147; struct structure_type24753 t16148; struct structure_type24753 t16149; struct structure_type24753 t16150; struct structure_type24753 t16151; struct structure_type24753 t16152; struct structure_type24753 t16153; struct structure_type24753 t16154; struct structure_type24753 t16155; struct structure_type24753 t16156; struct structure_type24753 t16157; struct structure_type24753 t16158; struct structure_type24753 t16159; struct structure_type24753 t16160; struct structure_type24753 t16161; struct structure_type24753 t16162; struct structure_type24753 t16163; struct structure_type24753 t16164; struct structure_type24753 t16165; struct structure_type24753 t16166; struct structure_type24753 t16167; struct structure_type24753 t16168; struct structure_type24753 t16169; struct structure_type24753 t16170; struct structure_type24753 t16171; struct structure_type24753 t16172; struct structure_type24753 t16173; struct structure_type24753 t16174; struct structure_type24753 t16175; struct structure_type24753 t16176; struct structure_type24753 t16177; struct structure_type24753 t16178; struct structure_type24753 t16179; struct structure_type24753 t16180; struct structure_type24753 t16181; struct structure_type24753 t16182; struct structure_type24753 t16183; struct structure_type24753 t16184; struct structure_type24753 t16185; struct structure_type24753 t16186; struct structure_type24753 t16187; struct structure_type24753 t16188; struct structure_type24753 t16189; struct structure_type24753 t16190; struct structure_type24753 t16191; struct structure_type24753 t16192; struct structure_type24753 t16193; struct structure_type24753 t16194; struct structure_type24753 t16195; struct structure_type24753 t16196; struct structure_type24753 t16197; struct structure_type24753 t16198; struct structure_type24753 t16199; struct structure_type24753 t16200; struct structure_type24753 t16201; struct structure_type24753 t16202; struct structure_type24753 t16203; struct structure_type24753 t16204; struct structure_type24753 t16205; struct structure_type24753 t16206; struct structure_type24753 t16207; struct structure_type24753 t16208; struct structure_type24753 t16209; struct structure_type24753 t16210; struct structure_type24753 t16211; struct structure_type24753 t16212; struct structure_type24753 t16213; struct structure_type24753 t16214; struct structure_type24753 t16215; struct structure_type24753 t16216; struct structure_type24753 t16217; struct structure_type24753 t16218; struct structure_type24753 t16219; struct structure_type24753 t16220; struct structure_type24753 t16221; struct structure_type24753 t16222; struct structure_type24753 t16223; struct structure_type24753 t16224; struct structure_type24753 t16225; struct structure_type24753 t16226; struct structure_type24753 t16227; struct structure_type24753 t16228; struct structure_type24753 t16229; struct structure_type24753 t16230; struct structure_type24753 t16231; struct structure_type24753 t16232; struct structure_type24753 t16233; struct structure_type24753 t16234; struct structure_type24753 t16235; struct structure_type24753 t16236; struct structure_type24753 t16237; struct structure_type24753 t16238; struct structure_type24753 t16239; struct structure_type24753 t16240; struct structure_type24753 t16241; struct structure_type24753 t16242; struct structure_type24753 t16243; struct structure_type24753 t16244; struct structure_type24753 t16245; struct structure_type24753 t16246; struct structure_type24753 t16247; struct structure_type24753 t16248; struct structure_type24753 t16249; struct structure_type24753 t16250; struct structure_type24753 t16251; struct structure_type24753 t16252; struct structure_type24753 t16253; struct structure_type24753 t16254; struct structure_type24753 t16255; struct structure_type24753 t16256; struct structure_type24753 t16257; struct structure_type24753 t16258; struct structure_type24753 t16259; struct structure_type24753 t16260; struct structure_type24753 t16261; struct structure_type24753 t16262; struct structure_type24753 t16263; struct structure_type24753 t16264; struct structure_type24753 t16265; struct structure_type24753 t16266; struct structure_type24753 t16267; struct structure_type24753 t16268; struct structure_type24753 t16269; struct structure_type24753 t16270; struct structure_type24753 t16271; struct structure_type24753 t16272; struct structure_type24753 t16273; struct structure_type24753 t16274; struct structure_type24753 t16275; struct structure_type24753 t16276; struct structure_type24753 t16277; struct structure_type24753 t16278; struct structure_type24753 t16279; struct structure_type24753 t16280; struct structure_type24753 t16281; struct structure_type24753 t16282; struct structure_type24753 t16283; struct structure_type24753 t16284; struct structure_type24753 t16285; struct structure_type24753 t16286; struct structure_type24753 t16287; struct structure_type24753 t16288; struct structure_type24753 t16289; struct structure_type24753 t16290; struct structure_type24753 t16291; struct structure_type24753 t16292; struct structure_type24753 t16293; struct structure_type24753 t16294; struct structure_type24753 t16295; struct structure_type24753 t16296; struct structure_type24753 t16297; struct structure_type24753 t16298; struct structure_type24753 t16299; struct structure_type24753 t16300; struct structure_type24753 t16301; struct structure_type24753 t16302; struct structure_type24753 t16303; struct structure_type24753 t16304; struct structure_type24753 t16305; struct structure_type24753 t16306; struct structure_type24753 t16307; struct structure_type24753 t16308; struct structure_type24753 t16309; struct structure_type24753 t16310; struct structure_type24753 t16311; struct structure_type24753 t16312; struct structure_type24753 t16313; struct structure_type24753 t16314; struct structure_type24753 t16315; struct structure_type24753 t16316; struct structure_type24753 t16317; struct structure_type24753 t16318; struct structure_type24753 t16319; struct structure_type24753 t16320; struct structure_type24753 t16321; struct structure_type24753 t16322; struct structure_type24753 t16323; struct structure_type24753 t16324; struct structure_type24753 t16325; struct structure_type24753 t16326; struct structure_type24753 t16327; struct structure_type24753 t16328; struct structure_type24753 t16329; struct structure_type24753 t16330; struct structure_type24753 t16331; struct structure_type24753 t16332; struct structure_type24753 t16333; struct structure_type24753 t16334; struct structure_type24753 t16335; struct structure_type24753 t16336; struct structure_type24753 t16337; struct structure_type24753 t16338; struct structure_type24753 t16339; struct structure_type24753 t16340; struct structure_type24753 t16341; struct structure_type24753 t16342; struct structure_type24753 t16343; struct structure_type24753 t16344; struct structure_type24753 t16345; struct structure_type24753 t16346; struct structure_type24753 t16347; struct structure_type24753 t16348; struct structure_type24753 t16349; struct structure_type24753 t16350; struct structure_type24753 t16351; struct structure_type24753 t16352; struct structure_type24753 t16353; struct structure_type24753 t16354; struct structure_type24753 t16355; struct structure_type24753 t16356; struct structure_type24753 t16357; struct structure_type24753 t16358; struct structure_type24753 t16359; struct structure_type24753 t16360; struct structure_type24753 t16361; struct structure_type24753 t16362; struct structure_type24753 t16363; struct structure_type24753 t16364; struct structure_type24753 t16365; struct structure_type24753 t16366; struct structure_type24753 t16367; struct structure_type24753 t16368; struct structure_type24753 t16369; struct structure_type24753 t16370; struct structure_type24753 t16371; struct structure_type24753 t16372; struct structure_type24753 t16373; struct structure_type24753 t16374; struct structure_type24753 t16375; struct structure_type24753 t16376; struct structure_type24753 t16377; struct structure_type24753 t16378; struct structure_type24753 t16379; struct structure_type24753 t16380; struct structure_type24753 t16381; struct structure_type24753 t16382; struct structure_type24753 t16383; struct structure_type24753 t16384; struct structure_type24753 t16385; struct structure_type24753 t16386; struct structure_type24753 t16387; struct structure_type24753 t16388; struct structure_type24753 t16389; struct structure_type24753 t16390; struct structure_type24753 t16391; struct structure_type24753 t16392; struct structure_type24753 t16393; struct structure_type24753 t16394; struct structure_type24753 t16395; struct structure_type24753 t16396; struct structure_type24753 t16397; struct structure_type24753 t16398; struct structure_type24753 t16399; struct structure_type24753 t16400; struct structure_type24753 t16401; struct structure_type24753 t16402; struct structure_type24753 t16403; struct structure_type24753 t16404; struct structure_type24753 t16405; struct structure_type24753 t16406; struct structure_type24753 t16407; struct structure_type24753 t16408; struct structure_type24753 t16409; struct structure_type24753 t16410; struct structure_type24753 t16411; struct structure_type24753 t16412; struct structure_type24753 t16413; struct structure_type24753 t16414; struct structure_type24753 t16415; struct structure_type24753 t16416; struct structure_type24753 t16417; struct structure_type24753 t16418; struct structure_type24753 t16419; struct structure_type24753 t16420; struct structure_type24753 t16421; struct structure_type24753 t16422; struct structure_type24753 t16423; struct structure_type24753 t16424; struct structure_type24753 t16425; struct structure_type24753 t16426; struct structure_type24753 t16427; struct structure_type24753 t16428; struct structure_type24753 t16429; struct structure_type24753 t16430; struct structure_type24753 t16431; struct structure_type24753 t16432; struct structure_type24753 t16433; struct structure_type24753 t16434; struct structure_type24753 t16435; struct structure_type24753 t16436; struct structure_type24753 t16437; struct structure_type24753 t16438; struct structure_type24753 t16439; struct structure_type24753 t16440; struct structure_type24753 t16441; struct structure_type24753 t16442; struct structure_type24753 t16443; struct structure_type24753 t16444; struct structure_type24753 t16445; struct structure_type24753 t16446; struct structure_type24753 t16447; struct structure_type24753 t16448; struct structure_type24753 t16449; struct structure_type24753 t16450; struct structure_type24753 t16451; struct structure_type24753 t16452; struct structure_type24753 t16453; struct structure_type24753 t16454; struct structure_type24753 t16455; struct structure_type24753 t16456; struct structure_type24753 t16457; struct structure_type24753 t16458; struct structure_type24753 t16459; struct structure_type24753 t16460; struct structure_type24753 t16461; struct structure_type24753 t16462; struct structure_type24753 t16463; struct structure_type24753 t16464; struct structure_type24753 t16465; struct structure_type24753 t16466; struct structure_type24753 t16467; struct structure_type24753 t16468; struct structure_type24753 t16469; struct structure_type24753 t16470; struct structure_type24753 t16471; struct structure_type24753 t16472; struct structure_type24753 t16473; struct structure_type24753 t16474; struct structure_type24753 t16475; struct structure_type24753 t16476; struct structure_type24753 t16477; struct structure_type24753 t16478; struct structure_type24753 t16479; struct structure_type24753 t16480; struct structure_type24753 t16481; struct structure_type24753 t16482; struct structure_type24753 t16483; struct structure_type24753 t16484; struct structure_type24753 t16485; struct structure_type24753 t16486; struct structure_type24753 t16487; struct structure_type24753 t16488; struct structure_type24753 t16489; struct structure_type24753 t16490; struct structure_type24753 t16491; struct structure_type24753 t16492; struct structure_type24753 t16493; struct structure_type24753 t16494; struct structure_type24753 t16495; struct structure_type24753 t16496; struct structure_type24753 t16497; struct structure_type24753 t16498; struct structure_type24753 t16499; struct structure_type24753 t16500; struct structure_type24753 t16501; struct structure_type24753 t16502; struct structure_type24753 t16503; struct structure_type24753 t16504; struct structure_type24753 t16505; struct structure_type24753 t16506; struct structure_type24753 t16507; struct structure_type24753 t16508; struct structure_type24753 t16509; struct structure_type24753 t16510; struct structure_type24753 t16511; struct structure_type24753 t16512; struct structure_type24753 t16513; struct structure_type24753 t16514; struct structure_type24753 t16515; struct structure_type24753 t16516; struct structure_type24753 t16517; struct structure_type24753 t16518; struct structure_type24753 t16519; struct structure_type24753 t16520; struct structure_type24753 t16521; struct structure_type24753 t16522; struct structure_type24753 t16523; struct structure_type24753 t16524; struct structure_type24753 t16525; struct structure_type24753 t16526; struct structure_type24753 t16527; struct structure_type24753 t16528; struct structure_type24753 t16529; struct structure_type24753 t16530; struct structure_type24753 t16531; struct structure_type24753 t16532; struct structure_type24753 t16533; struct structure_type24753 t16534; struct structure_type24753 t16535; struct structure_type24753 t16536; struct structure_type24753 t16537; struct structure_type24753 t16538; struct structure_type24753 t16539; struct structure_type24753 t16540; struct structure_type24753 t16541; struct structure_type24753 t16542; struct structure_type24753 t16543; struct structure_type24753 t16544; struct structure_type24753 t16545; struct structure_type24753 t16546; struct structure_type24753 t16547; struct structure_type24753 t16548; struct structure_type24753 t16549; struct structure_type24753 t16550; struct structure_type24753 t16551; struct structure_type24753 t16552; struct structure_type24753 t16553; struct structure_type24753 t16554; struct structure_type24753 t16555; struct structure_type24753 t16556; struct structure_type24753 t16557; struct structure_type24753 t16558; struct structure_type24753 t16559; struct structure_type24753 t16560; struct structure_type24753 t16561; struct structure_type24753 t16562; struct structure_type24753 t16563; struct structure_type24753 t16564; struct structure_type24753 t16565; struct structure_type24753 t16566; struct structure_type24753 t16567; struct structure_type24753 t16568; struct structure_type24753 t16569; struct structure_type24753 t16570; struct structure_type24753 t16571; struct structure_type24753 t16572; struct structure_type24753 t16573; struct structure_type24753 t16574; struct structure_type24753 t16575; struct structure_type24753 t16576; struct structure_type24753 t16577; struct structure_type24753 t16578; struct structure_type24753 t16579; struct structure_type24753 t16580; struct structure_type24753 t16581; struct structure_type24753 t16582; struct structure_type24753 t16583; struct structure_type24753 t16584; struct structure_type24753 t16585; struct structure_type24753 t16586; struct structure_type24753 t16587; struct structure_type24753 t16588; struct structure_type24753 t16589; struct structure_type24753 t16590; struct structure_type24753 t16591; struct structure_type24753 t16592; struct structure_type24753 t16593; struct structure_type24753 t16594; struct structure_type24753 t16595; struct structure_type24753 t16596; struct structure_type24753 t16597; struct structure_type24753 t16598; struct structure_type24753 t16599; struct structure_type24753 t16600; struct structure_type24753 t16601; struct structure_type24753 t16602; struct structure_type24753 t16603; struct structure_type24753 t16604; struct structure_type24753 t16605; struct structure_type24753 t16606; struct structure_type24753 t16607; struct structure_type24753 t16608; struct structure_type24753 t16609; struct structure_type24753 t16610; struct structure_type24753 t16611; struct structure_type24753 t16612; struct structure_type24753 t16613; struct structure_type24753 t16614; struct structure_type24753 t16615; struct structure_type24753 t16616; struct structure_type24753 t16617; struct structure_type24753 t16618; struct structure_type24753 t16619; struct structure_type24753 t16620; struct structure_type24753 t16621; struct structure_type24753 t16622; struct structure_type24753 t16623; struct structure_type24753 t16624; struct structure_type24753 t16625; struct structure_type24753 t16626; struct structure_type24753 t16627; struct structure_type24753 t16628; struct structure_type24753 t16629; struct structure_type24753 t16630; struct structure_type24753 t16631; struct structure_type24753 t16632; struct structure_type24753 t16633; struct structure_type24753 t16634; struct structure_type24753 t16635; struct structure_type24753 t16636; struct structure_type24753 t16637; struct structure_type24753 t16638; struct structure_type24753 t16639; struct structure_type24753 t16640; struct structure_type24753 t16641; struct structure_type24753 t16642; struct structure_type24753 t16643; struct structure_type24753 t16644; struct structure_type24753 t16645; struct structure_type24753 t16646; struct structure_type24753 t16647; struct structure_type24753 t16648; struct structure_type24753 t16649; struct structure_type24753 t16650; struct structure_type24753 t16651; struct structure_type24753 t16652; struct structure_type24753 t16653; struct structure_type24753 t16654; struct structure_type24753 t16655; struct structure_type24753 t16656; struct structure_type24753 t16657; struct structure_type24753 t16658; struct structure_type24753 t16659; struct structure_type24753 t16660; struct structure_type24753 t16661; struct structure_type24753 t16662; struct structure_type24753 t16663; struct structure_type24753 t16664; struct structure_type24753 t16665; struct structure_type24753 t16666; struct structure_type24753 t16667; struct structure_type24753 t16668; struct structure_type24753 t16669; struct structure_type24753 t16670; struct structure_type24753 t16671; struct structure_type24753 t16672; struct structure_type24753 t16673; struct structure_type24753 t16674; struct structure_type24753 t16675; struct structure_type24753 t16676; struct structure_type24753 t16677; struct structure_type24753 t16678; struct structure_type24753 t16679; struct structure_type24753 t16680; struct structure_type24753 t16681; struct structure_type24753 t16682; struct structure_type24753 t16683; struct structure_type24753 t16684; struct structure_type24753 t16685; struct structure_type24753 t16686; struct structure_type24753 t16687; struct structure_type24753 t16688; struct structure_type24753 t16689; struct structure_type24753 t16690; struct structure_type24753 t16691; struct structure_type24753 t16692; struct structure_type24753 t16693; struct structure_type24753 t16694; struct structure_type24753 t16695; struct structure_type24753 t16696; struct structure_type24753 t16697; struct structure_type24753 t16698; struct structure_type24753 t16699; struct structure_type24753 t16700; struct structure_type24753 t16701; struct structure_type24753 t16702; struct structure_type24753 t16703; struct structure_type24753 t16704; struct structure_type24753 t16705; struct structure_type24753 t16706; struct structure_type24753 t16707; struct structure_type24753 t16708; struct structure_type24753 t16709; struct structure_type24753 t16710; struct structure_type24753 t16711; struct structure_type24753 t16712; struct structure_type24753 t16713; struct structure_type24753 t16714; struct structure_type24753 t16715; struct structure_type24753 t16716; struct structure_type24753 t16717; struct structure_type24753 t16718; struct structure_type24753 t16719; struct structure_type24753 t16720; struct structure_type24753 t16721; struct structure_type24753 t16722; struct structure_type24753 t16723; struct structure_type24753 t16724; struct structure_type24753 t16725; struct structure_type24753 t16726; struct structure_type24753 t16727; struct structure_type24753 t16728; struct structure_type24753 t16729; struct structure_type24753 t16730; struct structure_type24753 t16731; struct structure_type24753 t16732; struct structure_type24753 t16733; struct structure_type24753 t16734; struct structure_type24753 t16735; struct structure_type24753 t16736; struct structure_type24753 t16737; struct structure_type24753 t16738; struct structure_type24753 t16739; struct structure_type24753 t16740; struct structure_type24753 t16741; struct structure_type24753 t16742; struct structure_type24753 t16743; struct structure_type24753 t16744; struct structure_type24753 t16745; struct structure_type24753 t16746; struct structure_type24753 t16747; struct structure_type24753 t16748; struct structure_type24753 t16749; struct structure_type24753 t16750; struct structure_type24753 t16751; struct structure_type24753 t16752; struct structure_type24753 t16753; struct structure_type24753 t16754; struct structure_type24753 t16755; struct structure_type24753 t16756; struct structure_type24753 t16757; struct structure_type24753 t16758; struct structure_type24753 t16759; struct structure_type24753 t16760; struct structure_type24753 t16761; struct structure_type24753 t16762; struct structure_type24753 t16763; struct structure_type24753 t16764; struct structure_type24753 t16765; struct structure_type24753 t16766; struct structure_type24753 t16767; struct structure_type24753 t16768; struct structure_type24753 t16769; struct structure_type24753 t16770; struct structure_type24753 t16771; struct structure_type24753 t16772; struct structure_type24753 t16773; struct structure_type24753 t16774; struct structure_type24753 t16775; struct structure_type24753 t16776; struct structure_type24753 t16777; struct structure_type24753 t16778; struct structure_type24753 t16779; struct structure_type24753 t16780; struct structure_type24753 t16781; struct structure_type24753 t16782; struct structure_type24753 t16783; struct structure_type24753 t16784; struct structure_type24753 t16785; struct structure_type24753 t16786; struct structure_type24753 t16787; struct structure_type24753 t16788; struct structure_type24753 t16789; struct structure_type24753 t16790; struct structure_type24753 t16791; struct structure_type24753 t16792; struct structure_type24753 t16793; struct structure_type24753 t16794; struct structure_type24753 t16795; struct structure_type24753 t16796; struct structure_type24753 t16797; struct structure_type24753 t16798; struct structure_type24753 t16799; struct structure_type24753 t16800; struct structure_type24753 t16801; struct structure_type24753 t16802; struct structure_type24753 t16803; struct structure_type24753 t16804; struct structure_type24753 t16805; struct structure_type24753 t16806; struct structure_type24753 t16807; struct structure_type24753 t16808; struct structure_type24753 t16809; struct structure_type24753 t16810; struct structure_type24753 t16811; struct structure_type24753 t16812; struct structure_type24753 t16813; struct structure_type24753 t16814; struct structure_type24753 t16815; struct structure_type24753 t16816; struct structure_type24753 t16817; struct structure_type24753 t16818; struct structure_type24753 t16819; struct structure_type24753 t16820; struct structure_type24753 t16821; struct structure_type24753 t16822; struct structure_type24753 t16823; struct structure_type24753 t16824; struct structure_type24753 t16825; struct structure_type24753 t16826; struct structure_type24753 t16827; struct structure_type24753 t16828; struct structure_type24753 t16829; struct structure_type24753 t16830; struct structure_type24753 t16831; struct structure_type24753 t16832; struct structure_type24753 t16833; struct structure_type24753 t16834; struct structure_type24753 t16835; struct structure_type24753 t16836; struct structure_type24753 t16837; struct structure_type24753 t16838; struct structure_type24753 t16839; struct structure_type24753 t16840; struct structure_type24753 t16841; struct structure_type24753 t16842; struct structure_type24753 t16843; struct structure_type24753 t16844; struct structure_type24753 t16845; struct structure_type24753 t16846; struct structure_type24753 t16847; struct structure_type24753 t16848; struct structure_type24753 t16849; struct structure_type24753 t16850; struct structure_type24753 t16851; struct structure_type24753 t16852; struct structure_type24753 t16853; struct structure_type24753 t16854; struct structure_type24753 t16855; struct structure_type24753 t16856; struct structure_type24753 t16857; struct structure_type24753 t16858; struct structure_type24753 t16859; struct structure_type24753 t16860; struct structure_type24753 t16861; struct structure_type24753 t16862; struct structure_type24753 t16863; struct structure_type24753 t16864; struct structure_type24753 t16865; struct structure_type24753 t16866; struct structure_type24753 t16867; struct structure_type24753 t16868; struct structure_type24753 t16869; struct structure_type24753 t16870; struct structure_type24753 t16871; struct structure_type24753 t16872; struct structure_type24753 t16873; struct structure_type24753 t16874; struct structure_type24753 t16875; struct structure_type24753 t16876; struct structure_type24753 t16877; struct structure_type24753 t16878; struct structure_type24753 t16879; struct structure_type24753 t16880; struct structure_type24753 t16881; struct structure_type24753 t16882; struct structure_type24753 t16883; struct structure_type24753 t16884; struct structure_type24753 t16885; struct structure_type24753 t16886; struct structure_type24753 t16887; struct structure_type24753 t16888; struct structure_type24753 t16889; struct structure_type24753 t16890; struct structure_type24753 t16891; struct structure_type24753 t16892; struct structure_type24753 t16893; struct structure_type24753 t16894; struct structure_type24753 t16895; struct structure_type24753 t16896; struct structure_type24753 t16897; struct structure_type24753 t16898; struct structure_type24753 t16899; struct structure_type24753 t16900; struct structure_type24753 t16901; struct structure_type24753 t16902; struct structure_type24753 t16903; struct structure_type24753 t16904; struct structure_type24753 t16905; struct structure_type24753 t16906; struct structure_type24753 t16907; struct structure_type24753 t16908; struct structure_type24753 t16909; struct structure_type24753 t16910; struct structure_type24753 t16911; struct structure_type24753 t16912; struct structure_type24753 t16913; struct structure_type24753 t16914; struct structure_type24753 t16915; struct structure_type24753 t16916; struct structure_type24753 t16917; struct structure_type24753 t16918; struct structure_type24753 t16919; struct structure_type24753 t16920; struct structure_type24753 t16921; struct structure_type24753 t16922; struct structure_type24753 t16923; struct structure_type24753 t16924; struct structure_type24753 t16925; struct structure_type24753 t16926; struct structure_type24753 t16927; struct structure_type24753 t16928; struct structure_type24753 t16929; struct structure_type24753 t16930; struct structure_type24753 t16931; struct structure_type24753 t16932; struct structure_type24753 t16933; struct structure_type24753 t16934; struct structure_type24753 t16935; struct structure_type24753 t16936; struct structure_type24753 t16937; struct structure_type24753 t16938; struct structure_type24753 t16939; struct structure_type24753 t16940; struct structure_type24753 t16941; struct structure_type24753 t16942; struct structure_type24753 t16943; struct structure_type24753 t16944; struct structure_type24753 t16945; struct structure_type24753 t16946; struct structure_type24753 t16947; struct structure_type24753 t16948; struct structure_type24753 t16949; struct structure_type24753 t16950; struct structure_type24753 t16951; struct structure_type24753 t16952; struct structure_type24753 t16953; struct structure_type24753 t16954; struct structure_type24753 t16955; struct structure_type24753 t16956; struct structure_type24753 t16957; struct structure_type24753 t16958; struct structure_type24753 t16959; struct structure_type24753 t16960; struct structure_type24753 t16961; struct structure_type24753 t16962; struct structure_type24753 t16963; struct structure_type24753 t16964; struct structure_type24753 t16965; struct structure_type24753 t16966; struct structure_type24753 t16967; struct structure_type24753 t16968; struct structure_type24753 t16969; struct structure_type24753 t16970; struct structure_type24753 t16971; struct structure_type24753 t16972; struct structure_type24753 t16973; struct structure_type24753 t16974; struct structure_type24753 t16975; struct structure_type24753 t16976; struct structure_type24753 t16977; struct structure_type24753 t16978; struct structure_type24753 t16979; struct structure_type24753 t16980; struct structure_type24753 t16981; struct structure_type24753 t16982; struct structure_type24753 t16983; struct structure_type24753 t16984; struct structure_type24753 t16985; struct structure_type24753 t16986; struct structure_type24753 t16987; struct structure_type24753 t16988; struct structure_type24753 t16989; struct structure_type24753 t16990; struct structure_type24753 t16991; struct structure_type24753 t16992; struct structure_type24753 t16993; struct structure_type24753 t16994; struct structure_type24753 t16995; struct structure_type24753 t16996; struct structure_type24753 t16997; struct structure_type24753 t16998; struct structure_type24753 t16999; struct structure_type24753 t17000; struct structure_type24753 t17001; struct structure_type24753 t17002; struct structure_type24753 t17003; struct structure_type24753 t17004; struct structure_type24753 t17005; struct structure_type24753 t17006; struct structure_type24753 t17007; struct structure_type24753 t17008; struct structure_type24753 t17009; struct structure_type24753 t17010; struct structure_type24753 t17011; struct structure_type24753 t17012; struct structure_type24753 t17013; struct structure_type24753 t17014; struct structure_type24753 t17015; struct structure_type24753 t17016; struct structure_type24753 t17017; struct structure_type24753 t17018; struct structure_type24753 t17019; struct structure_type24753 t17020; struct structure_type24753 t17021; struct structure_type24753 t17022; struct structure_type24753 t17023; struct structure_type24753 t17024; struct structure_type24753 t17025; struct structure_type24753 t17026; struct structure_type24753 t17027; struct structure_type24753 t17028; struct structure_type24753 t17029; struct structure_type24753 t17030; struct structure_type24753 t17031; struct structure_type24753 t17032; struct structure_type24753 t17033; struct structure_type24753 t17034; struct structure_type24753 t17035; struct structure_type24753 t17036; struct structure_type24753 t17037; struct structure_type24753 t17038; struct structure_type24753 t17039; struct structure_type24753 t17040; struct structure_type24753 t17041; struct structure_type24753 t17042; struct structure_type24753 t17043; struct structure_type24753 t17044; struct structure_type24753 t17045; struct structure_type24753 t17046; struct structure_type24753 t17047; struct structure_type24753 t17048; struct structure_type24753 t17049; struct structure_type24753 t17050; struct structure_type24753 t17051; struct structure_type24753 t17052; struct structure_type24753 t17053; struct structure_type24753 t17054; struct structure_type24753 t17055; struct structure_type24753 t17056; struct structure_type24753 t17057; struct structure_type24753 t17058; struct structure_type24753 t17059; struct structure_type24753 t17060; struct structure_type24753 t17061; struct structure_type24753 t17062; struct structure_type24753 t17063; struct structure_type24753 t17064; struct structure_type24753 t17065; struct structure_type24753 t17066; struct structure_type24753 t17067; struct structure_type24753 t17068; struct structure_type24753 t17069; struct structure_type24753 t17070; struct structure_type24753 t17071; struct structure_type24753 t17072; struct structure_type24753 t17073; struct structure_type24753 t17074; struct structure_type24753 t17075; struct structure_type24753 t17076; struct structure_type24753 t17077; struct structure_type24753 t17078; struct structure_type24753 t17079; struct structure_type24753 t17080; struct structure_type24753 t17081; struct structure_type24753 t17082; struct structure_type24753 t17083; struct structure_type24753 t17084; struct structure_type24753 t17085; struct structure_type24753 t17086; struct structure_type24753 t17087; struct structure_type24753 t17088; struct structure_type24753 t17089; struct structure_type24753 t17090; struct structure_type24753 t17091; struct structure_type24753 t17092; struct structure_type24753 t17093; struct structure_type24753 t17094; struct structure_type24753 t17095; struct structure_type24753 t17096; struct structure_type24753 t17097; struct structure_type24753 t17098; struct structure_type24753 t17099; struct structure_type24753 t17100; struct structure_type24753 t17101; struct structure_type24753 t17102; struct structure_type24753 t17103; struct structure_type24753 t17104; struct structure_type24753 t17105; struct structure_type24753 t17106; struct structure_type24753 t17107; struct structure_type24753 t17108; struct structure_type24753 t17109; struct structure_type24753 t17110; struct structure_type24753 t17111; struct structure_type24753 t17112; struct structure_type24753 t17113; struct structure_type24753 t17114; struct structure_type24753 t17115; struct structure_type24753 t17116; struct structure_type24753 t17117; struct structure_type24753 t17118; struct structure_type24753 t17119; struct structure_type24753 t17120; struct structure_type24753 t17121; struct structure_type24753 t17122; struct structure_type24753 t17123; struct structure_type24753 t17124; struct structure_type24753 t17125; struct structure_type24753 t17126; struct structure_type24753 t17127; struct structure_type24753 t17128; struct structure_type24753 t17129; struct structure_type24753 t17130; struct structure_type24753 t17131; struct structure_type24753 t17132; struct structure_type24753 t17133; struct structure_type24753 t17134; struct structure_type24753 t17135; struct structure_type24753 t17136; struct structure_type24753 t17137; struct structure_type24753 t17138; struct structure_type24753 t17139; struct structure_type24753 t17140; struct structure_type24753 t17141; struct structure_type24753 t17142; struct structure_type24753 t17143; struct structure_type24753 t17144; struct structure_type24753 t17145; struct structure_type24753 t17146; struct structure_type24753 t17147; struct structure_type24753 t17148; struct structure_type24753 t17149; struct structure_type24753 t17150; struct structure_type24753 t17151; struct structure_type24753 t17152; struct structure_type24753 t17153; struct structure_type24753 t17154; struct structure_type24753 t17155; struct structure_type24753 t17156; struct structure_type24753 t17157; struct structure_type24753 t17158; struct structure_type24753 t17159; struct structure_type24753 t17160; struct structure_type24753 t17161; struct structure_type24753 t17162; struct structure_type24753 t17163; struct structure_type24753 t17164; struct structure_type24753 t17165; struct structure_type24753 t17166; struct structure_type24753 t17167; struct structure_type24753 t17168; struct structure_type24753 t17169; struct structure_type24753 t17170; struct structure_type24753 t17171; struct structure_type24753 t17172; struct structure_type24753 t17173; struct structure_type24753 t17174; struct structure_type24753 t17175; struct structure_type24753 t17176; struct structure_type24753 t17177; struct structure_type24753 t17178; struct structure_type24753 t17179; struct structure_type24753 t17180; struct structure_type24753 t17181; struct structure_type24753 t17182; struct structure_type24753 t17183; struct structure_type24753 t17184; struct structure_type24753 t17185; struct structure_type24753 t17186; struct structure_type24753 t17187; struct structure_type24753 t17188; struct structure_type24753 t17189; struct structure_type24753 t17190; struct structure_type24753 t17191; struct structure_type24753 t17192; struct structure_type24753 t17193; struct structure_type24753 t17194; struct structure_type24753 t17195; struct structure_type24753 t17196; struct structure_type24753 t17197; struct structure_type24753 t17198; struct structure_type24753 t17199; struct structure_type24753 t17200; struct structure_type24753 t17201; struct structure_type24753 t17202; struct structure_type24753 t17203; struct structure_type24753 t17204; struct structure_type24753 t17205; struct structure_type24753 t17206; struct structure_type24753 t17207; struct structure_type24753 t17208; struct structure_type24753 t17209; struct structure_type24753 t17210; struct structure_type24753 t17211; struct structure_type24753 t17212; struct structure_type24753 t17213; struct structure_type24753 t17214; struct structure_type24753 t17215; struct structure_type24753 t17216; struct structure_type24753 t17217; struct structure_type24753 t17218; struct structure_type24753 t17219; struct structure_type24753 t17220; struct structure_type24753 t17221; struct structure_type24753 t17222; struct structure_type24753 t17223; struct structure_type24753 t17224; struct structure_type24753 t17225; struct structure_type24753 t17226; struct structure_type24753 t17227; struct structure_type24753 t17228; struct structure_type24753 t17229; struct structure_type24753 t17230; struct structure_type24753 t17231; struct structure_type24753 t17232; struct structure_type24753 t17233; struct structure_type24753 t17234; struct structure_type24753 t17235; struct structure_type24753 t17236; struct structure_type24753 t17237; struct structure_type24753 t17238; struct structure_type24753 t17239; struct structure_type24753 t17240; struct structure_type24753 t17241; struct structure_type24753 t17242; struct structure_type24753 t17243; struct structure_type24753 t17244; struct structure_type24753 t17245; struct structure_type24753 t17246; struct structure_type24753 t17247; struct structure_type24753 t17248; struct structure_type24753 t17249; struct structure_type24753 t17250; struct structure_type24753 t17251; struct structure_type24753 t17252; struct structure_type24753 t17253; struct structure_type24753 t17254; struct structure_type24753 t17255; struct structure_type24753 t17256; struct structure_type24753 t17257; struct structure_type24753 t17258; struct structure_type24753 t17259; struct structure_type24753 t17260; struct structure_type24753 t17261; struct structure_type24753 t17262; struct structure_type24753 t17263; struct structure_type24753 t17264; struct structure_type24753 t17265; struct structure_type24753 t17266; struct structure_type24753 t17267; struct structure_type24753 t17268; struct structure_type24753 t17269; struct structure_type24753 t17270; struct structure_type24753 t17271; struct structure_type24753 t17272; struct structure_type24753 t17273; struct structure_type24753 t17274; struct structure_type24753 t17275; struct structure_type24753 t17276; struct structure_type24753 t17277; struct structure_type24753 t17278; struct structure_type24753 t17279; struct structure_type24753 t17280; struct structure_type24753 t17281; struct structure_type24753 t17282; struct structure_type24753 t17283; struct structure_type24753 t17284; struct structure_type24753 t17285; struct structure_type24753 t17286; struct structure_type24753 t17287; struct structure_type24753 t17288; struct structure_type24753 t17289; struct structure_type24753 t17290; struct structure_type24753 t17291; struct structure_type24753 t17292; struct structure_type24753 t17293; struct structure_type24753 t17294; struct structure_type24753 t17295; struct structure_type24753 t17296; struct structure_type24753 t17297; struct structure_type24753 t17298; struct structure_type24753 t17299; struct structure_type24753 t17300; struct structure_type24753 t17301; struct structure_type24753 t17302; struct structure_type24753 t17303; struct structure_type24753 t17304; struct structure_type24753 t17305; struct structure_type24753 t17306; struct structure_type24753 t17307; struct structure_type24753 t17308; struct structure_type24753 t17309; struct structure_type24753 t17310; struct structure_type24753 t17311; struct structure_type24753 t17312; struct structure_type24753 t17313; struct structure_type24753 t17314; struct structure_type24753 t17315; struct structure_type24753 t17316; struct structure_type24753 t17317; struct structure_type24753 t17318; struct structure_type24753 t17319; struct structure_type24753 t17320; struct structure_type24753 t17321; struct structure_type24753 t17322; struct structure_type24753 t17323; struct structure_type24753 t17324; struct structure_type24753 t17325; struct structure_type24753 t17326; struct structure_type24753 t17327; struct structure_type24753 t17328; struct structure_type24753 t17329; struct structure_type24753 t17330; struct structure_type24753 t17331; struct structure_type24753 t17332; struct structure_type24753 t17333; struct structure_type24753 t17334; struct structure_type24753 t17335; struct structure_type24753 t17336; struct structure_type24753 t17337; struct structure_type24753 t17338; struct structure_type24753 t17339; struct structure_type24753 t17340; struct structure_type24753 t17341; struct structure_type24753 t17342; struct structure_type24753 t17343; struct structure_type24753 t17344; struct structure_type24753 t17345; struct structure_type24753 t17346; struct structure_type24753 t17347; struct structure_type24753 t17348; struct structure_type24753 t17349; struct structure_type24753 t17350; struct structure_type24753 t17351; struct structure_type24753 t17352; struct structure_type24753 t17353; struct structure_type24753 t17354; struct structure_type24753 t17355; struct structure_type24753 t17356; struct structure_type24753 t17357; struct structure_type24753 t17358; struct structure_type24753 t17359; struct structure_type24753 t17360; struct structure_type24753 t17361; struct structure_type24753 t17362; struct structure_type24753 t17363; struct structure_type24753 t17364; struct structure_type24753 t17365; struct structure_type24753 t17366; struct structure_type24753 t17367; struct structure_type24753 t17368; struct structure_type24753 t17369; struct structure_type24753 t17370; struct structure_type24753 t17371; struct structure_type24753 t17372; struct structure_type24753 t17373; struct structure_type24753 t17374; struct structure_type24753 t17375; struct structure_type24753 t17376; struct structure_type24753 t17377; struct structure_type24753 t17378; struct structure_type24753 t17379; struct structure_type24753 t17380; struct structure_type24753 t17381; struct structure_type24753 t17382; struct structure_type24753 t17383; struct structure_type24753 t17384; struct structure_type24753 t17385; struct structure_type24753 t17386; struct structure_type24753 t17387; struct structure_type24753 t17388; struct structure_type24753 t17389; struct structure_type24753 t17390; struct structure_type24753 t17391; struct structure_type24753 t17392; struct structure_type24753 t17393; struct structure_type24753 t17394; struct structure_type24753 t17395; struct structure_type24753 t17396; struct structure_type24753 t17397; struct structure_type24753 t17398; struct structure_type24753 t17399; struct structure_type24753 t17400; struct structure_type24753 t17401; struct structure_type24753 t17402; struct structure_type24753 t17403; struct structure_type24753 t17404; struct structure_type24753 t17405; struct structure_type24753 t17406; struct structure_type24753 t17407; struct structure_type24753 t17408; struct structure_type24753 t17409; struct structure_type24753 t17410; struct structure_type24753 t17411; struct structure_type24753 t17412; struct structure_type24753 t17413; struct structure_type24753 t17414; struct structure_type24753 t17415; struct structure_type24753 t17416; struct structure_type24753 t17417; struct structure_type24753 t17418; struct structure_type24753 t17419; struct structure_type24753 t17420; struct structure_type24753 t17421; struct structure_type24753 t17422; struct structure_type24753 t17423; struct structure_type24753 t17424; struct structure_type24753 t17425; struct structure_type24753 t17426; struct structure_type24753 t17427; struct structure_type24753 t17428; struct structure_type24753 t17429; struct structure_type24753 t17430; struct structure_type24753 t17431; struct structure_type24753 t17432; struct structure_type24753 t17433; struct structure_type24753 t17434; struct structure_type24753 t17435; struct structure_type24753 t17436; struct structure_type24753 t17437; struct structure_type24753 t17438; struct structure_type24753 t17439; struct structure_type24753 t17440; struct structure_type24753 t17441; struct structure_type24753 t17442; struct structure_type24753 t17443; struct structure_type24753 t17444; struct structure_type24753 t17445; struct structure_type24753 t17446; struct structure_type24753 t17447; struct structure_type24753 t17448; struct structure_type24753 t17449; struct structure_type24753 t17450; struct structure_type24753 t17451; struct structure_type24753 t17452; struct structure_type24753 t17453; struct structure_type24753 t17454; struct structure_type24753 t17455; struct structure_type24753 t17456; struct structure_type24753 t17457; struct structure_type24753 t17458; struct structure_type24753 t17459; struct structure_type24753 t17460; struct structure_type24753 t17461; struct structure_type24753 t17462; struct structure_type24753 t17463; struct structure_type24753 t17464; struct structure_type24753 t17465; struct structure_type24753 t17466; struct structure_type24753 t17467; struct structure_type24753 t17468; struct structure_type24753 t17469; struct structure_type24753 t17470; struct structure_type24753 t17471; struct structure_type24753 t17472; struct structure_type24753 t17473; struct structure_type24753 t17474; struct structure_type24753 t17475; struct structure_type24753 t17476; struct structure_type24753 t17477; struct structure_type24753 t17478; struct structure_type24753 t17479; struct structure_type24753 t17480; struct structure_type24753 t17481; struct structure_type24753 t17482; struct structure_type24753 t17483; struct structure_type24753 t17484; struct structure_type24753 t17485; struct structure_type24753 t17486; struct structure_type24753 t17487; struct structure_type24753 t17488; struct structure_type24753 t17489; struct structure_type24753 t17490; struct structure_type24753 t17491; struct structure_type24753 t17492; struct structure_type24753 t17493; struct structure_type24753 t17494; struct structure_type24753 t17495; struct structure_type24753 t17496; struct structure_type24753 t17497; struct structure_type24753 t17498; struct structure_type24753 t17499; struct structure_type24753 t17500; struct structure_type24753 t17501; struct structure_type24753 t17502; struct structure_type24753 t17503; struct structure_type24753 t17504; struct structure_type24753 t17505; struct structure_type24753 t17506; struct structure_type24753 t17507; struct structure_type24753 t17508; struct structure_type24753 t17509; struct structure_type24753 t17510; struct structure_type24753 t17511; struct structure_type24753 t17512; struct structure_type24753 t17513; struct structure_type24753 t17514; struct structure_type24753 t17515; struct structure_type24753 t17516; struct structure_type24753 t17517; struct structure_type24753 t17518; struct structure_type24753 t17519; struct structure_type24753 t17520; struct structure_type24753 t17521; struct structure_type24753 t17522; struct structure_type24753 t17523; struct structure_type24753 t17524; struct structure_type24753 t17525; struct structure_type24753 t17526; struct structure_type24753 t17527; struct structure_type24753 t17528; struct structure_type24753 t17529; struct structure_type24753 t17530; struct structure_type24753 t17531; struct structure_type24753 t17532; struct structure_type24753 t17533; struct structure_type24753 t17534; struct structure_type24753 t17535; struct structure_type24753 t17536; struct structure_type24753 t17537; struct structure_type24753 t17538; struct structure_type24753 t17539; struct structure_type24753 t17540; struct structure_type24753 t17541; struct structure_type24753 t17542; struct structure_type24753 t17543; struct structure_type24753 t17544; struct structure_type24753 t17545; struct structure_type24753 t17546; struct structure_type24753 t17547; struct structure_type24753 t17548; struct structure_type24753 t17549; struct structure_type24753 t17550; struct structure_type24753 t17551; struct structure_type24753 t17552; struct structure_type24753 t17553; struct structure_type24753 t17554; struct structure_type24753 t17555; struct structure_type24753 t17556; struct structure_type24753 t17557; struct structure_type24753 t17558; struct structure_type24753 t17559; struct structure_type24753 t17560; struct structure_type24753 t17561; struct structure_type24753 t17562; struct structure_type24753 t17563; struct structure_type24753 t17564; struct structure_type24753 t17565; struct structure_type24753 t17566; struct structure_type24753 t17567; struct structure_type24753 t17568; struct structure_type24753 t17569; struct structure_type24753 t17570; struct structure_type24753 t17571; struct structure_type24753 t17572; struct structure_type24753 t17573; struct structure_type24753 t17574; struct structure_type24753 t17575; struct structure_type24753 t17576; struct structure_type24753 t17577; struct structure_type24753 t17578; struct structure_type24753 t17579; struct structure_type24753 t17580; struct structure_type24753 t17581; struct structure_type24753 t17582; struct structure_type24753 t17583; struct structure_type24753 t17584; struct structure_type24753 t17585; struct structure_type24753 t17586; struct structure_type24753 t17587; struct structure_type24753 t17588; struct structure_type24753 t17589; struct structure_type24753 t17590; struct structure_type24753 t17591; struct structure_type24753 t17592; struct structure_type24753 t17593; struct structure_type24753 t17594; struct structure_type24753 t17595; struct structure_type24753 t17596; struct structure_type24753 t17597; struct structure_type24753 t17598; struct structure_type24753 t17599; struct structure_type24753 t17600; struct structure_type24753 t17601; struct structure_type24753 t17602; struct structure_type24753 t17603; struct structure_type24753 t17604; struct structure_type24753 t17605; struct structure_type24753 t17606; struct structure_type24753 t17607; struct structure_type24753 t17608; struct structure_type24753 t17609; struct structure_type24753 t17610; struct structure_type24753 t17611; struct structure_type24753 t17612; struct structure_type24753 t17613; struct structure_type24753 t17614; struct structure_type24753 t17615; struct structure_type24753 t17616; struct structure_type24753 t17617; struct structure_type24753 t17618; struct structure_type24753 t17619; struct structure_type24753 t17620; struct structure_type24753 t17621; struct structure_type24753 t17622; struct structure_type24753 t17623; struct structure_type24753 t17624; struct structure_type24753 t17625; struct structure_type24753 t17626; struct structure_type24753 t17627; struct structure_type24753 t17628; struct structure_type24753 t17629; struct structure_type24753 t17630; struct structure_type24753 t17631; struct structure_type24753 t17632; struct structure_type24753 t17633; struct structure_type24753 t17634; struct structure_type24753 t17635; struct structure_type24753 t17636; struct structure_type24753 t17637; struct structure_type24753 t17638; struct structure_type24753 t17639; struct structure_type24753 t17640; struct structure_type24753 t17641; struct structure_type24753 t17642; struct structure_type24753 t17643; struct structure_type24753 t17644; struct structure_type24753 t17645; struct structure_type24753 t17646; struct structure_type24753 t17647; struct structure_type24753 t17648; struct structure_type24753 t17649; struct structure_type24753 t17650; struct structure_type24753 t17651; struct structure_type24753 t17652; struct structure_type24753 t17653; struct structure_type24753 t17654; struct structure_type24753 t17655; struct structure_type24753 t17656; struct structure_type24753 t17657; struct structure_type24753 t17658; struct structure_type24753 t17659; struct structure_type24753 t17660; struct structure_type24753 t17661; struct structure_type24753 t17662; struct structure_type24753 t17663; struct structure_type24753 t17664; struct structure_type24753 t17665; struct structure_type24753 t17666; struct structure_type24753 t17667; struct structure_type24753 t17668; struct structure_type24753 t17669; struct structure_type24753 t17670; struct structure_type24753 t17671; struct structure_type24753 t17672; struct structure_type24753 t17673; struct structure_type24753 t17674; struct structure_type24753 t17675; struct structure_type24753 t17676; struct structure_type24753 t17677; struct structure_type24753 t17678; struct structure_type24753 t17679; struct structure_type24753 t17680; struct structure_type24753 t17681; struct structure_type24753 t17682; struct structure_type24753 t17683; struct structure_type24753 t17684; struct structure_type24753 t17685; struct structure_type24753 t17686; struct structure_type24753 t17687; struct structure_type24753 t17688; struct structure_type24753 t17689; struct structure_type24753 t17690; struct structure_type24753 t17691; struct structure_type24753 t17692; struct structure_type24753 t17693; struct structure_type24753 t17694; struct structure_type24753 t17695; struct structure_type24753 t17696; struct structure_type24753 t17697; struct structure_type24753 t17698; struct structure_type24753 t17699; struct structure_type24753 t17700; struct structure_type24753 t17701; struct structure_type24753 t17702; struct structure_type24753 t17703; struct structure_type24753 t17704; struct structure_type24753 t17705; struct structure_type24753 t17706; struct structure_type24753 t17707; struct structure_type24753 t17708; struct structure_type24753 t17709; struct structure_type24753 t17710; struct structure_type24753 t17711; struct structure_type24753 t17712; struct structure_type24753 t17713; struct structure_type24753 t17714; struct structure_type24753 t17715; struct structure_type24753 t17716; struct structure_type24753 t17717; struct structure_type24753 t17718; struct structure_type24753 t17719; struct structure_type24753 t17720; struct structure_type24753 t17721; struct structure_type24753 t17722; struct structure_type24753 t17723; struct structure_type24753 t17724; struct structure_type24753 t17725; struct structure_type24753 t17726; struct structure_type24753 t17727; struct structure_type24753 t17728; struct structure_type24753 t17729; struct structure_type24753 t17730; struct structure_type24753 t17731; struct structure_type24753 t17732; struct structure_type24753 t17733; struct structure_type24753 t17734; struct structure_type24753 t17735; struct structure_type24753 t17736; struct structure_type24753 t17737; struct structure_type24753 t17738; struct structure_type24753 t17739; struct structure_type24753 t17740; struct structure_type24753 t17741; struct structure_type24753 t17742; struct structure_type24753 t17743; struct structure_type24753 t17744; struct structure_type24753 t17745; struct structure_type24753 t17746; struct structure_type24753 t17747; struct structure_type24753 t17748; struct structure_type24753 t17749; struct structure_type24753 t17750; struct structure_type24753 t17751; struct structure_type24753 t17752; struct structure_type24753 t17753; struct structure_type24753 t17754; struct structure_type24753 t17755; struct structure_type24753 t17756; struct structure_type24753 t17757; struct structure_type24753 t17758; struct structure_type24753 t17759; struct structure_type24753 t17760; struct structure_type24753 t17761; struct structure_type24753 t17762; struct structure_type24753 t17763; struct structure_type24753 t17764; struct structure_type24753 t17765; struct structure_type24753 t17766; struct structure_type24753 t17767; struct structure_type24753 t17768; struct structure_type24753 t17769; struct structure_type24753 t17770; struct structure_type24753 t17771; struct structure_type24753 t17772; struct structure_type24753 t17773; struct structure_type24753 t17774; struct structure_type24753 t17775; struct structure_type24753 t17776; struct structure_type24753 t17777; struct structure_type24753 t17778; struct structure_type24753 t17779; struct structure_type24753 t17780; struct structure_type24753 t17781; struct structure_type24753 t17782; struct structure_type24753 t17783; struct structure_type24753 t17784; struct structure_type24753 t17785; struct structure_type24753 t17786; struct structure_type24753 t17787; struct structure_type24753 t17788; struct structure_type24753 t17789; struct structure_type24753 t17790; struct structure_type24753 t17791; struct structure_type24753 t17792; struct structure_type24753 t17793; struct structure_type24753 t17794; struct structure_type24753 t17795; struct structure_type24753 t17796; struct structure_type24753 t17797; struct structure_type24753 t17798; struct structure_type24753 t17799; struct structure_type24753 t17800; struct structure_type24753 t17801; struct structure_type24753 t17802; struct structure_type24753 t17803; struct structure_type24753 t17804; struct structure_type24753 t17805; struct structure_type24753 t17806; struct structure_type24753 t17807; struct structure_type24753 t17808; struct structure_type24753 t17809; struct structure_type24753 t17810; struct structure_type24753 t17811; struct structure_type24753 t17812; struct structure_type24753 t17813; struct structure_type24753 t17814; struct structure_type24753 t17815; struct structure_type24753 t17816; struct structure_type24753 t17817; struct structure_type24753 t17818; struct structure_type24753 t17819; struct structure_type24753 t17820; struct structure_type24753 t17821; struct structure_type24753 t17822; struct structure_type24753 t17823; struct structure_type24753 t17824; struct structure_type24753 t17825; struct structure_type24753 t17826; struct structure_type24753 t17827; struct structure_type24753 t17828; struct structure_type24753 t17829; struct structure_type24753 t17830; struct structure_type24753 t17831; struct structure_type24753 t17832; struct structure_type24753 t17833; struct structure_type24753 t17834; struct structure_type24753 t17835; struct structure_type24753 t17836; struct structure_type24753 t17837; struct structure_type24753 t17838; struct structure_type24753 t17839; struct structure_type24753 t17840; struct structure_type24753 t17841; struct structure_type24753 t17842; struct structure_type24753 t17843; struct structure_type24753 t17844; struct structure_type24753 t17845; struct structure_type24753 t17846; struct structure_type24753 t17847; struct structure_type24753 t17848; struct structure_type24753 t17849; struct structure_type24753 t17850; struct structure_type24753 t17851; struct structure_type24753 t17852; struct structure_type24753 t17853; struct structure_type24753 t17854; struct structure_type24753 t17855; struct structure_type24753 t17856; struct structure_type24753 t17857; struct structure_type24753 t17858; struct structure_type24753 t17859; struct structure_type24753 t17860; struct structure_type24753 t17861; struct structure_type24753 t17862; struct structure_type24753 t17863; struct structure_type24753 t17864; struct structure_type24753 t17865; struct structure_type24753 t17866; struct structure_type24753 t17867; struct structure_type24753 t17868; struct structure_type24753 t17869; struct structure_type24753 t17870; struct structure_type24753 t17871; struct structure_type24753 t17872; struct structure_type24753 t17873; struct structure_type24753 t17874; struct structure_type24753 t17875; struct structure_type24753 t17876; struct structure_type24753 t17877; struct structure_type24753 t17878; struct structure_type24753 t17879; struct structure_type24753 t17880; struct structure_type24753 t17881; struct structure_type24753 t17882; struct structure_type24753 t17883; struct structure_type24753 t17884; struct structure_type24753 t17885; struct structure_type24753 t17886; struct structure_type24753 t17887; struct structure_type24753 t17888; struct structure_type24753 t17889; struct structure_type24753 t17890; struct structure_type24753 t17891; struct structure_type24753 t17892; struct structure_type24753 t17893; struct structure_type24753 t17894; struct structure_type24753 t17895; struct structure_type24753 t17896; struct structure_type24753 t17897; struct structure_type24753 t17898; struct structure_type24753 t17899; struct structure_type24753 t17900; struct structure_type24753 t17901; struct structure_type24753 t17902; struct structure_type24753 t17903; struct structure_type24753 t17904; struct structure_type24753 t17905; struct structure_type24753 t17906; struct structure_type24753 t17907; struct structure_type24753 t17908; struct structure_type24753 t17909; struct structure_type24753 t17910; struct structure_type24753 t17911; struct structure_type24753 t17912; struct structure_type24753 t17913; struct structure_type24753 t17914; struct structure_type24753 t17915; struct structure_type24753 t17916; struct structure_type24753 t17917; struct structure_type24753 t17918; struct structure_type24753 t17919; struct structure_type24753 t17920; struct structure_type24753 t17921; struct structure_type24753 t17922; struct structure_type24753 t17923; struct structure_type24753 t17924; struct structure_type24753 t17925; struct structure_type24753 t17926; struct structure_type24753 t17927; struct structure_type24753 t17928; struct structure_type24753 t17929; struct structure_type24753 t17930; struct structure_type24753 t17931; struct structure_type24753 t17932; struct structure_type24753 t17933; struct structure_type24753 t17934; struct structure_type24753 t17935; struct structure_type24753 t17936; struct structure_type24753 t17937; struct structure_type24753 t17938; struct structure_type24753 t17939; struct structure_type24753 t17940; struct structure_type24753 t17941; struct structure_type24753 t17942; struct structure_type24753 t17943; struct structure_type24753 t17944; struct structure_type24753 t17945; struct structure_type24753 t17946; struct structure_type24753 t17947; struct structure_type24753 t17948; struct structure_type24753 t17949; struct structure_type24753 t17950; struct structure_type24753 t17951; struct structure_type24753 t17952; struct structure_type24753 t17953; struct structure_type24753 t17954; struct structure_type24753 t17955; struct structure_type24753 t17956; struct structure_type24753 t17957; struct structure_type24753 t17958; struct structure_type24753 t17959; struct structure_type24753 t17960; struct structure_type24753 t17961; struct structure_type24753 t17962; struct structure_type24753 t17963; struct structure_type24753 t17964; struct structure_type24753 t17965; struct structure_type24753 t17966; struct structure_type24753 t17967; struct structure_type24753 t17968; struct structure_type24753 t17969; struct structure_type24753 t17970; struct structure_type24753 t17971; struct structure_type24753 t17972; struct structure_type24753 t17973; struct structure_type24753 t17974; struct structure_type24753 t17975; struct structure_type24753 t17976; struct structure_type24753 t17977; struct structure_type24753 t17978; struct structure_type24753 t17979; struct structure_type24753 t17980; struct structure_type24753 t17981; struct structure_type24753 t17982; struct structure_type24753 t17983; struct structure_type24753 t17984; struct structure_type24753 t17985; struct structure_type24753 t17986; struct structure_type24753 t17987; struct structure_type24753 t17988; struct structure_type24753 t17989; struct structure_type24753 t17990; struct structure_type24753 t17991; struct structure_type24753 t17992; struct structure_type24753 t17993; struct structure_type24753 t17994; struct structure_type24753 t17995; struct structure_type24753 t17996; struct structure_type24753 t17997; struct structure_type24753 t17998; struct structure_type24753 t17999; struct structure_type24753 t18000; struct structure_type24753 t18001; struct structure_type24753 t18002; struct structure_type24753 t18003; struct structure_type24753 t18004; struct structure_type24753 t18005; struct structure_type24753 t18006; struct structure_type24753 t18007; struct structure_type24753 t18008; struct structure_type24753 t18009; struct structure_type24753 t18010; struct structure_type24753 t18011; struct structure_type24753 t18012; struct structure_type24753 t18013; struct structure_type24753 t18014; struct structure_type24753 t18015; struct structure_type24753 t18016; struct structure_type24753 t18017; struct structure_type24753 t18018; struct structure_type24753 t18019; struct structure_type24753 t18020; struct structure_type24753 t18021; struct structure_type24753 t18022; struct structure_type24753 t18023; struct structure_type24753 t18024; struct structure_type24753 t18025; struct structure_type24753 t18026; struct structure_type24753 t18027; struct structure_type24753 t18028; struct structure_type24753 t18029; struct structure_type24753 t18030; struct structure_type24753 t18031; struct structure_type24753 t18032; struct structure_type24753 t18033; struct structure_type24753 t18034; struct structure_type24753 t18035; struct structure_type24753 t18036; struct structure_type24753 t18037; struct structure_type24753 t18038; struct structure_type24753 t18039; struct structure_type24753 t18040; struct structure_type24753 t18041; struct structure_type24753 t18042; struct structure_type24753 t18043; struct structure_type24753 t18044; struct structure_type24753 t18045; struct structure_type24753 t18046; struct structure_type24753 t18047; struct structure_type24753 t18048; struct structure_type24753 t18049; struct structure_type24753 t18050; struct structure_type24753 t18051; struct structure_type24753 t18052; struct structure_type24753 t18053; struct structure_type24753 t18054; struct structure_type24753 t18055; struct structure_type24753 t18056; struct structure_type24753 t18057; struct structure_type24753 t18058; struct structure_type24753 t18059; struct structure_type24753 t18060; struct structure_type24753 t18061; struct structure_type24753 t18062; struct structure_type24753 t18063; struct structure_type24753 t18064; struct structure_type24753 t18065; struct structure_type24753 t18066; struct structure_type24753 t18067; struct structure_type24753 t18068; struct structure_type24753 t18069; struct structure_type24753 t18070; struct structure_type24753 t18071; struct structure_type24753 t18072; struct structure_type24753 t18073; struct structure_type24753 t18074; struct structure_type24753 t18075; struct structure_type24753 t18076; struct structure_type24753 t18077; struct structure_type24753 t18078; struct structure_type24753 t18079; struct structure_type24753 t18080; struct structure_type24753 t18081; struct structure_type24753 t18082; struct structure_type24753 t18083; struct structure_type24753 t18084; struct structure_type24753 t18085; struct structure_type24753 t18086; struct structure_type24753 t18087; struct structure_type24753 t18088; struct structure_type24753 t18089; struct structure_type24753 t18090; struct structure_type24753 t18091; struct structure_type24753 t18092; struct structure_type24753 t18093; struct structure_type24753 t18094; struct structure_type24753 t18095; struct structure_type24753 t18096; struct structure_type24753 t18097; struct structure_type24753 t18098; struct structure_type24753 t18099; struct structure_type24753 t18100; struct structure_type24753 t18101; struct structure_type24753 t18102; struct structure_type24753 t18103; struct structure_type24753 t18104; struct structure_type24753 t18105; struct structure_type24753 t18106; struct structure_type24753 t18107; struct structure_type24753 t18108; struct structure_type24753 t18109; struct structure_type24753 t18110; struct structure_type24753 t18111; struct structure_type24753 t18172; struct structure_type24753 t18173; struct structure_type24753 t18197; struct structure_type24753 t18202; struct structure_type24753 t18264; struct structure_type24753 t18265; struct structure_type24753 t18289; struct structure_type24753 t18294; struct structure_type24753 t18386; struct structure_type24753 t18387; struct structure_type24753 t18388; struct structure_type24753 t18389; struct structure_type24753 t18444; struct structure_type24753 t18445; struct structure_type24753 t18446; struct structure_type24753 t18447; struct structure_type24753 t18452; struct structure_type24753 t18589; struct structure_type24753 t18711; struct structure_type24753 t18754; struct structure_type24753 t18755; struct structure_type24753 t18798; struct structure_type24753 t18806; struct structure_type24753 t18911; struct structure_type24753 t18912; struct structure_type24753 t18928; struct structure_type24753 t18972; struct structure_type24753 t19017; struct structure_type24753 t19060; struct structure_type24753 t19061; struct structure_type24753 t19099; struct structure_type24753 t19100; struct structure_type24753 t19101; struct structure_type24753 t19197; struct structure_type24753 t19205; struct structure_type24753 t19278; struct structure_type24753 t19279; struct structure_type24753 t19280; struct structure_type24753 t19298; struct structure_type24753 t19299; struct structure_type24753 t19300; struct structure_type24753 t19301; struct structure_type24753 t19302; struct structure_type24753 t19303; struct structure_type24753 t19311; struct structure_type24753 t19361; struct structure_type24753 t19443; struct structure_type24753 t19450; struct structure_type24753 t19498; struct structure_type24753 t19543; struct structure_type24753 t19557; struct structure_type24753 t19558; struct structure_type24753 t19578; struct structure_type24753 t19598; struct structure_type24753 t19735; struct structure_type24753 t19753; struct structure_type24753 t19779; struct structure_type24753 t19862; struct structure_type24753 t19863; struct structure_type24753 t19867; struct structure_type24753 t19868; struct structure_type24753 t19869; struct structure_type24753 t19870; struct structure_type24753 t19877; struct structure_type24753 t19878; struct structure_type24753 t19882; struct structure_type24753 t19883; struct structure_type24753 t19884; struct structure_type24753 t19885; struct structure_type24753 t19889; struct structure_type24753 t19890; struct structure_type24753 t19891; struct structure_type24753 t19892; struct structure_type24753 t19893; struct structure_type24753 t19894; struct structure_type24753 t19901; struct structure_type24753 t19902; struct structure_type24753 t19906; struct structure_type24753 t19907; struct structure_type24753 t19908; struct structure_type24753 t19909; struct structure_type24753 t19913; struct structure_type24753 t19914; struct structure_type24753 t19915; struct structure_type24753 t19916; struct structure_type24753 t19917; struct structure_type24753 t19918; struct structure_type24753 t19925; struct structure_type24753 t19926; struct structure_type24753 t19936; struct structure_type24753 t19937; struct structure_type24753 t19944; struct structure_type24753 t19945; struct structure_type24753 t19952; struct structure_type24753 t19953; struct structure_type24753 t19960; struct structure_type24753 t19961; struct structure_type24753 t19971; struct structure_type24753 t19972; struct structure_type24753 t19976; struct structure_type24753 t19977; struct structure_type24753 t19978; struct structure_type24753 t19979; struct structure_type24753 t19986; struct structure_type24753 t19987; struct structure_type24753 t19994; struct structure_type24753 t19995; struct structure_type24753 t19999; struct structure_type24753 t20000; struct structure_type24753 t20004; struct structure_type24753 t20005; struct structure_type24753 t20009; struct structure_type24753 t20010; struct structure_type24753 t20011; struct structure_type24753 t20012; struct structure_type24753 t20016; struct structure_type24753 t20017; struct structure_type24753 t20018; struct structure_type24753 t20019; struct structure_type24753 t20023; struct structure_type24753 t20024; struct structure_type24753 t20025; struct structure_type24753 t20026; struct structure_type24753 t20030; struct structure_type24753 t20031; struct structure_type24753 t20032; struct structure_type24753 t20033; struct structure_type24753 t20037; struct structure_type24753 t20038; struct structure_type24753 t20039; struct structure_type24753 t20040; struct structure_type24753 t20041; struct structure_type24753 t20042; struct structure_type24753 t20046; struct structure_type24753 t20047; struct structure_type24753 t20060; struct structure_type24753 t20061; struct structure_type24753 t20065; struct structure_type24753 t20066; struct structure_type24753 t20067; struct structure_type24753 t20068; struct structure_type24753 t20075; struct structure_type24753 t20076; struct structure_type24753 t20080; struct structure_type24753 t20081; struct structure_type24753 t20082; struct structure_type24753 t20083; struct structure_type24753 t20087; struct structure_type24753 t20088; struct structure_type24753 t20089; struct structure_type24753 t20090; struct structure_type24753 t20091; struct structure_type24753 t20092; struct structure_type24753 t20099; struct structure_type24753 t20100; struct structure_type24753 t20104; struct structure_type24753 t20105; struct structure_type24753 t20106; struct structure_type24753 t20107; struct structure_type24753 t20111; struct structure_type24753 t20112; struct structure_type24753 t20113; struct structure_type24753 t20114; struct structure_type24753 t20115; struct structure_type24753 t20116; struct structure_type24753 t20123; struct structure_type24753 t20124; struct structure_type24753 t20134; struct structure_type24753 t20135; struct structure_type24753 t20142; struct structure_type24753 t20143; struct structure_type24753 t20150; struct structure_type24753 t20151; struct structure_type24753 t20158; struct structure_type24753 t20159; struct structure_type24753 t20169; struct structure_type24753 t20170; struct structure_type24753 t20174; struct structure_type24753 t20175; struct structure_type24753 t20176; struct structure_type24753 t20177; struct structure_type24753 t20184; struct structure_type24753 t20185; struct structure_type24753 t20192; struct structure_type24753 t20193; struct structure_type24753 t20197; struct structure_type24753 t20198; struct structure_type24753 t20202; struct structure_type24753 t20203; struct structure_type24753 t20207; struct structure_type24753 t20208; struct structure_type24753 t20209; struct structure_type24753 t20210; struct structure_type24753 t20214; struct structure_type24753 t20215; struct structure_type24753 t20216; struct structure_type24753 t20217; struct structure_type24753 t20221; struct structure_type24753 t20222; struct structure_type24753 t20223; struct structure_type24753 t20224; struct structure_type24753 t20228; struct structure_type24753 t20229; struct structure_type24753 t20230; struct structure_type24753 t20231; struct structure_type24753 t20235; struct structure_type24753 t20236; struct structure_type24753 t20237; struct structure_type24753 t20238; struct structure_type24753 t20239; struct structure_type24753 t20240; struct structure_type24753 t20244; struct structure_type24753 t20245; struct structure_type24753 t20259; struct structure_type24753 t20260; struct structure_type24753 t20261; struct structure_type24753 t20353; struct structure_type24753 t20358; struct structure_type24753 t20359; struct structure_type24753 t20360; struct structure_type24753 t20361; struct structure_type24753 t20362; struct structure_type24753 t20363; struct structure_type24753 t20364; struct structure_type24753 t20365; struct structure_type24753 t20366; struct structure_type24753 t20371; struct structure_type24753 t20372; struct structure_type24753 t20373; struct structure_type24753 t20374; struct structure_type24753 t20375; struct structure_type24753 t20376; struct structure_type24753 t20377; struct structure_type24753 t20378; struct structure_type24753 t20379; struct structure_type24753 t20384; struct structure_type24753 t20385; struct structure_type24753 t20386; struct structure_type24753 t20387; struct structure_type24753 t20388; struct structure_type24753 t20389; struct structure_type24753 t20390; struct structure_type24753 t20391; struct structure_type24753 t20392; struct structure_type24753 t20393; struct structure_type24753 t20394; struct structure_type24753 t20395; struct structure_type24753 t20396; struct structure_type24753 t20397; struct structure_type24753 t20398; struct structure_type24753 t20399; struct structure_type24753 t20400; struct structure_type24753 t20401; struct structure_type24753 t20402; struct structure_type24753 t20403; struct structure_type24753 t20404; struct structure_type24753 t20405; struct structure_type24753 t20406; struct structure_type24753 t20407; struct structure_type24753 t20408; struct structure_type24753 t20409; struct structure_type24753 t20410; struct structure_type24753 t20411; struct structure_type24753 t20412; struct structure_type24753 t20413; struct structure_type24753 t20414; struct structure_type24753 t20415; struct structure_type24753 t20416; struct structure_type24753 t20417; struct structure_type24753 t20418; struct structure_type24753 t20419; struct structure_type24753 t20420; struct structure_type24753 t20421; struct structure_type24753 t20422; struct structure_type24753 t20423; struct structure_type24753 t20424; struct structure_type24753 t20425; struct structure_type24753 t20426; struct structure_type24753 t20427; struct structure_type24753 t20428; struct structure_type24753 t20429; struct structure_type24753 t20430; struct structure_type24753 t20431; struct structure_type24753 t20432; struct structure_type24753 t20433; struct structure_type24753 t20434; struct structure_type24753 t20435; struct structure_type24753 t20436; struct structure_type24753 t20437; struct structure_type24753 t20438; struct structure_type24753 t20439; struct structure_type24753 t20440; struct structure_type24753 t20441; struct structure_type24753 t20442; struct structure_type24753 t20447; struct structure_type24753 t20448; struct structure_type24753 t20449; struct structure_type24753 t20450; struct structure_type24753 t20451; struct structure_type24753 t20452; struct structure_type24753 t20453; struct structure_type24753 t20454; struct structure_type24753 t20455; struct structure_type24753 t20456; struct structure_type24753 t20457; struct structure_type24753 t20462; struct structure_type24753 t20463; struct structure_type24753 t20464; struct structure_type24753 t20465; struct structure_type24753 t20466; struct structure_type24753 t20467; struct structure_type24753 t20468; struct structure_type24753 t20469; struct structure_type24753 t20470; struct structure_type24753 t20471; struct structure_type24753 t20472; struct structure_type24753 t20473; struct structure_type24753 t20474; struct structure_type24753 t20475; struct structure_type24753 t20476; struct structure_type24753 t20477; struct structure_type24753 t20478; struct structure_type24753 t20479; struct structure_type24753 t20480; struct structure_type24753 t20481; struct structure_type24753 t20482; struct structure_type24753 t20483; struct structure_type24753 t20484; struct structure_type24753 t20485; struct structure_type24753 t20486; struct structure_type24753 t20487; struct structure_type24753 t20488; struct structure_type24753 t20489; struct structure_type24753 t20490; struct structure_type24753 t20491; struct structure_type24753 t20492; struct structure_type24753 t20493; struct structure_type24753 t20494; struct structure_type24753 t20495; struct structure_type24753 t20496; struct structure_type24753 t20497; struct structure_type24753 t20498; struct structure_type24753 t20499; struct structure_type24753 t20500; struct structure_type24753 t20501; struct structure_type24753 t20502; struct structure_type24753 t20503; struct structure_type24753 t20504; struct structure_type24753 t20505; struct structure_type24753 t20506; struct structure_type24753 t20507; struct structure_type24753 t20508; struct structure_type24753 t20509; struct structure_type24753 t20510; struct structure_type24753 t20511; struct structure_type24753 t20512; struct structure_type24753 t20513; struct structure_type24753 t20514; struct structure_type24753 t20515; struct structure_type24753 t20516; struct structure_type24753 t20517; struct structure_type24753 t20518; struct structure_type24753 t20519; struct structure_type24753 t20520; struct structure_type24753 t20521; struct structure_type24753 t20522; struct structure_type24753 t20523; struct structure_type24753 t20524; struct structure_type24753 t20525; struct structure_type24753 t20526; struct structure_type24753 t20527; struct structure_type24753 t20528; struct structure_type24753 t20529; struct structure_type24753 t20530; struct structure_type24753 t20531; struct structure_type24753 t20532; struct structure_type24753 t20533; struct structure_type24753 t20534; struct structure_type24753 t20535; struct structure_type24753 t20536; struct structure_type24753 t20537; struct structure_type24753 t20538; struct structure_type24753 t20539; struct structure_type24753 t20540; struct structure_type24753 t20541; struct structure_type24753 t20542; struct structure_type24753 t20543; struct structure_type24753 t20544; struct structure_type24753 t20545; struct structure_type24753 t20546; struct structure_type24753 t20547; struct structure_type24753 t20548; struct structure_type24753 t20549; struct structure_type24753 t20550; struct structure_type24753 t20551; struct structure_type24753 t20552; struct structure_type24753 t20553; struct structure_type24753 t20554; struct structure_type24753 t20555; struct structure_type24753 t20556; struct structure_type24753 t20557; struct structure_type24753 t20562; struct structure_type24753 t20563; struct structure_type24753 t20564; struct structure_type24753 t20565; struct structure_type24753 t20566; struct structure_type24753 t20567; struct structure_type24753 t20568; struct structure_type24753 t20569; struct structure_type24753 t20570; struct structure_type24753 t20571; struct structure_type24753 t20576; struct structure_type24753 t20577; struct structure_type24753 t20578; struct structure_type24753 t20579; struct structure_type24753 t20580; struct structure_type24753 t20581; struct structure_type24753 t20582; struct structure_type24753 t20583; struct structure_type24753 t20584; struct structure_type24753 t20585; struct structure_type24753 t20586; struct structure_type24753 t20587; struct structure_type24753 t20588; struct structure_type24753 t20593; struct structure_type24753 t20594; struct structure_type24753 t20595; struct structure_type24753 t20596; struct structure_type24753 t20597; struct structure_type24753 t20598; struct structure_type24753 t20599; struct structure_type24753 t20600; struct structure_type24753 t20601; struct structure_type24753 t20602; struct structure_type24753 t20603; struct structure_type24753 t20608; struct structure_type24753 t20609; struct structure_type24753 t20610; struct structure_type24753 t20611; struct structure_type24753 t20612; struct structure_type24753 t20613; struct structure_type24753 t20614; struct structure_type24753 t20615; struct structure_type24753 t20616; struct structure_type24753 t20617; struct structure_type24753 t20618; struct structure_type24753 t20623; struct structure_type24753 t20624; struct structure_type24753 t20625; struct structure_type24753 t20626; struct structure_type24753 t20627; struct structure_type24753 t20628; struct structure_type24753 t20629; struct structure_type24753 t20630; struct structure_type24753 t20631; struct structure_type24753 t20632; struct structure_type24753 t20633; struct structure_type24753 t20634; struct structure_type24753 t20635; struct structure_type24753 t20640; struct structure_type24753 t20641; struct structure_type24753 t20642; struct structure_type24753 t20643; struct structure_type24753 t20644; struct structure_type24753 t20645; struct structure_type24753 t20646; struct structure_type24753 t20647; struct structure_type24753 t20648; struct structure_type24753 t20649; struct structure_type24753 t20650; struct structure_type24753 t20651; struct structure_type24753 t20652; struct structure_type24753 t20657; struct structure_type24753 t20658; struct structure_type24753 t20659; struct structure_type24753 t20660; struct structure_type24753 t20661; struct structure_type24753 t20662; struct structure_type24753 t20663; struct structure_type24753 t20664; struct structure_type24753 t20665; struct structure_type24753 t20670; struct structure_type24753 t20671; struct structure_type24753 t20672; struct structure_type24753 t20673; struct structure_type24753 t20674; struct structure_type24753 t20675; struct structure_type24753 t20676; struct structure_type24753 t20677; struct structure_type24753 t20678; struct structure_type24753 t20683; struct structure_type24753 t20684; struct structure_type24753 t20685; struct structure_type24753 t20686; struct structure_type24753 t20687; struct structure_type24753 t20688; struct structure_type24753 t20689; struct structure_type24753 t20690; struct structure_type24753 t20691; struct structure_type24753 t20696; struct structure_type24753 t20697; struct structure_type24753 t20698; struct structure_type24753 t20699; struct structure_type24753 t20700; struct structure_type24753 t20701; struct structure_type24753 t20702; struct structure_type24753 t20703; struct structure_type24753 t20704; struct structure_type24753 t20709; struct structure_type24753 t20710; struct structure_type24753 t20711; struct structure_type24753 t20712; struct structure_type24753 t20713; struct structure_type24753 t20714; struct structure_type24753 t20715; struct structure_type24753 t20716; struct structure_type24753 t20717; struct structure_type24753 t20718; struct structure_type24753 t20719; struct structure_type24753 t20724; struct structure_type24753 t20725; struct structure_type24753 t20726; struct structure_type24753 t20727; struct structure_type24753 t20728; struct structure_type24753 t20729; struct structure_type24753 t20730; struct structure_type24753 t20731; struct structure_type24753 t20732; struct structure_type24753 t20733; struct structure_type24753 t20734; struct structure_type24753 t20739; struct structure_type24753 t20740; struct structure_type24753 t20741; struct structure_type24753 t20742; struct structure_type24753 t20743; struct structure_type24753 t20744; struct structure_type24753 t20745; struct structure_type24753 t20746; struct structure_type24753 t20747; struct structure_type24753 t20748; struct structure_type24753 t20749; struct structure_type24753 t20754; struct structure_type24753 t20755; struct structure_type24753 t20756; struct structure_type24753 t20757; struct structure_type24753 t20758; struct structure_type24753 t20759; struct structure_type24753 t20760; struct structure_type24753 t20761; struct structure_type24753 t20762; struct structure_type24753 t20763; struct structure_type24753 t20764; struct structure_type24753 t20769; struct structure_type24753 t20770; struct structure_type24753 t20771; struct structure_type24753 t20772; struct structure_type24753 t20773; struct structure_type24753 t20774; struct structure_type24753 t20775; struct structure_type24753 t20776; struct structure_type24753 t20777; struct structure_type24753 t20778; struct structure_type24753 t20779; struct structure_type24753 t20784; struct structure_type24753 t20785; struct structure_type24753 t20786; struct structure_type24753 t20787; struct structure_type24753 t20788; struct structure_type24753 t20789; struct structure_type24753 t20790; struct structure_type24753 t20791; struct structure_type24753 t20792; struct structure_type24753 t20793; struct structure_type24753 t20794; struct structure_type24753 t20799; struct structure_type24753 t20800; struct structure_type24753 t20801; struct structure_type24753 t20802; struct structure_type24753 t20803; struct structure_type24753 t20804; struct structure_type24753 t20805; struct structure_type24753 t20806; struct structure_type24753 t20807; struct structure_type24753 t20808; struct structure_type24753 t20809; struct structure_type24753 t20814; struct structure_type24753 t20815; struct structure_type24753 t20816; struct structure_type24753 t20817; struct structure_type24753 t20818; struct structure_type24753 t20819; struct structure_type24753 t20820; struct structure_type24753 t20821; struct structure_type24753 t20822; struct structure_type24753 t20823; struct structure_type24753 t20824; struct structure_type24753 t20829; struct structure_type24753 t20830; struct structure_type24753 t20831; struct structure_type24753 t20832; struct structure_type24753 t20833; struct structure_type24753 t20834; struct structure_type24753 t20835; struct structure_type24753 t20836; struct structure_type24753 t20837; struct structure_type24753 t20838; struct structure_type24753 t20839; struct structure_type24753 t20840; struct structure_type24753 t20841; struct structure_type24753 t20846; struct structure_type24753 t20847; struct structure_type24753 t20848; struct structure_type24753 t20849; struct structure_type24753 t20850; struct structure_type24753 t20851; struct structure_type24753 t20852; struct structure_type24753 t20853; struct structure_type24753 t20854; struct structure_type24753 t20855; struct structure_type24753 t20856; struct structure_type24753 t20857; struct structure_type24753 t20858; struct structure_type24753 t20863; struct structure_type24753 t20864; struct structure_type24753 t20865; struct structure_type24753 t20866; struct structure_type24753 t20867; struct structure_type24753 t20868; struct structure_type24753 t20869; struct structure_type24753 t20870; struct structure_type24753 t20871; struct structure_type24753 t20872; struct structure_type24753 t20873; struct structure_type24753 t20874; struct structure_type24753 t20875; struct structure_type24753 t20880; struct structure_type24753 t20881; struct structure_type24753 t20882; struct structure_type24753 t20883; struct structure_type24753 t20884; struct structure_type24753 t20885; struct structure_type24753 t20886; struct structure_type24753 t20887; struct structure_type24753 t20888; struct structure_type24753 t20889; struct structure_type24753 t20890; struct structure_type24753 t20891; struct structure_type24753 t20892; struct structure_type24753 t20897; struct structure_type24753 t20898; struct structure_type24753 t20899; struct structure_type24753 t20900; struct structure_type24753 t20901; struct structure_type24753 t20902; struct structure_type24753 t20903; struct structure_type24753 t20904; struct structure_type24753 t20905; struct structure_type24753 t20906; struct structure_type24753 t20907; struct structure_type24753 t20908; struct structure_type24753 t20909; struct structure_type24753 t20914; struct structure_type24753 t20915; struct structure_type24753 t20916; struct structure_type24753 t20917; struct structure_type24753 t20918; struct structure_type24753 t20919; struct structure_type24753 t20920; struct structure_type24753 t20921; struct structure_type24753 t20922; struct structure_type24753 t20923; struct structure_type24753 t20924; struct structure_type24753 t20925; struct structure_type24753 t20926; struct structure_type24753 t20931; struct structure_type24753 t20932; struct structure_type24753 t20933; struct structure_type24753 t20934; struct structure_type24753 t20935; struct structure_type24753 t20936; struct structure_type24753 t20937; struct structure_type24753 t20938; struct structure_type24753 t20939; struct structure_type24753 t20940; struct structure_type24753 t20941; struct structure_type24753 t20942; struct structure_type24753 t20943; struct structure_type24753 t20948; struct structure_type24753 t20949; struct structure_type24753 t20950; struct structure_type24753 t20951; struct structure_type24753 t20952; struct structure_type24753 t20953; struct structure_type24753 t20954; struct structure_type24753 t20955; struct structure_type24753 t20956; struct structure_type24753 t20957; struct structure_type24753 t20958; struct structure_type24753 t20959; struct structure_type24753 t20960; struct structure_type24753 t20965; struct structure_type24753 t20966; struct structure_type24753 t20967; struct structure_type24753 t20968; struct structure_type24753 t20969; struct structure_type24753 t20970; struct structure_type24753 t20971; struct structure_type24753 t20972; struct structure_type24753 t20973; struct structure_type24753 t20974; struct structure_type24753 t20975; struct structure_type24753 t20976; struct structure_type24753 t20977; struct structure_type24753 t20982; struct structure_type24753 t20983; struct structure_type24753 t20984; struct structure_type24753 t20985; struct structure_type24753 t20986; struct structure_type24753 t20987; struct structure_type24753 t20988; struct structure_type24753 t20989; struct structure_type24753 t20990; struct structure_type24753 t20991; struct structure_type24753 t20992; struct structure_type24753 t20993; struct structure_type24753 t20994; struct structure_type24753 t20999; struct structure_type24753 t21000; struct structure_type24753 t21001; struct structure_type24753 t21002; struct structure_type24753 t21003; struct structure_type24753 t21004; struct structure_type24753 t21005; struct structure_type24753 t21006; struct structure_type24753 t21007; struct structure_type24753 t21008; struct structure_type24753 t21009; struct structure_type24753 t21010; struct structure_type24753 t21011; struct structure_type24753 t21016; struct structure_type24753 t21017; struct structure_type24753 t21018; struct structure_type24753 t21019; struct structure_type24753 t21020; struct structure_type24753 t21021; struct structure_type24753 t21022; struct structure_type24753 t21023; struct structure_type24753 t21024; struct structure_type24753 t21025; struct structure_type24753 t21026; struct structure_type24753 t21027; struct structure_type24753 t21028; struct structure_type24753 t21033; struct structure_type24753 t21034; struct structure_type24753 t21035; struct structure_type24753 t21036; struct structure_type24753 t21037; struct structure_type24753 t21038; struct structure_type24753 t21039; struct structure_type24753 t21040; struct structure_type24753 t21041; struct structure_type24753 t21042; struct structure_type24753 t21043; struct structure_type24753 t21044; struct structure_type24753 t21045; struct structure_type24753 t21050; struct structure_type24753 t21051; struct structure_type24753 t21052; struct structure_type24753 t21053; struct structure_type24753 t21054; struct structure_type24753 t21055; struct structure_type24753 t21056; struct structure_type24753 t21057; struct structure_type24753 t21058; struct structure_type24753 t21059; struct structure_type24753 t21060; struct structure_type24753 t21061; struct structure_type24753 t21062; struct structure_type24753 t21067; struct structure_type24753 t21068; struct structure_type24753 t21069; struct structure_type24753 t21070; struct structure_type24753 t21071; struct structure_type24753 t21072; struct structure_type24753 t21073; struct structure_type24753 t21074; struct structure_type24753 t21075; struct structure_type24753 t21076; struct structure_type24753 t21077; struct structure_type24753 t21078; struct structure_type24753 t21079; struct structure_type24753 t21084; struct structure_type24753 t21085; struct structure_type24753 t21086; struct structure_type24753 t21087; struct structure_type24753 t21088; struct structure_type24753 t21089; struct structure_type24753 t21090; struct structure_type24753 t21091; struct structure_type24753 t21092; struct structure_type24753 t21093; struct structure_type24753 t21094; struct structure_type24753 t21095; struct structure_type24753 t21096; struct structure_type24753 t21101; struct structure_type24753 t21102; struct structure_type24753 t21103; struct structure_type24753 t21104; struct structure_type24753 t21105; struct structure_type24753 t21106; struct structure_type24753 t21107; struct structure_type24753 t21108; struct structure_type24753 t21109; struct structure_type24753 t21114; struct structure_type24753 t21115; struct structure_type24753 t21116; struct structure_type24753 t21117; struct structure_type24753 t21118; struct structure_type24753 t21119; struct structure_type24753 t21120; struct structure_type24753 t21121; struct structure_type24753 t21122; struct structure_type24753 t21123; struct structure_type24753 t21124; struct structure_type24753 t21125; struct structure_type24753 t21126; struct structure_type24753 t21127; struct structure_type24753 t21128; struct structure_type24753 t21129; struct structure_type24753 t21130; struct structure_type24753 t21131; struct structure_type24753 t21132; struct structure_type24753 t21133; struct structure_type24753 t21134; struct structure_type24753 t21135; struct structure_type24753 t21136; struct structure_type24753 t21137; struct structure_type24753 t21138; struct structure_type24753 t21139; struct structure_type24753 t21140; struct structure_type24753 t21141; struct structure_type24753 t21142; struct structure_type24753 t21143; struct structure_type24753 t21144; struct structure_type24753 t21145; struct structure_type24753 t21146; struct structure_type24753 t21147; struct structure_type24753 t21148; struct structure_type24753 t21149; struct structure_type24753 t21150; struct structure_type24753 t21151; struct structure_type24753 t21152; struct structure_type24753 t21153; struct structure_type24753 t21154; struct structure_type24753 t21155; struct structure_type24753 t21156; struct structure_type24753 t21157; struct structure_type24753 t21158; struct structure_type24753 t21159; struct structure_type24753 t21160; struct structure_type24753 t21161; struct structure_type24753 t21162; struct structure_type24753 t21163; struct structure_type24753 t21164; struct structure_type24753 t21165; struct structure_type24753 t21166; struct structure_type24753 t21167; struct structure_type24753 t21168; struct structure_type24753 t21169; struct structure_type24753 t21170; struct structure_type24753 t21171; struct structure_type24753 t21172; struct structure_type24753 t21173; struct structure_type24753 t21174; struct structure_type24753 t21175; struct structure_type24753 t21176; struct structure_type24753 t21177; struct structure_type24753 t21178; struct structure_type24753 t21179; struct structure_type24753 t21180; struct structure_type24753 t21181; struct structure_type24753 t21182; struct structure_type24753 t21183; struct structure_type24753 t21188; struct structure_type24753 t21189; struct structure_type24753 t21190; struct structure_type24753 t21191; struct structure_type24753 t21196; struct structure_type24753 t21197; struct structure_type24753 t21198; struct structure_type24753 t21199; struct structure_type24753 t21200; struct structure_type24753 t21201; struct structure_type24753 t21202; struct structure_type24753 t21203; struct structure_type24753 t21204; struct structure_type24753 t21205; struct structure_type24753 t21206; struct structure_type24753 t21207; struct structure_type24753 t21208; struct structure_type24753 t21209; struct structure_type24753 t21210; struct structure_type24753 t21211; struct structure_type24753 t21212; struct structure_type24753 t21213; struct structure_type24753 t21214; struct structure_type24753 t21215; struct structure_type24753 t21216; struct structure_type24753 t21217; struct structure_type24753 t21218; struct structure_type24753 t21219; struct structure_type24753 t21220; struct structure_type24753 t21221; struct structure_type24753 t21222; struct structure_type24753 t21223; struct structure_type24753 t21224; struct structure_type24753 t21225; struct structure_type24753 t21226; struct structure_type24753 t21227; struct structure_type24753 t21232; struct structure_type24753 t21233; struct structure_type24753 t21234; struct structure_type24753 t21235; struct structure_type24753 t21236; struct structure_type24753 t21237; struct structure_type24753 t21238; struct structure_type24753 t21239; struct structure_type24753 t21240; struct structure_type24753 t21241; struct structure_type24753 t21242; struct structure_type24753 t21243; struct structure_type24753 t21244; struct structure_type24753 t21245; struct structure_type24753 t21246; struct structure_type24753 t21247; struct structure_type24753 t21248; struct structure_type24753 t21249; struct structure_type24753 t21250; struct structure_type24753 t21251; struct structure_type24753 t21252; struct structure_type24753 t21253; struct structure_type24753 t21254; struct structure_type24753 t21255; struct structure_type24753 t21256; struct structure_type24753 t21257; struct structure_type24753 t21258; struct structure_type24753 t21259; struct structure_type24753 t21260; struct structure_type24753 t21261; struct structure_type24753 t21262; struct structure_type24753 t21263; struct structure_type24753 t21264; struct structure_type24753 t21265; struct structure_type24753 t21266; struct structure_type24753 t21267; struct structure_type24753 t21268; struct structure_type24753 t21273; struct structure_type24753 t21274; struct structure_type24753 t21275; struct structure_type24753 t21276; struct structure_type24753 t21277; struct structure_type24753 t21278; struct structure_type24753 t21279; struct structure_type24753 t21280; struct structure_type24753 t21281; struct structure_type24753 t21282; struct structure_type24753 t21283; struct structure_type24753 t21284; struct structure_type24753 t21285; struct structure_type24753 t21286; struct structure_type24753 t21287; struct structure_type24753 t21288; struct structure_type24753 t21289; struct structure_type24753 t21290; struct structure_type24753 t21291; struct structure_type24753 t21292; struct structure_type24753 t21293; struct structure_type24753 t21294; struct structure_type24753 t21295; struct structure_type24753 t21296; struct structure_type24753 t21297; struct structure_type24753 t21298; struct structure_type24753 t21299; struct structure_type24753 t21300; struct structure_type24753 t21301; struct structure_type24753 t21302; struct structure_type24753 t21303; struct structure_type24753 t21304; struct structure_type24753 t21305; struct structure_type24753 t21306; struct structure_type24753 t21307; struct structure_type24753 t21308; struct structure_type24753 t21309; struct structure_type24753 t21310; struct structure_type24753 t21311; struct structure_type24753 t21312; struct structure_type24753 t21313; struct structure_type24753 t21314; struct structure_type24753 t21315; struct structure_type24753 t21316; struct structure_type24753 t21317; struct structure_type24753 t21318; struct structure_type24753 t21319; struct structure_type24753 t21320; struct structure_type24753 t21321; struct structure_type24753 t21322; struct structure_type24753 t21323; struct structure_type24753 t21324; struct structure_type24753 t21325; struct structure_type24753 t21326; struct structure_type24753 t21327; struct structure_type24753 t21328; struct structure_type24753 t21333; struct structure_type24753 t21334; struct structure_type24753 t21335; struct structure_type24753 t21336; struct structure_type24753 t21337; struct structure_type24753 t21338; struct structure_type24753 t21339; struct structure_type24753 t21340; struct structure_type24753 t21341; struct structure_type24753 t21342; struct structure_type24753 t21343; struct structure_type24753 t21344; struct structure_type24753 t21345; struct structure_type24753 t21346; struct structure_type24753 t21347; struct structure_type24753 t21348; struct structure_type24753 t21349; struct structure_type24753 t21350; struct structure_type24753 t21351; struct structure_type24753 t21352; struct structure_type24753 t21353; struct structure_type24753 t21354; struct structure_type24753 t21355; struct structure_type24753 t21356; struct structure_type24753 t21357; struct structure_type24753 t21358; struct structure_type24753 t21359; struct structure_type24753 t21360; struct structure_type24753 t21361; struct structure_type24753 t21362; struct structure_type24753 t21363; struct structure_type24753 t21364; struct structure_type24753 t21365; struct structure_type24753 t21366; struct structure_type24753 t21367; struct structure_type24753 t21368; struct structure_type24753 t21369; struct structure_type24753 t21370; struct structure_type24753 t21371; struct structure_type24753 t21372; struct structure_type24753 t21373; struct structure_type24753 t21374; struct structure_type24753 t21375; struct structure_type24753 t21376; struct structure_type24753 t21377; struct structure_type24753 t21378; struct structure_type24753 t21379; struct structure_type24753 t21380; struct structure_type24753 t21381; struct structure_type24753 t21382; struct structure_type24753 t21383; struct structure_type24753 t21384; struct structure_type24753 t21385; struct structure_type24753 t21386; struct structure_type24753 t21387; struct structure_type24753 t21388; struct structure_type24753 t21389; struct structure_type24753 t21390; struct structure_type24753 t21391; struct structure_type24753 t21392; struct structure_type24753 t21393; struct structure_type24753 t21394; struct structure_type24753 t21395; struct structure_type24753 t21400; struct structure_type24753 t21401; struct structure_type24753 t21402; struct structure_type24753 t21403; struct structure_type24753 t21404; struct structure_type24753 t21405; struct structure_type24753 t21406; struct structure_type24753 t21407; struct structure_type24753 t21408; struct structure_type24753 t21409; struct structure_type24753 t21410; struct structure_type24753 t21411; struct structure_type24753 t21412; struct structure_type24753 t21413; struct structure_type24753 t21414; struct structure_type24753 t21415; struct structure_type24753 t21416; struct structure_type24753 t21417; struct structure_type24753 t21418; struct structure_type24753 t21419; struct structure_type24753 t21420; struct structure_type24753 t21421; struct structure_type24753 t21422; struct structure_type24753 t21423; struct structure_type24753 t21424; struct structure_type24753 t21425; struct structure_type24753 t21426; struct structure_type24753 t21427; struct structure_type24753 t21428; struct structure_type24753 t21429; struct structure_type24753 t21430; struct structure_type24753 t21431; struct structure_type24753 t21432; struct structure_type24753 t21433; struct structure_type24753 t21434; struct structure_type24753 t21435; struct structure_type24753 t21436; struct structure_type24753 t21437; struct structure_type24753 t21438; struct structure_type24753 t21439; struct structure_type24753 t21440; struct structure_type24753 t21441; struct structure_type24753 t21442; struct structure_type24753 t21443; struct structure_type24753 t21444; struct structure_type24753 t21445; struct structure_type24753 t21446; struct structure_type24753 t21447; struct structure_type24753 t21448; struct structure_type24753 t21449; struct structure_type24753 t21450; struct structure_type24753 t21451; struct structure_type24753 t21452; struct structure_type24753 t21453; struct structure_type24753 t21454; struct structure_type24753 t21455; struct structure_type24753 t21456; struct structure_type24753 t21457; struct structure_type24753 t21458; struct structure_type24753 t21459; struct structure_type24753 t21460; struct structure_type24753 t21461; struct structure_type24753 t21462; struct structure_type24753 t21463; struct structure_type24753 t21464; struct structure_type24753 t21465; struct structure_type24753 t21466; struct structure_type24753 t21467; struct structure_type24753 t21468; struct structure_type24753 t21469; struct structure_type24753 t21470; struct structure_type24753 t21471; struct structure_type24753 t21472; struct structure_type24753 t21473; struct structure_type24753 t21474; struct structure_type24753 t21475; struct structure_type24753 t21476; struct structure_type24753 t21477; struct structure_type24753 t21482; struct structure_type24753 t21483; struct structure_type24753 t21484; struct structure_type24753 t21485; struct structure_type24753 t21486; struct structure_type24753 t21487; struct structure_type24753 t21488; struct structure_type24753 t21489; struct structure_type24753 t21490; struct structure_type24753 t21491; struct structure_type24753 t21492; struct structure_type24753 t21493; struct structure_type24753 t21494; struct structure_type24753 t21495; struct structure_type24753 t21496; struct structure_type24753 t21497; struct structure_type24753 t21498; struct structure_type24753 t21499; struct structure_type24753 t21500; struct structure_type24753 t21501; struct structure_type24753 t21502; struct structure_type24753 t21503; struct structure_type24753 t21504; struct structure_type24753 t21505; struct structure_type24753 t21506; struct structure_type24753 t21507; struct structure_type24753 t21508; struct structure_type24753 t21509; struct structure_type24753 t21510; struct structure_type24753 t21511; struct structure_type24753 t21512; struct structure_type24753 t21513; struct structure_type24753 t21514; struct structure_type24753 t21515; struct structure_type24753 t21516; struct structure_type24753 t21517; struct structure_type24753 t21518; struct structure_type24753 t21519; struct structure_type24753 t21520; struct structure_type24753 t21521; struct structure_type24753 t21522; struct structure_type24753 t21523; struct structure_type24753 t21524; struct structure_type24753 t21525; struct structure_type24753 t21526; struct structure_type24753 t21527; struct structure_type24753 t21528; struct structure_type24753 t21529; struct structure_type24753 t21530; struct structure_type24753 t21531; struct structure_type24753 t21532; struct structure_type24753 t21533; struct structure_type24753 t21534; struct structure_type24753 t21535; struct structure_type24753 t21536; struct structure_type24753 t21537; struct structure_type24753 t21538; struct structure_type24753 t21539; struct structure_type24753 t21540; struct structure_type24753 t21541; struct structure_type24753 t21542; struct structure_type24753 t21543; struct structure_type24753 t21544; struct structure_type24753 t21545; struct structure_type24753 t21546; struct structure_type24753 t21547; struct structure_type24753 t21548; struct structure_type24753 t21549; struct structure_type24753 t21550; struct structure_type24753 t21551; struct structure_type24753 t21552; struct structure_type24753 t21553; struct structure_type24753 t21554; struct structure_type24753 t21555; struct structure_type24753 t21556; struct structure_type24753 t21557; struct structure_type24753 t21558; struct structure_type24753 t21559; struct structure_type24753 t21560; struct structure_type24753 t21561; struct structure_type24753 t21562; struct structure_type24753 t21563; struct structure_type24753 t21564; struct structure_type24753 t21565; struct structure_type24753 t21566; struct structure_type24753 t21567; struct structure_type24753 t21568; struct structure_type24753 t21569; struct structure_type24753 t21570; struct structure_type24753 t21571; struct structure_type24753 t21572; struct structure_type24753 t21573; struct structure_type24753 t21574; struct structure_type24753 t21575; struct structure_type24753 t21576; struct structure_type24753 t21577; struct structure_type24753 t21578; struct structure_type24753 t21579; struct structure_type24753 t21580; struct structure_type24753 t21581; struct structure_type24753 t21582; struct structure_type24753 t21583; struct structure_type24753 t21584; struct structure_type24753 t21585; struct structure_type24753 t21586; struct structure_type24753 t21587; struct structure_type24753 t21588; struct structure_type24753 t21589; struct structure_type24753 t21590; struct structure_type24753 t21591; struct structure_type24753 t21592; struct structure_type24753 t21593; struct structure_type24753 t21594; struct structure_type24753 t21595; struct structure_type24753 t21596; struct structure_type24753 t21597; struct structure_type24753 t21598; struct structure_type24753 t21599; struct structure_type24753 t21600; struct structure_type24753 t21601; struct structure_type24753 t21602; struct structure_type24753 t21603; struct structure_type24753 t21604; struct structure_type24753 t21605; struct structure_type24753 t21606; struct structure_type24753 t21607; struct structure_type24753 t21608; struct structure_type24753 t21609; struct structure_type24753 t21610; struct structure_type24753 t21611; struct structure_type24753 t21612; struct structure_type24753 t21613; struct structure_type24753 t21614; struct structure_type24753 t21615; struct structure_type24753 t21616; struct structure_type24753 t21617; struct structure_type24753 t21618; struct structure_type24753 t21619; struct structure_type24753 t21620; struct structure_type24753 t21621; struct structure_type24753 t21622; struct structure_type24753 t21623; struct structure_type24753 t21624; struct structure_type24753 t21625; struct structure_type24753 t21626; struct structure_type24753 t21627; struct structure_type24753 t21628; struct structure_type24753 t21629; struct structure_type24753 t21630; struct structure_type24753 t21631; struct structure_type24753 t21632; struct structure_type24753 t21633; struct structure_type24753 t21634; struct structure_type24753 t21635; struct structure_type24753 t21636; struct structure_type24753 t21637; struct structure_type24753 t21638; struct structure_type24753 t21639; struct structure_type24753 t21640; struct structure_type24753 t21641; struct structure_type24753 t21642; struct structure_type24753 t21643; struct structure_type24753 t21644; struct structure_type24753 t21645; struct structure_type24753 t21646; struct structure_type24753 t21647; struct structure_type24753 t21648; struct structure_type24753 t21649; struct structure_type24753 t21650; struct structure_type24753 t21651; struct structure_type24753 t21652; struct structure_type24753 t21653; struct structure_type24753 t21654; struct structure_type24753 t21655; struct structure_type24753 t21656; struct structure_type24753 t21657; struct structure_type24753 t21658; struct structure_type24753 t21659; struct structure_type24753 t21660; struct structure_type24753 t21661; struct structure_type24753 t21662; struct structure_type24753 t21663; struct structure_type24753 t21664; struct structure_type24753 t21665; struct structure_type24753 t21666; struct structure_type24753 t21667; struct structure_type24753 t21668; struct structure_type24753 t21669; struct structure_type24753 t21670; struct structure_type24753 t21671; struct structure_type24753 t21672; struct structure_type24753 t21673; struct structure_type24753 t21674; struct structure_type24753 t21675; struct structure_type24753 t21676; struct structure_type24753 t21677; struct structure_type24753 t21678; struct structure_type24753 t21679; struct structure_type24753 t21680; struct structure_type24753 t21681; struct structure_type24753 t21682; struct structure_type24753 t21683; struct structure_type24753 t21684; struct structure_type24753 t21685; struct structure_type24753 t21686; struct structure_type24753 t21687; struct structure_type24753 t21688; struct structure_type24753 t21689; struct structure_type24753 t21690; struct structure_type24753 t21691; struct structure_type24753 t21692; struct structure_type24753 t21693; struct structure_type24753 t21694; struct structure_type24753 t21695; struct structure_type24753 t21696; struct structure_type24753 t21697; struct structure_type24753 t21698; struct structure_type24753 t21699; struct structure_type24753 t21700; struct structure_type24753 t21701; struct structure_type24753 t21702; struct structure_type24753 t21703; struct structure_type24753 t21704; struct structure_type24753 t21705; struct structure_type24753 t21706; struct structure_type24753 t21707; struct structure_type24753 t21708; struct structure_type24753 t21709; struct structure_type24753 t21710; struct structure_type24753 t21711; struct structure_type24753 t21712; struct structure_type24753 t21713; struct structure_type24753 t21714; struct structure_type24753 t21715; struct structure_type24753 t21716; struct structure_type24753 t21717; struct structure_type24753 t21718; struct structure_type24753 t21719; struct structure_type24753 t21720; struct structure_type24753 t21721; struct structure_type24753 t21722; struct structure_type24753 t21723; struct structure_type24753 t21724; struct structure_type24753 t21725; struct structure_type24753 t21726; struct structure_type24753 t21727; struct structure_type24753 t21728; struct structure_type24753 t21729; struct structure_type24753 t21730; struct structure_type24753 t21731; struct structure_type24753 t21732; struct structure_type24753 t21733; struct structure_type24753 t21734; struct structure_type24753 t21735; struct structure_type24753 t21736; struct structure_type24753 t21737; struct structure_type24753 t21738; struct structure_type24753 t21739; struct structure_type24753 t21740; struct structure_type24753 t21741; struct structure_type24753 t21742; struct structure_type24753 t21743; struct structure_type24753 t21744; struct structure_type24753 t21745; struct structure_type24753 t21746; struct structure_type24753 t21747; struct structure_type24753 t21748; struct structure_type24753 t21749; struct structure_type24753 t21750; struct structure_type24753 t21751; struct structure_type24753 t21752; struct structure_type24753 t21753; struct structure_type24753 t21754; struct structure_type24753 t21755; struct structure_type24753 t21756; struct structure_type24753 t21757; struct structure_type24753 t21758; struct structure_type24753 t21759; struct structure_type24753 t21760; struct structure_type24753 t21761; struct structure_type24753 t21762; struct structure_type24753 t21763; struct structure_type24753 t21764; struct structure_type24753 t21765; struct structure_type24753 t21766; struct structure_type24753 t21767; struct structure_type24753 t21768; struct structure_type24753 t21769; struct structure_type24753 t21770; struct structure_type24753 t21771; struct structure_type24753 t21772; struct structure_type24753 t21773; struct structure_type24753 t21774; struct structure_type24753 t21775; struct structure_type24753 t21776; struct structure_type24753 t21777; struct structure_type24753 t21778; struct structure_type24753 t21779; struct structure_type24753 t21780; struct structure_type24753 t21781; struct structure_type24753 t21782; struct structure_type24753 t21783; struct structure_type24753 t21784; struct structure_type24753 t21785; struct structure_type24753 t21786; struct structure_type24753 t21787; struct structure_type24753 t21788; struct structure_type24753 t21789; struct structure_type24753 t21790; struct structure_type24753 t21791; struct structure_type24753 t21792; struct structure_type24753 t21793; struct structure_type24753 t21794; struct structure_type24753 t21795; struct structure_type24753 t21796; struct structure_type24753 t21797; struct structure_type24753 t21798; struct structure_type24753 t21799; struct structure_type24753 t21800; struct structure_type24753 t21801; struct structure_type24753 t21802; struct structure_type24753 t21803; struct structure_type24753 t21804; struct structure_type24753 t21805; struct structure_type24753 t21806; struct structure_type24753 t21807; struct structure_type24753 t21808; struct structure_type24753 t21809; struct structure_type24753 t21810; struct structure_type24753 t21811; struct structure_type24753 t21812; struct structure_type24753 t21813; struct structure_type24753 t21814; struct structure_type24753 t21815; struct structure_type24753 t21816; struct structure_type24753 t21817; struct structure_type24753 t21818; struct structure_type24753 t21819; struct structure_type24753 t21820; struct structure_type24753 t21821; struct structure_type24753 t21822; struct structure_type24753 t21823; struct structure_type24753 t21824; struct structure_type24753 t21825; struct structure_type24753 t21826; struct structure_type24753 t21827; struct structure_type24753 t21828; struct structure_type24753 t21829; struct structure_type24753 t21830; struct structure_type24753 t21831; struct structure_type24753 t21832; struct structure_type24753 t21833; struct structure_type24753 t21834; struct structure_type24753 t21835; struct structure_type24753 t21836; struct structure_type24753 t21837; struct structure_type24753 t21838; struct structure_type24753 t21839; struct structure_type24753 t21840; struct structure_type24753 t21841; struct structure_type24753 t21842; struct structure_type24753 t21843; struct structure_type24753 t21844; struct structure_type24753 t21845; struct structure_type24753 t21846; struct structure_type24753 t21847; struct structure_type24753 t21848; struct structure_type24753 t21849; struct structure_type24753 t21850; struct structure_type24753 t21851; struct structure_type24753 t21852; struct structure_type24753 t21853; struct structure_type24753 t21854; struct structure_type24753 t21855; struct structure_type24753 t21856; struct structure_type24753 t21857; struct structure_type24753 t21858; struct structure_type24753 t21859; struct structure_type24753 t21860; struct structure_type24753 t21861; struct structure_type24753 t21862; struct structure_type24753 t21863; struct structure_type24753 t21864; struct structure_type24753 t21869; struct structure_type24753 t21870; struct structure_type24753 t21871; struct structure_type24753 t21872; struct structure_type24753 t21873; struct structure_type24753 t21874; struct structure_type24753 t21875; struct structure_type24753 t21876; struct structure_type24753 t21877; struct structure_type24753 t21878; struct structure_type24753 t21879; struct structure_type24753 t21880; struct structure_type24753 t21881; struct structure_type24753 t21882; struct structure_type24753 t21883; struct structure_type24753 t21884; struct structure_type24753 t21885; struct structure_type24753 t21886; struct structure_type24753 t21887; struct structure_type24753 t21888; struct structure_type24753 t21889; struct structure_type24753 t21890; struct structure_type24753 t21891; struct structure_type24753 t21892; struct structure_type24753 t21893; struct structure_type24753 t21894; struct structure_type24753 t21895; struct structure_type24753 t21896; struct structure_type24753 t21897; struct structure_type24753 t21898; struct structure_type24753 t21899; struct structure_type24753 t21900; struct structure_type24753 t21901; struct structure_type24753 t21906; struct structure_type24753 t21907; struct structure_type24753 t21908; struct structure_type24753 t21909; struct structure_type24753 t21910; struct structure_type24753 t21911; struct structure_type24753 t21912; struct structure_type24753 t21913; struct structure_type24753 t21914; struct structure_type24753 t21915; struct structure_type24753 t21916; struct structure_type24753 t21917; struct structure_type24753 t21918; struct structure_type24753 t21919; struct structure_type24753 t21920; struct structure_type24753 t21921; struct structure_type24753 t21922; struct structure_type24753 t21923; struct structure_type24753 t21924; struct structure_type24753 t21925; struct structure_type24753 t21926; struct structure_type24753 t21927; struct structure_type24753 t21928; struct structure_type24753 t21929; struct structure_type24753 t21930; struct structure_type24753 t21931; struct structure_type24753 t21932; struct structure_type24753 t21933; struct structure_type24753 t21934; struct structure_type24753 t21935; struct structure_type24753 t21936; struct structure_type24753 t21937; struct structure_type24753 t21938; struct structure_type24753 t21939; struct structure_type24753 t21940; struct structure_type24753 t21941; struct structure_type24753 t21942; struct structure_type24753 t21943; struct structure_type24753 t21944; struct structure_type24753 t21949; struct structure_type24753 t21950; struct structure_type24753 t21951; struct structure_type24753 t21952; struct structure_type24753 t21953; struct structure_type24753 t21954; struct structure_type24753 t21955; struct structure_type24753 t21956; struct structure_type24753 t21957; struct structure_type24753 t21958; struct structure_type24753 t21959; struct structure_type24753 t21960; struct structure_type24753 t21961; struct structure_type24753 t21962; struct structure_type24753 t21963; struct structure_type24753 t21964; struct structure_type24753 t21965; struct structure_type24753 t21966; struct structure_type24753 t21967; struct structure_type24753 t21968; struct structure_type24753 t21973; struct structure_type24753 t21974; struct structure_type24753 t21975; struct structure_type24753 t21976; struct structure_type24753 t21977; struct structure_type24753 t21978; struct structure_type24753 t21979; struct structure_type24753 t21980; struct structure_type24753 t21981; struct structure_type24753 t21982; struct structure_type24753 t21983; struct structure_type24753 t21984; struct structure_type24753 t21985; struct structure_type24753 t21986; struct structure_type24753 t21987; struct structure_type24753 t21988; struct structure_type24753 t21989; struct structure_type24753 t21990; struct structure_type24753 t21991; struct structure_type24753 t21992; struct structure_type24753 t21993; struct structure_type24753 t21994; struct structure_type24753 t21995; struct structure_type24753 t21996; struct structure_type24753 t21997; struct structure_type24753 t21998; struct structure_type24753 t21999; struct structure_type24753 t22000; struct structure_type24753 t22001; struct structure_type24753 t22002; struct structure_type24753 t22003; struct structure_type24753 t22004; struct structure_type24753 t22005; struct structure_type24753 t22006; struct structure_type24753 t22007; struct structure_type24753 t22012; struct structure_type24753 t22013; struct structure_type24753 t22014; struct structure_type24753 t22015; struct structure_type24753 t22016; struct structure_type24753 t22017; struct structure_type24753 t22018; struct structure_type24753 t22019; struct structure_type24753 t22020; struct structure_type24753 t22021; struct structure_type24753 t22022; struct structure_type24753 t22023; struct structure_type24753 t22024; struct structure_type24753 t22025; struct structure_type24753 t22026; struct structure_type24753 t22027; struct structure_type24753 t22028; struct structure_type24753 t22029; struct structure_type24753 t22030; struct structure_type24753 t22031; struct structure_type24753 t22032; struct structure_type24753 t22033; struct structure_type24753 t22034; struct structure_type24753 t22035; struct structure_type24753 t22036; struct structure_type24753 t22037; struct structure_type24753 t22038; struct structure_type24753 t22039; struct structure_type24753 t22040; struct structure_type24753 t22041; struct structure_type24753 t22042; struct structure_type24753 t22043; struct structure_type24753 t22044; struct structure_type24753 t22045; struct structure_type24753 t22046; struct structure_type24753 t22047; struct structure_type24753 t22052; struct structure_type24753 t22053; struct structure_type24753 t22054; struct structure_type24753 t22055; struct structure_type24753 t22056; struct structure_type24753 t22057; struct structure_type24753 t22058; struct structure_type24753 t22059; struct structure_type24753 t22060; struct structure_type24753 t22061; struct structure_type24753 t22062; struct structure_type24753 t22063; struct structure_type24753 t22064; struct structure_type24753 t22065; struct structure_type24753 t22066; struct structure_type24753 t22067; struct structure_type24753 t22068; struct structure_type24753 t22069; struct structure_type24753 t22070; struct structure_type24753 t22071; struct structure_type24753 t22072; struct structure_type24753 t22073; struct structure_type24753 t22074; struct structure_type24753 t22075; struct structure_type24753 t22076; struct structure_type24753 t22077; struct structure_type24753 t22078; struct structure_type24753 t22083; struct structure_type24753 t22084; struct structure_type24753 t22085; struct structure_type24753 t22086; struct structure_type24753 t22087; struct structure_type24753 t22088; struct structure_type24753 t22089; struct structure_type24753 t22090; struct structure_type24753 t22091; struct structure_type24753 t22092; struct structure_type24753 t22093; struct structure_type24753 t22094; struct structure_type24753 t22095; struct structure_type24753 t22096; struct structure_type24753 t22097; struct structure_type24753 t22098; struct structure_type24753 t22099; struct structure_type24753 t22100; struct structure_type24753 t22101; struct structure_type24753 t22102; struct structure_type24753 t22103; struct structure_type24753 t22104; struct structure_type24753 t22105; struct structure_type24753 t22106; struct structure_type24753 t22107; struct structure_type24753 t22108; struct structure_type24753 t22109; struct structure_type24753 t22114; struct structure_type24753 t22115; struct structure_type24753 t22116; struct structure_type24753 t22117; struct structure_type24753 t22118; struct structure_type24753 t22119; struct structure_type24753 t22120; struct structure_type24753 t22121; struct structure_type24753 t22122; struct structure_type24753 t22123; struct structure_type24753 t22124; struct structure_type24753 t22125; struct structure_type24753 t22126; struct structure_type24753 t22127; struct structure_type24753 t22128; struct structure_type24753 t22129; struct structure_type24753 t22130; struct structure_type24753 t22131; struct structure_type24753 t22132; struct structure_type24753 t22133; struct structure_type24753 t22134; struct structure_type24753 t22135; struct structure_type24753 t22136; struct structure_type24753 t22137; struct structure_type24753 t22138; struct structure_type24753 t22139; struct structure_type24753 t22140; struct structure_type24753 t22145; struct structure_type24753 t22146; struct structure_type24753 t22147; struct structure_type24753 t22148; struct structure_type24753 t22149; struct structure_type24753 t22150; struct structure_type24753 t22151; struct structure_type24753 t22152; struct structure_type24753 t22153; struct structure_type24753 t22154; struct structure_type24753 t22155; struct structure_type24753 t22156; struct structure_type24753 t22157; struct structure_type24753 t22158; struct structure_type24753 t22159; struct structure_type24753 t22160; struct structure_type24753 t22161; struct structure_type24753 t22162; struct structure_type24753 t22163; struct structure_type24753 t22164; struct structure_type24753 t22165; struct structure_type24753 t22166; struct structure_type24753 t22167; struct structure_type24753 t22168; struct structure_type24753 t22169; struct structure_type24753 t22170; struct structure_type24753 t22171; struct structure_type24753 t22172; struct structure_type24753 t22173; struct structure_type24753 t22174; struct structure_type24753 t22175; struct structure_type24753 t22180; struct structure_type24753 t22181; struct structure_type24753 t22182; struct structure_type24753 t22183; struct structure_type24753 t22184; struct structure_type24753 t22185; struct structure_type24753 t22186; struct structure_type24753 t22187; struct structure_type24753 t22188; struct structure_type24753 t22189; struct structure_type24753 t22190; struct structure_type24753 t22191; struct structure_type24753 t22192; struct structure_type24753 t22193; struct structure_type24753 t22194; struct structure_type24753 t22195; struct structure_type24753 t22196; struct structure_type24753 t22197; struct structure_type24753 t22198; struct structure_type24753 t22199; struct structure_type24753 t22200; struct structure_type24753 t22201; struct structure_type24753 t22202; struct structure_type24753 t22203; struct structure_type24753 t22204; struct structure_type24753 t22205; struct structure_type24753 t22206; struct structure_type24753 t22207; struct structure_type24753 t22208; struct structure_type24753 t22209; struct structure_type24753 t22210; struct structure_type24753 t22215; struct structure_type24753 t22216; struct structure_type24753 t22217; struct structure_type24753 t22218; struct structure_type24753 t22219; struct structure_type24753 t22220; struct structure_type24753 t22221; struct structure_type24753 t22222; struct structure_type24753 t22223; struct structure_type24753 t22224; struct structure_type24753 t22225; struct structure_type24753 t22226; struct structure_type24753 t22227; struct structure_type24753 t22228; struct structure_type24753 t22229; struct structure_type24753 t22230; struct structure_type24753 t22231; struct structure_type24753 t22232; struct structure_type24753 t22233; struct structure_type24753 t22234; struct structure_type24753 t22235; struct structure_type24753 t22236; struct structure_type24753 t22237; struct structure_type24753 t22238; struct structure_type24753 t22239; struct structure_type24753 t22240; struct structure_type24753 t22241; struct structure_type24753 t22242; struct structure_type24753 t22243; struct structure_type24753 t22244; struct structure_type24753 t22245; struct structure_type24753 t22250; struct structure_type24753 t22251; struct structure_type24753 t22252; struct structure_type24753 t22253; struct structure_type24753 t22254; struct structure_type24753 t22255; struct structure_type24753 t22256; struct structure_type24753 t22257; struct structure_type24753 t22258; struct structure_type24753 t22259; struct structure_type24753 t22260; struct structure_type24753 t22261; struct structure_type24753 t22262; struct structure_type24753 t22263; struct structure_type24753 t22264; struct structure_type24753 t22265; struct structure_type24753 t22266; struct structure_type24753 t22267; struct structure_type24753 t22268; struct structure_type24753 t22269; struct structure_type24753 t22270; struct structure_type24753 t22271; struct structure_type24753 t22272; struct structure_type24753 t22273; struct structure_type24753 t22274; struct structure_type24753 t22275; struct structure_type24753 t22276; struct structure_type24753 t22277; struct structure_type24753 t22278; struct structure_type24753 t22279; struct structure_type24753 t22280; struct structure_type24753 t22281; struct structure_type24753 t22282; struct structure_type24753 t22283; struct structure_type24753 t22284; struct structure_type24753 t22285; struct structure_type24753 t22286; struct structure_type24753 t22291; struct structure_type24753 t22292; struct structure_type24753 t22293; struct structure_type24753 t22294; struct structure_type24753 t22295; struct structure_type24753 t22296; struct structure_type24753 t22297; struct structure_type24753 t22298; struct structure_type24753 t22299; struct structure_type24753 t22300; struct structure_type24753 t22301; struct structure_type24753 t22302; struct structure_type24753 t22303; struct structure_type24753 t22304; struct structure_type24753 t22305; struct structure_type24753 t22306; struct structure_type24753 t22307; struct structure_type24753 t22308; struct structure_type24753 t22309; struct structure_type24753 t22310; struct structure_type24753 t22311; struct structure_type24753 t22312; struct structure_type24753 t22313; struct structure_type24753 t22314; struct structure_type24753 t22315; struct structure_type24753 t22316; struct structure_type24753 t22317; struct structure_type24753 t22318; struct structure_type24753 t22319; struct structure_type24753 t22320; struct structure_type24753 t22321; struct structure_type24753 t22322; struct structure_type24753 t22323; struct structure_type24753 t22324; struct structure_type24753 t22325; struct structure_type24753 t22326; struct structure_type24753 t22327; struct structure_type24753 t22328; struct structure_type24753 t22329; struct structure_type24753 t22330; struct structure_type24753 t22335; struct structure_type24753 t22336; struct structure_type24753 t22337; struct structure_type24753 t22338; struct structure_type24753 t22339; struct structure_type24753 t22340; struct structure_type24753 t22341; struct structure_type24753 t22342; struct structure_type24753 t22343; struct structure_type24753 t22344; struct structure_type24753 t22345; struct structure_type24753 t22346; struct structure_type24753 t22347; struct structure_type24753 t22348; struct structure_type24753 t22349; struct structure_type24753 t22350; struct structure_type24753 t22351; struct structure_type24753 t22352; struct structure_type24753 t22353; struct structure_type24753 t22354; struct structure_type24753 t22355; struct structure_type24753 t22356; struct structure_type24753 t22357; struct structure_type24753 t22358; struct structure_type24753 t22359; struct structure_type24753 t22360; struct structure_type24753 t22361; struct structure_type24753 t22362; struct structure_type24753 t22363; struct structure_type24753 t22364; struct structure_type24753 t22369; struct structure_type24753 t22370; struct structure_type24753 t22371; struct structure_type24753 t22372; struct structure_type24753 t22373; struct structure_type24753 t22374; struct structure_type24753 t22375; struct structure_type24753 t22376; struct structure_type24753 t22377; struct structure_type24753 t22378; struct structure_type24753 t22379; struct structure_type24753 t22380; struct structure_type24753 t22381; struct structure_type24753 t22382; struct structure_type24753 t22383; struct structure_type24753 t22384; struct structure_type24753 t22385; struct structure_type24753 t22386; struct structure_type24753 t22387; struct structure_type24753 t22388; struct structure_type24753 t22389; struct structure_type24753 t22390; struct structure_type24753 t22391; struct structure_type24753 t22392; struct structure_type24753 t22393; struct structure_type24753 t22394; struct structure_type24753 t22395; struct structure_type24753 t22396; struct structure_type24753 t22397; struct structure_type24753 t22398; struct structure_type24753 t22399; struct structure_type24753 t22400; struct structure_type24753 t22401; struct structure_type24753 t22402; struct structure_type24753 t22403; struct structure_type24753 t22404; struct structure_type24753 t22405; struct structure_type24753 t22406; struct structure_type24753 t22407; struct structure_type24753 t22408; struct structure_type24753 t22409; struct structure_type24753 t22410; struct structure_type24753 t22411; struct structure_type24753 t22416; struct structure_type24753 t22417; struct structure_type24753 t22418; struct structure_type24753 t22419; struct structure_type24753 t22420; struct structure_type24753 t22421; struct structure_type24753 t22422; struct structure_type24753 t22423; struct structure_type24753 t22424; struct structure_type24753 t22425; struct structure_type24753 t22426; struct structure_type24753 t22427; struct structure_type24753 t22428; struct structure_type24753 t22429; struct structure_type24753 t22430; struct structure_type24753 t22431; struct structure_type24753 t22432; struct structure_type24753 t22433; struct structure_type24753 t22434; struct structure_type24753 t22435; struct structure_type24753 t22436; struct structure_type24753 t22437; struct structure_type24753 t22442; struct structure_type24753 t22443; struct structure_type24753 t22444; struct structure_type24753 t22445; struct structure_type24753 t22446; struct structure_type24753 t22447; struct structure_type24753 t22448; struct structure_type24753 t22449; struct structure_type24753 t22450; struct structure_type24753 t22451; struct structure_type24753 t22452; struct structure_type24753 t22453; struct structure_type24753 t22454; struct structure_type24753 t22455; struct structure_type24753 t22456; struct structure_type24753 t22457; struct structure_type24753 t22458; struct structure_type24753 t22459; struct structure_type24753 t22460; struct structure_type24753 t22461; struct structure_type24753 t22462; struct structure_type24753 t22463; struct structure_type24753 t22464; struct structure_type24753 t22465; struct structure_type24753 t22466; struct structure_type24753 t22467; struct structure_type24753 t22468; struct structure_type24753 t22469; struct structure_type24753 t22470; struct structure_type24753 t22471; struct structure_type24753 t22472; struct structure_type24753 t22473; struct structure_type24753 t22474; struct structure_type24753 t22475; struct structure_type24753 t22476; struct structure_type24753 t22477; struct structure_type24753 t22478; struct structure_type24753 t22479; struct structure_type24753 t22480; struct structure_type24753 t22485; struct structure_type24753 t22486; struct structure_type24753 t22487; struct structure_type24753 t22488; struct structure_type24753 t22489; struct structure_type24753 t22490; struct structure_type24753 t22491; struct structure_type24753 t22492; struct structure_type24753 t22493; struct structure_type24753 t22498; struct structure_type24753 t22499; struct structure_type24753 t22500; struct structure_type24753 t22501; struct structure_type24753 t22502; struct structure_type24753 t22503; struct structure_type24753 t22504; struct structure_type24753 t22505; struct structure_type24753 t22506; struct structure_type24753 t22511; struct structure_type24753 t22512; struct structure_type24753 t22513; struct structure_type24753 t22514; struct structure_type24753 t22515; struct structure_type24753 t22516; struct structure_type24753 t22517; struct structure_type24753 t22518; struct structure_type24753 t22519; struct structure_type24753 t22543; struct structure_type24753 t22544; struct structure_type24753 t22545; struct structure_type24753 t22546; struct structure_type24753 t22547; struct structure_type24753 t22559; struct structure_type24753 t22574; struct structure_type24753 t22575; struct structure_type24753 t22576; struct structure_type24753 t22577; struct structure_type24753 t22578; struct structure_type24753 t22579; struct structure_type24753 t22580; struct structure_type24753 t22581; struct structure_type24753 t22582; struct structure_type24753 t22583; struct structure_type24753 t22584; struct structure_type24753 t22585; struct structure_type24753 t22586; struct structure_type24753 t22587; struct structure_type24753 t22588; struct structure_type24753 t22589; struct structure_type24753 t22590; struct structure_type24753 t22591; struct structure_type24753 t22592; struct structure_type24753 t22593; struct structure_type24753 t22594; struct structure_type24753 t22595; struct structure_type24753 t22596; struct structure_type24753 t22597; struct structure_type24753 t22598; struct structure_type24753 t22599; struct structure_type24753 t22600; struct structure_type24753 t22601; struct structure_type24753 t22602; struct structure_type24753 t22603; struct structure_type24753 t22604; struct structure_type24753 t22605; struct structure_type24753 t22606; struct structure_type24753 t22607; struct structure_type24753 t22608; struct structure_type24753 t22609; struct structure_type24753 t22610; struct structure_type24753 t22611; struct structure_type24753 t22612; struct structure_type24753 t22613; struct structure_type24753 t22614; struct structure_type24753 t22615; struct structure_type24753 t22616; struct structure_type24753 t22617; struct structure_type24753 t22618; struct structure_type24753 t22619; struct structure_type24753 t22620; struct structure_type24753 t22621; struct structure_type24753 t22622; struct structure_type24753 t22623; struct structure_type24753 t22624; struct structure_type24753 t22625; struct structure_type24753 t22626; struct structure_type24753 t22627; struct structure_type24753 t22628; struct structure_type24753 t22629; struct structure_type24753 t22630; struct structure_type24753 t22631; struct structure_type24753 t22632; struct structure_type24753 t22633; struct structure_type24753 t22638; struct structure_type24753 t22639; struct structure_type24753 t22640; struct structure_type24753 t22641; struct structure_type24753 t22642; struct structure_type24753 t22643; struct structure_type24753 t22644; struct structure_type24753 t22645; struct structure_type24753 t22646; struct structure_type24753 t22651; struct structure_type24753 t22652; struct structure_type24753 t22653; struct structure_type24753 t22658; struct structure_type24753 t22659; struct structure_type24753 t22660; struct structure_type24753 t22661; struct structure_type24753 t22662; struct structure_type24753 t22663; struct structure_type24753 t22664; struct structure_type24753 t22665; struct structure_type24753 t22666; struct structure_type24753 t22671; struct structure_type24753 t22672; struct structure_type24753 t22673; struct structure_type24753 t22678; struct structure_type24753 t22679; struct structure_type24753 t22680; struct structure_type24753 t22681; struct structure_type24753 t22682; struct structure_type24753 t22683; struct structure_type24753 t22684; struct structure_type24753 t22685; struct structure_type24753 t22686; struct structure_type24753 t22691; struct structure_type24753 t22692; struct structure_type24753 t22693; struct structure_type24753 t22694; struct structure_type24753 t22695; struct structure_type24753 t22696; struct structure_type24753 t22697; struct structure_type24753 t22698; struct structure_type24753 t22699; struct structure_type24753 t22704; struct structure_type24753 t22705; struct structure_type24753 t22706; struct structure_type24753 t22707; struct structure_type24753 t22708; struct structure_type24753 t22709; struct structure_type24753 t22710; struct structure_type24753 t22711; struct structure_type24753 t22712; struct structure_type24753 t22717; struct structure_type24753 t22718; struct structure_type24753 t22719; struct structure_type24753 t22720; struct structure_type24753 t22721; struct structure_type24753 t22722; struct structure_type24753 t22723; struct structure_type24753 t22724; struct structure_type24753 t22725; struct structure_type24753 t22726; struct structure_type24753 t22727; struct structure_type24753 t22728; struct structure_type24753 t22729; struct structure_type24753 t22730; struct structure_type24753 t22731; struct structure_type24753 t22732; struct structure_type24753 t22733; struct structure_type24753 t22734; struct structure_type24753 t22735; struct structure_type24753 t22736; struct structure_type24753 t22737; struct structure_type24753 t22738; struct structure_type24753 t22739; struct structure_type24753 t22740; struct structure_type24753 t22741; struct structure_type24753 t22742; struct structure_type24753 t22743; struct structure_type24753 t22744; struct structure_type24753 t22745; struct structure_type24753 t22746; struct structure_type24753 t22747; struct structure_type24753 t22748; struct structure_type24753 t22749; struct structure_type24753 t22750; struct structure_type24753 t22751; struct structure_type24753 t22752; struct structure_type24753 t22753; struct structure_type24753 t22754; struct structure_type24753 t22755; struct structure_type24753 t22756; struct structure_type24753 t22757; struct structure_type24753 t22758; struct structure_type24753 t22759; struct structure_type24753 t22760; struct structure_type24753 t22761; struct structure_type24753 t22762; struct structure_type24753 t22767; struct structure_type24753 t22768; struct structure_type24753 t22769; struct structure_type24753 t22770; struct structure_type24753 t22771; struct structure_type24753 t22772; struct structure_type24753 t22773; struct structure_type24753 t22774; struct structure_type24753 t22775; struct structure_type24753 t22776; struct structure_type24753 t22777; struct structure_type24753 t22778; struct structure_type24753 t22779; struct structure_type24753 t22780; struct structure_type24753 t22781; struct structure_type24753 t22782; struct structure_type24753 t22783; struct structure_type24753 t22784; struct structure_type24753 t22785; struct structure_type24753 t22786; struct structure_type24753 t22787; struct structure_type24753 t22788; struct structure_type24753 t22789; struct structure_type24753 t22790; struct structure_type24753 t22791; struct structure_type24753 t22792; struct structure_type24753 t22793; struct structure_type24753 t22794; struct structure_type24753 t22795; struct structure_type24753 t22796; struct structure_type24753 t22797; struct structure_type24753 t22798; struct structure_type24753 t22799; struct structure_type24753 t22800; struct structure_type24753 t22801; struct structure_type24753 t22802; struct structure_type24753 t22803; struct structure_type24753 t22804; struct structure_type24753 t22805; struct structure_type24753 t22806; struct structure_type24753 t22807; struct structure_type24753 t22808; struct structure_type24753 t22809; struct structure_type24753 t22810; struct structure_type24753 t22811; struct structure_type24753 t22812; struct structure_type24753 t22817; struct structure_type24753 t22818; struct structure_type24753 t22819; struct structure_type24753 t22820; struct structure_type24753 t22821; struct structure_type24753 t22822; struct structure_type24753 t22823; struct structure_type24753 t22824; struct structure_type24753 t22825; struct structure_type24753 t22826; struct structure_type24753 t22827; struct structure_type24753 t22828; struct structure_type24753 t22829; struct structure_type24753 t22830; struct structure_type24753 t22831; struct structure_type24753 t22832; struct structure_type24753 t22833; struct structure_type24753 t22834; struct structure_type24753 t22835; struct structure_type24753 t22836; struct structure_type24753 t22837; struct structure_type24753 t22838; struct structure_type24753 t22839; struct structure_type24753 t22840; struct structure_type24753 t22841; struct structure_type24753 t22842; struct structure_type24753 t22843; struct structure_type24753 t22844; struct structure_type24753 t22845; struct structure_type24753 t22846; struct structure_type24753 t22847; struct structure_type24753 t22848; struct structure_type24753 t22849; struct structure_type24753 t22850; struct structure_type24753 t22851; struct structure_type24753 t22852; struct structure_type24753 t22853; struct structure_type24753 t22854; struct structure_type24753 t22855; struct structure_type24753 t22856; struct structure_type24753 t22857; struct structure_type24753 t22858; struct structure_type24753 t22859; struct structure_type24753 t22860; struct structure_type24753 t22861; struct structure_type24753 t22862; struct structure_type24753 t22867; struct structure_type24753 t22868; struct structure_type24753 t22869; struct structure_type24753 t22870; struct structure_type24753 t22871; struct structure_type24753 t22872; struct structure_type24753 t22873; struct structure_type24753 t22874; struct structure_type24753 t22875; struct structure_type24753 t22876; struct structure_type24753 t22877; struct structure_type24753 t22878; struct structure_type24753 t22879; struct structure_type24753 t22880; struct structure_type24753 t22881; struct structure_type24753 t22882; struct structure_type24753 t22883; struct structure_type24753 t22884; struct structure_type24753 t22885; struct structure_type24753 t22886; struct structure_type24753 t22887; struct structure_type24753 t22888; struct structure_type24753 t22889; struct structure_type24753 t22890; struct structure_type24753 t22891; struct structure_type24753 t22892; struct structure_type24753 t22893; struct structure_type24753 t22894; struct structure_type24753 t22895; struct structure_type24753 t22896; struct structure_type24753 t22897; struct structure_type24753 t22898; struct structure_type24753 t22899; struct structure_type24753 t22900; struct structure_type24753 t22901; struct structure_type24753 t22902; struct structure_type24753 t22903; struct structure_type24753 t22904; struct structure_type24753 t22905; struct structure_type24753 t22906; struct structure_type24753 t22907; struct structure_type24753 t22908; struct structure_type24753 t22909; struct structure_type24753 t22910; struct structure_type24753 t22911; struct structure_type24753 t22912; struct structure_type24753 t22917; struct structure_type24753 t22918; struct structure_type24753 t22919; struct structure_type24753 t22920; struct structure_type24753 t22921; struct structure_type24753 t22922; struct structure_type24753 t22923; struct structure_type24753 t22924; struct structure_type24753 t22925; struct structure_type24753 t22926; struct structure_type24753 t22927; struct structure_type24753 t22928; struct structure_type24753 t22929; struct structure_type24753 t22930; struct structure_type24753 t22931; struct structure_type24753 t22932; struct structure_type24753 t22933; struct structure_type24753 t22934; struct structure_type24753 t22935; struct structure_type24753 t22936; struct structure_type24753 t22937; struct structure_type24753 t22938; struct structure_type24753 t22939; struct structure_type24753 t22940; struct structure_type24753 t22941; struct structure_type24753 t22942; struct structure_type24753 t22943; struct structure_type24753 t22944; struct structure_type24753 t22945; struct structure_type24753 t22946; struct structure_type24753 t22947; struct structure_type24753 t22948; struct structure_type24753 t22949; struct structure_type24753 t22950; struct structure_type24753 t22951; struct structure_type24753 t22952; struct structure_type24753 t22953; struct structure_type24753 t22954; struct structure_type24753 t22955; struct structure_type24753 t22956; struct structure_type24753 t22957; struct structure_type24753 t22958; struct structure_type24753 t22959; struct structure_type24753 t22960; struct structure_type24753 t22961; struct structure_type24753 t22962; struct structure_type24753 t22967; struct structure_type24753 t22968; struct structure_type24753 t22969; struct structure_type24753 t22970; struct structure_type24753 t22971; struct structure_type24753 t22972; struct structure_type24753 t22973; struct structure_type24753 t22974; struct structure_type24753 t22975; struct structure_type24753 t22980; struct structure_type24753 t22981; struct structure_type24753 t22982; struct structure_type24753 t22983; struct structure_type24753 t22984; struct structure_type24753 t22985; struct structure_type24753 t22986; struct structure_type24753 t22987; struct structure_type24753 t22988; struct structure_type24753 t22993; struct structure_type24753 t22994; struct structure_type24753 t22995; struct structure_type24753 t22996; struct structure_type24753 t22997; struct structure_type24753 t22998; struct structure_type24753 t22999; struct structure_type24753 t23000; struct structure_type24753 t23001; struct structure_type24753 t23006; struct structure_type24753 t23007; struct structure_type24753 t23008; struct structure_type24753 t23009; struct structure_type24753 t23010; struct structure_type24753 t23011; struct structure_type24753 t23012; struct structure_type24753 t23013; struct structure_type24753 t23014; struct structure_type24753 t23019; struct structure_type24753 t23020; struct structure_type24753 t23021; struct structure_type24753 t23022; struct structure_type24753 t23023; struct structure_type24753 t23024; struct structure_type24753 t23025; struct structure_type24753 t23026; struct structure_type24753 t23027; struct structure_type24753 t23028; struct structure_type24753 t23033; struct structure_type24753 t23034; struct structure_type24753 t23035; struct structure_type24753 t23036; struct structure_type24753 t23037; struct structure_type24753 t23038; struct structure_type24753 t23039; struct structure_type24753 t23040; struct structure_type24753 t23041; struct structure_type24753 t23042; struct structure_type24753 t23043; struct structure_type24753 t23044; struct structure_type24753 t23045; struct structure_type24753 t23046; struct structure_type24753 t23047; struct structure_type24753 t23048; struct structure_type24753 t23049; struct structure_type24753 t23050; struct structure_type24753 t23051; struct structure_type24753 t23052; struct structure_type24753 t23053; struct structure_type24753 t23054; struct structure_type24753 t23055; struct structure_type24753 t23056; struct structure_type24753 t23057; struct structure_type24753 t23058; struct structure_type24753 t23059; struct structure_type24753 t23060; struct structure_type24753 t23061; struct structure_type24753 t23062; struct structure_type24753 t23063; struct structure_type24753 t23064; struct structure_type24753 t23065; struct structure_type24753 t23066; struct structure_type24753 t23067; struct structure_type24753 t23068; struct structure_type24753 t23069; struct structure_type24753 t23070; struct structure_type24753 t23071; struct structure_type24753 t23072; struct structure_type24753 t23073; struct structure_type24753 t23074; struct structure_type24753 t23075; struct structure_type24753 t23076; struct structure_type24753 t23077; struct structure_type24753 t23078; struct structure_type24753 t23079; struct structure_type24753 t23080; struct structure_type24753 t23081; struct structure_type24753 t23082; struct structure_type24753 t23083; struct structure_type24753 t23084; struct structure_type24753 t23089; struct structure_type24753 t23090; struct structure_type24753 t23091; struct structure_type24753 t23092; struct structure_type24753 t23093; struct structure_type24753 t23094; struct structure_type24753 t23095; struct structure_type24753 t23096; struct structure_type24753 t23097; struct structure_type24753 t23098; struct structure_type24753 t23099; struct structure_type24753 t23100; struct structure_type24753 t23101; struct structure_type24753 t23102; struct structure_type24753 t23103; struct structure_type24753 t23104; struct structure_type24753 t23105; struct structure_type24753 t23106; struct structure_type24753 t23107; struct structure_type24753 t23108; struct structure_type24753 t23109; struct structure_type24753 t23110; struct structure_type24753 t23111; struct structure_type24753 t23112; struct structure_type24753 t23113; struct structure_type24753 t23114; struct structure_type24753 t23115; struct structure_type24753 t23116; struct structure_type24753 t23117; struct structure_type24753 t23118; struct structure_type24753 t23119; struct structure_type24753 t23120; struct structure_type24753 t23121; struct structure_type24753 t23122; struct structure_type24753 t23123; struct structure_type24753 t23124; struct structure_type24753 t23125; struct structure_type24753 t23126; struct structure_type24753 t23127; struct structure_type24753 t23128; struct structure_type24753 t23129; struct structure_type24753 t23130; struct structure_type24753 t23131; struct structure_type24753 t23132; struct structure_type24753 t23133; struct structure_type24753 t23134; struct structure_type24753 t23135; struct structure_type24753 t23136; struct structure_type24753 t23137; struct structure_type24753 t23138; struct structure_type24753 t23139; struct structure_type24753 t23140; struct structure_type24753 t23145; struct structure_type24753 t23146; struct structure_type24753 t23147; struct structure_type24753 t23148; struct structure_type24753 t23149; struct structure_type24753 t23150; struct structure_type24753 t23151; struct structure_type24753 t23152; struct structure_type24753 t23153; struct structure_type24753 t23154; struct structure_type24753 t23155; struct structure_type24753 t23156; struct structure_type24753 t23157; struct structure_type24753 t23158; struct structure_type24753 t23159; struct structure_type24753 t23160; struct structure_type24753 t23161; struct structure_type24753 t23162; struct structure_type24753 t23163; struct structure_type24753 t23164; struct structure_type24753 t23165; struct structure_type24753 t23166; struct structure_type24753 t23167; struct structure_type24753 t23168; struct structure_type24753 t23169; struct structure_type24753 t23170; struct structure_type24753 t23171; struct structure_type24753 t23172; struct structure_type24753 t23173; struct structure_type24753 t23174; struct structure_type24753 t23175; struct structure_type24753 t23176; struct structure_type24753 t23177; struct structure_type24753 t23178; struct structure_type24753 t23179; struct structure_type24753 t23180; struct structure_type24753 t23181; struct structure_type24753 t23182; struct structure_type24753 t23183; struct structure_type24753 t23184; struct structure_type24753 t23185; struct structure_type24753 t23186; struct structure_type24753 t23187; struct structure_type24753 t23188; struct structure_type24753 t23189; struct structure_type24753 t23190; struct structure_type24753 t23191; struct structure_type24753 t23192; struct structure_type24753 t23193; struct structure_type24753 t23198; struct structure_type24753 t23199; struct structure_type24753 t23200; struct structure_type24753 t23201; struct structure_type24753 t23202; struct structure_type24753 t23203; struct structure_type24753 t23204; struct structure_type24753 t23205; struct structure_type24753 t23206; struct structure_type24753 t23207; struct structure_type24753 t23208; struct structure_type24753 t23209; struct structure_type24753 t23210; struct structure_type24753 t23211; struct structure_type24753 t23212; struct structure_type24753 t23213; struct structure_type24753 t23214; struct structure_type24753 t23215; struct structure_type24753 t23216; struct structure_type24753 t23217; struct structure_type24753 t23218; struct structure_type24753 t23219; struct structure_type24753 t23220; struct structure_type24753 t23221; struct structure_type24753 t23222; struct structure_type24753 t23223; struct structure_type24753 t23224; struct structure_type24753 t23225; struct structure_type24753 t23226; struct structure_type24753 t23227; struct structure_type24753 t23228; struct structure_type24753 t23229; struct structure_type24753 t23230; struct structure_type24753 t23231; struct structure_type24753 t23232; struct structure_type24753 t23233; struct structure_type24753 t23234; struct structure_type24753 t23235; struct structure_type24753 t23236; struct structure_type24753 t23237; struct structure_type24753 t23238; struct structure_type24753 t23239; struct structure_type24753 t23240; struct structure_type24753 t23241; struct structure_type24753 t23242; struct structure_type24753 t23243; struct structure_type24753 t23244; struct structure_type24753 t23245; struct structure_type24753 t23246; struct structure_type24753 t23251; struct structure_type24753 t23252; struct structure_type24753 t23253; struct structure_type24753 t23254; struct structure_type24753 t23255; struct structure_type24753 t23256; struct structure_type24753 t23257; struct structure_type24753 t23258; struct structure_type24753 t23259; struct structure_type24753 t23260; struct structure_type24753 t23261; struct structure_type24753 t23262; struct structure_type24753 t23263; struct structure_type24753 t23264; struct structure_type24753 t23265; struct structure_type24753 t23266; struct structure_type24753 t23267; struct structure_type24753 t23268; struct structure_type24753 t23269; struct structure_type24753 t23270; struct structure_type24753 t23271; struct structure_type24753 t23272; struct structure_type24753 t23273; struct structure_type24753 t23274; struct structure_type24753 t23275; struct structure_type24753 t23276; struct structure_type24753 t23277; struct structure_type24753 t23278; struct structure_type24753 t23279; struct structure_type24753 t23280; struct structure_type24753 t23281; struct structure_type24753 t23282; struct structure_type24753 t23283; struct structure_type24753 t23284; struct structure_type24753 t23285; struct structure_type24753 t23286; struct structure_type24753 t23287; struct structure_type24753 t23288; struct structure_type24753 t23289; struct structure_type24753 t23290; struct structure_type24753 t23291; struct structure_type24753 t23292; struct structure_type24753 t23293; struct structure_type24753 t23294; struct structure_type24753 t23295; struct structure_type24753 t23296; struct structure_type24753 t23297; struct structure_type24753 t23298; struct structure_type24753 t23299; struct structure_type24753 t23300; struct structure_type24753 t23301; struct structure_type24753 t23302; struct structure_type24753 t23307; struct structure_type24753 t23308; struct structure_type24753 t23309; struct structure_type24753 t23310; struct structure_type24753 t23311; struct structure_type24753 t23312; struct structure_type24753 t23313; struct structure_type24753 t23314; struct structure_type24753 t23315; struct structure_type24753 t23316; struct structure_type24753 t23317; struct structure_type24753 t23318; struct structure_type24753 t23319; struct structure_type24753 t23320; struct structure_type24753 t23321; struct structure_type24753 t23322; struct structure_type24753 t23323; struct structure_type24753 t23324; struct structure_type24753 t23325; struct structure_type24753 t23326; struct structure_type24753 t23327; struct structure_type24753 t23328; struct structure_type24753 t23329; struct structure_type24753 t23330; struct structure_type24753 t23331; struct structure_type24753 t23332; struct structure_type24753 t23333; struct structure_type24753 t23334; struct structure_type24753 t23335; struct structure_type24753 t23336; struct structure_type24753 t23337; struct structure_type24753 t23338; struct structure_type24753 t23339; struct structure_type24753 t23340; struct structure_type24753 t23341; struct structure_type24753 t23342; struct structure_type24753 t23343; struct structure_type24753 t23344; struct structure_type24753 t23345; struct structure_type24753 t23346; struct structure_type24753 t23347; struct structure_type24753 t23348; struct structure_type24753 t23349; struct structure_type24753 t23350; struct structure_type24753 t23351; struct structure_type24753 t23352; struct structure_type24753 t23353; struct structure_type24753 t23354; struct structure_type24753 t23355; struct structure_type24753 t23356; struct structure_type24753 t23357; struct structure_type24753 t23358; struct structure_type24753 t23363; struct structure_type24753 t23364; struct structure_type24753 t23365; struct structure_type24753 t23366; struct structure_type24753 t23367; struct structure_type24753 t23368; struct structure_type24753 t23369; struct structure_type24753 t23370; struct structure_type24753 t23371; struct structure_type24753 t23372; struct structure_type24753 t23373; struct structure_type24753 t23374; struct structure_type24753 t23375; struct structure_type24753 t23380; struct structure_type24753 t23381; struct structure_type24753 t23382; struct structure_type24753 t23383; struct structure_type24753 t23384; struct structure_type24753 t23385; struct structure_type24753 t23386; struct structure_type24753 t23387; struct structure_type24753 t23388; struct structure_type24753 t23389; struct structure_type24753 t23390; struct structure_type24753 t23395; struct structure_type24753 t23396; struct structure_type24753 t23397; struct structure_type24753 t23398; struct structure_type24753 t23399; struct structure_type24753 t23400; struct structure_type24753 t23401; struct structure_type24753 t23402; struct structure_type24753 t23403; struct structure_type24753 t23404; struct structure_type24753 t23405; struct structure_type24753 t23410; struct structure_type24753 t23411; struct structure_type24753 t23412; struct structure_type24753 t23413; struct structure_type24753 t23414; struct structure_type24753 t23415; struct structure_type24753 t23416; struct structure_type24753 t23417; struct structure_type24753 t23418; struct structure_type24753 t23419; struct structure_type24753 t23420; struct structure_type24753 t23421; struct structure_type24753 t23422; struct structure_type24753 t23423; struct structure_type24753 t23424; struct structure_type24753 t23425; struct structure_type24753 t23426; struct structure_type24753 t23427; struct structure_type24753 t23428; struct structure_type24753 t23429; struct structure_type24753 t23430; struct structure_type24753 t23431; struct structure_type24753 t23432; struct structure_type24753 t23433; struct structure_type24753 t23434; struct structure_type24753 t23435; struct structure_type24753 t23436; struct structure_type24753 t23437; struct structure_type24753 t23438; struct structure_type24753 t23439; struct structure_type24753 t23440; struct structure_type24753 t23441; struct structure_type24753 t23442; struct structure_type24753 t23443; struct structure_type24753 t23444; struct structure_type24753 t23445; struct structure_type24753 t23450; struct structure_type24753 t23451; struct structure_type24753 t23452; struct structure_type24753 t23453; struct structure_type24753 t23454; struct structure_type24753 t23455; struct structure_type24753 t23456; struct structure_type24753 t23457; struct structure_type24753 t23458; struct structure_type24753 t23459; struct structure_type24753 t23460; struct structure_type24753 t23461; struct structure_type24753 t23462; struct structure_type24753 t23463; struct structure_type24753 t23464; struct structure_type24753 t23465; struct structure_type24753 t23466; struct structure_type24753 t23467; struct structure_type24753 t23468; struct structure_type24753 t23469; struct structure_type24753 t23470; struct structure_type24753 t23471; struct structure_type24753 t23472; struct structure_type24753 t23473; struct structure_type24753 t23474; struct structure_type24753 t23475; struct structure_type24753 t23476; struct structure_type24753 t23477; struct structure_type24753 t23478; struct structure_type24753 t23479; struct structure_type24753 t23480; struct structure_type24753 t23481; struct structure_type24753 t23482; struct structure_type24753 t23483; struct structure_type24753 t23484; struct structure_type24753 t23485; struct structure_type24753 t23486; struct structure_type24753 t23487; struct structure_type24753 t23488; struct structure_type24753 t23489; struct structure_type24753 t23490; struct structure_type24753 t23491; struct structure_type24753 t23492; struct structure_type24753 t23493; struct structure_type24753 t23494; struct structure_type24753 t23495; struct structure_type24753 t23496; struct structure_type24753 t23497; struct structure_type24753 t23498; struct structure_type24753 t23499; struct structure_type24753 t23500; struct structure_type24753 t23501; struct structure_type24753 t23502; struct structure_type24753 t23503; struct structure_type24753 t23504; struct structure_type24753 t23505; struct structure_type24753 t23506; struct structure_type24753 t23507; struct structure_type24753 t23508; struct structure_type24753 t23509; struct structure_type24753 t23510; struct structure_type24753 t23511; struct structure_type24753 t23512; struct structure_type24753 t23513; struct structure_type24753 t23514; struct structure_type24753 t23515; struct structure_type24753 t23516; struct structure_type24753 t23517; struct structure_type24753 t23518; struct structure_type24753 t23519; struct structure_type24753 t23520; struct structure_type24753 t23521; struct structure_type24753 t23522; struct structure_type24753 t23523; struct structure_type24753 t23524; struct structure_type24753 t23525; struct structure_type24753 t23526; struct structure_type24753 t23527; struct structure_type24753 t23528; struct structure_type24753 t23529; struct structure_type24753 t23530; struct structure_type24753 t23531; struct structure_type24753 t23532; struct structure_type24753 t23533; struct structure_type24753 t23534; struct structure_type24753 t23535; struct structure_type24753 t23536; struct structure_type24753 t23537; struct structure_type24753 t23538; struct structure_type24753 t23539; struct structure_type24753 t23540; struct structure_type24753 t23541; struct structure_type24753 t23542; struct structure_type24753 t23543; struct structure_type24753 t23544; struct structure_type24753 t23545; struct structure_type24753 t23546; struct structure_type24753 t23547; struct structure_type24753 t23548; struct structure_type24753 t23549; struct structure_type24753 t23550; struct structure_type24753 t23551; struct structure_type24753 t23552; struct structure_type24753 t23553; struct structure_type24753 t23554; struct structure_type24753 t23555; struct structure_type24753 t23556; struct structure_type24753 t23557; struct structure_type24753 t23558; struct structure_type24753 t23559; struct structure_type24753 t23560; struct structure_type24753 t23561; struct structure_type24753 t23562; struct structure_type24753 t23563; struct structure_type24753 t23564; struct structure_type24753 t23565; struct structure_type24753 t23566; struct structure_type24753 t23567; struct structure_type24753 t23568; struct structure_type24753 t23569; struct structure_type24753 t23570; struct structure_type24753 t23571; struct structure_type24753 t23572; struct structure_type24753 t23573; struct structure_type24753 t23574; struct structure_type24753 t23575; struct structure_type24753 t23576; struct structure_type24753 t23577; struct structure_type24753 t23578; struct structure_type24753 t23579; struct structure_type24753 t23580; struct structure_type24753 t23581; struct structure_type24753 t23582; struct structure_type24753 t23583; struct structure_type24753 t23584; struct structure_type24753 t23585; struct structure_type24753 t23586; struct structure_type24753 t23587; struct structure_type24753 t23588; struct structure_type24753 t23589; struct structure_type24753 t23590; struct structure_type24753 t23591; struct structure_type24753 t23592; struct structure_type24753 t23593; struct structure_type24753 t23594; struct structure_type24753 t23595; struct structure_type24753 t23596; struct structure_type24753 t23597; struct structure_type24753 t23598; struct structure_type24753 t23599; struct structure_type24753 t23600; struct structure_type24753 t23601; struct structure_type24753 t23602; struct structure_type24753 t23607; struct structure_type24753 t23608; struct structure_type24753 t23609; struct structure_type24753 t23610; struct structure_type24753 t23611; struct structure_type24753 t23612; struct structure_type24753 t23613; struct structure_type24753 t23614; struct structure_type24753 t23615; struct structure_type24753 t23616; struct structure_type24753 t23617; struct structure_type24753 t23618; struct structure_type24753 t23619; struct structure_type24753 t23620; struct structure_type24753 t23621; struct structure_type24753 t23622; struct structure_type24753 t23623; struct structure_type24753 t23624; struct structure_type24753 t23625; struct structure_type24753 t23626; struct structure_type24753 t23627; struct structure_type24753 t23628; struct structure_type24753 t23629; struct structure_type24753 t23630; struct structure_type24753 t23631; struct structure_type24753 t23632; struct structure_type24753 t23633; struct structure_type24753 t23634; struct structure_type24753 t23635; struct structure_type24753 t23636; struct structure_type24753 t23637; struct structure_type24753 t23638; struct structure_type24753 t23639; struct structure_type24753 t23640; struct structure_type24753 t23641; struct structure_type24753 t23642; struct structure_type24753 t23643; struct structure_type24753 t23644; struct structure_type24753 t23645; struct structure_type24753 t23646; struct structure_type24753 t23647; struct structure_type24753 t23648; struct structure_type24753 t23649; struct structure_type24753 t23650; struct structure_type24753 t23651; struct structure_type24753 t23652; struct structure_type24753 t23653; struct structure_type24753 t23654; struct structure_type24753 t23655; struct structure_type24753 t23656; struct structure_type24753 t23657; struct structure_type24753 t23658; struct structure_type24753 t23659; struct structure_type24753 t23660; struct structure_type24753 t23661; struct structure_type24753 t23662; struct structure_type24753 t23663; struct structure_type24753 t23664; struct structure_type24753 t23665; struct structure_type24753 t23666; struct structure_type24753 t23667; struct structure_type24753 t23668; struct structure_type24753 t23669; struct structure_type24753 t23670; struct structure_type24753 t23671; struct structure_type24753 t23672; struct structure_type24753 t23673; struct structure_type24753 t23674; struct structure_type24753 t23675; struct structure_type24753 t23676; struct structure_type24753 t23677; struct structure_type24753 t23678; struct structure_type24753 t23679; struct structure_type24753 t23680; struct structure_type24753 t23681; struct structure_type24753 t23682; struct structure_type24753 t23683; struct structure_type24753 t23684; struct structure_type24753 t23685; struct structure_type24753 t23686; struct structure_type24753 t23687; struct structure_type24753 t23688; struct structure_type24753 t23689; struct structure_type24753 t23690; struct structure_type24753 t23691; struct structure_type24753 t23692; struct structure_type24753 t23693; struct structure_type24753 t23694; struct structure_type24753 t23695; struct structure_type24753 t23696; struct structure_type24753 t23697; struct structure_type24753 t23698; struct structure_type24753 t23699; struct structure_type24753 t23700; struct structure_type24753 t23701; struct structure_type24753 t23702; struct structure_type24753 t23703; struct structure_type24753 t23704; struct structure_type24753 t23705; struct structure_type24753 t23706; struct structure_type24753 t23707; struct structure_type24753 t23708; struct structure_type24753 t23709; struct structure_type24753 t23710; struct structure_type24753 t23711; struct structure_type24753 t23712; struct structure_type24753 t23713; struct structure_type24753 t23714; struct structure_type24753 t23715; struct structure_type24753 t23716; struct structure_type24753 t23717; struct structure_type24753 t23718; struct structure_type24753 t23719; struct structure_type24753 t23720; struct structure_type24753 t23721; struct structure_type24753 t23722; struct structure_type24753 t23723; struct structure_type24753 t23724; struct structure_type24753 t23725; struct structure_type24753 t23726; struct structure_type24753 t23727; struct structure_type24753 t23728; struct structure_type24753 t23729; struct structure_type24753 t23730; struct structure_type24753 t23731; struct structure_type24753 t23732; struct structure_type24753 t23733; struct structure_type24753 t23734; struct structure_type24753 t23735; struct structure_type24753 t23736; struct structure_type24753 t23737; struct structure_type24753 t23738; struct structure_type24753 t23739; struct structure_type24753 t23740; struct structure_type24753 t23741; struct structure_type24753 t23742; struct structure_type24753 t23743; struct structure_type24753 t23744; struct structure_type24753 t23749; struct structure_type24753 t23750; struct structure_type24753 t23751; struct structure_type24753 t23752; struct structure_type24753 t23753; struct structure_type24753 t23754; struct structure_type24753 t23755; struct structure_type24753 t23756; struct structure_type24753 t23757; struct structure_type24753 t23758; struct structure_type24753 t23759; struct structure_type24753 t23764; struct structure_type24753 t23765; struct structure_type24753 t23766; struct structure_type24753 t23767; struct structure_type24753 t23768; struct structure_type24753 t23769; struct structure_type24753 t23770; struct structure_type24753 t23771; struct structure_type24753 t23772; struct structure_type24753 t23773; struct structure_type24753 t23774; struct structure_type24753 t23779; struct structure_type24753 t23780; struct structure_type24753 t23781; struct structure_type24753 t23782; struct structure_type24753 t23783; struct structure_type24753 t23784; struct structure_type24753 t23785; struct structure_type24753 t23786; struct structure_type24753 t23787; struct structure_type24753 t23792; struct structure_type24753 t23793; struct structure_type24753 t23794; struct structure_type24753 t23795; struct structure_type24753 t23796; struct structure_type24753 t23797; struct structure_type24753 t23798; struct structure_type24753 t23799; struct structure_type24753 t23800; struct structure_type24753 t23801; struct structure_type24753 t23802; struct structure_type24753 t23803; struct structure_type24753 t23804; struct structure_type24753 t23805; struct structure_type24753 t23806; struct structure_type24753 t23807; struct structure_type24753 t23808; struct structure_type24753 t23809; struct structure_type24753 t23810; struct structure_type24753 t23811; struct structure_type24753 t23812; struct structure_type24753 t23813; struct structure_type24753 t23814; struct structure_type24753 t23815; struct structure_type24753 t23816; struct structure_type24753 t23817; struct structure_type24753 t23818; struct structure_type24753 t23819; struct structure_type24753 t23820; struct structure_type24753 t23821; struct structure_type24753 t23822; struct structure_type24753 t23823; struct structure_type24753 t23824; struct structure_type24753 t23825; struct structure_type24753 t23826; struct structure_type24753 t23827; struct structure_type24753 t23828; struct structure_type24753 t23829; struct structure_type24753 t23830; struct structure_type24753 t23831; struct structure_type24753 t23832; struct structure_type24753 t23833; struct structure_type24753 t23834; struct structure_type24753 t23835; struct structure_type24753 t23836; struct structure_type24753 t23837; struct structure_type24753 t23838; struct structure_type24753 t23839; struct structure_type24753 t23840; struct structure_type24753 t23845; struct structure_type24753 t23846; struct structure_type24753 t23847; struct structure_type24753 t23848; struct structure_type24753 t23849; struct structure_type24753 t23850; struct structure_type24753 t23851; struct structure_type24753 t23852; struct structure_type24753 t23853; struct structure_type24753 t23854; struct structure_type24753 t23855; struct structure_type24753 t23856; struct structure_type24753 t23857; struct structure_type24753 t23858; struct structure_type24753 t23859; struct structure_type24753 t23860; struct structure_type24753 t23861; struct structure_type24753 t23862; struct structure_type24753 t23863; struct structure_type24753 t23864; struct structure_type24753 t23865; struct structure_type24753 t23866; struct structure_type24753 t23867; struct structure_type24753 t23868; struct structure_type24753 t23869; struct structure_type24753 t23870; struct structure_type24753 t23871; struct structure_type24753 t23872; struct structure_type24753 t23873; struct structure_type24753 t23874; struct structure_type24753 t23875; struct structure_type24753 t23876; struct structure_type24753 t23877; struct structure_type24753 t23878; struct structure_type24753 t23879; struct structure_type24753 t23880; struct structure_type24753 t23881; struct structure_type24753 t23882; struct structure_type24753 t23883; struct structure_type24753 t23884; struct structure_type24753 t23885; struct structure_type24753 t23886; struct structure_type24753 t23887; struct structure_type24753 t23888; struct structure_type24753 t23889; struct structure_type24753 t23890; struct structure_type24753 t23891; struct structure_type24753 t23892; struct structure_type24753 t23893; struct structure_type24753 t23898; struct structure_type24753 t23899; struct structure_type24753 t23900; struct structure_type24753 t23901; struct structure_type24753 t23902; struct structure_type24753 t23903; struct structure_type24753 t23904; struct structure_type24753 t23905; struct structure_type24753 t23906; struct structure_type24753 t23907; struct structure_type24753 t23908; struct structure_type24753 t23909; struct structure_type24753 t23910; struct structure_type24753 t23911; struct structure_type24753 t23912; struct structure_type24753 t23913; struct structure_type24753 t23914; struct structure_type24753 t23915; struct structure_type24753 t23916; struct structure_type24753 t23917; struct structure_type24753 t23918; struct structure_type24753 t23919; struct structure_type24753 t23920; struct structure_type24753 t23921; struct structure_type24753 t23922; struct structure_type24753 t23923; struct structure_type24753 t23924; struct structure_type24753 t23925; struct structure_type24753 t23926; struct structure_type24753 t23927; struct structure_type24753 t23928; struct structure_type24753 t23929; struct structure_type24753 t23930; struct structure_type24753 t23931; struct structure_type24753 t23932; struct structure_type24753 t23933; struct structure_type24753 t23934; struct structure_type24753 t23935; struct structure_type24753 t23936; struct structure_type24753 t23937; struct structure_type24753 t23938; struct structure_type24753 t23939; struct structure_type24753 t23940; struct structure_type24753 t23941; struct structure_type24753 t23942; struct structure_type24753 t23943; struct structure_type24753 t23944; struct structure_type24753 t23945; struct structure_type24753 t23946; struct structure_type24753 t23951; struct structure_type24753 t23952; struct structure_type24753 t23953; struct structure_type24753 t23954; struct structure_type24753 t23955; struct structure_type24753 t23956; struct structure_type24753 t23957; struct structure_type24753 t23958; struct structure_type24753 t23959; struct structure_type24753 t23964; struct structure_type24753 t23965; struct structure_type24753 t23966; struct structure_type24753 t23967; struct structure_type24753 t23968; struct structure_type24753 t23969; struct structure_type24753 t23970; struct structure_type24753 t23971; struct structure_type24753 t23972; struct structure_type24753 t23977; struct structure_type24753 t23978; struct structure_type24753 t23979; struct structure_type24753 t23980; struct structure_type24753 t23981; struct structure_type24753 t23982; struct structure_type24753 t23983; struct structure_type24753 t23984; struct structure_type24753 t23985; struct structure_type24753 t23990; struct structure_type24753 t23991; struct structure_type24753 t23992; struct structure_type24753 t23993; struct structure_type24753 t23994; struct structure_type24753 t23995; struct structure_type24753 t23996; struct structure_type24753 t23997; struct structure_type24753 t23998; struct structure_type24753 t24003; struct structure_type24753 t24004; struct structure_type24753 t24005; struct structure_type24753 t24006; struct structure_type24753 t24007; struct structure_type24753 t24008; struct structure_type24753 t24009; struct structure_type24753 t24010; struct structure_type24753 t24011; struct structure_type24753 t24016; struct structure_type24753 t24017; struct structure_type24753 t24018; struct structure_type24753 t24019; struct structure_type24753 t24020; struct structure_type24753 t24021; struct structure_type24753 t24022; struct structure_type24753 t24023; struct structure_type24753 t24024; struct structure_type24753 t24029; struct structure_type24753 t24030; struct structure_type24753 t24031; struct structure_type24753 t24032; struct structure_type24753 t24033; struct structure_type24753 t24034; struct structure_type24753 t24035; struct structure_type24753 t24036; struct structure_type24753 t24037; struct structure_type24753 t24042; struct structure_type24753 t24043; struct structure_type24753 t24044; struct structure_type24753 t24045; struct structure_type24753 t24046; struct structure_type24753 t24047; struct structure_type24753 t24048; struct structure_type24753 t24049; struct structure_type24753 t24050; struct structure_type24753 t24055; struct structure_type24753 t24056; struct structure_type24753 t24057; struct structure_type24753 t24058; struct structure_type24753 t24059; struct structure_type24753 t24060; struct structure_type24753 t24061; struct structure_type24753 t24062; struct structure_type24753 t24063; struct structure_type24753 t24068; struct structure_type24753 t24069; struct structure_type24753 t24070; struct structure_type24753 t24071; struct structure_type24753 t24072; struct structure_type24753 t24073; struct structure_type24753 t24074; struct structure_type24753 t24075; struct structure_type24753 t24076; struct structure_type24753 t24081; struct structure_type24753 t24082; struct structure_type24753 t24083; struct structure_type24753 t24084; struct structure_type24753 t24085; struct structure_type24753 t24086; struct structure_type24753 t24087; struct structure_type24753 t24088; struct structure_type24753 t24089; struct structure_type24753 t24094; struct structure_type24753 t24095; struct structure_type24753 t24096; struct structure_type24753 t24097; struct structure_type24753 t24098; struct structure_type24753 t24099; struct structure_type24753 t24100; struct structure_type24753 t24101; struct structure_type24753 t24102; struct structure_type24753 t24103; struct structure_type24753 t24104; struct structure_type24753 t24105; struct structure_type24753 t24106; struct structure_type24753 t24107; struct structure_type24753 t24108; struct structure_type24753 t24109; struct structure_type24753 t24110; struct structure_type24753 t24111; struct structure_type24753 t24112; struct structure_type24753 t24113; struct structure_type24753 t24114; struct structure_type24753 t24115; struct structure_type24753 t24116; struct structure_type24753 t24117; struct structure_type24753 t24118; struct structure_type24753 t24119; struct structure_type24753 t24120; struct structure_type24753 t24121; struct structure_type24753 t24122; struct structure_type24753 t24123; struct structure_type24753 t24124; struct structure_type24753 t24125; struct structure_type24753 t24126; struct structure_type24753 t24127; struct structure_type24753 t24132; struct structure_type24753 t24133; struct structure_type24753 t24134; struct structure_type24753 t24135; struct structure_type24753 t24136; struct structure_type24753 t24137; struct structure_type24753 t24138; struct structure_type24753 t24139; struct structure_type24753 t24140; struct structure_type24753 t24145; struct structure_type24753 t24146; struct structure_type24753 t24147; struct structure_type24753 t24148; struct structure_type24753 t24149; struct structure_type24753 t24150; struct structure_type24753 t24151; struct structure_type24753 t24152; struct structure_type24753 t24153; struct structure_type24753 t24154; struct structure_type24753 t24155; struct structure_type24753 t24160; struct structure_type24753 t24161; struct structure_type24753 t24162; struct structure_type24753 t24163; struct structure_type24753 t24164; struct structure_type24753 t24165; struct structure_type24753 t24166; struct structure_type24753 t24167; struct structure_type24753 t24168; struct structure_type24753 t24173; struct structure_type24753 t24174; struct structure_type24753 t24175; struct structure_type24753 t24176; struct structure_type24753 t24177; struct structure_type24753 t24178; struct structure_type24753 t24179; struct structure_type24753 t24180; struct structure_type24753 t24181; struct structure_type24753 t24186; struct structure_type24753 t24187; struct structure_type24753 t24188; struct structure_type24753 t24189; struct structure_type24753 t24190; struct structure_type24753 t24191; struct structure_type24753 t24196; struct structure_type24753 t24197; struct structure_type24753 t24198; struct structure_type24753 t24199; struct structure_type24753 t24200; struct structure_type24753 t24201; struct structure_type24753 t24206; struct structure_type24753 t24207; struct structure_type24753 t24208; struct structure_type24753 t24209; struct structure_type24753 t24210; struct structure_type24753 t24211; struct structure_type24753 t24212; struct structure_type24753 t24213; struct structure_type24753 t24214; struct structure_type24753 t24219; struct structure_type24753 t24220; struct structure_type24753 t24221; struct structure_type24753 t24222; struct structure_type24753 t24223; struct structure_type24753 t24224; struct structure_type24753 t24225; struct structure_type24753 t24226; struct structure_type24753 t24227; struct structure_type24753 t24228; struct structure_type24753 t24229; struct structure_type24753 t24230; struct structure_type24753 t24231; struct structure_type24753 t24232; struct structure_type24753 t24233; struct structure_type24753 t24234; struct structure_type24753 t24235; struct structure_type24753 t24236; struct structure_type24753 t24237; struct structure_type24753 t24238; struct structure_type24753 t24239; struct structure_type24753 t24240; struct structure_type24753 t24241; struct structure_type24753 t24242; struct structure_type24753 t24243; struct structure_type24753 t24244; struct structure_type24753 t24245; struct structure_type24753 t24246; struct structure_type24753 t24247; struct structure_type24753 t24248; struct structure_type24753 t24249; struct structure_type24753 t24250; struct structure_type24753 t24251; struct structure_type24753 t24252; struct structure_type24753 t24253; struct structure_type24753 t24254; struct structure_type24753 t24255; struct structure_type24753 t24256; struct structure_type24753 t24257; struct structure_type24753 t24258; struct structure_type24753 t24259; struct structure_type24753 t24260; struct structure_type24753 t24265; struct structure_type24753 t24266; struct structure_type24753 t24267; struct structure_type24753 t24268; struct structure_type24753 t24269; struct structure_type24753 t24270; struct structure_type24753 t24271; struct structure_type24753 t24272; struct structure_type24753 t24273; struct structure_type24753 t24274; struct structure_type24753 t24275; struct structure_type24753 t24276; struct structure_type24753 t24277; struct structure_type24753 t24278; struct structure_type24753 t24279; struct structure_type24753 t24280; struct structure_type24753 t24281; struct structure_type24753 t24282; struct structure_type24753 t24283; struct structure_type24753 t24284; struct structure_type24753 t24285; struct structure_type24753 t24286; struct structure_type24753 t24287; struct structure_type24753 t24288; struct structure_type24753 t24289; struct structure_type24753 t24290; struct structure_type24753 t24291; struct structure_type24753 t24292; struct structure_type24753 t24293; struct structure_type24753 t24294; struct structure_type24753 t24295; struct structure_type24753 t24296; struct structure_type24753 t24297; struct structure_type24753 t24298; struct structure_type24753 t24299; struct structure_type24753 t24300; struct structure_type24753 t24301; struct structure_type24753 t24302; struct structure_type24753 t24303; struct structure_type24753 t24304; struct structure_type24753 t24305; struct structure_type24753 t24306; struct structure_type24753 t24311; struct structure_type24753 t24312; struct structure_type24753 t24313; struct structure_type24753 t24314; struct structure_type24753 t24315; struct structure_type24753 t24316; struct structure_type24753 t24317; struct structure_type24753 t24318; struct structure_type24753 t24319; struct structure_type24753 t24320; struct structure_type24753 t24321; struct structure_type24753 t24322; struct structure_type24753 t24323; struct structure_type24753 t24324; struct structure_type24753 t24325; struct structure_type24753 t24326; struct structure_type24753 t24327; struct structure_type24753 t24328; struct structure_type24753 t24329; struct structure_type24753 t24330; struct structure_type24753 t24331; struct structure_type24753 t24332; struct structure_type24753 t24333; struct structure_type24753 t24334; struct structure_type24753 t24335; struct structure_type24753 t24336; struct structure_type24753 t24337; struct structure_type24753 t24338; struct structure_type24753 t24339; struct structure_type24753 t24340; struct structure_type24753 t24341; struct structure_type24753 t24342; struct structure_type24753 t24343; struct structure_type24753 t24344; struct structure_type24753 t24345; struct structure_type24753 t24346; struct structure_type24753 t24347; struct structure_type24753 t24348; struct structure_type24753 t24349; struct structure_type24753 t24350; struct structure_type24753 t24351; struct structure_type24753 t24352; struct structure_type24753 t24357; struct structure_type24753 t24358; struct structure_type24753 t24359; struct structure_type24753 t24360; struct structure_type24753 t24361; struct structure_type24753 t24362; struct structure_type24753 t24363; struct structure_type24753 t24364; struct structure_type24753 t24365; struct structure_type24753 t24366; struct structure_type24753 t24367; struct structure_type24753 t24368; struct structure_type24753 t24369; struct structure_type24753 t24370; struct structure_type24753 t24371; struct structure_type24753 t24372; struct structure_type24753 t24373; struct structure_type24753 t24374; struct structure_type24753 t24375; struct structure_type24753 t24376; struct structure_type24753 t24377; struct structure_type24753 t24378; struct structure_type24753 t24379; struct structure_type24753 t24380; struct structure_type24753 t24381; struct structure_type24753 t24382; struct structure_type24753 t24383; struct structure_type24753 t24384; struct structure_type24753 t24385; struct structure_type24753 t24386; struct structure_type24753 t24387; struct structure_type24753 t24388; struct structure_type24753 t24389; struct structure_type24753 t24390; struct structure_type24753 t24391; struct structure_type24753 t24392; struct structure_type24753 t24393; struct structure_type24753 t24394; struct structure_type24753 t24395; struct structure_type24753 t24396; struct structure_type24753 t24397; struct structure_type24753 t24398; struct structure_type24753 t24403; struct structure_type24753 t24404; struct structure_type24753 t24405; struct structure_type24753 t24406; struct structure_type24753 t24407; struct structure_type24753 t24408; struct structure_type24753 t24409; struct structure_type24753 t24410; struct structure_type24753 t24411; struct structure_type24753 t24412; struct structure_type24753 t24413; struct structure_type24753 t24414; struct structure_type24753 t24415; struct structure_type24753 t24416; struct structure_type24753 t24417; struct structure_type24753 t24418; struct structure_type24753 t24419; struct structure_type24753 t24420; struct structure_type24753 t24421; struct structure_type24753 t24422; struct structure_type24753 t24423; struct structure_type24753 t24424; struct structure_type24753 t24425; struct structure_type24753 t24426; struct structure_type24753 t24427; struct structure_type24753 t24428; struct structure_type24753 t24429; struct structure_type24753 t24430; struct structure_type24753 t24431; struct structure_type24753 t24432; struct structure_type24753 t24433; struct structure_type24753 t24434; struct structure_type24753 t24435; struct structure_type24753 t24436; struct structure_type24753 t24437; struct structure_type24753 t24438; struct structure_type24753 t24439; struct structure_type24753 t24440; struct structure_type24753 t24441; struct structure_type24753 t24442; struct structure_type24753 t24443; struct structure_type24753 t24444; struct structure_type24753 t24449; struct structure_type24753 t24450; struct structure_type24753 t24451; struct structure_type24753 t24452; struct structure_type24753 t24453; struct structure_type24753 t24454; struct structure_type24753 t24455; struct structure_type24753 t24456; struct structure_type24753 t24457; struct structure_type24753 t24458; struct structure_type24753 t24459; struct structure_type24753 t24460; struct structure_type24753 t24461; struct structure_type24753 t24462; struct structure_type24753 t24463; struct structure_type24753 t24464; struct structure_type24753 t24465; struct structure_type24753 t24466; struct structure_type24753 t24467; struct structure_type24753 t24468; struct structure_type24753 t24469; struct structure_type24753 t24470; struct structure_type24753 t24471; struct structure_type24753 t24472; struct structure_type24753 t24473; struct structure_type24753 t24474; struct structure_type24753 t24475; struct structure_type24753 t24476; struct structure_type24753 t24477; struct structure_type24753 t24478; struct structure_type24753 t24479; struct structure_type24753 t24480; struct structure_type24753 t24481; struct structure_type24753 t24482; struct structure_type24753 t24483; struct structure_type24753 t24484; struct structure_type24753 t24485; struct structure_type24753 t24486; struct structure_type24753 t24487; struct structure_type24753 t24488; struct structure_type24753 t24489; struct structure_type24753 t24490; struct structure_type24753 t24491; struct structure_type24753 t24492; struct structure_type24753 t24493; struct structure_type24753 t24494; struct structure_type24753 t24495; struct structure_type24753 t24496; struct structure_type24753 t24501; struct structure_type24753 t24502; struct structure_type24753 t24503; struct structure_type24753 t24504; struct structure_type24753 t24505; struct structure_type24753 t24506; struct structure_type24753 t24507; struct structure_type24753 t24508; struct structure_type24753 t24509; struct structure_type24753 t24510; struct structure_type24753 t24511; struct structure_type24753 t24512; struct structure_type24753 t24513; struct structure_type24753 t24514; struct structure_type24753 t24515; struct structure_type24753 t24516; struct structure_type24753 t24517; struct structure_type24753 t24518; struct structure_type24753 t24519; struct structure_type24753 t24520; struct structure_type24753 t24521; struct structure_type24753 t24522; struct structure_type24753 t24523; struct structure_type24753 t24524; struct structure_type24753 t24525; struct structure_type24753 t24526; struct structure_type24753 t24527; struct structure_type24753 t24528; struct structure_type24753 t24529; struct structure_type24753 t24530; struct structure_type24753 t24531; struct structure_type24753 t24532; struct structure_type24753 t24533; struct structure_type24753 t24534; struct structure_type24753 t24535; struct structure_type24753 t24536; struct structure_type24753 t24537; struct structure_type24753 t24538; struct structure_type24753 t24539; struct structure_type24753 t24540; struct structure_type24753 t24541; struct structure_type24753 t24542; struct structure_type24753 t24543; struct structure_type24753 t24544; struct structure_type24753 t24545; struct structure_type24753 t24546; struct structure_type24753 t24547; struct structure_type24753 t24548; struct structure_type24753 t24553; struct structure_type24753 t24554; struct structure_type24753 t24555; struct structure_type24753 t24556; struct structure_type24753 t24557; struct structure_type24753 t24558; struct structure_type24753 t24559; struct structure_type24753 t24560; struct structure_type24753 t24561; struct structure_type24753 t24562; struct structure_type24753 t24563; struct structure_type24753 t24564; struct structure_type24753 t24565; struct structure_type24753 t24566; struct structure_type24753 t24567; struct structure_type24753 t24568; struct structure_type24753 t24569; struct structure_type24753 t24570; struct structure_type24753 t24571; struct structure_type24753 t24572; struct structure_type24753 t24573; struct structure_type24753 t24574; struct structure_type24753 t24575; struct structure_type24753 t24576; struct structure_type24753 t24577; struct structure_type24753 t24578; struct structure_type24753 t24579; struct structure_type24753 t24580; struct structure_type24753 t24581; struct structure_type24753 t24582; struct structure_type24753 t24583; struct structure_type24753 t24584; struct structure_type24753 t24585; struct structure_type24753 t24586; struct structure_type24753 t24587; struct structure_type24753 t24588; struct structure_type24753 t24589; struct structure_type24753 t24590; struct structure_type24753 t24591; struct structure_type24753 t24592; struct structure_type24753 t24593; struct structure_type24753 t24594; struct structure_type24753 t24595; struct structure_type24753 t24596; struct structure_type24753 t24597; struct structure_type24753 t24598; struct structure_type24753 t24599; struct structure_type24753 t24600; struct structure_type24753 t24605; struct structure_type24753 t24606; struct structure_type24753 t24607; struct structure_type24753 t24608; struct structure_type24753 t24609; struct structure_type24753 t24610; struct structure_type24753 t24611; struct structure_type24753 t24612; struct structure_type24753 t24613; struct structure_type24753 t24614; struct structure_type24753 t24615; struct structure_type24753 t24616; struct structure_type24753 t24617; struct structure_type24753 t24618; struct structure_type24753 t24619; struct structure_type24753 t24620; struct structure_type24753 t24621; struct structure_type24753 t24622; struct structure_type24753 t24623; struct structure_type24753 t24624; struct structure_type24753 t24625; struct structure_type24753 t24626; struct structure_type24753 t24627; struct structure_type24753 t24628; struct structure_type24753 t24629; struct structure_type24753 t24630; struct structure_type24753 t24631; struct structure_type24753 t24632; struct structure_type24753 t24633; struct structure_type24753 t24634; struct structure_type24753 t24635; struct structure_type24753 t24636; struct structure_type24753 t24637; struct structure_type24753 t24638; struct structure_type24753 t24639; struct structure_type24753 t24640; struct structure_type24753 t24641; struct structure_type24753 t24642; struct structure_type24753 t24643; struct structure_type24753 t24644; struct structure_type24753 t24645; struct structure_type24753 t24646; struct structure_type24753 t24647; struct structure_type24753 t24648; struct structure_type24753 t24649; struct structure_type24753 t24650; struct structure_type24753 t24651; struct structure_type24753 t24652; struct structure_type24753 t24657; struct structure_type24753 t24658; struct structure_type24753 t24659; struct structure_type24753 t24660; struct structure_type24753 t24661; struct structure_type24753 t24662; struct structure_type24753 t24663; struct structure_type24753 t24664; struct structure_type24753 t24665; struct structure_type24753 t24666; struct structure_type24753 t24667; struct structure_type24753 t24668; struct structure_type24753 t24669; struct structure_type24753 t24670; struct structure_type24753 t24671; struct structure_type24753 t24672; struct structure_type24753 t24673; struct structure_type24753 t24674; struct structure_type24753 t24675; struct structure_type24753 t24676; struct structure_type24753 t24677; struct structure_type24753 t24678; struct structure_type24753 t24679; struct structure_type24753 t24680; struct structure_type24753 t24681; struct structure_type24753 t24682; struct structure_type24753 t24683; struct structure_type24753 t24684; struct structure_type24753 t24685; struct structure_type24753 t24686; struct structure_type24753 t24687; struct structure_type24753 t24688; struct structure_type24753 t24689; struct structure_type24753 t24690; struct structure_type24753 t24691; struct structure_type24753 t24692; struct structure_type24753 t24693; struct structure_type24753 t24694; struct structure_type24753 t24695; struct structure_type24753 t24696; struct structure_type24753 t24697; struct structure_type24753 t24698; struct structure_type24753 t24699; struct structure_type24753 t24700; struct structure_type24753 t24701; struct structure_type24753 t24702; struct structure_type24753 t24703; struct structure_type24753 t24704; struct structure_type24753 t24709; struct structure_type24753 t24710; struct structure_type24753 t24711; struct structure_type24753 t24712; struct structure_type24753 t24713; struct structure_type24753 t24714; struct structure_type24753 t24715; struct structure_type24753 t24716; struct structure_type24753 t24717; struct structure_type24753 t24718; struct {unsigned length; struct w49 element[256];} t24719; struct structure_type24753 t24720; struct structure_type24753 t24721; struct structure_type24753 t24722; struct structure_type24753 t24723; struct structure_type24753 t24724; struct structure_type24753 t24725; struct structure_type24753 t24726; struct structure_type24753 t24727; struct structure_type24753 t24728; struct structure_type24753 t24729; struct structure_type24753 t24734; struct structure_type24753 t24735; struct structure_type24753 t24736; struct structure_type24753 t24737; struct structure_type24753 t24738; struct structure_type24753 t24739; struct structure_type24753 t24740; struct structure_type24753 t24741; struct structure_type24753 t24742; struct structure_type24753 t24743; struct {unsigned length; struct w49 element[256];} t24744; struct structure_type24753 t24745; struct structure_type24753 t24746; struct structure_type24753 t24747; struct structure_type24753 t24748; struct structure_type24753 t24749; struct structure_type24753 t24750; struct structure_type24753 t24751; struct structure_type24753 t24752; struct structure_type24753 t24753; struct structure_type24753 t24754; struct structure_type24753 t24759; struct structure_type24753 t24760; struct structure_type24753 t24761; struct structure_type24753 t24762; struct structure_type24753 t24763; struct structure_type24753 t24764; struct structure_type24753 t24765; struct structure_type24753 t24766; struct structure_type24753 t24767; struct structure_type24753 t24768; struct {unsigned length; struct w49 element[256];} t24769; struct structure_type24753 t24770; struct structure_type24753 t24771; struct structure_type24753 t24772; struct structure_type24753 t24773; struct structure_type24753 t24774; struct structure_type24753 t24775; struct structure_type24753 t24776; struct structure_type24753 t24777; struct structure_type24753 t24778; struct structure_type24753 t24779; struct structure_type24753 t24784; struct structure_type24753 t24785; struct structure_type24753 t24786; struct structure_type24753 t24787; struct structure_type24753 t24788; struct structure_type24753 t24789; struct structure_type24753 t24790; struct structure_type24753 t24791; struct structure_type24753 t24792; struct structure_type24753 t24793; struct {unsigned length; struct w49 element[256];} t24794; struct structure_type24753 t24795; struct structure_type24753 t24796; struct structure_type24753 t24797; struct structure_type24753 t24798; struct structure_type24753 t24799; struct structure_type24753 t24800; struct structure_type24753 t24801; struct structure_type24753 t24802; struct structure_type24753 t24803; struct structure_type24753 t24804; struct structure_type24753 t24809; struct structure_type24753 t24810; struct structure_type24753 t24811; struct structure_type24753 t24812; struct structure_type24753 t24813; struct structure_type24753 t24814; struct structure_type24753 t24815; struct structure_type24753 t24816; struct structure_type24753 t24817; struct structure_type24753 t24818; struct {unsigned length; struct w49 element[256];} t24819; struct structure_type24753 t24820; struct structure_type24753 t24821; struct structure_type24753 t24822; struct structure_type24753 t24823; struct structure_type24753 t24824; struct structure_type24753 t24825; struct structure_type24753 t24826; struct structure_type24753 t24827; struct structure_type24753 t24828; struct structure_type24753 t24829; struct structure_type24753 t24834; struct structure_type24753 t24835; struct structure_type24753 t24836; struct structure_type24753 t24837; struct structure_type24753 t24838; struct structure_type24753 t24839; struct structure_type24753 t24840; struct structure_type24753 t24841; struct structure_type24753 t24842; struct structure_type24753 t24847; struct structure_type24753 t24848; struct structure_type24753 t24849; struct structure_type24753 t24850; struct structure_type24753 t24851; struct structure_type24753 t24852; struct structure_type24753 t24853; struct structure_type24753 t24854; struct structure_type24753 t24855; struct structure_type24753 t24860; struct structure_type24753 t24861; struct structure_type24753 t24862; struct structure_type24753 t24863; struct structure_type24753 t24864; struct structure_type24753 t24865; struct structure_type24753 t24866; struct structure_type24753 t24867; struct structure_type24753 t24868; struct structure_type24753 t24869; struct {unsigned length; struct w49 element[256];} t24870; struct structure_type24753 t24871; struct structure_type24753 t24872; struct structure_type24753 t24873; struct structure_type24753 t24874; struct structure_type24753 t24875; struct structure_type24753 t24876; struct structure_type24753 t24877; struct structure_type24753 t24878; struct structure_type24753 t24879; struct structure_type24753 t24880; struct structure_type24753 t24881; struct structure_type24753 t24882; struct structure_type24753 t24887; struct structure_type24753 t24888; struct structure_type24753 t24889; struct structure_type24753 t24890; struct structure_type24753 t24891; struct structure_type24753 t24892; struct structure_type24753 t24893; struct structure_type24753 t24894; struct structure_type24753 t24895; struct structure_type24753 t24896; struct {unsigned length; struct w49 element[256];} t24897; struct structure_type24753 t24898; struct structure_type24753 t24899; struct structure_type24753 t24900; struct structure_type24753 t24901; struct structure_type24753 t24902; struct structure_type24753 t24903; struct structure_type24753 t24904; struct structure_type24753 t24905; struct structure_type24753 t24906; struct structure_type24753 t24907; struct structure_type24753 t24908; struct structure_type24753 t24909; struct structure_type24753 t24914; struct structure_type24753 t24915; struct structure_type24753 t24916; struct structure_type24753 t24917; struct structure_type24753 t24918; struct structure_type24753 t24919; struct structure_type24753 t24920; struct structure_type24753 t24921; struct structure_type24753 t24922; struct structure_type24753 t24927; struct structure_type24753 t24928; struct structure_type24753 t24929; struct structure_type24753 t24930; struct structure_type24753 t24931; struct structure_type24753 t24932; struct structure_type24753 t24933; struct structure_type24753 t24934; struct structure_type24753 t24935; struct structure_type24753 t24936; struct structure_type24753 t24937; struct structure_type24753 t24938; struct structure_type24753 t24939; struct structure_type24753 t24940; struct structure_type24753 t24941; struct structure_type24753 t24942; struct structure_type24753 t24943; struct structure_type24753 t24944; struct structure_type24753 t24945; struct structure_type24753 t24946; struct structure_type24753 t24947; struct structure_type24753 t24948; struct structure_type24753 t24949; struct structure_type24753 t24950; struct structure_type24753 t24951; struct structure_type24753 t24952; struct structure_type24753 t24953; struct structure_type24753 t24954; struct structure_type24753 t24955; struct structure_type24753 t24956; struct structure_type24753 t24957; struct structure_type24753 t24958; struct structure_type24753 t24959; struct structure_type24753 t24960; struct structure_type24753 t24965; struct structure_type24753 t24966; struct structure_type24753 t24967; struct structure_type24753 t24968; struct structure_type24753 t24969; struct structure_type24753 t24970; struct structure_type24753 t24971; struct structure_type24753 t24972; struct structure_type24753 t24973; struct structure_type24753 t24974; struct structure_type24753 t24975; struct structure_type24753 t24976; struct structure_type24753 t24977; struct structure_type24753 t24978; struct structure_type24753 t24979; struct structure_type24753 t24980; struct structure_type24753 t24981; struct structure_type24753 t24982; struct structure_type24753 t24983; struct structure_type24753 t24984; struct structure_type24753 t24985; struct structure_type24753 t24986; struct structure_type24753 t24987; struct structure_type24753 t24988; struct structure_type24753 t24989; struct structure_type24753 t24990; struct structure_type24753 t24991; struct structure_type24753 t24992; struct structure_type24753 t24993; struct structure_type24753 t24994; struct structure_type24753 t24995; struct structure_type24753 t24996; struct structure_type24753 t24997; struct structure_type24753 t24998; struct structure_type24753 t24999; struct structure_type24753 t25000; struct structure_type24753 t25001; struct structure_type24753 t25002; struct structure_type24753 t25003; struct structure_type24753 t25004; struct structure_type24753 t25005; struct structure_type24753 t25006; struct structure_type24753 t25007; struct structure_type24753 t25008; struct structure_type24753 t25009; struct structure_type24753 t25010; struct structure_type24753 t25011; struct structure_type24753 t25016; struct structure_type24753 t25017; struct structure_type24753 t25018; struct structure_type24753 t25019; struct structure_type24753 t25020; struct structure_type24753 t25021; struct structure_type24753 t25022; struct structure_type24753 t25023; struct structure_type24753 t25024; struct structure_type24753 t25029; struct structure_type24753 t25030; struct structure_type24753 t25031; struct structure_type24753 t25032; struct structure_type24753 t25033; struct structure_type24753 t25034; struct structure_type24753 t25035; struct structure_type24753 t25036; struct structure_type24753 t25037; struct structure_type24753 t25038; struct structure_type24753 t25039; struct structure_type24753 t25044; struct structure_type24753 t25045; struct structure_type24753 t25046; struct structure_type24753 t25047; struct structure_type24753 t25048; struct structure_type24753 t25049; struct structure_type24753 t25050; struct structure_type24753 t25051; struct structure_type24753 t25052; struct structure_type24753 t25053; struct structure_type24753 t25054; struct structure_type24753 t25055; struct structure_type24753 t25056; struct structure_type24753 t25061; struct structure_type24753 t25062; struct structure_type24753 t25063; struct structure_type24753 t25064; struct structure_type24753 t25065; struct structure_type24753 t25066; struct structure_type24753 t25067; struct structure_type24753 t25068; struct structure_type24753 t25069; struct structure_type24753 t25070; struct structure_type24753 t25071; struct structure_type24753 t25072; struct structure_type24753 t25073; struct structure_type24753 t25074; struct structure_type24753 t25075; struct structure_type24753 t25076; struct structure_type24753 t25077; struct structure_type24753 t25078; struct structure_type24753 t25079; struct structure_type24753 t25080; struct structure_type24753 t25081; struct structure_type24753 t25082; struct structure_type24753 t25083; struct structure_type24753 t25084; struct structure_type24753 t25085; struct structure_type24753 t25086; struct structure_type24753 t25087; struct structure_type24753 t25088; struct structure_type24753 t25089; struct structure_type24753 t25090; struct structure_type24753 t25091; struct structure_type24753 t25092; struct structure_type24753 t25093; struct structure_type24753 t25094; struct structure_type24753 t25095; struct structure_type24753 t25096; struct structure_type24753 t25097; struct structure_type24753 t25098; struct structure_type24753 t25099; struct structure_type24753 t25100; struct structure_type24753 t25101; struct structure_type24753 t25102; struct structure_type24753 t25103; struct structure_type24753 t25104; struct structure_type24753 t25105; struct structure_type24753 t25106; struct structure_type24753 t25107; struct structure_type24753 t25108; struct structure_type24753 t25109; struct structure_type24753 t25110; struct structure_type24753 t25111; struct structure_type24753 t25112; struct structure_type24753 t25113; struct structure_type24753 t25114; struct structure_type24753 t25115; struct structure_type24753 t25116; struct structure_type24753 t25117; struct structure_type24753 t25118; struct structure_type24753 t25119; struct structure_type24753 t25120; struct structure_type24753 t25121; struct structure_type24753 t25122; struct structure_type24753 t25123; struct structure_type24753 t25124; struct structure_type24753 t25125; struct structure_type24753 t25126; struct structure_type24753 t25127; struct structure_type24753 t25128; struct structure_type24753 t25129; struct structure_type24753 t25130; struct structure_type24753 t25131; struct structure_type24753 t25132; struct structure_type24753 t25133; struct structure_type24753 t25134; struct structure_type24753 t25135; struct structure_type24753 t25136; struct structure_type24753 t25137; struct structure_type24753 t25138; struct structure_type24753 t25139; struct structure_type24753 t25144; struct structure_type24753 t25145; struct structure_type24753 t25146; struct structure_type24753 t25147; struct structure_type24753 t25148; struct structure_type24753 t25149; struct structure_type24753 t25150; struct structure_type24753 t25151; struct structure_type24753 t25152; struct structure_type24753 t25153; struct structure_type24753 t25154; struct structure_type24753 t25155; struct structure_type24753 t25156; struct structure_type24753 t25157; struct structure_type24753 t25158; struct structure_type24753 t25159; struct structure_type24753 t25160; struct structure_type24753 t25161; struct structure_type24753 t25162; struct structure_type24753 t25163; struct structure_type24753 t25164; struct structure_type24753 t25165; struct structure_type24753 t25166; struct structure_type24753 t25167; struct structure_type24753 t25168; struct structure_type24753 t25169; struct structure_type24753 t25170; struct structure_type24753 t25171; struct structure_type24753 t25172; struct structure_type24753 t25173; struct structure_type24753 t25174; struct structure_type24753 t25175; struct structure_type24753 t25176; struct structure_type24753 t25177; struct structure_type24753 t25178; struct structure_type24753 t25179; struct structure_type24753 t25180; struct structure_type24753 t25181; struct structure_type24753 t25182; struct structure_type24753 t25183; struct structure_type24753 t25184; struct structure_type24753 t25185; struct structure_type24753 t25186; struct structure_type24753 t25187; struct structure_type24753 t25188; struct structure_type24753 t25189; struct structure_type24753 t25190; struct structure_type24753 t25191; struct structure_type24753 t25192; struct structure_type24753 t25193; struct structure_type24753 t25194; struct structure_type24753 t25195; struct structure_type24753 t25196; struct structure_type24753 t25197; struct structure_type24753 t25198; struct structure_type24753 t25199; struct structure_type24753 t25200; struct structure_type24753 t25201; struct structure_type24753 t25202; struct structure_type24753 t25203; struct structure_type24753 t25204; struct structure_type24753 t25205; struct structure_type24753 t25206; struct structure_type24753 t25207; struct structure_type24753 t25208; struct structure_type24753 t25209; struct structure_type24753 t25210; struct structure_type24753 t25211; struct structure_type24753 t25212; struct structure_type24753 t25213; struct structure_type24753 t25214; struct structure_type24753 t25215; struct structure_type24753 t25216; struct structure_type24753 t25217; struct structure_type24753 t25218; struct structure_type24753 t25219; struct structure_type24753 t25220; struct structure_type24753 t25221; struct structure_type24753 t25222; struct structure_type24753 t25227; struct structure_type24753 t25228; struct structure_type24753 t25229; struct structure_type24753 t25230; struct structure_type24753 t25231; struct structure_type24753 t25232; struct structure_type24753 t25233; struct structure_type24753 t25234; struct structure_type24753 t25235; struct structure_type24753 t25236; struct structure_type24753 t25237; struct structure_type24753 t25238; struct structure_type24753 t25239; struct structure_type24753 t25240; struct structure_type24753 t25241; struct structure_type24753 t25242; struct structure_type24753 t25243; struct structure_type24753 t25244; struct structure_type24753 t25245; struct structure_type24753 t25246; struct structure_type24753 t25247; struct structure_type24753 t25248; struct structure_type24753 t25249; struct structure_type24753 t25250; struct structure_type24753 t25251; struct structure_type24753 t25252; struct structure_type24753 t25253; struct structure_type24753 t25254; struct structure_type24753 t25255; struct structure_type24753 t25256; struct structure_type24753 t25257; struct structure_type24753 t25258; struct structure_type24753 t25259; struct structure_type24753 t25260; struct structure_type24753 t25261; struct structure_type24753 t25262; struct structure_type24753 t25263; struct structure_type24753 t25264; struct structure_type24753 t25265; struct structure_type24753 t25266; struct structure_type24753 t25267; struct structure_type24753 t25268; struct structure_type24753 t25269; struct structure_type24753 t25270; struct structure_type24753 t25271; struct structure_type24753 t25272; struct structure_type24753 t25273; struct structure_type24753 t25274; struct structure_type24753 t25275; struct structure_type24753 t25276; struct structure_type24753 t25277; struct structure_type24753 t25278; struct structure_type24753 t25279; struct structure_type24753 t25280; struct structure_type24753 t25281; struct structure_type24753 t25282; struct structure_type24753 t25283; struct structure_type24753 t25284; struct structure_type24753 t25285; struct structure_type24753 t25286; struct structure_type24753 t25287; struct structure_type24753 t25288; struct structure_type24753 t25289; struct structure_type24753 t25290; struct structure_type24753 t25291; struct structure_type24753 t25292; struct structure_type24753 t25293; struct structure_type24753 t25294; struct structure_type24753 t25295; struct structure_type24753 t25296; struct structure_type24753 t25297; struct structure_type24753 t25298; struct structure_type24753 t25299; struct structure_type24753 t25300; struct structure_type24753 t25301; struct structure_type24753 t25302; struct structure_type24753 t25303; struct structure_type24753 t25304; struct structure_type24753 t25305; struct structure_type24753 t25306; struct structure_type24753 t25307; struct structure_type24753 t25308; struct structure_type24753 t25309; struct structure_type24753 t25310; struct structure_type24753 t25311; struct structure_type24753 t25312; struct structure_type24753 t25313; struct structure_type24753 t25314; struct structure_type24753 t25315; struct structure_type24753 t25316; struct structure_type24753 t25317; struct structure_type24753 t25318; struct structure_type24753 t25319; struct structure_type24753 t25320; struct structure_type24753 t25321; struct structure_type24753 t25322; struct structure_type24753 t25323; struct structure_type24753 t25324; struct structure_type24753 t25325; struct structure_type24753 t25326; struct structure_type24753 t25327; struct structure_type24753 t25328; struct structure_type24753 t25329; struct structure_type24753 t25334; struct structure_type24753 t25335; struct structure_type24753 t25336; struct structure_type24753 t25337; struct structure_type24753 t25338; struct structure_type24753 t25339; struct structure_type24753 t25340; struct structure_type24753 t25341; struct structure_type24753 t25342; struct structure_type24753 t25343; struct structure_type24753 t25344; struct structure_type24753 t25345; struct structure_type24753 t25346; struct structure_type24753 t25347; struct structure_type24753 t25348; struct structure_type24753 t25349; struct structure_type24753 t25350; struct structure_type24753 t25351; struct structure_type24753 t25352; struct structure_type24753 t25353; struct structure_type24753 t25354; struct structure_type24753 t25355; struct structure_type24753 t25356; struct structure_type24753 t25357; struct structure_type24753 t25358; struct structure_type24753 t25359; struct structure_type24753 t25360; struct structure_type24753 t25361; struct structure_type24753 t25362; struct structure_type24753 t25363; struct structure_type24753 t25364; struct structure_type24753 t25365; struct structure_type24753 t25366; struct structure_type24753 t25367; struct structure_type24753 t25368; struct structure_type24753 t25369; struct structure_type24753 t25370; struct structure_type24753 t25371; struct structure_type24753 t25372; struct structure_type24753 t25373; struct structure_type24753 t25374; struct structure_type24753 t25375; struct structure_type24753 t25376; struct structure_type24753 t25377; struct structure_type24753 t25378; struct structure_type24753 t25379; struct structure_type24753 t25380; struct structure_type24753 t25381; struct structure_type24753 t25382; struct structure_type24753 t25383; struct structure_type24753 t25384; struct structure_type24753 t25385; struct structure_type24753 t25386; struct structure_type24753 t25387; struct structure_type24753 t25388; struct structure_type24753 t25389; struct structure_type24753 t25390; struct structure_type24753 t25391; struct structure_type24753 t25392; struct structure_type24753 t25393; struct structure_type24753 t25394; struct structure_type24753 t25395; struct structure_type24753 t25396; struct structure_type24753 t25397; struct structure_type24753 t25398; struct structure_type24753 t25399; struct structure_type24753 t25400; struct structure_type24753 t25401; struct structure_type24753 t25402; struct structure_type24753 t25403; struct structure_type24753 t25404; struct structure_type24753 t25405; struct structure_type24753 t25406; struct structure_type24753 t25407; struct structure_type24753 t25408; struct structure_type24753 t25409; struct structure_type24753 t25410; struct structure_type24753 t25411; struct structure_type24753 t25412; struct structure_type24753 t25413; struct structure_type24753 t25414; struct structure_type24753 t25415; struct structure_type24753 t25416; struct structure_type24753 t25417; struct structure_type24753 t25418; struct structure_type24753 t25419; struct structure_type24753 t25420; struct structure_type24753 t25421; struct structure_type24753 t25422; struct structure_type24753 t25423; struct structure_type24753 t25424; struct structure_type24753 t25425; struct structure_type24753 t25426; struct structure_type24753 t25427; struct structure_type24753 t25428; struct structure_type24753 t25429; struct structure_type24753 t25430; struct structure_type24753 t25431; struct structure_type24753 t25432; struct structure_type24753 t25433; struct structure_type24753 t25434; struct structure_type24753 t25435; struct structure_type24753 t25436; struct structure_type24753 t25441; struct structure_type24753 t25442; struct structure_type24753 t25443; struct structure_type24753 t25444; struct structure_type24753 t25445; struct structure_type24753 t25446; struct structure_type24753 t25447; struct structure_type24753 t25448; struct structure_type24753 t25449; struct structure_type24753 t25450; struct structure_type24753 t25451; struct structure_type24753 t25452; struct structure_type24753 t25453; struct structure_type24753 t25454; struct structure_type24753 t25455; struct structure_type24753 t25456; struct structure_type24753 t25457; struct structure_type24753 t25458; struct structure_type24753 t25459; struct structure_type24753 t25460; struct structure_type24753 t25461; struct structure_type24753 t25462; struct structure_type24753 t25463; struct structure_type24753 t25464; struct structure_type24753 t25465; struct structure_type24753 t25466; struct structure_type24753 t25467; struct structure_type24753 t25468; struct structure_type24753 t25469; struct structure_type24753 t25470; struct structure_type24753 t25471; struct structure_type24753 t25472; struct structure_type24753 t25473; struct structure_type24753 t25474; struct structure_type24753 t25475; struct structure_type24753 t25476; struct structure_type24753 t25477; struct structure_type24753 t25478; struct structure_type24753 t25479; struct structure_type24753 t25480; struct structure_type24753 t25481; struct structure_type24753 t25482; struct structure_type24753 t25483; struct structure_type24753 t25484; struct structure_type24753 t25485; struct structure_type24753 t25486; struct structure_type24753 t25487; struct structure_type24753 t25488; struct structure_type24753 t25489; struct structure_type24753 t25490; struct structure_type24753 t25491; struct structure_type24753 t25492; struct structure_type24753 t25493; struct structure_type24753 t25494; struct structure_type24753 t25495; struct structure_type24753 t25496; struct structure_type24753 t25497; struct structure_type24753 t25498; struct structure_type24753 t25499; struct structure_type24753 t25500; struct structure_type24753 t25501; struct structure_type24753 t25502; struct structure_type24753 t25503; struct structure_type24753 t25504; struct structure_type24753 t25505; struct structure_type24753 t25506; struct structure_type24753 t25507; struct structure_type24753 t25508; struct structure_type24753 t25509; struct structure_type24753 t25510; struct structure_type24753 t25511; struct structure_type24753 t25512; struct structure_type24753 t25513; struct structure_type24753 t25514; struct structure_type24753 t25515; struct structure_type24753 t25516; struct structure_type24753 t25517; struct structure_type24753 t25518; struct structure_type24753 t25519; struct structure_type24753 t25520; struct structure_type24753 t25521; struct structure_type24753 t25522; struct structure_type24753 t25523; struct structure_type24753 t25524; struct structure_type24753 t25525; struct structure_type24753 t25526; struct structure_type24753 t25527; struct structure_type24753 t25528; struct structure_type24753 t25529; struct structure_type24753 t25530; struct structure_type24753 t25531; struct structure_type24753 t25532; struct structure_type24753 t25533; struct structure_type24753 t25534; struct structure_type24753 t25535; struct structure_type24753 t25536; struct structure_type24753 t25537; struct structure_type24753 t25538; struct structure_type24753 t25539; struct structure_type24753 t25540; struct structure_type24753 t25541; struct structure_type24753 t25542; struct structure_type24753 t25543; struct structure_type24753 t25548; struct structure_type24753 t25549; struct structure_type24753 t25550; struct structure_type24753 t25551; struct structure_type24753 t25552; struct structure_type24753 t25553; struct structure_type24753 t25554; struct structure_type24753 t25555; struct structure_type24753 t25556; struct structure_type24753 t25557; struct structure_type24753 t25558; struct structure_type24753 t25559; struct structure_type24753 t25560; struct structure_type24753 t25561; struct structure_type24753 t25562; struct structure_type24753 t25563; struct structure_type24753 t25564; struct structure_type24753 t25565; struct structure_type24753 t25566; struct structure_type24753 t25567; struct structure_type24753 t25568; struct structure_type24753 t25569; struct structure_type24753 t25570; struct structure_type24753 t25571; struct structure_type24753 t25572; struct structure_type24753 t25573; struct structure_type24753 t25574; struct structure_type24753 t25575; struct structure_type24753 t25576; struct structure_type24753 t25577; struct structure_type24753 t25578; struct structure_type24753 t25579; struct structure_type24753 t25580; struct structure_type24753 t25581; struct structure_type24753 t25582; struct structure_type24753 t25583; struct structure_type24753 t25584; struct structure_type24753 t25585; struct structure_type24753 t25586; struct structure_type24753 t25587; struct structure_type24753 t25588; struct structure_type24753 t25589; struct structure_type24753 t25590; struct structure_type24753 t25591; struct structure_type24753 t25592; struct structure_type24753 t25593; struct structure_type24753 t25594; struct structure_type24753 t25595; struct structure_type24753 t25596; struct structure_type24753 t25597; struct structure_type24753 t25598; struct structure_type24753 t25599; struct structure_type24753 t25600; struct structure_type24753 t25601; struct structure_type24753 t25602; struct structure_type24753 t25603; struct structure_type24753 t25604; struct structure_type24753 t25605; struct structure_type24753 t25606; struct structure_type24753 t25607; struct structure_type24753 t25608; struct structure_type24753 t25609; struct structure_type24753 t25610; struct structure_type24753 t25611; struct structure_type24753 t25612; struct structure_type24753 t25613; struct structure_type24753 t25614; struct structure_type24753 t25615; struct structure_type24753 t25616; struct structure_type24753 t25617; struct structure_type24753 t25618; struct structure_type24753 t25619; struct structure_type24753 t25620; struct structure_type24753 t25621; struct structure_type24753 t25622; struct structure_type24753 t25623; struct structure_type24753 t25624; struct structure_type24753 t25625; struct structure_type24753 t25626; struct structure_type24753 t25627; struct structure_type24753 t25628; struct structure_type24753 t25629; struct structure_type24753 t25630; struct structure_type24753 t25631; struct structure_type24753 t25632; struct structure_type24753 t25633; struct structure_type24753 t25634; struct structure_type24753 t25635; struct structure_type24753 t25636; struct structure_type24753 t25637; struct structure_type24753 t25638; struct structure_type24753 t25639; struct structure_type24753 t25640; struct structure_type24753 t25641; struct structure_type24753 t25642; struct structure_type24753 t25643; struct structure_type24753 t25644; struct structure_type24753 t25645; struct structure_type24753 t25646; struct structure_type24753 t25647; struct structure_type24753 t25648; struct structure_type24753 t25649; struct structure_type24753 t25650; struct structure_type24753 t25655; struct structure_type24753 t25656; struct structure_type24753 t25657; struct structure_type24753 t25658; struct structure_type24753 t25659; struct structure_type24753 t25660; struct structure_type24753 t25661; struct structure_type24753 t25662; struct structure_type24753 t25663; struct structure_type24753 t25664; struct structure_type24753 t25665; struct structure_type24753 t25666; struct structure_type24753 t25667; struct structure_type24753 t25668; struct structure_type24753 t25669; struct structure_type24753 t25670; struct structure_type24753 t25671; struct structure_type24753 t25672; struct structure_type24753 t25673; struct structure_type24753 t25674; struct structure_type24753 t25675; struct structure_type24753 t25676; struct structure_type24753 t25677; struct structure_type24753 t25678; struct structure_type24753 t25679; struct structure_type24753 t25680; struct structure_type24753 t25681; struct structure_type24753 t25682; struct structure_type24753 t25683; struct structure_type24753 t25684; struct structure_type24753 t25685; struct structure_type24753 t25686; struct structure_type24753 t25687; struct structure_type24753 t25688; struct structure_type24753 t25689; struct structure_type24753 t25690; struct structure_type24753 t25691; struct structure_type24753 t25692; struct structure_type24753 t25693; struct structure_type24753 t25694; struct structure_type24753 t25695; struct structure_type24753 t25696; struct structure_type24753 t25697; struct structure_type24753 t25698; struct structure_type24753 t25699; struct structure_type24753 t25700; struct structure_type24753 t25701; struct structure_type24753 t25702; struct structure_type24753 t25703; struct structure_type24753 t25704; struct structure_type24753 t25705; struct structure_type24753 t25706; struct structure_type24753 t25707; struct structure_type24753 t25708; struct structure_type24753 t25709; struct structure_type24753 t25710; struct structure_type24753 t25711; struct structure_type24753 t25712; struct structure_type24753 t25713; struct structure_type24753 t25714; struct structure_type24753 t25715; struct structure_type24753 t25716; struct structure_type24753 t25717; struct structure_type24753 t25718; struct structure_type24753 t25719; struct structure_type24753 t25720; struct structure_type24753 t25721; struct structure_type24753 t25722; struct structure_type24753 t25723; struct structure_type24753 t25724; struct structure_type24753 t25725; struct structure_type24753 t25726; struct structure_type24753 t25727; struct structure_type24753 t25728; struct structure_type24753 t25729; struct structure_type24753 t25730; struct structure_type24753 t25731; struct structure_type24753 t25732; struct structure_type24753 t25733; struct structure_type24753 t25734; struct structure_type24753 t25735; struct structure_type24753 t25736; struct structure_type24753 t25737; struct structure_type24753 t25738; struct structure_type24753 t25739; struct structure_type24753 t25740; struct structure_type24753 t25741; struct structure_type24753 t25742; struct structure_type24753 t25743; struct structure_type24753 t25744; struct structure_type24753 t25745; struct structure_type24753 t25746; struct structure_type24753 t25747; struct structure_type24753 t25748; struct structure_type24753 t25749; struct structure_type24753 t25750; struct structure_type24753 t25751; struct structure_type24753 t25752; struct structure_type24753 t25753; struct structure_type24753 t25754; struct structure_type24753 t25755; struct structure_type24753 t25756; struct structure_type24753 t25757; struct structure_type24753 t25762; struct structure_type24753 t25763; struct structure_type24753 t25764; struct structure_type24753 t25765; struct structure_type24753 t25766; struct structure_type24753 t25767; struct structure_type24753 t25768; struct structure_type24753 t25769; struct structure_type24753 t25770; struct structure_type24753 t25771; struct structure_type24753 t25772; struct structure_type24753 t25773; struct structure_type24753 t25774; struct structure_type24753 t25775; struct structure_type24753 t25776; struct structure_type24753 t25777; struct structure_type24753 t25778; struct structure_type24753 t25779; struct structure_type24753 t25780; struct structure_type24753 t25781; struct structure_type24753 t25782; struct structure_type24753 t25783; struct structure_type24753 t25784; struct structure_type24753 t25785; struct structure_type24753 t25786; struct structure_type24753 t25787; struct structure_type24753 t25788; struct structure_type24753 t25789; struct structure_type24753 t25790; struct structure_type24753 t25791; struct structure_type24753 t25792; struct structure_type24753 t25793; struct structure_type24753 t25794; struct structure_type24753 t25795; struct structure_type24753 t25796; struct structure_type24753 t25797; struct structure_type24753 t25798; struct structure_type24753 t25799; struct structure_type24753 t25800; struct structure_type24753 t25801; struct structure_type24753 t25802; struct structure_type24753 t25803; struct structure_type24753 t25804; struct structure_type24753 t25805; struct structure_type24753 t25806; struct structure_type24753 t25807; struct structure_type24753 t25808; struct structure_type24753 t25809; struct structure_type24753 t25810; struct structure_type24753 t25811; struct structure_type24753 t25812; struct structure_type24753 t25813; struct structure_type24753 t25814; struct structure_type24753 t25815; struct structure_type24753 t25816; struct structure_type24753 t25817; struct structure_type24753 t25818; struct structure_type24753 t25819; struct structure_type24753 t25820; struct structure_type24753 t25821; struct structure_type24753 t25822; struct structure_type24753 t25823; struct structure_type24753 t25824; struct structure_type24753 t25825; struct structure_type24753 t25826; struct structure_type24753 t25827; struct structure_type24753 t25828; struct structure_type24753 t25829; struct structure_type24753 t25830; struct structure_type24753 t25831; struct structure_type24753 t25832; struct structure_type24753 t25833; struct structure_type24753 t25834; struct structure_type24753 t25835; struct structure_type24753 t25836; struct structure_type24753 t25837; struct structure_type24753 t25838; struct structure_type24753 t25839; struct structure_type24753 t25840; struct structure_type24753 t25841; struct structure_type24753 t25842; struct structure_type24753 t25843; struct structure_type24753 t25844; struct structure_type24753 t25845; struct structure_type24753 t25846; struct structure_type24753 t25847; struct structure_type24753 t25848; struct structure_type24753 t25849; struct structure_type24753 t25850; struct structure_type24753 t25851; struct structure_type24753 t25852; struct structure_type24753 t25853; struct structure_type24753 t25854; struct structure_type24753 t25855; struct structure_type24753 t25856; struct structure_type24753 t25857; struct structure_type24753 t25858; struct structure_type24753 t25859; struct structure_type24753 t25860; struct structure_type24753 t25861; struct structure_type24753 t25862; struct structure_type24753 t25863; struct structure_type24753 t25864; struct structure_type24753 t25869; struct structure_type24753 t25870; struct structure_type24753 t25871; struct structure_type24753 t25872; struct structure_type24753 t25873; struct structure_type24753 t25874; struct structure_type24753 t25875; struct structure_type24753 t25876; struct structure_type24753 t25877; struct structure_type24753 t25878; struct structure_type24753 t25879; struct structure_type24753 t25880; struct structure_type24753 t25881; struct structure_type24753 t25882; struct structure_type24753 t25883; struct structure_type24753 t25884; struct structure_type24753 t25885; struct structure_type24753 t25886; struct structure_type24753 t25887; struct structure_type24753 t25888; struct structure_type24753 t25889; struct structure_type24753 t25890; struct structure_type24753 t25891; struct structure_type24753 t25892; struct structure_type24753 t25893; struct structure_type24753 t25894; struct structure_type24753 t25895; struct structure_type24753 t25896; struct structure_type24753 t25897; struct structure_type24753 t25898; struct structure_type24753 t25899; struct structure_type24753 t25900; struct structure_type24753 t25901; struct structure_type24753 t25902; struct structure_type24753 t25903; struct structure_type24753 t25904; struct structure_type24753 t25905; struct structure_type24753 t25906; struct structure_type24753 t25907; struct structure_type24753 t25908; struct structure_type24753 t25909; struct structure_type24753 t25910; struct structure_type24753 t25911; struct structure_type24753 t25912; struct structure_type24753 t25913; struct structure_type24753 t25914; struct structure_type24753 t25915; struct structure_type24753 t25916; struct structure_type24753 t25917; struct structure_type24753 t25918; struct structure_type24753 t25919; struct structure_type24753 t25920; struct structure_type24753 t25921; struct structure_type24753 t25922; struct structure_type24753 t25923; struct structure_type24753 t25924; struct structure_type24753 t25925; struct structure_type24753 t25926; struct structure_type24753 t25927; struct structure_type24753 t25928; struct structure_type24753 t25929; struct structure_type24753 t25930; struct structure_type24753 t25931; struct structure_type24753 t25932; struct structure_type24753 t25933; struct structure_type24753 t25934; struct structure_type24753 t25935; struct structure_type24753 t25936; struct structure_type24753 t25937; struct structure_type24753 t25938; struct structure_type24753 t25939; struct structure_type24753 t25940; struct structure_type24753 t25941; struct structure_type24753 t25942; struct structure_type24753 t25943; struct structure_type24753 t25944; struct structure_type24753 t25945; struct structure_type24753 t25946; struct structure_type24753 t25947; struct structure_type24753 t25948; struct structure_type24753 t25949; struct structure_type24753 t25950; struct structure_type24753 t25951; struct structure_type24753 t25952; struct structure_type24753 t25953; struct structure_type24753 t25954; struct structure_type24753 t25955; struct structure_type24753 t25956; struct structure_type24753 t25957; struct structure_type24753 t25958; struct structure_type24753 t25959; struct structure_type24753 t25960; struct structure_type24753 t25961; struct structure_type24753 t25962; struct structure_type24753 t25963; struct structure_type24753 t25964; struct structure_type24753 t25965; struct structure_type24753 t25966; struct structure_type24753 t25967; struct structure_type24753 t25968; struct structure_type24753 t25969; struct structure_type24753 t25970; struct structure_type24753 t25971; struct structure_type24753 t25976; struct structure_type24753 t25977; struct structure_type24753 t25978; struct structure_type24753 t25979; struct structure_type24753 t25980; struct structure_type24753 t25981; struct structure_type24753 t25982; struct structure_type24753 t25983; struct structure_type24753 t25984; struct structure_type24753 t25985; struct structure_type24753 t25986; struct structure_type24753 t25987; struct structure_type24753 t25988; struct structure_type24753 t25989; struct structure_type24753 t25990; struct structure_type24753 t25991; struct structure_type24753 t25992; struct structure_type24753 t25993; struct structure_type24753 t25994; struct structure_type24753 t25995; struct structure_type24753 t25996; struct structure_type24753 t25997; struct structure_type24753 t25998; struct structure_type24753 t25999; struct structure_type24753 t26000; struct structure_type24753 t26001; struct structure_type24753 t26002; struct structure_type24753 t26003; struct structure_type24753 t26004; struct structure_type24753 t26005; struct structure_type24753 t26006; struct structure_type24753 t26007; struct structure_type24753 t26008; struct structure_type24753 t26009; struct structure_type24753 t26010; struct structure_type24753 t26011; struct structure_type24753 t26012; struct structure_type24753 t26013; struct structure_type24753 t26014; struct structure_type24753 t26015; struct structure_type24753 t26016; struct structure_type24753 t26017; struct structure_type24753 t26018; struct structure_type24753 t26019; struct structure_type24753 t26020; struct structure_type24753 t26021; struct structure_type24753 t26022; struct structure_type24753 t26023; struct structure_type24753 t26024; struct structure_type24753 t26025; struct structure_type24753 t26026; struct structure_type24753 t26027; struct structure_type24753 t26028; struct structure_type24753 t26029; struct structure_type24753 t26030; struct structure_type24753 t26031; struct structure_type24753 t26032; struct structure_type24753 t26033; struct structure_type24753 t26034; struct structure_type24753 t26035; struct structure_type24753 t26036; struct structure_type24753 t26037; struct structure_type24753 t26038; struct structure_type24753 t26039; struct structure_type24753 t26040; struct structure_type24753 t26041; struct structure_type24753 t26042; struct structure_type24753 t26043; struct structure_type24753 t26044; struct structure_type24753 t26045; struct structure_type24753 t26046; struct structure_type24753 t26047; struct structure_type24753 t26048; struct structure_type24753 t26049; struct structure_type24753 t26050; struct structure_type24753 t26051; struct structure_type24753 t26052; struct structure_type24753 t26053; struct structure_type24753 t26054; struct structure_type24753 t26055; struct structure_type24753 t26056; struct structure_type24753 t26057; struct structure_type24753 t26058; struct structure_type24753 t26059; struct structure_type24753 t26060; struct structure_type24753 t26061; struct structure_type24753 t26062; struct structure_type24753 t26063; struct structure_type24753 t26064; struct structure_type24753 t26065; struct structure_type24753 t26066; struct structure_type24753 t26067; struct structure_type24753 t26068; struct structure_type24753 t26069; struct structure_type24753 t26070; struct structure_type24753 t26071; struct structure_type24753 t26072; struct structure_type24753 t26073; struct structure_type24753 t26074; struct structure_type24753 t26075; struct structure_type24753 t26076; struct structure_type24753 t26077; struct structure_type24753 t26078; struct structure_type24753 t26083; struct structure_type24753 t26084; struct structure_type24753 t26085; struct structure_type24753 t26086; struct structure_type24753 t26087; struct structure_type24753 t26088; struct structure_type24753 t26089; struct structure_type24753 t26090; struct structure_type24753 t26091; struct structure_type24753 t26092; struct structure_type24753 t26093; struct structure_type24753 t26094; struct structure_type24753 t26095; struct structure_type24753 t26096; struct structure_type24753 t26097; struct structure_type24753 t26098; struct structure_type24753 t26099; struct structure_type24753 t26100; struct structure_type24753 t26101; struct structure_type24753 t26102; struct structure_type24753 t26103; struct structure_type24753 t26104; struct structure_type24753 t26105; struct structure_type24753 t26106; struct structure_type24753 t26107; struct structure_type24753 t26108; struct structure_type24753 t26109; struct structure_type24753 t26110; struct structure_type24753 t26111; struct structure_type24753 t26112; struct structure_type24753 t26113; struct structure_type24753 t26114; struct structure_type24753 t26115; struct structure_type24753 t26116; struct structure_type24753 t26117; struct structure_type24753 t26118; struct structure_type24753 t26119; struct structure_type24753 t26120; struct structure_type24753 t26121; struct structure_type24753 t26122; struct structure_type24753 t26123; struct structure_type24753 t26124; struct structure_type24753 t26125; struct structure_type24753 t26126; struct structure_type24753 t26127; struct structure_type24753 t26128; struct structure_type24753 t26129; struct structure_type24753 t26130; struct structure_type24753 t26131; struct structure_type24753 t26132; struct structure_type24753 t26137; struct structure_type24753 t26138; struct structure_type24753 t26139; struct structure_type24753 t26140; struct structure_type24753 t26141; struct structure_type24753 t26142; struct structure_type24753 t26143; struct structure_type24753 t26144; struct structure_type24753 t26145; struct structure_type24753 t26146; struct structure_type24753 t26147; struct structure_type24753 t26148; struct structure_type24753 t26149; struct structure_type24753 t26150; struct structure_type24753 t26151; struct structure_type24753 t26152; struct structure_type24753 t26153; struct structure_type24753 t26154; struct structure_type24753 t26155; struct structure_type24753 t26156; struct structure_type24753 t26157; struct structure_type24753 t26158; struct structure_type24753 t26159; struct structure_type24753 t26160; struct structure_type24753 t26161; struct structure_type24753 t26162; struct structure_type24753 t26163; struct structure_type24753 t26164; struct structure_type24753 t26165; struct structure_type24753 t26166; struct structure_type24753 t26167; struct structure_type24753 t26168; struct structure_type24753 t26169; struct structure_type24753 t26170; struct structure_type24753 t26171; struct structure_type24753 t26172; struct structure_type24753 t26173; struct structure_type24753 t26174; struct structure_type24753 t26175; struct structure_type24753 t26176; struct structure_type24753 t26177; struct structure_type24753 t26178; struct structure_type24753 t26179; struct structure_type24753 t26180; struct structure_type24753 t26181; struct structure_type24753 t26182; struct structure_type24753 t26183; struct structure_type24753 t26184; struct structure_type24753 t26185; struct structure_type24753 t26186; struct structure_type24753 t26187; struct structure_type24753 t26188; struct structure_type24753 t26189; struct structure_type24753 t26190; struct structure_type24753 t26191; struct structure_type24753 t26192; struct structure_type24753 t26193; struct structure_type24753 t26194; struct structure_type24753 t26195; struct structure_type24753 t26196; struct structure_type24753 t26197; struct structure_type24753 t26198; struct structure_type24753 t26199; struct structure_type24753 t26200; struct structure_type24753 t26201; struct structure_type24753 t26202; struct structure_type24753 t26203; struct structure_type24753 t26204; struct structure_type24753 t26205; struct structure_type24753 t26206; struct structure_type24753 t26207; struct structure_type24753 t26208; struct structure_type24753 t26209; struct structure_type24753 t26210; struct structure_type24753 t26211; struct structure_type24753 t26212; struct structure_type24753 t26213; struct structure_type24753 t26214; struct structure_type24753 t26215; struct structure_type24753 t26216; struct structure_type24753 t26217; struct structure_type24753 t26218; struct structure_type24753 t26219; struct structure_type24753 t26220; struct structure_type24753 t26221; struct structure_type24753 t26222; struct structure_type24753 t26223; struct structure_type24753 t26224; struct structure_type24753 t26225; struct structure_type24753 t26226; struct structure_type24753 t26227; struct structure_type24753 t26228; struct structure_type24753 t26229; struct structure_type24753 t26230; struct structure_type24753 t26231; struct structure_type24753 t26232; struct structure_type24753 t26233; struct structure_type24753 t26234; struct structure_type24753 t26235; struct structure_type24753 t26236; struct structure_type24753 t26237; struct structure_type24753 t26238; struct structure_type24753 t26239; struct structure_type24753 t26240; struct structure_type24753 t26241; struct structure_type24753 t26242; struct structure_type24753 t26243; struct structure_type24753 t26244; struct structure_type24753 t26245; struct structure_type24753 t26246; struct structure_type24753 t26247; struct structure_type24753 t26248; struct structure_type24753 t26253; struct structure_type24753 t26254; struct structure_type24753 t26255; struct structure_type24753 t26256; struct structure_type24753 t26257; struct structure_type24753 t26258; struct structure_type24753 t26259; struct structure_type24753 t26260; struct structure_type24753 t26261; struct structure_type24753 t26262; struct structure_type24753 t26263; struct structure_type24753 t26264; struct structure_type24753 t26265; struct structure_type24753 t26266; struct structure_type24753 t26267; struct structure_type24753 t26268; struct structure_type24753 t26269; struct structure_type24753 t26270; struct structure_type24753 t26271; struct structure_type24753 t26272; struct structure_type24753 t26273; struct structure_type24753 t26274; struct structure_type24753 t26275; struct structure_type24753 t26276; struct structure_type24753 t26277; struct structure_type24753 t26278; struct structure_type24753 t26279; struct structure_type24753 t26280; struct structure_type24753 t26281; struct structure_type24753 t26282; struct structure_type24753 t26283; struct structure_type24753 t26284; struct structure_type24753 t26285; struct structure_type24753 t26286; struct structure_type24753 t26287; struct structure_type24753 t26288; struct structure_type24753 t26289; struct structure_type24753 t26290; struct structure_type24753 t26291; struct structure_type24753 t26292; struct structure_type24753 t26297; struct structure_type24753 t26298; struct structure_type24753 t26299; struct structure_type24753 t26300; struct structure_type24753 t26301; struct structure_type24753 t26302; struct structure_type24753 t26303; struct structure_type24753 t26304; struct structure_type24753 t26305; struct structure_type24753 t26306; struct structure_type24753 t26307; struct structure_type24753 t26308; struct structure_type24753 t26309; struct structure_type24753 t26310; struct structure_type24753 t26311; struct structure_type24753 t26312; struct structure_type24753 t26313; struct structure_type24753 t26314; struct structure_type24753 t26315; struct structure_type24753 t26316; struct structure_type24753 t26317; struct structure_type24753 t26318; struct structure_type24753 t26319; struct structure_type24753 t26320; struct structure_type24753 t26321; struct structure_type24753 t26322; struct structure_type24753 t26323; struct structure_type24753 t26324; struct structure_type24753 t26325; struct structure_type24753 t26326; struct structure_type24753 t26327; struct structure_type24753 t26328; struct structure_type24753 t26329; struct structure_type24753 t26330; struct structure_type24753 t26331; struct structure_type24753 t26332; struct structure_type24753 t26333; struct structure_type24753 t26334; struct structure_type24753 t26335; struct structure_type24753 t26336; struct structure_type24753 t26337; struct structure_type24753 t26338; struct structure_type24753 t26339; struct structure_type24753 t26340; struct structure_type24753 t26341; struct structure_type24753 t26342; struct structure_type24753 t26343; struct structure_type24753 t26344; struct structure_type24753 t26345; struct structure_type24753 t26346; struct structure_type24753 t26351; struct structure_type24753 t26352; struct structure_type24753 t26353; struct structure_type24753 t26354; struct structure_type24753 t26355; struct structure_type24753 t26356; struct structure_type24753 t26357; struct structure_type24753 t26358; struct structure_type24753 t26359; struct structure_type24753 t26360; struct structure_type24753 t26361; struct structure_type24753 t26362; struct structure_type24753 t26363; struct structure_type24753 t26364; struct structure_type24753 t26365; struct structure_type24753 t26366; struct structure_type24753 t26367; struct structure_type24753 t26368; struct structure_type24753 t26369; struct structure_type24753 t26370; struct structure_type24753 t26371; struct structure_type24753 t26372; struct structure_type24753 t26373; struct structure_type24753 t26374; struct structure_type24753 t26375; struct structure_type24753 t26376; struct structure_type24753 t26377; struct structure_type24753 t26378; struct structure_type24753 t26379; struct structure_type24753 t26380; struct structure_type24753 t26381; struct structure_type24753 t26382; struct structure_type24753 t26383; struct structure_type24753 t26384; struct structure_type24753 t26385; struct structure_type24753 t26386; struct structure_type24753 t26387; struct structure_type24753 t26388; struct structure_type24753 t26389; struct structure_type24753 t26390; struct structure_type24753 t26391; struct structure_type24753 t26392; struct structure_type24753 t26393; struct structure_type24753 t26394; struct structure_type24753 t26395; struct structure_type24753 t26396; struct structure_type24753 t26397; struct structure_type24753 t26398; struct structure_type24753 t26399; struct structure_type24753 t26404; struct structure_type24753 t26405; struct structure_type24753 t26406; struct structure_type24753 t26407; struct structure_type24753 t26408; struct structure_type24753 t26409; struct structure_type24753 t26410; struct structure_type24753 t26411; struct structure_type24753 t26412; struct structure_type24753 t26413; struct structure_type24753 t26414; struct structure_type24753 t26415; struct structure_type24753 t26416; struct structure_type24753 t26417; struct structure_type24753 t26418; struct structure_type24753 t26419; struct structure_type24753 t26420; struct structure_type24753 t26421; struct structure_type24753 t26422; struct structure_type24753 t26423; struct structure_type24753 t26424; struct structure_type24753 t26425; struct structure_type24753 t26426; struct structure_type24753 t26427; struct structure_type24753 t26428; struct structure_type24753 t26429; struct structure_type24753 t26430; struct structure_type24753 t26431; struct structure_type24753 t26432; struct structure_type24753 t26433; struct structure_type24753 t26434; struct structure_type24753 t26435; struct structure_type24753 t26436; struct structure_type24753 t26437; struct structure_type24753 t26438; struct structure_type24753 t26439; struct structure_type24753 t26440; struct structure_type24753 t26441; struct structure_type24753 t26442; struct structure_type24753 t26443; struct structure_type24753 t26444; struct structure_type24753 t26449; struct structure_type24753 t26450; struct structure_type24753 t26451; struct structure_type24753 t26452; struct structure_type24753 t26453; struct structure_type24753 t26454; struct structure_type24753 t26455; struct structure_type24753 t26456; struct structure_type24753 t26457; struct structure_type24753 t26458; struct structure_type24753 t26459; struct structure_type24753 t26460; struct structure_type24753 t26461; struct structure_type24753 t26462; struct structure_type24753 t26463; struct structure_type24753 t26464; struct structure_type24753 t26465; struct structure_type24753 t26466; struct structure_type24753 t26467; struct structure_type24753 t26468; struct structure_type24753 t26469; struct structure_type24753 t26470; struct structure_type24753 t26471; struct structure_type24753 t26472; struct structure_type24753 t26473; struct structure_type24753 t26474; struct structure_type24753 t26475; struct structure_type24753 t26476; struct structure_type24753 t26477; struct structure_type24753 t26478; struct structure_type24753 t26479; struct structure_type24753 t26480; struct structure_type24753 t26481; struct structure_type24753 t26482; struct structure_type24753 t26483; struct structure_type24753 t26484; struct structure_type24753 t26485; struct structure_type24753 t26486; struct structure_type24753 t26487; struct structure_type24753 t26488; struct structure_type24753 t26489; struct structure_type24753 t26490; struct structure_type24753 t26491; struct structure_type24753 t26492; struct structure_type24753 t26493; struct structure_type24753 t26494; struct structure_type24753 t26495; struct structure_type24753 t26496; struct structure_type24753 t26497; struct structure_type24753 t26498; struct structure_type24753 t26499; struct structure_type24753 t26500; struct structure_type24753 t26501; struct structure_type24753 t26502; struct structure_type24753 t26503; struct structure_type24753 t26508; struct structure_type24753 t26509; struct structure_type24753 t26510; struct structure_type24753 t26511; struct structure_type24753 t26512; struct structure_type24753 t26513; struct structure_type24753 t26514; struct structure_type24753 t26515; struct structure_type24753 t26516; struct structure_type24753 t26521; struct structure_type24753 t26522; struct structure_type24753 t26523; struct structure_type24753 t26524; struct structure_type24753 t26525; struct structure_type24753 t26526; struct structure_type24753 t26527; struct structure_type24753 t26528; struct structure_type24753 t26529; struct structure_type24753 t26530; struct structure_type24753 t26531; struct structure_type24753 t26532; struct structure_type24753 t26533; struct structure_type24753 t26534; struct structure_type24753 t26535; struct structure_type24753 t26536; struct structure_type24753 t26537; struct structure_type24753 t26538; struct structure_type24753 t26539; struct structure_type24753 t26540; struct structure_type24753 t26541; struct structure_type24753 t26542; struct structure_type24753 t26543; struct structure_type24753 t26544; struct structure_type24753 t26545; struct structure_type24753 t26546; struct structure_type24753 t26547; struct structure_type24753 t26548; struct structure_type24753 t26549; struct structure_type24753 t26550; struct structure_type24753 t26551; struct structure_type24753 t26552; struct structure_type24753 t26553; struct structure_type24753 t26554; struct structure_type24753 t26559; struct structure_type24753 t26560; struct structure_type24753 t26561; struct structure_type24753 t26562; struct structure_type24753 t26563; struct structure_type24753 t26564; struct structure_type24753 t26565; struct structure_type24753 t26566; struct structure_type24753 t26567; struct structure_type24753 t26568; struct structure_type24753 t26569; struct structure_type24753 t26570; struct structure_type24753 t26571; struct structure_type24753 t26576; struct structure_type24753 t26577; struct structure_type24753 t26578; struct structure_type24753 t26579; struct structure_type24753 t26580; struct structure_type24753 t26581; struct structure_type24753 t26582; struct structure_type24753 t26583; struct structure_type24753 t26584; struct structure_type24753 t26585; struct structure_type24753 t26586; struct structure_type24753 t26587; struct structure_type24753 t26588; struct structure_type24753 t26589; struct structure_type24753 t26590; struct structure_type24753 t26591; struct structure_type24753 t26592; struct structure_type24753 t26593; struct structure_type24753 t26594; struct structure_type24753 t26595; struct structure_type24753 t26596; struct structure_type24753 t26597; struct structure_type24753 t26598; struct structure_type24753 t26599; struct structure_type24753 t26600; struct structure_type24753 t26601; struct structure_type24753 t26602; struct structure_type24753 t26603; struct structure_type24753 t26604; struct structure_type24753 t26605; struct structure_type24753 t26606; struct structure_type24753 t26607; struct structure_type24753 t26608; struct structure_type24753 t26609; struct structure_type24753 t26610; struct structure_type24753 t26611; struct structure_type24753 t26612; struct structure_type24753 t26613; struct structure_type24753 t26614; struct structure_type24753 t26615; struct structure_type24753 t26616; struct structure_type24753 t26617; struct structure_type24753 t26618; struct structure_type24753 t26619; struct structure_type24753 t26620; struct structure_type24753 t26621; struct structure_type24753 t26622; struct structure_type24753 t26627; struct structure_type24753 t26628; struct structure_type24753 t26629; struct structure_type24753 t26630; struct structure_type24753 t26631; struct structure_type24753 t26632; struct structure_type24753 t26633; struct structure_type24753 t26634; struct structure_type24753 t26635; struct structure_type24753 t26640; struct structure_type24753 t26641; struct structure_type24753 t26642; struct structure_type24753 t26643; struct structure_type24753 t26644; struct structure_type24753 t26645; struct structure_type24753 t26646; struct structure_type24753 t26647; struct structure_type24753 t26648; struct structure_type24753 t26649; struct structure_type24753 t26650; struct structure_type24753 t26655; struct structure_type24753 t26656; struct structure_type24753 t26657; struct structure_type24753 t26658; struct structure_type24753 t26659; struct structure_type24753 t26660; struct structure_type24753 t26661; struct structure_type24753 t26662; struct structure_type24753 t26663; struct structure_type24753 t26664; struct structure_type24753 t26665; struct structure_type24753 t26666; struct structure_type24753 t26667; struct structure_type24753 t26672; struct structure_type24753 t26673; struct structure_type24753 t26674; struct structure_type24753 t26675; struct structure_type24753 t26676; struct structure_type24753 t26677; struct structure_type24753 t26678; struct structure_type24753 t26679; struct structure_type24753 t26680; struct structure_type24753 t26681; struct structure_type24753 t26682; struct structure_type24753 t26683; struct structure_type24753 t26684; struct structure_type24753 t26685; struct structure_type24753 t26686; struct structure_type24753 t26687; struct structure_type24753 t26688; struct structure_type24753 t26689; struct structure_type24753 t26690; struct structure_type24753 t26691; struct structure_type24753 t26692; struct structure_type24753 t26693; struct structure_type24753 t26694; struct structure_type24753 t26695; struct structure_type24753 t26696; struct structure_type24753 t26697; struct structure_type24753 t26698; struct structure_type24753 t26699; struct structure_type24753 t26700; struct structure_type24753 t26701; struct structure_type24753 t26702; struct structure_type24753 t26703; struct structure_type24753 t26704; struct structure_type24753 t26705; struct structure_type24753 t26710; struct structure_type24753 t26711; struct structure_type24753 t26712; struct structure_type24753 t26713; struct structure_type24753 t26714; struct structure_type24753 t26715; struct structure_type24753 t26716; struct structure_type24753 t26717; struct structure_type24753 t26718; struct structure_type24753 t26719; struct structure_type24753 t26720; struct structure_type24753 t26721; struct structure_type24753 t26722; struct structure_type24753 t26723; struct structure_type24753 t26724; struct structure_type24753 t26725; struct structure_type24753 t26726; struct structure_type24753 t26727; struct structure_type24753 t26728; struct structure_type24753 t26729; struct structure_type24753 t26730; struct structure_type24753 t26731; struct structure_type24753 t26732; struct structure_type24753 t26733; struct structure_type24753 t26734; struct structure_type24753 t26735; struct structure_type24753 t26736; struct structure_type24753 t26737; struct structure_type24753 t26738; struct structure_type24753 t26739; struct structure_type24753 t26740; struct structure_type24753 t26741; struct structure_type24753 t26742; struct structure_type24753 t26743; struct structure_type24753 t26744; struct structure_type24753 t26745; struct structure_type24753 t26746; struct structure_type24753 t26747; struct structure_type24753 t26748; struct structure_type24753 t26749; struct structure_type24753 t26750; struct structure_type24753 t26751; struct structure_type24753 t26752; struct structure_type24753 t26753; struct structure_type24753 t26754; struct structure_type24753 t26755; struct structure_type24753 t26756; struct structure_type24753 t26757; struct structure_type24753 t26758; struct structure_type24753 t26759; struct structure_type24753 t26764; struct structure_type24753 t26765; struct structure_type24753 t26766; struct structure_type24753 t26767; struct structure_type24753 t26768; struct structure_type24753 t26769; struct structure_type24753 t26770; struct structure_type24753 t26771; struct structure_type24753 t26772; struct structure_type24753 t26773; struct structure_type24753 t26774; struct structure_type24753 t26775; struct structure_type24753 t26776; struct structure_type24753 t26777; struct structure_type24753 t26778; struct structure_type24753 t26779; struct structure_type24753 t26780; struct structure_type24753 t26781; struct structure_type24753 t26782; struct structure_type24753 t26783; struct structure_type24753 t26784; struct structure_type24753 t26785; struct structure_type24753 t26786; struct structure_type24753 t26787; struct structure_type24753 t26788; struct structure_type24753 t26789; struct structure_type24753 t26790; struct structure_type24753 t26791; struct structure_type24753 t26792; struct structure_type24753 t26793; struct structure_type24753 t26794; struct structure_type24753 t26795; struct structure_type24753 t26796; struct structure_type24753 t26797; struct structure_type24753 t26798; struct structure_type24753 t26803; struct structure_type24753 t26804; struct structure_type24753 t26805; struct structure_type24753 t26806; struct structure_type24753 t26807; struct structure_type24753 t26808; struct structure_type24753 t26809; struct structure_type24753 t26810; struct structure_type24753 t26811; struct structure_type24753 t26812; struct structure_type24753 t26813; struct structure_type24753 t26814; struct structure_type24753 t26815; struct structure_type24753 t26816; struct structure_type24753 t26817; struct structure_type24753 t26818; struct structure_type24753 t26819; struct structure_type24753 t26820; struct structure_type24753 t26821; struct structure_type24753 t26822; struct structure_type24753 t26823; struct structure_type24753 t26824; struct structure_type24753 t26825; struct structure_type24753 t26826; struct structure_type24753 t26827; struct structure_type24753 t26828; struct structure_type24753 t26829; struct structure_type24753 t26830; struct structure_type24753 t26831; struct structure_type24753 t26832; struct structure_type24753 t26833; struct structure_type24753 t26834; struct structure_type24753 t26835; struct structure_type24753 t26836; struct structure_type24753 t26837; struct structure_type24753 t26838; struct structure_type24753 t26839; struct structure_type24753 t26840; struct structure_type24753 t26841; struct structure_type24753 t26842; struct structure_type24753 t26843; struct structure_type24753 t26844; struct structure_type24753 t26845; struct structure_type24753 t26846; struct structure_type24753 t26847; struct structure_type24753 t26848; struct structure_type24753 t26849; struct structure_type24753 t26850; struct structure_type24753 t26851; struct structure_type24753 t26852; struct structure_type24753 t26853; struct structure_type24753 t26854; struct structure_type24753 t26855; struct structure_type24753 t26860; struct structure_type24753 t26861; struct structure_type24753 t26862; struct structure_type24753 t26863; struct structure_type24753 t26864; struct structure_type24753 t26865; struct structure_type24753 t26866; struct structure_type24753 t26867; struct structure_type24753 t26868; struct structure_type24753 t26869; struct structure_type24753 t26870; struct structure_type24753 t26871; struct structure_type24753 t26872; struct structure_type24753 t26873; struct structure_type24753 t26874; struct structure_type24753 t26875; struct structure_type24753 t26876; struct structure_type24753 t26877; struct structure_type24753 t26878; struct structure_type24753 t26879; struct structure_type24753 t26880; struct structure_type24753 t26881; struct structure_type24753 t26882; struct structure_type24753 t26883; struct structure_type24753 t26884; struct structure_type24753 t26885; struct structure_type24753 t26886; struct structure_type24753 t26887; struct structure_type24753 t26888; struct structure_type24753 t26889; struct structure_type24753 t26890; struct structure_type24753 t26891; struct structure_type24753 t26892; struct structure_type24753 t26893; struct structure_type24753 t26894; struct structure_type24753 t26895; struct structure_type24753 t26896; struct structure_type24753 t26897; struct structure_type24753 t26898; struct structure_type24753 t26899; struct structure_type24753 t26900; struct structure_type24753 t26901; struct structure_type24753 t26902; struct structure_type24753 t26903; struct structure_type24753 t26904; struct structure_type24753 t26905; struct structure_type24753 t26906; struct structure_type24753 t26907; struct structure_type24753 t26908; struct structure_type24753 t26909; struct structure_type24753 t26910; struct structure_type24753 t26911; struct structure_type24753 t26912; struct structure_type24753 t26913; struct structure_type24753 t26914; struct structure_type24753 t26915; struct structure_type24753 t26916; struct structure_type24753 t26917; struct structure_type24753 t26918; struct structure_type24753 t26919; struct structure_type24753 t26920; struct structure_type24753 t26921; struct structure_type24753 t26922; struct structure_type24753 t26923; struct structure_type24753 t26924; struct structure_type24753 t26925; struct structure_type24753 t26926; struct structure_type24753 t26927; struct structure_type24753 t26928; struct structure_type24753 t26929; struct structure_type24753 t26930; struct structure_type24753 t26931; struct structure_type24753 t26932; struct structure_type24753 t26933; struct structure_type24753 t26934; struct structure_type24753 t26935; struct structure_type24753 t26936; struct structure_type24753 t26937; struct structure_type24753 t26938; struct structure_type24753 t26939; struct structure_type24753 t26940; struct structure_type24753 t26941; struct structure_type24753 t26942; struct structure_type24753 t26943; struct structure_type24753 t26944; struct structure_type24753 t26945; struct structure_type24753 t26946; struct structure_type24753 t26947; struct structure_type24753 t26948; struct structure_type24753 t26949; struct structure_type24753 t26950; struct structure_type24753 t26951; struct structure_type24753 t26952; struct structure_type24753 t26953; struct structure_type24753 t26954; struct structure_type24753 t26955; struct structure_type24753 t26956; struct structure_type24753 t26957; struct structure_type24753 t26958; struct structure_type24753 t26959; struct structure_type24753 t26960; struct structure_type24753 t26961; struct structure_type24753 t26962; struct structure_type24753 t26963; struct structure_type24753 t26964; struct structure_type24753 t26965; struct structure_type24753 t26966; struct structure_type24753 t26967; struct structure_type24753 t26972; struct structure_type24753 t26973; struct structure_type24753 t26974; struct structure_type24753 t26975; struct structure_type24753 t26976; struct structure_type24753 t26977; struct structure_type24753 t26978; struct structure_type24753 t26979; struct structure_type24753 t26980; struct structure_type24753 t26981; struct structure_type24753 t26982; struct structure_type24753 t26983; struct structure_type24753 t26984; struct structure_type24753 t26985; struct structure_type24753 t26986; struct structure_type24753 t26987; struct structure_type24753 t26988; struct structure_type24753 t26989; struct structure_type24753 t26990; struct structure_type24753 t26991; struct structure_type24753 t26992; struct structure_type24753 t26993; struct structure_type24753 t26994; struct structure_type24753 t26995; struct structure_type24753 t26996; struct structure_type24753 t26997; struct structure_type24753 t26998; struct structure_type24753 t26999; struct structure_type24753 t27000; struct structure_type24753 t27001; struct structure_type24753 t27002; struct structure_type24753 t27003; struct structure_type24753 t27004; struct structure_type24753 t27005; struct structure_type24753 t27006; struct structure_type24753 t27007; struct structure_type24753 t27008; struct structure_type24753 t27009; struct structure_type24753 t27010; struct structure_type24753 t27011; struct structure_type24753 t27012; struct structure_type24753 t27013; struct structure_type24753 t27014; struct structure_type24753 t27015; struct structure_type24753 t27016; struct structure_type24753 t27017; struct structure_type24753 t27018; struct structure_type24753 t27019; struct structure_type24753 t27020; struct structure_type24753 t27021; struct structure_type24753 t27022; struct structure_type24753 t27023; struct structure_type24753 t27024; struct structure_type24753 t27025; struct structure_type24753 t27026; struct structure_type24753 t27027; struct structure_type24753 t27032; struct structure_type24753 t27033; struct structure_type24753 t27034; struct structure_type24753 t27035; struct structure_type24753 t27036; struct structure_type24753 t27037; struct structure_type24753 t27038; struct structure_type24753 t27039; struct structure_type24753 t27040; struct structure_type24753 t27041; struct structure_type24753 t27042; struct structure_type24753 t27043; struct structure_type24753 t27044; struct structure_type24753 t27045; struct structure_type24753 t27046; struct structure_type24753 t27047; struct structure_type24753 t27048; struct structure_type24753 t27049; struct structure_type24753 t27050; struct structure_type24753 t27051; struct structure_type24753 t27052; struct structure_type24753 t27053; struct structure_type24753 t27054; struct structure_type24753 t27055; struct structure_type24753 t27056; struct structure_type24753 t27057; struct structure_type24753 t27058; struct structure_type24753 t27059; struct structure_type24753 t27060; struct structure_type24753 t27061; struct structure_type24753 t27062; struct structure_type24753 t27063; struct structure_type24753 t27064; struct structure_type24753 t27065; struct structure_type24753 t27066; struct structure_type24753 t27067; struct structure_type24753 t27068; struct structure_type24753 t27069; struct structure_type24753 t27070; struct structure_type24753 t27071; struct structure_type24753 t27072; struct structure_type24753 t27073; struct structure_type24753 t27074; struct structure_type24753 t27075; struct structure_type24753 t27076; struct structure_type24753 t27077; struct structure_type24753 t27078; struct structure_type24753 t27079; struct structure_type24753 t27084; struct structure_type24753 t27085; struct structure_type24753 t27086; struct structure_type24753 t27087; struct structure_type24753 t27088; struct structure_type24753 t27089; struct structure_type24753 t27090; struct structure_type24753 t27091; struct structure_type24753 t27092; struct structure_type24753 t27097; struct structure_type24753 t27098; struct structure_type24753 t27099; struct structure_type24753 t27100; struct structure_type24753 t27101; struct structure_type24753 t27102; struct structure_type24753 t27103; struct structure_type24753 t27104; struct structure_type24753 t27105; struct structure_type24753 t27106; struct structure_type24753 t27107; struct structure_type24753 t27108; struct structure_type24753 t27109; struct structure_type24753 t27110; struct structure_type24753 t27111; struct structure_type24753 t27112; struct structure_type24753 t27113; struct structure_type24753 t27114; struct structure_type24753 t27115; struct structure_type24753 t27116; struct structure_type24753 t27117; struct structure_type24753 t27118; struct structure_type24753 t27119; struct structure_type24753 t27120; struct structure_type24753 t27121; struct structure_type24753 t27122; struct structure_type24753 t27123; struct structure_type24753 t27124; struct structure_type24753 t27125; struct structure_type24753 t27126; struct structure_type24753 t27127; struct structure_type24753 t27128; struct structure_type24753 t27129; struct structure_type24753 t27130; struct structure_type24753 t27131; struct structure_type24753 t27132; struct structure_type24753 t27133; struct structure_type24753 t27134; struct structure_type24753 t27135; struct structure_type24753 t27136; struct structure_type24753 t27137; struct structure_type24753 t27138; struct structure_type24753 t27139; struct structure_type24753 t27140; struct structure_type24753 t27141; struct structure_type24753 t27142; struct structure_type24753 t27143; struct structure_type24753 t27144; struct structure_type24753 t27145; struct structure_type24753 t27146; struct structure_type24753 t27147; struct structure_type24753 t27148; struct structure_type24753 t27149; struct structure_type24753 t27150; struct structure_type24753 t27151; struct structure_type24753 t27152; struct structure_type24753 t27153; struct structure_type24753 t27154; struct structure_type24753 t27155; struct structure_type24753 t27156; struct structure_type24753 t27157; struct structure_type24753 t27158; struct structure_type24753 t27159; struct structure_type24753 t27160; struct structure_type24753 t27161; struct structure_type24753 t27162; struct structure_type24753 t27163; struct structure_type24753 t27164; struct structure_type24753 t27165; struct structure_type24753 t27166; struct structure_type24753 t27167; struct structure_type24753 t27168; struct structure_type24753 t27169; struct structure_type24753 t27170; struct structure_type24753 t27171; struct structure_type24753 t27172; struct structure_type24753 t27173; struct structure_type24753 t27174; struct structure_type24753 t27175; struct structure_type24753 t27176; struct structure_type24753 t27181; struct structure_type24753 t27182; struct structure_type24753 t27183; struct structure_type24753 t27184; struct structure_type24753 t27185; struct structure_type24753 t27186; struct structure_type24753 t27187; struct structure_type24753 t27188; struct structure_type24753 t27189; struct structure_type24753 t27190; struct structure_type24753 t27191; struct structure_type24753 t27192; struct structure_type24753 t27193; struct structure_type24753 t27194; struct structure_type24753 t27195; struct structure_type24753 t27196; struct structure_type24753 t27197; struct structure_type24753 t27198; struct structure_type24753 t27199; struct structure_type24753 t27200; struct structure_type24753 t27201; struct structure_type24753 t27202; struct structure_type24753 t27203; struct structure_type24753 t27204; struct structure_type24753 t27205; struct structure_type24753 t27206; struct structure_type24753 t27207; struct structure_type24753 t27208; struct structure_type24753 t27209; struct structure_type24753 t27210; struct structure_type24753 t27211; struct structure_type24753 t27212; struct structure_type24753 t27213; struct structure_type24753 t27214; struct structure_type24753 t27215; struct structure_type24753 t27216; struct structure_type24753 t27217; struct structure_type24753 t27218; struct structure_type24753 t27219; struct structure_type24753 t27220; struct structure_type24753 t27221; struct structure_type24753 t27222; struct structure_type24753 t27223; struct structure_type24753 t27224; struct structure_type24753 t27225; struct structure_type24753 t27226; struct structure_type24753 t27227; struct structure_type24753 t27228; struct structure_type24753 t27229; struct structure_type24753 t27230; struct structure_type24753 t27231; struct structure_type24753 t27232; struct structure_type24753 t27233; struct structure_type24753 t27234; struct structure_type24753 t27235; struct structure_type24753 t27236; struct structure_type24753 t27237; struct structure_type24753 t27238; struct structure_type24753 t27239; struct structure_type24753 t27240; struct structure_type24753 t27241; struct structure_type24753 t27242; struct structure_type24753 t27243; struct structure_type24753 t27244; struct structure_type24753 t27245; struct structure_type24753 t27246; struct structure_type24753 t27247; struct structure_type24753 t27248; struct structure_type24753 t27249; struct structure_type24753 t27250; struct structure_type24753 t27251; struct structure_type24753 t27252; struct structure_type24753 t27253; struct structure_type24753 t27254; struct structure_type24753 t27255; struct structure_type24753 t27256; struct structure_type24753 t27257; struct structure_type24753 t27258; struct structure_type24753 t27259; struct structure_type24753 t27260; struct structure_type24753 t27261; struct structure_type24753 t27262; struct structure_type24753 t27263; struct structure_type24753 t27264; struct structure_type24753 t27265; struct structure_type24753 t27266; struct structure_type24753 t27267; struct structure_type24753 t27268; struct structure_type24753 t27269; struct structure_type24753 t27270; struct structure_type24753 t27271; struct structure_type24753 t27272; struct structure_type24753 t27273; struct structure_type24753 t27274; struct structure_type24753 t27275; struct structure_type24753 t27276; struct structure_type24753 t27277; struct structure_type24753 t27278; struct structure_type24753 t27279; struct structure_type24753 t27280; struct structure_type24753 t27281; struct structure_type24753 t27282; struct structure_type24753 t27283; struct structure_type24753 t27284; struct structure_type24753 t27285; struct structure_type24753 t27286; struct structure_type24753 t27287; struct structure_type24753 t27288; struct structure_type24753 t27289; struct structure_type24753 t27290; struct structure_type24753 t27291; struct structure_type24753 t27292; struct structure_type24753 t27293; struct structure_type24753 t27294; struct structure_type24753 t27295; struct structure_type24753 t27296; struct structure_type24753 t27297; struct structure_type24753 t27298; struct structure_type24753 t27299; struct structure_type24753 t27300; struct structure_type24753 t27301; struct structure_type24753 t27302; struct structure_type24753 t27303; struct structure_type24753 t27304; struct structure_type24753 t27305; struct structure_type24753 t27306; struct structure_type24753 t27307; struct structure_type24753 t27308; struct structure_type24753 t27309; struct structure_type24753 t27310; struct structure_type24753 t27311; struct structure_type24753 t27312; struct structure_type24753 t27313; struct structure_type24753 t27314; struct structure_type24753 t27315; struct structure_type24753 t27316; struct structure_type24753 t27317; struct structure_type24753 t27318; struct structure_type24753 t27319; struct structure_type24753 t27320; struct structure_type24753 t27321; struct structure_type24753 t27322; struct structure_type24753 t27323; struct structure_type24753 t27324; struct structure_type24753 t27325; struct structure_type24753 t27326; struct structure_type24753 t27327; struct structure_type24753 t27328; struct structure_type24753 t27329; struct structure_type24753 t27330; struct structure_type24753 t27331; struct structure_type24753 t27332; struct structure_type24753 t27333; struct structure_type24753 t27334; struct structure_type24753 t27335; struct structure_type24753 t27336; struct structure_type24753 t27337; struct structure_type24753 t27338; struct structure_type24753 t27339; struct structure_type24753 t27340; struct structure_type24753 t27341; struct structure_type24753 t27342; struct structure_type24753 t27343; struct structure_type24753 t27344; struct structure_type24753 t27345; struct structure_type24753 t27346; struct structure_type24753 t27347; struct structure_type24753 t27348; struct structure_type24753 t27349; struct structure_type24753 t27350; struct structure_type24753 t27351; struct structure_type24753 t27352; struct structure_type24753 t27353; struct structure_type24753 t27354; struct structure_type24753 t27355; struct structure_type24753 t27356; struct structure_type24753 t27357; struct structure_type24753 t27358; struct structure_type24753 t27359; struct structure_type24753 t27360; struct structure_type24753 t27361; struct structure_type24753 t27362; struct structure_type24753 t27363; struct structure_type24753 t27364; struct structure_type24753 t27365; struct structure_type24753 t27366; struct structure_type24753 t27367; struct structure_type24753 t27368; struct structure_type24753 t27369; struct structure_type24753 t27370; struct structure_type24753 t27371; struct structure_type24753 t27372; struct structure_type24753 t27373; struct structure_type24753 t27374; struct structure_type24753 t27375; struct structure_type24753 t27376; struct structure_type24753 t27377; struct structure_type24753 t27378; struct structure_type24753 t27379; struct structure_type24753 t27384; struct structure_type24753 t27385; struct structure_type24753 t27386; struct structure_type24753 t27387; struct structure_type24753 t27388; struct structure_type24753 t27389; struct structure_type24753 t27390; struct structure_type24753 t27391; struct structure_type24753 t27392; struct structure_type24753 t27393; struct structure_type24753 t27394; struct structure_type24753 t27395; struct structure_type24753 t27396; struct structure_type24753 t27397; struct structure_type24753 t27398; struct structure_type24753 t27399; struct structure_type24753 t27400; struct structure_type24753 t27401; struct structure_type24753 t27402; struct structure_type24753 t27403; struct structure_type24753 t27404; struct structure_type24753 t27405; struct structure_type24753 t27406; struct structure_type24753 t27407; struct structure_type24753 t27408; struct structure_type24753 t27409; struct structure_type24753 t27410; struct structure_type24753 t27411; struct structure_type24753 t27412; struct structure_type24753 t27413; struct structure_type24753 t27414; struct structure_type24753 t27415; struct structure_type24753 t27416; struct structure_type24753 t27417; struct structure_type24753 t27418; struct structure_type24753 t27419; struct structure_type24753 t27420; struct structure_type24753 t27421; struct structure_type24753 t27422; struct structure_type24753 t27423; struct structure_type24753 t27424; struct structure_type24753 t27425; struct structure_type24753 t27426; struct structure_type24753 t27427; struct structure_type24753 t27428; struct structure_type24753 t27429; struct structure_type24753 t27430; struct structure_type24753 t27431; struct structure_type24753 t27432; struct structure_type24753 t27433; struct structure_type24753 t27434; struct structure_type24753 t27435; struct structure_type24753 t27436; struct structure_type24753 t27437; struct structure_type24753 t27438; struct structure_type24753 t27439; struct structure_type24753 t27440; struct structure_type24753 t27441; struct structure_type24753 t27442; struct structure_type24753 t27443; struct structure_type24753 t27444; struct structure_type24753 t27445; struct structure_type24753 t27446; struct structure_type24753 t27447; struct structure_type24753 t27448; struct structure_type24753 t27449; struct structure_type24753 t27450; struct structure_type24753 t27451; struct structure_type24753 t27452; struct structure_type24753 t27453; struct structure_type24753 t27454; struct structure_type24753 t27455; struct structure_type24753 t27456; struct structure_type24753 t27457; struct structure_type24753 t27458; struct structure_type24753 t27459; struct structure_type24753 t27460; struct structure_type24753 t27461; struct structure_type24753 t27462; struct structure_type24753 t27463; struct structure_type24753 t27464; struct structure_type24753 t27465; struct structure_type24753 t27466; struct structure_type24753 t27467; struct structure_type24753 t27468; struct structure_type24753 t27469; struct structure_type24753 t27470; struct structure_type24753 t27471; struct structure_type24753 t27472; struct structure_type24753 t27473; struct structure_type24753 t27474; struct structure_type24753 t27475; struct structure_type24753 t27476; struct structure_type24753 t27477; struct structure_type24753 t27478; struct structure_type24753 t27479; struct structure_type24753 t27480; struct structure_type24753 t27481; struct structure_type24753 t27482; struct structure_type24753 t27483; struct structure_type24753 t27484; struct structure_type24753 t27485; struct structure_type24753 t27486; struct structure_type24753 t27487; struct structure_type24753 t27488; struct structure_type24753 t27489; struct structure_type24753 t27490; struct structure_type24753 t27491; struct structure_type24753 t27492; struct structure_type24753 t27493; struct structure_type24753 t27494; struct structure_type24753 t27495; struct structure_type24753 t27496; struct structure_type24753 t27497; struct structure_type24753 t27498; struct structure_type24753 t27499; struct structure_type24753 t27500; struct structure_type24753 t27501; struct structure_type24753 t27502; struct structure_type24753 t27503; struct structure_type24753 t27504; struct structure_type24753 t27505; struct structure_type24753 t27506; struct structure_type24753 t27507; struct structure_type24753 t27508; struct structure_type24753 t27509; struct structure_type24753 t27510; struct structure_type24753 t27511; struct structure_type24753 t27512; struct structure_type24753 t27513; struct structure_type24753 t27514; struct structure_type24753 t27515; struct structure_type24753 t27516; struct structure_type24753 t27517; struct structure_type24753 t27518; struct structure_type24753 t27519; struct structure_type24753 t27520; struct structure_type24753 t27521; struct structure_type24753 t27522; struct structure_type24753 t27523; struct structure_type24753 t27524; struct structure_type24753 t27525; struct structure_type24753 t27526; struct structure_type24753 t27527; struct structure_type24753 t27528; struct structure_type24753 t27529; struct structure_type24753 t27530; struct structure_type24753 t27531; struct structure_type24753 t27532; struct structure_type24753 t27533; struct structure_type24753 t27534; struct structure_type24753 t27535; struct structure_type24753 t27536; struct structure_type24753 t27537; struct structure_type24753 t27538; struct structure_type24753 t27539; struct structure_type24753 t27540; struct structure_type24753 t27541; struct structure_type24753 t27542; struct structure_type24753 t27543; struct structure_type24753 t27544; struct structure_type24753 t27545; struct structure_type24753 t27546; struct structure_type24753 t27547; struct structure_type24753 t27548; struct structure_type24753 t27549; struct structure_type24753 t27550; struct structure_type24753 t27551; struct structure_type24753 t27552; struct structure_type24753 t27553; struct structure_type24753 t27554; struct structure_type24753 t27555; struct structure_type24753 t27556; struct structure_type24753 t27557; struct structure_type24753 t27558; struct structure_type24753 t27559; struct structure_type24753 t27560; struct structure_type24753 t27561; struct structure_type24753 t27566; struct structure_type24753 t27567; struct structure_type24753 t27568; struct structure_type24753 t27569; struct structure_type24753 t27570; struct structure_type24753 t27571; struct structure_type24753 t27576; struct structure_type24753 t27577; struct structure_type24753 t27578; struct structure_type24753 t27579; struct structure_type24753 t27580; struct structure_type24753 t27581; struct structure_type24753 t27582; struct structure_type24753 t27583; struct structure_type24753 t27584; struct structure_type24753 t27589; struct structure_type24753 t27590; struct structure_type24753 t27591; struct structure_type24753 t27592; struct structure_type24753 t27593; struct structure_type24753 t27594; struct structure_type24753 t27595; struct structure_type24753 t27596; struct structure_type24753 t27597; struct structure_type24753 t27598; struct structure_type24753 t27599; struct structure_type24753 t27600; struct structure_type24753 t27601; struct structure_type24753 t27602; struct structure_type24753 t27603; struct structure_type24753 t27604; struct structure_type24753 t27605; struct structure_type24753 t27606; struct structure_type24753 t27607; struct structure_type24753 t27608; struct structure_type24753 t27609; struct structure_type24753 t27610; struct structure_type24753 t27615; struct structure_type24753 t27616; struct structure_type24753 t27617; struct structure_type24753 t27618; struct structure_type24753 t27619; struct structure_type24753 t27620; struct structure_type24753 t27621; struct structure_type24753 t27622; struct structure_type24753 t27623; struct structure_type24753 t27624; struct structure_type24753 t27625; struct structure_type24753 t27626; struct structure_type24753 t27627; struct structure_type24753 t27628; struct structure_type24753 t27629; struct structure_type24753 t27630; struct structure_type24753 t27631; struct structure_type24753 t27632; struct structure_type24753 t27633; struct structure_type24753 t27634; struct structure_type24753 t27635; struct structure_type24753 t27636; struct structure_type24753 t27641; struct structure_type24753 t27642; struct structure_type24753 t27643; struct structure_type24753 t27644; struct structure_type24753 t27645; struct structure_type24753 t27646; struct structure_type24753 t27647; struct structure_type24753 t27648; struct structure_type24753 t27649; struct structure_type24753 t27654; struct structure_type24753 t27655; struct structure_type24753 t27656; struct structure_type24753 t27657; struct structure_type24753 t27658; struct structure_type24753 t27659; struct structure_type24753 t27660; struct structure_type24753 t27661; struct structure_type24753 t27662; struct structure_type24753 t27667; struct structure_type24753 t27668; struct structure_type24753 t27669; struct structure_type24753 t27670; struct structure_type24753 t27671; struct structure_type24753 t27672; struct structure_type24753 t27677; struct structure_type24753 t27678; struct structure_type24753 t27679; struct structure_type24753 t27680; struct structure_type24753 t27681; struct structure_type24753 t27682; struct structure_type24753 t27687; struct structure_type24753 t27688; struct structure_type24753 t27689; struct structure_type24753 t27690; struct structure_type24753 t27691; struct structure_type24753 t27692; struct structure_type24753 t27697; struct structure_type24753 t27698; struct structure_type24753 t27699; struct structure_type24753 t27700; struct structure_type24753 t27701; struct structure_type24753 t27702; struct structure_type24753 t27707; struct structure_type24753 t27708; struct structure_type24753 t27709; struct structure_type24753 t27710; struct structure_type24753 t27711; struct structure_type24753 t27712; struct structure_type24753 t27713; struct structure_type24753 t27714; struct structure_type24753 t27715; struct structure_type24753 t27720; struct structure_type24753 t27721; struct structure_type24753 t27722; struct structure_type24753 t27723; struct structure_type24753 t27724; struct structure_type24753 t27725; struct structure_type24753 t27726; struct structure_type24753 t27727; struct structure_type24753 t27728; struct structure_type24753 t27733; struct structure_type24753 t27734; struct structure_type24753 t27735; struct structure_type24753 t27736; struct structure_type24753 t27737; struct structure_type24753 t27738; struct structure_type24753 t27739; struct structure_type24753 t27740; struct structure_type24753 t27741; struct structure_type24753 t27746; struct structure_type24753 t27747; struct structure_type24753 t27748; struct structure_type24753 t27749; struct structure_type24753 t27750; struct structure_type24753 t27751; struct structure_type24753 t27752; struct structure_type24753 t27753; struct structure_type24753 t27754; struct structure_type24753 t27763; struct structure_type24753 t27764; struct structure_type24753 t27765; struct structure_type24753 t27766; struct structure_type24753 t27767; struct structure_type24753 t27768; struct structure_type24753 t27773; struct structure_type24753 t27774; struct structure_type24753 t27775; struct structure_type24753 t27776; struct structure_type24753 t27777; struct structure_type24753 t27778; struct structure_type24753 t27783; struct structure_type24753 t27784; struct structure_type24753 t27785; struct structure_type24753 t27786; struct structure_type24753 t27787; struct structure_type24753 t27788; struct structure_type24753 t27789; struct structure_type24753 t27790; struct structure_type24753 t27791; struct structure_type24753 t27796; struct structure_type24753 t27797; struct structure_type24753 t27798; struct structure_type24753 t27799; struct structure_type24753 t27800; struct structure_type24753 t27801; struct structure_type24753 t27806; struct structure_type24753 t27807; struct structure_type24753 t27808; struct structure_type24753 t27809; struct structure_type24753 t27810; struct structure_type24753 t27811; struct structure_type24753 t27816; struct structure_type24753 t27817; struct structure_type24753 t27818; struct structure_type24753 t27819; struct structure_type24753 t27820; struct structure_type24753 t27821; struct structure_type24753 t27826; struct structure_type24753 t27827; struct structure_type24753 t27828; struct structure_type24753 t27829; struct structure_type24753 t27830; struct structure_type24753 t27831; struct structure_type24753 t27836; struct structure_type24753 t27837; struct structure_type24753 t27838; struct structure_type24753 t27839; struct structure_type24753 t27840; struct structure_type24753 t27841; struct structure_type24753 t27846; struct structure_type24753 t27847; struct structure_type24753 t27848; struct structure_type24753 t27849; struct structure_type24753 t27850; struct structure_type24753 t27851; struct structure_type24753 t27856; struct structure_type24753 t27857; struct structure_type24753 t27858; struct structure_type24753 t27859; struct structure_type24753 t27860; struct structure_type24753 t27861; struct structure_type24753 t27870; struct structure_type24753 t27871; struct structure_type24753 t27872; struct structure_type24753 t27873; struct structure_type24753 t27874; struct structure_type24753 t27875; struct structure_type24753 t27876; struct structure_type24753 t27877; struct structure_type24753 t27878; struct structure_type24753 t27883; struct structure_type24753 t27884; struct structure_type24753 t27885; struct structure_type24753 t27886; struct structure_type24753 t27887; struct structure_type24753 t27888; struct structure_type24753 t27889; struct structure_type24753 t27890; struct structure_type24753 t27891; struct structure_type24753 t27896; struct structure_type24753 t27897; struct structure_type24753 t27898; struct structure_type24753 t27899; struct structure_type24753 t27900; struct structure_type24753 t27901; struct structure_type24753 t27902; struct structure_type24753 t27903; struct structure_type24753 t27904; struct structure_type24753 t27909; struct structure_type24753 t27910; struct structure_type24753 t27911; struct structure_type24753 t27912; struct structure_type24753 t27913; struct structure_type24753 t27914; struct structure_type24753 t27915; struct structure_type24753 t27916; struct structure_type24753 t27917; struct structure_type24753 t27922; struct structure_type24753 t27923; struct structure_type24753 t27924; struct structure_type24753 t27925; struct structure_type24753 t27926; struct structure_type24753 t27927; struct structure_type24753 t27928; struct structure_type24753 t27929; struct structure_type24753 t27930; struct structure_type24753 t27935; struct structure_type24753 t27936; struct structure_type24753 t27937; struct structure_type24753 t27938; struct structure_type24753 t27939; struct structure_type24753 t27940; struct structure_type24753 t27941; struct structure_type24753 t27942; struct structure_type24753 t27943; struct structure_type24753 t27956; struct structure_type24753 t27969; struct structure_type24753 t27982; struct structure_type24753 t27995; struct structure_type24753 t28006; struct structure_type24753 t28007; struct structure_type24753 t28008; struct structure_type24753 t28009; struct structure_type24753 t28010; struct structure_type24753 t28011; struct structure_type24753 t28012; struct structure_type24753 t28013; struct structure_type24753 t28014; struct structure_type24753 t28015; struct structure_type24753 t28016; struct structure_type24753 t28017; struct structure_type24753 t28018; struct structure_type24753 t28019; struct structure_type24753 t28020; struct structure_type24753 t28021; struct structure_type24753 t28022; struct structure_type24753 t28023; struct structure_type24753 t28024; struct structure_type24753 t28025; struct structure_type24753 t28026; struct structure_type24753 t28027; struct structure_type24753 t28028; struct structure_type24753 t28029; struct structure_type24753 t28030; struct structure_type24753 t28031; struct structure_type24753 t28032; struct structure_type24753 t28033; struct structure_type24753 t28034; struct structure_type24753 t28035; struct structure_type24753 t28036; struct structure_type24753 t28037; struct structure_type24753 t28038; struct structure_type24753 t28039; struct structure_type24753 t28040; struct structure_type24753 t28041; struct structure_type24753 t28042; struct structure_type24753 t28043; struct structure_type24753 t28044; struct structure_type24753 t28045; struct structure_type24753 t28046; struct structure_type24753 t28047; struct structure_type24753 t28048; struct structure_type24753 t28049; struct structure_type24753 t28050; struct structure_type24753 t28051; struct structure_type24753 t28052; struct structure_type24753 t28053; struct structure_type24753 t28054; struct structure_type24753 t28055; struct structure_type24753 t28056; struct structure_type24753 t28057; struct structure_type24753 t28058; struct structure_type24753 t28059; struct structure_type24753 t28060; struct structure_type24753 t28061; struct structure_type24753 t28062; struct structure_type24753 t28063; struct structure_type24753 t28064; struct structure_type24753 t28065; struct structure_type24753 t28066; struct structure_type24753 t28067; struct structure_type24753 t28068; struct structure_type24753 t28069; struct structure_type24753 t28070; struct structure_type24753 t28071; struct structure_type24753 t28072; struct structure_type24753 t28073; struct structure_type24753 t28074; struct structure_type24753 t28075; struct structure_type24753 t28076; struct structure_type24753 t28077; struct structure_type24753 t28078; struct structure_type24753 t28079; struct structure_type24753 t28080; struct structure_type24753 t28081; struct structure_type24753 t28082; struct structure_type24753 t28083; struct structure_type24753 t28084; struct structure_type24753 t28085; struct structure_type24753 t28086; struct structure_type24753 t28087; struct structure_type24753 t28088; struct structure_type24753 t28089; struct structure_type24753 t28090; struct structure_type24753 t28091; struct structure_type24753 t28092; struct structure_type24753 t28093; struct structure_type24753 t28094; struct structure_type24753 t28095; struct structure_type24753 t28096; struct structure_type24753 t28097; struct structure_type24753 t28098; struct structure_type24753 t28099; struct structure_type24753 t28100; struct structure_type24753 t28101; struct structure_type24753 t28102; struct structure_type24753 t28103; struct structure_type24753 t28104; struct structure_type24753 t28105; struct structure_type24753 t28106; struct structure_type24753 t28107; struct structure_type24753 t28108; struct structure_type24753 t28109; struct structure_type24753 t28110; struct structure_type24753 t28111; struct structure_type24753 t28112; struct structure_type24753 t28113; struct structure_type24753 t28114; struct structure_type24753 t28115; struct structure_type24753 t28116; struct structure_type24753 t28117; struct structure_type24753 t28118; struct structure_type24753 t28119; struct structure_type24753 t28120; struct structure_type24753 t28121; struct structure_type24753 t28122; struct structure_type24753 t28123; struct structure_type24753 t28124; struct structure_type24753 t28125; struct structure_type24753 t28126; struct structure_type24753 t28127; struct structure_type24753 t28128; struct structure_type24753 t28129; struct structure_type24753 t28130; struct structure_type24753 t28131; struct structure_type24753 t28132; struct structure_type24753 t28133; struct structure_type24753 t28134; struct structure_type24753 t28135; struct structure_type24753 t28136; struct structure_type24753 t28137; struct structure_type24753 t28138; struct structure_type24753 t28139; struct structure_type24753 t28140; struct structure_type24753 t28141; struct structure_type24753 t28142; struct structure_type24753 t28143; struct structure_type24753 t28144; struct structure_type24753 t28145; struct structure_type24753 t28146; struct structure_type24753 t28147; struct structure_type24753 t28148; struct structure_type24753 t28149; struct structure_type24753 t28150; struct structure_type24753 t28151; struct structure_type24753 t28152; struct structure_type24753 t28153; struct structure_type24753 t28154; struct structure_type24753 t28155; struct structure_type24753 t28156; struct structure_type24753 t28157; struct structure_type24753 t28158; struct structure_type24753 t28159; struct structure_type24753 t28160; struct structure_type24753 t28161; struct structure_type24753 t28162; struct structure_type24753 t28163; struct structure_type24753 t28164; struct structure_type24753 t28165; struct structure_type24753 t28166; struct structure_type24753 t28167; struct structure_type24753 t28168; struct structure_type24753 t28169; struct structure_type24753 t28170; struct structure_type24753 t28171; struct structure_type24753 t28172; struct structure_type24753 t28173; struct structure_type24753 t28174; struct structure_type24753 t28175; struct structure_type24753 t28176; struct structure_type24753 t28177; struct structure_type24753 t28178; struct structure_type24753 t28179; struct structure_type24753 t28180; struct structure_type24753 t28181; struct structure_type24753 t28182; struct structure_type24753 t28183; struct structure_type24753 t28184; struct structure_type24753 t28185; struct structure_type24753 t28186; struct structure_type24753 t28187; struct structure_type24753 t28188; struct structure_type24753 t28189; struct structure_type24753 t28190; struct structure_type24753 t28191; struct structure_type24753 t28192; struct structure_type24753 t28193; struct structure_type24753 t28194; struct structure_type24753 t28195; struct structure_type24753 t28196; struct structure_type24753 t28197; struct structure_type24753 t28198; struct structure_type24753 t28199; struct structure_type24753 t28200; struct structure_type24753 t28201; struct structure_type24753 t28202; struct structure_type24753 t28203; struct structure_type24753 t28204; struct structure_type24753 t28205; struct structure_type24753 t28206; struct structure_type24753 t28207; struct structure_type24753 t28208; struct structure_type24753 t28209; struct structure_type24753 t28210; struct structure_type24753 t28211; struct structure_type24753 t28212; struct structure_type24753 t28213; struct structure_type24753 t28214; struct structure_type24753 t28215; struct structure_type24753 t28216; struct structure_type24753 t28217; struct structure_type24753 t28218; struct structure_type24753 t28219; struct structure_type24753 t28220; struct structure_type24753 t28221; struct structure_type24753 t28222; struct structure_type24753 t28223; struct structure_type24753 t28224; struct structure_type24753 t28225; struct structure_type24753 t28226; struct structure_type24753 t28227; struct structure_type24753 t28228; struct structure_type24753 t28229; struct structure_type24753 t28230; struct structure_type24753 t28231; struct structure_type24753 t28232; struct structure_type24753 t28233; struct structure_type24753 t28234; struct structure_type24753 t28235; struct structure_type24753 t28236; struct structure_type24753 t28237; struct structure_type24753 t28238; struct structure_type24753 t28239; struct structure_type24753 t28240; struct structure_type24753 t28241; struct structure_type24753 t28242; struct structure_type24753 t28243; struct structure_type24753 t28244; struct structure_type24753 t28245; struct structure_type24753 t28246; struct structure_type24753 t28247; struct structure_type24753 t28248; struct structure_type24753 t28249; struct structure_type24753 t28250; struct structure_type24753 t28251; struct structure_type24753 t28252; struct structure_type24753 t28253; struct structure_type24753 t28254; struct structure_type24753 t28255; struct structure_type24753 t28256; struct structure_type24753 t28257; struct structure_type24753 t28258; struct structure_type24753 t28259; struct structure_type24753 t28260; struct structure_type24753 t28261; struct structure_type24753 t28262; struct structure_type24753 t28263; struct structure_type24753 t28264; struct structure_type24753 t28265; struct structure_type24753 t28266; struct structure_type24753 t28267; struct structure_type24753 t28268; struct structure_type24753 t28269; struct structure_type24753 t28270; struct structure_type24753 t28271; struct structure_type24753 t28272; struct structure_type24753 t28273; struct structure_type24753 t28274; struct structure_type24753 t28275; struct structure_type24753 t28276; struct structure_type24753 t28277; struct structure_type24753 t28278; struct structure_type24753 t28279; struct structure_type24753 t28280; struct structure_type24753 t28281; struct structure_type24753 t28282; struct structure_type24753 t28283; struct structure_type24753 t28284; struct structure_type24753 t28285; struct structure_type24753 t28286; struct structure_type24753 t28287; struct structure_type24753 t28288; struct structure_type24753 t28289; struct structure_type24753 t28290; struct structure_type24753 t28291; struct structure_type24753 t28292; struct structure_type24753 t28293; struct structure_type24753 t28294; struct structure_type24753 t28295; struct structure_type24753 t28296; struct structure_type24753 t28297; struct structure_type24753 t28298; struct structure_type24753 t28299; struct structure_type24753 t28300; struct structure_type24753 t28301; struct structure_type24753 t28302; struct structure_type24753 t28303; struct structure_type24753 t28304; struct structure_type24753 t28305; struct structure_type24753 t28306; struct structure_type24753 t28307; struct structure_type24753 t28308; struct structure_type24753 t28309; struct structure_type24753 t28310; struct structure_type24753 t28311; struct structure_type24753 t28312; struct structure_type24753 t28313; struct structure_type24753 t28314; struct structure_type24753 t28315; struct structure_type24753 t28316; struct structure_type24753 t28317; struct structure_type24753 t28318; struct structure_type24753 t28319; struct structure_type24753 t28320; struct structure_type24753 t28321; struct structure_type24753 t28322; struct structure_type24753 t28323; struct structure_type24753 t28324; struct structure_type24753 t28325; struct structure_type24753 t28326; struct structure_type24753 t28327; struct structure_type24753 t28328; struct structure_type24753 t28329; struct structure_type24753 t28330; struct structure_type24753 t28331; struct structure_type24753 t28332; struct structure_type24753 t28333; struct structure_type24753 t28334; struct structure_type24753 t28335; struct structure_type24753 t28336; struct structure_type24753 t28337; struct structure_type24753 t28338; struct structure_type24753 t28339; struct structure_type24753 t28340; struct structure_type24753 t28341; struct structure_type24753 t28342; struct structure_type24753 t28343; struct structure_type24753 t28344; struct structure_type24753 t28345; struct structure_type24753 t28346; struct structure_type24753 t28347; struct structure_type24753 t28348; struct structure_type24753 t28349; struct structure_type24753 t28350; struct structure_type24753 t28351; struct structure_type24753 t28352; struct structure_type24753 t28353; struct structure_type24753 t28354; struct structure_type24753 t28355; struct structure_type24753 t28356; struct structure_type24753 t28357; struct structure_type24753 t28358; struct structure_type24753 t28359; struct structure_type24753 t28360; struct structure_type24753 t28361; struct structure_type24753 t28362; struct structure_type24753 t28363; struct structure_type24753 t28364; struct structure_type24753 t28365; struct structure_type24753 t28366; struct structure_type24753 t28367; struct structure_type24753 t28368; struct structure_type24753 t28369; struct structure_type24753 t28370; struct structure_type24753 t28371; struct structure_type24753 t28372; struct structure_type24753 t28373; struct structure_type24753 t28374; struct structure_type24753 t28375; struct structure_type24753 t28376; struct structure_type24753 t28377; struct structure_type24753 t28378; struct structure_type24753 t28379; struct structure_type24753 t28380; struct structure_type24753 t28381; struct structure_type24753 t28382; struct structure_type24753 t28383; struct structure_type24753 t28384; struct structure_type24753 t28385; struct structure_type24753 t28386; struct structure_type24753 t28387; struct structure_type24753 t28388; struct structure_type24753 t28389; struct structure_type24753 t28390; struct structure_type24753 t28391; struct structure_type24753 t28392; struct structure_type24753 t28393; struct structure_type24753 t28394; struct structure_type24753 t28395; struct structure_type24753 t28396; struct structure_type24753 t28397; struct structure_type24753 t28398; struct structure_type24753 t28399; struct structure_type24753 t28400; struct structure_type24753 t28401; struct structure_type24753 t28402; struct structure_type24753 t28403; struct structure_type24753 t28404; struct structure_type24753 t28405; struct structure_type24753 t28406; struct structure_type24753 t28407; struct structure_type24753 t28408; struct structure_type24753 t28409; struct structure_type24753 t28410; struct structure_type24753 t28411; struct structure_type24753 t28412; struct structure_type24753 t28413; struct structure_type24753 t28414; struct structure_type24753 t28415; struct structure_type24753 t28416; struct structure_type24753 t28417; struct structure_type24753 t28418; struct structure_type24753 t28419; struct structure_type24753 t28420; struct structure_type24753 t28421; struct structure_type24753 t28422; struct structure_type24753 t28423; struct structure_type24753 t28424; struct structure_type24753 t28425; struct structure_type24753 t28426; struct structure_type24753 t28427; struct structure_type24753 t28428; struct structure_type24753 t28429; struct structure_type24753 t28430; struct structure_type24753 t28431; struct structure_type24753 t28432; struct structure_type24753 t28433; struct structure_type24753 t28434; struct structure_type24753 t28435; struct structure_type24753 t28436; struct structure_type24753 t28437; struct structure_type24753 t28438; struct structure_type24753 t28439; struct structure_type24753 t28440; struct structure_type24753 t28441; struct structure_type24753 t28442; struct structure_type24753 t28443; struct structure_type24753 t28444; struct structure_type24753 t28445; struct structure_type24753 t28446; struct structure_type24753 t28447; struct structure_type24753 t28448; struct structure_type24753 t28449; struct structure_type24753 t28450; struct structure_type24753 t28451; struct structure_type24753 t28452; struct structure_type24753 t28453; struct structure_type24753 t28454; struct structure_type24753 t28455; struct structure_type24753 t28456; struct structure_type24753 t28457; struct structure_type24753 t28458; struct structure_type24753 t28459; struct structure_type24753 t28460; struct structure_type24753 t28461; struct structure_type24753 t28462; struct structure_type24753 t28463; struct structure_type24753 t28464; struct structure_type24753 t28465; struct structure_type24753 t28466; struct structure_type24753 t28467; struct structure_type24753 t28468; struct structure_type24753 t28469; struct structure_type24753 t28470; struct structure_type24753 t28471; struct structure_type24753 t28472; struct structure_type24753 t28473; struct structure_type24753 t28474; struct structure_type24753 t28475; struct structure_type24753 t28476; struct structure_type24753 t28477; struct structure_type24753 t28478; struct structure_type24753 t28479; struct structure_type24753 t28480; struct structure_type24753 t28481; struct structure_type24753 t28482; struct structure_type24753 t28483; struct structure_type24753 t28484; struct structure_type24753 t28485; struct structure_type24753 t28486; struct structure_type24753 t28487; struct structure_type24753 t28488; struct structure_type24753 t28489; struct structure_type24753 t28490; struct structure_type24753 t28491; struct structure_type24753 t28492; struct structure_type24753 t28493; struct structure_type24753 t28494; struct structure_type24753 t28495; struct structure_type24753 t28496; struct structure_type24753 t28497; struct structure_type24753 t28498; struct structure_type24753 t28499; struct structure_type24753 t28500; struct structure_type24753 t28501; struct structure_type24753 t28502; struct structure_type24753 t28503; struct structure_type24753 t28504; struct structure_type24753 t28505; struct structure_type24753 t28506; struct structure_type24753 t28507; struct structure_type24753 t28508; struct structure_type24753 t28509; struct structure_type24753 t28510; struct structure_type24753 t28511; struct structure_type24753 t28512; struct structure_type24753 t28513; struct structure_type24753 t28514; struct structure_type24753 t28515; struct structure_type24753 t28516; struct structure_type24753 t28517; struct structure_type24753 t28518; struct structure_type24753 t28519; struct structure_type24753 t28520; struct structure_type24753 t28521; struct structure_type24753 t28522; struct structure_type24753 t28523; struct structure_type24753 t28524; struct structure_type24753 t28525; struct structure_type24753 t28526; struct structure_type24753 t28527; struct structure_type24753 t28528; struct structure_type24753 t28529; struct structure_type24753 t28530; struct structure_type24753 t28531; struct structure_type24753 t28532; struct structure_type24753 t28533; struct structure_type24753 t28534; struct structure_type24753 t28535; struct structure_type24753 t28536; struct structure_type24753 t28537; struct structure_type24753 t28538; struct structure_type24753 t28539; struct structure_type24753 t28540; struct structure_type24753 t28541; struct structure_type24753 t28542; struct structure_type24753 t28543; struct structure_type24753 t28544; struct structure_type24753 t28545; struct structure_type24753 t28546; struct structure_type24753 t28547; struct structure_type24753 t28548; struct structure_type24753 t28549; struct structure_type24753 t28550; struct structure_type24753 t28551; struct structure_type24753 t28552; struct structure_type24753 t28553; struct structure_type24753 t28554; struct structure_type24753 t28555; struct structure_type24753 t28556; struct structure_type24753 t28557; struct structure_type24753 t28558; struct structure_type24753 t28559; struct structure_type24753 t28560; struct structure_type24753 t28561; struct structure_type24753 t28562; struct structure_type24753 t28563; struct structure_type24753 t28564; struct structure_type24753 t28565; struct structure_type24753 t28566; struct structure_type24753 t28567; struct structure_type24753 t28568; struct structure_type24753 t28569; struct structure_type24753 t28570; struct structure_type24753 t28571; struct structure_type24753 t28572; struct structure_type24753 t28573; struct structure_type24753 t28574; struct structure_type24753 t28575; struct structure_type24753 t28576; struct structure_type24753 t28577; struct structure_type24753 t28578; struct structure_type24753 t28579; struct structure_type24753 t28580; struct structure_type24753 t28581; struct structure_type24753 t28582; struct structure_type24753 t28583; struct structure_type24753 t28584; struct structure_type24753 t28585; struct structure_type24753 t28586; struct structure_type24753 t28587; struct structure_type24753 t28588; struct structure_type24753 t28589; struct structure_type24753 t28590; struct structure_type24753 t28591; struct structure_type24753 t28592; struct structure_type24753 t28593; struct structure_type24753 t28594; struct structure_type24753 t28595; struct structure_type24753 t28596; struct structure_type24753 t28597; struct structure_type24753 t28598; struct structure_type24753 t28599; struct structure_type24753 t28600; struct structure_type24753 t28601; struct structure_type24753 t28602; struct structure_type24753 t28603; struct structure_type24753 t28604; struct structure_type24753 t28605; struct structure_type24753 t28606; struct structure_type24753 t28607; struct structure_type24753 t28608; struct structure_type24753 t28609; struct structure_type24753 t28610; struct structure_type24753 t28611; struct structure_type24753 t28612; struct structure_type24753 t28613; struct structure_type24753 t28614; struct structure_type24753 t28615; struct structure_type24753 t28616; struct structure_type24753 t28617; struct structure_type24753 t28618; struct structure_type24753 t28619; struct structure_type24753 t28620; struct structure_type24753 t28621; struct structure_type24753 t28622; struct structure_type24753 t28623; struct structure_type24753 t28624; struct structure_type24753 t28625; struct structure_type24753 t28626; struct structure_type24753 t28627; struct structure_type24753 t28628; struct structure_type24753 t28629; struct structure_type24753 t28630; struct structure_type24753 t28631; struct structure_type24753 t28632; struct structure_type24753 t28633; struct structure_type24753 t28634; struct structure_type24753 t28635; struct structure_type24753 t28636; struct structure_type24753 t28637; struct structure_type24753 t28638; struct structure_type24753 t28639; struct structure_type24753 t28640; struct structure_type24753 t28641; struct structure_type24753 t28642; struct structure_type24753 t28643; struct structure_type24753 t28644; struct structure_type24753 t28645; struct structure_type24753 t28646; struct structure_type24753 t28647; struct structure_type24753 t28686; struct structure_type24753 t28687; struct structure_type24753 t28688; struct structure_type24753 t28689; struct structure_type24753 t28690; struct structure_type24753 t28691; struct structure_type24753 t28692; struct structure_type24753 t28693; struct structure_type24753 t28694; struct structure_type24753 t28695; struct structure_type24753 t28696; struct structure_type24753 t28697; struct structure_type24753 t28698; struct structure_type24753 t28699; struct structure_type24753 t28700; struct structure_type24753 t28701; struct structure_type24753 t28702; struct structure_type24753 t28703; struct structure_type24753 t28704; struct structure_type24753 t28705; struct structure_type24753 t28706; struct structure_type24753 t28707; struct structure_type24753 t28708; struct structure_type24753 t28709; struct structure_type24753 t28710; struct structure_type24753 t28711; struct structure_type24753 t28712; struct structure_type24753 t28713; struct structure_type24753 t28714; struct structure_type24753 t28715; struct structure_type24753 t28716; struct structure_type24753 t28717; struct structure_type24753 t28718; struct structure_type24753 t28719; struct structure_type24753 t28720; struct structure_type24753 t28721; struct structure_type24753 t28722; struct structure_type24753 t28723; struct structure_type24753 t28724; struct structure_type24753 t28725; struct structure_type24753 t28726; struct structure_type24753 t28986; struct structure_type24753 t28987; struct structure_type24753 t28988; struct structure_type24753 t29188; struct structure_type24753 t29465; struct structure_type24753 t29466; struct structure_type24753 t29467; struct structure_type24753 t29543; struct structure_type24753 t29544; struct structure_type24753 t29545; struct structure_type24753 t29547; struct structure_type24753 t29548; struct structure_type24753 t29549; struct structure_type24753 t29861; struct structure_type24753 t29862; struct structure_type24753 t29863; struct structure_type24753 t30067; struct structure_type24753 t30068; struct structure_type24753 t57368; struct structure_type24753 t57369; struct structure_type24753 t57726; struct structure_type24753 t57727; struct structure_type24753 t68033; struct structure_type24753 t68034; struct structure_type24753 t68035; struct structure_type24753 t68046; struct structure_type24753 t68047; struct structure_type24753 t68048; struct structure_type24753 t68049; struct structure_type24753 t68054; struct structure_type24753 t68055; struct structure_type24753 t68056; struct structure_type24753 t68057; struct structure_type24753 t68207; struct structure_type24753 t68235; struct structure_type24753 t68236; struct structure_type24753 t68253; struct structure_type24753 t68254; struct structure_type24753 t68255; struct structure_type24753 t68256; struct structure_type24753 t68257; struct structure_type24753 t68282; struct structure_type24753 t68283; struct structure_type24753 t68295; struct structure_type24753 t68310; struct structure_type24753 t68311; struct structure_type24753 t68317; struct structure_type24753 t68318; struct structure_type24753 t68319; struct structure_type24753 t68320; struct structure_type24753 t68321; struct structure_type24753 t68322; struct structure_type24753 t68343; struct structure_type24753 t68344; struct structure_type24753 t68345; struct structure_type24753 t68346; struct structure_type24753 t68347; struct structure_type24753 t68348; struct structure_type24753 t68349; struct structure_type24753 t68350; struct structure_type24753 t68351; struct structure_type24753 t68352; struct structure_type24753 t68366; struct structure_type24753 t68367; struct structure_type24753 t68384; struct structure_type24753 t68385; struct structure_type24753 t68386; struct structure_type24753 t68387; struct structure_type24753 t68388; struct structure_type24753 t68400; struct structure_type24753 t68415; struct structure_type24753 t68416; struct structure_type24753 t68422; struct structure_type24753 t68423; struct structure_type24753 t68424; struct structure_type24753 t68425; struct structure_type24753 t68426; struct structure_type24753 t68427; struct structure_type24753 t68456; struct structure_type24753 t68457; struct structure_type24753 t68458; struct structure_type24753 t68459; struct structure_type24753 t68464; struct structure_type24753 t68465; struct structure_type24753 t68466; struct structure_type24753 t68467; struct structure_type24753 t68468; struct structure_type24753 t68469; struct structure_type24753 t68503; struct structure_type24753 t68504; struct structure_type24753 t86673; struct structure_type24753 t86695; struct structure_type24753 t86725; struct structure_type24753 t86726; struct structure_type24753 t86748; struct structure_type24753 t86749; struct structure_type24753 t86778; struct structure_type24753 t86779; struct structure_type24753 t86820; struct structure_type24753 t86849; struct structure_type24753 t86850; struct structure_type24753 t86872; struct structure_type24753 t86873; struct structure_type24753 t92903; struct structure_type24753 t92908; struct structure_type24753 t92912; struct structure_type24753 t93742; struct structure_type24753 t93743; struct structure_type24753 t93776; struct structure_type24753 t93777; struct structure_type24753 t93778; struct structure_type24753 t93779; struct structure_type24753 t93780; struct structure_type24753 t93781; struct structure_type24753 t93782; struct structure_type24753 t93783; struct structure_type24753 t93784; struct structure_type24753 t93785; struct structure_type24753 t93786; struct structure_type24753 t93787; struct structure_type24753 t93788; struct structure_type24753 t93789; struct structure_type24753 t93790; struct structure_type24753 t93791; struct structure_type24753 t93792; struct structure_type24753 t93793; struct structure_type24753 t93794; struct structure_type24753 t93795; struct structure_type24753 t93796; struct structure_type24753 t93797; struct structure_type24753 t93798; struct structure_type24753 t93799; struct structure_type24753 t93800; struct structure_type24753 t93801; struct structure_type24753 t93802; struct structure_type24753 t93803; struct structure_type24753 t93804; struct structure_type24753 t93805; struct structure_type24753 t93806; struct structure_type24753 t93807; struct structure_type24753 t93808; struct structure_type24753 t93809; struct structure_type24753 t93810; struct structure_type24753 t93811; struct structure_type24753 t93812; struct structure_type24753 t93813; struct structure_type24753 t93814; struct structure_type24753 t93815; struct structure_type24753 t93816; struct structure_type24753 t93817; struct structure_type24753 t93818; struct structure_type24753 t93819; struct structure_type24753 t93820; struct structure_type24753 t93821; struct structure_type24753 t93822; struct structure_type24753 t93823; struct structure_type24753 t93824; struct structure_type24753 t93825; struct structure_type24753 t93826; struct structure_type24753 t93827; struct structure_type24753 t93828; struct structure_type24753 t93829; struct structure_type24753 t93830; struct structure_type24753 t93831; struct structure_type24753 t93832; struct structure_type24753 t93833; struct structure_type24753 t93834; struct structure_type24753 t93835; struct structure_type24753 t93836; struct structure_type24753 t93837; struct structure_type24753 t93838; struct structure_type24753 t93839; struct structure_type24753 t93840; struct structure_type24753 t93841; struct structure_type24753 t93842; struct structure_type24753 t93843; struct structure_type24753 t93844; struct structure_type24753 t93845; struct structure_type24753 t93846; struct structure_type24753 t93847; struct structure_type24753 t93848; struct structure_type24753 t93849; struct structure_type24753 t93850; struct structure_type24753 t93851; struct structure_type24753 t93852; struct structure_type24753 t93853; struct structure_type24753 t93854; struct structure_type24753 t93855; struct structure_type24753 t93856; struct structure_type24753 t93857; struct structure_type24753 t93858; struct structure_type24753 t93859; struct structure_type24753 t93860; struct structure_type24753 t93861; struct structure_type24753 t93862; struct structure_type24753 t93863; struct structure_type24753 t93864; struct structure_type24753 t93865; struct structure_type24753 t93866; struct structure_type24753 t93867; struct structure_type24753 t93868; struct structure_type24753 t93869; struct structure_type24753 t93870; struct structure_type24753 t93871; struct structure_type24753 t93872; struct structure_type24753 t93873; struct structure_type24753 t93874; struct structure_type24753 t93875; struct structure_type24753 t93876; struct structure_type24753 t93877; struct structure_type24753 t93878; struct structure_type24753 t93879; struct structure_type24753 t93880; struct structure_type24753 t93881; struct structure_type24753 t93882; struct structure_type24753 t93883; struct structure_type24753 t93884; struct structure_type24753 t93885; struct structure_type24753 t93886; struct structure_type24753 t93887; struct structure_type24753 t93888; struct structure_type24753 t93889; struct structure_type24753 t93890; struct structure_type24753 t93891; struct structure_type24753 t93892; struct structure_type24753 t93893; struct structure_type24753 t93894; struct structure_type24753 t93895; struct structure_type24753 t93896; struct structure_type24753 t93897; struct structure_type24753 t93898; struct structure_type24753 t93899; struct structure_type24753 t93900; struct structure_type24753 t93901; struct structure_type24753 t93902; struct structure_type24753 t93903; struct structure_type24753 t93904; struct structure_type24753 t93905; struct structure_type24753 t93906; struct structure_type24753 t93907; struct structure_type24753 t93908; struct structure_type24753 t93909; struct structure_type24753 t93910; struct structure_type24753 t93911; struct structure_type24753 t93912; struct structure_type24753 t93913; struct structure_type24753 t93914; struct structure_type24753 t93915; struct structure_type24753 t93916; struct structure_type24753 t93917; struct structure_type24753 t93918; struct structure_type24753 t93919; struct structure_type24753 t93920; struct structure_type24753 t93921; struct structure_type24753 t93922; struct structure_type24753 t93923; struct structure_type24753 t93924; struct structure_type24753 t93925; struct structure_type24753 t93926; struct structure_type24753 t93927; struct structure_type24753 t93928; struct structure_type24753 t93929; struct structure_type24753 t93930; struct structure_type24753 t93931; struct structure_type24753 t93932; struct structure_type24753 t93933; struct structure_type24753 t93934; struct structure_type24753 t93935; struct structure_type24753 t93936; struct structure_type24753 t93937; struct structure_type24753 t93938; struct structure_type24753 t93939; struct structure_type24753 t93940; struct structure_type24753 t93941; struct structure_type24753 t93942; struct structure_type24753 t93943; struct structure_type24753 t93944; struct structure_type24753 t93945; struct structure_type24753 t93946; struct structure_type24753 t93947; struct structure_type24753 t93948; struct structure_type24753 t93949; struct structure_type24753 t93950; struct structure_type24753 t93951; struct structure_type24753 t93952; struct structure_type24753 t93953; struct structure_type24753 t93954; struct structure_type24753 t93955; struct structure_type24753 t93956; struct structure_type24753 t93957; struct structure_type24753 t93958; struct structure_type24753 t93959; struct structure_type24753 t93960; struct structure_type24753 t93961; struct structure_type24753 t93962; struct structure_type24753 t93963; struct structure_type24753 t93964; struct structure_type24753 t93965; struct structure_type24753 t93966; struct structure_type24753 t93967; struct structure_type24753 t93968; struct structure_type24753 t93969; struct structure_type24753 t93970; struct structure_type24753 t93971; struct structure_type24753 t93972; struct structure_type24753 t93973; struct structure_type24753 t93974; struct structure_type24753 t93975; struct structure_type24753 t93976; struct structure_type24753 t93977; struct structure_type24753 t93978; struct structure_type24753 t93979; struct structure_type24753 t93980; struct structure_type24753 t93981; struct structure_type24753 t93982; struct structure_type24753 t93983; struct structure_type24753 t93984; struct structure_type24753 t93985; struct structure_type24753 t93986; struct structure_type24753 t93987; struct structure_type24753 t93988; struct structure_type24753 t93989; struct structure_type24753 t93990; struct structure_type24753 t93991; struct structure_type24753 t93992; struct structure_type24753 t93993; struct structure_type24753 t93994; struct structure_type24753 t93995; struct structure_type24753 t93996; struct structure_type24753 t93997; struct structure_type24753 t93998; struct structure_type24753 t93999; struct structure_type24753 t94000; struct structure_type24753 t94001; struct structure_type24753 t94002; struct structure_type24753 t94003; struct structure_type24753 t94004; struct structure_type24753 t94005; struct structure_type24753 t94006; struct structure_type24753 t94007; struct structure_type24753 t94008; struct structure_type24753 t94009; struct structure_type24753 t94010; struct structure_type24753 t94011; struct structure_type24753 t94012; struct structure_type24753 t94013; struct structure_type24753 t94014; struct structure_type24753 t94015; struct structure_type24753 t94016; struct structure_type24753 t94017; struct structure_type24753 t94018; struct structure_type24753 t94019; struct structure_type24753 t94020; struct structure_type24753 t94021; struct structure_type24753 t94022; struct structure_type24753 t94023; struct structure_type24753 t94024; struct structure_type24753 t94025; struct structure_type24753 t94026; struct structure_type24753 t94027; struct structure_type24753 t94028; struct structure_type24753 t94029; struct structure_type24753 t94030; struct structure_type24753 t94031; struct structure_type24753 t94032; struct structure_type24753 t94033; struct structure_type24753 t94034; struct structure_type24753 t94035; struct structure_type24753 t94036; struct structure_type24753 t94037; struct structure_type24753 t94038; struct structure_type24753 t94039; struct structure_type24753 t94040; struct structure_type24753 t94041; struct structure_type24753 t94042; struct structure_type24753 t94043; struct structure_type24753 t94044; struct structure_type24753 t94045; struct structure_type24753 t94046; struct structure_type24753 t94047; struct structure_type24753 t94048; struct structure_type24753 t94049; struct structure_type24753 t94050; struct structure_type24753 t94051; struct structure_type24753 t94052; struct structure_type24753 t94053; struct structure_type24753 t94054; struct structure_type24753 t94055; struct structure_type24753 t94056; struct structure_type24753 t94057; struct structure_type24753 t94058; struct structure_type24753 t94059; struct structure_type24753 t94060; struct structure_type24753 t94061; struct structure_type24753 t94062; struct structure_type24753 t94063; struct structure_type24753 t94064; struct structure_type24753 t94065; struct structure_type24753 t94066; struct structure_type24753 t94067; struct structure_type24753 t94068; struct structure_type24753 t94069; struct structure_type24753 t94070; struct structure_type24753 t94071; struct structure_type24753 t94072; struct structure_type24753 t94073; struct structure_type24753 t94074; struct structure_type24753 t94075; struct structure_type24753 t94076; struct structure_type24753 t94077; struct structure_type24753 t94078; struct structure_type24753 t94079; struct structure_type24753 t94080; struct structure_type24753 t94081; struct structure_type24753 t94082; struct structure_type24753 t94083; struct structure_type24753 t94084; struct structure_type24753 t94085; struct structure_type24753 t94086; struct structure_type24753 t94087; struct structure_type24753 t94088; struct structure_type24753 t94089; struct structure_type24753 t94090; struct structure_type24753 t94091; struct structure_type24753 t94092; struct structure_type24753 t94093; struct structure_type24753 t94094; struct structure_type24753 t94095; struct structure_type24753 t94096; struct structure_type24753 t94097; struct structure_type24753 t94098; struct structure_type24753 t94099; struct structure_type24753 t94100; struct structure_type24753 t94101; struct structure_type24753 t94102; struct structure_type24753 t94103; struct structure_type24753 t94104; struct structure_type24753 t94105; struct structure_type24753 t94106; struct structure_type24753 t94107; struct structure_type24753 t94108; struct structure_type24753 t94109; struct structure_type24753 t94110; struct structure_type24753 t94111; struct structure_type24753 t94112; struct structure_type24753 t94113; struct structure_type24753 t94114; struct structure_type24753 t94115; struct structure_type24753 t94116; struct structure_type24753 t94117; struct structure_type24753 t94118; struct structure_type24753 t94119; struct structure_type24753 t94120; struct structure_type24753 t94121; struct structure_type24753 t94122; struct structure_type24753 t94123; struct structure_type24753 t94124; struct structure_type24753 t94125; struct structure_type24753 t94126; struct structure_type24753 t94127; struct structure_type24753 t94128; struct structure_type24753 t94129; struct structure_type24753 t94130; struct structure_type24753 t94131; struct structure_type24753 t94132; struct structure_type24753 t94133; struct structure_type24753 t94134; struct structure_type24753 t94135; struct structure_type24753 t94136; struct structure_type24753 t94137; struct structure_type24753 t94138; struct structure_type24753 t94139; struct structure_type24753 t94140; struct structure_type24753 t94141; struct structure_type24753 t94142; struct structure_type24753 t94143; struct structure_type24753 t94144; struct structure_type24753 t94145; struct structure_type24753 t94146; struct structure_type24753 t94147; struct structure_type24753 t94148; struct structure_type24753 t94149; struct structure_type24753 t94150; struct structure_type24753 t94151; struct structure_type24753 t94152; struct structure_type24753 t94153; struct structure_type24753 t94154; struct structure_type24753 t94155; struct structure_type24753 t94156; struct structure_type24753 t94157; struct structure_type24753 t94158; struct structure_type24753 t94159; struct structure_type24753 t94160; struct structure_type24753 t94161; struct structure_type24753 t94162; struct structure_type24753 t94163; struct structure_type24753 t94164; struct structure_type24753 t94165; struct structure_type24753 t94166; struct structure_type24753 t94167; struct structure_type24753 t94168; struct structure_type24753 t94169; struct structure_type24753 t94170; struct structure_type24753 t94171; struct structure_type24753 t94172; struct structure_type24753 t94173; struct structure_type24753 t94174; struct structure_type24753 t94175; struct structure_type24753 t94176; struct structure_type24753 t94177; struct structure_type24753 t94178; struct structure_type24753 t94179; struct structure_type24753 t94180; struct structure_type24753 t94181; struct structure_type24753 t94182; struct structure_type24753 t94183; struct structure_type24753 t94184; struct structure_type24753 t94185; struct structure_type24753 t94186; struct structure_type24753 t94187; struct structure_type24753 t94188; struct structure_type24753 t94189; struct structure_type24753 t94190; struct structure_type24753 t94191; struct structure_type24753 t94192; struct structure_type24753 t94193; struct structure_type24753 t94194; struct structure_type24753 t94195; struct structure_type24753 t94196; struct structure_type24753 t94197; struct structure_type24753 t94198; struct structure_type24753 t94199; struct structure_type24753 t94200; struct structure_type24753 t94201; struct structure_type24753 t94202; struct structure_type24753 t94203; struct structure_type24753 t94204; struct structure_type24753 t94205; struct structure_type24753 t94206; struct structure_type24753 t94207; struct structure_type24753 t94208; struct structure_type24753 t94209; struct structure_type24753 t94210; struct structure_type24753 t94211; struct structure_type24753 t94212; struct structure_type24753 t94213; struct structure_type24753 t94214; struct structure_type24753 t94215; struct structure_type24753 t94216; struct structure_type24753 t94217; struct structure_type24753 t94218; struct structure_type24753 t94219; struct structure_type24753 t94220; struct structure_type24753 t94221; struct structure_type24753 t94222; struct structure_type24753 t94223; struct structure_type24753 t94224; struct structure_type24753 t94225; struct structure_type24753 t94226; struct structure_type24753 t94227; struct structure_type24753 t94228; struct structure_type24753 t94229; struct structure_type24753 t94230; struct structure_type24753 t94231; struct structure_type24753 t94232; struct structure_type24753 t94233; struct structure_type24753 t94234; struct structure_type24753 t94235; struct structure_type24753 t94236; struct structure_type24753 t94237; struct structure_type24753 t94238; struct structure_type24753 t94239; struct structure_type24753 t94240; struct structure_type24753 t94241; struct structure_type24753 t94242; struct structure_type24753 t94243; struct structure_type24753 t94244; struct structure_type24753 t94245; struct structure_type24753 t94246; struct structure_type24753 t94247; struct structure_type24753 t94248; struct structure_type24753 t94249; struct structure_type24753 t94250; struct structure_type24753 t94251; struct structure_type24753 t94252; struct structure_type24753 t94253; struct structure_type24753 t94254; struct structure_type24753 t94255; struct structure_type24753 t94256; struct structure_type24753 t94257; struct structure_type24753 t94258; struct structure_type24753 t94259; struct structure_type24753 t94260; struct structure_type24753 t94261; struct structure_type24753 t94262; struct structure_type24753 t94263; struct structure_type24753 t94264; struct structure_type24753 t94265; struct structure_type24753 t94266; struct structure_type24753 t94267; struct structure_type24753 t94268; struct structure_type24753 t94269; struct structure_type24753 t94270; struct structure_type24753 t94271; struct structure_type24753 t94272; struct structure_type24753 t94273; struct structure_type24753 t94274; struct structure_type24753 t94275; struct structure_type24753 t94276; struct structure_type24753 t94277; struct structure_type24753 t94278; struct structure_type24753 t94279; struct structure_type24753 t94280; struct structure_type24753 t94281; struct structure_type24753 t94282; struct structure_type24753 t94283; struct structure_type24753 t94284; struct structure_type24753 t94285; struct structure_type24753 t94286; struct structure_type24753 t94287; struct structure_type24753 t94288; struct structure_type24753 t94289; struct structure_type24753 t94290; struct structure_type24753 t94291; struct structure_type24753 t94292; struct structure_type24753 t94293; struct structure_type24753 t94294; struct structure_type24753 t94295; struct structure_type24753 t94296; struct structure_type24753 t94297; struct structure_type24753 t94298; struct structure_type24753 t94299; struct structure_type24753 t94300; struct structure_type24753 t94301; struct structure_type24753 t94302; struct structure_type24753 t94303; struct structure_type24753 t94304; struct structure_type24753 t94305; struct structure_type24753 t94306; struct structure_type24753 t94307; struct structure_type24753 t94308; struct structure_type24753 t94309; struct structure_type24753 t94310; struct structure_type24753 t94311; struct structure_type24753 t94312; struct structure_type24753 t94313; struct structure_type24753 t94314; struct structure_type24753 t94315; struct structure_type24753 t94316; struct structure_type24753 t94317; struct structure_type24753 t94318; struct structure_type24753 t94319; struct structure_type24753 t94320; struct structure_type24753 t94321; struct structure_type24753 t94322; struct structure_type24753 t94323; struct structure_type24753 t94324; struct structure_type24753 t94325; struct structure_type24753 t94326; struct structure_type24753 t94327; struct structure_type24753 t94328; struct structure_type24753 t94329; struct structure_type24753 t94330; struct structure_type24753 t94331; struct structure_type24753 t94332; struct structure_type24753 t94333; struct structure_type24753 t94334; struct structure_type24753 t94335; struct structure_type24753 t94336; struct structure_type24753 t94337; struct structure_type24753 t94338; struct structure_type24753 t94339; struct structure_type24753 t94340; struct structure_type24753 t94341; struct structure_type24753 t94342; struct structure_type24753 t94343; struct structure_type24753 t94344; struct structure_type24753 t94345; struct structure_type24753 t94346; struct structure_type24753 t94347; struct structure_type24753 t94348; struct structure_type24753 t94349; struct structure_type24753 t94350; struct structure_type24753 t94351; struct structure_type24753 t94352; struct structure_type24753 t94353; struct structure_type24753 t94354; struct structure_type24753 t94355; struct structure_type24753 t94356; struct structure_type24753 t94357; struct structure_type24753 t94358; struct structure_type24753 t94359; struct structure_type24753 t94360; struct structure_type24753 t94361; struct structure_type24753 t94362; struct structure_type24753 t94363; struct structure_type24753 t94364; struct structure_type24753 t94365; struct structure_type24753 t94366; struct structure_type24753 t94367; struct structure_type24753 t94368; struct structure_type24753 t94369; struct structure_type24753 t94370; struct structure_type24753 t94371; struct structure_type24753 t94372; struct structure_type24753 t94373; struct structure_type24753 t94374; struct structure_type24753 t94375; struct structure_type24753 t94376; struct structure_type24753 t94377; struct structure_type24753 t94378; struct structure_type24753 t94379; struct structure_type24753 t94380; struct structure_type24753 t94381; struct structure_type24753 t94382; struct structure_type24753 t94383; struct structure_type24753 t94384; struct structure_type24753 t94385; struct structure_type24753 t94386; struct structure_type24753 t94387; struct structure_type24753 t94388; struct structure_type24753 t94389; struct structure_type24753 t94390; struct structure_type24753 t94391; struct structure_type24753 t94392; struct structure_type24753 t94393; struct structure_type24753 t94394; struct structure_type24753 t94395; struct structure_type24753 t94396; struct structure_type24753 t94397; struct structure_type24753 t94398; struct structure_type24753 t94399; struct structure_type24753 t94400; struct structure_type24753 t94401; struct structure_type24753 t94402; struct structure_type24753 t94403; struct structure_type24753 t94404; struct structure_type24753 t94405; struct structure_type24753 t94406; struct structure_type24753 t94407; struct structure_type24753 t94408; struct structure_type24753 t94409; struct structure_type24753 t94410; struct structure_type24753 t94411; struct structure_type24753 t94412; struct structure_type24753 t94413; struct structure_type24753 t94414; struct structure_type24753 t94415; struct structure_type24753 t94416; struct structure_type24753 t94417; struct structure_type24753 t94418; struct structure_type24753 t94419; struct structure_type24753 t94420; struct structure_type24753 t94421; struct structure_type24753 t94422; struct structure_type24753 t94423; struct structure_type24753 t94424; struct structure_type24753 t94425; struct structure_type24753 t94426; struct structure_type24753 t94427; struct structure_type24753 t94428; struct structure_type24753 t94429; struct structure_type24753 t94430; struct structure_type24753 t94431; struct structure_type24753 t94432; struct structure_type24753 t94433; struct structure_type24753 t94434; struct structure_type24753 t94435; struct structure_type24753 t94436; struct structure_type24753 t94437; struct structure_type24753 t94438; struct structure_type24753 t94439; struct structure_type24753 t94440; struct structure_type24753 t94441; struct structure_type24753 t94442; struct structure_type24753 t94443; struct structure_type24753 t94444; struct structure_type24753 t94445; struct structure_type24753 t94446; struct structure_type24753 t94447; struct structure_type24753 t94448; struct structure_type24753 t94449; struct structure_type24753 t94450; struct structure_type24753 t94451; struct structure_type24753 t94452; struct structure_type24753 t94453; struct structure_type24753 t94454; struct structure_type24753 t94455; struct structure_type24753 t94456; struct structure_type24753 t94457; struct structure_type24753 t94458; struct structure_type24753 t94459; struct structure_type24753 t94460; struct structure_type24753 t94461; struct structure_type24753 t94462; struct structure_type24753 t94463; struct structure_type24753 t94464; struct structure_type24753 t94465; struct structure_type24753 t94466; struct structure_type24753 t94467; struct structure_type24753 t94468; struct structure_type24753 t94469; struct structure_type24753 t94470; struct structure_type24753 t94471; struct structure_type24753 t94472; struct structure_type24753 t94473; struct structure_type24753 t94474; struct structure_type24753 t94475; struct structure_type24753 t94476; struct structure_type24753 t95606; struct structure_type24753 t95607; struct structure_type24753 t95608; struct structure_type24753 t95609; struct structure_type24753 t95610; struct structure_type24753 t95611; struct structure_type24753 t95612; struct structure_type24753 t95613; struct structure_type24753 t95614; struct structure_type24753 t95615; struct structure_type24753 t95616; struct structure_type24753 t95617; struct structure_type24753 t95618; struct structure_type24753 t95619; struct structure_type24753 t95620; struct structure_type24753 t95621; struct structure_type24753 t95622; struct structure_type24753 t95623; struct structure_type24753 t95624; struct structure_type24753 t95625; struct structure_type24753 t95626; struct structure_type24753 t95627; struct structure_type24753 t95628; struct structure_type24753 t95629; struct structure_type24753 t95630; struct structure_type24753 t95631; struct structure_type24753 t95632; struct structure_type24753 t95633; struct structure_type24753 t95634; struct structure_type24753 t95635; struct structure_type24753 t95636; struct structure_type24753 t95637; struct structure_type24753 t95638; struct structure_type24753 t95639; struct structure_type24753 t95640; struct structure_type24753 t95641; struct structure_type24753 t95642; struct structure_type24753 t95643; struct structure_type24753 t95644; struct structure_type24753 t95645; struct structure_type24753 t95646; struct structure_type24753 t95647; struct structure_type24753 t95648; struct structure_type24753 t95649; struct structure_type24753 t95650; struct structure_type24753 t95651; struct structure_type24753 t95652; struct structure_type24753 t95653; struct structure_type24753 t95654; struct structure_type24753 t95655; struct structure_type24753 t95656; struct structure_type24753 t95657; struct structure_type24753 t95658; struct structure_type24753 t95659; struct structure_type24753 t95660; struct structure_type24753 t95661; struct structure_type24753 t95662; struct structure_type24753 t95663; struct structure_type24753 t95664; struct structure_type24753 t95665; struct structure_type24753 t95666; struct structure_type24753 t95667; struct structure_type24753 t95668; struct structure_type24753 t95669; struct structure_type24753 t95670; struct structure_type24753 t95671; struct structure_type24753 t95672; struct structure_type24753 t95673; struct structure_type24753 t95674; struct structure_type24753 t95675; struct structure_type24753 t95676; struct structure_type24753 t95677; struct structure_type24753 t95678; struct structure_type24753 t95679; struct structure_type24753 t95680; struct structure_type24753 t95681; struct structure_type24753 t95682; struct structure_type24753 t95683; struct structure_type24753 t95684; struct structure_type24753 t95685; struct structure_type24753 t95686; struct structure_type24753 t95687; struct structure_type24753 t95688; struct structure_type24753 t95689; struct structure_type24753 t95690; struct structure_type24753 t95691; struct structure_type24753 t95692; struct structure_type24753 t95693; struct structure_type24753 t95694; struct structure_type24753 t95695; struct structure_type24753 t95696; struct structure_type24753 t95697; struct structure_type24753 t95698; struct structure_type24753 t95699; struct structure_type24753 t95700; struct structure_type24753 t95701; struct structure_type24753 t95702; struct structure_type24753 t95703; struct structure_type24753 t95704; struct structure_type24753 t95705; struct structure_type24753 t95706; struct structure_type24753 t95707; struct structure_type24753 t95708; struct structure_type24753 t95709; struct structure_type24753 t95710; struct structure_type24753 t95711; struct structure_type24753 t95712; struct structure_type24753 t95713; struct structure_type24753 t95714; struct structure_type24753 t95715; struct structure_type24753 t95716; struct structure_type24753 t95717; struct structure_type24753 t95718; struct structure_type24753 t95719; struct structure_type24753 t95720; struct structure_type24753 t95721; struct structure_type24753 t95722; struct structure_type24753 t95723; struct structure_type24753 t95724; struct structure_type24753 t95725; struct structure_type24753 t95726; struct structure_type24753 t95727; struct structure_type24753 t95728; struct structure_type24753 t95729; struct structure_type24753 t95730; struct structure_type24753 t95731; struct structure_type24753 t95732; struct structure_type24753 t95733; struct structure_type24753 t95734; struct structure_type24753 t95735; struct structure_type24753 t95736; struct structure_type24753 t95737; struct structure_type24753 t95738; struct structure_type24753 t95739; struct structure_type24753 t95740; struct structure_type24753 t95741; struct structure_type24753 t95742; struct structure_type24753 t95743; struct structure_type24753 t95744; struct structure_type24753 t95745; struct structure_type24753 t95746; struct structure_type24753 t95747; struct structure_type24753 t95748; struct structure_type24753 t95749; struct structure_type24753 t95750; struct structure_type24753 t95751; struct structure_type24753 t95752; struct structure_type24753 t95753; struct structure_type24753 t95754; struct structure_type24753 t95755; struct structure_type24753 t95756; struct structure_type24753 t95757; struct structure_type24753 t95758; struct structure_type24753 t95759; struct structure_type24753 t95760; struct structure_type24753 t95761; struct structure_type24753 t95762; struct structure_type24753 t95763; struct structure_type24753 t95764; struct structure_type24753 t95765; struct structure_type24753 t95766; struct structure_type24753 t95767; struct structure_type24753 t95768; struct structure_type24753 t95769; struct structure_type24753 t95770; struct structure_type24753 t95771; struct structure_type24753 t95772; struct structure_type24753 t95773; struct structure_type24753 t95774; struct structure_type24753 t95775; struct structure_type24753 t95776; struct structure_type24753 t95777; struct structure_type24753 t95778; struct structure_type24753 t95779; struct structure_type24753 t95780; struct structure_type24753 t95781; struct structure_type24753 t95782; struct structure_type24753 t95783; struct structure_type24753 t95784; struct structure_type24753 t95785; struct structure_type24753 t95786; struct structure_type24753 t95787; struct structure_type24753 t95788; struct structure_type24753 t95789; struct structure_type24753 t95790; struct structure_type24753 t95791; struct structure_type24753 t95792; struct structure_type24753 t95793; struct structure_type24753 t95794; struct structure_type24753 t95795; struct structure_type24753 t95796; struct structure_type24753 t95797; struct structure_type24753 t95798; struct structure_type24753 t95799; struct structure_type24753 t95800; struct structure_type24753 t95801; struct structure_type24753 t95802; struct structure_type24753 t95803; struct structure_type24753 t95804; struct structure_type24753 t95805; struct structure_type24753 t95806; struct structure_type24753 t95807; struct structure_type24753 t95808; struct structure_type24753 t95809; struct structure_type24753 t95810; struct structure_type24753 t95811; struct structure_type24753 t95812; struct structure_type24753 t95813; struct structure_type24753 t95814; struct structure_type24753 t95815; struct structure_type24753 t95816; struct structure_type24753 t95817; struct structure_type24753 t95818; struct structure_type24753 t95819; struct structure_type24753 t95820; struct structure_type24753 t95821; struct structure_type24753 t95822; struct structure_type24753 t95823; struct structure_type24753 t95824; struct structure_type24753 t95825; struct structure_type24753 t95826; struct structure_type24753 t95827; struct structure_type24753 t95828; struct structure_type24753 t95829; struct structure_type24753 t95830; struct structure_type24753 t95831; struct structure_type24753 t95832; struct structure_type24753 t95833; struct structure_type24753 t95834; struct structure_type24753 t95835; struct structure_type24753 t95836; struct structure_type24753 t95837; struct structure_type24753 t95838; struct structure_type24753 t95839; struct structure_type24753 t95840; struct structure_type24753 t95841; struct structure_type24753 t95842; struct structure_type24753 t95843; struct structure_type24753 t95844; struct structure_type24753 t95845; struct structure_type24753 t95846; struct structure_type24753 t95847; struct structure_type24753 t95848; struct structure_type24753 t95849; struct structure_type24753 t95850; struct structure_type24753 t95851; struct structure_type24753 t95852; struct structure_type24753 t95853; struct structure_type24753 t95854; struct structure_type24753 t95855; struct structure_type24753 t95856; struct structure_type24753 t95857; struct structure_type24753 t95858; struct structure_type24753 t95859; struct structure_type24753 t95860; struct structure_type24753 t95861; struct structure_type24753 t95862; struct structure_type24753 t95863; struct structure_type24753 t95864; struct structure_type24753 t95865; struct structure_type24753 t95866; struct structure_type24753 t95867; struct structure_type24753 t95868; struct structure_type24753 t95869; struct structure_type24753 t95870; struct structure_type24753 t95871; struct structure_type24753 t95872; struct structure_type24753 t95873; struct structure_type24753 t95874; struct structure_type24753 t95875; struct structure_type24753 t95876; struct structure_type24753 t95877; struct structure_type24753 t95878; struct structure_type24753 t95879; struct structure_type24753 t95880; struct structure_type24753 t95881; struct structure_type24753 t95882; struct structure_type24753 t95883; struct structure_type24753 t95884; struct structure_type24753 t95885; struct structure_type24753 t95886; struct structure_type24753 t95887; struct structure_type24753 t95888; struct structure_type24753 t95889; struct structure_type24753 t95890; struct structure_type24753 t95891; struct structure_type24753 t95892; struct structure_type24753 t95893; struct structure_type24753 t95894; struct structure_type24753 t95895; struct structure_type24753 t95896; struct structure_type24753 t95897; struct structure_type24753 t95898; struct structure_type24753 t95899; struct structure_type24753 t95900; struct structure_type24753 t95901; struct structure_type24753 t95902; struct structure_type24753 t95903; struct structure_type24753 t95904; struct structure_type24753 t95905; struct structure_type24753 t95906; struct structure_type24753 t95907; struct structure_type24753 t95908; struct structure_type24753 t95909; struct structure_type24753 t95910; struct structure_type24753 t95911; struct structure_type24753 t95912; struct structure_type24753 t95913; struct structure_type24753 t95914; struct structure_type24753 t95915; struct structure_type24753 t95916; struct structure_type24753 t95917; struct structure_type24753 t95918; struct structure_type24753 t95919; struct structure_type24753 t95920; struct structure_type24753 t95921; struct structure_type24753 t95922; struct structure_type24753 t95923; struct structure_type24753 t95924; struct structure_type24753 t95925; struct structure_type24753 t95926; struct structure_type24753 t95927; struct structure_type24753 t95928; struct structure_type24753 t95929; struct structure_type24753 t95930; struct structure_type24753 t95931; struct structure_type24753 t95932; struct structure_type24753 t95933; struct structure_type24753 t95934; struct structure_type24753 t95935; struct structure_type24753 t95936; struct structure_type24753 t95937; struct structure_type24753 t95938; struct structure_type24753 t95939; struct structure_type24753 t95940; struct structure_type24753 t95941; struct structure_type24753 t95942; struct structure_type24753 t95943; struct structure_type24753 t95944; struct structure_type24753 t95945; struct structure_type24753 t95946; struct structure_type24753 t95947; struct structure_type24753 t95948; struct structure_type24753 t95949; struct structure_type24753 t95950; struct structure_type24753 t95951; struct structure_type24753 t95952; struct structure_type24753 t95953; struct structure_type24753 t95954; struct structure_type24753 t95955; struct structure_type24753 t95956; struct structure_type24753 t95957; struct structure_type24753 t95958; struct structure_type24753 t95959; struct structure_type24753 t95960; struct structure_type24753 t95961; struct structure_type24753 t95962; struct structure_type24753 t95963; struct structure_type24753 t95964; struct structure_type24753 t95965; struct structure_type24753 t95966; struct structure_type24753 t95967; struct structure_type24753 t95968; struct structure_type24753 t95969; struct structure_type24753 t95970; struct structure_type24753 t95971; struct structure_type24753 t95972; struct structure_type24753 t95973; struct structure_type24753 t95974; struct structure_type24753 t95975; struct structure_type24753 t95976; struct structure_type24753 t95977; struct structure_type24753 t95978; struct structure_type24753 t95979; struct structure_type24753 t95980; struct structure_type24753 t95981; struct structure_type24753 t95982; struct structure_type24753 t95983; struct structure_type24753 t95984; struct structure_type24753 t95985; struct structure_type24753 t95986; struct structure_type24753 t95987; struct structure_type24753 t95988; struct structure_type24753 t95989; struct structure_type24753 t95990; struct structure_type24753 t95991; struct structure_type24753 t95992; struct structure_type24753 t95993; struct structure_type24753 t95994; struct structure_type24753 t95995; struct structure_type24753 t95996; struct structure_type24753 t95997; struct structure_type24753 t95998; struct structure_type24753 t95999; struct structure_type24753 t96000; struct structure_type24753 t96001; struct structure_type24753 t96002; struct structure_type24753 t96003; struct structure_type24753 t96004; struct structure_type24753 t96005; struct structure_type24753 t96006; struct structure_type24753 t96007; struct structure_type24753 t96008; struct structure_type24753 t96009; struct structure_type24753 t96010; struct structure_type24753 t96011; struct structure_type24753 t96012; struct structure_type24753 t96013; struct structure_type24753 t96014; struct structure_type24753 t96015; struct structure_type24753 t96016; struct structure_type24753 t96017; struct structure_type24753 t96018; struct structure_type24753 t96019; struct structure_type24753 t96020; struct structure_type24753 t96021; struct structure_type24753 t96022; struct structure_type24753 t96023; struct structure_type24753 t96024; struct structure_type24753 t96025; struct structure_type24753 t96026; struct structure_type24753 t96027; struct structure_type24753 t96028; struct structure_type24753 t96029; struct structure_type24753 t96030; struct structure_type24753 t96031; struct structure_type24753 t96032; struct structure_type24753 t96033; struct structure_type24753 t96034; struct structure_type24753 t96035; struct structure_type24753 t96036; struct structure_type24753 t96037; struct structure_type24753 t96038; struct structure_type24753 t96039; struct structure_type24753 t96040; struct structure_type24753 t96041; struct structure_type24753 t96042; struct structure_type24753 t96043; struct structure_type24753 t96044; struct structure_type24753 t96045; struct structure_type24753 t96046; struct structure_type24753 t96047; struct structure_type24753 t96048; struct structure_type24753 t96049; struct structure_type24753 t96050; struct structure_type24753 t96051; struct structure_type24753 t96052; struct structure_type24753 t96053; struct structure_type24753 t96054; struct structure_type24753 t96055; struct structure_type24753 t96056; struct structure_type24753 t96057; struct structure_type24753 t96058; struct structure_type24753 t96059; struct structure_type24753 t96060; struct structure_type24753 t96061; struct structure_type24753 t96062; struct structure_type24753 t96063; struct structure_type24753 t96064; struct structure_type24753 t96065; struct structure_type24753 t96066; struct structure_type24753 t96067; struct structure_type24753 t96068; struct structure_type24753 t96069; struct structure_type24753 t96070; struct structure_type24753 t96071; struct structure_type24753 t96072; struct structure_type24753 t96073; struct structure_type24753 t96074; struct structure_type24753 t96075; struct structure_type24753 t96076; struct structure_type24753 t96077; struct structure_type24753 t96078; struct structure_type24753 t96079; struct structure_type24753 t96080; struct structure_type24753 t96081; struct structure_type24753 t96082; struct structure_type24753 t96083; struct structure_type24753 t96084; struct structure_type24753 t96085; struct structure_type24753 t96086; struct structure_type24753 t96087; struct structure_type24753 t96088; struct structure_type24753 t96089; struct structure_type24753 t96090; struct structure_type24753 t96091; struct structure_type24753 t96092; struct structure_type24753 t96093; struct structure_type24753 t96094; struct structure_type24753 t96095; struct structure_type24753 t96096; struct structure_type24753 t96097; struct structure_type24753 t96098; struct structure_type24753 t96099; struct structure_type24753 t96100; struct structure_type24753 t96101; struct structure_type24753 t96102; struct structure_type24753 t96103; struct structure_type24753 t96104; struct structure_type24753 t96105; struct structure_type24753 t96106; struct structure_type24753 t96107; struct structure_type24753 t96108; struct structure_type24753 t96109; struct structure_type24753 t96110; struct structure_type24753 t96111; struct structure_type24753 t96112; struct structure_type24753 t96113; struct structure_type24753 t96114; struct structure_type24753 t96115; struct structure_type24753 t96116; struct structure_type24753 t96117; struct structure_type24753 t96118; struct structure_type24753 t96119; struct structure_type24753 t96120; struct structure_type24753 t96121; struct structure_type24753 t96122; struct structure_type24753 t96123; struct structure_type24753 t96124; struct structure_type24753 t96125; struct structure_type24753 t96126; struct structure_type24753 t96127; struct structure_type24753 t96128; struct structure_type24753 t96129; struct structure_type24753 t96130; struct structure_type24753 t96131; struct structure_type24753 t96132; struct structure_type24753 t96133; struct structure_type24753 t96134; struct structure_type24753 t96135; struct structure_type24753 t96136; struct structure_type24753 t96137; struct structure_type24753 t96138; struct structure_type24753 t96139; struct structure_type24753 t96140; struct structure_type24753 t96141; struct structure_type24753 t96142; struct structure_type24753 t96143; struct structure_type24753 t96144; struct structure_type24753 t96145; struct structure_type24753 t96146; struct structure_type24753 t96147; struct structure_type24753 t96148; struct structure_type24753 t96149; struct structure_type24753 t96150; struct structure_type24753 t96151; struct structure_type24753 t96152; struct structure_type24753 t96153; struct structure_type24753 t96154; struct structure_type24753 t96155; struct structure_type24753 t96156; struct structure_type24753 t96157; struct structure_type24753 t96158; struct structure_type24753 t96159; struct structure_type24753 t96160; struct structure_type24753 t96161; struct structure_type24753 t96162; struct structure_type24753 t96163; struct structure_type24753 t96164; struct structure_type24753 t96165; struct structure_type24753 t96166; struct structure_type24753 t96167; struct structure_type24753 t96168; struct structure_type24753 t96169; struct structure_type24753 t96170; struct structure_type24753 t96171; struct structure_type24753 t96172; struct structure_type24753 t96173; struct structure_type24753 t96174; struct structure_type24753 t96175; struct structure_type24753 t96176; struct structure_type24753 t96177; struct structure_type24753 t96178; struct structure_type24753 t96179; struct structure_type24753 t96180; struct structure_type24753 t96181; struct structure_type24753 t96182; struct structure_type24753 t96183; struct structure_type24753 t96184; struct structure_type24753 t96185; struct structure_type24753 t96186; struct structure_type24753 t96187; struct structure_type24753 t96188; struct structure_type24753 t96189; struct structure_type24753 t96190; struct structure_type24753 t96191; struct structure_type24753 t96192; struct structure_type24753 t96193; struct structure_type24753 t96194; struct structure_type24753 t96195; struct structure_type24753 t96196; struct structure_type24753 t96197; struct structure_type24753 t96198; struct structure_type24753 t96199; struct structure_type24753 t96200; struct structure_type24753 t96201; struct structure_type24753 t96202; struct structure_type24753 t96203; struct structure_type24753 t96204; struct structure_type24753 t96205; struct structure_type24753 t96206; struct structure_type24753 t96207; struct structure_type24753 t96208; struct structure_type24753 t96209; struct structure_type24753 t96210; struct structure_type24753 t96211; struct structure_type24753 t96212; struct structure_type24753 t96213; struct structure_type24753 t96214; struct structure_type24753 t96215; struct structure_type24753 t96216; struct structure_type24753 t96217; struct structure_type24753 t96218; struct structure_type24753 t96219; struct structure_type24753 t96220; struct structure_type24753 t96221; struct structure_type24753 t96222; struct structure_type24753 t96223; struct structure_type24753 t96224; struct structure_type24753 t96225; struct structure_type24753 t96226; struct structure_type24753 t96227; struct structure_type24753 t96228; struct structure_type24753 t96229; struct structure_type24753 t96230; struct structure_type24753 t96231; struct structure_type24753 t96232; struct structure_type24753 t96233; struct structure_type24753 t96234; struct structure_type24753 t96235; struct structure_type24753 t96236; struct structure_type24753 t96237; struct structure_type24753 t96238; struct structure_type24753 t96239; struct structure_type24753 t96240; struct structure_type24753 t96241; struct structure_type24753 t96242; struct structure_type24753 t96243; struct structure_type24753 t96244; struct structure_type24753 t96245; struct structure_type24753 t96246; struct structure_type24753 t96247; struct structure_type24753 t96248; struct structure_type24753 t96249; struct structure_type24753 t96250; struct structure_type24753 t96251; struct structure_type24753 t96252; struct structure_type24753 t96253; struct structure_type24753 t96254; struct structure_type24753 t96255; struct structure_type24753 t96256; struct structure_type24753 t96257; struct structure_type24753 t96258; struct structure_type24753 t96259; struct structure_type24753 t96260; struct structure_type24753 t96261; struct structure_type24753 t96262; struct structure_type24753 t96263; struct structure_type24753 t96264; struct structure_type24753 t96265; struct structure_type24753 t96266; struct structure_type24753 t96267; struct structure_type24753 t96268; struct structure_type24753 t96269; struct structure_type24753 t96270; struct structure_type24753 t96271; struct structure_type24753 t96272; struct structure_type24753 t96273; struct structure_type24753 t96274; struct structure_type24753 t96275; struct structure_type24753 t96276; struct structure_type24753 t96277; struct structure_type24753 t96278; struct structure_type24753 t96279; struct structure_type24753 t96280; struct structure_type24753 t96281; struct structure_type24753 t96282; struct structure_type24753 t96283; struct structure_type24753 t96284; struct structure_type24753 t96285; struct structure_type24753 t96286; struct structure_type24753 t96287; struct structure_type24753 t96288; struct structure_type24753 t96289; struct structure_type24753 t96290; struct structure_type24753 t96291; struct structure_type24753 t96292; struct structure_type24753 t96293; struct structure_type24753 t96294; struct structure_type24753 t96295; struct structure_type24753 t96296; struct structure_type24753 t96297; struct structure_type24753 t96298; struct structure_type24753 t96299; struct structure_type24753 t96300; struct structure_type24753 t96301; struct structure_type24753 t96302; struct structure_type24753 t96303; struct structure_type24753 t96304; struct structure_type24753 t96305; struct structure_type24753 t96306; struct structure_type24753 t96307; struct structure_type24753 t96308; struct structure_type24753 t96309; struct structure_type24753 t96310; struct structure_type24753 t96311; struct structure_type24753 t96312; struct structure_type24753 t96313; struct structure_type24753 t96314; struct structure_type24753 t96315; struct structure_type24753 t96316; struct structure_type24753 t96317; struct structure_type24753 t96318; struct structure_type24753 t96319; struct structure_type24753 t96320; struct structure_type24753 t96321; struct structure_type24753 t96322; struct structure_type24753 t96323; struct structure_type24753 t96324; struct structure_type24753 t96325; struct structure_type24753 t96326; struct structure_type24753 t96327; struct structure_type24753 t96328; struct structure_type24753 t96329; struct structure_type24753 t96330; struct structure_type24753 t96331; struct structure_type24753 t96332; struct structure_type24753 t96333; struct structure_type24753 t96334; struct structure_type24753 t96335; struct structure_type24753 t96336; struct structure_type24753 t96337; struct structure_type24753 t96338; struct structure_type24753 t96339; struct structure_type24753 t96340; struct structure_type24753 t96341; struct structure_type24753 t96342; struct structure_type24753 t96343; struct structure_type24753 t96344; struct structure_type24753 t96345; struct structure_type24753 t96346; struct structure_type24753 t96347; struct structure_type24753 t96348; struct structure_type24753 t96349; struct structure_type24753 t96350; struct structure_type24753 t96351; struct structure_type24753 t96352; struct structure_type24753 t96353; struct structure_type24753 t96354; struct structure_type24753 t96355; struct structure_type24753 t96356; struct structure_type24753 t96357; struct structure_type24753 t96358; struct structure_type24753 t96359; struct structure_type24753 t96360; struct structure_type24753 t96361; struct structure_type24753 t96362; struct structure_type24753 t96363; struct structure_type24753 t96364; struct structure_type24753 t96365; struct structure_type24753 t96366; struct structure_type24753 t96367; struct structure_type24753 t96368; struct structure_type24753 t96369; struct structure_type24753 t96370; struct structure_type24753 t96371; struct structure_type24753 t96372; struct structure_type24753 t96373; struct structure_type24753 t96374; struct structure_type24753 t96375; struct structure_type24753 t96376; struct structure_type24753 t96377; struct structure_type24753 t96378; struct structure_type24753 t96379; struct structure_type24753 t96380; struct structure_type24753 t96381; struct structure_type24753 t96382; struct structure_type24753 t96383; struct structure_type24753 t96384; struct structure_type24753 t96385; struct structure_type24753 t96386; struct structure_type24753 t96387; struct structure_type24753 t96388; struct structure_type24753 t96389; struct structure_type24753 t96390; struct structure_type24753 t96391; struct structure_type24753 t96392; struct structure_type24753 t96393; struct structure_type24753 t96394; struct structure_type24753 t96395; struct structure_type24753 t96396; struct structure_type24753 t96397; struct structure_type24753 t96398; struct structure_type24753 t96399; struct structure_type24753 t96400; struct structure_type24753 t96401; struct structure_type24753 t96402; struct structure_type24753 t96403; struct structure_type24753 t96404; struct structure_type24753 t96405; struct structure_type24753 t96406; struct structure_type24753 t96407; struct structure_type24753 t96408; struct structure_type24753 t96409; struct structure_type24753 t96410; struct structure_type24753 t96411; struct structure_type24753 t96412; struct structure_type24753 t96413; struct structure_type24753 t96414; struct structure_type24753 t96415; struct structure_type24753 t96416; struct structure_type24753 t96417; struct structure_type24753 t96418; struct structure_type24753 t96419; struct structure_type24753 t96420; struct structure_type24753 t96421; struct structure_type24753 t96422; struct structure_type24753 t96423; struct structure_type24753 t96424; struct structure_type24753 t96425; struct structure_type24753 t96426; struct structure_type24753 t96427; struct structure_type24753 t96428; struct structure_type24753 t96429; struct structure_type24753 t96430; struct structure_type24753 t96431; struct structure_type24753 t96432; struct structure_type24753 t96433; struct structure_type24753 t96434; struct structure_type24753 t96435; struct structure_type24753 t96436; struct structure_type24753 t96437; struct structure_type24753 t96438; struct structure_type24753 t96439; struct structure_type24753 t96440; struct structure_type24753 t96441; struct structure_type24753 t96442; struct structure_type24753 t96443; struct structure_type24753 t96444; struct structure_type24753 t96445; struct structure_type24753 t96446; struct structure_type24753 t96447; struct structure_type24753 t96448; struct structure_type24753 t96449; struct structure_type24753 t96450; struct structure_type24753 t96451; struct structure_type24753 t96452; struct structure_type24753 t96453; struct structure_type24753 t96454; struct structure_type24753 t96455; struct structure_type24753 t96456; struct structure_type24753 t96457; struct structure_type24753 t96458; struct structure_type24753 t96459; struct structure_type24753 t96460; struct structure_type24753 t96461; struct structure_type24753 t96462; struct structure_type24753 t96463; struct structure_type24753 t96464; struct structure_type24753 t96465; struct structure_type24753 t96466; struct structure_type24753 t96467; struct structure_type24753 t96468; struct structure_type24753 t96469; struct structure_type24753 t96470; struct structure_type24753 t96471; struct structure_type24753 t96472; struct structure_type24753 t96473; struct structure_type24753 t96474; struct structure_type24753 t96475; struct structure_type24753 t96476; struct structure_type24753 t96477; struct structure_type24753 t96478; struct structure_type24753 t96479; struct structure_type24753 t96480; struct structure_type24753 t96481; struct structure_type24753 t96482; struct structure_type24753 t96483; struct structure_type24753 t96484; struct structure_type24753 t96485; struct structure_type24753 t96486; struct structure_type24753 t96487; struct structure_type24753 t96488; struct structure_type24753 t96489; struct structure_type24753 t96490; struct structure_type24753 t96491; struct structure_type24753 t96492; struct structure_type24753 t96493; struct structure_type24753 t96494; struct structure_type24753 t96495; struct structure_type24753 t96496; struct structure_type24753 t96497; struct structure_type24753 t96498; struct structure_type24753 t96499; struct structure_type24753 t96500; struct structure_type24753 t96501; struct structure_type24753 t96502; struct structure_type24753 t96503; struct structure_type24753 t96504; struct structure_type24753 t96505; struct structure_type24753 t96506; struct structure_type24753 t96507; struct structure_type24753 t96508; struct structure_type24753 t96509; struct structure_type24753 t96510; struct structure_type24753 t96511; struct structure_type24753 t96512; struct structure_type24753 t96513; struct structure_type24753 t96514; struct structure_type24753 t96515; struct structure_type24753 t96516; struct structure_type24753 t96517; struct structure_type24753 t96518; struct structure_type24753 t96519; struct structure_type24753 t96520; struct structure_type24753 t96521; struct structure_type24753 t96522; struct structure_type24753 t96523; struct structure_type24753 t96524; struct structure_type24753 t96525; struct structure_type24753 t96526; struct structure_type24753 t96527; struct structure_type24753 t96528; struct structure_type24753 t96529; struct structure_type24753 t96530; struct structure_type24753 t96531; struct structure_type24753 t96532; struct structure_type24753 t96533; struct structure_type24753 t96534; struct structure_type24753 t96535; struct structure_type24753 t96536; struct structure_type24753 t96537; struct structure_type24753 t96538; struct structure_type24753 t96539; struct structure_type24753 t96540; struct structure_type24753 t96541; struct structure_type24753 t96542; struct structure_type24753 t96543; struct structure_type24753 t96544; struct structure_type24753 t96545; struct structure_type24753 t96546; struct structure_type24753 t96547; struct structure_type24753 t96548; struct structure_type24753 t96549; struct structure_type24753 t96550; struct structure_type24753 t96551; struct structure_type24753 t96552; struct structure_type24753 t96553; struct structure_type24753 t96554; struct structure_type24753 t96555; struct structure_type24753 t96556; struct structure_type24753 t96557; struct structure_type24753 t96558; struct structure_type24753 t96559; struct structure_type24753 t96560; struct structure_type24753 t96561; struct structure_type24753 t96562; struct structure_type24753 t96563; struct structure_type24753 t96564; struct structure_type24753 t96565; struct structure_type24753 t96566; struct structure_type24753 t96567; struct structure_type24753 t96568; struct structure_type24753 t96569; struct structure_type24753 t96570; struct structure_type24753 t96571; struct structure_type24753 t96572; struct structure_type24753 t96573; struct structure_type24753 t96574; struct structure_type24753 t96575; struct structure_type24753 t96576; struct structure_type24753 t96577; struct structure_type24753 t96578; struct structure_type24753 t96579; struct structure_type24753 t96580; struct structure_type24753 t96581; struct structure_type24753 t96582; struct structure_type24753 t96583; struct structure_type24753 t96584; struct structure_type24753 t96585; struct structure_type24753 t96586; struct structure_type24753 t96587; struct structure_type24753 t96588; struct structure_type24753 t96589; struct structure_type24753 t96590; struct structure_type24753 t96591; struct structure_type24753 t96592; struct structure_type24753 t96593; struct structure_type24753 t96594; struct structure_type24753 t96595; struct structure_type24753 t96596; struct structure_type24753 t96597; struct structure_type24753 t96598; struct structure_type24753 t96599; struct structure_type24753 t96600; struct structure_type24753 t96601; struct structure_type24753 t96602; struct structure_type24753 t96603; struct structure_type24753 t96604; struct structure_type24753 t96605; struct structure_type24753 t96606; struct structure_type24753 t96607; struct structure_type24753 t96608; struct structure_type24753 t96609; struct structure_type24753 t96610; struct structure_type24753 t96611; struct structure_type24753 t96612; struct structure_type24753 t96613; struct structure_type24753 t96614; struct structure_type24753 t96615; struct structure_type24753 t96616; struct structure_type24753 t96617; struct structure_type24753 t96618; struct structure_type24753 t96619; struct structure_type24753 t96620; struct structure_type24753 t96621; struct structure_type24753 t96622; struct structure_type24753 t96623; struct structure_type24753 t96624; struct structure_type24753 t96625; struct structure_type24753 t96626; struct structure_type24753 t96627; struct structure_type24753 t96628; struct structure_type24753 t96629; struct structure_type24753 t96630; struct structure_type24753 t96631; struct structure_type24753 t96632; struct structure_type24753 t96633; struct structure_type24753 t96634; struct structure_type24753 t96635; struct structure_type24753 t96636; struct structure_type24753 t96637; struct structure_type24753 t96638; struct structure_type24753 t96639; struct structure_type24753 t96640; struct structure_type24753 t96641; struct structure_type24753 t96642; struct structure_type24753 t96643; struct structure_type24753 t96644; struct structure_type24753 t96645; struct structure_type24753 t96646; struct structure_type24753 t96647; struct structure_type24753 t96648; struct structure_type24753 t96649; struct structure_type24753 t96650; struct structure_type24753 t96651; struct structure_type24753 t96652; struct structure_type24753 t96653; struct structure_type24753 t96654; struct structure_type24753 t96655; struct structure_type24753 t96656; struct structure_type24753 t96657; struct structure_type24753 t96658; struct structure_type24753 t96659; struct structure_type24753 t96660; struct structure_type24753 t96661; struct structure_type24753 t96662; struct structure_type24753 t96663; struct structure_type24753 t96664; struct structure_type24753 t96665; struct structure_type24753 t96666; struct structure_type24753 t96667; struct structure_type24753 t96668; struct structure_type24753 t96669; struct structure_type24753 t96670; struct structure_type24753 t96671; struct structure_type24753 t96672; struct structure_type24753 t96673; struct structure_type24753 t96674; struct structure_type24753 t96675; struct structure_type24753 t96676; struct structure_type24753 t96677; struct structure_type24753 t96678; struct structure_type24753 t96679; struct structure_type24753 t96680; struct structure_type24753 t96681; struct structure_type24753 t96682; struct structure_type24753 t96683; struct structure_type24753 t96684; struct structure_type24753 t96685; struct structure_type24753 t96686; struct structure_type24753 t96687; struct structure_type24753 t96688; struct structure_type24753 t96689; struct structure_type24753 t96690; struct structure_type24753 t96691; struct structure_type24753 t96692; struct structure_type24753 t96693; struct structure_type24753 t96694; struct structure_type24753 t96695; struct structure_type24753 t96696; struct structure_type24753 t96697; struct structure_type24753 t96698; struct structure_type24753 t96699; struct structure_type24753 t96700; struct structure_type24753 t96701; struct structure_type24753 t96702; struct structure_type24753 t96703; struct structure_type24753 t96704; struct structure_type24753 t96705; struct structure_type24753 t96706; struct structure_type24753 t96707; struct structure_type24753 t96708; struct structure_type24753 t96709; struct structure_type24753 t96710; struct structure_type24753 t96711; struct structure_type24753 t96712; struct structure_type24753 t96713; struct structure_type24753 t96714; struct structure_type24753 t96715; struct structure_type24753 t96716; struct structure_type24753 t96717; struct structure_type24753 t96718; struct structure_type24753 t96719; struct structure_type24753 t96720; struct structure_type24753 t96721; struct structure_type24753 t96722; struct structure_type24753 t96723; struct structure_type24753 t96724; struct structure_type24753 t96725; struct structure_type24753 t96726; struct structure_type24753 t96727; struct structure_type24753 t96728; struct structure_type24753 t96729; struct structure_type24753 t96730; struct structure_type24753 t96731; struct structure_type24753 t96732; struct structure_type24753 t96733; struct structure_type24753 t96734; struct structure_type24753 t96735; struct structure_type24753 t96736; struct structure_type24753 t96737; struct structure_type24753 t96738; struct structure_type24753 t96739; struct structure_type24753 t96740; struct structure_type24753 t96741; struct structure_type24753 t96742; struct structure_type24753 t96743; struct structure_type24753 t96744; struct structure_type24753 t96745; struct structure_type24753 t96746; struct structure_type24753 t96747; struct structure_type24753 t96748; struct structure_type24753 t96749; struct structure_type24753 t96750; struct structure_type24753 t96751; struct structure_type24753 t96752; struct structure_type24753 t96753; struct structure_type24753 t96754; struct structure_type24753 t96755; struct structure_type24753 t96756; struct structure_type24753 t96757; struct structure_type24753 t96758; struct structure_type24753 t96759; struct structure_type24753 t96760; struct structure_type24753 t96761; struct structure_type24753 t96762; struct structure_type24753 t96763; struct structure_type24753 t96764; struct structure_type24753 t96765; struct structure_type24753 t96766; struct structure_type24753 t96767; struct structure_type24753 t96768; struct structure_type24753 t96769; struct structure_type24753 t96770; struct structure_type24753 t96771; struct structure_type24753 t96772; struct structure_type24753 t96773; struct structure_type24753 t96774; struct structure_type24753 t96775; struct structure_type24753 t96776; struct structure_type24753 t96777; struct structure_type24753 t96778; struct structure_type24753 t96779; struct structure_type24753 t96780; struct structure_type24753 t96781; struct structure_type24753 t96782; struct structure_type24753 t96783; struct structure_type24753 t96784; struct structure_type24753 t96785; struct structure_type24753 t96786; struct structure_type24753 t96787; struct structure_type24753 t96788; struct structure_type24753 t96789; struct structure_type24753 t96790; struct structure_type24753 t96791; struct structure_type24753 t96792; struct structure_type24753 t96793; struct structure_type24753 t96794; struct structure_type24753 t96795; struct structure_type24753 t96796; struct structure_type24753 t96797; struct structure_type24753 t96798; struct structure_type24753 t96799; struct structure_type24753 t96800; struct structure_type24753 t96801; struct structure_type24753 t96802; struct structure_type24753 t96803; struct structure_type24753 t96804; struct structure_type24753 t96805; struct structure_type24753 t96806; struct structure_type24753 t96807; struct structure_type24753 t96808; struct structure_type24753 t96809; struct structure_type24753 t96810; struct structure_type24753 t96811; struct structure_type24753 t96812; struct structure_type24753 t96813; struct structure_type24753 t96814; struct structure_type24753 t96815; struct structure_type24753 t96816; struct structure_type24753 t96817; struct structure_type24753 t96818; struct structure_type24753 t96819; struct structure_type24753 t96820; struct structure_type24753 t96821; struct structure_type24753 t96822; struct structure_type24753 t96823; struct structure_type24753 t96824; struct structure_type24753 t96825; struct structure_type24753 t96826; struct structure_type24753 t96827; struct structure_type24753 t96828; struct structure_type24753 t96829; struct structure_type24753 t96830; struct structure_type24753 t96831; struct structure_type24753 t96832; struct structure_type24753 t96833; struct structure_type24753 t96834; struct structure_type24753 t96835; struct structure_type24753 t96836; struct structure_type24753 t96837; struct structure_type24753 t96838; struct structure_type24753 t96839; struct structure_type24753 t96840; struct structure_type24753 t96841; struct structure_type24753 t96842; struct structure_type24753 t96843; struct structure_type24753 t96844; struct structure_type24753 t96845; struct structure_type24753 t96846; struct structure_type24753 t96847; struct structure_type24753 t96848; struct structure_type24753 t96849; struct structure_type24753 t96850; struct structure_type24753 t96851; struct structure_type24753 t96852; struct structure_type24753 t96853; struct structure_type24753 t96854; struct structure_type24753 t96855; struct structure_type24753 t96856; struct structure_type24753 t96857; struct structure_type24753 t96858; struct structure_type24753 t96859; struct structure_type24753 t96860; struct structure_type24753 t96861; struct structure_type24753 t96862; struct structure_type24753 t96863; struct structure_type24753 t96864; struct structure_type24753 t96865; struct structure_type24753 t96866; struct structure_type24753 t96867; struct structure_type24753 t96868; struct structure_type24753 t96869; struct structure_type24753 t96870; struct structure_type24753 t96871; struct structure_type24753 t96872; struct structure_type24753 t96873; struct structure_type24753 t96874; struct structure_type24753 t96875; struct structure_type24753 t96876; struct structure_type24753 t96877; struct structure_type24753 t96878; struct structure_type24753 t96879; struct structure_type24753 t96880; struct structure_type24753 t96881; struct structure_type24753 t96882; struct structure_type24753 t96883; struct structure_type24753 t96884; struct structure_type24753 t96885; struct structure_type24753 t96886; struct structure_type24753 t96887; struct structure_type24753 t96888; struct structure_type24753 t96889; struct structure_type24753 t96890; struct structure_type24753 t96891; struct structure_type24753 t96892; struct structure_type24753 t96893; struct structure_type24753 t96894; struct structure_type24753 t96895; struct structure_type24753 t96896; struct structure_type24753 t96897; struct structure_type24753 t96898; struct structure_type24753 t96899; struct structure_type24753 t96900; struct structure_type24753 t96901; struct structure_type24753 t96902; struct structure_type24753 t96903; struct structure_type24753 t96904; struct structure_type24753 t96905; struct structure_type24753 t96906; struct structure_type24753 t96907; struct structure_type24753 t96908; struct structure_type24753 t96909; struct structure_type24753 t96910; struct structure_type24753 t96911; struct structure_type24753 t96912; struct structure_type24753 t96913; struct structure_type24753 t96914; struct structure_type24753 t96915; struct structure_type24753 t96916; struct structure_type24753 t96917; struct structure_type24753 t96918; struct structure_type24753 t96919; struct structure_type24753 t96920; struct structure_type24753 t96921; struct structure_type24753 t96922; struct structure_type24753 t96923; struct structure_type24753 t96924; struct structure_type24753 t96925; struct structure_type24753 t96926; struct structure_type24753 t96927; struct structure_type24753 t96928; struct structure_type24753 t96929; struct structure_type24753 t96930; struct structure_type24753 t96931; struct structure_type24753 t96932; struct structure_type24753 t96933; struct structure_type24753 t96934; struct structure_type24753 t96935; struct structure_type24753 t96936; struct structure_type24753 t96937; struct structure_type24753 t96938; struct structure_type24753 t96939; struct structure_type24753 t96940; struct structure_type24753 t96941; struct structure_type24753 t96942; struct structure_type24753 t96943; struct structure_type24753 t96944; struct structure_type24753 t96945; struct structure_type24753 t96946; struct structure_type24753 t96947; struct structure_type24753 t96948; struct structure_type24753 t96949; struct structure_type24753 t96950; struct structure_type24753 t96951; struct structure_type24753 t96952; struct structure_type24753 t96953; struct structure_type24753 t96954; struct structure_type24753 t96955; struct structure_type24753 t96956; struct structure_type24753 t96957; struct structure_type24753 t96958; struct structure_type24753 t96959; struct structure_type24753 t96960; struct structure_type24753 t96961; struct structure_type24753 t96962; struct structure_type24753 t96963; struct structure_type24753 t96964; struct structure_type24753 t96965; struct structure_type24753 t96966; struct structure_type24753 t96967; struct structure_type24753 t96968; struct structure_type24753 t96969; struct structure_type24753 t96970; struct structure_type24753 t96971; struct structure_type24753 t96972; struct structure_type24753 t96973; struct structure_type24753 t96974; struct structure_type24753 t96975; struct structure_type24753 t96976; struct structure_type24753 t96977; struct structure_type24753 t96978; struct structure_type24753 t96979; struct structure_type24753 t96980; struct structure_type24753 t96981; struct structure_type24753 t96982; struct structure_type24753 t96983; struct structure_type24753 t96984; struct structure_type24753 t96985; struct structure_type24753 t96986; struct structure_type24753 t96987; struct structure_type24753 t96988; struct structure_type24753 t96989; struct structure_type24753 t96990; struct structure_type24753 t96991; struct structure_type24753 t96992; struct structure_type24753 t96993; struct structure_type24753 t96994; struct structure_type24753 t96995; struct structure_type24753 t96996; struct structure_type24753 t96997; struct structure_type24753 t96998; struct structure_type24753 t96999; struct structure_type24753 t97000; struct structure_type24753 t97001; struct structure_type24753 t97002; struct structure_type24753 t97003; struct structure_type24753 t97004; struct structure_type24753 t97005; struct structure_type24753 t97006; struct structure_type24753 t97007; struct structure_type24753 t97008; struct structure_type24753 t97009; struct structure_type24753 t97010; struct structure_type24753 t97011; struct structure_type24753 t97012; struct structure_type24753 t97013; struct structure_type24753 t97014; struct structure_type24753 t97015; struct structure_type24753 t97016; struct structure_type24753 t97017; struct structure_type24753 t97018; struct structure_type24753 t97019; struct structure_type24753 t97020; struct structure_type24753 t97021; struct structure_type24753 t97022; struct structure_type24753 t97023; struct structure_type24753 t97024; struct structure_type24753 t97025; struct structure_type24753 t97026; struct structure_type24753 t97027; struct structure_type24753 t97028; struct structure_type24753 t97029; struct structure_type24753 t97030; struct structure_type24753 t97031; struct structure_type24753 t97032; struct structure_type24753 t97033; struct structure_type24753 t97034; struct structure_type24753 t97035; struct structure_type24753 t97036; struct structure_type24753 t97037; struct structure_type24753 t97038; struct structure_type24753 t97039; struct structure_type24753 t97040; struct structure_type24753 t97041; struct structure_type24753 t97042; struct structure_type24753 t97043; struct structure_type24753 t97044; struct structure_type24753 t97045; struct structure_type24753 t97046; struct structure_type24753 t97047; struct structure_type24753 t97048; struct structure_type24753 t97049; struct structure_type24753 t97050; struct structure_type24753 t97051; struct structure_type24753 t97052; struct structure_type24753 t97053; struct structure_type24753 t97054; struct structure_type24753 t97055; struct structure_type24753 t97056; struct structure_type24753 t97057; struct structure_type24753 t97058; struct structure_type24753 t97059; struct structure_type24753 t97060; struct structure_type24753 t97061; struct structure_type24753 t97062; struct structure_type24753 t97063; struct structure_type24753 t97064; struct structure_type24753 t97065; struct structure_type24753 t97066; struct structure_type24753 t97067; struct structure_type24753 t97068; struct structure_type24753 t97069; struct structure_type24753 t97070; struct structure_type24753 t97071; struct structure_type24753 t97072; struct structure_type24753 t97073; struct structure_type24753 t97074; struct structure_type24753 t97075; struct structure_type24753 t97076; struct structure_type24753 t97077; struct structure_type24753 t97078; struct structure_type24753 t97079; struct structure_type24753 t97080; struct structure_type24753 t97081; struct structure_type24753 t97082; struct structure_type24753 t97083; struct structure_type24753 t97084; struct structure_type24753 t97085; struct structure_type24753 t97086; struct structure_type24753 t97087; struct structure_type24753 t97088; struct structure_type24753 t97089; struct structure_type24753 t97090; struct structure_type24753 t97091; struct structure_type24753 t97092; struct structure_type24753 t97093; struct structure_type24753 t97094; struct structure_type24753 t97095; struct structure_type24753 t97096; struct structure_type24753 t97097; struct structure_type24753 t97098; struct structure_type24753 t97099; struct structure_type24753 t97100; struct structure_type24753 t97101; struct structure_type24753 t97102; struct structure_type24753 t97103; struct structure_type24753 t97104; struct structure_type24753 t97105; struct structure_type24753 t97106; struct structure_type24753 t97107; struct structure_type24753 t97108; struct structure_type24753 t97109; struct structure_type24753 t97110; struct structure_type24753 t97111; struct structure_type24753 t97112; struct structure_type24753 t97113; struct structure_type24753 t97114; struct structure_type24753 t97115; struct structure_type24753 t97116; struct structure_type24753 t97117; struct structure_type24753 t97118; struct structure_type24753 t97119; struct structure_type24753 t97120; struct structure_type24753 t97121; struct structure_type24753 t97122; struct structure_type24753 t97123; struct structure_type24753 t97124; struct structure_type24753 t97125; struct structure_type24753 t97126; struct structure_type24753 t97127; struct structure_type24753 t97128; struct structure_type24753 t97129; struct structure_type24753 t97130; struct structure_type24753 t97131; struct structure_type24753 t97132; struct structure_type24753 t97133; struct structure_type24753 t97134; struct structure_type24753 t97135; struct structure_type24753 t97136; struct structure_type24753 t97137; struct structure_type24753 t97138; struct structure_type24753 t97139; struct structure_type24753 t97140; struct structure_type24753 t97141; struct structure_type24753 t97142; struct structure_type24753 t97143; struct structure_type24753 t97144; struct structure_type24753 t97145; struct structure_type24753 t97146; struct structure_type24753 t97147; struct structure_type24753 t97148; struct structure_type24753 t97149; struct structure_type24753 t97150; struct structure_type24753 t97151; struct structure_type24753 t97152; struct structure_type24753 t97153; struct structure_type24753 t97154; struct structure_type24753 t97155; struct structure_type24753 t97156; struct structure_type24753 t97157; struct structure_type24753 t97158; struct structure_type24753 t97159; struct structure_type24753 t97160; struct structure_type24753 t97161; struct structure_type24753 t97162; struct structure_type24753 t97163; struct structure_type24753 t97164; struct structure_type24753 t97165; struct structure_type24753 t97166; struct structure_type24753 t97167; struct structure_type24753 t97168; struct structure_type24753 t97169; struct structure_type24753 t97170; struct structure_type24753 t97171; struct structure_type24753 t97172; struct structure_type24753 t97173; struct structure_type24753 t97174; struct structure_type24753 t97175; struct structure_type24753 t97176; struct structure_type24753 t97177; struct structure_type24753 t97178; struct structure_type24753 t97179; struct structure_type24753 t97180; struct structure_type24753 t97181; struct structure_type24753 t97182; struct structure_type24753 t97183; struct structure_type24753 t97184; struct structure_type24753 t97185; struct structure_type24753 t97186; struct structure_type24753 t97187; struct structure_type24753 t97188; struct structure_type24753 t97189; struct structure_type24753 t97190; struct structure_type24753 t97191; struct structure_type24753 t97192; struct structure_type24753 t97193; struct structure_type24753 t97194; struct structure_type24753 t97195; struct structure_type24753 t97196; struct structure_type24753 t97197; struct structure_type24753 t97198; struct structure_type24753 t97199; struct structure_type24753 t97200; struct structure_type24753 t97201; struct structure_type24753 t97202; struct structure_type24753 t97203; struct structure_type24753 t97204; struct structure_type24753 t97205; struct structure_type24753 t97206; struct structure_type24753 t97207; struct structure_type24753 t97208; struct structure_type24753 t97209; struct structure_type24753 t97210; struct structure_type24753 t97211; struct structure_type24753 t97212; struct structure_type24753 t97213; struct structure_type24753 t97214; struct structure_type24753 t97215; struct structure_type24753 t97216; struct structure_type24753 t97217; struct structure_type24753 t97218; struct structure_type24753 t97219; struct structure_type24753 t97220; struct structure_type24753 t97221; struct structure_type24753 t97222; struct structure_type24753 t97223; struct structure_type24753 t97224; struct structure_type24753 t97225; struct structure_type24753 t97226; struct structure_type24753 t97227; struct structure_type24753 t97228; struct structure_type24753 t97229; struct structure_type24753 t97230; struct structure_type24753 t97231; struct structure_type24753 t97232; struct structure_type24753 t97233; struct structure_type24753 t97234; struct structure_type24753 t97235; struct structure_type24753 t97236; struct structure_type24753 t97237; struct structure_type24753 t97238; struct structure_type24753 t97239; struct structure_type24753 t97240; struct structure_type24753 t97241; struct structure_type24753 t97242; struct structure_type24753 t97243; struct structure_type24753 t97244; struct structure_type24753 t97245; struct structure_type24753 t97246; struct structure_type24753 t97247; struct structure_type24753 t97248; struct structure_type24753 t97249; struct structure_type24753 t97250; struct structure_type24753 t97251; struct structure_type24753 t97252; struct structure_type24753 t97253; struct structure_type24753 t97254; struct structure_type24753 t97255; struct structure_type24753 t97256; struct structure_type24753 t97257; struct structure_type24753 t97258; struct structure_type24753 t97259; struct structure_type24753 t97260; struct structure_type24753 t97261; struct structure_type24753 t97262; struct structure_type24753 t97263; struct structure_type24753 t97264; struct structure_type24753 t97265; struct structure_type24753 t97266; struct structure_type24753 t97267; struct structure_type24753 t97268; struct structure_type24753 t97269; struct structure_type24753 t97270; struct structure_type24753 t97271; struct structure_type24753 t97272; struct structure_type24753 t97273; struct structure_type24753 t97274; struct structure_type24753 t97275; struct structure_type24753 t97276; struct structure_type24753 t97277; struct structure_type24753 t97278; struct structure_type24753 t97279; struct structure_type24753 t97280; struct structure_type24753 t97281; struct structure_type24753 t97282; struct structure_type24753 t97283; struct structure_type24753 t97284; struct structure_type24753 t97285; struct structure_type24753 t97286; struct structure_type24753 t97287; struct structure_type24753 t97288; struct structure_type24753 t97289; struct structure_type24753 t97290; struct structure_type24753 t97291; struct structure_type24753 t97292; struct structure_type24753 t97293; struct structure_type24753 t97294; struct structure_type24753 t97295; struct structure_type24753 t97296; struct structure_type24753 t97297; struct structure_type24753 t97298; struct structure_type24753 t97299; struct structure_type24753 t97300; struct structure_type24753 t97301; struct structure_type24753 t97302; struct structure_type24753 t97303; struct structure_type24753 t97304; struct structure_type24753 t97305; struct structure_type24753 t97306; struct structure_type24753 t97307; struct structure_type24753 t97308; struct structure_type24753 t97309; struct structure_type24753 t97310; struct structure_type24753 t97311; struct structure_type24753 t97312; struct structure_type24753 t97313; struct structure_type24753 t97314; struct structure_type24753 t97315; struct structure_type24753 t97316; struct structure_type24753 t97317; struct structure_type24753 t97318; struct structure_type24753 t97319; struct structure_type24753 t97320; struct structure_type24753 t97321; struct structure_type24753 t97322; struct structure_type24753 t97323; struct structure_type24753 t97324; struct structure_type24753 t97325; struct structure_type24753 t97326; struct structure_type24753 t97327; struct structure_type24753 t97328; struct structure_type24753 t97329; struct structure_type24753 t97330; struct structure_type24753 t97331; struct structure_type24753 t97332; struct structure_type24753 t97333; struct structure_type24753 t97334; struct structure_type24753 t97335; struct structure_type24753 t97336; struct structure_type24753 t97337; struct structure_type24753 t97338; struct structure_type24753 t97339; struct structure_type24753 t97340; struct structure_type24753 t97341; struct structure_type24753 t97342; struct structure_type24753 t97343; struct structure_type24753 t97344; struct structure_type24753 t97345; struct structure_type24753 t97346; struct structure_type24753 t97347; struct structure_type24753 t97348; struct structure_type24753 t97349; struct structure_type24753 t97350; struct structure_type24753 t97351; struct structure_type24753 t97352; struct structure_type24753 t97353; struct structure_type24753 t97354; struct structure_type24753 t97355; struct structure_type24753 t97356; struct structure_type24753 t97357; struct structure_type24753 t97358; struct structure_type24753 t97359; struct structure_type24753 t97360; struct structure_type24753 t97361; struct structure_type24753 t97362; struct structure_type24753 t97363; struct structure_type24753 t97364; struct structure_type24753 t97365; struct structure_type24753 t97366; struct structure_type24753 t97367; struct structure_type24753 t97368; struct structure_type24753 t97369; struct structure_type24753 t97370; struct structure_type24753 t97371; struct structure_type24753 t97372; struct structure_type24753 t97373; struct structure_type24753 t97374; struct structure_type24753 t97375; struct structure_type24753 t97376; struct structure_type24753 t97377; struct structure_type24753 t97378; struct structure_type24753 t97379; struct structure_type24753 t97380; struct structure_type24753 t97381; struct structure_type24753 t97382; struct structure_type24753 t97383; struct structure_type24753 t97384; struct structure_type24753 t97385; struct structure_type24753 t97386; struct structure_type24753 t97387; struct structure_type24753 t97388; struct structure_type24753 t97389; struct structure_type24753 t97390; struct structure_type24753 t97391; struct structure_type24753 t97392; struct structure_type24753 t97393; struct structure_type24753 t97394; struct structure_type24753 t97395; struct structure_type24753 t97396; struct structure_type24753 t97397; struct structure_type24753 t97398; struct structure_type24753 t97399; struct structure_type24753 t97400; struct structure_type24753 t97401; struct structure_type24753 t97402; struct structure_type24753 t97403; struct structure_type24753 t97404; struct structure_type24753 t97405; struct structure_type24753 t97406; struct structure_type24753 t97407; struct structure_type24753 t97408; struct structure_type24753 t97409; struct structure_type24753 t97410; struct structure_type24753 t97411; struct structure_type24753 t97412; struct structure_type24753 t97413; struct structure_type24753 t97414; struct structure_type24753 t97415; struct structure_type24753 t97416; struct structure_type24753 t97417; struct structure_type24753 t97418; struct structure_type24753 t97419; struct structure_type24753 t97420; struct structure_type24753 t97421; struct structure_type24753 t97422; struct structure_type24753 t97423; struct structure_type24753 t97424; struct structure_type24753 t97425; struct structure_type24753 t97426; struct structure_type24753 t97427; struct structure_type24753 t97428; struct structure_type24753 t97429; struct structure_type24753 t97430; struct structure_type24753 t97431; struct structure_type24753 t97432; struct structure_type24753 t97433; struct structure_type24753 t97434; struct structure_type24753 t97435; struct structure_type24753 t97436; struct structure_type24753 t97437; struct structure_type24753 t97438; struct structure_type24753 t97439; struct structure_type24753 t97440; struct structure_type24753 t97441; struct structure_type24753 t97442; struct structure_type24753 t97443; struct structure_type24753 t97444; struct structure_type24753 t97445; struct structure_type24753 t97446; struct structure_type24753 t97447; struct structure_type24753 t97448; struct structure_type24753 t97449; struct structure_type24753 t97450; struct structure_type24753 t97451; struct structure_type24753 t97452; struct structure_type24753 t97453; struct structure_type24753 t97454; struct structure_type24753 t97455; struct structure_type24753 t97456; struct structure_type24753 t97457; struct structure_type24753 t97458; struct structure_type24753 t97459; struct structure_type24753 t97460; struct structure_type24753 t97461; struct structure_type24753 t97462; struct structure_type24753 t97463; struct structure_type24753 t97464; struct structure_type24753 t97465; struct structure_type24753 t97466; struct structure_type24753 t97467; struct structure_type24753 t97468; struct structure_type24753 t97469; struct structure_type24753 t97470; struct structure_type24753 t97471; struct structure_type24753 t97472; struct structure_type24753 t97473; struct structure_type24753 t97474; struct structure_type24753 t97475; struct structure_type24753 t97476; struct structure_type24753 t97477; struct structure_type24753 t97478; struct structure_type24753 t97479; struct structure_type24753 t97480; struct structure_type24753 t97481; struct structure_type24753 t97482; struct structure_type24753 t97483; struct structure_type24753 t97484; struct structure_type24753 t97485; struct structure_type24753 t97486; struct structure_type24753 t97487; struct structure_type24753 t97488; struct structure_type24753 t97489; struct structure_type24753 t97490; struct structure_type24753 t97491; struct structure_type24753 t97492; struct structure_type24753 t97493; struct structure_type24753 t97494; struct structure_type24753 t97495; struct structure_type24753 t97496; struct structure_type24753 t97497; struct structure_type24753 t97498; struct structure_type24753 t97499; struct structure_type24753 t97500; struct structure_type24753 t97501; struct structure_type24753 t97502; struct structure_type24753 t97503; struct structure_type24753 t97504; struct structure_type24753 t97505; struct structure_type24753 t97506; struct structure_type24753 t97507; struct structure_type24753 t97508; struct structure_type24753 t97509; struct structure_type24753 t97510; struct structure_type24753 t97511; struct structure_type24753 t97512; struct structure_type24753 t97513; struct structure_type24753 t97514; struct structure_type24753 t97515; struct structure_type24753 t97516; struct structure_type24753 t97517; struct structure_type24753 t97518; struct structure_type24753 t97519; struct structure_type24753 t97520; struct structure_type24753 t97521; struct structure_type24753 t97522; struct structure_type24753 t97523; struct structure_type24753 t97524; struct structure_type24753 t97525; struct structure_type24753 t97526; struct structure_type24753 t97527; struct structure_type24753 t97528; struct structure_type24753 t97529; struct structure_type24753 t97530; struct structure_type24753 t97531; struct structure_type24753 t97532; struct structure_type24753 t97533; struct structure_type24753 t97534; struct structure_type24753 t97535; struct structure_type24753 t97536; struct structure_type24753 t97537; struct structure_type24753 t97538; struct structure_type24753 t97539; struct structure_type24753 t97540; struct structure_type24753 t97541; struct structure_type24753 t97542; struct structure_type24753 t97543; struct structure_type24753 t97544; struct structure_type24753 t97545; struct structure_type24753 t97546; struct structure_type24753 t97547; struct structure_type24753 t97548; struct structure_type24753 t97549; struct structure_type24753 t97550; struct structure_type24753 t97551; struct structure_type24753 t97552; struct structure_type24753 t97553; struct structure_type24753 t97554; struct structure_type24753 t97555; struct structure_type24753 t97556; struct structure_type24753 t97557; struct structure_type24753 t97558; struct structure_type24753 t97559; struct structure_type24753 t97560; struct structure_type24753 t97561; struct structure_type24753 t97562; struct structure_type24753 t97563; struct structure_type24753 t97564; struct structure_type24753 t97565; struct structure_type24753 t97566; struct structure_type24753 t97567; struct structure_type24753 t97568; struct structure_type24753 t97569; struct structure_type24753 t97570; struct structure_type24753 t97571; struct structure_type24753 t97572; struct structure_type24753 t97573; struct structure_type24753 t97574; struct structure_type24753 t97575; struct structure_type24753 t97576; struct structure_type24753 t97577; struct structure_type24753 t97578; struct structure_type24753 t97579; struct structure_type24753 t97580; struct structure_type24753 t97581; struct structure_type24753 t97582; struct structure_type24753 t97583; struct structure_type24753 t97584; struct structure_type24753 t97585; struct structure_type24753 t97586; struct structure_type24753 t97587; struct structure_type24753 t97588; struct structure_type24753 t97589; struct structure_type24753 t97590; struct structure_type24753 t97591; struct structure_type24753 t97592; struct structure_type24753 t97593; struct structure_type24753 t97594; struct structure_type24753 t97595; struct structure_type24753 t97596; struct structure_type24753 t97597; struct structure_type24753 t97598; struct structure_type24753 t97599; struct structure_type24753 t97600; struct structure_type24753 t97601; struct structure_type24753 t97602; struct structure_type24753 t97603; struct structure_type24753 t97604; struct structure_type24753 t97605; struct structure_type24753 t97606; struct structure_type24753 t97607; struct structure_type24753 t97608; struct structure_type24753 t97609; struct structure_type24753 t97610; struct structure_type24753 t97611; struct structure_type24753 t97612; struct structure_type24753 t97613; struct structure_type24753 t97614; struct structure_type24753 t97615; struct structure_type24753 t97616; struct structure_type24753 t97617; struct structure_type24753 t97618; struct structure_type24753 t97619; struct structure_type24753 t97620; struct structure_type24753 t97621; struct structure_type24753 t97622; struct structure_type24753 t97623; struct structure_type24753 t97624; struct structure_type24753 t97625; struct structure_type24753 t97626; struct structure_type24753 t97627; struct structure_type24753 t97628; struct structure_type24753 t97629; struct structure_type24753 t97630; struct structure_type24753 t97631; struct structure_type24753 t97632; struct structure_type24753 t97633; struct structure_type24753 t97634; struct structure_type24753 t97635; struct structure_type24753 t97636; struct structure_type24753 t97637; struct structure_type24753 t97638; struct structure_type24753 t97639; struct structure_type24753 t97640; struct structure_type24753 t97641; struct structure_type24753 t97642; struct structure_type24753 t97643; struct structure_type24753 t97644; struct structure_type24753 t97645; struct structure_type24753 t97646; struct structure_type24753 t97647; struct structure_type24753 t97648; struct structure_type24753 t97649; struct structure_type24753 t97650; struct structure_type24753 t97651; struct structure_type24753 t97652; struct structure_type24753 t97653; struct structure_type24753 t97654; struct structure_type24753 t97655; struct structure_type24753 t97656; struct structure_type24753 t97657; struct structure_type24753 t97658; struct structure_type24753 t97659; struct structure_type24753 t97660; struct structure_type24753 t97661; struct structure_type24753 t97662; struct structure_type24753 t97663; struct structure_type24753 t97664; struct structure_type24753 t97665; struct structure_type24753 t97666; struct structure_type24753 t97667; struct structure_type24753 t97668; struct structure_type24753 t97669; struct structure_type24753 t97670; struct structure_type24753 t97671; struct structure_type24753 t97672; struct structure_type24753 t97673; struct structure_type24753 t97674; struct structure_type24753 t97675; struct structure_type24753 t97676; struct structure_type24753 t97677; struct structure_type24753 t97678; struct structure_type24753 t97679; struct structure_type24753 t97680; struct structure_type24753 t97681; struct structure_type24753 t97682; struct structure_type24753 t97683; struct structure_type24753 t97684; struct structure_type24753 t97685; struct structure_type24753 t97686; struct structure_type24753 t97687; struct structure_type24753 t97688; struct structure_type24753 t97689; struct structure_type24753 t97690; struct structure_type24753 t97691; struct structure_type24753 t97692; struct structure_type24753 t97693; struct structure_type24753 t97694; struct structure_type24753 t97695; struct structure_type24753 t97696; struct structure_type24753 t97697; struct structure_type24753 t97698; struct structure_type24753 t97699; struct structure_type24753 t97700; struct structure_type24753 t97701; struct structure_type24753 t97702; struct structure_type24753 t97703; struct structure_type24753 t97704; struct structure_type24753 t97705; struct structure_type24753 t97706; struct structure_type24753 t97707; struct structure_type24753 t97708; struct structure_type24753 t97709; struct structure_type24753 t97710; struct structure_type24753 t97711; struct structure_type24753 t97712; struct structure_type24753 t97713; struct structure_type24753 t97714; struct structure_type24753 t97715; struct structure_type24753 t97716; struct structure_type24753 t97717; struct structure_type24753 t97718; struct structure_type24753 t97719; struct structure_type24753 t97720; struct structure_type24753 t97721; struct structure_type24753 t97722; struct structure_type24753 t97723; struct structure_type24753 t97724; struct structure_type24753 t97725; struct structure_type24753 t97726; struct structure_type24753 t97727; struct structure_type24753 t97728; struct structure_type24753 t97729; struct structure_type24753 t97730; struct structure_type24753 t97731; struct structure_type24753 t97732; struct structure_type24753 t97733; struct structure_type24753 t97734; struct structure_type24753 t97735; struct structure_type24753 t97736; struct structure_type24753 t97737; struct structure_type24753 t97738; struct structure_type24753 t97739; struct structure_type24753 t97740; struct structure_type24753 t97741; struct structure_type24753 t97742; struct structure_type24753 t97743; struct structure_type24753 t97744; struct structure_type24753 t97745; struct structure_type24753 t97746; struct structure_type24753 t97747; struct structure_type24753 t97748; struct structure_type24753 t97749; struct structure_type24753 t97750; struct structure_type24753 t97751; struct structure_type24753 t97752; struct structure_type24753 t97753; struct structure_type24753 t97754; struct structure_type24753 t97755; struct structure_type24753 t97756; struct structure_type24753 t97757; struct structure_type24753 t97758; struct structure_type24753 t97759; struct structure_type24753 t97760; struct structure_type24753 t97761; struct structure_type24753 t97762; struct structure_type24753 t97763; struct structure_type24753 t97764; struct structure_type24753 t97765; struct structure_type24753 t97766; struct structure_type24753 t97767; struct structure_type24753 t97768; struct structure_type24753 t97769; struct structure_type24753 t97770; struct structure_type24753 t97771; struct structure_type24753 t97772; struct structure_type24753 t97773; struct structure_type24753 t97774; struct structure_type24753 t97775; struct structure_type24753 t97776; struct structure_type24753 t97777; struct structure_type24753 t97778; struct structure_type24753 t97779; struct structure_type24753 t97780; struct structure_type24753 t97781; struct structure_type24753 t97782; struct structure_type24753 t97783; struct structure_type24753 t97784; struct structure_type24753 t97785; struct structure_type24753 t97786; struct structure_type24753 t97787; struct structure_type24753 t97788; struct structure_type24753 t97789; struct structure_type24753 t97790; struct structure_type24753 t97791; struct structure_type24753 t97792; struct structure_type24753 t97793; struct structure_type24753 t97794; struct structure_type24753 t97795; struct structure_type24753 t97796; struct structure_type24753 t97797; struct structure_type24753 t97798; struct structure_type24753 t97799; struct structure_type24753 t97800; struct structure_type24753 t97801; struct structure_type24753 t97802; struct structure_type24753 t97803; struct structure_type24753 t97804; struct structure_type24753 t97805; struct structure_type24753 t97806; struct structure_type24753 t97807; struct structure_type24753 t97808; struct structure_type24753 t97809; struct structure_type24753 t97810; struct structure_type24753 t97811; struct structure_type24753 t97812; struct structure_type24753 t97813; struct structure_type24753 t97814; struct structure_type24753 t97815; struct structure_type24753 t97816; struct structure_type24753 t97817; struct structure_type24753 t97818; struct structure_type24753 t97819; struct structure_type24753 t97820; struct structure_type24753 t97821; struct structure_type24753 t97822; struct structure_type24753 t97823; struct structure_type24753 t97824; struct structure_type24753 t97825; struct structure_type24753 t97826; struct structure_type24753 t97827; struct structure_type24753 t97828; struct structure_type24753 t97829; struct structure_type24753 t97830; struct structure_type24753 t97831; struct structure_type24753 t97832; struct structure_type24753 t97833; struct structure_type24753 t97834; struct structure_type24753 t97835; struct structure_type24753 t97836; struct structure_type24753 t97837; struct structure_type24753 t97838; struct structure_type24753 t97839; struct structure_type24753 t97840; struct structure_type24753 t97841; struct structure_type24753 t97842; struct structure_type24753 t97843; struct structure_type24753 t97844; struct structure_type24753 t97845; struct structure_type24753 t97846; struct structure_type24753 t97847; struct structure_type24753 t97848; struct structure_type24753 t97849; struct structure_type24753 t97850; struct structure_type24753 t97851; struct structure_type24753 t97852; struct structure_type24753 t97853; struct structure_type24753 t97854; struct structure_type24753 t97855; struct structure_type24753 t97856; struct structure_type24753 t97857; struct structure_type24753 t97858; struct structure_type24753 t97859; struct structure_type24753 t97860; struct structure_type24753 t97861; struct structure_type24753 t97862; struct structure_type24753 t97863; struct structure_type24753 t97864; struct structure_type24753 t97865; struct structure_type24753 t97866; struct structure_type24753 t97867; struct structure_type24753 t97868; struct structure_type24753 t97869; struct structure_type24753 t97870; struct structure_type24753 t97871; struct structure_type24753 t97872; struct structure_type24753 t97873; struct structure_type24753 t97874; struct structure_type24753 t97875; struct structure_type24753 t97876; struct structure_type24753 t97877; struct structure_type24753 t97878; struct structure_type24753 t97879; struct structure_type24753 t97880; struct structure_type24753 t97881; struct structure_type24753 t97882; struct structure_type24753 t97883; struct structure_type24753 t97884; struct structure_type24753 t97885; struct structure_type24753 t97886; struct structure_type24753 t97887; struct structure_type24753 t97888; struct structure_type24753 t97889; struct structure_type24753 t97890; struct structure_type24753 t97891; struct structure_type24753 t97892; struct structure_type24753 t97893; struct structure_type24753 t97894; struct structure_type24753 t97895; struct structure_type24753 t97896; struct structure_type24753 t97897; struct structure_type24753 t97898; struct structure_type24753 t97899; struct structure_type24753 t97900; struct structure_type24753 t97901; struct structure_type24753 t97902; struct structure_type24753 t97903; struct structure_type24753 t97904; struct structure_type24753 t97905; struct structure_type24753 t97906; struct structure_type24753 t97907; struct structure_type24753 t97908; struct structure_type24753 t97909; struct structure_type24753 t97910; struct structure_type24753 t97911; struct structure_type24753 t97912; struct structure_type24753 t97913; struct structure_type24753 t97914; struct structure_type24753 t97915; struct structure_type24753 t97916; struct structure_type24753 t97917; struct structure_type24753 t97918; struct structure_type24753 t97919; struct structure_type24753 t97920; struct structure_type24753 t97921; struct structure_type24753 t97922; struct structure_type24753 t97923; struct structure_type24753 t97924; struct structure_type24753 t97925; struct structure_type24753 t97926; struct structure_type24753 t97927; struct structure_type24753 t97928; struct structure_type24753 t97929; struct structure_type24753 t97930; struct structure_type24753 t97931; struct structure_type24753 t97932; struct structure_type24753 t97933; struct structure_type24753 t97934; struct structure_type24753 t97935; struct structure_type24753 t97936; struct structure_type24753 t97937; struct structure_type24753 t97938; struct structure_type24753 t97939; struct structure_type24753 t97940; struct structure_type24753 t97941; struct structure_type24753 t97942; struct structure_type24753 t97943; struct structure_type24753 t97944; struct structure_type24753 t97945; struct structure_type24753 t97946; struct structure_type24753 t97947; struct structure_type24753 t97948; struct structure_type24753 t97949; struct structure_type24753 t97950; struct structure_type24753 t97951; struct structure_type24753 t97952; struct structure_type24753 t97953; struct structure_type24753 t97954; struct structure_type24753 t97955; struct structure_type24753 t97956; struct structure_type24753 t97957; struct structure_type24753 t97958; struct structure_type24753 t97959; struct structure_type24753 t97960; struct structure_type24753 t97961; struct structure_type24753 t97962; struct structure_type24753 t97963; struct structure_type24753 t97964; struct structure_type24753 t97965; struct structure_type24753 t97966; struct structure_type24753 t97967; struct structure_type24753 t97968; struct structure_type24753 t97969; struct structure_type24753 t97970; struct structure_type24753 t97971; struct structure_type24753 t97972; struct structure_type24753 t97973; struct structure_type24753 t97974; struct structure_type24753 t97975; struct structure_type24753 t97976; struct structure_type24753 t97977; struct structure_type24753 t97978; struct structure_type24753 t97979; struct structure_type24753 t97980; struct structure_type24753 t97981; struct structure_type24753 t97982; struct structure_type24753 t97983; struct structure_type24753 t97984; struct structure_type24753 t97985; struct structure_type24753 t97986; struct structure_type24753 t97987; struct structure_type24753 t97988; struct structure_type24753 t97989; struct structure_type24753 t97990; struct structure_type24753 t97991; struct structure_type24753 t97992; struct structure_type24753 t97993; struct structure_type24753 t97994; struct structure_type24753 t97995; struct structure_type24753 t97996; struct structure_type24753 t97997; struct structure_type24753 t97998; struct structure_type24753 t97999; struct structure_type24753 t98000; struct structure_type24753 t98001; struct structure_type24753 t98002; struct structure_type24753 t98003; struct structure_type24753 t98004; struct structure_type24753 t98005; struct structure_type24753 t98006; struct structure_type24753 t98007; struct structure_type24753 t98008; struct structure_type24753 t98009; struct structure_type24753 t98010; struct structure_type24753 t98011; struct structure_type24753 t98012; struct structure_type24753 t98013; struct structure_type24753 t98014; struct structure_type24753 t98015; struct structure_type24753 t98016; struct structure_type24753 t98017; struct structure_type24753 t98018; struct structure_type24753 t98019; struct structure_type24753 t98020; struct structure_type24753 t98021; struct structure_type24753 t98022; struct structure_type24753 t98023; struct structure_type24753 t98024; struct structure_type24753 t98025; struct structure_type24753 t98026; struct structure_type24753 t98027; struct structure_type24753 t98028; struct structure_type24753 t98029; struct structure_type24753 t98030; struct structure_type24753 t98031; struct structure_type24753 t98032; struct structure_type24753 t98033; struct structure_type24753 t98034; struct structure_type24753 t98035; struct structure_type24753 t98036; struct structure_type24753 t98037; struct structure_type24753 t98038; struct structure_type24753 t98039; struct structure_type24753 t98040; struct structure_type24753 t98041; struct structure_type24753 t98042; struct structure_type24753 t98043; struct structure_type24753 t98044; struct structure_type24753 t98045; struct structure_type24753 t98046; struct structure_type24753 t98047; struct structure_type24753 t98048; struct structure_type24753 t98049; struct structure_type24753 t98050; struct structure_type24753 t98051; struct structure_type24753 t98052; struct structure_type24753 t98053; struct structure_type24753 t98054; struct structure_type24753 t98055; struct structure_type24753 t98056; struct structure_type24753 t98057; struct structure_type24753 t98058; struct structure_type24753 t98059; struct structure_type24753 t98060; struct structure_type24753 t98061; struct structure_type24753 t98062; struct structure_type24753 t98063; struct structure_type24753 t98064; struct structure_type24753 t98065; struct structure_type24753 t98066; struct structure_type24753 t98067; struct structure_type24753 t98068; struct structure_type24753 t98069; struct structure_type24753 t98070; struct structure_type24753 t98071; struct structure_type24753 t98072; struct structure_type24753 t98073; struct structure_type24753 t98074; struct structure_type24753 t98075; struct structure_type24753 t98076; struct structure_type24753 t98077; struct structure_type24753 t98078; struct structure_type24753 t98079; struct structure_type24753 t98080; struct structure_type24753 t98081; struct structure_type24753 t98082; struct structure_type24753 t98083; struct structure_type24753 t98084; struct structure_type24753 t98085; struct structure_type24753 t98086; struct structure_type24753 t98087; struct structure_type24753 t98088; struct structure_type24753 t98089; struct structure_type24753 t98090; struct structure_type24753 t98091; struct structure_type24753 t98092; struct structure_type24753 t98093; struct structure_type24753 t98094; struct structure_type24753 t98095; struct structure_type24753 t98096; struct structure_type24753 t98097; struct structure_type24753 t98098; struct structure_type24753 t98099; struct structure_type24753 t98100; struct structure_type24753 t98101; struct structure_type24753 t98102; struct structure_type24753 t98103; struct structure_type24753 t98104; struct structure_type24753 t98105; struct structure_type24753 t98106; struct structure_type24753 t98107; struct structure_type24753 t98108; struct structure_type24753 t98109; struct structure_type24753 t98110; struct structure_type24753 t98111; struct structure_type24753 t98112; struct structure_type24753 t98113; struct structure_type24753 t98114; struct structure_type24753 t98115; struct structure_type24753 t98116; struct structure_type24753 t98117; struct structure_type24753 t98118; struct structure_type24753 t98119; struct structure_type24753 t98120; struct structure_type24753 t98121; struct structure_type24753 t98122; struct structure_type24753 t98123; struct structure_type24753 t98124; struct structure_type24753 t98125; struct structure_type24753 t98126; struct structure_type24753 t98127; struct structure_type24753 t98128; struct structure_type24753 t98129; struct structure_type24753 t98130; struct structure_type24753 t98131; struct structure_type24753 t98132; struct structure_type24753 t98133; struct structure_type24753 t98134; struct structure_type24753 t98135; struct structure_type24753 t98136; struct structure_type24753 t98137; struct structure_type24753 t98138; struct structure_type24753 t98139; struct structure_type24753 t98140; struct structure_type24753 t98141; struct structure_type24753 t98142; struct structure_type24753 t98143; struct structure_type24753 t98144; struct structure_type24753 t98145; struct structure_type24753 t98146; struct structure_type24753 t98147; struct structure_type24753 t98148; struct structure_type24753 t98149; struct structure_type24753 t98150; struct structure_type24753 t98151; struct structure_type24753 t98152; struct structure_type24753 t98153; struct structure_type24753 t98154; struct structure_type24753 t98155; struct structure_type24753 t98156; struct structure_type24753 t98157; struct structure_type24753 t98158; struct structure_type24753 t98159; struct structure_type24753 t98160; struct structure_type24753 t98161; struct structure_type24753 t98162; struct structure_type24753 t98163; struct structure_type24753 t98164; struct structure_type24753 t98165; struct structure_type24753 t98166; struct structure_type24753 t98167; struct structure_type24753 t98168; struct structure_type24753 t98169; struct structure_type24753 t98170; struct structure_type24753 t98171; struct structure_type24753 t98172; struct structure_type24753 t98173; struct structure_type24753 t98174; struct structure_type24753 t98175; struct structure_type24753 t98176; struct structure_type24753 t98177; struct structure_type24753 t98178; struct structure_type24753 t98179; struct structure_type24753 t98180; struct structure_type24753 t98181; struct structure_type24753 t98182; struct structure_type24753 t98183; struct structure_type24753 t98184; struct structure_type24753 t98185; struct structure_type24753 t98186; struct structure_type24753 t98187; struct structure_type24753 t98188; struct structure_type24753 t98189; struct structure_type24753 t98190; struct structure_type24753 t98191; struct structure_type24753 t98192; struct structure_type24753 t98193; struct structure_type24753 t98194; struct structure_type24753 t98195; struct structure_type24753 t98196; struct structure_type24753 t98197; struct structure_type24753 t98198; struct structure_type24753 t98199; struct structure_type24753 t98200; struct structure_type24753 t98201; struct structure_type24753 t98202; struct structure_type24753 t98203; struct structure_type24753 t98204; struct structure_type24753 t98205; struct structure_type24753 t98206; struct structure_type24753 t98207; struct structure_type24753 t98208; struct structure_type24753 t98209; struct structure_type24753 t98210; struct structure_type24753 t98211; struct structure_type24753 t98212; struct structure_type24753 t98213; struct structure_type24753 t98214; struct structure_type24753 t98215; struct structure_type24753 t98216; struct structure_type24753 t98217; struct structure_type24753 t98218; struct structure_type24753 t98219; struct structure_type24753 t98220; struct structure_type24753 t98221; struct structure_type24753 t98222; struct structure_type24753 t98223; struct structure_type24753 t98224; struct structure_type24753 t98225; struct structure_type24753 t98226; struct structure_type24753 t98227; struct structure_type24753 t98228; struct structure_type24753 t98229; struct structure_type24753 t98230; struct structure_type24753 t98231; struct structure_type24753 t98232; struct structure_type24753 t98233; struct structure_type24753 t98234; struct structure_type24753 t98235; struct structure_type24753 t98236; struct structure_type24753 t98237; struct structure_type24753 t98238; struct structure_type24753 t98239; struct structure_type24753 t98240; struct structure_type24753 t98241; struct structure_type24753 t98242; struct structure_type24753 t98243; struct structure_type24753 t98244; struct structure_type24753 t98245; struct structure_type24753 t98246; struct structure_type24753 t98247; struct structure_type24753 t98248; struct structure_type24753 t98249; struct structure_type24753 t98250; struct structure_type24753 t98251; struct structure_type24753 t98252; struct structure_type24753 t98253; struct structure_type24753 t98254; struct structure_type24753 t98255; struct structure_type24753 t98256; struct structure_type24753 t98257; struct structure_type24753 t98258; struct structure_type24753 t98259; struct structure_type24753 t98260; struct structure_type24753 t98261; struct structure_type24753 t98262; struct structure_type24753 t98263; struct structure_type24753 t98264; struct structure_type24753 t98265; struct structure_type24753 t98266; struct structure_type24753 t98267; struct structure_type24753 t98268; struct structure_type24753 t98269; struct structure_type24753 t98270; struct structure_type24753 t98271; struct structure_type24753 t98272; struct structure_type24753 t98273; struct structure_type24753 t98274; struct structure_type24753 t98275; struct structure_type24753 t98276; struct structure_type24753 t98277; struct structure_type24753 t98278; struct structure_type24753 t98279; struct structure_type24753 t98280; struct structure_type24753 t98281; struct structure_type24753 t98282; struct structure_type24753 t98283; struct structure_type24753 t98284; struct structure_type24753 t98285; struct structure_type24753 t98286; struct structure_type24753 t98287; struct structure_type24753 t98288; struct structure_type24753 t98289; struct structure_type24753 t98290; struct structure_type24753 t98291; struct structure_type24753 t98292; struct structure_type24753 t98293; struct structure_type24753 t98294; struct structure_type24753 t98295; struct structure_type24753 t98296; struct structure_type24753 t98297; struct structure_type24753 t98298; struct structure_type24753 t98299; struct structure_type24753 t98300; struct structure_type24753 t98301; struct structure_type24753 t98302; struct structure_type24753 t98303; struct structure_type24753 t98304; struct structure_type24753 t98305; struct structure_type24753 t98306; struct structure_type24753 t98307; struct structure_type24753 t98308; struct structure_type24753 t98309; struct structure_type24753 t98310; struct structure_type24753 t98311; struct structure_type24753 t98312; struct structure_type24753 t98313; struct structure_type24753 t98314; struct structure_type24753 t98315; struct structure_type24753 t98316; struct structure_type24753 t98317; struct structure_type24753 t98318; struct structure_type24753 t98319; struct structure_type24753 t98320; struct structure_type24753 t98321; struct structure_type24753 t98322; struct structure_type24753 t98323; struct structure_type24753 t98324; struct structure_type24753 t98325; struct structure_type24753 t98326; struct structure_type24753 t98327; struct structure_type24753 t98328; struct structure_type24753 t98329; struct structure_type24753 t98330; struct structure_type24753 t98331; struct structure_type24753 t98332; struct structure_type24753 t98333; struct structure_type24753 t98334; struct structure_type24753 t98335; struct structure_type24753 t98336; struct structure_type24753 t98337; struct structure_type24753 t98338; struct structure_type24753 t98339; struct structure_type24753 t98340; struct structure_type24753 t98341; struct structure_type24753 t98342; struct structure_type24753 t98343; struct structure_type24753 t98344; struct structure_type24753 t98345; struct structure_type24753 t98346; struct structure_type24753 t98347; struct structure_type24753 t98348; struct structure_type24753 t98349; struct structure_type24753 t98350; struct structure_type24753 t98351; struct structure_type24753 t98352; struct structure_type24753 t98353; struct structure_type24753 t98354; struct structure_type24753 t98355; struct structure_type24753 t98356; struct structure_type24753 t98357; struct structure_type24753 t98358; struct structure_type24753 t98359; struct structure_type24753 t98360; struct structure_type24753 t98361; struct structure_type24753 t98362; struct structure_type24753 t98363; struct structure_type24753 t98364; struct structure_type24753 t98365; struct structure_type24753 t98366; struct structure_type24753 t98367; struct structure_type24753 t98368; struct structure_type24753 t98369; struct structure_type24753 t98370; struct structure_type24753 t98371; struct structure_type24753 t98372; struct structure_type24753 t98373; struct structure_type24753 t98374; struct structure_type24753 t98375; struct structure_type24753 t98376; struct structure_type24753 t98377; struct structure_type24753 t98378; struct structure_type24753 t98379; struct structure_type24753 t98380; struct structure_type24753 t98381; struct structure_type24753 t98382; struct structure_type24753 t98383; struct structure_type24753 t98384; struct structure_type24753 t98385; struct structure_type24753 t98386; struct structure_type24753 t98387; struct structure_type24753 t98388; struct structure_type24753 t98389; struct structure_type24753 t98390; struct structure_type24753 t98391; struct structure_type24753 t98392; struct structure_type24753 t98393; struct structure_type24753 t98394; struct structure_type24753 t98395; struct structure_type24753 t98396; struct structure_type24753 t98397; struct structure_type24753 t98398; struct structure_type24753 t98399; struct structure_type24753 t98400; struct structure_type24753 t98401; struct structure_type24753 t98402; struct structure_type24753 t98403; struct structure_type24753 t98404; struct structure_type24753 t98405; struct structure_type24753 t98406; struct structure_type24753 t98407; struct structure_type24753 t98408; struct structure_type24753 t98409; struct structure_type24753 t98410; struct structure_type24753 t98411; struct structure_type24753 t98412; struct structure_type24753 t98413; struct structure_type24753 t98414; struct structure_type24753 t98415; struct structure_type24753 t98416; struct structure_type24753 t98417; struct structure_type24753 t98418; struct structure_type24753 t98419; struct structure_type24753 t98420; struct structure_type24753 t98421; struct structure_type24753 t98422; struct structure_type24753 t98423; struct structure_type24753 t98424; struct structure_type24753 t98425; struct structure_type24753 t98426; struct structure_type24753 t98427; struct structure_type24753 t98428; struct structure_type24753 t98429; struct structure_type24753 t98430; struct structure_type24753 t98431; struct structure_type24753 t98432; struct structure_type24753 t98433; struct structure_type24753 t98434; struct structure_type24753 t98435; struct structure_type24753 t98436; struct structure_type24753 t98437; struct structure_type24753 t98438; struct structure_type24753 t98439; struct structure_type24753 t98440; struct structure_type24753 t98441; struct structure_type24753 t98442; struct structure_type24753 t98443; struct structure_type24753 t98444; struct structure_type24753 t98445; struct structure_type24753 t98446; struct structure_type24753 t98447; struct structure_type24753 t98448; struct structure_type24753 t98449; struct structure_type24753 t98450; struct structure_type24753 t98451; struct structure_type24753 t98452; struct structure_type24753 t98453; struct structure_type24753 t98454; struct structure_type24753 t98455; struct structure_type24753 t98456; struct structure_type24753 t98457; struct structure_type24753 t98458; struct structure_type24753 t98459; struct structure_type24753 t98460; struct structure_type24753 t98461; struct structure_type24753 t98462; struct structure_type24753 t98463; struct structure_type24753 t98464; struct structure_type24753 t98465; struct structure_type24753 t98466; struct structure_type24753 t98467; struct structure_type24753 t98468; struct structure_type24753 t98469; struct structure_type24753 t98470; struct structure_type24753 t98471; struct structure_type24753 t98472; struct structure_type24753 t98473; struct structure_type24753 t98474; struct structure_type24753 t98475; struct structure_type24753 t98476; struct structure_type24753 t98477; struct structure_type24753 t98478; struct structure_type24753 t98479; struct structure_type24753 t98480; struct structure_type24753 t98481; struct structure_type24753 t98482; struct structure_type24753 t98483; struct structure_type24753 t98484; struct structure_type24753 t98485; struct structure_type24753 t98486; struct structure_type24753 t98487; struct structure_type24753 t98488; struct structure_type24753 t98489; struct structure_type24753 t98490; struct structure_type24753 t98491; struct structure_type24753 t98492; struct structure_type24753 t98493; struct structure_type24753 t98494; struct structure_type24753 t98495; struct structure_type24753 t98496; struct structure_type24753 t98497; struct structure_type24753 t98498; struct structure_type24753 t98499; struct structure_type24753 t98500; struct structure_type24753 t98501; struct structure_type24753 t98502; struct structure_type24753 t98503; struct structure_type24753 t98504; struct structure_type24753 t98505; struct structure_type24753 t98506; struct structure_type24753 t98507; struct structure_type24753 t98508; struct structure_type24753 t98509; struct structure_type24753 t98510; struct structure_type24753 t98511; struct structure_type24753 t98512; struct structure_type24753 t98513; struct structure_type24753 t98514; struct structure_type24753 t98515; struct structure_type24753 t98516; struct structure_type24753 t98517; struct structure_type24753 t98518; struct structure_type24753 t98519; struct structure_type24753 t98520; struct structure_type24753 t98521; struct structure_type24753 t98522; struct structure_type24753 t98523; struct structure_type24753 t98524; struct structure_type24753 t98525; struct structure_type24753 t98526; struct structure_type24753 t98527; struct structure_type24753 t98528; struct structure_type24753 t98529; struct structure_type24753 t98530; struct structure_type24753 t98531; struct structure_type24753 t98532; struct structure_type24753 t98533; struct structure_type24753 t98534; struct structure_type24753 t98535; struct structure_type24753 t98536; struct structure_type24753 t98537; struct structure_type24753 t98538; struct structure_type24753 t98539; struct structure_type24753 t98540; struct structure_type24753 t98541; struct structure_type24753 t98542; struct structure_type24753 t98543; struct structure_type24753 t98544; struct structure_type24753 t98545; struct structure_type24753 t98546; struct structure_type24753 t98547; struct structure_type24753 t98548; struct structure_type24753 t98549; struct structure_type24753 t98550; struct structure_type24753 t98551; struct structure_type24753 t98552; struct structure_type24753 t98553; struct structure_type24753 t98554; struct structure_type24753 t98555; struct structure_type24753 t98556; struct structure_type24753 t98557; struct structure_type24753 t98558; struct structure_type24753 t98559; struct structure_type24753 t98560; struct structure_type24753 t98561; struct structure_type24753 t98562; struct structure_type24753 t98563; struct structure_type24753 t98564; struct structure_type24753 t98565; struct structure_type24753 t98566; struct structure_type24753 t98567; struct structure_type24753 t98568; struct structure_type24753 t98569; struct structure_type24753 t98570; struct structure_type24753 t98571; struct structure_type24753 t98572; struct structure_type24753 t98573; struct structure_type24753 t98574; struct structure_type24753 t98575; struct structure_type24753 t98576; struct structure_type24753 t98577; struct structure_type24753 t98578; struct structure_type24753 t98579; struct structure_type24753 t98580; struct structure_type24753 t98581; struct structure_type24753 t98582; struct structure_type24753 t98583; struct structure_type24753 t98584; struct structure_type24753 t98585; struct structure_type24753 t98586; struct structure_type24753 t98587; struct structure_type24753 t98588; struct structure_type24753 t98589; struct structure_type24753 t98590; struct structure_type24753 t98591; struct structure_type24753 t98592; struct structure_type24753 t98593; struct structure_type24753 t98594; struct structure_type24753 t98595; struct structure_type24753 t98596; struct structure_type24753 t98597; struct structure_type24753 t98598; struct structure_type24753 t98599; struct structure_type24753 t98600; struct structure_type24753 t98601; struct structure_type24753 t98602; struct structure_type24753 t98603; struct structure_type24753 t98604; struct structure_type24753 t98605; struct structure_type24753 t98606; struct structure_type24753 t98607; struct structure_type24753 t98608; struct structure_type24753 t98609; struct structure_type24753 t98610; struct structure_type24753 t98611; struct structure_type24753 t98612; struct structure_type24753 t98613; struct structure_type24753 t98614; struct structure_type24753 t98615; struct structure_type24753 t98616; struct structure_type24753 t98617; struct structure_type24753 t98618; struct structure_type24753 t98619; struct structure_type24753 t98620; struct structure_type24753 t98621; struct structure_type24753 t98622; struct structure_type24753 t98623; struct structure_type24753 t98624; struct structure_type24753 t98625; struct structure_type24753 t98626; struct structure_type24753 t98627; struct structure_type24753 t98628; struct structure_type24753 t98629; struct structure_type24753 t98630; struct structure_type24753 t98631; struct structure_type24753 t98632; struct structure_type24753 t98633; struct structure_type24753 t98634; struct structure_type24753 t98635; struct structure_type24753 t98636; struct structure_type24753 t98637; struct structure_type24753 t98638; struct structure_type24753 t98639; struct structure_type24753 t98640; struct structure_type24753 t98641; struct structure_type24753 t98642; struct structure_type24753 t98643; struct structure_type24753 t98644; struct structure_type24753 t98645; struct structure_type24753 t98646; struct structure_type24753 t98647; struct structure_type24753 t98648; struct structure_type24753 t98649; struct structure_type24753 t98650; struct structure_type24753 t98651; struct structure_type24753 t98652; struct structure_type24753 t98653; struct structure_type24753 t98654; struct structure_type24753 t98655; struct structure_type24753 t98656; struct structure_type24753 t98657; struct structure_type24753 t98658; struct structure_type24753 t98659; struct structure_type24753 t98660; struct structure_type24753 t98661; struct structure_type24753 t98662; struct structure_type24753 t98663; struct structure_type24753 t98664; struct structure_type24753 t98665; struct structure_type24753 t98666; struct structure_type24753 t98667; struct structure_type24753 t98668; struct structure_type24753 t98669; struct structure_type24753 t98670; struct structure_type24753 t98671; struct structure_type24753 t98672; struct structure_type24753 t98673; struct structure_type24753 t98674; struct structure_type24753 t98675; struct structure_type24753 t98676; struct structure_type24753 t98677; struct structure_type24753 t98678; struct structure_type24753 t98679; struct structure_type24753 t98680; struct structure_type24753 t98681; struct structure_type24753 t98682; struct structure_type24753 t98683; struct structure_type24753 t98684; struct structure_type24753 t98685; struct structure_type24753 t98686; struct structure_type24753 t98687; struct structure_type24753 t98688; struct structure_type24753 t98689; struct structure_type24753 t98690; struct structure_type24753 t98691; struct structure_type24753 t98692; struct structure_type24753 t98693; struct structure_type24753 t98694; struct structure_type24753 t98695; struct structure_type24753 t98696; struct structure_type24753 t98697; struct structure_type24753 t98698; struct structure_type24753 t98699; struct structure_type24753 t98700; struct structure_type24753 t98701; struct structure_type24753 t98702; struct structure_type24753 t98703; struct structure_type24753 t98704; struct structure_type24753 t98705; struct structure_type24753 t98706; struct structure_type24753 t98707; struct structure_type24753 t98708; struct structure_type24753 t98709; struct structure_type24753 t98710; struct structure_type24753 t98711; struct structure_type24753 t98712; struct structure_type24753 t98713; struct structure_type24753 t98714; struct structure_type24753 t98715; struct structure_type24753 t98716; struct structure_type24753 t98717; struct structure_type24753 t98718; struct structure_type24753 t98719; struct structure_type24753 t98720; struct structure_type24753 t98721; struct structure_type24753 t98722; struct structure_type24753 t98723; struct structure_type24753 t98724; struct structure_type24753 t98725; struct structure_type24753 t98726; struct structure_type24753 t98727; struct structure_type24753 t98728; struct structure_type24753 t98729; struct structure_type24753 t98730; struct structure_type24753 t98731; struct structure_type24753 t98732; struct structure_type24753 t98733; struct structure_type24753 t98734; struct structure_type24753 t98735; struct structure_type24753 t98736; struct structure_type24753 t98737; struct structure_type24753 t98738; struct structure_type24753 t98739; struct structure_type24753 t98740; struct structure_type24753 t98741; struct structure_type24753 t98742; struct structure_type24753 t98743; struct structure_type24753 t98744; struct structure_type24753 t98745; struct structure_type24753 t98746; struct structure_type24753 t98747; struct structure_type24753 t98748; struct structure_type24753 t98749; struct structure_type24753 t98750; struct structure_type24753 t98751; struct structure_type24753 t98752; struct structure_type24753 t98753; struct structure_type24753 t98754; struct structure_type24753 t98755; struct structure_type24753 t98756; struct structure_type24753 t98757; struct structure_type24753 t98758; struct structure_type24753 t98759; struct structure_type24753 t98760; struct structure_type24753 t98761; struct structure_type24753 t98762; struct structure_type24753 t98763; struct structure_type24753 t98764; struct structure_type24753 t98765; struct structure_type24753 t98766; struct structure_type24753 t98767; struct structure_type24753 t98768; struct structure_type24753 t98769; struct structure_type24753 t98770; struct structure_type24753 t98771; struct structure_type24753 t98772; struct structure_type24753 t98773; struct structure_type24753 t98774; struct structure_type24753 t98775; struct structure_type24753 t98776; struct structure_type24753 t98777; struct structure_type24753 t98778; struct structure_type24753 t98779; struct structure_type24753 t98780; struct structure_type24753 t98781; struct structure_type24753 t98782; struct structure_type24753 t98783; struct structure_type24753 t98784; struct structure_type24753 t98785; struct structure_type24753 t98786; struct structure_type24753 t98787; struct structure_type24753 t98788; struct structure_type24753 t98789; struct structure_type24753 t98790; struct structure_type24753 t98791; struct structure_type24753 t98792; struct structure_type24753 t98793; struct structure_type24753 t98794; struct structure_type24753 t98795; struct structure_type24753 t98796; struct structure_type24753 t98797; struct structure_type24753 t98798; struct structure_type24753 t98799; struct structure_type24753 t98800; struct structure_type24753 t98801; struct structure_type24753 t98802; struct structure_type24753 t98803; struct structure_type24753 t98804; struct structure_type24753 t98805; struct structure_type24753 t98806; struct structure_type24753 t98807; struct structure_type24753 t98808; struct structure_type24753 t98809; struct structure_type24753 t98810; struct structure_type24753 t98811; struct structure_type24753 t98812; struct structure_type24753 t98813; struct structure_type24753 t98814; struct structure_type24753 t98815; struct structure_type24753 t98816; struct structure_type24753 t98817; struct structure_type24753 t98818; struct structure_type24753 t98819; struct structure_type24753 t98820; struct structure_type24753 t98821; struct structure_type24753 t98822; struct structure_type24753 t98823; struct structure_type24753 t98824; struct structure_type24753 t98825; struct structure_type24753 t98826; struct structure_type24753 t98827; struct structure_type24753 t98828; struct structure_type24753 t98829; struct structure_type24753 t98830; struct structure_type24753 t98831; struct structure_type24753 t98832; struct structure_type24753 t98833; struct structure_type24753 t98834; struct structure_type24753 t98835; struct structure_type24753 t98836; struct structure_type24753 t98837; struct structure_type24753 t98838; struct structure_type24753 t98839; struct structure_type24753 t98840; struct structure_type24753 t98841; struct structure_type24753 t98842; struct structure_type24753 t98843; struct structure_type24753 t98844; struct structure_type24753 t98845; struct structure_type24753 t98846; struct structure_type24753 t98847; struct structure_type24753 t98848; struct structure_type24753 t98849; struct structure_type24753 t98850; struct structure_type24753 t98851; struct structure_type24753 t98852; struct structure_type24753 t98853; struct structure_type24753 t98854; struct structure_type24753 t98855; struct structure_type24753 t98856; struct structure_type24753 t98857; struct structure_type24753 t98858; struct structure_type24753 t98859; struct structure_type24753 t98860; struct structure_type24753 t98861; struct structure_type24753 t98862; struct structure_type24753 t98863; struct structure_type24753 t98864; struct structure_type24753 t98865; struct structure_type24753 t98866; struct structure_type24753 t98867; struct structure_type24753 t98868; struct structure_type24753 t98869; struct structure_type24753 t98870; struct structure_type24753 t98871; struct structure_type24753 t98872; struct structure_type24753 t98873; struct structure_type24753 t98874; struct structure_type24753 t98875; struct structure_type24753 t98876; struct structure_type24753 t98877; struct structure_type24753 t98878; struct structure_type24753 t98879; struct structure_type24753 t98880; struct structure_type24753 t98881; struct structure_type24753 t98882; struct structure_type24753 t98883; struct structure_type24753 t98884; struct structure_type24753 t98885; struct structure_type24753 t98886; struct structure_type24753 t98887; struct structure_type24753 t98888; struct structure_type24753 t98889; struct structure_type24753 t98890; struct structure_type24753 t98891; struct structure_type24753 t98892; struct structure_type24753 t98893; struct structure_type24753 t98894; struct structure_type24753 t98895; struct structure_type24753 t98896; struct structure_type24753 t98897; struct structure_type24753 t98898; struct structure_type24753 t98899; struct structure_type24753 t98900; struct structure_type24753 t98901; struct structure_type24753 t98902; struct structure_type24753 t98903; struct structure_type24753 t98904; struct structure_type24753 t98905; struct structure_type24753 t98906; struct structure_type24753 t98907; struct structure_type24753 t98908; struct structure_type24753 t98909; struct structure_type24753 t98910; struct structure_type24753 t98911; struct structure_type24753 t98912; struct structure_type24753 t98913; struct structure_type24753 t98914; struct structure_type24753 t98915; struct structure_type24753 t98916; struct structure_type24753 t98917; struct structure_type24753 t98918; struct structure_type24753 t98919; struct structure_type24753 t98920; struct structure_type24753 t98921; struct structure_type24753 t98922; struct structure_type24753 t98923; struct structure_type24753 t98924; struct structure_type24753 t98925; struct structure_type24753 t98926; struct structure_type24753 t98927; struct structure_type24753 t98928; struct structure_type24753 t98929; struct structure_type24753 t98930; struct structure_type24753 t98931; struct structure_type24753 t98932; struct structure_type24753 t98933; struct structure_type24753 t98934; struct structure_type24753 t98935; struct structure_type24753 t98936; struct structure_type24753 t98937; struct structure_type24753 t98938; struct structure_type24753 t98939; struct structure_type24753 t98940; struct structure_type24753 t98941; struct structure_type24753 t98942; struct structure_type24753 t98943; struct structure_type24753 t98944; struct structure_type24753 t98945; struct structure_type24753 t98946; struct structure_type24753 t98947; struct structure_type24753 t98948; struct structure_type24753 t98949; struct structure_type24753 t98950; struct structure_type24753 t98951; struct structure_type24753 t98952; struct structure_type24753 t98953; struct structure_type24753 t98954; struct structure_type24753 t98955; struct structure_type24753 t98956; struct structure_type24753 t98957; struct structure_type24753 t98958; struct structure_type24753 t98959; struct structure_type24753 t98960; struct structure_type24753 t98961; struct structure_type24753 t98962; struct structure_type24753 t98963; struct structure_type24753 t98964; struct structure_type24753 t98965; struct structure_type24753 t98966; struct structure_type24753 t98967; struct structure_type24753 t98968; struct structure_type24753 t98969; struct structure_type24753 t98970; struct structure_type24753 t98971; struct structure_type24753 t98972; struct structure_type24753 t98973; struct structure_type24753 t98974; struct structure_type24753 t98975; struct structure_type24753 t98976; struct structure_type24753 t98977; struct structure_type24753 t98978; struct structure_type24753 t98979; struct structure_type24753 t98980; struct structure_type24753 t98981; struct structure_type24753 t98982; struct structure_type24753 t98983; struct structure_type24753 t98984; struct structure_type24753 t98985; struct structure_type24753 t98986; struct structure_type24753 t98987; struct structure_type24753 t98988; struct structure_type24753 t98989; struct structure_type24753 t98990; struct structure_type24753 t98991; struct structure_type24753 t98992; struct structure_type24753 t98993; struct structure_type24753 t98994; struct structure_type24753 t98995; struct structure_type24753 t98996; struct structure_type24753 t98997; struct structure_type24753 t98998; struct structure_type24753 t98999; struct structure_type24753 t99000; struct structure_type24753 t99001; struct structure_type24753 t99002; struct structure_type24753 t99003; struct structure_type24753 t99004; struct structure_type24753 t99005; struct structure_type24753 t99006; struct structure_type24753 t99007; struct structure_type24753 t99008; struct structure_type24753 t99009; struct structure_type24753 t99010; struct structure_type24753 t99011; struct structure_type24753 t99012; struct structure_type24753 t99013; struct structure_type24753 t99014; struct structure_type24753 t99015; struct structure_type24753 t99016; struct structure_type24753 t99017; struct structure_type24753 t99018; struct structure_type24753 t99019; struct structure_type24753 t99020; struct structure_type24753 t99021; struct structure_type24753 t99022; struct structure_type24753 t99023; struct structure_type24753 t99024; struct structure_type24753 t99025; struct structure_type24753 t99026; struct structure_type24753 t99027; struct structure_type24753 t99028; struct structure_type24753 t99029; struct structure_type24753 t99030; struct structure_type24753 t99031; struct structure_type24753 t99032; struct structure_type24753 t99033; struct structure_type24753 t99034; struct structure_type24753 t99035; struct structure_type24753 t99036; struct structure_type24753 t99037; struct structure_type24753 t99038; struct structure_type24753 t99039; struct structure_type24753 t99040; struct structure_type24753 t99041; struct structure_type24753 t99042; struct structure_type24753 t99043; struct structure_type24753 t99044; struct structure_type24753 t99045; struct structure_type24753 t99046; struct structure_type24753 t99047; struct structure_type24753 t99048; struct structure_type24753 t99049; struct structure_type24753 t99050; struct structure_type24753 t99051; struct structure_type24753 t99052; struct structure_type24753 t99053; struct structure_type24753 t99054; struct structure_type24753 t99055; struct structure_type24753 t99056; struct structure_type24753 t99057; struct structure_type24753 t99058; struct structure_type24753 t99059; struct structure_type24753 t99060; struct structure_type24753 t99061; struct structure_type24753 t99062; struct structure_type24753 t99063; struct structure_type24753 t99064; struct structure_type24753 t99065; struct structure_type24753 t99066; struct structure_type24753 t99067; struct structure_type24753 t99068; struct structure_type24753 t99069; struct structure_type24753 t99070; struct structure_type24753 t99071; struct structure_type24753 t99072; struct structure_type24753 t99073; struct structure_type24753 t99074; struct structure_type24753 t99075; struct structure_type24753 t99076; struct structure_type24753 t99077; struct structure_type24753 t99078; struct structure_type24753 t99079; struct structure_type24753 t99080; struct structure_type24753 t99081; struct structure_type24753 t99082; struct structure_type24753 t99083; struct structure_type24753 t99084; struct structure_type24753 t99085; struct structure_type24753 t99086; struct structure_type24753 t99087; struct structure_type24753 t99088; struct structure_type24753 t99089; struct structure_type24753 t99090; struct structure_type24753 t99091; struct structure_type24753 t99092; struct structure_type24753 t99093; struct structure_type24753 t99094; struct structure_type24753 t99095; struct structure_type24753 t99096; struct structure_type24753 t99097; struct structure_type24753 t99098; struct structure_type24753 t99099; struct structure_type24753 t99100; struct structure_type24753 t99101; struct structure_type24753 t99102; struct structure_type24753 t99103; struct structure_type24753 t99104; struct structure_type24753 t99105; struct structure_type24753 t99106; struct structure_type24753 t99107; struct structure_type24753 t99108; struct structure_type24753 t99109; struct structure_type24753 t99110; struct structure_type24753 t99111; struct structure_type24753 t99112; struct structure_type24753 t99113; struct structure_type24753 t99114; struct structure_type24753 t99115; struct structure_type24753 t99116; struct structure_type24753 t99117; struct structure_type24753 t99118; struct structure_type24753 t99119; struct structure_type24753 t99120; struct structure_type24753 t99121; struct structure_type24753 t99122; struct structure_type24753 t99123; struct structure_type24753 t99124; struct structure_type24753 t99125; struct structure_type24753 t99126; struct structure_type24753 t99127; struct structure_type24753 t99128; struct structure_type24753 t99129; struct structure_type24753 t99130; struct structure_type24753 t99131; struct structure_type24753 t99132; struct structure_type24753 t99133; struct structure_type24753 t99134; struct structure_type24753 t99135; struct structure_type24753 t99136; struct structure_type24753 t99137; struct structure_type24753 t99138; struct structure_type24753 t99139; struct structure_type24753 t99140; struct structure_type24753 t99141; struct structure_type24753 t99142; struct structure_type24753 t99143; struct structure_type24753 t99144; struct structure_type24753 t99145; struct structure_type24753 t99146; struct structure_type24753 t99147; struct structure_type24753 t99148; struct structure_type24753 t99149; struct structure_type24753 t99150; struct structure_type24753 t99151; struct structure_type24753 t99152; struct structure_type24753 t99153; struct structure_type24753 t99154; struct structure_type24753 t99155; struct structure_type24753 t99156; struct structure_type24753 t99157; struct structure_type24753 t99158; struct structure_type24753 t99159; struct structure_type24753 t99160; struct structure_type24753 t99161; struct structure_type24753 t99162; struct structure_type24753 t99163; struct structure_type24753 t99164; struct structure_type24753 t99165; struct structure_type24753 t99166; struct structure_type24753 t99167; struct structure_type24753 t99168; struct structure_type24753 t99169; struct structure_type24753 t99170; struct structure_type24753 t99171; struct structure_type24753 t99172; struct structure_type24753 t99173; struct structure_type24753 t99174; struct structure_type24753 t99175; struct structure_type24753 t99176; struct structure_type24753 t99177; struct structure_type24753 t99178; struct structure_type24753 t99179; struct structure_type24753 t99180; struct structure_type24753 t99181; struct structure_type24753 t99182; struct structure_type24753 t99183; struct structure_type24753 t99184; struct structure_type24753 t99185; struct structure_type24753 t99186; struct structure_type24753 t99187; struct structure_type24753 t99188; struct structure_type24753 t99189; struct structure_type24753 t99190; struct structure_type24753 t99191; struct structure_type24753 t99192; struct structure_type24753 t99193; struct structure_type24753 t99194; struct structure_type24753 t99195; struct structure_type24753 t99196; struct structure_type24753 t99197; struct structure_type24753 t99198; struct structure_type24753 t99199; struct structure_type24753 t99200; struct structure_type24753 t99201; struct structure_type24753 t99202; struct structure_type24753 t99203; struct structure_type24753 t99204; struct structure_type24753 t99205; struct structure_type24753 t99206; struct structure_type24753 t99207; struct structure_type24753 t99208; struct structure_type24753 t99209; struct structure_type24753 t99210; struct structure_type24753 t99211; struct structure_type24753 t99212; struct structure_type24753 t99213; struct structure_type24753 t99214; struct structure_type24753 t99215; struct structure_type24753 t99216; struct structure_type24753 t99217; struct structure_type24753 t99218; struct structure_type24753 t99219; struct structure_type24753 t99220; struct structure_type24753 t99221; struct structure_type24753 t99222; struct structure_type24753 t99223; struct structure_type24753 t99224; struct structure_type24753 t99225; struct structure_type24753 t99226; struct structure_type24753 t99227; struct structure_type24753 t99228; struct structure_type24753 t99229; struct structure_type24753 t99230; struct structure_type24753 t99231; struct structure_type24753 t99232; struct structure_type24753 t99233; struct structure_type24753 t99234; struct structure_type24753 t99235; struct structure_type24753 t99236; struct structure_type24753 t99237; struct structure_type24753 t99238; struct structure_type24753 t99239; struct structure_type24753 t99240; struct structure_type24753 t99241; struct structure_type24753 t99242; struct structure_type24753 t99243; struct structure_type24753 t99244; struct structure_type24753 t99245; struct structure_type24753 t99246; struct structure_type24753 t99247; struct structure_type24753 t99248; struct structure_type24753 t99249; struct structure_type24753 t99250; struct structure_type24753 t99251; struct structure_type24753 t99252; struct structure_type24753 t99253; struct structure_type24753 t99254; struct structure_type24753 t99255; struct structure_type24753 t99256; struct structure_type24753 t99257; struct structure_type24753 t99258; struct structure_type24753 t99259; struct structure_type24753 t99260; struct structure_type24753 t99261; struct structure_type24753 t99262; struct structure_type24753 t99263; struct structure_type24753 t99264; struct structure_type24753 t99265; struct structure_type24753 t99266; struct structure_type24753 t99267; struct structure_type24753 t99268; struct structure_type24753 t99269; struct structure_type24753 t99270; struct structure_type24753 t99271; struct structure_type24753 t99272; struct structure_type24753 t99273; struct structure_type24753 t99274; struct structure_type24753 t99275; struct structure_type24753 t99276; struct structure_type24753 t99277; struct structure_type24753 t99278; struct structure_type24753 t99279; struct structure_type24753 t99280; struct structure_type24753 t99281; struct structure_type24753 t99282; struct structure_type24753 t99283; struct structure_type24753 t99284; struct structure_type24753 t99285; struct structure_type24753 t99286; struct structure_type24753 t99287; struct structure_type24753 t99288; struct structure_type24753 t99289; struct structure_type24753 t99290; struct structure_type24753 t99291; struct structure_type24753 t99292; struct structure_type24753 t99293; struct structure_type24753 t99294; struct structure_type24753 t99295; struct structure_type24753 t99296; struct structure_type24753 t99297; struct structure_type24753 t99298; struct structure_type24753 t99299; struct structure_type24753 t99300; struct structure_type24753 t99301; struct structure_type24753 t99302; struct structure_type24753 t99303; struct structure_type24753 t99304; struct structure_type24753 t99305; struct structure_type24753 t99306; struct structure_type24753 t99307; struct structure_type24753 t99308; struct structure_type24753 t99309; struct structure_type24753 t99310; struct structure_type24753 t99311; struct structure_type24753 t99312; struct structure_type24753 t99313; struct structure_type24753 t99314; struct structure_type24753 t99315; struct structure_type24753 t99316; struct structure_type24753 t99317; struct structure_type24753 t99318; struct structure_type24753 t99319; struct structure_type24753 t99320; struct structure_type24753 t99321; struct structure_type24753 t99322; struct structure_type24753 t99323; struct structure_type24753 t99324; struct structure_type24753 t99325; struct structure_type24753 t99326; struct structure_type24753 t99327; struct structure_type24753 t99328; struct structure_type24753 t99329; struct structure_type24753 t99330; struct structure_type24753 t99331; struct structure_type24753 t99332; struct structure_type24753 t99333; struct structure_type24753 t99334; struct structure_type24753 t99335; struct structure_type24753 t99336; struct structure_type24753 t99337; struct structure_type24753 t99338; struct structure_type24753 t99339; struct structure_type24753 t99340; struct structure_type24753 t99341; struct structure_type24753 t99342; struct structure_type24753 t99343; struct structure_type24753 t99344; struct structure_type24753 t99345; struct structure_type24753 t99346; struct structure_type24753 t99347; struct structure_type24753 t99348; struct structure_type24753 t99349; struct structure_type24753 t99350; struct structure_type24753 t99351; struct structure_type24753 t99352; struct structure_type24753 t99353; struct structure_type24753 t99354; struct structure_type24753 t99355; struct structure_type24753 t99356; struct structure_type24753 t99357; struct structure_type24753 t99358; struct structure_type24753 t99359; struct structure_type24753 t99360; struct structure_type24753 t99361; struct structure_type24753 t99362; struct structure_type24753 t99363; struct structure_type24753 t99364; struct structure_type24753 t99365; struct structure_type24753 t99366; struct structure_type24753 t99367; struct structure_type24753 t99368; struct structure_type24753 t99369; struct structure_type24753 t99370; struct structure_type24753 t99371; struct structure_type24753 t99372; struct structure_type24753 t99373; struct structure_type24753 t99374; struct structure_type24753 t99375; struct structure_type24753 t99376; struct structure_type24753 t99377; struct structure_type24753 t99378; struct structure_type24753 t99379; struct structure_type24753 t99380; struct structure_type24753 t99381; struct structure_type24753 t99382; struct structure_type24753 t99383; struct structure_type24753 t99384; struct structure_type24753 t99385; struct structure_type24753 t99386; struct structure_type24753 t99387; struct structure_type24753 t99388; struct structure_type24753 t99389; struct structure_type24753 t99390; struct structure_type24753 t99391; struct structure_type24753 t99392; struct structure_type24753 t99393; struct structure_type24753 t99394; struct structure_type24753 t99395; struct structure_type24753 t99396; struct structure_type24753 t99397; struct structure_type24753 t99398; struct structure_type24753 t99399; struct structure_type24753 t99400; struct structure_type24753 t99401; struct structure_type24753 t99402; struct structure_type24753 t99403; struct structure_type24753 t99404; struct structure_type24753 t99405; struct structure_type24753 t99406; struct structure_type24753 t99407; struct structure_type24753 t99408; struct structure_type24753 t99409; struct structure_type24753 t99410; struct structure_type24753 t99411; struct structure_type24753 t99412; struct structure_type24753 t99413; struct structure_type24753 t99414; struct structure_type24753 t99415; struct structure_type24753 t99416; struct structure_type24753 t99417; struct structure_type24753 t99418; struct structure_type24753 t99419; struct structure_type24753 t99420; struct structure_type24753 t99421; struct structure_type24753 t99422; struct structure_type24753 t99423; struct structure_type24753 t99424; struct structure_type24753 t99425; struct structure_type24753 t99426; struct structure_type24753 t99427; struct structure_type24753 t99428; struct structure_type24753 t99429; struct structure_type24753 t99430; struct structure_type24753 t99431; struct structure_type24753 t99432; struct structure_type24753 t99433; struct structure_type24753 t99434; struct structure_type24753 t99435; struct structure_type24753 t99436; struct structure_type24753 t99437; struct structure_type24753 t99438; struct structure_type24753 t99439; struct structure_type24753 t99440; struct structure_type24753 t99441; struct structure_type24753 t99442; struct structure_type24753 t99443; struct structure_type24753 t99444; struct structure_type24753 t99445; struct structure_type24753 t99446; struct structure_type24753 t99447; struct structure_type24753 t99448; struct structure_type24753 t99449; struct structure_type24753 t99450; struct structure_type24753 t99451; struct structure_type24753 t99452; struct structure_type24753 t99453; struct structure_type24753 t99454; struct structure_type24753 t99455; struct structure_type24753 t99456; struct structure_type24753 t99457; struct structure_type24753 t99458; struct structure_type24753 t99459; struct structure_type24753 t99460; struct structure_type24753 t99461; struct structure_type24753 t99462; struct structure_type24753 t99463; struct structure_type24753 t99464; struct structure_type24753 t99465; struct structure_type24753 t99466; struct structure_type24753 t99467; struct structure_type24753 t99468; struct structure_type24753 t99469; struct structure_type24753 t99470; struct structure_type24753 t99471; struct structure_type24753 t99472; struct structure_type24753 t99473; struct structure_type24753 t99474; struct structure_type24753 t99475; struct structure_type24753 t99476; struct structure_type24753 t99477; struct structure_type24753 t99478; struct structure_type24753 t99479; struct structure_type24753 t99480; struct structure_type24753 t99481; struct structure_type24753 t99482; struct structure_type24753 t99483; struct structure_type24753 t99484; struct structure_type24753 t99485; struct structure_type24753 t99486; struct structure_type24753 t99487; struct structure_type24753 t99488; struct structure_type24753 t99489; struct structure_type24753 t99490; struct structure_type24753 t99491; struct structure_type24753 t99492; struct structure_type24753 t99493; struct structure_type24753 t99494; struct structure_type24753 t99495; struct structure_type24753 t99496; struct structure_type24753 t99497; struct structure_type24753 t99498; struct structure_type24753 t99499; struct structure_type24753 t99500; struct structure_type24753 t99501; struct structure_type24753 t99502; struct structure_type24753 t99503; struct structure_type24753 t99504; struct structure_type24753 t99505; struct structure_type24753 t99506; struct structure_type24753 t99507; struct structure_type24753 t99508; struct structure_type24753 t99509; struct structure_type24753 t99510; struct structure_type24753 t99511; struct structure_type24753 t99512; struct structure_type24753 t99513; struct structure_type24753 t99514; struct structure_type24753 t99515; struct structure_type24753 t99516; struct structure_type24753 t99517; struct structure_type24753 t99518; struct structure_type24753 t99519; struct structure_type24753 t99520; struct structure_type24753 t99521; struct structure_type24753 t99522; struct structure_type24753 t99523; struct structure_type24753 t99524; struct structure_type24753 t99525; struct structure_type24753 t99526; struct structure_type24753 t99527; struct structure_type24753 t99528; struct structure_type24753 t99529; struct structure_type24753 t99530; struct structure_type24753 t99531; struct structure_type24753 t99532; struct structure_type24753 t99533; struct structure_type24753 t99534; struct structure_type24753 t99535; struct structure_type24753 t99536; struct structure_type24753 t99537; struct structure_type24753 t99538; struct structure_type24753 t99539; struct structure_type24753 t99540; struct structure_type24753 t99541; struct structure_type24753 t99542; struct structure_type24753 t99543; struct structure_type24753 t99544; struct structure_type24753 t99545; struct structure_type24753 t99546; struct structure_type24753 t99547; struct structure_type24753 t99548; struct structure_type24753 t99549; struct structure_type24753 t99550; struct structure_type24753 t99551; struct structure_type24753 t99552; struct structure_type24753 t99553; struct structure_type24753 t99554; struct structure_type24753 t99555; struct structure_type24753 t99556; struct structure_type24753 t99557; struct structure_type24753 t99558; struct structure_type24753 t99559; struct structure_type24753 t99560; struct structure_type24753 t99561; struct structure_type24753 t99562; struct structure_type24753 t99563; struct structure_type24753 t99564; struct structure_type24753 t99565; struct structure_type24753 t99566; struct structure_type24753 t99567; struct structure_type24753 t99568; struct structure_type24753 t99569; struct structure_type24753 t99570; struct structure_type24753 t99571; struct structure_type24753 t99572; struct structure_type24753 t99573; struct structure_type24753 t99574; struct structure_type24753 t99575; struct structure_type24753 t99576; struct structure_type24753 t99577; struct structure_type24753 t99578; struct structure_type24753 t99579; struct structure_type24753 t99580; struct structure_type24753 t99581; struct structure_type24753 t99582; struct structure_type24753 t99583; struct structure_type24753 t99584; struct structure_type24753 t99585; struct structure_type24753 t99586; struct structure_type24753 t99587; struct structure_type24753 t99588; struct structure_type24753 t99589; struct structure_type24753 t99590; struct structure_type24753 t99591; struct structure_type24753 t99592; struct structure_type24753 t99593; struct structure_type24753 t99594; struct structure_type24753 t99595; struct structure_type24753 t99596; struct structure_type24753 t99597; struct structure_type24753 t99598; struct structure_type24753 t99599; struct structure_type24753 t99600; struct structure_type24753 t99601; struct structure_type24753 t99602; struct structure_type24753 t99603; struct structure_type24753 t99604; struct structure_type24753 t99605; struct structure_type24753 t99606; struct structure_type24753 t99607; struct structure_type24753 t99608; struct structure_type24753 t99609; struct structure_type24753 t99610; struct structure_type24753 t99611; struct structure_type24753 t99612; struct structure_type24753 t99613; struct structure_type24753 t99614; struct structure_type24753 t99615; struct structure_type24753 t99616; struct structure_type24753 t99617; struct structure_type24753 t99618; struct structure_type24753 t99619; struct structure_type24753 t99620; struct structure_type24753 t99621; struct structure_type24753 t99622; struct structure_type24753 t99623; struct structure_type24753 t99624; struct structure_type24753 t99625; struct structure_type24753 t99626; struct structure_type24753 t99627; struct structure_type24753 t99628; struct structure_type24753 t99629; struct structure_type24753 t99630; struct structure_type24753 t99631; struct structure_type24753 t99632; struct structure_type24753 t99633; struct structure_type24753 t99634; struct structure_type24753 t99635; struct structure_type24753 t99636; struct structure_type24753 t99637; struct structure_type24753 t99638; struct structure_type24753 t99639; struct structure_type24753 t99640; struct structure_type24753 t99641; struct structure_type24753 t99642; struct structure_type24753 t99643; struct structure_type24753 t99644; struct structure_type24753 t99645; struct structure_type24753 t99646; struct structure_type24753 t99647; struct structure_type24753 t99648; struct structure_type24753 t99649; struct structure_type24753 t99650; struct structure_type24753 t99651; struct structure_type24753 t99652; struct structure_type24753 t99653; struct structure_type24753 t99654; struct structure_type24753 t99655; struct structure_type24753 t99656; struct structure_type24753 t99657; struct structure_type24753 t99658; struct structure_type24753 t99659; struct structure_type24753 t99660; struct structure_type24753 t99661; struct structure_type24753 t99662; struct structure_type24753 t99663; struct structure_type24753 t99664; struct structure_type24753 t99665; struct structure_type24753 t99666; struct structure_type24753 t99667; struct structure_type24753 t99668; struct structure_type24753 t99669; struct structure_type24753 t99670; struct structure_type24753 t99671; struct structure_type24753 t99672; struct structure_type24753 t99673; struct structure_type24753 t99674; struct structure_type24753 t99675; struct structure_type24753 t99676; struct structure_type24753 t99677; struct structure_type24753 t99678; struct structure_type24753 t99679; struct structure_type24753 t99680; struct structure_type24753 t99681; struct structure_type24753 t99682; struct structure_type24753 t99683; struct structure_type24753 t99684; struct structure_type24753 t99685; struct structure_type24753 t99686; struct structure_type24753 t99687; struct structure_type24753 t99688; struct structure_type24753 t99689; struct structure_type24753 t99690; struct structure_type24753 t99691; struct structure_type24753 t99692; struct structure_type24753 t99693; struct structure_type24753 t99694; struct structure_type24753 t99695; struct structure_type24753 t99696; struct structure_type24753 t99697; struct structure_type24753 t99698; struct structure_type24753 t99699; struct structure_type24753 t99700; struct structure_type24753 t99701; struct structure_type24753 t99702; struct structure_type24753 t99703; struct structure_type24753 t99704; struct structure_type24753 t99705; struct structure_type24753 t99706; struct structure_type24753 t99707; struct structure_type24753 t99708; struct structure_type24753 t99709; struct structure_type24753 t99710; struct structure_type24753 t99711; struct structure_type24753 t99712; struct structure_type24753 t99713; struct structure_type24753 t99714; struct structure_type24753 t99715; struct structure_type24753 t99716; struct structure_type24753 t99717; struct structure_type24753 t99718; struct structure_type24753 t99719; struct structure_type24753 t99720; struct structure_type24753 t99721; struct structure_type24753 t99722; struct structure_type24753 t99723; struct structure_type24753 t99724; struct structure_type24753 t99725; struct structure_type24753 t99726; struct structure_type24753 t99727; struct structure_type24753 t99728; struct structure_type24753 t99729; struct structure_type24753 t99730; struct structure_type24753 t99731; struct structure_type24753 t99732; struct structure_type24753 t99733; struct structure_type24753 t99734; struct structure_type24753 t99735; struct structure_type24753 t99736; struct structure_type24753 t99737; struct structure_type24753 t99738; struct structure_type24753 t99739; struct structure_type24753 t99740; struct structure_type24753 t99741; struct structure_type24753 t99742; struct structure_type24753 t99743; struct structure_type24753 t99744; struct structure_type24753 t99745; struct structure_type24753 t99746; struct structure_type24753 t99747; struct structure_type24753 t99748; struct structure_type24753 t99749; struct structure_type24753 t99750; struct structure_type24753 t99751; struct structure_type24753 t99752; struct structure_type24753 t99753; struct structure_type24753 t99754; struct structure_type24753 t99755; struct structure_type24753 t99756; struct structure_type24753 t99757; struct structure_type24753 t99758; struct structure_type24753 t99759; struct structure_type24753 t99760; struct structure_type24753 t99761; struct structure_type24753 t99762; struct structure_type24753 t99763; struct structure_type24753 t99764; struct structure_type24753 t99765; struct structure_type24753 t99766; struct structure_type24753 t99767; struct structure_type24753 t99768; struct structure_type24753 t99769; struct structure_type24753 t99770; struct structure_type24753 t99771; struct structure_type24753 t99772; struct structure_type24753 t99773; struct structure_type24753 t99774; struct structure_type24753 t99775; struct structure_type24753 t99776; struct structure_type24753 t99777; struct structure_type24753 t99778; struct structure_type24753 t99779; struct structure_type24753 t99780; struct structure_type24753 t99781; struct structure_type24753 t99782; struct structure_type24753 t99783; struct structure_type24753 t99784; struct structure_type24753 t99785; struct structure_type24753 t99786; struct structure_type24753 t99787; struct structure_type24753 t99788; struct structure_type24753 t99789; struct structure_type24753 t99790; struct structure_type24753 t99791; struct structure_type24753 t99792; struct structure_type24753 t99793; struct structure_type24753 t99794; struct structure_type24753 t99795; struct structure_type24753 t99796; struct structure_type24753 t99797; struct structure_type24753 t99798; struct structure_type24753 t99799; struct structure_type24753 t99800; struct structure_type24753 t99801; struct structure_type24753 t99802; struct structure_type24753 t99803; struct structure_type24753 t99804; struct structure_type24753 t99805; struct structure_type24753 t99806; struct structure_type24753 t99807; struct structure_type24753 t99808; struct structure_type24753 t99809; struct structure_type24753 t99810; struct structure_type24753 t99811; struct structure_type24753 t99812; struct {unsigned length; struct w49 element[16];} t99813; struct structure_type24753 t99814; struct structure_type24753 t99815; struct structure_type24753 t99816; struct structure_type24753 t99817; struct structure_type24753 t99818; struct structure_type24753 t99819; struct structure_type24753 t99820; struct structure_type24753 t99821; struct structure_type24753 t99822; struct structure_type24753 t99823; struct structure_type24753 t99824; struct structure_type24753 t99825; struct structure_type24753 t99826; struct structure_type24753 t99827; struct structure_type24753 t99828; struct structure_type24753 t99829; struct structure_type24753 t99830; struct structure_type24753 t99831; struct structure_type24753 t99832; struct structure_type24753 t99833; struct structure_type24753 t99834; struct structure_type24753 t99835; struct structure_type24753 t99836; struct structure_type24753 t99837; struct structure_type24753 t99838; struct structure_type24753 t99839; struct structure_type24753 t99840; struct structure_type24753 t99841; struct structure_type24753 t99842; struct structure_type24753 t99843; struct structure_type24753 t99844; struct structure_type24753 t99845; struct structure_type24753 t99846; struct structure_type24753 t99847; struct structure_type24753 t99848; struct structure_type24753 t99849; struct structure_type24753 t99850; struct structure_type24753 t99851; struct structure_type24753 t99852; struct structure_type24753 t99853; struct structure_type24753 t99854; struct structure_type24753 t99855; struct structure_type24753 t99856; struct structure_type24753 t99857; struct structure_type24753 t99858; struct structure_type24753 t99859; struct structure_type24753 t99860; struct structure_type24753 t99861; struct structure_type24753 t99862; struct structure_type24753 t99863; struct structure_type24753 t99864; struct structure_type24753 t99865; struct structure_type24753 t99866; struct structure_type24753 t99867; struct structure_type24753 t99868; struct structure_type24753 t99869; struct structure_type24753 t99870; struct structure_type24753 t99871; struct structure_type24753 t99872; struct structure_type24753 t99873; struct structure_type24753 t99874; struct structure_type24753 t99875; struct structure_type24753 t99876; struct structure_type24753 t99877; struct structure_type24753 t99878; struct structure_type24753 t99879; struct structure_type24753 t99880; struct structure_type24753 t99881; struct structure_type24753 t99882; struct structure_type24753 t99883; struct structure_type24753 t99884; struct structure_type24753 t99885; struct structure_type24753 t99886; struct structure_type24753 t99887; struct structure_type24753 t99888; struct structure_type24753 t99889; struct structure_type24753 t99890; struct structure_type24753 t99891; struct structure_type24753 t99892; struct structure_type24753 t99893; struct structure_type24753 t99894; struct structure_type24753 t99895; struct structure_type24753 t99896; struct structure_type24753 t99897; struct structure_type24753 t99898; struct structure_type24753 t99899; struct structure_type24753 t99900; struct structure_type24753 t99901; struct structure_type24753 t99902; struct structure_type24753 t99903; struct structure_type24753 t99904; struct structure_type24753 t99905; struct structure_type24753 t99906; struct structure_type24753 t99907; struct structure_type24753 t99908; struct structure_type24753 t99909; struct structure_type24753 t99910; struct structure_type24753 t99911; struct structure_type24753 t99912; struct structure_type24753 t99913; struct structure_type24753 t99914; struct structure_type24753 t99915; struct structure_type24753 t99916; struct structure_type24753 t99917; struct structure_type24753 t99918; struct structure_type24753 t99919; struct structure_type24753 t99920; struct structure_type24753 t99921; struct structure_type24753 t99922; struct structure_type24753 t99923; struct structure_type24753 t99924; struct structure_type24753 t99925; struct structure_type24753 t99926; struct structure_type24753 t99927; struct structure_type24753 t99928; struct structure_type24753 t99929; struct structure_type24753 t99930; struct structure_type24753 t99931; struct structure_type24753 t99932; struct structure_type24753 t99933; struct structure_type24753 t99934; struct structure_type24753 t99935; struct structure_type24753 t99936; struct structure_type24753 t99937; struct structure_type24753 t99938; struct structure_type24753 t99939; struct structure_type24753 t99940; struct structure_type24753 t99941; struct structure_type24753 t99942; struct structure_type24753 t99943; struct structure_type24753 t99944; struct structure_type24753 t99945; struct structure_type24753 t99946; struct structure_type24753 t99947; struct structure_type24753 t99948; struct structure_type24753 t99949; struct structure_type24753 t99950; struct structure_type24753 t99951; struct structure_type24753 t99952; struct structure_type24753 t99953; struct structure_type24753 t99954; struct structure_type24753 t99955; struct structure_type24753 t99956; struct structure_type24753 t99957; struct structure_type24753 t99958; struct structure_type24753 t99959; struct structure_type24753 t99960; struct structure_type24753 t99961; struct structure_type24753 t99962; struct structure_type24753 t99963; struct structure_type24753 t99964; struct structure_type24753 t99965; struct structure_type24753 t99966; struct structure_type24753 t99967; struct structure_type24753 t99968; struct structure_type24753 t99969; struct structure_type24753 t99970; struct structure_type24753 t99971; struct structure_type24753 t99972; struct structure_type24753 t99973; struct structure_type24753 t99974; struct structure_type24753 t99975; struct structure_type24753 t99976; struct structure_type24753 t99977; struct structure_type24753 t99978; struct structure_type24753 t99979; struct structure_type24753 t99980; struct structure_type24753 t99981; struct structure_type24753 t99982; struct structure_type24753 t99983; struct structure_type24753 t99984; struct structure_type24753 t99985; struct structure_type24753 t99986; struct structure_type24753 t99987; struct structure_type24753 t99988; struct structure_type24753 t99989; struct structure_type24753 t99990; struct structure_type24753 t99991; struct structure_type24753 t99992; struct structure_type24753 t99993; struct structure_type24753 t99994; struct structure_type24753 t99995; struct structure_type24753 t99996; struct structure_type24753 t99997; struct structure_type24753 t99998; struct structure_type24753 t99999; struct structure_type24753 t100000; struct structure_type24753 t100001; struct structure_type24753 t100002; struct structure_type24753 t100003; struct structure_type24753 t100004; struct structure_type24753 t100005; struct structure_type24753 t100006; struct structure_type24753 t100007; struct structure_type24753 t100008; struct structure_type24753 t100009; struct structure_type24753 t100010; struct structure_type24753 t100011; struct structure_type24753 t100012; struct structure_type24753 t100013; struct structure_type24753 t100014; struct structure_type24753 t100015; struct structure_type24753 t100016; struct structure_type24753 t100017; struct structure_type24753 t100018; struct structure_type24753 t100019; struct structure_type24753 t100020; struct structure_type24753 t100021; struct structure_type24753 t100022; struct structure_type24753 t100023; struct structure_type24753 t100024; struct structure_type24753 t100025; struct structure_type24753 t100026; struct structure_type24753 t100027; struct structure_type24753 t100028; struct structure_type24753 t100029; struct structure_type24753 t100030; struct structure_type24753 t100031; struct structure_type24753 t100032; struct structure_type24753 t100033; struct structure_type24753 t100034; struct structure_type24753 t100035; struct structure_type24753 t100036; struct structure_type24753 t100037; struct structure_type24753 t100038; struct structure_type24753 t100039; struct structure_type24753 t100040; struct structure_type24753 t100041; struct structure_type24753 t100042; struct structure_type24753 t100043; struct structure_type24753 t100044; struct structure_type24753 t100045; struct structure_type24753 t100046; struct structure_type24753 t100047; struct structure_type24753 t100048; struct structure_type24753 t100049; struct structure_type24753 t100050; struct structure_type24753 t100051; struct structure_type24753 t100052; struct structure_type24753 t100053; struct structure_type24753 t100054; struct structure_type24753 t100055; struct structure_type24753 t100056; struct structure_type24753 t100057; struct structure_type24753 t100058; struct structure_type24753 t100059; struct structure_type24753 t100060; struct structure_type24753 t100061; struct structure_type24753 t100062; struct structure_type24753 t100063; struct structure_type24753 t100064; struct structure_type24753 t100065; struct structure_type24753 t100066; struct structure_type24753 t100067; struct structure_type24753 t100068; struct structure_type24753 t100069; struct structure_type24753 t100070; struct structure_type24753 t100071; struct structure_type24753 t100072; struct structure_type24753 t100073; struct structure_type24753 t100074; struct structure_type24753 t100075; struct structure_type24753 t100076; struct structure_type24753 t100077; struct structure_type24753 t100078; struct structure_type24753 t100079; struct structure_type24753 t100080; struct structure_type24753 t100081; struct structure_type24753 t100082; struct structure_type24753 t100083; struct structure_type24753 t100084; struct structure_type24753 t100085; struct structure_type24753 t100086; struct structure_type24753 t100087; struct structure_type24753 t100088; struct structure_type24753 t100089; struct structure_type24753 t100090; struct structure_type24753 t100091; struct structure_type24753 t100092; struct structure_type24753 t100093; struct structure_type24753 t100094; struct structure_type24753 t100095; struct structure_type24753 t100096; struct structure_type24753 t100097; struct structure_type24753 t100098; struct structure_type24753 t100099; struct structure_type24753 t100100; struct structure_type24753 t100101; struct structure_type24753 t100102; struct structure_type24753 t100103; struct structure_type24753 t100104; struct structure_type24753 t100105; struct structure_type24753 t100106; struct structure_type24753 t100107; struct structure_type24753 t100108; struct structure_type24753 t100109; struct structure_type24753 t100110; struct structure_type24753 t100111; struct structure_type24753 t100112; struct structure_type24753 t100113; struct structure_type24753 t100114; struct structure_type24753 t100115; struct structure_type24753 t100116; struct structure_type24753 t100117; struct structure_type24753 t100118; struct structure_type24753 t100119; struct structure_type24753 t100120; struct structure_type24753 t100121; struct structure_type24753 t100122; struct structure_type24753 t100123; struct structure_type24753 t100124; struct structure_type24753 t100125; struct structure_type24753 t100126; struct structure_type24753 t100127; struct structure_type24753 t100128; struct structure_type24753 t100129; struct structure_type24753 t100130; struct structure_type24753 t100131; struct structure_type24753 t100132; struct structure_type24753 t100133; struct structure_type24753 t100134; struct structure_type24753 t100135; struct structure_type24753 t100136; struct structure_type24753 t100137; struct structure_type24753 t100138; struct structure_type24753 t100139; struct structure_type24753 t100140; struct structure_type24753 t100141; struct structure_type24753 t100142; struct structure_type24753 t100143; struct structure_type24753 t100144; struct structure_type24753 t100145; struct structure_type24753 t100146; struct structure_type24753 t100147; struct structure_type24753 t100148; struct structure_type24753 t100149; struct structure_type24753 t100150; struct structure_type24753 t100151; struct structure_type24753 t100152; struct structure_type24753 t100153; struct structure_type24753 t100154; struct structure_type24753 t100155; struct structure_type24753 t100156; struct structure_type24753 t100157; struct structure_type24753 t100158; struct structure_type24753 t100159; struct structure_type24753 t100160; struct structure_type24753 t100161; struct structure_type24753 t100162; struct structure_type24753 t100163; struct structure_type24753 t100164; struct structure_type24753 t100165; struct structure_type24753 t100166; struct structure_type24753 t100167; struct structure_type24753 t100168; struct structure_type24753 t100169; struct structure_type24753 t100170; struct structure_type24753 t100171; struct structure_type24753 t100172; struct structure_type24753 t100173; struct structure_type24753 t100174; struct structure_type24753 t100175; struct structure_type24753 t100176; struct structure_type24753 t100177; struct structure_type24753 t100178; struct structure_type24753 t100179; struct structure_type24753 t100180; struct structure_type24753 t100181; struct structure_type24753 t100182; struct structure_type24753 t100183; struct structure_type24753 t100184; struct structure_type24753 t100185; struct structure_type24753 t100186; struct structure_type24753 t100187; struct structure_type24753 t100188; struct structure_type24753 t100189; struct structure_type24753 t100190; struct structure_type24753 t100191; struct structure_type24753 t100192; struct structure_type24753 t100193; struct structure_type24753 t100194; struct structure_type24753 t100195; struct structure_type24753 t100196; struct structure_type24753 t100197; struct structure_type24753 t100198; struct structure_type24753 t100199; struct structure_type24753 t100200; struct structure_type24753 t100201; struct structure_type24753 t100202; struct structure_type24753 t100203; struct structure_type24753 t100204; struct structure_type24753 t100205; struct structure_type24753 t100206; struct structure_type24753 t100207; struct structure_type24753 t100208; struct structure_type24753 t100209; struct structure_type24753 t100210; struct structure_type24753 t100211; struct structure_type24753 t100212; struct structure_type24753 t100213; struct structure_type24753 t100214; struct structure_type24753 t100215; struct structure_type24753 t100216; struct structure_type24753 t100217; struct structure_type24753 t100218; struct structure_type24753 t100219; struct structure_type24753 t100220; struct structure_type24753 t100221; struct structure_type24753 t100222; struct structure_type24753 t100223; struct structure_type24753 t100224; struct structure_type24753 t100225; struct structure_type24753 t100226; struct structure_type24753 t100227; struct structure_type24753 t100228; struct structure_type24753 t100229; struct structure_type24753 t100230; struct structure_type24753 t100231; struct structure_type24753 t100232; struct structure_type24753 t100233; struct structure_type24753 t100234; struct structure_type24753 t100235; struct structure_type24753 t100236; struct structure_type24753 t100237; struct structure_type24753 t100238; struct structure_type24753 t100239; struct structure_type24753 t100240; struct structure_type24753 t100241; struct structure_type24753 t100242; struct structure_type24753 t100243; struct structure_type24753 t100244; struct structure_type24753 t100245; struct structure_type24753 t100246; struct structure_type24753 t100247; struct structure_type24753 t100248; struct structure_type24753 t100249; struct structure_type24753 t100250; struct structure_type24753 t100251; struct structure_type24753 t100252; struct structure_type24753 t100253; struct structure_type24753 t100254; struct structure_type24753 t100255; struct structure_type24753 t100256; struct structure_type24753 t100257; struct structure_type24753 t100258; struct structure_type24753 t100259; struct structure_type24753 t100260; struct structure_type24753 t100261; struct structure_type24753 t100262; struct structure_type24753 t100263; struct structure_type24753 t100264; struct structure_type24753 t100265; struct structure_type24753 t100266; struct structure_type24753 t100267; struct structure_type24753 t100268; struct structure_type24753 t100269; struct structure_type24753 t100270; struct structure_type24753 t100271; struct structure_type24753 t100272; struct structure_type24753 t100273; struct structure_type24753 t100274; struct structure_type24753 t100275; struct structure_type24753 t100276; struct structure_type24753 t100277; struct structure_type24753 t100278; struct structure_type24753 t100279; struct structure_type24753 t100280; struct structure_type24753 t100281; struct structure_type24753 t100282; struct structure_type24753 t100283; struct structure_type24753 t100284; struct structure_type24753 t100285; struct structure_type24753 t100286; struct structure_type24753 t100287; struct structure_type24753 t100288; struct structure_type24753 t100289; struct structure_type24753 t100290; struct structure_type24753 t100291; struct structure_type24753 t100292; struct structure_type24753 t100293; struct structure_type24753 t100294; struct structure_type24753 t100295; struct structure_type24753 t100296; struct structure_type24753 t100297; struct structure_type24753 t100298; struct structure_type24753 t100299; struct structure_type24753 t100300; struct structure_type24753 t100301; struct structure_type24753 t100302; struct structure_type24753 t100303; struct structure_type24753 t100304; struct structure_type24753 t100305; struct structure_type24753 t100306; struct structure_type24753 t100307; struct structure_type24753 t100308; struct structure_type24753 t100309; struct structure_type24753 t100310; struct structure_type24753 t100311; struct structure_type24753 t100312; struct structure_type24753 t100313; struct structure_type24753 t100314; struct structure_type24753 t100315; struct structure_type24753 t100316; struct structure_type24753 t100317; struct structure_type24753 t100318; struct structure_type24753 t100319; struct structure_type24753 t100320; struct structure_type24753 t100321; struct structure_type24753 t100322; struct structure_type24753 t100323; struct structure_type24753 t100324; struct structure_type24753 t100325; struct structure_type24753 t100326; struct structure_type24753 t100327; struct structure_type24753 t100328; struct structure_type24753 t100329; struct structure_type24753 t100330; struct structure_type24753 t100331; struct structure_type24753 t100332; struct structure_type24753 t100333; struct structure_type24753 t100334; struct structure_type24753 t100335; struct structure_type24753 t100336; struct structure_type24753 t100337; struct structure_type24753 t100338; struct structure_type24753 t100339; struct structure_type24753 t100340; struct structure_type24753 t100341; struct structure_type24753 t100342; struct structure_type24753 t100343; struct structure_type24753 t100344; struct structure_type24753 t100345; struct structure_type24753 t100346; struct structure_type24753 t100347; struct structure_type24753 t100348; struct structure_type24753 t100349; struct structure_type24753 t100350; struct structure_type24753 t100351; struct structure_type24753 t100352; struct structure_type24753 t100353; struct structure_type24753 t100354; struct structure_type24753 t100355; struct structure_type24753 t100356; struct structure_type24753 t100357; struct structure_type24753 t100358; struct structure_type24753 t100359; struct structure_type24753 t100360; struct structure_type24753 t100361; struct structure_type24753 t100362; struct structure_type24753 t100363; struct structure_type24753 t100364; struct structure_type24753 t100365; struct structure_type24753 t100366; struct structure_type24753 t100367; struct structure_type24753 t100368; struct structure_type24753 t100369; struct structure_type24753 t100370; struct structure_type24753 t100371; struct structure_type24753 t100372; struct structure_type24753 t100373; struct structure_type24753 t100374; struct structure_type24753 t100375; struct structure_type24753 t100376; struct structure_type24753 t100377; struct structure_type24753 t100378; struct structure_type24753 t100379; struct structure_type24753 t100380; struct structure_type24753 t100381; struct structure_type24753 t100382; struct structure_type24753 t100383; struct structure_type24753 t100384; struct structure_type24753 t100385; struct structure_type24753 t100386; struct structure_type24753 t100387; struct structure_type24753 t100388; struct structure_type24753 t100389; struct structure_type24753 t100390; struct structure_type24753 t100391; struct structure_type24753 t100392; struct structure_type24753 t100393; struct structure_type24753 t100394; struct structure_type24753 t100395; struct structure_type24753 t100396; struct structure_type24753 t100397; struct structure_type24753 t100398; struct structure_type24753 t100399; struct structure_type24753 t100400; struct structure_type24753 t100401; struct structure_type24753 t100402; struct structure_type24753 t100403; struct structure_type24753 t100404; struct structure_type24753 t100405; struct structure_type24753 t100406; struct structure_type24753 t100407; struct structure_type24753 t100408; struct structure_type24753 t100409; struct structure_type24753 t100410; struct structure_type24753 t100411; struct structure_type24753 t100412; struct structure_type24753 t100413; struct structure_type24753 t100414; struct structure_type24753 t100415; struct structure_type24753 t100416; struct structure_type24753 t100417; struct structure_type24753 t100418; struct structure_type24753 t100419; struct structure_type24753 t100420; struct structure_type24753 t100421; struct structure_type24753 t100422; struct structure_type24753 t100423; struct structure_type24753 t100424; struct structure_type24753 t100425; struct structure_type24753 t100426; struct structure_type24753 t100427; struct structure_type24753 t100428; struct structure_type24753 t100429; struct structure_type24753 t100430; struct structure_type24753 t100431; struct structure_type24753 t100432; struct structure_type24753 t100433; struct structure_type24753 t100434; struct structure_type24753 t100435; struct structure_type24753 t100436; struct structure_type24753 t100437; struct structure_type24753 t100438; struct structure_type24753 t100439; struct structure_type24753 t100440; struct structure_type24753 t100441; struct structure_type24753 t100442; struct structure_type24753 t100443; struct structure_type24753 t100444; struct structure_type24753 t100445; struct structure_type24753 t100446; struct structure_type24753 t100447; struct structure_type24753 t100448; struct structure_type24753 t100449; struct structure_type24753 t100450; struct structure_type24753 t100451; struct structure_type24753 t100452; struct structure_type24753 t100453; struct structure_type24753 t100454; struct structure_type24753 t100455; struct structure_type24753 t100456; struct structure_type24753 t100457; struct structure_type24753 t100458; struct structure_type24753 t100459; struct structure_type24753 t100460; struct structure_type24753 t100461; struct structure_type24753 t100462; struct structure_type24753 t100463; struct structure_type24753 t100464; struct structure_type24753 t100465; struct structure_type24753 t100466; struct structure_type24753 t100467; struct structure_type24753 t100468; struct structure_type24753 t100469; struct structure_type24753 t100470; struct structure_type24753 t100471; struct structure_type24753 t100472; struct structure_type24753 t100473; struct structure_type24753 t100474; struct structure_type24753 t100475; struct structure_type24753 t100476; struct structure_type24753 t100477; struct structure_type24753 t100478; struct structure_type24753 t100479; struct structure_type24753 t100480; struct structure_type24753 t100481; struct structure_type24753 t100482; struct structure_type24753 t100483; struct structure_type24753 t100484; struct structure_type24753 t100485; struct structure_type24753 t100486; struct structure_type24753 t100487; struct structure_type24753 t100488; struct structure_type24753 t100489; struct structure_type24753 t100490; struct structure_type24753 t100491; struct structure_type24753 t100492; struct structure_type24753 t100493; struct structure_type24753 t100494; struct structure_type24753 t100495; struct structure_type24753 t100496; struct structure_type24753 t100497; struct structure_type24753 t100498; struct structure_type24753 t100499; struct structure_type24753 t100500; struct structure_type24753 t100501; struct structure_type24753 t100502; struct structure_type24753 t100503; struct structure_type24753 t100504; struct structure_type24753 t100505; struct structure_type24753 t100506; struct structure_type24753 t100507; struct structure_type24753 t100508; struct structure_type24753 t100509; struct structure_type24753 t100510; struct structure_type24753 t100511; struct structure_type24753 t100512; struct structure_type24753 t100513; struct structure_type24753 t100514; struct structure_type24753 t100515; struct structure_type24753 t100516; struct structure_type24753 t100517; struct structure_type24753 t100518; struct structure_type24753 t100519; struct structure_type24753 t100520; struct structure_type24753 t100521; struct structure_type24753 t100522; struct structure_type24753 t100523; struct structure_type24753 t100524; struct structure_type24753 t100525; struct structure_type24753 t100526; struct structure_type24753 t100527; struct structure_type24753 t100528; struct structure_type24753 t100529; struct structure_type24753 t100530; struct structure_type24753 t100531; struct structure_type24753 t100532; struct structure_type24753 t100533; struct structure_type24753 t100534; struct structure_type24753 t100535; struct structure_type24753 t100536; struct structure_type24753 t100537; struct structure_type24753 t100538; struct structure_type24753 t100539; struct structure_type24753 t100540; struct structure_type24753 t100541; struct structure_type24753 t100542; struct structure_type24753 t100543; struct structure_type24753 t100544; struct structure_type24753 t100545; struct structure_type24753 t100546; struct structure_type24753 t100547; struct structure_type24753 t100548; struct structure_type24753 t100549; struct structure_type24753 t100550; struct structure_type24753 t100551; struct structure_type24753 t100552; struct structure_type24753 t100553; struct structure_type24753 t100554; struct structure_type24753 t100555; struct structure_type24753 t100556; struct structure_type24753 t100557; struct structure_type24753 t100558; struct structure_type24753 t100559; struct structure_type24753 t100560; struct structure_type24753 t100561; struct structure_type24753 t100562; struct structure_type24753 t100563; struct structure_type24753 t100564; struct structure_type24753 t100565; struct structure_type24753 t100566; struct structure_type24753 t100567; struct structure_type24753 t100568; struct structure_type24753 t100569; struct structure_type24753 t100570; struct structure_type24753 t100571; struct structure_type24753 t100572; struct structure_type24753 t100573; struct structure_type24753 t100574; struct structure_type24753 t100575; struct structure_type24753 t100576; struct structure_type24753 t100577; struct structure_type24753 t100578; struct structure_type24753 t100579; struct structure_type24753 t100580; struct structure_type24753 t100581; struct structure_type24753 t100582; struct structure_type24753 t100583; struct structure_type24753 t100584; struct structure_type24753 t100585; struct structure_type24753 t100586; struct structure_type24753 t100587; struct structure_type24753 t100588; struct structure_type24753 t100589; struct structure_type24753 t100590; struct structure_type24753 t100591; struct structure_type24753 t100592; struct structure_type24753 t100593; struct structure_type24753 t100594; struct structure_type24753 t100595; struct structure_type24753 t100596; struct structure_type24753 t100597; struct structure_type24753 t100598; struct structure_type24753 t100599; struct structure_type24753 t100600; struct structure_type24753 t100601; struct structure_type24753 t100602; struct structure_type24753 t100603; struct structure_type24753 t100604; struct structure_type24753 t100605; struct structure_type24753 t100606; struct structure_type24753 t100607; struct structure_type24753 t100608; struct structure_type24753 t100609; struct structure_type24753 t100610; struct structure_type24753 t100611; struct structure_type24753 t100612; struct structure_type24753 t100613; struct structure_type24753 t100614; struct structure_type24753 t100615; struct structure_type24753 t100616; struct structure_type24753 t100617; struct structure_type24753 t100618; struct structure_type24753 t100619; struct structure_type24753 t100620; struct structure_type24753 t100621; struct structure_type24753 t100622; struct structure_type24753 t100623; struct structure_type24753 t100624; struct structure_type24753 t100625; struct structure_type24753 t100626; struct structure_type24753 t100627; struct structure_type24753 t100628; struct structure_type24753 t100629; struct structure_type24753 t100630; struct structure_type24753 t100631; struct structure_type24753 t100632; struct structure_type24753 t100633; struct structure_type24753 t100634; struct structure_type24753 t100635; struct structure_type24753 t100636; struct structure_type24753 t100637; struct structure_type24753 t100638; struct structure_type24753 t100639; struct structure_type24753 t100640; struct structure_type24753 t100641; struct structure_type24753 t100642; struct structure_type24753 t100643; struct structure_type24753 t100644; struct structure_type24753 t100645; struct structure_type24753 t100646; struct structure_type24753 t100647; struct structure_type24753 t100648; struct structure_type24753 t100649; struct structure_type24753 t100650; struct structure_type24753 t100651; struct structure_type24753 t100652; struct structure_type24753 t100653; struct structure_type24753 t100654; struct structure_type24753 t100655; struct structure_type24753 t100656; struct structure_type24753 t100657; struct structure_type24753 t100658; struct structure_type24753 t100659; struct structure_type24753 t100660; struct structure_type24753 t100661; struct structure_type24753 t100662; struct structure_type24753 t100663; struct structure_type24753 t100664; struct structure_type24753 t100665; struct structure_type24753 t100666; struct structure_type24753 t100667; struct structure_type24753 t100668; struct structure_type24753 t100669; struct structure_type24753 t100670; struct structure_type24753 t100671; struct structure_type24753 t100672; struct structure_type24753 t100673; struct structure_type24753 t100674; struct structure_type24753 t100675; struct structure_type24753 t100676; struct structure_type24753 t100677; struct structure_type24753 t100678; struct structure_type24753 t100679; struct structure_type24753 t100680; struct structure_type24753 t100681; struct structure_type24753 t100682; struct structure_type24753 t100683; struct structure_type24753 t100684; struct structure_type24753 t100685; struct structure_type24753 t100686; struct structure_type24753 t100687; struct structure_type24753 t100688; struct structure_type24753 t100689; struct structure_type24753 t100690; struct structure_type24753 t100691; struct structure_type24753 t100692; struct structure_type24753 t100693; struct structure_type24753 t100694; struct structure_type24753 t100695; struct structure_type24753 t100696; struct structure_type24753 t100697; struct structure_type24753 t100698; struct structure_type24753 t100699; struct structure_type24753 t100700; struct structure_type24753 t100701; struct structure_type24753 t100702; struct structure_type24753 t100703; struct structure_type24753 t100704; struct structure_type24753 t100705; struct structure_type24753 t100706; struct structure_type24753 t100707; struct structure_type24753 t100708; struct structure_type24753 t100709; struct structure_type24753 t100710; struct structure_type24753 t100711; struct structure_type24753 t100712; struct structure_type24753 t100713; struct structure_type24753 t100714; struct structure_type24753 t100715; struct structure_type24753 t100716; struct structure_type24753 t100717; struct structure_type24753 t100718; struct structure_type24753 t100719; struct structure_type24753 t100720; struct structure_type24753 t100721; struct structure_type24753 t100722; struct structure_type24753 t100723; struct structure_type24753 t100724; struct structure_type24753 t100725; struct structure_type24753 t100726; struct structure_type24753 t100727; struct structure_type24753 t100728; struct structure_type24753 t100729; struct structure_type24753 t100730; struct structure_type24753 t100731; struct structure_type24753 t100732; struct structure_type24753 t100733; struct structure_type24753 t100734; struct structure_type24753 t100735; struct structure_type24753 t100736; struct structure_type24753 t100737; struct structure_type24753 t100738; struct structure_type24753 t100739; struct structure_type24753 t100740; struct structure_type24753 t100741; struct structure_type24753 t100742; struct structure_type24753 t100743; struct structure_type24753 t100744; struct structure_type24753 t100745; struct structure_type24753 t100746; struct structure_type24753 t100747; struct structure_type24753 t100748; struct structure_type24753 t100749; struct structure_type24753 t100750; struct structure_type24753 t100751; struct structure_type24753 t100752; struct structure_type24753 t100753; struct structure_type24753 t100754; struct structure_type24753 t100755; struct structure_type24753 t100756; struct structure_type24753 t100757; struct structure_type24753 t100758; struct structure_type24753 t100759; struct structure_type24753 t100760; struct structure_type24753 t100761; struct structure_type24753 t100762; struct structure_type24753 t100763; struct structure_type24753 t100764; struct structure_type24753 t100765; struct structure_type24753 t100766; struct structure_type24753 t100767; struct structure_type24753 t100768; struct structure_type24753 t100769; struct structure_type24753 t100770; struct structure_type24753 t100771; struct structure_type24753 t100772; struct structure_type24753 t100773; struct structure_type24753 t100774; struct structure_type24753 t100775; struct structure_type24753 t100776; struct structure_type24753 t100777; struct structure_type24753 t100778; struct structure_type24753 t100779; struct structure_type24753 t100780; struct structure_type24753 t100781; struct structure_type24753 t100782; struct structure_type24753 t100783; struct structure_type24753 t100784; struct structure_type24753 t100785; struct structure_type24753 t100786; struct structure_type24753 t100787; struct structure_type24753 t100788; struct structure_type24753 t100789; struct structure_type24753 t100790; struct structure_type24753 t100791; struct structure_type24753 t100792; struct structure_type24753 t100793; struct structure_type24753 t100794; struct structure_type24753 t100795; struct structure_type24753 t100796; struct structure_type24753 t100797; struct structure_type24753 t100798; struct structure_type24753 t100799; struct structure_type24753 t100800; struct structure_type24753 t100801; struct structure_type24753 t100802; struct structure_type24753 t100803; struct structure_type24753 t100804; struct structure_type24753 t100805; struct structure_type24753 t100806; struct structure_type24753 t100807; struct structure_type24753 t100808; struct structure_type24753 t100809; struct structure_type24753 t100810; struct structure_type24753 t100811; struct structure_type24753 t100812; struct structure_type24753 t100813; struct structure_type24753 t100814; struct structure_type24753 t100815; struct structure_type24753 t100816; struct structure_type24753 t100817; struct structure_type24753 t100818; struct structure_type24753 t100819; struct structure_type24753 t100820; struct structure_type24753 t100821; struct structure_type24753 t100822; struct structure_type24753 t100823; struct structure_type24753 t100824; struct structure_type24753 t100825; struct structure_type24753 t100826; struct structure_type24753 t100827; struct structure_type24753 t100828; struct structure_type24753 t100829; struct structure_type24753 t100830; struct structure_type24753 t100831; struct structure_type24753 t100832; struct structure_type24753 t100833; struct structure_type24753 t100834; struct structure_type24753 t100835; struct structure_type24753 t100836; struct structure_type24753 t100837; struct structure_type24753 t100838; struct structure_type24753 t100839; struct structure_type24753 t100840; struct structure_type24753 t100841; struct structure_type24753 t100842; struct structure_type24753 t100843; struct structure_type24753 t100844; struct structure_type24753 t100845; struct structure_type24753 t100846; struct structure_type24753 t100847; struct structure_type24753 t100848; struct structure_type24753 t100849; struct structure_type24753 t100850; struct structure_type24753 t100851; struct structure_type24753 t100852; struct structure_type24753 t100853; struct structure_type24753 t100854; struct structure_type24753 t100855; struct structure_type24753 t100856; struct structure_type24753 t100857; struct structure_type24753 t100858; struct structure_type24753 t100859; struct structure_type24753 t100860; struct structure_type24753 t100861; struct structure_type24753 t100862; struct structure_type24753 t100863; struct structure_type24753 t100864; struct structure_type24753 t100865; struct structure_type24753 t100866; struct structure_type24753 t100867; struct structure_type24753 t100868; struct structure_type24753 t100869; struct structure_type24753 t100870; struct structure_type24753 t100871; struct structure_type24753 t100872; struct structure_type24753 t100873; struct structure_type24753 t100874; struct structure_type24753 t100875; struct structure_type24753 t100876; struct structure_type24753 t100877; struct structure_type24753 t100878; struct structure_type24753 t100879; struct structure_type24753 t100880; struct structure_type24753 t100881; struct structure_type24753 t100882; struct structure_type24753 t100883; struct structure_type24753 t100884; struct structure_type24753 t100885; struct structure_type24753 t100886; struct structure_type24753 t100887; struct structure_type24753 t100888; struct structure_type24753 t100889; struct structure_type24753 t100890; struct structure_type24753 t100891; struct structure_type24753 t100892; struct structure_type24753 t100893; struct structure_type24753 t100894; struct structure_type24753 t100895; struct structure_type24753 t100896; struct structure_type24753 t100897; struct structure_type24753 t100898; struct structure_type24753 t100899; struct structure_type24753 t100900; struct structure_type24753 t100901; struct structure_type24753 t100902; struct structure_type24753 t100903; struct structure_type24753 t100904; struct structure_type24753 t100905; struct structure_type24753 t100906; struct structure_type24753 t100907; struct structure_type24753 t100908; struct structure_type24753 t100909; struct structure_type24753 t100910; struct structure_type24753 t100911; struct structure_type24753 t100912; struct structure_type24753 t100913; struct structure_type24753 t100914; struct structure_type24753 t100915; struct structure_type24753 t100916; struct structure_type24753 t100917; struct structure_type24753 t100918; struct structure_type24753 t100919; struct structure_type24753 t100920; struct structure_type24753 t100921; struct structure_type24753 t100922; struct structure_type24753 t100923; struct structure_type24753 t100924; struct structure_type24753 t100925; struct structure_type24753 t100926; struct structure_type24753 t100927; struct structure_type24753 t100928; struct structure_type24753 t100929; struct structure_type24753 t100930; struct structure_type24753 t100931; struct structure_type24753 t100932; struct structure_type24753 t100933; struct structure_type24753 t100934; struct structure_type24753 t100935; struct structure_type24753 t100936; struct structure_type24753 t100937; struct structure_type24753 t100938; struct structure_type24753 t100939; struct structure_type24753 t100940; struct structure_type24753 t100941; struct structure_type24753 t100942; struct structure_type24753 t100943; struct structure_type24753 t100944; struct structure_type24753 t100945; struct structure_type24753 t100946; struct structure_type24753 t100947; struct structure_type24753 t100948; struct structure_type24753 t100949; struct structure_type24753 t100950; struct structure_type24753 t100951; struct structure_type24753 t100952; struct structure_type24753 t100953; struct structure_type24753 t100954; struct structure_type24753 t100955; struct structure_type24753 t100956; struct structure_type24753 t100957; struct structure_type24753 t100958; struct structure_type24753 t100959; struct structure_type24753 t100960; struct structure_type24753 t100961; struct structure_type24753 t100962; struct structure_type24753 t100963; struct structure_type24753 t100964; struct structure_type24753 t100965; struct structure_type24753 t100966; struct structure_type24753 t100967; struct structure_type24753 t100968; struct structure_type24753 t100969; struct structure_type24753 t100970; struct structure_type24753 t100971; struct structure_type24753 t100972; struct structure_type24753 t100973; struct structure_type24753 t100974; struct structure_type24753 t100975; struct structure_type24753 t100976; struct structure_type24753 t100977; struct structure_type24753 t100978; struct structure_type24753 t100979; struct structure_type24753 t100980; struct structure_type24753 t100981; struct structure_type24753 t100982; struct structure_type24753 t100983; struct structure_type24753 t100984; struct structure_type24753 t100985; struct structure_type24753 t100986; struct structure_type24753 t100987; struct structure_type24753 t100988; struct structure_type24753 t100989; struct structure_type24753 t100990; struct structure_type24753 t100991; struct structure_type24753 t100992; struct structure_type24753 t100993; struct structure_type24753 t100994; struct structure_type24753 t100995; struct structure_type24753 t100996; struct structure_type24753 t100997; struct structure_type24753 t100998; struct structure_type24753 t100999; struct structure_type24753 t101000; struct structure_type24753 t101001; struct structure_type24753 t101002; struct structure_type24753 t101003; struct structure_type24753 t101004; struct structure_type24753 t101005; struct structure_type24753 t101006; struct structure_type24753 t101007; struct structure_type24753 t101008; struct structure_type24753 t101009; struct structure_type24753 t101010; struct structure_type24753 t101011; struct structure_type24753 t101012; struct structure_type24753 t101013; struct structure_type24753 t101014; struct structure_type24753 t101015; struct structure_type24753 t101016; struct structure_type24753 t101017; struct structure_type24753 t101018; struct structure_type24753 t101019; struct structure_type24753 t101020; struct structure_type24753 t101021; struct structure_type24753 t101022; struct structure_type24753 t101023; struct structure_type24753 t101024; struct structure_type24753 t101025; struct structure_type24753 t101026; struct structure_type24753 t101027; struct structure_type24753 t101028; struct structure_type24753 t101029; struct structure_type24753 t101030; struct structure_type24753 t101031; struct structure_type24753 t101032; struct structure_type24753 t101033; struct structure_type24753 t101034; struct structure_type24753 t101035; struct structure_type24753 t101036; struct structure_type24753 t101037; struct structure_type24753 t101038; struct structure_type24753 t101039; struct structure_type24753 t101040; struct structure_type24753 t101041; struct structure_type24753 t101042; struct structure_type24753 t101043; struct structure_type24753 t101044; struct structure_type24753 t101045; struct structure_type24753 t101046; struct structure_type24753 t101047; struct structure_type24753 t101048; struct structure_type24753 t101049; struct structure_type24753 t101050; struct structure_type24753 t101051; struct structure_type24753 t101052; struct structure_type24753 t101053; struct structure_type24753 t101054; struct structure_type24753 t101055; struct structure_type24753 t101056; struct structure_type24753 t101057; struct structure_type24753 t101058; struct structure_type24753 t101059; struct structure_type24753 t101060; struct structure_type24753 t101061; struct structure_type24753 t101062; struct structure_type24753 t101063; struct structure_type24753 t101064; struct structure_type24753 t101065; struct structure_type24753 t101066; struct structure_type24753 t101067; struct structure_type24753 t101068; struct structure_type24753 t101069; struct structure_type24753 t101070; struct structure_type24753 t101071; struct structure_type24753 t101072; struct structure_type24753 t101073; struct structure_type24753 t101074; struct structure_type24753 t101075; struct structure_type24753 t101076; struct structure_type24753 t101077; struct structure_type24753 t101078; struct structure_type24753 t101079; struct structure_type24753 t101080; struct structure_type24753 t101081; struct structure_type24753 t101082; struct structure_type24753 t101083; struct structure_type24753 t101084; struct structure_type24753 t101085; struct structure_type24753 t101086; struct structure_type24753 t101087; struct structure_type24753 t101088; struct structure_type24753 t101089; struct structure_type24753 t101090; struct structure_type24753 t101091; struct structure_type24753 t101092; struct structure_type24753 t101093; struct structure_type24753 t101094; struct structure_type24753 t101095; struct structure_type24753 t101096; struct structure_type24753 t101097; struct structure_type24753 t101098; struct structure_type24753 t101099; struct structure_type24753 t101100; struct structure_type24753 t101101; struct structure_type24753 t101102; struct structure_type24753 t101103; struct structure_type24753 t101104; struct structure_type24753 t101105; struct structure_type24753 t101106; struct structure_type24753 t101107; struct structure_type24753 t101108; struct structure_type24753 t101109; struct structure_type24753 t101110; struct structure_type24753 t101111; struct structure_type24753 t101112; struct structure_type24753 t101113; struct structure_type24753 t101114; struct structure_type24753 t101115; struct structure_type24753 t101116; struct structure_type24753 t101117; struct structure_type24753 t101118; struct structure_type24753 t101119; struct structure_type24753 t101120; struct structure_type24753 t101121; struct structure_type24753 t101122; struct structure_type24753 t101123; struct structure_type24753 t101124; struct structure_type24753 t101125; struct structure_type24753 t101126; struct structure_type24753 t101127; struct structure_type24753 t101128; struct structure_type24753 t101129; struct structure_type24753 t101130; struct structure_type24753 t101131; struct structure_type24753 t101132; struct structure_type24753 t101133; struct structure_type24753 t101134; struct structure_type24753 t101135; struct structure_type24753 t101136; struct structure_type24753 t101137; struct structure_type24753 t101138; struct structure_type24753 t101139; struct structure_type24753 t101140; struct structure_type24753 t101141; struct structure_type24753 t101142; struct structure_type24753 t101143; struct structure_type24753 t101144; struct structure_type24753 t101145; struct structure_type24753 t101146; struct structure_type24753 t101147; struct structure_type24753 t101148; struct structure_type24753 t101149; struct structure_type24753 t101150; struct structure_type24753 t101151; struct structure_type24753 t101152; struct structure_type24753 t101153; struct structure_type24753 t101154; struct structure_type24753 t101155; struct structure_type24753 t101156; struct structure_type24753 t101157; struct structure_type24753 t101158; struct structure_type24753 t101159; struct structure_type24753 t101160; struct structure_type24753 t101161; struct structure_type24753 t101162; struct structure_type24753 t101163; struct structure_type24753 t101164; struct structure_type24753 t101165; struct structure_type24753 t101166; struct structure_type24753 t101167; struct structure_type24753 t101168; struct structure_type24753 t101169; struct structure_type24753 t101170; struct structure_type24753 t101171; struct structure_type24753 t101172; struct structure_type24753 t101173; struct structure_type24753 t101174; struct structure_type24753 t101175; struct structure_type24753 t101176; struct structure_type24753 t101177; struct structure_type24753 t101178; struct structure_type24753 t101179; struct structure_type24753 t101180; struct structure_type24753 t101181; struct structure_type24753 t101182; struct structure_type24753 t101183; struct structure_type24753 t101184; struct structure_type24753 t101185; struct structure_type24753 t101186; struct structure_type24753 t101187; struct structure_type24753 t101188; struct structure_type24753 t101189; struct structure_type24753 t101190; struct structure_type24753 t101191; struct structure_type24753 t101192; struct structure_type24753 t101193; struct structure_type24753 t101194; struct structure_type24753 t101195; struct structure_type24753 t101196; struct structure_type24753 t101197; struct structure_type24753 t101198; struct structure_type24753 t101199; struct structure_type24753 t101200; struct structure_type24753 t101201; struct structure_type24753 t101202; struct structure_type24753 t101203; struct structure_type24753 t101204; struct structure_type24753 t101205; struct structure_type24753 t101206; struct structure_type24753 t101207; struct structure_type24753 t101208; struct structure_type24753 t101209; struct structure_type24753 t101210; struct structure_type24753 t101211; struct structure_type24753 t101212; struct structure_type24753 t101213; struct structure_type24753 t101214; struct structure_type24753 t101215; struct structure_type24753 t101216; struct structure_type24753 t101217; struct structure_type24753 t101218; struct structure_type24753 t101219; struct structure_type24753 t101220; struct structure_type24753 t101221; struct structure_type24753 t101222; struct structure_type24753 t101223; struct structure_type24753 t101224; struct structure_type24753 t101225; struct structure_type24753 t101226; struct structure_type24753 t101227; struct structure_type24753 t101228; struct structure_type24753 t101229; struct structure_type24753 t101230; struct structure_type24753 t101231; struct structure_type24753 t101232; struct structure_type24753 t101233; struct structure_type24753 t101234; struct structure_type24753 t101235; struct structure_type24753 t101236; struct structure_type24753 t101237; struct structure_type24753 t101238; struct structure_type24753 t101239; struct structure_type24753 t101240; struct structure_type24753 t101241; struct structure_type24753 t101242; struct structure_type24753 t101243; struct structure_type24753 t101244; struct structure_type24753 t101245; struct structure_type24753 t101246; struct structure_type24753 t101247; struct structure_type24753 t101248; struct structure_type24753 t101249; struct structure_type24753 t101250; struct structure_type24753 t101251; struct structure_type24753 t101252; struct structure_type24753 t101253; struct structure_type24753 t101254; struct structure_type24753 t101255; struct structure_type24753 t101256; struct structure_type24753 t101257; struct structure_type24753 t101258; struct structure_type24753 t101259; struct structure_type24753 t101260; struct structure_type24753 t101261; struct structure_type24753 t101262; struct structure_type24753 t101263; struct structure_type24753 t101264; struct structure_type24753 t101265; struct structure_type24753 t101266; struct structure_type24753 t101267; struct structure_type24753 t101268; struct structure_type24753 t101269; struct structure_type24753 t101270; struct structure_type24753 t101271; struct structure_type24753 t101272; struct structure_type24753 t101273; struct structure_type24753 t101274; struct structure_type24753 t101275; struct structure_type24753 t101276; struct structure_type24753 t101277; struct structure_type24753 t101278; struct structure_type24753 t101279; struct structure_type24753 t101280; struct structure_type24753 t101281; struct structure_type24753 t101282; struct structure_type24753 t101283; struct structure_type24753 t101284; struct structure_type24753 t101285; struct structure_type24753 t101286; struct structure_type24753 t101287; struct structure_type24753 t101288; struct structure_type24753 t101289; struct structure_type24753 t101290; struct structure_type24753 t101291; struct structure_type24753 t101292; struct structure_type24753 t101293; struct structure_type24753 t101294; struct structure_type24753 t101295; struct structure_type24753 t101296; struct structure_type24753 t101297; struct structure_type24753 t101298; struct structure_type24753 t101299; struct structure_type24753 t101300; struct structure_type24753 t101301; struct structure_type24753 t101302; struct structure_type24753 t101303; struct structure_type24753 t101304; struct structure_type24753 t101305; struct structure_type24753 t101306; struct structure_type24753 t101307; struct structure_type24753 t101308; struct structure_type24753 t101309; struct structure_type24753 t101310; struct structure_type24753 t101311; struct structure_type24753 t101312; struct structure_type24753 t101313; struct structure_type24753 t101314; struct structure_type24753 t101315; struct structure_type24753 t101316; struct structure_type24753 t101317; struct structure_type24753 t101318; struct structure_type24753 t101319; struct structure_type24753 t101320; struct structure_type24753 t101321; struct structure_type24753 t101322; struct structure_type24753 t101323; struct structure_type24753 t101324; struct structure_type24753 t101325; struct structure_type24753 t101326; struct structure_type24753 t101327; struct structure_type24753 t101328; struct structure_type24753 t101329; struct structure_type24753 t101330; struct structure_type24753 t101331; struct structure_type24753 t101332; struct structure_type24753 t101333; struct structure_type24753 t101334; struct structure_type24753 t101335; struct structure_type24753 t101336; struct structure_type24753 t101337; struct structure_type24753 t101338; struct structure_type24753 t101339; struct structure_type24753 t101340; struct structure_type24753 t101341; struct structure_type24753 t101342; struct structure_type24753 t101343; struct structure_type24753 t101344; struct structure_type24753 t101345; struct structure_type24753 t101346; struct structure_type24753 t101347; struct structure_type24753 t101348; struct structure_type24753 t101349; struct structure_type24753 t101350; struct structure_type24753 t101351; struct structure_type24753 t101352; struct structure_type24753 t101353; struct structure_type24753 t101354; struct structure_type24753 t101355; struct structure_type24753 t101356; struct structure_type24753 t101357; struct structure_type24753 t101358; struct structure_type24753 t101359; struct structure_type24753 t101360; struct structure_type24753 t101361; struct structure_type24753 t101362; struct structure_type24753 t101363; struct structure_type24753 t101364; struct structure_type24753 t101365; struct structure_type24753 t101366; struct structure_type24753 t101367; struct structure_type24753 t101368; struct structure_type24753 t101369; struct structure_type24753 t101370; struct structure_type24753 t101371; struct structure_type24753 t101372; struct structure_type24753 t101373; struct structure_type24753 t101374; struct structure_type24753 t101375; struct structure_type24753 t101376; struct structure_type24753 t101377; struct structure_type24753 t101378; struct structure_type24753 t101379; struct structure_type24753 t101380; struct structure_type24753 t101381; struct structure_type24753 t101382; struct structure_type24753 t101383; struct structure_type24753 t101384; struct structure_type24753 t101385; struct structure_type24753 t101386; struct structure_type24753 t101387; struct structure_type24753 t101388; struct structure_type24753 t101389; struct structure_type24753 t101390; struct structure_type24753 t101391; struct structure_type24753 t101392; struct structure_type24753 t101393; struct structure_type24753 t101394; struct structure_type24753 t101395; struct structure_type24753 t101396; struct structure_type24753 t101397; struct structure_type24753 t101398; struct structure_type24753 t101399; struct structure_type24753 t101400; struct structure_type24753 t101401; struct structure_type24753 t101402; struct structure_type24753 t101403; struct structure_type24753 t101404; struct structure_type24753 t101405; struct structure_type24753 t101406; struct structure_type24753 t101407; struct structure_type24753 t101408; struct structure_type24753 t101409; struct structure_type24753 t101410; struct structure_type24753 t101411; struct structure_type24753 t101412; struct structure_type24753 t101413; struct structure_type24753 t101414; struct structure_type24753 t101415; struct structure_type24753 t101416; struct structure_type24753 t101417; struct structure_type24753 t101418; struct structure_type24753 t101419; struct structure_type24753 t101420; struct structure_type24753 t101421; struct structure_type24753 t101422; struct structure_type24753 t101423; struct structure_type24753 t101424; struct structure_type24753 t101425; struct structure_type24753 t101426; struct structure_type24753 t101427; struct structure_type24753 t101428; struct structure_type24753 t101429; struct structure_type24753 t101430; struct structure_type24753 t101431; struct structure_type24753 t101432; struct structure_type24753 t101433; struct structure_type24753 t101434; struct structure_type24753 t101435; struct structure_type24753 t101436; struct structure_type24753 t101437; struct structure_type24753 t101438; struct structure_type24753 t101439; struct structure_type24753 t101440; struct structure_type24753 t101441; struct structure_type24753 t101442; struct structure_type24753 t101443; struct structure_type24753 t101444; struct structure_type24753 t101445; struct structure_type24753 t101446; struct structure_type24753 t101447; struct structure_type24753 t101448; struct structure_type24753 t101449; struct structure_type24753 t101450; struct structure_type24753 t101451; struct structure_type24753 t101452; struct structure_type24753 t101453; struct structure_type24753 t101454; struct structure_type24753 t101455; struct structure_type24753 t101456; struct structure_type24753 t101457; struct structure_type24753 t101458; struct structure_type24753 t101459; struct structure_type24753 t101460; struct structure_type24753 t101461; struct structure_type24753 t101462; struct structure_type24753 t101463; struct structure_type24753 t101464; struct structure_type24753 t101465; struct structure_type24753 t101466; struct structure_type24753 t101467; struct structure_type24753 t101468; struct structure_type24753 t101469; struct structure_type24753 t101470; struct structure_type24753 t101471; struct structure_type24753 t101472; struct structure_type24753 t101473; struct structure_type24753 t101474; struct structure_type24753 t101475; struct structure_type24753 t101476; struct structure_type24753 t101477; struct structure_type24753 t101478; struct structure_type24753 t101479; struct structure_type24753 t101480; struct structure_type24753 t101481; struct structure_type24753 t101482; struct structure_type24753 t101483; struct structure_type24753 t101484; struct structure_type24753 t101485; struct structure_type24753 t101486; struct structure_type24753 t101487; struct structure_type24753 t101488; struct structure_type24753 t101489; struct structure_type24753 t101490; struct structure_type24753 t101491; struct structure_type24753 t101492; struct structure_type24753 t101493; struct structure_type24753 t101494; struct structure_type24753 t101495; struct structure_type24753 t101496; struct structure_type24753 t101497; struct structure_type24753 t101498; struct structure_type24753 t101499; struct structure_type24753 t101500; struct structure_type24753 t101501; struct structure_type24753 t101502; struct structure_type24753 t101503; struct structure_type24753 t101504; struct structure_type24753 t101505; struct structure_type24753 t101506; struct structure_type24753 t101507; struct structure_type24753 t101508; struct structure_type24753 t101509; struct structure_type24753 t101510; struct structure_type24753 t101511; struct structure_type24753 t101512; struct structure_type24753 t101513; struct structure_type24753 t101514; struct structure_type24753 t101515; struct structure_type24753 t101516; struct structure_type24753 t101517; struct structure_type24753 t101518; struct structure_type24753 t101519; struct structure_type24753 t101520; struct structure_type24753 t101521; struct structure_type24753 t101522; struct structure_type24753 t101523; struct structure_type24753 t101524; struct structure_type24753 t101525; struct structure_type24753 t101526; struct structure_type24753 t101527; struct structure_type24753 t101528; struct structure_type24753 t101529; struct structure_type24753 t101530; struct structure_type24753 t101531; struct structure_type24753 t101532; struct structure_type24753 t101533; struct structure_type24753 t101534; struct structure_type24753 t101535; struct structure_type24753 t101536; struct structure_type24753 t101537; struct structure_type24753 t101538; struct structure_type24753 t101539; struct structure_type24753 t101540; struct structure_type24753 t101541; struct structure_type24753 t101542; struct structure_type24753 t101543; struct structure_type24753 t101544; struct structure_type24753 t101545; struct structure_type24753 t101546; struct structure_type24753 t101547; struct structure_type24753 t101548; struct structure_type24753 t101549; struct structure_type24753 t101550; struct structure_type24753 t101551; struct structure_type24753 t101552; struct structure_type24753 t101553; struct structure_type24753 t101554; struct structure_type24753 t101555; struct structure_type24753 t101556; struct structure_type24753 t101557; struct structure_type24753 t101558; struct structure_type24753 t101559; struct structure_type24753 t101560; struct structure_type24753 t101561; struct structure_type24753 t101562; struct structure_type24753 t101563; struct structure_type24753 t101564; struct structure_type24753 t101565; struct structure_type24753 t101566; struct structure_type24753 t101567; struct structure_type24753 t101568; struct structure_type24753 t101569; struct structure_type24753 t101570; struct structure_type24753 t101571; struct structure_type24753 t101572; struct structure_type24753 t101573; struct structure_type24753 t101574; struct structure_type24753 t101575; struct structure_type24753 t101576; struct structure_type24753 t101577; struct structure_type24753 t101578; struct structure_type24753 t101579; struct structure_type24753 t101580; struct structure_type24753 t101581; struct structure_type24753 t101582; struct structure_type24753 t101583; struct structure_type24753 t101584; struct structure_type24753 t101585; struct structure_type24753 t101586; struct structure_type24753 t101587; struct structure_type24753 t101588; struct structure_type24753 t101589; struct structure_type24753 t101590; struct structure_type24753 t101591; struct structure_type24753 t101592; struct structure_type24753 t101593; struct structure_type24753 t101594; struct structure_type24753 t101595; struct structure_type24753 t101596; struct structure_type24753 t101597; struct structure_type24753 t101598; struct structure_type24753 t101599; struct structure_type24753 t101600; struct structure_type24753 t101601; struct structure_type24753 t101602; struct structure_type24753 t101603; struct structure_type24753 t101604; struct structure_type24753 t101605; struct structure_type24753 t101606; struct structure_type24753 t101607; struct structure_type24753 t101608; struct structure_type24753 t101609; struct structure_type24753 t101610; struct structure_type24753 t101611; struct structure_type24753 t101612; struct structure_type24753 t101613; struct structure_type24753 t101614; struct structure_type24753 t101615; struct structure_type24753 t101616; struct structure_type24753 t101617; struct structure_type24753 t101618; struct structure_type24753 t101619; struct structure_type24753 t101620; struct structure_type24753 t101621; struct structure_type24753 t101622; struct structure_type24753 t101623; struct structure_type24753 t101624; struct structure_type24753 t101625; struct structure_type24753 t101626; struct structure_type24753 t101627; struct structure_type24753 t101628; struct structure_type24753 t101629; struct structure_type24753 t101630; struct structure_type24753 t101631; struct structure_type24753 t101632; struct structure_type24753 t101633; struct structure_type24753 t101634; struct structure_type24753 t101635; struct structure_type24753 t101636; struct structure_type24753 t101637; struct structure_type24753 t101638; struct structure_type24753 t101639; struct structure_type24753 t101640; struct structure_type24753 t101641; struct structure_type24753 t101642; struct structure_type24753 t101643; struct structure_type24753 t101644; struct structure_type24753 t101645; struct structure_type24753 t101646; struct structure_type24753 t101647; struct structure_type24753 t101648; struct structure_type24753 t101649; struct structure_type24753 t101650; struct structure_type24753 t101651; struct structure_type24753 t101652; struct structure_type24753 t101653; struct structure_type24753 t101654; struct structure_type24753 t101655; struct structure_type24753 t101656; struct structure_type24753 t101657; struct structure_type24753 t101658; struct structure_type24753 t101659; struct structure_type24753 t101660; struct structure_type24753 t101661; struct structure_type24753 t101662; struct structure_type24753 t101663; struct structure_type24753 t101664; struct structure_type24753 t101665; struct structure_type24753 t101666; struct structure_type24753 t101667; struct structure_type24753 t101668; struct structure_type24753 t101669; struct structure_type24753 t101670; struct structure_type24753 t101671; struct structure_type24753 t101672; struct structure_type24753 t101673; struct structure_type24753 t101674; struct structure_type24753 t101675; struct structure_type24753 t101676; struct structure_type24753 t101677; struct structure_type24753 t101678; struct structure_type24753 t101679; struct structure_type24753 t101680; struct structure_type24753 t101681; struct structure_type24753 t101682; struct structure_type24753 t101683; struct structure_type24753 t101684; struct structure_type24753 t101685; struct structure_type24753 t101686; struct structure_type24753 t101687; struct structure_type24753 t101688; struct structure_type24753 t101689; struct structure_type24753 t101690; struct structure_type24753 t101691; struct structure_type24753 t101692; struct structure_type24753 t101693; struct structure_type24753 t101694; struct structure_type24753 t101695; struct structure_type24753 t101696; struct structure_type24753 t101697; struct structure_type24753 t101698; struct structure_type24753 t101699; struct structure_type24753 t101700; struct structure_type24753 t101701; struct structure_type24753 t101702; struct structure_type24753 t101703; struct structure_type24753 t101704; struct structure_type24753 t101705; struct structure_type24753 t101706; struct structure_type24753 t101707; struct structure_type24753 t101708; struct structure_type24753 t101709; struct structure_type24753 t101710; struct structure_type24753 t101711; struct structure_type24753 t101712; struct structure_type24753 t101713; struct structure_type24753 t101714; struct structure_type24753 t101715; struct structure_type24753 t101716; struct structure_type24753 t101717; struct structure_type24753 t101718; struct structure_type24753 t101719; struct structure_type24753 t101720; struct structure_type24753 t101721; struct structure_type24753 t101722; struct structure_type24753 t101723; struct structure_type24753 t101724; struct structure_type24753 t101725; struct structure_type24753 t101726; struct structure_type24753 t101727; struct structure_type24753 t101728; struct structure_type24753 t101729; struct structure_type24753 t101730; struct structure_type24753 t101731; struct structure_type24753 t101732; struct structure_type24753 t101733; struct structure_type24753 t101734; struct structure_type24753 t101735; struct structure_type24753 t101736; struct structure_type24753 t101737; struct structure_type24753 t101738; struct structure_type24753 t101739; struct structure_type24753 t101740; struct structure_type24753 t101741; struct structure_type24753 t101742; struct structure_type24753 t101743; struct structure_type24753 t101744; struct structure_type24753 t101745; struct structure_type24753 t101746; struct structure_type24753 t101747; struct structure_type24753 t101748; struct structure_type24753 t101749; struct structure_type24753 t101750; struct structure_type24753 t101751; struct structure_type24753 t101752; struct structure_type24753 t101753; struct structure_type24753 t101754; struct structure_type24753 t101755; struct structure_type24753 t101756; struct structure_type24753 t101757; struct structure_type24753 t101758; struct structure_type24753 t101759; struct structure_type24753 t101760; struct structure_type24753 t101761; struct structure_type24753 t101762; struct structure_type24753 t101763; struct structure_type24753 t101764; struct structure_type24753 t101765; struct structure_type24753 t101766; struct structure_type24753 t101767; struct structure_type24753 t101768; struct structure_type24753 t101769; struct structure_type24753 t101770; struct structure_type24753 t101771; struct structure_type24753 t101772; struct structure_type24753 t101773; struct structure_type24753 t101774; struct structure_type24753 t101775; struct structure_type24753 t101776; struct structure_type24753 t101777; struct structure_type24753 t101778; struct structure_type24753 t101779; struct structure_type24753 t101780; struct structure_type24753 t101781; struct structure_type24753 t101782; struct structure_type24753 t101783; struct structure_type24753 t101784; struct structure_type24753 t101785; struct structure_type24753 t101786; struct structure_type24753 t101787; struct structure_type24753 t101788; struct structure_type24753 t101789; struct structure_type24753 t101790; struct structure_type24753 t101791; struct structure_type24753 t101792; struct structure_type24753 t101793; struct structure_type24753 t101794; struct structure_type24753 t101795; struct structure_type24753 t101796; struct structure_type24753 t101797; struct structure_type24753 t101798; struct structure_type24753 t101799; struct structure_type24753 t101800; struct structure_type24753 t101801; struct structure_type24753 t101802; struct structure_type24753 t101803; struct structure_type24753 t101804; struct structure_type24753 t101805; struct structure_type24753 t101806; struct structure_type24753 t101807; struct structure_type24753 t101808; struct structure_type24753 t101809; struct structure_type24753 t101810; struct structure_type24753 t101811; struct structure_type24753 t101812; struct structure_type24753 t101813; struct structure_type24753 t101814; struct structure_type24753 t101815; struct structure_type24753 t101816; struct structure_type24753 t101817; struct structure_type24753 t101818; struct structure_type24753 t101819; struct structure_type24753 t101820; struct structure_type24753 t101821; struct structure_type24753 t101822; struct structure_type24753 t101823; struct structure_type24753 t101824; struct structure_type24753 t101825; struct structure_type24753 t101826; struct structure_type24753 t101827; struct structure_type24753 t101828; struct structure_type24753 t101829; struct structure_type24753 t101830; struct structure_type24753 t101831; struct structure_type24753 t101832; struct structure_type24753 t101833; struct structure_type24753 t101834; struct structure_type24753 t101835; struct structure_type24753 t101836; struct structure_type24753 t101837; struct structure_type24753 t101838; struct structure_type24753 t101839; struct structure_type24753 t101840; struct structure_type24753 t101841; struct structure_type24753 t101842; struct structure_type24753 t101843; struct structure_type24753 t101844; struct structure_type24753 t101845; struct structure_type24753 t101846; struct structure_type24753 t101847; struct structure_type24753 t101848; struct structure_type24753 t101849; struct structure_type24753 t101850; struct structure_type24753 t101851; struct structure_type24753 t101852; struct structure_type24753 t101853; struct structure_type24753 t101854; struct structure_type24753 t101855; struct structure_type24753 t101856; struct structure_type24753 t101857; struct structure_type24753 t101858; struct structure_type24753 t101859; struct structure_type24753 t101860; struct structure_type24753 t101861; struct structure_type24753 t101862; struct structure_type24753 t101863; struct structure_type24753 t101864; struct structure_type24753 t101865; struct structure_type24753 t101866; struct structure_type24753 t101867; struct structure_type24753 t101868; struct structure_type24753 t101869; struct structure_type24753 t101870; struct structure_type24753 t101871; struct structure_type24753 t101872; struct structure_type24753 t101873; struct structure_type24753 t101874; struct structure_type24753 t101875; struct structure_type24753 t101876; struct structure_type24753 t101877; struct structure_type24753 t101878; struct structure_type24753 t101879; struct structure_type24753 t101880; struct structure_type24753 t101881; struct structure_type24753 t101882; struct structure_type24753 t101883; struct structure_type24753 t101884; struct structure_type24753 t101885; struct structure_type24753 t101886; struct structure_type24753 t101887; struct structure_type24753 t101888; struct structure_type24753 t101889; struct structure_type24753 t101890; struct structure_type24753 t101891; struct structure_type24753 t101892; struct structure_type24753 t101893; struct structure_type24753 t101894; struct structure_type24753 t101895; struct structure_type24753 t101896; struct structure_type24753 t101897; struct structure_type24753 t101898; struct structure_type24753 t101899; struct structure_type24753 t101900; struct structure_type24753 t101901; struct structure_type24753 t101902; struct structure_type24753 t101903; struct structure_type24753 t101904; struct structure_type24753 t101905; struct structure_type24753 t101906; struct structure_type24753 t101907; struct structure_type24753 t101908; struct structure_type24753 t101909; struct structure_type24753 t101910; struct structure_type24753 t101911; struct structure_type24753 t101912; struct structure_type24753 t101913; struct structure_type24753 t101914; struct structure_type24753 t101915; struct structure_type24753 t101916; struct structure_type24753 t101917; struct structure_type24753 t101918; struct structure_type24753 t101919; struct structure_type24753 t101920; struct structure_type24753 t101921; struct structure_type24753 t101922; struct structure_type24753 t101923; struct structure_type24753 t101924; struct structure_type24753 t101925; struct structure_type24753 t101926; struct structure_type24753 t101927; struct structure_type24753 t101928; struct structure_type24753 t101929; struct structure_type24753 t101930; struct structure_type24753 t101931; struct structure_type24753 t101932; struct structure_type24753 t101933; struct structure_type24753 t101934; struct structure_type24753 t101935; struct structure_type24753 t101936; struct structure_type24753 t101937; struct structure_type24753 t101938; struct structure_type24753 t101939; struct structure_type24753 t101940; struct structure_type24753 t101941; struct structure_type24753 t101942; struct structure_type24753 t101943; struct structure_type24753 t101944; struct structure_type24753 t101945; struct structure_type24753 t101946; struct structure_type24753 t101947; struct structure_type24753 t101948; struct structure_type24753 t101949; struct structure_type24753 t101950; struct structure_type24753 t101951; struct structure_type24753 t101952; struct structure_type24753 t101953; struct structure_type24753 t101954; struct structure_type24753 t101955; struct structure_type24753 t101956; struct structure_type24753 t101957; struct structure_type24753 t101958; struct structure_type24753 t101959; struct structure_type24753 t101960; struct structure_type24753 t101961; struct structure_type24753 t101962; struct structure_type24753 t101963; struct structure_type24753 t101964; struct structure_type24753 t101965; struct structure_type24753 t101966; struct structure_type24753 t101967; struct structure_type24753 t101968; struct structure_type24753 t101969; struct structure_type24753 t101970; struct structure_type24753 t101971; struct structure_type24753 t101972; struct structure_type24753 t101973; struct structure_type24753 t101974; struct structure_type24753 t101975; struct structure_type24753 t101976; struct structure_type24753 t101977; struct structure_type24753 t101978; struct structure_type24753 t101979; struct structure_type24753 t101980; struct structure_type24753 t101981; struct structure_type24753 t101982; struct structure_type24753 t101983; struct structure_type24753 t101984; struct structure_type24753 t101985; struct structure_type24753 t101986; struct structure_type24753 t101987; struct structure_type24753 t101988; struct structure_type24753 t101989; struct structure_type24753 t101990; struct structure_type24753 t101991; struct structure_type24753 t101992; struct structure_type24753 t101993; struct structure_type24753 t101994; struct structure_type24753 t101995; struct structure_type24753 t101996; struct structure_type24753 t101997; struct structure_type24753 t101998; struct structure_type24753 t101999; struct structure_type24753 t102000; struct structure_type24753 t102001; struct structure_type24753 t102002; struct structure_type24753 t102003; struct structure_type24753 t102004; struct structure_type24753 t102005; struct structure_type24753 t102006; struct structure_type24753 t102007; struct structure_type24753 t102008; struct structure_type24753 t102009; struct structure_type24753 t102010; struct structure_type24753 t102011; struct structure_type24753 t102012; struct structure_type24753 t102013; struct structure_type24753 t102014; struct structure_type24753 t102015; struct structure_type24753 t102016; struct structure_type24753 t102017; struct structure_type24753 t102018; struct structure_type24753 t102019; struct structure_type24753 t102020; struct structure_type24753 t102021; struct structure_type24753 t102022; struct structure_type24753 t102023; struct structure_type24753 t102024; struct structure_type24753 t102025; struct structure_type24753 t102026; struct structure_type24753 t102027; struct structure_type24753 t102028; struct structure_type24753 t102029; struct structure_type24753 t102030; struct structure_type24753 t102031; struct structure_type24753 t102032; struct structure_type24753 t102033; struct structure_type24753 t102034; struct structure_type24753 t102035; struct structure_type24753 t102036; struct structure_type24753 t102037; struct structure_type24753 t102038; struct structure_type24753 t102039; struct structure_type24753 t102040; struct structure_type24753 t102041; struct structure_type24753 t102042; struct structure_type24753 t102043; struct structure_type24753 t102044; struct structure_type24753 t102045; struct structure_type24753 t102046; struct structure_type24753 t102047; struct structure_type24753 t102048; struct structure_type24753 t102049; struct structure_type24753 t102050; struct structure_type24753 t102051; struct structure_type24753 t102052; struct structure_type24753 t102053; struct structure_type24753 t102054; struct structure_type24753 t102055; struct structure_type24753 t102056; struct structure_type24753 t102057; struct structure_type24753 t102058; struct structure_type24753 t102059; struct structure_type24753 t102060; struct structure_type24753 t102061; struct structure_type24753 t102062; struct structure_type24753 t102063; struct structure_type24753 t102064; struct structure_type24753 t102065; struct structure_type24753 t102066; struct structure_type24753 t102067; struct structure_type24753 t102068; struct structure_type24753 t102069; struct structure_type24753 t102070; struct structure_type24753 t102071; struct structure_type24753 t102072; struct structure_type24753 t102073; struct structure_type24753 t102074; struct structure_type24753 t102075; struct structure_type24753 t102076; struct structure_type24753 t102077; struct structure_type24753 t102078; struct structure_type24753 t102079; struct structure_type24753 t102080; struct structure_type24753 t102081; struct structure_type24753 t102082; struct structure_type24753 t102083; struct structure_type24753 t102084; struct structure_type24753 t102085; struct structure_type24753 t102086; struct structure_type24753 t102087; struct structure_type24753 t102088; struct structure_type24753 t102089; struct structure_type24753 t102090; struct structure_type24753 t102091; struct structure_type24753 t102092; struct structure_type24753 t102093; struct structure_type24753 t102094; struct structure_type24753 t102095; struct structure_type24753 t102096; struct structure_type24753 t102097; struct structure_type24753 t102098; struct structure_type24753 t102099; struct structure_type24753 t102100; struct structure_type24753 t102101; struct structure_type24753 t102102; struct structure_type24753 t102103; struct structure_type24753 t102104; struct structure_type24753 t102105; struct structure_type24753 t102106; struct structure_type24753 t102107; struct structure_type24753 t102108; struct structure_type24753 t102109; struct structure_type24753 t102110; struct structure_type24753 t102111; struct structure_type24753 t102112; struct structure_type24753 t102113; struct structure_type24753 t102114; struct structure_type24753 t102115; struct structure_type24753 t102116; struct structure_type24753 t102117; struct structure_type24753 t102118; struct structure_type24753 t102119; struct structure_type24753 t102120; struct structure_type24753 t102121; struct structure_type24753 t102122; struct structure_type24753 t102123; struct structure_type24753 t102124; struct structure_type24753 t102125; struct structure_type24753 t102126; struct structure_type24753 t102127; struct structure_type24753 t102128; struct structure_type24753 t102129; struct structure_type24753 t102130; struct structure_type24753 t102131; struct structure_type24753 t102132; struct structure_type24753 t102133; struct structure_type24753 t102134; struct structure_type24753 t102135; struct structure_type24753 t102136; struct structure_type24753 t102137; struct structure_type24753 t102138; struct structure_type24753 t102139; struct structure_type24753 t102140; struct structure_type24753 t102141; struct structure_type24753 t102142; struct structure_type24753 t102143; struct structure_type24753 t102144; struct structure_type24753 t102145; struct structure_type24753 t102146; struct structure_type24753 t102147; struct structure_type24753 t102148; struct structure_type24753 t102149; struct structure_type24753 t102150; struct structure_type24753 t102151; struct structure_type24753 t102152; struct structure_type24753 t102153; struct structure_type24753 t102154; struct structure_type24753 t102155; struct structure_type24753 t102156; struct structure_type24753 t102157; struct structure_type24753 t102158; struct structure_type24753 t102159; struct structure_type24753 t102160; struct structure_type24753 t102161; struct structure_type24753 t102162; struct structure_type24753 t102163; struct structure_type24753 t102164; struct structure_type24753 t102165; struct structure_type24753 t102166; struct structure_type24753 t102167; struct structure_type24753 t102168; struct structure_type24753 t102169; struct structure_type24753 t102170; struct structure_type24753 t102171; struct structure_type24753 t102172; struct structure_type24753 t102173; struct structure_type24753 t102174; struct structure_type24753 t102175; struct structure_type24753 t102176; struct structure_type24753 t102177; struct structure_type24753 t102178; struct structure_type24753 t102179; struct structure_type24753 t102180; struct structure_type24753 t102181; struct structure_type24753 t102182; struct structure_type24753 t102183; struct structure_type24753 t102184; struct structure_type24753 t102185; struct structure_type24753 t102186; struct structure_type24753 t102187; struct structure_type24753 t102188; struct structure_type24753 t102189; struct structure_type24753 t102190; struct structure_type24753 t102191; struct structure_type24753 t102192; struct structure_type24753 t102193; struct structure_type24753 t102194; struct structure_type24753 t102195; struct structure_type24753 t102196; struct structure_type24753 t102197; struct structure_type24753 t102198; struct structure_type24753 t102199; struct structure_type24753 t102200; struct structure_type24753 t102201; struct structure_type24753 t102202; struct structure_type24753 t102203; struct structure_type24753 t102204; struct structure_type24753 t102205; struct structure_type24753 t102206; struct structure_type24753 t102207; struct structure_type24753 t102208; struct structure_type24753 t102209; struct structure_type24753 t102210; struct structure_type24753 t102211; struct structure_type24753 t102212; struct structure_type24753 t102213; struct structure_type24753 t102214; struct structure_type24753 t102215; struct structure_type24753 t102216; struct structure_type24753 t102217; struct structure_type24753 t102218; struct structure_type24753 t102219; struct structure_type24753 t102220; struct structure_type24753 t102221; struct structure_type24753 t102222; struct structure_type24753 t102223; struct structure_type24753 t102224; struct structure_type24753 t102225; struct structure_type24753 t102226; struct structure_type24753 t102227; struct structure_type24753 t102228; struct structure_type24753 t102229; struct structure_type24753 t102230; struct structure_type24753 t102231; struct structure_type24753 t102232; struct structure_type24753 t102233; struct structure_type24753 t102234; struct structure_type24753 t102235; struct structure_type24753 t102236; struct structure_type24753 t102237; struct structure_type24753 t102238; struct structure_type24753 t102239; struct structure_type24753 t102240; struct structure_type24753 t102241; struct structure_type24753 t102242; struct structure_type24753 t102243; struct structure_type24753 t102244; struct structure_type24753 t102245; struct structure_type24753 t102246; struct structure_type24753 t102247; struct structure_type24753 t102248; struct structure_type24753 t102249; struct structure_type24753 t102250; struct structure_type24753 t102251; struct structure_type24753 t102252; struct structure_type24753 t102253; struct structure_type24753 t102254; struct structure_type24753 t102255; struct structure_type24753 t102256; struct structure_type24753 t102257; struct structure_type24753 t102258; struct structure_type24753 t102259; struct structure_type24753 t102260; struct structure_type24753 t102261; struct structure_type24753 t102262; struct structure_type24753 t102263; struct structure_type24753 t102264; struct structure_type24753 t102265; struct structure_type24753 t102266; struct structure_type24753 t102267; struct structure_type24753 t102268; struct structure_type24753 t102269; struct structure_type24753 t102270; struct structure_type24753 t102271; struct structure_type24753 t102272; struct structure_type24753 t102273; struct structure_type24753 t102274; struct structure_type24753 t102275; struct structure_type24753 t102276; struct structure_type24753 t102277; struct structure_type24753 t102278; struct structure_type24753 t102279; struct structure_type24753 t102280; struct structure_type24753 t102281; struct structure_type24753 t102282; struct structure_type24753 t102283; struct structure_type24753 t102284; struct structure_type24753 t102285; struct structure_type24753 t102286; struct structure_type24753 t102287; struct structure_type24753 t102288; struct structure_type24753 t102289; struct structure_type24753 t102290; struct structure_type24753 t102291; struct structure_type24753 t102292; struct structure_type24753 t102293; struct structure_type24753 t102294; struct structure_type24753 t102295; struct structure_type24753 t102296; struct structure_type24753 t102297; struct structure_type24753 t102298; struct structure_type24753 t102299; struct structure_type24753 t102300; struct structure_type24753 t102301; struct structure_type24753 t102302; struct structure_type24753 t102303; struct structure_type24753 t102304; struct structure_type24753 t102305; struct structure_type24753 t102306; struct structure_type24753 t102307; struct structure_type24753 t102308; struct structure_type24753 t102309; struct structure_type24753 t102310; struct structure_type24753 t102311; struct structure_type24753 t102312; struct structure_type24753 t102313; struct structure_type24753 t102314; struct structure_type24753 t102315; struct structure_type24753 t102316; struct structure_type24753 t102317; struct structure_type24753 t102318; struct structure_type24753 t102319; struct structure_type24753 t102320; struct structure_type24753 t102321; struct structure_type24753 t102322; struct structure_type24753 t102323; struct structure_type24753 t102324; struct structure_type24753 t102325; struct structure_type24753 t102326; struct structure_type24753 t102327; struct structure_type24753 t102328; struct structure_type24753 t102329; struct structure_type24753 t102330; struct structure_type24753 t102331; struct structure_type24753 t102332; struct structure_type24753 t102333; struct structure_type24753 t102334; struct structure_type24753 t102335; struct structure_type24753 t102336; struct structure_type24753 t102337; struct structure_type24753 t102338; struct structure_type24753 t102339; struct structure_type24753 t102340; struct structure_type24753 t102341; struct structure_type24753 t102342; struct structure_type24753 t102343; struct structure_type24753 t102344; struct structure_type24753 t102345; struct structure_type24753 t102346; struct structure_type24753 t102347; struct structure_type24753 t102348; struct structure_type24753 t102349; struct structure_type24753 t102350; struct structure_type24753 t102351; struct structure_type24753 t102352; struct structure_type24753 t102353; struct structure_type24753 t102354; struct structure_type24753 t102355; struct structure_type24753 t102356; struct structure_type24753 t102357; struct structure_type24753 t102358; struct structure_type24753 t102359; struct structure_type24753 t102360; struct structure_type24753 t102361; struct structure_type24753 t102362; struct structure_type24753 t102363; struct structure_type24753 t102364; struct structure_type24753 t102365; struct structure_type24753 t102366; struct structure_type24753 t102367; struct structure_type24753 t102368; struct structure_type24753 t102369; struct structure_type24753 t102370; struct structure_type24753 t102371; struct structure_type24753 t102372; struct structure_type24753 t102373; struct structure_type24753 t102374; struct structure_type24753 t102375; struct structure_type24753 t102376; struct structure_type24753 t102377; struct structure_type24753 t102378; struct structure_type24753 t102379; struct structure_type24753 t102380; struct structure_type24753 t102381; struct structure_type24753 t102382; struct structure_type24753 t102383; struct structure_type24753 t102384; struct structure_type24753 t102385; struct structure_type24753 t102386; struct structure_type24753 t102387; struct structure_type24753 t102388; struct structure_type24753 t102389; struct structure_type24753 t102390; struct structure_type24753 t102391; struct structure_type24753 t102392; struct structure_type24753 t102393; struct structure_type24753 t102394; struct structure_type24753 t102395; struct structure_type24753 t102396; struct structure_type24753 t102397; struct structure_type24753 t102398; struct structure_type24753 t102399; struct structure_type24753 t102400; struct structure_type24753 t102401; struct structure_type24753 t102402; struct structure_type24753 t102403; struct structure_type24753 t102404; struct structure_type24753 t102405; struct structure_type24753 t102406; struct structure_type24753 t102407; struct structure_type24753 t102408; struct structure_type24753 t102409; struct structure_type24753 t102410; struct structure_type24753 t102411; struct structure_type24753 t102412; struct structure_type24753 t102413; struct structure_type24753 t102414; struct structure_type24753 t102415; struct structure_type24753 t102416; struct structure_type24753 t102417; struct structure_type24753 t102418; struct structure_type24753 t102419; struct structure_type24753 t102420; struct structure_type24753 t102421; struct structure_type24753 t102422; struct structure_type24753 t102423; struct structure_type24753 t102424; struct structure_type24753 t102425; struct structure_type24753 t102426; struct structure_type24753 t102427; struct structure_type24753 t102428; struct structure_type24753 t102429; struct structure_type24753 t102430; struct structure_type24753 t102431; struct structure_type24753 t102432; struct structure_type24753 t102433; struct structure_type24753 t102434; struct structure_type24753 t102435; struct structure_type24753 t102436; struct structure_type24753 t102437; struct structure_type24753 t102438; struct structure_type24753 t102439; struct structure_type24753 t102440; struct structure_type24753 t102441; struct structure_type24753 t102442; struct structure_type24753 t102443; struct structure_type24753 t102444; struct structure_type24753 t102445; struct structure_type24753 t102446; struct structure_type24753 t102447; struct structure_type24753 t102448; struct structure_type24753 t102449; struct structure_type24753 t102450; struct structure_type24753 t102451; struct structure_type24753 t102452; struct structure_type24753 t102453; struct structure_type24753 t102454; struct structure_type24753 t102455; struct structure_type24753 t102456; struct structure_type24753 t102457; struct structure_type24753 t102458; struct structure_type24753 t102459; struct structure_type24753 t102460; struct structure_type24753 t102461; struct structure_type24753 t102462; struct structure_type24753 t102463; struct structure_type24753 t102464; struct structure_type24753 t102465; struct structure_type24753 t102466; struct structure_type24753 t102467; struct structure_type24753 t102468; struct structure_type24753 t102469; struct structure_type24753 t102470; struct structure_type24753 t102471; struct structure_type24753 t102472; struct structure_type24753 t102473; struct structure_type24753 t102474; struct structure_type24753 t102475; struct structure_type24753 t102476; struct structure_type24753 t102477; struct structure_type24753 t102478; struct structure_type24753 t102479; struct structure_type24753 t102480; struct structure_type24753 t102481; struct structure_type24753 t102482; struct structure_type24753 t102483; struct structure_type24753 t102484; struct structure_type24753 t102485; struct structure_type24753 t102486; struct structure_type24753 t102487; struct structure_type24753 t102488; struct structure_type24753 t102489; struct structure_type24753 t102490; struct structure_type24753 t102491; struct structure_type24753 t102492; struct structure_type24753 t102493; struct structure_type24753 t102494; struct structure_type24753 t102495; struct structure_type24753 t102496; struct structure_type24753 t102497; struct structure_type24753 t102498; struct structure_type24753 t102499; struct structure_type24753 t102500; struct structure_type24753 t102501; struct structure_type24753 t102502; struct structure_type24753 t102503; struct structure_type24753 t102504; struct structure_type24753 t102505; struct structure_type24753 t102506; struct structure_type24753 t102507; struct structure_type24753 t102508; struct structure_type24753 t102509; struct structure_type24753 t102510; struct structure_type24753 t102511; struct structure_type24753 t102512; struct structure_type24753 t102513; struct structure_type24753 t102514; struct structure_type24753 t102515; struct structure_type24753 t102516; struct structure_type24753 t102517; struct structure_type24753 t102518; struct structure_type24753 t102519; struct structure_type24753 t102520; struct structure_type24753 t102521; struct structure_type24753 t102522; struct structure_type24753 t102523; struct structure_type24753 t102524; struct structure_type24753 t102525; struct structure_type24753 t102526; struct structure_type24753 t102527; struct structure_type24753 t102528; struct structure_type24753 t102529; struct structure_type24753 t102530; struct structure_type24753 t102531; struct structure_type24753 t102532; struct structure_type24753 t102533; struct structure_type24753 t102534; struct structure_type24753 t102535; struct structure_type24753 t102536; struct structure_type24753 t102537; struct structure_type24753 t102538; struct structure_type24753 t102539; struct structure_type24753 t102540; struct structure_type24753 t102541; struct structure_type24753 t102542; struct structure_type24753 t102543; struct structure_type24753 t102544; struct structure_type24753 t102545; struct structure_type24753 t102546; struct structure_type24753 t102547; struct structure_type24753 t102548; struct structure_type24753 t102549; struct structure_type24753 t102550; struct structure_type24753 t102551; struct structure_type24753 t102552; struct structure_type24753 t102553; struct structure_type24753 t102554; struct structure_type24753 t102555; struct structure_type24753 t102556; struct structure_type24753 t102557; struct structure_type24753 t102558; struct structure_type24753 t102559; struct structure_type24753 t102560; struct structure_type24753 t102561; struct structure_type24753 t102562; struct structure_type24753 t102563; struct structure_type24753 t102564; struct structure_type24753 t102565; struct structure_type24753 t102566; struct structure_type24753 t102567; struct structure_type24753 t102568; struct structure_type24753 t102569; struct structure_type24753 t102570; struct structure_type24753 t102571; struct structure_type24753 t102572; struct structure_type24753 t102573; struct structure_type24753 t102574; struct structure_type24753 t102575; struct structure_type24753 t102576; struct structure_type24753 t102577; struct structure_type24753 t102578; struct structure_type24753 t102579; struct structure_type24753 t102580; struct structure_type24753 t102581; struct structure_type24753 t102582; struct structure_type24753 t102583; struct structure_type24753 t102584; struct structure_type24753 t102585; struct structure_type24753 t102586; struct structure_type24753 t102587; struct structure_type24753 t102588; struct structure_type24753 t102589; struct structure_type24753 t102590; struct structure_type24753 t102591; struct structure_type24753 t102592; struct structure_type24753 t102593; struct structure_type24753 t102594; struct structure_type24753 t102595; struct structure_type24753 t102596; struct structure_type24753 t102597; struct structure_type24753 t102598; struct structure_type24753 t102599; struct structure_type24753 t102600; struct structure_type24753 t102601; struct structure_type24753 t102602; struct structure_type24753 t102603; struct structure_type24753 t102604; struct structure_type24753 t102605; struct structure_type24753 t102606; struct structure_type24753 t102607; struct structure_type24753 t102608; struct structure_type24753 t102609; struct structure_type24753 t102610; struct structure_type24753 t102611; struct structure_type24753 t102612; struct structure_type24753 t102613; struct structure_type24753 t102614; struct structure_type24753 t102615; struct structure_type24753 t102616; struct structure_type24753 t102617; struct structure_type24753 t102618; struct structure_type24753 t102619; struct structure_type24753 t102620; struct structure_type24753 t102621; struct structure_type24753 t102622; struct structure_type24753 t102623; struct structure_type24753 t102624; struct structure_type24753 t102625; struct structure_type24753 t102626; struct structure_type24753 t102627; struct structure_type24753 t102628; struct structure_type24753 t102629; struct structure_type24753 t102630; struct structure_type24753 t102631; struct structure_type24753 t102632; struct structure_type24753 t102633; struct structure_type24753 t102634; struct structure_type24753 t102635; struct structure_type24753 t102636; struct structure_type24753 t102637; struct structure_type24753 t102638; struct structure_type24753 t102639; struct structure_type24753 t102640; struct structure_type24753 t102641; struct structure_type24753 t102642; struct structure_type24753 t102643; struct structure_type24753 t102644; struct structure_type24753 t102645; struct structure_type24753 t102646; struct structure_type24753 t102647; struct structure_type24753 t102648; struct structure_type24753 t102649; struct structure_type24753 t102650; struct structure_type24753 t102651; struct structure_type24753 t102652; struct structure_type24753 t102653; struct structure_type24753 t102654; struct structure_type24753 t102655; struct structure_type24753 t102656; struct structure_type24753 t102657; struct structure_type24753 t102658; struct structure_type24753 t102659; struct structure_type24753 t102660; struct structure_type24753 t102661; struct structure_type24753 t102662; struct structure_type24753 t102663; struct structure_type24753 t102664; struct structure_type24753 t102665; struct structure_type24753 t102666; struct structure_type24753 t102667; struct structure_type24753 t102668; struct structure_type24753 t102669; struct structure_type24753 t102670; struct structure_type24753 t102671; struct structure_type24753 t102672; struct structure_type24753 t102673; struct structure_type24753 t102674; struct structure_type24753 t102675; struct structure_type24753 t102676; struct structure_type24753 t102677; struct structure_type24753 t102678; struct structure_type24753 t102679; struct structure_type24753 t102680; struct structure_type24753 t102681; struct structure_type24753 t102682; struct structure_type24753 t102683; struct structure_type24753 t102684; struct structure_type24753 t102685; struct structure_type24753 t102686; struct structure_type24753 t102687; struct structure_type24753 t102688; struct structure_type24753 t102689; struct structure_type24753 t102690; struct structure_type24753 t102691; struct structure_type24753 t102692; struct structure_type24753 t102693; struct structure_type24753 t102694; struct structure_type24753 t102695; struct structure_type24753 t102696; struct structure_type24753 t102697; struct structure_type24753 t102698; struct structure_type24753 t102699; struct structure_type24753 t102700; struct structure_type24753 t102701; struct structure_type24753 t102702; struct structure_type24753 t102703; struct structure_type24753 t102704; struct structure_type24753 t102705; struct structure_type24753 t102706; struct structure_type24753 t102707; struct structure_type24753 t102708; struct structure_type24753 t102709; struct structure_type24753 t102710; struct structure_type24753 t102711; struct structure_type24753 t102712; struct structure_type24753 t102713; struct structure_type24753 t102714; struct structure_type24753 t102715; struct structure_type24753 t102716; struct structure_type24753 t102717; struct structure_type24753 t102718; struct structure_type24753 t102719; struct structure_type24753 t102720; struct structure_type24753 t102721; struct structure_type24753 t102722; struct structure_type24753 t102723; struct structure_type24753 t102724; struct structure_type24753 t102725; struct structure_type24753 t102726; struct structure_type24753 t102727; struct structure_type24753 t102728; struct structure_type24753 t102729; struct structure_type24753 t102730; struct structure_type24753 t102731; struct structure_type24753 t102732; struct structure_type24753 t102733; struct structure_type24753 t102734; struct structure_type24753 t102735; struct structure_type24753 t102736; struct structure_type24753 t102737; struct structure_type24753 t102738; struct structure_type24753 t102739; struct structure_type24753 t102740; struct structure_type24753 t102741; struct structure_type24753 t102742; struct structure_type24753 t102743; struct structure_type24753 t102744; struct structure_type24753 t102745; struct structure_type24753 t102746; struct structure_type24753 t102747; struct structure_type24753 t102748; struct structure_type24753 t102749; struct structure_type24753 t102750; struct structure_type24753 t102751; struct structure_type24753 t102752; struct structure_type24753 t102753; struct structure_type24753 t102754; struct structure_type24753 t102755; struct structure_type24753 t102756; struct structure_type24753 t102757; struct structure_type24753 t102758; struct structure_type24753 t102759; struct structure_type24753 t102760; struct structure_type24753 t102761; struct structure_type24753 t102762; struct structure_type24753 t102763; struct structure_type24753 t102764; struct structure_type24753 t102765; struct structure_type24753 t102766; struct structure_type24753 t102767; struct structure_type24753 t102768; struct structure_type24753 t102769; struct structure_type24753 t102770; struct structure_type24753 t102771; struct structure_type24753 t102772; struct structure_type24753 t102773; struct structure_type24753 t102774; struct structure_type24753 t102775; struct structure_type24753 t102776; struct structure_type24753 t102777; struct structure_type24753 t102778; struct structure_type24753 t102779; struct structure_type24753 t102780; struct structure_type24753 t102781; struct structure_type24753 t102782; struct structure_type24753 t102783; struct structure_type24753 t102784; struct structure_type24753 t102785; struct structure_type24753 t102786; struct structure_type24753 t102787; struct structure_type24753 t102788; struct structure_type24753 t102789; struct structure_type24753 t102790; struct structure_type24753 t102791; struct structure_type24753 t102792; struct structure_type24753 t102793; struct structure_type24753 t102794; struct structure_type24753 t102795; struct structure_type24753 t102796; struct structure_type24753 t102797; struct structure_type24753 t102798; struct structure_type24753 t102799; struct structure_type24753 t102800; struct structure_type24753 t102801; struct structure_type24753 t102802; struct structure_type24753 t102803; struct structure_type24753 t102804; struct structure_type24753 t102805; struct structure_type24753 t102806; struct structure_type24753 t102807; struct structure_type24753 t102808; struct structure_type24753 t102809; struct structure_type24753 t102810; struct structure_type24753 t102811; struct structure_type24753 t102812; struct structure_type24753 t102813; struct structure_type24753 t102814; struct structure_type24753 t102815; struct {unsigned length; unsigned element[256];} t102929; struct {unsigned length; unsigned element[256];} t102931; struct {unsigned length; unsigned element[256];} t102933; struct {unsigned length; unsigned element[256];} t102935; struct {unsigned length; unsigned element[256];} t102937; struct {unsigned length; int element[256];} t102939; struct {unsigned length; int element[256];} t102941; void min_error(void) {stalin_panic("Argument to MIN is not a real number");} void foreign_call_error(void) {stalin_panic("Attempt to call a foreign procedure with arguments of the wrong type");} void make_vector_error(void) {stalin_panic("First argument to MAKE-VECTOR is not an exact integer");} void vector_set1_error(void) {stalin_panic("First argument to VECTOR-SET! is not a vector");} void exact_error(void) {stalin_panic("Argument to EXACT? is not a number");} void negative_error(void) {stalin_panic("Argument to NEGATIVE? is not a real number");} void vector_ref2_error(void) {stalin_panic("Second argument to VECTOR-REF is not an exact integer");} void vector_set2_error(void) {stalin_panic("Second argument to VECTOR-SET! is not an exact integer");} void string_error(void) {stalin_panic("Argument to STRING is not a character");} void max_error(void) {stalin_panic("Argument to MAX is not a real number");} void positive_error(void) {stalin_panic("Argument to POSITIVE? is not a real number");} void gt_error(void) {stalin_panic("Argument to > is not a real number");} void lt_error(void) {stalin_panic("Argument to < is not a real number");} void quotient2_error(void) {stalin_panic("Second argument to QUOTIENT is not an integer");} void quotient1_error(void) {stalin_panic("First argument to QUOTIENT is not an integer");} void remainder2_error(void) {stalin_panic("Second argument to REMAINDER is not an integer");} void remainder1_error(void) {stalin_panic("First argument to REMAINDER is not an integer");} void expt2_error(void) {stalin_panic("Second argument to EXPT is not a number");} void eql_error(void) {stalin_panic("Argument to = is not a number");} void symbol_string_error(void) {stalin_panic("Argument to SYMBOL->STRING is not a symbol");} void structure_set_error(void) {stalin_panic("First argument to STRUCTURE-SET! is not a structure of the correct type");} void times_error(void) {stalin_panic("Argument to * is not a number");} void divide_error(void) {stalin_panic("Argument to / is not a number");} void round_error(void) {stalin_panic("Argument to ROUND is not a real number");} void minus_error(void) {stalin_panic("Argument to - is not a number");} void zero_error(void) {stalin_panic("Argument to ZERO? is not a number or a pointer");} void string_to_uninterned_symbol_error(void) {stalin_panic("Argument to STRING->UNINTERNED-SYMBOL is not a string");} void plus_error(void) {stalin_panic("Argument to + is not a number");} void bitwise_and_error(void) {stalin_panic("Argument to BITWISE-AND is not an exact integer");} void bitwise_or_error(void) {stalin_panic("Argument to BITWISE-OR is not an exact integer");} void string_set3_error(void) {stalin_panic("Third argument to STRING-SET! is not a character");} void string_set4_error(void) {stalin_panic("Second argument to STRING-SET! is out of bounds");} void open_input_file2_error(void) {stalin_panic("OPEN-INPUT-FILE cannot open file");} void open_input_file1_error(void) {stalin_panic("Argument to OPEN-INPUT-FILE is not a string");} void close_input_port2_error(void) {stalin_panic("CLOSE-INPUT-PORT cannot close input port");} void open_output_file2_error(void) {stalin_panic("OPEN-OUTPUT-FILE cannot open file");} void call_error(void) {stalin_panic("Attempt to call a non-procedure or call a procedure with the wrong number of arguments");} void close_output_port2_error(void) {stalin_panic("CLOSE-OUTPUT-PORT cannot close output port");} void char_to_integer_error(void) {stalin_panic("Argument to CHAR->INTEGER is not a character");} void vector_set3_error(void) {stalin_panic("Second argument to VECTOR-SET! is out of bounds");} void integer_to_char2_error(void) {stalin_panic("Argument to INTEGER->CHAR is out of bounds");} void structure_ref_error(void) {stalin_panic("Argument to STRUCTURE-REF is not a structure of the correct type");} void vector_ref1_error(void) {stalin_panic("First argument to VECTOR-REF is not a vector");} void vector_length_error(void) {stalin_panic("Argument to VECTOR-LENGTH is not a vector");} void inexact_error(void) {stalin_panic("Argument to INEXACT? is not a number");} void vector_ref3_error(void) {stalin_panic("Second argument to VECTOR-REF is out of bounds");} void out_of_memory_error(void) {stalin_panic("Out of memory");} void string_length_error(void) {stalin_panic("Argument to STRING-LENGTH is not a string");} void string_ref3_error(void) {stalin_panic("Second argument to STRING-REF is out of bounds");} void string_ref1_error(void) {stalin_panic("First argument to STRING-REF is not a string");} void read_char1_error(void) {stalin_panic("Argument to READ-CHAR1 is not an input port");} void peek_char1_error(void) {stalin_panic("Argument to PEEK-CHAR1 is not an input port");} void write_char2_error(void) {stalin_panic("Second argument to WRITE-CHAR2 is not an output port");} /* WRITE-CHAR[28720] */ void f28720(char a34801, struct structure_type24753 *a34802) {struct structure_type24753 *t0; struct w49 t1; struct structure_type24753 *t2; char *t3; char t4; struct w49 t5; struct structure_type24753 *t6; char t7; FILE *t8; /* x265192 */ /* x265166 */ /* x265165 */ t0 = a34802; /* x265724 */ if (!(((unsigned)t0)==NULL_TYPE)) goto l1; /* x265172 */ /* x265171 */ /* x265170 */ /* x265168 */ t7 = a34801; /* x265169 */ t8 = a34448; /* x265167 */ putc(t7, t8); return; l1: /* x265191 */ /* x265177 */ /* x265176 */ /* x265175 */ t2 = a34802; /* x265722 */ t1 = t2->s1; /* x265723 */ if (!((t1.tag)==NULL_TYPE)) goto l3; /* x265185 */ /* x265184 */ /* x265183 */ /* x265179 */ t4 = a34801; /* x265182 */ /* x265181 */ t6 = a34802; /* x265721 */ t5 = t6->s0; /* x265178 */ if ((t5.tag)==OUTPUT_PORT_TYPE) {putc(t4, (t5.value.output_port_type)); return;} backtrace_internal("[inside WRITE-CHAR 28722]"); write_char2_error(); l3: /* x265190 */ /* x265189 */ /* x265188 */ /* x265187 */ t3 = "Attempt to call WRITE-CHAR with the wrong number of arguments"; /* x265720 */ stalin_panic(t3);} /* NEWLINE[28716] */ void f28716(struct structure_type24753 *a34800) {struct structure_type24753 *t9; struct w49 t10; struct structure_type24753 *t11; char *t12; char t13; struct w49 t14; struct structure_type24753 *t15; char t16; FILE *t17; /* x265161 */ /* x265135 */ /* x265134 */ t9 = a34800; /* x265729 */ if (!(((unsigned)t9)==NULL_TYPE)) goto l5; /* x265141 */ /* x265140 */ /* x265139 */ /* x265137 */ t16 = '\n'; /* x265138 */ t17 = a34448; /* x265136 */ putc(t16, t17); return; l5: /* x265160 */ /* x265146 */ /* x265145 */ /* x265144 */ t11 = a34800; /* x265727 */ t10 = t11->s1; /* x265728 */ if (!((t10.tag)==NULL_TYPE)) goto l7; /* x265154 */ /* x265153 */ /* x265152 */ /* x265148 */ t13 = '\n'; /* x265151 */ /* x265150 */ t15 = a34800; /* x265726 */ t14 = t15->s0; /* x265147 */ if ((t14.tag)==OUTPUT_PORT_TYPE) {putc(t13, (t14.value.output_port_type)); return;} backtrace_internal("[inside NEWLINE 28718]"); write_char2_error(); l7: /* x265159 */ /* x265158 */ /* x265157 */ /* x265156 */ t12 = "Attempt to call NEWLINE with the wrong number of arguments"; /* x265725 */ stalin_panic(t12);} /* DISPLAY[28712] */ void f28712(struct w49 a34798) {struct w49 t18; FILE *t19; /* x265130 */ /* x265104 */ /* x265103 */ /* x265734 */ /* x265110 */ /* x265109 */ /* x265108 */ /* x265106 */ t18 = a34798; /* x265107 */ t19 = a34448; /* x265105 */ f28351(t18, t19); return;} /* WRITE[28708] */ void f28708(struct w49 a34796, struct structure_type24753 *a34797) {struct structure_type24753 *t20; struct w49 t21; struct structure_type24753 *t22; char *t23; struct w49 t24; struct w49 t25; struct structure_type24753 *t26; struct w49 t27; FILE *t28; struct w49 t29; /* x265099 */ /* x265073 */ /* x265072 */ t20 = a34797; /* x265739 */ if (!(((unsigned)t20)==NULL_TYPE)) goto l10; /* x265079 */ /* x265078 */ /* x265077 */ /* x265075 */ t27 = a34796; /* x265076 */ t28 = a34448; /* x265074 */ t29.tag = OUTPUT_PORT_TYPE; t29.value.output_port_type = t28; f28291(t27, t29); return; l10: /* x265098 */ /* x265084 */ /* x265083 */ /* x265082 */ t22 = a34797; /* x265737 */ t21 = t22->s1; /* x265738 */ if (!((t21.tag)==NULL_TYPE)) goto l12; /* x265092 */ /* x265091 */ /* x265090 */ /* x265086 */ t24 = a34796; /* x265089 */ /* x265088 */ t26 = a34797; /* x265736 */ t25 = t26->s0; /* x265085 */ f28291(t24, t25); return; l12: /* x265097 */ /* x265096 */ /* x265095 */ /* x265094 */ t23 = "Attempt to call WRITE with the wrong number of arguments"; /* x265735 */ stalin_panic(t23);} /* PEEK-CHAR[28700] */ unsigned f28700(struct structure_type24753 *a34794) {struct structure_type24753 *t30; struct w49 t31; struct structure_type24753 *t32; char *t33; struct w49 t34; struct structure_type24753 *t35; /* x265039 */ /* x265015 */ /* x265014 */ t30 = a34794; /* x265749 */ /* x265038 */ /* x265025 */ /* x265024 */ /* x265023 */ t32 = a34794; /* x265747 */ t31 = t32->s1; /* x265748 */ if (!((t31.tag)==NULL_TYPE)) goto l15; /* x265032 */ /* x265031 */ /* x265030 */ /* x265029 */ /* x265028 */ t35 = a34794; /* x265746 */ t34 = t35->s0; /* x265026 */ if ((t34.tag)==INPUT_PORT_TYPE) {if ((c = ungetc(getc(t34.value.input_port_type), (t34.value.input_port_type)))==EOF) return EOF_OBJECT_TYPE; else return ((unsigned)((unsigned char)c))<<2;} backtrace_internal("[inside PEEK-CHAR 28702]"); peek_char1_error(); l15: /* x265037 */ /* x265036 */ /* x265035 */ /* x265034 */ t33 = "Attempt to call PEEK-CHAR with the wrong number of arguments"; /* x265745 */ stalin_panic(t33);} /* READ-CHAR[28696] */ unsigned f28696(struct structure_type24753 *a34793) {struct structure_type24753 *t36; struct w49 t37; struct structure_type24753 *t38; char *t39; struct w49 t40; struct structure_type24753 *t41; /* x265010 */ /* x264986 */ /* x264985 */ t36 = a34793; /* x265754 */ /* x265009 */ /* x264996 */ /* x264995 */ /* x264994 */ t38 = a34793; /* x265752 */ t37 = t38->s1; /* x265753 */ if (!((t37.tag)==NULL_TYPE)) goto l18; /* x265003 */ /* x265002 */ /* x265001 */ /* x265000 */ /* x264999 */ t41 = a34793; /* x265751 */ t40 = t41->s0; /* x264997 */ if ((t40.tag)==INPUT_PORT_TYPE) {if ((c = getc(t40.value.input_port_type))==EOF) return EOF_OBJECT_TYPE; else return ((unsigned)((unsigned char)c))<<2;} backtrace_internal("[inside READ-CHAR 28698]"); read_char1_error(); l18: /* x265008 */ /* x265007 */ /* x265006 */ /* x265005 */ t39 = "Attempt to call READ-CHAR with the wrong number of arguments"; /* x265750 */ stalin_panic(t39);} /* PARSE-NUMBER[28643] */ struct w29434 f28643(int a34758) {struct w29434 r28643; char a34759; /* C1 */ char a34770; /* C2 */ unsigned a34772; /* K */ char a34773; /* C3 */ unsigned a34775; /* K */ char a34776; /* C3 */ unsigned a34778; /* K */ int t42; int t43; char t44; char t45; struct w49 t46; char t47; char t48; struct w49 t49; char t50; char t51; char t52; struct w49 t53; char t54; char t55; char t56; struct w49 t57; char t58; char t59; char t60; struct w49 t61; char t62; char t63; char t64; struct w49 t65; char t66; char t67; char t68; struct w49 t69; char t70; char t71; char t72; struct w49 t73; char t74; char t75; char t76; struct w49 t77; char t78; char t79; char t80; struct w49 t81; char t82; char t83; char t84; struct w49 t85; char t86; char t87; char t88; struct w49 t89; char t90; int t91; int t92; char t93; char t94; struct w49 t95; char t96; char t97; struct w49 t98; char t99; char t100; char t101; struct w49 t102; char t103; int t104; int t105; char t106; char t107; struct w49 t108; unsigned t109; float t110; float t111; int t112; float t113; int t114; int t115; int t116; int t117; int t118; char t119; char t120; int t121; int t122; struct w49 t123; int t124; int t125; int t126; char t127; char t128; struct w49 t129; unsigned t130; float t131; float t132; int t133; float t134; int t135; int t136; int t137; int t138; char t139; char t140; int t141; int t142; struct w49 t143; int t144; unsigned t145; float t146; float t147; int t148; float t149; int t150; int t151; int t152; int t153; char t154; char t155; int t156; int t157; struct w49 t158; int t159; float t160; float t161; struct w29471 t162; int t163; int t164; int t165; int t166; int t167; int t168; int t169; int t170; char t171; char t172; int t173; int t174; struct w49 t175; int t176; h28643: /* x264902 */ /* x264596 */ /* x264594 */ t42 = a34658; /* x264595 */ t43 = a34657; /* x265792 */ if (!(t42==t43)) goto l20; /* x264597 */ r28643.tag = FIXNUM_TYPE; r28643.value.fixnum_type = a34758; return r28643; l20: /* x264901 */ /* x264900 */ /* x264898 */ t175 = a34656; /* x264899 */ t176 = a34658; /* x265756 */ if (!((t175.tag)==STRING_TYPE)) {backtrace_internal("PARSE-NUMBER[28643]"); string_ref1_error();} if ((t176<0)||(t176>=strlen(t175.value.string_type))) {backtrace_internal("PARSE-NUMBER[28643]"); string_ref3_error();} t44 = (t175.value.string_type)[t176]; /* x264896 */ a34759 = t44; /* x264895 */ /* x264894 */ /* x264893 */ /* x264891 */ t173 = a34658; /* x264892 */ t174 = 1; /* x265757 */ a34658 = t173+t174; /* x264889 */ /* x264888 */ /* x264600 */ /* x264599 */ t45 = a34759; /* x264598 */ t46.tag = ((unsigned)((unsigned char)t45))<<2; if (f27405(t46)==FALSE_TYPE) goto l22; /* x264618 */ /* x264617 */ /* x264616 */ /* x264615 */ /* x264606 */ /* x264604 */ t167 = 10; /* x264605 */ t168 = a34758; /* x265790 */ t165 = t167*t168; /* x264614 */ /* x264610 */ /* x264609 */ t171 = a34759; /* x265788 */ t169 = (int)((unsigned char)t171); /* x264613 */ /* x264612 */ t172 = '0'; /* x265787 */ t170 = (int)((unsigned char)t172); /* x265789 */ t166 = t169-t170; /* x265791 */ t164 = t165+t166; /* x264601 */ a34758 = t164; goto h28643; l22: /* x264887 */ /* x264622 */ /* x264621 */ t48 = '.'; /* x264620 */ t47 = a34759; /* x264619 */ t49.tag = ((unsigned)((unsigned char)t47))<<2; t50 = t48; if (f27342(t49, t50)==FALSE_TYPE) goto l24; /* x264630 */ /* x264629 */ /* x264628 */ /* x264626 */ /* x264625 */ t163 = a34758; /* x265786 */ t160 = (float)t163; /* x264627 */ t161 = 1.0e1; /* x264623 */ t162 = f28615(t160, t161); return *((struct w29434 *)(&t162)); l24: /* x264886 */ /* x264715 */ /* x264714 */ /* x264713 */ t52 = 'e'; /* x264712 */ t51 = a34759; /* x264711 */ t53.tag = ((unsigned)((unsigned char)t51))<<2; t54 = t52; if (!(f27342(t53, t54)==FALSE_TYPE)) goto l25; /* x264708 */ /* x264707 */ /* x264706 */ t56 = 'E'; /* x264705 */ t55 = a34759; /* x264704 */ t57.tag = ((unsigned)((unsigned char)t55))<<2; t58 = t56; if (!(f27342(t57, t58)==FALSE_TYPE)) goto l25; /* x264701 */ /* x264700 */ /* x264699 */ t60 = 's'; /* x264698 */ t59 = a34759; /* x264697 */ t61.tag = ((unsigned)((unsigned char)t59))<<2; t62 = t60; if (!(f27342(t61, t62)==FALSE_TYPE)) goto l25; /* x264694 */ /* x264693 */ /* x264692 */ t64 = 'S'; /* x264691 */ t63 = a34759; /* x264690 */ t65.tag = ((unsigned)((unsigned char)t63))<<2; t66 = t64; if (!(f27342(t65, t66)==FALSE_TYPE)) goto l25; /* x264687 */ /* x264686 */ /* x264685 */ t68 = 'f'; /* x264684 */ t67 = a34759; /* x264683 */ t69.tag = ((unsigned)((unsigned char)t67))<<2; t70 = t68; if (!(f27342(t69, t70)==FALSE_TYPE)) goto l25; /* x264680 */ /* x264679 */ /* x264678 */ t72 = 'F'; /* x264677 */ t71 = a34759; /* x264676 */ t73.tag = ((unsigned)((unsigned char)t71))<<2; t74 = t72; if (!(f27342(t73, t74)==FALSE_TYPE)) goto l25; /* x264673 */ /* x264672 */ /* x264671 */ t76 = 'd'; /* x264670 */ t75 = a34759; /* x264669 */ t77.tag = ((unsigned)((unsigned char)t75))<<2; t78 = t76; if (!(f27342(t77, t78)==FALSE_TYPE)) goto l25; /* x264666 */ /* x264665 */ /* x264664 */ t80 = 'D'; /* x264663 */ t79 = a34759; /* x264662 */ t81.tag = ((unsigned)((unsigned char)t79))<<2; t82 = t80; if (!(f27342(t81, t82)==FALSE_TYPE)) goto l25; /* x264659 */ /* x264658 */ /* x264657 */ t84 = 'l'; /* x264656 */ t83 = a34759; /* x264655 */ t85.tag = ((unsigned)((unsigned char)t83))<<2; t86 = t84; if (!(f27342(t85, t86)==FALSE_TYPE)) goto l25; /* x264652 */ /* x264651 */ t88 = 'L'; /* x264650 */ t87 = a34759; /* x264649 */ t89.tag = ((unsigned)((unsigned char)t87))<<2; t90 = t88; if (f27342(t89, t90)==FALSE_TYPE) goto l26; l25: /* x264882 */ /* x264881 */ /* x264880 */ /* x264719 */ /* x264717 */ t91 = a34658; /* x264718 */ t92 = a34657; /* x265785 */ if (!(t91==t92)) goto l37; /* x264720 */ r28643.tag = FALSE_TYPE; return r28643; l37: /* x264879 */ /* x264878 */ /* x264876 */ t158 = a34656; /* x264877 */ t159 = a34658; /* x265758 */ if (!((t158.tag)==STRING_TYPE)) {backtrace_internal("[inside PARSE-NUMBER 28657]"); string_ref1_error();} if ((t159<0)||(t159>=strlen(t158.value.string_type))) {backtrace_internal("[inside PARSE-NUMBER 28657]"); string_ref3_error();} t93 = (t158.value.string_type)[t159]; /* x264874 */ a34770 = t93; /* x264873 */ /* x264872 */ /* x264871 */ /* x264869 */ t156 = a34658; /* x264870 */ t157 = 1; /* x265759 */ a34658 = t156+t157; /* x264867 */ /* x264866 */ /* x264723 */ /* x264722 */ t94 = a34770; /* x264721 */ t95.tag = ((unsigned)((unsigned char)t94))<<2; if (f27405(t95)==FALSE_TYPE) goto l39; /* x264750 */ /* x264749 */ /* x264748 */ /* x264747 */ /* x264746 */ /* x264742 */ /* x264741 */ t154 = a34770; /* x265780 */ t152 = (int)((unsigned char)t154); /* x264745 */ /* x264744 */ t155 = '0'; /* x265779 */ t153 = (int)((unsigned char)t155); /* x265781 */ t151 = t152-t153; /* x264738 */ t145 = f28603(t151); /* x264737 */ a34772 = t145; /* x264736 */ /* x264724 */ if (a34772==FALSE_TYPE) goto l57; /* x264733 */ /* x264728 */ /* x264727 */ t148 = a34758; /* x265783 */ t146 = (float)t148; /* x264732 */ /* x264730 */ t149 = 1.0e1; /* x264731 */ t150 = (int)(((int)a34772)>>1); /* x265782 */ t147 = pow(t149, t150); /* x265784 */ r28643.tag = FLONUM_TYPE; r28643.value.flonum_type = t146*t147; return r28643; l57: /* x264735 */ /* x264734 */ return r28643; l39: /* x264865 */ /* x264754 */ /* x264753 */ t97 = '+'; /* x264752 */ t96 = a34770; /* x264751 */ t98.tag = ((unsigned)((unsigned char)t96))<<2; t99 = t97; if (f27342(t98, t99)==FALSE_TYPE) goto l41; /* x264804 */ /* x264803 */ /* x264802 */ /* x264758 */ /* x264756 */ t125 = a34658; /* x264757 */ t126 = a34657; /* x265778 */ if (!(t125==t126)) goto l51; /* x264759 */ r28643.tag = FALSE_TYPE; return r28643; l51: /* x264801 */ /* x264800 */ /* x264798 */ t143 = a34656; /* x264799 */ t144 = a34658; /* x265770 */ if (!((t143.tag)==STRING_TYPE)) {backtrace_internal("[inside PARSE-NUMBER 28663]"); string_ref1_error();} if ((t144<0)||(t144>=strlen(t143.value.string_type))) {backtrace_internal("[inside PARSE-NUMBER 28663]"); string_ref3_error();} t127 = (t143.value.string_type)[t144]; /* x264796 */ a34773 = t127; /* x264795 */ /* x264794 */ /* x264793 */ /* x264791 */ t141 = a34658; /* x264792 */ t142 = 1; /* x265771 */ a34658 = t141+t142; /* x264789 */ /* x264788 */ /* x264762 */ /* x264761 */ t128 = a34773; /* x264760 */ t129.tag = ((unsigned)((unsigned char)t128))<<2; if (f27405(t129)==FALSE_TYPE) goto l53; /* x264786 */ /* x264785 */ /* x264784 */ /* x264780 */ /* x264779 */ t139 = a34773; /* x265773 */ t137 = (int)((unsigned char)t139); /* x264783 */ /* x264782 */ t140 = '0'; /* x265772 */ t138 = (int)((unsigned char)t140); /* x265774 */ t136 = t137-t138; /* x264776 */ t130 = f28603(t136); /* x264775 */ a34775 = t130; /* x264774 */ /* x264763 */ if (a34775==FALSE_TYPE) goto l55; /* x264772 */ /* x264767 */ /* x264766 */ t133 = a34758; /* x265776 */ t131 = (float)t133; /* x264771 */ /* x264769 */ t134 = 1.0e1; /* x264770 */ t135 = (int)(((int)a34775)>>1); /* x265775 */ t132 = pow(t134, t135); /* x265777 */ r28643.tag = FLONUM_TYPE; r28643.value.flonum_type = t131*t132; return r28643; l55: /* x264773 */ r28643.tag = FALSE_TYPE; return r28643; l53: /* x264787 */ r28643.tag = FALSE_TYPE; return r28643; l41: /* x264864 */ /* x264808 */ /* x264807 */ t101 = '-'; /* x264806 */ t100 = a34770; /* x264805 */ t102.tag = ((unsigned)((unsigned char)t100))<<2; t103 = t101; if (f27342(t102, t103)==FALSE_TYPE) goto l43; /* x264860 */ /* x264859 */ /* x264858 */ /* x264812 */ /* x264810 */ t104 = a34658; /* x264811 */ t105 = a34657; /* x265769 */ if (!(t104==t105)) goto l45; /* x264813 */ r28643.tag = FALSE_TYPE; return r28643; l45: /* x264857 */ /* x264856 */ /* x264854 */ t123 = a34656; /* x264855 */ t124 = a34658; /* x265760 */ if (!((t123.tag)==STRING_TYPE)) {backtrace_internal("[inside PARSE-NUMBER 28667]"); string_ref1_error();} if ((t124<0)||(t124>=strlen(t123.value.string_type))) {backtrace_internal("[inside PARSE-NUMBER 28667]"); string_ref3_error();} t106 = (t123.value.string_type)[t124]; /* x264852 */ a34776 = t106; /* x264851 */ /* x264850 */ /* x264849 */ /* x264847 */ t121 = a34658; /* x264848 */ t122 = 1; /* x265761 */ a34658 = t121+t122; /* x264845 */ /* x264844 */ /* x264816 */ /* x264815 */ t107 = a34776; /* x264814 */ t108.tag = ((unsigned)((unsigned char)t107))<<2; if (f27405(t108)==FALSE_TYPE) goto l47; /* x264842 */ /* x264841 */ /* x264840 */ /* x264836 */ /* x264835 */ t119 = a34776; /* x265763 */ t117 = (int)((unsigned char)t119); /* x264839 */ /* x264838 */ t120 = '0'; /* x265762 */ t118 = (int)((unsigned char)t120); /* x265764 */ t116 = t117-t118; /* x264832 */ t109 = f28603(t116); /* x264831 */ a34778 = t109; /* x264830 */ /* x264817 */ if (a34778==FALSE_TYPE) goto l49; /* x264828 */ /* x264821 */ /* x264820 */ t112 = a34758; /* x265767 */ t110 = (float)t112; /* x264827 */ /* x264823 */ t113 = 1.0e1; /* x264826 */ /* x264825 */ t115 = (int)(((int)a34778)>>1); /* x265765 */ t114 = -t115; /* x265766 */ t111 = pow(t113, t114); /* x265768 */ r28643.tag = FLONUM_TYPE; r28643.value.flonum_type = t110*t111; return r28643; l49: /* x264829 */ r28643.tag = FALSE_TYPE; return r28643; l47: /* x264843 */ r28643.tag = FALSE_TYPE; return r28643; l43: /* x264863 */ /* x264862 */ /* x264861 */ r28643.tag = FALSE_TYPE; return r28643; l26: /* x264885 */ /* x264884 */ /* x264883 */ r28643.tag = FALSE_TYPE; return r28643;} /* PARSE-INEXACT-NUMBER[28615] */ struct w29471 f28615(float a34736, float a34737) {struct w29471 r28615; char a34738; /* C1 */ char a34749; /* C2 */ unsigned a34751; /* K */ char a34752; /* C3 */ unsigned a34754; /* K */ char a34755; /* C3 */ unsigned a34757; /* K */ int t177; int t178; char t179; char t180; struct w49 t181; char t182; char t183; struct w49 t184; char t185; char t186; char t187; struct w49 t188; char t189; char t190; char t191; struct w49 t192; char t193; char t194; char t195; struct w49 t196; char t197; char t198; char t199; struct w49 t200; char t201; char t202; char t203; struct w49 t204; char t205; char t206; char t207; struct w49 t208; char t209; char t210; char t211; struct w49 t212; char t213; char t214; char t215; struct w49 t216; char t217; char t218; char t219; struct w49 t220; char t221; int t222; int t223; char t224; char t225; struct w49 t226; char t227; char t228; struct w49 t229; char t230; char t231; char t232; struct w49 t233; char t234; int t235; int t236; char t237; char t238; struct w49 t239; unsigned t240; float t241; float t242; float t243; int t244; int t245; int t246; int t247; int t248; char t249; char t250; int t251; int t252; struct w49 t253; int t254; int t255; int t256; char t257; char t258; struct w49 t259; unsigned t260; float t261; float t262; float t263; int t264; int t265; int t266; int t267; char t268; char t269; int t270; int t271; struct w49 t272; int t273; unsigned t274; float t275; float t276; float t277; int t278; int t279; int t280; int t281; char t282; char t283; int t284; int t285; struct w49 t286; int t287; float t288; float t289; float t290; float t291; int t292; float t293; int t294; int t295; char t296; char t297; float t298; float t299; int t300; int t301; struct w49 t302; int t303; h28615: /* x264590 */ /* x264300 */ /* x264298 */ t177 = a34658; /* x264299 */ t178 = a34657; /* x265826 */ if (!(t177==t178)) goto l59; /* x264301 */ r28615.tag = FLONUM_TYPE; r28615.value = a34736; return r28615; l59: /* x264589 */ /* x264588 */ /* x264586 */ t302 = a34656; /* x264587 */ t303 = a34658; /* x265793 */ if (!((t302.tag)==STRING_TYPE)) {backtrace_internal("PARSE-INEXACT-NUMBER[28615]"); string_ref1_error();} if ((t303<0)||(t303>=strlen(t302.value.string_type))) {backtrace_internal("PARSE-INEXACT-NUMBER[28615]"); string_ref3_error();} t179 = (t302.value.string_type)[t303]; /* x264584 */ a34738 = t179; /* x264583 */ /* x264582 */ /* x264581 */ /* x264579 */ t300 = a34658; /* x264580 */ t301 = 1; /* x265794 */ a34658 = t300+t301; /* x264577 */ /* x264576 */ /* x264304 */ /* x264303 */ t180 = a34738; /* x264302 */ t181.tag = ((unsigned)((unsigned char)t180))<<2; if (f27405(t181)==FALSE_TYPE) goto l61; /* x264326 */ /* x264325 */ /* x264324 */ /* x264319 */ /* x264307 */ t290 = a34736; /* x264318 */ /* x264316 */ /* x264312 */ /* x264311 */ t296 = a34738; /* x265822 */ t294 = (int)((unsigned char)t296); /* x264315 */ /* x264314 */ t297 = '0'; /* x265821 */ t295 = (int)((unsigned char)t297); /* x265823 */ t292 = t294-t295; /* x264317 */ t293 = a34737; /* x265824 */ t291 = t292/t293; /* x265825 */ t288 = t290+t291; /* x264323 */ /* x264321 */ t298 = a34737; /* x264322 */ t299 = 1.0e1; /* x265820 */ t289 = t298*t299; /* x264305 */ a34736 = t288; a34737 = t289; goto h28615; l61: /* x264575 */ /* x264411 */ /* x264410 */ /* x264409 */ t183 = 'e'; /* x264408 */ t182 = a34738; /* x264407 */ t184.tag = ((unsigned)((unsigned char)t182))<<2; t185 = t183; if (!(f27342(t184, t185)==FALSE_TYPE)) goto l62; /* x264404 */ /* x264403 */ /* x264402 */ t187 = 'E'; /* x264401 */ t186 = a34738; /* x264400 */ t188.tag = ((unsigned)((unsigned char)t186))<<2; t189 = t187; if (!(f27342(t188, t189)==FALSE_TYPE)) goto l62; /* x264397 */ /* x264396 */ /* x264395 */ t191 = 's'; /* x264394 */ t190 = a34738; /* x264393 */ t192.tag = ((unsigned)((unsigned char)t190))<<2; t193 = t191; if (!(f27342(t192, t193)==FALSE_TYPE)) goto l62; /* x264390 */ /* x264389 */ /* x264388 */ t195 = 'S'; /* x264387 */ t194 = a34738; /* x264386 */ t196.tag = ((unsigned)((unsigned char)t194))<<2; t197 = t195; if (!(f27342(t196, t197)==FALSE_TYPE)) goto l62; /* x264383 */ /* x264382 */ /* x264381 */ t199 = 'f'; /* x264380 */ t198 = a34738; /* x264379 */ t200.tag = ((unsigned)((unsigned char)t198))<<2; t201 = t199; if (!(f27342(t200, t201)==FALSE_TYPE)) goto l62; /* x264376 */ /* x264375 */ /* x264374 */ t203 = 'F'; /* x264373 */ t202 = a34738; /* x264372 */ t204.tag = ((unsigned)((unsigned char)t202))<<2; t205 = t203; if (!(f27342(t204, t205)==FALSE_TYPE)) goto l62; /* x264369 */ /* x264368 */ /* x264367 */ t207 = 'd'; /* x264366 */ t206 = a34738; /* x264365 */ t208.tag = ((unsigned)((unsigned char)t206))<<2; t209 = t207; if (!(f27342(t208, t209)==FALSE_TYPE)) goto l62; /* x264362 */ /* x264361 */ /* x264360 */ t211 = 'D'; /* x264359 */ t210 = a34738; /* x264358 */ t212.tag = ((unsigned)((unsigned char)t210))<<2; t213 = t211; if (!(f27342(t212, t213)==FALSE_TYPE)) goto l62; /* x264355 */ /* x264354 */ /* x264353 */ t215 = 'l'; /* x264352 */ t214 = a34738; /* x264351 */ t216.tag = ((unsigned)((unsigned char)t214))<<2; t217 = t215; if (!(f27342(t216, t217)==FALSE_TYPE)) goto l62; /* x264348 */ /* x264347 */ t219 = 'L'; /* x264346 */ t218 = a34738; /* x264345 */ t220.tag = ((unsigned)((unsigned char)t218))<<2; t221 = t219; if (f27342(t220, t221)==FALSE_TYPE) goto l63; l62: /* x264571 */ /* x264570 */ /* x264569 */ /* x264415 */ /* x264413 */ t222 = a34658; /* x264414 */ t223 = a34657; /* x265819 */ if (!(t222==t223)) goto l74; /* x264416 */ r28615.tag = FALSE_TYPE; return r28615; l74: /* x264568 */ /* x264567 */ /* x264565 */ t286 = a34656; /* x264566 */ t287 = a34658; /* x265795 */ if (!((t286.tag)==STRING_TYPE)) {backtrace_internal("[inside PARSE-INEXACT-NUMBER 28628]"); string_ref1_error();} if ((t287<0)||(t287>=strlen(t286.value.string_type))) {backtrace_internal("[inside PARSE-INEXACT-NUMBER 28628]"); string_ref3_error();} t224 = (t286.value.string_type)[t287]; /* x264563 */ a34749 = t224; /* x264562 */ /* x264561 */ /* x264560 */ /* x264558 */ t284 = a34658; /* x264559 */ t285 = 1; /* x265796 */ a34658 = t284+t285; /* x264556 */ /* x264555 */ /* x264419 */ /* x264418 */ t225 = a34749; /* x264417 */ t226.tag = ((unsigned)((unsigned char)t225))<<2; if (f27405(t226)==FALSE_TYPE) goto l76; /* x264443 */ /* x264442 */ /* x264441 */ /* x264440 */ /* x264439 */ /* x264435 */ /* x264434 */ t282 = a34749; /* x265815 */ t280 = (int)((unsigned char)t282); /* x264438 */ /* x264437 */ t283 = '0'; /* x265814 */ t281 = (int)((unsigned char)t283); /* x265816 */ t279 = t280-t281; /* x264431 */ t274 = f28603(t279); /* x264430 */ a34751 = t274; /* x264429 */ /* x264420 */ if (a34751==FALSE_TYPE) goto l94; /* x264427 */ /* x264422 */ t275 = a34736; /* x264426 */ /* x264424 */ t277 = 1.0e1; /* x264425 */ t278 = (int)(((int)a34751)>>1); /* x265817 */ t276 = pow(t277, t278); /* x265818 */ r28615.tag = FLONUM_TYPE; r28615.value = t275*t276; return r28615; l94: /* x264428 */ r28615.tag = FALSE_TYPE; return r28615; l76: /* x264554 */ /* x264447 */ /* x264446 */ t228 = '+'; /* x264445 */ t227 = a34749; /* x264444 */ t229.tag = ((unsigned)((unsigned char)t227))<<2; t230 = t228; if (f27342(t229, t230)==FALSE_TYPE) goto l78; /* x264495 */ /* x264494 */ /* x264493 */ /* x264451 */ /* x264449 */ t255 = a34658; /* x264450 */ t256 = a34657; /* x265813 */ if (!(t255==t256)) goto l88; /* x264452 */ r28615.tag = FALSE_TYPE; return r28615; l88: /* x264492 */ /* x264491 */ /* x264489 */ t272 = a34656; /* x264490 */ t273 = a34658; /* x265806 */ if (!((t272.tag)==STRING_TYPE)) {backtrace_internal("[inside PARSE-INEXACT-NUMBER 28633]"); string_ref1_error();} if ((t273<0)||(t273>=strlen(t272.value.string_type))) {backtrace_internal("[inside PARSE-INEXACT-NUMBER 28633]"); string_ref3_error();} t257 = (t272.value.string_type)[t273]; /* x264487 */ a34752 = t257; /* x264486 */ /* x264485 */ /* x264484 */ /* x264482 */ t270 = a34658; /* x264483 */ t271 = 1; /* x265807 */ a34658 = t270+t271; /* x264480 */ /* x264479 */ /* x264455 */ /* x264454 */ t258 = a34752; /* x264453 */ t259.tag = ((unsigned)((unsigned char)t258))<<2; if (f27405(t259)==FALSE_TYPE) goto l90; /* x264477 */ /* x264476 */ /* x264475 */ /* x264471 */ /* x264470 */ t268 = a34752; /* x265809 */ t266 = (int)((unsigned char)t268); /* x264474 */ /* x264473 */ t269 = '0'; /* x265808 */ t267 = (int)((unsigned char)t269); /* x265810 */ t265 = t266-t267; /* x264467 */ t260 = f28603(t265); /* x264466 */ a34754 = t260; /* x264465 */ /* x264456 */ if (a34754==FALSE_TYPE) goto l92; /* x264463 */ /* x264458 */ t261 = a34736; /* x264462 */ /* x264460 */ t263 = 1.0e1; /* x264461 */ t264 = (int)(((int)a34754)>>1); /* x265811 */ t262 = pow(t263, t264); /* x265812 */ r28615.tag = FLONUM_TYPE; r28615.value = t261*t262; return r28615; l92: /* x264464 */ r28615.tag = FALSE_TYPE; return r28615; l90: /* x264478 */ r28615.tag = FALSE_TYPE; return r28615; l78: /* x264553 */ /* x264499 */ /* x264498 */ t232 = '-'; /* x264497 */ t231 = a34749; /* x264496 */ t233.tag = ((unsigned)((unsigned char)t231))<<2; t234 = t232; if (f27342(t233, t234)==FALSE_TYPE) goto l80; /* x264549 */ /* x264548 */ /* x264547 */ /* x264503 */ /* x264501 */ t235 = a34658; /* x264502 */ t236 = a34657; /* x265805 */ if (!(t235==t236)) goto l82; /* x264504 */ r28615.tag = FALSE_TYPE; return r28615; l82: /* x264546 */ /* x264545 */ /* x264543 */ t253 = a34656; /* x264544 */ t254 = a34658; /* x265797 */ if (!((t253.tag)==STRING_TYPE)) {backtrace_internal("[inside PARSE-INEXACT-NUMBER 28637]"); string_ref1_error();} if ((t254<0)||(t254>=strlen(t253.value.string_type))) {backtrace_internal("[inside PARSE-INEXACT-NUMBER 28637]"); string_ref3_error();} t237 = (t253.value.string_type)[t254]; /* x264541 */ a34755 = t237; /* x264540 */ /* x264539 */ /* x264538 */ /* x264536 */ t251 = a34658; /* x264537 */ t252 = 1; /* x265798 */ a34658 = t251+t252; /* x264534 */ /* x264533 */ /* x264507 */ /* x264506 */ t238 = a34755; /* x264505 */ t239.tag = ((unsigned)((unsigned char)t238))<<2; if (f27405(t239)==FALSE_TYPE) goto l84; /* x264531 */ /* x264530 */ /* x264529 */ /* x264525 */ /* x264524 */ t249 = a34755; /* x265800 */ t247 = (int)((unsigned char)t249); /* x264528 */ /* x264527 */ t250 = '0'; /* x265799 */ t248 = (int)((unsigned char)t250); /* x265801 */ t246 = t247-t248; /* x264521 */ t240 = f28603(t246); /* x264520 */ a34757 = t240; /* x264519 */ /* x264508 */ if (a34757==FALSE_TYPE) goto l86; /* x264517 */ /* x264510 */ t241 = a34736; /* x264516 */ /* x264512 */ t243 = 1.0e1; /* x264515 */ /* x264514 */ t245 = (int)(((int)a34757)>>1); /* x265802 */ t244 = -t245; /* x265803 */ t242 = pow(t243, t244); /* x265804 */ r28615.tag = FLONUM_TYPE; r28615.value = t241*t242; return r28615; l86: /* x264518 */ r28615.tag = FALSE_TYPE; return r28615; l84: /* x264532 */ r28615.tag = FALSE_TYPE; return r28615; l80: /* x264552 */ /* x264551 */ /* x264550 */ r28615.tag = FALSE_TYPE; return r28615; l63: /* x264574 */ /* x264573 */ /* x264572 */ r28615.tag = FALSE_TYPE; return r28615;} /* PARSE-EXACT-HEXADECIMAL-INTEGER[28608] */ unsigned f28608(int a34733) {char a34734; /* C */ int t304; int t305; char t306; char t307; struct w49 t308; char t309; char t310; unsigned t311; char t312; char t313; char t314; unsigned t315; char t316; char t317; char t318; unsigned t319; char t320; char t321; char t322; unsigned t323; char t324; int t325; int t326; int t327; int t328; int t329; int t330; int t331; int t332; char t333; char t334; int t335; int t336; int t337; int t338; int t339; int t340; int t341; int t342; char t343; char t344; int t345; int t346; int t347; int t348; int t349; int t350; int t351; char t352; char t353; int t354; int t355; struct w49 t356; int t357; h28608: /* x264294 */ /* x264194 */ /* x264192 */ t304 = a34658; /* x264193 */ t305 = a34657; /* x265844 */ if (!(t304==t305)) goto l96; /* x264195 */ return (((unsigned)a34733)<<1)+1; l96: /* x264293 */ /* x264292 */ /* x264290 */ t356 = a34656; /* x264291 */ t357 = a34658; /* x265827 */ if (!((t356.tag)==STRING_TYPE)) {backtrace_internal("PARSE-EXACT-HEXADECIMAL-INTEGER[28608]"); string_ref1_error();} if ((t357<0)||(t357>=strlen(t356.value.string_type))) {backtrace_internal("PARSE-EXACT-HEXADECIMAL-INTEGER[28608]"); string_ref3_error();} t306 = (t356.value.string_type)[t357]; /* x264288 */ a34734 = t306; /* x264287 */ /* x264286 */ /* x264285 */ /* x264283 */ t354 = a34658; /* x264284 */ t355 = 1; /* x265828 */ a34658 = t354+t355; /* x264281 */ /* x264280 */ /* x264198 */ /* x264197 */ t307 = a34734; /* x264196 */ t308.tag = ((unsigned)((unsigned char)t307))<<2; if (f27405(t308)==FALSE_TYPE) goto l98; /* x264216 */ /* x264215 */ /* x264214 */ /* x264213 */ /* x264204 */ /* x264202 */ t348 = 16; /* x264203 */ t349 = a34733; /* x265842 */ t346 = t348*t349; /* x264212 */ /* x264208 */ /* x264207 */ t352 = a34734; /* x265840 */ t350 = (int)((unsigned char)t352); /* x264211 */ /* x264210 */ t353 = '0'; /* x265839 */ t351 = (int)((unsigned char)t353); /* x265841 */ t347 = t350-t351; /* x265843 */ t345 = t346+t347; /* x264199 */ a34733 = t345; goto h28608; l98: /* x264279 */ /* x264226 */ /* x264220 */ /* x264219 */ t310 = 'a'; /* x264218 */ t309 = a34734; /* x264217 */ t311 = ((unsigned)((unsigned char)t309))<<2; t312 = t310; if (f27366(t311, t312)==FALSE_TYPE) goto l100; /* x264224 */ /* x264223 */ t314 = 'f'; /* x264222 */ t313 = a34734; /* x264221 */ t315 = ((unsigned)((unsigned char)t313))<<2; t316 = t314; if (f27360(t315, t316)==FALSE_TYPE) goto l100; /* x264245 */ /* x264244 */ /* x264243 */ /* x264242 */ /* x264232 */ /* x264230 */ t339 = 16; /* x264231 */ t340 = a34733; /* x265837 */ t336 = t339*t340; /* x264240 */ /* x264236 */ /* x264235 */ t343 = a34734; /* x265835 */ t341 = (int)((unsigned char)t343); /* x264239 */ /* x264238 */ t344 = 'a'; /* x265834 */ t342 = (int)((unsigned char)t344); /* x265836 */ t337 = t341-t342; /* x264241 */ t338 = 10; /* x265838 */ t335 = (t336+t337)+t338; /* x264227 */ a34733 = t335; goto h28608; l100: /* x264278 */ /* x264255 */ /* x264249 */ /* x264248 */ t318 = 'A'; /* x264247 */ t317 = a34734; /* x264246 */ t319 = ((unsigned)((unsigned char)t317))<<2; t320 = t318; if (f27366(t319, t320)==FALSE_TYPE) goto l103; /* x264253 */ /* x264252 */ t322 = 'F'; /* x264251 */ t321 = a34734; /* x264250 */ t323 = ((unsigned)((unsigned char)t321))<<2; t324 = t322; if (f27360(t323, t324)==FALSE_TYPE) goto l103; /* x264274 */ /* x264273 */ /* x264272 */ /* x264271 */ /* x264261 */ /* x264259 */ t329 = 16; /* x264260 */ t330 = a34733; /* x265832 */ t326 = t329*t330; /* x264269 */ /* x264265 */ /* x264264 */ t333 = a34734; /* x265830 */ t331 = (int)((unsigned char)t333); /* x264268 */ /* x264267 */ t334 = 'A'; /* x265829 */ t332 = (int)((unsigned char)t334); /* x265831 */ t327 = t331-t332; /* x264270 */ t328 = 10; /* x265833 */ t325 = (t326+t327)+t328; /* x264256 */ a34733 = t325; goto h28608; l103: /* x264277 */ /* x264276 */ /* x264275 */ return (unsigned)FALSE_TYPE;} /* PARSE-EXACT-DECIMAL-INTEGER[28603] */ unsigned f28603(int a34730) {char a34731; /* C */ int t358; int t359; char t360; char t361; struct w49 t362; int t363; int t364; int t365; int t366; int t367; int t368; int t369; char t370; char t371; int t372; int t373; struct w49 t374; int t375; h28603: /* x264188 */ /* x264148 */ /* x264146 */ t358 = a34658; /* x264147 */ t359 = a34657; /* x265852 */ if (!(t358==t359)) goto l106; /* x264149 */ return (((unsigned)a34730)<<1)+1; l106: /* x264187 */ /* x264186 */ /* x264184 */ t374 = a34656; /* x264185 */ t375 = a34658; /* x265845 */ if (!((t374.tag)==STRING_TYPE)) {backtrace_internal("PARSE-EXACT-DECIMAL-INTEGER[28603]"); string_ref1_error();} if ((t375<0)||(t375>=strlen(t374.value.string_type))) {backtrace_internal("PARSE-EXACT-DECIMAL-INTEGER[28603]"); string_ref3_error();} t360 = (t374.value.string_type)[t375]; /* x264182 */ a34731 = t360; /* x264181 */ /* x264180 */ /* x264179 */ /* x264177 */ t372 = a34658; /* x264178 */ t373 = 1; /* x265846 */ a34658 = t372+t373; /* x264175 */ /* x264174 */ /* x264152 */ /* x264151 */ t361 = a34731; /* x264150 */ t362.tag = ((unsigned)((unsigned char)t361))<<2; if (f27405(t362)==FALSE_TYPE) goto l108; /* x264170 */ /* x264169 */ /* x264168 */ /* x264167 */ /* x264158 */ /* x264156 */ t366 = 10; /* x264157 */ t367 = a34730; /* x265850 */ t364 = t366*t367; /* x264166 */ /* x264162 */ /* x264161 */ t370 = a34731; /* x265848 */ t368 = (int)((unsigned char)t370); /* x264165 */ /* x264164 */ t371 = '0'; /* x265847 */ t369 = (int)((unsigned char)t371); /* x265849 */ t365 = t368-t369; /* x265851 */ t363 = t364+t365; /* x264153 */ a34730 = t363; goto h28603; l108: /* x264173 */ /* x264172 */ /* x264171 */ return (unsigned)FALSE_TYPE;} /* PARSE-EXACT-OCTAL-INTEGER[28598] */ unsigned f28598(int a34727) {char a34728; /* C */ int t376; int t377; char t378; char t379; char t380; unsigned t381; char t382; char t383; char t384; unsigned t385; char t386; int t387; int t388; int t389; int t390; int t391; int t392; int t393; char t394; char t395; int t396; int t397; struct w49 t398; int t399; h28598: /* x264142 */ /* x264095 */ /* x264093 */ t376 = a34658; /* x264094 */ t377 = a34657; /* x265860 */ if (!(t376==t377)) goto l110; /* x264096 */ return (((unsigned)a34727)<<1)+1; l110: /* x264141 */ /* x264140 */ /* x264138 */ t398 = a34656; /* x264139 */ t399 = a34658; /* x265853 */ if (!((t398.tag)==STRING_TYPE)) {backtrace_internal("PARSE-EXACT-OCTAL-INTEGER[28598]"); string_ref1_error();} if ((t399<0)||(t399>=strlen(t398.value.string_type))) {backtrace_internal("PARSE-EXACT-OCTAL-INTEGER[28598]"); string_ref3_error();} t378 = (t398.value.string_type)[t399]; /* x264136 */ a34728 = t378; /* x264135 */ /* x264134 */ /* x264133 */ /* x264131 */ t396 = a34658; /* x264132 */ t397 = 1; /* x265854 */ a34658 = t396+t397; /* x264129 */ /* x264128 */ /* x264106 */ /* x264100 */ /* x264099 */ t380 = '0'; /* x264098 */ t379 = a34728; /* x264097 */ t381 = ((unsigned)((unsigned char)t379))<<2; t382 = t380; if (f27366(t381, t382)==FALSE_TYPE) goto l112; /* x264104 */ /* x264103 */ t384 = '7'; /* x264102 */ t383 = a34728; /* x264101 */ t385 = ((unsigned)((unsigned char)t383))<<2; t386 = t384; if (f27360(t385, t386)==FALSE_TYPE) goto l112; /* x264124 */ /* x264123 */ /* x264122 */ /* x264121 */ /* x264112 */ /* x264110 */ t390 = 8; /* x264111 */ t391 = a34727; /* x265858 */ t388 = t390*t391; /* x264120 */ /* x264116 */ /* x264115 */ t394 = a34728; /* x265856 */ t392 = (int)((unsigned char)t394); /* x264119 */ /* x264118 */ t395 = '0'; /* x265855 */ t393 = (int)((unsigned char)t395); /* x265857 */ t389 = t392-t393; /* x265859 */ t387 = t388+t389; /* x264107 */ a34727 = t387; goto h28598; l112: /* x264127 */ /* x264126 */ /* x264125 */ return (unsigned)FALSE_TYPE;} /* PARSE-EXACT-BINARY-INTEGER[28592] */ unsigned f28592(int a34724) {char a34725; /* C */ int t400; int t401; char t402; char t403; char t404; struct w49 t405; char t406; char t407; char t408; struct w49 t409; char t410; int t411; int t412; int t413; int t414; int t415; int t416; int t417; int t418; int t419; int t420; struct w49 t421; int t422; h28592: /* x264089 */ /* x264042 */ /* x264040 */ t400 = a34658; /* x264041 */ t401 = a34657; /* x265866 */ if (!(t400==t401)) goto l115; /* x264043 */ return (((unsigned)a34724)<<1)+1; l115: /* x264088 */ /* x264087 */ /* x264085 */ t421 = a34656; /* x264086 */ t422 = a34658; /* x265861 */ if (!((t421.tag)==STRING_TYPE)) {backtrace_internal("PARSE-EXACT-BINARY-INTEGER[28592]"); string_ref1_error();} if ((t422<0)||(t422>=strlen(t421.value.string_type))) {backtrace_internal("PARSE-EXACT-BINARY-INTEGER[28592]"); string_ref3_error();} t402 = (t421.value.string_type)[t422]; /* x264083 */ a34725 = t402; /* x264082 */ /* x264081 */ /* x264080 */ /* x264078 */ t419 = a34658; /* x264079 */ t420 = 1; /* x265862 */ a34658 = t419+t420; /* x264076 */ /* x264075 */ /* x264047 */ /* x264046 */ t404 = '0'; /* x264045 */ t403 = a34725; /* x264044 */ t405.tag = ((unsigned)((unsigned char)t403))<<2; t406 = t404; if (f27342(t405, t406)==FALSE_TYPE) goto l117; /* x264055 */ /* x264054 */ /* x264053 */ /* x264052 */ /* x264050 */ t417 = 2; /* x264051 */ t418 = a34724; /* x265865 */ t416 = t417*t418; /* x264048 */ a34724 = t416; goto h28592; l117: /* x264074 */ /* x264059 */ /* x264058 */ t408 = '1'; /* x264057 */ t407 = a34725; /* x264056 */ t409.tag = ((unsigned)((unsigned char)t407))<<2; t410 = t408; if (f27342(t409, t410)==FALSE_TYPE) goto l119; /* x264070 */ /* x264069 */ /* x264068 */ /* x264067 */ /* x264065 */ /* x264063 */ t414 = 2; /* x264064 */ t415 = a34724; /* x265863 */ t412 = t414*t415; /* x264066 */ t413 = 1; /* x265864 */ t411 = t412+t413; /* x264060 */ a34724 = t411; goto h28592; l119: /* x264073 */ /* x264072 */ /* x264071 */ return (unsigned)FALSE_TYPE;} /* NEGATE[28591] */ struct w29434 f28591(struct w29434 a34723) {struct w29434 r28591; struct w30215 t423; /* x264036 */ /* x264031 */ if ((a34723.tag)==FALSE_TYPE) goto l121; /* x264034 */ /* x264033 */ t423 = *((struct w30215 *)(&a34723)); /* x265867 */ if ((t423.tag)==FIXNUM_TYPE) {r28591.tag = FIXNUM_TYPE; r28591.value.fixnum_type = -(t423.value.fixnum_type); return r28591;} r28591.tag = FLONUM_TYPE; r28591.value.flonum_type = -(t423.value.flonum_type); return r28591; l121: /* x264035 */ r28591.tag = FALSE_TYPE; return r28591;} /* STRING->NUMBER[28477] */ struct w29434 f28477(void) {struct w29434 r28477; char a34675; /* C1 */ char a34677; /* C2 */ char a34680; /* C3 */ char a34682; /* C4 */ char a34684; /* C4 */ char a34687; /* C3 */ char a34689; /* C4 */ char a34691; /* C4 */ char a34694; /* C3 */ char a34696; /* C4 */ char a34698; /* C5 */ char a34700; /* C4 */ char a34702; /* C5 */ char a34704; /* C4 */ char a34707; /* C3 */ char a34709; /* C4 */ char a34711; /* C4 */ char a34713; /* C2 */ char a34715; /* C3 */ char a34717; /* C2 */ char a34719; /* C3 */ char a34721; /* C2 */ int t424; int t425; int t426; int t427; char t428; char t429; char t430; char t431; struct w49 t432; char t433; char t434; char t435; struct w49 t436; char t437; char t438; char t439; struct w49 t440; char t441; char t442; char t443; struct w49 t444; char t445; char t446; struct w49 t447; int t448; int t449; int t450; char t451; char t452; int t453; int t454; char t455; char t456; struct w49 t457; float t458; float t459; struct w29471 t460; int t461; float t462; int t463; int t464; char t465; char t466; int t467; int t468; struct w49 t469; int t470; int t471; int t472; char t473; char t474; struct w49 t475; char t476; char t477; struct w49 t478; char t479; int t480; int t481; char t482; char t483; struct w49 t484; struct w29471 t485; struct w29434 t486; float t487; float t488; int t489; float t490; int t491; int t492; char t493; char t494; int t495; int t496; struct w49 t497; int t498; struct w29434 t499; int t500; int t501; int t502; char t503; char t504; int t505; int t506; struct w49 t507; int t508; int t509; int t510; char t511; char t512; struct w49 t513; char t514; char t515; struct w49 t516; char t517; int t518; int t519; char t520; char t521; struct w49 t522; float t523; float t524; struct w29471 t525; int t526; float t527; int t528; int t529; char t530; char t531; int t532; int t533; struct w49 t534; int t535; int t536; int t537; int t538; char t539; char t540; int t541; int t542; struct w49 t543; int t544; int t545; int t546; char t547; char t548; char t549; struct w49 t550; char t551; char t552; char t553; struct w49 t554; char t555; char t556; char t557; struct w49 t558; char t559; char t560; char t561; struct w49 t562; char t563; char t564; char t565; struct w49 t566; char t567; char t568; char t569; struct w49 t570; char t571; char t572; char t573; struct w49 t574; char t575; char t576; char t577; struct w49 t578; char t579; int t580; int t581; char t582; char t583; struct w49 t584; char t585; char t586; unsigned t587; char t588; char t589; char t590; unsigned t591; char t592; char t593; char t594; unsigned t595; char t596; char t597; char t598; unsigned t599; char t600; char t601; char t602; struct w49 t603; char t604; char t605; char t606; struct w49 t607; char t608; int t609; int t610; char t611; char t612; struct w49 t613; char t614; char t615; unsigned t616; char t617; char t618; char t619; unsigned t620; char t621; char t622; char t623; unsigned t624; char t625; char t626; char t627; unsigned t628; char t629; unsigned t630; struct w29434 t631; int t632; int t633; int t634; int t635; int t636; char t637; char t638; unsigned t639; struct w29434 t640; int t641; int t642; int t643; int t644; int t645; char t646; char t647; unsigned t648; struct w29434 t649; int t650; int t651; int t652; char t653; char t654; int t655; int t656; struct w49 t657; int t658; int t659; int t660; char t661; char t662; struct w49 t663; char t664; char t665; unsigned t666; char t667; char t668; char t669; unsigned t670; char t671; char t672; char t673; unsigned t674; char t675; char t676; char t677; unsigned t678; char t679; int t680; unsigned t681; int t682; int t683; int t684; int t685; char t686; char t687; int t688; unsigned t689; int t690; int t691; int t692; int t693; char t694; char t695; int t696; unsigned t697; int t698; int t699; char t700; char t701; int t702; int t703; struct w49 t704; int t705; int t706; unsigned t707; int t708; int t709; int t710; int t711; char t712; char t713; int t714; unsigned t715; int t716; int t717; int t718; int t719; char t720; char t721; int t722; unsigned t723; int t724; int t725; char t726; char t727; int t728; int t729; struct w49 t730; int t731; int t732; int t733; char t734; char t735; char t736; struct w49 t737; char t738; char t739; char t740; struct w49 t741; char t742; char t743; char t744; struct w49 t745; char t746; char t747; struct w49 t748; int t749; int t750; int t751; char t752; char t753; int t754; int t755; char t756; char t757; struct w49 t758; float t759; float t760; struct w29471 t761; int t762; float t763; int t764; int t765; char t766; char t767; int t768; int t769; struct w49 t770; int t771; int t772; int t773; char t774; char t775; struct w49 t776; char t777; char t778; struct w49 t779; char t780; int t781; int t782; char t783; char t784; struct w49 t785; struct w29471 t786; struct w29434 t787; float t788; float t789; int t790; float t791; int t792; int t793; char t794; char t795; int t796; int t797; struct w49 t798; int t799; struct w29434 t800; int t801; int t802; int t803; char t804; char t805; int t806; int t807; struct w49 t808; int t809; int t810; int t811; char t812; char t813; struct w49 t814; char t815; char t816; struct w49 t817; char t818; int t819; int t820; char t821; char t822; struct w49 t823; float t824; float t825; struct w29471 t826; int t827; float t828; int t829; int t830; char t831; char t832; int t833; int t834; struct w49 t835; int t836; int t837; int t838; int t839; char t840; char t841; int t842; int t843; struct w49 t844; int t845; int t846; int t847; struct w49 t848; int t849; int t850; int t851; char t852; char t853; char t854; unsigned t855; char t856; char t857; char t858; unsigned t859; char t860; char t861; char t862; struct w49 t863; char t864; char t865; char t866; struct w49 t867; char t868; int t869; int t870; char t871; char t872; char t873; unsigned t874; char t875; char t876; char t877; unsigned t878; char t879; unsigned t880; struct w29434 t881; int t882; int t883; int t884; char t885; char t886; int t887; int t888; struct w49 t889; int t890; int t891; int t892; char t893; char t894; char t895; unsigned t896; char t897; char t898; char t899; unsigned t900; char t901; int t902; unsigned t903; int t904; int t905; char t906; char t907; int t908; int t909; struct w49 t910; int t911; int t912; unsigned t913; int t914; int t915; char t916; char t917; int t918; int t919; struct w49 t920; int t921; int t922; int t923; char t924; char t925; char t926; struct w49 t927; char t928; char t929; char t930; struct w49 t931; char t932; char t933; char t934; struct w49 t935; char t936; char t937; char t938; struct w49 t939; char t940; int t941; int t942; char t943; char t944; char t945; struct w49 t946; char t947; char t948; char t949; struct w49 t950; char t951; unsigned t952; struct w29434 t953; int t954; unsigned t955; struct w29434 t956; int t957; int t958; int t959; struct w49 t960; int t961; int t962; int t963; char t964; char t965; char t966; struct w49 t967; char t968; char t969; char t970; struct w49 t971; char t972; int t973; unsigned t974; int t975; unsigned t976; int t977; int t978; struct w49 t979; int t980; int t981; unsigned t982; int t983; unsigned t984; int t985; int t986; struct w49 t987; int t988; int t989; int t990; struct w49 t991; int t992; int t993; int t994; struct w49 t995; int t996; struct w49 t997; /* x264927 */ /* x264925 */ /* x264924 */ t997 = a34656; /* x265755 */ if (!((t997.tag)==STRING_TYPE)) {backtrace_internal("STRING->NUMBER[28477]"); string_length_error();} t424 = strlen(t997.value.string_type); /* x264926 */ t425 = 0; /* x264922 */ a34657 = t424; a34658 = t425; /* x264921 */ /* x264908 */ /* x264907 */ /* x264910 */ /* x264909 */ /* x264912 */ /* x264911 */ /* x264914 */ /* x264913 */ /* x264916 */ /* x264915 */ /* x264918 */ /* x264917 */ /* x264920 */ /* x264919 */ /* x264906 */ /* x264905 */ /* x264038 */ /* x264037 */ /* x264091 */ /* x264090 */ /* x264144 */ /* x264143 */ /* x264190 */ /* x264189 */ /* x264296 */ /* x264295 */ /* x264592 */ /* x264591 */ /* x264904 */ /* x264903 */ /* x264030 */ /* x264029 */ /* x264028 */ /* x264027 */ /* x264026 */ /* x264025 */ /* x264024 */ /* x264023 */ /* x264022 */ /* x262809 */ /* x262808 */ h28483: /* x264021 */ /* x262813 */ /* x262811 */ t426 = a34658; /* x262812 */ t427 = a34657; /* x266017 */ if (!(t426==t427)) goto l123; /* x262814 */ r28477.tag = FALSE_TYPE; return r28477; l123: /* x264020 */ /* x264019 */ /* x264017 */ t995 = a34656; /* x264018 */ t996 = a34658; /* x265868 */ if (!((t995.tag)==STRING_TYPE)) {backtrace_internal("LOOP[28483]"); string_ref1_error();} if ((t996<0)||(t996>=strlen(t995.value.string_type))) {backtrace_internal("LOOP[28483]"); string_ref3_error();} t428 = (t995.value.string_type)[t996]; /* x264015 */ a34675 = t428; /* x264014 */ /* x264013 */ /* x264012 */ /* x264010 */ t993 = a34658; /* x264011 */ t994 = 1; /* x265869 */ a34658 = t993+t994; /* x264008 */ /* x264007 */ /* x262817 */ /* x262816 */ t429 = a34675; /* x262815 */ if (f27407(t429)==FALSE_TYPE) goto l125; /* x262821 */ /* x262820 */ /* x262819 */ /* x262818 */ goto h28483; l125: /* x264006 */ /* x262825 */ /* x262824 */ t431 = '#'; /* x262823 */ t430 = a34675; /* x262822 */ t432.tag = ((unsigned)((unsigned char)t430))<<2; t433 = t431; if (f27342(t432, t433)==FALSE_TYPE) goto l127; /* x263757 */ /* x263756 */ /* x263755 */ /* x262829 */ /* x262827 */ t545 = a34658; /* x262828 */ t546 = a34657; /* x266016 */ if (!(t545==t546)) goto l161; /* x262830 */ r28477.tag = FALSE_TYPE; return r28477; l161: /* x263754 */ /* x263753 */ /* x263751 */ t991 = a34656; /* x263752 */ t992 = a34658; /* x265906 */ if (!((t991.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 28487]"); string_ref1_error();} if ((t992<0)||(t992>=strlen(t991.value.string_type))) {backtrace_internal("[inside LOOP 28487]"); string_ref3_error();} t547 = (t991.value.string_type)[t992]; /* x263749 */ a34677 = t547; /* x263748 */ /* x263747 */ /* x263746 */ /* x263744 */ t989 = a34658; /* x263745 */ t990 = 1; /* x265907 */ a34658 = t989+t990; /* x263742 */ /* x263741 */ /* x262843 */ /* x262842 */ /* x262841 */ t549 = 'b'; /* x262840 */ t548 = a34677; /* x262839 */ t550.tag = ((unsigned)((unsigned char)t548))<<2; t551 = t549; if (!(f27342(t550, t551)==FALSE_TYPE)) goto l162; /* x262836 */ /* x262835 */ t553 = 'B'; /* x262834 */ t552 = a34677; /* x262833 */ t554.tag = ((unsigned)((unsigned char)t552))<<2; t555 = t553; if (f27342(t554, t555)==FALSE_TYPE) goto l163; l162: /* x262989 */ /* x262988 */ /* x262987 */ /* x262847 */ /* x262845 */ t922 = a34658; /* x262846 */ t923 = a34657; /* x266015 */ if (!(t922==t923)) goto l262; /* x262848 */ r28477.tag = FALSE_TYPE; return r28477; l262: /* x262986 */ /* x262985 */ /* x262983 */ t987 = a34656; /* x262984 */ t988 = a34658; /* x266007 */ if (!((t987.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 28491]"); string_ref1_error();} if ((t988<0)||(t988>=strlen(t987.value.string_type))) {backtrace_internal("[inside LOOP 28491]"); string_ref3_error();} t924 = (t987.value.string_type)[t988]; /* x262981 */ a34680 = t924; /* x262980 */ /* x262979 */ /* x262978 */ /* x262976 */ t985 = a34658; /* x262977 */ t986 = 1; /* x266008 */ a34658 = t985+t986; /* x262974 */ /* x262973 */ /* x262852 */ /* x262851 */ t926 = '0'; /* x262850 */ t925 = a34680; /* x262849 */ t927.tag = ((unsigned)((unsigned char)t925))<<2; t928 = t926; if (f27342(t927, t928)==FALSE_TYPE) goto l264; /* x262857 */ /* x262856 */ /* x262855 */ /* x262854 */ t983 = 0; /* x262853 */ t984 = f28592(t983); /* MOVE: dispatching squished to general */ if (t984==FALSE_TYPE) {r28477.tag = (unsigned)t984; return r28477;} r28477.tag = FIXNUM_TYPE; r28477.value.fixnum_type = (int)(((int)t984)>>1); return r28477; l264: /* x262972 */ /* x262861 */ /* x262860 */ t930 = '1'; /* x262859 */ t929 = a34680; /* x262858 */ t931.tag = ((unsigned)((unsigned char)t929))<<2; t932 = t930; if (f27342(t931, t932)==FALSE_TYPE) goto l266; /* x262866 */ /* x262865 */ /* x262864 */ /* x262863 */ t981 = 1; /* x262862 */ t982 = f28592(t981); /* MOVE: dispatching squished to general */ if (t982==FALSE_TYPE) {r28477.tag = (unsigned)t982; return r28477;} r28477.tag = FIXNUM_TYPE; r28477.value.fixnum_type = (int)(((int)t982)>>1); return r28477; l266: /* x262971 */ /* x262870 */ /* x262869 */ t934 = '+'; /* x262868 */ t933 = a34680; /* x262867 */ t935.tag = ((unsigned)((unsigned char)t933))<<2; t936 = t934; if (f27342(t935, t936)==FALSE_TYPE) goto l268; /* x262914 */ /* x262913 */ /* x262912 */ /* x262874 */ /* x262872 */ t962 = a34658; /* x262873 */ t963 = a34657; /* x266014 */ if (!(t962==t963)) goto l278; /* x262875 */ r28477.tag = FALSE_TYPE; return r28477; l278: /* x262911 */ /* x262910 */ /* x262908 */ t979 = a34656; /* x262909 */ t980 = a34658; /* x266012 */ if (!((t979.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 28496]"); string_ref1_error();} if ((t980<0)||(t980>=strlen(t979.value.string_type))) {backtrace_internal("[inside LOOP 28496]"); string_ref3_error();} t964 = (t979.value.string_type)[t980]; /* x262906 */ a34682 = t964; /* x262905 */ /* x262904 */ /* x262903 */ /* x262901 */ t977 = a34658; /* x262902 */ t978 = 1; /* x266013 */ a34658 = t977+t978; /* x262899 */ /* x262898 */ /* x262879 */ /* x262878 */ t966 = '0'; /* x262877 */ t965 = a34682; /* x262876 */ t967.tag = ((unsigned)((unsigned char)t965))<<2; t968 = t966; if (f27342(t967, t968)==FALSE_TYPE) goto l280; /* x262884 */ /* x262883 */ /* x262882 */ /* x262881 */ t975 = 0; /* x262880 */ t976 = f28592(t975); /* MOVE: dispatching squished to general */ if (t976==FALSE_TYPE) {r28477.tag = (unsigned)t976; return r28477;} r28477.tag = FIXNUM_TYPE; r28477.value.fixnum_type = (int)(((int)t976)>>1); return r28477; l280: /* x262897 */ /* x262888 */ /* x262887 */ t970 = '1'; /* x262886 */ t969 = a34682; /* x262885 */ t971.tag = ((unsigned)((unsigned char)t969))<<2; t972 = t970; if (f27342(t971, t972)==FALSE_TYPE) goto l282; /* x262893 */ /* x262892 */ /* x262891 */ /* x262890 */ t973 = 1; /* x262889 */ t974 = f28592(t973); /* MOVE: dispatching squished to general */ if (t974==FALSE_TYPE) {r28477.tag = (unsigned)t974; return r28477;} r28477.tag = FIXNUM_TYPE; r28477.value.fixnum_type = (int)(((int)t974)>>1); return r28477; l282: /* x262896 */ /* x262895 */ /* x262894 */ r28477.tag = FALSE_TYPE; return r28477; l268: /* x262970 */ /* x262918 */ /* x262917 */ t938 = '-'; /* x262916 */ t937 = a34680; /* x262915 */ t939.tag = ((unsigned)((unsigned char)t937))<<2; t940 = t938; if (f27342(t939, t940)==FALSE_TYPE) goto l270; /* x262966 */ /* x262965 */ /* x262964 */ /* x262922 */ /* x262920 */ t941 = a34658; /* x262921 */ t942 = a34657; /* x266011 */ if (!(t941==t942)) goto l272; /* x262923 */ r28477.tag = FALSE_TYPE; return r28477; l272: /* x262963 */ /* x262962 */ /* x262960 */ t960 = a34656; /* x262961 */ t961 = a34658; /* x266009 */ if (!((t960.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 28502]"); string_ref1_error();} if ((t961<0)||(t961>=strlen(t960.value.string_type))) {backtrace_internal("[inside LOOP 28502]"); string_ref3_error();} t943 = (t960.value.string_type)[t961]; /* x262958 */ a34684 = t943; /* x262957 */ /* x262956 */ /* x262955 */ /* x262953 */ t958 = a34658; /* x262954 */ t959 = 1; /* x266010 */ a34658 = t958+t959; /* x262951 */ /* x262950 */ /* x262927 */ /* x262926 */ t945 = '0'; /* x262925 */ t944 = a34684; /* x262924 */ t946.tag = ((unsigned)((unsigned char)t944))<<2; t947 = t945; if (f27342(t946, t947)==FALSE_TYPE) goto l274; /* x262934 */ /* x262933 */ /* x262932 */ /* x262931 */ /* x262930 */ t957 = 0; /* x262929 */ t955 = f28592(t957); /* x262928 */ /* MOVE: dispatching squished to general */ if (t955==FALSE_TYPE) t956.tag = (unsigned)t955; else {t956.tag = FIXNUM_TYPE; t956.value.fixnum_type = (int)(((int)t955)>>1);} return f28591(t956); l274: /* x262949 */ /* x262938 */ /* x262937 */ t949 = '1'; /* x262936 */ t948 = a34684; /* x262935 */ t950.tag = ((unsigned)((unsigned char)t948))<<2; t951 = t949; if (f27342(t950, t951)==FALSE_TYPE) goto l276; /* x262945 */ /* x262944 */ /* x262943 */ /* x262942 */ /* x262941 */ t954 = 1; /* x262940 */ t952 = f28592(t954); /* x262939 */ /* MOVE: dispatching squished to general */ if (t952==FALSE_TYPE) t953.tag = (unsigned)t952; else {t953.tag = FIXNUM_TYPE; t953.value.fixnum_type = (int)(((int)t952)>>1);} return f28591(t953); l276: /* x262948 */ /* x262947 */ /* x262946 */ r28477.tag = FALSE_TYPE; return r28477; l270: /* x262969 */ /* x262968 */ /* x262967 */ r28477.tag = FALSE_TYPE; return r28477; l163: /* x263740 */ /* x263002 */ /* x263001 */ /* x263000 */ t557 = 'o'; /* x262999 */ t556 = a34677; /* x262998 */ t558.tag = ((unsigned)((unsigned char)t556))<<2; t559 = t557; if (!(f27342(t558, t559)==FALSE_TYPE)) goto l165; /* x262995 */ /* x262994 */ t561 = 'O'; /* x262993 */ t560 = a34677; /* x262992 */ t562.tag = ((unsigned)((unsigned char)t560))<<2; t563 = t561; if (f27342(t562, t563)==FALSE_TYPE) goto l166; l165: /* x263147 */ /* x263146 */ /* x263145 */ /* x263006 */ /* x263004 */ t850 = a34658; /* x263005 */ t851 = a34657; /* x266006 */ if (!(t850==t851)) goto l243; /* x263007 */ r28477.tag = FALSE_TYPE; return r28477; l243: /* x263144 */ /* x263143 */ /* x263141 */ t920 = a34656; /* x263142 */ t921 = a34658; /* x265989 */ if (!((t920.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 28510]"); string_ref1_error();} if ((t921<0)||(t921>=strlen(t920.value.string_type))) {backtrace_internal("[inside LOOP 28510]"); string_ref3_error();} t852 = (t920.value.string_type)[t921]; /* x263139 */ a34687 = t852; /* x263138 */ /* x263137 */ /* x263136 */ /* x263134 */ t918 = a34658; /* x263135 */ t919 = 1; /* x265990 */ a34658 = t918+t919; /* x263132 */ /* x263131 */ /* x263017 */ /* x263011 */ /* x263010 */ t854 = '0'; /* x263009 */ t853 = a34687; /* x263008 */ t855 = ((unsigned)((unsigned char)t853))<<2; t856 = t854; if (f27366(t855, t856)==FALSE_TYPE) goto l245; /* x263015 */ /* x263014 */ t858 = '7'; /* x263013 */ t857 = a34687; /* x263012 */ t859 = ((unsigned)((unsigned char)t857))<<2; t860 = t858; if (f27360(t859, t860)==FALSE_TYPE) goto l245; /* x263029 */ /* x263028 */ /* x263027 */ /* x263026 */ /* x263022 */ /* x263021 */ t916 = a34687; /* x266004 */ t914 = (int)((unsigned char)t916); /* x263025 */ /* x263024 */ t917 = '0'; /* x266003 */ t915 = (int)((unsigned char)t917); /* x266005 */ t912 = t914-t915; /* x263018 */ t913 = f28598(t912); /* MOVE: dispatching squished to general */ if (t913==FALSE_TYPE) {r28477.tag = (unsigned)t913; return r28477;} r28477.tag = FIXNUM_TYPE; r28477.value.fixnum_type = (int)(((int)t913)>>1); return r28477; l245: /* x263130 */ /* x263033 */ /* x263032 */ t862 = '+'; /* x263031 */ t861 = a34687; /* x263030 */ t863.tag = ((unsigned)((unsigned char)t861))<<2; t864 = t862; if (f27342(t863, t864)==FALSE_TYPE) goto l248; /* x263076 */ /* x263075 */ /* x263074 */ /* x263037 */ /* x263035 */ t891 = a34658; /* x263036 */ t892 = a34657; /* x266002 */ if (!(t891==t892)) goto l257; /* x263038 */ r28477.tag = FALSE_TYPE; return r28477; l257: /* x263073 */ /* x263072 */ /* x263070 */ t910 = a34656; /* x263071 */ t911 = a34658; /* x265997 */ if (!((t910.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 28514]"); string_ref1_error();} if ((t911<0)||(t911>=strlen(t910.value.string_type))) {backtrace_internal("[inside LOOP 28514]"); string_ref3_error();} t893 = (t910.value.string_type)[t911]; /* x263068 */ a34689 = t893; /* x263067 */ /* x263066 */ /* x263065 */ /* x263063 */ t908 = a34658; /* x263064 */ t909 = 1; /* x265998 */ a34658 = t908+t909; /* x263061 */ /* x263060 */ /* x263048 */ /* x263042 */ /* x263041 */ t895 = '0'; /* x263040 */ t894 = a34689; /* x263039 */ t896 = ((unsigned)((unsigned char)t894))<<2; t897 = t895; if (f27366(t896, t897)==FALSE_TYPE) goto l259; /* x263046 */ /* x263045 */ t899 = '7'; /* x263044 */ t898 = a34689; /* x263043 */ t900 = ((unsigned)((unsigned char)t898))<<2; t901 = t899; if (f27360(t900, t901)==FALSE_TYPE) goto l259; /* x263058 */ /* x263057 */ /* x263053 */ /* x263052 */ t906 = a34689; /* x266000 */ t904 = (int)((unsigned char)t906); /* x263056 */ /* x263055 */ t907 = '0'; /* x265999 */ t905 = (int)((unsigned char)t907); /* x266001 */ t902 = t904-t905; /* x263049 */ t903 = f28598(t902); /* MOVE: dispatching squished to general */ if (t903==FALSE_TYPE) {r28477.tag = (unsigned)t903; return r28477;} r28477.tag = FIXNUM_TYPE; r28477.value.fixnum_type = (int)(((int)t903)>>1); return r28477; l259: /* x263059 */ r28477.tag = FALSE_TYPE; return r28477; l248: /* x263129 */ /* x263080 */ /* x263079 */ t866 = '-'; /* x263078 */ t865 = a34687; /* x263077 */ t867.tag = ((unsigned)((unsigned char)t865))<<2; t868 = t866; if (f27342(t867, t868)==FALSE_TYPE) goto l250; /* x263125 */ /* x263124 */ /* x263123 */ /* x263084 */ /* x263082 */ t869 = a34658; /* x263083 */ t870 = a34657; /* x265996 */ if (!(t869==t870)) goto l252; /* x263085 */ r28477.tag = FALSE_TYPE; return r28477; l252: /* x263122 */ /* x263121 */ /* x263119 */ t889 = a34656; /* x263120 */ t890 = a34658; /* x265991 */ if (!((t889.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 28517]"); string_ref1_error();} if ((t890<0)||(t890>=strlen(t889.value.string_type))) {backtrace_internal("[inside LOOP 28517]"); string_ref3_error();} t871 = (t889.value.string_type)[t890]; /* x263117 */ a34691 = t871; /* x263116 */ /* x263115 */ /* x263114 */ /* x263112 */ t887 = a34658; /* x263113 */ t888 = 1; /* x265992 */ a34658 = t887+t888; /* x263110 */ /* x263109 */ /* x263095 */ /* x263089 */ /* x263088 */ t873 = '0'; /* x263087 */ t872 = a34691; /* x263086 */ t874 = ((unsigned)((unsigned char)t872))<<2; t875 = t873; if (f27366(t874, t875)==FALSE_TYPE) goto l254; /* x263093 */ /* x263092 */ t877 = '7'; /* x263091 */ t876 = a34691; /* x263090 */ t878 = ((unsigned)((unsigned char)t876))<<2; t879 = t877; if (f27360(t878, t879)==FALSE_TYPE) goto l254; /* x263107 */ /* x263106 */ /* x263105 */ /* x263101 */ /* x263100 */ t885 = a34691; /* x265994 */ t883 = (int)((unsigned char)t885); /* x263104 */ /* x263103 */ t886 = '0'; /* x265993 */ t884 = (int)((unsigned char)t886); /* x265995 */ t882 = t883-t884; /* x263097 */ t880 = f28598(t882); /* x263096 */ /* MOVE: dispatching squished to general */ if (t880==FALSE_TYPE) t881.tag = (unsigned)t880; else {t881.tag = FIXNUM_TYPE; t881.value.fixnum_type = (int)(((int)t880)>>1);} return f28591(t881); l254: /* x263108 */ r28477.tag = FALSE_TYPE; return r28477; l250: /* x263128 */ /* x263127 */ /* x263126 */ r28477.tag = FALSE_TYPE; return r28477; l166: /* x263739 */ /* x263160 */ /* x263159 */ /* x263158 */ t565 = 'd'; /* x263157 */ t564 = a34677; /* x263156 */ t566.tag = ((unsigned)((unsigned char)t564))<<2; t567 = t565; if (!(f27342(t566, t567)==FALSE_TYPE)) goto l168; /* x263153 */ /* x263152 */ t569 = 'D'; /* x263151 */ t568 = a34677; /* x263150 */ t570.tag = ((unsigned)((unsigned char)t568))<<2; t571 = t569; if (f27342(t570, t571)==FALSE_TYPE) goto l169; l168: /* x263429 */ /* x263428 */ /* x263427 */ /* x263164 */ /* x263162 */ t732 = a34658; /* x263163 */ t733 = a34657; /* x265988 */ if (!(t732==t733)) goto l209; /* x263165 */ r28477.tag = FALSE_TYPE; return r28477; l209: /* x263426 */ /* x263425 */ /* x263423 */ t848 = a34656; /* x263424 */ t849 = a34658; /* x265950 */ if (!((t848.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 28522]"); string_ref1_error();} if ((t849<0)||(t849>=strlen(t848.value.string_type))) {backtrace_internal("[inside LOOP 28522]"); string_ref3_error();} t734 = (t848.value.string_type)[t849]; /* x263421 */ a34694 = t734; /* x263420 */ /* x263419 */ /* x263418 */ /* x263416 */ t846 = a34658; /* x263417 */ t847 = 1; /* x265951 */ a34658 = t846+t847; /* x263414 */ /* x263413 */ /* x263169 */ /* x263168 */ t736 = '+'; /* x263167 */ t735 = a34694; /* x263166 */ t737.tag = ((unsigned)((unsigned char)t735))<<2; t738 = t736; if (f27342(t737, t738)==FALSE_TYPE) goto l211; /* x263254 */ /* x263253 */ /* x263252 */ /* x263173 */ /* x263171 */ t810 = a34658; /* x263172 */ t811 = a34657; /* x265987 */ if (!(t810==t811)) goto l233; /* x263174 */ r28477.tag = FALSE_TYPE; return r28477; l233: /* x263251 */ /* x263250 */ /* x263248 */ t844 = a34656; /* x263249 */ t845 = a34658; /* x265975 */ if (!((t844.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 28525]"); string_ref1_error();} if ((t845<0)||(t845>=strlen(t844.value.string_type))) {backtrace_internal("[inside LOOP 28525]"); string_ref3_error();} t812 = (t844.value.string_type)[t845]; /* x263246 */ a34696 = t812; /* x263245 */ /* x263244 */ /* x263243 */ /* x263241 */ t842 = a34658; /* x263242 */ t843 = 1; /* x265976 */ a34658 = t842+t843; /* x263239 */ /* x263238 */ /* x263177 */ /* x263176 */ t813 = a34696; /* x263175 */ t814.tag = ((unsigned)((unsigned char)t813))<<2; if (f27405(t814)==FALSE_TYPE) goto l235; /* x263189 */ /* x263188 */ /* x263187 */ /* x263186 */ /* x263182 */ /* x263181 */ t840 = a34696; /* x265985 */ t838 = (int)((unsigned char)t840); /* x263185 */ /* x263184 */ t841 = '0'; /* x265984 */ t839 = (int)((unsigned char)t841); /* x265986 */ t837 = t838-t839; /* x263178 */ return f28643(t837); l235: /* x263237 */ /* x263193 */ /* x263192 */ t816 = '.'; /* x263191 */ t815 = a34696; /* x263190 */ t817.tag = ((unsigned)((unsigned char)t815))<<2; t818 = t816; if (f27342(t817, t818)==FALSE_TYPE) goto l237; /* x263233 */ /* x263232 */ /* x263231 */ /* x263197 */ /* x263195 */ t819 = a34658; /* x263196 */ t820 = a34657; /* x265983 */ if (!(t819==t820)) goto l239; /* x263198 */ r28477.tag = FALSE_TYPE; return r28477; l239: /* x263230 */ /* x263229 */ /* x263227 */ t835 = a34656; /* x263228 */ t836 = a34658; /* x265977 */ if (!((t835.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 28529]"); string_ref1_error();} if ((t836<0)||(t836>=strlen(t835.value.string_type))) {backtrace_internal("[inside LOOP 28529]"); string_ref3_error();} t821 = (t835.value.string_type)[t836]; /* x263225 */ a34698 = t821; /* x263224 */ /* x263223 */ /* x263222 */ /* x263220 */ t833 = a34658; /* x263221 */ t834 = 1; /* x265978 */ a34658 = t833+t834; /* x263218 */ /* x263217 */ /* x263201 */ /* x263200 */ t822 = a34698; /* x263199 */ t823.tag = ((unsigned)((unsigned char)t822))<<2; if (f27405(t823)==FALSE_TYPE) goto l241; /* x263215 */ /* x263213 */ /* x263211 */ /* x263207 */ /* x263206 */ t831 = a34698; /* x265980 */ t829 = (int)((unsigned char)t831); /* x263210 */ /* x263209 */ t832 = '0'; /* x265979 */ t830 = (int)((unsigned char)t832); /* x265981 */ t827 = t829-t830; /* x263212 */ t828 = 1.0e1; /* x265982 */ t824 = t827/t828; /* x263214 */ t825 = 1.0e2; /* x263202 */ t826 = f28615(t824, t825); return *((struct w29434 *)(&t826)); l241: /* x263216 */ r28477.tag = FALSE_TYPE; return r28477; l237: /* x263236 */ /* x263235 */ /* x263234 */ r28477.tag = FALSE_TYPE; return r28477; l211: /* x263412 */ /* x263258 */ /* x263257 */ t740 = '-'; /* x263256 */ t739 = a34694; /* x263255 */ t741.tag = ((unsigned)((unsigned char)t739))<<2; t742 = t740; if (f27342(t741, t742)==FALSE_TYPE) goto l213; /* x263347 */ /* x263346 */ /* x263345 */ /* x263262 */ /* x263260 */ t772 = a34658; /* x263261 */ t773 = a34657; /* x265974 */ if (!(t772==t773)) goto l223; /* x263263 */ r28477.tag = FALSE_TYPE; return r28477; l223: /* x263344 */ /* x263343 */ /* x263341 */ t808 = a34656; /* x263342 */ t809 = a34658; /* x265962 */ if (!((t808.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 28533]"); string_ref1_error();} if ((t809<0)||(t809>=strlen(t808.value.string_type))) {backtrace_internal("[inside LOOP 28533]"); string_ref3_error();} t774 = (t808.value.string_type)[t809]; /* x263339 */ a34700 = t774; /* x263338 */ /* x263337 */ /* x263336 */ /* x263334 */ t806 = a34658; /* x263335 */ t807 = 1; /* x265963 */ a34658 = t806+t807; /* x263332 */ /* x263331 */ /* x263266 */ /* x263265 */ t775 = a34700; /* x263264 */ t776.tag = ((unsigned)((unsigned char)t775))<<2; if (f27405(t776)==FALSE_TYPE) goto l225; /* x263280 */ /* x263279 */ /* x263278 */ /* x263277 */ /* x263276 */ /* x263272 */ /* x263271 */ t804 = a34700; /* x265972 */ t802 = (int)((unsigned char)t804); /* x263275 */ /* x263274 */ t805 = '0'; /* x265971 */ t803 = (int)((unsigned char)t805); /* x265973 */ t801 = t802-t803; /* x263268 */ t800 = f28643(t801); /* x263267 */ return f28591(t800); l225: /* x263330 */ /* x263284 */ /* x263283 */ t778 = '.'; /* x263282 */ t777 = a34700; /* x263281 */ t779.tag = ((unsigned)((unsigned char)t777))<<2; t780 = t778; if (f27342(t779, t780)==FALSE_TYPE) goto l227; /* x263326 */ /* x263325 */ /* x263324 */ /* x263288 */ /* x263286 */ t781 = a34658; /* x263287 */ t782 = a34657; /* x265970 */ if (!(t781==t782)) goto l229; /* x263289 */ r28477.tag = FALSE_TYPE; return r28477; l229: /* x263323 */ /* x263322 */ /* x263320 */ t798 = a34656; /* x263321 */ t799 = a34658; /* x265964 */ if (!((t798.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 28537]"); string_ref1_error();} if ((t799<0)||(t799>=strlen(t798.value.string_type))) {backtrace_internal("[inside LOOP 28537]"); string_ref3_error();} t783 = (t798.value.string_type)[t799]; /* x263318 */ a34702 = t783; /* x263317 */ /* x263316 */ /* x263315 */ /* x263313 */ t796 = a34658; /* x263314 */ t797 = 1; /* x265965 */ a34658 = t796+t797; /* x263311 */ /* x263310 */ /* x263292 */ /* x263291 */ t784 = a34702; /* x263290 */ t785.tag = ((unsigned)((unsigned char)t784))<<2; if (f27405(t785)==FALSE_TYPE) goto l231; /* x263308 */ /* x263307 */ /* x263305 */ /* x263303 */ /* x263299 */ /* x263298 */ t794 = a34702; /* x265967 */ t792 = (int)((unsigned char)t794); /* x263302 */ /* x263301 */ t795 = '0'; /* x265966 */ t793 = (int)((unsigned char)t795); /* x265968 */ t790 = t792-t793; /* x263304 */ t791 = 1.0e1; /* x265969 */ t788 = t790/t791; /* x263306 */ t789 = 1.0e2; /* x263294 */ t786 = f28615(t788, t789); /* x263293 */ t787 = *((struct w29434 *)(&t786)); return f28591(t787); l231: /* x263309 */ r28477.tag = FALSE_TYPE; return r28477; l227: /* x263329 */ /* x263328 */ /* x263327 */ r28477.tag = FALSE_TYPE; return r28477; l213: /* x263411 */ /* x263351 */ /* x263350 */ t744 = '.'; /* x263349 */ t743 = a34694; /* x263348 */ t745.tag = ((unsigned)((unsigned char)t743))<<2; t746 = t744; if (f27342(t745, t746)==FALSE_TYPE) goto l215; /* x263391 */ /* x263390 */ /* x263389 */ /* x263355 */ /* x263353 */ t754 = a34658; /* x263354 */ t755 = a34657; /* x265961 */ if (!(t754==t755)) goto l219; /* x263356 */ r28477.tag = FALSE_TYPE; return r28477; l219: /* x263388 */ /* x263387 */ /* x263385 */ t770 = a34656; /* x263386 */ t771 = a34658; /* x265955 */ if (!((t770.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 28541]"); string_ref1_error();} if ((t771<0)||(t771>=strlen(t770.value.string_type))) {backtrace_internal("[inside LOOP 28541]"); string_ref3_error();} t756 = (t770.value.string_type)[t771]; /* x263383 */ a34704 = t756; /* x263382 */ /* x263381 */ /* x263380 */ /* x263378 */ t768 = a34658; /* x263379 */ t769 = 1; /* x265956 */ a34658 = t768+t769; /* x263376 */ /* x263375 */ /* x263359 */ /* x263358 */ t757 = a34704; /* x263357 */ t758.tag = ((unsigned)((unsigned char)t757))<<2; if (f27405(t758)==FALSE_TYPE) goto l221; /* x263373 */ /* x263371 */ /* x263369 */ /* x263365 */ /* x263364 */ t766 = a34704; /* x265958 */ t764 = (int)((unsigned char)t766); /* x263368 */ /* x263367 */ t767 = '0'; /* x265957 */ t765 = (int)((unsigned char)t767); /* x265959 */ t762 = t764-t765; /* x263370 */ t763 = 1.0e1; /* x265960 */ t759 = t762/t763; /* x263372 */ t760 = 1.0e2; /* x263360 */ t761 = f28615(t759, t760); return *((struct w29434 *)(&t761)); l221: /* x263374 */ r28477.tag = FALSE_TYPE; return r28477; l215: /* x263410 */ /* x263394 */ /* x263393 */ t747 = a34694; /* x263392 */ t748.tag = ((unsigned)((unsigned char)t747))<<2; if (f27405(t748)==FALSE_TYPE) goto l217; /* x263406 */ /* x263405 */ /* x263404 */ /* x263403 */ /* x263399 */ /* x263398 */ t752 = a34694; /* x265953 */ t750 = (int)((unsigned char)t752); /* x263402 */ /* x263401 */ t753 = '0'; /* x265952 */ t751 = (int)((unsigned char)t753); /* x265954 */ t749 = t750-t751; /* x263395 */ return f28643(t749); l217: /* x263409 */ /* x263408 */ /* x263407 */ r28477.tag = FALSE_TYPE; return r28477; l169: /* x263738 */ /* x263442 */ /* x263441 */ /* x263440 */ t573 = 'x'; /* x263439 */ t572 = a34677; /* x263438 */ t574.tag = ((unsigned)((unsigned char)t572))<<2; t575 = t573; if (!(f27342(t574, t575)==FALSE_TYPE)) goto l171; /* x263435 */ /* x263434 */ t577 = 'X'; /* x263433 */ t576 = a34677; /* x263432 */ t578.tag = ((unsigned)((unsigned char)t576))<<2; t579 = t577; if (f27342(t578, t579)==FALSE_TYPE) goto l172; l171: /* x263734 */ /* x263733 */ /* x263732 */ /* x263446 */ /* x263444 */ t580 = a34658; /* x263445 */ t581 = a34657; /* x265949 */ if (!(t580==t581)) goto l175; /* x263447 */ r28477.tag = FALSE_TYPE; return r28477; l175: /* x263731 */ /* x263730 */ /* x263728 */ t730 = a34656; /* x263729 */ t731 = a34658; /* x265908 */ if (!((t730.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 28547]"); string_ref1_error();} if ((t731<0)||(t731>=strlen(t730.value.string_type))) {backtrace_internal("[inside LOOP 28547]"); string_ref3_error();} t582 = (t730.value.string_type)[t731]; /* x263726 */ a34707 = t582; /* x263725 */ /* x263724 */ /* x263723 */ /* x263721 */ t728 = a34658; /* x263722 */ t729 = 1; /* x265909 */ a34658 = t728+t729; /* x263719 */ /* x263718 */ /* x263450 */ /* x263449 */ t583 = a34707; /* x263448 */ t584.tag = ((unsigned)((unsigned char)t583))<<2; if (f27405(t584)==FALSE_TYPE) goto l177; /* x263462 */ /* x263461 */ /* x263460 */ /* x263459 */ /* x263455 */ /* x263454 */ t726 = a34707; /* x265947 */ t724 = (int)((unsigned char)t726); /* x263458 */ /* x263457 */ t727 = '0'; /* x265946 */ t725 = (int)((unsigned char)t727); /* x265948 */ t722 = t724-t725; /* x263451 */ t723 = f28608(t722); /* MOVE: dispatching squished to general */ if (t723==FALSE_TYPE) {r28477.tag = (unsigned)t723; return r28477;} r28477.tag = FIXNUM_TYPE; r28477.value.fixnum_type = (int)(((int)t723)>>1); return r28477; l177: /* x263717 */ /* x263472 */ /* x263466 */ /* x263465 */ t586 = 'a'; /* x263464 */ t585 = a34707; /* x263463 */ t587 = ((unsigned)((unsigned char)t585))<<2; t588 = t586; if (f27366(t587, t588)==FALSE_TYPE) goto l179; /* x263470 */ /* x263469 */ t590 = 'f'; /* x263468 */ t589 = a34707; /* x263467 */ t591 = ((unsigned)((unsigned char)t589))<<2; t592 = t590; if (f27360(t591, t592)==FALSE_TYPE) goto l179; /* x263487 */ /* x263486 */ /* x263485 */ /* x263484 */ /* x263482 */ /* x263478 */ /* x263477 */ t720 = a34707; /* x265943 */ t718 = (int)((unsigned char)t720); /* x263481 */ /* x263480 */ t721 = 'a'; /* x265942 */ t719 = (int)((unsigned char)t721); /* x265944 */ t716 = t718-t719; /* x263483 */ t717 = 10; /* x265945 */ t714 = t716+t717; /* x263473 */ t715 = f28608(t714); /* MOVE: dispatching squished to general */ if (t715==FALSE_TYPE) {r28477.tag = (unsigned)t715; return r28477;} r28477.tag = FIXNUM_TYPE; r28477.value.fixnum_type = (int)(((int)t715)>>1); return r28477; l179: /* x263716 */ /* x263497 */ /* x263491 */ /* x263490 */ t594 = 'A'; /* x263489 */ t593 = a34707; /* x263488 */ t595 = ((unsigned)((unsigned char)t593))<<2; t596 = t594; if (f27366(t595, t596)==FALSE_TYPE) goto l182; /* x263495 */ /* x263494 */ t598 = 'F'; /* x263493 */ t597 = a34707; /* x263492 */ t599 = ((unsigned)((unsigned char)t597))<<2; t600 = t598; if (f27360(t599, t600)==FALSE_TYPE) goto l182; /* x263512 */ /* x263511 */ /* x263510 */ /* x263509 */ /* x263507 */ /* x263503 */ /* x263502 */ t712 = a34707; /* x265939 */ t710 = (int)((unsigned char)t712); /* x263506 */ /* x263505 */ t713 = 'A'; /* x265938 */ t711 = (int)((unsigned char)t713); /* x265940 */ t708 = t710-t711; /* x263508 */ t709 = 10; /* x265941 */ t706 = t708+t709; /* x263498 */ t707 = f28608(t706); /* MOVE: dispatching squished to general */ if (t707==FALSE_TYPE) {r28477.tag = (unsigned)t707; return r28477;} r28477.tag = FIXNUM_TYPE; r28477.value.fixnum_type = (int)(((int)t707)>>1); return r28477; l182: /* x263715 */ /* x263516 */ /* x263515 */ t602 = '+'; /* x263514 */ t601 = a34707; /* x263513 */ t603.tag = ((unsigned)((unsigned char)t601))<<2; t604 = t602; if (f27342(t603, t604)==FALSE_TYPE) goto l185; /* x263608 */ /* x263607 */ /* x263606 */ /* x263520 */ /* x263518 */ t659 = a34658; /* x263519 */ t660 = a34657; /* x265937 */ if (!(t659==t660)) goto l199; /* x263521 */ r28477.tag = FALSE_TYPE; return r28477; l199: /* x263605 */ /* x263604 */ /* x263602 */ t704 = a34656; /* x263603 */ t705 = a34658; /* x265924 */ if (!((t704.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 28553]"); string_ref1_error();} if ((t705<0)||(t705>=strlen(t704.value.string_type))) {backtrace_internal("[inside LOOP 28553]"); string_ref3_error();} t661 = (t704.value.string_type)[t705]; /* x263600 */ a34709 = t661; /* x263599 */ /* x263598 */ /* x263597 */ /* x263595 */ t702 = a34658; /* x263596 */ t703 = 1; /* x265925 */ a34658 = t702+t703; /* x263593 */ /* x263592 */ /* x263524 */ /* x263523 */ t662 = a34709; /* x263522 */ t663.tag = ((unsigned)((unsigned char)t662))<<2; if (f27405(t663)==FALSE_TYPE) goto l201; /* x263536 */ /* x263535 */ /* x263534 */ /* x263533 */ /* x263529 */ /* x263528 */ t700 = a34709; /* x265935 */ t698 = (int)((unsigned char)t700); /* x263532 */ /* x263531 */ t701 = '0'; /* x265934 */ t699 = (int)((unsigned char)t701); /* x265936 */ t696 = t698-t699; /* x263525 */ t697 = f28608(t696); /* MOVE: dispatching squished to general */ if (t697==FALSE_TYPE) {r28477.tag = (unsigned)t697; return r28477;} r28477.tag = FIXNUM_TYPE; r28477.value.fixnum_type = (int)(((int)t697)>>1); return r28477; l201: /* x263591 */ /* x263546 */ /* x263540 */ /* x263539 */ t665 = 'a'; /* x263538 */ t664 = a34709; /* x263537 */ t666 = ((unsigned)((unsigned char)t664))<<2; t667 = t665; if (f27366(t666, t667)==FALSE_TYPE) goto l203; /* x263544 */ /* x263543 */ t669 = 'f'; /* x263542 */ t668 = a34709; /* x263541 */ t670 = ((unsigned)((unsigned char)t668))<<2; t671 = t669; if (f27360(t670, t671)==FALSE_TYPE) goto l203; /* x263561 */ /* x263560 */ /* x263559 */ /* x263558 */ /* x263556 */ /* x263552 */ /* x263551 */ t694 = a34709; /* x265931 */ t692 = (int)((unsigned char)t694); /* x263555 */ /* x263554 */ t695 = 'a'; /* x265930 */ t693 = (int)((unsigned char)t695); /* x265932 */ t690 = t692-t693; /* x263557 */ t691 = 10; /* x265933 */ t688 = t690+t691; /* x263547 */ t689 = f28608(t688); /* MOVE: dispatching squished to general */ if (t689==FALSE_TYPE) {r28477.tag = (unsigned)t689; return r28477;} r28477.tag = FIXNUM_TYPE; r28477.value.fixnum_type = (int)(((int)t689)>>1); return r28477; l203: /* x263590 */ /* x263571 */ /* x263565 */ /* x263564 */ t673 = 'A'; /* x263563 */ t672 = a34709; /* x263562 */ t674 = ((unsigned)((unsigned char)t672))<<2; t675 = t673; if (f27366(t674, t675)==FALSE_TYPE) goto l206; /* x263569 */ /* x263568 */ t677 = 'F'; /* x263567 */ t676 = a34709; /* x263566 */ t678 = ((unsigned)((unsigned char)t676))<<2; t679 = t677; if (f27360(t678, t679)==FALSE_TYPE) goto l206; /* x263586 */ /* x263585 */ /* x263584 */ /* x263583 */ /* x263581 */ /* x263577 */ /* x263576 */ t686 = a34709; /* x265927 */ t684 = (int)((unsigned char)t686); /* x263580 */ /* x263579 */ t687 = 'A'; /* x265926 */ t685 = (int)((unsigned char)t687); /* x265928 */ t682 = t684-t685; /* x263582 */ t683 = 10; /* x265929 */ t680 = t682+t683; /* x263572 */ t681 = f28608(t680); /* MOVE: dispatching squished to general */ if (t681==FALSE_TYPE) {r28477.tag = (unsigned)t681; return r28477;} r28477.tag = FIXNUM_TYPE; r28477.value.fixnum_type = (int)(((int)t681)>>1); return r28477; l206: /* x263589 */ /* x263588 */ /* x263587 */ r28477.tag = FALSE_TYPE; return r28477; l185: /* x263714 */ /* x263612 */ /* x263611 */ t606 = '-'; /* x263610 */ t605 = a34707; /* x263609 */ t607.tag = ((unsigned)((unsigned char)t605))<<2; t608 = t606; if (f27342(t607, t608)==FALSE_TYPE) goto l187; /* x263710 */ /* x263709 */ /* x263708 */ /* x263616 */ /* x263614 */ t609 = a34658; /* x263615 */ t610 = a34657; /* x265923 */ if (!(t609==t610)) goto l189; /* x263617 */ r28477.tag = FALSE_TYPE; return r28477; l189: /* x263707 */ /* x263706 */ /* x263704 */ t657 = a34656; /* x263705 */ t658 = a34658; /* x265910 */ if (!((t657.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 28560]"); string_ref1_error();} if ((t658<0)||(t658>=strlen(t657.value.string_type))) {backtrace_internal("[inside LOOP 28560]"); string_ref3_error();} t611 = (t657.value.string_type)[t658]; /* x263702 */ a34711 = t611; /* x263701 */ /* x263700 */ /* x263699 */ /* x263697 */ t655 = a34658; /* x263698 */ t656 = 1; /* x265911 */ a34658 = t655+t656; /* x263695 */ /* x263694 */ /* x263620 */ /* x263619 */ t612 = a34711; /* x263618 */ t613.tag = ((unsigned)((unsigned char)t612))<<2; if (f27405(t613)==FALSE_TYPE) goto l191; /* x263634 */ /* x263633 */ /* x263632 */ /* x263631 */ /* x263630 */ /* x263626 */ /* x263625 */ t653 = a34711; /* x265921 */ t651 = (int)((unsigned char)t653); /* x263629 */ /* x263628 */ t654 = '0'; /* x265920 */ t652 = (int)((unsigned char)t654); /* x265922 */ t650 = t651-t652; /* x263622 */ t648 = f28608(t650); /* x263621 */ /* MOVE: dispatching squished to general */ if (t648==FALSE_TYPE) t649.tag = (unsigned)t648; else {t649.tag = FIXNUM_TYPE; t649.value.fixnum_type = (int)(((int)t648)>>1);} return f28591(t649); l191: /* x263693 */ /* x263644 */ /* x263638 */ /* x263637 */ t615 = 'a'; /* x263636 */ t614 = a34711; /* x263635 */ t616 = ((unsigned)((unsigned char)t614))<<2; t617 = t615; if (f27366(t616, t617)==FALSE_TYPE) goto l193; /* x263642 */ /* x263641 */ t619 = 'f'; /* x263640 */ t618 = a34711; /* x263639 */ t620 = ((unsigned)((unsigned char)t618))<<2; t621 = t619; if (f27360(t620, t621)==FALSE_TYPE) goto l193; /* x263661 */ /* x263660 */ /* x263659 */ /* x263658 */ /* x263657 */ /* x263655 */ /* x263651 */ /* x263650 */ t646 = a34711; /* x265917 */ t644 = (int)((unsigned char)t646); /* x263654 */ /* x263653 */ t647 = 'a'; /* x265916 */ t645 = (int)((unsigned char)t647); /* x265918 */ t642 = t644-t645; /* x263656 */ t643 = 10; /* x265919 */ t641 = t642+t643; /* x263646 */ t639 = f28608(t641); /* x263645 */ /* MOVE: dispatching squished to general */ if (t639==FALSE_TYPE) t640.tag = (unsigned)t639; else {t640.tag = FIXNUM_TYPE; t640.value.fixnum_type = (int)(((int)t639)>>1);} return f28591(t640); l193: /* x263692 */ /* x263671 */ /* x263665 */ /* x263664 */ t623 = 'A'; /* x263663 */ t622 = a34711; /* x263662 */ t624 = ((unsigned)((unsigned char)t622))<<2; t625 = t623; if (f27366(t624, t625)==FALSE_TYPE) goto l196; /* x263669 */ /* x263668 */ t627 = 'F'; /* x263667 */ t626 = a34711; /* x263666 */ t628 = ((unsigned)((unsigned char)t626))<<2; t629 = t627; if (f27360(t628, t629)==FALSE_TYPE) goto l196; /* x263688 */ /* x263687 */ /* x263686 */ /* x263685 */ /* x263684 */ /* x263682 */ /* x263678 */ /* x263677 */ t637 = a34711; /* x265913 */ t635 = (int)((unsigned char)t637); /* x263681 */ /* x263680 */ t638 = 'A'; /* x265912 */ t636 = (int)((unsigned char)t638); /* x265914 */ t633 = t635-t636; /* x263683 */ t634 = 10; /* x265915 */ t632 = t633+t634; /* x263673 */ t630 = f28608(t632); /* x263672 */ /* MOVE: dispatching squished to general */ if (t630==FALSE_TYPE) t631.tag = (unsigned)t630; else {t631.tag = FIXNUM_TYPE; t631.value.fixnum_type = (int)(((int)t630)>>1);} return f28591(t631); l196: /* x263691 */ /* x263690 */ /* x263689 */ r28477.tag = FALSE_TYPE; return r28477; l187: /* x263713 */ /* x263712 */ /* x263711 */ r28477.tag = FALSE_TYPE; return r28477; l172: /* x263737 */ /* x263736 */ /* x263735 */ r28477.tag = FALSE_TYPE; return r28477; l127: /* x264005 */ /* x263761 */ /* x263760 */ t435 = '+'; /* x263759 */ t434 = a34675; /* x263758 */ t436.tag = ((unsigned)((unsigned char)t434))<<2; t437 = t435; if (f27342(t436, t437)==FALSE_TYPE) goto l129; /* x263846 */ /* x263845 */ /* x263844 */ /* x263765 */ /* x263763 */ t509 = a34658; /* x263764 */ t510 = a34657; /* x265905 */ if (!(t509==t510)) goto l151; /* x263766 */ r28477.tag = FALSE_TYPE; return r28477; l151: /* x263843 */ /* x263842 */ /* x263840 */ t543 = a34656; /* x263841 */ t544 = a34658; /* x265893 */ if (!((t543.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 28569]"); string_ref1_error();} if ((t544<0)||(t544>=strlen(t543.value.string_type))) {backtrace_internal("[inside LOOP 28569]"); string_ref3_error();} t511 = (t543.value.string_type)[t544]; /* x263838 */ a34713 = t511; /* x263837 */ /* x263836 */ /* x263835 */ /* x263833 */ t541 = a34658; /* x263834 */ t542 = 1; /* x265894 */ a34658 = t541+t542; /* x263831 */ /* x263830 */ /* x263769 */ /* x263768 */ t512 = a34713; /* x263767 */ t513.tag = ((unsigned)((unsigned char)t512))<<2; if (f27405(t513)==FALSE_TYPE) goto l153; /* x263781 */ /* x263780 */ /* x263779 */ /* x263778 */ /* x263774 */ /* x263773 */ t539 = a34713; /* x265903 */ t537 = (int)((unsigned char)t539); /* x263777 */ /* x263776 */ t540 = '0'; /* x265902 */ t538 = (int)((unsigned char)t540); /* x265904 */ t536 = t537-t538; /* x263770 */ return f28643(t536); l153: /* x263829 */ /* x263785 */ /* x263784 */ t515 = '.'; /* x263783 */ t514 = a34713; /* x263782 */ t516.tag = ((unsigned)((unsigned char)t514))<<2; t517 = t515; if (f27342(t516, t517)==FALSE_TYPE) goto l155; /* x263825 */ /* x263824 */ /* x263823 */ /* x263789 */ /* x263787 */ t518 = a34658; /* x263788 */ t519 = a34657; /* x265901 */ if (!(t518==t519)) goto l157; /* x263790 */ r28477.tag = FALSE_TYPE; return r28477; l157: /* x263822 */ /* x263821 */ /* x263819 */ t534 = a34656; /* x263820 */ t535 = a34658; /* x265895 */ if (!((t534.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 28573]"); string_ref1_error();} if ((t535<0)||(t535>=strlen(t534.value.string_type))) {backtrace_internal("[inside LOOP 28573]"); string_ref3_error();} t520 = (t534.value.string_type)[t535]; /* x263817 */ a34715 = t520; /* x263816 */ /* x263815 */ /* x263814 */ /* x263812 */ t532 = a34658; /* x263813 */ t533 = 1; /* x265896 */ a34658 = t532+t533; /* x263810 */ /* x263809 */ /* x263793 */ /* x263792 */ t521 = a34715; /* x263791 */ t522.tag = ((unsigned)((unsigned char)t521))<<2; if (f27405(t522)==FALSE_TYPE) goto l159; /* x263807 */ /* x263805 */ /* x263803 */ /* x263799 */ /* x263798 */ t530 = a34715; /* x265898 */ t528 = (int)((unsigned char)t530); /* x263802 */ /* x263801 */ t531 = '0'; /* x265897 */ t529 = (int)((unsigned char)t531); /* x265899 */ t526 = t528-t529; /* x263804 */ t527 = 1.0e1; /* x265900 */ t523 = t526/t527; /* x263806 */ t524 = 1.0e2; /* x263794 */ t525 = f28615(t523, t524); return *((struct w29434 *)(&t525)); l159: /* x263808 */ r28477.tag = FALSE_TYPE; return r28477; l155: /* x263828 */ /* x263827 */ /* x263826 */ r28477.tag = FALSE_TYPE; return r28477; l129: /* x264004 */ /* x263850 */ /* x263849 */ t439 = '-'; /* x263848 */ t438 = a34675; /* x263847 */ t440.tag = ((unsigned)((unsigned char)t438))<<2; t441 = t439; if (f27342(t440, t441)==FALSE_TYPE) goto l131; /* x263939 */ /* x263938 */ /* x263937 */ /* x263854 */ /* x263852 */ t471 = a34658; /* x263853 */ t472 = a34657; /* x265892 */ if (!(t471==t472)) goto l141; /* x263855 */ r28477.tag = FALSE_TYPE; return r28477; l141: /* x263936 */ /* x263935 */ /* x263933 */ t507 = a34656; /* x263934 */ t508 = a34658; /* x265880 */ if (!((t507.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 28577]"); string_ref1_error();} if ((t508<0)||(t508>=strlen(t507.value.string_type))) {backtrace_internal("[inside LOOP 28577]"); string_ref3_error();} t473 = (t507.value.string_type)[t508]; /* x263931 */ a34717 = t473; /* x263930 */ /* x263929 */ /* x263928 */ /* x263926 */ t505 = a34658; /* x263927 */ t506 = 1; /* x265881 */ a34658 = t505+t506; /* x263924 */ /* x263923 */ /* x263858 */ /* x263857 */ t474 = a34717; /* x263856 */ t475.tag = ((unsigned)((unsigned char)t474))<<2; if (f27405(t475)==FALSE_TYPE) goto l143; /* x263872 */ /* x263871 */ /* x263870 */ /* x263869 */ /* x263868 */ /* x263864 */ /* x263863 */ t503 = a34717; /* x265890 */ t501 = (int)((unsigned char)t503); /* x263867 */ /* x263866 */ t504 = '0'; /* x265889 */ t502 = (int)((unsigned char)t504); /* x265891 */ t500 = t501-t502; /* x263860 */ t499 = f28643(t500); /* x263859 */ return f28591(t499); l143: /* x263922 */ /* x263876 */ /* x263875 */ t477 = '.'; /* x263874 */ t476 = a34717; /* x263873 */ t478.tag = ((unsigned)((unsigned char)t476))<<2; t479 = t477; if (f27342(t478, t479)==FALSE_TYPE) goto l145; /* x263918 */ /* x263917 */ /* x263916 */ /* x263880 */ /* x263878 */ t480 = a34658; /* x263879 */ t481 = a34657; /* x265888 */ if (!(t480==t481)) goto l147; /* x263881 */ r28477.tag = FALSE_TYPE; return r28477; l147: /* x263915 */ /* x263914 */ /* x263912 */ t497 = a34656; /* x263913 */ t498 = a34658; /* x265882 */ if (!((t497.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 28581]"); string_ref1_error();} if ((t498<0)||(t498>=strlen(t497.value.string_type))) {backtrace_internal("[inside LOOP 28581]"); string_ref3_error();} t482 = (t497.value.string_type)[t498]; /* x263910 */ a34719 = t482; /* x263909 */ /* x263908 */ /* x263907 */ /* x263905 */ t495 = a34658; /* x263906 */ t496 = 1; /* x265883 */ a34658 = t495+t496; /* x263903 */ /* x263902 */ /* x263884 */ /* x263883 */ t483 = a34719; /* x263882 */ t484.tag = ((unsigned)((unsigned char)t483))<<2; if (f27405(t484)==FALSE_TYPE) goto l149; /* x263900 */ /* x263899 */ /* x263897 */ /* x263895 */ /* x263891 */ /* x263890 */ t493 = a34719; /* x265885 */ t491 = (int)((unsigned char)t493); /* x263894 */ /* x263893 */ t494 = '0'; /* x265884 */ t492 = (int)((unsigned char)t494); /* x265886 */ t489 = t491-t492; /* x263896 */ t490 = 1.0e1; /* x265887 */ t487 = t489/t490; /* x263898 */ t488 = 1.0e2; /* x263886 */ t485 = f28615(t487, t488); /* x263885 */ t486 = *((struct w29434 *)(&t485)); return f28591(t486); l149: /* x263901 */ r28477.tag = FALSE_TYPE; return r28477; l145: /* x263921 */ /* x263920 */ /* x263919 */ r28477.tag = FALSE_TYPE; return r28477; l131: /* x264003 */ /* x263943 */ /* x263942 */ t443 = '.'; /* x263941 */ t442 = a34675; /* x263940 */ t444.tag = ((unsigned)((unsigned char)t442))<<2; t445 = t443; if (f27342(t444, t445)==FALSE_TYPE) goto l133; /* x263983 */ /* x263982 */ /* x263981 */ /* x263947 */ /* x263945 */ t453 = a34658; /* x263946 */ t454 = a34657; /* x265879 */ if (!(t453==t454)) goto l137; /* x263948 */ r28477.tag = FALSE_TYPE; return r28477; l137: /* x263980 */ /* x263979 */ /* x263977 */ t469 = a34656; /* x263978 */ t470 = a34658; /* x265873 */ if (!((t469.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 28585]"); string_ref1_error();} if ((t470<0)||(t470>=strlen(t469.value.string_type))) {backtrace_internal("[inside LOOP 28585]"); string_ref3_error();} t455 = (t469.value.string_type)[t470]; /* x263975 */ a34721 = t455; /* x263974 */ /* x263973 */ /* x263972 */ /* x263970 */ t467 = a34658; /* x263971 */ t468 = 1; /* x265874 */ a34658 = t467+t468; /* x263968 */ /* x263967 */ /* x263951 */ /* x263950 */ t456 = a34721; /* x263949 */ t457.tag = ((unsigned)((unsigned char)t456))<<2; if (f27405(t457)==FALSE_TYPE) goto l139; /* x263965 */ /* x263963 */ /* x263961 */ /* x263957 */ /* x263956 */ t465 = a34721; /* x265876 */ t463 = (int)((unsigned char)t465); /* x263960 */ /* x263959 */ t466 = '0'; /* x265875 */ t464 = (int)((unsigned char)t466); /* x265877 */ t461 = t463-t464; /* x263962 */ t462 = 1.0e1; /* x265878 */ t458 = t461/t462; /* x263964 */ t459 = 1.0e2; /* x263952 */ t460 = f28615(t458, t459); return *((struct w29434 *)(&t460)); l139: /* x263966 */ r28477.tag = FALSE_TYPE; return r28477; l133: /* x264002 */ /* x263986 */ /* x263985 */ t446 = a34675; /* x263984 */ t447.tag = ((unsigned)((unsigned char)t446))<<2; if (f27405(t447)==FALSE_TYPE) goto l135; /* x263998 */ /* x263997 */ /* x263996 */ /* x263995 */ /* x263991 */ /* x263990 */ t451 = a34675; /* x265871 */ t449 = (int)((unsigned char)t451); /* x263994 */ /* x263993 */ t452 = '0'; /* x265870 */ t450 = (int)((unsigned char)t452); /* x265872 */ t448 = t449-t450; /* x263987 */ return f28643(t448); l135: /* x264001 */ /* x264000 */ /* x263999 */ r28477.tag = FALSE_TYPE; return r28477;} /* LOOP[28454] */ struct structure_type24753 *f28454(float a34640) {struct structure_type24753 *r28454; float a34641; /* FLOAT-DIGIT */ int a34642; /* DIGIT */ float a34643; /* MANTISSA */ int a34646; /* EXPONENT */ struct structure_type24753 *a34647; /* CHARACTERS */ int a34650; /* EXPONENT */ struct structure_type24753 *a34651; /* CHARACTERS */ float t998; int t999; char t1000; struct structure_type24753 *t1001; int t1002; float t1003; float t1004; float t1005; struct structure_type24753 *t1006; int t1007; char t1008; struct structure_type24753 *t1009; int t1010; int t1011; int t1012; int t1013; int t1014; struct structure_type24753 *t1015; int t1016; int t1017; char t1018; struct structure_type24753 *t1019; int t1020; int t1021; int t1022; int t1023; char t1024; struct structure_type24753 *t1025; int t1026; int t1027; int t1028; struct structure_type24753 *t1029; int t1030; int t1031; char t1032; struct structure_type24753 *t1033; int t1034; int t1035; int t1036; float t1037; float t1038; float t1039; float t1040; float t1041; float t1042; /* x262683 */ /* x262682 */ /* x262681 */ t1042 = a34640; /* x266035 */ t998 = floor(t1042); /* x262679 */ a34641 = t998; /* x262678 */ /* x262677 */ /* x262676 */ t1041 = a34641; /* x266036 */ t999 = (int)t1041; /* x262674 */ a34642 = t999; /* x262673 */ /* x262672 */ /* x262671 */ /* x262563 */ /* x262562 */ t1002 = a34642; /* x262561 */ t1000 = f28444(t1002); /* x262670 */ /* x262669 */ /* x262664 */ t1037 = a34602; /* x262668 */ /* x262666 */ t1039 = a34640; /* x262667 */ t1040 = a34641; /* x266037 */ t1038 = t1039-t1040; /* x266038 */ t1003 = t1037*t1038; /* x262662 */ a34643 = t1003; /* x262661 */ /* x262566 */ /* x262565 */ t1004 = a34643; /* x266053 */ if (!(t1004==0.0)) goto l284; /* x262657 */ /* x262569 */ /* x262568 */ t1007 = a34635; /* x266052 */ if (!(t1007==0)) goto l287; /* x262570 */ t1001 = (struct structure_type24753 *)NULL_TYPE; goto l288; l287: /* x262656 */ /* x262572 */ t1008 = 'e'; /* x262655 */ /* x262575 */ /* x262574 */ t1010 = a34635; /* x266050 */ if (!(t1010>0)) goto l290; /* x262609 */ /* x262608 */ /* x262607 */ /* x262605 */ t1026 = a34635; /* x262606 */ /* x262604 */ /* x262603 */ /* x262602 */ /* x262601 */ /* x262600 */ /* x262599 */ /* x262598 */ /* x262577 */ /* x262576 */ a34646 = t1026; a34647 = (struct structure_type24753 *)NULL_TYPE; h28462: /* x262597 */ /* x262580 */ /* x262579 */ t1027 = a34646; /* x266049 */ if (!(t1027==0)) goto l299; /* x262581 */ t1009 = a34647; goto l300; l299: /* x262596 */ /* x262586 */ /* x262584 */ t1030 = a34646; /* x262585 */ t1031 = a34601; /* x266048 */ t1028 = t1030/t1031; /* x262595 */ /* x262593 */ /* x262592 */ /* x262590 */ t1035 = a34646; /* x262591 */ t1036 = a34601; /* x266046 */ t1034 = t1035%t1036; /* x262588 */ t1032 = f28444(t1034); /* x262594 */ t1033 = a34647; /* x266047 */ if ((fp28403+sizeof(struct structure_type24753))>(&((region28403->data)[region_size28403]))) {struct region28403 *region; unsigned region_size = REGION_SIZE28403; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28403 *)GC_malloc_uncollectable(sizeof(struct region28403)+(region_size-1)); if (region==NULL) {backtrace_internal("LOOP[28462]"); out_of_memory_error();} region->region = region28403; region_size28403 = region_size; region28403 = region; fp28403 = &((region->data)[0]); ALIGN(fp28403);} t1029 = (struct structure_type24753 *)fp28403; fp28403 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t1029->s0.tag = ((unsigned)((unsigned char)t1032))<<2; /* MOVE: branching squeezed to general */ if (t1033>=((struct structure_type24753 *)VALUE_OFFSET)) {t1029->s1.tag = STRUCTURE_TYPE24753; t1029->s1.value.structure_type24753 = t1033;} else t1029->s1.tag = (unsigned)t1033; /* x262582 */ a34646 = t1028; a34647 = t1029; goto h28462; l300: goto l291; l290: /* x262654 */ /* x262612 */ /* x262611 */ t1011 = a34635; /* x266045 */ if (!(t1011<0)) goto l293; /* x262651 */ /* x262650 */ /* x262649 */ /* x262647 */ t1012 = a34635; /* x262648 */ /* x262646 */ /* x262645 */ /* x262644 */ /* x262643 */ /* x262642 */ /* x262641 */ /* x262640 */ /* x262614 */ /* x262613 */ a34650 = t1012; a34651 = (struct structure_type24753 *)NULL_TYPE; h28467: /* x262639 */ /* x262617 */ /* x262616 */ t1013 = a34650; /* x266044 */ if (!(t1013==0)) goto l296; /* x262621 */ /* x262619 */ t1024 = '-'; /* x262620 */ t1025 = a34651; /* x266043 */ if ((fp28403+sizeof(struct structure_type24753))>(&((region28403->data)[region_size28403]))) {struct region28403 *region; unsigned region_size = REGION_SIZE28403; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28403 *)GC_malloc_uncollectable(sizeof(struct region28403)+(region_size-1)); if (region==NULL) {backtrace_internal("LOOP[28467]"); out_of_memory_error();} region->region = region28403; region_size28403 = region_size; region28403 = region; fp28403 = &((region->data)[0]); ALIGN(fp28403);} t1009 = (struct structure_type24753 *)fp28403; fp28403 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t1009->s0.tag = ((unsigned)((unsigned char)t1024))<<2; /* MOVE: branching squeezed to general */ if (t1025>=((struct structure_type24753 *)VALUE_OFFSET)) {t1009->s1.tag = STRUCTURE_TYPE24753; t1009->s1.value.structure_type24753 = t1025;} else t1009->s1.tag = (unsigned)t1025; goto l297; l296: /* x262638 */ /* x262626 */ /* x262624 */ t1016 = a34650; /* x262625 */ t1017 = a34601; /* x266042 */ t1014 = t1016/t1017; /* x262637 */ /* x262635 */ /* x262634 */ /* x262633 */ /* x262631 */ t1022 = a34650; /* x262632 */ t1023 = a34601; /* x266039 */ t1021 = t1022%t1023; /* x266040 */ t1020 = -t1021; /* x262628 */ t1018 = f28444(t1020); /* x262636 */ t1019 = a34651; /* x266041 */ if ((fp28403+sizeof(struct structure_type24753))>(&((region28403->data)[region_size28403]))) {struct region28403 *region; unsigned region_size = REGION_SIZE28403; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28403 *)GC_malloc_uncollectable(sizeof(struct region28403)+(region_size-1)); if (region==NULL) {backtrace_internal("LOOP[28467]"); out_of_memory_error();} region->region = region28403; region_size28403 = region_size; region28403 = region; fp28403 = &((region->data)[0]); ALIGN(fp28403);} t1015 = (struct structure_type24753 *)fp28403; fp28403 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t1015->s0.tag = ((unsigned)((unsigned char)t1018))<<2; /* MOVE: branching squeezed to general */ if (t1019>=((struct structure_type24753 *)VALUE_OFFSET)) {t1015->s1.tag = STRUCTURE_TYPE24753; t1015->s1.value.structure_type24753 = t1019;} else t1015->s1.tag = (unsigned)t1019; /* x262622 */ a34650 = t1014; a34651 = t1015; goto h28467; l297: goto l294; l293: /* x262653 */ /* x262652 */ l294: l291: /* x266051 */ if ((fp28403+sizeof(struct structure_type24753))>(&((region28403->data)[region_size28403]))) {struct region28403 *region; unsigned region_size = REGION_SIZE28403; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28403 *)GC_malloc_uncollectable(sizeof(struct region28403)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside LOOP 28458]"); out_of_memory_error();} region->region = region28403; region_size28403 = region_size; region28403 = region; fp28403 = &((region->data)[0]); ALIGN(fp28403);} t1001 = (struct structure_type24753 *)fp28403; fp28403 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t1001->s0.tag = ((unsigned)((unsigned char)t1008))<<2; /* MOVE: branching squeezed to general */ if (t1009>=((struct structure_type24753 *)VALUE_OFFSET)) {t1001->s1.tag = STRUCTURE_TYPE24753; t1001->s1.value.structure_type24753 = t1009;} else t1001->s1.tag = (unsigned)t1009; l288: goto l285; l284: /* x262660 */ /* x262659 */ t1005 = a34643; /* x262658 */ t1006 = f28454(t1005); t1001 = t1006; l285: /* x266054 */ if ((fp28403+sizeof(struct structure_type24753))>(&((region28403->data)[region_size28403]))) {struct region28403 *region; unsigned region_size = REGION_SIZE28403; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28403 *)GC_malloc_uncollectable(sizeof(struct region28403)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside LOOP 28457]"); out_of_memory_error();} region->region = region28403; region_size28403 = region_size; region28403 = region; fp28403 = &((region->data)[0]); ALIGN(fp28403);} r28454 = (struct structure_type24753 *)fp28403; fp28403 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); r28454->s0.tag = ((unsigned)((unsigned char)t1000))<<2; /* MOVE: branching squeezed to general */ if (t1001>=((struct structure_type24753 *)VALUE_OFFSET)) {r28454->s1.tag = STRUCTURE_TYPE24753; r28454->s1.value.structure_type24753 = t1001;} else r28454->s1.tag = (unsigned)t1001; return r28454;} /* MANTISSA-EXPONENT->CHARACTERS[28445] */ struct structure_type24753 *f28445(float a34634) {struct structure_type24753 *r28445; float a34636; /* FLOAT-DIGIT */ int a34637; /* DIGIT */ float t1043; int t1044; int t1045; int t1046; int t1047; int t1048; char t1049; struct structure_type24753 *t1050; int t1051; char t1052; struct structure_type24753 *t1053; float t1054; float t1055; float t1056; float t1057; float t1058; float t1059; int t1060; float t1061; float t1062; int t1063; int t1064; float t1065; int t1066; float t1067; float t1068; int t1069; int t1070; float t1071; float t1072; h28445: /* x262716 */ /* x262715 */ /* x262714 */ t1072 = a34634; /* x266031 */ t1043 = floor(t1072); /* x262712 */ a34636 = t1043; /* x262711 */ /* x262710 */ /* x262709 */ t1071 = a34636; /* x266032 */ t1044 = (int)t1071; /* x262707 */ a34637 = t1044; /* x262706 */ /* x262705 */ /* x262704 */ /* x262523 */ /* x262521 */ t1045 = a34637; /* x262522 */ t1046 = 0; /* x266062 */ if (!(t1045==t1046)) goto l302; /* x262535 */ /* x262534 */ /* x262533 */ /* x262528 */ /* x262526 */ t1067 = a34602; /* x262527 */ t1068 = a34634; /* x266061 */ t1065 = t1067*t1068; /* x262532 */ /* x262530 */ t1069 = a34635; /* x262531 */ t1070 = 1; /* x266060 */ t1066 = t1069-t1070; /* x262524 */ a34634 = t1065; a34635 = t1066; goto h28445; l302: /* x262703 */ /* x262539 */ /* x262537 */ t1047 = a34637; /* x262538 */ t1048 = a34601; /* x266059 */ if (!(t1047==t1048)) goto l304; /* x262551 */ /* x262550 */ /* x262549 */ /* x262544 */ /* x262542 */ t1061 = a34603; /* x262543 */ t1062 = a34634; /* x266058 */ t1059 = t1061*t1062; /* x262548 */ /* x262546 */ t1063 = a34635; /* x262547 */ t1064 = 1; /* x266057 */ t1060 = t1063+t1064; /* x262540 */ a34634 = t1059; a34635 = t1060; goto h28445; l304: /* x262702 */ /* x262701 */ /* x262700 */ /* x262555 */ /* x262554 */ t1051 = a34637; /* x262553 */ t1049 = f28444(t1051); /* x262699 */ /* x262557 */ t1052 = '.'; /* x262698 */ /* x262697 */ /* x262692 */ t1055 = a34602; /* x262696 */ /* x262694 */ t1057 = a34634; /* x262695 */ t1058 = a34636; /* x266033 */ t1056 = t1057-t1058; /* x266034 */ t1054 = t1055*t1056; /* x262690 */ /* x262689 */ /* x262688 */ /* x262687 */ /* x262686 */ /* x262685 */ /* x262684 */ /* x262559 */ /* x262558 */ t1053 = f28454(t1054); /* x266055 */ if ((fp28403+sizeof(struct structure_type24753))>(&((region28403->data)[region_size28403]))) {struct region28403 *region; unsigned region_size = REGION_SIZE28403; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28403 *)GC_malloc_uncollectable(sizeof(struct region28403)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside MANTISSA-EXPONENT->CHARACTERS 28451]"); out_of_memory_error();} region->region = region28403; region_size28403 = region_size; region28403 = region; fp28403 = &((region->data)[0]); ALIGN(fp28403);} t1050 = (struct structure_type24753 *)fp28403; fp28403 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t1050->s0.tag = ((unsigned)((unsigned char)t1052))<<2; t1050->s1.tag = STRUCTURE_TYPE24753; t1050->s1.value.structure_type24753 = t1053; /* x266056 */ if ((fp28403+sizeof(struct structure_type24753))>(&((region28403->data)[region_size28403]))) {struct region28403 *region; unsigned region_size = REGION_SIZE28403; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28403 *)GC_malloc_uncollectable(sizeof(struct region28403)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside MANTISSA-EXPONENT->CHARACTERS 28451]"); out_of_memory_error();} region->region = region28403; region_size28403 = region_size; region28403 = region; fp28403 = &((region->data)[0]); ALIGN(fp28403);} r28445 = (struct structure_type24753 *)fp28403; fp28403 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); r28445->s0.tag = ((unsigned)((unsigned char)t1049))<<2; r28445->s1.tag = STRUCTURE_TYPE24753; r28445->s1.value.structure_type24753 = t1050; return r28445;} /* HEX-DIGIT->CHAR[28444] */ char f28444(int a34633) {struct headed_vector_type27486 *t1073; int t1074; /* x262517 */ /* x262515 */ t1073 = (struct headed_vector_type27486 *)(&t1075); /* x262516 */ t1074 = a34633; /* x266063 */ if ((t1074<0)||(t1074>=(t1073->length))) {backtrace_internal("HEX-DIGIT->CHAR[28444]"); vector_ref3_error();} return (t1073->element)[t1074];} /* NUMBER->STRING[28396] */ char *f28396(struct w49 a34599) {float a34608; /* NUMBER */ float a34611; /* MANTISSA */ int a34612; /* EXPONENT */ float a34615; /* MANTISSA */ int a34616; /* EXPONENT */ float a34619; /* MANTISSA */ int a34620; /* EXPONENT */ float a34623; /* MANTISSA */ int a34624; /* EXPONENT */ int a34627; /* NUMBER */ struct structure_type24753 *a34628; /* CHARACTERS */ int a34631; /* NUMBER */ struct structure_type24753 *a34632; /* CHARACTERS */ int t1076; float t1077; float t1078; struct w49 t1079; int t1080; int t1081; int t1082; int t1083; int t1084; struct structure_type24753 *t1085; int t1086; int t1087; char t1088; struct structure_type24753 *t1089; int t1090; int t1091; int t1092; int t1093; struct structure_type24753 *t1094; struct w49 t1095; char t1096; struct structure_type24753 *t1097; int t1098; int t1099; int t1100; struct structure_type24753 *t1101; int t1102; int t1103; char t1104; struct structure_type24753 *t1105; int t1106; int t1107; int t1108; struct structure_type24753 *t1109; struct w49 t1110; float t1111; float t1112; float t1113; float t1114; float t1115; float t1116; float t1117; float t1118; float t1119; struct structure_type24753 *t1120; struct w49 t1121; float t1122; int t1123; float t1124; int t1125; float t1126; float t1127; struct structure_type24753 *t1128; struct w49 t1129; float t1130; int t1131; float t1132; int t1133; float t1134; float t1135; int t1136; int t1137; float t1138; float t1139; float t1140; int t1141; float t1142; float t1143; struct structure_type24753 *t1144; struct w49 t1145; float t1146; int t1147; float t1148; int t1149; float t1150; float t1151; int t1152; int t1153; float t1154; float t1155; float t1156; float t1157; float t1158; float t1159; float t1160; float t1161; float t1162; float t1163; struct structure_type24753 *t1164; struct w49 t1165; char t1166; struct structure_type24753 *t1167; float t1168; int t1169; float t1170; int t1171; float t1172; float t1173; struct structure_type24753 *t1174; struct w49 t1175; char t1176; struct structure_type24753 *t1177; float t1178; int t1179; float t1180; int t1181; float t1182; float t1183; int t1184; int t1185; float t1186; float t1187; float t1188; int t1189; float t1190; float t1191; struct structure_type24753 *t1192; struct w49 t1193; char t1194; struct structure_type24753 *t1195; float t1196; int t1197; float t1198; int t1199; float t1200; float t1201; int t1202; int t1203; float t1204; float t1205; float t1206; float t1207; int t1208; /* x262805 */ /* x262804 */ /* x262741 */ /* x262740 */ /* x266028 */ /* x262742 */ t1076 = 10; /* x262738 */ a34601 = t1076; /* x262737 */ /* x262736 */ /* x262735 */ t1208 = a34601; /* x266029 */ t1077 = (float)t1208; /* x262733 */ a34602 = t1077; /* x262732 */ /* x262731 */ /* x262730 */ t1207 = a34602; /* x266030 */ t1078 = 1.0/t1207; /* x262728 */ a34603 = t1078; /* x262727 */ /* x262726 */ /* x262725 */ /* x262722 */ /* x262721 */ /* x262724 */ /* x262723 */ /* x262720 */ /* x262719 */ /* x262519 */ /* x262518 */ /* x262718 */ /* x262717 */ /* x262497 */ /* x262496 */ /* x262156 */ /* x262155 */ t1079 = a34599; /* x266106 */ switch (t1079.tag) {case FIXNUM_TYPE: goto l306; break; case FLONUM_TYPE: break; default: backtrace_internal("[inside NUMBER->STRING 28402]"); inexact_error();} /* x262407 */ /* x262406 */ while (region28403!=((struct region28403 *)(&initial_region28403))) {struct region28403 *region; region = region28403; region28403 = region28403->region; GC_free(region);} region_size28403 = REGION_SIZE28403; fp28403 = &((region28403->data)[0]); ALIGN(fp28403); /* x262405 */ /* x262162 */ /* x262161 */ /* x262159 */ t1111 = a34599.value.flonum_type; /* x262160 */ t1112 = a34599.value.flonum_type; /* x266104 */ if (t1111==t1112) goto l316; /* x262165 */ /* x262164 */ /* x262163 */ return "#*NOT-A-NUMBER*"; l316: /* x262404 */ /* x262168 */ /* x262167 */ t1113 = a34599.value.flonum_type; /* x262166 */ if (!(t1113==HUGE_VAL)) goto l318; /* x262171 */ /* x262170 */ /* x262169 */ return "#*INFINITY*"; l318: /* x262403 */ /* x262174 */ /* x262173 */ t1114 = a34599.value.flonum_type; /* x266103 */ if (!(t1114<0.0)) goto l320; /* x262301 */ /* x262300 */ /* x262299 */ /* x262298 */ /* x262297 */ t1206 = a34599.value.flonum_type; /* x266087 */ t1156 = -t1206; /* x262295 */ a34608 = t1156; /* x262294 */ /* x262180 */ /* x262179 */ /* x262177 */ t1157 = a34608; /* x262178 */ t1158 = a34608; /* x266101 */ if (t1157==t1158) goto l332; /* x262183 */ /* x262182 */ /* x262181 */ return "-#*NOT-A-NUMBER*"; l332: /* x262293 */ /* x262186 */ /* x262185 */ t1159 = a34608; /* x262184 */ if (!(t1159==HUGE_VAL)) goto l334; /* x262189 */ /* x262188 */ /* x262187 */ return "-#*INFINITY*"; l334: /* x262292 */ /* x262193 */ /* x262191 */ t1160 = a34608; /* x262192 */ t1161 = a34602; /* x266100 */ if (!(t1160>=t1161)) goto l336; /* x262234 */ /* x262233 */ /* x262232 */ /* x262230 */ /* x262228 */ t1204 = a34603; /* x262229 */ t1205 = a34608; /* x266095 */ t1188 = t1204*t1205; /* x262231 */ t1189 = 1; /* x262226 */ /* x262225 */ /* x262224 */ /* x262223 */ /* x262222 */ /* x262221 */ /* x262220 */ /* x262195 */ /* x262194 */ a34611 = t1188; a34612 = t1189; h28413: /* x262219 */ /* x262199 */ /* x262197 */ t1190 = a34611; /* x262198 */ t1191 = a34602; /* x266099 */ if (!(t1190>=t1191)) goto l342; /* x262209 */ /* x262204 */ /* x262202 */ t1200 = a34603; /* x262203 */ t1201 = a34611; /* x266098 */ t1198 = t1200*t1201; /* x262208 */ /* x262206 */ t1202 = a34612; /* x262207 */ t1203 = 1; /* x266097 */ t1199 = t1202+t1203; /* x262200 */ a34611 = t1198; a34612 = t1199; goto h28413; l342: /* x262218 */ /* x262217 */ /* x262212 */ t1194 = '-'; /* x262216 */ /* x262214 */ t1196 = a34611; /* x262215 */ t1197 = a34612; /* x262213 */ a34635 = t1197; t1195 = f28445(t1196); /* x266096 */ t1192 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t1192==NULL) {backtrace_internal("LOOP[28413]"); out_of_memory_error();} t1192->s0.tag = ((unsigned)((unsigned char)t1194))<<2; t1192->s1.tag = STRUCTURE_TYPE24753; t1192->s1.value.structure_type24753 = t1195; /* x262210 */ t1193.tag = STRUCTURE_TYPE24753; t1193.value.structure_type24753 = t1192; return f27585(t1193); l336: /* x262291 */ /* x262238 */ /* x262236 */ t1162 = a34608; /* x262237 */ t1163 = 1.0; /* x266094 */ if (!(t1162s0.tag = ((unsigned)((unsigned char)t1176))<<2; t1174->s1.tag = STRUCTURE_TYPE24753; t1174->s1.value.structure_type24753 = t1177; /* x262255 */ t1175.tag = STRUCTURE_TYPE24753; t1175.value.structure_type24753 = t1174; return f27585(t1175); l338: /* x262290 */ /* x262289 */ /* x262288 */ /* x262287 */ /* x262282 */ t1166 = '-'; /* x262286 */ /* x262284 */ t1168 = a34608; /* x262285 */ t1169 = 0; /* x262283 */ a34635 = t1169; t1167 = f28445(t1168); /* x266088 */ t1164 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t1164==NULL) {backtrace_internal("[inside NUMBER->STRING 28420]"); out_of_memory_error();} t1164->s0.tag = ((unsigned)((unsigned char)t1166))<<2; t1164->s1.tag = STRUCTURE_TYPE24753; t1164->s1.value.structure_type24753 = t1167; /* x262280 */ t1165.tag = STRUCTURE_TYPE24753; t1165.value.structure_type24753 = t1164; return f27585(t1165); l320: /* x262402 */ /* x262304 */ /* x262303 */ t1115 = a34599.value.flonum_type; /* x266086 */ if (!(t1115==0.0)) goto l322; /* x262307 */ /* x262306 */ /* x262305 */ return "0.0"; l322: /* x262401 */ /* x262311 */ /* x262309 */ t1116 = a34599.value.flonum_type; /* x262310 */ t1117 = a34602; /* x266085 */ if (!(t1116>=t1117)) goto l324; /* x262349 */ /* x262348 */ /* x262347 */ /* x262345 */ /* x262343 */ t1154 = a34603; /* x262344 */ t1155 = a34599.value.flonum_type; /* x266081 */ t1140 = t1154*t1155; /* x262346 */ t1141 = 1; /* x262341 */ /* x262340 */ /* x262339 */ /* x262338 */ /* x262337 */ /* x262336 */ /* x262335 */ /* x262313 */ /* x262312 */ a34619 = t1140; a34620 = t1141; h28425: /* x262334 */ /* x262317 */ /* x262315 */ t1142 = a34619; /* x262316 */ t1143 = a34602; /* x266084 */ if (!(t1142>=t1143)) goto l330; /* x262327 */ /* x262322 */ /* x262320 */ t1150 = a34603; /* x262321 */ t1151 = a34619; /* x266083 */ t1148 = t1150*t1151; /* x262326 */ /* x262324 */ t1152 = a34620; /* x262325 */ t1153 = 1; /* x266082 */ t1149 = t1152+t1153; /* x262318 */ a34619 = t1148; a34620 = t1149; goto h28425; l330: /* x262333 */ /* x262332 */ /* x262330 */ t1146 = a34619; /* x262331 */ t1147 = a34620; /* x262329 */ a34635 = t1147; t1144 = f28445(t1146); /* x262328 */ t1145.tag = STRUCTURE_TYPE24753; t1145.value.structure_type24753 = t1144; return f27585(t1145); l324: /* x262400 */ /* x262353 */ /* x262351 */ t1118 = a34599.value.flonum_type; /* x262352 */ t1119 = 1.0; /* x266080 */ if (!(t11180)) goto l308; /* x262446 */ /* x262445 */ /* x262444 */ /* x262442 */ t1098 = a34599.value.fixnum_type; /* x262443 */ /* x262441 */ /* x262440 */ /* x262439 */ /* x262438 */ /* x262437 */ /* x262436 */ /* x262435 */ /* x262412 */ /* x262411 */ a34627 = t1098; a34628 = (struct structure_type24753 *)NULL_TYPE; h28436: /* x262434 */ /* x262415 */ /* x262414 */ t1099 = a34627; /* x266074 */ if (!(t1099==0)) goto l314; /* x262418 */ /* x262417 */ t1109 = a34628; /* x262416 */ /* MOVE: branching squeezed to general */ if (t1109>=((struct structure_type24753 *)VALUE_OFFSET)) {t1110.tag = STRUCTURE_TYPE24753; t1110.value.structure_type24753 = t1109;} else t1110.tag = (unsigned)t1109; return f27585(t1110); l314: /* x262433 */ /* x262423 */ /* x262421 */ t1102 = a34627; /* x262422 */ t1103 = a34601; /* x266073 */ t1100 = t1102/t1103; /* x262432 */ /* x262430 */ /* x262429 */ /* x262427 */ t1107 = a34627; /* x262428 */ t1108 = a34601; /* x266071 */ t1106 = t1107%t1108; /* x262425 */ t1104 = f28444(t1106); /* x262431 */ t1105 = a34628; /* x266072 */ t1101 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t1101==NULL) {backtrace_internal("LOOP[28436]"); out_of_memory_error();} t1101->s0.tag = ((unsigned)((unsigned char)t1104))<<2; /* MOVE: branching squeezed to general */ if (t1105>=((struct structure_type24753 *)VALUE_OFFSET)) {t1101->s1.tag = STRUCTURE_TYPE24753; t1101->s1.value.structure_type24753 = t1105;} else t1101->s1.tag = (unsigned)t1105; /* x262419 */ a34627 = t1100; a34628 = t1101; goto h28436; l308: /* x262494 */ /* x262449 */ /* x262448 */ t1081 = a34599.value.fixnum_type; /* x266070 */ if (!(t1081<0)) goto l310; /* x262490 */ /* x262489 */ /* x262488 */ /* x262486 */ t1082 = a34599.value.fixnum_type; /* x262487 */ /* x262485 */ /* x262484 */ /* x262483 */ /* x262482 */ /* x262481 */ /* x262480 */ /* x262479 */ /* x262451 */ /* x262450 */ a34631 = t1082; a34632 = (struct structure_type24753 *)NULL_TYPE; h28441: /* x262478 */ /* x262454 */ /* x262453 */ t1083 = a34631; /* x266069 */ if (!(t1083==0)) goto l312; /* x262460 */ /* x262459 */ /* x262457 */ t1096 = '-'; /* x262458 */ t1097 = a34632; /* x266068 */ t1094 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t1094==NULL) {backtrace_internal("LOOP[28441]"); out_of_memory_error();} t1094->s0.tag = ((unsigned)((unsigned char)t1096))<<2; /* MOVE: branching squeezed to general */ if (t1097>=((struct structure_type24753 *)VALUE_OFFSET)) {t1094->s1.tag = STRUCTURE_TYPE24753; t1094->s1.value.structure_type24753 = t1097;} else t1094->s1.tag = (unsigned)t1097; /* x262455 */ t1095.tag = STRUCTURE_TYPE24753; t1095.value.structure_type24753 = t1094; return f27585(t1095); l312: /* x262477 */ /* x262465 */ /* x262463 */ t1086 = a34631; /* x262464 */ t1087 = a34601; /* x266067 */ t1084 = t1086/t1087; /* x262476 */ /* x262474 */ /* x262473 */ /* x262472 */ /* x262470 */ t1092 = a34631; /* x262471 */ t1093 = a34601; /* x266064 */ t1091 = t1092%t1093; /* x266065 */ t1090 = -t1091; /* x262467 */ t1088 = f28444(t1090); /* x262475 */ t1089 = a34632; /* x266066 */ t1085 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t1085==NULL) {backtrace_internal("LOOP[28441]"); out_of_memory_error();} t1085->s0.tag = ((unsigned)((unsigned char)t1088))<<2; /* MOVE: branching squeezed to general */ if (t1089>=((struct structure_type24753 *)VALUE_OFFSET)) {t1085->s1.tag = STRUCTURE_TYPE24753; t1085->s1.value.structure_type24753 = t1089;} else t1085->s1.tag = (unsigned)t1089; /* x262461 */ a34631 = t1084; a34632 = t1085; goto h28441; l310: /* x262493 */ /* x262492 */ /* x262491 */ return "0";} /* DISPLAY2[28351] */ void f28351(struct w49 a34576, FILE *a34577) {struct w49 a34581; /* OBJ */ int a34593; /* I */ struct w49 t1209; struct w16638 t1210; struct w32142 t1211; struct w32134 t1212; struct w32119 t1213; struct w32111 t1214; struct w32103 t1215; struct w32087 t1216; struct w32087 t1217; struct w32078 t1218; struct w32070 t1219; struct w32062 t1220; struct w31981 t1221; char *t1222; FILE *t1223; struct w49 t1224; char t1225; FILE *t1226; char *t1227; FILE *t1228; struct w49 t1229; int t1230; struct headed_vector_type27896 *t1231; int t1232; int t1233; int t1234; struct w49 t1235; int t1236; int t1237; int t1238; char t1239; FILE *t1240; struct w49 t1241; FILE *t1242; struct w49 t1243; int t1244; struct w49 t1245; FILE *t1246; struct headed_vector_type27896 *t1247; int t1248; struct structure_type24753 *t1249; struct w49 t1250; struct w49 t1251; struct w49 t1252; struct w49 t1253; char t1254; FILE *t1255; struct w49 t1256; FILE *t1257; struct w49 t1258; char *t1259; FILE *t1260; struct w49 t1261; struct w49 t1262; FILE *t1263; struct w49 t1264; struct w49 t1265; struct w49 t1266; struct w49 t1267; FILE *t1268; struct w49 t1269; char t1270; FILE *t1271; char t1272; FILE *t1273; struct w49 t1274; FILE *t1275; struct w49 t1276; char t1277; FILE *t1278; char *t1279; FILE *t1280; struct w49 t1281; char *t1282; FILE *t1283; struct w49 t1284; char *t1285; FILE *t1286; struct w49 t1287; char *t1288; char *t1289; FILE *t1290; struct w49 t1291; char *t1292; FILE *t1293; struct w49 t1294; char *t1295; FILE *t1296; struct w49 t1297; struct w30215 t1298; float t1299; FILE *t1300; struct w49 t1301; int t1302; FILE *t1303; struct w49 t1304; char t1305; FILE *t1306; char *t1307; FILE *t1308; struct w49 t1309; char *t1310; FILE *t1311; struct w49 t1312; char *t1313; FILE *t1314; struct w49 t1315; /* x262151 */ /* x261805 */ /* x261804 */ t1209 = a34576; /* x266145 */ if (!((t1209.tag)==NULL_TYPE)) goto l345; /* x261811 */ /* x261810 */ /* x261809 */ /* x261807 */ t1313 = "()"; /* x261808 */ t1314 = a34577; /* x261806 */ t1315.tag = OUTPUT_PORT_TYPE; t1315.value.output_port_type = t1314; f28215(t1313, t1315); return; l345: /* x262150 */ /* x261815 */ /* x261813 */ t1210 = *((struct w16638 *)(&a34576)); /* x261814 */ /* x266144 */ if (!((t1210.tag)==TRUE_TYPE)) goto l347; /* x261821 */ /* x261820 */ /* x261819 */ /* x261817 */ t1310 = "#T"; /* x261818 */ t1311 = a34577; /* x261816 */ t1312.tag = OUTPUT_PORT_TYPE; t1312.value.output_port_type = t1311; f28215(t1310, t1312); return; l347: /* x262149 */ /* x261824 */ /* x261823 */ if (!((a34576.tag)==FALSE_TYPE)) goto l349; /* x261830 */ /* x261829 */ /* x261828 */ /* x261826 */ t1307 = "#F"; /* x261827 */ t1308 = a34577; /* x261825 */ t1309.tag = OUTPUT_PORT_TYPE; t1309.value.output_port_type = t1308; f28215(t1307, t1309); return; l349: /* x262148 */ /* x261833 */ /* x261832 */ t1211 = *((struct w32142 *)(&a34576)); /* x266142 */ if (!((t1211.tag)>2); /* x261836 */ t1306 = a34577; /* x261834 */ putc(t1305, t1306); return; l351: /* x262147 */ /* x261842 */ /* x261841 */ t1212 = *((struct w32134 *)(&a34576)); /* x266141 */ switch (t1212.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: break; default: goto l353;} /* x261856 */ /* x261855 */ /* x261854 */ /* x261845 */ /* x261844 */ t1298 = *((struct w30215 *)(&a34576)); /* x266140 */ if (!((t1298.tag)==FIXNUM_TYPE)) goto l383; /* x261849 */ /* x261847 */ t1302 = a34576.value.fixnum_type; /* x261848 */ t1303 = a34577; /* x261846 */ t1304.tag = OUTPUT_PORT_TYPE; t1304.value.output_port_type = t1303; f28224(t1302, t1304); return; l383: /* x261853 */ /* x261851 */ t1299 = a34576.value.flonum_type; /* x261852 */ t1300 = a34577; /* x261850 */ t1301.tag = OUTPUT_PORT_TYPE; t1301.value.output_port_type = t1300; f28274(t1299, t1301); return; l353: /* x262146 */ /* x261859 */ /* x261858 */ t1213 = *((struct w32119 *)(&a34576)); /* x266139 */ if (!((t1213.tag)==INPUT_PORT_TYPE)) goto l355; /* x261865 */ /* x261864 */ /* x261863 */ /* x261861 */ t1295 = "#*INPUT-PORT*"; /* x261862 */ t1296 = a34577; /* x261860 */ t1297.tag = OUTPUT_PORT_TYPE; t1297.value.output_port_type = t1296; f28215(t1295, t1297); return; l355: /* x262145 */ /* x261868 */ /* x261867 */ t1214 = *((struct w32111 *)(&a34576)); /* x266138 */ if (!((t1214.tag)==OUTPUT_PORT_TYPE)) goto l357; /* x261874 */ /* x261873 */ /* x261872 */ /* x261870 */ t1292 = "#*OUTPUT-PORT*"; /* x261871 */ t1293 = a34577; /* x261869 */ t1294.tag = OUTPUT_PORT_TYPE; t1294.value.output_port_type = t1293; f28215(t1292, t1294); return; l357: /* x262144 */ /* x261877 */ /* x261876 */ t1215 = *((struct w32103 *)(&a34576)); /* x266137 */ if (!((t1215.tag)==EOF_OBJECT_TYPE)) goto l359; /* x261883 */ /* x261882 */ /* x261881 */ /* x261879 */ t1289 = "#*EOF-OBJECT*"; /* x261880 */ t1290 = a34577; /* x261878 */ t1291.tag = OUTPUT_PORT_TYPE; t1291.value.output_port_type = t1290; f28215(t1289, t1291); return; l359: /* x262143 */ /* x261886 */ /* x261885 */ t1216 = *((struct w32087 *)(&a34576)); /* x266136 */ /* x262142 */ /* x261895 */ /* x261894 */ t1217 = *((struct w32087 *)(&a34576)); /* x266135 */ if (!((t1217.tag)==EXTERNAL_SYMBOL_TYPE)) goto l362; /* x261903 */ /* x261902 */ /* x261901 */ /* x261899 */ /* x261898 */ t1288 = a34576.value.external_symbol_type; /* x266134 */ t1285 = t1288; /* x261900 */ t1286 = a34577; /* x261896 */ t1287.tag = OUTPUT_PORT_TYPE; t1287.value.output_port_type = t1286; f28215(t1285, t1287); return; l362: /* x262141 */ /* x261906 */ /* x261905 */ t1218 = *((struct w32078 *)(&a34576)); /* x266133 */ switch (t1218.tag) {case TRUE_TYPE: case STRUCTURE_TYPE24753: case STRUCTURE_TYPE24757: case STRUCTURE_TYPE27501: case STRUCTURE_TYPE27510: case STRUCTURE_TYPE27621: case STRUCTURE_TYPE27650: case STRUCTURE_TYPE27669: case STRUCTURE_TYPE27673: case STRUCTURE_TYPE27692: case STRUCTURE_TYPE27694: case STRUCTURE_TYPE27698: case STRUCTURE_TYPE27745: case STRUCTURE_TYPE27747: case STRUCTURE_TYPE27750: case STRUCTURE_TYPE27753: case STRUCTURE_TYPE27756: case STRUCTURE_TYPE27761: case STRUCTURE_TYPE27769: case STRUCTURE_TYPE27776: case STRUCTURE_TYPE27779: case STRUCTURE_TYPE27858: case STRING_TYPE: case HEADED_VECTOR_TYPE27896: case STRUCTURE_TYPE27908: goto l364; break; default:;} /* x261912 */ /* x261911 */ /* x261910 */ /* x261908 */ t1282 = "#*PROCEDURE*"; /* x261909 */ t1283 = a34577; /* x261907 */ t1284.tag = OUTPUT_PORT_TYPE; t1284.value.output_port_type = t1283; f28215(t1282, t1284); return; l364: /* x262140 */ /* x261915 */ /* x261914 */ t1219 = *((struct w32070 *)(&a34576)); /* x266132 */ if (!((t1219.tag)==STRING_TYPE)) goto l366; /* x261921 */ /* x261920 */ /* x261919 */ /* x261917 */ t1279 = a34576.value.string_type; /* x261918 */ t1280 = a34577; /* x261916 */ t1281.tag = OUTPUT_PORT_TYPE; t1281.value.output_port_type = t1280; f28215(t1279, t1281); return; l366: /* x262139 */ /* x261924 */ /* x261923 */ t1220 = *((struct w32062 *)(&a34576)); /* x266131 */ if (!((t1220.tag)==STRUCTURE_TYPE24753)) goto l368; /* x262012 */ /* x262011 */ /* x262010 */ /* x262009 */ /* x262007 */ t1277 = '('; /* x262008 */ t1278 = a34577; /* x262006 */ putc(t1277, t1278); /* x262005 */ /* x262004 */ /* x262003 */ t1249 = a34576.value.structure_type24753; /* x262002 */ /* x262001 */ /* x262000 */ /* x261999 */ /* x261998 */ /* x261997 */ /* x261996 */ /* x261926 */ /* x261925 */ a34581.tag = STRUCTURE_TYPE24753; a34581.value.structure_type24753 = t1249; h28368: /* x261995 */ /* x261931 */ /* x261930 */ /* x261929 */ t1251 = a34581; /* x266129 */ if (!((t1251.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[28368]"); structure_ref_error();} t1250 = t1251.value.structure_type24753->s1; /* x266130 */ if (!((t1250.tag)==NULL_TYPE)) goto l379; /* x261945 */ /* x261944 */ /* x261943 */ /* x261942 */ /* x261940 */ /* x261939 */ t1276 = a34581; /* x266128 */ if (!((t1276.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 28369]"); structure_ref_error();} t1274 = t1276.value.structure_type24753->s0; /* x261941 */ t1275 = a34577; /* x261937 */ f28351(t1274, t1275); /* x261936 */ /* x261935 */ /* x261933 */ t1272 = ')'; /* x261934 */ t1273 = a34577; /* x261932 */ putc(t1272, t1273); return; l379: /* x261994 */ /* x261950 */ /* x261949 */ /* x261948 */ t1253 = a34581; /* x266126 */ if (!((t1253.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[28368]"); structure_ref_error();} t1252 = t1253.value.structure_type24753->s1; /* x266127 */ if (!((t1252.tag)==STRUCTURE_TYPE24753)) goto l381; /* x261969 */ /* x261968 */ /* x261967 */ /* x261962 */ /* x261960 */ /* x261959 */ t1269 = a34581; /* x266124 */ if (!((t1269.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 28371]"); structure_ref_error();} t1267 = t1269.value.structure_type24753->s0; /* x261961 */ t1268 = a34577; /* x261957 */ f28351(t1267, t1268); /* x261966 */ /* x261964 */ t1270 = ' '; /* x261965 */ t1271 = a34577; /* x261963 */ putc(t1270, t1271); /* x261956 */ /* x261955 */ /* x261954 */ /* x261953 */ t1266 = a34581; /* x266125 */ if (!((t1266.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 28372]"); structure_ref_error();} t1265 = t1266.value.structure_type24753->s1; /* x261951 */ a34581 = t1265; goto h28368; l381: /* x261993 */ /* x261992 */ /* x261991 */ /* x261980 */ /* x261978 */ /* x261977 */ t1258 = a34581; /* x266123 */ if (!((t1258.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 28373]"); structure_ref_error();} t1256 = t1258.value.structure_type24753->s0; /* x261979 */ t1257 = a34577; /* x261975 */ f28351(t1256, t1257); /* x261984 */ /* x261982 */ t1259 = " . "; /* x261983 */ t1260 = a34577; /* x261981 */ t1261.tag = OUTPUT_PORT_TYPE; t1261.value.output_port_type = t1260; f28215(t1259, t1261); /* x261990 */ /* x261988 */ /* x261987 */ t1264 = a34581; /* x266122 */ if (!((t1264.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 28373]"); structure_ref_error();} t1262 = t1264.value.structure_type24753->s1; /* x261989 */ t1263 = a34577; /* x261985 */ f28351(t1262, t1263); /* x261974 */ /* x261973 */ /* x261971 */ t1254 = ')'; /* x261972 */ t1255 = a34577; /* x261970 */ putc(t1254, t1255); return; l368: /* x262138 */ /* x262015 */ /* x262014 */ t1221 = *((struct w31981 *)(&a34576)); /* x266121 */ if (!((t1221.tag)==HEADED_VECTOR_TYPE27896)) goto l370; /* x262089 */ /* x262088 */ /* x262087 */ /* x262024 */ /* x262022 */ t1227 = "#("; /* x262023 */ t1228 = a34577; /* x262021 */ t1229.tag = OUTPUT_PORT_TYPE; t1229.value.output_port_type = t1228; f28215(t1227, t1229); /* x262086 */ /* x262031 */ /* x262030 */ /* x262029 */ /* x262028 */ t1231 = a34576.value.headed_vector_type27896; /* x266118 */ t1230 = t1231->length; /* x266119 */ if (t1230==0) goto l373; /* x262083 */ /* x262082 */ /* x262081 */ /* x262080 */ /* x262078 */ /* x262076 */ t1247 = a34576.value.headed_vector_type27896; /* x262077 */ t1248 = 0; /* x266113 */ if ((t1248<0)||(t1248>=(t1247->length))) {backtrace_internal("[inside DISPLAY2 28378]"); vector_ref3_error();} t1245 = (t1247->element)[t1248]; /* x262079 */ t1246 = a34577; /* x262074 */ f28351(t1245, t1246); /* x262073 */ /* x262072 */ /* x262071 */ t1232 = 1; /* x262070 */ /* x262069 */ /* x262068 */ /* x262067 */ /* x262066 */ /* x262065 */ /* x262064 */ /* x262033 */ /* x262032 */ a34593 = t1232; h28382: /* x262063 */ /* x262039 */ /* x262035 */ t1233 = a34593; /* x262038 */ /* x262037 */ t1235 = a34576; /* x266116 */ if (!((t1235.tag)==HEADED_VECTOR_TYPE27896)) {backtrace_internal("LOOP[28382]"); vector_length_error();} t1234 = t1235.value.headed_vector_type27896->length; /* x266117 */ if (!(t1233=(t1243.value.headed_vector_type27896->length))) {backtrace_internal("[inside LOOP 28383]"); vector_ref3_error();} t1241 = (t1243.value.headed_vector_type27896->element)[t1244]; /* x262056 */ t1242 = a34577; /* x262051 */ f28351(t1241, t1242); /* x262046 */ /* x262045 */ /* x262044 */ /* x262042 */ t1237 = a34593; /* x262043 */ t1238 = 1; /* x266115 */ t1236 = t1237+t1238; /* x262040 */ a34593 = t1236; goto h28382; goto l377; l376: /* x262062 */ /* x262061 */ l377: goto l374; l373: /* x262085 */ /* x262084 */ l374: /* x262020 */ /* x262019 */ /* x262017 */ t1225 = ')'; /* x262018 */ t1226 = a34577; /* x262016 */ putc(t1225, t1226); return; l370: /* x262137 */ /* x262136 */ /* x262135 */ /* x262134 */ /* x262133 */ /* x262132 */ /* x262131 */ /* x262130 */ /* x262129 */ /* x262128 */ /* x262127 */ /* x262091 */ /* x262090 */ /* x262126 */ /* x262094 */ /* x262093 */ /* x266112 */ /* x262100 */ /* x262099 */ /* x262098 */ /* x262096 */ t1222 = "#*UNKNOWN*"; /* x262097 */ t1223 = a34577; /* x262095 */ t1224.tag = OUTPUT_PORT_TYPE; t1224.value.output_port_type = t1223; f28215(t1222, t1224); return;} /* WRITE2[28291] */ void f28291(struct w49 a34542, struct w49 a34543) {int a34547; /* N */ int a34550; /* I */ char a34551; /* C */ struct w49 a34558; /* OBJ */ int a34570; /* I */ struct w49 t1316; struct w16638 t1317; struct w32142 t1318; struct w32134 t1319; struct w32119 t1320; struct w32111 t1321; struct w32103 t1322; struct w32087 t1323; struct w32087 t1324; struct w32078 t1325; struct w32070 t1326; struct w32062 t1327; struct w31981 t1328; char *t1329; struct w49 t1330; char t1331; struct w49 t1332; char *t1333; struct w49 t1334; int t1335; struct headed_vector_type27896 *t1336; int t1337; int t1338; int t1339; struct w49 t1340; int t1341; int t1342; int t1343; char t1344; struct w49 t1345; struct w49 t1346; struct w49 t1347; struct w49 t1348; int t1349; struct w49 t1350; struct w49 t1351; struct headed_vector_type27896 *t1352; int t1353; struct structure_type24753 *t1354; struct w49 t1355; struct w49 t1356; struct w49 t1357; struct w49 t1358; char t1359; struct w49 t1360; struct w49 t1361; struct w49 t1362; struct w49 t1363; char *t1364; struct w49 t1365; struct w49 t1366; struct w49 t1367; struct w49 t1368; struct w49 t1369; struct w49 t1370; struct w49 t1371; struct w49 t1372; struct w49 t1373; char t1374; struct w49 t1375; char t1376; struct w49 t1377; struct w49 t1378; struct w49 t1379; struct w49 t1380; char t1381; struct w49 t1382; char t1383; struct w49 t1384; char t1385; struct w49 t1386; int t1387; int t1388; int t1389; int t1390; char t1391; int t1392; int t1393; int t1394; char t1395; char t1396; struct w49 t1397; char t1398; char t1399; char t1400; struct w49 t1401; char t1402; char t1403; struct w49 t1404; char t1405; struct w49 t1406; struct w49 t1407; int t1408; char *t1409; char *t1410; struct w49 t1411; char *t1412; struct w49 t1413; char *t1414; char *t1415; struct w49 t1416; char *t1417; struct w49 t1418; char *t1419; struct w49 t1420; struct w30215 t1421; float t1422; struct w49 t1423; int t1424; struct w49 t1425; char t1426; char t1427; struct w49 t1428; char t1429; char t1430; char t1431; struct w49 t1432; char t1433; char t1434; struct w49 t1435; char *t1436; struct w49 t1437; char *t1438; struct w49 t1439; char *t1440; struct w49 t1441; char *t1442; struct w49 t1443; char *t1444; struct w49 t1445; char *t1446; struct w49 t1447; /* x261800 */ /* x261357 */ /* x261356 */ t1316 = a34542; /* x266188 */ if (!((t1316.tag)==NULL_TYPE)) goto l385; /* x261363 */ /* x261362 */ /* x261361 */ /* x261359 */ t1446 = "()"; /* x261360 */ t1447 = a34543; /* x261358 */ f28215(t1446, t1447); return; l385: /* x261799 */ /* x261367 */ /* x261365 */ t1317 = *((struct w16638 *)(&a34542)); /* x261366 */ /* x266187 */ if (!((t1317.tag)==TRUE_TYPE)) goto l387; /* x261373 */ /* x261372 */ /* x261371 */ /* x261369 */ t1444 = "#T"; /* x261370 */ t1445 = a34543; /* x261368 */ f28215(t1444, t1445); return; l387: /* x261798 */ /* x261376 */ /* x261375 */ if (!((a34542.tag)==FALSE_TYPE)) goto l389; /* x261382 */ /* x261381 */ /* x261380 */ /* x261378 */ t1442 = "#F"; /* x261379 */ t1443 = a34543; /* x261377 */ f28215(t1442, t1443); return; l389: /* x261797 */ /* x261385 */ /* x261384 */ t1318 = *((struct w32142 *)(&a34542)); /* x266185 */ if (!((t1318.tag)>2); /* x261386 */ t1428.tag = ((unsigned)((unsigned char)t1426))<<2; t1429 = t1427; if (f27342(t1428, t1429)==FALSE_TYPE) goto l432; /* x261395 */ /* x261394 */ /* x261393 */ /* x261391 */ t1440 = "#\\Space"; /* x261392 */ t1441 = a34543; /* x261390 */ f28215(t1440, t1441); return; l432: /* x261418 */ /* x261399 */ /* x261398 */ t1431 = '\n'; /* x261397 */ t1430 = (char)((a34542.tag)>>2); /* x261396 */ t1432.tag = ((unsigned)((unsigned char)t1430))<<2; t1433 = t1431; if (f27342(t1432, t1433)==FALSE_TYPE) goto l434; /* x261405 */ /* x261404 */ /* x261403 */ /* x261401 */ t1438 = "#\\Newline"; /* x261402 */ t1439 = a34543; /* x261400 */ f28215(t1438, t1439); return; l434: /* x261417 */ /* x261416 */ /* x261415 */ /* x261414 */ /* x261412 */ t1436 = "#\\"; /* x261413 */ t1437 = a34543; /* x261411 */ f28215(t1436, t1437); /* x261410 */ /* x261409 */ /* x261407 */ t1434 = (char)((a34542.tag)>>2); /* x261408 */ t1435 = a34543; /* x261406 */ if ((t1435.tag)==OUTPUT_PORT_TYPE) {putc(t1434, (t1435.value.output_port_type)); return;} backtrace_internal("[inside WRITE2 28299]"); write_char2_error(); l391: /* x261796 */ /* x261424 */ /* x261423 */ t1319 = *((struct w32134 *)(&a34542)); /* x266184 */ switch (t1319.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: break; default: goto l393;} /* x261438 */ /* x261437 */ /* x261436 */ /* x261427 */ /* x261426 */ t1421 = *((struct w30215 *)(&a34542)); /* x266183 */ if (!((t1421.tag)==FIXNUM_TYPE)) goto l430; /* x261431 */ /* x261429 */ t1424 = a34542.value.fixnum_type; /* x261430 */ t1425 = a34543; /* x261428 */ f28224(t1424, t1425); return; l430: /* x261435 */ /* x261433 */ t1422 = a34542.value.flonum_type; /* x261434 */ t1423 = a34543; /* x261432 */ f28274(t1422, t1423); return; l393: /* x261795 */ /* x261441 */ /* x261440 */ t1320 = *((struct w32119 *)(&a34542)); /* x266182 */ if (!((t1320.tag)==INPUT_PORT_TYPE)) goto l395; /* x261447 */ /* x261446 */ /* x261445 */ /* x261443 */ t1419 = "#*INPUT-PORT*"; /* x261444 */ t1420 = a34543; /* x261442 */ f28215(t1419, t1420); return; l395: /* x261794 */ /* x261450 */ /* x261449 */ t1321 = *((struct w32111 *)(&a34542)); /* x266181 */ if (!((t1321.tag)==OUTPUT_PORT_TYPE)) goto l397; /* x261456 */ /* x261455 */ /* x261454 */ /* x261452 */ t1417 = "#*OUTPUT-PORT*"; /* x261453 */ t1418 = a34543; /* x261451 */ f28215(t1417, t1418); return; l397: /* x261793 */ /* x261459 */ /* x261458 */ t1322 = *((struct w32103 *)(&a34542)); /* x266180 */ if (!((t1322.tag)==EOF_OBJECT_TYPE)) goto l399; /* x261465 */ /* x261464 */ /* x261463 */ /* x261461 */ t1415 = "#*EOF-OBJECT*"; /* x261462 */ t1416 = a34543; /* x261460 */ f28215(t1415, t1416); return; l399: /* x261792 */ /* x261468 */ /* x261467 */ t1323 = *((struct w32087 *)(&a34542)); /* x266179 */ /* x261791 */ /* x261477 */ /* x261476 */ t1324 = *((struct w32087 *)(&a34542)); /* x266178 */ if (!((t1324.tag)==EXTERNAL_SYMBOL_TYPE)) goto l402; /* x261485 */ /* x261484 */ /* x261483 */ /* x261481 */ /* x261480 */ t1414 = a34542.value.external_symbol_type; /* x266177 */ t1412 = t1414; /* x261482 */ t1413 = a34543; /* x261478 */ f28215(t1412, t1413); return; l402: /* x261790 */ /* x261488 */ /* x261487 */ t1325 = *((struct w32078 *)(&a34542)); /* x266176 */ switch (t1325.tag) {case TRUE_TYPE: case STRUCTURE_TYPE24753: case STRUCTURE_TYPE24757: case STRUCTURE_TYPE27501: case STRUCTURE_TYPE27510: case STRUCTURE_TYPE27621: case STRUCTURE_TYPE27650: case STRUCTURE_TYPE27669: case STRUCTURE_TYPE27673: case STRUCTURE_TYPE27692: case STRUCTURE_TYPE27694: case STRUCTURE_TYPE27698: case STRUCTURE_TYPE27745: case STRUCTURE_TYPE27747: case STRUCTURE_TYPE27750: case STRUCTURE_TYPE27753: case STRUCTURE_TYPE27756: case STRUCTURE_TYPE27761: case STRUCTURE_TYPE27769: case STRUCTURE_TYPE27776: case STRUCTURE_TYPE27779: case STRUCTURE_TYPE27858: case STRING_TYPE: case HEADED_VECTOR_TYPE27896: case STRUCTURE_TYPE27908: goto l404; break; default:;} /* x261494 */ /* x261493 */ /* x261492 */ /* x261490 */ t1410 = "#*PROCEDURE*"; /* x261491 */ t1411 = a34543; /* x261489 */ f28215(t1410, t1411); return; l404: /* x261789 */ /* x261497 */ /* x261496 */ t1326 = *((struct w32070 *)(&a34542)); /* x266175 */ if (!((t1326.tag)==STRING_TYPE)) goto l406; /* x261570 */ /* x261569 */ /* x261568 */ /* x261506 */ /* x261504 */ t1385 = '\"'; /* x261505 */ t1386 = a34543; /* x261503 */ if (!((t1386.tag)==OUTPUT_PORT_TYPE)) {backtrace_internal("[inside WRITE2 28307]"); write_char2_error();} putc(t1385, (t1386.value.output_port_type)); /* x261567 */ /* x261566 */ /* x261565 */ t1409 = a34542.value.string_type; /* x266171 */ t1387 = strlen(t1409); /* x261563 */ a34547 = t1387; /* x261562 */ /* x261561 */ t1388 = 0; /* x261560 */ /* x261559 */ /* x261558 */ /* x261557 */ /* x261556 */ /* x261555 */ /* x261554 */ /* x261508 */ /* x261507 */ a34550 = t1388; h28312: /* x261553 */ /* x261512 */ /* x261510 */ t1389 = a34550; /* x261511 */ t1390 = a34547; /* x266174 */ if (!(t1389=strlen(t1407.value.string_type))) {backtrace_internal("LOOP[28312]"); string_ref3_error();} t1391 = (t1407.value.string_type)[t1408]; /* x261545 */ a34551 = t1391; /* x261544 */ /* x261539 */ /* x261532 */ /* x261531 */ /* x261530 */ t1396 = '\\'; /* x261529 */ t1395 = a34551; /* x261528 */ t1397.tag = ((unsigned)((unsigned char)t1395))<<2; t1398 = t1396; if (!(f27342(t1397, t1398)==FALSE_TYPE)) goto l425; /* x261525 */ /* x261524 */ t1400 = '\"'; /* x261523 */ t1399 = a34551; /* x261522 */ t1401.tag = ((unsigned)((unsigned char)t1399))<<2; t1402 = t1400; if (f27342(t1401, t1402)==FALSE_TYPE) goto l426; l425: /* x261536 */ /* x261534 */ t1403 = '\\'; /* x261535 */ t1404 = a34543; /* x261533 */ if (!((t1404.tag)==OUTPUT_PORT_TYPE)) {backtrace_internal("[inside LOOP 28313]"); write_char2_error();} putc(t1403, (t1404.value.output_port_type)); goto l427; l426: /* x261538 */ /* x261537 */ l427: /* x261543 */ /* x261541 */ t1405 = a34551; /* x261542 */ t1406 = a34543; /* x261540 */ if (!((t1406.tag)==OUTPUT_PORT_TYPE)) {backtrace_internal("[inside LOOP 28313]"); write_char2_error();} putc(t1405, (t1406.value.output_port_type)); /* x261519 */ /* x261518 */ /* x261517 */ /* x261515 */ t1393 = a34550; /* x261516 */ t1394 = 1; /* x266173 */ t1392 = t1393+t1394; /* x261513 */ a34550 = t1392; goto h28312; goto l424; l423: /* x261552 */ /* x261551 */ l424: /* x261502 */ /* x261501 */ /* x261499 */ t1383 = '\"'; /* x261500 */ t1384 = a34543; /* x261498 */ if ((t1384.tag)==OUTPUT_PORT_TYPE) {putc(t1383, (t1384.value.output_port_type)); return;} backtrace_internal("[inside WRITE2 28308]"); write_char2_error(); l406: /* x261788 */ /* x261573 */ /* x261572 */ t1327 = *((struct w32062 *)(&a34542)); /* x266170 */ if (!((t1327.tag)==STRUCTURE_TYPE24753)) goto l408; /* x261661 */ /* x261660 */ /* x261659 */ /* x261658 */ /* x261656 */ t1381 = '('; /* x261657 */ t1382 = a34543; /* x261655 */ if (!((t1382.tag)==OUTPUT_PORT_TYPE)) {backtrace_internal("[inside WRITE2 28319]"); write_char2_error();} putc(t1381, (t1382.value.output_port_type)); /* x261654 */ /* x261653 */ /* x261652 */ t1354 = a34542.value.structure_type24753; /* x261651 */ /* x261650 */ /* x261649 */ /* x261648 */ /* x261647 */ /* x261646 */ /* x261645 */ /* x261575 */ /* x261574 */ a34558.tag = STRUCTURE_TYPE24753; a34558.value.structure_type24753 = t1354; h28323: /* x261644 */ /* x261580 */ /* x261579 */ /* x261578 */ t1356 = a34558; /* x266168 */ if (!((t1356.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[28323]"); structure_ref_error();} t1355 = t1356.value.structure_type24753->s1; /* x266169 */ if (!((t1355.tag)==NULL_TYPE)) goto l419; /* x261594 */ /* x261593 */ /* x261592 */ /* x261591 */ /* x261589 */ /* x261588 */ t1380 = a34558; /* x266167 */ if (!((t1380.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 28324]"); structure_ref_error();} t1378 = t1380.value.structure_type24753->s0; /* x261590 */ t1379 = a34543; /* x261586 */ f28291(t1378, t1379); /* x261585 */ /* x261584 */ /* x261582 */ t1376 = ')'; /* x261583 */ t1377 = a34543; /* x261581 */ if ((t1377.tag)==OUTPUT_PORT_TYPE) {putc(t1376, (t1377.value.output_port_type)); return;} backtrace_internal("[inside LOOP 28325]"); write_char2_error(); l419: /* x261643 */ /* x261599 */ /* x261598 */ /* x261597 */ t1358 = a34558; /* x266165 */ if (!((t1358.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[28323]"); structure_ref_error();} t1357 = t1358.value.structure_type24753->s1; /* x266166 */ if (!((t1357.tag)==STRUCTURE_TYPE24753)) goto l421; /* x261618 */ /* x261617 */ /* x261616 */ /* x261611 */ /* x261609 */ /* x261608 */ t1373 = a34558; /* x266163 */ if (!((t1373.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 28326]"); structure_ref_error();} t1371 = t1373.value.structure_type24753->s0; /* x261610 */ t1372 = a34543; /* x261606 */ f28291(t1371, t1372); /* x261615 */ /* x261613 */ t1374 = ' '; /* x261614 */ t1375 = a34543; /* x261612 */ if (!((t1375.tag)==OUTPUT_PORT_TYPE)) {backtrace_internal("[inside LOOP 28326]"); write_char2_error();} putc(t1374, (t1375.value.output_port_type)); /* x261605 */ /* x261604 */ /* x261603 */ /* x261602 */ t1370 = a34558; /* x266164 */ if (!((t1370.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 28327]"); structure_ref_error();} t1369 = t1370.value.structure_type24753->s1; /* x261600 */ a34558 = t1369; goto h28323; l421: /* x261642 */ /* x261641 */ /* x261640 */ /* x261629 */ /* x261627 */ /* x261626 */ t1363 = a34558; /* x266162 */ if (!((t1363.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 28328]"); structure_ref_error();} t1361 = t1363.value.structure_type24753->s0; /* x261628 */ t1362 = a34543; /* x261624 */ f28291(t1361, t1362); /* x261633 */ /* x261631 */ t1364 = " . "; /* x261632 */ t1365 = a34543; /* x261630 */ f28215(t1364, t1365); /* x261639 */ /* x261637 */ /* x261636 */ t1368 = a34558; /* x266161 */ if (!((t1368.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 28328]"); structure_ref_error();} t1366 = t1368.value.structure_type24753->s1; /* x261638 */ t1367 = a34543; /* x261634 */ f28291(t1366, t1367); /* x261623 */ /* x261622 */ /* x261620 */ t1359 = ')'; /* x261621 */ t1360 = a34543; /* x261619 */ if ((t1360.tag)==OUTPUT_PORT_TYPE) {putc(t1359, (t1360.value.output_port_type)); return;} backtrace_internal("[inside LOOP 28329]"); write_char2_error(); l408: /* x261787 */ /* x261664 */ /* x261663 */ t1328 = *((struct w31981 *)(&a34542)); /* x266160 */ if (!((t1328.tag)==HEADED_VECTOR_TYPE27896)) goto l410; /* x261738 */ /* x261737 */ /* x261736 */ /* x261673 */ /* x261671 */ t1333 = "#("; /* x261672 */ t1334 = a34543; /* x261670 */ f28215(t1333, t1334); /* x261735 */ /* x261680 */ /* x261679 */ /* x261678 */ /* x261677 */ t1336 = a34542.value.headed_vector_type27896; /* x266157 */ t1335 = t1336->length; /* x266158 */ if (t1335==0) goto l413; /* x261732 */ /* x261731 */ /* x261730 */ /* x261729 */ /* x261727 */ /* x261725 */ t1352 = a34542.value.headed_vector_type27896; /* x261726 */ t1353 = 0; /* x266152 */ if ((t1353<0)||(t1353>=(t1352->length))) {backtrace_internal("[inside WRITE2 28333]"); vector_ref3_error();} t1350 = (t1352->element)[t1353]; /* x261728 */ t1351 = a34543; /* x261723 */ f28291(t1350, t1351); /* x261722 */ /* x261721 */ /* x261720 */ t1337 = 1; /* x261719 */ /* x261718 */ /* x261717 */ /* x261716 */ /* x261715 */ /* x261714 */ /* x261713 */ /* x261682 */ /* x261681 */ a34570 = t1337; h28337: /* x261712 */ /* x261688 */ /* x261684 */ t1338 = a34570; /* x261687 */ /* x261686 */ t1340 = a34542; /* x266155 */ if (!((t1340.tag)==HEADED_VECTOR_TYPE27896)) {backtrace_internal("LOOP[28337]"); vector_length_error();} t1339 = t1340.value.headed_vector_type27896->length; /* x266156 */ if (!(t1338=(t1348.value.headed_vector_type27896->length))) {backtrace_internal("[inside LOOP 28338]"); vector_ref3_error();} t1346 = (t1348.value.headed_vector_type27896->element)[t1349]; /* x261705 */ t1347 = a34543; /* x261700 */ f28291(t1346, t1347); /* x261695 */ /* x261694 */ /* x261693 */ /* x261691 */ t1342 = a34570; /* x261692 */ t1343 = 1; /* x266154 */ t1341 = t1342+t1343; /* x261689 */ a34570 = t1341; goto h28337; goto l417; l416: /* x261711 */ /* x261710 */ l417: goto l414; l413: /* x261734 */ /* x261733 */ l414: /* x261669 */ /* x261668 */ /* x261666 */ t1331 = ')'; /* x261667 */ t1332 = a34543; /* x261665 */ if ((t1332.tag)==OUTPUT_PORT_TYPE) {putc(t1331, (t1332.value.output_port_type)); return;} backtrace_internal("[inside WRITE2 28332]"); write_char2_error(); l410: /* x261786 */ /* x261785 */ /* x261784 */ /* x261783 */ /* x261782 */ /* x261781 */ /* x261780 */ /* x261779 */ /* x261778 */ /* x261777 */ /* x261776 */ /* x261740 */ /* x261739 */ /* x261775 */ /* x261743 */ /* x261742 */ /* x266151 */ /* x261749 */ /* x261748 */ /* x261747 */ /* x261745 */ t1329 = "#*UNKNOWN*"; /* x261746 */ t1330 = a34543; /* x261744 */ f28215(t1329, t1330); return;} /* DISPLAY-INEXACT-REAL2[28274] */ void f28274(float a34531, struct w49 a34532) {float a34536; /* MANTISSA */ int a34537; /* EXPONENT */ float a34540; /* MANTISSA */ int a34541; /* EXPONENT */ float t1448; float t1449; float t1450; float t1451; float t1452; float t1453; float t1454; float t1455; float t1456; float t1457; int t1458; struct w49 t1459; float t1460; int t1461; float t1462; float t1463; float t1464; int t1465; struct w49 t1466; float t1467; int t1468; float t1469; float t1470; int t1471; int t1472; float t1473; float t1474; float t1475; int t1476; float t1477; float t1478; float t1479; int t1480; struct w49 t1481; float t1482; int t1483; float t1484; float t1485; int t1486; int t1487; float t1488; float t1489; char *t1490; struct w49 t1491; float t1492; struct w49 t1493; float t1494; char t1495; struct w49 t1496; char *t1497; struct w49 t1498; char *t1499; struct w49 t1500; h28274: /* x261352 */ /* x261216 */ /* x261215 */ /* x261213 */ t1448 = a34531; /* x261214 */ t1449 = a34531; /* x266202 */ if (t1448==t1449) goto l436; /* x261222 */ /* x261221 */ /* x261220 */ /* x261218 */ t1499 = "#*NOT-A-NUMBER*"; /* x261219 */ t1500 = a34532; /* x261217 */ f28215(t1499, t1500); return; l436: /* x261351 */ /* x261225 */ /* x261224 */ t1450 = a34531; /* x261223 */ if (!(t1450==HUGE_VAL)) goto l438; /* x261231 */ /* x261230 */ /* x261229 */ /* x261227 */ t1497 = "#*INFINITY*"; /* x261228 */ t1498 = a34532; /* x261226 */ f28215(t1497, t1498); return; l438: /* x261350 */ /* x261234 */ /* x261233 */ t1451 = a34531; /* x266201 */ if (!(t1451<0.0)) goto l440; /* x261248 */ /* x261247 */ /* x261246 */ /* x261245 */ /* x261243 */ t1495 = '-'; /* x261244 */ t1496 = a34532; /* x261242 */ if (!((t1496.tag)==OUTPUT_PORT_TYPE)) {backtrace_internal("[inside DISPLAY-INEXACT-REAL2 28277]"); write_char2_error();} putc(t1495, (t1496.value.output_port_type)); /* x261241 */ /* x261240 */ /* x261238 */ /* x261237 */ t1494 = a34531; /* x266200 */ t1492 = -t1494; /* x261239 */ t1493 = a34532; /* x261235 */ a34531 = t1492; a34532 = t1493; goto h28274; l440: /* x261349 */ /* x261251 */ /* x261250 */ t1452 = a34531; /* x266199 */ if (!(t1452==0.0)) goto l442; /* x261257 */ /* x261256 */ /* x261255 */ /* x261253 */ t1490 = "0.0"; /* x261254 */ t1491 = a34532; /* x261252 */ f28215(t1490, t1491); return; l442: /* x261348 */ /* x261261 */ /* x261259 */ t1453 = a34531; /* x261260 */ t1454 = 1.0e1; /* x266198 */ if (!(t1453>=t1454)) goto l444; /* x261298 */ /* x261297 */ /* x261296 */ /* x261294 */ /* x261292 */ t1488 = 1.0e-1; /* x261293 */ t1489 = a34531; /* x266194 */ t1475 = t1488*t1489; /* x261295 */ t1476 = 1; /* x261290 */ /* x261289 */ /* x261288 */ /* x261287 */ /* x261286 */ /* x261285 */ /* x261284 */ /* x261263 */ /* x261262 */ a34536 = t1475; a34537 = t1476; h28283: /* x261283 */ /* x261267 */ /* x261265 */ t1477 = a34536; /* x261266 */ t1478 = 1.0e1; /* x266197 */ if (!(t1477>=t1478)) goto l450; /* x261277 */ /* x261272 */ /* x261270 */ t1484 = 1.0e-1; /* x261271 */ t1485 = a34536; /* x266196 */ t1482 = t1484*t1485; /* x261276 */ /* x261274 */ t1486 = a34537; /* x261275 */ t1487 = 1; /* x266195 */ t1483 = t1486+t1487; /* x261268 */ a34536 = t1482; a34537 = t1483; goto h28283; l450: /* x261282 */ /* x261279 */ t1479 = a34536; /* x261280 */ t1480 = a34537; /* x261281 */ t1481 = a34532; /* x261278 */ f28253(t1479, t1480, t1481); return; l444: /* x261347 */ /* x261302 */ /* x261300 */ t1455 = a34531; /* x261301 */ t1456 = 1.0; /* x266193 */ if (!(t1455=256)) {backtrace_internal("[inside DISPLAY-MANTISSA-EXPONENT2 28259]"); integer_to_char2_error();} t1512 = (unsigned char)t1514; /* x261124 */ t1513 = a34517; /* x261115 */ if (!((t1513.tag)==OUTPUT_PORT_TYPE)) {backtrace_internal("[inside DISPLAY-MANTISSA-EXPONENT2 28259]"); write_char2_error();} putc(t1512, (t1513.value.output_port_type)); /* x261129 */ /* x261127 */ t1518 = '.'; /* x261128 */ t1519 = a34517; /* x261126 */ if (!((t1519.tag)==OUTPUT_PORT_TYPE)) {backtrace_internal("[inside DISPLAY-MANTISSA-EXPONENT2 28259]"); write_char2_error();} putc(t1518, (t1519.value.output_port_type)); /* x261191 */ /* x261190 */ /* x261185 */ t1538 = 1.0e1; /* x261189 */ /* x261187 */ t1540 = a34515; /* x261188 */ t1541 = a34518; /* x266206 */ t1539 = t1540-t1541; /* x266207 */ t1520 = t1538*t1539; /* x261183 */ /* x261182 */ /* x261181 */ /* x261180 */ /* x261179 */ /* x261178 */ /* x261177 */ /* x261131 */ /* x261130 */ a34526 = t1520; h28266: /* x261176 */ /* x261175 */ /* x261174 */ t1537 = a34526; /* x266208 */ t1521 = floor(t1537); /* x261172 */ a34527 = t1521; /* x261171 */ /* x261170 */ /* x261169 */ t1536 = a34527; /* x266209 */ t1522 = (int)t1536; /* x261167 */ a34528 = t1522; /* x261166 */ /* x261165 */ /* x261164 */ /* x261163 */ /* x261161 */ /* x261160 */ /* x261158 */ /* x261157 */ t1535 = '0'; /* x266210 */ t1533 = (int)((unsigned char)t1535); /* x261159 */ t1534 = a34528; /* x266211 */ t1532 = t1533+t1534; /* x266212 */ if ((t1532<0)||(t1532>=256)) {backtrace_internal("[inside LOOP 28269]"); integer_to_char2_error();} t1530 = (unsigned char)t1532; /* x261162 */ t1531 = a34517; /* x261153 */ if (!((t1531.tag)==OUTPUT_PORT_TYPE)) {backtrace_internal("[inside LOOP 28269]"); write_char2_error();} putc(t1530, (t1531.value.output_port_type)); /* x261152 */ /* x261151 */ /* x261150 */ /* x261145 */ t1526 = 1.0e1; /* x261149 */ /* x261147 */ t1528 = a34526; /* x261148 */ t1529 = a34527; /* x266213 */ t1527 = t1528-t1529; /* x266214 */ t1523 = t1526*t1527; /* x261143 */ a34530 = t1523; /* x261142 */ /* x261136 */ /* x261135 */ /* x261134 */ t1524 = a34530; /* x266215 */ if (t1524==0.0) goto l458; /* x261139 */ /* x261138 */ t1525 = a34530; /* x261137 */ a34526 = t1525; goto h28266; l458: /* x261141 */ /* x261140 */ /* x261114 */ /* x261113 */ /* x261098 */ /* x261097 */ /* x261096 */ t1507 = a34516; /* x266220 */ if (t1507==0) goto l456; /* x261110 */ /* x261109 */ /* x261108 */ /* x261107 */ /* x261105 */ t1510 = 'e'; /* x261106 */ t1511 = a34517; /* x261104 */ if (!((t1511.tag)==OUTPUT_PORT_TYPE)) {backtrace_internal("[inside DISPLAY-MANTISSA-EXPONENT2 28261]"); write_char2_error();} putc(t1510, (t1511.value.output_port_type)); /* x261103 */ /* x261102 */ /* x261100 */ t1508 = a34516; /* x261101 */ t1509 = a34517; /* x261099 */ f28224(t1508, t1509); return; l456: /* x261112 */ /* x261111 */ return;} /* DISPLAY-EXACT-INTEGER2[28224] */ void f28224(int a34494, struct w49 a34495) {int a34498; /* I */ int a34499; /* NUMBER */ int a34502; /* I */ int a34508; /* I */ int a34509; /* NUMBER */ int a34512; /* I */ int t1558; int t1559; char t1560; struct w49 t1561; int t1562; int t1563; int t1564; int t1565; int t1566; int t1567; int t1568; int t1569; int t1570; struct headed_vector_type24746 *t1571; int t1572; int t1573; int t1574; int t1575; int t1576; int t1577; int t1578; int t1579; int t1580; int t1581; char t1582; struct w49 t1583; int t1584; int t1585; int t1586; char t1587; struct headed_vector_type24746 *t1588; int t1589; int t1590; int t1591; char t1592; struct w49 t1593; int t1594; int t1595; int t1596; int t1597; int t1598; int t1599; int t1600; int t1601; int t1602; struct headed_vector_type24746 *t1603; int t1604; int t1605; int t1606; int t1607; int t1608; int t1609; int t1610; int t1611; int t1612; char t1613; struct w49 t1614; int t1615; int t1616; int t1617; char t1618; struct headed_vector_type24746 *t1619; int t1620; int t1621; int t1622; /* x261057 */ /* x260870 */ /* x260869 */ t1558 = a34494; /* x266256 */ if (!(t1558>0)) goto l460; /* x260954 */ /* x260953 */ /* x260952 */ /* x260950 */ t1594 = 0; /* x260951 */ t1595 = a34494; /* x260949 */ /* x260948 */ /* x260947 */ /* x260946 */ /* x260945 */ /* x260944 */ /* x260943 */ /* x260872 */ /* x260871 */ a34498 = t1594; a34499 = t1595; h28228: /* x260942 */ /* x260875 */ /* x260874 */ t1596 = a34499; /* x266255 */ if (!(t1596==0)) goto l468; /* x260919 */ /* x260918 */ /* x260916 */ t1621 = a34498; /* x260917 */ t1622 = 1; /* x266247 */ t1608 = t1621-t1622; /* x260914 */ /* x260913 */ /* x260912 */ /* x260911 */ /* x260910 */ /* x260909 */ /* x260908 */ /* x260877 */ /* x260876 */ a34502 = t1608; h28231: /* x260907 */ /* x260906 */ /* x260904 */ /* x260903 */ /* x260898 */ /* x260897 */ t1618 = '0'; /* x266249 */ t1616 = (int)((unsigned char)t1618); /* x260902 */ /* x260900 */ t1619 = a34450; /* x260901 */ t1620 = a34502; /* x266248 */ if ((t1620<0)||(t1620>=(t1619->length))) {backtrace_internal("LOOP[28231]"); vector_ref3_error();} t1617 = (t1619->element)[t1620]; /* x266250 */ t1615 = t1616+t1617; /* x266251 */ if ((t1615<0)||(t1615>=256)) {backtrace_internal("LOOP[28231]"); integer_to_char2_error();} t1613 = (unsigned char)t1615; /* x260905 */ t1614 = a34495; /* x260893 */ if (!((t1614.tag)==OUTPUT_PORT_TYPE)) {backtrace_internal("LOOP[28231]"); write_char2_error();} putc(t1613, (t1614.value.output_port_type)); /* x260892 */ /* x260891 */ /* x260882 */ /* x260881 */ /* x260880 */ t1609 = a34502; /* x266253 */ if (t1609==0) goto l470; /* x260888 */ /* x260887 */ /* x260885 */ t1611 = a34502; /* x260886 */ t1612 = 1; /* x266252 */ t1610 = t1611-t1612; /* x260883 */ a34502 = t1610; goto h28231; l470: /* x260890 */ /* x260889 */ return; l468: /* x260941 */ /* x260940 */ /* x260939 */ /* x260938 */ /* x260932 */ t1603 = a34450; /* x260933 */ t1604 = a34498; /* x260937 */ /* x260935 */ t1606 = a34499; /* x260936 */ t1607 = 10; /* x266243 */ t1605 = t1606%t1607; /* x266244 */ if ((t1604<0)||(t1604>=(t1603->length))) {backtrace_internal("[inside LOOP 28235]"); vector_set3_error();} (t1603->element)[t1604] = t1605; /* x260930 */ /* x260929 */ /* x260924 */ /* x260922 */ t1599 = a34498; /* x260923 */ t1600 = 1; /* x266246 */ t1597 = t1599+t1600; /* x260928 */ /* x260926 */ t1601 = a34499; /* x260927 */ t1602 = 10; /* x266245 */ t1598 = t1601/t1602; /* x260920 */ a34498 = t1597; a34499 = t1598; goto h28228; l460: /* x261056 */ /* x260957 */ /* x260956 */ t1559 = a34494; /* x266242 */ if (!(t1559<0)) goto l462; /* x261049 */ /* x261048 */ /* x261047 */ /* x261046 */ /* x261044 */ t1592 = '-'; /* x261045 */ t1593 = a34495; /* x261043 */ if (!((t1593.tag)==OUTPUT_PORT_TYPE)) {backtrace_internal("[inside DISPLAY-EXACT-INTEGER2 28238]"); write_char2_error();} putc(t1592, (t1593.value.output_port_type)); /* x261042 */ /* x261041 */ /* x261039 */ t1562 = 0; /* x261040 */ t1563 = a34494; /* x261038 */ /* x261037 */ /* x261036 */ /* x261035 */ /* x261034 */ /* x261033 */ /* x261032 */ /* x260959 */ /* x260958 */ a34508 = t1562; a34509 = t1563; h28242: /* x261031 */ /* x260962 */ /* x260961 */ t1564 = a34509; /* x266241 */ if (!(t1564==0)) goto l464; /* x261006 */ /* x261005 */ /* x261003 */ t1590 = a34508; /* x261004 */ t1591 = 1; /* x266233 */ t1577 = t1590-t1591; /* x261001 */ /* x261000 */ /* x260999 */ /* x260998 */ /* x260997 */ /* x260996 */ /* x260995 */ /* x260964 */ /* x260963 */ a34512 = t1577; h28245: /* x260994 */ /* x260993 */ /* x260991 */ /* x260990 */ /* x260985 */ /* x260984 */ t1587 = '0'; /* x266235 */ t1585 = (int)((unsigned char)t1587); /* x260989 */ /* x260987 */ t1588 = a34450; /* x260988 */ t1589 = a34512; /* x266234 */ if ((t1589<0)||(t1589>=(t1588->length))) {backtrace_internal("LOOP[28245]"); vector_ref3_error();} t1586 = (t1588->element)[t1589]; /* x266236 */ t1584 = t1585+t1586; /* x266237 */ if ((t1584<0)||(t1584>=256)) {backtrace_internal("LOOP[28245]"); integer_to_char2_error();} t1582 = (unsigned char)t1584; /* x260992 */ t1583 = a34495; /* x260980 */ if (!((t1583.tag)==OUTPUT_PORT_TYPE)) {backtrace_internal("LOOP[28245]"); write_char2_error();} putc(t1582, (t1583.value.output_port_type)); /* x260979 */ /* x260978 */ /* x260969 */ /* x260968 */ /* x260967 */ t1578 = a34512; /* x266239 */ if (t1578==0) goto l466; /* x260975 */ /* x260974 */ /* x260972 */ t1580 = a34512; /* x260973 */ t1581 = 1; /* x266238 */ t1579 = t1580-t1581; /* x260970 */ a34512 = t1579; goto h28245; l466: /* x260977 */ /* x260976 */ return; l464: /* x261030 */ /* x261029 */ /* x261028 */ /* x261027 */ /* x261019 */ t1571 = a34450; /* x261020 */ t1572 = a34508; /* x261026 */ /* x261025 */ /* x261023 */ t1575 = a34509; /* x261024 */ t1576 = 10; /* x266228 */ t1574 = t1575%t1576; /* x266229 */ t1573 = -t1574; /* x266230 */ if ((t1572<0)||(t1572>=(t1571->length))) {backtrace_internal("[inside LOOP 28249]"); vector_set3_error();} (t1571->element)[t1572] = t1573; /* x261017 */ /* x261016 */ /* x261011 */ /* x261009 */ t1567 = a34508; /* x261010 */ t1568 = 1; /* x266232 */ t1565 = t1567+t1568; /* x261015 */ /* x261013 */ t1569 = a34509; /* x261014 */ t1570 = 10; /* x266231 */ t1566 = t1569/t1570; /* x261007 */ a34508 = t1565; a34509 = t1566; goto h28242; l462: /* x261055 */ /* x261054 */ /* x261053 */ /* x261051 */ t1560 = '0'; /* x261052 */ t1561 = a34495; /* x261050 */ if ((t1561.tag)==OUTPUT_PORT_TYPE) {putc(t1560, (t1561.value.output_port_type)); return;} backtrace_internal("[inside DISPLAY-EXACT-INTEGER2 28252]"); write_char2_error();} /* DISPLAY-STRING2[28215] */ void f28215(char *a34487, struct w49 a34488) {int a34489; /* N */ int a34492; /* I */ int t1623; int t1624; int t1625; int t1626; int t1627; int t1628; int t1629; char t1630; struct w49 t1631; char *t1632; int t1633; char *t1634; /* x260865 */ /* x260864 */ /* x260863 */ t1634 = a34487; /* x266257 */ t1623 = strlen(t1634); /* x260861 */ a34489 = t1623; /* x260860 */ /* x260859 */ t1624 = 0; /* x260858 */ /* x260857 */ /* x260856 */ /* x260855 */ /* x260854 */ /* x260853 */ /* x260852 */ /* x260827 */ /* x260826 */ a34492 = t1624; h28219: /* x260851 */ /* x260831 */ /* x260829 */ t1625 = a34492; /* x260830 */ t1626 = a34489; /* x266260 */ if (!(t1625=strlen(t1632))) {backtrace_internal("[inside LOOP 28220]"); string_ref3_error();} t1630 = t1632[t1633]; /* x260844 */ t1631 = a34488; /* x260839 */ if (!((t1631.tag)==OUTPUT_PORT_TYPE)) {backtrace_internal("[inside LOOP 28220]"); write_char2_error();} putc(t1630, (t1631.value.output_port_type)); /* x260838 */ /* x260837 */ /* x260836 */ /* x260834 */ t1628 = a34492; /* x260835 */ t1629 = 1; /* x266259 */ t1627 = t1628+t1629; /* x260832 */ a34492 = t1627; goto h28219; l472: /* x260850 */ /* x260849 */ return;} /* LOOKUP-CHARACTER-NAME[28171] */ struct w49 f28171(struct structure_type24753 *a34432) {struct w49 a34435; /* NAMES */ struct w49 a34439; /* S */ struct w49 a34440; /* NAME */ struct structure_type24753 *t1635; struct structure_type24753 *t1636; struct w49 t1637; struct w49 t1638; struct w49 t1639; struct w49 t1640; struct w49 t1641; struct w49 t1642; struct w49 t1643; struct w49 t1644; struct w49 t1645; struct w16638 t1646; struct w16638 t1647; struct w49 t1648; struct w49 t1649; struct w16638 t1650; struct w16638 t1651; struct w49 t1652; struct w49 t1653; struct w49 t1654; struct w49 t1655; struct w49 t1656; struct w49 t1657; struct w49 t1658; char *t1659; /* x260658 */ /* x260657 */ t1635 = &t1660; /* x260624 */ /* x260623 */ /* x260622 */ /* x260621 */ /* x260620 */ /* x260619 */ /* x260618 */ /* x260534 */ /* x260533 */ a34435.tag = STRUCTURE_TYPE24753; a34435.value.structure_type24753 = t1635; h28174: /* x260617 */ /* x260616 */ /* x260610 */ /* x260609 */ t1658 = a34435; /* x266275 */ if (!((t1658.tag)==NULL_TYPE)) goto l481; /* x260613 */ /* x260612 */ t1659 = "Unrecognized character name"; /* x266274 */ stalin_panic(t1659); goto l482; l481: /* x260615 */ /* x260614 */ l482: /* x260607 */ /* x260606 */ /* x260595 */ /* x260589 */ t1636 = a34432; /* x260594 */ /* x260593 */ /* x260592 */ t1653 = a34435; /* x266279 */ if (!((t1653.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 28175]"); structure_ref_error();} t1652 = t1653.value.structure_type24753->s0; /* x266280 */ if (!((t1652.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 28175]"); structure_ref_error();} t1637 = t1652.value.structure_type24753->s0; /* x260588 */ /* x260587 */ /* x260586 */ /* x260585 */ /* x260584 */ /* x260583 */ /* x260582 */ /* x260536 */ /* x260535 */ a34439.tag = STRUCTURE_TYPE24753; a34439.value.structure_type24753 = t1636; a34440 = t1637; h28178: /* x260581 */ /* x260580 */ /* x260575 */ /* x260574 */ t1638 = a34439; /* x266282 */ if (!((t1638.tag)==NULL_TYPE)) goto l475; /* x260578 */ /* x260577 */ t1639 = a34440; /* x266281 */ if ((t1639.tag)==NULL_TYPE) goto l473; l475: /* x260570 */ /* x260543 */ /* x260542 */ /* x260541 */ t1640 = a34439; /* x266289 */ if ((t1640.tag)==NULL_TYPE) goto l474; /* x260568 */ /* x260548 */ /* x260547 */ /* x260546 */ t1641 = a34440; /* x266287 */ if ((t1641.tag)==NULL_TYPE) goto l474; /* x260566 */ /* x260556 */ /* x260555 */ /* x260554 */ t1647 = *((struct w16638 *)(&a34440)); /* x266285 */ if (!((t1647.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP? 28179]"); structure_ref_error();} t1643 = t1647.value.structure_type24753->s0; /* x260552 */ /* x260551 */ t1646 = *((struct w16638 *)(&a34439)); /* x266286 */ if (!((t1646.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP? 28179]"); structure_ref_error();} t1642 = t1646.value.structure_type24753->s0; /* x260549 */ t1644 = t1642; t1645 = t1643; if (f27372(t1644, t1645)==FALSE_TYPE) goto l474; /* x260564 */ /* x260560 */ /* x260559 */ t1650 = *((struct w16638 *)(&a34439)); /* x266284 */ if (!((t1650.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP? 28179]"); structure_ref_error();} t1648 = t1650.value.structure_type24753->s1; /* x260563 */ /* x260562 */ t1651 = *((struct w16638 *)(&a34440)); /* x266283 */ if (!((t1651.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP? 28179]"); structure_ref_error();} t1649 = t1651.value.structure_type24753->s1; /* x260557 */ a34439 = t1648; a34440 = t1649; goto h28178; l473: /* x260600 */ /* x260599 */ /* x260598 */ t1657 = a34435; /* x266277 */ if (!((t1657.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 28175]"); structure_ref_error();} t1656 = t1657.value.structure_type24753->s0; /* x266278 */ if ((t1656.tag)==STRUCTURE_TYPE24753) return t1656.value.structure_type24753->s1; backtrace_internal("[inside LOOP 28175]"); structure_ref_error(); l474: /* x260605 */ /* x260604 */ /* x260603 */ t1655 = a34435; /* x266276 */ if (!((t1655.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 28175]"); structure_ref_error();} t1654 = t1655.value.structure_type24753->s1; /* x260601 */ a34435 = t1654; goto h28174;} /* READ-SYMBOL[28165] */ char *f28165(struct structure_type24753 *a34429) {unsigned a34430; /* C */ unsigned t1676; unsigned t1677; char t1678; unsigned t1679; char *t1680; struct structure_type24753 *t1681; struct w49 t1682; struct structure_type24753 *t1683; struct structure_type24753 *t1684; struct structure_type24753 *t1686; char t1687; struct structure_type24753 *t1688; char t1689; struct w49 t1690; struct w49 t1691; struct structure_type24753 *t1692; char *t1693; struct structure_type24753 *t1694; struct w49 t1695; struct structure_type24753 *t1696; struct structure_type24753 *t1697; struct w49 t1698; struct structure_type24753 *t1699; h28165: /* x260530 */ /* x260529 */ /* x260528 */ t1698 = a34225; /* x260527 */ t1699 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t1699==NULL) {backtrace_internal("READ-SYMBOL[28165]"); out_of_memory_error();} t1699->s0 = t1698; t1699->s1.tag = NULL_TYPE; t1676 = f28700(t1699); /* x260526 */ a34430 = t1676; /* x260525 */ /* x260487 */ /* x260486 */ t1677 = a34430; /* x266292 */ if (!(t1677==EOF_OBJECT_TYPE)) goto l484; /* x260496 */ /* x260495 */ /* x260494 */ /* x260493 */ /* x260492 */ /* x260491 */ t1696 = a34429; /* x260490 */ t1697 = t1696; t1694 = f26326(t1697); /* x260489 */ /* MOVE: branching squeezed to general */ if (t1694>=((struct structure_type24753 *)VALUE_OFFSET)) {t1695.tag = STRUCTURE_TYPE24753; t1695.value.structure_type24753 = t1694;} else t1695.tag = (unsigned)t1694; t1693 = f27585(t1695); /* x260488 */ return f26395(t1693); l484: /* x260524 */ /* x260499 */ /* x260498 */ t1678 = (char)(a34430>>2); /* x260497 */ t1679 = ((unsigned)((unsigned char)t1678))<<2; if (f28160(t1679)==FALSE_TYPE) goto l486; /* x260514 */ /* x260513 */ /* x260512 */ /* x260511 */ /* x260510 */ t1691 = a34225; /* x260509 */ t1692 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t1692==NULL) {backtrace_internal("[inside READ-SYMBOL 28168]"); out_of_memory_error();} t1692->s0 = t1691; t1692->s1.tag = NULL_TYPE; f28696(t1692); /* x260508 */ /* x260507 */ /* x260506 */ /* x260504 */ /* x260503 */ t1689 = (char)(a34430>>2); /* x260502 */ t1690.tag = ((unsigned)((unsigned char)t1689))<<2; t1687 = f27415(t1690); /* x260505 */ t1688 = a34429; /* x266291 */ t1686 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t1686==NULL) {backtrace_internal("[inside READ-SYMBOL 28169]"); out_of_memory_error();} t1686->s0.tag = ((unsigned)((unsigned char)t1687))<<2; t1686->s1.tag = STRUCTURE_TYPE24753; t1686->s1.value.structure_type24753 = t1688; /* x260500 */ a34429 = t1686; goto h28165; l486: /* x260523 */ /* x260522 */ /* x260521 */ /* x260520 */ /* x260519 */ /* x260518 */ t1683 = a34429; /* x260517 */ t1684 = t1683; t1681 = f26326(t1684); /* x260516 */ /* MOVE: branching squeezed to general */ if (t1681>=((struct structure_type24753 *)VALUE_OFFSET)) {t1682.tag = STRUCTURE_TYPE24753; t1682.value.structure_type24753 = t1681;} else t1682.tag = (unsigned)t1681; t1680 = f27585(t1682); /* x260515 */ return f26395(t1680);} /* CHAR-SUBSEQUENT?[28160] */ unsigned f28160(unsigned a34424) {unsigned t1700; unsigned t1701; struct w49 t1702; unsigned t1703; char t1704; struct w49 t1705; char t1706; unsigned t1707; char t1708; struct w49 t1709; char t1710; unsigned t1711; char t1712; struct w49 t1713; char t1714; /* x260482 */ /* x260482 */ /* x260481 */ /* x260480 */ t1700 = a34424; /* x260479 */ if (!(f28145(t1700)==FALSE_TYPE)) goto l487; /* x260476 */ /* x260475 */ /* x260474 */ t1701 = a34424; /* x260473 */ t1702.tag = t1701; if (!(f27405(t1702)==FALSE_TYPE)) goto l487; /* x260470 */ /* x260469 */ /* x260468 */ t1704 = '+'; /* x260467 */ t1703 = a34424; /* x260466 */ t1705.tag = t1703; t1706 = t1704; if (!(f27342(t1705, t1706)==FALSE_TYPE)) goto l487; /* x260463 */ /* x260462 */ /* x260461 */ t1708 = '-'; /* x260460 */ t1707 = a34424; /* x260459 */ t1709.tag = t1707; t1710 = t1708; if (!(f27342(t1709, t1710)==FALSE_TYPE)) goto l487; /* x260456 */ /* x260455 */ t1712 = '.'; /* x260454 */ t1711 = a34424; /* x260453 */ t1713.tag = t1711; t1714 = t1712; if (f27342(t1713, t1714)==FALSE_TYPE) goto l488; l487: return TRUE_TYPE; l488: return FALSE_TYPE;} /* CHAR-INITIAL?[28145] */ unsigned f28145(unsigned a34409) {unsigned t1715; unsigned t1716; char t1717; struct w49 t1718; char t1719; unsigned t1720; char t1721; struct w49 t1722; char t1723; unsigned t1724; char t1725; struct w49 t1726; char t1727; unsigned t1728; char t1729; struct w49 t1730; char t1731; unsigned t1732; char t1733; struct w49 t1734; char t1735; unsigned t1736; char t1737; struct w49 t1738; char t1739; unsigned t1740; char t1741; struct w49 t1742; char t1743; unsigned t1744; char t1745; struct w49 t1746; char t1747; unsigned t1748; char t1749; struct w49 t1750; char t1751; unsigned t1752; char t1753; struct w49 t1754; char t1755; unsigned t1756; char t1757; struct w49 t1758; char t1759; unsigned t1760; char t1761; struct w49 t1762; char t1763; unsigned t1764; char t1765; struct w49 t1766; char t1767; unsigned t1768; char t1769; struct w49 t1770; char t1771; /* x260442 */ /* x260442 */ /* x260441 */ /* x260440 */ t1715 = a34409; /* x260439 */ if (!(f27403(t1715)==FALSE_TYPE)) goto l494; /* x260436 */ /* x260435 */ /* x260434 */ t1717 = '~'; /* x260433 */ t1716 = a34409; /* x260432 */ t1718.tag = t1716; t1719 = t1717; if (!(f27342(t1718, t1719)==FALSE_TYPE)) goto l494; /* x260429 */ /* x260428 */ /* x260427 */ t1721 = '!'; /* x260426 */ t1720 = a34409; /* x260425 */ t1722.tag = t1720; t1723 = t1721; if (!(f27342(t1722, t1723)==FALSE_TYPE)) goto l494; /* x260422 */ /* x260421 */ /* x260420 */ t1725 = '$'; /* x260419 */ t1724 = a34409; /* x260418 */ t1726.tag = t1724; t1727 = t1725; if (!(f27342(t1726, t1727)==FALSE_TYPE)) goto l494; /* x260415 */ /* x260414 */ /* x260413 */ t1729 = '%'; /* x260412 */ t1728 = a34409; /* x260411 */ t1730.tag = t1728; t1731 = t1729; if (!(f27342(t1730, t1731)==FALSE_TYPE)) goto l494; /* x260408 */ /* x260407 */ /* x260406 */ t1733 = '^'; /* x260405 */ t1732 = a34409; /* x260404 */ t1734.tag = t1732; t1735 = t1733; if (!(f27342(t1734, t1735)==FALSE_TYPE)) goto l494; /* x260401 */ /* x260400 */ /* x260399 */ t1737 = '&'; /* x260398 */ t1736 = a34409; /* x260397 */ t1738.tag = t1736; t1739 = t1737; if (!(f27342(t1738, t1739)==FALSE_TYPE)) goto l494; /* x260394 */ /* x260393 */ /* x260392 */ t1741 = '*'; /* x260391 */ t1740 = a34409; /* x260390 */ t1742.tag = t1740; t1743 = t1741; if (!(f27342(t1742, t1743)==FALSE_TYPE)) goto l494; /* x260387 */ /* x260386 */ /* x260385 */ t1745 = '_'; /* x260384 */ t1744 = a34409; /* x260383 */ t1746.tag = t1744; t1747 = t1745; if (!(f27342(t1746, t1747)==FALSE_TYPE)) goto l494; /* x260380 */ /* x260379 */ /* x260378 */ t1749 = '/'; /* x260377 */ t1748 = a34409; /* x260376 */ t1750.tag = t1748; t1751 = t1749; if (!(f27342(t1750, t1751)==FALSE_TYPE)) goto l494; /* x260373 */ /* x260372 */ /* x260371 */ t1753 = ':'; /* x260370 */ t1752 = a34409; /* x260369 */ t1754.tag = t1752; t1755 = t1753; if (!(f27342(t1754, t1755)==FALSE_TYPE)) goto l494; /* x260366 */ /* x260365 */ /* x260364 */ t1757 = '<'; /* x260363 */ t1756 = a34409; /* x260362 */ t1758.tag = t1756; t1759 = t1757; if (!(f27342(t1758, t1759)==FALSE_TYPE)) goto l494; /* x260359 */ /* x260358 */ /* x260357 */ t1761 = '='; /* x260356 */ t1760 = a34409; /* x260355 */ t1762.tag = t1760; t1763 = t1761; if (!(f27342(t1762, t1763)==FALSE_TYPE)) goto l494; /* x260352 */ /* x260351 */ /* x260350 */ t1765 = '>'; /* x260349 */ t1764 = a34409; /* x260348 */ t1766.tag = t1764; t1767 = t1765; if (!(f27342(t1766, t1767)==FALSE_TYPE)) goto l494; /* x260345 */ /* x260344 */ t1769 = '?'; /* x260343 */ t1768 = a34409; /* x260342 */ t1770.tag = t1768; t1771 = t1769; if (f27342(t1770, t1771)==FALSE_TYPE) goto l495; l494: return TRUE_TYPE; l495: return FALSE_TYPE;} /* READ-NUMBER[28111] */ struct w30215 f28111(int a34387) {struct w30215 r28111; unsigned a34388; /* C1 */ unsigned a34401; /* C2 */ unsigned a34403; /* C3 */ unsigned a34406; /* C3 */ unsigned t1772; unsigned t1773; char t1774; struct w49 t1775; char t1776; char t1777; struct w49 t1778; char t1779; char t1780; char t1781; struct w49 t1782; char t1783; char t1784; char t1785; struct w49 t1786; char t1787; char t1788; char t1789; struct w49 t1790; char t1791; char t1792; char t1793; struct w49 t1794; char t1795; char t1796; char t1797; struct w49 t1798; char t1799; char t1800; char t1801; struct w49 t1802; char t1803; char t1804; char t1805; struct w49 t1806; char t1807; char t1808; char t1809; struct w49 t1810; char t1811; char t1812; char t1813; struct w49 t1814; char t1815; char t1816; char t1817; struct w49 t1818; char t1819; unsigned t1821; unsigned t1822; struct w49 t1823; unsigned t1824; char t1825; struct w49 t1826; char t1827; unsigned t1828; char t1829; struct w49 t1830; char t1831; char *t1832; unsigned t1833; float t1834; float t1835; int t1836; float t1837; int t1838; int t1839; int t1840; int t1841; int t1842; unsigned t1843; char t1844; unsigned t1845; char *t1846; unsigned t1847; struct w49 t1848; char *t1849; struct w49 t1850; struct structure_type24753 *t1851; unsigned t1852; float t1853; float t1854; int t1855; float t1856; int t1857; int t1858; int t1859; int t1860; unsigned t1861; char t1862; unsigned t1863; char *t1864; unsigned t1865; struct w49 t1866; char *t1867; struct w49 t1868; struct structure_type24753 *t1869; float t1870; float t1871; int t1872; float t1873; int t1874; int t1875; int t1876; int t1877; unsigned t1878; char t1879; unsigned t1880; char *t1881; struct w49 t1882; struct structure_type24753 *t1883; struct w49 t1884; struct structure_type24753 *t1885; float t1887; float t1888; float t1889; int t1890; struct w49 t1891; struct structure_type24753 *t1892; int t1894; int t1895; int t1896; int t1897; int t1898; int t1899; int t1900; char t1901; char t1902; struct w49 t1903; struct structure_type24753 *t1904; struct w49 t1905; struct structure_type24753 *t1906; while (region28111!=((struct region28111 *)(&initial_region28111))) {struct region28111 *region; region = region28111; region28111 = region28111->region; GC_free(region);} region_size28111 = REGION_SIZE28111; fp28111 = &((region28111->data)[0]); ALIGN(fp28111); h28111: /* x260311 */ /* x260310 */ /* x260309 */ t1905 = a34225; /* x260308 */ t1906 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t1906==NULL) {backtrace_internal("READ-NUMBER[28111]"); out_of_memory_error();} t1906->s0 = t1905; t1906->s1.tag = NULL_TYPE; t1772 = f28700(t1906); /* x260307 */ a34388 = t1772; /* x260306 */ /* x260010 */ /* x260009 */ t1773 = a34388; /* x266329 */ if (!(t1773==EOF_OBJECT_TYPE)) goto l512; /* x260013 */ /* x260012 */ /* x260011 */ r28111.tag = FIXNUM_TYPE; r28111.value.fixnum_type = a34387; return r28111; l512: /* x260305 */ /* x260016 */ /* x260015 */ t1774 = (char)(a34388>>2); /* x260014 */ t1775.tag = ((unsigned)((unsigned char)t1774))<<2; if (f27405(t1775)==FALSE_TYPE) goto l514; /* x260039 */ /* x260038 */ /* x260037 */ /* x260036 */ /* x260035 */ t1903 = a34225; /* x260034 */ if ((fp28111+sizeof(struct structure_type24753))>(&((region28111->data)[region_size28111]))) {struct region28111 *region; unsigned region_size = REGION_SIZE28111; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28111 *)GC_malloc_uncollectable(sizeof(struct region28111)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ-NUMBER 28114]"); out_of_memory_error();} region->region = region28111; region_size28111 = region_size; region28111 = region; fp28111 = &((region->data)[0]); ALIGN(fp28111);} t1904 = (struct structure_type24753 *)fp28111; fp28111 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t1904->s0 = t1903; t1904->s1.tag = NULL_TYPE; f28696(t1904); /* x260033 */ /* x260032 */ /* x260031 */ /* x260022 */ /* x260020 */ t1897 = 10; /* x260021 */ t1898 = a34387; /* x266327 */ t1895 = t1897*t1898; /* x260030 */ /* x260026 */ /* x260025 */ t1901 = (char)(a34388>>2); /* x266325 */ t1899 = (int)((unsigned char)t1901); /* x260029 */ /* x260028 */ t1902 = '0'; /* x266324 */ t1900 = (int)((unsigned char)t1902); /* x266326 */ t1896 = t1899-t1900; /* x266328 */ t1894 = t1895+t1896; /* x260017 */ a34387 = t1894; goto h28111; l514: /* x260304 */ /* x260043 */ /* x260042 */ t1777 = '.'; /* x260041 */ t1776 = (char)(a34388>>2); /* x260040 */ t1778.tag = ((unsigned)((unsigned char)t1776))<<2; t1779 = t1777; if (f27342(t1778, t1779)==FALSE_TYPE) goto l516; /* x260056 */ /* x260055 */ while (region28116!=((struct region28116 *)(&initial_region28116))) {struct region28116 *region; region = region28116; region28116 = region28116->region; GC_free(region);} region_size28116 = REGION_SIZE28116; fp28116 = &((region28116->data)[0]); ALIGN(fp28116); /* x260054 */ /* x260053 */ /* x260052 */ t1891 = a34225; /* x260051 */ if ((fp28116+sizeof(struct structure_type24753))>(&((region28116->data)[region_size28116]))) {struct region28116 *region; unsigned region_size = REGION_SIZE28116; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28116 *)GC_malloc_uncollectable(sizeof(struct region28116)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ-NUMBER 28116]"); out_of_memory_error();} region->region = region28116; region_size28116 = region_size; region28116 = region; fp28116 = &((region->data)[0]); ALIGN(fp28116);} t1892 = (struct structure_type24753 *)fp28116; fp28116 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t1892->s0 = t1891; t1892->s1.tag = NULL_TYPE; f28696(t1892); /* x260050 */ /* x260049 */ /* x260047 */ /* x260046 */ t1890 = a34387; /* x266323 */ t1887 = (float)t1890; /* x260048 */ t1888 = 1.0e1; /* x260044 */ t1889 = f28079(t1887, t1888); r28111.tag = FLONUM_TYPE; r28111.value.flonum_type = t1889; return r28111; l516: /* x260303 */ /* x260141 */ /* x260140 */ /* x260139 */ t1781 = 'e'; /* x260138 */ t1780 = (char)(a34388>>2); /* x260137 */ t1782.tag = ((unsigned)((unsigned char)t1780))<<2; t1783 = t1781; if (!(f27342(t1782, t1783)==FALSE_TYPE)) goto l517; /* x260134 */ /* x260133 */ /* x260132 */ t1785 = 'E'; /* x260131 */ t1784 = (char)(a34388>>2); /* x260130 */ t1786.tag = ((unsigned)((unsigned char)t1784))<<2; t1787 = t1785; if (!(f27342(t1786, t1787)==FALSE_TYPE)) goto l517; /* x260127 */ /* x260126 */ /* x260125 */ t1789 = 's'; /* x260124 */ t1788 = (char)(a34388>>2); /* x260123 */ t1790.tag = ((unsigned)((unsigned char)t1788))<<2; t1791 = t1789; if (!(f27342(t1790, t1791)==FALSE_TYPE)) goto l517; /* x260120 */ /* x260119 */ /* x260118 */ t1793 = 'S'; /* x260117 */ t1792 = (char)(a34388>>2); /* x260116 */ t1794.tag = ((unsigned)((unsigned char)t1792))<<2; t1795 = t1793; if (!(f27342(t1794, t1795)==FALSE_TYPE)) goto l517; /* x260113 */ /* x260112 */ /* x260111 */ t1797 = 'f'; /* x260110 */ t1796 = (char)(a34388>>2); /* x260109 */ t1798.tag = ((unsigned)((unsigned char)t1796))<<2; t1799 = t1797; if (!(f27342(t1798, t1799)==FALSE_TYPE)) goto l517; /* x260106 */ /* x260105 */ /* x260104 */ t1801 = 'F'; /* x260103 */ t1800 = (char)(a34388>>2); /* x260102 */ t1802.tag = ((unsigned)((unsigned char)t1800))<<2; t1803 = t1801; if (!(f27342(t1802, t1803)==FALSE_TYPE)) goto l517; /* x260099 */ /* x260098 */ /* x260097 */ t1805 = 'd'; /* x260096 */ t1804 = (char)(a34388>>2); /* x260095 */ t1806.tag = ((unsigned)((unsigned char)t1804))<<2; t1807 = t1805; if (!(f27342(t1806, t1807)==FALSE_TYPE)) goto l517; /* x260092 */ /* x260091 */ /* x260090 */ t1809 = 'D'; /* x260089 */ t1808 = (char)(a34388>>2); /* x260088 */ t1810.tag = ((unsigned)((unsigned char)t1808))<<2; t1811 = t1809; if (!(f27342(t1810, t1811)==FALSE_TYPE)) goto l517; /* x260085 */ /* x260084 */ /* x260083 */ t1813 = 'l'; /* x260082 */ t1812 = (char)(a34388>>2); /* x260081 */ t1814.tag = ((unsigned)((unsigned char)t1812))<<2; t1815 = t1813; if (!(f27342(t1814, t1815)==FALSE_TYPE)) goto l517; /* x260078 */ /* x260077 */ t1817 = 'L'; /* x260076 */ t1816 = (char)(a34388>>2); /* x260075 */ t1818.tag = ((unsigned)((unsigned char)t1816))<<2; t1819 = t1817; if (f27342(t1818, t1819)==FALSE_TYPE) goto l518; l517: /* x260299 */ /* x260298 */ while (region28127!=((struct region28127 *)(&initial_region28127))) {struct region28127 *region; region = region28127; region28127 = region28127->region; GC_free(region);} region_size28127 = REGION_SIZE28127; fp28127 = &((region28127->data)[0]); ALIGN(fp28127); /* x260297 */ /* x260296 */ /* x260295 */ t1884 = a34225; /* x260294 */ if ((fp28127+sizeof(struct structure_type24753))>(&((region28127->data)[region_size28127]))) {struct region28127 *region; unsigned region_size = REGION_SIZE28127; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28127 *)GC_malloc_uncollectable(sizeof(struct region28127)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ-NUMBER 28127]"); out_of_memory_error();} region->region = region28127; region_size28127 = region_size; region28127 = region; fp28127 = &((region->data)[0]); ALIGN(fp28127);} t1885 = (struct structure_type24753 *)fp28127; fp28127 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t1885->s0 = t1884; t1885->s1.tag = NULL_TYPE; f28696(t1885); /* x260293 */ while (region28128!=((struct region28128 *)(&initial_region28128))) {struct region28128 *region; region = region28128; region28128 = region28128->region; GC_free(region);} region_size28128 = REGION_SIZE28128; fp28128 = &((region28128->data)[0]); ALIGN(fp28128); /* x260292 */ /* x260291 */ /* x260290 */ t1882 = a34225; /* x260289 */ if ((fp28128+sizeof(struct structure_type24753))>(&((region28128->data)[region_size28128]))) {struct region28128 *region; unsigned region_size = REGION_SIZE28128; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28128 *)GC_malloc_uncollectable(sizeof(struct region28128)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ-NUMBER 28128]"); out_of_memory_error();} region->region = region28128; region_size28128 = region_size; region28128 = region; fp28128 = &((region->data)[0]); ALIGN(fp28128);} t1883 = (struct structure_type24753 *)fp28128; fp28128 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t1883->s0 = t1882; t1883->s1.tag = NULL_TYPE; t1821 = f28696(t1883); /* x260288 */ a34401 = t1821; /* x260287 */ /* x260286 */ /* x260280 */ /* x260279 */ t1880 = a34401; /* x266294 */ if (!(t1880==EOF_OBJECT_TYPE)) goto l547; /* x260283 */ /* x260282 */ t1881 = "EOF while reading exponent"; /* x266293 */ stalin_panic(t1881); goto l548; l547: /* x260285 */ /* x260284 */ l548: /* x260277 */ /* x260276 */ /* x260144 */ /* x260143 */ t1822 = a34401; /* x260142 */ t1823.tag = t1822; if (f27405(t1823)==FALSE_TYPE) goto l529; /* x260164 */ /* x260163 */ /* x260162 */ /* x260148 */ /* x260147 */ t1872 = a34387; /* x266321 */ t1870 = (float)t1872; /* x260161 */ /* x260150 */ t1873 = 1.0e1; /* x260160 */ /* x260159 */ /* x260155 */ /* x260154 */ t1878 = a34401; /* x266318 */ if (!(t1878>2))); /* x260158 */ /* x260157 */ t1879 = '0'; /* x266317 */ t1877 = (int)((unsigned char)t1879); /* x266319 */ t1875 = t1876-t1877; /* x260151 */ t1874 = f28063(t1875); /* x266320 */ t1871 = pow(t1873, t1874); /* x266322 */ r28111.tag = FLONUM_TYPE; r28111.value.flonum_type = t1870*t1871; return r28111; l529: /* x260275 */ /* x260168 */ /* x260167 */ t1825 = '+'; /* x260166 */ t1824 = a34401; /* x260165 */ t1826.tag = t1824; t1827 = t1825; if (f27342(t1826, t1827)==FALSE_TYPE) goto l531; /* x260215 */ /* x260214 */ while (region28132!=((struct region28132 *)(&initial_region28132))) {struct region28132 *region; region = region28132; region28132 = region28132->region; GC_free(region);} region_size28132 = REGION_SIZE28132; fp28132 = &((region28132->data)[0]); ALIGN(fp28132); /* x260213 */ /* x260212 */ /* x260211 */ t1868 = a34225; /* x260210 */ if ((fp28132+sizeof(struct structure_type24753))>(&((region28132->data)[region_size28132]))) {struct region28132 *region; unsigned region_size = REGION_SIZE28132; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28132 *)GC_malloc_uncollectable(sizeof(struct region28132)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ-NUMBER 28132]"); out_of_memory_error();} region->region = region28132; region_size28132 = region_size; region28132 = region; fp28132 = &((region->data)[0]); ALIGN(fp28132);} t1869 = (struct structure_type24753 *)fp28132; fp28132 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t1869->s0 = t1868; t1869->s1.tag = NULL_TYPE; t1852 = f28696(t1869); /* x260209 */ a34403 = t1852; /* x260208 */ /* x260196 */ /* x260190 */ /* x260189 */ t1863 = a34403; /* x266310 */ if (!(t1863==EOF_OBJECT_TYPE)) goto l541; /* x260193 */ /* x260192 */ t1864 = "EOF while reading exponent"; /* x266309 */ stalin_panic(t1864); goto l542; l541: /* x260195 */ /* x260194 */ l542: /* x260207 */ /* x260201 */ /* x260200 */ /* x260199 */ t1865 = a34403; /* x260198 */ t1866.tag = t1865; if (!(f27405(t1866)==FALSE_TYPE)) goto l544; /* x260204 */ /* x260203 */ t1867 = "Unfinished exponent"; /* x266307 */ stalin_panic(t1867); goto l545; l544: /* x260206 */ /* x260205 */ l545: /* x260187 */ /* x260186 */ /* x260172 */ /* x260171 */ t1855 = a34387; /* x266315 */ t1853 = (float)t1855; /* x260185 */ /* x260174 */ t1856 = 1.0e1; /* x260184 */ /* x260183 */ /* x260179 */ /* x260178 */ t1861 = a34403; /* x266312 */ if (!(t1861>2))); /* x260182 */ /* x260181 */ t1862 = '0'; /* x266311 */ t1860 = (int)((unsigned char)t1862); /* x266313 */ t1858 = t1859-t1860; /* x260175 */ t1857 = f28063(t1858); /* x266314 */ t1854 = pow(t1856, t1857); /* x266316 */ r28111.tag = FLONUM_TYPE; r28111.value.flonum_type = t1853*t1854; return r28111; l531: /* x260274 */ /* x260219 */ /* x260218 */ t1829 = '-'; /* x260217 */ t1828 = a34401; /* x260216 */ t1830.tag = t1828; t1831 = t1829; if (f27342(t1830, t1831)==FALSE_TYPE) goto l533; /* x260268 */ /* x260267 */ while (region28137!=((struct region28137 *)(&initial_region28137))) {struct region28137 *region; region = region28137; region28137 = region28137->region; GC_free(region);} region_size28137 = REGION_SIZE28137; fp28137 = &((region28137->data)[0]); ALIGN(fp28137); /* x260266 */ /* x260265 */ /* x260264 */ t1850 = a34225; /* x260263 */ if ((fp28137+sizeof(struct structure_type24753))>(&((region28137->data)[region_size28137]))) {struct region28137 *region; unsigned region_size = REGION_SIZE28137; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28137 *)GC_malloc_uncollectable(sizeof(struct region28137)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ-NUMBER 28137]"); out_of_memory_error();} region->region = region28137; region_size28137 = region_size; region28137 = region; fp28137 = &((region->data)[0]); ALIGN(fp28137);} t1851 = (struct structure_type24753 *)fp28137; fp28137 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t1851->s0 = t1850; t1851->s1.tag = NULL_TYPE; t1833 = f28696(t1851); /* x260262 */ a34406 = t1833; /* x260261 */ /* x260249 */ /* x260243 */ /* x260242 */ t1845 = a34406; /* x266299 */ if (!(t1845==EOF_OBJECT_TYPE)) goto l535; /* x260246 */ /* x260245 */ t1846 = "EOF while reading exponent"; /* x266298 */ stalin_panic(t1846); goto l536; l535: /* x260248 */ /* x260247 */ l536: /* x260260 */ /* x260254 */ /* x260253 */ /* x260252 */ t1847 = a34406; /* x260251 */ t1848.tag = t1847; if (!(f27405(t1848)==FALSE_TYPE)) goto l538; /* x260257 */ /* x260256 */ t1849 = "Unfinished exponent"; /* x266296 */ stalin_panic(t1849); goto l539; l538: /* x260259 */ /* x260258 */ l539: /* x260240 */ /* x260239 */ /* x260223 */ /* x260222 */ t1836 = a34387; /* x266305 */ t1834 = (float)t1836; /* x260238 */ /* x260225 */ t1837 = 1.0e1; /* x260237 */ /* x260236 */ /* x260235 */ /* x260231 */ /* x260230 */ t1843 = a34406; /* x266301 */ if (!(t1843>2))); /* x260234 */ /* x260233 */ t1844 = '0'; /* x266300 */ t1842 = (int)((unsigned char)t1844); /* x266302 */ t1840 = t1841-t1842; /* x260227 */ t1839 = f28063(t1840); /* x266303 */ t1838 = -t1839; /* x266304 */ t1835 = pow(t1837, t1838); /* x266306 */ r28111.tag = FLONUM_TYPE; r28111.value.flonum_type = t1834*t1835; return r28111; l533: /* x260273 */ /* x260272 */ /* x260271 */ /* x260270 */ t1832 = "Unfinished exponent"; /* x266295 */ stalin_panic(t1832); l518: /* x260302 */ /* x260301 */ /* x260300 */ r28111.tag = FIXNUM_TYPE; r28111.value.fixnum_type = a34387; return r28111;} /* READ-INEXACT-NUMBER[28079] */ float f28079(float a34365, float a34366) {unsigned a34367; /* C1 */ unsigned a34379; /* C2 */ unsigned a34381; /* C3 */ unsigned a34384; /* C3 */ unsigned t1907; unsigned t1908; char t1909; struct w49 t1910; char t1911; char t1912; struct w49 t1913; char t1914; char t1915; char t1916; struct w49 t1917; char t1918; char t1919; char t1920; struct w49 t1921; char t1922; char t1923; char t1924; struct w49 t1925; char t1926; char t1927; char t1928; struct w49 t1929; char t1930; char t1931; char t1932; struct w49 t1933; char t1934; char t1935; char t1936; struct w49 t1937; char t1938; char t1939; char t1940; struct w49 t1941; char t1942; char t1943; char t1944; struct w49 t1945; char t1946; char t1947; char t1948; struct w49 t1949; char t1950; unsigned t1952; unsigned t1953; struct w49 t1954; unsigned t1955; char t1956; struct w49 t1957; char t1958; unsigned t1959; char t1960; struct w49 t1961; char t1962; char *t1963; unsigned t1964; float t1965; float t1966; float t1967; int t1968; int t1969; int t1970; int t1971; int t1972; unsigned t1973; char t1974; unsigned t1975; char *t1976; unsigned t1977; struct w49 t1978; char *t1979; struct w49 t1980; struct structure_type24753 *t1981; unsigned t1982; float t1983; float t1984; float t1985; int t1986; int t1987; int t1988; int t1989; unsigned t1990; char t1991; unsigned t1992; char *t1993; unsigned t1994; struct w49 t1995; char *t1996; struct w49 t1997; struct structure_type24753 *t1998; float t1999; float t2000; float t2001; int t2002; int t2003; int t2004; int t2005; unsigned t2006; char t2007; unsigned t2008; char *t2009; struct w49 t2010; struct structure_type24753 *t2011; struct w49 t2012; struct structure_type24753 *t2013; float t2015; float t2016; float t2017; float t2018; int t2019; float t2020; int t2021; int t2022; char t2023; char t2024; float t2025; float t2026; struct w49 t2027; struct structure_type24753 *t2028; struct w49 t2029; struct structure_type24753 *t2030; while (region28079!=((struct region28079 *)(&initial_region28079))) {struct region28079 *region; region = region28079; region28079 = region28079->region; GC_free(region);} region_size28079 = REGION_SIZE28079; fp28079 = &((region28079->data)[0]); ALIGN(fp28079); h28079: /* x260005 */ /* x260004 */ /* x260003 */ t2029 = a34225; /* x260002 */ t2030 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t2030==NULL) {backtrace_internal("READ-INEXACT-NUMBER[28079]"); out_of_memory_error();} t2030->s0 = t2029; t2030->s1.tag = NULL_TYPE; t1907 = f28700(t2030); /* x260001 */ a34367 = t1907; /* x260000 */ /* x259724 */ /* x259723 */ t1908 = a34367; /* x266363 */ if (!(t1908==EOF_OBJECT_TYPE)) goto l550; /* x259727 */ /* x259726 */ /* x259725 */ return a34365; l550: /* x259999 */ /* x259730 */ /* x259729 */ t1909 = (char)(a34367>>2); /* x259728 */ t1910.tag = ((unsigned)((unsigned char)t1909))<<2; if (f27405(t1910)==FALSE_TYPE) goto l552; /* x259757 */ /* x259756 */ /* x259755 */ /* x259754 */ /* x259753 */ t2027 = a34225; /* x259752 */ if ((fp28079+sizeof(struct structure_type24753))>(&((region28079->data)[region_size28079]))) {struct region28079 *region; unsigned region_size = REGION_SIZE28079; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28079 *)GC_malloc_uncollectable(sizeof(struct region28079)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ-INEXACT-NUMBER 28082]"); out_of_memory_error();} region->region = region28079; region_size28079 = region_size; region28079 = region; fp28079 = &((region->data)[0]); ALIGN(fp28079);} t2028 = (struct structure_type24753 *)fp28079; fp28079 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2028->s0 = t2027; t2028->s1.tag = NULL_TYPE; f28696(t2028); /* x259751 */ /* x259750 */ /* x259745 */ /* x259733 */ t2017 = a34365; /* x259744 */ /* x259742 */ /* x259738 */ /* x259737 */ t2023 = (char)(a34367>>2); /* x266359 */ t2021 = (int)((unsigned char)t2023); /* x259741 */ /* x259740 */ t2024 = '0'; /* x266358 */ t2022 = (int)((unsigned char)t2024); /* x266360 */ t2019 = t2021-t2022; /* x259743 */ t2020 = a34366; /* x266361 */ t2018 = t2019/t2020; /* x266362 */ t2015 = t2017+t2018; /* x259749 */ /* x259747 */ t2025 = a34366; /* x259748 */ t2026 = 1.0e1; /* x266357 */ t2016 = t2025*t2026; /* x259731 */ a34365 = t2015; a34366 = t2016; goto h28079; l552: /* x259998 */ /* x259842 */ /* x259841 */ /* x259840 */ t1912 = 'e'; /* x259839 */ t1911 = (char)(a34367>>2); /* x259838 */ t1913.tag = ((unsigned)((unsigned char)t1911))<<2; t1914 = t1912; if (!(f27342(t1913, t1914)==FALSE_TYPE)) goto l553; /* x259835 */ /* x259834 */ /* x259833 */ t1916 = 'E'; /* x259832 */ t1915 = (char)(a34367>>2); /* x259831 */ t1917.tag = ((unsigned)((unsigned char)t1915))<<2; t1918 = t1916; if (!(f27342(t1917, t1918)==FALSE_TYPE)) goto l553; /* x259828 */ /* x259827 */ /* x259826 */ t1920 = 's'; /* x259825 */ t1919 = (char)(a34367>>2); /* x259824 */ t1921.tag = ((unsigned)((unsigned char)t1919))<<2; t1922 = t1920; if (!(f27342(t1921, t1922)==FALSE_TYPE)) goto l553; /* x259821 */ /* x259820 */ /* x259819 */ t1924 = 'S'; /* x259818 */ t1923 = (char)(a34367>>2); /* x259817 */ t1925.tag = ((unsigned)((unsigned char)t1923))<<2; t1926 = t1924; if (!(f27342(t1925, t1926)==FALSE_TYPE)) goto l553; /* x259814 */ /* x259813 */ /* x259812 */ t1928 = 'f'; /* x259811 */ t1927 = (char)(a34367>>2); /* x259810 */ t1929.tag = ((unsigned)((unsigned char)t1927))<<2; t1930 = t1928; if (!(f27342(t1929, t1930)==FALSE_TYPE)) goto l553; /* x259807 */ /* x259806 */ /* x259805 */ t1932 = 'F'; /* x259804 */ t1931 = (char)(a34367>>2); /* x259803 */ t1933.tag = ((unsigned)((unsigned char)t1931))<<2; t1934 = t1932; if (!(f27342(t1933, t1934)==FALSE_TYPE)) goto l553; /* x259800 */ /* x259799 */ /* x259798 */ t1936 = 'd'; /* x259797 */ t1935 = (char)(a34367>>2); /* x259796 */ t1937.tag = ((unsigned)((unsigned char)t1935))<<2; t1938 = t1936; if (!(f27342(t1937, t1938)==FALSE_TYPE)) goto l553; /* x259793 */ /* x259792 */ /* x259791 */ t1940 = 'D'; /* x259790 */ t1939 = (char)(a34367>>2); /* x259789 */ t1941.tag = ((unsigned)((unsigned char)t1939))<<2; t1942 = t1940; if (!(f27342(t1941, t1942)==FALSE_TYPE)) goto l553; /* x259786 */ /* x259785 */ /* x259784 */ t1944 = 'l'; /* x259783 */ t1943 = (char)(a34367>>2); /* x259782 */ t1945.tag = ((unsigned)((unsigned char)t1943))<<2; t1946 = t1944; if (!(f27342(t1945, t1946)==FALSE_TYPE)) goto l553; /* x259779 */ /* x259778 */ t1948 = 'L'; /* x259777 */ t1947 = (char)(a34367>>2); /* x259776 */ t1949.tag = ((unsigned)((unsigned char)t1947))<<2; t1950 = t1948; if (f27342(t1949, t1950)==FALSE_TYPE) goto l554; l553: /* x259994 */ /* x259993 */ while (region28093!=((struct region28093 *)(&initial_region28093))) {struct region28093 *region; region = region28093; region28093 = region28093->region; GC_free(region);} region_size28093 = REGION_SIZE28093; fp28093 = &((region28093->data)[0]); ALIGN(fp28093); /* x259992 */ /* x259991 */ /* x259990 */ t2012 = a34225; /* x259989 */ if ((fp28093+sizeof(struct structure_type24753))>(&((region28093->data)[region_size28093]))) {struct region28093 *region; unsigned region_size = REGION_SIZE28093; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28093 *)GC_malloc_uncollectable(sizeof(struct region28093)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ-INEXACT-NUMBER 28093]"); out_of_memory_error();} region->region = region28093; region_size28093 = region_size; region28093 = region; fp28093 = &((region->data)[0]); ALIGN(fp28093);} t2013 = (struct structure_type24753 *)fp28093; fp28093 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2013->s0 = t2012; t2013->s1.tag = NULL_TYPE; f28696(t2013); /* x259988 */ while (region28094!=((struct region28094 *)(&initial_region28094))) {struct region28094 *region; region = region28094; region28094 = region28094->region; GC_free(region);} region_size28094 = REGION_SIZE28094; fp28094 = &((region28094->data)[0]); ALIGN(fp28094); /* x259987 */ /* x259986 */ /* x259985 */ t2010 = a34225; /* x259984 */ if ((fp28094+sizeof(struct structure_type24753))>(&((region28094->data)[region_size28094]))) {struct region28094 *region; unsigned region_size = REGION_SIZE28094; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28094 *)GC_malloc_uncollectable(sizeof(struct region28094)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ-INEXACT-NUMBER 28094]"); out_of_memory_error();} region->region = region28094; region_size28094 = region_size; region28094 = region; fp28094 = &((region->data)[0]); ALIGN(fp28094);} t2011 = (struct structure_type24753 *)fp28094; fp28094 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2011->s0 = t2010; t2011->s1.tag = NULL_TYPE; t1952 = f28696(t2011); /* x259983 */ a34379 = t1952; /* x259982 */ /* x259981 */ /* x259975 */ /* x259974 */ t2008 = a34379; /* x266331 */ if (!(t2008==EOF_OBJECT_TYPE)) goto l583; /* x259978 */ /* x259977 */ t2009 = "EOF while reading exponent"; /* x266330 */ stalin_panic(t2009); goto l584; l583: /* x259980 */ /* x259979 */ l584: /* x259972 */ /* x259971 */ /* x259845 */ /* x259844 */ t1953 = a34379; /* x259843 */ t1954.tag = t1953; if (f27405(t1954)==FALSE_TYPE) goto l565; /* x259863 */ /* x259862 */ /* x259861 */ /* x259847 */ t1999 = a34365; /* x259860 */ /* x259849 */ t2001 = 1.0e1; /* x259859 */ /* x259858 */ /* x259854 */ /* x259853 */ t2006 = a34379; /* x266353 */ if (!(t2006>2))); /* x259857 */ /* x259856 */ t2007 = '0'; /* x266352 */ t2005 = (int)((unsigned char)t2007); /* x266354 */ t2003 = t2004-t2005; /* x259850 */ t2002 = f28063(t2003); /* x266355 */ t2000 = pow(t2001, t2002); /* x266356 */ return t1999*t2000; l565: /* x259970 */ /* x259867 */ /* x259866 */ t1956 = '+'; /* x259865 */ t1955 = a34379; /* x259864 */ t1957.tag = t1955; t1958 = t1956; if (f27342(t1957, t1958)==FALSE_TYPE) goto l567; /* x259912 */ /* x259911 */ while (region28098!=((struct region28098 *)(&initial_region28098))) {struct region28098 *region; region = region28098; region28098 = region28098->region; GC_free(region);} region_size28098 = REGION_SIZE28098; fp28098 = &((region28098->data)[0]); ALIGN(fp28098); /* x259910 */ /* x259909 */ /* x259908 */ t1997 = a34225; /* x259907 */ if ((fp28098+sizeof(struct structure_type24753))>(&((region28098->data)[region_size28098]))) {struct region28098 *region; unsigned region_size = REGION_SIZE28098; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28098 *)GC_malloc_uncollectable(sizeof(struct region28098)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ-INEXACT-NUMBER 28098]"); out_of_memory_error();} region->region = region28098; region_size28098 = region_size; region28098 = region; fp28098 = &((region->data)[0]); ALIGN(fp28098);} t1998 = (struct structure_type24753 *)fp28098; fp28098 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t1998->s0 = t1997; t1998->s1.tag = NULL_TYPE; t1982 = f28696(t1998); /* x259906 */ a34381 = t1982; /* x259905 */ /* x259893 */ /* x259887 */ /* x259886 */ t1992 = a34381; /* x266346 */ if (!(t1992==EOF_OBJECT_TYPE)) goto l577; /* x259890 */ /* x259889 */ t1993 = "EOF while reading exponent"; /* x266345 */ stalin_panic(t1993); goto l578; l577: /* x259892 */ /* x259891 */ l578: /* x259904 */ /* x259898 */ /* x259897 */ /* x259896 */ t1994 = a34381; /* x259895 */ t1995.tag = t1994; if (!(f27405(t1995)==FALSE_TYPE)) goto l580; /* x259901 */ /* x259900 */ t1996 = "Unfinished exponent"; /* x266343 */ stalin_panic(t1996); goto l581; l580: /* x259903 */ /* x259902 */ l581: /* x259884 */ /* x259883 */ /* x259869 */ t1983 = a34365; /* x259882 */ /* x259871 */ t1985 = 1.0e1; /* x259881 */ /* x259880 */ /* x259876 */ /* x259875 */ t1990 = a34381; /* x266348 */ if (!(t1990>2))); /* x259879 */ /* x259878 */ t1991 = '0'; /* x266347 */ t1989 = (int)((unsigned char)t1991); /* x266349 */ t1987 = t1988-t1989; /* x259872 */ t1986 = f28063(t1987); /* x266350 */ t1984 = pow(t1985, t1986); /* x266351 */ return t1983*t1984; l567: /* x259969 */ /* x259916 */ /* x259915 */ t1960 = '-'; /* x259914 */ t1959 = a34379; /* x259913 */ t1961.tag = t1959; t1962 = t1960; if (f27342(t1961, t1962)==FALSE_TYPE) goto l569; /* x259963 */ /* x259962 */ while (region28103!=((struct region28103 *)(&initial_region28103))) {struct region28103 *region; region = region28103; region28103 = region28103->region; GC_free(region);} region_size28103 = REGION_SIZE28103; fp28103 = &((region28103->data)[0]); ALIGN(fp28103); /* x259961 */ /* x259960 */ /* x259959 */ t1980 = a34225; /* x259958 */ if ((fp28103+sizeof(struct structure_type24753))>(&((region28103->data)[region_size28103]))) {struct region28103 *region; unsigned region_size = REGION_SIZE28103; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28103 *)GC_malloc_uncollectable(sizeof(struct region28103)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ-INEXACT-NUMBER 28103]"); out_of_memory_error();} region->region = region28103; region_size28103 = region_size; region28103 = region; fp28103 = &((region->data)[0]); ALIGN(fp28103);} t1981 = (struct structure_type24753 *)fp28103; fp28103 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t1981->s0 = t1980; t1981->s1.tag = NULL_TYPE; t1964 = f28696(t1981); /* x259957 */ a34384 = t1964; /* x259956 */ /* x259944 */ /* x259938 */ /* x259937 */ t1975 = a34384; /* x266336 */ if (!(t1975==EOF_OBJECT_TYPE)) goto l571; /* x259941 */ /* x259940 */ t1976 = "EOF while reading exponent"; /* x266335 */ stalin_panic(t1976); goto l572; l571: /* x259943 */ /* x259942 */ l572: /* x259955 */ /* x259949 */ /* x259948 */ /* x259947 */ t1977 = a34384; /* x259946 */ t1978.tag = t1977; if (!(f27405(t1978)==FALSE_TYPE)) goto l574; /* x259952 */ /* x259951 */ t1979 = "Unfinished exponent"; /* x266333 */ stalin_panic(t1979); goto l575; l574: /* x259954 */ /* x259953 */ l575: /* x259935 */ /* x259934 */ /* x259918 */ t1965 = a34365; /* x259933 */ /* x259920 */ t1967 = 1.0e1; /* x259932 */ /* x259931 */ /* x259930 */ /* x259926 */ /* x259925 */ t1973 = a34384; /* x266338 */ if (!(t1973>2))); /* x259929 */ /* x259928 */ t1974 = '0'; /* x266337 */ t1972 = (int)((unsigned char)t1974); /* x266339 */ t1970 = t1971-t1972; /* x259922 */ t1969 = f28063(t1970); /* x266340 */ t1968 = -t1969; /* x266341 */ t1966 = pow(t1967, t1968); /* x266342 */ return t1965*t1966; l569: /* x259968 */ /* x259967 */ /* x259966 */ /* x259965 */ t1963 = "Unfinished exponent"; /* x266332 */ stalin_panic(t1963); l554: /* x259997 */ /* x259996 */ /* x259995 */ return a34365;} /* READ-EXACT-HEXADECIMAL-INTEGER[28069] */ int f28069(int a34360) {unsigned a34361; /* C */ unsigned t2031; unsigned t2032; char t2033; struct w49 t2034; char t2035; char t2036; unsigned t2037; char t2038; char t2039; char t2040; unsigned t2041; char t2042; char t2043; char t2044; unsigned t2045; char t2046; char t2047; char t2048; unsigned t2049; char t2050; int t2052; int t2053; int t2054; int t2055; int t2056; int t2057; int t2058; int t2059; char t2060; char t2061; struct w49 t2062; struct structure_type24753 *t2063; int t2065; int t2066; int t2067; int t2068; int t2069; int t2070; int t2071; int t2072; char t2073; char t2074; struct w49 t2075; struct structure_type24753 *t2076; int t2078; int t2079; int t2080; int t2081; int t2082; int t2083; int t2084; char t2085; char t2086; struct w49 t2087; struct structure_type24753 *t2088; struct w49 t2089; struct structure_type24753 *t2090; while (region28069!=((struct region28069 *)(&initial_region28069))) {struct region28069 *region; region = region28069; region28069 = region28069->region; GC_free(region);} region_size28069 = REGION_SIZE28069; fp28069 = &((region28069->data)[0]); ALIGN(fp28069); h28069: /* x259719 */ /* x259718 */ /* x259717 */ t2089 = a34225; /* x259716 */ t2090 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t2090==NULL) {backtrace_internal("READ-EXACT-HEXADECIMAL-INTEGER[28069]"); out_of_memory_error();} t2090->s0 = t2089; t2090->s1.tag = NULL_TYPE; t2031 = f28700(t2090); /* x259715 */ a34361 = t2031; /* x259714 */ /* x259610 */ /* x259609 */ t2032 = a34361; /* x266379 */ if (!(t2032==EOF_OBJECT_TYPE)) goto l586; /* x259613 */ /* x259612 */ /* x259611 */ return a34360; l586: /* x259713 */ /* x259616 */ /* x259615 */ t2033 = (char)(a34361>>2); /* x259614 */ t2034.tag = ((unsigned)((unsigned char)t2033))<<2; if (f27405(t2034)==FALSE_TYPE) goto l588; /* x259639 */ /* x259638 */ /* x259637 */ /* x259636 */ /* x259635 */ t2087 = a34225; /* x259634 */ if ((fp28069+sizeof(struct structure_type24753))>(&((region28069->data)[region_size28069]))) {struct region28069 *region; unsigned region_size = REGION_SIZE28069; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28069 *)GC_malloc_uncollectable(sizeof(struct region28069)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ-EXACT-HEXADECIMAL-INTEGER 28072]"); out_of_memory_error();} region->region = region28069; region_size28069 = region_size; region28069 = region; fp28069 = &((region->data)[0]); ALIGN(fp28069);} t2088 = (struct structure_type24753 *)fp28069; fp28069 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2088->s0 = t2087; t2088->s1.tag = NULL_TYPE; f28696(t2088); /* x259633 */ /* x259632 */ /* x259631 */ /* x259622 */ /* x259620 */ t2081 = 16; /* x259621 */ t2082 = a34360; /* x266377 */ t2079 = t2081*t2082; /* x259630 */ /* x259626 */ /* x259625 */ t2085 = (char)(a34361>>2); /* x266375 */ t2083 = (int)((unsigned char)t2085); /* x259629 */ /* x259628 */ t2086 = '0'; /* x266374 */ t2084 = (int)((unsigned char)t2086); /* x266376 */ t2080 = t2083-t2084; /* x266378 */ t2078 = t2079+t2080; /* x259617 */ a34360 = t2078; goto h28069; l588: /* x259712 */ /* x259649 */ /* x259643 */ /* x259642 */ t2036 = 'a'; /* x259641 */ t2035 = (char)(a34361>>2); /* x259640 */ t2037 = ((unsigned)((unsigned char)t2035))<<2; t2038 = t2036; if (f27366(t2037, t2038)==FALSE_TYPE) goto l590; /* x259647 */ /* x259646 */ t2040 = 'f'; /* x259645 */ t2039 = (char)(a34361>>2); /* x259644 */ t2041 = ((unsigned)((unsigned char)t2039))<<2; t2042 = t2040; if (f27360(t2041, t2042)==FALSE_TYPE) goto l590; /* x259673 */ /* x259672 */ /* x259671 */ /* x259670 */ /* x259669 */ t2075 = a34225; /* x259668 */ if ((fp28069+sizeof(struct structure_type24753))>(&((region28069->data)[region_size28069]))) {struct region28069 *region; unsigned region_size = REGION_SIZE28069; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28069 *)GC_malloc_uncollectable(sizeof(struct region28069)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ-EXACT-HEXADECIMAL-INTEGER 28074]"); out_of_memory_error();} region->region = region28069; region_size28069 = region_size; region28069 = region; fp28069 = &((region->data)[0]); ALIGN(fp28069);} t2076 = (struct structure_type24753 *)fp28069; fp28069 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2076->s0 = t2075; t2076->s1.tag = NULL_TYPE; f28696(t2076); /* x259667 */ /* x259666 */ /* x259665 */ /* x259655 */ /* x259653 */ t2069 = 16; /* x259654 */ t2070 = a34360; /* x266372 */ t2066 = t2069*t2070; /* x259663 */ /* x259659 */ /* x259658 */ t2073 = (char)(a34361>>2); /* x266370 */ t2071 = (int)((unsigned char)t2073); /* x259662 */ /* x259661 */ t2074 = 'a'; /* x266369 */ t2072 = (int)((unsigned char)t2074); /* x266371 */ t2067 = t2071-t2072; /* x259664 */ t2068 = 10; /* x266373 */ t2065 = (t2066+t2067)+t2068; /* x259650 */ a34360 = t2065; goto h28069; l590: /* x259711 */ /* x259683 */ /* x259677 */ /* x259676 */ t2044 = 'A'; /* x259675 */ t2043 = (char)(a34361>>2); /* x259674 */ t2045 = ((unsigned)((unsigned char)t2043))<<2; t2046 = t2044; if (f27366(t2045, t2046)==FALSE_TYPE) goto l593; /* x259681 */ /* x259680 */ t2048 = 'F'; /* x259679 */ t2047 = (char)(a34361>>2); /* x259678 */ t2049 = ((unsigned)((unsigned char)t2047))<<2; t2050 = t2048; if (f27360(t2049, t2050)==FALSE_TYPE) goto l593; /* x259707 */ /* x259706 */ /* x259705 */ /* x259704 */ /* x259703 */ t2062 = a34225; /* x259702 */ if ((fp28069+sizeof(struct structure_type24753))>(&((region28069->data)[region_size28069]))) {struct region28069 *region; unsigned region_size = REGION_SIZE28069; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28069 *)GC_malloc_uncollectable(sizeof(struct region28069)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ-EXACT-HEXADECIMAL-INTEGER 28076]"); out_of_memory_error();} region->region = region28069; region_size28069 = region_size; region28069 = region; fp28069 = &((region->data)[0]); ALIGN(fp28069);} t2063 = (struct structure_type24753 *)fp28069; fp28069 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2063->s0 = t2062; t2063->s1.tag = NULL_TYPE; f28696(t2063); /* x259701 */ /* x259700 */ /* x259699 */ /* x259689 */ /* x259687 */ t2056 = 16; /* x259688 */ t2057 = a34360; /* x266367 */ t2053 = t2056*t2057; /* x259697 */ /* x259693 */ /* x259692 */ t2060 = (char)(a34361>>2); /* x266365 */ t2058 = (int)((unsigned char)t2060); /* x259696 */ /* x259695 */ t2061 = 'A'; /* x266364 */ t2059 = (int)((unsigned char)t2061); /* x266366 */ t2054 = t2058-t2059; /* x259698 */ t2055 = 10; /* x266368 */ t2052 = (t2053+t2054)+t2055; /* x259684 */ a34360 = t2052; goto h28069; l593: /* x259710 */ /* x259709 */ /* x259708 */ return a34360;} /* READ-EXACT-DECIMAL-INTEGER[28063] */ int f28063(int a34357) {unsigned a34358; /* C */ unsigned t2091; unsigned t2092; char t2093; struct w49 t2094; int t2096; int t2097; int t2098; int t2099; int t2100; int t2101; int t2102; char t2103; char t2104; struct w49 t2105; struct structure_type24753 *t2106; struct w49 t2107; struct structure_type24753 *t2108; while (region28063!=((struct region28063 *)(&initial_region28063))) {struct region28063 *region; region = region28063; region28063 = region28063->region; GC_free(region);} region_size28063 = REGION_SIZE28063; fp28063 = &((region28063->data)[0]); ALIGN(fp28063); h28063: /* x259605 */ /* x259604 */ /* x259603 */ t2107 = a34225; /* x259602 */ t2108 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t2108==NULL) {backtrace_internal("READ-EXACT-DECIMAL-INTEGER[28063]"); out_of_memory_error();} t2108->s0 = t2107; t2108->s1.tag = NULL_TYPE; t2091 = f28700(t2108); /* x259601 */ a34358 = t2091; /* x259600 */ /* x259566 */ /* x259565 */ t2092 = a34358; /* x266385 */ if (!(t2092==EOF_OBJECT_TYPE)) goto l596; /* x259569 */ /* x259568 */ /* x259567 */ return a34357; l596: /* x259599 */ /* x259572 */ /* x259571 */ t2093 = (char)(a34358>>2); /* x259570 */ t2094.tag = ((unsigned)((unsigned char)t2093))<<2; if (f27405(t2094)==FALSE_TYPE) goto l598; /* x259595 */ /* x259594 */ /* x259593 */ /* x259592 */ /* x259591 */ t2105 = a34225; /* x259590 */ if ((fp28063+sizeof(struct structure_type24753))>(&((region28063->data)[region_size28063]))) {struct region28063 *region; unsigned region_size = REGION_SIZE28063; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28063 *)GC_malloc_uncollectable(sizeof(struct region28063)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ-EXACT-DECIMAL-INTEGER 28066]"); out_of_memory_error();} region->region = region28063; region_size28063 = region_size; region28063 = region; fp28063 = &((region->data)[0]); ALIGN(fp28063);} t2106 = (struct structure_type24753 *)fp28063; fp28063 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2106->s0 = t2105; t2106->s1.tag = NULL_TYPE; f28696(t2106); /* x259589 */ /* x259588 */ /* x259587 */ /* x259578 */ /* x259576 */ t2099 = 10; /* x259577 */ t2100 = a34357; /* x266383 */ t2097 = t2099*t2100; /* x259586 */ /* x259582 */ /* x259581 */ t2103 = (char)(a34358>>2); /* x266381 */ t2101 = (int)((unsigned char)t2103); /* x259585 */ /* x259584 */ t2104 = '0'; /* x266380 */ t2102 = (int)((unsigned char)t2104); /* x266382 */ t2098 = t2101-t2102; /* x266384 */ t2096 = t2097+t2098; /* x259573 */ a34357 = t2096; goto h28063; l598: /* x259598 */ /* x259597 */ /* x259596 */ return a34357;} /* READ-EXACT-OCTAL-INTEGER[28057] */ int f28057(int a34354) {unsigned a34355; /* C */ unsigned t2109; unsigned t2110; char t2111; char t2112; unsigned t2113; char t2114; char t2115; char t2116; unsigned t2117; char t2118; int t2120; int t2121; int t2122; int t2123; int t2124; int t2125; int t2126; char t2127; char t2128; struct w49 t2129; struct structure_type24753 *t2130; struct w49 t2131; struct structure_type24753 *t2132; while (region28057!=((struct region28057 *)(&initial_region28057))) {struct region28057 *region; region = region28057; region28057 = region28057->region; GC_free(region);} region_size28057 = REGION_SIZE28057; fp28057 = &((region28057->data)[0]); ALIGN(fp28057); h28057: /* x259561 */ /* x259560 */ /* x259559 */ t2131 = a34225; /* x259558 */ t2132 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t2132==NULL) {backtrace_internal("READ-EXACT-OCTAL-INTEGER[28057]"); out_of_memory_error();} t2132->s0 = t2131; t2132->s1.tag = NULL_TYPE; t2109 = f28700(t2132); /* x259557 */ a34355 = t2109; /* x259556 */ /* x259515 */ /* x259514 */ t2110 = a34355; /* x266391 */ if (!(t2110==EOF_OBJECT_TYPE)) goto l600; /* x259518 */ /* x259517 */ /* x259516 */ return a34354; l600: /* x259555 */ /* x259528 */ /* x259522 */ /* x259521 */ t2112 = '0'; /* x259520 */ t2111 = (char)(a34355>>2); /* x259519 */ t2113 = ((unsigned)((unsigned char)t2111))<<2; t2114 = t2112; if (f27366(t2113, t2114)==FALSE_TYPE) goto l602; /* x259526 */ /* x259525 */ t2116 = '7'; /* x259524 */ t2115 = (char)(a34355>>2); /* x259523 */ t2117 = ((unsigned)((unsigned char)t2115))<<2; t2118 = t2116; if (f27360(t2117, t2118)==FALSE_TYPE) goto l602; /* x259551 */ /* x259550 */ /* x259549 */ /* x259548 */ /* x259547 */ t2129 = a34225; /* x259546 */ if ((fp28057+sizeof(struct structure_type24753))>(&((region28057->data)[region_size28057]))) {struct region28057 *region; unsigned region_size = REGION_SIZE28057; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28057 *)GC_malloc_uncollectable(sizeof(struct region28057)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ-EXACT-OCTAL-INTEGER 28060]"); out_of_memory_error();} region->region = region28057; region_size28057 = region_size; region28057 = region; fp28057 = &((region->data)[0]); ALIGN(fp28057);} t2130 = (struct structure_type24753 *)fp28057; fp28057 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2130->s0 = t2129; t2130->s1.tag = NULL_TYPE; f28696(t2130); /* x259545 */ /* x259544 */ /* x259543 */ /* x259534 */ /* x259532 */ t2123 = 8; /* x259533 */ t2124 = a34354; /* x266389 */ t2121 = t2123*t2124; /* x259542 */ /* x259538 */ /* x259537 */ t2127 = (char)(a34355>>2); /* x266387 */ t2125 = (int)((unsigned char)t2127); /* x259541 */ /* x259540 */ t2128 = '0'; /* x266386 */ t2126 = (int)((unsigned char)t2128); /* x266388 */ t2122 = t2125-t2126; /* x266390 */ t2120 = t2121+t2122; /* x259529 */ a34354 = t2120; goto h28057; l602: /* x259554 */ /* x259553 */ /* x259552 */ return a34354;} /* READ-EXACT-BINARY-INTEGER[28049] */ int f28049(int a34350) {unsigned a34351; /* C */ unsigned t2133; unsigned t2134; char t2135; char t2136; struct w49 t2137; char t2138; char t2139; char t2140; struct w49 t2141; char t2142; int t2144; int t2145; int t2146; int t2147; int t2148; struct w49 t2149; struct structure_type24753 *t2150; int t2152; int t2153; int t2154; struct w49 t2155; struct structure_type24753 *t2156; struct w49 t2157; struct structure_type24753 *t2158; while (region28049!=((struct region28049 *)(&initial_region28049))) {struct region28049 *region; region = region28049; region28049 = region28049->region; GC_free(region);} region_size28049 = REGION_SIZE28049; fp28049 = &((region28049->data)[0]); ALIGN(fp28049); h28049: /* x259510 */ /* x259509 */ /* x259508 */ t2157 = a34225; /* x259507 */ t2158 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t2158==NULL) {backtrace_internal("READ-EXACT-BINARY-INTEGER[28049]"); out_of_memory_error();} t2158->s0 = t2157; t2158->s1.tag = NULL_TYPE; t2133 = f28700(t2158); /* x259506 */ a34351 = t2133; /* x259505 */ /* x259459 */ /* x259458 */ t2134 = a34351; /* x266395 */ if (!(t2134==EOF_OBJECT_TYPE)) goto l605; /* x259462 */ /* x259461 */ /* x259460 */ return a34350; l605: /* x259504 */ /* x259466 */ /* x259465 */ t2136 = '0'; /* x259464 */ t2135 = (char)(a34351>>2); /* x259463 */ t2137.tag = ((unsigned)((unsigned char)t2135))<<2; t2138 = t2136; if (f27342(t2137, t2138)==FALSE_TYPE) goto l607; /* x259479 */ /* x259478 */ /* x259477 */ /* x259476 */ /* x259475 */ t2155 = a34225; /* x259474 */ if ((fp28049+sizeof(struct structure_type24753))>(&((region28049->data)[region_size28049]))) {struct region28049 *region; unsigned region_size = REGION_SIZE28049; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28049 *)GC_malloc_uncollectable(sizeof(struct region28049)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ-EXACT-BINARY-INTEGER 28052]"); out_of_memory_error();} region->region = region28049; region_size28049 = region_size; region28049 = region; fp28049 = &((region->data)[0]); ALIGN(fp28049);} t2156 = (struct structure_type24753 *)fp28049; fp28049 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2156->s0 = t2155; t2156->s1.tag = NULL_TYPE; f28696(t2156); /* x259473 */ /* x259472 */ /* x259471 */ /* x259469 */ t2153 = 2; /* x259470 */ t2154 = a34350; /* x266394 */ t2152 = t2153*t2154; /* x259467 */ a34350 = t2152; goto h28049; l607: /* x259503 */ /* x259483 */ /* x259482 */ t2140 = '1'; /* x259481 */ t2139 = (char)(a34351>>2); /* x259480 */ t2141.tag = ((unsigned)((unsigned char)t2139))<<2; t2142 = t2140; if (f27342(t2141, t2142)==FALSE_TYPE) goto l609; /* x259499 */ /* x259498 */ /* x259497 */ /* x259496 */ /* x259495 */ t2149 = a34225; /* x259494 */ if ((fp28049+sizeof(struct structure_type24753))>(&((region28049->data)[region_size28049]))) {struct region28049 *region; unsigned region_size = REGION_SIZE28049; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28049 *)GC_malloc_uncollectable(sizeof(struct region28049)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ-EXACT-BINARY-INTEGER 28054]"); out_of_memory_error();} region->region = region28049; region_size28049 = region_size; region28049 = region; fp28049 = &((region->data)[0]); ALIGN(fp28049);} t2150 = (struct structure_type24753 *)fp28049; fp28049 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2150->s0 = t2149; t2150->s1.tag = NULL_TYPE; f28696(t2150); /* x259493 */ /* x259492 */ /* x259491 */ /* x259489 */ /* x259487 */ t2147 = 2; /* x259488 */ t2148 = a34350; /* x266392 */ t2145 = t2147*t2148; /* x259490 */ t2146 = 1; /* x266393 */ t2144 = t2145+t2146; /* x259484 */ a34350 = t2144; goto h28049; l609: /* x259502 */ /* x259501 */ /* x259500 */ return a34350;} /* READ[27815] */ struct w49 f27815(char *a34231) {struct w49 r27815; unsigned a34254; /* C1 */ unsigned a34258; /* C */ unsigned a34260; /* C2 */ struct structure_type24753 *a34265; /* S */ struct w49 a34266; /* E */ struct w49 a34268; /* E1 */ struct w49 a34272; /* S */ struct structure_type24753 *a34273; /* C */ unsigned a34274; /* C2 */ unsigned a34279; /* C3 */ unsigned a34281; /* C4 */ unsigned a34283; /* C4 */ unsigned a34286; /* C3 */ unsigned a34288; /* C4 */ unsigned a34292; /* C4 */ unsigned a34297; /* C3 */ unsigned a34299; /* C4 */ unsigned a34301; /* C5 */ unsigned a34304; /* C4 */ unsigned a34306; /* C5 */ unsigned a34309; /* C4 */ unsigned a34313; /* C3 */ unsigned a34315; /* C4 */ unsigned a34317; /* C4 */ struct structure_type24753 *a34321; /* S */ struct w49 a34322; /* E */ unsigned a34323; /* C3 */ struct structure_type24753 *a34327; /* S */ unsigned a34328; /* C */ unsigned a34330; /* C1 */ unsigned a34332; /* C2 */ unsigned a34335; /* C3 */ unsigned a34339; /* C2 */ unsigned a34342; /* C3 */ unsigned a34346; /* C2 */ struct structure_type24753 *a34442; /* S */ unsigned a34443; /* C */ struct structure_type24753 *a35266; /* OBJS */ struct structure_type24753 *a35267; /* OBJS */ struct structure_type24753 *a35268; /* OBJS */ struct structure_type24753 *a35269; /* OBJS */ struct structure_type24753 *a35270; /* OBJS */ struct structure_type24753 *a35271; /* OBJS */ struct structure_type24753 *a35272; /* OBJS */ struct structure_type24753 *a35273; /* OBJS */ struct structure_type24753 *a35274; /* OBJS */ struct structure_type24753 *a35275; /* OBJS */ struct structure_type24753 *a35276; /* OBJS */ unsigned t2159; unsigned t2160; char t2161; char t2162; struct w49 t2163; char t2164; char t2165; char t2166; struct w49 t2167; char t2168; char t2169; char *t2170; char *t2171; char t2172; char t2173; struct w49 t2174; char t2175; char t2176; char t2177; struct w49 t2178; char t2179; char t2180; char t2181; struct w49 t2182; char t2183; char t2184; char t2185; struct w49 t2186; char t2187; char t2188; char t2189; struct w49 t2190; char t2191; char t2192; char t2193; struct w49 t2194; char t2195; char t2196; char t2197; struct w49 t2198; char t2199; char t2200; char t2201; struct w49 t2202; char t2203; char t2204; char t2205; struct w49 t2206; char t2207; char t2208; struct w49 t2209; char t2210; unsigned t2211; char *t2212; struct structure_type24753 *t2213; char *t2214; char t2215; char t2216; struct w49 t2217; int t2218; struct w30215 t2219; int t2220; int t2221; char t2222; char t2223; unsigned t2224; unsigned t2225; struct w49 t2226; unsigned t2227; char *t2228; char *t2229; char *t2230; struct structure_type24753 *t2232; char *t2233; char t2234; char t2235; struct w49 t2236; unsigned t2237; struct w49 t2238; char t2239; struct w49 t2240; struct w49 t2241; struct structure_type24753 *t2242; float t2244; float t2245; float t2246; int t2247; float t2248; int t2249; int t2250; unsigned t2251; char t2252; struct w49 t2253; struct structure_type24753 *t2254; unsigned t2255; char *t2256; struct w49 t2257; struct structure_type24753 *t2258; unsigned t2259; unsigned t2260; char t2261; struct w49 t2262; char t2263; char t2264; struct w49 t2265; char t2266; char t2267; unsigned t2268; struct structure_type24753 *t2270; char *t2271; char t2272; char t2273; struct w49 t2274; char t2275; struct w49 t2276; char t2277; struct w49 t2278; struct w49 t2279; struct structure_type24753 *t2280; unsigned t2282; unsigned t2283; char t2284; struct w49 t2285; char t2286; unsigned t2287; struct structure_type24753 *t2289; char *t2290; char t2291; char t2292; char t2293; struct w49 t2294; struct w49 t2295; char t2296; struct w49 t2297; char t2298; struct w49 t2299; char t2300; struct w49 t2301; struct w49 t2302; struct structure_type24753 *t2303; float t2305; float t2306; float t2307; int t2308; float t2309; int t2310; int t2311; char t2312; char t2313; struct w49 t2314; struct structure_type24753 *t2315; struct w49 t2316; struct structure_type24753 *t2317; struct w49 t2318; struct structure_type24753 *t2319; struct w30215 t2321; int t2322; int t2323; int t2324; char t2325; char t2326; struct w49 t2327; struct structure_type24753 *t2328; struct w49 t2329; struct structure_type24753 *t2330; unsigned t2331; unsigned t2332; char t2333; struct w49 t2334; char t2335; char t2336; struct w49 t2337; char t2338; char t2339; unsigned t2340; struct structure_type24753 *t2342; char *t2343; char t2344; char t2345; struct w49 t2346; char t2347; struct w49 t2348; char t2349; struct w49 t2350; struct w49 t2351; struct structure_type24753 *t2352; unsigned t2354; unsigned t2355; char t2356; struct w49 t2357; char t2358; unsigned t2359; struct structure_type24753 *t2361; char *t2362; char t2363; char t2364; char t2365; struct w49 t2366; struct w49 t2367; char t2368; struct w49 t2369; char t2370; struct w49 t2371; char t2372; struct w49 t2373; struct w49 t2374; struct structure_type24753 *t2375; float t2377; float t2378; float t2379; int t2380; float t2381; int t2382; int t2383; char t2384; char t2385; struct w49 t2386; struct structure_type24753 *t2387; struct w49 t2388; struct structure_type24753 *t2389; struct w49 t2390; struct structure_type24753 *t2391; int t2393; struct w30215 t2394; int t2395; int t2396; char t2397; char t2398; struct w49 t2399; struct structure_type24753 *t2400; struct w49 t2401; struct structure_type24753 *t2402; unsigned t2403; unsigned t2404; char t2405; struct w49 t2406; char t2407; unsigned t2408; char t2409; struct w49 t2410; char t2411; struct structure_type24753 *t2412; unsigned t2413; struct structure_type24753 *t2414; struct structure_type24753 *t2415; struct w49 t2416; char *t2417; struct structure_type24753 *t2418; unsigned t2419; struct structure_type24753 *t2420; unsigned t2421; struct structure_type24753 *t2422; unsigned t2423; char *t2424; struct w49 t2425; struct structure_type24753 *t2426; unsigned t2427; char *t2428; struct w49 t2429; struct structure_type24753 *t2430; unsigned t2431; unsigned t2432; char t2433; struct w49 t2434; char t2435; unsigned t2436; char t2437; struct w49 t2438; char t2439; unsigned t2440; char t2441; struct w49 t2442; char t2443; unsigned t2444; char t2445; struct w49 t2446; char t2447; unsigned t2448; char t2449; struct w49 t2450; char t2451; unsigned t2452; char t2453; struct w49 t2454; char t2455; unsigned t2456; char t2457; struct w49 t2458; char t2459; unsigned t2460; char t2461; struct w49 t2462; char t2463; unsigned t2464; char t2465; struct w49 t2466; char t2467; unsigned t2468; char t2469; struct w49 t2470; char t2471; unsigned t2472; char t2473; struct w49 t2474; char t2475; unsigned t2476; char t2477; struct w49 t2478; char t2479; unsigned t2480; char t2481; struct w49 t2482; char t2483; unsigned t2484; char t2485; struct w49 t2486; char t2487; char *t2488; unsigned t2489; unsigned t2490; struct structure_type24753 *t2491; unsigned t2492; unsigned t2493; char t2494; unsigned t2495; struct structure_type24753 *t2496; struct w49 t2497; struct structure_type24753 *t2498; struct structure_type24753 *t2499; struct structure_type24753 *t2500; struct structure_type24753 *t2502; char t2503; struct structure_type24753 *t2504; struct w49 t2505; struct structure_type24753 *t2506; struct structure_type24753 *t2507; struct w49 t2508; struct structure_type24753 *t2509; unsigned t2510; unsigned t2511; char *t2512; struct w49 t2513; struct structure_type24753 *t2514; struct w49 t2515; struct w49 t2516; char *t2517; struct structure_type24753 *t2518; struct w49 t2519; struct structure_type24753 *t2520; struct structure_type24753 *t2521; struct w49 t2522; struct headed_vector_type27896 *t2523; struct structure_type24753 *t2524; char *t2525; unsigned t2526; unsigned t2527; struct w49 t2528; unsigned t2529; char t2530; unsigned t2531; char t2532; unsigned t2533; char t2534; unsigned t2535; char t2536; unsigned t2537; char t2538; unsigned t2539; char t2540; unsigned t2541; char t2542; unsigned t2543; char t2544; unsigned t2545; char t2546; struct w49 t2547; char t2548; unsigned t2549; char t2550; struct w49 t2551; char t2552; char *t2553; unsigned t2554; unsigned t2555; struct w49 t2556; unsigned t2557; char t2558; unsigned t2559; char t2560; unsigned t2561; char t2562; unsigned t2563; char t2564; unsigned t2565; char t2566; unsigned t2567; char t2568; unsigned t2569; char t2570; unsigned t2571; char t2572; char *t2573; int t2574; int t2575; int t2576; int t2577; int t2578; int t2579; unsigned t2580; char t2581; int t2582; int t2583; int t2584; int t2585; int t2586; int t2587; unsigned t2588; char t2589; int t2590; int t2591; int t2592; int t2593; unsigned t2594; char t2595; unsigned t2596; char *t2597; struct w49 t2598; struct structure_type24753 *t2599; unsigned t2600; unsigned t2601; struct w49 t2602; unsigned t2603; char t2604; unsigned t2605; char t2606; unsigned t2607; char t2608; unsigned t2609; char t2610; unsigned t2611; char t2612; unsigned t2613; char t2614; unsigned t2615; char t2616; unsigned t2617; char t2618; char *t2619; int t2620; int t2621; int t2622; int t2623; int t2624; int t2625; unsigned t2626; char t2627; int t2628; int t2629; int t2630; int t2631; int t2632; int t2633; unsigned t2634; char t2635; int t2636; int t2637; int t2638; int t2639; unsigned t2640; char t2641; unsigned t2642; char *t2643; struct w49 t2644; struct structure_type24753 *t2645; int t2646; int t2647; int t2648; int t2649; int t2650; int t2651; unsigned t2652; char t2653; int t2654; int t2655; int t2656; int t2657; int t2658; int t2659; unsigned t2660; char t2661; int t2662; int t2663; int t2664; int t2665; unsigned t2666; char t2667; unsigned t2668; char *t2669; struct w49 t2670; struct structure_type24753 *t2671; unsigned t2672; unsigned t2673; char t2674; struct w49 t2675; char t2676; unsigned t2677; char t2678; struct w49 t2679; char t2680; unsigned t2681; char t2682; struct w49 t2683; char t2684; unsigned t2685; struct w49 t2686; char *t2687; int t2688; struct w30215 t2689; int t2690; int t2691; unsigned t2692; char t2693; unsigned t2694; float t2695; float t2696; float t2697; int t2698; float t2699; int t2700; int t2701; unsigned t2702; char t2703; unsigned t2704; char *t2705; unsigned t2706; struct w49 t2707; char *t2708; struct w49 t2709; struct structure_type24753 *t2710; unsigned t2711; unsigned t2712; struct w49 t2713; unsigned t2714; char t2715; struct w49 t2716; char t2717; char *t2718; unsigned t2719; float t2720; float t2721; float t2722; int t2723; float t2724; int t2725; int t2726; unsigned t2727; char t2728; unsigned t2729; char *t2730; unsigned t2731; struct w49 t2732; char *t2733; struct w49 t2734; struct structure_type24753 *t2735; struct w30215 t2736; int t2737; int t2738; int t2739; unsigned t2740; char t2741; unsigned t2742; char *t2743; struct w49 t2744; struct structure_type24753 *t2745; unsigned t2746; unsigned t2747; struct w49 t2748; unsigned t2749; char t2750; struct w49 t2751; char t2752; char *t2753; unsigned t2754; float t2755; float t2756; float t2757; int t2758; float t2759; int t2760; int t2761; unsigned t2762; char t2763; unsigned t2764; char *t2765; unsigned t2766; struct w49 t2767; char *t2768; struct w49 t2769; struct structure_type24753 *t2770; int t2771; struct w30215 t2772; int t2773; int t2774; unsigned t2775; char t2776; unsigned t2777; char *t2778; struct w49 t2779; struct structure_type24753 *t2780; unsigned t2781; char *t2782; struct w49 t2783; struct structure_type24753 *t2784; unsigned t2785; unsigned t2786; char t2787; unsigned t2788; char t2789; unsigned t2790; char t2791; unsigned t2792; char t2793; unsigned t2794; char t2795; struct w49 t2796; char t2797; unsigned t2798; char t2799; struct w49 t2800; char t2801; char *t2802; unsigned t2803; int t2804; int t2805; int t2806; int t2807; unsigned t2808; char t2809; unsigned t2810; char *t2811; unsigned t2812; char t2813; unsigned t2814; char t2815; unsigned t2816; char t2817; unsigned t2818; char t2819; char *t2820; struct w49 t2821; struct structure_type24753 *t2822; unsigned t2823; int t2824; int t2825; int t2826; int t2827; unsigned t2828; char t2829; unsigned t2830; char *t2831; unsigned t2832; char t2833; unsigned t2834; char t2835; unsigned t2836; char t2837; unsigned t2838; char t2839; char *t2840; struct w49 t2841; struct structure_type24753 *t2842; int t2843; int t2844; int t2845; int t2846; unsigned t2847; char t2848; unsigned t2849; char *t2850; struct w49 t2851; struct structure_type24753 *t2852; unsigned t2853; unsigned t2854; char t2855; struct w49 t2856; char t2857; unsigned t2858; char t2859; struct w49 t2860; char t2861; unsigned t2862; char t2863; struct w49 t2864; char t2865; unsigned t2866; char t2867; struct w49 t2868; char t2869; char *t2870; unsigned t2871; unsigned t2872; char t2873; struct w49 t2874; char t2875; unsigned t2876; char t2877; struct w49 t2878; char t2879; char *t2880; int t2881; int t2882; int t2883; int t2884; unsigned t2885; char *t2886; struct w49 t2887; struct structure_type24753 *t2888; unsigned t2889; unsigned t2890; char t2891; struct w49 t2892; char t2893; unsigned t2894; char t2895; struct w49 t2896; char t2897; char *t2898; int t2899; int t2900; int t2901; int t2902; unsigned t2903; char *t2904; struct w49 t2905; struct structure_type24753 *t2906; int t2907; int t2908; int t2909; int t2910; unsigned t2911; char *t2912; struct w49 t2913; struct structure_type24753 *t2914; unsigned t2915; char *t2916; struct w49 t2917; struct structure_type24753 *t2918; struct w49 t2919; struct w49 t2920; char *t2921; struct w49 t2922; char *t2923; struct structure_type24753 *t2924; struct w49 t2925; struct structure_type24753 *t2926; struct structure_type24753 *t2927; struct structure_type24753 *t2928; struct w49 t2929; struct w49 t2931; struct structure_type24753 *t2932; struct w49 t2933; struct w49 t2934; struct structure_type24753 *t2935; struct w16638 t2936; struct w49 t2937; struct structure_type24753 *t2938; struct w16638 t2939; struct structure_type24753 *t2940; struct w49 t2941; struct w49 t2942; struct structure_type24753 *t2943; char *t2944; char *t2945; struct structure_type24753 *t2946; char *t2947; char *t2948; unsigned t2949; unsigned t2950; char t2951; struct w49 t2952; char t2953; char *t2954; struct w49 t2955; struct w49 t2956; char *t2957; char *t2959; struct w49 t2960; struct w49 t2961; char *t2962; struct w49 t2963; struct structure_type24753 *t2964; unsigned t2965; char *t2966; struct w49 t2967; struct structure_type24753 *t2968; char *t2969; struct w49 t2970; struct w49 t2971; char *t2972; char *t2973; struct w49 t2974; struct w49 t2975; char *t2976; char *t2977; char *t2978; char *t2979; char *t2980; char *t2981; char *t2982; char *t2983; char *t2984; char *t2985; char *t2986; unsigned t2987; unsigned t2988; char t2989; char t2990; struct w49 t2991; char t2992; struct w49 t2993; struct structure_type24753 *t2994; char *t2995; char *t2996; char *t2997; char *t2998; char *t2999; char *t3000; char *t3001; char *t3002; char *t3003; char *t3004; char *t3005; char *t3006; char *t3007; char *t3008; char *t3009; char *t3010; char *t3011; char *t3012; char *t3013; char *t3014; char *t3015; char *t3016; char *t3017; char *t3018; struct w49 t3019; struct structure_type24753 *t3020; h27815: /* x260739 */ /* x260718 */ /* x260717 */ /* x260720 */ /* x260719 */ /* x260722 */ /* x260721 */ /* x260724 */ /* x260723 */ /* x260726 */ /* x260725 */ /* x260728 */ /* x260727 */ /* x260730 */ /* x260729 */ /* x260732 */ /* x260731 */ /* x260734 */ /* x260733 */ /* x260736 */ /* x260735 */ /* x260738 */ /* x260737 */ /* x260716 */ /* x260715 */ /* x259512 */ /* x259511 */ /* x259563 */ /* x259562 */ /* x259607 */ /* x259606 */ /* x259721 */ /* x259720 */ /* x260007 */ /* x260006 */ /* x260313 */ /* x260312 */ /* x260444 */ /* x260443 */ /* x260484 */ /* x260483 */ /* x260532 */ /* x260531 */ /* x260660 */ /* x260659 */ /* x260714 */ /* x260713 */ /* x259456 */ /* x259455 */ /* x259454 */ /* x259453 */ t3019 = a34225; /* x259452 */ t3020 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t3020==NULL) {backtrace_internal("[inside READ 27817]"); out_of_memory_error();} t3020->s0 = t3019; t3020->s1.tag = NULL_TYPE; t2159 = f28696(t3020); /* x259451 */ a34254 = t2159; /* x259450 */ /* x257549 */ /* x257548 */ t2160 = a34254; /* x266602 */ if (!(t2160==EOF_OBJECT_TYPE)) goto l611; /* x257634 */ /* x257633 */ /* x257632 */ /* x257553 */ /* x257551 */ t2995 = a34231; /* x257552 */ t2996 = q7; /* x266601 */ if (!(t2995==t2996)) goto l880; /* x257556 */ /* x257555 */ /* x257554 */ r27815.tag = a34254; return r27815; l880: /* x257631 */ /* x257560 */ /* x257558 */ t2997 = a34231; /* x257559 */ t2998 = q1; /* x266600 */ if (!(t2997==t2998)) goto l882; /* x257565 */ /* x257564 */ /* x257563 */ /* x257562 */ t3018 = "EOF while reading list"; /* x266599 */ stalin_panic(t3018); l882: /* x257630 */ /* x257569 */ /* x257567 */ t2999 = a34231; /* x257568 */ t3000 = q6; /* x266598 */ if (!(t2999==t3000)) goto l884; /* x257574 */ /* x257573 */ /* x257572 */ /* x257571 */ t3017 = "EOF while reading vector"; /* x266597 */ stalin_panic(t3017); l884: /* x257629 */ /* x257578 */ /* x257576 */ t3001 = a34231; /* x257577 */ t3002 = q11; /* x266596 */ if (!(t3001==t3002)) goto l886; /* x257583 */ /* x257582 */ /* x257581 */ /* x257580 */ t3016 = "EOF while reading quoted object"; /* x266595 */ stalin_panic(t3016); l886: /* x257628 */ /* x257587 */ /* x257585 */ t3003 = a34231; /* x257586 */ t3004 = q10; /* x266594 */ if (!(t3003==t3004)) goto l888; /* x257592 */ /* x257591 */ /* x257590 */ /* x257589 */ t3015 = "EOF while reading quasiquoted object"; /* x266593 */ stalin_panic(t3015); l888: /* x257627 */ /* x257596 */ /* x257594 */ t3005 = a34231; /* x257595 */ t3006 = q9; /* x266592 */ if (!(t3005==t3006)) goto l890; /* x257601 */ /* x257600 */ /* x257599 */ /* x257598 */ t3014 = "EOF while reading unquote-slicing object"; /* x266591 */ stalin_panic(t3014); l890: /* x257626 */ /* x257605 */ /* x257603 */ t3007 = a34231; /* x257604 */ t3008 = q8; /* x266590 */ if (!(t3007==t3008)) goto l892; /* x257610 */ /* x257609 */ /* x257608 */ /* x257607 */ t3013 = "EOF while reading unquoted object"; /* x266589 */ stalin_panic(t3013); l892: /* x257625 */ /* x257614 */ /* x257612 */ t3009 = a34231; /* x257613 */ t3010 = q0; /* x266588 */ if (!(t3009==t3010)) goto l894; /* x257619 */ /* x257618 */ /* x257617 */ /* x257616 */ t3012 = "EOF while reading pair"; /* x266587 */ stalin_panic(t3012); l894: /* x257624 */ /* x257623 */ /* x257622 */ /* x257621 */ t3011 = "This shouldn\'t happen"; /* x266586 */ stalin_panic(t3011); l611: /* x259449 */ /* x257638 */ /* x257637 */ t2162 = ';'; /* x257636 */ t2161 = (char)(a34254>>2); /* x257635 */ t2163.tag = ((unsigned)((unsigned char)t2161))<<2; t2164 = t2162; if (f27342(t2163, t2164)==FALSE_TYPE) goto l613; /* x257678 */ /* x257677 */ /* x257676 */ /* x257675 */ /* x257674 */ /* x257673 */ /* x257672 */ /* x257671 */ /* x257670 */ /* x257669 */ /* x257668 */ /* x257644 */ /* x257643 */ h27833: /* x257667 */ /* x257662 */ /* x257661 */ /* x257660 */ t2993 = a34225; /* x257659 */ t2994 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t2994==NULL) {backtrace_internal("LOOP[27833]"); out_of_memory_error();} t2994->s0 = t2993; t2994->s1.tag = NULL_TYPE; t2987 = f28696(t2994); /* x257658 */ a34258 = t2987; /* x257657 */ /* x257649 */ /* x257648 */ /* x257647 */ t2988 = a34258; /* x266584 */ if (t2988==EOF_OBJECT_TYPE) goto l877; /* x257655 */ /* x257654 */ /* x257653 */ t2990 = '\n'; /* x257652 */ t2989 = (char)(a34258>>2); /* x257651 */ t2991.tag = ((unsigned)((unsigned char)t2989))<<2; t2992 = t2990; if (!(f27342(t2991, t2992)==FALSE_TYPE)) goto l877; /* x257664 */ /* x257663 */ goto h27833; l877: /* x257666 */ /* x257665 */ /* x257642 */ /* x257641 */ /* x257640 */ t2986 = a34231; /* x257639 */ a34231 = t2986; goto h27815; l613: /* x259448 */ /* x257682 */ /* x257681 */ t2166 = ')'; /* x257680 */ t2165 = (char)(a34254>>2); /* x257679 */ t2167.tag = ((unsigned)((unsigned char)t2165))<<2; t2168 = t2166; if (f27342(t2167, t2168)==FALSE_TYPE) goto l615; /* x257715 */ /* x257714 */ /* x257713 */ /* x257712 */ /* x257706 */ /* x257690 */ /* x257689 */ /* x257687 */ t2979 = a34231; /* x257688 */ t2980 = q1; /* x266581 */ if (t2979==t2980) goto l872; /* x257704 */ /* x257696 */ /* x257695 */ /* x257693 */ t2981 = a34231; /* x257694 */ t2982 = q6; /* x266579 */ if (t2981==t2982) goto l872; /* x257702 */ /* x257701 */ /* x257699 */ t2983 = a34231; /* x257700 */ t2984 = q0; /* x266577 */ if (t2983==t2984) goto l872; /* x257709 */ /* x257708 */ t2985 = "Mismatched closing parenthesis"; /* x266576 */ stalin_panic(t2985); goto l873; l872: /* x257711 */ /* x257710 */ l873: /* x257684 */ /* x257683 */ r27815.tag = EXTERNAL_SYMBOL_TYPE; r27815.value.external_symbol_type = a34227; return r27815; l615: /* x259447 */ /* x257718 */ /* x257717 */ t2169 = (char)(a34254>>2); /* x257716 */ if (f27407(t2169)==FALSE_TYPE) goto l617; /* x257723 */ /* x257722 */ /* x257721 */ /* x257720 */ t2978 = a34231; /* x257719 */ a34231 = t2978; goto h27815; l617: /* x259446 */ /* x257727 */ /* x257725 */ t2170 = a34231; /* x257726 */ t2171 = q0; /* x266575 */ if (!(t2170==t2171)) goto l619; /* x257732 */ /* x257731 */ /* x257730 */ /* x257729 */ t2977 = "Only one object allowed after dot"; /* x266574 */ stalin_panic(t2977); l619: /* x259445 */ /* x257736 */ /* x257735 */ t2173 = '\''; /* x257734 */ t2172 = (char)(a34254>>2); /* x257733 */ t2174.tag = ((unsigned)((unsigned char)t2172))<<2; t2175 = t2173; if (f27342(t2174, t2175)==FALSE_TYPE) goto l621; /* x257744 */ /* x257743 */ /* x257742 */ /* x257741 */ /* x257740 */ t2976 = q11; /* x257739 */ t2974 = f27815(t2976); /* x257738 */ t2973 = q11; /* x257737 */ t2975.tag = STRUCTURE_TYPE24753; t2975.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t2975.value.structure_type24753)==NULL) {backtrace_internal("[inside READ 27842]"); out_of_memory_error();} t2975.value.structure_type24753->s0 = t2974; t2975.value.structure_type24753->s1.tag = NULL_TYPE; a35266 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35266==NULL) {backtrace_internal("[inside READ 27842]"); out_of_memory_error();} a35266->s0.tag = EXTERNAL_SYMBOL_TYPE; a35266->s0.value.external_symbol_type = t2973; a35266->s1 = t2975; /* x272539 */ r27815.tag = STRUCTURE_TYPE24753; r27815.value.structure_type24753 = a35266; return r27815; l621: /* x259444 */ /* x257748 */ /* x257747 */ t2177 = '`'; /* x257746 */ t2176 = (char)(a34254>>2); /* x257745 */ t2178.tag = ((unsigned)((unsigned char)t2176))<<2; t2179 = t2177; if (f27342(t2178, t2179)==FALSE_TYPE) goto l623; /* x257756 */ /* x257755 */ /* x257754 */ /* x257753 */ /* x257752 */ t2972 = q10; /* x257751 */ t2970 = f27815(t2972); /* x257750 */ t2969 = q10; /* x257749 */ t2971.tag = STRUCTURE_TYPE24753; t2971.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t2971.value.structure_type24753)==NULL) {backtrace_internal("[inside READ 27843]"); out_of_memory_error();} t2971.value.structure_type24753->s0 = t2970; t2971.value.structure_type24753->s1.tag = NULL_TYPE; a35267 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35267==NULL) {backtrace_internal("[inside READ 27843]"); out_of_memory_error();} a35267->s0.tag = EXTERNAL_SYMBOL_TYPE; a35267->s0.value.external_symbol_type = t2969; a35267->s1 = t2971; /* x272541 */ r27815.tag = STRUCTURE_TYPE24753; r27815.value.structure_type24753 = a35267; return r27815; l623: /* x259443 */ /* x257760 */ /* x257759 */ t2181 = ','; /* x257758 */ t2180 = (char)(a34254>>2); /* x257757 */ t2182.tag = ((unsigned)((unsigned char)t2180))<<2; t2183 = t2181; if (f27342(t2182, t2183)==FALSE_TYPE) goto l625; /* x257804 */ /* x257803 */ /* x257802 */ /* x257801 */ /* x257800 */ t2967 = a34225; /* x257799 */ t2968 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2968==NULL) {backtrace_internal("[inside READ 27844]"); out_of_memory_error();} t2968->s0 = t2967; t2968->s1.tag = NULL_TYPE; t2949 = f28700(t2968); /* x257798 */ a34260 = t2949; /* x257797 */ /* x257796 */ /* x257790 */ /* x257789 */ t2965 = a34260; /* x266573 */ if (!(t2965==EOF_OBJECT_TYPE)) goto l869; /* x257793 */ /* x257792 */ t2966 = "EOF after dot"; /* x266572 */ stalin_panic(t2966); goto l870; l869: /* x257795 */ /* x257794 */ l870: /* x257787 */ /* x257786 */ /* x257764 */ /* x257763 */ t2951 = '@'; /* x257762 */ t2950 = a34260; /* x257761 */ t2952.tag = t2950; t2953 = t2951; if (f27342(t2952, t2953)==FALSE_TYPE) goto l867; /* x257777 */ /* x257776 */ /* x257775 */ /* x257774 */ /* x257773 */ t2963 = a34225; /* x257772 */ t2964 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2964==NULL) {backtrace_internal("[inside READ 27847]"); out_of_memory_error();} t2964->s0 = t2963; t2964->s1.tag = NULL_TYPE; f28696(t2964); /* x257771 */ /* x257770 */ /* x257769 */ /* x257768 */ t2962 = q9; /* x257767 */ t2960 = f27815(t2962); /* x257766 */ t2959 = q9; /* x257765 */ t2961.tag = STRUCTURE_TYPE24753; t2961.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t2961.value.structure_type24753)==NULL) {backtrace_internal("[inside READ 27848]"); out_of_memory_error();} t2961.value.structure_type24753->s0 = t2960; t2961.value.structure_type24753->s1.tag = NULL_TYPE; a35268 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35268==NULL) {backtrace_internal("[inside READ 27848]"); out_of_memory_error();} a35268->s0.tag = EXTERNAL_SYMBOL_TYPE; a35268->s0.value.external_symbol_type = t2959; a35268->s1 = t2961; /* x272543 */ r27815.tag = STRUCTURE_TYPE24753; r27815.value.structure_type24753 = a35268; return r27815; l867: /* x257785 */ /* x257784 */ /* x257783 */ /* x257782 */ /* x257781 */ t2957 = q8; /* x257780 */ t2955 = f27815(t2957); /* x257779 */ t2954 = q8; /* x257778 */ t2956.tag = STRUCTURE_TYPE24753; t2956.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t2956.value.structure_type24753)==NULL) {backtrace_internal("[inside READ 27849]"); out_of_memory_error();} t2956.value.structure_type24753->s0 = t2955; t2956.value.structure_type24753->s1.tag = NULL_TYPE; a35269 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35269==NULL) {backtrace_internal("[inside READ 27849]"); out_of_memory_error();} a35269->s0.tag = EXTERNAL_SYMBOL_TYPE; a35269->s0.value.external_symbol_type = t2954; a35269->s1 = t2956; /* x272545 */ r27815.tag = STRUCTURE_TYPE24753; r27815.value.structure_type24753 = a35269; return r27815; l625: /* x259442 */ /* x257808 */ /* x257807 */ t2185 = '('; /* x257806 */ t2184 = (char)(a34254>>2); /* x257805 */ t2186.tag = ((unsigned)((unsigned char)t2184))<<2; t2187 = t2185; if (f27342(t2186, t2187)==FALSE_TYPE) goto l627; /* x257909 */ /* x257908 */ /* x257907 */ /* x257906 */ /* x257905 */ /* x257904 */ /* x257903 */ /* x257902 */ /* x257901 */ /* x257900 */ /* x257899 */ /* x257810 */ /* x257809 */ a34265 = (struct structure_type24753 *)NULL_TYPE; h27854: /* x257898 */ /* x257897 */ /* x257896 */ t2948 = q1; /* x257895 */ t2919 = f27815(t2948); /* x257894 */ a34266 = t2919; /* x257893 */ /* x257814 */ /* x257812 */ t2920 = a34266; /* x257813 */ t2921 = a34228; /* x266571 */ if (!(((t2920.tag)==EXTERNAL_SYMBOL_TYPE)&&((t2920.value.external_symbol_type)==t2921))) goto l858; /* x257874 */ /* x257873 */ /* x257872 */ /* x257871 */ /* x257865 */ /* x257864 */ t2946 = a34265; /* x266563 */ if (!(((unsigned)t2946)==NULL_TYPE)) goto l864; /* x257868 */ /* x257867 */ t2947 = "Dot cannot be first element of list"; /* x266562 */ stalin_panic(t2947); goto l865; l864: /* x257870 */ /* x257869 */ l865: /* x257862 */ /* x257861 */ /* x257860 */ /* x257859 */ t2945 = q7; /* x257858 */ t2929 = f27815(t2945); /* x257857 */ a34268 = t2929; /* x257856 */ /* x257855 */ /* x257854 */ t2944 = q0; /* x257853 */ f27815(t2944); /* x257852 */ /* x257851 */ /* x257850 */ /* x257849 */ /* x257842 */ /* x257841 */ t2940 = a34265; /* x266566 */ if (!(t2940>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[inside LOOP 27860]"); structure_ref_error();} t2931 = t2940->s1; /* x257848 */ /* x257846 */ /* x257845 */ t2943 = a34265; /* x266564 */ if (!(t2943>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[inside LOOP 27860]"); structure_ref_error();} t2941 = t2943->s0; /* x257847 */ t2942 = a34268; /* x266565 */ t2932 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2932==NULL) {backtrace_internal("[inside LOOP 27860]"); out_of_memory_error();} t2932->s0 = t2941; t2932->s1 = t2942; /* x257839 */ /* x257838 */ /* x257837 */ /* x257836 */ /* x257835 */ /* x257834 */ /* x257833 */ /* x257816 */ /* x257815 */ a34272 = t2931; a34273 = t2932; h27863: /* x257832 */ /* x257819 */ /* x257818 */ t2933 = a34272; /* x266570 */ if (!((t2933.tag)==NULL_TYPE)) goto l862; /* x257820 */ r27815.tag = STRUCTURE_TYPE24753; r27815.value.structure_type24753 = a34273; return r27815; l862: /* x257831 */ /* x257824 */ /* x257823 */ t2936 = *((struct w16638 *)(&a34272)); /* x266569 */ if (!((t2936.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27863]"); structure_ref_error();} t2934 = t2936.value.structure_type24753->s1; /* x257830 */ /* x257828 */ /* x257827 */ t2939 = *((struct w16638 *)(&a34272)); /* x266567 */ if (!((t2939.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27863]"); structure_ref_error();} t2937 = t2939.value.structure_type24753->s0; /* x257829 */ t2938 = a34273; /* x266568 */ t2935 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2935==NULL) {backtrace_internal("LOOP[27863]"); out_of_memory_error();} t2935->s0 = t2937; t2935->s1.tag = STRUCTURE_TYPE24753; t2935->s1.value.structure_type24753 = t2938; /* x257821 */ a34272 = t2934; a34273 = t2935; goto h27863; l858: /* x257892 */ /* x257878 */ /* x257876 */ t2922 = a34266; /* x257877 */ t2923 = a34227; /* x266561 */ if (!(((t2922.tag)==EXTERNAL_SYMBOL_TYPE)&&((t2922.value.external_symbol_type)==t2923))) goto l860; /* x257883 */ /* x257882 */ /* x257881 */ /* x257880 */ t2927 = a34265; /* x257879 */ t2928 = f26326(t2927); /* MOVE: branching squeezed to general */ if (t2928>=((struct structure_type24753 *)VALUE_OFFSET)) {r27815.tag = STRUCTURE_TYPE24753; r27815.value.structure_type24753 = t2928;} else r27815.tag = (unsigned)t2928; return r27815; l860: /* x257891 */ /* x257890 */ /* x257889 */ /* x257888 */ /* x257886 */ t2925 = a34266; /* x257887 */ t2926 = a34265; /* x266560 */ t2924 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2924==NULL) {backtrace_internal("[inside LOOP 27867]"); out_of_memory_error();} t2924->s0 = t2925; /* MOVE: branching squeezed to general */ if (t2926>=((struct structure_type24753 *)VALUE_OFFSET)) {t2924->s1.tag = STRUCTURE_TYPE24753; t2924->s1.value.structure_type24753 = t2926;} else t2924->s1.tag = (unsigned)t2926; /* x257884 */ a34265 = t2924; goto h27854; l627: /* x259441 */ /* x257913 */ /* x257912 */ t2189 = '#'; /* x257911 */ t2188 = (char)(a34254>>2); /* x257910 */ t2190.tag = ((unsigned)((unsigned char)t2188))<<2; t2191 = t2189; if (f27342(t2190, t2191)==FALSE_TYPE) goto l629; /* x258957 */ /* x258956 */ /* x258955 */ /* x258954 */ /* x258953 */ t2917 = a34225; /* x258952 */ t2918 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2918==NULL) {backtrace_internal("[inside READ 27869]"); out_of_memory_error();} t2918->s0 = t2917; t2918->s1.tag = NULL_TYPE; t2431 = f28696(t2918); /* x258951 */ a34274 = t2431; /* x258950 */ /* x258949 */ /* x258943 */ /* x258942 */ t2915 = a34274; /* x266435 */ if (!(t2915==EOF_OBJECT_TYPE)) goto l855; /* x258946 */ /* x258945 */ t2916 = "EOF after sharp sign"; /* x266434 */ stalin_panic(t2916); goto l856; l855: /* x258948 */ /* x258947 */ l856: /* x258940 */ /* x258939 */ /* x257926 */ /* x257925 */ /* x257924 */ t2433 = 't'; /* x257923 */ t2432 = a34274; /* x257922 */ t2434.tag = t2432; t2435 = t2433; if (!(f27342(t2434, t2435)==FALSE_TYPE)) goto l689; /* x257919 */ /* x257918 */ t2437 = 'T'; /* x257917 */ t2436 = a34274; /* x257916 */ t2438.tag = t2436; t2439 = t2437; if (f27342(t2438, t2439)==FALSE_TYPE) goto l690; l689: /* x257929 */ /* x257928 */ /* x257927 */ r27815.tag = TRUE_TYPE; return r27815; l690: /* x258938 */ /* x257942 */ /* x257941 */ /* x257940 */ t2441 = 'f'; /* x257939 */ t2440 = a34274; /* x257938 */ t2442.tag = t2440; t2443 = t2441; if (!(f27342(t2442, t2443)==FALSE_TYPE)) goto l692; /* x257935 */ /* x257934 */ t2445 = 'F'; /* x257933 */ t2444 = a34274; /* x257932 */ t2446.tag = t2444; t2447 = t2445; if (f27342(t2446, t2447)==FALSE_TYPE) goto l693; l692: /* x257945 */ /* x257944 */ /* x257943 */ r27815.tag = FALSE_TYPE; return r27815; l693: /* x258937 */ /* x257958 */ /* x257957 */ /* x257956 */ t2449 = 'b'; /* x257955 */ t2448 = a34274; /* x257954 */ t2450.tag = t2448; t2451 = t2449; if (!(f27342(t2450, t2451)==FALSE_TYPE)) goto l695; /* x257951 */ /* x257950 */ t2453 = 'B'; /* x257949 */ t2452 = a34274; /* x257948 */ t2454.tag = t2452; t2455 = t2453; if (f27342(t2454, t2455)==FALSE_TYPE) goto l696; l695: /* x258101 */ /* x258100 */ while (region27877!=((struct region27877 *)(&initial_region27877))) {struct region27877 *region; region = region27877; region27877 = region27877->region; GC_free(region);} region_size27877 = REGION_SIZE27877; fp27877 = &((region27877->data)[0]); ALIGN(fp27877); /* x258099 */ /* x258098 */ /* x258097 */ t2913 = a34225; /* x258096 */ if ((fp27877+sizeof(struct structure_type24753))>(&((region27877->data)[region_size27877]))) {struct region27877 *region; unsigned region_size = REGION_SIZE27877; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region27877 *)GC_malloc_uncollectable(sizeof(struct region27877)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ 27877]"); out_of_memory_error();} region->region = region27877; region_size27877 = region_size; region27877 = region; fp27877 = &((region->data)[0]); ALIGN(fp27877);} t2914 = (struct structure_type24753 *)fp27877; fp27877 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2914->s0 = t2913; t2914->s1.tag = NULL_TYPE; t2853 = f28696(t2914); /* x258095 */ a34279 = t2853; /* x258094 */ /* x258093 */ /* x258087 */ /* x258086 */ t2911 = a34279; /* x266550 */ if (!(t2911==EOF_OBJECT_TYPE)) goto l852; /* x258090 */ /* x258089 */ t2912 = "EOF while reading binary number"; /* x266549 */ stalin_panic(t2912); goto l853; l852: /* x258092 */ /* x258091 */ l853: /* x258084 */ /* x258083 */ /* x257962 */ /* x257961 */ t2855 = '0'; /* x257960 */ t2854 = a34279; /* x257959 */ t2856.tag = t2854; t2857 = t2855; if (f27342(t2856, t2857)==FALSE_TYPE) goto l830; /* x257967 */ /* x257966 */ /* x257965 */ /* x257964 */ t2909 = 0; /* x257963 */ t2910 = f28049(t2909); r27815.tag = FIXNUM_TYPE; r27815.value.fixnum_type = t2910; return r27815; l830: /* x258082 */ /* x257971 */ /* x257970 */ t2859 = '1'; /* x257969 */ t2858 = a34279; /* x257968 */ t2860.tag = t2858; t2861 = t2859; if (f27342(t2860, t2861)==FALSE_TYPE) goto l832; /* x257976 */ /* x257975 */ /* x257974 */ /* x257973 */ t2907 = 1; /* x257972 */ t2908 = f28049(t2907); r27815.tag = FIXNUM_TYPE; r27815.value.fixnum_type = t2908; return r27815; l832: /* x258081 */ /* x257980 */ /* x257979 */ t2863 = '+'; /* x257978 */ t2862 = a34279; /* x257977 */ t2864.tag = t2862; t2865 = t2863; if (f27342(t2864, t2865)==FALSE_TYPE) goto l834; /* x258023 */ /* x258022 */ while (region27882!=((struct region27882 *)(&initial_region27882))) {struct region27882 *region; region = region27882; region27882 = region27882->region; GC_free(region);} region_size27882 = REGION_SIZE27882; fp27882 = &((region27882->data)[0]); ALIGN(fp27882); /* x258021 */ /* x258020 */ /* x258019 */ t2905 = a34225; /* x258018 */ if ((fp27882+sizeof(struct structure_type24753))>(&((region27882->data)[region_size27882]))) {struct region27882 *region; unsigned region_size = REGION_SIZE27882; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region27882 *)GC_malloc_uncollectable(sizeof(struct region27882)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ 27882]"); out_of_memory_error();} region->region = region27882; region_size27882 = region_size; region27882 = region; fp27882 = &((region->data)[0]); ALIGN(fp27882);} t2906 = (struct structure_type24753 *)fp27882; fp27882 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2906->s0 = t2905; t2906->s1.tag = NULL_TYPE; t2889 = f28696(t2906); /* x258017 */ a34281 = t2889; /* x258016 */ /* x258015 */ /* x258009 */ /* x258008 */ t2903 = a34281; /* x266558 */ if (!(t2903==EOF_OBJECT_TYPE)) goto l849; /* x258012 */ /* x258011 */ t2904 = "EOF while reading binary number"; /* x266557 */ stalin_panic(t2904); goto l850; l849: /* x258014 */ /* x258013 */ l850: /* x258006 */ /* x258005 */ /* x257984 */ /* x257983 */ t2891 = '0'; /* x257982 */ t2890 = a34281; /* x257981 */ t2892.tag = t2890; t2893 = t2891; if (f27342(t2892, t2893)==FALSE_TYPE) goto l845; /* x257989 */ /* x257988 */ /* x257987 */ /* x257986 */ t2901 = 0; /* x257985 */ t2902 = f28049(t2901); r27815.tag = FIXNUM_TYPE; r27815.value.fixnum_type = t2902; return r27815; l845: /* x258004 */ /* x257993 */ /* x257992 */ t2895 = '1'; /* x257991 */ t2894 = a34281; /* x257990 */ t2896.tag = t2894; t2897 = t2895; if (f27342(t2896, t2897)==FALSE_TYPE) goto l847; /* x257998 */ /* x257997 */ /* x257996 */ /* x257995 */ t2899 = 1; /* x257994 */ t2900 = f28049(t2899); r27815.tag = FIXNUM_TYPE; r27815.value.fixnum_type = t2900; return r27815; l847: /* x258003 */ /* x258002 */ /* x258001 */ /* x258000 */ t2898 = "Unfinished binary number"; /* x266559 */ stalin_panic(t2898); l834: /* x258080 */ /* x258027 */ /* x258026 */ t2867 = '-'; /* x258025 */ t2866 = a34279; /* x258024 */ t2868.tag = t2866; t2869 = t2867; if (f27342(t2868, t2869)==FALSE_TYPE) goto l836; /* x258074 */ /* x258073 */ while (region27889!=((struct region27889 *)(&initial_region27889))) {struct region27889 *region; region = region27889; region27889 = region27889->region; GC_free(region);} region_size27889 = REGION_SIZE27889; fp27889 = &((region27889->data)[0]); ALIGN(fp27889); /* x258072 */ /* x258071 */ /* x258070 */ t2887 = a34225; /* x258069 */ if ((fp27889+sizeof(struct structure_type24753))>(&((region27889->data)[region_size27889]))) {struct region27889 *region; unsigned region_size = REGION_SIZE27889; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region27889 *)GC_malloc_uncollectable(sizeof(struct region27889)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ 27889]"); out_of_memory_error();} region->region = region27889; region_size27889 = region_size; region27889 = region; fp27889 = &((region->data)[0]); ALIGN(fp27889);} t2888 = (struct structure_type24753 *)fp27889; fp27889 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2888->s0 = t2887; t2888->s1.tag = NULL_TYPE; t2871 = f28696(t2888); /* x258068 */ a34283 = t2871; /* x258067 */ /* x258066 */ /* x258060 */ /* x258059 */ t2885 = a34283; /* x266553 */ if (!(t2885==EOF_OBJECT_TYPE)) goto l842; /* x258063 */ /* x258062 */ t2886 = "EOF while reading binary number"; /* x266552 */ stalin_panic(t2886); goto l843; l842: /* x258065 */ /* x258064 */ l843: /* x258057 */ /* x258056 */ /* x258031 */ /* x258030 */ t2873 = '0'; /* x258029 */ t2872 = a34283; /* x258028 */ t2874.tag = t2872; t2875 = t2873; if (f27342(t2874, t2875)==FALSE_TYPE) goto l838; /* x258038 */ /* x258037 */ /* x258036 */ /* x258035 */ /* x258034 */ t2884 = 0; /* x258033 */ t2883 = f28049(t2884); /* x266556 */ r27815.tag = FIXNUM_TYPE; r27815.value.fixnum_type = -t2883; return r27815; l838: /* x258055 */ /* x258042 */ /* x258041 */ t2877 = '1'; /* x258040 */ t2876 = a34283; /* x258039 */ t2878.tag = t2876; t2879 = t2877; if (f27342(t2878, t2879)==FALSE_TYPE) goto l840; /* x258049 */ /* x258048 */ /* x258047 */ /* x258046 */ /* x258045 */ t2882 = 1; /* x258044 */ t2881 = f28049(t2882); /* x266555 */ r27815.tag = FIXNUM_TYPE; r27815.value.fixnum_type = -t2881; return r27815; l840: /* x258054 */ /* x258053 */ /* x258052 */ /* x258051 */ t2880 = "Unfinished binary number"; /* x266554 */ stalin_panic(t2880); l836: /* x258079 */ /* x258078 */ /* x258077 */ /* x258076 */ t2870 = "Unfinished binary number"; /* x266551 */ stalin_panic(t2870); l696: /* x258936 */ /* x258114 */ /* x258113 */ /* x258112 */ t2457 = 'o'; /* x258111 */ t2456 = a34274; /* x258110 */ t2458.tag = t2456; t2459 = t2457; if (!(f27342(t2458, t2459)==FALSE_TYPE)) goto l698; /* x258107 */ /* x258106 */ t2461 = 'O'; /* x258105 */ t2460 = a34274; /* x258104 */ t2462.tag = t2460; t2463 = t2461; if (f27342(t2462, t2463)==FALSE_TYPE) goto l699; l698: /* x258266 */ /* x258265 */ while (region27899!=((struct region27899 *)(&initial_region27899))) {struct region27899 *region; region = region27899; region27899 = region27899->region; GC_free(region);} region_size27899 = REGION_SIZE27899; fp27899 = &((region27899->data)[0]); ALIGN(fp27899); /* x258264 */ /* x258263 */ /* x258262 */ t2851 = a34225; /* x258261 */ if ((fp27899+sizeof(struct structure_type24753))>(&((region27899->data)[region_size27899]))) {struct region27899 *region; unsigned region_size = REGION_SIZE27899; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region27899 *)GC_malloc_uncollectable(sizeof(struct region27899)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ 27899]"); out_of_memory_error();} region->region = region27899; region_size27899 = region_size; region27899 = region; fp27899 = &((region->data)[0]); ALIGN(fp27899);} t2852 = (struct structure_type24753 *)fp27899; fp27899 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2852->s0 = t2851; t2852->s1.tag = NULL_TYPE; t2785 = f28696(t2852); /* x258260 */ a34286 = t2785; /* x258259 */ /* x258258 */ /* x258252 */ /* x258251 */ t2849 = a34286; /* x266531 */ if (!(t2849==EOF_OBJECT_TYPE)) goto l827; /* x258255 */ /* x258254 */ t2850 = "EOF while reading octal number"; /* x266530 */ stalin_panic(t2850); goto l828; l827: /* x258257 */ /* x258256 */ l828: /* x258249 */ /* x258248 */ /* x258124 */ /* x258118 */ /* x258117 */ t2787 = '0'; /* x258116 */ t2786 = a34286; /* x258115 */ t2788 = t2786; t2789 = t2787; if (f27366(t2788, t2789)==FALSE_TYPE) goto l806; /* x258122 */ /* x258121 */ t2791 = '7'; /* x258120 */ t2790 = a34286; /* x258119 */ t2792 = t2790; t2793 = t2791; if (f27360(t2792, t2793)==FALSE_TYPE) goto l806; /* x258136 */ /* x258135 */ /* x258134 */ /* x258133 */ /* x258129 */ /* x258128 */ t2847 = a34286; /* x266547 */ if (!(t2847>2))); /* x258132 */ /* x258131 */ t2848 = '0'; /* x266546 */ t2846 = (int)((unsigned char)t2848); /* x266548 */ t2843 = t2845-t2846; /* x258125 */ t2844 = f28057(t2843); r27815.tag = FIXNUM_TYPE; r27815.value.fixnum_type = t2844; return r27815; l806: /* x258247 */ /* x258140 */ /* x258139 */ t2795 = '+'; /* x258138 */ t2794 = a34286; /* x258137 */ t2796.tag = t2794; t2797 = t2795; if (f27342(t2796, t2797)==FALSE_TYPE) goto l809; /* x258187 */ /* x258186 */ while (region27903!=((struct region27903 *)(&initial_region27903))) {struct region27903 *region; region = region27903; region27903 = region27903->region; GC_free(region);} region_size27903 = REGION_SIZE27903; fp27903 = &((region27903->data)[0]); ALIGN(fp27903); /* x258185 */ /* x258184 */ /* x258183 */ t2841 = a34225; /* x258182 */ if ((fp27903+sizeof(struct structure_type24753))>(&((region27903->data)[region_size27903]))) {struct region27903 *region; unsigned region_size = REGION_SIZE27903; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region27903 *)GC_malloc_uncollectable(sizeof(struct region27903)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ 27903]"); out_of_memory_error();} region->region = region27903; region_size27903 = region_size; region27903 = region; fp27903 = &((region->data)[0]); ALIGN(fp27903);} t2842 = (struct structure_type24753 *)fp27903; fp27903 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2842->s0 = t2841; t2842->s1.tag = NULL_TYPE; t2823 = f28696(t2842); /* x258181 */ a34288 = t2823; /* x258180 */ /* x258160 */ /* x258154 */ /* x258153 */ t2830 = a34288; /* x266542 */ if (!(t2830==EOF_OBJECT_TYPE)) goto l820; /* x258157 */ /* x258156 */ t2831 = "EOF while reading octal number"; /* x266541 */ stalin_panic(t2831); goto l821; l820: /* x258159 */ /* x258158 */ l821: /* x258179 */ /* x258173 */ /* x258172 */ /* x258171 */ t2833 = '0'; /* x258170 */ t2832 = a34288; /* x258169 */ t2834 = t2832; t2835 = t2833; if (!(f27348(t2834, t2835)==FALSE_TYPE)) goto l822; /* x258166 */ /* x258165 */ t2837 = '7'; /* x258164 */ t2836 = a34288; /* x258163 */ t2838 = t2836; t2839 = t2837; if (f27354(t2838, t2839)==FALSE_TYPE) goto l823; l822: /* x258176 */ /* x258175 */ t2840 = "Unfinished octal number"; /* x266540 */ stalin_panic(t2840); goto l824; l823: /* x258178 */ /* x258177 */ l824: /* x258151 */ /* x258150 */ /* x258149 */ /* x258145 */ /* x258144 */ t2828 = a34288; /* x266544 */ if (!(t2828>2))); /* x258148 */ /* x258147 */ t2829 = '0'; /* x266543 */ t2827 = (int)((unsigned char)t2829); /* x266545 */ t2824 = t2826-t2827; /* x258141 */ t2825 = f28057(t2824); r27815.tag = FIXNUM_TYPE; r27815.value.fixnum_type = t2825; return r27815; l809: /* x258246 */ /* x258191 */ /* x258190 */ t2799 = '-'; /* x258189 */ t2798 = a34286; /* x258188 */ t2800.tag = t2798; t2801 = t2799; if (f27342(t2800, t2801)==FALSE_TYPE) goto l811; /* x258240 */ /* x258239 */ while (region27909!=((struct region27909 *)(&initial_region27909))) {struct region27909 *region; region = region27909; region27909 = region27909->region; GC_free(region);} region_size27909 = REGION_SIZE27909; fp27909 = &((region27909->data)[0]); ALIGN(fp27909); /* x258238 */ /* x258237 */ /* x258236 */ t2821 = a34225; /* x258235 */ if ((fp27909+sizeof(struct structure_type24753))>(&((region27909->data)[region_size27909]))) {struct region27909 *region; unsigned region_size = REGION_SIZE27909; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region27909 *)GC_malloc_uncollectable(sizeof(struct region27909)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ 27909]"); out_of_memory_error();} region->region = region27909; region_size27909 = region_size; region27909 = region; fp27909 = &((region->data)[0]); ALIGN(fp27909);} t2822 = (struct structure_type24753 *)fp27909; fp27909 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2822->s0 = t2821; t2822->s1.tag = NULL_TYPE; t2803 = f28696(t2822); /* x258234 */ a34292 = t2803; /* x258233 */ /* x258213 */ /* x258207 */ /* x258206 */ t2810 = a34292; /* x266535 */ if (!(t2810==EOF_OBJECT_TYPE)) goto l813; /* x258210 */ /* x258209 */ t2811 = "EOF while reading octal number"; /* x266534 */ stalin_panic(t2811); goto l814; l813: /* x258212 */ /* x258211 */ l814: /* x258232 */ /* x258226 */ /* x258225 */ /* x258224 */ t2813 = '0'; /* x258223 */ t2812 = a34292; /* x258222 */ t2814 = t2812; t2815 = t2813; if (!(f27348(t2814, t2815)==FALSE_TYPE)) goto l815; /* x258219 */ /* x258218 */ t2817 = '7'; /* x258217 */ t2816 = a34292; /* x258216 */ t2818 = t2816; t2819 = t2817; if (f27354(t2818, t2819)==FALSE_TYPE) goto l816; l815: /* x258229 */ /* x258228 */ t2820 = "Unfinished octal number"; /* x266533 */ stalin_panic(t2820); goto l817; l816: /* x258231 */ /* x258230 */ l817: /* x258204 */ /* x258203 */ /* x258202 */ /* x258201 */ /* x258197 */ /* x258196 */ t2808 = a34292; /* x266537 */ if (!(t2808>2))); /* x258200 */ /* x258199 */ t2809 = '0'; /* x266536 */ t2807 = (int)((unsigned char)t2809); /* x266538 */ t2805 = t2806-t2807; /* x258193 */ t2804 = f28057(t2805); /* x266539 */ r27815.tag = FIXNUM_TYPE; r27815.value.fixnum_type = -t2804; return r27815; l811: /* x258245 */ /* x258244 */ /* x258243 */ /* x258242 */ t2802 = "Unfinished octal number"; /* x266532 */ stalin_panic(t2802); l699: /* x258935 */ /* x258279 */ /* x258278 */ /* x258277 */ t2465 = 'd'; /* x258276 */ t2464 = a34274; /* x258275 */ t2466.tag = t2464; t2467 = t2465; if (!(f27342(t2466, t2467)==FALSE_TYPE)) goto l701; /* x258272 */ /* x258271 */ t2469 = 'D'; /* x258270 */ t2468 = a34274; /* x258269 */ t2470.tag = t2468; t2471 = t2469; if (f27342(t2470, t2471)==FALSE_TYPE) goto l702; l701: /* x258554 */ /* x258553 */ while (region27918!=((struct region27918 *)(&initial_region27918))) {struct region27918 *region; region = region27918; region27918 = region27918->region; GC_free(region);} region_size27918 = REGION_SIZE27918; fp27918 = &((region27918->data)[0]); ALIGN(fp27918); /* x258552 */ /* x258551 */ /* x258550 */ t2783 = a34225; /* x258549 */ if ((fp27918+sizeof(struct structure_type24753))>(&((region27918->data)[region_size27918]))) {struct region27918 *region; unsigned region_size = REGION_SIZE27918; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region27918 *)GC_malloc_uncollectable(sizeof(struct region27918)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ 27918]"); out_of_memory_error();} region->region = region27918; region_size27918 = region_size; region27918 = region; fp27918 = &((region->data)[0]); ALIGN(fp27918);} t2784 = (struct structure_type24753 *)fp27918; fp27918 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2784->s0 = t2783; t2784->s1.tag = NULL_TYPE; t2672 = f28696(t2784); /* x258548 */ a34297 = t2672; /* x258547 */ /* x258546 */ /* x258540 */ /* x258539 */ t2781 = a34297; /* x266487 */ if (!(t2781==EOF_OBJECT_TYPE)) goto l803; /* x258543 */ /* x258542 */ t2782 = "EOF while reading decimal number"; /* x266486 */ stalin_panic(t2782); goto l804; l803: /* x258545 */ /* x258544 */ l804: /* x258537 */ /* x258536 */ /* x258283 */ /* x258282 */ t2674 = '+'; /* x258281 */ t2673 = a34297; /* x258280 */ t2675.tag = t2673; t2676 = t2674; if (f27342(t2675, t2676)==FALSE_TYPE) goto l763; /* x258370 */ /* x258369 */ while (region27921!=((struct region27921 *)(&initial_region27921))) {struct region27921 *region; region = region27921; region27921 = region27921->region; GC_free(region);} region_size27921 = REGION_SIZE27921; fp27921 = &((region27921->data)[0]); ALIGN(fp27921); /* x258368 */ /* x258367 */ /* x258366 */ t2779 = a34225; /* x258365 */ if ((fp27921+sizeof(struct structure_type24753))>(&((region27921->data)[region_size27921]))) {struct region27921 *region; unsigned region_size = REGION_SIZE27921; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region27921 *)GC_malloc_uncollectable(sizeof(struct region27921)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ 27921]"); out_of_memory_error();} region->region = region27921; region_size27921 = region_size; region27921 = region; fp27921 = &((region->data)[0]); ALIGN(fp27921);} t2780 = (struct structure_type24753 *)fp27921; fp27921 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2780->s0 = t2779; t2780->s1.tag = NULL_TYPE; t2746 = f28696(t2780); /* x258364 */ a34299 = t2746; /* x258363 */ /* x258362 */ /* x258356 */ /* x258355 */ t2777 = a34299; /* x266517 */ if (!(t2777==EOF_OBJECT_TYPE)) goto l800; /* x258359 */ /* x258358 */ t2778 = "EOF while reading decimal number"; /* x266516 */ stalin_panic(t2778); goto l801; l800: /* x258361 */ /* x258360 */ l801: /* x258353 */ /* x258352 */ /* x258286 */ /* x258285 */ t2747 = a34299; /* x258284 */ t2748.tag = t2747; if (f27405(t2748)==FALSE_TYPE) goto l790; /* x258298 */ /* x258297 */ /* x258296 */ /* x258295 */ /* x258291 */ /* x258290 */ t2775 = a34299; /* x266528 */ if (!(t2775>2))); /* x258294 */ /* x258293 */ t2776 = '0'; /* x266527 */ t2774 = (int)((unsigned char)t2776); /* x266529 */ t2771 = t2773-t2774; /* x258287 */ t2772 = f28111(t2771); return *((struct w49 *)(&t2772)); l790: /* x258351 */ /* x258302 */ /* x258301 */ t2750 = '.'; /* x258300 */ t2749 = a34299; /* x258299 */ t2751.tag = t2749; t2752 = t2750; if (f27342(t2751, t2752)==FALSE_TYPE) goto l792; /* x258345 */ /* x258344 */ while (region27925!=((struct region27925 *)(&initial_region27925))) {struct region27925 *region; region = region27925; region27925 = region27925->region; GC_free(region);} region_size27925 = REGION_SIZE27925; fp27925 = &((region27925->data)[0]); ALIGN(fp27925); /* x258343 */ /* x258342 */ /* x258341 */ t2769 = a34225; /* x258340 */ if ((fp27925+sizeof(struct structure_type24753))>(&((region27925->data)[region_size27925]))) {struct region27925 *region; unsigned region_size = REGION_SIZE27925; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region27925 *)GC_malloc_uncollectable(sizeof(struct region27925)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ 27925]"); out_of_memory_error();} region->region = region27925; region_size27925 = region_size; region27925 = region; fp27925 = &((region->data)[0]); ALIGN(fp27925);} t2770 = (struct structure_type24753 *)fp27925; fp27925 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2770->s0 = t2769; t2770->s1.tag = NULL_TYPE; t2754 = f28696(t2770); /* x258339 */ a34301 = t2754; /* x258338 */ /* x258326 */ /* x258320 */ /* x258319 */ t2764 = a34301; /* x266522 */ if (!(t2764==EOF_OBJECT_TYPE)) goto l794; /* x258323 */ /* x258322 */ t2765 = "EOF while reading decimal number"; /* x266521 */ stalin_panic(t2765); goto l795; l794: /* x258325 */ /* x258324 */ l795: /* x258337 */ /* x258331 */ /* x258330 */ /* x258329 */ t2766 = a34301; /* x258328 */ t2767.tag = t2766; if (!(f27405(t2767)==FALSE_TYPE)) goto l797; /* x258334 */ /* x258333 */ t2768 = "Unfinished decimal number"; /* x266519 */ stalin_panic(t2768); goto l798; l797: /* x258336 */ /* x258335 */ l798: /* x258317 */ /* x258316 */ /* x258314 */ /* x258312 */ /* x258308 */ /* x258307 */ t2762 = a34301; /* x266524 */ if (!(t2762>2))); /* x258311 */ /* x258310 */ t2763 = '0'; /* x266523 */ t2761 = (int)((unsigned char)t2763); /* x266525 */ t2758 = t2760-t2761; /* x258313 */ t2759 = 1.0e1; /* x266526 */ t2755 = t2758/t2759; /* x258315 */ t2756 = 1.0e2; /* x258303 */ t2757 = f28079(t2755, t2756); r27815.tag = FLONUM_TYPE; r27815.value.flonum_type = t2757; return r27815; l792: /* x258350 */ /* x258349 */ /* x258348 */ /* x258347 */ t2753 = "Unfinished decimal number"; /* x266518 */ stalin_panic(t2753); l763: /* x258535 */ /* x258374 */ /* x258373 */ t2678 = '-'; /* x258372 */ t2677 = a34297; /* x258371 */ t2679.tag = t2677; t2680 = t2678; if (f27342(t2679, t2680)==FALSE_TYPE) goto l765; /* x258465 */ /* x258464 */ while (region27932!=((struct region27932 *)(&initial_region27932))) {struct region27932 *region; region = region27932; region27932 = region27932->region; GC_free(region);} region_size27932 = REGION_SIZE27932; fp27932 = &((region27932->data)[0]); ALIGN(fp27932); /* x258463 */ /* x258462 */ /* x258461 */ t2744 = a34225; /* x258460 */ if ((fp27932+sizeof(struct structure_type24753))>(&((region27932->data)[region_size27932]))) {struct region27932 *region; unsigned region_size = REGION_SIZE27932; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region27932 *)GC_malloc_uncollectable(sizeof(struct region27932)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ 27932]"); out_of_memory_error();} region->region = region27932; region_size27932 = region_size; region27932 = region; fp27932 = &((region->data)[0]); ALIGN(fp27932);} t2745 = (struct structure_type24753 *)fp27932; fp27932 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2745->s0 = t2744; t2745->s1.tag = NULL_TYPE; t2711 = f28696(t2745); /* x258459 */ a34304 = t2711; /* x258458 */ /* x258457 */ /* x258451 */ /* x258450 */ t2742 = a34304; /* x266501 */ if (!(t2742==EOF_OBJECT_TYPE)) goto l787; /* x258454 */ /* x258453 */ t2743 = "EOF while reading decimal number"; /* x266500 */ stalin_panic(t2743); goto l788; l787: /* x258456 */ /* x258455 */ l788: /* x258448 */ /* x258447 */ /* x258377 */ /* x258376 */ t2712 = a34304; /* x258375 */ t2713.tag = t2712; if (f27405(t2713)==FALSE_TYPE) goto l777; /* x258391 */ /* x258390 */ /* x258389 */ /* x258388 */ /* x258387 */ /* x258383 */ /* x258382 */ t2740 = a34304; /* x266513 */ if (!(t2740>2))); /* x258386 */ /* x258385 */ t2741 = '0'; /* x266512 */ t2739 = (int)((unsigned char)t2741); /* x266514 */ t2737 = t2738-t2739; /* x258379 */ t2736 = f28111(t2737); /* x266515 */ if ((t2736.tag)==FIXNUM_TYPE) {r27815.tag = FIXNUM_TYPE; r27815.value.fixnum_type = -(t2736.value.fixnum_type); return r27815;} r27815.tag = FLONUM_TYPE; r27815.value.flonum_type = -(t2736.value.flonum_type); return r27815; l777: /* x258446 */ /* x258395 */ /* x258394 */ t2715 = '.'; /* x258393 */ t2714 = a34304; /* x258392 */ t2716.tag = t2714; t2717 = t2715; if (f27342(t2716, t2717)==FALSE_TYPE) goto l779; /* x258440 */ /* x258439 */ while (region27936!=((struct region27936 *)(&initial_region27936))) {struct region27936 *region; region = region27936; region27936 = region27936->region; GC_free(region);} region_size27936 = REGION_SIZE27936; fp27936 = &((region27936->data)[0]); ALIGN(fp27936); /* x258438 */ /* x258437 */ /* x258436 */ t2734 = a34225; /* x258435 */ if ((fp27936+sizeof(struct structure_type24753))>(&((region27936->data)[region_size27936]))) {struct region27936 *region; unsigned region_size = REGION_SIZE27936; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region27936 *)GC_malloc_uncollectable(sizeof(struct region27936)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ 27936]"); out_of_memory_error();} region->region = region27936; region_size27936 = region_size; region27936 = region; fp27936 = &((region->data)[0]); ALIGN(fp27936);} t2735 = (struct structure_type24753 *)fp27936; fp27936 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2735->s0 = t2734; t2735->s1.tag = NULL_TYPE; t2719 = f28696(t2735); /* x258434 */ a34306 = t2719; /* x258433 */ /* x258421 */ /* x258415 */ /* x258414 */ t2729 = a34306; /* x266506 */ if (!(t2729==EOF_OBJECT_TYPE)) goto l781; /* x258418 */ /* x258417 */ t2730 = "EOF while reading decimal number"; /* x266505 */ stalin_panic(t2730); goto l782; l781: /* x258420 */ /* x258419 */ l782: /* x258432 */ /* x258426 */ /* x258425 */ /* x258424 */ t2731 = a34306; /* x258423 */ t2732.tag = t2731; if (!(f27405(t2732)==FALSE_TYPE)) goto l784; /* x258429 */ /* x258428 */ t2733 = "Unfinished decimal number"; /* x266503 */ stalin_panic(t2733); goto l785; l784: /* x258431 */ /* x258430 */ l785: /* x258412 */ /* x258411 */ /* x258410 */ /* x258408 */ /* x258406 */ /* x258402 */ /* x258401 */ t2727 = a34306; /* x266508 */ if (!(t2727>2))); /* x258405 */ /* x258404 */ t2728 = '0'; /* x266507 */ t2726 = (int)((unsigned char)t2728); /* x266509 */ t2723 = t2725-t2726; /* x258407 */ t2724 = 1.0e1; /* x266510 */ t2721 = t2723/t2724; /* x258409 */ t2722 = 1.0e2; /* x258397 */ t2720 = f28079(t2721, t2722); /* x266511 */ r27815.tag = FLONUM_TYPE; r27815.value.flonum_type = -t2720; return r27815; l779: /* x258445 */ /* x258444 */ /* x258443 */ /* x258442 */ t2718 = "Unfinished decimal number"; /* x266502 */ stalin_panic(t2718); l765: /* x258534 */ /* x258469 */ /* x258468 */ t2682 = '.'; /* x258467 */ t2681 = a34297; /* x258466 */ t2683.tag = t2681; t2684 = t2682; if (f27342(t2683, t2684)==FALSE_TYPE) goto l767; /* x258512 */ /* x258511 */ while (region27943!=((struct region27943 *)(&initial_region27943))) {struct region27943 *region; region = region27943; region27943 = region27943->region; GC_free(region);} region_size27943 = REGION_SIZE27943; fp27943 = &((region27943->data)[0]); ALIGN(fp27943); /* x258510 */ /* x258509 */ /* x258508 */ t2709 = a34225; /* x258507 */ if ((fp27943+sizeof(struct structure_type24753))>(&((region27943->data)[region_size27943]))) {struct region27943 *region; unsigned region_size = REGION_SIZE27943; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region27943 *)GC_malloc_uncollectable(sizeof(struct region27943)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ 27943]"); out_of_memory_error();} region->region = region27943; region_size27943 = region_size; region27943 = region; fp27943 = &((region->data)[0]); ALIGN(fp27943);} t2710 = (struct structure_type24753 *)fp27943; fp27943 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2710->s0 = t2709; t2710->s1.tag = NULL_TYPE; t2694 = f28696(t2710); /* x258506 */ a34309 = t2694; /* x258505 */ /* x258493 */ /* x258487 */ /* x258486 */ t2704 = a34309; /* x266495 */ if (!(t2704==EOF_OBJECT_TYPE)) goto l771; /* x258490 */ /* x258489 */ t2705 = "EOF while reading decimal number"; /* x266494 */ stalin_panic(t2705); goto l772; l771: /* x258492 */ /* x258491 */ l772: /* x258504 */ /* x258498 */ /* x258497 */ /* x258496 */ t2706 = a34309; /* x258495 */ t2707.tag = t2706; if (!(f27405(t2707)==FALSE_TYPE)) goto l774; /* x258501 */ /* x258500 */ t2708 = "Unfinished decimal number"; /* x266492 */ stalin_panic(t2708); goto l775; l774: /* x258503 */ /* x258502 */ l775: /* x258484 */ /* x258483 */ /* x258481 */ /* x258479 */ /* x258475 */ /* x258474 */ t2702 = a34309; /* x266497 */ if (!(t2702>2))); /* x258478 */ /* x258477 */ t2703 = '0'; /* x266496 */ t2701 = (int)((unsigned char)t2703); /* x266498 */ t2698 = t2700-t2701; /* x258480 */ t2699 = 1.0e1; /* x266499 */ t2695 = t2698/t2699; /* x258482 */ t2696 = 1.0e2; /* x258470 */ t2697 = f28079(t2695, t2696); r27815.tag = FLONUM_TYPE; r27815.value.flonum_type = t2697; return r27815; l767: /* x258533 */ /* x258515 */ /* x258514 */ t2685 = a34297; /* x258513 */ t2686.tag = t2685; if (f27405(t2686)==FALSE_TYPE) goto l769; /* x258527 */ /* x258526 */ /* x258525 */ /* x258524 */ /* x258520 */ /* x258519 */ t2692 = a34297; /* x266490 */ if (!(t2692>2))); /* x258523 */ /* x258522 */ t2693 = '0'; /* x266489 */ t2691 = (int)((unsigned char)t2693); /* x266491 */ t2688 = t2690-t2691; /* x258516 */ t2689 = f28111(t2688); return *((struct w49 *)(&t2689)); l769: /* x258532 */ /* x258531 */ /* x258530 */ /* x258529 */ t2687 = "Unfinished decimal number"; /* x266488 */ stalin_panic(t2687); l702: /* x258934 */ /* x258567 */ /* x258566 */ /* x258565 */ t2473 = 'x'; /* x258564 */ t2472 = a34274; /* x258563 */ t2474.tag = t2472; t2475 = t2473; if (!(f27342(t2474, t2475)==FALSE_TYPE)) goto l704; /* x258560 */ /* x258559 */ t2477 = 'X'; /* x258558 */ t2476 = a34274; /* x258557 */ t2478.tag = t2476; t2479 = t2477; if (f27342(t2478, t2479)==FALSE_TYPE) goto l705; l704: /* x258856 */ /* x258855 */ while (region27952!=((struct region27952 *)(&initial_region27952))) {struct region27952 *region; region = region27952; region27952 = region27952->region; GC_free(region);} region_size27952 = REGION_SIZE27952; fp27952 = &((region27952->data)[0]); ALIGN(fp27952); /* x258854 */ /* x258853 */ /* x258852 */ t2670 = a34225; /* x258851 */ if ((fp27952+sizeof(struct structure_type24753))>(&((region27952->data)[region_size27952]))) {struct region27952 *region; unsigned region_size = REGION_SIZE27952; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region27952 *)GC_malloc_uncollectable(sizeof(struct region27952)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ 27952]"); out_of_memory_error();} region->region = region27952; region_size27952 = region_size; region27952 = region; fp27952 = &((region->data)[0]); ALIGN(fp27952);} t2671 = (struct structure_type24753 *)fp27952; fp27952 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2671->s0 = t2670; t2671->s1.tag = NULL_TYPE; t2526 = f28696(t2671); /* x258850 */ a34313 = t2526; /* x258849 */ /* x258848 */ /* x258842 */ /* x258841 */ t2668 = a34313; /* x266442 */ if (!(t2668==EOF_OBJECT_TYPE)) goto l760; /* x258845 */ /* x258844 */ t2669 = "EOF while reading hexadecimal number"; /* x266441 */ stalin_panic(t2669); goto l761; l760: /* x258847 */ /* x258846 */ l761: /* x258839 */ /* x258838 */ /* x258570 */ /* x258569 */ t2527 = a34313; /* x258568 */ t2528.tag = t2527; if (f27405(t2528)==FALSE_TYPE) goto l726; /* x258582 */ /* x258581 */ /* x258580 */ /* x258579 */ /* x258575 */ /* x258574 */ t2666 = a34313; /* x266484 */ if (!(t2666>2))); /* x258578 */ /* x258577 */ t2667 = '0'; /* x266483 */ t2665 = (int)((unsigned char)t2667); /* x266485 */ t2662 = t2664-t2665; /* x258571 */ t2663 = f28069(t2662); r27815.tag = FIXNUM_TYPE; r27815.value.fixnum_type = t2663; return r27815; l726: /* x258837 */ /* x258592 */ /* x258586 */ /* x258585 */ t2530 = 'a'; /* x258584 */ t2529 = a34313; /* x258583 */ t2531 = t2529; t2532 = t2530; if (f27366(t2531, t2532)==FALSE_TYPE) goto l728; /* x258590 */ /* x258589 */ t2534 = 'f'; /* x258588 */ t2533 = a34313; /* x258587 */ t2535 = t2533; t2536 = t2534; if (f27360(t2535, t2536)==FALSE_TYPE) goto l728; /* x258607 */ /* x258606 */ /* x258605 */ /* x258604 */ /* x258602 */ /* x258598 */ /* x258597 */ t2660 = a34313; /* x266480 */ if (!(t2660>2))); /* x258601 */ /* x258600 */ t2661 = 'a'; /* x266479 */ t2659 = (int)((unsigned char)t2661); /* x266481 */ t2656 = t2658-t2659; /* x258603 */ t2657 = 10; /* x266482 */ t2654 = t2656+t2657; /* x258593 */ t2655 = f28069(t2654); r27815.tag = FIXNUM_TYPE; r27815.value.fixnum_type = t2655; return r27815; l728: /* x258836 */ /* x258617 */ /* x258611 */ /* x258610 */ t2538 = 'A'; /* x258609 */ t2537 = a34313; /* x258608 */ t2539 = t2537; t2540 = t2538; if (f27366(t2539, t2540)==FALSE_TYPE) goto l731; /* x258615 */ /* x258614 */ t2542 = 'F'; /* x258613 */ t2541 = a34313; /* x258612 */ t2543 = t2541; t2544 = t2542; if (f27360(t2543, t2544)==FALSE_TYPE) goto l731; /* x258632 */ /* x258631 */ /* x258630 */ /* x258629 */ /* x258627 */ /* x258623 */ /* x258622 */ t2652 = a34313; /* x266476 */ if (!(t2652>2))); /* x258626 */ /* x258625 */ t2653 = 'A'; /* x266475 */ t2651 = (int)((unsigned char)t2653); /* x266477 */ t2648 = t2650-t2651; /* x258628 */ t2649 = 10; /* x266478 */ t2646 = t2648+t2649; /* x258618 */ t2647 = f28069(t2646); r27815.tag = FIXNUM_TYPE; r27815.value.fixnum_type = t2647; return r27815; l731: /* x258835 */ /* x258636 */ /* x258635 */ t2546 = '+'; /* x258634 */ t2545 = a34313; /* x258633 */ t2547.tag = t2545; t2548 = t2546; if (f27342(t2547, t2548)==FALSE_TYPE) goto l734; /* x258727 */ /* x258726 */ while (region27958!=((struct region27958 *)(&initial_region27958))) {struct region27958 *region; region = region27958; region27958 = region27958->region; GC_free(region);} region_size27958 = REGION_SIZE27958; fp27958 = &((region27958->data)[0]); ALIGN(fp27958); /* x258725 */ /* x258724 */ /* x258723 */ t2644 = a34225; /* x258722 */ if ((fp27958+sizeof(struct structure_type24753))>(&((region27958->data)[region_size27958]))) {struct region27958 *region; unsigned region_size = REGION_SIZE27958; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region27958 *)GC_malloc_uncollectable(sizeof(struct region27958)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ 27958]"); out_of_memory_error();} region->region = region27958; region_size27958 = region_size; region27958 = region; fp27958 = &((region->data)[0]); ALIGN(fp27958);} t2645 = (struct structure_type24753 *)fp27958; fp27958 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2645->s0 = t2644; t2645->s1.tag = NULL_TYPE; t2600 = f28696(t2645); /* x258721 */ a34315 = t2600; /* x258720 */ /* x258719 */ /* x258713 */ /* x258712 */ t2642 = a34315; /* x266462 */ if (!(t2642==EOF_OBJECT_TYPE)) goto l757; /* x258716 */ /* x258715 */ t2643 = "EOF while reading hexadecimal number"; /* x266461 */ stalin_panic(t2643); goto l758; l757: /* x258718 */ /* x258717 */ l758: /* x258710 */ /* x258709 */ /* x258639 */ /* x258638 */ t2601 = a34315; /* x258637 */ t2602.tag = t2601; if (f27405(t2602)==FALSE_TYPE) goto l749; /* x258651 */ /* x258650 */ /* x258649 */ /* x258648 */ /* x258644 */ /* x258643 */ t2640 = a34315; /* x266473 */ if (!(t2640>2))); /* x258647 */ /* x258646 */ t2641 = '0'; /* x266472 */ t2639 = (int)((unsigned char)t2641); /* x266474 */ t2636 = t2638-t2639; /* x258640 */ t2637 = f28069(t2636); r27815.tag = FIXNUM_TYPE; r27815.value.fixnum_type = t2637; return r27815; l749: /* x258708 */ /* x258661 */ /* x258655 */ /* x258654 */ t2604 = 'a'; /* x258653 */ t2603 = a34315; /* x258652 */ t2605 = t2603; t2606 = t2604; if (f27366(t2605, t2606)==FALSE_TYPE) goto l751; /* x258659 */ /* x258658 */ t2608 = 'f'; /* x258657 */ t2607 = a34315; /* x258656 */ t2609 = t2607; t2610 = t2608; if (f27360(t2609, t2610)==FALSE_TYPE) goto l751; /* x258676 */ /* x258675 */ /* x258674 */ /* x258673 */ /* x258671 */ /* x258667 */ /* x258666 */ t2634 = a34315; /* x266469 */ if (!(t2634>2))); /* x258670 */ /* x258669 */ t2635 = 'a'; /* x266468 */ t2633 = (int)((unsigned char)t2635); /* x266470 */ t2630 = t2632-t2633; /* x258672 */ t2631 = 10; /* x266471 */ t2628 = t2630+t2631; /* x258662 */ t2629 = f28069(t2628); r27815.tag = FIXNUM_TYPE; r27815.value.fixnum_type = t2629; return r27815; l751: /* x258707 */ /* x258686 */ /* x258680 */ /* x258679 */ t2612 = 'A'; /* x258678 */ t2611 = a34315; /* x258677 */ t2613 = t2611; t2614 = t2612; if (f27366(t2613, t2614)==FALSE_TYPE) goto l754; /* x258684 */ /* x258683 */ t2616 = 'F'; /* x258682 */ t2615 = a34315; /* x258681 */ t2617 = t2615; t2618 = t2616; if (f27360(t2617, t2618)==FALSE_TYPE) goto l754; /* x258701 */ /* x258700 */ /* x258699 */ /* x258698 */ /* x258696 */ /* x258692 */ /* x258691 */ t2626 = a34315; /* x266465 */ if (!(t2626>2))); /* x258695 */ /* x258694 */ t2627 = 'A'; /* x266464 */ t2625 = (int)((unsigned char)t2627); /* x266466 */ t2622 = t2624-t2625; /* x258697 */ t2623 = 10; /* x266467 */ t2620 = t2622+t2623; /* x258687 */ t2621 = f28069(t2620); r27815.tag = FIXNUM_TYPE; r27815.value.fixnum_type = t2621; return r27815; l754: /* x258706 */ /* x258705 */ /* x258704 */ /* x258703 */ t2619 = "Unfinished hexadecimal number"; /* x266463 */ stalin_panic(t2619); l734: /* x258834 */ /* x258731 */ /* x258730 */ t2550 = '-'; /* x258729 */ t2549 = a34313; /* x258728 */ t2551.tag = t2549; t2552 = t2550; if (f27342(t2551, t2552)==FALSE_TYPE) goto l736; /* x258828 */ /* x258827 */ while (region27966!=((struct region27966 *)(&initial_region27966))) {struct region27966 *region; region = region27966; region27966 = region27966->region; GC_free(region);} region_size27966 = REGION_SIZE27966; fp27966 = &((region27966->data)[0]); ALIGN(fp27966); /* x258826 */ /* x258825 */ /* x258824 */ t2598 = a34225; /* x258823 */ if ((fp27966+sizeof(struct structure_type24753))>(&((region27966->data)[region_size27966]))) {struct region27966 *region; unsigned region_size = REGION_SIZE27966; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region27966 *)GC_malloc_uncollectable(sizeof(struct region27966)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ 27966]"); out_of_memory_error();} region->region = region27966; region_size27966 = region_size; region27966 = region; fp27966 = &((region->data)[0]); ALIGN(fp27966);} t2599 = (struct structure_type24753 *)fp27966; fp27966 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2599->s0 = t2598; t2599->s1.tag = NULL_TYPE; t2554 = f28696(t2599); /* x258822 */ a34317 = t2554; /* x258821 */ /* x258820 */ /* x258814 */ /* x258813 */ t2596 = a34317; /* x266445 */ if (!(t2596==EOF_OBJECT_TYPE)) goto l746; /* x258817 */ /* x258816 */ t2597 = "EOF while reading hexadecimal number"; /* x266444 */ stalin_panic(t2597); goto l747; l746: /* x258819 */ /* x258818 */ l747: /* x258811 */ /* x258810 */ /* x258734 */ /* x258733 */ t2555 = a34317; /* x258732 */ t2556.tag = t2555; if (f27405(t2556)==FALSE_TYPE) goto l738; /* x258748 */ /* x258747 */ /* x258746 */ /* x258745 */ /* x258744 */ /* x258740 */ /* x258739 */ t2594 = a34317; /* x266458 */ if (!(t2594>2))); /* x258743 */ /* x258742 */ t2595 = '0'; /* x266457 */ t2593 = (int)((unsigned char)t2595); /* x266459 */ t2591 = t2592-t2593; /* x258736 */ t2590 = f28069(t2591); /* x266460 */ r27815.tag = FIXNUM_TYPE; r27815.value.fixnum_type = -t2590; return r27815; l738: /* x258809 */ /* x258758 */ /* x258752 */ /* x258751 */ t2558 = 'a'; /* x258750 */ t2557 = a34317; /* x258749 */ t2559 = t2557; t2560 = t2558; if (f27366(t2559, t2560)==FALSE_TYPE) goto l740; /* x258756 */ /* x258755 */ t2562 = 'f'; /* x258754 */ t2561 = a34317; /* x258753 */ t2563 = t2561; t2564 = t2562; if (f27360(t2563, t2564)==FALSE_TYPE) goto l740; /* x258775 */ /* x258774 */ /* x258773 */ /* x258772 */ /* x258771 */ /* x258769 */ /* x258765 */ /* x258764 */ t2588 = a34317; /* x266453 */ if (!(t2588>2))); /* x258768 */ /* x258767 */ t2589 = 'a'; /* x266452 */ t2587 = (int)((unsigned char)t2589); /* x266454 */ t2584 = t2586-t2587; /* x258770 */ t2585 = 10; /* x266455 */ t2583 = t2584+t2585; /* x258760 */ t2582 = f28069(t2583); /* x266456 */ r27815.tag = FIXNUM_TYPE; r27815.value.fixnum_type = -t2582; return r27815; l740: /* x258808 */ /* x258785 */ /* x258779 */ /* x258778 */ t2566 = 'A'; /* x258777 */ t2565 = a34317; /* x258776 */ t2567 = t2565; t2568 = t2566; if (f27366(t2567, t2568)==FALSE_TYPE) goto l743; /* x258783 */ /* x258782 */ t2570 = 'F'; /* x258781 */ t2569 = a34317; /* x258780 */ t2571 = t2569; t2572 = t2570; if (f27360(t2571, t2572)==FALSE_TYPE) goto l743; /* x258802 */ /* x258801 */ /* x258800 */ /* x258799 */ /* x258798 */ /* x258796 */ /* x258792 */ /* x258791 */ t2580 = a34317; /* x266448 */ if (!(t2580>2))); /* x258795 */ /* x258794 */ t2581 = 'A'; /* x266447 */ t2579 = (int)((unsigned char)t2581); /* x266449 */ t2576 = t2578-t2579; /* x258797 */ t2577 = 10; /* x266450 */ t2575 = t2576+t2577; /* x258787 */ t2574 = f28069(t2575); /* x266451 */ r27815.tag = FIXNUM_TYPE; r27815.value.fixnum_type = -t2574; return r27815; l743: /* x258807 */ /* x258806 */ /* x258805 */ /* x258804 */ t2573 = "Unfinished hexadecimal number"; /* x266446 */ stalin_panic(t2573); l736: /* x258833 */ /* x258832 */ /* x258831 */ /* x258830 */ t2553 = "Unfinished hexadecimal number"; /* x266443 */ stalin_panic(t2553); l705: /* x258933 */ /* x258860 */ /* x258859 */ t2481 = '('; /* x258858 */ t2480 = a34274; /* x258857 */ t2482.tag = t2480; t2483 = t2481; if (f27342(t2482, t2483)==FALSE_TYPE) goto l708; /* x258894 */ /* x258893 */ /* x258892 */ /* x258891 */ /* x258890 */ /* x258889 */ /* x258888 */ /* x258887 */ /* x258886 */ /* x258885 */ /* x258884 */ /* x258862 */ /* x258861 */ a34321 = (struct structure_type24753 *)NULL_TYPE; h27979: /* x258883 */ /* x258882 */ /* x258881 */ t2525 = q6; /* x258880 */ t2515 = f27815(t2525); /* x258879 */ a34322 = t2515; /* x258878 */ /* x258866 */ /* x258864 */ t2516 = a34322; /* x258865 */ t2517 = a34227; /* x266440 */ if (!(((t2516.tag)==EXTERNAL_SYMBOL_TYPE)&&((t2516.value.external_symbol_type)==t2517))) goto l724; /* x258871 */ /* x258870 */ /* x258869 */ t2524 = a34321; /* x258868 */ t2521 = f26326(t2524); /* x258867 */ /* MOVE: branching squeezed to general */ if (t2521>=((struct structure_type24753 *)VALUE_OFFSET)) {t2522.tag = STRUCTURE_TYPE24753; t2522.value.structure_type24753 = t2521;} else t2522.tag = (unsigned)t2521; t2523 = f27650(t2522); r27815.tag = HEADED_VECTOR_TYPE27896; r27815.value.headed_vector_type27896 = t2523; return r27815; l724: /* x258877 */ /* x258876 */ /* x258874 */ t2519 = a34322; /* x258875 */ t2520 = a34321; /* x266439 */ t2518 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2518==NULL) {backtrace_internal("[inside LOOP 27980]"); out_of_memory_error();} t2518->s0 = t2519; /* MOVE: branching squeezed to general */ if (t2520>=((struct structure_type24753 *)VALUE_OFFSET)) {t2518->s1.tag = STRUCTURE_TYPE24753; t2518->s1.value.structure_type24753 = t2520;} else t2518->s1.tag = (unsigned)t2520; /* x258872 */ a34321 = t2518; goto h27979; l708: /* x258932 */ /* x258898 */ /* x258897 */ t2485 = '\\'; /* x258896 */ t2484 = a34274; /* x258895 */ t2486.tag = t2484; t2487 = t2485; if (f27342(t2486, t2487)==FALSE_TYPE) goto l710; /* x258926 */ /* x258925 */ /* x258924 */ /* x258923 */ /* x258922 */ t2513 = a34225; /* x258921 */ t2514 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2514==NULL) {backtrace_internal("[inside READ 27982]"); out_of_memory_error();} t2514->s0 = t2513; t2514->s1.tag = NULL_TYPE; t2489 = f28696(t2514); /* x258920 */ a34323 = t2489; /* x258919 */ /* x258918 */ /* x258912 */ /* x258911 */ t2511 = a34323; /* x266438 */ if (!(t2511==EOF_OBJECT_TYPE)) goto l721; /* x258915 */ /* x258914 */ t2512 = "EOF while reading character constant"; /* x266437 */ stalin_panic(t2512); goto l722; l721: /* x258917 */ /* x258916 */ l722: /* x258909 */ /* x258908 */ /* x258901 */ /* x258900 */ t2490 = a34323; /* x258899 */ if (f27403(t2490)==FALSE_TYPE) goto l712; /* x258906 */ /* x258905 */ /* x258904 */ t2510 = a34323; /* x258903 */ a35270 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35270==NULL) {backtrace_internal("[inside READ 27984]"); out_of_memory_error();} a35270->s0.tag = t2510; a35270->s1.tag = NULL_TYPE; /* x272547 */ t2491 = a35270; /* x258902 */ a34442 = t2491; h28183: /* x260712 */ /* x260711 */ /* x260710 */ t2508 = a34225; /* x260709 */ t2509 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2509==NULL) {backtrace_internal("READ-CHARACTER-NAME[28183]"); out_of_memory_error();} t2509->s0 = t2508; t2509->s1.tag = NULL_TYPE; t2492 = f28700(t2509); /* x260708 */ a34443 = t2492; /* x260707 */ /* x260663 */ /* x260662 */ t2493 = a34443; /* x266273 */ if (!(t2493==EOF_OBJECT_TYPE)) goto l714; /* x260668 */ /* x260667 */ /* x260666 */ /* x260665 */ t2507 = a34442; /* x260664 */ return f28171(t2507); l714: /* x260706 */ /* x260671 */ /* x260670 */ t2494 = (char)(a34443>>2); /* x260669 */ t2495 = ((unsigned)((unsigned char)t2494))<<2; if (f27403(t2495)==FALSE_TYPE) goto l716; /* x260684 */ /* x260683 */ /* x260682 */ /* x260681 */ /* x260680 */ t2505 = a34225; /* x260679 */ t2506 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2506==NULL) {backtrace_internal("[inside READ-CHARACTER-NAME 28186]"); out_of_memory_error();} t2506->s0 = t2505; t2506->s1.tag = NULL_TYPE; f28696(t2506); /* x260678 */ /* x260677 */ /* x260676 */ /* x260674 */ t2503 = (char)(a34443>>2); /* x260675 */ t2504 = a34442; /* x266272 */ t2502 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2502==NULL) {backtrace_internal("[inside READ-CHARACTER-NAME 28187]"); out_of_memory_error();} t2502->s0.tag = ((unsigned)((unsigned char)t2503))<<2; t2502->s1.tag = STRUCTURE_TYPE24753; t2502->s1.value.structure_type24753 = t2504; /* x260672 */ a34442 = t2502; goto h28183; l716: /* x260705 */ /* x260704 */ /* x260703 */ /* x260696 */ /* x260689 */ /* x260688 */ /* x260687 */ t2496 = a34442; /* x266270 */ /* x260694 */ /* x260693 */ /* x260692 */ t2498 = a34442; /* x266268 */ t2497 = t2498->s1; /* x266269 */ if (!((t2497.tag)==NULL_TYPE)) goto l718; /* x260699 */ /* x260698 */ t2500 = a34442; /* x266267 */ return t2500->s0; l718: /* x260702 */ /* x260701 */ t2499 = a34442; /* x260700 */ return f28171(t2499); l712: /* x258907 */ r27815.tag = a34323; return r27815; l710: /* x258931 */ /* x258930 */ /* x258929 */ /* x258928 */ t2488 = "Improper character after sharp sign"; /* x266436 */ stalin_panic(t2488); l629: /* x259440 */ /* x258961 */ /* x258960 */ t2193 = '\"'; /* x258959 */ t2192 = (char)(a34254>>2); /* x258958 */ t2194.tag = ((unsigned)((unsigned char)t2192))<<2; t2195 = t2193; if (f27342(t2194, t2195)==FALSE_TYPE) goto l631; /* x259039 */ /* x259038 */ /* x259037 */ /* x259036 */ /* x259035 */ /* x259034 */ /* x259033 */ /* x259032 */ /* x259031 */ /* x259030 */ /* x259029 */ /* x258963 */ /* x258962 */ a34327 = (struct structure_type24753 *)NULL_TYPE; while (region27991!=((struct region27991 *)(&initial_region27991))) {struct region27991 *region; region = region27991; region27991 = region27991->region; GC_free(region);} region_size27991 = REGION_SIZE27991; fp27991 = &((region27991->data)[0]); ALIGN(fp27991); h27991: /* x259028 */ /* x259027 */ /* x259026 */ t2429 = a34225; /* x259025 */ t2430 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t2430==NULL) {backtrace_internal("LOOP[27991]"); out_of_memory_error();} t2430->s0 = t2429; t2430->s1.tag = NULL_TYPE; t2403 = f28696(t2430); /* x259024 */ a34328 = t2403; /* x259023 */ /* x259022 */ /* x259016 */ /* x259015 */ t2427 = a34328; /* x266429 */ if (!(t2427==EOF_OBJECT_TYPE)) goto l687; /* x259019 */ /* x259018 */ t2428 = "EOF while reading string"; /* x266428 */ stalin_panic(t2428); goto l688; l687: /* x259021 */ /* x259020 */ l688: /* x259013 */ /* x259012 */ /* x258967 */ /* x258966 */ t2405 = '\\'; /* x258965 */ t2404 = a34328; /* x258964 */ t2406.tag = t2404; t2407 = t2405; if (f27342(t2406, t2407)==FALSE_TYPE) goto l680; /* x258991 */ /* x258990 */ /* x258989 */ /* x258988 */ /* x258987 */ t2425 = a34225; /* x258986 */ if ((fp27991+sizeof(struct structure_type24753))>(&((region27991->data)[region_size27991]))) {struct region27991 *region; unsigned region_size = REGION_SIZE27991; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region27991 *)GC_malloc_uncollectable(sizeof(struct region27991)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside LOOP 27994]"); out_of_memory_error();} region->region = region27991; region_size27991 = region_size; region27991 = region; fp27991 = &((region->data)[0]); ALIGN(fp27991);} t2426 = (struct structure_type24753 *)fp27991; fp27991 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2426->s0 = t2425; t2426->s1.tag = NULL_TYPE; t2419 = f28696(t2426); /* x258985 */ a34330 = t2419; /* x258984 */ /* x258983 */ /* x258977 */ /* x258976 */ t2423 = a34330; /* x266432 */ if (!(t2423==EOF_OBJECT_TYPE)) goto l684; /* x258980 */ /* x258979 */ t2424 = "EOF after backslash in string"; /* x266431 */ stalin_panic(t2424); goto l685; l684: /* x258982 */ /* x258981 */ l685: /* x258974 */ /* x258973 */ /* x258972 */ /* x258970 */ t2421 = a34330; /* x258971 */ t2422 = a34327; /* x266433 */ if ((fp27991+sizeof(struct structure_type24753))>(&((region27991->data)[region_size27991]))) {struct region27991 *region; unsigned region_size = REGION_SIZE27991; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region27991 *)GC_malloc_uncollectable(sizeof(struct region27991)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside LOOP 27996]"); out_of_memory_error();} region->region = region27991; region_size27991 = region_size; region27991 = region; fp27991 = &((region->data)[0]); ALIGN(fp27991);} t2420 = (struct structure_type24753 *)fp27991; fp27991 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2420->s0.tag = t2421; /* MOVE: branching squeezed to general */ if (t2422>=((struct structure_type24753 *)VALUE_OFFSET)) {t2420->s1.tag = STRUCTURE_TYPE24753; t2420->s1.value.structure_type24753 = t2422;} else t2420->s1.tag = (unsigned)t2422; /* x258968 */ a34327 = t2420; goto h27991; l680: /* x259011 */ /* x258995 */ /* x258994 */ t2409 = '\"'; /* x258993 */ t2408 = a34328; /* x258992 */ t2410.tag = t2408; t2411 = t2409; if (f27342(t2410, t2411)==FALSE_TYPE) goto l682; /* x259002 */ /* x259001 */ /* x259000 */ /* x258999 */ /* x258998 */ t2418 = a34327; /* x258997 */ t2415 = f26326(t2418); /* x258996 */ /* MOVE: branching squeezed to general */ if (t2415>=((struct structure_type24753 *)VALUE_OFFSET)) {t2416.tag = STRUCTURE_TYPE24753; t2416.value.structure_type24753 = t2415;} else t2416.tag = (unsigned)t2415; t2417 = f27585(t2416); r27815.tag = STRING_TYPE; r27815.value.string_type = t2417; return r27815; l682: /* x259010 */ /* x259009 */ /* x259008 */ /* x259007 */ /* x259005 */ t2413 = a34328; /* x259006 */ t2414 = a34327; /* x266430 */ if ((fp27991+sizeof(struct structure_type24753))>(&((region27991->data)[region_size27991]))) {struct region27991 *region; unsigned region_size = REGION_SIZE27991; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region27991 *)GC_malloc_uncollectable(sizeof(struct region27991)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside LOOP 27999]"); out_of_memory_error();} region->region = region27991; region_size27991 = region_size; region27991 = region; fp27991 = &((region->data)[0]); ALIGN(fp27991);} t2412 = (struct structure_type24753 *)fp27991; fp27991 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2412->s0.tag = t2413; /* MOVE: branching squeezed to general */ if (t2414>=((struct structure_type24753 *)VALUE_OFFSET)) {t2412->s1.tag = STRUCTURE_TYPE24753; t2412->s1.value.structure_type24753 = t2414;} else t2412->s1.tag = (unsigned)t2414; /* x259003 */ a34327 = t2412; goto h27991; l631: /* x259439 */ /* x259043 */ /* x259042 */ t2197 = '+'; /* x259041 */ t2196 = (char)(a34254>>2); /* x259040 */ t2198.tag = ((unsigned)((unsigned char)t2196))<<2; t2199 = t2197; if (f27342(t2198, t2199)==FALSE_TYPE) goto l633; /* x259178 */ /* x259177 */ /* x259176 */ /* x259175 */ /* x259174 */ t2401 = a34225; /* x259173 */ t2402 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2402==NULL) {backtrace_internal("[inside READ 28002]"); out_of_memory_error();} t2402->s0 = t2401; t2402->s1.tag = NULL_TYPE; t2331 = f28700(t2402); /* x259172 */ a34332 = t2331; /* x259171 */ /* x259046 */ /* x259045 */ t2332 = a34332; /* x266427 */ if (!(t2332==EOF_OBJECT_TYPE)) goto l666; /* x259049 */ /* x259048 */ /* x259047 */ r27815.tag = EXTERNAL_SYMBOL_TYPE; r27815.value.external_symbol_type = q4; return r27815; l666: /* x259170 */ /* x259052 */ /* x259051 */ t2333 = (char)(a34332>>2); /* x259050 */ t2334.tag = ((unsigned)((unsigned char)t2333))<<2; if (f27405(t2334)==FALSE_TYPE) goto l668; /* x259069 */ /* x259068 */ while (region28005!=((struct region28005 *)(&initial_region28005))) {struct region28005 *region; region = region28005; region28005 = region28005->region; GC_free(region);} region_size28005 = REGION_SIZE28005; fp28005 = &((region28005->data)[0]); ALIGN(fp28005); /* x259067 */ /* x259066 */ /* x259065 */ t2399 = a34225; /* x259064 */ if ((fp28005+sizeof(struct structure_type24753))>(&((region28005->data)[region_size28005]))) {struct region28005 *region; unsigned region_size = REGION_SIZE28005; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28005 *)GC_malloc_uncollectable(sizeof(struct region28005)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ 28005]"); out_of_memory_error();} region->region = region28005; region_size28005 = region_size; region28005 = region; fp28005 = &((region->data)[0]); ALIGN(fp28005);} t2400 = (struct structure_type24753 *)fp28005; fp28005 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2400->s0 = t2399; t2400->s1.tag = NULL_TYPE; f28696(t2400); /* x259063 */ /* x259062 */ /* x259061 */ /* x259057 */ /* x259056 */ t2397 = (char)(a34332>>2); /* x266425 */ t2395 = (int)((unsigned char)t2397); /* x259060 */ /* x259059 */ t2398 = '0'; /* x266424 */ t2396 = (int)((unsigned char)t2398); /* x266426 */ t2393 = t2395-t2396; /* x259053 */ t2394 = f28111(t2393); return *((struct w49 *)(&t2394)); l668: /* x259169 */ /* x259073 */ /* x259072 */ t2336 = '.'; /* x259071 */ t2335 = (char)(a34332>>2); /* x259070 */ t2337.tag = ((unsigned)((unsigned char)t2335))<<2; t2338 = t2336; if (f27342(t2337, t2338)==FALSE_TYPE) goto l670; /* x259144 */ /* x259143 */ /* x259142 */ /* x259141 */ /* x259140 */ t2390 = a34225; /* x259139 */ t2391 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2391==NULL) {backtrace_internal("[inside READ 28007]"); out_of_memory_error();} t2391->s0 = t2390; t2391->s1.tag = NULL_TYPE; f28696(t2391); /* x259138 */ /* x259137 */ /* x259136 */ /* x259135 */ t2388 = a34225; /* x259134 */ t2389 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2389==NULL) {backtrace_internal("[inside READ 28008]"); out_of_memory_error();} t2389->s0 = t2388; t2389->s1.tag = NULL_TYPE; t2354 = f28700(t2389); /* x259133 */ a34335 = t2354; /* x259132 */ /* x259076 */ /* x259075 */ t2355 = a34335; /* x266423 */ if (!(t2355==EOF_OBJECT_TYPE)) goto l674; /* x259079 */ /* x259078 */ /* x259077 */ r27815.tag = EXTERNAL_SYMBOL_TYPE; r27815.value.external_symbol_type = q5; return r27815; l674: /* x259131 */ /* x259082 */ /* x259081 */ t2356 = (char)(a34335>>2); /* x259080 */ t2357.tag = ((unsigned)((unsigned char)t2356))<<2; if (f27405(t2357)==FALSE_TYPE) goto l676; /* x259103 */ /* x259102 */ while (region28011!=((struct region28011 *)(&initial_region28011))) {struct region28011 *region; region = region28011; region28011 = region28011->region; GC_free(region);} region_size28011 = REGION_SIZE28011; fp28011 = &((region28011->data)[0]); ALIGN(fp28011); /* x259101 */ /* x259100 */ /* x259099 */ t2386 = a34225; /* x259098 */ if ((fp28011+sizeof(struct structure_type24753))>(&((region28011->data)[region_size28011]))) {struct region28011 *region; unsigned region_size = REGION_SIZE28011; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28011 *)GC_malloc_uncollectable(sizeof(struct region28011)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ 28011]"); out_of_memory_error();} region->region = region28011; region_size28011 = region_size; region28011 = region; fp28011 = &((region->data)[0]); ALIGN(fp28011);} t2387 = (struct structure_type24753 *)fp28011; fp28011 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2387->s0 = t2386; t2387->s1.tag = NULL_TYPE; f28696(t2387); /* x259097 */ /* x259096 */ /* x259094 */ /* x259092 */ /* x259088 */ /* x259087 */ t2384 = (char)(a34335>>2); /* x266420 */ t2382 = (int)((unsigned char)t2384); /* x259091 */ /* x259090 */ t2385 = '0'; /* x266419 */ t2383 = (int)((unsigned char)t2385); /* x266421 */ t2380 = t2382-t2383; /* x259093 */ t2381 = 1.0e1; /* x266422 */ t2377 = t2380/t2381; /* x259095 */ t2378 = 1.0e2; /* x259083 */ t2379 = f28079(t2377, t2378); r27815.tag = FLONUM_TYPE; r27815.value.flonum_type = t2379; return r27815; l676: /* x259130 */ /* x259106 */ /* x259105 */ t2358 = (char)(a34335>>2); /* x259104 */ t2359 = ((unsigned)((unsigned char)t2358))<<2; if (f28160(t2359)==FALSE_TYPE) goto l678; /* x259126 */ /* x259125 */ /* x259124 */ /* x259123 */ /* x259122 */ t2374 = a34225; /* x259121 */ t2375 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2375==NULL) {backtrace_internal("[inside READ 28013]"); out_of_memory_error();} t2375->s0 = t2374; t2375->s1.tag = NULL_TYPE; f28696(t2375); /* x259120 */ /* x259119 */ /* x259118 */ /* x259117 */ /* x259116 */ t2372 = (char)(a34254>>2); /* x259115 */ t2373.tag = ((unsigned)((unsigned char)t2372))<<2; t2365 = f27415(t2373); /* x259114 */ /* x259113 */ t2370 = (char)(a34332>>2); /* x259112 */ t2371.tag = ((unsigned)((unsigned char)t2370))<<2; t2364 = f27415(t2371); /* x259111 */ /* x259110 */ t2368 = (char)(a34335>>2); /* x259109 */ t2369.tag = ((unsigned)((unsigned char)t2368))<<2; t2363 = f27415(t2369); /* x259108 */ t2367.tag = STRUCTURE_TYPE24753; t2367.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t2367.value.structure_type24753)==NULL) {backtrace_internal("[inside READ 28014]"); out_of_memory_error();} t2367.value.structure_type24753->s0.tag = ((unsigned)((unsigned char)t2365))<<2; t2367.value.structure_type24753->s1.tag = NULL_TYPE; t2366.tag = STRUCTURE_TYPE24753; t2366.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t2366.value.structure_type24753)==NULL) {backtrace_internal("[inside READ 28014]"); out_of_memory_error();} t2366.value.structure_type24753->s0.tag = ((unsigned)((unsigned char)t2364))<<2; t2366.value.structure_type24753->s1 = t2367; a35271 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35271==NULL) {backtrace_internal("[inside READ 28014]"); out_of_memory_error();} a35271->s0.tag = ((unsigned)((unsigned char)t2363))<<2; a35271->s1 = t2366; /* x272549 */ t2361 = a35271; /* x259107 */ t2362 = f28165(t2361); r27815.tag = EXTERNAL_SYMBOL_TYPE; r27815.value.external_symbol_type = t2362; return r27815; l678: /* x259129 */ /* x259128 */ /* x259127 */ r27815.tag = EXTERNAL_SYMBOL_TYPE; r27815.value.external_symbol_type = q5; return r27815; l670: /* x259168 */ /* x259147 */ /* x259146 */ t2339 = (char)(a34332>>2); /* x259145 */ t2340 = ((unsigned)((unsigned char)t2339))<<2; if (f28160(t2340)==FALSE_TYPE) goto l672; /* x259164 */ /* x259163 */ /* x259162 */ /* x259161 */ /* x259160 */ t2351 = a34225; /* x259159 */ t2352 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2352==NULL) {backtrace_internal("[inside READ 28016]"); out_of_memory_error();} t2352->s0 = t2351; t2352->s1.tag = NULL_TYPE; f28696(t2352); /* x259158 */ /* x259157 */ /* x259156 */ /* x259155 */ /* x259154 */ t2349 = (char)(a34254>>2); /* x259153 */ t2350.tag = ((unsigned)((unsigned char)t2349))<<2; t2345 = f27415(t2350); /* x259152 */ /* x259151 */ t2347 = (char)(a34332>>2); /* x259150 */ t2348.tag = ((unsigned)((unsigned char)t2347))<<2; t2344 = f27415(t2348); /* x259149 */ t2346.tag = STRUCTURE_TYPE24753; t2346.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t2346.value.structure_type24753)==NULL) {backtrace_internal("[inside READ 28017]"); out_of_memory_error();} t2346.value.structure_type24753->s0.tag = ((unsigned)((unsigned char)t2345))<<2; t2346.value.structure_type24753->s1.tag = NULL_TYPE; a35272 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35272==NULL) {backtrace_internal("[inside READ 28017]"); out_of_memory_error();} a35272->s0.tag = ((unsigned)((unsigned char)t2344))<<2; a35272->s1 = t2346; /* x272551 */ t2342 = a35272; /* x259148 */ t2343 = f28165(t2342); r27815.tag = EXTERNAL_SYMBOL_TYPE; r27815.value.external_symbol_type = t2343; return r27815; l672: /* x259167 */ /* x259166 */ /* x259165 */ r27815.tag = EXTERNAL_SYMBOL_TYPE; r27815.value.external_symbol_type = q4; return r27815; l633: /* x259438 */ /* x259182 */ /* x259181 */ t2201 = '-'; /* x259180 */ t2200 = (char)(a34254>>2); /* x259179 */ t2202.tag = ((unsigned)((unsigned char)t2200))<<2; t2203 = t2201; if (f27342(t2202, t2203)==FALSE_TYPE) goto l635; /* x259321 */ /* x259320 */ /* x259319 */ /* x259318 */ /* x259317 */ t2329 = a34225; /* x259316 */ t2330 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2330==NULL) {backtrace_internal("[inside READ 28019]"); out_of_memory_error();} t2330->s0 = t2329; t2330->s1.tag = NULL_TYPE; t2259 = f28700(t2330); /* x259315 */ a34339 = t2259; /* x259314 */ /* x259185 */ /* x259184 */ t2260 = a34339; /* x266418 */ if (!(t2260==EOF_OBJECT_TYPE)) goto l652; /* x259188 */ /* x259187 */ /* x259186 */ r27815.tag = EXTERNAL_SYMBOL_TYPE; r27815.value.external_symbol_type = q2; return r27815; l652: /* x259313 */ /* x259191 */ /* x259190 */ t2261 = (char)(a34339>>2); /* x259189 */ t2262.tag = ((unsigned)((unsigned char)t2261))<<2; if (f27405(t2262)==FALSE_TYPE) goto l654; /* x259210 */ /* x259209 */ while (region28022!=((struct region28022 *)(&initial_region28022))) {struct region28022 *region; region = region28022; region28022 = region28022->region; GC_free(region);} region_size28022 = REGION_SIZE28022; fp28022 = &((region28022->data)[0]); ALIGN(fp28022); /* x259208 */ /* x259207 */ /* x259206 */ t2327 = a34225; /* x259205 */ if ((fp28022+sizeof(struct structure_type24753))>(&((region28022->data)[region_size28022]))) {struct region28022 *region; unsigned region_size = REGION_SIZE28022; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28022 *)GC_malloc_uncollectable(sizeof(struct region28022)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ 28022]"); out_of_memory_error();} region->region = region28022; region_size28022 = region_size; region28022 = region; fp28022 = &((region->data)[0]); ALIGN(fp28022);} t2328 = (struct structure_type24753 *)fp28022; fp28022 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2328->s0 = t2327; t2328->s1.tag = NULL_TYPE; f28696(t2328); /* x259204 */ /* x259203 */ /* x259202 */ /* x259201 */ /* x259197 */ /* x259196 */ t2325 = (char)(a34339>>2); /* x266415 */ t2323 = (int)((unsigned char)t2325); /* x259200 */ /* x259199 */ t2326 = '0'; /* x266414 */ t2324 = (int)((unsigned char)t2326); /* x266416 */ t2322 = t2323-t2324; /* x259193 */ t2321 = f28111(t2322); /* x266417 */ if ((t2321.tag)==FIXNUM_TYPE) {r27815.tag = FIXNUM_TYPE; r27815.value.fixnum_type = -(t2321.value.fixnum_type); return r27815;} r27815.tag = FLONUM_TYPE; r27815.value.flonum_type = -(t2321.value.flonum_type); return r27815; l654: /* x259312 */ /* x259214 */ /* x259213 */ t2264 = '.'; /* x259212 */ t2263 = (char)(a34339>>2); /* x259211 */ t2265.tag = ((unsigned)((unsigned char)t2263))<<2; t2266 = t2264; if (f27342(t2265, t2266)==FALSE_TYPE) goto l656; /* x259287 */ /* x259286 */ /* x259285 */ /* x259284 */ /* x259283 */ t2318 = a34225; /* x259282 */ t2319 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2319==NULL) {backtrace_internal("[inside READ 28024]"); out_of_memory_error();} t2319->s0 = t2318; t2319->s1.tag = NULL_TYPE; f28696(t2319); /* x259281 */ /* x259280 */ /* x259279 */ /* x259278 */ t2316 = a34225; /* x259277 */ t2317 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2317==NULL) {backtrace_internal("[inside READ 28025]"); out_of_memory_error();} t2317->s0 = t2316; t2317->s1.tag = NULL_TYPE; t2282 = f28700(t2317); /* x259276 */ a34342 = t2282; /* x259275 */ /* x259217 */ /* x259216 */ t2283 = a34342; /* x266413 */ if (!(t2283==EOF_OBJECT_TYPE)) goto l660; /* x259220 */ /* x259219 */ /* x259218 */ r27815.tag = EXTERNAL_SYMBOL_TYPE; r27815.value.external_symbol_type = q3; return r27815; l660: /* x259274 */ /* x259223 */ /* x259222 */ t2284 = (char)(a34342>>2); /* x259221 */ t2285.tag = ((unsigned)((unsigned char)t2284))<<2; if (f27405(t2285)==FALSE_TYPE) goto l662; /* x259246 */ /* x259245 */ while (region28028!=((struct region28028 *)(&initial_region28028))) {struct region28028 *region; region = region28028; region28028 = region28028->region; GC_free(region);} region_size28028 = REGION_SIZE28028; fp28028 = &((region28028->data)[0]); ALIGN(fp28028); /* x259244 */ /* x259243 */ /* x259242 */ t2314 = a34225; /* x259241 */ if ((fp28028+sizeof(struct structure_type24753))>(&((region28028->data)[region_size28028]))) {struct region28028 *region; unsigned region_size = REGION_SIZE28028; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28028 *)GC_malloc_uncollectable(sizeof(struct region28028)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ 28028]"); out_of_memory_error();} region->region = region28028; region_size28028 = region_size; region28028 = region; fp28028 = &((region->data)[0]); ALIGN(fp28028);} t2315 = (struct structure_type24753 *)fp28028; fp28028 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2315->s0 = t2314; t2315->s1.tag = NULL_TYPE; f28696(t2315); /* x259240 */ /* x259239 */ /* x259238 */ /* x259236 */ /* x259234 */ /* x259230 */ /* x259229 */ t2312 = (char)(a34342>>2); /* x266409 */ t2310 = (int)((unsigned char)t2312); /* x259233 */ /* x259232 */ t2313 = '0'; /* x266408 */ t2311 = (int)((unsigned char)t2313); /* x266410 */ t2308 = t2310-t2311; /* x259235 */ t2309 = 1.0e1; /* x266411 */ t2306 = t2308/t2309; /* x259237 */ t2307 = 1.0e2; /* x259225 */ t2305 = f28079(t2306, t2307); /* x266412 */ r27815.tag = FLONUM_TYPE; r27815.value.flonum_type = -t2305; return r27815; l662: /* x259273 */ /* x259249 */ /* x259248 */ t2286 = (char)(a34342>>2); /* x259247 */ t2287 = ((unsigned)((unsigned char)t2286))<<2; if (f28160(t2287)==FALSE_TYPE) goto l664; /* x259269 */ /* x259268 */ /* x259267 */ /* x259266 */ /* x259265 */ t2302 = a34225; /* x259264 */ t2303 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2303==NULL) {backtrace_internal("[inside READ 28030]"); out_of_memory_error();} t2303->s0 = t2302; t2303->s1.tag = NULL_TYPE; f28696(t2303); /* x259263 */ /* x259262 */ /* x259261 */ /* x259260 */ /* x259259 */ t2300 = (char)(a34254>>2); /* x259258 */ t2301.tag = ((unsigned)((unsigned char)t2300))<<2; t2293 = f27415(t2301); /* x259257 */ /* x259256 */ t2298 = (char)(a34339>>2); /* x259255 */ t2299.tag = ((unsigned)((unsigned char)t2298))<<2; t2292 = f27415(t2299); /* x259254 */ /* x259253 */ t2296 = (char)(a34342>>2); /* x259252 */ t2297.tag = ((unsigned)((unsigned char)t2296))<<2; t2291 = f27415(t2297); /* x259251 */ t2295.tag = STRUCTURE_TYPE24753; t2295.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t2295.value.structure_type24753)==NULL) {backtrace_internal("[inside READ 28031]"); out_of_memory_error();} t2295.value.structure_type24753->s0.tag = ((unsigned)((unsigned char)t2293))<<2; t2295.value.structure_type24753->s1.tag = NULL_TYPE; t2294.tag = STRUCTURE_TYPE24753; t2294.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t2294.value.structure_type24753)==NULL) {backtrace_internal("[inside READ 28031]"); out_of_memory_error();} t2294.value.structure_type24753->s0.tag = ((unsigned)((unsigned char)t2292))<<2; t2294.value.structure_type24753->s1 = t2295; a35273 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35273==NULL) {backtrace_internal("[inside READ 28031]"); out_of_memory_error();} a35273->s0.tag = ((unsigned)((unsigned char)t2291))<<2; a35273->s1 = t2294; /* x272553 */ t2289 = a35273; /* x259250 */ t2290 = f28165(t2289); r27815.tag = EXTERNAL_SYMBOL_TYPE; r27815.value.external_symbol_type = t2290; return r27815; l664: /* x259272 */ /* x259271 */ /* x259270 */ r27815.tag = EXTERNAL_SYMBOL_TYPE; r27815.value.external_symbol_type = q3; return r27815; l656: /* x259311 */ /* x259290 */ /* x259289 */ t2267 = (char)(a34339>>2); /* x259288 */ t2268 = ((unsigned)((unsigned char)t2267))<<2; if (f28160(t2268)==FALSE_TYPE) goto l658; /* x259307 */ /* x259306 */ /* x259305 */ /* x259304 */ /* x259303 */ t2279 = a34225; /* x259302 */ t2280 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2280==NULL) {backtrace_internal("[inside READ 28033]"); out_of_memory_error();} t2280->s0 = t2279; t2280->s1.tag = NULL_TYPE; f28696(t2280); /* x259301 */ /* x259300 */ /* x259299 */ /* x259298 */ /* x259297 */ t2277 = (char)(a34254>>2); /* x259296 */ t2278.tag = ((unsigned)((unsigned char)t2277))<<2; t2273 = f27415(t2278); /* x259295 */ /* x259294 */ t2275 = (char)(a34339>>2); /* x259293 */ t2276.tag = ((unsigned)((unsigned char)t2275))<<2; t2272 = f27415(t2276); /* x259292 */ t2274.tag = STRUCTURE_TYPE24753; t2274.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t2274.value.structure_type24753)==NULL) {backtrace_internal("[inside READ 28034]"); out_of_memory_error();} t2274.value.structure_type24753->s0.tag = ((unsigned)((unsigned char)t2273))<<2; t2274.value.structure_type24753->s1.tag = NULL_TYPE; a35274 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35274==NULL) {backtrace_internal("[inside READ 28034]"); out_of_memory_error();} a35274->s0.tag = ((unsigned)((unsigned char)t2272))<<2; a35274->s1 = t2274; /* x272555 */ t2270 = a35274; /* x259291 */ t2271 = f28165(t2270); r27815.tag = EXTERNAL_SYMBOL_TYPE; r27815.value.external_symbol_type = t2271; return r27815; l658: /* x259310 */ /* x259309 */ /* x259308 */ r27815.tag = EXTERNAL_SYMBOL_TYPE; r27815.value.external_symbol_type = q2; return r27815; l635: /* x259437 */ /* x259325 */ /* x259324 */ t2205 = '.'; /* x259323 */ t2204 = (char)(a34254>>2); /* x259322 */ t2206.tag = ((unsigned)((unsigned char)t2204))<<2; t2207 = t2205; if (f27342(t2206, t2207)==FALSE_TYPE) goto l637; /* x259402 */ /* x259401 */ /* x259400 */ /* x259399 */ /* x259398 */ t2257 = a34225; /* x259397 */ t2258 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2258==NULL) {backtrace_internal("[inside READ 28036]"); out_of_memory_error();} t2258->s0 = t2257; t2258->s1.tag = NULL_TYPE; t2224 = f28700(t2258); /* x259396 */ a34346 = t2224; /* x259395 */ /* x259394 */ /* x259388 */ /* x259387 */ t2255 = a34346; /* x266401 */ if (!(t2255==EOF_OBJECT_TYPE)) goto l649; /* x259391 */ /* x259390 */ t2256 = "EOF after dot"; /* x266400 */ stalin_panic(t2256); goto l650; l649: /* x259393 */ /* x259392 */ l650: /* x259385 */ /* x259384 */ /* x259328 */ /* x259327 */ t2225 = a34346; /* x259326 */ t2226.tag = t2225; if (f27405(t2226)==FALSE_TYPE) goto l643; /* x259349 */ /* x259348 */ while (region28039!=((struct region28039 *)(&initial_region28039))) {struct region28039 *region; region = region28039; region28039 = region28039->region; GC_free(region);} region_size28039 = REGION_SIZE28039; fp28039 = &((region28039->data)[0]); ALIGN(fp28039); /* x259347 */ /* x259346 */ /* x259345 */ t2253 = a34225; /* x259344 */ if ((fp28039+sizeof(struct structure_type24753))>(&((region28039->data)[region_size28039]))) {struct region28039 *region; unsigned region_size = REGION_SIZE28039; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region28039 *)GC_malloc_uncollectable(sizeof(struct region28039)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside READ 28039]"); out_of_memory_error();} region->region = region28039; region_size28039 = region_size; region28039 = region; fp28039 = &((region->data)[0]); ALIGN(fp28039);} t2254 = (struct structure_type24753 *)fp28039; fp28039 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t2254->s0 = t2253; t2254->s1.tag = NULL_TYPE; f28696(t2254); /* x259343 */ /* x259342 */ /* x259340 */ /* x259338 */ /* x259334 */ /* x259333 */ t2251 = a34346; /* x266405 */ if (!(t2251>2))); /* x259337 */ /* x259336 */ t2252 = '0'; /* x266404 */ t2250 = (int)((unsigned char)t2252); /* x266406 */ t2247 = t2249-t2250; /* x259339 */ t2248 = 1.0e1; /* x266407 */ t2244 = t2247/t2248; /* x259341 */ t2245 = 1.0e2; /* x259329 */ t2246 = f28079(t2244, t2245); r27815.tag = FLONUM_TYPE; r27815.value.flonum_type = t2246; return r27815; l643: /* x259383 */ /* x259352 */ /* x259351 */ t2227 = a34346; /* x259350 */ if (f28160(t2227)==FALSE_TYPE) goto l645; /* x259369 */ /* x259368 */ /* x259367 */ /* x259366 */ /* x259365 */ t2241 = a34225; /* x259364 */ t2242 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t2242==NULL) {backtrace_internal("[inside READ 28041]"); out_of_memory_error();} t2242->s0 = t2241; t2242->s1.tag = NULL_TYPE; f28696(t2242); /* x259363 */ /* x259362 */ /* x259361 */ /* x259360 */ /* x259359 */ t2239 = (char)(a34254>>2); /* x259358 */ t2240.tag = ((unsigned)((unsigned char)t2239))<<2; t2235 = f27415(t2240); /* x259357 */ /* x259356 */ t2237 = a34346; /* x259355 */ t2238.tag = t2237; t2234 = f27415(t2238); /* x259354 */ t2236.tag = STRUCTURE_TYPE24753; t2236.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t2236.value.structure_type24753)==NULL) {backtrace_internal("[inside READ 28042]"); out_of_memory_error();} t2236.value.structure_type24753->s0.tag = ((unsigned)((unsigned char)t2235))<<2; t2236.value.structure_type24753->s1.tag = NULL_TYPE; a35275 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35275==NULL) {backtrace_internal("[inside READ 28042]"); out_of_memory_error();} a35275->s0.tag = ((unsigned)((unsigned char)t2234))<<2; a35275->s1 = t2236; /* x272557 */ t2232 = a35275; /* x259353 */ t2233 = f28165(t2232); r27815.tag = EXTERNAL_SYMBOL_TYPE; r27815.value.external_symbol_type = t2233; return r27815; l645: /* x259382 */ /* x259373 */ /* x259371 */ t2228 = a34231; /* x259372 */ t2229 = q1; /* x266403 */ if (!(t2228==t2229)) goto l647; /* x259376 */ /* x259375 */ /* x259374 */ r27815.tag = EXTERNAL_SYMBOL_TYPE; r27815.value.external_symbol_type = a34228; return r27815; l647: /* x259381 */ /* x259380 */ /* x259379 */ /* x259378 */ t2230 = "Dot allowed only inside list"; /* x266402 */ stalin_panic(t2230); l637: /* x259436 */ /* x259405 */ /* x259404 */ t2208 = (char)(a34254>>2); /* x259403 */ t2209.tag = ((unsigned)((unsigned char)t2208))<<2; if (f27405(t2209)==FALSE_TYPE) goto l639; /* x259417 */ /* x259416 */ /* x259415 */ /* x259414 */ /* x259410 */ /* x259409 */ t2222 = (char)(a34254>>2); /* x266398 */ t2220 = (int)((unsigned char)t2222); /* x259413 */ /* x259412 */ t2223 = '0'; /* x266397 */ t2221 = (int)((unsigned char)t2223); /* x266399 */ t2218 = t2220-t2221; /* x259406 */ t2219 = f28111(t2218); return *((struct w49 *)(&t2219)); l639: /* x259435 */ /* x259420 */ /* x259419 */ t2210 = (char)(a34254>>2); /* x259418 */ t2211 = ((unsigned)((unsigned char)t2210))<<2; if (f28145(t2211)==FALSE_TYPE) goto l641; /* x259429 */ /* x259428 */ /* x259427 */ /* x259426 */ /* x259425 */ /* x259424 */ t2216 = (char)(a34254>>2); /* x259423 */ t2217.tag = ((unsigned)((unsigned char)t2216))<<2; t2215 = f27415(t2217); /* x259422 */ a35276 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35276==NULL) {backtrace_internal("[inside READ 28047]"); out_of_memory_error();} a35276->s0.tag = ((unsigned)((unsigned char)t2215))<<2; a35276->s1.tag = NULL_TYPE; /* x272559 */ t2213 = a35276; /* x259421 */ t2214 = f28165(t2213); r27815.tag = EXTERNAL_SYMBOL_TYPE; r27815.value.external_symbol_type = t2214; return r27815; l641: /* x259434 */ /* x259433 */ /* x259432 */ /* x259431 */ t2212 = "Attempt to READ invalid character"; /* x266396 */ stalin_panic(t2212);} /* READ[27810] */ struct w49 f27810(void) {char *t3021; char *t3022; char *t3023; char *t3024; char *t3025; char *t3026; char *t3027; struct w49 t3028; struct w49 t3029; /* x260772 */ /* x260771 */ /* x260770 */ /* x260764 */ /* x260763 */ t3028 = a34225; /* x266264 */ if (!((t3028.tag)==NULL_TYPE)) goto l896; /* x260766 */ /* x260765 */ /* x264930 */ a34225.tag = INPUT_PORT_TYPE; a34225.value.input_port_type = a34449; goto l897; l896: /* x260769 */ /* x260768 */ t3029 = a34225; /* x266263 */ if (!((t3029.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("READ[27810]"); structure_ref_error();} a34225 = t3029.value.structure_type24753->s0; l897: /* x260761 */ /* x260760 */ /* x260754 */ /* x260753 */ /* x260752 */ t3025 = "close"; /* x260751 */ t3024 = f27595(t3025); /* x266266 */ t3021 = t3024; /* x260759 */ /* x260758 */ /* x260757 */ t3027 = "dot"; /* x260756 */ t3026 = f27595(t3027); /* x266265 */ t3022 = t3026; /* x260749 */ a34227 = t3021; a34228 = t3022; /* x260748 */ /* x260747 */ t3023 = q7; /* x260746 */ /* x260745 */ /* x260744 */ /* x260743 */ /* x260742 */ /* x260741 */ /* x260740 */ /* x257546 */ /* x257545 */ return f27815(t3023);} /* CALL-WITH-OUTPUT-FILE[27795] */ void f27795(char *a34214, unsigned a34215) {FILE *a33023; /* PORT */ FILE *a34216; /* OUTPUT-PORT */ struct structure_type24753 *a35235; /* OBJS */ struct structure_type24753 *a35237; /* OBJS */ FILE *a37749; /* OBJ */ FILE *t3030; FILE *t3031; unsigned t3032; FILE *t3033; FILE *t3034; struct structure_type24753 *t3035; struct structure_type24753 *t3036; FILE *t3037; struct w49 t3038; struct structure_type24753 *t3039; struct structure_type24753 *t3040; struct structure_type24753 *t3041; struct structure_type24753 *t3042; struct structure_type24753 *t3043; struct structure_type24753 *t3044; struct structure_type24753 *t3045; struct w49 t3046; struct w49 t3047; struct w49 t3048; struct w49 t3049; struct w49 t3050; struct w12224 t3051; struct w36270 t3052; struct w49 t3053; struct structure_type24753 *t3054; struct w21193 t3055; struct w227671 t3056; struct w49 t3057; struct w49 t3058; struct w36270 t3059; struct w49 t3060; struct structure_type24753 *t3061; struct structure_type24753 *t3062; struct w21193 t3063; struct w21193 t3064; struct w21193 t3065; struct w21193 t3066; struct w21193 t3067; struct w21193 t3068; struct w21193 t3069; struct w21193 t3070; struct w21193 t3071; struct w21193 t3072; struct w21193 t3073; struct structure_type24753 *t3074; struct w49 t3075; struct w49 t3076; struct w49 t3077; struct w49 t3078; struct w49 t3079; struct w49 t3080; struct w49 t3081; struct w49 t3082; struct w49 t3083; struct w49 t3084; struct w49 t3085; char *t3086; char *t3087; char *t3088; char *t3089; char *t3090; char *t3091; char *t3092; char *t3093; char *t3094; char *t3095; char *t3096; struct w49 t3097; struct w49 t3098; struct w49 t3099; struct w49 t3100; struct w49 t3101; struct w49 t3102; struct w49 t3103; struct w49 t3104; struct w49 t3105; struct w49 t3106; struct w21193 t3107; struct w36270 t3108; struct w49 t3109; struct structure_type24753 *t3110; struct w12224 t3111; struct w36270 t3112; struct w49 t3113; struct structure_type24753 *t3114; struct w21193 t3115; struct w227671 t3116; struct w49 t3117; struct w21193 t3118; struct w36270 t3119; struct w49 t3120; struct structure_type24753 *t3121; struct structure_type24753 *t3122; struct w36270 t3123; struct w49 t3124; struct structure_type24753 *t3125; int t3127; char *t3128; struct structure_type24753 *t3129; struct w49 t3130; struct w49 t3131; FILE *t3132; struct w49 t3133; struct w49 t3134; struct w49 t3135; struct w49 t3136; struct w49 t3137; struct w49 t3138; struct w49 t3139; struct w49 t3140; struct w49 t3141; struct w49 t3142; struct w49 t3143; struct w49 t3144; struct w49 t3145; struct w49 t3146; struct w49 t3147; struct w49 t3148; struct w49 t3149; struct w49 t3150; struct w49 t3151; struct w49 t3152; struct w49 t3153; struct w49 t3154; struct w49 t3155; struct w49 t3156; struct w49 t3157; struct w49 t3158; struct w49 t3159; struct w49 t3160; struct w49 t3161; struct w49 t3162; struct w49 t3163; struct w49 t3164; struct w49 t3165; struct w49 t3166; struct w49 t3167; struct w49 t3168; struct w49 t3169; struct w49 t3170; struct w49 t3171; struct w49 t3172; struct w49 t3173; struct w49 t3174; struct w49 t3175; struct w49 t3176; struct w49 t3177; struct w49 t3178; struct w49 t3179; struct w49 t3180; struct w49 t3181; struct w49 t3182; struct w49 t3183; struct w49 t3184; struct w49 t3185; struct w49 t3186; struct w49 t3187; struct w49 t3188; struct w49 t3189; struct w49 t3190; FILE *t3191; struct w49 t3192; struct w49 t3193; struct w49 t3194; struct w49 t3195; struct w49 t3196; struct w49 t3197; struct w49 t3198; struct w49 t3199; struct w49 t3200; struct w49 t3201; struct w49 t3202; struct w49 t3203; struct w49 t3204; struct w49 t3205; struct w49 t3206; struct w49 t3207; struct w49 t3208; struct w49 t3209; struct w49 t3210; struct w49 t3211; struct w49 t3212; struct w49 t3213; struct w49 t3214; char *t3215; /* x257500 */ /* x257499 */ /* x257498 */ t3215 = a34214; /* x266603 */ t3030 = fopen(t3215, "w"); if (t3030==NULL) {backtrace_internal("CALL-WITH-OUTPUT-FILE[27795]"); open_output_file2_error();} /* x257496 */ a34216 = t3030; /* x257495 */ /* x257494 */ /* x257493 */ t3033 = a34216; /* x257492 */ t3032 = a34215; if (t3032==NATIVE_PROCEDURE_TYPE14856) {a33023 = t3033; /* x226511 */ /* x226510 stalin.sc:31458:1083350 */ /* x226509 stalin.sc:31785:1095109 */ t3037 = a33023; /* x226508 stalin.sc:31459:1083361 */ /* x226507 stalin.sc:31781:1094977 */ /* x226506 stalin.sc:31784:1095092 */ t3122 = a875; /* x226505 stalin.sc:31781:1094982 */ /* x226493 stalin.sc:31781:1094978 */ t3123.tag = NATIVE_PROCEDURE_TYPE14859; /* MOVE: branching squeezed to general */ if (t3122>=((struct structure_type24753 *)VALUE_OFFSET)) {t3124.tag = STRUCTURE_TYPE24753; t3124.value.structure_type24753 = t3122;} else t3124.tag = (unsigned)t3122; t3125 = (struct structure_type24753 *)NULL_TYPE; t3045 = f27731(t3123, t3124, t3125); /* x226492 stalin.sc:31720:1092517 */ /* x226491 stalin.sc:31780:1094966 */ t3118 = a1594; /* x226490 stalin.sc:31720:1092522 */ /* x226376 stalin.sc:31720:1092518 */ t3119.tag = NATIVE_PROCEDURE_TYPE14860; t3120 = *((struct w49 *)(&t3118)); t3121 = (struct structure_type24753 *)NULL_TYPE; t3044 = f27731(t3119, t3120, t3121); /* x226375 stalin.sc:31697:1091542 */ /* x226374 stalin.sc:31719:1092472 */ /* x226372 stalin.sc:31719:1092487 */ /* x226373 stalin.sc:31719:1092505 */ t3115 = a1633; /* x226371 stalin.sc:31719:1092473 */ t3116.tag = NATIVE_PROCEDURE_TYPE7718; t3117 = *((struct w49 *)(&t3115)); t3111 = f1226(t3116, t3117); /* x226370 stalin.sc:31697:1091547 */ /* x226294 stalin.sc:31697:1091543 */ t3112.tag = NATIVE_PROCEDURE_TYPE14894; t3113 = *((struct w49 *)(&t3111)); t3114 = (struct structure_type24753 *)NULL_TYPE; t3043 = f27731(t3112, t3113, t3114); /* x226293 stalin.sc:31677:1090741 */ /* x226292 stalin.sc:31696:1091531 */ t3107 = a1679; /* x226291 stalin.sc:31677:1090746 */ /* x226239 stalin.sc:31677:1090742 */ t3108.tag = NATIVE_PROCEDURE_TYPE14906; t3109 = *((struct w49 *)(&t3107)); t3110 = (struct structure_type24753 *)NULL_TYPE; t3042 = f27731(t3108, t3109, t3110); /* x226238 stalin.sc:31543:1086485 */ /* x226237 stalin.sc:31655:1090281 */ /* x226236 stalin.sc:31676:1090709 */ t3073 = a1936; /* x226235 stalin.sc:31675:1090680 */ t3072 = a1938; /* x226234 stalin.sc:31674:1090654 */ t3071 = a1939; /* x226233 stalin.sc:31673:1090632 */ t3070 = a1940; /* x226232 stalin.sc:31672:1090613 */ t3069 = a1942; /* x226231 stalin.sc:31671:1090588 */ t3068 = a1943; /* x226230 stalin.sc:31670:1090558 */ t3067 = a1944; /* x226229 stalin.sc:31669:1090529 */ t3066 = a1945; /* x226228 stalin.sc:31668:1090497 */ t3065 = a1946; /* x226227 stalin.sc:31667:1090469 */ t3064 = a1947; /* x226226 stalin.sc:31666:1090441 */ t3063 = a1948; /* x226225 stalin.sc:31655:1090289 */ /* x226224 stalin.sc:31665:1090426 */ t3096 = a1951; /* x226223 stalin.sc:31664:1090410 */ t3095 = a1954; /* x226222 stalin.sc:31663:1090393 */ t3094 = a1957; /* x226221 stalin.sc:31662:1090377 */ t3093 = a1960; /* x226220 stalin.sc:31661:1090360 */ t3092 = a1963; /* x226219 stalin.sc:31660:1090348 */ t3091 = a1966; /* x226218 stalin.sc:31659:1090336 */ t3090 = a1969; /* x226217 stalin.sc:31658:1090326 */ t3089 = a1972; /* x226216 stalin.sc:31657:1090315 */ t3088 = a1975; /* x226215 stalin.sc:31656:1090305 */ t3087 = a1978; /* x226214 stalin.sc:31655:1090295 */ t3086 = a1981; /* x226213 stalin.sc:31655:1090290 */ t3106.tag = STRUCTURE_TYPE24753; t3106.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3106.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31655, 1090289); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t3096>=((char *)VALUE_OFFSET)) {t3106.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t3106.value.structure_type24753->s0.value.external_symbol_type = t3096;} else t3106.value.structure_type24753->s0.tag = (unsigned)t3096; t3106.value.structure_type24753->s1.tag = NULL_TYPE; t3105.tag = STRUCTURE_TYPE24753; t3105.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3105.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31655, 1090289); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t3095>=((char *)VALUE_OFFSET)) {t3105.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t3105.value.structure_type24753->s0.value.external_symbol_type = t3095;} else t3105.value.structure_type24753->s0.tag = (unsigned)t3095; t3105.value.structure_type24753->s1 = t3106; t3104.tag = STRUCTURE_TYPE24753; t3104.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3104.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31655, 1090289); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t3094>=((char *)VALUE_OFFSET)) {t3104.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t3104.value.structure_type24753->s0.value.external_symbol_type = t3094;} else t3104.value.structure_type24753->s0.tag = (unsigned)t3094; t3104.value.structure_type24753->s1 = t3105; t3103.tag = STRUCTURE_TYPE24753; t3103.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3103.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31655, 1090289); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t3093>=((char *)VALUE_OFFSET)) {t3103.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t3103.value.structure_type24753->s0.value.external_symbol_type = t3093;} else t3103.value.structure_type24753->s0.tag = (unsigned)t3093; t3103.value.structure_type24753->s1 = t3104; t3102.tag = STRUCTURE_TYPE24753; t3102.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3102.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31655, 1090289); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t3092>=((char *)VALUE_OFFSET)) {t3102.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t3102.value.structure_type24753->s0.value.external_symbol_type = t3092;} else t3102.value.structure_type24753->s0.tag = (unsigned)t3092; t3102.value.structure_type24753->s1 = t3103; t3101.tag = STRUCTURE_TYPE24753; t3101.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3101.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31655, 1090289); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t3091>=((char *)VALUE_OFFSET)) {t3101.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t3101.value.structure_type24753->s0.value.external_symbol_type = t3091;} else t3101.value.structure_type24753->s0.tag = (unsigned)t3091; t3101.value.structure_type24753->s1 = t3102; t3100.tag = STRUCTURE_TYPE24753; t3100.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3100.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31655, 1090289); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t3090>=((char *)VALUE_OFFSET)) {t3100.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t3100.value.structure_type24753->s0.value.external_symbol_type = t3090;} else t3100.value.structure_type24753->s0.tag = (unsigned)t3090; t3100.value.structure_type24753->s1 = t3101; t3099.tag = STRUCTURE_TYPE24753; t3099.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3099.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31655, 1090289); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t3089>=((char *)VALUE_OFFSET)) {t3099.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t3099.value.structure_type24753->s0.value.external_symbol_type = t3089;} else t3099.value.structure_type24753->s0.tag = (unsigned)t3089; t3099.value.structure_type24753->s1 = t3100; t3098.tag = STRUCTURE_TYPE24753; t3098.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3098.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31655, 1090289); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t3088>=((char *)VALUE_OFFSET)) {t3098.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t3098.value.structure_type24753->s0.value.external_symbol_type = t3088;} else t3098.value.structure_type24753->s0.tag = (unsigned)t3088; t3098.value.structure_type24753->s1 = t3099; t3097.tag = STRUCTURE_TYPE24753; t3097.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3097.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31655, 1090289); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t3087>=((char *)VALUE_OFFSET)) {t3097.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t3097.value.structure_type24753->s0.value.external_symbol_type = t3087;} else t3097.value.structure_type24753->s0.tag = (unsigned)t3087; t3097.value.structure_type24753->s1 = t3098; a35237 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35237==NULL) {backtrace("stalin.sc", 31655, 1090289); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t3086>=((char *)VALUE_OFFSET)) {a35237->s0.tag = EXTERNAL_SYMBOL_TYPE; a35237->s0.value.external_symbol_type = t3086;} else a35237->s0.tag = (unsigned)t3086; a35237->s1 = t3097; /* x272481 */ t3062 = a35237; /* x226212 stalin.sc:31655:1090282 */ t3085.tag = STRUCTURE_TYPE24753; t3085.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3085.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31655, 1090281); out_of_memory_error();} t3085.value.structure_type24753->s0 = *((struct w49 *)(&t3073)); t3085.value.structure_type24753->s1.tag = NULL_TYPE; t3084.tag = STRUCTURE_TYPE24753; t3084.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3084.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31655, 1090281); out_of_memory_error();} t3084.value.structure_type24753->s0 = *((struct w49 *)(&t3072)); t3084.value.structure_type24753->s1 = t3085; t3083.tag = STRUCTURE_TYPE24753; t3083.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3083.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31655, 1090281); out_of_memory_error();} t3083.value.structure_type24753->s0 = *((struct w49 *)(&t3071)); t3083.value.structure_type24753->s1 = t3084; t3082.tag = STRUCTURE_TYPE24753; t3082.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3082.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31655, 1090281); out_of_memory_error();} t3082.value.structure_type24753->s0 = *((struct w49 *)(&t3070)); t3082.value.structure_type24753->s1 = t3083; t3081.tag = STRUCTURE_TYPE24753; t3081.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3081.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31655, 1090281); out_of_memory_error();} t3081.value.structure_type24753->s0 = *((struct w49 *)(&t3069)); t3081.value.structure_type24753->s1 = t3082; t3080.tag = STRUCTURE_TYPE24753; t3080.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3080.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31655, 1090281); out_of_memory_error();} t3080.value.structure_type24753->s0 = *((struct w49 *)(&t3068)); t3080.value.structure_type24753->s1 = t3081; t3079.tag = STRUCTURE_TYPE24753; t3079.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3079.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31655, 1090281); out_of_memory_error();} t3079.value.structure_type24753->s0 = *((struct w49 *)(&t3067)); t3079.value.structure_type24753->s1 = t3080; t3078.tag = STRUCTURE_TYPE24753; t3078.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3078.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31655, 1090281); out_of_memory_error();} t3078.value.structure_type24753->s0 = *((struct w49 *)(&t3066)); t3078.value.structure_type24753->s1 = t3079; t3077.tag = STRUCTURE_TYPE24753; t3077.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3077.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31655, 1090281); out_of_memory_error();} t3077.value.structure_type24753->s0 = *((struct w49 *)(&t3065)); t3077.value.structure_type24753->s1 = t3078; t3076.tag = STRUCTURE_TYPE24753; t3076.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3076.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31655, 1090281); out_of_memory_error();} t3076.value.structure_type24753->s0 = *((struct w49 *)(&t3064)); t3076.value.structure_type24753->s1 = t3077; t3075.tag = STRUCTURE_TYPE24753; t3075.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3075.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31655, 1090281); out_of_memory_error();} t3075.value.structure_type24753->s0 = *((struct w49 *)(&t3063)); t3075.value.structure_type24753->s1 = t3076; t3074 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t3074==NULL) {backtrace("stalin.sc", 31655, 1090281); out_of_memory_error();} t3074->s0.tag = STRUCTURE_TYPE24753; t3074->s0.value.structure_type24753 = t3062; t3074->s1 = t3075; t3058 = f26254(t3074); /* x226211 stalin.sc:31543:1086490 */ /* x225942 stalin.sc:31543:1086486 */ t3059.tag = NATIVE_PROCEDURE_TYPE14945; t3060 = t3058; t3061 = (struct structure_type24753 *)NULL_TYPE; t3041 = f27731(t3059, t3060, t3061); /* x225941 stalin.sc:31460:1083372 */ /* x225940 stalin.sc:31542:1086438 */ /* x225938 stalin.sc:31542:1086453 */ /* x225939 stalin.sc:31542:1086473 */ t3055 = a2031; /* x225937 stalin.sc:31542:1086439 */ t3056.tag = NATIVE_PROCEDURE_TYPE7954; t3057 = *((struct w49 *)(&t3055)); t3051 = f1226(t3056, t3057); /* x225936 stalin.sc:31461:1083383 */ /* x225651 stalin.sc:31460:1083373 */ t3052.tag = NATIVE_PROCEDURE_TYPE14983; t3053 = *((struct w49 *)(&t3051)); t3054 = (struct structure_type24753 *)NULL_TYPE; t3040 = f27731(t3052, t3053, t3054); /* x225650 stalin.sc:31459:1083362 */ t3050.tag = STRUCTURE_TYPE24753; t3050.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3050.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31459, 1083361); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t3045>=((struct structure_type24753 *)VALUE_OFFSET)) {t3050.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t3050.value.structure_type24753->s0.value.structure_type24753 = t3045;} else t3050.value.structure_type24753->s0.tag = (unsigned)t3045; t3050.value.structure_type24753->s1.tag = NULL_TYPE; t3049.tag = STRUCTURE_TYPE24753; t3049.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3049.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31459, 1083361); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t3044>=((struct structure_type24753 *)VALUE_OFFSET)) {t3049.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t3049.value.structure_type24753->s0.value.structure_type24753 = t3044;} else t3049.value.structure_type24753->s0.tag = (unsigned)t3044; t3049.value.structure_type24753->s1 = t3050; t3048.tag = STRUCTURE_TYPE24753; t3048.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3048.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31459, 1083361); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t3043>=((struct structure_type24753 *)VALUE_OFFSET)) {t3048.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t3048.value.structure_type24753->s0.value.structure_type24753 = t3043;} else t3048.value.structure_type24753->s0.tag = (unsigned)t3043; t3048.value.structure_type24753->s1 = t3049; t3047.tag = STRUCTURE_TYPE24753; t3047.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3047.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31459, 1083361); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t3042>=((struct structure_type24753 *)VALUE_OFFSET)) {t3047.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t3047.value.structure_type24753->s0.value.structure_type24753 = t3042;} else t3047.value.structure_type24753->s0.tag = (unsigned)t3042; t3047.value.structure_type24753->s1 = t3048; t3046.tag = STRUCTURE_TYPE24753; t3046.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3046.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31459, 1083361); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t3041>=((struct structure_type24753 *)VALUE_OFFSET)) {t3046.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t3046.value.structure_type24753->s0.value.structure_type24753 = t3041;} else t3046.value.structure_type24753->s0.tag = (unsigned)t3041; t3046.value.structure_type24753->s1 = t3047; a35235 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35235==NULL) {backtrace("stalin.sc", 31459, 1083361); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t3040>=((struct structure_type24753 *)VALUE_OFFSET)) {a35235->s0.tag = STRUCTURE_TYPE24753; a35235->s0.value.structure_type24753 = t3040;} else a35235->s0.tag = (unsigned)t3040; a35235->s1 = t3046; /* x272477 */ t3036 = a35235; /* x225649 stalin.sc:31458:1083351 */ t3038.tag = STRUCTURE_TYPE24753; t3038.value.structure_type24753 = t3036; t3039 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t3039==NULL) {backtrace("stalin.sc", 31458, 1083350); out_of_memory_error();} t3039->s0.tag = OUTPUT_PORT_TYPE; t3039->s0.value.output_port_type = t3037; t3039->s1.tag = NULL_TYPE; f28708(t3038, t3039); /* x225648 */ /* x225647 stalin.sc:31786:1095118 */ /* x225646 stalin.sc:31786:1095127 */ t3034 = a33023; /* x225645 stalin.sc:31786:1095119 */ t3035 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t3035==NULL) {backtrace("stalin.sc", 31786, 1095118); out_of_memory_error();} t3035->s0.tag = OUTPUT_PORT_TYPE; t3035->s0.value.output_port_type = t3034; t3035->s1.tag = NULL_TYPE; f28716(t3035);} else {a32822 = t3033; /* x224580 */ /* x224579 stalin.sc:31056:1069860 */ /* x224578 stalin.sc:31056:1069869 */ t3132 = a32822; /* x224577 stalin.sc:31056:1069861 */ t3131 = a32821; switch (t3131.tag) {case NATIVE_PROCEDURE_TYPE5964: t3133.tag = OUTPUT_PORT_TYPE; t3133.value.output_port_type = t3132; f18659(t3133); break; case NATIVE_PROCEDURE_TYPE5967: t3134.tag = OUTPUT_PORT_TYPE; t3134.value.output_port_type = t3132; f18658(t3134); break; case NATIVE_PROCEDURE_TYPE5968: t3135.tag = OUTPUT_PORT_TYPE; t3135.value.output_port_type = t3132; f18650(t3135); break; case NATIVE_PROCEDURE_TYPE5969: t3136.tag = OUTPUT_PORT_TYPE; t3136.value.output_port_type = t3132; f18643(t3136); break; case NATIVE_PROCEDURE_TYPE5970: t3137.tag = OUTPUT_PORT_TYPE; t3137.value.output_port_type = t3132; f18639(t3137); break; case NATIVE_PROCEDURE_TYPE5971: t3138.tag = OUTPUT_PORT_TYPE; t3138.value.output_port_type = t3132; f18506(t3138); break; case NATIVE_PROCEDURE_TYPE5972: t3139.tag = OUTPUT_PORT_TYPE; t3139.value.output_port_type = t3132; f18505(t3139); break; case NATIVE_PROCEDURE_TYPE5973: t3140.tag = OUTPUT_PORT_TYPE; t3140.value.output_port_type = t3132; f18504(t3140); break; case NATIVE_PROCEDURE_TYPE5974: t3141.tag = OUTPUT_PORT_TYPE; t3141.value.output_port_type = t3132; f18500(t3141); break; case NATIVE_PROCEDURE_TYPE5975: t3142.tag = OUTPUT_PORT_TYPE; t3142.value.output_port_type = t3132; f18492(t3142); break; case NATIVE_PROCEDURE_TYPE5976: t3143.tag = OUTPUT_PORT_TYPE; t3143.value.output_port_type = t3132; f18486(t3143); break; case NATIVE_PROCEDURE_TYPE5977: t3144.tag = OUTPUT_PORT_TYPE; t3144.value.output_port_type = t3132; f18482(t3144); break; case NATIVE_PROCEDURE_TYPE5978: t3145.tag = OUTPUT_PORT_TYPE; t3145.value.output_port_type = t3132; f18480(t3145); break; case NATIVE_PROCEDURE_TYPE5979: t3146.tag = OUTPUT_PORT_TYPE; t3146.value.output_port_type = t3132; f18475(t3146); break; case NATIVE_PROCEDURE_TYPE5980: t3147.tag = OUTPUT_PORT_TYPE; t3147.value.output_port_type = t3132; f18473(t3147); break; case NATIVE_PROCEDURE_TYPE5981: t3148.tag = OUTPUT_PORT_TYPE; t3148.value.output_port_type = t3132; f18471(t3148); break; case NATIVE_PROCEDURE_TYPE5982: t3149.tag = OUTPUT_PORT_TYPE; t3149.value.output_port_type = t3132; f18469(t3149); break; case NATIVE_PROCEDURE_TYPE5983: t3150.tag = OUTPUT_PORT_TYPE; t3150.value.output_port_type = t3132; f18467(t3150); break; case NATIVE_PROCEDURE_TYPE5984: t3151.tag = OUTPUT_PORT_TYPE; t3151.value.output_port_type = t3132; f18461(t3151); break; case NATIVE_PROCEDURE_TYPE5985: t3152.tag = OUTPUT_PORT_TYPE; t3152.value.output_port_type = t3132; f18455(t3152); break; case NATIVE_PROCEDURE_TYPE5986: t3153.tag = OUTPUT_PORT_TYPE; t3153.value.output_port_type = t3132; f18453(t3153); break; case NATIVE_PROCEDURE_TYPE5987: t3154.tag = OUTPUT_PORT_TYPE; t3154.value.output_port_type = t3132; f18449(t3154); break; case NATIVE_PROCEDURE_TYPE5988: t3155.tag = OUTPUT_PORT_TYPE; t3155.value.output_port_type = t3132; f18447(t3155); break; case NATIVE_PROCEDURE_TYPE5989: t3156.tag = OUTPUT_PORT_TYPE; t3156.value.output_port_type = t3132; f18440(t3156); break; case NATIVE_PROCEDURE_TYPE5990: t3157.tag = OUTPUT_PORT_TYPE; t3157.value.output_port_type = t3132; f18436(t3157); break; case NATIVE_PROCEDURE_TYPE5991: t3158.tag = OUTPUT_PORT_TYPE; t3158.value.output_port_type = t3132; f18432(t3158); break; case NATIVE_PROCEDURE_TYPE5992: t3159.tag = OUTPUT_PORT_TYPE; t3159.value.output_port_type = t3132; f18428(t3159); break; case NATIVE_PROCEDURE_TYPE5995: t3160.tag = OUTPUT_PORT_TYPE; t3160.value.output_port_type = t3132; f18342(t3160); break; case NATIVE_PROCEDURE_TYPE5996: t3161.tag = OUTPUT_PORT_TYPE; t3161.value.output_port_type = t3132; f18338(t3161); break; case NATIVE_PROCEDURE_TYPE6001: t3162.tag = OUTPUT_PORT_TYPE; t3162.value.output_port_type = t3132; f18317(t3162); break; case NATIVE_PROCEDURE_TYPE6002: t3163.tag = OUTPUT_PORT_TYPE; t3163.value.output_port_type = t3132; f18316(t3163); break; case NATIVE_PROCEDURE_TYPE6003: t3164.tag = OUTPUT_PORT_TYPE; t3164.value.output_port_type = t3132; f18306(t3164); break; case NATIVE_PROCEDURE_TYPE6004: t3165.tag = OUTPUT_PORT_TYPE; t3165.value.output_port_type = t3132; f18302(t3165); break; case NATIVE_PROCEDURE_TYPE6005: t3166.tag = OUTPUT_PORT_TYPE; t3166.value.output_port_type = t3132; f18294(t3166); break; case NATIVE_PROCEDURE_TYPE6006: t3167.tag = OUTPUT_PORT_TYPE; t3167.value.output_port_type = t3132; f18293(t3167); break; case NATIVE_PROCEDURE_TYPE6007: t3168.tag = OUTPUT_PORT_TYPE; t3168.value.output_port_type = t3132; f18285(t3168); break; case NATIVE_PROCEDURE_TYPE6008: t3169.tag = OUTPUT_PORT_TYPE; t3169.value.output_port_type = t3132; f18279(t3169); break; case NATIVE_PROCEDURE_TYPE6009: t3170.tag = OUTPUT_PORT_TYPE; t3170.value.output_port_type = t3132; f18266(t3170); break; case NATIVE_PROCEDURE_TYPE6010: t3171.tag = OUTPUT_PORT_TYPE; t3171.value.output_port_type = t3132; f18261(t3171); break; case NATIVE_PROCEDURE_TYPE6011: t3172.tag = OUTPUT_PORT_TYPE; t3172.value.output_port_type = t3132; f18257(t3172); break; case NATIVE_PROCEDURE_TYPE6012: t3173.tag = OUTPUT_PORT_TYPE; t3173.value.output_port_type = t3132; f18244(t3173); break; case NATIVE_PROCEDURE_TYPE6013: t3174.tag = OUTPUT_PORT_TYPE; t3174.value.output_port_type = t3132; f18228(t3174); break; case NATIVE_PROCEDURE_TYPE7404: t3175.tag = OUTPUT_PORT_TYPE; t3175.value.output_port_type = t3132; f7755(t3175); break; case NATIVE_PROCEDURE_TYPE7406: t3176.tag = OUTPUT_PORT_TYPE; t3176.value.output_port_type = t3132; f7741(t3176); break; case NATIVE_PROCEDURE_TYPE7410: t3177.tag = OUTPUT_PORT_TYPE; t3177.value.output_port_type = t3132; f7735(t3177); break; case NATIVE_PROCEDURE_TYPE7415: t3178.tag = OUTPUT_PORT_TYPE; t3178.value.output_port_type = t3132; f7712(t3178); break; case NATIVE_PROCEDURE_TYPE7418: t3179.tag = OUTPUT_PORT_TYPE; t3179.value.output_port_type = t3132; f7706(t3179); break; case NATIVE_PROCEDURE_TYPE7420: t3180.tag = OUTPUT_PORT_TYPE; t3180.value.output_port_type = t3132; f7703(t3180); break; case NATIVE_PROCEDURE_TYPE7421: t3181.tag = OUTPUT_PORT_TYPE; t3181.value.output_port_type = t3132; f7702(t3181); break; case NATIVE_PROCEDURE_TYPE7422: t3182.tag = OUTPUT_PORT_TYPE; t3182.value.output_port_type = t3132; f7701(t3182); break; case NATIVE_PROCEDURE_TYPE7423: t3183.tag = OUTPUT_PORT_TYPE; t3183.value.output_port_type = t3132; f7700(t3183); break; case NATIVE_PROCEDURE_TYPE7426: t3184.tag = OUTPUT_PORT_TYPE; t3184.value.output_port_type = t3132; f7688(t3184); break; case NATIVE_PROCEDURE_TYPE7429: t3185.tag = OUTPUT_PORT_TYPE; t3185.value.output_port_type = t3132; f7684(t3185); break; case NATIVE_PROCEDURE_TYPE7430: t3186.tag = OUTPUT_PORT_TYPE; t3186.value.output_port_type = t3132; f7683(t3186); break; case NATIVE_PROCEDURE_TYPE7431: t3187.tag = OUTPUT_PORT_TYPE; t3187.value.output_port_type = t3132; f7682(t3187); break; case NATIVE_PROCEDURE_TYPE7432: t3188.tag = OUTPUT_PORT_TYPE; t3188.value.output_port_type = t3132; f7680(t3188); break; case NATIVE_PROCEDURE_TYPE7433: t3189.tag = OUTPUT_PORT_TYPE; t3189.value.output_port_type = t3132; f7679(t3189); break; case NATIVE_PROCEDURE_TYPE7435: t3190.tag = OUTPUT_PORT_TYPE; t3190.value.output_port_type = t3132; f7677(t3190); break; case NATIVE_PROCEDURE_TYPE7822: a37749 = t3132; /* x283665 */ /* x283664 */ t3191 = a37749; /* x283663 */ break; case NATIVE_PROCEDURE_TYPE14107: /* x297565 stalin.sc:32903:1140843 */ break; case NATIVE_PROCEDURE_TYPE15963: t3192.tag = OUTPUT_PORT_TYPE; t3192.value.output_port_type = t3132; f7718((t3131.value.native_procedure_type15963), t3192); break; case NATIVE_PROCEDURE_TYPE19067: t3193.tag = OUTPUT_PORT_TYPE; t3193.value.output_port_type = t3132; f7905((t3131.value.native_procedure_type19067), t3193); break; case NATIVE_PROCEDURE_TYPE19068: t3194.tag = OUTPUT_PORT_TYPE; t3194.value.output_port_type = t3132; f7893((t3131.value.native_procedure_type19068), t3194); break; case NATIVE_PROCEDURE_TYPE22439: t3195.tag = OUTPUT_PORT_TYPE; t3195.value.output_port_type = t3132; f16724(t3195); break; case NATIVE_PROCEDURE_TYPE22443: t3196.tag = OUTPUT_PORT_TYPE; t3196.value.output_port_type = t3132; f16800(t3196); break; case NATIVE_PROCEDURE_TYPE22459: t3197.tag = OUTPUT_PORT_TYPE; t3197.value.output_port_type = t3132; f16363((t3131.value.native_procedure_type22459), t3197); break; case NATIVE_PROCEDURE_TYPE22461: t3198.tag = OUTPUT_PORT_TYPE; t3198.value.output_port_type = t3132; f16437(t3198); break; case NATIVE_PROCEDURE_TYPE22462: t3199.tag = OUTPUT_PORT_TYPE; t3199.value.output_port_type = t3132; f16449(t3199); break; case NATIVE_PROCEDURE_TYPE22463: t3200.tag = OUTPUT_PORT_TYPE; t3200.value.output_port_type = t3132; f16602(t3200); break; case NATIVE_PROCEDURE_TYPE22464: t3201.tag = OUTPUT_PORT_TYPE; t3201.value.output_port_type = t3132; f16614(t3201); break; case NATIVE_PROCEDURE_TYPE22465: t3202.tag = OUTPUT_PORT_TYPE; t3202.value.output_port_type = t3132; f16652(t3202); break; case NATIVE_PROCEDURE_TYPE22466: t3203.tag = OUTPUT_PORT_TYPE; t3203.value.output_port_type = t3132; f16664(t3203); break; case NATIVE_PROCEDURE_TYPE22467: t3204.tag = OUTPUT_PORT_TYPE; t3204.value.output_port_type = t3132; f16686(t3204); break; case NATIVE_PROCEDURE_TYPE22468: t3205.tag = OUTPUT_PORT_TYPE; t3205.value.output_port_type = t3132; f16709(t3205); break; case NATIVE_PROCEDURE_TYPE22474: t3206.tag = OUTPUT_PORT_TYPE; t3206.value.output_port_type = t3132; f16806(t3206); break; case NATIVE_PROCEDURE_TYPE22484: t3207.tag = OUTPUT_PORT_TYPE; t3207.value.output_port_type = t3132; f17508(t3207); break; case NATIVE_PROCEDURE_TYPE22485: t3208.tag = OUTPUT_PORT_TYPE; t3208.value.output_port_type = t3132; f17538(t3208); break; case NATIVE_PROCEDURE_TYPE22487: t3209.tag = OUTPUT_PORT_TYPE; t3209.value.output_port_type = t3132; f17645(t3209); break; case NATIVE_PROCEDURE_TYPE22489: t3210.tag = OUTPUT_PORT_TYPE; t3210.value.output_port_type = t3132; f17811(t3210); break; case NATIVE_PROCEDURE_TYPE22491: t3211.tag = OUTPUT_PORT_TYPE; t3211.value.output_port_type = t3132; f17904(t3211); break; case NATIVE_PROCEDURE_TYPE22492: t3212.tag = OUTPUT_PORT_TYPE; t3212.value.output_port_type = t3132; f17916(t3212); break; case NATIVE_PROCEDURE_TYPE22493: t3213.tag = OUTPUT_PORT_TYPE; t3213.value.output_port_type = t3132; f17990(t3213); break; case NATIVE_PROCEDURE_TYPE22494: t3214.tag = OUTPUT_PORT_TYPE; t3214.value.output_port_type = t3132; f18046(t3214); break; default: backtrace("stalin.sc", 31056, 1069860); call_error();} /* x224576 */ /* x224575 stalin.sc:31058:1069902 */ /* x224570 stalin.sc:31062:1069979 */ t3127 = 0; /* x224571 stalin.sc:31061:1069962 */ t3128 = q12; /* x224572 stalin.sc:31060:1069949 */ /* x224573 stalin.sc:31059:1069936 */ /* x224574 stalin.sc:31058:1069920 */ /* x224569 */ a32824 = t3127; a32825 = t3128; a32826 = FALSE_TYPE; a32827 = FALSE_TYPE; a32828 = FALSE_TYPE; /* x224568 */ /* x224567 */ /* x224566 */ /* x224565 */ /* x224564 */ /* x224563 */ /* x224562 */ /* x224426 */ /* x224425 stalin.sc:31082:1070671 */ /* x224424 stalin.sc:31082:1070685 */ t3129 = a32819; /* x224423 */ /* x224422 */ /* x224421 */ /* x224420 */ /* x224419 */ /* x224418 */ /* x224417 */ /* x224290 */ /* x224289 stalin.sc:31082:1070676 */ t3130.tag = STRUCTURE_TYPE24753; t3130.value.structure_type24753 = t3129; f19147(t3130);} /* x257491 */ /* x257490 */ /* x257489 */ /* x257488 */ /* x257487 */ /* x257486 */ t3031 = a34216; /* x266604 */ if (fclose(t3031)) {backtrace_internal("[inside CALL-WITH-OUTPUT-FILE 27798]"); close_output_port2_error();} /* x257484 */ /* x257483 */ return;} /* CALL-WITH-INPUT-FILE[27790] */ struct w49 f27790(struct w49 a34209, struct p18678 *a34210) {FILE *a15565; /* PORT */ struct structure_type24753 *a15568; /* LINES */ char *a15569; /* LINE */ FILE *a32569; /* PORT */ struct p18679 *a32570; /* READ-S-EXPRESSION */ struct w49 a32574; /* SS */ struct w49 a32575; /* S */ struct w49 a32576; /* PATHNAME */ FILE *a34211; /* INPUT-PORT */ struct w49 a34212; /* R */ struct w49 a40461; /* S */ struct w49 a41114; /* S */ struct w49 a41622; /* S */ struct w49 a42378; /* S */ FILE *t3216; struct w49 t3217; FILE *t3218; struct p18678 *t3219; FILE *t3220; char *t3221; char *t3222; struct structure_type24753 *t3223; char *t3224; char *t3225; struct structure_type24753 *t3226; FILE *t3227; struct w49 t3228; struct structure_type24753 *t3229; struct w49 t3230; struct w12224 t3231; FILE *t3232; struct w49 t3233; struct p18679 *t3234; struct w49 t3235; struct w49 t3236; struct w49 t3237; struct w49 t3238; struct w49 t3239; int t3240; int t3241; struct w49 t3242; struct w49 t3243; char *t3244; struct w49 t3245; struct w49 t3246; struct w49 t3247; struct w49 t3248; struct w49 t3249; struct structure_type24753 *t3250; struct w49 t3251; struct w49 t3252; struct w49 t3253; struct w49 t3254; struct structure_type24753 *t3255; struct w49 t3256; struct w49 t3257; struct w12224 t3258; struct w49 t3259; struct structure_type24753 *t3260; struct w49 t3261; struct w49 t3262; struct w49 t3263; struct w49 t3264; struct structure_type24753 *t3265; struct w49 t3266; struct w49 t3267; struct w49 t3268; struct w49 t3269; struct w49 t3270; struct w49 t3271; struct w49 t3272; struct w12224 t3273; struct p18679 *t3274; struct p18679 *t3275; struct p18678 *t3276; struct p18678 *t3277; char *t3278; struct structure_type24753 *t3279; struct p18678 *t3280; struct p18678 *t3281; struct w49 t3282; struct p18679 *e18679; struct p18678 *p18679; struct p18679 *p18680; struct p18679 *p18694; struct p18679 *p18695; struct p18678 *p18696; struct p18678 *p18697; struct p18678 *p18698; /* x257480 */ /* x257479 */ /* x257478 */ t3282 = a34209; /* x266605 */ if (!((t3282.tag)==STRING_TYPE)) {backtrace_internal("CALL-WITH-INPUT-FILE[27790]"); open_input_file1_error();} t3216 = fopen((t3282.value.string_type), "r"); if (t3216==NULL) {backtrace_internal("CALL-WITH-INPUT-FILE[27790]"); open_input_file2_error();} /* x257476 */ a34211 = t3216; /* x257475 */ /* x257474 */ /* x257473 */ t3220 = a34211; /* x257472 */ t3219 = a34210; switch ((unsigned)t3219) {case NATIVE_PROCEDURE_TYPE291: a34225.tag = STRUCTURE_TYPE24753; a34225.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a34225.value.structure_type24753)==NULL) {backtrace_internal("[inside CALL-WITH-INPUT-FILE 27791]"); out_of_memory_error();} a34225.value.structure_type24753->s0.tag = INPUT_PORT_TYPE; a34225.value.structure_type24753->s0.value.input_port_type = t3220; a34225.value.structure_type24753->s1.tag = NULL_TYPE; t3217 = f27810(); break; case NATIVE_PROCEDURE_TYPE10956: a15565 = t3220; /* x21388 QobiScheme.sc:1431:42800 */ /* x21384 QobiScheme.sc:1431:42818 */ /* x21387 QobiScheme.sc:1431:42829 */ /* x21386 QobiScheme.sc:1431:42840 */ t3232 = a15565; /* x21385 QobiScheme.sc:1431:42830 */ t3233.tag = STRUCTURE_TYPE24753; t3233.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3233.value.structure_type24753)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1431, 42829); out_of_memory_error();} t3233.value.structure_type24753->s0.tag = INPUT_PORT_TYPE; t3233.value.structure_type24753->s0.value.input_port_type = t3232; t3233.value.structure_type24753->s1.tag = NULL_TYPE; t3221 = f1999(t3233); /* x21383 */ /* x21382 */ /* x21381 */ /* x21380 */ /* x21379 */ /* x21378 */ /* x21377 */ /* x21360 */ /* x21359 QobiScheme.sc:1431:42805 */ a15568 = (struct structure_type24753 *)NULL_TYPE; a15569 = t3221; h2014: /* x21376 QobiScheme.sc:1432:42849 */ /* x21363 QobiScheme.sc:1432:42853 */ /* x21362 QobiScheme.sc:1432:42866 */ t3222 = a15569; /* x270835 QobiScheme.sc:1432:42854 */ if (!(((unsigned)t3222)==EOF_OBJECT_TYPE)) goto l899; /* x21366 QobiScheme.sc:1433:42877 */ /* x21365 QobiScheme.sc:1433:42886 */ t3229 = a15568; /* x21364 QobiScheme.sc:1433:42878 */ /* MOVE: branching squeezed to general */ if (t3229>=((struct structure_type24753 *)VALUE_OFFSET)) {t3230.tag = STRUCTURE_TYPE24753; t3230.value.structure_type24753 = t3229;} else t3230.tag = (unsigned)t3229; t3231 = f26331(t3230); t3217 = *((struct w49 *)(&t3231)); goto l900; l899: /* x21375 QobiScheme.sc:1434:42898 */ /* x21371 QobiScheme.sc:1434:42904 */ /* x21369 QobiScheme.sc:1434:42910 */ t3225 = a15569; /* x21370 QobiScheme.sc:1434:42915 */ t3226 = a15568; /* x270834 QobiScheme.sc:1434:42905 */ t3223 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t3223==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1434, 42904); out_of_memory_error();} t3223->s0.tag = STRING_TYPE; t3223->s0.value.string_type = t3225; /* MOVE: branching squeezed to general */ if (t3226>=((struct structure_type24753 *)VALUE_OFFSET)) {t3223->s1.tag = STRUCTURE_TYPE24753; t3223->s1.value.structure_type24753 = t3226;} else t3223->s1.tag = (unsigned)t3226; /* x21374 QobiScheme.sc:1434:42922 */ /* x21373 QobiScheme.sc:1434:42933 */ t3227 = a15565; /* x21372 QobiScheme.sc:1434:42923 */ t3228.tag = STRUCTURE_TYPE24753; t3228.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3228.value.structure_type24753)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1434, 42922); out_of_memory_error();} t3228.value.structure_type24753->s0.tag = INPUT_PORT_TYPE; t3228.value.structure_type24753->s0.value.input_port_type = t3227; t3228.value.structure_type24753->s1.tag = NULL_TYPE; t3224 = f1999(t3228); /* x21367 QobiScheme.sc:1434:42899 */ a15568 = t3223; a15569 = t3224; goto h2014; l900: break; default: p18679 = t3219; a32569 = t3220; e18679 = (struct p18679 *)alloca(sizeof(struct p18679)); if (e18679==NULL) {backtrace_internal("[inside READ-S-EXPRESSIONS 18678]"); out_of_memory_error();} e18679->p18678 = p18679; e18679->a32569 = a32569; /* x224262 */ /* x224261 */ /* x224260 */ /* x224259 */ t3234 = e18679; p18680 = t3234; /* x224258 */ /* x224257 */ /* x224256 */ a32570 = p18680; /* x220839 */ /* x220838 stalin.sc:31035:1069100 */ /* x220837 stalin.sc:31035:1069115 */ /* x220836 */ /* x220835 */ /* x220834 */ /* x220833 */ /* x220832 */ /* x220831 */ /* x220830 */ /* x220739 */ /* x220738 stalin.sc:31035:1069105 */ a32574.tag = NULL_TYPE; h18684: /* x220829 stalin.sc:31036:1069126 */ /* x220828 stalin.sc:31036:1069135 */ /* x220827 stalin.sc:31036:1069136 */ t3274 = a32570; p18694 = t3274; /* x224255 */ /* x224250 */ /* x224249 */ /* x224252 */ /* x224251 */ /* x224254 */ /* x224253 */ /* x224248 */ t3275 = p18694; p18695 = t3275; /* x224247 */ /* x224167 */ /* x224166 */ a32580 = p18695->p18678; /* x224181 */ /* x224180 */ a32579 = p18695->p18678; /* x224246 */ /* x224245 */ a32578 = p18695; /* x224155 */ t3276 = p18695->p18678; p18696 = t3276; /* x224154 stalin.sc:30518:1050808 */ /* x224152 stalin.sc:30518:1050826 */ t3278 = q7; /* x224153 stalin.sc:30518:1050845 */ /* x224151 */ /* x224150 */ /* x224149 */ /* x224148 */ t3280 = p18696; p18697 = t3280; /* x224147 */ /* x224146 */ /* x224145 */ /* x220841 */ t3281 = p18697; p18698 = t3281; /* x220840 stalin.sc:30518:1050813 */ t3277 = p18698; t3279 = (struct structure_type24753 *)NULL_TYPE; t3235 = f18699(t3277, t3278, t3279); /* x220826 */ a32575 = t3235; /* x220825 stalin.sc:31037:1069163 */ /* x220744 stalin.sc:31038:1069177 */ /* x220743 stalin.sc:31038:1069190 */ /* x220742 stalin.sc:31038:1069210 */ t3237 = a32575; /* x220741 stalin.sc:31038:1069191 */ a40461 = t3237; /* x294513 */ /* x294512 */ t3238 = a40461; /* x294511 */ if (!((t3238.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 35378]"); structure_ref_error();} t3236 = t3238.value.structure_type27510->s9; /* x267897 stalin.sc:31038:1069178 */ if (!((t3236.tag)==EOF_OBJECT_TYPE)) goto l902; /* x220749 */ /* x220748 */ /* x220747 stalin.sc:31038:1069214 */ /* x220746 stalin.sc:31038:1069223 */ t3272 = a32574; /* x220745 stalin.sc:31038:1069215 */ t3273 = f26331(t3272); t3217 = *((struct w49 *)(&t3273)); goto l903; l902: /* x220824 */ /* x220775 stalin.sc:31039:1069236 */ /* x220752 stalin.sc:31039:1069241 */ /* x220751 stalin.sc:31039:1069251 */ t3239 = a32575; /* x220750 stalin.sc:31039:1069242 */ if (f9766(t3239)==FALSE_TYPE) goto l905; /* x220773 */ /* x220758 stalin.sc:31040:1069260 */ /* x220756 stalin.sc:31040:1069263 */ /* x220755 stalin.sc:31040:1069274 */ t3242 = a32575; /* x220754 stalin.sc:31040:1069264 */ t3240 = f9734(t3242); /* x220757 stalin.sc:31040:1069277 */ t3241 = 2; /* x267896 stalin.sc:31040:1069261 */ if (!(t3240==t3241)) goto l905; /* x220771 */ /* x220764 stalin.sc:31041:1069286 */ /* x220762 stalin.sc:31041:1069294 */ /* x220761 stalin.sc:31041:1069304 */ t3246 = a32575; /* x220760 stalin.sc:31041:1069295 */ a41622 = t3246; /* x300600 stalin.sc:6964:241199 */ /* x300599 stalin.sc:6964:241207 */ t3247 = a41622; /* x300598 stalin.sc:6964:241200 */ t3243 = f9719(t3247); /* x220763 stalin.sc:31041:1069307 */ t3244 = q13; /* x220759 stalin.sc:31041:1069287 */ t3245.tag = EXTERNAL_SYMBOL_TYPE; t3245.value.external_symbol_type = t3244; if (f9745(t3243, t3245)==FALSE_TYPE) goto l905; /* x220769 */ /* x220768 stalin.sc:31042:1069335 */ /* x220767 stalin.sc:31042:1069346 */ t3249 = a32575; /* x220766 stalin.sc:31042:1069336 */ t3248 = f9722(t3249); /* x220765 stalin.sc:31042:1069324 */ if (f9742(t3248)==FALSE_TYPE) goto l905; /* x220815 */ /* x220814 */ /* x220813 stalin.sc:31043:1069352 */ /* x220812 stalin.sc:31043:1069368 */ /* x220811 stalin.sc:31043:1069389 */ /* x220810 stalin.sc:31043:1069399 */ /* x220809 stalin.sc:31043:1069410 */ t3271 = a32575; /* x220808 stalin.sc:31043:1069400 */ t3268 = f9722(t3271); /* x220807 stalin.sc:31043:1069390 */ a41114 = t3268; /* x298568 stalin.sc:6937:240340 */ /* x298567 stalin.sc:6937:240360 */ t3269 = a41114; /* x298566 stalin.sc:6937:240341 */ a42378 = t3269; /* x303010 */ /* x303009 */ t3270 = a42378; /* x303008 */ if (!((t3270.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37554]"); structure_ref_error();} t3267 = t3270.value.structure_type27510->s9; /* x220806 stalin.sc:31043:1069369 */ t3253 = f18676(t3267); /* x220805 */ a32576 = t3253; /* x220804 stalin.sc:31045:1069446 */ /* x220779 stalin.sc:31046:1069456 */ /* x220777 stalin.sc:31046:1069464 */ t3254 = a32576; /* x220778 stalin.sc:31046:1069473 */ t3255 = a667; /* x220776 stalin.sc:31046:1069457 */ /* MOVE: branching squeezed to general */ if (t3255>=((struct structure_type24753 *)VALUE_OFFSET)) {t3256.tag = STRUCTURE_TYPE24753; t3256.value.structure_type24753 = t3255;} else t3256.tag = (unsigned)t3255; if ((f26353(t3254, t3256).tag)==FALSE_TYPE) goto l911; /* x220784 */ /* x220783 */ /* x220782 stalin.sc:31046:1069485 */ /* x220781 stalin.sc:31046:1069491 */ t3266 = a32574; /* x220780 stalin.sc:31046:1069486 */ a32574 = t3266; goto h18684; goto l912; l911: /* x220803 */ /* x220802 */ /* x220801 */ /* x220800 stalin.sc:31047:1069505 */ /* x220799 stalin.sc:31047:1069522 */ /* x220797 stalin.sc:31047:1069528 */ t3264 = a32576; /* x220798 stalin.sc:31047:1069537 */ t3265 = a667; /* x267895 stalin.sc:31047:1069523 */ a667 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a667==NULL) {backtrace("stalin.sc", 31047, 1069522); out_of_memory_error();} a667->s0 = t3264; /* MOVE: branching squeezed to general */ if (t3265>=((struct structure_type24753 *)VALUE_OFFSET)) {a667->s1.tag = STRUCTURE_TYPE24753; a667->s1.value.structure_type24753 = t3265;} else a667->s1.tag = (unsigned)t3265; /* x220795 */ /* x220794 stalin.sc:31048:1069552 */ /* x220793 stalin.sc:31048:1069558 */ /* x220792 stalin.sc:31048:1069606 */ t3259 = a32574; /* x220791 stalin.sc:31048:1069566 */ /* x220790 stalin.sc:31048:1069575 */ /* x220789 stalin.sc:31048:1069595 */ t3263 = a32576; /* x220788 stalin.sc:31048:1069576 */ t3262 = f18677(t3263); /* x220787 stalin.sc:31048:1069567 */ t3258 = f26331(t3262); /* x220786 stalin.sc:31048:1069559 */ t3261.tag = STRUCTURE_TYPE24753; t3261.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3261.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31048, 1069558); out_of_memory_error();} t3261.value.structure_type24753->s0 = t3259; t3261.value.structure_type24753->s1.tag = NULL_TYPE; t3260 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t3260==NULL) {backtrace("stalin.sc", 31048, 1069558); out_of_memory_error();} t3260->s0 = *((struct w49 *)(&t3258)); t3260->s1 = t3261; t3257 = f26254(t3260); /* x220785 stalin.sc:31048:1069553 */ a32574 = t3257; goto h18684; l912: goto l906; l905: /* x220823 */ /* x220822 */ /* x220821 stalin.sc:31049:1069628 */ /* x220820 stalin.sc:31049:1069634 */ /* x220818 stalin.sc:31049:1069640 */ t3251 = a32575; /* x220819 stalin.sc:31049:1069642 */ t3252 = a32574; /* x267894 stalin.sc:31049:1069635 */ t3250 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t3250==NULL) {backtrace("stalin.sc", 31049, 1069634); out_of_memory_error();} t3250->s0 = t3251; t3250->s1 = t3252; /* x220816 stalin.sc:31049:1069629 */ a32574.tag = STRUCTURE_TYPE24753; a32574.value.structure_type24753 = t3250; goto h18684; l906: l903:;} /* x257471 */ a34212 = t3217; /* x257470 */ /* x257469 */ /* x257468 */ /* x257467 */ /* x257466 */ t3218 = a34211; /* x266606 */ if (fclose(t3218)) {backtrace_internal("[inside CALL-WITH-INPUT-FILE 27793]"); close_input_port2_error();} /* x257464 */ /* x257463 */ return a34212;} /* FOR-EACH[27755] */ void f27755(struct w36108 a34182, struct w49 a34183, struct structure_type24753 *a34184) {struct w49 a27466; /* W0 */ struct w49 a27468; /* W1 */ struct w49 a34187; /* LIST1 */ struct w49 a34191; /* LIST1 */ struct w49 a34192; /* LIST2 */ struct w49 a34196; /* LIST1 */ struct structure_type24753 *a34197; /* LISTS */ struct w49 a34201; /* LISTS */ struct structure_type24753 *a34202; /* C */ struct w49 a34205; /* LISTS */ struct structure_type24753 *a34206; /* C */ struct structure_type24753 *t3283; struct w49 t3284; struct structure_type24753 *t3285; struct w49 t3286; struct structure_type24753 *t3287; struct w49 t3288; struct w49 t3290; struct structure_type24753 *t3291; struct w16638 t3292; struct structure_type24753 *t3293; struct w49 t3294; struct w49 t3295; struct structure_type24753 *t3296; struct w16638 t3297; struct w49 t3298; struct structure_type24753 *t3299; struct w49 t3300; struct w16638 t3301; struct structure_type24753 *t3302; struct w36108 t3303; struct w49 t3304; struct structure_type24753 *t3305; struct w49 t3306; struct w49 t3307; struct w49 t3308; struct w49 t3309; struct w49 t3310; struct w49 t3311; struct w49 t3312; struct w49 t3313; struct w49 t3314; struct w49 t3315; struct w49 t3316; struct w49 t3317; struct w49 t3318; struct w49 t3319; struct w49 t3320; struct w49 t3321; struct w49 t3322; struct w49 t3323; struct w49 t3324; struct w49 t3325; struct w49 t3326; struct w49 t3327; struct w49 t3328; struct w49 t3329; struct w49 t3330; struct w49 t3331; struct w49 t3332; struct w49 t3333; struct w49 t3334; struct w49 t3335; struct w49 t3336; struct w49 t3337; struct w49 t3338; struct w49 t3339; struct w49 t3340; struct w49 t3341; struct w49 t3342; struct w49 t3343; struct w49 t3344; struct w49 t3345; struct w49 t3346; struct w49 t3347; struct w49 t3348; struct w49 t3349; struct w49 t3350; struct w49 t3351; struct w49 t3352; struct w49 t3353; struct w49 t3354; struct w49 t3355; struct w49 t3356; struct w49 t3357; struct w49 t3358; struct w49 t3359; struct w49 t3360; struct w49 t3361; struct w49 t3362; struct w49 t3363; struct w49 t3364; struct w49 t3365; struct w49 t3366; struct w49 t3367; struct w49 t3368; struct w49 t3369; struct w49 t3370; struct w49 t3371; struct w49 t3372; struct w49 t3373; struct w49 t3374; struct w49 t3375; struct w49 t3376; struct w49 t3377; struct w49 t3378; struct w49 t3379; struct w49 t3380; struct w49 t3381; struct w49 t3382; struct w49 t3383; struct w49 t3384; struct w49 t3385; struct w49 t3386; struct w49 t3387; struct w49 t3388; struct w49 t3389; struct w49 t3390; struct w49 t3391; struct w49 t3392; struct w49 t3393; struct w49 t3394; struct w49 t3395; struct w49 t3396; struct w49 t3397; struct w49 t3398; struct w49 t3399; struct w49 t3400; struct w49 t3401; struct w49 t3402; struct w49 t3403; struct w49 t3404; struct w49 t3405; struct w49 t3406; struct w49 t3407; struct w49 t3408; struct w49 t3409; struct w49 t3410; struct w49 t3411; struct w49 t3412; struct w49 t3413; struct w49 t3414; struct w49 t3415; struct w49 t3416; struct w49 t3417; struct w49 t3418; struct w49 t3419; struct w49 t3420; struct w49 t3421; struct w49 t3422; struct w49 t3423; struct w49 t3424; struct w49 t3425; struct w49 t3426; struct w49 t3427; struct w49 t3428; struct w49 t3429; struct w49 t3430; struct w49 t3431; struct w49 t3432; struct w49 t3433; struct w49 t3434; struct w49 t3435; struct w49 t3436; struct w49 t3437; struct w49 t3438; struct w49 t3439; struct w49 t3440; struct w49 t3441; struct w49 t3442; struct w49 t3443; struct w49 t3444; struct w49 t3445; struct w49 t3446; struct w49 t3447; struct w49 t3448; struct w49 t3449; struct w49 t3450; struct w49 t3451; struct w49 t3452; struct w49 t3453; struct w49 t3454; struct w49 t3455; struct w49 t3456; struct w49 t3457; struct w49 t3458; struct w49 t3459; struct w49 t3460; struct w49 t3461; struct w49 t3462; struct w49 t3463; struct w49 t3464; struct w49 t3465; struct w49 t3466; struct w49 t3467; struct w49 t3468; struct w49 t3469; struct w49 t3470; struct w49 t3471; struct w49 t3472; struct w49 t3473; struct w49 t3474; struct w49 t3475; struct w49 t3476; struct w49 t3477; struct w49 t3478; struct w49 t3479; struct w49 t3480; struct w49 t3481; struct w49 t3482; struct w49 t3483; struct w49 t3484; struct w49 t3485; struct w49 t3486; struct w49 t3487; struct w49 t3488; struct w49 t3489; struct w49 t3490; struct w49 t3491; struct w49 t3492; struct w49 t3493; struct w49 t3494; struct w49 t3495; struct w49 t3496; struct w49 t3497; struct w49 t3498; struct w49 t3499; struct w49 t3500; struct w49 t3501; struct w49 t3502; struct w49 t3503; struct w49 t3504; struct w49 t3505; struct w49 t3506; struct w49 t3507; struct w49 t3508; struct w49 t3509; struct w49 t3510; struct w49 t3511; struct w49 t3512; struct w49 t3513; struct w49 t3514; struct w49 t3515; struct w49 t3516; struct w49 t3517; struct w49 t3518; struct w49 t3519; struct w49 t3520; struct w49 t3521; struct w49 t3522; struct w49 t3523; struct w49 t3524; struct w49 t3525; struct w49 t3526; struct w49 t3527; struct w49 t3528; struct w49 t3529; struct w49 t3530; struct w49 t3531; struct w49 t3532; struct w49 t3533; struct w49 t3534; struct w49 t3535; struct w49 t3536; struct w49 t3537; struct w49 t3538; struct w49 t3539; struct w49 t3540; struct w49 t3541; struct w49 t3542; struct w49 t3543; struct w49 t3544; struct w49 t3545; struct w49 t3546; struct w49 t3547; struct w49 t3548; struct w49 t3549; struct w49 t3550; struct w49 t3551; struct w49 t3552; struct w49 t3553; struct w49 t3554; struct w49 t3555; struct w49 t3556; struct w49 t3557; struct w49 t3558; struct w49 t3559; struct w49 t3560; struct w49 t3561; struct w49 t3562; struct w49 t3563; struct w49 t3564; struct w49 t3565; struct w49 t3566; struct w49 t3567; struct w49 t3568; struct w49 t3569; struct w49 t3570; struct w49 t3571; struct w49 t3572; struct w49 t3573; struct w49 t3574; struct w49 t3575; struct w49 t3576; struct w49 t3577; struct w49 t3578; struct w49 t3579; struct w49 t3580; struct w49 t3581; struct w49 t3582; struct w49 t3583; struct w49 t3584; struct w49 t3585; struct w49 t3586; struct w49 t3587; struct w49 t3588; struct w49 t3589; struct w49 t3590; struct w49 t3591; struct w49 t3592; struct w49 t3593; struct w49 t3594; struct w49 t3595; struct w49 t3596; struct w49 t3597; struct w49 t3598; struct w49 t3599; struct w49 t3600; struct w49 t3601; struct w49 t3602; struct w49 t3603; struct structure_type27501 *t3604; struct w49 t3605; struct w49 t3606; struct w12218 t3607; struct w49 t3608; struct w49 t3609; struct w49 t3610; struct structure_type27501 *t3611; struct w49 t3612; struct w49 t3613; struct w49 t3614; struct w49 t3615; struct w49 t3616; struct w49 t3617; struct w49 t3618; struct w49 t3619; struct w49 t3620; struct w49 t3621; struct w49 t3622; struct w49 t3623; struct w49 t3624; struct w49 t3625; struct w49 t3626; struct w49 t3627; struct w49 t3628; struct w49 t3629; struct w49 t3630; struct w49 t3631; struct w49 t3632; struct w49 t3633; struct w49 t3634; struct w49 t3635; struct w16638 t3636; struct structure_type24753 *t3637; struct w49 t3638; struct w49 t3639; struct structure_type24753 *t3640; struct w16638 t3641; struct w49 t3642; struct structure_type24753 *t3643; struct w49 t3644; struct w16638 t3645; struct structure_type24753 *t3646; struct w49 t3647; struct w49 t3648; struct w49 t3649; struct w49 t3650; struct w49 t3651; struct w16638 t3652; struct w49 t3653; struct w36108 t3654; struct w49 t3655; struct w49 t3656; struct w16638 t3657; struct w49 t3658; struct structure_type24753 *t3659; struct w49 t3660; struct w49 t3661; struct w49 t3663; struct w16638 t3664; struct w36108 t3665; struct w49 t3666; struct w16638 t3667; /* x257451 */ /* x257264 */ /* x257263 */ t3283 = a34184; /* x266635 */ if (!(((unsigned)t3283)==NULL_TYPE)) goto l914; /* x257299 */ /* x257298 */ /* x257297 */ /* x257296 */ t3660 = a34183; /* x257295 */ /* x257294 */ /* x257293 */ /* x257292 */ /* x257291 */ /* x257290 */ /* x257289 */ /* x257266 */ /* x257265 */ a34187 = t3660; h27759: /* x257288 */ /* x257271 */ /* x257270 */ /* x257269 */ t3661 = a34187; /* x266633 */ if ((t3661.tag)==NULL_TYPE) goto l931; /* x257285 */ /* x257284 */ /* x257283 */ /* x257282 */ /* x257281 */ /* x257280 */ t3667 = *((struct w16638 *)(&a34187)); /* x266631 */ if (!((t3667.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 27760]"); structure_ref_error();} t3666 = t3667.value.structure_type24753->s0; /* x257278 */ t3665 = a34182; switch (t3665.tag) {case NATIVE_PROCEDURE_TYPE7105: f10873(t3666); break; case NATIVE_PROCEDURE_TYPE7110: f10634(t3666); break; case NATIVE_PROCEDURE_TYPE7123: f10405(t3666); break; case NATIVE_PROCEDURE_TYPE7125: f10394(t3666); break; case NATIVE_PROCEDURE_TYPE11214: f780((t3665.value.native_procedure_type11214), t3666); break; case NATIVE_PROCEDURE_TYPE11291: f850((t3665.value.native_procedure_type11291), t3666); break; case NATIVE_PROCEDURE_TYPE15112: f19576(t3666); break; case NATIVE_PROCEDURE_TYPE15115: f13953(t3666); break; case NATIVE_PROCEDURE_TYPE15129: f15137(t3666); break; case NATIVE_PROCEDURE_TYPE15207: f13951(t3666); break; case NATIVE_PROCEDURE_TYPE15218: f13931(t3666); break; case NATIVE_PROCEDURE_TYPE15221: f13805(t3666); break; case NATIVE_PROCEDURE_TYPE15224: f19556(t3666); break; case NATIVE_PROCEDURE_TYPE15225: f19557((t3665.value.native_procedure_type15225), t3666); break; case NATIVE_PROCEDURE_TYPE15227: f19549(t3666); break; case NATIVE_PROCEDURE_TYPE15247: f19541(t3666); break; case NATIVE_PROCEDURE_TYPE15255: f19515(t3666); break; case NATIVE_PROCEDURE_TYPE15262: f19467(t3666); break; case NATIVE_PROCEDURE_TYPE15285: f19406(t3666); break; case NATIVE_PROCEDURE_TYPE15298: f19381(t3666); break; case NATIVE_PROCEDURE_TYPE15311: f13047(t3666); break; case NATIVE_PROCEDURE_TYPE15312: f13048(t3666); break; case NATIVE_PROCEDURE_TYPE15313: f13045(t3666); break; case NATIVE_PROCEDURE_TYPE15319: f13038(t3666); break; case NATIVE_PROCEDURE_TYPE15320: f14225(t3666); break; case NATIVE_PROCEDURE_TYPE15324: f14224(t3666); break; case NATIVE_PROCEDURE_TYPE15328: f14223(t3666); break; case NATIVE_PROCEDURE_TYPE15331: f14222(t3666); break; case NATIVE_PROCEDURE_TYPE15341: f14213(t3666); break; case NATIVE_PROCEDURE_TYPE15358: f14205(t3666); break; case NATIVE_PROCEDURE_TYPE15363: f14196(t3666); break; case NATIVE_PROCEDURE_TYPE15365: f14178(t3666); break; case NATIVE_PROCEDURE_TYPE15375: f13031(t3666); break; case NATIVE_PROCEDURE_TYPE15376: f13030(t3666); break; case NATIVE_PROCEDURE_TYPE15377: f13029(t3666); break; case NATIVE_PROCEDURE_TYPE15389: f13025(t3666); break; case NATIVE_PROCEDURE_TYPE15392: f13018(t3666); break; case NATIVE_PROCEDURE_TYPE15400: f11441(t3666); break; case NATIVE_PROCEDURE_TYPE15401: f11463(t3666); break; case NATIVE_PROCEDURE_TYPE15402: f11457(t3666); break; case NATIVE_PROCEDURE_TYPE15406: f11415(t3666); break; case NATIVE_PROCEDURE_TYPE15414: f11409(t3666); break; case NATIVE_PROCEDURE_TYPE15417: f11397(t3666); break; case NATIVE_PROCEDURE_TYPE15420: f11385(t3666); break; case NATIVE_PROCEDURE_TYPE15423: f11371(t3666); break; case NATIVE_PROCEDURE_TYPE15424: f11379(t3666); break; case NATIVE_PROCEDURE_TYPE15426: f11364(t3666); break; case NATIVE_PROCEDURE_TYPE15428: f11365(t3666); break; case NATIVE_PROCEDURE_TYPE15429: f11350(t3666); break; case NATIVE_PROCEDURE_TYPE15433: f11330(t3666); break; case NATIVE_PROCEDURE_TYPE15437: f11324(t3666); break; case NATIVE_PROCEDURE_TYPE15440: f11255(t3666); break; case NATIVE_PROCEDURE_TYPE15472: f13012(t3666); break; case NATIVE_PROCEDURE_TYPE15474: f13011(t3666); break; case NATIVE_PROCEDURE_TYPE15475: f13010(t3666); break; case NATIVE_PROCEDURE_TYPE15476: f13009(t3666); break; case NATIVE_PROCEDURE_TYPE15477: f13008(t3666); break; case NATIVE_PROCEDURE_TYPE15478: f13007(t3666); break; case NATIVE_PROCEDURE_TYPE15479: f13006(t3666); break; case NATIVE_PROCEDURE_TYPE15480: f13000(t3666); break; case NATIVE_PROCEDURE_TYPE15482: f13004(t3666); break; case NATIVE_PROCEDURE_TYPE15561: f12984(t3666); break; case NATIVE_PROCEDURE_TYPE15563: f12971(t3666); break; case NATIVE_PROCEDURE_TYPE15575: f12773(t3666); break; case NATIVE_PROCEDURE_TYPE15579: f12777((t3665.value.native_procedure_type15579), t3666); break; case NATIVE_PROCEDURE_TYPE15580: f12762(t3666); break; case NATIVE_PROCEDURE_TYPE15584: f12766((t3665.value.native_procedure_type15584), t3666); break; case NATIVE_PROCEDURE_TYPE15585: f12751(t3666); break; case NATIVE_PROCEDURE_TYPE15589: f12755((t3665.value.native_procedure_type15589), t3666); break; case NATIVE_PROCEDURE_TYPE15591: f12740(t3666); break; case NATIVE_PROCEDURE_TYPE15593: f12742((t3665.value.native_procedure_type15593), t3666); break; case NATIVE_PROCEDURE_TYPE15594: f12739(t3666); break; case NATIVE_PROCEDURE_TYPE15596: f12732(t3666); break; case NATIVE_PROCEDURE_TYPE15598: f12697(t3666); break; case NATIVE_PROCEDURE_TYPE15604: f12694(t3666); break; case NATIVE_PROCEDURE_TYPE15605: f12695(t3666); break; case NATIVE_PROCEDURE_TYPE15606: f12677(t3666); break; case NATIVE_PROCEDURE_TYPE15608: f12668(t3666); break; case NATIVE_PROCEDURE_TYPE15612: f11568((t3665.value.native_procedure_type15612), t3666); break; case NATIVE_PROCEDURE_TYPE15620: f12665(t3666); break; case NATIVE_PROCEDURE_TYPE15623: f12658(t3666); break; case NATIVE_PROCEDURE_TYPE15631: f12653(t3666); break; case NATIVE_PROCEDURE_TYPE15676: f11082(t3666); break; case NATIVE_PROCEDURE_TYPE15678: f11072(t3666); break; case NATIVE_PROCEDURE_TYPE15695: f11061(t3666); break; case NATIVE_PROCEDURE_TYPE15702: f11054(t3666); break; case NATIVE_PROCEDURE_TYPE15703: f11051(t3666); break; case NATIVE_PROCEDURE_TYPE15733: f11044(t3666); break; case NATIVE_PROCEDURE_TYPE15734: f11041(t3666); break; case NATIVE_PROCEDURE_TYPE15735: f11039(t3666); break; case NATIVE_PROCEDURE_TYPE15737: f11034(t3666); break; case NATIVE_PROCEDURE_TYPE15738: f11032(t3666); break; case NATIVE_PROCEDURE_TYPE15794: f12402(t3666); break; case NATIVE_PROCEDURE_TYPE15796: f12383(t3666); break; case NATIVE_PROCEDURE_TYPE15797: f12381(t3666); break; case NATIVE_PROCEDURE_TYPE15803: f12368(t3666); break; case NATIVE_PROCEDURE_TYPE15807: f8570(t3666); break; case NATIVE_PROCEDURE_TYPE15811: f8714(t3666); break; case NATIVE_PROCEDURE_TYPE15815: f8455(t3666); break; case NATIVE_PROCEDURE_TYPE15819: f8440(t3666); break; case NATIVE_PROCEDURE_TYPE15823: f8425(t3666); break; case NATIVE_PROCEDURE_TYPE15827: f8410(t3666); break; case NATIVE_PROCEDURE_TYPE15831: f8886(t3666); break; case NATIVE_PROCEDURE_TYPE15846: f8868(t3666); break; case NATIVE_PROCEDURE_TYPE15862: f8859(t3666); break; case NATIVE_PROCEDURE_TYPE15880: f8848(t3666); break; case NATIVE_PROCEDURE_TYPE15900: f12351(t3666); break; case NATIVE_PROCEDURE_TYPE15901: f12348(t3666); break; case NATIVE_PROCEDURE_TYPE15902: f12346(t3666); break; case NATIVE_PROCEDURE_TYPE15905: f12344(t3666); break; case NATIVE_PROCEDURE_TYPE15913: f12343(t3666); break; case NATIVE_PROCEDURE_TYPE15914: f12342(t3666); break; case NATIVE_PROCEDURE_TYPE15915: f12341(t3666); break; case NATIVE_PROCEDURE_TYPE15916: f12340(t3666); break; case NATIVE_PROCEDURE_TYPE15934: f12308(t3666); break; case NATIVE_PROCEDURE_TYPE15937: f12301(t3666); break; case NATIVE_PROCEDURE_TYPE15945: f12303((t3665.value.native_procedure_type15945), t3666); break; case NATIVE_PROCEDURE_TYPE15947: f12282(t3666); break; case NATIVE_PROCEDURE_TYPE15950: f12275(t3666); break; case NATIVE_PROCEDURE_TYPE15953: f12277((t3665.value.native_procedure_type15953), t3666); break; case NATIVE_PROCEDURE_TYPE15962: f12244(t3666); break; case NATIVE_PROCEDURE_TYPE15965: f12256((t3665.value.native_procedure_type15965), t3666); break; case NATIVE_PROCEDURE_TYPE15968: f12247(t3666); break; case NATIVE_PROCEDURE_TYPE15973: f12227(t3666); break; case NATIVE_PROCEDURE_TYPE15974: f12223(t3666); break; case NATIVE_PROCEDURE_TYPE15975: f12219(t3666); break; case NATIVE_PROCEDURE_TYPE15984: f8667(t3666); break; case NATIVE_PROCEDURE_TYPE15987: f12192(t3666); break; case NATIVE_PROCEDURE_TYPE15988: f9026(t3666); break; case NATIVE_PROCEDURE_TYPE15991: f9025(t3666); break; case NATIVE_PROCEDURE_TYPE15994: f9024(t3666); break; case NATIVE_PROCEDURE_TYPE15997: f9023(t3666); break; case NATIVE_PROCEDURE_TYPE16000: f9022(t3666); break; case NATIVE_PROCEDURE_TYPE16003: f9021(t3666); break; case NATIVE_PROCEDURE_TYPE16007: f9020(t3666); break; case NATIVE_PROCEDURE_TYPE16010: f9019(t3666); break; case NATIVE_PROCEDURE_TYPE16014: f9018(t3666); break; case NATIVE_PROCEDURE_TYPE16018: f9017(t3666); break; case NATIVE_PROCEDURE_TYPE16023: f9016(t3666); break; case NATIVE_PROCEDURE_TYPE16046: f12208(t3666); break; case NATIVE_PROCEDURE_TYPE16050: f9029(t3666); break; case NATIVE_PROCEDURE_TYPE16054: f12198((t3665.value.native_procedure_type16054), t3666); break; case NATIVE_PROCEDURE_TYPE16057: f12177(t3666); break; case NATIVE_PROCEDURE_TYPE16059: f12146(t3666); break; case NATIVE_PROCEDURE_TYPE16060: f12138(t3666); break; case NATIVE_PROCEDURE_TYPE16061: f12137(t3666); break; case NATIVE_PROCEDURE_TYPE16064: f12119(t3666); break; case NATIVE_PROCEDURE_TYPE16069: f12135(t3666); break; case NATIVE_PROCEDURE_TYPE16071: f12125((t3665.value.native_procedure_type16071), t3666); break; case NATIVE_PROCEDURE_TYPE16074: f12040(t3666); break; case NATIVE_PROCEDURE_TYPE16075: f12026(t3666); break; case NATIVE_PROCEDURE_TYPE16077: f12025(t3666); break; case NATIVE_PROCEDURE_TYPE16090: f12024(t3666); break; case NATIVE_PROCEDURE_TYPE16091: f12023(t3666); break; case NATIVE_PROCEDURE_TYPE16092: f12022(t3666); break; case NATIVE_PROCEDURE_TYPE16093: f12021(t3666); break; case NATIVE_PROCEDURE_TYPE16094: f12020(t3666); break; case NATIVE_PROCEDURE_TYPE16095: f12019(t3666); break; case NATIVE_PROCEDURE_TYPE16096: f12018(t3666); break; case NATIVE_PROCEDURE_TYPE16097: f12017(t3666); break; case NATIVE_PROCEDURE_TYPE16098: f12016(t3666); break; case NATIVE_PROCEDURE_TYPE16099: f12015(t3666); break; case NATIVE_PROCEDURE_TYPE16101: f12014(t3666); break; case NATIVE_PROCEDURE_TYPE16102: f12009(t3666); break; case NATIVE_PROCEDURE_TYPE16103: f12006(t3666); break; case NATIVE_PROCEDURE_TYPE16106: f12005(t3666); break; case NATIVE_PROCEDURE_TYPE16107: f12001(t3666); break; case NATIVE_PROCEDURE_TYPE16108: f11999(t3666); break; case NATIVE_PROCEDURE_TYPE16112: f11938(t3666); break; case NATIVE_PROCEDURE_TYPE16113: f9422(t3666); break; case NATIVE_PROCEDURE_TYPE16122: f9410(t3666); break; case NATIVE_PROCEDURE_TYPE16126: f11933(t3666); break; case NATIVE_PROCEDURE_TYPE16127: f11932(t3666); break; case NATIVE_PROCEDURE_TYPE16130: f11909(t3666); break; case NATIVE_PROCEDURE_TYPE16140: f11861(t3666); break; case NATIVE_PROCEDURE_TYPE16143: f11857(t3666); break; case NATIVE_PROCEDURE_TYPE16146: f11784(t3666); break; case NATIVE_PROCEDURE_TYPE16149: f11783(t3666); break; case NATIVE_PROCEDURE_TYPE16152: f11782(t3666); break; case NATIVE_PROCEDURE_TYPE16156: f11771(t3666); break; case NATIVE_PROCEDURE_TYPE16174: f10998(t3666); break; case NATIVE_PROCEDURE_TYPE16175: f10995(t3666); break; case NATIVE_PROCEDURE_TYPE16177: f10989(t3666); break; case NATIVE_PROCEDURE_TYPE16179: f10983(t3666); break; case NATIVE_PROCEDURE_TYPE16181: f10976(t3666); break; case NATIVE_PROCEDURE_TYPE16183: f10978(t3666); break; case NATIVE_PROCEDURE_TYPE16184: f10973(t3666); break; case NATIVE_PROCEDURE_TYPE16190: f10910(t3666); break; case NATIVE_PROCEDURE_TYPE16202: f10900(t3666); break; case NATIVE_PROCEDURE_TYPE16228: f10899(t3666); break; case NATIVE_PROCEDURE_TYPE16230: f10894(t3666); break; case NATIVE_PROCEDURE_TYPE16232: f10888(t3666); break; case NATIVE_PROCEDURE_TYPE16240: f8101((t3665.value.native_procedure_type16240), t3666); break; case NATIVE_PROCEDURE_TYPE16350: f8183((t3665.value.native_procedure_type16350), t3666); break; case NATIVE_PROCEDURE_TYPE16351: f12826(t3666); break; case NATIVE_PROCEDURE_TYPE16375: f7194(t3666); break; case NATIVE_PROCEDURE_TYPE16417: f12880(t3666); break; case NATIVE_PROCEDURE_TYPE16433: f12057(t3666); break; case NATIVE_PROCEDURE_TYPE16473: f8091(t3666); break; case NATIVE_PROCEDURE_TYPE16476: f8089(t3666); break; case NATIVE_PROCEDURE_TYPE16487: f11399(t3666); break; case NATIVE_PROCEDURE_TYPE16530: f12978((t3665.value.native_procedure_type16530), t3666); break; case NATIVE_PROCEDURE_TYPE16640: f12940(t3666); break; case NATIVE_PROCEDURE_TYPE16665: f10487(t3666); break; case NATIVE_PROCEDURE_TYPE16670: f10461(t3666); break; case NATIVE_PROCEDURE_TYPE16674: f10458(t3666); break; case NATIVE_PROCEDURE_TYPE16676: f10395((t3665.value.native_procedure_type16676), t3666); break; case NATIVE_PROCEDURE_TYPE16677: f10404(t3666); break; case NATIVE_PROCEDURE_TYPE16693: f10313(t3666); break; case NATIVE_PROCEDURE_TYPE16705: f10384(t3666); break; case NATIVE_PROCEDURE_TYPE16782: f11319(t3666); break; case NATIVE_PROCEDURE_TYPE16835: f19378(t3666); break; case NATIVE_PROCEDURE_TYPE16836: f19374(t3666); break; case NATIVE_PROCEDURE_TYPE16887: f12392(t3666); break; case NATIVE_PROCEDURE_TYPE17039: f19501(t3666); break; case NATIVE_PROCEDURE_TYPE17077: f10255(t3666); break; case NATIVE_PROCEDURE_TYPE17124: f11498(t3666); break; case NATIVE_PROCEDURE_TYPE17133: f11779(t3666); break; case NATIVE_PROCEDURE_TYPE17196: f10252(t3666); break; case NATIVE_PROCEDURE_TYPE17197: f10251(t3666); break; case NATIVE_PROCEDURE_TYPE17204: f10249(t3666); break; case NATIVE_PROCEDURE_TYPE17209: f10204(t3666); break; case NATIVE_PROCEDURE_TYPE17212: f10207(t3666); break; case NATIVE_PROCEDURE_TYPE17254: f10155(t3666); break; case NATIVE_PROCEDURE_TYPE17257: f10114(t3666); break; case NATIVE_PROCEDURE_TYPE17260: f10117(t3666); break; case NATIVE_PROCEDURE_TYPE17290: f10110(t3666); break; case NATIVE_PROCEDURE_TYPE17294: f10067(t3666); break; case NATIVE_PROCEDURE_TYPE17297: f10070(t3666); break; case NATIVE_PROCEDURE_TYPE17334: f10066(t3666); break; case NATIVE_PROCEDURE_TYPE17335: f10065(t3666); break; case NATIVE_PROCEDURE_TYPE17408: f11764(t3666); break; case NATIVE_PROCEDURE_TYPE17410: f11762(t3666); break; case NATIVE_PROCEDURE_TYPE17418: f11669(t3666); break; case NATIVE_PROCEDURE_TYPE17469: f10411((t3665.value.native_procedure_type17469), t3666); break; case NATIVE_PROCEDURE_TYPE17476: f12096(t3666); break; case NATIVE_PROCEDURE_TYPE17478: f11580((t3665.value.native_procedure_type17478), t3666); break; case NATIVE_PROCEDURE_TYPE17505: f10613(t3666); break; case NATIVE_PROCEDURE_TYPE17597: f10640(t3666); break; case NATIVE_PROCEDURE_TYPE17730: f10628(t3666); break; case NATIVE_PROCEDURE_TYPE17816: f12458(t3666); break; case NATIVE_PROCEDURE_TYPE17836: f11332(t3666); break; case NATIVE_PROCEDURE_TYPE17861: f12386((t3665.value.native_procedure_type17861), t3666); break; case NATIVE_PROCEDURE_TYPE17900: f11546((t3665.value.native_procedure_type17900), t3666); break; case NATIVE_PROCEDURE_TYPE17946: f11751((t3665.value.native_procedure_type17946), t3666); break; case NATIVE_PROCEDURE_TYPE17963: f11607(t3666); break; case NATIVE_PROCEDURE_TYPE18028: f10159(t3666); break; case NATIVE_PROCEDURE_TYPE18153: f8328((t3665.value.native_procedure_type18153), t3666); break; case NATIVE_PROCEDURE_TYPE18195: f11588(t3666); break; case NATIVE_PROCEDURE_TYPE18201: f19400(t3666); break; case NATIVE_PROCEDURE_TYPE18206: f19392(t3666); break; case NATIVE_PROCEDURE_TYPE18210: f19396(t3666); break; case NATIVE_PROCEDURE_TYPE18311: f19388(t3666); break; case NATIVE_PROCEDURE_TYPE18371: f11443(t3666); break; case NATIVE_PROCEDURE_TYPE18402: f10752((t3665.value.native_procedure_type18402), t3666); break; case NATIVE_PROCEDURE_TYPE18404: f12168((t3665.value.native_procedure_type18404), t3666); break; case NATIVE_PROCEDURE_TYPE18412: f12167(t3666); break; case NATIVE_PROCEDURE_TYPE18414: f12158(t3666); break; case NATIVE_PROCEDURE_TYPE18420: f9084((t3665.value.native_procedure_type18420), t3666); break; case NATIVE_PROCEDURE_TYPE18435: f9102((t3665.value.native_procedure_type18435), t3666); break; case NATIVE_PROCEDURE_TYPE18438: f9104((t3665.value.native_procedure_type18438), t3666); break; case NATIVE_PROCEDURE_TYPE18447: f12105((t3665.value.native_procedure_type18447), t3666); break; case NATIVE_PROCEDURE_TYPE18817: f19473(t3666); break; case NATIVE_PROCEDURE_TYPE18825: f19412(t3666); break; case NATIVE_PROCEDURE_TYPE18829: f19415(t3666); break; case NATIVE_PROCEDURE_TYPE18918: f12684(t3666); break; case NATIVE_PROCEDURE_TYPE18920: f12681(t3666); break; case NATIVE_PROCEDURE_TYPE18935: f8273(t3666); break; case NATIVE_PROCEDURE_TYPE18943: f8262(t3666); break; case NATIVE_PROCEDURE_TYPE18964: f12075((t3665.value.native_procedure_type18964), t3666); break; case NATIVE_PROCEDURE_TYPE19018: f19504(t3666); break; case NATIVE_PROCEDURE_TYPE19046: f19543(t3666); break; case NATIVE_PROCEDURE_TYPE19056: f19523(t3666); break; case NATIVE_PROCEDURE_TYPE19245: f11088(t3666); break; case NATIVE_PROCEDURE_TYPE19249: f11176(t3666); break; case NATIVE_PROCEDURE_TYPE19256: f11168(t3666); break; case NATIVE_PROCEDURE_TYPE19263: f11160(t3666); break; case NATIVE_PROCEDURE_TYPE19270: f11152(t3666); break; case NATIVE_PROCEDURE_TYPE19277: f11144(t3666); break; case NATIVE_PROCEDURE_TYPE19284: f11136(t3666); break; case NATIVE_PROCEDURE_TYPE19296: f11121(t3666); break; case NATIVE_PROCEDURE_TYPE19403: f11097(t3666); break; case NATIVE_PROCEDURE_TYPE19575: f11515((t3665.value.native_procedure_type19575), t3666); break; case NATIVE_PROCEDURE_TYPE19596: f9358((t3665.value.native_procedure_type19596), t3666); break; case NATIVE_PROCEDURE_TYPE19598: f9353((t3665.value.native_procedure_type19598), t3666); break; case NATIVE_PROCEDURE_TYPE20178: f19484(t3666); break; case NATIVE_PROCEDURE_TYPE20179: f19431(t3666); break; case NATIVE_PROCEDURE_TYPE20337: f8368(t3666); break; case NATIVE_PROCEDURE_TYPE20365: f11354(t3666); break; case NATIVE_PROCEDURE_TYPE20379: f8361((t3665.value.native_procedure_type20379), t3666); break; case NATIVE_PROCEDURE_TYPE20380: f8362((t3665.value.native_procedure_type20380), t3666); break; case NATIVE_PROCEDURE_TYPE20687: f12184((t3665.value.native_procedure_type20687), t3666); break; case NATIVE_PROCEDURE_TYPE22178: f15126((t3665.value.native_procedure_type22178), t3666); break; case NATIVE_PROCEDURE_TYPE22245: f14997((t3665.value.native_procedure_type22245), t3666); break; case NATIVE_PROCEDURE_TYPE22298: f17734((t3665.value.native_procedure_type22298), t3666); break; case NATIVE_PROCEDURE_TYPE22323: f15026((t3665.value.native_procedure_type22323), t3666); break; case NATIVE_PROCEDURE_TYPE22329: f15019((t3665.value.native_procedure_type22329), t3666); break; case NATIVE_PROCEDURE_TYPE22585: f11373(t3666); break; case NATIVE_PROCEDURE_TYPE22592: f12249((t3665.value.native_procedure_type22592), t3666); break; case NATIVE_PROCEDURE_TYPE22688: f12895(t3666); break; case NATIVE_PROCEDURE_TYPE22745: f7146((t3665.value.native_procedure_type22745), t3666); break; case NATIVE_PROCEDURE_TYPE23269: f12919(t3666); break; case NATIVE_PROCEDURE_TYPE23283: f11387(t3666); break; case NATIVE_PROCEDURE_TYPE23356: f7172((t3665.value.native_procedure_type23356), t3666); break; case NATIVE_PROCEDURE_TYPE23519: f11803(t3666); break; case NATIVE_PROCEDURE_TYPE23884: f11558(t3666); break; case NATIVE_PROCEDURE_TYPE24024: f8312(t3666); break; case NATIVE_PROCEDURE_TYPE24030: f8306(t3666); break; case NATIVE_PROCEDURE_TYPE24171: f19336(t3666); break; case NATIVE_PROCEDURE_TYPE24175: f19333(t3666); break; case NATIVE_PROCEDURE_TYPE24279: f10364((t3665.value.native_procedure_type24279), t3666); break; case NATIVE_PROCEDURE_TYPE24436: f12865(t3666); break; case NATIVE_PROCEDURE_TYPE24584: f19229(t3666); break; case NATIVE_PROCEDURE_TYPE24695: f12959(t3666); break; default: backtrace_internal("[inside LOOP 27760]"); call_error();} /* x257277 */ /* x257276 */ /* x257275 */ /* x257274 */ t3664 = *((struct w16638 *)(&a34187)); /* x266632 */ if (!((t3664.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 27761]"); structure_ref_error();} t3663 = t3664.value.structure_type24753->s1; /* x257272 */ a34187 = t3663; goto h27759; l931: /* x257287 */ /* x257286 */ return; l914: /* x257450 */ /* x257304 */ /* x257303 */ /* x257302 */ t3285 = a34184; /* x266629 */ t3284 = t3285->s1; /* x266630 */ if (!((t3284.tag)==NULL_TYPE)) goto l916; /* x257348 */ /* x257347 */ /* x257346 */ /* x257342 */ t3647 = a34183; /* x257345 */ /* x257344 */ t3659 = a34184; /* x266622 */ t3648 = t3659->s0; /* x257341 */ /* x257340 */ /* x257339 */ /* x257338 */ /* x257337 */ /* x257336 */ /* x257335 */ /* x257306 */ /* x257305 */ a34191 = t3647; a34192 = t3648; h27767: /* x257334 */ /* x257311 */ /* x257310 */ /* x257309 */ t3649 = a34191; /* x266627 */ if ((t3649.tag)==NULL_TYPE) goto l929; /* x257331 */ /* x257330 */ /* x257329 */ /* x257328 */ /* x257324 */ /* x257323 */ t3657 = *((struct w16638 *)(&a34191)); /* x266624 */ if (!((t3657.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 27768]"); structure_ref_error();} t3655 = t3657.value.structure_type24753->s0; /* x257327 */ /* x257326 */ t3658 = a34192; /* x266623 */ if (!((t3658.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 27768]"); structure_ref_error();} t3656 = t3658.value.structure_type24753->s0; /* x257321 */ t3654 = a34182; switch (t3654.tag) {case NATIVE_PROCEDURE_TYPE7667: f6760(t3655, t3656); break; case NATIVE_PROCEDURE_TYPE18712: f15128(t3655, t3656); break; case NATIVE_PROCEDURE_TYPE22593: f12250(t3655, t3656); break; case NATIVE_PROCEDURE_TYPE22744: f7145(t3655, t3656); break; default: backtrace_internal("[inside LOOP 27768]"); call_error();} /* x257320 */ /* x257319 */ /* x257315 */ /* x257314 */ t3652 = *((struct w16638 *)(&a34191)); /* x266626 */ if (!((t3652.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 27769]"); structure_ref_error();} t3650 = t3652.value.structure_type24753->s1; /* x257318 */ /* x257317 */ t3653 = a34192; /* x266625 */ if (!((t3653.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 27769]"); structure_ref_error();} t3651 = t3653.value.structure_type24753->s1; /* x257312 */ a34191 = t3650; a34192 = t3651; goto h27767; l929: /* x257333 */ /* x257332 */ return; l916: /* x257449 */ /* x257448 */ /* x257447 */ /* x257445 */ t3286 = a34183; /* x257446 */ t3287 = a34184; /* x257444 */ /* x257443 */ /* x257442 */ /* x257441 */ /* x257440 */ /* x257439 */ /* x257438 */ /* x257350 */ /* x257349 */ a34196 = t3286; a34197 = t3287; h27775: /* x257437 */ /* x257355 */ /* x257354 */ /* x257353 */ t3288 = a34196; /* x266620 */ if ((t3288.tag)==NULL_TYPE) goto l918; /* x257434 */ /* x257433 */ /* x257432 */ /* x257431 */ /* x257395 */ t3303 = a34182; /* x257398 */ /* x257397 */ t3636 = *((struct w16638 *)(&a34196)); /* x266612 */ if (!((t3636.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 27776]"); structure_ref_error();} t3304 = t3636.value.structure_type24753->s0; /* x257430 */ /* x257428 */ t3637 = a34197; /* x257429 */ /* x257427 */ /* x257426 */ /* x257425 */ /* x257424 */ /* x257423 */ /* x257422 */ /* x257421 */ /* x257400 */ /* x257399 */ /* MOVE: branching squeezed to general */ if (t3637>=((struct structure_type24753 *)VALUE_OFFSET)) {a34205.tag = STRUCTURE_TYPE24753; a34205.value.structure_type24753 = t3637;} else a34205.tag = (unsigned)t3637; a34206 = (struct structure_type24753 *)NULL_TYPE; h27784: /* x257420 */ /* x257403 */ /* x257402 */ t3638 = a34205; /* x266611 */ if (!((t3638.tag)==NULL_TYPE)) goto l926; /* x257406 */ /* x257405 */ t3646 = a34206; /* x257404 */ t3305 = f26326(t3646); goto l927; l926: /* x257419 */ /* x257410 */ /* x257409 */ t3641 = *((struct w16638 *)(&a34205)); /* x266610 */ if (!((t3641.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27784]"); structure_ref_error();} t3639 = t3641.value.structure_type24753->s1; /* x257418 */ /* x257416 */ /* x257415 */ /* x257414 */ t3645 = *((struct w16638 *)(&a34205)); /* x266607 */ if (!((t3645.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27784]"); structure_ref_error();} t3644 = t3645.value.structure_type24753->s0; /* x266608 */ if (!((t3644.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27784]"); structure_ref_error();} t3642 = t3644.value.structure_type24753->s0; /* x257417 */ t3643 = a34206; /* x266609 */ t3640 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t3640==NULL) {backtrace_internal("LOOP[27784]"); out_of_memory_error();} t3640->s0 = t3642; /* MOVE: branching squeezed to general */ if (t3643>=((struct structure_type24753 *)VALUE_OFFSET)) {t3640->s1.tag = STRUCTURE_TYPE24753; t3640->s1.value.structure_type24753 = t3643;} else t3640->s1.tag = (unsigned)t3643; /* x257407 */ a34205 = t3639; a34206 = t3640; goto h27784; l927: /* x266613 */ switch (t3303.tag) {case NATIVE_PROCEDURE_TYPE7105: t3306 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10873(t3306); break; case NATIVE_PROCEDURE_TYPE7110: t3307 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10634(t3307); break; case NATIVE_PROCEDURE_TYPE7123: t3308 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10405(t3308); break; case NATIVE_PROCEDURE_TYPE7125: t3309 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10394(t3309); break; case NATIVE_PROCEDURE_TYPE7667: t3310 = t3304; if (!(t3305>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[inside LOOP 27776]"); call_error();} t3311 = t3305->s0; if (!((t3305->s1.tag)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f6760(t3310, t3311); break; case NATIVE_PROCEDURE_TYPE11214: t3312 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f780((t3303.value.native_procedure_type11214), t3312); break; case NATIVE_PROCEDURE_TYPE11291: t3313 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f850((t3303.value.native_procedure_type11291), t3313); break; case NATIVE_PROCEDURE_TYPE15112: t3314 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19576(t3314); break; case NATIVE_PROCEDURE_TYPE15115: t3315 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13953(t3315); break; case NATIVE_PROCEDURE_TYPE15129: t3316 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f15137(t3316); break; case NATIVE_PROCEDURE_TYPE15207: t3317 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13951(t3317); break; case NATIVE_PROCEDURE_TYPE15218: t3318 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13931(t3318); break; case NATIVE_PROCEDURE_TYPE15221: t3319 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13805(t3319); break; case NATIVE_PROCEDURE_TYPE15224: t3320 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19556(t3320); break; case NATIVE_PROCEDURE_TYPE15225: t3321 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19557((t3303.value.native_procedure_type15225), t3321); break; case NATIVE_PROCEDURE_TYPE15227: t3322 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19549(t3322); break; case NATIVE_PROCEDURE_TYPE15247: t3323 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19541(t3323); break; case NATIVE_PROCEDURE_TYPE15255: t3324 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19515(t3324); break; case NATIVE_PROCEDURE_TYPE15262: t3325 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19467(t3325); break; case NATIVE_PROCEDURE_TYPE15285: t3326 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19406(t3326); break; case NATIVE_PROCEDURE_TYPE15298: t3327 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19381(t3327); break; case NATIVE_PROCEDURE_TYPE15311: t3328 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13047(t3328); break; case NATIVE_PROCEDURE_TYPE15312: t3329 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13048(t3329); break; case NATIVE_PROCEDURE_TYPE15313: t3330 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13045(t3330); break; case NATIVE_PROCEDURE_TYPE15319: t3331 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13038(t3331); break; case NATIVE_PROCEDURE_TYPE15320: t3332 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f14225(t3332); break; case NATIVE_PROCEDURE_TYPE15324: t3333 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f14224(t3333); break; case NATIVE_PROCEDURE_TYPE15328: t3334 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f14223(t3334); break; case NATIVE_PROCEDURE_TYPE15331: t3335 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f14222(t3335); break; case NATIVE_PROCEDURE_TYPE15341: t3336 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f14213(t3336); break; case NATIVE_PROCEDURE_TYPE15358: t3337 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f14205(t3337); break; case NATIVE_PROCEDURE_TYPE15363: t3338 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f14196(t3338); break; case NATIVE_PROCEDURE_TYPE15365: t3339 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f14178(t3339); break; case NATIVE_PROCEDURE_TYPE15375: t3340 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13031(t3340); break; case NATIVE_PROCEDURE_TYPE15376: t3341 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13030(t3341); break; case NATIVE_PROCEDURE_TYPE15377: t3342 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13029(t3342); break; case NATIVE_PROCEDURE_TYPE15389: t3343 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13025(t3343); break; case NATIVE_PROCEDURE_TYPE15392: t3344 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13018(t3344); break; case NATIVE_PROCEDURE_TYPE15400: t3345 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11441(t3345); break; case NATIVE_PROCEDURE_TYPE15401: t3346 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11463(t3346); break; case NATIVE_PROCEDURE_TYPE15402: t3347 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11457(t3347); break; case NATIVE_PROCEDURE_TYPE15406: t3348 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11415(t3348); break; case NATIVE_PROCEDURE_TYPE15414: t3349 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11409(t3349); break; case NATIVE_PROCEDURE_TYPE15417: t3350 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11397(t3350); break; case NATIVE_PROCEDURE_TYPE15420: t3351 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11385(t3351); break; case NATIVE_PROCEDURE_TYPE15423: t3352 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11371(t3352); break; case NATIVE_PROCEDURE_TYPE15424: t3353 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11379(t3353); break; case NATIVE_PROCEDURE_TYPE15426: t3354 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11364(t3354); break; case NATIVE_PROCEDURE_TYPE15428: t3355 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11365(t3355); break; case NATIVE_PROCEDURE_TYPE15429: t3356 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11350(t3356); break; case NATIVE_PROCEDURE_TYPE15433: t3357 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11330(t3357); break; case NATIVE_PROCEDURE_TYPE15437: t3358 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11324(t3358); break; case NATIVE_PROCEDURE_TYPE15440: t3359 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11255(t3359); break; case NATIVE_PROCEDURE_TYPE15472: t3360 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13012(t3360); break; case NATIVE_PROCEDURE_TYPE15474: t3361 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13011(t3361); break; case NATIVE_PROCEDURE_TYPE15475: t3362 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13010(t3362); break; case NATIVE_PROCEDURE_TYPE15476: t3363 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13009(t3363); break; case NATIVE_PROCEDURE_TYPE15477: t3364 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13008(t3364); break; case NATIVE_PROCEDURE_TYPE15478: t3365 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13007(t3365); break; case NATIVE_PROCEDURE_TYPE15479: t3366 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13006(t3366); break; case NATIVE_PROCEDURE_TYPE15480: t3367 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13000(t3367); break; case NATIVE_PROCEDURE_TYPE15482: t3368 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f13004(t3368); break; case NATIVE_PROCEDURE_TYPE15561: t3369 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12984(t3369); break; case NATIVE_PROCEDURE_TYPE15563: t3370 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12971(t3370); break; case NATIVE_PROCEDURE_TYPE15575: t3371 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12773(t3371); break; case NATIVE_PROCEDURE_TYPE15579: t3372 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12777((t3303.value.native_procedure_type15579), t3372); break; case NATIVE_PROCEDURE_TYPE15580: t3373 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12762(t3373); break; case NATIVE_PROCEDURE_TYPE15584: t3374 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12766((t3303.value.native_procedure_type15584), t3374); break; case NATIVE_PROCEDURE_TYPE15585: t3375 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12751(t3375); break; case NATIVE_PROCEDURE_TYPE15589: t3376 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12755((t3303.value.native_procedure_type15589), t3376); break; case NATIVE_PROCEDURE_TYPE15591: t3377 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12740(t3377); break; case NATIVE_PROCEDURE_TYPE15593: t3378 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12742((t3303.value.native_procedure_type15593), t3378); break; case NATIVE_PROCEDURE_TYPE15594: t3379 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12739(t3379); break; case NATIVE_PROCEDURE_TYPE15596: t3380 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12732(t3380); break; case NATIVE_PROCEDURE_TYPE15598: t3381 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12697(t3381); break; case NATIVE_PROCEDURE_TYPE15604: t3382 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12694(t3382); break; case NATIVE_PROCEDURE_TYPE15605: t3383 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12695(t3383); break; case NATIVE_PROCEDURE_TYPE15606: t3384 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12677(t3384); break; case NATIVE_PROCEDURE_TYPE15608: t3385 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12668(t3385); break; case NATIVE_PROCEDURE_TYPE15612: t3386 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11568((t3303.value.native_procedure_type15612), t3386); break; case NATIVE_PROCEDURE_TYPE15620: t3387 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12665(t3387); break; case NATIVE_PROCEDURE_TYPE15623: t3388 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12658(t3388); break; case NATIVE_PROCEDURE_TYPE15631: t3389 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12653(t3389); break; case NATIVE_PROCEDURE_TYPE15676: t3390 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11082(t3390); break; case NATIVE_PROCEDURE_TYPE15678: t3391 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11072(t3391); break; case NATIVE_PROCEDURE_TYPE15695: t3392 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11061(t3392); break; case NATIVE_PROCEDURE_TYPE15702: t3393 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11054(t3393); break; case NATIVE_PROCEDURE_TYPE15703: t3394 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11051(t3394); break; case NATIVE_PROCEDURE_TYPE15733: t3395 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11044(t3395); break; case NATIVE_PROCEDURE_TYPE15734: t3396 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11041(t3396); break; case NATIVE_PROCEDURE_TYPE15735: t3397 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11039(t3397); break; case NATIVE_PROCEDURE_TYPE15737: t3398 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11034(t3398); break; case NATIVE_PROCEDURE_TYPE15738: t3399 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11032(t3399); break; case NATIVE_PROCEDURE_TYPE15794: t3400 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12402(t3400); break; case NATIVE_PROCEDURE_TYPE15796: t3401 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12383(t3401); break; case NATIVE_PROCEDURE_TYPE15797: t3402 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12381(t3402); break; case NATIVE_PROCEDURE_TYPE15803: t3403 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12368(t3403); break; case NATIVE_PROCEDURE_TYPE15807: t3404 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8570(t3404); break; case NATIVE_PROCEDURE_TYPE15811: t3405 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8714(t3405); break; case NATIVE_PROCEDURE_TYPE15815: t3406 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8455(t3406); break; case NATIVE_PROCEDURE_TYPE15819: t3407 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8440(t3407); break; case NATIVE_PROCEDURE_TYPE15823: t3408 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8425(t3408); break; case NATIVE_PROCEDURE_TYPE15827: t3409 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8410(t3409); break; case NATIVE_PROCEDURE_TYPE15831: t3410 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8886(t3410); break; case NATIVE_PROCEDURE_TYPE15846: t3411 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8868(t3411); break; case NATIVE_PROCEDURE_TYPE15862: t3412 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8859(t3412); break; case NATIVE_PROCEDURE_TYPE15880: t3413 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8848(t3413); break; case NATIVE_PROCEDURE_TYPE15900: t3414 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12351(t3414); break; case NATIVE_PROCEDURE_TYPE15901: t3415 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12348(t3415); break; case NATIVE_PROCEDURE_TYPE15902: t3416 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12346(t3416); break; case NATIVE_PROCEDURE_TYPE15905: t3417 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12344(t3417); break; case NATIVE_PROCEDURE_TYPE15913: t3418 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12343(t3418); break; case NATIVE_PROCEDURE_TYPE15914: t3419 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12342(t3419); break; case NATIVE_PROCEDURE_TYPE15915: t3420 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12341(t3420); break; case NATIVE_PROCEDURE_TYPE15916: t3421 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12340(t3421); break; case NATIVE_PROCEDURE_TYPE15934: t3422 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12308(t3422); break; case NATIVE_PROCEDURE_TYPE15937: t3423 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12301(t3423); break; case NATIVE_PROCEDURE_TYPE15945: t3424 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12303((t3303.value.native_procedure_type15945), t3424); break; case NATIVE_PROCEDURE_TYPE15947: t3425 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12282(t3425); break; case NATIVE_PROCEDURE_TYPE15950: t3426 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12275(t3426); break; case NATIVE_PROCEDURE_TYPE15953: t3427 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12277((t3303.value.native_procedure_type15953), t3427); break; case NATIVE_PROCEDURE_TYPE15962: t3428 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12244(t3428); break; case NATIVE_PROCEDURE_TYPE15965: t3429 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12256((t3303.value.native_procedure_type15965), t3429); break; case NATIVE_PROCEDURE_TYPE15968: t3430 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12247(t3430); break; case NATIVE_PROCEDURE_TYPE15973: t3431 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12227(t3431); break; case NATIVE_PROCEDURE_TYPE15974: t3432 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12223(t3432); break; case NATIVE_PROCEDURE_TYPE15975: t3433 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12219(t3433); break; case NATIVE_PROCEDURE_TYPE15984: t3434 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8667(t3434); break; case NATIVE_PROCEDURE_TYPE15987: t3435 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12192(t3435); break; case NATIVE_PROCEDURE_TYPE15988: t3436 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f9026(t3436); break; case NATIVE_PROCEDURE_TYPE15991: t3437 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f9025(t3437); break; case NATIVE_PROCEDURE_TYPE15994: t3438 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f9024(t3438); break; case NATIVE_PROCEDURE_TYPE15997: t3439 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f9023(t3439); break; case NATIVE_PROCEDURE_TYPE16000: t3440 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f9022(t3440); break; case NATIVE_PROCEDURE_TYPE16003: t3441 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f9021(t3441); break; case NATIVE_PROCEDURE_TYPE16007: t3442 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f9020(t3442); break; case NATIVE_PROCEDURE_TYPE16010: t3443 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f9019(t3443); break; case NATIVE_PROCEDURE_TYPE16014: t3444 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f9018(t3444); break; case NATIVE_PROCEDURE_TYPE16018: t3445 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f9017(t3445); break; case NATIVE_PROCEDURE_TYPE16023: t3446 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f9016(t3446); break; case NATIVE_PROCEDURE_TYPE16046: t3447 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12208(t3447); break; case NATIVE_PROCEDURE_TYPE16050: t3448 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f9029(t3448); break; case NATIVE_PROCEDURE_TYPE16054: t3449 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12198((t3303.value.native_procedure_type16054), t3449); break; case NATIVE_PROCEDURE_TYPE16057: t3450 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12177(t3450); break; case NATIVE_PROCEDURE_TYPE16059: t3451 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12146(t3451); break; case NATIVE_PROCEDURE_TYPE16060: t3452 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12138(t3452); break; case NATIVE_PROCEDURE_TYPE16061: t3453 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12137(t3453); break; case NATIVE_PROCEDURE_TYPE16064: t3454 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12119(t3454); break; case NATIVE_PROCEDURE_TYPE16069: t3455 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12135(t3455); break; case NATIVE_PROCEDURE_TYPE16071: t3456 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12125((t3303.value.native_procedure_type16071), t3456); break; case NATIVE_PROCEDURE_TYPE16074: t3457 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12040(t3457); break; case NATIVE_PROCEDURE_TYPE16075: t3458 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12026(t3458); break; case NATIVE_PROCEDURE_TYPE16077: t3459 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12025(t3459); break; case NATIVE_PROCEDURE_TYPE16090: t3460 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12024(t3460); break; case NATIVE_PROCEDURE_TYPE16091: t3461 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12023(t3461); break; case NATIVE_PROCEDURE_TYPE16092: t3462 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12022(t3462); break; case NATIVE_PROCEDURE_TYPE16093: t3463 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12021(t3463); break; case NATIVE_PROCEDURE_TYPE16094: t3464 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12020(t3464); break; case NATIVE_PROCEDURE_TYPE16095: t3465 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12019(t3465); break; case NATIVE_PROCEDURE_TYPE16096: t3466 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12018(t3466); break; case NATIVE_PROCEDURE_TYPE16097: t3467 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12017(t3467); break; case NATIVE_PROCEDURE_TYPE16098: t3468 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12016(t3468); break; case NATIVE_PROCEDURE_TYPE16099: t3469 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12015(t3469); break; case NATIVE_PROCEDURE_TYPE16101: t3470 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12014(t3470); break; case NATIVE_PROCEDURE_TYPE16102: t3471 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12009(t3471); break; case NATIVE_PROCEDURE_TYPE16103: t3472 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12006(t3472); break; case NATIVE_PROCEDURE_TYPE16106: t3473 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12005(t3473); break; case NATIVE_PROCEDURE_TYPE16107: t3474 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12001(t3474); break; case NATIVE_PROCEDURE_TYPE16108: t3475 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11999(t3475); break; case NATIVE_PROCEDURE_TYPE16112: t3476 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11938(t3476); break; case NATIVE_PROCEDURE_TYPE16113: t3477 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f9422(t3477); break; case NATIVE_PROCEDURE_TYPE16122: t3478 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f9410(t3478); break; case NATIVE_PROCEDURE_TYPE16126: t3479 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11933(t3479); break; case NATIVE_PROCEDURE_TYPE16127: t3480 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11932(t3480); break; case NATIVE_PROCEDURE_TYPE16130: t3481 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11909(t3481); break; case NATIVE_PROCEDURE_TYPE16140: t3482 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11861(t3482); break; case NATIVE_PROCEDURE_TYPE16143: t3483 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11857(t3483); break; case NATIVE_PROCEDURE_TYPE16146: t3484 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11784(t3484); break; case NATIVE_PROCEDURE_TYPE16149: t3485 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11783(t3485); break; case NATIVE_PROCEDURE_TYPE16152: t3486 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11782(t3486); break; case NATIVE_PROCEDURE_TYPE16156: t3487 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11771(t3487); break; case NATIVE_PROCEDURE_TYPE16174: t3488 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10998(t3488); break; case NATIVE_PROCEDURE_TYPE16175: t3489 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10995(t3489); break; case NATIVE_PROCEDURE_TYPE16177: t3490 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10989(t3490); break; case NATIVE_PROCEDURE_TYPE16179: t3491 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10983(t3491); break; case NATIVE_PROCEDURE_TYPE16181: t3492 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10976(t3492); break; case NATIVE_PROCEDURE_TYPE16183: t3493 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10978(t3493); break; case NATIVE_PROCEDURE_TYPE16184: t3494 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10973(t3494); break; case NATIVE_PROCEDURE_TYPE16190: t3495 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10910(t3495); break; case NATIVE_PROCEDURE_TYPE16202: t3496 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10900(t3496); break; case NATIVE_PROCEDURE_TYPE16228: t3497 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10899(t3497); break; case NATIVE_PROCEDURE_TYPE16230: t3498 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10894(t3498); break; case NATIVE_PROCEDURE_TYPE16232: t3499 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10888(t3499); break; case NATIVE_PROCEDURE_TYPE16240: t3500 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8101((t3303.value.native_procedure_type16240), t3500); break; case NATIVE_PROCEDURE_TYPE16350: t3501 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8183((t3303.value.native_procedure_type16350), t3501); break; case NATIVE_PROCEDURE_TYPE16351: t3502 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12826(t3502); break; case NATIVE_PROCEDURE_TYPE16375: t3503 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f7194(t3503); break; case NATIVE_PROCEDURE_TYPE16417: t3504 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12880(t3504); break; case NATIVE_PROCEDURE_TYPE16433: t3505 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12057(t3505); break; case NATIVE_PROCEDURE_TYPE16473: t3506 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8091(t3506); break; case NATIVE_PROCEDURE_TYPE16476: t3507 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8089(t3507); break; case NATIVE_PROCEDURE_TYPE16487: t3508 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11399(t3508); break; case NATIVE_PROCEDURE_TYPE16530: t3509 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12978((t3303.value.native_procedure_type16530), t3509); break; case NATIVE_PROCEDURE_TYPE16640: t3510 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12940(t3510); break; case NATIVE_PROCEDURE_TYPE16665: t3511 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10487(t3511); break; case NATIVE_PROCEDURE_TYPE16670: t3512 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10461(t3512); break; case NATIVE_PROCEDURE_TYPE16674: t3513 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10458(t3513); break; case NATIVE_PROCEDURE_TYPE16676: t3514 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10395((t3303.value.native_procedure_type16676), t3514); break; case NATIVE_PROCEDURE_TYPE16677: t3515 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10404(t3515); break; case NATIVE_PROCEDURE_TYPE16693: t3516 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10313(t3516); break; case NATIVE_PROCEDURE_TYPE16705: t3517 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10384(t3517); break; case NATIVE_PROCEDURE_TYPE16782: t3518 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11319(t3518); break; case NATIVE_PROCEDURE_TYPE16835: t3519 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19378(t3519); break; case NATIVE_PROCEDURE_TYPE16836: t3520 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19374(t3520); break; case NATIVE_PROCEDURE_TYPE16887: t3521 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12392(t3521); break; case NATIVE_PROCEDURE_TYPE17039: t3522 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19501(t3522); break; case NATIVE_PROCEDURE_TYPE17077: t3523 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10255(t3523); break; case NATIVE_PROCEDURE_TYPE17124: t3524 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11498(t3524); break; case NATIVE_PROCEDURE_TYPE17133: t3525 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11779(t3525); break; case NATIVE_PROCEDURE_TYPE17196: t3526 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10252(t3526); break; case NATIVE_PROCEDURE_TYPE17197: t3527 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10251(t3527); break; case NATIVE_PROCEDURE_TYPE17204: t3528 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10249(t3528); break; case NATIVE_PROCEDURE_TYPE17209: t3529 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10204(t3529); break; case NATIVE_PROCEDURE_TYPE17212: t3530 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10207(t3530); break; case NATIVE_PROCEDURE_TYPE17254: t3531 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10155(t3531); break; case NATIVE_PROCEDURE_TYPE17257: t3532 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10114(t3532); break; case NATIVE_PROCEDURE_TYPE17260: t3533 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10117(t3533); break; case NATIVE_PROCEDURE_TYPE17290: t3534 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10110(t3534); break; case NATIVE_PROCEDURE_TYPE17294: t3535 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10067(t3535); break; case NATIVE_PROCEDURE_TYPE17297: t3536 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10070(t3536); break; case NATIVE_PROCEDURE_TYPE17334: t3537 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10066(t3537); break; case NATIVE_PROCEDURE_TYPE17335: t3538 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10065(t3538); break; case NATIVE_PROCEDURE_TYPE17408: t3539 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11764(t3539); break; case NATIVE_PROCEDURE_TYPE17410: t3540 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11762(t3540); break; case NATIVE_PROCEDURE_TYPE17418: t3541 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11669(t3541); break; case NATIVE_PROCEDURE_TYPE17469: t3542 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10411((t3303.value.native_procedure_type17469), t3542); break; case NATIVE_PROCEDURE_TYPE17476: t3543 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12096(t3543); break; case NATIVE_PROCEDURE_TYPE17478: t3544 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11580((t3303.value.native_procedure_type17478), t3544); break; case NATIVE_PROCEDURE_TYPE17505: t3545 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10613(t3545); break; case NATIVE_PROCEDURE_TYPE17597: t3546 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10640(t3546); break; case NATIVE_PROCEDURE_TYPE17730: t3547 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10628(t3547); break; case NATIVE_PROCEDURE_TYPE17816: t3548 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12458(t3548); break; case NATIVE_PROCEDURE_TYPE17836: t3549 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11332(t3549); break; case NATIVE_PROCEDURE_TYPE17861: t3550 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12386((t3303.value.native_procedure_type17861), t3550); break; case NATIVE_PROCEDURE_TYPE17900: t3551 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11546((t3303.value.native_procedure_type17900), t3551); break; case NATIVE_PROCEDURE_TYPE17946: t3552 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11751((t3303.value.native_procedure_type17946), t3552); break; case NATIVE_PROCEDURE_TYPE17963: t3553 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11607(t3553); break; case NATIVE_PROCEDURE_TYPE18028: t3554 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10159(t3554); break; case NATIVE_PROCEDURE_TYPE18153: t3555 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8328((t3303.value.native_procedure_type18153), t3555); break; case NATIVE_PROCEDURE_TYPE18195: t3556 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11588(t3556); break; case NATIVE_PROCEDURE_TYPE18201: t3557 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19400(t3557); break; case NATIVE_PROCEDURE_TYPE18206: t3558 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19392(t3558); break; case NATIVE_PROCEDURE_TYPE18210: t3559 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19396(t3559); break; case NATIVE_PROCEDURE_TYPE18311: t3560 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19388(t3560); break; case NATIVE_PROCEDURE_TYPE18371: t3561 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11443(t3561); break; case NATIVE_PROCEDURE_TYPE18402: t3562 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10752((t3303.value.native_procedure_type18402), t3562); break; case NATIVE_PROCEDURE_TYPE18404: t3563 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12168((t3303.value.native_procedure_type18404), t3563); break; case NATIVE_PROCEDURE_TYPE18412: t3564 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12167(t3564); break; case NATIVE_PROCEDURE_TYPE18414: t3565 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12158(t3565); break; case NATIVE_PROCEDURE_TYPE18420: t3566 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f9084((t3303.value.native_procedure_type18420), t3566); break; case NATIVE_PROCEDURE_TYPE18435: t3567 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f9102((t3303.value.native_procedure_type18435), t3567); break; case NATIVE_PROCEDURE_TYPE18438: t3568 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f9104((t3303.value.native_procedure_type18438), t3568); break; case NATIVE_PROCEDURE_TYPE18447: t3569 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12105((t3303.value.native_procedure_type18447), t3569); break; case NATIVE_PROCEDURE_TYPE18712: t3570 = t3304; if (!(t3305>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[inside LOOP 27776]"); call_error();} t3571 = t3305->s0; if (!((t3305->s1.tag)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f15128(t3570, t3571); break; case NATIVE_PROCEDURE_TYPE18817: t3572 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19473(t3572); break; case NATIVE_PROCEDURE_TYPE18825: t3573 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19412(t3573); break; case NATIVE_PROCEDURE_TYPE18829: t3574 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19415(t3574); break; case NATIVE_PROCEDURE_TYPE18918: t3575 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12684(t3575); break; case NATIVE_PROCEDURE_TYPE18920: t3576 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12681(t3576); break; case NATIVE_PROCEDURE_TYPE18935: t3577 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8273(t3577); break; case NATIVE_PROCEDURE_TYPE18943: t3578 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8262(t3578); break; case NATIVE_PROCEDURE_TYPE18964: t3579 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12075((t3303.value.native_procedure_type18964), t3579); break; case NATIVE_PROCEDURE_TYPE19018: t3580 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19504(t3580); break; case NATIVE_PROCEDURE_TYPE19046: t3581 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19543(t3581); break; case NATIVE_PROCEDURE_TYPE19056: t3582 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19523(t3582); break; case NATIVE_PROCEDURE_TYPE19245: t3583 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11088(t3583); break; case NATIVE_PROCEDURE_TYPE19249: t3584 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11176(t3584); break; case NATIVE_PROCEDURE_TYPE19256: t3585 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11168(t3585); break; case NATIVE_PROCEDURE_TYPE19263: t3586 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11160(t3586); break; case NATIVE_PROCEDURE_TYPE19270: t3587 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11152(t3587); break; case NATIVE_PROCEDURE_TYPE19277: t3588 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11144(t3588); break; case NATIVE_PROCEDURE_TYPE19284: t3589 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11136(t3589); break; case NATIVE_PROCEDURE_TYPE19296: t3590 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11121(t3590); break; case NATIVE_PROCEDURE_TYPE19403: t3591 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11097(t3591); break; case NATIVE_PROCEDURE_TYPE19575: t3592 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11515((t3303.value.native_procedure_type19575), t3592); break; case NATIVE_PROCEDURE_TYPE19596: t3593 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f9358((t3303.value.native_procedure_type19596), t3593); break; case NATIVE_PROCEDURE_TYPE19598: t3594 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f9353((t3303.value.native_procedure_type19598), t3594); break; case NATIVE_PROCEDURE_TYPE20178: t3595 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19484(t3595); break; case NATIVE_PROCEDURE_TYPE20179: t3596 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19431(t3596); break; case NATIVE_PROCEDURE_TYPE20337: t3597 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8368(t3597); break; case NATIVE_PROCEDURE_TYPE20365: t3598 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11354(t3598); break; case NATIVE_PROCEDURE_TYPE20379: t3599 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8361((t3303.value.native_procedure_type20379), t3599); break; case NATIVE_PROCEDURE_TYPE20380: t3600 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8362((t3303.value.native_procedure_type20380), t3600); break; case NATIVE_PROCEDURE_TYPE20687: t3601 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12184((t3303.value.native_procedure_type20687), t3601); break; case NATIVE_PROCEDURE_TYPE22178: t3602 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f15126((t3303.value.native_procedure_type22178), t3602); break; case NATIVE_PROCEDURE_TYPE22245: t3603 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f14997((t3303.value.native_procedure_type22245), t3603); break; case NATIVE_PROCEDURE_TYPE22275: a27466 = t3304; if (!(t3305>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[inside LOOP 27776]"); call_error();} if (!((t3305->s1.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 27776]"); call_error();} a27468 = t3305->s1.value.structure_type24753->s0; if (!((t3305->s1.value.structure_type24753->s1.tag)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} /* x153886 stalin.sc:21089:737611 */ /* x153883 stalin.sc:21090:737628 */ /* x153877 stalin.sc:21090:737632 */ /* x153876 stalin.sc:21090:737645 */ t3608 = a27466; /* x153875 stalin.sc:21090:737633 */ if (f8793(t3608)==FALSE_TYPE) goto l923; /* x153878 stalin.sc:21090:737649 */ t3604 = a1194; goto l924; l923: /* x153882 stalin.sc:21090:737659 */ /* x153880 stalin.sc:21090:737683 */ t3609 = a27466; /* x153881 stalin.sc:21090:737686 */ /* x153879 stalin.sc:21090:737660 */ t3610.tag = FALSE_TYPE; t3611 = f7025(t3609, t3610); t3604 = t3611; l924: /* x153884 stalin.sc:21090:737691 */ t3605 = a27468; /* x153885 stalin.sc:21090:737694 */ t3606 = a27468; /* x153874 stalin.sc:21089:737612 */ /* MOVE: branching squeezed to general */ if (t3604>=((struct structure_type27501 *)VALUE_OFFSET)) {t3607.tag = STRUCTURE_TYPE27501; t3607.value.structure_type27501 = t3604;} else t3607.tag = (unsigned)t3604; f14848(t3607, t3605, t3606); break; case NATIVE_PROCEDURE_TYPE22298: t3612 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f17734((t3303.value.native_procedure_type22298), t3612); break; case NATIVE_PROCEDURE_TYPE22323: t3613 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f15026((t3303.value.native_procedure_type22323), t3613); break; case NATIVE_PROCEDURE_TYPE22329: t3614 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f15019((t3303.value.native_procedure_type22329), t3614); break; case NATIVE_PROCEDURE_TYPE22585: t3615 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11373(t3615); break; case NATIVE_PROCEDURE_TYPE22592: t3616 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12249((t3303.value.native_procedure_type22592), t3616); break; case NATIVE_PROCEDURE_TYPE22593: t3617 = t3304; if (!(t3305>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[inside LOOP 27776]"); call_error();} t3618 = t3305->s0; if (!((t3305->s1.tag)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12250(t3617, t3618); break; case NATIVE_PROCEDURE_TYPE22688: t3619 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12895(t3619); break; case NATIVE_PROCEDURE_TYPE22744: t3620 = t3304; if (!(t3305>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[inside LOOP 27776]"); call_error();} t3621 = t3305->s0; if (!((t3305->s1.tag)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f7145(t3620, t3621); break; case NATIVE_PROCEDURE_TYPE22745: t3622 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f7146((t3303.value.native_procedure_type22745), t3622); break; case NATIVE_PROCEDURE_TYPE23269: t3623 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12919(t3623); break; case NATIVE_PROCEDURE_TYPE23283: t3624 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11387(t3624); break; case NATIVE_PROCEDURE_TYPE23356: t3625 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f7172((t3303.value.native_procedure_type23356), t3625); break; case NATIVE_PROCEDURE_TYPE23519: t3626 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11803(t3626); break; case NATIVE_PROCEDURE_TYPE23884: t3627 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f11558(t3627); break; case NATIVE_PROCEDURE_TYPE24024: t3628 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8312(t3628); break; case NATIVE_PROCEDURE_TYPE24030: t3629 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f8306(t3629); break; case NATIVE_PROCEDURE_TYPE24171: t3630 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19336(t3630); break; case NATIVE_PROCEDURE_TYPE24175: t3631 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19333(t3631); break; case NATIVE_PROCEDURE_TYPE24279: t3632 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f10364((t3303.value.native_procedure_type24279), t3632); break; case NATIVE_PROCEDURE_TYPE24436: t3633 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12865(t3633); break; case NATIVE_PROCEDURE_TYPE24584: t3634 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f19229(t3634); break; default: t3635 = t3304; if (!(((unsigned)t3305)==NULL_TYPE)) {backtrace_internal("[inside LOOP 27776]"); call_error();} f12959(t3635);} /* x257393 */ /* x257392 */ /* x257359 */ /* x257358 */ t3292 = *((struct w16638 *)(&a34196)); /* x266619 */ if (!((t3292.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 27777]"); structure_ref_error();} t3290 = t3292.value.structure_type24753->s1; /* x257391 */ /* x257389 */ t3293 = a34197; /* x257390 */ /* x257388 */ /* x257387 */ /* x257386 */ /* x257385 */ /* x257384 */ /* x257383 */ /* x257382 */ /* x257361 */ /* x257360 */ /* MOVE: branching squeezed to general */ if (t3293>=((struct structure_type24753 *)VALUE_OFFSET)) {a34201.tag = STRUCTURE_TYPE24753; a34201.value.structure_type24753 = t3293;} else a34201.tag = (unsigned)t3293; a34202 = (struct structure_type24753 *)NULL_TYPE; h27780: /* x257381 */ /* x257364 */ /* x257363 */ t3294 = a34201; /* x266618 */ if (!((t3294.tag)==NULL_TYPE)) goto l920; /* x257367 */ /* x257366 */ t3302 = a34202; /* x257365 */ t3291 = f26326(t3302); goto l921; l920: /* x257380 */ /* x257371 */ /* x257370 */ t3297 = *((struct w16638 *)(&a34201)); /* x266617 */ if (!((t3297.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27780]"); structure_ref_error();} t3295 = t3297.value.structure_type24753->s1; /* x257379 */ /* x257377 */ /* x257376 */ /* x257375 */ t3301 = *((struct w16638 *)(&a34201)); /* x266614 */ if (!((t3301.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27780]"); structure_ref_error();} t3300 = t3301.value.structure_type24753->s0; /* x266615 */ if (!((t3300.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27780]"); structure_ref_error();} t3298 = t3300.value.structure_type24753->s1; /* x257378 */ t3299 = a34202; /* x266616 */ t3296 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t3296==NULL) {backtrace_internal("LOOP[27780]"); out_of_memory_error();} t3296->s0 = t3298; /* MOVE: branching squeezed to general */ if (t3299>=((struct structure_type24753 *)VALUE_OFFSET)) {t3296->s1.tag = STRUCTURE_TYPE24753; t3296->s1.value.structure_type24753 = t3299;} else t3296->s1.tag = (unsigned)t3299; /* x257368 */ a34201 = t3295; a34202 = t3296; goto h27780; l921: /* x257356 */ a34196 = t3290; a34197 = t3291; goto h27775; l918: /* x257436 */ /* x257435 */ return;} /* MAP[27731] */ struct structure_type24753 *f27731(struct w36270 a34157, struct w49 a34158, struct structure_type24753 *a34159) {struct w49 a25351; /* C1 */ struct w49 a25352; /* C2 */ struct w49 a26725; /* C2 */ struct w49 a26726; /* C3 */ struct w49 a26727; /* U1 */ struct w49 a26728; /* U2 */ struct w49 a26988; /* G */ struct w49 a26989; /* W */ struct w49 a26990; /* T */ struct w49 a27140; /* W */ struct w49 a27141; /* T */ struct w49 a27142; /* X */ struct w49 a27489; /* W0 */ struct w49 a27490; /* I */ struct w49 a27491; /* T1 */ struct w49 a27492; /* W1 */ struct w49 a28252; /* C1 */ struct w49 a28253; /* C2 */ struct w49 a28254; /* U1 */ struct w49 a28255; /* U2 */ struct w49 a28301; /* C1 */ struct w49 a28302; /* C2 */ struct w49 a28350; /* C1 */ struct w49 a28351; /* C2 */ struct w49 a28399; /* C1 */ struct w49 a28400; /* C2 */ struct w49 a28448; /* C1 */ struct w49 a28449; /* C2 */ struct w49 a34162; /* LIST1 */ struct structure_type24753 *a34163; /* C */ struct w49 a34166; /* LIST1 */ struct w49 a34167; /* LIST2 */ struct structure_type24753 *a34168; /* C */ struct w49 a34171; /* LIST1 */ struct structure_type24753 *a34172; /* LISTS */ struct structure_type24753 *a34173; /* C */ struct w49 a34176; /* LISTS */ struct structure_type24753 *a34177; /* C */ struct w49 a34180; /* LISTS */ struct structure_type24753 *a34181; /* C */ struct structure_type24753 *a35214; /* OBJS */ struct structure_type24753 *a35215; /* OBJS */ struct w49 a35623; /* PAIR */ struct w49 a36205; /* PAIR */ struct w49 a36811; /* S */ struct w49 a36812; /* S */ struct w49 a37046; /* S */ struct w49 a37665; /* S */ struct w49 a40008; /* S */ struct w49 a40145; /* S */ struct w49 a41099; /* S */ struct w49 a41624; /* G */ struct w49 a41709; /* G */ struct w49 a42385; /* S */ struct structure_type24753 *t3668; struct w49 t3669; struct structure_type24753 *t3670; struct w49 t3671; struct structure_type24753 *t3672; struct w49 t3673; struct w49 t3674; struct structure_type24753 *t3675; struct structure_type24753 *t3676; struct w16638 t3677; struct structure_type24753 *t3678; struct w49 t3679; struct w49 t3680; struct structure_type24753 *t3681; struct w16638 t3682; struct w49 t3683; struct structure_type24753 *t3684; struct w49 t3685; struct w16638 t3686; struct structure_type24753 *t3687; struct w49 t3688; struct structure_type24753 *t3689; struct w36270 t3690; struct w49 t3691; struct structure_type24753 *t3692; struct w49 t3693; int t3694; struct structure_type24753 *t3695; struct structure_type24753 *t3696; struct w49 t3697; struct w49 t3698; struct w49 t3699; struct w49 t3700; struct w60864 t3701; struct w49 t3702; int t3703; struct w49 t3704; struct w49 t3705; struct w49 t3706; struct w49 t3707; struct w61020 t3708; struct w49 t3709; struct w49 t3710; struct w49 t3711; struct w49 t3712; struct w49 t3713; struct w49 t3714; char *t3715; struct w49 t3716; struct w49 t3717; struct structure_type24753 *t3718; struct w49 t3719; struct w49 t3720; struct w49 t3721; struct w49 t3722; struct w49 t3723; struct structure_type27747 *t3724; struct w49 t3725; struct structure_type24753 *t3726; struct w49 t3727; struct w49 t3728; struct w49 t3729; struct w3457 t3730; struct w49 t3731; int t3732; struct w49 t3733; struct w6194 t3734; struct w49 t3735; struct structure_type24753 *t3736; struct w49 t3737; struct w49 t3738; unsigned t3739; struct w49 t3740; char *t3741; struct w49 t3742; struct w7121 t3743; struct w49 t3744; struct w49 t3745; struct w49 t3746; unsigned t3747; struct w49 t3748; struct structure_type24753 *t3749; struct w49 t3750; struct w49 t3751; struct w49 t3752; struct w49 t3753; struct structure_type24753 *t3754; struct w49 t3755; struct w49 t3756; struct w49 t3757; struct w49 t3758; struct structure_type24753 *t3759; struct w49 t3760; struct w49 t3761; struct structure_type24753 *t3762; struct w49 t3763; struct w49 t3764; struct structure_type24753 *t3765; char *t3766; struct w49 t3767; struct structure_type24753 *t3768; char *t3769; struct structure_type24753 *t3770; struct w49 t3771; struct w49 t3772; struct structure_type24753 *t3773; struct w49 t3774; struct structure_type24753 *t3775; struct w49 t3776; struct structure_type24753 *t3777; struct w49 t3778; struct structure_type24753 *t3779; struct w49 t3780; unsigned t3781; struct w49 t3782; struct structure_type24753 *t3783; struct w49 t3784; struct structure_type24753 *t3785; struct w49 t3786; struct structure_type24753 *t3787; struct w49 t3788; struct structure_type24753 *t3789; struct w49 t3790; struct structure_type24753 *t3791; struct w49 t3792; struct w49 t3793; struct w49 t3794; char *t3795; struct w49 t3796; struct w49 t3797; struct w49 t3798; int t3799; struct w49 t3800; int t3801; struct w49 t3802; struct w49 t3803; struct w49 t3804; struct structure_type24753 *t3805; struct w49 t3806; struct structure_type24753 *t3807; struct w49 t3808; struct w7121 t3809; struct w49 t3810; struct w7121 t3811; struct w49 t3812; struct w49 t3813; struct structure_type27698 *t3814; struct w49 t3815; struct w49 t3816; struct structure_type24753 *t3817; struct w49 t3818; struct w12224 t3819; struct structure_type27501 *t3820; struct w49 t3821; struct w49 t3822; struct w49 t3823; struct w49 t3824; struct structure_type27501 *t3825; struct w49 t3826; struct structure_type24753 *t3827; struct w49 t3828; struct w61020 t3829; struct w49 t3830; struct w61020 t3831; struct w49 t3832; struct structure_type24753 *t3833; struct w49 t3834; struct w61020 t3835; struct w49 t3836; struct w49 t3837; struct w49 t3838; struct w49 t3839; struct w49 t3840; struct w30215 t3841; struct w49 t3842; struct structure_type27698 *t3843; struct w49 t3844; struct structure_type27698 *t3845; struct w49 t3846; struct structure_type24753 *t3847; struct w49 t3848; struct structure_type24753 *t3849; struct w49 t3850; struct w49 t3851; struct w49 t3852; struct structure_type24753 *t3853; struct w49 t3854; struct w49 t3855; struct w49 t3856; struct structure_type24753 *t3857; struct w49 t3858; struct w49 t3859; struct w49 t3860; char *t3861; struct w49 t3862; struct structure_type24753 *t3863; struct w49 t3864; struct structure_type24753 *t3865; struct w49 t3866; struct w49 t3867; struct w49 t3868; struct structure_type24753 *t3869; struct w49 t3870; struct structure_type24753 *t3871; struct w49 t3872; struct w49 t3873; struct w49 t3874; struct w49 t3875; struct w49 t3876; char *t3877; struct w49 t3878; struct w49 t3879; char *t3880; struct w49 t3881; struct w49 t3882; char *t3883; struct w49 t3884; struct w49 t3885; char *t3886; struct w49 t3887; struct structure_type24753 *t3888; struct w49 t3889; struct w49 t3890; struct structure_type24753 *t3891; struct structure_type27501 *t3892; struct w49 t3893; struct w49 t3894; struct w12218 t3895; struct w49 t3896; struct w49 t3897; struct w60864 t3898; struct w49 t3899; struct structure_type27501 *t3900; struct w49 t3901; struct w49 t3902; struct w49 t3903; struct w49 t3904; struct w49 t3905; struct w49 t3906; struct w49 t3907; struct w49 t3908; struct w49 t3909; struct structure_type24753 *t3910; struct w49 t3911; struct structure_type24753 *t3912; struct w49 t3913; struct structure_type24753 *t3914; struct w49 t3915; struct structure_type24753 *t3916; struct w49 t3917; struct w49 t3918; struct w49 t3919; unsigned t3920; struct w49 t3921; struct w49 t3922; struct w49 t3923; struct w49 t3924; struct w49 t3925; struct w49 t3926; struct structure_type24753 *t3927; struct w49 t3928; struct w49 t3929; struct w49 t3930; struct w49 t3931; struct structure_type24753 *t3932; struct structure_type24753 *t3933; struct structure_type24753 *t3934; struct structure_type24753 *t3935; struct structure_type24753 *t3936; struct w49 t3937; struct w49 t3938; struct structure_type24753 *t3939; struct w49 t3940; struct w49 t3941; struct structure_type24753 *t3942; struct w49 t3943; struct w49 t3944; struct w49 t3945; struct structure_type24753 *t3946; struct structure_type24753 *t3947; struct structure_type24753 *t3948; struct structure_type24753 *t3949; struct w49 t3950; struct structure_type24753 *t3951; struct w49 t3952; struct w49 t3953; struct w49 t3954; struct structure_type24753 *t3955; struct w49 t3956; struct w49 t3957; struct structure_type24753 *t3958; struct structure_type24753 *t3959; struct structure_type24753 *t3960; struct structure_type24753 *t3961; struct w49 t3962; struct structure_type24753 *t3963; struct structure_type24753 *t3964; struct w49 t3965; struct w49 t3966; struct w49 t3967; struct w49 t3968; struct structure_type24753 *t3969; struct structure_type24753 *t3970; struct w49 t3971; struct w49 t3972; struct w49 t3973; struct w49 t3974; struct w49 t3975; struct w49 t3976; struct w49 t3977; char *t3978; struct w49 t3979; struct structure_type24753 *t3980; struct w49 t3981; struct w49 t3982; struct structure_type24753 *t3983; struct w49 t3984; struct w49 t3985; struct structure_type24753 *t3986; struct w49 t3987; struct w49 t3988; struct w49 t3989; struct w49 t3990; struct w49 t3991; struct w49 t3992; struct w49 t3993; struct w49 t3994; struct w49 t3995; struct w49 t3996; struct w49 t3997; struct w49 t3998; struct w49 t3999; struct w49 t4000; struct w49 t4001; struct w49 t4002; struct w49 t4003; struct w49 t4004; struct w49 t4005; struct w49 t4006; struct w49 t4007; struct w49 t4008; struct w49 t4009; struct w49 t4010; struct w49 t4011; struct w49 t4012; struct w49 t4013; struct w49 t4014; struct w49 t4015; struct w49 t4016; struct w49 t4017; struct w49 t4018; struct w49 t4019; struct w49 t4020; struct w49 t4021; struct w49 t4022; struct w49 t4023; struct structure_type24753 *t4024; struct w49 t4025; struct structure_type24753 *t4026; struct w49 t4027; struct w49 t4028; struct w61020 t4029; struct w49 t4030; struct w61020 t4031; struct w49 t4032; struct structure_type24753 *t4033; struct w49 t4034; struct structure_type24753 *t4035; struct w49 t4036; struct structure_type24753 *t4037; struct w49 t4038; struct structure_type24753 *t4039; struct w49 t4040; struct structure_type24753 *t4041; struct w49 t4042; struct w61020 t4043; struct w49 t4044; struct w61020 t4045; struct w49 t4046; struct structure_type24753 *t4047; struct w49 t4048; struct structure_type24753 *t4049; struct w49 t4050; struct w49 t4051; struct w49 t4052; struct w49 t4053; struct structure_type24753 *t4054; struct w49 t4055; struct w61020 t4056; struct w49 t4057; struct w61020 t4058; struct w49 t4059; struct structure_type24753 *t4060; struct w49 t4061; struct w61020 t4062; struct w49 t4063; struct w61020 t4064; struct w49 t4065; struct w61020 t4066; struct w49 t4067; struct w49 t4068; struct structure_type24753 *t4069; struct w49 t4070; struct structure_type24753 *t4071; struct w49 t4072; struct structure_type24753 *t4073; struct w49 t4074; struct w12563 t4075; struct w49 t4076; struct w49 t4077; struct w49 t4078; struct w49 t4079; struct w49 t4080; struct w49 t4081; struct w49 t4082; struct w49 t4083; struct w49 t4084; struct w60864 t4085; struct w49 t4086; struct w49 t4087; struct w49 t4088; char *t4089; struct w49 t4090; struct w49 t4091; struct w49 t4092; char *t4093; struct w49 t4094; struct w49 t4095; struct w49 t4096; char *t4097; struct w49 t4098; struct w49 t4099; struct w49 t4100; struct w49 t4101; struct w49 t4102; struct w49 t4103; struct w49 t4104; struct w49 t4105; struct w49 t4106; struct w49 t4107; struct w49 t4108; struct w49 t4109; struct w49 t4110; struct w49 t4111; struct w49 t4112; struct w49 t4113; struct w49 t4114; struct w49 t4115; struct w49 t4116; struct w49 t4117; struct w49 t4118; struct w49 t4119; struct structure_type24753 *t4120; struct w49 t4121; struct w49 t4122; struct w49 t4123; struct w49 t4124; struct structure_type24753 *t4125; struct w49 t4126; struct w49 t4127; struct structure_type24753 *t4128; struct w49 t4129; struct structure_type24753 *t4130; struct w49 t4131; struct structure_type24753 *t4132; struct w49 t4133; struct structure_type24753 *t4134; struct w49 t4135; struct structure_type24753 *t4136; struct w49 t4137; struct w49 t4138; struct w49 t4139; struct w49 t4140; struct structure_type27747 *t4141; struct w49 t4142; struct structure_type27747 *t4143; struct w49 t4144; struct structure_type27747 *t4145; struct w49 t4146; struct structure_type27747 *t4147; struct w49 t4148; struct structure_type27747 *t4149; struct w49 t4150; struct structure_type27747 *t4151; struct w49 t4152; struct structure_type27747 *t4153; struct w49 t4154; struct structure_type27698 *t4155; struct w16638 t4156; struct structure_type24753 *t4157; struct w49 t4158; struct w49 t4159; struct structure_type24753 *t4160; struct w16638 t4161; struct w49 t4162; struct structure_type24753 *t4163; struct w49 t4164; struct w16638 t4165; struct structure_type24753 *t4166; struct structure_type24753 *t4167; struct w49 t4168; struct w49 t4169; struct w49 t4170; struct w49 t4171; struct w49 t4172; struct structure_type24753 *t4173; struct w16638 t4174; struct w49 t4175; struct structure_type24753 *t4176; struct structure_type24753 *t4177; struct w36270 t4178; struct w49 t4179; struct w49 t4180; struct w49 t4181; struct w16638 t4182; struct w49 t4183; struct structure_type24753 *t4184; struct structure_type24753 *t4185; struct w49 t4186; struct w49 t4187; struct w49 t4188; struct structure_type24753 *t4189; struct w16638 t4190; struct w49 t4191; struct structure_type24753 *t4192; struct w36270 t4193; struct w49 t4194; int t4195; struct w49 t4196; struct w49 t4197; struct w60864 t4198; int t4199; struct w61020 t4200; char *t4201; struct structure_type24753 *t4202; struct w49 t4203; struct w49 t4204; struct structure_type27747 *t4205; struct structure_type24753 *t4206; struct w3457 t4207; int t4208; struct w6194 t4209; struct structure_type24753 *t4210; unsigned t4211; char *t4212; struct w49 t4213; struct w49 t4214; struct w49 t4215; struct w49 t4216; struct structure_type24753 *t4217; struct structure_type24753 *t4218; struct structure_type24753 *t4219; char *t4220; struct structure_type24753 *t4221; char *t4222; struct structure_type24753 *t4223; struct structure_type24753 *t4224; struct structure_type24753 *t4225; struct structure_type24753 *t4226; struct structure_type24753 *t4227; unsigned t4228; struct structure_type24753 *t4229; struct structure_type24753 *t4230; struct structure_type24753 *t4231; struct structure_type24753 *t4232; struct structure_type24753 *t4233; char *t4234; int t4235; int t4236; struct structure_type24753 *t4237; struct structure_type24753 *t4238; struct w7121 t4239; struct w7121 t4240; struct structure_type27698 *t4241; struct structure_type24753 *t4242; struct w12224 t4243; struct structure_type24753 *t4244; struct w61020 t4245; struct w61020 t4246; struct structure_type24753 *t4247; struct w61020 t4248; struct w30215 t4249; struct structure_type27698 *t4250; struct structure_type27698 *t4251; struct structure_type24753 *t4252; struct structure_type24753 *t4253; char *t4254; struct structure_type24753 *t4255; struct structure_type24753 *t4256; struct structure_type24753 *t4257; struct structure_type24753 *t4258; char *t4259; char *t4260; char *t4261; char *t4262; struct structure_type24753 *t4263; struct structure_type24753 *t4264; struct structure_type24753 *t4265; struct structure_type24753 *t4266; struct structure_type24753 *t4267; struct structure_type24753 *t4268; struct structure_type24753 *t4269; struct structure_type24753 *t4270; struct w61020 t4271; struct w61020 t4272; struct structure_type24753 *t4273; struct structure_type24753 *t4274; struct structure_type24753 *t4275; struct structure_type24753 *t4276; struct structure_type24753 *t4277; struct w61020 t4278; struct w61020 t4279; struct structure_type24753 *t4280; struct structure_type24753 *t4281; struct structure_type24753 *t4282; struct w61020 t4283; struct w61020 t4284; struct structure_type24753 *t4285; struct w61020 t4286; struct w61020 t4287; struct w61020 t4288; struct structure_type24753 *t4289; struct structure_type24753 *t4290; struct structure_type24753 *t4291; struct w12563 t4292; struct structure_type24753 *t4293; struct structure_type24753 *t4294; struct structure_type24753 *t4295; struct structure_type24753 *t4296; struct structure_type24753 *t4297; struct structure_type24753 *t4298; struct structure_type24753 *t4299; struct structure_type27747 *t4300; struct structure_type27747 *t4301; struct structure_type27747 *t4302; struct structure_type27747 *t4303; struct structure_type27747 *t4304; struct structure_type27747 *t4305; struct structure_type27747 *t4306; struct structure_type27698 *t4307; struct w16638 t4308; struct structure_type24753 *t4309; struct p15564 *p15569; struct p16398 *p16400; /* x257259 */ /* x257075 */ /* x257074 */ t3668 = a34159; /* x266664 */ if (!(((unsigned)t3668)==NULL_TYPE)) goto l933; /* x257109 */ /* x257108 */ /* x257107 */ /* x257105 */ t4186 = a34158; /* x257106 */ /* x257104 */ /* x257103 */ /* x257102 */ /* x257101 */ /* x257100 */ /* x257099 */ /* x257098 */ /* x257077 */ /* x257076 */ a34162 = t4186; a34163 = (struct structure_type24753 *)NULL_TYPE; h27735: /* x257097 */ /* x257080 */ /* x257079 */ t4187 = a34162; /* x266663 */ if (!((t4187.tag)==NULL_TYPE)) goto l969; /* x257083 */ /* x257082 */ t4309 = a34163; /* x257081 */ return f26326(t4309); l969: /* x257096 */ /* x257087 */ /* x257086 */ t4190 = *((struct w16638 *)(&a34162)); /* x266662 */ if (!((t4190.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27735]"); structure_ref_error();} t4188 = t4190.value.structure_type24753->s1; /* x257095 */ /* x257093 */ /* x257092 */ /* x257091 */ t4308 = *((struct w16638 *)(&a34162)); /* x266660 */ if (!((t4308.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27735]"); structure_ref_error();} t4194 = t4308.value.structure_type24753->s0; /* x257089 */ t4193 = a34157; switch (t4193.tag) {case NATIVE_PROCEDURE_TYPE458: t4195 = f26227(t4194); t4191.tag = FIXNUM_TYPE; t4191.value.fixnum_type = t4195; break; case NATIVE_PROCEDURE_TYPE460: a35214 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35214==NULL) {backtrace_internal("LOOP[27735]"); out_of_memory_error();} a35214->s0 = t4194; a35214->s1.tag = NULL_TYPE; /* x272435 */ t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = a35214; break; case NATIVE_PROCEDURE_TYPE493: a35623 = t4194; /* x273849 */ /* x273848 */ t4196 = a35623; /* x273847 */ if (!((t4196.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29772]"); structure_ref_error();} t4191 = t4196.value.structure_type24753->s1; break; case NATIVE_PROCEDURE_TYPE494: a36205 = t4194; /* x276177 */ /* x276176 */ t4197 = a36205; /* x276175 */ if (!((t4197.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30354]"); structure_ref_error();} t4191 = t4197.value.structure_type24753->s0; break; case NATIVE_PROCEDURE_TYPE6018: t4191 = f18156(t4194); break; case NATIVE_PROCEDURE_TYPE6686: t4198 = f15531(t4194); t4191 = *((struct w49 *)(&t4198)); break; case NATIVE_PROCEDURE_TYPE6715: t4199 = f14785(t4194); t4191.tag = FIXNUM_TYPE; t4191.value.fixnum_type = t4199; break; case NATIVE_PROCEDURE_TYPE6764: t4200 = f14433(t4194); t4191 = *((struct w49 *)(&t4200)); break; case NATIVE_PROCEDURE_TYPE6839: t4191 = f14094(t4194); break; case NATIVE_PROCEDURE_TYPE6841: t4191 = f14079(t4194); break; case NATIVE_PROCEDURE_TYPE6842: t4191 = f14028(t4194); break; case NATIVE_PROCEDURE_TYPE6849: t4191 = f13917(t4194); break; case NATIVE_PROCEDURE_TYPE6853: t4191 = f13860(t4194); break; case NATIVE_PROCEDURE_TYPE6976: t4201 = f13523(t4194); t4191.tag = STRING_TYPE; t4191.value.string_type = t4201; break; case NATIVE_PROCEDURE_TYPE7020: t4191 = f13160(t4194); break; case NATIVE_PROCEDURE_TYPE7021: t4202 = f13116(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4202; break; case NATIVE_PROCEDURE_TYPE7038: t4191 = f12820(t4194); break; case NATIVE_PROCEDURE_TYPE7039: t4191 = f12784(t4194); break; case NATIVE_PROCEDURE_TYPE7052: t4191 = f12566(t4194); break; case NATIVE_PROCEDURE_TYPE7189: a41099 = t4194; /* x298508 stalin.sc:6937:240340 */ /* x298507 stalin.sc:6937:240360 */ t4203 = a41099; /* x298506 stalin.sc:6937:240341 */ a42385 = t4203; /* x303038 */ /* x303037 */ t4204 = a42385; /* x303036 */ if (!((t4204.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37561]"); structure_ref_error();} t4191 = t4204.value.structure_type27510->s9; break; case NATIVE_PROCEDURE_TYPE7198: t4205 = f9424(t4194); t4191.tag = STRUCTURE_TYPE27747; t4191.value.structure_type27747 = t4205; break; case NATIVE_PROCEDURE_TYPE7214: t4206 = f8987(t4194); /* MOVE: branching squeezed to general */ if (t4206>=((struct structure_type24753 *)VALUE_OFFSET)) {t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4206;} else t4191.tag = (unsigned)t4206; break; case NATIVE_PROCEDURE_TYPE7216: t4191 = f8976(t4194); break; case NATIVE_PROCEDURE_TYPE7218: t4191 = f8965(t4194); break; case NATIVE_PROCEDURE_TYPE7219: t4207 = f8951(t4194); t4191 = *((struct w49 *)(&t4207)); break; case NATIVE_PROCEDURE_TYPE7251: t4208 = f8694(t4194); t4191.tag = FIXNUM_TYPE; t4191.value.fixnum_type = t4208; break; case NATIVE_PROCEDURE_TYPE7265: t4209 = f8624(t4194); t4191 = *((struct w49 *)(&t4209)); break; case NATIVE_PROCEDURE_TYPE7353: t4210 = f8162(t4194); /* MOVE: branching squeezed to general */ if (t4210>=((struct structure_type24753 *)VALUE_OFFSET)) {t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4210;} else t4191.tag = (unsigned)t4210; break; case NATIVE_PROCEDURE_TYPE7355: t4191 = f8153(t4194); break; case NATIVE_PROCEDURE_TYPE7387: t4211 = f7936(t4194); /* MOVE: dispatching squished to general */ if (t4211==FALSE_TYPE) t4191.tag = (unsigned)t4211; else {t4191.tag = FIXNUM_TYPE; t4191.value.fixnum_type = (int)(((int)t4211)>>1);} break; case NATIVE_PROCEDURE_TYPE7695: t4212 = f6647(t4194); t4191.tag = STRING_TYPE; t4191.value.string_type = t4212; break; case NATIVE_PROCEDURE_TYPE7725: a37046 = t4194; /* x280853 */ /* x280852 */ t4213 = a37046; /* x280851 */ if (!((t4213.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31963]"); structure_ref_error();} t4191 = *((struct w49 *)(&(t4213.value.structure_type27650->s4))); break; case NATIVE_PROCEDURE_TYPE7806: a37665 = t4194; /* x283329 */ /* x283328 */ t4214 = a37665; /* x283327 */ if (!((t4214.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-NAME[6169] 32582]"); structure_ref_error();} t4191 = t4214.value.structure_type27769->s0; break; case NATIVE_PROCEDURE_TYPE7945: a40008 = t4194; /* x292701 */ /* x292700 */ t4215 = a40008; /* x292699 */ if (!((t4215.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34925]"); structure_ref_error();} t4191 = t4215.value.structure_type27698->s10; break; case NATIVE_PROCEDURE_TYPE7950: a40145 = t4194; /* x293249 */ /* x293248 */ t4216 = a40145; /* x293247 */ if (!((t4216.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35062]"); structure_ref_error();} /* MOVE: dispatching squished to general */ if ((t4216.value.structure_type27698->s7)==FALSE_TYPE) t4191.tag = (unsigned)(t4216.value.structure_type27698->s7); else {t4191.tag = FIXNUM_TYPE; t4191.value.fixnum_type = (int)(((int)(t4216.value.structure_type27698->s7))>>1);} break; case NATIVE_PROCEDURE_TYPE14115: t4217 = f18319(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4217; break; case NATIVE_PROCEDURE_TYPE14133: t4191 = f1158((t4193.value.native_procedure_type14133), t4194); break; case NATIVE_PROCEDURE_TYPE14245: t4191 = f18269(t4194); break; case NATIVE_PROCEDURE_TYPE14246: t4191 = f18268(t4194); break; case NATIVE_PROCEDURE_TYPE14263: t4218 = f18288(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4218; break; case NATIVE_PROCEDURE_TYPE14281: t4191 = f1059((t4193.value.native_procedure_type14281), t4194); break; case NATIVE_PROCEDURE_TYPE14295: t4191 = f18168(t4194); break; case NATIVE_PROCEDURE_TYPE14297: t4191 = f18162(t4194); break; case NATIVE_PROCEDURE_TYPE14349: t4219 = f18247((t4193.value.native_procedure_type14349), t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4219; break; case NATIVE_PROCEDURE_TYPE14766: t4220 = f18227(); t4191.tag = EXTERNAL_SYMBOL_TYPE; t4191.value.external_symbol_type = t4220; break; case NATIVE_PROCEDURE_TYPE14779: t4191 = f18224(t4194); break; case NATIVE_PROCEDURE_TYPE14782: t4221 = f18223(); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4221; break; case NATIVE_PROCEDURE_TYPE14783: t4222 = f18222(); t4191.tag = EXTERNAL_SYMBOL_TYPE; t4191.value.external_symbol_type = t4222; break; case NATIVE_PROCEDURE_TYPE14785: t4223 = f18220(); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4223; break; case NATIVE_PROCEDURE_TYPE14802: t4191 = f1143((t4193.value.native_procedure_type14802), t4194); break; case NATIVE_PROCEDURE_TYPE14844: t4224 = f19649(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4224; break; case NATIVE_PROCEDURE_TYPE14845: t4225 = f19648(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4225; break; case NATIVE_PROCEDURE_TYPE14859: t4226 = f19298(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4226; break; case NATIVE_PROCEDURE_TYPE14860: t4227 = f19291(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4227; break; case NATIVE_PROCEDURE_TYPE14881: t4228 = f19292(t4194); /* MOVE: dispatching squished to general */ if (t4228==FALSE_TYPE) t4191.tag = (unsigned)t4228; else {t4191.tag = FIXNUM_TYPE; t4191.value.fixnum_type = (int)(((int)t4228)>>1);} break; case NATIVE_PROCEDURE_TYPE14894: t4229 = f19290(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4229; break; case NATIVE_PROCEDURE_TYPE14906: t4230 = f19289(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4230; break; case NATIVE_PROCEDURE_TYPE14945: t4231 = f19285(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4231; break; case NATIVE_PROCEDURE_TYPE14983: t4232 = f19269(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4232; break; case NATIVE_PROCEDURE_TYPE14985: t4233 = f19280(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4233; break; case NATIVE_PROCEDURE_TYPE15013: t4191 = f16100(t4194); break; case NATIVE_PROCEDURE_TYPE15024: t4191 = f15322(t4194); break; case NATIVE_PROCEDURE_TYPE15039: t4234 = f13538(t4194); t4191.tag = STRING_TYPE; t4191.value.string_type = t4234; break; case NATIVE_PROCEDURE_TYPE15175: t4191 = f1549(t4194); break; case NATIVE_PROCEDURE_TYPE15178: t4191 = f14547(t4194); break; case NATIVE_PROCEDURE_TYPE15240: t4235 = f19546(t4194); t4191.tag = FIXNUM_TYPE; t4191.value.fixnum_type = t4235; break; case NATIVE_PROCEDURE_TYPE15253: t4236 = f19530(t4194); t4191.tag = FIXNUM_TYPE; t4191.value.fixnum_type = t4236; break; case NATIVE_PROCEDURE_TYPE15705: t4191 = f11049(t4194); break; case NATIVE_PROCEDURE_TYPE15787: t4191 = f12409(t4194); break; case NATIVE_PROCEDURE_TYPE15938: t4237 = f12307(t4194); /* MOVE: branching squeezed to general */ if (t4237>=((struct structure_type24753 *)VALUE_OFFSET)) {t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4237;} else t4191.tag = (unsigned)t4237; break; case NATIVE_PROCEDURE_TYPE15951: t4238 = f12281(t4194); /* MOVE: branching squeezed to general */ if (t4238>=((struct structure_type24753 *)VALUE_OFFSET)) {t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4238;} else t4191.tag = (unsigned)t4238; break; case NATIVE_PROCEDURE_TYPE16405: t4239 = f19287(t4194); t4191 = *((struct w49 *)(&t4239)); break; case NATIVE_PROCEDURE_TYPE16554: t4240 = f19288(t4194); t4191 = *((struct w49 *)(&t4240)); break; case NATIVE_PROCEDURE_TYPE16893: t4191 = f12436(t4194); break; case NATIVE_PROCEDURE_TYPE16993: t4241 = f12631((t4193.value.native_procedure_type16993), t4194); t4191.tag = STRUCTURE_TYPE27698; t4191.value.structure_type27698 = t4241; break; case NATIVE_PROCEDURE_TYPE17534: t4191 = f11025((t4193.value.native_procedure_type17534), t4194); break; case NATIVE_PROCEDURE_TYPE17765: t4242 = f19286(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4242; break; case NATIVE_PROCEDURE_TYPE17807: t4243 = f12476(t4194); t4191 = *((struct w49 *)(&t4243)); break; case NATIVE_PROCEDURE_TYPE18640: t4244 = f15726((t4193.value.native_procedure_type18640), t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4244; break; case NATIVE_PROCEDURE_TYPE18679: t4245 = f16121(t4194); t4191 = *((struct w49 *)(&t4245)); break; case NATIVE_PROCEDURE_TYPE18684: t4246 = f16113((t4193.value.native_procedure_type18684), t4194); t4191 = *((struct w49 *)(&t4246)); break; case NATIVE_PROCEDURE_TYPE18686: t4247 = f15715(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4247; break; case NATIVE_PROCEDURE_TYPE18687: t4248 = f16112(t4194); t4191 = *((struct w49 *)(&t4248)); break; case NATIVE_PROCEDURE_TYPE18689: t4191 = f16109(t4194); break; case NATIVE_PROCEDURE_TYPE18697: t4191 = f15709(t4194); break; case NATIVE_PROCEDURE_TYPE19200: t4191 = f13890(t4194); break; case NATIVE_PROCEDURE_TYPE19201: t4191 = f13889(t4194); break; case NATIVE_PROCEDURE_TYPE19426: t4249 = f9170((t4193.value.native_procedure_type19426), t4194); t4191 = *((struct w49 *)(&t4249)); break; case NATIVE_PROCEDURE_TYPE19584: t4250 = f9359((t4193.value.native_procedure_type19584), t4194); t4191.tag = STRUCTURE_TYPE27698; t4191.value.structure_type27698 = t4250; break; case NATIVE_PROCEDURE_TYPE19587: t4251 = f9354((t4193.value.native_procedure_type19587), t4194); t4191.tag = STRUCTURE_TYPE27698; t4191.value.structure_type27698 = t4251; break; case NATIVE_PROCEDURE_TYPE19825: t4252 = f16037((t4193.value.native_procedure_type19825), t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4252; break; case NATIVE_PROCEDURE_TYPE19854: t4253 = f15988((t4193.value.native_procedure_type19854), t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4253; break; case NATIVE_PROCEDURE_TYPE20286: t4191 = f15486((t4193.value.native_procedure_type20286), t4194); break; case NATIVE_PROCEDURE_TYPE20428: t4191 = f13691((t4193.value.native_procedure_type20428), t4194); break; case NATIVE_PROCEDURE_TYPE20455: t4191 = f13680((t4193.value.native_procedure_type20455), t4194); break; case NATIVE_PROCEDURE_TYPE20460: t4191 = f14676((t4193.value.native_procedure_type20460), t4194); break; case NATIVE_PROCEDURE_TYPE20461: t4254 = f14675((t4193.value.native_procedure_type20461), t4194); t4191.tag = STRING_TYPE; t4191.value.string_type = t4254; break; case NATIVE_PROCEDURE_TYPE20462: t4255 = f14645((t4193.value.native_procedure_type20462), t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4255; break; case NATIVE_PROCEDURE_TYPE20476: t4256 = f14620((t4193.value.native_procedure_type20476), t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4256; break; case NATIVE_PROCEDURE_TYPE20496: t4191 = f15475((t4193.value.native_procedure_type20496), t4194); break; case NATIVE_PROCEDURE_TYPE20552: t4191 = f15458((t4193.value.native_procedure_type20552), t4194); break; case NATIVE_PROCEDURE_TYPE20570: t4257 = f15442((t4193.value.native_procedure_type20570), t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4257; break; case NATIVE_PROCEDURE_TYPE20584: t4258 = f15431((t4193.value.native_procedure_type20584), t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4258; break; case NATIVE_PROCEDURE_TYPE20731: t4191 = f13105((t4193.value.native_procedure_type20731), t4194); break; case NATIVE_PROCEDURE_TYPE20758: d16096 = t4193.value.native_procedure_type20758; b27143 = t4194; t4191 = f16096(); break; case NATIVE_PROCEDURE_TYPE20783: d15771 = t4193.value.native_procedure_type20783; b26894 = t4194; t4191 = f15771(); break; case NATIVE_PROCEDURE_TYPE20851: t4191 = f14712(t4193.value.native_procedure_type20851); break; case NATIVE_PROCEDURE_TYPE20855: t4191 = f14685((t4193.value.native_procedure_type20855), t4194); break; case NATIVE_PROCEDURE_TYPE20862: t4191 = f14671((t4193.value.native_procedure_type20862), t4194); break; case NATIVE_PROCEDURE_TYPE20869: t4191 = f14667((t4193.value.native_procedure_type20869), t4194); break; case NATIVE_PROCEDURE_TYPE20870: t4259 = f14666((t4193.value.native_procedure_type20870), t4194); t4191.tag = STRING_TYPE; t4191.value.string_type = t4259; break; case NATIVE_PROCEDURE_TYPE20871: t4191 = f14665((t4193.value.native_procedure_type20871), t4194); break; case NATIVE_PROCEDURE_TYPE20872: t4260 = f14664((t4193.value.native_procedure_type20872), t4194); t4191.tag = STRING_TYPE; t4191.value.string_type = t4260; break; case NATIVE_PROCEDURE_TYPE20878: t4191 = f14656((t4193.value.native_procedure_type20878), t4194); break; case NATIVE_PROCEDURE_TYPE20879: t4261 = f14655((t4193.value.native_procedure_type20879), t4194); t4191.tag = STRING_TYPE; t4191.value.string_type = t4261; break; case NATIVE_PROCEDURE_TYPE20880: t4191 = f14654((t4193.value.native_procedure_type20880), t4194); break; case NATIVE_PROCEDURE_TYPE20881: t4262 = f14653((t4193.value.native_procedure_type20881), t4194); t4191.tag = STRING_TYPE; t4191.value.string_type = t4262; break; case NATIVE_PROCEDURE_TYPE20883: t4263 = f14636((t4193.value.native_procedure_type20883), t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4263; break; case NATIVE_PROCEDURE_TYPE20891: t4191 = f14625((t4193.value.native_procedure_type20891), t4194); break; case NATIVE_PROCEDURE_TYPE20895: t4264 = f14611((t4193.value.native_procedure_type20895), t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4264; break; case NATIVE_PROCEDURE_TYPE20914: t4191 = f16432((t4193.value.native_procedure_type20914), t4194); break; case NATIVE_PROCEDURE_TYPE20916: t4191 = f16416((t4193.value.native_procedure_type20916), t4194); break; case NATIVE_PROCEDURE_TYPE20919: t4191 = f16631((t4193.value.native_procedure_type20919), t4194); break; case NATIVE_PROCEDURE_TYPE20928: t4191 = f16597((t4193.value.native_procedure_type20928), t4194); break; case NATIVE_PROCEDURE_TYPE20947: t4265 = f16583((t4193.value.native_procedure_type20947), t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4265; break; case NATIVE_PROCEDURE_TYPE20961: t4266 = f16567((t4193.value.native_procedure_type20961), t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4266; break; case NATIVE_PROCEDURE_TYPE20967: t4267 = f16565((t4193.value.native_procedure_type20967), t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4267; break; case NATIVE_PROCEDURE_TYPE20970: t4268 = f16561((t4193.value.native_procedure_type20970), t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4268; break; case NATIVE_PROCEDURE_TYPE21037: t4191 = f16700((t4193.value.native_procedure_type21037), t4194); break; case NATIVE_PROCEDURE_TYPE21043: t4191 = f16678((t4193.value.native_procedure_type21043), t4194); break; case NATIVE_PROCEDURE_TYPE21049: t4191 = f16736((t4193.value.native_procedure_type21049), t4194); break; case NATIVE_PROCEDURE_TYPE21060: d15570 = t4193.value.native_procedure_type21060; b26729 = t4194; t4191 = f15570(); break; case NATIVE_PROCEDURE_TYPE21066: t4191 = f16821((t4193.value.native_procedure_type21066), t4194); break; case NATIVE_PROCEDURE_TYPE21083: t4191 = f16720((t4193.value.native_procedure_type21083), t4194); break; case NATIVE_PROCEDURE_TYPE21088: t4191 = f16646((t4193.value.native_procedure_type21088), t4194); break; case NATIVE_PROCEDURE_TYPE21091: t4191 = f16853((t4193.value.native_procedure_type21091), t4194); break; case NATIVE_PROCEDURE_TYPE21109: d15579 = t4193.value.native_procedure_type21109; b26749 = t4194; t4191 = f15579(); break; case NATIVE_PROCEDURE_TYPE21111: t4191 = f16908((t4193.value.native_procedure_type21111), t4194); break; case NATIVE_PROCEDURE_TYPE21118: t4191 = f16880((t4193.value.native_procedure_type21118), t4194); break; case NATIVE_PROCEDURE_TYPE21138: t4191 = f16981((t4193.value.native_procedure_type21138), t4194); break; case NATIVE_PROCEDURE_TYPE21148: t4191 = f17057((t4193.value.native_procedure_type21148), t4194); break; case NATIVE_PROCEDURE_TYPE21153: d17117 = t4193.value.native_procedure_type21153; b29067 = t4194; t4191 = f17117(); break; case NATIVE_PROCEDURE_TYPE21155: t4191 = f17118((t4193.value.native_procedure_type21155), t4194); break; case NATIVE_PROCEDURE_TYPE21171: d17084 = t4193.value.native_procedure_type21171; b29016 = t4194; t4191 = f17084(); break; case NATIVE_PROCEDURE_TYPE21173: t4191 = f17085((t4193.value.native_procedure_type21173), t4194); break; case NATIVE_PROCEDURE_TYPE21202: t4191 = f17018((t4193.value.native_procedure_type21202), t4194); break; case NATIVE_PROCEDURE_TYPE21226: t4191 = f16940((t4193.value.native_procedure_type21226), t4194); break; case NATIVE_PROCEDURE_TYPE21229: t4191 = f16839((t4193.value.native_procedure_type21229), t4194); break; case NATIVE_PROCEDURE_TYPE21235: d17183 = t4193.value.native_procedure_type21235; b29169 = t4194; t4191 = f17183(); break; case NATIVE_PROCEDURE_TYPE21237: t4191 = f17184((t4193.value.native_procedure_type21237), t4194); break; case NATIVE_PROCEDURE_TYPE21257: t4191 = f17221((t4193.value.native_procedure_type21257), t4194); break; case NATIVE_PROCEDURE_TYPE21260: t4191 = f17208((t4193.value.native_procedure_type21260), t4194); break; case NATIVE_PROCEDURE_TYPE21266: t4191 = f17253((t4193.value.native_procedure_type21266), t4194); break; case NATIVE_PROCEDURE_TYPE21269: t4191 = f17290((t4193.value.native_procedure_type21269), t4194); break; case NATIVE_PROCEDURE_TYPE21275: t4191 = f17328((t4193.value.native_procedure_type21275), t4194); break; case NATIVE_PROCEDURE_TYPE21281: t4191 = f17309((t4193.value.native_procedure_type21281), t4194); break; case NATIVE_PROCEDURE_TYPE21287: t4191 = f17271((t4193.value.native_procedure_type21287), t4194); break; case NATIVE_PROCEDURE_TYPE21297: t4191 = f17237((t4193.value.native_procedure_type21297), t4194); break; case NATIVE_PROCEDURE_TYPE21300: t4191 = f17353((t4193.value.native_procedure_type21300), t4194); break; case NATIVE_PROCEDURE_TYPE21305: t4191 = f17377((t4193.value.native_procedure_type21305), t4194); break; case NATIVE_PROCEDURE_TYPE21310: t4191 = f17365((t4193.value.native_procedure_type21310), t4194); break; case NATIVE_PROCEDURE_TYPE21315: t4191 = f17401((t4193.value.native_procedure_type21315), t4194); break; case NATIVE_PROCEDURE_TYPE21320: d17431 = t4193.value.native_procedure_type21320; b29911 = t4194; t4191 = f17431(); break; case NATIVE_PROCEDURE_TYPE21325: t4191 = f17433((t4193.value.native_procedure_type21325), t4194); break; case NATIVE_PROCEDURE_TYPE21330: t4191 = f17426((t4193.value.native_procedure_type21330), t4194); break; case NATIVE_PROCEDURE_TYPE21335: t4191 = f17413((t4193.value.native_procedure_type21335), t4194); break; case NATIVE_PROCEDURE_TYPE21340: d17465 = t4193.value.native_procedure_type21340; b30003 = t4194; t4191 = f17465(); break; case NATIVE_PROCEDURE_TYPE21342: t4191 = f17466((t4193.value.native_procedure_type21342), t4194); break; case NATIVE_PROCEDURE_TYPE21349: t4191 = f17448((t4193.value.native_procedure_type21349), t4194); break; case NATIVE_PROCEDURE_TYPE21354: t4191 = f17389((t4193.value.native_procedure_type21354), t4194); break; case NATIVE_PROCEDURE_TYPE21359: t4191 = f17341((t4193.value.native_procedure_type21359), t4194); break; case NATIVE_PROCEDURE_TYPE21364: d17150 = t4193.value.native_procedure_type21364; b29118 = t4194; t4191 = f17150(); break; case NATIVE_PROCEDURE_TYPE21366: t4191 = f17151((t4193.value.native_procedure_type21366), t4194); break; case NATIVE_PROCEDURE_TYPE21382: t4191 = f17499((t4193.value.native_procedure_type21382), t4194); break; case NATIVE_PROCEDURE_TYPE21388: t4191 = f17524((t4193.value.native_procedure_type21388), t4194); break; case NATIVE_PROCEDURE_TYPE21394: d17598 = t4193.value.native_procedure_type21394; b30396 = t4194; t4191 = f17598(); break; case NATIVE_PROCEDURE_TYPE21415: t4269 = f19627(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4269; break; case NATIVE_PROCEDURE_TYPE21442: t4270 = f15696(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4270; break; case NATIVE_PROCEDURE_TYPE21443: t4191 = f15642(t4194); break; case NATIVE_PROCEDURE_TYPE21445: t4271 = f19616(t4194); t4191 = *((struct w49 *)(&t4271)); break; case NATIVE_PROCEDURE_TYPE21448: t4272 = f19614(t4194); t4191 = *((struct w49 *)(&t4272)); break; case NATIVE_PROCEDURE_TYPE21453: t4273 = f16181(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4273; break; case NATIVE_PROCEDURE_TYPE21454: t4274 = f16180(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4274; break; case NATIVE_PROCEDURE_TYPE21456: t4275 = f16178(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4275; break; case NATIVE_PROCEDURE_TYPE21457: t4276 = f16176(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4276; break; case NATIVE_PROCEDURE_TYPE21458: t4277 = f16174(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4277; break; case NATIVE_PROCEDURE_TYPE21459: t4278 = f16161(t4194); t4191 = *((struct w49 *)(&t4278)); break; case NATIVE_PROCEDURE_TYPE21473: t4279 = f16154(t4194); t4191 = *((struct w49 *)(&t4279)); break; case NATIVE_PROCEDURE_TYPE21475: t4280 = f16151(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4280; break; case NATIVE_PROCEDURE_TYPE21477: t4281 = f16144(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4281; break; case NATIVE_PROCEDURE_TYPE21497: t4191 = f15748(t4194); break; case NATIVE_PROCEDURE_TYPE21498: t4191 = f15737(t4194); break; case NATIVE_PROCEDURE_TYPE21499: t4191 = f15319(t4194); break; case NATIVE_PROCEDURE_TYPE21500: t4282 = f15694(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4282; break; case NATIVE_PROCEDURE_TYPE21501: t4283 = f15683(t4194); t4191 = *((struct w49 *)(&t4283)); break; case NATIVE_PROCEDURE_TYPE21506: t4284 = f15677(t4194); t4191 = *((struct w49 *)(&t4284)); break; case NATIVE_PROCEDURE_TYPE21519: t4285 = f15661(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4285; break; case NATIVE_PROCEDURE_TYPE21520: t4286 = f15660(t4194); t4191 = *((struct w49 *)(&t4286)); break; case NATIVE_PROCEDURE_TYPE21521: t4287 = f15659(t4194); t4191 = *((struct w49 *)(&t4287)); break; case NATIVE_PROCEDURE_TYPE21522: t4288 = f15648(t4194); t4191 = *((struct w49 *)(&t4288)); break; case NATIVE_PROCEDURE_TYPE21523: t4191 = f15640(t4194); break; case NATIVE_PROCEDURE_TYPE21540: t4289 = f18325(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4289; break; case NATIVE_PROCEDURE_TYPE21809: t4290 = f16082((t4193.value.native_procedure_type21809), t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4290; break; case NATIVE_PROCEDURE_TYPE21821: t4291 = f16069((t4193.value.native_procedure_type21821), t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4291; break; case NATIVE_PROCEDURE_TYPE21848: t4292 = f15858(t4194); t4191 = *((struct w49 *)(&t4292)); break; case NATIVE_PROCEDURE_TYPE21897: t4191 = f15811((t4193.value.native_procedure_type21897), t4194); break; case NATIVE_PROCEDURE_TYPE21904: /* x298265 stalin.sc:19531:682748 */ /* x298264 stalin.sc:19531:682749 */ /* x303552 stalin.sc:14693:514793 */ t4191.tag = STRING_TYPE; t4191.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21945: d17625 = t4193.value.native_procedure_type21945; b30489 = t4194; t4191 = f17625(); break; case NATIVE_PROCEDURE_TYPE21947: t4191 = f17626((t4193.value.native_procedure_type21947), t4194); break; case NATIVE_PROCEDURE_TYPE21949: t4191 = f17612((t4193.value.native_procedure_type21949), t4194); break; case NATIVE_PROCEDURE_TYPE21953: d17572 = t4193.value.native_procedure_type21953; b30333 = t4194; t4191 = f17572(); break; case NATIVE_PROCEDURE_TYPE21957: t4191 = f17573((t4193.value.native_procedure_type21957), t4194); break; case NATIVE_PROCEDURE_TYPE21962: d17566 = t4193.value.native_procedure_type21962; t4191 = f17566(); break; case NATIVE_PROCEDURE_TYPE21964: t4191 = f17567(t4193.value.native_procedure_type21964); break; case NATIVE_PROCEDURE_TYPE21967: d17561 = t4193.value.native_procedure_type21967; t4191 = f17561(); break; case NATIVE_PROCEDURE_TYPE21969: t4191 = f17562(t4193.value.native_procedure_type21969); break; case NATIVE_PROCEDURE_TYPE21972: d17556 = t4193.value.native_procedure_type21972; t4191 = f17556(); break; case NATIVE_PROCEDURE_TYPE21974: /* x297831 stalin.sc:23400:816144 */ /* x297830 stalin.sc:23400:816145 */ /* x303328 stalin.sc:14693:514793 */ t4191.tag = STRING_TYPE; t4191.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21976: t4191 = f17533((t4193.value.native_procedure_type21976), t4194); break; case NATIVE_PROCEDURE_TYPE21979: d17706 = t4193.value.native_procedure_type21979; b30702 = t4194; t4191 = f17706(); break; case NATIVE_PROCEDURE_TYPE21983: d17708 = t4193.value.native_procedure_type21983; b30704 = t4194; t4191 = f17708(); break; case NATIVE_PROCEDURE_TYPE21985: t4191 = f17709((t4193.value.native_procedure_type21985), t4194); break; case NATIVE_PROCEDURE_TYPE21998: t4191 = f17688((t4193.value.native_procedure_type21998), t4194); break; case NATIVE_PROCEDURE_TYPE22001: t4191 = f17681(t4193.value.native_procedure_type22001); break; case NATIVE_PROCEDURE_TYPE22004: t4191 = f17678(t4193.value.native_procedure_type22004); break; case NATIVE_PROCEDURE_TYPE22007: /* x297768 stalin.sc:23690:824240 */ /* x297767 stalin.sc:23690:824241 */ /* x303294 stalin.sc:14693:514793 */ t4191.tag = STRING_TYPE; t4191.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22009: t4191 = f17760((t4193.value.native_procedure_type22009), t4194); break; case NATIVE_PROCEDURE_TYPE22011: d17804 = t4193.value.native_procedure_type22011; b30911 = t4194; t4191 = f17804(); break; case NATIVE_PROCEDURE_TYPE22013: t4191 = f17805((t4193.value.native_procedure_type22013), t4194); break; case NATIVE_PROCEDURE_TYPE22015: d17784 = t4193.value.native_procedure_type22015; b30860 = t4194; t4191 = f17784(); break; case NATIVE_PROCEDURE_TYPE22017: t4191 = f17785((t4193.value.native_procedure_type22017), t4194); break; case NATIVE_PROCEDURE_TYPE22038: d17840 = t4193.value.native_procedure_type22038; b31010 = t4194; t4191 = f17840(); break; case NATIVE_PROCEDURE_TYPE22049: t4191 = f15905((t4193.value.native_procedure_type22049), t4194); break; case NATIVE_PROCEDURE_TYPE22065: d15900 = t4193.value.native_procedure_type22065; b27021 = t4194; t4191 = f15900(); break; case NATIVE_PROCEDURE_TYPE22073: d15885 = t4193.value.native_procedure_type22073; b27015 = t4194; t4191 = f15885(); break; case NATIVE_PROCEDURE_TYPE22082: d17890 = t4193.value.native_procedure_type22082; b31082 = t4194; t4191 = f17890(); break; case NATIVE_PROCEDURE_TYPE22092: t4191 = f17878((t4193.value.native_procedure_type22092), t4194); break; case NATIVE_PROCEDURE_TYPE22101: d17636 = t4193.value.native_procedure_type22101; b30537 = t4194; t4191 = f17636(); break; case NATIVE_PROCEDURE_TYPE22103: t4191 = f17637((t4193.value.native_procedure_type22103), t4194); break; case NATIVE_PROCEDURE_TYPE22105: t4191 = f17638((t4193.value.native_procedure_type22105), t4194); break; case NATIVE_PROCEDURE_TYPE22107: t4191 = f17486((t4193.value.native_procedure_type22107), t4194); break; case NATIVE_PROCEDURE_TYPE22113: t4191 = f17932((t4193.value.native_procedure_type22113), t4194); break; case NATIVE_PROCEDURE_TYPE22118: t4191 = f17956((t4193.value.native_procedure_type22118), t4194); break; case NATIVE_PROCEDURE_TYPE22120: t4191 = f17944((t4193.value.native_procedure_type22120), t4194); break; case NATIVE_PROCEDURE_TYPE22125: t4191 = f17975((t4193.value.native_procedure_type22125), t4194); break; case NATIVE_PROCEDURE_TYPE22128: t4191 = f17965((t4193.value.native_procedure_type22128), t4194); break; case NATIVE_PROCEDURE_TYPE22131: d18030 = t4193.value.native_procedure_type22131; b31667 = t4194; t4191 = f18030(); break; case NATIVE_PROCEDURE_TYPE22133: t4191 = f18031((t4193.value.native_procedure_type22133), t4194); break; case NATIVE_PROCEDURE_TYPE22136: t4191 = f18007((t4193.value.native_procedure_type22136), t4194); break; case NATIVE_PROCEDURE_TYPE22138: t4191 = f17985((t4193.value.native_procedure_type22138), t4194); break; case NATIVE_PROCEDURE_TYPE22140: t4191 = f18071((t4193.value.native_procedure_type22140), t4194); break; case NATIVE_PROCEDURE_TYPE22142: t4191 = f18089((t4193.value.native_procedure_type22142), t4194); break; case NATIVE_PROCEDURE_TYPE22144: t4191 = f18080((t4193.value.native_procedure_type22144), t4194); break; case NATIVE_PROCEDURE_TYPE22146: t4191 = f18062((t4193.value.native_procedure_type22146), t4194); break; case NATIVE_PROCEDURE_TYPE22149: t4191 = f18120((t4193.value.native_procedure_type22149), t4194); break; case NATIVE_PROCEDURE_TYPE22155: d18147 = t4193.value.native_procedure_type22155; b32201 = t4194; t4191 = f18147(); break; case NATIVE_PROCEDURE_TYPE22161: d18134 = t4193.value.native_procedure_type22161; b32153 = t4194; t4191 = f18134(); break; case NATIVE_PROCEDURE_TYPE22163: d18132 = t4193.value.native_procedure_type22163; b32151 = t4194; t4191 = f18132(); break; case NATIVE_PROCEDURE_TYPE22166: t4293 = f18041((t4193.value.native_procedure_type22166), t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4293; break; case NATIVE_PROCEDURE_TYPE22317: t4191 = f15030((t4193.value.native_procedure_type22317), t4194); break; case NATIVE_PROCEDURE_TYPE22651: t4191 = f13090((t4193.value.native_procedure_type22651), t4194); break; case NATIVE_PROCEDURE_TYPE22653: t4191 = f13088((t4193.value.native_procedure_type22653), t4194); break; case NATIVE_PROCEDURE_TYPE22732: t4294 = f12255((t4193.value.native_procedure_type22732), t4194); /* MOVE: branching squeezed to general */ if (t4294>=((struct structure_type24753 *)VALUE_OFFSET)) {t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4294;} else t4191.tag = (unsigned)t4294; break; case NATIVE_PROCEDURE_TYPE23298: t4191 = f17689(t4193.value.native_procedure_type23298); break; case NATIVE_PROCEDURE_TYPE23320: t4191 = f1078((t4193.value.native_procedure_type23320), t4194); break; case NATIVE_PROCEDURE_TYPE23668: t4295 = f13790((t4193.value.native_procedure_type23668), t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4295; break; case NATIVE_PROCEDURE_TYPE23825: t4296 = f15654(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4296; break; case NATIVE_PROCEDURE_TYPE23834: t4297 = f15663(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4297; break; case NATIVE_PROCEDURE_TYPE23839: t4298 = f15691(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4298; break; case NATIVE_PROCEDURE_TYPE23841: t4299 = f15689(t4194); t4191.tag = STRUCTURE_TYPE24753; t4191.value.structure_type24753 = t4299; break; case NATIVE_PROCEDURE_TYPE23848: t4191 = f15752(t4194); break; case NATIVE_PROCEDURE_TYPE23878: t4191 = f15701(t4194); break; case NATIVE_PROCEDURE_TYPE23899: t4191 = f15742(t4194); break; case NATIVE_PROCEDURE_TYPE24056: t4300 = f9690(t4194); t4191.tag = STRUCTURE_TYPE27747; t4191.value.structure_type27747 = t4300; break; case NATIVE_PROCEDURE_TYPE24093: t4301 = f9654((t4193.value.native_procedure_type24093), t4194); t4191.tag = STRUCTURE_TYPE27747; t4191.value.structure_type27747 = t4301; break; case NATIVE_PROCEDURE_TYPE24096: t4302 = f9651((t4193.value.native_procedure_type24096), t4194); t4191.tag = STRUCTURE_TYPE27747; t4191.value.structure_type27747 = t4302; break; case NATIVE_PROCEDURE_TYPE24098: t4303 = f9649((t4193.value.native_procedure_type24098), t4194); t4191.tag = STRUCTURE_TYPE27747; t4191.value.structure_type27747 = t4303; break; case NATIVE_PROCEDURE_TYPE24101: t4304 = f9646((t4193.value.native_procedure_type24101), t4194); t4191.tag = STRUCTURE_TYPE27747; t4191.value.structure_type27747 = t4304; break; case NATIVE_PROCEDURE_TYPE24104: t4305 = f9643((t4193.value.native_procedure_type24104), t4194); t4191.tag = STRUCTURE_TYPE27747; t4191.value.structure_type27747 = t4305; break; case NATIVE_PROCEDURE_TYPE24106: t4306 = f9640((t4193.value.native_procedure_type24106), t4194); t4191.tag = STRUCTURE_TYPE27747; t4191.value.structure_type27747 = t4306; break; case NATIVE_PROCEDURE_TYPE24209: t4307 = f12557((t4193.value.native_procedure_type24209), t4194); t4191.tag = STRUCTURE_TYPE27698; t4191.value.structure_type27698 = t4307; break; default: backtrace_internal("LOOP[27735]"); call_error();} /* x257094 */ t4192 = a34163; /* x266661 */ t4189 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t4189==NULL) {backtrace_internal("LOOP[27735]"); out_of_memory_error();} t4189->s0 = t4191; /* MOVE: branching squeezed to general */ if (t4192>=((struct structure_type24753 *)VALUE_OFFSET)) {t4189->s1.tag = STRUCTURE_TYPE24753; t4189->s1.value.structure_type24753 = t4192;} else t4189->s1.tag = (unsigned)t4192; /* x257084 */ a34162 = t4188; a34163 = t4189; goto h27735; l933: /* x257258 */ /* x257114 */ /* x257113 */ /* x257112 */ t3670 = a34159; /* x266658 */ t3669 = t3670->s1; /* x266659 */ if (!((t3669.tag)==NULL_TYPE)) goto l935; /* x257157 */ /* x257156 */ /* x257155 */ /* x257150 */ t4168 = a34158; /* x257153 */ /* x257152 */ t4185 = a34159; /* x266651 */ t4169 = t4185->s0; /* x257154 */ /* x257149 */ /* x257148 */ /* x257147 */ /* x257146 */ /* x257145 */ /* x257144 */ /* x257143 */ /* x257116 */ /* x257115 */ a34166 = t4168; a34167 = t4169; a34168 = (struct structure_type24753 *)NULL_TYPE; h27740: /* x257142 */ /* x257119 */ /* x257118 */ t4170 = a34166; /* x266657 */ if (!((t4170.tag)==NULL_TYPE)) goto l967; /* x257122 */ /* x257121 */ t4184 = a34168; /* x257120 */ return f26326(t4184); l967: /* x257141 */ /* x257126 */ /* x257125 */ t4174 = *((struct w16638 *)(&a34166)); /* x266656 */ if (!((t4174.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27740]"); structure_ref_error();} t4171 = t4174.value.structure_type24753->s1; /* x257129 */ /* x257128 */ t4175 = a34167; /* x266655 */ if (!((t4175.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27740]"); structure_ref_error();} t4172 = t4175.value.structure_type24753->s1; /* x257140 */ /* x257138 */ /* x257134 */ /* x257133 */ t4182 = *((struct w16638 *)(&a34166)); /* x266653 */ if (!((t4182.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27740]"); structure_ref_error();} t4179 = t4182.value.structure_type24753->s0; /* x257137 */ /* x257136 */ t4183 = a34167; /* x266652 */ if (!((t4183.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27740]"); structure_ref_error();} t4180 = t4183.value.structure_type24753->s0; /* x257131 */ t4178 = a34157; switch (t4178.tag) {case NATIVE_PROCEDURE_TYPE460: t4181.tag = STRUCTURE_TYPE24753; t4181.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t4181.value.structure_type24753)==NULL) {backtrace_internal("LOOP[27740]"); out_of_memory_error();} t4181.value.structure_type24753->s0 = t4180; t4181.value.structure_type24753->s1.tag = NULL_TYPE; a35215 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35215==NULL) {backtrace_internal("LOOP[27740]"); out_of_memory_error();} a35215->s0 = t4179; a35215->s1 = t4181; /* x272437 */ t4176 = a35215; break; case NATIVE_PROCEDURE_TYPE14514: t4176 = f18646(t4179, t4180); break; case NATIVE_PROCEDURE_TYPE14680: t4176 = f18496((t4178.value.native_procedure_type14680), t4179, t4180); break; case NATIVE_PROCEDURE_TYPE20301: t4176 = f13696(t4179, t4180); break; case NATIVE_PROCEDURE_TYPE20446: t4176 = f13686(t4179, t4180); break; default: backtrace_internal("LOOP[27740]"); call_error();} /* x257139 */ t4177 = a34168; /* x266654 */ t4173 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t4173==NULL) {backtrace_internal("LOOP[27740]"); out_of_memory_error();} t4173->s0.tag = STRUCTURE_TYPE24753; t4173->s0.value.structure_type24753 = t4176; /* MOVE: branching squeezed to general */ if (t4177>=((struct structure_type24753 *)VALUE_OFFSET)) {t4173->s1.tag = STRUCTURE_TYPE24753; t4173->s1.value.structure_type24753 = t4177;} else t4173->s1.tag = (unsigned)t4177; /* x257123 */ a34166 = t4171; a34167 = t4172; a34168 = t4173; goto h27740; l935: /* x257257 */ /* x257256 */ /* x257255 */ /* x257252 */ t3671 = a34158; /* x257253 */ t3672 = a34159; /* x257254 */ /* x257251 */ /* x257250 */ /* x257249 */ /* x257248 */ /* x257247 */ /* x257246 */ /* x257245 */ /* x257159 */ /* x257158 */ a34171 = t3671; a34172 = t3672; a34173 = (struct structure_type24753 *)NULL_TYPE; h27745: /* x257244 */ /* x257162 */ /* x257161 */ t3673 = a34171; /* x266650 */ if (!((t3673.tag)==NULL_TYPE)) goto l937; /* x257165 */ /* x257164 */ t4167 = a34173; /* x257163 */ return f26326(t4167); l937: /* x257243 */ /* x257169 */ /* x257168 */ t3677 = *((struct w16638 *)(&a34171)); /* x266649 */ if (!((t3677.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27745]"); structure_ref_error();} t3674 = t3677.value.structure_type24753->s1; /* x257201 */ /* x257199 */ t3678 = a34172; /* x257200 */ /* x257198 */ /* x257197 */ /* x257196 */ /* x257195 */ /* x257194 */ /* x257193 */ /* x257192 */ /* x257171 */ /* x257170 */ /* MOVE: branching squeezed to general */ if (t3678>=((struct structure_type24753 *)VALUE_OFFSET)) {a34176.tag = STRUCTURE_TYPE24753; a34176.value.structure_type24753 = t3678;} else a34176.tag = (unsigned)t3678; a34177 = (struct structure_type24753 *)NULL_TYPE; h27748: /* x257191 */ /* x257174 */ /* x257173 */ t3679 = a34176; /* x266648 */ if (!((t3679.tag)==NULL_TYPE)) goto l939; /* x257177 */ /* x257176 */ t3687 = a34177; /* x257175 */ t3675 = f26326(t3687); goto l940; l939: /* x257190 */ /* x257181 */ /* x257180 */ t3682 = *((struct w16638 *)(&a34176)); /* x266647 */ if (!((t3682.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27748]"); structure_ref_error();} t3680 = t3682.value.structure_type24753->s1; /* x257189 */ /* x257187 */ /* x257186 */ /* x257185 */ t3686 = *((struct w16638 *)(&a34176)); /* x266644 */ if (!((t3686.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27748]"); structure_ref_error();} t3685 = t3686.value.structure_type24753->s0; /* x266645 */ if (!((t3685.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27748]"); structure_ref_error();} t3683 = t3685.value.structure_type24753->s1; /* x257188 */ t3684 = a34177; /* x266646 */ t3681 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t3681==NULL) {backtrace_internal("LOOP[27748]"); out_of_memory_error();} t3681->s0 = t3683; /* MOVE: branching squeezed to general */ if (t3684>=((struct structure_type24753 *)VALUE_OFFSET)) {t3681->s1.tag = STRUCTURE_TYPE24753; t3681->s1.value.structure_type24753 = t3684;} else t3681->s1.tag = (unsigned)t3684; /* x257178 */ a34176 = t3680; a34177 = t3681; goto h27748; l940: /* x257242 */ /* x257240 */ /* x257204 */ t3690 = a34157; /* x257207 */ /* x257206 */ t4156 = *((struct w16638 *)(&a34171)); /* x266641 */ if (!((t4156.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27745]"); structure_ref_error();} t3691 = t4156.value.structure_type24753->s0; /* x257239 */ /* x257237 */ t4157 = a34172; /* x257238 */ /* x257236 */ /* x257235 */ /* x257234 */ /* x257233 */ /* x257232 */ /* x257231 */ /* x257230 */ /* x257209 */ /* x257208 */ /* MOVE: branching squeezed to general */ if (t4157>=((struct structure_type24753 *)VALUE_OFFSET)) {a34180.tag = STRUCTURE_TYPE24753; a34180.value.structure_type24753 = t4157;} else a34180.tag = (unsigned)t4157; a34181 = (struct structure_type24753 *)NULL_TYPE; h27752: /* x257229 */ /* x257212 */ /* x257211 */ t4158 = a34180; /* x266640 */ if (!((t4158.tag)==NULL_TYPE)) goto l964; /* x257215 */ /* x257214 */ t4166 = a34181; /* x257213 */ t3692 = f26326(t4166); goto l965; l964: /* x257228 */ /* x257219 */ /* x257218 */ t4161 = *((struct w16638 *)(&a34180)); /* x266639 */ if (!((t4161.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27752]"); structure_ref_error();} t4159 = t4161.value.structure_type24753->s1; /* x257227 */ /* x257225 */ /* x257224 */ /* x257223 */ t4165 = *((struct w16638 *)(&a34180)); /* x266636 */ if (!((t4165.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27752]"); structure_ref_error();} t4164 = t4165.value.structure_type24753->s0; /* x266637 */ if (!((t4164.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27752]"); structure_ref_error();} t4162 = t4164.value.structure_type24753->s0; /* x257226 */ t4163 = a34181; /* x266638 */ t4160 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t4160==NULL) {backtrace_internal("LOOP[27752]"); out_of_memory_error();} t4160->s0 = t4162; /* MOVE: branching squeezed to general */ if (t4163>=((struct structure_type24753 *)VALUE_OFFSET)) {t4160->s1.tag = STRUCTURE_TYPE24753; t4160->s1.value.structure_type24753 = t4163;} else t4160->s1.tag = (unsigned)t4163; /* x257216 */ a34180 = t4159; a34181 = t4160; goto h27752; l965: /* x266642 */ switch (t3690.tag) {case NATIVE_PROCEDURE_TYPE458: t3693 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3694 = f26227(t3693); t3688.tag = FIXNUM_TYPE; t3688.value.fixnum_type = t3694; break; case NATIVE_PROCEDURE_TYPE460: t3695 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t3695==NULL) {backtrace_internal("LOOP[27745]"); out_of_memory_error();} t3695->s0 = t3691; /* MOVE: branching squeezed to general */ if (t3692>=((struct structure_type24753 *)VALUE_OFFSET)) {t3695->s1.tag = STRUCTURE_TYPE24753; t3695->s1.value.structure_type24753 = t3692;} else t3695->s1.tag = (unsigned)t3692; t3696 = f26218(t3695); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3696; break; case NATIVE_PROCEDURE_TYPE493: t3697 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f26177(t3697); break; case NATIVE_PROCEDURE_TYPE494: t3698 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f26176(t3698); break; case NATIVE_PROCEDURE_TYPE6018: t3699 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f18156(t3699); break; case NATIVE_PROCEDURE_TYPE6686: t3700 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3701 = f15531(t3700); t3688 = *((struct w49 *)(&t3701)); break; case NATIVE_PROCEDURE_TYPE6715: t3702 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3703 = f14785(t3702); t3688.tag = FIXNUM_TYPE; t3688.value.fixnum_type = t3703; break; case NATIVE_PROCEDURE_TYPE6762: t3704 = t3691; if (!(t3692>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("LOOP[27745]"); call_error();} t3705 = t3692->s0; if (!((t3692->s1.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27745]"); call_error();} t3706 = t3692->s1.value.structure_type24753->s0; if (!((t3692->s1.value.structure_type24753->s1.tag)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f14485(t3704, t3705, t3706); break; case NATIVE_PROCEDURE_TYPE6764: t3707 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3708 = f14433(t3707); t3688 = *((struct w49 *)(&t3708)); break; case NATIVE_PROCEDURE_TYPE6839: t3709 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f14094(t3709); break; case NATIVE_PROCEDURE_TYPE6841: t3710 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f14079(t3710); break; case NATIVE_PROCEDURE_TYPE6842: t3711 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f14028(t3711); break; case NATIVE_PROCEDURE_TYPE6849: t3712 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f13917(t3712); break; case NATIVE_PROCEDURE_TYPE6853: t3713 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f13860(t3713); break; case NATIVE_PROCEDURE_TYPE6976: t3714 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3715 = f13523(t3714); t3688.tag = STRING_TYPE; t3688.value.string_type = t3715; break; case NATIVE_PROCEDURE_TYPE7020: t3716 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f13160(t3716); break; case NATIVE_PROCEDURE_TYPE7021: t3717 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3718 = f13116(t3717); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3718; break; case NATIVE_PROCEDURE_TYPE7038: t3719 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f12820(t3719); break; case NATIVE_PROCEDURE_TYPE7039: t3720 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f12784(t3720); break; case NATIVE_PROCEDURE_TYPE7052: t3721 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f12566(t3721); break; case NATIVE_PROCEDURE_TYPE7189: t3722 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f9712(t3722); break; case NATIVE_PROCEDURE_TYPE7198: t3723 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3724 = f9424(t3723); t3688.tag = STRUCTURE_TYPE27747; t3688.value.structure_type27747 = t3724; break; case NATIVE_PROCEDURE_TYPE7214: t3725 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3726 = f8987(t3725); /* MOVE: branching squeezed to general */ if (t3726>=((struct structure_type24753 *)VALUE_OFFSET)) {t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3726;} else t3688.tag = (unsigned)t3726; break; case NATIVE_PROCEDURE_TYPE7216: t3727 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f8976(t3727); break; case NATIVE_PROCEDURE_TYPE7218: t3728 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f8965(t3728); break; case NATIVE_PROCEDURE_TYPE7219: t3729 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3730 = f8951(t3729); t3688 = *((struct w49 *)(&t3730)); break; case NATIVE_PROCEDURE_TYPE7251: t3731 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3732 = f8694(t3731); t3688.tag = FIXNUM_TYPE; t3688.value.fixnum_type = t3732; break; case NATIVE_PROCEDURE_TYPE7265: t3733 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3734 = f8624(t3733); t3688 = *((struct w49 *)(&t3734)); break; case NATIVE_PROCEDURE_TYPE7353: t3735 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3736 = f8162(t3735); /* MOVE: branching squeezed to general */ if (t3736>=((struct structure_type24753 *)VALUE_OFFSET)) {t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3736;} else t3688.tag = (unsigned)t3736; break; case NATIVE_PROCEDURE_TYPE7355: t3737 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f8153(t3737); break; case NATIVE_PROCEDURE_TYPE7387: t3738 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3739 = f7936(t3738); /* MOVE: dispatching squished to general */ if (t3739==FALSE_TYPE) t3688.tag = (unsigned)t3739; else {t3688.tag = FIXNUM_TYPE; t3688.value.fixnum_type = (int)(((int)t3739)>>1);} break; case NATIVE_PROCEDURE_TYPE7695: t3740 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3741 = f6647(t3740); t3688.tag = STRING_TYPE; t3688.value.string_type = t3741; break; case NATIVE_PROCEDURE_TYPE7725: t3742 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3743 = f6499(t3742); t3688 = *((struct w49 *)(&t3743)); break; case NATIVE_PROCEDURE_TYPE7806: t3744 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f6169(t3744); break; case NATIVE_PROCEDURE_TYPE7945: t3745 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f5567(t3745); break; case NATIVE_PROCEDURE_TYPE7950: t3746 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3747 = f5543(t3746); /* MOVE: dispatching squished to general */ if (t3747==FALSE_TYPE) t3688.tag = (unsigned)t3747; else {t3688.tag = FIXNUM_TYPE; t3688.value.fixnum_type = (int)(((int)t3747)>>1);} break; case NATIVE_PROCEDURE_TYPE14115: t3748 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3749 = f18319(t3748); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3749; break; case NATIVE_PROCEDURE_TYPE14133: t3750 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f1158((t3690.value.native_procedure_type14133), t3750); break; case NATIVE_PROCEDURE_TYPE14245: t3751 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f18269(t3751); break; case NATIVE_PROCEDURE_TYPE14246: t3752 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f18268(t3752); break; case NATIVE_PROCEDURE_TYPE14263: t3753 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3754 = f18288(t3753); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3754; break; case NATIVE_PROCEDURE_TYPE14281: t3755 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f1059((t3690.value.native_procedure_type14281), t3755); break; case NATIVE_PROCEDURE_TYPE14295: t3756 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f18168(t3756); break; case NATIVE_PROCEDURE_TYPE14297: t3757 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f18162(t3757); break; case NATIVE_PROCEDURE_TYPE14349: t3758 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3759 = f18247((t3690.value.native_procedure_type14349), t3758); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3759; break; case NATIVE_PROCEDURE_TYPE14514: t3760 = t3691; if (!(t3692>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("LOOP[27745]"); call_error();} t3761 = t3692->s0; if (!((t3692->s1.tag)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3762 = f18646(t3760, t3761); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3762; break; case NATIVE_PROCEDURE_TYPE14680: t3763 = t3691; if (!(t3692>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("LOOP[27745]"); call_error();} t3764 = t3692->s0; if (!((t3692->s1.tag)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3765 = f18496((t3690.value.native_procedure_type14680), t3763, t3764); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3765; break; case NATIVE_PROCEDURE_TYPE14766: if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3766 = f18227(); t3688.tag = EXTERNAL_SYMBOL_TYPE; t3688.value.external_symbol_type = t3766; break; case NATIVE_PROCEDURE_TYPE14779: t3767 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f18224(t3767); break; case NATIVE_PROCEDURE_TYPE14782: if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3768 = f18223(); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3768; break; case NATIVE_PROCEDURE_TYPE14783: if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3769 = f18222(); t3688.tag = EXTERNAL_SYMBOL_TYPE; t3688.value.external_symbol_type = t3769; break; case NATIVE_PROCEDURE_TYPE14785: if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3770 = f18220(); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3770; break; case NATIVE_PROCEDURE_TYPE14802: t3771 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f1143((t3690.value.native_procedure_type14802), t3771); break; case NATIVE_PROCEDURE_TYPE14844: t3772 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3773 = f19649(t3772); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3773; break; case NATIVE_PROCEDURE_TYPE14845: t3774 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3775 = f19648(t3774); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3775; break; case NATIVE_PROCEDURE_TYPE14859: t3776 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3777 = f19298(t3776); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3777; break; case NATIVE_PROCEDURE_TYPE14860: t3778 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3779 = f19291(t3778); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3779; break; case NATIVE_PROCEDURE_TYPE14881: t3780 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3781 = f19292(t3780); /* MOVE: dispatching squished to general */ if (t3781==FALSE_TYPE) t3688.tag = (unsigned)t3781; else {t3688.tag = FIXNUM_TYPE; t3688.value.fixnum_type = (int)(((int)t3781)>>1);} break; case NATIVE_PROCEDURE_TYPE14894: t3782 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3783 = f19290(t3782); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3783; break; case NATIVE_PROCEDURE_TYPE14906: t3784 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3785 = f19289(t3784); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3785; break; case NATIVE_PROCEDURE_TYPE14945: t3786 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3787 = f19285(t3786); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3787; break; case NATIVE_PROCEDURE_TYPE14983: t3788 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3789 = f19269(t3788); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3789; break; case NATIVE_PROCEDURE_TYPE14985: t3790 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3791 = f19280(t3790); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3791; break; case NATIVE_PROCEDURE_TYPE15013: t3792 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f16100(t3792); break; case NATIVE_PROCEDURE_TYPE15024: t3793 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f15322(t3793); break; case NATIVE_PROCEDURE_TYPE15039: t3794 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3795 = f13538(t3794); t3688.tag = STRING_TYPE; t3688.value.string_type = t3795; break; case NATIVE_PROCEDURE_TYPE15175: t3796 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f1549(t3796); break; case NATIVE_PROCEDURE_TYPE15178: t3797 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f14547(t3797); break; case NATIVE_PROCEDURE_TYPE15240: t3798 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3799 = f19546(t3798); t3688.tag = FIXNUM_TYPE; t3688.value.fixnum_type = t3799; break; case NATIVE_PROCEDURE_TYPE15253: t3800 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3801 = f19530(t3800); t3688.tag = FIXNUM_TYPE; t3688.value.fixnum_type = t3801; break; case NATIVE_PROCEDURE_TYPE15705: t3802 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f11049(t3802); break; case NATIVE_PROCEDURE_TYPE15787: t3803 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f12409(t3803); break; case NATIVE_PROCEDURE_TYPE15938: t3804 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3805 = f12307(t3804); /* MOVE: branching squeezed to general */ if (t3805>=((struct structure_type24753 *)VALUE_OFFSET)) {t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3805;} else t3688.tag = (unsigned)t3805; break; case NATIVE_PROCEDURE_TYPE15951: t3806 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3807 = f12281(t3806); /* MOVE: branching squeezed to general */ if (t3807>=((struct structure_type24753 *)VALUE_OFFSET)) {t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3807;} else t3688.tag = (unsigned)t3807; break; case NATIVE_PROCEDURE_TYPE16405: t3808 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3809 = f19287(t3808); t3688 = *((struct w49 *)(&t3809)); break; case NATIVE_PROCEDURE_TYPE16554: t3810 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3811 = f19288(t3810); t3688 = *((struct w49 *)(&t3811)); break; case NATIVE_PROCEDURE_TYPE16893: t3812 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f12436(t3812); break; case NATIVE_PROCEDURE_TYPE16993: t3813 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3814 = f12631((t3690.value.native_procedure_type16993), t3813); t3688.tag = STRUCTURE_TYPE27698; t3688.value.structure_type27698 = t3814; break; case NATIVE_PROCEDURE_TYPE17534: t3815 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f11025((t3690.value.native_procedure_type17534), t3815); break; case NATIVE_PROCEDURE_TYPE17765: t3816 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3817 = f19286(t3816); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3817; break; case NATIVE_PROCEDURE_TYPE17807: t3818 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3819 = f12476(t3818); t3688 = *((struct w49 *)(&t3819)); break; case NATIVE_PROCEDURE_TYPE18337: a27140 = t3691; if (!(t3692>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("LOOP[27745]"); call_error();} a27141 = t3692->s0; if (!((t3692->s1.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27745]"); call_error();} a27142 = t3692->s1.value.structure_type24753->s0; if (!((t3692->s1.value.structure_type24753->s1.tag)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} /* x150966 stalin.sc:20476:717262 */ /* x150964 stalin.sc:20476:717271 */ /* x150958 stalin.sc:20476:717275 */ /* x150957 stalin.sc:20476:717297 */ t3822 = a27142; /* x150956 stalin.sc:20476:717276 */ if (f6936(t3822)==FALSE_TYPE) goto l942; /* x150962 stalin.sc:20477:717306 */ /* x150960 stalin.sc:20477:717330 */ t3823 = a27140; /* x150961 stalin.sc:20477:717332 */ t3824 = a27141; /* x150959 stalin.sc:20477:717307 */ t3825 = f7025(t3823, t3824); t3820 = t3825; goto l943; l942: /* x150963 stalin.sc:20478:717341 */ t3820 = a1194; l943: /* x150965 stalin.sc:20479:717361 */ t3821 = a27142; /* x150955 stalin.sc:20476:717263 */ t3688 = f15922(t3820, t3821); break; case NATIVE_PROCEDURE_TYPE18640: t3826 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3827 = f15726((t3690.value.native_procedure_type18640), t3826); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3827; break; case NATIVE_PROCEDURE_TYPE18679: t3828 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3829 = f16121(t3828); t3688 = *((struct w49 *)(&t3829)); break; case NATIVE_PROCEDURE_TYPE18684: t3830 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3831 = f16113((t3690.value.native_procedure_type18684), t3830); t3688 = *((struct w49 *)(&t3831)); break; case NATIVE_PROCEDURE_TYPE18686: t3832 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3833 = f15715(t3832); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3833; break; case NATIVE_PROCEDURE_TYPE18687: t3834 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3835 = f16112(t3834); t3688 = *((struct w49 *)(&t3835)); break; case NATIVE_PROCEDURE_TYPE18689: t3836 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f16109(t3836); break; case NATIVE_PROCEDURE_TYPE18697: t3837 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f15709(t3837); break; case NATIVE_PROCEDURE_TYPE19200: t3838 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f13890(t3838); break; case NATIVE_PROCEDURE_TYPE19201: t3839 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f13889(t3839); break; case NATIVE_PROCEDURE_TYPE19426: t3840 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3841 = f9170((t3690.value.native_procedure_type19426), t3840); t3688 = *((struct w49 *)(&t3841)); break; case NATIVE_PROCEDURE_TYPE19584: t3842 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3843 = f9359((t3690.value.native_procedure_type19584), t3842); t3688.tag = STRUCTURE_TYPE27698; t3688.value.structure_type27698 = t3843; break; case NATIVE_PROCEDURE_TYPE19587: t3844 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3845 = f9354((t3690.value.native_procedure_type19587), t3844); t3688.tag = STRUCTURE_TYPE27698; t3688.value.structure_type27698 = t3845; break; case NATIVE_PROCEDURE_TYPE19825: t3846 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3847 = f16037((t3690.value.native_procedure_type19825), t3846); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3847; break; case NATIVE_PROCEDURE_TYPE19854: t3848 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3849 = f15988((t3690.value.native_procedure_type19854), t3848); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3849; break; case NATIVE_PROCEDURE_TYPE20286: t3850 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f15486((t3690.value.native_procedure_type20286), t3850); break; case NATIVE_PROCEDURE_TYPE20301: t3851 = t3691; if (!(t3692>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("LOOP[27745]"); call_error();} t3852 = t3692->s0; if (!((t3692->s1.tag)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3853 = f13696(t3851, t3852); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3853; break; case NATIVE_PROCEDURE_TYPE20428: t3854 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f13691((t3690.value.native_procedure_type20428), t3854); break; case NATIVE_PROCEDURE_TYPE20446: t3855 = t3691; if (!(t3692>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("LOOP[27745]"); call_error();} t3856 = t3692->s0; if (!((t3692->s1.tag)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3857 = f13686(t3855, t3856); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3857; break; case NATIVE_PROCEDURE_TYPE20455: t3858 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f13680((t3690.value.native_procedure_type20455), t3858); break; case NATIVE_PROCEDURE_TYPE20460: t3859 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f14676((t3690.value.native_procedure_type20460), t3859); break; case NATIVE_PROCEDURE_TYPE20461: t3860 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3861 = f14675((t3690.value.native_procedure_type20461), t3860); t3688.tag = STRING_TYPE; t3688.value.string_type = t3861; break; case NATIVE_PROCEDURE_TYPE20462: t3862 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3863 = f14645((t3690.value.native_procedure_type20462), t3862); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3863; break; case NATIVE_PROCEDURE_TYPE20476: t3864 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3865 = f14620((t3690.value.native_procedure_type20476), t3864); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3865; break; case NATIVE_PROCEDURE_TYPE20496: t3866 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f15475((t3690.value.native_procedure_type20496), t3866); break; case NATIVE_PROCEDURE_TYPE20552: t3867 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f15458((t3690.value.native_procedure_type20552), t3867); break; case NATIVE_PROCEDURE_TYPE20570: t3868 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3869 = f15442((t3690.value.native_procedure_type20570), t3868); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3869; break; case NATIVE_PROCEDURE_TYPE20584: t3870 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3871 = f15431((t3690.value.native_procedure_type20584), t3870); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3871; break; case NATIVE_PROCEDURE_TYPE20731: t3872 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f13105((t3690.value.native_procedure_type20731), t3872); break; case NATIVE_PROCEDURE_TYPE20758: d16096 = t3690.value.native_procedure_type20758; b27143 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f16096(); break; case NATIVE_PROCEDURE_TYPE20783: d15771 = t3690.value.native_procedure_type20783; b26894 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f15771(); break; case NATIVE_PROCEDURE_TYPE20851: if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f14712(t3690.value.native_procedure_type20851); break; case NATIVE_PROCEDURE_TYPE20855: t3873 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f14685((t3690.value.native_procedure_type20855), t3873); break; case NATIVE_PROCEDURE_TYPE20862: t3874 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f14671((t3690.value.native_procedure_type20862), t3874); break; case NATIVE_PROCEDURE_TYPE20869: t3875 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f14667((t3690.value.native_procedure_type20869), t3875); break; case NATIVE_PROCEDURE_TYPE20870: t3876 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3877 = f14666((t3690.value.native_procedure_type20870), t3876); t3688.tag = STRING_TYPE; t3688.value.string_type = t3877; break; case NATIVE_PROCEDURE_TYPE20871: t3878 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f14665((t3690.value.native_procedure_type20871), t3878); break; case NATIVE_PROCEDURE_TYPE20872: t3879 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3880 = f14664((t3690.value.native_procedure_type20872), t3879); t3688.tag = STRING_TYPE; t3688.value.string_type = t3880; break; case NATIVE_PROCEDURE_TYPE20878: t3881 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f14656((t3690.value.native_procedure_type20878), t3881); break; case NATIVE_PROCEDURE_TYPE20879: t3882 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3883 = f14655((t3690.value.native_procedure_type20879), t3882); t3688.tag = STRING_TYPE; t3688.value.string_type = t3883; break; case NATIVE_PROCEDURE_TYPE20880: t3884 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f14654((t3690.value.native_procedure_type20880), t3884); break; case NATIVE_PROCEDURE_TYPE20881: t3885 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3886 = f14653((t3690.value.native_procedure_type20881), t3885); t3688.tag = STRING_TYPE; t3688.value.string_type = t3886; break; case NATIVE_PROCEDURE_TYPE20883: t3887 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3888 = f14636((t3690.value.native_procedure_type20883), t3887); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3888; break; case NATIVE_PROCEDURE_TYPE20891: t3889 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f14625((t3690.value.native_procedure_type20891), t3889); break; case NATIVE_PROCEDURE_TYPE20895: t3890 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3891 = f14611((t3690.value.native_procedure_type20895), t3890); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3891; break; case NATIVE_PROCEDURE_TYPE20906: p16400 = t3690.value.native_procedure_type20906; a27489 = t3691; if (!(t3692>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("LOOP[27745]"); call_error();} a27490 = t3692->s0; if (!((t3692->s1.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27745]"); call_error();} a27491 = t3692->s1.value.structure_type24753->s0; if (!((t3692->s1.value.structure_type24753->s1.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27745]"); call_error();} a27492 = t3692->s1.value.structure_type24753->s1.value.structure_type24753->s0; if (!((t3692->s1.value.structure_type24753->s1.value.structure_type24753->s1.tag)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} /* x154003 stalin.sc:21115:738394 */ /* x154000 stalin.sc:21116:738403 */ /* x153989 stalin.sc:21116:738407 */ /* x153988 stalin.sc:21116:738420 */ t3896 = a27489; /* x153987 stalin.sc:21116:738408 */ if (f8793(t3896)==FALSE_TYPE) goto l945; /* x153990 stalin.sc:21117:738431 */ t3892 = a1194; goto l946; l945: /* x153999 stalin.sc:21118:738448 */ /* x153992 stalin.sc:21118:738472 */ t3897 = a27489; /* x153998 stalin.sc:21118:738475 */ /* x153994 stalin.sc:21118:738496 */ t3901 = p16400->p16397->p16396->a27486; /* x153995 stalin.sc:21118:738498 */ t3902 = p16400->a27488; /* x153996 stalin.sc:21118:738500 */ t3903 = p16400->p16397->a27487; /* x153997 stalin.sc:21118:738502 */ t3904 = a27490; /* x153993 stalin.sc:21118:738476 */ t3898 = f14746(t3901, t3902, t3903, t3904); /* x153991 stalin.sc:21118:738449 */ t3899 = *((struct w49 *)(&t3898)); t3900 = f7025(t3897, t3899); t3892 = t3900; l946: /* x154001 stalin.sc:21119:738510 */ t3893 = a27491; /* x154002 stalin.sc:21120:738516 */ t3894 = a27492; /* x153986 stalin.sc:21115:738395 */ /* MOVE: branching squeezed to general */ if (t3892>=((struct structure_type27501 *)VALUE_OFFSET)) {t3895.tag = STRUCTURE_TYPE27501; t3895.value.structure_type27501 = t3892;} else t3895.tag = (unsigned)t3892; t3688 = f15496(t3895, t3893, t3894); break; case NATIVE_PROCEDURE_TYPE20914: t3905 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f16432((t3690.value.native_procedure_type20914), t3905); break; case NATIVE_PROCEDURE_TYPE20916: t3906 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f16416((t3690.value.native_procedure_type20916), t3906); break; case NATIVE_PROCEDURE_TYPE20919: t3907 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f16631((t3690.value.native_procedure_type20919), t3907); break; case NATIVE_PROCEDURE_TYPE20928: t3908 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f16597((t3690.value.native_procedure_type20928), t3908); break; case NATIVE_PROCEDURE_TYPE20947: t3909 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3910 = f16583((t3690.value.native_procedure_type20947), t3909); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3910; break; case NATIVE_PROCEDURE_TYPE20961: t3911 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3912 = f16567((t3690.value.native_procedure_type20961), t3911); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3912; break; case NATIVE_PROCEDURE_TYPE20967: t3913 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3914 = f16565((t3690.value.native_procedure_type20967), t3913); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3914; break; case NATIVE_PROCEDURE_TYPE20970: t3915 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3916 = f16561((t3690.value.native_procedure_type20970), t3915); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3916; break; case NATIVE_PROCEDURE_TYPE21037: t3917 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f16700((t3690.value.native_procedure_type21037), t3917); break; case NATIVE_PROCEDURE_TYPE21043: t3918 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f16678((t3690.value.native_procedure_type21043), t3918); break; case NATIVE_PROCEDURE_TYPE21049: t3919 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f16736((t3690.value.native_procedure_type21049), t3919); break; case NATIVE_PROCEDURE_TYPE21060: d15570 = t3690.value.native_procedure_type21060; b26729 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f15570(); break; case NATIVE_PROCEDURE_TYPE21062: p15569 = t3690.value.native_procedure_type21062; a26725 = t3691; if (!(t3692>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("LOOP[27745]"); call_error();} a26726 = t3692->s0; if (!((t3692->s1.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27745]"); call_error();} a26727 = t3692->s1.value.structure_type24753->s0; if (!((t3692->s1.value.structure_type24753->s1.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27745]"); call_error();} a26728 = t3692->s1.value.structure_type24753->s1.value.structure_type24753->s0; if (!((t3692->s1.value.structure_type24753->s1.value.structure_type24753->s1.tag)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} /* x143131 stalin.sc:18664:655553 */ /* x143127 stalin.sc:18664:655557 */ t3921 = a26725; /* x143128 stalin.sc:18664:655560 */ t3922 = a26726; /* x143129 stalin.sc:18664:655563 */ t3923 = a26727; /* x143130 stalin.sc:18664:655566 */ t3924 = a26728; /* x143126 stalin.sc:18664:655554 */ t3920 = p15569->a26716; switch (t3920) {case NATIVE_PROCEDURE_TYPE21054: a28301 = t3921; a28302 = t3922; /* x157675 stalin.sc:21951:768320 */ /* x157673 stalin.sc:21951:768325 */ t3925 = a28301; /* x157674 stalin.sc:21951:768328 */ t3926 = a28302; /* x157672 stalin.sc:21951:768321 */ t3927 = f13601(t3925, t3926); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3927; break; case NATIVE_PROCEDURE_TYPE21063: a28252 = t3921; a28253 = t3922; a28254 = t3923; a28255 = t3924; /* x157622 stalin.sc:21934:767663 */ /* x157565 stalin.sc:21934:767667 */ /* x157564 stalin.sc:21934:767686 */ t3928 = a28254; /* x157563 stalin.sc:21934:767668 */ if (f7687(t3928)==FALSE_TYPE) goto l948; /* x157600 stalin.sc:21935:767697 */ /* x157568 stalin.sc:21935:767701 */ /* x157567 stalin.sc:21935:767720 */ t3945 = a28255; /* x157566 stalin.sc:21935:767702 */ if (f7687(t3945)==FALSE_TYPE) goto l954; /* x157586 stalin.sc:21936:767735 */ /* x157585 stalin.sc:21936:767766 */ /* x157581 stalin.sc:21936:767772 */ /* x157580 stalin.sc:21936:767777 */ t3973 = a28252; /* x157579 stalin.sc:21936:767773 */ t3969 = f14278(t3973); /* x157584 stalin.sc:21936:767781 */ /* x157583 stalin.sc:21936:767786 */ t3974 = a28253; /* x157582 stalin.sc:21936:767782 */ t3970 = f14278(t3974); /* x157578 stalin.sc:21936:767767 */ t3971.tag = STRUCTURE_TYPE24753; t3971.value.structure_type24753 = t3969; t3972.tag = STRUCTURE_TYPE24753; t3972.value.structure_type24753 = t3970; t3959 = f13591(t3971, t3972); /* x157577 stalin.sc:21936:767741 */ /* x157573 stalin.sc:21936:767747 */ /* x157572 stalin.sc:21936:767752 */ t3967 = a28252; /* x157571 stalin.sc:21936:767748 */ t3963 = f14286(t3967); /* x157576 stalin.sc:21936:767756 */ /* x157575 stalin.sc:21936:767761 */ t3968 = a28253; /* x157574 stalin.sc:21936:767757 */ t3964 = f14286(t3968); /* x157570 stalin.sc:21936:767742 */ t3965.tag = STRUCTURE_TYPE24753; t3965.value.structure_type24753 = t3963; t3966.tag = STRUCTURE_TYPE24753; t3966.value.structure_type24753 = t3964; t3958 = f13591(t3965, t3966); /* x157569 stalin.sc:21936:767736 */ t3962.tag = STRUCTURE_TYPE24753; t3962.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3962.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21936, 767735); out_of_memory_error();} t3962.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t3962.value.structure_type24753->s0.value.structure_type24753 = t3959; t3962.value.structure_type24753->s1.tag = NULL_TYPE; t3960 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t3960==NULL) {backtrace("stalin.sc", 21936, 767735); out_of_memory_error();} t3960->s0.tag = STRUCTURE_TYPE24753; t3960->s0.value.structure_type24753 = t3958; t3960->s1 = t3962; t3961 = f13564(t3960); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3961; goto l955; l954: /* x157599 stalin.sc:21937:767803 */ /* x157598 stalin.sc:21937:767828 */ /* x157597 stalin.sc:21937:767837 */ /* x157596 stalin.sc:21937:767842 */ t3957 = a28252; /* x157595 stalin.sc:21937:767838 */ t3955 = f14278(t3957); /* x157594 stalin.sc:21937:767829 */ t3956.tag = STRUCTURE_TYPE24753; t3956.value.structure_type24753 = t3955; t3947 = f13593(t3956); /* x157593 stalin.sc:21937:767809 */ /* x157591 stalin.sc:21937:767815 */ /* x157590 stalin.sc:21937:767820 */ t3954 = a28252; /* x157589 stalin.sc:21937:767816 */ t3951 = f14286(t3954); /* x157592 stalin.sc:21937:767824 */ t3952 = a28253; /* x157588 stalin.sc:21937:767810 */ t3953.tag = STRUCTURE_TYPE24753; t3953.value.structure_type24753 = t3951; t3946 = f13591(t3953, t3952); /* x157587 stalin.sc:21937:767804 */ t3950.tag = STRUCTURE_TYPE24753; t3950.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3950.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21937, 767803); out_of_memory_error();} t3950.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t3950.value.structure_type24753->s0.value.structure_type24753 = t3947; t3950.value.structure_type24753->s1.tag = NULL_TYPE; t3948 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t3948==NULL) {backtrace("stalin.sc", 21937, 767803); out_of_memory_error();} t3948->s0.tag = STRUCTURE_TYPE24753; t3948->s0.value.structure_type24753 = t3946; t3948->s1 = t3950; t3949 = f13564(t3948); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3949; l955: goto l949; l948: /* x157621 stalin.sc:21938:767856 */ /* x157603 stalin.sc:21938:767860 */ /* x157602 stalin.sc:21938:767879 */ t3929 = a28255; /* x157601 stalin.sc:21938:767861 */ if (f7687(t3929)==FALSE_TYPE) goto l951; /* x157616 stalin.sc:21939:767894 */ /* x157615 stalin.sc:21939:767919 */ /* x157614 stalin.sc:21939:767928 */ /* x157613 stalin.sc:21939:767933 */ t3944 = a28253; /* x157612 stalin.sc:21939:767929 */ t3942 = f14278(t3944); /* x157611 stalin.sc:21939:767920 */ t3943.tag = STRUCTURE_TYPE24753; t3943.value.structure_type24753 = t3942; t3934 = f13593(t3943); /* x157610 stalin.sc:21939:767900 */ /* x157606 stalin.sc:21939:767906 */ t3938 = a28252; /* x157609 stalin.sc:21939:767909 */ /* x157608 stalin.sc:21939:767914 */ t3941 = a28253; /* x157607 stalin.sc:21939:767910 */ t3939 = f14286(t3941); /* x157605 stalin.sc:21939:767901 */ t3940.tag = STRUCTURE_TYPE24753; t3940.value.structure_type24753 = t3939; t3933 = f13591(t3938, t3940); /* x157604 stalin.sc:21939:767895 */ t3937.tag = STRUCTURE_TYPE24753; t3937.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t3937.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21939, 767894); out_of_memory_error();} t3937.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t3937.value.structure_type24753->s0.value.structure_type24753 = t3934; t3937.value.structure_type24753->s1.tag = NULL_TYPE; t3935 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t3935==NULL) {backtrace("stalin.sc", 21939, 767894); out_of_memory_error();} t3935->s0.tag = STRUCTURE_TYPE24753; t3935->s0.value.structure_type24753 = t3933; t3935->s1 = t3937; t3936 = f13564(t3935); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3936; goto l952; l951: /* x157620 stalin.sc:21940:767950 */ /* x157618 stalin.sc:21940:767956 */ t3930 = a28252; /* x157619 stalin.sc:21940:767959 */ t3931 = a28253; /* x157617 stalin.sc:21940:767951 */ t3932 = f13591(t3930, t3931); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3932; l952: l949: break; case NATIVE_PROCEDURE_TYPE21064: a28399 = t3921; a28400 = t3922; /* x157781 stalin.sc:21971:769049 */ /* x157779 stalin.sc:21971:769055 */ t3975 = a28399; /* x157780 stalin.sc:21971:769058 */ t3976 = a28400; /* x157778 stalin.sc:21971:769050 */ a25351 = t3975; a25352 = t3976; /* x123229 stalin.sc:14635:513014 */ /* x123226 stalin.sc:14635:513022 */ t3977 = a25351; /* x123227 stalin.sc:14635:513025 */ t3978 = "<="; /* x123228 stalin.sc:14635:513030 */ t3979 = a25352; /* x123225 stalin.sc:14635:513015 */ t3980 = f13573(t3977, t3978, t3979); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3980; break; case NATIVE_PROCEDURE_TYPE21080: a28448 = t3921; a28449 = t3922; /* x157834 stalin.sc:21981:769415 */ /* x157832 stalin.sc:21981:769421 */ t3981 = a28448; /* x157833 stalin.sc:21981:769424 */ t3982 = a28449; /* x157831 stalin.sc:21981:769416 */ t3983 = f13608(t3981, t3982); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3983; break; default: a28350 = t3921; a28351 = t3922; /* x157728 stalin.sc:21961:768684 */ /* x157726 stalin.sc:21961:768689 */ t3984 = a28350; /* x157727 stalin.sc:21961:768692 */ t3985 = a28351; /* x157725 stalin.sc:21961:768685 */ t3986 = f13604(t3984, t3985); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t3986;} break; case NATIVE_PROCEDURE_TYPE21066: t3987 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f16821((t3690.value.native_procedure_type21066), t3987); break; case NATIVE_PROCEDURE_TYPE21083: t3988 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f16720((t3690.value.native_procedure_type21083), t3988); break; case NATIVE_PROCEDURE_TYPE21088: t3989 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f16646((t3690.value.native_procedure_type21088), t3989); break; case NATIVE_PROCEDURE_TYPE21091: t3990 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f16853((t3690.value.native_procedure_type21091), t3990); break; case NATIVE_PROCEDURE_TYPE21109: d15579 = t3690.value.native_procedure_type21109; b26749 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f15579(); break; case NATIVE_PROCEDURE_TYPE21111: t3991 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f16908((t3690.value.native_procedure_type21111), t3991); break; case NATIVE_PROCEDURE_TYPE21118: t3992 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f16880((t3690.value.native_procedure_type21118), t3992); break; case NATIVE_PROCEDURE_TYPE21138: t3993 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f16981((t3690.value.native_procedure_type21138), t3993); break; case NATIVE_PROCEDURE_TYPE21148: t3994 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17057((t3690.value.native_procedure_type21148), t3994); break; case NATIVE_PROCEDURE_TYPE21153: d17117 = t3690.value.native_procedure_type21153; b29067 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17117(); break; case NATIVE_PROCEDURE_TYPE21155: t3995 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17118((t3690.value.native_procedure_type21155), t3995); break; case NATIVE_PROCEDURE_TYPE21171: d17084 = t3690.value.native_procedure_type21171; b29016 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17084(); break; case NATIVE_PROCEDURE_TYPE21173: t3996 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17085((t3690.value.native_procedure_type21173), t3996); break; case NATIVE_PROCEDURE_TYPE21202: t3997 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17018((t3690.value.native_procedure_type21202), t3997); break; case NATIVE_PROCEDURE_TYPE21226: t3998 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f16940((t3690.value.native_procedure_type21226), t3998); break; case NATIVE_PROCEDURE_TYPE21229: t3999 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f16839((t3690.value.native_procedure_type21229), t3999); break; case NATIVE_PROCEDURE_TYPE21235: d17183 = t3690.value.native_procedure_type21235; b29169 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17183(); break; case NATIVE_PROCEDURE_TYPE21237: t4000 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17184((t3690.value.native_procedure_type21237), t4000); break; case NATIVE_PROCEDURE_TYPE21257: t4001 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17221((t3690.value.native_procedure_type21257), t4001); break; case NATIVE_PROCEDURE_TYPE21260: t4002 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17208((t3690.value.native_procedure_type21260), t4002); break; case NATIVE_PROCEDURE_TYPE21266: t4003 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17253((t3690.value.native_procedure_type21266), t4003); break; case NATIVE_PROCEDURE_TYPE21269: t4004 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17290((t3690.value.native_procedure_type21269), t4004); break; case NATIVE_PROCEDURE_TYPE21275: t4005 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17328((t3690.value.native_procedure_type21275), t4005); break; case NATIVE_PROCEDURE_TYPE21281: t4006 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17309((t3690.value.native_procedure_type21281), t4006); break; case NATIVE_PROCEDURE_TYPE21287: t4007 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17271((t3690.value.native_procedure_type21287), t4007); break; case NATIVE_PROCEDURE_TYPE21297: t4008 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17237((t3690.value.native_procedure_type21297), t4008); break; case NATIVE_PROCEDURE_TYPE21300: t4009 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17353((t3690.value.native_procedure_type21300), t4009); break; case NATIVE_PROCEDURE_TYPE21305: t4010 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17377((t3690.value.native_procedure_type21305), t4010); break; case NATIVE_PROCEDURE_TYPE21310: t4011 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17365((t3690.value.native_procedure_type21310), t4011); break; case NATIVE_PROCEDURE_TYPE21315: t4012 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17401((t3690.value.native_procedure_type21315), t4012); break; case NATIVE_PROCEDURE_TYPE21320: d17431 = t3690.value.native_procedure_type21320; b29911 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17431(); break; case NATIVE_PROCEDURE_TYPE21325: t4013 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17433((t3690.value.native_procedure_type21325), t4013); break; case NATIVE_PROCEDURE_TYPE21330: t4014 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17426((t3690.value.native_procedure_type21330), t4014); break; case NATIVE_PROCEDURE_TYPE21335: t4015 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17413((t3690.value.native_procedure_type21335), t4015); break; case NATIVE_PROCEDURE_TYPE21340: d17465 = t3690.value.native_procedure_type21340; b30003 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17465(); break; case NATIVE_PROCEDURE_TYPE21342: t4016 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17466((t3690.value.native_procedure_type21342), t4016); break; case NATIVE_PROCEDURE_TYPE21349: t4017 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17448((t3690.value.native_procedure_type21349), t4017); break; case NATIVE_PROCEDURE_TYPE21354: t4018 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17389((t3690.value.native_procedure_type21354), t4018); break; case NATIVE_PROCEDURE_TYPE21359: t4019 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17341((t3690.value.native_procedure_type21359), t4019); break; case NATIVE_PROCEDURE_TYPE21364: d17150 = t3690.value.native_procedure_type21364; b29118 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17150(); break; case NATIVE_PROCEDURE_TYPE21366: t4020 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17151((t3690.value.native_procedure_type21366), t4020); break; case NATIVE_PROCEDURE_TYPE21382: t4021 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17499((t3690.value.native_procedure_type21382), t4021); break; case NATIVE_PROCEDURE_TYPE21388: t4022 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17524((t3690.value.native_procedure_type21388), t4022); break; case NATIVE_PROCEDURE_TYPE21394: d17598 = t3690.value.native_procedure_type21394; b30396 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17598(); break; case NATIVE_PROCEDURE_TYPE21415: t4023 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4024 = f19627(t4023); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t4024; break; case NATIVE_PROCEDURE_TYPE21442: t4025 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4026 = f15696(t4025); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t4026; break; case NATIVE_PROCEDURE_TYPE21443: t4027 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f15642(t4027); break; case NATIVE_PROCEDURE_TYPE21445: t4028 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4029 = f19616(t4028); t3688 = *((struct w49 *)(&t4029)); break; case NATIVE_PROCEDURE_TYPE21448: t4030 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4031 = f19614(t4030); t3688 = *((struct w49 *)(&t4031)); break; case NATIVE_PROCEDURE_TYPE21453: t4032 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4033 = f16181(t4032); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t4033; break; case NATIVE_PROCEDURE_TYPE21454: t4034 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4035 = f16180(t4034); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t4035; break; case NATIVE_PROCEDURE_TYPE21456: t4036 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4037 = f16178(t4036); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t4037; break; case NATIVE_PROCEDURE_TYPE21457: t4038 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4039 = f16176(t4038); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t4039; break; case NATIVE_PROCEDURE_TYPE21458: t4040 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4041 = f16174(t4040); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t4041; break; case NATIVE_PROCEDURE_TYPE21459: t4042 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4043 = f16161(t4042); t3688 = *((struct w49 *)(&t4043)); break; case NATIVE_PROCEDURE_TYPE21473: t4044 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4045 = f16154(t4044); t3688 = *((struct w49 *)(&t4045)); break; case NATIVE_PROCEDURE_TYPE21475: t4046 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4047 = f16151(t4046); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t4047; break; case NATIVE_PROCEDURE_TYPE21477: t4048 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4049 = f16144(t4048); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t4049; break; case NATIVE_PROCEDURE_TYPE21497: t4050 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f15748(t4050); break; case NATIVE_PROCEDURE_TYPE21498: t4051 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f15737(t4051); break; case NATIVE_PROCEDURE_TYPE21499: t4052 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f15319(t4052); break; case NATIVE_PROCEDURE_TYPE21500: t4053 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4054 = f15694(t4053); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t4054; break; case NATIVE_PROCEDURE_TYPE21501: t4055 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4056 = f15683(t4055); t3688 = *((struct w49 *)(&t4056)); break; case NATIVE_PROCEDURE_TYPE21506: t4057 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4058 = f15677(t4057); t3688 = *((struct w49 *)(&t4058)); break; case NATIVE_PROCEDURE_TYPE21519: t4059 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4060 = f15661(t4059); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t4060; break; case NATIVE_PROCEDURE_TYPE21520: t4061 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4062 = f15660(t4061); t3688 = *((struct w49 *)(&t4062)); break; case NATIVE_PROCEDURE_TYPE21521: t4063 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4064 = f15659(t4063); t3688 = *((struct w49 *)(&t4064)); break; case NATIVE_PROCEDURE_TYPE21522: t4065 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4066 = f15648(t4065); t3688 = *((struct w49 *)(&t4066)); break; case NATIVE_PROCEDURE_TYPE21523: t4067 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f15640(t4067); break; case NATIVE_PROCEDURE_TYPE21540: t4068 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4069 = f18325(t4068); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t4069; break; case NATIVE_PROCEDURE_TYPE21809: t4070 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4071 = f16082((t3690.value.native_procedure_type21809), t4070); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t4071; break; case NATIVE_PROCEDURE_TYPE21821: t4072 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4073 = f16069((t3690.value.native_procedure_type21821), t4072); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t4073; break; case NATIVE_PROCEDURE_TYPE21848: t4074 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4075 = f15858(t4074); t3688 = *((struct w49 *)(&t4075)); break; case NATIVE_PROCEDURE_TYPE21849: a26988 = t3691; if (!(t3692>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("LOOP[27745]"); call_error();} a26989 = t3692->s0; if (!((t3692->s1.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27745]"); call_error();} a26990 = t3692->s1.value.structure_type24753->s0; if (!((t3692->s1.value.structure_type24753->s1.tag)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} /* x147605 stalin.sc:19706:689203 */ /* x147590 stalin.sc:19706:689207 */ /* x147589 stalin.sc:19706:689211 */ /* x147588 stalin.sc:19706:689219 */ t4076 = a26988; /* x147587 stalin.sc:19706:689212 */ a41709 = t4076; /* x300948 stalin.sc:3890:131852 */ /* x300947 stalin.sc:3890:131869 */ t4077 = a41709; /* x300946 stalin.sc:3890:131853 */ if (!(f8204(t4077)==FALSE_TYPE)) goto l956; /* x147584 */ /* x147583 stalin.sc:19706:689232 */ t4078 = a26988; /* x147582 stalin.sc:19706:689223 */ a41624 = t4078; /* x300608 stalin.sc:3965:133896 */ /* x300607 stalin.sc:3965:133915 */ t4079 = a41624; /* x300606 stalin.sc:3965:133897 */ if (f8219(t4079)==FALSE_TYPE) goto l957; l956: /* x147603 stalin.sc:19707:689244 */ /* x147596 stalin.sc:19707:689248 */ /* x147592 stalin.sc:19707:689253 */ t4080 = a26989; /* x147595 stalin.sc:19707:689255 */ /* x147594 stalin.sc:19707:689274 */ t4082 = a26988; /* x147593 stalin.sc:19707:689256 */ a36812 = t4082; /* x279917 */ /* x279916 */ t4083 = a36812; /* x279915 */ if (!((t4083.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31729]"); structure_ref_error();} t4081 = t4083.value.structure_type27692->s9; /* x268455 stalin.sc:19707:689249 */ /* EQ: dispatching general to general */ if (!((t4080.tag)==(t4081.tag))) goto l961; switch (t4080.tag) {case FIXNUM_TYPE: if (!((t4080.value.fixnum_type)==(t4081.value.fixnum_type))) goto l961; break; case FLONUM_TYPE: if (!((t4080.value.flonum_type)==(t4081.value.flonum_type))) goto l961; break; case INPUT_PORT_TYPE: if (!((t4080.value.input_port_type)==(t4081.value.input_port_type))) goto l961; break; case OUTPUT_PORT_TYPE: if (!((t4080.value.output_port_type)==(t4081.value.output_port_type))) goto l961; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t4080.value.native_procedure_type15963)==(t4081.value.native_procedure_type15963))) goto l961; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t4080.value.native_procedure_type19067)==(t4081.value.native_procedure_type19067))) goto l961; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t4080.value.native_procedure_type19068)==(t4081.value.native_procedure_type19068))) goto l961; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t4080.value.native_procedure_type22459)==(t4081.value.native_procedure_type22459))) goto l961; break; case STRUCTURE_TYPE24753: if (!((t4080.value.structure_type24753)==(t4081.value.structure_type24753))) goto l961; break; case STRUCTURE_TYPE24757: if (!((t4080.value.structure_type24757)==(t4081.value.structure_type24757))) goto l961; break; case STRUCTURE_TYPE27501: if (!((t4080.value.structure_type27501)==(t4081.value.structure_type27501))) goto l961; break; case STRUCTURE_TYPE27510: if (!((t4080.value.structure_type27510)==(t4081.value.structure_type27510))) goto l961; break; case STRUCTURE_TYPE27621: if (!((t4080.value.structure_type27621)==(t4081.value.structure_type27621))) goto l961; break; case STRUCTURE_TYPE27650: if (!((t4080.value.structure_type27650)==(t4081.value.structure_type27650))) goto l961; break; case STRUCTURE_TYPE27669: if (!((t4080.value.structure_type27669)==(t4081.value.structure_type27669))) goto l961; break; case STRUCTURE_TYPE27673: if (!((t4080.value.structure_type27673)==(t4081.value.structure_type27673))) goto l961; break; case STRUCTURE_TYPE27692: if (!((t4080.value.structure_type27692)==(t4081.value.structure_type27692))) goto l961; break; case STRUCTURE_TYPE27694: if (!((t4080.value.structure_type27694)==(t4081.value.structure_type27694))) goto l961; break; case STRUCTURE_TYPE27698: if (!((t4080.value.structure_type27698)==(t4081.value.structure_type27698))) goto l961; break; case STRUCTURE_TYPE27745: if (!((t4080.value.structure_type27745)==(t4081.value.structure_type27745))) goto l961; break; case STRUCTURE_TYPE27747: if (!((t4080.value.structure_type27747)==(t4081.value.structure_type27747))) goto l961; break; case STRUCTURE_TYPE27750: if (!((t4080.value.structure_type27750)==(t4081.value.structure_type27750))) goto l961; break; case STRUCTURE_TYPE27753: if (!((t4080.value.structure_type27753)==(t4081.value.structure_type27753))) goto l961; break; case STRUCTURE_TYPE27756: if (!((t4080.value.structure_type27756)==(t4081.value.structure_type27756))) goto l961; break; case STRUCTURE_TYPE27761: if (!((t4080.value.structure_type27761)==(t4081.value.structure_type27761))) goto l961; break; case STRUCTURE_TYPE27769: if (!((t4080.value.structure_type27769)==(t4081.value.structure_type27769))) goto l961; break; case STRUCTURE_TYPE27776: if (!((t4080.value.structure_type27776)==(t4081.value.structure_type27776))) goto l961; break; case STRUCTURE_TYPE27779: if (!((t4080.value.structure_type27779)==(t4081.value.structure_type27779))) goto l961; break; case STRUCTURE_TYPE27858: if (!((t4080.value.structure_type27858)==(t4081.value.structure_type27858))) goto l961; break; case STRING_TYPE: if (!((t4080.value.string_type)==(t4081.value.string_type))) goto l961; break; case HEADED_VECTOR_TYPE27896: if (!((t4080.value.headed_vector_type27896)==(t4081.value.headed_vector_type27896))) goto l961; break; case EXTERNAL_SYMBOL_TYPE: if (!((t4080.value.external_symbol_type)==(t4081.value.external_symbol_type))) goto l961; break; case STRUCTURE_TYPE27908: if (!((t4080.value.structure_type27908)==(t4081.value.structure_type27908))) goto l961; break; default:;} /* x147597 stalin.sc:19708:689283 */ t3688 = a26990; goto l962; l961: /* x147602 stalin.sc:19709:689290 */ /* x147601 stalin.sc:19709:689310 */ /* x147600 stalin.sc:19709:689329 */ t4086 = a26988; /* x147599 stalin.sc:19709:689311 */ a36811 = t4086; /* x279913 */ /* x279912 */ t4087 = a36811; /* x279911 */ if (!((t4087.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31728]"); structure_ref_error();} t4084 = t4087.value.structure_type27692->s9; /* x147598 stalin.sc:19709:689291 */ t4085 = f15531(t4084); t3688 = *((struct w49 *)(&t4085)); l962: goto l958; l957: /* x147604 stalin.sc:19710:689342 */ t3688.tag = FALSE_TYPE; l958: break; case NATIVE_PROCEDURE_TYPE21897: t4088 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f15811((t3690.value.native_procedure_type21897), t4088); break; case NATIVE_PROCEDURE_TYPE21904: if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4089 = f15804(); t3688.tag = STRING_TYPE; t3688.value.string_type = t4089; break; case NATIVE_PROCEDURE_TYPE21945: d17625 = t3690.value.native_procedure_type21945; b30489 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17625(); break; case NATIVE_PROCEDURE_TYPE21947: t4090 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17626((t3690.value.native_procedure_type21947), t4090); break; case NATIVE_PROCEDURE_TYPE21949: t4091 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17612((t3690.value.native_procedure_type21949), t4091); break; case NATIVE_PROCEDURE_TYPE21953: d17572 = t3690.value.native_procedure_type21953; b30333 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17572(); break; case NATIVE_PROCEDURE_TYPE21957: t4092 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17573((t3690.value.native_procedure_type21957), t4092); break; case NATIVE_PROCEDURE_TYPE21962: d17566 = t3690.value.native_procedure_type21962; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17566(); break; case NATIVE_PROCEDURE_TYPE21964: if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17567(t3690.value.native_procedure_type21964); break; case NATIVE_PROCEDURE_TYPE21967: d17561 = t3690.value.native_procedure_type21967; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17561(); break; case NATIVE_PROCEDURE_TYPE21969: if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17562(t3690.value.native_procedure_type21969); break; case NATIVE_PROCEDURE_TYPE21972: d17556 = t3690.value.native_procedure_type21972; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17556(); break; case NATIVE_PROCEDURE_TYPE21974: if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4093 = f17557(); t3688.tag = STRING_TYPE; t3688.value.string_type = t4093; break; case NATIVE_PROCEDURE_TYPE21976: t4094 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17533((t3690.value.native_procedure_type21976), t4094); break; case NATIVE_PROCEDURE_TYPE21979: d17706 = t3690.value.native_procedure_type21979; b30702 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17706(); break; case NATIVE_PROCEDURE_TYPE21983: d17708 = t3690.value.native_procedure_type21983; b30704 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17708(); break; case NATIVE_PROCEDURE_TYPE21985: t4095 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17709((t3690.value.native_procedure_type21985), t4095); break; case NATIVE_PROCEDURE_TYPE21998: t4096 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17688((t3690.value.native_procedure_type21998), t4096); break; case NATIVE_PROCEDURE_TYPE22001: if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17681(t3690.value.native_procedure_type22001); break; case NATIVE_PROCEDURE_TYPE22004: if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17678(t3690.value.native_procedure_type22004); break; case NATIVE_PROCEDURE_TYPE22007: if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4097 = f17675(); t3688.tag = STRING_TYPE; t3688.value.string_type = t4097; break; case NATIVE_PROCEDURE_TYPE22009: t4098 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17760((t3690.value.native_procedure_type22009), t4098); break; case NATIVE_PROCEDURE_TYPE22011: d17804 = t3690.value.native_procedure_type22011; b30911 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17804(); break; case NATIVE_PROCEDURE_TYPE22013: t4099 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17805((t3690.value.native_procedure_type22013), t4099); break; case NATIVE_PROCEDURE_TYPE22015: d17784 = t3690.value.native_procedure_type22015; b30860 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17784(); break; case NATIVE_PROCEDURE_TYPE22017: t4100 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17785((t3690.value.native_procedure_type22017), t4100); break; case NATIVE_PROCEDURE_TYPE22038: d17840 = t3690.value.native_procedure_type22038; b31010 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17840(); break; case NATIVE_PROCEDURE_TYPE22049: t4101 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f15905((t3690.value.native_procedure_type22049), t4101); break; case NATIVE_PROCEDURE_TYPE22065: d15900 = t3690.value.native_procedure_type22065; b27021 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f15900(); break; case NATIVE_PROCEDURE_TYPE22073: d15885 = t3690.value.native_procedure_type22073; b27015 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f15885(); break; case NATIVE_PROCEDURE_TYPE22082: d17890 = t3690.value.native_procedure_type22082; b31082 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17890(); break; case NATIVE_PROCEDURE_TYPE22092: t4102 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17878((t3690.value.native_procedure_type22092), t4102); break; case NATIVE_PROCEDURE_TYPE22101: d17636 = t3690.value.native_procedure_type22101; b30537 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17636(); break; case NATIVE_PROCEDURE_TYPE22103: t4103 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17637((t3690.value.native_procedure_type22103), t4103); break; case NATIVE_PROCEDURE_TYPE22105: t4104 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17638((t3690.value.native_procedure_type22105), t4104); break; case NATIVE_PROCEDURE_TYPE22107: t4105 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17486((t3690.value.native_procedure_type22107), t4105); break; case NATIVE_PROCEDURE_TYPE22113: t4106 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17932((t3690.value.native_procedure_type22113), t4106); break; case NATIVE_PROCEDURE_TYPE22118: t4107 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17956((t3690.value.native_procedure_type22118), t4107); break; case NATIVE_PROCEDURE_TYPE22120: t4108 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17944((t3690.value.native_procedure_type22120), t4108); break; case NATIVE_PROCEDURE_TYPE22125: t4109 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17975((t3690.value.native_procedure_type22125), t4109); break; case NATIVE_PROCEDURE_TYPE22128: t4110 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17965((t3690.value.native_procedure_type22128), t4110); break; case NATIVE_PROCEDURE_TYPE22131: d18030 = t3690.value.native_procedure_type22131; b31667 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f18030(); break; case NATIVE_PROCEDURE_TYPE22133: t4111 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f18031((t3690.value.native_procedure_type22133), t4111); break; case NATIVE_PROCEDURE_TYPE22136: t4112 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f18007((t3690.value.native_procedure_type22136), t4112); break; case NATIVE_PROCEDURE_TYPE22138: t4113 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17985((t3690.value.native_procedure_type22138), t4113); break; case NATIVE_PROCEDURE_TYPE22140: t4114 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f18071((t3690.value.native_procedure_type22140), t4114); break; case NATIVE_PROCEDURE_TYPE22142: t4115 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f18089((t3690.value.native_procedure_type22142), t4115); break; case NATIVE_PROCEDURE_TYPE22144: t4116 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f18080((t3690.value.native_procedure_type22144), t4116); break; case NATIVE_PROCEDURE_TYPE22146: t4117 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f18062((t3690.value.native_procedure_type22146), t4117); break; case NATIVE_PROCEDURE_TYPE22149: t4118 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f18120((t3690.value.native_procedure_type22149), t4118); break; case NATIVE_PROCEDURE_TYPE22155: d18147 = t3690.value.native_procedure_type22155; b32201 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f18147(); break; case NATIVE_PROCEDURE_TYPE22161: d18134 = t3690.value.native_procedure_type22161; b32153 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f18134(); break; case NATIVE_PROCEDURE_TYPE22163: d18132 = t3690.value.native_procedure_type22163; b32151 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f18132(); break; case NATIVE_PROCEDURE_TYPE22166: t4119 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4120 = f18041((t3690.value.native_procedure_type22166), t4119); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t4120; break; case NATIVE_PROCEDURE_TYPE22317: t4121 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f15030((t3690.value.native_procedure_type22317), t4121); break; case NATIVE_PROCEDURE_TYPE22651: t4122 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f13090((t3690.value.native_procedure_type22651), t4122); break; case NATIVE_PROCEDURE_TYPE22653: t4123 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f13088((t3690.value.native_procedure_type22653), t4123); break; case NATIVE_PROCEDURE_TYPE22732: t4124 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4125 = f12255((t3690.value.native_procedure_type22732), t4124); /* MOVE: branching squeezed to general */ if (t4125>=((struct structure_type24753 *)VALUE_OFFSET)) {t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t4125;} else t3688.tag = (unsigned)t4125; break; case NATIVE_PROCEDURE_TYPE23298: if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f17689(t3690.value.native_procedure_type23298); break; case NATIVE_PROCEDURE_TYPE23320: t4126 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f1078((t3690.value.native_procedure_type23320), t4126); break; case NATIVE_PROCEDURE_TYPE23668: t4127 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4128 = f13790((t3690.value.native_procedure_type23668), t4127); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t4128; break; case NATIVE_PROCEDURE_TYPE23825: t4129 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4130 = f15654(t4129); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t4130; break; case NATIVE_PROCEDURE_TYPE23834: t4131 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4132 = f15663(t4131); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t4132; break; case NATIVE_PROCEDURE_TYPE23839: t4133 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4134 = f15691(t4133); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t4134; break; case NATIVE_PROCEDURE_TYPE23841: t4135 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4136 = f15689(t4135); t3688.tag = STRUCTURE_TYPE24753; t3688.value.structure_type24753 = t4136; break; case NATIVE_PROCEDURE_TYPE23848: t4137 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f15752(t4137); break; case NATIVE_PROCEDURE_TYPE23878: t4138 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f15701(t4138); break; case NATIVE_PROCEDURE_TYPE23899: t4139 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t3688 = f15742(t4139); break; case NATIVE_PROCEDURE_TYPE24056: t4140 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4141 = f9690(t4140); t3688.tag = STRUCTURE_TYPE27747; t3688.value.structure_type27747 = t4141; break; case NATIVE_PROCEDURE_TYPE24093: t4142 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4143 = f9654((t3690.value.native_procedure_type24093), t4142); t3688.tag = STRUCTURE_TYPE27747; t3688.value.structure_type27747 = t4143; break; case NATIVE_PROCEDURE_TYPE24096: t4144 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4145 = f9651((t3690.value.native_procedure_type24096), t4144); t3688.tag = STRUCTURE_TYPE27747; t3688.value.structure_type27747 = t4145; break; case NATIVE_PROCEDURE_TYPE24098: t4146 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4147 = f9649((t3690.value.native_procedure_type24098), t4146); t3688.tag = STRUCTURE_TYPE27747; t3688.value.structure_type27747 = t4147; break; case NATIVE_PROCEDURE_TYPE24101: t4148 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4149 = f9646((t3690.value.native_procedure_type24101), t4148); t3688.tag = STRUCTURE_TYPE27747; t3688.value.structure_type27747 = t4149; break; case NATIVE_PROCEDURE_TYPE24104: t4150 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4151 = f9643((t3690.value.native_procedure_type24104), t4150); t3688.tag = STRUCTURE_TYPE27747; t3688.value.structure_type27747 = t4151; break; case NATIVE_PROCEDURE_TYPE24106: t4152 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4153 = f9640((t3690.value.native_procedure_type24106), t4152); t3688.tag = STRUCTURE_TYPE27747; t3688.value.structure_type27747 = t4153; break; default: t4154 = t3691; if (!(((unsigned)t3692)==NULL_TYPE)) {backtrace_internal("LOOP[27745]"); call_error();} t4155 = f12557((t3690.value.native_procedure_type24209), t4154); t3688.tag = STRUCTURE_TYPE27698; t3688.value.structure_type27698 = t4155;} /* x257241 */ t3689 = a34173; /* x266643 */ t3676 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t3676==NULL) {backtrace_internal("LOOP[27745]"); out_of_memory_error();} t3676->s0 = t3688; /* MOVE: branching squeezed to general */ if (t3689>=((struct structure_type24753 *)VALUE_OFFSET)) {t3676->s1.tag = STRUCTURE_TYPE24753; t3676->s1.value.structure_type24753 = t3689;} else t3676->s1.tag = (unsigned)t3689; /* x257166 */ a34171 = t3674; a34172 = t3675; a34173 = t3676; goto h27745;} /* LIST->VECTOR[27650] */ struct headed_vector_type27896 *f27650(struct w49 a34091) {struct headed_vector_type27896 *a34092; /* R */ int a34096; /* K */ struct headed_vector_type27896 *t4310; int t4311; struct w49 t4312; int t4313; int t4314; int t4315; struct headed_vector_type27896 *t4316; int t4317; struct w49 t4318; struct w49 t4319; struct w49 t4320; int t4321; struct w49 t4322; /* x256664 */ /* x256663 */ /* x256662 */ /* x256661 */ t4322 = a34091; /* x256660 */ t4321 = f26219(t4322); /* x266726 */ t4310 = (struct headed_vector_type27896 *)GC_malloc(sizeof(struct headed_vector_type27896)+((t4321-1)*sizeof(struct w49))); if (t4310==NULL) {backtrace_internal("LIST->VECTOR[27650]"); out_of_memory_error();} t4310->length = t4321; /* x256658 */ a34092 = t4310; /* x256657 */ /* x256656 */ /* x256655 */ t4311 = 0; /* x256654 */ /* x256653 */ /* x256652 */ /* x256651 */ /* x256650 */ /* x256649 */ /* x256648 */ /* x256618 */ /* x256617 */ a34096 = t4311; h27655: /* x256647 */ /* x256623 */ /* x256622 */ /* x256621 */ t4312 = a34091; /* x266731 */ if ((t4312.tag)==NULL_TYPE) goto l971; /* x256644 */ /* x256643 */ /* x256642 */ /* x256637 */ /* x256632 */ t4316 = a34092; /* x256633 */ t4317 = a34096; /* x256636 */ /* x256635 */ t4319 = a34091; /* x266728 */ if (!((t4319.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 27656]"); structure_ref_error();} t4318 = t4319.value.structure_type24753->s0; /* x266729 */ if ((t4317<0)||(t4317>=(t4316->length))) {backtrace_internal("[inside LOOP 27656]"); vector_set3_error();} (t4316->element)[t4317] = t4318; /* x256641 */ /* x256640 */ /* x256639 */ t4320 = a34091; /* x266727 */ if (!((t4320.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 27656]"); structure_ref_error();} a34091 = t4320.value.structure_type24753->s1; /* x256630 */ /* x256629 */ /* x256628 */ /* x256626 */ t4314 = a34096; /* x256627 */ t4315 = 1; /* x266730 */ t4313 = t4314+t4315; /* x256624 */ a34096 = t4313; goto h27655; goto l972; l971: /* x256646 */ /* x256645 */ l972: /* x256616 */ /* x256615 */ return a34092;} /* LOOP[27648] */ struct structure_type24753 *f27648(int a34090) {struct structure_type24753 *r27648; int t4323; int t4324; struct w36789 t4325; struct w49 t4326; struct structure_type24753 *t4327; struct w36789 t4328; int t4329; int t4330; int t4331; int t4332; /* x256603 */ /* x256589 */ /* x256585 */ t4323 = a34090; /* x256588 */ /* x256587 */ t4325 = a34087; /* x266736 */ switch (t4325.tag) {case NONHEADED_VECTOR_TYPE24736: t4324 = t4325.value.nonheaded_vector_type24736.length; break; case HEADED_VECTOR_TYPE27896: t4324 = t4325.value.headed_vector_type27896->length; break; default: backtrace_internal("LOOP[27648]"); vector_length_error();} /* x266737 */ if (!(t4323==t4324)) goto l974; /* x256590 */ return (struct structure_type24753 *)NULL_TYPE; l974: /* x256602 */ /* x256595 */ /* x256593 */ t4328 = a34087; /* x256594 */ t4329 = a34090; /* x266734 */ switch (t4328.tag) {case NONHEADED_VECTOR_TYPE24736: if ((t4329<0)||(t4329>=(t4328.value.nonheaded_vector_type24736.length))) {backtrace_internal("LOOP[27648]"); vector_ref3_error();} t4326.tag = STRING_TYPE; t4326.value.string_type = (t4328.value.nonheaded_vector_type24736.element)[t4329]; break; case HEADED_VECTOR_TYPE27896: if ((t4329<0)||(t4329>=(t4328.value.headed_vector_type27896->length))) {backtrace_internal("LOOP[27648]"); vector_ref3_error();} t4326 = (t4328.value.headed_vector_type27896->element)[t4329]; break; default: backtrace_internal("LOOP[27648]"); vector_ref1_error();} /* x256601 */ /* x256600 */ /* x256598 */ t4331 = a34090; /* x256599 */ t4332 = 1; /* x266733 */ t4330 = t4331+t4332; /* x256596 */ t4327 = f27648(t4330); /* x266735 */ r27648 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r27648==NULL) {backtrace_internal("LOOP[27648]"); out_of_memory_error();} r27648->s0 = t4326; /* MOVE: branching squeezed to general */ if (t4327>=((struct structure_type24753 *)VALUE_OFFSET)) {r27648->s1.tag = STRUCTURE_TYPE24753; r27648->s1.value.structure_type24753 = t4327;} else r27648->s1.tag = (unsigned)t4327; return r27648;} /* VECTOR->LIST[27645] */ struct structure_type24753 *f27645(void) {int t4333; /* x256612 */ /* x256611 */ t4333 = 0; /* x256610 */ /* x256609 */ /* x256608 */ /* x256607 */ /* x256606 */ /* x256605 */ /* x256604 */ /* x256583 */ /* x256582 */ return f27648(t4333);} /* STRING-COPY[27595] */ char *f27595(char *a34045) {int a34046; /* N */ char *a34047; /* R */ int a34051; /* K */ int t4334; char *t4335; int t4336; int t4337; int t4338; int t4339; int t4340; int t4341; char *t4342; int t4343; char t4344; char *t4345; int t4346; int t4347; char *t4348; char *t4349; /* x256370 */ /* x256369 */ /* x256368 */ t4349 = a34045; /* x266763 */ t4334 = strlen(t4349); /* x256366 */ a34046 = t4334; /* x256365 */ /* x256364 */ /* x256363 */ t4347 = a34046; /* x266764 */ t4335 = (char *)GC_malloc_atomic((t4347+1)*sizeof(char)); if (t4335==NULL) {backtrace_internal("[inside STRING-COPY 27596]"); out_of_memory_error();} t4335[t4347] = '\0'; for (t4348 = &(t4335[0]); t4348<(&(t4335[t4347])); t4348++) *t4348 = ' '; /* x256361 */ a34047 = t4335; /* x256360 */ /* x256359 */ /* x256358 */ /* x256357 */ /* x256356 */ t4336 = 0; /* x256355 */ /* x256354 */ /* x256353 */ /* x256352 */ /* x256351 */ /* x256350 */ /* x256349 */ /* x256321 */ /* x256320 */ a34051 = t4336; h27602: /* x256348 */ /* x256327 */ /* x256326 */ /* x256324 */ t4337 = a34051; /* x256325 */ t4338 = a34046; /* x266768 */ if (t4337==t4338) goto l976; /* x256345 */ /* x256344 */ /* x256343 */ /* x256342 */ /* x256336 */ t4342 = a34047; /* x256337 */ t4343 = a34051; /* x256341 */ /* x256339 */ t4345 = a34045; /* x256340 */ t4346 = a34051; /* x266765 */ if ((t4346<0)||(t4346>=strlen(t4345))) {backtrace_internal("[inside LOOP 27603]"); string_ref3_error();} t4344 = t4345[t4346]; /* x266766 */ if ((t4343<0)||(t4343>=strlen(t4342))) {backtrace_internal("[inside LOOP 27603]"); string_set4_error();} t4342[t4343] = t4344; /* x256334 */ /* x256333 */ /* x256332 */ /* x256330 */ t4340 = a34051; /* x256331 */ t4341 = 1; /* x266767 */ t4339 = t4340+t4341; /* x256328 */ a34051 = t4339; goto h27602; goto l977; l976: /* x256347 */ /* x256346 */ l977: /* x256319 */ /* x256318 */ return a34047;} /* LIST->STRING[27585] */ char *f27585(struct w49 a34037) {char *a34038; /* R */ int a34042; /* K */ char *t4350; int t4351; struct w49 t4352; int t4353; int t4354; int t4355; char *t4356; int t4357; struct w49 t4358; struct w49 t4359; struct w49 t4360; int t4361; char *t4362; struct w49 t4363; /* x256315 */ /* x256314 */ /* x256313 */ /* x256312 */ t4363 = a34037; /* x256311 */ t4361 = f26219(t4363); /* x266770 */ t4350 = (char *)GC_malloc_atomic((t4361+1)*sizeof(char)); if (t4350==NULL) {backtrace_internal("LIST->STRING[27585]"); out_of_memory_error();} t4350[t4361] = '\0'; for (t4362 = &(t4350[0]); t4362<(&(t4350[t4361])); t4362++) *t4362 = ' '; /* x256309 */ a34038 = t4350; /* x256308 */ /* x256307 */ /* x256306 */ t4351 = 0; /* x256305 */ /* x256304 */ /* x256303 */ /* x256302 */ /* x256301 */ /* x256300 */ /* x256299 */ /* x256269 */ /* x256268 */ a34042 = t4351; h27590: /* x256298 */ /* x256274 */ /* x256273 */ /* x256272 */ t4352 = a34037; /* x266775 */ if ((t4352.tag)==NULL_TYPE) goto l979; /* x256295 */ /* x256294 */ /* x256293 */ /* x256288 */ /* x256283 */ t4356 = a34038; /* x256284 */ t4357 = a34042; /* x256287 */ /* x256286 */ t4359 = a34037; /* x266772 */ if (!((t4359.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 27591]"); structure_ref_error();} t4358 = t4359.value.structure_type24753->s0; /* x266773 */ if ((t4357<0)||(t4357>=strlen(t4356))) {backtrace_internal("[inside LOOP 27591]"); string_set4_error();} if (!((t4358.tag)>2); /* x256292 */ /* x256291 */ /* x256290 */ t4360 = a34037; /* x266771 */ if (!((t4360.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 27591]"); structure_ref_error();} a34037 = t4360.value.structure_type24753->s1; /* x256281 */ /* x256280 */ /* x256279 */ /* x256277 */ t4354 = a34042; /* x256278 */ t4355 = 1; /* x266774 */ t4353 = t4354+t4355; /* x256275 */ a34042 = t4353; goto h27590; goto l980; l979: /* x256297 */ /* x256296 */ l980: /* x256267 */ /* x256266 */ return a34038;} /* LOOP[27583] */ struct structure_type24753 *f27583(int a34036) {struct structure_type24753 *r27583; int t4364; int t4365; char t4366; struct structure_type24753 *t4367; struct w49 t4368; int t4369; int t4370; int t4371; int t4372; /* x256249 */ /* x256235 */ /* x256233 */ t4364 = a34036; /* x256234 */ t4365 = a34033; /* x266781 */ if (!(t4364==t4365)) goto l982; /* x256236 */ return (struct structure_type24753 *)NULL_TYPE; l982: /* x256248 */ /* x256241 */ /* x256239 */ t4368 = a34032; /* x256240 */ t4369 = a34036; /* x266779 */ if (!((t4368.tag)==STRING_TYPE)) {backtrace_internal("LOOP[27583]"); string_ref1_error();} if ((t4369<0)||(t4369>=strlen(t4368.value.string_type))) {backtrace_internal("LOOP[27583]"); string_ref3_error();} t4366 = (t4368.value.string_type)[t4369]; /* x256247 */ /* x256246 */ /* x256244 */ t4371 = a34036; /* x256245 */ t4372 = 1; /* x266778 */ t4370 = t4371+t4372; /* x256242 */ t4367 = f27583(t4370); /* x266780 */ r27583 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r27583==NULL) {backtrace_internal("LOOP[27583]"); out_of_memory_error();} r27583->s0.tag = ((unsigned)((unsigned char)t4366))<<2; /* MOVE: branching squeezed to general */ if (t4367>=((struct structure_type24753 *)VALUE_OFFSET)) {r27583->s1.tag = STRUCTURE_TYPE24753; r27583->s1.value.structure_type24753 = t4367;} else r27583->s1.tag = (unsigned)t4367; return r27583;} /* STRING->LIST[27579] */ struct structure_type24753 *f27579(void) {int t4373; int t4374; struct w49 t4375; /* x256263 */ /* x256262 */ /* x256261 */ t4375 = a34032; /* x266777 */ if (!((t4375.tag)==STRING_TYPE)) {backtrace_internal("STRING->LIST[27579]"); string_length_error();} t4373 = strlen(t4375.value.string_type); /* x256259 */ a34033 = t4373; /* x256258 */ /* x256257 */ t4374 = 0; /* x256256 */ /* x256255 */ /* x256254 */ /* x256253 */ /* x256252 */ /* x256251 */ /* x256250 */ /* x256231 */ /* x256230 */ return f27583(t4374);} /* STRING-APPEND[27556] */ char *f27556(struct structure_type24753 *a34014) {char *a34015; /* R */ int a34016; /* K */ struct w49 a34020; /* STRINGS */ int a34021; /* N */ int a34025; /* L */ int a34030; /* K */ struct w49 a34031; /* STRINGS */ char *t4376; int t4377; struct structure_type24753 *t4378; struct w49 t4379; int t4380; struct w49 t4381; struct w16638 t4382; int t4383; int t4384; int t4385; int t4386; int t4387; int t4388; char *t4389; int t4390; char t4391; struct w49 t4392; int t4393; struct w49 t4394; int t4395; int t4396; struct w49 t4397; struct w16638 t4398; int t4399; char *t4400; int t4401; struct structure_type24753 *t4402; struct w49 t4403; int t4404; struct w49 t4405; int t4406; int t4407; struct w49 t4408; struct w16638 t4409; struct w16638 t4410; /* x256227 */ /* x256226 */ /* x256225 */ /* x256223 */ t4401 = 0; /* x256224 */ t4402 = a34014; /* x256222 */ /* x256221 */ /* x256220 */ /* x256219 */ /* x256218 */ /* x256217 */ /* x256216 */ /* x256197 */ /* x256196 */ a34030 = t4401; a34031.tag = STRUCTURE_TYPE24753; a34031.value.structure_type24753 = t4402; h27577: /* x256215 */ /* x256200 */ /* x256199 */ t4403 = a34031; /* x266786 */ if (!((t4403.tag)==NULL_TYPE)) goto l990; /* x256201 */ t4399 = a34030; goto l991; l990: /* x256214 */ /* x256210 */ /* x256204 */ t4406 = a34030; /* x256209 */ /* x256208 */ /* x256207 */ t4409 = *((struct w16638 *)(&a34031)); /* x266783 */ if (!((t4409.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27577]"); structure_ref_error();} t4408 = t4409.value.structure_type24753->s0; /* x266784 */ if (!((t4408.tag)==STRING_TYPE)) {backtrace_internal("LOOP[27577]"); string_length_error();} t4407 = strlen(t4408.value.string_type); /* x266785 */ t4404 = t4406+t4407; /* x256213 */ /* x256212 */ t4410 = *((struct w16638 *)(&a34031)); /* x266782 */ if (!((t4410.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27577]"); structure_ref_error();} t4405 = t4410.value.structure_type24753->s1; /* x256202 */ a34030 = t4404; a34031 = t4405; goto h27577; l991: /* x266787 */ t4376 = (char *)GC_malloc_atomic((t4399+1)*sizeof(char)); if (t4376==NULL) {backtrace_internal("STRING-APPEND[27556]"); out_of_memory_error();} t4376[t4399] = '\0'; for (t4400 = &(t4376[0]); t4400<(&(t4376[t4399])); t4400++) *t4400 = ' '; /* x256194 */ a34015 = t4376; /* x256193 */ /* x256192 */ t4377 = 0; /* x256191 */ a34016 = t4377; /* x256190 */ /* x256189 */ /* x256188 */ /* x256187 */ /* x256186 */ t4378 = a34014; /* x256185 */ /* x256184 */ /* x256183 */ /* x256182 */ /* x256181 */ /* x256180 */ /* x256179 */ /* x256111 */ /* x256110 */ a34020.tag = STRUCTURE_TYPE24753; a34020.value.structure_type24753 = t4378; h27563: /* x256178 */ /* x256116 */ /* x256115 */ /* x256114 */ t4379 = a34020; /* x266798 */ if ((t4379.tag)==NULL_TYPE) goto l984; /* x256175 */ /* x256174 */ /* x256173 */ /* x256172 */ t4398 = *((struct w16638 *)(&a34020)); /* x266788 */ if (!((t4398.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27563]"); structure_ref_error();} t4397 = t4398.value.structure_type24753->s0; /* x266789 */ if (!((t4397.tag)==STRING_TYPE)) {backtrace_internal("LOOP[27563]"); string_length_error();} t4380 = strlen(t4397.value.string_type); /* x256169 */ a34021 = t4380; /* x256168 */ /* x256167 */ /* x256166 */ t4383 = 0; /* x256165 */ /* x256164 */ /* x256163 */ /* x256162 */ /* x256161 */ /* x256160 */ /* x256159 */ /* x256124 */ /* x256123 */ a34025 = t4383; h27568: /* x256158 */ /* x256130 */ /* x256129 */ /* x256127 */ t4384 = a34025; /* x256128 */ t4385 = a34021; /* x266795 */ if (t4384==t4385) goto l987; /* x256155 */ /* x256154 */ /* x256153 */ /* x256147 */ /* x256139 */ t4389 = a34015; /* x256140 */ t4390 = a34016; /* x256146 */ /* x256144 */ /* x256143 */ t4394 = a34020; /* x266791 */ if (!((t4394.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 27569]"); structure_ref_error();} t4392 = t4394.value.structure_type24753->s0; /* x256145 */ t4393 = a34025; /* x266792 */ if (!((t4392.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 27569]"); string_ref1_error();} if ((t4393<0)||(t4393>=strlen(t4392.value.string_type))) {backtrace_internal("[inside LOOP 27569]"); string_ref3_error();} t4391 = (t4392.value.string_type)[t4393]; /* x266793 */ if ((t4390<0)||(t4390>=strlen(t4389))) {backtrace_internal("[inside LOOP 27569]"); string_set4_error();} t4389[t4390] = t4391; /* x256152 */ /* x256151 */ /* x256149 */ t4395 = a34016; /* x256150 */ t4396 = 1; /* x266790 */ a34016 = t4395+t4396; /* x256137 */ /* x256136 */ /* x256135 */ /* x256133 */ t4387 = a34025; /* x256134 */ t4388 = 1; /* x266794 */ t4386 = t4387+t4388; /* x256131 */ a34025 = t4386; goto h27568; goto l988; l987: /* x256157 */ /* x256156 */ l988: /* x256122 */ /* x256121 */ /* x256120 */ /* x256119 */ t4382 = *((struct w16638 *)(&a34020)); /* x266797 */ if (!((t4382.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 27565]"); structure_ref_error();} t4381 = t4382.value.structure_type24753->s1; /* x256117 */ a34020 = t4381; goto h27563; goto l985; l984: /* x256177 */ /* x256176 */ l985: /* x256109 */ /* x256108 */ return a34015;} /* STRING=?[27434] */ unsigned f27434(struct w49 a33857, struct w49 a33858) {struct w49 a33862; /* STRING1 */ struct w49 a33863; /* STRING2 */ int a33865; /* N */ int a33868; /* K */ struct w49 t4411; struct w49 t4412; int t4413; int t4414; int t4415; struct w49 t4416; int t4417; int t4418; int t4419; char t4420; char t4421; struct w49 t4422; char t4423; struct w49 t4424; int t4425; struct w49 t4426; int t4427; int t4428; int t4429; int t4430; struct w49 t4431; /* x255128 */ /* x255125 */ t4411 = a33857; /* x255126 */ t4412 = a33858; /* x255127 */ /* x255124 */ /* x255123 */ /* x255122 */ /* x255121 */ /* x255120 */ /* x255119 */ /* x255118 */ /* x255047 */ /* x255046 */ a33862 = t4411; a33863 = t4412; /* x255117 */ /* x255116 */ /* x255115 */ t4431 = a33862; /* x266937 */ if (!((t4431.tag)==STRING_TYPE)) {backtrace_internal("LOOP?[27437]"); string_length_error();} t4413 = strlen(t4431.value.string_type); /* x255113 */ a33865 = t4413; /* x255112 */ /* x255112 */ /* x255053 */ /* x255049 */ t4414 = a33865; /* x255052 */ /* x255051 */ t4416 = a33863; /* x266945 */ if (!((t4416.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP? 27438]"); string_length_error();} t4415 = strlen(t4416.value.string_type); /* x266946 */ if (!(t4414==t4415)) goto l993; /* x255110 */ /* x255091 */ /* x255090 */ t4417 = 0; /* x255089 */ /* x255088 */ /* x255087 */ /* x255086 */ /* x255085 */ /* x255084 */ /* x255083 */ /* x255055 */ /* x255054 */ a33868 = t4417; h27441: /* x255082 */ /* x255081 */ /* x255079 */ t4418 = a33868; /* x255080 */ t4419 = a33865; /* x266941 */ if (t4418==t4419) goto l996; /* x255075 */ /* x255067 */ /* x255066 */ /* x255064 */ t4426 = a33863; /* x255065 */ t4427 = a33868; /* x266943 */ if (!((t4426.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP? 27442]"); string_ref1_error();} if ((t4427<0)||(t4427>=strlen(t4426.value.string_type))) {backtrace_internal("[inside LOOP? 27442]"); string_ref3_error();} t4421 = (t4426.value.string_type)[t4427]; /* x255062 */ /* x255060 */ t4424 = a33862; /* x255061 */ t4425 = a33868; /* x266944 */ if (!((t4424.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP? 27442]"); string_ref1_error();} if ((t4425<0)||(t4425>=strlen(t4424.value.string_type))) {backtrace_internal("[inside LOOP? 27442]"); string_ref3_error();} t4420 = (t4424.value.string_type)[t4425]; /* x255058 */ t4422.tag = ((unsigned)((unsigned char)t4420))<<2; t4423 = t4421; if (f27342(t4422, t4423)==FALSE_TYPE) goto l993; /* x255073 */ /* x255072 */ /* x255070 */ t4429 = a33868; /* x255071 */ t4430 = 1; /* x266942 */ t4428 = t4429+t4430; /* x255068 */ a33868 = t4428; goto h27441; l996: /* x255108 */ /* x255107 */ /* x255106 */ /* x266938 */ return TRUE_TYPE; l993: return FALSE_TYPE;} /* [inside top level 27415] */ char f27415(struct w49 a33838) {int t4432; struct headed_vector_type24746 *t4433; int t4434; struct w49 t4435; /* x254416 */ /* x254415 */ /* x254411 */ t4433 = a33837; /* x254414 */ /* x254413 */ t4435 = a33838; /* x266961 */ if (!((t4435.tag)>2))); /* x266962 */ if ((t4434<0)||(t4434>=(t4433->length))) {backtrace_internal("[inside top level 27415]"); vector_ref3_error();} t4432 = (t4433->element)[t4434]; /* x266963 */ if ((t4432<0)||(t4432>=256)) {backtrace_internal("[inside top level 27415]"); integer_to_char2_error();} return (unsigned char)t4432;} /* [inside top level 27407] */ unsigned f27407(char a33830) {struct headed_vector_type24751 *t4436; int t4437; char t4438; /* x253603 */ /* x253599 */ t4436 = a33829; /* x253602 */ /* x253601 */ t4438 = a33830; /* x266968 */ t4437 = (int)((unsigned char)t4438); /* x266969 */ if ((t4437<0)||(t4437>=(t4436->length))) {backtrace_internal("[inside top level 27407]"); vector_ref3_error();} return (t4436->element)[t4437];} /* [inside top level 27405] */ unsigned f27405(struct w49 a33828) {struct headed_vector_type24751 *t4439; int t4440; struct w49 t4441; /* x253336 */ /* x253332 */ t4439 = a33827; /* x253335 */ /* x253334 */ t4441 = a33828; /* x266970 */ if (!((t4441.tag)>2))); /* x266971 */ if ((t4440<0)||(t4440>=(t4439->length))) {backtrace_internal("[inside top level 27405]"); vector_ref3_error();} return (t4439->element)[t4440];} /* [inside top level 27403] */ unsigned f27403(unsigned a33826) {struct headed_vector_type24751 *t4442; int t4443; unsigned t4444; /* x253069 */ /* x253065 */ t4442 = a33825; /* x253068 */ /* x253067 */ t4444 = a33826; /* x266972 */ if (!(t4444>2))); /* x266973 */ if ((t4443<0)||(t4443>=(t4442->length))) {backtrace_internal("[inside top level 27403]"); vector_ref3_error();} return (t4442->element)[t4443];} /* CHAR-CI=?[27372] */ unsigned f27372(struct w49 a33780, struct w49 a33781) {char a33785; /* CHAR1 */ char a33786; /* CHAR2 */ char t4445; char t4446; int t4447; int t4448; char t4449; char t4450; struct w49 t4451; struct w49 t4452; /* x252869 */ /* x252864 */ /* x252863 */ t4451 = a33780; /* x252862 */ t4445 = f27415(t4451); /* x252867 */ /* x252866 */ t4452 = a33781; /* x252865 */ t4446 = f27415(t4452); /* x252868 */ /* x252861 */ /* x252860 */ /* x252859 */ /* x252858 */ /* x252857 */ /* x252856 */ /* x252855 */ /* x252825 */ /* x252824 */ a33785 = t4445; a33786 = t4446; /* x252854 */ /* x252854 */ /* x252833 */ /* x252829 */ /* x252828 */ t4449 = a33785; /* x267002 */ t4447 = (int)((unsigned char)t4449); /* x252832 */ /* x252831 */ t4450 = a33786; /* x267001 */ t4448 = (int)((unsigned char)t4450); /* x267003 */ if (!(t4447==t4448)) goto l1000; /* x252852 */ /* x252851 */ /* x252850 */ /* x266998 */ return TRUE_TYPE; l1000: return FALSE_TYPE;} /* CHAR>=?[27366] */ unsigned f27366(unsigned a33771, char a33772) {unsigned a33776; /* CHAR1 */ char a33777; /* CHAR2 */ unsigned t4453; char t4454; int t4455; int t4456; unsigned t4457; char t4458; /* x252821 */ /* x252818 */ t4453 = a33771; /* x252819 */ t4454 = a33772; /* x252820 */ /* x252817 */ /* x252816 */ /* x252815 */ /* x252814 */ /* x252813 */ /* x252812 */ /* x252811 */ /* x252783 */ /* x252782 */ a33776 = t4453; a33777 = t4454; /* x252810 */ /* x252810 */ /* x252791 */ /* x252787 */ /* x252786 */ t4457 = a33776; /* x267008 */ if (!(t4457>2))); /* x252790 */ /* x252789 */ t4458 = a33777; /* x267007 */ t4456 = (int)((unsigned char)t4458); /* x267009 */ if (!(t4455>=t4456)) goto l1004; /* x252808 */ /* x252807 */ /* x252806 */ /* x267004 */ return TRUE_TYPE; l1004: return FALSE_TYPE;} /* CHAR<=?[27360] */ unsigned f27360(unsigned a33762, char a33763) {unsigned a33767; /* CHAR1 */ char a33768; /* CHAR2 */ unsigned t4459; char t4460; int t4461; int t4462; unsigned t4463; char t4464; /* x252779 */ /* x252776 */ t4459 = a33762; /* x252777 */ t4460 = a33763; /* x252778 */ /* x252775 */ /* x252774 */ /* x252773 */ /* x252772 */ /* x252771 */ /* x252770 */ /* x252769 */ /* x252741 */ /* x252740 */ a33767 = t4459; a33768 = t4460; /* x252768 */ /* x252768 */ /* x252749 */ /* x252745 */ /* x252744 */ t4463 = a33767; /* x267014 */ if (!(t4463>2))); /* x252748 */ /* x252747 */ t4464 = a33768; /* x267013 */ t4462 = (int)((unsigned char)t4464); /* x267015 */ if (!(t4461<=t4462)) goto l1008; /* x252766 */ /* x252765 */ /* x252764 */ /* x267010 */ return TRUE_TYPE; l1008: return FALSE_TYPE;} /* CHAR>?[27354] */ unsigned f27354(unsigned a33753, char a33754) {unsigned a33758; /* CHAR1 */ char a33759; /* CHAR2 */ unsigned t4465; char t4466; int t4467; int t4468; unsigned t4469; char t4470; /* x252737 */ /* x252734 */ t4465 = a33753; /* x252735 */ t4466 = a33754; /* x252736 */ /* x252733 */ /* x252732 */ /* x252731 */ /* x252730 */ /* x252729 */ /* x252728 */ /* x252727 */ /* x252699 */ /* x252698 */ a33758 = t4465; a33759 = t4466; /* x252726 */ /* x252726 */ /* x252707 */ /* x252703 */ /* x252702 */ t4469 = a33758; /* x267020 */ if (!(t4469>2))); /* x252706 */ /* x252705 */ t4470 = a33759; /* x267019 */ t4468 = (int)((unsigned char)t4470); /* x267021 */ if (!(t4467>t4468)) goto l1012; /* x252724 */ /* x252723 */ /* x252722 */ /* x267016 */ return TRUE_TYPE; l1012: return FALSE_TYPE;} /* CHAR>2))); /* x252664 */ /* x252663 */ t4476 = a33750; /* x267025 */ t4474 = (int)((unsigned char)t4476); /* x267027 */ if (!(t4473>2))); /* x252622 */ /* x252621 */ t4482 = a33741; /* x267031 */ t4480 = (int)((unsigned char)t4482); /* x267033 */ if (!(t4479==t4480)) goto l1020; /* x252640 */ /* x252639 */ /* x252638 */ /* x267028 */ return TRUE_TYPE; l1020: return FALSE_TYPE;} /* BITWISE-OR[27310] */ int f27310(struct structure_type24753 *a33706) {struct w49 a33709; /* NS */ int a33710; /* R */ struct structure_type24753 *t4483; struct w49 t4484; int t4485; struct w49 t4486; struct w49 t4487; int t4488; struct w16638 t4489; int t4490; struct w49 t4491; struct w16638 t4492; struct structure_type24753 *t4493; struct w49 t4494; struct structure_type24753 *t4495; /* x252452 */ /* x252415 */ /* x252414 */ t4483 = a33706; /* x267050 */ /* x252451 */ /* x252445 */ /* x252444 */ t4493 = a33706; /* x267046 */ t4484 = t4493->s1; /* x252450 */ /* x252449 */ /* x252448 */ t4495 = a33706; /* x267045 */ t4494 = t4495->s0; /* x252446 */ if (!((t4494.tag)==FIXNUM_TYPE)) {backtrace_internal("BITWISE-OR[27310]"); bitwise_or_error();} t4485 = t4494.value.fixnum_type; /* x252442 */ /* x252441 */ /* x252440 */ /* x252439 */ /* x252438 */ /* x252437 */ /* x252436 */ /* x252419 */ /* x252418 */ a33709 = t4484; a33710 = t4485; h27313: /* x252435 */ /* x252422 */ /* x252421 */ t4486 = a33709; /* x267049 */ if (!((t4486.tag)==NULL_TYPE)) goto l1025; /* x252423 */ return a33710; l1025: /* x252434 */ /* x252427 */ /* x252426 */ t4489 = *((struct w16638 *)(&a33709)); /* x267048 */ if (!((t4489.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27313]"); structure_ref_error();} t4487 = t4489.value.structure_type24753->s1; /* x252433 */ /* x252429 */ t4490 = a33710; /* x252432 */ /* x252431 */ t4492 = *((struct w16638 *)(&a33709)); /* x267047 */ if (!((t4492.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27313]"); structure_ref_error();} t4491 = t4492.value.structure_type24753->s0; /* x252428 */ if (!((t4491.tag)==FIXNUM_TYPE)) {backtrace_internal("LOOP[27313]"); bitwise_or_error();} t4488 = t4490|(t4491.value.fixnum_type); /* x252424 */ a33709 = t4487; a33710 = t4488; goto h27313;} /* BITWISE-AND[27305] */ int f27305(struct structure_type24753 *a33701) {struct w49 a33704; /* NS */ int a33705; /* R */ struct structure_type24753 *t4496; struct w49 t4497; int t4498; struct w49 t4499; struct w49 t4500; int t4501; struct w16638 t4502; int t4503; struct w49 t4504; struct w16638 t4505; struct structure_type24753 *t4506; struct w49 t4507; struct structure_type24753 *t4508; /* x252410 */ /* x252373 */ /* x252372 */ t4496 = a33701; /* x267056 */ /* x252409 */ /* x252403 */ /* x252402 */ t4506 = a33701; /* x267052 */ t4497 = t4506->s1; /* x252408 */ /* x252407 */ /* x252406 */ t4508 = a33701; /* x267051 */ t4507 = t4508->s0; /* x252404 */ if (!((t4507.tag)==FIXNUM_TYPE)) {backtrace_internal("BITWISE-AND[27305]"); bitwise_and_error();} t4498 = t4507.value.fixnum_type; /* x252400 */ /* x252399 */ /* x252398 */ /* x252397 */ /* x252396 */ /* x252395 */ /* x252394 */ /* x252377 */ /* x252376 */ a33704 = t4497; a33705 = t4498; h27308: /* x252393 */ /* x252380 */ /* x252379 */ t4499 = a33704; /* x267055 */ if (!((t4499.tag)==NULL_TYPE)) goto l1028; /* x252381 */ return a33705; l1028: /* x252392 */ /* x252385 */ /* x252384 */ t4502 = *((struct w16638 *)(&a33704)); /* x267054 */ if (!((t4502.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27308]"); structure_ref_error();} t4500 = t4502.value.structure_type24753->s1; /* x252391 */ /* x252387 */ t4503 = a33705; /* x252390 */ /* x252389 */ t4505 = *((struct w16638 *)(&a33704)); /* x267053 */ if (!((t4505.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27308]"); structure_ref_error();} t4504 = t4505.value.structure_type24753->s0; /* x252386 */ if (!((t4504.tag)==FIXNUM_TYPE)) {backtrace_internal("LOOP[27308]"); bitwise_and_error();} t4501 = t4503&(t4504.value.fixnum_type); /* x252382 */ a33704 = t4500; a33705 = t4501; goto h27308;} /* +[27250] */ struct w30215 f27250(struct structure_type24753 *a33645) {struct w49 a33648; /* ZS */ struct w30215 a33649; /* R */ struct structure_type24753 *t4509; struct w49 t4510; struct w30215 t4511; struct w49 t4512; struct w49 t4513; struct w30215 t4514; struct w16638 t4515; struct w30215 t4516; struct w49 t4517; struct w16638 t4518; struct structure_type24753 *t4519; struct w49 t4520; struct structure_type24753 *t4521; /* x251870 */ /* x251833 */ /* x251832 */ t4509 = a33645; /* x267145 */ /* x251869 */ /* x251863 */ /* x251862 */ t4519 = a33645; /* x267141 */ t4510 = t4519->s1; /* x251868 */ /* x251867 */ /* x251866 */ t4521 = a33645; /* x267140 */ t4520 = t4521->s0; /* x251864 */ switch (t4520.tag) {case FIXNUM_TYPE: t4511.tag = FIXNUM_TYPE; t4511.value.fixnum_type = t4520.value.fixnum_type; break; case FLONUM_TYPE: t4511.tag = FLONUM_TYPE; t4511.value.flonum_type = t4520.value.flonum_type; break; default: backtrace_internal("+[27250]"); plus_error();} /* x251860 */ /* x251859 */ /* x251858 */ /* x251857 */ /* x251856 */ /* x251855 */ /* x251854 */ /* x251837 */ /* x251836 */ a33648 = t4510; a33649 = t4511; h27253: /* x251853 */ /* x251840 */ /* x251839 */ t4512 = a33648; /* x267144 */ if (!((t4512.tag)==NULL_TYPE)) goto l1031; /* x251841 */ return a33649; l1031: /* x251852 */ /* x251845 */ /* x251844 */ t4515 = *((struct w16638 *)(&a33648)); /* x267143 */ if (!((t4515.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27253]"); structure_ref_error();} t4513 = t4515.value.structure_type24753->s1; /* x251851 */ /* x251847 */ t4516 = a33649; /* x251850 */ /* x251849 */ t4518 = *((struct w16638 *)(&a33648)); /* x267142 */ if (!((t4518.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27253]"); structure_ref_error();} t4517 = t4518.value.structure_type24753->s0; /* x251846 */ if ((t4516.tag)==FIXNUM_TYPE) {switch (t4517.tag) {case FIXNUM_TYPE: t4514.tag = FIXNUM_TYPE; t4514.value.fixnum_type = (t4516.value.fixnum_type)+(t4517.value.fixnum_type); break; case FLONUM_TYPE: t4514.tag = FLONUM_TYPE; t4514.value.flonum_type = (t4516.value.fixnum_type)+(t4517.value.flonum_type); break; default: backtrace_internal("LOOP[27253]"); plus_error();}} else switch (t4517.tag) {case FIXNUM_TYPE: t4514.tag = FLONUM_TYPE; t4514.value.flonum_type = (t4516.value.flonum_type)+(t4517.value.fixnum_type); break; case FLONUM_TYPE: t4514.tag = FLONUM_TYPE; t4514.value.flonum_type = (t4516.value.flonum_type)+(t4517.value.flonum_type); break; default: backtrace_internal("LOOP[27253]"); plus_error();} /* x251842 */ a33648 = t4513; a33649 = t4514; goto h27253;} /* [inside top level 26395] */ char *f26395(char *a33577) {struct w16638 a33578; /* FOUND */ struct w49 a33582; /* PACKAGE */ char *t4522; char *t4523; struct w49 t4524; struct w49 t4525; char *t4526; char *t4527; struct w49 t4528; struct w49 t4529; char *t4530; char *t4531; struct w49 t4532; struct w49 t4533; char *t4534; char *t4535; struct w49 t4536; struct w49 t4537; char *t4538; char *t4539; struct w49 t4540; struct w49 t4541; char *t4542; char *t4543; struct w49 t4544; struct w49 t4545; char *t4546; char *t4547; struct w49 t4548; struct w49 t4549; char *t4550; char *t4551; struct w49 t4552; struct w49 t4553; char *t4554; char *t4555; struct w49 t4556; struct w49 t4557; char *t4558; char *t4559; struct w49 t4560; struct w49 t4561; char *t4562; char *t4563; struct w49 t4564; struct w49 t4565; char *t4566; char *t4567; struct w49 t4568; struct w49 t4569; char *t4570; char *t4571; struct w49 t4572; struct w49 t4573; char *t4574; char *t4575; struct w49 t4576; struct w49 t4577; char *t4578; char *t4579; struct w49 t4580; struct w49 t4581; char *t4582; char *t4583; struct w49 t4584; struct w49 t4585; char *t4586; char *t4587; struct w49 t4588; struct w49 t4589; char *t4590; char *t4591; struct w49 t4592; struct w49 t4593; char *t4594; char *t4595; struct w49 t4596; struct w49 t4597; char *t4598; char *t4599; struct w49 t4600; struct w49 t4601; char *t4602; char *t4603; struct w49 t4604; struct w49 t4605; char *t4606; char *t4607; struct w49 t4608; struct w49 t4609; char *t4610; char *t4611; struct w49 t4612; struct w49 t4613; char *t4614; char *t4615; struct w49 t4616; struct w49 t4617; char *t4618; char *t4619; struct w49 t4620; struct w49 t4621; char *t4622; char *t4623; struct w49 t4624; struct w49 t4625; char *t4626; char *t4627; struct w49 t4628; struct w49 t4629; char *t4630; char *t4631; struct w49 t4632; struct w49 t4633; char *t4634; char *t4635; struct w49 t4636; struct w49 t4637; char *t4638; char *t4639; struct w49 t4640; struct w49 t4641; char *t4642; char *t4643; struct w49 t4644; struct w49 t4645; char *t4646; char *t4647; struct w49 t4648; struct w49 t4649; char *t4650; char *t4651; struct w49 t4652; struct w49 t4653; char *t4654; char *t4655; struct w49 t4656; struct w49 t4657; char *t4658; char *t4659; struct w49 t4660; struct w49 t4661; char *t4662; char *t4663; struct w49 t4664; struct w49 t4665; char *t4666; char *t4667; struct w49 t4668; struct w49 t4669; char *t4670; char *t4671; struct w49 t4672; struct w49 t4673; char *t4674; char *t4675; struct w49 t4676; struct w49 t4677; char *t4678; char *t4679; struct w49 t4680; struct w49 t4681; char *t4682; char *t4683; struct w49 t4684; struct w49 t4685; char *t4686; char *t4687; struct w49 t4688; struct w49 t4689; char *t4690; char *t4691; struct w49 t4692; struct w49 t4693; char *t4694; char *t4695; struct w49 t4696; struct w49 t4697; char *t4698; char *t4699; struct w49 t4700; struct w49 t4701; char *t4702; char *t4703; struct w49 t4704; struct w49 t4705; char *t4706; char *t4707; struct w49 t4708; struct w49 t4709; char *t4710; char *t4711; struct w49 t4712; struct w49 t4713; char *t4714; char *t4715; struct w49 t4716; struct w49 t4717; char *t4718; char *t4719; struct w49 t4720; struct w49 t4721; char *t4722; char *t4723; struct w49 t4724; struct w49 t4725; char *t4726; char *t4727; struct w49 t4728; struct w49 t4729; char *t4730; char *t4731; struct w49 t4732; struct w49 t4733; char *t4734; char *t4735; struct w49 t4736; struct w49 t4737; char *t4738; char *t4739; struct w49 t4740; struct w49 t4741; char *t4742; char *t4743; struct w49 t4744; struct w49 t4745; char *t4746; char *t4747; struct w49 t4748; struct w49 t4749; char *t4750; char *t4751; struct w49 t4752; struct w49 t4753; char *t4754; char *t4755; struct w49 t4756; struct w49 t4757; char *t4758; char *t4759; struct w49 t4760; struct w49 t4761; char *t4762; char *t4763; struct w49 t4764; struct w49 t4765; char *t4766; char *t4767; struct w49 t4768; struct w49 t4769; char *t4770; char *t4771; struct w49 t4772; struct w49 t4773; char *t4774; char *t4775; struct w49 t4776; struct w49 t4777; char *t4778; char *t4779; struct w49 t4780; struct w49 t4781; char *t4782; char *t4783; struct w49 t4784; struct w49 t4785; char *t4786; char *t4787; struct w49 t4788; struct w49 t4789; char *t4790; char *t4791; struct w49 t4792; struct w49 t4793; char *t4794; char *t4795; struct w49 t4796; struct w49 t4797; char *t4798; char *t4799; struct w49 t4800; struct w49 t4801; char *t4802; char *t4803; struct w49 t4804; struct w49 t4805; char *t4806; char *t4807; struct w49 t4808; struct w49 t4809; char *t4810; char *t4811; struct w49 t4812; struct w49 t4813; char *t4814; char *t4815; struct w49 t4816; struct w49 t4817; char *t4818; char *t4819; struct w49 t4820; struct w49 t4821; char *t4822; char *t4823; struct w49 t4824; struct w49 t4825; char *t4826; char *t4827; struct w49 t4828; struct w49 t4829; char *t4830; char *t4831; struct w49 t4832; struct w49 t4833; char *t4834; char *t4835; struct w49 t4836; struct w49 t4837; char *t4838; char *t4839; struct w49 t4840; struct w49 t4841; char *t4842; char *t4843; struct w49 t4844; struct w49 t4845; char *t4846; char *t4847; struct w49 t4848; struct w49 t4849; char *t4850; char *t4851; struct w49 t4852; struct w49 t4853; char *t4854; char *t4855; struct w49 t4856; struct w49 t4857; char *t4858; char *t4859; struct w49 t4860; struct w49 t4861; char *t4862; char *t4863; struct w49 t4864; struct w49 t4865; char *t4866; char *t4867; struct w49 t4868; struct w49 t4869; char *t4870; char *t4871; struct w49 t4872; struct w49 t4873; char *t4874; char *t4875; struct w49 t4876; struct w49 t4877; char *t4878; char *t4879; struct w49 t4880; struct w49 t4881; char *t4882; char *t4883; struct w49 t4884; struct w49 t4885; char *t4886; char *t4887; struct w49 t4888; struct w49 t4889; char *t4890; char *t4891; struct w49 t4892; struct w49 t4893; char *t4894; char *t4895; struct w49 t4896; struct w49 t4897; char *t4898; char *t4899; struct w49 t4900; struct w49 t4901; char *t4902; char *t4903; struct w49 t4904; struct w49 t4905; char *t4906; char *t4907; struct w49 t4908; struct w49 t4909; char *t4910; char *t4911; struct w49 t4912; struct w49 t4913; char *t4914; char *t4915; struct w49 t4916; struct w49 t4917; char *t4918; char *t4919; struct w49 t4920; struct w49 t4921; char *t4922; char *t4923; struct w49 t4924; struct w49 t4925; char *t4926; char *t4927; struct w49 t4928; struct w49 t4929; char *t4930; char *t4931; struct w49 t4932; struct w49 t4933; char *t4934; char *t4935; struct w49 t4936; struct w49 t4937; char *t4938; char *t4939; struct w49 t4940; struct w49 t4941; char *t4942; char *t4943; struct w49 t4944; struct w49 t4945; char *t4946; char *t4947; struct w49 t4948; struct w49 t4949; char *t4950; char *t4951; struct w49 t4952; struct w49 t4953; char *t4954; char *t4955; struct w49 t4956; struct w49 t4957; char *t4958; char *t4959; struct w49 t4960; struct w49 t4961; char *t4962; char *t4963; struct w49 t4964; struct w49 t4965; char *t4966; char *t4967; struct w49 t4968; struct w49 t4969; char *t4970; char *t4971; struct w49 t4972; struct w49 t4973; char *t4974; char *t4975; struct w49 t4976; struct w49 t4977; char *t4978; char *t4979; struct w49 t4980; struct w49 t4981; char *t4982; char *t4983; struct w49 t4984; struct w49 t4985; char *t4986; char *t4987; struct w49 t4988; struct w49 t4989; char *t4990; char *t4991; struct w49 t4992; struct w49 t4993; char *t4994; char *t4995; struct w49 t4996; struct w49 t4997; char *t4998; char *t4999; struct w49 t5000; struct w49 t5001; char *t5002; char *t5003; struct w49 t5004; struct w49 t5005; char *t5006; char *t5007; struct w49 t5008; struct w49 t5009; char *t5010; char *t5011; struct w49 t5012; struct w49 t5013; char *t5014; char *t5015; struct w49 t5016; struct w49 t5017; char *t5018; char *t5019; struct w49 t5020; struct w49 t5021; char *t5022; char *t5023; struct w49 t5024; struct w49 t5025; char *t5026; char *t5027; struct w49 t5028; struct w49 t5029; char *t5030; char *t5031; struct w49 t5032; struct w49 t5033; char *t5034; char *t5035; struct w49 t5036; struct w49 t5037; char *t5038; char *t5039; struct w49 t5040; struct w49 t5041; char *t5042; char *t5043; struct w49 t5044; struct w49 t5045; char *t5046; char *t5047; struct w49 t5048; struct w49 t5049; char *t5050; char *t5051; struct w49 t5052; struct w49 t5053; char *t5054; char *t5055; struct w49 t5056; struct w49 t5057; char *t5058; char *t5059; struct w49 t5060; struct w49 t5061; char *t5062; char *t5063; struct w49 t5064; struct w49 t5065; char *t5066; char *t5067; struct w49 t5068; struct w49 t5069; char *t5070; char *t5071; struct w49 t5072; struct w49 t5073; char *t5074; char *t5075; struct w49 t5076; struct w49 t5077; char *t5078; char *t5079; struct w49 t5080; struct w49 t5081; char *t5082; char *t5083; struct w49 t5084; struct w49 t5085; char *t5086; char *t5087; struct w49 t5088; struct w49 t5089; char *t5090; char *t5091; struct w49 t5092; struct w49 t5093; char *t5094; char *t5095; struct w49 t5096; struct w49 t5097; char *t5098; char *t5099; struct w49 t5100; struct w49 t5101; char *t5102; char *t5103; struct w49 t5104; struct w49 t5105; char *t5106; char *t5107; struct w49 t5108; struct w49 t5109; char *t5110; char *t5111; struct w49 t5112; struct w49 t5113; char *t5114; char *t5115; struct w49 t5116; struct w49 t5117; char *t5118; char *t5119; struct w49 t5120; struct w49 t5121; char *t5122; char *t5123; struct w49 t5124; struct w49 t5125; char *t5126; char *t5127; struct w49 t5128; struct w49 t5129; char *t5130; char *t5131; struct w49 t5132; struct w49 t5133; char *t5134; char *t5135; struct w49 t5136; struct w49 t5137; char *t5138; char *t5139; struct w49 t5140; struct w49 t5141; char *t5142; char *t5143; struct w49 t5144; struct w49 t5145; char *t5146; char *t5147; struct w49 t5148; struct w49 t5149; char *t5150; char *t5151; struct w49 t5152; struct w49 t5153; char *t5154; char *t5155; struct w49 t5156; struct w49 t5157; char *t5158; char *t5159; struct w49 t5160; struct w49 t5161; char *t5162; char *t5163; struct w49 t5164; struct w49 t5165; char *t5166; char *t5167; struct w49 t5168; struct w49 t5169; char *t5170; char *t5171; struct w49 t5172; struct w49 t5173; char *t5174; char *t5175; struct w49 t5176; struct w49 t5177; char *t5178; char *t5179; struct w49 t5180; struct w49 t5181; char *t5182; char *t5183; struct w49 t5184; struct w49 t5185; char *t5186; char *t5187; struct w49 t5188; struct w49 t5189; char *t5190; char *t5191; struct w49 t5192; struct w49 t5193; char *t5194; char *t5195; struct w49 t5196; struct w49 t5197; char *t5198; char *t5199; struct w49 t5200; struct w49 t5201; char *t5202; char *t5203; struct w49 t5204; struct w49 t5205; char *t5206; char *t5207; struct w49 t5208; struct w49 t5209; char *t5210; char *t5211; struct w49 t5212; struct w49 t5213; char *t5214; char *t5215; struct w49 t5216; struct w49 t5217; char *t5218; char *t5219; struct w49 t5220; struct w49 t5221; char *t5222; char *t5223; struct w49 t5224; struct w49 t5225; char *t5226; char *t5227; struct w49 t5228; struct w49 t5229; char *t5230; char *t5231; struct w49 t5232; struct w49 t5233; char *t5234; char *t5235; struct w49 t5236; struct w49 t5237; char *t5238; char *t5239; struct w49 t5240; struct w49 t5241; char *t5242; char *t5243; struct w49 t5244; struct w49 t5245; char *t5246; char *t5247; struct w49 t5248; struct w49 t5249; char *t5250; char *t5251; struct w49 t5252; struct w49 t5253; char *t5254; char *t5255; struct w49 t5256; struct w49 t5257; char *t5258; char *t5259; struct w49 t5260; struct w49 t5261; char *t5262; char *t5263; struct w49 t5264; struct w49 t5265; char *t5266; char *t5267; struct w49 t5268; struct w49 t5269; char *t5270; char *t5271; struct w49 t5272; struct w49 t5273; char *t5274; char *t5275; struct w49 t5276; struct w49 t5277; char *t5278; char *t5279; struct w49 t5280; struct w49 t5281; char *t5282; char *t5283; struct w49 t5284; struct w49 t5285; char *t5286; char *t5287; struct w49 t5288; struct w49 t5289; char *t5290; char *t5291; struct w49 t5292; struct w49 t5293; char *t5294; char *t5295; struct w49 t5296; struct w49 t5297; char *t5298; char *t5299; struct w49 t5300; struct w49 t5301; char *t5302; char *t5303; struct w49 t5304; struct w49 t5305; char *t5306; char *t5307; struct w49 t5308; struct w49 t5309; char *t5310; char *t5311; struct w49 t5312; struct w49 t5313; char *t5314; char *t5315; struct w49 t5316; struct w49 t5317; char *t5318; char *t5319; struct w49 t5320; struct w49 t5321; char *t5322; char *t5323; struct w49 t5324; struct w49 t5325; char *t5326; char *t5327; struct w49 t5328; struct w49 t5329; char *t5330; char *t5331; struct w49 t5332; struct w49 t5333; char *t5334; char *t5335; struct w49 t5336; struct w49 t5337; char *t5338; char *t5339; struct w49 t5340; struct w49 t5341; char *t5342; char *t5343; struct w49 t5344; struct w49 t5345; char *t5346; char *t5347; struct w49 t5348; struct w49 t5349; char *t5350; char *t5351; struct w49 t5352; struct w49 t5353; char *t5354; char *t5355; struct w49 t5356; struct w49 t5357; char *t5358; char *t5359; struct w49 t5360; struct w49 t5361; char *t5362; char *t5363; struct w49 t5364; struct w49 t5365; char *t5366; char *t5367; struct w49 t5368; struct w49 t5369; char *t5370; char *t5371; struct w49 t5372; struct w49 t5373; char *t5374; char *t5375; struct w49 t5376; struct w49 t5377; char *t5378; char *t5379; struct w49 t5380; struct w49 t5381; char *t5382; char *t5383; struct w49 t5384; struct w49 t5385; char *t5386; char *t5387; struct w49 t5388; struct w49 t5389; char *t5390; char *t5391; struct w49 t5392; struct w49 t5393; char *t5394; char *t5395; struct w49 t5396; struct w49 t5397; char *t5398; char *t5399; struct w49 t5400; struct w49 t5401; char *t5402; char *t5403; struct w49 t5404; struct w49 t5405; char *t5406; char *t5407; struct w49 t5408; struct w49 t5409; char *t5410; char *t5411; struct w49 t5412; struct w49 t5413; char *t5414; char *t5415; struct w49 t5416; struct w49 t5417; char *t5418; char *t5419; struct w49 t5420; struct w49 t5421; char *t5422; char *t5423; struct w49 t5424; struct w49 t5425; char *t5426; char *t5427; struct w49 t5428; struct w49 t5429; char *t5430; char *t5431; struct w49 t5432; struct w49 t5433; char *t5434; char *t5435; struct w49 t5436; struct w49 t5437; char *t5438; char *t5439; struct w49 t5440; struct w49 t5441; char *t5442; char *t5443; struct w49 t5444; struct w49 t5445; char *t5446; char *t5447; struct w49 t5448; struct w49 t5449; char *t5450; char *t5451; struct w49 t5452; struct w49 t5453; char *t5454; char *t5455; struct w49 t5456; struct w49 t5457; char *t5458; char *t5459; struct w49 t5460; struct w49 t5461; char *t5462; char *t5463; struct w49 t5464; struct w49 t5465; char *t5466; char *t5467; struct w49 t5468; struct w49 t5469; char *t5470; char *t5471; struct w49 t5472; struct w49 t5473; char *t5474; char *t5475; struct w49 t5476; struct w49 t5477; char *t5478; char *t5479; struct w49 t5480; struct w49 t5481; char *t5482; char *t5483; struct w49 t5484; struct w49 t5485; char *t5486; char *t5487; struct w49 t5488; struct w49 t5489; char *t5490; char *t5491; struct w49 t5492; struct w49 t5493; char *t5494; char *t5495; struct w49 t5496; struct w49 t5497; char *t5498; char *t5499; struct w49 t5500; struct w49 t5501; char *t5502; char *t5503; struct w49 t5504; struct w49 t5505; char *t5506; char *t5507; struct w49 t5508; struct w49 t5509; char *t5510; char *t5511; struct w49 t5512; struct w49 t5513; char *t5514; char *t5515; struct w49 t5516; struct w49 t5517; char *t5518; char *t5519; struct w49 t5520; struct w49 t5521; char *t5522; char *t5523; struct w49 t5524; struct w49 t5525; char *t5526; char *t5527; struct w49 t5528; struct w49 t5529; char *t5530; char *t5531; struct w49 t5532; struct w49 t5533; char *t5534; char *t5535; struct w49 t5536; struct w49 t5537; char *t5538; char *t5539; struct w49 t5540; struct w49 t5541; char *t5542; char *t5543; struct w49 t5544; struct w49 t5545; char *t5546; char *t5547; struct w49 t5548; struct w49 t5549; char *t5550; char *t5551; struct w49 t5552; struct w49 t5553; char *t5554; char *t5555; struct w49 t5556; struct w49 t5557; char *t5558; char *t5559; struct w49 t5560; struct w49 t5561; char *t5562; char *t5563; struct w49 t5564; struct w49 t5565; char *t5566; char *t5567; struct w49 t5568; struct w49 t5569; char *t5570; char *t5571; struct w49 t5572; struct w49 t5573; char *t5574; char *t5575; struct w49 t5576; struct w49 t5577; char *t5578; char *t5579; struct w49 t5580; struct w49 t5581; char *t5582; char *t5583; struct w49 t5584; struct w49 t5585; char *t5586; char *t5587; struct w49 t5588; struct w49 t5589; char *t5590; char *t5591; struct w49 t5592; struct w49 t5593; char *t5594; char *t5595; struct w49 t5596; struct w49 t5597; char *t5598; char *t5599; struct w49 t5600; struct w49 t5601; char *t5602; char *t5603; struct w49 t5604; struct w49 t5605; char *t5606; char *t5607; struct w49 t5608; struct w49 t5609; char *t5610; char *t5611; struct w49 t5612; struct w49 t5613; char *t5614; char *t5615; struct w49 t5616; struct w49 t5617; char *t5618; char *t5619; struct w49 t5620; struct w49 t5621; char *t5622; char *t5623; struct w49 t5624; struct w49 t5625; char *t5626; char *t5627; struct w49 t5628; struct w49 t5629; char *t5630; char *t5631; struct w49 t5632; struct w49 t5633; char *t5634; char *t5635; struct w49 t5636; struct w49 t5637; char *t5638; char *t5639; struct w49 t5640; struct w49 t5641; char *t5642; char *t5643; struct w49 t5644; struct w49 t5645; char *t5646; char *t5647; struct w49 t5648; struct w49 t5649; char *t5650; char *t5651; struct w49 t5652; struct w49 t5653; char *t5654; char *t5655; struct w49 t5656; struct w49 t5657; char *t5658; char *t5659; struct w49 t5660; struct w49 t5661; char *t5662; char *t5663; struct w49 t5664; struct w49 t5665; char *t5666; char *t5667; struct w49 t5668; struct w49 t5669; char *t5670; char *t5671; struct w49 t5672; struct w49 t5673; char *t5674; char *t5675; struct w49 t5676; struct w49 t5677; char *t5678; char *t5679; struct w49 t5680; struct w49 t5681; char *t5682; char *t5683; struct w49 t5684; struct w49 t5685; char *t5686; char *t5687; struct w49 t5688; struct w49 t5689; char *t5690; char *t5691; struct w49 t5692; struct w49 t5693; char *t5694; char *t5695; struct w49 t5696; struct w49 t5697; char *t5698; char *t5699; struct w49 t5700; struct w49 t5701; char *t5702; char *t5703; struct w49 t5704; struct w49 t5705; char *t5706; char *t5707; struct w49 t5708; struct w49 t5709; char *t5710; char *t5711; struct w49 t5712; struct w49 t5713; char *t5714; char *t5715; struct w49 t5716; struct w49 t5717; char *t5718; char *t5719; struct w49 t5720; struct w49 t5721; char *t5722; char *t5723; struct w49 t5724; struct w49 t5725; char *t5726; char *t5727; struct w49 t5728; struct w49 t5729; char *t5730; char *t5731; struct w49 t5732; struct w49 t5733; char *t5734; char *t5735; struct w49 t5736; struct w49 t5737; char *t5738; char *t5739; struct w49 t5740; struct w49 t5741; char *t5742; char *t5743; struct w49 t5744; struct w49 t5745; char *t5746; char *t5747; struct w49 t5748; struct w49 t5749; char *t5750; char *t5751; struct w49 t5752; struct w49 t5753; char *t5754; char *t5755; struct w49 t5756; struct w49 t5757; char *t5758; char *t5759; struct w49 t5760; struct w49 t5761; char *t5762; char *t5763; struct w49 t5764; struct w49 t5765; char *t5766; char *t5767; struct w49 t5768; struct w49 t5769; char *t5770; char *t5771; struct w49 t5772; struct w49 t5773; char *t5774; char *t5775; struct w49 t5776; struct w49 t5777; char *t5778; char *t5779; struct w49 t5780; struct w49 t5781; char *t5782; char *t5783; struct w49 t5784; struct w49 t5785; char *t5786; char *t5787; struct w49 t5788; struct w49 t5789; char *t5790; char *t5791; struct w49 t5792; struct w49 t5793; char *t5794; char *t5795; struct w49 t5796; struct w49 t5797; char *t5798; char *t5799; struct w49 t5800; struct w49 t5801; char *t5802; char *t5803; struct w49 t5804; struct w49 t5805; char *t5806; char *t5807; struct w49 t5808; struct w49 t5809; char *t5810; char *t5811; struct w49 t5812; struct w49 t5813; char *t5814; char *t5815; struct w49 t5816; struct w49 t5817; char *t5818; char *t5819; struct w49 t5820; struct w49 t5821; char *t5822; char *t5823; struct w49 t5824; struct w49 t5825; char *t5826; char *t5827; struct w49 t5828; struct w49 t5829; char *t5830; char *t5831; struct w49 t5832; struct w49 t5833; char *t5834; char *t5835; struct w49 t5836; struct w49 t5837; char *t5838; char *t5839; struct w49 t5840; struct w49 t5841; char *t5842; char *t5843; struct w49 t5844; struct w49 t5845; char *t5846; char *t5847; struct w49 t5848; struct w49 t5849; char *t5850; char *t5851; struct w49 t5852; struct w49 t5853; char *t5854; char *t5855; struct w49 t5856; struct w49 t5857; char *t5858; char *t5859; struct w49 t5860; struct w49 t5861; char *t5862; char *t5863; struct w49 t5864; struct w49 t5865; char *t5866; char *t5867; struct w49 t5868; struct w49 t5869; char *t5870; char *t5871; struct w49 t5872; struct w49 t5873; char *t5874; char *t5875; struct w49 t5876; struct w49 t5877; char *t5878; char *t5879; struct w49 t5880; struct w49 t5881; char *t5882; char *t5883; struct w49 t5884; struct w49 t5885; char *t5886; char *t5887; struct w49 t5888; struct w49 t5889; char *t5890; char *t5891; struct w49 t5892; struct w49 t5893; char *t5894; char *t5895; struct w49 t5896; struct w49 t5897; char *t5898; char *t5899; struct w49 t5900; struct w49 t5901; char *t5902; char *t5903; struct w49 t5904; struct w49 t5905; char *t5906; char *t5907; struct w49 t5908; struct w49 t5909; char *t5910; char *t5911; struct w49 t5912; struct w49 t5913; char *t5914; char *t5915; struct w49 t5916; struct w49 t5917; char *t5918; char *t5919; struct w49 t5920; struct w49 t5921; char *t5922; char *t5923; struct w49 t5924; struct w49 t5925; char *t5926; char *t5927; struct w49 t5928; struct w49 t5929; char *t5930; char *t5931; struct w49 t5932; struct w49 t5933; char *t5934; char *t5935; struct w49 t5936; struct w49 t5937; char *t5938; char *t5939; struct w49 t5940; struct w49 t5941; char *t5942; char *t5943; struct w49 t5944; struct w49 t5945; char *t5946; char *t5947; struct w49 t5948; struct w49 t5949; char *t5950; char *t5951; struct w49 t5952; struct w49 t5953; char *t5954; char *t5955; struct w49 t5956; struct w49 t5957; char *t5958; char *t5959; struct w49 t5960; struct w49 t5961; char *t5962; char *t5963; struct w49 t5964; struct w49 t5965; char *t5966; char *t5967; struct w49 t5968; struct w49 t5969; char *t5970; char *t5971; struct w49 t5972; struct w49 t5973; char *t5974; char *t5975; struct w49 t5976; struct w49 t5977; char *t5978; char *t5979; struct w49 t5980; struct w49 t5981; char *t5982; char *t5983; struct w49 t5984; struct w49 t5985; char *t5986; char *t5987; struct w49 t5988; struct w49 t5989; char *t5990; char *t5991; struct w49 t5992; struct w49 t5993; char *t5994; char *t5995; struct w49 t5996; struct w49 t5997; char *t5998; char *t5999; struct w49 t6000; struct w49 t6001; char *t6002; char *t6003; struct w49 t6004; struct w49 t6005; char *t6006; char *t6007; struct w49 t6008; struct w49 t6009; char *t6010; char *t6011; struct w49 t6012; struct w49 t6013; char *t6014; char *t6015; struct w49 t6016; struct w49 t6017; char *t6018; char *t6019; struct w49 t6020; struct w49 t6021; char *t6022; char *t6023; struct w49 t6024; struct w49 t6025; char *t6026; char *t6027; struct w49 t6028; struct w49 t6029; char *t6030; char *t6031; struct w49 t6032; struct w49 t6033; char *t6034; char *t6035; struct w49 t6036; struct w49 t6037; char *t6038; char *t6039; struct w49 t6040; struct w49 t6041; char *t6042; char *t6043; struct w49 t6044; struct w49 t6045; char *t6046; char *t6047; struct w49 t6048; struct w49 t6049; char *t6050; char *t6051; struct w49 t6052; struct w49 t6053; char *t6054; char *t6055; struct w49 t6056; struct w49 t6057; char *t6058; char *t6059; struct w49 t6060; struct w49 t6061; char *t6062; char *t6063; struct w49 t6064; struct w49 t6065; char *t6066; char *t6067; struct w49 t6068; struct w49 t6069; char *t6070; char *t6071; struct w49 t6072; struct w49 t6073; char *t6074; char *t6075; struct w49 t6076; struct w49 t6077; char *t6078; char *t6079; struct w49 t6080; struct w49 t6081; char *t6082; char *t6083; struct w49 t6084; struct w49 t6085; char *t6086; char *t6087; struct w49 t6088; struct w49 t6089; char *t6090; char *t6091; struct w49 t6092; struct w49 t6093; char *t6094; char *t6095; struct w49 t6096; struct w49 t6097; char *t6098; char *t6099; struct w49 t6100; struct w49 t6101; char *t6102; char *t6103; struct w49 t6104; struct w49 t6105; char *t6106; char *t6107; struct w49 t6108; struct w49 t6109; char *t6110; char *t6111; struct w49 t6112; struct w49 t6113; char *t6114; char *t6115; struct w49 t6116; struct w49 t6117; char *t6118; char *t6119; struct w49 t6120; struct w49 t6121; char *t6122; char *t6123; struct w49 t6124; struct w49 t6125; char *t6126; char *t6127; struct w49 t6128; struct w49 t6129; char *t6130; char *t6131; struct w49 t6132; struct w49 t6133; char *t6134; char *t6135; struct w49 t6136; struct w49 t6137; char *t6138; char *t6139; struct w49 t6140; struct w49 t6141; char *t6142; char *t6143; struct w49 t6144; struct w49 t6145; char *t6146; char *t6147; struct w49 t6148; struct w49 t6149; char *t6150; char *t6151; struct w49 t6152; struct w49 t6153; char *t6154; char *t6155; struct w49 t6156; struct w49 t6157; char *t6158; char *t6159; struct w49 t6160; struct w49 t6161; char *t6162; char *t6163; struct w49 t6164; struct w49 t6165; char *t6166; char *t6167; struct w49 t6168; struct w49 t6169; char *t6170; char *t6171; struct w49 t6172; struct w49 t6173; char *t6174; char *t6175; struct w49 t6176; struct w49 t6177; char *t6178; char *t6179; struct w49 t6180; struct w49 t6181; char *t6182; char *t6183; struct w49 t6184; struct w49 t6185; char *t6186; char *t6187; struct w49 t6188; struct w49 t6189; char *t6190; char *t6191; struct w49 t6192; struct w49 t6193; char *t6194; char *t6195; struct w49 t6196; struct w49 t6197; char *t6198; char *t6199; struct w49 t6200; struct w49 t6201; char *t6202; char *t6203; struct w49 t6204; struct w49 t6205; char *t6206; char *t6207; struct w49 t6208; struct w49 t6209; char *t6210; char *t6211; struct w49 t6212; struct w49 t6213; char *t6214; char *t6215; struct w49 t6216; struct w49 t6217; char *t6218; char *t6219; struct w49 t6220; struct w49 t6221; char *t6222; char *t6223; struct w49 t6224; struct w49 t6225; char *t6226; char *t6227; struct w49 t6228; struct w49 t6229; char *t6230; char *t6231; struct w49 t6232; struct w49 t6233; char *t6234; char *t6235; struct w49 t6236; struct w49 t6237; char *t6238; char *t6239; struct w49 t6240; struct w49 t6241; char *t6242; char *t6243; struct w49 t6244; struct w49 t6245; char *t6246; char *t6247; struct w49 t6248; struct w49 t6249; char *t6250; char *t6251; struct w49 t6252; struct w49 t6253; char *t6254; char *t6255; struct w49 t6256; struct w49 t6257; char *t6258; char *t6259; struct w49 t6260; struct w49 t6261; char *t6262; char *t6263; struct w49 t6264; struct w49 t6265; char *t6266; char *t6267; struct w49 t6268; struct w49 t6269; char *t6270; char *t6271; struct w49 t6272; struct w49 t6273; char *t6274; char *t6275; struct w49 t6276; struct w49 t6277; char *t6278; char *t6279; struct w49 t6280; struct w49 t6281; char *t6282; char *t6283; struct w49 t6284; struct w49 t6285; char *t6286; char *t6287; struct w49 t6288; struct w49 t6289; char *t6290; char *t6291; struct w49 t6292; struct w49 t6293; char *t6294; char *t6295; struct w49 t6296; struct w49 t6297; char *t6298; char *t6299; struct w49 t6300; struct w49 t6301; char *t6302; char *t6303; struct w49 t6304; struct w49 t6305; char *t6306; char *t6307; struct w49 t6308; struct w49 t6309; char *t6310; char *t6311; struct w49 t6312; struct w49 t6313; char *t6314; char *t6315; struct w49 t6316; struct w49 t6317; char *t6318; char *t6319; struct w49 t6320; struct w49 t6321; char *t6322; char *t6323; struct w49 t6324; struct w49 t6325; char *t6326; char *t6327; struct w49 t6328; struct w49 t6329; char *t6330; char *t6331; struct w49 t6332; struct w49 t6333; char *t6334; char *t6335; struct w49 t6336; struct w49 t6337; char *t6338; char *t6339; struct w49 t6340; struct w49 t6341; char *t6342; char *t6343; struct w49 t6344; struct w49 t6345; char *t6346; char *t6347; struct w49 t6348; struct w49 t6349; char *t6350; char *t6351; struct w49 t6352; struct w49 t6353; char *t6354; char *t6355; struct w49 t6356; struct w49 t6357; char *t6358; char *t6359; struct w49 t6360; struct w49 t6361; char *t6362; char *t6363; struct w49 t6364; struct w49 t6365; char *t6366; char *t6367; struct w49 t6368; struct w49 t6369; char *t6370; char *t6371; struct w49 t6372; struct w49 t6373; char *t6374; char *t6375; struct w49 t6376; struct w49 t6377; char *t6378; char *t6379; struct w49 t6380; struct w49 t6381; char *t6382; char *t6383; struct w49 t6384; struct w49 t6385; char *t6386; char *t6387; struct w49 t6388; struct w49 t6389; char *t6390; char *t6391; struct w49 t6392; struct w49 t6393; char *t6394; char *t6395; struct w49 t6396; struct w49 t6397; char *t6398; char *t6399; struct w49 t6400; struct w49 t6401; char *t6402; char *t6403; struct w49 t6404; struct w49 t6405; char *t6406; char *t6407; struct w49 t6408; struct w49 t6409; char *t6410; char *t6411; struct w49 t6412; struct w49 t6413; char *t6414; char *t6415; struct w49 t6416; struct w49 t6417; char *t6418; char *t6419; struct w49 t6420; struct w49 t6421; char *t6422; char *t6423; struct w49 t6424; struct w49 t6425; char *t6426; char *t6427; struct w49 t6428; struct w49 t6429; char *t6430; char *t6431; struct w49 t6432; struct w49 t6433; char *t6434; char *t6435; struct w49 t6436; struct w49 t6437; char *t6438; char *t6439; struct w49 t6440; struct w49 t6441; char *t6442; char *t6443; struct w49 t6444; struct w49 t6445; char *t6446; char *t6447; struct w49 t6448; struct w49 t6449; char *t6450; char *t6451; struct w49 t6452; struct w49 t6453; char *t6454; char *t6455; struct w49 t6456; struct w49 t6457; char *t6458; char *t6459; struct w49 t6460; struct w49 t6461; char *t6462; char *t6463; struct w49 t6464; struct w49 t6465; char *t6466; char *t6467; struct w49 t6468; struct w49 t6469; char *t6470; char *t6471; struct w49 t6472; struct w49 t6473; char *t6474; char *t6475; struct w49 t6476; struct w49 t6477; char *t6478; char *t6479; struct w49 t6480; struct w49 t6481; char *t6482; char *t6483; struct w49 t6484; struct w49 t6485; char *t6486; char *t6487; struct w49 t6488; struct w49 t6489; char *t6490; char *t6491; struct w49 t6492; struct w49 t6493; char *t6494; char *t6495; struct w49 t6496; struct w49 t6497; char *t6498; char *t6499; struct w49 t6500; struct w49 t6501; char *t6502; char *t6503; struct w49 t6504; struct w49 t6505; char *t6506; char *t6507; struct w49 t6508; struct w49 t6509; char *t6510; char *t6511; struct w49 t6512; struct w49 t6513; char *t6514; char *t6515; struct w49 t6516; struct w49 t6517; char *t6518; char *t6519; struct w49 t6520; struct w49 t6521; char *t6522; char *t6523; struct w49 t6524; struct w49 t6525; char *t6526; char *t6527; struct w49 t6528; struct w49 t6529; char *t6530; char *t6531; struct w49 t6532; struct w49 t6533; char *t6534; char *t6535; struct w49 t6536; struct w49 t6537; char *t6538; char *t6539; struct w49 t6540; struct w49 t6541; char *t6542; char *t6543; struct w49 t6544; struct w49 t6545; char *t6546; char *t6547; struct w49 t6548; struct w49 t6549; char *t6550; char *t6551; struct w49 t6552; struct w49 t6553; char *t6554; char *t6555; struct w49 t6556; struct w49 t6557; char *t6558; char *t6559; struct w49 t6560; struct w49 t6561; char *t6562; char *t6563; struct w49 t6564; struct w49 t6565; char *t6566; char *t6567; struct w49 t6568; struct w49 t6569; char *t6570; char *t6571; struct w49 t6572; struct w49 t6573; char *t6574; char *t6575; struct w49 t6576; struct w49 t6577; char *t6578; char *t6579; struct w49 t6580; struct w49 t6581; char *t6582; char *t6583; struct w49 t6584; struct w49 t6585; char *t6586; char *t6587; struct w49 t6588; struct w49 t6589; char *t6590; char *t6591; struct w49 t6592; struct w49 t6593; char *t6594; char *t6595; struct w49 t6596; struct w49 t6597; char *t6598; char *t6599; struct w49 t6600; struct w49 t6601; char *t6602; char *t6603; struct w49 t6604; struct w49 t6605; char *t6606; char *t6607; struct w49 t6608; struct w49 t6609; char *t6610; char *t6611; struct w49 t6612; struct w49 t6613; char *t6614; char *t6615; struct w49 t6616; struct w49 t6617; char *t6618; char *t6619; struct w49 t6620; struct w49 t6621; char *t6622; char *t6623; struct w49 t6624; struct w49 t6625; char *t6626; char *t6627; struct w49 t6628; struct w49 t6629; char *t6630; char *t6631; struct w49 t6632; struct w49 t6633; char *t6634; char *t6635; struct w49 t6636; struct w49 t6637; char *t6638; char *t6639; struct w49 t6640; struct w49 t6641; char *t6642; char *t6643; struct w49 t6644; struct w49 t6645; char *t6646; char *t6647; struct w49 t6648; struct w49 t6649; char *t6650; char *t6651; struct w49 t6652; struct w49 t6653; char *t6654; char *t6655; struct w49 t6656; struct w49 t6657; char *t6658; char *t6659; struct w49 t6660; struct w49 t6661; char *t6662; char *t6663; struct w49 t6664; struct w49 t6665; char *t6666; char *t6667; struct w49 t6668; struct w49 t6669; char *t6670; char *t6671; struct w49 t6672; struct w49 t6673; char *t6674; char *t6675; struct w49 t6676; struct w49 t6677; char *t6678; char *t6679; struct w49 t6680; struct w49 t6681; char *t6682; char *t6683; struct w49 t6684; struct w49 t6685; char *t6686; char *t6687; struct w49 t6688; struct w49 t6689; char *t6690; char *t6691; struct w49 t6692; struct w49 t6693; char *t6694; char *t6695; struct w49 t6696; struct w49 t6697; char *t6698; char *t6699; struct w49 t6700; struct w49 t6701; char *t6702; char *t6703; struct w49 t6704; struct w49 t6705; char *t6706; char *t6707; struct w49 t6708; struct w49 t6709; char *t6710; char *t6711; struct w49 t6712; struct w49 t6713; char *t6714; char *t6715; struct w49 t6716; struct w49 t6717; char *t6718; char *t6719; struct w49 t6720; struct w49 t6721; char *t6722; char *t6723; struct w49 t6724; struct w49 t6725; char *t6726; char *t6727; struct w49 t6728; struct w49 t6729; char *t6730; char *t6731; struct w49 t6732; struct w49 t6733; char *t6734; char *t6735; struct w49 t6736; struct w49 t6737; char *t6738; char *t6739; struct w49 t6740; struct w49 t6741; char *t6742; char *t6743; struct w49 t6744; struct w49 t6745; char *t6746; char *t6747; struct w49 t6748; struct w49 t6749; char *t6750; char *t6751; struct w49 t6752; struct w49 t6753; char *t6754; char *t6755; struct w49 t6756; struct w49 t6757; char *t6758; char *t6759; struct w49 t6760; struct w49 t6761; char *t6762; char *t6763; struct w49 t6764; struct w49 t6765; char *t6766; char *t6767; struct w49 t6768; struct w49 t6769; char *t6770; char *t6771; struct w49 t6772; struct w49 t6773; char *t6774; char *t6775; struct w49 t6776; struct w49 t6777; char *t6778; char *t6779; struct w49 t6780; struct w49 t6781; char *t6782; char *t6783; struct w49 t6784; struct w49 t6785; char *t6786; char *t6787; struct w49 t6788; struct w49 t6789; char *t6790; char *t6791; struct w49 t6792; struct w49 t6793; char *t6794; char *t6795; struct w49 t6796; struct w49 t6797; char *t6798; char *t6799; struct w49 t6800; struct w49 t6801; char *t6802; char *t6803; struct w49 t6804; struct w49 t6805; char *t6806; char *t6807; struct w49 t6808; struct w49 t6809; char *t6810; char *t6811; struct w49 t6812; struct w49 t6813; char *t6814; char *t6815; struct w49 t6816; struct w49 t6817; char *t6818; char *t6819; struct w49 t6820; struct w49 t6821; char *t6822; char *t6823; struct w49 t6824; struct w49 t6825; char *t6826; char *t6827; struct w49 t6828; struct w49 t6829; char *t6830; char *t6831; struct w49 t6832; struct w49 t6833; char *t6834; char *t6835; struct w49 t6836; struct w49 t6837; char *t6838; char *t6839; struct w49 t6840; struct w49 t6841; char *t6842; char *t6843; struct w49 t6844; struct w49 t6845; char *t6846; char *t6847; struct w49 t6848; struct w49 t6849; char *t6850; char *t6851; struct w49 t6852; struct w49 t6853; char *t6854; char *t6855; struct w49 t6856; struct w49 t6857; char *t6858; char *t6859; struct w49 t6860; struct w49 t6861; char *t6862; char *t6863; struct w49 t6864; struct w49 t6865; char *t6866; char *t6867; struct w49 t6868; struct w49 t6869; char *t6870; char *t6871; struct w49 t6872; struct w49 t6873; char *t6874; char *t6875; struct w49 t6876; struct w49 t6877; char *t6878; char *t6879; struct w49 t6880; struct w49 t6881; char *t6882; char *t6883; struct w49 t6884; struct w49 t6885; char *t6886; char *t6887; struct w49 t6888; struct w49 t6889; char *t6890; char *t6891; struct w49 t6892; struct w49 t6893; char *t6894; char *t6895; struct w49 t6896; struct w49 t6897; char *t6898; char *t6899; struct w49 t6900; struct w49 t6901; char *t6902; char *t6903; struct w49 t6904; struct w49 t6905; char *t6906; char *t6907; struct w49 t6908; struct w49 t6909; char *t6910; char *t6911; struct w49 t6912; struct w49 t6913; char *t6914; char *t6915; struct w49 t6916; struct w49 t6917; char *t6918; char *t6919; struct w49 t6920; struct w49 t6921; char *t6922; char *t6923; struct w49 t6924; struct w49 t6925; char *t6926; char *t6927; struct w49 t6928; struct w49 t6929; char *t6930; char *t6931; struct w49 t6932; struct w49 t6933; char *t6934; char *t6935; struct w49 t6936; struct w49 t6937; char *t6938; char *t6939; struct w49 t6940; struct w49 t6941; char *t6942; char *t6943; struct w49 t6944; struct w49 t6945; char *t6946; char *t6947; struct w49 t6948; struct w49 t6949; char *t6950; char *t6951; struct w49 t6952; struct w49 t6953; char *t6954; char *t6955; struct w49 t6956; struct w49 t6957; char *t6958; char *t6959; struct w49 t6960; struct w49 t6961; char *t6962; char *t6963; struct w49 t6964; struct w49 t6965; char *t6966; char *t6967; struct w49 t6968; struct w49 t6969; char *t6970; char *t6971; struct w49 t6972; struct w49 t6973; char *t6974; char *t6975; struct w49 t6976; struct w49 t6977; char *t6978; char *t6979; struct w49 t6980; struct w49 t6981; char *t6982; char *t6983; struct w49 t6984; struct w49 t6985; char *t6986; char *t6987; struct w49 t6988; struct w49 t6989; char *t6990; char *t6991; struct w49 t6992; struct w49 t6993; char *t6994; char *t6995; struct w49 t6996; struct w49 t6997; char *t6998; char *t6999; struct w49 t7000; struct w49 t7001; char *t7002; char *t7003; struct w49 t7004; struct w49 t7005; char *t7006; char *t7007; struct w49 t7008; struct w49 t7009; char *t7010; char *t7011; struct w49 t7012; struct w49 t7013; char *t7014; char *t7015; struct w49 t7016; struct w49 t7017; char *t7018; char *t7019; struct w49 t7020; struct w49 t7021; char *t7022; char *t7023; struct w49 t7024; struct w49 t7025; char *t7026; char *t7027; struct w49 t7028; struct w49 t7029; char *t7030; char *t7031; struct w49 t7032; struct w49 t7033; char *t7034; char *t7035; struct w49 t7036; struct w49 t7037; char *t7038; char *t7039; struct w49 t7040; struct w49 t7041; char *t7042; char *t7043; struct w49 t7044; struct w49 t7045; char *t7046; char *t7047; struct w49 t7048; struct w49 t7049; char *t7050; char *t7051; struct w49 t7052; struct w49 t7053; char *t7054; char *t7055; struct w49 t7056; struct w49 t7057; char *t7058; char *t7059; struct w49 t7060; struct w49 t7061; char *t7062; char *t7063; struct w49 t7064; struct w49 t7065; char *t7066; char *t7067; struct w49 t7068; struct w49 t7069; char *t7070; char *t7071; struct w49 t7072; struct w49 t7073; char *t7074; char *t7075; struct w49 t7076; struct w49 t7077; char *t7078; char *t7079; struct w49 t7080; struct w49 t7081; char *t7082; char *t7083; struct w49 t7084; struct w49 t7085; char *t7086; char *t7087; struct w49 t7088; struct w49 t7089; char *t7090; char *t7091; struct w49 t7092; struct w49 t7093; char *t7094; char *t7095; struct w49 t7096; struct w49 t7097; char *t7098; char *t7099; struct w49 t7100; struct w49 t7101; char *t7102; char *t7103; struct w49 t7104; struct w49 t7105; char *t7106; char *t7107; struct w49 t7108; struct w49 t7109; char *t7110; char *t7111; struct w49 t7112; struct w49 t7113; char *t7114; char *t7115; struct w49 t7116; struct w49 t7117; char *t7118; char *t7119; struct w49 t7120; struct w49 t7121; char *t7122; char *t7123; struct w49 t7124; struct w49 t7125; char *t7126; char *t7127; struct w49 t7128; struct w49 t7129; char *t7130; char *t7131; struct w49 t7132; struct w49 t7133; char *t7134; char *t7135; struct w49 t7136; struct w49 t7137; char *t7138; char *t7139; struct w49 t7140; struct w49 t7141; char *t7142; char *t7143; struct w49 t7144; struct w49 t7145; char *t7146; char *t7147; struct w49 t7148; struct w49 t7149; char *t7150; char *t7151; struct w49 t7152; struct w49 t7153; char *t7154; char *t7155; struct w49 t7156; struct w49 t7157; char *t7158; char *t7159; struct w49 t7160; struct w49 t7161; char *t7162; char *t7163; struct w49 t7164; struct w49 t7165; char *t7166; char *t7167; struct w49 t7168; struct w49 t7169; char *t7170; char *t7171; struct w49 t7172; struct w49 t7173; char *t7174; char *t7175; struct w49 t7176; struct w49 t7177; char *t7178; char *t7179; struct w49 t7180; struct w49 t7181; char *t7182; char *t7183; struct w49 t7184; struct w49 t7185; char *t7186; char *t7187; struct w49 t7188; struct w49 t7189; char *t7190; char *t7191; struct w49 t7192; struct w49 t7193; char *t7194; char *t7195; struct w49 t7196; struct w49 t7197; char *t7198; char *t7199; struct w49 t7200; struct w49 t7201; char *t7202; char *t7203; struct w49 t7204; struct w49 t7205; char *t7206; char *t7207; struct w49 t7208; struct w49 t7209; char *t7210; char *t7211; struct w49 t7212; struct w49 t7213; char *t7214; char *t7215; struct w49 t7216; struct w49 t7217; char *t7218; char *t7219; struct w49 t7220; struct w49 t7221; char *t7222; char *t7223; struct w49 t7224; struct w49 t7225; char *t7226; char *t7227; struct w49 t7228; struct w49 t7229; char *t7230; char *t7231; struct w49 t7232; struct w49 t7233; char *t7234; char *t7235; struct w49 t7236; struct w49 t7237; char *t7238; char *t7239; struct w49 t7240; struct w49 t7241; char *t7242; char *t7243; struct w49 t7244; struct w49 t7245; char *t7246; char *t7247; struct w49 t7248; struct w49 t7249; char *t7250; char *t7251; struct w49 t7252; struct w49 t7253; char *t7254; char *t7255; struct w49 t7256; struct w49 t7257; char *t7258; char *t7259; struct w49 t7260; struct w49 t7261; char *t7262; char *t7263; struct w49 t7264; struct w49 t7265; char *t7266; char *t7267; struct w49 t7268; struct w49 t7269; char *t7270; char *t7271; struct w49 t7272; struct w49 t7273; char *t7274; char *t7275; struct w49 t7276; struct w49 t7277; char *t7278; char *t7279; struct w49 t7280; struct w49 t7281; char *t7282; char *t7283; struct w49 t7284; struct w49 t7285; char *t7286; char *t7287; struct w49 t7288; struct w49 t7289; char *t7290; char *t7291; struct w49 t7292; struct w49 t7293; char *t7294; char *t7295; struct w49 t7296; struct w49 t7297; char *t7298; char *t7299; struct w49 t7300; struct w49 t7301; char *t7302; char *t7303; struct w49 t7304; struct w49 t7305; char *t7306; char *t7307; struct w49 t7308; struct w49 t7309; char *t7310; char *t7311; struct w49 t7312; struct w49 t7313; char *t7314; char *t7315; struct w49 t7316; struct w49 t7317; char *t7318; char *t7319; struct w49 t7320; struct w49 t7321; char *t7322; char *t7323; struct w49 t7324; struct w49 t7325; char *t7326; char *t7327; struct w49 t7328; struct w49 t7329; char *t7330; char *t7331; struct w49 t7332; struct w49 t7333; char *t7334; char *t7335; struct w49 t7336; struct w49 t7337; char *t7338; char *t7339; struct w49 t7340; struct w49 t7341; char *t7342; char *t7343; struct w49 t7344; struct w49 t7345; char *t7346; char *t7347; struct w49 t7348; struct w49 t7349; char *t7350; char *t7351; struct w49 t7352; struct w49 t7353; char *t7354; char *t7355; struct w49 t7356; struct w49 t7357; char *t7358; char *t7359; struct w49 t7360; struct w49 t7361; char *t7362; char *t7363; struct w49 t7364; struct w49 t7365; char *t7366; char *t7367; struct w49 t7368; struct w49 t7369; char *t7370; char *t7371; struct w49 t7372; struct w49 t7373; char *t7374; char *t7375; struct w49 t7376; struct w49 t7377; char *t7378; char *t7379; struct w49 t7380; struct w49 t7381; char *t7382; char *t7383; struct w49 t7384; struct w49 t7385; char *t7386; char *t7387; struct w49 t7388; struct w49 t7389; char *t7390; char *t7391; struct w49 t7392; struct w49 t7393; char *t7394; char *t7395; struct w49 t7396; struct w49 t7397; char *t7398; char *t7399; struct w49 t7400; struct w49 t7401; char *t7402; char *t7403; struct w49 t7404; struct w49 t7405; char *t7406; char *t7407; struct w49 t7408; struct w49 t7409; char *t7410; char *t7411; struct w49 t7412; struct w49 t7413; char *t7414; char *t7415; struct w49 t7416; struct w49 t7417; char *t7418; char *t7419; struct w49 t7420; struct w49 t7421; char *t7422; char *t7423; struct w49 t7424; struct w49 t7425; char *t7426; char *t7427; struct w49 t7428; struct w49 t7429; char *t7430; char *t7431; struct w49 t7432; struct w49 t7433; char *t7434; char *t7435; struct w49 t7436; struct w49 t7437; char *t7438; char *t7439; struct w49 t7440; struct w49 t7441; char *t7442; char *t7443; struct w49 t7444; struct w49 t7445; char *t7446; char *t7447; struct w49 t7448; struct w49 t7449; char *t7450; char *t7451; struct w49 t7452; struct w49 t7453; char *t7454; char *t7455; struct w49 t7456; struct w49 t7457; char *t7458; char *t7459; struct w49 t7460; struct w49 t7461; char *t7462; char *t7463; struct w49 t7464; struct w49 t7465; char *t7466; char *t7467; struct w49 t7468; struct w49 t7469; char *t7470; char *t7471; struct w49 t7472; struct w49 t7473; char *t7474; char *t7475; struct w49 t7476; struct w49 t7477; char *t7478; char *t7479; struct w49 t7480; struct w49 t7481; char *t7482; char *t7483; struct w49 t7484; struct w49 t7485; char *t7486; char *t7487; struct w49 t7488; struct w49 t7489; char *t7490; char *t7491; struct w49 t7492; struct w49 t7493; char *t7494; char *t7495; struct w49 t7496; struct w49 t7497; char *t7498; char *t7499; struct w49 t7500; struct w49 t7501; char *t7502; char *t7503; struct w49 t7504; struct w49 t7505; char *t7506; char *t7507; struct w49 t7508; struct w49 t7509; char *t7510; char *t7511; struct w49 t7512; struct w49 t7513; char *t7514; char *t7515; struct w49 t7516; struct w49 t7517; char *t7518; char *t7519; struct w49 t7520; struct w49 t7521; char *t7522; char *t7523; struct w49 t7524; struct w49 t7525; char *t7526; char *t7527; struct w49 t7528; struct w49 t7529; char *t7530; char *t7531; struct w49 t7532; struct w49 t7533; char *t7534; char *t7535; struct w49 t7536; struct w49 t7537; char *t7538; char *t7539; struct w49 t7540; struct w49 t7541; char *t7542; char *t7543; struct w49 t7544; struct w49 t7545; char *t7546; char *t7547; struct w49 t7548; struct w49 t7549; char *t7550; char *t7551; struct w49 t7552; struct w49 t7553; char *t7554; char *t7555; struct w49 t7556; struct w49 t7557; char *t7558; char *t7559; struct w49 t7560; struct w49 t7561; char *t7562; char *t7563; struct w49 t7564; struct w49 t7565; char *t7566; char *t7567; struct w49 t7568; struct w49 t7569; char *t7570; char *t7571; struct w49 t7572; struct w49 t7573; char *t7574; char *t7575; struct w49 t7576; struct w49 t7577; char *t7578; char *t7579; struct w49 t7580; struct w49 t7581; char *t7582; char *t7583; struct w49 t7584; struct w49 t7585; char *t7586; char *t7587; struct w49 t7588; struct w49 t7589; char *t7590; char *t7591; struct w49 t7592; struct w49 t7593; char *t7594; char *t7595; struct w49 t7596; struct w49 t7597; char *t7598; char *t7599; struct w49 t7600; struct w49 t7601; char *t7602; char *t7603; struct w49 t7604; struct w49 t7605; char *t7606; char *t7607; struct w49 t7608; struct w49 t7609; char *t7610; char *t7611; struct w49 t7612; struct w49 t7613; char *t7614; char *t7615; struct w49 t7616; struct w49 t7617; char *t7618; char *t7619; struct w49 t7620; struct w49 t7621; char *t7622; char *t7623; struct w49 t7624; struct w49 t7625; char *t7626; char *t7627; struct w49 t7628; struct w49 t7629; char *t7630; char *t7631; struct w49 t7632; struct w49 t7633; char *t7634; char *t7635; struct w49 t7636; struct w49 t7637; char *t7638; char *t7639; struct w49 t7640; struct w49 t7641; char *t7642; char *t7643; struct w49 t7644; struct w49 t7645; char *t7646; char *t7647; struct w49 t7648; struct w49 t7649; char *t7650; char *t7651; struct w49 t7652; struct w49 t7653; char *t7654; char *t7655; struct w49 t7656; struct w49 t7657; char *t7658; char *t7659; struct w49 t7660; struct w49 t7661; char *t7662; char *t7663; struct w49 t7664; struct w49 t7665; char *t7666; char *t7667; struct w49 t7668; struct w49 t7669; char *t7670; char *t7671; struct w49 t7672; struct w49 t7673; char *t7674; char *t7675; struct w49 t7676; struct w49 t7677; char *t7678; char *t7679; struct w49 t7680; struct w49 t7681; char *t7682; char *t7683; struct w49 t7684; struct w49 t7685; char *t7686; char *t7687; struct w49 t7688; struct w49 t7689; char *t7690; char *t7691; struct w49 t7692; struct w49 t7693; char *t7694; char *t7695; struct w49 t7696; struct w49 t7697; char *t7698; char *t7699; struct w49 t7700; struct w49 t7701; struct w16638 t7702; struct w49 t7703; struct structure_type24753 *t7704; char *t7705; struct structure_type24753 *t7706; char *t7707; struct w49 t7708; struct w32142 t7709; struct structure_type24753 *t7710; struct w49 t7711; char *t7712; struct w49 t7713; struct w49 t7714; struct w49 t7715; struct w16638 t7716; struct w49 t7717; struct w16638 t7718; /* x251458 */ /* x245042 */ /* x245041 */ t4523 = "STATIC-COUNTS"; /* x245040 */ t4522 = a33577; /* x245039 */ t4524.tag = STRING_TYPE; t4524.value.string_type = t4522; t4525.tag = STRING_TYPE; t4525.value.string_type = t4523; if (f27434(t4524, t4525)==FALSE_TYPE) goto l1033; /* x245045 */ /* x245044 */ /* x245043 */ return q794; l1033: /* x251457 */ /* x245049 */ /* x245048 */ t4527 = "DISPLACED-VECTOR-TYPE"; /* x245047 */ t4526 = a33577; /* x245046 */ t4528.tag = STRING_TYPE; t4528.value.string_type = t4526; t4529.tag = STRING_TYPE; t4529.value.string_type = t4527; if (f27434(t4528, t4529)==FALSE_TYPE) goto l1035; /* x245052 */ /* x245051 */ /* x245050 */ return q793; l1035: /* x251456 */ /* x245056 */ /* x245055 */ t4531 = "NONHEADED-VECTOR-TYPE"; /* x245054 */ t4530 = a33577; /* x245053 */ t4532.tag = STRING_TYPE; t4532.value.string_type = t4530; t4533.tag = STRING_TYPE; t4533.value.string_type = t4531; if (f27434(t4532, t4533)==FALSE_TYPE) goto l1037; /* x245059 */ /* x245058 */ /* x245057 */ return q792; l1037: /* x251455 */ /* x245063 */ /* x245062 */ t4535 = "HEADED-VECTOR-TYPE"; /* x245061 */ t4534 = a33577; /* x245060 */ t4536.tag = STRING_TYPE; t4536.value.string_type = t4534; t4537.tag = STRING_TYPE; t4537.value.string_type = t4535; if (f27434(t4536, t4537)==FALSE_TYPE) goto l1039; /* x245066 */ /* x245065 */ /* x245064 */ return q791; l1039: /* x251454 */ /* x245070 */ /* x245069 */ t4539 = "STRUCTURE-TYPE"; /* x245068 */ t4538 = a33577; /* x245067 */ t4540.tag = STRING_TYPE; t4540.value.string_type = t4538; t4541.tag = STRING_TYPE; t4541.value.string_type = t4539; if (f27434(t4540, t4541)==FALSE_TYPE) goto l1041; /* x245073 */ /* x245072 */ /* x245071 */ return q790; l1041: /* x251453 */ /* x245077 */ /* x245076 */ t4543 = "STRING-TYPE"; /* x245075 */ t4542 = a33577; /* x245074 */ t4544.tag = STRING_TYPE; t4544.value.string_type = t4542; t4545.tag = STRING_TYPE; t4545.value.string_type = t4543; if (f27434(t4544, t4545)==FALSE_TYPE) goto l1043; /* x245080 */ /* x245079 */ /* x245078 */ return q789; l1043: /* x251452 */ /* x245084 */ /* x245083 */ t4547 = "CONTINUATION-TYPE"; /* x245082 */ t4546 = a33577; /* x245081 */ t4548.tag = STRING_TYPE; t4548.value.string_type = t4546; t4549.tag = STRING_TYPE; t4549.value.string_type = t4547; if (f27434(t4548, t4549)==FALSE_TYPE) goto l1045; /* x245087 */ /* x245086 */ /* x245085 */ return q788; l1045: /* x251451 */ /* x245091 */ /* x245090 */ t4551 = "FOREIGN-PROCEDURE-TYPE"; /* x245089 */ t4550 = a33577; /* x245088 */ t4552.tag = STRING_TYPE; t4552.value.string_type = t4550; t4553.tag = STRING_TYPE; t4553.value.string_type = t4551; if (f27434(t4552, t4553)==FALSE_TYPE) goto l1047; /* x245094 */ /* x245093 */ /* x245092 */ return q787; l1047: /* x251450 */ /* x245098 */ /* x245097 */ t4555 = "NATIVE-PROCEDURE-TYPE"; /* x245096 */ t4554 = a33577; /* x245095 */ t4556.tag = STRING_TYPE; t4556.value.string_type = t4554; t4557.tag = STRING_TYPE; t4557.value.string_type = t4555; if (f27434(t4556, t4557)==FALSE_TYPE) goto l1049; /* x245101 */ /* x245100 */ /* x245099 */ return q786; l1049: /* x251449 */ /* x245105 */ /* x245104 */ t4559 = "PRIMITIVE-PROCEDURE-TYPE"; /* x245103 */ t4558 = a33577; /* x245102 */ t4560.tag = STRING_TYPE; t4560.value.string_type = t4558; t4561.tag = STRING_TYPE; t4561.value.string_type = t4559; if (f27434(t4560, t4561)==FALSE_TYPE) goto l1051; /* x245108 */ /* x245107 */ /* x245106 */ return q785; l1051: /* x251448 */ /* x245112 */ /* x245111 */ t4563 = "EXTERNAL-SYMBOL-TYPE"; /* x245110 */ t4562 = a33577; /* x245109 */ t4564.tag = STRING_TYPE; t4564.value.string_type = t4562; t4565.tag = STRING_TYPE; t4565.value.string_type = t4563; if (f27434(t4564, t4565)==FALSE_TYPE) goto l1053; /* x245115 */ /* x245114 */ /* x245113 */ return q784; l1053: /* x251447 */ /* x245119 */ /* x245118 */ t4567 = "INTERNAL-SYMBOL-TYPE"; /* x245117 */ t4566 = a33577; /* x245116 */ t4568.tag = STRING_TYPE; t4568.value.string_type = t4566; t4569.tag = STRING_TYPE; t4569.value.string_type = t4567; if (f27434(t4568, t4569)==FALSE_TYPE) goto l1055; /* x245122 */ /* x245121 */ /* x245120 */ return q783; l1055: /* x251446 */ /* x245126 */ /* x245125 */ t4571 = "POINTER-TYPE"; /* x245124 */ t4570 = a33577; /* x245123 */ t4572.tag = STRING_TYPE; t4572.value.string_type = t4570; t4573.tag = STRING_TYPE; t4573.value.string_type = t4571; if (f27434(t4572, t4573)==FALSE_TYPE) goto l1057; /* x245129 */ /* x245128 */ /* x245127 */ return q782; l1057: /* x251445 */ /* x245133 */ /* x245132 */ t4575 = "EOF-OBJECT-TYPE"; /* x245131 */ t4574 = a33577; /* x245130 */ t4576.tag = STRING_TYPE; t4576.value.string_type = t4574; t4577.tag = STRING_TYPE; t4577.value.string_type = t4575; if (f27434(t4576, t4577)==FALSE_TYPE) goto l1059; /* x245136 */ /* x245135 */ /* x245134 */ return q781; l1059: /* x251444 */ /* x245140 */ /* x245139 */ t4579 = "OUTPUT-PORT-TYPE"; /* x245138 */ t4578 = a33577; /* x245137 */ t4580.tag = STRING_TYPE; t4580.value.string_type = t4578; t4581.tag = STRING_TYPE; t4581.value.string_type = t4579; if (f27434(t4580, t4581)==FALSE_TYPE) goto l1061; /* x245143 */ /* x245142 */ /* x245141 */ return q780; l1061: /* x251443 */ /* x245147 */ /* x245146 */ t4583 = "INPUT-PORT-TYPE"; /* x245145 */ t4582 = a33577; /* x245144 */ t4584.tag = STRING_TYPE; t4584.value.string_type = t4582; t4585.tag = STRING_TYPE; t4585.value.string_type = t4583; if (f27434(t4584, t4585)==FALSE_TYPE) goto l1063; /* x245150 */ /* x245149 */ /* x245148 */ return q779; l1063: /* x251442 */ /* x245154 */ /* x245153 */ t4587 = "RECTANGULAR-TYPE"; /* x245152 */ t4586 = a33577; /* x245151 */ t4588.tag = STRING_TYPE; t4588.value.string_type = t4586; t4589.tag = STRING_TYPE; t4589.value.string_type = t4587; if (f27434(t4588, t4589)==FALSE_TYPE) goto l1065; /* x245157 */ /* x245156 */ /* x245155 */ return q778; l1065: /* x251441 */ /* x245161 */ /* x245160 */ t4591 = "FLONUM-TYPE"; /* x245159 */ t4590 = a33577; /* x245158 */ t4592.tag = STRING_TYPE; t4592.value.string_type = t4590; t4593.tag = STRING_TYPE; t4593.value.string_type = t4591; if (f27434(t4592, t4593)==FALSE_TYPE) goto l1067; /* x245164 */ /* x245163 */ /* x245162 */ return q777; l1067: /* x251440 */ /* x245168 */ /* x245167 */ t4595 = "FIXNUM-TYPE"; /* x245166 */ t4594 = a33577; /* x245165 */ t4596.tag = STRING_TYPE; t4596.value.string_type = t4594; t4597.tag = STRING_TYPE; t4597.value.string_type = t4595; if (f27434(t4596, t4597)==FALSE_TYPE) goto l1069; /* x245171 */ /* x245170 */ /* x245169 */ return q776; l1069: /* x251439 */ /* x245175 */ /* x245174 */ t4599 = "CHAR-TYPE"; /* x245173 */ t4598 = a33577; /* x245172 */ t4600.tag = STRING_TYPE; t4600.value.string_type = t4598; t4601.tag = STRING_TYPE; t4601.value.string_type = t4599; if (f27434(t4600, t4601)==FALSE_TYPE) goto l1071; /* x245178 */ /* x245177 */ /* x245176 */ return q775; l1071: /* x251438 */ /* x245182 */ /* x245181 */ t4603 = "FALSE-TYPE"; /* x245180 */ t4602 = a33577; /* x245179 */ t4604.tag = STRING_TYPE; t4604.value.string_type = t4602; t4605.tag = STRING_TYPE; t4605.value.string_type = t4603; if (f27434(t4604, t4605)==FALSE_TYPE) goto l1073; /* x245185 */ /* x245184 */ /* x245183 */ return q774; l1073: /* x251437 */ /* x245189 */ /* x245188 */ t4607 = "TRUE-TYPE"; /* x245187 */ t4606 = a33577; /* x245186 */ t4608.tag = STRING_TYPE; t4608.value.string_type = t4606; t4609.tag = STRING_TYPE; t4609.value.string_type = t4607; if (f27434(t4608, t4609)==FALSE_TYPE) goto l1075; /* x245192 */ /* x245191 */ /* x245190 */ return q773; l1075: /* x251436 */ /* x245196 */ /* x245195 */ t4611 = "NULL-TYPE"; /* x245194 */ t4610 = a33577; /* x245193 */ t4612.tag = STRING_TYPE; t4612.value.string_type = t4610; t4613.tag = STRING_TYPE; t4613.value.string_type = t4611; if (f27434(t4612, t4613)==FALSE_TYPE) goto l1077; /* x245199 */ /* x245198 */ /* x245197 */ return q772; l1077: /* x251435 */ /* x245203 */ /* x245202 */ t4615 = "NIL"; /* x245201 */ t4614 = a33577; /* x245200 */ t4616.tag = STRING_TYPE; t4616.value.string_type = t4614; t4617.tag = STRING_TYPE; t4617.value.string_type = t4615; if (f27434(t4616, t4617)==FALSE_TYPE) goto l1079; /* x245206 */ /* x245205 */ /* x245204 */ return q771; l1079: /* x251434 */ /* x245210 */ /* x245209 */ t4619 = "INCLUDE"; /* x245208 */ t4618 = a33577; /* x245207 */ t4620.tag = STRING_TYPE; t4620.value.string_type = t4618; t4621.tag = STRING_TYPE; t4621.value.string_type = t4619; if (f27434(t4620, t4621)==FALSE_TYPE) goto l1081; /* x245213 */ /* x245212 */ /* x245211 */ return q13; l1081: /* x251433 */ /* x245217 */ /* x245216 */ t4623 = "T3"; /* x245215 */ t4622 = a33577; /* x245214 */ t4624.tag = STRING_TYPE; t4624.value.string_type = t4622; t4625.tag = STRING_TYPE; t4625.value.string_type = t4623; if (f27434(t4624, t4625)==FALSE_TYPE) goto l1083; /* x245220 */ /* x245219 */ /* x245218 */ return q770; l1083: /* x251432 */ /* x245224 */ /* x245223 */ t4627 = "T2"; /* x245222 */ t4626 = a33577; /* x245221 */ t4628.tag = STRING_TYPE; t4628.value.string_type = t4626; t4629.tag = STRING_TYPE; t4629.value.string_type = t4627; if (f27434(t4628, t4629)==FALSE_TYPE) goto l1085; /* x245227 */ /* x245226 */ /* x245225 */ return q769; l1085: /* x251431 */ /* x245231 */ /* x245230 */ t4631 = "T1"; /* x245229 */ t4630 = a33577; /* x245228 */ t4632.tag = STRING_TYPE; t4632.value.string_type = t4630; t4633.tag = STRING_TYPE; t4633.value.string_type = t4631; if (f27434(t4632, t4633)==FALSE_TYPE) goto l1087; /* x245234 */ /* x245233 */ /* x245232 */ return q768; l1087: /* x251430 */ /* x245238 */ /* x245237 */ t4635 = "T0"; /* x245236 */ t4634 = a33577; /* x245235 */ t4636.tag = STRING_TYPE; t4636.value.string_type = t4634; t4637.tag = STRING_TYPE; t4637.value.string_type = t4635; if (f27434(t4636, t4637)==FALSE_TYPE) goto l1089; /* x245241 */ /* x245240 */ /* x245239 */ return q767; l1089: /* x251429 */ /* x245245 */ /* x245244 */ t4639 = "COMPILE-TYPE-PREDICATE"; /* x245243 */ t4638 = a33577; /* x245242 */ t4640.tag = STRING_TYPE; t4640.value.string_type = t4638; t4641.tag = STRING_TYPE; t4641.value.string_type = t4639; if (f27434(t4640, t4641)==FALSE_TYPE) goto l1091; /* x245248 */ /* x245247 */ /* x245246 */ return q766; l1091: /* x251428 */ /* x245252 */ /* x245251 */ t4643 = "T"; /* x245250 */ t4642 = a33577; /* x245249 */ t4644.tag = STRING_TYPE; t4644.value.string_type = t4642; t4645.tag = STRING_TYPE; t4645.value.string_type = t4643; if (f27434(t4644, t4645)==FALSE_TYPE) goto l1093; /* x245255 */ /* x245254 */ /* x245253 */ return q765; l1093: /* x251427 */ /* x245259 */ /* x245258 */ t4647 = "TS"; /* x245257 */ t4646 = a33577; /* x245256 */ t4648.tag = STRING_TYPE; t4648.value.string_type = t4646; t4649.tag = STRING_TYPE; t4649.value.string_type = t4647; if (f27434(t4648, t4649)==FALSE_TYPE) goto l1095; /* x245262 */ /* x245261 */ /* x245260 */ return q764; l1095: /* x251426 */ /* x245266 */ /* x245265 */ t4651 = "W3"; /* x245264 */ t4650 = a33577; /* x245263 */ t4652.tag = STRING_TYPE; t4652.value.string_type = t4650; t4653.tag = STRING_TYPE; t4653.value.string_type = t4651; if (f27434(t4652, t4653)==FALSE_TYPE) goto l1097; /* x245269 */ /* x245268 */ /* x245267 */ return q763; l1097: /* x251425 */ /* x245273 */ /* x245272 */ t4655 = "W2"; /* x245271 */ t4654 = a33577; /* x245270 */ t4656.tag = STRING_TYPE; t4656.value.string_type = t4654; t4657.tag = STRING_TYPE; t4657.value.string_type = t4655; if (f27434(t4656, t4657)==FALSE_TYPE) goto l1099; /* x245276 */ /* x245275 */ /* x245274 */ return q762; l1099: /* x251424 */ /* x245280 */ /* x245279 */ t4659 = "W1"; /* x245278 */ t4658 = a33577; /* x245277 */ t4660.tag = STRING_TYPE; t4660.value.string_type = t4658; t4661.tag = STRING_TYPE; t4661.value.string_type = t4659; if (f27434(t4660, t4661)==FALSE_TYPE) goto l1101; /* x245283 */ /* x245282 */ /* x245281 */ return q761; l1101: /* x251423 */ /* x245287 */ /* x245286 */ t4663 = "W"; /* x245285 */ t4662 = a33577; /* x245284 */ t4664.tag = STRING_TYPE; t4664.value.string_type = t4662; t4665.tag = STRING_TYPE; t4665.value.string_type = t4663; if (f27434(t4664, t4665)==FALSE_TYPE) goto l1103; /* x245290 */ /* x245289 */ /* x245288 */ return q760; l1103: /* x251422 */ /* x245294 */ /* x245293 */ t4667 = "WS"; /* x245292 */ t4666 = a33577; /* x245291 */ t4668.tag = STRING_TYPE; t4668.value.string_type = t4666; t4669.tag = STRING_TYPE; t4669.value.string_type = t4667; if (f27434(t4668, t4669)==FALSE_TYPE) goto l1105; /* x245297 */ /* x245296 */ /* x245295 */ return q759; l1105: /* x251421 */ /* x245301 */ /* x245300 */ t4671 = "PROPAGATE-TYPE-PREDICATE!"; /* x245299 */ t4670 = a33577; /* x245298 */ t4672.tag = STRING_TYPE; t4672.value.string_type = t4670; t4673.tag = STRING_TYPE; t4673.value.string_type = t4671; if (f27434(t4672, t4673)==FALSE_TYPE) goto l1107; /* x245304 */ /* x245303 */ /* x245302 */ return q758; l1107: /* x251420 */ /* x245308 */ /* x245307 */ t4675 = "PROPAGATE-RESULT!"; /* x245306 */ t4674 = a33577; /* x245305 */ t4676.tag = STRING_TYPE; t4676.value.string_type = t4674; t4677.tag = STRING_TYPE; t4677.value.string_type = t4675; if (f27434(t4676, t4677)==FALSE_TYPE) goto l1109; /* x245311 */ /* x245310 */ /* x245309 */ return q757; l1109: /* x251419 */ /* x245315 */ /* x245314 */ t4679 = "W0"; /* x245313 */ t4678 = a33577; /* x245312 */ t4680.tag = STRING_TYPE; t4680.value.string_type = t4678; t4681.tag = STRING_TYPE; t4681.value.string_type = t4679; if (f27434(t4680, t4681)==FALSE_TYPE) goto l1111; /* x245318 */ /* x245317 */ /* x245316 */ return q756; l1111: /* x251418 */ /* x245322 */ /* x245321 */ t4683 = "U0"; /* x245320 */ t4682 = a33577; /* x245319 */ t4684.tag = STRING_TYPE; t4684.value.string_type = t4682; t4685.tag = STRING_TYPE; t4685.value.string_type = t4683; if (f27434(t4684, t4685)==FALSE_TYPE) goto l1113; /* x245325 */ /* x245324 */ /* x245323 */ return q755; l1113: /* x251417 */ /* x245329 */ /* x245328 */ t4687 = "MAKE-PRIMITIVE-PROCEDURE"; /* x245327 */ t4686 = a33577; /* x245326 */ t4688.tag = STRING_TYPE; t4688.value.string_type = t4686; t4689.tag = STRING_TYPE; t4689.value.string_type = t4687; if (f27434(t4688, t4689)==FALSE_TYPE) goto l1115; /* x245332 */ /* x245331 */ /* x245330 */ return q754; l1115: /* x251416 */ /* x245336 */ /* x245335 */ t4691 = "*PRIMITIVE-PROCEDURE-HANDLERS*"; /* x245334 */ t4690 = a33577; /* x245333 */ t4692.tag = STRING_TYPE; t4692.value.string_type = t4690; t4693.tag = STRING_TYPE; t4693.value.string_type = t4691; if (f27434(t4692, t4693)==FALSE_TYPE) goto l1117; /* x245339 */ /* x245338 */ /* x245337 */ return q753; l1117: /* x251415 */ /* x245343 */ /* x245342 */ t4695 = "DEFINE-PRIMITIVE-PROCEDURE"; /* x245341 */ t4694 = a33577; /* x245340 */ t4696.tag = STRING_TYPE; t4696.value.string_type = t4694; t4697.tag = STRING_TYPE; t4697.value.string_type = t4695; if (f27434(t4696, t4697)==FALSE_TYPE) goto l1119; /* x245346 */ /* x245345 */ /* x245344 */ return q752; l1119: /* x251414 */ /* x245350 */ /* x245349 */ t4699 = "MUTEX-BEGIN"; /* x245348 */ t4698 = a33577; /* x245347 */ t4700.tag = STRING_TYPE; t4700.value.string_type = t4698; t4701.tag = STRING_TYPE; t4701.value.string_type = t4699; if (f27434(t4700, t4701)==FALSE_TYPE) goto l1121; /* x245353 */ /* x245352 */ /* x245351 */ return q751; l1121: /* x251413 */ /* x245357 */ /* x245356 */ t4703 = "PARALLEL-DO"; /* x245355 */ t4702 = a33577; /* x245354 */ t4704.tag = STRING_TYPE; t4704.value.string_type = t4702; t4705.tag = STRING_TYPE; t4705.value.string_type = t4703; if (f27434(t4704, t4705)==FALSE_TYPE) goto l1123; /* x245360 */ /* x245359 */ /* x245358 */ return q750; l1123: /* x251412 */ /* x245364 */ /* x245363 */ t4707 = "PARALLEL-CALL"; /* x245362 */ t4706 = a33577; /* x245361 */ t4708.tag = STRING_TYPE; t4708.value.string_type = t4706; t4709.tag = STRING_TYPE; t4709.value.string_type = t4707; if (f27434(t4708, t4709)==FALSE_TYPE) goto l1125; /* x245367 */ /* x245366 */ /* x245365 */ return q749; l1125: /* x251411 */ /* x245371 */ /* x245370 */ t4711 = "PARALLEL-BEGIN"; /* x245369 */ t4710 = a33577; /* x245368 */ t4712.tag = STRING_TYPE; t4712.value.string_type = t4710; t4713.tag = STRING_TYPE; t4713.value.string_type = t4711; if (f27434(t4712, t4713)==FALSE_TYPE) goto l1127; /* x245374 */ /* x245373 */ /* x245372 */ return q748; l1127: /* x251410 */ /* x245378 */ /* x245377 */ t4715 = "EXACTLY-ONE"; /* x245376 */ t4714 = a33577; /* x245375 */ t4716.tag = STRING_TYPE; t4716.value.string_type = t4714; t4717.tag = STRING_TYPE; t4717.value.string_type = t4715; if (f27434(t4716, t4717)==FALSE_TYPE) goto l1129; /* x245381 */ /* x245380 */ /* x245379 */ return q747; l1129: /* x251409 */ /* x245385 */ /* x245384 */ t4719 = "AT-MOST-ONE"; /* x245383 */ t4718 = a33577; /* x245382 */ t4720.tag = STRING_TYPE; t4720.value.string_type = t4718; t4721.tag = STRING_TYPE; t4721.value.string_type = t4719; if (f27434(t4720, t4721)==FALSE_TYPE) goto l1131; /* x245388 */ /* x245387 */ /* x245386 */ return q746; l1131: /* x251408 */ /* x245392 */ /* x245391 */ t4723 = "AT-LEAST-ONE"; /* x245390 */ t4722 = a33577; /* x245389 */ t4724.tag = STRING_TYPE; t4724.value.string_type = t4722; t4725.tag = STRING_TYPE; t4725.value.string_type = t4723; if (f27434(t4724, t4725)==FALSE_TYPE) goto l1133; /* x245395 */ /* x245394 */ /* x245393 */ return q745; l1133: /* x251407 */ /* x245399 */ /* x245398 */ t4727 = "ANY-NUMBER"; /* x245397 */ t4726 = a33577; /* x245396 */ t4728.tag = STRING_TYPE; t4728.value.string_type = t4726; t4729.tag = STRING_TYPE; t4729.value.string_type = t4727; if (f27434(t4728, t4729)==FALSE_TYPE) goto l1135; /* x245402 */ /* x245401 */ /* x245400 */ return q744; l1135: /* x251406 */ /* x245406 */ /* x245405 */ t4731 = "REQUIRED"; /* x245404 */ t4730 = a33577; /* x245403 */ t4732.tag = STRING_TYPE; t4732.value.string_type = t4730; t4733.tag = STRING_TYPE; t4733.value.string_type = t4731; if (f27434(t4732, t4733)==FALSE_TYPE) goto l1137; /* x245409 */ /* x245408 */ /* x245407 */ return q743; l1137: /* x251405 */ /* x245413 */ /* x245412 */ t4735 = "REST"; /* x245411 */ t4734 = a33577; /* x245410 */ t4736.tag = STRING_TYPE; t4736.value.string_type = t4734; t4737.tag = STRING_TYPE; t4737.value.string_type = t4735; if (f27434(t4736, t4737)==FALSE_TYPE) goto l1139; /* x245416 */ /* x245415 */ /* x245414 */ return q742; l1139: /* x251404 */ /* x245420 */ /* x245419 */ t4739 = "OPTIONAL"; /* x245418 */ t4738 = a33577; /* x245417 */ t4740.tag = STRING_TYPE; t4740.value.string_type = t4738; t4741.tag = STRING_TYPE; t4741.value.string_type = t4739; if (f27434(t4740, t4741)==FALSE_TYPE) goto l1141; /* x245423 */ /* x245422 */ /* x245421 */ return q741; l1141: /* x251403 */ /* x245427 */ /* x245426 */ t4743 = "PROGRAM"; /* x245425 */ t4742 = a33577; /* x245424 */ t4744.tag = STRING_TYPE; t4744.value.string_type = t4742; t4745.tag = STRING_TYPE; t4745.value.string_type = t4743; if (f27434(t4744, t4745)==FALSE_TYPE) goto l1143; /* x245430 */ /* x245429 */ /* x245428 */ return q740; l1143: /* x251402 */ /* x245434 */ /* x245433 */ t4747 = "REAL"; /* x245432 */ t4746 = a33577; /* x245431 */ t4748.tag = STRING_TYPE; t4748.value.string_type = t4746; t4749.tag = STRING_TYPE; t4749.value.string_type = t4747; if (f27434(t4748, t4749)==FALSE_TYPE) goto l1145; /* x245437 */ /* x245436 */ /* x245435 */ return q739; l1145: /* x251401 */ /* x245441 */ /* x245440 */ t4751 = "REAL-ARGUMENT"; /* x245439 */ t4750 = a33577; /* x245438 */ t4752.tag = STRING_TYPE; t4752.value.string_type = t4750; t4753.tag = STRING_TYPE; t4753.value.string_type = t4751; if (f27434(t4752, t4753)==FALSE_TYPE) goto l1147; /* x245444 */ /* x245443 */ /* x245442 */ return q738; l1147: /* x251400 */ /* x245448 */ /* x245447 */ t4755 = "INTEGER"; /* x245446 */ t4754 = a33577; /* x245445 */ t4756.tag = STRING_TYPE; t4756.value.string_type = t4754; t4757.tag = STRING_TYPE; t4757.value.string_type = t4755; if (f27434(t4756, t4757)==FALSE_TYPE) goto l1149; /* x245451 */ /* x245450 */ /* x245449 */ return q737; l1149: /* x251399 */ /* x245455 */ /* x245454 */ t4759 = "INTEGER-ARGUMENT"; /* x245453 */ t4758 = a33577; /* x245452 */ t4760.tag = STRING_TYPE; t4760.value.string_type = t4758; t4761.tag = STRING_TYPE; t4761.value.string_type = t4759; if (f27434(t4760, t4761)==FALSE_TYPE) goto l1151; /* x245458 */ /* x245457 */ /* x245456 */ return q736; l1151: /* x251398 */ /* x245462 */ /* x245461 */ t4763 = "USAGE"; /* x245460 */ t4762 = a33577; /* x245459 */ t4764.tag = STRING_TYPE; t4764.value.string_type = t4762; t4765.tag = STRING_TYPE; t4765.value.string_type = t4763; if (f27434(t4764, t4765)==FALSE_TYPE) goto l1153; /* x245465 */ /* x245464 */ /* x245463 */ return q735; l1153: /* x251397 */ /* x245469 */ /* x245468 */ t4767 = "STRING-ARGUMENT"; /* x245467 */ t4766 = a33577; /* x245466 */ t4768.tag = STRING_TYPE; t4768.value.string_type = t4766; t4769.tag = STRING_TYPE; t4769.value.string_type = t4767; if (f27434(t4768, t4769)==FALSE_TYPE) goto l1155; /* x245472 */ /* x245471 */ /* x245470 */ return q734; l1155: /* x251396 */ /* x245476 */ /* x245475 */ t4771 = "DEFINE-COMMAND"; /* x245474 */ t4770 = a33577; /* x245473 */ t4772.tag = STRING_TYPE; t4772.value.string_type = t4770; t4773.tag = STRING_TYPE; t4773.value.string_type = t4771; if (f27434(t4772, t4773)==FALSE_TYPE) goto l1157; /* x245479 */ /* x245478 */ /* x245477 */ return q733; l1157: /* x251395 */ /* x245483 */ /* x245482 */ t4775 = "REDRAW-MESSAGE-PANE"; /* x245481 */ t4774 = a33577; /* x245480 */ t4776.tag = STRING_TYPE; t4776.value.string_type = t4774; t4777.tag = STRING_TYPE; t4777.value.string_type = t4775; if (f27434(t4776, t4777)==FALSE_TYPE) goto l1159; /* x245486 */ /* x245485 */ /* x245484 */ return q732; l1159: /* x251394 */ /* x245490 */ /* x245489 */ t4779 = "REDRAW-STATUS-PANE"; /* x245488 */ t4778 = a33577; /* x245487 */ t4780.tag = STRING_TYPE; t4780.value.string_type = t4778; t4781.tag = STRING_TYPE; t4781.value.string_type = t4779; if (f27434(t4780, t4781)==FALSE_TYPE) goto l1161; /* x245493 */ /* x245492 */ /* x245491 */ return q731; l1161: /* x251393 */ /* x245497 */ /* x245496 */ t4783 = "HEIGHT"; /* x245495 */ t4782 = a33577; /* x245494 */ t4784.tag = STRING_TYPE; t4784.value.string_type = t4782; t4785.tag = STRING_TYPE; t4785.value.string_type = t4783; if (f27434(t4784, t4785)==FALSE_TYPE) goto l1163; /* x245500 */ /* x245499 */ /* x245498 */ return q730; l1163: /* x251392 */ /* x245504 */ /* x245503 */ t4787 = "ECHO-PANE-BACKWARD-KILL-WORD-COMMAND"; /* x245502 */ t4786 = a33577; /* x245501 */ t4788.tag = STRING_TYPE; t4788.value.string_type = t4786; t4789.tag = STRING_TYPE; t4789.value.string_type = t4787; if (f27434(t4788, t4789)==FALSE_TYPE) goto l1165; /* x245507 */ /* x245506 */ /* x245505 */ return q729; l1165: /* x251391 */ /* x245511 */ /* x245510 */ t4791 = "ECHO-PANE-FORWARD-WORD-COMMAND"; /* x245509 */ t4790 = a33577; /* x245508 */ t4792.tag = STRING_TYPE; t4792.value.string_type = t4790; t4793.tag = STRING_TYPE; t4793.value.string_type = t4791; if (f27434(t4792, t4793)==FALSE_TYPE) goto l1167; /* x245514 */ /* x245513 */ /* x245512 */ return q728; l1167: /* x251390 */ /* x245518 */ /* x245517 */ t4795 = "ECHO-PANE-KILL-WORD-COMMAND"; /* x245516 */ t4794 = a33577; /* x245515 */ t4796.tag = STRING_TYPE; t4796.value.string_type = t4794; t4797.tag = STRING_TYPE; t4797.value.string_type = t4795; if (f27434(t4796, t4797)==FALSE_TYPE) goto l1169; /* x245521 */ /* x245520 */ /* x245519 */ return q727; l1169: /* x251389 */ /* x245525 */ /* x245524 */ t4799 = "ECHO-PANE-BACKWARD-WORD-COMMAND"; /* x245523 */ t4798 = a33577; /* x245522 */ t4800.tag = STRING_TYPE; t4800.value.string_type = t4798; t4801.tag = STRING_TYPE; t4801.value.string_type = t4799; if (f27434(t4800, t4801)==FALSE_TYPE) goto l1171; /* x245528 */ /* x245527 */ /* x245526 */ return q726; l1171: /* x251388 */ /* x245532 */ /* x245531 */ t4803 = "ECHO-PANE-BACKWARD-DELETE-CHAR-COMMAND"; /* x245530 */ t4802 = a33577; /* x245529 */ t4804.tag = STRING_TYPE; t4804.value.string_type = t4802; t4805.tag = STRING_TYPE; t4805.value.string_type = t4803; if (f27434(t4804, t4805)==FALSE_TYPE) goto l1173; /* x245535 */ /* x245534 */ /* x245533 */ return q725; l1173: /* x251387 */ /* x245539 */ /* x245538 */ t4807 = "DELETE"; /* x245537 */ t4806 = a33577; /* x245536 */ t4808.tag = STRING_TYPE; t4808.value.string_type = t4806; t4809.tag = STRING_TYPE; t4809.value.string_type = t4807; if (f27434(t4808, t4809)==FALSE_TYPE) goto l1175; /* x245542 */ /* x245541 */ /* x245540 */ return q724; l1175: /* x251386 */ /* x245546 */ /* x245545 */ t4811 = "ECHO-PANE-KILL-LINE-COMMAND"; /* x245544 */ t4810 = a33577; /* x245543 */ t4812.tag = STRING_TYPE; t4812.value.string_type = t4810; t4813.tag = STRING_TYPE; t4813.value.string_type = t4811; if (f27434(t4812, t4813)==FALSE_TYPE) goto l1177; /* x245549 */ /* x245548 */ /* x245547 */ return q723; l1177: /* x251385 */ /* x245553 */ /* x245552 */ t4815 = "ECHO-PANE-FORWARD-CHAR-COMMAND"; /* x245551 */ t4814 = a33577; /* x245550 */ t4816.tag = STRING_TYPE; t4816.value.string_type = t4814; t4817.tag = STRING_TYPE; t4817.value.string_type = t4815; if (f27434(t4816, t4817)==FALSE_TYPE) goto l1179; /* x245556 */ /* x245555 */ /* x245554 */ return q722; l1179: /* x251384 */ /* x245560 */ /* x245559 */ t4819 = "ECHO-PANE-END-OF-LINE-COMMAND"; /* x245558 */ t4818 = a33577; /* x245557 */ t4820.tag = STRING_TYPE; t4820.value.string_type = t4818; t4821.tag = STRING_TYPE; t4821.value.string_type = t4819; if (f27434(t4820, t4821)==FALSE_TYPE) goto l1181; /* x245563 */ /* x245562 */ /* x245561 */ return q721; l1181: /* x251383 */ /* x245567 */ /* x245566 */ t4823 = "ECHO-PANE-DELETE-CHAR-COMMAND"; /* x245565 */ t4822 = a33577; /* x245564 */ t4824.tag = STRING_TYPE; t4824.value.string_type = t4822; t4825.tag = STRING_TYPE; t4825.value.string_type = t4823; if (f27434(t4824, t4825)==FALSE_TYPE) goto l1183; /* x245570 */ /* x245569 */ /* x245568 */ return q720; l1183: /* x251382 */ /* x245574 */ /* x245573 */ t4827 = "ECHO-PANE-BACKWARD-CHAR-COMMAND"; /* x245572 */ t4826 = a33577; /* x245571 */ t4828.tag = STRING_TYPE; t4828.value.string_type = t4826; t4829.tag = STRING_TYPE; t4829.value.string_type = t4827; if (f27434(t4828, t4829)==FALSE_TYPE) goto l1185; /* x245577 */ /* x245576 */ /* x245575 */ return q719; l1185: /* x251381 */ /* x245581 */ /* x245580 */ t4831 = "ECHO-PANE-BEGINNING-OF-LINE-COMMAND"; /* x245579 */ t4830 = a33577; /* x245578 */ t4832.tag = STRING_TYPE; t4832.value.string_type = t4830; t4833.tag = STRING_TYPE; t4833.value.string_type = t4831; if (f27434(t4832, t4833)==FALSE_TYPE) goto l1187; /* x245584 */ /* x245583 */ /* x245582 */ return q718; l1187: /* x251380 */ /* x245588 */ /* x245587 */ t4835 = "ECHO-PANE-INSERT-CHARACTER-COMMAND"; /* x245586 */ t4834 = a33577; /* x245585 */ t4836.tag = STRING_TYPE; t4836.value.string_type = t4834; t4837.tag = STRING_TYPE; t4837.value.string_type = t4835; if (f27434(t4836, t4837)==FALSE_TYPE) goto l1189; /* x245591 */ /* x245590 */ /* x245589 */ return q717; l1189: /* x251379 */ /* x245595 */ /* x245594 */ t4839 = "CHARACTER"; /* x245593 */ t4838 = a33577; /* x245592 */ t4840.tag = STRING_TYPE; t4840.value.string_type = t4838; t4841.tag = STRING_TYPE; t4841.value.string_type = t4839; if (f27434(t4840, t4841)==FALSE_TYPE) goto l1191; /* x245598 */ /* x245597 */ /* x245596 */ return q716; l1191: /* x251378 */ /* x245602 */ /* x245601 */ t4843 = "HELP"; /* x245600 */ t4842 = a33577; /* x245599 */ t4844.tag = STRING_TYPE; t4844.value.string_type = t4842; t4845.tag = STRING_TYPE; t4845.value.string_type = t4843; if (f27434(t4844, t4845)==FALSE_TYPE) goto l1193; /* x245605 */ /* x245604 */ /* x245603 */ return q715; l1193: /* x251377 */ /* x245609 */ /* x245608 */ t4847 = "*INPUT-POSITION*"; /* x245607 */ t4846 = a33577; /* x245606 */ t4848.tag = STRING_TYPE; t4848.value.string_type = t4846; t4849.tag = STRING_TYPE; t4849.value.string_type = t4847; if (f27434(t4848, t4849)==FALSE_TYPE) goto l1195; /* x245612 */ /* x245611 */ /* x245610 */ return q714; l1195: /* x251376 */ /* x245616 */ /* x245615 */ t4851 = "*INPUT*"; /* x245614 */ t4850 = a33577; /* x245613 */ t4852.tag = STRING_TYPE; t4852.value.string_type = t4850; t4853.tag = STRING_TYPE; t4853.value.string_type = t4851; if (f27434(t4852, t4853)==FALSE_TYPE) goto l1197; /* x245619 */ /* x245618 */ /* x245617 */ return q713; l1197: /* x251375 */ /* x245623 */ /* x245622 */ t4855 = "*TRANSCRIPT*"; /* x245621 */ t4854 = a33577; /* x245620 */ t4856.tag = STRING_TYPE; t4856.value.string_type = t4854; t4857.tag = STRING_TYPE; t4857.value.string_type = t4855; if (f27434(t4856, t4857)==FALSE_TYPE) goto l1199; /* x245626 */ /* x245625 */ /* x245624 */ return q712; l1199: /* x251374 */ /* x245630 */ /* x245629 */ t4859 = "XTEXTWIDTH"; /* x245628 */ t4858 = a33577; /* x245627 */ t4860.tag = STRING_TYPE; t4860.value.string_type = t4858; t4861.tag = STRING_TYPE; t4861.value.string_type = t4859; if (f27434(t4860, t4861)==FALSE_TYPE) goto l1201; /* x245633 */ /* x245632 */ /* x245631 */ return q711; l1201: /* x251373 */ /* x245637 */ /* x245636 */ t4863 = "*STATUS-PANE-WIDTH*"; /* x245635 */ t4862 = a33577; /* x245634 */ t4864.tag = STRING_TYPE; t4864.value.string_type = t4862; t4865.tag = STRING_TYPE; t4865.value.string_type = t4863; if (f27434(t4864, t4865)==FALSE_TYPE) goto l1203; /* x245640 */ /* x245639 */ /* x245638 */ return q710; l1203: /* x251372 */ /* x245644 */ /* x245643 */ t4867 = "*ECHO-PANE-HEIGHT*"; /* x245642 */ t4866 = a33577; /* x245641 */ t4868.tag = STRING_TYPE; t4868.value.string_type = t4866; t4869.tag = STRING_TYPE; t4869.value.string_type = t4867; if (f27434(t4868, t4869)==FALSE_TYPE) goto l1205; /* x245647 */ /* x245646 */ /* x245645 */ return q709; l1205: /* x251371 */ /* x245651 */ /* x245650 */ t4871 = "*TRANSCRIPT-PANE-HEIGHT*"; /* x245649 */ t4870 = a33577; /* x245648 */ t4872.tag = STRING_TYPE; t4872.value.string_type = t4870; t4873.tag = STRING_TYPE; t4873.value.string_type = t4871; if (f27434(t4872, t4873)==FALSE_TYPE) goto l1207; /* x245654 */ /* x245653 */ /* x245652 */ return q708; l1207: /* x251370 */ /* x245658 */ /* x245657 */ t4875 = "LISTENER-PROCEDURE"; /* x245656 */ t4874 = a33577; /* x245655 */ t4876.tag = STRING_TYPE; t4876.value.string_type = t4874; t4877.tag = STRING_TYPE; t4877.value.string_type = t4875; if (f27434(t4876, t4877)==FALSE_TYPE) goto l1209; /* x245661 */ /* x245660 */ /* x245659 */ return q707; l1209: /* x251369 */ /* x245665 */ /* x245664 */ t4879 = "WIDTH"; /* x245663 */ t4878 = a33577; /* x245662 */ t4880.tag = STRING_TYPE; t4880.value.string_type = t4878; t4881.tag = STRING_TYPE; t4881.value.string_type = t4879; if (f27434(t4880, t4881)==FALSE_TYPE) goto l1211; /* x245668 */ /* x245667 */ /* x245666 */ return q706; l1211: /* x251368 */ /* x245672 */ /* x245671 */ t4883 = "BUTTON-WIDTH"; /* x245670 */ t4882 = a33577; /* x245669 */ t4884.tag = STRING_TYPE; t4884.value.string_type = t4882; t4885.tag = STRING_TYPE; t4885.value.string_type = t4883; if (f27434(t4884, t4885)==FALSE_TYPE) goto l1213; /* x245675 */ /* x245674 */ /* x245673 */ return q705; l1213: /* x251367 */ /* x245679 */ /* x245678 */ t4887 = "BUTTON-COLUMNS"; /* x245677 */ t4886 = a33577; /* x245676 */ t4888.tag = STRING_TYPE; t4888.value.string_type = t4886; t4889.tag = STRING_TYPE; t4889.value.string_type = t4887; if (f27434(t4888, t4889)==FALSE_TYPE) goto l1215; /* x245682 */ /* x245681 */ /* x245680 */ return q704; l1215: /* x251366 */ /* x245686 */ /* x245685 */ t4891 = "BUTTON-ROWS"; /* x245684 */ t4890 = a33577; /* x245683 */ t4892.tag = STRING_TYPE; t4892.value.string_type = t4890; t4893.tag = STRING_TYPE; t4893.value.string_type = t4891; if (f27434(t4892, t4893)==FALSE_TYPE) goto l1217; /* x245689 */ /* x245688 */ /* x245687 */ return q703; l1217: /* x251365 */ /* x245693 */ /* x245692 */ t4895 = "TRANSCRIPT-LINES"; /* x245691 */ t4894 = a33577; /* x245690 */ t4896.tag = STRING_TYPE; t4896.value.string_type = t4894; t4897.tag = STRING_TYPE; t4897.value.string_type = t4895; if (f27434(t4896, t4897)==FALSE_TYPE) goto l1219; /* x245696 */ /* x245695 */ /* x245694 */ return q702; l1219: /* x251364 */ /* x245700 */ /* x245699 */ t4899 = "DEFINE-APPLICATION"; /* x245698 */ t4898 = a33577; /* x245697 */ t4900.tag = STRING_TYPE; t4900.value.string_type = t4898; t4901.tag = STRING_TYPE; t4901.value.string_type = t4899; if (f27434(t4900, t4901)==FALSE_TYPE) goto l1221; /* x245703 */ /* x245702 */ /* x245701 */ return q701; l1221: /* x251363 */ /* x245707 */ /* x245706 */ t4903 = "PROCESS-EVENTS"; /* x245705 */ t4902 = a33577; /* x245704 */ t4904.tag = STRING_TYPE; t4904.value.string_type = t4902; t4905.tag = STRING_TYPE; t4905.value.string_type = t4903; if (f27434(t4904, t4905)==FALSE_TYPE) goto l1223; /* x245710 */ /* x245709 */ /* x245708 */ return q700; l1223: /* x251362 */ /* x245714 */ /* x245713 */ t4907 = "XMAPRAISED"; /* x245712 */ t4906 = a33577; /* x245711 */ t4908.tag = STRING_TYPE; t4908.value.string_type = t4906; t4909.tag = STRING_TYPE; t4909.value.string_type = t4907; if (f27434(t4908, t4909)==FALSE_TYPE) goto l1225; /* x245717 */ /* x245716 */ /* x245715 */ return q699; l1225: /* x251361 */ /* x245721 */ /* x245720 */ t4911 = "XMAPSUBWINDOWS"; /* x245719 */ t4910 = a33577; /* x245718 */ t4912.tag = STRING_TYPE; t4912.value.string_type = t4910; t4913.tag = STRING_TYPE; t4913.value.string_type = t4911; if (f27434(t4912, t4913)==FALSE_TYPE) goto l1227; /* x245724 */ /* x245723 */ /* x245722 */ return q698; l1227: /* x251360 */ /* x245728 */ /* x245727 */ t4915 = "XCLOSEDISPLAY"; /* x245726 */ t4914 = a33577; /* x245725 */ t4916.tag = STRING_TYPE; t4916.value.string_type = t4914; t4917.tag = STRING_TYPE; t4917.value.string_type = t4915; if (f27434(t4916, t4917)==FALSE_TYPE) goto l1229; /* x245731 */ /* x245730 */ /* x245729 */ return q697; l1229: /* x251359 */ /* x245735 */ /* x245734 */ t4919 = "XDESTROYWINDOW"; /* x245733 */ t4918 = a33577; /* x245732 */ t4920.tag = STRING_TYPE; t4920.value.string_type = t4918; t4921.tag = STRING_TYPE; t4921.value.string_type = t4919; if (f27434(t4920, t4921)==FALSE_TYPE) goto l1231; /* x245738 */ /* x245737 */ /* x245736 */ return q696; l1231: /* x251358 */ /* x245742 */ /* x245741 */ t4923 = "XUNLOADFONT"; /* x245740 */ t4922 = a33577; /* x245739 */ t4924.tag = STRING_TYPE; t4924.value.string_type = t4922; t4925.tag = STRING_TYPE; t4925.value.string_type = t4923; if (f27434(t4924, t4925)==FALSE_TYPE) goto l1233; /* x245745 */ /* x245744 */ /* x245743 */ return q695; l1233: /* x251357 */ /* x245749 */ /* x245748 */ t4927 = "UNSIGNED-LIST->UNSIGNEDA"; /* x245747 */ t4926 = a33577; /* x245746 */ t4928.tag = STRING_TYPE; t4928.value.string_type = t4926; t4929.tag = STRING_TYPE; t4929.value.string_type = t4927; if (f27434(t4928, t4929)==FALSE_TYPE) goto l1235; /* x245752 */ /* x245751 */ /* x245750 */ return q694; l1235: /* x251356 */ /* x245756 */ /* x245755 */ t4931 = "XFREECOLORS"; /* x245754 */ t4930 = a33577; /* x245753 */ t4932.tag = STRING_TYPE; t4932.value.string_type = t4930; t4933.tag = STRING_TYPE; t4933.value.string_type = t4931; if (f27434(t4932, t4933)==FALSE_TYPE) goto l1237; /* x245759 */ /* x245758 */ /* x245757 */ return q693; l1237: /* x251355 */ /* x245763 */ /* x245762 */ t4935 = "XFREEGC"; /* x245761 */ t4934 = a33577; /* x245760 */ t4936.tag = STRING_TYPE; t4936.value.string_type = t4934; t4937.tag = STRING_TYPE; t4937.value.string_type = t4935; if (f27434(t4936, t4937)==FALSE_TYPE) goto l1239; /* x245766 */ /* x245765 */ /* x245764 */ return q692; l1239: /* x251354 */ /* x245770 */ /* x245769 */ t4939 = "KILL-APPLICATION"; /* x245768 */ t4938 = a33577; /* x245767 */ t4940.tag = STRING_TYPE; t4940.value.string_type = t4938; t4941.tag = STRING_TYPE; t4941.value.string_type = t4939; if (f27434(t4940, t4941)==FALSE_TYPE) goto l1241; /* x245773 */ /* x245772 */ /* x245771 */ return q691; l1241: /* x251353 */ /* x245777 */ /* x245776 */ t4943 = "REDRAW-ECHO-PANE"; /* x245775 */ t4942 = a33577; /* x245774 */ t4944.tag = STRING_TYPE; t4944.value.string_type = t4942; t4945.tag = STRING_TYPE; t4945.value.string_type = t4943; if (f27434(t4944, t4945)==FALSE_TYPE) goto l1243; /* x245780 */ /* x245779 */ /* x245778 */ return q690; l1243: /* x251352 */ /* x245784 */ /* x245783 */ t4947 = "REDRAW-TRANSCRIPT-PANE"; /* x245782 */ t4946 = a33577; /* x245781 */ t4948.tag = STRING_TYPE; t4948.value.string_type = t4946; t4949.tag = STRING_TYPE; t4949.value.string_type = t4947; if (f27434(t4948, t4949)==FALSE_TYPE) goto l1245; /* x245787 */ /* x245786 */ /* x245785 */ return q689; l1245: /* x251351 */ /* x245791 */ /* x245790 */ t4951 = "REGION-HANDLER"; /* x245789 */ t4950 = a33577; /* x245788 */ t4952.tag = STRING_TYPE; t4952.value.string_type = t4950; t4953.tag = STRING_TYPE; t4953.value.string_type = t4951; if (f27434(t4952, t4953)==FALSE_TYPE) goto l1247; /* x245794 */ /* x245793 */ /* x245792 */ return q688; l1247: /* x251350 */ /* x245798 */ /* x245797 */ t4955 = "REDRAW-DISPLAY-PANE"; /* x245796 */ t4954 = a33577; /* x245795 */ t4956.tag = STRING_TYPE; t4956.value.string_type = t4954; t4957.tag = STRING_TYPE; t4957.value.string_type = t4955; if (f27434(t4956, t4957)==FALSE_TYPE) goto l1249; /* x245801 */ /* x245800 */ /* x245799 */ return q687; l1249: /* x251349 */ /* x245805 */ /* x245804 */ t4959 = "SET-WINDOW-METHOD!"; /* x245803 */ t4958 = a33577; /* x245802 */ t4960.tag = STRING_TYPE; t4960.value.string_type = t4958; t4961.tag = STRING_TYPE; t4961.value.string_type = t4959; if (f27434(t4960, t4961)==FALSE_TYPE) goto l1251; /* x245808 */ /* x245807 */ /* x245806 */ return q686; l1251: /* x251348 */ /* x245812 */ /* x245811 */ t4963 = "XSETWMNORMALHINTS"; /* x245810 */ t4962 = a33577; /* x245809 */ t4964.tag = STRING_TYPE; t4964.value.string_type = t4962; t4965.tag = STRING_TYPE; t4965.value.string_type = t4963; if (f27434(t4964, t4965)==FALSE_TYPE) goto l1253; /* x245815 */ /* x245814 */ /* x245813 */ return q685; l1253: /* x251347 */ /* x245819 */ /* x245818 */ t4967 = "PMAXSIZE"; /* x245817 */ t4966 = a33577; /* x245816 */ t4968.tag = STRING_TYPE; t4968.value.string_type = t4966; t4969.tag = STRING_TYPE; t4969.value.string_type = t4967; if (f27434(t4968, t4969)==FALSE_TYPE) goto l1255; /* x245822 */ /* x245821 */ /* x245820 */ return q684; l1255: /* x251346 */ /* x245826 */ /* x245825 */ t4971 = "PMINSIZE"; /* x245824 */ t4970 = a33577; /* x245823 */ t4972.tag = STRING_TYPE; t4972.value.string_type = t4970; t4973.tag = STRING_TYPE; t4973.value.string_type = t4971; if (f27434(t4972, t4973)==FALSE_TYPE) goto l1257; /* x245829 */ /* x245828 */ /* x245827 */ return q683; l1257: /* x251345 */ /* x245833 */ /* x245832 */ t4975 = "PPOSITION"; /* x245831 */ t4974 = a33577; /* x245830 */ t4976.tag = STRING_TYPE; t4976.value.string_type = t4974; t4977.tag = STRING_TYPE; t4977.value.string_type = t4975; if (f27434(t4976, t4977)==FALSE_TYPE) goto l1259; /* x245836 */ /* x245835 */ /* x245834 */ return q682; l1259: /* x251344 */ /* x245840 */ /* x245839 */ t4979 = "USPOSITION"; /* x245838 */ t4978 = a33577; /* x245837 */ t4980.tag = STRING_TYPE; t4980.value.string_type = t4978; t4981.tag = STRING_TYPE; t4981.value.string_type = t4979; if (f27434(t4980, t4981)==FALSE_TYPE) goto l1261; /* x245843 */ /* x245842 */ /* x245841 */ return q681; l1261: /* x251343 */ /* x245847 */ /* x245846 */ t4983 = "SET-XSIZEHINTS-FLAGS!"; /* x245845 */ t4982 = a33577; /* x245844 */ t4984.tag = STRING_TYPE; t4984.value.string_type = t4982; t4985.tag = STRING_TYPE; t4985.value.string_type = t4983; if (f27434(t4984, t4985)==FALSE_TYPE) goto l1263; /* x245850 */ /* x245849 */ /* x245848 */ return q680; l1263: /* x251342 */ /* x245854 */ /* x245853 */ t4987 = "SET-XSIZEHINTS-MAX_HEIGHT!"; /* x245852 */ t4986 = a33577; /* x245851 */ t4988.tag = STRING_TYPE; t4988.value.string_type = t4986; t4989.tag = STRING_TYPE; t4989.value.string_type = t4987; if (f27434(t4988, t4989)==FALSE_TYPE) goto l1265; /* x245857 */ /* x245856 */ /* x245855 */ return q679; l1265: /* x251341 */ /* x245861 */ /* x245860 */ t4991 = "SET-XSIZEHINTS-MIN_HEIGHT!"; /* x245859 */ t4990 = a33577; /* x245858 */ t4992.tag = STRING_TYPE; t4992.value.string_type = t4990; t4993.tag = STRING_TYPE; t4993.value.string_type = t4991; if (f27434(t4992, t4993)==FALSE_TYPE) goto l1267; /* x245864 */ /* x245863 */ /* x245862 */ return q678; l1267: /* x251340 */ /* x245868 */ /* x245867 */ t4995 = "SET-XSIZEHINTS-MAX_WIDTH!"; /* x245866 */ t4994 = a33577; /* x245865 */ t4996.tag = STRING_TYPE; t4996.value.string_type = t4994; t4997.tag = STRING_TYPE; t4997.value.string_type = t4995; if (f27434(t4996, t4997)==FALSE_TYPE) goto l1269; /* x245871 */ /* x245870 */ /* x245869 */ return q677; l1269: /* x251339 */ /* x245875 */ /* x245874 */ t4999 = "SET-XSIZEHINTS-MIN_WIDTH!"; /* x245873 */ t4998 = a33577; /* x245872 */ t5000.tag = STRING_TYPE; t5000.value.string_type = t4998; t5001.tag = STRING_TYPE; t5001.value.string_type = t4999; if (f27434(t5000, t5001)==FALSE_TYPE) goto l1271; /* x245878 */ /* x245877 */ /* x245876 */ return q676; l1271: /* x251338 */ /* x245882 */ /* x245881 */ t5003 = "SET-XSIZEHINTS-Y!"; /* x245880 */ t5002 = a33577; /* x245879 */ t5004.tag = STRING_TYPE; t5004.value.string_type = t5002; t5005.tag = STRING_TYPE; t5005.value.string_type = t5003; if (f27434(t5004, t5005)==FALSE_TYPE) goto l1273; /* x245885 */ /* x245884 */ /* x245883 */ return q675; l1273: /* x251337 */ /* x245889 */ /* x245888 */ t5007 = "SET-XSIZEHINTS-X!"; /* x245887 */ t5006 = a33577; /* x245886 */ t5008.tag = STRING_TYPE; t5008.value.string_type = t5006; t5009.tag = STRING_TYPE; t5009.value.string_type = t5007; if (f27434(t5008, t5009)==FALSE_TYPE) goto l1275; /* x245892 */ /* x245891 */ /* x245890 */ return q674; l1275: /* x251336 */ /* x245896 */ /* x245895 */ t5011 = "*WINDOW-POSITION?*"; /* x245894 */ t5010 = a33577; /* x245893 */ t5012.tag = STRING_TYPE; t5012.value.string_type = t5010; t5013.tag = STRING_TYPE; t5013.value.string_type = t5011; if (f27434(t5012, t5013)==FALSE_TYPE) goto l1277; /* x245899 */ /* x245898 */ /* x245897 */ return q673; l1277: /* x251335 */ /* x245903 */ /* x245902 */ t5015 = "MAKE-XSIZEHINTS"; /* x245901 */ t5014 = a33577; /* x245900 */ t5016.tag = STRING_TYPE; t5016.value.string_type = t5014; t5017.tag = STRING_TYPE; t5017.value.string_type = t5015; if (f27434(t5016, t5017)==FALSE_TYPE) goto l1279; /* x245906 */ /* x245905 */ /* x245904 */ return q672; l1279: /* x251334 */ /* x245910 */ /* x245909 */ t5019 = "XSETWMHINTS"; /* x245908 */ t5018 = a33577; /* x245907 */ t5020.tag = STRING_TYPE; t5020.value.string_type = t5018; t5021.tag = STRING_TYPE; t5021.value.string_type = t5019; if (f27434(t5020, t5021)==FALSE_TYPE) goto l1281; /* x245913 */ /* x245912 */ /* x245911 */ return q671; l1281: /* x251333 */ /* x245917 */ /* x245916 */ t5023 = "INPUTHINT"; /* x245915 */ t5022 = a33577; /* x245914 */ t5024.tag = STRING_TYPE; t5024.value.string_type = t5022; t5025.tag = STRING_TYPE; t5025.value.string_type = t5023; if (f27434(t5024, t5025)==FALSE_TYPE) goto l1283; /* x245920 */ /* x245919 */ /* x245918 */ return q670; l1283: /* x251332 */ /* x245924 */ /* x245923 */ t5027 = "SET-XWMHINTS-FLAGS!"; /* x245922 */ t5026 = a33577; /* x245921 */ t5028.tag = STRING_TYPE; t5028.value.string_type = t5026; t5029.tag = STRING_TYPE; t5029.value.string_type = t5027; if (f27434(t5028, t5029)==FALSE_TYPE) goto l1285; /* x245927 */ /* x245926 */ /* x245925 */ return q669; l1285: /* x251331 */ /* x245931 */ /* x245930 */ t5031 = "SET-XWMHINTS-INPUT!"; /* x245929 */ t5030 = a33577; /* x245928 */ t5032.tag = STRING_TYPE; t5032.value.string_type = t5030; t5033.tag = STRING_TYPE; t5033.value.string_type = t5031; if (f27434(t5032, t5033)==FALSE_TYPE) goto l1287; /* x245934 */ /* x245933 */ /* x245932 */ return q668; l1287: /* x251330 */ /* x245938 */ /* x245937 */ t5035 = "MAKE-XWMHINTS"; /* x245936 */ t5034 = a33577; /* x245935 */ t5036.tag = STRING_TYPE; t5036.value.string_type = t5034; t5037.tag = STRING_TYPE; t5037.value.string_type = t5035; if (f27434(t5036, t5037)==FALSE_TYPE) goto l1289; /* x245941 */ /* x245940 */ /* x245939 */ return q667; l1289: /* x251329 */ /* x245945 */ /* x245944 */ t5039 = "HINTS"; /* x245943 */ t5038 = a33577; /* x245942 */ t5040.tag = STRING_TYPE; t5040.value.string_type = t5038; t5041.tag = STRING_TYPE; t5041.value.string_type = t5039; if (f27434(t5040, t5041)==FALSE_TYPE) goto l1291; /* x245948 */ /* x245947 */ /* x245946 */ return q666; l1291: /* x251328 */ /* x245952 */ /* x245951 */ t5043 = "*CLEAR-DISPLAY-PANE?*"; /* x245950 */ t5042 = a33577; /* x245949 */ t5044.tag = STRING_TYPE; t5044.value.string_type = t5042; t5045.tag = STRING_TYPE; t5045.value.string_type = t5043; if (f27434(t5044, t5045)==FALSE_TYPE) goto l1293; /* x245955 */ /* x245954 */ /* x245953 */ return q665; l1293: /* x251327 */ /* x245959 */ /* x245958 */ t5047 = "*HELP?*"; /* x245957 */ t5046 = a33577; /* x245956 */ t5048.tag = STRING_TYPE; t5048.value.string_type = t5046; t5049.tag = STRING_TYPE; t5049.value.string_type = t5047; if (f27434(t5048, t5049)==FALSE_TYPE) goto l1295; /* x245962 */ /* x245961 */ /* x245960 */ return q664; l1295: /* x251326 */ /* x245966 */ /* x245965 */ t5051 = "*PAUSE?*"; /* x245964 */ t5050 = a33577; /* x245963 */ t5052.tag = STRING_TYPE; t5052.value.string_type = t5050; t5053.tag = STRING_TYPE; t5053.value.string_type = t5051; if (f27434(t5052, t5053)==FALSE_TYPE) goto l1297; /* x245969 */ /* x245968 */ /* x245967 */ return q663; l1297: /* x251325 */ /* x245973 */ /* x245972 */ t5055 = "*BUTTONS*"; /* x245971 */ t5054 = a33577; /* x245970 */ t5056.tag = STRING_TYPE; t5056.value.string_type = t5054; t5057.tag = STRING_TYPE; t5057.value.string_type = t5055; if (f27434(t5056, t5057)==FALSE_TYPE) goto l1299; /* x245976 */ /* x245975 */ /* x245974 */ return q662; l1299: /* x251324 */ /* x245980 */ /* x245979 */ t5059 = "*REDRAW-PROCEDURE*"; /* x245978 */ t5058 = a33577; /* x245977 */ t5060.tag = STRING_TYPE; t5060.value.string_type = t5058; t5061.tag = STRING_TYPE; t5061.value.string_type = t5059; if (f27434(t5060, t5061)==FALSE_TYPE) goto l1301; /* x245983 */ /* x245982 */ /* x245981 */ return q661; l1301: /* x251323 */ /* x245987 */ /* x245986 */ t5063 = "*MESSAGE*"; /* x245985 */ t5062 = a33577; /* x245984 */ t5064.tag = STRING_TYPE; t5064.value.string_type = t5062; t5065.tag = STRING_TYPE; t5065.value.string_type = t5063; if (f27434(t5064, t5065)==FALSE_TYPE) goto l1303; /* x245990 */ /* x245989 */ /* x245988 */ return q660; l1303: /* x251322 */ /* x245994 */ /* x245993 */ t5067 = "*STATUS*"; /* x245992 */ t5066 = a33577; /* x245991 */ t5068.tag = STRING_TYPE; t5068.value.string_type = t5066; t5069.tag = STRING_TYPE; t5069.value.string_type = t5067; if (f27434(t5068, t5069)==FALSE_TYPE) goto l1305; /* x245997 */ /* x245996 */ /* x245995 */ return q659; l1305: /* x251321 */ /* x246001 */ /* x246000 */ t5071 = "*PREFIX*"; /* x245999 */ t5070 = a33577; /* x245998 */ t5072.tag = STRING_TYPE; t5072.value.string_type = t5070; t5073.tag = STRING_TYPE; t5073.value.string_type = t5071; if (f27434(t5072, t5073)==FALSE_TYPE) goto l1307; /* x246004 */ /* x246003 */ /* x246002 */ return q658; l1307: /* x251320 */ /* x246008 */ /* x246007 */ t5075 = "*HELP-COMTAB*"; /* x246006 */ t5074 = a33577; /* x246005 */ t5076.tag = STRING_TYPE; t5076.value.string_type = t5074; t5077.tag = STRING_TYPE; t5077.value.string_type = t5075; if (f27434(t5076, t5077)==FALSE_TYPE) goto l1309; /* x246011 */ /* x246010 */ /* x246009 */ return q657; l1309: /* x251319 */ /* x246015 */ /* x246014 */ t5079 = "HELP-SCROLL-END-COMMAND"; /* x246013 */ t5078 = a33577; /* x246012 */ t5080.tag = STRING_TYPE; t5080.value.string_type = t5078; t5081.tag = STRING_TYPE; t5081.value.string_type = t5079; if (f27434(t5080, t5081)==FALSE_TYPE) goto l1311; /* x246018 */ /* x246017 */ /* x246016 */ return q656; l1311: /* x251318 */ /* x246022 */ /* x246021 */ t5083 = "HELP-SCROLL-BEGINNING-COMMAND"; /* x246020 */ t5082 = a33577; /* x246019 */ t5084.tag = STRING_TYPE; t5084.value.string_type = t5082; t5085.tag = STRING_TYPE; t5085.value.string_type = t5083; if (f27434(t5084, t5085)==FALSE_TYPE) goto l1313; /* x246025 */ /* x246024 */ /* x246023 */ return q655; l1313: /* x251317 */ /* x246029 */ /* x246028 */ t5087 = "HELP-SCROLL-UP-PAGE-COMMAND"; /* x246027 */ t5086 = a33577; /* x246026 */ t5088.tag = STRING_TYPE; t5088.value.string_type = t5086; t5089.tag = STRING_TYPE; t5089.value.string_type = t5087; if (f27434(t5088, t5089)==FALSE_TYPE) goto l1315; /* x246032 */ /* x246031 */ /* x246030 */ return q654; l1315: /* x251316 */ /* x246036 */ /* x246035 */ t5091 = "META"; /* x246034 */ t5090 = a33577; /* x246033 */ t5092.tag = STRING_TYPE; t5092.value.string_type = t5090; t5093.tag = STRING_TYPE; t5093.value.string_type = t5091; if (f27434(t5092, t5093)==FALSE_TYPE) goto l1317; /* x246039 */ /* x246038 */ /* x246037 */ return q653; l1317: /* x251315 */ /* x246043 */ /* x246042 */ t5095 = "HELP-SCROLL-DOWN-PAGE-COMMAND"; /* x246041 */ t5094 = a33577; /* x246040 */ t5096.tag = STRING_TYPE; t5096.value.string_type = t5094; t5097.tag = STRING_TYPE; t5097.value.string_type = t5095; if (f27434(t5096, t5097)==FALSE_TYPE) goto l1319; /* x246046 */ /* x246045 */ /* x246044 */ return q652; l1319: /* x251314 */ /* x246050 */ /* x246049 */ t5099 = "HELP-SCROLL-UP-LINE-COMMAND"; /* x246048 */ t5098 = a33577; /* x246047 */ t5100.tag = STRING_TYPE; t5100.value.string_type = t5098; t5101.tag = STRING_TYPE; t5101.value.string_type = t5099; if (f27434(t5100, t5101)==FALSE_TYPE) goto l1321; /* x246053 */ /* x246052 */ /* x246051 */ return q651; l1321: /* x251313 */ /* x246057 */ /* x246056 */ t5103 = "HELP-SCROLL-DOWN-LINE-COMMAND"; /* x246055 */ t5102 = a33577; /* x246054 */ t5104.tag = STRING_TYPE; t5104.value.string_type = t5102; t5105.tag = STRING_TYPE; t5105.value.string_type = t5103; if (f27434(t5104, t5105)==FALSE_TYPE) goto l1323; /* x246060 */ /* x246059 */ /* x246058 */ return q650; l1323: /* x251312 */ /* x246064 */ /* x246063 */ t5107 = "HELP-COMMAND"; /* x246062 */ t5106 = a33577; /* x246061 */ t5108.tag = STRING_TYPE; t5108.value.string_type = t5106; t5109.tag = STRING_TYPE; t5109.value.string_type = t5107; if (f27434(t5108, t5109)==FALSE_TYPE) goto l1325; /* x246067 */ /* x246066 */ /* x246065 */ return q649; l1325: /* x251311 */ /* x246071 */ /* x246070 */ t5111 = "CONTROL"; /* x246069 */ t5110 = a33577; /* x246068 */ t5112.tag = STRING_TYPE; t5112.value.string_type = t5110; t5113.tag = STRING_TYPE; t5113.value.string_type = t5111; if (f27434(t5112, t5113)==FALSE_TYPE) goto l1327; /* x246074 */ /* x246073 */ /* x246072 */ return q648; l1327: /* x251310 */ /* x246078 */ /* x246077 */ t5115 = "DEFINE-KEY"; /* x246076 */ t5114 = a33577; /* x246075 */ t5116.tag = STRING_TYPE; t5116.value.string_type = t5114; t5117.tag = STRING_TYPE; t5117.value.string_type = t5115; if (f27434(t5116, t5117)==FALSE_TYPE) goto l1329; /* x246081 */ /* x246080 */ /* x246079 */ return q647; l1329: /* x251309 */ /* x246085 */ /* x246084 */ t5119 = "*HELP*"; /* x246083 */ t5118 = a33577; /* x246082 */ t5120.tag = STRING_TYPE; t5120.value.string_type = t5118; t5121.tag = STRING_TYPE; t5121.value.string_type = t5119; if (f27434(t5120, t5121)==FALSE_TYPE) goto l1331; /* x246088 */ /* x246087 */ /* x246086 */ return q646; l1331: /* x251308 */ /* x246092 */ /* x246091 */ t5123 = "*COMTAB*"; /* x246090 */ t5122 = a33577; /* x246089 */ t5124.tag = STRING_TYPE; t5124.value.string_type = t5122; t5125.tag = STRING_TYPE; t5125.value.string_type = t5123; if (f27434(t5124, t5125)==FALSE_TYPE) goto l1333; /* x246095 */ /* x246094 */ /* x246093 */ return q645; l1333: /* x251307 */ /* x246099 */ /* x246098 */ t5127 = "*ABORT-KEY*"; /* x246097 */ t5126 = a33577; /* x246096 */ t5128.tag = STRING_TYPE; t5128.value.string_type = t5126; t5129.tag = STRING_TYPE; t5129.value.string_type = t5127; if (f27434(t5128, t5129)==FALSE_TYPE) goto l1335; /* x246102 */ /* x246101 */ /* x246100 */ return q644; l1335: /* x251306 */ /* x246106 */ /* x246105 */ t5131 = "*ABORT-BUTTON*"; /* x246104 */ t5130 = a33577; /* x246103 */ t5132.tag = STRING_TYPE; t5132.value.string_type = t5130; t5133.tag = STRING_TYPE; t5133.value.string_type = t5131; if (f27434(t5132, t5133)==FALSE_TYPE) goto l1337; /* x246109 */ /* x246108 */ /* x246107 */ return q643; l1337: /* x251305 */ /* x246113 */ /* x246112 */ t5135 = "*WINDOW-METHODS*"; /* x246111 */ t5134 = a33577; /* x246110 */ t5136.tag = STRING_TYPE; t5136.value.string_type = t5134; t5137.tag = STRING_TYPE; t5137.value.string_type = t5135; if (f27434(t5136, t5137)==FALSE_TYPE) goto l1339; /* x246116 */ /* x246115 */ /* x246114 */ return q642; l1339: /* x251304 */ /* x246120 */ /* x246119 */ t5139 = "*COLOR-GC*"; /* x246118 */ t5138 = a33577; /* x246117 */ t5140.tag = STRING_TYPE; t5140.value.string_type = t5138; t5141.tag = STRING_TYPE; t5141.value.string_type = t5139; if (f27434(t5140, t5141)==FALSE_TYPE) goto l1341; /* x246123 */ /* x246122 */ /* x246121 */ return q641; l1341: /* x251303 */ /* x246127 */ /* x246126 */ t5143 = "*DARK-ORANGE-GC*"; /* x246125 */ t5142 = a33577; /* x246124 */ t5144.tag = STRING_TYPE; t5144.value.string_type = t5142; t5145.tag = STRING_TYPE; t5145.value.string_type = t5143; if (f27434(t5144, t5145)==FALSE_TYPE) goto l1343; /* x246130 */ /* x246129 */ /* x246128 */ return q640; l1343: /* x251302 */ /* x246134 */ /* x246133 */ t5147 = "*DARK-ORANGE*"; /* x246132 */ t5146 = a33577; /* x246131 */ t5148.tag = STRING_TYPE; t5148.value.string_type = t5146; t5149.tag = STRING_TYPE; t5149.value.string_type = t5147; if (f27434(t5148, t5149)==FALSE_TYPE) goto l1345; /* x246137 */ /* x246136 */ /* x246135 */ return q639; l1345: /* x251301 */ /* x246141 */ /* x246140 */ t5151 = "*ORANGE-GC*"; /* x246139 */ t5150 = a33577; /* x246138 */ t5152.tag = STRING_TYPE; t5152.value.string_type = t5150; t5153.tag = STRING_TYPE; t5153.value.string_type = t5151; if (f27434(t5152, t5153)==FALSE_TYPE) goto l1347; /* x246144 */ /* x246143 */ /* x246142 */ return q638; l1347: /* x251300 */ /* x246148 */ /* x246147 */ t5155 = "*ORANGE*"; /* x246146 */ t5154 = a33577; /* x246145 */ t5156.tag = STRING_TYPE; t5156.value.string_type = t5154; t5157.tag = STRING_TYPE; t5157.value.string_type = t5155; if (f27434(t5156, t5157)==FALSE_TYPE) goto l1349; /* x246151 */ /* x246150 */ /* x246149 */ return q637; l1349: /* x251299 */ /* x246155 */ /* x246154 */ t5159 = "*VIOLET-GC*"; /* x246153 */ t5158 = a33577; /* x246152 */ t5160.tag = STRING_TYPE; t5160.value.string_type = t5158; t5161.tag = STRING_TYPE; t5161.value.string_type = t5159; if (f27434(t5160, t5161)==FALSE_TYPE) goto l1351; /* x246158 */ /* x246157 */ /* x246156 */ return q636; l1351: /* x251298 */ /* x246162 */ /* x246161 */ t5163 = "*VIOLET*"; /* x246160 */ t5162 = a33577; /* x246159 */ t5164.tag = STRING_TYPE; t5164.value.string_type = t5162; t5165.tag = STRING_TYPE; t5165.value.string_type = t5163; if (f27434(t5164, t5165)==FALSE_TYPE) goto l1353; /* x246165 */ /* x246164 */ /* x246163 */ return q635; l1353: /* x251297 */ /* x246169 */ /* x246168 */ t5167 = "*YELLOW-GC*"; /* x246167 */ t5166 = a33577; /* x246166 */ t5168.tag = STRING_TYPE; t5168.value.string_type = t5166; t5169.tag = STRING_TYPE; t5169.value.string_type = t5167; if (f27434(t5168, t5169)==FALSE_TYPE) goto l1355; /* x246172 */ /* x246171 */ /* x246170 */ return q634; l1355: /* x251296 */ /* x246176 */ /* x246175 */ t5171 = "*YELLOW*"; /* x246174 */ t5170 = a33577; /* x246173 */ t5172.tag = STRING_TYPE; t5172.value.string_type = t5170; t5173.tag = STRING_TYPE; t5173.value.string_type = t5171; if (f27434(t5172, t5173)==FALSE_TYPE) goto l1357; /* x246179 */ /* x246178 */ /* x246177 */ return q633; l1357: /* x251295 */ /* x246183 */ /* x246182 */ t5175 = "*BLUE-GC*"; /* x246181 */ t5174 = a33577; /* x246180 */ t5176.tag = STRING_TYPE; t5176.value.string_type = t5174; t5177.tag = STRING_TYPE; t5177.value.string_type = t5175; if (f27434(t5176, t5177)==FALSE_TYPE) goto l1359; /* x246186 */ /* x246185 */ /* x246184 */ return q632; l1359: /* x251294 */ /* x246190 */ /* x246189 */ t5179 = "*BLUE*"; /* x246188 */ t5178 = a33577; /* x246187 */ t5180.tag = STRING_TYPE; t5180.value.string_type = t5178; t5181.tag = STRING_TYPE; t5181.value.string_type = t5179; if (f27434(t5180, t5181)==FALSE_TYPE) goto l1361; /* x246193 */ /* x246192 */ /* x246191 */ return q631; l1361: /* x251293 */ /* x246197 */ /* x246196 */ t5183 = "*DARK-GREEN-GC*"; /* x246195 */ t5182 = a33577; /* x246194 */ t5184.tag = STRING_TYPE; t5184.value.string_type = t5182; t5185.tag = STRING_TYPE; t5185.value.string_type = t5183; if (f27434(t5184, t5185)==FALSE_TYPE) goto l1363; /* x246200 */ /* x246199 */ /* x246198 */ return q630; l1363: /* x251292 */ /* x246204 */ /* x246203 */ t5187 = "*DARK-GREEN*"; /* x246202 */ t5186 = a33577; /* x246201 */ t5188.tag = STRING_TYPE; t5188.value.string_type = t5186; t5189.tag = STRING_TYPE; t5189.value.string_type = t5187; if (f27434(t5188, t5189)==FALSE_TYPE) goto l1365; /* x246207 */ /* x246206 */ /* x246205 */ return q629; l1365: /* x251291 */ /* x246211 */ /* x246210 */ t5191 = "*GREEN-GC*"; /* x246209 */ t5190 = a33577; /* x246208 */ t5192.tag = STRING_TYPE; t5192.value.string_type = t5190; t5193.tag = STRING_TYPE; t5193.value.string_type = t5191; if (f27434(t5192, t5193)==FALSE_TYPE) goto l1367; /* x246214 */ /* x246213 */ /* x246212 */ return q628; l1367: /* x251290 */ /* x246218 */ /* x246217 */ t5195 = "*GREEN*"; /* x246216 */ t5194 = a33577; /* x246215 */ t5196.tag = STRING_TYPE; t5196.value.string_type = t5194; t5197.tag = STRING_TYPE; t5197.value.string_type = t5195; if (f27434(t5196, t5197)==FALSE_TYPE) goto l1369; /* x246221 */ /* x246220 */ /* x246219 */ return q627; l1369: /* x251289 */ /* x246225 */ /* x246224 */ t5199 = "*DARK-RED-GC*"; /* x246223 */ t5198 = a33577; /* x246222 */ t5200.tag = STRING_TYPE; t5200.value.string_type = t5198; t5201.tag = STRING_TYPE; t5201.value.string_type = t5199; if (f27434(t5200, t5201)==FALSE_TYPE) goto l1371; /* x246228 */ /* x246227 */ /* x246226 */ return q626; l1371: /* x251288 */ /* x246232 */ /* x246231 */ t5203 = "*DARK-RED*"; /* x246230 */ t5202 = a33577; /* x246229 */ t5204.tag = STRING_TYPE; t5204.value.string_type = t5202; t5205.tag = STRING_TYPE; t5205.value.string_type = t5203; if (f27434(t5204, t5205)==FALSE_TYPE) goto l1373; /* x246235 */ /* x246234 */ /* x246233 */ return q625; l1373: /* x251287 */ /* x246239 */ /* x246238 */ t5207 = "*RED-GC*"; /* x246237 */ t5206 = a33577; /* x246236 */ t5208.tag = STRING_TYPE; t5208.value.string_type = t5206; t5209.tag = STRING_TYPE; t5209.value.string_type = t5207; if (f27434(t5208, t5209)==FALSE_TYPE) goto l1375; /* x246242 */ /* x246241 */ /* x246240 */ return q624; l1375: /* x251286 */ /* x246246 */ /* x246245 */ t5211 = "*RED*"; /* x246244 */ t5210 = a33577; /* x246243 */ t5212.tag = STRING_TYPE; t5212.value.string_type = t5210; t5213.tag = STRING_TYPE; t5213.value.string_type = t5211; if (f27434(t5212, t5213)==FALSE_TYPE) goto l1377; /* x246249 */ /* x246248 */ /* x246247 */ return q623; l1377: /* x251285 */ /* x246253 */ /* x246252 */ t5215 = "*GRAY-GC*"; /* x246251 */ t5214 = a33577; /* x246250 */ t5216.tag = STRING_TYPE; t5216.value.string_type = t5214; t5217.tag = STRING_TYPE; t5217.value.string_type = t5215; if (f27434(t5216, t5217)==FALSE_TYPE) goto l1379; /* x246256 */ /* x246255 */ /* x246254 */ return q622; l1379: /* x251284 */ /* x246260 */ /* x246259 */ t5219 = "*GRAY*"; /* x246258 */ t5218 = a33577; /* x246257 */ t5220.tag = STRING_TYPE; t5220.value.string_type = t5218; t5221.tag = STRING_TYPE; t5221.value.string_type = t5219; if (f27434(t5220, t5221)==FALSE_TYPE) goto l1381; /* x246263 */ /* x246262 */ /* x246261 */ return q621; l1381: /* x251283 */ /* x246267 */ /* x246266 */ t5223 = "*LIGHT-GRAY-GC*"; /* x246265 */ t5222 = a33577; /* x246264 */ t5224.tag = STRING_TYPE; t5224.value.string_type = t5222; t5225.tag = STRING_TYPE; t5225.value.string_type = t5223; if (f27434(t5224, t5225)==FALSE_TYPE) goto l1383; /* x246270 */ /* x246269 */ /* x246268 */ return q620; l1383: /* x251282 */ /* x246274 */ /* x246273 */ t5227 = "*LIGHT-GRAY*"; /* x246272 */ t5226 = a33577; /* x246271 */ t5228.tag = STRING_TYPE; t5228.value.string_type = t5226; t5229.tag = STRING_TYPE; t5229.value.string_type = t5227; if (f27434(t5228, t5229)==FALSE_TYPE) goto l1385; /* x246277 */ /* x246276 */ /* x246275 */ return q619; l1385: /* x251281 */ /* x246281 */ /* x246280 */ t5231 = "*BOLD-FLIPPING-GC*"; /* x246279 */ t5230 = a33577; /* x246278 */ t5232.tag = STRING_TYPE; t5232.value.string_type = t5230; t5233.tag = STRING_TYPE; t5233.value.string_type = t5231; if (f27434(t5232, t5233)==FALSE_TYPE) goto l1387; /* x246284 */ /* x246283 */ /* x246282 */ return q618; l1387: /* x251280 */ /* x246288 */ /* x246287 */ t5235 = "*BOLD-GC*"; /* x246286 */ t5234 = a33577; /* x246285 */ t5236.tag = STRING_TYPE; t5236.value.string_type = t5234; t5237.tag = STRING_TYPE; t5237.value.string_type = t5235; if (f27434(t5236, t5237)==FALSE_TYPE) goto l1389; /* x246291 */ /* x246290 */ /* x246289 */ return q617; l1389: /* x251279 */ /* x246295 */ /* x246294 */ t5239 = "XFONTSTRUCT-FID"; /* x246293 */ t5238 = a33577; /* x246292 */ t5240.tag = STRING_TYPE; t5240.value.string_type = t5238; t5241.tag = STRING_TYPE; t5241.value.string_type = t5239; if (f27434(t5240, t5241)==FALSE_TYPE) goto l1391; /* x246298 */ /* x246297 */ /* x246296 */ return q616; l1391: /* x251278 */ /* x246302 */ /* x246301 */ t5243 = "XSETFONT"; /* x246300 */ t5242 = a33577; /* x246299 */ t5244.tag = STRING_TYPE; t5244.value.string_type = t5242; t5245.tag = STRING_TYPE; t5245.value.string_type = t5243; if (f27434(t5244, t5245)==FALSE_TYPE) goto l1393; /* x246305 */ /* x246304 */ /* x246303 */ return q615; l1393: /* x251277 */ /* x246309 */ /* x246308 */ t5247 = "*ROMAN-GC*"; /* x246307 */ t5246 = a33577; /* x246306 */ t5248.tag = STRING_TYPE; t5248.value.string_type = t5246; t5249.tag = STRING_TYPE; t5249.value.string_type = t5247; if (f27434(t5248, t5249)==FALSE_TYPE) goto l1395; /* x246312 */ /* x246311 */ /* x246310 */ return q614; l1395: /* x251276 */ /* x246316 */ /* x246315 */ t5251 = "*DASHED-FLIPPING-GC*"; /* x246314 */ t5250 = a33577; /* x246313 */ t5252.tag = STRING_TYPE; t5252.value.string_type = t5250; t5253.tag = STRING_TYPE; t5253.value.string_type = t5251; if (f27434(t5252, t5253)==FALSE_TYPE) goto l1397; /* x246319 */ /* x246318 */ /* x246317 */ return q613; l1397: /* x251275 */ /* x246323 */ /* x246322 */ t5255 = "LINEONOFFDASH"; /* x246321 */ t5254 = a33577; /* x246320 */ t5256.tag = STRING_TYPE; t5256.value.string_type = t5254; t5257.tag = STRING_TYPE; t5257.value.string_type = t5255; if (f27434(t5256, t5257)==FALSE_TYPE) goto l1399; /* x246326 */ /* x246325 */ /* x246324 */ return q612; l1399: /* x251274 */ /* x246330 */ /* x246329 */ t5259 = "*DASHED-GC*"; /* x246328 */ t5258 = a33577; /* x246327 */ t5260.tag = STRING_TYPE; t5260.value.string_type = t5258; t5261.tag = STRING_TYPE; t5261.value.string_type = t5259; if (f27434(t5260, t5261)==FALSE_TYPE) goto l1401; /* x246333 */ /* x246332 */ /* x246331 */ return q611; l1401: /* x251273 */ /* x246337 */ /* x246336 */ t5263 = "*THICK-FLIPPING-GC*"; /* x246335 */ t5262 = a33577; /* x246334 */ t5264.tag = STRING_TYPE; t5264.value.string_type = t5262; t5265.tag = STRING_TYPE; t5265.value.string_type = t5263; if (f27434(t5264, t5265)==FALSE_TYPE) goto l1403; /* x246340 */ /* x246339 */ /* x246338 */ return q610; l1403: /* x251272 */ /* x246344 */ /* x246343 */ t5267 = "*THICK-GC*"; /* x246342 */ t5266 = a33577; /* x246341 */ t5268.tag = STRING_TYPE; t5268.value.string_type = t5266; t5269.tag = STRING_TYPE; t5269.value.string_type = t5267; if (f27434(t5268, t5269)==FALSE_TYPE) goto l1405; /* x246347 */ /* x246346 */ /* x246345 */ return q609; l1405: /* x251271 */ /* x246351 */ /* x246350 */ t5271 = "*MEDIUM-FLIPPING-GC*"; /* x246349 */ t5270 = a33577; /* x246348 */ t5272.tag = STRING_TYPE; t5272.value.string_type = t5270; t5273.tag = STRING_TYPE; t5273.value.string_type = t5271; if (f27434(t5272, t5273)==FALSE_TYPE) goto l1407; /* x246354 */ /* x246353 */ /* x246352 */ return q608; l1407: /* x251270 */ /* x246358 */ /* x246357 */ t5275 = "*MEDIUM-GC*"; /* x246356 */ t5274 = a33577; /* x246355 */ t5276.tag = STRING_TYPE; t5276.value.string_type = t5274; t5277.tag = STRING_TYPE; t5277.value.string_type = t5275; if (f27434(t5276, t5277)==FALSE_TYPE) goto l1409; /* x246361 */ /* x246360 */ /* x246359 */ return q607; l1409: /* x251269 */ /* x246365 */ /* x246364 */ t5279 = "GXXOR"; /* x246363 */ t5278 = a33577; /* x246362 */ t5280.tag = STRING_TYPE; t5280.value.string_type = t5278; t5281.tag = STRING_TYPE; t5281.value.string_type = t5279; if (f27434(t5280, t5281)==FALSE_TYPE) goto l1411; /* x246368 */ /* x246367 */ /* x246366 */ return q606; l1411: /* x251268 */ /* x246372 */ /* x246371 */ t5283 = "XSETFUNCTION"; /* x246370 */ t5282 = a33577; /* x246369 */ t5284.tag = STRING_TYPE; t5284.value.string_type = t5282; t5285.tag = STRING_TYPE; t5285.value.string_type = t5283; if (f27434(t5284, t5285)==FALSE_TYPE) goto l1413; /* x246375 */ /* x246374 */ /* x246373 */ return q605; l1413: /* x251267 */ /* x246379 */ /* x246378 */ t5287 = "*THIN-FLIPPING-GC*"; /* x246377 */ t5286 = a33577; /* x246376 */ t5288.tag = STRING_TYPE; t5288.value.string_type = t5286; t5289.tag = STRING_TYPE; t5289.value.string_type = t5287; if (f27434(t5288, t5289)==FALSE_TYPE) goto l1415; /* x246382 */ /* x246381 */ /* x246380 */ return q604; l1415: /* x251266 */ /* x246386 */ /* x246385 */ t5291 = "JOINROUND"; /* x246384 */ t5290 = a33577; /* x246383 */ t5292.tag = STRING_TYPE; t5292.value.string_type = t5290; t5293.tag = STRING_TYPE; t5293.value.string_type = t5291; if (f27434(t5292, t5293)==FALSE_TYPE) goto l1417; /* x246389 */ /* x246388 */ /* x246387 */ return q603; l1417: /* x251265 */ /* x246393 */ /* x246392 */ t5295 = "CAPROUND"; /* x246391 */ t5294 = a33577; /* x246390 */ t5296.tag = STRING_TYPE; t5296.value.string_type = t5294; t5297.tag = STRING_TYPE; t5297.value.string_type = t5295; if (f27434(t5296, t5297)==FALSE_TYPE) goto l1419; /* x246396 */ /* x246395 */ /* x246394 */ return q602; l1419: /* x251264 */ /* x246400 */ /* x246399 */ t5299 = "LINESOLID"; /* x246398 */ t5298 = a33577; /* x246397 */ t5300.tag = STRING_TYPE; t5300.value.string_type = t5298; t5301.tag = STRING_TYPE; t5301.value.string_type = t5299; if (f27434(t5300, t5301)==FALSE_TYPE) goto l1421; /* x246403 */ /* x246402 */ /* x246401 */ return q601; l1421: /* x251263 */ /* x246407 */ /* x246406 */ t5303 = "XSETLINEATTRIBUTES"; /* x246405 */ t5302 = a33577; /* x246404 */ t5304.tag = STRING_TYPE; t5304.value.string_type = t5302; t5305.tag = STRING_TYPE; t5305.value.string_type = t5303; if (f27434(t5304, t5305)==FALSE_TYPE) goto l1423; /* x246410 */ /* x246409 */ /* x246408 */ return q600; l1423: /* x251262 */ /* x246414 */ /* x246413 */ t5307 = "XSETFOREGROUND"; /* x246412 */ t5306 = a33577; /* x246411 */ t5308.tag = STRING_TYPE; t5308.value.string_type = t5306; t5309.tag = STRING_TYPE; t5309.value.string_type = t5307; if (f27434(t5308, t5309)==FALSE_TYPE) goto l1425; /* x246417 */ /* x246416 */ /* x246415 */ return q599; l1425: /* x251261 */ /* x246421 */ /* x246420 */ t5311 = "XSETBACKGROUND"; /* x246419 */ t5310 = a33577; /* x246418 */ t5312.tag = STRING_TYPE; t5312.value.string_type = t5310; t5313.tag = STRING_TYPE; t5313.value.string_type = t5311; if (f27434(t5312, t5313)==FALSE_TYPE) goto l1427; /* x246424 */ /* x246423 */ /* x246422 */ return q598; l1427: /* x251260 */ /* x246428 */ /* x246427 */ t5315 = "MAKE-XGCVALUES"; /* x246426 */ t5314 = a33577; /* x246425 */ t5316.tag = STRING_TYPE; t5316.value.string_type = t5314; t5317.tag = STRING_TYPE; t5317.value.string_type = t5315; if (f27434(t5316, t5317)==FALSE_TYPE) goto l1429; /* x246431 */ /* x246430 */ /* x246429 */ return q597; l1429: /* x251259 */ /* x246435 */ /* x246434 */ t5319 = "XCREATEGC"; /* x246433 */ t5318 = a33577; /* x246432 */ t5320.tag = STRING_TYPE; t5320.value.string_type = t5318; t5321.tag = STRING_TYPE; t5321.value.string_type = t5319; if (f27434(t5320, t5321)==FALSE_TYPE) goto l1431; /* x246438 */ /* x246437 */ /* x246436 */ return q596; l1431: /* x251258 */ /* x246442 */ /* x246441 */ t5323 = "*THIN-GC*"; /* x246440 */ t5322 = a33577; /* x246439 */ t5324.tag = STRING_TYPE; t5324.value.string_type = t5322; t5325.tag = STRING_TYPE; t5325.value.string_type = t5323; if (f27434(t5324, t5325)==FALSE_TYPE) goto l1433; /* x246445 */ /* x246444 */ /* x246443 */ return q595; l1433: /* x251257 */ /* x246449 */ /* x246448 */ t5327 = "KEYPRESSMASK"; /* x246447 */ t5326 = a33577; /* x246446 */ t5328.tag = STRING_TYPE; t5328.value.string_type = t5326; t5329.tag = STRING_TYPE; t5329.value.string_type = t5327; if (f27434(t5328, t5329)==FALSE_TYPE) goto l1435; /* x246452 */ /* x246451 */ /* x246450 */ return q594; l1435: /* x251256 */ /* x246456 */ /* x246455 */ t5331 = "BUTTONRELEASEMASK"; /* x246454 */ t5330 = a33577; /* x246453 */ t5332.tag = STRING_TYPE; t5332.value.string_type = t5330; t5333.tag = STRING_TYPE; t5333.value.string_type = t5331; if (f27434(t5332, t5333)==FALSE_TYPE) goto l1437; /* x246459 */ /* x246458 */ /* x246457 */ return q593; l1437: /* x251255 */ /* x246463 */ /* x246462 */ t5335 = "BUTTONPRESSMASK"; /* x246461 */ t5334 = a33577; /* x246460 */ t5336.tag = STRING_TYPE; t5336.value.string_type = t5334; t5337.tag = STRING_TYPE; t5337.value.string_type = t5335; if (f27434(t5336, t5337)==FALSE_TYPE) goto l1439; /* x246466 */ /* x246465 */ /* x246464 */ return q592; l1439: /* x251254 */ /* x246470 */ /* x246469 */ t5339 = "POINTERMOTIONMASK"; /* x246468 */ t5338 = a33577; /* x246467 */ t5340.tag = STRING_TYPE; t5340.value.string_type = t5338; t5341.tag = STRING_TYPE; t5341.value.string_type = t5339; if (f27434(t5340, t5341)==FALSE_TYPE) goto l1441; /* x246473 */ /* x246472 */ /* x246471 */ return q591; l1441: /* x251253 */ /* x246477 */ /* x246476 */ t5343 = "EXPOSUREMASK"; /* x246475 */ t5342 = a33577; /* x246474 */ t5344.tag = STRING_TYPE; t5344.value.string_type = t5342; t5345.tag = STRING_TYPE; t5345.value.string_type = t5343; if (f27434(t5344, t5345)==FALSE_TYPE) goto l1443; /* x246480 */ /* x246479 */ /* x246478 */ return q590; l1443: /* x251252 */ /* x246484 */ /* x246483 */ t5347 = "BIT-OR"; /* x246482 */ t5346 = a33577; /* x246481 */ t5348.tag = STRING_TYPE; t5348.value.string_type = t5346; t5349.tag = STRING_TYPE; t5349.value.string_type = t5347; if (f27434(t5348, t5349)==FALSE_TYPE) goto l1445; /* x246487 */ /* x246486 */ /* x246485 */ return q589; l1445: /* x251251 */ /* x246491 */ /* x246490 */ t5351 = "XSELECTINPUT"; /* x246489 */ t5350 = a33577; /* x246488 */ t5352.tag = STRING_TYPE; t5352.value.string_type = t5350; t5353.tag = STRING_TYPE; t5353.value.string_type = t5351; if (f27434(t5352, t5353)==FALSE_TYPE) goto l1447; /* x246494 */ /* x246493 */ /* x246492 */ return q588; l1447: /* x251250 */ /* x246498 */ /* x246497 */ t5355 = "*DISPLAY-PANE*"; /* x246496 */ t5354 = a33577; /* x246495 */ t5356.tag = STRING_TYPE; t5356.value.string_type = t5354; t5357.tag = STRING_TYPE; t5357.value.string_type = t5355; if (f27434(t5356, t5357)==FALSE_TYPE) goto l1449; /* x246501 */ /* x246500 */ /* x246499 */ return q587; l1449: /* x251249 */ /* x246505 */ /* x246504 */ t5359 = "XSETICONNAME"; /* x246503 */ t5358 = a33577; /* x246502 */ t5360.tag = STRING_TYPE; t5360.value.string_type = t5358; t5361.tag = STRING_TYPE; t5361.value.string_type = t5359; if (f27434(t5360, t5361)==FALSE_TYPE) goto l1451; /* x246508 */ /* x246507 */ /* x246506 */ return q586; l1451: /* x251248 */ /* x246512 */ /* x246511 */ t5363 = "*PROGRAM*"; /* x246510 */ t5362 = a33577; /* x246509 */ t5364.tag = STRING_TYPE; t5364.value.string_type = t5362; t5365.tag = STRING_TYPE; t5365.value.string_type = t5363; if (f27434(t5364, t5365)==FALSE_TYPE) goto l1453; /* x246515 */ /* x246514 */ /* x246513 */ return q585; l1453: /* x251247 */ /* x246519 */ /* x246518 */ t5367 = "XSTORENAME"; /* x246517 */ t5366 = a33577; /* x246516 */ t5368.tag = STRING_TYPE; t5368.value.string_type = t5366; t5369.tag = STRING_TYPE; t5369.value.string_type = t5367; if (f27434(t5368, t5369)==FALSE_TYPE) goto l1455; /* x246522 */ /* x246521 */ /* x246520 */ return q584; l1455: /* x251246 */ /* x246526 */ /* x246525 */ t5371 = "SECOND"; /* x246524 */ t5370 = a33577; /* x246523 */ t5372.tag = STRING_TYPE; t5372.value.string_type = t5370; t5373.tag = STRING_TYPE; t5373.value.string_type = t5371; if (f27434(t5372, t5373)==FALSE_TYPE) goto l1457; /* x246529 */ /* x246528 */ /* x246527 */ return q583; l1457: /* x251245 */ /* x246533 */ /* x246532 */ t5375 = "XCOLOR-PIXEL"; /* x246531 */ t5374 = a33577; /* x246530 */ t5376.tag = STRING_TYPE; t5376.value.string_type = t5374; t5377.tag = STRING_TYPE; t5377.value.string_type = t5375; if (f27434(t5376, t5377)==FALSE_TYPE) goto l1459; /* x246536 */ /* x246535 */ /* x246534 */ return q582; l1459: /* x251244 */ /* x246540 */ /* x246539 */ t5379 = "*WINDOW-POSITION-Y*"; /* x246538 */ t5378 = a33577; /* x246537 */ t5380.tag = STRING_TYPE; t5380.value.string_type = t5378; t5381.tag = STRING_TYPE; t5381.value.string_type = t5379; if (f27434(t5380, t5381)==FALSE_TYPE) goto l1461; /* x246543 */ /* x246542 */ /* x246541 */ return q581; l1461: /* x251243 */ /* x246547 */ /* x246546 */ t5383 = "*WINDOW-POSITION-X*"; /* x246545 */ t5382 = a33577; /* x246544 */ t5384.tag = STRING_TYPE; t5384.value.string_type = t5382; t5385.tag = STRING_TYPE; t5385.value.string_type = t5383; if (f27434(t5384, t5385)==FALSE_TYPE) goto l1463; /* x246550 */ /* x246549 */ /* x246548 */ return q580; l1463: /* x251242 */ /* x246554 */ /* x246553 */ t5387 = "XCREATESIMPLEWINDOW"; /* x246552 */ t5386 = a33577; /* x246551 */ t5388.tag = STRING_TYPE; t5388.value.string_type = t5386; t5389.tag = STRING_TYPE; t5389.value.string_type = t5387; if (f27434(t5388, t5389)==FALSE_TYPE) goto l1465; /* x246557 */ /* x246556 */ /* x246555 */ return q579; l1465: /* x251241 */ /* x246561 */ /* x246560 */ t5391 = "*WINDOW*"; /* x246559 */ t5390 = a33577; /* x246558 */ t5392.tag = STRING_TYPE; t5392.value.string_type = t5390; t5393.tag = STRING_TYPE; t5393.value.string_type = t5391; if (f27434(t5392, t5393)==FALSE_TYPE) goto l1467; /* x246564 */ /* x246563 */ /* x246562 */ return q578; l1467: /* x251240 */ /* x246568 */ /* x246567 */ t5395 = "*WHO-LINE-HEIGHT*"; /* x246566 */ t5394 = a33577; /* x246565 */ t5396.tag = STRING_TYPE; t5396.value.string_type = t5394; t5397.tag = STRING_TYPE; t5397.value.string_type = t5395; if (f27434(t5396, t5397)==FALSE_TYPE) goto l1469; /* x246571 */ /* x246570 */ /* x246569 */ return q577; l1469: /* x251239 */ /* x246575 */ /* x246574 */ t5399 = "*DISPLAY-PANE-HEIGHT*"; /* x246573 */ t5398 = a33577; /* x246572 */ t5400.tag = STRING_TYPE; t5400.value.string_type = t5398; t5401.tag = STRING_TYPE; t5401.value.string_type = t5399; if (f27434(t5400, t5401)==FALSE_TYPE) goto l1471; /* x246578 */ /* x246577 */ /* x246576 */ return q576; l1471: /* x251238 */ /* x246582 */ /* x246581 */ t5403 = "*DISPLAY-PANE-WIDTH*"; /* x246580 */ t5402 = a33577; /* x246579 */ t5404.tag = STRING_TYPE; t5404.value.string_type = t5402; t5405.tag = STRING_TYPE; t5405.value.string_type = t5403; if (f27434(t5404, t5405)==FALSE_TYPE) goto l1473; /* x246585 */ /* x246584 */ /* x246583 */ return q575; l1473: /* x251237 */ /* x246589 */ /* x246588 */ t5407 = "*TEXT-BASELINE*"; /* x246587 */ t5406 = a33577; /* x246586 */ t5408.tag = STRING_TYPE; t5408.value.string_type = t5406; t5409.tag = STRING_TYPE; t5409.value.string_type = t5407; if (f27434(t5408, t5409)==FALSE_TYPE) goto l1475; /* x246592 */ /* x246591 */ /* x246590 */ return q574; l1475: /* x251236 */ /* x246596 */ /* x246595 */ t5411 = "*BOLD-BASELINE*"; /* x246594 */ t5410 = a33577; /* x246593 */ t5412.tag = STRING_TYPE; t5412.value.string_type = t5410; t5413.tag = STRING_TYPE; t5413.value.string_type = t5411; if (f27434(t5412, t5413)==FALSE_TYPE) goto l1477; /* x246599 */ /* x246598 */ /* x246597 */ return q573; l1477: /* x251235 */ /* x246603 */ /* x246602 */ t5415 = "*ROMAN-BASELINE*"; /* x246601 */ t5414 = a33577; /* x246600 */ t5416.tag = STRING_TYPE; t5416.value.string_type = t5414; t5417.tag = STRING_TYPE; t5417.value.string_type = t5415; if (f27434(t5416, t5417)==FALSE_TYPE) goto l1479; /* x246606 */ /* x246605 */ /* x246604 */ return q572; l1479: /* x251234 */ /* x246610 */ /* x246609 */ t5419 = "*TEXT-HEIGHT*"; /* x246608 */ t5418 = a33577; /* x246607 */ t5420.tag = STRING_TYPE; t5420.value.string_type = t5418; t5421.tag = STRING_TYPE; t5421.value.string_type = t5419; if (f27434(t5420, t5421)==FALSE_TYPE) goto l1481; /* x246613 */ /* x246612 */ /* x246611 */ return q571; l1481: /* x251233 */ /* x246617 */ /* x246616 */ t5423 = "*BOLD-HEIGHT*"; /* x246615 */ t5422 = a33577; /* x246614 */ t5424.tag = STRING_TYPE; t5424.value.string_type = t5422; t5425.tag = STRING_TYPE; t5425.value.string_type = t5423; if (f27434(t5424, t5425)==FALSE_TYPE) goto l1483; /* x246620 */ /* x246619 */ /* x246618 */ return q570; l1483: /* x251232 */ /* x246624 */ /* x246623 */ t5427 = "XFONTSTRUCT-DESCENT"; /* x246622 */ t5426 = a33577; /* x246621 */ t5428.tag = STRING_TYPE; t5428.value.string_type = t5426; t5429.tag = STRING_TYPE; t5429.value.string_type = t5427; if (f27434(t5428, t5429)==FALSE_TYPE) goto l1485; /* x246627 */ /* x246626 */ /* x246625 */ return q569; l1485: /* x251231 */ /* x246631 */ /* x246630 */ t5431 = "XFONTSTRUCT-ASCENT"; /* x246629 */ t5430 = a33577; /* x246628 */ t5432.tag = STRING_TYPE; t5432.value.string_type = t5430; t5433.tag = STRING_TYPE; t5433.value.string_type = t5431; if (f27434(t5432, t5433)==FALSE_TYPE) goto l1487; /* x246634 */ /* x246633 */ /* x246632 */ return q568; l1487: /* x251230 */ /* x246638 */ /* x246637 */ t5435 = "*ROMAN-HEIGHT*"; /* x246636 */ t5434 = a33577; /* x246635 */ t5436.tag = STRING_TYPE; t5436.value.string_type = t5434; t5437.tag = STRING_TYPE; t5437.value.string_type = t5435; if (f27434(t5436, t5437)==FALSE_TYPE) goto l1489; /* x246641 */ /* x246640 */ /* x246639 */ return q567; l1489: /* x251229 */ /* x246645 */ /* x246644 */ t5439 = "*BOLD-FONT-NAME*"; /* x246643 */ t5438 = a33577; /* x246642 */ t5440.tag = STRING_TYPE; t5440.value.string_type = t5438; t5441.tag = STRING_TYPE; t5441.value.string_type = t5439; if (f27434(t5440, t5441)==FALSE_TYPE) goto l1491; /* x246648 */ /* x246647 */ /* x246646 */ return q566; l1491: /* x251228 */ /* x246652 */ /* x246651 */ t5443 = "*BOLD-FONT*"; /* x246650 */ t5442 = a33577; /* x246649 */ t5444.tag = STRING_TYPE; t5444.value.string_type = t5442; t5445.tag = STRING_TYPE; t5445.value.string_type = t5443; if (f27434(t5444, t5445)==FALSE_TYPE) goto l1493; /* x246655 */ /* x246654 */ /* x246653 */ return q565; l1493: /* x251227 */ /* x246659 */ /* x246658 */ t5447 = "*ROMAN-FONT-NAME*"; /* x246657 */ t5446 = a33577; /* x246656 */ t5448.tag = STRING_TYPE; t5448.value.string_type = t5446; t5449.tag = STRING_TYPE; t5449.value.string_type = t5447; if (f27434(t5448, t5449)==FALSE_TYPE) goto l1495; /* x246662 */ /* x246661 */ /* x246660 */ return q564; l1495: /* x251226 */ /* x246666 */ /* x246665 */ t5451 = "XLOADQUERYFONT"; /* x246664 */ t5450 = a33577; /* x246663 */ t5452.tag = STRING_TYPE; t5452.value.string_type = t5450; t5453.tag = STRING_TYPE; t5453.value.string_type = t5451; if (f27434(t5452, t5453)==FALSE_TYPE) goto l1497; /* x246669 */ /* x246668 */ /* x246667 */ return q563; l1497: /* x251225 */ /* x246673 */ /* x246672 */ t5455 = "*ROMAN-FONT*"; /* x246671 */ t5454 = a33577; /* x246670 */ t5456.tag = STRING_TYPE; t5456.value.string_type = t5454; t5457.tag = STRING_TYPE; t5457.value.string_type = t5455; if (f27434(t5456, t5457)==FALSE_TYPE) goto l1499; /* x246676 */ /* x246675 */ /* x246674 */ return q562; l1499: /* x251224 */ /* x246680 */ /* x246679 */ t5459 = "*FOREGROUND-COLOR*"; /* x246678 */ t5458 = a33577; /* x246677 */ t5460.tag = STRING_TYPE; t5460.value.string_type = t5458; t5461.tag = STRING_TYPE; t5461.value.string_type = t5459; if (f27434(t5460, t5461)==FALSE_TYPE) goto l1501; /* x246683 */ /* x246682 */ /* x246681 */ return q561; l1501: /* x251223 */ /* x246687 */ /* x246686 */ t5463 = "*FOREGROUND*"; /* x246685 */ t5462 = a33577; /* x246684 */ t5464.tag = STRING_TYPE; t5464.value.string_type = t5462; t5465.tag = STRING_TYPE; t5465.value.string_type = t5463; if (f27434(t5464, t5465)==FALSE_TYPE) goto l1503; /* x246690 */ /* x246689 */ /* x246688 */ return q560; l1503: /* x251222 */ /* x246694 */ /* x246693 */ t5467 = "FIRST"; /* x246692 */ t5466 = a33577; /* x246691 */ t5468.tag = STRING_TYPE; t5468.value.string_type = t5466; t5469.tag = STRING_TYPE; t5469.value.string_type = t5467; if (f27434(t5468, t5469)==FALSE_TYPE) goto l1505; /* x246697 */ /* x246696 */ /* x246695 */ return q559; l1505: /* x251221 */ /* x246701 */ /* x246700 */ t5471 = "*BACKGROUND-COLOR*"; /* x246699 */ t5470 = a33577; /* x246698 */ t5472.tag = STRING_TYPE; t5472.value.string_type = t5470; t5473.tag = STRING_TYPE; t5473.value.string_type = t5471; if (f27434(t5472, t5473)==FALSE_TYPE) goto l1507; /* x246704 */ /* x246703 */ /* x246702 */ return q558; l1507: /* x251220 */ /* x246708 */ /* x246707 */ t5475 = "XDEFAULTCOLORMAP"; /* x246706 */ t5474 = a33577; /* x246705 */ t5476.tag = STRING_TYPE; t5476.value.string_type = t5474; t5477.tag = STRING_TYPE; t5477.value.string_type = t5475; if (f27434(t5476, t5477)==FALSE_TYPE) goto l1509; /* x246711 */ /* x246710 */ /* x246709 */ return q557; l1509: /* x251219 */ /* x246715 */ /* x246714 */ t5479 = "XALLOCNAMEDCOLOR"; /* x246713 */ t5478 = a33577; /* x246712 */ t5480.tag = STRING_TYPE; t5480.value.string_type = t5478; t5481.tag = STRING_TYPE; t5481.value.string_type = t5479; if (f27434(t5480, t5481)==FALSE_TYPE) goto l1511; /* x246718 */ /* x246717 */ /* x246716 */ return q556; l1511: /* x251218 */ /* x246722 */ /* x246721 */ t5483 = "*BACKGROUND*"; /* x246720 */ t5482 = a33577; /* x246719 */ t5484.tag = STRING_TYPE; t5484.value.string_type = t5482; t5485.tag = STRING_TYPE; t5485.value.string_type = t5483; if (f27434(t5484, t5485)==FALSE_TYPE) goto l1513; /* x246725 */ /* x246724 */ /* x246723 */ return q555; l1513: /* x251217 */ /* x246729 */ /* x246728 */ t5487 = "XBLACKPIXEL"; /* x246727 */ t5486 = a33577; /* x246726 */ t5488.tag = STRING_TYPE; t5488.value.string_type = t5486; t5489.tag = STRING_TYPE; t5489.value.string_type = t5487; if (f27434(t5488, t5489)==FALSE_TYPE) goto l1515; /* x246732 */ /* x246731 */ /* x246730 */ return q554; l1515: /* x251216 */ /* x246736 */ /* x246735 */ t5491 = "*BLACK-PIXEL*"; /* x246734 */ t5490 = a33577; /* x246733 */ t5492.tag = STRING_TYPE; t5492.value.string_type = t5490; t5493.tag = STRING_TYPE; t5493.value.string_type = t5491; if (f27434(t5492, t5493)==FALSE_TYPE) goto l1517; /* x246739 */ /* x246738 */ /* x246737 */ return q553; l1517: /* x251215 */ /* x246743 */ /* x246742 */ t5495 = "XWHITEPIXEL"; /* x246741 */ t5494 = a33577; /* x246740 */ t5496.tag = STRING_TYPE; t5496.value.string_type = t5494; t5497.tag = STRING_TYPE; t5497.value.string_type = t5495; if (f27434(t5496, t5497)==FALSE_TYPE) goto l1519; /* x246746 */ /* x246745 */ /* x246744 */ return q552; l1519: /* x251214 */ /* x246750 */ /* x246749 */ t5499 = "*WHITE-PIXEL*"; /* x246748 */ t5498 = a33577; /* x246747 */ t5500.tag = STRING_TYPE; t5500.value.string_type = t5498; t5501.tag = STRING_TYPE; t5501.value.string_type = t5499; if (f27434(t5500, t5501)==FALSE_TYPE) goto l1521; /* x246753 */ /* x246752 */ /* x246751 */ return q551; l1521: /* x251213 */ /* x246757 */ /* x246756 */ t5503 = "*BUTTON-HEIGHT*"; /* x246755 */ t5502 = a33577; /* x246754 */ t5504.tag = STRING_TYPE; t5504.value.string_type = t5502; t5505.tag = STRING_TYPE; t5505.value.string_type = t5503; if (f27434(t5504, t5505)==FALSE_TYPE) goto l1523; /* x246760 */ /* x246759 */ /* x246758 */ return q550; l1523: /* x251212 */ /* x246764 */ /* x246763 */ t5507 = "*BUTTON-WIDTH*"; /* x246762 */ t5506 = a33577; /* x246761 */ t5508.tag = STRING_TYPE; t5508.value.string_type = t5506; t5509.tag = STRING_TYPE; t5509.value.string_type = t5507; if (f27434(t5508, t5509)==FALSE_TYPE) goto l1525; /* x246767 */ /* x246766 */ /* x246765 */ return q549; l1525: /* x251211 */ /* x246771 */ /* x246770 */ t5511 = "XROOTWINDOW"; /* x246769 */ t5510 = a33577; /* x246768 */ t5512.tag = STRING_TYPE; t5512.value.string_type = t5510; t5513.tag = STRING_TYPE; t5513.value.string_type = t5511; if (f27434(t5512, t5513)==FALSE_TYPE) goto l1527; /* x246774 */ /* x246773 */ /* x246772 */ return q548; l1527: /* x251210 */ /* x246778 */ /* x246777 */ t5515 = "*ROOT-WINDOW*"; /* x246776 */ t5514 = a33577; /* x246775 */ t5516.tag = STRING_TYPE; t5516.value.string_type = t5514; t5517.tag = STRING_TYPE; t5517.value.string_type = t5515; if (f27434(t5516, t5517)==FALSE_TYPE) goto l1529; /* x246781 */ /* x246780 */ /* x246779 */ return q547; l1529: /* x251209 */ /* x246785 */ /* x246784 */ t5519 = "XDEFAULTSCREEN"; /* x246783 */ t5518 = a33577; /* x246782 */ t5520.tag = STRING_TYPE; t5520.value.string_type = t5518; t5521.tag = STRING_TYPE; t5521.value.string_type = t5519; if (f27434(t5520, t5521)==FALSE_TYPE) goto l1531; /* x246788 */ /* x246787 */ /* x246786 */ return q546; l1531: /* x251208 */ /* x246792 */ /* x246791 */ t5523 = "*SCREEN*"; /* x246790 */ t5522 = a33577; /* x246789 */ t5524.tag = STRING_TYPE; t5524.value.string_type = t5522; t5525.tag = STRING_TYPE; t5525.value.string_type = t5523; if (f27434(t5524, t5525)==FALSE_TYPE) goto l1533; /* x246795 */ /* x246794 */ /* x246793 */ return q545; l1533: /* x251207 */ /* x246799 */ /* x246798 */ t5527 = "XDISPLAYNAME"; /* x246797 */ t5526 = a33577; /* x246796 */ t5528.tag = STRING_TYPE; t5528.value.string_type = t5526; t5529.tag = STRING_TYPE; t5529.value.string_type = t5527; if (f27434(t5528, t5529)==FALSE_TYPE) goto l1535; /* x246802 */ /* x246801 */ /* x246800 */ return q544; l1535: /* x251206 */ /* x246806 */ /* x246805 */ t5531 = "FORMAT"; /* x246804 */ t5530 = a33577; /* x246803 */ t5532.tag = STRING_TYPE; t5532.value.string_type = t5530; t5533.tag = STRING_TYPE; t5533.value.string_type = t5531; if (f27434(t5532, t5533)==FALSE_TYPE) goto l1537; /* x246809 */ /* x246808 */ /* x246807 */ return q543; l1537: /* x251205 */ /* x246813 */ /* x246812 */ t5535 = "*DISPLAY-NAME*"; /* x246811 */ t5534 = a33577; /* x246810 */ t5536.tag = STRING_TYPE; t5536.value.string_type = t5534; t5537.tag = STRING_TYPE; t5537.value.string_type = t5535; if (f27434(t5536, t5537)==FALSE_TYPE) goto l1539; /* x246816 */ /* x246815 */ /* x246814 */ return q542; l1539: /* x251204 */ /* x246820 */ /* x246819 */ t5539 = "XOPENDISPLAY"; /* x246818 */ t5538 = a33577; /* x246817 */ t5540.tag = STRING_TYPE; t5540.value.string_type = t5538; t5541.tag = STRING_TYPE; t5541.value.string_type = t5539; if (f27434(t5540, t5541)==FALSE_TYPE) goto l1541; /* x246823 */ /* x246822 */ /* x246821 */ return q541; l1541: /* x251203 */ /* x246827 */ /* x246826 */ t5543 = "*DISPLAY*"; /* x246825 */ t5542 = a33577; /* x246824 */ t5544.tag = STRING_TYPE; t5544.value.string_type = t5542; t5545.tag = STRING_TYPE; t5545.value.string_type = t5543; if (f27434(t5544, t5545)==FALSE_TYPE) goto l1543; /* x246830 */ /* x246829 */ /* x246828 */ return q540; l1543: /* x251202 */ /* x246834 */ /* x246833 */ t5547 = "*MESSAGE-PANE*"; /* x246832 */ t5546 = a33577; /* x246831 */ t5548.tag = STRING_TYPE; t5548.value.string_type = t5546; t5549.tag = STRING_TYPE; t5549.value.string_type = t5547; if (f27434(t5548, t5549)==FALSE_TYPE) goto l1545; /* x246837 */ /* x246836 */ /* x246835 */ return q539; l1545: /* x251201 */ /* x246841 */ /* x246840 */ t5551 = "*STATUS-PANE*"; /* x246839 */ t5550 = a33577; /* x246838 */ t5552.tag = STRING_TYPE; t5552.value.string_type = t5550; t5553.tag = STRING_TYPE; t5553.value.string_type = t5551; if (f27434(t5552, t5553)==FALSE_TYPE) goto l1547; /* x246844 */ /* x246843 */ /* x246842 */ return q538; l1547: /* x251200 */ /* x246848 */ /* x246847 */ t5555 = "*ECHO-PANE*"; /* x246846 */ t5554 = a33577; /* x246845 */ t5556.tag = STRING_TYPE; t5556.value.string_type = t5554; t5557.tag = STRING_TYPE; t5557.value.string_type = t5555; if (f27434(t5556, t5557)==FALSE_TYPE) goto l1549; /* x246851 */ /* x246850 */ /* x246849 */ return q537; l1549: /* x251199 */ /* x246855 */ /* x246854 */ t5559 = "*TRANSCRIPT-PANE*"; /* x246853 */ t5558 = a33577; /* x246852 */ t5560.tag = STRING_TYPE; t5560.value.string_type = t5558; t5561.tag = STRING_TYPE; t5561.value.string_type = t5559; if (f27434(t5560, t5561)==FALSE_TYPE) goto l1551; /* x246858 */ /* x246857 */ /* x246856 */ return q536; l1551: /* x251198 */ /* x246862 */ /* x246861 */ t5563 = "*POST-INITIALIZE-PROCEDURE*"; /* x246860 */ t5562 = a33577; /* x246859 */ t5564.tag = STRING_TYPE; t5564.value.string_type = t5562; t5565.tag = STRING_TYPE; t5565.value.string_type = t5563; if (f27434(t5564, t5565)==FALSE_TYPE) goto l1553; /* x246865 */ /* x246864 */ /* x246863 */ return q535; l1553: /* x251197 */ /* x246869 */ /* x246868 */ t5567 = "REDRAW-PROCEDURE"; /* x246867 */ t5566 = a33577; /* x246866 */ t5568.tag = STRING_TYPE; t5568.value.string_type = t5566; t5569.tag = STRING_TYPE; t5569.value.string_type = t5567; if (f27434(t5568, t5569)==FALSE_TYPE) goto l1555; /* x246872 */ /* x246871 */ /* x246870 */ return q534; l1555: /* x251196 */ /* x246876 */ /* x246875 */ t5571 = "FINALIZE-PROCEDURE"; /* x246874 */ t5570 = a33577; /* x246873 */ t5572.tag = STRING_TYPE; t5572.value.string_type = t5570; t5573.tag = STRING_TYPE; t5573.value.string_type = t5571; if (f27434(t5572, t5573)==FALSE_TYPE) goto l1557; /* x246879 */ /* x246878 */ /* x246877 */ return q533; l1557: /* x251195 */ /* x246883 */ /* x246882 */ t5575 = "POST-INITIALIZE-PROCEDURE"; /* x246881 */ t5574 = a33577; /* x246880 */ t5576.tag = STRING_TYPE; t5576.value.string_type = t5574; t5577.tag = STRING_TYPE; t5577.value.string_type = t5575; if (f27434(t5576, t5577)==FALSE_TYPE) goto l1559; /* x246886 */ /* x246885 */ /* x246884 */ return q532; l1559: /* x251194 */ /* x246890 */ /* x246889 */ t5579 = "PRE-INITIALIZE-PROCEDURE"; /* x246888 */ t5578 = a33577; /* x246887 */ t5580.tag = STRING_TYPE; t5580.value.string_type = t5578; t5581.tag = STRING_TYPE; t5581.value.string_type = t5579; if (f27434(t5580, t5581)==FALSE_TYPE) goto l1561; /* x246893 */ /* x246892 */ /* x246891 */ return q531; l1561: /* x251193 */ /* x246897 */ /* x246896 */ t5583 = "DISPLAY-PANE-HEIGHT"; /* x246895 */ t5582 = a33577; /* x246894 */ t5584.tag = STRING_TYPE; t5584.value.string_type = t5582; t5585.tag = STRING_TYPE; t5585.value.string_type = t5583; if (f27434(t5584, t5585)==FALSE_TYPE) goto l1563; /* x246900 */ /* x246899 */ /* x246898 */ return q530; l1563: /* x251192 */ /* x246904 */ /* x246903 */ t5587 = "DISPLAY-PANE-WIDTH"; /* x246902 */ t5586 = a33577; /* x246901 */ t5588.tag = STRING_TYPE; t5588.value.string_type = t5586; t5589.tag = STRING_TYPE; t5589.value.string_type = t5587; if (f27434(t5588, t5589)==FALSE_TYPE) goto l1565; /* x246907 */ /* x246906 */ /* x246905 */ return q529; l1565: /* x251191 */ /* x246911 */ /* x246910 */ t5591 = "STALIN?"; /* x246909 */ t5590 = a33577; /* x246908 */ t5592.tag = STRING_TYPE; t5592.value.string_type = t5590; t5593.tag = STRING_TYPE; t5593.value.string_type = t5591; if (f27434(t5592, t5593)==FALSE_TYPE) goto l1567; /* x246914 */ /* x246913 */ /* x246912 */ return q528; l1567: /* x251190 */ /* x246918 */ /* x246917 */ t5595 = "ARGUMENTS"; /* x246916 */ t5594 = a33577; /* x246915 */ t5596.tag = STRING_TYPE; t5596.value.string_type = t5594; t5597.tag = STRING_TYPE; t5597.value.string_type = t5595; if (f27434(t5596, t5597)==FALSE_TYPE) goto l1569; /* x246921 */ /* x246920 */ /* x246919 */ return q527; l1569: /* x251189 */ /* x246925 */ /* x246924 */ t5599 = "DEFINE-DISPLAY-PANE-APPLICATION"; /* x246923 */ t5598 = a33577; /* x246922 */ t5600.tag = STRING_TYPE; t5600.value.string_type = t5598; t5601.tag = STRING_TYPE; t5601.value.string_type = t5599; if (f27434(t5600, t5601)==FALSE_TYPE) goto l1571; /* x246928 */ /* x246927 */ /* x246926 */ return q526; l1571: /* x251188 */ /* x246932 */ /* x246931 */ t5603 = "ABORT"; /* x246930 */ t5602 = a33577; /* x246929 */ t5604.tag = STRING_TYPE; t5604.value.string_type = t5602; t5605.tag = STRING_TYPE; t5605.value.string_type = t5603; if (f27434(t5604, t5605)==FALSE_TYPE) goto l1573; /* x246935 */ /* x246934 */ /* x246933 */ return q525; l1573: /* x251187 */ /* x246939 */ /* x246938 */ t5607 = "DEFINE-INTEGER-RANGE-BUTTONS"; /* x246937 */ t5606 = a33577; /* x246936 */ t5608.tag = STRING_TYPE; t5608.value.string_type = t5606; t5609.tag = STRING_TYPE; t5609.value.string_type = t5607; if (f27434(t5608, t5609)==FALSE_TYPE) goto l1575; /* x246942 */ /* x246941 */ /* x246940 */ return q524; l1575: /* x251186 */ /* x246946 */ /* x246945 */ t5611 = "FUCK-UP"; /* x246944 */ t5610 = a33577; /* x246943 */ t5612.tag = STRING_TYPE; t5612.value.string_type = t5610; t5613.tag = STRING_TYPE; t5613.value.string_type = t5611; if (f27434(t5612, t5613)==FALSE_TYPE) goto l1577; /* x246949 */ /* x246948 */ /* x246947 */ return q523; l1577: /* x251185 */ /* x246953 */ /* x246952 */ t5615 = "DEFINE-CYCLE-BUTTON"; /* x246951 */ t5614 = a33577; /* x246950 */ t5616.tag = STRING_TYPE; t5616.value.string_type = t5614; t5617.tag = STRING_TYPE; t5617.value.string_type = t5615; if (f27434(t5616, t5617)==FALSE_TYPE) goto l1579; /* x246956 */ /* x246955 */ /* x246954 */ return q522; l1579: /* x251184 */ /* x246960 */ /* x246959 */ t5619 = "DEFINE-RADIO-BUTTONS"; /* x246958 */ t5618 = a33577; /* x246957 */ t5620.tag = STRING_TYPE; t5620.value.string_type = t5618; t5621.tag = STRING_TYPE; t5621.value.string_type = t5619; if (f27434(t5620, t5621)==FALSE_TYPE) goto l1581; /* x246963 */ /* x246962 */ /* x246961 */ return q521; l1581: /* x251183 */ /* x246967 */ /* x246966 */ t5623 = "REDRAW-BUTTONS"; /* x246965 */ t5622 = a33577; /* x246964 */ t5624.tag = STRING_TYPE; t5624.value.string_type = t5622; t5625.tag = STRING_TYPE; t5625.value.string_type = t5623; if (f27434(t5624, t5625)==FALSE_TYPE) goto l1583; /* x246970 */ /* x246969 */ /* x246968 */ return q520; l1583: /* x251182 */ /* x246974 */ /* x246973 */ t5627 = "DEFINE-BUTTON"; /* x246972 */ t5626 = a33577; /* x246971 */ t5628.tag = STRING_TYPE; t5628.value.string_type = t5626; t5629.tag = STRING_TYPE; t5629.value.string_type = t5627; if (f27434(t5628, t5629)==FALSE_TYPE) goto l1585; /* x246977 */ /* x246976 */ /* x246975 */ return q519; l1585: /* x251181 */ /* x246981 */ /* x246980 */ t5631 = "DEFINE-TOGGLE-BUTTON"; /* x246979 */ t5630 = a33577; /* x246978 */ t5632.tag = STRING_TYPE; t5632.value.string_type = t5630; t5633.tag = STRING_TYPE; t5633.value.string_type = t5631; if (f27434(t5632, t5633)==FALSE_TYPE) goto l1587; /* x246984 */ /* x246983 */ /* x246982 */ return q518; l1587: /* x251180 */ /* x246988 */ /* x246987 */ t5635 = "LAZY"; /* x246986 */ t5634 = a33577; /* x246985 */ t5636.tag = STRING_TYPE; t5636.value.string_type = t5634; t5637.tag = STRING_TYPE; t5637.value.string_type = t5635; if (f27434(t5636, t5637)==FALSE_TYPE) goto l1589; /* x246991 */ /* x246990 */ /* x246989 */ return q517; l1589: /* x251179 */ /* x246995 */ /* x246994 */ t5639 = "LOCAL-SET!"; /* x246993 */ t5638 = a33577; /* x246992 */ t5640.tag = STRING_TYPE; t5640.value.string_type = t5638; t5641.tag = STRING_TYPE; t5641.value.string_type = t5639; if (f27434(t5640, t5641)==FALSE_TYPE) goto l1591; /* x246998 */ /* x246997 */ /* x246996 */ return q516; l1591: /* x251178 */ /* x247002 */ /* x247001 */ t5643 = "NECESSARILY?"; /* x247000 */ t5642 = a33577; /* x246999 */ t5644.tag = STRING_TYPE; t5644.value.string_type = t5642; t5645.tag = STRING_TYPE; t5645.value.string_type = t5643; if (f27434(t5644, t5645)==FALSE_TYPE) goto l1593; /* x247005 */ /* x247004 */ /* x247003 */ return q515; l1593: /* x251177 */ /* x247009 */ /* x247008 */ t5647 = "POSSIBLY?"; /* x247007 */ t5646 = a33577; /* x247006 */ t5648.tag = STRING_TYPE; t5648.value.string_type = t5646; t5649.tag = STRING_TYPE; t5649.value.string_type = t5647; if (f27434(t5648, t5649)==FALSE_TYPE) goto l1595; /* x247012 */ /* x247011 */ /* x247010 */ return q514; l1595: /* x251176 */ /* x247016 */ /* x247015 */ t5651 = "ALL-VALUES"; /* x247014 */ t5650 = a33577; /* x247013 */ t5652.tag = STRING_TYPE; t5652.value.string_type = t5650; t5653.tag = STRING_TYPE; t5653.value.string_type = t5651; if (f27434(t5652, t5653)==FALSE_TYPE) goto l1597; /* x247019 */ /* x247018 */ /* x247017 */ return q513; l1597: /* x251175 */ /* x247023 */ /* x247022 */ t5655 = "*FAIL?*"; /* x247021 */ t5654 = a33577; /* x247020 */ t5656.tag = STRING_TYPE; t5656.value.string_type = t5654; t5657.tag = STRING_TYPE; t5657.value.string_type = t5655; if (f27434(t5656, t5657)==FALSE_TYPE) goto l1599; /* x247026 */ /* x247025 */ /* x247024 */ return q512; l1599: /* x251174 */ /* x247030 */ /* x247029 */ t5659 = "LOCAL-ONE-VALUE"; /* x247028 */ t5658 = a33577; /* x247027 */ t5660.tag = STRING_TYPE; t5660.value.string_type = t5658; t5661.tag = STRING_TYPE; t5661.value.string_type = t5659; if (f27434(t5660, t5661)==FALSE_TYPE) goto l1601; /* x247033 */ /* x247032 */ /* x247031 */ return q511; l1601: /* x251173 */ /* x247037 */ /* x247036 */ t5663 = "V"; /* x247035 */ t5662 = a33577; /* x247034 */ t5664.tag = STRING_TYPE; t5664.value.string_type = t5662; t5665.tag = STRING_TYPE; t5665.value.string_type = t5663; if (f27434(t5664, t5665)==FALSE_TYPE) goto l1603; /* x247040 */ /* x247039 */ /* x247038 */ return q510; l1603: /* x251172 */ /* x247044 */ /* x247043 */ t5667 = "ONE-VALUE"; /* x247042 */ t5666 = a33577; /* x247041 */ t5668.tag = STRING_TYPE; t5668.value.string_type = t5666; t5669.tag = STRING_TYPE; t5669.value.string_type = t5667; if (f27434(t5668, t5669)==FALSE_TYPE) goto l1605; /* x247047 */ /* x247046 */ /* x247045 */ return q509; l1605: /* x251171 */ /* x247051 */ /* x247050 */ t5671 = "FOR-EFFECTS"; /* x247049 */ t5670 = a33577; /* x247048 */ t5672.tag = STRING_TYPE; t5672.value.string_type = t5670; t5673.tag = STRING_TYPE; t5673.value.string_type = t5671; if (f27434(t5672, t5673)==FALSE_TYPE) goto l1607; /* x247054 */ /* x247053 */ /* x247052 */ return q508; l1607: /* x251170 */ /* x247058 */ /* x247057 */ t5675 = "A-BOOLEAN"; /* x247056 */ t5674 = a33577; /* x247055 */ t5676.tag = STRING_TYPE; t5676.value.string_type = t5674; t5677.tag = STRING_TYPE; t5677.value.string_type = t5675; if (f27434(t5676, t5677)==FALSE_TYPE) goto l1609; /* x247061 */ /* x247060 */ /* x247059 */ return q507; l1609: /* x251169 */ /* x247065 */ /* x247064 */ t5679 = "FAIL"; /* x247063 */ t5678 = a33577; /* x247062 */ t5680.tag = STRING_TYPE; t5680.value.string_type = t5678; t5681.tag = STRING_TYPE; t5681.value.string_type = t5679; if (f27434(t5680, t5681)==FALSE_TYPE) goto l1611; /* x247068 */ /* x247067 */ /* x247066 */ return q506; l1611: /* x251168 */ /* x247072 */ /* x247071 */ t5683 = "EITHER"; /* x247070 */ t5682 = a33577; /* x247069 */ t5684.tag = STRING_TYPE; t5684.value.string_type = t5682; t5685.tag = STRING_TYPE; t5685.value.string_type = t5683; if (f27434(t5684, t5685)==FALSE_TYPE) goto l1613; /* x247075 */ /* x247074 */ /* x247073 */ return q505; l1613: /* x251167 */ /* x247079 */ /* x247078 */ t5687 = "WHILE"; /* x247077 */ t5686 = a33577; /* x247076 */ t5688.tag = STRING_TYPE; t5688.value.string_type = t5686; t5689.tag = STRING_TYPE; t5689.value.string_type = t5687; if (f27434(t5688, t5689)==FALSE_TYPE) goto l1615; /* x247082 */ /* x247081 */ /* x247080 */ return q504; l1615: /* x251166 */ /* x247086 */ /* x247085 */ t5691 = "UPON-FAILURE"; /* x247084 */ t5690 = a33577; /* x247083 */ t5692.tag = STRING_TYPE; t5692.value.string_type = t5690; t5693.tag = STRING_TYPE; t5693.value.string_type = t5691; if (f27434(t5692, t5693)==FALSE_TYPE) goto l1617; /* x247089 */ /* x247088 */ /* x247087 */ return q503; l1617: /* x251165 */ /* x247093 */ /* x247092 */ t5695 = "P"; /* x247091 */ t5694 = a33577; /* x247090 */ t5696.tag = STRING_TYPE; t5696.value.string_type = t5694; t5697.tag = STRING_TYPE; t5697.value.string_type = t5695; if (f27434(t5696, t5697)==FALSE_TYPE) goto l1619; /* x247096 */ /* x247095 */ /* x247094 */ return q502; l1619: /* x251164 */ /* x247100 */ /* x247099 */ t5699 = "DEFINE-STRUCTURE"; /* x247098 */ t5698 = a33577; /* x247097 */ t5700.tag = STRING_TYPE; t5700.value.string_type = t5698; t5701.tag = STRING_TYPE; t5701.value.string_type = t5699; if (f27434(t5700, t5701)==FALSE_TYPE) goto l1621; /* x247103 */ /* x247102 */ /* x247101 */ return q501; l1621: /* x251163 */ /* x247107 */ /* x247106 */ t5703 = "IN-PACKAGE"; /* x247105 */ t5702 = a33577; /* x247104 */ t5704.tag = STRING_TYPE; t5704.value.string_type = t5702; t5705.tag = STRING_TYPE; t5705.value.string_type = t5703; if (f27434(t5704, t5705)==FALSE_TYPE) goto l1623; /* x247110 */ /* x247109 */ /* x247108 */ return q500; l1623: /* x251162 */ /* x247114 */ /* x247113 */ t5707 = "FOREIGN-DEFINE"; /* x247112 */ t5706 = a33577; /* x247111 */ t5708.tag = STRING_TYPE; t5708.value.string_type = t5706; t5709.tag = STRING_TYPE; t5709.value.string_type = t5707; if (f27434(t5708, t5709)==FALSE_TYPE) goto l1625; /* x247117 */ /* x247116 */ /* x247115 */ return q499; l1625: /* x251161 */ /* x247121 */ /* x247120 */ t5711 = "FOREIGN-FUNCTION"; /* x247119 */ t5710 = a33577; /* x247118 */ t5712.tag = STRING_TYPE; t5712.value.string_type = t5710; t5713.tag = STRING_TYPE; t5713.value.string_type = t5711; if (f27434(t5712, t5713)==FALSE_TYPE) goto l1627; /* x247124 */ /* x247123 */ /* x247122 */ return q498; l1627: /* x251160 */ /* x247128 */ /* x247127 */ t5715 = "UNSIGNED-INT"; /* x247126 */ t5714 = a33577; /* x247125 */ t5716.tag = STRING_TYPE; t5716.value.string_type = t5714; t5717.tag = STRING_TYPE; t5717.value.string_type = t5715; if (f27434(t5716, t5717)==FALSE_TYPE) goto l1629; /* x247131 */ /* x247130 */ /* x247129 */ return q497; l1629: /* x251159 */ /* x247135 */ /* x247134 */ t5719 = "STRUCT"; /* x247133 */ t5718 = a33577; /* x247132 */ t5720.tag = STRING_TYPE; t5720.value.string_type = t5718; t5721.tag = STRING_TYPE; t5721.value.string_type = t5719; if (f27434(t5720, t5721)==FALSE_TYPE) goto l1631; /* x247138 */ /* x247137 */ /* x247136 */ return q496; l1631: /* x251158 */ /* x247142 */ /* x247141 */ t5723 = "FUNCTION"; /* x247140 */ t5722 = a33577; /* x247139 */ t5724.tag = STRING_TYPE; t5724.value.string_type = t5722; t5725.tag = STRING_TYPE; t5725.value.string_type = t5723; if (f27434(t5724, t5725)==FALSE_TYPE) goto l1633; /* x247145 */ /* x247144 */ /* x247143 */ return q495; l1633: /* x251157 */ /* x247149 */ /* x247148 */ t5727 = "UNLESS"; /* x247147 */ t5726 = a33577; /* x247146 */ t5728.tag = STRING_TYPE; t5728.value.string_type = t5726; t5729.tag = STRING_TYPE; t5729.value.string_type = t5727; if (f27434(t5728, t5729)==FALSE_TYPE) goto l1635; /* x247152 */ /* x247151 */ /* x247150 */ return q494; l1635: /* x251156 */ /* x247156 */ /* x247155 */ t5731 = "WHEN"; /* x247154 */ t5730 = a33577; /* x247153 */ t5732.tag = STRING_TYPE; t5732.value.string_type = t5730; t5733.tag = STRING_TYPE; t5733.value.string_type = t5731; if (f27434(t5732, t5733)==FALSE_TYPE) goto l1637; /* x247159 */ /* x247158 */ /* x247157 */ return q493; l1637: /* x251155 */ /* x247163 */ /* x247162 */ t5735 = "FILENAME"; /* x247161 */ t5734 = a33577; /* x247160 */ t5736.tag = STRING_TYPE; t5736.value.string_type = t5734; t5737.tag = STRING_TYPE; t5737.value.string_type = t5735; if (f27434(t5736, t5737)==FALSE_TYPE) goto l1639; /* x247166 */ /* x247165 */ /* x247164 */ return q492; l1639: /* x251154 */ /* x247170 */ /* x247169 */ t5739 = "PROMISE"; /* x247168 */ t5738 = a33577; /* x247167 */ t5740.tag = STRING_TYPE; t5740.value.string_type = t5738; t5741.tag = STRING_TYPE; t5741.value.string_type = t5739; if (f27434(t5740, t5741)==FALSE_TYPE) goto l1641; /* x247173 */ /* x247172 */ /* x247171 */ return q491; l1641: /* x251153 */ /* x247177 */ /* x247176 */ t5743 = "FORCE"; /* x247175 */ t5742 = a33577; /* x247174 */ t5744.tag = STRING_TYPE; t5744.value.string_type = t5742; t5745.tag = STRING_TYPE; t5745.value.string_type = t5743; if (f27434(t5744, t5745)==FALSE_TYPE) goto l1643; /* x247180 */ /* x247179 */ /* x247178 */ return q490; l1643: /* x251152 */ /* x247184 */ /* x247183 */ t5747 = "FOR-EACH"; /* x247182 */ t5746 = a33577; /* x247181 */ t5748.tag = STRING_TYPE; t5748.value.string_type = t5746; t5749.tag = STRING_TYPE; t5749.value.string_type = t5747; if (f27434(t5748, t5749)==FALSE_TYPE) goto l1645; /* x247187 */ /* x247186 */ /* x247185 */ return q489; l1645: /* x251151 */ /* x247191 */ /* x247190 */ t5751 = "MAP"; /* x247189 */ t5750 = a33577; /* x247188 */ t5752.tag = STRING_TYPE; t5752.value.string_type = t5750; t5753.tag = STRING_TYPE; t5753.value.string_type = t5751; if (f27434(t5752, t5753)==FALSE_TYPE) goto l1647; /* x247194 */ /* x247193 */ /* x247192 */ return q488; l1647: /* x251150 */ /* x247198 */ /* x247197 */ t5755 = "ARGS"; /* x247196 */ t5754 = a33577; /* x247195 */ t5756.tag = STRING_TYPE; t5756.value.string_type = t5754; t5757.tag = STRING_TYPE; t5757.value.string_type = t5755; if (f27434(t5756, t5757)==FALSE_TYPE) goto l1649; /* x247201 */ /* x247200 */ /* x247199 */ return q487; l1649: /* x251149 */ /* x247205 */ /* x247204 */ t5759 = "ARG1"; /* x247203 */ t5758 = a33577; /* x247202 */ t5760.tag = STRING_TYPE; t5760.value.string_type = t5758; t5761.tag = STRING_TYPE; t5761.value.string_type = t5759; if (f27434(t5760, t5761)==FALSE_TYPE) goto l1651; /* x247208 */ /* x247207 */ /* x247206 */ return q486; l1651: /* x251148 */ /* x247212 */ /* x247211 */ t5763 = "VECTOR-APPEND"; /* x247210 */ t5762 = a33577; /* x247209 */ t5764.tag = STRING_TYPE; t5764.value.string_type = t5762; t5765.tag = STRING_TYPE; t5765.value.string_type = t5763; if (f27434(t5764, t5765)==FALSE_TYPE) goto l1653; /* x247215 */ /* x247214 */ /* x247213 */ return q485; l1653: /* x251147 */ /* x247219 */ /* x247218 */ t5767 = "VECTOR->LIST"; /* x247217 */ t5766 = a33577; /* x247216 */ t5768.tag = STRING_TYPE; t5768.value.string_type = t5766; t5769.tag = STRING_TYPE; t5769.value.string_type = t5767; if (f27434(t5768, t5769)==FALSE_TYPE) goto l1655; /* x247222 */ /* x247221 */ /* x247220 */ return q484; l1655: /* x251146 */ /* x247226 */ /* x247225 */ t5771 = "K2"; /* x247224 */ t5770 = a33577; /* x247223 */ t5772.tag = STRING_TYPE; t5772.value.string_type = t5770; t5773.tag = STRING_TYPE; t5773.value.string_type = t5771; if (f27434(t5772, t5773)==FALSE_TYPE) goto l1657; /* x247229 */ /* x247228 */ /* x247227 */ return q483; l1657: /* x251145 */ /* x247233 */ /* x247232 */ t5775 = "K1"; /* x247231 */ t5774 = a33577; /* x247230 */ t5776.tag = STRING_TYPE; t5776.value.string_type = t5774; t5777.tag = STRING_TYPE; t5777.value.string_type = t5775; if (f27434(t5776, t5777)==FALSE_TYPE) goto l1659; /* x247236 */ /* x247235 */ /* x247234 */ return q482; l1659: /* x251144 */ /* x247240 */ /* x247239 */ t5779 = "FILL"; /* x247238 */ t5778 = a33577; /* x247237 */ t5780.tag = STRING_TYPE; t5780.value.string_type = t5778; t5781.tag = STRING_TYPE; t5781.value.string_type = t5779; if (f27434(t5780, t5781)==FALSE_TYPE) goto l1661; /* x247243 */ /* x247242 */ /* x247241 */ return q481; l1661: /* x251143 */ /* x247247 */ /* x247246 */ t5783 = "STRING->LIST"; /* x247245 */ t5782 = a33577; /* x247244 */ t5784.tag = STRING_TYPE; t5784.value.string_type = t5782; t5785.tag = STRING_TYPE; t5785.value.string_type = t5783; if (f27434(t5784, t5785)==FALSE_TYPE) goto l1663; /* x247250 */ /* x247249 */ /* x247248 */ return q480; l1663: /* x251142 */ /* x247254 */ /* x247253 */ t5787 = "STRING-APPEND"; /* x247252 */ t5786 = a33577; /* x247251 */ t5788.tag = STRING_TYPE; t5788.value.string_type = t5786; t5789.tag = STRING_TYPE; t5789.value.string_type = t5787; if (f27434(t5788, t5789)==FALSE_TYPE) goto l1665; /* x247257 */ /* x247256 */ /* x247255 */ return q479; l1665: /* x251141 */ /* x247261 */ /* x247260 */ t5791 = "STRING-CI>=?"; /* x247259 */ t5790 = a33577; /* x247258 */ t5792.tag = STRING_TYPE; t5792.value.string_type = t5790; t5793.tag = STRING_TYPE; t5793.value.string_type = t5791; if (f27434(t5792, t5793)==FALSE_TYPE) goto l1667; /* x247264 */ /* x247263 */ /* x247262 */ return q478; l1667: /* x251140 */ /* x247268 */ /* x247267 */ t5795 = "STRING-CI<=?"; /* x247266 */ t5794 = a33577; /* x247265 */ t5796.tag = STRING_TYPE; t5796.value.string_type = t5794; t5797.tag = STRING_TYPE; t5797.value.string_type = t5795; if (f27434(t5796, t5797)==FALSE_TYPE) goto l1669; /* x247271 */ /* x247270 */ /* x247269 */ return q477; l1669: /* x251139 */ /* x247275 */ /* x247274 */ t5799 = "STRING-CI>?"; /* x247273 */ t5798 = a33577; /* x247272 */ t5800.tag = STRING_TYPE; t5800.value.string_type = t5798; t5801.tag = STRING_TYPE; t5801.value.string_type = t5799; if (f27434(t5800, t5801)==FALSE_TYPE) goto l1671; /* x247278 */ /* x247277 */ /* x247276 */ return q476; l1671: /* x251138 */ /* x247282 */ /* x247281 */ t5803 = "STRING-CI=?"; /* x247287 */ t5806 = a33577; /* x247286 */ t5808.tag = STRING_TYPE; t5808.value.string_type = t5806; t5809.tag = STRING_TYPE; t5809.value.string_type = t5807; if (f27434(t5808, t5809)==FALSE_TYPE) goto l1675; /* x247292 */ /* x247291 */ /* x247290 */ return q474; l1675: /* x251136 */ /* x247296 */ /* x247295 */ t5811 = "STRING<=?"; /* x247294 */ t5810 = a33577; /* x247293 */ t5812.tag = STRING_TYPE; t5812.value.string_type = t5810; t5813.tag = STRING_TYPE; t5813.value.string_type = t5811; if (f27434(t5812, t5813)==FALSE_TYPE) goto l1677; /* x247299 */ /* x247298 */ /* x247297 */ return q473; l1677: /* x251135 */ /* x247303 */ /* x247302 */ t5815 = "STRING>?"; /* x247301 */ t5814 = a33577; /* x247300 */ t5816.tag = STRING_TYPE; t5816.value.string_type = t5814; t5817.tag = STRING_TYPE; t5817.value.string_type = t5815; if (f27434(t5816, t5817)==FALSE_TYPE) goto l1679; /* x247306 */ /* x247305 */ /* x247304 */ return q472; l1679: /* x251134 */ /* x247310 */ /* x247309 */ t5819 = "STRING=?"; /* x247364 */ t5850 = a33577; /* x247363 */ t5852.tag = STRING_TYPE; t5852.value.string_type = t5850; t5853.tag = STRING_TYPE; t5853.value.string_type = t5851; if (f27434(t5852, t5853)==FALSE_TYPE) goto l1697; /* x247369 */ /* x247368 */ /* x247367 */ return q463; l1697: /* x251125 */ /* x247373 */ /* x247372 */ t5855 = "CHAR-CI<=?"; /* x247371 */ t5854 = a33577; /* x247370 */ t5856.tag = STRING_TYPE; t5856.value.string_type = t5854; t5857.tag = STRING_TYPE; t5857.value.string_type = t5855; if (f27434(t5856, t5857)==FALSE_TYPE) goto l1699; /* x247376 */ /* x247375 */ /* x247374 */ return q462; l1699: /* x251124 */ /* x247380 */ /* x247379 */ t5859 = "CHAR-CI>?"; /* x247378 */ t5858 = a33577; /* x247377 */ t5860.tag = STRING_TYPE; t5860.value.string_type = t5858; t5861.tag = STRING_TYPE; t5861.value.string_type = t5859; if (f27434(t5860, t5861)==FALSE_TYPE) goto l1701; /* x247383 */ /* x247382 */ /* x247381 */ return q461; l1701: /* x251123 */ /* x247387 */ /* x247386 */ t5863 = "CHAR-CINUMBER"; /* x248302 */ t6386 = a33577; /* x248301 */ t6388.tag = STRING_TYPE; t6388.value.string_type = t6386; t6389.tag = STRING_TYPE; t6389.value.string_type = t6387; if (f27434(t6388, t6389)==FALSE_TYPE) goto l1965; /* x248307 */ /* x248306 */ /* x248305 */ return q329; l1965: /* x250991 */ /* x248311 */ /* x248310 */ t6391 = "CHARACTERS"; /* x248309 */ t6390 = a33577; /* x248308 */ t6392.tag = STRING_TYPE; t6392.value.string_type = t6390; t6393.tag = STRING_TYPE; t6393.value.string_type = t6391; if (f27434(t6392, t6393)==FALSE_TYPE) goto l1967; /* x248314 */ /* x248313 */ /* x248312 */ return q328; l1967: /* x250990 */ /* x248318 */ /* x248317 */ t6395 = "MANTISSA-EXPONENT->CHARACTERS"; /* x248316 */ t6394 = a33577; /* x248315 */ t6396.tag = STRING_TYPE; t6396.value.string_type = t6394; t6397.tag = STRING_TYPE; t6397.value.string_type = t6395; if (f27434(t6396, t6397)==FALSE_TYPE) goto l1969; /* x248321 */ /* x248320 */ /* x248319 */ return q327; l1969: /* x250989 */ /* x248325 */ /* x248324 */ t6399 = "HEX-DIGIT->CHAR"; /* x248323 */ t6398 = a33577; /* x248322 */ t6400.tag = STRING_TYPE; t6400.value.string_type = t6398; t6401.tag = STRING_TYPE; t6401.value.string_type = t6399; if (f27434(t6400, t6401)==FALSE_TYPE) goto l1971; /* x248328 */ /* x248327 */ /* x248326 */ return q326; l1971: /* x250988 */ /* x248332 */ /* x248331 */ t6403 = "RADIX-INVERTED"; /* x248330 */ t6402 = a33577; /* x248329 */ t6404.tag = STRING_TYPE; t6404.value.string_type = t6402; t6405.tag = STRING_TYPE; t6405.value.string_type = t6403; if (f27434(t6404, t6405)==FALSE_TYPE) goto l1973; /* x248335 */ /* x248334 */ /* x248333 */ return q325; l1973: /* x250987 */ /* x248339 */ /* x248338 */ t6407 = "RADIX-INEXACT"; /* x248337 */ t6406 = a33577; /* x248336 */ t6408.tag = STRING_TYPE; t6408.value.string_type = t6406; t6409.tag = STRING_TYPE; t6409.value.string_type = t6407; if (f27434(t6408, t6409)==FALSE_TYPE) goto l1975; /* x248342 */ /* x248341 */ /* x248340 */ return q324; l1975: /* x250986 */ /* x248346 */ /* x248345 */ t6411 = "PROBABLY-RADIX"; /* x248344 */ t6410 = a33577; /* x248343 */ t6412.tag = STRING_TYPE; t6412.value.string_type = t6410; t6413.tag = STRING_TYPE; t6413.value.string_type = t6411; if (f27434(t6412, t6413)==FALSE_TYPE) goto l1977; /* x248349 */ /* x248348 */ /* x248347 */ return q323; l1977: /* x250985 */ /* x248353 */ /* x248352 */ t6415 = "RADIX-EXACT"; /* x248351 */ t6414 = a33577; /* x248350 */ t6416.tag = STRING_TYPE; t6416.value.string_type = t6414; t6417.tag = STRING_TYPE; t6417.value.string_type = t6415; if (f27434(t6416, t6417)==FALSE_TYPE) goto l1979; /* x248356 */ /* x248355 */ /* x248354 */ return q322; l1979: /* x250984 */ /* x248360 */ /* x248359 */ t6419 = "OPTIONAL-RADIX"; /* x248358 */ t6418 = a33577; /* x248357 */ t6420.tag = STRING_TYPE; t6420.value.string_type = t6418; t6421.tag = STRING_TYPE; t6421.value.string_type = t6419; if (f27434(t6420, t6421)==FALSE_TYPE) goto l1981; /* x248363 */ /* x248362 */ /* x248361 */ return q321; l1981: /* x250983 */ /* x248367 */ /* x248366 */ t6423 = "NUMBER->STRING"; /* x248365 */ t6422 = a33577; /* x248364 */ t6424.tag = STRING_TYPE; t6424.value.string_type = t6422; t6425.tag = STRING_TYPE; t6425.value.string_type = t6423; if (f27434(t6424, t6425)==FALSE_TYPE) goto l1983; /* x248370 */ /* x248369 */ /* x248368 */ return q320; l1983: /* x250982 */ /* x248374 */ /* x248373 */ t6427 = "DISPLAY2"; /* x248372 */ t6426 = a33577; /* x248371 */ t6428.tag = STRING_TYPE; t6428.value.string_type = t6426; t6429.tag = STRING_TYPE; t6429.value.string_type = t6427; if (f27434(t6428, t6429)==FALSE_TYPE) goto l1985; /* x248377 */ /* x248376 */ /* x248375 */ return q319; l1985: /* x250981 */ /* x248381 */ /* x248380 */ t6431 = "OBJ"; /* x248379 */ t6430 = a33577; /* x248378 */ t6432.tag = STRING_TYPE; t6432.value.string_type = t6430; t6433.tag = STRING_TYPE; t6433.value.string_type = t6431; if (f27434(t6432, t6433)==FALSE_TYPE) goto l1987; /* x248384 */ /* x248383 */ /* x248382 */ return q318; l1987: /* x250980 */ /* x248388 */ /* x248387 */ t6435 = "WRITE2"; /* x248386 */ t6434 = a33577; /* x248385 */ t6436.tag = STRING_TYPE; t6436.value.string_type = t6434; t6437.tag = STRING_TYPE; t6437.value.string_type = t6435; if (f27434(t6436, t6437)==FALSE_TYPE) goto l1989; /* x248391 */ /* x248390 */ /* x248389 */ return q317; l1989: /* x250979 */ /* x248395 */ /* x248394 */ t6439 = "DISPLAY-INEXACT-REAL2"; /* x248393 */ t6438 = a33577; /* x248392 */ t6440.tag = STRING_TYPE; t6440.value.string_type = t6438; t6441.tag = STRING_TYPE; t6441.value.string_type = t6439; if (f27434(t6440, t6441)==FALSE_TYPE) goto l1991; /* x248398 */ /* x248397 */ /* x248396 */ return q316; l1991: /* x250978 */ /* x248402 */ /* x248401 */ t6443 = "DIGIT"; /* x248400 */ t6442 = a33577; /* x248399 */ t6444.tag = STRING_TYPE; t6444.value.string_type = t6442; t6445.tag = STRING_TYPE; t6445.value.string_type = t6443; if (f27434(t6444, t6445)==FALSE_TYPE) goto l1993; /* x248405 */ /* x248404 */ /* x248403 */ return q315; l1993: /* x250977 */ /* x248409 */ /* x248408 */ t6447 = "FLOAT-DIGIT"; /* x248407 */ t6446 = a33577; /* x248406 */ t6448.tag = STRING_TYPE; t6448.value.string_type = t6446; t6449.tag = STRING_TYPE; t6449.value.string_type = t6447; if (f27434(t6448, t6449)==FALSE_TYPE) goto l1995; /* x248412 */ /* x248411 */ /* x248410 */ return q314; l1995: /* x250976 */ /* x248416 */ /* x248415 */ t6451 = "EXPONENT"; /* x248414 */ t6450 = a33577; /* x248413 */ t6452.tag = STRING_TYPE; t6452.value.string_type = t6450; t6453.tag = STRING_TYPE; t6453.value.string_type = t6451; if (f27434(t6452, t6453)==FALSE_TYPE) goto l1997; /* x248419 */ /* x248418 */ /* x248417 */ return q313; l1997: /* x250975 */ /* x248423 */ /* x248422 */ t6455 = "MANTISSA"; /* x248421 */ t6454 = a33577; /* x248420 */ t6456.tag = STRING_TYPE; t6456.value.string_type = t6454; t6457.tag = STRING_TYPE; t6457.value.string_type = t6455; if (f27434(t6456, t6457)==FALSE_TYPE) goto l1999; /* x248426 */ /* x248425 */ /* x248424 */ return q312; l1999: /* x250974 */ /* x248430 */ /* x248429 */ t6459 = "DISPLAY-MANTISSA-EXPONENT2"; /* x248428 */ t6458 = a33577; /* x248427 */ t6460.tag = STRING_TYPE; t6460.value.string_type = t6458; t6461.tag = STRING_TYPE; t6461.value.string_type = t6459; if (f27434(t6460, t6461)==FALSE_TYPE) goto l2001; /* x248433 */ /* x248432 */ /* x248431 */ return q311; l2001: /* x250973 */ /* x248437 */ /* x248436 */ t6463 = "NUMBER"; /* x248435 */ t6462 = a33577; /* x248434 */ t6464.tag = STRING_TYPE; t6464.value.string_type = t6462; t6465.tag = STRING_TYPE; t6465.value.string_type = t6463; if (f27434(t6464, t6465)==FALSE_TYPE) goto l2003; /* x248440 */ /* x248439 */ /* x248438 */ return q310; l2003: /* x250972 */ /* x248444 */ /* x248443 */ t6467 = "DISPLAY-EXACT-INTEGER2"; /* x248442 */ t6466 = a33577; /* x248441 */ t6468.tag = STRING_TYPE; t6468.value.string_type = t6466; t6469.tag = STRING_TYPE; t6469.value.string_type = t6467; if (f27434(t6468, t6469)==FALSE_TYPE) goto l2005; /* x248447 */ /* x248446 */ /* x248445 */ return q309; l2005: /* x250971 */ /* x248451 */ /* x248450 */ t6471 = "I"; /* x248449 */ t6470 = a33577; /* x248448 */ t6472.tag = STRING_TYPE; t6472.value.string_type = t6470; t6473.tag = STRING_TYPE; t6473.value.string_type = t6471; if (f27434(t6472, t6473)==FALSE_TYPE) goto l2007; /* x248454 */ /* x248453 */ /* x248452 */ return q308; l2007: /* x250970 */ /* x248458 */ /* x248457 */ t6475 = "DISPLAY-STRING2"; /* x248456 */ t6474 = a33577; /* x248455 */ t6476.tag = STRING_TYPE; t6476.value.string_type = t6474; t6477.tag = STRING_TYPE; t6477.value.string_type = t6475; if (f27434(t6476, t6477)==FALSE_TYPE) goto l2009; /* x248461 */ /* x248460 */ /* x248459 */ return q307; l2009: /* x250969 */ /* x248465 */ /* x248464 */ t6479 = "DISPLAY-METHODS"; /* x248463 */ t6478 = a33577; /* x248462 */ t6480.tag = STRING_TYPE; t6480.value.string_type = t6478; t6481.tag = STRING_TYPE; t6481.value.string_type = t6479; if (f27434(t6480, t6481)==FALSE_TYPE) goto l2011; /* x248468 */ /* x248467 */ /* x248466 */ return q306; l2011: /* x250968 */ /* x248472 */ /* x248471 */ t6483 = "WRITE-METHODS"; /* x248470 */ t6482 = a33577; /* x248469 */ t6484.tag = STRING_TYPE; t6484.value.string_type = t6482; t6485.tag = STRING_TYPE; t6485.value.string_type = t6483; if (f27434(t6484, t6485)==FALSE_TYPE) goto l2013; /* x248475 */ /* x248474 */ /* x248473 */ return q305; l2013: /* x250967 */ /* x248479 */ /* x248478 */ t6487 = "THE-CURRENT-OUTPUT-PORT"; /* x248477 */ t6486 = a33577; /* x248476 */ t6488.tag = STRING_TYPE; t6488.value.string_type = t6486; t6489.tag = STRING_TYPE; t6489.value.string_type = t6487; if (f27434(t6488, t6489)==FALSE_TYPE) goto l2015; /* x248482 */ /* x248481 */ /* x248480 */ return q304; l2015: /* x250966 */ /* x248486 */ /* x248485 */ t6491 = "THE-CURRENT-INPUT-PORT"; /* x248484 */ t6490 = a33577; /* x248483 */ t6492.tag = STRING_TYPE; t6492.value.string_type = t6490; t6493.tag = STRING_TYPE; t6493.value.string_type = t6491; if (f27434(t6492, t6493)==FALSE_TYPE) goto l2017; /* x248489 */ /* x248488 */ /* x248487 */ return q303; l2017: /* x250965 */ /* x248493 */ /* x248492 */ t6495 = "BUFFER"; /* x248491 */ t6494 = a33577; /* x248490 */ t6496.tag = STRING_TYPE; t6496.value.string_type = t6494; t6497.tag = STRING_TYPE; t6497.value.string_type = t6495; if (f27434(t6496, t6497)==FALSE_TYPE) goto l2019; /* x248496 */ /* x248495 */ /* x248494 */ return q302; l2019: /* x250964 */ /* x248500 */ /* x248499 */ t6499 = "-."; /* x248498 */ t6498 = a33577; /* x248497 */ t6500.tag = STRING_TYPE; t6500.value.string_type = t6498; t6501.tag = STRING_TYPE; t6501.value.string_type = t6499; if (f27434(t6500, t6501)==FALSE_TYPE) goto l2021; /* x248503 */ /* x248502 */ /* x248501 */ return q3; l2021: /* x250963 */ /* x248507 */ /* x248506 */ t6503 = "+."; /* x248505 */ t6502 = a33577; /* x248504 */ t6504.tag = STRING_TYPE; t6504.value.string_type = t6502; t6505.tag = STRING_TYPE; t6505.value.string_type = t6503; if (f27434(t6504, t6505)==FALSE_TYPE) goto l2023; /* x248510 */ /* x248509 */ /* x248508 */ return q5; l2023: /* x250962 */ /* x248514 */ /* x248513 */ t6507 = "LIST->VECTOR"; /* x248512 */ t6506 = a33577; /* x248511 */ t6508.tag = STRING_TYPE; t6508.value.string_type = t6506; t6509.tag = STRING_TYPE; t6509.value.string_type = t6507; if (f27434(t6508, t6509)==FALSE_TYPE) goto l2025; /* x248517 */ /* x248516 */ /* x248515 */ return q301; l2025: /* x250961 */ /* x248521 */ /* x248520 */ t6511 = "C5"; /* x248519 */ t6510 = a33577; /* x248518 */ t6512.tag = STRING_TYPE; t6512.value.string_type = t6510; t6513.tag = STRING_TYPE; t6513.value.string_type = t6511; if (f27434(t6512, t6513)==FALSE_TYPE) goto l2027; /* x248524 */ /* x248523 */ /* x248522 */ return q300; l2027: /* x250960 */ /* x248528 */ /* x248527 */ t6515 = "CHAR>?"; /* x248526 */ t6514 = a33577; /* x248525 */ t6516.tag = STRING_TYPE; t6516.value.string_type = t6514; t6517.tag = STRING_TYPE; t6517.value.string_type = t6515; if (f27434(t6516, t6517)==FALSE_TYPE) goto l2029; /* x248531 */ /* x248530 */ /* x248529 */ return q299; l2029: /* x250959 */ /* x248535 */ /* x248534 */ t6519 = "CHARSTRING"; /* x248638 */ t6578 = a33577; /* x248637 */ t6580.tag = STRING_TYPE; t6580.value.string_type = t6578; t6581.tag = STRING_TYPE; t6581.value.string_type = t6579; if (f27434(t6580, t6581)==FALSE_TYPE) goto l2061; /* x248643 */ /* x248642 */ /* x248641 */ return q283; l2061: /* x250943 */ /* x248647 */ /* x248646 */ t6583 = "STRING->SYMBOL"; /* x248645 */ t6582 = a33577; /* x248644 */ t6584.tag = STRING_TYPE; t6584.value.string_type = t6582; t6585.tag = STRING_TYPE; t6585.value.string_type = t6583; if (f27434(t6584, t6585)==FALSE_TYPE) goto l2063; /* x248650 */ /* x248649 */ /* x248648 */ return q282; l2063: /* x250942 */ /* x248654 */ /* x248653 */ t6587 = "S"; /* x248652 */ t6586 = a33577; /* x248651 */ t6588.tag = STRING_TYPE; t6588.value.string_type = t6586; t6589.tag = STRING_TYPE; t6589.value.string_type = t6587; if (f27434(t6588, t6589)==FALSE_TYPE) goto l2065; /* x248657 */ /* x248656 */ /* x248655 */ return q281; l2065: /* x250941 */ /* x248661 */ /* x248660 */ t6591 = "READ-SYMBOL"; /* x248659 */ t6590 = a33577; /* x248658 */ t6592.tag = STRING_TYPE; t6592.value.string_type = t6590; t6593.tag = STRING_TYPE; t6593.value.string_type = t6591; if (f27434(t6592, t6593)==FALSE_TYPE) goto l2067; /* x248664 */ /* x248663 */ /* x248662 */ return q280; l2067: /* x250940 */ /* x248668 */ /* x248667 */ t6595 = "CHAR-SUBSEQUENT?"; /* x248666 */ t6594 = a33577; /* x248665 */ t6596.tag = STRING_TYPE; t6596.value.string_type = t6594; t6597.tag = STRING_TYPE; t6597.value.string_type = t6595; if (f27434(t6596, t6597)==FALSE_TYPE) goto l2069; /* x248671 */ /* x248670 */ /* x248669 */ return q279; l2069: /* x250939 */ /* x248675 */ /* x248674 */ t6599 = "CHAR-ALPHABETIC?"; /* x248673 */ t6598 = a33577; /* x248672 */ t6600.tag = STRING_TYPE; t6600.value.string_type = t6598; t6601.tag = STRING_TYPE; t6601.value.string_type = t6599; if (f27434(t6600, t6601)==FALSE_TYPE) goto l2071; /* x248678 */ /* x248677 */ /* x248676 */ return q278; l2071: /* x250938 */ /* x248682 */ /* x248681 */ t6603 = "CHAR-INITIAL?"; /* x248680 */ t6602 = a33577; /* x248679 */ t6604.tag = STRING_TYPE; t6604.value.string_type = t6602; t6605.tag = STRING_TYPE; t6605.value.string_type = t6603; if (f27434(t6604, t6605)==FALSE_TYPE) goto l2073; /* x248685 */ /* x248684 */ /* x248683 */ return q277; l2073: /* x250937 */ /* x248689 */ /* x248688 */ t6607 = "READ-NUMBER"; /* x248687 */ t6606 = a33577; /* x248686 */ t6608.tag = STRING_TYPE; t6608.value.string_type = t6606; t6609.tag = STRING_TYPE; t6609.value.string_type = t6607; if (f27434(t6608, t6609)==FALSE_TYPE) goto l2075; /* x248692 */ /* x248691 */ /* x248690 */ return q276; l2075: /* x250936 */ /* x248696 */ /* x248695 */ t6611 = "C3"; /* x248694 */ t6610 = a33577; /* x248693 */ t6612.tag = STRING_TYPE; t6612.value.string_type = t6610; t6613.tag = STRING_TYPE; t6613.value.string_type = t6611; if (f27434(t6612, t6613)==FALSE_TYPE) goto l2077; /* x248699 */ /* x248698 */ /* x248697 */ return q275; l2077: /* x250935 */ /* x248703 */ /* x248702 */ t6615 = "C2"; /* x248701 */ t6614 = a33577; /* x248700 */ t6616.tag = STRING_TYPE; t6616.value.string_type = t6614; t6617.tag = STRING_TYPE; t6617.value.string_type = t6615; if (f27434(t6616, t6617)==FALSE_TYPE) goto l2079; /* x248706 */ /* x248705 */ /* x248704 */ return q274; l2079: /* x250934 */ /* x248710 */ /* x248709 */ t6619 = "C1"; /* x248708 */ t6618 = a33577; /* x248707 */ t6620.tag = STRING_TYPE; t6620.value.string_type = t6618; t6621.tag = STRING_TYPE; t6621.value.string_type = t6619; if (f27434(t6620, t6621)==FALSE_TYPE) goto l2081; /* x248713 */ /* x248712 */ /* x248711 */ return q273; l2081: /* x250933 */ /* x248717 */ /* x248716 */ t6623 = "M"; /* x248715 */ t6622 = a33577; /* x248714 */ t6624.tag = STRING_TYPE; t6624.value.string_type = t6622; t6625.tag = STRING_TYPE; t6625.value.string_type = t6623; if (f27434(t6624, t6625)==FALSE_TYPE) goto l2083; /* x248720 */ /* x248719 */ /* x248718 */ return q272; l2083: /* x250932 */ /* x248724 */ /* x248723 */ t6627 = "READ-INEXACT-NUMBER"; /* x248722 */ t6626 = a33577; /* x248721 */ t6628.tag = STRING_TYPE; t6628.value.string_type = t6626; t6629.tag = STRING_TYPE; t6629.value.string_type = t6627; if (f27434(t6628, t6629)==FALSE_TYPE) goto l2085; /* x248727 */ /* x248726 */ /* x248725 */ return q271; l2085: /* x250931 */ /* x248731 */ /* x248730 */ t6631 = "READ-EXACT-HEXADECIMAL-INTEGER"; /* x248729 */ t6630 = a33577; /* x248728 */ t6632.tag = STRING_TYPE; t6632.value.string_type = t6630; t6633.tag = STRING_TYPE; t6633.value.string_type = t6631; if (f27434(t6632, t6633)==FALSE_TYPE) goto l2087; /* x248734 */ /* x248733 */ /* x248732 */ return q270; l2087: /* x250930 */ /* x248738 */ /* x248737 */ t6635 = "CHAR-NUMERIC?"; /* x248736 */ t6634 = a33577; /* x248735 */ t6636.tag = STRING_TYPE; t6636.value.string_type = t6634; t6637.tag = STRING_TYPE; t6637.value.string_type = t6635; if (f27434(t6636, t6637)==FALSE_TYPE) goto l2089; /* x248741 */ /* x248740 */ /* x248739 */ return q269; l2089: /* x250929 */ /* x248745 */ /* x248744 */ t6639 = "READ-EXACT-DECIMAL-INTEGER"; /* x248743 */ t6638 = a33577; /* x248742 */ t6640.tag = STRING_TYPE; t6640.value.string_type = t6638; t6641.tag = STRING_TYPE; t6641.value.string_type = t6639; if (f27434(t6640, t6641)==FALSE_TYPE) goto l2091; /* x248748 */ /* x248747 */ /* x248746 */ return q268; l2091: /* x250928 */ /* x248752 */ /* x248751 */ t6643 = "CHAR<=?"; /* x248750 */ t6642 = a33577; /* x248749 */ t6644.tag = STRING_TYPE; t6644.value.string_type = t6642; t6645.tag = STRING_TYPE; t6645.value.string_type = t6643; if (f27434(t6644, t6645)==FALSE_TYPE) goto l2093; /* x248755 */ /* x248754 */ /* x248753 */ return q267; l2093: /* x250927 */ /* x248759 */ /* x248758 */ t6647 = "CHAR>=?"; /* x248757 */ t6646 = a33577; /* x248756 */ t6648.tag = STRING_TYPE; t6648.value.string_type = t6646; t6649.tag = STRING_TYPE; t6649.value.string_type = t6647; if (f27434(t6648, t6649)==FALSE_TYPE) goto l2095; /* x248762 */ /* x248761 */ /* x248760 */ return q266; l2095: /* x250926 */ /* x248766 */ /* x248765 */ t6651 = "READ-EXACT-OCTAL-INTEGER"; /* x248764 */ t6650 = a33577; /* x248763 */ t6652.tag = STRING_TYPE; t6652.value.string_type = t6650; t6653.tag = STRING_TYPE; t6653.value.string_type = t6651; if (f27434(t6652, t6653)==FALSE_TYPE) goto l2097; /* x248769 */ /* x248768 */ /* x248767 */ return q265; l2097: /* x250925 */ /* x248773 */ /* x248772 */ t6655 = "READ-CHAR"; /* x248771 */ t6654 = a33577; /* x248770 */ t6656.tag = STRING_TYPE; t6656.value.string_type = t6654; t6657.tag = STRING_TYPE; t6657.value.string_type = t6655; if (f27434(t6656, t6657)==FALSE_TYPE) goto l2099; /* x248776 */ /* x248775 */ /* x248774 */ return q264; l2099: /* x250924 */ /* x248780 */ /* x248779 */ t6659 = "CHAR=?"; /* x248778 */ t6658 = a33577; /* x248777 */ t6660.tag = STRING_TYPE; t6660.value.string_type = t6658; t6661.tag = STRING_TYPE; t6661.value.string_type = t6659; if (f27434(t6660, t6661)==FALSE_TYPE) goto l2101; /* x248783 */ /* x248782 */ /* x248781 */ return q263; l2101: /* x250923 */ /* x248787 */ /* x248786 */ t6663 = "PEEK-CHAR"; /* x248785 */ t6662 = a33577; /* x248784 */ t6664.tag = STRING_TYPE; t6664.value.string_type = t6662; t6665.tag = STRING_TYPE; t6665.value.string_type = t6663; if (f27434(t6664, t6665)==FALSE_TYPE) goto l2103; /* x248790 */ /* x248789 */ /* x248788 */ return q262; l2103: /* x250922 */ /* x248794 */ /* x248793 */ t6667 = "C"; /* x248792 */ t6666 = a33577; /* x248791 */ t6668.tag = STRING_TYPE; t6668.value.string_type = t6666; t6669.tag = STRING_TYPE; t6669.value.string_type = t6667; if (f27434(t6668, t6669)==FALSE_TYPE) goto l2105; /* x248797 */ /* x248796 */ /* x248795 */ return q261; l2105: /* x250921 */ /* x248801 */ /* x248800 */ t6671 = "N"; /* x248799 */ t6670 = a33577; /* x248798 */ t6672.tag = STRING_TYPE; t6672.value.string_type = t6670; t6673.tag = STRING_TYPE; t6673.value.string_type = t6671; if (f27434(t6672, t6673)==FALSE_TYPE) goto l2107; /* x248804 */ /* x248803 */ /* x248802 */ return q260; l2107: /* x250920 */ /* x248808 */ /* x248807 */ t6675 = "READ-EXACT-BINARY-INTEGER"; /* x248806 */ t6674 = a33577; /* x248805 */ t6676.tag = STRING_TYPE; t6676.value.string_type = t6674; t6677.tag = STRING_TYPE; t6677.value.string_type = t6675; if (f27434(t6676, t6677)==FALSE_TYPE) goto l2109; /* x248811 */ /* x248810 */ /* x248809 */ return q259; l2109: /* x250919 */ /* x248815 */ /* x248814 */ t6679 = "OBJECT"; /* x248813 */ t6678 = a33577; /* x248812 */ t6680.tag = STRING_TYPE; t6680.value.string_type = t6678; t6681.tag = STRING_TYPE; t6681.value.string_type = t6679; if (f27434(t6680, t6681)==FALSE_TYPE) goto l2111; /* x248818 */ /* x248817 */ /* x248816 */ return q7; l2111: /* x250918 */ /* x248822 */ /* x248821 */ t6683 = "STATE"; /* x248820 */ t6682 = a33577; /* x248819 */ t6684.tag = STRING_TYPE; t6684.value.string_type = t6682; t6685.tag = STRING_TYPE; t6685.value.string_type = t6683; if (f27434(t6684, t6685)==FALSE_TYPE) goto l2113; /* x248825 */ /* x248824 */ /* x248823 */ return q258; l2113: /* x250917 */ /* x248829 */ /* x248828 */ t6687 = "CLOSE"; /* x248827 */ t6686 = a33577; /* x248826 */ t6688.tag = STRING_TYPE; t6688.value.string_type = t6686; t6689.tag = STRING_TYPE; t6689.value.string_type = t6687; if (f27434(t6688, t6689)==FALSE_TYPE) goto l2115; /* x248832 */ /* x248831 */ /* x248830 */ return q0; l2115: /* x250916 */ /* x248836 */ /* x248835 */ t6691 = "STRING-COPY"; /* x248834 */ t6690 = a33577; /* x248833 */ t6692.tag = STRING_TYPE; t6692.value.string_type = t6690; t6693.tag = STRING_TYPE; t6693.value.string_type = t6691; if (f27434(t6692, t6693)==FALSE_TYPE) goto l2117; /* x248839 */ /* x248838 */ /* x248837 */ return q257; l2117: /* x250915 */ /* x248843 */ /* x248842 */ t6695 = "DOT"; /* x248841 */ t6694 = a33577; /* x248840 */ t6696.tag = STRING_TYPE; t6696.value.string_type = t6694; t6697.tag = STRING_TYPE; t6697.value.string_type = t6695; if (f27434(t6696, t6697)==FALSE_TYPE) goto l2119; /* x248846 */ /* x248845 */ /* x248844 */ return q256; l2119: /* x250914 */ /* x248850 */ /* x248849 */ t6699 = "CURRENT-INPUT-PORT"; /* x248848 */ t6698 = a33577; /* x248847 */ t6700.tag = STRING_TYPE; t6700.value.string_type = t6698; t6701.tag = STRING_TYPE; t6701.value.string_type = t6699; if (f27434(t6700, t6701)==FALSE_TYPE) goto l2121; /* x248853 */ /* x248852 */ /* x248851 */ return q255; l2121: /* x250913 */ /* x248857 */ /* x248856 */ t6703 = "PORT"; /* x248855 */ t6702 = a33577; /* x248854 */ t6704.tag = STRING_TYPE; t6704.value.string_type = t6702; t6705.tag = STRING_TYPE; t6705.value.string_type = t6703; if (f27434(t6704, t6705)==FALSE_TYPE) goto l2123; /* x248860 */ /* x248859 */ /* x248858 */ return q254; l2123: /* x250912 */ /* x248864 */ /* x248863 */ t6707 = "READ"; /* x248862 */ t6706 = a33577; /* x248861 */ t6708.tag = STRING_TYPE; t6708.value.string_type = t6706; t6709.tag = STRING_TYPE; t6709.value.string_type = t6707; if (f27434(t6708, t6709)==FALSE_TYPE) goto l2125; /* x248867 */ /* x248866 */ /* x248865 */ return q253; l2125: /* x250911 */ /* x248871 */ /* x248870 */ t6711 = "QUASIQUOTE"; /* x248869 */ t6710 = a33577; /* x248868 */ t6712.tag = STRING_TYPE; t6712.value.string_type = t6710; t6713.tag = STRING_TYPE; t6713.value.string_type = t6711; if (f27434(t6712, t6713)==FALSE_TYPE) goto l2127; /* x248874 */ /* x248873 */ /* x248872 */ return q10; l2127: /* x250910 */ /* x248878 */ /* x248877 */ t6715 = "X"; /* x248876 */ t6714 = a33577; /* x248875 */ t6716.tag = STRING_TYPE; t6716.value.string_type = t6714; t6717.tag = STRING_TYPE; t6717.value.string_type = t6715; if (f27434(t6716, t6717)==FALSE_TYPE) goto l2129; /* x248881 */ /* x248880 */ /* x248879 */ return q252; l2129: /* x250909 */ /* x248885 */ /* x248884 */ t6719 = "RESULT"; /* x248883 */ t6718 = a33577; /* x248882 */ t6720.tag = STRING_TYPE; t6720.value.string_type = t6718; t6721.tag = STRING_TYPE; t6721.value.string_type = t6719; if (f27434(t6720, t6721)==FALSE_TYPE) goto l2131; /* x248888 */ /* x248887 */ /* x248886 */ return q251; l2131: /* x250908 */ /* x248892 */ /* x248891 */ t6723 = "RESULT-READY?"; /* x248890 */ t6722 = a33577; /* x248889 */ t6724.tag = STRING_TYPE; t6724.value.string_type = t6722; t6725.tag = STRING_TYPE; t6725.value.string_type = t6723; if (f27434(t6724, t6725)==FALSE_TYPE) goto l2133; /* x248895 */ /* x248894 */ /* x248893 */ return q250; l2133: /* x250907 */ /* x248899 */ /* x248898 */ t6727 = "PROC"; /* x248897 */ t6726 = a33577; /* x248896 */ t6728.tag = STRING_TYPE; t6728.value.string_type = t6726; t6729.tag = STRING_TYPE; t6729.value.string_type = t6727; if (f27434(t6728, t6729)==FALSE_TYPE) goto l2135; /* x248902 */ /* x248901 */ /* x248900 */ return q249; l2135: /* x250906 */ /* x248906 */ /* x248905 */ t6731 = "DELAY"; /* x248904 */ t6730 = a33577; /* x248903 */ t6732.tag = STRING_TYPE; t6732.value.string_type = t6730; t6733.tag = STRING_TYPE; t6733.value.string_type = t6731; if (f27434(t6732, t6733)==FALSE_TYPE) goto l2137; /* x248909 */ /* x248908 */ /* x248907 */ return q248; l2137: /* x250905 */ /* x248913 */ /* x248912 */ t6735 = "DO"; /* x248911 */ t6734 = a33577; /* x248910 */ t6736.tag = STRING_TYPE; t6736.value.string_type = t6734; t6737.tag = STRING_TYPE; t6737.value.string_type = t6735; if (f27434(t6736, t6737)==FALSE_TYPE) goto l2139; /* x248916 */ /* x248915 */ /* x248914 */ return q247; l2139: /* x250904 */ /* x248920 */ /* x248919 */ t6739 = "LET*"; /* x248918 */ t6738 = a33577; /* x248917 */ t6740.tag = STRING_TYPE; t6740.value.string_type = t6738; t6741.tag = STRING_TYPE; t6741.value.string_type = t6739; if (f27434(t6740, t6741)==FALSE_TYPE) goto l2141; /* x248923 */ /* x248922 */ /* x248921 */ return q246; l2141: /* x250903 */ /* x248927 */ /* x248926 */ t6743 = "LETREC"; /* x248925 */ t6742 = a33577; /* x248924 */ t6744.tag = STRING_TYPE; t6744.value.string_type = t6742; t6745.tag = STRING_TYPE; t6745.value.string_type = t6743; if (f27434(t6744, t6745)==FALSE_TYPE) goto l2143; /* x248930 */ /* x248929 */ /* x248928 */ return q245; l2143: /* x250902 */ /* x248934 */ /* x248933 */ t6747 = "AND"; /* x248932 */ t6746 = a33577; /* x248931 */ t6748.tag = STRING_TYPE; t6748.value.string_type = t6746; t6749.tag = STRING_TYPE; t6749.value.string_type = t6747; if (f27434(t6748, t6749)==FALSE_TYPE) goto l2145; /* x248937 */ /* x248936 */ /* x248935 */ return q244; l2145: /* x250901 */ /* x248941 */ /* x248940 */ t6751 = "CASE"; /* x248939 */ t6750 = a33577; /* x248938 */ t6752.tag = STRING_TYPE; t6752.value.string_type = t6750; t6753.tag = STRING_TYPE; t6753.value.string_type = t6751; if (f27434(t6752, t6753)==FALSE_TYPE) goto l2147; /* x248944 */ /* x248943 */ /* x248942 */ return q243; l2147: /* x250900 */ /* x248948 */ /* x248947 */ t6755 = "LET"; /* x248946 */ t6754 = a33577; /* x248945 */ t6756.tag = STRING_TYPE; t6756.value.string_type = t6754; t6757.tag = STRING_TYPE; t6757.value.string_type = t6755; if (f27434(t6756, t6757)==FALSE_TYPE) goto l2149; /* x248951 */ /* x248950 */ /* x248949 */ return q242; l2149: /* x250899 */ /* x248955 */ /* x248954 */ t6759 = "OR"; /* x248953 */ t6758 = a33577; /* x248952 */ t6760.tag = STRING_TYPE; t6760.value.string_type = t6758; t6761.tag = STRING_TYPE; t6761.value.string_type = t6759; if (f27434(t6760, t6761)==FALSE_TYPE) goto l2151; /* x248958 */ /* x248957 */ /* x248956 */ return q241; l2151: /* x250898 */ /* x248962 */ /* x248961 */ t6763 = "COND"; /* x248960 */ t6762 = a33577; /* x248959 */ t6764.tag = STRING_TYPE; t6764.value.string_type = t6762; t6765.tag = STRING_TYPE; t6765.value.string_type = t6763; if (f27434(t6764, t6765)==FALSE_TYPE) goto l2153; /* x248965 */ /* x248964 */ /* x248963 */ return q240; l2153: /* x250897 */ /* x248969 */ /* x248968 */ t6767 = "BEGIN"; /* x248967 */ t6766 = a33577; /* x248966 */ t6768.tag = STRING_TYPE; t6768.value.string_type = t6766; t6769.tag = STRING_TYPE; t6769.value.string_type = t6767; if (f27434(t6768, t6769)==FALSE_TYPE) goto l2155; /* x248972 */ /* x248971 */ /* x248970 */ return q239; l2155: /* x250896 */ /* x248976 */ /* x248975 */ t6771 = "UNQUOTE"; /* x248974 */ t6770 = a33577; /* x248973 */ t6772.tag = STRING_TYPE; t6772.value.string_type = t6770; t6773.tag = STRING_TYPE; t6773.value.string_type = t6771; if (f27434(t6772, t6773)==FALSE_TYPE) goto l2157; /* x248979 */ /* x248978 */ /* x248977 */ return q8; l2157: /* x250895 */ /* x248983 */ /* x248982 */ t6775 = "UNQUOTE-SPLICING"; /* x248981 */ t6774 = a33577; /* x248980 */ t6776.tag = STRING_TYPE; t6776.value.string_type = t6774; t6777.tag = STRING_TYPE; t6777.value.string_type = t6775; if (f27434(t6776, t6777)==FALSE_TYPE) goto l2159; /* x248986 */ /* x248985 */ /* x248984 */ return q9; l2159: /* x250894 */ /* x248990 */ /* x248989 */ t6779 = "INFINITY?"; /* x248988 */ t6778 = a33577; /* x248987 */ t6780.tag = STRING_TYPE; t6780.value.string_type = t6778; t6781.tag = STRING_TYPE; t6781.value.string_type = t6779; if (f27434(t6780, t6781)==FALSE_TYPE) goto l2161; /* x248993 */ /* x248992 */ /* x248991 */ return q238; l2161: /* x250893 */ /* x248997 */ /* x248996 */ t6783 = "POINTER-SIZE"; /* x248995 */ t6782 = a33577; /* x248994 */ t6784.tag = STRING_TYPE; t6784.value.string_type = t6782; t6785.tag = STRING_TYPE; t6785.value.string_type = t6783; if (f27434(t6784, t6785)==FALSE_TYPE) goto l2163; /* x249000 */ /* x248999 */ /* x248998 */ return q237; l2163: /* x250892 */ /* x249004 */ /* x249003 */ t6787 = "RAND-MAX"; /* x249002 */ t6786 = a33577; /* x249001 */ t6788.tag = STRING_TYPE; t6788.value.string_type = t6786; t6789.tag = STRING_TYPE; t6789.value.string_type = t6787; if (f27434(t6788, t6789)==FALSE_TYPE) goto l2165; /* x249007 */ /* x249006 */ /* x249005 */ return q236; l2165: /* x250891 */ /* x249011 */ /* x249010 */ t6791 = "CLOCKS-PER-SECOND"; /* x249009 */ t6790 = a33577; /* x249008 */ t6792.tag = STRING_TYPE; t6792.value.string_type = t6790; t6793.tag = STRING_TYPE; t6793.value.string_type = t6791; if (f27434(t6792, t6793)==FALSE_TYPE) goto l2167; /* x249014 */ /* x249013 */ /* x249012 */ return q235; l2167: /* x250890 */ /* x249018 */ /* x249017 */ t6795 = "WRITE-CHAR2"; /* x249016 */ t6794 = a33577; /* x249015 */ t6796.tag = STRING_TYPE; t6796.value.string_type = t6794; t6797.tag = STRING_TYPE; t6797.value.string_type = t6795; if (f27434(t6796, t6797)==FALSE_TYPE) goto l2169; /* x249021 */ /* x249020 */ /* x249019 */ return q234; l2169: /* x250889 */ /* x249025 */ /* x249024 */ t6799 = "STANDARD-OUTPUT-PORT"; /* x249023 */ t6798 = a33577; /* x249022 */ t6800.tag = STRING_TYPE; t6800.value.string_type = t6798; t6801.tag = STRING_TYPE; t6801.value.string_type = t6799; if (f27434(t6800, t6801)==FALSE_TYPE) goto l2171; /* x249028 */ /* x249027 */ /* x249026 */ return q233; l2171: /* x250888 */ /* x249032 */ /* x249031 */ t6803 = "STANDARD-INPUT-PORT"; /* x249030 */ t6802 = a33577; /* x249029 */ t6804.tag = STRING_TYPE; t6804.value.string_type = t6802; t6805.tag = STRING_TYPE; t6805.value.string_type = t6803; if (f27434(t6804, t6805)==FALSE_TYPE) goto l2173; /* x249035 */ /* x249034 */ /* x249033 */ return q232; l2173: /* x250887 */ /* x249039 */ /* x249038 */ t6807 = "CHAR-READY?1"; /* x249037 */ t6806 = a33577; /* x249036 */ t6808.tag = STRING_TYPE; t6808.value.string_type = t6806; t6809.tag = STRING_TYPE; t6809.value.string_type = t6807; if (f27434(t6808, t6809)==FALSE_TYPE) goto l2175; /* x249042 */ /* x249041 */ /* x249040 */ return q231; l2175: /* x250886 */ /* x249046 */ /* x249045 */ t6811 = "VOID26"; /* x249044 */ t6810 = a33577; /* x249043 */ t6812.tag = STRING_TYPE; t6812.value.string_type = t6810; t6813.tag = STRING_TYPE; t6813.value.string_type = t6811; if (f27434(t6812, t6813)==FALSE_TYPE) goto l2177; /* x249049 */ /* x249048 */ /* x249047 */ return q230; l2177: /* x250885 */ /* x249053 */ /* x249052 */ t6815 = "PEEK-CHAR1"; /* x249051 */ t6814 = a33577; /* x249050 */ t6816.tag = STRING_TYPE; t6816.value.string_type = t6814; t6817.tag = STRING_TYPE; t6817.value.string_type = t6815; if (f27434(t6816, t6817)==FALSE_TYPE) goto l2179; /* x249056 */ /* x249055 */ /* x249054 */ return q229; l2179: /* x250884 */ /* x249060 */ /* x249059 */ t6819 = "VOID25"; /* x249058 */ t6818 = a33577; /* x249057 */ t6820.tag = STRING_TYPE; t6820.value.string_type = t6818; t6821.tag = STRING_TYPE; t6821.value.string_type = t6819; if (f27434(t6820, t6821)==FALSE_TYPE) goto l2181; /* x249063 */ /* x249062 */ /* x249061 */ return q228; l2181: /* x250883 */ /* x249067 */ /* x249066 */ t6823 = "READ-CHAR1"; /* x249065 */ t6822 = a33577; /* x249064 */ t6824.tag = STRING_TYPE; t6824.value.string_type = t6822; t6825.tag = STRING_TYPE; t6825.value.string_type = t6823; if (f27434(t6824, t6825)==FALSE_TYPE) goto l2183; /* x249070 */ /* x249069 */ /* x249068 */ return q227; l2183: /* x250882 */ /* x249074 */ /* x249073 */ t6827 = "VOID24"; /* x249072 */ t6826 = a33577; /* x249071 */ t6828.tag = STRING_TYPE; t6828.value.string_type = t6826; t6829.tag = STRING_TYPE; t6829.value.string_type = t6827; if (f27434(t6828, t6829)==FALSE_TYPE) goto l2185; /* x249077 */ /* x249076 */ /* x249075 */ return q226; l2185: /* x250881 */ /* x249081 */ /* x249080 */ t6831 = "VOID23"; /* x249079 */ t6830 = a33577; /* x249078 */ t6832.tag = STRING_TYPE; t6832.value.string_type = t6830; t6833.tag = STRING_TYPE; t6833.value.string_type = t6831; if (f27434(t6832, t6833)==FALSE_TYPE) goto l2187; /* x249084 */ /* x249083 */ /* x249082 */ return q225; l2187: /* x250880 */ /* x249088 */ /* x249087 */ t6835 = "VOID22"; /* x249086 */ t6834 = a33577; /* x249085 */ t6836.tag = STRING_TYPE; t6836.value.string_type = t6834; t6837.tag = STRING_TYPE; t6837.value.string_type = t6835; if (f27434(t6836, t6837)==FALSE_TYPE) goto l2189; /* x249091 */ /* x249090 */ /* x249089 */ return q224; l2189: /* x250879 */ /* x249095 */ /* x249094 */ t6839 = "VOID21"; /* x249093 */ t6838 = a33577; /* x249092 */ t6840.tag = STRING_TYPE; t6840.value.string_type = t6838; t6841.tag = STRING_TYPE; t6841.value.string_type = t6839; if (f27434(t6840, t6841)==FALSE_TYPE) goto l2191; /* x249098 */ /* x249097 */ /* x249096 */ return q223; l2191: /* x250878 */ /* x249102 */ /* x249101 */ t6843 = "VOID20"; /* x249100 */ t6842 = a33577; /* x249099 */ t6844.tag = STRING_TYPE; t6844.value.string_type = t6842; t6845.tag = STRING_TYPE; t6845.value.string_type = t6843; if (f27434(t6844, t6845)==FALSE_TYPE) goto l2193; /* x249105 */ /* x249104 */ /* x249103 */ return q222; l2193: /* x250877 */ /* x249109 */ /* x249108 */ t6847 = "VOID19"; /* x249107 */ t6846 = a33577; /* x249106 */ t6848.tag = STRING_TYPE; t6848.value.string_type = t6846; t6849.tag = STRING_TYPE; t6849.value.string_type = t6847; if (f27434(t6848, t6849)==FALSE_TYPE) goto l2195; /* x249112 */ /* x249111 */ /* x249110 */ return q221; l2195: /* x250876 */ /* x249116 */ /* x249115 */ t6851 = "VOID18"; /* x249114 */ t6850 = a33577; /* x249113 */ t6852.tag = STRING_TYPE; t6852.value.string_type = t6850; t6853.tag = STRING_TYPE; t6853.value.string_type = t6851; if (f27434(t6852, t6853)==FALSE_TYPE) goto l2197; /* x249119 */ /* x249118 */ /* x249117 */ return q220; l2197: /* x250875 */ /* x249123 */ /* x249122 */ t6855 = "VOID17"; /* x249121 */ t6854 = a33577; /* x249120 */ t6856.tag = STRING_TYPE; t6856.value.string_type = t6854; t6857.tag = STRING_TYPE; t6857.value.string_type = t6855; if (f27434(t6856, t6857)==FALSE_TYPE) goto l2199; /* x249126 */ /* x249125 */ /* x249124 */ return q219; l2199: /* x250874 */ /* x249130 */ /* x249129 */ t6859 = "VOID16"; /* x249128 */ t6858 = a33577; /* x249127 */ t6860.tag = STRING_TYPE; t6860.value.string_type = t6858; t6861.tag = STRING_TYPE; t6861.value.string_type = t6859; if (f27434(t6860, t6861)==FALSE_TYPE) goto l2201; /* x249133 */ /* x249132 */ /* x249131 */ return q218; l2201: /* x250873 */ /* x249137 */ /* x249136 */ t6863 = "VOID15"; /* x249135 */ t6862 = a33577; /* x249134 */ t6864.tag = STRING_TYPE; t6864.value.string_type = t6862; t6865.tag = STRING_TYPE; t6865.value.string_type = t6863; if (f27434(t6864, t6865)==FALSE_TYPE) goto l2203; /* x249140 */ /* x249139 */ /* x249138 */ return q217; l2203: /* x250872 */ /* x249144 */ /* x249143 */ t6867 = "VOID14"; /* x249142 */ t6866 = a33577; /* x249141 */ t6868.tag = STRING_TYPE; t6868.value.string_type = t6866; t6869.tag = STRING_TYPE; t6869.value.string_type = t6867; if (f27434(t6868, t6869)==FALSE_TYPE) goto l2205; /* x249147 */ /* x249146 */ /* x249145 */ return q216; l2205: /* x250871 */ /* x249151 */ /* x249150 */ t6871 = "VOID13"; /* x249149 */ t6870 = a33577; /* x249148 */ t6872.tag = STRING_TYPE; t6872.value.string_type = t6870; t6873.tag = STRING_TYPE; t6873.value.string_type = t6871; if (f27434(t6872, t6873)==FALSE_TYPE) goto l2207; /* x249154 */ /* x249153 */ /* x249152 */ return q215; l2207: /* x250870 */ /* x249158 */ /* x249157 */ t6875 = "VOID12"; /* x249156 */ t6874 = a33577; /* x249155 */ t6876.tag = STRING_TYPE; t6876.value.string_type = t6874; t6877.tag = STRING_TYPE; t6877.value.string_type = t6875; if (f27434(t6876, t6877)==FALSE_TYPE) goto l2209; /* x249161 */ /* x249160 */ /* x249159 */ return q214; l2209: /* x250869 */ /* x249165 */ /* x249164 */ t6879 = "VOID11"; /* x249163 */ t6878 = a33577; /* x249162 */ t6880.tag = STRING_TYPE; t6880.value.string_type = t6878; t6881.tag = STRING_TYPE; t6881.value.string_type = t6879; if (f27434(t6880, t6881)==FALSE_TYPE) goto l2211; /* x249168 */ /* x249167 */ /* x249166 */ return q213; l2211: /* x250868 */ /* x249172 */ /* x249171 */ t6883 = "VOID10"; /* x249170 */ t6882 = a33577; /* x249169 */ t6884.tag = STRING_TYPE; t6884.value.string_type = t6882; t6885.tag = STRING_TYPE; t6885.value.string_type = t6883; if (f27434(t6884, t6885)==FALSE_TYPE) goto l2213; /* x249175 */ /* x249174 */ /* x249173 */ return q212; l2213: /* x250867 */ /* x249179 */ /* x249178 */ t6887 = "VOID9"; /* x249177 */ t6886 = a33577; /* x249176 */ t6888.tag = STRING_TYPE; t6888.value.string_type = t6886; t6889.tag = STRING_TYPE; t6889.value.string_type = t6887; if (f27434(t6888, t6889)==FALSE_TYPE) goto l2215; /* x249182 */ /* x249181 */ /* x249180 */ return q211; l2215: /* x250866 */ /* x249186 */ /* x249185 */ t6891 = "VOID8"; /* x249184 */ t6890 = a33577; /* x249183 */ t6892.tag = STRING_TYPE; t6892.value.string_type = t6890; t6893.tag = STRING_TYPE; t6893.value.string_type = t6891; if (f27434(t6892, t6893)==FALSE_TYPE) goto l2217; /* x249189 */ /* x249188 */ /* x249187 */ return q210; l2217: /* x250865 */ /* x249193 */ /* x249192 */ t6895 = "VOID7"; /* x249191 */ t6894 = a33577; /* x249190 */ t6896.tag = STRING_TYPE; t6896.value.string_type = t6894; t6897.tag = STRING_TYPE; t6897.value.string_type = t6895; if (f27434(t6896, t6897)==FALSE_TYPE) goto l2219; /* x249196 */ /* x249195 */ /* x249194 */ return q209; l2219: /* x250864 */ /* x249200 */ /* x249199 */ t6899 = "VOID6"; /* x249198 */ t6898 = a33577; /* x249197 */ t6900.tag = STRING_TYPE; t6900.value.string_type = t6898; t6901.tag = STRING_TYPE; t6901.value.string_type = t6899; if (f27434(t6900, t6901)==FALSE_TYPE) goto l2221; /* x249203 */ /* x249202 */ /* x249201 */ return q208; l2221: /* x250863 */ /* x249207 */ /* x249206 */ t6903 = "VOID5"; /* x249205 */ t6902 = a33577; /* x249204 */ t6904.tag = STRING_TYPE; t6904.value.string_type = t6902; t6905.tag = STRING_TYPE; t6905.value.string_type = t6903; if (f27434(t6904, t6905)==FALSE_TYPE) goto l2223; /* x249210 */ /* x249209 */ /* x249208 */ return q207; l2223: /* x250862 */ /* x249214 */ /* x249213 */ t6907 = "VOID4"; /* x249212 */ t6906 = a33577; /* x249211 */ t6908.tag = STRING_TYPE; t6908.value.string_type = t6906; t6909.tag = STRING_TYPE; t6909.value.string_type = t6907; if (f27434(t6908, t6909)==FALSE_TYPE) goto l2225; /* x249217 */ /* x249216 */ /* x249215 */ return q206; l2225: /* x250861 */ /* x249221 */ /* x249220 */ t6911 = "VOID3"; /* x249219 */ t6910 = a33577; /* x249218 */ t6912.tag = STRING_TYPE; t6912.value.string_type = t6910; t6913.tag = STRING_TYPE; t6913.value.string_type = t6911; if (f27434(t6912, t6913)==FALSE_TYPE) goto l2227; /* x249224 */ /* x249223 */ /* x249222 */ return q205; l2227: /* x250860 */ /* x249228 */ /* x249227 */ t6915 = "VOID2"; /* x249226 */ t6914 = a33577; /* x249225 */ t6916.tag = STRING_TYPE; t6916.value.string_type = t6914; t6917.tag = STRING_TYPE; t6917.value.string_type = t6915; if (f27434(t6916, t6917)==FALSE_TYPE) goto l2229; /* x249231 */ /* x249230 */ /* x249229 */ return q204; l2229: /* x250859 */ /* x249235 */ /* x249234 */ t6919 = "VOID1"; /* x249233 */ t6918 = a33577; /* x249232 */ t6920.tag = STRING_TYPE; t6920.value.string_type = t6918; t6921.tag = STRING_TYPE; t6921.value.string_type = t6919; if (f27434(t6920, t6921)==FALSE_TYPE) goto l2231; /* x249238 */ /* x249237 */ /* x249236 */ return q203; l2231: /* x250858 */ /* x249242 */ /* x249241 */ t6923 = "FOO"; /* x249240 */ t6922 = a33577; /* x249239 */ t6924.tag = STRING_TYPE; t6924.value.string_type = t6922; t6925.tag = STRING_TYPE; t6925.value.string_type = t6923; if (f27434(t6924, t6925)==FALSE_TYPE) goto l2233; /* x249245 */ /* x249244 */ /* x249243 */ return q202; l2233: /* x250857 */ /* x249249 */ /* x249248 */ t6927 = "C:NO-RETURN"; /* x249247 */ t6926 = a33577; /* x249246 */ t6928.tag = STRING_TYPE; t6928.value.string_type = t6926; t6929.tag = STRING_TYPE; t6929.value.string_type = t6927; if (f27434(t6928, t6929)==FALSE_TYPE) goto l2235; /* x249252 */ /* x249251 */ /* x249250 */ return q201; l2235: /* x250856 */ /* x249256 */ /* x249255 */ t6931 = "C:PROTECT"; /* x249254 */ t6930 = a33577; /* x249253 */ t6932.tag = STRING_TYPE; t6932.value.string_type = t6930; t6933.tag = STRING_TYPE; t6933.value.string_type = t6931; if (f27434(t6932, t6933)==FALSE_TYPE) goto l2237; /* x249259 */ /* x249258 */ /* x249257 */ return q200; l2237: /* x250855 */ /* x249263 */ /* x249262 */ t6935 = "C:DECLARATION"; /* x249261 */ t6934 = a33577; /* x249260 */ t6936.tag = STRING_TYPE; t6936.value.string_type = t6934; t6937.tag = STRING_TYPE; t6937.value.string_type = t6935; if (f27434(t6936, t6937)==FALSE_TYPE) goto l2239; /* x249266 */ /* x249265 */ /* x249264 */ return q199; l2239: /* x250854 */ /* x249270 */ /* x249269 */ t6939 = "CODE"; /* x249268 */ t6938 = a33577; /* x249267 */ t6940.tag = STRING_TYPE; t6940.value.string_type = t6938; t6941.tag = STRING_TYPE; t6941.value.string_type = t6939; if (f27434(t6940, t6941)==FALSE_TYPE) goto l2241; /* x249273 */ /* x249272 */ /* x249271 */ return q12; l2241: /* x250853 */ /* x249277 */ /* x249276 */ t6943 = "THE"; /* x249275 */ t6942 = a33577; /* x249274 */ t6944.tag = STRING_TYPE; t6944.value.string_type = t6942; t6945.tag = STRING_TYPE; t6945.value.string_type = t6943; if (f27434(t6944, t6945)==FALSE_TYPE) goto l2243; /* x249280 */ /* x249279 */ /* x249278 */ return q198; l2243: /* x250852 */ /* x249284 */ /* x249283 */ t6947 = "UNION"; /* x249282 */ t6946 = a33577; /* x249281 */ t6948.tag = STRING_TYPE; t6948.value.string_type = t6946; t6949.tag = STRING_TYPE; t6949.value.string_type = t6947; if (f27434(t6948, t6949)==FALSE_TYPE) goto l2245; /* x249287 */ /* x249286 */ /* x249285 */ return q197; l2245: /* x250851 */ /* x249291 */ /* x249290 */ t6951 = "LIST*"; /* x249289 */ t6950 = a33577; /* x249288 */ t6952.tag = STRING_TYPE; t6952.value.string_type = t6950; t6953.tag = STRING_TYPE; t6953.value.string_type = t6951; if (f27434(t6952, t6953)==FALSE_TYPE) goto l2247; /* x249294 */ /* x249293 */ /* x249292 */ return q196; l2247: /* x250850 */ /* x249298 */ /* x249297 */ t6955 = "DISPLACED-VECTOR"; /* x249296 */ t6954 = a33577; /* x249295 */ t6956.tag = STRING_TYPE; t6956.value.string_type = t6954; t6957.tag = STRING_TYPE; t6957.value.string_type = t6955; if (f27434(t6956, t6957)==FALSE_TYPE) goto l2249; /* x249301 */ /* x249300 */ /* x249299 */ return q195; l2249: /* x250849 */ /* x249305 */ /* x249304 */ t6959 = "NONHEADED-VECTOR"; /* x249303 */ t6958 = a33577; /* x249302 */ t6960.tag = STRING_TYPE; t6960.value.string_type = t6958; t6961.tag = STRING_TYPE; t6961.value.string_type = t6959; if (f27434(t6960, t6961)==FALSE_TYPE) goto l2251; /* x249308 */ /* x249307 */ /* x249306 */ return q194; l2251: /* x250848 */ /* x249312 */ /* x249311 */ t6963 = "HEADED-VECTOR"; /* x249310 */ t6962 = a33577; /* x249309 */ t6964.tag = STRING_TYPE; t6964.value.string_type = t6962; t6965.tag = STRING_TYPE; t6965.value.string_type = t6963; if (f27434(t6964, t6965)==FALSE_TYPE) goto l2253; /* x249315 */ /* x249314 */ /* x249313 */ return q193; l2253: /* x250847 */ /* x249319 */ /* x249318 */ t6967 = "LIST"; /* x249317 */ t6966 = a33577; /* x249316 */ t6968.tag = STRING_TYPE; t6968.value.string_type = t6966; t6969.tag = STRING_TYPE; t6969.value.string_type = t6967; if (f27434(t6968, t6969)==FALSE_TYPE) goto l2255; /* x249322 */ /* x249321 */ /* x249320 */ return q1; l2255: /* x250846 */ /* x249326 */ /* x249325 */ t6971 = "LIST+"; /* x249324 */ t6970 = a33577; /* x249323 */ t6972.tag = STRING_TYPE; t6972.value.string_type = t6970; t6973.tag = STRING_TYPE; t6973.value.string_type = t6971; if (f27434(t6972, t6973)==FALSE_TYPE) goto l2257; /* x249329 */ /* x249328 */ /* x249327 */ return q192; l2257: /* x250845 */ /* x249333 */ /* x249332 */ t6975 = "CONTINUATION"; /* x249331 */ t6974 = a33577; /* x249330 */ t6976.tag = STRING_TYPE; t6976.value.string_type = t6974; t6977.tag = STRING_TYPE; t6977.value.string_type = t6975; if (f27434(t6976, t6977)==FALSE_TYPE) goto l2259; /* x249336 */ /* x249335 */ /* x249334 */ return q191; l2259: /* x250844 */ /* x249340 */ /* x249339 */ t6979 = "NATIVE-PROCEDURE"; /* x249338 */ t6978 = a33577; /* x249337 */ t6980.tag = STRING_TYPE; t6980.value.string_type = t6978; t6981.tag = STRING_TYPE; t6981.value.string_type = t6979; if (f27434(t6980, t6981)==FALSE_TYPE) goto l2261; /* x249343 */ /* x249342 */ /* x249341 */ return q190; l2261: /* x250843 */ /* x249347 */ /* x249346 */ t6983 = "EXTERNAL-SYMBOL"; /* x249345 */ t6982 = a33577; /* x249344 */ t6984.tag = STRING_TYPE; t6984.value.string_type = t6982; t6985.tag = STRING_TYPE; t6985.value.string_type = t6983; if (f27434(t6984, t6985)==FALSE_TYPE) goto l2263; /* x249350 */ /* x249349 */ /* x249348 */ return q189; l2263: /* x250842 */ /* x249354 */ /* x249353 */ t6987 = "UP"; /* x249352 */ t6986 = a33577; /* x249351 */ t6988.tag = STRING_TYPE; t6988.value.string_type = t6986; t6989.tag = STRING_TYPE; t6989.value.string_type = t6987; if (f27434(t6988, t6989)==FALSE_TYPE) goto l2265; /* x249357 */ /* x249356 */ /* x249355 */ return q188; l2265: /* x250841 */ /* x249361 */ /* x249360 */ t6991 = "HEAP"; /* x249359 */ t6990 = a33577; /* x249358 */ t6992.tag = STRING_TYPE; t6992.value.string_type = t6990; t6993.tag = STRING_TYPE; t6993.value.string_type = t6991; if (f27434(t6992, t6993)==FALSE_TYPE) goto l2267; /* x249364 */ /* x249363 */ /* x249362 */ return q187; l2267: /* x250840 */ /* x249368 */ /* x249367 */ t6995 = "STACK"; /* x249366 */ t6994 = a33577; /* x249365 */ t6996.tag = STRING_TYPE; t6996.value.string_type = t6994; t6997.tag = STRING_TYPE; t6997.value.string_type = t6995; if (f27434(t6996, t6997)==FALSE_TYPE) goto l2269; /* x249371 */ /* x249370 */ /* x249369 */ return q186; l2269: /* x250839 */ /* x249375 */ /* x249374 */ t6999 = "NEVER"; /* x249373 */ t6998 = a33577; /* x249372 */ t7000.tag = STRING_TYPE; t7000.value.string_type = t6998; t7001.tag = STRING_TYPE; t7001.value.string_type = t6999; if (f27434(t7000, t7001)==FALSE_TYPE) goto l2271; /* x249378 */ /* x249377 */ /* x249376 */ return q185; l2271: /* x250838 */ /* x249382 */ /* x249381 */ t7003 = "INTEGER->POINTER"; /* x249380 */ t7002 = a33577; /* x249379 */ t7004.tag = STRING_TYPE; t7004.value.string_type = t7002; t7005.tag = STRING_TYPE; t7005.value.string_type = t7003; if (f27434(t7004, t7005)==FALSE_TYPE) goto l2273; /* x249385 */ /* x249384 */ /* x249383 */ return q184; l2273: /* x250837 */ /* x249389 */ /* x249388 */ t7007 = "INTEGER->OUTPUT-PORT"; /* x249387 */ t7006 = a33577; /* x249386 */ t7008.tag = STRING_TYPE; t7008.value.string_type = t7006; t7009.tag = STRING_TYPE; t7009.value.string_type = t7007; if (f27434(t7008, t7009)==FALSE_TYPE) goto l2275; /* x249392 */ /* x249391 */ /* x249390 */ return q183; l2275: /* x250836 */ /* x249396 */ /* x249395 */ t7011 = "INTEGER->INPUT-PORT"; /* x249394 */ t7010 = a33577; /* x249393 */ t7012.tag = STRING_TYPE; t7012.value.string_type = t7010; t7013.tag = STRING_TYPE; t7013.value.string_type = t7011; if (f27434(t7012, t7013)==FALSE_TYPE) goto l2277; /* x249399 */ /* x249398 */ /* x249397 */ return q182; l2277: /* x250835 */ /* x249403 */ /* x249402 */ t7015 = "INTEGER->STRING"; /* x249401 */ t7014 = a33577; /* x249400 */ t7016.tag = STRING_TYPE; t7016.value.string_type = t7014; t7017.tag = STRING_TYPE; t7017.value.string_type = t7015; if (f27434(t7016, t7017)==FALSE_TYPE) goto l2279; /* x249406 */ /* x249405 */ /* x249404 */ return q181; l2279: /* x250834 */ /* x249410 */ /* x249409 */ t7019 = "POINTER?"; /* x249408 */ t7018 = a33577; /* x249407 */ t7020.tag = STRING_TYPE; t7020.value.string_type = t7018; t7021.tag = STRING_TYPE; t7021.value.string_type = t7019; if (f27434(t7020, t7021)==FALSE_TYPE) goto l2281; /* x249413 */ /* x249412 */ /* x249411 */ return q180; l2281: /* x250833 */ /* x249417 */ /* x249416 */ t7023 = "PANIC"; /* x249415 */ t7022 = a33577; /* x249414 */ t7024.tag = STRING_TYPE; t7024.value.string_type = t7022; t7025.tag = STRING_TYPE; t7025.value.string_type = t7023; if (f27434(t7024, t7025)==FALSE_TYPE) goto l2283; /* x249420 */ /* x249419 */ /* x249418 */ return q179; l2283: /* x250832 */ /* x249424 */ /* x249423 */ t7027 = "EOF-OBJECT?"; /* x249422 */ t7026 = a33577; /* x249421 */ t7028.tag = STRING_TYPE; t7028.value.string_type = t7026; t7029.tag = STRING_TYPE; t7029.value.string_type = t7027; if (f27434(t7028, t7029)==FALSE_TYPE) goto l2285; /* x249427 */ /* x249426 */ /* x249425 */ return q178; l2285: /* x250831 */ /* x249431 */ /* x249430 */ t7031 = "CLOSE-OUTPUT-PORT"; /* x249429 */ t7030 = a33577; /* x249428 */ t7032.tag = STRING_TYPE; t7032.value.string_type = t7030; t7033.tag = STRING_TYPE; t7033.value.string_type = t7031; if (f27434(t7032, t7033)==FALSE_TYPE) goto l2287; /* x249434 */ /* x249433 */ /* x249432 */ return q177; l2287: /* x250830 */ /* x249438 */ /* x249437 */ t7035 = "CLOSE-INPUT-PORT"; /* x249436 */ t7034 = a33577; /* x249435 */ t7036.tag = STRING_TYPE; t7036.value.string_type = t7034; t7037.tag = STRING_TYPE; t7037.value.string_type = t7035; if (f27434(t7036, t7037)==FALSE_TYPE) goto l2289; /* x249441 */ /* x249440 */ /* x249439 */ return q176; l2289: /* x250829 */ /* x249445 */ /* x249444 */ t7039 = "OPEN-OUTPUT-FILE"; /* x249443 */ t7038 = a33577; /* x249442 */ t7040.tag = STRING_TYPE; t7040.value.string_type = t7038; t7041.tag = STRING_TYPE; t7041.value.string_type = t7039; if (f27434(t7040, t7041)==FALSE_TYPE) goto l2291; /* x249448 */ /* x249447 */ /* x249446 */ return q175; l2291: /* x250828 */ /* x249452 */ /* x249451 */ t7043 = "OPEN-INPUT-FILE"; /* x249450 */ t7042 = a33577; /* x249449 */ t7044.tag = STRING_TYPE; t7044.value.string_type = t7042; t7045.tag = STRING_TYPE; t7045.value.string_type = t7043; if (f27434(t7044, t7045)==FALSE_TYPE) goto l2293; /* x249455 */ /* x249454 */ /* x249453 */ return q174; l2293: /* x250827 */ /* x249459 */ /* x249458 */ t7047 = "OUTPUT-PORT?"; /* x249457 */ t7046 = a33577; /* x249456 */ t7048.tag = STRING_TYPE; t7048.value.string_type = t7046; t7049.tag = STRING_TYPE; t7049.value.string_type = t7047; if (f27434(t7048, t7049)==FALSE_TYPE) goto l2295; /* x249462 */ /* x249461 */ /* x249460 */ return q173; l2295: /* x250826 */ /* x249466 */ /* x249465 */ t7051 = "INPUT-PORT?"; /* x249464 */ t7050 = a33577; /* x249463 */ t7052.tag = STRING_TYPE; t7052.value.string_type = t7050; t7053.tag = STRING_TYPE; t7053.value.string_type = t7051; if (f27434(t7052, t7053)==FALSE_TYPE) goto l2297; /* x249469 */ /* x249468 */ /* x249467 */ return q172; l2297: /* x250825 */ /* x249473 */ /* x249472 */ t7055 = "PROCEDURE?"; /* x249471 */ t7054 = a33577; /* x249470 */ t7056.tag = STRING_TYPE; t7056.value.string_type = t7054; t7057.tag = STRING_TYPE; t7057.value.string_type = t7055; if (f27434(t7056, t7057)==FALSE_TYPE) goto l2299; /* x249476 */ /* x249475 */ /* x249474 */ return q171; l2299: /* x250824 */ /* x249480 */ /* x249479 */ t7059 = "VECTOR-SET!"; /* x249478 */ t7058 = a33577; /* x249477 */ t7060.tag = STRING_TYPE; t7060.value.string_type = t7058; t7061.tag = STRING_TYPE; t7061.value.string_type = t7059; if (f27434(t7060, t7061)==FALSE_TYPE) goto l2301; /* x249483 */ /* x249482 */ /* x249481 */ return q170; l2301: /* x250823 */ /* x249487 */ /* x249486 */ t7063 = "VECTOR-REF"; /* x249485 */ t7062 = a33577; /* x249484 */ t7064.tag = STRING_TYPE; t7064.value.string_type = t7062; t7065.tag = STRING_TYPE; t7065.value.string_type = t7063; if (f27434(t7064, t7065)==FALSE_TYPE) goto l2303; /* x249490 */ /* x249489 */ /* x249488 */ return q169; l2303: /* x250822 */ /* x249494 */ /* x249493 */ t7067 = "VECTOR-LENGTH"; /* x249492 */ t7066 = a33577; /* x249491 */ t7068.tag = STRING_TYPE; t7068.value.string_type = t7066; t7069.tag = STRING_TYPE; t7069.value.string_type = t7067; if (f27434(t7068, t7069)==FALSE_TYPE) goto l2305; /* x249497 */ /* x249496 */ /* x249495 */ return q168; l2305: /* x250821 */ /* x249501 */ /* x249500 */ t7071 = "VECTOR"; /* x249499 */ t7070 = a33577; /* x249498 */ t7072.tag = STRING_TYPE; t7072.value.string_type = t7070; t7073.tag = STRING_TYPE; t7073.value.string_type = t7071; if (f27434(t7072, t7073)==FALSE_TYPE) goto l2307; /* x249504 */ /* x249503 */ /* x249502 */ return q6; l2307: /* x250820 */ /* x249508 */ /* x249507 */ t7075 = "MAKE-DISPLACED-VECTOR"; /* x249506 */ t7074 = a33577; /* x249505 */ t7076.tag = STRING_TYPE; t7076.value.string_type = t7074; t7077.tag = STRING_TYPE; t7077.value.string_type = t7075; if (f27434(t7076, t7077)==FALSE_TYPE) goto l2309; /* x249511 */ /* x249510 */ /* x249509 */ return q167; l2309: /* x250819 */ /* x249515 */ /* x249514 */ t7079 = "MAKE-VECTOR"; /* x249513 */ t7078 = a33577; /* x249512 */ t7080.tag = STRING_TYPE; t7080.value.string_type = t7078; t7081.tag = STRING_TYPE; t7081.value.string_type = t7079; if (f27434(t7080, t7081)==FALSE_TYPE) goto l2311; /* x249518 */ /* x249517 */ /* x249516 */ return q166; l2311: /* x250818 */ /* x249522 */ /* x249521 */ t7083 = "VECTOR?"; /* x249520 */ t7082 = a33577; /* x249519 */ t7084.tag = STRING_TYPE; t7084.value.string_type = t7082; t7085.tag = STRING_TYPE; t7085.value.string_type = t7083; if (f27434(t7084, t7085)==FALSE_TYPE) goto l2313; /* x249525 */ /* x249524 */ /* x249523 */ return q165; l2313: /* x250817 */ /* x249529 */ /* x249528 */ t7087 = "STRING-SET!"; /* x249527 */ t7086 = a33577; /* x249526 */ t7088.tag = STRING_TYPE; t7088.value.string_type = t7086; t7089.tag = STRING_TYPE; t7089.value.string_type = t7087; if (f27434(t7088, t7089)==FALSE_TYPE) goto l2315; /* x249532 */ /* x249531 */ /* x249530 */ return q164; l2315: /* x250816 */ /* x249536 */ /* x249535 */ t7091 = "STRING-REF"; /* x249534 */ t7090 = a33577; /* x249533 */ t7092.tag = STRING_TYPE; t7092.value.string_type = t7090; t7093.tag = STRING_TYPE; t7093.value.string_type = t7091; if (f27434(t7092, t7093)==FALSE_TYPE) goto l2317; /* x249539 */ /* x249538 */ /* x249537 */ return q163; l2317: /* x250815 */ /* x249543 */ /* x249542 */ t7095 = "STRING-LENGTH"; /* x249541 */ t7094 = a33577; /* x249540 */ t7096.tag = STRING_TYPE; t7096.value.string_type = t7094; t7097.tag = STRING_TYPE; t7097.value.string_type = t7095; if (f27434(t7096, t7097)==FALSE_TYPE) goto l2319; /* x249546 */ /* x249545 */ /* x249544 */ return q162; l2319: /* x250814 */ /* x249550 */ /* x249549 */ t7099 = "STRING"; /* x249548 */ t7098 = a33577; /* x249547 */ t7100.tag = STRING_TYPE; t7100.value.string_type = t7098; t7101.tag = STRING_TYPE; t7101.value.string_type = t7099; if (f27434(t7100, t7101)==FALSE_TYPE) goto l2321; /* x249553 */ /* x249552 */ /* x249551 */ return q161; l2321: /* x250813 */ /* x249557 */ /* x249556 */ t7103 = "MAKE-STRING"; /* x249555 */ t7102 = a33577; /* x249554 */ t7104.tag = STRING_TYPE; t7104.value.string_type = t7102; t7105.tag = STRING_TYPE; t7105.value.string_type = t7103; if (f27434(t7104, t7105)==FALSE_TYPE) goto l2323; /* x249560 */ /* x249559 */ /* x249558 */ return q160; l2323: /* x250812 */ /* x249564 */ /* x249563 */ t7107 = "STRING?"; /* x249562 */ t7106 = a33577; /* x249561 */ t7108.tag = STRING_TYPE; t7108.value.string_type = t7106; t7109.tag = STRING_TYPE; t7109.value.string_type = t7107; if (f27434(t7108, t7109)==FALSE_TYPE) goto l2325; /* x249567 */ /* x249566 */ /* x249565 */ return q159; l2325: /* x250811 */ /* x249571 */ /* x249570 */ t7111 = "INTEGER->CHAR"; /* x249569 */ t7110 = a33577; /* x249568 */ t7112.tag = STRING_TYPE; t7112.value.string_type = t7110; t7113.tag = STRING_TYPE; t7113.value.string_type = t7111; if (f27434(t7112, t7113)==FALSE_TYPE) goto l2327; /* x249574 */ /* x249573 */ /* x249572 */ return q158; l2327: /* x250810 */ /* x249578 */ /* x249577 */ t7115 = "CHAR->INTEGER"; /* x249576 */ t7114 = a33577; /* x249575 */ t7116.tag = STRING_TYPE; t7116.value.string_type = t7114; t7117.tag = STRING_TYPE; t7117.value.string_type = t7115; if (f27434(t7116, t7117)==FALSE_TYPE) goto l2329; /* x249581 */ /* x249580 */ /* x249579 */ return q157; l2329: /* x250809 */ /* x249585 */ /* x249584 */ t7119 = "CHAR?"; /* x249583 */ t7118 = a33577; /* x249582 */ t7120.tag = STRING_TYPE; t7120.value.string_type = t7118; t7121.tag = STRING_TYPE; t7121.value.string_type = t7119; if (f27434(t7120, t7121)==FALSE_TYPE) goto l2331; /* x249588 */ /* x249587 */ /* x249586 */ return q156; l2331: /* x250808 */ /* x249592 */ /* x249591 */ t7123 = "INEXACT->EXACT"; /* x249590 */ t7122 = a33577; /* x249589 */ t7124.tag = STRING_TYPE; t7124.value.string_type = t7122; t7125.tag = STRING_TYPE; t7125.value.string_type = t7123; if (f27434(t7124, t7125)==FALSE_TYPE) goto l2333; /* x249595 */ /* x249594 */ /* x249593 */ return q155; l2333: /* x250807 */ /* x249599 */ /* x249598 */ t7127 = "EXACT->INEXACT"; /* x249597 */ t7126 = a33577; /* x249596 */ t7128.tag = STRING_TYPE; t7128.value.string_type = t7126; t7129.tag = STRING_TYPE; t7129.value.string_type = t7127; if (f27434(t7128, t7129)==FALSE_TYPE) goto l2335; /* x249602 */ /* x249601 */ /* x249600 */ return q154; l2335: /* x250806 */ /* x249606 */ /* x249605 */ t7131 = "EXPT"; /* x249604 */ t7130 = a33577; /* x249603 */ t7132.tag = STRING_TYPE; t7132.value.string_type = t7130; t7133.tag = STRING_TYPE; t7133.value.string_type = t7131; if (f27434(t7132, t7133)==FALSE_TYPE) goto l2337; /* x249609 */ /* x249608 */ /* x249607 */ return q153; l2337: /* x250805 */ /* x249613 */ /* x249612 */ t7135 = "SQRT"; /* x249611 */ t7134 = a33577; /* x249610 */ t7136.tag = STRING_TYPE; t7136.value.string_type = t7134; t7137.tag = STRING_TYPE; t7137.value.string_type = t7135; if (f27434(t7136, t7137)==FALSE_TYPE) goto l2339; /* x249616 */ /* x249615 */ /* x249614 */ return q152; l2339: /* x250804 */ /* x249620 */ /* x249619 */ t7139 = "ATAN"; /* x249618 */ t7138 = a33577; /* x249617 */ t7140.tag = STRING_TYPE; t7140.value.string_type = t7138; t7141.tag = STRING_TYPE; t7141.value.string_type = t7139; if (f27434(t7140, t7141)==FALSE_TYPE) goto l2341; /* x249623 */ /* x249622 */ /* x249621 */ return q151; l2341: /* x250803 */ /* x249627 */ /* x249626 */ t7143 = "ACOS"; /* x249625 */ t7142 = a33577; /* x249624 */ t7144.tag = STRING_TYPE; t7144.value.string_type = t7142; t7145.tag = STRING_TYPE; t7145.value.string_type = t7143; if (f27434(t7144, t7145)==FALSE_TYPE) goto l2343; /* x249630 */ /* x249629 */ /* x249628 */ return q150; l2343: /* x250802 */ /* x249634 */ /* x249633 */ t7147 = "ASIN"; /* x249632 */ t7146 = a33577; /* x249631 */ t7148.tag = STRING_TYPE; t7148.value.string_type = t7146; t7149.tag = STRING_TYPE; t7149.value.string_type = t7147; if (f27434(t7148, t7149)==FALSE_TYPE) goto l2345; /* x249637 */ /* x249636 */ /* x249635 */ return q149; l2345: /* x250801 */ /* x249641 */ /* x249640 */ t7151 = "TAN"; /* x249639 */ t7150 = a33577; /* x249638 */ t7152.tag = STRING_TYPE; t7152.value.string_type = t7150; t7153.tag = STRING_TYPE; t7153.value.string_type = t7151; if (f27434(t7152, t7153)==FALSE_TYPE) goto l2347; /* x249644 */ /* x249643 */ /* x249642 */ return q148; l2347: /* x250800 */ /* x249648 */ /* x249647 */ t7155 = "COS"; /* x249646 */ t7154 = a33577; /* x249645 */ t7156.tag = STRING_TYPE; t7156.value.string_type = t7154; t7157.tag = STRING_TYPE; t7157.value.string_type = t7155; if (f27434(t7156, t7157)==FALSE_TYPE) goto l2349; /* x249651 */ /* x249650 */ /* x249649 */ return q147; l2349: /* x250799 */ /* x249655 */ /* x249654 */ t7159 = "SIN"; /* x249653 */ t7158 = a33577; /* x249652 */ t7160.tag = STRING_TYPE; t7160.value.string_type = t7158; t7161.tag = STRING_TYPE; t7161.value.string_type = t7159; if (f27434(t7160, t7161)==FALSE_TYPE) goto l2351; /* x249658 */ /* x249657 */ /* x249656 */ return q146; l2351: /* x250798 */ /* x249662 */ /* x249661 */ t7163 = "LOG"; /* x249660 */ t7162 = a33577; /* x249659 */ t7164.tag = STRING_TYPE; t7164.value.string_type = t7162; t7165.tag = STRING_TYPE; t7165.value.string_type = t7163; if (f27434(t7164, t7165)==FALSE_TYPE) goto l2353; /* x249665 */ /* x249664 */ /* x249663 */ return q145; l2353: /* x250797 */ /* x249669 */ /* x249668 */ t7167 = "EXP"; /* x249667 */ t7166 = a33577; /* x249666 */ t7168.tag = STRING_TYPE; t7168.value.string_type = t7166; t7169.tag = STRING_TYPE; t7169.value.string_type = t7167; if (f27434(t7168, t7169)==FALSE_TYPE) goto l2355; /* x249672 */ /* x249671 */ /* x249670 */ return q144; l2355: /* x250796 */ /* x249676 */ /* x249675 */ t7171 = "ROUND"; /* x249674 */ t7170 = a33577; /* x249673 */ t7172.tag = STRING_TYPE; t7172.value.string_type = t7170; t7173.tag = STRING_TYPE; t7173.value.string_type = t7171; if (f27434(t7172, t7173)==FALSE_TYPE) goto l2357; /* x249679 */ /* x249678 */ /* x249677 */ return q143; l2357: /* x250795 */ /* x249683 */ /* x249682 */ t7175 = "TRUNCATE"; /* x249681 */ t7174 = a33577; /* x249680 */ t7176.tag = STRING_TYPE; t7176.value.string_type = t7174; t7177.tag = STRING_TYPE; t7177.value.string_type = t7175; if (f27434(t7176, t7177)==FALSE_TYPE) goto l2359; /* x249686 */ /* x249685 */ /* x249684 */ return q142; l2359: /* x250794 */ /* x249690 */ /* x249689 */ t7179 = "CEILING"; /* x249688 */ t7178 = a33577; /* x249687 */ t7180.tag = STRING_TYPE; t7180.value.string_type = t7178; t7181.tag = STRING_TYPE; t7181.value.string_type = t7179; if (f27434(t7180, t7181)==FALSE_TYPE) goto l2361; /* x249693 */ /* x249692 */ /* x249691 */ return q141; l2361: /* x250793 */ /* x249697 */ /* x249696 */ t7183 = "FLOOR"; /* x249695 */ t7182 = a33577; /* x249694 */ t7184.tag = STRING_TYPE; t7184.value.string_type = t7182; t7185.tag = STRING_TYPE; t7185.value.string_type = t7183; if (f27434(t7184, t7185)==FALSE_TYPE) goto l2363; /* x249700 */ /* x249699 */ /* x249698 */ return q140; l2363: /* x250792 */ /* x249704 */ /* x249703 */ t7187 = "BITWISE-XOR"; /* x249702 */ t7186 = a33577; /* x249701 */ t7188.tag = STRING_TYPE; t7188.value.string_type = t7186; t7189.tag = STRING_TYPE; t7189.value.string_type = t7187; if (f27434(t7188, t7189)==FALSE_TYPE) goto l2365; /* x249707 */ /* x249706 */ /* x249705 */ return q139; l2365: /* x250791 */ /* x249711 */ /* x249710 */ t7191 = "BITWISE-OR"; /* x249709 */ t7190 = a33577; /* x249708 */ t7192.tag = STRING_TYPE; t7192.value.string_type = t7190; t7193.tag = STRING_TYPE; t7193.value.string_type = t7191; if (f27434(t7192, t7193)==FALSE_TYPE) goto l2367; /* x249714 */ /* x249713 */ /* x249712 */ return q138; l2367: /* x250790 */ /* x249718 */ /* x249717 */ t7195 = "BITWISE-AND"; /* x249716 */ t7194 = a33577; /* x249715 */ t7196.tag = STRING_TYPE; t7196.value.string_type = t7194; t7197.tag = STRING_TYPE; t7197.value.string_type = t7195; if (f27434(t7196, t7197)==FALSE_TYPE) goto l2369; /* x249721 */ /* x249720 */ /* x249719 */ return q137; l2369: /* x250789 */ /* x249725 */ /* x249724 */ t7199 = "BITWISE-NOT"; /* x249723 */ t7198 = a33577; /* x249722 */ t7200.tag = STRING_TYPE; t7200.value.string_type = t7198; t7201.tag = STRING_TYPE; t7201.value.string_type = t7199; if (f27434(t7200, t7201)==FALSE_TYPE) goto l2371; /* x249728 */ /* x249727 */ /* x249726 */ return q136; l2371: /* x250788 */ /* x249732 */ /* x249731 */ t7203 = ">>"; /* x249730 */ t7202 = a33577; /* x249729 */ t7204.tag = STRING_TYPE; t7204.value.string_type = t7202; t7205.tag = STRING_TYPE; t7205.value.string_type = t7203; if (f27434(t7204, t7205)==FALSE_TYPE) goto l2373; /* x249735 */ /* x249734 */ /* x249733 */ return q135; l2373: /* x250787 */ /* x249739 */ /* x249738 */ t7207 = "<<"; /* x249737 */ t7206 = a33577; /* x249736 */ t7208.tag = STRING_TYPE; t7208.value.string_type = t7206; t7209.tag = STRING_TYPE; t7209.value.string_type = t7207; if (f27434(t7208, t7209)==FALSE_TYPE) goto l2375; /* x249742 */ /* x249741 */ /* x249740 */ return q134; l2375: /* x250786 */ /* x249746 */ /* x249745 */ t7211 = "REMAINDER"; /* x249744 */ t7210 = a33577; /* x249743 */ t7212.tag = STRING_TYPE; t7212.value.string_type = t7210; t7213.tag = STRING_TYPE; t7213.value.string_type = t7211; if (f27434(t7212, t7213)==FALSE_TYPE) goto l2377; /* x249749 */ /* x249748 */ /* x249747 */ return q133; l2377: /* x250785 */ /* x249753 */ /* x249752 */ t7215 = "QUOTIENT"; /* x249751 */ t7214 = a33577; /* x249750 */ t7216.tag = STRING_TYPE; t7216.value.string_type = t7214; t7217.tag = STRING_TYPE; t7217.value.string_type = t7215; if (f27434(t7216, t7217)==FALSE_TYPE) goto l2379; /* x249756 */ /* x249755 */ /* x249754 */ return q132; l2379: /* x250784 */ /* x249760 */ /* x249759 */ t7219 = "/"; /* x249758 */ t7218 = a33577; /* x249757 */ t7220.tag = STRING_TYPE; t7220.value.string_type = t7218; t7221.tag = STRING_TYPE; t7221.value.string_type = t7219; if (f27434(t7220, t7221)==FALSE_TYPE) goto l2381; /* x249763 */ /* x249762 */ /* x249761 */ return q131; l2381: /* x250783 */ /* x249767 */ /* x249766 */ t7223 = "-"; /* x249765 */ t7222 = a33577; /* x249764 */ t7224.tag = STRING_TYPE; t7224.value.string_type = t7222; t7225.tag = STRING_TYPE; t7225.value.string_type = t7223; if (f27434(t7224, t7225)==FALSE_TYPE) goto l2383; /* x249770 */ /* x249769 */ /* x249768 */ return q2; l2383: /* x250782 */ /* x249774 */ /* x249773 */ t7227 = "*"; /* x249772 */ t7226 = a33577; /* x249771 */ t7228.tag = STRING_TYPE; t7228.value.string_type = t7226; t7229.tag = STRING_TYPE; t7229.value.string_type = t7227; if (f27434(t7228, t7229)==FALSE_TYPE) goto l2385; /* x249777 */ /* x249776 */ /* x249775 */ return q130; l2385: /* x250781 */ /* x249781 */ /* x249780 */ t7231 = "+"; /* x249779 */ t7230 = a33577; /* x249778 */ t7232.tag = STRING_TYPE; t7232.value.string_type = t7230; t7233.tag = STRING_TYPE; t7233.value.string_type = t7231; if (f27434(t7232, t7233)==FALSE_TYPE) goto l2387; /* x249784 */ /* x249783 */ /* x249782 */ return q4; l2387: /* x250780 */ /* x249788 */ /* x249787 */ t7235 = "MIN"; /* x249786 */ t7234 = a33577; /* x249785 */ t7236.tag = STRING_TYPE; t7236.value.string_type = t7234; t7237.tag = STRING_TYPE; t7237.value.string_type = t7235; if (f27434(t7236, t7237)==FALSE_TYPE) goto l2389; /* x249791 */ /* x249790 */ /* x249789 */ return q129; l2389: /* x250779 */ /* x249795 */ /* x249794 */ t7239 = "MAX"; /* x249793 */ t7238 = a33577; /* x249792 */ t7240.tag = STRING_TYPE; t7240.value.string_type = t7238; t7241.tag = STRING_TYPE; t7241.value.string_type = t7239; if (f27434(t7240, t7241)==FALSE_TYPE) goto l2391; /* x249798 */ /* x249797 */ /* x249796 */ return q128; l2391: /* x250778 */ /* x249802 */ /* x249801 */ t7243 = "NEGATIVE?"; /* x249800 */ t7242 = a33577; /* x249799 */ t7244.tag = STRING_TYPE; t7244.value.string_type = t7242; t7245.tag = STRING_TYPE; t7245.value.string_type = t7243; if (f27434(t7244, t7245)==FALSE_TYPE) goto l2393; /* x249805 */ /* x249804 */ /* x249803 */ return q127; l2393: /* x250777 */ /* x249809 */ /* x249808 */ t7247 = "POSITIVE?"; /* x249807 */ t7246 = a33577; /* x249806 */ t7248.tag = STRING_TYPE; t7248.value.string_type = t7246; t7249.tag = STRING_TYPE; t7249.value.string_type = t7247; if (f27434(t7248, t7249)==FALSE_TYPE) goto l2395; /* x249812 */ /* x249811 */ /* x249810 */ return q126; l2395: /* x250776 */ /* x249816 */ /* x249815 */ t7251 = "ZERO?"; /* x249814 */ t7250 = a33577; /* x249813 */ t7252.tag = STRING_TYPE; t7252.value.string_type = t7250; t7253.tag = STRING_TYPE; t7253.value.string_type = t7251; if (f27434(t7252, t7253)==FALSE_TYPE) goto l2397; /* x249819 */ /* x249818 */ /* x249817 */ return q125; l2397: /* x250775 */ /* x249823 */ /* x249822 */ t7255 = ">="; /* x249821 */ t7254 = a33577; /* x249820 */ t7256.tag = STRING_TYPE; t7256.value.string_type = t7254; t7257.tag = STRING_TYPE; t7257.value.string_type = t7255; if (f27434(t7256, t7257)==FALSE_TYPE) goto l2399; /* x249826 */ /* x249825 */ /* x249824 */ return q124; l2399: /* x250774 */ /* x249830 */ /* x249829 */ t7259 = "<="; /* x249828 */ t7258 = a33577; /* x249827 */ t7260.tag = STRING_TYPE; t7260.value.string_type = t7258; t7261.tag = STRING_TYPE; t7261.value.string_type = t7259; if (f27434(t7260, t7261)==FALSE_TYPE) goto l2401; /* x249833 */ /* x249832 */ /* x249831 */ return q123; l2401: /* x250773 */ /* x249837 */ /* x249836 */ t7263 = ">"; /* x249835 */ t7262 = a33577; /* x249834 */ t7264.tag = STRING_TYPE; t7264.value.string_type = t7262; t7265.tag = STRING_TYPE; t7265.value.string_type = t7263; if (f27434(t7264, t7265)==FALSE_TYPE) goto l2403; /* x249840 */ /* x249839 */ /* x249838 */ return q122; l2403: /* x250772 */ /* x249844 */ /* x249843 */ t7267 = "<"; /* x249842 */ t7266 = a33577; /* x249841 */ t7268.tag = STRING_TYPE; t7268.value.string_type = t7266; t7269.tag = STRING_TYPE; t7269.value.string_type = t7267; if (f27434(t7268, t7269)==FALSE_TYPE) goto l2405; /* x249847 */ /* x249846 */ /* x249845 */ return q121; l2405: /* x250771 */ /* x249851 */ /* x249850 */ t7271 = "="; /* x249849 */ t7270 = a33577; /* x249848 */ t7272.tag = STRING_TYPE; t7272.value.string_type = t7270; t7273.tag = STRING_TYPE; t7273.value.string_type = t7271; if (f27434(t7272, t7273)==FALSE_TYPE) goto l2407; /* x249854 */ /* x249853 */ /* x249852 */ return q120; l2407: /* x250770 */ /* x249858 */ /* x249857 */ t7275 = "INEXACT?"; /* x249856 */ t7274 = a33577; /* x249855 */ t7276.tag = STRING_TYPE; t7276.value.string_type = t7274; t7277.tag = STRING_TYPE; t7277.value.string_type = t7275; if (f27434(t7276, t7277)==FALSE_TYPE) goto l2409; /* x249861 */ /* x249860 */ /* x249859 */ return q119; l2409: /* x250769 */ /* x249865 */ /* x249864 */ t7279 = "EXACT?"; /* x249863 */ t7278 = a33577; /* x249862 */ t7280.tag = STRING_TYPE; t7280.value.string_type = t7278; t7281.tag = STRING_TYPE; t7281.value.string_type = t7279; if (f27434(t7280, t7281)==FALSE_TYPE) goto l2411; /* x249868 */ /* x249867 */ /* x249866 */ return q118; l2411: /* x250768 */ /* x249872 */ /* x249871 */ t7283 = "INTEGER?"; /* x249870 */ t7282 = a33577; /* x249869 */ t7284.tag = STRING_TYPE; t7284.value.string_type = t7282; t7285.tag = STRING_TYPE; t7285.value.string_type = t7283; if (f27434(t7284, t7285)==FALSE_TYPE) goto l2413; /* x249875 */ /* x249874 */ /* x249873 */ return q117; l2413: /* x250767 */ /* x249879 */ /* x249878 */ t7287 = "REAL?"; /* x249877 */ t7286 = a33577; /* x249876 */ t7288.tag = STRING_TYPE; t7288.value.string_type = t7286; t7289.tag = STRING_TYPE; t7289.value.string_type = t7287; if (f27434(t7288, t7289)==FALSE_TYPE) goto l2415; /* x249882 */ /* x249881 */ /* x249880 */ return q116; l2415: /* x250766 */ /* x249886 */ /* x249885 */ t7291 = "NUMBER?"; /* x249884 */ t7290 = a33577; /* x249883 */ t7292.tag = STRING_TYPE; t7292.value.string_type = t7290; t7293.tag = STRING_TYPE; t7293.value.string_type = t7291; if (f27434(t7292, t7293)==FALSE_TYPE) goto l2417; /* x249889 */ /* x249888 */ /* x249887 */ return q115; l2417: /* x250765 */ /* x249893 */ /* x249892 */ t7295 = "STRING->UNINTERNED-SYMBOL"; /* x249891 */ t7294 = a33577; /* x249890 */ t7296.tag = STRING_TYPE; t7296.value.string_type = t7294; t7297.tag = STRING_TYPE; t7297.value.string_type = t7295; if (f27434(t7296, t7297)==FALSE_TYPE) goto l2419; /* x249896 */ /* x249895 */ /* x249894 */ return q114; l2419: /* x250764 */ /* x249900 */ /* x249899 */ t7299 = "SYMBOL->STRING"; /* x249898 */ t7298 = a33577; /* x249897 */ t7300.tag = STRING_TYPE; t7300.value.string_type = t7298; t7301.tag = STRING_TYPE; t7301.value.string_type = t7299; if (f27434(t7300, t7301)==FALSE_TYPE) goto l2421; /* x249903 */ /* x249902 */ /* x249901 */ return q113; l2421: /* x250763 */ /* x249907 */ /* x249906 */ t7303 = "SYMBOL?"; /* x249905 */ t7302 = a33577; /* x249904 */ t7304.tag = STRING_TYPE; t7304.value.string_type = t7302; t7305.tag = STRING_TYPE; t7305.value.string_type = t7303; if (f27434(t7304, t7305)==FALSE_TYPE) goto l2423; /* x249910 */ /* x249909 */ /* x249908 */ return q112; l2423: /* x250762 */ /* x249914 */ /* x249913 */ t7307 = "NULL?"; /* x249912 */ t7306 = a33577; /* x249911 */ t7308.tag = STRING_TYPE; t7308.value.string_type = t7306; t7309.tag = STRING_TYPE; t7309.value.string_type = t7307; if (f27434(t7308, t7309)==FALSE_TYPE) goto l2425; /* x249917 */ /* x249916 */ /* x249915 */ return q111; l2425: /* x250761 */ /* x249921 */ /* x249920 */ t7311 = "SET-CDR!"; /* x249919 */ t7310 = a33577; /* x249918 */ t7312.tag = STRING_TYPE; t7312.value.string_type = t7310; t7313.tag = STRING_TYPE; t7313.value.string_type = t7311; if (f27434(t7312, t7313)==FALSE_TYPE) goto l2427; /* x249924 */ /* x249923 */ /* x249922 */ return q110; l2427: /* x250760 */ /* x249928 */ /* x249927 */ t7315 = "SET-CAR!"; /* x249926 */ t7314 = a33577; /* x249925 */ t7316.tag = STRING_TYPE; t7316.value.string_type = t7314; t7317.tag = STRING_TYPE; t7317.value.string_type = t7315; if (f27434(t7316, t7317)==FALSE_TYPE) goto l2429; /* x249931 */ /* x249930 */ /* x249929 */ return q109; l2429: /* x250759 */ /* x249935 */ /* x249934 */ t7319 = "CDR"; /* x249933 */ t7318 = a33577; /* x249932 */ t7320.tag = STRING_TYPE; t7320.value.string_type = t7318; t7321.tag = STRING_TYPE; t7321.value.string_type = t7319; if (f27434(t7320, t7321)==FALSE_TYPE) goto l2431; /* x249938 */ /* x249937 */ /* x249936 */ return q108; l2431: /* x250758 */ /* x249942 */ /* x249941 */ t7323 = "CAR"; /* x249940 */ t7322 = a33577; /* x249939 */ t7324.tag = STRING_TYPE; t7324.value.string_type = t7322; t7325.tag = STRING_TYPE; t7325.value.string_type = t7323; if (f27434(t7324, t7325)==FALSE_TYPE) goto l2433; /* x249945 */ /* x249944 */ /* x249943 */ return q107; l2433: /* x250757 */ /* x249949 */ /* x249948 */ t7327 = "CONS"; /* x249947 */ t7326 = a33577; /* x249946 */ t7328.tag = STRING_TYPE; t7328.value.string_type = t7326; t7329.tag = STRING_TYPE; t7329.value.string_type = t7327; if (f27434(t7328, t7329)==FALSE_TYPE) goto l2435; /* x249952 */ /* x249951 */ /* x249950 */ return q106; l2435: /* x250756 */ /* x249956 */ /* x249955 */ t7331 = "PAIR?"; /* x249954 */ t7330 = a33577; /* x249953 */ t7332.tag = STRING_TYPE; t7332.value.string_type = t7330; t7333.tag = STRING_TYPE; t7333.value.string_type = t7331; if (f27434(t7332, t7333)==FALSE_TYPE) goto l2437; /* x249959 */ /* x249958 */ /* x249957 */ return q105; l2437: /* x250755 */ /* x249963 */ /* x249962 */ t7335 = "EQ?"; /* x249961 */ t7334 = a33577; /* x249960 */ t7336.tag = STRING_TYPE; t7336.value.string_type = t7334; t7337.tag = STRING_TYPE; t7337.value.string_type = t7335; if (f27434(t7336, t7337)==FALSE_TYPE) goto l2439; /* x249966 */ /* x249965 */ /* x249964 */ return q104; l2439: /* x250754 */ /* x249970 */ /* x249969 */ t7339 = "BOOLEAN?"; /* x249968 */ t7338 = a33577; /* x249967 */ t7340.tag = STRING_TYPE; t7340.value.string_type = t7338; t7341.tag = STRING_TYPE; t7341.value.string_type = t7339; if (f27434(t7340, t7341)==FALSE_TYPE) goto l2441; /* x249973 */ /* x249972 */ /* x249971 */ return q103; l2441: /* x250753 */ /* x249977 */ /* x249976 */ t7343 = "NOT"; /* x249975 */ t7342 = a33577; /* x249974 */ t7344.tag = STRING_TYPE; t7344.value.string_type = t7342; t7345.tag = STRING_TYPE; t7345.value.string_type = t7343; if (f27434(t7344, t7345)==FALSE_TYPE) goto l2443; /* x249980 */ /* x249979 */ /* x249978 */ return q102; l2443: /* x250752 */ /* x249984 */ /* x249983 */ t7347 = "STRUCTURE?"; /* x249982 */ t7346 = a33577; /* x249981 */ t7348.tag = STRING_TYPE; t7348.value.string_type = t7346; t7349.tag = STRING_TYPE; t7349.value.string_type = t7347; if (f27434(t7348, t7349)==FALSE_TYPE) goto l2445; /* x249987 */ /* x249986 */ /* x249985 */ return q101; l2445: /* x250751 */ /* x249991 */ /* x249990 */ t7351 = "STRUCTURE-SET!"; /* x249989 */ t7350 = a33577; /* x249988 */ t7352.tag = STRING_TYPE; t7352.value.string_type = t7350; t7353.tag = STRING_TYPE; t7353.value.string_type = t7351; if (f27434(t7352, t7353)==FALSE_TYPE) goto l2447; /* x249994 */ /* x249993 */ /* x249992 */ return q100; l2447: /* x250750 */ /* x249998 */ /* x249997 */ t7355 = "STRUCTURE-REF"; /* x249996 */ t7354 = a33577; /* x249995 */ t7356.tag = STRING_TYPE; t7356.value.string_type = t7354; t7357.tag = STRING_TYPE; t7357.value.string_type = t7355; if (f27434(t7356, t7357)==FALSE_TYPE) goto l2449; /* x250001 */ /* x250000 */ /* x249999 */ return q99; l2449: /* x250749 */ /* x250005 */ /* x250004 */ t7359 = "MAKE-STRUCTURE"; /* x250003 */ t7358 = a33577; /* x250002 */ t7360.tag = STRING_TYPE; t7360.value.string_type = t7358; t7361.tag = STRING_TYPE; t7361.value.string_type = t7359; if (f27434(t7360, t7361)==FALSE_TYPE) goto l2451; /* x250008 */ /* x250007 */ /* x250006 */ return q98; l2451: /* x250748 */ /* x250012 */ /* x250011 */ t7363 = "DEFINE"; /* x250010 */ t7362 = a33577; /* x250009 */ t7364.tag = STRING_TYPE; t7364.value.string_type = t7362; t7365.tag = STRING_TYPE; t7365.value.string_type = t7363; if (f27434(t7364, t7365)==FALSE_TYPE) goto l2453; /* x250015 */ /* x250014 */ /* x250013 */ return q97; l2453: /* x250747 */ /* x250019 */ /* x250018 */ t7367 = "=>"; /* x250017 */ t7366 = a33577; /* x250016 */ t7368.tag = STRING_TYPE; t7368.value.string_type = t7366; t7369.tag = STRING_TYPE; t7369.value.string_type = t7367; if (f27434(t7368, t7369)==FALSE_TYPE) goto l2455; /* x250022 */ /* x250021 */ /* x250020 */ return q96; l2455: /* x250746 */ /* x250026 */ /* x250025 */ t7371 = "ELSE"; /* x250024 */ t7370 = a33577; /* x250023 */ t7372.tag = STRING_TYPE; t7372.value.string_type = t7370; t7373.tag = STRING_TYPE; t7373.value.string_type = t7371; if (f27434(t7372, t7373)==FALSE_TYPE) goto l2457; /* x250029 */ /* x250028 */ /* x250027 */ return q95; l2457: /* x250745 */ /* x250033 */ /* x250032 */ t7375 = "QUOTE"; /* x250031 */ t7374 = a33577; /* x250030 */ t7376.tag = STRING_TYPE; t7376.value.string_type = t7374; t7377.tag = STRING_TYPE; t7377.value.string_type = t7375; if (f27434(t7376, t7377)==FALSE_TYPE) goto l2459; /* x250036 */ /* x250035 */ /* x250034 */ return q11; l2459: /* x250744 */ /* x250040 */ /* x250039 */ t7379 = "VOID"; /* x250038 */ t7378 = a33577; /* x250037 */ t7380.tag = STRING_TYPE; t7380.value.string_type = t7378; t7381.tag = STRING_TYPE; t7381.value.string_type = t7379; if (f27434(t7380, t7381)==FALSE_TYPE) goto l2461; /* x250043 */ /* x250042 */ /* x250041 */ return q94; l2461: /* x250743 */ /* x250047 */ /* x250046 */ t7383 = "NO-RETURN"; /* x250045 */ t7382 = a33577; /* x250044 */ t7384.tag = STRING_TYPE; t7384.value.string_type = t7382; t7385.tag = STRING_TYPE; t7385.value.string_type = t7383; if (f27434(t7384, t7385)==FALSE_TYPE) goto l2463; /* x250050 */ /* x250049 */ /* x250048 */ return q93; l2463: /* x250742 */ /* x250054 */ /* x250053 */ t7387 = "SIGNED-CHAR"; /* x250052 */ t7386 = a33577; /* x250051 */ t7388.tag = STRING_TYPE; t7388.value.string_type = t7386; t7389.tag = STRING_TYPE; t7389.value.string_type = t7387; if (f27434(t7388, t7389)==FALSE_TYPE) goto l2465; /* x250057 */ /* x250056 */ /* x250055 */ return q92; l2465: /* x250741 */ /* x250061 */ /* x250060 */ t7391 = "UNSIGNED-CHAR"; /* x250059 */ t7390 = a33577; /* x250058 */ t7392.tag = STRING_TYPE; t7392.value.string_type = t7390; t7393.tag = STRING_TYPE; t7393.value.string_type = t7391; if (f27434(t7392, t7393)==FALSE_TYPE) goto l2467; /* x250064 */ /* x250063 */ /* x250062 */ return q91; l2467: /* x250740 */ /* x250068 */ /* x250067 */ t7395 = "SHORT"; /* x250066 */ t7394 = a33577; /* x250065 */ t7396.tag = STRING_TYPE; t7396.value.string_type = t7394; t7397.tag = STRING_TYPE; t7397.value.string_type = t7395; if (f27434(t7396, t7397)==FALSE_TYPE) goto l2469; /* x250071 */ /* x250070 */ /* x250069 */ return q90; l2469: /* x250739 */ /* x250075 */ /* x250074 */ t7399 = "UNSIGNED-SHORT"; /* x250073 */ t7398 = a33577; /* x250072 */ t7400.tag = STRING_TYPE; t7400.value.string_type = t7398; t7401.tag = STRING_TYPE; t7401.value.string_type = t7399; if (f27434(t7400, t7401)==FALSE_TYPE) goto l2471; /* x250078 */ /* x250077 */ /* x250076 */ return q89; l2471: /* x250738 */ /* x250082 */ /* x250081 */ t7403 = "INT"; /* x250080 */ t7402 = a33577; /* x250079 */ t7404.tag = STRING_TYPE; t7404.value.string_type = t7402; t7405.tag = STRING_TYPE; t7405.value.string_type = t7403; if (f27434(t7404, t7405)==FALSE_TYPE) goto l2473; /* x250085 */ /* x250084 */ /* x250083 */ return q88; l2473: /* x250737 */ /* x250089 */ /* x250088 */ t7407 = "UNSIGNED"; /* x250087 */ t7406 = a33577; /* x250086 */ t7408.tag = STRING_TYPE; t7408.value.string_type = t7406; t7409.tag = STRING_TYPE; t7409.value.string_type = t7407; if (f27434(t7408, t7409)==FALSE_TYPE) goto l2475; /* x250092 */ /* x250091 */ /* x250090 */ return q87; l2475: /* x250736 */ /* x250096 */ /* x250095 */ t7411 = "LONG"; /* x250094 */ t7410 = a33577; /* x250093 */ t7412.tag = STRING_TYPE; t7412.value.string_type = t7410; t7413.tag = STRING_TYPE; t7413.value.string_type = t7411; if (f27434(t7412, t7413)==FALSE_TYPE) goto l2477; /* x250099 */ /* x250098 */ /* x250097 */ return q86; l2477: /* x250735 */ /* x250103 */ /* x250102 */ t7415 = "UNSIGNED-LONG"; /* x250101 */ t7414 = a33577; /* x250100 */ t7416.tag = STRING_TYPE; t7416.value.string_type = t7414; t7417.tag = STRING_TYPE; t7417.value.string_type = t7415; if (f27434(t7416, t7417)==FALSE_TYPE) goto l2479; /* x250106 */ /* x250105 */ /* x250104 */ return q85; l2479: /* x250734 */ /* x250110 */ /* x250109 */ t7419 = "FLOAT"; /* x250108 */ t7418 = a33577; /* x250107 */ t7420.tag = STRING_TYPE; t7420.value.string_type = t7418; t7421.tag = STRING_TYPE; t7421.value.string_type = t7419; if (f27434(t7420, t7421)==FALSE_TYPE) goto l2481; /* x250113 */ /* x250112 */ /* x250111 */ return q84; l2481: /* x250733 */ /* x250117 */ /* x250116 */ t7423 = "LONG-DOUBLE"; /* x250115 */ t7422 = a33577; /* x250114 */ t7424.tag = STRING_TYPE; t7424.value.string_type = t7422; t7425.tag = STRING_TYPE; t7425.value.string_type = t7423; if (f27434(t7424, t7425)==FALSE_TYPE) goto l2483; /* x250120 */ /* x250119 */ /* x250118 */ return q83; l2483: /* x250732 */ /* x250124 */ /* x250123 */ t7427 = "CHAR*"; /* x250122 */ t7426 = a33577; /* x250121 */ t7428.tag = STRING_TYPE; t7428.value.string_type = t7426; t7429.tag = STRING_TYPE; t7429.value.string_type = t7427; if (f27434(t7428, t7429)==FALSE_TYPE) goto l2485; /* x250127 */ /* x250126 */ /* x250125 */ return q82; l2485: /* x250731 */ /* x250131 */ /* x250130 */ t7431 = "FILE*"; /* x250129 */ t7430 = a33577; /* x250128 */ t7432.tag = STRING_TYPE; t7432.value.string_type = t7430; t7433.tag = STRING_TYPE; t7433.value.string_type = t7431; if (f27434(t7432, t7433)==FALSE_TYPE) goto l2487; /* x250134 */ /* x250133 */ /* x250132 */ return q81; l2487: /* x250730 */ /* x250138 */ /* x250137 */ t7435 = "VOID*"; /* x250136 */ t7434 = a33577; /* x250135 */ t7436.tag = STRING_TYPE; t7436.value.string_type = t7434; t7437.tag = STRING_TYPE; t7437.value.string_type = t7435; if (f27434(t7436, t7437)==FALSE_TYPE) goto l2489; /* x250141 */ /* x250140 */ /* x250139 */ return q80; l2489: /* x250729 */ /* x250145 */ /* x250144 */ t7439 = "APPLY"; /* x250143 */ t7438 = a33577; /* x250142 */ t7440.tag = STRING_TYPE; t7440.value.string_type = t7438; t7441.tag = STRING_TYPE; t7441.value.string_type = t7439; if (f27434(t7440, t7441)==FALSE_TYPE) goto l2491; /* x250148 */ /* x250147 */ /* x250146 */ return q79; l2491: /* x250728 */ /* x250152 */ /* x250151 */ t7443 = "FOREIGN-PROCEDURE"; /* x250150 */ t7442 = a33577; /* x250149 */ t7444.tag = STRING_TYPE; t7444.value.string_type = t7442; t7445.tag = STRING_TYPE; t7445.value.string_type = t7443; if (f27434(t7444, t7445)==FALSE_TYPE) goto l2493; /* x250155 */ /* x250154 */ /* x250153 */ return q78; l2493: /* x250727 */ /* x250159 */ /* x250158 */ t7447 = "PRIMITIVE-PROCEDURE"; /* x250157 */ t7446 = a33577; /* x250156 */ t7448.tag = STRING_TYPE; t7448.value.string_type = t7446; t7449.tag = STRING_TYPE; t7449.value.string_type = t7447; if (f27434(t7448, t7449)==FALSE_TYPE) goto l2495; /* x250162 */ /* x250161 */ /* x250160 */ return q77; l2495: /* x250726 */ /* x250166 */ /* x250165 */ t7451 = "SYMBOL-CONSTANT"; /* x250164 */ t7450 = a33577; /* x250163 */ t7452.tag = STRING_TYPE; t7452.value.string_type = t7450; t7453.tag = STRING_TYPE; t7453.value.string_type = t7451; if (f27434(t7452, t7453)==FALSE_TYPE) goto l2497; /* x250169 */ /* x250168 */ /* x250167 */ return q76; l2497: /* x250725 */ /* x250173 */ /* x250172 */ t7455 = "STRING-CONSTANT"; /* x250171 */ t7454 = a33577; /* x250170 */ t7456.tag = STRING_TYPE; t7456.value.string_type = t7454; t7457.tag = STRING_TYPE; t7457.value.string_type = t7455; if (f27434(t7456, t7457)==FALSE_TYPE) goto l2499; /* x250176 */ /* x250175 */ /* x250174 */ return q75; l2499: /* x250724 */ /* x250180 */ /* x250179 */ t7459 = "RECTANGULAR-CONSTANT"; /* x250178 */ t7458 = a33577; /* x250177 */ t7460.tag = STRING_TYPE; t7460.value.string_type = t7458; t7461.tag = STRING_TYPE; t7461.value.string_type = t7459; if (f27434(t7460, t7461)==FALSE_TYPE) goto l2501; /* x250183 */ /* x250182 */ /* x250181 */ return q74; l2501: /* x250723 */ /* x250187 */ /* x250186 */ t7463 = "FLONUM-CONSTANT"; /* x250185 */ t7462 = a33577; /* x250184 */ t7464.tag = STRING_TYPE; t7464.value.string_type = t7462; t7465.tag = STRING_TYPE; t7465.value.string_type = t7463; if (f27434(t7464, t7465)==FALSE_TYPE) goto l2503; /* x250190 */ /* x250189 */ /* x250188 */ return q73; l2503: /* x250722 */ /* x250194 */ /* x250193 */ t7467 = "FIXNUM-CONSTANT"; /* x250192 */ t7466 = a33577; /* x250191 */ t7468.tag = STRING_TYPE; t7468.value.string_type = t7466; t7469.tag = STRING_TYPE; t7469.value.string_type = t7467; if (f27434(t7468, t7469)==FALSE_TYPE) goto l2505; /* x250197 */ /* x250196 */ /* x250195 */ return q72; l2505: /* x250721 */ /* x250201 */ /* x250200 */ t7471 = "CHAR-CONSTANT"; /* x250199 */ t7470 = a33577; /* x250198 */ t7472.tag = STRING_TYPE; t7472.value.string_type = t7470; t7473.tag = STRING_TYPE; t7473.value.string_type = t7471; if (f27434(t7472, t7473)==FALSE_TYPE) goto l2507; /* x250204 */ /* x250203 */ /* x250202 */ return q71; l2507: /* x250720 */ /* x250208 */ /* x250207 */ t7475 = "FALSE-CONSTANT"; /* x250206 */ t7474 = a33577; /* x250205 */ t7476.tag = STRING_TYPE; t7476.value.string_type = t7474; t7477.tag = STRING_TYPE; t7477.value.string_type = t7475; if (f27434(t7476, t7477)==FALSE_TYPE) goto l2509; /* x250211 */ /* x250210 */ /* x250209 */ return q70; l2509: /* x250719 */ /* x250215 */ /* x250214 */ t7479 = "TRUE-CONSTANT"; /* x250213 */ t7478 = a33577; /* x250212 */ t7480.tag = STRING_TYPE; t7480.value.string_type = t7478; t7481.tag = STRING_TYPE; t7481.value.string_type = t7479; if (f27434(t7480, t7481)==FALSE_TYPE) goto l2511; /* x250218 */ /* x250217 */ /* x250216 */ return q69; l2511: /* x250718 */ /* x250222 */ /* x250221 */ t7483 = "NULL-CONSTANT"; /* x250220 */ t7482 = a33577; /* x250219 */ t7484.tag = STRING_TYPE; t7484.value.string_type = t7482; t7485.tag = STRING_TYPE; t7485.value.string_type = t7483; if (f27434(t7484, t7485)==FALSE_TYPE) goto l2513; /* x250225 */ /* x250224 */ /* x250223 */ return q68; l2513: /* x250717 */ /* x250229 */ /* x250228 */ t7487 = "CONTINUATION-ARGUMENT"; /* x250227 */ t7486 = a33577; /* x250226 */ t7488.tag = STRING_TYPE; t7488.value.string_type = t7486; t7489.tag = STRING_TYPE; t7489.value.string_type = t7487; if (f27434(t7488, t7489)==FALSE_TYPE) goto l2515; /* x250232 */ /* x250231 */ /* x250230 */ return q67; l2515: /* x250716 */ /* x250236 */ /* x250235 */ t7491 = "CALL-WITH-CURRENT-CONTINUATION"; /* x250234 */ t7490 = a33577; /* x250233 */ t7492.tag = STRING_TYPE; t7492.value.string_type = t7490; t7493.tag = STRING_TYPE; t7493.value.string_type = t7491; if (f27434(t7492, t7493)==FALSE_TYPE) goto l2517; /* x250239 */ /* x250238 */ /* x250237 */ return q66; l2517: /* x250715 */ /* x250243 */ /* x250242 */ t7495 = "SECOND-ARGUMENT"; /* x250241 */ t7494 = a33577; /* x250240 */ t7496.tag = STRING_TYPE; t7496.value.string_type = t7494; t7497.tag = STRING_TYPE; t7497.value.string_type = t7495; if (f27434(t7496, t7497)==FALSE_TYPE) goto l2519; /* x250246 */ /* x250245 */ /* x250244 */ return q65; l2519: /* x250714 */ /* x250250 */ /* x250249 */ t7499 = "FIRST-ARGUMENT"; /* x250248 */ t7498 = a33577; /* x250247 */ t7500.tag = STRING_TYPE; t7500.value.string_type = t7498; t7501.tag = STRING_TYPE; t7501.value.string_type = t7499; if (f27434(t7500, t7501)==FALSE_TYPE) goto l2521; /* x250253 */ /* x250252 */ /* x250251 */ return q64; l2521: /* x250713 */ /* x250257 */ /* x250256 */ t7503 = "POINTER"; /* x250255 */ t7502 = a33577; /* x250254 */ t7504.tag = STRING_TYPE; t7504.value.string_type = t7502; t7505.tag = STRING_TYPE; t7505.value.string_type = t7503; if (f27434(t7504, t7505)==FALSE_TYPE) goto l2523; /* x250260 */ /* x250259 */ /* x250258 */ return q63; l2523: /* x250712 */ /* x250264 */ /* x250263 */ t7507 = "EOF-OBJECT"; /* x250262 */ t7506 = a33577; /* x250261 */ t7508.tag = STRING_TYPE; t7508.value.string_type = t7506; t7509.tag = STRING_TYPE; t7509.value.string_type = t7507; if (f27434(t7508, t7509)==FALSE_TYPE) goto l2525; /* x250267 */ /* x250266 */ /* x250265 */ return q62; l2525: /* x250711 */ /* x250271 */ /* x250270 */ t7511 = "OUTPUT-PORT"; /* x250269 */ t7510 = a33577; /* x250268 */ t7512.tag = STRING_TYPE; t7512.value.string_type = t7510; t7513.tag = STRING_TYPE; t7513.value.string_type = t7511; if (f27434(t7512, t7513)==FALSE_TYPE) goto l2527; /* x250274 */ /* x250273 */ /* x250272 */ return q61; l2527: /* x250710 */ /* x250278 */ /* x250277 */ t7515 = "INPUT-PORT"; /* x250276 */ t7514 = a33577; /* x250275 */ t7516.tag = STRING_TYPE; t7516.value.string_type = t7514; t7517.tag = STRING_TYPE; t7517.value.string_type = t7515; if (f27434(t7516, t7517)==FALSE_TYPE) goto l2529; /* x250281 */ /* x250280 */ /* x250279 */ return q60; l2529: /* x250709 */ /* x250285 */ /* x250284 */ t7519 = "RECTANGULAR"; /* x250283 */ t7518 = a33577; /* x250282 */ t7520.tag = STRING_TYPE; t7520.value.string_type = t7518; t7521.tag = STRING_TYPE; t7521.value.string_type = t7519; if (f27434(t7520, t7521)==FALSE_TYPE) goto l2531; /* x250288 */ /* x250287 */ /* x250286 */ return q59; l2531: /* x250708 */ /* x250292 */ /* x250291 */ t7523 = "FLONUM"; /* x250290 */ t7522 = a33577; /* x250289 */ t7524.tag = STRING_TYPE; t7524.value.string_type = t7522; t7525.tag = STRING_TYPE; t7525.value.string_type = t7523; if (f27434(t7524, t7525)==FALSE_TYPE) goto l2533; /* x250295 */ /* x250294 */ /* x250293 */ return q58; l2533: /* x250707 */ /* x250299 */ /* x250298 */ t7527 = "FIXNUM"; /* x250297 */ t7526 = a33577; /* x250296 */ t7528.tag = STRING_TYPE; t7528.value.string_type = t7526; t7529.tag = STRING_TYPE; t7529.value.string_type = t7527; if (f27434(t7528, t7529)==FALSE_TYPE) goto l2535; /* x250302 */ /* x250301 */ /* x250300 */ return q57; l2535: /* x250706 */ /* x250306 */ /* x250305 */ t7531 = "CHAR"; /* x250304 */ t7530 = a33577; /* x250303 */ t7532.tag = STRING_TYPE; t7532.value.string_type = t7530; t7533.tag = STRING_TYPE; t7533.value.string_type = t7531; if (f27434(t7532, t7533)==FALSE_TYPE) goto l2537; /* x250309 */ /* x250308 */ /* x250307 */ return q56; l2537: /* x250705 */ /* x250313 */ /* x250312 */ t7535 = "FALSE"; /* x250311 */ t7534 = a33577; /* x250310 */ t7536.tag = STRING_TYPE; t7536.value.string_type = t7534; t7537.tag = STRING_TYPE; t7537.value.string_type = t7535; if (f27434(t7536, t7537)==FALSE_TYPE) goto l2539; /* x250316 */ /* x250315 */ /* x250314 */ return q55; l2539: /* x250704 */ /* x250320 */ /* x250319 */ t7539 = "TRUE"; /* x250318 */ t7538 = a33577; /* x250317 */ t7540.tag = STRING_TYPE; t7540.value.string_type = t7538; t7541.tag = STRING_TYPE; t7541.value.string_type = t7539; if (f27434(t7540, t7541)==FALSE_TYPE) goto l2541; /* x250323 */ /* x250322 */ /* x250321 */ return q54; l2541: /* x250703 */ /* x250327 */ /* x250326 */ t7543 = "NULL"; /* x250325 */ t7542 = a33577; /* x250324 */ t7544.tag = STRING_TYPE; t7544.value.string_type = t7542; t7545.tag = STRING_TYPE; t7545.value.string_type = t7543; if (f27434(t7544, t7545)==FALSE_TYPE) goto l2543; /* x250330 */ /* x250329 */ /* x250328 */ return q53; l2543: /* x250702 */ /* x250334 */ /* x250333 */ t7547 = "VECTOR-CONSTANT"; /* x250332 */ t7546 = a33577; /* x250331 */ t7548.tag = STRING_TYPE; t7548.value.string_type = t7546; t7549.tag = STRING_TYPE; t7549.value.string_type = t7547; if (f27434(t7548, t7549)==FALSE_TYPE) goto l2545; /* x250337 */ /* x250336 */ /* x250335 */ return q52; l2545: /* x250701 */ /* x250341 */ /* x250340 */ t7551 = "PAIR"; /* x250339 */ t7550 = a33577; /* x250338 */ t7552.tag = STRING_TYPE; t7552.value.string_type = t7550; t7553.tag = STRING_TYPE; t7553.value.string_type = t7551; if (f27434(t7552, t7553)==FALSE_TYPE) goto l2547; /* x250344 */ /* x250343 */ /* x250342 */ return q51; l2547: /* x250700 */ /* x250348 */ /* x250347 */ t7555 = "PAIR-CONSTANT"; /* x250346 */ t7554 = a33577; /* x250345 */ t7556.tag = STRING_TYPE; t7556.value.string_type = t7554; t7557.tag = STRING_TYPE; t7557.value.string_type = t7555; if (f27434(t7556, t7557)==FALSE_TYPE) goto l2549; /* x250351 */ /* x250350 */ /* x250349 */ return q50; l2549: /* x250699 */ /* x250355 */ /* x250354 */ t7559 = "ANTECEDENT"; /* x250353 */ t7558 = a33577; /* x250352 */ t7560.tag = STRING_TYPE; t7560.value.string_type = t7558; t7561.tag = STRING_TYPE; t7561.value.string_type = t7559; if (f27434(t7560, t7561)==FALSE_TYPE) goto l2551; /* x250358 */ /* x250357 */ /* x250356 */ return q49; l2551: /* x250698 */ /* x250362 */ /* x250361 */ t7563 = "RETURN"; /* x250360 */ t7562 = a33577; /* x250359 */ t7564.tag = STRING_TYPE; t7564.value.string_type = t7562; t7565.tag = STRING_TYPE; t7565.value.string_type = t7563; if (f27434(t7564, t7565)==FALSE_TYPE) goto l2553; /* x250365 */ /* x250364 */ /* x250363 */ return q48; l2553: /* x250697 */ /* x250369 */ /* x250368 */ t7567 = "DISCARD"; /* x250367 */ t7566 = a33577; /* x250366 */ t7568.tag = STRING_TYPE; t7568.value.string_type = t7566; t7569.tag = STRING_TYPE; t7569.value.string_type = t7567; if (f27434(t7568, t7569)==FALSE_TYPE) goto l2555; /* x250372 */ /* x250371 */ /* x250370 */ return q47; l2555: /* x250696 */ /* x250376 */ /* x250375 */ t7571 = "ACCESSOR"; /* x250374 */ t7570 = a33577; /* x250373 */ t7572.tag = STRING_TYPE; t7572.value.string_type = t7570; t7573.tag = STRING_TYPE; t7573.value.string_type = t7571; if (f27434(t7572, t7573)==FALSE_TYPE) goto l2557; /* x250379 */ /* x250378 */ /* x250377 */ return q46; l2557: /* x250695 */ /* x250383 */ /* x250382 */ t7575 = "FORK"; /* x250381 */ t7574 = a33577; /* x250380 */ t7576.tag = STRING_TYPE; t7576.value.string_type = t7574; t7577.tag = STRING_TYPE; t7577.value.string_type = t7575; if (f27434(t7576, t7577)==FALSE_TYPE) goto l2559; /* x250386 */ /* x250385 */ /* x250384 */ return q45; l2559: /* x250694 */ /* x250390 */ /* x250389 */ t7579 = "MUTEX"; /* x250388 */ t7578 = a33577; /* x250387 */ t7580.tag = STRING_TYPE; t7580.value.string_type = t7578; t7581.tag = STRING_TYPE; t7581.value.string_type = t7579; if (f27434(t7580, t7581)==FALSE_TYPE) goto l2561; /* x250393 */ /* x250392 */ /* x250391 */ return q44; l2561: /* x250693 */ /* x250397 */ /* x250396 */ t7583 = "IF"; /* x250395 */ t7582 = a33577; /* x250394 */ t7584.tag = STRING_TYPE; t7584.value.string_type = t7582; t7585.tag = STRING_TYPE; t7585.value.string_type = t7583; if (f27434(t7584, t7585)==FALSE_TYPE) goto l2563; /* x250400 */ /* x250399 */ /* x250398 */ return q43; l2563: /* x250692 */ /* x250404 */ /* x250403 */ t7587 = "SET!"; /* x250402 */ t7586 = a33577; /* x250401 */ t7588.tag = STRING_TYPE; t7588.value.string_type = t7586; t7589.tag = STRING_TYPE; t7589.value.string_type = t7587; if (f27434(t7588, t7589)==FALSE_TYPE) goto l2565; /* x250407 */ /* x250406 */ /* x250405 */ return q42; l2565: /* x250691 */ /* x250411 */ /* x250410 */ t7591 = "CONVERTED-CONTINUATION"; /* x250409 */ t7590 = a33577; /* x250408 */ t7592.tag = STRING_TYPE; t7592.value.string_type = t7590; t7593.tag = STRING_TYPE; t7593.value.string_type = t7591; if (f27434(t7592, t7593)==FALSE_TYPE) goto l2567; /* x250414 */ /* x250413 */ /* x250412 */ return q41; l2567: /* x250690 */ /* x250418 */ /* x250417 */ t7595 = "CONVERTED-LAMBDA"; /* x250416 */ t7594 = a33577; /* x250415 */ t7596.tag = STRING_TYPE; t7596.value.string_type = t7594; t7597.tag = STRING_TYPE; t7597.value.string_type = t7595; if (f27434(t7596, t7597)==FALSE_TYPE) goto l2569; /* x250421 */ /* x250420 */ /* x250419 */ return q40; l2569: /* x250689 */ /* x250425 */ /* x250424 */ t7599 = "LAMBDA"; /* x250423 */ t7598 = a33577; /* x250422 */ t7600.tag = STRING_TYPE; t7600.value.string_type = t7598; t7601.tag = STRING_TYPE; t7601.value.string_type = t7599; if (f27434(t7600, t7601)==FALSE_TYPE) goto l2571; /* x250428 */ /* x250427 */ /* x250426 */ return q39; l2571: /* x250688 */ /* x250432 */ /* x250431 */ t7603 = "ACCESS"; /* x250430 */ t7602 = a33577; /* x250429 */ t7604.tag = STRING_TYPE; t7604.value.string_type = t7602; t7605.tag = STRING_TYPE; t7605.value.string_type = t7603; if (f27434(t7604, t7605)==FALSE_TYPE) goto l2573; /* x250435 */ /* x250434 */ /* x250433 */ return q38; l2573: /* x250687 */ /* x250439 */ /* x250438 */ t7607 = "CONVERTED-CALL"; /* x250437 */ t7606 = a33577; /* x250436 */ t7608.tag = STRING_TYPE; t7608.value.string_type = t7606; t7609.tag = STRING_TYPE; t7609.value.string_type = t7607; if (f27434(t7608, t7609)==FALSE_TYPE) goto l2575; /* x250442 */ /* x250441 */ /* x250440 */ return q37; l2575: /* x250686 */ /* x250446 */ /* x250445 */ t7611 = "CALL"; /* x250444 */ t7610 = a33577; /* x250443 */ t7612.tag = STRING_TYPE; t7612.value.string_type = t7610; t7613.tag = STRING_TYPE; t7613.value.string_type = t7611; if (f27434(t7612, t7613)==FALSE_TYPE) goto l2577; /* x250449 */ /* x250448 */ /* x250447 */ return q36; l2577: /* x250685 */ /* x250453 */ /* x250452 */ t7615 = "UNSPECIFIED"; /* x250451 */ t7614 = a33577; /* x250450 */ t7616.tag = STRING_TYPE; t7616.value.string_type = t7614; t7617.tag = STRING_TYPE; t7617.value.string_type = t7615; if (f27434(t7616, t7617)==FALSE_TYPE) goto l2579; /* x250456 */ /* x250455 */ /* x250454 */ return q35; l2579: /* x250684 */ /* x250460 */ /* x250459 */ t7619 = "UNUSED"; /* x250458 */ t7618 = a33577; /* x250457 */ t7620.tag = STRING_TYPE; t7620.value.string_type = t7618; t7621.tag = STRING_TYPE; t7621.value.string_type = t7619; if (f27434(t7620, t7621)==FALSE_TYPE) goto l2581; /* x250463 */ /* x250462 */ /* x250461 */ return q34; l2581: /* x250683 */ /* x250467 */ /* x250466 */ t7623 = "XIMAGEP"; /* x250465 */ t7622 = a33577; /* x250464 */ t7624.tag = STRING_TYPE; t7624.value.string_type = t7622; t7625.tag = STRING_TYPE; t7625.value.string_type = t7623; if (f27434(t7624, t7625)==FALSE_TYPE) goto l2583; /* x250470 */ /* x250469 */ /* x250468 */ return q33; l2583: /* x250682 */ /* x250474 */ /* x250473 */ t7627 = "SYSTEM"; /* x250472 */ t7626 = a33577; /* x250471 */ t7628.tag = STRING_TYPE; t7628.value.string_type = t7626; t7629.tag = STRING_TYPE; t7629.value.string_type = t7627; if (f27434(t7628, t7629)==FALSE_TYPE) goto l2585; /* x250477 */ /* x250476 */ /* x250475 */ return q32; l2585: /* x250681 */ /* x250481 */ /* x250480 */ t7631 = "BUTTONPRESS"; /* x250479 */ t7630 = a33577; /* x250478 */ t7632.tag = STRING_TYPE; t7632.value.string_type = t7630; t7633.tag = STRING_TYPE; t7633.value.string_type = t7631; if (f27434(t7632, t7633)==FALSE_TYPE) goto l2587; /* x250484 */ /* x250483 */ /* x250482 */ return q31; l2587: /* x250680 */ /* x250488 */ /* x250487 */ t7635 = "USER"; /* x250486 */ t7634 = a33577; /* x250485 */ t7636.tag = STRING_TYPE; t7636.value.string_type = t7634; t7637.tag = STRING_TYPE; t7637.value.string_type = t7635; if (f27434(t7636, t7637)==FALSE_TYPE) goto l2589; /* x250491 */ /* x250490 */ /* x250489 */ return q30; l2589: /* x250679 */ /* x250495 */ /* x250494 */ t7639 = "EXPOSE"; /* x250493 */ t7638 = a33577; /* x250492 */ t7640.tag = STRING_TYPE; t7640.value.string_type = t7638; t7641.tag = STRING_TYPE; t7641.value.string_type = t7639; if (f27434(t7640, t7641)==FALSE_TYPE) goto l2591; /* x250498 */ /* x250497 */ /* x250496 */ return q29; l2591: /* x250678 */ /* x250502 */ /* x250501 */ t7643 = "P6"; /* x250500 */ t7642 = a33577; /* x250499 */ t7644.tag = STRING_TYPE; t7644.value.string_type = t7642; t7645.tag = STRING_TYPE; t7645.value.string_type = t7643; if (f27434(t7644, t7645)==FALSE_TYPE) goto l2593; /* x250505 */ /* x250504 */ /* x250503 */ return q28; l2593: /* x250677 */ /* x250509 */ /* x250508 */ t7647 = "P5"; /* x250507 */ t7646 = a33577; /* x250506 */ t7648.tag = STRING_TYPE; t7648.value.string_type = t7646; t7649.tag = STRING_TYPE; t7649.value.string_type = t7647; if (f27434(t7648, t7649)==FALSE_TYPE) goto l2595; /* x250512 */ /* x250511 */ /* x250510 */ return q27; l2595: /* x250676 */ /* x250516 */ /* x250515 */ t7651 = "P4"; /* x250514 */ t7650 = a33577; /* x250513 */ t7652.tag = STRING_TYPE; t7652.value.string_type = t7650; t7653.tag = STRING_TYPE; t7653.value.string_type = t7651; if (f27434(t7652, t7653)==FALSE_TYPE) goto l2597; /* x250519 */ /* x250518 */ /* x250517 */ return q26; l2597: /* x250675 */ /* x250523 */ /* x250522 */ t7655 = "P3"; /* x250521 */ t7654 = a33577; /* x250520 */ t7656.tag = STRING_TYPE; t7656.value.string_type = t7654; t7657.tag = STRING_TYPE; t7657.value.string_type = t7655; if (f27434(t7656, t7657)==FALSE_TYPE) goto l2599; /* x250526 */ /* x250525 */ /* x250524 */ return q25; l2599: /* x250674 */ /* x250530 */ /* x250529 */ t7659 = "P2"; /* x250528 */ t7658 = a33577; /* x250527 */ t7660.tag = STRING_TYPE; t7660.value.string_type = t7658; t7661.tag = STRING_TYPE; t7661.value.string_type = t7659; if (f27434(t7660, t7661)==FALSE_TYPE) goto l2601; /* x250533 */ /* x250532 */ /* x250531 */ return q24; l2601: /* x250673 */ /* x250537 */ /* x250536 */ t7663 = "P1"; /* x250535 */ t7662 = a33577; /* x250534 */ t7664.tag = STRING_TYPE; t7664.value.string_type = t7662; t7665.tag = STRING_TYPE; t7665.value.string_type = t7663; if (f27434(t7664, t7665)==FALSE_TYPE) goto l2603; /* x250540 */ /* x250539 */ /* x250538 */ return q23; l2603: /* x250672 */ /* x250544 */ /* x250543 */ t7667 = "LINKED"; /* x250542 */ t7666 = a33577; /* x250541 */ t7668.tag = STRING_TYPE; t7668.value.string_type = t7666; t7669.tag = STRING_TYPE; t7669.value.string_type = t7667; if (f27434(t7668, t7669)==FALSE_TYPE) goto l2605; /* x250547 */ /* x250546 */ /* x250545 */ return q22; l2605: /* x250671 */ /* x250551 */ /* x250550 */ t7671 = "INDIRECT-DISPLAY"; /* x250549 */ t7670 = a33577; /* x250548 */ t7672.tag = STRING_TYPE; t7672.value.string_type = t7670; t7673.tag = STRING_TYPE; t7673.value.string_type = t7671; if (f27434(t7672, t7673)==FALSE_TYPE) goto l2607; /* x250554 */ /* x250553 */ /* x250552 */ return q21; l2607: /* x250670 */ /* x250558 */ /* x250557 */ t7675 = "IMMEDIATE-DISPLAY"; /* x250556 */ t7674 = a33577; /* x250555 */ t7676.tag = STRING_TYPE; t7676.value.string_type = t7674; t7677.tag = STRING_TYPE; t7677.value.string_type = t7675; if (f27434(t7676, t7677)==FALSE_TYPE) goto l2609; /* x250561 */ /* x250560 */ /* x250559 */ return q20; l2609: /* x250669 */ /* x250565 */ /* x250564 */ t7679 = "INDIRECT-FLAT"; /* x250563 */ t7678 = a33577; /* x250562 */ t7680.tag = STRING_TYPE; t7680.value.string_type = t7678; t7681.tag = STRING_TYPE; t7681.value.string_type = t7679; if (f27434(t7680, t7681)==FALSE_TYPE) goto l2611; /* x250568 */ /* x250567 */ /* x250566 */ return q19; l2611: /* x250668 */ /* x250572 */ /* x250571 */ t7683 = "IMMEDIATE-FLAT"; /* x250570 */ t7682 = a33577; /* x250569 */ t7684.tag = STRING_TYPE; t7684.value.string_type = t7682; t7685.tag = STRING_TYPE; t7685.value.string_type = t7683; if (f27434(t7684, t7685)==FALSE_TYPE) goto l2613; /* x250575 */ /* x250574 */ /* x250573 */ return q18; l2613: /* x250667 */ /* x250579 */ /* x250578 */ t7687 = "LIGHTWEIGHT"; /* x250577 */ t7686 = a33577; /* x250576 */ t7688.tag = STRING_TYPE; t7688.value.string_type = t7686; t7689.tag = STRING_TYPE; t7689.value.string_type = t7687; if (f27434(t7688, t7689)==FALSE_TYPE) goto l2615; /* x250582 */ /* x250581 */ /* x250580 */ return q17; l2615: /* x250666 */ /* x250586 */ /* x250585 */ t7691 = "CONVENTIONAL"; /* x250584 */ t7690 = a33577; /* x250583 */ t7692.tag = STRING_TYPE; t7692.value.string_type = t7690; t7693.tag = STRING_TYPE; t7693.value.string_type = t7691; if (f27434(t7692, t7693)==FALSE_TYPE) goto l2617; /* x250589 */ /* x250588 */ /* x250587 */ return q16; l2617: /* x250665 */ /* x250593 */ /* x250592 */ t7695 = "BASELINE"; /* x250591 */ t7694 = a33577; /* x250590 */ t7696.tag = STRING_TYPE; t7696.value.string_type = t7694; t7697.tag = STRING_TYPE; t7697.value.string_type = t7695; if (f27434(t7696, t7697)==FALSE_TYPE) goto l2619; /* x250596 */ /* x250595 */ /* x250594 */ return q15; l2619: /* x250664 */ /* x250600 */ /* x250599 */ t7699 = "DOUBLE"; /* x250598 */ t7698 = a33577; /* x250597 */ t7700.tag = STRING_TYPE; t7700.value.string_type = t7698; t7701.tag = STRING_TYPE; t7701.value.string_type = t7699; if (f27434(t7700, t7701)==FALSE_TYPE) goto l2621; /* x250603 */ /* x250602 */ /* x250601 */ return q14; l2621: /* x250663 */ /* x250662 */ /* x250661 */ /* x250660 */ /* x250659 */ t7710 = a33576; /* x250658 */ /* x250657 */ /* x250656 */ /* x250655 */ /* x250654 */ /* x250653 */ /* x250652 */ /* x250631 */ /* x250630 */ /* MOVE: branching squeezed to general */ if (t7710>=((struct structure_type24753 *)VALUE_OFFSET)) {a33582.tag = STRUCTURE_TYPE24753; a33582.value.structure_type24753 = t7710;} else a33582.tag = (unsigned)t7710; h27198: /* x250651 */ /* x250636 */ /* x250635 */ /* x250634 */ t7711 = a33582; /* x267183 */ if ((t7711.tag)==NULL_TYPE) goto l2625; /* x250649 */ /* x250642 */ /* x250641 */ /* x250640 */ t7716 = *((struct w16638 *)(&a33582)); /* x267182 */ if (!((t7716.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27198]"); structure_ref_error();} t7713 = t7716.value.structure_type24753->s0; /* x250638 */ t7712 = a33577; /* x250637 */ t7714.tag = STRING_TYPE; t7714.value.string_type = t7712; t7715 = t7713; if (f27434(t7714, t7715)==FALSE_TYPE) goto l2628; /* x250643 */ t7702 = *((struct w16638 *)(&a33582)); goto l2629; l2628: /* x250648 */ /* x250647 */ /* x250646 */ t7718 = *((struct w16638 *)(&a33582)); /* x267181 */ if (!((t7718.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27198]"); structure_ref_error();} t7717 = t7718.value.structure_type24753->s1; /* x250644 */ a33582 = t7717; goto h27198; l2629: goto l2626; l2625: /* x250650 */ t7702.tag = FALSE_TYPE; l2626: /* x250629 */ a33578 = t7702; /* x250628 */ /* x250604 */ if ((a33578.tag)==FALSE_TYPE) goto l2623; /* x250611 */ /* x250610 */ /* x250609 */ /* x250608 */ /* x250607 */ t7709 = *((struct w32142 *)(&a33578)); /* x267188 */ if (!((t7709.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside top level 27193]"); structure_ref_error();} t7708 = t7709.value.structure_type24753->s0; /* x267189 */ if ((t7708.tag)==STRING_TYPE) return t7708.value.string_type; backtrace_internal("[inside top level 27193]"); string_to_uninterned_symbol_error(); l2623: /* x250627 */ /* x250626 */ /* x250625 */ /* x250624 */ /* x250623 */ /* x250621 */ /* x250620 */ t7707 = a33577; /* x250619 */ t7705 = f27595(t7707); /* x250622 */ t7706 = a33576; /* x267185 */ a33576 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a33576==NULL) {backtrace_internal("[inside top level 27194]"); out_of_memory_error();} a33576->s0.tag = STRING_TYPE; a33576->s0.value.string_type = t7705; /* MOVE: branching squeezed to general */ if (t7706>=((struct structure_type24753 *)VALUE_OFFSET)) {a33576->s1.tag = STRUCTURE_TYPE24753; a33576->s1.value.structure_type24753 = t7706;} else a33576->s1.tag = (unsigned)t7706; /* x250617 */ /* x250616 */ /* x250615 */ /* x250614 */ t7704 = a33576; /* x267186 */ if (!(t7704>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[inside top level 27195]"); structure_ref_error();} t7703 = t7704->s0; /* x267187 */ if ((t7703.tag)==STRING_TYPE) return t7703.value.string_type; backtrace_internal("[inside top level 27195]"); string_to_uninterned_symbol_error();} /* ASSOC[26356] */ struct w49 f26356(struct w49 a33551, struct w49 a33552) {struct w49 r26356; struct w49 t7719; struct w49 t7720; struct w49 t7721; struct w49 t7722; struct w16638 t7723; struct w49 t7724; struct w49 t7725; struct w16638 t7726; struct w16638 t7727; h26356: /* x244808 */ /* x244788 */ /* x244787 */ /* x244786 */ t7719 = a33552; /* x267222 */ if ((t7719.tag)==NULL_TYPE) goto l2631; /* x244806 */ /* x244796 */ /* x244790 */ t7720 = a33551; /* x244795 */ /* x244794 */ /* x244793 */ t7723 = *((struct w16638 *)(&a33552)); /* x267220 */ if (!((t7723.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("ASSOC[26356]"); structure_ref_error();} t7722 = t7723.value.structure_type24753->s0; /* x267221 */ if (!((t7722.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("ASSOC[26356]"); structure_ref_error();} t7721 = t7722.value.structure_type24753->s0; /* x244789 */ if (f26165(t7720, t7721)==FALSE_TYPE) goto l2633; /* x244799 */ /* x244798 */ t7727 = *((struct w16638 *)(&a33552)); /* x267219 */ if ((t7727.tag)==STRUCTURE_TYPE24753) return t7727.value.structure_type24753->s0; backtrace_internal("ASSOC[26356]"); structure_ref_error(); l2633: /* x244805 */ /* x244801 */ t7724 = a33551; /* x244804 */ /* x244803 */ t7726 = *((struct w16638 *)(&a33552)); /* x267218 */ if (!((t7726.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("ASSOC[26356]"); structure_ref_error();} t7725 = t7726.value.structure_type24753->s1; /* x244800 */ a33551 = t7724; a33552 = t7725; goto h26356; l2631: /* x244807 */ r26356.tag = FALSE_TYPE; return r26356;} /* ASSV[26355] */ struct w49 f26355(int a33549, struct w49 a33550) {struct w49 r26355; struct w49 t7728; int t7729; struct w49 t7730; struct w49 t7731; struct w49 t7732; struct w16638 t7733; int t7734; struct w49 t7735; struct w16638 t7736; struct w16638 t7737; h26355: /* x244781 */ /* x244761 */ /* x244760 */ /* x244759 */ t7728 = a33550; /* x267228 */ if ((t7728.tag)==NULL_TYPE) goto l2635; /* x244779 */ /* x244769 */ /* x244763 */ t7729 = a33549; /* x244768 */ /* x244767 */ /* x244766 */ t7733 = *((struct w16638 *)(&a33550)); /* x267226 */ if (!((t7733.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("ASSV[26355]"); structure_ref_error();} t7732 = t7733.value.structure_type24753->s0; /* x267227 */ if (!((t7732.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("ASSV[26355]"); structure_ref_error();} t7730 = t7732.value.structure_type24753->s0; /* x244762 */ t7731.tag = FIXNUM_TYPE; t7731.value.fixnum_type = t7729; if (f26160(t7731, t7730)==FALSE_TYPE) goto l2637; /* x244772 */ /* x244771 */ t7737 = *((struct w16638 *)(&a33550)); /* x267225 */ if ((t7737.tag)==STRUCTURE_TYPE24753) return t7737.value.structure_type24753->s0; backtrace_internal("ASSV[26355]"); structure_ref_error(); l2637: /* x244778 */ /* x244774 */ t7734 = a33549; /* x244777 */ /* x244776 */ t7736 = *((struct w16638 *)(&a33550)); /* x267224 */ if (!((t7736.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("ASSV[26355]"); structure_ref_error();} t7735 = t7736.value.structure_type24753->s1; /* x244773 */ a33549 = t7734; a33550 = t7735; goto h26355; l2635: /* x244780 */ r26355.tag = FALSE_TYPE; return r26355;} /* ASSQ[26354] */ struct w49 f26354(struct w49 a33547, struct w49 a33548) {struct w49 r26354; struct w49 t7738; struct w49 t7739; struct w49 t7740; struct w49 t7741; struct w16638 t7742; struct w49 t7743; struct w49 t7744; struct w16638 t7745; struct w16638 t7746; h26354: /* x244754 */ /* x244734 */ /* x244733 */ /* x244732 */ t7738 = a33548; /* x267235 */ if ((t7738.tag)==NULL_TYPE) goto l2639; /* x244752 */ /* x244742 */ /* x244736 */ t7739 = a33547; /* x244741 */ /* x244740 */ /* x244739 */ t7742 = *((struct w16638 *)(&a33548)); /* x267232 */ if (!((t7742.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("ASSQ[26354]"); structure_ref_error();} t7741 = t7742.value.structure_type24753->s0; /* x267233 */ if (!((t7741.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("ASSQ[26354]"); structure_ref_error();} t7740 = t7741.value.structure_type24753->s0; /* x267234 */ /* EQ: dispatching general to general */ if (!((t7739.tag)==(t7740.tag))) goto l2641; switch (t7739.tag) {case FIXNUM_TYPE: if (!((t7739.value.fixnum_type)==(t7740.value.fixnum_type))) goto l2641; break; case FLONUM_TYPE: if (!((t7739.value.flonum_type)==(t7740.value.flonum_type))) goto l2641; break; case INPUT_PORT_TYPE: if (!((t7739.value.input_port_type)==(t7740.value.input_port_type))) goto l2641; break; case OUTPUT_PORT_TYPE: if (!((t7739.value.output_port_type)==(t7740.value.output_port_type))) goto l2641; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t7739.value.native_procedure_type15963)==(t7740.value.native_procedure_type15963))) goto l2641; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t7739.value.native_procedure_type19067)==(t7740.value.native_procedure_type19067))) goto l2641; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t7739.value.native_procedure_type19068)==(t7740.value.native_procedure_type19068))) goto l2641; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t7739.value.native_procedure_type22459)==(t7740.value.native_procedure_type22459))) goto l2641; break; case STRUCTURE_TYPE24753: if (!((t7739.value.structure_type24753)==(t7740.value.structure_type24753))) goto l2641; break; case STRUCTURE_TYPE24757: if (!((t7739.value.structure_type24757)==(t7740.value.structure_type24757))) goto l2641; break; case STRUCTURE_TYPE27501: if (!((t7739.value.structure_type27501)==(t7740.value.structure_type27501))) goto l2641; break; case STRUCTURE_TYPE27510: if (!((t7739.value.structure_type27510)==(t7740.value.structure_type27510))) goto l2641; break; case STRUCTURE_TYPE27621: if (!((t7739.value.structure_type27621)==(t7740.value.structure_type27621))) goto l2641; break; case STRUCTURE_TYPE27650: if (!((t7739.value.structure_type27650)==(t7740.value.structure_type27650))) goto l2641; break; case STRUCTURE_TYPE27669: if (!((t7739.value.structure_type27669)==(t7740.value.structure_type27669))) goto l2641; break; case STRUCTURE_TYPE27673: if (!((t7739.value.structure_type27673)==(t7740.value.structure_type27673))) goto l2641; break; case STRUCTURE_TYPE27692: if (!((t7739.value.structure_type27692)==(t7740.value.structure_type27692))) goto l2641; break; case STRUCTURE_TYPE27694: if (!((t7739.value.structure_type27694)==(t7740.value.structure_type27694))) goto l2641; break; case STRUCTURE_TYPE27698: if (!((t7739.value.structure_type27698)==(t7740.value.structure_type27698))) goto l2641; break; case STRUCTURE_TYPE27745: if (!((t7739.value.structure_type27745)==(t7740.value.structure_type27745))) goto l2641; break; case STRUCTURE_TYPE27747: if (!((t7739.value.structure_type27747)==(t7740.value.structure_type27747))) goto l2641; break; case STRUCTURE_TYPE27750: if (!((t7739.value.structure_type27750)==(t7740.value.structure_type27750))) goto l2641; break; case STRUCTURE_TYPE27753: if (!((t7739.value.structure_type27753)==(t7740.value.structure_type27753))) goto l2641; break; case STRUCTURE_TYPE27756: if (!((t7739.value.structure_type27756)==(t7740.value.structure_type27756))) goto l2641; break; case STRUCTURE_TYPE27761: if (!((t7739.value.structure_type27761)==(t7740.value.structure_type27761))) goto l2641; break; case STRUCTURE_TYPE27769: if (!((t7739.value.structure_type27769)==(t7740.value.structure_type27769))) goto l2641; break; case STRUCTURE_TYPE27776: if (!((t7739.value.structure_type27776)==(t7740.value.structure_type27776))) goto l2641; break; case STRUCTURE_TYPE27779: if (!((t7739.value.structure_type27779)==(t7740.value.structure_type27779))) goto l2641; break; case STRUCTURE_TYPE27858: if (!((t7739.value.structure_type27858)==(t7740.value.structure_type27858))) goto l2641; break; case STRING_TYPE: if (!((t7739.value.string_type)==(t7740.value.string_type))) goto l2641; break; case HEADED_VECTOR_TYPE27896: if (!((t7739.value.headed_vector_type27896)==(t7740.value.headed_vector_type27896))) goto l2641; break; case EXTERNAL_SYMBOL_TYPE: if (!((t7739.value.external_symbol_type)==(t7740.value.external_symbol_type))) goto l2641; break; case STRUCTURE_TYPE27908: if (!((t7739.value.structure_type27908)==(t7740.value.structure_type27908))) goto l2641; break; default:;} /* x244745 */ /* x244744 */ t7746 = *((struct w16638 *)(&a33548)); /* x267231 */ if ((t7746.tag)==STRUCTURE_TYPE24753) return t7746.value.structure_type24753->s0; backtrace_internal("ASSQ[26354]"); structure_ref_error(); l2641: /* x244751 */ /* x244747 */ t7743 = a33547; /* x244750 */ /* x244749 */ t7745 = *((struct w16638 *)(&a33548)); /* x267230 */ if (!((t7745.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("ASSQ[26354]"); structure_ref_error();} t7744 = t7745.value.structure_type24753->s1; /* x244746 */ a33547 = t7743; a33548 = t7744; goto h26354; l2639: /* x244753 */ r26354.tag = FALSE_TYPE; return r26354;} /* MEMBER[26353] */ struct w16638 f26353(struct w49 a33545, struct w49 a33546) {struct w16638 r26353; struct w49 t7747; struct w49 t7748; struct w49 t7749; struct w16638 t7750; struct w49 t7751; struct w49 t7752; struct w16638 t7753; h26353: /* x244727 */ /* x244711 */ /* x244710 */ /* x244709 */ t7747 = a33546; /* x267239 */ if ((t7747.tag)==NULL_TYPE) goto l2643; /* x244725 */ /* x244717 */ /* x244713 */ t7748 = a33545; /* x244716 */ /* x244715 */ t7750 = *((struct w16638 *)(&a33546)); /* x267238 */ if (!((t7750.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("MEMBER[26353]"); structure_ref_error();} t7749 = t7750.value.structure_type24753->s0; /* x244712 */ if (f26165(t7748, t7749)==FALSE_TYPE) goto l2645; /* x244718 */ return *((struct w16638 *)(&a33546)); l2645: /* x244724 */ /* x244720 */ t7751 = a33545; /* x244723 */ /* x244722 */ t7753 = *((struct w16638 *)(&a33546)); /* x267237 */ if (!((t7753.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("MEMBER[26353]"); structure_ref_error();} t7752 = t7753.value.structure_type24753->s1; /* x244719 */ a33545 = t7751; a33546 = t7752; goto h26353; l2643: /* x244726 */ r26353.tag = FALSE_TYPE; return r26353;} /* MEMQ[26351] */ struct w16638 f26351(struct w49 a33541, struct w49 a33542) {struct w16638 r26351; struct w49 t7754; struct w49 t7755; struct w49 t7756; struct w16638 t7757; struct w49 t7758; struct w49 t7759; struct w16638 t7760; h26351: /* x244681 */ /* x244665 */ /* x244664 */ /* x244663 */ t7754 = a33542; /* x267248 */ if ((t7754.tag)==NULL_TYPE) goto l2647; /* x244679 */ /* x244671 */ /* x244667 */ t7755 = a33541; /* x244670 */ /* x244669 */ t7757 = *((struct w16638 *)(&a33542)); /* x267246 */ if (!((t7757.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("MEMQ[26351]"); structure_ref_error();} t7756 = t7757.value.structure_type24753->s0; /* x267247 */ /* EQ: dispatching general to general */ if (!((t7755.tag)==(t7756.tag))) goto l2649; switch (t7755.tag) {case FIXNUM_TYPE: if (!((t7755.value.fixnum_type)==(t7756.value.fixnum_type))) goto l2649; break; case FLONUM_TYPE: if (!((t7755.value.flonum_type)==(t7756.value.flonum_type))) goto l2649; break; case INPUT_PORT_TYPE: if (!((t7755.value.input_port_type)==(t7756.value.input_port_type))) goto l2649; break; case OUTPUT_PORT_TYPE: if (!((t7755.value.output_port_type)==(t7756.value.output_port_type))) goto l2649; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t7755.value.native_procedure_type15963)==(t7756.value.native_procedure_type15963))) goto l2649; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t7755.value.native_procedure_type19067)==(t7756.value.native_procedure_type19067))) goto l2649; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t7755.value.native_procedure_type19068)==(t7756.value.native_procedure_type19068))) goto l2649; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t7755.value.native_procedure_type22459)==(t7756.value.native_procedure_type22459))) goto l2649; break; case STRUCTURE_TYPE24753: if (!((t7755.value.structure_type24753)==(t7756.value.structure_type24753))) goto l2649; break; case STRUCTURE_TYPE24757: if (!((t7755.value.structure_type24757)==(t7756.value.structure_type24757))) goto l2649; break; case STRUCTURE_TYPE27501: if (!((t7755.value.structure_type27501)==(t7756.value.structure_type27501))) goto l2649; break; case STRUCTURE_TYPE27510: if (!((t7755.value.structure_type27510)==(t7756.value.structure_type27510))) goto l2649; break; case STRUCTURE_TYPE27621: if (!((t7755.value.structure_type27621)==(t7756.value.structure_type27621))) goto l2649; break; case STRUCTURE_TYPE27650: if (!((t7755.value.structure_type27650)==(t7756.value.structure_type27650))) goto l2649; break; case STRUCTURE_TYPE27669: if (!((t7755.value.structure_type27669)==(t7756.value.structure_type27669))) goto l2649; break; case STRUCTURE_TYPE27673: if (!((t7755.value.structure_type27673)==(t7756.value.structure_type27673))) goto l2649; break; case STRUCTURE_TYPE27692: if (!((t7755.value.structure_type27692)==(t7756.value.structure_type27692))) goto l2649; break; case STRUCTURE_TYPE27694: if (!((t7755.value.structure_type27694)==(t7756.value.structure_type27694))) goto l2649; break; case STRUCTURE_TYPE27698: if (!((t7755.value.structure_type27698)==(t7756.value.structure_type27698))) goto l2649; break; case STRUCTURE_TYPE27745: if (!((t7755.value.structure_type27745)==(t7756.value.structure_type27745))) goto l2649; break; case STRUCTURE_TYPE27747: if (!((t7755.value.structure_type27747)==(t7756.value.structure_type27747))) goto l2649; break; case STRUCTURE_TYPE27750: if (!((t7755.value.structure_type27750)==(t7756.value.structure_type27750))) goto l2649; break; case STRUCTURE_TYPE27753: if (!((t7755.value.structure_type27753)==(t7756.value.structure_type27753))) goto l2649; break; case STRUCTURE_TYPE27756: if (!((t7755.value.structure_type27756)==(t7756.value.structure_type27756))) goto l2649; break; case STRUCTURE_TYPE27761: if (!((t7755.value.structure_type27761)==(t7756.value.structure_type27761))) goto l2649; break; case STRUCTURE_TYPE27769: if (!((t7755.value.structure_type27769)==(t7756.value.structure_type27769))) goto l2649; break; case STRUCTURE_TYPE27776: if (!((t7755.value.structure_type27776)==(t7756.value.structure_type27776))) goto l2649; break; case STRUCTURE_TYPE27779: if (!((t7755.value.structure_type27779)==(t7756.value.structure_type27779))) goto l2649; break; case STRUCTURE_TYPE27858: if (!((t7755.value.structure_type27858)==(t7756.value.structure_type27858))) goto l2649; break; case STRING_TYPE: if (!((t7755.value.string_type)==(t7756.value.string_type))) goto l2649; break; case HEADED_VECTOR_TYPE27896: if (!((t7755.value.headed_vector_type27896)==(t7756.value.headed_vector_type27896))) goto l2649; break; case EXTERNAL_SYMBOL_TYPE: if (!((t7755.value.external_symbol_type)==(t7756.value.external_symbol_type))) goto l2649; break; case STRUCTURE_TYPE27908: if (!((t7755.value.structure_type27908)==(t7756.value.structure_type27908))) goto l2649; break; default:;} /* x244672 */ return *((struct w16638 *)(&a33542)); l2649: /* x244678 */ /* x244674 */ t7758 = a33541; /* x244677 */ /* x244676 */ t7760 = *((struct w16638 *)(&a33542)); /* x267245 */ if (!((t7760.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("MEMQ[26351]"); structure_ref_error();} t7759 = t7760.value.structure_type24753->s1; /* x244673 */ a33541 = t7758; a33542 = t7759; goto h26351; l2647: /* x244680 */ r26351.tag = FALSE_TYPE; return r26351;} /* LIST-REF[26338] */ struct w49 f26338(struct w49 a33533, struct w49 a33534) {struct w49 t7761; struct w49 t7762; struct w49 t7763; int t7764; struct w49 t7765; /* x244621 */ /* x244620 */ /* x244619 */ /* x244618 */ /* x244617 */ /* x244616 */ /* x244615 */ /* x244614 */ /* x244589 */ /* x244588 */ h26341: /* x244613 */ /* x244592 */ /* x244591 */ t7761 = a33534; /* x267259 */ switch (t7761.tag) {case FIXNUM_TYPE: if (!((t7761.value.fixnum_type)==0)) goto l2651; break; case FLONUM_TYPE: if (!((t7761.value.flonum_type)==0.0)) goto l2651; break; case INPUT_PORT_TYPE: if (!((t7761.value.input_port_type)==NULL)) goto l2651; break; case OUTPUT_PORT_TYPE: if (!((t7761.value.output_port_type)==NULL)) goto l2651; break; case STRING_TYPE: if (!((t7761.value.string_type)==NULL)) goto l2651; break; default: backtrace_internal("LOOP[26341]"); zero_error();} /* x244597 */ /* x244596 */ /* x244595 */ /* x244594 */ t7765 = a33533; /* x267258 */ if ((t7765.tag)==STRUCTURE_TYPE24753) return t7765.value.structure_type24753->s0; backtrace_internal("[inside LOOP 26342]"); structure_ref_error(); l2651: /* x244612 */ /* x244611 */ /* x244610 */ /* x244604 */ /* x244603 */ /* x244602 */ t7762 = a33533; /* x267257 */ if (!((t7762.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 26343]"); structure_ref_error();} a33533 = t7762.value.structure_type24753->s1; /* x244609 */ /* x244608 */ /* x244606 */ t7763 = a33534; /* x244607 */ t7764 = 1; /* x267256 */ switch (t7763.tag) {case FIXNUM_TYPE: a33534.tag = FIXNUM_TYPE; a33534.value.fixnum_type = (t7763.value.fixnum_type)-t7764; break; case FLONUM_TYPE: a33534.tag = FLONUM_TYPE; a33534.value.flonum_type = (t7763.value.flonum_type)-t7764; break; default: backtrace_internal("[inside LOOP 26343]"); minus_error();} /* x244600 */ /* x244599 */ /* x244598 */ goto h26341;} /* REVERSE[26331] */ struct w12224 f26331(struct w49 a33530) {struct w12224 r26331; char *a34060; /* STRING */ int a34061; /* N */ char *a34062; /* R */ int a34066; /* K */ struct headed_vector_type27896 *a34131; /* VECTOR */ struct headed_vector_type27896 *a34132; /* R */ int a34136; /* K */ struct w49 t7766; struct w16638 t7767; struct w16614 t7768; struct w48298 t7769; char *t7770; struct headed_vector_type27896 *t7771; struct headed_vector_type27896 *t7772; int t7773; int t7774; int t7775; struct headed_vector_type27896 *t7776; int t7777; int t7778; int t7779; struct headed_vector_type27896 *t7780; int t7781; struct w49 t7782; struct headed_vector_type27896 *t7783; int t7784; int t7785; int t7786; int t7787; int t7788; struct headed_vector_type27896 *t7789; int t7790; struct headed_vector_type27896 *t7791; char *t7792; int t7793; char *t7794; int t7795; int t7796; int t7797; int t7798; int t7799; int t7800; char *t7801; int t7802; char t7803; char *t7804; int t7805; int t7806; int t7807; int t7808; int t7809; int t7810; char *t7811; char *t7812; struct structure_type24753 *t7813; struct structure_type24753 *t7814; struct structure_type24753 *t7815; /* x244569 */ /* x244533 */ /* x244532 */ t7766 = a33530; /* x267267 */ if (!((t7766.tag)==NULL_TYPE)) goto l2653; /* x244536 */ /* x244535 */ /* x244534 */ r26331.tag = NULL_TYPE; return r26331; l2653: /* x244568 */ /* x244539 */ /* x244538 */ t7767 = *((struct w16638 *)(&a33530)); /* x267266 */ if (!((t7767.tag)==STRUCTURE_TYPE24753)) goto l2655; /* x244544 */ /* x244543 */ /* x244542 */ /* x244541 */ t7813 = a33530.value.structure_type24753; /* x244540 */ t7814 = t7813; t7815 = f26326(t7814); /* MOVE: branching squeezed to general */ if (t7815>=((struct structure_type24753 *)VALUE_OFFSET)) {r26331.tag = STRUCTURE_TYPE24753; r26331.value.structure_type24753 = t7815;} else r26331.tag = (unsigned)t7815; return r26331; l2655: /* x244567 */ /* x244547 */ /* x244546 */ t7768 = *((struct w16614 *)(&a33530)); /* x267265 */ if (!((t7768.tag)==STRING_TYPE)) goto l2657; /* x244552 */ /* x244551 */ /* x244550 */ /* x244549 */ t7792 = a33530.value.string_type; /* x244548 */ a34060 = t7792; /* x256473 */ /* x256472 */ /* x256471 */ t7812 = a34060; /* x266749 */ t7793 = strlen(t7812); /* x256469 */ a34061 = t7793; /* x256468 */ /* x256467 */ /* x256466 */ t7810 = a34061; /* x266750 */ t7794 = (char *)GC_malloc_atomic((t7810+1)*sizeof(char)); if (t7794==NULL) {backtrace_internal("[inside STRING-REVERSE 27617]"); out_of_memory_error();} t7794[t7810] = '\0'; for (t7811 = &(t7794[0]); t7811<(&(t7794[t7810])); t7811++) *t7811 = ' '; /* x256464 */ a34062 = t7794; /* x256463 */ /* x256462 */ /* x256461 */ /* x256460 */ /* x256459 */ t7795 = 0; /* x256458 */ /* x256457 */ /* x256456 */ /* x256455 */ /* x256454 */ /* x256453 */ /* x256452 */ /* x256418 */ /* x256417 */ a34066 = t7795; h27623: /* x256451 */ /* x256424 */ /* x256423 */ /* x256421 */ t7796 = a34066; /* x256422 */ t7797 = a34061; /* x266756 */ if (t7796==t7797) goto l2664; /* x256448 */ /* x256447 */ /* x256446 */ /* x256445 */ /* x256433 */ t7801 = a34062; /* x256434 */ t7802 = a34066; /* x256444 */ /* x256436 */ t7804 = a34060; /* x256443 */ /* x256441 */ /* x256439 */ t7808 = a34061; /* x256440 */ t7809 = a34066; /* x266751 */ t7806 = t7808-t7809; /* x256442 */ t7807 = 1; /* x266752 */ t7805 = t7806-t7807; /* x266753 */ if ((t7805<0)||(t7805>=strlen(t7804))) {backtrace_internal("[inside LOOP 27624]"); string_ref3_error();} t7803 = t7804[t7805]; /* x266754 */ if ((t7802<0)||(t7802>=strlen(t7801))) {backtrace_internal("[inside LOOP 27624]"); string_set4_error();} t7801[t7802] = t7803; /* x256431 */ /* x256430 */ /* x256429 */ /* x256427 */ t7799 = a34066; /* x256428 */ t7800 = 1; /* x266755 */ t7798 = t7799+t7800; /* x256425 */ a34066 = t7798; goto h27623; goto l2665; l2664: /* x256450 */ /* x256449 */ l2665: /* x256416 */ /* x256415 */ r26331.tag = STRING_TYPE; r26331.value.string_type = a34062; return r26331; l2657: /* x244566 */ /* x244555 */ /* x244554 */ t7769 = *((struct w48298 *)(&a33530)); /* x267264 */ if (!((t7769.tag)==HEADED_VECTOR_TYPE27896)) goto l2659; /* x244560 */ /* x244559 */ /* x244558 */ /* x244557 */ t7771 = a33530.value.headed_vector_type27896; /* x244556 */ a34131 = t7771; /* x256939 */ /* x256938 */ /* x256937 */ /* x256936 */ t7791 = a34131; /* x266684 */ t7790 = t7791->length; /* x266685 */ t7772 = (struct headed_vector_type27896 *)GC_malloc(sizeof(struct headed_vector_type27896)+((t7790-1)*sizeof(struct w49))); if (t7772==NULL) {backtrace_internal("VECTOR-REVERSE[27701]"); out_of_memory_error();} t7772->length = t7790; /* x256933 */ a34132 = t7772; /* x256932 */ /* x256931 */ /* x256930 */ t7773 = 0; /* x256929 */ /* x256928 */ /* x256927 */ /* x256926 */ /* x256925 */ /* x256924 */ /* x256923 */ /* x256885 */ /* x256884 */ a34136 = t7773; h27706: /* x256922 */ /* x256893 */ /* x256892 */ /* x256888 */ t7774 = a34136; /* x256891 */ /* x256890 */ t7776 = a34131; /* x266692 */ t7775 = t7776->length; /* x266693 */ if (t7774==t7775) goto l2661; /* x256919 */ /* x256918 */ /* x256917 */ /* x256916 */ /* x256902 */ t7780 = a34132; /* x256903 */ t7781 = a34136; /* x256915 */ /* x256905 */ t7783 = a34131; /* x256914 */ /* x256912 */ /* x256910 */ /* x256909 */ t7789 = a34131; /* x266686 */ t7787 = t7789->length; /* x256911 */ t7788 = a34136; /* x266687 */ t7785 = t7787-t7788; /* x256913 */ t7786 = 1; /* x266688 */ t7784 = t7785-t7786; /* x266689 */ if ((t7784<0)||(t7784>=(t7783->length))) {backtrace_internal("[inside LOOP 27707]"); vector_ref3_error();} t7782 = (t7783->element)[t7784]; /* x266690 */ if ((t7781<0)||(t7781>=(t7780->length))) {backtrace_internal("[inside LOOP 27707]"); vector_set3_error();} (t7780->element)[t7781] = t7782; /* x256900 */ /* x256899 */ /* x256898 */ /* x256896 */ t7778 = a34136; /* x256897 */ t7779 = 1; /* x266691 */ t7777 = t7778+t7779; /* x256894 */ a34136 = t7777; goto h27706; goto l2662; l2661: /* x256921 */ /* x256920 */ l2662: /* x256883 */ /* x256882 */ r26331.tag = HEADED_VECTOR_TYPE27896; r26331.value.headed_vector_type27896 = a34132; return r26331; l2659: /* x244565 */ /* x244564 */ /* x244563 */ /* x244562 */ t7770 = "Argument to REVERSE is not a list, string, or vector"; /* x267263 */ stalin_panic(t7770);} /* LIST-REVERSE[26326] */ struct structure_type24753 *f26326(struct structure_type24753 *a33525) {struct w49 a33528; /* LIST */ struct structure_type24753 *a33529; /* R */ struct structure_type24753 *t7816; struct w49 t7817; struct w49 t7818; struct structure_type24753 *t7819; struct w16638 t7820; struct w49 t7821; struct structure_type24753 *t7822; struct w16638 t7823; /* x244528 */ /* x244526 */ t7816 = a33525; /* x244527 */ /* x244525 */ /* x244524 */ /* x244523 */ /* x244522 */ /* x244521 */ /* x244520 */ /* x244519 */ /* x244502 */ /* x244501 */ /* MOVE: branching squeezed to general */ if (t7816>=((struct structure_type24753 *)VALUE_OFFSET)) {a33528.tag = STRUCTURE_TYPE24753; a33528.value.structure_type24753 = t7816;} else a33528.tag = (unsigned)t7816; a33529 = (struct structure_type24753 *)NULL_TYPE; h26329: /* x244518 */ /* x244505 */ /* x244504 */ t7817 = a33528; /* x267271 */ if (!((t7817.tag)==NULL_TYPE)) goto l2667; /* x244506 */ return a33529; l2667: /* x244517 */ /* x244510 */ /* x244509 */ t7820 = *((struct w16638 *)(&a33528)); /* x267270 */ if (!((t7820.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[26329]"); structure_ref_error();} t7818 = t7820.value.structure_type24753->s1; /* x244516 */ /* x244514 */ /* x244513 */ t7823 = *((struct w16638 *)(&a33528)); /* x267268 */ if (!((t7823.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[26329]"); structure_ref_error();} t7821 = t7823.value.structure_type24753->s0; /* x244515 */ t7822 = a33529; /* x267269 */ t7819 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t7819==NULL) {backtrace_internal("LOOP[26329]"); out_of_memory_error();} t7819->s0 = t7821; /* MOVE: branching squeezed to general */ if (t7822>=((struct structure_type24753 *)VALUE_OFFSET)) {t7819->s1.tag = STRUCTURE_TYPE24753; t7819->s1.value.structure_type24753 = t7822;} else t7819->s1.tag = (unsigned)t7822; /* x244507 */ a33528 = t7818; a33529 = t7819; goto h26329;} /* LOOP[26267] */ struct w49 f26267(struct w49 a33481, struct w49 a33482, struct w49 a33483) {struct w49 r26267; struct w49 t7824; struct w49 t7825; struct w49 t7826; struct w16638 t7827; struct w49 t7828; struct w49 t7829; struct w49 t7830; struct w16638 t7831; struct w49 t7832; struct w49 t7833; struct w49 t7834; struct w49 t7835; struct w16638 t7836; struct w16638 t7837; h26267: /* x244158 */ /* x244131 */ /* x244130 */ t7824 = a33481; /* x267328 */ if (!((t7824.tag)==NULL_TYPE)) goto l2669; /* x244145 */ /* x244134 */ /* x244133 */ t7832 = a33483; /* x267327 */ if (!((t7832.tag)==NULL_TYPE)) goto l2671; /* x244135 */ return a33482; l2671: /* x244144 */ /* x244137 */ t7833 = a33482; /* x244140 */ /* x244139 */ t7836 = *((struct w16638 *)(&a33483)); /* x267326 */ if (!((t7836.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[26267]"); structure_ref_error();} t7834 = t7836.value.structure_type24753->s0; /* x244143 */ /* x244142 */ t7837 = *((struct w16638 *)(&a33483)); /* x267325 */ if (!((t7837.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[26267]"); structure_ref_error();} t7835 = t7837.value.structure_type24753->s1; /* x244136 */ a33481 = t7833; a33482 = t7834; a33483 = t7835; goto h26267; l2669: /* x244157 */ /* x244149 */ /* x244148 */ t7827 = *((struct w16638 *)(&a33481)); /* x267323 */ if (!((t7827.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[26267]"); structure_ref_error();} t7825 = t7827.value.structure_type24753->s0; /* x244156 */ /* x244153 */ /* x244152 */ t7831 = *((struct w16638 *)(&a33481)); /* x267322 */ if (!((t7831.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[26267]"); structure_ref_error();} t7828 = t7831.value.structure_type24753->s1; /* x244154 */ t7829 = a33482; /* x244155 */ t7830 = a33483; /* x244150 */ t7826 = f26267(t7828, t7829, t7830); /* x267324 */ r26267.tag = STRUCTURE_TYPE24753; r26267.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r26267.value.structure_type24753)==NULL) {backtrace_internal("LOOP[26267]"); out_of_memory_error();} r26267.value.structure_type24753->s0 = t7825; r26267.value.structure_type24753->s1 = t7826; return r26267;} /* APPEND[26254] */ struct w49 f26254(struct structure_type24753 *a33473) {struct w49 r26254; struct w49 a33476; /* SS */ struct w49 a33486; /* SS */ char *a33488; /* R */ int a33489; /* K */ struct w49 a33493; /* STRINGS */ int a33494; /* N */ int a33498; /* L */ int a33503; /* K */ struct w49 a33504; /* STRINGS */ struct w49 a33507; /* SS */ struct headed_vector_type27896 *a33509; /* R */ int a33510; /* K */ struct w49 a33514; /* VECTORS */ int a33518; /* L */ int a33523; /* K */ struct w49 a33524; /* VECTORS */ struct structure_type24753 *t7838; struct structure_type24753 *t7839; struct w49 t7840; struct w49 t7841; struct w49 t7842; struct w49 t7843; struct w49 t7844; struct w49 t7845; struct w49 t7846; struct w49 t7847; struct structure_type24753 *t7848; struct w49 t7849; struct w49 t7850; struct w49 t7851; struct w49 t7852; struct w49 t7853; struct structure_type24753 *t7854; struct w49 t7855; struct w49 t7856; struct w49 t7857; struct w49 t7858; struct w49 t7859; char *t7860; struct headed_vector_type27896 *t7861; int t7862; struct structure_type24753 *t7863; struct w49 t7864; struct w49 t7865; struct w16638 t7866; int t7867; int t7868; int t7869; struct w49 t7870; struct w49 t7871; int t7872; int t7873; int t7874; struct headed_vector_type27896 *t7875; int t7876; struct w49 t7877; struct w49 t7878; int t7879; struct w49 t7880; int t7881; int t7882; int t7883; int t7884; struct structure_type24753 *t7885; struct w49 t7886; int t7887; struct w49 t7888; int t7889; int t7890; struct w49 t7891; struct w16638 t7892; struct w16638 t7893; char *t7894; int t7895; struct structure_type24753 *t7896; struct w49 t7897; int t7898; struct w49 t7899; struct w16638 t7900; int t7901; int t7902; int t7903; int t7904; int t7905; int t7906; char *t7907; int t7908; char t7909; struct w49 t7910; int t7911; struct w49 t7912; int t7913; int t7914; struct w49 t7915; struct w16638 t7916; int t7917; char *t7918; int t7919; struct structure_type24753 *t7920; struct w49 t7921; int t7922; struct w49 t7923; int t7924; int t7925; struct w49 t7926; struct w16638 t7927; struct w16638 t7928; struct w49 t7929; struct structure_type24753 *t7930; struct w49 t7931; struct w49 t7932; struct w49 t7933; struct structure_type24753 *t7934; struct w49 t7935; struct structure_type24753 *t7936; struct w49 t7937; struct structure_type24753 *t7938; struct structure_type24753 *t7939; /* x244498 */ /* x244070 */ /* x244069 */ t7838 = a33473; /* x267339 */ /* x244497 */ /* x244116 */ /* x244115 */ t7839 = a33473; /* x244114 */ /* x244113 */ /* x244112 */ /* x244111 */ /* x244110 */ /* x244109 */ /* x244108 */ /* x244075 */ /* x244074 */ a33476.tag = STRUCTURE_TYPE24753; a33476.value.structure_type24753 = t7839; h26258: /* x244107 */ /* x244106 */ /* x244105 */ /* x244104 */ t7841 = a33476; /* x267332 */ if (!((t7841.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[26258]"); structure_ref_error();} t7840 = t7841.value.structure_type24753->s1; /* x267333 */ if ((t7840.tag)==NULL_TYPE) goto l2673; /* x244099 */ /* x244092 */ /* x244091 */ /* x244090 */ /* x244089 */ t7843 = a33476; /* x267335 */ if (!((t7843.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 26259]"); structure_ref_error();} t7842 = t7843.value.structure_type24753->s0; /* x267336 */ if ((t7842.tag)==NULL_TYPE) goto l2676; /* x244084 */ /* x244083 */ /* x244082 */ t7845 = a33476; /* x267337 */ if (!((t7845.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 26260]"); structure_ref_error();} t7844 = t7845.value.structure_type24753->s0; /* x267338 */ if (!((t7844.tag)==STRUCTURE_TYPE24753)) goto l2674; l2676: /* x244097 */ /* x244096 */ /* x244095 */ t7847 = a33476; /* x267334 */ if (!((t7847.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 26259]"); structure_ref_error();} t7846 = t7847.value.structure_type24753->s1; /* x244093 */ a33476 = t7846; goto h26258; l2673: /* x244184 */ /* x244183 */ /* x244182 */ /* x244121 */ /* x244120 */ /* x244119 */ t7930 = a33473; /* x267330 */ t7929 = t7930->s1; /* x267331 */ if (!((t7929.tag)==NULL_TYPE)) goto l2705; /* x244126 */ /* x244125 */ /* x244124 */ /* x244123 */ t7939 = a33473; /* x267329 */ return t7939->s0; l2705: /* x244181 */ /* x244180 */ /* x244179 */ /* x244168 */ /* x244167 */ t7934 = a33473; /* x267321 */ t7931 = t7934->s0; /* x244173 */ /* x244172 */ /* x244171 */ t7936 = a33473; /* x267319 */ t7935 = t7936->s1; /* x267320 */ if (!((t7935.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside APPEND 26264]"); structure_ref_error();} t7932 = t7935.value.structure_type24753->s0; /* x244178 */ /* x244177 */ /* x244176 */ t7938 = a33473; /* x267317 */ t7937 = t7938->s1; /* x267318 */ if (!((t7937.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside APPEND 26264]"); structure_ref_error();} t7933 = t7937.value.structure_type24753->s1; /* x244165 */ /* x244164 */ /* x244163 */ /* x244162 */ /* x244161 */ /* x244160 */ /* x244159 */ /* x244128 */ /* x244127 */ return f26267(t7931, t7932, t7933); l2674: /* x244496 */ /* x244215 */ /* x244214 */ t7848 = a33473; /* x244213 */ /* x244212 */ /* x244211 */ /* x244210 */ /* x244209 */ /* x244208 */ /* x244207 */ /* x244186 */ /* x244185 */ a33486.tag = STRUCTURE_TYPE24753; a33486.value.structure_type24753 = t7848; h26271: /* x244206 */ /* x244205 */ /* x244204 */ t7849 = a33486; /* x267313 */ if ((t7849.tag)==NULL_TYPE) goto l2678; /* x244200 */ /* x244193 */ /* x244192 */ /* x244191 */ t7851 = a33486; /* x267315 */ if (!((t7851.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 26272]"); structure_ref_error();} t7850 = t7851.value.structure_type24753->s0; /* x267316 */ if (!((t7850.tag)==STRING_TYPE)) goto l2679; /* x244198 */ /* x244197 */ /* x244196 */ t7853 = a33486; /* x267314 */ if (!((t7853.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 26272]"); structure_ref_error();} t7852 = t7853.value.structure_type24753->s1; /* x244194 */ a33486 = t7852; goto h26271; l2678: /* x244337 */ /* x244336 */ /* x244335 */ /* x244334 */ /* x244333 */ /* x244331 */ t7919 = 0; /* x244332 */ t7920 = a33473; /* x244330 */ /* x244329 */ /* x244328 */ /* x244327 */ /* x244326 */ /* x244325 */ /* x244324 */ /* x244305 */ /* x244304 */ a33503 = t7919; a33504.tag = STRUCTURE_TYPE24753; a33504.value.structure_type24753 = t7920; h26295: /* x244323 */ /* x244308 */ /* x244307 */ t7921 = a33504; /* x267299 */ if (!((t7921.tag)==NULL_TYPE)) goto l2702; /* x244309 */ t7917 = a33503; goto l2703; l2702: /* x244322 */ /* x244318 */ /* x244312 */ t7924 = a33503; /* x244317 */ /* x244316 */ /* x244315 */ t7927 = *((struct w16638 *)(&a33504)); /* x267296 */ if (!((t7927.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[26295]"); structure_ref_error();} t7926 = t7927.value.structure_type24753->s0; /* x267297 */ if (!((t7926.tag)==STRING_TYPE)) {backtrace_internal("LOOP[26295]"); string_length_error();} t7925 = strlen(t7926.value.string_type); /* x267298 */ t7922 = t7924+t7925; /* x244321 */ /* x244320 */ t7928 = *((struct w16638 *)(&a33504)); /* x267295 */ if (!((t7928.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[26295]"); structure_ref_error();} t7923 = t7928.value.structure_type24753->s1; /* x244310 */ a33503 = t7922; a33504 = t7923; goto h26295; l2703: /* x267300 */ t7894 = (char *)GC_malloc_atomic((t7917+1)*sizeof(char)); if (t7894==NULL) {backtrace_internal("[inside APPEND 26274]"); out_of_memory_error();} t7894[t7917] = '\0'; for (t7918 = &(t7894[0]); t7918<(&(t7894[t7917])); t7918++) *t7918 = ' '; /* x244302 */ a33488 = t7894; /* x244301 */ /* x244300 */ t7895 = 0; /* x244299 */ a33489 = t7895; /* x244298 */ /* x244297 */ /* x244296 */ /* x244295 */ /* x244294 */ t7896 = a33473; /* x244293 */ /* x244292 */ /* x244291 */ /* x244290 */ /* x244289 */ /* x244288 */ /* x244287 */ /* x244219 */ /* x244218 */ a33493.tag = STRUCTURE_TYPE24753; a33493.value.structure_type24753 = t7896; h26281: /* x244286 */ /* x244224 */ /* x244223 */ /* x244222 */ t7897 = a33493; /* x267311 */ if ((t7897.tag)==NULL_TYPE) goto l2696; /* x244283 */ /* x244282 */ /* x244281 */ /* x244280 */ t7916 = *((struct w16638 *)(&a33493)); /* x267301 */ if (!((t7916.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[26281]"); structure_ref_error();} t7915 = t7916.value.structure_type24753->s0; /* x267302 */ if (!((t7915.tag)==STRING_TYPE)) {backtrace_internal("LOOP[26281]"); string_length_error();} t7898 = strlen(t7915.value.string_type); /* x244277 */ a33494 = t7898; /* x244276 */ /* x244275 */ /* x244274 */ t7901 = 0; /* x244273 */ /* x244272 */ /* x244271 */ /* x244270 */ /* x244269 */ /* x244268 */ /* x244267 */ /* x244232 */ /* x244231 */ a33498 = t7901; h26286: /* x244266 */ /* x244238 */ /* x244237 */ /* x244235 */ t7902 = a33498; /* x244236 */ t7903 = a33494; /* x267308 */ if (t7902==t7903) goto l2699; /* x244263 */ /* x244262 */ /* x244261 */ /* x244255 */ /* x244247 */ t7907 = a33488; /* x244248 */ t7908 = a33489; /* x244254 */ /* x244252 */ /* x244251 */ t7912 = a33493; /* x267304 */ if (!((t7912.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 26287]"); structure_ref_error();} t7910 = t7912.value.structure_type24753->s0; /* x244253 */ t7911 = a33498; /* x267305 */ if (!((t7910.tag)==STRING_TYPE)) {backtrace_internal("[inside LOOP 26287]"); string_ref1_error();} if ((t7911<0)||(t7911>=strlen(t7910.value.string_type))) {backtrace_internal("[inside LOOP 26287]"); string_ref3_error();} t7909 = (t7910.value.string_type)[t7911]; /* x267306 */ if ((t7908<0)||(t7908>=strlen(t7907))) {backtrace_internal("[inside LOOP 26287]"); string_set4_error();} t7907[t7908] = t7909; /* x244260 */ /* x244259 */ /* x244257 */ t7913 = a33489; /* x244258 */ t7914 = 1; /* x267303 */ a33489 = t7913+t7914; /* x244245 */ /* x244244 */ /* x244243 */ /* x244241 */ t7905 = a33498; /* x244242 */ t7906 = 1; /* x267307 */ t7904 = t7905+t7906; /* x244239 */ a33498 = t7904; goto h26286; goto l2700; l2699: /* x244265 */ /* x244264 */ l2700: /* x244230 */ /* x244229 */ /* x244228 */ /* x244227 */ t7900 = *((struct w16638 *)(&a33493)); /* x267310 */ if (!((t7900.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 26283]"); structure_ref_error();} t7899 = t7900.value.structure_type24753->s1; /* x244225 */ a33493 = t7899; goto h26281; goto l2697; l2696: /* x244285 */ /* x244284 */ l2697: /* x244217 */ /* x244216 */ r26254.tag = STRING_TYPE; r26254.value.string_type = a33488; return r26254; l2679: /* x244495 */ /* x244368 */ /* x244367 */ t7854 = a33473; /* x244366 */ /* x244365 */ /* x244364 */ /* x244363 */ /* x244362 */ /* x244361 */ /* x244360 */ /* x244339 */ /* x244338 */ a33507.tag = STRUCTURE_TYPE24753; a33507.value.structure_type24753 = t7854; h26299: /* x244359 */ /* x244358 */ /* x244357 */ t7855 = a33507; /* x267291 */ if ((t7855.tag)==NULL_TYPE) goto l2682; /* x244353 */ /* x244346 */ /* x244345 */ /* x244344 */ t7857 = a33507; /* x267293 */ if (!((t7857.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 26300]"); structure_ref_error();} t7856 = t7857.value.structure_type24753->s0; /* x267294 */ if (!((t7856.tag)==HEADED_VECTOR_TYPE27896)) goto l2683; /* x244351 */ /* x244350 */ /* x244349 */ t7859 = a33507; /* x267292 */ if (!((t7859.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 26300]"); structure_ref_error();} t7858 = t7859.value.structure_type24753->s1; /* x244347 */ a33507 = t7858; goto h26299; l2682: /* x244489 */ /* x244488 */ /* x244487 */ /* x244486 */ /* x244485 */ /* x244483 */ t7884 = 0; /* x244484 */ t7885 = a33473; /* x244482 */ /* x244481 */ /* x244480 */ /* x244479 */ /* x244478 */ /* x244477 */ /* x244476 */ /* x244457 */ /* x244456 */ a33523 = t7884; a33524.tag = STRUCTURE_TYPE24753; a33524.value.structure_type24753 = t7885; h26323: /* x244475 */ /* x244460 */ /* x244459 */ t7886 = a33524; /* x267277 */ if (!((t7886.tag)==NULL_TYPE)) goto l2693; /* x244461 */ t7883 = a33523; goto l2694; l2693: /* x244474 */ /* x244470 */ /* x244464 */ t7889 = a33523; /* x244469 */ /* x244468 */ /* x244467 */ t7892 = *((struct w16638 *)(&a33524)); /* x267274 */ if (!((t7892.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[26323]"); structure_ref_error();} t7891 = t7892.value.structure_type24753->s0; /* x267275 */ if (!((t7891.tag)==HEADED_VECTOR_TYPE27896)) {backtrace_internal("LOOP[26323]"); vector_length_error();} t7890 = t7891.value.headed_vector_type27896->length; /* x267276 */ t7887 = t7889+t7890; /* x244473 */ /* x244472 */ t7893 = *((struct w16638 *)(&a33524)); /* x267273 */ if (!((t7893.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[26323]"); structure_ref_error();} t7888 = t7893.value.structure_type24753->s1; /* x244462 */ a33523 = t7887; a33524 = t7888; goto h26323; l2694: /* x267278 */ t7861 = (struct headed_vector_type27896 *)GC_malloc(sizeof(struct headed_vector_type27896)+((t7883-1)*sizeof(struct w49))); if (t7861==NULL) {backtrace_internal("[inside APPEND 26302]"); out_of_memory_error();} t7861->length = t7883; /* x244454 */ a33509 = t7861; /* x244453 */ /* x244452 */ t7862 = 0; /* x244451 */ a33510 = t7862; /* x244450 */ /* x244449 */ /* x244448 */ /* x244447 */ /* x244446 */ t7863 = a33473; /* x244445 */ /* x244444 */ /* x244443 */ /* x244442 */ /* x244441 */ /* x244440 */ /* x244439 */ /* x244372 */ /* x244371 */ a33514.tag = STRUCTURE_TYPE24753; a33514.value.structure_type24753 = t7863; h26309: /* x244438 */ /* x244377 */ /* x244376 */ /* x244375 */ t7864 = a33514; /* x267289 */ if ((t7864.tag)==NULL_TYPE) goto l2687; /* x244435 */ /* x244434 */ /* x244433 */ /* x244432 */ /* x244431 */ t7867 = 0; /* x244430 */ /* x244429 */ /* x244428 */ /* x244427 */ /* x244426 */ /* x244425 */ /* x244424 */ /* x244385 */ /* x244384 */ a33518 = t7867; h26314: /* x244423 */ /* x244395 */ /* x244394 */ /* x244388 */ t7868 = a33518; /* x244393 */ /* x244392 */ /* x244391 */ t7871 = a33514; /* x267284 */ if (!((t7871.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[26314]"); structure_ref_error();} t7870 = t7871.value.structure_type24753->s0; /* x267285 */ if (!((t7870.tag)==HEADED_VECTOR_TYPE27896)) {backtrace_internal("LOOP[26314]"); vector_length_error();} t7869 = t7870.value.headed_vector_type27896->length; /* x267286 */ if (t7868==t7869) goto l2690; /* x244420 */ /* x244419 */ /* x244418 */ /* x244412 */ /* x244404 */ t7875 = a33509; /* x244405 */ t7876 = a33510; /* x244411 */ /* x244409 */ /* x244408 */ t7880 = a33514; /* x267280 */ if (!((t7880.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 26315]"); structure_ref_error();} t7878 = t7880.value.structure_type24753->s0; /* x244410 */ t7879 = a33518; /* x267281 */ if (!((t7878.tag)==HEADED_VECTOR_TYPE27896)) {backtrace_internal("[inside LOOP 26315]"); vector_ref1_error();} if ((t7879<0)||(t7879>=(t7878.value.headed_vector_type27896->length))) {backtrace_internal("[inside LOOP 26315]"); vector_ref3_error();} t7877 = (t7878.value.headed_vector_type27896->element)[t7879]; /* x267282 */ if ((t7876<0)||(t7876>=(t7875->length))) {backtrace_internal("[inside LOOP 26315]"); vector_set3_error();} (t7875->element)[t7876] = t7877; /* x244417 */ /* x244416 */ /* x244414 */ t7881 = a33510; /* x244415 */ t7882 = 1; /* x267279 */ a33510 = t7881+t7882; /* x244402 */ /* x244401 */ /* x244400 */ /* x244398 */ t7873 = a33518; /* x244399 */ t7874 = 1; /* x267283 */ t7872 = t7873+t7874; /* x244396 */ a33518 = t7872; goto h26314; goto l2691; l2690: /* x244422 */ /* x244421 */ l2691: /* x244383 */ /* x244382 */ /* x244381 */ /* x244380 */ t7866 = *((struct w16638 *)(&a33514)); /* x267288 */ if (!((t7866.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 26311]"); structure_ref_error();} t7865 = t7866.value.structure_type24753->s1; /* x244378 */ a33514 = t7865; goto h26309; goto l2688; l2687: /* x244437 */ /* x244436 */ l2688: /* x244370 */ /* x244369 */ r26254.tag = HEADED_VECTOR_TYPE27896; r26254.value.headed_vector_type27896 = a33509; return r26254; l2683: /* x244494 */ /* x244493 */ /* x244492 */ /* x244491 */ t7860 = "Arguments to APPEND are not all lists, strings, or vectors"; /* x267272 */ stalin_panic(t7860);} /* LOOP[26236] */ struct structure_type24753 *f26236(struct w49 a33462, int a33463) {struct structure_type24753 *r26236; int t7940; struct w49 t7941; struct structure_type24753 *t7942; struct w49 t7943; struct w49 t7944; int t7945; struct w49 t7946; int t7947; int t7948; /* x243903 */ /* x243887 */ /* x243886 */ t7940 = a33463; /* x267371 */ if (!(t7940==0)) goto l2707; /* x243888 */ return (struct structure_type24753 *)NULL_TYPE; l2707: /* x243902 */ /* x243892 */ /* x243891 */ t7943 = a33462; /* x267369 */ if (!((t7943.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[26236]"); structure_ref_error();} t7941 = t7943.value.structure_type24753->s0; /* x243901 */ /* x243896 */ /* x243895 */ t7946 = a33462; /* x267368 */ if (!((t7946.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[26236]"); structure_ref_error();} t7944 = t7946.value.structure_type24753->s1; /* x243900 */ /* x243898 */ t7947 = a33463; /* x243899 */ t7948 = 1; /* x267367 */ t7945 = t7947-t7948; /* x243893 */ t7942 = f26236(t7944, t7945); /* x267370 */ r26236 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r26236==NULL) {backtrace_internal("LOOP[26236]"); out_of_memory_error();} r26236->s0 = t7941; /* MOVE: branching squeezed to general */ if (t7942>=((struct structure_type24753 *)VALUE_OFFSET)) {r26236->s1.tag = STRUCTURE_TYPE24753; r26236->s1.value.structure_type24753 = t7942;} else r26236->s1.tag = (unsigned)t7942; return r26236;} /* SUBLIST[26233] */ struct structure_type24753 *f26233(struct w49 a33457, int a33458, int a33459) {int t7949; struct w49 t7950; int t7951; int t7952; struct w49 t7953; int t7954; int t7955; int t7956; int t7957; struct w49 t7958; int t7959; h26233: /* x243927 */ /* x243882 */ /* x243881 */ t7949 = a33458; /* x267372 */ if (!(t7949==0)) goto l2709; /* x243913 */ /* x243911 */ t7958 = a33457; /* x243912 */ t7959 = a33459; /* x243910 */ /* x243909 */ /* x243908 */ /* x243907 */ /* x243906 */ /* x243905 */ /* x243904 */ /* x243884 */ /* x243883 */ return f26236(t7958, t7959); l2709: /* x243926 */ /* x243917 */ /* x243916 */ t7953 = a33457; /* x267366 */ if (!((t7953.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("SUBLIST[26233]"); structure_ref_error();} t7950 = t7953.value.structure_type24753->s1; /* x243921 */ /* x243919 */ t7954 = a33458; /* x243920 */ t7955 = 1; /* x267365 */ t7951 = t7954-t7955; /* x243925 */ /* x243923 */ t7956 = a33459; /* x243924 */ t7957 = 1; /* x267364 */ t7952 = t7956-t7957; /* x243914 */ a33457 = t7950; a33458 = t7951; a33459 = t7952; goto h26233;} /* LENGTH[26227] */ int f26227(struct w49 a33456) {struct w49 t7960; struct w16638 t7961; struct w16614 t7962; struct w48298 t7963; char *t7964; struct headed_vector_type27896 *t7965; char *t7966; struct structure_type24753 *t7967; struct w49 t7968; /* x243877 */ /* x243841 */ /* x243840 */ t7960 = a33456; /* x267379 */ if (!((t7960.tag)==NULL_TYPE)) goto l2711; /* x243844 */ /* x243843 */ /* x243842 */ return 0; l2711: /* x243876 */ /* x243847 */ /* x243846 */ t7961 = *((struct w16638 *)(&a33456)); /* x267378 */ if (!((t7961.tag)==STRUCTURE_TYPE24753)) goto l2713; /* x243852 */ /* x243851 */ /* x243850 */ /* x243849 */ t7967 = a33456.value.structure_type24753; /* x243848 */ t7968.tag = STRUCTURE_TYPE24753; t7968.value.structure_type24753 = t7967; return f26219(t7968); l2713: /* x243875 */ /* x243855 */ /* x243854 */ t7962 = *((struct w16614 *)(&a33456)); /* x267377 */ if (!((t7962.tag)==STRING_TYPE)) goto l2715; /* x243860 */ /* x243859 */ /* x243858 */ /* x243857 */ t7966 = a33456.value.string_type; /* x267376 */ return strlen(t7966); l2715: /* x243874 */ /* x243863 */ /* x243862 */ t7963 = *((struct w48298 *)(&a33456)); /* x267375 */ if (!((t7963.tag)==HEADED_VECTOR_TYPE27896)) goto l2717; /* x243868 */ /* x243867 */ /* x243866 */ /* x243865 */ t7965 = a33456.value.headed_vector_type27896; /* x267374 */ return t7965->length; l2717: /* x243873 */ /* x243872 */ /* x243871 */ /* x243870 */ t7964 = "Argument to LENGTH is not a list, string, or vector"; /* x267373 */ stalin_panic(t7964);} /* LIST-LENGTH[26219] */ int f26219(struct w49 a33451) {int a33454; /* K */ int t7969; struct w49 t7970; int t7971; int t7972; int t7973; struct w49 t7974; /* x243836 */ /* x243835 */ t7969 = 0; /* x243834 */ /* x243833 */ /* x243832 */ /* x243831 */ /* x243830 */ /* x243829 */ /* x243828 */ /* x243806 */ /* x243805 */ a33454 = t7969; h26222: /* x243827 */ /* x243809 */ /* x243808 */ t7970 = a33451; /* x267382 */ if (!((t7970.tag)==NULL_TYPE)) goto l2719; /* x243812 */ /* x243811 */ /* x243810 */ return a33454; l2719: /* x243826 */ /* x243825 */ /* x243824 */ /* x243823 */ /* x243822 */ /* x243821 */ t7974 = a33451; /* x267380 */ if (!((t7974.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 26224]"); structure_ref_error();} a33451 = t7974.value.structure_type24753->s1; /* x243819 */ /* x243818 */ /* x243817 */ /* x243815 */ t7972 = a33454; /* x243816 */ t7973 = 1; /* x267381 */ t7971 = t7972+t7973; /* x243813 */ a33454 = t7971; goto h26222;} /* LIST[26218] */ struct structure_type24753 *f26218(struct structure_type24753 *a33450) {/* x243802 */ return a33450;} /* LIST?[26209] */ unsigned f26209(struct w49 a33441) {struct w49 a33445; /* SLOW */ struct w49 a33446; /* FAST */ struct w49 a33448; /* FAST */ struct w49 t7975; struct w49 t7976; struct structure_type24753 *t7977; struct w49 t7978; struct w49 t7979; struct w49 t7980; struct structure_type24753 *t7981; struct w49 t7982; struct w49 t7983; struct w49 t7984; struct w49 t7985; struct w49 t7986; struct w49 t7987; struct w49 t7988; struct structure_type24753 *t7989; struct structure_type24753 *t7990; struct structure_type24753 *t7991; /* x243799 */ /* x243799 */ /* x243798 */ /* x243797 */ t7975 = a33441; /* x267383 */ if ((t7975.tag)==NULL_TYPE) goto l2720; /* x243793 */ /* x243730 */ /* x243729 */ t7976 = a33441; /* x267394 */ if (!((t7976.tag)==STRUCTURE_TYPE24753)) goto l2721; /* x243791 */ /* x243787 */ t7977 = a33441.value.structure_type24753; /* x243790 */ /* x243789 */ t7991 = a33441.value.structure_type24753; /* x267384 */ t7978 = t7991->s1; /* x243786 */ /* x243785 */ /* x243784 */ /* x243783 */ /* x243782 */ /* x243781 */ /* x243780 */ /* x243732 */ /* x243731 */ a33445.tag = STRUCTURE_TYPE24753; a33445.value.structure_type24753 = t7977; a33446 = t7978; h26213: /* x243779 */ /* x243778 */ /* x243777 */ t7979 = a33446; /* x267385 */ if ((t7979.tag)==NULL_TYPE) goto l2720; /* x243773 */ /* x243737 */ /* x243736 */ t7980 = a33446; /* x267393 */ if (!((t7980.tag)==STRUCTURE_TYPE24753)) goto l2721; /* x243771 */ /* x243743 */ /* x243742 */ /* x243740 */ t7981 = a33446.value.structure_type24753; /* x243741 */ t7982 = a33445; /* x267391 */ if ((STRUCTURE_TYPE24753==(t7982.tag))&&(t7981==(t7982.value.structure_type24753))) goto l2721; /* x243769 */ /* x243768 */ /* x243767 */ t7990 = a33446.value.structure_type24753; /* x267386 */ t7983 = t7990->s1; /* x243765 */ a33448 = t7983; /* x243764 */ /* x243763 */ /* x243762 */ t7984 = a33448; /* x267387 */ if ((t7984.tag)==NULL_TYPE) goto l2720; /* x243758 */ /* x243748 */ /* x243747 */ t7985 = a33448; /* x267390 */ if (!((t7985.tag)==STRUCTURE_TYPE24753)) goto l2721; /* x243756 */ /* x243752 */ /* x243751 */ t7988 = a33445; /* x267389 */ if (!((t7988.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP? 26216]"); structure_ref_error();} t7986 = t7988.value.structure_type24753->s1; /* x243755 */ /* x243754 */ t7989 = a33448.value.structure_type24753; /* x267388 */ t7987 = t7989->s1; /* x243749 */ a33445 = t7986; a33446 = t7987; goto h26213; l2720: return TRUE_TYPE; l2721: return FALSE_TYPE;} /* CADDDR[26199] */ struct w49 f26199(struct w49 a33431) {struct w49 t7992; struct w49 t7993; struct w49 t7994; struct w49 t7995; /* x243630 */ /* x243629 */ /* x243628 */ /* x243627 */ /* x243626 */ t7995 = a33431; /* x267427 */ if (!((t7995.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("CADDDR[26199]"); structure_ref_error();} t7994 = t7995.value.structure_type24753->s1; /* x267428 */ if (!((t7994.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("CADDDR[26199]"); structure_ref_error();} t7993 = t7994.value.structure_type24753->s1; /* x267429 */ if (!((t7993.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("CADDDR[26199]"); structure_ref_error();} t7992 = t7993.value.structure_type24753->s1; /* x267430 */ if ((t7992.tag)==STRUCTURE_TYPE24753) return t7992.value.structure_type24753->s0; backtrace_internal("CADDDR[26199]"); structure_ref_error();} /* CADDR[26187] */ struct w49 f26187(struct w49 a33419) {struct w49 t7996; struct w49 t7997; struct w49 t7998; /* x243506 */ /* x243505 */ /* x243504 */ /* x243503 */ t7998 = a33419; /* x267471 */ if (!((t7998.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("CADDR[26187]"); structure_ref_error();} t7997 = t7998.value.structure_type24753->s1; /* x267472 */ if (!((t7997.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("CADDR[26187]"); structure_ref_error();} t7996 = t7997.value.structure_type24753->s1; /* x267473 */ if ((t7996.tag)==STRUCTURE_TYPE24753) return t7996.value.structure_type24753->s0; backtrace_internal("CADDR[26187]"); structure_ref_error();} /* CDDR[26183] */ struct w49 f26183(struct w49 a33415) {struct w49 t7999; struct w49 t8000; /* x243470 */ /* x243469 */ /* x243468 */ t8000 = a33415; /* x267483 */ if (!((t8000.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("CDDR[26183]"); structure_ref_error();} t7999 = t8000.value.structure_type24753->s1; /* x267484 */ if ((t7999.tag)==STRUCTURE_TYPE24753) return t7999.value.structure_type24753->s1; backtrace_internal("CDDR[26183]"); structure_ref_error();} /* CADR[26181] */ struct w49 f26181(struct w49 a33413) {struct w49 t8001; struct w49 t8002; /* x243456 */ /* x243455 */ /* x243454 */ t8002 = a33413; /* x267487 */ if (!((t8002.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("CADR[26181]"); structure_ref_error();} t8001 = t8002.value.structure_type24753->s1; /* x267488 */ if ((t8001.tag)==STRUCTURE_TYPE24753) return t8001.value.structure_type24753->s0; backtrace_internal("CADR[26181]"); structure_ref_error();} /* CDR[26177] */ struct w49 f26177(struct w49 a33407) {struct w49 t8003; /* x243430 */ /* x243429 */ t8003 = a33407; /* x243428 */ if ((t8003.tag)==STRUCTURE_TYPE24753) return t8003.value.structure_type24753->s1; backtrace_internal("CDR[26177]"); structure_ref_error();} /* CAR[26176] */ struct w49 f26176(struct w49 a33406) {struct w49 t8004; /* x243425 */ /* x243424 */ t8004 = a33406; /* x243423 */ if ((t8004.tag)==STRUCTURE_TYPE24753) return t8004.value.structure_type24753->s0; backtrace_internal("CAR[26176]"); structure_ref_error();} /* CONS[26175] */ struct structure_type24753 *f26175(struct w49 a33404, struct w49 a33405) {struct structure_type24753 *r26175; struct w49 t8005; struct w49 t8006; /* x243420 */ /* x243418 */ t8005 = a33404; /* x243419 */ t8006 = a33405; /* x243417 */ r26175 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r26175==NULL) {backtrace_internal("CONS[26175]"); out_of_memory_error();} r26175->s0 = t8005; r26175->s1 = t8006; return r26175;} /* EQUAL?[26165] */ unsigned f26165(struct w49 a33394, struct w49 a33395) {int a33401; /* K */ struct w49 t8007; struct w49 t8008; struct w49 t8009; struct w49 t8010; struct w49 t8011; struct w49 t8012; struct structure_type24753 *t8013; struct structure_type24753 *t8014; struct w49 t8015; struct w49 t8016; struct structure_type24753 *t8017; struct structure_type24753 *t8018; struct w49 t8019; struct w49 t8020; char *t8021; char *t8022; struct w49 t8023; struct w49 t8024; struct w49 t8025; struct w49 t8026; int t8027; int t8028; struct headed_vector_type27896 *t8029; struct headed_vector_type27896 *t8030; int t8031; int t8032; int t8033; struct w49 t8034; struct w49 t8035; struct w49 t8036; struct w49 t8037; int t8038; struct w49 t8039; int t8040; int t8041; int t8042; int t8043; /* x243409 */ /* x243409 */ /* x243408 */ /* x243406 */ t8007 = a33394; /* x243407 */ t8008 = a33395; /* x243405 */ if (!(f26160(t8007, t8008)==FALSE_TYPE)) goto l2730; /* x243402 */ /* x243401 */ /* x243376 */ /* x243375 */ t8009 = a33394; /* x267496 */ if (!((t8009.tag)==STRUCTURE_TYPE24753)) goto l2734; /* x243399 */ /* x243379 */ /* x243378 */ t8010 = a33395; /* x267495 */ if (!((t8010.tag)==STRUCTURE_TYPE24753)) goto l2734; /* x243397 */ /* x243387 */ /* x243383 */ /* x243382 */ t8013 = a33394.value.structure_type24753; /* x267494 */ t8011 = t8013->s0; /* x243386 */ /* x243385 */ t8014 = a33395.value.structure_type24753; /* x267493 */ t8012 = t8014->s0; /* x243380 */ if (f26165(t8011, t8012)==FALSE_TYPE) goto l2734; /* x243395 */ /* x243391 */ /* x243390 */ t8017 = a33394.value.structure_type24753; /* x267492 */ t8015 = t8017->s1; /* x243394 */ /* x243393 */ t8018 = a33395.value.structure_type24753; /* x267491 */ t8016 = t8018->s1; /* x243388 */ if (!(f26165(t8015, t8016)==FALSE_TYPE)) goto l2730; l2734: /* x243371 */ /* x243370 */ /* x243359 */ /* x243358 */ t8019 = a33394; /* x267498 */ if (!((t8019.tag)==STRING_TYPE)) goto l2738; /* x243368 */ /* x243362 */ /* x243361 */ t8020 = a33395; /* x267497 */ if (!((t8020.tag)==STRING_TYPE)) goto l2738; /* x243366 */ /* x243365 */ t8022 = a33395.value.string_type; /* x243364 */ t8021 = a33394.value.string_type; /* x243363 */ t8023.tag = STRING_TYPE; t8023.value.string_type = t8021; t8024.tag = STRING_TYPE; t8024.value.string_type = t8022; if (!(f27434(t8023, t8024)==FALSE_TYPE)) goto l2730; l2738: /* x243354 */ /* x243297 */ /* x243296 */ t8025 = a33394; /* x267508 */ if (!((t8025.tag)==HEADED_VECTOR_TYPE27896)) goto l2731; /* x243352 */ /* x243300 */ /* x243299 */ t8026 = a33395; /* x267507 */ if (!((t8026.tag)==HEADED_VECTOR_TYPE27896)) goto l2731; /* x243350 */ /* x243308 */ /* x243304 */ /* x243303 */ t8029 = a33394.value.headed_vector_type27896; /* x267505 */ t8027 = t8029->length; /* x243307 */ /* x243306 */ t8030 = a33395.value.headed_vector_type27896; /* x267504 */ t8028 = t8030->length; /* x267506 */ if (!(t8027==t8028)) goto l2731; /* x243348 */ /* x243347 */ t8031 = 0; /* x243346 */ /* x243345 */ /* x243344 */ /* x243343 */ /* x243342 */ /* x243341 */ /* x243340 */ /* x243310 */ /* x243309 */ a33401 = t8031; h26171: /* x243339 */ /* x243338 */ /* x243334 */ t8032 = a33401; /* x243337 */ /* x243336 */ t8034 = a33394; /* x267499 */ if (!((t8034.tag)==HEADED_VECTOR_TYPE27896)) {backtrace_internal("LOOP?[26171]"); vector_length_error();} t8033 = t8034.value.headed_vector_type27896->length; /* x267500 */ if (t8032==t8033) goto l2730; /* x243330 */ /* x243322 */ /* x243317 */ /* x243315 */ t8037 = a33394; /* x243316 */ t8038 = a33401; /* x267503 */ if (!((t8037.tag)==HEADED_VECTOR_TYPE27896)) {backtrace_internal("[inside LOOP? 26172]"); vector_ref1_error();} if ((t8038<0)||(t8038>=(t8037.value.headed_vector_type27896->length))) {backtrace_internal("[inside LOOP? 26172]"); vector_ref3_error();} t8035 = (t8037.value.headed_vector_type27896->element)[t8038]; /* x243321 */ /* x243319 */ t8039 = a33395; /* x243320 */ t8040 = a33401; /* x267502 */ if (!((t8039.tag)==HEADED_VECTOR_TYPE27896)) {backtrace_internal("[inside LOOP? 26172]"); vector_ref1_error();} if ((t8040<0)||(t8040>=(t8039.value.headed_vector_type27896->length))) {backtrace_internal("[inside LOOP? 26172]"); vector_ref3_error();} t8036 = (t8039.value.headed_vector_type27896->element)[t8040]; /* x243313 */ if (f26165(t8035, t8036)==FALSE_TYPE) goto l2731; /* x243328 */ /* x243327 */ /* x243325 */ t8042 = a33401; /* x243326 */ t8043 = 1; /* x267501 */ t8041 = t8042+t8043; /* x243323 */ a33401 = t8041; goto h26171; l2730: return TRUE_TYPE; l2731: return FALSE_TYPE;} /* EQV?[26160] */ unsigned f26160(struct w49 a33387, struct w49 a33388) {struct w49 t8044; struct w49 t8045; struct w49 t8046; struct w49 t8047; struct w30215 t8048; struct w30215 t8049; struct w49 t8050; struct w49 t8051; int t8052; char *t8053; int t8054; char *t8055; struct w49 t8056; struct w49 t8057; int t8058; struct headed_vector_type27896 *t8059; int t8060; struct headed_vector_type27896 *t8061; /* x243280 */ /* x243280 */ /* x243279 */ /* x243277 */ t8044 = a33387; /* x243278 */ t8045 = a33388; /* x267509 */ /* EQ: dispatching general to general */ if ((t8044.tag)==(t8045.tag)) switch (t8044.tag) {case FIXNUM_TYPE: if ((t8044.value.fixnum_type)==(t8045.value.fixnum_type)) goto l2746; break; case FLONUM_TYPE: if ((t8044.value.flonum_type)==(t8045.value.flonum_type)) goto l2746; break; case INPUT_PORT_TYPE: if ((t8044.value.input_port_type)==(t8045.value.input_port_type)) goto l2746; break; case OUTPUT_PORT_TYPE: if ((t8044.value.output_port_type)==(t8045.value.output_port_type)) goto l2746; break; case NATIVE_PROCEDURE_TYPE15963: if ((t8044.value.native_procedure_type15963)==(t8045.value.native_procedure_type15963)) goto l2746; break; case NATIVE_PROCEDURE_TYPE19067: if ((t8044.value.native_procedure_type19067)==(t8045.value.native_procedure_type19067)) goto l2746; break; case NATIVE_PROCEDURE_TYPE19068: if ((t8044.value.native_procedure_type19068)==(t8045.value.native_procedure_type19068)) goto l2746; break; case NATIVE_PROCEDURE_TYPE22459: if ((t8044.value.native_procedure_type22459)==(t8045.value.native_procedure_type22459)) goto l2746; break; case STRUCTURE_TYPE24753: if ((t8044.value.structure_type24753)==(t8045.value.structure_type24753)) goto l2746; break; case STRUCTURE_TYPE24757: if ((t8044.value.structure_type24757)==(t8045.value.structure_type24757)) goto l2746; break; case STRUCTURE_TYPE27501: if ((t8044.value.structure_type27501)==(t8045.value.structure_type27501)) goto l2746; break; case STRUCTURE_TYPE27510: if ((t8044.value.structure_type27510)==(t8045.value.structure_type27510)) goto l2746; break; case STRUCTURE_TYPE27621: if ((t8044.value.structure_type27621)==(t8045.value.structure_type27621)) goto l2746; break; case STRUCTURE_TYPE27650: if ((t8044.value.structure_type27650)==(t8045.value.structure_type27650)) goto l2746; break; case STRUCTURE_TYPE27669: if ((t8044.value.structure_type27669)==(t8045.value.structure_type27669)) goto l2746; break; case STRUCTURE_TYPE27673: if ((t8044.value.structure_type27673)==(t8045.value.structure_type27673)) goto l2746; break; case STRUCTURE_TYPE27692: if ((t8044.value.structure_type27692)==(t8045.value.structure_type27692)) goto l2746; break; case STRUCTURE_TYPE27694: if ((t8044.value.structure_type27694)==(t8045.value.structure_type27694)) goto l2746; break; case STRUCTURE_TYPE27698: if ((t8044.value.structure_type27698)==(t8045.value.structure_type27698)) goto l2746; break; case STRUCTURE_TYPE27745: if ((t8044.value.structure_type27745)==(t8045.value.structure_type27745)) goto l2746; break; case STRUCTURE_TYPE27747: if ((t8044.value.structure_type27747)==(t8045.value.structure_type27747)) goto l2746; break; case STRUCTURE_TYPE27750: if ((t8044.value.structure_type27750)==(t8045.value.structure_type27750)) goto l2746; break; case STRUCTURE_TYPE27753: if ((t8044.value.structure_type27753)==(t8045.value.structure_type27753)) goto l2746; break; case STRUCTURE_TYPE27756: if ((t8044.value.structure_type27756)==(t8045.value.structure_type27756)) goto l2746; break; case STRUCTURE_TYPE27761: if ((t8044.value.structure_type27761)==(t8045.value.structure_type27761)) goto l2746; break; case STRUCTURE_TYPE27769: if ((t8044.value.structure_type27769)==(t8045.value.structure_type27769)) goto l2746; break; case STRUCTURE_TYPE27776: if ((t8044.value.structure_type27776)==(t8045.value.structure_type27776)) goto l2746; break; case STRUCTURE_TYPE27779: if ((t8044.value.structure_type27779)==(t8045.value.structure_type27779)) goto l2746; break; case STRUCTURE_TYPE27858: if ((t8044.value.structure_type27858)==(t8045.value.structure_type27858)) goto l2746; break; case STRING_TYPE: if ((t8044.value.string_type)==(t8045.value.string_type)) goto l2746; break; case HEADED_VECTOR_TYPE27896: if ((t8044.value.headed_vector_type27896)==(t8045.value.headed_vector_type27896)) goto l2746; break; case EXTERNAL_SYMBOL_TYPE: if ((t8044.value.external_symbol_type)==(t8045.value.external_symbol_type)) goto l2746; break; case STRUCTURE_TYPE27908: if ((t8044.value.structure_type27908)==(t8045.value.structure_type27908)) goto l2746; break; default: goto l2746;} /* x243273 */ /* x243272 */ /* x243261 */ /* x243260 */ t8046 = a33387; /* x267512 */ switch (t8046.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: break; default: goto l2750;} /* x243270 */ /* x243264 */ /* x243263 */ t8047 = a33388; /* x267511 */ switch (t8047.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: break; default: goto l2750;} /* x243268 */ /* x243266 */ t8048 = *((struct w30215 *)(&a33387)); /* x243267 */ t8049 = *((struct w30215 *)(&a33388)); /* x267510 */ if ((t8048.tag)==FIXNUM_TYPE) {if ((t8049.tag)==FIXNUM_TYPE) {if ((t8048.value.fixnum_type)==(t8049.value.fixnum_type)) goto l2746;} else if ((t8048.value.fixnum_type)==(t8049.value.flonum_type)) goto l2746;} else {if ((t8049.tag)==FIXNUM_TYPE) {if ((t8048.value.flonum_type)==(t8049.value.fixnum_type)) goto l2746;} else if ((t8048.value.flonum_type)==(t8049.value.flonum_type)) goto l2746;} l2750: /* x243256 */ /* x243255 */ /* x243236 */ /* x243235 */ t8050 = a33387; /* x267518 */ if (!((t8050.tag)==STRING_TYPE)) goto l2753; /* x243253 */ /* x243239 */ /* x243238 */ t8051 = a33388; /* x267517 */ if (!((t8051.tag)==STRING_TYPE)) goto l2753; /* x243251 */ /* x243244 */ /* x243243 */ /* x243242 */ t8053 = a33387.value.string_type; /* x267515 */ t8052 = strlen(t8053); /* x267516 */ if (!(t8052==0)) goto l2753; /* x243249 */ /* x243248 */ /* x243247 */ t8055 = a33388.value.string_type; /* x267513 */ t8054 = strlen(t8055); /* x267514 */ if (t8054==0) goto l2746; l2753: /* x243231 */ /* x243212 */ /* x243211 */ t8056 = a33387; /* x267524 */ if (!((t8056.tag)==HEADED_VECTOR_TYPE27896)) goto l2747; /* x243229 */ /* x243215 */ /* x243214 */ t8057 = a33388; /* x267523 */ if (!((t8057.tag)==HEADED_VECTOR_TYPE27896)) goto l2747; /* x243227 */ /* x243220 */ /* x243219 */ /* x243218 */ t8059 = a33387.value.headed_vector_type27896; /* x267521 */ t8058 = t8059->length; /* x267522 */ if (!(t8058==0)) goto l2747; /* x243225 */ /* x243224 */ /* x243223 */ t8061 = a33388.value.headed_vector_type27896; /* x267519 */ t8060 = t8061->length; /* x267520 */ if (!(t8060==0)) goto l2747; l2746: return TRUE_TYPE; l2747: return FALSE_TYPE;} /* [inside STALIN 19649] */ struct structure_type24753 *f19649(struct w49 a33381) {struct structure_type24753 *a35240; /* OBJS */ char *t8062; struct w49 t8063; struct w49 t8064; /* x229796 stalin.sc:32607:1126603 */ /* x229795 stalin.sc:32607:1126614 */ t8063 = a33381; /* x229794 stalin.sc:32607:1126609 */ t8062 = "-L"; /* x229793 stalin.sc:32607:1126604 */ t8064.tag = STRUCTURE_TYPE24753; t8064.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8064.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32607, 1126603); out_of_memory_error();} t8064.value.structure_type24753->s0 = t8063; t8064.value.structure_type24753->s1.tag = NULL_TYPE; a35240 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35240==NULL) {backtrace("stalin.sc", 32607, 1126603); out_of_memory_error();} a35240->s0.tag = STRING_TYPE; a35240->s0.value.string_type = t8062; a35240->s1 = t8064; /* x272487 */ return a35240;} /* [inside STALIN 19648] */ struct structure_type24753 *f19648(struct w49 a33380) {struct structure_type24753 *a35239; /* OBJS */ char *t8065; struct w49 t8066; struct w49 t8067; /* x229768 stalin.sc:32597:1126341 */ /* x229767 stalin.sc:32597:1126352 */ t8066 = a33380; /* x229766 stalin.sc:32597:1126347 */ t8065 = "-I"; /* x229765 stalin.sc:32597:1126342 */ t8067.tag = STRUCTURE_TYPE24753; t8067.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8067.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32597, 1126341); out_of_memory_error();} t8067.value.structure_type24753->s0 = t8066; t8067.value.structure_type24753->s1.tag = NULL_TYPE; a35239 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35239==NULL) {backtrace("stalin.sc", 32597, 1126341); out_of_memory_error();} a35239->s0.tag = STRING_TYPE; a35239->s0.value.string_type = t8065; a35239->s1 = t8067; /* x272485 */ return a35239;} /* [inside STALIN 19631] */ struct structure_type24753 *f19631(void) {char *t8068; struct structure_type24753 *t8069; char *t8070; char *t8071; struct w61020 t8072; struct structure_type24753 *t8073; char *t8074; struct w49 t8075; /* x229559 stalin.sc:32468:1122211 */ /* x229540 stalin.sc:32468:1122218 */ if (a675==FALSE_TYPE) goto l2761; /* x229552 */ /* x229551 */ /* x229550 */ /* x229549 stalin.sc:32469:1122237 */ /* x229548 stalin.sc:32469:1122247 */ t8074 = "Tmk"; /* x229547 stalin.sc:32469:1122238 */ t8075.tag = STRING_TYPE; t8075.value.string_type = t8074; f18320(t8075); /* x229546 */ /* x229545 stalin.sc:32470:1122269 */ /* x229544 stalin.sc:32470:1122289 */ /* x229543 stalin.sc:32470:1122290 */ /* x276907 stalin.sc:14555:511005 */ t8071 = "0"; /* x229542 stalin.sc:32470:1122278 */ t8070 = "Tmk_exit"; /* x229541 stalin.sc:32470:1122270 */ t8072.tag = STRING_TYPE; t8072.value.string_type = t8070; t8073 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8073==NULL) {backtrace("stalin.sc", 32470, 1122269); out_of_memory_error();} t8073->s0.tag = STRING_TYPE; t8073->s0.value.string_type = t8071; t8073->s1.tag = NULL_TYPE; return f13645(t8072, t8073); l2761: /* x229558 */ /* x229557 */ /* x229556 stalin.sc:32471:1122307 */ /* x229555 stalin.sc:32471:1122317 */ /* x229554 stalin.sc:32471:1122318 */ /* x276909 stalin.sc:14555:511005 */ t8068 = "0"; /* x229553 stalin.sc:32471:1122308 */ t8069 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8069==NULL) {backtrace("stalin.sc", 32471, 1122307); out_of_memory_error();} t8069->s0.tag = STRING_TYPE; t8069->s0.value.string_type = t8068; t8069->s1.tag = NULL_TYPE; return f13646(t8069);} /* [inside STALIN 19627] */ struct structure_type24753 *f19627(struct w49 a33369) {struct w49 t8076; struct structure_type24753 *t8077; struct w60864 t8078; struct w49 t8079; struct w49 t8080; struct w49 t8081; char *t8082; struct w49 t8083; struct w61020 t8084; struct structure_type24753 *t8085; struct w60864 t8086; struct w49 t8087; struct w49 t8088; struct w49 t8089; char *t8090; struct w49 t8091; /* x229538 stalin.sc:32463:1122047 */ /* x229513 stalin.sc:32463:1122054 */ if (a675==FALSE_TYPE) goto l2763; /* x229528 */ /* x229527 */ /* x229526 */ /* x229525 stalin.sc:32464:1122073 */ /* x229524 stalin.sc:32464:1122083 */ t8090 = "Tmk"; /* x229523 stalin.sc:32464:1122074 */ t8091.tag = STRING_TYPE; t8091.value.string_type = t8090; f18320(t8091); /* x229522 */ /* x229521 stalin.sc:32465:1122105 */ /* x229520 stalin.sc:32465:1122125 */ /* x229517 stalin.sc:32465:1122134 */ t8086 = a33368; /* x229518 stalin.sc:32465:1122137 */ t8087 = a33369; /* x229519 stalin.sc:32465:1122140 */ t8088 = a33342; /* x229516 stalin.sc:32465:1122126 */ t8089 = *((struct w49 *)(&t8086)); t8083 = f14485(t8089, t8087, t8088); /* x229515 stalin.sc:32465:1122114 */ t8082 = "Tmk_exit"; /* x229514 stalin.sc:32465:1122106 */ t8084.tag = STRING_TYPE; t8084.value.string_type = t8082; t8085 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8085==NULL) {backtrace("stalin.sc", 32465, 1122105); out_of_memory_error();} t8085->s0 = t8083; t8085->s1.tag = NULL_TYPE; return f13645(t8084, t8085); l2763: /* x229537 */ /* x229536 */ /* x229535 stalin.sc:32466:1122156 */ /* x229534 stalin.sc:32466:1122166 */ /* x229531 stalin.sc:32466:1122175 */ t8078 = a33368; /* x229532 stalin.sc:32466:1122178 */ t8079 = a33369; /* x229533 stalin.sc:32466:1122181 */ t8080 = a33342; /* x229530 stalin.sc:32466:1122167 */ t8081 = *((struct w49 *)(&t8078)); t8076 = f14485(t8081, t8079, t8080); /* x229529 stalin.sc:32466:1122157 */ t8077 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8077==NULL) {backtrace("stalin.sc", 32466, 1122156); out_of_memory_error();} t8077->s0 = t8076; t8077->s1.tag = NULL_TYPE; return f13646(t8077);} /* [inside STALIN 19616] */ struct w61020 f19616(struct w49 a33362) {struct w61020 r19616; struct w49 t8092; struct w49 t8093; struct structure_type24753 *t8094; struct w49 t8095; /* x229351 stalin.sc:32555:1125049 */ /* x229343 stalin.sc:32555:1125053 */ /* x229338 stalin.sc:32555:1125058 */ /* x229337 stalin.sc:32555:1125071 */ t8092 = a33362; /* x229336 stalin.sc:32555:1125059 */ if (f8528(t8092)==FALSE_TYPE) goto l2765; /* x229341 */ /* x229340 stalin.sc:32555:1125086 */ t8093 = a33362; /* x229339 stalin.sc:32555:1125075 */ if (f8543(t8093)==FALSE_TYPE) goto l2765; /* x229348 stalin.sc:32556:1125100 */ /* x229347 stalin.sc:32556:1125109 */ /* x229346 stalin.sc:32556:1125115 */ t8095 = a33362; /* x229345 stalin.sc:32556:1125110 */ t8094 = f14321(t8095); /* x229344 stalin.sc:32556:1125101 */ return f14371(t8094); l2765: /* x229350 stalin.sc:32557:1125129 */ /* x229349 stalin.sc:32557:1125130 */ /* x276413 stalin.sc:14693:514793 */ r19616.tag = STRING_TYPE; r19616.value.string_type = ""; return r19616;} /* [inside STALIN 19614] */ struct w61020 f19614(struct w49 a33361) {struct w61020 r19614; struct w49 t8096; struct w49 t8097; struct structure_type24753 *t8098; struct w49 t8099; /* x229313 stalin.sc:32545:1124779 */ /* x229305 stalin.sc:32545:1124783 */ /* x229300 stalin.sc:32545:1124788 */ /* x229299 stalin.sc:32545:1124801 */ t8096 = a33361; /* x229298 stalin.sc:32545:1124789 */ if (f8528(t8096)==FALSE_TYPE) goto l2768; /* x229303 */ /* x229302 stalin.sc:32545:1124816 */ t8097 = a33361; /* x229301 stalin.sc:32545:1124805 */ if (f8543(t8097)==FALSE_TYPE) goto l2768; /* x229310 stalin.sc:32546:1124825 */ /* x229309 stalin.sc:32546:1124834 */ /* x229308 stalin.sc:32546:1124840 */ t8099 = a33361; /* x229307 stalin.sc:32546:1124835 */ t8098 = f14321(t8099); /* x229306 stalin.sc:32546:1124826 */ return f14371(t8098); l2768: /* x229312 stalin.sc:32547:1124849 */ /* x229311 stalin.sc:32547:1124850 */ /* x276417 stalin.sc:14693:514793 */ r19614.tag = STRING_TYPE; r19614.value.string_type = ""; return r19614;} /* [inside STALIN 19576] */ void f19576(struct w49 a33328) {struct w49 a36873; /* S */ struct w49 a36874; /* S */ struct w49 a36875; /* S */ struct w49 a36876; /* S */ struct w49 a36891; /* S */ struct w49 a36969; /* S */ struct w49 a36970; /* S */ struct w49 a36971; /* S */ struct w49 a36972; /* S */ struct w49 a36996; /* S */ struct w49 a36997; /* S */ struct w49 a36998; /* S */ struct w49 a36999; /* S */ struct w49 a37074; /* S */ struct w49 a37075; /* S */ struct w49 a37076; /* S */ struct w49 a37077; /* S */ struct w49 a41656; /* G */ struct w49 a41675; /* G */ struct w49 a41703; /* G */ struct w49 a41742; /* G */ struct w49 t8100; struct w49 t8101; struct w49 t8102; struct w49 t8103; struct w49 t8104; struct w49 t8105; struct w49 t8106; struct w49 t8107; struct w49 t8108; struct w49 t8109; struct w49 t8110; struct w49 t8112; unsigned t8113; char *t8114; struct w49 t8115; unsigned t8116; struct w7121 t8117; unsigned t8118; struct w49 t8119; struct w49 t8120; struct w49 t8121; struct w49 t8122; struct w49 t8123; struct w49 t8124; struct w49 t8125; struct w49 t8126; struct w49 t8127; struct w49 t8128; struct w49 t8129; struct w49 t8130; struct w49 t8132; unsigned t8133; char *t8134; struct w49 t8135; unsigned t8136; struct w7121 t8137; unsigned t8138; struct w49 t8139; struct w49 t8140; struct w49 t8141; struct w49 t8142; struct w49 t8143; struct w49 t8144; struct w49 t8145; struct w49 t8146; struct w49 t8147; struct w49 t8148; struct w49 t8149; struct w49 t8150; struct w49 t8152; unsigned t8153; char *t8154; struct w49 t8155; unsigned t8156; struct w7121 t8157; unsigned t8158; struct w49 t8159; struct w49 t8160; struct w49 t8161; struct w49 t8162; struct w49 t8163; struct w49 t8164; struct w49 t8165; struct w49 t8166; struct w49 t8167; struct w49 t8168; struct w49 t8169; struct w49 t8170; struct w49 t8172; unsigned t8173; char *t8174; struct w49 t8175; unsigned t8176; struct w7121 t8177; unsigned t8178; struct w49 t8179; struct w49 t8180; struct w49 t8181; struct w49 t8182; struct w49 t8183; struct w49 t8184; struct w49 t8185; struct w49 t8186; struct w49 t8187; struct w49 t8188; struct w49 t8189; struct w49 t8190; /* x229039 stalin.sc:32383:1119181 */ /* x228924 stalin.sc:32383:1119187 */ /* x228923 stalin.sc:32383:1119194 */ /* x228922 stalin.sc:32383:1119213 */ t8101 = a33328; /* x228921 stalin.sc:32383:1119195 */ a36891 = t8101; /* x280233 */ /* x280232 */ t8102 = a36891; /* x280231 */ if (!((t8102.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31808]"); structure_ref_error();} t8100 = t8102.value.structure_type27692->s9; /* x228920 stalin.sc:32383:1119188 */ if (f8151(t8100)==FALSE_TYPE) goto l2771; /* x229036 */ /* x229035 */ /* x229034 stalin.sc:32384:1119222 */ /* x228927 stalin.sc:32385:1119235 */ /* x228926 stalin.sc:32385:1119243 */ t8103 = a33328; /* x228925 stalin.sc:32385:1119236 */ a41742 = t8103; /* x301080 stalin.sc:3890:131852 */ /* x301079 stalin.sc:3890:131869 */ t8104 = a41742; /* x301078 stalin.sc:3890:131853 */ if (f8204(t8104)==FALSE_TYPE) goto l2773; /* x228950 */ /* x228949 */ /* x228948 */ /* x228947 stalin.sc:32386:1119253 */ /* x228946 stalin.sc:32389:1119381 */ /* x228945 stalin.sc:32389:1119397 */ /* x228944 stalin.sc:32389:1119416 */ t8189 = a33328; /* x228943 stalin.sc:32389:1119398 */ a36873 = t8189; /* x280161 */ /* x280160 */ t8190 = a36873; /* x280159 */ if (!((t8190.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31790]"); structure_ref_error();} t8187 = t8190.value.structure_type27692->s9; /* x228942 stalin.sc:32389:1119382 */ a37074 = t8187; /* x280965 */ /* x280964 */ t8188 = a37074; /* x280963 */ if (!((t8188.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31991]"); structure_ref_error();} t8177 = t8188.value.structure_type27650->s4; /* x228941 stalin.sc:32388:1119354 */ /* x228940 stalin.sc:32388:1119370 */ t8185 = a33328; /* x228939 stalin.sc:32388:1119355 */ a36996 = t8185; /* x280653 */ /* x280652 */ t8186 = a36996; /* x280651 */ if (!((t8186.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-INDEX[6565] 31913]"); structure_ref_error();} t8176 = t8186.value.structure_type27692->s6; /* x228938 stalin.sc:32387:1119328 */ /* x228937 stalin.sc:32387:1119343 */ t8183 = a33328; /* x228936 stalin.sc:32387:1119329 */ a36969 = t8183; /* x280545 */ /* x280544 */ t8184 = a36969; /* x280543 */ if (!((t8184.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31886]"); structure_ref_error();} t8175 = t8184.value.structure_type27692->s7; /* x228935 stalin.sc:32386:1119264 */ t8174 = "Warning! Unlocalizing ~a{~a}:W~s because it is fake~%"; /* x228934 stalin.sc:32386:1119261 */ /* x228933 stalin.sc:32386:1119254 */ t8178 = TRUE_TYPE; t8179.tag = STRING_TYPE; t8179.value.string_type = t8174; t8182.tag = STRUCTURE_TYPE24753; t8182.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8182.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32386, 1119253); out_of_memory_error();} t8182.value.structure_type24753->s0 = *((struct w49 *)(&t8177)); t8182.value.structure_type24753->s1.tag = NULL_TYPE; t8181.tag = STRUCTURE_TYPE24753; t8181.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8181.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32386, 1119253); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t8176==FALSE_TYPE) t8181.value.structure_type24753->s0.tag = (unsigned)t8176; else {t8181.value.structure_type24753->s0.tag = FIXNUM_TYPE; t8181.value.structure_type24753->s0.value.fixnum_type = (int)(((int)t8176)>>1);} t8181.value.structure_type24753->s1 = t8182; t8180.tag = STRUCTURE_TYPE24753; t8180.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8180.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32386, 1119253); out_of_memory_error();} t8180.value.structure_type24753->s0 = t8175; t8180.value.structure_type24753->s1 = t8181; f665(t8178, t8179, t8180); /* x228932 */ /* x228931 stalin.sc:32390:1119428 */ /* x228929 stalin.sc:32390:1119450 */ t8172 = a33328; /* x228930 stalin.sc:32390:1119452 */ /* x228928 stalin.sc:32390:1119429 */ t8173 = FALSE_TYPE; f8205(t8172, t8173); return; l2773: /* x229033 */ /* x228953 stalin.sc:32391:1119464 */ /* x228952 stalin.sc:32391:1119473 */ t8105 = a33328; /* x228951 stalin.sc:32391:1119465 */ a41703 = t8105; /* x300924 stalin.sc:3916:132554 */ /* x300923 stalin.sc:3916:132572 */ t8106 = a41703; /* x300922 stalin.sc:3916:132555 */ if (f8209(t8106)==FALSE_TYPE) goto l2775; /* x228976 */ /* x228975 */ /* x228974 */ /* x228973 stalin.sc:32392:1119483 */ /* x228972 stalin.sc:32395:1119612 */ /* x228971 stalin.sc:32395:1119628 */ /* x228970 stalin.sc:32395:1119647 */ t8169 = a33328; /* x228969 stalin.sc:32395:1119629 */ a36874 = t8169; /* x280165 */ /* x280164 */ t8170 = a36874; /* x280163 */ if (!((t8170.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31791]"); structure_ref_error();} t8167 = t8170.value.structure_type27692->s9; /* x228968 stalin.sc:32395:1119613 */ a37075 = t8167; /* x280969 */ /* x280968 */ t8168 = a37075; /* x280967 */ if (!((t8168.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31992]"); structure_ref_error();} t8157 = t8168.value.structure_type27650->s4; /* x228967 stalin.sc:32394:1119585 */ /* x228966 stalin.sc:32394:1119601 */ t8165 = a33328; /* x228965 stalin.sc:32394:1119586 */ a36997 = t8165; /* x280657 */ /* x280656 */ t8166 = a36997; /* x280655 */ if (!((t8166.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-INDEX[6565] 31914]"); structure_ref_error();} t8156 = t8166.value.structure_type27692->s6; /* x228964 stalin.sc:32393:1119559 */ /* x228963 stalin.sc:32393:1119574 */ t8163 = a33328; /* x228962 stalin.sc:32393:1119560 */ a36970 = t8163; /* x280549 */ /* x280548 */ t8164 = a36970; /* x280547 */ if (!((t8164.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31887]"); structure_ref_error();} t8155 = t8164.value.structure_type27692->s7; /* x228961 stalin.sc:32392:1119494 */ t8154 = "Warning! Unglobalizing ~a{~a}:W~s because it is fake~%"; /* x228960 stalin.sc:32392:1119491 */ /* x228959 stalin.sc:32392:1119484 */ t8158 = TRUE_TYPE; t8159.tag = STRING_TYPE; t8159.value.string_type = t8154; t8162.tag = STRUCTURE_TYPE24753; t8162.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8162.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32392, 1119483); out_of_memory_error();} t8162.value.structure_type24753->s0 = *((struct w49 *)(&t8157)); t8162.value.structure_type24753->s1.tag = NULL_TYPE; t8161.tag = STRUCTURE_TYPE24753; t8161.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8161.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32392, 1119483); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t8156==FALSE_TYPE) t8161.value.structure_type24753->s0.tag = (unsigned)t8156; else {t8161.value.structure_type24753->s0.tag = FIXNUM_TYPE; t8161.value.structure_type24753->s0.value.fixnum_type = (int)(((int)t8156)>>1);} t8161.value.structure_type24753->s1 = t8162; t8160.tag = STRUCTURE_TYPE24753; t8160.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8160.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32392, 1119483); out_of_memory_error();} t8160.value.structure_type24753->s0 = t8155; t8160.value.structure_type24753->s1 = t8161; f665(t8158, t8159, t8160); /* x228958 */ /* x228957 stalin.sc:32396:1119659 */ /* x228955 stalin.sc:32396:1119682 */ t8152 = a33328; /* x228956 stalin.sc:32396:1119684 */ /* x228954 stalin.sc:32396:1119660 */ t8153 = FALSE_TYPE; f8210(t8152, t8153); return; l2775: /* x229032 */ /* x228979 stalin.sc:32398:1119746 */ /* x228978 stalin.sc:32398:1119755 */ t8107 = a33328; /* x228977 stalin.sc:32398:1119747 */ a41675 = t8107; /* x300812 stalin.sc:3942:133266 */ /* x300811 stalin.sc:3942:133284 */ t8108 = a41675; /* x300810 stalin.sc:3942:133267 */ if (f8214(t8108)==FALSE_TYPE) goto l2777; /* x229002 */ /* x229001 */ /* x229000 */ /* x228999 stalin.sc:32399:1119765 */ /* x228998 stalin.sc:32402:1119890 */ /* x228997 stalin.sc:32402:1119906 */ /* x228996 stalin.sc:32402:1119925 */ t8149 = a33328; /* x228995 stalin.sc:32402:1119907 */ a36875 = t8149; /* x280169 */ /* x280168 */ t8150 = a36875; /* x280167 */ if (!((t8150.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31792]"); structure_ref_error();} t8147 = t8150.value.structure_type27692->s9; /* x228994 stalin.sc:32402:1119891 */ a37076 = t8147; /* x280973 */ /* x280972 */ t8148 = a37076; /* x280971 */ if (!((t8148.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31993]"); structure_ref_error();} t8137 = t8148.value.structure_type27650->s4; /* x228993 stalin.sc:32401:1119863 */ /* x228992 stalin.sc:32401:1119879 */ t8145 = a33328; /* x228991 stalin.sc:32401:1119864 */ a36998 = t8145; /* x280661 */ /* x280660 */ t8146 = a36998; /* x280659 */ if (!((t8146.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-INDEX[6565] 31915]"); structure_ref_error();} t8136 = t8146.value.structure_type27692->s6; /* x228990 stalin.sc:32400:1119837 */ /* x228989 stalin.sc:32400:1119852 */ t8143 = a33328; /* x228988 stalin.sc:32400:1119838 */ a36971 = t8143; /* x280553 */ /* x280552 */ t8144 = a36971; /* x280551 */ if (!((t8144.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31888]"); structure_ref_error();} t8135 = t8144.value.structure_type27692->s7; /* x228987 stalin.sc:32399:1119776 */ t8134 = "Warning! Unhidding ~a{~a}:W~s because it is fake~%"; /* x228986 stalin.sc:32399:1119773 */ /* x228985 stalin.sc:32399:1119766 */ t8138 = TRUE_TYPE; t8139.tag = STRING_TYPE; t8139.value.string_type = t8134; t8142.tag = STRUCTURE_TYPE24753; t8142.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8142.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32399, 1119765); out_of_memory_error();} t8142.value.structure_type24753->s0 = *((struct w49 *)(&t8137)); t8142.value.structure_type24753->s1.tag = NULL_TYPE; t8141.tag = STRUCTURE_TYPE24753; t8141.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8141.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32399, 1119765); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t8136==FALSE_TYPE) t8141.value.structure_type24753->s0.tag = (unsigned)t8136; else {t8141.value.structure_type24753->s0.tag = FIXNUM_TYPE; t8141.value.structure_type24753->s0.value.fixnum_type = (int)(((int)t8136)>>1);} t8141.value.structure_type24753->s1 = t8142; t8140.tag = STRUCTURE_TYPE24753; t8140.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8140.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32399, 1119765); out_of_memory_error();} t8140.value.structure_type24753->s0 = t8135; t8140.value.structure_type24753->s1 = t8141; f665(t8138, t8139, t8140); /* x228984 */ /* x228983 stalin.sc:32403:1119937 */ /* x228981 stalin.sc:32403:1119960 */ t8132 = a33328; /* x228982 stalin.sc:32403:1119962 */ /* x228980 stalin.sc:32403:1119938 */ t8133 = FALSE_TYPE; f8215(t8132, t8133); return; l2777: /* x229031 */ /* x229005 stalin.sc:32404:1119974 */ /* x229004 stalin.sc:32404:1119984 */ t8109 = a33328; /* x229003 stalin.sc:32404:1119975 */ a41656 = t8109; /* x300736 stalin.sc:3965:133896 */ /* x300735 stalin.sc:3965:133915 */ t8110 = a41656; /* x300734 stalin.sc:3965:133897 */ if (f8219(t8110)==FALSE_TYPE) goto l2779; /* x229028 */ /* x229027 */ /* x229026 */ /* x229025 stalin.sc:32405:1119994 */ /* x229024 stalin.sc:32408:1120120 */ /* x229023 stalin.sc:32408:1120136 */ /* x229022 stalin.sc:32408:1120155 */ t8129 = a33328; /* x229021 stalin.sc:32408:1120137 */ a36876 = t8129; /* x280173 */ /* x280172 */ t8130 = a36876; /* x280171 */ if (!((t8130.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31793]"); structure_ref_error();} t8127 = t8130.value.structure_type27692->s9; /* x229020 stalin.sc:32408:1120121 */ a37077 = t8127; /* x280977 */ /* x280976 */ t8128 = a37077; /* x280975 */ if (!((t8128.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31994]"); structure_ref_error();} t8117 = t8128.value.structure_type27650->s4; /* x229019 stalin.sc:32407:1120093 */ /* x229018 stalin.sc:32407:1120109 */ t8125 = a33328; /* x229017 stalin.sc:32407:1120094 */ a36999 = t8125; /* x280665 */ /* x280664 */ t8126 = a36999; /* x280663 */ if (!((t8126.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-INDEX[6565] 31916]"); structure_ref_error();} t8116 = t8126.value.structure_type27692->s6; /* x229016 stalin.sc:32406:1120067 */ /* x229015 stalin.sc:32406:1120082 */ t8123 = a33328; /* x229014 stalin.sc:32406:1120068 */ a36972 = t8123; /* x280557 */ /* x280556 */ t8124 = a36972; /* x280555 */ if (!((t8124.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31889]"); structure_ref_error();} t8115 = t8124.value.structure_type27692->s7; /* x229013 stalin.sc:32405:1120005 */ t8114 = "Warning! Unslotting ~a{~a}:W~s because it is fake~%"; /* x229012 stalin.sc:32405:1120002 */ /* x229011 stalin.sc:32405:1119995 */ t8118 = TRUE_TYPE; t8119.tag = STRING_TYPE; t8119.value.string_type = t8114; t8122.tag = STRUCTURE_TYPE24753; t8122.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8122.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32405, 1119994); out_of_memory_error();} t8122.value.structure_type24753->s0 = *((struct w49 *)(&t8117)); t8122.value.structure_type24753->s1.tag = NULL_TYPE; t8121.tag = STRUCTURE_TYPE24753; t8121.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8121.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32405, 1119994); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t8116==FALSE_TYPE) t8121.value.structure_type24753->s0.tag = (unsigned)t8116; else {t8121.value.structure_type24753->s0.tag = FIXNUM_TYPE; t8121.value.structure_type24753->s0.value.fixnum_type = (int)(((int)t8116)>>1);} t8121.value.structure_type24753->s1 = t8122; t8120.tag = STRUCTURE_TYPE24753; t8120.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8120.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32405, 1119994); out_of_memory_error();} t8120.value.structure_type24753->s0 = t8115; t8120.value.structure_type24753->s1 = t8121; f665(t8118, t8119, t8120); /* x229010 */ /* x229009 stalin.sc:32409:1120167 */ /* x229007 stalin.sc:32409:1120191 */ t8112 = a33328; /* x229008 stalin.sc:32409:1120193 */ /* x229006 stalin.sc:32409:1120168 */ t8113 = FALSE_TYPE; f8220(t8112, t8113); return; l2779: /* x229030 */ /* x229029 */ return; l2771: /* x229038 stalin.sc:32383:1119181 */ /* x229037 stalin.sc:32383:1119181 */ return;} /* [inside STALIN 19557] */ void f19557(struct p19556 *p19557, struct w49 a33323) {struct w49 a19018; /* S */ struct w49 a19028; /* S */ struct w49 a19038; /* S */ struct w49 a33324; /* E */ struct w49 a36618; /* S */ struct w49 a36619; /* S */ struct w49 a40190; /* S */ struct w49 a41056; /* E */ struct w49 a41057; /* E */ struct w49 a42430; /* OBJ */ struct w49 a42431; /* OBJ */ struct p19556 *t8191; struct w49 t8192; struct p19556 *t8194; char *t8195; struct w49 t8196; char *t8197; struct structure_type24753 *t8198; struct w49 t8199; struct w49 t8200; struct w49 t8201; char *t8202; char *t8203; struct w49 t8204; struct structure_type24753 *t8205; struct w49 t8206; struct w49 t8207; struct w49 t8208; struct w49 t8209; struct w49 t8210; char *t8211; struct w49 t8212; struct w49 t8213; struct p19556 *t8214; char *t8215; struct w49 t8216; struct w7121 t8217; struct w7121 t8218; char *t8219; struct w49 t8220; struct structure_type24753 *t8221; struct w49 t8222; struct w49 t8223; struct w49 t8224; struct w49 t8225; struct w49 t8226; struct w49 t8227; struct w49 t8228; struct w49 t8229; struct w49 t8230; struct w49 t8231; struct w49 t8232; struct w49 t8233; struct w49 t8234; struct w49 t8235; char *t8236; struct w49 t8237; struct w49 t8238; struct w49 t8239; struct w49 t8240; struct p19556 *p19558; struct p19556 *p19559; struct p19556 *p19560; /* x228858 stalin.sc:32335:1117340 */ /* x228854 stalin.sc:32336:1117369 */ /* x228853 stalin.sc:32336:1117374 */ t8239 = a33323; /* x267533 stalin.sc:32336:1117370 */ if (!((t8239.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 32336, 1117369); structure_ref_error();} t8192 = t8239.value.structure_type24753->s1; /* x228857 stalin.sc:32335:1117349 */ /* x228856 stalin.sc:32335:1117354 */ t8240 = a33323; /* x267532 stalin.sc:32335:1117350 */ if (!((t8240.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 32335, 1117349); structure_ref_error();} /* x228851 */ t8191 = p19557; p19558 = t8191; a33324 = t8192; /* x228850 */ /* x228849 stalin.sc:32337:1117382 */ /* x228775 stalin.sc:32338:1117391 */ /* x228774 stalin.sc:32338:1117412 */ t8200 = p19558->a33322; /* x228773 stalin.sc:32338:1117392 */ a40190 = t8200; /* x293429 */ /* x293428 */ t8201 = a40190; /* x293427 */ if (!((t8201.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35107]"); structure_ref_error();} if ((t8201.value.structure_type27698->s3.tag)==FALSE_TYPE) goto l2781; /* x228816 */ /* x228815 */ t8214 = p19558; p19560 = t8214; /* x228814 stalin.sc:32339:1117418 */ /* x228813 stalin.sc:32343:1117584 */ /* x228789 stalin.sc:32343:1117591 */ /* x228788 stalin.sc:32343:1117611 */ t8231 = a33324; /* x228787 stalin.sc:32343:1117592 */ a41056 = t8231; /* x298336 stalin.sc:13171:462008 */ /* x298335 stalin.sc:13171:462022 */ t8232 = a41056; /* x298334 stalin.sc:13171:462009 */ a42430 = t8232; /* x303586 */ /* x303585 */ t8233 = a42430; /* x303584 */ if (!((t8233.tag)==STRUCTURE_TYPE27694)) goto l2793; /* x228794 */ /* x228793 */ /* x228792 stalin.sc:32343:1117614 */ /* x228791 stalin.sc:32343:1117632 */ t8237 = a33324; /* x228790 stalin.sc:32343:1117615 */ a36618 = t8237; /* x279141 */ /* x279140 */ t8238 = a36618; /* x279139 */ if (!((t8238.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31535]"); structure_ref_error();} t8219 = t8238.value.structure_type27694->s2; goto l2794; l2793: /* x228812 */ /* x228797 stalin.sc:32344:1117640 */ /* x228796 stalin.sc:32344:1117659 */ t8234 = a33324; /* x228795 stalin.sc:32344:1117641 */ if (f13034(t8234)==FALSE_TYPE) goto l2796; /* x228800 */ /* x228799 */ /* x228798 stalin.sc:32344:1117662 */ t8219 = "the stack"; goto l2797; l2796: /* x228811 */ /* x228803 stalin.sc:32345:1117679 */ /* x228802 stalin.sc:32345:1117697 */ t8235 = a33324; /* x228801 stalin.sc:32345:1117680 */ if (f13035(t8235)==FALSE_TYPE) goto l2799; /* x228806 */ /* x228805 */ /* x228804 stalin.sc:32345:1117700 */ t8219 = "the heap"; goto l2800; l2799: /* x228810 */ /* x228809 */ /* x228808 stalin.sc:32346:1117721 */ /* x228807 stalin.sc:32346:1117722 */ /* x295585 QobiScheme.sc:166:5314 */ /* x295584 QobiScheme.sc:166:5321 */ t8236 = "This shouldn\'t happen"; /* x295583 QobiScheme.sc:166:5315 */ stalin_panic(t8236); l2800: l2797: l2794: /* x228786 stalin.sc:32342:1117546 */ /* x228785 stalin.sc:32342:1117577 */ t8229 = p19560->a33322; /* x228784 stalin.sc:32342:1117547 */ a19038 = t8229; /* x49836 */ /* x49835 */ t8230 = a19038; /* x49834 */ if (!((t8230.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-CHARACTER-POSITION[5527]"); structure_ref_error();} t8218 = t8230.value.structure_type27698->s5; /* x228783 stalin.sc:32341:1117513 */ /* x228782 stalin.sc:32341:1117539 */ t8227 = p19560->a33322; /* x228781 stalin.sc:32341:1117514 */ a19028 = t8227; /* x49797 */ /* x49796 */ t8228 = a19028; /* x49795 */ if (!((t8228.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-LINE-POSITION[5519]"); structure_ref_error();} t8217 = t8228.value.structure_type27698->s4; /* x228780 stalin.sc:32340:1117485 */ /* x228779 stalin.sc:32340:1117506 */ t8225 = p19560->a33322; /* x228778 stalin.sc:32340:1117486 */ a19018 = t8225; /* x49758 */ /* x49757 */ t8226 = a19018; /* x49756 */ if (!((t8226.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-PATHNAME[5511]"); structure_ref_error();} t8216 = t8226.value.structure_type27698->s3; /* x228777 stalin.sc:32339:1117426 */ t8215 = "The following expression, ~a:~s:~s, allocates on ~a:"; /* x228776 stalin.sc:32339:1117419 */ t8220.tag = STRING_TYPE; t8220.value.string_type = t8215; t8224.tag = STRUCTURE_TYPE24753; t8224.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8224.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32339, 1117418); out_of_memory_error();} t8224.value.structure_type24753->s0.tag = STRING_TYPE; t8224.value.structure_type24753->s0.value.string_type = t8219; t8224.value.structure_type24753->s1.tag = NULL_TYPE; t8223.tag = STRUCTURE_TYPE24753; t8223.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8223.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32339, 1117418); out_of_memory_error();} t8223.value.structure_type24753->s0 = *((struct w49 *)(&t8218)); t8223.value.structure_type24753->s1 = t8224; t8222.tag = STRUCTURE_TYPE24753; t8222.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8222.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32339, 1117418); out_of_memory_error();} t8222.value.structure_type24753->s0 = *((struct w49 *)(&t8217)); t8222.value.structure_type24753->s1 = t8223; t8221 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8221==NULL) {backtrace("stalin.sc", 32339, 1117418); out_of_memory_error();} t8221->s0 = t8216; t8221->s1 = t8222; f5365(t8220, t8221); goto l2782; l2781: /* x228848 */ /* x228847 */ /* x228846 stalin.sc:32347:1117743 */ /* x228845 stalin.sc:32348:1117804 */ /* x228821 stalin.sc:32348:1117811 */ /* x228820 stalin.sc:32348:1117831 */ t8206 = a33324; /* x228819 stalin.sc:32348:1117812 */ a41057 = t8206; /* x298340 stalin.sc:13171:462008 */ /* x298339 stalin.sc:13171:462022 */ t8207 = a41057; /* x298338 stalin.sc:13171:462009 */ a42431 = t8207; /* x303590 */ /* x303589 */ t8208 = a42431; /* x303588 */ if (!((t8208.tag)==STRUCTURE_TYPE27694)) goto l2784; /* x228826 */ /* x228825 */ /* x228824 stalin.sc:32348:1117834 */ /* x228823 stalin.sc:32348:1117852 */ t8212 = a33324; /* x228822 stalin.sc:32348:1117835 */ a36619 = t8212; /* x279145 */ /* x279144 */ t8213 = a36619; /* x279143 */ if (!((t8213.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31536]"); structure_ref_error();} t8203 = t8213.value.structure_type27694->s2; goto l2785; l2784: /* x228844 */ /* x228829 stalin.sc:32349:1117865 */ /* x228828 stalin.sc:32349:1117884 */ t8209 = a33324; /* x228827 stalin.sc:32349:1117866 */ if (f13034(t8209)==FALSE_TYPE) goto l2787; /* x228832 */ /* x228831 */ /* x228830 stalin.sc:32349:1117887 */ t8203 = "the stack"; goto l2788; l2787: /* x228843 */ /* x228835 stalin.sc:32350:1117909 */ /* x228834 stalin.sc:32350:1117927 */ t8210 = a33324; /* x228833 stalin.sc:32350:1117910 */ if (f13035(t8210)==FALSE_TYPE) goto l2790; /* x228838 */ /* x228837 */ /* x228836 stalin.sc:32350:1117930 */ t8203 = "the heap"; goto l2791; l2790: /* x228842 */ /* x228841 */ /* x228840 stalin.sc:32351:1117956 */ /* x228839 stalin.sc:32351:1117957 */ /* x295589 QobiScheme.sc:166:5314 */ /* x295588 QobiScheme.sc:166:5321 */ t8211 = "This shouldn\'t happen"; /* x295587 QobiScheme.sc:166:5315 */ stalin_panic(t8211); l2791: l2788: l2785: /* x228818 stalin.sc:32347:1117751 */ t8202 = "The following expression allocates on ~a:"; /* x228817 stalin.sc:32347:1117744 */ t8204.tag = STRING_TYPE; t8204.value.string_type = t8202; t8205 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8205==NULL) {backtrace("stalin.sc", 32347, 1117743); out_of_memory_error();} t8205->s0.tag = STRING_TYPE; t8205->s0.value.string_type = t8203; t8205->s1.tag = NULL_TYPE; f5365(t8204, t8205); l2782: /* x228772 */ t8194 = p19558; p19559 = t8194; /* x228771 stalin.sc:32352:1117972 */ /* x228770 stalin.sc:32352:1117989 */ /* x228769 stalin.sc:32352:1118001 */ t8199 = p19559->a33322; /* x228768 stalin.sc:32352:1117990 */ t8196 = f13160(t8199); /* x228767 stalin.sc:32352:1117984 */ t8195 = "~s"; /* x228766 stalin.sc:32352:1117973 */ t8197 = t8195; t8198 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8198==NULL) {backtrace("stalin.sc", 32352, 1117972); out_of_memory_error();} t8198->s0 = t8196; t8198->s1.tag = NULL_TYPE; f5380(t8197, t8198); return;} /* [inside STALIN 19556] */ void f19556(struct w49 a33322) {struct w49 a38487; /* S */ struct p19556 *t8241; struct w12224 t8242; struct w36108 t8243; struct w49 t8244; struct structure_type24753 *t8245; struct w49 t8246; struct w49 t8247; struct p19556 *e19556; e19556 = (struct p19556 *)alloca(sizeof(struct p19556)); if (e19556==NULL) {backtrace("stalin.sc", 32332, 1117286); out_of_memory_error();} e19556->a33322 = a33322; /* x228863 stalin.sc:32333:1117303 */ /* x228862 stalin.sc:32353:1118013 */ /* x228861 stalin.sc:32353:1118047 */ t8246 = e19556->a33322; /* x228860 stalin.sc:32353:1118014 */ a38487 = t8246; /* x286617 */ /* x286616 */ t8247 = a38487; /* x286615 */ if (!((t8247.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-ALLOCATION-ALIST[5687] 33404]"); structure_ref_error();} t8242 = t8247.value.structure_type27698->s25; /* x228859 stalin.sc:32334:1117319 */ t8241 = e19556; /* x228765 stalin.sc:32333:1117304 */ t8243.tag = NATIVE_PROCEDURE_TYPE15225; t8243.value.native_procedure_type15225 = t8241; t8244 = *((struct w49 *)(&t8242)); t8245 = (struct structure_type24753 *)NULL_TYPE; f27755(t8243, t8244, t8245); return;} /* [inside STALIN 19549] */ void f19549(struct w49 a33321) {struct w3467 a36628; /* S */ struct w49 a36645; /* S */ struct w3467 a41060; /* E */ struct w3467 a42434; /* OBJ */ struct w49 t8248; char *t8249; char *t8250; char *t8251; struct w49 t8252; struct structure_type24753 *t8253; struct w49 t8254; struct w49 t8255; struct w49 t8256; struct w3467 t8257; struct w3467 t8258; struct w3467 t8259; struct w49 t8260; struct w3467 t8261; struct w49 t8262; struct w49 t8263; struct w3467 t8264; struct w49 t8265; struct w49 t8266; char *t8267; struct w3467 t8268; struct w3467 t8269; struct w49 t8270; /* x228759 stalin.sc:32357:1118099 */ /* x228713 stalin.sc:32357:1118105 */ /* x228712 stalin.sc:32357:1118119 */ t8248 = a33321; /* x228711 stalin.sc:32357:1118106 */ if (f8563(t8248)==FALSE_TYPE) goto l2802; /* x228756 */ /* x228755 */ /* x228754 stalin.sc:32358:1118128 */ /* x228753 stalin.sc:32360:1118211 */ /* x228723 stalin.sc:32360:1118218 */ /* x228722 stalin.sc:32360:1118238 */ /* x228721 stalin.sc:32360:1118250 */ t8260 = a33321; /* x228720 stalin.sc:32360:1118239 */ t8257 = f8619(t8260); /* x228719 stalin.sc:32360:1118219 */ a41060 = t8257; /* x298352 stalin.sc:13171:462008 */ /* x298351 stalin.sc:13171:462022 */ t8258 = a41060; /* x298350 stalin.sc:13171:462009 */ a42434 = t8258; /* x303606 */ /* x303605 */ t8259 = a42434; /* x303604 */ if (!((t8259.tag)==STRUCTURE_TYPE27694)) goto l2804; /* x228730 */ /* x228729 */ /* x228728 stalin.sc:32361:1118261 */ /* x228727 stalin.sc:32361:1118279 */ /* x228726 stalin.sc:32361:1118291 */ t8270 = a33321; /* x228725 stalin.sc:32361:1118280 */ t8268 = f8619(t8270); /* x228724 stalin.sc:32361:1118262 */ a36628 = t8268; /* x279181 */ /* x279180 */ t8269 = a36628; /* x279179 */ if (!((t8269.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31545]"); structure_ref_error();} t8251 = t8269.value.structure_type27694->s2; goto l2805; l2804: /* x228752 */ /* x228735 stalin.sc:32362:1118303 */ /* x228734 stalin.sc:32362:1118322 */ /* x228733 stalin.sc:32362:1118334 */ t8263 = a33321; /* x228732 stalin.sc:32362:1118323 */ t8261 = f8619(t8263); /* x228731 stalin.sc:32362:1118304 */ t8262 = *((struct w49 *)(&t8261)); if (f13034(t8262)==FALSE_TYPE) goto l2807; /* x228738 */ /* x228737 */ /* x228736 stalin.sc:32362:1118338 */ t8251 = "the stack"; goto l2808; l2807: /* x228751 */ /* x228743 stalin.sc:32363:1118358 */ /* x228742 stalin.sc:32363:1118376 */ /* x228741 stalin.sc:32363:1118388 */ t8266 = a33321; /* x228740 stalin.sc:32363:1118377 */ t8264 = f8619(t8266); /* x228739 stalin.sc:32363:1118359 */ t8265 = *((struct w49 *)(&t8264)); if (f13035(t8265)==FALSE_TYPE) goto l2810; /* x228746 */ /* x228745 */ /* x228744 stalin.sc:32363:1118392 */ t8251 = "the heap"; goto l2811; l2810: /* x228750 */ /* x228749 */ /* x228748 stalin.sc:32364:1118416 */ /* x228747 stalin.sc:32364:1118417 */ /* x296293 QobiScheme.sc:166:5314 */ /* x296292 QobiScheme.sc:166:5321 */ t8267 = "This shouldn\'t happen"; /* x296291 QobiScheme.sc:166:5315 */ stalin_panic(t8267); l2811: l2808: l2805: /* x228718 stalin.sc:32359:1118183 */ /* x228717 stalin.sc:32359:1118201 */ t8255 = a33321; /* x228716 stalin.sc:32359:1118184 */ a36645 = t8255; /* x279249 */ /* x279248 */ t8256 = a36645; /* x279247 */ if (!((t8256.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31562]"); structure_ref_error();} t8250 = t8256.value.structure_type27694->s2; /* x228715 stalin.sc:32358:1118136 */ t8249 = "The closure for ~a is allocated on ~a"; /* x228714 stalin.sc:32358:1118129 */ t8252.tag = STRING_TYPE; t8252.value.string_type = t8249; t8254.tag = STRUCTURE_TYPE24753; t8254.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8254.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32358, 1118128); out_of_memory_error();} t8254.value.structure_type24753->s0.tag = STRING_TYPE; t8254.value.structure_type24753->s0.value.string_type = t8251; t8254.value.structure_type24753->s1.tag = NULL_TYPE; t8253 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8253==NULL) {backtrace("stalin.sc", 32358, 1118128); out_of_memory_error();} t8253->s0.tag = STRING_TYPE; t8253->s0.value.string_type = t8250; t8253->s1 = t8254; f5365(t8252, t8253); return; l2802: /* x228758 stalin.sc:32357:1118099 */ /* x228757 stalin.sc:32357:1118099 */ return;} /* [inside STALIN 19546] */ int f19546(struct w49 a33319) {struct w12224 t8271; struct w49 t8272; struct w49 t8273; /* x228686 stalin.sc:32307:1116312 */ /* x228685 stalin.sc:32308:1116323 */ /* x228684 stalin.sc:32308:1116379 */ t8273 = a33319; /* x228683 stalin.sc:32308:1116324 */ t8271 = f8776(t8273); /* x228682 stalin.sc:32307:1116313 */ t8272 = *((struct w49 *)(&t8271)); return f26227(t8272);} /* [inside STALIN 19543] */ void f19543(struct w49 a33318) {struct w49 a36633; /* S */ char *t8274; char *t8275; struct w49 t8276; struct structure_type24753 *t8277; struct w49 t8278; struct w49 t8279; /* x228614 stalin.sc:32327:1117135 */ /* x228613 stalin.sc:32327:1117155 */ /* x228612 stalin.sc:32327:1117173 */ t8278 = a33318; /* x228611 stalin.sc:32327:1117156 */ a36633 = t8278; /* x279201 */ /* x279200 */ t8279 = a36633; /* x279199 */ if (!((t8279.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31550]"); structure_ref_error();} t8275 = t8279.value.structure_type27694->s2; /* x228610 stalin.sc:32327:1117143 */ t8274 = " to ~a"; /* x228609 stalin.sc:32327:1117136 */ t8276.tag = STRING_TYPE; t8276.value.string_type = t8274; t8277 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8277==NULL) {backtrace("stalin.sc", 32327, 1117135); out_of_memory_error();} t8277->s0.tag = STRING_TYPE; t8277->s0.value.string_type = t8275; t8277->s1.tag = NULL_TYPE; f5365(t8276, t8277); return;} /* [inside STALIN 19541] */ void f19541(struct w49 a33314) {struct w49 a36461; /* S */ struct w49 a36462; /* S */ struct w49 a36463; /* S */ struct w49 a36490; /* S */ struct w49 a36491; /* S */ struct w49 a36492; /* S */ struct w49 a36640; /* S */ struct w49 a40100; /* S */ struct w49 a40159; /* S */ struct w49 a40175; /* S */ struct w49 a40193; /* S */ struct w49 a40194; /* S */ struct w12224 t8280; struct w36108 t8281; struct w49 t8282; struct structure_type24753 *t8283; struct w49 t8284; struct w49 t8285; struct w49 t8286; struct w49 t8287; struct w49 t8288; char *t8289; struct w49 t8290; struct structure_type24753 *t8291; char *t8292; struct w49 t8293; struct w7121 t8294; struct w7121 t8295; struct w49 t8296; struct structure_type24753 *t8297; struct w49 t8298; struct w49 t8299; struct w49 t8300; struct w49 t8301; struct w49 t8302; struct w49 t8303; struct w49 t8304; struct w49 t8305; struct w49 t8306; struct w49 t8307; struct w49 t8308; struct w49 t8309; struct w49 t8310; struct w49 t8311; char *t8312; struct w49 t8313; char *t8314; struct structure_type24753 *t8315; struct w49 t8316; struct w49 t8317; struct w49 t8318; char *t8319; char *t8320; struct w49 t8321; struct structure_type24753 *t8322; struct w49 t8323; struct w49 t8324; struct w49 t8325; struct w49 t8326; struct w49 t8327; struct w49 t8328; struct w49 t8329; /* x228672 */ /* x228651 stalin.sc:32316:1116595 */ /* x228625 stalin.sc:32317:1116603 */ /* x228624 stalin.sc:32317:1116624 */ /* x228623 stalin.sc:32317:1116646 */ t8287 = a33314; /* x228622 stalin.sc:32317:1116625 */ a36490 = t8287; /* x278629 */ /* x278628 */ t8288 = a36490; /* x278627 */ if (!((t8288.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31407]"); structure_ref_error();} t8285 = t8288.value.structure_type27745->s0; /* x228621 stalin.sc:32317:1116604 */ a40194 = t8285; /* x293445 */ /* x293444 */ t8286 = a40194; /* x293443 */ if (!((t8286.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35111]"); structure_ref_error();} if ((t8286.value.structure_type27698->s3.tag)==FALSE_TYPE) goto l2813; /* x228645 */ /* x228644 */ /* x228643 stalin.sc:32318:1116652 */ /* x228642 stalin.sc:32321:1116813 */ /* x228641 stalin.sc:32321:1116844 */ /* x228640 stalin.sc:32321:1116866 */ t8310 = a33314; /* x228639 stalin.sc:32321:1116845 */ a36463 = t8310; /* x278521 */ /* x278520 */ t8311 = a36463; /* x278519 */ if (!((t8311.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31380]"); structure_ref_error();} t8308 = t8311.value.structure_type27745->s0; /* x228638 stalin.sc:32321:1116814 */ a40159 = t8308; /* x293305 */ /* x293304 */ t8309 = a40159; /* x293303 */ if (!((t8309.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION[5527] 35076]"); structure_ref_error();} t8295 = t8309.value.structure_type27698->s5; /* x228637 stalin.sc:32320:1116758 */ /* x228636 stalin.sc:32320:1116784 */ /* x228635 stalin.sc:32320:1116806 */ t8306 = a33314; /* x228634 stalin.sc:32320:1116785 */ a36462 = t8306; /* x278517 */ /* x278516 */ t8307 = a36462; /* x278515 */ if (!((t8307.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31379]"); structure_ref_error();} t8304 = t8307.value.structure_type27745->s0; /* x228633 stalin.sc:32320:1116759 */ a40175 = t8304; /* x293369 */ /* x293368 */ t8305 = a40175; /* x293367 */ if (!((t8305.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LINE-POSITION[5519] 35092]"); structure_ref_error();} t8294 = t8305.value.structure_type27698->s4; /* x228632 stalin.sc:32319:1116708 */ /* x228631 stalin.sc:32319:1116729 */ /* x228630 stalin.sc:32319:1116751 */ t8302 = a33314; /* x228629 stalin.sc:32319:1116730 */ a36461 = t8302; /* x278513 */ /* x278512 */ t8303 = a36461; /* x278511 */ if (!((t8303.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31378]"); structure_ref_error();} t8300 = t8303.value.structure_type27745->s0; /* x228628 stalin.sc:32319:1116709 */ a40193 = t8300; /* x293441 */ /* x293440 */ t8301 = a40193; /* x293439 */ if (!((t8301.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35110]"); structure_ref_error();} t8293 = t8301.value.structure_type27698->s3; /* x228627 stalin.sc:32318:1116660 */ t8292 = " From the following expression, ~a:~s:~s:"; /* x228626 stalin.sc:32318:1116653 */ t8296.tag = STRING_TYPE; t8296.value.string_type = t8292; t8299.tag = STRUCTURE_TYPE24753; t8299.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8299.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32318, 1116652); out_of_memory_error();} t8299.value.structure_type24753->s0 = *((struct w49 *)(&t8295)); t8299.value.structure_type24753->s1.tag = NULL_TYPE; t8298.tag = STRUCTURE_TYPE24753; t8298.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8298.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32318, 1116652); out_of_memory_error();} t8298.value.structure_type24753->s0 = *((struct w49 *)(&t8294)); t8298.value.structure_type24753->s1 = t8299; t8297 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8297==NULL) {backtrace("stalin.sc", 32318, 1116652); out_of_memory_error();} t8297->s0 = t8293; t8297->s1 = t8298; f5365(t8296, t8297); goto l2814; l2813: /* x228650 */ /* x228649 */ /* x228648 stalin.sc:32322:1116879 */ /* x228647 stalin.sc:32322:1116887 */ t8289 = " From the following expression:"; /* x228646 stalin.sc:32322:1116880 */ t8290.tag = STRING_TYPE; t8290.value.string_type = t8289; t8291 = (struct structure_type24753 *)NULL_TYPE; f5365(t8290, t8291); l2814: /* x228659 stalin.sc:32323:1116932 */ /* x228658 stalin.sc:32323:1116953 */ /* x228657 stalin.sc:32323:1116965 */ /* x228656 stalin.sc:32323:1116987 */ t8317 = a33314; /* x228655 stalin.sc:32323:1116966 */ a36491 = t8317; /* x278633 */ /* x278632 */ t8318 = a36491; /* x278631 */ if (!((t8318.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31408]"); structure_ref_error();} t8316 = t8318.value.structure_type27745->s0; /* x228654 stalin.sc:32323:1116954 */ t8313 = f13160(t8316); /* x228653 stalin.sc:32323:1116944 */ t8312 = " ~s"; /* x228652 stalin.sc:32323:1116933 */ t8314 = t8312; t8315 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8315==NULL) {backtrace("stalin.sc", 32323, 1116932); out_of_memory_error();} t8315->s0 = t8313; t8315->s1.tag = NULL_TYPE; f5380(t8314, t8315); /* x228671 stalin.sc:32324:1116999 */ /* x228670 stalin.sc:32325:1117027 */ /* x228669 stalin.sc:32326:1117047 */ /* x228668 stalin.sc:32326:1117053 */ /* x228667 stalin.sc:32326:1117077 */ /* x228666 stalin.sc:32326:1117099 */ t8328 = a33314; /* x228665 stalin.sc:32326:1117078 */ a36492 = t8328; /* x278637 */ /* x278636 */ t8329 = a36492; /* x278635 */ if (!((t8329.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31409]"); structure_ref_error();} t8326 = t8329.value.structure_type27745->s0; /* x228664 stalin.sc:32326:1117054 */ a40100 = t8326; /* x293069 */ /* x293068 */ t8327 = a40100; /* x293067 */ if (!((t8327.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35017]"); structure_ref_error();} t8325 = t8327.value.structure_type27698->s9; /* x228663 stalin.sc:32326:1117048 */ t8323 = f8692(t8325); /* x228662 stalin.sc:32325:1117028 */ a36640 = t8323; /* x279229 */ /* x279228 */ t8324 = a36640; /* x279227 */ if (!((t8324.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31557]"); structure_ref_error();} t8320 = t8324.value.structure_type27694->s2; /* x228661 stalin.sc:32324:1117007 */ t8319 = " in ~a"; /* x228660 stalin.sc:32324:1117000 */ t8321.tag = STRING_TYPE; t8321.value.string_type = t8319; t8322 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8322==NULL) {backtrace("stalin.sc", 32324, 1116999); out_of_memory_error();} t8322->s0.tag = STRING_TYPE; t8322->s0.value.string_type = t8320; t8322->s1.tag = NULL_TYPE; f5365(t8321, t8322); /* x228620 */ /* x228619 stalin.sc:32327:1117113 */ /* x228618 stalin.sc:32328:1117181 */ /* x228617 stalin.sc:32328:1117237 */ t8284 = a33314; /* x228616 stalin.sc:32328:1117182 */ t8280 = f8776(t8284); /* x228615 stalin.sc:32327:1117123 */ /* x228608 stalin.sc:32327:1117114 */ t8281.tag = NATIVE_PROCEDURE_TYPE19046; t8282 = *((struct w49 *)(&t8280)); t8283 = (struct structure_type24753 *)NULL_TYPE; f27755(t8281, t8282, t8283); return;} /* [inside STALIN 19530] */ int f19530(struct w49 a33306) {struct w12224 t8330; struct w49 t8331; struct w49 t8332; /* x228537 stalin.sc:32266:1114664 */ /* x228536 stalin.sc:32267:1114675 */ /* x228535 stalin.sc:32267:1114731 */ t8332 = a33306; /* x228534 stalin.sc:32267:1114676 */ t8330 = f8776(t8332); /* x228533 stalin.sc:32266:1114665 */ t8331 = *((struct w49 *)(&t8330)); return f26227(t8331);} /* [inside STALIN 19523] */ void f19523(struct w49 a33305) {struct w49 a36632; /* S */ char *t8333; char *t8334; struct w49 t8335; struct structure_type24753 *t8336; struct w49 t8337; struct w49 t8338; /* x228435 stalin.sc:32286:1115503 */ /* x228434 stalin.sc:32286:1115523 */ /* x228433 stalin.sc:32286:1115541 */ t8337 = a33305; /* x228432 stalin.sc:32286:1115524 */ a36632 = t8337; /* x279197 */ /* x279196 */ t8338 = a36632; /* x279195 */ if (!((t8338.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31549]"); structure_ref_error();} t8334 = t8338.value.structure_type27694->s2; /* x228431 stalin.sc:32286:1115511 */ t8333 = " to ~a"; /* x228430 stalin.sc:32286:1115504 */ t8335.tag = STRING_TYPE; t8335.value.string_type = t8333; t8336 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8336==NULL) {backtrace("stalin.sc", 32286, 1115503); out_of_memory_error();} t8336->s0.tag = STRING_TYPE; t8336->s0.value.string_type = t8334; t8336->s1.tag = NULL_TYPE; f5365(t8335, t8336); return;} /* [inside STALIN 19515] */ void f19515(struct w49 a33296) {struct w49 a33299; /* E1 */ struct w49 a33300; /* E2 */ struct w49 a36457; /* S */ struct w49 a36458; /* S */ struct w49 a36459; /* S */ struct w49 a36460; /* S */ struct w49 a36488; /* S */ struct w49 a36489; /* S */ struct w49 a36631; /* S */ struct w49 a40079; /* S */ struct w49 a40158; /* S */ struct w49 a40174; /* S */ struct w49 a40191; /* S */ struct w49 a40192; /* S */ struct w49 t8339; struct w49 t8340; struct w49 t8341; char *t8342; struct w49 t8343; struct structure_type24753 *t8344; char *t8345; char *t8346; struct w49 t8347; struct structure_type24753 *t8348; struct w49 t8349; struct w49 t8350; struct w12224 t8351; struct w36108 t8352; struct w49 t8353; struct structure_type24753 *t8354; struct w49 t8355; struct w49 t8356; struct w49 t8357; char *t8358; struct w49 t8359; struct structure_type24753 *t8360; struct w49 t8361; char *t8362; struct w49 t8363; struct structure_type24753 *t8364; struct w49 t8365; struct w49 t8366; struct w49 t8367; struct w49 t8368; struct w49 t8369; struct w49 t8370; struct w49 t8371; struct w49 t8372; struct w49 t8373; char *t8374; struct w49 t8375; struct structure_type24753 *t8376; char *t8377; struct w49 t8378; struct w7121 t8379; struct w7121 t8380; struct w49 t8381; struct structure_type24753 *t8382; struct w49 t8383; struct w49 t8384; struct w49 t8385; struct w49 t8386; struct w49 t8387; struct w49 t8388; struct w49 t8389; struct w49 t8390; struct w49 t8391; struct w49 t8392; struct w49 t8393; struct w49 t8394; struct w49 t8395; struct w49 t8396; char *t8397; struct w49 t8398; char *t8399; struct structure_type24753 *t8400; struct w49 t8401; struct w49 t8402; struct w49 t8403; /* x228523 */ /* x228514 stalin.sc:32275:1114947 */ /* x228488 stalin.sc:32276:1114955 */ /* x228487 stalin.sc:32276:1114976 */ /* x228486 stalin.sc:32276:1114998 */ t8372 = a33296; /* x228485 stalin.sc:32276:1114977 */ a36488 = t8372; /* x278621 */ /* x278620 */ t8373 = a36488; /* x278619 */ if (!((t8373.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31405]"); structure_ref_error();} t8370 = t8373.value.structure_type27745->s0; /* x228484 stalin.sc:32276:1114956 */ a40192 = t8370; /* x293437 */ /* x293436 */ t8371 = a40192; /* x293435 */ if (!((t8371.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35109]"); structure_ref_error();} if ((t8371.value.structure_type27698->s3.tag)==FALSE_TYPE) goto l2825; /* x228508 */ /* x228507 */ /* x228506 stalin.sc:32277:1115004 */ /* x228505 stalin.sc:32280:1115165 */ /* x228504 stalin.sc:32280:1115196 */ /* x228503 stalin.sc:32280:1115218 */ t8395 = a33296; /* x228502 stalin.sc:32280:1115197 */ a36459 = t8395; /* x278505 */ /* x278504 */ t8396 = a36459; /* x278503 */ if (!((t8396.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31376]"); structure_ref_error();} t8393 = t8396.value.structure_type27745->s0; /* x228501 stalin.sc:32280:1115166 */ a40158 = t8393; /* x293301 */ /* x293300 */ t8394 = a40158; /* x293299 */ if (!((t8394.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION[5527] 35075]"); structure_ref_error();} t8380 = t8394.value.structure_type27698->s5; /* x228500 stalin.sc:32279:1115110 */ /* x228499 stalin.sc:32279:1115136 */ /* x228498 stalin.sc:32279:1115158 */ t8391 = a33296; /* x228497 stalin.sc:32279:1115137 */ a36458 = t8391; /* x278501 */ /* x278500 */ t8392 = a36458; /* x278499 */ if (!((t8392.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31375]"); structure_ref_error();} t8389 = t8392.value.structure_type27745->s0; /* x228496 stalin.sc:32279:1115111 */ a40174 = t8389; /* x293365 */ /* x293364 */ t8390 = a40174; /* x293363 */ if (!((t8390.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LINE-POSITION[5519] 35091]"); structure_ref_error();} t8379 = t8390.value.structure_type27698->s4; /* x228495 stalin.sc:32278:1115060 */ /* x228494 stalin.sc:32278:1115081 */ /* x228493 stalin.sc:32278:1115103 */ t8387 = a33296; /* x228492 stalin.sc:32278:1115082 */ a36457 = t8387; /* x278497 */ /* x278496 */ t8388 = a36457; /* x278495 */ if (!((t8388.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31374]"); structure_ref_error();} t8385 = t8388.value.structure_type27745->s0; /* x228491 stalin.sc:32278:1115061 */ a40191 = t8385; /* x293433 */ /* x293432 */ t8386 = a40191; /* x293431 */ if (!((t8386.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35108]"); structure_ref_error();} t8378 = t8386.value.structure_type27698->s3; /* x228490 stalin.sc:32277:1115012 */ t8377 = " From the following expression, ~a:~s:~s:"; /* x228489 stalin.sc:32277:1115005 */ t8381.tag = STRING_TYPE; t8381.value.string_type = t8377; t8384.tag = STRUCTURE_TYPE24753; t8384.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8384.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32277, 1115004); out_of_memory_error();} t8384.value.structure_type24753->s0 = *((struct w49 *)(&t8380)); t8384.value.structure_type24753->s1.tag = NULL_TYPE; t8383.tag = STRUCTURE_TYPE24753; t8383.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8383.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32277, 1115004); out_of_memory_error();} t8383.value.structure_type24753->s0 = *((struct w49 *)(&t8379)); t8383.value.structure_type24753->s1 = t8384; t8382 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8382==NULL) {backtrace("stalin.sc", 32277, 1115004); out_of_memory_error();} t8382->s0 = t8378; t8382->s1 = t8383; f5365(t8381, t8382); goto l2826; l2825: /* x228513 */ /* x228512 */ /* x228511 stalin.sc:32281:1115231 */ /* x228510 stalin.sc:32281:1115239 */ t8374 = " From the following expression:"; /* x228509 stalin.sc:32281:1115232 */ t8375.tag = STRING_TYPE; t8375.value.string_type = t8374; t8376 = (struct structure_type24753 *)NULL_TYPE; f5365(t8375, t8376); l2826: /* x228522 stalin.sc:32282:1115284 */ /* x228521 stalin.sc:32282:1115305 */ /* x228520 stalin.sc:32282:1115317 */ /* x228519 stalin.sc:32282:1115339 */ t8402 = a33296; /* x228518 stalin.sc:32282:1115318 */ a36489 = t8402; /* x278625 */ /* x278624 */ t8403 = a36489; /* x278623 */ if (!((t8403.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31406]"); structure_ref_error();} t8401 = t8403.value.structure_type27745->s0; /* x228517 stalin.sc:32282:1115306 */ t8398 = f13160(t8401); /* x228516 stalin.sc:32282:1115296 */ t8397 = " ~s"; /* x228515 stalin.sc:32282:1115285 */ t8399 = t8397; t8400 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8400==NULL) {backtrace("stalin.sc", 32282, 1115284); out_of_memory_error();} t8400->s0 = t8398; t8400->s1.tag = NULL_TYPE; f5380(t8399, t8400); /* x228483 */ /* x228482 stalin.sc:32283:1115351 */ /* x228481 stalin.sc:32283:1115362 */ /* x228480 stalin.sc:32283:1115386 */ /* x228479 stalin.sc:32283:1115408 */ t8368 = a33296; /* x228478 stalin.sc:32283:1115387 */ a36460 = t8368; /* x278509 */ /* x278508 */ t8369 = a36460; /* x278507 */ if (!((t8369.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31377]"); structure_ref_error();} t8366 = t8369.value.structure_type27745->s0; /* x228477 stalin.sc:32283:1115363 */ a40079 = t8366; /* x292985 */ /* x292984 */ t8367 = a40079; /* x292983 */ if (!((t8367.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34996]"); structure_ref_error();} t8339 = t8367.value.structure_type27698->s9; /* x228476 */ a33299 = t8339; /* x228475 */ /* x228474 stalin.sc:32284:1115424 */ /* x228473 stalin.sc:32284:1115430 */ t8365 = a33299; /* x228472 stalin.sc:32284:1115425 */ t8340 = f8692(t8365); /* x228471 */ a33300 = t8340; /* x228470 */ /* x228469 */ /* x228468 */ /* x228428 stalin.sc:32285:1115437 */ /* x228427 stalin.sc:32285:1115457 */ /* x228426 stalin.sc:32285:1115475 */ t8349 = a33300; /* x228425 stalin.sc:32285:1115458 */ a36631 = t8349; /* x279193 */ /* x279192 */ t8350 = a36631; /* x279191 */ if (!((t8350.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31548]"); structure_ref_error();} t8346 = t8350.value.structure_type27694->s2; /* x228424 stalin.sc:32285:1115445 */ t8345 = " in ~a"; /* x228423 stalin.sc:32285:1115438 */ t8347.tag = STRING_TYPE; t8347.value.string_type = t8345; t8348 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8348==NULL) {backtrace("stalin.sc", 32285, 1115437); out_of_memory_error();} t8348->s0.tag = STRING_TYPE; t8348->s0.value.string_type = t8346; t8348->s1.tag = NULL_TYPE; f5365(t8347, t8348); /* x228440 stalin.sc:32286:1115481 */ /* x228439 stalin.sc:32287:1115550 */ /* x228438 stalin.sc:32287:1115606 */ t8355 = a33296; /* x228437 stalin.sc:32287:1115551 */ t8351 = f8776(t8355); /* x228436 stalin.sc:32286:1115491 */ /* x228429 stalin.sc:32286:1115482 */ t8352.tag = NATIVE_PROCEDURE_TYPE19056; t8353 = *((struct w49 *)(&t8351)); t8354 = (struct structure_type24753 *)NULL_TYPE; f27755(t8352, t8353, t8354); /* x228456 stalin.sc:32291:1115761 */ /* x228448 stalin.sc:32291:1115767 */ /* x228443 stalin.sc:32291:1115772 */ /* x228442 stalin.sc:32291:1115785 */ t8356 = a33299; /* x228441 stalin.sc:32291:1115773 */ if (f8528(t8356)==FALSE_TYPE) goto l2818; /* x228446 */ /* x228445 stalin.sc:32291:1115801 */ t8357 = a33299; /* x228444 stalin.sc:32291:1115790 */ if (f8543(t8357)==FALSE_TYPE) goto l2818; /* x228453 */ /* x228452 */ /* x228451 stalin.sc:32292:1115808 */ /* x228450 stalin.sc:32292:1115816 */ t8358 = " because the call site has a reentrant region"; /* x228449 stalin.sc:32292:1115809 */ t8359.tag = STRING_TYPE; t8359.value.string_type = t8358; t8360 = (struct structure_type24753 *)NULL_TYPE; f5365(t8359, t8360); goto l2819; l2818: /* x228455 stalin.sc:32291:1115761 */ /* x228454 stalin.sc:32291:1115761 */ l2819: /* x228467 stalin.sc:32293:1115870 */ /* x228459 stalin.sc:32293:1115876 */ /* x228458 stalin.sc:32293:1115889 */ t8361 = a33300; /* x228457 stalin.sc:32293:1115877 */ if ((f8593(t8361).tag)==FALSE_TYPE) goto l2822; /* x228464 */ /* x228463 */ /* x228462 stalin.sc:32294:1115895 */ /* x228461 stalin.sc:32294:1115903 */ t8362 = " because the call site has calls to alloca"; /* x228460 stalin.sc:32294:1115896 */ t8363.tag = STRING_TYPE; t8363.value.string_type = t8362; t8364 = (struct structure_type24753 *)NULL_TYPE; f5365(t8363, t8364); goto l2823; l2822: /* x228466 stalin.sc:32293:1115870 */ /* x228465 stalin.sc:32293:1115870 */ l2823: /* x228422 */ /* x228421 stalin.sc:32295:1115954 */ /* x228413 stalin.sc:32295:1115960 */ /* x228412 stalin.sc:32295:1115973 */ t8341 = a33300; /* x228411 stalin.sc:32295:1115961 */ if ((f8608(t8341).tag)==FALSE_TYPE) goto l2816; /* x228418 */ /* x228417 */ /* x228416 stalin.sc:32296:1115979 */ /* x228415 stalin.sc:32296:1115987 */ t8342 = " because the call site has calls to setjmp"; /* x228414 stalin.sc:32296:1115980 */ t8343.tag = STRING_TYPE; t8343.value.string_type = t8342; t8344 = (struct structure_type24753 *)NULL_TYPE; f5365(t8343, t8344); return; l2816: /* x228420 stalin.sc:32295:1115954 */ /* x228419 stalin.sc:32295:1115954 */ return;} /* [inside STALIN 19504] */ void f19504(struct w49 a33289) {struct w49 a36622; /* S */ char *t8404; char *t8405; struct w49 t8406; struct structure_type24753 *t8407; struct w49 t8408; struct w49 t8409; /* x228271 stalin.sc:32127:1109856 */ /* x228270 stalin.sc:32128:1109883 */ /* x228269 stalin.sc:32128:1109901 */ t8408 = a33289; /* x228268 stalin.sc:32128:1109884 */ a36622 = t8408; /* x279157 */ /* x279156 */ t8409 = a36622; /* x279155 */ if (!((t8409.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31539]"); structure_ref_error();} t8405 = t8409.value.structure_type27694->s2; /* x228267 stalin.sc:32127:1109864 */ t8404 = " ~a"; /* x228266 stalin.sc:32127:1109857 */ t8406.tag = STRING_TYPE; t8406.value.string_type = t8404; t8407 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8407==NULL) {backtrace("stalin.sc", 32127, 1109856); out_of_memory_error();} t8407->s0.tag = STRING_TYPE; t8407->s0.value.string_type = t8405; t8407->s1.tag = NULL_TYPE; f5365(t8406, t8407); return;} /* [inside STALIN 19501] */ void f19501(struct w49 a33287) {struct w49 a36853; /* S */ struct w49 a36978; /* S */ struct w49 a37001; /* S */ struct w49 a41658; /* G */ struct w49 a41665; /* G */ struct w49 a41677; /* G */ struct w49 a41705; /* G */ struct w49 a41744; /* G */ struct w49 t8410; struct w49 t8411; struct w11873 t8412; struct w36108 t8413; struct w49 t8414; struct structure_type24753 *t8415; struct w49 t8416; struct w49 t8417; struct w49 t8418; struct w49 t8419; char *t8420; struct w49 t8421; unsigned t8422; char *t8423; char *t8424; char *t8425; char *t8426; struct w49 t8427; struct structure_type24753 *t8428; struct w49 t8429; struct w49 t8430; struct w49 t8431; struct w49 t8432; struct w49 t8433; struct w49 t8434; struct w49 t8435; struct w49 t8436; struct w49 t8437; struct w49 t8438; struct w49 t8439; struct w49 t8440; struct w49 t8441; struct w49 t8442; struct w49 t8443; struct w49 t8444; struct w49 t8445; /* x228320 */ /* x228319 stalin.sc:32118:1109556 */ /* x228318 stalin.sc:32124:1109762 */ /* x228315 stalin.sc:32124:1109766 */ /* x228314 stalin.sc:32124:1109775 */ t8444 = a33287; /* x228313 stalin.sc:32124:1109767 */ a41677 = t8444; /* x300820 stalin.sc:3942:133266 */ /* x300819 stalin.sc:3942:133284 */ t8445 = a41677; /* x300818 stalin.sc:3942:133267 */ if (f8214(t8445)==FALSE_TYPE) goto l2839; /* x228316 stalin.sc:32124:1109778 */ t8426 = " hidden as"; goto l2840; l2839: /* x228317 stalin.sc:32124:1109791 */ t8426 = ""; l2840: /* x228312 stalin.sc:32123:1109722 */ /* x228309 stalin.sc:32123:1109726 */ /* x228308 stalin.sc:32123:1109736 */ t8442 = a33287; /* x228307 stalin.sc:32123:1109727 */ a41658 = t8442; /* x300744 stalin.sc:3965:133896 */ /* x300743 stalin.sc:3965:133915 */ t8443 = a41658; /* x300742 stalin.sc:3965:133897 */ if (f8219(t8443)==FALSE_TYPE) goto l2836; /* x228310 stalin.sc:32123:1109739 */ t8425 = " slotted"; goto l2837; l2836: /* x228311 stalin.sc:32123:1109750 */ t8425 = ""; l2837: /* x228306 stalin.sc:32122:1109684 */ /* x228303 stalin.sc:32122:1109688 */ /* x228302 stalin.sc:32122:1109697 */ t8440 = a33287; /* x228301 stalin.sc:32122:1109689 */ a41705 = t8440; /* x300932 stalin.sc:3916:132554 */ /* x300931 stalin.sc:3916:132572 */ t8441 = a41705; /* x300930 stalin.sc:3916:132555 */ if (f8209(t8441)==FALSE_TYPE) goto l2833; /* x228304 stalin.sc:32122:1109700 */ t8424 = " global"; goto l2834; l2833: /* x228305 stalin.sc:32122:1109710 */ t8424 = ""; l2834: /* x228300 stalin.sc:32121:1109648 */ /* x228297 stalin.sc:32121:1109652 */ /* x228296 stalin.sc:32121:1109660 */ t8438 = a33287; /* x228295 stalin.sc:32121:1109653 */ a41744 = t8438; /* x301088 stalin.sc:3890:131852 */ /* x301087 stalin.sc:3890:131869 */ t8439 = a41744; /* x301086 stalin.sc:3890:131853 */ if (f8204(t8439)==FALSE_TYPE) goto l2830; /* x228298 stalin.sc:32121:1109663 */ t8423 = " local"; goto l2831; l2830: /* x228299 stalin.sc:32121:1109672 */ t8423 = ""; l2831: /* x228294 stalin.sc:32120:1109621 */ /* x228293 stalin.sc:32120:1109637 */ t8436 = a33287; /* x228292 stalin.sc:32120:1109622 */ a37001 = t8436; /* x280673 */ /* x280672 */ t8437 = a37001; /* x280671 */ if (!((t8437.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-INDEX[6565] 31918]"); structure_ref_error();} t8422 = t8437.value.structure_type27692->s6; /* x228291 stalin.sc:32119:1109595 */ /* x228290 stalin.sc:32119:1109610 */ t8434 = a33287; /* x228289 stalin.sc:32119:1109596 */ a36978 = t8434; /* x280581 */ /* x280580 */ t8435 = a36978; /* x280579 */ if (!((t8435.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31895]"); structure_ref_error();} t8421 = t8435.value.structure_type27692->s7; /* x228288 stalin.sc:32118:1109564 */ t8420 = " ~a{~s}~a~a~a~a"; /* x228287 stalin.sc:32118:1109557 */ t8427.tag = STRING_TYPE; t8427.value.string_type = t8420; t8433.tag = STRUCTURE_TYPE24753; t8433.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8433.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32118, 1109556); out_of_memory_error();} t8433.value.structure_type24753->s0.tag = STRING_TYPE; t8433.value.structure_type24753->s0.value.string_type = t8426; t8433.value.structure_type24753->s1.tag = NULL_TYPE; t8432.tag = STRUCTURE_TYPE24753; t8432.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8432.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32118, 1109556); out_of_memory_error();} t8432.value.structure_type24753->s0.tag = STRING_TYPE; t8432.value.structure_type24753->s0.value.string_type = t8425; t8432.value.structure_type24753->s1 = t8433; t8431.tag = STRUCTURE_TYPE24753; t8431.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8431.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32118, 1109556); out_of_memory_error();} t8431.value.structure_type24753->s0.tag = STRING_TYPE; t8431.value.structure_type24753->s0.value.string_type = t8424; t8431.value.structure_type24753->s1 = t8432; t8430.tag = STRUCTURE_TYPE24753; t8430.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8430.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32118, 1109556); out_of_memory_error();} t8430.value.structure_type24753->s0.tag = STRING_TYPE; t8430.value.structure_type24753->s0.value.string_type = t8423; t8430.value.structure_type24753->s1 = t8431; t8429.tag = STRUCTURE_TYPE24753; t8429.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8429.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32118, 1109556); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t8422==FALSE_TYPE) t8429.value.structure_type24753->s0.tag = (unsigned)t8422; else {t8429.value.structure_type24753->s0.tag = FIXNUM_TYPE; t8429.value.structure_type24753->s0.value.fixnum_type = (int)(((int)t8422)>>1);} t8429.value.structure_type24753->s1 = t8430; t8428 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8428==NULL) {backtrace("stalin.sc", 32118, 1109556); out_of_memory_error();} t8428->s0 = t8421; t8428->s1 = t8429; f5365(t8427, t8428); /* x228286 */ /* x228285 stalin.sc:32125:1109803 */ /* x228264 stalin.sc:32125:1109809 */ /* x228263 stalin.sc:32125:1109818 */ t8410 = a33287; /* x228262 stalin.sc:32125:1109810 */ a41665 = t8410; /* x300772 stalin.sc:3942:133266 */ /* x300771 stalin.sc:3942:133284 */ t8411 = a41665; /* x300770 stalin.sc:3942:133267 */ if (f8214(t8411)==FALSE_TYPE) goto l2828; /* x228282 */ /* x228281 */ /* x228280 stalin.sc:32126:1109829 */ /* x228279 stalin.sc:32129:1109917 */ /* x228278 stalin.sc:32130:1109937 */ /* x228277 stalin.sc:32130:1109949 */ /* x228276 stalin.sc:32130:1109968 */ t8418 = a33287; /* x228275 stalin.sc:32130:1109950 */ a36853 = t8418; /* x280081 */ /* x280080 */ t8419 = a36853; /* x280079 */ if (!((t8419.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31770]"); structure_ref_error();} t8417 = t8419.value.structure_type27692->s9; /* x228274 stalin.sc:32130:1109938 */ t8416 = f8153(t8417); /* x228273 stalin.sc:32129:1109918 */ t8412 = f8984(t8416); /* x228272 stalin.sc:32126:1109839 */ /* x228265 stalin.sc:32126:1109830 */ t8413.tag = NATIVE_PROCEDURE_TYPE19018; t8414 = *((struct w49 *)(&t8412)); t8415 = (struct structure_type24753 *)NULL_TYPE; f27755(t8413, t8414, t8415); return; l2828: /* x228284 stalin.sc:32125:1109803 */ /* x228283 stalin.sc:32125:1109803 */ return;} /* [inside STALIN 19484] */ void f19484(struct w49 a33282) {struct w49 a36621; /* S */ char *t8446; char *t8447; struct w49 t8448; struct structure_type24753 *t8449; struct w49 t8450; struct w49 t8451; /* x228154 stalin.sc:32095:1108741 */ /* x228153 stalin.sc:32095:1108760 */ /* x228152 stalin.sc:32095:1108778 */ t8450 = a33282; /* x228151 stalin.sc:32095:1108761 */ a36621 = t8450; /* x279153 */ /* x279152 */ t8451 = a36621; /* x279151 */ if (!((t8451.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31538]"); structure_ref_error();} t8447 = t8451.value.structure_type27694->s2; /* x228150 stalin.sc:32095:1108749 */ t8446 = " ~a"; /* x228149 stalin.sc:32095:1108742 */ t8448.tag = STRING_TYPE; t8448.value.string_type = t8446; t8449 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8449==NULL) {backtrace("stalin.sc", 32095, 1108741); out_of_memory_error();} t8449->s0.tag = STRING_TYPE; t8449->s0.value.string_type = t8447; t8449->s1.tag = NULL_TYPE; f5365(t8448, t8449); return;} /* [inside STALIN 19473] */ void f19473(struct w49 a33277) {struct w49 a36964; /* S */ struct w49 a36987; /* S */ char *t8452; struct w49 t8453; unsigned t8454; struct w49 t8455; struct structure_type24753 *t8456; struct w49 t8457; struct w49 t8458; struct w49 t8459; struct w49 t8460; struct w49 t8461; /* x228036 stalin.sc:32146:1110358 */ /* x228035 stalin.sc:32148:1110415 */ /* x228034 stalin.sc:32148:1110431 */ t8460 = a33277; /* x228033 stalin.sc:32148:1110416 */ a36987 = t8460; /* x280617 */ /* x280616 */ t8461 = a36987; /* x280615 */ if (!((t8461.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-INDEX[6565] 31904]"); structure_ref_error();} t8454 = t8461.value.structure_type27692->s6; /* x228032 stalin.sc:32147:1110389 */ /* x228031 stalin.sc:32147:1110404 */ t8458 = a33277; /* x228030 stalin.sc:32147:1110390 */ a36964 = t8458; /* x280525 */ /* x280524 */ t8459 = a36964; /* x280523 */ if (!((t8459.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31881]"); structure_ref_error();} t8453 = t8459.value.structure_type27692->s7; /* x228029 stalin.sc:32146:1110366 */ t8452 = " ~a{~s}"; /* x228028 stalin.sc:32146:1110359 */ t8455.tag = STRING_TYPE; t8455.value.string_type = t8452; t8457.tag = STRUCTURE_TYPE24753; t8457.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8457.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32146, 1110358); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t8454==FALSE_TYPE) t8457.value.structure_type24753->s0.tag = (unsigned)t8454; else {t8457.value.structure_type24753->s0.tag = FIXNUM_TYPE; t8457.value.structure_type24753->s0.value.fixnum_type = (int)(((int)t8454)>>1);} t8457.value.structure_type24753->s1.tag = NULL_TYPE; t8456 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8456==NULL) {backtrace("stalin.sc", 32146, 1110358); out_of_memory_error();} t8456->s0 = t8453; t8456->s1 = t8457; f5365(t8455, t8456); return;} /* [inside STALIN 19467] */ void f19467(struct w49 a33270) {struct w12224 a33275; /* GS */ char *a33278; /* v */ struct w12224 a33285; /* GS */ struct w49 a36630; /* S */ struct w49 a36651; /* S */ struct w49 a36653; /* S */ struct w12224 t8462; struct w12224 t8463; struct w21691 t8464; struct w36108 t8465; struct w49 t8466; struct structure_type24753 *t8467; char *t8468; struct w49 t8469; struct structure_type24753 *t8470; int t8471; int t8472; struct w21691 t8473; struct w49 t8474; struct w49 t8475; struct w227671 t8476; struct w49 t8477; unsigned t8478; unsigned t8479; struct structure_type24753 *t8480; unsigned t8481; struct w49 t8482; struct w228463 t8483; struct w3457 t8484; struct w36270 t8485; struct w49 t8486; struct structure_type24753 *t8487; struct w49 t8488; char *t8489; char *t8490; char *t8491; char *t8492; char *t8493; struct w49 t8494; struct structure_type24753 *t8495; struct w49 t8496; struct w49 t8497; struct w49 t8498; struct w49 t8499; struct w49 t8500; struct w49 t8501; struct w49 t8502; struct w49 t8503; char *t8504; char *t8505; char *t8506; struct w49 t8507; struct w49 t8508; char *t8509; char *t8510; struct w49 t8511; struct w49 t8512; char *t8513; char *t8514; struct w49 t8515; struct w49 t8516; char *t8517; char *t8518; struct w49 t8519; struct w49 t8520; char *t8521; char *t8522; struct w49 t8523; struct w49 t8524; char *t8525; struct w49 t8526; char *t8527; char *t8528; struct w49 t8529; struct structure_type24753 *t8530; struct w49 t8531; struct w49 t8532; struct w49 t8533; struct w49 t8534; char *t8535; char *t8536; struct w49 t8537; struct structure_type24753 *t8538; struct w49 t8539; struct w49 t8540; struct w49 t8541; struct w49 t8542; char *t8543; struct w49 t8544; struct structure_type24753 *t8545; struct w49 t8546; char *t8547; struct w49 t8548; struct structure_type24753 *t8549; struct w49 t8550; struct w3457 t8551; struct w36108 t8552; struct w49 t8553; struct structure_type24753 *t8554; struct w49 t8555; char *t8556; struct w49 t8557; struct structure_type24753 *t8558; int t8559; int t8560; struct w3457 t8561; struct w49 t8562; struct w49 t8563; char *t8564; struct w6315 t8565; char *t8566; struct w6315 t8567; struct w49 t8568; char *t8569; struct w49 t8570; struct structure_type24753 *t8571; struct w12224 t8572; struct w12224 t8573; struct w21691 t8574; struct w36108 t8575; struct w49 t8576; struct structure_type24753 *t8577; char *t8578; struct w49 t8579; struct structure_type24753 *t8580; int t8581; int t8582; struct w21691 t8583; struct w49 t8584; struct structure_type24753 *t8585; struct w227671 t8586; struct w49 t8587; struct w49 t8588; /* x228375 */ /* x228099 stalin.sc:32075:1108022 */ /* x228098 stalin.sc:32079:1108172 */ /* x228095 stalin.sc:32079:1108176 */ /* x228094 stalin.sc:32079:1108217 */ t8503 = a33270; /* x228093 stalin.sc:32079:1108177 */ if (f8481(t8503)==FALSE_TYPE) goto l2853; /* x228096 stalin.sc:32080:1108226 */ t8493 = " passes parameters globally"; goto l2854; l2853: /* x228097 stalin.sc:32081:1108262 */ t8493 = ""; l2854: /* x228092 stalin.sc:32078:1108127 */ /* x228089 stalin.sc:32078:1108131 */ /* x228088 stalin.sc:32078:1108143 */ t8502 = a33270; /* x228087 stalin.sc:32078:1108132 */ if (f8944(t8502)==FALSE_TYPE) goto l2850; /* x228090 stalin.sc:32078:1108146 */ t8492 = " converted"; goto l2851; l2850: /* x228091 stalin.sc:32078:1108159 */ t8492 = ""; l2851: /* x228086 stalin.sc:32077:1108082 */ /* x228083 stalin.sc:32077:1108086 */ /* x228082 stalin.sc:32077:1108098 */ t8501 = a33270; /* x228081 stalin.sc:32077:1108087 */ if (f8543(t8501)==FALSE_TYPE) goto l2847; /* x228084 stalin.sc:32077:1108101 */ t8491 = " reentrant"; goto l2848; l2847: /* x228085 stalin.sc:32077:1108114 */ t8491 = ""; l2848: /* x228080 stalin.sc:32076:1108052 */ /* x228079 stalin.sc:32076:1108070 */ t8499 = a33270; /* x228078 stalin.sc:32076:1108053 */ a36653 = t8499; /* x279281 */ /* x279280 */ t8500 = a36653; /* x279279 */ if (!((t8500.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31570]"); structure_ref_error();} t8490 = t8500.value.structure_type27694->s2; /* x228077 stalin.sc:32075:1108030 */ t8489 = " ~a~a~a~a"; /* x228076 stalin.sc:32075:1108023 */ t8494.tag = STRING_TYPE; t8494.value.string_type = t8489; t8498.tag = STRUCTURE_TYPE24753; t8498.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8498.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32075, 1108022); out_of_memory_error();} t8498.value.structure_type24753->s0.tag = STRING_TYPE; t8498.value.structure_type24753->s0.value.string_type = t8493; t8498.value.structure_type24753->s1.tag = NULL_TYPE; t8497.tag = STRUCTURE_TYPE24753; t8497.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8497.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32075, 1108022); out_of_memory_error();} t8497.value.structure_type24753->s0.tag = STRING_TYPE; t8497.value.structure_type24753->s0.value.string_type = t8492; t8497.value.structure_type24753->s1 = t8498; t8496.tag = STRUCTURE_TYPE24753; t8496.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8496.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32075, 1108022); out_of_memory_error();} t8496.value.structure_type24753->s0.tag = STRING_TYPE; t8496.value.structure_type24753->s0.value.string_type = t8491; t8496.value.structure_type24753->s1 = t8497; t8495 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8495==NULL) {backtrace("stalin.sc", 32075, 1108022); out_of_memory_error();} t8495->s0.tag = STRING_TYPE; t8495->s0.value.string_type = t8490; t8495->s1 = t8496; f5365(t8494, t8495); /* x228244 stalin.sc:32082:1108275 */ /* x228243 stalin.sc:32082:1108281 */ t8504 = a686; /* x228242 */ a33278 = t8504; /* x228241 */ /* x228103 */ /* x228101 */ t8505 = a33278; /* x228102 */ t8506 = q18; /* x228100 */ /* MOVE: branching squeezed to general */ if (t8505>=((char *)VALUE_OFFSET)) {t8507.tag = EXTERNAL_SYMBOL_TYPE; t8507.value.external_symbol_type = t8505;} else t8507.tag = (unsigned)t8505; t8508.tag = EXTERNAL_SYMBOL_TYPE; t8508.value.external_symbol_type = t8506; if (f26160(t8507, t8508)==FALSE_TYPE) goto l2856; /* x228109 */ /* x228108 */ /* x228107 stalin.sc:32084:1108329 */ /* x228105 stalin.sc:32085:1108348 */ /* x228106 stalin.sc:32085:1108351 */ t8566 = "Immediate flat closures are not (yet) implemented"; /* x228104 stalin.sc:32084:1108330 */ t8567.tag = FALSE_TYPE; f9707(t8567, t8566); goto l2857; l2856: /* x228240 */ /* x228113 */ /* x228111 */ t8509 = a33278; /* x228112 */ t8510 = q19; /* x228110 */ /* MOVE: branching squeezed to general */ if (t8509>=((char *)VALUE_OFFSET)) {t8511.tag = EXTERNAL_SYMBOL_TYPE; t8511.value.external_symbol_type = t8509;} else t8511.tag = (unsigned)t8509; t8512.tag = EXTERNAL_SYMBOL_TYPE; t8512.value.external_symbol_type = t8510; if (f26160(t8511, t8512)==FALSE_TYPE) goto l2859; /* x228119 */ /* x228118 */ /* x228117 stalin.sc:32087:1108427 */ /* x228115 stalin.sc:32088:1108446 */ /* x228116 stalin.sc:32088:1108449 */ t8564 = "Indirect flat closures are not (yet) implemented"; /* x228114 stalin.sc:32087:1108428 */ t8565.tag = FALSE_TYPE; f9707(t8565, t8564); goto l2860; l2859: /* x228239 */ /* x228132 */ /* x228131 */ /* x228129 */ t8513 = a33278; /* x228130 */ t8514 = q20; /* x228128 */ /* MOVE: branching squeezed to general */ if (t8513>=((char *)VALUE_OFFSET)) {t8515.tag = EXTERNAL_SYMBOL_TYPE; t8515.value.external_symbol_type = t8513;} else t8515.tag = (unsigned)t8513; t8516.tag = EXTERNAL_SYMBOL_TYPE; t8516.value.external_symbol_type = t8514; if (!(f26160(t8515, t8516)==FALSE_TYPE)) goto l2861; /* x228125 */ /* x228123 */ t8517 = a33278; /* x228124 */ t8518 = q21; /* x228122 */ /* MOVE: branching squeezed to general */ if (t8517>=((char *)VALUE_OFFSET)) {t8519.tag = EXTERNAL_SYMBOL_TYPE; t8519.value.external_symbol_type = t8517;} else t8519.tag = (unsigned)t8517; t8520.tag = EXTERNAL_SYMBOL_TYPE; t8520.value.external_symbol_type = t8518; if (f26160(t8519, t8520)==FALSE_TYPE) goto l2862; l2861: /* x228182 */ /* x228181 */ /* x228180 */ /* x228179 stalin.sc:32090:1108545 */ /* x228147 stalin.sc:32090:1108551 */ /* x228146 stalin.sc:32090:1108574 */ t8550 = a33270; /* x228145 stalin.sc:32090:1108552 */ if ((f8897(t8550).tag)==FALSE_TYPE) goto l2881; /* x228176 */ /* x228175 */ /* x228174 */ /* x228173 stalin.sc:32091:1108581 */ /* x228172 stalin.sc:32091:1108589 */ /* x228169 stalin.sc:32091:1108593 */ /* x228167 stalin.sc:32091:1108596 */ /* x228166 stalin.sc:32091:1108604 */ /* x228165 stalin.sc:32091:1108615 */ t8563 = a33270; /* x228164 stalin.sc:32091:1108605 */ t8561 = f8951(t8563); /* x228163 stalin.sc:32091:1108597 */ t8562 = *((struct w49 *)(&t8561)); t8559 = f26227(t8562); /* x228168 stalin.sc:32091:1108619 */ t8560 = 1; /* x267541 stalin.sc:32091:1108594 */ if (!(t8559==t8560)) goto l2884; /* x228170 stalin.sc:32092:1108631 */ t8556 = " has the following ancestor:"; goto l2885; l2884: /* x228171 stalin.sc:32093:1108674 */ t8556 = " has the following ancestors"; l2885: /* x228161 stalin.sc:32091:1108582 */ t8557.tag = STRING_TYPE; t8557.value.string_type = t8556; t8558 = (struct structure_type24753 *)NULL_TYPE; f5365(t8557, t8558); /* x228160 */ /* x228159 stalin.sc:32094:1108714 */ /* x228158 stalin.sc:32096:1108788 */ /* x228157 stalin.sc:32096:1108799 */ t8555 = a33270; /* x228156 stalin.sc:32096:1108789 */ t8551 = f8951(t8555); /* x228155 stalin.sc:32095:1108729 */ /* x228148 stalin.sc:32094:1108715 */ t8552.tag = NATIVE_PROCEDURE_TYPE20178; t8553 = *((struct w49 *)(&t8551)); t8554 = (struct structure_type24753 *)NULL_TYPE; f27755(t8552, t8553, t8554); goto l2882; l2881: /* x228178 stalin.sc:32090:1108545 */ /* x228177 stalin.sc:32090:1108545 */ l2882: /* x228144 */ /* x228143 stalin.sc:32097:1108807 */ /* x228135 stalin.sc:32097:1108813 */ /* x228134 stalin.sc:32097:1108827 */ t8546 = a33270; /* x228133 stalin.sc:32097:1108814 */ if (f8563(t8546)==FALSE_TYPE) goto l2878; /* x228140 */ /* x228139 */ /* x228138 stalin.sc:32097:1108830 */ /* x228137 stalin.sc:32097:1108838 */ t8547 = " has closure"; /* x228136 stalin.sc:32097:1108831 */ t8548.tag = STRING_TYPE; t8548.value.string_type = t8547; t8549 = (struct structure_type24753 *)NULL_TYPE; f5365(t8548, t8549); goto l2879; l2878: /* x228142 stalin.sc:32097:1108807 */ /* x228141 stalin.sc:32097:1108807 */ l2879: goto l2863; l2862: /* x228238 */ /* x228186 */ /* x228184 */ t8521 = a33278; /* x228185 */ t8522 = q22; /* x228183 */ /* MOVE: branching squeezed to general */ if (t8521>=((char *)VALUE_OFFSET)) {t8523.tag = EXTERNAL_SYMBOL_TYPE; t8523.value.external_symbol_type = t8521;} else t8523.tag = (unsigned)t8521; t8524.tag = EXTERNAL_SYMBOL_TYPE; t8524.value.external_symbol_type = t8522; if (f26160(t8523, t8524)==FALSE_TYPE) goto l2866; /* x228233 */ /* x228232 */ /* x228231 */ /* x228219 stalin.sc:32099:1108874 */ /* x228206 stalin.sc:32099:1108880 */ /* x228205 stalin.sc:32099:1108903 */ t8534 = a33270; /* x228204 stalin.sc:32099:1108881 */ if ((f8897(t8534).tag)==FALSE_TYPE) goto l2872; /* x228216 */ /* x228215 */ /* x228214 stalin.sc:32100:1108910 */ /* x228213 stalin.sc:32101:1108953 */ /* x228212 stalin.sc:32101:1108971 */ /* x228211 stalin.sc:32101:1108989 */ t8541 = a33270; /* x228210 stalin.sc:32101:1108972 */ t8539 = f8965(t8541); /* x228209 stalin.sc:32101:1108954 */ a36651 = t8539; /* x279273 */ /* x279272 */ t8540 = a36651; /* x279271 */ if (!((t8540.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31568]"); structure_ref_error();} t8536 = t8540.value.structure_type27694->s2; /* x228208 stalin.sc:32100:1108918 */ t8535 = " has parent parameter ~a"; /* x228207 stalin.sc:32100:1108911 */ t8537.tag = STRING_TYPE; t8537.value.string_type = t8535; t8538 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8538==NULL) {backtrace("stalin.sc", 32100, 1108910); out_of_memory_error();} t8538->s0.tag = STRING_TYPE; t8538->s0.value.string_type = t8536; t8538->s1.tag = NULL_TYPE; f5365(t8537, t8538); goto l2873; l2872: /* x228218 stalin.sc:32099:1108874 */ /* x228217 stalin.sc:32099:1108874 */ l2873: /* x228230 stalin.sc:32102:1108998 */ /* x228222 stalin.sc:32102:1109004 */ /* x228221 stalin.sc:32102:1109018 */ t8542 = a33270; /* x228220 stalin.sc:32102:1109005 */ if (f8563(t8542)==FALSE_TYPE) goto l2875; /* x228227 */ /* x228226 */ /* x228225 stalin.sc:32102:1109021 */ /* x228224 stalin.sc:32102:1109029 */ t8543 = " has closure"; /* x228223 stalin.sc:32102:1109022 */ t8544.tag = STRING_TYPE; t8544.value.string_type = t8543; t8545 = (struct structure_type24753 *)NULL_TYPE; f5365(t8544, t8545); goto l2876; l2875: /* x228229 stalin.sc:32102:1108998 */ /* x228228 stalin.sc:32102:1108998 */ l2876: /* x228203 */ /* x228202 stalin.sc:32103:1109052 */ /* x228189 stalin.sc:32103:1109058 */ /* x228188 stalin.sc:32103:1109076 */ t8526 = a33270; /* x228187 stalin.sc:32103:1109059 */ if (f8584(t8526)==FALSE_TYPE) goto l2869; /* x228199 */ /* x228198 */ /* x228197 stalin.sc:32104:1109083 */ /* x228196 stalin.sc:32105:1109121 */ /* x228195 stalin.sc:32105:1109139 */ /* x228194 stalin.sc:32105:1109152 */ t8533 = a33270; /* x228193 stalin.sc:32105:1109140 */ t8531 = f8639(t8533); /* x228192 stalin.sc:32105:1109122 */ a36630 = t8531; /* x279189 */ /* x279188 */ t8532 = a36630; /* x279187 */ if (!((t8532.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31547]"); structure_ref_error();} t8528 = t8532.value.structure_type27694->s2; /* x228191 stalin.sc:32104:1109091 */ t8527 = " has parent slot ~a"; /* x228190 stalin.sc:32104:1109084 */ t8529.tag = STRING_TYPE; t8529.value.string_type = t8527; t8530 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8530==NULL) {backtrace("stalin.sc", 32104, 1109083); out_of_memory_error();} t8530->s0.tag = STRING_TYPE; t8530->s0.value.string_type = t8528; t8530->s1.tag = NULL_TYPE; f5365(t8529, t8530); goto l2870; l2869: /* x228201 stalin.sc:32103:1109052 */ /* x228200 stalin.sc:32103:1109052 */ l2870: goto l2867; l2866: /* x228237 */ /* x228236 */ /* x228235 stalin.sc:32106:1109167 */ /* x228234 stalin.sc:32106:1109168 */ /* x297417 QobiScheme.sc:166:5314 */ /* x297416 QobiScheme.sc:166:5321 */ t8525 = "This shouldn\'t happen"; /* x297415 QobiScheme.sc:166:5315 */ stalin_panic(t8525); l2867: l2863: l2860: l2857: /* x228255 stalin.sc:32107:1109187 */ /* x228247 stalin.sc:32107:1109193 */ /* x228246 stalin.sc:32107:1109206 */ t8568 = a33270; /* x228245 stalin.sc:32107:1109194 */ if (f8528(t8568)==FALSE_TYPE) goto l2887; /* x228252 */ /* x228251 */ /* x228250 stalin.sc:32107:1109209 */ /* x228249 stalin.sc:32107:1109217 */ t8569 = " has region"; /* x228248 stalin.sc:32107:1109210 */ t8570.tag = STRING_TYPE; t8570.value.string_type = t8569; t8571 = (struct structure_type24753 *)NULL_TYPE; f5365(t8570, t8571); goto l2888; l2887: /* x228254 stalin.sc:32107:1109187 */ /* x228253 stalin.sc:32107:1109187 */ l2888: /* x228374 stalin.sc:32108:1109244 */ /* x228373 stalin.sc:32109:1109262 */ /* x228369 stalin.sc:32110:1109286 */ /* x228372 stalin.sc:32112:1109364 */ /* x228371 stalin.sc:32112:1109375 */ t8588 = a33270; /* x228370 stalin.sc:32112:1109365 */ t8585 = f8987(t8588); /* x228341 stalin.sc:32109:1109263 */ t8586.tag = NATIVE_PROCEDURE_TYPE15263; /* MOVE: branching squeezed to general */ if (t8585>=((struct structure_type24753 *)VALUE_OFFSET)) {t8587.tag = STRUCTURE_TYPE24753; t8587.value.structure_type24753 = t8585;} else t8587.tag = (unsigned)t8585; t8572 = f1226(t8586, t8587); /* x228340 */ a33285 = t8572; /* x228339 stalin.sc:32113:1109383 */ /* x228258 stalin.sc:32113:1109391 */ /* x228257 stalin.sc:32113:1109398 */ t8573 = a33285; /* x267540 stalin.sc:32113:1109392 */ if (!((t8573.tag)==NULL_TYPE)) goto l2890; /* x228260 */ /* x228259 */ goto l2891; l2890: /* x228338 */ /* x228337 */ /* x228336 */ /* x228335 stalin.sc:32114:1109405 */ /* x228334 stalin.sc:32114:1109413 */ /* x228331 stalin.sc:32114:1109417 */ /* x228329 stalin.sc:32114:1109420 */ /* x228328 stalin.sc:32114:1109428 */ t8583 = *((struct w21691 *)(&a33285)); /* x228327 stalin.sc:32114:1109421 */ t8584 = *((struct w49 *)(&t8583)); t8581 = f26227(t8584); /* x228330 stalin.sc:32114:1109432 */ t8582 = 1; /* x267539 stalin.sc:32114:1109418 */ if (!(t8581==t8582)) goto l2893; /* x228332 stalin.sc:32115:1109443 */ t8578 = " has the following parameter:"; goto l2894; l2893: /* x228333 stalin.sc:32116:1109486 */ t8578 = " has the following parameters:"; l2894: /* x228325 stalin.sc:32114:1109406 */ t8579.tag = STRING_TYPE; t8579.value.string_type = t8578; t8580 = (struct structure_type24753 *)NULL_TYPE; f5365(t8579, t8580); /* x228324 */ /* x228323 stalin.sc:32117:1109527 */ /* x228322 stalin.sc:32131:1109982 */ t8574 = *((struct w21691 *)(&a33285)); /* x228321 */ /* x228261 stalin.sc:32117:1109528 */ t8575.tag = NATIVE_PROCEDURE_TYPE17039; t8576 = *((struct w49 *)(&t8574)); t8577 = (struct structure_type24753 *)NULL_TYPE; f27755(t8575, t8576, t8577); l2891: /* x228075 */ /* x228074 stalin.sc:32132:1109996 */ /* x228073 stalin.sc:32132:1110006 */ /* x228058 stalin.sc:32133:1110026 */ /* x228072 stalin.sc:32134:1110038 */ /* x228069 stalin.sc:32135:1110050 */ /* x228061 stalin.sc:32135:1110058 */ /* x228067 stalin.sc:32136:1110072 */ /* x228066 stalin.sc:32137:1110092 */ /* x228065 stalin.sc:32137:1110124 */ t8488 = a33270; /* x228064 stalin.sc:32137:1110093 */ t8484 = f8654(t8488); /* x228063 stalin.sc:32136:1110077 */ /* x228062 stalin.sc:32136:1110073 */ t8485.tag = NATIVE_PROCEDURE_TYPE7214; t8486 = *((struct w49 *)(&t8484)); t8487 = (struct structure_type24753 *)NULL_TYPE; t8480 = f27731(t8485, t8486, t8487); /* x228068 stalin.sc:32138:1110135 */ /* x228060 stalin.sc:32135:1110051 */ t8481 = NATIVE_PROCEDURE_TYPE454; /* MOVE: branching squeezed to general */ if (t8480>=((struct structure_type24753 *)VALUE_OFFSET)) {t8482.tag = STRUCTURE_TYPE24753; t8482.value.structure_type24753 = t8480;} else t8482.tag = (unsigned)t8480; t8483.tag = NULL_TYPE; t8477 = f1006(t8481, t8482, t8483); /* x228070 stalin.sc:32139:1110146 */ /* x228071 stalin.sc:32140:1110154 */ /* x228059 stalin.sc:32134:1110039 */ t8478 = NATIVE_PROCEDURE_TYPE425; t8479 = NATIVE_PROCEDURE_TYPE7714; t8475 = f1581(t8477, t8478, t8479); /* x228057 stalin.sc:32132:1110007 */ t8476.tag = NATIVE_PROCEDURE_TYPE7323; t8462 = f1226(t8476, t8475); /* x228056 */ a33275 = t8462; /* x228055 stalin.sc:32141:1110175 */ /* x228024 stalin.sc:32141:1110183 */ /* x228023 stalin.sc:32141:1110190 */ t8463 = a33275; /* x267543 stalin.sc:32141:1110184 */ if (!((t8463.tag)==NULL_TYPE)) goto l2842; /* x228026 */ /* x228025 */ return; l2842: /* x228054 */ /* x228053 */ /* x228052 */ /* x228051 stalin.sc:32142:1110197 */ /* x228050 stalin.sc:32142:1110205 */ /* x228047 stalin.sc:32142:1110209 */ /* x228045 stalin.sc:32142:1110212 */ /* x228044 stalin.sc:32142:1110220 */ t8473 = *((struct w21691 *)(&a33275)); /* x228043 stalin.sc:32142:1110213 */ t8474 = *((struct w49 *)(&t8473)); t8471 = f26227(t8474); /* x228046 stalin.sc:32142:1110224 */ t8472 = 1; /* x267542 stalin.sc:32142:1110210 */ if (!(t8471==t8472)) goto l2844; /* x228048 stalin.sc:32143:1110235 */ t8468 = " has the following in-lined local:"; goto l2845; l2844: /* x228049 stalin.sc:32144:1110283 */ t8468 = " has the following in-lined locals:"; l2845: /* x228041 stalin.sc:32142:1110198 */ t8469.tag = STRING_TYPE; t8469.value.string_type = t8468; t8470 = (struct structure_type24753 *)NULL_TYPE; f5365(t8469, t8470); /* x228040 */ /* x228039 stalin.sc:32145:1110329 */ /* x228038 stalin.sc:32149:1110442 */ t8464 = *((struct w21691 *)(&a33275)); /* x228037 stalin.sc:32145:1110339 */ /* x228027 stalin.sc:32145:1110330 */ t8465.tag = NATIVE_PROCEDURE_TYPE18817; t8466 = *((struct w49 *)(&t8464)); t8467 = (struct structure_type24753 *)NULL_TYPE; f27755(t8465, t8466, t8467); return;} /* [inside STALIN 19431] */ void f19431(struct w49 a33251) {struct w49 a36620; /* S */ char *t8589; char *t8590; struct w49 t8591; struct structure_type24753 *t8592; struct w49 t8593; struct w49 t8594; /* x227738 stalin.sc:32198:1112042 */ /* x227737 stalin.sc:32198:1112061 */ /* x227736 stalin.sc:32198:1112079 */ t8593 = a33251; /* x227735 stalin.sc:32198:1112062 */ a36620 = t8593; /* x279149 */ /* x279148 */ t8594 = a36620; /* x279147 */ if (!((t8594.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31537]"); structure_ref_error();} t8590 = t8594.value.structure_type27694->s2; /* x227734 stalin.sc:32198:1112050 */ t8589 = " ~a"; /* x227733 stalin.sc:32198:1112043 */ t8591.tag = STRING_TYPE; t8591.value.string_type = t8589; t8592 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8592==NULL) {backtrace("stalin.sc", 32198, 1112042); out_of_memory_error();} t8592->s0.tag = STRING_TYPE; t8592->s0.value.string_type = t8590; t8592->s1.tag = NULL_TYPE; f5365(t8591, t8592); return;} /* [inside STALIN 19415] */ void f19415(struct w49 a33242) {struct w49 a36623; /* S */ char *t8595; char *t8596; struct w49 t8597; struct structure_type24753 *t8598; struct w49 t8599; struct w49 t8600; /* x227561 stalin.sc:32229:1113114 */ /* x227560 stalin.sc:32229:1113135 */ /* x227559 stalin.sc:32229:1113153 */ t8599 = a33242; /* x227558 stalin.sc:32229:1113136 */ a36623 = t8599; /* x279161 */ /* x279160 */ t8600 = a36623; /* x279159 */ if (!((t8600.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31540]"); structure_ref_error();} t8596 = t8600.value.structure_type27694->s2; /* x227557 stalin.sc:32229:1113122 */ t8595 = " ~a"; /* x227556 stalin.sc:32229:1113115 */ t8597.tag = STRING_TYPE; t8597.value.string_type = t8595; t8598 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8598==NULL) {backtrace("stalin.sc", 32229, 1113114); out_of_memory_error();} t8598->s0.tag = STRING_TYPE; t8598->s0.value.string_type = t8596; t8598->s1.tag = NULL_TYPE; f5365(t8597, t8598); return;} /* [inside STALIN 19412] */ void f19412(struct w49 a33240) {struct w49 a36856; /* S */ struct w49 a36963; /* S */ struct w49 a36986; /* S */ struct w49 a41649; /* G */ struct w49 a41666; /* G */ struct w49 a41667; /* G */ struct w49 a41696; /* G */ struct w49 a41735; /* G */ struct w49 t8601; struct w49 t8602; struct w11873 t8603; struct w36108 t8604; struct w49 t8605; struct structure_type24753 *t8606; struct w49 t8607; struct w49 t8608; struct w49 t8609; struct w49 t8610; char *t8611; struct w49 t8612; unsigned t8613; char *t8614; char *t8615; char *t8616; char *t8617; struct w49 t8618; struct structure_type24753 *t8619; struct w49 t8620; struct w49 t8621; struct w49 t8622; struct w49 t8623; struct w49 t8624; struct w49 t8625; struct w49 t8626; struct w49 t8627; struct w49 t8628; struct w49 t8629; struct w49 t8630; struct w49 t8631; struct w49 t8632; struct w49 t8633; struct w49 t8634; struct w49 t8635; struct w49 t8636; /* x227610 */ /* x227609 stalin.sc:32219:1112820 */ /* x227608 stalin.sc:32225:1113014 */ /* x227605 stalin.sc:32225:1113018 */ /* x227604 stalin.sc:32225:1113027 */ t8635 = a33240; /* x227603 stalin.sc:32225:1113019 */ a41667 = t8635; /* x300780 stalin.sc:3942:133266 */ /* x300779 stalin.sc:3942:133284 */ t8636 = a41667; /* x300778 stalin.sc:3942:133267 */ if (f8214(t8636)==FALSE_TYPE) goto l2907; /* x227606 stalin.sc:32225:1113030 */ t8617 = " hidden as"; goto l2908; l2907: /* x227607 stalin.sc:32225:1113043 */ t8617 = ""; l2908: /* x227602 stalin.sc:32224:1112976 */ /* x227599 stalin.sc:32224:1112980 */ /* x227598 stalin.sc:32224:1112990 */ t8633 = a33240; /* x227597 stalin.sc:32224:1112981 */ a41649 = t8633; /* x300708 stalin.sc:3965:133896 */ /* x300707 stalin.sc:3965:133915 */ t8634 = a41649; /* x300706 stalin.sc:3965:133897 */ if (f8219(t8634)==FALSE_TYPE) goto l2904; /* x227600 stalin.sc:32224:1112993 */ t8616 = " slotted"; goto l2905; l2904: /* x227601 stalin.sc:32224:1113004 */ t8616 = ""; l2905: /* x227596 stalin.sc:32223:1112940 */ /* x227593 stalin.sc:32223:1112944 */ /* x227592 stalin.sc:32223:1112953 */ t8631 = a33240; /* x227591 stalin.sc:32223:1112945 */ a41696 = t8631; /* x300896 stalin.sc:3916:132554 */ /* x300895 stalin.sc:3916:132572 */ t8632 = a41696; /* x300894 stalin.sc:3916:132555 */ if (f8209(t8632)==FALSE_TYPE) goto l2901; /* x227594 stalin.sc:32223:1112956 */ t8615 = " global"; goto l2902; l2901: /* x227595 stalin.sc:32223:1112966 */ t8615 = ""; l2902: /* x227590 stalin.sc:32222:1112906 */ /* x227587 stalin.sc:32222:1112910 */ /* x227586 stalin.sc:32222:1112918 */ t8629 = a33240; /* x227585 stalin.sc:32222:1112911 */ a41735 = t8629; /* x301052 stalin.sc:3890:131852 */ /* x301051 stalin.sc:3890:131869 */ t8630 = a41735; /* x301050 stalin.sc:3890:131853 */ if (f8204(t8630)==FALSE_TYPE) goto l2898; /* x227588 stalin.sc:32222:1112921 */ t8614 = " local"; goto l2899; l2898: /* x227589 stalin.sc:32222:1112930 */ t8614 = ""; l2899: /* x227584 stalin.sc:32221:1112881 */ /* x227583 stalin.sc:32221:1112897 */ t8627 = a33240; /* x227582 stalin.sc:32221:1112882 */ a36986 = t8627; /* x280613 */ /* x280612 */ t8628 = a36986; /* x280611 */ if (!((t8628.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-INDEX[6565] 31903]"); structure_ref_error();} t8613 = t8628.value.structure_type27692->s6; /* x227581 stalin.sc:32220:1112857 */ /* x227580 stalin.sc:32220:1112872 */ t8625 = a33240; /* x227579 stalin.sc:32220:1112858 */ a36963 = t8625; /* x280521 */ /* x280520 */ t8626 = a36963; /* x280519 */ if (!((t8626.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31880]"); structure_ref_error();} t8612 = t8626.value.structure_type27692->s7; /* x227578 stalin.sc:32219:1112828 */ t8611 = " ~a{~s}~a~a~a~a"; /* x227577 stalin.sc:32219:1112821 */ t8618.tag = STRING_TYPE; t8618.value.string_type = t8611; t8624.tag = STRUCTURE_TYPE24753; t8624.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8624.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32219, 1112820); out_of_memory_error();} t8624.value.structure_type24753->s0.tag = STRING_TYPE; t8624.value.structure_type24753->s0.value.string_type = t8617; t8624.value.structure_type24753->s1.tag = NULL_TYPE; t8623.tag = STRUCTURE_TYPE24753; t8623.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8623.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32219, 1112820); out_of_memory_error();} t8623.value.structure_type24753->s0.tag = STRING_TYPE; t8623.value.structure_type24753->s0.value.string_type = t8616; t8623.value.structure_type24753->s1 = t8624; t8622.tag = STRUCTURE_TYPE24753; t8622.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8622.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32219, 1112820); out_of_memory_error();} t8622.value.structure_type24753->s0.tag = STRING_TYPE; t8622.value.structure_type24753->s0.value.string_type = t8615; t8622.value.structure_type24753->s1 = t8623; t8621.tag = STRUCTURE_TYPE24753; t8621.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8621.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32219, 1112820); out_of_memory_error();} t8621.value.structure_type24753->s0.tag = STRING_TYPE; t8621.value.structure_type24753->s0.value.string_type = t8614; t8621.value.structure_type24753->s1 = t8622; t8620.tag = STRUCTURE_TYPE24753; t8620.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8620.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32219, 1112820); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t8613==FALSE_TYPE) t8620.value.structure_type24753->s0.tag = (unsigned)t8613; else {t8620.value.structure_type24753->s0.tag = FIXNUM_TYPE; t8620.value.structure_type24753->s0.value.fixnum_type = (int)(((int)t8613)>>1);} t8620.value.structure_type24753->s1 = t8621; t8619 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8619==NULL) {backtrace("stalin.sc", 32219, 1112820); out_of_memory_error();} t8619->s0 = t8612; t8619->s1 = t8620; f5365(t8618, t8619); /* x227576 */ /* x227575 stalin.sc:32226:1113053 */ /* x227554 stalin.sc:32226:1113059 */ /* x227553 stalin.sc:32226:1113068 */ t8601 = a33240; /* x227552 stalin.sc:32226:1113060 */ a41666 = t8601; /* x300776 stalin.sc:3942:133266 */ /* x300775 stalin.sc:3942:133284 */ t8602 = a41666; /* x300774 stalin.sc:3942:133267 */ if (f8214(t8602)==FALSE_TYPE) goto l2896; /* x227572 */ /* x227571 */ /* x227570 stalin.sc:32227:1113077 */ /* x227569 stalin.sc:32230:1113165 */ /* x227568 stalin.sc:32230:1113180 */ /* x227567 stalin.sc:32230:1113192 */ /* x227566 stalin.sc:32230:1113211 */ t8609 = a33240; /* x227565 stalin.sc:32230:1113193 */ a36856 = t8609; /* x280093 */ /* x280092 */ t8610 = a36856; /* x280091 */ if (!((t8610.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31773]"); structure_ref_error();} t8608 = t8610.value.structure_type27692->s9; /* x227564 stalin.sc:32230:1113181 */ t8607 = f8153(t8608); /* x227563 stalin.sc:32230:1113166 */ t8603 = f8984(t8607); /* x227562 stalin.sc:32228:1113094 */ /* x227555 stalin.sc:32227:1113078 */ t8604.tag = NATIVE_PROCEDURE_TYPE18829; t8605 = *((struct w49 *)(&t8603)); t8606 = (struct structure_type24753 *)NULL_TYPE; f27755(t8604, t8605, t8606); return; l2896: /* x227574 stalin.sc:32226:1113053 */ /* x227573 stalin.sc:32226:1113053 */ return;} /* [inside STALIN 19406] */ void f19406(struct w49 a33234) {struct w12224 a33238; /* GS */ char *a33247; /* v */ struct w49 a36629; /* S */ struct w49 a36650; /* S */ struct w49 a36652; /* S */ struct w12224 t8637; struct w12224 t8638; struct w21691 t8639; struct w36108 t8640; struct w49 t8641; struct structure_type24753 *t8642; char *t8643; struct w49 t8644; struct structure_type24753 *t8645; int t8646; int t8647; struct w21691 t8648; struct w49 t8649; struct structure_type24753 *t8650; struct w227671 t8651; struct w49 t8652; struct w49 t8653; char *t8654; char *t8655; char *t8656; char *t8657; struct w49 t8658; struct structure_type24753 *t8659; struct w49 t8660; struct w49 t8661; struct w49 t8662; struct w49 t8663; struct w49 t8664; struct w49 t8665; char *t8666; char *t8667; char *t8668; struct w49 t8669; struct w49 t8670; char *t8671; char *t8672; struct w49 t8673; struct w49 t8674; char *t8675; char *t8676; struct w49 t8677; struct w49 t8678; char *t8679; char *t8680; struct w49 t8681; struct w49 t8682; char *t8683; char *t8684; struct w49 t8685; struct w49 t8686; char *t8687; struct w49 t8688; char *t8689; char *t8690; struct w49 t8691; struct structure_type24753 *t8692; struct w49 t8693; struct w49 t8694; struct w49 t8695; struct w49 t8696; char *t8697; char *t8698; struct w49 t8699; struct structure_type24753 *t8700; struct w49 t8701; struct w49 t8702; struct w49 t8703; struct w49 t8704; char *t8705; struct w49 t8706; struct structure_type24753 *t8707; struct w49 t8708; char *t8709; struct w49 t8710; struct structure_type24753 *t8711; struct w49 t8712; struct w3457 t8713; struct w36108 t8714; struct w49 t8715; struct structure_type24753 *t8716; struct w49 t8717; char *t8718; struct w49 t8719; struct structure_type24753 *t8720; int t8721; int t8722; struct w3457 t8723; struct w49 t8724; struct w49 t8725; char *t8726; struct w6315 t8727; char *t8728; struct w6315 t8729; struct w49 t8730; char *t8731; struct w49 t8732; struct structure_type24753 *t8733; /* x227840 */ /* x227683 stalin.sc:32184:1111447 */ /* x227682 stalin.sc:32187:1111544 */ /* x227679 stalin.sc:32187:1111548 */ /* x227678 stalin.sc:32187:1111560 */ t8665 = a33234; /* x227677 stalin.sc:32187:1111549 */ if (f8944(t8665)==FALSE_TYPE) goto l2918; /* x227680 stalin.sc:32187:1111563 */ t8657 = " converted"; goto l2919; l2918: /* x227681 stalin.sc:32187:1111576 */ t8657 = ""; l2919: /* x227676 stalin.sc:32186:1111501 */ /* x227673 stalin.sc:32186:1111505 */ /* x227672 stalin.sc:32186:1111517 */ t8664 = a33234; /* x227671 stalin.sc:32186:1111506 */ if (f8543(t8664)==FALSE_TYPE) goto l2915; /* x227674 stalin.sc:32186:1111520 */ t8656 = " reentrant"; goto l2916; l2915: /* x227675 stalin.sc:32186:1111533 */ t8656 = ""; l2916: /* x227670 stalin.sc:32185:1111473 */ /* x227669 stalin.sc:32185:1111491 */ t8662 = a33234; /* x227668 stalin.sc:32185:1111474 */ a36652 = t8662; /* x279277 */ /* x279276 */ t8663 = a36652; /* x279275 */ if (!((t8663.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31569]"); structure_ref_error();} t8655 = t8663.value.structure_type27694->s2; /* x227667 stalin.sc:32184:1111455 */ t8654 = " ~a~a~a"; /* x227666 stalin.sc:32184:1111448 */ t8658.tag = STRING_TYPE; t8658.value.string_type = t8654; t8661.tag = STRUCTURE_TYPE24753; t8661.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8661.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32184, 1111447); out_of_memory_error();} t8661.value.structure_type24753->s0.tag = STRING_TYPE; t8661.value.structure_type24753->s0.value.string_type = t8657; t8661.value.structure_type24753->s1.tag = NULL_TYPE; t8660.tag = STRUCTURE_TYPE24753; t8660.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8660.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32184, 1111447); out_of_memory_error();} t8660.value.structure_type24753->s0.tag = STRING_TYPE; t8660.value.structure_type24753->s0.value.string_type = t8656; t8660.value.structure_type24753->s1 = t8661; t8659 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8659==NULL) {backtrace("stalin.sc", 32184, 1111447); out_of_memory_error();} t8659->s0.tag = STRING_TYPE; t8659->s0.value.string_type = t8655; t8659->s1 = t8660; f5365(t8658, t8659); /* x227828 stalin.sc:32188:1111587 */ /* x227827 stalin.sc:32188:1111593 */ t8666 = a686; /* x227826 */ a33247 = t8666; /* x227825 */ /* x227687 */ /* x227685 */ t8667 = a33247; /* x227686 */ t8668 = q18; /* x227684 */ /* MOVE: branching squeezed to general */ if (t8667>=((char *)VALUE_OFFSET)) {t8669.tag = EXTERNAL_SYMBOL_TYPE; t8669.value.external_symbol_type = t8667;} else t8669.tag = (unsigned)t8667; t8670.tag = EXTERNAL_SYMBOL_TYPE; t8670.value.external_symbol_type = t8668; if (f26160(t8669, t8670)==FALSE_TYPE) goto l2921; /* x227693 */ /* x227692 */ /* x227691 stalin.sc:32190:1111644 */ /* x227689 stalin.sc:32190:1111659 */ /* x227690 stalin.sc:32190:1111662 */ t8728 = "Immediate flat closures are not (yet) implemented"; /* x227688 stalin.sc:32190:1111645 */ t8729.tag = FALSE_TYPE; f9707(t8729, t8728); goto l2922; l2921: /* x227824 */ /* x227697 */ /* x227695 */ t8671 = a33247; /* x227696 */ t8672 = q19; /* x227694 */ /* MOVE: branching squeezed to general */ if (t8671>=((char *)VALUE_OFFSET)) {t8673.tag = EXTERNAL_SYMBOL_TYPE; t8673.value.external_symbol_type = t8671;} else t8673.tag = (unsigned)t8671; t8674.tag = EXTERNAL_SYMBOL_TYPE; t8674.value.external_symbol_type = t8672; if (f26160(t8673, t8674)==FALSE_TYPE) goto l2924; /* x227703 */ /* x227702 */ /* x227701 stalin.sc:32192:1111741 */ /* x227699 stalin.sc:32192:1111756 */ /* x227700 stalin.sc:32192:1111759 */ t8726 = "Indirect flat closures are not (yet) implemented"; /* x227698 stalin.sc:32192:1111742 */ t8727.tag = FALSE_TYPE; f9707(t8727, t8726); goto l2925; l2924: /* x227823 */ /* x227716 */ /* x227715 */ /* x227713 */ t8675 = a33247; /* x227714 */ t8676 = q20; /* x227712 */ /* MOVE: branching squeezed to general */ if (t8675>=((char *)VALUE_OFFSET)) {t8677.tag = EXTERNAL_SYMBOL_TYPE; t8677.value.external_symbol_type = t8675;} else t8677.tag = (unsigned)t8675; t8678.tag = EXTERNAL_SYMBOL_TYPE; t8678.value.external_symbol_type = t8676; if (!(f26160(t8677, t8678)==FALSE_TYPE)) goto l2926; /* x227709 */ /* x227707 */ t8679 = a33247; /* x227708 */ t8680 = q21; /* x227706 */ /* MOVE: branching squeezed to general */ if (t8679>=((char *)VALUE_OFFSET)) {t8681.tag = EXTERNAL_SYMBOL_TYPE; t8681.value.external_symbol_type = t8679;} else t8681.tag = (unsigned)t8679; t8682.tag = EXTERNAL_SYMBOL_TYPE; t8682.value.external_symbol_type = t8680; if (f26160(t8681, t8682)==FALSE_TYPE) goto l2927; l2926: /* x227766 */ /* x227765 */ /* x227764 */ /* x227763 stalin.sc:32194:1111858 */ /* x227731 stalin.sc:32194:1111864 */ /* x227730 stalin.sc:32194:1111887 */ t8712 = a33234; /* x227729 stalin.sc:32194:1111865 */ if ((f8897(t8712).tag)==FALSE_TYPE) goto l2946; /* x227760 */ /* x227759 */ /* x227758 */ /* x227757 stalin.sc:32195:1111892 */ /* x227756 stalin.sc:32195:1111900 */ /* x227753 stalin.sc:32195:1111904 */ /* x227751 stalin.sc:32195:1111907 */ /* x227750 stalin.sc:32195:1111915 */ /* x227749 stalin.sc:32195:1111926 */ t8725 = a33234; /* x227748 stalin.sc:32195:1111916 */ t8723 = f8951(t8725); /* x227747 stalin.sc:32195:1111908 */ t8724 = *((struct w49 *)(&t8723)); t8721 = f26227(t8724); /* x227752 stalin.sc:32195:1111930 */ t8722 = 1; /* x267546 stalin.sc:32195:1111905 */ if (!(t8721==t8722)) goto l2949; /* x227754 stalin.sc:32196:1111940 */ t8718 = " has the following ancestor:"; goto l2950; l2949: /* x227755 stalin.sc:32197:1111981 */ t8718 = " has the following ancestors:"; l2950: /* x227745 stalin.sc:32195:1111893 */ t8719.tag = STRING_TYPE; t8719.value.string_type = t8718; t8720 = (struct structure_type24753 *)NULL_TYPE; f5365(t8719, t8720); /* x227744 */ /* x227743 stalin.sc:32198:1112020 */ /* x227742 stalin.sc:32199:1112089 */ /* x227741 stalin.sc:32199:1112100 */ t8717 = a33234; /* x227740 stalin.sc:32199:1112090 */ t8713 = f8951(t8717); /* x227739 stalin.sc:32198:1112030 */ /* x227732 stalin.sc:32198:1112021 */ t8714.tag = NATIVE_PROCEDURE_TYPE20179; t8715 = *((struct w49 *)(&t8713)); t8716 = (struct structure_type24753 *)NULL_TYPE; f27755(t8714, t8715, t8716); goto l2947; l2946: /* x227762 stalin.sc:32194:1111858 */ /* x227761 stalin.sc:32194:1111858 */ l2947: /* x227728 */ /* x227727 stalin.sc:32200:1112106 */ /* x227719 stalin.sc:32200:1112112 */ /* x227718 stalin.sc:32200:1112126 */ t8708 = a33234; /* x227717 stalin.sc:32200:1112113 */ if (f8563(t8708)==FALSE_TYPE) goto l2943; /* x227724 */ /* x227723 */ /* x227722 stalin.sc:32200:1112129 */ /* x227721 stalin.sc:32200:1112137 */ t8709 = " has closure"; /* x227720 stalin.sc:32200:1112130 */ t8710.tag = STRING_TYPE; t8710.value.string_type = t8709; t8711 = (struct structure_type24753 *)NULL_TYPE; f5365(t8710, t8711); goto l2944; l2943: /* x227726 stalin.sc:32200:1112106 */ /* x227725 stalin.sc:32200:1112106 */ l2944: goto l2928; l2927: /* x227822 */ /* x227770 */ /* x227768 */ t8683 = a33247; /* x227769 */ t8684 = q22; /* x227767 */ /* MOVE: branching squeezed to general */ if (t8683>=((char *)VALUE_OFFSET)) {t8685.tag = EXTERNAL_SYMBOL_TYPE; t8685.value.external_symbol_type = t8683;} else t8685.tag = (unsigned)t8683; t8686.tag = EXTERNAL_SYMBOL_TYPE; t8686.value.external_symbol_type = t8684; if (f26160(t8685, t8686)==FALSE_TYPE) goto l2931; /* x227817 */ /* x227816 */ /* x227815 */ /* x227803 stalin.sc:32202:1112176 */ /* x227790 stalin.sc:32202:1112182 */ /* x227789 stalin.sc:32202:1112205 */ t8696 = a33234; /* x227788 stalin.sc:32202:1112183 */ if ((f8897(t8696).tag)==FALSE_TYPE) goto l2937; /* x227800 */ /* x227799 */ /* x227798 stalin.sc:32203:1112210 */ /* x227797 stalin.sc:32204:1112251 */ /* x227796 stalin.sc:32204:1112269 */ /* x227795 stalin.sc:32204:1112287 */ t8703 = a33234; /* x227794 stalin.sc:32204:1112270 */ t8701 = f8965(t8703); /* x227793 stalin.sc:32204:1112252 */ a36650 = t8701; /* x279269 */ /* x279268 */ t8702 = a36650; /* x279267 */ if (!((t8702.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31567]"); structure_ref_error();} t8698 = t8702.value.structure_type27694->s2; /* x227792 stalin.sc:32203:1112218 */ t8697 = " has parent parameter ~a"; /* x227791 stalin.sc:32203:1112211 */ t8699.tag = STRING_TYPE; t8699.value.string_type = t8697; t8700 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8700==NULL) {backtrace("stalin.sc", 32203, 1112210); out_of_memory_error();} t8700->s0.tag = STRING_TYPE; t8700->s0.value.string_type = t8698; t8700->s1.tag = NULL_TYPE; f5365(t8699, t8700); goto l2938; l2937: /* x227802 stalin.sc:32202:1112176 */ /* x227801 stalin.sc:32202:1112176 */ l2938: /* x227814 stalin.sc:32205:1112294 */ /* x227806 stalin.sc:32205:1112300 */ /* x227805 stalin.sc:32205:1112314 */ t8704 = a33234; /* x227804 stalin.sc:32205:1112301 */ if (f8563(t8704)==FALSE_TYPE) goto l2940; /* x227811 */ /* x227810 */ /* x227809 stalin.sc:32205:1112317 */ /* x227808 stalin.sc:32205:1112325 */ t8705 = " has closure"; /* x227807 stalin.sc:32205:1112318 */ t8706.tag = STRING_TYPE; t8706.value.string_type = t8705; t8707 = (struct structure_type24753 *)NULL_TYPE; f5365(t8706, t8707); goto l2941; l2940: /* x227813 stalin.sc:32205:1112294 */ /* x227812 stalin.sc:32205:1112294 */ l2941: /* x227787 */ /* x227786 stalin.sc:32206:1112346 */ /* x227773 stalin.sc:32206:1112352 */ /* x227772 stalin.sc:32206:1112370 */ t8688 = a33234; /* x227771 stalin.sc:32206:1112353 */ if (f8584(t8688)==FALSE_TYPE) goto l2934; /* x227783 */ /* x227782 */ /* x227781 stalin.sc:32207:1112375 */ /* x227780 stalin.sc:32207:1112408 */ /* x227779 stalin.sc:32207:1112426 */ /* x227778 stalin.sc:32207:1112439 */ t8695 = a33234; /* x227777 stalin.sc:32207:1112427 */ t8693 = f8639(t8695); /* x227776 stalin.sc:32207:1112409 */ a36629 = t8693; /* x279185 */ /* x279184 */ t8694 = a36629; /* x279183 */ if (!((t8694.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31546]"); structure_ref_error();} t8690 = t8694.value.structure_type27694->s2; /* x227775 stalin.sc:32207:1112383 */ t8689 = " has parent slot ~a"; /* x227774 stalin.sc:32207:1112376 */ t8691.tag = STRING_TYPE; t8691.value.string_type = t8689; t8692 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8692==NULL) {backtrace("stalin.sc", 32207, 1112375); out_of_memory_error();} t8692->s0.tag = STRING_TYPE; t8692->s0.value.string_type = t8690; t8692->s1.tag = NULL_TYPE; f5365(t8691, t8692); goto l2935; l2934: /* x227785 stalin.sc:32206:1112346 */ /* x227784 stalin.sc:32206:1112346 */ l2935: goto l2932; l2931: /* x227821 */ /* x227820 */ /* x227819 stalin.sc:32208:1112459 */ /* x227818 stalin.sc:32208:1112460 */ /* x297405 QobiScheme.sc:166:5314 */ /* x297404 QobiScheme.sc:166:5321 */ t8687 = "This shouldn\'t happen"; /* x297403 QobiScheme.sc:166:5315 */ stalin_panic(t8687); l2932: l2928: l2925: l2922: /* x227839 stalin.sc:32209:1112477 */ /* x227831 stalin.sc:32209:1112483 */ /* x227830 stalin.sc:32209:1112496 */ t8730 = a33234; /* x227829 stalin.sc:32209:1112484 */ if (f8528(t8730)==FALSE_TYPE) goto l2952; /* x227836 */ /* x227835 */ /* x227834 stalin.sc:32209:1112499 */ /* x227833 stalin.sc:32209:1112507 */ t8731 = " has region"; /* x227832 stalin.sc:32209:1112500 */ t8732.tag = STRING_TYPE; t8732.value.string_type = t8731; t8733 = (struct structure_type24753 *)NULL_TYPE; f5365(t8732, t8733); goto l2953; l2952: /* x227838 stalin.sc:32209:1112477 */ /* x227837 stalin.sc:32209:1112477 */ l2953: /* x227665 */ /* x227664 stalin.sc:32210:1112532 */ /* x227663 stalin.sc:32210:1112542 */ /* x227659 stalin.sc:32211:1112560 */ /* x227662 stalin.sc:32213:1112633 */ /* x227661 stalin.sc:32213:1112644 */ t8653 = a33234; /* x227660 stalin.sc:32213:1112634 */ t8650 = f8987(t8653); /* x227631 stalin.sc:32210:1112543 */ t8651.tag = NATIVE_PROCEDURE_TYPE18821; /* MOVE: branching squeezed to general */ if (t8650>=((struct structure_type24753 *)VALUE_OFFSET)) {t8652.tag = STRUCTURE_TYPE24753; t8652.value.structure_type24753 = t8650;} else t8652.tag = (unsigned)t8650; t8637 = f1226(t8651, t8652); /* x227630 */ a33238 = t8637; /* x227629 stalin.sc:32214:1112657 */ /* x227548 stalin.sc:32214:1112665 */ /* x227547 stalin.sc:32214:1112672 */ t8638 = a33238; /* x267548 stalin.sc:32214:1112666 */ if (!((t8638.tag)==NULL_TYPE)) goto l2910; /* x227550 */ /* x227549 */ return; l2910: /* x227628 */ /* x227627 */ /* x227626 */ /* x227625 stalin.sc:32215:1112677 */ /* x227624 stalin.sc:32215:1112685 */ /* x227621 stalin.sc:32215:1112689 */ /* x227619 stalin.sc:32215:1112692 */ /* x227618 stalin.sc:32215:1112700 */ t8648 = *((struct w21691 *)(&a33238)); /* x227617 stalin.sc:32215:1112693 */ t8649 = *((struct w49 *)(&t8648)); t8646 = f26227(t8649); /* x227620 stalin.sc:32215:1112704 */ t8647 = 1; /* x267547 stalin.sc:32215:1112690 */ if (!(t8646==t8647)) goto l2912; /* x227622 stalin.sc:32216:1112713 */ t8643 = " has the following parameter:"; goto l2913; l2912: /* x227623 stalin.sc:32217:1112754 */ t8643 = " has the following parameters:"; l2913: /* x227615 stalin.sc:32215:1112678 */ t8644.tag = STRING_TYPE; t8644.value.string_type = t8643; t8645 = (struct structure_type24753 *)NULL_TYPE; f5365(t8644, t8645); /* x227614 */ /* x227613 stalin.sc:32218:1112793 */ /* x227612 stalin.sc:32231:1113223 */ t8639 = *((struct w21691 *)(&a33238)); /* x227611 */ /* x227551 stalin.sc:32218:1112794 */ t8640.tag = NATIVE_PROCEDURE_TYPE18825; t8641 = *((struct w49 *)(&t8639)); t8642 = (struct structure_type24753 *)NULL_TYPE; f27755(t8640, t8641, t8642); return;} /* [inside STALIN 19400] */ void f19400(struct w49 a33230) {struct w49 a36649; /* S */ char *t8734; char *t8735; struct w49 t8736; struct structure_type24753 *t8737; struct w49 t8738; struct w49 t8739; /* x227518 stalin.sc:32061:1107500 */ /* x227517 stalin.sc:32061:1107517 */ /* x227516 stalin.sc:32061:1107535 */ t8738 = a33230; /* x227515 stalin.sc:32061:1107518 */ a36649 = t8738; /* x279265 */ /* x279264 */ t8739 = a36649; /* x279263 */ if (!((t8739.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31566]"); structure_ref_error();} t8735 = t8739.value.structure_type27694->s2; /* x227514 stalin.sc:32061:1107508 */ t8734 = " ~a"; /* x227513 stalin.sc:32061:1107501 */ t8736.tag = STRING_TYPE; t8736.value.string_type = t8734; t8737 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8737==NULL) {backtrace("stalin.sc", 32061, 1107500); out_of_memory_error();} t8737->s0.tag = STRING_TYPE; t8737->s0.value.string_type = t8735; t8737->s1.tag = NULL_TYPE; f5365(t8736, t8737); return;} /* [inside STALIN 19396] */ void f19396(struct w49 a33228) {struct w49 a36646; /* S */ char *t8740; char *t8741; struct w49 t8742; struct structure_type24753 *t8743; struct w49 t8744; struct w49 t8745; /* x227491 stalin.sc:32057:1107326 */ /* x227490 stalin.sc:32057:1107343 */ /* x227489 stalin.sc:32057:1107361 */ t8744 = a33228; /* x227488 stalin.sc:32057:1107344 */ a36646 = t8744; /* x279253 */ /* x279252 */ t8745 = a36646; /* x279251 */ if (!((t8745.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31563]"); structure_ref_error();} t8741 = t8745.value.structure_type27694->s2; /* x227487 stalin.sc:32057:1107334 */ t8740 = " ~a"; /* x227486 stalin.sc:32057:1107327 */ t8742.tag = STRING_TYPE; t8742.value.string_type = t8740; t8743 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8743==NULL) {backtrace("stalin.sc", 32057, 1107326); out_of_memory_error();} t8743->s0.tag = STRING_TYPE; t8743->s0.value.string_type = t8741; t8743->s1.tag = NULL_TYPE; f5365(t8742, t8743); return;} /* [inside STALIN 19392] */ void f19392(struct w49 a33226) {struct w49 a36648; /* S */ char *t8746; char *t8747; struct w49 t8748; struct structure_type24753 *t8749; struct w49 t8750; struct w49 t8751; /* x227464 stalin.sc:32053:1107157 */ /* x227463 stalin.sc:32053:1107174 */ /* x227462 stalin.sc:32053:1107192 */ t8750 = a33226; /* x227461 stalin.sc:32053:1107175 */ a36648 = t8750; /* x279261 */ /* x279260 */ t8751 = a36648; /* x279259 */ if (!((t8751.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31565]"); structure_ref_error();} t8747 = t8751.value.structure_type27694->s2; /* x227460 stalin.sc:32053:1107165 */ t8746 = " ~a"; /* x227459 stalin.sc:32053:1107158 */ t8748.tag = STRING_TYPE; t8748.value.string_type = t8746; t8749 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8749==NULL) {backtrace("stalin.sc", 32053, 1107157); out_of_memory_error();} t8749->s0.tag = STRING_TYPE; t8749->s0.value.string_type = t8747; t8749->s1.tag = NULL_TYPE; f5365(t8748, t8749); return;} /* [inside STALIN 19388] */ void f19388(struct w49 a33224) {struct w49 a36642; /* S */ char *t8752; char *t8753; struct w49 t8754; struct structure_type24753 *t8755; struct w49 t8756; struct w49 t8757; /* x227431 stalin.sc:32065:1107669 */ /* x227430 stalin.sc:32065:1107686 */ /* x227429 stalin.sc:32065:1107704 */ t8756 = a33224; /* x227428 stalin.sc:32065:1107687 */ a36642 = t8756; /* x279237 */ /* x279236 */ t8757 = a36642; /* x279235 */ if (!((t8757.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31559]"); structure_ref_error();} t8753 = t8757.value.structure_type27694->s2; /* x227427 stalin.sc:32065:1107677 */ t8752 = " ~a"; /* x227426 stalin.sc:32065:1107670 */ t8754.tag = STRING_TYPE; t8754.value.string_type = t8752; t8755 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8755==NULL) {backtrace("stalin.sc", 32065, 1107669); out_of_memory_error();} t8755->s0.tag = STRING_TYPE; t8755->s0.value.string_type = t8753; t8755->s1.tag = NULL_TYPE; f5365(t8754, t8755); return;} /* [inside STALIN 19381] */ void f19381(struct w49 a33218) {struct w49 a24082; /* E */ struct w49 a36568; /* S */ struct w49 a36647; /* S */ struct w49 a41063; /* E */ struct w49 a41065; /* E */ struct w49 a42424; /* S */ struct w49 a42590; /* S */ struct w3457 t8758; struct w49 t8759; struct w49 t8760; struct w49 t8761; struct w49 t8762; struct w49 t8763; struct w12224 t8764; struct w49 t8765; struct w12224 t8766; struct w49 t8767; struct w12224 t8768; struct w49 t8769; struct w12224 t8770; struct w36108 t8771; struct w49 t8772; struct structure_type24753 *t8773; struct w49 t8774; char *t8775; struct w49 t8776; struct structure_type24753 *t8777; char *t8778; struct w49 t8779; struct structure_type24753 *t8780; struct w49 t8781; struct w49 t8782; struct w3457 t8783; struct w49 t8784; struct w49 t8785; struct w49 t8786; struct w3457 t8787; struct w36108 t8788; struct w49 t8789; struct structure_type24753 *t8790; struct w49 t8791; struct w49 t8792; struct w49 t8793; char *t8794; struct w49 t8795; struct structure_type24753 *t8796; struct w49 t8797; struct w49 t8798; struct w49 t8799; struct w36108 t8800; struct w49 t8801; struct structure_type24753 *t8802; struct w49 t8803; char *t8804; struct w49 t8805; struct structure_type24753 *t8806; struct w12224 t8807; struct w49 t8808; struct w12224 t8809; struct w36108 t8810; struct w49 t8811; struct structure_type24753 *t8812; struct w49 t8813; char *t8814; struct w49 t8815; struct structure_type24753 *t8816; /* x227535 stalin.sc:32046:1106861 */ /* x227415 stalin.sc:32046:1106869 */ /* x227394 stalin.sc:32046:1106874 */ /* x227393 stalin.sc:32046:1106881 */ /* x227392 stalin.sc:32046:1106902 */ t8759 = a33218; /* x227391 stalin.sc:32046:1106882 */ a41065 = t8759; /* x298372 stalin.sc:10546:365775 */ /* x298371 stalin.sc:10546:365808 */ t8760 = a41065; /* x298370 stalin.sc:10546:365776 */ a42424 = t8760; /* x303194 */ /* x303193 */ t8761 = a42424; /* x303192 */ if (!((t8761.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLEES[6783] 37600]"); structure_ref_error();} t8758 = t8761.value.structure_type27694->s19; /* x267556 stalin.sc:32046:1106875 */ if (!((t8758.tag)==NULL_TYPE)) goto l2955; /* x227413 */ /* x227399 stalin.sc:32047:1106912 */ /* x227398 stalin.sc:32047:1106919 */ /* x227397 stalin.sc:32047:1106935 */ t8763 = a33218; /* x227396 stalin.sc:32047:1106920 */ t8762 = f11660(t8763); /* x267555 stalin.sc:32047:1106913 */ if (!((t8762.tag)==NULL_TYPE)) goto l2955; /* x227411 */ /* x227404 stalin.sc:32048:1106945 */ /* x227403 stalin.sc:32048:1106952 */ /* x227402 stalin.sc:32048:1106973 */ t8765 = a33218; /* x227401 stalin.sc:32048:1106953 */ t8764 = f11644(t8765); /* x267554 stalin.sc:32048:1106946 */ if (!((t8764.tag)==NULL_TYPE)) goto l2955; /* x227409 */ /* x227408 stalin.sc:32049:1106990 */ /* x227407 stalin.sc:32049:1107006 */ t8767 = a33218; /* x227406 stalin.sc:32049:1106991 */ t8766 = f11632(t8767); /* x267553 stalin.sc:32049:1106984 */ if (!((t8766.tag)==NULL_TYPE)) goto l2955; /* x227417 */ /* x227416 */ return; l2955: /* x227534 */ /* x227533 */ /* x227532 */ /* x227450 stalin.sc:32050:1107019 */ /* x227449 stalin.sc:32050:1107027 */ /* x227448 stalin.sc:32050:1107045 */ t8781 = a33218; /* x227447 stalin.sc:32050:1107028 */ a36647 = t8781; /* x279257 */ /* x279256 */ t8782 = a36647; /* x279255 */ if (!((t8782.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31564]"); structure_ref_error();} t8778 = t8782.value.structure_type27694->s2; /* x227446 stalin.sc:32050:1107020 */ t8779.tag = STRING_TYPE; t8779.value.string_type = t8778; t8780 = (struct structure_type24753 *)NULL_TYPE; f5365(t8779, t8780); /* x227477 stalin.sc:32051:1107057 */ /* x227455 stalin.sc:32051:1107065 */ /* x227454 stalin.sc:32051:1107072 */ /* x227453 stalin.sc:32051:1107093 */ t8784 = a33218; /* x227452 stalin.sc:32051:1107073 */ a41063 = t8784; /* x298364 stalin.sc:10546:365775 */ /* x298363 stalin.sc:10546:365808 */ t8785 = a41063; /* x298362 stalin.sc:10546:365776 */ a42590 = t8785; /* x304242 */ /* x304241 */ t8786 = a42590; /* x304240 */ if (!((t8786.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLEES[6783] 37901]"); structure_ref_error();} t8783 = t8786.value.structure_type27694->s19; /* x267551 stalin.sc:32051:1107066 */ if (!((t8783.tag)==NULL_TYPE)) goto l2962; /* x227457 */ /* x227456 */ goto l2963; l2962: /* x227476 */ /* x227475 */ /* x227474 */ /* x227473 stalin.sc:32052:1107099 */ /* x227472 stalin.sc:32052:1107107 */ t8794 = " Direct tail callees:"; /* x227471 stalin.sc:32052:1107100 */ t8795.tag = STRING_TYPE; t8795.value.string_type = t8794; t8796 = (struct structure_type24753 *)NULL_TYPE; f5365(t8795, t8796); /* x227470 */ /* x227469 stalin.sc:32053:1107135 */ /* x227468 stalin.sc:32054:1107202 */ /* x227467 stalin.sc:32054:1107223 */ t8791 = a33218; /* x227466 stalin.sc:32054:1107203 */ a24082 = t8791; /* x104848 stalin.sc:10546:365775 */ /* x104847 stalin.sc:10546:365808 */ t8792 = a24082; /* x104846 stalin.sc:10546:365776 */ a36568 = t8792; /* x278941 */ /* x278940 */ t8793 = a36568; /* x278939 */ if (!((t8793.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLEES[6783] 31485]"); structure_ref_error();} t8787 = t8793.value.structure_type27694->s19; /* x227465 stalin.sc:32053:1107145 */ /* x227458 stalin.sc:32053:1107136 */ t8788.tag = NATIVE_PROCEDURE_TYPE18206; t8789 = *((struct w49 *)(&t8787)); t8790 = (struct structure_type24753 *)NULL_TYPE; f27755(t8788, t8789, t8790); l2963: /* x227504 stalin.sc:32055:1107236 */ /* x227482 stalin.sc:32055:1107244 */ /* x227481 stalin.sc:32055:1107251 */ /* x227480 stalin.sc:32055:1107267 */ t8798 = a33218; /* x227479 stalin.sc:32055:1107252 */ t8797 = f11660(t8798); /* x267550 stalin.sc:32055:1107245 */ if (!((t8797.tag)==NULL_TYPE)) goto l2965; /* x227484 */ /* x227483 */ goto l2966; l2965: /* x227503 */ /* x227502 */ /* x227501 */ /* x227500 stalin.sc:32056:1107273 */ /* x227499 stalin.sc:32056:1107281 */ t8804 = " Direct callees:"; /* x227498 stalin.sc:32056:1107274 */ t8805.tag = STRING_TYPE; t8805.value.string_type = t8804; t8806 = (struct structure_type24753 *)NULL_TYPE; f5365(t8805, t8806); /* x227497 */ /* x227496 stalin.sc:32057:1107304 */ /* x227495 stalin.sc:32058:1107371 */ /* x227494 stalin.sc:32058:1107387 */ t8803 = a33218; /* x227493 stalin.sc:32058:1107372 */ t8799 = f11660(t8803); /* x227492 stalin.sc:32057:1107314 */ /* x227485 stalin.sc:32057:1107305 */ t8800.tag = NATIVE_PROCEDURE_TYPE18210; t8801 = t8799; t8802 = (struct structure_type24753 *)NULL_TYPE; f27755(t8800, t8801, t8802); l2966: /* x227531 stalin.sc:32059:1107400 */ /* x227509 stalin.sc:32059:1107408 */ /* x227508 stalin.sc:32059:1107415 */ /* x227507 stalin.sc:32059:1107436 */ t8808 = a33218; /* x227506 stalin.sc:32059:1107416 */ t8807 = f11644(t8808); /* x267549 stalin.sc:32059:1107409 */ if (!((t8807.tag)==NULL_TYPE)) goto l2968; /* x227511 */ /* x227510 */ goto l2969; l2968: /* x227530 */ /* x227529 */ /* x227528 */ /* x227527 stalin.sc:32060:1107442 */ /* x227526 stalin.sc:32060:1107450 */ t8814 = " Proper tail callees:"; /* x227525 stalin.sc:32060:1107443 */ t8815.tag = STRING_TYPE; t8815.value.string_type = t8814; t8816 = (struct structure_type24753 *)NULL_TYPE; f5365(t8815, t8816); /* x227524 */ /* x227523 stalin.sc:32061:1107478 */ /* x227522 stalin.sc:32062:1107545 */ /* x227521 stalin.sc:32062:1107566 */ t8813 = a33218; /* x227520 stalin.sc:32062:1107546 */ t8809 = f11644(t8813); /* x227519 stalin.sc:32061:1107488 */ /* x227512 stalin.sc:32061:1107479 */ t8810.tag = NATIVE_PROCEDURE_TYPE18201; t8811 = *((struct w49 *)(&t8809)); t8812 = (struct structure_type24753 *)NULL_TYPE; f27755(t8810, t8811, t8812); l2969: /* x227445 */ /* x227444 stalin.sc:32063:1107579 */ /* x227422 stalin.sc:32063:1107587 */ /* x227421 stalin.sc:32063:1107594 */ /* x227420 stalin.sc:32063:1107610 */ t8769 = a33218; /* x227419 stalin.sc:32063:1107595 */ t8768 = f11632(t8769); /* x267552 stalin.sc:32063:1107588 */ if (!((t8768.tag)==NULL_TYPE)) goto l2960; /* x227424 */ /* x227423 */ return; l2960: /* x227443 */ /* x227442 */ /* x227441 */ /* x227440 stalin.sc:32064:1107616 */ /* x227439 stalin.sc:32064:1107624 */ t8775 = " Proper callees:"; /* x227438 stalin.sc:32064:1107617 */ t8776.tag = STRING_TYPE; t8776.value.string_type = t8775; t8777 = (struct structure_type24753 *)NULL_TYPE; f5365(t8776, t8777); /* x227437 */ /* x227436 stalin.sc:32065:1107647 */ /* x227435 stalin.sc:32066:1107714 */ /* x227434 stalin.sc:32066:1107730 */ t8774 = a33218; /* x227433 stalin.sc:32066:1107715 */ t8770 = f11632(t8774); /* x227432 stalin.sc:32065:1107657 */ /* x227425 stalin.sc:32065:1107648 */ t8771.tag = NATIVE_PROCEDURE_TYPE18311; t8772 = *((struct w49 *)(&t8770)); t8773 = (struct structure_type24753 *)NULL_TYPE; f27755(t8771, t8772, t8773); return;} /* [inside STALIN 19378] */ void f19378(struct w49 a33217) {struct structure_type24753 *a35203; /* OBJS */ struct w49 a37080; /* S */ char *t8817; struct structure_type24753 *t8818; char *t8819; struct structure_type24753 *t8820; struct w7121 t8821; struct w49 t8822; struct w49 t8823; struct w49 t8824; struct w49 t8825; struct w49 t8826; /* x227371 stalin.sc:32042:1106735 */ /* x227370 stalin.sc:32042:1106751 */ /* x227369 stalin.sc:32042:1106776 */ /* x227368 stalin.sc:32042:1106798 */ t8826 = a33217; /* x227367 stalin.sc:32042:1106777 */ t8822 = f13107(t8826); /* x227366 stalin.sc:32042:1106757 */ /* x227365 stalin.sc:32042:1106773 */ t8824 = a33217; /* x227364 stalin.sc:32042:1106758 */ a37080 = t8824; /* x280989 */ /* x280988 */ t8825 = a37080; /* x280987 */ if (!((t8825.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31997]"); structure_ref_error();} t8821 = t8825.value.structure_type27650->s4; /* x227363 stalin.sc:32042:1106752 */ t8823.tag = STRUCTURE_TYPE24753; t8823.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8823.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32042, 1106751); out_of_memory_error();} t8823.value.structure_type24753->s0 = t8822; t8823.value.structure_type24753->s1.tag = NULL_TYPE; a35203 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35203==NULL) {backtrace("stalin.sc", 32042, 1106751); out_of_memory_error();} a35203->s0 = *((struct w49 *)(&t8821)); a35203->s1 = t8823; /* x272413 */ t8818 = a35203; /* x227362 stalin.sc:32042:1106746 */ t8817 = "~s"; /* x227361 stalin.sc:32042:1106736 */ t8819 = t8817; t8820 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8820==NULL) {backtrace("stalin.sc", 32042, 1106735); out_of_memory_error();} t8820->s0.tag = STRUCTURE_TYPE24753; t8820->s0.value.structure_type24753 = t8818; t8820->s1.tag = NULL_TYPE; f5376(t8819, t8820); return;} /* [inside STALIN 19374] */ void f19374(struct w49 a33215) {struct structure_type24753 *a35202; /* OBJS */ struct w49 a37079; /* S */ char *t8827; struct structure_type24753 *t8828; char *t8829; struct structure_type24753 *t8830; struct w7121 t8831; struct w49 t8832; struct w49 t8833; struct w49 t8834; struct w49 t8835; struct w49 t8836; /* x227309 stalin.sc:32023:1105877 */ /* x227308 stalin.sc:32023:1105893 */ /* x227307 stalin.sc:32023:1105918 */ /* x227306 stalin.sc:32023:1105940 */ t8836 = a33215; /* x227305 stalin.sc:32023:1105919 */ t8832 = f13107(t8836); /* x227304 stalin.sc:32023:1105899 */ /* x227303 stalin.sc:32023:1105915 */ t8834 = a33215; /* x227302 stalin.sc:32023:1105900 */ a37079 = t8834; /* x280985 */ /* x280984 */ t8835 = a37079; /* x280983 */ if (!((t8835.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31996]"); structure_ref_error();} t8831 = t8835.value.structure_type27650->s4; /* x227301 stalin.sc:32023:1105894 */ t8833.tag = STRUCTURE_TYPE24753; t8833.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8833.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32023, 1105893); out_of_memory_error();} t8833.value.structure_type24753->s0 = t8832; t8833.value.structure_type24753->s1.tag = NULL_TYPE; a35202 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35202==NULL) {backtrace("stalin.sc", 32023, 1105893); out_of_memory_error();} a35202->s0 = *((struct w49 *)(&t8831)); a35202->s1 = t8833; /* x272411 */ t8828 = a35202; /* x227300 stalin.sc:32023:1105888 */ t8827 = "~s"; /* x227299 stalin.sc:32023:1105878 */ t8829 = t8827; t8830 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t8830==NULL) {backtrace("stalin.sc", 32023, 1105877); out_of_memory_error();} t8830->s0.tag = STRUCTURE_TYPE24753; t8830->s0.value.structure_type24753 = t8828; t8830->s1.tag = NULL_TYPE; f5376(t8829, t8830); return;} /* [inside LOOP 19336] */ void f19336(struct w49 a33176) {struct structure_type24753 *a34875; /* OBJS */ struct w49 t8837; char *t8838; struct w11873 t8839; struct w49 t8840; struct structure_type24753 *t8841; struct w12224 t8842; struct w49 t8843; struct w49 t8844; char *t8845; struct w3457 t8846; struct w49 t8847; char *t8848; struct w3457 t8849; struct w49 t8850; char *t8851; struct w3457 t8852; struct w49 t8853; char *t8854; struct w3457 t8855; struct w49 t8856; char *t8857; struct w11873 t8858; struct w49 t8859; char *t8860; struct w11873 t8861; struct w49 t8862; char *t8863; struct w49 t8864; /* x226759 */ /* x226723 stalin.sc:31941:1102670 */ /* x226719 stalin.sc:31941:1102702 */ t8840 = a33176; /* x226722 stalin.sc:31941:1102704 */ /* x226721 stalin.sc:31941:1102710 */ t8843 = a33176; /* x226720 stalin.sc:31941:1102705 */ a34875 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34875==NULL) {backtrace("stalin.sc", 31941, 1102704); out_of_memory_error();} a34875->s0 = t8843; a34875->s1.tag = NULL_TYPE; /* x271757 */ t8841 = a34875; /* x226718 stalin.sc:31941:1102671 */ t8842.tag = STRUCTURE_TYPE24753; t8842.value.structure_type24753 = t8841; f6752(t8840, t8842); /* x226728 stalin.sc:31942:1102716 */ /* x226725 stalin.sc:31942:1102754 */ t8844 = a33176; /* x226727 stalin.sc:31942:1102756 */ /* x226726 stalin.sc:31942:1102757 */ /* x277119 stalin.sc:323:8604 */ t8845 = q35; /* x226724 stalin.sc:31942:1102717 */ t8846.tag = EXTERNAL_SYMBOL_TYPE; t8846.value.external_symbol_type = t8845; f6768(t8844, t8846); /* x226733 stalin.sc:31943:1102773 */ /* x226730 stalin.sc:31943:1102815 */ t8847 = a33176; /* x226732 stalin.sc:31943:1102817 */ /* x226731 stalin.sc:31943:1102818 */ /* x277121 stalin.sc:323:8604 */ t8848 = q35; /* x226729 stalin.sc:31943:1102774 */ t8849.tag = EXTERNAL_SYMBOL_TYPE; t8849.value.external_symbol_type = t8848; f6776(t8847, t8849); /* x226738 stalin.sc:31944:1102834 */ /* x226735 stalin.sc:31944:1102872 */ t8850 = a33176; /* x226737 stalin.sc:31944:1102874 */ /* x226736 stalin.sc:31944:1102875 */ /* x277123 stalin.sc:323:8604 */ t8851 = q35; /* x226734 stalin.sc:31944:1102835 */ t8852.tag = EXTERNAL_SYMBOL_TYPE; t8852.value.external_symbol_type = t8851; f6784(t8850, t8852); /* x226743 stalin.sc:31945:1102891 */ /* x226740 stalin.sc:31945:1102933 */ t8853 = a33176; /* x226742 stalin.sc:31945:1102935 */ /* x226741 stalin.sc:31945:1102936 */ /* x277125 stalin.sc:323:8604 */ t8854 = q35; /* x226739 stalin.sc:31945:1102892 */ t8855.tag = EXTERNAL_SYMBOL_TYPE; t8855.value.external_symbol_type = t8854; f6792(t8853, t8855); /* x226748 stalin.sc:31946:1102952 */ /* x226745 stalin.sc:31946:1102982 */ t8856 = a33176; /* x226747 stalin.sc:31946:1102984 */ /* x226746 stalin.sc:31946:1102985 */ /* x277127 stalin.sc:323:8604 */ t8857 = q35; /* x226744 stalin.sc:31946:1102953 */ t8858.tag = EXTERNAL_SYMBOL_TYPE; t8858.value.external_symbol_type = t8857; f6808(t8856, t8858); /* x226753 stalin.sc:31947:1103001 */ /* x226750 stalin.sc:31947:1103038 */ t8859 = a33176; /* x226752 stalin.sc:31947:1103040 */ /* x226751 stalin.sc:31947:1103041 */ /* x277129 stalin.sc:323:8604 */ t8860 = q35; /* x226749 stalin.sc:31947:1103002 */ t8861.tag = EXTERNAL_SYMBOL_TYPE; t8861.value.external_symbol_type = t8860; f6816(t8859, t8861); /* x226758 stalin.sc:31948:1103057 */ /* x226755 stalin.sc:31948:1103090 */ t8862 = a33176; /* x226757 stalin.sc:31948:1103092 */ /* x226756 stalin.sc:31948:1103093 */ /* x277131 stalin.sc:323:8604 */ t8863 = q35; /* x226754 stalin.sc:31948:1103058 */ t8864.tag = EXTERNAL_SYMBOL_TYPE; t8864.value.external_symbol_type = t8863; f6824(t8862, t8864); /* x226717 */ /* x226716 stalin.sc:31949:1103109 */ /* x226713 stalin.sc:31949:1103152 */ t8837 = a33176; /* x226715 stalin.sc:31949:1103154 */ /* x226714 stalin.sc:31949:1103155 */ /* x277117 stalin.sc:323:8604 */ t8838 = q35; /* x226712 stalin.sc:31949:1103110 */ t8839.tag = EXTERNAL_SYMBOL_TYPE; t8839.value.external_symbol_type = t8838; f6832(t8837, t8839); return;} /* [inside LOOP 19333] */ void f19333(struct w49 a33173) {struct w49 t8865; unsigned t8866; /* x226679 stalin.sc:31929:1102149 */ /* x226677 stalin.sc:31929:1102175 */ t8865 = a33173; /* x226678 stalin.sc:31929:1102177 */ /* x226676 stalin.sc:31929:1102150 */ t8866 = FALSE_TYPE; f6927(t8865, t8866); return;} /* MAP-VARIABLE-INDEX[19299] */ unsigned f19299(struct w49 a33037) {unsigned r19299; struct w49 a37000; /* S */ struct w16611 a37002; /* S */ struct w16611 a37026; /* OBJ */ struct w49 t8867; struct w16611 t8868; struct w16611 t8869; struct w16611 t8870; char *t8871; struct w16611 t8872; struct w16611 t8873; unsigned t8874; unsigned t8875; struct w49 t8876; struct w49 t8877; struct structure_type24753 *t8878; struct w49 t8879; struct structure_type24753 *t8880; /* x226552 stalin.sc:31450:1083081 */ /* x226517 stalin.sc:31451:1083091 */ /* x226516 stalin.sc:31451:1083098 */ t8867 = a33037; /* x267580 stalin.sc:31451:1083092 */ if (!((t8867.tag)==STRUCTURE_TYPE24753)) goto l2971; /* x226531 */ /* x226530 */ /* x226529 stalin.sc:31451:1083102 */ /* x226523 stalin.sc:31451:1083108 */ /* x226522 stalin.sc:31451:1083124 */ /* x226521 stalin.sc:31451:1083129 */ t8878 = a33037.value.structure_type24753; /* x267578 stalin.sc:31451:1083125 */ t8876 = t8878->s0; /* x226519 stalin.sc:31451:1083109 */ a37000 = t8876; /* x280669 */ /* x280668 */ t8877 = a37000; /* x280667 */ if (!((t8877.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-INDEX[6565] 31917]"); structure_ref_error();} t8874 = t8877.value.structure_type27692->s6; /* x226528 stalin.sc:31451:1083134 */ /* x226527 stalin.sc:31451:1083154 */ /* x226526 stalin.sc:31451:1083159 */ t8880 = a33037.value.structure_type24753; /* x267577 stalin.sc:31451:1083155 */ t8879 = t8880->s1; /* x226524 stalin.sc:31451:1083135 */ t8875 = f19299(t8879); /* x267579 stalin.sc:31451:1083103 */ r19299 = (unsigned)((struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753))); if (((struct structure_type24753 *)r19299)==NULL) {backtrace("stalin.sc", 31451, 1083102); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t8874==FALSE_TYPE) ((struct structure_type24753 *)r19299)->s0.tag = (unsigned)t8874; else {((struct structure_type24753 *)r19299)->s0.tag = FIXNUM_TYPE; ((struct structure_type24753 *)r19299)->s0.value.fixnum_type = (int)(((int)t8874)>>1);} /* MOVE: dispatching squished to general */ switch (t8875) {case NULL_TYPE: case FALSE_TYPE: ((struct structure_type24753 *)r19299)->s1.tag = (unsigned)t8875; break; default: if ((t8875&3)==1) {((struct structure_type24753 *)r19299)->s1.tag = FIXNUM_TYPE; ((struct structure_type24753 *)r19299)->s1.value.fixnum_type = (int)(((int)t8875)>>2);} else {((struct structure_type24753 *)r19299)->s1.tag = STRUCTURE_TYPE24753; ((struct structure_type24753 *)r19299)->s1.value.structure_type24753 = (struct structure_type24753 *)t8875;}} return r19299; l2971: /* x226551 */ /* x226534 stalin.sc:31452:1083170 */ /* x226533 stalin.sc:31452:1083181 */ t8868 = *((struct w16611 *)(&a33037)); /* x226532 stalin.sc:31452:1083171 */ a37026 = t8868; /* x280773 */ /* x280772 */ t8869 = a37026; /* x280771 */ if (!((t8869.tag)==STRUCTURE_TYPE27692)) goto l2973; /* x226539 */ /* x226538 */ /* x226537 stalin.sc:31452:1083185 */ /* x226536 stalin.sc:31452:1083201 */ t8872 = *((struct w16611 *)(&a33037)); /* x226535 stalin.sc:31452:1083186 */ a37002 = t8872; /* x280677 */ /* x280676 */ t8873 = a37002; /* x280675 */ if ((t8873.tag)==STRUCTURE_TYPE27692) {/* MOVE: branching squished to squished */ if ((((t8873.value.structure_type27692->s6)&1)!=0)||((t8873.value.structure_type27692->s6)>=((unsigned)VALUE_OFFSET))) return ((unsigned)(((int)((t8873.value.structure_type27692->s6)&(~1)))<<1))+("\000\001"[(t8873.value.structure_type27692->s6)&1]); else return t8873.value.structure_type27692->s6;} backtrace_internal("[clone VARIABLE-INDEX[6565] 31919]"); structure_ref_error(); l2973: /* x226550 */ /* x226542 stalin.sc:31453:1083210 */ /* x226541 stalin.sc:31453:1083217 */ t8870 = *((struct w16611 *)(&a33037)); /* x267576 stalin.sc:31453:1083211 */ if (!((t8870.tag)==NULL_TYPE)) goto l2975; /* x226545 */ /* x226544 */ /* x226543 stalin.sc:31453:1083221 */ return (unsigned)NULL_TYPE; l2975: /* x226549 */ /* x226548 */ /* x226547 stalin.sc:31454:1083235 */ /* x226546 stalin.sc:31454:1083236 */ /* x297073 QobiScheme.sc:166:5314 */ /* x297072 QobiScheme.sc:166:5321 */ t8871 = "This shouldn\'t happen"; /* x297071 QobiScheme.sc:166:5315 */ stalin_panic(t8871);} /* [inside WRITE-DATABASE 19298] */ struct structure_type24753 *f19298(struct w49 a33036) {struct structure_type24753 *a35238; /* OBJS */ struct w49 a36178; /* PAIR */ struct w49 t8881; struct w49 t8882; struct w49 t8883; struct w49 t8884; struct w49 t8885; struct w49 t8886; struct w49 t8887; struct w49 t8888; struct w49 t8889; /* x226504 stalin.sc:31783:1095032 */ /* x226503 stalin.sc:31783:1095071 */ /* x226502 stalin.sc:31783:1095078 */ t8889 = a33036; /* x226501 stalin.sc:31783:1095072 */ t8883 = f26187(t8889); /* x226500 stalin.sc:31783:1095054 */ /* x226499 stalin.sc:31783:1095062 */ t8888 = a33036; /* x226498 stalin.sc:31783:1095055 */ t8882 = f26181(t8888); /* x226497 stalin.sc:31783:1095038 */ /* x226496 stalin.sc:31783:1095045 */ t8886 = a33036; /* x226495 stalin.sc:31783:1095039 */ a36178 = t8886; /* x276069 */ /* x276068 */ t8887 = a36178; /* x276067 */ if (!((t8887.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30327]"); structure_ref_error();} t8881 = t8887.value.structure_type24753->s0; /* x226494 stalin.sc:31783:1095033 */ t8885.tag = STRUCTURE_TYPE24753; t8885.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8885.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31783, 1095032); out_of_memory_error();} t8885.value.structure_type24753->s0 = t8883; t8885.value.structure_type24753->s1.tag = NULL_TYPE; t8884.tag = STRUCTURE_TYPE24753; t8884.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8884.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31783, 1095032); out_of_memory_error();} t8884.value.structure_type24753->s0 = t8882; t8884.value.structure_type24753->s1 = t8885; a35238 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35238==NULL) {backtrace("stalin.sc", 31783, 1095032); out_of_memory_error();} a35238->s0 = t8881; a35238->s1 = t8884; /* x272483 */ return a35238;} /* [inside WRITE-DATABASE 19292] */ unsigned f19292(struct w49 a33034) {struct w49 a36487; /* S */ struct w49 a40132; /* S */ struct w49 t8890; struct w49 t8891; struct w49 t8892; struct w49 t8893; /* x226404 stalin.sc:31757:1093913 */ /* x226403 stalin.sc:31757:1093931 */ /* x226402 stalin.sc:31757:1093953 */ t8892 = a33034; /* x226401 stalin.sc:31757:1093932 */ a36487 = t8892; /* x278617 */ /* x278616 */ t8893 = a36487; /* x278615 */ if (!((t8893.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31404]"); structure_ref_error();} t8890 = t8893.value.structure_type27745->s0; /* x226400 stalin.sc:31757:1093914 */ a40132 = t8890; /* x293197 */ /* x293196 */ t8891 = a40132; /* x293195 */ if ((t8891.tag)==STRUCTURE_TYPE27698) return t8891.value.structure_type27698->s7; backtrace_internal("[clone EXPRESSION-INDEX[5543] 35049]"); structure_ref_error();} /* [inside WRITE-DATABASE 19291] */ struct structure_type24753 *f19291(struct w49 a33033) {struct structure_type24753 *a35163; /* OBJS */ struct w49 a36473; /* S */ struct w49 a36654; /* S */ struct w49 a36713; /* S */ struct w49 a36726; /* S */ struct w3467 a36728; /* S */ struct w49 a36744; /* S */ struct w49 a40133; /* S */ struct w6852 a40138; /* S */ struct w3467 a41062; /* E */ struct w3467 a42436; /* OBJ */ unsigned t8894; unsigned t8895; char *t8896; char *t8897; struct structure_type24753 *t8898; struct w7121 t8899; char *t8900; char *t8901; char *t8902; struct w7121 t8903; struct w49 t8904; struct w49 t8905; struct w49 t8906; struct w49 t8907; struct w49 t8908; struct w49 t8909; struct w49 t8910; struct w49 t8911; struct w49 t8912; struct w49 t8913; struct w49 t8914; struct w49 t8915; struct w49 t8916; struct w6852 t8917; struct w6852 t8918; struct w49 t8919; struct w49 t8920; struct w49 t8921; struct w49 t8922; unsigned t8923; struct structure_type27657 *t8924; struct w49 t8925; struct w12224 t8926; struct w36270 t8927; struct w49 t8928; struct structure_type24753 *t8929; struct structure_type24753 *t8930; unsigned t8931; struct w49 t8932; struct w49 t8933; struct w3467 t8934; struct w3467 t8935; struct w3467 t8936; struct w49 t8937; struct w3467 t8938; struct w49 t8939; struct w49 t8940; struct w3467 t8941; struct w49 t8942; struct w49 t8943; struct w3467 t8944; struct w3467 t8945; struct w49 t8946; unsigned t8947; struct structure_type27657 *t8948; struct w49 t8949; unsigned t8950; struct structure_type27657 *t8951; struct w49 t8952; struct w49 t8953; struct w49 t8954; unsigned t8955; struct structure_type27657 *t8956; struct w49 t8957; struct w49 t8958; struct w49 t8959; struct w49 t8960; struct w49 t8961; struct w49 t8962; struct w49 t8963; /* x226489 stalin.sc:31747:1093514 */ /* x226488 stalin.sc:31774:1094707 */ /* x226479 stalin.sc:31774:1094711 */ /* x226478 stalin.sc:31774:1094730 */ t8958 = a33033; /* x226477 stalin.sc:31774:1094712 */ if (f8585(t8958)==FALSE_TYPE) goto l2991; /* x226486 stalin.sc:31775:1094735 */ /* x226485 stalin.sc:31775:1094753 */ /* x226484 stalin.sc:31775:1094775 */ /* x226483 stalin.sc:31775:1094793 */ t8963 = a33033; /* x226482 stalin.sc:31775:1094776 */ t8961 = f8659(t8963); /* x226481 stalin.sc:31775:1094754 */ a36473 = t8961; /* x278561 */ /* x278560 */ t8962 = a36473; /* x278559 */ if (!((t8962.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31390]"); structure_ref_error();} t8959 = t8962.value.structure_type27745->s0; /* x226480 stalin.sc:31775:1094736 */ a40133 = t8959; /* x293201 */ /* x293200 */ t8960 = a40133; /* x293199 */ if (!((t8960.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35050]"); structure_ref_error();} /* MOVE: dispatching squished to general */ if ((t8960.value.structure_type27698->s7)==FALSE_TYPE) t8903.tag = (unsigned)(t8960.value.structure_type27698->s7); else {t8903.tag = FIXNUM_TYPE; t8903.value.fixnum_type = (int)(((int)(t8960.value.structure_type27698->s7))>>1);} goto l2992; l2991: /* x226487 stalin.sc:31776:1094800 */ t8903.tag = EXTERNAL_SYMBOL_TYPE; t8903.value.external_symbol_type = q771; l2992: /* x226476 stalin.sc:31768:1094432 */ /* x226469 stalin.sc:31768:1094436 */ /* x226468 stalin.sc:31768:1094440 */ /* x226467 stalin.sc:31768:1094448 */ t8953 = a33033; /* x226466 stalin.sc:31768:1094441 */ if (!(f8581(t8953)==FALSE_TYPE)) goto l2986; /* x226463 */ /* x226462 stalin.sc:31768:1094456 */ /* x226461 stalin.sc:31768:1094465 */ t8954 = a33033; /* x226460 stalin.sc:31768:1094457 */ if (!((f8899(t8954).tag)==FALSE_TYPE)) goto l2987; l2986: /* x226470 stalin.sc:31769:1094472 */ t8902 = q771; goto l2988; l2987: /* x226475 stalin.sc:31770:1094479 */ /* x226474 stalin.sc:31770:1094518 */ /* x226473 stalin.sc:31770:1094532 */ t8957 = a33033; /* x226472 stalin.sc:31770:1094519 */ t8955 = f8563(t8957); /* x226471 stalin.sc:31770:1094480 */ t8956 = (struct structure_type27657 *)t8955; t8902 = f19235(t8956); l2988: /* x226456 stalin.sc:31767:1094360 */ /* x226455 stalin.sc:31767:1094399 */ /* x226454 stalin.sc:31767:1094423 */ t8952 = a33033; /* x226453 stalin.sc:31767:1094400 */ t8950 = f8548(t8952); /* x226452 stalin.sc:31767:1094361 */ t8951 = (struct structure_type27657 *)t8950; t8901 = f19235(t8951); /* x226451 stalin.sc:31766:1094300 */ /* x226450 stalin.sc:31766:1094339 */ /* x226449 stalin.sc:31766:1094351 */ t8949 = a33033; /* x226448 stalin.sc:31766:1094340 */ t8947 = f8543(t8949); /* x226447 stalin.sc:31766:1094301 */ t8948 = (struct structure_type27657 *)t8947; t8900 = f19235(t8948); /* x226446 stalin.sc:31761:1094100 */ /* x226417 stalin.sc:31761:1094107 */ /* x226416 stalin.sc:31761:1094127 */ /* x226415 stalin.sc:31761:1094139 */ t8937 = a33033; /* x226414 stalin.sc:31761:1094128 */ t8934 = f8619(t8937); /* x226413 stalin.sc:31761:1094108 */ a41062 = t8934; /* x298360 stalin.sc:13171:462008 */ /* x298359 stalin.sc:13171:462022 */ t8935 = a41062; /* x298358 stalin.sc:13171:462009 */ a42436 = t8935; /* x303614 */ /* x303613 */ t8936 = a42436; /* x303612 */ if (!((t8936.tag)==STRUCTURE_TYPE27694)) goto l2978; /* x226424 */ /* x226423 */ /* x226422 stalin.sc:31762:1094148 */ /* x226421 stalin.sc:31762:1094167 */ /* x226420 stalin.sc:31762:1094179 */ t8946 = a33033; /* x226419 stalin.sc:31762:1094168 */ t8944 = f8619(t8946); /* x226418 stalin.sc:31762:1094149 */ a36728 = t8944; /* x279581 */ /* x279580 */ t8945 = a36728; /* x279579 */ if (!((t8945.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-INDEX[6631] 31645]"); structure_ref_error();} /* MOVE: dispatching squished to general */ if ((t8945.value.structure_type27694->s0)==FALSE_TYPE) t8899.tag = (unsigned)(t8945.value.structure_type27694->s0); else {t8899.tag = FIXNUM_TYPE; t8899.value.fixnum_type = (int)(((int)(t8945.value.structure_type27694->s0))>>1);} goto l2979; l2978: /* x226445 */ /* x226429 stalin.sc:31763:1094189 */ /* x226428 stalin.sc:31763:1094208 */ /* x226427 stalin.sc:31763:1094220 */ t8940 = a33033; /* x226426 stalin.sc:31763:1094209 */ t8938 = f8619(t8940); /* x226425 stalin.sc:31763:1094190 */ t8939 = *((struct w49 *)(&t8938)); if (f13034(t8939)==FALSE_TYPE) goto l2981; /* x226432 */ /* x226431 */ /* x226430 stalin.sc:31763:1094224 */ t8899.tag = EXTERNAL_SYMBOL_TYPE; t8899.value.external_symbol_type = q186; goto l2982; l2981: /* x226444 */ /* x226437 stalin.sc:31764:1094237 */ /* x226436 stalin.sc:31764:1094255 */ /* x226435 stalin.sc:31764:1094267 */ t8943 = a33033; /* x226434 stalin.sc:31764:1094256 */ t8941 = f8619(t8943); /* x226433 stalin.sc:31764:1094238 */ t8942 = *((struct w49 *)(&t8941)); if (f13035(t8942)==FALSE_TYPE) goto l2984; /* x226440 */ /* x226439 */ /* x226438 stalin.sc:31764:1094271 */ t8899.tag = EXTERNAL_SYMBOL_TYPE; t8899.value.external_symbol_type = q187; goto l2985; l2984: /* x226443 */ /* x226442 */ /* x226441 stalin.sc:31765:1094288 */ t8899.tag = EXTERNAL_SYMBOL_TYPE; t8899.value.external_symbol_type = q771; l2985: l2982: l2979: /* x226412 stalin.sc:31757:1093896 */ /* x226411 stalin.sc:31760:1094046 */ /* x226407 stalin.sc:31760:1094057 */ /* x226410 stalin.sc:31760:1094078 */ /* x226409 stalin.sc:31760:1094090 */ t8933 = a33033; /* x226408 stalin.sc:31760:1094079 */ t8930 = f8615(t8933); /* x226406 stalin.sc:31760:1094047 */ t8931 = NATIVE_PROCEDURE_TYPE7243; /* MOVE: branching squeezed to general */ if (t8930>=((struct structure_type24753 *)VALUE_OFFSET)) {t8932.tag = STRUCTURE_TYPE24753; t8932.value.structure_type24753 = t8930;} else t8932.tag = (unsigned)t8930; t8926 = f1218(t8931, t8932); /* x226405 stalin.sc:31757:1093901 */ /* x226399 stalin.sc:31757:1093897 */ t8927.tag = NATIVE_PROCEDURE_TYPE14881; t8928 = *((struct w49 *)(&t8926)); t8929 = (struct structure_type24753 *)NULL_TYPE; t8898 = f27731(t8927, t8928, t8929); /* x226398 stalin.sc:31753:1093670 */ /* x226397 stalin.sc:31753:1093709 */ /* x226396 stalin.sc:31753:1093722 */ t8925 = a33033; /* x226395 stalin.sc:31753:1093710 */ t8923 = f8528(t8925); /* x226394 stalin.sc:31753:1093671 */ t8924 = (struct structure_type27657 *)t8923; t8897 = f19235(t8924); /* x226393 stalin.sc:31752:1093644 */ /* x226392 stalin.sc:31752:1093662 */ t8921 = a33033; /* x226391 stalin.sc:31752:1093645 */ a36654 = t8921; /* x279285 */ /* x279284 */ t8922 = a36654; /* x279283 */ if (!((t8922.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31571]"); structure_ref_error();} t8896 = t8922.value.structure_type27694->s2; /* x226390 stalin.sc:31749:1093552 */ /* x226383 stalin.sc:31749:1093556 */ /* x226382 stalin.sc:31749:1093580 */ t8915 = a33033; /* x226381 stalin.sc:31749:1093557 */ a36726 = t8915; /* x279573 */ /* x279572 */ t8916 = a36726; /* x279571 */ if (!((t8916.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31643]"); structure_ref_error();} /* x226388 stalin.sc:31750:1093585 */ /* x226387 stalin.sc:31750:1093603 */ /* x226386 stalin.sc:31750:1093627 */ t8919 = a33033; /* x226385 stalin.sc:31750:1093604 */ a36713 = t8919; /* x279521 */ /* x279520 */ t8920 = a36713; /* x279519 */ if (!((t8920.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31630]"); structure_ref_error();} t8917 = t8920.value.structure_type27694->s1; /* x226384 stalin.sc:31750:1093586 */ a40138 = t8917; /* x293221 */ /* x293220 */ t8918 = a40138; /* x293219 */ if (!((t8918.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35055]"); structure_ref_error();} t8895 = t8918.value.structure_type27698->s7; /* x226380 stalin.sc:31748:1093525 */ /* x226379 stalin.sc:31748:1093544 */ t8913 = a33033; /* x226378 stalin.sc:31748:1093526 */ a36744 = t8913; /* x279645 */ /* x279644 */ t8914 = a36744; /* x279643 */ if (!((t8914.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-INDEX[6631] 31661]"); structure_ref_error();} t8894 = t8914.value.structure_type27694->s0; /* x226377 stalin.sc:31747:1093515 */ t8912.tag = STRUCTURE_TYPE24753; t8912.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8912.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31747, 1093514); out_of_memory_error();} t8912.value.structure_type24753->s0 = *((struct w49 *)(&t8903)); t8912.value.structure_type24753->s1.tag = NULL_TYPE; t8911.tag = STRUCTURE_TYPE24753; t8911.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8911.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31747, 1093514); out_of_memory_error();} t8911.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t8911.value.structure_type24753->s0.value.external_symbol_type = t8902; t8911.value.structure_type24753->s1 = t8912; t8910.tag = STRUCTURE_TYPE24753; t8910.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8910.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31747, 1093514); out_of_memory_error();} t8910.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t8910.value.structure_type24753->s0.value.external_symbol_type = t8901; t8910.value.structure_type24753->s1 = t8911; t8909.tag = STRUCTURE_TYPE24753; t8909.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8909.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31747, 1093514); out_of_memory_error();} t8909.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t8909.value.structure_type24753->s0.value.external_symbol_type = t8900; t8909.value.structure_type24753->s1 = t8910; t8908.tag = STRUCTURE_TYPE24753; t8908.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8908.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31747, 1093514); out_of_memory_error();} t8908.value.structure_type24753->s0 = *((struct w49 *)(&t8899)); t8908.value.structure_type24753->s1 = t8909; t8907.tag = STRUCTURE_TYPE24753; t8907.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8907.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31747, 1093514); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t8898>=((struct structure_type24753 *)VALUE_OFFSET)) {t8907.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t8907.value.structure_type24753->s0.value.structure_type24753 = t8898;} else t8907.value.structure_type24753->s0.tag = (unsigned)t8898; t8907.value.structure_type24753->s1 = t8908; t8906.tag = STRUCTURE_TYPE24753; t8906.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8906.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31747, 1093514); out_of_memory_error();} t8906.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t8906.value.structure_type24753->s0.value.external_symbol_type = t8897; t8906.value.structure_type24753->s1 = t8907; t8905.tag = STRUCTURE_TYPE24753; t8905.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8905.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31747, 1093514); out_of_memory_error();} t8905.value.structure_type24753->s0.tag = STRING_TYPE; t8905.value.structure_type24753->s0.value.string_type = t8896; t8905.value.structure_type24753->s1 = t8906; t8904.tag = STRUCTURE_TYPE24753; t8904.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8904.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31747, 1093514); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t8895==FALSE_TYPE) t8904.value.structure_type24753->s0.tag = (unsigned)t8895; else {t8904.value.structure_type24753->s0.tag = FIXNUM_TYPE; t8904.value.structure_type24753->s0.value.fixnum_type = (int)(((int)t8895)>>1);} t8904.value.structure_type24753->s1 = t8905; a35163 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35163==NULL) {backtrace("stalin.sc", 31747, 1093514); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t8894==FALSE_TYPE) a35163->s0.tag = (unsigned)t8894; else {a35163->s0.tag = FIXNUM_TYPE; a35163->s0.value.fixnum_type = (int)(((int)t8894)>>1);} a35163->s1 = t8904; /* x272333 */ return a35163;} /* [inside WRITE-DATABASE 19290] */ struct structure_type24753 *f19290(struct w49 a33032) {struct structure_type24753 *a35156; /* OBJS */ struct w49 a36741; /* S */ struct w49 a36892; /* S */ struct w49 a36957; /* S */ struct w49 a36984; /* S */ struct w49 a37004; /* S */ struct w49 a37005; /* S */ struct w49 a37006; /* S */ struct w49 a37007; /* S */ struct w49 a37008; /* S */ struct w49 a37078; /* S */ struct w49 a41661; /* G */ struct w49 a41681; /* G */ struct w49 a41708; /* G */ struct w49 a41747; /* G */ struct w49 t8964; struct w6194 t8965; struct w6194 t8966; struct w6194 t8967; unsigned t8968; struct w64143 t8969; unsigned t8970; char *t8971; struct w7121 t8972; struct structure_type24753 *t8973; struct structure_type24753 *t8974; struct structure_type24753 *t8975; char *t8976; char *t8977; char *t8978; char *t8979; struct w49 t8980; struct w49 t8981; struct w49 t8982; struct w49 t8983; struct w49 t8984; struct w49 t8985; struct w49 t8986; struct w49 t8987; struct w49 t8988; struct w49 t8989; struct w49 t8990; struct w49 t8991; struct w49 t8992; struct w49 t8993; struct w49 t8994; struct w49 t8995; struct w49 t8996; struct w49 t8997; struct w49 t8998; struct w49 t8999; struct w49 t9000; struct w49 t9001; struct w49 t9002; struct w49 t9003; struct w49 t9004; struct w49 t9005; struct w49 t9006; struct w49 t9007; struct w49 t9008; struct w49 t9009; struct w49 t9010; struct w49 t9011; unsigned t9012; struct structure_type27657 *t9013; struct w49 t9014; struct w49 t9015; struct w49 t9016; struct w49 t9017; struct w49 t9018; struct w12224 t9019; struct w36270 t9020; struct w49 t9021; struct structure_type24753 *t9022; struct w49 t9023; struct w12224 t9024; struct w36270 t9025; struct w49 t9026; struct structure_type24753 *t9027; struct w49 t9028; struct w12224 t9029; struct w36270 t9030; struct w49 t9031; struct structure_type24753 *t9032; struct w49 t9033; unsigned t9034; struct structure_type27657 *t9035; struct w49 t9036; struct w49 t9037; unsigned t9038; struct structure_type27657 *t9039; struct w49 t9040; struct w49 t9041; unsigned t9042; struct structure_type27657 *t9043; struct w49 t9044; struct w49 t9045; unsigned t9046; struct structure_type27657 *t9047; struct w49 t9048; struct w49 t9049; /* x226369 stalin.sc:31703:1091764 */ /* x226368 stalin.sc:31718:1092414 */ /* x226367 stalin.sc:31718:1092453 */ /* x226366 stalin.sc:31718:1092463 */ t9048 = a33032; /* x226365 stalin.sc:31718:1092454 */ a41661 = t9048; /* x300756 stalin.sc:3965:133896 */ /* x300755 stalin.sc:3965:133915 */ t9049 = a41661; /* x300754 stalin.sc:3965:133897 */ t9046 = f8219(t9049); /* x226364 stalin.sc:31718:1092415 */ t9047 = (struct structure_type27657 *)t9046; t8979 = f19235(t9047); /* x226363 stalin.sc:31717:1092359 */ /* x226362 stalin.sc:31717:1092398 */ /* x226361 stalin.sc:31717:1092407 */ t9044 = a33032; /* x226360 stalin.sc:31717:1092399 */ a41681 = t9044; /* x300836 stalin.sc:3942:133266 */ /* x300835 stalin.sc:3942:133284 */ t9045 = a41681; /* x300834 stalin.sc:3942:133267 */ t9042 = f8214(t9045); /* x226359 stalin.sc:31717:1092360 */ t9043 = (struct structure_type27657 *)t9042; t8978 = f19235(t9043); /* x226358 stalin.sc:31716:1092304 */ /* x226357 stalin.sc:31716:1092343 */ /* x226356 stalin.sc:31716:1092352 */ t9040 = a33032; /* x226355 stalin.sc:31716:1092344 */ a41708 = t9040; /* x300944 stalin.sc:3916:132554 */ /* x300943 stalin.sc:3916:132572 */ t9041 = a41708; /* x300942 stalin.sc:3916:132555 */ t9038 = f8209(t9041); /* x226354 stalin.sc:31716:1092305 */ t9039 = (struct structure_type27657 *)t9038; t8977 = f19235(t9039); /* x226353 stalin.sc:31715:1092250 */ /* x226352 stalin.sc:31715:1092289 */ /* x226351 stalin.sc:31715:1092297 */ t9036 = a33032; /* x226350 stalin.sc:31715:1092290 */ a41747 = t9036; /* x301100 stalin.sc:3890:131852 */ /* x301099 stalin.sc:3890:131869 */ t9037 = a41747; /* x301098 stalin.sc:3890:131853 */ t9034 = f8204(t9037); /* x226349 stalin.sc:31715:1092251 */ t9035 = (struct structure_type27657 *)t9034; t8976 = f19235(t9035); /* x226348 stalin.sc:31714:1092209 */ /* x226347 stalin.sc:31714:1092231 */ /* x226346 stalin.sc:31714:1092243 */ t9033 = a33032; /* x226345 stalin.sc:31714:1092232 */ t9029 = f8245(t9033); /* x226344 stalin.sc:31714:1092214 */ /* x226343 stalin.sc:31714:1092210 */ t9030.tag = NATIVE_PROCEDURE_TYPE7950; t9031 = *((struct w49 *)(&t9029)); t9032 = (struct structure_type24753 *)NULL_TYPE; t8975 = f27731(t9030, t9031, t9032); /* x226342 stalin.sc:31713:1092167 */ /* x226341 stalin.sc:31713:1092189 */ /* x226340 stalin.sc:31713:1092202 */ t9028 = a33032; /* x226339 stalin.sc:31713:1092190 */ t9024 = f8244(t9028); /* x226338 stalin.sc:31713:1092172 */ /* x226337 stalin.sc:31713:1092168 */ t9025.tag = NATIVE_PROCEDURE_TYPE7950; t9026 = *((struct w49 *)(&t9024)); t9027 = (struct structure_type24753 *)NULL_TYPE; t8974 = f27731(t9025, t9026, t9027); /* x226336 stalin.sc:31712:1092128 */ /* x226335 stalin.sc:31712:1092150 */ /* x226334 stalin.sc:31712:1092160 */ t9023 = a33032; /* x226333 stalin.sc:31712:1092151 */ t9019 = f8243(t9023); /* x226332 stalin.sc:31712:1092133 */ /* x226331 stalin.sc:31712:1092129 */ t9020.tag = NATIVE_PROCEDURE_TYPE7950; t9021 = *((struct w49 *)(&t9019)); t9022 = (struct structure_type24753 *)NULL_TYPE; t8973 = f27731(t9020, t9021, t9022); /* x226330 stalin.sc:31711:1092086 */ /* x226329 stalin.sc:31711:1092102 */ /* x226328 stalin.sc:31711:1092121 */ t9017 = a33032; /* x226327 stalin.sc:31711:1092103 */ a36892 = t9017; /* x280237 */ /* x280236 */ t9018 = a36892; /* x280235 */ if (!((t9018.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31809]"); structure_ref_error();} t9015 = t9018.value.structure_type27692->s9; /* x226326 stalin.sc:31711:1092087 */ a37078 = t9015; /* x280981 */ /* x280980 */ t9016 = a37078; /* x280979 */ if (!((t9016.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31995]"); structure_ref_error();} t8972 = t9016.value.structure_type27650->s4; /* x226325 stalin.sc:31710:1092029 */ /* x226324 stalin.sc:31710:1092068 */ /* x226323 stalin.sc:31710:1092079 */ t9014 = a33032; /* x226322 stalin.sc:31710:1092069 */ t9012 = f8229(t9014); /* x226321 stalin.sc:31710:1092030 */ t9013 = (struct structure_type27657 *)t9012; t8971 = f19235(t9013); /* x226320 stalin.sc:31709:1091981 */ /* x226319 stalin.sc:31709:1092000 */ /* x226318 stalin.sc:31709:1092022 */ t9010 = a33032; /* x226317 stalin.sc:31709:1092001 */ a36957 = t9010; /* x280497 */ /* x280496 */ t9011 = a36957; /* x280495 */ if (!((t9011.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31874]"); structure_ref_error();} t9008 = t9011.value.structure_type27692->s8; /* x226316 stalin.sc:31709:1091982 */ a36741 = t9008; /* x279633 */ /* x279632 */ t9009 = a36741; /* x279631 */ if (!((t9009.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-INDEX[6631] 31658]"); structure_ref_error();} t8970 = t9009.value.structure_type27694->s0; /* x226315 stalin.sc:31708:1091929 */ /* x226314 stalin.sc:31708:1091959 */ /* x226313 stalin.sc:31708:1091974 */ t9006 = a33032; /* x226312 stalin.sc:31708:1091960 */ a36984 = t9006; /* x280605 */ /* x280604 */ t9007 = a36984; /* x280603 */ if (!((t9007.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31901]"); structure_ref_error();} t9005 = t9007.value.structure_type27692->s7; /* x226311 stalin.sc:31708:1091930 */ t8969 = f19236(t9005); /* x226310 stalin.sc:31707:1091907 */ /* x226309 stalin.sc:31707:1091923 */ t9003 = a33032; /* x226308 stalin.sc:31707:1091908 */ a37004 = t9003; /* x280685 */ /* x280684 */ t9004 = a37004; /* x280683 */ if (!((t9004.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-INDEX[6565] 31921]"); structure_ref_error();} t8968 = t9004.value.structure_type27692->s6; /* x226307 stalin.sc:31706:1091860 */ /* x226306 stalin.sc:31706:1091901 */ t9001 = a33032; /* x226305 stalin.sc:31706:1091861 */ a37005 = t9001; /* x280689 */ /* x280688 */ t9002 = a37005; /* x280687 */ if (!((t9002.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-CHARACTER-POSITION-WITHIN-LINE[6557] 31922]"); structure_ref_error();} t8967 = t9002.value.structure_type27692->s5; /* x226304 stalin.sc:31705:1091825 */ /* x226303 stalin.sc:31705:1091854 */ t8999 = a33032; /* x226302 stalin.sc:31705:1091826 */ a37006 = t8999; /* x280693 */ /* x280692 */ t9000 = a37006; /* x280691 */ if (!((t9000.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-CHARACTER-POSITION[6549] 31923]"); structure_ref_error();} t8966 = t9000.value.structure_type27692->s4; /* x226301 stalin.sc:31704:1091795 */ /* x226300 stalin.sc:31704:1091819 */ t8997 = a33032; /* x226299 stalin.sc:31704:1091796 */ a37007 = t8997; /* x280697 */ /* x280696 */ t8998 = a37007; /* x280695 */ if (!((t8998.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-LINE-POSITION[6541] 31924]"); structure_ref_error();} t8965 = t8998.value.structure_type27692->s3; /* x226298 stalin.sc:31703:1091770 */ /* x226297 stalin.sc:31703:1091789 */ t8995 = a33032; /* x226296 stalin.sc:31703:1091771 */ a37008 = t8995; /* x280701 */ /* x280700 */ t8996 = a37008; /* x280699 */ if (!((t8996.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-PATHNAME[6533] 31925]"); structure_ref_error();} t8964 = t8996.value.structure_type27692->s2; /* x226295 stalin.sc:31703:1091765 */ t8994.tag = STRUCTURE_TYPE24753; t8994.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8994.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31703, 1091764); out_of_memory_error();} t8994.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t8994.value.structure_type24753->s0.value.external_symbol_type = t8979; t8994.value.structure_type24753->s1.tag = NULL_TYPE; t8993.tag = STRUCTURE_TYPE24753; t8993.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8993.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31703, 1091764); out_of_memory_error();} t8993.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t8993.value.structure_type24753->s0.value.external_symbol_type = t8978; t8993.value.structure_type24753->s1 = t8994; t8992.tag = STRUCTURE_TYPE24753; t8992.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8992.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31703, 1091764); out_of_memory_error();} t8992.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t8992.value.structure_type24753->s0.value.external_symbol_type = t8977; t8992.value.structure_type24753->s1 = t8993; t8991.tag = STRUCTURE_TYPE24753; t8991.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8991.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31703, 1091764); out_of_memory_error();} t8991.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t8991.value.structure_type24753->s0.value.external_symbol_type = t8976; t8991.value.structure_type24753->s1 = t8992; t8990.tag = STRUCTURE_TYPE24753; t8990.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8990.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31703, 1091764); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t8975>=((struct structure_type24753 *)VALUE_OFFSET)) {t8990.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t8990.value.structure_type24753->s0.value.structure_type24753 = t8975;} else t8990.value.structure_type24753->s0.tag = (unsigned)t8975; t8990.value.structure_type24753->s1 = t8991; t8989.tag = STRUCTURE_TYPE24753; t8989.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8989.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31703, 1091764); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t8974>=((struct structure_type24753 *)VALUE_OFFSET)) {t8989.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t8989.value.structure_type24753->s0.value.structure_type24753 = t8974;} else t8989.value.structure_type24753->s0.tag = (unsigned)t8974; t8989.value.structure_type24753->s1 = t8990; t8988.tag = STRUCTURE_TYPE24753; t8988.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8988.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31703, 1091764); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t8973>=((struct structure_type24753 *)VALUE_OFFSET)) {t8988.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t8988.value.structure_type24753->s0.value.structure_type24753 = t8973;} else t8988.value.structure_type24753->s0.tag = (unsigned)t8973; t8988.value.structure_type24753->s1 = t8989; t8987.tag = STRUCTURE_TYPE24753; t8987.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8987.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31703, 1091764); out_of_memory_error();} t8987.value.structure_type24753->s0 = *((struct w49 *)(&t8972)); t8987.value.structure_type24753->s1 = t8988; t8986.tag = STRUCTURE_TYPE24753; t8986.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8986.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31703, 1091764); out_of_memory_error();} t8986.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t8986.value.structure_type24753->s0.value.external_symbol_type = t8971; t8986.value.structure_type24753->s1 = t8987; t8985.tag = STRUCTURE_TYPE24753; t8985.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8985.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31703, 1091764); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t8970==FALSE_TYPE) t8985.value.structure_type24753->s0.tag = (unsigned)t8970; else {t8985.value.structure_type24753->s0.tag = FIXNUM_TYPE; t8985.value.structure_type24753->s0.value.fixnum_type = (int)(((int)t8970)>>1);} t8985.value.structure_type24753->s1 = t8986; t8984.tag = STRUCTURE_TYPE24753; t8984.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8984.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31703, 1091764); out_of_memory_error();} t8984.value.structure_type24753->s0 = *((struct w49 *)(&t8969)); t8984.value.structure_type24753->s1 = t8985; t8983.tag = STRUCTURE_TYPE24753; t8983.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8983.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31703, 1091764); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t8968==FALSE_TYPE) t8983.value.structure_type24753->s0.tag = (unsigned)t8968; else {t8983.value.structure_type24753->s0.tag = FIXNUM_TYPE; t8983.value.structure_type24753->s0.value.fixnum_type = (int)(((int)t8968)>>1);} t8983.value.structure_type24753->s1 = t8984; t8982.tag = STRUCTURE_TYPE24753; t8982.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8982.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31703, 1091764); out_of_memory_error();} t8982.value.structure_type24753->s0 = *((struct w49 *)(&t8967)); t8982.value.structure_type24753->s1 = t8983; t8981.tag = STRUCTURE_TYPE24753; t8981.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8981.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31703, 1091764); out_of_memory_error();} t8981.value.structure_type24753->s0 = *((struct w49 *)(&t8966)); t8981.value.structure_type24753->s1 = t8982; t8980.tag = STRUCTURE_TYPE24753; t8980.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t8980.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31703, 1091764); out_of_memory_error();} t8980.value.structure_type24753->s0 = *((struct w49 *)(&t8965)); t8980.value.structure_type24753->s1 = t8981; a35156 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35156==NULL) {backtrace("stalin.sc", 31703, 1091764); out_of_memory_error();} a35156->s0 = t8964; a35156->s1 = t8980; /* x272319 */ return a35156;} /* [inside WRITE-DATABASE 19289] */ struct structure_type24753 *f19289(struct w49 a33031) {struct structure_type24753 *a35206; /* OBJS */ struct w49 a37087; /* S */ struct structure_type24753 *t9050; struct w7121 t9051; char *t9052; char *t9053; char *t9054; char *t9055; char *t9056; char *t9057; char *t9058; char *t9059; struct w49 t9060; struct w49 t9061; struct w49 t9062; struct w49 t9063; struct w49 t9064; struct w49 t9065; struct w49 t9066; struct w49 t9067; struct w49 t9068; struct structure_type24753 *t9069; struct w36270 t9070; struct w49 t9071; struct structure_type24753 *t9072; struct w49 t9073; struct w49 t9074; struct w49 t9075; unsigned t9076; struct structure_type27657 *t9077; struct w49 t9078; unsigned t9079; struct structure_type27657 *t9080; struct w49 t9081; unsigned t9082; struct structure_type27657 *t9083; struct w49 t9084; struct structure_type27657 *t9085; struct structure_type27657 *t9086; struct w49 t9087; unsigned t9088; struct structure_type27657 *t9089; struct w49 t9090; unsigned t9091; struct structure_type27657 *t9092; struct w49 t9093; unsigned t9094; struct structure_type27657 *t9095; struct w49 t9096; unsigned t9097; struct structure_type27657 *t9098; struct w49 t9099; /* x226290 stalin.sc:31686:1091007 */ /* x226289 stalin.sc:31695:1091472 */ /* x226288 stalin.sc:31695:1091511 */ /* x226287 stalin.sc:31695:1091522 */ t9099 = a33031; /* x226286 stalin.sc:31695:1091512 */ t9097 = f14024(t9099); /* x226285 stalin.sc:31695:1091473 */ t9098 = (struct structure_type27657 *)t9097; t9059 = f19235(t9098); /* x226284 stalin.sc:31694:1091415 */ /* x226283 stalin.sc:31694:1091454 */ /* x226282 stalin.sc:31694:1091465 */ t9096 = a33031; /* x226281 stalin.sc:31694:1091455 */ t9094 = f13859(t9096); /* x226280 stalin.sc:31694:1091416 */ t9095 = (struct structure_type27657 *)t9094; t9058 = f19235(t9095); /* x226279 stalin.sc:31693:1091357 */ /* x226278 stalin.sc:31693:1091396 */ /* x226277 stalin.sc:31693:1091408 */ t9093 = a33031; /* x226276 stalin.sc:31693:1091397 */ t9091 = f13801(t9093); /* x226275 stalin.sc:31693:1091358 */ t9092 = (struct structure_type27657 *)t9091; t9057 = f19235(t9092); /* x226274 stalin.sc:31692:1091300 */ /* x226273 stalin.sc:31692:1091339 */ /* x226272 stalin.sc:31692:1091350 */ t9090 = a33031; /* x226271 stalin.sc:31692:1091340 */ t9088 = f13798(t9090); /* x226270 stalin.sc:31692:1091301 */ t9089 = (struct structure_type27657 *)t9088; t9056 = f19235(t9089); /* x226269 stalin.sc:31691:1091239 */ /* x226268 stalin.sc:31691:1091278 */ /* x226267 stalin.sc:31691:1091293 */ t9087 = a33031; /* x226266 stalin.sc:31691:1091279 */ t9085 = f8149(t9087); /* x226265 stalin.sc:31691:1091240 */ t9086 = t9085; t9055 = f19235(t9086); /* x226264 stalin.sc:31690:1091179 */ /* x226263 stalin.sc:31690:1091218 */ /* x226262 stalin.sc:31690:1091232 */ t9084 = a33031; /* x226261 stalin.sc:31690:1091219 */ t9082 = f8148(t9084); /* x226260 stalin.sc:31690:1091180 */ t9083 = (struct structure_type27657 *)t9082; t9054 = f19235(t9083); /* x226259 stalin.sc:31689:1091126 */ /* x226258 stalin.sc:31689:1091165 */ /* x226257 stalin.sc:31689:1091172 */ t9081 = a33031; /* x226256 stalin.sc:31689:1091166 */ t9079 = f8147(t9081); /* x226255 stalin.sc:31689:1091127 */ t9080 = (struct structure_type27657 *)t9079; t9053 = f19235(t9080); /* x226254 stalin.sc:31688:1091067 */ /* x226253 stalin.sc:31688:1091106 */ /* x226252 stalin.sc:31688:1091119 */ t9078 = a33031; /* x226251 stalin.sc:31688:1091107 */ t9076 = f8793(t9078); /* x226250 stalin.sc:31688:1091068 */ t9077 = (struct structure_type27657 *)t9076; t9052 = f19235(t9077); /* x226249 stalin.sc:31687:1091045 */ /* x226248 stalin.sc:31687:1091061 */ t9074 = a33031; /* x226247 stalin.sc:31687:1091046 */ a37087 = t9074; /* x281017 */ /* x281016 */ t9075 = a37087; /* x281015 */ if (!((t9075.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 32004]"); structure_ref_error();} t9051 = t9075.value.structure_type27650->s4; /* x226246 stalin.sc:31686:1091013 */ /* x226245 stalin.sc:31686:1091029 */ /* x226244 stalin.sc:31686:1091038 */ t9073 = a33031; /* x226243 stalin.sc:31686:1091030 */ t9069 = f8162(t9073); /* x226242 stalin.sc:31686:1091018 */ /* x226241 stalin.sc:31686:1091014 */ t9070.tag = NATIVE_PROCEDURE_TYPE7387; /* MOVE: branching squeezed to general */ if (t9069>=((struct structure_type24753 *)VALUE_OFFSET)) {t9071.tag = STRUCTURE_TYPE24753; t9071.value.structure_type24753 = t9069;} else t9071.tag = (unsigned)t9069; t9072 = (struct structure_type24753 *)NULL_TYPE; t9050 = f27731(t9070, t9071, t9072); /* x226240 stalin.sc:31686:1091008 */ t9068.tag = STRUCTURE_TYPE24753; t9068.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9068.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31686, 1091007); out_of_memory_error();} t9068.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t9068.value.structure_type24753->s0.value.external_symbol_type = t9059; t9068.value.structure_type24753->s1.tag = NULL_TYPE; t9067.tag = STRUCTURE_TYPE24753; t9067.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9067.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31686, 1091007); out_of_memory_error();} t9067.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t9067.value.structure_type24753->s0.value.external_symbol_type = t9058; t9067.value.structure_type24753->s1 = t9068; t9066.tag = STRUCTURE_TYPE24753; t9066.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9066.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31686, 1091007); out_of_memory_error();} t9066.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t9066.value.structure_type24753->s0.value.external_symbol_type = t9057; t9066.value.structure_type24753->s1 = t9067; t9065.tag = STRUCTURE_TYPE24753; t9065.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9065.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31686, 1091007); out_of_memory_error();} t9065.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t9065.value.structure_type24753->s0.value.external_symbol_type = t9056; t9065.value.structure_type24753->s1 = t9066; t9064.tag = STRUCTURE_TYPE24753; t9064.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9064.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31686, 1091007); out_of_memory_error();} t9064.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t9064.value.structure_type24753->s0.value.external_symbol_type = t9055; t9064.value.structure_type24753->s1 = t9065; t9063.tag = STRUCTURE_TYPE24753; t9063.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9063.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31686, 1091007); out_of_memory_error();} t9063.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t9063.value.structure_type24753->s0.value.external_symbol_type = t9054; t9063.value.structure_type24753->s1 = t9064; t9062.tag = STRUCTURE_TYPE24753; t9062.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9062.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31686, 1091007); out_of_memory_error();} t9062.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t9062.value.structure_type24753->s0.value.external_symbol_type = t9053; t9062.value.structure_type24753->s1 = t9063; t9061.tag = STRUCTURE_TYPE24753; t9061.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9061.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31686, 1091007); out_of_memory_error();} t9061.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t9061.value.structure_type24753->s0.value.external_symbol_type = t9052; t9061.value.structure_type24753->s1 = t9062; t9060.tag = STRUCTURE_TYPE24753; t9060.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9060.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31686, 1091007); out_of_memory_error();} t9060.value.structure_type24753->s0 = *((struct w49 *)(&t9051)); t9060.value.structure_type24753->s1 = t9061; a35206 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35206==NULL) {backtrace("stalin.sc", 31686, 1091007); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t9050>=((struct structure_type24753 *)VALUE_OFFSET)) {a35206->s0.tag = STRUCTURE_TYPE24753; a35206->s0.value.structure_type24753 = t9050;} else a35206->s0.tag = (unsigned)t9050; a35206->s1 = t9060; /* x272419 */ return a35206;} /* [inside WRITE-DATABASE 19288] */ struct w7121 f19288(struct w49 a33030) {struct w7121 r19288; struct w49 a40146; /* S */ struct w49 a40445; /* OBJ */ struct w49 t9100; struct w49 t9101; struct w49 t9102; struct w49 t9103; /* x226181 stalin.sc:31645:1089932 */ /* x226176 stalin.sc:31645:1089936 */ /* x226175 stalin.sc:31645:1089949 */ t9100 = a33030; /* x226174 stalin.sc:31645:1089937 */ a40445 = t9100; /* x294449 */ /* x294448 */ t9101 = a40445; /* x294447 */ if (!((t9101.tag)==STRUCTURE_TYPE27698)) goto l2994; /* x226179 stalin.sc:31645:1089952 */ /* x226178 stalin.sc:31645:1089970 */ t9102 = a33030; /* x226177 stalin.sc:31645:1089953 */ a40146 = t9102; /* x293253 */ /* x293252 */ t9103 = a40146; /* x293251 */ if ((t9103.tag)==STRUCTURE_TYPE27698) {/* MOVE: dispatching squished to general */ if ((t9103.value.structure_type27698->s7)==FALSE_TYPE) {r19288.tag = (unsigned)(t9103.value.structure_type27698->s7); return r19288;} r19288.tag = FIXNUM_TYPE; r19288.value.fixnum_type = (int)(((int)(t9103.value.structure_type27698->s7))>>1); return r19288;} backtrace_internal("[clone EXPRESSION-INDEX[5543] 35063]"); structure_ref_error(); l2994: /* x226180 stalin.sc:31645:1089973 */ r19288.tag = EXTERNAL_SYMBOL_TYPE; r19288.value.external_symbol_type = q771; return r19288;} /* [inside WRITE-DATABASE 19287] */ struct w7121 f19287(struct w49 a33029) {struct w7121 r19287; struct w49 a40147; /* S */ struct w49 a40452; /* OBJ */ struct w49 t9104; struct w49 t9105; struct w49 t9106; struct w49 t9107; /* x226089 stalin.sc:31616:1088972 */ /* x226084 stalin.sc:31616:1088976 */ /* x226083 stalin.sc:31616:1088989 */ t9104 = a33029; /* x226082 stalin.sc:31616:1088977 */ a40452 = t9104; /* x294477 */ /* x294476 */ t9105 = a40452; /* x294475 */ if (!((t9105.tag)==STRUCTURE_TYPE27698)) goto l2996; /* x226087 stalin.sc:31616:1088992 */ /* x226086 stalin.sc:31616:1089010 */ t9106 = a33029; /* x226085 stalin.sc:31616:1088993 */ a40147 = t9106; /* x293257 */ /* x293256 */ t9107 = a40147; /* x293255 */ if ((t9107.tag)==STRUCTURE_TYPE27698) {/* MOVE: dispatching squished to general */ if ((t9107.value.structure_type27698->s7)==FALSE_TYPE) {r19287.tag = (unsigned)(t9107.value.structure_type27698->s7); return r19287;} r19287.tag = FIXNUM_TYPE; r19287.value.fixnum_type = (int)(((int)(t9107.value.structure_type27698->s7))>>1); return r19287;} backtrace_internal("[clone EXPRESSION-INDEX[5543] 35064]"); structure_ref_error(); l2996: /* x226088 stalin.sc:31616:1089013 */ r19287.tag = EXTERNAL_SYMBOL_TYPE; r19287.value.external_symbol_type = q771; return r19287;} /* [inside WRITE-DATABASE 19286] */ struct structure_type24753 *f19286(struct w49 a33028) {struct structure_type24753 *r19286; struct w49 a20811; /* S */ struct w49 a36369; /* S */ struct w49 a36727; /* S */ struct w60864 t9108; unsigned t9109; struct w49 t9110; struct w49 t9111; unsigned t9112; struct structure_type24753 *t9113; struct w49 t9114; struct w49 t9115; struct w49 t9116; struct w49 t9117; struct w49 t9118; struct w49 t9119; struct w49 t9120; struct w49 t9121; struct w49 t9122; struct w49 t9123; /* x226016 stalin.sc:31585:1087946 */ /* x226010 stalin.sc:31585:1087952 */ /* x225994 stalin.sc:31585:1087956 */ /* x225993 stalin.sc:31585:1087978 */ /* x225992 stalin.sc:31585:1087983 */ t9111 = a33028; /* x267586 stalin.sc:31585:1087979 */ if (!((t9111.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 31585, 1087978); structure_ref_error();} t9110 = t9111.value.structure_type24753->s0; /* x225990 stalin.sc:31585:1087957 */ if (f8751(t9110)==FALSE_TYPE) goto l2998; /* x225995 stalin.sc:31586:1087994 */ t9108.tag = EXTERNAL_SYMBOL_TYPE; t9108.value.external_symbol_type = q771; goto l2999; l2998: /* x226009 stalin.sc:31587:1088004 */ /* x226003 stalin.sc:31587:1088010 */ /* x226002 stalin.sc:31588:1088033 */ /* x226001 stalin.sc:31588:1088055 */ /* x226000 stalin.sc:31588:1088060 */ t9117 = a33028; /* x267584 stalin.sc:31588:1088056 */ if (!((t9117.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 31588, 1088055); structure_ref_error();} t9115 = t9117.value.structure_type24753->s0; /* x225998 stalin.sc:31588:1088034 */ a36369 = t9115; /* x278145 */ /* x278144 */ t9116 = a36369; /* x278143 */ if (!((t9116.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31286]"); structure_ref_error();} t9114 = t9116.value.structure_type27745->s0; /* x225997 stalin.sc:31587:1088011 */ t9112 = f5543(t9114); /* x226008 stalin.sc:31589:1088078 */ /* x226007 stalin.sc:31589:1088097 */ /* x226006 stalin.sc:31589:1088102 */ t9120 = a33028; /* x267583 stalin.sc:31589:1088098 */ if (!((t9120.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 31589, 1088097); structure_ref_error();} t9118 = t9120.value.structure_type24753->s0; /* x226004 stalin.sc:31589:1088079 */ a20811 = t9118; /* x56443 */ /* x56442 */ t9119 = a20811; /* x56441 */ if (!((t9119.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("CALL-SITE-OFFSETS[6857]"); structure_ref_error();} t9113 = t9119.value.structure_type27745->s1; /* x267585 stalin.sc:31587:1088005 */ t9108.tag = STRUCTURE_TYPE24753; t9108.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9108.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31587, 1088004); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t9112==FALSE_TYPE) t9108.value.structure_type24753->s0.tag = (unsigned)t9112; else {t9108.value.structure_type24753->s0.tag = FIXNUM_TYPE; t9108.value.structure_type24753->s0.value.fixnum_type = (int)(((int)t9112)>>1);} /* MOVE: branching squeezed to general */ if (t9113>=((struct structure_type24753 *)VALUE_OFFSET)) {t9108.value.structure_type24753->s1.tag = STRUCTURE_TYPE24753; t9108.value.structure_type24753->s1.value.structure_type24753 = t9113;} else t9108.value.structure_type24753->s1.tag = (unsigned)t9113; l2999: /* x226015 stalin.sc:31590:1088118 */ /* x226014 stalin.sc:31590:1088137 */ /* x226013 stalin.sc:31590:1088142 */ t9123 = a33028; /* x267582 stalin.sc:31590:1088138 */ if (!((t9123.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 31590, 1088137); structure_ref_error();} t9121 = t9123.value.structure_type24753->s1; /* x226011 stalin.sc:31590:1088119 */ a36727 = t9121; /* x279577 */ /* x279576 */ t9122 = a36727; /* x279575 */ if (!((t9122.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-INDEX[6631] 31644]"); structure_ref_error();} t9109 = t9122.value.structure_type27694->s0; /* x267587 stalin.sc:31585:1087947 */ r19286 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r19286==NULL) {backtrace("stalin.sc", 31585, 1087946); out_of_memory_error();} r19286->s0 = *((struct w49 *)(&t9108)); /* MOVE: dispatching squished to general */ if (t9109==FALSE_TYPE) r19286->s1.tag = (unsigned)t9109; else {r19286->s1.tag = FIXNUM_TYPE; r19286->s1.value.fixnum_type = (int)(((int)t9109)>>1);} return r19286;} /* [inside WRITE-DATABASE 19285] */ struct structure_type24753 *f19285(struct w49 a33027) {struct w49 a33019; /* U */ struct structure_type24753 *a35236; /* OBJS */ struct w49 a37050; /* S */ struct w49 a37082; /* S */ struct w49 a37301; /* S */ struct w49 a37350; /* OBJ */ struct w49 a37351; /* OBJ */ struct w49 a37385; /* S */ struct w49 a37396; /* S */ struct w49 a37450; /* OBJ */ struct w49 a37451; /* OBJ */ struct w49 a37452; /* OBJ */ struct w49 a37493; /* S */ struct w49 a37509; /* S */ struct w49 a37567; /* OBJ */ struct w49 a37568; /* OBJ */ struct w49 a37569; /* OBJ */ struct w49 a37612; /* S */ struct w49 a37643; /* S */ struct w49 a37664; /* S */ struct w49 a37708; /* OBJ */ struct w49 a37709; /* OBJ */ struct w49 a37710; /* OBJ */ struct w49 a37711; /* OBJ */ struct w49 a37712; /* OBJ */ struct w49 a37734; /* S */ struct w49 a37782; /* OBJ */ struct w49 a37783; /* OBJ */ struct w49 a37843; /* S */ struct w49 a37903; /* OBJ */ struct w49 a37904; /* OBJ */ struct w49 a37905; /* OBJ */ struct w49 a37921; /* S */ struct w49 a37927; /* S */ struct w49 a37931; /* S */ struct w49 a37973; /* OBJ */ struct w49 a37974; /* OBJ */ struct w49 a37975; /* OBJ */ struct w49 a37976; /* OBJ */ struct w49 a37977; /* OBJ */ struct w49 a38021; /* S */ struct w49 a38125; /* OBJ */ struct w49 a38126; /* OBJ */ struct w49 a38178; /* S */ struct w49 a38192; /* S */ struct w49 a38231; /* OBJ */ struct w49 a38232; /* OBJ */ struct w49 a38233; /* OBJ */ struct w49 a38257; /* S */ struct w49 a38291; /* OBJ */ struct w49 a38292; /* OBJ */ struct w49 a38306; /* S */ struct w49 a38331; /* OBJ */ struct w49 a38332; /* OBJ */ struct w49 a40131; /* S */ char *t9124; struct w49 t9125; struct w7121 t9126; struct w49 t9127; struct w49 t9128; struct w3457 t9129; struct w49 t9130; struct w49 t9131; struct w49 t9132; char *t9133; struct w7121 t9134; char *t9135; struct w3457 t9136; struct w49 t9137; struct w3457 t9138; char *t9139; struct w3457 t9140; struct w7121 t9141; struct w3457 t9142; struct w7121 t9143; struct w3457 t9144; struct w7121 t9145; unsigned t9146; unsigned t9147; char *t9148; struct w49 t9149; struct w49 t9150; struct w49 t9151; struct w49 t9152; struct w49 t9153; struct w49 t9154; struct w49 t9155; struct w49 t9156; struct w49 t9157; struct w49 t9158; struct w49 t9159; struct w49 t9160; struct w49 t9161; struct w49 t9162; struct w49 t9163; struct w49 t9164; struct w49 t9165; struct w49 t9166; struct w49 t9167; struct w49 t9168; struct w49 t9169; struct w49 t9170; struct w49 t9171; struct w49 t9172; struct w49 t9173; struct w49 t9174; struct w49 t9175; struct w49 t9176; struct w49 t9177; struct w49 t9178; struct w49 t9179; struct w49 t9180; struct w49 t9181; struct w49 t9182; struct w49 t9183; struct w49 t9184; struct w49 t9185; struct w49 t9186; struct w49 t9187; struct w49 t9188; struct w49 t9189; struct w49 t9190; struct w49 t9191; struct w49 t9192; struct w49 t9193; struct w49 t9194; struct w49 t9195; struct w49 t9196; struct w49 t9197; struct w49 t9198; struct w49 t9199; struct w49 t9200; struct w49 t9201; struct w49 t9202; struct w49 t9203; struct w49 t9204; struct w49 t9205; struct w49 t9206; char *t9207; struct w49 t9208; struct w49 t9209; struct w49 t9210; struct w64143 t9211; struct w49 t9212; struct w49 t9213; struct w49 t9214; struct w49 t9215; struct w49 t9216; unsigned t9217; struct w49 t9218; struct w49 t9219; struct w49 t9220; struct w49 t9221; struct w49 t9222; struct w64143 t9223; struct w49 t9224; struct w49 t9225; struct w49 t9226; struct w49 t9227; struct w49 t9228; struct w49 t9229; struct w49 t9230; struct w49 t9231; struct w12224 t9232; struct w36270 t9233; struct w49 t9234; struct structure_type24753 *t9235; struct structure_type24753 *t9236; struct w49 t9237; struct w49 t9238; struct w49 t9239; struct w49 t9240; struct w49 t9241; struct w49 t9242; struct w49 t9243; struct w49 t9244; struct w49 t9245; struct w49 t9246; struct w49 t9247; struct w49 t9248; struct w49 t9249; struct w49 t9250; struct w49 t9251; struct w49 t9252; unsigned t9253; struct structure_type27657 *t9254; struct w49 t9255; struct w49 t9256; struct w49 t9257; struct w49 t9258; struct w49 t9259; struct w49 t9260; struct w49 t9261; struct w49 t9262; struct w49 t9263; unsigned t9264; struct structure_type27657 *t9265; struct w49 t9266; struct w49 t9267; struct w49 t9268; struct w49 t9269; struct w36270 t9270; struct w49 t9271; struct structure_type24753 *t9272; struct structure_type24753 *t9273; struct w49 t9274; struct w49 t9275; struct w49 t9276; struct w49 t9277; struct w49 t9278; struct w64143 t9279; struct w49 t9280; struct w49 t9281; struct w49 t9282; struct w49 t9283; struct w11873 t9284; struct w36270 t9285; struct w49 t9286; struct structure_type24753 *t9287; struct structure_type24753 *t9288; struct w49 t9289; struct w49 t9290; struct w49 t9291; struct w49 t9292; unsigned t9293; struct structure_type27657 *t9294; struct w49 t9295; struct w49 t9296; struct w49 t9297; struct w49 t9298; struct w36270 t9299; struct w49 t9300; struct structure_type24753 *t9301; struct structure_type24753 *t9302; struct w49 t9303; struct w49 t9304; struct w49 t9305; struct w49 t9306; struct w49 t9307; struct w49 t9308; struct w49 t9309; struct w49 t9310; struct w49 t9311; struct w49 t9312; struct w49 t9313; struct w36270 t9314; struct w49 t9315; struct structure_type24753 *t9316; struct structure_type24753 *t9317; struct w49 t9318; struct w49 t9319; struct w49 t9320; struct w49 t9321; struct w49 t9322; struct w49 t9323; struct w49 t9324; struct w49 t9325; struct w49 t9326; struct w49 t9327; struct w49 t9328; struct w36270 t9329; struct w49 t9330; struct structure_type24753 *t9331; struct structure_type24753 *t9332; struct w49 t9333; struct w49 t9334; struct w49 t9335; struct w49 t9336; struct w49 t9337; unsigned t9338; struct w49 t9339; struct w49 t9340; struct w49 t9341; struct w49 t9342; unsigned t9343; struct structure_type27657 *t9344; struct w49 t9345; /* x226210 stalin.sc:31566:1087368 */ /* x226209 stalin.sc:31654:1090220 */ /* x226208 stalin.sc:31654:1090259 */ /* x226207 stalin.sc:31654:1090272 */ t9345 = a33027; /* x226206 stalin.sc:31654:1090260 */ t9343 = f8793(t9345); /* x226205 stalin.sc:31654:1090221 */ t9344 = (struct structure_type27657 *)t9343; t9148 = f19235(t9344); /* x226204 stalin.sc:31653:1090198 */ /* x226203 stalin.sc:31653:1090214 */ t9342 = a33027; /* x226202 stalin.sc:31653:1090199 */ t9147 = f7960(t9342); /* x226201 stalin.sc:31652:1090180 */ /* x226200 stalin.sc:31652:1090192 */ t9341 = a33027; /* x226199 stalin.sc:31652:1090181 */ t9146 = f7936(t9341); /* x226198 stalin.sc:31648:1090054 */ /* x226191 stalin.sc:31648:1090058 */ /* x226190 stalin.sc:31648:1090082 */ t9335 = a33027; /* x226189 stalin.sc:31648:1090059 */ a37351 = t9335; /* x282073 */ /* x282072 */ t9336 = a37351; /* x282071 */ if (!((t9336.tag)==STRUCTURE_TYPE27908)) goto l3127; /* x226196 stalin.sc:31649:1090092 */ /* x226195 stalin.sc:31650:1090112 */ /* x226194 stalin.sc:31650:1090157 */ t9339 = a33027; /* x226193 stalin.sc:31650:1090113 */ a37301 = t9339; /* x281873 */ /* x281872 */ t9340 = a37301; /* x281871 */ if (!((t9340.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-DISPLACED-VECTOR-TYPE[6375] 32218]"); structure_ref_error();} t9337 = t9340.value.structure_type27908->s0; /* x226192 stalin.sc:31649:1090093 */ t9338 = f7936(t9337); /* MOVE: dispatching squished to general */ if (t9338==FALSE_TYPE) t9145.tag = (unsigned)t9338; else {t9145.tag = FIXNUM_TYPE; t9145.value.fixnum_type = (int)(((int)t9338)>>1);} goto l3128; l3127: /* x226197 stalin.sc:31651:1090168 */ t9145.tag = EXTERNAL_SYMBOL_TYPE; t9145.value.external_symbol_type = q34; l3128: /* x226188 stalin.sc:31643:1089871 */ /* x226172 stalin.sc:31643:1089875 */ /* x226171 stalin.sc:31643:1089899 */ t9326 = a33027; /* x226170 stalin.sc:31643:1089876 */ a37452 = t9326; /* x282477 */ /* x282476 */ t9327 = a37452; /* x282475 */ if (!((t9327.tag)==STRUCTURE_TYPE27669)) goto l3124; /* x226186 stalin.sc:31644:1089909 */ /* x226185 stalin.sc:31646:1089985 */ /* x226184 stalin.sc:31646:1090031 */ t9333 = a33027; /* x226183 stalin.sc:31646:1089986 */ a37385 = t9333; /* x282209 */ /* x282208 */ t9334 = a37385; /* x282207 */ if (!((t9334.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS[6317] 32302]"); structure_ref_error();} t9328 = t9334.value.structure_type27669->s1; /* x226182 stalin.sc:31644:1089914 */ /* x226173 stalin.sc:31644:1089910 */ t9329.tag = NATIVE_PROCEDURE_TYPE16554; t9330 = t9328; t9331 = (struct structure_type24753 *)NULL_TYPE; t9332 = f27731(t9329, t9330, t9331); /* MOVE: branching squeezed to general */ if (t9332>=((struct structure_type24753 *)VALUE_OFFSET)) {t9144.tag = STRUCTURE_TYPE24753; t9144.value.structure_type24753 = t9332;} else t9144.tag = (unsigned)t9332; goto l3125; l3124: /* x226187 stalin.sc:31647:1090042 */ t9144.tag = EXTERNAL_SYMBOL_TYPE; t9144.value.external_symbol_type = q34; l3125: /* x226169 stalin.sc:31640:1089763 */ /* x226162 stalin.sc:31640:1089767 */ /* x226161 stalin.sc:31640:1089791 */ t9320 = a33027; /* x226160 stalin.sc:31640:1089768 */ a37451 = t9320; /* x282473 */ /* x282472 */ t9321 = a37451; /* x282471 */ if (!((t9321.tag)==STRUCTURE_TYPE27669)) goto l3121; /* x226167 stalin.sc:31641:1089801 */ /* x226166 stalin.sc:31641:1089817 */ /* x226165 stalin.sc:31641:1089848 */ t9324 = a33027; /* x226164 stalin.sc:31641:1089818 */ a37396 = t9324; /* x282253 */ /* x282252 */ t9325 = a37396; /* x282251 */ if (!((t9325.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ELEMENT[6309] 32313]"); structure_ref_error();} t9322 = t9325.value.structure_type27669->s0; /* x226163 stalin.sc:31641:1089802 */ a37082 = t9322; /* x280997 */ /* x280996 */ t9323 = a37082; /* x280995 */ if (!((t9323.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31999]"); structure_ref_error();} t9143 = t9323.value.structure_type27650->s4; goto l3122; l3121: /* x226168 stalin.sc:31642:1089859 */ t9143.tag = EXTERNAL_SYMBOL_TYPE; t9143.value.external_symbol_type = q34; l3122: /* x226159 stalin.sc:31636:1089635 */ /* x226151 stalin.sc:31636:1089639 */ /* x226150 stalin.sc:31636:1089660 */ t9311 = a33027; /* x226149 stalin.sc:31636:1089640 */ a37569 = t9311; /* x282945 */ /* x282944 */ t9312 = a37569; /* x282943 */ if (!((t9312.tag)==STRUCTURE_TYPE27761)) goto l3118; /* x226157 stalin.sc:31637:1089670 */ /* x226156 stalin.sc:31638:1089697 */ /* x226155 stalin.sc:31638:1089740 */ t9318 = a33027; /* x226154 stalin.sc:31638:1089698 */ a37493 = t9318; /* x282641 */ /* x282640 */ t9319 = a37493; /* x282639 */ if (!((t9319.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS[6251] 32410]"); structure_ref_error();} t9313 = t9319.value.structure_type27761->s1; /* x226153 stalin.sc:31637:1089675 */ /* x226152 stalin.sc:31637:1089671 */ t9314.tag = NATIVE_PROCEDURE_TYPE7950; t9315 = t9313; t9316 = (struct structure_type24753 *)NULL_TYPE; t9317 = f27731(t9314, t9315, t9316); /* MOVE: branching squeezed to general */ if (t9317>=((struct structure_type24753 *)VALUE_OFFSET)) {t9142.tag = STRUCTURE_TYPE24753; t9142.value.structure_type24753 = t9317;} else t9142.tag = (unsigned)t9317; goto l3119; l3118: /* x226158 stalin.sc:31639:1089751 */ t9142.tag = EXTERNAL_SYMBOL_TYPE; t9142.value.external_symbol_type = q34; l3119: /* x226148 stalin.sc:31633:1089533 */ /* x226141 stalin.sc:31633:1089537 */ /* x226140 stalin.sc:31633:1089558 */ t9305 = a33027; /* x226139 stalin.sc:31633:1089538 */ a37568 = t9305; /* x282941 */ /* x282940 */ t9306 = a37568; /* x282939 */ if (!((t9306.tag)==STRUCTURE_TYPE27761)) goto l3115; /* x226146 stalin.sc:31634:1089568 */ /* x226145 stalin.sc:31634:1089584 */ /* x226144 stalin.sc:31634:1089612 */ t9309 = a33027; /* x226143 stalin.sc:31634:1089585 */ a37509 = t9309; /* x282705 */ /* x282704 */ t9310 = a37509; /* x282703 */ if (!((t9310.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32426]"); structure_ref_error();} t9307 = t9310.value.structure_type27761->s0; /* x226142 stalin.sc:31634:1089569 */ a37050 = t9307; /* x280869 */ /* x280868 */ t9308 = a37050; /* x280867 */ if (!((t9308.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31967]"); structure_ref_error();} t9141 = t9308.value.structure_type27650->s4; goto l3116; l3115: /* x226147 stalin.sc:31635:1089623 */ t9141.tag = EXTERNAL_SYMBOL_TYPE; t9141.value.external_symbol_type = q34; l3116: /* x226138 stalin.sc:31629:1089413 */ /* x226130 stalin.sc:31629:1089417 */ /* x226129 stalin.sc:31629:1089434 */ t9296 = a33027; /* x226128 stalin.sc:31629:1089418 */ a37712 = t9296; /* x283517 */ /* x283516 */ t9297 = a37712; /* x283515 */ if (!((t9297.tag)==STRUCTURE_TYPE27769)) goto l3112; /* x226136 stalin.sc:31630:1089444 */ /* x226135 stalin.sc:31631:1089471 */ /* x226134 stalin.sc:31631:1089510 */ t9303 = a33027; /* x226133 stalin.sc:31631:1089472 */ a37612 = t9303; /* x283117 */ /* x283116 */ t9304 = a37612; /* x283115 */ if (!((t9304.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-ALLOCATING-EXPRESSIONS[6185] 32529]"); structure_ref_error();} t9298 = t9304.value.structure_type27769->s2; /* x226132 stalin.sc:31630:1089449 */ /* x226131 stalin.sc:31630:1089445 */ t9299.tag = NATIVE_PROCEDURE_TYPE7950; t9300 = t9298; t9301 = (struct structure_type24753 *)NULL_TYPE; t9302 = f27731(t9299, t9300, t9301); /* MOVE: branching squeezed to general */ if (t9302>=((struct structure_type24753 *)VALUE_OFFSET)) {t9140.tag = STRUCTURE_TYPE24753; t9140.value.structure_type24753 = t9302;} else t9140.tag = (unsigned)t9302; goto l3113; l3112: /* x226137 stalin.sc:31632:1089521 */ t9140.tag = EXTERNAL_SYMBOL_TYPE; t9140.value.external_symbol_type = q34; l3113: /* x226127 stalin.sc:31625:1089285 */ /* x226120 stalin.sc:31625:1089289 */ /* x226119 stalin.sc:31625:1089306 */ t9291 = a33027; /* x226118 stalin.sc:31625:1089290 */ a37711 = t9291; /* x283513 */ /* x283512 */ t9292 = a37711; /* x283511 */ if (!((t9292.tag)==STRUCTURE_TYPE27769)) goto l3109; /* x226125 stalin.sc:31626:1089316 */ /* x226124 stalin.sc:31627:1089363 */ /* x226123 stalin.sc:31627:1089390 */ t9295 = a33027; /* x226122 stalin.sc:31627:1089364 */ t9293 = f7429(t9295); /* x226121 stalin.sc:31626:1089317 */ t9294 = (struct structure_type27657 *)t9293; t9139 = f19235(t9294); goto l3110; l3109: /* x226126 stalin.sc:31628:1089401 */ t9139 = q34; l3110: /* x226117 stalin.sc:31622:1089189 */ /* x226109 stalin.sc:31622:1089193 */ /* x226108 stalin.sc:31622:1089210 */ t9282 = a33027; /* x226107 stalin.sc:31622:1089194 */ a37710 = t9282; /* x283509 */ /* x283508 */ t9283 = a37710; /* x283507 */ if (!((t9283.tag)==STRUCTURE_TYPE27769)) goto l3106; /* x226115 stalin.sc:31623:1089220 */ /* x226114 stalin.sc:31623:1089240 */ /* x226113 stalin.sc:31623:1089262 */ t9289 = a33027; /* x226112 stalin.sc:31623:1089241 */ a37643 = t9289; /* x283241 */ /* x283240 */ t9290 = a37643; /* x283239 */ if (!((t9290.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32560]"); structure_ref_error();} t9284 = t9290.value.structure_type27769->s1; /* x226111 stalin.sc:31623:1089225 */ /* x226110 stalin.sc:31623:1089221 */ t9285.tag = NATIVE_PROCEDURE_TYPE7725; t9286 = *((struct w49 *)(&t9284)); t9287 = (struct structure_type24753 *)NULL_TYPE; t9288 = f27731(t9285, t9286, t9287); /* MOVE: branching squeezed to general */ if (t9288>=((struct structure_type24753 *)VALUE_OFFSET)) {t9138.tag = STRUCTURE_TYPE24753; t9138.value.structure_type24753 = t9288;} else t9138.tag = (unsigned)t9288; goto l3107; l3106: /* x226116 stalin.sc:31624:1089273 */ t9138.tag = EXTERNAL_SYMBOL_TYPE; t9138.value.external_symbol_type = q34; l3107: /* x226106 stalin.sc:31619:1089084 */ /* x226099 stalin.sc:31619:1089088 */ /* x226098 stalin.sc:31619:1089105 */ t9276 = a33027; /* x226097 stalin.sc:31619:1089089 */ a37709 = t9276; /* x283505 */ /* x283504 */ t9277 = a37709; /* x283503 */ if (!((t9277.tag)==STRUCTURE_TYPE27769)) goto l3103; /* x226104 stalin.sc:31620:1089115 */ /* x226103 stalin.sc:31620:1089145 */ /* x226102 stalin.sc:31620:1089166 */ t9280 = a33027; /* x226101 stalin.sc:31620:1089146 */ a37664 = t9280; /* x283325 */ /* x283324 */ t9281 = a37664; /* x283323 */ if (!((t9281.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-NAME[6169] 32581]"); structure_ref_error();} t9278 = t9281.value.structure_type27769->s0; /* x226100 stalin.sc:31620:1089116 */ t9279 = f19236(t9278); t9137 = *((struct w49 *)(&t9279)); goto l3104; l3103: /* x226105 stalin.sc:31621:1089177 */ t9137.tag = EXTERNAL_SYMBOL_TYPE; t9137.value.external_symbol_type = q34; l3104: /* x226096 stalin.sc:31614:1088921 */ /* x226080 stalin.sc:31614:1088925 */ /* x226079 stalin.sc:31614:1088939 */ t9267 = a33027; /* x226078 stalin.sc:31614:1088926 */ a37783 = t9267; /* x283801 */ /* x283800 */ t9268 = a37783; /* x283799 */ if (!((t9268.tag)==STRUCTURE_TYPE27673)) goto l3100; /* x226094 stalin.sc:31615:1088949 */ /* x226093 stalin.sc:31617:1089025 */ /* x226092 stalin.sc:31617:1089061 */ t9274 = a33027; /* x226091 stalin.sc:31617:1089026 */ a37734 = t9274; /* x283605 */ /* x283604 */ t9275 = a37734; /* x283603 */ if (!((t9275.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-ALLOCATING-EXPRESSIONS[6111] 32651]"); structure_ref_error();} t9269 = t9275.value.structure_type27673->s0; /* x226090 stalin.sc:31615:1088954 */ /* x226081 stalin.sc:31615:1088950 */ t9270.tag = NATIVE_PROCEDURE_TYPE16405; t9271 = t9269; t9272 = (struct structure_type24753 *)NULL_TYPE; t9273 = f27731(t9270, t9271, t9272); /* MOVE: branching squeezed to general */ if (t9273>=((struct structure_type24753 *)VALUE_OFFSET)) {t9136.tag = STRUCTURE_TYPE24753; t9136.value.structure_type24753 = t9273;} else t9136.tag = (unsigned)t9273; goto l3101; l3100: /* x226095 stalin.sc:31618:1089072 */ t9136.tag = EXTERNAL_SYMBOL_TYPE; t9136.value.external_symbol_type = q34; l3101: /* x226077 stalin.sc:31610:1088775 */ /* x226070 stalin.sc:31610:1088779 */ /* x226069 stalin.sc:31610:1088799 */ t9262 = a33027; /* x226068 stalin.sc:31610:1088780 */ a37905 = t9262; /* x284289 */ /* x284288 */ t9263 = a37905; /* x284287 */ if (!((t9263.tag)==STRUCTURE_TYPE27858)) goto l3097; /* x226075 stalin.sc:31611:1088809 */ /* x226074 stalin.sc:31612:1088856 */ /* x226073 stalin.sc:31612:1088898 */ t9266 = a33027; /* x226072 stalin.sc:31612:1088857 */ t9264 = f7374(t9266); /* x226071 stalin.sc:31611:1088810 */ t9265 = (struct structure_type27657 *)t9264; t9135 = f19235(t9265); goto l3098; l3097: /* x226076 stalin.sc:31613:1088909 */ t9135 = q34; l3098: /* x226067 stalin.sc:31606:1088651 */ /* x226060 stalin.sc:31606:1088655 */ /* x226059 stalin.sc:31606:1088675 */ t9256 = a33027; /* x226058 stalin.sc:31606:1088656 */ a37904 = t9256; /* x284285 */ /* x284284 */ t9257 = a37904; /* x284283 */ if (!((t9257.tag)==STRUCTURE_TYPE27858)) goto l3094; /* x226065 stalin.sc:31607:1088685 */ /* x226064 stalin.sc:31608:1088711 */ /* x226063 stalin.sc:31608:1088752 */ t9260 = a33027; /* x226062 stalin.sc:31608:1088712 */ a37843 = t9260; /* x284041 */ /* x284040 */ t9261 = a37843; /* x284039 */ if (!((t9261.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32760]"); structure_ref_error();} t9258 = t9261.value.structure_type27858->s0; /* x226061 stalin.sc:31607:1088686 */ a40131 = t9258; /* x293193 */ /* x293192 */ t9259 = a40131; /* x293191 */ if (!((t9259.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35048]"); structure_ref_error();} /* MOVE: dispatching squished to general */ if ((t9259.value.structure_type27698->s7)==FALSE_TYPE) t9134.tag = (unsigned)(t9259.value.structure_type27698->s7); else {t9134.tag = FIXNUM_TYPE; t9134.value.fixnum_type = (int)(((int)(t9259.value.structure_type27698->s7))>>1);} goto l3095; l3094: /* x226066 stalin.sc:31609:1088763 */ t9134.tag = EXTERNAL_SYMBOL_TYPE; t9134.value.external_symbol_type = q34; l3095: /* x226057 stalin.sc:31602:1088510 */ /* x226050 stalin.sc:31602:1088514 */ /* x226049 stalin.sc:31602:1088539 */ t9251 = a33027; /* x226048 stalin.sc:31602:1088515 */ a37977 = t9251; /* x284577 */ /* x284576 */ t9252 = a37977; /* x284575 */ if (!((t9252.tag)==STRUCTURE_TYPE27750)) goto l3091; /* x226055 stalin.sc:31603:1088549 */ /* x226054 stalin.sc:31604:1088596 */ /* x226053 stalin.sc:31604:1088628 */ t9255 = a33027; /* x226052 stalin.sc:31604:1088597 */ t9253 = f7339(t9255); /* x226051 stalin.sc:31603:1088550 */ t9254 = (struct structure_type27657 *)t9253; t9133 = f19235(t9254); goto l3092; l3091: /* x226056 stalin.sc:31605:1088639 */ t9133 = q34; l3092: /* x226047 stalin.sc:31599:1088418 */ /* x226042 stalin.sc:31599:1088422 */ /* x226041 stalin.sc:31599:1088447 */ t9247 = a33027; /* x226040 stalin.sc:31599:1088423 */ a37976 = t9247; /* x284573 */ /* x284572 */ t9248 = a37976; /* x284571 */ if (!((t9248.tag)==STRUCTURE_TYPE27750)) goto l3088; /* x226045 stalin.sc:31600:1088457 */ /* x226044 stalin.sc:31600:1088488 */ t9249 = a33027; /* x226043 stalin.sc:31600:1088458 */ a37921 = t9249; /* x284353 */ /* x284352 */ t9250 = a37921; /* x284351 */ if (!((t9250.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-RESULT[6011] 32838]"); structure_ref_error();} t9132 = t9250.value.structure_type27750->s2; goto l3089; l3088: /* x226046 stalin.sc:31601:1088498 */ t9132.tag = EXTERNAL_SYMBOL_TYPE; t9132.value.external_symbol_type = q34; l3089: /* x226039 stalin.sc:31596:1088322 */ /* x226034 stalin.sc:31596:1088326 */ /* x226033 stalin.sc:31596:1088351 */ t9243 = a33027; /* x226032 stalin.sc:31596:1088327 */ a37975 = t9243; /* x284569 */ /* x284568 */ t9244 = a37975; /* x284567 */ if (!((t9244.tag)==STRUCTURE_TYPE27750)) goto l3085; /* x226037 stalin.sc:31597:1088361 */ /* x226036 stalin.sc:31597:1088396 */ t9245 = a33027; /* x226035 stalin.sc:31597:1088362 */ a37927 = t9245; /* x284377 */ /* x284376 */ t9246 = a37927; /* x284375 */ if (!((t9246.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-PARAMETERS[6003] 32844]"); structure_ref_error();} t9131 = t9246.value.structure_type27750->s1; goto l3086; l3085: /* x226038 stalin.sc:31598:1088406 */ t9131.tag = EXTERNAL_SYMBOL_TYPE; t9131.value.external_symbol_type = q34; l3086: /* x226031 stalin.sc:31593:1088232 */ /* x226026 stalin.sc:31593:1088236 */ /* x226025 stalin.sc:31593:1088261 */ t9239 = a33027; /* x226024 stalin.sc:31593:1088237 */ a37974 = t9239; /* x284565 */ /* x284564 */ t9240 = a37974; /* x284563 */ if (!((t9240.tag)==STRUCTURE_TYPE27750)) goto l3082; /* x226029 stalin.sc:31594:1088271 */ /* x226028 stalin.sc:31594:1088300 */ t9241 = a33027; /* x226027 stalin.sc:31594:1088272 */ a37931 = t9241; /* x284393 */ /* x284392 */ t9242 = a37931; /* x284391 */ if (!((t9242.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-NAME[5995] 32848]"); structure_ref_error();} t9130 = t9242.value.structure_type27750->s0; goto l3083; l3082: /* x226030 stalin.sc:31595:1088310 */ t9130.tag = EXTERNAL_SYMBOL_TYPE; t9130.value.external_symbol_type = q34; l3083: /* x226023 stalin.sc:31582:1087872 */ /* x225987 stalin.sc:31582:1087876 */ /* x225986 stalin.sc:31582:1087900 */ t9230 = a33027; /* x225985 stalin.sc:31582:1087877 */ a38126 = t9230; /* x285173 */ /* x285172 */ t9231 = a38126; /* x285171 */ if (!((t9231.tag)==STRUCTURE_TYPE27756)) goto l3079; /* x226021 stalin.sc:31583:1087910 */ /* x226020 stalin.sc:31591:1088158 */ /* x226019 stalin.sc:31591:1088209 */ t9237 = a33027; /* x226018 stalin.sc:31591:1088159 */ a38021 = t9237; /* x284753 */ /* x284752 */ t9238 = a38021; /* x284751 */ if (!((t9238.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-CALL-SITE-ENVIRONMENT-ALIST[5945] 32938]"); structure_ref_error();} t9232 = t9238.value.structure_type27756->s0; /* x226017 stalin.sc:31584:1087923 */ /* x225988 stalin.sc:31583:1087911 */ t9233.tag = NATIVE_PROCEDURE_TYPE17765; t9234 = *((struct w49 *)(&t9232)); t9235 = (struct structure_type24753 *)NULL_TYPE; t9236 = f27731(t9233, t9234, t9235); /* MOVE: branching squeezed to general */ if (t9236>=((struct structure_type24753 *)VALUE_OFFSET)) {t9129.tag = STRUCTURE_TYPE24753; t9129.value.structure_type24753 = t9236;} else t9129.tag = (unsigned)t9236; goto l3080; l3079: /* x226022 stalin.sc:31592:1088220 */ t9129.tag = EXTERNAL_SYMBOL_TYPE; t9129.value.external_symbol_type = q34; l3080: /* x225984 stalin.sc:31579:1087773 */ /* x225979 stalin.sc:31579:1087777 */ /* x225978 stalin.sc:31579:1087804 */ t9226 = a33027; /* x225977 stalin.sc:31579:1087778 */ a38233 = t9226; /* x285601 */ /* x285600 */ t9227 = a38233; /* x285599 */ if (!((t9227.tag)==STRUCTURE_TYPE27753)) goto l3076; /* x225982 stalin.sc:31580:1087814 */ /* x225981 stalin.sc:31580:1087850 */ t9228 = a33027; /* x225980 stalin.sc:31580:1087815 */ a38178 = t9228; /* x285381 */ /* x285380 */ t9229 = a38178; /* x285379 */ if (!((t9229.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33095]"); structure_ref_error();} t9128 = t9229.value.structure_type27753->s1; goto l3077; l3076: /* x225983 stalin.sc:31581:1087860 */ t9128.tag = EXTERNAL_SYMBOL_TYPE; t9128.value.external_symbol_type = q34; l3077: /* x225976 stalin.sc:31575:1087640 */ /* x225969 stalin.sc:31575:1087644 */ /* x225968 stalin.sc:31575:1087671 */ t9220 = a33027; /* x225967 stalin.sc:31575:1087645 */ a38232 = t9220; /* x285597 */ /* x285596 */ t9221 = a38232; /* x285595 */ if (!((t9221.tag)==STRUCTURE_TYPE27753)) goto l3073; /* x225974 stalin.sc:31576:1087681 */ /* x225973 stalin.sc:31577:1087719 */ /* x225972 stalin.sc:31577:1087750 */ t9224 = a33027; /* x225971 stalin.sc:31577:1087720 */ a38192 = t9224; /* x285437 */ /* x285436 */ t9225 = a38192; /* x285435 */ if (!((t9225.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-NAME[5895] 33109]"); structure_ref_error();} t9222 = t9225.value.structure_type27753->s0; /* x225970 stalin.sc:31576:1087682 */ t9223 = f19236(t9222); t9127 = *((struct w49 *)(&t9223)); goto l3074; l3073: /* x225975 stalin.sc:31578:1087761 */ t9127.tag = EXTERNAL_SYMBOL_TYPE; t9127.value.external_symbol_type = q34; l3074: /* x225966 stalin.sc:31571:1087516 */ /* x225959 stalin.sc:31571:1087520 */ /* x225958 stalin.sc:31571:1087543 */ t9214 = a33027; /* x225957 stalin.sc:31571:1087521 */ a38292 = t9214; /* x285837 */ /* x285836 */ t9215 = a38292; /* x285835 */ if (!((t9215.tag)==STRUCTURE_TYPE27779)) goto l3070; /* x225964 stalin.sc:31572:1087553 */ /* x225963 stalin.sc:31573:1087573 */ /* x225962 stalin.sc:31573:1087617 */ t9218 = a33027; /* x225961 stalin.sc:31573:1087574 */ a38257 = t9218; /* x285697 */ /* x285696 */ t9219 = a38257; /* x285695 */ if (!((t9219.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-DISPLACED-STRING-TYPE[5845] 33174]"); structure_ref_error();} t9216 = t9219.value.structure_type27779->s0; /* x225960 stalin.sc:31572:1087554 */ t9217 = f7936(t9216); /* MOVE: dispatching squished to general */ if (t9217==FALSE_TYPE) t9126.tag = (unsigned)t9217; else {t9126.tag = FIXNUM_TYPE; t9126.value.fixnum_type = (int)(((int)t9217)>>1);} goto l3071; l3070: /* x225965 stalin.sc:31574:1087628 */ t9126.tag = EXTERNAL_SYMBOL_TYPE; t9126.value.external_symbol_type = q34; l3071: /* x225956 stalin.sc:31567:1087391 */ /* x225949 stalin.sc:31567:1087395 */ /* x225948 stalin.sc:31567:1087418 */ t9208 = a33027; /* x225947 stalin.sc:31567:1087396 */ a38332 = t9208; /* x285997 */ /* x285996 */ t9209 = a38332; /* x285995 */ if (!((t9209.tag)==STRUCTURE_TYPE27776)) goto l3067; /* x225954 stalin.sc:31568:1087428 */ /* x225953 stalin.sc:31569:1087466 */ /* x225952 stalin.sc:31569:1087493 */ t9212 = a33027; /* x225951 stalin.sc:31569:1087467 */ a38306 = t9212; /* x285893 */ /* x285892 */ t9213 = a38306; /* x285891 */ if (!((t9213.tag)==STRUCTURE_TYPE27776)) {backtrace_internal("[clone INTERNAL-SYMBOL-TYPE-NAME[5803] 33223]"); structure_ref_error();} t9210 = t9213.value.structure_type27776->s0; /* x225950 stalin.sc:31568:1087429 */ t9211 = f19236(t9210); t9125 = *((struct w49 *)(&t9211)); goto l3068; l3067: /* x225955 stalin.sc:31570:1087504 */ t9125.tag = EXTERNAL_SYMBOL_TYPE; t9125.value.external_symbol_type = q34; l3068: /* x225946 stalin.sc:31566:1087374 */ /* x225945 stalin.sc:31566:1087385 */ t9173 = a33027; /* x225944 stalin.sc:31566:1087375 */ a33019 = t9173; /* x225637 stalin.sc:31423:1081902 */ /* x225482 stalin.sc:31423:1081909 */ /* x225481 stalin.sc:31423:1081921 */ t9174 = a33019; /* x225480 stalin.sc:31423:1081910 */ if (f7677(t9174)==FALSE_TYPE) goto l3001; /* x225485 */ /* x225484 */ /* x225483 stalin.sc:31423:1081924 */ t9124 = q772; goto l3002; l3001: /* x225636 */ /* x225488 stalin.sc:31424:1081944 */ /* x225487 stalin.sc:31424:1081956 */ t9175 = a33019; /* x225486 stalin.sc:31424:1081945 */ if (f7678(t9175)==FALSE_TYPE) goto l3004; /* x225491 */ /* x225490 */ /* x225489 stalin.sc:31424:1081959 */ t9124 = q773; goto l3005; l3004: /* x225635 */ /* x225494 stalin.sc:31425:1081979 */ /* x225493 stalin.sc:31425:1081992 */ t9176 = a33019; /* x225492 stalin.sc:31425:1081980 */ if (f7679(t9176)==FALSE_TYPE) goto l3007; /* x225497 */ /* x225496 */ /* x225495 stalin.sc:31425:1081995 */ t9124 = q774; goto l3008; l3007: /* x225634 */ /* x225500 stalin.sc:31426:1082016 */ /* x225499 stalin.sc:31426:1082028 */ t9177 = a33019; /* x225498 stalin.sc:31426:1082017 */ if (f7682(t9177)==FALSE_TYPE) goto l3010; /* x225503 */ /* x225502 */ /* x225501 stalin.sc:31426:1082031 */ t9124 = q775; goto l3011; l3010: /* x225633 */ /* x225506 stalin.sc:31427:1082051 */ /* x225505 stalin.sc:31427:1082065 */ t9178 = a33019; /* x225504 stalin.sc:31427:1082052 */ if (f7683(t9178)==FALSE_TYPE) goto l3013; /* x225509 */ /* x225508 */ /* x225507 stalin.sc:31427:1082068 */ t9124 = q776; goto l3014; l3013: /* x225632 */ /* x225512 stalin.sc:31428:1082090 */ /* x225511 stalin.sc:31428:1082104 */ t9179 = a33019; /* x225510 stalin.sc:31428:1082091 */ if (f7684(t9179)==FALSE_TYPE) goto l3016; /* x225515 */ /* x225514 */ /* x225513 stalin.sc:31428:1082107 */ t9124 = q777; goto l3017; l3016: /* x225631 */ /* x225518 stalin.sc:31429:1082129 */ /* x225517 stalin.sc:31429:1082148 */ t9180 = a33019; /* x225516 stalin.sc:31429:1082130 */ if (f7687(t9180)==FALSE_TYPE) goto l3019; /* x225521 */ /* x225520 */ /* x225519 stalin.sc:31429:1082151 */ t9124 = q778; goto l3020; l3019: /* x225630 */ /* x225524 stalin.sc:31430:1082178 */ /* x225523 stalin.sc:31430:1082196 */ t9181 = a33019; /* x225522 stalin.sc:31430:1082179 */ if (f7700(t9181)==FALSE_TYPE) goto l3022; /* x225527 */ /* x225526 */ /* x225525 stalin.sc:31430:1082199 */ t9124 = q779; goto l3023; l3022: /* x225629 */ /* x225530 stalin.sc:31431:1082225 */ /* x225529 stalin.sc:31431:1082244 */ t9182 = a33019; /* x225528 stalin.sc:31431:1082226 */ if (f7701(t9182)==FALSE_TYPE) goto l3025; /* x225533 */ /* x225532 */ /* x225531 stalin.sc:31431:1082247 */ t9124 = q780; goto l3026; l3025: /* x225628 */ /* x225536 stalin.sc:31432:1082274 */ /* x225535 stalin.sc:31432:1082292 */ t9183 = a33019; /* x225534 stalin.sc:31432:1082275 */ if (f7702(t9183)==FALSE_TYPE) goto l3028; /* x225539 */ /* x225538 */ /* x225537 stalin.sc:31432:1082295 */ t9124 = q781; goto l3029; l3028: /* x225627 */ /* x225542 stalin.sc:31433:1082321 */ /* x225541 stalin.sc:31433:1082336 */ t9184 = a33019; /* x225540 stalin.sc:31433:1082322 */ if (f7703(t9184)==FALSE_TYPE) goto l3031; /* x225545 */ /* x225544 */ /* x225543 stalin.sc:31433:1082339 */ t9124 = q782; goto l3032; l3031: /* x225626 */ /* x225548 stalin.sc:31434:1082362 */ /* x225547 stalin.sc:31434:1082385 */ t9185 = a33019; /* x225546 stalin.sc:31434:1082363 */ a38331 = t9185; /* x285993 */ /* x285992 */ t9186 = a38331; /* x285991 */ if (!((t9186.tag)==STRUCTURE_TYPE27776)) goto l3034; /* x225551 */ /* x225550 */ /* x225549 stalin.sc:31434:1082388 */ t9124 = q783; goto l3035; l3034: /* x225625 */ /* x225554 stalin.sc:31435:1082419 */ /* x225553 stalin.sc:31435:1082442 */ t9187 = a33019; /* x225552 stalin.sc:31435:1082420 */ a38291 = t9187; /* x285833 */ /* x285832 */ t9188 = a38291; /* x285831 */ if (!((t9188.tag)==STRUCTURE_TYPE27779)) goto l3037; /* x225557 */ /* x225556 */ /* x225555 stalin.sc:31435:1082445 */ t9124 = q784; goto l3038; l3037: /* x225624 */ /* x225560 stalin.sc:31436:1082476 */ /* x225559 stalin.sc:31436:1082503 */ t9189 = a33019; /* x225558 stalin.sc:31436:1082477 */ a38231 = t9189; /* x285593 */ /* x285592 */ t9190 = a38231; /* x285591 */ if (!((t9190.tag)==STRUCTURE_TYPE27753)) goto l3040; /* x225563 */ /* x225562 */ /* x225561 stalin.sc:31436:1082506 */ t9124 = q785; goto l3041; l3040: /* x225623 */ /* x225566 stalin.sc:31437:1082541 */ /* x225565 stalin.sc:31437:1082565 */ t9191 = a33019; /* x225564 stalin.sc:31437:1082542 */ a38125 = t9191; /* x285169 */ /* x285168 */ t9192 = a38125; /* x285167 */ if (!((t9192.tag)==STRUCTURE_TYPE27756)) goto l3043; /* x225569 */ /* x225568 */ /* x225567 stalin.sc:31437:1082568 */ t9124 = q786; goto l3044; l3043: /* x225622 */ /* x225572 stalin.sc:31438:1082600 */ /* x225571 stalin.sc:31438:1082625 */ t9193 = a33019; /* x225570 stalin.sc:31438:1082601 */ a37973 = t9193; /* x284561 */ /* x284560 */ t9194 = a37973; /* x284559 */ if (!((t9194.tag)==STRUCTURE_TYPE27750)) goto l3046; /* x225575 */ /* x225574 */ /* x225573 stalin.sc:31438:1082628 */ t9124 = q787; goto l3047; l3046: /* x225621 */ /* x225578 stalin.sc:31439:1082661 */ /* x225577 stalin.sc:31439:1082681 */ t9195 = a33019; /* x225576 stalin.sc:31439:1082662 */ a37903 = t9195; /* x284281 */ /* x284280 */ t9196 = a37903; /* x284279 */ if (!((t9196.tag)==STRUCTURE_TYPE27858)) goto l3049; /* x225581 */ /* x225580 */ /* x225579 stalin.sc:31439:1082684 */ t9124 = q788; goto l3050; l3049: /* x225620 */ /* x225584 stalin.sc:31440:1082712 */ /* x225583 stalin.sc:31440:1082726 */ t9197 = a33019; /* x225582 stalin.sc:31440:1082713 */ a37782 = t9197; /* x283797 */ /* x283796 */ t9198 = a37782; /* x283795 */ if (!((t9198.tag)==STRUCTURE_TYPE27673)) goto l3052; /* x225587 */ /* x225586 */ /* x225585 stalin.sc:31440:1082729 */ t9124 = q789; goto l3053; l3052: /* x225619 */ /* x225590 stalin.sc:31441:1082751 */ /* x225589 stalin.sc:31441:1082768 */ t9199 = a33019; /* x225588 stalin.sc:31441:1082752 */ a37708 = t9199; /* x283501 */ /* x283500 */ t9200 = a37708; /* x283499 */ if (!((t9200.tag)==STRUCTURE_TYPE27769)) goto l3055; /* x225593 */ /* x225592 */ /* x225591 stalin.sc:31441:1082771 */ t9124 = q790; goto l3056; l3055: /* x225618 */ /* x225596 stalin.sc:31442:1082796 */ /* x225595 stalin.sc:31442:1082817 */ t9201 = a33019; /* x225594 stalin.sc:31442:1082797 */ a37567 = t9201; /* x282937 */ /* x282936 */ t9202 = a37567; /* x282935 */ if (!((t9202.tag)==STRUCTURE_TYPE27761)) goto l3058; /* x225599 */ /* x225598 */ /* x225597 stalin.sc:31442:1082820 */ t9124 = q791; goto l3059; l3058: /* x225617 */ /* x225602 stalin.sc:31443:1082849 */ /* x225601 stalin.sc:31443:1082873 */ t9203 = a33019; /* x225600 stalin.sc:31443:1082850 */ a37450 = t9203; /* x282469 */ /* x282468 */ t9204 = a37450; /* x282467 */ if (!((t9204.tag)==STRUCTURE_TYPE27669)) goto l3061; /* x225605 */ /* x225604 */ /* x225603 stalin.sc:31443:1082876 */ t9124 = q792; goto l3062; l3061: /* x225616 */ /* x225608 stalin.sc:31444:1082908 */ /* x225607 stalin.sc:31444:1082932 */ t9205 = a33019; /* x225606 stalin.sc:31444:1082909 */ a37350 = t9205; /* x282069 */ /* x282068 */ t9206 = a37350; /* x282067 */ if (!((t9206.tag)==STRUCTURE_TYPE27908)) goto l3064; /* x225611 */ /* x225610 */ /* x225609 stalin.sc:31444:1082935 */ t9124 = q793; goto l3065; l3064: /* x225615 */ /* x225614 */ /* x225613 stalin.sc:31445:1082972 */ /* x225612 stalin.sc:31445:1082973 */ /* x297437 QobiScheme.sc:166:5314 */ /* x297436 QobiScheme.sc:166:5321 */ t9207 = "This shouldn\'t happen"; /* x297435 QobiScheme.sc:166:5315 */ stalin_panic(t9207); l3065: l3062: l3059: l3056: l3053: l3050: l3047: l3044: l3041: l3038: l3035: l3032: l3029: l3026: l3023: l3020: l3017: l3014: l3011: l3008: l3005: l3002: /* x225943 stalin.sc:31566:1087369 */ t9172.tag = STRUCTURE_TYPE24753; t9172.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9172.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9172.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t9172.value.structure_type24753->s0.value.external_symbol_type = t9148; t9172.value.structure_type24753->s1.tag = NULL_TYPE; t9171.tag = STRUCTURE_TYPE24753; t9171.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9171.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t9147==FALSE_TYPE) t9171.value.structure_type24753->s0.tag = (unsigned)t9147; else {t9171.value.structure_type24753->s0.tag = FIXNUM_TYPE; t9171.value.structure_type24753->s0.value.fixnum_type = (int)(((int)t9147)>>1);} t9171.value.structure_type24753->s1 = t9172; t9170.tag = STRUCTURE_TYPE24753; t9170.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9170.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t9146==FALSE_TYPE) t9170.value.structure_type24753->s0.tag = (unsigned)t9146; else {t9170.value.structure_type24753->s0.tag = FIXNUM_TYPE; t9170.value.structure_type24753->s0.value.fixnum_type = (int)(((int)t9146)>>1);} t9170.value.structure_type24753->s1 = t9171; t9169.tag = STRUCTURE_TYPE24753; t9169.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9169.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9169.value.structure_type24753->s0 = *((struct w49 *)(&t9145)); t9169.value.structure_type24753->s1 = t9170; t9168.tag = STRUCTURE_TYPE24753; t9168.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9168.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9168.value.structure_type24753->s0 = *((struct w49 *)(&t9144)); t9168.value.structure_type24753->s1 = t9169; t9167.tag = STRUCTURE_TYPE24753; t9167.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9167.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9167.value.structure_type24753->s0 = *((struct w49 *)(&t9143)); t9167.value.structure_type24753->s1 = t9168; t9166.tag = STRUCTURE_TYPE24753; t9166.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9166.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9166.value.structure_type24753->s0 = *((struct w49 *)(&t9142)); t9166.value.structure_type24753->s1 = t9167; t9165.tag = STRUCTURE_TYPE24753; t9165.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9165.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9165.value.structure_type24753->s0 = *((struct w49 *)(&t9141)); t9165.value.structure_type24753->s1 = t9166; t9164.tag = STRUCTURE_TYPE24753; t9164.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9164.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9164.value.structure_type24753->s0 = *((struct w49 *)(&t9140)); t9164.value.structure_type24753->s1 = t9165; t9163.tag = STRUCTURE_TYPE24753; t9163.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9163.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9163.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t9163.value.structure_type24753->s0.value.external_symbol_type = t9139; t9163.value.structure_type24753->s1 = t9164; t9162.tag = STRUCTURE_TYPE24753; t9162.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9162.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9162.value.structure_type24753->s0 = *((struct w49 *)(&t9138)); t9162.value.structure_type24753->s1 = t9163; t9161.tag = STRUCTURE_TYPE24753; t9161.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9161.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9161.value.structure_type24753->s0 = t9137; t9161.value.structure_type24753->s1 = t9162; t9160.tag = STRUCTURE_TYPE24753; t9160.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9160.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9160.value.structure_type24753->s0 = *((struct w49 *)(&t9136)); t9160.value.structure_type24753->s1 = t9161; t9159.tag = STRUCTURE_TYPE24753; t9159.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9159.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9159.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t9159.value.structure_type24753->s0.value.external_symbol_type = t9135; t9159.value.structure_type24753->s1 = t9160; t9158.tag = STRUCTURE_TYPE24753; t9158.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9158.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9158.value.structure_type24753->s0 = *((struct w49 *)(&t9134)); t9158.value.structure_type24753->s1 = t9159; t9157.tag = STRUCTURE_TYPE24753; t9157.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9157.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9157.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t9157.value.structure_type24753->s0.value.external_symbol_type = t9133; t9157.value.structure_type24753->s1 = t9158; t9156.tag = STRUCTURE_TYPE24753; t9156.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9156.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9156.value.structure_type24753->s0 = t9132; t9156.value.structure_type24753->s1 = t9157; t9155.tag = STRUCTURE_TYPE24753; t9155.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9155.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9155.value.structure_type24753->s0 = t9131; t9155.value.structure_type24753->s1 = t9156; t9154.tag = STRUCTURE_TYPE24753; t9154.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9154.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9154.value.structure_type24753->s0 = t9130; t9154.value.structure_type24753->s1 = t9155; t9153.tag = STRUCTURE_TYPE24753; t9153.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9153.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9153.value.structure_type24753->s0 = *((struct w49 *)(&t9129)); t9153.value.structure_type24753->s1 = t9154; t9152.tag = STRUCTURE_TYPE24753; t9152.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9152.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9152.value.structure_type24753->s0 = t9128; t9152.value.structure_type24753->s1 = t9153; t9151.tag = STRUCTURE_TYPE24753; t9151.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9151.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9151.value.structure_type24753->s0 = t9127; t9151.value.structure_type24753->s1 = t9152; t9150.tag = STRUCTURE_TYPE24753; t9150.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9150.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9150.value.structure_type24753->s0 = *((struct w49 *)(&t9126)); t9150.value.structure_type24753->s1 = t9151; t9149.tag = STRUCTURE_TYPE24753; t9149.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9149.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} t9149.value.structure_type24753->s0 = t9125; t9149.value.structure_type24753->s1 = t9150; a35236 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35236==NULL) {backtrace("stalin.sc", 31566, 1087368); out_of_memory_error();} a35236->s0.tag = EXTERNAL_SYMBOL_TYPE; a35236->s0.value.external_symbol_type = t9124; a35236->s1 = t9149; /* x272479 */ return a35236;} /* [inside WRITE-DATABASE 19280] */ struct structure_type24753 *f19280(struct w49 a33026) {struct structure_type24753 *r19280; struct w49 a20528; /* S */ struct w49 a24999; /* E */ struct w49 a36752; /* OBJ */ unsigned t9346; struct w7121 t9347; struct w49 t9348; struct w49 t9349; struct w49 t9350; struct w49 t9351; struct w49 t9352; struct w49 t9353; struct w49 t9354; struct w49 t9355; struct w49 t9356; struct w49 t9357; char *t9358; struct w49 t9359; struct w49 t9360; struct w49 t9361; /* x225929 stalin.sc:31534:1086161 */ /* x225893 stalin.sc:31535:1086173 */ /* x225892 stalin.sc:31535:1086185 */ /* x225891 stalin.sc:31535:1086190 */ t9349 = a33026; /* x267592 stalin.sc:31535:1086186 */ if (!((t9349.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 31535, 1086185); structure_ref_error();} t9348 = t9349.value.structure_type24753->s0; /* x225889 stalin.sc:31535:1086174 */ t9346 = f7936(t9348); /* x225928 stalin.sc:31536:1086202 */ /* x225898 stalin.sc:31536:1086209 */ /* x225897 stalin.sc:31536:1086229 */ /* x225896 stalin.sc:31536:1086234 */ t9353 = a33026; /* x267591 stalin.sc:31536:1086230 */ if (!((t9353.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 31536, 1086229); structure_ref_error();} t9350 = t9353.value.structure_type24753->s1; /* x225894 stalin.sc:31536:1086210 */ a24999 = t9350; /* x116122 stalin.sc:13171:462008 */ /* x116121 stalin.sc:13171:462022 */ t9351 = a24999; /* x116120 stalin.sc:13171:462009 */ a36752 = t9351; /* x279677 */ /* x279676 */ t9352 = a36752; /* x279675 */ if (!((t9352.tag)==STRUCTURE_TYPE27694)) goto l3130; /* x225905 */ /* x225904 */ /* x225903 stalin.sc:31537:1086246 */ /* x225902 stalin.sc:31537:1086265 */ /* x225901 stalin.sc:31537:1086270 */ t9361 = a33026; /* x267590 stalin.sc:31537:1086266 */ if (!((t9361.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 31537, 1086265); structure_ref_error();} t9359 = t9361.value.structure_type24753->s1; /* x225899 stalin.sc:31537:1086247 */ a20528 = t9359; /* x55340 */ /* x55339 */ t9360 = a20528; /* x55338 */ if (!((t9360.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("ENVIRONMENT-INDEX[6631]"); structure_ref_error();} /* MOVE: dispatching squished to general */ if ((t9360.value.structure_type27694->s0)==FALSE_TYPE) t9347.tag = (unsigned)(t9360.value.structure_type27694->s0); else {t9347.tag = FIXNUM_TYPE; t9347.value.fixnum_type = (int)(((int)(t9360.value.structure_type27694->s0))>>1);} goto l3131; l3130: /* x225927 */ /* x225910 stalin.sc:31538:1086283 */ /* x225909 stalin.sc:31538:1086302 */ /* x225908 stalin.sc:31538:1086307 */ t9355 = a33026; /* x267589 stalin.sc:31538:1086303 */ if (!((t9355.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 31538, 1086302); structure_ref_error();} t9354 = t9355.value.structure_type24753->s1; /* x225906 stalin.sc:31538:1086284 */ if (f13034(t9354)==FALSE_TYPE) goto l3133; /* x225913 */ /* x225912 */ /* x225911 stalin.sc:31538:1086313 */ t9347.tag = EXTERNAL_SYMBOL_TYPE; t9347.value.external_symbol_type = q186; goto l3134; l3133: /* x225926 */ /* x225918 stalin.sc:31539:1086327 */ /* x225917 stalin.sc:31539:1086345 */ /* x225916 stalin.sc:31539:1086350 */ t9357 = a33026; /* x267588 stalin.sc:31539:1086346 */ if (!((t9357.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 31539, 1086345); structure_ref_error();} t9356 = t9357.value.structure_type24753->s1; /* x225914 stalin.sc:31539:1086328 */ if (f13035(t9356)==FALSE_TYPE) goto l3136; /* x225921 */ /* x225920 */ /* x225919 stalin.sc:31539:1086356 */ t9347.tag = EXTERNAL_SYMBOL_TYPE; t9347.value.external_symbol_type = q187; goto l3137; l3136: /* x225925 */ /* x225924 */ /* x225923 stalin.sc:31540:1086374 */ /* x225922 stalin.sc:31540:1086375 */ /* x295189 QobiScheme.sc:166:5314 */ /* x295188 QobiScheme.sc:166:5321 */ t9358 = "This shouldn\'t happen"; /* x295187 QobiScheme.sc:166:5315 */ stalin_panic(t9358); l3137: l3134: l3131: /* x267593 stalin.sc:31534:1086162 */ r19280 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r19280==NULL) {backtrace("stalin.sc", 31534, 1086161); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t9346==FALSE_TYPE) r19280->s0.tag = (unsigned)t9346; else {r19280->s0.tag = FIXNUM_TYPE; r19280->s0.value.fixnum_type = (int)(((int)t9346)>>1);} r19280->s1 = *((struct w49 *)(&t9347)); return r19280;} /* [inside WRITE-DATABASE 19269] */ struct structure_type24753 *f19269(struct w49 a33025) {struct structure_type24753 *a35111; /* OBJS */ struct w49 a36742; /* S */ struct w9140 a36743; /* S */ struct w9140 a36771; /* OBJ */ struct w49 a37003; /* S */ struct w49 a37081; /* S */ struct w49 a38488; /* S */ struct w49 a38602; /* S */ struct w49 a38605; /* S */ struct w49 a38866; /* S */ struct w49 a38875; /* S */ struct w49 a38929; /* S */ struct w49 a38931; /* S */ struct w49 a38984; /* S */ struct w49 a38986; /* S */ struct w49 a39046; /* S */ struct w49 a39050; /* S */ struct w49 a39088; /* S */ struct w49 a39091; /* S */ struct w49 a39183; /* S */ struct w49 a39187; /* S */ struct w49 a39238; /* S */ struct w49 a39422; /* S */ struct w49 a39460; /* S */ struct w49 a39461; /* S */ struct w49 a39464; /* S */ struct w49 a39503; /* S */ struct w49 a39504; /* S */ struct w49 a39505; /* S */ struct w49 a39516; /* S */ struct w49 a39810; /* S */ struct w49 a39829; /* S */ struct w49 a40023; /* S */ struct w49 a40110; /* S */ struct w49 a40121; /* S */ struct w49 a40137; /* S */ struct w49 a40139; /* S */ struct w49 a40140; /* S */ struct w49 a40141; /* S */ struct w49 a40142; /* S */ struct w49 a40143; /* S */ struct w49 a40144; /* S */ struct w49 a40148; /* S */ struct w49 a40157; /* S */ struct w49 a40173; /* S */ struct w49 a40189; /* S */ struct w49 a40212; /* S */ struct w49 a40412; /* S */ char *t9362; struct w49 t9363; struct w7121 t9364; struct w7121 t9365; struct w7121 t9366; unsigned t9367; struct w7121 t9368; struct w7121 t9369; struct w7121 t9370; struct w7121 t9371; struct w64676 t9372; struct w7121 t9373; struct w7121 t9374; struct w7121 t9375; struct w7121 t9376; struct w7121 t9377; struct w7121 t9378; struct w7121 t9379; struct w3457 t9380; struct structure_type24753 *t9381; struct w49 t9382; struct w49 t9383; struct w49 t9384; struct w49 t9385; struct w49 t9386; struct w49 t9387; struct w49 t9388; struct w49 t9389; struct w49 t9390; struct w49 t9391; struct w49 t9392; struct w49 t9393; struct w49 t9394; struct w49 t9395; struct w49 t9396; struct w49 t9397; struct w49 t9398; struct w49 t9399; struct w49 t9400; struct w49 t9401; struct w49 t9402; struct w49 t9403; struct w49 t9404; struct w49 t9405; struct w49 t9406; struct w49 t9407; struct w49 t9408; struct w49 t9409; struct w49 t9410; struct w49 t9411; struct w49 t9412; struct w49 t9413; struct w49 t9414; struct w49 t9415; struct w49 t9416; struct w49 t9417; struct w49 t9418; struct w49 t9419; struct w49 t9420; struct w49 t9421; struct w49 t9422; struct w49 t9423; struct w49 t9424; struct w49 t9425; struct w49 t9426; struct w49 t9427; struct w49 t9428; struct w9140 t9429; char *t9430; struct w49 t9431; struct w49 t9432; struct w9140 t9433; char *t9434; struct w49 t9435; struct w49 t9436; struct w9140 t9437; struct w9140 t9438; struct w49 t9439; struct w49 t9440; struct w9140 t9441; struct w9140 t9442; struct w49 t9443; struct w49 t9444; struct w9296 t9445; char *t9446; struct w49 t9447; struct w49 t9448; struct w9296 t9449; char *t9450; struct w49 t9451; struct w49 t9452; struct w9296 t9453; struct w49 t9454; unsigned t9455; struct w49 t9456; struct w49 t9457; struct w49 t9458; char *t9459; struct w49 t9460; struct w49 t9461; struct w49 t9462; struct w49 t9463; struct w49 t9464; struct w49 t9465; struct w49 t9466; struct w49 t9467; char *t9468; struct w49 t9469; struct w49 t9470; struct w49 t9471; struct w49 t9472; struct w49 t9473; struct w49 t9474; struct w49 t9475; char *t9476; struct w49 t9477; struct w49 t9478; struct w49 t9479; struct w49 t9480; struct w49 t9481; struct w49 t9482; struct w49 t9483; char *t9484; struct w49 t9485; struct w49 t9486; struct w49 t9487; struct w49 t9488; struct w49 t9489; struct w49 t9490; struct w49 t9491; char *t9492; struct w49 t9493; struct w49 t9494; struct w49 t9495; struct w49 t9496; struct w49 t9497; struct w49 t9498; struct w49 t9499; char *t9500; struct w49 t9501; struct w49 t9502; struct w49 t9503; struct w49 t9504; struct w49 t9505; struct w49 t9506; struct w49 t9507; char *t9508; struct w49 t9509; struct w49 t9510; struct w49 t9511; struct w49 t9512; struct w49 t9513; struct w49 t9514; struct w11873 t9515; char *t9516; struct w49 t9517; struct w49 t9518; struct w11873 t9519; struct w36270 t9520; struct w49 t9521; struct structure_type24753 *t9522; struct structure_type24753 *t9523; struct w49 t9524; struct w49 t9525; struct w12224 t9526; struct w36270 t9527; struct w49 t9528; struct structure_type24753 *t9529; struct w49 t9530; struct w49 t9531; /* x225935 stalin.sc:31477:1084013 */ /* x225934 stalin.sc:31533:1086137 */ /* x225933 stalin.sc:31541:1086392 */ /* x225932 stalin.sc:31541:1086426 */ t9530 = a33025; /* x225931 stalin.sc:31541:1086393 */ a38488 = t9530; /* x286621 */ /* x286620 */ t9531 = a38488; /* x286619 */ if (!((t9531.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-ALLOCATION-ALIST[5687] 33405]"); structure_ref_error();} t9526 = t9531.value.structure_type27698->s25; /* x225930 stalin.sc:31533:1086142 */ /* x225887 stalin.sc:31533:1086138 */ t9527.tag = NATIVE_PROCEDURE_TYPE14985; t9528 = *((struct w49 *)(&t9526)); t9529 = (struct structure_type24753 *)NULL_TYPE; t9381 = f27731(t9527, t9528, t9529); /* x225886 stalin.sc:31530:1086024 */ /* x225878 stalin.sc:31530:1086028 */ /* x225875 stalin.sc:31530:1086033 */ /* x225874 stalin.sc:31530:1086055 */ t9517 = a33025; /* x225873 stalin.sc:31530:1086034 */ a38605 = t9517; /* x287089 */ /* x287088 */ t9518 = a38605; /* x287087 */ if (!((t9518.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33522]"); structure_ref_error();} t9515 = t9518.value.structure_type27698->s22; /* x225877 stalin.sc:31530:1086058 */ /* x225876 stalin.sc:31530:1086059 */ /* x278043 stalin.sc:321:8572 */ t9516 = q34; /* x267594 stalin.sc:31530:1086029 */ if (!(((t9515.tag)==EXTERNAL_SYMBOL_TYPE)&&((t9515.value.external_symbol_type)==t9516))) goto l3184; /* x225879 stalin.sc:31531:1086071 */ t9380.tag = EXTERNAL_SYMBOL_TYPE; t9380.value.external_symbol_type = q34; goto l3185; l3184: /* x225885 stalin.sc:31532:1086082 */ /* x225884 stalin.sc:31532:1086104 */ /* x225883 stalin.sc:31532:1086126 */ t9524 = a33025; /* x225882 stalin.sc:31532:1086105 */ a38602 = t9524; /* x287077 */ /* x287076 */ t9525 = a38602; /* x287075 */ if (!((t9525.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33519]"); structure_ref_error();} t9519 = t9525.value.structure_type27698->s22; /* x225881 stalin.sc:31532:1086087 */ /* x225880 stalin.sc:31532:1086083 */ t9520.tag = NATIVE_PROCEDURE_TYPE7950; t9521 = *((struct w49 *)(&t9519)); t9522 = (struct structure_type24753 *)NULL_TYPE; t9523 = f27731(t9520, t9521, t9522); /* MOVE: branching squeezed to general */ if (t9523>=((struct structure_type24753 *)VALUE_OFFSET)) {t9380.tag = STRUCTURE_TYPE24753; t9380.value.structure_type24753 = t9523;} else t9380.tag = (unsigned)t9523; l3185: /* x225871 stalin.sc:31526:1085889 */ /* x225864 stalin.sc:31526:1085893 */ /* x225861 stalin.sc:31526:1085898 */ /* x225860 stalin.sc:31526:1085917 */ t9509 = a33025; /* x225859 stalin.sc:31526:1085899 */ a38875 = t9509; /* x288169 */ /* x288168 */ t9510 = a38875; /* x288167 */ if (!((t9510.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33792]"); structure_ref_error();} t9507 = t9510.value.structure_type27698->s21; /* x225863 stalin.sc:31526:1085920 */ /* x225862 stalin.sc:31526:1085921 */ /* x278041 stalin.sc:321:8572 */ t9508 = q34; /* x267595 stalin.sc:31526:1085894 */ if (!(((t9507.tag)==EXTERNAL_SYMBOL_TYPE)&&((t9507.value.external_symbol_type)==t9508))) goto l3181; /* x225865 stalin.sc:31527:1085933 */ t9379.tag = EXTERNAL_SYMBOL_TYPE; t9379.value.external_symbol_type = q34; goto l3182; l3181: /* x225870 stalin.sc:31528:1085944 */ /* x225869 stalin.sc:31528:1085962 */ /* x225868 stalin.sc:31528:1085981 */ t9513 = a33025; /* x225867 stalin.sc:31528:1085963 */ a38866 = t9513; /* x288133 */ /* x288132 */ t9514 = a38866; /* x288131 */ if (!((t9514.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33783]"); structure_ref_error();} t9511 = t9514.value.structure_type27698->s21; /* x225866 stalin.sc:31528:1085945 */ a40144 = t9511; /* x293245 */ /* x293244 */ t9512 = a40144; /* x293243 */ if (!((t9512.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35061]"); structure_ref_error();} /* MOVE: dispatching squished to general */ if ((t9512.value.structure_type27698->s7)==FALSE_TYPE) t9379.tag = (unsigned)(t9512.value.structure_type27698->s7); else {t9379.tag = FIXNUM_TYPE; t9379.value.fixnum_type = (int)(((int)(t9512.value.structure_type27698->s7))>>1);} l3182: /* x225857 stalin.sc:31522:1085748 */ /* x225850 stalin.sc:31522:1085752 */ /* x225847 stalin.sc:31522:1085757 */ /* x225846 stalin.sc:31522:1085779 */ t9501 = a33025; /* x225845 stalin.sc:31522:1085758 */ a38931 = t9501; /* x288393 */ /* x288392 */ t9502 = a38931; /* x288391 */ if (!((t9502.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33848]"); structure_ref_error();} t9499 = t9502.value.structure_type27698->s20; /* x225849 stalin.sc:31522:1085782 */ /* x225848 stalin.sc:31522:1085783 */ /* x278039 stalin.sc:321:8572 */ t9500 = q34; /* x267596 stalin.sc:31522:1085753 */ if (!(((t9499.tag)==EXTERNAL_SYMBOL_TYPE)&&((t9499.value.external_symbol_type)==t9500))) goto l3178; /* x225851 stalin.sc:31523:1085795 */ t9378.tag = EXTERNAL_SYMBOL_TYPE; t9378.value.external_symbol_type = q34; goto l3179; l3178: /* x225856 stalin.sc:31524:1085806 */ /* x225855 stalin.sc:31524:1085824 */ /* x225854 stalin.sc:31524:1085846 */ t9505 = a33025; /* x225853 stalin.sc:31524:1085825 */ a38929 = t9505; /* x288385 */ /* x288384 */ t9506 = a38929; /* x288383 */ if (!((t9506.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33846]"); structure_ref_error();} t9503 = t9506.value.structure_type27698->s20; /* x225852 stalin.sc:31524:1085807 */ a40143 = t9503; /* x293241 */ /* x293240 */ t9504 = a40143; /* x293239 */ if (!((t9504.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35060]"); structure_ref_error();} /* MOVE: dispatching squished to general */ if ((t9504.value.structure_type27698->s7)==FALSE_TYPE) t9378.tag = (unsigned)(t9504.value.structure_type27698->s7); else {t9378.tag = FIXNUM_TYPE; t9378.value.fixnum_type = (int)(((int)(t9504.value.structure_type27698->s7))>>1);} l3179: /* x225843 stalin.sc:31518:1085605 */ /* x225836 stalin.sc:31518:1085609 */ /* x225833 stalin.sc:31518:1085614 */ /* x225832 stalin.sc:31518:1085637 */ t9493 = a33025; /* x225831 stalin.sc:31518:1085615 */ a38986 = t9493; /* x288613 */ /* x288612 */ t9494 = a38986; /* x288611 */ if (!((t9494.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33903]"); structure_ref_error();} t9491 = t9494.value.structure_type27698->s19; /* x225835 stalin.sc:31518:1085640 */ /* x225834 stalin.sc:31518:1085641 */ /* x278037 stalin.sc:321:8572 */ t9492 = q34; /* x267597 stalin.sc:31518:1085610 */ if (!(((t9491.tag)==EXTERNAL_SYMBOL_TYPE)&&((t9491.value.external_symbol_type)==t9492))) goto l3175; /* x225837 stalin.sc:31519:1085653 */ t9377.tag = EXTERNAL_SYMBOL_TYPE; t9377.value.external_symbol_type = q34; goto l3176; l3175: /* x225842 stalin.sc:31520:1085664 */ /* x225841 stalin.sc:31520:1085682 */ /* x225840 stalin.sc:31520:1085705 */ t9497 = a33025; /* x225839 stalin.sc:31520:1085683 */ a38984 = t9497; /* x288605 */ /* x288604 */ t9498 = a38984; /* x288603 */ if (!((t9498.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33901]"); structure_ref_error();} t9495 = t9498.value.structure_type27698->s19; /* x225838 stalin.sc:31520:1085665 */ a40142 = t9495; /* x293237 */ /* x293236 */ t9496 = a40142; /* x293235 */ if (!((t9496.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35059]"); structure_ref_error();} /* MOVE: dispatching squished to general */ if ((t9496.value.structure_type27698->s7)==FALSE_TYPE) t9377.tag = (unsigned)(t9496.value.structure_type27698->s7); else {t9377.tag = FIXNUM_TYPE; t9377.value.fixnum_type = (int)(((int)(t9496.value.structure_type27698->s7))>>1);} l3176: /* x225829 stalin.sc:31514:1085462 */ /* x225822 stalin.sc:31514:1085466 */ /* x225819 stalin.sc:31514:1085471 */ /* x225818 stalin.sc:31514:1085494 */ t9485 = a33025; /* x225817 stalin.sc:31514:1085472 */ a39050 = t9485; /* x288869 */ /* x288868 */ t9486 = a39050; /* x288867 */ if (!((t9486.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33967]"); structure_ref_error();} t9483 = t9486.value.structure_type27698->s18; /* x225821 stalin.sc:31514:1085497 */ /* x225820 stalin.sc:31514:1085498 */ /* x278035 stalin.sc:321:8572 */ t9484 = q34; /* x267598 stalin.sc:31514:1085467 */ if (!(((t9483.tag)==EXTERNAL_SYMBOL_TYPE)&&((t9483.value.external_symbol_type)==t9484))) goto l3172; /* x225823 stalin.sc:31515:1085510 */ t9376.tag = EXTERNAL_SYMBOL_TYPE; t9376.value.external_symbol_type = q34; goto l3173; l3172: /* x225828 stalin.sc:31516:1085521 */ /* x225827 stalin.sc:31516:1085539 */ /* x225826 stalin.sc:31516:1085562 */ t9489 = a33025; /* x225825 stalin.sc:31516:1085540 */ a39046 = t9489; /* x288853 */ /* x288852 */ t9490 = a39046; /* x288851 */ if (!((t9490.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33963]"); structure_ref_error();} t9487 = t9490.value.structure_type27698->s18; /* x225824 stalin.sc:31516:1085522 */ a40141 = t9487; /* x293233 */ /* x293232 */ t9488 = a40141; /* x293231 */ if (!((t9488.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35058]"); structure_ref_error();} /* MOVE: dispatching squished to general */ if ((t9488.value.structure_type27698->s7)==FALSE_TYPE) t9376.tag = (unsigned)(t9488.value.structure_type27698->s7); else {t9376.tag = FIXNUM_TYPE; t9376.value.fixnum_type = (int)(((int)(t9488.value.structure_type27698->s7))>>1);} l3173: /* x225815 stalin.sc:31510:1085327 */ /* x225808 stalin.sc:31510:1085331 */ /* x225805 stalin.sc:31510:1085336 */ /* x225804 stalin.sc:31510:1085355 */ t9477 = a33025; /* x225803 stalin.sc:31510:1085337 */ a39091 = t9477; /* x289033 */ /* x289032 */ t9478 = a39091; /* x289031 */ if (!((t9478.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 34008]"); structure_ref_error();} t9475 = t9478.value.structure_type27698->s17; /* x225807 stalin.sc:31510:1085358 */ /* x225806 stalin.sc:31510:1085359 */ /* x278033 stalin.sc:321:8572 */ t9476 = q34; /* x267599 stalin.sc:31510:1085332 */ if (!(((t9475.tag)==EXTERNAL_SYMBOL_TYPE)&&((t9475.value.external_symbol_type)==t9476))) goto l3169; /* x225809 stalin.sc:31511:1085371 */ t9375.tag = EXTERNAL_SYMBOL_TYPE; t9375.value.external_symbol_type = q34; goto l3170; l3169: /* x225814 stalin.sc:31512:1085382 */ /* x225813 stalin.sc:31512:1085400 */ /* x225812 stalin.sc:31512:1085419 */ t9481 = a33025; /* x225811 stalin.sc:31512:1085401 */ a39088 = t9481; /* x289021 */ /* x289020 */ t9482 = a39088; /* x289019 */ if (!((t9482.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 34005]"); structure_ref_error();} t9479 = t9482.value.structure_type27698->s17; /* x225810 stalin.sc:31512:1085383 */ a40140 = t9479; /* x293229 */ /* x293228 */ t9480 = a40140; /* x293227 */ if (!((t9480.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35057]"); structure_ref_error();} /* MOVE: dispatching squished to general */ if ((t9480.value.structure_type27698->s7)==FALSE_TYPE) t9375.tag = (unsigned)(t9480.value.structure_type27698->s7); else {t9375.tag = FIXNUM_TYPE; t9375.value.fixnum_type = (int)(((int)(t9480.value.structure_type27698->s7))>>1);} l3170: /* x225801 stalin.sc:31506:1085190 */ /* x225794 stalin.sc:31506:1085194 */ /* x225791 stalin.sc:31506:1085199 */ /* x225790 stalin.sc:31506:1085220 */ t9469 = a33025; /* x225789 stalin.sc:31506:1085200 */ a39187 = t9469; /* x289417 */ /* x289416 */ t9470 = a39187; /* x289415 */ if (!((t9470.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34104]"); structure_ref_error();} t9467 = t9470.value.structure_type27698->s16; /* x225793 stalin.sc:31506:1085223 */ /* x225792 stalin.sc:31506:1085224 */ /* x278031 stalin.sc:321:8572 */ t9468 = q34; /* x267600 stalin.sc:31506:1085195 */ if (!(((t9467.tag)==EXTERNAL_SYMBOL_TYPE)&&((t9467.value.external_symbol_type)==t9468))) goto l3166; /* x225795 stalin.sc:31507:1085236 */ t9374.tag = EXTERNAL_SYMBOL_TYPE; t9374.value.external_symbol_type = q34; goto l3167; l3166: /* x225800 stalin.sc:31508:1085247 */ /* x225799 stalin.sc:31508:1085263 */ /* x225798 stalin.sc:31508:1085284 */ t9473 = a33025; /* x225797 stalin.sc:31508:1085264 */ a39183 = t9473; /* x289401 */ /* x289400 */ t9474 = a39183; /* x289399 */ if (!((t9474.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34100]"); structure_ref_error();} t9471 = t9474.value.structure_type27698->s16; /* x225796 stalin.sc:31508:1085248 */ a37003 = t9471; /* x280681 */ /* x280680 */ t9472 = a37003; /* x280679 */ if (!((t9472.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-INDEX[6565] 31920]"); structure_ref_error();} /* MOVE: dispatching squished to general */ if ((t9472.value.structure_type27692->s6)==FALSE_TYPE) t9374.tag = (unsigned)(t9472.value.structure_type27692->s6); else {t9374.tag = FIXNUM_TYPE; t9374.value.fixnum_type = (int)(((int)(t9472.value.structure_type27692->s6))>>1);} l3167: /* x225787 stalin.sc:31502:1085027 */ /* x225769 stalin.sc:31502:1085034 */ /* x225766 stalin.sc:31502:1085039 */ /* x225765 stalin.sc:31502:1085056 */ t9460 = a33025; /* x225764 stalin.sc:31502:1085040 */ a39422 = t9460; /* x290357 */ /* x290356 */ t9461 = a39422; /* x290355 */ if (!((t9461.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34339]"); structure_ref_error();} t9458 = t9461.value.structure_type27698->s15; /* x225768 stalin.sc:31502:1085059 */ /* x225767 stalin.sc:31502:1085060 */ /* x278029 stalin.sc:321:8572 */ t9459 = q34; /* x267601 stalin.sc:31502:1085035 */ if (!(((t9458.tag)==EXTERNAL_SYMBOL_TYPE)&&((t9458.value.external_symbol_type)==t9459))) goto l3160; /* x225772 */ /* x225771 */ /* x225770 stalin.sc:31502:1085069 */ t9373.tag = EXTERNAL_SYMBOL_TYPE; t9373.value.external_symbol_type = q34; goto l3161; l3160: /* x225786 */ /* x225775 stalin.sc:31503:1085084 */ /* x225774 stalin.sc:31503:1085091 */ t9462 = a33025; /* x225773 stalin.sc:31503:1085085 */ if (f8918(t9462)==FALSE_TYPE) goto l3163; /* x225778 */ /* x225777 */ /* x225776 stalin.sc:31503:1085094 */ t9373.tag = EXTERNAL_SYMBOL_TYPE; t9373.value.external_symbol_type = q771; goto l3164; l3163: /* x225785 */ /* x225784 */ /* x225783 stalin.sc:31504:1085111 */ /* x225782 stalin.sc:31504:1085129 */ /* x225781 stalin.sc:31504:1085146 */ t9465 = a33025; /* x225780 stalin.sc:31504:1085130 */ a39238 = t9465; /* x289621 */ /* x289620 */ t9466 = a39238; /* x289619 */ if (!((t9466.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34155]"); structure_ref_error();} t9463 = t9466.value.structure_type27698->s15; /* x225779 stalin.sc:31504:1085112 */ a40139 = t9463; /* x293225 */ /* x293224 */ t9464 = a40139; /* x293223 */ if (!((t9464.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35056]"); structure_ref_error();} /* MOVE: dispatching squished to general */ if ((t9464.value.structure_type27698->s7)==FALSE_TYPE) t9373.tag = (unsigned)(t9464.value.structure_type27698->s7); else {t9373.tag = FIXNUM_TYPE; t9373.value.fixnum_type = (int)(((int)(t9464.value.structure_type27698->s7))>>1);} l3164: l3161: /* x225762 stalin.sc:31498:1084806 */ /* x225740 stalin.sc:31498:1084813 */ /* x225737 stalin.sc:31498:1084818 */ /* x225736 stalin.sc:31498:1084841 */ t9447 = a33025; /* x225735 stalin.sc:31498:1084819 */ a39464 = t9447; /* x290525 */ /* x290524 */ t9448 = a39464; /* x290523 */ if (!((t9448.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34381]"); structure_ref_error();} t9445 = t9448.value.structure_type27698->s14; /* x225739 stalin.sc:31498:1084844 */ /* x225738 stalin.sc:31498:1084845 */ /* x278027 stalin.sc:321:8572 */ t9446 = q34; /* x267603 stalin.sc:31498:1084814 */ if (!(((t9445.tag)==EXTERNAL_SYMBOL_TYPE)&&((t9445.value.external_symbol_type)==t9446))) goto l3154; /* x225743 */ /* x225742 */ /* x225741 stalin.sc:31498:1084854 */ t9372.tag = EXTERNAL_SYMBOL_TYPE; t9372.value.external_symbol_type = q34; goto l3155; l3154: /* x225761 */ /* x225750 stalin.sc:31499:1084869 */ /* x225747 stalin.sc:31499:1084874 */ /* x225746 stalin.sc:31499:1084897 */ t9451 = a33025; /* x225745 stalin.sc:31499:1084875 */ a39461 = t9451; /* x290513 */ /* x290512 */ t9452 = a39461; /* x290511 */ if (!((t9452.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34378]"); structure_ref_error();} t9449 = t9452.value.structure_type27698->s14; /* x225749 stalin.sc:31499:1084900 */ /* x225748 stalin.sc:31499:1084901 */ /* x277423 stalin.sc:323:8604 */ t9450 = q35; /* x267602 stalin.sc:31499:1084870 */ if (!(((t9449.tag)==EXTERNAL_SYMBOL_TYPE)&&((t9449.value.external_symbol_type)==t9450))) goto l3157; /* x225753 */ /* x225752 */ /* x225751 stalin.sc:31499:1084915 */ t9372.tag = EXTERNAL_SYMBOL_TYPE; t9372.value.external_symbol_type = q35; goto l3158; l3157: /* x225760 */ /* x225759 */ /* x225758 stalin.sc:31500:1084940 */ /* x225757 stalin.sc:31500:1084960 */ /* x225756 stalin.sc:31500:1084983 */ t9456 = a33025; /* x225755 stalin.sc:31500:1084961 */ a39460 = t9456; /* x290509 */ /* x290508 */ t9457 = a39460; /* x290507 */ if (!((t9457.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34377]"); structure_ref_error();} t9453 = t9457.value.structure_type27698->s14; /* x225754 stalin.sc:31500:1084941 */ t9454 = *((struct w49 *)(&t9453)); t9455 = f19299(t9454); /* MOVE: dispatching squished to general */ switch (t9455) {case NULL_TYPE: case FALSE_TYPE: t9372.tag = (unsigned)t9455; break; default: if ((t9455&3)==1) {t9372.tag = FIXNUM_TYPE; t9372.value.fixnum_type = (int)(((int)t9455)>>2);} else {t9372.tag = STRUCTURE_TYPE24753; t9372.value.structure_type24753 = (struct structure_type24753 *)t9455;}} l3158: l3155: /* x225733 stalin.sc:31491:1084489 */ /* x225702 stalin.sc:31491:1084496 */ /* x225699 stalin.sc:31491:1084501 */ /* x225698 stalin.sc:31491:1084532 */ t9431 = a33025; /* x225697 stalin.sc:31491:1084502 */ a39516 = t9431; /* x290733 */ /* x290732 */ t9432 = a39516; /* x290731 */ if (!((t9432.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34433]"); structure_ref_error();} t9429 = t9432.value.structure_type27698->s13; /* x225701 stalin.sc:31491:1084535 */ /* x225700 stalin.sc:31491:1084536 */ /* x278025 stalin.sc:321:8572 */ t9430 = q34; /* x267605 stalin.sc:31491:1084497 */ if (!(((t9429.tag)==EXTERNAL_SYMBOL_TYPE)&&((t9429.value.external_symbol_type)==t9430))) goto l3145; /* x225705 */ /* x225704 */ /* x225703 stalin.sc:31491:1084545 */ t9371.tag = EXTERNAL_SYMBOL_TYPE; t9371.value.external_symbol_type = q34; goto l3146; l3145: /* x225732 */ /* x225712 stalin.sc:31492:1084560 */ /* x225709 stalin.sc:31492:1084565 */ /* x225708 stalin.sc:31492:1084596 */ t9435 = a33025; /* x225707 stalin.sc:31492:1084566 */ a39505 = t9435; /* x290689 */ /* x290688 */ t9436 = a39505; /* x290687 */ if (!((t9436.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34422]"); structure_ref_error();} t9433 = t9436.value.structure_type27698->s13; /* x225711 stalin.sc:31492:1084599 */ /* x225710 stalin.sc:31492:1084600 */ /* x277241 stalin.sc:323:8604 */ t9434 = q35; /* x267604 stalin.sc:31492:1084561 */ if (!(((t9433.tag)==EXTERNAL_SYMBOL_TYPE)&&((t9433.value.external_symbol_type)==t9434))) goto l3148; /* x225715 */ /* x225714 */ /* x225713 stalin.sc:31493:1084620 */ t9371.tag = EXTERNAL_SYMBOL_TYPE; t9371.value.external_symbol_type = q35; goto l3149; l3148: /* x225731 */ /* x225720 stalin.sc:31494:1084640 */ /* x225719 stalin.sc:31494:1084654 */ /* x225718 stalin.sc:31494:1084685 */ t9439 = a33025; /* x225717 stalin.sc:31494:1084655 */ a39504 = t9439; /* x290685 */ /* x290684 */ t9440 = a39504; /* x290683 */ if (!((t9440.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34421]"); structure_ref_error();} t9437 = t9440.value.structure_type27698->s13; /* x225716 stalin.sc:31494:1084641 */ a36771 = t9437; /* x279753 */ /* x279752 */ t9438 = a36771; /* x279751 */ if (!((t9438.tag)==STRUCTURE_TYPE27694)) goto l3151; /* x225727 */ /* x225726 */ /* x225725 stalin.sc:31495:1084695 */ /* x225724 stalin.sc:31495:1084714 */ /* x225723 stalin.sc:31495:1084745 */ t9443 = a33025; /* x225722 stalin.sc:31495:1084715 */ a39503 = t9443; /* x290681 */ /* x290680 */ t9444 = a39503; /* x290679 */ if (!((t9444.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34420]"); structure_ref_error();} t9441 = t9444.value.structure_type27698->s13; /* x225721 stalin.sc:31495:1084696 */ a36743 = t9441; /* x279641 */ /* x279640 */ t9442 = a36743; /* x279639 */ if (!((t9442.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-INDEX[6631] 31660]"); structure_ref_error();} /* MOVE: dispatching squished to general */ if ((t9442.value.structure_type27694->s0)==FALSE_TYPE) t9371.tag = (unsigned)(t9442.value.structure_type27694->s0); else {t9371.tag = FIXNUM_TYPE; t9371.value.fixnum_type = (int)(((int)(t9442.value.structure_type27694->s0))>>1);} goto l3152; l3151: /* x225730 */ /* x225729 */ /* x225728 stalin.sc:31496:1084761 */ t9371.tag = EXTERNAL_SYMBOL_TYPE; t9371.value.external_symbol_type = q771; l3152: l3149: l3146: /* x225695 stalin.sc:31487:1084372 */ /* x225688 stalin.sc:31487:1084376 */ /* x225687 stalin.sc:31487:1084395 */ t9423 = a33025; /* x225686 stalin.sc:31487:1084377 */ a39829 = t9423; /* x291985 */ /* x291984 */ t9424 = a39829; /* x291983 */ if (!((t9424.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34746]"); structure_ref_error();} if ((t9424.value.structure_type27698->s11.tag)==FALSE_TYPE) goto l3142; /* x225693 stalin.sc:31488:1084401 */ /* x225692 stalin.sc:31488:1084419 */ /* x225691 stalin.sc:31488:1084438 */ t9427 = a33025; /* x225690 stalin.sc:31488:1084420 */ a39810 = t9427; /* x291909 */ /* x291908 */ t9428 = a39810; /* x291907 */ if (!((t9428.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34727]"); structure_ref_error();} t9425 = t9428.value.structure_type27698->s11; /* x225689 stalin.sc:31488:1084402 */ a40137 = t9425; /* x293217 */ /* x293216 */ t9426 = a40137; /* x293215 */ if (!((t9426.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35054]"); structure_ref_error();} /* MOVE: dispatching squished to general */ if ((t9426.value.structure_type27698->s7)==FALSE_TYPE) t9370.tag = (unsigned)(t9426.value.structure_type27698->s7); else {t9370.tag = FIXNUM_TYPE; t9370.value.fixnum_type = (int)(((int)(t9426.value.structure_type27698->s7))>>1);} goto l3143; l3142: /* x225694 stalin.sc:31489:1084445 */ t9370.tag = EXTERNAL_SYMBOL_TYPE; t9370.value.external_symbol_type = q771; l3143: /* x225685 stalin.sc:31486:1084325 */ /* x225684 stalin.sc:31486:1084341 */ /* x225683 stalin.sc:31486:1084362 */ t9421 = a33025; /* x225682 stalin.sc:31486:1084342 */ a40023 = t9421; /* x292761 */ /* x292760 */ t9422 = a40023; /* x292759 */ if (!((t9422.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34940]"); structure_ref_error();} t9419 = t9422.value.structure_type27698->s10; /* x225681 stalin.sc:31486:1084326 */ a37081 = t9419; /* x280993 */ /* x280992 */ t9420 = a37081; /* x280991 */ if (!((t9420.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31998]"); structure_ref_error();} t9369 = t9420.value.structure_type27650->s4; /* x225680 stalin.sc:31483:1084229 */ /* x225673 stalin.sc:31483:1084233 */ /* x225672 stalin.sc:31483:1084257 */ t9413 = a33025; /* x225671 stalin.sc:31483:1084234 */ a40121 = t9413; /* x293153 */ /* x293152 */ t9414 = a40121; /* x293151 */ if (!((t9414.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35038]"); structure_ref_error();} if ((t9414.value.structure_type27698->s9.tag)==FALSE_TYPE) goto l3139; /* x225678 stalin.sc:31484:1084263 */ /* x225677 stalin.sc:31484:1084282 */ /* x225676 stalin.sc:31484:1084306 */ t9417 = a33025; /* x225675 stalin.sc:31484:1084283 */ a40110 = t9417; /* x293109 */ /* x293108 */ t9418 = a40110; /* x293107 */ if (!((t9418.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35027]"); structure_ref_error();} t9415 = t9418.value.structure_type27698->s9; /* x225674 stalin.sc:31484:1084264 */ a36742 = t9415; /* x279637 */ /* x279636 */ t9416 = a36742; /* x279635 */ if (!((t9416.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-INDEX[6631] 31659]"); structure_ref_error();} /* MOVE: dispatching squished to general */ if ((t9416.value.structure_type27694->s0)==FALSE_TYPE) t9368.tag = (unsigned)(t9416.value.structure_type27694->s0); else {t9368.tag = FIXNUM_TYPE; t9368.value.fixnum_type = (int)(((int)(t9416.value.structure_type27694->s0))>>1);} goto l3140; l3139: /* x225679 stalin.sc:31485:1084313 */ t9368.tag = EXTERNAL_SYMBOL_TYPE; t9368.value.external_symbol_type = q771; l3140: /* x225670 stalin.sc:31482:1084202 */ /* x225669 stalin.sc:31482:1084220 */ t9411 = a33025; /* x225668 stalin.sc:31482:1084203 */ a40148 = t9411; /* x293261 */ /* x293260 */ t9412 = a40148; /* x293259 */ if (!((t9412.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35065]"); structure_ref_error();} t9367 = t9412.value.structure_type27698->s7; /* x225667 stalin.sc:31481:1084150 */ /* x225666 stalin.sc:31481:1084193 */ t9409 = a33025; /* x225665 stalin.sc:31481:1084151 */ a40157 = t9409; /* x293297 */ /* x293296 */ t9410 = a40157; /* x293295 */ if (!((t9410.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION-WITHIN-LINE[5535] 35074]"); structure_ref_error();} t9366 = t9410.value.structure_type27698->s6; /* x225664 stalin.sc:31480:1084110 */ /* x225663 stalin.sc:31480:1084141 */ t9407 = a33025; /* x225662 stalin.sc:31480:1084111 */ a40173 = t9407; /* x293361 */ /* x293360 */ t9408 = a40173; /* x293359 */ if (!((t9408.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION[5527] 35090]"); structure_ref_error();} t9365 = t9408.value.structure_type27698->s5; /* x225661 stalin.sc:31479:1084075 */ /* x225660 stalin.sc:31479:1084101 */ t9405 = a33025; /* x225659 stalin.sc:31479:1084076 */ a40189 = t9405; /* x293425 */ /* x293424 */ t9406 = a40189; /* x293423 */ if (!((t9406.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LINE-POSITION[5519] 35106]"); structure_ref_error();} t9364 = t9406.value.structure_type27698->s4; /* x225658 stalin.sc:31478:1084045 */ /* x225657 stalin.sc:31478:1084066 */ t9403 = a33025; /* x225656 stalin.sc:31478:1084046 */ a40212 = t9403; /* x293517 */ /* x293516 */ t9404 = a40212; /* x293515 */ if (!((t9404.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35129]"); structure_ref_error();} t9363 = t9404.value.structure_type27698->s3; /* x225655 stalin.sc:31477:1084019 */ /* x225654 stalin.sc:31477:1084036 */ t9401 = a33025; /* x225653 stalin.sc:31477:1084020 */ a40412 = t9401; /* x294317 */ /* x294316 */ t9402 = a40412; /* x294315 */ if (!((t9402.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35329]"); structure_ref_error();} t9362 = t9402.value.structure_type27698->s0; /* x225652 stalin.sc:31477:1084014 */ t9400.tag = STRUCTURE_TYPE24753; t9400.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9400.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31477, 1084013); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t9381>=((struct structure_type24753 *)VALUE_OFFSET)) {t9400.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t9400.value.structure_type24753->s0.value.structure_type24753 = t9381;} else t9400.value.structure_type24753->s0.tag = (unsigned)t9381; t9400.value.structure_type24753->s1.tag = NULL_TYPE; t9399.tag = STRUCTURE_TYPE24753; t9399.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9399.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31477, 1084013); out_of_memory_error();} t9399.value.structure_type24753->s0 = *((struct w49 *)(&t9380)); t9399.value.structure_type24753->s1 = t9400; t9398.tag = STRUCTURE_TYPE24753; t9398.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9398.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31477, 1084013); out_of_memory_error();} t9398.value.structure_type24753->s0 = *((struct w49 *)(&t9379)); t9398.value.structure_type24753->s1 = t9399; t9397.tag = STRUCTURE_TYPE24753; t9397.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9397.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31477, 1084013); out_of_memory_error();} t9397.value.structure_type24753->s0 = *((struct w49 *)(&t9378)); t9397.value.structure_type24753->s1 = t9398; t9396.tag = STRUCTURE_TYPE24753; t9396.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9396.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31477, 1084013); out_of_memory_error();} t9396.value.structure_type24753->s0 = *((struct w49 *)(&t9377)); t9396.value.structure_type24753->s1 = t9397; t9395.tag = STRUCTURE_TYPE24753; t9395.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9395.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31477, 1084013); out_of_memory_error();} t9395.value.structure_type24753->s0 = *((struct w49 *)(&t9376)); t9395.value.structure_type24753->s1 = t9396; t9394.tag = STRUCTURE_TYPE24753; t9394.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9394.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31477, 1084013); out_of_memory_error();} t9394.value.structure_type24753->s0 = *((struct w49 *)(&t9375)); t9394.value.structure_type24753->s1 = t9395; t9393.tag = STRUCTURE_TYPE24753; t9393.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9393.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31477, 1084013); out_of_memory_error();} t9393.value.structure_type24753->s0 = *((struct w49 *)(&t9374)); t9393.value.structure_type24753->s1 = t9394; t9392.tag = STRUCTURE_TYPE24753; t9392.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9392.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31477, 1084013); out_of_memory_error();} t9392.value.structure_type24753->s0 = *((struct w49 *)(&t9373)); t9392.value.structure_type24753->s1 = t9393; t9391.tag = STRUCTURE_TYPE24753; t9391.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9391.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31477, 1084013); out_of_memory_error();} t9391.value.structure_type24753->s0 = *((struct w49 *)(&t9372)); t9391.value.structure_type24753->s1 = t9392; t9390.tag = STRUCTURE_TYPE24753; t9390.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9390.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31477, 1084013); out_of_memory_error();} t9390.value.structure_type24753->s0 = *((struct w49 *)(&t9371)); t9390.value.structure_type24753->s1 = t9391; t9389.tag = STRUCTURE_TYPE24753; t9389.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9389.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31477, 1084013); out_of_memory_error();} t9389.value.structure_type24753->s0 = *((struct w49 *)(&t9370)); t9389.value.structure_type24753->s1 = t9390; t9388.tag = STRUCTURE_TYPE24753; t9388.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9388.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31477, 1084013); out_of_memory_error();} t9388.value.structure_type24753->s0 = *((struct w49 *)(&t9369)); t9388.value.structure_type24753->s1 = t9389; t9387.tag = STRUCTURE_TYPE24753; t9387.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9387.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31477, 1084013); out_of_memory_error();} t9387.value.structure_type24753->s0 = *((struct w49 *)(&t9368)); t9387.value.structure_type24753->s1 = t9388; t9386.tag = STRUCTURE_TYPE24753; t9386.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9386.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31477, 1084013); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t9367==FALSE_TYPE) t9386.value.structure_type24753->s0.tag = (unsigned)t9367; else {t9386.value.structure_type24753->s0.tag = FIXNUM_TYPE; t9386.value.structure_type24753->s0.value.fixnum_type = (int)(((int)t9367)>>1);} t9386.value.structure_type24753->s1 = t9387; t9385.tag = STRUCTURE_TYPE24753; t9385.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9385.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31477, 1084013); out_of_memory_error();} t9385.value.structure_type24753->s0 = *((struct w49 *)(&t9366)); t9385.value.structure_type24753->s1 = t9386; t9384.tag = STRUCTURE_TYPE24753; t9384.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9384.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31477, 1084013); out_of_memory_error();} t9384.value.structure_type24753->s0 = *((struct w49 *)(&t9365)); t9384.value.structure_type24753->s1 = t9385; t9383.tag = STRUCTURE_TYPE24753; t9383.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9383.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31477, 1084013); out_of_memory_error();} t9383.value.structure_type24753->s0 = *((struct w49 *)(&t9364)); t9383.value.structure_type24753->s1 = t9384; t9382.tag = STRUCTURE_TYPE24753; t9382.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9382.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31477, 1084013); out_of_memory_error();} t9382.value.structure_type24753->s0 = t9363; t9382.value.structure_type24753->s1 = t9383; a35111 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35111==NULL) {backtrace("stalin.sc", 31477, 1084013); out_of_memory_error();} a35111->s0.tag = EXTERNAL_SYMBOL_TYPE; a35111->s0.value.external_symbol_type = t9362; a35111->s1 = t9382; /* x272229 */ return a35111;} /* REPLACE-SYMBOLS-WITH-STRINGS[19236] */ struct w64143 f19236(struct w49 a33018) {struct w64143 r19236; struct w49 t9532; struct w16611 t9533; char *t9534; struct w64143 t9535; struct w64143 t9536; struct w49 t9537; struct structure_type24753 *t9538; struct w49 t9539; struct structure_type24753 *t9540; /* x225477 stalin.sc:31416:1081709 */ /* x225450 stalin.sc:31416:1081716 */ /* x225449 stalin.sc:31416:1081723 */ t9532 = a33018; /* x267611 stalin.sc:31416:1081717 */ if (!((t9532.tag)==STRUCTURE_TYPE24753)) goto l3187; /* x225464 */ /* x225463 */ /* x225462 stalin.sc:31417:1081727 */ /* x225456 stalin.sc:31417:1081733 */ /* x225455 stalin.sc:31417:1081763 */ /* x225454 stalin.sc:31417:1081768 */ t9538 = a33018.value.structure_type24753; /* x267609 stalin.sc:31417:1081764 */ t9537 = t9538->s0; /* x225452 stalin.sc:31417:1081734 */ t9535 = f19236(t9537); /* x225461 stalin.sc:31418:1081779 */ /* x225460 stalin.sc:31418:1081809 */ /* x225459 stalin.sc:31418:1081814 */ t9540 = a33018.value.structure_type24753; /* x267608 stalin.sc:31418:1081810 */ t9539 = t9540->s1; /* x225457 stalin.sc:31418:1081780 */ t9536 = f19236(t9539); /* x267610 stalin.sc:31417:1081728 */ r19236.tag = STRUCTURE_TYPE24753; r19236.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r19236.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31417, 1081727); out_of_memory_error();} r19236.value.structure_type24753->s0 = *((struct w49 *)(&t9535)); r19236.value.structure_type24753->s1 = *((struct w49 *)(&t9536)); return r19236; l3187: /* x225476 */ /* x225467 stalin.sc:31419:1081828 */ /* x225466 stalin.sc:31419:1081837 */ t9533 = *((struct w16611 *)(&a33018)); /* x267607 stalin.sc:31419:1081829 */ if (!((t9533.tag)==EXTERNAL_SYMBOL_TYPE)) goto l3189; /* x225472 */ /* x225471 */ /* x225470 stalin.sc:31419:1081840 */ /* x225469 stalin.sc:31419:1081856 */ t9534 = a33018.value.external_symbol_type; /* x267606 stalin.sc:31419:1081841 */ r19236.tag = STRING_TYPE; r19236.value.string_type = t9534; return r19236; l3189: /* x225475 */ /* x225474 */ /* x225473 stalin.sc:31420:1081873 */ return *((struct w64143 *)(&a33018));} /* REPLACE-TRUE-AND-FALSE-WITH-T-AND-NIL[19235] */ char *f19235(struct structure_type27657 *a33017) {/* x225445 stalin.sc:31413:1081650 */ /* x225442 stalin.sc:31413:1081654 */ if (a33017==((struct structure_type27657 *)FALSE_TYPE)) goto l3191; /* x225443 stalin.sc:31413:1081656 */ return q765; l3191: /* x225444 stalin.sc:31413:1081659 */ return q771;} /* [inside DISPLAY-HERALDS 19229] */ void f19229(struct w49 a33013) {struct w49 a35638; /* PAIR */ struct w49 a35639; /* PAIR */ char *t9541; char *t9542; char *t9543; struct w49 t9544; struct w49 t9545; struct structure_type24753 *t9546; struct w49 t9547; struct w49 t9548; int t9549; int t9550; struct w30215 t9551; struct w49 t9552; struct w49 t9553; struct w49 t9554; int t9555; int t9556; float t9557; float t9558; struct w30215 t9559; struct w49 t9560; int t9561; struct w49 t9562; struct w49 t9563; struct w49 t9564; struct structure_type24753 *t9565; int t9566; unsigned t9567; struct w49 t9568; struct w228463 t9569; struct structure_type24753 *t9570; struct w36270 t9571; struct w49 t9572; struct structure_type24753 *t9573; struct w49 t9574; /* x225374 stalin.sc:31403:1081311 */ /* x225373 stalin.sc:31410:1081557 */ /* x225372 stalin.sc:31410:1081565 */ t9574 = a33013; /* x225371 stalin.sc:31410:1081558 */ t9544 = f26181(t9574); /* x225370 stalin.sc:31405:1081412 */ /* x225368 stalin.sc:31406:1081443 */ /* x225367 stalin.sc:31407:1081465 */ /* x225366 stalin.sc:31407:1081472 */ /* x225357 stalin.sc:31407:1081475 */ /* x225353 stalin.sc:31407:1081478 */ t9561 = 100; /* x225356 stalin.sc:31407:1081482 */ /* x225355 stalin.sc:31407:1081489 */ t9563 = a33013; /* x225354 stalin.sc:31407:1081483 */ a35639 = t9563; /* x273913 */ /* x273912 */ t9564 = a35639; /* x273911 */ if (!((t9564.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29788]"); structure_ref_error();} t9562 = t9564.value.structure_type24753->s0; /* x267617 stalin.sc:31407:1081476 */ switch (t9562.tag) {case FIXNUM_TYPE: t9559.tag = FIXNUM_TYPE; t9559.value.fixnum_type = t9561*(t9562.value.fixnum_type); break; case FLONUM_TYPE: t9559.tag = FLONUM_TYPE; t9559.value.flonum_type = t9561*(t9562.value.flonum_type); break; default: backtrace("stalin.sc", 31407, 1081475); times_error();} /* x225365 stalin.sc:31408:1081507 */ /* x225359 stalin.sc:31408:1081515 */ /* x225363 stalin.sc:31408:1081517 */ /* x225362 stalin.sc:31408:1081528 */ t9570 = a665; /* x225361 stalin.sc:31408:1081522 */ /* x225360 stalin.sc:31408:1081518 */ t9571.tag = NATIVE_PROCEDURE_TYPE494; /* MOVE: branching squeezed to general */ if (t9570>=((struct structure_type24753 *)VALUE_OFFSET)) {t9572.tag = STRUCTURE_TYPE24753; t9572.value.structure_type24753 = t9570;} else t9572.tag = (unsigned)t9570; t9573 = (struct structure_type24753 *)NULL_TYPE; t9565 = f27731(t9571, t9572, t9573); /* x225364 stalin.sc:31408:1081539 */ t9566 = 0; /* x225358 stalin.sc:31408:1081508 */ t9567 = NATIVE_PROCEDURE_TYPE414; /* MOVE: branching squeezed to general */ if (t9565>=((struct structure_type24753 *)VALUE_OFFSET)) {t9568.tag = STRUCTURE_TYPE24753; t9568.value.structure_type24753 = t9565;} else t9568.tag = (unsigned)t9565; t9569.tag = FIXNUM_TYPE; t9569.value.fixnum_type = t9566; t9560 = f1006(t9567, t9568, t9569); /* x267618 stalin.sc:31407:1081473 */ if ((t9559.tag)==FIXNUM_TYPE) {switch (t9560.tag) {case FIXNUM_TYPE: t9558 = ((float)(t9559.value.fixnum_type))/((float)(t9560.value.fixnum_type)); break; case FLONUM_TYPE: t9558 = (t9559.value.fixnum_type)/(t9560.value.flonum_type); break; default: backtrace("stalin.sc", 31407, 1081472); divide_error();}} else switch (t9560.tag) {case FIXNUM_TYPE: t9558 = (t9559.value.flonum_type)/(t9560.value.fixnum_type); break; case FLONUM_TYPE: t9558 = (t9559.value.flonum_type)/(t9560.value.flonum_type); break; default: backtrace("stalin.sc", 31407, 1081472); divide_error();} /* x267619 stalin.sc:31407:1081466 */ t9557 = rint(t9558); /* x267620 stalin.sc:31406:1081444 */ t9555 = (int)t9557; /* x225369 stalin.sc:31409:1081550 */ t9556 = 2; /* x225348 stalin.sc:31405:1081413 */ t9543 = f976(t9555, t9556); /* x225347 stalin.sc:31404:1081339 */ /* x225345 stalin.sc:31404:1081365 */ /* x225344 stalin.sc:31404:1081381 */ /* x225343 stalin.sc:31404:1081388 */ /* x225342 stalin.sc:31404:1081395 */ t9553 = a33013; /* x225341 stalin.sc:31404:1081389 */ a35638 = t9553; /* x273909 */ /* x273908 */ t9554 = a35638; /* x273907 */ if (!((t9554.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29787]"); structure_ref_error();} t9552 = t9554.value.structure_type24753->s0; /* x267621 stalin.sc:31404:1081382 */ switch (t9552.tag) {case FIXNUM_TYPE: t9551.tag = FIXNUM_TYPE; t9551.value.fixnum_type = t9552.value.fixnum_type; break; case FLONUM_TYPE: t9551.tag = FLONUM_TYPE; t9551.value.flonum_type = rint(t9552.value.flonum_type); break; default: backtrace("stalin.sc", 31404, 1081381); round_error();} /* x267622 stalin.sc:31404:1081366 */ t9549 = ((t9551.tag)==FIXNUM_TYPE)?t9551.value.fixnum_type:(int)(t9551.value.flonum_type); /* x225346 stalin.sc:31404:1081405 */ t9550 = 6; /* x225338 stalin.sc:31404:1081340 */ t9542 = f976(t9549, t9550); /* x225337 stalin.sc:31403:1081319 */ t9541 = "~a - ~a% - ~a"; /* x225336 stalin.sc:31403:1081312 */ t9545.tag = STRING_TYPE; t9545.value.string_type = t9541; t9548.tag = STRUCTURE_TYPE24753; t9548.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9548.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31403, 1081311); out_of_memory_error();} t9548.value.structure_type24753->s0 = t9544; t9548.value.structure_type24753->s1.tag = NULL_TYPE; t9547.tag = STRUCTURE_TYPE24753; t9547.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9547.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31403, 1081311); out_of_memory_error();} t9547.value.structure_type24753->s0.tag = STRING_TYPE; t9547.value.structure_type24753->s0.value.string_type = t9543; t9547.value.structure_type24753->s1 = t9548; t9546 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t9546==NULL) {backtrace("stalin.sc", 31403, 1081311); out_of_memory_error();} t9546->s0.tag = STRING_TYPE; t9546->s0.value.string_type = t9542; t9546->s1 = t9547; f5365(t9545, t9546); return;} /* HERALD[19217] */ void f19217(unsigned a33004, char *a33005) {float a33007; /* T */ struct w49 a33009; /* HERALD */ struct structure_type24753 *a35277; /* OBJS */ struct structure_type24753 *a35278; /* OBJS */ struct w3467 a36217; /* PAIR */ struct structure_type24753 *a36218; /* PAIR */ struct structure_type24753 *a36221; /* PAIR */ float t9575; float t9576; char *t9577; struct w49 t9578; struct w49 t9579; struct structure_type24753 *t9580; struct structure_type24753 *t9581; float t9582; struct w49 t9583; struct w49 t9584; float t9585; struct w49 t9586; struct structure_type24753 *t9587; struct structure_type24753 *t9588; struct structure_type24753 *t9589; struct w49 t9590; struct w3467 t9591; float t9592; struct w49 t9593; float t9594; struct w3467 t9595; struct w3467 t9596; float t9597; struct w49 t9598; struct structure_type24753 *t9599; struct structure_type24753 *t9600; struct structure_type24753 *t9601; struct w227506 t9602; struct w49 t9603; char *t9604; struct w49 t9605; struct structure_type24753 *t9606; /* x225332 */ /* x225331 stalin.sc:31370:1080322 */ /* x225323 stalin.sc:31370:1080328 */ if (a33004==FALSE_TYPE) goto l3199; /* x225328 */ /* x225327 */ /* x225326 stalin.sc:31370:1080331 */ /* x225325 stalin.sc:31370:1080339 */ t9604 = a33005; /* x225324 stalin.sc:31370:1080332 */ t9605.tag = STRING_TYPE; t9605.value.string_type = t9604; t9606 = (struct structure_type24753 *)NULL_TYPE; f5365(t9605, t9606); goto l3200; l3199: /* x225330 stalin.sc:31370:1080322 */ /* x225329 stalin.sc:31370:1080322 */ l3200: /* x225322 */ /* x225321 stalin.sc:31371:1080347 */ /* x225320 stalin.sc:31371:1080356 */ /* x225319 stalin.sc:31371:1080357 */ t9575 = f4651(); /* x225318 */ a33007 = t9575; /* x225317 */ /* x225316 stalin.sc:31373:1080395 */ /* x225266 stalin.sc:31373:1080401 */ if (a666==((struct structure_type24753 *)FALSE_TYPE)) goto l3193; /* x225313 */ /* x225312 */ /* x225311 stalin.sc:31374:1080413 */ /* x225310 stalin.sc:31374:1080427 */ /* x225308 stalin.sc:31374:1080436 */ /* x225309 stalin.sc:31377:1080539 */ t9601 = a665; /* x225299 stalin.sc:31374:1080428 */ t9602.tag = NATIVE_PROCEDURE_TYPE12325; /* MOVE: branching squeezed to general */ if (t9601>=((struct structure_type24753 *)VALUE_OFFSET)) {t9603.tag = STRUCTURE_TYPE24753; t9603.value.structure_type24753 = t9601;} else t9603.tag = (unsigned)t9601; t9579 = f1314(t9602, t9603); /* x225298 */ a33009 = t9579; /* x225297 stalin.sc:31379:1080583 */ /* x225267 stalin.sc:31379:1080587 */ if ((a33009.tag)==FALSE_TYPE) goto l3196; /* x225281 stalin.sc:31380:1080595 */ /* x225269 stalin.sc:31380:1080605 */ t9591 = *((struct w3467 *)(&a33009)); /* x225280 stalin.sc:31380:1080612 */ /* x225273 stalin.sc:31380:1080615 */ /* x225272 stalin.sc:31380:1080622 */ t9595 = *((struct w3467 *)(&a33009)); /* x225271 stalin.sc:31380:1080616 */ a36217 = t9595; /* x276225 */ /* x276224 */ t9596 = a36217; /* x276223 */ if (!((t9596.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30366]"); structure_ref_error();} t9593 = t9596.value.structure_type24753->s0; /* x225279 stalin.sc:31380:1080630 */ /* x225275 stalin.sc:31380:1080633 */ t9597 = a33007; /* x225278 stalin.sc:31380:1080635 */ /* x225277 stalin.sc:31380:1080642 */ t9599 = a666; /* x225276 stalin.sc:31380:1080636 */ a36218 = t9599; /* x276229 */ /* x276228 */ t9600 = a36218; /* x276227 */ if (!(t9600>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 30367]"); structure_ref_error();} t9598 = t9600->s0; /* x267625 stalin.sc:31380:1080631 */ switch (t9598.tag) {case FIXNUM_TYPE: t9594 = t9597-(t9598.value.fixnum_type); break; case FLONUM_TYPE: t9594 = t9597-(t9598.value.flonum_type); break; default: backtrace("stalin.sc", 31380, 1080630); minus_error();} /* x267626 stalin.sc:31380:1080613 */ switch (t9593.tag) {case FIXNUM_TYPE: t9592 = (t9593.value.fixnum_type)+t9594; break; case FLONUM_TYPE: t9592 = (t9593.value.flonum_type)+t9594; break; default: backtrace("stalin.sc", 31380, 1080612); plus_error();} /* x267627 stalin.sc:31380:1080596 */ if (!((t9591.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 31380, 1080595); structure_set_error();} t9591.value.structure_type24753->s0.tag = FLONUM_TYPE; t9591.value.structure_type24753->s0.value.flonum_type = t9592; goto l3197; l3196: /* x225296 stalin.sc:31381:1080656 */ /* x225295 stalin.sc:31382:1080679 */ /* x225293 stalin.sc:31382:1080685 */ /* x225292 stalin.sc:31382:1080714 */ /* x225291 stalin.sc:31382:1080722 */ t9589 = a666; /* x225290 stalin.sc:31382:1080715 */ /* MOVE: branching squeezed to general */ if (t9589>=((struct structure_type24753 *)VALUE_OFFSET)) {t9590.tag = STRUCTURE_TYPE24753; t9590.value.structure_type24753 = t9589;} else t9590.tag = (unsigned)t9589; t9583 = f26181(t9590); /* x225289 stalin.sc:31382:1080691 */ /* x225285 stalin.sc:31382:1080694 */ t9585 = a33007; /* x225288 stalin.sc:31382:1080696 */ /* x225287 stalin.sc:31382:1080703 */ t9587 = a666; /* x225286 stalin.sc:31382:1080697 */ a36221 = t9587; /* x276241 */ /* x276240 */ t9588 = a36221; /* x276239 */ if (!(t9588>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 30370]"); structure_ref_error();} t9586 = t9588->s0; /* x267623 stalin.sc:31382:1080692 */ switch (t9586.tag) {case FIXNUM_TYPE: t9582 = t9585-(t9586.value.fixnum_type); break; case FLONUM_TYPE: t9582 = t9585-(t9586.value.flonum_type); break; default: backtrace("stalin.sc", 31382, 1080691); minus_error();} /* x225283 stalin.sc:31382:1080686 */ t9584.tag = STRUCTURE_TYPE24753; t9584.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9584.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31382, 1080685); out_of_memory_error();} t9584.value.structure_type24753->s0 = t9583; t9584.value.structure_type24753->s1.tag = NULL_TYPE; a35277 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35277==NULL) {backtrace("stalin.sc", 31382, 1080685); out_of_memory_error();} a35277->s0.tag = FLONUM_TYPE; a35277->s0.value.flonum_type = t9582; a35277->s1 = t9584; /* x272561 */ t9580 = a35277; /* x225294 stalin.sc:31383:1080739 */ t9581 = a665; /* x267624 stalin.sc:31382:1080680 */ a665 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a665==NULL) {backtrace("stalin.sc", 31382, 1080679); out_of_memory_error();} a665->s0.tag = STRUCTURE_TYPE24753; a665->s0.value.structure_type24753 = t9580; /* MOVE: branching squeezed to general */ if (t9581>=((struct structure_type24753 *)VALUE_OFFSET)) {a665->s1.tag = STRUCTURE_TYPE24753; a665->s1.value.structure_type24753 = t9581;} else a665->s1.tag = (unsigned)t9581; l3197: goto l3194; l3193: /* x225315 stalin.sc:31373:1080395 */ /* x225314 stalin.sc:31373:1080395 */ l3194: /* x225265 */ /* x225264 stalin.sc:31384:1080756 */ /* x225263 stalin.sc:31384:1080771 */ /* x225262 stalin.sc:31384:1080779 */ t9577 = a33005; /* x225261 stalin.sc:31384:1080777 */ t9576 = a33007; /* x225260 stalin.sc:31384:1080772 */ t9578.tag = STRUCTURE_TYPE24753; t9578.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9578.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31384, 1080771); out_of_memory_error();} t9578.value.structure_type24753->s0.tag = STRING_TYPE; t9578.value.structure_type24753->s0.value.string_type = t9577; t9578.value.structure_type24753->s1.tag = NULL_TYPE; a35278 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35278==NULL) {backtrace("stalin.sc", 31384, 1080771); out_of_memory_error();} a35278->s0.tag = FLONUM_TYPE; a35278->s0.value.flonum_type = t9576; a35278->s1 = t9578; /* x272563 */ a666 = a35278; return;} /* LOOP[19147] */ void f19147(struct w49 a32833) {struct w49 t9607; struct w66067 t9608; struct w66023 t9609; struct w49 t9610; struct w66023 t9611; struct w49 t9612; struct w66023 t9613; struct w49 t9614; struct w66023 t9615; struct w66009 t9616; char *t9617; struct p19147 *t9618; struct p19147 *t9619; struct w49 t9620; struct structure_type24753 *t9621; struct w49 t9622; struct structure_type24753 *t9623; struct p19147 *t9624; struct w49 t9625; struct w66023 t9626; struct w49 t9627; struct p19147 *t9628; struct w49 t9629; struct w66023 t9630; struct w49 t9631; struct p19147 *t9632; struct w49 t9633; struct w66023 t9634; struct w49 t9635; struct p19147 *t9636; struct p19147 *t9637; int t9638; unsigned t9639; char *t9640; struct p19147 *t9641; FILE *t9642; struct structure_type24753 *t9643; int t9644; unsigned t9645; char t9646; char t9647; struct w49 t9648; char t9649; char *t9650; struct p19147 *e19147; struct p19147 *p19148; struct p19147 *p19157; struct p19147 *p19159; struct p19147 *p19160; struct p19147 *p19161; struct p19147 *p19162; struct p19147 *p19163; h19147: e19147 = (struct p19147 *)alloca(sizeof(struct p19147)); if (e19147==NULL) {backtrace_internal("[inside GENERATE 19145]"); out_of_memory_error();} e19147->a32833 = a32833; /* x224416 stalin.sc:31083:1070694 */ /* x224293 stalin.sc:31083:1070701 */ /* x224292 stalin.sc:31083:1070708 */ t9607 = e19147->a32833; /* x267637 stalin.sc:31083:1070702 */ if (!((t9607.tag)a32833.tag)>>2); /* x224322 stalin.sc:31084:1070725 */ t9648.tag = ((unsigned)((unsigned char)t9646))<<2; t9649 = t9647; if (f27342(t9648, t9649)==FALSE_TYPE) goto l3219; /* x224327 */ /* x224326 */ goto l3220; l3219: /* x224331 */ /* x224330 */ /* x224329 stalin.sc:31084:1070745 */ /* x224328 stalin.sc:31084:1070746 */ /* x295609 QobiScheme.sc:166:5314 */ /* x295608 QobiScheme.sc:166:5321 */ t9650 = "This shouldn\'t happen"; /* x295607 QobiScheme.sc:166:5315 */ stalin_panic(t9650); l3220: /* x224321 */ /* x224320 stalin.sc:31085:1070761 */ /* x224300 stalin.sc:31085:1070769 */ /* x224299 stalin.sc:31085:1070773 */ if (!(a32827==FALSE_TYPE)) goto l3215; /* x224296 */ if (a32826==FALSE_TYPE) goto l3216; l3215: /* x224302 */ /* x224301 */ return; l3216: /* x224319 */ /* x224318 */ /* x224317 */ /* x224308 stalin.sc:31086:1070795 */ /* x224307 stalin.sc:31086:1070804 */ t9642 = a32822; /* x224306 stalin.sc:31086:1070796 */ t9643 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t9643==NULL) {backtrace("stalin.sc", 31086, 1070795); out_of_memory_error();} t9643->s0.tag = OUTPUT_PORT_TYPE; t9643->s0.value.output_port_type = t9642; t9643->s1.tag = NULL_TYPE; f28716(t9643); /* x224316 stalin.sc:31087:1070816 */ /* x224314 stalin.sc:31087:1070828 */ /* x224315 stalin.sc:31090:1070899 */ t9644 = a32824; /* x224309 stalin.sc:31087:1070817 */ t9645 = (unsigned)NATIVE_PROCEDURE_TYPE21783; f1120(t9645, t9644); /* x224305 */ /* x224304 stalin.sc:31091:1070913 */ /* x224303 stalin.sc:31091:1070928 */ a32827 = TRUE_TYPE; return; l3202: /* x224415 */ /* x224338 stalin.sc:31092:1070939 */ /* x224337 stalin.sc:31092:1070948 */ t9608 = *((struct w66067 *)(&(e19147->a32833))); /* x267636 stalin.sc:31092:1070940 */ if (!((t9608.tag)==STRING_TYPE)) goto l3204; /* x224352 */ /* x224351 */ t9636 = e19147; p19157 = t9636; /* x224350 stalin.sc:31093:1070956 */ /* x224346 stalin.sc:31093:1070968 */ t9637 = p19157; /* x224349 stalin.sc:31096:1071043 */ /* x224348 stalin.sc:31096:1071058 */ t9640 = p19157->a32833.value.string_type; /* x267634 stalin.sc:31096:1071044 */ t9638 = strlen(t9640); /* x224339 stalin.sc:31093:1070957 */ t9639 = ((unsigned)t9637)+2; f1120(t9639, t9638); return; l3204: /* x224414 */ /* x224355 stalin.sc:31097:1071068 */ /* x224354 stalin.sc:31097:1071084 */ t9609 = *((struct w66023 *)(&(e19147->a32833))); /* x224353 stalin.sc:31097:1071069 */ t9610 = *((struct w49 *)(&t9609)); if (f13410(t9610)==FALSE_TYPE) goto l3206; /* x224362 */ /* x224361 */ t9632 = e19147; p19159 = t9632; /* x224360 stalin.sc:31097:1071087 */ /* x224359 stalin.sc:31097:1071093 */ /* x224358 stalin.sc:31097:1071100 */ t9634 = *((struct w66023 *)(&(p19159->a32833))); /* x224357 stalin.sc:31097:1071094 */ t9635 = *((struct w49 *)(&t9634)); t9633 = f26187(t9635); /* x224356 stalin.sc:31097:1071088 */ a32833 = t9633; goto h19147; l3206: /* x224413 */ /* x224365 stalin.sc:31098:1071110 */ /* x224364 stalin.sc:31098:1071122 */ t9611 = *((struct w66023 *)(&(e19147->a32833))); /* x224363 stalin.sc:31098:1071111 */ t9612 = *((struct w49 *)(&t9611)); if (f13411(t9612)==FALSE_TYPE) goto l3208; /* x224372 */ /* x224371 */ t9628 = e19147; p19160 = t9628; /* x224370 stalin.sc:31098:1071125 */ /* x224369 stalin.sc:31098:1071131 */ /* x224368 stalin.sc:31098:1071139 */ t9630 = *((struct w66023 *)(&(p19160->a32833))); /* x224367 stalin.sc:31098:1071132 */ t9631 = *((struct w49 *)(&t9630)); t9629 = f26181(t9631); /* x224366 stalin.sc:31098:1071126 */ a32833 = t9629; goto h19147; l3208: /* x224412 */ /* x224375 stalin.sc:31099:1071149 */ /* x224374 stalin.sc:31099:1071163 */ t9613 = *((struct w66023 *)(&(e19147->a32833))); /* x224373 stalin.sc:31099:1071150 */ t9614 = *((struct w49 *)(&t9613)); if (f13415(t9614)==FALSE_TYPE) goto l3210; /* x224382 */ /* x224381 */ t9624 = e19147; p19161 = t9624; /* x224380 stalin.sc:31099:1071166 */ /* x224379 stalin.sc:31099:1071172 */ /* x224378 stalin.sc:31099:1071180 */ t9626 = *((struct w66023 *)(&(p19161->a32833))); /* x224377 stalin.sc:31099:1071173 */ t9627 = *((struct w49 *)(&t9626)); t9625 = f26181(t9627); /* x224376 stalin.sc:31099:1071167 */ a32833 = t9625; goto h19147; l3210: /* x224411 */ /* x224385 stalin.sc:31100:1071190 */ /* x224384 stalin.sc:31100:1071197 */ t9615 = *((struct w66023 *)(&(e19147->a32833))); /* x267633 stalin.sc:31100:1071191 */ if (!((t9615.tag)==STRUCTURE_TYPE24753)) goto l3212; /* x224399 */ /* x224398 */ t9618 = e19147; p19162 = t9618; /* x224397 */ /* x224396 stalin.sc:31100:1071200 */ /* x224395 stalin.sc:31100:1071206 */ /* x224394 stalin.sc:31100:1071211 */ t9623 = p19162->a32833.value.structure_type24753; /* x267631 stalin.sc:31100:1071207 */ t9622 = t9623->s0; /* x224392 stalin.sc:31100:1071201 */ f19147(t9622); /* x224391 */ t9619 = p19162; p19163 = t9619; /* x224390 stalin.sc:31100:1071215 */ /* x224389 stalin.sc:31100:1071221 */ /* x224388 stalin.sc:31100:1071226 */ t9621 = p19163->a32833.value.structure_type24753; /* x267632 stalin.sc:31100:1071222 */ t9620 = t9621->s1; /* x224386 stalin.sc:31100:1071216 */ a32833 = t9620; goto h19147; l3212: /* x224410 */ /* x224402 stalin.sc:31101:1071236 */ /* x224401 stalin.sc:31101:1071243 */ t9616 = *((struct w66009 *)(&(e19147->a32833))); /* x267630 stalin.sc:31101:1071237 */ if (!((t9616.tag)==NULL_TYPE)) goto l3214; /* x224405 */ /* x224404 */ /* x224403 stalin.sc:31101:1071246 */ return; l3214: /* x224409 */ /* x224408 */ /* x224407 stalin.sc:31102:1071260 */ /* x224406 stalin.sc:31102:1071261 */ /* x295613 QobiScheme.sc:166:5314 */ /* x295612 QobiScheme.sc:166:5321 */ t9617 = "This shouldn\'t happen"; /* x295611 QobiScheme.sc:166:5315 */ stalin_panic(t9617);} /* GET-CHAR[19127] */ unsigned f19127(struct p18679 *p19127) {unsigned a32814; /* C */ unsigned a32817; /* v */ struct p18679 *t9651; struct p18678 *t9652; unsigned t9653; unsigned t9654; char t9655; char t9656; struct w49 t9657; char t9658; struct p18679 *t9659; unsigned t9660; FILE *t9661; struct structure_type24753 *t9662; struct p18678 *t9663; int t9664; int t9665; struct p18678 *t9666; struct p18678 *t9667; int t9668; int t9669; int t9670; int t9671; struct p18679 *p19128; struct p18678 *p19129; struct p18679 *p19131; struct p18678 *p19132; struct p18678 *p19133; struct p18678 *p19134; /* x224244 */ /* x224212 stalin.sc:30505:1050172 */ /* x224211 stalin.sc:30505:1050197 */ p19127->p18678->a32564 = p19127->p18678->a32568; /* x224214 stalin.sc:30506:1050218 */ /* x224213 stalin.sc:30506:1050248 */ p19127->p18678->a32563 = p19127->p18678->a32567; /* x224216 stalin.sc:30507:1050274 */ /* x224215 stalin.sc:30507:1050316 */ p19127->p18678->a32562 = p19127->p18678->a32566; /* x224218 stalin.sc:30508:1050354 */ /* x224217 stalin.sc:30508:1050374 */ p19127->p18678->a32561 = p19127->p18678->a32565; /* x224238 stalin.sc:30509:1050390 */ /* x224219 stalin.sc:30509:1050397 */ if ((p19127->p18678->a32565)==FALSE_TYPE) goto l3229; /* x224230 */ /* x224229 */ t9666 = p19127->p18678; p19132 = t9666; /* x224228 */ /* x224227 stalin.sc:30509:1050406 */ /* x224226 stalin.sc:30509:1050426 */ /* x224224 stalin.sc:30509:1050429 */ t9668 = p19132->a32568; /* x224225 stalin.sc:30509:1050443 */ t9669 = 1; /* x267640 stalin.sc:30509:1050427 */ p19132->a32568 = t9668+t9669; /* x224222 */ t9667 = p19132; p19133 = t9667; /* x224221 stalin.sc:30510:1050455 */ /* x224220 stalin.sc:30510:1050492 */ p19133->a32566 = 0; goto l3230; l3229: /* x224237 */ /* x224236 */ t9663 = p19127->p18678; p19134 = t9663; /* x224235 stalin.sc:30511:1050507 */ /* x224234 stalin.sc:30512:1050547 */ /* x224232 stalin.sc:30512:1050550 */ t9664 = p19134->a32566; /* x224233 stalin.sc:30512:1050581 */ t9665 = 1; /* x267639 stalin.sc:30512:1050548 */ p19134->a32566 = t9664+t9665; l3230: /* x224243 stalin.sc:30513:1050593 */ /* x224242 stalin.sc:30513:1050618 */ /* x224240 stalin.sc:30513:1050621 */ t9670 = p19127->p18678->a32567; /* x224241 stalin.sc:30513:1050640 */ t9671 = 1; /* x267638 stalin.sc:30513:1050619 */ p19127->p18678->a32567 = t9670+t9671; /* x224210 */ t9651 = p19127; p19128 = t9651; /* x224209 stalin.sc:30514:1050650 */ /* x224208 stalin.sc:30514:1050659 */ /* x224207 stalin.sc:30514:1050663 */ t9660 = p19128->p18678->a32560; /* x224206 */ t9659 = p19128; p19131 = t9659; a32817 = t9660; /* x224205 */ /* x224200 */ if (a32817==FALSE_TYPE) goto l3226; /* x224201 */ t9653 = a32817; goto l3227; l3226: /* x224204 */ /* x224203 stalin.sc:30514:1050684 */ t9661 = p19131->a32569; /* x224202 stalin.sc:30514:1050674 */ t9662 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t9662==NULL) {backtrace_internal("[inside GET-CHAR 19131]"); out_of_memory_error();} t9662->s0.tag = INPUT_PORT_TYPE; t9662->s0.value.input_port_type = t9661; t9662->s1.tag = NULL_TYPE; t9653 = f28696(t9662); l3227: /* x224199 */ t9652 = p19128->p18678; p19129 = t9652; a32814 = t9653; /* x224198 */ /* x224185 stalin.sc:30515:1050700 */ /* x224184 stalin.sc:30515:1050716 */ p19129->a32560 = FALSE_TYPE; /* x224197 stalin.sc:30516:1050727 */ /* x224196 stalin.sc:30516:1050742 */ /* x224196 stalin.sc:30516:1050742 */ /* x224190 stalin.sc:30516:1050747 */ /* x224189 stalin.sc:30516:1050752 */ /* x224188 stalin.sc:30516:1050765 */ t9654 = a32814; /* x267641 stalin.sc:30516:1050753 */ if (t9654==EOF_OBJECT_TYPE) goto l3222; /* x224194 */ /* x224193 stalin.sc:30516:1050779 */ t9656 = '\n'; /* x224192 stalin.sc:30516:1050777 */ t9655 = (char)(a32814>>2); /* x224191 stalin.sc:30516:1050770 */ t9657.tag = ((unsigned)((unsigned char)t9655))<<2; t9658 = t9656; if (f27342(t9657, t9658)==FALSE_TYPE) goto l3222; p19129->a32565 = TRUE_TYPE; goto l3223; l3222: p19129->a32565 = FALSE_TYPE; l3223: /* x224183 */ /* x224182 stalin.sc:30517:1050799 */ return a32814;} /* UNGET-CHAR[19125] */ void f19125(struct p18678 *p19125, unsigned a32803) {struct p18678 *t9672; struct p18678 *p19126; /* x224179 */ /* x224172 stalin.sc:30499:1049904 */ /* x224171 stalin.sc:30499:1049924 */ p19125->a32568 = p19125->a32564; /* x224174 stalin.sc:30500:1049950 */ /* x224173 stalin.sc:30500:1049975 */ p19125->a32567 = p19125->a32563; /* x224176 stalin.sc:30501:1050006 */ /* x224175 stalin.sc:30501:1050043 */ p19125->a32566 = p19125->a32562; /* x224178 stalin.sc:30502:1050086 */ /* x224177 stalin.sc:30502:1050101 */ p19125->a32565 = p19125->a32561; /* x224170 */ t9672 = p19125; p19126 = t9672; /* x224169 stalin.sc:30503:1050122 */ /* x224168 stalin.sc:30503:1050138 */ p19126->a32560 = a32803; return;} /* READ-ERROR[19123] */ void f19123(struct p18678 *p19123, char *a32801) {int t9673; char *t9674; struct w49 t9675; int t9676; char *t9677; struct w49 t9678; struct structure_type24753 *t9679; struct w49 t9680; struct w49 t9681; /* x224165 */ /* x224164 stalin.sc:30496:1049802 */ /* x224163 stalin.sc:30496:1049844 */ t9677 = a32801; /* x224162 stalin.sc:30496:1049830 */ t9676 = p19123->a32568; /* x224161 stalin.sc:30496:1049821 */ t9675 = p19123->p18677->a32557; /* x224160 stalin.sc:30496:1049810 */ t9674 = "~a:~s:~a"; /* x224159 stalin.sc:30496:1049803 */ t9678.tag = STRING_TYPE; t9678.value.string_type = t9674; t9681.tag = STRUCTURE_TYPE24753; t9681.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9681.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30496, 1049802); out_of_memory_error();} t9681.value.structure_type24753->s0.tag = STRING_TYPE; t9681.value.structure_type24753->s0.value.string_type = t9677; t9681.value.structure_type24753->s1.tag = NULL_TYPE; t9680.tag = STRUCTURE_TYPE24753; t9680.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t9680.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30496, 1049802); out_of_memory_error();} t9680.value.structure_type24753->s0.tag = FIXNUM_TYPE; t9680.value.structure_type24753->s0.value.fixnum_type = t9676; t9680.value.structure_type24753->s1 = t9681; t9679 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t9679==NULL) {backtrace("stalin.sc", 30496, 1049802); out_of_memory_error();} t9679->s0 = t9675; t9679->s1 = t9680; f5365(t9678, t9679); /* x224158 */ /* x224157 stalin.sc:30497:1049857 */ /* x224156 stalin.sc:30497:1049858 */ /* x294833 stalin.sc:87:2881 */ /* x294832 stalin.sc:87:2887 */ t9673 = -1; /* x294831 stalin.sc:87:2882 */ exit(t9673);} /* LOOKUP-CHARACTER-NAME[19092] */ struct w49 f19092(struct structure_type24753 *a32788) {struct w49 a32791; /* NAMES */ struct w49 a32795; /* S */ struct w49 a32796; /* NAME */ struct w16638 a35630; /* PAIR */ struct w16638 a35631; /* PAIR */ struct w49 a35632; /* PAIR */ struct w49 a36211; /* PAIR */ struct w16638 a36212; /* PAIR */ struct w16638 a36213; /* PAIR */ struct w49 a36214; /* PAIR */ struct structure_type24753 *t9682; struct structure_type24753 *t9683; struct w49 t9684; struct w49 t9685; struct w49 t9686; struct w49 t9687; struct w49 t9688; struct w49 t9689; struct w49 t9690; struct w49 t9691; struct w49 t9692; struct w16638 t9693; struct w16638 t9694; struct w16638 t9695; struct w16638 t9696; struct w49 t9697; struct w49 t9698; struct w16638 t9699; struct w16638 t9700; struct w16638 t9701; struct w16638 t9702; struct w49 t9703; struct w49 t9704; struct w49 t9705; struct w49 t9706; struct w49 t9707; struct w49 t9708; struct w49 t9709; struct w49 t9710; struct w49 t9711; struct w49 t9712; struct p18678 *t9713; char *t9714; /* x224064 stalin.sc:30657:1055875 */ /* x224063 stalin.sc:30657:1055893 */ t9682 = &t9715; /* x224030 */ /* x224029 */ /* x224028 */ /* x224027 */ /* x224026 */ /* x224025 */ /* x224024 */ /* x223938 */ /* x223937 stalin.sc:30657:1055880 */ a32791.tag = STRUCTURE_TYPE24753; a32791.value.structure_type24753 = t9682; h19095: /* x224023 */ /* x224022 stalin.sc:30659:1055983 */ /* x224014 stalin.sc:30659:1055989 */ /* x224013 stalin.sc:30659:1055996 */ t9712 = a32791; /* x267648 stalin.sc:30659:1055990 */ if (!((t9712.tag)==NULL_TYPE)) goto l3239; /* x224019 */ /* x224018 */ /* x224017 stalin.sc:30659:1056003 */ /* x224016 stalin.sc:30659:1056015 */ t9714 = "Unrecognized character name"; /* x224015 stalin.sc:30659:1056004 */ t9713 = a32580; f19123(t9713, t9714); goto l3240; l3239: /* x224021 stalin.sc:30659:1055983 */ /* x224020 stalin.sc:30659:1055983 */ l3240: /* x224011 */ /* x224010 stalin.sc:30660:1056048 */ /* x223999 stalin.sc:30660:1056052 */ /* x223993 stalin.sc:30660:1056067 */ t9683 = a32788; /* x223998 stalin.sc:30660:1056076 */ /* x223997 stalin.sc:30660:1056081 */ /* x223996 stalin.sc:30660:1056088 */ t9704 = a32791; /* x223995 stalin.sc:30660:1056082 */ a36214 = t9704; /* x276213 */ /* x276212 */ t9705 = a36214; /* x276211 */ if (!((t9705.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30363]"); structure_ref_error();} t9703 = t9705.value.structure_type24753->s0; /* x267650 stalin.sc:30660:1056077 */ if (!((t9703.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 30660, 1056076); structure_ref_error();} t9684 = t9703.value.structure_type24753->s0; /* x223992 */ /* x223991 */ /* x223990 */ /* x223989 */ /* x223988 */ /* x223987 */ /* x223986 */ /* x223940 */ /* x223939 stalin.sc:30660:1056057 */ a32795.tag = STRUCTURE_TYPE24753; a32795.value.structure_type24753 = t9683; a32796 = t9684; h19099: /* x223985 stalin.sc:30661:1056104 */ /* x223984 stalin.sc:30661:1056108 */ /* x223979 stalin.sc:30661:1056113 */ /* x223978 stalin.sc:30661:1056120 */ t9685 = a32795; /* x267652 stalin.sc:30661:1056114 */ if (!((t9685.tag)==NULL_TYPE)) goto l3233; /* x223982 */ /* x223981 stalin.sc:30661:1056130 */ t9686 = a32796; /* x267651 stalin.sc:30661:1056124 */ if ((t9686.tag)==NULL_TYPE) goto l3231; l3233: /* x223974 */ /* x223947 stalin.sc:30662:1056145 */ /* x223946 stalin.sc:30662:1056150 */ /* x223945 stalin.sc:30662:1056157 */ t9687 = a32795; /* x267655 stalin.sc:30662:1056151 */ if ((t9687.tag)==NULL_TYPE) goto l3232; /* x223972 */ /* x223952 stalin.sc:30663:1056169 */ /* x223951 stalin.sc:30663:1056174 */ /* x223950 stalin.sc:30663:1056181 */ t9688 = a32796; /* x267653 stalin.sc:30663:1056175 */ if ((t9688.tag)==NULL_TYPE) goto l3232; /* x223970 */ /* x223960 stalin.sc:30664:1056196 */ /* x223959 stalin.sc:30664:1056217 */ /* x223958 stalin.sc:30664:1056224 */ t9695 = *((struct w16638 *)(&a32796)); /* x223957 stalin.sc:30664:1056218 */ a36213 = t9695; /* x276209 */ /* x276208 */ t9696 = a36213; /* x276207 */ if (!((t9696.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30362]"); structure_ref_error();} t9690 = t9696.value.structure_type24753->s0; /* x223956 stalin.sc:30664:1056207 */ /* x223955 stalin.sc:30664:1056214 */ t9693 = *((struct w16638 *)(&a32795)); /* x223954 stalin.sc:30664:1056208 */ a36212 = t9693; /* x276205 */ /* x276204 */ t9694 = a36212; /* x276203 */ if (!((t9694.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30361]"); structure_ref_error();} t9689 = t9694.value.structure_type24753->s0; /* x223953 stalin.sc:30664:1056197 */ t9691 = t9689; t9692 = t9690; if (f27372(t9691, t9692)==FALSE_TYPE) goto l3232; /* x223968 */ /* x223964 stalin.sc:30665:1056246 */ /* x223963 stalin.sc:30665:1056252 */ t9699 = *((struct w16638 *)(&a32795)); /* x223962 stalin.sc:30665:1056247 */ a35630 = t9699; /* x273877 */ /* x273876 */ t9700 = a35630; /* x273875 */ if (!((t9700.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29779]"); structure_ref_error();} t9697 = t9700.value.structure_type24753->s1; /* x223967 stalin.sc:30665:1056255 */ /* x223966 stalin.sc:30665:1056261 */ t9701 = *((struct w16638 *)(&a32796)); /* x223965 stalin.sc:30665:1056256 */ a35631 = t9701; /* x273881 */ /* x273880 */ t9702 = a35631; /* x273879 */ if (!((t9702.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29780]"); structure_ref_error();} t9698 = t9702.value.structure_type24753->s1; /* x223961 stalin.sc:30665:1056240 */ a32795 = t9697; a32796 = t9698; goto h19099; l3231: /* x224004 stalin.sc:30666:1056276 */ /* x224003 stalin.sc:30666:1056281 */ /* x224002 stalin.sc:30666:1056288 */ t9710 = a32791; /* x224001 stalin.sc:30666:1056282 */ a36211 = t9710; /* x276201 */ /* x276200 */ t9711 = a36211; /* x276199 */ if (!((t9711.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30360]"); structure_ref_error();} t9709 = t9711.value.structure_type24753->s0; /* x267649 stalin.sc:30666:1056277 */ if ((t9709.tag)==STRUCTURE_TYPE24753) return t9709.value.structure_type24753->s1; backtrace("stalin.sc", 30666, 1056276); structure_ref_error(); l3232: /* x224009 stalin.sc:30667:1056301 */ /* x224008 stalin.sc:30667:1056307 */ /* x224007 stalin.sc:30667:1056313 */ t9707 = a32791; /* x224006 stalin.sc:30667:1056308 */ a35632 = t9707; /* x273885 */ /* x273884 */ t9708 = a35632; /* x273883 */ if (!((t9708.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29781]"); structure_ref_error();} t9706 = t9708.value.structure_type24753->s1; /* x224005 stalin.sc:30667:1056302 */ a32791 = t9706; goto h19095;} /* READ-SYMBOL[19086] */ char *f19086(struct structure_type24753 *a32785) {unsigned a32786; /* C */ unsigned t9731; unsigned t9732; char t9733; unsigned t9734; char *t9735; struct w12224 t9736; struct w49 t9737; struct structure_type24753 *t9738; struct w49 t9739; struct p18678 *t9740; char t9741; unsigned t9742; struct structure_type24753 *t9743; char t9744; struct structure_type24753 *t9745; char t9746; struct w49 t9747; char *t9748; struct w12224 t9749; struct w49 t9750; struct structure_type24753 *t9751; struct w49 t9752; struct p18679 *t9753; h19086: /* x223934 stalin.sc:30651:1055586 */ /* x223933 stalin.sc:30651:1055595 */ /* x223932 stalin.sc:30651:1055596 */ t9753 = a32578; t9731 = f19127(t9753); /* x223931 */ a32786 = t9731; /* x223930 stalin.sc:30652:1055609 */ /* x223892 stalin.sc:30652:1055616 */ /* x223891 stalin.sc:30652:1055629 */ t9732 = a32786; /* x267658 stalin.sc:30652:1055617 */ if (!(t9732==EOF_OBJECT_TYPE)) goto l3242; /* x223901 */ /* x223900 */ /* x223899 stalin.sc:30652:1055632 */ /* x223898 stalin.sc:30652:1055648 */ /* x223897 stalin.sc:30652:1055662 */ /* x223896 stalin.sc:30652:1055671 */ t9751 = a32785; /* x223895 stalin.sc:30652:1055663 */ t9752.tag = STRUCTURE_TYPE24753; t9752.value.structure_type24753 = t9751; t9749 = f26331(t9752); /* x223894 stalin.sc:30652:1055649 */ t9750 = *((struct w49 *)(&t9749)); t9748 = f27585(t9750); /* x223893 stalin.sc:30652:1055633 */ return f26395(t9748); l3242: /* x223929 */ /* x223904 stalin.sc:30653:1055685 */ /* x223903 stalin.sc:30653:1055703 */ t9733 = (char)(a32786>>2); /* x223902 stalin.sc:30653:1055686 */ t9734 = ((unsigned)((unsigned char)t9733))<<2; if (f19081(t9734)==FALSE_TYPE) goto l3244; /* x223914 */ /* x223913 */ /* x223912 stalin.sc:30653:1055706 */ /* x223911 stalin.sc:30653:1055719 */ /* x223909 stalin.sc:30653:1055725 */ /* x223908 stalin.sc:30653:1055738 */ t9746 = (char)(a32786>>2); /* x223907 stalin.sc:30653:1055726 */ t9747.tag = ((unsigned)((unsigned char)t9746))<<2; t9744 = f27415(t9747); /* x223910 stalin.sc:30653:1055741 */ t9745 = a32785; /* x267657 stalin.sc:30653:1055720 */ t9743 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t9743==NULL) {backtrace("stalin.sc", 30653, 1055719); out_of_memory_error();} t9743->s0.tag = ((unsigned)((unsigned char)t9744))<<2; t9743->s1.tag = STRUCTURE_TYPE24753; t9743->s1.value.structure_type24753 = t9745; /* x223905 stalin.sc:30653:1055707 */ a32785 = t9743; goto h19086; l3244: /* x223928 */ /* x223927 */ /* x223926 */ /* x223925 stalin.sc:30654:1055759 */ /* x223924 stalin.sc:30654:1055771 */ t9741 = (char)(a32786>>2); /* x223923 stalin.sc:30654:1055760 */ t9740 = a32579; t9742 = ((unsigned)((unsigned char)t9741))<<2; f19125(t9740, t9742); /* x223922 */ /* x223921 stalin.sc:30655:1055780 */ /* x223920 stalin.sc:30655:1055796 */ /* x223919 stalin.sc:30655:1055810 */ /* x223918 stalin.sc:30655:1055819 */ t9738 = a32785; /* x223917 stalin.sc:30655:1055811 */ t9739.tag = STRUCTURE_TYPE24753; t9739.value.structure_type24753 = t9738; t9736 = f26331(t9739); /* x223916 stalin.sc:30655:1055797 */ t9737 = *((struct w49 *)(&t9736)); t9735 = f27585(t9737); /* x223915 stalin.sc:30655:1055781 */ return f26395(t9735);} /* CHAR-SUBSEQUENT?[19081] */ unsigned f19081(unsigned a32780) {unsigned t9754; unsigned t9755; struct w49 t9756; unsigned t9757; char t9758; struct w49 t9759; char t9760; unsigned t9761; char t9762; struct w49 t9763; char t9764; unsigned t9765; char t9766; struct w49 t9767; char t9768; /* x223887 stalin.sc:30644:1055402 */ /* x223887 stalin.sc:30644:1055402 */ /* x223886 stalin.sc:30644:1055406 */ /* x223885 stalin.sc:30644:1055421 */ t9754 = a32780; /* x223884 stalin.sc:30644:1055407 */ if (!(f19066(t9754)==FALSE_TYPE)) goto l3245; /* x223881 */ /* x223880 stalin.sc:30645:1055428 */ /* x223879 stalin.sc:30645:1055443 */ t9755 = a32780; /* x223878 stalin.sc:30645:1055429 */ t9756.tag = t9755; if (!(f27405(t9756)==FALSE_TYPE)) goto l3245; /* x223875 */ /* x223874 stalin.sc:30646:1055450 */ /* x223873 stalin.sc:30646:1055460 */ t9758 = '+'; /* x223872 stalin.sc:30646:1055458 */ t9757 = a32780; /* x223871 stalin.sc:30646:1055451 */ t9759.tag = t9757; t9760 = t9758; if (!(f27342(t9759, t9760)==FALSE_TYPE)) goto l3245; /* x223868 */ /* x223867 stalin.sc:30647:1055469 */ /* x223866 stalin.sc:30647:1055479 */ t9762 = '-'; /* x223865 stalin.sc:30647:1055477 */ t9761 = a32780; /* x223864 stalin.sc:30647:1055470 */ t9763.tag = t9761; t9764 = t9762; if (!(f27342(t9763, t9764)==FALSE_TYPE)) goto l3245; /* x223861 */ /* x223860 stalin.sc:30648:1055498 */ t9766 = '.'; /* x223859 stalin.sc:30648:1055496 */ t9765 = a32780; /* x223858 stalin.sc:30648:1055489 */ t9767.tag = t9765; t9768 = t9766; if (f27342(t9767, t9768)==FALSE_TYPE) goto l3246; l3245: return TRUE_TYPE; l3246: return FALSE_TYPE;} /* CHAR-INITIAL?[19066] */ unsigned f19066(unsigned a32765) {unsigned t9769; unsigned t9770; char t9771; struct w49 t9772; char t9773; unsigned t9774; char t9775; struct w49 t9776; char t9777; unsigned t9778; char t9779; struct w49 t9780; char t9781; unsigned t9782; char t9783; struct w49 t9784; char t9785; unsigned t9786; char t9787; struct w49 t9788; char t9789; unsigned t9790; char t9791; struct w49 t9792; char t9793; unsigned t9794; char t9795; struct w49 t9796; char t9797; unsigned t9798; char t9799; struct w49 t9800; char t9801; unsigned t9802; char t9803; struct w49 t9804; char t9805; unsigned t9806; char t9807; struct w49 t9808; char t9809; unsigned t9810; char t9811; struct w49 t9812; char t9813; unsigned t9814; char t9815; struct w49 t9816; char t9817; unsigned t9818; char t9819; struct w49 t9820; char t9821; unsigned t9822; char t9823; struct w49 t9824; char t9825; /* x223847 stalin.sc:30628:1055067 */ /* x223847 stalin.sc:30628:1055067 */ /* x223846 stalin.sc:30628:1055071 */ /* x223845 stalin.sc:30628:1055089 */ t9769 = a32765; /* x223844 stalin.sc:30628:1055072 */ if (!(f27403(t9769)==FALSE_TYPE)) goto l3252; /* x223841 */ /* x223840 stalin.sc:30629:1055096 */ /* x223839 stalin.sc:30629:1055106 */ t9771 = '~'; /* x223838 stalin.sc:30629:1055104 */ t9770 = a32765; /* x223837 stalin.sc:30629:1055097 */ t9772.tag = t9770; t9773 = t9771; if (!(f27342(t9772, t9773)==FALSE_TYPE)) goto l3252; /* x223834 */ /* x223833 stalin.sc:30630:1055115 */ /* x223832 stalin.sc:30630:1055125 */ t9775 = '!'; /* x223831 stalin.sc:30630:1055123 */ t9774 = a32765; /* x223830 stalin.sc:30630:1055116 */ t9776.tag = t9774; t9777 = t9775; if (!(f27342(t9776, t9777)==FALSE_TYPE)) goto l3252; /* x223827 */ /* x223826 stalin.sc:30631:1055134 */ /* x223825 stalin.sc:30631:1055144 */ t9779 = '$'; /* x223824 stalin.sc:30631:1055142 */ t9778 = a32765; /* x223823 stalin.sc:30631:1055135 */ t9780.tag = t9778; t9781 = t9779; if (!(f27342(t9780, t9781)==FALSE_TYPE)) goto l3252; /* x223820 */ /* x223819 stalin.sc:30632:1055153 */ /* x223818 stalin.sc:30632:1055163 */ t9783 = '%'; /* x223817 stalin.sc:30632:1055161 */ t9782 = a32765; /* x223816 stalin.sc:30632:1055154 */ t9784.tag = t9782; t9785 = t9783; if (!(f27342(t9784, t9785)==FALSE_TYPE)) goto l3252; /* x223813 */ /* x223812 stalin.sc:30633:1055172 */ /* x223811 stalin.sc:30633:1055182 */ t9787 = '^'; /* x223810 stalin.sc:30633:1055180 */ t9786 = a32765; /* x223809 stalin.sc:30633:1055173 */ t9788.tag = t9786; t9789 = t9787; if (!(f27342(t9788, t9789)==FALSE_TYPE)) goto l3252; /* x223806 */ /* x223805 stalin.sc:30634:1055191 */ /* x223804 stalin.sc:30634:1055201 */ t9791 = '&'; /* x223803 stalin.sc:30634:1055199 */ t9790 = a32765; /* x223802 stalin.sc:30634:1055192 */ t9792.tag = t9790; t9793 = t9791; if (!(f27342(t9792, t9793)==FALSE_TYPE)) goto l3252; /* x223799 */ /* x223798 stalin.sc:30635:1055210 */ /* x223797 stalin.sc:30635:1055220 */ t9795 = '*'; /* x223796 stalin.sc:30635:1055218 */ t9794 = a32765; /* x223795 stalin.sc:30635:1055211 */ t9796.tag = t9794; t9797 = t9795; if (!(f27342(t9796, t9797)==FALSE_TYPE)) goto l3252; /* x223792 */ /* x223791 stalin.sc:30636:1055229 */ /* x223790 stalin.sc:30636:1055239 */ t9799 = '_'; /* x223789 stalin.sc:30636:1055237 */ t9798 = a32765; /* x223788 stalin.sc:30636:1055230 */ t9800.tag = t9798; t9801 = t9799; if (!(f27342(t9800, t9801)==FALSE_TYPE)) goto l3252; /* x223785 */ /* x223784 stalin.sc:30637:1055248 */ /* x223783 stalin.sc:30637:1055258 */ t9803 = '/'; /* x223782 stalin.sc:30637:1055256 */ t9802 = a32765; /* x223781 stalin.sc:30637:1055249 */ t9804.tag = t9802; t9805 = t9803; if (!(f27342(t9804, t9805)==FALSE_TYPE)) goto l3252; /* x223778 */ /* x223777 stalin.sc:30638:1055267 */ /* x223776 stalin.sc:30638:1055277 */ t9807 = ':'; /* x223775 stalin.sc:30638:1055275 */ t9806 = a32765; /* x223774 stalin.sc:30638:1055268 */ t9808.tag = t9806; t9809 = t9807; if (!(f27342(t9808, t9809)==FALSE_TYPE)) goto l3252; /* x223771 */ /* x223770 stalin.sc:30639:1055286 */ /* x223769 stalin.sc:30639:1055296 */ t9811 = '<'; /* x223768 stalin.sc:30639:1055294 */ t9810 = a32765; /* x223767 stalin.sc:30639:1055287 */ t9812.tag = t9810; t9813 = t9811; if (!(f27342(t9812, t9813)==FALSE_TYPE)) goto l3252; /* x223764 */ /* x223763 stalin.sc:30640:1055305 */ /* x223762 stalin.sc:30640:1055315 */ t9815 = '='; /* x223761 stalin.sc:30640:1055313 */ t9814 = a32765; /* x223760 stalin.sc:30640:1055306 */ t9816.tag = t9814; t9817 = t9815; if (!(f27342(t9816, t9817)==FALSE_TYPE)) goto l3252; /* x223757 */ /* x223756 stalin.sc:30641:1055324 */ /* x223755 stalin.sc:30641:1055334 */ t9819 = '>'; /* x223754 stalin.sc:30641:1055332 */ t9818 = a32765; /* x223753 stalin.sc:30641:1055325 */ t9820.tag = t9818; t9821 = t9819; if (!(f27342(t9820, t9821)==FALSE_TYPE)) goto l3252; /* x223750 */ /* x223749 stalin.sc:30642:1055353 */ t9823 = '?'; /* x223748 stalin.sc:30642:1055351 */ t9822 = a32765; /* x223747 stalin.sc:30642:1055344 */ t9824.tag = t9822; t9825 = t9823; if (f27342(t9824, t9825)==FALSE_TYPE) goto l3253; l3252: return TRUE_TYPE; l3253: return FALSE_TYPE;} /* READ-NUMBER[19029] */ struct w30215 f19029(int a32745) {struct w30215 r19029; unsigned a32746; /* C1 */ unsigned a32756; /* C2 */ unsigned a32758; /* C3 */ unsigned a32761; /* C3 */ unsigned t9826; unsigned t9827; char t9828; struct w49 t9829; char t9830; char t9831; struct w49 t9832; char t9833; char t9834; char t9835; struct w49 t9836; char t9837; char t9838; char t9839; struct w49 t9840; char t9841; char t9842; char t9843; struct w49 t9844; char t9845; char t9846; char t9847; struct w49 t9848; char t9849; char t9850; char t9851; struct w49 t9852; char t9853; char t9854; char t9855; struct w49 t9856; char t9857; char t9858; char t9859; struct w49 t9860; char t9861; char t9862; char t9863; struct w49 t9864; char t9865; char t9866; char t9867; struct w49 t9868; char t9869; char t9870; char t9871; struct w49 t9872; char t9873; struct p18678 *t9874; char t9875; unsigned t9876; unsigned t9877; unsigned t9878; struct w49 t9879; unsigned t9880; char t9881; struct w49 t9882; char t9883; unsigned t9884; char t9885; struct w49 t9886; char t9887; struct p18678 *t9888; char *t9889; unsigned t9890; float t9891; float t9892; int t9893; float t9894; int t9895; int t9896; int t9897; int t9898; int t9899; unsigned t9900; char t9901; unsigned t9902; struct p18678 *t9903; char *t9904; unsigned t9905; struct w49 t9906; struct p18678 *t9907; char *t9908; struct p18679 *t9909; unsigned t9910; float t9911; float t9912; int t9913; float t9914; int t9915; int t9916; int t9917; int t9918; unsigned t9919; char t9920; unsigned t9921; struct p18678 *t9922; char *t9923; unsigned t9924; struct w49 t9925; struct p18678 *t9926; char *t9927; struct p18679 *t9928; float t9929; float t9930; int t9931; float t9932; int t9933; int t9934; int t9935; int t9936; unsigned t9937; char t9938; unsigned t9939; struct p18678 *t9940; char *t9941; struct p18679 *t9942; float t9943; float t9944; float t9945; int t9946; int t9947; int t9948; int t9949; int t9950; int t9951; int t9952; int t9953; char t9954; char t9955; struct p18679 *t9956; h19029: /* x223716 stalin.sc:30589:1053612 */ /* x223715 stalin.sc:30589:1053622 */ /* x223714 stalin.sc:30589:1053623 */ t9956 = a32578; t9826 = f19127(t9956); /* x223713 */ a32746 = t9826; /* x223712 stalin.sc:30590:1053636 */ /* x223423 stalin.sc:30591:1053645 */ /* x223422 stalin.sc:30591:1053658 */ t9827 = a32746; /* x267687 stalin.sc:30591:1053646 */ if (!(t9827==EOF_OBJECT_TYPE)) goto l3270; /* x223426 */ /* x223425 */ /* x223424 stalin.sc:30591:1053662 */ r19029.tag = FIXNUM_TYPE; r19029.value.fixnum_type = a32745; return r19029; l3270: /* x223711 */ /* x223429 stalin.sc:30592:1053668 */ /* x223428 stalin.sc:30592:1053683 */ t9828 = (char)(a32746>>2); /* x223427 stalin.sc:30592:1053669 */ t9829.tag = ((unsigned)((unsigned char)t9828))<<2; if (f27405(t9829)==FALSE_TYPE) goto l3272; /* x223447 */ /* x223446 */ /* x223445 stalin.sc:30593:1053690 */ /* x223444 stalin.sc:30594:1053707 */ /* x223435 stalin.sc:30594:1053710 */ /* x223433 stalin.sc:30594:1053713 */ t9950 = 10; /* x223434 stalin.sc:30594:1053716 */ t9951 = a32745; /* x267685 stalin.sc:30594:1053711 */ t9948 = t9950*t9951; /* x223443 stalin.sc:30594:1053719 */ /* x223439 stalin.sc:30594:1053722 */ /* x223438 stalin.sc:30594:1053737 */ t9954 = (char)(a32746>>2); /* x267683 stalin.sc:30594:1053723 */ t9952 = (int)((unsigned char)t9954); /* x223442 stalin.sc:30594:1053741 */ /* x223441 stalin.sc:30594:1053756 */ t9955 = '0'; /* x267682 stalin.sc:30594:1053742 */ t9953 = (int)((unsigned char)t9955); /* x267684 stalin.sc:30594:1053720 */ t9949 = t9952-t9953; /* x267686 stalin.sc:30594:1053708 */ t9947 = t9948+t9949; /* x223430 stalin.sc:30593:1053691 */ a32745 = t9947; goto h19029; l3272: /* x223710 */ /* x223451 stalin.sc:30595:1053768 */ /* x223450 stalin.sc:30595:1053779 */ t9831 = '.'; /* x223449 stalin.sc:30595:1053776 */ t9830 = (char)(a32746>>2); /* x223448 stalin.sc:30595:1053769 */ t9832.tag = ((unsigned)((unsigned char)t9830))<<2; t9833 = t9831; if (f27342(t9832, t9833)==FALSE_TYPE) goto l3274; /* x223459 */ /* x223458 */ /* x223457 stalin.sc:30595:1053784 */ /* x223455 stalin.sc:30595:1053805 */ /* x223454 stalin.sc:30595:1053821 */ t9946 = a32745; /* x267681 stalin.sc:30595:1053806 */ t9943 = (float)t9946; /* x223456 stalin.sc:30595:1053824 */ t9944 = 1.0e1; /* x223452 stalin.sc:30595:1053785 */ t9945 = f18993(t9943, t9944); r19029.tag = FLONUM_TYPE; r19029.value.flonum_type = t9945; return r19029; l3274: /* x223709 */ /* x223544 stalin.sc:30596:1053834 */ /* x223543 stalin.sc:30596:1053838 */ /* x223542 stalin.sc:30596:1053849 */ t9835 = 'e'; /* x223541 stalin.sc:30596:1053846 */ t9834 = (char)(a32746>>2); /* x223540 stalin.sc:30596:1053839 */ t9836.tag = ((unsigned)((unsigned char)t9834))<<2; t9837 = t9835; if (!(f27342(t9836, t9837)==FALSE_TYPE)) goto l3275; /* x223537 */ /* x223536 stalin.sc:30596:1053854 */ /* x223535 stalin.sc:30596:1053865 */ t9839 = 'E'; /* x223534 stalin.sc:30596:1053862 */ t9838 = (char)(a32746>>2); /* x223533 stalin.sc:30596:1053855 */ t9840.tag = ((unsigned)((unsigned char)t9838))<<2; t9841 = t9839; if (!(f27342(t9840, t9841)==FALSE_TYPE)) goto l3275; /* x223530 */ /* x223529 stalin.sc:30597:1053877 */ /* x223528 stalin.sc:30597:1053888 */ t9843 = 's'; /* x223527 stalin.sc:30597:1053885 */ t9842 = (char)(a32746>>2); /* x223526 stalin.sc:30597:1053878 */ t9844.tag = ((unsigned)((unsigned char)t9842))<<2; t9845 = t9843; if (!(f27342(t9844, t9845)==FALSE_TYPE)) goto l3275; /* x223523 */ /* x223522 stalin.sc:30597:1053893 */ /* x223521 stalin.sc:30597:1053904 */ t9847 = 'S'; /* x223520 stalin.sc:30597:1053901 */ t9846 = (char)(a32746>>2); /* x223519 stalin.sc:30597:1053894 */ t9848.tag = ((unsigned)((unsigned char)t9846))<<2; t9849 = t9847; if (!(f27342(t9848, t9849)==FALSE_TYPE)) goto l3275; /* x223516 */ /* x223515 stalin.sc:30598:1053916 */ /* x223514 stalin.sc:30598:1053927 */ t9851 = 'f'; /* x223513 stalin.sc:30598:1053924 */ t9850 = (char)(a32746>>2); /* x223512 stalin.sc:30598:1053917 */ t9852.tag = ((unsigned)((unsigned char)t9850))<<2; t9853 = t9851; if (!(f27342(t9852, t9853)==FALSE_TYPE)) goto l3275; /* x223509 */ /* x223508 stalin.sc:30598:1053932 */ /* x223507 stalin.sc:30598:1053943 */ t9855 = 'F'; /* x223506 stalin.sc:30598:1053940 */ t9854 = (char)(a32746>>2); /* x223505 stalin.sc:30598:1053933 */ t9856.tag = ((unsigned)((unsigned char)t9854))<<2; t9857 = t9855; if (!(f27342(t9856, t9857)==FALSE_TYPE)) goto l3275; /* x223502 */ /* x223501 stalin.sc:30599:1053955 */ /* x223500 stalin.sc:30599:1053966 */ t9859 = 'd'; /* x223499 stalin.sc:30599:1053963 */ t9858 = (char)(a32746>>2); /* x223498 stalin.sc:30599:1053956 */ t9860.tag = ((unsigned)((unsigned char)t9858))<<2; t9861 = t9859; if (!(f27342(t9860, t9861)==FALSE_TYPE)) goto l3275; /* x223495 */ /* x223494 stalin.sc:30599:1053971 */ /* x223493 stalin.sc:30599:1053982 */ t9863 = 'D'; /* x223492 stalin.sc:30599:1053979 */ t9862 = (char)(a32746>>2); /* x223491 stalin.sc:30599:1053972 */ t9864.tag = ((unsigned)((unsigned char)t9862))<<2; t9865 = t9863; if (!(f27342(t9864, t9865)==FALSE_TYPE)) goto l3275; /* x223488 */ /* x223487 stalin.sc:30600:1053994 */ /* x223486 stalin.sc:30600:1054005 */ t9867 = 'l'; /* x223485 stalin.sc:30600:1054002 */ t9866 = (char)(a32746>>2); /* x223484 stalin.sc:30600:1053995 */ t9868.tag = ((unsigned)((unsigned char)t9866))<<2; t9869 = t9867; if (!(f27342(t9868, t9869)==FALSE_TYPE)) goto l3275; /* x223481 */ /* x223480 stalin.sc:30600:1054021 */ t9871 = 'L'; /* x223479 stalin.sc:30600:1054018 */ t9870 = (char)(a32746>>2); /* x223478 stalin.sc:30600:1054011 */ t9872.tag = ((unsigned)((unsigned char)t9870))<<2; t9873 = t9871; if (f27342(t9872, t9873)==FALSE_TYPE) goto l3276; l3275: /* x223700 */ /* x223699 */ /* x223698 stalin.sc:30601:1054030 */ /* x223697 stalin.sc:30601:1054040 */ /* x223696 stalin.sc:30601:1054041 */ t9942 = a32578; t9877 = f19127(t9942); /* x223695 */ a32756 = t9877; /* x223694 */ /* x223693 stalin.sc:30602:1054057 */ /* x223685 stalin.sc:30602:1054063 */ /* x223684 stalin.sc:30602:1054076 */ t9939 = a32756; /* x267659 stalin.sc:30602:1054064 */ if (!(t9939==EOF_OBJECT_TYPE)) goto l3305; /* x223690 */ /* x223689 */ /* x223688 stalin.sc:30602:1054080 */ /* x223687 stalin.sc:30602:1054092 */ t9941 = "EOF while reading exponent"; /* x223686 stalin.sc:30602:1054081 */ t9940 = a32580; f19123(t9940, t9941); goto l3306; l3305: /* x223692 stalin.sc:30602:1054057 */ /* x223691 stalin.sc:30602:1054057 */ l3306: /* x223682 */ /* x223681 stalin.sc:30603:1054127 */ /* x223547 stalin.sc:30604:1054139 */ /* x223546 stalin.sc:30604:1054154 */ t9878 = a32756; /* x223545 stalin.sc:30604:1054140 */ t9879.tag = t9878; if (f27405(t9879)==FALSE_TYPE) goto l3287; /* x223567 */ /* x223566 */ /* x223565 stalin.sc:30605:1054164 */ /* x223551 stalin.sc:30605:1054167 */ /* x223550 stalin.sc:30605:1054183 */ t9931 = a32745; /* x267679 stalin.sc:30605:1054168 */ t9929 = (float)t9931; /* x223564 stalin.sc:30606:1054188 */ /* x223553 stalin.sc:30606:1054194 */ t9932 = 1.0e1; /* x223563 stalin.sc:30607:1054207 */ /* x223562 stalin.sc:30608:1054244 */ /* x223558 stalin.sc:30608:1054247 */ /* x223557 stalin.sc:30608:1054262 */ t9937 = a32756; /* x267676 stalin.sc:30608:1054248 */ if (!(t9937>2))); /* x223561 stalin.sc:30608:1054266 */ /* x223560 stalin.sc:30608:1054281 */ t9938 = '0'; /* x267675 stalin.sc:30608:1054267 */ t9936 = (int)((unsigned char)t9938); /* x267677 stalin.sc:30608:1054245 */ t9934 = t9935-t9936; /* x223554 stalin.sc:30607:1054208 */ t9933 = f18979(t9934); /* x267678 stalin.sc:30606:1054189 */ t9930 = pow(t9932, t9933); /* x267680 stalin.sc:30605:1054165 */ r19029.tag = FLONUM_TYPE; r19029.value.flonum_type = t9929*t9930; return r19029; l3287: /* x223680 */ /* x223571 stalin.sc:30609:1054297 */ /* x223570 stalin.sc:30609:1054308 */ t9881 = '+'; /* x223569 stalin.sc:30609:1054305 */ t9880 = a32756; /* x223568 stalin.sc:30609:1054298 */ t9882.tag = t9880; t9883 = t9881; if (f27342(t9882, t9883)==FALSE_TYPE) goto l3289; /* x223619 */ /* x223618 */ /* x223617 stalin.sc:30610:1054319 */ /* x223616 stalin.sc:30610:1054329 */ /* x223615 stalin.sc:30610:1054330 */ t9928 = a32578; t9910 = f19127(t9928); /* x223614 */ a32758 = t9910; /* x223613 */ /* x223601 stalin.sc:30611:1054349 */ /* x223593 stalin.sc:30611:1054355 */ /* x223592 stalin.sc:30611:1054368 */ t9921 = a32758; /* x267668 stalin.sc:30611:1054356 */ if (!(t9921==EOF_OBJECT_TYPE)) goto l3299; /* x223598 */ /* x223597 */ /* x223596 stalin.sc:30611:1054372 */ /* x223595 stalin.sc:30611:1054384 */ t9923 = "EOF while reading exponent"; /* x223594 stalin.sc:30611:1054373 */ t9922 = a32580; f19123(t9922, t9923); goto l3300; l3299: /* x223600 stalin.sc:30611:1054349 */ /* x223599 stalin.sc:30611:1054349 */ l3300: /* x223612 stalin.sc:30612:1054422 */ /* x223604 stalin.sc:30612:1054430 */ /* x223603 stalin.sc:30612:1054445 */ t9924 = a32758; /* x223602 stalin.sc:30612:1054431 */ t9925.tag = t9924; if (f27405(t9925)==FALSE_TYPE) goto l3302; /* x223606 */ /* x223605 */ goto l3303; l3302: /* x223611 */ /* x223610 */ /* x223609 stalin.sc:30612:1054449 */ /* x223608 stalin.sc:30612:1054461 */ t9927 = "Unfinished exponent"; /* x223607 stalin.sc:30612:1054450 */ t9926 = a32580; f19123(t9926, t9927); l3303: /* x223590 */ /* x223589 stalin.sc:30613:1054492 */ /* x223575 stalin.sc:30613:1054495 */ /* x223574 stalin.sc:30613:1054511 */ t9913 = a32745; /* x267673 stalin.sc:30613:1054496 */ t9911 = (float)t9913; /* x223588 stalin.sc:30614:1054517 */ /* x223577 stalin.sc:30614:1054523 */ t9914 = 1.0e1; /* x223587 stalin.sc:30615:1054537 */ /* x223586 stalin.sc:30616:1054568 */ /* x223582 stalin.sc:30616:1054571 */ /* x223581 stalin.sc:30616:1054586 */ t9919 = a32758; /* x267670 stalin.sc:30616:1054572 */ if (!(t9919>2))); /* x223585 stalin.sc:30616:1054590 */ /* x223584 stalin.sc:30616:1054605 */ t9920 = '0'; /* x267669 stalin.sc:30616:1054591 */ t9918 = (int)((unsigned char)t9920); /* x267671 stalin.sc:30616:1054569 */ t9916 = t9917-t9918; /* x223578 stalin.sc:30615:1054538 */ t9915 = f18979(t9916); /* x267672 stalin.sc:30614:1054518 */ t9912 = pow(t9914, t9915); /* x267674 stalin.sc:30613:1054493 */ r19029.tag = FLONUM_TYPE; r19029.value.flonum_type = t9911*t9912; return r19029; l3289: /* x223679 */ /* x223623 stalin.sc:30617:1054622 */ /* x223622 stalin.sc:30617:1054633 */ t9885 = '-'; /* x223621 stalin.sc:30617:1054630 */ t9884 = a32756; /* x223620 stalin.sc:30617:1054623 */ t9886.tag = t9884; t9887 = t9885; if (f27342(t9886, t9887)==FALSE_TYPE) goto l3291; /* x223673 */ /* x223672 */ /* x223671 stalin.sc:30618:1054644 */ /* x223670 stalin.sc:30618:1054654 */ /* x223669 stalin.sc:30618:1054655 */ t9909 = a32578; t9890 = f19127(t9909); /* x223668 */ a32761 = t9890; /* x223667 */ /* x223655 stalin.sc:30619:1054674 */ /* x223647 stalin.sc:30619:1054680 */ /* x223646 stalin.sc:30619:1054693 */ t9902 = a32761; /* x267660 stalin.sc:30619:1054681 */ if (!(t9902==EOF_OBJECT_TYPE)) goto l3293; /* x223652 */ /* x223651 */ /* x223650 stalin.sc:30619:1054697 */ /* x223649 stalin.sc:30619:1054709 */ t9904 = "EOF while reading exponent"; /* x223648 stalin.sc:30619:1054698 */ t9903 = a32580; f19123(t9903, t9904); goto l3294; l3293: /* x223654 stalin.sc:30619:1054674 */ /* x223653 stalin.sc:30619:1054674 */ l3294: /* x223666 stalin.sc:30620:1054747 */ /* x223658 stalin.sc:30620:1054755 */ /* x223657 stalin.sc:30620:1054770 */ t9905 = a32761; /* x223656 stalin.sc:30620:1054756 */ t9906.tag = t9905; if (f27405(t9906)==FALSE_TYPE) goto l3296; /* x223660 */ /* x223659 */ goto l3297; l3296: /* x223665 */ /* x223664 */ /* x223663 stalin.sc:30620:1054774 */ /* x223662 stalin.sc:30620:1054786 */ t9908 = "Unfinished exponent"; /* x223661 stalin.sc:30620:1054775 */ t9907 = a32580; f19123(t9907, t9908); l3297: /* x223644 */ /* x223643 stalin.sc:30621:1054817 */ /* x223627 stalin.sc:30621:1054820 */ /* x223626 stalin.sc:30621:1054836 */ t9893 = a32745; /* x267666 stalin.sc:30621:1054821 */ t9891 = (float)t9893; /* x223642 stalin.sc:30622:1054842 */ /* x223629 stalin.sc:30622:1054848 */ t9894 = 1.0e1; /* x223641 stalin.sc:30623:1054862 */ /* x223640 stalin.sc:30623:1054865 */ /* x223639 stalin.sc:30624:1054899 */ /* x223635 stalin.sc:30624:1054902 */ /* x223634 stalin.sc:30624:1054917 */ t9900 = a32761; /* x267662 stalin.sc:30624:1054903 */ if (!(t9900>2))); /* x223638 stalin.sc:30624:1054921 */ /* x223637 stalin.sc:30624:1054936 */ t9901 = '0'; /* x267661 stalin.sc:30624:1054922 */ t9899 = (int)((unsigned char)t9901); /* x267663 stalin.sc:30624:1054900 */ t9897 = t9898-t9899; /* x223631 stalin.sc:30623:1054866 */ t9896 = f18979(t9897); /* x267664 stalin.sc:30623:1054863 */ t9895 = -t9896; /* x267665 stalin.sc:30622:1054843 */ t9892 = pow(t9894, t9895); /* x267667 stalin.sc:30621:1054818 */ r19029.tag = FLONUM_TYPE; r19029.value.flonum_type = t9891*t9892; return r19029; l3291: /* x223678 */ /* x223677 */ /* x223676 stalin.sc:30625:1054959 */ /* x223675 stalin.sc:30625:1054971 */ t9889 = "Unfinished exponent"; /* x223674 stalin.sc:30625:1054960 */ t9888 = a32580; f19123(t9888, t9889); return r19029; l3276: /* x223708 */ /* x223707 */ /* x223706 */ /* x223705 stalin.sc:30626:1055006 */ /* x223704 stalin.sc:30626:1055018 */ t9875 = (char)(a32746>>2); /* x223703 stalin.sc:30626:1055007 */ t9874 = a32579; t9876 = ((unsigned)((unsigned char)t9875))<<2; f19125(t9874, t9876); /* x223702 */ /* x223701 stalin.sc:30626:1055022 */ r19029.tag = FIXNUM_TYPE; r19029.value.fixnum_type = a32745; return r19029;} /* READ-INEXACT-NUMBER[18993] */ float f18993(float a32724, float a32725) {float r18993; unsigned a32726; /* C1 */ unsigned a32736; /* C2 */ unsigned a32738; /* C3 */ unsigned a32741; /* C3 */ unsigned t9957; unsigned t9958; char t9959; struct w49 t9960; char t9961; char t9962; struct w49 t9963; char t9964; char t9965; char t9966; struct w49 t9967; char t9968; char t9969; char t9970; struct w49 t9971; char t9972; char t9973; char t9974; struct w49 t9975; char t9976; char t9977; char t9978; struct w49 t9979; char t9980; char t9981; char t9982; struct w49 t9983; char t9984; char t9985; char t9986; struct w49 t9987; char t9988; char t9989; char t9990; struct w49 t9991; char t9992; char t9993; char t9994; struct w49 t9995; char t9996; char t9997; char t9998; struct w49 t9999; char t10000; struct p18678 *t10001; char t10002; unsigned t10003; unsigned t10004; unsigned t10005; struct w49 t10006; unsigned t10007; char t10008; struct w49 t10009; char t10010; unsigned t10011; char t10012; struct w49 t10013; char t10014; struct p18678 *t10015; char *t10016; unsigned t10017; float t10018; float t10019; float t10020; int t10021; int t10022; int t10023; int t10024; int t10025; unsigned t10026; char t10027; unsigned t10028; struct p18678 *t10029; char *t10030; unsigned t10031; struct w49 t10032; struct p18678 *t10033; char *t10034; struct p18679 *t10035; unsigned t10036; float t10037; float t10038; float t10039; int t10040; int t10041; int t10042; int t10043; unsigned t10044; char t10045; unsigned t10046; struct p18678 *t10047; char *t10048; unsigned t10049; struct w49 t10050; struct p18678 *t10051; char *t10052; struct p18679 *t10053; float t10054; float t10055; float t10056; int t10057; int t10058; int t10059; int t10060; unsigned t10061; char t10062; unsigned t10063; struct p18678 *t10064; char *t10065; struct p18679 *t10066; float t10067; float t10068; float t10069; float t10070; int t10071; float t10072; int t10073; int t10074; char t10075; char t10076; float t10077; float t10078; struct p18679 *t10079; h18993: /* x223418 stalin.sc:30554:1052282 */ /* x223417 stalin.sc:30554:1052292 */ /* x223416 stalin.sc:30554:1052293 */ t10079 = a32578; t9957 = f19127(t10079); /* x223415 */ a32726 = t9957; /* x223414 stalin.sc:30555:1052306 */ /* x223140 stalin.sc:30556:1052315 */ /* x223139 stalin.sc:30556:1052328 */ t9958 = a32726; /* x267713 stalin.sc:30556:1052316 */ if (!(t9958==EOF_OBJECT_TYPE)) goto l3308; /* x223143 */ /* x223142 */ /* x223141 stalin.sc:30556:1052332 */ return a32724; l3308: /* x223413 */ /* x223146 stalin.sc:30557:1052338 */ /* x223145 stalin.sc:30557:1052353 */ t9959 = (char)(a32726>>2); /* x223144 stalin.sc:30557:1052339 */ t9960.tag = ((unsigned)((unsigned char)t9959))<<2; if (f27405(t9960)==FALSE_TYPE) goto l3310; /* x223168 */ /* x223167 */ /* x223166 stalin.sc:30558:1052360 */ /* x223161 stalin.sc:30559:1052385 */ /* x223149 stalin.sc:30559:1052388 */ t10069 = a32724; /* x223160 stalin.sc:30559:1052390 */ /* x223158 stalin.sc:30559:1052393 */ /* x223154 stalin.sc:30559:1052396 */ /* x223153 stalin.sc:30559:1052411 */ t10075 = (char)(a32726>>2); /* x267709 stalin.sc:30559:1052397 */ t10073 = (int)((unsigned char)t10075); /* x223157 stalin.sc:30559:1052415 */ /* x223156 stalin.sc:30559:1052430 */ t10076 = '0'; /* x267708 stalin.sc:30559:1052416 */ t10074 = (int)((unsigned char)t10076); /* x267710 stalin.sc:30559:1052394 */ t10071 = t10073-t10074; /* x223159 stalin.sc:30559:1052436 */ t10072 = a32725; /* x267711 stalin.sc:30559:1052391 */ t10070 = t10071/t10072; /* x267712 stalin.sc:30559:1052386 */ t10067 = t10069+t10070; /* x223165 stalin.sc:30559:1052440 */ /* x223163 stalin.sc:30559:1052443 */ t10077 = a32725; /* x223164 stalin.sc:30559:1052445 */ t10078 = 1.0e1; /* x267707 stalin.sc:30559:1052441 */ t10068 = t10077*t10078; /* x223147 stalin.sc:30558:1052361 */ a32724 = t10067; a32725 = t10068; goto h18993; l3310: /* x223412 */ /* x223253 stalin.sc:30560:1052456 */ /* x223252 stalin.sc:30560:1052460 */ /* x223251 stalin.sc:30560:1052471 */ t9962 = 'e'; /* x223250 stalin.sc:30560:1052468 */ t9961 = (char)(a32726>>2); /* x223249 stalin.sc:30560:1052461 */ t9963.tag = ((unsigned)((unsigned char)t9961))<<2; t9964 = t9962; if (!(f27342(t9963, t9964)==FALSE_TYPE)) goto l3311; /* x223246 */ /* x223245 stalin.sc:30560:1052476 */ /* x223244 stalin.sc:30560:1052487 */ t9966 = 'E'; /* x223243 stalin.sc:30560:1052484 */ t9965 = (char)(a32726>>2); /* x223242 stalin.sc:30560:1052477 */ t9967.tag = ((unsigned)((unsigned char)t9965))<<2; t9968 = t9966; if (!(f27342(t9967, t9968)==FALSE_TYPE)) goto l3311; /* x223239 */ /* x223238 stalin.sc:30561:1052499 */ /* x223237 stalin.sc:30561:1052510 */ t9970 = 's'; /* x223236 stalin.sc:30561:1052507 */ t9969 = (char)(a32726>>2); /* x223235 stalin.sc:30561:1052500 */ t9971.tag = ((unsigned)((unsigned char)t9969))<<2; t9972 = t9970; if (!(f27342(t9971, t9972)==FALSE_TYPE)) goto l3311; /* x223232 */ /* x223231 stalin.sc:30561:1052515 */ /* x223230 stalin.sc:30561:1052526 */ t9974 = 'S'; /* x223229 stalin.sc:30561:1052523 */ t9973 = (char)(a32726>>2); /* x223228 stalin.sc:30561:1052516 */ t9975.tag = ((unsigned)((unsigned char)t9973))<<2; t9976 = t9974; if (!(f27342(t9975, t9976)==FALSE_TYPE)) goto l3311; /* x223225 */ /* x223224 stalin.sc:30562:1052538 */ /* x223223 stalin.sc:30562:1052549 */ t9978 = 'f'; /* x223222 stalin.sc:30562:1052546 */ t9977 = (char)(a32726>>2); /* x223221 stalin.sc:30562:1052539 */ t9979.tag = ((unsigned)((unsigned char)t9977))<<2; t9980 = t9978; if (!(f27342(t9979, t9980)==FALSE_TYPE)) goto l3311; /* x223218 */ /* x223217 stalin.sc:30562:1052554 */ /* x223216 stalin.sc:30562:1052565 */ t9982 = 'F'; /* x223215 stalin.sc:30562:1052562 */ t9981 = (char)(a32726>>2); /* x223214 stalin.sc:30562:1052555 */ t9983.tag = ((unsigned)((unsigned char)t9981))<<2; t9984 = t9982; if (!(f27342(t9983, t9984)==FALSE_TYPE)) goto l3311; /* x223211 */ /* x223210 stalin.sc:30563:1052577 */ /* x223209 stalin.sc:30563:1052588 */ t9986 = 'd'; /* x223208 stalin.sc:30563:1052585 */ t9985 = (char)(a32726>>2); /* x223207 stalin.sc:30563:1052578 */ t9987.tag = ((unsigned)((unsigned char)t9985))<<2; t9988 = t9986; if (!(f27342(t9987, t9988)==FALSE_TYPE)) goto l3311; /* x223204 */ /* x223203 stalin.sc:30563:1052593 */ /* x223202 stalin.sc:30563:1052604 */ t9990 = 'D'; /* x223201 stalin.sc:30563:1052601 */ t9989 = (char)(a32726>>2); /* x223200 stalin.sc:30563:1052594 */ t9991.tag = ((unsigned)((unsigned char)t9989))<<2; t9992 = t9990; if (!(f27342(t9991, t9992)==FALSE_TYPE)) goto l3311; /* x223197 */ /* x223196 stalin.sc:30564:1052616 */ /* x223195 stalin.sc:30564:1052627 */ t9994 = 'l'; /* x223194 stalin.sc:30564:1052624 */ t9993 = (char)(a32726>>2); /* x223193 stalin.sc:30564:1052617 */ t9995.tag = ((unsigned)((unsigned char)t9993))<<2; t9996 = t9994; if (!(f27342(t9995, t9996)==FALSE_TYPE)) goto l3311; /* x223190 */ /* x223189 stalin.sc:30564:1052643 */ t9998 = 'L'; /* x223188 stalin.sc:30564:1052640 */ t9997 = (char)(a32726>>2); /* x223187 stalin.sc:30564:1052633 */ t9999.tag = ((unsigned)((unsigned char)t9997))<<2; t10000 = t9998; if (f27342(t9999, t10000)==FALSE_TYPE) goto l3312; l3311: /* x223403 */ /* x223402 */ /* x223401 stalin.sc:30565:1052652 */ /* x223400 stalin.sc:30565:1052662 */ /* x223399 stalin.sc:30565:1052663 */ t10066 = a32578; t10004 = f19127(t10066); /* x223398 */ a32736 = t10004; /* x223397 */ /* x223396 stalin.sc:30566:1052679 */ /* x223388 stalin.sc:30566:1052685 */ /* x223387 stalin.sc:30566:1052698 */ t10063 = a32736; /* x267688 stalin.sc:30566:1052686 */ if (!(t10063==EOF_OBJECT_TYPE)) goto l3341; /* x223393 */ /* x223392 */ /* x223391 stalin.sc:30566:1052702 */ /* x223390 stalin.sc:30566:1052714 */ t10065 = "EOF while reading exponent"; /* x223389 stalin.sc:30566:1052703 */ t10064 = a32580; f19123(t10064, t10065); goto l3342; l3341: /* x223395 stalin.sc:30566:1052679 */ /* x223394 stalin.sc:30566:1052679 */ l3342: /* x223385 */ /* x223384 stalin.sc:30567:1052749 */ /* x223256 stalin.sc:30568:1052761 */ /* x223255 stalin.sc:30568:1052776 */ t10005 = a32736; /* x223254 stalin.sc:30568:1052762 */ t10006.tag = t10005; if (f27405(t10006)==FALSE_TYPE) goto l3323; /* x223274 */ /* x223273 */ /* x223272 stalin.sc:30569:1052786 */ /* x223258 stalin.sc:30569:1052789 */ t10054 = a32724; /* x223271 stalin.sc:30569:1052791 */ /* x223260 stalin.sc:30569:1052797 */ t10056 = 1.0e1; /* x223270 stalin.sc:30570:1052805 */ /* x223269 stalin.sc:30571:1052837 */ /* x223265 stalin.sc:30571:1052840 */ /* x223264 stalin.sc:30571:1052855 */ t10061 = a32736; /* x267703 stalin.sc:30571:1052841 */ if (!(t10061>2))); /* x223268 stalin.sc:30571:1052859 */ /* x223267 stalin.sc:30571:1052874 */ t10062 = '0'; /* x267702 stalin.sc:30571:1052860 */ t10060 = (int)((unsigned char)t10062); /* x267704 stalin.sc:30571:1052838 */ t10058 = t10059-t10060; /* x223261 stalin.sc:30570:1052806 */ t10057 = f18979(t10058); /* x267705 stalin.sc:30569:1052792 */ t10055 = pow(t10056, t10057); /* x267706 stalin.sc:30569:1052787 */ return t10054*t10055; l3323: /* x223383 */ /* x223278 stalin.sc:30572:1052890 */ /* x223277 stalin.sc:30572:1052901 */ t10008 = '+'; /* x223276 stalin.sc:30572:1052898 */ t10007 = a32736; /* x223275 stalin.sc:30572:1052891 */ t10009.tag = t10007; t10010 = t10008; if (f27342(t10009, t10010)==FALSE_TYPE) goto l3325; /* x223324 */ /* x223323 */ /* x223322 stalin.sc:30573:1052912 */ /* x223321 stalin.sc:30573:1052922 */ /* x223320 stalin.sc:30573:1052923 */ t10053 = a32578; t10036 = f19127(t10053); /* x223319 */ a32738 = t10036; /* x223318 */ /* x223306 stalin.sc:30574:1052942 */ /* x223298 stalin.sc:30574:1052948 */ /* x223297 stalin.sc:30574:1052961 */ t10046 = a32738; /* x267696 stalin.sc:30574:1052949 */ if (!(t10046==EOF_OBJECT_TYPE)) goto l3335; /* x223303 */ /* x223302 */ /* x223301 stalin.sc:30574:1052965 */ /* x223300 stalin.sc:30574:1052977 */ t10048 = "EOF while reading exponent"; /* x223299 stalin.sc:30574:1052966 */ t10047 = a32580; f19123(t10047, t10048); goto l3336; l3335: /* x223305 stalin.sc:30574:1052942 */ /* x223304 stalin.sc:30574:1052942 */ l3336: /* x223317 stalin.sc:30575:1053015 */ /* x223309 stalin.sc:30575:1053023 */ /* x223308 stalin.sc:30575:1053038 */ t10049 = a32738; /* x223307 stalin.sc:30575:1053024 */ t10050.tag = t10049; if (f27405(t10050)==FALSE_TYPE) goto l3338; /* x223311 */ /* x223310 */ goto l3339; l3338: /* x223316 */ /* x223315 */ /* x223314 stalin.sc:30575:1053042 */ /* x223313 stalin.sc:30575:1053054 */ t10052 = "Unfinished exponent"; /* x223312 stalin.sc:30575:1053043 */ t10051 = a32580; f19123(t10051, t10052); l3339: /* x223295 */ /* x223294 stalin.sc:30576:1053085 */ /* x223280 stalin.sc:30576:1053088 */ t10037 = a32724; /* x223293 stalin.sc:30576:1053090 */ /* x223282 stalin.sc:30576:1053096 */ t10039 = 1.0e1; /* x223292 stalin.sc:30577:1053105 */ /* x223291 stalin.sc:30578:1053138 */ /* x223287 stalin.sc:30578:1053141 */ /* x223286 stalin.sc:30578:1053156 */ t10044 = a32738; /* x267698 stalin.sc:30578:1053142 */ if (!(t10044>2))); /* x223290 stalin.sc:30578:1053160 */ /* x223289 stalin.sc:30578:1053175 */ t10045 = '0'; /* x267697 stalin.sc:30578:1053161 */ t10043 = (int)((unsigned char)t10045); /* x267699 stalin.sc:30578:1053139 */ t10041 = t10042-t10043; /* x223283 stalin.sc:30577:1053106 */ t10040 = f18979(t10041); /* x267700 stalin.sc:30576:1053091 */ t10038 = pow(t10039, t10040); /* x267701 stalin.sc:30576:1053086 */ return t10037*t10038; l3325: /* x223382 */ /* x223328 stalin.sc:30579:1053192 */ /* x223327 stalin.sc:30579:1053203 */ t10012 = '-'; /* x223326 stalin.sc:30579:1053200 */ t10011 = a32736; /* x223325 stalin.sc:30579:1053193 */ t10013.tag = t10011; t10014 = t10012; if (f27342(t10013, t10014)==FALSE_TYPE) goto l3327; /* x223376 */ /* x223375 */ /* x223374 stalin.sc:30580:1053214 */ /* x223373 stalin.sc:30580:1053224 */ /* x223372 stalin.sc:30580:1053225 */ t10035 = a32578; t10017 = f19127(t10035); /* x223371 */ a32741 = t10017; /* x223370 */ /* x223358 stalin.sc:30581:1053244 */ /* x223350 stalin.sc:30581:1053250 */ /* x223349 stalin.sc:30581:1053263 */ t10028 = a32741; /* x267689 stalin.sc:30581:1053251 */ if (!(t10028==EOF_OBJECT_TYPE)) goto l3329; /* x223355 */ /* x223354 */ /* x223353 stalin.sc:30581:1053267 */ /* x223352 stalin.sc:30581:1053279 */ t10030 = "EOF while reading exponent"; /* x223351 stalin.sc:30581:1053268 */ t10029 = a32580; f19123(t10029, t10030); goto l3330; l3329: /* x223357 stalin.sc:30581:1053244 */ /* x223356 stalin.sc:30581:1053244 */ l3330: /* x223369 stalin.sc:30582:1053317 */ /* x223361 stalin.sc:30582:1053325 */ /* x223360 stalin.sc:30582:1053340 */ t10031 = a32741; /* x223359 stalin.sc:30582:1053326 */ t10032.tag = t10031; if (f27405(t10032)==FALSE_TYPE) goto l3332; /* x223363 */ /* x223362 */ goto l3333; l3332: /* x223368 */ /* x223367 */ /* x223366 stalin.sc:30582:1053344 */ /* x223365 stalin.sc:30582:1053356 */ t10034 = "Unfinished exponent"; /* x223364 stalin.sc:30582:1053345 */ t10033 = a32580; f19123(t10033, t10034); l3333: /* x223347 */ /* x223346 stalin.sc:30583:1053387 */ /* x223330 stalin.sc:30583:1053390 */ t10018 = a32724; /* x223345 stalin.sc:30583:1053392 */ /* x223332 stalin.sc:30583:1053398 */ t10020 = 1.0e1; /* x223344 stalin.sc:30584:1053407 */ /* x223343 stalin.sc:30584:1053410 */ /* x223342 stalin.sc:30585:1053446 */ /* x223338 stalin.sc:30585:1053449 */ /* x223337 stalin.sc:30585:1053464 */ t10026 = a32741; /* x267691 stalin.sc:30585:1053450 */ if (!(t10026>2))); /* x223341 stalin.sc:30585:1053468 */ /* x223340 stalin.sc:30585:1053483 */ t10027 = '0'; /* x267690 stalin.sc:30585:1053469 */ t10025 = (int)((unsigned char)t10027); /* x267692 stalin.sc:30585:1053447 */ t10023 = t10024-t10025; /* x223334 stalin.sc:30584:1053411 */ t10022 = f18979(t10023); /* x267693 stalin.sc:30584:1053408 */ t10021 = -t10022; /* x267694 stalin.sc:30583:1053393 */ t10019 = pow(t10020, t10021); /* x267695 stalin.sc:30583:1053388 */ return t10018*t10019; l3327: /* x223381 */ /* x223380 */ /* x223379 stalin.sc:30586:1053506 */ /* x223378 stalin.sc:30586:1053518 */ t10016 = "Unfinished exponent"; /* x223377 stalin.sc:30586:1053507 */ t10015 = a32580; f19123(t10015, t10016); return r18993; l3312: /* x223411 */ /* x223410 */ /* x223409 */ /* x223408 stalin.sc:30587:1053553 */ /* x223407 stalin.sc:30587:1053565 */ t10002 = (char)(a32726>>2); /* x223406 stalin.sc:30587:1053554 */ t10001 = a32579; t10003 = ((unsigned)((unsigned char)t10002))<<2; f19125(t10001, t10003); /* x223405 */ /* x223404 stalin.sc:30587:1053569 */ return a32724;} /* READ-EXACT-HEXADECIMAL-INTEGER[18985] */ int f18985(int a32721) {unsigned a32722; /* C */ unsigned t10080; unsigned t10081; char t10082; struct w49 t10083; char t10084; char t10085; unsigned t10086; char t10087; char t10088; char t10089; unsigned t10090; char t10091; char t10092; char t10093; unsigned t10094; char t10095; char t10096; char t10097; unsigned t10098; char t10099; struct p18678 *t10100; char t10101; unsigned t10102; int t10103; int t10104; int t10105; int t10106; int t10107; int t10108; int t10109; int t10110; char t10111; char t10112; int t10113; int t10114; int t10115; int t10116; int t10117; int t10118; int t10119; int t10120; char t10121; char t10122; int t10123; int t10124; int t10125; int t10126; int t10127; int t10128; int t10129; char t10130; char t10131; struct p18679 *t10132; h18985: /* x223135 stalin.sc:30541:1051731 */ /* x223134 stalin.sc:30541:1051740 */ /* x223133 stalin.sc:30541:1051741 */ t10132 = a32578; t10080 = f19127(t10132); /* x223132 */ a32722 = t10080; /* x223131 stalin.sc:30542:1051754 */ /* x223037 stalin.sc:30542:1051761 */ /* x223036 stalin.sc:30542:1051774 */ t10081 = a32722; /* x267729 stalin.sc:30542:1051762 */ if (!(t10081==EOF_OBJECT_TYPE)) goto l3344; /* x223040 */ /* x223039 */ /* x223038 stalin.sc:30542:1051777 */ return a32721; l3344: /* x223130 */ /* x223043 stalin.sc:30543:1051788 */ /* x223042 stalin.sc:30543:1051803 */ t10082 = (char)(a32722>>2); /* x223041 stalin.sc:30543:1051789 */ t10083.tag = ((unsigned)((unsigned char)t10082))<<2; if (f27405(t10083)==FALSE_TYPE) goto l3346; /* x223061 */ /* x223060 */ /* x223059 stalin.sc:30544:1051814 */ /* x223058 stalin.sc:30545:1051848 */ /* x223049 stalin.sc:30545:1051851 */ /* x223047 stalin.sc:30545:1051854 */ t10126 = 16; /* x223048 stalin.sc:30545:1051857 */ t10127 = a32721; /* x267727 stalin.sc:30545:1051852 */ t10124 = t10126*t10127; /* x223057 stalin.sc:30545:1051860 */ /* x223053 stalin.sc:30545:1051863 */ /* x223052 stalin.sc:30545:1051878 */ t10130 = (char)(a32722>>2); /* x267725 stalin.sc:30545:1051864 */ t10128 = (int)((unsigned char)t10130); /* x223056 stalin.sc:30545:1051881 */ /* x223055 stalin.sc:30545:1051896 */ t10131 = '0'; /* x267724 stalin.sc:30545:1051882 */ t10129 = (int)((unsigned char)t10131); /* x267726 stalin.sc:30545:1051861 */ t10125 = t10128-t10129; /* x267728 stalin.sc:30545:1051849 */ t10123 = t10124+t10125; /* x223044 stalin.sc:30544:1051815 */ a32721 = t10123; goto h18985; l3346: /* x223129 */ /* x223071 stalin.sc:30546:1051913 */ /* x223065 stalin.sc:30546:1051918 */ /* x223064 stalin.sc:30546:1051929 */ t10085 = 'a'; /* x223063 stalin.sc:30546:1051927 */ t10084 = (char)(a32722>>2); /* x223062 stalin.sc:30546:1051919 */ t10086 = ((unsigned)((unsigned char)t10084))<<2; t10087 = t10085; if (f27366(t10086, t10087)==FALSE_TYPE) goto l3348; /* x223069 */ /* x223068 stalin.sc:30546:1051945 */ t10089 = 'f'; /* x223067 stalin.sc:30546:1051943 */ t10088 = (char)(a32722>>2); /* x223066 stalin.sc:30546:1051935 */ t10090 = ((unsigned)((unsigned char)t10088))<<2; t10091 = t10089; if (f27360(t10090, t10091)==FALSE_TYPE) goto l3348; /* x223090 */ /* x223089 */ /* x223088 stalin.sc:30547:1051959 */ /* x223087 stalin.sc:30548:1051993 */ /* x223077 stalin.sc:30548:1051996 */ /* x223075 stalin.sc:30548:1051999 */ t10117 = 16; /* x223076 stalin.sc:30548:1052002 */ t10118 = a32721; /* x267722 stalin.sc:30548:1051997 */ t10114 = t10117*t10118; /* x223085 stalin.sc:30548:1052005 */ /* x223081 stalin.sc:30548:1052008 */ /* x223080 stalin.sc:30548:1052023 */ t10121 = (char)(a32722>>2); /* x267720 stalin.sc:30548:1052009 */ t10119 = (int)((unsigned char)t10121); /* x223084 stalin.sc:30548:1052026 */ /* x223083 stalin.sc:30548:1052041 */ t10122 = 'a'; /* x267719 stalin.sc:30548:1052027 */ t10120 = (int)((unsigned char)t10122); /* x267721 stalin.sc:30548:1052006 */ t10115 = t10119-t10120; /* x223086 stalin.sc:30548:1052047 */ t10116 = 10; /* x267723 stalin.sc:30548:1051994 */ t10113 = (t10114+t10115)+t10116; /* x223072 stalin.sc:30547:1051960 */ a32721 = t10113; goto h18985; l3348: /* x223128 */ /* x223100 stalin.sc:30549:1052061 */ /* x223094 stalin.sc:30549:1052066 */ /* x223093 stalin.sc:30549:1052077 */ t10093 = 'A'; /* x223092 stalin.sc:30549:1052075 */ t10092 = (char)(a32722>>2); /* x223091 stalin.sc:30549:1052067 */ t10094 = ((unsigned)((unsigned char)t10092))<<2; t10095 = t10093; if (f27366(t10094, t10095)==FALSE_TYPE) goto l3351; /* x223098 */ /* x223097 stalin.sc:30549:1052093 */ t10097 = 'F'; /* x223096 stalin.sc:30549:1052091 */ t10096 = (char)(a32722>>2); /* x223095 stalin.sc:30549:1052083 */ t10098 = ((unsigned)((unsigned char)t10096))<<2; t10099 = t10097; if (f27360(t10098, t10099)==FALSE_TYPE) goto l3351; /* x223119 */ /* x223118 */ /* x223117 stalin.sc:30550:1052107 */ /* x223116 stalin.sc:30551:1052141 */ /* x223106 stalin.sc:30551:1052144 */ /* x223104 stalin.sc:30551:1052147 */ t10107 = 16; /* x223105 stalin.sc:30551:1052150 */ t10108 = a32721; /* x267717 stalin.sc:30551:1052145 */ t10104 = t10107*t10108; /* x223114 stalin.sc:30551:1052153 */ /* x223110 stalin.sc:30551:1052156 */ /* x223109 stalin.sc:30551:1052171 */ t10111 = (char)(a32722>>2); /* x267715 stalin.sc:30551:1052157 */ t10109 = (int)((unsigned char)t10111); /* x223113 stalin.sc:30551:1052174 */ /* x223112 stalin.sc:30551:1052189 */ t10112 = 'A'; /* x267714 stalin.sc:30551:1052175 */ t10110 = (int)((unsigned char)t10112); /* x267716 stalin.sc:30551:1052154 */ t10105 = t10109-t10110; /* x223115 stalin.sc:30551:1052195 */ t10106 = 10; /* x267718 stalin.sc:30551:1052142 */ t10103 = (t10104+t10105)+t10106; /* x223101 stalin.sc:30550:1052108 */ a32721 = t10103; goto h18985; l3351: /* x223127 */ /* x223126 */ /* x223125 */ /* x223124 stalin.sc:30552:1052214 */ /* x223123 stalin.sc:30552:1052226 */ t10101 = (char)(a32722>>2); /* x223122 stalin.sc:30552:1052215 */ t10100 = a32579; t10102 = ((unsigned)((unsigned char)t10101))<<2; f19125(t10100, t10102); /* x223121 */ /* x223120 stalin.sc:30552:1052229 */ return a32721;} /* READ-EXACT-DECIMAL-INTEGER[18979] */ int f18979(int a32718) {unsigned a32719; /* C */ unsigned t10133; unsigned t10134; char t10135; struct w49 t10136; struct p18678 *t10137; char t10138; unsigned t10139; int t10140; int t10141; int t10142; int t10143; int t10144; int t10145; int t10146; char t10147; char t10148; struct p18679 *t10149; h18979: /* x223032 stalin.sc:30534:1051471 */ /* x223031 stalin.sc:30534:1051480 */ /* x223030 stalin.sc:30534:1051481 */ t10149 = a32578; t10133 = f19127(t10149); /* x223029 */ a32719 = t10133; /* x223028 stalin.sc:30535:1051494 */ /* x222994 stalin.sc:30535:1051501 */ /* x222993 stalin.sc:30535:1051514 */ t10134 = a32719; /* x267735 stalin.sc:30535:1051502 */ if (!(t10134==EOF_OBJECT_TYPE)) goto l3354; /* x222997 */ /* x222996 */ /* x222995 stalin.sc:30535:1051517 */ return a32718; l3354: /* x223027 */ /* x223000 stalin.sc:30536:1051528 */ /* x222999 stalin.sc:30536:1051543 */ t10135 = (char)(a32719>>2); /* x222998 stalin.sc:30536:1051529 */ t10136.tag = ((unsigned)((unsigned char)t10135))<<2; if (f27405(t10136)==FALSE_TYPE) goto l3356; /* x223018 */ /* x223017 */ /* x223016 stalin.sc:30537:1051554 */ /* x223015 stalin.sc:30538:1051584 */ /* x223006 stalin.sc:30538:1051587 */ /* x223004 stalin.sc:30538:1051590 */ t10143 = 10; /* x223005 stalin.sc:30538:1051593 */ t10144 = a32718; /* x267733 stalin.sc:30538:1051588 */ t10141 = t10143*t10144; /* x223014 stalin.sc:30538:1051596 */ /* x223010 stalin.sc:30538:1051599 */ /* x223009 stalin.sc:30538:1051614 */ t10147 = (char)(a32719>>2); /* x267731 stalin.sc:30538:1051600 */ t10145 = (int)((unsigned char)t10147); /* x223013 stalin.sc:30538:1051617 */ /* x223012 stalin.sc:30538:1051632 */ t10148 = '0'; /* x267730 stalin.sc:30538:1051618 */ t10146 = (int)((unsigned char)t10148); /* x267732 stalin.sc:30538:1051597 */ t10142 = t10145-t10146; /* x267734 stalin.sc:30538:1051585 */ t10140 = t10141+t10142; /* x223001 stalin.sc:30537:1051555 */ a32718 = t10140; goto h18979; l3356: /* x223026 */ /* x223025 */ /* x223024 */ /* x223023 stalin.sc:30539:1051654 */ /* x223022 stalin.sc:30539:1051666 */ t10138 = (char)(a32719>>2); /* x223021 stalin.sc:30539:1051655 */ t10137 = a32579; t10139 = ((unsigned)((unsigned char)t10138))<<2; f19125(t10137, t10139); /* x223020 */ /* x223019 stalin.sc:30539:1051669 */ return a32718;} /* READ-EXACT-OCTAL-INTEGER[18973] */ int f18973(int a32715) {unsigned a32716; /* C */ unsigned t10150; unsigned t10151; char t10152; char t10153; unsigned t10154; char t10155; char t10156; char t10157; unsigned t10158; char t10159; struct p18678 *t10160; char t10161; unsigned t10162; int t10163; int t10164; int t10165; int t10166; int t10167; int t10168; int t10169; char t10170; char t10171; struct p18679 *t10172; h18973: /* x222989 stalin.sc:30527:1051198 */ /* x222988 stalin.sc:30527:1051207 */ /* x222987 stalin.sc:30527:1051208 */ t10172 = a32578; t10150 = f19127(t10172); /* x222986 */ a32716 = t10150; /* x222985 stalin.sc:30528:1051221 */ /* x222944 stalin.sc:30528:1051228 */ /* x222943 stalin.sc:30528:1051241 */ t10151 = a32716; /* x267741 stalin.sc:30528:1051229 */ if (!(t10151==EOF_OBJECT_TYPE)) goto l3358; /* x222947 */ /* x222946 */ /* x222945 stalin.sc:30528:1051244 */ return a32715; l3358: /* x222984 */ /* x222957 stalin.sc:30529:1051255 */ /* x222951 stalin.sc:30529:1051260 */ /* x222950 stalin.sc:30529:1051271 */ t10153 = '0'; /* x222949 stalin.sc:30529:1051269 */ t10152 = (char)(a32716>>2); /* x222948 stalin.sc:30529:1051261 */ t10154 = ((unsigned)((unsigned char)t10152))<<2; t10155 = t10153; if (f27366(t10154, t10155)==FALSE_TYPE) goto l3360; /* x222955 */ /* x222954 stalin.sc:30529:1051287 */ t10157 = '7'; /* x222953 stalin.sc:30529:1051285 */ t10156 = (char)(a32716>>2); /* x222952 stalin.sc:30529:1051277 */ t10158 = ((unsigned)((unsigned char)t10156))<<2; t10159 = t10157; if (f27360(t10158, t10159)==FALSE_TYPE) goto l3360; /* x222975 */ /* x222974 */ /* x222973 stalin.sc:30530:1051301 */ /* x222972 stalin.sc:30531:1051329 */ /* x222963 stalin.sc:30531:1051332 */ /* x222961 stalin.sc:30531:1051335 */ t10166 = 8; /* x222962 stalin.sc:30531:1051337 */ t10167 = a32715; /* x267739 stalin.sc:30531:1051333 */ t10164 = t10166*t10167; /* x222971 stalin.sc:30531:1051340 */ /* x222967 stalin.sc:30531:1051343 */ /* x222966 stalin.sc:30531:1051358 */ t10170 = (char)(a32716>>2); /* x267737 stalin.sc:30531:1051344 */ t10168 = (int)((unsigned char)t10170); /* x222970 stalin.sc:30531:1051361 */ /* x222969 stalin.sc:30531:1051376 */ t10171 = '0'; /* x267736 stalin.sc:30531:1051362 */ t10169 = (int)((unsigned char)t10171); /* x267738 stalin.sc:30531:1051341 */ t10165 = t10168-t10169; /* x267740 stalin.sc:30531:1051330 */ t10163 = t10164+t10165; /* x222958 stalin.sc:30530:1051302 */ a32715 = t10163; goto h18973; l3360: /* x222983 */ /* x222982 */ /* x222981 */ /* x222980 stalin.sc:30532:1051398 */ /* x222979 stalin.sc:30532:1051410 */ t10161 = (char)(a32716>>2); /* x222978 stalin.sc:30532:1051399 */ t10160 = a32579; t10162 = ((unsigned)((unsigned char)t10161))<<2; f19125(t10160, t10162); /* x222977 */ /* x222976 stalin.sc:30532:1051413 */ return a32715;} /* READ-EXACT-BINARY-INTEGER[18966] */ int f18966(int a32712) {unsigned a32713; /* C */ unsigned t10173; unsigned t10174; char t10175; char t10176; struct w49 t10177; char t10178; char t10179; char t10180; struct w49 t10181; char t10182; struct p18678 *t10183; char t10184; unsigned t10185; int t10186; int t10187; int t10188; int t10189; int t10190; int t10191; int t10192; int t10193; struct p18679 *t10194; h18966: /* x222939 stalin.sc:30521:1050939 */ /* x222938 stalin.sc:30521:1050948 */ /* x222937 stalin.sc:30521:1050949 */ t10194 = a32578; t10173 = f19127(t10194); /* x222936 */ a32713 = t10173; /* x222935 stalin.sc:30522:1050962 */ /* x222894 stalin.sc:30522:1050969 */ /* x222893 stalin.sc:30522:1050982 */ t10174 = a32713; /* x267745 stalin.sc:30522:1050970 */ if (!(t10174==EOF_OBJECT_TYPE)) goto l3363; /* x222897 */ /* x222896 */ /* x222895 stalin.sc:30522:1050985 */ return a32712; l3363: /* x222934 */ /* x222901 stalin.sc:30523:1050996 */ /* x222900 stalin.sc:30523:1051006 */ t10176 = '0'; /* x222899 stalin.sc:30523:1051004 */ t10175 = (char)(a32713>>2); /* x222898 stalin.sc:30523:1050997 */ t10177.tag = ((unsigned)((unsigned char)t10175))<<2; t10178 = t10176; if (f27342(t10177, t10178)==FALSE_TYPE) goto l3365; /* x222909 */ /* x222908 */ /* x222907 stalin.sc:30523:1051011 */ /* x222906 stalin.sc:30523:1051038 */ /* x222904 stalin.sc:30523:1051041 */ t10192 = 2; /* x222905 stalin.sc:30523:1051043 */ t10193 = a32712; /* x267744 stalin.sc:30523:1051039 */ t10191 = t10192*t10193; /* x222902 stalin.sc:30523:1051012 */ a32712 = t10191; goto h18966; l3365: /* x222933 */ /* x222913 stalin.sc:30524:1051056 */ /* x222912 stalin.sc:30524:1051066 */ t10180 = '1'; /* x222911 stalin.sc:30524:1051064 */ t10179 = (char)(a32713>>2); /* x222910 stalin.sc:30524:1051057 */ t10181.tag = ((unsigned)((unsigned char)t10179))<<2; t10182 = t10180; if (f27342(t10181, t10182)==FALSE_TYPE) goto l3367; /* x222924 */ /* x222923 */ /* x222922 stalin.sc:30524:1051071 */ /* x222921 stalin.sc:30524:1051098 */ /* x222919 stalin.sc:30524:1051101 */ /* x222917 stalin.sc:30524:1051104 */ t10189 = 2; /* x222918 stalin.sc:30524:1051106 */ t10190 = a32712; /* x267742 stalin.sc:30524:1051102 */ t10187 = t10189*t10190; /* x222920 stalin.sc:30524:1051109 */ t10188 = 1; /* x267743 stalin.sc:30524:1051099 */ t10186 = t10187+t10188; /* x222914 stalin.sc:30524:1051072 */ a32712 = t10186; goto h18966; l3367: /* x222932 */ /* x222931 */ /* x222930 */ /* x222929 stalin.sc:30525:1051127 */ /* x222928 stalin.sc:30525:1051139 */ t10184 = (char)(a32713>>2); /* x222927 stalin.sc:30525:1051128 */ t10183 = a32579; t10185 = ((unsigned)((unsigned char)t10184))<<2; f19125(t10183, t10185); /* x222926 */ /* x222925 stalin.sc:30525:1051142 */ return a32712;} /* READ[18699] */ struct w49 f18699(struct p18678 *p18699, char *a32586, struct structure_type24753 *a32587) {struct w49 r18699; unsigned a32610; /* C1 */ int a32611; /* LINE-POSITION */ int a32612; /* CHARACTER-POSITION */ int a32613; /* CHARACTER-POSITION-WITHIN-LINE */ struct w49 a32614; /* DATUM */ char *a32615; /* v */ struct structure_type24753 *a32618; /* CS */ unsigned a32619; /* C1 */ struct structure_type27510 *a32623; /* S */ struct structure_type27510 *a32624; /* S */ unsigned a32625; /* C2 */ struct structure_type27510 *a32627; /* S */ struct structure_type27510 *a32629; /* S */ struct structure_type24753 *a32632; /* S */ struct w49 a32633; /* E */ struct w49 a32635; /* E1 */ struct w49 a32639; /* S */ struct structure_type27510 *a32640; /* C */ struct w49 a32643; /* S */ struct structure_type27510 *a32644; /* C */ unsigned a32645; /* C2 */ unsigned a32650; /* C3 */ unsigned a32652; /* C4 */ unsigned a32654; /* C4 */ unsigned a32657; /* C3 */ unsigned a32659; /* C4 */ unsigned a32662; /* C4 */ unsigned a32666; /* C3 */ unsigned a32668; /* C4 */ unsigned a32670; /* C5 */ unsigned a32673; /* C4 */ unsigned a32675; /* C5 */ unsigned a32678; /* C4 */ unsigned a32682; /* C3 */ unsigned a32684; /* C4 */ unsigned a32686; /* C4 */ struct structure_type24753 *a32690; /* S */ struct w49 a32691; /* E */ unsigned a32692; /* C3 */ struct structure_type24753 *a32696; /* S */ unsigned a32697; /* C */ unsigned a32699; /* C1 */ unsigned a32701; /* C2 */ unsigned a32702; /* C3 */ unsigned a32705; /* C2 */ unsigned a32706; /* C3 */ unsigned a32709; /* C2 */ struct structure_type24753 *a32798; /* S */ unsigned a32799; /* C */ struct structure_type24753 *a35259; /* OBJS */ struct structure_type24753 *a35260; /* OBJS */ struct structure_type24753 *a35261; /* OBJS */ struct structure_type24753 *a35262; /* OBJS */ struct structure_type24753 *a35263; /* OBJS */ struct structure_type24753 *a35264; /* OBJS */ struct structure_type24753 *a35265; /* OBJS */ struct w16638 a35627; /* PAIR */ struct w16638 a35628; /* PAIR */ struct structure_type24753 *a35629; /* PAIR */ struct structure_type24753 *a35633; /* PAIR */ struct w16638 a36207; /* PAIR */ struct w16638 a36208; /* PAIR */ struct structure_type24753 *a36209; /* PAIR */ struct structure_type24753 *a36210; /* PAIR */ struct w49 a40462; /* S */ struct w49 a40463; /* S */ struct w49 a40464; /* S */ struct w49 a40540; /* OBJ */ struct structure_type27510 *a41117; /* S */ struct structure_type27510 *a41118; /* S */ struct structure_type27510 *a42437; /* S */ struct structure_type27510 *a42438; /* S */ struct p18678 *t10195; struct p18678 *t10196; struct p18678 *t10197; unsigned t10198; struct p18678 *t10199; int t10200; struct p18678 *t10201; int t10202; struct p18678 *t10203; int t10204; struct p18677 *t10205; struct w49 t10206; struct p18677 *t10207; struct w49 t10208; struct w49 t10209; struct w49 t10210; int t10211; int t10212; int t10213; struct w12224 t10214; struct w49 t10215; struct w6194 t10216; struct w6194 t10217; struct w6194 t10218; struct structure_type27510 *t10219; struct structure_type24753 *t10220; struct w49 t10221; unsigned t10222; char t10223; char t10224; struct w49 t10225; char t10226; char t10227; char t10228; struct w49 t10229; char t10230; char t10231; char *t10232; char *t10233; char t10234; char t10235; struct w49 t10236; char t10237; char t10238; char t10239; struct w49 t10240; char t10241; char t10242; char t10243; struct w49 t10244; char t10245; char t10246; char t10247; struct w49 t10248; char t10249; char t10250; char t10251; struct w49 t10252; char t10253; char t10254; char t10255; struct w49 t10256; char t10257; char t10258; char t10259; struct w49 t10260; char t10261; char t10262; char t10263; struct w49 t10264; char t10265; char t10266; char t10267; struct w49 t10268; char t10269; char t10270; struct w49 t10271; char t10272; unsigned t10273; struct p18678 *t10274; char *t10275; struct structure_type24753 *t10276; char *t10277; char t10278; char t10279; struct w49 t10280; int t10281; struct w30215 t10282; int t10283; int t10284; char t10285; char t10286; struct p18678 *t10287; struct p18678 *t10288; unsigned t10289; struct p18678 *t10290; unsigned t10291; struct w49 t10292; unsigned t10293; char *t10294; char *t10295; struct p18678 *t10296; char *t10297; struct p18678 *t10298; struct p18678 *t10299; struct p18678 *t10300; unsigned t10301; struct structure_type24753 *t10302; char *t10303; char t10304; char t10305; struct w49 t10306; unsigned t10307; struct w49 t10308; char t10309; struct w49 t10310; float t10311; float t10312; float t10313; int t10314; float t10315; int t10316; int t10317; unsigned t10318; char t10319; unsigned t10320; struct p18678 *t10321; char *t10322; struct p18679 *t10323; unsigned t10324; unsigned t10325; char t10326; struct w49 t10327; char t10328; char t10329; struct w49 t10330; char t10331; char t10332; unsigned t10333; struct p18678 *t10334; char t10335; unsigned t10336; struct structure_type24753 *t10337; char *t10338; char t10339; char t10340; struct w49 t10341; char t10342; struct w49 t10343; char t10344; struct w49 t10345; unsigned t10346; unsigned t10347; char t10348; struct w49 t10349; char t10350; unsigned t10351; struct p18678 *t10352; char t10353; unsigned t10354; struct structure_type24753 *t10355; char *t10356; char t10357; char t10358; char t10359; struct w49 t10360; struct w49 t10361; char t10362; struct w49 t10363; char t10364; struct w49 t10365; char t10366; struct w49 t10367; float t10368; float t10369; float t10370; int t10371; float t10372; int t10373; int t10374; char t10375; char t10376; struct p18679 *t10377; struct w30215 t10378; int t10379; int t10380; int t10381; char t10382; char t10383; struct p18679 *t10384; unsigned t10385; unsigned t10386; char t10387; struct w49 t10388; char t10389; char t10390; struct w49 t10391; char t10392; char t10393; unsigned t10394; struct p18678 *t10395; char t10396; unsigned t10397; struct structure_type24753 *t10398; char *t10399; char t10400; char t10401; struct w49 t10402; char t10403; struct w49 t10404; char t10405; struct w49 t10406; unsigned t10407; unsigned t10408; char t10409; struct w49 t10410; char t10411; unsigned t10412; struct p18678 *t10413; char t10414; unsigned t10415; struct structure_type24753 *t10416; char *t10417; char t10418; char t10419; char t10420; struct w49 t10421; struct w49 t10422; char t10423; struct w49 t10424; char t10425; struct w49 t10426; char t10427; struct w49 t10428; float t10429; float t10430; float t10431; int t10432; float t10433; int t10434; int t10435; char t10436; char t10437; struct p18679 *t10438; int t10439; struct w30215 t10440; int t10441; int t10442; char t10443; char t10444; struct p18679 *t10445; unsigned t10446; unsigned t10447; char t10448; struct w49 t10449; char t10450; unsigned t10451; char t10452; struct w49 t10453; char t10454; struct structure_type24753 *t10455; unsigned t10456; struct structure_type24753 *t10457; struct w12224 t10458; struct w49 t10459; char *t10460; struct structure_type24753 *t10461; struct w49 t10462; unsigned t10463; struct structure_type24753 *t10464; unsigned t10465; struct structure_type24753 *t10466; unsigned t10467; struct p18678 *t10468; char *t10469; struct p18679 *t10470; unsigned t10471; struct p18678 *t10472; char *t10473; struct p18679 *t10474; struct p18678 *t10475; struct p18678 *t10476; unsigned t10477; struct p18678 *t10478; unsigned t10479; char t10480; struct w49 t10481; char t10482; unsigned t10483; char t10484; struct w49 t10485; char t10486; unsigned t10487; char t10488; struct w49 t10489; char t10490; unsigned t10491; char t10492; struct w49 t10493; char t10494; unsigned t10495; char t10496; struct w49 t10497; char t10498; unsigned t10499; char t10500; struct w49 t10501; char t10502; unsigned t10503; char t10504; struct w49 t10505; char t10506; unsigned t10507; char t10508; struct w49 t10509; char t10510; unsigned t10511; char t10512; struct w49 t10513; char t10514; unsigned t10515; char t10516; struct w49 t10517; char t10518; unsigned t10519; char t10520; struct w49 t10521; char t10522; unsigned t10523; char t10524; struct w49 t10525; char t10526; unsigned t10527; char t10528; struct w49 t10529; char t10530; unsigned t10531; char t10532; struct w49 t10533; char t10534; struct p18678 *t10535; char *t10536; unsigned t10537; unsigned t10538; struct structure_type24753 *t10539; unsigned t10540; unsigned t10541; char t10542; unsigned t10543; struct structure_type24753 *t10544; struct w49 t10545; struct structure_type24753 *t10546; struct structure_type24753 *t10547; struct structure_type24753 *t10548; struct structure_type24753 *t10549; struct structure_type24753 *t10550; struct p18678 *t10551; char t10552; unsigned t10553; struct structure_type24753 *t10554; char t10555; struct structure_type24753 *t10556; struct structure_type24753 *t10557; struct p18679 *t10558; unsigned t10559; unsigned t10560; struct p18678 *t10561; char *t10562; struct p18679 *t10563; struct p18678 *t10564; struct p18678 *t10565; struct p18678 *t10566; struct w49 t10567; struct w49 t10568; char *t10569; struct w49 t10570; struct w49 t10571; struct p18678 *t10572; struct structure_type24753 *t10573; struct w49 t10574; struct structure_type24753 *t10575; struct w12224 t10576; struct w49 t10577; struct headed_vector_type27896 *t10578; struct structure_type24753 *t10579; struct w49 t10580; struct p18678 *t10581; char *t10582; struct structure_type24753 *t10583; struct p18678 *t10584; struct p18678 *t10585; unsigned t10586; unsigned t10587; struct w49 t10588; unsigned t10589; char t10590; unsigned t10591; char t10592; unsigned t10593; char t10594; unsigned t10595; char t10596; unsigned t10597; char t10598; unsigned t10599; char t10600; unsigned t10601; char t10602; unsigned t10603; char t10604; unsigned t10605; char t10606; struct w49 t10607; char t10608; unsigned t10609; char t10610; struct w49 t10611; char t10612; struct p18678 *t10613; char *t10614; unsigned t10615; unsigned t10616; struct w49 t10617; unsigned t10618; char t10619; unsigned t10620; char t10621; unsigned t10622; char t10623; unsigned t10624; char t10625; unsigned t10626; char t10627; unsigned t10628; char t10629; unsigned t10630; char t10631; unsigned t10632; char t10633; struct p18678 *t10634; char *t10635; int t10636; int t10637; int t10638; int t10639; int t10640; int t10641; unsigned t10642; char t10643; int t10644; int t10645; int t10646; int t10647; int t10648; int t10649; unsigned t10650; char t10651; int t10652; int t10653; int t10654; int t10655; unsigned t10656; char t10657; unsigned t10658; struct p18678 *t10659; char *t10660; struct p18679 *t10661; unsigned t10662; unsigned t10663; struct w49 t10664; unsigned t10665; char t10666; unsigned t10667; char t10668; unsigned t10669; char t10670; unsigned t10671; char t10672; unsigned t10673; char t10674; unsigned t10675; char t10676; unsigned t10677; char t10678; unsigned t10679; char t10680; struct p18678 *t10681; char *t10682; int t10683; int t10684; int t10685; int t10686; int t10687; int t10688; unsigned t10689; char t10690; int t10691; int t10692; int t10693; int t10694; int t10695; int t10696; unsigned t10697; char t10698; int t10699; int t10700; int t10701; int t10702; unsigned t10703; char t10704; unsigned t10705; struct p18678 *t10706; char *t10707; struct p18679 *t10708; int t10709; int t10710; int t10711; int t10712; int t10713; int t10714; unsigned t10715; char t10716; int t10717; int t10718; int t10719; int t10720; int t10721; int t10722; unsigned t10723; char t10724; int t10725; int t10726; int t10727; int t10728; unsigned t10729; char t10730; unsigned t10731; struct p18678 *t10732; char *t10733; struct p18679 *t10734; unsigned t10735; unsigned t10736; char t10737; struct w49 t10738; char t10739; unsigned t10740; char t10741; struct w49 t10742; char t10743; unsigned t10744; char t10745; struct w49 t10746; char t10747; unsigned t10748; struct w49 t10749; struct p18678 *t10750; char *t10751; int t10752; struct w30215 t10753; int t10754; int t10755; unsigned t10756; char t10757; unsigned t10758; float t10759; float t10760; float t10761; int t10762; float t10763; int t10764; int t10765; unsigned t10766; char t10767; unsigned t10768; struct p18678 *t10769; char *t10770; unsigned t10771; struct w49 t10772; struct p18678 *t10773; char *t10774; struct p18679 *t10775; unsigned t10776; unsigned t10777; struct w49 t10778; unsigned t10779; char t10780; struct w49 t10781; char t10782; struct p18678 *t10783; char *t10784; unsigned t10785; float t10786; float t10787; float t10788; int t10789; float t10790; int t10791; int t10792; unsigned t10793; char t10794; unsigned t10795; struct p18678 *t10796; char *t10797; unsigned t10798; struct w49 t10799; struct p18678 *t10800; char *t10801; struct p18679 *t10802; struct w30215 t10803; int t10804; int t10805; int t10806; unsigned t10807; char t10808; unsigned t10809; struct p18678 *t10810; char *t10811; struct p18679 *t10812; unsigned t10813; unsigned t10814; struct w49 t10815; unsigned t10816; char t10817; struct w49 t10818; char t10819; struct p18678 *t10820; char *t10821; unsigned t10822; float t10823; float t10824; float t10825; int t10826; float t10827; int t10828; int t10829; unsigned t10830; char t10831; unsigned t10832; struct p18678 *t10833; char *t10834; unsigned t10835; struct w49 t10836; struct p18678 *t10837; char *t10838; struct p18679 *t10839; int t10840; struct w30215 t10841; int t10842; int t10843; unsigned t10844; char t10845; unsigned t10846; struct p18678 *t10847; char *t10848; struct p18679 *t10849; unsigned t10850; struct p18678 *t10851; char *t10852; struct p18679 *t10853; unsigned t10854; unsigned t10855; char t10856; unsigned t10857; char t10858; unsigned t10859; char t10860; unsigned t10861; char t10862; unsigned t10863; char t10864; struct w49 t10865; char t10866; unsigned t10867; char t10868; struct w49 t10869; char t10870; struct p18678 *t10871; char *t10872; unsigned t10873; int t10874; int t10875; int t10876; int t10877; unsigned t10878; char t10879; unsigned t10880; struct p18678 *t10881; char *t10882; unsigned t10883; char t10884; unsigned t10885; char t10886; unsigned t10887; char t10888; unsigned t10889; char t10890; struct p18678 *t10891; char *t10892; struct p18679 *t10893; unsigned t10894; int t10895; int t10896; int t10897; int t10898; unsigned t10899; char t10900; unsigned t10901; struct p18678 *t10902; char *t10903; unsigned t10904; char t10905; unsigned t10906; char t10907; unsigned t10908; char t10909; unsigned t10910; char t10911; struct p18678 *t10912; char *t10913; struct p18679 *t10914; int t10915; int t10916; int t10917; int t10918; unsigned t10919; char t10920; unsigned t10921; struct p18678 *t10922; char *t10923; struct p18679 *t10924; unsigned t10925; unsigned t10926; char t10927; struct w49 t10928; char t10929; unsigned t10930; char t10931; struct w49 t10932; char t10933; unsigned t10934; char t10935; struct w49 t10936; char t10937; unsigned t10938; char t10939; struct w49 t10940; char t10941; struct p18678 *t10942; char *t10943; unsigned t10944; unsigned t10945; char t10946; struct w49 t10947; char t10948; unsigned t10949; char t10950; struct w49 t10951; char t10952; struct p18678 *t10953; char *t10954; int t10955; int t10956; int t10957; int t10958; unsigned t10959; struct p18678 *t10960; char *t10961; struct p18679 *t10962; unsigned t10963; unsigned t10964; char t10965; struct w49 t10966; char t10967; unsigned t10968; char t10969; struct w49 t10970; char t10971; struct p18678 *t10972; char *t10973; int t10974; int t10975; int t10976; int t10977; unsigned t10978; struct p18678 *t10979; char *t10980; struct p18679 *t10981; int t10982; int t10983; int t10984; int t10985; unsigned t10986; struct p18678 *t10987; char *t10988; struct p18679 *t10989; unsigned t10990; struct p18678 *t10991; char *t10992; struct p18679 *t10993; struct p18678 *t10994; struct p18678 *t10995; struct p18678 *t10996; struct w49 t10997; struct w49 t10998; char *t10999; struct w49 t11000; struct w49 t11001; struct w49 t11002; char *t11003; struct w49 t11004; struct w49 t11005; struct p18678 *t11006; struct p18678 *t11007; struct structure_type24753 *t11008; struct w49 t11009; struct structure_type24753 *t11010; struct structure_type24753 *t11011; struct structure_type27510 *t11012; struct w49 t11013; struct w49 t11014; struct structure_type27510 *t11015; struct w16638 t11016; struct w16638 t11017; struct structure_type24753 *t11018; struct w49 t11019; struct w49 t11020; struct structure_type27510 *t11021; struct w16638 t11022; struct w16638 t11023; struct structure_type27510 *t11024; struct structure_type27510 *t11025; struct structure_type27510 *t11026; struct w49 t11027; struct p18678 *t11028; struct p18678 *t11029; struct p18678 *t11030; struct w49 t11031; struct w49 t11033; struct structure_type27510 *t11034; struct w49 t11035; struct w49 t11036; struct structure_type27510 *t11037; struct w16638 t11038; struct w16638 t11039; struct structure_type24753 *t11040; struct w49 t11041; struct w49 t11042; struct structure_type27510 *t11043; struct w16638 t11044; struct w16638 t11045; struct structure_type27510 *t11046; struct structure_type27510 *t11047; struct structure_type27510 *t11048; struct structure_type24753 *t11049; struct structure_type24753 *t11050; struct structure_type24753 *t11051; struct w49 t11052; struct w49 t11053; struct w49 t11054; struct structure_type24753 *t11055; struct structure_type24753 *t11056; struct p18678 *t11057; char *t11058; struct structure_type24753 *t11059; struct p18678 *t11060; char *t11061; struct structure_type24753 *t11062; struct structure_type24753 *t11063; struct p18678 *t11064; char *t11065; struct p18678 *t11066; char *t11067; struct structure_type24753 *t11068; struct p18678 *t11069; struct p18678 *t11070; struct p18678 *t11071; struct p18678 *t11072; unsigned t11073; struct p18678 *t11074; unsigned t11075; char t11076; struct w49 t11077; char t11078; struct p18678 *t11079; struct p18678 *t11080; struct p18678 *t11081; struct structure_type27510 *t11082; struct structure_type27510 *t11083; struct structure_type27510 *t11084; struct structure_type24753 *t11085; struct w49 t11086; struct w49 t11087; struct structure_type27510 *t11088; struct p18678 *t11089; char *t11090; struct structure_type24753 *t11091; struct w49 t11092; struct w49 t11093; int t11094; int t11095; int t11096; struct w12224 t11097; char *t11098; struct w6194 t11099; struct w6194 t11100; struct w6194 t11101; struct w49 t11102; struct structure_type24753 *t11103; struct w49 t11104; struct p18678 *t11105; unsigned t11106; struct p18678 *t11107; struct p18678 *t11108; struct structure_type27510 *t11109; struct structure_type27510 *t11110; struct structure_type27510 *t11111; struct structure_type24753 *t11112; struct w49 t11113; struct w49 t11114; struct structure_type27510 *t11115; struct p18678 *t11116; char *t11117; struct structure_type24753 *t11118; struct w49 t11119; struct w49 t11120; int t11121; int t11122; int t11123; struct w12224 t11124; char *t11125; struct w6194 t11126; struct w6194 t11127; struct w6194 t11128; struct w49 t11129; struct structure_type24753 *t11130; struct w49 t11131; unsigned t11132; struct p18678 *t11133; char *t11134; struct p18679 *t11135; struct p18678 *t11136; struct p18678 *t11137; struct structure_type27510 *t11138; struct structure_type27510 *t11139; struct structure_type27510 *t11140; struct structure_type24753 *t11141; struct w49 t11142; struct w49 t11143; struct structure_type27510 *t11144; struct p18678 *t11145; char *t11146; struct structure_type24753 *t11147; struct w49 t11148; struct w49 t11149; int t11150; int t11151; int t11152; struct w12224 t11153; char *t11154; struct w6194 t11155; struct w6194 t11156; struct w6194 t11157; struct w49 t11158; struct structure_type24753 *t11159; struct w49 t11160; struct p18678 *t11161; struct p18678 *t11162; struct structure_type27510 *t11163; struct structure_type27510 *t11164; struct structure_type27510 *t11165; struct structure_type24753 *t11166; struct w49 t11167; struct w49 t11168; struct structure_type27510 *t11169; struct p18678 *t11170; char *t11171; struct structure_type24753 *t11172; struct w49 t11173; struct w49 t11174; int t11175; int t11176; int t11177; struct w12224 t11178; char *t11179; struct w6194 t11180; struct w6194 t11181; struct w6194 t11182; struct w49 t11183; struct structure_type24753 *t11184; struct w49 t11185; struct p18678 *t11186; char *t11187; struct p18678 *t11188; struct p18678 *t11189; char *t11190; struct structure_type24753 *t11191; struct p18678 *t11192; struct p18678 *t11193; char *t11194; char *t11195; char *t11196; char *t11197; char *t11198; char *t11199; struct p18678 *t11200; char *t11201; struct p18678 *t11202; struct p18678 *t11203; struct structure_type24753 *t11204; struct p18678 *t11205; unsigned t11206; unsigned t11207; char t11208; struct w49 t11209; char t11210; struct p18678 *t11211; struct structure_type24753 *t11212; unsigned t11213; struct structure_type24753 *t11214; struct p18678 *t11215; char *t11216; struct structure_type24753 *t11217; struct structure_type24753 *t11218; char *t11219; struct structure_type24753 *t11220; struct w12224 t11221; struct w49 t11222; struct structure_type24753 *t11223; struct w49 t11224; struct p18679 *t11225; struct p18678 *t11226; struct p18678 *t11227; char *t11229; char *t11230; char *t11231; struct w49 t11232; struct w49 t11233; char *t11234; char *t11235; struct w49 t11236; struct w49 t11237; char *t11238; char *t11239; struct w49 t11240; struct w49 t11241; char *t11242; char *t11243; struct w49 t11244; struct w49 t11245; char *t11246; char *t11247; struct w49 t11248; struct w49 t11249; char *t11250; char *t11251; struct w49 t11252; struct w49 t11253; char *t11254; char *t11255; struct w49 t11256; struct w49 t11257; char *t11258; char *t11259; struct w49 t11260; struct w49 t11261; struct p18678 *t11262; char *t11263; struct p18678 *t11264; char *t11265; struct p18678 *t11266; char *t11267; struct p18678 *t11268; char *t11269; struct p18678 *t11270; char *t11271; struct p18678 *t11272; char *t11273; struct p18678 *t11274; char *t11275; struct p18679 *t11276; struct p18678 *p18700; struct p18678 *p18701; struct p18678 *p18702; struct p18678 *p18703; struct p18678 *p18704; struct p18678 *p18705; struct p18677 *p18706; struct p18677 *p18707; struct p18678 *p18719; struct p18678 *p18720; struct p18678 *p18721; struct p18678 *p18722; struct p18678 *p18723; struct p18678 *p18725; struct p18678 *p18726; struct p18678 *p18731; struct p18678 *p18733; struct p18678 *p18734; struct p18678 *p18735; struct p18678 *p18736; struct p18678 *p18737; struct p18678 *p18738; struct p18678 *p18739; struct p18678 *p18740; struct p18678 *p18741; struct p18678 *p18742; struct p18678 *p18743; struct p18678 *p18744; struct p18678 *p18747; struct p18678 *p18748; struct p18678 *p18749; struct p18678 *p18750; struct p18678 *p18751; struct p18678 *p18752; struct p18678 *p18753; struct p18678 *p18754; struct p18678 *p18768; struct p18678 *p18770; struct p18678 *p18771; struct p18678 *p18772; struct p18678 *p18895; struct p18678 *p18896; struct p18678 *p18897; struct p18678 *p18898; struct p18678 *p18899; struct p18678 *p18953; struct p18678 *p18954; struct p18678 *p18955; struct p18678 *p18958; struct p18678 *p18959; /* x224144 */ /* x224123 */ /* x224122 */ /* x224125 */ /* x224124 */ /* x224127 */ /* x224126 */ /* x224129 */ /* x224128 */ /* x224131 */ /* x224130 */ /* x224133 */ /* x224132 */ /* x224135 */ /* x224134 */ /* x224137 */ /* x224136 */ /* x224139 */ /* x224138 */ /* x224141 */ /* x224140 */ /* x224143 */ /* x224142 */ /* x224121 */ t10195 = p18699; p18700 = t10195; /* x224120 */ /* x222941 */ /* x222940 */ /* x222991 */ /* x222990 */ /* x223034 */ /* x223033 */ /* x223137 */ /* x223136 */ /* x223420 */ /* x223419 */ /* x223718 */ /* x223717 */ /* x223849 */ /* x223848 */ /* x223889 */ /* x223888 */ /* x223936 */ /* x223935 */ /* x224066 */ /* x224065 */ /* x224119 */ /* x224118 */ /* x222891 */ t10196 = p18700; p18701 = t10196; /* x222890 stalin.sc:30676:1056635 */ /* x222889 stalin.sc:30676:1056646 */ /* x222888 stalin.sc:30676:1056647 */ t11276 = a32578; t10198 = f19127(t11276); /* x222887 */ t10197 = p18701; p18702 = t10197; a32610 = t10198; /* x222886 */ /* x222885 stalin.sc:30677:1056679 */ t10200 = p18702->a32568; /* x222884 */ t10199 = p18702; p18703 = t10199; a32611 = t10200; /* x222883 */ /* x222882 stalin.sc:30678:1056720 */ t10202 = p18703->a32567; /* x222881 */ t10201 = p18703; p18704 = t10201; a32612 = t10202; /* x222880 */ /* x222879 stalin.sc:30679:1056778 */ t10204 = p18704->a32566; /* x222878 */ t10203 = p18704; p18705 = t10203; a32613 = t10204; /* x222877 */ /* x222876 stalin.sc:30681:1056830 */ /* x220862 stalin.sc:30682:1056845 */ /* x220861 stalin.sc:30682:1056858 */ t10222 = a32610; /* x267893 stalin.sc:30682:1056846 */ if (!(t10222==EOF_OBJECT_TYPE)) goto l3371; /* x220947 */ /* x220946 */ /* x220945 stalin.sc:30683:1056864 */ /* x220944 stalin.sc:30683:1056870 */ t11229 = a32586; /* x220943 */ a32615 = t11229; /* x220942 */ /* x220866 */ /* x220864 */ t11230 = a32615; /* x220865 */ t11231 = q7; /* x220863 */ t11232.tag = EXTERNAL_SYMBOL_TYPE; t11232.value.external_symbol_type = t11230; t11233.tag = EXTERNAL_SYMBOL_TYPE; t11233.value.external_symbol_type = t11231; if (f26160(t11232, t11233)==FALSE_TYPE) goto l3725; /* x220869 */ /* x220868 */ /* x220867 stalin.sc:30684:1056889 */ t10206.tag = a32610; goto l3726; l3725: /* x220941 */ /* x220873 */ /* x220871 */ t11234 = a32615; /* x220872 */ t11235 = q1; /* x220870 */ t11236.tag = EXTERNAL_SYMBOL_TYPE; t11236.value.external_symbol_type = t11234; t11237.tag = EXTERNAL_SYMBOL_TYPE; t11237.value.external_symbol_type = t11235; if (f26160(t11236, t11237)==FALSE_TYPE) goto l3728; /* x220878 */ /* x220877 */ /* x220876 stalin.sc:30685:1056904 */ /* x220875 stalin.sc:30685:1056916 */ t11275 = "EOF while reading list"; /* x220874 stalin.sc:30685:1056905 */ t11274 = a32580; f19123(t11274, t11275); goto l3729; l3728: /* x220940 */ /* x220882 */ /* x220880 */ t11238 = a32615; /* x220881 */ t11239 = q6; /* x220879 */ t11240.tag = EXTERNAL_SYMBOL_TYPE; t11240.value.external_symbol_type = t11238; t11241.tag = EXTERNAL_SYMBOL_TYPE; t11241.value.external_symbol_type = t11239; if (f26160(t11240, t11241)==FALSE_TYPE) goto l3731; /* x220887 */ /* x220886 */ /* x220885 stalin.sc:30686:1056956 */ /* x220884 stalin.sc:30686:1056968 */ t11273 = "EOF while reading vector"; /* x220883 stalin.sc:30686:1056957 */ t11272 = a32580; f19123(t11272, t11273); goto l3732; l3731: /* x220939 */ /* x220891 */ /* x220889 */ t11242 = a32615; /* x220890 */ t11243 = q11; /* x220888 */ t11244.tag = EXTERNAL_SYMBOL_TYPE; t11244.value.external_symbol_type = t11242; t11245.tag = EXTERNAL_SYMBOL_TYPE; t11245.value.external_symbol_type = t11243; if (f26160(t11244, t11245)==FALSE_TYPE) goto l3734; /* x220896 */ /* x220895 */ /* x220894 stalin.sc:30687:1057009 */ /* x220893 stalin.sc:30687:1057021 */ t11271 = "EOF while reading quoted object"; /* x220892 stalin.sc:30687:1057010 */ t11270 = a32580; f19123(t11270, t11271); goto l3735; l3734: /* x220938 */ /* x220900 */ /* x220898 */ t11246 = a32615; /* x220899 */ t11247 = q10; /* x220897 */ t11248.tag = EXTERNAL_SYMBOL_TYPE; t11248.value.external_symbol_type = t11246; t11249.tag = EXTERNAL_SYMBOL_TYPE; t11249.value.external_symbol_type = t11247; if (f26160(t11248, t11249)==FALSE_TYPE) goto l3737; /* x220905 */ /* x220904 */ /* x220903 stalin.sc:30689:1057078 */ /* x220902 stalin.sc:30689:1057090 */ t11269 = "EOF while reading quasiquoted object"; /* x220901 stalin.sc:30689:1057079 */ t11268 = a32580; f19123(t11268, t11269); goto l3738; l3737: /* x220937 */ /* x220909 */ /* x220907 */ t11250 = a32615; /* x220908 */ t11251 = q9; /* x220906 */ t11252.tag = EXTERNAL_SYMBOL_TYPE; t11252.value.external_symbol_type = t11250; t11253.tag = EXTERNAL_SYMBOL_TYPE; t11253.value.external_symbol_type = t11251; if (f26160(t11252, t11253)==FALSE_TYPE) goto l3740; /* x220914 */ /* x220913 */ /* x220912 stalin.sc:30691:1057158 */ /* x220911 stalin.sc:30691:1057170 */ t11267 = "EOF while reading unquote-slicing object"; /* x220910 stalin.sc:30691:1057159 */ t11266 = a32580; f19123(t11266, t11267); goto l3741; l3740: /* x220936 */ /* x220918 */ /* x220916 */ t11254 = a32615; /* x220917 */ t11255 = q8; /* x220915 */ t11256.tag = EXTERNAL_SYMBOL_TYPE; t11256.value.external_symbol_type = t11254; t11257.tag = EXTERNAL_SYMBOL_TYPE; t11257.value.external_symbol_type = t11255; if (f26160(t11256, t11257)==FALSE_TYPE) goto l3743; /* x220923 */ /* x220922 */ /* x220921 stalin.sc:30692:1057229 */ /* x220920 stalin.sc:30692:1057241 */ t11265 = "EOF while reading unquoted object"; /* x220919 stalin.sc:30692:1057230 */ t11264 = a32580; f19123(t11264, t11265); goto l3744; l3743: /* x220935 */ /* x220927 */ /* x220925 */ t11258 = a32615; /* x220926 */ t11259 = q0; /* x220924 */ t11260.tag = EXTERNAL_SYMBOL_TYPE; t11260.value.external_symbol_type = t11258; t11261.tag = EXTERNAL_SYMBOL_TYPE; t11261.value.external_symbol_type = t11259; if (f26160(t11260, t11261)==FALSE_TYPE) goto l3746; /* x220932 */ /* x220931 */ /* x220930 stalin.sc:30693:1057291 */ /* x220929 stalin.sc:30693:1057303 */ t11263 = "EOF while reading pair"; /* x220928 stalin.sc:30693:1057292 */ t11262 = a32580; f19123(t11262, t11263); goto l3747; l3746: /* x220934 */ /* x220933 */ l3747: l3744: l3741: l3738: l3735: l3732: l3729: l3726: goto l3372; l3371: /* x222875 */ /* x220951 stalin.sc:30694:1057341 */ /* x220950 stalin.sc:30694:1057352 */ t10224 = ';'; /* x220949 stalin.sc:30694:1057349 */ t10223 = (char)(a32610>>2); /* x220948 stalin.sc:30694:1057342 */ t10225.tag = ((unsigned)((unsigned char)t10223))<<2; t10226 = t10224; if (f27342(t10225, t10226)==FALSE_TYPE) goto l3374; /* x220992 */ /* x220991 */ t11202 = p18705; p18719 = t11202; /* x220990 stalin.sc:30695:1057359 */ /* x220989 stalin.sc:30695:1057374 */ t11204 = &t11228; /* x220986 */ /* x220985 */ /* x220984 */ /* x220983 */ t11226 = p18719; p18720 = t11226; /* x220982 */ /* x220981 */ /* x220980 */ /* x220953 */ t11227 = p18720; p18721 = t11227; /* x220952 stalin.sc:30695:1057364 */ t11203 = p18721; p18722 = t11203; a32618 = t11204; h18722: /* x220979 stalin.sc:30696:1057386 */ /* x220978 stalin.sc:30696:1057396 */ /* x220977 stalin.sc:30696:1057397 */ t11225 = a32578; t11206 = f19127(t11225); /* x220976 */ t11205 = p18722; p18723 = t11205; a32619 = t11206; /* x220975 stalin.sc:30697:1057413 */ /* x220957 stalin.sc:30697:1057417 */ /* x220956 stalin.sc:30697:1057428 */ t11208 = '\n'; /* x220955 stalin.sc:30697:1057425 */ t11207 = a32619; /* x220954 stalin.sc:30697:1057418 */ t11209.tag = t11207; t11210 = t11208; if (f27342(t11209, t11210)==FALSE_TYPE) goto l3722; /* x220968 stalin.sc:30698:1057447 */ /* x220959 stalin.sc:30698:1057453 */ t11216 = a32586; /* x220967 stalin.sc:30698:1057459 */ /* x220965 stalin.sc:30698:1057465 */ /* x220964 stalin.sc:30698:1057479 */ /* x220963 stalin.sc:30698:1057488 */ t11223 = a32618; /* x220962 stalin.sc:30698:1057480 */ t11224.tag = STRUCTURE_TYPE24753; t11224.value.structure_type24753 = t11223; t11221 = f26331(t11224); /* x220961 stalin.sc:30698:1057466 */ t11222 = *((struct w49 *)(&t11221)); t11219 = f27585(t11222); /* x220966 stalin.sc:30698:1057493 */ t11220 = a32587; /* x267892 stalin.sc:30698:1057460 */ t11217 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11217==NULL) {backtrace("stalin.sc", 30698, 1057459); out_of_memory_error();} t11217->s0.tag = STRING_TYPE; t11217->s0.value.string_type = t11219; /* MOVE: branching squeezed to general */ if (t11220>=((struct structure_type24753 *)VALUE_OFFSET)) {t11217->s1.tag = STRUCTURE_TYPE24753; t11217->s1.value.structure_type24753 = t11220;} else t11217->s1.tag = (unsigned)t11220; /* x220958 stalin.sc:30698:1057448 */ t11215 = p18723; t11218 = t11217; t10206 = f18699(t11215, t11216, t11218); goto l3723; l3722: /* x220974 stalin.sc:30699:1057512 */ /* x220973 stalin.sc:30699:1057518 */ /* x220971 stalin.sc:30699:1057524 */ t11213 = a32619; /* x220972 stalin.sc:30699:1057527 */ t11214 = a32618; /* x267891 stalin.sc:30699:1057519 */ t11212 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11212==NULL) {backtrace("stalin.sc", 30699, 1057518); out_of_memory_error();} t11212->s0.tag = t11213; t11212->s1.tag = STRUCTURE_TYPE24753; t11212->s1.value.structure_type24753 = t11214; /* x220969 stalin.sc:30699:1057513 */ t11211 = p18723; p18722 = t11211; a32618 = t11212; goto h18722; l3723: goto l3375; l3374: /* x222874 */ /* x220996 stalin.sc:30700:1057545 */ /* x220995 stalin.sc:30700:1057556 */ t10228 = ')'; /* x220994 stalin.sc:30700:1057553 */ t10227 = (char)(a32610>>2); /* x220993 stalin.sc:30700:1057546 */ t10229.tag = ((unsigned)((unsigned char)t10227))<<2; t10230 = t10228; if (f27342(t10229, t10230)==FALSE_TYPE) goto l3377; /* x221031 */ /* x221030 */ t11192 = p18705; p18725 = t11192; /* x221029 */ /* x221028 stalin.sc:30701:1057563 */ /* x221020 stalin.sc:30701:1057571 */ /* x221019 stalin.sc:30701:1057575 */ /* x221017 stalin.sc:30701:1057580 */ t11194 = a32586; /* x221018 stalin.sc:30701:1057586 */ t11195 = q1; /* x267888 stalin.sc:30701:1057576 */ if (t11194==t11195) goto l3716; /* x221013 */ /* x221012 stalin.sc:30702:1057600 */ /* x221010 stalin.sc:30702:1057605 */ t11196 = a32586; /* x221011 stalin.sc:30702:1057611 */ t11197 = q6; /* x267889 stalin.sc:30702:1057601 */ if (t11196==t11197) goto l3716; /* x221006 */ /* x221004 stalin.sc:30703:1057632 */ t11198 = a32586; /* x221005 stalin.sc:30703:1057638 */ t11199 = q0; /* x267890 stalin.sc:30703:1057628 */ if (!(t11198==t11199)) goto l3717; l3716: /* x221022 */ /* x221021 */ goto l3718; l3717: /* x221027 */ /* x221026 */ /* x221025 stalin.sc:30704:1057650 */ /* x221024 stalin.sc:30704:1057662 */ t11201 = "Mismatched closing parenthesis"; /* x221023 stalin.sc:30704:1057651 */ t11200 = a32580; f19123(t11200, t11201); l3718: /* x220998 */ t11193 = p18725; p18726 = t11193; /* x220997 stalin.sc:30705:1057699 */ t10206.tag = EXTERNAL_SYMBOL_TYPE; t10206.value.external_symbol_type = p18726->a32558; goto l3378; l3377: /* x222873 */ /* x221034 stalin.sc:30706:1057715 */ /* x221033 stalin.sc:30706:1057733 */ t10231 = (char)(a32610>>2); /* x221032 stalin.sc:30706:1057716 */ if (f27407(t10231)==FALSE_TYPE) goto l3380; /* x221040 */ /* x221039 */ t11188 = p18705; p18731 = t11188; /* x221038 stalin.sc:30706:1057737 */ /* x221036 stalin.sc:30706:1057743 */ t11190 = a32586; /* x221037 stalin.sc:30706:1057749 */ t11191 = a32587; /* x221035 stalin.sc:30706:1057738 */ t11189 = p18731; t10206 = f18699(t11189, t11190, t11191); goto l3381; l3380: /* x222872 */ /* x221044 stalin.sc:30707:1057769 */ /* x221042 stalin.sc:30707:1057774 */ t10232 = a32586; /* x221043 stalin.sc:30707:1057780 */ t10233 = q0; /* x267887 stalin.sc:30707:1057770 */ if (!(t10232==t10233)) goto l3383; /* x221049 */ /* x221048 */ /* x221047 stalin.sc:30708:1057790 */ /* x221046 stalin.sc:30708:1057802 */ t11187 = "Only one object allowed after dot"; /* x221045 stalin.sc:30708:1057791 */ t11186 = a32580; f19123(t11186, t11187); goto l3384; l3383: /* x222871 */ /* x221053 stalin.sc:30709:1057849 */ /* x221052 stalin.sc:30709:1057860 */ t10235 = '\''; /* x221051 stalin.sc:30709:1057857 */ t10234 = (char)(a32610>>2); /* x221050 stalin.sc:30709:1057850 */ t10236.tag = ((unsigned)((unsigned char)t10234))<<2; t10237 = t10235; if (f27342(t10236, t10237)==FALSE_TYPE) goto l3386; /* x221081 */ /* x221080 */ t11161 = p18705; p18733 = t11161; /* x221079 stalin.sc:30710:1057867 */ /* x221078 stalin.sc:30710:1057876 */ /* x221070 stalin.sc:30711:1057902 */ t11174 = p18733->p18677->a32557; /* x221071 stalin.sc:30712:1057916 */ t11175 = a32611; /* x221072 stalin.sc:30713:1057935 */ t11176 = a32612; /* x221073 stalin.sc:30714:1057959 */ t11177 = a32613; /* x221076 stalin.sc:30715:1057995 */ /* x221075 stalin.sc:30715:1058004 */ t11184 = a32587; /* x221074 stalin.sc:30715:1057996 */ /* MOVE: branching squeezed to general */ if (t11184>=((struct structure_type24753 *)VALUE_OFFSET)) {t11185.tag = STRUCTURE_TYPE24753; t11185.value.structure_type24753 = t11184;} else t11185.tag = (unsigned)t11184; t11178 = f26331(t11185); /* x221077 stalin.sc:30716:1058019 */ t11179 = q11; /* x221069 stalin.sc:30710:1057877 */ t11180.tag = FIXNUM_TYPE; t11180.value.fixnum_type = t11175; t11181.tag = FIXNUM_TYPE; t11181.value.fixnum_type = t11176; t11182.tag = FIXNUM_TYPE; t11182.value.fixnum_type = t11177; t11183.tag = EXTERNAL_SYMBOL_TYPE; t11183.value.external_symbol_type = t11179; t11163 = f6867(t11174, t11180, t11181, t11182, t11178, t11183); /* x221068 */ t11162 = p18733; p18734 = t11162; a32623 = t11163; /* x221067 stalin.sc:30717:1058032 */ /* x221055 stalin.sc:30717:1058038 */ t11164 = a32623; /* x221066 stalin.sc:30717:1058040 */ /* x221065 stalin.sc:30718:1058076 */ /* x221061 stalin.sc:30718:1058082 */ /* x221059 stalin.sc:30718:1058088 */ t11171 = q11; /* x221060 stalin.sc:30718:1058095 */ /* x221058 stalin.sc:30718:1058083 */ t11170 = p18734; t11172 = (struct structure_type24753 *)NULL_TYPE; t11168 = f18699(t11170, t11171, t11172); /* x221064 stalin.sc:30719:1058104 */ /* x221063 stalin.sc:30719:1058135 */ /* x221062 stalin.sc:30719:1058105 */ t11173.tag = NULL_TYPE; t11169 = f6868(t11173); /* x267885 stalin.sc:30718:1058077 */ t11166 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11166==NULL) {backtrace("stalin.sc", 30718, 1058076); out_of_memory_error();} t11166->s0 = t11168; t11166->s1.tag = STRUCTURE_TYPE27510; t11166->s1.value.structure_type27510 = t11169; /* x221056 stalin.sc:30717:1058041 */ t11167.tag = STRUCTURE_TYPE24753; t11167.value.structure_type24753 = t11166; t11165 = f6868(t11167); /* x267886 stalin.sc:30717:1058033 */ t10206.tag = STRUCTURE_TYPE24753; t10206.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t10206.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30717, 1058032); out_of_memory_error();} t10206.value.structure_type24753->s0.tag = STRUCTURE_TYPE27510; t10206.value.structure_type24753->s0.value.structure_type27510 = t11164; t10206.value.structure_type24753->s1.tag = STRUCTURE_TYPE27510; t10206.value.structure_type24753->s1.value.structure_type27510 = t11165; goto l3387; l3386: /* x222870 */ /* x221085 stalin.sc:30720:1058154 */ /* x221084 stalin.sc:30720:1058165 */ t10239 = '`'; /* x221083 stalin.sc:30720:1058162 */ t10238 = (char)(a32610>>2); /* x221082 stalin.sc:30720:1058155 */ t10240.tag = ((unsigned)((unsigned char)t10238))<<2; t10241 = t10239; if (f27342(t10240, t10241)==FALSE_TYPE) goto l3389; /* x221113 */ /* x221112 */ t11136 = p18705; p18735 = t11136; /* x221111 stalin.sc:30721:1058172 */ /* x221110 stalin.sc:30721:1058181 */ /* x221102 stalin.sc:30722:1058207 */ t11149 = p18735->p18677->a32557; /* x221103 stalin.sc:30723:1058221 */ t11150 = a32611; /* x221104 stalin.sc:30724:1058240 */ t11151 = a32612; /* x221105 stalin.sc:30725:1058264 */ t11152 = a32613; /* x221108 stalin.sc:30726:1058300 */ /* x221107 stalin.sc:30726:1058309 */ t11159 = a32587; /* x221106 stalin.sc:30726:1058301 */ /* MOVE: branching squeezed to general */ if (t11159>=((struct structure_type24753 *)VALUE_OFFSET)) {t11160.tag = STRUCTURE_TYPE24753; t11160.value.structure_type24753 = t11159;} else t11160.tag = (unsigned)t11159; t11153 = f26331(t11160); /* x221109 stalin.sc:30727:1058324 */ t11154 = q10; /* x221101 stalin.sc:30721:1058182 */ t11155.tag = FIXNUM_TYPE; t11155.value.fixnum_type = t11150; t11156.tag = FIXNUM_TYPE; t11156.value.fixnum_type = t11151; t11157.tag = FIXNUM_TYPE; t11157.value.fixnum_type = t11152; t11158.tag = EXTERNAL_SYMBOL_TYPE; t11158.value.external_symbol_type = t11154; t11138 = f6867(t11149, t11155, t11156, t11157, t11153, t11158); /* x221100 */ t11137 = p18735; p18736 = t11137; a32624 = t11138; /* x221099 stalin.sc:30728:1058342 */ /* x221087 stalin.sc:30728:1058348 */ t11139 = a32624; /* x221098 stalin.sc:30728:1058350 */ /* x221097 stalin.sc:30729:1058386 */ /* x221093 stalin.sc:30729:1058392 */ /* x221091 stalin.sc:30729:1058398 */ t11146 = q10; /* x221092 stalin.sc:30729:1058410 */ /* x221090 stalin.sc:30729:1058393 */ t11145 = p18736; t11147 = (struct structure_type24753 *)NULL_TYPE; t11143 = f18699(t11145, t11146, t11147); /* x221096 stalin.sc:30730:1058419 */ /* x221095 stalin.sc:30730:1058450 */ /* x221094 stalin.sc:30730:1058420 */ t11148.tag = NULL_TYPE; t11144 = f6868(t11148); /* x267883 stalin.sc:30729:1058387 */ t11141 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11141==NULL) {backtrace("stalin.sc", 30729, 1058386); out_of_memory_error();} t11141->s0 = t11143; t11141->s1.tag = STRUCTURE_TYPE27510; t11141->s1.value.structure_type27510 = t11144; /* x221088 stalin.sc:30728:1058351 */ t11142.tag = STRUCTURE_TYPE24753; t11142.value.structure_type24753 = t11141; t11140 = f6868(t11142); /* x267884 stalin.sc:30728:1058343 */ t10206.tag = STRUCTURE_TYPE24753; t10206.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t10206.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30728, 1058342); out_of_memory_error();} t10206.value.structure_type24753->s0.tag = STRUCTURE_TYPE27510; t10206.value.structure_type24753->s0.value.structure_type27510 = t11139; t10206.value.structure_type24753->s1.tag = STRUCTURE_TYPE27510; t10206.value.structure_type24753->s1.value.structure_type27510 = t11140; goto l3390; l3389: /* x222869 */ /* x221117 stalin.sc:30731:1058469 */ /* x221116 stalin.sc:30731:1058480 */ t10243 = ','; /* x221115 stalin.sc:30731:1058477 */ t10242 = (char)(a32610>>2); /* x221114 stalin.sc:30731:1058470 */ t10244.tag = ((unsigned)((unsigned char)t10242))<<2; t10245 = t10243; if (f27342(t10244, t10245)==FALSE_TYPE) goto l3392; /* x221202 */ /* x221201 */ t11071 = p18705; p18737 = t11071; /* x221200 stalin.sc:30732:1058487 */ /* x221199 stalin.sc:30732:1058497 */ /* x221198 stalin.sc:30732:1058498 */ t11135 = a32578; t11073 = f19127(t11135); /* x221197 */ t11072 = p18737; p18738 = t11072; a32625 = t11073; /* x221196 */ /* x221195 stalin.sc:30733:1058513 */ /* x221187 stalin.sc:30733:1058519 */ /* x221186 stalin.sc:30733:1058532 */ t11132 = a32625; /* x267878 stalin.sc:30733:1058520 */ if (!(t11132==EOF_OBJECT_TYPE)) goto l3714; /* x221192 */ /* x221191 */ /* x221190 stalin.sc:30733:1058536 */ /* x221189 stalin.sc:30733:1058548 */ t11134 = "EOF after dot"; /* x221188 stalin.sc:30733:1058537 */ t11133 = a32580; f19123(t11133, t11134); goto l3715; l3714: /* x221194 stalin.sc:30733:1058513 */ /* x221193 stalin.sc:30733:1058513 */ l3715: /* x221184 */ t11074 = p18738; p18739 = t11074; /* x221183 stalin.sc:30734:1058569 */ /* x221121 stalin.sc:30735:1058580 */ /* x221120 stalin.sc:30735:1058591 */ t11076 = '@'; /* x221119 stalin.sc:30735:1058588 */ t11075 = a32625; /* x221118 stalin.sc:30735:1058581 */ t11077.tag = t11075; t11078 = t11076; if (f27342(t11077, t11078)==FALSE_TYPE) goto l3711; /* x221149 */ /* x221148 */ t11107 = p18739; p18740 = t11107; /* x221147 stalin.sc:30736:1058601 */ /* x221146 stalin.sc:30736:1058610 */ /* x221138 stalin.sc:30737:1058639 */ t11120 = p18740->p18677->a32557; /* x221139 stalin.sc:30738:1058656 */ t11121 = a32611; /* x221140 stalin.sc:30739:1058678 */ t11122 = a32612; /* x221141 stalin.sc:30740:1058705 */ t11123 = a32613; /* x221144 stalin.sc:30741:1058744 */ /* x221143 stalin.sc:30741:1058753 */ t11130 = a32587; /* x221142 stalin.sc:30741:1058745 */ /* MOVE: branching squeezed to general */ if (t11130>=((struct structure_type24753 *)VALUE_OFFSET)) {t11131.tag = STRUCTURE_TYPE24753; t11131.value.structure_type24753 = t11130;} else t11131.tag = (unsigned)t11130; t11124 = f26331(t11131); /* x221145 stalin.sc:30742:1058771 */ t11125 = q9; /* x221137 stalin.sc:30736:1058611 */ t11126.tag = FIXNUM_TYPE; t11126.value.fixnum_type = t11121; t11127.tag = FIXNUM_TYPE; t11127.value.fixnum_type = t11122; t11128.tag = FIXNUM_TYPE; t11128.value.fixnum_type = t11123; t11129.tag = EXTERNAL_SYMBOL_TYPE; t11129.value.external_symbol_type = t11125; t11109 = f6867(t11120, t11126, t11127, t11128, t11124, t11129); /* x221136 */ t11108 = p18740; p18741 = t11108; a32627 = t11109; /* x221135 stalin.sc:30743:1058798 */ /* x221123 stalin.sc:30744:1058811 */ t11110 = a32627; /* x221134 stalin.sc:30744:1058813 */ /* x221133 stalin.sc:30745:1058847 */ /* x221129 stalin.sc:30745:1058853 */ /* x221127 stalin.sc:30745:1058859 */ t11117 = q9; /* x221128 stalin.sc:30745:1058877 */ /* x221126 stalin.sc:30745:1058854 */ t11116 = p18741; t11118 = (struct structure_type24753 *)NULL_TYPE; t11114 = f18699(t11116, t11117, t11118); /* x221132 stalin.sc:30746:1058891 */ /* x221131 stalin.sc:30746:1058922 */ /* x221130 stalin.sc:30746:1058892 */ t11119.tag = NULL_TYPE; t11115 = f6868(t11119); /* x267881 stalin.sc:30745:1058848 */ t11112 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11112==NULL) {backtrace("stalin.sc", 30745, 1058847); out_of_memory_error();} t11112->s0 = t11114; t11112->s1.tag = STRUCTURE_TYPE27510; t11112->s1.value.structure_type27510 = t11115; /* x221124 stalin.sc:30744:1058814 */ t11113.tag = STRUCTURE_TYPE24753; t11113.value.structure_type24753 = t11112; t11111 = f6868(t11113); /* x267882 stalin.sc:30743:1058799 */ t10206.tag = STRUCTURE_TYPE24753; t10206.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t10206.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30743, 1058798); out_of_memory_error();} t10206.value.structure_type24753->s0.tag = STRUCTURE_TYPE27510; t10206.value.structure_type24753->s0.value.structure_type27510 = t11110; t10206.value.structure_type24753->s1.tag = STRUCTURE_TYPE27510; t10206.value.structure_type24753->s1.value.structure_type27510 = t11111; goto l3712; l3711: /* x221182 */ /* x221181 */ t11079 = p18739; p18742 = t11079; /* x221180 */ /* x221179 stalin.sc:30747:1058942 */ /* x221178 stalin.sc:30747:1058954 */ t11106 = a32625; /* x221177 stalin.sc:30747:1058943 */ t11105 = a32579; f19125(t11105, t11106); /* x221176 */ t11080 = p18742; p18743 = t11080; /* x221175 stalin.sc:30748:1058961 */ /* x221174 stalin.sc:30748:1058970 */ /* x221166 stalin.sc:30749:1058997 */ t11093 = p18743->p18677->a32557; /* x221167 stalin.sc:30750:1059012 */ t11094 = a32611; /* x221168 stalin.sc:30751:1059032 */ t11095 = a32612; /* x221169 stalin.sc:30752:1059057 */ t11096 = a32613; /* x221172 stalin.sc:30753:1059094 */ /* x221171 stalin.sc:30753:1059103 */ t11103 = a32587; /* x221170 stalin.sc:30753:1059095 */ /* MOVE: branching squeezed to general */ if (t11103>=((struct structure_type24753 *)VALUE_OFFSET)) {t11104.tag = STRUCTURE_TYPE24753; t11104.value.structure_type24753 = t11103;} else t11104.tag = (unsigned)t11103; t11097 = f26331(t11104); /* x221173 stalin.sc:30754:1059119 */ t11098 = q8; /* x221165 stalin.sc:30748:1058971 */ t11099.tag = FIXNUM_TYPE; t11099.value.fixnum_type = t11094; t11100.tag = FIXNUM_TYPE; t11100.value.fixnum_type = t11095; t11101.tag = FIXNUM_TYPE; t11101.value.fixnum_type = t11096; t11102.tag = EXTERNAL_SYMBOL_TYPE; t11102.value.external_symbol_type = t11098; t11082 = f6867(t11093, t11099, t11100, t11101, t11097, t11102); /* x221164 */ t11081 = p18743; p18744 = t11081; a32629 = t11082; /* x221163 stalin.sc:30755:1059135 */ /* x221151 stalin.sc:30755:1059141 */ t11083 = a32629; /* x221162 stalin.sc:30755:1059143 */ /* x221161 stalin.sc:30756:1059180 */ /* x221157 stalin.sc:30756:1059186 */ /* x221155 stalin.sc:30756:1059192 */ t11090 = q8; /* x221156 stalin.sc:30756:1059201 */ /* x221154 stalin.sc:30756:1059187 */ t11089 = p18744; t11091 = (struct structure_type24753 *)NULL_TYPE; t11087 = f18699(t11089, t11090, t11091); /* x221160 stalin.sc:30757:1059211 */ /* x221159 stalin.sc:30758:1059248 */ /* x221158 stalin.sc:30757:1059212 */ t11092.tag = NULL_TYPE; t11088 = f6868(t11092); /* x267879 stalin.sc:30756:1059181 */ t11085 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11085==NULL) {backtrace("stalin.sc", 30756, 1059180); out_of_memory_error();} t11085->s0 = t11087; t11085->s1.tag = STRUCTURE_TYPE27510; t11085->s1.value.structure_type27510 = t11088; /* x221152 stalin.sc:30755:1059144 */ t11086.tag = STRUCTURE_TYPE24753; t11086.value.structure_type24753 = t11085; t11084 = f6868(t11086); /* x267880 stalin.sc:30755:1059136 */ t10206.tag = STRUCTURE_TYPE24753; t10206.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t10206.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30755, 1059135); out_of_memory_error();} t10206.value.structure_type24753->s0.tag = STRUCTURE_TYPE27510; t10206.value.structure_type24753->s0.value.structure_type27510 = t11083; t10206.value.structure_type24753->s1.tag = STRUCTURE_TYPE27510; t10206.value.structure_type24753->s1.value.structure_type27510 = t11084; l3712: goto l3393; l3392: /* x222868 */ /* x221206 stalin.sc:30759:1059270 */ /* x221205 stalin.sc:30759:1059281 */ t10247 = '('; /* x221204 stalin.sc:30759:1059278 */ t10246 = (char)(a32610>>2); /* x221203 stalin.sc:30759:1059271 */ t10248.tag = ((unsigned)((unsigned char)t10246))<<2; t10249 = t10247; if (f27342(t10248, t10249)==FALSE_TYPE) goto l3395; /* x221353 */ /* x221352 */ t10994 = p18705; p18747 = t10994; /* x221351 stalin.sc:30761:1059324 */ /* x221350 stalin.sc:30761:1059338 */ /* x221349 */ /* x221348 */ /* x221347 */ /* x221346 */ t11069 = p18747; p18748 = t11069; /* x221345 */ /* x221344 */ /* x221343 */ /* x221208 */ t11070 = p18748; p18749 = t11070; /* x221207 stalin.sc:30761:1059329 */ t10995 = p18749; p18750 = t10995; a32632 = (struct structure_type24753 *)NULL_TYPE; h18750: /* x221342 stalin.sc:30762:1059347 */ /* x221341 stalin.sc:30762:1059356 */ /* x221339 stalin.sc:30762:1059362 */ t11067 = q1; /* x221340 stalin.sc:30762:1059368 */ /* x221338 stalin.sc:30762:1059357 */ t11066 = p18750; t11068 = (struct structure_type24753 *)NULL_TYPE; t10997 = f18699(t11066, t11067, t11068); /* x221337 */ t10996 = p18750; p18751 = t10996; a32633 = t10997; /* x221336 stalin.sc:30763:1059379 */ /* x221214 stalin.sc:30764:1059391 */ /* x221212 stalin.sc:30764:1059396 */ /* x221211 stalin.sc:30764:1059416 */ t11000 = a32633; /* x221210 stalin.sc:30764:1059397 */ a40463 = t11000; /* x294521 */ /* x294520 */ t11001 = a40463; /* x294519 */ if (!((t11001.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 35380]"); structure_ref_error();} t10998 = t11001.value.structure_type27510->s9; /* x221213 stalin.sc:30764:1059419 */ t10999 = p18751->a32559; /* x267877 stalin.sc:30764:1059392 */ if (!(((t10998.tag)==EXTERNAL_SYMBOL_TYPE)&&((t10998.value.external_symbol_type)==t10999))) goto l3696; /* x221284 */ /* x221283 */ t11028 = p18751; p18752 = t11028; /* x221282 */ /* x221281 stalin.sc:30765:1059430 */ /* x221273 stalin.sc:30765:1059436 */ /* x221272 stalin.sc:30765:1059443 */ t11063 = a32632; /* x267873 stalin.sc:30765:1059437 */ if (!(((unsigned)t11063)==NULL_TYPE)) goto l3708; /* x221278 */ /* x221277 */ /* x221276 stalin.sc:30766:1059453 */ /* x221275 stalin.sc:30766:1059465 */ t11065 = "Dot cannot be first element of list"; /* x221274 stalin.sc:30766:1059454 */ t11064 = a32580; f19123(t11064, t11065); goto l3709; l3708: /* x221280 stalin.sc:30765:1059430 */ /* x221279 stalin.sc:30765:1059430 */ l3709: /* x221270 */ t11029 = p18752; p18753 = t11029; /* x221269 stalin.sc:30767:1059511 */ /* x221268 stalin.sc:30767:1059522 */ /* x221266 stalin.sc:30767:1059528 */ t11061 = q7; /* x221267 stalin.sc:30767:1059536 */ /* x221265 stalin.sc:30767:1059523 */ t11060 = p18753; t11062 = (struct structure_type24753 *)NULL_TYPE; t11031 = f18699(t11060, t11061, t11062); /* x221264 */ t11030 = p18753; p18754 = t11030; a32635 = t11031; /* x221263 */ /* x221262 stalin.sc:30768:1059552 */ /* x221260 stalin.sc:30768:1059558 */ t11058 = q0; /* x221261 stalin.sc:30768:1059565 */ /* x221259 stalin.sc:30768:1059553 */ t11057 = p18754; t11059 = (struct structure_type24753 *)NULL_TYPE; f18699(t11057, t11058, t11059); /* x221258 */ /* x221257 */ /* x221256 */ /* x221255 stalin.sc:30769:1059579 */ /* x221246 stalin.sc:30769:1059593 */ /* x221245 stalin.sc:30769:1059599 */ t11049 = a32632; /* x221244 stalin.sc:30769:1059594 */ a35629 = t11049; /* x273873 */ /* x273872 */ t11050 = a35629; /* x273871 */ if (!(t11050>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CDR[26177] 29778]"); structure_ref_error();} t11033 = t11050->s1; /* x221254 stalin.sc:30770:1059610 */ /* x221253 stalin.sc:30771:1059649 */ /* x221251 stalin.sc:30771:1059655 */ /* x221250 stalin.sc:30771:1059662 */ t11055 = a32632; /* x221249 stalin.sc:30771:1059656 */ a36209 = t11055; /* x276193 */ /* x276192 */ t11056 = a36209; /* x276191 */ if (!(t11056>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 30358]"); structure_ref_error();} t11053 = t11056->s0; /* x221252 stalin.sc:30771:1059665 */ t11054 = a32635; /* x267874 stalin.sc:30771:1059650 */ t11051 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11051==NULL) {backtrace("stalin.sc", 30771, 1059649); out_of_memory_error();} t11051->s0 = t11053; t11051->s1 = t11054; /* x221247 stalin.sc:30770:1059611 */ t11052.tag = STRUCTURE_TYPE24753; t11052.value.structure_type24753 = t11051; t11034 = f6868(t11052); /* x221243 */ /* x221242 */ /* x221241 */ /* x221240 */ /* x221239 */ /* x221238 */ /* x221237 */ /* x221216 */ /* x221215 stalin.sc:30769:1059584 */ a32639 = t11033; a32640 = t11034; h18759: /* x221236 stalin.sc:30772:1059680 */ /* x221219 stalin.sc:30772:1059684 */ /* x221218 stalin.sc:30772:1059691 */ t11035 = a32639; /* x267876 stalin.sc:30772:1059685 */ if (!((t11035.tag)==NULL_TYPE)) goto l3705; /* x221222 stalin.sc:30773:1059699 */ /* x221221 stalin.sc:30773:1059709 */ t11046 = a32640; /* x221220 stalin.sc:30773:1059700 */ a41118 = t11046; /* x298584 stalin.sc:6937:240340 */ /* x298583 stalin.sc:6937:240360 */ t11047 = a41118; /* x298582 stalin.sc:6937:240341 */ a42438 = t11047; /* x303622 */ /* x303621 */ t11048 = a42438; /* x303620 */ t10206 = t11048->s9; goto l3706; l3705: /* x221235 stalin.sc:30774:1059717 */ /* x221226 stalin.sc:30774:1059723 */ /* x221225 stalin.sc:30774:1059729 */ t11038 = *((struct w16638 *)(&a32639)); /* x221224 stalin.sc:30774:1059724 */ a35628 = t11038; /* x273869 */ /* x273868 */ t11039 = a35628; /* x273867 */ if (!((t11039.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29777]"); structure_ref_error();} t11036 = t11039.value.structure_type24753->s1; /* x221234 stalin.sc:30775:1059736 */ /* x221233 stalin.sc:30776:1059772 */ /* x221231 stalin.sc:30776:1059778 */ /* x221230 stalin.sc:30776:1059785 */ t11044 = *((struct w16638 *)(&a32639)); /* x221229 stalin.sc:30776:1059779 */ a36208 = t11044; /* x276189 */ /* x276188 */ t11045 = a36208; /* x276187 */ if (!((t11045.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30357]"); structure_ref_error();} t11042 = t11045.value.structure_type24753->s0; /* x221232 stalin.sc:30776:1059788 */ t11043 = a32640; /* x267875 stalin.sc:30776:1059773 */ t11040 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11040==NULL) {backtrace("stalin.sc", 30776, 1059772); out_of_memory_error();} t11040->s0 = t11042; t11040->s1.tag = STRUCTURE_TYPE27510; t11040->s1.value.structure_type27510 = t11043; /* x221227 stalin.sc:30775:1059737 */ t11041.tag = STRUCTURE_TYPE24753; t11041.value.structure_type24753 = t11040; t11037 = f6868(t11041); /* x221223 stalin.sc:30774:1059718 */ a32639 = t11036; a32640 = t11037; goto h18759; l3706: goto l3697; l3696: /* x221335 */ /* x221290 stalin.sc:30777:1059803 */ /* x221288 stalin.sc:30777:1059808 */ /* x221287 stalin.sc:30777:1059828 */ t11004 = a32633; /* x221286 stalin.sc:30777:1059809 */ a40462 = t11004; /* x294517 */ /* x294516 */ t11005 = a40462; /* x294515 */ if (!((t11005.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 35379]"); structure_ref_error();} t11002 = t11005.value.structure_type27510->s9; /* x221289 stalin.sc:30777:1059831 */ t11003 = p18751->a32558; /* x267872 stalin.sc:30777:1059804 */ if (!(((t11002.tag)==EXTERNAL_SYMBOL_TYPE)&&((t11002.value.external_symbol_type)==t11003))) goto l3699; /* x221326 */ /* x221325 */ /* x221324 stalin.sc:30778:1059844 */ /* x221320 stalin.sc:30778:1059858 */ t11011 = a32632; /* x221323 stalin.sc:30778:1059864 */ /* x221322 stalin.sc:30778:1059895 */ /* x221321 stalin.sc:30778:1059865 */ t11027.tag = NULL_TYPE; t11012 = f6868(t11027); /* x221319 */ /* x221318 */ /* x221317 */ /* x221316 */ /* x221315 */ /* x221314 */ /* x221313 */ /* x221292 */ /* x221291 stalin.sc:30778:1059849 */ /* MOVE: branching squeezed to general */ if (t11011>=((struct structure_type24753 *)VALUE_OFFSET)) {a32643.tag = STRUCTURE_TYPE24753; a32643.value.structure_type24753 = t11011;} else a32643.tag = (unsigned)t11011; a32644 = t11012; h18766: /* x221312 stalin.sc:30779:1059909 */ /* x221295 stalin.sc:30779:1059913 */ /* x221294 stalin.sc:30779:1059920 */ t11013 = a32643; /* x267871 stalin.sc:30779:1059914 */ if (!((t11013.tag)==NULL_TYPE)) goto l3702; /* x221298 stalin.sc:30780:1059927 */ /* x221297 stalin.sc:30780:1059937 */ t11024 = a32644; /* x221296 stalin.sc:30780:1059928 */ a41117 = t11024; /* x298580 stalin.sc:6937:240340 */ /* x298579 stalin.sc:6937:240360 */ t11025 = a41117; /* x298578 stalin.sc:6937:240341 */ a42437 = t11025; /* x303618 */ /* x303617 */ t11026 = a42437; /* x303616 */ t10206 = t11026->s9; goto l3703; l3702: /* x221311 stalin.sc:30781:1059944 */ /* x221302 stalin.sc:30781:1059950 */ /* x221301 stalin.sc:30781:1059956 */ t11016 = *((struct w16638 *)(&a32643)); /* x221300 stalin.sc:30781:1059951 */ a35627 = t11016; /* x273865 */ /* x273864 */ t11017 = a35627; /* x273863 */ if (!((t11017.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29776]"); structure_ref_error();} t11014 = t11017.value.structure_type24753->s1; /* x221310 stalin.sc:30782:1059969 */ /* x221309 stalin.sc:30783:1060004 */ /* x221307 stalin.sc:30783:1060010 */ /* x221306 stalin.sc:30783:1060017 */ t11022 = *((struct w16638 *)(&a32643)); /* x221305 stalin.sc:30783:1060011 */ a36207 = t11022; /* x276185 */ /* x276184 */ t11023 = a36207; /* x276183 */ if (!((t11023.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30356]"); structure_ref_error();} t11020 = t11023.value.structure_type24753->s0; /* x221308 stalin.sc:30783:1060020 */ t11021 = a32644; /* x267870 stalin.sc:30783:1060005 */ t11018 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11018==NULL) {backtrace("stalin.sc", 30783, 1060004); out_of_memory_error();} t11018->s0 = t11020; t11018->s1.tag = STRUCTURE_TYPE27510; t11018->s1.value.structure_type27510 = t11021; /* x221303 stalin.sc:30782:1059970 */ t11019.tag = STRUCTURE_TYPE24753; t11019.value.structure_type24753 = t11018; t11015 = f6868(t11019); /* x221299 stalin.sc:30781:1059945 */ a32643 = t11014; a32644 = t11015; goto h18766; l3703: goto l3700; l3699: /* x221334 */ /* x221333 */ t11006 = p18751; p18768 = t11006; /* x221332 stalin.sc:30784:1060039 */ /* x221331 stalin.sc:30784:1060045 */ /* x221329 stalin.sc:30784:1060051 */ t11009 = a32633; /* x221330 stalin.sc:30784:1060053 */ t11010 = a32632; /* x267869 stalin.sc:30784:1060046 */ t11008 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11008==NULL) {backtrace("stalin.sc", 30784, 1060045); out_of_memory_error();} t11008->s0 = t11009; /* MOVE: branching squeezed to general */ if (t11010>=((struct structure_type24753 *)VALUE_OFFSET)) {t11008->s1.tag = STRUCTURE_TYPE24753; t11008->s1.value.structure_type24753 = t11010;} else t11008->s1.tag = (unsigned)t11010; /* x221327 stalin.sc:30784:1060040 */ t11007 = p18768; p18750 = t11007; a32632 = t11008; goto h18750; l3700: l3697: goto l3396; l3395: /* x222867 */ /* x221357 stalin.sc:30785:1060071 */ /* x221356 stalin.sc:30785:1060082 */ t10251 = '#'; /* x221355 stalin.sc:30785:1060079 */ t10250 = (char)(a32610>>2); /* x221354 stalin.sc:30785:1060072 */ t10252.tag = ((unsigned)((unsigned char)t10250))<<2; t10253 = t10251; if (f27342(t10252, t10253)==FALSE_TYPE) goto l3398; /* x222419 */ /* x222418 */ t10475 = p18705; p18770 = t10475; /* x222417 stalin.sc:30786:1060089 */ /* x222416 stalin.sc:30786:1060099 */ /* x222415 stalin.sc:30786:1060100 */ t10993 = a32578; t10477 = f19127(t10993); /* x222414 */ t10476 = p18770; p18771 = t10476; a32645 = t10477; /* x222413 */ /* x222412 stalin.sc:30787:1060115 */ /* x222404 stalin.sc:30787:1060121 */ /* x222403 stalin.sc:30787:1060134 */ t10990 = a32645; /* x267779 stalin.sc:30787:1060122 */ if (!(t10990==EOF_OBJECT_TYPE)) goto l3693; /* x222409 */ /* x222408 */ /* x222407 stalin.sc:30787:1060138 */ /* x222406 stalin.sc:30787:1060150 */ t10992 = "EOF after sharp sign"; /* x222405 stalin.sc:30787:1060139 */ t10991 = a32580; f19123(t10991, t10992); goto l3694; l3693: /* x222411 stalin.sc:30787:1060115 */ /* x222410 stalin.sc:30787:1060115 */ l3694: /* x222401 */ t10478 = p18771; p18772 = t10478; /* x222400 stalin.sc:30788:1060178 */ /* x221370 stalin.sc:30789:1060189 */ /* x221369 stalin.sc:30789:1060193 */ /* x221368 stalin.sc:30789:1060204 */ t10480 = 't'; /* x221367 stalin.sc:30789:1060201 */ t10479 = a32645; /* x221366 stalin.sc:30789:1060194 */ t10481.tag = t10479; t10482 = t10480; if (!(f27342(t10481, t10482)==FALSE_TYPE)) goto l3484; /* x221363 */ /* x221362 stalin.sc:30789:1060220 */ t10484 = 'T'; /* x221361 stalin.sc:30789:1060217 */ t10483 = a32645; /* x221360 stalin.sc:30789:1060210 */ t10485.tag = t10483; t10486 = t10484; if (f27342(t10485, t10486)==FALSE_TYPE) goto l3485; l3484: /* x221373 */ /* x221372 */ /* x221371 stalin.sc:30789:1060226 */ t10206.tag = TRUE_TYPE; goto l3486; l3485: /* x222399 */ /* x221386 stalin.sc:30790:1060235 */ /* x221385 stalin.sc:30790:1060239 */ /* x221384 stalin.sc:30790:1060250 */ t10488 = 'f'; /* x221383 stalin.sc:30790:1060247 */ t10487 = a32645; /* x221382 stalin.sc:30790:1060240 */ t10489.tag = t10487; t10490 = t10488; if (!(f27342(t10489, t10490)==FALSE_TYPE)) goto l3488; /* x221379 */ /* x221378 stalin.sc:30790:1060266 */ t10492 = 'F'; /* x221377 stalin.sc:30790:1060263 */ t10491 = a32645; /* x221376 stalin.sc:30790:1060256 */ t10493.tag = t10491; t10494 = t10492; if (f27342(t10493, t10494)==FALSE_TYPE) goto l3489; l3488: /* x221389 */ /* x221388 */ /* x221387 stalin.sc:30790:1060272 */ t10206.tag = FALSE_TYPE; goto l3490; l3489: /* x222398 */ /* x221402 stalin.sc:30791:1060281 */ /* x221401 stalin.sc:30791:1060285 */ /* x221400 stalin.sc:30791:1060296 */ t10496 = 'b'; /* x221399 stalin.sc:30791:1060293 */ t10495 = a32645; /* x221398 stalin.sc:30791:1060286 */ t10497.tag = t10495; t10498 = t10496; if (!(f27342(t10497, t10498)==FALSE_TYPE)) goto l3492; /* x221395 */ /* x221394 stalin.sc:30791:1060312 */ t10500 = 'B'; /* x221393 stalin.sc:30791:1060309 */ t10499 = a32645; /* x221392 stalin.sc:30791:1060302 */ t10501.tag = t10499; t10502 = t10500; if (f27342(t10501, t10502)==FALSE_TYPE) goto l3493; l3492: /* x221548 */ /* x221547 */ /* x221546 stalin.sc:30792:1060323 */ /* x221545 stalin.sc:30792:1060333 */ /* x221544 stalin.sc:30792:1060334 */ t10989 = a32578; t10925 = f19127(t10989); /* x221543 */ a32650 = t10925; /* x221542 */ /* x221541 stalin.sc:30793:1060352 */ /* x221533 stalin.sc:30793:1060358 */ /* x221532 stalin.sc:30793:1060371 */ t10986 = a32650; /* x267864 stalin.sc:30793:1060359 */ if (!(t10986==EOF_OBJECT_TYPE)) goto l3690; /* x221538 */ /* x221537 */ /* x221536 stalin.sc:30794:1060382 */ /* x221535 stalin.sc:30794:1060394 */ t10988 = "EOF while reading binary number"; /* x221534 stalin.sc:30794:1060383 */ t10987 = a32580; f19123(t10987, t10988); goto l3691; l3690: /* x221540 stalin.sc:30793:1060352 */ /* x221539 stalin.sc:30793:1060352 */ l3691: /* x221530 */ /* x221529 stalin.sc:30795:1060436 */ /* x221406 stalin.sc:30796:1060450 */ /* x221405 stalin.sc:30796:1060461 */ t10927 = '0'; /* x221404 stalin.sc:30796:1060458 */ t10926 = a32650; /* x221403 stalin.sc:30796:1060451 */ t10928.tag = t10926; t10929 = t10927; if (f27342(t10928, t10929)==FALSE_TYPE) goto l3660; /* x221411 */ /* x221410 */ /* x221409 stalin.sc:30796:1060466 */ /* x221408 stalin.sc:30796:1060493 */ t10984 = 0; /* x221407 stalin.sc:30796:1060467 */ t10985 = f18966(t10984); t10206.tag = FIXNUM_TYPE; t10206.value.fixnum_type = t10985; goto l3661; l3660: /* x221528 */ /* x221415 stalin.sc:30797:1060505 */ /* x221414 stalin.sc:30797:1060516 */ t10931 = '1'; /* x221413 stalin.sc:30797:1060513 */ t10930 = a32650; /* x221412 stalin.sc:30797:1060506 */ t10932.tag = t10930; t10933 = t10931; if (f27342(t10932, t10933)==FALSE_TYPE) goto l3663; /* x221420 */ /* x221419 */ /* x221418 stalin.sc:30797:1060521 */ /* x221417 stalin.sc:30797:1060548 */ t10982 = 1; /* x221416 stalin.sc:30797:1060522 */ t10983 = f18966(t10982); t10206.tag = FIXNUM_TYPE; t10206.value.fixnum_type = t10983; goto l3664; l3663: /* x221527 */ /* x221424 stalin.sc:30798:1060560 */ /* x221423 stalin.sc:30798:1060571 */ t10935 = '+'; /* x221422 stalin.sc:30798:1060568 */ t10934 = a32650; /* x221421 stalin.sc:30798:1060561 */ t10936.tag = t10934; t10937 = t10935; if (f27342(t10936, t10937)==FALSE_TYPE) goto l3666; /* x221468 */ /* x221467 */ /* x221466 stalin.sc:30799:1060584 */ /* x221465 stalin.sc:30799:1060594 */ /* x221464 stalin.sc:30799:1060595 */ t10981 = a32578; t10963 = f19127(t10981); /* x221463 */ a32652 = t10963; /* x221462 */ /* x221461 stalin.sc:30800:1060616 */ /* x221453 stalin.sc:30800:1060622 */ /* x221452 stalin.sc:30800:1060635 */ t10978 = a32652; /* x267868 stalin.sc:30800:1060623 */ if (!(t10978==EOF_OBJECT_TYPE)) goto l3687; /* x221458 */ /* x221457 */ /* x221456 stalin.sc:30801:1060642 */ /* x221455 stalin.sc:30801:1060654 */ t10980 = "EOF while reading binary number"; /* x221454 stalin.sc:30801:1060643 */ t10979 = a32580; f19123(t10979, t10980); goto l3688; l3687: /* x221460 stalin.sc:30800:1060616 */ /* x221459 stalin.sc:30800:1060616 */ l3688: /* x221450 */ /* x221449 stalin.sc:30802:1060699 */ /* x221428 stalin.sc:30803:1060709 */ /* x221427 stalin.sc:30803:1060720 */ t10965 = '0'; /* x221426 stalin.sc:30803:1060717 */ t10964 = a32652; /* x221425 stalin.sc:30803:1060710 */ t10966.tag = t10964; t10967 = t10965; if (f27342(t10966, t10967)==FALSE_TYPE) goto l3681; /* x221433 */ /* x221432 */ /* x221431 stalin.sc:30803:1060725 */ /* x221430 stalin.sc:30803:1060752 */ t10976 = 0; /* x221429 stalin.sc:30803:1060726 */ t10977 = f18966(t10976); t10206.tag = FIXNUM_TYPE; t10206.value.fixnum_type = t10977; goto l3682; l3681: /* x221448 */ /* x221437 stalin.sc:30804:1060760 */ /* x221436 stalin.sc:30804:1060771 */ t10969 = '1'; /* x221435 stalin.sc:30804:1060768 */ t10968 = a32652; /* x221434 stalin.sc:30804:1060761 */ t10970.tag = t10968; t10971 = t10969; if (f27342(t10970, t10971)==FALSE_TYPE) goto l3684; /* x221442 */ /* x221441 */ /* x221440 stalin.sc:30804:1060776 */ /* x221439 stalin.sc:30804:1060803 */ t10974 = 1; /* x221438 stalin.sc:30804:1060777 */ t10975 = f18966(t10974); t10206.tag = FIXNUM_TYPE; t10206.value.fixnum_type = t10975; goto l3685; l3684: /* x221447 */ /* x221446 */ /* x221445 stalin.sc:30805:1060816 */ /* x221444 stalin.sc:30805:1060828 */ t10973 = "Unfinished binary number"; /* x221443 stalin.sc:30805:1060817 */ t10972 = a32580; f19123(t10972, t10973); l3685: l3682: goto l3667; l3666: /* x221526 */ /* x221472 stalin.sc:30806:1060868 */ /* x221471 stalin.sc:30806:1060879 */ t10939 = '-'; /* x221470 stalin.sc:30806:1060876 */ t10938 = a32650; /* x221469 stalin.sc:30806:1060869 */ t10940.tag = t10938; t10941 = t10939; if (f27342(t10940, t10941)==FALSE_TYPE) goto l3669; /* x221520 */ /* x221519 */ /* x221518 stalin.sc:30807:1060892 */ /* x221517 stalin.sc:30807:1060902 */ /* x221516 stalin.sc:30807:1060903 */ t10962 = a32578; t10944 = f19127(t10962); /* x221515 */ a32654 = t10944; /* x221514 */ /* x221513 stalin.sc:30808:1060924 */ /* x221505 stalin.sc:30808:1060930 */ /* x221504 stalin.sc:30808:1060943 */ t10959 = a32654; /* x267865 stalin.sc:30808:1060931 */ if (!(t10959==EOF_OBJECT_TYPE)) goto l3678; /* x221510 */ /* x221509 */ /* x221508 stalin.sc:30809:1060950 */ /* x221507 stalin.sc:30809:1060962 */ t10961 = "EOF while reading binary number"; /* x221506 stalin.sc:30809:1060951 */ t10960 = a32580; f19123(t10960, t10961); goto l3679; l3678: /* x221512 stalin.sc:30808:1060924 */ /* x221511 stalin.sc:30808:1060924 */ l3679: /* x221502 */ /* x221501 stalin.sc:30810:1061007 */ /* x221476 stalin.sc:30811:1061017 */ /* x221475 stalin.sc:30811:1061028 */ t10946 = '0'; /* x221474 stalin.sc:30811:1061025 */ t10945 = a32654; /* x221473 stalin.sc:30811:1061018 */ t10947.tag = t10945; t10948 = t10946; if (f27342(t10947, t10948)==FALSE_TYPE) goto l3672; /* x221483 */ /* x221482 */ /* x221481 stalin.sc:30811:1061033 */ /* x221480 stalin.sc:30811:1061036 */ /* x221479 stalin.sc:30811:1061063 */ t10958 = 0; /* x221478 stalin.sc:30811:1061037 */ t10957 = f18966(t10958); /* x267867 stalin.sc:30811:1061034 */ t10206.tag = FIXNUM_TYPE; t10206.value.fixnum_type = -t10957; goto l3673; l3672: /* x221500 */ /* x221487 stalin.sc:30812:1061072 */ /* x221486 stalin.sc:30812:1061083 */ t10950 = '1'; /* x221485 stalin.sc:30812:1061080 */ t10949 = a32654; /* x221484 stalin.sc:30812:1061073 */ t10951.tag = t10949; t10952 = t10950; if (f27342(t10951, t10952)==FALSE_TYPE) goto l3675; /* x221494 */ /* x221493 */ /* x221492 stalin.sc:30812:1061088 */ /* x221491 stalin.sc:30812:1061091 */ /* x221490 stalin.sc:30812:1061118 */ t10956 = 1; /* x221489 stalin.sc:30812:1061092 */ t10955 = f18966(t10956); /* x267866 stalin.sc:30812:1061089 */ t10206.tag = FIXNUM_TYPE; t10206.value.fixnum_type = -t10955; goto l3676; l3675: /* x221499 */ /* x221498 */ /* x221497 stalin.sc:30813:1061132 */ /* x221496 stalin.sc:30813:1061144 */ t10954 = "Unfinished binary number"; /* x221495 stalin.sc:30813:1061133 */ t10953 = a32580; f19123(t10953, t10954); l3676: l3673: goto l3670; l3669: /* x221525 */ /* x221524 */ /* x221523 stalin.sc:30814:1061189 */ /* x221522 stalin.sc:30814:1061201 */ t10943 = "Unfinished binary number"; /* x221521 stalin.sc:30814:1061190 */ t10942 = a32580; f19123(t10942, t10943); l3670: l3667: l3664: l3661: goto l3494; l3493: /* x222397 */ /* x221561 stalin.sc:30815:1061238 */ /* x221560 stalin.sc:30815:1061242 */ /* x221559 stalin.sc:30815:1061253 */ t10504 = 'o'; /* x221558 stalin.sc:30815:1061250 */ t10503 = a32645; /* x221557 stalin.sc:30815:1061243 */ t10505.tag = t10503; t10506 = t10504; if (!(f27342(t10505, t10506)==FALSE_TYPE)) goto l3496; /* x221554 */ /* x221553 stalin.sc:30815:1061269 */ t10508 = 'O'; /* x221552 stalin.sc:30815:1061266 */ t10507 = a32645; /* x221551 stalin.sc:30815:1061259 */ t10509.tag = t10507; t10510 = t10508; if (f27342(t10509, t10510)==FALSE_TYPE) goto l3497; l3496: /* x221714 */ /* x221713 */ /* x221712 stalin.sc:30816:1061280 */ /* x221711 stalin.sc:30816:1061290 */ /* x221710 stalin.sc:30816:1061291 */ t10924 = a32578; t10854 = f19127(t10924); /* x221709 */ a32657 = t10854; /* x221708 */ /* x221707 stalin.sc:30817:1061309 */ /* x221699 stalin.sc:30817:1061315 */ /* x221698 stalin.sc:30817:1061328 */ t10921 = a32657; /* x267851 stalin.sc:30817:1061316 */ if (!(t10921==EOF_OBJECT_TYPE)) goto l3657; /* x221704 */ /* x221703 */ /* x221702 stalin.sc:30818:1061339 */ /* x221701 stalin.sc:30818:1061351 */ t10923 = "EOF while reading octal number"; /* x221700 stalin.sc:30818:1061340 */ t10922 = a32580; f19123(t10922, t10923); goto l3658; l3657: /* x221706 stalin.sc:30817:1061309 */ /* x221705 stalin.sc:30817:1061309 */ l3658: /* x221696 */ /* x221695 stalin.sc:30819:1061392 */ /* x221571 stalin.sc:30819:1061399 */ /* x221565 stalin.sc:30819:1061404 */ /* x221564 stalin.sc:30819:1061416 */ t10856 = '0'; /* x221563 stalin.sc:30819:1061413 */ t10855 = a32657; /* x221562 stalin.sc:30819:1061405 */ t10857 = t10855; t10858 = t10856; if (f27366(t10857, t10858)==FALSE_TYPE) goto l3633; /* x221569 */ /* x221568 stalin.sc:30819:1061433 */ t10860 = '7'; /* x221567 stalin.sc:30819:1061430 */ t10859 = a32657; /* x221566 stalin.sc:30819:1061422 */ t10861 = t10859; t10862 = t10860; if (f27360(t10861, t10862)==FALSE_TYPE) goto l3633; /* x221583 */ /* x221582 */ /* x221581 stalin.sc:30820:1061445 */ /* x221580 stalin.sc:30821:1061478 */ /* x221576 stalin.sc:30821:1061481 */ /* x221575 stalin.sc:30821:1061496 */ t10919 = a32657; /* x267862 stalin.sc:30821:1061482 */ if (!(t10919>2))); /* x221579 stalin.sc:30821:1061500 */ /* x221578 stalin.sc:30821:1061515 */ t10920 = '0'; /* x267861 stalin.sc:30821:1061501 */ t10918 = (int)((unsigned char)t10920); /* x267863 stalin.sc:30821:1061479 */ t10915 = t10917-t10918; /* x221572 stalin.sc:30820:1061446 */ t10916 = f18973(t10915); t10206.tag = FIXNUM_TYPE; t10206.value.fixnum_type = t10916; goto l3634; l3633: /* x221694 */ /* x221587 stalin.sc:30822:1061529 */ /* x221586 stalin.sc:30822:1061540 */ t10864 = '+'; /* x221585 stalin.sc:30822:1061537 */ t10863 = a32657; /* x221584 stalin.sc:30822:1061530 */ t10865.tag = t10863; t10866 = t10864; if (f27342(t10865, t10866)==FALSE_TYPE) goto l3637; /* x221634 */ /* x221633 */ /* x221632 stalin.sc:30823:1061551 */ /* x221631 stalin.sc:30823:1061561 */ /* x221630 stalin.sc:30823:1061562 */ t10914 = a32578; t10894 = f19127(t10914); /* x221629 */ a32659 = t10894; /* x221628 */ /* x221609 stalin.sc:30824:1061581 */ /* x221601 stalin.sc:30824:1061587 */ /* x221600 stalin.sc:30824:1061600 */ t10901 = a32659; /* x267857 stalin.sc:30824:1061588 */ if (!(t10901==EOF_OBJECT_TYPE)) goto l3650; /* x221606 */ /* x221605 */ /* x221604 stalin.sc:30825:1061612 */ /* x221603 stalin.sc:30825:1061624 */ t10903 = "EOF while reading octal number"; /* x221602 stalin.sc:30825:1061613 */ t10902 = a32580; f19123(t10902, t10903); goto l3651; l3650: /* x221608 stalin.sc:30824:1061581 */ /* x221607 stalin.sc:30824:1061581 */ l3651: /* x221627 stalin.sc:30826:1061666 */ /* x221619 stalin.sc:30826:1061674 */ /* x221613 stalin.sc:30826:1061679 */ /* x221612 stalin.sc:30826:1061691 */ t10905 = '0'; /* x221611 stalin.sc:30826:1061688 */ t10904 = a32659; /* x221610 stalin.sc:30826:1061680 */ t10906 = t10904; t10907 = t10905; if (f27366(t10906, t10907)==FALSE_TYPE) goto l3653; /* x221617 */ /* x221616 stalin.sc:30826:1061708 */ t10909 = '7'; /* x221615 stalin.sc:30826:1061705 */ t10908 = a32659; /* x221614 stalin.sc:30826:1061697 */ t10910 = t10908; t10911 = t10909; if (f27360(t10910, t10911)==FALSE_TYPE) goto l3653; /* x221621 */ /* x221620 */ goto l3654; l3653: /* x221626 */ /* x221625 */ /* x221624 stalin.sc:30827:1061722 */ /* x221623 stalin.sc:30827:1061734 */ t10913 = "Unfinished octal number"; /* x221622 stalin.sc:30827:1061723 */ t10912 = a32580; f19123(t10912, t10913); l3654: /* x221598 */ /* x221597 stalin.sc:30828:1061769 */ /* x221596 stalin.sc:30829:1061803 */ /* x221592 stalin.sc:30829:1061806 */ /* x221591 stalin.sc:30829:1061821 */ t10899 = a32659; /* x267859 stalin.sc:30829:1061807 */ if (!(t10899>2))); /* x221595 stalin.sc:30829:1061825 */ /* x221594 stalin.sc:30829:1061840 */ t10900 = '0'; /* x267858 stalin.sc:30829:1061826 */ t10898 = (int)((unsigned char)t10900); /* x267860 stalin.sc:30829:1061804 */ t10895 = t10897-t10898; /* x221588 stalin.sc:30828:1061770 */ t10896 = f18973(t10895); t10206.tag = FIXNUM_TYPE; t10206.value.fixnum_type = t10896; goto l3638; l3637: /* x221693 */ /* x221638 stalin.sc:30830:1061855 */ /* x221637 stalin.sc:30830:1061866 */ t10868 = '-'; /* x221636 stalin.sc:30830:1061863 */ t10867 = a32657; /* x221635 stalin.sc:30830:1061856 */ t10869.tag = t10867; t10870 = t10868; if (f27342(t10869, t10870)==FALSE_TYPE) goto l3640; /* x221687 */ /* x221686 */ /* x221685 stalin.sc:30831:1061877 */ /* x221684 stalin.sc:30831:1061887 */ /* x221683 stalin.sc:30831:1061888 */ t10893 = a32578; t10873 = f19127(t10893); /* x221682 */ a32662 = t10873; /* x221681 */ /* x221662 stalin.sc:30832:1061907 */ /* x221654 stalin.sc:30832:1061913 */ /* x221653 stalin.sc:30832:1061926 */ t10880 = a32662; /* x267852 stalin.sc:30832:1061914 */ if (!(t10880==EOF_OBJECT_TYPE)) goto l3643; /* x221659 */ /* x221658 */ /* x221657 stalin.sc:30833:1061938 */ /* x221656 stalin.sc:30833:1061950 */ t10882 = "EOF while reading octal number"; /* x221655 stalin.sc:30833:1061939 */ t10881 = a32580; f19123(t10881, t10882); goto l3644; l3643: /* x221661 stalin.sc:30832:1061907 */ /* x221660 stalin.sc:30832:1061907 */ l3644: /* x221680 stalin.sc:30834:1061992 */ /* x221672 stalin.sc:30834:1062000 */ /* x221666 stalin.sc:30834:1062005 */ /* x221665 stalin.sc:30834:1062017 */ t10884 = '0'; /* x221664 stalin.sc:30834:1062014 */ t10883 = a32662; /* x221663 stalin.sc:30834:1062006 */ t10885 = t10883; t10886 = t10884; if (f27366(t10885, t10886)==FALSE_TYPE) goto l3646; /* x221670 */ /* x221669 stalin.sc:30834:1062034 */ t10888 = '7'; /* x221668 stalin.sc:30834:1062031 */ t10887 = a32662; /* x221667 stalin.sc:30834:1062023 */ t10889 = t10887; t10890 = t10888; if (f27360(t10889, t10890)==FALSE_TYPE) goto l3646; /* x221674 */ /* x221673 */ goto l3647; l3646: /* x221679 */ /* x221678 */ /* x221677 stalin.sc:30835:1062048 */ /* x221676 stalin.sc:30835:1062060 */ t10892 = "Unfinished octal number"; /* x221675 stalin.sc:30835:1062049 */ t10891 = a32580; f19123(t10891, t10892); l3647: /* x221651 */ /* x221650 stalin.sc:30836:1062095 */ /* x221649 stalin.sc:30836:1062098 */ /* x221648 stalin.sc:30837:1062128 */ /* x221644 stalin.sc:30837:1062131 */ /* x221643 stalin.sc:30837:1062146 */ t10878 = a32662; /* x267854 stalin.sc:30837:1062132 */ if (!(t10878>2))); /* x221647 stalin.sc:30837:1062150 */ /* x221646 stalin.sc:30837:1062165 */ t10879 = '0'; /* x267853 stalin.sc:30837:1062151 */ t10877 = (int)((unsigned char)t10879); /* x267855 stalin.sc:30837:1062129 */ t10875 = t10876-t10877; /* x221640 stalin.sc:30836:1062099 */ t10874 = f18973(t10875); /* x267856 stalin.sc:30836:1062096 */ t10206.tag = FIXNUM_TYPE; t10206.value.fixnum_type = -t10874; goto l3641; l3640: /* x221692 */ /* x221691 */ /* x221690 stalin.sc:30838:1062186 */ /* x221689 stalin.sc:30838:1062198 */ t10872 = "Unfinished octal number"; /* x221688 stalin.sc:30838:1062187 */ t10871 = a32580; f19123(t10871, t10872); l3641: l3638: l3634: goto l3498; l3497: /* x222396 */ /* x221727 stalin.sc:30839:1062234 */ /* x221726 stalin.sc:30839:1062238 */ /* x221725 stalin.sc:30839:1062249 */ t10512 = 'd'; /* x221724 stalin.sc:30839:1062246 */ t10511 = a32645; /* x221723 stalin.sc:30839:1062239 */ t10513.tag = t10511; t10514 = t10512; if (!(f27342(t10513, t10514)==FALSE_TYPE)) goto l3500; /* x221720 */ /* x221719 stalin.sc:30839:1062265 */ t10516 = 'D'; /* x221718 stalin.sc:30839:1062262 */ t10515 = a32645; /* x221717 stalin.sc:30839:1062255 */ t10517.tag = t10515; t10518 = t10516; if (f27342(t10517, t10518)==FALSE_TYPE) goto l3501; l3500: /* x222008 */ /* x222007 */ /* x222006 stalin.sc:30840:1062276 */ /* x222005 stalin.sc:30840:1062286 */ /* x222004 stalin.sc:30840:1062287 */ t10853 = a32578; t10735 = f19127(t10853); /* x222003 */ a32666 = t10735; /* x222002 */ /* x222001 stalin.sc:30841:1062305 */ /* x221993 stalin.sc:30841:1062311 */ /* x221992 stalin.sc:30841:1062324 */ t10850 = a32666; /* x267822 stalin.sc:30841:1062312 */ if (!(t10850==EOF_OBJECT_TYPE)) goto l3630; /* x221998 */ /* x221997 */ /* x221996 stalin.sc:30842:1062335 */ /* x221995 stalin.sc:30842:1062347 */ t10852 = "EOF while reading decimal number"; /* x221994 stalin.sc:30842:1062336 */ t10851 = a32580; f19123(t10851, t10852); goto l3631; l3630: /* x222000 stalin.sc:30841:1062305 */ /* x221999 stalin.sc:30841:1062305 */ l3631: /* x221990 */ /* x221989 stalin.sc:30843:1062390 */ /* x221731 stalin.sc:30844:1062404 */ /* x221730 stalin.sc:30844:1062415 */ t10737 = '+'; /* x221729 stalin.sc:30844:1062412 */ t10736 = a32666; /* x221728 stalin.sc:30844:1062405 */ t10738.tag = t10736; t10739 = t10737; if (f27342(t10738, t10739)==FALSE_TYPE) goto l3582; /* x221820 */ /* x221819 */ /* x221818 stalin.sc:30845:1062428 */ /* x221817 stalin.sc:30845:1062438 */ /* x221816 stalin.sc:30845:1062439 */ t10849 = a32578; t10813 = f19127(t10849); /* x221815 */ a32668 = t10813; /* x221814 */ /* x221813 stalin.sc:30846:1062460 */ /* x221805 stalin.sc:30846:1062466 */ /* x221804 stalin.sc:30846:1062479 */ t10846 = a32668; /* x267842 stalin.sc:30846:1062467 */ if (!(t10846==EOF_OBJECT_TYPE)) goto l3627; /* x221810 */ /* x221809 */ /* x221808 stalin.sc:30847:1062486 */ /* x221807 stalin.sc:30847:1062498 */ t10848 = "EOF while reading decimal number"; /* x221806 stalin.sc:30847:1062487 */ t10847 = a32580; f19123(t10847, t10848); goto l3628; l3627: /* x221812 stalin.sc:30846:1062460 */ /* x221811 stalin.sc:30846:1062460 */ l3628: /* x221802 */ /* x221801 stalin.sc:30848:1062544 */ /* x221734 stalin.sc:30849:1062554 */ /* x221733 stalin.sc:30849:1062569 */ t10814 = a32668; /* x221732 stalin.sc:30849:1062555 */ t10815.tag = t10814; if (f27405(t10815)==FALSE_TYPE) goto l3615; /* x221746 */ /* x221745 */ /* x221744 stalin.sc:30850:1062577 */ /* x221743 stalin.sc:30851:1062595 */ /* x221739 stalin.sc:30851:1062598 */ /* x221738 stalin.sc:30851:1062613 */ t10844 = a32668; /* x267849 stalin.sc:30851:1062599 */ if (!(t10844>2))); /* x221742 stalin.sc:30851:1062617 */ /* x221741 stalin.sc:30851:1062632 */ t10845 = '0'; /* x267848 stalin.sc:30851:1062618 */ t10843 = (int)((unsigned char)t10845); /* x267850 stalin.sc:30851:1062596 */ t10840 = t10842-t10843; /* x221735 stalin.sc:30850:1062578 */ t10841 = f19029(t10840); t10206 = *((struct w49 *)(&t10841)); goto l3616; l3615: /* x221800 */ /* x221750 stalin.sc:30852:1062644 */ /* x221749 stalin.sc:30852:1062655 */ t10817 = '.'; /* x221748 stalin.sc:30852:1062652 */ t10816 = a32668; /* x221747 stalin.sc:30852:1062645 */ t10818.tag = t10816; t10819 = t10817; if (f27342(t10818, t10819)==FALSE_TYPE) goto l3618; /* x221794 */ /* x221793 */ /* x221792 stalin.sc:30853:1062664 */ /* x221791 stalin.sc:30853:1062674 */ /* x221790 stalin.sc:30853:1062675 */ t10839 = a32578; t10822 = f19127(t10839); /* x221789 */ a32670 = t10822; /* x221788 */ /* x221776 stalin.sc:30854:1062692 */ /* x221768 stalin.sc:30854:1062698 */ /* x221767 stalin.sc:30854:1062711 */ t10832 = a32670; /* x267843 stalin.sc:30854:1062699 */ if (!(t10832==EOF_OBJECT_TYPE)) goto l3621; /* x221773 */ /* x221772 */ /* x221771 stalin.sc:30855:1062721 */ /* x221770 stalin.sc:30855:1062733 */ t10834 = "EOF while reading decimal number"; /* x221769 stalin.sc:30855:1062722 */ t10833 = a32580; f19123(t10833, t10834); goto l3622; l3621: /* x221775 stalin.sc:30854:1062692 */ /* x221774 stalin.sc:30854:1062692 */ l3622: /* x221787 stalin.sc:30856:1062775 */ /* x221779 stalin.sc:30856:1062783 */ /* x221778 stalin.sc:30856:1062798 */ t10835 = a32670; /* x221777 stalin.sc:30856:1062784 */ t10836.tag = t10835; if (f27405(t10836)==FALSE_TYPE) goto l3624; /* x221781 */ /* x221780 */ goto l3625; l3624: /* x221786 */ /* x221785 */ /* x221784 stalin.sc:30857:1062808 */ /* x221783 stalin.sc:30857:1062820 */ t10838 = "Unfinished decimal number"; /* x221782 stalin.sc:30857:1062809 */ t10837 = a32580; f19123(t10837, t10838); l3625: /* x221765 */ /* x221764 stalin.sc:30858:1062855 */ /* x221762 stalin.sc:30859:1062882 */ /* x221760 stalin.sc:30859:1062885 */ /* x221756 stalin.sc:30859:1062888 */ /* x221755 stalin.sc:30859:1062903 */ t10830 = a32670; /* x267845 stalin.sc:30859:1062889 */ if (!(t10830>2))); /* x221759 stalin.sc:30859:1062907 */ /* x221758 stalin.sc:30859:1062922 */ t10831 = '0'; /* x267844 stalin.sc:30859:1062908 */ t10829 = (int)((unsigned char)t10831); /* x267846 stalin.sc:30859:1062886 */ t10826 = t10828-t10829; /* x221761 stalin.sc:30859:1062928 */ t10827 = 1.0e1; /* x267847 stalin.sc:30859:1062883 */ t10823 = t10826/t10827; /* x221763 stalin.sc:30860:1062940 */ t10824 = 1.0e2; /* x221751 stalin.sc:30858:1062856 */ t10825 = f18993(t10823, t10824); t10206.tag = FLONUM_TYPE; t10206.value.flonum_type = t10825; goto l3619; l3618: /* x221799 */ /* x221798 */ /* x221797 stalin.sc:30861:1062958 */ /* x221796 stalin.sc:30861:1062970 */ t10821 = "Unfinished decimal number"; /* x221795 stalin.sc:30861:1062959 */ t10820 = a32580; f19123(t10820, t10821); l3619: l3616: goto l3583; l3582: /* x221988 */ /* x221824 stalin.sc:30862:1063011 */ /* x221823 stalin.sc:30862:1063022 */ t10741 = '-'; /* x221822 stalin.sc:30862:1063019 */ t10740 = a32666; /* x221821 stalin.sc:30862:1063012 */ t10742.tag = t10740; t10743 = t10741; if (f27342(t10742, t10743)==FALSE_TYPE) goto l3585; /* x221917 */ /* x221916 */ /* x221915 stalin.sc:30863:1063035 */ /* x221914 stalin.sc:30863:1063045 */ /* x221913 stalin.sc:30863:1063046 */ t10812 = a32578; t10776 = f19127(t10812); /* x221912 */ a32673 = t10776; /* x221911 */ /* x221910 stalin.sc:30864:1063067 */ /* x221902 stalin.sc:30864:1063073 */ /* x221901 stalin.sc:30864:1063086 */ t10809 = a32673; /* x267831 stalin.sc:30864:1063074 */ if (!(t10809==EOF_OBJECT_TYPE)) goto l3612; /* x221907 */ /* x221906 */ /* x221905 stalin.sc:30865:1063093 */ /* x221904 stalin.sc:30865:1063105 */ t10811 = "EOF while reading decimal number"; /* x221903 stalin.sc:30865:1063094 */ t10810 = a32580; f19123(t10810, t10811); goto l3613; l3612: /* x221909 stalin.sc:30864:1063067 */ /* x221908 stalin.sc:30864:1063067 */ l3613: /* x221899 */ /* x221898 stalin.sc:30866:1063151 */ /* x221827 stalin.sc:30867:1063161 */ /* x221826 stalin.sc:30867:1063176 */ t10777 = a32673; /* x221825 stalin.sc:30867:1063162 */ t10778.tag = t10777; if (f27405(t10778)==FALSE_TYPE) goto l3600; /* x221841 */ /* x221840 */ /* x221839 stalin.sc:30868:1063184 */ /* x221838 stalin.sc:30868:1063187 */ /* x221837 stalin.sc:30869:1063208 */ /* x221833 stalin.sc:30869:1063211 */ /* x221832 stalin.sc:30869:1063226 */ t10807 = a32673; /* x267839 stalin.sc:30869:1063212 */ if (!(t10807>2))); /* x221836 stalin.sc:30869:1063230 */ /* x221835 stalin.sc:30869:1063245 */ t10808 = '0'; /* x267838 stalin.sc:30869:1063231 */ t10806 = (int)((unsigned char)t10808); /* x267840 stalin.sc:30869:1063209 */ t10804 = t10805-t10806; /* x221829 stalin.sc:30868:1063188 */ t10803 = f19029(t10804); /* x267841 stalin.sc:30868:1063185 */ if ((t10803.tag)==FIXNUM_TYPE) {t10206.tag = FIXNUM_TYPE; t10206.value.fixnum_type = -(t10803.value.fixnum_type);} else {t10206.tag = FLONUM_TYPE; t10206.value.flonum_type = -(t10803.value.flonum_type);} goto l3601; l3600: /* x221897 */ /* x221845 stalin.sc:30870:1063258 */ /* x221844 stalin.sc:30870:1063269 */ t10780 = '.'; /* x221843 stalin.sc:30870:1063266 */ t10779 = a32673; /* x221842 stalin.sc:30870:1063259 */ t10781.tag = t10779; t10782 = t10780; if (f27342(t10781, t10782)==FALSE_TYPE) goto l3603; /* x221891 */ /* x221890 */ /* x221889 stalin.sc:30871:1063278 */ /* x221888 stalin.sc:30871:1063288 */ /* x221887 stalin.sc:30871:1063289 */ t10802 = a32578; t10785 = f19127(t10802); /* x221886 */ a32675 = t10785; /* x221885 */ /* x221873 stalin.sc:30872:1063306 */ /* x221865 stalin.sc:30872:1063312 */ /* x221864 stalin.sc:30872:1063325 */ t10795 = a32675; /* x267832 stalin.sc:30872:1063313 */ if (!(t10795==EOF_OBJECT_TYPE)) goto l3606; /* x221870 */ /* x221869 */ /* x221868 stalin.sc:30873:1063335 */ /* x221867 stalin.sc:30873:1063347 */ t10797 = "EOF while reading decimal number"; /* x221866 stalin.sc:30873:1063336 */ t10796 = a32580; f19123(t10796, t10797); goto l3607; l3606: /* x221872 stalin.sc:30872:1063306 */ /* x221871 stalin.sc:30872:1063306 */ l3607: /* x221884 stalin.sc:30874:1063389 */ /* x221876 stalin.sc:30874:1063397 */ /* x221875 stalin.sc:30874:1063412 */ t10798 = a32675; /* x221874 stalin.sc:30874:1063398 */ t10799.tag = t10798; if (f27405(t10799)==FALSE_TYPE) goto l3609; /* x221878 */ /* x221877 */ goto l3610; l3609: /* x221883 */ /* x221882 */ /* x221881 stalin.sc:30875:1063422 */ /* x221880 stalin.sc:30875:1063434 */ t10801 = "Unfinished decimal number"; /* x221879 stalin.sc:30875:1063423 */ t10800 = a32580; f19123(t10800, t10801); l3610: /* x221862 */ /* x221861 stalin.sc:30876:1063469 */ /* x221860 stalin.sc:30876:1063472 */ /* x221858 stalin.sc:30877:1063502 */ /* x221856 stalin.sc:30877:1063505 */ /* x221852 stalin.sc:30877:1063508 */ /* x221851 stalin.sc:30877:1063523 */ t10793 = a32675; /* x267834 stalin.sc:30877:1063509 */ if (!(t10793>2))); /* x221855 stalin.sc:30877:1063527 */ /* x221854 stalin.sc:30877:1063542 */ t10794 = '0'; /* x267833 stalin.sc:30877:1063528 */ t10792 = (int)((unsigned char)t10794); /* x267835 stalin.sc:30877:1063506 */ t10789 = t10791-t10792; /* x221857 stalin.sc:30878:1063553 */ t10790 = 1.0e1; /* x267836 stalin.sc:30877:1063503 */ t10787 = t10789/t10790; /* x221859 stalin.sc:30879:1063568 */ t10788 = 1.0e2; /* x221847 stalin.sc:30876:1063473 */ t10786 = f18993(t10787, t10788); /* x267837 stalin.sc:30876:1063470 */ t10206.tag = FLONUM_TYPE; t10206.value.flonum_type = -t10786; goto l3604; l3603: /* x221896 */ /* x221895 */ /* x221894 stalin.sc:30880:1063587 */ /* x221893 stalin.sc:30880:1063599 */ t10784 = "Unfinished decimal number"; /* x221892 stalin.sc:30880:1063588 */ t10783 = a32580; f19123(t10783, t10784); l3604: l3601: goto l3586; l3585: /* x221987 */ /* x221921 stalin.sc:30881:1063640 */ /* x221920 stalin.sc:30881:1063651 */ t10745 = '.'; /* x221919 stalin.sc:30881:1063648 */ t10744 = a32666; /* x221918 stalin.sc:30881:1063641 */ t10746.tag = t10744; t10747 = t10745; if (f27342(t10746, t10747)==FALSE_TYPE) goto l3588; /* x221965 */ /* x221964 */ /* x221963 stalin.sc:30882:1063664 */ /* x221962 stalin.sc:30882:1063674 */ /* x221961 stalin.sc:30882:1063675 */ t10775 = a32578; t10758 = f19127(t10775); /* x221960 */ a32678 = t10758; /* x221959 */ /* x221947 stalin.sc:30883:1063696 */ /* x221939 stalin.sc:30883:1063702 */ /* x221938 stalin.sc:30883:1063715 */ t10768 = a32678; /* x267826 stalin.sc:30883:1063703 */ if (!(t10768==EOF_OBJECT_TYPE)) goto l3594; /* x221944 */ /* x221943 */ /* x221942 stalin.sc:30884:1063722 */ /* x221941 stalin.sc:30884:1063734 */ t10770 = "EOF while reading decimal number"; /* x221940 stalin.sc:30884:1063723 */ t10769 = a32580; f19123(t10769, t10770); goto l3595; l3594: /* x221946 stalin.sc:30883:1063696 */ /* x221945 stalin.sc:30883:1063696 */ l3595: /* x221958 stalin.sc:30885:1063780 */ /* x221950 stalin.sc:30885:1063788 */ /* x221949 stalin.sc:30885:1063803 */ t10771 = a32678; /* x221948 stalin.sc:30885:1063789 */ t10772.tag = t10771; if (f27405(t10772)==FALSE_TYPE) goto l3597; /* x221952 */ /* x221951 */ goto l3598; l3597: /* x221957 */ /* x221956 */ /* x221955 stalin.sc:30886:1063810 */ /* x221954 stalin.sc:30886:1063822 */ t10774 = "Unfinished decimal number"; /* x221953 stalin.sc:30886:1063811 */ t10773 = a32580; f19123(t10773, t10774); l3598: /* x221936 */ /* x221935 stalin.sc:30887:1063861 */ /* x221933 stalin.sc:30888:1063885 */ /* x221931 stalin.sc:30888:1063888 */ /* x221927 stalin.sc:30888:1063891 */ /* x221926 stalin.sc:30888:1063906 */ t10766 = a32678; /* x267828 stalin.sc:30888:1063892 */ if (!(t10766>2))); /* x221930 stalin.sc:30888:1063910 */ /* x221929 stalin.sc:30888:1063925 */ t10767 = '0'; /* x267827 stalin.sc:30888:1063911 */ t10765 = (int)((unsigned char)t10767); /* x267829 stalin.sc:30888:1063889 */ t10762 = t10764-t10765; /* x221932 stalin.sc:30888:1063931 */ t10763 = 1.0e1; /* x267830 stalin.sc:30888:1063886 */ t10759 = t10762/t10763; /* x221934 stalin.sc:30889:1063940 */ t10760 = 1.0e2; /* x221922 stalin.sc:30887:1063862 */ t10761 = f18993(t10759, t10760); t10206.tag = FLONUM_TYPE; t10206.value.flonum_type = t10761; goto l3589; l3588: /* x221986 */ /* x221968 stalin.sc:30890:1063957 */ /* x221967 stalin.sc:30890:1063972 */ t10748 = a32666; /* x221966 stalin.sc:30890:1063958 */ t10749.tag = t10748; if (f27405(t10749)==FALSE_TYPE) goto l3591; /* x221980 */ /* x221979 */ /* x221978 stalin.sc:30891:1063984 */ /* x221977 stalin.sc:30891:1063997 */ /* x221973 stalin.sc:30891:1064000 */ /* x221972 stalin.sc:30891:1064015 */ t10756 = a32666; /* x267824 stalin.sc:30891:1064001 */ if (!(t10756>2))); /* x221976 stalin.sc:30891:1064019 */ /* x221975 stalin.sc:30891:1064034 */ t10757 = '0'; /* x267823 stalin.sc:30891:1064020 */ t10755 = (int)((unsigned char)t10757); /* x267825 stalin.sc:30891:1063998 */ t10752 = t10754-t10755; /* x221969 stalin.sc:30891:1063985 */ t10753 = f19029(t10752); t10206 = *((struct w49 *)(&t10753)); goto l3592; l3591: /* x221985 */ /* x221984 */ /* x221983 stalin.sc:30892:1064055 */ /* x221982 stalin.sc:30892:1064067 */ t10751 = "Unfinished decimal number"; /* x221981 stalin.sc:30892:1064056 */ t10750 = a32580; f19123(t10750, t10751); l3592: l3589: l3586: l3583: goto l3502; l3501: /* x222395 */ /* x222021 stalin.sc:30893:1064105 */ /* x222020 stalin.sc:30893:1064109 */ /* x222019 stalin.sc:30893:1064120 */ t10520 = 'x'; /* x222018 stalin.sc:30893:1064117 */ t10519 = a32645; /* x222017 stalin.sc:30893:1064110 */ t10521.tag = t10519; t10522 = t10520; if (!(f27342(t10521, t10522)==FALSE_TYPE)) goto l3504; /* x222014 */ /* x222013 stalin.sc:30893:1064136 */ t10524 = 'X'; /* x222012 stalin.sc:30893:1064133 */ t10523 = a32645; /* x222011 stalin.sc:30893:1064126 */ t10525.tag = t10523; t10526 = t10524; if (f27342(t10525, t10526)==FALSE_TYPE) goto l3505; l3504: /* x222313 */ /* x222312 */ /* x222311 stalin.sc:30894:1064147 */ /* x222310 stalin.sc:30894:1064157 */ /* x222309 stalin.sc:30894:1064158 */ t10734 = a32578; t10586 = f19127(t10734); /* x222308 */ a32682 = t10586; /* x222307 */ /* x222306 stalin.sc:30895:1064176 */ /* x222298 stalin.sc:30895:1064182 */ /* x222297 stalin.sc:30895:1064195 */ t10731 = a32682; /* x267783 stalin.sc:30895:1064183 */ if (!(t10731==EOF_OBJECT_TYPE)) goto l3579; /* x222303 */ /* x222302 */ /* x222301 stalin.sc:30896:1064206 */ /* x222300 stalin.sc:30896:1064218 */ t10733 = "EOF while reading hexadecimal number"; /* x222299 stalin.sc:30896:1064207 */ t10732 = a32580; f19123(t10732, t10733); goto l3580; l3579: /* x222305 stalin.sc:30895:1064176 */ /* x222304 stalin.sc:30895:1064176 */ l3580: /* x222295 */ /* x222294 stalin.sc:30897:1064265 */ /* x222024 stalin.sc:30898:1064279 */ /* x222023 stalin.sc:30898:1064294 */ t10587 = a32682; /* x222022 stalin.sc:30898:1064280 */ t10588.tag = t10587; if (f27405(t10588)==FALSE_TYPE) goto l3534; /* x222036 */ /* x222035 */ /* x222034 stalin.sc:30899:1064306 */ /* x222033 stalin.sc:30900:1064347 */ /* x222029 stalin.sc:30900:1064350 */ /* x222028 stalin.sc:30900:1064365 */ t10729 = a32682; /* x267820 stalin.sc:30900:1064351 */ if (!(t10729>2))); /* x222032 stalin.sc:30900:1064369 */ /* x222031 stalin.sc:30900:1064384 */ t10730 = '0'; /* x267819 stalin.sc:30900:1064370 */ t10728 = (int)((unsigned char)t10730); /* x267821 stalin.sc:30900:1064348 */ t10725 = t10727-t10728; /* x222025 stalin.sc:30899:1064307 */ t10726 = f18985(t10725); t10206.tag = FIXNUM_TYPE; t10206.value.fixnum_type = t10726; goto l3535; l3534: /* x222293 */ /* x222046 stalin.sc:30901:1064400 */ /* x222040 stalin.sc:30901:1064405 */ /* x222039 stalin.sc:30901:1064417 */ t10590 = 'a'; /* x222038 stalin.sc:30901:1064414 */ t10589 = a32682; /* x222037 stalin.sc:30901:1064406 */ t10591 = t10589; t10592 = t10590; if (f27366(t10591, t10592)==FALSE_TYPE) goto l3537; /* x222044 */ /* x222043 stalin.sc:30901:1064434 */ t10594 = 'f'; /* x222042 stalin.sc:30901:1064431 */ t10593 = a32682; /* x222041 stalin.sc:30901:1064423 */ t10595 = t10593; t10596 = t10594; if (f27360(t10595, t10596)==FALSE_TYPE) goto l3537; /* x222061 */ /* x222060 */ /* x222059 stalin.sc:30902:1064448 */ /* x222058 stalin.sc:30903:1064489 */ /* x222056 stalin.sc:30903:1064492 */ /* x222052 stalin.sc:30903:1064495 */ /* x222051 stalin.sc:30903:1064510 */ t10723 = a32682; /* x267816 stalin.sc:30903:1064496 */ if (!(t10723>2))); /* x222055 stalin.sc:30903:1064514 */ /* x222054 stalin.sc:30903:1064529 */ t10724 = 'a'; /* x267815 stalin.sc:30903:1064515 */ t10722 = (int)((unsigned char)t10724); /* x267817 stalin.sc:30903:1064493 */ t10719 = t10721-t10722; /* x222057 stalin.sc:30903:1064535 */ t10720 = 10; /* x267818 stalin.sc:30903:1064490 */ t10717 = t10719+t10720; /* x222047 stalin.sc:30902:1064449 */ t10718 = f18985(t10717); t10206.tag = FIXNUM_TYPE; t10206.value.fixnum_type = t10718; goto l3538; l3537: /* x222292 */ /* x222071 stalin.sc:30904:1064549 */ /* x222065 stalin.sc:30904:1064554 */ /* x222064 stalin.sc:30904:1064566 */ t10598 = 'A'; /* x222063 stalin.sc:30904:1064563 */ t10597 = a32682; /* x222062 stalin.sc:30904:1064555 */ t10599 = t10597; t10600 = t10598; if (f27366(t10599, t10600)==FALSE_TYPE) goto l3541; /* x222069 */ /* x222068 stalin.sc:30904:1064583 */ t10602 = 'F'; /* x222067 stalin.sc:30904:1064580 */ t10601 = a32682; /* x222066 stalin.sc:30904:1064572 */ t10603 = t10601; t10604 = t10602; if (f27360(t10603, t10604)==FALSE_TYPE) goto l3541; /* x222086 */ /* x222085 */ /* x222084 stalin.sc:30905:1064597 */ /* x222083 stalin.sc:30906:1064638 */ /* x222081 stalin.sc:30906:1064641 */ /* x222077 stalin.sc:30906:1064644 */ /* x222076 stalin.sc:30906:1064659 */ t10715 = a32682; /* x267812 stalin.sc:30906:1064645 */ if (!(t10715>2))); /* x222080 stalin.sc:30906:1064663 */ /* x222079 stalin.sc:30906:1064678 */ t10716 = 'A'; /* x267811 stalin.sc:30906:1064664 */ t10714 = (int)((unsigned char)t10716); /* x267813 stalin.sc:30906:1064642 */ t10711 = t10713-t10714; /* x222082 stalin.sc:30906:1064684 */ t10712 = 10; /* x267814 stalin.sc:30906:1064639 */ t10709 = t10711+t10712; /* x222072 stalin.sc:30905:1064598 */ t10710 = f18985(t10709); t10206.tag = FIXNUM_TYPE; t10206.value.fixnum_type = t10710; goto l3542; l3541: /* x222291 */ /* x222090 stalin.sc:30907:1064698 */ /* x222089 stalin.sc:30907:1064709 */ t10606 = '+'; /* x222088 stalin.sc:30907:1064706 */ t10605 = a32682; /* x222087 stalin.sc:30907:1064699 */ t10607.tag = t10605; t10608 = t10606; if (f27342(t10607, t10608)==FALSE_TYPE) goto l3545; /* x222182 */ /* x222181 */ /* x222180 stalin.sc:30908:1064722 */ /* x222179 stalin.sc:30908:1064732 */ /* x222178 stalin.sc:30908:1064733 */ t10708 = a32578; t10662 = f19127(t10708); /* x222177 */ a32684 = t10662; /* x222176 */ /* x222175 stalin.sc:30909:1064754 */ /* x222167 stalin.sc:30909:1064760 */ /* x222166 stalin.sc:30909:1064773 */ t10705 = a32684; /* x267799 stalin.sc:30909:1064761 */ if (!(t10705==EOF_OBJECT_TYPE)) goto l3576; /* x222172 */ /* x222171 */ /* x222170 stalin.sc:30910:1064780 */ /* x222169 stalin.sc:30910:1064792 */ t10707 = "EOF while reading hexadecimal number"; /* x222168 stalin.sc:30910:1064781 */ t10706 = a32580; f19123(t10706, t10707); goto l3577; l3576: /* x222174 stalin.sc:30909:1064754 */ /* x222173 stalin.sc:30909:1064754 */ l3577: /* x222164 */ /* x222163 stalin.sc:30911:1064842 */ /* x222093 stalin.sc:30912:1064852 */ /* x222092 stalin.sc:30912:1064867 */ t10663 = a32684; /* x222091 stalin.sc:30912:1064853 */ t10664.tag = t10663; if (f27405(t10664)==FALSE_TYPE) goto l3565; /* x222105 */ /* x222104 */ /* x222103 stalin.sc:30913:1064875 */ /* x222102 stalin.sc:30914:1064912 */ /* x222098 stalin.sc:30914:1064915 */ /* x222097 stalin.sc:30914:1064930 */ t10703 = a32684; /* x267809 stalin.sc:30914:1064916 */ if (!(t10703>2))); /* x222101 stalin.sc:30914:1064934 */ /* x222100 stalin.sc:30914:1064949 */ t10704 = '0'; /* x267808 stalin.sc:30914:1064935 */ t10702 = (int)((unsigned char)t10704); /* x267810 stalin.sc:30914:1064913 */ t10699 = t10701-t10702; /* x222094 stalin.sc:30913:1064876 */ t10700 = f18985(t10699); t10206.tag = FIXNUM_TYPE; t10206.value.fixnum_type = t10700; goto l3566; l3565: /* x222162 */ /* x222115 stalin.sc:30915:1064961 */ /* x222109 stalin.sc:30915:1064966 */ /* x222108 stalin.sc:30915:1064978 */ t10666 = 'a'; /* x222107 stalin.sc:30915:1064975 */ t10665 = a32684; /* x222106 stalin.sc:30915:1064967 */ t10667 = t10665; t10668 = t10666; if (f27366(t10667, t10668)==FALSE_TYPE) goto l3568; /* x222113 */ /* x222112 stalin.sc:30915:1064995 */ t10670 = 'f'; /* x222111 stalin.sc:30915:1064992 */ t10669 = a32684; /* x222110 stalin.sc:30915:1064984 */ t10671 = t10669; t10672 = t10670; if (f27360(t10671, t10672)==FALSE_TYPE) goto l3568; /* x222130 */ /* x222129 */ /* x222128 stalin.sc:30916:1065005 */ /* x222127 stalin.sc:30917:1065042 */ /* x222125 stalin.sc:30917:1065045 */ /* x222121 stalin.sc:30917:1065048 */ /* x222120 stalin.sc:30917:1065063 */ t10697 = a32684; /* x267805 stalin.sc:30917:1065049 */ if (!(t10697>2))); /* x222124 stalin.sc:30917:1065067 */ /* x222123 stalin.sc:30917:1065082 */ t10698 = 'a'; /* x267804 stalin.sc:30917:1065068 */ t10696 = (int)((unsigned char)t10698); /* x267806 stalin.sc:30917:1065046 */ t10693 = t10695-t10696; /* x222126 stalin.sc:30917:1065088 */ t10694 = 10; /* x267807 stalin.sc:30917:1065043 */ t10691 = t10693+t10694; /* x222116 stalin.sc:30916:1065006 */ t10692 = f18985(t10691); t10206.tag = FIXNUM_TYPE; t10206.value.fixnum_type = t10692; goto l3569; l3568: /* x222161 */ /* x222140 stalin.sc:30918:1065098 */ /* x222134 stalin.sc:30918:1065103 */ /* x222133 stalin.sc:30918:1065115 */ t10674 = 'A'; /* x222132 stalin.sc:30918:1065112 */ t10673 = a32684; /* x222131 stalin.sc:30918:1065104 */ t10675 = t10673; t10676 = t10674; if (f27366(t10675, t10676)==FALSE_TYPE) goto l3572; /* x222138 */ /* x222137 stalin.sc:30918:1065132 */ t10678 = 'F'; /* x222136 stalin.sc:30918:1065129 */ t10677 = a32684; /* x222135 stalin.sc:30918:1065121 */ t10679 = t10677; t10680 = t10678; if (f27360(t10679, t10680)==FALSE_TYPE) goto l3572; /* x222155 */ /* x222154 */ /* x222153 stalin.sc:30919:1065142 */ /* x222152 stalin.sc:30920:1065179 */ /* x222150 stalin.sc:30920:1065182 */ /* x222146 stalin.sc:30920:1065185 */ /* x222145 stalin.sc:30920:1065200 */ t10689 = a32684; /* x267801 stalin.sc:30920:1065186 */ if (!(t10689>2))); /* x222149 stalin.sc:30920:1065204 */ /* x222148 stalin.sc:30920:1065219 */ t10690 = 'A'; /* x267800 stalin.sc:30920:1065205 */ t10688 = (int)((unsigned char)t10690); /* x267802 stalin.sc:30920:1065183 */ t10685 = t10687-t10688; /* x222151 stalin.sc:30920:1065225 */ t10686 = 10; /* x267803 stalin.sc:30920:1065180 */ t10683 = t10685+t10686; /* x222141 stalin.sc:30919:1065143 */ t10684 = f18985(t10683); t10206.tag = FIXNUM_TYPE; t10206.value.fixnum_type = t10684; goto l3573; l3572: /* x222160 */ /* x222159 */ /* x222158 stalin.sc:30921:1065240 */ /* x222157 stalin.sc:30921:1065252 */ t10682 = "Unfinished hexadecimal number"; /* x222156 stalin.sc:30921:1065241 */ t10681 = a32580; f19123(t10681, t10682); l3573: l3569: l3566: goto l3546; l3545: /* x222290 */ /* x222186 stalin.sc:30922:1065297 */ /* x222185 stalin.sc:30922:1065308 */ t10610 = '-'; /* x222184 stalin.sc:30922:1065305 */ t10609 = a32682; /* x222183 stalin.sc:30922:1065298 */ t10611.tag = t10609; t10612 = t10610; if (f27342(t10611, t10612)==FALSE_TYPE) goto l3548; /* x222284 */ /* x222283 */ /* x222282 stalin.sc:30923:1065321 */ /* x222281 stalin.sc:30923:1065331 */ /* x222280 stalin.sc:30923:1065332 */ t10661 = a32578; t10615 = f19127(t10661); /* x222279 */ a32686 = t10615; /* x222278 */ /* x222277 stalin.sc:30924:1065353 */ /* x222269 stalin.sc:30924:1065359 */ /* x222268 stalin.sc:30924:1065372 */ t10658 = a32686; /* x267784 stalin.sc:30924:1065360 */ if (!(t10658==EOF_OBJECT_TYPE)) goto l3562; /* x222274 */ /* x222273 */ /* x222272 stalin.sc:30925:1065379 */ /* x222271 stalin.sc:30925:1065391 */ t10660 = "EOF while reading hexadecimal number"; /* x222270 stalin.sc:30925:1065380 */ t10659 = a32580; f19123(t10659, t10660); goto l3563; l3562: /* x222276 stalin.sc:30924:1065353 */ /* x222275 stalin.sc:30924:1065353 */ l3563: /* x222266 */ /* x222265 stalin.sc:30926:1065441 */ /* x222189 stalin.sc:30927:1065451 */ /* x222188 stalin.sc:30927:1065466 */ t10616 = a32686; /* x222187 stalin.sc:30927:1065452 */ t10617.tag = t10616; if (f27405(t10617)==FALSE_TYPE) goto l3551; /* x222203 */ /* x222202 */ /* x222201 stalin.sc:30928:1065474 */ /* x222200 stalin.sc:30928:1065477 */ /* x222199 stalin.sc:30929:1065517 */ /* x222195 stalin.sc:30929:1065520 */ /* x222194 stalin.sc:30929:1065535 */ t10656 = a32686; /* x267796 stalin.sc:30929:1065521 */ if (!(t10656>2))); /* x222198 stalin.sc:30929:1065539 */ /* x222197 stalin.sc:30929:1065554 */ t10657 = '0'; /* x267795 stalin.sc:30929:1065540 */ t10655 = (int)((unsigned char)t10657); /* x267797 stalin.sc:30929:1065518 */ t10653 = t10654-t10655; /* x222191 stalin.sc:30928:1065478 */ t10652 = f18985(t10653); /* x267798 stalin.sc:30928:1065475 */ t10206.tag = FIXNUM_TYPE; t10206.value.fixnum_type = -t10652; goto l3552; l3551: /* x222264 */ /* x222213 stalin.sc:30930:1065567 */ /* x222207 stalin.sc:30930:1065572 */ /* x222206 stalin.sc:30930:1065584 */ t10619 = 'a'; /* x222205 stalin.sc:30930:1065581 */ t10618 = a32686; /* x222204 stalin.sc:30930:1065573 */ t10620 = t10618; t10621 = t10619; if (f27366(t10620, t10621)==FALSE_TYPE) goto l3554; /* x222211 */ /* x222210 stalin.sc:30930:1065601 */ t10623 = 'f'; /* x222209 stalin.sc:30930:1065598 */ t10622 = a32686; /* x222208 stalin.sc:30930:1065590 */ t10624 = t10622; t10625 = t10623; if (f27360(t10624, t10625)==FALSE_TYPE) goto l3554; /* x222230 */ /* x222229 */ /* x222228 stalin.sc:30931:1065611 */ /* x222227 stalin.sc:30931:1065614 */ /* x222226 stalin.sc:30932:1065654 */ /* x222224 stalin.sc:30932:1065657 */ /* x222220 stalin.sc:30932:1065660 */ /* x222219 stalin.sc:30932:1065675 */ t10650 = a32686; /* x267791 stalin.sc:30932:1065661 */ if (!(t10650>2))); /* x222223 stalin.sc:30932:1065679 */ /* x222222 stalin.sc:30932:1065694 */ t10651 = 'a'; /* x267790 stalin.sc:30932:1065680 */ t10649 = (int)((unsigned char)t10651); /* x267792 stalin.sc:30932:1065658 */ t10646 = t10648-t10649; /* x222225 stalin.sc:30933:1065704 */ t10647 = 10; /* x267793 stalin.sc:30932:1065655 */ t10645 = t10646+t10647; /* x222215 stalin.sc:30931:1065615 */ t10644 = f18985(t10645); /* x267794 stalin.sc:30931:1065612 */ t10206.tag = FIXNUM_TYPE; t10206.value.fixnum_type = -t10644; goto l3555; l3554: /* x222263 */ /* x222240 stalin.sc:30934:1065715 */ /* x222234 stalin.sc:30934:1065720 */ /* x222233 stalin.sc:30934:1065732 */ t10627 = 'A'; /* x222232 stalin.sc:30934:1065729 */ t10626 = a32686; /* x222231 stalin.sc:30934:1065721 */ t10628 = t10626; t10629 = t10627; if (f27366(t10628, t10629)==FALSE_TYPE) goto l3558; /* x222238 */ /* x222237 stalin.sc:30934:1065749 */ t10631 = 'F'; /* x222236 stalin.sc:30934:1065746 */ t10630 = a32686; /* x222235 stalin.sc:30934:1065738 */ t10632 = t10630; t10633 = t10631; if (f27360(t10632, t10633)==FALSE_TYPE) goto l3558; /* x222257 */ /* x222256 */ /* x222255 stalin.sc:30935:1065759 */ /* x222254 stalin.sc:30935:1065762 */ /* x222253 stalin.sc:30936:1065802 */ /* x222251 stalin.sc:30936:1065805 */ /* x222247 stalin.sc:30936:1065808 */ /* x222246 stalin.sc:30936:1065823 */ t10642 = a32686; /* x267786 stalin.sc:30936:1065809 */ if (!(t10642>2))); /* x222250 stalin.sc:30936:1065827 */ /* x222249 stalin.sc:30936:1065842 */ t10643 = 'A'; /* x267785 stalin.sc:30936:1065828 */ t10641 = (int)((unsigned char)t10643); /* x267787 stalin.sc:30936:1065806 */ t10638 = t10640-t10641; /* x222252 stalin.sc:30937:1065852 */ t10639 = 10; /* x267788 stalin.sc:30936:1065803 */ t10637 = t10638+t10639; /* x222242 stalin.sc:30935:1065763 */ t10636 = f18985(t10637); /* x267789 stalin.sc:30935:1065760 */ t10206.tag = FIXNUM_TYPE; t10206.value.fixnum_type = -t10636; goto l3559; l3558: /* x222262 */ /* x222261 */ /* x222260 stalin.sc:30938:1065868 */ /* x222259 stalin.sc:30938:1065880 */ t10635 = "Unfinished hexadecimal number"; /* x222258 stalin.sc:30938:1065869 */ t10634 = a32580; f19123(t10634, t10635); l3559: l3555: l3552: goto l3549; l3548: /* x222289 */ /* x222288 */ /* x222287 stalin.sc:30939:1065930 */ /* x222286 stalin.sc:30939:1065942 */ t10614 = "Unfinished hexadecimal number"; /* x222285 stalin.sc:30939:1065931 */ t10613 = a32580; f19123(t10613, t10614); l3549: l3546: l3542: l3538: l3535: goto l3506; l3505: /* x222394 */ /* x222317 stalin.sc:30940:1065984 */ /* x222316 stalin.sc:30940:1065995 */ t10528 = '('; /* x222315 stalin.sc:30940:1065992 */ t10527 = a32645; /* x222314 stalin.sc:30940:1065985 */ t10529.tag = t10527; t10530 = t10528; if (f27342(t10529, t10530)==FALSE_TYPE) goto l3509; /* x222354 */ /* x222353 */ t10564 = p18772; p18895 = t10564; /* x222352 stalin.sc:30941:1066005 */ /* x222351 stalin.sc:30941:1066019 */ /* x222350 */ /* x222349 */ /* x222348 */ /* x222347 */ t10584 = p18895; p18896 = t10584; /* x222346 */ /* x222345 */ /* x222344 */ /* x222319 */ t10585 = p18896; p18897 = t10585; /* x222318 stalin.sc:30941:1066010 */ t10565 = p18897; p18898 = t10565; a32690 = (struct structure_type24753 *)NULL_TYPE; h18898: /* x222343 stalin.sc:30942:1066031 */ /* x222342 stalin.sc:30942:1066040 */ /* x222340 stalin.sc:30942:1066046 */ t10582 = q6; /* x222341 stalin.sc:30942:1066054 */ /* x222339 stalin.sc:30942:1066041 */ t10581 = p18898; t10583 = (struct structure_type24753 *)NULL_TYPE; t10567 = f18699(t10581, t10582, t10583); /* x222338 */ t10566 = p18898; p18899 = t10566; a32691 = t10567; /* x222337 stalin.sc:30944:1066112 */ /* x222325 stalin.sc:30944:1066116 */ /* x222323 stalin.sc:30944:1066121 */ /* x222322 stalin.sc:30944:1066141 */ t10570 = a32691; /* x222321 stalin.sc:30944:1066122 */ a40464 = t10570; /* x294525 */ /* x294524 */ t10571 = a40464; /* x294523 */ if (!((t10571.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 35381]"); structure_ref_error();} t10568 = t10571.value.structure_type27510->s9; /* x222324 stalin.sc:30944:1066144 */ t10569 = p18899->a32558; /* x267782 stalin.sc:30944:1066117 */ if (!(((t10568.tag)==EXTERNAL_SYMBOL_TYPE)&&((t10568.value.external_symbol_type)==t10569))) goto l3531; /* x222330 stalin.sc:30945:1066155 */ /* x222329 stalin.sc:30945:1066169 */ /* x222328 stalin.sc:30945:1066178 */ t10579 = a32690; /* x222327 stalin.sc:30945:1066170 */ /* MOVE: branching squeezed to general */ if (t10579>=((struct structure_type24753 *)VALUE_OFFSET)) {t10580.tag = STRUCTURE_TYPE24753; t10580.value.structure_type24753 = t10579;} else t10580.tag = (unsigned)t10579; t10576 = f26331(t10580); /* x222326 stalin.sc:30945:1066156 */ t10577 = *((struct w49 *)(&t10576)); t10578 = f27650(t10577); t10206.tag = HEADED_VECTOR_TYPE27896; t10206.value.headed_vector_type27896 = t10578; goto l3532; l3531: /* x222336 stalin.sc:30946:1066186 */ /* x222335 stalin.sc:30946:1066192 */ /* x222333 stalin.sc:30946:1066198 */ t10574 = a32691; /* x222334 stalin.sc:30946:1066200 */ t10575 = a32690; /* x267781 stalin.sc:30946:1066193 */ t10573 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t10573==NULL) {backtrace("stalin.sc", 30946, 1066192); out_of_memory_error();} t10573->s0 = t10574; /* MOVE: branching squeezed to general */ if (t10575>=((struct structure_type24753 *)VALUE_OFFSET)) {t10573->s1.tag = STRUCTURE_TYPE24753; t10573->s1.value.structure_type24753 = t10575;} else t10573->s1.tag = (unsigned)t10575; /* x222331 stalin.sc:30946:1066187 */ t10572 = p18899; p18898 = t10572; a32690 = t10573; goto h18898; l3532: goto l3510; l3509: /* x222393 */ /* x222358 stalin.sc:30947:1066213 */ /* x222357 stalin.sc:30947:1066224 */ t10532 = '\\'; /* x222356 stalin.sc:30947:1066221 */ t10531 = a32645; /* x222355 stalin.sc:30947:1066214 */ t10533.tag = t10531; t10534 = t10532; if (f27342(t10533, t10534)==FALSE_TYPE) goto l3512; /* x222387 */ /* x222386 */ /* x222385 stalin.sc:30948:1066234 */ /* x222384 stalin.sc:30948:1066244 */ /* x222383 stalin.sc:30948:1066245 */ t10563 = a32578; t10537 = f19127(t10563); /* x222382 */ a32692 = t10537; /* x222381 */ /* x222380 stalin.sc:30949:1066263 */ /* x222372 stalin.sc:30949:1066269 */ /* x222371 stalin.sc:30949:1066282 */ t10560 = a32692; /* x267780 stalin.sc:30949:1066270 */ if (!(t10560==EOF_OBJECT_TYPE)) goto l3528; /* x222377 */ /* x222376 */ /* x222375 stalin.sc:30950:1066293 */ /* x222374 stalin.sc:30950:1066305 */ t10562 = "EOF while reading character constant"; /* x222373 stalin.sc:30950:1066294 */ t10561 = a32580; f19123(t10561, t10562); goto l3529; l3528: /* x222379 stalin.sc:30949:1066263 */ /* x222378 stalin.sc:30949:1066263 */ l3529: /* x222369 */ /* x222368 stalin.sc:30951:1066352 */ /* x222361 stalin.sc:30951:1066356 */ /* x222360 stalin.sc:30951:1066374 */ t10538 = a32692; /* x222359 stalin.sc:30951:1066357 */ if (f27403(t10538)==FALSE_TYPE) goto l3515; /* x222366 stalin.sc:30952:1066381 */ /* x222365 stalin.sc:30952:1066402 */ /* x222364 stalin.sc:30952:1066408 */ t10559 = a32692; /* x222363 stalin.sc:30952:1066403 */ a35259 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35259==NULL) {backtrace("stalin.sc", 30952, 1066402); out_of_memory_error();} a35259->s0.tag = t10559; a35259->s1.tag = NULL_TYPE; /* x272525 */ t10539 = a35259; /* x222362 stalin.sc:30952:1066382 */ a32798 = t10539; h19105: /* x224117 stalin.sc:30669:1056369 */ /* x224116 stalin.sc:30669:1056378 */ /* x224115 stalin.sc:30669:1056379 */ t10558 = a32578; t10540 = f19127(t10558); /* x224114 */ a32799 = t10540; /* x224113 stalin.sc:30670:1056392 */ /* x224069 stalin.sc:30670:1056399 */ /* x224068 stalin.sc:30670:1056412 */ t10541 = a32799; /* x267647 stalin.sc:30670:1056400 */ if (!(t10541==EOF_OBJECT_TYPE)) goto l3518; /* x224074 */ /* x224073 */ /* x224072 stalin.sc:30670:1056415 */ /* x224071 stalin.sc:30670:1056438 */ t10557 = a32798; /* x224070 stalin.sc:30670:1056416 */ t10206 = f19092(t10557); goto l3519; l3518: /* x224112 */ /* x224077 stalin.sc:30671:1056450 */ /* x224076 stalin.sc:30671:1056468 */ t10542 = (char)(a32799>>2); /* x224075 stalin.sc:30671:1056451 */ t10543 = ((unsigned)((unsigned char)t10542))<<2; if (f27403(t10543)==FALSE_TYPE) goto l3521; /* x224085 */ /* x224084 */ /* x224083 stalin.sc:30671:1056471 */ /* x224082 stalin.sc:30671:1056492 */ /* x224080 stalin.sc:30671:1056498 */ t10555 = (char)(a32799>>2); /* x224081 stalin.sc:30671:1056500 */ t10556 = a32798; /* x267646 stalin.sc:30671:1056493 */ t10554 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t10554==NULL) {backtrace("stalin.sc", 30671, 1056492); out_of_memory_error();} t10554->s0.tag = ((unsigned)((unsigned char)t10555))<<2; t10554->s1.tag = STRUCTURE_TYPE24753; t10554->s1.value.structure_type24753 = t10556; /* x224078 stalin.sc:30671:1056472 */ a32798 = t10554; goto h19105; goto l3522; l3521: /* x224111 */ /* x224110 */ /* x224109 */ /* x224108 stalin.sc:30672:1056518 */ /* x224107 stalin.sc:30672:1056530 */ t10552 = (char)(a32799>>2); /* x224106 stalin.sc:30672:1056519 */ t10551 = a32579; t10553 = ((unsigned)((unsigned char)t10552))<<2; f19125(t10551, t10553); /* x224105 */ /* x224104 stalin.sc:30673:1056539 */ /* x224097 stalin.sc:30673:1056543 */ /* x224090 stalin.sc:30673:1056548 */ /* x224089 stalin.sc:30673:1056553 */ /* x224088 stalin.sc:30673:1056560 */ t10544 = a32798; /* x267644 stalin.sc:30673:1056554 */ /* x224095 */ /* x224094 stalin.sc:30673:1056571 */ /* x224093 stalin.sc:30673:1056577 */ t10546 = a32798; /* x224092 stalin.sc:30673:1056572 */ a35633 = t10546; /* x273889 */ /* x273888 */ t10547 = a35633; /* x273887 */ t10545 = t10547->s1; /* x267643 stalin.sc:30673:1056565 */ if (!((t10545.tag)==NULL_TYPE)) goto l3524; /* x224100 stalin.sc:30674:1056585 */ /* x224099 stalin.sc:30674:1056592 */ t10549 = a32798; /* x224098 stalin.sc:30674:1056586 */ a36210 = t10549; /* x276197 */ /* x276196 */ t10550 = a36210; /* x276195 */ t10206 = t10550->s0; goto l3525; l3524: /* x224103 stalin.sc:30675:1056598 */ /* x224102 stalin.sc:30675:1056621 */ t10548 = a32798; /* x224101 stalin.sc:30675:1056599 */ t10206 = f19092(t10548); l3525: l3522: l3519: goto l3516; l3515: /* x222367 stalin.sc:30953:1066416 */ t10206.tag = a32692; l3516: goto l3513; l3512: /* x222392 */ /* x222391 */ /* x222390 stalin.sc:30954:1066432 */ /* x222389 stalin.sc:30954:1066444 */ t10536 = "Improper character after sharp sign"; /* x222388 stalin.sc:30954:1066433 */ t10535 = a32580; f19123(t10535, t10536); l3513: l3510: l3506: l3502: l3498: l3494: l3490: l3486: goto l3399; l3398: /* x222866 */ /* x222423 stalin.sc:30955:1066496 */ /* x222422 stalin.sc:30955:1066507 */ t10255 = '\"'; /* x222421 stalin.sc:30955:1066504 */ t10254 = (char)(a32610>>2); /* x222420 stalin.sc:30955:1066497 */ t10256.tag = ((unsigned)((unsigned char)t10254))<<2; t10257 = t10255; if (f27342(t10256, t10257)==FALSE_TYPE) goto l3401; /* x222503 */ /* x222502 */ /* x222501 stalin.sc:30957:1066553 */ /* x222500 stalin.sc:30957:1066567 */ /* x222499 */ /* x222498 */ /* x222497 */ /* x222496 */ /* x222495 */ /* x222494 */ /* x222493 */ /* x222425 */ /* x222424 stalin.sc:30957:1066558 */ a32696 = (struct structure_type24753 *)NULL_TYPE; h18912: /* x222492 stalin.sc:30958:1066576 */ /* x222491 stalin.sc:30958:1066585 */ /* x222490 stalin.sc:30958:1066586 */ t10474 = a32578; t10446 = f19127(t10474); /* x222489 */ a32697 = t10446; /* x222488 */ /* x222487 stalin.sc:30959:1066602 */ /* x222479 stalin.sc:30959:1066608 */ /* x222478 stalin.sc:30959:1066621 */ t10471 = a32697; /* x267775 stalin.sc:30959:1066609 */ if (!(t10471==EOF_OBJECT_TYPE)) goto l3482; /* x222484 */ /* x222483 */ /* x222482 stalin.sc:30960:1066629 */ /* x222481 stalin.sc:30960:1066641 */ t10473 = "EOF while reading string"; /* x222480 stalin.sc:30960:1066630 */ t10472 = a32580; f19123(t10472, t10473); goto l3483; l3482: /* x222486 stalin.sc:30959:1066602 */ /* x222485 stalin.sc:30959:1066602 */ l3483: /* x222476 */ /* x222475 stalin.sc:30961:1066674 */ /* x222429 stalin.sc:30961:1066681 */ /* x222428 stalin.sc:30961:1066691 */ t10448 = '\\'; /* x222427 stalin.sc:30961:1066689 */ t10447 = a32697; /* x222426 stalin.sc:30961:1066682 */ t10449.tag = t10447; t10450 = t10448; if (f27342(t10449, t10450)==FALSE_TYPE) goto l3473; /* x222454 */ /* x222453 */ /* x222452 stalin.sc:30962:1066700 */ /* x222451 stalin.sc:30962:1066710 */ /* x222450 stalin.sc:30962:1066711 */ t10470 = a32578; t10463 = f19127(t10470); /* x222449 */ a32699 = t10463; /* x222448 */ /* x222447 stalin.sc:30963:1066728 */ /* x222439 stalin.sc:30963:1066734 */ /* x222438 stalin.sc:30963:1066747 */ t10467 = a32699; /* x267777 stalin.sc:30963:1066735 */ if (!(t10467==EOF_OBJECT_TYPE)) goto l3479; /* x222444 */ /* x222443 */ /* x222442 stalin.sc:30964:1066757 */ /* x222441 stalin.sc:30964:1066769 */ t10469 = "EOF after backslash in string"; /* x222440 stalin.sc:30964:1066758 */ t10468 = a32580; f19123(t10468, t10469); goto l3480; l3479: /* x222446 stalin.sc:30963:1066728 */ /* x222445 stalin.sc:30963:1066728 */ l3480: /* x222436 */ /* x222435 stalin.sc:30965:1066808 */ /* x222434 stalin.sc:30965:1066814 */ /* x222432 stalin.sc:30965:1066820 */ t10465 = a32699; /* x222433 stalin.sc:30965:1066823 */ t10466 = a32696; /* x267778 stalin.sc:30965:1066815 */ t10464 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t10464==NULL) {backtrace("stalin.sc", 30965, 1066814); out_of_memory_error();} t10464->s0.tag = t10465; /* MOVE: branching squeezed to general */ if (t10466>=((struct structure_type24753 *)VALUE_OFFSET)) {t10464->s1.tag = STRUCTURE_TYPE24753; t10464->s1.value.structure_type24753 = t10466;} else t10464->s1.tag = (unsigned)t10466; /* x222430 stalin.sc:30965:1066809 */ a32696 = t10464; goto h18912; goto l3474; l3473: /* x222474 */ /* x222458 stalin.sc:30966:1066833 */ /* x222457 stalin.sc:30966:1066843 */ t10452 = '\"'; /* x222456 stalin.sc:30966:1066841 */ t10451 = a32697; /* x222455 stalin.sc:30966:1066834 */ t10453.tag = t10451; t10454 = t10452; if (f27342(t10453, t10454)==FALSE_TYPE) goto l3476; /* x222465 */ /* x222464 */ /* x222463 stalin.sc:30966:1066848 */ /* x222462 stalin.sc:30966:1066862 */ /* x222461 stalin.sc:30966:1066871 */ t10461 = a32696; /* x222460 stalin.sc:30966:1066863 */ /* MOVE: branching squeezed to general */ if (t10461>=((struct structure_type24753 *)VALUE_OFFSET)) {t10462.tag = STRUCTURE_TYPE24753; t10462.value.structure_type24753 = t10461;} else t10462.tag = (unsigned)t10461; t10458 = f26331(t10462); /* x222459 stalin.sc:30966:1066849 */ t10459 = *((struct w49 *)(&t10458)); t10460 = f27585(t10459); t10206.tag = STRING_TYPE; t10206.value.string_type = t10460; goto l3477; l3476: /* x222473 */ /* x222472 */ /* x222471 stalin.sc:30967:1066885 */ /* x222470 stalin.sc:30967:1066891 */ /* x222468 stalin.sc:30967:1066897 */ t10456 = a32697; /* x222469 stalin.sc:30967:1066899 */ t10457 = a32696; /* x267776 stalin.sc:30967:1066892 */ t10455 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t10455==NULL) {backtrace("stalin.sc", 30967, 1066891); out_of_memory_error();} t10455->s0.tag = t10456; /* MOVE: branching squeezed to general */ if (t10457>=((struct structure_type24753 *)VALUE_OFFSET)) {t10455->s1.tag = STRUCTURE_TYPE24753; t10455->s1.value.structure_type24753 = t10457;} else t10455->s1.tag = (unsigned)t10457; /* x222466 stalin.sc:30967:1066886 */ a32696 = t10455; goto h18912; l3477: l3474: goto l3402; l3401: /* x222865 */ /* x222507 stalin.sc:30968:1066917 */ /* x222506 stalin.sc:30968:1066928 */ t10259 = '+'; /* x222505 stalin.sc:30968:1066925 */ t10258 = (char)(a32610>>2); /* x222504 stalin.sc:30968:1066918 */ t10260.tag = ((unsigned)((unsigned char)t10258))<<2; t10261 = t10259; if (f27342(t10260, t10261)==FALSE_TYPE) goto l3404; /* x222625 */ /* x222624 */ /* x222623 stalin.sc:30969:1066935 */ /* x222622 stalin.sc:30969:1066945 */ /* x222621 stalin.sc:30969:1066946 */ t10445 = a32578; t10385 = f19127(t10445); /* x222620 */ a32701 = t10385; /* x222619 stalin.sc:30970:1066961 */ /* x222510 stalin.sc:30971:1066972 */ /* x222509 stalin.sc:30971:1066985 */ t10386 = a32701; /* x267774 stalin.sc:30971:1066973 */ if (!(t10386==EOF_OBJECT_TYPE)) goto l3452; /* x222513 */ /* x222512 */ /* x222511 stalin.sc:30971:1066989 */ t10206.tag = EXTERNAL_SYMBOL_TYPE; t10206.value.external_symbol_type = q4; goto l3453; l3452: /* x222618 */ /* x222516 stalin.sc:30972:1066998 */ /* x222515 stalin.sc:30972:1067013 */ t10387 = (char)(a32701>>2); /* x222514 stalin.sc:30972:1066999 */ t10388.tag = ((unsigned)((unsigned char)t10387))<<2; if (f27405(t10388)==FALSE_TYPE) goto l3455; /* x222528 */ /* x222527 */ /* x222526 stalin.sc:30973:1067022 */ /* x222525 stalin.sc:30973:1067035 */ /* x222521 stalin.sc:30973:1067038 */ /* x222520 stalin.sc:30973:1067053 */ t10443 = (char)(a32701>>2); /* x267772 stalin.sc:30973:1067039 */ t10441 = (int)((unsigned char)t10443); /* x222524 stalin.sc:30973:1067057 */ /* x222523 stalin.sc:30973:1067072 */ t10444 = '0'; /* x267771 stalin.sc:30973:1067058 */ t10442 = (int)((unsigned char)t10444); /* x267773 stalin.sc:30973:1067036 */ t10439 = t10441-t10442; /* x222517 stalin.sc:30973:1067023 */ t10440 = f19029(t10439); t10206 = *((struct w49 *)(&t10440)); goto l3456; l3455: /* x222617 */ /* x222532 stalin.sc:30974:1067085 */ /* x222531 stalin.sc:30974:1067096 */ t10390 = '.'; /* x222530 stalin.sc:30974:1067093 */ t10389 = (char)(a32701>>2); /* x222529 stalin.sc:30974:1067086 */ t10391.tag = ((unsigned)((unsigned char)t10389))<<2; t10392 = t10390; if (f27342(t10391, t10392)==FALSE_TYPE) goto l3458; /* x222592 */ /* x222591 */ /* x222590 stalin.sc:30975:1067106 */ /* x222589 stalin.sc:30975:1067116 */ /* x222588 stalin.sc:30975:1067117 */ t10438 = a32578; t10407 = f19127(t10438); /* x222587 */ a32702 = t10407; /* x222586 stalin.sc:30976:1067135 */ /* x222535 stalin.sc:30976:1067142 */ /* x222534 stalin.sc:30976:1067155 */ t10408 = a32702; /* x267770 stalin.sc:30976:1067143 */ if (!(t10408==EOF_OBJECT_TYPE)) goto l3464; /* x222538 */ /* x222537 */ /* x222536 stalin.sc:30976:1067159 */ t10206.tag = EXTERNAL_SYMBOL_TYPE; t10206.value.external_symbol_type = q5; goto l3465; l3464: /* x222585 */ /* x222541 stalin.sc:30977:1067170 */ /* x222540 stalin.sc:30977:1067185 */ t10409 = (char)(a32702>>2); /* x222539 stalin.sc:30977:1067171 */ t10410.tag = ((unsigned)((unsigned char)t10409))<<2; if (f27405(t10410)==FALSE_TYPE) goto l3467; /* x222557 */ /* x222556 */ /* x222555 stalin.sc:30978:1067195 */ /* x222553 stalin.sc:30979:1067223 */ /* x222551 stalin.sc:30979:1067226 */ /* x222547 stalin.sc:30979:1067229 */ /* x222546 stalin.sc:30979:1067244 */ t10436 = (char)(a32702>>2); /* x267767 stalin.sc:30979:1067230 */ t10434 = (int)((unsigned char)t10436); /* x222550 stalin.sc:30979:1067248 */ /* x222549 stalin.sc:30979:1067263 */ t10437 = '0'; /* x267766 stalin.sc:30979:1067249 */ t10435 = (int)((unsigned char)t10437); /* x267768 stalin.sc:30979:1067227 */ t10432 = t10434-t10435; /* x222552 stalin.sc:30979:1067269 */ t10433 = 1.0e1; /* x267769 stalin.sc:30979:1067224 */ t10429 = t10432/t10433; /* x222554 stalin.sc:30980:1067282 */ t10430 = 1.0e2; /* x222542 stalin.sc:30978:1067196 */ t10431 = f18993(t10429, t10430); t10206.tag = FLONUM_TYPE; t10206.value.flonum_type = t10431; goto l3468; l3467: /* x222584 */ /* x222560 stalin.sc:30981:1067296 */ /* x222559 stalin.sc:30981:1067314 */ t10411 = (char)(a32702>>2); /* x222558 stalin.sc:30981:1067297 */ t10412 = ((unsigned)((unsigned char)t10411))<<2; if (f19081(t10412)==FALSE_TYPE) goto l3470; /* x222575 */ /* x222574 */ /* x222573 stalin.sc:30982:1067324 */ /* x222572 stalin.sc:30982:1067337 */ /* x222571 stalin.sc:30984:1067399 */ /* x222570 stalin.sc:30984:1067412 */ t10427 = (char)(a32610>>2); /* x222569 stalin.sc:30984:1067400 */ t10428.tag = ((unsigned)((unsigned char)t10427))<<2; t10420 = f27415(t10428); /* x222568 stalin.sc:30983:1067371 */ /* x222567 stalin.sc:30983:1067384 */ t10425 = (char)(a32701>>2); /* x222566 stalin.sc:30983:1067372 */ t10426.tag = ((unsigned)((unsigned char)t10425))<<2; t10419 = f27415(t10426); /* x222565 stalin.sc:30982:1067343 */ /* x222564 stalin.sc:30982:1067356 */ t10423 = (char)(a32702>>2); /* x222563 stalin.sc:30982:1067344 */ t10424.tag = ((unsigned)((unsigned char)t10423))<<2; t10418 = f27415(t10424); /* x222562 stalin.sc:30982:1067338 */ t10422.tag = STRUCTURE_TYPE24753; t10422.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t10422.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30982, 1067337); out_of_memory_error();} t10422.value.structure_type24753->s0.tag = ((unsigned)((unsigned char)t10420))<<2; t10422.value.structure_type24753->s1.tag = NULL_TYPE; t10421.tag = STRUCTURE_TYPE24753; t10421.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t10421.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30982, 1067337); out_of_memory_error();} t10421.value.structure_type24753->s0.tag = ((unsigned)((unsigned char)t10419))<<2; t10421.value.structure_type24753->s1 = t10422; a35260 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35260==NULL) {backtrace("stalin.sc", 30982, 1067337); out_of_memory_error();} a35260->s0.tag = ((unsigned)((unsigned char)t10418))<<2; a35260->s1 = t10421; /* x272527 */ t10416 = a35260; /* x222561 stalin.sc:30982:1067325 */ t10417 = f19086(t10416); t10206.tag = EXTERNAL_SYMBOL_TYPE; t10206.value.external_symbol_type = t10417; goto l3471; l3470: /* x222583 */ /* x222582 */ /* x222581 */ /* x222580 stalin.sc:30985:1067430 */ /* x222579 stalin.sc:30985:1067442 */ t10414 = (char)(a32702>>2); /* x222578 stalin.sc:30985:1067431 */ t10413 = a32579; t10415 = ((unsigned)((unsigned char)t10414))<<2; f19125(t10413, t10415); /* x222577 */ /* x222576 stalin.sc:30985:1067446 */ t10206.tag = EXTERNAL_SYMBOL_TYPE; t10206.value.external_symbol_type = q5; l3471: l3468: l3465: goto l3459; l3458: /* x222616 */ /* x222595 stalin.sc:30986:1067459 */ /* x222594 stalin.sc:30986:1067477 */ t10393 = (char)(a32701>>2); /* x222593 stalin.sc:30986:1067460 */ t10394 = ((unsigned)((unsigned char)t10393))<<2; if (f19081(t10394)==FALSE_TYPE) goto l3461; /* x222607 */ /* x222606 */ /* x222605 stalin.sc:30987:1067486 */ /* x222604 stalin.sc:30987:1067499 */ /* x222603 stalin.sc:30987:1067522 */ /* x222602 stalin.sc:30987:1067535 */ t10405 = (char)(a32610>>2); /* x222601 stalin.sc:30987:1067523 */ t10406.tag = ((unsigned)((unsigned char)t10405))<<2; t10401 = f27415(t10406); /* x222600 stalin.sc:30987:1067505 */ /* x222599 stalin.sc:30987:1067518 */ t10403 = (char)(a32701>>2); /* x222598 stalin.sc:30987:1067506 */ t10404.tag = ((unsigned)((unsigned char)t10403))<<2; t10400 = f27415(t10404); /* x222597 stalin.sc:30987:1067500 */ t10402.tag = STRUCTURE_TYPE24753; t10402.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t10402.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30987, 1067499); out_of_memory_error();} t10402.value.structure_type24753->s0.tag = ((unsigned)((unsigned char)t10401))<<2; t10402.value.structure_type24753->s1.tag = NULL_TYPE; a35261 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35261==NULL) {backtrace("stalin.sc", 30987, 1067499); out_of_memory_error();} a35261->s0.tag = ((unsigned)((unsigned char)t10400))<<2; a35261->s1 = t10402; /* x272529 */ t10398 = a35261; /* x222596 stalin.sc:30987:1067487 */ t10399 = f19086(t10398); t10206.tag = EXTERNAL_SYMBOL_TYPE; t10206.value.external_symbol_type = t10399; goto l3462; l3461: /* x222615 */ /* x222614 */ /* x222613 */ /* x222612 stalin.sc:30988:1067552 */ /* x222611 stalin.sc:30988:1067564 */ t10396 = (char)(a32701>>2); /* x222610 stalin.sc:30988:1067553 */ t10395 = a32579; t10397 = ((unsigned)((unsigned char)t10396))<<2; f19125(t10395, t10397); /* x222609 */ /* x222608 stalin.sc:30988:1067568 */ t10206.tag = EXTERNAL_SYMBOL_TYPE; t10206.value.external_symbol_type = q4; l3462: l3459: l3456: l3453: goto l3405; l3404: /* x222864 */ /* x222629 stalin.sc:30989:1067584 */ /* x222628 stalin.sc:30989:1067595 */ t10263 = '-'; /* x222627 stalin.sc:30989:1067592 */ t10262 = (char)(a32610>>2); /* x222626 stalin.sc:30989:1067585 */ t10264.tag = ((unsigned)((unsigned char)t10262))<<2; t10265 = t10263; if (f27342(t10264, t10265)==FALSE_TYPE) goto l3407; /* x222751 */ /* x222750 */ /* x222749 stalin.sc:30990:1067602 */ /* x222748 stalin.sc:30990:1067612 */ /* x222747 stalin.sc:30990:1067613 */ t10384 = a32578; t10324 = f19127(t10384); /* x222746 */ a32705 = t10324; /* x222745 stalin.sc:30991:1067628 */ /* x222632 stalin.sc:30992:1067639 */ /* x222631 stalin.sc:30992:1067652 */ t10325 = a32705; /* x267765 stalin.sc:30992:1067640 */ if (!(t10325==EOF_OBJECT_TYPE)) goto l3431; /* x222635 */ /* x222634 */ /* x222633 stalin.sc:30992:1067656 */ t10206.tag = EXTERNAL_SYMBOL_TYPE; t10206.value.external_symbol_type = q2; goto l3432; l3431: /* x222744 */ /* x222638 stalin.sc:30993:1067665 */ /* x222637 stalin.sc:30993:1067680 */ t10326 = (char)(a32705>>2); /* x222636 stalin.sc:30993:1067666 */ t10327.tag = ((unsigned)((unsigned char)t10326))<<2; if (f27405(t10327)==FALSE_TYPE) goto l3434; /* x222652 */ /* x222651 */ /* x222650 stalin.sc:30994:1067689 */ /* x222649 stalin.sc:30994:1067692 */ /* x222648 stalin.sc:30995:1067714 */ /* x222644 stalin.sc:30995:1067717 */ /* x222643 stalin.sc:30995:1067732 */ t10382 = (char)(a32705>>2); /* x267762 stalin.sc:30995:1067718 */ t10380 = (int)((unsigned char)t10382); /* x222647 stalin.sc:30995:1067736 */ /* x222646 stalin.sc:30995:1067751 */ t10383 = '0'; /* x267761 stalin.sc:30995:1067737 */ t10381 = (int)((unsigned char)t10383); /* x267763 stalin.sc:30995:1067715 */ t10379 = t10380-t10381; /* x222640 stalin.sc:30994:1067693 */ t10378 = f19029(t10379); /* x267764 stalin.sc:30994:1067690 */ if ((t10378.tag)==FIXNUM_TYPE) {t10206.tag = FIXNUM_TYPE; t10206.value.fixnum_type = -(t10378.value.fixnum_type);} else {t10206.tag = FLONUM_TYPE; t10206.value.flonum_type = -(t10378.value.flonum_type);} goto l3435; l3434: /* x222743 */ /* x222656 stalin.sc:30996:1067765 */ /* x222655 stalin.sc:30996:1067776 */ t10329 = '.'; /* x222654 stalin.sc:30996:1067773 */ t10328 = (char)(a32705>>2); /* x222653 stalin.sc:30996:1067766 */ t10330.tag = ((unsigned)((unsigned char)t10328))<<2; t10331 = t10329; if (f27342(t10330, t10331)==FALSE_TYPE) goto l3437; /* x222718 */ /* x222717 */ /* x222716 stalin.sc:30997:1067786 */ /* x222715 stalin.sc:30997:1067796 */ /* x222714 stalin.sc:30997:1067797 */ t10377 = a32578; t10346 = f19127(t10377); /* x222713 */ a32706 = t10346; /* x222712 stalin.sc:30998:1067815 */ /* x222659 stalin.sc:30999:1067829 */ /* x222658 stalin.sc:30999:1067842 */ t10347 = a32706; /* x267760 stalin.sc:30999:1067830 */ if (!(t10347==EOF_OBJECT_TYPE)) goto l3443; /* x222662 */ /* x222661 */ /* x222660 stalin.sc:30999:1067846 */ t10206.tag = EXTERNAL_SYMBOL_TYPE; t10206.value.external_symbol_type = q3; goto l3444; l3443: /* x222711 */ /* x222665 stalin.sc:31000:1067859 */ /* x222664 stalin.sc:31000:1067874 */ t10348 = (char)(a32706>>2); /* x222663 stalin.sc:31000:1067860 */ t10349.tag = ((unsigned)((unsigned char)t10348))<<2; if (f27405(t10349)==FALSE_TYPE) goto l3446; /* x222683 */ /* x222682 */ /* x222681 stalin.sc:31001:1067886 */ /* x222680 stalin.sc:31001:1067889 */ /* x222678 stalin.sc:31002:1067915 */ /* x222676 stalin.sc:31002:1067918 */ /* x222672 stalin.sc:31002:1067921 */ /* x222671 stalin.sc:31002:1067936 */ t10375 = (char)(a32706>>2); /* x267756 stalin.sc:31002:1067922 */ t10373 = (int)((unsigned char)t10375); /* x222675 stalin.sc:31002:1067940 */ /* x222674 stalin.sc:31002:1067955 */ t10376 = '0'; /* x267755 stalin.sc:31002:1067941 */ t10374 = (int)((unsigned char)t10376); /* x267757 stalin.sc:31002:1067919 */ t10371 = t10373-t10374; /* x222677 stalin.sc:31002:1067961 */ t10372 = 1.0e1; /* x267758 stalin.sc:31002:1067916 */ t10369 = t10371/t10372; /* x222679 stalin.sc:31003:1067972 */ t10370 = 1.0e2; /* x222667 stalin.sc:31001:1067890 */ t10368 = f18993(t10369, t10370); /* x267759 stalin.sc:31001:1067887 */ t10206.tag = FLONUM_TYPE; t10206.value.flonum_type = -t10368; goto l3447; l3446: /* x222710 */ /* x222686 stalin.sc:31004:1067989 */ /* x222685 stalin.sc:31004:1068007 */ t10350 = (char)(a32706>>2); /* x222684 stalin.sc:31004:1067990 */ t10351 = ((unsigned)((unsigned char)t10350))<<2; if (f19081(t10351)==FALSE_TYPE) goto l3449; /* x222701 */ /* x222700 */ /* x222699 stalin.sc:31005:1068019 */ /* x222698 stalin.sc:31005:1068032 */ /* x222697 stalin.sc:31007:1068084 */ /* x222696 stalin.sc:31007:1068097 */ t10366 = (char)(a32610>>2); /* x222695 stalin.sc:31007:1068085 */ t10367.tag = ((unsigned)((unsigned char)t10366))<<2; t10359 = f27415(t10367); /* x222694 stalin.sc:31006:1068061 */ /* x222693 stalin.sc:31006:1068074 */ t10364 = (char)(a32705>>2); /* x222692 stalin.sc:31006:1068062 */ t10365.tag = ((unsigned)((unsigned char)t10364))<<2; t10358 = f27415(t10365); /* x222691 stalin.sc:31005:1068038 */ /* x222690 stalin.sc:31005:1068051 */ t10362 = (char)(a32706>>2); /* x222689 stalin.sc:31005:1068039 */ t10363.tag = ((unsigned)((unsigned char)t10362))<<2; t10357 = f27415(t10363); /* x222688 stalin.sc:31005:1068033 */ t10361.tag = STRUCTURE_TYPE24753; t10361.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t10361.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31005, 1068032); out_of_memory_error();} t10361.value.structure_type24753->s0.tag = ((unsigned)((unsigned char)t10359))<<2; t10361.value.structure_type24753->s1.tag = NULL_TYPE; t10360.tag = STRUCTURE_TYPE24753; t10360.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t10360.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31005, 1068032); out_of_memory_error();} t10360.value.structure_type24753->s0.tag = ((unsigned)((unsigned char)t10358))<<2; t10360.value.structure_type24753->s1 = t10361; a35262 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35262==NULL) {backtrace("stalin.sc", 31005, 1068032); out_of_memory_error();} a35262->s0.tag = ((unsigned)((unsigned char)t10357))<<2; a35262->s1 = t10360; /* x272531 */ t10355 = a35262; /* x222687 stalin.sc:31005:1068020 */ t10356 = f19086(t10355); t10206.tag = EXTERNAL_SYMBOL_TYPE; t10206.value.external_symbol_type = t10356; goto l3450; l3449: /* x222709 */ /* x222708 */ /* x222707 */ /* x222706 stalin.sc:31008:1068117 */ /* x222705 stalin.sc:31008:1068129 */ t10353 = (char)(a32706>>2); /* x222704 stalin.sc:31008:1068118 */ t10352 = a32579; t10354 = ((unsigned)((unsigned char)t10353))<<2; f19125(t10352, t10354); /* x222703 */ /* x222702 stalin.sc:31008:1068133 */ t10206.tag = EXTERNAL_SYMBOL_TYPE; t10206.value.external_symbol_type = q3; l3450: l3447: l3444: goto l3438; l3437: /* x222742 */ /* x222721 stalin.sc:31009:1068146 */ /* x222720 stalin.sc:31009:1068164 */ t10332 = (char)(a32705>>2); /* x222719 stalin.sc:31009:1068147 */ t10333 = ((unsigned)((unsigned char)t10332))<<2; if (f19081(t10333)==FALSE_TYPE) goto l3440; /* x222733 */ /* x222732 */ /* x222731 stalin.sc:31010:1068173 */ /* x222730 stalin.sc:31010:1068186 */ /* x222729 stalin.sc:31010:1068209 */ /* x222728 stalin.sc:31010:1068222 */ t10344 = (char)(a32610>>2); /* x222727 stalin.sc:31010:1068210 */ t10345.tag = ((unsigned)((unsigned char)t10344))<<2; t10340 = f27415(t10345); /* x222726 stalin.sc:31010:1068192 */ /* x222725 stalin.sc:31010:1068205 */ t10342 = (char)(a32705>>2); /* x222724 stalin.sc:31010:1068193 */ t10343.tag = ((unsigned)((unsigned char)t10342))<<2; t10339 = f27415(t10343); /* x222723 stalin.sc:31010:1068187 */ t10341.tag = STRUCTURE_TYPE24753; t10341.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t10341.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31010, 1068186); out_of_memory_error();} t10341.value.structure_type24753->s0.tag = ((unsigned)((unsigned char)t10340))<<2; t10341.value.structure_type24753->s1.tag = NULL_TYPE; a35263 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35263==NULL) {backtrace("stalin.sc", 31010, 1068186); out_of_memory_error();} a35263->s0.tag = ((unsigned)((unsigned char)t10339))<<2; a35263->s1 = t10341; /* x272533 */ t10337 = a35263; /* x222722 stalin.sc:31010:1068174 */ t10338 = f19086(t10337); t10206.tag = EXTERNAL_SYMBOL_TYPE; t10206.value.external_symbol_type = t10338; goto l3441; l3440: /* x222741 */ /* x222740 */ /* x222739 */ /* x222738 stalin.sc:31011:1068239 */ /* x222737 stalin.sc:31011:1068251 */ t10335 = (char)(a32705>>2); /* x222736 stalin.sc:31011:1068240 */ t10334 = a32579; t10336 = ((unsigned)((unsigned char)t10335))<<2; f19125(t10334, t10336); /* x222735 */ /* x222734 stalin.sc:31011:1068255 */ t10206.tag = EXTERNAL_SYMBOL_TYPE; t10206.value.external_symbol_type = q2; l3441: l3438: l3435: l3432: goto l3408; l3407: /* x222863 */ /* x222755 stalin.sc:31012:1068271 */ /* x222754 stalin.sc:31012:1068282 */ t10267 = '.'; /* x222753 stalin.sc:31012:1068279 */ t10266 = (char)(a32610>>2); /* x222752 stalin.sc:31012:1068272 */ t10268.tag = ((unsigned)((unsigned char)t10266))<<2; t10269 = t10267; if (f27342(t10268, t10269)==FALSE_TYPE) goto l3410; /* x222828 */ /* x222827 */ t10287 = p18705; p18953 = t10287; /* x222826 stalin.sc:31013:1068289 */ /* x222825 stalin.sc:31013:1068299 */ /* x222824 stalin.sc:31013:1068300 */ t10323 = a32578; t10289 = f19127(t10323); /* x222823 */ t10288 = p18953; p18954 = t10288; a32709 = t10289; /* x222822 */ /* x222821 stalin.sc:31014:1068315 */ /* x222813 stalin.sc:31014:1068321 */ /* x222812 stalin.sc:31014:1068334 */ t10320 = a32709; /* x267749 stalin.sc:31014:1068322 */ if (!(t10320==EOF_OBJECT_TYPE)) goto l3428; /* x222818 */ /* x222817 */ /* x222816 stalin.sc:31014:1068338 */ /* x222815 stalin.sc:31014:1068350 */ t10322 = "EOF after dot"; /* x222814 stalin.sc:31014:1068339 */ t10321 = a32580; f19123(t10321, t10322); goto l3429; l3428: /* x222820 stalin.sc:31014:1068315 */ /* x222819 stalin.sc:31014:1068315 */ l3429: /* x222810 */ t10290 = p18954; p18955 = t10290; /* x222809 stalin.sc:31015:1068371 */ /* x222758 stalin.sc:31016:1068382 */ /* x222757 stalin.sc:31016:1068397 */ t10291 = a32709; /* x222756 stalin.sc:31016:1068383 */ t10292.tag = t10291; if (f27405(t10292)==FALSE_TYPE) goto l3419; /* x222774 */ /* x222773 */ /* x222772 stalin.sc:31017:1068406 */ /* x222770 stalin.sc:31018:1068433 */ /* x222768 stalin.sc:31018:1068436 */ /* x222764 stalin.sc:31018:1068439 */ /* x222763 stalin.sc:31018:1068454 */ t10318 = a32709; /* x267752 stalin.sc:31018:1068440 */ if (!(t10318>2))); /* x222767 stalin.sc:31018:1068458 */ /* x222766 stalin.sc:31018:1068473 */ t10319 = '0'; /* x267751 stalin.sc:31018:1068459 */ t10317 = (int)((unsigned char)t10319); /* x267753 stalin.sc:31018:1068437 */ t10314 = t10316-t10317; /* x222769 stalin.sc:31018:1068479 */ t10315 = 1.0e1; /* x267754 stalin.sc:31018:1068434 */ t10311 = t10314/t10315; /* x222771 stalin.sc:31018:1068485 */ t10312 = 1.0e2; /* x222759 stalin.sc:31017:1068407 */ t10313 = f18993(t10311, t10312); t10206.tag = FLONUM_TYPE; t10206.value.flonum_type = t10313; goto l3420; l3419: /* x222808 */ /* x222777 stalin.sc:31019:1068498 */ /* x222776 stalin.sc:31019:1068516 */ t10293 = a32709; /* x222775 stalin.sc:31019:1068499 */ if (f19081(t10293)==FALSE_TYPE) goto l3422; /* x222789 */ /* x222788 */ /* x222787 stalin.sc:31020:1068525 */ /* x222786 stalin.sc:31020:1068538 */ /* x222785 stalin.sc:31020:1068561 */ /* x222784 stalin.sc:31020:1068574 */ t10309 = (char)(a32610>>2); /* x222783 stalin.sc:31020:1068562 */ t10310.tag = ((unsigned)((unsigned char)t10309))<<2; t10305 = f27415(t10310); /* x222782 stalin.sc:31020:1068544 */ /* x222781 stalin.sc:31020:1068557 */ t10307 = a32709; /* x222780 stalin.sc:31020:1068545 */ t10308.tag = t10307; t10304 = f27415(t10308); /* x222779 stalin.sc:31020:1068539 */ t10306.tag = STRUCTURE_TYPE24753; t10306.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t10306.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31020, 1068538); out_of_memory_error();} t10306.value.structure_type24753->s0.tag = ((unsigned)((unsigned char)t10305))<<2; t10306.value.structure_type24753->s1.tag = NULL_TYPE; a35264 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35264==NULL) {backtrace("stalin.sc", 31020, 1068538); out_of_memory_error();} a35264->s0.tag = ((unsigned)((unsigned char)t10304))<<2; a35264->s1 = t10306; /* x272535 */ t10302 = a35264; /* x222778 stalin.sc:31020:1068526 */ t10303 = f19086(t10302); t10206.tag = EXTERNAL_SYMBOL_TYPE; t10206.value.external_symbol_type = t10303; goto l3423; l3422: /* x222807 */ /* x222793 stalin.sc:31021:1068586 */ /* x222791 stalin.sc:31021:1068591 */ t10294 = a32586; /* x222792 stalin.sc:31021:1068597 */ t10295 = q1; /* x267750 stalin.sc:31021:1068587 */ if (!(t10294==t10295)) goto l3425; /* x222801 */ /* x222800 */ t10298 = p18955; p18958 = t10298; /* x222799 */ /* x222798 stalin.sc:31021:1068604 */ /* x222797 stalin.sc:31021:1068616 */ t10301 = a32709; /* x222796 stalin.sc:31021:1068605 */ t10300 = a32579; f19125(t10300, t10301); /* x222795 */ t10299 = p18958; p18959 = t10299; /* x222794 stalin.sc:31021:1068620 */ t10206.tag = EXTERNAL_SYMBOL_TYPE; t10206.value.external_symbol_type = p18959->a32559; goto l3426; l3425: /* x222806 */ /* x222805 */ /* x222804 stalin.sc:31022:1068635 */ /* x222803 stalin.sc:31022:1068647 */ t10297 = "Dot allowed only inside list"; /* x222802 stalin.sc:31022:1068636 */ t10296 = a32580; f19123(t10296, t10297); l3426: l3423: l3420: goto l3411; l3410: /* x222862 */ /* x222831 stalin.sc:31023:1068692 */ /* x222830 stalin.sc:31023:1068707 */ t10270 = (char)(a32610>>2); /* x222829 stalin.sc:31023:1068693 */ t10271.tag = ((unsigned)((unsigned char)t10270))<<2; if (f27405(t10271)==FALSE_TYPE) goto l3413; /* x222843 */ /* x222842 */ /* x222841 stalin.sc:31024:1068713 */ /* x222840 stalin.sc:31024:1068726 */ /* x222836 stalin.sc:31024:1068729 */ /* x222835 stalin.sc:31024:1068744 */ t10285 = (char)(a32610>>2); /* x267747 stalin.sc:31024:1068730 */ t10283 = (int)((unsigned char)t10285); /* x222839 stalin.sc:31024:1068748 */ /* x222838 stalin.sc:31024:1068763 */ t10286 = '0'; /* x267746 stalin.sc:31024:1068749 */ t10284 = (int)((unsigned char)t10286); /* x267748 stalin.sc:31024:1068727 */ t10281 = t10283-t10284; /* x222832 stalin.sc:31024:1068714 */ t10282 = f19029(t10281); t10206 = *((struct w49 *)(&t10282)); goto l3414; l3413: /* x222861 */ /* x222846 stalin.sc:31025:1068780 */ /* x222845 stalin.sc:31025:1068795 */ t10272 = (char)(a32610>>2); /* x222844 stalin.sc:31025:1068781 */ t10273 = ((unsigned)((unsigned char)t10272))<<2; if (f19066(t10273)==FALSE_TYPE) goto l3416; /* x222855 */ /* x222854 */ /* x222853 stalin.sc:31025:1068799 */ /* x222852 stalin.sc:31025:1068812 */ /* x222851 stalin.sc:31025:1068818 */ /* x222850 stalin.sc:31025:1068831 */ t10279 = (char)(a32610>>2); /* x222849 stalin.sc:31025:1068819 */ t10280.tag = ((unsigned)((unsigned char)t10279))<<2; t10278 = f27415(t10280); /* x222848 stalin.sc:31025:1068813 */ a35265 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35265==NULL) {backtrace("stalin.sc", 31025, 1068812); out_of_memory_error();} a35265->s0.tag = ((unsigned)((unsigned char)t10278))<<2; a35265->s1.tag = NULL_TYPE; /* x272537 */ t10276 = a35265; /* x222847 stalin.sc:31025:1068800 */ t10277 = f19086(t10276); t10206.tag = EXTERNAL_SYMBOL_TYPE; t10206.value.external_symbol_type = t10277; goto l3417; l3416: /* x222860 */ /* x222859 */ /* x222858 stalin.sc:31026:1068852 */ /* x222857 stalin.sc:31026:1068864 */ t10275 = "Attempt to READ invalid character"; /* x222856 stalin.sc:31026:1068853 */ t10274 = a32580; f19123(t10274, t10275); l3417: l3414: l3411: l3408: l3405: l3402: l3399: l3396: l3393: l3390: l3387: l3384: l3381: l3378: l3375: l3372: /* x220859 */ t10205 = p18705->p18677; p18706 = t10205; a32614 = t10206; /* x220858 */ /* x220857 */ t10207 = p18706; p18707 = t10207; /* x220856 stalin.sc:31027:1068912 */ /* x220844 stalin.sc:31027:1068916 */ /* x220843 stalin.sc:31027:1068931 */ t10208 = a32614; /* x220842 stalin.sc:31027:1068917 */ a40540 = t10208; /* x294829 */ /* x294828 */ t10209 = a40540; /* x294827 */ if (!((t10209.tag)==STRUCTURE_TYPE27510)) goto l3369; /* x220845 stalin.sc:31028:1068942 */ return a32614; l3369: /* x220855 stalin.sc:31029:1068952 */ /* x220847 stalin.sc:31029:1068973 */ t10210 = p18707->a32557; /* x220848 stalin.sc:31030:1068986 */ t10211 = a32611; /* x220849 stalin.sc:31031:1069004 */ t10212 = a32612; /* x220850 stalin.sc:31032:1069027 */ t10213 = a32613; /* x220853 stalin.sc:31033:1069062 */ /* x220852 stalin.sc:31033:1069071 */ t10220 = a32587; /* x220851 stalin.sc:31033:1069063 */ /* MOVE: branching squeezed to general */ if (t10220>=((struct structure_type24753 *)VALUE_OFFSET)) {t10221.tag = STRUCTURE_TYPE24753; t10221.value.structure_type24753 = t10220;} else t10221.tag = (unsigned)t10220; t10214 = f26331(t10221); /* x220854 stalin.sc:31034:1069085 */ t10215 = a32614; /* x220846 stalin.sc:31029:1068953 */ t10216.tag = FIXNUM_TYPE; t10216.value.fixnum_type = t10211; t10217.tag = FIXNUM_TYPE; t10217.value.fixnum_type = t10212; t10218.tag = FIXNUM_TYPE; t10218.value.fixnum_type = t10213; t10219 = f6867(t10210, t10216, t10217, t10218, t10214, t10215); r18699.tag = STRUCTURE_TYPE27510; r18699.value.structure_type27510 = t10219; return r18699;} /* READ-S-EXPRESSIONS[18677] */ struct w49 f18677(struct w49 a32557) {char *a32558; /* CLOSE */ char *a32559; /* DOT */ unsigned a32560; /* LAST-CHAR */ unsigned a32561; /* LAST-NEWLINE? */ int a32562; /* LAST-CHARACTER-POSITION-WITHIN-LINE */ int a32563; /* LAST-CHARACTER-POSITION */ int a32564; /* LAST-LINE-POSITION */ unsigned a32565; /* NEWLINE? */ int a32566; /* CHARACTER-POSITION-WITHIN-LINE */ int a32567; /* CHARACTER-POSITION */ int a32568; /* LINE-POSITION */ struct p18677 *t11277; char *t11278; char *t11279; int t11280; int t11281; int t11282; int t11283; int t11284; int t11285; struct w49 t11286; struct p18678 *t11287; struct p18678 *t11288; char *t11289; char *t11290; struct p18677 *e18677; struct p18678 *e18678; struct p18677 *p18678; e18677 = (struct p18677 *)alloca(sizeof(struct p18677)); if (e18677==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e18677->a32557 = a32557; /* x224281 stalin.sc:30469:1048632 */ /* x224268 stalin.sc:30481:1049100 */ /* x224267 stalin.sc:30481:1049108 */ t11289 = "close"; /* x224266 stalin.sc:30481:1049101 */ t11278 = f5362(t11289); /* x224271 stalin.sc:30480:1049070 */ /* x224270 stalin.sc:30480:1049078 */ t11290 = "dot"; /* x224269 stalin.sc:30480:1049071 */ t11279 = f5362(t11290); /* x224272 stalin.sc:30477:1048909 */ /* x224273 stalin.sc:30476:1048887 */ /* x224274 stalin.sc:30475:1048861 */ t11280 = -1; /* x224275 stalin.sc:30474:1048813 */ t11281 = -1; /* x224276 stalin.sc:30473:1048778 */ t11282 = 0; /* x224277 stalin.sc:30472:1048747 */ /* x224278 stalin.sc:30471:1048726 */ t11283 = -1; /* x224279 stalin.sc:30470:1048683 */ t11284 = -1; /* x224280 stalin.sc:30469:1048653 */ t11285 = 0; /* x224265 */ t11277 = e18677; p18678 = t11277; a32558 = t11278; a32559 = t11279; a32560 = FALSE_TYPE; a32561 = TRUE_TYPE; a32562 = t11280; a32563 = t11281; a32564 = t11282; a32565 = TRUE_TYPE; a32566 = t11283; a32567 = t11284; a32568 = t11285; e18678 = (struct p18678 *)alloca(sizeof(struct p18678)); if (e18678==NULL) {backtrace_internal("READ-S-EXPRESSIONS[18677]"); out_of_memory_error();} e18678->p18677 = p18678; e18678->a32558 = a32558; e18678->a32559 = a32559; e18678->a32560 = a32560; e18678->a32561 = a32561; e18678->a32562 = a32562; e18678->a32563 = a32563; e18678->a32564 = a32564; e18678->a32565 = a32565; e18678->a32566 = a32566; e18678->a32567 = a32567; e18678->a32568 = a32568; /* x224264 stalin.sc:30482:1049121 */ /* x220737 stalin.sc:30482:1049143 */ t11286 = p18678->a32557; /* x224263 */ t11287 = e18678; /* x220736 stalin.sc:30482:1049122 */ t11288 = t11287; return f27790(t11286, t11288);} /* SEARCH-INCLUDE-PATH[18676] */ struct w49 f18676(struct w49 a32556) {struct w49 t11291; struct w49 t11292; char *t11293; /* x220733 stalin.sc:30465:1048501 */ /* x220732 stalin.sc:30465:1048540 */ /* x220730 stalin.sc:30465:1048559 */ t11292 = a32556; /* x220731 stalin.sc:30465:1048568 */ t11293 = "sc"; /* x220729 stalin.sc:30465:1048541 */ t11291 = f2078(t11292, t11293); /* x220728 stalin.sc:30465:1048502 */ return f18663(t11291);} /* SEARCH-INCLUDE-PATH-WITHOUT-EXTENSION[18663] */ struct w49 f18663(struct w49 a32550) {struct w49 r18663; struct w49 a32554; /* INCLUDE-PATH */ struct w16638 a35636; /* PAIR */ struct w16638 a36222; /* PAIR */ struct w16638 a36223; /* PAIR */ struct w49 t11294; int t11295; int t11296; struct w49 t11297; char t11298; char t11299; struct w49 t11300; char t11301; struct w49 t11302; int t11303; struct w49 t11304; struct w49 t11305; char *t11306; struct w49 t11307; struct w49 t11308; char *t11309; struct w49 t11310; struct structure_type24753 *t11311; struct w49 t11312; struct w49 t11313; struct w16638 t11314; struct w16638 t11315; struct w49 t11316; struct w16638 t11317; struct w16638 t11318; struct w49 t11319; char *t11320; struct w49 t11321; struct structure_type24753 *t11322; char *t11323; struct w49 t11324; struct w49 t11325; struct w16638 t11326; struct w16638 t11327; int t11328; char *t11329; struct w49 t11330; struct w49 t11331; struct structure_type24753 *t11332; int t11333; char *t11334; struct w49 t11335; struct w49 t11336; struct structure_type24753 *t11337; /* x220725 stalin.sc:30448:1047857 */ /* x220642 stalin.sc:30448:1047864 */ /* x220641 stalin.sc:30448:1047890 */ t11294 = a32550; /* x220640 stalin.sc:30448:1047865 */ if (f2087(t11294)==FALSE_TYPE) goto l3749; /* x220645 */ /* x220644 */ /* x220643 stalin.sc:30448:1047900 */ return a32550; l3749: /* x220724 */ /* x220660 stalin.sc:30449:1047918 */ /* x220651 stalin.sc:30449:1047923 */ /* x220649 stalin.sc:30449:1047927 */ /* x220648 stalin.sc:30449:1047942 */ t11297 = a32550; /* x267900 stalin.sc:30449:1047928 */ if (!((t11297.tag)==STRING_TYPE)) {backtrace("stalin.sc", 30449, 1047927); string_length_error();} t11295 = strlen(t11297.value.string_type); /* x220650 stalin.sc:30449:1047952 */ t11296 = 1; /* x267901 stalin.sc:30449:1047924 */ if (!(t11295>=t11296)) goto l3751; /* x220658 */ /* x220657 stalin.sc:30450:1047993 */ t11299 = '/'; /* x220656 stalin.sc:30450:1047969 */ /* x220654 stalin.sc:30450:1047981 */ t11302 = a32550; /* x220655 stalin.sc:30450:1047990 */ t11303 = 0; /* x267899 stalin.sc:30450:1047970 */ if (!((t11302.tag)==STRING_TYPE)) {backtrace("stalin.sc", 30450, 1047969); string_ref1_error();} if ((t11303<0)||(t11303>=strlen(t11302.value.string_type))) {backtrace("stalin.sc", 30450, 1047969); string_ref3_error();} t11298 = (t11302.value.string_type)[t11303]; /* x220652 stalin.sc:30450:1047962 */ t11300.tag = ((unsigned)((unsigned char)t11298))<<2; t11301 = t11299; if (f27342(t11300, t11301)==FALSE_TYPE) goto l3751; /* x220670 */ /* x220669 */ /* x220668 */ /* x220667 stalin.sc:30451:1048000 */ /* x220666 stalin.sc:30451:1048026 */ t11335 = a32550; /* x220665 stalin.sc:30451:1048008 */ t11334 = "Cannot find: ~a"; /* x220664 stalin.sc:30451:1048001 */ t11336.tag = STRING_TYPE; t11336.value.string_type = t11334; t11337 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11337==NULL) {backtrace("stalin.sc", 30451, 1048000); out_of_memory_error();} t11337->s0 = t11335; t11337->s1.tag = NULL_TYPE; f5365(t11336, t11337); /* x220663 */ /* x220662 stalin.sc:30452:1048037 */ /* x220661 stalin.sc:30452:1048038 */ /* x294853 stalin.sc:87:2881 */ /* x294852 stalin.sc:87:2887 */ t11333 = -1; /* x294851 stalin.sc:87:2882 */ exit(t11333); return r18663; l3751: /* x220723 */ /* x220722 */ /* x220721 stalin.sc:30453:1048063 */ /* x220720 stalin.sc:30453:1048088 */ t11304 = a668; /* x220719 */ /* x220718 */ /* x220717 */ /* x220716 */ /* x220715 */ /* x220714 */ /* x220713 */ /* x220672 */ /* x220671 stalin.sc:30453:1048068 */ a32554 = t11304; h18670: /* x220712 stalin.sc:30455:1048148 */ /* x220675 stalin.sc:30455:1048155 */ /* x220674 stalin.sc:30455:1048162 */ t11305 = a32554; /* x267898 stalin.sc:30455:1048156 */ if (!((t11305.tag)==NULL_TYPE)) goto l3754; /* x220685 */ /* x220684 */ /* x220683 */ /* x220682 stalin.sc:30456:1048183 */ /* x220681 stalin.sc:30456:1048209 */ t11330 = a32550; /* x220680 stalin.sc:30456:1048191 */ t11329 = "Cannot find: ~a"; /* x220679 stalin.sc:30456:1048184 */ t11331.tag = STRING_TYPE; t11331.value.string_type = t11329; t11332 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11332==NULL) {backtrace("stalin.sc", 30456, 1048183); out_of_memory_error();} t11332->s0 = t11330; t11332->s1.tag = NULL_TYPE; f5365(t11331, t11332); /* x220678 */ /* x220677 stalin.sc:30457:1048226 */ /* x220676 stalin.sc:30457:1048227 */ /* x294857 stalin.sc:87:2881 */ /* x294856 stalin.sc:87:2887 */ t11328 = -1; /* x294855 stalin.sc:87:2882 */ exit(t11328); return r18663; l3754: /* x220711 */ /* x220694 stalin.sc:30458:1048246 */ /* x220693 stalin.sc:30459:1048280 */ /* x220692 stalin.sc:30459:1048320 */ t11310 = a32550; /* x220691 stalin.sc:30459:1048316 */ t11309 = "/"; /* x220690 stalin.sc:30459:1048295 */ /* x220689 stalin.sc:30459:1048302 */ t11314 = *((struct w16638 *)(&a32554)); /* x220688 stalin.sc:30459:1048296 */ a36223 = t11314; /* x276249 */ /* x276248 */ t11315 = a36223; /* x276247 */ if (!((t11315.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30372]"); structure_ref_error();} t11308 = t11315.value.structure_type24753->s0; /* x220687 stalin.sc:30459:1048281 */ t11313.tag = STRUCTURE_TYPE24753; t11313.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t11313.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30459, 1048280); out_of_memory_error();} t11313.value.structure_type24753->s0 = t11310; t11313.value.structure_type24753->s1.tag = NULL_TYPE; t11312.tag = STRUCTURE_TYPE24753; t11312.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t11312.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30459, 1048280); out_of_memory_error();} t11312.value.structure_type24753->s0.tag = STRING_TYPE; t11312.value.structure_type24753->s0.value.string_type = t11309; t11312.value.structure_type24753->s1 = t11313; t11311 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11311==NULL) {backtrace("stalin.sc", 30459, 1048280); out_of_memory_error();} t11311->s0 = t11308; t11311->s1 = t11312; t11306 = f27556(t11311); /* x220686 stalin.sc:30458:1048247 */ t11307.tag = STRING_TYPE; t11307.value.string_type = t11306; if (f2087(t11307)==FALSE_TYPE) goto l3756; /* x220703 */ /* x220702 */ while (region18673!=((struct region18673 *)(&initial_region18673))) {struct region18673 *region; region = region18673; region18673 = region18673->region; GC_free(region);} region_size18673 = REGION_SIZE18673; fp18673 = &((region18673->data)[0]); ALIGN(fp18673); /* x220701 stalin.sc:30460:1048338 */ /* x220700 stalin.sc:30460:1048378 */ t11321 = a32550; /* x220699 stalin.sc:30460:1048374 */ t11320 = "/"; /* x220698 stalin.sc:30460:1048353 */ /* x220697 stalin.sc:30460:1048360 */ t11326 = *((struct w16638 *)(&a32554)); /* x220696 stalin.sc:30460:1048354 */ a36222 = t11326; /* x276245 */ /* x276244 */ t11327 = a36222; /* x276243 */ if (!((t11327.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30371]"); structure_ref_error();} t11319 = t11327.value.structure_type24753->s0; /* x220695 stalin.sc:30460:1048339 */ if ((fp18673+sizeof(struct structure_type24753))>(&((region18673->data)[region_size18673]))) {struct region18673 *region; unsigned region_size = REGION_SIZE18673; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region18673 *)GC_malloc_uncollectable(sizeof(struct region18673)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 30460, 1048338); out_of_memory_error();} region->region = region18673; region_size18673 = region_size; region18673 = region; fp18673 = &((region->data)[0]); ALIGN(fp18673);} t11325.tag = STRUCTURE_TYPE24753; t11325.value.structure_type24753 = (struct structure_type24753 *)fp18673; fp18673 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t11325.value.structure_type24753->s0 = t11321; t11325.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp18673+sizeof(struct structure_type24753))>(&((region18673->data)[region_size18673]))) {struct region18673 *region; unsigned region_size = REGION_SIZE18673; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region18673 *)GC_malloc_uncollectable(sizeof(struct region18673)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 30460, 1048338); out_of_memory_error();} region->region = region18673; region_size18673 = region_size; region18673 = region; fp18673 = &((region->data)[0]); ALIGN(fp18673);} t11324.tag = STRUCTURE_TYPE24753; t11324.value.structure_type24753 = (struct structure_type24753 *)fp18673; fp18673 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t11324.value.structure_type24753->s0.tag = STRING_TYPE; t11324.value.structure_type24753->s0.value.string_type = t11320; t11324.value.structure_type24753->s1 = t11325; if ((fp18673+sizeof(struct structure_type24753))>(&((region18673->data)[region_size18673]))) {struct region18673 *region; unsigned region_size = REGION_SIZE18673; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region18673 *)GC_malloc_uncollectable(sizeof(struct region18673)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 30460, 1048338); out_of_memory_error();} region->region = region18673; region_size18673 = region_size; region18673 = region; fp18673 = &((region->data)[0]); ALIGN(fp18673);} t11322 = (struct structure_type24753 *)fp18673; fp18673 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t11322->s0 = t11319; t11322->s1 = t11324; t11323 = f27556(t11322); r18663.tag = STRING_TYPE; r18663.value.string_type = t11323; return r18663; l3756: /* x220710 */ /* x220709 */ /* x220708 stalin.sc:30461:1048401 */ /* x220707 stalin.sc:30461:1048407 */ /* x220706 stalin.sc:30461:1048413 */ t11317 = *((struct w16638 *)(&a32554)); /* x220705 stalin.sc:30461:1048408 */ a35636 = t11317; /* x273901 */ /* x273900 */ t11318 = a35636; /* x273899 */ if (!((t11318.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29785]"); structure_ref_error();} t11316 = t11318.value.structure_type24753->s1; /* x220704 stalin.sc:30461:1048402 */ a32554 = t11316; goto h18670;} /* [inside top level 18659] */ struct structure_type24753 *f18659(struct w49 a32548) {char *t11338; struct structure_type24753 *t11339; struct w49 t11340; struct w49 t11341; char *t11342; struct structure_type24753 *t11343; struct w49 t11344; struct w49 t11345; struct structure_type24753 *t11346; struct w49 t11347; struct w49 t11348; char *t11349; struct structure_type24753 *t11350; struct w49 t11351; struct w49 t11352; struct structure_type24753 *t11353; struct structure_type24753 *t11354; struct w49 t11355; struct w49 t11356; char *t11357; struct structure_type24753 *t11358; struct w49 t11359; struct w49 t11360; struct structure_type24753 *t11361; struct structure_type24753 *t11362; struct w49 t11363; struct w49 t11364; char *t11365; struct structure_type24753 *t11366; struct w49 t11367; struct w49 t11368; struct w49 t11369; struct w49 t11370; struct w49 t11371; struct structure_type24753 *t11372; struct w49 t11373; struct w49 t11374; char *t11375; struct structure_type24753 *t11376; struct w49 t11377; struct w49 t11378; struct w49 t11379; struct structure_type24753 *t11380; struct w49 t11381; struct w49 t11382; struct structure_type24753 *t11383; struct structure_type24753 *t11384; struct w49 t11385; struct w49 t11386; char *t11387; struct structure_type24753 *t11388; struct w49 t11389; struct w49 t11390; struct structure_type24753 *t11391; struct structure_type24753 *t11392; struct w49 t11393; struct w49 t11394; struct w49 t11398; struct w49 t11399; struct w49 t11400; struct structure_type24753 *t11401; struct structure_type24753 *t11402; struct w49 t11403; struct w49 t11404; char *t11405; struct structure_type24753 *t11406; struct w49 t11407; struct w49 t11408; struct structure_type24753 *t11409; struct structure_type24753 *t11410; struct w49 t11411; struct w49 t11412; struct w49 t11417; struct w49 t11418; struct w49 t11419; struct structure_type24753 *t11420; struct structure_type24753 *t11421; struct w49 t11422; struct w49 t11423; char *t11424; struct structure_type24753 *t11425; struct w49 t11426; struct w49 t11427; struct structure_type24753 *t11428; struct structure_type24753 *t11429; struct w49 t11430; struct w49 t11431; struct w49 t11436; struct w49 t11437; struct w49 t11438; struct structure_type24753 *t11439; struct structure_type24753 *t11440; struct w49 t11441; struct w49 t11442; char *t11443; struct structure_type24753 *t11444; struct w49 t11445; struct w49 t11446; struct structure_type24753 *t11447; struct structure_type24753 *t11448; struct w49 t11449; struct w49 t11450; struct w49 t11456; struct w49 t11457; struct w49 t11458; struct structure_type24753 *t11459; struct structure_type24753 *t11460; struct w49 t11461; struct w49 t11462; char *t11463; struct structure_type24753 *t11464; struct w49 t11465; struct w49 t11466; struct structure_type24753 *t11467; struct structure_type24753 *t11468; struct w49 t11469; struct w49 t11470; struct w49 t11480; struct w49 t11481; struct w49 t11482; struct structure_type24753 *t11483; struct w49 t11484; struct w49 t11485; char *t11486; struct structure_type24753 *t11487; struct w49 t11488; struct w49 t11489; struct structure_type24753 *t11490; struct structure_type24753 *t11491; struct w49 t11492; struct w49 t11493; struct w49 t11510; struct w49 t11511; struct w49 t11512; int t11514; int t11515; struct w49 t11516; struct w49 t11517; char *t11518; /* x220635 */ /* x220634 stalin.sc:30425:1047148 */ /* x220625 stalin.sc:30425:1047156 */ /* x220623 stalin.sc:30425:1047159 */ /* x220622 stalin.sc:30425:1047170 */ t11516 = a32548; /* x220621 stalin.sc:30425:1047160 */ t11514 = f9734(t11516); /* x220624 stalin.sc:30425:1047173 */ t11515 = 9; /* x267902 stalin.sc:30425:1047157 */ if (!(t11514==t11515)) goto l3758; /* x220627 */ /* x220626 */ goto l3759; l3758: /* x220633 */ /* x220632 */ /* x220631 stalin.sc:30426:1047179 */ /* x220629 stalin.sc:30426:1047193 */ t11517 = a32548; /* x220630 stalin.sc:30426:1047195 */ t11518 = "Wrong number of arguments"; /* x220628 stalin.sc:30426:1047180 */ f9705(t11517, t11518); l3759: /* x220619 */ /* x220618 stalin.sc:30427:1047227 */ /* x220411 */ t11338 = q42; /* x220617 */ /* x220413 */ t11342 = q753; /* x220616 */ /* x220614 */ /* x220416 */ t11349 = q106; /* x220613 */ /* x220609 */ /* x220419 */ t11357 = q106; /* x220608 */ /* x220429 */ /* x220422 */ t11365 = q11; /* x220428 */ /* x220426 stalin.sc:30429:1047284 */ /* x220425 stalin.sc:30429:1047295 */ t11371 = a32548; /* x220424 stalin.sc:30429:1047285 */ t11369 = f9722(t11371); /* x220427 */ /* x220423 */ t11370.tag = NULL_TYPE; t11366 = f26175(t11369, t11370); /* x220421 */ t11367.tag = EXTERNAL_SYMBOL_TYPE; t11367.value.external_symbol_type = t11365; t11368.tag = STRUCTURE_TYPE24753; t11368.value.structure_type24753 = t11366; t11361 = f26175(t11367, t11368); /* x220607 */ /* x220605 */ /* x220432 */ t11375 = q754; /* x220604 */ /* x220436 stalin.sc:30431:1047337 */ /* x220435 stalin.sc:30431:1047347 */ t11382 = a32548; /* x220434 stalin.sc:30431:1047338 */ t11379 = f9723(t11382); /* x220603 */ /* x220455 */ /* x220439 */ t11387 = q39; /* x220454 */ /* x220447 */ t11391 = &t11395; /* x220453 */ /* x220451 stalin.sc:30432:1047372 */ /* x220450 stalin.sc:30432:1047383 */ t11400 = a32548; /* x220449 stalin.sc:30432:1047373 */ t11398 = f9724(t11400); /* x220452 */ /* x220448 */ t11399.tag = NULL_TYPE; t11392 = f26175(t11398, t11399); /* x220440 */ t11393.tag = STRUCTURE_TYPE24753; t11393.value.structure_type24753 = t11391; t11394.tag = STRUCTURE_TYPE24753; t11394.value.structure_type24753 = t11392; t11388 = f26175(t11393, t11394); /* x220438 */ t11389.tag = EXTERNAL_SYMBOL_TYPE; t11389.value.external_symbol_type = t11387; t11390.tag = STRUCTURE_TYPE24753; t11390.value.structure_type24753 = t11388; t11383 = f26175(t11389, t11390); /* x220602 */ /* x220476 */ /* x220458 */ t11405 = q39; /* x220475 */ /* x220468 */ t11409 = &t11413; /* x220474 */ /* x220472 stalin.sc:30433:1047411 */ /* x220471 stalin.sc:30433:1047421 */ t11419 = a32548; /* x220470 stalin.sc:30433:1047412 */ t11417 = f9725(t11419); /* x220473 */ /* x220469 */ t11418.tag = NULL_TYPE; t11410 = f26175(t11417, t11418); /* x220459 */ t11411.tag = STRUCTURE_TYPE24753; t11411.value.structure_type24753 = t11409; t11412.tag = STRUCTURE_TYPE24753; t11412.value.structure_type24753 = t11410; t11406 = f26175(t11411, t11412); /* x220457 */ t11407.tag = EXTERNAL_SYMBOL_TYPE; t11407.value.external_symbol_type = t11405; t11408.tag = STRUCTURE_TYPE24753; t11408.value.structure_type24753 = t11406; t11401 = f26175(t11407, t11408); /* x220601 */ /* x220497 */ /* x220479 */ t11424 = q39; /* x220496 */ /* x220489 */ t11428 = &t11432; /* x220495 */ /* x220493 stalin.sc:30434:1047449 */ /* x220492 stalin.sc:30434:1047459 */ t11438 = a32548; /* x220491 stalin.sc:30434:1047450 */ t11436 = f9726(t11438); /* x220494 */ /* x220490 */ t11437.tag = NULL_TYPE; t11429 = f26175(t11436, t11437); /* x220480 */ t11430.tag = STRUCTURE_TYPE24753; t11430.value.structure_type24753 = t11428; t11431.tag = STRUCTURE_TYPE24753; t11431.value.structure_type24753 = t11429; t11425 = f26175(t11430, t11431); /* x220478 */ t11426.tag = EXTERNAL_SYMBOL_TYPE; t11426.value.external_symbol_type = t11424; t11427.tag = STRUCTURE_TYPE24753; t11427.value.structure_type24753 = t11425; t11420 = f26175(t11426, t11427); /* x220600 */ /* x220520 */ /* x220500 */ t11443 = q39; /* x220519 */ /* x220512 */ t11447 = &t11451; /* x220518 */ /* x220516 stalin.sc:30437:1047540 */ /* x220515 stalin.sc:30437:1047552 */ t11458 = a32548; /* x220514 stalin.sc:30437:1047541 */ t11456 = f9727(t11458); /* x220517 */ /* x220513 */ t11457.tag = NULL_TYPE; t11448 = f26175(t11456, t11457); /* x220501 */ t11449.tag = STRUCTURE_TYPE24753; t11449.value.structure_type24753 = t11447; t11450.tag = STRUCTURE_TYPE24753; t11450.value.structure_type24753 = t11448; t11444 = f26175(t11449, t11450); /* x220499 */ t11445.tag = EXTERNAL_SYMBOL_TYPE; t11445.value.external_symbol_type = t11443; t11446.tag = STRUCTURE_TYPE24753; t11446.value.structure_type24753 = t11444; t11439 = f26175(t11445, t11446); /* x220599 */ /* x220551 */ /* x220523 */ t11463 = q39; /* x220550 */ /* x220543 */ t11467 = &t11471; /* x220549 */ /* x220547 stalin.sc:30438:1047594 */ /* x220546 stalin.sc:30438:1047605 */ t11482 = a32548; /* x220545 stalin.sc:30438:1047595 */ t11480 = f9728(t11482); /* x220548 */ /* x220544 */ t11481.tag = NULL_TYPE; t11468 = f26175(t11480, t11481); /* x220524 */ t11469.tag = STRUCTURE_TYPE24753; t11469.value.structure_type24753 = t11467; t11470.tag = STRUCTURE_TYPE24753; t11470.value.structure_type24753 = t11468; t11464 = f26175(t11469, t11470); /* x220522 */ t11465.tag = EXTERNAL_SYMBOL_TYPE; t11465.value.external_symbol_type = t11463; t11466.tag = STRUCTURE_TYPE24753; t11466.value.structure_type24753 = t11464; t11459 = f26175(t11465, t11466); /* x220598 */ /* x220596 */ /* x220554 */ t11486 = q39; /* x220595 */ /* x220588 */ t11490 = &t11494; /* x220594 */ /* x220592 stalin.sc:30441:1047698 */ /* x220591 stalin.sc:30441:1047708 */ t11512 = a32548; /* x220590 stalin.sc:30441:1047699 */ t11510 = f9729(t11512); /* x220593 */ /* x220589 */ t11511.tag = NULL_TYPE; t11491 = f26175(t11510, t11511); /* x220555 */ t11492.tag = STRUCTURE_TYPE24753; t11492.value.structure_type24753 = t11490; t11493.tag = STRUCTURE_TYPE24753; t11493.value.structure_type24753 = t11491; t11487 = f26175(t11492, t11493); /* x220553 */ t11488.tag = EXTERNAL_SYMBOL_TYPE; t11488.value.external_symbol_type = t11486; t11489.tag = STRUCTURE_TYPE24753; t11489.value.structure_type24753 = t11487; t11483 = f26175(t11488, t11489); /* x220597 */ /* x220552 */ t11484.tag = STRUCTURE_TYPE24753; t11484.value.structure_type24753 = t11483; t11485.tag = NULL_TYPE; t11460 = f26175(t11484, t11485); /* x220521 */ t11461.tag = STRUCTURE_TYPE24753; t11461.value.structure_type24753 = t11459; t11462.tag = STRUCTURE_TYPE24753; t11462.value.structure_type24753 = t11460; t11440 = f26175(t11461, t11462); /* x220498 */ t11441.tag = STRUCTURE_TYPE24753; t11441.value.structure_type24753 = t11439; t11442.tag = STRUCTURE_TYPE24753; t11442.value.structure_type24753 = t11440; t11421 = f26175(t11441, t11442); /* x220477 */ t11422.tag = STRUCTURE_TYPE24753; t11422.value.structure_type24753 = t11420; t11423.tag = STRUCTURE_TYPE24753; t11423.value.structure_type24753 = t11421; t11402 = f26175(t11422, t11423); /* x220456 */ t11403.tag = STRUCTURE_TYPE24753; t11403.value.structure_type24753 = t11401; t11404.tag = STRUCTURE_TYPE24753; t11404.value.structure_type24753 = t11402; t11384 = f26175(t11403, t11404); /* x220437 */ t11385.tag = STRUCTURE_TYPE24753; t11385.value.structure_type24753 = t11383; t11386.tag = STRUCTURE_TYPE24753; t11386.value.structure_type24753 = t11384; t11380 = f26175(t11385, t11386); /* x220433 */ t11381.tag = STRUCTURE_TYPE24753; t11381.value.structure_type24753 = t11380; t11376 = f26175(t11379, t11381); /* x220431 */ t11377.tag = EXTERNAL_SYMBOL_TYPE; t11377.value.external_symbol_type = t11375; t11378.tag = STRUCTURE_TYPE24753; t11378.value.structure_type24753 = t11376; t11372 = f26175(t11377, t11378); /* x220606 */ /* x220430 */ t11373.tag = STRUCTURE_TYPE24753; t11373.value.structure_type24753 = t11372; t11374.tag = NULL_TYPE; t11362 = f26175(t11373, t11374); /* x220420 */ t11363.tag = STRUCTURE_TYPE24753; t11363.value.structure_type24753 = t11361; t11364.tag = STRUCTURE_TYPE24753; t11364.value.structure_type24753 = t11362; t11358 = f26175(t11363, t11364); /* x220418 */ t11359.tag = EXTERNAL_SYMBOL_TYPE; t11359.value.external_symbol_type = t11357; t11360.tag = STRUCTURE_TYPE24753; t11360.value.structure_type24753 = t11358; t11353 = f26175(t11359, t11360); /* x220612 */ t11354 = &t11513; /* x220417 */ t11355.tag = STRUCTURE_TYPE24753; t11355.value.structure_type24753 = t11353; t11356.tag = STRUCTURE_TYPE24753; t11356.value.structure_type24753 = t11354; t11350 = f26175(t11355, t11356); /* x220415 */ t11351.tag = EXTERNAL_SYMBOL_TYPE; t11351.value.external_symbol_type = t11349; t11352.tag = STRUCTURE_TYPE24753; t11352.value.structure_type24753 = t11350; t11346 = f26175(t11351, t11352); /* x220615 */ /* x220414 */ t11347.tag = STRUCTURE_TYPE24753; t11347.value.structure_type24753 = t11346; t11348.tag = NULL_TYPE; t11343 = f26175(t11347, t11348); /* x220412 */ t11344.tag = EXTERNAL_SYMBOL_TYPE; t11344.value.external_symbol_type = t11342; t11345.tag = STRUCTURE_TYPE24753; t11345.value.structure_type24753 = t11343; t11339 = f26175(t11344, t11345); /* x220410 */ t11340.tag = EXTERNAL_SYMBOL_TYPE; t11340.value.external_symbol_type = t11338; t11341.tag = STRUCTURE_TYPE24753; t11341.value.structure_type24753 = t11339; return f26175(t11340, t11341);} /* [inside top level 18658] */ struct structure_type24753 *f18658(struct w49 a32547) {struct w49 a41391; /* S */ struct structure_type24753 *t11519; struct structure_type24753 *t11520; struct w49 t11521; struct w49 t11522; struct structure_type24753 *t11525; struct w49 t11526; struct w49 t11527; char *t11528; struct structure_type24753 *t11529; struct w49 t11530; struct w49 t11531; struct w49 t11532; struct w49 t11533; struct w12224 t11534; struct structure_type24753 *t11535; struct w49 t11536; struct w49 t11537; struct w49 t11538; struct w49 t11539; /* x220402 stalin.sc:30418:1046987 */ /* x220384 */ t11519 = &t11523; /* x220401 */ /* x220399 */ /* x220387 */ t11528 = q39; /* x220398 */ /* x220389 */ /* x220397 */ /* x220396 */ /* x220395 stalin.sc:30419:1047034 */ /* x220394 stalin.sc:30419:1047045 */ /* x220393 stalin.sc:30419:1047054 */ t11538 = a32547; /* x220392 stalin.sc:30419:1047046 */ a41391 = t11538; /* x299676 stalin.sc:7008:242336 */ /* x299675 stalin.sc:7008:242344 */ t11539 = a41391; /* x299674 stalin.sc:7008:242337 */ t11537 = f9720(t11539); /* x220391 stalin.sc:30419:1047035 */ t11534 = f9772(t11537); /* x220390 */ t11536.tag = STRUCTURE_TYPE24753; t11536.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t11536.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18658]"); out_of_memory_error();} t11536.value.structure_type24753->s0.tag = NULL_TYPE; t11536.value.structure_type24753->s1.tag = NULL_TYPE; t11535 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11535==NULL) {backtrace_internal("[inside top level 18658]"); out_of_memory_error();} t11535->s0 = *((struct w49 *)(&t11534)); t11535->s1 = t11536; t11532 = f26254(t11535); /* x220388 */ t11533.tag = NULL_TYPE; t11529 = f26175(t11533, t11532); /* x220386 */ t11530.tag = EXTERNAL_SYMBOL_TYPE; t11530.value.external_symbol_type = t11528; t11531.tag = STRUCTURE_TYPE24753; t11531.value.structure_type24753 = t11529; t11525 = f26175(t11530, t11531); /* x220400 */ /* x220385 */ t11526.tag = STRUCTURE_TYPE24753; t11526.value.structure_type24753 = t11525; t11527.tag = NULL_TYPE; t11520 = f26175(t11526, t11527); /* x220379 */ t11521.tag = STRUCTURE_TYPE24753; t11521.value.structure_type24753 = t11519; t11522.tag = STRUCTURE_TYPE24753; t11522.value.structure_type24753 = t11520; return f26175(t11521, t11522);} /* [inside top level 18650] */ struct structure_type24753 *f18650(struct w49 a32541) {char *a32543; /* LOOP */ struct w49 a41392; /* S */ struct w49 a41393; /* S */ struct w49 a41394; /* S */ struct w49 a41395; /* S */ struct w49 a41580; /* S */ char *t11540; char *t11541; struct structure_type24753 *t11542; struct w49 t11543; struct w49 t11544; struct structure_type24753 *t11545; struct structure_type24753 *t11546; struct w49 t11547; struct w49 t11548; struct structure_type24753 *t11549; struct w49 t11550; struct w49 t11551; char *t11552; struct structure_type24753 *t11553; struct w49 t11554; struct w49 t11555; struct structure_type24753 *t11556; struct w49 t11557; struct w49 t11558; char *t11559; struct structure_type24753 *t11560; struct w49 t11561; struct w49 t11562; struct w12224 t11563; struct structure_type24753 *t11564; struct w49 t11565; struct w49 t11566; struct w49 t11567; struct w198746 t11568; struct w49 t11569; struct structure_type24753 *t11570; struct w49 t11571; struct w49 t11572; char *t11573; struct structure_type24753 *t11574; struct w49 t11575; struct w49 t11576; struct w49 t11577; struct structure_type24753 *t11578; struct w49 t11579; struct w49 t11580; struct w49 t11581; struct w49 t11582; struct structure_type24753 *t11583; struct structure_type24753 *t11584; struct w49 t11585; struct w49 t11586; char *t11587; struct w49 t11588; struct w49 t11589; struct w12224 t11590; struct structure_type24753 *t11591; struct w49 t11592; struct w49 t11593; struct w49 t11594; struct w49 t11595; struct w49 t11596; struct structure_type24753 *t11597; struct w49 t11598; struct w49 t11599; char *t11600; struct w49 t11601; struct w49 t11602; struct w12224 t11603; struct structure_type24753 *t11604; struct structure_type24753 *t11605; struct w49 t11606; struct w49 t11607; struct w49 t11608; struct w49 t11609; struct w49 t11610; struct w49 t11611; struct w49 t11612; struct w49 t11613; struct structure_type24753 *t11614; struct w49 t11615; struct w49 t11616; char *t11617; struct w49 t11618; struct w49 t11619; struct w12224 t11620; struct structure_type24753 *t11621; struct w49 t11622; struct w49 t11623; struct w198746 t11624; struct w49 t11625; struct structure_type24753 *t11626; struct w49 t11627; struct w49 t11628; char *t11629; struct w49 t11630; struct w49 t11631; struct w12224 t11632; struct structure_type24753 *t11633; struct w49 t11634; struct w49 t11635; struct w198746 t11636; struct w49 t11637; char *t11638; int t11639; int t11640; struct w49 t11641; struct w49 t11642; struct w49 t11643; struct w49 t11644; unsigned t11645; struct w49 t11646; struct w49 t11647; struct w49 t11648; int t11649; int t11650; struct w49 t11651; struct w49 t11652; struct w49 t11653; char *t11654; /* x220374 */ /* x220373 stalin.sc:30392:1046160 */ /* x220364 stalin.sc:30392:1046168 */ /* x220310 stalin.sc:30392:1046173 */ /* x220308 stalin.sc:30392:1046177 */ /* x220307 stalin.sc:30392:1046188 */ t11641 = a32541; /* x220306 stalin.sc:30392:1046178 */ t11639 = f9734(t11641); /* x220309 stalin.sc:30392:1046191 */ t11640 = 3; /* x267906 stalin.sc:30392:1046174 */ if (!(t11639>=t11640)) goto l3761; /* x220362 */ /* x220315 stalin.sc:30393:1046202 */ /* x220314 stalin.sc:30393:1046212 */ /* x220313 stalin.sc:30393:1046223 */ t11643 = a32541; /* x220312 stalin.sc:30393:1046213 */ t11642 = f9722(t11643); /* x220311 stalin.sc:30393:1046203 */ if (f9766(t11642)==FALSE_TYPE) goto l3761; /* x220360 */ /* x220343 stalin.sc:30394:1046235 */ /* x220339 stalin.sc:30394:1046245 */ /* x220342 stalin.sc:30398:1046348 */ /* x220341 stalin.sc:30398:1046359 */ t11646 = a32541; /* x220340 stalin.sc:30398:1046349 */ t11644 = f9722(t11646); /* x220316 stalin.sc:30394:1046236 */ t11645 = NATIVE_PROCEDURE_TYPE14503; if (f9758(t11645, t11644)==FALSE_TYPE) goto l3761; /* x220358 */ /* x220348 stalin.sc:30399:1046371 */ /* x220347 stalin.sc:30399:1046381 */ /* x220346 stalin.sc:30399:1046391 */ t11648 = a32541; /* x220345 stalin.sc:30399:1046382 */ t11647 = f9723(t11648); /* x220344 stalin.sc:30399:1046372 */ if (f9766(t11647)==FALSE_TYPE) goto l3761; /* x220356 */ /* x220354 stalin.sc:30400:1046407 */ /* x220353 stalin.sc:30400:1046418 */ /* x220352 stalin.sc:30400:1046428 */ t11652 = a32541; /* x220351 stalin.sc:30400:1046419 */ t11651 = f9723(t11652); /* x220350 stalin.sc:30400:1046408 */ t11649 = f9734(t11651); /* x220355 stalin.sc:30400:1046432 */ t11650 = 1; /* x267903 stalin.sc:30400:1046404 */ if (!(t11649>=t11650)) goto l3761; /* x220366 */ /* x220365 */ goto l3762; l3761: /* x220372 */ /* x220371 */ /* x220370 stalin.sc:30401:1046439 */ /* x220368 stalin.sc:30401:1046453 */ t11653 = a32541; /* x220369 stalin.sc:30401:1046455 */ t11654 = "Improper PARALLEL-DO"; /* x220367 stalin.sc:30401:1046440 */ f9705(t11653, t11654); l3762: /* x220304 */ /* x220303 stalin.sc:30402:1046482 */ /* x220302 stalin.sc:30402:1046494 */ /* x220301 stalin.sc:30402:1046502 */ t11638 = "loop"; /* x220300 stalin.sc:30402:1046495 */ t11540 = f5362(t11638); /* x220299 */ a32543 = t11540; /* x220298 stalin.sc:30404:1046539 */ /* x220187 */ t11541 = q245; /* x220297 */ /* x220281 */ /* x220279 */ /* x220191 stalin.sc:30404:1046551 */ t11552 = a32543; /* x220278 */ /* x220276 */ /* x220194 */ t11559 = q39; /* x220275 */ /* x220201 stalin.sc:30404:1046565 */ /* x220197 stalin.sc:30404:1046573 */ /* x220200 stalin.sc:30404:1046582 */ /* x220199 stalin.sc:30404:1046593 */ t11569 = a32541; /* x220198 stalin.sc:30404:1046583 */ t11567 = f9722(t11569); /* x220196 stalin.sc:30404:1046566 */ t11568.tag = NATIVE_PROCEDURE_TYPE7183; t11563 = f9753(t11568, t11567); /* x220274 */ /* x220272 */ /* x220204 */ t11573 = q43; /* x220271 */ /* x220210 stalin.sc:30405:1046609 */ /* x220209 stalin.sc:30405:1046619 */ /* x220208 stalin.sc:30405:1046629 */ t11582 = a32541; /* x220207 stalin.sc:30405:1046620 */ t11580 = f9723(t11582); /* x220206 stalin.sc:30405:1046610 */ a41580 = t11580; /* x300432 stalin.sc:6964:241199 */ /* x300431 stalin.sc:6964:241207 */ t11581 = a41580; /* x300430 stalin.sc:6964:241200 */ t11577 = f9719(t11581); /* x220270 */ /* x220224 */ /* x220213 */ t11587 = q239; /* x220223 */ /* x220222 */ /* x220221 stalin.sc:30406:1046646 */ /* x220220 stalin.sc:30406:1046657 */ /* x220219 stalin.sc:30406:1046666 */ /* x220218 stalin.sc:30406:1046676 */ t11596 = a32541; /* x220217 stalin.sc:30406:1046667 */ t11594 = f9723(t11596); /* x220216 stalin.sc:30406:1046658 */ a41392 = t11594; /* x299680 stalin.sc:7008:242336 */ /* x299679 stalin.sc:7008:242344 */ t11595 = a41392; /* x299678 stalin.sc:7008:242337 */ t11593 = f9720(t11595); /* x220215 stalin.sc:30406:1046647 */ t11590 = f9772(t11593); /* x220214 */ t11592.tag = STRUCTURE_TYPE24753; t11592.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t11592.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18652]"); out_of_memory_error();} t11592.value.structure_type24753->s0.tag = NULL_TYPE; t11592.value.structure_type24753->s1.tag = NULL_TYPE; t11591 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11591==NULL) {backtrace_internal("[inside top level 18652]"); out_of_memory_error();} t11591->s0 = *((struct w49 *)(&t11590)); t11591->s1 = t11592; t11588 = f26254(t11591); /* x220212 */ t11589.tag = EXTERNAL_SYMBOL_TYPE; t11589.value.external_symbol_type = t11587; t11583 = f26175(t11589, t11588); /* x220269 */ /* x220267 */ /* x220227 */ t11600 = q748; /* x220266 */ /* x220265 */ /* x220263 */ /* x220240 stalin.sc:30409:1046760 */ t11617 = a32543; /* x220262 */ /* x220261 */ /* x220260 stalin.sc:30410:1046773 */ /* x220256 stalin.sc:30410:1046781 */ /* x220259 stalin.sc:30414:1046878 */ /* x220258 stalin.sc:30414:1046889 */ t11625 = a32541; /* x220257 stalin.sc:30414:1046879 */ t11623 = f9722(t11625); /* x220242 stalin.sc:30410:1046774 */ t11624.tag = NATIVE_PROCEDURE_TYPE14508; t11620 = f9753(t11624, t11623); /* x220241 */ t11622.tag = STRUCTURE_TYPE24753; t11622.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t11622.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18652]"); out_of_memory_error();} t11622.value.structure_type24753->s0.tag = NULL_TYPE; t11622.value.structure_type24753->s1.tag = NULL_TYPE; t11621 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11621==NULL) {backtrace_internal("[inside top level 18652]"); out_of_memory_error();} t11621->s0 = *((struct w49 *)(&t11620)); t11621->s1 = t11622; t11618 = f26254(t11621); /* x220239 */ t11619.tag = EXTERNAL_SYMBOL_TYPE; t11619.value.external_symbol_type = t11617; t11614 = f26175(t11619, t11618); /* x220264 */ /* x220238 */ t11615.tag = STRUCTURE_TYPE24753; t11615.value.structure_type24753 = t11614; t11616.tag = NULL_TYPE; t11604 = f26175(t11615, t11616); /* x220237 stalin.sc:30408:1046709 */ /* x220236 stalin.sc:30408:1046720 */ /* x220235 stalin.sc:30408:1046729 */ /* x220234 stalin.sc:30408:1046738 */ /* x220233 stalin.sc:30408:1046747 */ t11612 = a32541; /* x220232 stalin.sc:30408:1046739 */ a41395 = t11612; /* x299692 stalin.sc:7008:242336 */ /* x299691 stalin.sc:7008:242344 */ t11613 = a41395; /* x299690 stalin.sc:7008:242337 */ t11610 = f9720(t11613); /* x220231 stalin.sc:30408:1046730 */ a41394 = t11610; /* x299688 stalin.sc:7008:242336 */ /* x299687 stalin.sc:7008:242344 */ t11611 = a41394; /* x299686 stalin.sc:7008:242337 */ t11608 = f9720(t11611); /* x220230 stalin.sc:30408:1046721 */ a41393 = t11608; /* x299684 stalin.sc:7008:242336 */ /* x299683 stalin.sc:7008:242344 */ t11609 = a41393; /* x299682 stalin.sc:7008:242337 */ t11607 = f9720(t11609); /* x220229 stalin.sc:30408:1046710 */ t11603 = f9772(t11607); /* x220228 */ t11606.tag = STRUCTURE_TYPE24753; t11606.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t11606.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18652]"); out_of_memory_error();} t11606.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t11606.value.structure_type24753->s0.value.structure_type24753 = t11604; t11606.value.structure_type24753->s1.tag = NULL_TYPE; t11605 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11605==NULL) {backtrace_internal("[inside top level 18652]"); out_of_memory_error();} t11605->s0 = *((struct w49 *)(&t11603)); t11605->s1 = t11606; t11601 = f26254(t11605); /* x220226 */ t11602.tag = EXTERNAL_SYMBOL_TYPE; t11602.value.external_symbol_type = t11600; t11597 = f26175(t11602, t11601); /* x220268 */ /* x220225 */ t11598.tag = STRUCTURE_TYPE24753; t11598.value.structure_type24753 = t11597; t11599.tag = NULL_TYPE; t11584 = f26175(t11598, t11599); /* x220211 */ t11585.tag = STRUCTURE_TYPE24753; t11585.value.structure_type24753 = t11583; t11586.tag = STRUCTURE_TYPE24753; t11586.value.structure_type24753 = t11584; t11578 = f26175(t11585, t11586); /* x220205 */ t11579.tag = STRUCTURE_TYPE24753; t11579.value.structure_type24753 = t11578; t11574 = f26175(t11577, t11579); /* x220203 */ t11575.tag = EXTERNAL_SYMBOL_TYPE; t11575.value.external_symbol_type = t11573; t11576.tag = STRUCTURE_TYPE24753; t11576.value.structure_type24753 = t11574; t11570 = f26175(t11575, t11576); /* x220273 */ /* x220202 */ t11571.tag = STRUCTURE_TYPE24753; t11571.value.structure_type24753 = t11570; t11572.tag = NULL_TYPE; t11564 = f26175(t11571, t11572); /* x220195 */ t11565 = *((struct w49 *)(&t11563)); t11566.tag = STRUCTURE_TYPE24753; t11566.value.structure_type24753 = t11564; t11560 = f26175(t11565, t11566); /* x220193 */ t11561.tag = EXTERNAL_SYMBOL_TYPE; t11561.value.external_symbol_type = t11559; t11562.tag = STRUCTURE_TYPE24753; t11562.value.structure_type24753 = t11560; t11556 = f26175(t11561, t11562); /* x220277 */ /* x220192 */ t11557.tag = STRUCTURE_TYPE24753; t11557.value.structure_type24753 = t11556; t11558.tag = NULL_TYPE; t11553 = f26175(t11557, t11558); /* x220190 */ t11554.tag = EXTERNAL_SYMBOL_TYPE; t11554.value.external_symbol_type = t11552; t11555.tag = STRUCTURE_TYPE24753; t11555.value.structure_type24753 = t11553; t11549 = f26175(t11554, t11555); /* x220280 */ /* x220189 */ t11550.tag = STRUCTURE_TYPE24753; t11550.value.structure_type24753 = t11549; t11551.tag = NULL_TYPE; t11545 = f26175(t11550, t11551); /* x220296 */ /* x220294 */ /* x220284 stalin.sc:30415:1046906 */ t11629 = a32543; /* x220293 */ /* x220292 */ /* x220291 stalin.sc:30415:1046913 */ /* x220287 stalin.sc:30415:1046921 */ /* x220290 stalin.sc:30415:1046931 */ /* x220289 stalin.sc:30415:1046942 */ t11637 = a32541; /* x220288 stalin.sc:30415:1046932 */ t11635 = f9722(t11637); /* x220286 stalin.sc:30415:1046914 */ t11636.tag = NATIVE_PROCEDURE_TYPE7182; t11632 = f9753(t11636, t11635); /* x220285 */ t11634.tag = STRUCTURE_TYPE24753; t11634.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t11634.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18652]"); out_of_memory_error();} t11634.value.structure_type24753->s0.tag = NULL_TYPE; t11634.value.structure_type24753->s1.tag = NULL_TYPE; t11633 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11633==NULL) {backtrace_internal("[inside top level 18652]"); out_of_memory_error();} t11633->s0 = *((struct w49 *)(&t11632)); t11633->s1 = t11634; t11630 = f26254(t11633); /* x220283 */ t11631.tag = EXTERNAL_SYMBOL_TYPE; t11631.value.external_symbol_type = t11629; t11626 = f26175(t11631, t11630); /* x220295 */ /* x220282 */ t11627.tag = STRUCTURE_TYPE24753; t11627.value.structure_type24753 = t11626; t11628.tag = NULL_TYPE; t11546 = f26175(t11627, t11628); /* x220188 */ t11547.tag = STRUCTURE_TYPE24753; t11547.value.structure_type24753 = t11545; t11548.tag = STRUCTURE_TYPE24753; t11548.value.structure_type24753 = t11546; t11542 = f26175(t11547, t11548); /* x220186 */ t11543.tag = EXTERNAL_SYMBOL_TYPE; t11543.value.external_symbol_type = t11541; t11544.tag = STRUCTURE_TYPE24753; t11544.value.structure_type24753 = t11542; return f26175(t11543, t11544);} /* [inside top level 18646] */ struct structure_type24753 *f18646(struct w49 a32538, struct w49 a32539) {char *t11655; struct structure_type24753 *t11656; struct w49 t11657; struct w49 t11658; struct w49 t11659; struct structure_type24753 *t11660; struct w49 t11661; struct w49 t11662; struct w49 t11663; /* x220118 stalin.sc:30385:1045956 */ /* x220110 */ t11655 = q42; /* x220117 */ /* x220112 stalin.sc:30385:1045964 */ t11659 = a32538; /* x220116 */ /* x220114 stalin.sc:30385:1045974 */ t11662 = a32539; /* x220115 */ /* x220113 */ t11663.tag = NULL_TYPE; t11660 = f26175(t11662, t11663); /* x220111 */ t11661.tag = STRUCTURE_TYPE24753; t11661.value.structure_type24753 = t11660; t11656 = f26175(t11659, t11661); /* x220109 */ t11657.tag = EXTERNAL_SYMBOL_TYPE; t11657.value.external_symbol_type = t11655; t11658.tag = STRUCTURE_TYPE24753; t11658.value.structure_type24753 = t11656; return f26175(t11657, t11658);} /* [inside top level 18643] */ struct structure_type24753 *f18643(struct w49 a32535) {struct w12224 a32537; /* VARIABLES */ struct w49 a41387; /* S */ struct w49 a41388; /* S */ struct w49 a41389; /* S */ struct w49 a41390; /* S */ struct w12224 t11664; char *t11665; struct structure_type24753 *t11666; struct w49 t11667; struct w49 t11668; struct w12224 t11669; struct structure_type24753 *t11670; struct w49 t11671; struct w49 t11672; struct structure_type24753 *t11673; struct structure_type24753 *t11674; struct w49 t11675; struct w49 t11676; char *t11677; struct w49 t11678; struct w49 t11679; struct structure_type24753 *t11680; struct structure_type24753 *t11681; struct w49 t11682; struct w12224 t11683; struct w12224 t11684; struct w36270 t11685; struct w49 t11686; struct structure_type24753 *t11687; struct w49 t11688; struct w49 t11689; struct w49 t11690; struct w49 t11691; struct w49 t11692; struct structure_type24753 *t11693; struct w49 t11694; struct w49 t11695; struct w49 t11696; struct w49 t11697; struct w49 t11698; struct w12224 t11699; struct structure_type24753 *t11700; struct w49 t11701; struct w49 t11702; struct w198746 t11703; struct w49 t11704; struct w49 t11705; struct w49 t11706; struct w49 t11707; struct w49 t11708; int t11709; int t11710; struct w49 t11711; struct w49 t11712; char *t11713; /* x220181 */ /* x220180 stalin.sc:30380:1045713 */ /* x220171 stalin.sc:30380:1045721 */ /* x220163 stalin.sc:30380:1045726 */ /* x220162 stalin.sc:30380:1045736 */ t11708 = a32535; /* x220161 stalin.sc:30380:1045727 */ if (f9766(t11708)==FALSE_TYPE) goto l3768; /* x220169 */ /* x220167 stalin.sc:30380:1045743 */ /* x220166 stalin.sc:30380:1045754 */ t11711 = a32535; /* x220165 stalin.sc:30380:1045744 */ t11709 = f9734(t11711); /* x220168 stalin.sc:30380:1045757 */ t11710 = 2; /* x267908 stalin.sc:30380:1045740 */ if (!(t11709>=t11710)) goto l3768; /* x220173 */ /* x220172 */ goto l3769; l3768: /* x220179 */ /* x220178 */ /* x220177 stalin.sc:30381:1045764 */ /* x220175 stalin.sc:30381:1045778 */ t11712 = a32535; /* x220176 stalin.sc:30381:1045780 */ t11713 = "Improper PARALLEL-CALL"; /* x220174 stalin.sc:30381:1045765 */ f9705(t11712, t11713); l3769: /* x220160 */ /* x220159 stalin.sc:30382:1045809 */ /* x220158 stalin.sc:30383:1045828 */ /* x220152 stalin.sc:30383:1045836 */ /* x220157 stalin.sc:30383:1045862 */ /* x220156 stalin.sc:30383:1045871 */ /* x220155 stalin.sc:30383:1045880 */ t11706 = a32535; /* x220154 stalin.sc:30383:1045872 */ a41390 = t11706; /* x299672 stalin.sc:7008:242336 */ /* x299671 stalin.sc:7008:242344 */ t11707 = a41390; /* x299670 stalin.sc:7008:242337 */ t11704 = f9720(t11707); /* x220153 stalin.sc:30383:1045863 */ a41389 = t11704; /* x299668 stalin.sc:7008:242336 */ /* x299667 stalin.sc:7008:242344 */ t11705 = a41389; /* x299666 stalin.sc:7008:242337 */ t11702 = f9720(t11705); /* x220148 stalin.sc:30383:1045829 */ t11703.tag = NATIVE_PROCEDURE_TYPE14512; t11664 = f9753(t11703, t11702); /* x220147 */ a32537 = t11664; /* x220146 stalin.sc:30384:1045890 */ /* x220101 */ t11665 = q242; /* x220145 */ /* x220103 stalin.sc:30384:1045897 */ t11669 = a32537; /* x220144 */ /* x220131 */ /* x220106 */ t11677 = q748; /* x220130 */ /* x220129 */ /* x220128 stalin.sc:30385:1045930 */ /* x220127 stalin.sc:30387:1046002 */ /* x220126 stalin.sc:30387:1046013 */ /* x220125 stalin.sc:30387:1046022 */ /* x220124 stalin.sc:30387:1046031 */ t11691 = a32535; /* x220123 stalin.sc:30387:1046023 */ a41388 = t11691; /* x299664 stalin.sc:7008:242336 */ /* x299663 stalin.sc:7008:242344 */ t11692 = a41388; /* x299662 stalin.sc:7008:242337 */ t11689 = f9720(t11692); /* x220122 stalin.sc:30387:1046014 */ a41387 = t11689; /* x299660 stalin.sc:7008:242336 */ /* x299659 stalin.sc:7008:242344 */ t11690 = a41387; /* x299658 stalin.sc:7008:242337 */ t11688 = f9720(t11690); /* x220121 stalin.sc:30387:1046003 */ t11684 = f9772(t11688); /* x220120 stalin.sc:30386:1045985 */ t11683 = a32537; /* x220119 stalin.sc:30385:1045935 */ /* x220108 stalin.sc:30385:1045931 */ t11685.tag = NATIVE_PROCEDURE_TYPE14514; t11686 = *((struct w49 *)(&t11683)); t11687 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11687==NULL) {backtrace("stalin.sc", 30385, 1045930); out_of_memory_error();} t11687->s0 = *((struct w49 *)(&t11684)); t11687->s1.tag = NULL_TYPE; t11680 = f27731(t11685, t11686, t11687); /* x220107 */ t11682.tag = STRUCTURE_TYPE24753; t11682.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t11682.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18645]"); out_of_memory_error();} t11682.value.structure_type24753->s0.tag = NULL_TYPE; t11682.value.structure_type24753->s1.tag = NULL_TYPE; t11681 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11681==NULL) {backtrace_internal("[inside top level 18645]"); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t11680>=((struct structure_type24753 *)VALUE_OFFSET)) {t11681->s0.tag = STRUCTURE_TYPE24753; t11681->s0.value.structure_type24753 = t11680;} else t11681->s0.tag = (unsigned)t11680; t11681->s1 = t11682; t11678 = f26254(t11681); /* x220105 */ t11679.tag = EXTERNAL_SYMBOL_TYPE; t11679.value.external_symbol_type = t11677; t11673 = f26175(t11679, t11678); /* x220143 */ /* x220141 */ /* x220136 stalin.sc:30388:1046045 */ /* x220135 stalin.sc:30388:1046056 */ t11698 = a32535; /* x220134 stalin.sc:30388:1046046 */ t11696 = f9722(t11698); /* x220140 */ /* x220139 */ /* x220138 stalin.sc:30388:1046061 */ t11699 = a32537; /* x220137 */ t11701.tag = STRUCTURE_TYPE24753; t11701.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t11701.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18645]"); out_of_memory_error();} t11701.value.structure_type24753->s0.tag = NULL_TYPE; t11701.value.structure_type24753->s1.tag = NULL_TYPE; t11700 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11700==NULL) {backtrace_internal("[inside top level 18645]"); out_of_memory_error();} t11700->s0 = *((struct w49 *)(&t11699)); t11700->s1 = t11701; t11697 = f26254(t11700); /* x220133 */ t11693 = f26175(t11696, t11697); /* x220142 */ /* x220132 */ t11694.tag = STRUCTURE_TYPE24753; t11694.value.structure_type24753 = t11693; t11695.tag = NULL_TYPE; t11674 = f26175(t11694, t11695); /* x220104 */ t11675.tag = STRUCTURE_TYPE24753; t11675.value.structure_type24753 = t11673; t11676.tag = STRUCTURE_TYPE24753; t11676.value.structure_type24753 = t11674; t11670 = f26175(t11675, t11676); /* x220102 */ t11671 = *((struct w49 *)(&t11669)); t11672.tag = STRUCTURE_TYPE24753; t11672.value.structure_type24753 = t11670; t11666 = f26175(t11671, t11672); /* x220100 */ t11667.tag = EXTERNAL_SYMBOL_TYPE; t11667.value.external_symbol_type = t11665; t11668.tag = STRUCTURE_TYPE24753; t11668.value.structure_type24753 = t11666; return f26175(t11667, t11668);} /* [inside top level 18639] */ struct w49 f18639(struct w49 a32534) {struct w49 r18639; struct w49 a41396; /* S */ struct w49 a41397; /* S */ struct w49 a41398; /* S */ struct w49 a41399; /* S */ struct w49 a41400; /* S */ struct w49 t11714; struct w49 t11715; struct w49 t11716; struct w49 t11717; struct w49 t11718; struct w49 t11719; struct w49 t11720; struct w49 t11721; struct structure_type24753 *t11722; struct structure_type24753 *t11723; struct w49 t11724; struct w49 t11725; struct structure_type24753 *t11726; struct structure_type24753 *t11729; struct structure_type24753 *t11730; struct w49 t11731; struct w49 t11732; char *t11733; struct structure_type24753 *t11734; struct w49 t11735; struct w49 t11736; struct structure_type24753 *t11737; struct w49 t11738; struct w49 t11739; struct w49 t11740; struct w49 t11741; struct w49 t11742; struct structure_type24753 *t11743; struct w49 t11744; struct w49 t11745; char *t11746; struct structure_type24753 *t11747; struct w49 t11748; struct w49 t11749; struct structure_type24753 *t11750; struct w49 t11751; struct w49 t11752; struct structure_type24753 *t11753; struct w49 t11754; struct w49 t11755; char *t11756; struct w49 t11757; struct w49 t11758; struct w12224 t11759; struct structure_type24753 *t11760; struct w49 t11761; struct w49 t11762; struct w49 t11763; struct w49 t11764; struct w49 t11765; struct w49 t11766; struct w49 t11767; /* x220095 stalin.sc:30371:1045426 */ /* x220024 stalin.sc:30372:1045436 */ /* x220023 stalin.sc:30372:1045446 */ /* x220022 stalin.sc:30372:1045455 */ t11715 = a32534; /* x220021 stalin.sc:30372:1045447 */ a41400 = t11715; /* x299712 stalin.sc:7008:242336 */ /* x299711 stalin.sc:7008:242344 */ t11716 = a41400; /* x299710 stalin.sc:7008:242337 */ t11714 = f9720(t11716); /* x220020 stalin.sc:30372:1045437 */ if (f9739(t11714)==FALSE_TYPE) goto l3772; /* x220033 */ /* x220032 */ /* x220031 stalin.sc:30372:1045459 */ r18639.tag = STRUCTURE_TYPE24753; r18639.value.structure_type24753 = &t11768; return r18639; l3772: /* x220094 */ /* x220040 stalin.sc:30373:1045479 */ /* x220039 stalin.sc:30373:1045489 */ /* x220038 stalin.sc:30373:1045498 */ /* x220037 stalin.sc:30373:1045507 */ t11720 = a32534; /* x220036 stalin.sc:30373:1045499 */ a41399 = t11720; /* x299708 stalin.sc:7008:242336 */ /* x299707 stalin.sc:7008:242344 */ t11721 = a41399; /* x299706 stalin.sc:7008:242337 */ t11718 = f9720(t11721); /* x220035 stalin.sc:30373:1045490 */ a41398 = t11718; /* x299704 stalin.sc:7008:242336 */ /* x299703 stalin.sc:7008:242344 */ t11719 = a41398; /* x299702 stalin.sc:7008:242337 */ t11717 = f9720(t11719); /* x220034 stalin.sc:30373:1045480 */ if (f9739(t11717)==FALSE_TYPE) goto l3774; /* x220045 */ /* x220044 */ /* x220043 stalin.sc:30373:1045512 */ /* x220042 stalin.sc:30373:1045523 */ t11767 = a32534; /* x220041 stalin.sc:30373:1045513 */ return f9722(t11767); l3774: /* x220093 */ /* x220092 */ /* x220091 stalin.sc:30374:1045536 */ /* x220051 */ t11722 = &t11727; /* x220090 */ /* x220064 */ /* x220054 */ t11733 = q39; /* x220063 */ /* x220056 */ /* x220062 */ /* x220060 stalin.sc:30375:1045581 */ /* x220059 stalin.sc:30375:1045592 */ t11742 = a32534; /* x220058 stalin.sc:30375:1045582 */ t11740 = f9722(t11742); /* x220061 */ /* x220057 */ t11741.tag = NULL_TYPE; t11737 = f26175(t11740, t11741); /* x220055 */ t11738.tag = NULL_TYPE; t11739.tag = STRUCTURE_TYPE24753; t11739.value.structure_type24753 = t11737; t11734 = f26175(t11738, t11739); /* x220053 */ t11735.tag = EXTERNAL_SYMBOL_TYPE; t11735.value.external_symbol_type = t11733; t11736.tag = STRUCTURE_TYPE24753; t11736.value.structure_type24753 = t11734; t11729 = f26175(t11735, t11736); /* x220089 */ /* x220087 */ /* x220067 */ t11746 = q39; /* x220086 */ /* x220069 */ /* x220085 */ /* x220083 */ /* x220072 */ t11756 = q748; /* x220082 */ /* x220081 */ /* x220080 stalin.sc:30377:1045634 */ /* x220079 stalin.sc:30377:1045645 */ /* x220078 stalin.sc:30377:1045654 */ /* x220077 stalin.sc:30377:1045663 */ t11765 = a32534; /* x220076 stalin.sc:30377:1045655 */ a41397 = t11765; /* x299700 stalin.sc:7008:242336 */ /* x299699 stalin.sc:7008:242344 */ t11766 = a41397; /* x299698 stalin.sc:7008:242337 */ t11763 = f9720(t11766); /* x220075 stalin.sc:30377:1045646 */ a41396 = t11763; /* x299696 stalin.sc:7008:242336 */ /* x299695 stalin.sc:7008:242344 */ t11764 = a41396; /* x299694 stalin.sc:7008:242337 */ t11762 = f9720(t11764); /* x220074 stalin.sc:30377:1045635 */ t11759 = f9772(t11762); /* x220073 */ t11761.tag = STRUCTURE_TYPE24753; t11761.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t11761.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18642]"); out_of_memory_error();} t11761.value.structure_type24753->s0.tag = NULL_TYPE; t11761.value.structure_type24753->s1.tag = NULL_TYPE; t11760 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11760==NULL) {backtrace_internal("[inside top level 18642]"); out_of_memory_error();} t11760->s0 = *((struct w49 *)(&t11759)); t11760->s1 = t11761; t11757 = f26254(t11760); /* x220071 */ t11758.tag = EXTERNAL_SYMBOL_TYPE; t11758.value.external_symbol_type = t11756; t11753 = f26175(t11758, t11757); /* x220084 */ /* x220070 */ t11754.tag = STRUCTURE_TYPE24753; t11754.value.structure_type24753 = t11753; t11755.tag = NULL_TYPE; t11750 = f26175(t11754, t11755); /* x220068 */ t11751.tag = NULL_TYPE; t11752.tag = STRUCTURE_TYPE24753; t11752.value.structure_type24753 = t11750; t11747 = f26175(t11751, t11752); /* x220066 */ t11748.tag = EXTERNAL_SYMBOL_TYPE; t11748.value.external_symbol_type = t11746; t11749.tag = STRUCTURE_TYPE24753; t11749.value.structure_type24753 = t11747; t11743 = f26175(t11748, t11749); /* x220088 */ /* x220065 */ t11744.tag = STRUCTURE_TYPE24753; t11744.value.structure_type24753 = t11743; t11745.tag = NULL_TYPE; t11730 = f26175(t11744, t11745); /* x220052 */ t11731.tag = STRUCTURE_TYPE24753; t11731.value.structure_type24753 = t11729; t11732.tag = STRUCTURE_TYPE24753; t11732.value.structure_type24753 = t11730; t11723 = f26175(t11731, t11732); /* x220046 */ t11724.tag = STRUCTURE_TYPE24753; t11724.value.structure_type24753 = t11722; t11725.tag = STRUCTURE_TYPE24753; t11725.value.structure_type24753 = t11723; t11726 = f26175(t11724, t11725); r18639.tag = STRUCTURE_TYPE24753; r18639.value.structure_type24753 = t11726; return r18639;} /* LOOP[18621] */ struct w49 f18621(struct w49 a32529) {struct w49 r18621; struct w49 a32530; /* v */ struct w49 a41098; /* S */ struct w49 a41364; /* S */ struct w49 a41365; /* S */ struct w49 a41366; /* S */ struct w49 a41531; /* S */ struct w49 a41532; /* S */ struct w49 a41533; /* S */ struct w49 a41534; /* S */ struct w49 a41535; /* S */ struct w49 a41536; /* S */ struct w49 a41537; /* S */ struct w49 a41538; /* S */ struct w49 a41539; /* S */ struct w49 a41540; /* S */ struct w49 a41541; /* S */ struct w49 a41542; /* S */ struct w49 a41543; /* S */ struct w49 a42395; /* S */ struct w49 t11771; struct w49 t11772; struct w49 t11773; char *t11774; struct w49 t11775; struct w49 t11776; char *t11777; struct w49 t11778; struct w49 t11779; char *t11780; struct w49 t11781; struct w49 t11782; char *t11783; struct w49 t11784; struct w49 t11785; char *t11786; struct w49 t11787; struct w49 t11788; char *t11789; struct w49 t11790; struct w49 t11791; char *t11792; struct w49 t11793; char *t11794; struct structure_type24753 *t11795; struct w49 t11796; struct w49 t11797; struct structure_type24753 *t11798; char *t11799; struct structure_type24753 *t11800; struct w49 t11801; struct w49 t11802; char *t11803; struct structure_type24753 *t11804; struct w49 t11805; struct w49 t11806; struct structure_type24753 *t11807; struct w49 t11808; struct w49 t11809; struct structure_type24753 *t11810; struct w49 t11811; struct w49 t11812; char *t11813; struct structure_type24753 *t11814; struct w49 t11815; struct w49 t11816; struct structure_type24753 *t11817; struct structure_type24753 *t11818; struct w49 t11819; struct w49 t11820; struct structure_type24753 *t11823; struct structure_type24753 *t11824; struct w49 t11825; struct w49 t11826; char *t11827; struct structure_type24753 *t11828; struct w49 t11829; struct w49 t11830; struct w49 t11831; struct structure_type24753 *t11832; struct w49 t11833; struct w49 t11834; struct w49 t11835; struct w49 t11836; struct w49 t11837; struct w49 t11838; struct structure_type24753 *t11839; struct w49 t11840; struct w49 t11841; char *t11842; struct structure_type24753 *t11843; struct w49 t11844; struct w49 t11845; struct structure_type24753 *t11846; struct structure_type24753 *t11847; struct w49 t11848; struct w49 t11849; struct w49 t11850; struct structure_type24753 *t11851; struct w49 t11852; struct w49 t11853; struct w49 t11854; struct w49 t11855; struct w49 t11856; struct w49 t11861; struct w49 t11862; struct w49 t11863; struct w49 t11864; struct w49 t11865; struct w49 t11866; struct w49 t11867; struct structure_type24753 *t11876; struct w49 t11877; char *t11878; struct structure_type24753 *t11879; struct w49 t11880; struct w49 t11881; struct structure_type24753 *t11882; struct structure_type24753 *t11883; struct w49 t11884; struct w49 t11885; struct structure_type24753 *t11888; struct structure_type24753 *t11889; struct w49 t11890; struct w49 t11891; char *t11892; struct structure_type24753 *t11893; struct w49 t11894; struct w49 t11895; struct w49 t11896; struct structure_type24753 *t11897; struct w49 t11898; struct w49 t11899; struct w49 t11900; struct w49 t11901; struct w49 t11902; struct w49 t11903; struct structure_type24753 *t11904; struct w49 t11905; struct w49 t11906; struct w49 t11907; struct structure_type24753 *t11908; struct w49 t11909; struct w49 t11910; struct w49 t11911; struct w49 t11912; struct w49 t11913; struct w49 t11924; struct w49 t11925; struct w49 t11926; struct structure_type24753 *t11927; struct w49 t11928; struct structure_type24753 *t11929; struct w49 t11930; struct structure_type24753 *t11931; struct structure_type24753 *t11932; struct w49 t11933; struct w49 t11934; struct structure_type24753 *t11941; struct structure_type24753 *t11942; struct w49 t11943; struct w49 t11944; char *t11945; struct structure_type24753 *t11946; struct w49 t11947; struct w49 t11948; struct w49 t11949; struct structure_type24753 *t11950; struct w49 t11951; struct w49 t11952; struct w49 t11953; struct w49 t11954; struct w49 t11955; struct w49 t11956; struct structure_type24753 *t11957; struct w49 t11958; struct w49 t11959; struct w49 t11960; struct structure_type24753 *t11961; struct w49 t11962; struct w49 t11963; struct w49 t11964; struct w49 t11965; struct w49 t11966; struct w49 t11977; struct w49 t11978; struct w49 t11979; struct w49 t11980; struct w49 t11981; struct w49 t11982; struct w49 t11983; struct w49 t11984; struct w49 t11985; struct w49 t11986; struct w49 t11987; struct w49 t11988; struct w49 t11989; h18621: /* x219964 stalin.sc:30310:1043175 */ /* x219648 stalin.sc:30310:1043179 */ /* x219647 stalin.sc:30310:1043189 */ t11771 = a32529; /* x219646 stalin.sc:30310:1043180 */ if (f9739(t11771)==FALSE_TYPE) goto l3776; /* x219663 stalin.sc:30311:1043200 */ r18621.tag = STRUCTURE_TYPE24753; r18621.value.structure_type24753 = &t11990; return r18621; l3776: /* x219963 stalin.sc:30312:1043246 */ /* x219962 stalin.sc:30312:1043252 */ /* x219961 stalin.sc:30312:1043262 */ /* x219960 stalin.sc:30312:1043272 */ /* x219959 stalin.sc:30312:1043282 */ t11988 = a32529; /* x219958 stalin.sc:30312:1043273 */ a41543 = t11988; /* x300284 stalin.sc:6964:241199 */ /* x300283 stalin.sc:6964:241207 */ t11989 = a41543; /* x300282 stalin.sc:6964:241200 */ t11986 = f9719(t11989); /* x219957 stalin.sc:30312:1043263 */ a41542 = t11986; /* x300280 stalin.sc:6964:241199 */ /* x300279 stalin.sc:6964:241207 */ t11987 = a41542; /* x300278 stalin.sc:6964:241200 */ t11983 = f9719(t11987); /* x219956 stalin.sc:30312:1043253 */ a41098 = t11983; /* x298504 stalin.sc:6937:240340 */ /* x298503 stalin.sc:6937:240360 */ t11984 = a41098; /* x298502 stalin.sc:6937:240341 */ a42395 = t11984; /* x303078 */ /* x303077 */ t11985 = a42395; /* x303076 */ if (!((t11985.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37571]"); structure_ref_error();} t11772 = t11985.value.structure_type27510->s9; /* x219955 */ a32530 = t11772; /* x219954 */ /* x219694 */ /* x219693 */ /* x219691 */ t11773 = a32530; /* x219692 */ t11774 = q744; /* x219690 */ t11775.tag = EXTERNAL_SYMBOL_TYPE; t11775.value.external_symbol_type = t11774; if (!(f26160(t11773, t11775)==FALSE_TYPE)) goto l3777; /* x219687 */ /* x219686 */ /* x219684 */ t11776 = a32530; /* x219685 */ t11777 = q745; /* x219683 */ t11778.tag = EXTERNAL_SYMBOL_TYPE; t11778.value.external_symbol_type = t11777; if (!(f26160(t11776, t11778)==FALSE_TYPE)) goto l3777; /* x219680 */ /* x219679 */ /* x219677 */ t11779 = a32530; /* x219678 */ t11780 = q746; /* x219676 */ t11781.tag = EXTERNAL_SYMBOL_TYPE; t11781.value.external_symbol_type = t11780; if (!(f26160(t11779, t11781)==FALSE_TYPE)) goto l3777; /* x219673 */ /* x219671 */ t11782 = a32530; /* x219672 */ t11783 = q747; /* x219670 */ t11784.tag = EXTERNAL_SYMBOL_TYPE; t11784.value.external_symbol_type = t11783; if (f26160(t11782, t11784)==FALSE_TYPE) goto l3778; l3777: /* x219701 */ /* x219700 */ /* x219699 stalin.sc:30314:1043343 */ /* x219698 stalin.sc:30314:1043349 */ /* x219697 stalin.sc:30314:1043358 */ t11981 = a32529; /* x219696 stalin.sc:30314:1043350 */ a41364 = t11981; /* x299568 stalin.sc:7008:242336 */ /* x299567 stalin.sc:7008:242344 */ t11982 = a41364; /* x299566 stalin.sc:7008:242337 */ t11980 = f9720(t11982); /* x219695 stalin.sc:30314:1043344 */ a32529 = t11980; goto h18621; l3778: /* x219953 */ /* x219705 */ /* x219703 */ t11785 = a32530; /* x219704 */ t11786 = q743; /* x219702 */ t11787.tag = EXTERNAL_SYMBOL_TYPE; t11787.value.external_symbol_type = t11786; if (f26160(t11785, t11787)==FALSE_TYPE) goto l3783; /* x219777 */ /* x219776 */ /* x219775 stalin.sc:30316:1043380 */ /* x219774 stalin.sc:30321:1043607 */ /* x219773 stalin.sc:30321:1043613 */ /* x219772 stalin.sc:30321:1043622 */ t11978 = a32529; /* x219771 stalin.sc:30321:1043614 */ a41365 = t11978; /* x299572 stalin.sc:7008:242336 */ /* x299571 stalin.sc:7008:242344 */ t11979 = a41365; /* x299570 stalin.sc:7008:242337 */ t11977 = f9720(t11979); /* x219770 stalin.sc:30321:1043608 */ t11928 = f18621(t11977); /* x219769 stalin.sc:30316:1043388 */ /* x219720 */ t11931 = &t11935; /* x219768 */ /* x219754 */ /* x219723 */ t11945 = q42; /* x219753 */ /* x219731 stalin.sc:30317:1043436 */ /* x219730 stalin.sc:30317:1043446 */ /* x219729 stalin.sc:30317:1043457 */ /* x219728 stalin.sc:30317:1043467 */ t11955 = a32529; /* x219727 stalin.sc:30317:1043458 */ a41532 = t11955; /* x300240 stalin.sc:6964:241199 */ /* x300239 stalin.sc:6964:241207 */ t11956 = a41532; /* x300238 stalin.sc:6964:241200 */ t11954 = f9719(t11956); /* x219726 stalin.sc:30317:1043447 */ t11952 = f9722(t11954); /* x219725 stalin.sc:30317:1043437 */ a41531 = t11952; /* x300236 stalin.sc:6964:241199 */ /* x300235 stalin.sc:6964:241207 */ t11953 = a41531; /* x300234 stalin.sc:6964:241200 */ t11949 = f9719(t11953); /* x219752 */ /* x219750 */ /* x219740 stalin.sc:30318:1043479 */ /* x219739 stalin.sc:30318:1043489 */ /* x219738 stalin.sc:30318:1043500 */ /* x219737 stalin.sc:30318:1043510 */ t11965 = a32529; /* x219736 stalin.sc:30318:1043501 */ a41533 = t11965; /* x300244 stalin.sc:6964:241199 */ /* x300243 stalin.sc:6964:241207 */ t11966 = a41533; /* x300242 stalin.sc:6964:241200 */ t11964 = f9719(t11966); /* x219735 stalin.sc:30318:1043490 */ t11963 = f9722(t11964); /* x219734 stalin.sc:30318:1043480 */ t11960 = f9723(t11963); /* x219749 */ t11961 = &t11967; /* x219733 */ t11962.tag = STRUCTURE_TYPE24753; t11962.value.structure_type24753 = t11961; t11957 = f26175(t11960, t11962); /* x219751 */ /* x219732 */ t11958.tag = STRUCTURE_TYPE24753; t11958.value.structure_type24753 = t11957; t11959.tag = NULL_TYPE; t11950 = f26175(t11958, t11959); /* x219724 */ t11951.tag = STRUCTURE_TYPE24753; t11951.value.structure_type24753 = t11950; t11946 = f26175(t11949, t11951); /* x219722 */ t11947.tag = EXTERNAL_SYMBOL_TYPE; t11947.value.external_symbol_type = t11945; t11948.tag = STRUCTURE_TYPE24753; t11948.value.structure_type24753 = t11946; t11941 = f26175(t11947, t11948); /* x219767 */ t11942 = &t11971; /* x219721 */ t11943.tag = STRUCTURE_TYPE24753; t11943.value.structure_type24753 = t11941; t11944.tag = STRUCTURE_TYPE24753; t11944.value.structure_type24753 = t11942; t11932 = f26175(t11943, t11944); /* x219707 */ t11933.tag = STRUCTURE_TYPE24753; t11933.value.structure_type24753 = t11931; t11934.tag = STRUCTURE_TYPE24753; t11934.value.structure_type24753 = t11932; t11927 = f26175(t11933, t11934); /* x219706 stalin.sc:30316:1043381 */ t11930.tag = STRUCTURE_TYPE24753; t11930.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t11930.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30316, 1043380); out_of_memory_error();} t11930.value.structure_type24753->s0 = t11928; t11930.value.structure_type24753->s1.tag = NULL_TYPE; t11929 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t11929==NULL) {backtrace("stalin.sc", 30316, 1043380); out_of_memory_error();} t11929->s0.tag = STRUCTURE_TYPE24753; t11929->s0.value.structure_type24753 = t11927; t11929->s1 = t11930; return f26254(t11929); l3783: /* x219952 */ /* x219781 */ /* x219779 */ t11788 = a32530; /* x219780 */ t11789 = q741; /* x219778 */ t11790.tag = EXTERNAL_SYMBOL_TYPE; t11790.value.external_symbol_type = t11789; if (f26160(t11788, t11790)==FALSE_TYPE) goto l3785; /* x219848 */ /* x219847 */ /* x219846 stalin.sc:30323:1043645 */ /* x219840 stalin.sc:30323:1043651 */ /* x219784 */ t11878 = q494; /* x219839 */ /* x219790 */ t11882 = &t11886; /* x219838 */ /* x219824 */ /* x219793 */ t11892 = q42; /* x219823 */ /* x219801 stalin.sc:30324:1043689 */ /* x219800 stalin.sc:30324:1043699 */ /* x219799 stalin.sc:30324:1043710 */ /* x219798 stalin.sc:30324:1043720 */ t11902 = a32529; /* x219797 stalin.sc:30324:1043711 */ a41535 = t11902; /* x300252 stalin.sc:6964:241199 */ /* x300251 stalin.sc:6964:241207 */ t11903 = a41535; /* x300250 stalin.sc:6964:241200 */ t11901 = f9719(t11903); /* x219796 stalin.sc:30324:1043700 */ t11899 = f9722(t11901); /* x219795 stalin.sc:30324:1043690 */ a41534 = t11899; /* x300248 stalin.sc:6964:241199 */ /* x300247 stalin.sc:6964:241207 */ t11900 = a41534; /* x300246 stalin.sc:6964:241200 */ t11896 = f9719(t11900); /* x219822 */ /* x219820 */ /* x219810 stalin.sc:30325:1043737 */ /* x219809 stalin.sc:30325:1043747 */ /* x219808 stalin.sc:30325:1043758 */ /* x219807 stalin.sc:30325:1043768 */ t11912 = a32529; /* x219806 stalin.sc:30325:1043759 */ a41536 = t11912; /* x300256 stalin.sc:6964:241199 */ /* x300255 stalin.sc:6964:241207 */ t11913 = a41536; /* x300254 stalin.sc:6964:241200 */ t11911 = f9719(t11913); /* x219805 stalin.sc:30325:1043748 */ t11910 = f9722(t11911); /* x219804 stalin.sc:30325:1043738 */ t11907 = f9723(t11910); /* x219819 */ t11908 = &t11914; /* x219803 */ t11909.tag = STRUCTURE_TYPE24753; t11909.value.structure_type24753 = t11908; t11904 = f26175(t11907, t11909); /* x219821 */ /* x219802 */ t11905.tag = STRUCTURE_TYPE24753; t11905.value.structure_type24753 = t11904; t11906.tag = NULL_TYPE; t11897 = f26175(t11905, t11906); /* x219794 */ t11898.tag = STRUCTURE_TYPE24753; t11898.value.structure_type24753 = t11897; t11893 = f26175(t11896, t11898); /* x219792 */ t11894.tag = EXTERNAL_SYMBOL_TYPE; t11894.value.external_symbol_type = t11892; t11895.tag = STRUCTURE_TYPE24753; t11895.value.structure_type24753 = t11893; t11888 = f26175(t11894, t11895); /* x219837 */ t11889 = &t11918; /* x219791 */ t11890.tag = STRUCTURE_TYPE24753; t11890.value.structure_type24753 = t11888; t11891.tag = STRUCTURE_TYPE24753; t11891.value.structure_type24753 = t11889; t11883 = f26175(t11890, t11891); /* x219785 */ t11884.tag = STRUCTURE_TYPE24753; t11884.value.structure_type24753 = t11882; t11885.tag = STRUCTURE_TYPE24753; t11885.value.structure_type24753 = t11883; t11879 = f26175(t11884, t11885); /* x219783 */ t11880.tag = EXTERNAL_SYMBOL_TYPE; t11880.value.external_symbol_type = t11878; t11881.tag = STRUCTURE_TYPE24753; t11881.value.structure_type24753 = t11879; t11876 = f26175(t11880, t11881); /* x219845 stalin.sc:30328:1043866 */ /* x219844 stalin.sc:30328:1043872 */ /* x219843 stalin.sc:30328:1043881 */ t11925 = a32529; /* x219842 stalin.sc:30328:1043873 */ a41366 = t11925; /* x299576 stalin.sc:7008:242336 */ /* x299575 stalin.sc:7008:242344 */ t11926 = a41366; /* x299574 stalin.sc:7008:242337 */ t11924 = f9720(t11926); /* x219841 stalin.sc:30328:1043867 */ t11877 = f18621(t11924); /* x267910 stalin.sc:30323:1043646 */ r18621.tag = STRUCTURE_TYPE24753; r18621.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r18621.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30323, 1043645); out_of_memory_error();} r18621.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; r18621.value.structure_type24753->s0.value.structure_type24753 = t11876; r18621.value.structure_type24753->s1 = t11877; return r18621; l3785: /* x219951 */ /* x219852 */ /* x219850 */ t11791 = a32530; /* x219851 */ t11792 = q742; /* x219849 */ t11793.tag = EXTERNAL_SYMBOL_TYPE; t11793.value.external_symbol_type = t11792; if (f26160(t11791, t11793)==FALSE_TYPE) goto l3787; /* x219946 */ /* x219945 */ /* x219944 stalin.sc:30330:1043900 */ /* x219942 */ /* x219855 */ t11799 = q242; /* x219941 */ /* x219857 */ t11803 = q287; /* x219940 */ /* x219859 */ /* x219939 */ /* x219937 */ /* x219862 */ t11813 = q494; /* x219936 */ /* x219868 */ t11817 = &t11821; /* x219935 */ /* x219917 */ /* x219871 */ t11827 = q42; /* x219916 */ /* x219879 stalin.sc:30332:1043961 */ /* x219878 stalin.sc:30332:1043971 */ /* x219877 stalin.sc:30332:1043982 */ /* x219876 stalin.sc:30332:1043992 */ t11837 = a32529; /* x219875 stalin.sc:30332:1043983 */ a41538 = t11837; /* x300264 stalin.sc:6964:241199 */ /* x300263 stalin.sc:6964:241207 */ t11838 = a41538; /* x300262 stalin.sc:6964:241200 */ t11836 = f9719(t11838); /* x219874 stalin.sc:30332:1043972 */ t11834 = f9722(t11836); /* x219873 stalin.sc:30332:1043962 */ a41537 = t11834; /* x300260 stalin.sc:6964:241199 */ /* x300259 stalin.sc:6964:241207 */ t11835 = a41537; /* x300258 stalin.sc:6964:241200 */ t11831 = f9719(t11835); /* x219915 */ /* x219913 */ /* x219882 */ t11842 = q106; /* x219912 */ /* x219901 */ /* x219891 stalin.sc:30333:1044011 */ /* x219890 stalin.sc:30333:1044021 */ /* x219889 stalin.sc:30333:1044032 */ /* x219888 stalin.sc:30333:1044042 */ t11855 = a32529; /* x219887 stalin.sc:30333:1044033 */ a41539 = t11855; /* x300268 stalin.sc:6964:241199 */ /* x300267 stalin.sc:6964:241207 */ t11856 = a41539; /* x300266 stalin.sc:6964:241200 */ t11854 = f9719(t11856); /* x219886 stalin.sc:30333:1044022 */ t11853 = f9722(t11854); /* x219885 stalin.sc:30333:1044012 */ t11850 = f9723(t11853); /* x219900 */ t11851 = &t11857; /* x219884 */ t11852.tag = STRUCTURE_TYPE24753; t11852.value.structure_type24753 = t11851; t11846 = f26175(t11850, t11852); /* x219911 */ /* x219909 stalin.sc:30335:1044091 */ /* x219908 stalin.sc:30335:1044101 */ /* x219907 stalin.sc:30335:1044112 */ /* x219906 stalin.sc:30335:1044122 */ t11866 = a32529; /* x219905 stalin.sc:30335:1044113 */ a41541 = t11866; /* x300276 stalin.sc:6964:241199 */ /* x300275 stalin.sc:6964:241207 */ t11867 = a41541; /* x300274 stalin.sc:6964:241200 */ t11865 = f9719(t11867); /* x219904 stalin.sc:30335:1044102 */ t11863 = f9722(t11865); /* x219903 stalin.sc:30335:1044092 */ a41540 = t11863; /* x300272 stalin.sc:6964:241199 */ /* x300271 stalin.sc:6964:241207 */ t11864 = a41540; /* x300270 stalin.sc:6964:241200 */ t11861 = f9719(t11864); /* x219910 */ /* x219902 */ t11862.tag = NULL_TYPE; t11847 = f26175(t11861, t11862); /* x219883 */ t11848.tag = STRUCTURE_TYPE24753; t11848.value.structure_type24753 = t11846; t11849.tag = STRUCTURE_TYPE24753; t11849.value.structure_type24753 = t11847; t11843 = f26175(t11848, t11849); /* x219881 */ t11844.tag = EXTERNAL_SYMBOL_TYPE; t11844.value.external_symbol_type = t11842; t11845.tag = STRUCTURE_TYPE24753; t11845.value.structure_type24753 = t11843; t11839 = f26175(t11844, t11845); /* x219914 */ /* x219880 */ t11840.tag = STRUCTURE_TYPE24753; t11840.value.structure_type24753 = t11839; t11841.tag = NULL_TYPE; t11832 = f26175(t11840, t11841); /* x219872 */ t11833.tag = STRUCTURE_TYPE24753; t11833.value.structure_type24753 = t11832; t11828 = f26175(t11831, t11833); /* x219870 */ t11829.tag = EXTERNAL_SYMBOL_TYPE; t11829.value.external_symbol_type = t11827; t11830.tag = STRUCTURE_TYPE24753; t11830.value.structure_type24753 = t11828; t11823 = f26175(t11829, t11830); /* x219934 */ t11824 = &t11868; /* x219869 */ t11825.tag = STRUCTURE_TYPE24753; t11825.value.structure_type24753 = t11823; t11826.tag = STRUCTURE_TYPE24753; t11826.value.structure_type24753 = t11824; t11818 = f26175(t11825, t11826); /* x219863 */ t11819.tag = STRUCTURE_TYPE24753; t11819.value.structure_type24753 = t11817; t11820.tag = STRUCTURE_TYPE24753; t11820.value.structure_type24753 = t11818; t11814 = f26175(t11819, t11820); /* x219861 */ t11815.tag = EXTERNAL_SYMBOL_TYPE; t11815.value.external_symbol_type = t11813; t11816.tag = STRUCTURE_TYPE24753; t11816.value.structure_type24753 = t11814; t11810 = f26175(t11815, t11816); /* x219938 */ /* x219860 */ t11811.tag = STRUCTURE_TYPE24753; t11811.value.structure_type24753 = t11810; t11812.tag = NULL_TYPE; t11807 = f26175(t11811, t11812); /* x219858 */ t11808.tag = NULL_TYPE; t11809.tag = STRUCTURE_TYPE24753; t11809.value.structure_type24753 = t11807; t11804 = f26175(t11808, t11809); /* x219856 */ t11805.tag = EXTERNAL_SYMBOL_TYPE; t11805.value.external_symbol_type = t11803; t11806.tag = STRUCTURE_TYPE24753; t11806.value.structure_type24753 = t11804; t11800 = f26175(t11805, t11806); /* x219854 */ t11801.tag = EXTERNAL_SYMBOL_TYPE; t11801.value.external_symbol_type = t11799; t11802.tag = STRUCTURE_TYPE24753; t11802.value.structure_type24753 = t11800; t11795 = f26175(t11801, t11802); /* x219943 */ /* x219853 */ t11796.tag = STRUCTURE_TYPE24753; t11796.value.structure_type24753 = t11795; t11797.tag = NULL_TYPE; t11798 = f26175(t11796, t11797); r18621.tag = STRUCTURE_TYPE24753; r18621.value.structure_type24753 = t11798; return r18621; l3787: /* x219950 */ /* x219949 */ /* x219948 stalin.sc:30338:1044204 */ /* x219947 stalin.sc:30338:1044205 */ /* x297505 QobiScheme.sc:166:5314 */ /* x297504 QobiScheme.sc:166:5321 */ t11794 = "This shouldn\'t happen"; /* x297503 QobiScheme.sc:166:5315 */ stalin_panic(t11794);} /* LOOP[18607] */ struct structure_type24753 *f18607(struct w49 a32519) {struct structure_type24753 *r18607; struct w49 a32520; /* v */ struct w49 a41097; /* S */ struct w49 a41360; /* S */ struct w49 a41361; /* S */ struct w49 a41362; /* S */ struct w49 a41528; /* S */ struct w49 a41529; /* S */ struct w49 a41530; /* S */ struct w49 a42396; /* S */ struct w49 t11997; struct w49 t11998; struct w49 t11999; char *t12000; struct w49 t12001; struct w49 t12002; char *t12003; struct w49 t12004; struct w49 t12005; char *t12006; struct w49 t12007; struct w49 t12008; char *t12009; struct w49 t12010; struct w49 t12011; char *t12012; struct w49 t12013; struct w49 t12014; char *t12015; struct w49 t12016; struct w49 t12017; char *t12018; struct w49 t12019; char *t12020; struct w49 t12021; struct w49 t12022; struct w49 t12023; struct structure_type24753 *t12024; struct structure_type24753 *t12025; char *t12026; struct structure_type24753 *t12027; struct w49 t12028; struct w49 t12029; struct structure_type24753 *t12030; struct structure_type24753 *t12031; struct w49 t12032; struct w49 t12033; char *t12034; struct w49 t12035; struct w49 t12036; struct w12224 t12037; struct structure_type24753 *t12038; struct w49 t12039; struct w49 t12040; struct w198746 t12041; struct w49 t12042; struct w49 t12043; struct w49 t12044; struct w49 t12045; struct w49 t12048; struct w49 t12049; struct w49 t12050; struct w49 t12051; struct w49 t12052; struct w49 t12053; struct w49 t12054; struct w49 t12055; struct w49 t12056; struct w49 t12057; h18607: /* x219631 stalin.sc:30297:1042785 */ /* x219521 stalin.sc:30297:1042789 */ /* x219520 stalin.sc:30297:1042799 */ t11997 = a32519; /* x219519 stalin.sc:30297:1042790 */ if (f9739(t11997)==FALSE_TYPE) goto l3789; /* x219522 stalin.sc:30298:1042804 */ return (struct structure_type24753 *)NULL_TYPE; l3789: /* x219630 stalin.sc:30299:1042810 */ /* x219629 stalin.sc:30299:1042816 */ /* x219628 stalin.sc:30299:1042826 */ /* x219627 stalin.sc:30299:1042836 */ /* x219626 stalin.sc:30299:1042846 */ t12056 = a32519; /* x219625 stalin.sc:30299:1042837 */ a41530 = t12056; /* x300232 stalin.sc:6964:241199 */ /* x300231 stalin.sc:6964:241207 */ t12057 = a41530; /* x300230 stalin.sc:6964:241200 */ t12054 = f9719(t12057); /* x219624 stalin.sc:30299:1042827 */ a41529 = t12054; /* x300228 stalin.sc:6964:241199 */ /* x300227 stalin.sc:6964:241207 */ t12055 = a41529; /* x300226 stalin.sc:6964:241200 */ t12051 = f9719(t12055); /* x219623 stalin.sc:30299:1042817 */ a41097 = t12051; /* x298500 stalin.sc:6937:240340 */ /* x298499 stalin.sc:6937:240360 */ t12052 = a41097; /* x298498 stalin.sc:6937:240341 */ a42396 = t12052; /* x303082 */ /* x303081 */ t12053 = a42396; /* x303080 */ if (!((t12053.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37572]"); structure_ref_error();} t11998 = t12053.value.structure_type27510->s9; /* x219622 */ a32520 = t11998; /* x219621 */ /* x219535 */ /* x219534 */ /* x219532 */ t11999 = a32520; /* x219533 */ t12000 = q745; /* x219531 */ t12001.tag = EXTERNAL_SYMBOL_TYPE; t12001.value.external_symbol_type = t12000; if (!(f26160(t11999, t12001)==FALSE_TYPE)) goto l3790; /* x219528 */ /* x219526 */ t12002 = a32520; /* x219527 */ t12003 = q747; /* x219525 */ t12004.tag = EXTERNAL_SYMBOL_TYPE; t12004.value.external_symbol_type = t12003; if (f26160(t12002, t12004)==FALSE_TYPE) goto l3791; l3790: /* x219568 */ /* x219567 */ /* x219566 stalin.sc:30301:1042886 */ /* x219560 stalin.sc:30301:1042892 */ /* x219538 */ t12026 = q494; /* x219559 */ /* x219553 */ /* x219541 */ t12034 = q241; /* x219552 */ /* x219551 */ /* x219550 stalin.sc:30301:1042907 */ /* x219544 stalin.sc:30301:1042915 */ /* x219549 stalin.sc:30302:1042937 */ /* x219548 stalin.sc:30302:1042946 */ /* x219547 stalin.sc:30302:1042956 */ t12044 = a32519; /* x219546 stalin.sc:30302:1042947 */ a41528 = t12044; /* x300224 stalin.sc:6964:241199 */ /* x300223 stalin.sc:6964:241207 */ t12045 = a41528; /* x300222 stalin.sc:6964:241200 */ t12042 = f9719(t12045); /* x219545 stalin.sc:30302:1042938 */ a41360 = t12042; /* x299552 stalin.sc:7008:242336 */ /* x299551 stalin.sc:7008:242344 */ t12043 = a41360; /* x299550 stalin.sc:7008:242337 */ t12040 = f9720(t12043); /* x219543 stalin.sc:30301:1042908 */ t12041.tag = NATIVE_PROCEDURE_TYPE7182; t12037 = f9753(t12041, t12040); /* x219542 */ t12039.tag = STRUCTURE_TYPE24753; t12039.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t12039.value.structure_type24753)==NULL) {backtrace_internal("[inside LOOP 18610]"); out_of_memory_error();} t12039.value.structure_type24753->s0.tag = NULL_TYPE; t12039.value.structure_type24753->s1.tag = NULL_TYPE; t12038 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t12038==NULL) {backtrace_internal("[inside LOOP 18610]"); out_of_memory_error();} t12038->s0 = *((struct w49 *)(&t12037)); t12038->s1 = t12039; t12035 = f26254(t12038); /* x219540 */ t12036.tag = EXTERNAL_SYMBOL_TYPE; t12036.value.external_symbol_type = t12034; t12030 = f26175(t12036, t12035); /* x219558 */ t12031 = &t12046; /* x219539 */ t12032.tag = STRUCTURE_TYPE24753; t12032.value.structure_type24753 = t12030; t12033.tag = STRUCTURE_TYPE24753; t12033.value.structure_type24753 = t12031; t12027 = f26175(t12032, t12033); /* x219537 */ t12028.tag = EXTERNAL_SYMBOL_TYPE; t12028.value.external_symbol_type = t12026; t12029.tag = STRUCTURE_TYPE24753; t12029.value.structure_type24753 = t12027; t12024 = f26175(t12028, t12029); /* x219565 stalin.sc:30304:1042979 */ /* x219564 stalin.sc:30304:1042985 */ /* x219563 stalin.sc:30304:1042994 */ t12049 = a32519; /* x219562 stalin.sc:30304:1042986 */ a41361 = t12049; /* x299556 stalin.sc:7008:242336 */ /* x299555 stalin.sc:7008:242344 */ t12050 = a41361; /* x299554 stalin.sc:7008:242337 */ t12048 = f9720(t12050); /* x219561 stalin.sc:30304:1042980 */ t12025 = f18607(t12048); /* x267911 stalin.sc:30301:1042887 */ r18607 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r18607==NULL) {backtrace("stalin.sc", 30301, 1042886); out_of_memory_error();} r18607->s0.tag = STRUCTURE_TYPE24753; r18607->s0.value.structure_type24753 = t12024; /* MOVE: branching squeezed to general */ if (t12025>=((struct structure_type24753 *)VALUE_OFFSET)) {r18607->s1.tag = STRUCTURE_TYPE24753; r18607->s1.value.structure_type24753 = t12025;} else r18607->s1.tag = (unsigned)t12025; return r18607; l3791: /* x219620 */ /* x219608 */ /* x219607 */ /* x219605 */ t12005 = a32520; /* x219606 */ t12006 = q746; /* x219604 */ t12007.tag = EXTERNAL_SYMBOL_TYPE; t12007.value.external_symbol_type = t12006; if (!(f26160(t12005, t12007)==FALSE_TYPE)) goto l3793; /* x219601 */ /* x219600 */ /* x219598 */ t12008 = a32520; /* x219599 */ t12009 = q744; /* x219597 */ t12010.tag = EXTERNAL_SYMBOL_TYPE; t12010.value.external_symbol_type = t12009; if (!(f26160(t12008, t12010)==FALSE_TYPE)) goto l3793; /* x219594 */ /* x219593 */ /* x219591 */ t12011 = a32520; /* x219592 */ t12012 = q743; /* x219590 */ t12013.tag = EXTERNAL_SYMBOL_TYPE; t12013.value.external_symbol_type = t12012; if (!(f26160(t12011, t12013)==FALSE_TYPE)) goto l3793; /* x219587 */ /* x219586 */ /* x219584 */ t12014 = a32520; /* x219585 */ t12015 = q741; /* x219583 */ t12016.tag = EXTERNAL_SYMBOL_TYPE; t12016.value.external_symbol_type = t12015; if (!(f26160(t12014, t12016)==FALSE_TYPE)) goto l3793; /* x219580 */ /* x219578 */ t12017 = a32520; /* x219579 */ t12018 = q742; /* x219577 */ t12019.tag = EXTERNAL_SYMBOL_TYPE; t12019.value.external_symbol_type = t12018; if (f26160(t12017, t12019)==FALSE_TYPE) goto l3794; l3793: /* x219615 */ /* x219614 */ /* x219613 stalin.sc:30306:1043056 */ /* x219612 stalin.sc:30306:1043062 */ /* x219611 stalin.sc:30306:1043071 */ t12022 = a32519; /* x219610 stalin.sc:30306:1043063 */ a41362 = t12022; /* x299560 stalin.sc:7008:242336 */ /* x299559 stalin.sc:7008:242344 */ t12023 = a41362; /* x299558 stalin.sc:7008:242337 */ t12021 = f9720(t12023); /* x219609 stalin.sc:30306:1043057 */ a32519 = t12021; goto h18607; l3794: /* x219619 */ /* x219618 */ /* x219617 stalin.sc:30307:1043085 */ /* x219616 stalin.sc:30307:1043086 */ /* x297501 QobiScheme.sc:166:5314 */ /* x297500 QobiScheme.sc:166:5321 */ t12020 = "This shouldn\'t happen"; /* x297499 QobiScheme.sc:166:5315 */ stalin_panic(t12020);} /* LOOP[18590] */ struct w49 f18590(struct w49 a32507) {struct w49 r18590; struct w49 a32508; /* v */ struct w49 a41096; /* S */ struct w49 a41352; /* S */ struct w49 a41353; /* S */ struct w49 a41357; /* S */ struct w49 a41358; /* S */ struct w49 a41359; /* S */ struct w49 a41521; /* S */ struct w49 a41525; /* S */ struct w49 a41526; /* S */ struct w49 a41527; /* S */ struct w49 a42397; /* S */ struct w49 t12058; struct p18590 *t12059; struct w49 t12060; struct w49 t12061; char *t12062; struct w49 t12063; struct w49 t12064; char *t12065; struct w49 t12066; struct w49 t12067; char *t12068; struct w49 t12069; struct w49 t12070; char *t12071; struct w49 t12072; struct w49 t12073; char *t12074; struct w49 t12075; struct w49 t12076; char *t12077; struct w49 t12078; struct w49 t12079; char *t12080; struct w49 t12081; char *t12082; struct p18590 *t12083; struct w49 t12084; struct w49 t12085; struct w49 t12086; struct p18590 *t12087; struct w12224 t12088; struct w49 t12089; struct structure_type24753 *t12090; struct w49 t12091; struct p18590 *t12092; struct w49 t12093; struct w198746 t12094; struct w49 t12095; struct w49 t12096; struct w49 t12097; struct w49 t12098; struct w49 t12099; struct w49 t12100; struct w49 t12101; struct p18590 *t12102; struct w12224 t12103; struct w49 t12104; struct structure_type24753 *t12105; struct w49 t12106; struct w49 t12107; struct w198746 t12108; struct w49 t12109; struct w49 t12110; struct w49 t12111; struct w49 t12112; struct w49 t12113; struct w49 t12114; struct w49 t12115; struct w49 t12116; struct w49 t12117; struct w49 t12118; struct w49 t12119; struct w49 t12120; struct w49 t12121; struct w49 t12122; struct p18590 *e18590; struct p18590 *p18591; struct p18590 *p18593; struct p18590 *p18597; struct p18590 *p18602; h18590: e18590 = (struct p18590 *)alloca(sizeof(struct p18590)); if (e18590==NULL) {backtrace_internal("[inside COMMAND-KEYWORD-ARGUMENT-PARSER 18588]"); out_of_memory_error();} e18590->a32507 = a32507; /* x219495 stalin.sc:30238:1041157 */ /* x219087 stalin.sc:30238:1041161 */ /* x219086 stalin.sc:30238:1041171 */ t12058 = e18590->a32507; /* x219085 stalin.sc:30238:1041162 */ if (f9739(t12058)==FALSE_TYPE) goto l3800; /* x219106 stalin.sc:30239:1041182 */ r18590.tag = STRUCTURE_TYPE24753; r18590.value.structure_type24753 = &t12123; return r18590; l3800: /* x219494 stalin.sc:30240:1041248 */ /* x219493 stalin.sc:30240:1041254 */ /* x219492 stalin.sc:30240:1041264 */ /* x219491 stalin.sc:30240:1041274 */ /* x219490 stalin.sc:30240:1041284 */ t12121 = e18590->a32507; /* x219489 stalin.sc:30240:1041275 */ a41527 = t12121; /* x300220 stalin.sc:6964:241199 */ /* x300219 stalin.sc:6964:241207 */ t12122 = a41527; /* x300218 stalin.sc:6964:241200 */ t12119 = f9719(t12122); /* x219488 stalin.sc:30240:1041265 */ a41526 = t12119; /* x300216 stalin.sc:6964:241199 */ /* x300215 stalin.sc:6964:241207 */ t12120 = a41526; /* x300214 stalin.sc:6964:241200 */ t12116 = f9719(t12120); /* x219487 stalin.sc:30240:1041255 */ a41096 = t12116; /* x298496 stalin.sc:6937:240340 */ /* x298495 stalin.sc:6937:240360 */ t12117 = a41096; /* x298494 stalin.sc:6937:240341 */ a42397 = t12117; /* x303086 */ /* x303085 */ t12118 = a42397; /* x303084 */ if (!((t12118.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37573]"); structure_ref_error();} t12060 = t12118.value.structure_type27510->s9; /* x219486 */ t12059 = e18590; p18591 = t12059; a32508 = t12060; /* x219485 */ /* x219119 */ /* x219118 */ /* x219116 */ t12061 = a32508; /* x219117 */ t12062 = q744; /* x219115 */ t12063.tag = EXTERNAL_SYMBOL_TYPE; t12063.value.external_symbol_type = t12062; if (!(f26160(t12061, t12063)==FALSE_TYPE)) goto l3801; /* x219112 */ /* x219110 */ t12064 = a32508; /* x219111 */ t12065 = q745; /* x219109 */ t12066.tag = EXTERNAL_SYMBOL_TYPE; t12066.value.external_symbol_type = t12065; if (f26160(t12064, t12066)==FALSE_TYPE) goto l3802; l3801: /* x219270 */ /* x219269 */ t12102 = p18591; p18593 = t12102; /* x219268 stalin.sc:30242:1041328 */ /* x219267 stalin.sc:30266:1041928 */ /* x219266 stalin.sc:30266:1041934 */ /* x219265 stalin.sc:30266:1041943 */ t12114 = p18593->a32507; /* x219264 stalin.sc:30266:1041935 */ a41353 = t12114; /* x299524 stalin.sc:7008:242336 */ /* x299523 stalin.sc:7008:242344 */ t12115 = a41353; /* x299522 stalin.sc:7008:242337 */ t12113 = f9720(t12115); /* x219263 stalin.sc:30266:1041929 */ t12104 = f18590(t12113); /* x219262 stalin.sc:30243:1041340 */ /* x219256 stalin.sc:30244:1041353 */ /* x219261 stalin.sc:30265:1041900 */ /* x219260 stalin.sc:30265:1041909 */ /* x219259 stalin.sc:30265:1041919 */ t12111 = p18593->a32507; /* x219258 stalin.sc:30265:1041910 */ a41521 = t12111; /* x300196 stalin.sc:6964:241199 */ /* x300195 stalin.sc:6964:241207 */ t12112 = a41521; /* x300194 stalin.sc:6964:241200 */ t12109 = f9719(t12112); /* x219257 stalin.sc:30265:1041901 */ a41352 = t12109; /* x299520 stalin.sc:7008:242336 */ /* x299519 stalin.sc:7008:242344 */ t12110 = a41352; /* x299518 stalin.sc:7008:242337 */ t12107 = f9720(t12110); /* x219121 stalin.sc:30243:1041341 */ t12108.tag = NATIVE_PROCEDURE_TYPE14628; t12103 = f9753(t12108, t12107); /* x219120 stalin.sc:30242:1041329 */ t12106.tag = STRUCTURE_TYPE24753; t12106.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t12106.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30242, 1041328); out_of_memory_error();} t12106.value.structure_type24753->s0 = t12104; t12106.value.structure_type24753->s1.tag = NULL_TYPE; t12105 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t12105==NULL) {backtrace("stalin.sc", 30242, 1041328); out_of_memory_error();} t12105->s0 = *((struct w49 *)(&t12103)); t12105->s1 = t12106; return f26254(t12105); l3802: /* x219484 */ /* x219283 */ /* x219282 */ /* x219280 */ t12067 = a32508; /* x219281 */ t12068 = q746; /* x219279 */ t12069.tag = EXTERNAL_SYMBOL_TYPE; t12069.value.external_symbol_type = t12068; if (!(f26160(t12067, t12069)==FALSE_TYPE)) goto l3804; /* x219276 */ /* x219274 */ t12070 = a32508; /* x219275 */ t12071 = q747; /* x219273 */ t12072.tag = EXTERNAL_SYMBOL_TYPE; t12072.value.external_symbol_type = t12071; if (f26160(t12070, t12072)==FALSE_TYPE) goto l3805; l3804: /* x219449 */ /* x219448 */ t12087 = p18591; p18597 = t12087; /* x219447 stalin.sc:30268:1041988 */ /* x219446 stalin.sc:30293:1042650 */ /* x219445 stalin.sc:30293:1042656 */ /* x219444 stalin.sc:30293:1042665 */ t12100 = p18597->a32507; /* x219443 stalin.sc:30293:1042657 */ a41358 = t12100; /* x299544 stalin.sc:7008:242336 */ /* x299543 stalin.sc:7008:242344 */ t12101 = a41358; /* x299542 stalin.sc:7008:242337 */ t12099 = f9720(t12101); /* x219442 stalin.sc:30293:1042651 */ t12089 = f18590(t12099); /* x219441 stalin.sc:30269:1042000 */ /* x219435 stalin.sc:30270:1042013 */ t12092 = p18597; /* x219440 stalin.sc:30292:1042622 */ /* x219439 stalin.sc:30292:1042631 */ /* x219438 stalin.sc:30292:1042641 */ t12097 = p18597->a32507; /* x219437 stalin.sc:30292:1042632 */ a41525 = t12097; /* x300212 stalin.sc:6964:241199 */ /* x300211 stalin.sc:6964:241207 */ t12098 = a41525; /* x300210 stalin.sc:6964:241200 */ t12095 = f9719(t12098); /* x219436 stalin.sc:30292:1042623 */ a41357 = t12095; /* x299540 stalin.sc:7008:242336 */ /* x299539 stalin.sc:7008:242344 */ t12096 = a41357; /* x299538 stalin.sc:7008:242337 */ t12093 = f9720(t12096); /* x219285 stalin.sc:30269:1042001 */ t12094.tag = NATIVE_PROCEDURE_TYPE14618; t12094.value.native_procedure_type14618 = t12092; t12088 = f9753(t12094, t12093); /* x219284 stalin.sc:30268:1041989 */ t12091.tag = STRUCTURE_TYPE24753; t12091.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t12091.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30268, 1041988); out_of_memory_error();} t12091.value.structure_type24753->s0 = t12089; t12091.value.structure_type24753->s1.tag = NULL_TYPE; t12090 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t12090==NULL) {backtrace("stalin.sc", 30268, 1041988); out_of_memory_error();} t12090->s0 = *((struct w49 *)(&t12088)); t12090->s1 = t12091; return f26254(t12090); l3805: /* x219483 */ /* x219471 */ /* x219470 */ /* x219468 */ t12073 = a32508; /* x219469 */ t12074 = q743; /* x219467 */ t12075.tag = EXTERNAL_SYMBOL_TYPE; t12075.value.external_symbol_type = t12074; if (!(f26160(t12073, t12075)==FALSE_TYPE)) goto l3807; /* x219464 */ /* x219463 */ /* x219461 */ t12076 = a32508; /* x219462 */ t12077 = q741; /* x219460 */ t12078.tag = EXTERNAL_SYMBOL_TYPE; t12078.value.external_symbol_type = t12077; if (!(f26160(t12076, t12078)==FALSE_TYPE)) goto l3807; /* x219457 */ /* x219455 */ t12079 = a32508; /* x219456 */ t12080 = q742; /* x219454 */ t12081.tag = EXTERNAL_SYMBOL_TYPE; t12081.value.external_symbol_type = t12080; if (f26160(t12079, t12081)==FALSE_TYPE) goto l3808; l3807: /* x219478 */ /* x219477 */ t12083 = p18591; p18602 = t12083; /* x219476 stalin.sc:30294:1042706 */ /* x219475 stalin.sc:30294:1042712 */ /* x219474 stalin.sc:30294:1042721 */ t12085 = p18602->a32507; /* x219473 stalin.sc:30294:1042713 */ a41359 = t12085; /* x299548 stalin.sc:7008:242336 */ /* x299547 stalin.sc:7008:242344 */ t12086 = a41359; /* x299546 stalin.sc:7008:242337 */ t12084 = f9720(t12086); /* x219472 stalin.sc:30294:1042707 */ a32507 = t12084; goto h18590; l3808: /* x219482 */ /* x219481 */ /* x219480 stalin.sc:30295:1042741 */ /* x219479 stalin.sc:30295:1042742 */ /* x297497 QobiScheme.sc:166:5314 */ /* x297496 QobiScheme.sc:166:5321 */ t12082 = "This shouldn\'t happen"; /* x297495 QobiScheme.sc:166:5315 */ stalin_panic(t12082);} /* COMMAND-BINDINGS[18573] */ struct w49 f18573(struct w49 a32496) {struct w49 r18573; struct w49 a32497; /* v */ struct structure_type24753 *a35250; /* OBJS */ struct structure_type24753 *a35251; /* OBJS */ struct w49 a41093; /* S */ struct w49 a41340; /* S */ struct w49 a41341; /* S */ struct w49 a41344; /* S */ struct w49 a41345; /* S */ struct w49 a41346; /* S */ struct w49 a41347; /* S */ struct w49 a41348; /* S */ struct w49 a41506; /* S */ struct w49 a41508; /* S */ struct w49 a41509; /* S */ struct w49 a41510; /* S */ struct w49 a41511; /* S */ struct w49 a41512; /* S */ struct w49 a41513; /* S */ struct w49 a41514; /* S */ struct w49 a41515; /* S */ struct w49 a41516; /* S */ struct w49 a41517; /* S */ struct w49 a42400; /* S */ struct w49 t12132; struct w49 t12133; struct w49 t12134; char *t12135; struct w49 t12136; struct w49 t12137; char *t12138; struct w49 t12139; struct w49 t12140; char *t12141; struct w49 t12142; struct w49 t12143; char *t12144; struct w49 t12145; struct w49 t12146; char *t12147; struct w49 t12148; struct w49 t12149; char *t12150; struct w49 t12151; struct w49 t12152; char *t12153; struct w49 t12154; char *t12155; struct structure_type24753 *t12156; struct w49 t12157; struct w49 t12158; struct structure_type24753 *t12159; struct w49 t12160; struct w49 t12161; struct w49 t12162; struct w49 t12163; struct w49 t12164; struct w49 t12165; struct w49 t12168; struct w49 t12169; struct w49 t12170; struct structure_type24753 *t12171; struct w49 t12172; struct w49 t12173; struct w49 t12174; struct w49 t12175; struct w49 t12176; struct w49 t12177; struct w49 t12178; struct w49 t12179; struct w49 t12180; struct w49 t12181; struct w49 t12182; struct w49 t12183; struct w49 t12184; struct w49 t12185; struct w49 t12186; struct w49 t12187; struct w49 t12188; struct w49 t12189; struct w49 t12190; struct w49 t12191; struct w49 t12192; struct w49 t12193; struct w49 t12194; struct w49 t12195; struct w49 t12196; struct w49 t12197; struct w49 t12198; struct w49 t12199; struct structure_type24753 *t12200; struct w49 t12201; struct w12224 t12202; unsigned t12203; struct w49 t12204; struct w228463 t12205; struct w49 t12206; struct w198746 t12207; struct w49 t12208; struct w49 t12209; struct w49 t12210; struct w49 t12211; struct w49 t12212; struct w49 t12213; struct w49 t12214; struct w49 t12215; struct w49 t12216; struct structure_type24753 *t12217; struct w49 t12218; struct w12224 t12219; unsigned t12220; struct w49 t12221; struct w228463 t12222; struct w49 t12223; struct w198746 t12224; struct w49 t12225; struct w49 t12226; struct w49 t12227; struct w49 t12228; struct w49 t12229; struct w49 t12230; struct w49 t12231; struct w49 t12232; struct w49 t12233; struct w49 t12234; struct w49 t12235; struct w49 t12236; struct w49 t12237; struct w49 t12238; /* x219060 stalin.sc:30197:1039936 */ /* x218846 stalin.sc:30197:1039940 */ /* x218845 stalin.sc:30197:1039950 */ t12132 = a32496; /* x218844 stalin.sc:30197:1039941 */ if (f9739(t12132)==FALSE_TYPE) goto l3812; /* x218847 stalin.sc:30198:1039960 */ r18573.tag = NULL_TYPE; return r18573; l3812: /* x219059 stalin.sc:30199:1039971 */ /* x219058 stalin.sc:30199:1039977 */ /* x219057 stalin.sc:30199:1039987 */ /* x219056 stalin.sc:30199:1039997 */ /* x219055 stalin.sc:30199:1040007 */ t12237 = a32496; /* x219054 stalin.sc:30199:1039998 */ a41517 = t12237; /* x300180 stalin.sc:6964:241199 */ /* x300179 stalin.sc:6964:241207 */ t12238 = a41517; /* x300178 stalin.sc:6964:241200 */ t12235 = f9719(t12238); /* x219053 stalin.sc:30199:1039988 */ a41516 = t12235; /* x300176 stalin.sc:6964:241199 */ /* x300175 stalin.sc:6964:241207 */ t12236 = a41516; /* x300174 stalin.sc:6964:241200 */ t12232 = f9719(t12236); /* x219052 stalin.sc:30199:1039978 */ a41093 = t12232; /* x298484 stalin.sc:6937:240340 */ /* x298483 stalin.sc:6937:240360 */ t12233 = a41093; /* x298482 stalin.sc:6937:240341 */ a42400 = t12233; /* x303098 */ /* x303097 */ t12234 = a42400; /* x303096 */ if (!((t12234.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37576]"); structure_ref_error();} t12133 = t12234.value.structure_type27510->s9; /* x219051 */ a32497 = t12133; /* x219050 */ /* x218860 */ /* x218859 */ /* x218857 */ t12134 = a32497; /* x218858 */ t12135 = q744; /* x218856 */ t12136.tag = EXTERNAL_SYMBOL_TYPE; t12136.value.external_symbol_type = t12135; if (!(f26160(t12134, t12136)==FALSE_TYPE)) goto l3813; /* x218853 */ /* x218851 */ t12137 = a32497; /* x218852 */ t12138 = q745; /* x218850 */ t12139.tag = EXTERNAL_SYMBOL_TYPE; t12139.value.external_symbol_type = t12138; if (f26160(t12137, t12139)==FALSE_TYPE) goto l3814; l3813: /* x218907 */ /* x218906 */ /* x218905 stalin.sc:30201:1040049 */ /* x218904 stalin.sc:30210:1040262 */ /* x218903 stalin.sc:30210:1040280 */ /* x218902 stalin.sc:30210:1040289 */ t12230 = a32496; /* x218901 stalin.sc:30210:1040281 */ a41341 = t12230; /* x299476 stalin.sc:7008:242336 */ /* x299475 stalin.sc:7008:242344 */ t12231 = a41341; /* x299474 stalin.sc:7008:242337 */ t12229 = f9720(t12231); /* x218900 stalin.sc:30210:1040263 */ t12216 = f18573(t12229); /* x218899 stalin.sc:30202:1040060 */ /* x218863 stalin.sc:30203:1040072 */ /* x218897 stalin.sc:30204:1040083 */ /* x218891 stalin.sc:30204:1040091 */ /* x218896 stalin.sc:30208:1040226 */ /* x218895 stalin.sc:30208:1040235 */ /* x218894 stalin.sc:30208:1040245 */ t12227 = a32496; /* x218893 stalin.sc:30208:1040236 */ a41506 = t12227; /* x300136 stalin.sc:6964:241199 */ /* x300135 stalin.sc:6964:241207 */ t12228 = a41506; /* x300134 stalin.sc:6964:241200 */ t12225 = f9719(t12228); /* x218892 stalin.sc:30208:1040227 */ a41340 = t12225; /* x299472 stalin.sc:7008:242336 */ /* x299471 stalin.sc:7008:242344 */ t12226 = a41340; /* x299470 stalin.sc:7008:242337 */ t12223 = f9720(t12226); /* x218864 stalin.sc:30204:1040084 */ t12224.tag = NATIVE_PROCEDURE_TYPE14641; t12219 = f9753(t12224, t12223); /* x218898 stalin.sc:30209:1040254 */ /* x218862 stalin.sc:30202:1040061 */ t12220 = NATIVE_PROCEDURE_TYPE454; t12221 = *((struct w49 *)(&t12219)); t12222.tag = NULL_TYPE; t12215 = f1006(t12220, t12221, t12222); /* x218861 stalin.sc:30201:1040050 */ t12218.tag = STRUCTURE_TYPE24753; t12218.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t12218.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30201, 1040049); out_of_memory_error();} t12218.value.structure_type24753->s0 = t12216; t12218.value.structure_type24753->s1.tag = NULL_TYPE; t12217 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t12217==NULL) {backtrace("stalin.sc", 30201, 1040049); out_of_memory_error();} t12217->s0 = t12215; t12217->s1 = t12218; return f26254(t12217); l3814: /* x219049 */ /* x218920 */ /* x218919 */ /* x218917 */ t12140 = a32497; /* x218918 */ t12141 = q746; /* x218916 */ t12142.tag = EXTERNAL_SYMBOL_TYPE; t12142.value.external_symbol_type = t12141; if (!(f26160(t12140, t12142)==FALSE_TYPE)) goto l3816; /* x218913 */ /* x218911 */ t12143 = a32497; /* x218912 */ t12144 = q747; /* x218910 */ t12145.tag = EXTERNAL_SYMBOL_TYPE; t12145.value.external_symbol_type = t12144; if (f26160(t12143, t12145)==FALSE_TYPE) goto l3817; l3816: /* x218965 */ /* x218964 */ /* x218963 stalin.sc:30212:1040332 */ /* x218962 stalin.sc:30222:1040561 */ /* x218961 stalin.sc:30222:1040579 */ /* x218960 stalin.sc:30222:1040588 */ t12213 = a32496; /* x218959 stalin.sc:30222:1040580 */ a41345 = t12213; /* x299492 stalin.sc:7008:242336 */ /* x299491 stalin.sc:7008:242344 */ t12214 = a41345; /* x299490 stalin.sc:7008:242337 */ t12212 = f9720(t12214); /* x218958 stalin.sc:30222:1040562 */ t12199 = f18573(t12212); /* x218957 stalin.sc:30213:1040343 */ /* x218923 stalin.sc:30214:1040355 */ /* x218955 stalin.sc:30215:1040366 */ /* x218949 stalin.sc:30215:1040374 */ /* x218954 stalin.sc:30220:1040525 */ /* x218953 stalin.sc:30220:1040534 */ /* x218952 stalin.sc:30220:1040544 */ t12210 = a32496; /* x218951 stalin.sc:30220:1040535 */ a41508 = t12210; /* x300144 stalin.sc:6964:241199 */ /* x300143 stalin.sc:6964:241207 */ t12211 = a41508; /* x300142 stalin.sc:6964:241200 */ t12208 = f9719(t12211); /* x218950 stalin.sc:30220:1040526 */ a41344 = t12208; /* x299488 stalin.sc:7008:242336 */ /* x299487 stalin.sc:7008:242344 */ t12209 = a41344; /* x299486 stalin.sc:7008:242337 */ t12206 = f9720(t12209); /* x218924 stalin.sc:30215:1040367 */ t12207.tag = NATIVE_PROCEDURE_TYPE14638; t12202 = f9753(t12207, t12206); /* x218956 stalin.sc:30221:1040553 */ /* x218922 stalin.sc:30213:1040344 */ t12203 = NATIVE_PROCEDURE_TYPE454; t12204 = *((struct w49 *)(&t12202)); t12205.tag = NULL_TYPE; t12198 = f1006(t12203, t12204, t12205); /* x218921 stalin.sc:30212:1040333 */ t12201.tag = STRUCTURE_TYPE24753; t12201.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t12201.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30212, 1040332); out_of_memory_error();} t12201.value.structure_type24753->s0 = t12199; t12201.value.structure_type24753->s1.tag = NULL_TYPE; t12200 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t12200==NULL) {backtrace("stalin.sc", 30212, 1040332); out_of_memory_error();} t12200->s0 = t12198; t12200->s1 = t12201; return f26254(t12200); l3817: /* x219048 */ /* x218969 */ /* x218967 */ t12146 = a32497; /* x218968 */ t12147 = q743; /* x218966 */ t12148.tag = EXTERNAL_SYMBOL_TYPE; t12148.value.external_symbol_type = t12147; if (f26160(t12146, t12148)==FALSE_TYPE) goto l3820; /* x218985 */ /* x218984 */ /* x218983 stalin.sc:30224:1040633 */ /* x218977 stalin.sc:30224:1040639 */ /* x218976 stalin.sc:30224:1040649 */ /* x218975 stalin.sc:30224:1040660 */ /* x218974 stalin.sc:30224:1040670 */ t12193 = a32496; /* x218973 stalin.sc:30224:1040661 */ a41510 = t12193; /* x300152 stalin.sc:6964:241199 */ /* x300151 stalin.sc:6964:241207 */ t12194 = a41510; /* x300150 stalin.sc:6964:241200 */ t12192 = f9719(t12194); /* x218972 stalin.sc:30224:1040650 */ t12190 = f9722(t12192); /* x218971 stalin.sc:30224:1040640 */ a41509 = t12190; /* x300148 stalin.sc:6964:241199 */ /* x300147 stalin.sc:6964:241207 */ t12191 = a41509; /* x300146 stalin.sc:6964:241200 */ t12188 = f9719(t12191); /* x218982 stalin.sc:30225:1040680 */ /* x218981 stalin.sc:30225:1040698 */ /* x218980 stalin.sc:30225:1040707 */ t12196 = a32496; /* x218979 stalin.sc:30225:1040699 */ a41346 = t12196; /* x299496 stalin.sc:7008:242336 */ /* x299495 stalin.sc:7008:242344 */ t12197 = a41346; /* x299494 stalin.sc:7008:242337 */ t12195 = f9720(t12197); /* x218978 stalin.sc:30225:1040681 */ t12189 = f18573(t12195); /* x267915 stalin.sc:30224:1040634 */ r18573.tag = STRUCTURE_TYPE24753; r18573.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r18573.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30224, 1040633); out_of_memory_error();} r18573.value.structure_type24753->s0 = t12188; r18573.value.structure_type24753->s1 = t12189; return r18573; l3820: /* x219047 */ /* x218989 */ /* x218987 */ t12149 = a32497; /* x218988 */ t12150 = q741; /* x218986 */ t12151.tag = EXTERNAL_SYMBOL_TYPE; t12151.value.external_symbol_type = t12150; if (f26160(t12149, t12151)==FALSE_TYPE) goto l3822; /* x219014 */ /* x219013 */ /* x219012 stalin.sc:30226:1040733 */ /* x219006 stalin.sc:30226:1040739 */ /* x219005 stalin.sc:30227:1040792 */ /* x219004 stalin.sc:30227:1040803 */ /* x219003 stalin.sc:30227:1040814 */ /* x219002 stalin.sc:30227:1040824 */ t12183 = a32496; /* x219001 stalin.sc:30227:1040815 */ a41513 = t12183; /* x300164 stalin.sc:6964:241199 */ /* x300163 stalin.sc:6964:241207 */ t12184 = a41513; /* x300162 stalin.sc:6964:241200 */ t12182 = f9719(t12184); /* x219000 stalin.sc:30227:1040804 */ t12181 = f9722(t12182); /* x218999 stalin.sc:30227:1040793 */ t12174 = f9724(t12181); /* x218998 stalin.sc:30226:1040745 */ /* x218997 stalin.sc:30226:1040755 */ /* x218996 stalin.sc:30226:1040766 */ /* x218995 stalin.sc:30226:1040776 */ t12179 = a32496; /* x218994 stalin.sc:30226:1040767 */ a41512 = t12179; /* x300160 stalin.sc:6964:241199 */ /* x300159 stalin.sc:6964:241207 */ t12180 = a41512; /* x300158 stalin.sc:6964:241200 */ t12178 = f9719(t12180); /* x218993 stalin.sc:30226:1040756 */ t12176 = f9722(t12178); /* x218992 stalin.sc:30226:1040746 */ a41511 = t12176; /* x300156 stalin.sc:6964:241199 */ /* x300155 stalin.sc:6964:241207 */ t12177 = a41511; /* x300154 stalin.sc:6964:241200 */ t12173 = f9719(t12177); /* x218991 stalin.sc:30226:1040740 */ t12175.tag = STRUCTURE_TYPE24753; t12175.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t12175.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30226, 1040739); out_of_memory_error();} t12175.value.structure_type24753->s0 = t12174; t12175.value.structure_type24753->s1.tag = NULL_TYPE; a35250 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35250==NULL) {backtrace("stalin.sc", 30226, 1040739); out_of_memory_error();} a35250->s0 = t12173; a35250->s1 = t12175; /* x272507 */ t12171 = a35250; /* x219011 stalin.sc:30228:1040835 */ /* x219010 stalin.sc:30228:1040853 */ /* x219009 stalin.sc:30228:1040862 */ t12186 = a32496; /* x219008 stalin.sc:30228:1040854 */ a41347 = t12186; /* x299500 stalin.sc:7008:242336 */ /* x299499 stalin.sc:7008:242344 */ t12187 = a41347; /* x299498 stalin.sc:7008:242337 */ t12185 = f9720(t12187); /* x219007 stalin.sc:30228:1040836 */ t12172 = f18573(t12185); /* x267914 stalin.sc:30226:1040734 */ r18573.tag = STRUCTURE_TYPE24753; r18573.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r18573.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30226, 1040733); out_of_memory_error();} r18573.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; r18573.value.structure_type24753->s0.value.structure_type24753 = t12171; r18573.value.structure_type24753->s1 = t12172; return r18573; l3822: /* x219046 */ /* x219018 */ /* x219016 */ t12152 = a32497; /* x219017 */ t12153 = q742; /* x219015 */ t12154.tag = EXTERNAL_SYMBOL_TYPE; t12154.value.external_symbol_type = t12153; if (f26160(t12152, t12154)==FALSE_TYPE) goto l3824; /* x219041 */ /* x219040 */ /* x219039 stalin.sc:30229:1040884 */ /* x219033 stalin.sc:30229:1040890 */ /* x219032 stalin.sc:30229:1040932 */ t12159 = &t12166; /* x219027 stalin.sc:30229:1040896 */ /* x219026 stalin.sc:30229:1040906 */ /* x219025 stalin.sc:30229:1040917 */ /* x219024 stalin.sc:30229:1040927 */ t12164 = a32496; /* x219023 stalin.sc:30229:1040918 */ a41515 = t12164; /* x300172 stalin.sc:6964:241199 */ /* x300171 stalin.sc:6964:241207 */ t12165 = a41515; /* x300170 stalin.sc:6964:241200 */ t12163 = f9719(t12165); /* x219022 stalin.sc:30229:1040907 */ t12161 = f9722(t12163); /* x219021 stalin.sc:30229:1040897 */ a41514 = t12161; /* x300168 stalin.sc:6964:241199 */ /* x300167 stalin.sc:6964:241207 */ t12162 = a41514; /* x300166 stalin.sc:6964:241200 */ t12158 = f9719(t12162); /* x219020 stalin.sc:30229:1040891 */ t12160.tag = STRUCTURE_TYPE24753; t12160.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t12160.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30229, 1040890); out_of_memory_error();} t12160.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t12160.value.structure_type24753->s0.value.structure_type24753 = t12159; t12160.value.structure_type24753->s1.tag = NULL_TYPE; a35251 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35251==NULL) {backtrace("stalin.sc", 30229, 1040890); out_of_memory_error();} a35251->s0 = t12158; a35251->s1 = t12160; /* x272509 */ t12156 = a35251; /* x219038 stalin.sc:30230:1040946 */ /* x219037 stalin.sc:30230:1040964 */ /* x219036 stalin.sc:30230:1040973 */ t12169 = a32496; /* x219035 stalin.sc:30230:1040965 */ a41348 = t12169; /* x299504 stalin.sc:7008:242336 */ /* x299503 stalin.sc:7008:242344 */ t12170 = a41348; /* x299502 stalin.sc:7008:242337 */ t12168 = f9720(t12170); /* x219034 stalin.sc:30230:1040947 */ t12157 = f18573(t12168); /* x267913 stalin.sc:30229:1040885 */ r18573.tag = STRUCTURE_TYPE24753; r18573.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r18573.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30229, 1040884); out_of_memory_error();} r18573.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; r18573.value.structure_type24753->s0.value.structure_type24753 = t12156; r18573.value.structure_type24753->s1 = t12157; return r18573; l3824: /* x219045 */ /* x219044 */ /* x219043 stalin.sc:30231:1040993 */ /* x219042 stalin.sc:30231:1040994 */ /* x297493 QobiScheme.sc:166:5314 */ /* x297492 QobiScheme.sc:166:5321 */ t12155 = "This shouldn\'t happen"; /* x297491 QobiScheme.sc:166:5315 */ stalin_panic(t12155);} /* LOOP[18565] */ char *f18565(struct w49 a32495) {struct w49 a41087; /* S */ struct w49 a41088; /* S */ struct w49 a41327; /* S */ struct w49 a41328; /* S */ struct w49 a41496; /* S */ struct w49 a41497; /* S */ struct w49 a42405; /* S */ struct w49 a42406; /* S */ struct w49 t12239; struct w49 t12240; struct w49 t12241; struct w49 t12242; char *t12243; struct w49 t12244; char *t12245; struct structure_type24753 *t12246; struct w49 t12247; struct w49 t12248; struct w49 t12249; struct w49 t12250; struct w49 t12251; struct w49 t12252; struct w49 t12253; struct w49 t12254; struct w49 t12255; struct w49 t12256; struct w49 t12257; char *t12258; struct w49 t12259; struct structure_type24753 *t12260; struct w49 t12261; struct w49 t12262; struct w49 t12263; struct w49 t12264; struct w49 t12265; struct w49 t12266; struct w49 t12267; /* x218803 stalin.sc:30143:1038402 */ /* x218764 stalin.sc:30144:1038413 */ /* x218763 stalin.sc:30144:1038423 */ t12239 = a32495; /* x218762 stalin.sc:30144:1038414 */ if (f9739(t12239)==FALSE_TYPE) goto l3826; /* x218767 */ /* x218766 */ /* x218765 stalin.sc:30144:1038426 */ return ""; l3826: /* x218802 */ /* x218772 stalin.sc:30145:1038435 */ /* x218771 stalin.sc:30145:1038445 */ /* x218770 stalin.sc:30145:1038454 */ t12241 = a32495; /* x218769 stalin.sc:30145:1038446 */ a41328 = t12241; /* x299424 stalin.sc:7008:242336 */ /* x299423 stalin.sc:7008:242344 */ t12242 = a41328; /* x299422 stalin.sc:7008:242337 */ t12240 = f9720(t12242); /* x218768 stalin.sc:30145:1038436 */ if (f9739(t12240)==FALSE_TYPE) goto l3828; /* x218784 */ /* x218783 */ while (region18567!=((struct region18567 *)(&initial_region18567))) {struct region18567 *region; region = region18567; region18567 = region18567->region; GC_free(region);} region_size18567 = REGION_SIZE18567; fp18567 = &((region18567->data)[0]); ALIGN(fp18567); /* x218782 stalin.sc:30146:1038463 */ /* x218781 stalin.sc:30147:1038488 */ /* x218780 stalin.sc:30147:1038498 */ /* x218779 stalin.sc:30147:1038509 */ /* x218778 stalin.sc:30147:1038519 */ t12266 = a32495; /* x218777 stalin.sc:30147:1038510 */ a41496 = t12266; /* x300096 stalin.sc:6964:241199 */ /* x300095 stalin.sc:6964:241207 */ t12267 = a41496; /* x300094 stalin.sc:6964:241200 */ t12265 = f9719(t12267); /* x218776 stalin.sc:30147:1038499 */ t12262 = f9722(t12265); /* x218775 stalin.sc:30147:1038489 */ a41087 = t12262; /* x298460 stalin.sc:6937:240340 */ /* x298459 stalin.sc:6937:240360 */ t12263 = a41087; /* x298458 stalin.sc:6937:240341 */ a42406 = t12263; /* x303122 */ /* x303121 */ t12264 = a42406; /* x303120 */ if (!((t12264.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37582]"); structure_ref_error();} t12259 = t12264.value.structure_type27510->s9; /* x218774 stalin.sc:30147:1038484 */ t12258 = " "; /* x218773 stalin.sc:30146:1038464 */ if ((fp18567+sizeof(struct structure_type24753))>(&((region18567->data)[region_size18567]))) {struct region18567 *region; unsigned region_size = REGION_SIZE18567; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region18567 *)GC_malloc_uncollectable(sizeof(struct region18567)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 30146, 1038463); out_of_memory_error();} region->region = region18567; region_size18567 = region_size; region18567 = region; fp18567 = &((region->data)[0]); ALIGN(fp18567);} t12261.tag = STRUCTURE_TYPE24753; t12261.value.structure_type24753 = (struct structure_type24753 *)fp18567; fp18567 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t12261.value.structure_type24753->s0 = t12259; t12261.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp18567+sizeof(struct structure_type24753))>(&((region18567->data)[region_size18567]))) {struct region18567 *region; unsigned region_size = REGION_SIZE18567; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region18567 *)GC_malloc_uncollectable(sizeof(struct region18567)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 30146, 1038463); out_of_memory_error();} region->region = region18567; region_size18567 = region_size; region18567 = region; fp18567 = &((region->data)[0]); ALIGN(fp18567);} t12260 = (struct structure_type24753 *)fp18567; fp18567 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t12260->s0.tag = STRING_TYPE; t12260->s0.value.string_type = t12258; t12260->s1 = t12261; return f27556(t12260); l3828: /* x218801 */ /* x218800 */ /* x218799 stalin.sc:30148:1038536 */ /* x218798 stalin.sc:30151:1038603 */ /* x218797 stalin.sc:30151:1038609 */ /* x218796 stalin.sc:30151:1038618 */ t12256 = a32495; /* x218795 stalin.sc:30151:1038610 */ a41327 = t12256; /* x299420 stalin.sc:7008:242336 */ /* x299419 stalin.sc:7008:242344 */ t12257 = a41327; /* x299418 stalin.sc:7008:242337 */ t12255 = f9720(t12257); /* x218794 stalin.sc:30151:1038604 */ t12245 = f18565(t12255); /* x218793 stalin.sc:30150:1038563 */ /* x218792 stalin.sc:30150:1038573 */ /* x218791 stalin.sc:30150:1038584 */ /* x218790 stalin.sc:30150:1038594 */ t12253 = a32495; /* x218789 stalin.sc:30150:1038585 */ a41497 = t12253; /* x300100 stalin.sc:6964:241199 */ /* x300099 stalin.sc:6964:241207 */ t12254 = a41497; /* x300098 stalin.sc:6964:241200 */ t12252 = f9719(t12254); /* x218788 stalin.sc:30150:1038574 */ t12249 = f9722(t12252); /* x218787 stalin.sc:30150:1038564 */ a41088 = t12249; /* x298464 stalin.sc:6937:240340 */ /* x298463 stalin.sc:6937:240360 */ t12250 = a41088; /* x298462 stalin.sc:6937:240341 */ a42405 = t12250; /* x303118 */ /* x303117 */ t12251 = a42405; /* x303116 */ if (!((t12251.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37581]"); structure_ref_error();} t12244 = t12251.value.structure_type27510->s9; /* x218786 stalin.sc:30149:1038555 */ t12243 = " "; /* x218785 stalin.sc:30148:1038537 */ t12248.tag = STRUCTURE_TYPE24753; t12248.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12248.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30148, 1038536); out_of_memory_error();} t12248.value.structure_type24753->s0.tag = STRING_TYPE; t12248.value.structure_type24753->s0.value.string_type = t12245; t12248.value.structure_type24753->s1.tag = NULL_TYPE; t12247.tag = STRUCTURE_TYPE24753; t12247.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12247.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30148, 1038536); out_of_memory_error();} t12247.value.structure_type24753->s0 = t12244; t12247.value.structure_type24753->s1 = t12248; t12246 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t12246==NULL) {backtrace("stalin.sc", 30148, 1038536); out_of_memory_error();} t12246->s0.tag = STRING_TYPE; t12246->s0.value.string_type = t12243; t12246->s1 = t12247; return f27556(t12246);} /* COMMAND-USAGE[18562] */ char *f18562(struct w49 a32492) {struct w49 a41086; /* S */ struct w49 a41329; /* S */ struct w49 a41330; /* S */ struct w49 a41495; /* S */ struct w49 a42407; /* S */ char *t12268; struct w49 t12269; char *t12270; struct structure_type24753 *t12271; struct w49 t12272; struct w49 t12273; struct w49 t12274; struct w49 t12275; struct w49 t12276; struct w49 t12277; struct w49 t12278; struct w49 t12279; struct w49 t12280; struct w49 t12281; struct w49 t12282; struct w49 t12283; /* x218817 stalin.sc:30139:1038291 */ /* x218816 stalin.sc:30142:1038361 */ /* x218815 stalin.sc:30142:1038375 */ /* x218814 stalin.sc:30142:1038384 */ /* x218813 stalin.sc:30142:1038393 */ t12282 = a32492; /* x218812 stalin.sc:30142:1038385 */ a41330 = t12282; /* x299432 stalin.sc:7008:242336 */ /* x299431 stalin.sc:7008:242344 */ t12283 = a41330; /* x299430 stalin.sc:7008:242337 */ t12280 = f9720(t12283); /* x218811 stalin.sc:30142:1038376 */ a41329 = t12280; /* x299428 stalin.sc:7008:242336 */ /* x299427 stalin.sc:7008:242344 */ t12281 = a41329; /* x299426 stalin.sc:7008:242337 */ t12279 = f9720(t12281); /* x218810 */ /* x218809 */ /* x218808 */ /* x218807 */ /* x218806 */ /* x218805 */ /* x218804 */ /* x218761 */ /* x218760 stalin.sc:30142:1038366 */ t12270 = f18565(t12279); /* x218759 stalin.sc:30141:1038328 */ /* x218758 stalin.sc:30141:1038338 */ /* x218757 stalin.sc:30141:1038348 */ t12277 = a32492; /* x218756 stalin.sc:30141:1038339 */ a41495 = t12277; /* x300092 stalin.sc:6964:241199 */ /* x300091 stalin.sc:6964:241207 */ t12278 = a41495; /* x300090 stalin.sc:6964:241200 */ t12274 = f9719(t12278); /* x218755 stalin.sc:30141:1038329 */ a41086 = t12274; /* x298456 stalin.sc:6937:240340 */ /* x298455 stalin.sc:6937:240360 */ t12275 = a41086; /* x298454 stalin.sc:6937:240341 */ a42407 = t12275; /* x303126 */ /* x303125 */ t12276 = a42407; /* x303124 */ if (!((t12276.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37583]"); structure_ref_error();} t12269 = t12276.value.structure_type27510->s9; /* x218754 stalin.sc:30140:1038315 */ t12268 = "-"; /* x218753 stalin.sc:30139:1038292 */ t12273.tag = STRUCTURE_TYPE24753; t12273.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12273.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30139, 1038291); out_of_memory_error();} t12273.value.structure_type24753->s0.tag = STRING_TYPE; t12273.value.structure_type24753->s0.value.string_type = t12270; t12273.value.structure_type24753->s1.tag = NULL_TYPE; t12272.tag = STRUCTURE_TYPE24753; t12272.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12272.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30139, 1038291); out_of_memory_error();} t12272.value.structure_type24753->s0 = t12269; t12272.value.structure_type24753->s1 = t12273; t12271 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t12271==NULL) {backtrace("stalin.sc", 30139, 1038291); out_of_memory_error();} t12271->s0.tag = STRING_TYPE; t12271->s0.value.string_type = t12268; t12271->s1 = t12272; return f27556(t12271);} /* LOOP[18559] */ char *f18559(struct w49 a32489) {struct w49 a41331; /* S */ struct w49 a41332; /* S */ struct w49 a41494; /* S */ struct w49 a41498; /* S */ struct w49 t12284; struct w49 t12285; struct w49 t12286; char *t12287; char *t12288; char *t12289; struct structure_type24753 *t12290; struct w49 t12291; struct w49 t12292; struct w49 t12293; struct w49 t12294; struct w49 t12295; struct w49 t12296; struct w49 t12297; struct w49 t12298; struct w49 t12299; struct w49 t12300; struct w49 t12301; /* x218824 */ /* x218823 */ /* x218822 */ /* x218821 */ /* x218820 */ /* x218819 */ /* x218818 */ /* x218752 */ /* x218751 stalin.sc:30152:1038635 */ /* x218732 stalin.sc:30152:1038639 */ /* x218731 stalin.sc:30152:1038649 */ /* x218730 stalin.sc:30152:1038658 */ t12285 = a32489; /* x218729 stalin.sc:30152:1038650 */ a41332 = t12285; /* x299440 stalin.sc:7008:242336 */ /* x299439 stalin.sc:7008:242344 */ t12286 = a41332; /* x299438 stalin.sc:7008:242337 */ t12284 = f9720(t12286); /* x218728 stalin.sc:30152:1038640 */ if (f9739(t12284)==FALSE_TYPE) goto l3830; /* x218737 stalin.sc:30153:1038666 */ /* x218736 stalin.sc:30153:1038681 */ /* x218735 stalin.sc:30153:1038691 */ t12300 = a32489; /* x218734 stalin.sc:30153:1038682 */ a41494 = t12300; /* x300088 stalin.sc:6964:241199 */ /* x300087 stalin.sc:6964:241207 */ t12301 = a41494; /* x300086 stalin.sc:6964:241200 */ t12299 = f9719(t12301); /* x218733 stalin.sc:30153:1038667 */ return f18562(t12299); l3830: /* x218750 stalin.sc:30154:1038699 */ /* x218749 stalin.sc:30157:1038762 */ /* x218748 stalin.sc:30157:1038768 */ /* x218747 stalin.sc:30157:1038777 */ t12297 = a32489; /* x218746 stalin.sc:30157:1038769 */ a41331 = t12297; /* x299436 stalin.sc:7008:242336 */ /* x299435 stalin.sc:7008:242344 */ t12298 = a41331; /* x299434 stalin.sc:7008:242337 */ t12296 = f9720(t12298); /* x218745 stalin.sc:30157:1038763 */ t12289 = f18559(t12296); /* x218744 stalin.sc:30156:1038753 */ t12288 = "|"; /* x218743 stalin.sc:30155:1038719 */ /* x218742 stalin.sc:30155:1038734 */ /* x218741 stalin.sc:30155:1038744 */ t12294 = a32489; /* x218740 stalin.sc:30155:1038735 */ a41498 = t12294; /* x300104 stalin.sc:6964:241199 */ /* x300103 stalin.sc:6964:241207 */ t12295 = a41498; /* x300102 stalin.sc:6964:241200 */ t12293 = f9719(t12295); /* x218739 stalin.sc:30155:1038720 */ t12287 = f18562(t12293); /* x218738 stalin.sc:30154:1038700 */ t12292.tag = STRUCTURE_TYPE24753; t12292.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12292.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30154, 1038699); out_of_memory_error();} t12292.value.structure_type24753->s0.tag = STRING_TYPE; t12292.value.structure_type24753->s0.value.string_type = t12289; t12292.value.structure_type24753->s1.tag = NULL_TYPE; t12291.tag = STRUCTURE_TYPE24753; t12291.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12291.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30154, 1038699); out_of_memory_error();} t12291.value.structure_type24753->s0.tag = STRING_TYPE; t12291.value.structure_type24753->s0.value.string_type = t12288; t12291.value.structure_type24753->s1 = t12292; t12290 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t12290==NULL) {backtrace("stalin.sc", 30154, 1038699); out_of_memory_error();} t12290->s0.tag = STRING_TYPE; t12290->s0.value.string_type = t12287; t12290->s1 = t12291; return f27556(t12290);} /* COMMAND-USAGE1[18555] */ char *f18555(struct w49 a32485) {char *a32486; /* S */ char *t12302; int t12303; int t12304; struct w49 t12305; char *t12306; char *t12307; char *t12308; struct structure_type24753 *t12309; struct w49 t12310; struct w49 t12311; struct w49 t12312; /* x218834 stalin.sc:30137:1038223 */ /* x218833 stalin.sc:30137:1038232 */ /* x218832 stalin.sc:30137:1038246 */ t12312 = a32485; /* x218831 */ /* x218830 */ /* x218829 */ /* x218828 */ /* x218827 */ /* x218826 */ /* x218825 */ /* x218727 */ /* x218726 stalin.sc:30137:1038237 */ t12302 = f18559(t12312); /* x218725 */ a32486 = t12302; /* x218724 stalin.sc:30158:1038791 */ /* x218717 stalin.sc:30158:1038795 */ /* x218715 stalin.sc:30158:1038798 */ /* x218714 stalin.sc:30158:1038809 */ t12305 = a32485; /* x218713 stalin.sc:30158:1038799 */ t12303 = f9734(t12305); /* x218716 stalin.sc:30158:1038812 */ t12304 = 1; /* x267918 stalin.sc:30158:1038796 */ if (!(t12303==t12304)) goto l3832; /* x218718 stalin.sc:30158:1038815 */ return a32486; l3832: /* x218723 stalin.sc:30158:1038817 */ /* x218722 stalin.sc:30158:1038838 */ t12308 = "]"; /* x218721 stalin.sc:30158:1038836 */ t12307 = a32486; /* x218720 stalin.sc:30158:1038832 */ t12306 = "["; /* x218719 stalin.sc:30158:1038818 */ t12311.tag = STRUCTURE_TYPE24753; t12311.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12311.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30158, 1038817); out_of_memory_error();} t12311.value.structure_type24753->s0.tag = STRING_TYPE; t12311.value.structure_type24753->s0.value.string_type = t12308; t12311.value.structure_type24753->s1.tag = NULL_TYPE; t12310.tag = STRUCTURE_TYPE24753; t12310.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12310.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30158, 1038817); out_of_memory_error();} t12310.value.structure_type24753->s0.tag = STRING_TYPE; t12310.value.structure_type24753->s0.value.string_type = t12307; t12310.value.structure_type24753->s1 = t12311; t12309 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t12309==NULL) {backtrace("stalin.sc", 30158, 1038817); out_of_memory_error();} t12309->s0.tag = STRING_TYPE; t12309->s0.value.string_type = t12306; t12309->s1 = t12310; return f27556(t12309);} /* COMMAND-USAGE[18543] */ char *f18543(struct w49 a32481) {struct w49 a32484; /* v */ struct w49 a41089; /* S */ struct w49 a41090; /* S */ struct w49 a41091; /* S */ struct w49 a41092; /* S */ struct w49 a41321; /* S */ struct w49 a41322; /* S */ struct w49 a41323; /* S */ struct w49 a41324; /* S */ struct w49 a41325; /* S */ struct w49 a41326; /* S */ struct w49 a41333; /* S */ struct w49 a41334; /* S */ struct w49 a41335; /* S */ struct w49 a41336; /* S */ struct w49 a41491; /* S */ struct w49 a41492; /* S */ struct w49 a41493; /* S */ struct w49 a41499; /* S */ struct w49 a41500; /* S */ struct w49 a41501; /* S */ struct w49 a41502; /* S */ struct w49 a41503; /* S */ struct w49 a41504; /* S */ struct w49 a42401; /* S */ struct w49 a42402; /* S */ struct w49 a42403; /* S */ struct w49 a42404; /* S */ struct w49 t12313; struct w49 t12314; struct w49 t12315; char *t12316; struct w49 t12317; struct w49 t12318; char *t12319; struct w49 t12320; struct w49 t12321; char *t12322; struct w49 t12323; struct w49 t12324; char *t12325; struct w49 t12326; struct w49 t12327; char *t12328; struct w49 t12329; struct w49 t12330; char *t12331; struct w49 t12332; struct w49 t12333; char *t12334; struct w49 t12335; char *t12336; char *t12337; struct w49 t12338; char *t12339; struct structure_type24753 *t12340; struct w49 t12341; struct w49 t12342; struct w49 t12343; struct w49 t12344; struct w49 t12345; struct w49 t12346; struct w49 t12347; struct w49 t12348; struct w49 t12349; char *t12350; struct w49 t12351; char *t12352; char *t12353; struct structure_type24753 *t12354; struct w49 t12355; struct w49 t12356; struct w49 t12357; struct w49 t12358; struct w49 t12359; struct w49 t12360; struct w49 t12361; struct w49 t12362; struct w49 t12363; struct w49 t12364; struct w49 t12365; struct w49 t12366; struct w49 t12367; char *t12368; struct w49 t12369; char *t12370; struct structure_type24753 *t12371; struct w49 t12372; struct w49 t12373; struct w49 t12374; struct w49 t12375; struct w49 t12376; struct w49 t12377; struct w49 t12378; struct w49 t12379; struct w49 t12380; struct w49 t12381; struct w49 t12382; struct w49 t12383; char *t12384; char *t12385; char *t12386; struct structure_type24753 *t12387; struct w49 t12388; struct w49 t12389; struct w49 t12390; struct w49 t12391; struct w49 t12392; struct w49 t12393; struct w49 t12394; struct w49 t12395; struct w49 t12396; struct w49 t12397; char *t12398; char *t12399; char *t12400; char *t12401; struct structure_type24753 *t12402; struct w49 t12403; struct w49 t12404; struct w49 t12405; struct w49 t12406; struct w49 t12407; struct w49 t12408; struct w49 t12409; struct w49 t12410; struct w49 t12411; struct w49 t12412; struct w49 t12413; char *t12414; char *t12415; char *t12416; char *t12417; struct structure_type24753 *t12418; struct w49 t12419; struct w49 t12420; struct w49 t12421; struct w49 t12422; struct w49 t12423; struct w49 t12424; struct w49 t12425; struct w49 t12426; struct w49 t12427; struct w49 t12428; struct w49 t12429; char *t12430; char *t12431; char *t12432; char *t12433; struct structure_type24753 *t12434; struct w49 t12435; struct w49 t12436; struct w49 t12437; struct w49 t12438; struct w49 t12439; struct w49 t12440; struct w49 t12441; struct w49 t12442; struct w49 t12443; struct w49 t12444; struct w49 t12445; struct w49 t12446; struct w49 t12447; struct w49 t12448; struct w49 t12449; struct w49 t12450; struct w49 t12451; struct w49 t12452; /* x218841 */ /* x218840 */ /* x218839 */ /* x218838 */ /* x218837 */ /* x218836 */ /* x218835 */ /* x218711 */ /* x218710 stalin.sc:30159:1038849 */ /* x218535 stalin.sc:30159:1038853 */ /* x218534 stalin.sc:30159:1038863 */ t12313 = a32481; /* x218533 stalin.sc:30159:1038854 */ if (f9739(t12313)==FALSE_TYPE) goto l3834; /* x218536 stalin.sc:30160:1038873 */ return ""; l3834: /* x218709 stalin.sc:30161:1038883 */ /* x218708 stalin.sc:30161:1038889 */ /* x218707 stalin.sc:30161:1038899 */ /* x218706 stalin.sc:30161:1038909 */ /* x218705 stalin.sc:30161:1038919 */ t12451 = a32481; /* x218704 stalin.sc:30161:1038910 */ a41504 = t12451; /* x300128 stalin.sc:6964:241199 */ /* x300127 stalin.sc:6964:241207 */ t12452 = a41504; /* x300126 stalin.sc:6964:241200 */ t12449 = f9719(t12452); /* x218703 stalin.sc:30161:1038900 */ a41503 = t12449; /* x300124 stalin.sc:6964:241199 */ /* x300123 stalin.sc:6964:241207 */ t12450 = a41503; /* x300122 stalin.sc:6964:241200 */ t12446 = f9719(t12450); /* x218702 stalin.sc:30161:1038890 */ a41092 = t12446; /* x298480 stalin.sc:6937:240340 */ /* x298479 stalin.sc:6937:240360 */ t12447 = a41092; /* x298478 stalin.sc:6937:240341 */ a42401 = t12447; /* x303102 */ /* x303101 */ t12448 = a42401; /* x303100 */ if (!((t12448.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37577]"); structure_ref_error();} t12314 = t12448.value.structure_type27510->s9; /* x218701 */ a32484 = t12314; /* x218700 */ /* x218540 */ /* x218538 */ t12315 = a32484; /* x218539 */ t12316 = q744; /* x218537 */ t12317.tag = EXTERNAL_SYMBOL_TYPE; t12317.value.external_symbol_type = t12316; if (f26160(t12315, t12317)==FALSE_TYPE) goto l3836; /* x218558 */ /* x218557 */ /* x218556 stalin.sc:30163:1038948 */ /* x218555 stalin.sc:30166:1039043 */ /* x218554 stalin.sc:30166:1039058 */ /* x218553 stalin.sc:30166:1039067 */ t12444 = a32481; /* x218552 stalin.sc:30166:1039059 */ a41322 = t12444; /* x299400 stalin.sc:7008:242336 */ /* x299399 stalin.sc:7008:242344 */ t12445 = a41322; /* x299398 stalin.sc:7008:242337 */ t12443 = f9720(t12445); /* x218551 stalin.sc:30166:1039044 */ t12433 = f18543(t12443); /* x218550 stalin.sc:30165:1039028 */ t12432 = "]*"; /* x218549 stalin.sc:30164:1038978 */ /* x218548 stalin.sc:30164:1038994 */ /* x218547 stalin.sc:30164:1039003 */ /* x218546 stalin.sc:30164:1039013 */ t12441 = a32481; /* x218545 stalin.sc:30164:1039004 */ a41491 = t12441; /* x300076 stalin.sc:6964:241199 */ /* x300075 stalin.sc:6964:241207 */ t12442 = a41491; /* x300074 stalin.sc:6964:241200 */ t12439 = f9719(t12442); /* x218544 stalin.sc:30164:1038995 */ a41321 = t12439; /* x299396 stalin.sc:7008:242336 */ /* x299395 stalin.sc:7008:242344 */ t12440 = a41321; /* x299394 stalin.sc:7008:242337 */ t12438 = f9720(t12440); /* x218543 stalin.sc:30164:1038979 */ t12431 = f18555(t12438); /* x218542 stalin.sc:30163:1038963 */ t12430 = " ["; /* x218541 stalin.sc:30163:1038949 */ t12437.tag = STRUCTURE_TYPE24753; t12437.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12437.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30163, 1038948); out_of_memory_error();} t12437.value.structure_type24753->s0.tag = STRING_TYPE; t12437.value.structure_type24753->s0.value.string_type = t12433; t12437.value.structure_type24753->s1.tag = NULL_TYPE; t12436.tag = STRUCTURE_TYPE24753; t12436.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12436.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30163, 1038948); out_of_memory_error();} t12436.value.structure_type24753->s0.tag = STRING_TYPE; t12436.value.structure_type24753->s0.value.string_type = t12432; t12436.value.structure_type24753->s1 = t12437; t12435.tag = STRUCTURE_TYPE24753; t12435.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12435.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30163, 1038948); out_of_memory_error();} t12435.value.structure_type24753->s0.tag = STRING_TYPE; t12435.value.structure_type24753->s0.value.string_type = t12431; t12435.value.structure_type24753->s1 = t12436; t12434 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t12434==NULL) {backtrace("stalin.sc", 30163, 1038948); out_of_memory_error();} t12434->s0.tag = STRING_TYPE; t12434->s0.value.string_type = t12430; t12434->s1 = t12435; return f27556(t12434); l3836: /* x218699 */ /* x218562 */ /* x218560 */ t12318 = a32484; /* x218561 */ t12319 = q745; /* x218559 */ t12320.tag = EXTERNAL_SYMBOL_TYPE; t12320.value.external_symbol_type = t12319; if (f26160(t12318, t12320)==FALSE_TYPE) goto l3838; /* x218580 */ /* x218579 */ /* x218578 stalin.sc:30168:1039099 */ /* x218577 stalin.sc:30171:1039194 */ /* x218576 stalin.sc:30171:1039209 */ /* x218575 stalin.sc:30171:1039218 */ t12428 = a32481; /* x218574 stalin.sc:30171:1039210 */ a41324 = t12428; /* x299408 stalin.sc:7008:242336 */ /* x299407 stalin.sc:7008:242344 */ t12429 = a41324; /* x299406 stalin.sc:7008:242337 */ t12427 = f9720(t12429); /* x218573 stalin.sc:30171:1039195 */ t12417 = f18543(t12427); /* x218572 stalin.sc:30170:1039179 */ t12416 = "]+"; /* x218571 stalin.sc:30169:1039129 */ /* x218570 stalin.sc:30169:1039145 */ /* x218569 stalin.sc:30169:1039154 */ /* x218568 stalin.sc:30169:1039164 */ t12425 = a32481; /* x218567 stalin.sc:30169:1039155 */ a41492 = t12425; /* x300080 stalin.sc:6964:241199 */ /* x300079 stalin.sc:6964:241207 */ t12426 = a41492; /* x300078 stalin.sc:6964:241200 */ t12423 = f9719(t12426); /* x218566 stalin.sc:30169:1039146 */ a41323 = t12423; /* x299404 stalin.sc:7008:242336 */ /* x299403 stalin.sc:7008:242344 */ t12424 = a41323; /* x299402 stalin.sc:7008:242337 */ t12422 = f9720(t12424); /* x218565 stalin.sc:30169:1039130 */ t12415 = f18555(t12422); /* x218564 stalin.sc:30168:1039114 */ t12414 = " ["; /* x218563 stalin.sc:30168:1039100 */ t12421.tag = STRUCTURE_TYPE24753; t12421.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12421.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30168, 1039099); out_of_memory_error();} t12421.value.structure_type24753->s0.tag = STRING_TYPE; t12421.value.structure_type24753->s0.value.string_type = t12417; t12421.value.structure_type24753->s1.tag = NULL_TYPE; t12420.tag = STRUCTURE_TYPE24753; t12420.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12420.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30168, 1039099); out_of_memory_error();} t12420.value.structure_type24753->s0.tag = STRING_TYPE; t12420.value.structure_type24753->s0.value.string_type = t12416; t12420.value.structure_type24753->s1 = t12421; t12419.tag = STRUCTURE_TYPE24753; t12419.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12419.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30168, 1039099); out_of_memory_error();} t12419.value.structure_type24753->s0.tag = STRING_TYPE; t12419.value.structure_type24753->s0.value.string_type = t12415; t12419.value.structure_type24753->s1 = t12420; t12418 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t12418==NULL) {backtrace("stalin.sc", 30168, 1039099); out_of_memory_error();} t12418->s0.tag = STRING_TYPE; t12418->s0.value.string_type = t12414; t12418->s1 = t12419; return f27556(t12418); l3838: /* x218698 */ /* x218584 */ /* x218582 */ t12321 = a32484; /* x218583 */ t12322 = q746; /* x218581 */ t12323.tag = EXTERNAL_SYMBOL_TYPE; t12323.value.external_symbol_type = t12322; if (f26160(t12321, t12323)==FALSE_TYPE) goto l3840; /* x218602 */ /* x218601 */ /* x218600 stalin.sc:30173:1039249 */ /* x218599 stalin.sc:30177:1039325 */ /* x218598 stalin.sc:30177:1039340 */ /* x218597 stalin.sc:30177:1039349 */ t12412 = a32481; /* x218596 stalin.sc:30177:1039341 */ a41326 = t12412; /* x299416 stalin.sc:7008:242336 */ /* x299415 stalin.sc:7008:242344 */ t12413 = a41326; /* x299414 stalin.sc:7008:242337 */ t12411 = f9720(t12413); /* x218595 stalin.sc:30177:1039326 */ t12401 = f18543(t12411); /* x218594 stalin.sc:30176:1039318 */ t12400 = "]"; /* x218593 stalin.sc:30175:1039275 */ /* x218592 stalin.sc:30175:1039291 */ /* x218591 stalin.sc:30175:1039300 */ /* x218590 stalin.sc:30175:1039310 */ t12409 = a32481; /* x218589 stalin.sc:30175:1039301 */ a41493 = t12409; /* x300084 stalin.sc:6964:241199 */ /* x300083 stalin.sc:6964:241207 */ t12410 = a41493; /* x300082 stalin.sc:6964:241200 */ t12407 = f9719(t12410); /* x218588 stalin.sc:30175:1039292 */ a41325 = t12407; /* x299412 stalin.sc:7008:242336 */ /* x299411 stalin.sc:7008:242344 */ t12408 = a41325; /* x299410 stalin.sc:7008:242337 */ t12406 = f9720(t12408); /* x218587 stalin.sc:30175:1039276 */ t12399 = f18555(t12406); /* x218586 stalin.sc:30174:1039267 */ t12398 = " ["; /* x218585 stalin.sc:30173:1039250 */ t12405.tag = STRUCTURE_TYPE24753; t12405.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12405.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30173, 1039249); out_of_memory_error();} t12405.value.structure_type24753->s0.tag = STRING_TYPE; t12405.value.structure_type24753->s0.value.string_type = t12401; t12405.value.structure_type24753->s1.tag = NULL_TYPE; t12404.tag = STRUCTURE_TYPE24753; t12404.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12404.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30173, 1039249); out_of_memory_error();} t12404.value.structure_type24753->s0.tag = STRING_TYPE; t12404.value.structure_type24753->s0.value.string_type = t12400; t12404.value.structure_type24753->s1 = t12405; t12403.tag = STRUCTURE_TYPE24753; t12403.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12403.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30173, 1039249); out_of_memory_error();} t12403.value.structure_type24753->s0.tag = STRING_TYPE; t12403.value.structure_type24753->s0.value.string_type = t12399; t12403.value.structure_type24753->s1 = t12404; t12402 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t12402==NULL) {backtrace("stalin.sc", 30173, 1039249); out_of_memory_error();} t12402->s0.tag = STRING_TYPE; t12402->s0.value.string_type = t12398; t12402->s1 = t12403; return f27556(t12402); l3840: /* x218697 */ /* x218606 */ /* x218604 */ t12324 = a32484; /* x218605 */ t12325 = q747; /* x218603 */ t12326.tag = EXTERNAL_SYMBOL_TYPE; t12326.value.external_symbol_type = t12325; if (f26160(t12324, t12326)==FALSE_TYPE) goto l3842; /* x218623 */ /* x218622 */ /* x218621 stalin.sc:30179:1039380 */ /* x218620 stalin.sc:30182:1039448 */ /* x218619 stalin.sc:30182:1039463 */ /* x218618 stalin.sc:30182:1039472 */ t12396 = a32481; /* x218617 stalin.sc:30182:1039464 */ a41334 = t12396; /* x299448 stalin.sc:7008:242336 */ /* x299447 stalin.sc:7008:242344 */ t12397 = a41334; /* x299446 stalin.sc:7008:242337 */ t12395 = f9720(t12397); /* x218616 stalin.sc:30182:1039449 */ t12386 = f18543(t12395); /* x218615 stalin.sc:30181:1039405 */ /* x218614 stalin.sc:30181:1039421 */ /* x218613 stalin.sc:30181:1039430 */ /* x218612 stalin.sc:30181:1039440 */ t12393 = a32481; /* x218611 stalin.sc:30181:1039431 */ a41499 = t12393; /* x300108 stalin.sc:6964:241199 */ /* x300107 stalin.sc:6964:241207 */ t12394 = a41499; /* x300106 stalin.sc:6964:241200 */ t12391 = f9719(t12394); /* x218610 stalin.sc:30181:1039422 */ a41333 = t12391; /* x299444 stalin.sc:7008:242336 */ /* x299443 stalin.sc:7008:242344 */ t12392 = a41333; /* x299442 stalin.sc:7008:242337 */ t12390 = f9720(t12392); /* x218609 stalin.sc:30181:1039406 */ t12385 = f18555(t12390); /* x218608 stalin.sc:30180:1039398 */ t12384 = " "; /* x218607 stalin.sc:30179:1039381 */ t12389.tag = STRUCTURE_TYPE24753; t12389.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12389.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30179, 1039380); out_of_memory_error();} t12389.value.structure_type24753->s0.tag = STRING_TYPE; t12389.value.structure_type24753->s0.value.string_type = t12386; t12389.value.structure_type24753->s1.tag = NULL_TYPE; t12388.tag = STRUCTURE_TYPE24753; t12388.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12388.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30179, 1039380); out_of_memory_error();} t12388.value.structure_type24753->s0.tag = STRING_TYPE; t12388.value.structure_type24753->s0.value.string_type = t12385; t12388.value.structure_type24753->s1 = t12389; t12387 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t12387==NULL) {backtrace("stalin.sc", 30179, 1039380); out_of_memory_error();} t12387->s0.tag = STRING_TYPE; t12387->s0.value.string_type = t12384; t12387->s1 = t12388; return f27556(t12387); l3842: /* x218696 */ /* x218627 */ /* x218625 */ t12327 = a32484; /* x218626 */ t12328 = q743; /* x218624 */ t12329.tag = EXTERNAL_SYMBOL_TYPE; t12329.value.external_symbol_type = t12328; if (f26160(t12327, t12329)==FALSE_TYPE) goto l3844; /* x218646 */ /* x218645 */ /* x218644 stalin.sc:30184:1039500 */ /* x218643 stalin.sc:30186:1039587 */ /* x218642 stalin.sc:30186:1039602 */ /* x218641 stalin.sc:30186:1039611 */ t12382 = a32481; /* x218640 stalin.sc:30186:1039603 */ a41335 = t12382; /* x299452 stalin.sc:7008:242336 */ /* x299451 stalin.sc:7008:242344 */ t12383 = a41335; /* x299450 stalin.sc:7008:242337 */ t12381 = f9720(t12383); /* x218639 stalin.sc:30186:1039588 */ t12370 = f18543(t12381); /* x218638 stalin.sc:30185:1039529 */ /* x218637 stalin.sc:30185:1039539 */ /* x218636 stalin.sc:30185:1039550 */ /* x218635 stalin.sc:30185:1039561 */ /* x218634 stalin.sc:30185:1039571 */ t12379 = a32481; /* x218633 stalin.sc:30185:1039562 */ a41500 = t12379; /* x300112 stalin.sc:6964:241199 */ /* x300111 stalin.sc:6964:241207 */ t12380 = a41500; /* x300110 stalin.sc:6964:241200 */ t12378 = f9719(t12380); /* x218632 stalin.sc:30185:1039551 */ t12377 = f9722(t12378); /* x218631 stalin.sc:30185:1039540 */ t12374 = f9722(t12377); /* x218630 stalin.sc:30185:1039530 */ a41089 = t12374; /* x298468 stalin.sc:6937:240340 */ /* x298467 stalin.sc:6937:240360 */ t12375 = a41089; /* x298466 stalin.sc:6937:240341 */ a42404 = t12375; /* x303114 */ /* x303113 */ t12376 = a42404; /* x303112 */ if (!((t12376.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37580]"); structure_ref_error();} t12369 = t12376.value.structure_type27510->s9; /* x218629 stalin.sc:30184:1039515 */ t12368 = " "; /* x218628 stalin.sc:30184:1039501 */ t12373.tag = STRUCTURE_TYPE24753; t12373.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12373.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30184, 1039500); out_of_memory_error();} t12373.value.structure_type24753->s0.tag = STRING_TYPE; t12373.value.structure_type24753->s0.value.string_type = t12370; t12373.value.structure_type24753->s1.tag = NULL_TYPE; t12372.tag = STRUCTURE_TYPE24753; t12372.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12372.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30184, 1039500); out_of_memory_error();} t12372.value.structure_type24753->s0 = t12369; t12372.value.structure_type24753->s1 = t12373; t12371 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t12371==NULL) {backtrace("stalin.sc", 30184, 1039500); out_of_memory_error();} t12371->s0.tag = STRING_TYPE; t12371->s0.value.string_type = t12368; t12371->s1 = t12372; return f27556(t12371); l3844: /* x218695 */ /* x218650 */ /* x218648 */ t12330 = a32484; /* x218649 */ t12331 = q741; /* x218647 */ t12332.tag = EXTERNAL_SYMBOL_TYPE; t12332.value.external_symbol_type = t12331; if (f26160(t12330, t12332)==FALSE_TYPE) goto l3846; /* x218670 */ /* x218669 */ /* x218668 stalin.sc:30188:1039639 */ /* x218667 stalin.sc:30190:1039755 */ t12353 = "]"; /* x218666 stalin.sc:30190:1039727 */ /* x218665 stalin.sc:30190:1039742 */ /* x218664 stalin.sc:30190:1039751 */ t12366 = a32481; /* x218663 stalin.sc:30190:1039743 */ a41336 = t12366; /* x299456 stalin.sc:7008:242336 */ /* x299455 stalin.sc:7008:242344 */ t12367 = a41336; /* x299454 stalin.sc:7008:242337 */ t12365 = f9720(t12367); /* x218662 stalin.sc:30190:1039728 */ t12352 = f18543(t12365); /* x218661 stalin.sc:30189:1039669 */ /* x218660 stalin.sc:30189:1039679 */ /* x218659 stalin.sc:30189:1039690 */ /* x218658 stalin.sc:30189:1039701 */ /* x218657 stalin.sc:30189:1039711 */ t12363 = a32481; /* x218656 stalin.sc:30189:1039702 */ a41501 = t12363; /* x300116 stalin.sc:6964:241199 */ /* x300115 stalin.sc:6964:241207 */ t12364 = a41501; /* x300114 stalin.sc:6964:241200 */ t12362 = f9719(t12364); /* x218655 stalin.sc:30189:1039691 */ t12361 = f9722(t12362); /* x218654 stalin.sc:30189:1039680 */ t12358 = f9722(t12361); /* x218653 stalin.sc:30189:1039670 */ a41090 = t12358; /* x298472 stalin.sc:6937:240340 */ /* x298471 stalin.sc:6937:240360 */ t12359 = a41090; /* x298470 stalin.sc:6937:240341 */ a42403 = t12359; /* x303110 */ /* x303109 */ t12360 = a42403; /* x303108 */ if (!((t12360.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37579]"); structure_ref_error();} t12351 = t12360.value.structure_type27510->s9; /* x218652 stalin.sc:30188:1039654 */ t12350 = " ["; /* x218651 stalin.sc:30188:1039640 */ t12357.tag = STRUCTURE_TYPE24753; t12357.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12357.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30188, 1039639); out_of_memory_error();} t12357.value.structure_type24753->s0.tag = STRING_TYPE; t12357.value.structure_type24753->s0.value.string_type = t12353; t12357.value.structure_type24753->s1.tag = NULL_TYPE; t12356.tag = STRUCTURE_TYPE24753; t12356.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12356.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30188, 1039639); out_of_memory_error();} t12356.value.structure_type24753->s0.tag = STRING_TYPE; t12356.value.structure_type24753->s0.value.string_type = t12352; t12356.value.structure_type24753->s1 = t12357; t12355.tag = STRUCTURE_TYPE24753; t12355.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t12355.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30188, 1039639); out_of_memory_error();} t12355.value.structure_type24753->s0 = t12351; t12355.value.structure_type24753->s1 = t12356; t12354 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t12354==NULL) {backtrace("stalin.sc", 30188, 1039639); out_of_memory_error();} t12354->s0.tag = STRING_TYPE; t12354->s0.value.string_type = t12350; t12354->s1 = t12355; return f27556(t12354); l3846: /* x218694 */ /* x218674 */ /* x218672 */ t12333 = a32484; /* x218673 */ t12334 = q742; /* x218671 */ t12335.tag = EXTERNAL_SYMBOL_TYPE; t12335.value.external_symbol_type = t12334; if (f26160(t12333, t12335)==FALSE_TYPE) goto l3848; /* x218689 */ /* x218688 */ while (region18553!=((struct region18553 *)(&initial_region18553))) {struct region18553 *region; region = region18553; region18553 = region18553->region; GC_free(region);} region_size18553 = REGION_SIZE18553; fp18553 = &((region18553->data)[0]); ALIGN(fp18553); /* x218687 stalin.sc:30192:1039779 */ /* x218686 stalin.sc:30194:1039867 */ t12339 = "]*"; /* x218685 stalin.sc:30193:1039809 */ /* x218684 stalin.sc:30193:1039819 */ /* x218683 stalin.sc:30193:1039830 */ /* x218682 stalin.sc:30193:1039841 */ /* x218681 stalin.sc:30193:1039851 */ t12348 = a32481; /* x218680 stalin.sc:30193:1039842 */ a41502 = t12348; /* x300120 stalin.sc:6964:241199 */ /* x300119 stalin.sc:6964:241207 */ t12349 = a41502; /* x300118 stalin.sc:6964:241200 */ t12347 = f9719(t12349); /* x218679 stalin.sc:30193:1039831 */ t12346 = f9722(t12347); /* x218678 stalin.sc:30193:1039820 */ t12343 = f9722(t12346); /* x218677 stalin.sc:30193:1039810 */ a41091 = t12343; /* x298476 stalin.sc:6937:240340 */ /* x298475 stalin.sc:6937:240360 */ t12344 = a41091; /* x298474 stalin.sc:6937:240341 */ a42402 = t12344; /* x303106 */ /* x303105 */ t12345 = a42402; /* x303104 */ if (!((t12345.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37578]"); structure_ref_error();} t12338 = t12345.value.structure_type27510->s9; /* x218676 stalin.sc:30192:1039794 */ t12337 = " ["; /* x218675 stalin.sc:30192:1039780 */ if ((fp18553+sizeof(struct structure_type24753))>(&((region18553->data)[region_size18553]))) {struct region18553 *region; unsigned region_size = REGION_SIZE18553; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region18553 *)GC_malloc_uncollectable(sizeof(struct region18553)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 30192, 1039779); out_of_memory_error();} region->region = region18553; region_size18553 = region_size; region18553 = region; fp18553 = &((region->data)[0]); ALIGN(fp18553);} t12342.tag = STRUCTURE_TYPE24753; t12342.value.structure_type24753 = (struct structure_type24753 *)fp18553; fp18553 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t12342.value.structure_type24753->s0.tag = STRING_TYPE; t12342.value.structure_type24753->s0.value.string_type = t12339; t12342.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp18553+sizeof(struct structure_type24753))>(&((region18553->data)[region_size18553]))) {struct region18553 *region; unsigned region_size = REGION_SIZE18553; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region18553 *)GC_malloc_uncollectable(sizeof(struct region18553)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 30192, 1039779); out_of_memory_error();} region->region = region18553; region_size18553 = region_size; region18553 = region; fp18553 = &((region->data)[0]); ALIGN(fp18553);} t12341.tag = STRUCTURE_TYPE24753; t12341.value.structure_type24753 = (struct structure_type24753 *)fp18553; fp18553 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t12341.value.structure_type24753->s0 = t12338; t12341.value.structure_type24753->s1 = t12342; if ((fp18553+sizeof(struct structure_type24753))>(&((region18553->data)[region_size18553]))) {struct region18553 *region; unsigned region_size = REGION_SIZE18553; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region18553 *)GC_malloc_uncollectable(sizeof(struct region18553)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 30192, 1039779); out_of_memory_error();} region->region = region18553; region_size18553 = region_size; region18553 = region; fp18553 = &((region->data)[0]); ALIGN(fp18553);} t12340 = (struct structure_type24753 *)fp18553; fp18553 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t12340->s0.tag = STRING_TYPE; t12340->s0.value.string_type = t12337; t12340->s1 = t12341; return f27556(t12340); l3848: /* x218693 */ /* x218692 */ /* x218691 stalin.sc:30195:1039888 */ /* x218690 stalin.sc:30195:1039889 */ /* x297489 QobiScheme.sc:166:5314 */ /* x297488 QobiScheme.sc:166:5321 */ t12336 = "This shouldn\'t happen"; /* x297487 QobiScheme.sc:166:5315 */ stalin_panic(t12336);} /* ORDER-OK?[18530] */ unsigned f18530(struct w49 a32473) {struct w49 a41376; /* S */ struct w49 a41377; /* S */ struct w49 a41383; /* S */ struct w49 a41384; /* S */ struct w49 a41555; /* S */ struct w49 a41556; /* S */ struct w49 a41557; /* S */ struct w49 a41558; /* S */ struct w49 a41569; /* S */ struct w49 a41570; /* S */ struct w49 a41571; /* S */ struct w49 a41572; /* S */ struct w49 a41573; /* S */ struct w49 a41574; /* S */ struct w49 a41575; /* S */ struct w49 a41576; /* S */ struct w49 a41577; /* S */ struct w49 a41578; /* S */ struct w49 t12453; struct w49 t12454; char *t12455; struct w49 t12456; struct w49 t12457; struct w49 t12458; struct w49 t12459; struct w49 t12460; struct w49 t12461; char *t12462; struct w49 t12463; struct w49 t12464; struct w49 t12465; struct w49 t12466; struct w49 t12467; struct w49 t12468; char *t12469; struct w49 t12470; struct w49 t12471; struct w49 t12472; struct w49 t12473; struct w49 t12474; struct w49 t12475; char *t12476; struct w49 t12477; struct w49 t12478; struct w49 t12479; struct w49 t12480; struct w49 t12481; struct w49 t12482; struct w49 t12483; struct w49 t12484; struct w49 t12485; char *t12486; struct w49 t12487; struct w49 t12488; struct w49 t12489; struct w49 t12490; struct w49 t12491; struct w49 t12492; struct w49 t12493; struct w49 t12494; struct w49 t12495; char *t12496; struct w49 t12497; struct w49 t12498; struct w49 t12499; struct w49 t12500; struct w49 t12501; struct w49 t12502; struct w49 t12503; struct w49 t12504; struct w49 t12505; char *t12506; struct w49 t12507; struct w49 t12508; struct w49 t12509; struct w49 t12510; struct w49 t12511; struct w49 t12512; struct w49 t12513; struct w49 t12514; /* x218515 stalin.sc:30081:1036377 */ /* x218515 stalin.sc:30081:1036377 */ /* x218514 stalin.sc:30081:1036381 */ /* x218513 stalin.sc:30081:1036391 */ t12453 = a32473; /* x218512 stalin.sc:30081:1036382 */ if (!(f9739(t12453)==FALSE_TYPE)) goto l3849; /* x218509 */ /* x218508 stalin.sc:30082:1036402 */ /* x218501 stalin.sc:30082:1036407 */ /* x218500 stalin.sc:30082:1036411 */ /* x218498 stalin.sc:30082:1036419 */ /* x218497 stalin.sc:30082:1036429 */ /* x218496 stalin.sc:30082:1036439 */ t12459 = a32473; /* x218495 stalin.sc:30082:1036430 */ a41578 = t12459; /* x300424 stalin.sc:6964:241199 */ /* x300423 stalin.sc:6964:241207 */ t12460 = a41578; /* x300422 stalin.sc:6964:241200 */ t12457 = f9719(t12460); /* x218494 stalin.sc:30082:1036420 */ a41577 = t12457; /* x300420 stalin.sc:6964:241199 */ /* x300419 stalin.sc:6964:241207 */ t12458 = a41577; /* x300418 stalin.sc:6964:241200 */ t12454 = f9719(t12458); /* x218499 stalin.sc:30082:1036443 */ t12455 = q744; /* x218493 stalin.sc:30082:1036412 */ t12456.tag = EXTERNAL_SYMBOL_TYPE; t12456.value.external_symbol_type = t12455; if (!(f9745(t12454, t12456)==FALSE_TYPE)) goto l3854; /* x218490 */ /* x218489 stalin.sc:30083:1036459 */ /* x218487 stalin.sc:30083:1036467 */ /* x218486 stalin.sc:30083:1036477 */ /* x218485 stalin.sc:30083:1036487 */ t12466 = a32473; /* x218484 stalin.sc:30083:1036478 */ a41576 = t12466; /* x300416 stalin.sc:6964:241199 */ /* x300415 stalin.sc:6964:241207 */ t12467 = a41576; /* x300414 stalin.sc:6964:241200 */ t12464 = f9719(t12467); /* x218483 stalin.sc:30083:1036468 */ a41575 = t12464; /* x300412 stalin.sc:6964:241199 */ /* x300411 stalin.sc:6964:241207 */ t12465 = a41575; /* x300410 stalin.sc:6964:241200 */ t12461 = f9719(t12465); /* x218488 stalin.sc:30083:1036491 */ t12462 = q745; /* x218482 stalin.sc:30083:1036460 */ t12463.tag = EXTERNAL_SYMBOL_TYPE; t12463.value.external_symbol_type = t12462; if (!(f9745(t12461, t12463)==FALSE_TYPE)) goto l3854; /* x218479 */ /* x218478 stalin.sc:30084:1036509 */ /* x218476 stalin.sc:30084:1036517 */ /* x218475 stalin.sc:30084:1036527 */ /* x218474 stalin.sc:30084:1036537 */ t12473 = a32473; /* x218473 stalin.sc:30084:1036528 */ a41574 = t12473; /* x300408 stalin.sc:6964:241199 */ /* x300407 stalin.sc:6964:241207 */ t12474 = a41574; /* x300406 stalin.sc:6964:241200 */ t12471 = f9719(t12474); /* x218472 stalin.sc:30084:1036518 */ a41573 = t12471; /* x300404 stalin.sc:6964:241199 */ /* x300403 stalin.sc:6964:241207 */ t12472 = a41573; /* x300402 stalin.sc:6964:241200 */ t12468 = f9719(t12472); /* x218477 stalin.sc:30084:1036541 */ t12469 = q746; /* x218471 stalin.sc:30084:1036510 */ t12470.tag = EXTERNAL_SYMBOL_TYPE; t12470.value.external_symbol_type = t12469; if (!(f9745(t12468, t12470)==FALSE_TYPE)) goto l3854; /* x218468 */ /* x218466 stalin.sc:30085:1036566 */ /* x218465 stalin.sc:30085:1036576 */ /* x218464 stalin.sc:30085:1036586 */ t12480 = a32473; /* x218463 stalin.sc:30085:1036577 */ a41572 = t12480; /* x300400 stalin.sc:6964:241199 */ /* x300399 stalin.sc:6964:241207 */ t12481 = a41572; /* x300398 stalin.sc:6964:241200 */ t12478 = f9719(t12481); /* x218462 stalin.sc:30085:1036567 */ a41571 = t12478; /* x300396 stalin.sc:6964:241199 */ /* x300395 stalin.sc:6964:241207 */ t12479 = a41571; /* x300394 stalin.sc:6964:241200 */ t12475 = f9719(t12479); /* x218467 stalin.sc:30085:1036590 */ t12476 = q747; /* x218461 stalin.sc:30085:1036559 */ t12477.tag = EXTERNAL_SYMBOL_TYPE; t12477.value.external_symbol_type = t12476; if (f9745(t12475, t12477)==FALSE_TYPE) goto l3853; l3854: /* x218506 */ /* x218505 stalin.sc:30086:1036622 */ /* x218504 stalin.sc:30086:1036631 */ t12483 = a32473; /* x218503 stalin.sc:30086:1036623 */ a41384 = t12483; /* x299648 stalin.sc:7008:242336 */ /* x299647 stalin.sc:7008:242344 */ t12484 = a41384; /* x299646 stalin.sc:7008:242337 */ t12482 = f9720(t12484); /* x218502 stalin.sc:30086:1036612 */ if (!(f18530(t12482)==FALSE_TYPE)) goto l3849; l3853: /* x218452 */ /* x218451 stalin.sc:30087:1036644 */ /* x218444 stalin.sc:30087:1036649 */ /* x218442 stalin.sc:30087:1036657 */ /* x218441 stalin.sc:30087:1036667 */ /* x218440 stalin.sc:30087:1036677 */ t12490 = a32473; /* x218439 stalin.sc:30087:1036668 */ a41570 = t12490; /* x300392 stalin.sc:6964:241199 */ /* x300391 stalin.sc:6964:241207 */ t12491 = a41570; /* x300390 stalin.sc:6964:241200 */ t12488 = f9719(t12491); /* x218438 stalin.sc:30087:1036658 */ a41569 = t12488; /* x300388 stalin.sc:6964:241199 */ /* x300387 stalin.sc:6964:241207 */ t12489 = a41569; /* x300386 stalin.sc:6964:241200 */ t12485 = f9719(t12489); /* x218443 stalin.sc:30087:1036681 */ t12486 = q743; /* x218437 stalin.sc:30087:1036650 */ t12487.tag = EXTERNAL_SYMBOL_TYPE; t12487.value.external_symbol_type = t12486; if (f9745(t12485, t12487)==FALSE_TYPE) goto l3858; /* x218449 */ /* x218448 stalin.sc:30088:1036718 */ /* x218447 stalin.sc:30088:1036727 */ t12493 = a32473; /* x218446 stalin.sc:30088:1036719 */ a41383 = t12493; /* x299644 stalin.sc:7008:242336 */ /* x299643 stalin.sc:7008:242344 */ t12494 = a41383; /* x299642 stalin.sc:7008:242337 */ t12492 = f9720(t12494); /* x218445 stalin.sc:30088:1036699 */ if (!(f18526(t12492)==FALSE_TYPE)) goto l3849; l3858: /* x218434 */ /* x218433 stalin.sc:30089:1036740 */ /* x218426 stalin.sc:30089:1036745 */ /* x218424 stalin.sc:30089:1036753 */ /* x218423 stalin.sc:30089:1036763 */ /* x218422 stalin.sc:30089:1036773 */ t12500 = a32473; /* x218421 stalin.sc:30089:1036764 */ a41558 = t12500; /* x300344 stalin.sc:6964:241199 */ /* x300343 stalin.sc:6964:241207 */ t12501 = a41558; /* x300342 stalin.sc:6964:241200 */ t12498 = f9719(t12501); /* x218420 stalin.sc:30089:1036754 */ a41557 = t12498; /* x300340 stalin.sc:6964:241199 */ /* x300339 stalin.sc:6964:241207 */ t12499 = a41557; /* x300338 stalin.sc:6964:241200 */ t12495 = f9719(t12499); /* x218425 stalin.sc:30089:1036777 */ t12496 = q741; /* x218419 stalin.sc:30089:1036746 */ t12497.tag = EXTERNAL_SYMBOL_TYPE; t12497.value.external_symbol_type = t12496; if (f9745(t12495, t12497)==FALSE_TYPE) goto l3860; /* x218431 */ /* x218430 stalin.sc:30090:1036814 */ /* x218429 stalin.sc:30090:1036823 */ t12503 = a32473; /* x218428 stalin.sc:30090:1036815 */ a41377 = t12503; /* x299620 stalin.sc:7008:242336 */ /* x299619 stalin.sc:7008:242344 */ t12504 = a41377; /* x299618 stalin.sc:7008:242337 */ t12502 = f9720(t12504); /* x218427 stalin.sc:30090:1036795 */ if (!(f18523(t12502)==FALSE_TYPE)) goto l3849; l3860: /* x218416 */ /* x218409 stalin.sc:30091:1036841 */ /* x218407 stalin.sc:30091:1036849 */ /* x218406 stalin.sc:30091:1036859 */ /* x218405 stalin.sc:30091:1036869 */ t12510 = a32473; /* x218404 stalin.sc:30091:1036860 */ a41556 = t12510; /* x300336 stalin.sc:6964:241199 */ /* x300335 stalin.sc:6964:241207 */ t12511 = a41556; /* x300334 stalin.sc:6964:241200 */ t12508 = f9719(t12511); /* x218403 stalin.sc:30091:1036850 */ a41555 = t12508; /* x300332 stalin.sc:6964:241199 */ /* x300331 stalin.sc:6964:241207 */ t12509 = a41555; /* x300330 stalin.sc:6964:241200 */ t12505 = f9719(t12509); /* x218408 stalin.sc:30091:1036873 */ t12506 = q742; /* x218402 stalin.sc:30091:1036842 */ t12507.tag = EXTERNAL_SYMBOL_TYPE; t12507.value.external_symbol_type = t12506; if (f9745(t12505, t12507)==FALSE_TYPE) goto l3850; /* x218414 */ /* x218413 stalin.sc:30092:1036896 */ /* x218412 stalin.sc:30092:1036905 */ t12513 = a32473; /* x218411 stalin.sc:30092:1036897 */ a41376 = t12513; /* x299616 stalin.sc:7008:242336 */ /* x299615 stalin.sc:7008:242344 */ t12514 = a41376; /* x299614 stalin.sc:7008:242337 */ t12512 = f9720(t12514); /* x218410 stalin.sc:30092:1036887 */ if (f9739(t12512)==FALSE_TYPE) goto l3850; l3849: return TRUE_TYPE; l3850: return FALSE_TYPE;} /* ORDER-OK-REQUIRED?[18526] */ unsigned f18526(struct w49 a32469) {struct w49 a41378; /* S */ struct w49 a41381; /* S */ struct w49 a41382; /* S */ struct w49 a41559; /* S */ struct w49 a41560; /* S */ struct w49 a41565; /* S */ struct w49 a41566; /* S */ struct w49 a41567; /* S */ struct w49 a41568; /* S */ struct w49 t12515; struct w49 t12516; char *t12517; struct w49 t12518; struct w49 t12519; struct w49 t12520; struct w49 t12521; struct w49 t12522; struct w49 t12523; struct w49 t12524; struct w49 t12525; struct w49 t12526; char *t12527; struct w49 t12528; struct w49 t12529; struct w49 t12530; struct w49 t12531; struct w49 t12532; struct w49 t12533; struct w49 t12534; struct w49 t12535; struct w49 t12536; char *t12537; struct w49 t12538; struct w49 t12539; struct w49 t12540; struct w49 t12541; struct w49 t12542; struct w49 t12543; struct w49 t12544; struct w49 t12545; /* x218391 stalin.sc:30073:1036055 */ /* x218391 stalin.sc:30073:1036055 */ /* x218390 stalin.sc:30073:1036059 */ /* x218389 stalin.sc:30073:1036069 */ t12515 = a32469; /* x218388 stalin.sc:30073:1036060 */ if (!(f9739(t12515)==FALSE_TYPE)) goto l3863; /* x218385 */ /* x218384 stalin.sc:30074:1036080 */ /* x218377 stalin.sc:30074:1036085 */ /* x218375 stalin.sc:30074:1036093 */ /* x218374 stalin.sc:30074:1036103 */ /* x218373 stalin.sc:30074:1036113 */ t12521 = a32469; /* x218372 stalin.sc:30074:1036104 */ a41568 = t12521; /* x300384 stalin.sc:6964:241199 */ /* x300383 stalin.sc:6964:241207 */ t12522 = a41568; /* x300382 stalin.sc:6964:241200 */ t12519 = f9719(t12522); /* x218371 stalin.sc:30074:1036094 */ a41567 = t12519; /* x300380 stalin.sc:6964:241199 */ /* x300379 stalin.sc:6964:241207 */ t12520 = a41567; /* x300378 stalin.sc:6964:241200 */ t12516 = f9719(t12520); /* x218376 stalin.sc:30074:1036117 */ t12517 = q743; /* x218370 stalin.sc:30074:1036086 */ t12518.tag = EXTERNAL_SYMBOL_TYPE; t12518.value.external_symbol_type = t12517; if (f9745(t12516, t12518)==FALSE_TYPE) goto l3867; /* x218382 */ /* x218381 stalin.sc:30075:1036154 */ /* x218380 stalin.sc:30075:1036163 */ t12524 = a32469; /* x218379 stalin.sc:30075:1036155 */ a41382 = t12524; /* x299640 stalin.sc:7008:242336 */ /* x299639 stalin.sc:7008:242344 */ t12525 = a41382; /* x299638 stalin.sc:7008:242337 */ t12523 = f9720(t12525); /* x218378 stalin.sc:30075:1036135 */ if (!(f18526(t12523)==FALSE_TYPE)) goto l3863; l3867: /* x218367 */ /* x218366 stalin.sc:30076:1036176 */ /* x218359 stalin.sc:30076:1036181 */ /* x218357 stalin.sc:30076:1036189 */ /* x218356 stalin.sc:30076:1036199 */ /* x218355 stalin.sc:30076:1036209 */ t12531 = a32469; /* x218354 stalin.sc:30076:1036200 */ a41566 = t12531; /* x300376 stalin.sc:6964:241199 */ /* x300375 stalin.sc:6964:241207 */ t12532 = a41566; /* x300374 stalin.sc:6964:241200 */ t12529 = f9719(t12532); /* x218353 stalin.sc:30076:1036190 */ a41565 = t12529; /* x300372 stalin.sc:6964:241199 */ /* x300371 stalin.sc:6964:241207 */ t12530 = a41565; /* x300370 stalin.sc:6964:241200 */ t12526 = f9719(t12530); /* x218358 stalin.sc:30076:1036213 */ t12527 = q741; /* x218352 stalin.sc:30076:1036182 */ t12528.tag = EXTERNAL_SYMBOL_TYPE; t12528.value.external_symbol_type = t12527; if (f9745(t12526, t12528)==FALSE_TYPE) goto l3869; /* x218364 */ /* x218363 stalin.sc:30077:1036250 */ /* x218362 stalin.sc:30077:1036259 */ t12534 = a32469; /* x218361 stalin.sc:30077:1036251 */ a41381 = t12534; /* x299636 stalin.sc:7008:242336 */ /* x299635 stalin.sc:7008:242344 */ t12535 = a41381; /* x299634 stalin.sc:7008:242337 */ t12533 = f9720(t12535); /* x218360 stalin.sc:30077:1036231 */ if (!(f18523(t12533)==FALSE_TYPE)) goto l3863; l3869: /* x218349 */ /* x218342 stalin.sc:30078:1036277 */ /* x218340 stalin.sc:30078:1036285 */ /* x218339 stalin.sc:30078:1036295 */ /* x218338 stalin.sc:30078:1036305 */ t12541 = a32469; /* x218337 stalin.sc:30078:1036296 */ a41560 = t12541; /* x300352 stalin.sc:6964:241199 */ /* x300351 stalin.sc:6964:241207 */ t12542 = a41560; /* x300350 stalin.sc:6964:241200 */ t12539 = f9719(t12542); /* x218336 stalin.sc:30078:1036286 */ a41559 = t12539; /* x300348 stalin.sc:6964:241199 */ /* x300347 stalin.sc:6964:241207 */ t12540 = a41559; /* x300346 stalin.sc:6964:241200 */ t12536 = f9719(t12540); /* x218341 stalin.sc:30078:1036309 */ t12537 = q742; /* x218335 stalin.sc:30078:1036278 */ t12538.tag = EXTERNAL_SYMBOL_TYPE; t12538.value.external_symbol_type = t12537; if (f9745(t12536, t12538)==FALSE_TYPE) goto l3864; /* x218347 */ /* x218346 stalin.sc:30079:1036332 */ /* x218345 stalin.sc:30079:1036341 */ t12544 = a32469; /* x218344 stalin.sc:30079:1036333 */ a41378 = t12544; /* x299624 stalin.sc:7008:242336 */ /* x299623 stalin.sc:7008:242344 */ t12545 = a41378; /* x299622 stalin.sc:7008:242337 */ t12543 = f9720(t12545); /* x218343 stalin.sc:30079:1036323 */ if (f9739(t12543)==FALSE_TYPE) goto l3864; l3863: return TRUE_TYPE; l3864: return FALSE_TYPE;} /* ORDER-OK-OPTIONAL?[18523] */ unsigned f18523(struct w49 a32466) {struct w49 a41379; /* S */ struct w49 a41380; /* S */ struct w49 a41561; /* S */ struct w49 a41562; /* S */ struct w49 a41563; /* S */ struct w49 a41564; /* S */ struct w49 t12546; struct w49 t12547; char *t12548; struct w49 t12549; struct w49 t12550; struct w49 t12551; struct w49 t12552; struct w49 t12553; struct w49 t12554; struct w49 t12555; struct w49 t12556; struct w49 t12557; char *t12558; struct w49 t12559; struct w49 t12560; struct w49 t12561; struct w49 t12562; struct w49 t12563; struct w49 t12564; struct w49 t12565; struct w49 t12566; /* x218326 stalin.sc:30067:1035820 */ /* x218326 stalin.sc:30067:1035820 */ /* x218325 stalin.sc:30067:1035824 */ /* x218324 stalin.sc:30067:1035834 */ t12546 = a32466; /* x218323 stalin.sc:30067:1035825 */ if (!(f9739(t12546)==FALSE_TYPE)) goto l3872; /* x218320 */ /* x218319 stalin.sc:30068:1035845 */ /* x218312 stalin.sc:30068:1035850 */ /* x218310 stalin.sc:30068:1035858 */ /* x218309 stalin.sc:30068:1035868 */ /* x218308 stalin.sc:30068:1035878 */ t12552 = a32466; /* x218307 stalin.sc:30068:1035869 */ a41564 = t12552; /* x300368 stalin.sc:6964:241199 */ /* x300367 stalin.sc:6964:241207 */ t12553 = a41564; /* x300366 stalin.sc:6964:241200 */ t12550 = f9719(t12553); /* x218306 stalin.sc:30068:1035859 */ a41563 = t12550; /* x300364 stalin.sc:6964:241199 */ /* x300363 stalin.sc:6964:241207 */ t12551 = a41563; /* x300362 stalin.sc:6964:241200 */ t12547 = f9719(t12551); /* x218311 stalin.sc:30068:1035882 */ t12548 = q741; /* x218305 stalin.sc:30068:1035851 */ t12549.tag = EXTERNAL_SYMBOL_TYPE; t12549.value.external_symbol_type = t12548; if (f9745(t12547, t12549)==FALSE_TYPE) goto l3876; /* x218317 */ /* x218316 stalin.sc:30069:1035919 */ /* x218315 stalin.sc:30069:1035928 */ t12555 = a32466; /* x218314 stalin.sc:30069:1035920 */ a41380 = t12555; /* x299632 stalin.sc:7008:242336 */ /* x299631 stalin.sc:7008:242344 */ t12556 = a41380; /* x299630 stalin.sc:7008:242337 */ t12554 = f9720(t12556); /* x218313 stalin.sc:30069:1035900 */ if (!(f18523(t12554)==FALSE_TYPE)) goto l3872; l3876: /* x218302 */ /* x218295 stalin.sc:30070:1035946 */ /* x218293 stalin.sc:30070:1035954 */ /* x218292 stalin.sc:30070:1035964 */ /* x218291 stalin.sc:30070:1035974 */ t12562 = a32466; /* x218290 stalin.sc:30070:1035965 */ a41562 = t12562; /* x300360 stalin.sc:6964:241199 */ /* x300359 stalin.sc:6964:241207 */ t12563 = a41562; /* x300358 stalin.sc:6964:241200 */ t12560 = f9719(t12563); /* x218289 stalin.sc:30070:1035955 */ a41561 = t12560; /* x300356 stalin.sc:6964:241199 */ /* x300355 stalin.sc:6964:241207 */ t12561 = a41561; /* x300354 stalin.sc:6964:241200 */ t12557 = f9719(t12561); /* x218294 stalin.sc:30070:1035978 */ t12558 = q742; /* x218288 stalin.sc:30070:1035947 */ t12559.tag = EXTERNAL_SYMBOL_TYPE; t12559.value.external_symbol_type = t12558; if (f9745(t12557, t12559)==FALSE_TYPE) goto l3873; /* x218300 */ /* x218299 stalin.sc:30071:1036001 */ /* x218298 stalin.sc:30071:1036010 */ t12565 = a32466; /* x218297 stalin.sc:30071:1036002 */ a41379 = t12565; /* x299628 stalin.sc:7008:242336 */ /* x299627 stalin.sc:7008:242344 */ t12566 = a41379; /* x299626 stalin.sc:7008:242337 */ t12564 = f9720(t12566); /* x218296 stalin.sc:30071:1035992 */ if (f9739(t12564)==FALSE_TYPE) goto l3873; l3872: return TRUE_TYPE; l3873: return FALSE_TYPE;} /* VALID-REQUIRED-PARAMETER?[18522] */ unsigned f18522(struct w49 a32465) {struct w49 a41547; /* S */ struct w49 t12567; int t12568; int t12569; struct w49 t12570; struct w49 t12571; struct w49 t12572; struct w49 t12573; struct w49 t12574; struct w49 t12575; /* x218281 stalin.sc:30062:1035683 */ /* x218281 stalin.sc:30062:1035683 */ /* x218259 stalin.sc:30062:1035688 */ /* x218258 stalin.sc:30062:1035698 */ t12567 = a32465; /* x218257 stalin.sc:30062:1035689 */ if (f9766(t12567)==FALSE_TYPE) goto l3880; /* x218279 */ /* x218265 stalin.sc:30063:1035703 */ /* x218263 stalin.sc:30063:1035706 */ /* x218262 stalin.sc:30063:1035717 */ t12570 = a32465; /* x218261 stalin.sc:30063:1035707 */ t12568 = f9734(t12570); /* x218264 stalin.sc:30063:1035720 */ t12569 = 3; /* x267919 stalin.sc:30063:1035704 */ if (!(t12568==t12569)) goto l3880; /* x218277 */ /* x218270 stalin.sc:30064:1035725 */ /* x218269 stalin.sc:30064:1035737 */ /* x218268 stalin.sc:30064:1035747 */ t12572 = a32465; /* x218267 stalin.sc:30064:1035738 */ a41547 = t12572; /* x300300 stalin.sc:6964:241199 */ /* x300299 stalin.sc:6964:241207 */ t12573 = a41547; /* x300298 stalin.sc:6964:241200 */ t12571 = f9719(t12573); /* x218266 stalin.sc:30064:1035726 */ if (f9741(t12571)==FALSE_TYPE) goto l3880; /* x218275 */ /* x218274 stalin.sc:30065:1035765 */ /* x218273 stalin.sc:30065:1035776 */ t12575 = a32465; /* x218272 stalin.sc:30065:1035766 */ t12574 = f9722(t12575); /* x218271 stalin.sc:30065:1035754 */ if (f9742(t12574)==FALSE_TYPE) goto l3880; return TRUE_TYPE; l3880: return FALSE_TYPE;} /* VALID-OPTIONAL-PARAMETER?[18521] */ unsigned f18521(struct w49 a32464) {struct w49 a41551; /* S */ struct w49 t12576; int t12577; int t12578; struct w49 t12579; struct w49 t12580; struct w49 t12581; struct w49 t12582; struct w49 t12583; struct w49 t12584; /* x218254 stalin.sc:30057:1035539 */ /* x218254 stalin.sc:30057:1035539 */ /* x218232 stalin.sc:30057:1035544 */ /* x218231 stalin.sc:30057:1035554 */ t12576 = a32464; /* x218230 stalin.sc:30057:1035545 */ if (f9766(t12576)==FALSE_TYPE) goto l3886; /* x218252 */ /* x218238 stalin.sc:30058:1035559 */ /* x218236 stalin.sc:30058:1035562 */ /* x218235 stalin.sc:30058:1035573 */ t12579 = a32464; /* x218234 stalin.sc:30058:1035563 */ t12577 = f9734(t12579); /* x218237 stalin.sc:30058:1035576 */ t12578 = 4; /* x267920 stalin.sc:30058:1035560 */ if (!(t12577==t12578)) goto l3886; /* x218250 */ /* x218243 stalin.sc:30059:1035581 */ /* x218242 stalin.sc:30059:1035593 */ /* x218241 stalin.sc:30059:1035603 */ t12581 = a32464; /* x218240 stalin.sc:30059:1035594 */ a41551 = t12581; /* x300316 stalin.sc:6964:241199 */ /* x300315 stalin.sc:6964:241207 */ t12582 = a41551; /* x300314 stalin.sc:6964:241200 */ t12580 = f9719(t12582); /* x218239 stalin.sc:30059:1035582 */ if (f9741(t12580)==FALSE_TYPE) goto l3886; /* x218248 */ /* x218247 stalin.sc:30060:1035621 */ /* x218246 stalin.sc:30060:1035632 */ t12584 = a32464; /* x218245 stalin.sc:30060:1035622 */ t12583 = f9722(t12584); /* x218244 stalin.sc:30060:1035610 */ if (f9742(t12583)==FALSE_TYPE) goto l3886; return TRUE_TYPE; l3886: return FALSE_TYPE;} /* [inside top level 18506] */ struct structure_type24753 *f18506(struct w49 a32432) {struct w49 a32444; /* L */ struct w49 a32504; /* L */ struct w49 a32526; /* L */ struct w49 a41337; /* S */ struct w49 a41349; /* S */ struct w49 a41363; /* S */ struct w49 a41367; /* S */ struct w49 a41368; /* S */ struct w49 a41369; /* S */ struct w49 a41385; /* S */ struct w49 a41386; /* S */ struct w49 a41579; /* S */ char *t12585; struct structure_type24753 *t12586; struct w49 t12587; struct w49 t12588; struct structure_type24753 *t12589; struct structure_type24753 *t12590; struct w49 t12591; struct w49 t12592; struct structure_type24753 *t12598; struct structure_type24753 *t12599; struct w49 t12600; struct w49 t12601; struct structure_type24753 *t12616; struct structure_type24753 *t12617; struct w49 t12618; struct w49 t12619; struct structure_type24753 *t12648; struct structure_type24753 *t12649; struct w49 t12650; struct w49 t12651; struct structure_type24753 *t12675; struct w49 t12676; struct w49 t12677; char *t12678; struct structure_type24753 *t12679; struct w49 t12680; struct w49 t12681; struct structure_type24753 *t12682; struct structure_type24753 *t12683; struct w49 t12684; struct w49 t12685; struct structure_type24753 *t12691; struct structure_type24753 *t12692; struct w49 t12693; struct w49 t12694; char *t12695; struct structure_type24753 *t12696; struct w49 t12697; struct w49 t12698; struct structure_type24753 *t12699; struct structure_type24753 *t12700; struct w49 t12701; struct w49 t12702; struct structure_type24753 *t12704; struct w49 t12705; struct w49 t12706; char *t12707; struct structure_type24753 *t12708; struct w49 t12709; struct w49 t12710; struct structure_type24753 *t12711; struct w49 t12712; struct w49 t12713; char *t12714; struct structure_type24753 *t12715; struct w49 t12716; struct w49 t12717; char *t12718; struct structure_type24753 *t12719; struct w49 t12720; struct w49 t12721; char *t12722; struct structure_type24753 *t12723; struct w49 t12724; struct w49 t12725; char *t12726; struct w49 t12727; struct w49 t12728; struct w49 t12729; struct w49 t12730; struct w49 t12731; struct w49 t12732; struct structure_type24753 *t12733; struct structure_type24753 *t12734; struct w49 t12735; struct w49 t12736; struct structure_type24753 *t12742; struct w49 t12743; struct w49 t12744; char *t12745; struct structure_type24753 *t12746; struct w49 t12747; struct w49 t12748; struct w49 t12749; struct w49 t12750; struct w49 t12751; struct w49 t12752; struct w49 t12753; struct w49 t12754; struct structure_type24753 *t12755; struct w49 t12756; struct structure_type24753 *t12757; struct w49 t12758; struct w49 t12759; struct structure_type24753 *t12760; struct structure_type24753 *t12761; char *t12762; struct structure_type24753 *t12763; struct w49 t12764; struct w49 t12765; char *t12766; struct structure_type24753 *t12767; struct w49 t12768; struct w49 t12769; struct structure_type24753 *t12770; struct w49 t12771; struct w49 t12772; struct structure_type24753 *t12773; struct w49 t12774; struct w49 t12775; char *t12776; struct structure_type24753 *t12777; struct w49 t12778; struct w49 t12779; struct structure_type24753 *t12780; struct structure_type24753 *t12781; struct w49 t12782; struct w49 t12783; struct structure_type24753 *t12786; struct w49 t12787; struct w49 t12788; char *t12789; struct w49 t12790; struct w49 t12791; struct w49 t12792; struct structure_type24753 *t12793; struct w49 t12794; struct w49 t12795; struct w49 t12796; struct w49 t12797; struct w49 t12798; struct w49 t12799; struct w49 t12800; struct w49 t12801; struct structure_type24753 *t12802; struct w49 t12803; struct w49 t12804; struct w49 t12805; struct w49 t12806; struct w49 t12807; struct w49 t12808; struct w12224 t12809; struct structure_type24753 *t12810; struct w49 t12811; struct w49 t12812; struct w49 t12813; struct w49 t12814; struct w49 t12815; struct w49 t12816; struct w49 t12817; int t12818; int t12819; struct w49 t12820; struct w49 t12821; struct w49 t12822; int t12823; int t12824; struct w49 t12825; struct w49 t12826; struct w49 t12827; struct w49 t12828; struct w49 t12829; unsigned t12830; struct w49 t12831; struct w49 t12832; struct w49 t12833; struct w49 t12834; struct w49 t12835; struct w49 t12836; struct w49 t12837; char *t12838; /* x220015 */ /* x220006 */ /* x220005 */ /* x220008 */ /* x220007 */ /* x220010 */ /* x220009 */ /* x220012 */ /* x220011 */ /* x220014 */ /* x220013 */ /* x220004 */ /* x220003 */ /* x218532 */ /* x218531 */ /* x218843 */ /* x218842 */ /* x219062 */ /* x219061 */ /* x219643 */ /* x219642 */ /* x219975 */ /* x219974 */ /* x220002 stalin.sc:30339:1044221 */ /* x219993 stalin.sc:30339:1044229 */ /* x219978 stalin.sc:30339:1044234 */ /* x219977 stalin.sc:30339:1044244 */ t12817 = a32432; /* x219976 stalin.sc:30339:1044235 */ if (f9766(t12817)==FALSE_TYPE) goto l3892; /* x219991 */ /* x219984 stalin.sc:30340:1044255 */ /* x219982 stalin.sc:30340:1044259 */ /* x219981 stalin.sc:30340:1044270 */ t12820 = a32432; /* x219980 stalin.sc:30340:1044260 */ t12818 = f9734(t12820); /* x219983 stalin.sc:30340:1044273 */ t12819 = 2; /* x267909 stalin.sc:30340:1044256 */ if (!(t12818>=t12819)) goto l3892; /* x219989 */ /* x219988 stalin.sc:30341:1044310 */ /* x219987 stalin.sc:30341:1044321 */ t12836 = a32432; /* x219986 stalin.sc:30341:1044311 */ t12821 = f9722(t12836); /* x219985 stalin.sc:30341:1044285 */ a32444 = t12821; /* x218530 */ /* x218521 */ /* x218520 */ /* x218523 */ /* x218522 */ /* x218525 */ /* x218524 */ /* x218527 */ /* x218526 */ /* x218529 */ /* x218528 */ /* x218519 */ /* x218518 */ /* x218256 */ /* x218255 */ /* x218283 */ /* x218282 */ /* x218328 */ /* x218327 */ /* x218393 */ /* x218392 */ /* x218517 */ /* x218516 */ /* x218229 */ /* x218228 stalin.sc:30093:1036915 */ /* x217981 stalin.sc:30094:1036924 */ /* x217980 stalin.sc:30094:1036934 */ t12822 = a32444; /* x217979 stalin.sc:30094:1036925 */ if (f9766(t12822)==FALSE_TYPE) goto l3892; /* x218226 */ /* x217987 stalin.sc:30095:1036941 */ /* x217985 stalin.sc:30095:1036945 */ /* x217984 stalin.sc:30095:1036956 */ t12825 = a32444; /* x217983 stalin.sc:30095:1036946 */ t12823 = f9734(t12825); /* x217986 stalin.sc:30095:1036959 */ t12824 = 1; /* x267928 stalin.sc:30095:1036942 */ if (!(t12823>=t12824)) goto l3892; /* x218224 */ /* x217992 stalin.sc:30096:1036966 */ /* x217991 stalin.sc:30096:1036978 */ /* x217990 stalin.sc:30096:1036988 */ t12827 = a32444; /* x217989 stalin.sc:30096:1036979 */ a41579 = t12827; /* x300428 stalin.sc:6964:241199 */ /* x300427 stalin.sc:6964:241207 */ t12828 = a41579; /* x300426 stalin.sc:6964:241200 */ t12826 = f9719(t12828); /* x217988 stalin.sc:30096:1036967 */ if (f9741(t12826)==FALSE_TYPE) goto l3892; /* x218222 */ /* x218215 stalin.sc:30097:1036996 */ /* x218211 stalin.sc:30098:1037011 */ /* x218214 stalin.sc:30133:1038118 */ /* x218213 stalin.sc:30133:1038127 */ t12831 = a32444; /* x218212 stalin.sc:30133:1038119 */ a41386 = t12831; /* x299656 stalin.sc:7008:242336 */ /* x299655 stalin.sc:7008:242344 */ t12832 = a41386; /* x299654 stalin.sc:7008:242337 */ t12829 = f9720(t12832); /* x217993 stalin.sc:30097:1036997 */ t12830 = NATIVE_PROCEDURE_TYPE14557; if (f9758(t12830, t12829)==FALSE_TYPE) goto l3892; /* x218220 */ /* x218219 stalin.sc:30134:1038146 */ /* x218218 stalin.sc:30134:1038155 */ t12834 = a32444; /* x218217 stalin.sc:30134:1038147 */ a41385 = t12834; /* x299652 stalin.sc:7008:242336 */ /* x299651 stalin.sc:7008:242344 */ t12835 = a41385; /* x299650 stalin.sc:7008:242337 */ t12833 = f9720(t12835); /* x218216 stalin.sc:30134:1038136 */ if (f18530(t12833)==FALSE_TYPE) goto l3892; /* x219995 */ /* x219994 */ goto l3893; l3892: /* x220001 */ /* x220000 */ /* x219999 stalin.sc:30342:1044329 */ /* x219997 stalin.sc:30342:1044343 */ t12837 = a32432; /* x219998 stalin.sc:30342:1044345 */ t12838 = "Improper DEFINE-COMMAND"; /* x219996 stalin.sc:30342:1044330 */ f9705(t12837, t12838); l3893: /* x217978 */ /* x217977 stalin.sc:30344:1044388 */ /* x217711 */ t12585 = q242; /* x217976 */ /* x217723 */ t12589 = &t12593; /* x217975 */ /* x217753 */ t12598 = &t12602; /* x217974 */ /* x217811 */ t12616 = &t12620; /* x217973 */ /* x217859 */ t12648 = &t12652; /* x217972 */ /* x217970 */ /* x217862 */ t12678 = q242; /* x217969 */ /* x217874 */ t12682 = &t12686; /* x217968 */ /* x217911 */ /* x217877 */ t12695 = q97; /* x217910 */ /* x217881 */ t12699 = &t12703; /* x217909 */ /* x217907 */ /* x217884 */ t12707 = q179; /* x217906 */ /* x217904 */ /* x217887 */ t12714 = q479; /* x217903 */ /* x217889 */ t12718 = "usage: "; /* x217902 */ /* x217891 */ t12722 = q740; /* x217901 */ /* x217899 stalin.sc:30363:1045061 */ /* x217898 stalin.sc:30363:1045076 */ /* x217897 stalin.sc:30363:1045085 */ /* x217896 stalin.sc:30363:1045096 */ t12732 = a32432; /* x217895 stalin.sc:30363:1045086 */ t12730 = f9722(t12732); /* x217894 stalin.sc:30363:1045077 */ a41337 = t12730; /* x299460 stalin.sc:7008:242336 */ /* x299459 stalin.sc:7008:242344 */ t12731 = a41337; /* x299458 stalin.sc:7008:242337 */ t12729 = f9720(t12731); /* x217893 stalin.sc:30363:1045062 */ t12726 = f18543(t12729); /* x217900 */ /* x217892 */ t12727.tag = STRING_TYPE; t12727.value.string_type = t12726; t12728.tag = NULL_TYPE; t12723 = f26175(t12727, t12728); /* x217890 */ t12724.tag = EXTERNAL_SYMBOL_TYPE; t12724.value.external_symbol_type = t12722; t12725.tag = STRUCTURE_TYPE24753; t12725.value.structure_type24753 = t12723; t12719 = f26175(t12724, t12725); /* x217888 */ t12720.tag = STRING_TYPE; t12720.value.string_type = t12718; t12721.tag = STRUCTURE_TYPE24753; t12721.value.structure_type24753 = t12719; t12715 = f26175(t12720, t12721); /* x217886 */ t12716.tag = EXTERNAL_SYMBOL_TYPE; t12716.value.external_symbol_type = t12714; t12717.tag = STRUCTURE_TYPE24753; t12717.value.structure_type24753 = t12715; t12711 = f26175(t12716, t12717); /* x217905 */ /* x217885 */ t12712.tag = STRUCTURE_TYPE24753; t12712.value.structure_type24753 = t12711; t12713.tag = NULL_TYPE; t12708 = f26175(t12712, t12713); /* x217883 */ t12709.tag = EXTERNAL_SYMBOL_TYPE; t12709.value.external_symbol_type = t12707; t12710.tag = STRUCTURE_TYPE24753; t12710.value.structure_type24753 = t12708; t12704 = f26175(t12709, t12710); /* x217908 */ /* x217882 */ t12705.tag = STRUCTURE_TYPE24753; t12705.value.structure_type24753 = t12704; t12706.tag = NULL_TYPE; t12700 = f26175(t12705, t12706); /* x217878 */ t12701.tag = STRUCTURE_TYPE24753; t12701.value.structure_type24753 = t12699; t12702.tag = STRUCTURE_TYPE24753; t12702.value.structure_type24753 = t12700; t12696 = f26175(t12701, t12702); /* x217876 */ t12697.tag = EXTERNAL_SYMBOL_TYPE; t12697.value.external_symbol_type = t12695; t12698.tag = STRUCTURE_TYPE24753; t12698.value.structure_type24753 = t12696; t12691 = f26175(t12697, t12698); /* x217967 */ /* x217923 */ t12733 = &t12737; /* x217966 */ /* x217964 */ /* x217926 */ t12745 = q242; /* x217963 */ /* x217934 stalin.sc:30365:1045162 */ /* x217933 stalin.sc:30365:1045180 */ /* x217932 stalin.sc:30365:1045189 */ /* x217931 stalin.sc:30365:1045200 */ t12754 = a32432; /* x217930 stalin.sc:30365:1045190 */ t12752 = f9722(t12754); /* x217929 stalin.sc:30365:1045181 */ a41349 = t12752; /* x299508 stalin.sc:7008:242336 */ /* x299507 stalin.sc:7008:242344 */ t12753 = a41349; /* x299506 stalin.sc:7008:242337 */ t12751 = f9720(t12753); /* x217928 stalin.sc:30365:1045163 */ t12749 = f18573(t12751); /* x217962 */ /* x217961 */ /* x217960 */ /* x217959 */ /* x217958 stalin.sc:30368:1045348 */ /* x217957 stalin.sc:30368:1045359 */ /* x217956 stalin.sc:30368:1045368 */ /* x217955 stalin.sc:30368:1045377 */ t12815 = a32432; /* x217954 stalin.sc:30368:1045369 */ a41369 = t12815; /* x299588 stalin.sc:7008:242336 */ /* x299587 stalin.sc:7008:242344 */ t12816 = a41369; /* x299586 stalin.sc:7008:242337 */ t12813 = f9720(t12816); /* x217953 stalin.sc:30368:1045360 */ a41368 = t12813; /* x299584 stalin.sc:7008:242336 */ /* x299583 stalin.sc:7008:242344 */ t12814 = a41368; /* x299582 stalin.sc:7008:242337 */ t12812 = f9720(t12814); /* x217952 stalin.sc:30368:1045349 */ t12809 = f9772(t12812); /* x217951 */ t12811.tag = STRUCTURE_TYPE24753; t12811.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t12811.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18508]"); out_of_memory_error();} t12811.value.structure_type24753->s0.tag = NULL_TYPE; t12811.value.structure_type24753->s1.tag = NULL_TYPE; t12810 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t12810==NULL) {backtrace_internal("[inside top level 18508]"); out_of_memory_error();} t12810->s0 = *((struct w49 *)(&t12809)); t12810->s1 = t12811; t12801 = f26254(t12810); /* x217950 stalin.sc:30367:1045279 */ /* x217949 stalin.sc:30367:1045315 */ /* x217948 stalin.sc:30367:1045324 */ /* x217947 stalin.sc:30367:1045335 */ t12808 = a32432; /* x217946 stalin.sc:30367:1045325 */ t12806 = f9722(t12808); /* x217945 stalin.sc:30367:1045316 */ a41367 = t12806; /* x299580 stalin.sc:7008:242336 */ /* x299579 stalin.sc:7008:242344 */ t12807 = a41367; /* x299578 stalin.sc:7008:242337 */ t12804 = f9720(t12807); /* x217944 stalin.sc:30367:1045280 */ a32526 = t12804; /* x219973 stalin.sc:30309:1043153 */ /* x219972 stalin.sc:30309:1043167 */ t12805 = a32526; /* x219971 */ /* x219970 */ /* x219969 */ /* x219968 */ /* x219967 */ /* x219966 */ /* x219965 */ /* x219645 */ /* x219644 stalin.sc:30309:1043158 */ t12800 = f18621(t12805); /* x217943 */ t12803.tag = STRUCTURE_TYPE24753; t12803.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t12803.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18508]"); out_of_memory_error();} t12803.value.structure_type24753->s0 = t12801; t12803.value.structure_type24753->s1.tag = NULL_TYPE; t12802 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t12802==NULL) {backtrace_internal("[inside top level 18508]"); out_of_memory_error();} t12802->s0 = t12800; t12802->s1 = t12803; t12756 = f26254(t12802); /* x217942 stalin.sc:30366:1045213 */ /* x217941 stalin.sc:30366:1045246 */ /* x217940 stalin.sc:30366:1045255 */ /* x217939 stalin.sc:30366:1045266 */ t12799 = a32432; /* x217938 stalin.sc:30366:1045256 */ t12797 = f9722(t12799); /* x217937 stalin.sc:30366:1045247 */ a41363 = t12797; /* x299564 stalin.sc:7008:242336 */ /* x299563 stalin.sc:7008:242344 */ t12798 = a41363; /* x299562 stalin.sc:7008:242337 */ t12759 = f9720(t12798); /* x217936 stalin.sc:30366:1045214 */ a32504 = t12759; /* x219641 stalin.sc:30233:1041056 */ /* x219516 stalin.sc:30234:1041066 */ /* x219065 */ t12762 = q242; /* x219515 */ /* x219067 */ t12766 = q287; /* x219514 */ /* x219069 */ /* x219513 */ /* x219511 */ /* x219072 */ t12776 = q494; /* x219510 */ /* x219078 */ t12780 = &t12784; /* x219509 */ /* x219507 */ /* x219081 */ t12789 = q240; /* x219506 */ /* x219505 */ /* x219504 stalin.sc:30237:1041135 */ /* x219503 stalin.sc:30237:1041149 */ t12795 = a32504; /* x219502 */ /* x219501 */ /* x219500 */ /* x219499 */ /* x219498 */ /* x219497 */ /* x219496 */ /* x219084 */ /* x219083 stalin.sc:30237:1041140 */ t12792 = f18590(t12795); /* x219082 */ t12794.tag = STRUCTURE_TYPE24753; t12794.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t12794.value.structure_type24753)==NULL) {backtrace_internal("COMMAND-KEYWORD-ARGUMENT-PARSER[18587]"); out_of_memory_error();} t12794.value.structure_type24753->s0.tag = NULL_TYPE; t12794.value.structure_type24753->s1.tag = NULL_TYPE; t12793 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t12793==NULL) {backtrace_internal("COMMAND-KEYWORD-ARGUMENT-PARSER[18587]"); out_of_memory_error();} t12793->s0 = t12792; t12793->s1 = t12794; t12790 = f26254(t12793); /* x219080 */ t12791.tag = EXTERNAL_SYMBOL_TYPE; t12791.value.external_symbol_type = t12789; t12786 = f26175(t12791, t12790); /* x219508 */ /* x219079 */ t12787.tag = STRUCTURE_TYPE24753; t12787.value.structure_type24753 = t12786; t12788.tag = NULL_TYPE; t12781 = f26175(t12787, t12788); /* x219073 */ t12782.tag = STRUCTURE_TYPE24753; t12782.value.structure_type24753 = t12780; t12783.tag = STRUCTURE_TYPE24753; t12783.value.structure_type24753 = t12781; t12777 = f26175(t12782, t12783); /* x219071 */ t12778.tag = EXTERNAL_SYMBOL_TYPE; t12778.value.external_symbol_type = t12776; t12779.tag = STRUCTURE_TYPE24753; t12779.value.structure_type24753 = t12777; t12773 = f26175(t12778, t12779); /* x219512 */ /* x219070 */ t12774.tag = STRUCTURE_TYPE24753; t12774.value.structure_type24753 = t12773; t12775.tag = NULL_TYPE; t12770 = f26175(t12774, t12775); /* x219068 */ t12771.tag = NULL_TYPE; t12772.tag = STRUCTURE_TYPE24753; t12772.value.structure_type24753 = t12770; t12767 = f26175(t12771, t12772); /* x219066 */ t12768.tag = EXTERNAL_SYMBOL_TYPE; t12768.value.external_symbol_type = t12766; t12769.tag = STRUCTURE_TYPE24753; t12769.value.structure_type24753 = t12767; t12763 = f26175(t12768, t12769); /* x219064 */ t12764.tag = EXTERNAL_SYMBOL_TYPE; t12764.value.external_symbol_type = t12762; t12765.tag = STRUCTURE_TYPE24753; t12765.value.structure_type24753 = t12763; t12760 = f26175(t12764, t12765); /* x219640 stalin.sc:30296:1042762 */ /* x219639 stalin.sc:30296:1042776 */ t12796 = a32504; /* x219638 */ /* x219637 */ /* x219636 */ /* x219635 */ /* x219634 */ /* x219633 */ /* x219632 */ /* x219518 */ /* x219517 stalin.sc:30296:1042767 */ t12761 = f18607(t12796); /* x267912 stalin.sc:30233:1041057 */ t12755 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t12755==NULL) {backtrace("stalin.sc", 30233, 1041056); out_of_memory_error();} t12755->s0.tag = STRUCTURE_TYPE24753; t12755->s0.value.structure_type24753 = t12760; /* MOVE: branching squeezed to general */ if (t12761>=((struct structure_type24753 *)VALUE_OFFSET)) {t12755->s1.tag = STRUCTURE_TYPE24753; t12755->s1.value.structure_type24753 = t12761;} else t12755->s1.tag = (unsigned)t12761; /* x217935 */ t12758.tag = STRUCTURE_TYPE24753; t12758.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t12758.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18508]"); out_of_memory_error();} t12758.value.structure_type24753->s0 = t12756; t12758.value.structure_type24753->s1.tag = NULL_TYPE; t12757 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t12757==NULL) {backtrace_internal("[inside top level 18508]"); out_of_memory_error();} t12757->s0.tag = STRUCTURE_TYPE24753; t12757->s0.value.structure_type24753 = t12755; t12757->s1 = t12758; t12750 = f26254(t12757); /* x217927 */ t12746 = f26175(t12749, t12750); /* x217925 */ t12747.tag = EXTERNAL_SYMBOL_TYPE; t12747.value.external_symbol_type = t12745; t12748.tag = STRUCTURE_TYPE24753; t12748.value.structure_type24753 = t12746; t12742 = f26175(t12747, t12748); /* x217965 */ /* x217924 */ t12743.tag = STRUCTURE_TYPE24753; t12743.value.structure_type24753 = t12742; t12744.tag = NULL_TYPE; t12734 = f26175(t12743, t12744); /* x217912 */ t12735.tag = STRUCTURE_TYPE24753; t12735.value.structure_type24753 = t12733; t12736.tag = STRUCTURE_TYPE24753; t12736.value.structure_type24753 = t12734; t12692 = f26175(t12735, t12736); /* x217875 */ t12693.tag = STRUCTURE_TYPE24753; t12693.value.structure_type24753 = t12691; t12694.tag = STRUCTURE_TYPE24753; t12694.value.structure_type24753 = t12692; t12683 = f26175(t12693, t12694); /* x217863 */ t12684.tag = STRUCTURE_TYPE24753; t12684.value.structure_type24753 = t12682; t12685.tag = STRUCTURE_TYPE24753; t12685.value.structure_type24753 = t12683; t12679 = f26175(t12684, t12685); /* x217861 */ t12680.tag = EXTERNAL_SYMBOL_TYPE; t12680.value.external_symbol_type = t12678; t12681.tag = STRUCTURE_TYPE24753; t12681.value.structure_type24753 = t12679; t12675 = f26175(t12680, t12681); /* x217971 */ /* x217860 */ t12676.tag = STRUCTURE_TYPE24753; t12676.value.structure_type24753 = t12675; t12677.tag = NULL_TYPE; t12649 = f26175(t12676, t12677); /* x217812 */ t12650.tag = STRUCTURE_TYPE24753; t12650.value.structure_type24753 = t12648; t12651.tag = STRUCTURE_TYPE24753; t12651.value.structure_type24753 = t12649; t12617 = f26175(t12650, t12651); /* x217754 */ t12618.tag = STRUCTURE_TYPE24753; t12618.value.structure_type24753 = t12616; t12619.tag = STRUCTURE_TYPE24753; t12619.value.structure_type24753 = t12617; t12599 = f26175(t12618, t12619); /* x217724 */ t12600.tag = STRUCTURE_TYPE24753; t12600.value.structure_type24753 = t12598; t12601.tag = STRUCTURE_TYPE24753; t12601.value.structure_type24753 = t12599; t12590 = f26175(t12600, t12601); /* x217712 */ t12591.tag = STRUCTURE_TYPE24753; t12591.value.structure_type24753 = t12589; t12592.tag = STRUCTURE_TYPE24753; t12592.value.structure_type24753 = t12590; t12586 = f26175(t12591, t12592); /* x217710 */ t12587.tag = EXTERNAL_SYMBOL_TYPE; t12587.value.external_symbol_type = t12585; t12588.tag = STRUCTURE_TYPE24753; t12588.value.structure_type24753 = t12586; return f26175(t12587, t12588);} /* [inside top level 18505] */ struct structure_type24753 *f18505(struct w49 a32431) {struct w49 a22913; /* S */ char *t12839; struct structure_type24753 *t12840; struct w49 t12841; struct w49 t12842; struct structure_type24753 *t12843; struct structure_type24753 *t12844; struct w49 t12845; struct w49 t12846; struct w49 t12847; struct structure_type24753 *t12848; struct w49 t12849; struct w49 t12850; struct structure_type24753 *t12852; struct w49 t12853; struct w49 t12854; char *t12855; struct structure_type24753 *t12856; struct w49 t12857; struct w49 t12858; struct structure_type24753 *t12859; struct structure_type24753 *t12860; struct w49 t12861; struct w49 t12862; struct structure_type24753 *t12863; struct structure_type24753 *t12864; struct w49 t12865; struct w49 t12866; struct structure_type24753 *t12869; struct structure_type24753 *t12870; struct w49 t12871; struct w49 t12872; char *t12873; struct structure_type24753 *t12874; struct w49 t12875; struct w49 t12876; struct w49 t12877; struct w49 t12878; struct w49 t12879; struct structure_type24753 *t12880; struct structure_type24753 *t12881; struct w49 t12882; struct w49 t12883; char *t12884; struct structure_type24753 *t12885; struct w49 t12886; struct w49 t12887; struct w49 t12888; struct w49 t12889; struct w49 t12890; struct structure_type24753 *t12891; struct structure_type24753 *t12892; struct w49 t12893; struct w49 t12894; char *t12895; struct structure_type24753 *t12896; struct w49 t12897; struct w49 t12898; struct w49 t12899; struct w49 t12900; struct w49 t12901; struct structure_type24753 *t12902; struct structure_type24753 *t12903; struct w49 t12904; struct w49 t12905; char *t12906; struct structure_type24753 *t12907; struct w49 t12908; struct w49 t12909; struct w49 t12910; struct w49 t12911; struct w49 t12912; struct structure_type24753 *t12913; struct structure_type24753 *t12914; struct w49 t12915; struct w49 t12916; char *t12917; struct structure_type24753 *t12918; struct w49 t12919; struct w49 t12920; struct w49 t12921; struct w49 t12922; struct w49 t12923; struct structure_type24753 *t12924; struct structure_type24753 *t12925; struct w49 t12926; struct w49 t12927; struct structure_type24753 *t12943; struct structure_type24753 *t12944; struct w49 t12945; struct w49 t12946; struct structure_type24753 *t12965; struct structure_type24753 *t12966; struct w49 t12967; struct w49 t12968; char *t12969; struct structure_type24753 *t12970; struct w49 t12971; struct w49 t12972; struct w49 t12973; struct w49 t12974; struct w49 t12975; struct structure_type24753 *t12976; struct structure_type24753 *t12977; struct w49 t12978; struct w49 t12979; char *t12980; struct structure_type24753 *t12981; struct w49 t12982; struct w49 t12983; struct w49 t12984; struct w49 t12985; struct w49 t12986; struct structure_type24753 *t12987; struct structure_type24753 *t12988; struct w49 t12989; struct w49 t12990; char *t12991; struct structure_type24753 *t12992; struct w49 t12993; struct w49 t12994; struct w49 t12995; struct w49 t12996; struct w49 t12997; struct structure_type24753 *t12998; struct structure_type24753 *t12999; struct w49 t13000; struct w49 t13001; char *t13002; struct structure_type24753 *t13003; struct w49 t13004; struct w49 t13005; struct w49 t13006; struct w49 t13007; struct w49 t13008; struct structure_type24753 *t13009; struct w49 t13010; struct w49 t13011; char *t13012; struct structure_type24753 *t13013; struct w49 t13014; struct w49 t13015; struct w49 t13016; struct w49 t13017; int t13018; int t13019; struct w49 t13020; struct w49 t13024; struct w49 t13025; struct w49 t13026; struct w49 t13027; struct w49 t13028; struct w49 t13029; struct w49 t13030; struct w49 t13031; struct w49 t13032; struct w49 t13033; struct w49 t13034; struct w49 t13035; struct w49 t13036; /* x217705 stalin.sc:29253:1006642 */ /* x211875 */ t12839 = q97; /* x217704 */ /* x211884 */ /* x211880 stalin.sc:29253:1006653 */ /* x211879 stalin.sc:29253:1006664 */ t12850 = a32431; /* x211878 stalin.sc:29253:1006654 */ t12847 = f9722(t12850); /* x211883 */ t12848 = &t12851; /* x211877 */ t12849.tag = STRUCTURE_TYPE24753; t12849.value.structure_type24753 = t12848; t12843 = f26175(t12847, t12849); /* x217703 */ /* x217701 */ /* x211887 */ t12855 = q246; /* x217700 */ /* x212092 */ /* x211894 */ t12863 = &t12867; /* x212091 */ /* x211904 */ /* x211897 */ t12873 = q529; /* x211903 */ /* x211901 stalin.sc:29255:1006727 */ /* x211900 stalin.sc:29255:1006737 */ t12879 = a32431; /* x211899 stalin.sc:29255:1006728 */ t12877 = f9723(t12879); /* x211902 */ /* x211898 */ t12878.tag = NULL_TYPE; t12874 = f26175(t12877, t12878); /* x211896 */ t12875.tag = EXTERNAL_SYMBOL_TYPE; t12875.value.external_symbol_type = t12873; t12876.tag = STRUCTURE_TYPE24753; t12876.value.structure_type24753 = t12874; t12869 = f26175(t12875, t12876); /* x212090 */ /* x211914 */ /* x211907 */ t12884 = q530; /* x211913 */ /* x211911 stalin.sc:29256:1006767 */ /* x211910 stalin.sc:29256:1006778 */ t12890 = a32431; /* x211909 stalin.sc:29256:1006768 */ t12888 = f9724(t12890); /* x211912 */ /* x211908 */ t12889.tag = NULL_TYPE; t12885 = f26175(t12888, t12889); /* x211906 */ t12886.tag = EXTERNAL_SYMBOL_TYPE; t12886.value.external_symbol_type = t12884; t12887.tag = STRUCTURE_TYPE24753; t12887.value.structure_type24753 = t12885; t12880 = f26175(t12886, t12887); /* x212089 */ /* x211924 */ /* x211917 */ t12895 = q702; /* x211923 */ /* x211921 stalin.sc:29257:1006805 */ /* x211920 stalin.sc:29257:1006815 */ t12901 = a32431; /* x211919 stalin.sc:29257:1006806 */ t12899 = f9725(t12901); /* x211922 */ /* x211918 */ t12900.tag = NULL_TYPE; t12896 = f26175(t12899, t12900); /* x211916 */ t12897.tag = EXTERNAL_SYMBOL_TYPE; t12897.value.external_symbol_type = t12895; t12898.tag = STRUCTURE_TYPE24753; t12898.value.structure_type24753 = t12896; t12891 = f26175(t12897, t12898); /* x212088 */ /* x211934 */ /* x211927 */ t12906 = q703; /* x211933 */ /* x211931 stalin.sc:29258:1006837 */ /* x211930 stalin.sc:29258:1006847 */ t12912 = a32431; /* x211929 stalin.sc:29258:1006838 */ t12910 = f9726(t12912); /* x211932 */ /* x211928 */ t12911.tag = NULL_TYPE; t12907 = f26175(t12910, t12911); /* x211926 */ t12908.tag = EXTERNAL_SYMBOL_TYPE; t12908.value.external_symbol_type = t12906; t12909.tag = STRUCTURE_TYPE24753; t12909.value.structure_type24753 = t12907; t12902 = f26175(t12908, t12909); /* x212087 */ /* x211944 */ /* x211937 */ t12917 = q704; /* x211943 */ /* x211941 stalin.sc:29259:1006872 */ /* x211940 stalin.sc:29259:1006884 */ t12923 = a32431; /* x211939 stalin.sc:29259:1006873 */ t12921 = f9727(t12923); /* x211942 */ /* x211938 */ t12922.tag = NULL_TYPE; t12918 = f26175(t12921, t12922); /* x211936 */ t12919.tag = EXTERNAL_SYMBOL_TYPE; t12919.value.external_symbol_type = t12917; t12920.tag = STRUCTURE_TYPE24753; t12920.value.structure_type24753 = t12918; t12913 = f26175(t12919, t12920); /* x212086 */ /* x211976 */ t12924 = &t12928; /* x212085 */ /* x212014 */ t12943 = &t12947; /* x212084 */ /* x212024 */ /* x212017 */ t12969 = q531; /* x212023 */ /* x212021 stalin.sc:29268:1007172 */ /* x212020 stalin.sc:29268:1007183 */ t12975 = a32431; /* x212019 stalin.sc:29268:1007173 */ t12973 = f9728(t12975); /* x212022 */ /* x212018 */ t12974.tag = NULL_TYPE; t12970 = f26175(t12973, t12974); /* x212016 */ t12971.tag = EXTERNAL_SYMBOL_TYPE; t12971.value.external_symbol_type = t12969; t12972.tag = STRUCTURE_TYPE24753; t12972.value.structure_type24753 = t12970; t12965 = f26175(t12971, t12972); /* x212083 */ /* x212034 */ /* x212027 */ t12980 = q532; /* x212033 */ /* x212031 stalin.sc:29269:1007219 */ /* x212030 stalin.sc:29269:1007229 */ t12986 = a32431; /* x212029 stalin.sc:29269:1007220 */ t12984 = f9729(t12986); /* x212032 */ /* x212028 */ t12985.tag = NULL_TYPE; t12981 = f26175(t12984, t12985); /* x212026 */ t12982.tag = EXTERNAL_SYMBOL_TYPE; t12982.value.external_symbol_type = t12980; t12983.tag = STRUCTURE_TYPE24753; t12983.value.structure_type24753 = t12981; t12976 = f26175(t12982, t12983); /* x212082 */ /* x212044 */ /* x212037 */ t12991 = q533; /* x212043 */ /* x212041 stalin.sc:29270:1007258 */ /* x212040 stalin.sc:29270:1007268 */ t12997 = a32431; /* x212039 stalin.sc:29270:1007259 */ t12995 = f9730(t12997); /* x212042 */ /* x212038 */ t12996.tag = NULL_TYPE; t12992 = f26175(t12995, t12996); /* x212036 */ t12993.tag = EXTERNAL_SYMBOL_TYPE; t12993.value.external_symbol_type = t12991; t12994.tag = STRUCTURE_TYPE24753; t12994.value.structure_type24753 = t12992; t12987 = f26175(t12993, t12994); /* x212081 */ /* x212054 */ /* x212047 */ t13002 = q534; /* x212053 */ /* x212051 stalin.sc:29271:1007295 */ /* x212050 stalin.sc:29271:1007308 */ t13008 = a32431; /* x212049 stalin.sc:29271:1007296 */ t13006 = f9731(t13008); /* x212052 */ /* x212048 */ t13007.tag = NULL_TYPE; t13003 = f26175(t13006, t13007); /* x212046 */ t13004.tag = EXTERNAL_SYMBOL_TYPE; t13004.value.external_symbol_type = t13002; t13005.tag = STRUCTURE_TYPE24753; t13005.value.structure_type24753 = t13003; t12998 = f26175(t13004, t13005); /* x212080 */ /* x212078 */ /* x212057 */ t13012 = q707; /* x212077 */ /* x212075 stalin.sc:29273:1007342 */ /* x212064 stalin.sc:29273:1007346 */ /* x212062 stalin.sc:29273:1007349 */ /* x212061 stalin.sc:29273:1007360 */ t13020 = a32431; /* x212060 stalin.sc:29273:1007350 */ t13018 = f9734(t13020); /* x212063 stalin.sc:29273:1007363 */ t13019 = 12; /* x267929 stalin.sc:29273:1007347 */ if (!(t13018==t13019)) goto l3901; /* x212067 stalin.sc:29273:1007367 */ /* x212066 stalin.sc:29273:1007379 */ t13024 = a32431; /* x212065 stalin.sc:29273:1007368 */ a22913 = t13024; /* x86593 stalin.sc:6999:242105 */ /* x86592 stalin.sc:7000:242115 */ /* x86591 stalin.sc:7001:242126 */ /* x86590 stalin.sc:7002:242138 */ /* x86589 stalin.sc:7003:242151 */ /* x86588 stalin.sc:7004:242165 */ /* x86587 stalin.sc:7004:242173 */ /* x86586 stalin.sc:7004:242181 */ /* x86585 stalin.sc:7004:242189 */ /* x86584 stalin.sc:7004:242197 */ /* x86583 stalin.sc:7004:242205 */ /* x86582 stalin.sc:7004:242213 */ /* x86581 stalin.sc:7004:242221 */ t13036 = a22913; /* x86580 stalin.sc:7004:242214 */ t13035 = f9720(t13036); /* x86579 stalin.sc:7004:242206 */ t13034 = f9720(t13035); /* x86578 stalin.sc:7004:242198 */ t13033 = f9720(t13034); /* x86577 stalin.sc:7004:242190 */ t13032 = f9720(t13033); /* x86576 stalin.sc:7004:242182 */ t13031 = f9720(t13032); /* x86575 stalin.sc:7004:242174 */ t13030 = f9720(t13031); /* x86574 stalin.sc:7004:242166 */ t13029 = f9720(t13030); /* x86573 stalin.sc:7003:242152 */ t13028 = f9720(t13029); /* x86572 stalin.sc:7002:242139 */ t13027 = f9720(t13028); /* x86571 stalin.sc:7001:242127 */ t13026 = f9720(t13027); /* x86570 stalin.sc:7000:242116 */ t13025 = f9720(t13026); /* x86569 stalin.sc:6999:242106 */ t13016 = f9719(t13025); goto l3902; l3901: /* x212074 stalin.sc:29273:1007382 */ t13016.tag = STRUCTURE_TYPE24753; t13016.value.structure_type24753 = &t13021; l3902: /* x212076 */ /* x212058 */ t13017.tag = NULL_TYPE; t13013 = f26175(t13016, t13017); /* x212056 */ t13014.tag = EXTERNAL_SYMBOL_TYPE; t13014.value.external_symbol_type = t13012; t13015.tag = STRUCTURE_TYPE24753; t13015.value.structure_type24753 = t13013; t13009 = f26175(t13014, t13015); /* x212079 */ /* x212055 */ t13010.tag = STRUCTURE_TYPE24753; t13010.value.structure_type24753 = t13009; t13011.tag = NULL_TYPE; t12999 = f26175(t13010, t13011); /* x212045 */ t13000.tag = STRUCTURE_TYPE24753; t13000.value.structure_type24753 = t12998; t13001.tag = STRUCTURE_TYPE24753; t13001.value.structure_type24753 = t12999; t12988 = f26175(t13000, t13001); /* x212035 */ t12989.tag = STRUCTURE_TYPE24753; t12989.value.structure_type24753 = t12987; t12990.tag = STRUCTURE_TYPE24753; t12990.value.structure_type24753 = t12988; t12977 = f26175(t12989, t12990); /* x212025 */ t12978.tag = STRUCTURE_TYPE24753; t12978.value.structure_type24753 = t12976; t12979.tag = STRUCTURE_TYPE24753; t12979.value.structure_type24753 = t12977; t12966 = f26175(t12978, t12979); /* x212015 */ t12967.tag = STRUCTURE_TYPE24753; t12967.value.structure_type24753 = t12965; t12968.tag = STRUCTURE_TYPE24753; t12968.value.structure_type24753 = t12966; t12944 = f26175(t12967, t12968); /* x211977 */ t12945.tag = STRUCTURE_TYPE24753; t12945.value.structure_type24753 = t12943; t12946.tag = STRUCTURE_TYPE24753; t12946.value.structure_type24753 = t12944; t12925 = f26175(t12945, t12946); /* x211945 */ t12926.tag = STRUCTURE_TYPE24753; t12926.value.structure_type24753 = t12924; t12927.tag = STRUCTURE_TYPE24753; t12927.value.structure_type24753 = t12925; t12914 = f26175(t12926, t12927); /* x211935 */ t12915.tag = STRUCTURE_TYPE24753; t12915.value.structure_type24753 = t12913; t12916.tag = STRUCTURE_TYPE24753; t12916.value.structure_type24753 = t12914; t12903 = f26175(t12915, t12916); /* x211925 */ t12904.tag = STRUCTURE_TYPE24753; t12904.value.structure_type24753 = t12902; t12905.tag = STRUCTURE_TYPE24753; t12905.value.structure_type24753 = t12903; t12892 = f26175(t12904, t12905); /* x211915 */ t12893.tag = STRUCTURE_TYPE24753; t12893.value.structure_type24753 = t12891; t12894.tag = STRUCTURE_TYPE24753; t12894.value.structure_type24753 = t12892; t12881 = f26175(t12893, t12894); /* x211905 */ t12882.tag = STRUCTURE_TYPE24753; t12882.value.structure_type24753 = t12880; t12883.tag = STRUCTURE_TYPE24753; t12883.value.structure_type24753 = t12881; t12870 = f26175(t12882, t12883); /* x211895 */ t12871.tag = STRUCTURE_TYPE24753; t12871.value.structure_type24753 = t12869; t12872.tag = STRUCTURE_TYPE24753; t12872.value.structure_type24753 = t12870; t12864 = f26175(t12871, t12872); /* x211889 */ t12865.tag = STRUCTURE_TYPE24753; t12865.value.structure_type24753 = t12863; t12866.tag = STRUCTURE_TYPE24753; t12866.value.structure_type24753 = t12864; t12859 = f26175(t12865, t12866); /* x217699 */ t12860 = &t13037; /* x211888 */ t12861.tag = STRUCTURE_TYPE24753; t12861.value.structure_type24753 = t12859; t12862.tag = STRUCTURE_TYPE24753; t12862.value.structure_type24753 = t12860; t12856 = f26175(t12861, t12862); /* x211886 */ t12857.tag = EXTERNAL_SYMBOL_TYPE; t12857.value.external_symbol_type = t12855; t12858.tag = STRUCTURE_TYPE24753; t12858.value.structure_type24753 = t12856; t12852 = f26175(t12857, t12858); /* x217702 */ /* x211885 */ t12853.tag = STRUCTURE_TYPE24753; t12853.value.structure_type24753 = t12852; t12854.tag = NULL_TYPE; t12844 = f26175(t12853, t12854); /* x211876 */ t12845.tag = STRUCTURE_TYPE24753; t12845.value.structure_type24753 = t12843; t12846.tag = STRUCTURE_TYPE24753; t12846.value.structure_type24753 = t12844; t12840 = f26175(t12845, t12846); /* x211874 */ t12841.tag = EXTERNAL_SYMBOL_TYPE; t12841.value.external_symbol_type = t12839; t12842.tag = STRUCTURE_TYPE24753; t12842.value.structure_type24753 = t12840; return f26175(t12841, t12842);} /* [inside top level 18504] */ struct structure_type24753 *f18504(struct w49 a32430) {char *t15840; struct structure_type24753 *t15841; struct w49 t15842; struct w49 t15843; struct structure_type24753 *t15844; struct structure_type24753 *t15845; struct w49 t15846; struct w49 t15847; struct w49 t15848; struct structure_type24753 *t15849; struct w49 t15850; struct w49 t15851; struct structure_type24753 *t15853; struct w49 t15854; struct w49 t15855; char *t15856; struct structure_type24753 *t15857; struct w49 t15858; struct w49 t15859; struct structure_type24753 *t15860; struct structure_type24753 *t15861; struct w49 t15862; struct w49 t15863; struct structure_type24753 *t15864; struct structure_type24753 *t15865; struct w49 t15866; struct w49 t15867; struct structure_type24753 *t15870; struct structure_type24753 *t15871; struct w49 t15872; struct w49 t15873; char *t15874; struct structure_type24753 *t15875; struct w49 t15876; struct w49 t15877; struct w49 t15878; struct w49 t15879; struct w49 t15880; struct structure_type24753 *t15881; struct structure_type24753 *t15882; struct w49 t15883; struct w49 t15884; char *t15885; struct structure_type24753 *t15886; struct w49 t15887; struct w49 t15888; struct w49 t15889; struct w49 t15890; struct w49 t15891; struct structure_type24753 *t15892; struct structure_type24753 *t15893; struct w49 t15894; struct w49 t15895; char *t15896; struct structure_type24753 *t15897; struct w49 t15898; struct w49 t15899; struct w49 t15900; struct w49 t15901; struct w49 t15902; struct structure_type24753 *t15903; struct structure_type24753 *t15904; struct w49 t15905; struct w49 t15906; char *t15907; struct structure_type24753 *t15908; struct w49 t15909; struct w49 t15910; struct w49 t15911; struct w49 t15912; struct w49 t15913; struct structure_type24753 *t15914; struct structure_type24753 *t15915; struct w49 t15916; struct w49 t15917; char *t15918; struct structure_type24753 *t15919; struct w49 t15920; struct w49 t15921; struct w49 t15922; struct w49 t15923; struct w49 t15924; struct structure_type24753 *t15925; struct w49 t15926; struct w49 t15927; char *t15928; struct structure_type24753 *t15929; struct w49 t15930; struct w49 t15931; struct w49 t15932; struct w49 t15933; struct w49 t15934; /* x211869 stalin.sc:28656:984657 */ /* x207421 */ t15840 = q97; /* x211868 */ /* x207430 */ /* x207426 stalin.sc:28656:984668 */ /* x207425 stalin.sc:28656:984679 */ t15851 = a32430; /* x207424 stalin.sc:28656:984669 */ t15848 = f9722(t15851); /* x207429 */ t15849 = &t15852; /* x207423 */ t15850.tag = STRUCTURE_TYPE24753; t15850.value.structure_type24753 = t15849; t15844 = f26175(t15848, t15850); /* x211867 */ /* x211865 */ /* x207433 */ t15856 = q246; /* x211864 */ /* x207508 */ /* x207440 */ t15864 = &t15868; /* x207507 */ /* x207450 */ /* x207443 */ t15874 = q529; /* x207449 */ /* x207447 stalin.sc:28658:984742 */ /* x207446 stalin.sc:28658:984752 */ t15880 = a32430; /* x207445 stalin.sc:28658:984743 */ t15878 = f9723(t15880); /* x207448 */ /* x207444 */ t15879.tag = NULL_TYPE; t15875 = f26175(t15878, t15879); /* x207442 */ t15876.tag = EXTERNAL_SYMBOL_TYPE; t15876.value.external_symbol_type = t15874; t15877.tag = STRUCTURE_TYPE24753; t15877.value.structure_type24753 = t15875; t15870 = f26175(t15876, t15877); /* x207506 */ /* x207460 */ /* x207453 */ t15885 = q530; /* x207459 */ /* x207457 stalin.sc:28659:984782 */ /* x207456 stalin.sc:28659:984793 */ t15891 = a32430; /* x207455 stalin.sc:28659:984783 */ t15889 = f9724(t15891); /* x207458 */ /* x207454 */ t15890.tag = NULL_TYPE; t15886 = f26175(t15889, t15890); /* x207452 */ t15887.tag = EXTERNAL_SYMBOL_TYPE; t15887.value.external_symbol_type = t15885; t15888.tag = STRUCTURE_TYPE24753; t15888.value.structure_type24753 = t15886; t15881 = f26175(t15887, t15888); /* x207505 */ /* x207470 */ /* x207463 */ t15896 = q531; /* x207469 */ /* x207467 stalin.sc:28660:984828 */ /* x207466 stalin.sc:28660:984838 */ t15902 = a32430; /* x207465 stalin.sc:28660:984829 */ t15900 = f9725(t15902); /* x207468 */ /* x207464 */ t15901.tag = NULL_TYPE; t15897 = f26175(t15900, t15901); /* x207462 */ t15898.tag = EXTERNAL_SYMBOL_TYPE; t15898.value.external_symbol_type = t15896; t15899.tag = STRUCTURE_TYPE24753; t15899.value.structure_type24753 = t15897; t15892 = f26175(t15898, t15899); /* x207504 */ /* x207480 */ /* x207473 */ t15907 = q532; /* x207479 */ /* x207477 stalin.sc:28661:984874 */ /* x207476 stalin.sc:28661:984884 */ t15913 = a32430; /* x207475 stalin.sc:28661:984875 */ t15911 = f9726(t15913); /* x207478 */ /* x207474 */ t15912.tag = NULL_TYPE; t15908 = f26175(t15911, t15912); /* x207472 */ t15909.tag = EXTERNAL_SYMBOL_TYPE; t15909.value.external_symbol_type = t15907; t15910.tag = STRUCTURE_TYPE24753; t15910.value.structure_type24753 = t15908; t15903 = f26175(t15909, t15910); /* x207503 */ /* x207490 */ /* x207483 */ t15918 = q533; /* x207489 */ /* x207487 stalin.sc:28662:984913 */ /* x207486 stalin.sc:28662:984925 */ t15924 = a32430; /* x207485 stalin.sc:28662:984914 */ t15922 = f9727(t15924); /* x207488 */ /* x207484 */ t15923.tag = NULL_TYPE; t15919 = f26175(t15922, t15923); /* x207482 */ t15920.tag = EXTERNAL_SYMBOL_TYPE; t15920.value.external_symbol_type = t15918; t15921.tag = STRUCTURE_TYPE24753; t15921.value.structure_type24753 = t15919; t15914 = f26175(t15920, t15921); /* x207502 */ /* x207500 */ /* x207493 */ t15928 = q534; /* x207499 */ /* x207497 stalin.sc:28663:984952 */ /* x207496 stalin.sc:28663:984963 */ t15934 = a32430; /* x207495 stalin.sc:28663:984953 */ t15932 = f9728(t15934); /* x207498 */ /* x207494 */ t15933.tag = NULL_TYPE; t15929 = f26175(t15932, t15933); /* x207492 */ t15930.tag = EXTERNAL_SYMBOL_TYPE; t15930.value.external_symbol_type = t15928; t15931.tag = STRUCTURE_TYPE24753; t15931.value.structure_type24753 = t15929; t15925 = f26175(t15930, t15931); /* x207501 */ /* x207491 */ t15926.tag = STRUCTURE_TYPE24753; t15926.value.structure_type24753 = t15925; t15927.tag = NULL_TYPE; t15915 = f26175(t15926, t15927); /* x207481 */ t15916.tag = STRUCTURE_TYPE24753; t15916.value.structure_type24753 = t15914; t15917.tag = STRUCTURE_TYPE24753; t15917.value.structure_type24753 = t15915; t15904 = f26175(t15916, t15917); /* x207471 */ t15905.tag = STRUCTURE_TYPE24753; t15905.value.structure_type24753 = t15903; t15906.tag = STRUCTURE_TYPE24753; t15906.value.structure_type24753 = t15904; t15893 = f26175(t15905, t15906); /* x207461 */ t15894.tag = STRUCTURE_TYPE24753; t15894.value.structure_type24753 = t15892; t15895.tag = STRUCTURE_TYPE24753; t15895.value.structure_type24753 = t15893; t15882 = f26175(t15894, t15895); /* x207451 */ t15883.tag = STRUCTURE_TYPE24753; t15883.value.structure_type24753 = t15881; t15884.tag = STRUCTURE_TYPE24753; t15884.value.structure_type24753 = t15882; t15871 = f26175(t15883, t15884); /* x207441 */ t15872.tag = STRUCTURE_TYPE24753; t15872.value.structure_type24753 = t15870; t15873.tag = STRUCTURE_TYPE24753; t15873.value.structure_type24753 = t15871; t15865 = f26175(t15872, t15873); /* x207435 */ t15866.tag = STRUCTURE_TYPE24753; t15866.value.structure_type24753 = t15864; t15867.tag = STRUCTURE_TYPE24753; t15867.value.structure_type24753 = t15865; t15860 = f26175(t15866, t15867); /* x211863 */ t15861 = &t15935; /* x207434 */ t15862.tag = STRUCTURE_TYPE24753; t15862.value.structure_type24753 = t15860; t15863.tag = STRUCTURE_TYPE24753; t15863.value.structure_type24753 = t15861; t15857 = f26175(t15862, t15863); /* x207432 */ t15858.tag = EXTERNAL_SYMBOL_TYPE; t15858.value.external_symbol_type = t15856; t15859.tag = STRUCTURE_TYPE24753; t15859.value.structure_type24753 = t15857; t15853 = f26175(t15858, t15859); /* x211866 */ /* x207431 */ t15854.tag = STRUCTURE_TYPE24753; t15854.value.structure_type24753 = t15853; t15855.tag = NULL_TYPE; t15845 = f26175(t15854, t15855); /* x207422 */ t15846.tag = STRUCTURE_TYPE24753; t15846.value.structure_type24753 = t15844; t15847.tag = STRUCTURE_TYPE24753; t15847.value.structure_type24753 = t15845; t15841 = f26175(t15846, t15847); /* x207420 */ t15842.tag = EXTERNAL_SYMBOL_TYPE; t15842.value.external_symbol_type = t15840; t15843.tag = STRUCTURE_TYPE24753; t15843.value.structure_type24753 = t15841; return f26175(t15842, t15843);} /* [inside top level 18500] */ struct structure_type24753 *f18500(struct w49 a32428) {char *t18112; struct structure_type24753 *t18113; struct w49 t18114; struct w49 t18115; struct structure_type24753 *t18116; struct structure_type24753 *t18117; struct w49 t18118; struct w49 t18119; char *t18120; struct structure_type24753 *t18121; struct w49 t18122; struct w49 t18123; struct w49 t18124; struct structure_type24753 *t18125; struct w49 t18126; struct w49 t18127; struct w49 t18128; struct structure_type24753 *t18129; struct w49 t18130; struct w49 t18131; struct w49 t18132; struct structure_type24753 *t18133; struct w49 t18134; struct w49 t18135; struct structure_type24753 *t18136; struct w49 t18137; struct w49 t18138; struct structure_type24753 *t18139; struct w49 t18140; struct w49 t18141; char *t18142; struct structure_type24753 *t18143; struct w49 t18144; struct w49 t18145; struct structure_type24753 *t18146; struct w49 t18147; struct w49 t18148; struct structure_type24753 *t18149; struct structure_type24753 *t18150; struct w49 t18151; struct w49 t18152; char *t18153; struct structure_type24753 *t18154; struct w49 t18155; struct w49 t18156; struct structure_type24753 *t18157; struct structure_type24753 *t18158; struct w49 t18159; struct w49 t18160; char *t18161; struct structure_type24753 *t18162; struct w49 t18163; struct w49 t18164; struct w49 t18165; struct structure_type24753 *t18166; struct w49 t18167; struct w49 t18168; struct w49 t18169; struct w49 t18170; struct w49 t18171; struct structure_type24753 *t18174; struct structure_type24753 *t18175; struct w49 t18176; struct w49 t18177; char *t18178; struct structure_type24753 *t18179; struct w49 t18180; struct w49 t18181; struct w49 t18182; struct structure_type24753 *t18183; struct w49 t18184; struct w49 t18185; struct structure_type24753 *t18186; struct w49 t18187; struct w49 t18188; char *t18189; struct structure_type24753 *t18190; struct w49 t18191; struct w49 t18192; struct w49 t18193; struct structure_type24753 *t18194; struct w49 t18195; struct w49 t18196; struct structure_type24753 *t18198; struct structure_type24753 *t18199; struct w49 t18200; struct w49 t18201; struct structure_type24753 *t18203; struct w49 t18204; struct w49 t18205; struct w49 t18206; struct w49 t18207; struct w49 t18208; struct structure_type24753 *t18209; struct w49 t18210; struct w49 t18211; char *t18212; struct structure_type24753 *t18213; struct w49 t18214; struct w49 t18215; struct w49 t18216; struct structure_type24753 *t18217; struct w49 t18218; struct w49 t18219; struct w49 t18220; struct structure_type24753 *t18221; struct w49 t18222; struct w49 t18223; struct w49 t18224; struct structure_type24753 *t18225; struct w49 t18226; struct w49 t18227; struct structure_type24753 *t18228; struct w49 t18229; struct w49 t18230; struct structure_type24753 *t18231; struct w49 t18232; struct w49 t18233; char *t18234; struct structure_type24753 *t18235; struct w49 t18236; struct w49 t18237; struct structure_type24753 *t18238; struct w49 t18239; struct w49 t18240; struct structure_type24753 *t18241; struct structure_type24753 *t18242; struct w49 t18243; struct w49 t18244; char *t18245; struct structure_type24753 *t18246; struct w49 t18247; struct w49 t18248; struct structure_type24753 *t18249; struct structure_type24753 *t18250; struct w49 t18251; struct w49 t18252; char *t18253; struct structure_type24753 *t18254; struct w49 t18255; struct w49 t18256; struct w49 t18257; struct structure_type24753 *t18258; struct w49 t18259; struct w49 t18260; struct w49 t18261; struct w49 t18262; struct w49 t18263; struct structure_type24753 *t18266; struct structure_type24753 *t18267; struct w49 t18268; struct w49 t18269; char *t18270; struct structure_type24753 *t18271; struct w49 t18272; struct w49 t18273; struct w49 t18274; struct structure_type24753 *t18275; struct w49 t18276; struct w49 t18277; struct structure_type24753 *t18278; struct w49 t18279; struct w49 t18280; char *t18281; struct structure_type24753 *t18282; struct w49 t18283; struct w49 t18284; struct w49 t18285; struct structure_type24753 *t18286; struct w49 t18287; struct w49 t18288; struct structure_type24753 *t18290; struct structure_type24753 *t18291; struct w49 t18292; struct w49 t18293; struct structure_type24753 *t18295; struct w49 t18296; struct w49 t18297; struct w49 t18298; struct w49 t18299; struct w49 t18300; int t18301; int t18302; struct w49 t18303; struct w49 t18304; struct w49 t18305; struct w49 t18306; char *t18307; /* x207415 */ /* x207414 stalin.sc:28630:983804 */ /* x207405 stalin.sc:28630:983812 */ /* x207398 stalin.sc:28630:983817 */ /* x207396 stalin.sc:28630:983820 */ /* x207395 stalin.sc:28630:983831 */ t18303 = a32428; /* x207394 stalin.sc:28630:983821 */ t18301 = f9734(t18303); /* x207397 stalin.sc:28630:983834 */ t18302 = 11; /* x267930 stalin.sc:28630:983818 */ if (!(t18301==t18302)) goto l3904; /* x207403 */ /* x207402 stalin.sc:28630:983850 */ /* x207401 stalin.sc:28630:983860 */ t18305 = a32428; /* x207400 stalin.sc:28630:983851 */ t18304 = f9726(t18305); /* x207399 stalin.sc:28630:983839 */ if (f9741(t18304)==FALSE_TYPE) goto l3904; /* x207407 */ /* x207406 */ goto l3905; l3904: /* x207413 */ /* x207412 */ /* x207411 stalin.sc:28631:983868 */ /* x207409 stalin.sc:28631:983882 */ t18306 = a32428; /* x207410 stalin.sc:28631:983884 */ t18307 = "Improper DEFINE-INTEGER-RANGE-BUTTONS"; /* x207408 stalin.sc:28631:983869 */ f9705(t18306, t18307); l3905: /* x207392 */ /* x207391 stalin.sc:28632:983928 */ /* x207197 */ t18112 = q239; /* x207390 */ /* x207292 */ /* x207200 */ t18120 = q519; /* x207291 */ /* x207204 stalin.sc:28632:983952 */ /* x207203 stalin.sc:28632:983963 */ t18127 = a32428; /* x207202 stalin.sc:28632:983953 */ t18124 = f9722(t18127); /* x207290 */ /* x207208 stalin.sc:28632:983967 */ /* x207207 stalin.sc:28632:983977 */ t18131 = a32428; /* x207206 stalin.sc:28632:983968 */ t18128 = f9723(t18131); /* x207289 */ /* x207212 stalin.sc:28632:983981 */ /* x207211 stalin.sc:28632:983991 */ t18135 = a32428; /* x207210 stalin.sc:28632:983982 */ t18132 = f9729(t18135); /* x207288 */ /* x207214 */ /* x207287 */ /* x207285 */ /* x207217 */ t18142 = q39; /* x207284 */ /* x207219 */ /* x207283 */ /* x207244 */ /* x207222 */ t18153 = q493; /* x207243 */ /* x207237 */ /* x207225 */ t18161 = q120; /* x207236 */ /* x207229 stalin.sc:28635:984031 */ /* x207228 stalin.sc:28635:984041 */ t18168 = a32428; /* x207227 stalin.sc:28635:984032 */ t18165 = f9726(t18168); /* x207235 */ /* x207233 stalin.sc:28635:984045 */ /* x207232 stalin.sc:28635:984057 */ t18171 = a32428; /* x207231 stalin.sc:28635:984046 */ t18169 = f9727(t18171); /* x207234 */ /* x207230 */ t18170.tag = NULL_TYPE; t18166 = f26175(t18169, t18170); /* x207226 */ t18167.tag = STRUCTURE_TYPE24753; t18167.value.structure_type24753 = t18166; t18162 = f26175(t18165, t18167); /* x207224 */ t18163.tag = EXTERNAL_SYMBOL_TYPE; t18163.value.external_symbol_type = t18161; t18164.tag = STRUCTURE_TYPE24753; t18164.value.structure_type24753 = t18162; t18157 = f26175(t18163, t18164); /* x207242 */ t18158 = &t18172; /* x207223 */ t18159.tag = STRUCTURE_TYPE24753; t18159.value.structure_type24753 = t18157; t18160.tag = STRUCTURE_TYPE24753; t18160.value.structure_type24753 = t18158; t18154 = f26175(t18159, t18160); /* x207221 */ t18155.tag = EXTERNAL_SYMBOL_TYPE; t18155.value.external_symbol_type = t18153; t18156.tag = STRUCTURE_TYPE24753; t18156.value.structure_type24753 = t18154; t18149 = f26175(t18155, t18156); /* x207282 */ /* x207267 */ /* x207247 */ t18178 = q42; /* x207266 */ /* x207251 stalin.sc:28636:984082 */ /* x207250 stalin.sc:28636:984092 */ t18185 = a32428; /* x207249 stalin.sc:28636:984083 */ t18182 = f9726(t18185); /* x207265 */ /* x207263 */ /* x207254 */ t18189 = q2; /* x207262 */ /* x207258 stalin.sc:28636:984099 */ /* x207257 stalin.sc:28636:984109 */ t18196 = a32428; /* x207256 stalin.sc:28636:984100 */ t18193 = f9726(t18196); /* x207261 */ t18194 = &t18197; /* x207255 */ t18195.tag = STRUCTURE_TYPE24753; t18195.value.structure_type24753 = t18194; t18190 = f26175(t18193, t18195); /* x207253 */ t18191.tag = EXTERNAL_SYMBOL_TYPE; t18191.value.external_symbol_type = t18189; t18192.tag = STRUCTURE_TYPE24753; t18192.value.structure_type24753 = t18190; t18186 = f26175(t18191, t18192); /* x207264 */ /* x207252 */ t18187.tag = STRUCTURE_TYPE24753; t18187.value.structure_type24753 = t18186; t18188.tag = NULL_TYPE; t18183 = f26175(t18187, t18188); /* x207248 */ t18184.tag = STRUCTURE_TYPE24753; t18184.value.structure_type24753 = t18183; t18179 = f26175(t18182, t18184); /* x207246 */ t18180.tag = EXTERNAL_SYMBOL_TYPE; t18180.value.external_symbol_type = t18178; t18181.tag = STRUCTURE_TYPE24753; t18181.value.structure_type24753 = t18179; t18174 = f26175(t18180, t18181); /* x207281 */ /* x207271 */ t18198 = &t18202; /* x207280 */ /* x207278 */ /* x207276 stalin.sc:28638:984145 */ /* x207275 stalin.sc:28638:984158 */ t18208 = a32428; /* x207274 stalin.sc:28638:984146 */ t18206 = f9731(t18208); /* x207277 */ /* x207273 */ t18207.tag = NULL_TYPE; t18203 = f26175(t18206, t18207); /* x207279 */ /* x207272 */ t18204.tag = STRUCTURE_TYPE24753; t18204.value.structure_type24753 = t18203; t18205.tag = NULL_TYPE; t18199 = f26175(t18204, t18205); /* x207268 */ t18200.tag = STRUCTURE_TYPE24753; t18200.value.structure_type24753 = t18198; t18201.tag = STRUCTURE_TYPE24753; t18201.value.structure_type24753 = t18199; t18175 = f26175(t18200, t18201); /* x207245 */ t18176.tag = STRUCTURE_TYPE24753; t18176.value.structure_type24753 = t18174; t18177.tag = STRUCTURE_TYPE24753; t18177.value.structure_type24753 = t18175; t18150 = f26175(t18176, t18177); /* x207220 */ t18151.tag = STRUCTURE_TYPE24753; t18151.value.structure_type24753 = t18149; t18152.tag = STRUCTURE_TYPE24753; t18152.value.structure_type24753 = t18150; t18146 = f26175(t18151, t18152); /* x207218 */ t18147.tag = NULL_TYPE; t18148.tag = STRUCTURE_TYPE24753; t18148.value.structure_type24753 = t18146; t18143 = f26175(t18147, t18148); /* x207216 */ t18144.tag = EXTERNAL_SYMBOL_TYPE; t18144.value.external_symbol_type = t18142; t18145.tag = STRUCTURE_TYPE24753; t18145.value.structure_type24753 = t18143; t18139 = f26175(t18144, t18145); /* x207286 */ /* x207215 */ t18140.tag = STRUCTURE_TYPE24753; t18140.value.structure_type24753 = t18139; t18141.tag = NULL_TYPE; t18136 = f26175(t18140, t18141); /* x207213 */ t18137.tag = FALSE_TYPE; t18138.tag = STRUCTURE_TYPE24753; t18138.value.structure_type24753 = t18136; t18133 = f26175(t18137, t18138); /* x207209 */ t18134.tag = STRUCTURE_TYPE24753; t18134.value.structure_type24753 = t18133; t18129 = f26175(t18132, t18134); /* x207205 */ t18130.tag = STRUCTURE_TYPE24753; t18130.value.structure_type24753 = t18129; t18125 = f26175(t18128, t18130); /* x207201 */ t18126.tag = STRUCTURE_TYPE24753; t18126.value.structure_type24753 = t18125; t18121 = f26175(t18124, t18126); /* x207199 */ t18122.tag = EXTERNAL_SYMBOL_TYPE; t18122.value.external_symbol_type = t18120; t18123.tag = STRUCTURE_TYPE24753; t18123.value.structure_type24753 = t18121; t18116 = f26175(t18122, t18123); /* x207389 */ /* x207387 */ /* x207295 */ t18212 = q519; /* x207386 */ /* x207299 stalin.sc:28639:984183 */ /* x207298 stalin.sc:28639:984194 */ t18219 = a32428; /* x207297 stalin.sc:28639:984184 */ t18216 = f9724(t18219); /* x207385 */ /* x207303 stalin.sc:28639:984198 */ /* x207302 stalin.sc:28639:984208 */ t18223 = a32428; /* x207301 stalin.sc:28639:984199 */ t18220 = f9725(t18223); /* x207384 */ /* x207307 stalin.sc:28639:984212 */ /* x207306 stalin.sc:28639:984222 */ t18227 = a32428; /* x207305 stalin.sc:28639:984213 */ t18224 = f9730(t18227); /* x207383 */ /* x207309 */ /* x207382 */ /* x207380 */ /* x207312 */ t18234 = q39; /* x207379 */ /* x207314 */ /* x207378 */ /* x207339 */ /* x207317 */ t18245 = q493; /* x207338 */ /* x207332 */ /* x207320 */ t18253 = q120; /* x207331 */ /* x207324 stalin.sc:28642:984262 */ /* x207323 stalin.sc:28642:984272 */ t18260 = a32428; /* x207322 stalin.sc:28642:984263 */ t18257 = f9726(t18260); /* x207330 */ /* x207328 stalin.sc:28642:984276 */ /* x207327 stalin.sc:28642:984287 */ t18263 = a32428; /* x207326 stalin.sc:28642:984277 */ t18261 = f9728(t18263); /* x207329 */ /* x207325 */ t18262.tag = NULL_TYPE; t18258 = f26175(t18261, t18262); /* x207321 */ t18259.tag = STRUCTURE_TYPE24753; t18259.value.structure_type24753 = t18258; t18254 = f26175(t18257, t18259); /* x207319 */ t18255.tag = EXTERNAL_SYMBOL_TYPE; t18255.value.external_symbol_type = t18253; t18256.tag = STRUCTURE_TYPE24753; t18256.value.structure_type24753 = t18254; t18249 = f26175(t18255, t18256); /* x207337 */ t18250 = &t18264; /* x207318 */ t18251.tag = STRUCTURE_TYPE24753; t18251.value.structure_type24753 = t18249; t18252.tag = STRUCTURE_TYPE24753; t18252.value.structure_type24753 = t18250; t18246 = f26175(t18251, t18252); /* x207316 */ t18247.tag = EXTERNAL_SYMBOL_TYPE; t18247.value.external_symbol_type = t18245; t18248.tag = STRUCTURE_TYPE24753; t18248.value.structure_type24753 = t18246; t18241 = f26175(t18247, t18248); /* x207377 */ /* x207362 */ /* x207342 */ t18270 = q42; /* x207361 */ /* x207346 stalin.sc:28643:984312 */ /* x207345 stalin.sc:28643:984322 */ t18277 = a32428; /* x207344 stalin.sc:28643:984313 */ t18274 = f9726(t18277); /* x207360 */ /* x207358 */ /* x207349 */ t18281 = q4; /* x207357 */ /* x207353 stalin.sc:28643:984329 */ /* x207352 stalin.sc:28643:984339 */ t18288 = a32428; /* x207351 stalin.sc:28643:984330 */ t18285 = f9726(t18288); /* x207356 */ t18286 = &t18289; /* x207350 */ t18287.tag = STRUCTURE_TYPE24753; t18287.value.structure_type24753 = t18286; t18282 = f26175(t18285, t18287); /* x207348 */ t18283.tag = EXTERNAL_SYMBOL_TYPE; t18283.value.external_symbol_type = t18281; t18284.tag = STRUCTURE_TYPE24753; t18284.value.structure_type24753 = t18282; t18278 = f26175(t18283, t18284); /* x207359 */ /* x207347 */ t18279.tag = STRUCTURE_TYPE24753; t18279.value.structure_type24753 = t18278; t18280.tag = NULL_TYPE; t18275 = f26175(t18279, t18280); /* x207343 */ t18276.tag = STRUCTURE_TYPE24753; t18276.value.structure_type24753 = t18275; t18271 = f26175(t18274, t18276); /* x207341 */ t18272.tag = EXTERNAL_SYMBOL_TYPE; t18272.value.external_symbol_type = t18270; t18273.tag = STRUCTURE_TYPE24753; t18273.value.structure_type24753 = t18271; t18266 = f26175(t18272, t18273); /* x207376 */ /* x207366 */ t18290 = &t18294; /* x207375 */ /* x207373 */ /* x207371 stalin.sc:28645:984375 */ /* x207370 stalin.sc:28645:984388 */ t18300 = a32428; /* x207369 stalin.sc:28645:984376 */ t18298 = f9731(t18300); /* x207372 */ /* x207368 */ t18299.tag = NULL_TYPE; t18295 = f26175(t18298, t18299); /* x207374 */ /* x207367 */ t18296.tag = STRUCTURE_TYPE24753; t18296.value.structure_type24753 = t18295; t18297.tag = NULL_TYPE; t18291 = f26175(t18296, t18297); /* x207363 */ t18292.tag = STRUCTURE_TYPE24753; t18292.value.structure_type24753 = t18290; t18293.tag = STRUCTURE_TYPE24753; t18293.value.structure_type24753 = t18291; t18267 = f26175(t18292, t18293); /* x207340 */ t18268.tag = STRUCTURE_TYPE24753; t18268.value.structure_type24753 = t18266; t18269.tag = STRUCTURE_TYPE24753; t18269.value.structure_type24753 = t18267; t18242 = f26175(t18268, t18269); /* x207315 */ t18243.tag = STRUCTURE_TYPE24753; t18243.value.structure_type24753 = t18241; t18244.tag = STRUCTURE_TYPE24753; t18244.value.structure_type24753 = t18242; t18238 = f26175(t18243, t18244); /* x207313 */ t18239.tag = NULL_TYPE; t18240.tag = STRUCTURE_TYPE24753; t18240.value.structure_type24753 = t18238; t18235 = f26175(t18239, t18240); /* x207311 */ t18236.tag = EXTERNAL_SYMBOL_TYPE; t18236.value.external_symbol_type = t18234; t18237.tag = STRUCTURE_TYPE24753; t18237.value.structure_type24753 = t18235; t18231 = f26175(t18236, t18237); /* x207381 */ /* x207310 */ t18232.tag = STRUCTURE_TYPE24753; t18232.value.structure_type24753 = t18231; t18233.tag = NULL_TYPE; t18228 = f26175(t18232, t18233); /* x207308 */ t18229.tag = FALSE_TYPE; t18230.tag = STRUCTURE_TYPE24753; t18230.value.structure_type24753 = t18228; t18225 = f26175(t18229, t18230); /* x207304 */ t18226.tag = STRUCTURE_TYPE24753; t18226.value.structure_type24753 = t18225; t18221 = f26175(t18224, t18226); /* x207300 */ t18222.tag = STRUCTURE_TYPE24753; t18222.value.structure_type24753 = t18221; t18217 = f26175(t18220, t18222); /* x207296 */ t18218.tag = STRUCTURE_TYPE24753; t18218.value.structure_type24753 = t18217; t18213 = f26175(t18216, t18218); /* x207294 */ t18214.tag = EXTERNAL_SYMBOL_TYPE; t18214.value.external_symbol_type = t18212; t18215.tag = STRUCTURE_TYPE24753; t18215.value.structure_type24753 = t18213; t18209 = f26175(t18214, t18215); /* x207388 */ /* x207293 */ t18210.tag = STRUCTURE_TYPE24753; t18210.value.structure_type24753 = t18209; t18211.tag = NULL_TYPE; t18117 = f26175(t18210, t18211); /* x207198 */ t18118.tag = STRUCTURE_TYPE24753; t18118.value.structure_type24753 = t18116; t18119.tag = STRUCTURE_TYPE24753; t18119.value.structure_type24753 = t18117; t18113 = f26175(t18118, t18119); /* x207196 */ t18114.tag = EXTERNAL_SYMBOL_TYPE; t18114.value.external_symbol_type = t18112; t18115.tag = STRUCTURE_TYPE24753; t18115.value.structure_type24753 = t18113; return f26175(t18114, t18115);} /* [inside top level 18496] */ struct structure_type24753 *f18496(struct p18492 *p18496, struct w49 a32425, struct w49 a32426) {struct structure_type24753 *t18308; struct structure_type24753 *t18309; struct w49 t18310; struct w49 t18311; struct w49 t18312; struct w49 t18313; struct structure_type24753 *t18314; struct w49 t18315; struct w49 t18316; char *t18317; struct structure_type24753 *t18318; struct w49 t18319; struct w49 t18320; struct w49 t18321; struct structure_type24753 *t18322; struct w49 t18323; struct w49 t18324; struct structure_type24753 *t18325; struct w49 t18326; struct w49 t18327; char *t18328; struct structure_type24753 *t18329; struct w49 t18330; struct w49 t18331; struct w49 t18332; struct w49 t18333; /* x207064 stalin.sc:28622:983571 */ /* x207042 */ /* x207040 stalin.sc:28622:983575 */ t18312 = a32425; /* x207041 */ /* x207039 */ t18313.tag = NULL_TYPE; t18308 = f26175(t18312, t18313); /* x207063 */ /* x207061 */ /* x207045 */ t18317 = q42; /* x207060 */ /* x207049 stalin.sc:28622:983586 */ /* x207048 stalin.sc:28622:983597 */ t18324 = p18496->a32421; /* x207047 stalin.sc:28622:983587 */ t18321 = f9724(t18324); /* x207059 */ /* x207057 */ /* x207052 */ t18328 = q11; /* x207056 */ /* x207054 stalin.sc:28622:983602 */ t18332 = a32426; /* x207055 */ /* x207053 */ t18333.tag = NULL_TYPE; t18329 = f26175(t18332, t18333); /* x207051 */ t18330.tag = EXTERNAL_SYMBOL_TYPE; t18330.value.external_symbol_type = t18328; t18331.tag = STRUCTURE_TYPE24753; t18331.value.structure_type24753 = t18329; t18325 = f26175(t18330, t18331); /* x207058 */ /* x207050 */ t18326.tag = STRUCTURE_TYPE24753; t18326.value.structure_type24753 = t18325; t18327.tag = NULL_TYPE; t18322 = f26175(t18326, t18327); /* x207046 */ t18323.tag = STRUCTURE_TYPE24753; t18323.value.structure_type24753 = t18322; t18318 = f26175(t18321, t18323); /* x207044 */ t18319.tag = EXTERNAL_SYMBOL_TYPE; t18319.value.external_symbol_type = t18317; t18320.tag = STRUCTURE_TYPE24753; t18320.value.structure_type24753 = t18318; t18314 = f26175(t18319, t18320); /* x207062 */ /* x207043 */ t18315.tag = STRUCTURE_TYPE24753; t18315.value.structure_type24753 = t18314; t18316.tag = NULL_TYPE; t18309 = f26175(t18315, t18316); /* x207038 */ t18310.tag = STRUCTURE_TYPE24753; t18310.value.structure_type24753 = t18308; t18311.tag = STRUCTURE_TYPE24753; t18311.value.structure_type24753 = t18309; return f26175(t18310, t18311);} /* [inside top level 18492] */ struct structure_type24753 *f18492(struct w49 a32421) {struct w12224 a32423; /* SYMBOLS */ struct structure_type24753 *a35245; /* OBJS */ struct w12224 a35609; /* PAIR */ struct w12224 a36197; /* PAIR */ struct w49 a41306; /* S */ struct w49 a41307; /* S */ struct w49 a41308; /* S */ struct w49 a41309; /* S */ struct w49 a41310; /* S */ struct w49 a41311; /* S */ struct w49 a41312; /* S */ struct w49 a41313; /* S */ struct w49 a41314; /* S */ struct w49 a41315; /* S */ struct w49 a41316; /* S */ struct w49 a41317; /* S */ struct w49 a41318; /* S */ struct w49 a41319; /* S */ struct w49 a41320; /* S */ struct p18492 *t18334; struct p18492 *t18335; struct w12224 t18336; char *t18337; struct structure_type24753 *t18338; struct w49 t18339; struct w49 t18340; struct w49 t18341; struct structure_type24753 *t18342; struct w49 t18343; struct w49 t18344; struct w49 t18345; struct structure_type24753 *t18346; struct w49 t18347; struct w49 t18348; struct structure_type24753 *t18349; struct structure_type24753 *t18350; struct w49 t18351; struct w49 t18352; char *t18353; struct structure_type24753 *t18354; struct w49 t18355; struct w49 t18356; struct structure_type24753 *t18357; struct w49 t18358; struct w49 t18359; struct structure_type24753 *t18360; struct w49 t18361; struct w49 t18362; char *t18363; struct structure_type24753 *t18364; struct w49 t18365; struct w49 t18366; struct w49 t18367; struct w49 t18368; struct w49 t18369; struct w12224 t18370; struct structure_type24753 *t18371; struct structure_type24753 *t18372; struct w49 t18373; struct w49 t18374; struct w198746 t18375; struct w49 t18376; struct w49 t18377; struct w49 t18378; struct w49 t18379; struct w49 t18380; struct w49 t18381; struct w49 t18382; struct w49 t18383; struct w49 t18384; struct w49 t18385; struct structure_type24753 *t18390; struct w49 t18391; struct w49 t18392; struct structure_type24753 *t18393; struct w49 t18394; struct w49 t18395; char *t18396; struct structure_type24753 *t18397; struct w49 t18398; struct w49 t18399; struct structure_type24753 *t18400; struct w49 t18401; struct w49 t18402; struct structure_type24753 *t18403; struct structure_type24753 *t18404; struct w49 t18405; struct w49 t18406; char *t18407; struct structure_type24753 *t18408; struct w49 t18409; struct w49 t18410; struct w49 t18411; struct structure_type24753 *t18412; struct w49 t18413; struct w49 t18414; struct structure_type24753 *t18415; struct w49 t18416; struct w49 t18417; char *t18418; struct structure_type24753 *t18419; struct w49 t18420; struct w49 t18421; struct w49 t18422; struct w49 t18423; struct w49 t18424; struct structure_type24753 *t18425; struct structure_type24753 *t18426; struct structure_type24753 *t18427; struct w49 t18428; struct p18492 *t18429; struct w12224 t18430; struct w49 t18431; struct w36270 t18432; struct w49 t18433; struct structure_type24753 *t18434; struct w49 t18435; struct structure_type24753 *t18436; struct structure_type24753 *t18437; struct w49 t18438; struct w12224 t18439; struct w12224 t18440; struct w49 t18441; struct w12224 t18442; struct w12224 t18443; struct structure_type24753 *t18448; struct structure_type24753 *t18449; struct w49 t18450; struct w49 t18451; struct structure_type24753 *t18453; struct w49 t18454; struct w49 t18455; struct w49 t18456; struct w49 t18457; struct w49 t18458; struct w49 t18459; struct w198746 t18460; struct w49 t18461; struct w49 t18462; struct w49 t18463; struct w49 t18464; struct w49 t18465; struct w49 t18466; struct w49 t18467; struct w49 t18468; struct w49 t18469; struct w49 t18470; int t18471; int t18472; struct w49 t18473; struct w49 t18474; struct w49 t18475; struct w49 t18476; unsigned t18477; struct w49 t18478; struct w49 t18479; struct w49 t18480; struct w49 t18481; struct w49 t18482; struct w49 t18483; struct w49 t18484; struct w49 t18485; struct w49 t18486; struct w49 t18487; struct p18492 *t18488; struct w49 t18489; char *t18490; struct p18492 *e18492; struct p18492 *p18493; struct p18492 *p18494; struct p18492 *p18499; e18492 = (struct p18492 *)alloca(sizeof(struct p18492)); if (e18492==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e18492->a32421 = a32421; /* x207191 */ /* x207190 stalin.sc:28599:982780 */ /* x207181 stalin.sc:28599:982788 */ /* x207140 stalin.sc:28599:982793 */ /* x207138 stalin.sc:28599:982797 */ /* x207137 stalin.sc:28599:982808 */ t18473 = e18492->a32421; /* x207136 stalin.sc:28599:982798 */ t18471 = f9734(t18473); /* x207139 stalin.sc:28599:982811 */ t18472 = 6; /* x267932 stalin.sc:28599:982794 */ if (!(t18471>=t18472)) goto l3908; /* x207179 */ /* x207145 stalin.sc:28600:982822 */ /* x207144 stalin.sc:28600:982834 */ /* x207143 stalin.sc:28600:982845 */ t18475 = e18492->a32421; /* x207142 stalin.sc:28600:982835 */ t18474 = f9724(t18475); /* x207141 stalin.sc:28600:982823 */ if (f9741(t18474)==FALSE_TYPE) goto l3908; /* x207177 */ /* x207165 stalin.sc:28602:982876 */ /* x207176 stalin.sc:28606:983006 */ /* x207175 stalin.sc:28606:983015 */ /* x207174 stalin.sc:28606:983024 */ /* x207173 stalin.sc:28606:983033 */ /* x207172 stalin.sc:28606:983042 */ /* x207171 stalin.sc:28606:983051 */ t18486 = e18492->a32421; /* x207170 stalin.sc:28606:983043 */ a41320 = t18486; /* x299392 stalin.sc:7008:242336 */ /* x299391 stalin.sc:7008:242344 */ t18487 = a41320; /* x299390 stalin.sc:7008:242337 */ t18484 = f9720(t18487); /* x207169 stalin.sc:28606:983034 */ a41319 = t18484; /* x299388 stalin.sc:7008:242336 */ /* x299387 stalin.sc:7008:242344 */ t18485 = a41319; /* x299386 stalin.sc:7008:242337 */ t18482 = f9720(t18485); /* x207168 stalin.sc:28606:983025 */ a41318 = t18482; /* x299384 stalin.sc:7008:242336 */ /* x299383 stalin.sc:7008:242344 */ t18483 = a41318; /* x299382 stalin.sc:7008:242337 */ t18480 = f9720(t18483); /* x207167 stalin.sc:28606:983016 */ a41317 = t18480; /* x299380 stalin.sc:7008:242336 */ /* x299379 stalin.sc:7008:242344 */ t18481 = a41317; /* x299378 stalin.sc:7008:242337 */ t18478 = f9720(t18481); /* x207166 stalin.sc:28606:983007 */ a41316 = t18478; /* x299376 stalin.sc:7008:242336 */ /* x299375 stalin.sc:7008:242344 */ t18479 = a41316; /* x299374 stalin.sc:7008:242337 */ t18476 = f9720(t18479); /* x207146 stalin.sc:28601:982858 */ t18477 = NATIVE_PROCEDURE_TYPE14676; if (f9758(t18477, t18476)==FALSE_TYPE) goto l3908; /* x207183 */ /* x207182 */ goto l3909; l3908: /* x207189 */ /* x207188 */ t18488 = e18492; p18499 = t18488; /* x207187 stalin.sc:28607:983063 */ /* x207185 stalin.sc:28607:983077 */ t18489 = p18499->a32421; /* x207186 stalin.sc:28607:983079 */ t18490 = "Improper DEFINE-CYCLE-BUTTON"; /* x207184 stalin.sc:28607:983064 */ f9705(t18489, t18490); l3909: /* x207134 */ t18334 = e18492; p18493 = t18334; /* x207133 stalin.sc:28608:983114 */ /* x207132 stalin.sc:28609:983131 */ /* x207120 stalin.sc:28609:983139 */ /* x207131 stalin.sc:28610:983151 */ /* x207130 stalin.sc:28610:983160 */ /* x207129 stalin.sc:28610:983169 */ /* x207128 stalin.sc:28610:983178 */ /* x207127 stalin.sc:28610:983187 */ /* x207126 stalin.sc:28610:983196 */ t18469 = p18493->a32421; /* x207125 stalin.sc:28610:983188 */ a41315 = t18469; /* x299372 stalin.sc:7008:242336 */ /* x299371 stalin.sc:7008:242344 */ t18470 = a41315; /* x299370 stalin.sc:7008:242337 */ t18467 = f9720(t18470); /* x207124 stalin.sc:28610:983179 */ a41314 = t18467; /* x299368 stalin.sc:7008:242336 */ /* x299367 stalin.sc:7008:242344 */ t18468 = a41314; /* x299366 stalin.sc:7008:242337 */ t18465 = f9720(t18468); /* x207123 stalin.sc:28610:983170 */ a41313 = t18465; /* x299364 stalin.sc:7008:242336 */ /* x299363 stalin.sc:7008:242344 */ t18466 = a41313; /* x299362 stalin.sc:7008:242337 */ t18463 = f9720(t18466); /* x207122 stalin.sc:28610:983161 */ a41312 = t18463; /* x299360 stalin.sc:7008:242336 */ /* x299359 stalin.sc:7008:242344 */ t18464 = a41312; /* x299358 stalin.sc:7008:242337 */ t18461 = f9720(t18464); /* x207121 stalin.sc:28610:983152 */ a41311 = t18461; /* x299356 stalin.sc:7008:242336 */ /* x299355 stalin.sc:7008:242344 */ t18462 = a41311; /* x299354 stalin.sc:7008:242337 */ t18459 = f9720(t18462); /* x207119 stalin.sc:28609:983132 */ t18460.tag = NATIVE_PROCEDURE_TYPE7183; t18336 = f9753(t18460, t18459); /* x207118 */ t18335 = p18493; p18494 = t18335; a32423 = t18336; /* x207117 stalin.sc:28611:983209 */ /* x206949 */ t18337 = q519; /* x207116 */ /* x206953 stalin.sc:28611:983226 */ /* x206952 stalin.sc:28611:983237 */ t18344 = p18494->a32421; /* x206951 stalin.sc:28611:983227 */ t18341 = f9722(t18344); /* x207115 */ /* x206957 stalin.sc:28611:983241 */ /* x206956 stalin.sc:28611:983251 */ t18348 = p18494->a32421; /* x206955 stalin.sc:28611:983242 */ t18345 = f9723(t18348); /* x207114 */ /* x207014 */ /* x206960 */ t18353 = q39; /* x207013 */ /* x206962 */ /* x207012 */ /* x207010 */ /* x206965 */ t18363 = q243; /* x207009 */ /* x206969 stalin.sc:28613:983283 */ /* x206968 stalin.sc:28613:983294 */ t18369 = p18494->a32421; /* x206967 stalin.sc:28613:983284 */ t18367 = f9724(t18369); /* x207008 */ /* x207007 */ t18371 = &t18386; /* x206998 stalin.sc:28614:983306 */ /* x206986 stalin.sc:28614:983314 */ /* x206997 stalin.sc:28616:983386 */ /* x206996 stalin.sc:28616:983395 */ /* x206995 stalin.sc:28616:983404 */ /* x206994 stalin.sc:28616:983413 */ /* x206993 stalin.sc:28616:983422 */ /* x206992 stalin.sc:28616:983431 */ t18384 = p18494->a32421; /* x206991 stalin.sc:28616:983423 */ a41310 = t18384; /* x299352 stalin.sc:7008:242336 */ /* x299351 stalin.sc:7008:242344 */ t18385 = a41310; /* x299350 stalin.sc:7008:242337 */ t18382 = f9720(t18385); /* x206990 stalin.sc:28616:983414 */ a41309 = t18382; /* x299348 stalin.sc:7008:242336 */ /* x299347 stalin.sc:7008:242344 */ t18383 = a41309; /* x299346 stalin.sc:7008:242337 */ t18380 = f9720(t18383); /* x206989 stalin.sc:28616:983405 */ a41308 = t18380; /* x299344 stalin.sc:7008:242336 */ /* x299343 stalin.sc:7008:242344 */ t18381 = a41308; /* x299342 stalin.sc:7008:242337 */ t18378 = f9720(t18381); /* x206988 stalin.sc:28616:983396 */ a41307 = t18378; /* x299340 stalin.sc:7008:242336 */ /* x299339 stalin.sc:7008:242344 */ t18379 = a41307; /* x299338 stalin.sc:7008:242337 */ t18376 = f9720(t18379); /* x206987 stalin.sc:28616:983387 */ a41306 = t18376; /* x299336 stalin.sc:7008:242336 */ /* x299335 stalin.sc:7008:242344 */ t18377 = a41306; /* x299334 stalin.sc:7008:242337 */ t18374 = f9720(t18377); /* x206971 stalin.sc:28614:983307 */ t18375.tag = NATIVE_PROCEDURE_TYPE14681; t18370 = f9753(t18375, t18374); /* x206970 */ t18373.tag = STRUCTURE_TYPE24753; t18373.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t18373.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18494]"); out_of_memory_error();} t18373.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t18373.value.structure_type24753->s0.value.structure_type24753 = t18371; t18373.value.structure_type24753->s1.tag = NULL_TYPE; t18372 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t18372==NULL) {backtrace_internal("[inside top level 18494]"); out_of_memory_error();} t18372->s0 = *((struct w49 *)(&t18370)); t18372->s1 = t18373; t18368 = f26254(t18372); /* x206966 */ t18364 = f26175(t18367, t18368); /* x206964 */ t18365.tag = EXTERNAL_SYMBOL_TYPE; t18365.value.external_symbol_type = t18363; t18366.tag = STRUCTURE_TYPE24753; t18366.value.structure_type24753 = t18364; t18360 = f26175(t18365, t18366); /* x207011 */ /* x206963 */ t18361.tag = STRUCTURE_TYPE24753; t18361.value.structure_type24753 = t18360; t18362.tag = NULL_TYPE; t18357 = f26175(t18361, t18362); /* x206961 */ t18358.tag = NULL_TYPE; t18359.tag = STRUCTURE_TYPE24753; t18359.value.structure_type24753 = t18357; t18354 = f26175(t18358, t18359); /* x206959 */ t18355.tag = EXTERNAL_SYMBOL_TYPE; t18355.value.external_symbol_type = t18353; t18356.tag = STRUCTURE_TYPE24753; t18356.value.structure_type24753 = t18354; t18349 = f26175(t18355, t18356); /* x207113 */ /* x207016 */ /* x207112 */ /* x207110 */ /* x207019 */ t18396 = q39; /* x207109 */ /* x207021 */ /* x207108 */ /* x207093 */ /* x207024 */ t18407 = q42; /* x207092 */ /* x207028 stalin.sc:28620:983502 */ /* x207027 stalin.sc:28620:983513 */ t18414 = p18494->a32421; /* x207026 stalin.sc:28620:983503 */ t18411 = f9724(t18414); /* x207091 */ /* x207089 */ /* x207031 */ t18418 = q243; /* x207088 */ /* x207035 stalin.sc:28621:983528 */ /* x207034 stalin.sc:28621:983539 */ t18424 = p18494->a32421; /* x207033 stalin.sc:28621:983529 */ t18422 = f9724(t18424); /* x207087 */ /* x207086 */ t18426 = &t18444; /* x207077 stalin.sc:28622:983550 */ /* x207076 stalin.sc:28624:983628 */ /* x207075 stalin.sc:28624:983651 */ /* x207074 stalin.sc:28624:983657 */ /* x207073 stalin.sc:28624:983664 */ t18442 = a32423; /* x207072 stalin.sc:28624:983658 */ a36197 = t18442; /* x276145 */ /* x276144 */ t18443 = a36197; /* x276143 */ if (!((t18443.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30346]"); structure_ref_error();} t18441 = t18443.value.structure_type24753->s0; /* x207071 stalin.sc:28624:983652 */ a35245 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35245==NULL) {backtrace("stalin.sc", 28624, 983651); out_of_memory_error();} a35245->s0 = t18441; a35245->s1.tag = NULL_TYPE; /* x272497 */ t18436 = a35245; /* x207070 stalin.sc:28624:983636 */ /* x207069 stalin.sc:28624:983642 */ t18439 = a32423; /* x207068 stalin.sc:28624:983637 */ a35609 = t18439; /* x273793 */ /* x273792 */ t18440 = a35609; /* x273791 */ if (!((t18440.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29758]"); structure_ref_error();} t18435 = t18440.value.structure_type24753->s1; /* x207067 stalin.sc:28624:983629 */ t18438.tag = STRUCTURE_TYPE24753; t18438.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t18438.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28624, 983628); out_of_memory_error();} t18438.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t18438.value.structure_type24753->s0.value.structure_type24753 = t18436; t18438.value.structure_type24753->s1.tag = NULL_TYPE; t18437 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t18437==NULL) {backtrace("stalin.sc", 28624, 983628); out_of_memory_error();} t18437->s0 = t18435; t18437->s1 = t18438; t18431 = f26254(t18437); /* x207066 stalin.sc:28623:983614 */ t18430 = a32423; /* x207065 stalin.sc:28622:983555 */ t18429 = p18494; /* x207037 stalin.sc:28622:983551 */ t18432.tag = NATIVE_PROCEDURE_TYPE14680; t18432.value.native_procedure_type14680 = t18429; t18433 = *((struct w49 *)(&t18430)); t18434 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t18434==NULL) {backtrace("stalin.sc", 28622, 983550); out_of_memory_error();} t18434->s0 = t18431; t18434->s1.tag = NULL_TYPE; t18425 = f27731(t18432, t18433, t18434); /* x207036 */ t18428.tag = STRUCTURE_TYPE24753; t18428.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t18428.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18494]"); out_of_memory_error();} t18428.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t18428.value.structure_type24753->s0.value.structure_type24753 = t18426; t18428.value.structure_type24753->s1.tag = NULL_TYPE; t18427 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t18427==NULL) {backtrace_internal("[inside top level 18494]"); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t18425>=((struct structure_type24753 *)VALUE_OFFSET)) {t18427->s0.tag = STRUCTURE_TYPE24753; t18427->s0.value.structure_type24753 = t18425;} else t18427->s0.tag = (unsigned)t18425; t18427->s1 = t18428; t18423 = f26254(t18427); /* x207032 */ t18419 = f26175(t18422, t18423); /* x207030 */ t18420.tag = EXTERNAL_SYMBOL_TYPE; t18420.value.external_symbol_type = t18418; t18421.tag = STRUCTURE_TYPE24753; t18421.value.structure_type24753 = t18419; t18415 = f26175(t18420, t18421); /* x207090 */ /* x207029 */ t18416.tag = STRUCTURE_TYPE24753; t18416.value.structure_type24753 = t18415; t18417.tag = NULL_TYPE; t18412 = f26175(t18416, t18417); /* x207025 */ t18413.tag = STRUCTURE_TYPE24753; t18413.value.structure_type24753 = t18412; t18408 = f26175(t18411, t18413); /* x207023 */ t18409.tag = EXTERNAL_SYMBOL_TYPE; t18409.value.external_symbol_type = t18407; t18410.tag = STRUCTURE_TYPE24753; t18410.value.structure_type24753 = t18408; t18403 = f26175(t18409, t18410); /* x207107 */ /* x207097 */ t18448 = &t18452; /* x207106 */ /* x207104 */ /* x207102 stalin.sc:28627:983732 */ /* x207101 stalin.sc:28627:983742 */ t18458 = p18494->a32421; /* x207100 stalin.sc:28627:983733 */ t18456 = f9725(t18458); /* x207103 */ /* x207099 */ t18457.tag = NULL_TYPE; t18453 = f26175(t18456, t18457); /* x207105 */ /* x207098 */ t18454.tag = STRUCTURE_TYPE24753; t18454.value.structure_type24753 = t18453; t18455.tag = NULL_TYPE; t18449 = f26175(t18454, t18455); /* x207094 */ t18450.tag = STRUCTURE_TYPE24753; t18450.value.structure_type24753 = t18448; t18451.tag = STRUCTURE_TYPE24753; t18451.value.structure_type24753 = t18449; t18404 = f26175(t18450, t18451); /* x207022 */ t18405.tag = STRUCTURE_TYPE24753; t18405.value.structure_type24753 = t18403; t18406.tag = STRUCTURE_TYPE24753; t18406.value.structure_type24753 = t18404; t18400 = f26175(t18405, t18406); /* x207020 */ t18401.tag = NULL_TYPE; t18402.tag = STRUCTURE_TYPE24753; t18402.value.structure_type24753 = t18400; t18397 = f26175(t18401, t18402); /* x207018 */ t18398.tag = EXTERNAL_SYMBOL_TYPE; t18398.value.external_symbol_type = t18396; t18399.tag = STRUCTURE_TYPE24753; t18399.value.structure_type24753 = t18397; t18393 = f26175(t18398, t18399); /* x207111 */ /* x207017 */ t18394.tag = STRUCTURE_TYPE24753; t18394.value.structure_type24753 = t18393; t18395.tag = NULL_TYPE; t18390 = f26175(t18394, t18395); /* x207015 */ t18391.tag = FALSE_TYPE; t18392.tag = STRUCTURE_TYPE24753; t18392.value.structure_type24753 = t18390; t18350 = f26175(t18391, t18392); /* x206958 */ t18351.tag = STRUCTURE_TYPE24753; t18351.value.structure_type24753 = t18349; t18352.tag = STRUCTURE_TYPE24753; t18352.value.structure_type24753 = t18350; t18346 = f26175(t18351, t18352); /* x206954 */ t18347.tag = STRUCTURE_TYPE24753; t18347.value.structure_type24753 = t18346; t18342 = f26175(t18345, t18347); /* x206950 */ t18343.tag = STRUCTURE_TYPE24753; t18343.value.structure_type24753 = t18342; t18338 = f26175(t18341, t18343); /* x206948 */ t18339.tag = EXTERNAL_SYMBOL_TYPE; t18339.value.external_symbol_type = t18337; t18340.tag = STRUCTURE_TYPE24753; t18340.value.structure_type24753 = t18338; return f26175(t18339, t18340);} /* [inside top level 18486] */ struct structure_type24753 *f18486(struct w49 a32417) {struct w49 a41401; /* S */ struct w49 a41402; /* S */ struct w49 a41403; /* S */ struct w49 a41404; /* S */ struct w49 a41405; /* S */ struct w49 a41406; /* S */ struct p18486 *t18491; char *t18492; struct w49 t18493; struct w49 t18494; struct w12224 t18495; struct structure_type24753 *t18496; struct w49 t18497; struct p18486 *t18498; struct w49 t18499; struct w198746 t18500; struct w49 t18501; struct w49 t18502; struct w49 t18503; struct w49 t18504; struct w49 t18505; struct w49 t18506; int t18507; int t18508; struct w49 t18509; struct w49 t18510; struct w49 t18511; struct w49 t18512; unsigned t18513; struct w49 t18514; struct w49 t18515; struct w49 t18516; struct w49 t18517; struct w49 t18518; struct w49 t18519; struct p18486 *t18520; struct w49 t18521; char *t18522; struct p18486 *e18486; struct p18486 *p18487; struct p18486 *p18491; e18486 = (struct p18486 *)alloca(sizeof(struct p18486)); if (e18486==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e18486->a32417 = a32417; /* x206943 */ /* x206942 stalin.sc:28579:982095 */ /* x206933 stalin.sc:28579:982103 */ /* x206896 stalin.sc:28579:982108 */ /* x206894 stalin.sc:28579:982112 */ /* x206893 stalin.sc:28579:982123 */ t18509 = e18486->a32417; /* x206892 stalin.sc:28579:982113 */ t18507 = f9734(t18509); /* x206895 stalin.sc:28579:982126 */ t18508 = 3; /* x267934 stalin.sc:28579:982109 */ if (!(t18507>=t18508)) goto l3913; /* x206931 */ /* x206901 stalin.sc:28580:982137 */ /* x206900 stalin.sc:28580:982149 */ /* x206899 stalin.sc:28580:982160 */ t18511 = e18486->a32417; /* x206898 stalin.sc:28580:982150 */ t18510 = f9722(t18511); /* x206897 stalin.sc:28580:982138 */ if (f9741(t18510)==FALSE_TYPE) goto l3913; /* x206929 */ /* x206921 stalin.sc:28581:982182 */ /* x206928 stalin.sc:28585:982313 */ /* x206927 stalin.sc:28585:982322 */ /* x206926 stalin.sc:28585:982331 */ /* x206925 stalin.sc:28585:982340 */ t18518 = e18486->a32417; /* x206924 stalin.sc:28585:982332 */ a41406 = t18518; /* x299736 stalin.sc:7008:242336 */ /* x299735 stalin.sc:7008:242344 */ t18519 = a41406; /* x299734 stalin.sc:7008:242337 */ t18516 = f9720(t18519); /* x206923 stalin.sc:28585:982323 */ a41405 = t18516; /* x299732 stalin.sc:7008:242336 */ /* x299731 stalin.sc:7008:242344 */ t18517 = a41405; /* x299730 stalin.sc:7008:242337 */ t18514 = f9720(t18517); /* x206922 stalin.sc:28585:982314 */ a41404 = t18514; /* x299728 stalin.sc:7008:242336 */ /* x299727 stalin.sc:7008:242344 */ t18515 = a41404; /* x299726 stalin.sc:7008:242337 */ t18512 = f9720(t18515); /* x206902 stalin.sc:28581:982173 */ t18513 = NATIVE_PROCEDURE_TYPE14480; if (f9758(t18513, t18512)==FALSE_TYPE) goto l3913; /* x206935 */ /* x206934 */ goto l3914; l3913: /* x206941 */ /* x206940 */ t18520 = e18486; p18491 = t18520; /* x206939 stalin.sc:28586:982350 */ /* x206937 stalin.sc:28586:982364 */ t18521 = p18491->a32417; /* x206938 stalin.sc:28586:982366 */ t18522 = "Improper DEFINE-RADIO-BUTTONS"; /* x206936 stalin.sc:28586:982351 */ f9705(t18521, t18522); l3914: /* x206890 */ t18491 = e18486; p18487 = t18491; /* x206889 stalin.sc:28587:982402 */ /* x206781 */ t18492 = q239; /* x206888 */ /* x206887 */ /* x206886 stalin.sc:28588:982416 */ /* x206878 stalin.sc:28588:982424 */ t18498 = p18487; /* x206885 stalin.sc:28596:982700 */ /* x206884 stalin.sc:28596:982709 */ /* x206883 stalin.sc:28596:982718 */ /* x206882 stalin.sc:28596:982727 */ t18505 = p18487->a32417; /* x206881 stalin.sc:28596:982719 */ a41403 = t18505; /* x299724 stalin.sc:7008:242336 */ /* x299723 stalin.sc:7008:242344 */ t18506 = a41403; /* x299722 stalin.sc:7008:242337 */ t18503 = f9720(t18506); /* x206880 stalin.sc:28596:982710 */ a41402 = t18503; /* x299720 stalin.sc:7008:242336 */ /* x299719 stalin.sc:7008:242344 */ t18504 = a41402; /* x299718 stalin.sc:7008:242337 */ t18501 = f9720(t18504); /* x206879 stalin.sc:28596:982701 */ a41401 = t18501; /* x299716 stalin.sc:7008:242336 */ /* x299715 stalin.sc:7008:242344 */ t18502 = a41401; /* x299714 stalin.sc:7008:242337 */ t18499 = f9720(t18502); /* x206783 stalin.sc:28588:982417 */ t18500.tag = NATIVE_PROCEDURE_TYPE14483; t18500.value.native_procedure_type14483 = t18498; t18495 = f9753(t18500, t18499); /* x206782 */ t18497.tag = STRUCTURE_TYPE24753; t18497.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t18497.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18487]"); out_of_memory_error();} t18497.value.structure_type24753->s0.tag = NULL_TYPE; t18497.value.structure_type24753->s1.tag = NULL_TYPE; t18496 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t18496==NULL) {backtrace_internal("[inside top level 18487]"); out_of_memory_error();} t18496->s0 = *((struct w49 *)(&t18495)); t18496->s1 = t18497; t18493 = f26254(t18496); /* x206780 */ t18494.tag = EXTERNAL_SYMBOL_TYPE; t18494.value.external_symbol_type = t18492; return f26175(t18494, t18493);} /* [inside top level 18482] */ struct structure_type24753 *f18482(struct w49 a32415) {char *t18523; struct structure_type24753 *t18524; struct w49 t18525; struct w49 t18526; struct w49 t18527; struct structure_type24753 *t18528; struct w49 t18529; struct w49 t18530; struct w49 t18531; struct structure_type24753 *t18532; struct w49 t18533; struct w49 t18534; struct w49 t18535; struct structure_type24753 *t18536; struct w49 t18537; struct w49 t18538; struct structure_type24753 *t18539; struct structure_type24753 *t18540; struct w49 t18541; struct w49 t18542; char *t18543; struct structure_type24753 *t18544; struct w49 t18545; struct w49 t18546; struct structure_type24753 *t18547; struct w49 t18548; struct w49 t18549; struct w49 t18550; struct w49 t18551; struct w49 t18552; struct structure_type24753 *t18553; struct w49 t18554; struct w49 t18555; char *t18556; struct structure_type24753 *t18557; struct w49 t18558; struct w49 t18559; struct structure_type24753 *t18560; struct w49 t18561; struct w49 t18562; struct structure_type24753 *t18563; struct structure_type24753 *t18564; struct w49 t18565; struct w49 t18566; char *t18567; struct structure_type24753 *t18568; struct w49 t18569; struct w49 t18570; struct w49 t18571; struct structure_type24753 *t18572; struct w49 t18573; struct w49 t18574; struct structure_type24753 *t18575; struct w49 t18576; struct w49 t18577; char *t18578; struct structure_type24753 *t18579; struct w49 t18580; struct w49 t18581; struct w49 t18582; struct w49 t18583; struct w49 t18584; struct structure_type24753 *t18585; struct structure_type24753 *t18586; struct w49 t18587; struct w49 t18588; struct structure_type24753 *t18590; struct w49 t18591; struct w49 t18592; struct w49 t18593; struct w49 t18594; struct w49 t18595; int t18596; int t18597; struct w49 t18598; struct w49 t18599; struct w49 t18600; struct w49 t18601; char *t18602; /* x206775 */ /* x206774 stalin.sc:28569:981737 */ /* x206765 stalin.sc:28569:981745 */ /* x206758 stalin.sc:28569:981750 */ /* x206756 stalin.sc:28569:981753 */ /* x206755 stalin.sc:28569:981764 */ t18598 = a32415; /* x206754 stalin.sc:28569:981754 */ t18596 = f9734(t18598); /* x206757 stalin.sc:28569:981767 */ t18597 = 6; /* x267935 stalin.sc:28569:981751 */ if (!(t18596==t18597)) goto l3918; /* x206763 */ /* x206762 stalin.sc:28569:981782 */ /* x206761 stalin.sc:28569:981792 */ t18600 = a32415; /* x206760 stalin.sc:28569:981783 */ t18599 = f9725(t18600); /* x206759 stalin.sc:28569:981771 */ if (f9741(t18599)==FALSE_TYPE) goto l3918; /* x206767 */ /* x206766 */ goto l3919; l3918: /* x206773 */ /* x206772 */ /* x206771 stalin.sc:28570:981800 */ /* x206769 stalin.sc:28570:981814 */ t18601 = a32415; /* x206770 stalin.sc:28570:981816 */ t18602 = "Improper DEFINE-TOGGLE-BUTTON"; /* x206768 stalin.sc:28570:981801 */ f9705(t18601, t18602); l3919: /* x206752 */ /* x206751 stalin.sc:28571:981852 */ /* x206676 */ t18523 = q519; /* x206750 */ /* x206680 stalin.sc:28571:981869 */ /* x206679 stalin.sc:28571:981880 */ t18530 = a32415; /* x206678 stalin.sc:28571:981870 */ t18527 = f9722(t18530); /* x206749 */ /* x206684 stalin.sc:28571:981884 */ /* x206683 stalin.sc:28571:981894 */ t18534 = a32415; /* x206682 stalin.sc:28571:981885 */ t18531 = f9723(t18534); /* x206748 */ /* x206688 stalin.sc:28571:981898 */ /* x206687 stalin.sc:28571:981909 */ t18538 = a32415; /* x206686 stalin.sc:28571:981899 */ t18535 = f9724(t18538); /* x206747 */ /* x206701 */ /* x206691 */ t18543 = q39; /* x206700 */ /* x206693 */ /* x206699 */ /* x206697 stalin.sc:28572:981928 */ /* x206696 stalin.sc:28572:981938 */ t18552 = a32415; /* x206695 stalin.sc:28572:981929 */ t18550 = f9725(t18552); /* x206698 */ /* x206694 */ t18551.tag = NULL_TYPE; t18547 = f26175(t18550, t18551); /* x206692 */ t18548.tag = NULL_TYPE; t18549.tag = STRUCTURE_TYPE24753; t18549.value.structure_type24753 = t18547; t18544 = f26175(t18548, t18549); /* x206690 */ t18545.tag = EXTERNAL_SYMBOL_TYPE; t18545.value.external_symbol_type = t18543; t18546.tag = STRUCTURE_TYPE24753; t18546.value.structure_type24753 = t18544; t18539 = f26175(t18545, t18546); /* x206746 */ /* x206744 */ /* x206704 */ t18556 = q39; /* x206743 */ /* x206706 */ /* x206742 */ /* x206727 */ /* x206709 */ t18567 = q42; /* x206726 */ /* x206713 stalin.sc:28574:981969 */ /* x206712 stalin.sc:28574:981979 */ t18574 = a32415; /* x206711 stalin.sc:28574:981970 */ t18571 = f9725(t18574); /* x206725 */ /* x206723 */ /* x206716 */ t18578 = q102; /* x206722 */ /* x206720 stalin.sc:28574:981988 */ /* x206719 stalin.sc:28574:981998 */ t18584 = a32415; /* x206718 stalin.sc:28574:981989 */ t18582 = f9725(t18584); /* x206721 */ /* x206717 */ t18583.tag = NULL_TYPE; t18579 = f26175(t18582, t18583); /* x206715 */ t18580.tag = EXTERNAL_SYMBOL_TYPE; t18580.value.external_symbol_type = t18578; t18581.tag = STRUCTURE_TYPE24753; t18581.value.structure_type24753 = t18579; t18575 = f26175(t18580, t18581); /* x206724 */ /* x206714 */ t18576.tag = STRUCTURE_TYPE24753; t18576.value.structure_type24753 = t18575; t18577.tag = NULL_TYPE; t18572 = f26175(t18576, t18577); /* x206710 */ t18573.tag = STRUCTURE_TYPE24753; t18573.value.structure_type24753 = t18572; t18568 = f26175(t18571, t18573); /* x206708 */ t18569.tag = EXTERNAL_SYMBOL_TYPE; t18569.value.external_symbol_type = t18567; t18570.tag = STRUCTURE_TYPE24753; t18570.value.structure_type24753 = t18568; t18563 = f26175(t18569, t18570); /* x206741 */ /* x206731 */ t18585 = &t18589; /* x206740 */ /* x206738 */ /* x206736 stalin.sc:28576:982032 */ /* x206735 stalin.sc:28576:982042 */ t18595 = a32415; /* x206734 stalin.sc:28576:982033 */ t18593 = f9726(t18595); /* x206737 */ /* x206733 */ t18594.tag = NULL_TYPE; t18590 = f26175(t18593, t18594); /* x206739 */ /* x206732 */ t18591.tag = STRUCTURE_TYPE24753; t18591.value.structure_type24753 = t18590; t18592.tag = NULL_TYPE; t18586 = f26175(t18591, t18592); /* x206728 */ t18587.tag = STRUCTURE_TYPE24753; t18587.value.structure_type24753 = t18585; t18588.tag = STRUCTURE_TYPE24753; t18588.value.structure_type24753 = t18586; t18564 = f26175(t18587, t18588); /* x206707 */ t18565.tag = STRUCTURE_TYPE24753; t18565.value.structure_type24753 = t18563; t18566.tag = STRUCTURE_TYPE24753; t18566.value.structure_type24753 = t18564; t18560 = f26175(t18565, t18566); /* x206705 */ t18561.tag = NULL_TYPE; t18562.tag = STRUCTURE_TYPE24753; t18562.value.structure_type24753 = t18560; t18557 = f26175(t18561, t18562); /* x206703 */ t18558.tag = EXTERNAL_SYMBOL_TYPE; t18558.value.external_symbol_type = t18556; t18559.tag = STRUCTURE_TYPE24753; t18559.value.structure_type24753 = t18557; t18553 = f26175(t18558, t18559); /* x206745 */ /* x206702 */ t18554.tag = STRUCTURE_TYPE24753; t18554.value.structure_type24753 = t18553; t18555.tag = NULL_TYPE; t18540 = f26175(t18554, t18555); /* x206689 */ t18541.tag = STRUCTURE_TYPE24753; t18541.value.structure_type24753 = t18539; t18542.tag = STRUCTURE_TYPE24753; t18542.value.structure_type24753 = t18540; t18536 = f26175(t18541, t18542); /* x206685 */ t18537.tag = STRUCTURE_TYPE24753; t18537.value.structure_type24753 = t18536; t18532 = f26175(t18535, t18537); /* x206681 */ t18533.tag = STRUCTURE_TYPE24753; t18533.value.structure_type24753 = t18532; t18528 = f26175(t18531, t18533); /* x206677 */ t18529.tag = STRUCTURE_TYPE24753; t18529.value.structure_type24753 = t18528; t18524 = f26175(t18527, t18529); /* x206675 */ t18525.tag = EXTERNAL_SYMBOL_TYPE; t18525.value.external_symbol_type = t18523; t18526.tag = STRUCTURE_TYPE24753; t18526.value.structure_type24753 = t18524; return f26175(t18525, t18526);} /* [inside top level 18480] */ struct structure_type24753 *f18480(struct w49 a32413) {char *a32414; /* ARGS */ char *t18603; char *t18604; struct structure_type24753 *t18605; struct w49 t18606; struct w49 t18607; char *t18608; struct structure_type24753 *t18609; struct w49 t18610; struct w49 t18611; struct structure_type24753 *t18612; struct w49 t18613; struct w49 t18614; char *t18615; struct structure_type24753 *t18616; struct w49 t18617; struct w49 t18618; struct w49 t18619; struct structure_type24753 *t18620; struct w49 t18621; struct w49 t18622; char *t18623; struct w49 t18624; struct w49 t18625; char *t18626; /* x206670 stalin.sc:28564:981578 */ /* x206669 stalin.sc:28564:981590 */ /* x206668 stalin.sc:28564:981598 */ t18626 = "args"; /* x206667 stalin.sc:28564:981591 */ t18603 = f5362(t18626); /* x206666 */ a32414 = t18603; /* x206665 stalin.sc:28566:981644 */ /* x206646 */ t18604 = q39; /* x206664 */ /* x206648 stalin.sc:28566:981654 */ t18608 = a32414; /* x206663 */ /* x206661 */ /* x206651 */ t18615 = q79; /* x206660 */ /* x206655 stalin.sc:28566:981667 */ /* x206654 stalin.sc:28566:981678 */ t18622 = a32413; /* x206653 stalin.sc:28566:981668 */ t18619 = f9722(t18622); /* x206659 */ /* x206657 stalin.sc:28566:981682 */ t18623 = a32414; /* x206658 */ /* x206656 */ t18624.tag = EXTERNAL_SYMBOL_TYPE; t18624.value.external_symbol_type = t18623; t18625.tag = NULL_TYPE; t18620 = f26175(t18624, t18625); /* x206652 */ t18621.tag = STRUCTURE_TYPE24753; t18621.value.structure_type24753 = t18620; t18616 = f26175(t18619, t18621); /* x206650 */ t18617.tag = EXTERNAL_SYMBOL_TYPE; t18617.value.external_symbol_type = t18615; t18618.tag = STRUCTURE_TYPE24753; t18618.value.structure_type24753 = t18616; t18612 = f26175(t18617, t18618); /* x206662 */ /* x206649 */ t18613.tag = STRUCTURE_TYPE24753; t18613.value.structure_type24753 = t18612; t18614.tag = NULL_TYPE; t18609 = f26175(t18613, t18614); /* x206647 */ t18610.tag = EXTERNAL_SYMBOL_TYPE; t18610.value.external_symbol_type = t18608; t18611.tag = STRUCTURE_TYPE24753; t18611.value.structure_type24753 = t18609; t18605 = f26175(t18610, t18611); /* x206645 */ t18606.tag = EXTERNAL_SYMBOL_TYPE; t18606.value.external_symbol_type = t18604; t18607.tag = STRUCTURE_TYPE24753; t18607.value.structure_type24753 = t18605; return f26175(t18606, t18607);} /* [inside top level 18475] */ struct structure_type24753 *f18475(struct w49 a32410) {char *a32412; /* P */ char *t18627; char *t18628; struct structure_type24753 *t18629; struct w49 t18630; struct w49 t18631; struct structure_type24753 *t18632; struct structure_type24753 *t18633; struct w49 t18634; struct w49 t18635; char *t18636; struct structure_type24753 *t18637; struct w49 t18638; struct w49 t18639; struct structure_type24753 *t18640; struct structure_type24753 *t18641; struct w49 t18642; struct w49 t18643; struct structure_type24753 *t18644; struct w49 t18645; struct w49 t18646; char *t18647; struct structure_type24753 *t18648; struct w49 t18649; struct w49 t18650; struct w49 t18651; struct w49 t18652; struct w49 t18653; struct structure_type24753 *t18654; struct w49 t18655; struct w49 t18656; char *t18657; struct structure_type24753 *t18658; struct w49 t18659; struct w49 t18660; struct structure_type24753 *t18661; struct w49 t18662; struct w49 t18663; char *t18664; struct structure_type24753 *t18665; struct w49 t18666; struct w49 t18667; struct w49 t18668; struct structure_type24753 *t18669; struct w49 t18670; struct w49 t18671; char *t18672; struct w49 t18673; struct w49 t18674; struct structure_type24753 *t18675; struct w49 t18676; struct w49 t18677; char *t18678; struct structure_type24753 *t18679; struct w49 t18680; struct w49 t18681; struct w49 t18682; struct structure_type24753 *t18683; struct w49 t18684; struct w49 t18685; struct w49 t18686; struct w49 t18687; struct w49 t18688; char *t18689; int t18690; int t18691; struct w49 t18692; struct w49 t18693; char *t18694; /* x206640 */ /* x206639 stalin.sc:28556:981296 */ /* x206630 stalin.sc:28556:981304 */ /* x206628 stalin.sc:28556:981307 */ /* x206627 stalin.sc:28556:981318 */ t18692 = a32410; /* x206626 stalin.sc:28556:981308 */ t18690 = f9734(t18692); /* x206629 stalin.sc:28556:981321 */ t18691 = 3; /* x267936 stalin.sc:28556:981305 */ if (!(t18690==t18691)) goto l3922; /* x206632 */ /* x206631 */ goto l3923; l3922: /* x206638 */ /* x206637 */ /* x206636 stalin.sc:28556:981324 */ /* x206634 stalin.sc:28556:981338 */ t18693 = a32410; /* x206635 stalin.sc:28556:981340 */ t18694 = "Improper LOCAL-SET!"; /* x206633 stalin.sc:28556:981325 */ f9705(t18693, t18694); l3923: /* x206624 */ /* x206623 stalin.sc:28557:981366 */ /* x206622 stalin.sc:28557:981375 */ /* x206621 stalin.sc:28557:981383 */ t18689 = "p"; /* x206620 stalin.sc:28557:981376 */ t18627 = f5362(t18689); /* x206619 */ a32412 = t18627; /* x206618 stalin.sc:28559:981423 */ /* x206560 */ t18628 = q239; /* x206617 */ /* x206599 */ /* x206563 */ t18636 = q242; /* x206598 */ /* x206576 */ /* x206574 */ /* x206567 stalin.sc:28560:981444 */ t18647 = a32412; /* x206573 */ /* x206571 stalin.sc:28560:981447 */ /* x206570 stalin.sc:28560:981458 */ t18653 = a32410; /* x206569 stalin.sc:28560:981448 */ t18651 = f9722(t18653); /* x206572 */ /* x206568 */ t18652.tag = NULL_TYPE; t18648 = f26175(t18651, t18652); /* x206566 */ t18649.tag = EXTERNAL_SYMBOL_TYPE; t18649.value.external_symbol_type = t18647; t18650.tag = STRUCTURE_TYPE24753; t18650.value.structure_type24753 = t18648; t18644 = f26175(t18649, t18650); /* x206575 */ /* x206565 */ t18645.tag = STRUCTURE_TYPE24753; t18645.value.structure_type24753 = t18644; t18646.tag = NULL_TYPE; t18640 = f26175(t18645, t18646); /* x206597 */ /* x206595 */ /* x206579 */ t18657 = q503; /* x206594 */ /* x206592 */ /* x206582 */ t18664 = q42; /* x206591 */ /* x206586 stalin.sc:28560:981484 */ /* x206585 stalin.sc:28560:981495 */ t18671 = a32410; /* x206584 stalin.sc:28560:981485 */ t18668 = f9722(t18671); /* x206590 */ /* x206588 stalin.sc:28560:981499 */ t18672 = a32412; /* x206589 */ /* x206587 */ t18673.tag = EXTERNAL_SYMBOL_TYPE; t18673.value.external_symbol_type = t18672; t18674.tag = NULL_TYPE; t18669 = f26175(t18673, t18674); /* x206583 */ t18670.tag = STRUCTURE_TYPE24753; t18670.value.structure_type24753 = t18669; t18665 = f26175(t18668, t18670); /* x206581 */ t18666.tag = EXTERNAL_SYMBOL_TYPE; t18666.value.external_symbol_type = t18664; t18667.tag = STRUCTURE_TYPE24753; t18667.value.structure_type24753 = t18665; t18661 = f26175(t18666, t18667); /* x206593 */ /* x206580 */ t18662.tag = STRUCTURE_TYPE24753; t18662.value.structure_type24753 = t18661; t18663.tag = NULL_TYPE; t18658 = f26175(t18662, t18663); /* x206578 */ t18659.tag = EXTERNAL_SYMBOL_TYPE; t18659.value.external_symbol_type = t18657; t18660.tag = STRUCTURE_TYPE24753; t18660.value.structure_type24753 = t18658; t18654 = f26175(t18659, t18660); /* x206596 */ /* x206577 */ t18655.tag = STRUCTURE_TYPE24753; t18655.value.structure_type24753 = t18654; t18656.tag = NULL_TYPE; t18641 = f26175(t18655, t18656); /* x206564 */ t18642.tag = STRUCTURE_TYPE24753; t18642.value.structure_type24753 = t18640; t18643.tag = STRUCTURE_TYPE24753; t18643.value.structure_type24753 = t18641; t18637 = f26175(t18642, t18643); /* x206562 */ t18638.tag = EXTERNAL_SYMBOL_TYPE; t18638.value.external_symbol_type = t18636; t18639.tag = STRUCTURE_TYPE24753; t18639.value.structure_type24753 = t18637; t18632 = f26175(t18638, t18639); /* x206616 */ /* x206614 */ /* x206602 */ t18678 = q42; /* x206613 */ /* x206606 stalin.sc:28561:981516 */ /* x206605 stalin.sc:28561:981527 */ t18685 = a32410; /* x206604 stalin.sc:28561:981517 */ t18682 = f9722(t18685); /* x206612 */ /* x206610 stalin.sc:28561:981531 */ /* x206609 stalin.sc:28561:981541 */ t18688 = a32410; /* x206608 stalin.sc:28561:981532 */ t18686 = f9723(t18688); /* x206611 */ /* x206607 */ t18687.tag = NULL_TYPE; t18683 = f26175(t18686, t18687); /* x206603 */ t18684.tag = STRUCTURE_TYPE24753; t18684.value.structure_type24753 = t18683; t18679 = f26175(t18682, t18684); /* x206601 */ t18680.tag = EXTERNAL_SYMBOL_TYPE; t18680.value.external_symbol_type = t18678; t18681.tag = STRUCTURE_TYPE24753; t18681.value.structure_type24753 = t18679; t18675 = f26175(t18680, t18681); /* x206615 */ /* x206600 */ t18676.tag = STRUCTURE_TYPE24753; t18676.value.structure_type24753 = t18675; t18677.tag = NULL_TYPE; t18633 = f26175(t18676, t18677); /* x206561 */ t18634.tag = STRUCTURE_TYPE24753; t18634.value.structure_type24753 = t18632; t18635.tag = STRUCTURE_TYPE24753; t18635.value.structure_type24753 = t18633; t18629 = f26175(t18634, t18635); /* x206559 */ t18630.tag = EXTERNAL_SYMBOL_TYPE; t18630.value.external_symbol_type = t18628; t18631.tag = STRUCTURE_TYPE24753; t18631.value.structure_type24753 = t18629; return f26175(t18630, t18631);} /* [inside top level 18473] */ struct structure_type24753 *f18473(struct w49 a32408) {char *a32409; /* OLD-FAIL */ struct w49 a41408; /* S */ char *t18695; char *t18696; struct structure_type24753 *t18697; struct w49 t18698; struct w49 t18699; struct structure_type24753 *t18700; struct structure_type24753 *t18701; struct w49 t18702; struct w49 t18703; struct structure_type24753 *t18704; struct w49 t18705; struct w49 t18706; char *t18707; struct structure_type24753 *t18708; struct w49 t18709; struct w49 t18710; struct structure_type24753 *t18712; struct w49 t18713; struct w49 t18714; char *t18715; struct structure_type24753 *t18716; struct w49 t18717; struct w49 t18718; char *t18719; struct structure_type24753 *t18720; struct w49 t18721; struct w49 t18722; struct structure_type24753 *t18723; struct w49 t18724; struct w49 t18725; char *t18726; struct structure_type24753 *t18727; struct w49 t18728; struct w49 t18729; struct structure_type24753 *t18730; struct w49 t18731; struct w49 t18732; struct structure_type24753 *t18733; struct w49 t18734; struct w49 t18735; char *t18736; struct structure_type24753 *t18737; struct w49 t18738; struct w49 t18739; char *t18740; struct structure_type24753 *t18741; struct w49 t18742; struct w49 t18743; char *t18744; struct w49 t18745; struct w49 t18746; struct w12224 t18747; struct structure_type24753 *t18748; struct structure_type24753 *t18749; struct w49 t18750; struct w49 t18751; struct w49 t18752; struct w49 t18753; char *t18756; /* x206554 stalin.sc:28547:981061 */ /* x206553 stalin.sc:28547:981077 */ /* x206552 stalin.sc:28547:981085 */ t18756 = "old-fail"; /* x206551 stalin.sc:28547:981078 */ t18695 = f5362(t18756); /* x206550 */ a32409 = t18695; /* x206549 stalin.sc:28549:981139 */ /* x206495 */ t18696 = q242; /* x206548 */ /* x206505 */ /* x206503 */ /* x206499 stalin.sc:28549:981148 */ t18707 = a32409; /* x206502 */ t18708 = &t18711; /* x206498 */ t18709.tag = EXTERNAL_SYMBOL_TYPE; t18709.value.external_symbol_type = t18707; t18710.tag = STRUCTURE_TYPE24753; t18710.value.structure_type24753 = t18708; t18704 = f26175(t18709, t18710); /* x206504 */ /* x206497 */ t18705.tag = STRUCTURE_TYPE24753; t18705.value.structure_type24753 = t18704; t18706.tag = NULL_TYPE; t18700 = f26175(t18705, t18706); /* x206547 */ /* x206545 */ /* x206508 */ t18715 = q42; /* x206544 */ /* x206510 */ t18719 = q506; /* x206543 */ /* x206541 */ /* x206513 */ t18726 = q39; /* x206540 */ /* x206515 */ /* x206539 */ /* x206526 */ /* x206518 */ t18736 = q42; /* x206525 */ /* x206520 */ t18740 = q506; /* x206524 */ /* x206522 stalin.sc:28551:981206 */ t18744 = a32409; /* x206523 */ /* x206521 */ t18745.tag = EXTERNAL_SYMBOL_TYPE; t18745.value.external_symbol_type = t18744; t18746.tag = NULL_TYPE; t18741 = f26175(t18745, t18746); /* x206519 */ t18742.tag = EXTERNAL_SYMBOL_TYPE; t18742.value.external_symbol_type = t18740; t18743.tag = STRUCTURE_TYPE24753; t18743.value.structure_type24753 = t18741; t18737 = f26175(t18742, t18743); /* x206517 */ t18738.tag = EXTERNAL_SYMBOL_TYPE; t18738.value.external_symbol_type = t18736; t18739.tag = STRUCTURE_TYPE24753; t18739.value.structure_type24753 = t18737; t18733 = f26175(t18738, t18739); /* x206538 */ /* x206537 */ t18748 = &t18754; /* x206532 stalin.sc:28552:981221 */ /* x206531 stalin.sc:28552:981232 */ /* x206530 stalin.sc:28552:981241 */ t18752 = a32408; /* x206529 stalin.sc:28552:981233 */ a41408 = t18752; /* x299744 stalin.sc:7008:242336 */ /* x299743 stalin.sc:7008:242344 */ t18753 = a41408; /* x299742 stalin.sc:7008:242337 */ t18751 = f9720(t18753); /* x206528 stalin.sc:28552:981222 */ t18747 = f9772(t18751); /* x206527 */ t18750.tag = STRUCTURE_TYPE24753; t18750.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t18750.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18474]"); out_of_memory_error();} t18750.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t18750.value.structure_type24753->s0.value.structure_type24753 = t18748; t18750.value.structure_type24753->s1.tag = NULL_TYPE; t18749 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t18749==NULL) {backtrace_internal("[inside top level 18474]"); out_of_memory_error();} t18749->s0 = *((struct w49 *)(&t18747)); t18749->s1 = t18750; t18734 = f26254(t18749); /* x206516 */ t18735.tag = STRUCTURE_TYPE24753; t18735.value.structure_type24753 = t18733; t18730 = f26175(t18735, t18734); /* x206514 */ t18731.tag = NULL_TYPE; t18732.tag = STRUCTURE_TYPE24753; t18732.value.structure_type24753 = t18730; t18727 = f26175(t18731, t18732); /* x206512 */ t18728.tag = EXTERNAL_SYMBOL_TYPE; t18728.value.external_symbol_type = t18726; t18729.tag = STRUCTURE_TYPE24753; t18729.value.structure_type24753 = t18727; t18723 = f26175(t18728, t18729); /* x206542 */ /* x206511 */ t18724.tag = STRUCTURE_TYPE24753; t18724.value.structure_type24753 = t18723; t18725.tag = NULL_TYPE; t18720 = f26175(t18724, t18725); /* x206509 */ t18721.tag = EXTERNAL_SYMBOL_TYPE; t18721.value.external_symbol_type = t18719; t18722.tag = STRUCTURE_TYPE24753; t18722.value.structure_type24753 = t18720; t18716 = f26175(t18721, t18722); /* x206507 */ t18717.tag = EXTERNAL_SYMBOL_TYPE; t18717.value.external_symbol_type = t18715; t18718.tag = STRUCTURE_TYPE24753; t18718.value.structure_type24753 = t18716; t18712 = f26175(t18717, t18718); /* x206546 */ /* x206506 */ t18713.tag = STRUCTURE_TYPE24753; t18713.value.structure_type24753 = t18712; t18714.tag = NULL_TYPE; t18701 = f26175(t18713, t18714); /* x206496 */ t18702.tag = STRUCTURE_TYPE24753; t18702.value.structure_type24753 = t18700; t18703.tag = STRUCTURE_TYPE24753; t18703.value.structure_type24753 = t18701; t18697 = f26175(t18702, t18703); /* x206494 */ t18698.tag = EXTERNAL_SYMBOL_TYPE; t18698.value.external_symbol_type = t18696; t18699.tag = STRUCTURE_TYPE24753; t18699.value.structure_type24753 = t18697; return f26175(t18698, t18699);} /* [inside top level 18471] */ struct structure_type24753 *f18471(struct w49 a32403) {char *a32404; /* U */ char *a32405; /* V */ char *a32406; /* OLD-FAIL */ char *a32407; /* RETURN */ struct w49 a41407; /* S */ char *t18757; char *t18758; char *t18759; char *t18760; char *t18761; struct structure_type24753 *t18762; struct w49 t18763; struct w49 t18764; struct structure_type24753 *t18765; struct w49 t18766; struct w49 t18767; char *t18768; struct structure_type24753 *t18769; struct w49 t18770; struct w49 t18771; struct structure_type24753 *t18772; struct structure_type24753 *t18773; struct w49 t18774; struct w49 t18775; char *t18776; struct w49 t18777; struct w49 t18778; struct structure_type24753 *t18779; struct w49 t18780; struct w49 t18781; char *t18782; struct structure_type24753 *t18783; struct w49 t18784; struct w49 t18785; struct structure_type24753 *t18786; struct structure_type24753 *t18787; struct w49 t18788; struct w49 t18789; struct structure_type24753 *t18790; struct structure_type24753 *t18791; struct w49 t18792; struct w49 t18793; char *t18794; struct structure_type24753 *t18795; struct w49 t18796; struct w49 t18797; struct structure_type24753 *t18799; struct w49 t18800; struct w49 t18801; char *t18802; struct structure_type24753 *t18803; struct w49 t18804; struct w49 t18805; struct structure_type24753 *t18807; struct structure_type24753 *t18808; struct w49 t18809; struct w49 t18810; char *t18811; struct structure_type24753 *t18812; struct w49 t18813; struct w49 t18814; char *t18815; struct structure_type24753 *t18816; struct w49 t18817; struct w49 t18818; struct structure_type24753 *t18819; struct w49 t18820; struct w49 t18821; char *t18822; struct structure_type24753 *t18823; struct w49 t18824; struct w49 t18825; struct structure_type24753 *t18826; struct w49 t18827; struct w49 t18828; struct structure_type24753 *t18829; struct structure_type24753 *t18830; struct w49 t18831; struct w49 t18832; char *t18833; struct structure_type24753 *t18834; struct w49 t18835; struct w49 t18836; char *t18837; struct structure_type24753 *t18838; struct w49 t18839; struct w49 t18840; char *t18841; struct w49 t18842; struct w49 t18843; struct structure_type24753 *t18844; struct w49 t18845; struct w49 t18846; char *t18847; struct structure_type24753 *t18848; struct w49 t18849; struct w49 t18850; char *t18851; struct w49 t18852; struct w49 t18853; struct structure_type24753 *t18854; struct w49 t18855; struct w49 t18856; char *t18857; struct structure_type24753 *t18858; struct w49 t18859; struct w49 t18860; struct structure_type24753 *t18861; struct structure_type24753 *t18862; struct w49 t18863; struct w49 t18864; struct structure_type24753 *t18865; struct w49 t18866; struct w49 t18867; char *t18868; struct structure_type24753 *t18869; struct w49 t18870; struct w49 t18871; struct structure_type24753 *t18872; struct w49 t18873; struct w49 t18874; char *t18875; struct w49 t18876; struct w49 t18877; struct w12224 t18878; struct structure_type24753 *t18879; struct w49 t18880; struct w49 t18881; struct w49 t18882; struct w49 t18883; struct structure_type24753 *t18884; struct structure_type24753 *t18885; struct w49 t18886; struct w49 t18887; char *t18888; struct structure_type24753 *t18889; struct w49 t18890; struct w49 t18891; char *t18892; struct structure_type24753 *t18893; struct w49 t18894; struct w49 t18895; struct structure_type24753 *t18896; struct structure_type24753 *t18897; struct w49 t18898; struct w49 t18899; char *t18900; struct structure_type24753 *t18901; struct w49 t18902; struct w49 t18903; char *t18904; struct structure_type24753 *t18905; struct w49 t18906; struct w49 t18907; char *t18908; struct w49 t18909; struct w49 t18910; struct structure_type24753 *t18913; struct structure_type24753 *t18914; struct w49 t18915; struct w49 t18916; char *t18917; struct structure_type24753 *t18918; struct w49 t18919; struct w49 t18920; char *t18921; struct structure_type24753 *t18922; struct w49 t18923; struct w49 t18924; char *t18925; struct w49 t18926; struct w49 t18927; char *t18929; char *t18930; char *t18931; char *t18932; /* x206489 stalin.sc:28531:980508 */ /* x206479 stalin.sc:28534:980644 */ /* x206478 stalin.sc:28534:980652 */ t18929 = "u"; /* x206477 stalin.sc:28534:980645 */ t18757 = f5362(t18929); /* x206482 stalin.sc:28533:980609 */ /* x206481 stalin.sc:28533:980617 */ t18930 = "v"; /* x206480 stalin.sc:28533:980610 */ t18758 = f5362(t18930); /* x206485 stalin.sc:28532:980568 */ /* x206484 stalin.sc:28532:980576 */ t18931 = "old-fail"; /* x206483 stalin.sc:28532:980569 */ t18759 = f5362(t18931); /* x206488 stalin.sc:28531:980522 */ /* x206487 stalin.sc:28531:980530 */ t18932 = "return"; /* x206486 stalin.sc:28531:980523 */ t18760 = f5362(t18932); /* x206476 */ a32404 = t18757; a32405 = t18758; a32406 = t18759; a32407 = t18760; /* x206475 stalin.sc:28536:980710 */ /* x206330 */ t18761 = q66; /* x206474 */ /* x206472 */ /* x206333 */ t18768 = q39; /* x206471 */ /* x206338 */ /* x206336 stalin.sc:28537:980758 */ t18776 = a32407; /* x206337 */ /* x206335 */ t18777.tag = EXTERNAL_SYMBOL_TYPE; t18777.value.external_symbol_type = t18776; t18778.tag = NULL_TYPE; t18772 = f26175(t18777, t18778); /* x206470 */ /* x206468 */ /* x206341 */ t18782 = q242; /* x206467 */ /* x206359 */ /* x206349 */ /* x206345 stalin.sc:28538:980780 */ t18794 = a32406; /* x206348 */ t18795 = &t18798; /* x206344 */ t18796.tag = EXTERNAL_SYMBOL_TYPE; t18796.value.external_symbol_type = t18794; t18797.tag = STRUCTURE_TYPE24753; t18797.value.structure_type24753 = t18795; t18790 = f26175(t18796, t18797); /* x206358 */ /* x206356 */ /* x206352 stalin.sc:28539:980802 */ t18802 = a32404; /* x206355 */ t18803 = &t18806; /* x206351 */ t18804.tag = EXTERNAL_SYMBOL_TYPE; t18804.value.external_symbol_type = t18802; t18805.tag = STRUCTURE_TYPE24753; t18805.value.structure_type24753 = t18803; t18799 = f26175(t18804, t18805); /* x206357 */ /* x206350 */ t18800.tag = STRUCTURE_TYPE24753; t18800.value.structure_type24753 = t18799; t18801.tag = NULL_TYPE; t18791 = f26175(t18800, t18801); /* x206343 */ t18792.tag = STRUCTURE_TYPE24753; t18792.value.structure_type24753 = t18790; t18793.tag = STRUCTURE_TYPE24753; t18793.value.structure_type24753 = t18791; t18786 = f26175(t18792, t18793); /* x206466 */ /* x206397 */ /* x206362 */ t18811 = q42; /* x206396 */ /* x206364 */ t18815 = q506; /* x206395 */ /* x206393 */ /* x206367 */ t18822 = q39; /* x206392 */ /* x206369 */ /* x206391 */ /* x206380 */ /* x206372 */ t18833 = q42; /* x206379 */ /* x206374 */ t18837 = q506; /* x206378 */ /* x206376 stalin.sc:28540:980850 */ t18841 = a32406; /* x206377 */ /* x206375 */ t18842.tag = EXTERNAL_SYMBOL_TYPE; t18842.value.external_symbol_type = t18841; t18843.tag = NULL_TYPE; t18838 = f26175(t18842, t18843); /* x206373 */ t18839.tag = EXTERNAL_SYMBOL_TYPE; t18839.value.external_symbol_type = t18837; t18840.tag = STRUCTURE_TYPE24753; t18840.value.structure_type24753 = t18838; t18834 = f26175(t18839, t18840); /* x206371 */ t18835.tag = EXTERNAL_SYMBOL_TYPE; t18835.value.external_symbol_type = t18833; t18836.tag = STRUCTURE_TYPE24753; t18836.value.structure_type24753 = t18834; t18829 = f26175(t18835, t18836); /* x206390 */ /* x206388 */ /* x206383 stalin.sc:28540:980862 */ t18847 = a32407; /* x206387 */ /* x206385 stalin.sc:28540:980870 */ t18851 = a32404; /* x206386 */ /* x206384 */ t18852.tag = EXTERNAL_SYMBOL_TYPE; t18852.value.external_symbol_type = t18851; t18853.tag = NULL_TYPE; t18848 = f26175(t18852, t18853); /* x206382 */ t18849.tag = EXTERNAL_SYMBOL_TYPE; t18849.value.external_symbol_type = t18847; t18850.tag = STRUCTURE_TYPE24753; t18850.value.structure_type24753 = t18848; t18844 = f26175(t18849, t18850); /* x206389 */ /* x206381 */ t18845.tag = STRUCTURE_TYPE24753; t18845.value.structure_type24753 = t18844; t18846.tag = NULL_TYPE; t18830 = f26175(t18845, t18846); /* x206370 */ t18831.tag = STRUCTURE_TYPE24753; t18831.value.structure_type24753 = t18829; t18832.tag = STRUCTURE_TYPE24753; t18832.value.structure_type24753 = t18830; t18826 = f26175(t18831, t18832); /* x206368 */ t18827.tag = NULL_TYPE; t18828.tag = STRUCTURE_TYPE24753; t18828.value.structure_type24753 = t18826; t18823 = f26175(t18827, t18828); /* x206366 */ t18824.tag = EXTERNAL_SYMBOL_TYPE; t18824.value.external_symbol_type = t18822; t18825.tag = STRUCTURE_TYPE24753; t18825.value.structure_type24753 = t18823; t18819 = f26175(t18824, t18825); /* x206394 */ /* x206365 */ t18820.tag = STRUCTURE_TYPE24753; t18820.value.structure_type24753 = t18819; t18821.tag = NULL_TYPE; t18816 = f26175(t18820, t18821); /* x206363 */ t18817.tag = EXTERNAL_SYMBOL_TYPE; t18817.value.external_symbol_type = t18815; t18818.tag = STRUCTURE_TYPE24753; t18818.value.structure_type24753 = t18816; t18812 = f26175(t18817, t18818); /* x206361 */ t18813.tag = EXTERNAL_SYMBOL_TYPE; t18813.value.external_symbol_type = t18811; t18814.tag = STRUCTURE_TYPE24753; t18814.value.structure_type24753 = t18812; t18807 = f26175(t18813, t18814); /* x206465 */ /* x206463 */ /* x206400 */ t18857 = q242; /* x206462 */ /* x206421 */ /* x206419 */ /* x206404 stalin.sc:28541:980890 */ t18868 = a32405; /* x206418 */ /* x206416 */ /* x206407 */ t18875 = q239; /* x206415 */ /* x206414 */ /* x206413 stalin.sc:28541:980901 */ /* x206412 stalin.sc:28541:980912 */ /* x206411 stalin.sc:28541:980921 */ t18882 = a32403; /* x206410 stalin.sc:28541:980913 */ a41407 = t18882; /* x299740 stalin.sc:7008:242336 */ /* x299739 stalin.sc:7008:242344 */ t18883 = a41407; /* x299738 stalin.sc:7008:242337 */ t18881 = f9720(t18883); /* x206409 stalin.sc:28541:980902 */ t18878 = f9772(t18881); /* x206408 */ t18880.tag = STRUCTURE_TYPE24753; t18880.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t18880.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18472]"); out_of_memory_error();} t18880.value.structure_type24753->s0.tag = NULL_TYPE; t18880.value.structure_type24753->s1.tag = NULL_TYPE; t18879 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t18879==NULL) {backtrace_internal("[inside top level 18472]"); out_of_memory_error();} t18879->s0 = *((struct w49 *)(&t18878)); t18879->s1 = t18880; t18876 = f26254(t18879); /* x206406 */ t18877.tag = EXTERNAL_SYMBOL_TYPE; t18877.value.external_symbol_type = t18875; t18872 = f26175(t18877, t18876); /* x206417 */ /* x206405 */ t18873.tag = STRUCTURE_TYPE24753; t18873.value.structure_type24753 = t18872; t18874.tag = NULL_TYPE; t18869 = f26175(t18873, t18874); /* x206403 */ t18870.tag = EXTERNAL_SYMBOL_TYPE; t18870.value.external_symbol_type = t18868; t18871.tag = STRUCTURE_TYPE24753; t18871.value.structure_type24753 = t18869; t18865 = f26175(t18870, t18871); /* x206420 */ /* x206402 */ t18866.tag = STRUCTURE_TYPE24753; t18866.value.structure_type24753 = t18865; t18867.tag = NULL_TYPE; t18861 = f26175(t18866, t18867); /* x206461 */ /* x206445 */ /* x206424 */ t18888 = q493; /* x206444 */ /* x206426 stalin.sc:28542:980943 */ t18892 = a32405; /* x206443 */ /* x206437 */ /* x206429 */ t18900 = q42; /* x206436 */ /* x206431 stalin.sc:28542:980952 */ t18904 = a32404; /* x206435 */ /* x206433 stalin.sc:28542:980955 */ t18908 = a32405; /* x206434 */ /* x206432 */ t18909.tag = EXTERNAL_SYMBOL_TYPE; t18909.value.external_symbol_type = t18908; t18910.tag = NULL_TYPE; t18905 = f26175(t18909, t18910); /* x206430 */ t18906.tag = EXTERNAL_SYMBOL_TYPE; t18906.value.external_symbol_type = t18904; t18907.tag = STRUCTURE_TYPE24753; t18907.value.structure_type24753 = t18905; t18901 = f26175(t18906, t18907); /* x206428 */ t18902.tag = EXTERNAL_SYMBOL_TYPE; t18902.value.external_symbol_type = t18900; t18903.tag = STRUCTURE_TYPE24753; t18903.value.structure_type24753 = t18901; t18896 = f26175(t18902, t18903); /* x206442 */ t18897 = &t18911; /* x206427 */ t18898.tag = STRUCTURE_TYPE24753; t18898.value.structure_type24753 = t18896; t18899.tag = STRUCTURE_TYPE24753; t18899.value.structure_type24753 = t18897; t18893 = f26175(t18898, t18899); /* x206425 */ t18894.tag = EXTERNAL_SYMBOL_TYPE; t18894.value.external_symbol_type = t18892; t18895.tag = STRUCTURE_TYPE24753; t18895.value.structure_type24753 = t18893; t18889 = f26175(t18894, t18895); /* x206423 */ t18890.tag = EXTERNAL_SYMBOL_TYPE; t18890.value.external_symbol_type = t18888; t18891.tag = STRUCTURE_TYPE24753; t18891.value.structure_type24753 = t18889; t18884 = f26175(t18890, t18891); /* x206460 */ /* x206456 */ /* x206448 */ t18917 = q42; /* x206455 */ /* x206450 */ t18921 = q506; /* x206454 */ /* x206452 stalin.sc:28543:980986 */ t18925 = a32406; /* x206453 */ /* x206451 */ t18926.tag = EXTERNAL_SYMBOL_TYPE; t18926.value.external_symbol_type = t18925; t18927.tag = NULL_TYPE; t18922 = f26175(t18926, t18927); /* x206449 */ t18923.tag = EXTERNAL_SYMBOL_TYPE; t18923.value.external_symbol_type = t18921; t18924.tag = STRUCTURE_TYPE24753; t18924.value.structure_type24753 = t18922; t18918 = f26175(t18923, t18924); /* x206447 */ t18919.tag = EXTERNAL_SYMBOL_TYPE; t18919.value.external_symbol_type = t18917; t18920.tag = STRUCTURE_TYPE24753; t18920.value.structure_type24753 = t18918; t18913 = f26175(t18919, t18920); /* x206459 */ t18914 = &t18928; /* x206446 */ t18915.tag = STRUCTURE_TYPE24753; t18915.value.structure_type24753 = t18913; t18916.tag = STRUCTURE_TYPE24753; t18916.value.structure_type24753 = t18914; t18885 = f26175(t18915, t18916); /* x206422 */ t18886.tag = STRUCTURE_TYPE24753; t18886.value.structure_type24753 = t18884; t18887.tag = STRUCTURE_TYPE24753; t18887.value.structure_type24753 = t18885; t18862 = f26175(t18886, t18887); /* x206401 */ t18863.tag = STRUCTURE_TYPE24753; t18863.value.structure_type24753 = t18861; t18864.tag = STRUCTURE_TYPE24753; t18864.value.structure_type24753 = t18862; t18858 = f26175(t18863, t18864); /* x206399 */ t18859.tag = EXTERNAL_SYMBOL_TYPE; t18859.value.external_symbol_type = t18857; t18860.tag = STRUCTURE_TYPE24753; t18860.value.structure_type24753 = t18858; t18854 = f26175(t18859, t18860); /* x206464 */ /* x206398 */ t18855.tag = STRUCTURE_TYPE24753; t18855.value.structure_type24753 = t18854; t18856.tag = NULL_TYPE; t18808 = f26175(t18855, t18856); /* x206360 */ t18809.tag = STRUCTURE_TYPE24753; t18809.value.structure_type24753 = t18807; t18810.tag = STRUCTURE_TYPE24753; t18810.value.structure_type24753 = t18808; t18787 = f26175(t18809, t18810); /* x206342 */ t18788.tag = STRUCTURE_TYPE24753; t18788.value.structure_type24753 = t18786; t18789.tag = STRUCTURE_TYPE24753; t18789.value.structure_type24753 = t18787; t18783 = f26175(t18788, t18789); /* x206340 */ t18784.tag = EXTERNAL_SYMBOL_TYPE; t18784.value.external_symbol_type = t18782; t18785.tag = STRUCTURE_TYPE24753; t18785.value.structure_type24753 = t18783; t18779 = f26175(t18784, t18785); /* x206469 */ /* x206339 */ t18780.tag = STRUCTURE_TYPE24753; t18780.value.structure_type24753 = t18779; t18781.tag = NULL_TYPE; t18773 = f26175(t18780, t18781); /* x206334 */ t18774.tag = STRUCTURE_TYPE24753; t18774.value.structure_type24753 = t18772; t18775.tag = STRUCTURE_TYPE24753; t18775.value.structure_type24753 = t18773; t18769 = f26175(t18774, t18775); /* x206332 */ t18770.tag = EXTERNAL_SYMBOL_TYPE; t18770.value.external_symbol_type = t18768; t18771.tag = STRUCTURE_TYPE24753; t18771.value.structure_type24753 = t18769; t18765 = f26175(t18770, t18771); /* x206473 */ /* x206331 */ t18766.tag = STRUCTURE_TYPE24753; t18766.value.structure_type24753 = t18765; t18767.tag = NULL_TYPE; t18762 = f26175(t18766, t18767); /* x206329 */ t18763.tag = EXTERNAL_SYMBOL_TYPE; t18763.value.external_symbol_type = t18761; t18764.tag = STRUCTURE_TYPE24753; t18764.value.structure_type24753 = t18762; return f26175(t18763, t18764);} /* [inside top level 18469] */ struct structure_type24753 *f18469(struct w49 a32399) {char *a32400; /* V */ char *a32401; /* OLD-FAIL */ char *a32402; /* RETURN */ struct w49 a41410; /* S */ char *t18933; char *t18934; char *t18935; char *t18936; struct structure_type24753 *t18937; struct w49 t18938; struct w49 t18939; struct structure_type24753 *t18940; struct w49 t18941; struct w49 t18942; char *t18943; struct structure_type24753 *t18944; struct w49 t18945; struct w49 t18946; struct structure_type24753 *t18947; struct structure_type24753 *t18948; struct w49 t18949; struct w49 t18950; char *t18951; struct w49 t18952; struct w49 t18953; struct structure_type24753 *t18954; struct w49 t18955; struct w49 t18956; char *t18957; struct structure_type24753 *t18958; struct w49 t18959; struct w49 t18960; struct structure_type24753 *t18961; struct structure_type24753 *t18962; struct w49 t18963; struct w49 t18964; struct structure_type24753 *t18965; struct w49 t18966; struct w49 t18967; char *t18968; struct structure_type24753 *t18969; struct w49 t18970; struct w49 t18971; struct structure_type24753 *t18973; struct structure_type24753 *t18974; struct w49 t18975; struct w49 t18976; char *t18977; struct structure_type24753 *t18978; struct w49 t18979; struct w49 t18980; char *t18981; struct structure_type24753 *t18982; struct w49 t18983; struct w49 t18984; struct structure_type24753 *t18985; struct w49 t18986; struct w49 t18987; char *t18988; struct structure_type24753 *t18989; struct w49 t18990; struct w49 t18991; struct structure_type24753 *t18992; struct w49 t18993; struct w49 t18994; struct structure_type24753 *t18995; struct structure_type24753 *t18996; struct w49 t18997; struct w49 t18998; char *t18999; struct structure_type24753 *t19000; struct w49 t19001; struct w49 t19002; char *t19003; struct structure_type24753 *t19004; struct w49 t19005; struct w49 t19006; char *t19007; struct w49 t19008; struct w49 t19009; struct structure_type24753 *t19010; struct w49 t19011; struct w49 t19012; char *t19013; struct structure_type24753 *t19014; struct w49 t19015; struct w49 t19016; struct structure_type24753 *t19018; struct w49 t19019; struct w49 t19020; char *t19021; struct structure_type24753 *t19022; struct w49 t19023; struct w49 t19024; struct structure_type24753 *t19025; struct structure_type24753 *t19026; struct w49 t19027; struct w49 t19028; struct structure_type24753 *t19029; struct w49 t19030; struct w49 t19031; char *t19032; struct structure_type24753 *t19033; struct w49 t19034; struct w49 t19035; struct structure_type24753 *t19036; struct w49 t19037; struct w49 t19038; char *t19039; struct w49 t19040; struct w49 t19041; struct w12224 t19042; struct structure_type24753 *t19043; struct w49 t19044; struct w49 t19045; struct w49 t19046; struct w49 t19047; struct structure_type24753 *t19048; struct structure_type24753 *t19049; struct w49 t19050; struct w49 t19051; char *t19052; struct structure_type24753 *t19053; struct w49 t19054; struct w49 t19055; char *t19056; struct structure_type24753 *t19057; struct w49 t19058; struct w49 t19059; struct structure_type24753 *t19062; struct structure_type24753 *t19063; struct w49 t19064; struct w49 t19065; char *t19066; struct structure_type24753 *t19067; struct w49 t19068; struct w49 t19069; char *t19070; struct structure_type24753 *t19071; struct w49 t19072; struct w49 t19073; char *t19074; struct w49 t19075; struct w49 t19076; char *t19077; struct w49 t19078; struct w49 t19079; char *t19080; char *t19081; char *t19082; /* x206324 stalin.sc:28517:980016 */ /* x206317 stalin.sc:28519:980117 */ /* x206316 stalin.sc:28519:980125 */ t19080 = "v"; /* x206315 stalin.sc:28519:980118 */ t18933 = f5362(t19080); /* x206320 stalin.sc:28518:980076 */ /* x206319 stalin.sc:28518:980084 */ t19081 = "old-fail"; /* x206318 stalin.sc:28518:980077 */ t18934 = f5362(t19081); /* x206323 stalin.sc:28517:980030 */ /* x206322 stalin.sc:28517:980038 */ t19082 = "return"; /* x206321 stalin.sc:28517:980031 */ t18935 = f5362(t19082); /* x206314 */ a32400 = t18933; a32401 = t18934; a32402 = t18935; /* x206313 stalin.sc:28521:980181 */ /* x206188 */ t18936 = q66; /* x206312 */ /* x206310 */ /* x206191 */ t18943 = q39; /* x206309 */ /* x206196 */ /* x206194 stalin.sc:28522:980229 */ t18951 = a32402; /* x206195 */ /* x206193 */ t18952.tag = EXTERNAL_SYMBOL_TYPE; t18952.value.external_symbol_type = t18951; t18953.tag = NULL_TYPE; t18947 = f26175(t18952, t18953); /* x206308 */ /* x206306 */ /* x206199 */ t18957 = q242; /* x206305 */ /* x206209 */ /* x206207 */ /* x206203 stalin.sc:28523:980251 */ t18968 = a32401; /* x206206 */ t18969 = &t18972; /* x206202 */ t18970.tag = EXTERNAL_SYMBOL_TYPE; t18970.value.external_symbol_type = t18968; t18971.tag = STRUCTURE_TYPE24753; t18971.value.structure_type24753 = t18969; t18965 = f26175(t18970, t18971); /* x206208 */ /* x206201 */ t18966.tag = STRUCTURE_TYPE24753; t18966.value.structure_type24753 = t18965; t18967.tag = NULL_TYPE; t18961 = f26175(t18966, t18967); /* x206304 */ /* x206246 */ /* x206212 */ t18977 = q42; /* x206245 */ /* x206214 */ t18981 = q506; /* x206244 */ /* x206242 */ /* x206217 */ t18988 = q39; /* x206241 */ /* x206219 */ /* x206240 */ /* x206230 */ /* x206222 */ t18999 = q42; /* x206229 */ /* x206224 */ t19003 = q506; /* x206228 */ /* x206226 stalin.sc:28524:980308 */ t19007 = a32401; /* x206227 */ /* x206225 */ t19008.tag = EXTERNAL_SYMBOL_TYPE; t19008.value.external_symbol_type = t19007; t19009.tag = NULL_TYPE; t19004 = f26175(t19008, t19009); /* x206223 */ t19005.tag = EXTERNAL_SYMBOL_TYPE; t19005.value.external_symbol_type = t19003; t19006.tag = STRUCTURE_TYPE24753; t19006.value.structure_type24753 = t19004; t19000 = f26175(t19005, t19006); /* x206221 */ t19001.tag = EXTERNAL_SYMBOL_TYPE; t19001.value.external_symbol_type = t18999; t19002.tag = STRUCTURE_TYPE24753; t19002.value.structure_type24753 = t19000; t18995 = f26175(t19001, t19002); /* x206239 */ /* x206237 */ /* x206233 stalin.sc:28524:980320 */ t19013 = a32402; /* x206236 */ t19014 = &t19017; /* x206232 */ t19015.tag = EXTERNAL_SYMBOL_TYPE; t19015.value.external_symbol_type = t19013; t19016.tag = STRUCTURE_TYPE24753; t19016.value.structure_type24753 = t19014; t19010 = f26175(t19015, t19016); /* x206238 */ /* x206231 */ t19011.tag = STRUCTURE_TYPE24753; t19011.value.structure_type24753 = t19010; t19012.tag = NULL_TYPE; t18996 = f26175(t19011, t19012); /* x206220 */ t18997.tag = STRUCTURE_TYPE24753; t18997.value.structure_type24753 = t18995; t18998.tag = STRUCTURE_TYPE24753; t18998.value.structure_type24753 = t18996; t18992 = f26175(t18997, t18998); /* x206218 */ t18993.tag = NULL_TYPE; t18994.tag = STRUCTURE_TYPE24753; t18994.value.structure_type24753 = t18992; t18989 = f26175(t18993, t18994); /* x206216 */ t18990.tag = EXTERNAL_SYMBOL_TYPE; t18990.value.external_symbol_type = t18988; t18991.tag = STRUCTURE_TYPE24753; t18991.value.structure_type24753 = t18989; t18985 = f26175(t18990, t18991); /* x206243 */ /* x206215 */ t18986.tag = STRUCTURE_TYPE24753; t18986.value.structure_type24753 = t18985; t18987.tag = NULL_TYPE; t18982 = f26175(t18986, t18987); /* x206213 */ t18983.tag = EXTERNAL_SYMBOL_TYPE; t18983.value.external_symbol_type = t18981; t18984.tag = STRUCTURE_TYPE24753; t18984.value.structure_type24753 = t18982; t18978 = f26175(t18983, t18984); /* x206211 */ t18979.tag = EXTERNAL_SYMBOL_TYPE; t18979.value.external_symbol_type = t18977; t18980.tag = STRUCTURE_TYPE24753; t18980.value.structure_type24753 = t18978; t18973 = f26175(t18979, t18980); /* x206303 */ /* x206301 */ /* x206249 */ t19021 = q242; /* x206300 */ /* x206270 */ /* x206268 */ /* x206253 stalin.sc:28525:980348 */ t19032 = a32400; /* x206267 */ /* x206265 */ /* x206256 */ t19039 = q239; /* x206264 */ /* x206263 */ /* x206262 stalin.sc:28525:980359 */ /* x206261 stalin.sc:28525:980370 */ /* x206260 stalin.sc:28525:980379 */ t19046 = a32399; /* x206259 stalin.sc:28525:980371 */ a41410 = t19046; /* x299752 stalin.sc:7008:242336 */ /* x299751 stalin.sc:7008:242344 */ t19047 = a41410; /* x299750 stalin.sc:7008:242337 */ t19045 = f9720(t19047); /* x206258 stalin.sc:28525:980360 */ t19042 = f9772(t19045); /* x206257 */ t19044.tag = STRUCTURE_TYPE24753; t19044.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t19044.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18470]"); out_of_memory_error();} t19044.value.structure_type24753->s0.tag = NULL_TYPE; t19044.value.structure_type24753->s1.tag = NULL_TYPE; t19043 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t19043==NULL) {backtrace_internal("[inside top level 18470]"); out_of_memory_error();} t19043->s0 = *((struct w49 *)(&t19042)); t19043->s1 = t19044; t19040 = f26254(t19043); /* x206255 */ t19041.tag = EXTERNAL_SYMBOL_TYPE; t19041.value.external_symbol_type = t19039; t19036 = f26175(t19041, t19040); /* x206266 */ /* x206254 */ t19037.tag = STRUCTURE_TYPE24753; t19037.value.structure_type24753 = t19036; t19038.tag = NULL_TYPE; t19033 = f26175(t19037, t19038); /* x206252 */ t19034.tag = EXTERNAL_SYMBOL_TYPE; t19034.value.external_symbol_type = t19032; t19035.tag = STRUCTURE_TYPE24753; t19035.value.structure_type24753 = t19033; t19029 = f26175(t19034, t19035); /* x206269 */ /* x206251 */ t19030.tag = STRUCTURE_TYPE24753; t19030.value.structure_type24753 = t19029; t19031.tag = NULL_TYPE; t19025 = f26175(t19030, t19031); /* x206299 */ /* x206282 */ /* x206273 */ t19052 = q494; /* x206281 */ /* x206275 stalin.sc:28526:980403 */ t19056 = a32400; /* x206280 */ t19057 = &t19060; /* x206274 */ t19058.tag = EXTERNAL_SYMBOL_TYPE; t19058.value.external_symbol_type = t19056; t19059.tag = STRUCTURE_TYPE24753; t19059.value.structure_type24753 = t19057; t19053 = f26175(t19058, t19059); /* x206272 */ t19054.tag = EXTERNAL_SYMBOL_TYPE; t19054.value.external_symbol_type = t19052; t19055.tag = STRUCTURE_TYPE24753; t19055.value.structure_type24753 = t19053; t19048 = f26175(t19054, t19055); /* x206298 */ /* x206293 */ /* x206285 */ t19066 = q42; /* x206292 */ /* x206287 */ t19070 = q506; /* x206291 */ /* x206289 stalin.sc:28527:980433 */ t19074 = a32401; /* x206290 */ /* x206288 */ t19075.tag = EXTERNAL_SYMBOL_TYPE; t19075.value.external_symbol_type = t19074; t19076.tag = NULL_TYPE; t19071 = f26175(t19075, t19076); /* x206286 */ t19072.tag = EXTERNAL_SYMBOL_TYPE; t19072.value.external_symbol_type = t19070; t19073.tag = STRUCTURE_TYPE24753; t19073.value.structure_type24753 = t19071; t19067 = f26175(t19072, t19073); /* x206284 */ t19068.tag = EXTERNAL_SYMBOL_TYPE; t19068.value.external_symbol_type = t19066; t19069.tag = STRUCTURE_TYPE24753; t19069.value.structure_type24753 = t19067; t19062 = f26175(t19068, t19069); /* x206297 */ /* x206295 stalin.sc:28528:980452 */ t19077 = a32400; /* x206296 */ /* x206294 */ t19078.tag = EXTERNAL_SYMBOL_TYPE; t19078.value.external_symbol_type = t19077; t19079.tag = NULL_TYPE; t19063 = f26175(t19078, t19079); /* x206283 */ t19064.tag = STRUCTURE_TYPE24753; t19064.value.structure_type24753 = t19062; t19065.tag = STRUCTURE_TYPE24753; t19065.value.structure_type24753 = t19063; t19049 = f26175(t19064, t19065); /* x206271 */ t19050.tag = STRUCTURE_TYPE24753; t19050.value.structure_type24753 = t19048; t19051.tag = STRUCTURE_TYPE24753; t19051.value.structure_type24753 = t19049; t19026 = f26175(t19050, t19051); /* x206250 */ t19027.tag = STRUCTURE_TYPE24753; t19027.value.structure_type24753 = t19025; t19028.tag = STRUCTURE_TYPE24753; t19028.value.structure_type24753 = t19026; t19022 = f26175(t19027, t19028); /* x206248 */ t19023.tag = EXTERNAL_SYMBOL_TYPE; t19023.value.external_symbol_type = t19021; t19024.tag = STRUCTURE_TYPE24753; t19024.value.structure_type24753 = t19022; t19018 = f26175(t19023, t19024); /* x206302 */ /* x206247 */ t19019.tag = STRUCTURE_TYPE24753; t19019.value.structure_type24753 = t19018; t19020.tag = NULL_TYPE; t18974 = f26175(t19019, t19020); /* x206210 */ t18975.tag = STRUCTURE_TYPE24753; t18975.value.structure_type24753 = t18973; t18976.tag = STRUCTURE_TYPE24753; t18976.value.structure_type24753 = t18974; t18962 = f26175(t18975, t18976); /* x206200 */ t18963.tag = STRUCTURE_TYPE24753; t18963.value.structure_type24753 = t18961; t18964.tag = STRUCTURE_TYPE24753; t18964.value.structure_type24753 = t18962; t18958 = f26175(t18963, t18964); /* x206198 */ t18959.tag = EXTERNAL_SYMBOL_TYPE; t18959.value.external_symbol_type = t18957; t18960.tag = STRUCTURE_TYPE24753; t18960.value.structure_type24753 = t18958; t18954 = f26175(t18959, t18960); /* x206307 */ /* x206197 */ t18955.tag = STRUCTURE_TYPE24753; t18955.value.structure_type24753 = t18954; t18956.tag = NULL_TYPE; t18948 = f26175(t18955, t18956); /* x206192 */ t18949.tag = STRUCTURE_TYPE24753; t18949.value.structure_type24753 = t18947; t18950.tag = STRUCTURE_TYPE24753; t18950.value.structure_type24753 = t18948; t18944 = f26175(t18949, t18950); /* x206190 */ t18945.tag = EXTERNAL_SYMBOL_TYPE; t18945.value.external_symbol_type = t18943; t18946.tag = STRUCTURE_TYPE24753; t18946.value.structure_type24753 = t18944; t18940 = f26175(t18945, t18946); /* x206311 */ /* x206189 */ t18941.tag = STRUCTURE_TYPE24753; t18941.value.structure_type24753 = t18940; t18942.tag = NULL_TYPE; t18937 = f26175(t18941, t18942); /* x206187 */ t18938.tag = EXTERNAL_SYMBOL_TYPE; t18938.value.external_symbol_type = t18936; t18939.tag = STRUCTURE_TYPE24753; t18939.value.structure_type24753 = t18937; return f26175(t18938, t18939);} /* [inside top level 18467] */ struct structure_type24753 *f18467(struct w49 a32397) {char *a32398; /* VALUES */ struct w49 a41409; /* S */ char *t19083; char *t19084; struct structure_type24753 *t19085; struct w49 t19086; struct w49 t19087; struct structure_type24753 *t19088; struct structure_type24753 *t19089; struct w49 t19090; struct w49 t19091; struct structure_type24753 *t19092; struct w49 t19093; struct w49 t19094; char *t19095; struct structure_type24753 *t19096; struct w49 t19097; struct w49 t19098; struct structure_type24753 *t19102; struct structure_type24753 *t19103; struct w49 t19104; struct w49 t19105; char *t19106; struct structure_type24753 *t19107; struct w49 t19108; struct w49 t19109; struct structure_type24753 *t19110; struct w49 t19111; struct w49 t19112; char *t19113; struct structure_type24753 *t19114; struct w49 t19115; struct w49 t19116; char *t19117; struct structure_type24753 *t19118; struct w49 t19119; struct w49 t19120; struct structure_type24753 *t19121; struct w49 t19122; struct w49 t19123; char *t19124; struct structure_type24753 *t19125; struct w49 t19126; struct w49 t19127; struct structure_type24753 *t19128; struct structure_type24753 *t19129; struct w49 t19130; struct w49 t19131; char *t19132; struct w49 t19133; struct w49 t19134; struct w12224 t19135; struct structure_type24753 *t19136; struct w49 t19137; struct w49 t19138; struct w49 t19139; struct w49 t19140; char *t19141; struct w49 t19142; struct w49 t19143; struct structure_type24753 *t19144; struct w49 t19145; struct w49 t19146; char *t19147; struct structure_type24753 *t19148; struct w49 t19149; struct w49 t19150; char *t19151; struct w49 t19152; struct w49 t19153; char *t19154; /* x206182 stalin.sc:28509:979772 */ /* x206181 stalin.sc:28509:979786 */ /* x206180 stalin.sc:28509:979794 */ t19154 = "values"; /* x206179 stalin.sc:28509:979787 */ t19083 = f5362(t19154); /* x206178 */ a32398 = t19083; /* x206177 stalin.sc:28511:979844 */ /* x206114 */ t19084 = q242; /* x206176 */ /* x206128 */ /* x206126 */ /* x206118 stalin.sc:28511:979853 */ t19095 = a32398; /* x206125 */ t19096 = &t19099; /* x206117 */ t19097.tag = EXTERNAL_SYMBOL_TYPE; t19097.value.external_symbol_type = t19095; t19098.tag = STRUCTURE_TYPE24753; t19098.value.structure_type24753 = t19096; t19092 = f26175(t19097, t19098); /* x206127 */ /* x206116 */ t19093.tag = STRUCTURE_TYPE24753; t19093.value.structure_type24753 = t19092; t19094.tag = NULL_TYPE; t19088 = f26175(t19093, t19094); /* x206175 */ /* x206164 */ /* x206131 */ t19106 = q508; /* x206163 */ /* x206161 */ /* x206134 */ t19113 = q42; /* x206160 */ /* x206136 stalin.sc:28513:979897 */ t19117 = a32398; /* x206159 */ /* x206157 */ /* x206139 */ t19124 = q106; /* x206156 */ /* x206151 */ /* x206142 */ t19132 = q239; /* x206150 */ /* x206149 */ /* x206148 stalin.sc:28513:979919 */ /* x206147 stalin.sc:28513:979930 */ /* x206146 stalin.sc:28513:979939 */ t19139 = a32397; /* x206145 stalin.sc:28513:979931 */ a41409 = t19139; /* x299748 stalin.sc:7008:242336 */ /* x299747 stalin.sc:7008:242344 */ t19140 = a41409; /* x299746 stalin.sc:7008:242337 */ t19138 = f9720(t19140); /* x206144 stalin.sc:28513:979920 */ t19135 = f9772(t19138); /* x206143 */ t19137.tag = STRUCTURE_TYPE24753; t19137.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t19137.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18468]"); out_of_memory_error();} t19137.value.structure_type24753->s0.tag = NULL_TYPE; t19137.value.structure_type24753->s1.tag = NULL_TYPE; t19136 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t19136==NULL) {backtrace_internal("[inside top level 18468]"); out_of_memory_error();} t19136->s0 = *((struct w49 *)(&t19135)); t19136->s1 = t19137; t19133 = f26254(t19136); /* x206141 */ t19134.tag = EXTERNAL_SYMBOL_TYPE; t19134.value.external_symbol_type = t19132; t19128 = f26175(t19134, t19133); /* x206155 */ /* x206153 stalin.sc:28513:979945 */ t19141 = a32398; /* x206154 */ /* x206152 */ t19142.tag = EXTERNAL_SYMBOL_TYPE; t19142.value.external_symbol_type = t19141; t19143.tag = NULL_TYPE; t19129 = f26175(t19142, t19143); /* x206140 */ t19130.tag = STRUCTURE_TYPE24753; t19130.value.structure_type24753 = t19128; t19131.tag = STRUCTURE_TYPE24753; t19131.value.structure_type24753 = t19129; t19125 = f26175(t19130, t19131); /* x206138 */ t19126.tag = EXTERNAL_SYMBOL_TYPE; t19126.value.external_symbol_type = t19124; t19127.tag = STRUCTURE_TYPE24753; t19127.value.structure_type24753 = t19125; t19121 = f26175(t19126, t19127); /* x206158 */ /* x206137 */ t19122.tag = STRUCTURE_TYPE24753; t19122.value.structure_type24753 = t19121; t19123.tag = NULL_TYPE; t19118 = f26175(t19122, t19123); /* x206135 */ t19119.tag = EXTERNAL_SYMBOL_TYPE; t19119.value.external_symbol_type = t19117; t19120.tag = STRUCTURE_TYPE24753; t19120.value.structure_type24753 = t19118; t19114 = f26175(t19119, t19120); /* x206133 */ t19115.tag = EXTERNAL_SYMBOL_TYPE; t19115.value.external_symbol_type = t19113; t19116.tag = STRUCTURE_TYPE24753; t19116.value.structure_type24753 = t19114; t19110 = f26175(t19115, t19116); /* x206162 */ /* x206132 */ t19111.tag = STRUCTURE_TYPE24753; t19111.value.structure_type24753 = t19110; t19112.tag = NULL_TYPE; t19107 = f26175(t19111, t19112); /* x206130 */ t19108.tag = EXTERNAL_SYMBOL_TYPE; t19108.value.external_symbol_type = t19106; t19109.tag = STRUCTURE_TYPE24753; t19109.value.structure_type24753 = t19107; t19102 = f26175(t19108, t19109); /* x206174 */ /* x206172 */ /* x206167 */ t19147 = q412; /* x206171 */ /* x206169 stalin.sc:28514:979970 */ t19151 = a32398; /* x206170 */ /* x206168 */ t19152.tag = EXTERNAL_SYMBOL_TYPE; t19152.value.external_symbol_type = t19151; t19153.tag = NULL_TYPE; t19148 = f26175(t19152, t19153); /* x206166 */ t19149.tag = EXTERNAL_SYMBOL_TYPE; t19149.value.external_symbol_type = t19147; t19150.tag = STRUCTURE_TYPE24753; t19150.value.structure_type24753 = t19148; t19144 = f26175(t19149, t19150); /* x206173 */ /* x206165 */ t19145.tag = STRUCTURE_TYPE24753; t19145.value.structure_type24753 = t19144; t19146.tag = NULL_TYPE; t19103 = f26175(t19145, t19146); /* x206129 */ t19104.tag = STRUCTURE_TYPE24753; t19104.value.structure_type24753 = t19102; t19105.tag = STRUCTURE_TYPE24753; t19105.value.structure_type24753 = t19103; t19089 = f26175(t19104, t19105); /* x206115 */ t19090.tag = STRUCTURE_TYPE24753; t19090.value.structure_type24753 = t19088; t19091.tag = STRUCTURE_TYPE24753; t19091.value.structure_type24753 = t19089; t19085 = f26175(t19090, t19091); /* x206113 */ t19086.tag = EXTERNAL_SYMBOL_TYPE; t19086.value.external_symbol_type = t19084; t19087.tag = STRUCTURE_TYPE24753; t19087.value.structure_type24753 = t19085; return f26175(t19086, t19087);} /* [inside top level 18461] */ struct structure_type24753 *f18461(struct w49 a32389) {char *a32391; /* V */ char *a32392; /* OLD-FAIL */ char *a32393; /* RETURN */ struct w49 a32394; /* S2 */ struct w49 a32395; /* S1 */ char *t19155; char *t19156; char *t19157; struct w49 t19158; struct w49 t19159; char *t19160; struct structure_type24753 *t19161; struct w49 t19162; struct w49 t19163; struct structure_type24753 *t19164; struct w49 t19165; struct w49 t19166; char *t19167; struct structure_type24753 *t19168; struct w49 t19169; struct w49 t19170; struct structure_type24753 *t19171; struct structure_type24753 *t19172; struct w49 t19173; struct w49 t19174; char *t19175; struct w49 t19176; struct w49 t19177; struct structure_type24753 *t19178; struct w49 t19179; struct w49 t19180; char *t19181; struct structure_type24753 *t19182; struct w49 t19183; struct w49 t19184; struct structure_type24753 *t19185; struct structure_type24753 *t19186; struct w49 t19187; struct w49 t19188; struct structure_type24753 *t19189; struct structure_type24753 *t19190; struct w49 t19191; struct w49 t19192; char *t19193; struct structure_type24753 *t19194; struct w49 t19195; struct w49 t19196; struct structure_type24753 *t19198; struct w49 t19199; struct w49 t19200; char *t19201; struct structure_type24753 *t19202; struct w49 t19203; struct w49 t19204; struct structure_type24753 *t19206; struct structure_type24753 *t19207; struct w49 t19208; struct w49 t19209; char *t19210; struct structure_type24753 *t19211; struct w49 t19212; struct w49 t19213; char *t19214; struct structure_type24753 *t19215; struct w49 t19216; struct w49 t19217; struct structure_type24753 *t19218; struct w49 t19219; struct w49 t19220; char *t19221; struct structure_type24753 *t19222; struct w49 t19223; struct w49 t19224; struct structure_type24753 *t19225; struct w49 t19226; struct w49 t19227; struct structure_type24753 *t19228; struct structure_type24753 *t19229; struct w49 t19230; struct w49 t19231; char *t19232; struct structure_type24753 *t19233; struct w49 t19234; struct w49 t19235; char *t19236; struct structure_type24753 *t19237; struct w49 t19238; struct w49 t19239; char *t19240; struct w49 t19241; struct w49 t19242; struct structure_type24753 *t19243; struct w49 t19244; struct w49 t19245; char *t19246; struct structure_type24753 *t19247; struct w49 t19248; struct w49 t19249; struct structure_type24753 *t19250; struct w49 t19251; struct w49 t19252; char *t19253; struct structure_type24753 *t19254; struct w49 t19255; struct w49 t19256; struct structure_type24753 *t19257; struct structure_type24753 *t19258; struct w49 t19259; struct w49 t19260; char *t19261; struct structure_type24753 *t19262; struct w49 t19263; struct w49 t19264; struct w49 t19265; struct w49 t19266; struct structure_type24753 *t19267; struct w49 t19268; struct w49 t19269; char *t19270; struct structure_type24753 *t19271; struct w49 t19272; struct w49 t19273; struct structure_type24753 *t19274; struct structure_type24753 *t19275; struct w49 t19276; struct w49 t19277; char *t19281; struct w49 t19282; struct w49 t19283; struct structure_type24753 *t19284; struct structure_type24753 *t19285; struct w49 t19286; struct w49 t19287; char *t19288; struct structure_type24753 *t19289; struct w49 t19290; struct w49 t19291; char *t19292; struct structure_type24753 *t19293; struct w49 t19294; struct w49 t19295; struct w49 t19296; struct w49 t19297; char *t19304; char *t19305; char *t19306; int t19307; int t19308; struct w49 t19309; struct w49 t19310; struct w49 t19312; int t19313; int t19314; struct w49 t19315; int t19316; int t19317; struct w49 t19318; struct w49 t19319; char *t19320; /* x206108 */ /* x206107 stalin.sc:28486:979042 */ /* x206098 stalin.sc:28486:979050 */ /* x206097 stalin.sc:28486:979054 */ /* x206095 stalin.sc:28486:979057 */ /* x206094 stalin.sc:28486:979068 */ t19315 = a32389; /* x206093 stalin.sc:28486:979058 */ t19313 = f9734(t19315); /* x206096 stalin.sc:28486:979071 */ t19314 = 2; /* x267937 stalin.sc:28486:979055 */ if (t19313==t19314) goto l3927; /* x206089 */ /* x206087 stalin.sc:28486:979077 */ /* x206086 stalin.sc:28486:979088 */ t19318 = a32389; /* x206085 stalin.sc:28486:979078 */ t19316 = f9734(t19318); /* x206088 stalin.sc:28486:979091 */ t19317 = 3; /* x267938 stalin.sc:28486:979075 */ if (!(t19316==t19317)) goto l3928; l3927: /* x206100 */ /* x206099 */ goto l3929; l3928: /* x206106 */ /* x206105 */ /* x206104 stalin.sc:28487:979098 */ /* x206102 stalin.sc:28487:979112 */ t19319 = a32389; /* x206103 stalin.sc:28487:979114 */ t19320 = "Improper LOCAL-ONE-VALUE"; /* x206101 stalin.sc:28487:979099 */ f9705(t19319, t19320); l3929: /* x206081 */ /* x206080 stalin.sc:28488:979145 */ /* x206057 stalin.sc:28492:979332 */ /* x206056 stalin.sc:28492:979340 */ t19304 = "v"; /* x206055 stalin.sc:28492:979333 */ t19155 = f5362(t19304); /* x206060 stalin.sc:28491:979291 */ /* x206059 stalin.sc:28491:979299 */ t19305 = "old-fail"; /* x206058 stalin.sc:28491:979292 */ t19156 = f5362(t19305); /* x206063 stalin.sc:28490:979245 */ /* x206062 stalin.sc:28490:979253 */ t19306 = "return"; /* x206061 stalin.sc:28490:979246 */ t19157 = f5362(t19306); /* x206076 stalin.sc:28489:979182 */ /* x206069 stalin.sc:28489:979186 */ /* x206067 stalin.sc:28489:979189 */ /* x206066 stalin.sc:28489:979200 */ t19309 = a32389; /* x206065 stalin.sc:28489:979190 */ t19307 = f9734(t19309); /* x206068 stalin.sc:28489:979203 */ t19308 = 2; /* x267939 stalin.sc:28489:979187 */ if (!(t19307==t19308)) goto l3925; /* x206072 stalin.sc:28489:979206 */ t19158.tag = STRUCTURE_TYPE24753; t19158.value.structure_type24753 = &t19311; goto l3926; l3925: /* x206075 stalin.sc:28489:979214 */ /* x206074 stalin.sc:28489:979224 */ t19310 = a32389; /* x206073 stalin.sc:28489:979215 */ t19158 = f9723(t19310); l3926: /* x206079 stalin.sc:28488:979155 */ /* x206078 stalin.sc:28488:979166 */ t19312 = a32389; /* x206077 stalin.sc:28488:979156 */ t19159 = f9722(t19312); /* x206054 */ a32391 = t19155; a32392 = t19156; a32393 = t19157; a32394 = t19158; a32395 = t19159; /* x206053 stalin.sc:28494:979402 */ /* x205921 */ t19160 = q66; /* x206052 */ /* x206050 */ /* x205924 */ t19167 = q39; /* x206049 */ /* x205929 */ /* x205927 stalin.sc:28495:979450 */ t19175 = a32393; /* x205928 */ /* x205926 */ t19176.tag = EXTERNAL_SYMBOL_TYPE; t19176.value.external_symbol_type = t19175; t19177.tag = NULL_TYPE; t19171 = f26175(t19176, t19177); /* x206048 */ /* x206046 */ /* x205932 */ t19181 = q242; /* x206045 */ /* x205950 */ /* x205940 */ /* x205936 stalin.sc:28496:979472 */ t19193 = a32391; /* x205939 */ t19194 = &t19197; /* x205935 */ t19195.tag = EXTERNAL_SYMBOL_TYPE; t19195.value.external_symbol_type = t19193; t19196.tag = STRUCTURE_TYPE24753; t19196.value.structure_type24753 = t19194; t19189 = f26175(t19195, t19196); /* x205949 */ /* x205947 */ /* x205943 stalin.sc:28497:979485 */ t19201 = a32392; /* x205946 */ t19202 = &t19205; /* x205942 */ t19203.tag = EXTERNAL_SYMBOL_TYPE; t19203.value.external_symbol_type = t19201; t19204.tag = STRUCTURE_TYPE24753; t19204.value.structure_type24753 = t19202; t19198 = f26175(t19203, t19204); /* x205948 */ /* x205941 */ t19199.tag = STRUCTURE_TYPE24753; t19199.value.structure_type24753 = t19198; t19200.tag = NULL_TYPE; t19190 = f26175(t19199, t19200); /* x205934 */ t19191.tag = STRUCTURE_TYPE24753; t19191.value.structure_type24753 = t19189; t19192.tag = STRUCTURE_TYPE24753; t19192.value.structure_type24753 = t19190; t19185 = f26175(t19191, t19192); /* x206044 */ /* x206018 */ /* x205953 */ t19210 = q42; /* x206017 */ /* x205955 */ t19214 = q506; /* x206016 */ /* x206014 */ /* x205958 */ t19221 = q39; /* x206013 */ /* x205960 */ /* x206012 */ /* x205971 */ /* x205963 */ t19232 = q42; /* x205970 */ /* x205965 */ t19236 = q506; /* x205969 */ /* x205967 stalin.sc:28501:979560 */ t19240 = a32392; /* x205968 */ /* x205966 */ t19241.tag = EXTERNAL_SYMBOL_TYPE; t19241.value.external_symbol_type = t19240; t19242.tag = NULL_TYPE; t19237 = f26175(t19241, t19242); /* x205964 */ t19238.tag = EXTERNAL_SYMBOL_TYPE; t19238.value.external_symbol_type = t19236; t19239.tag = STRUCTURE_TYPE24753; t19239.value.structure_type24753 = t19237; t19233 = f26175(t19238, t19239); /* x205962 */ t19234.tag = EXTERNAL_SYMBOL_TYPE; t19234.value.external_symbol_type = t19232; t19235.tag = STRUCTURE_TYPE24753; t19235.value.structure_type24753 = t19233; t19228 = f26175(t19234, t19235); /* x206011 */ /* x206009 */ /* x205974 stalin.sc:28502:979574 */ t19246 = a32393; /* x206008 */ /* x206006 */ /* x205977 */ t19253 = q240; /* x206005 */ /* x205985 */ /* x205980 */ t19261 = q512; /* x205984 */ /* x205982 stalin.sc:28502:979597 */ t19265 = a32394; /* x205983 */ /* x205981 */ t19266.tag = NULL_TYPE; t19262 = f26175(t19265, t19266); /* x205979 */ t19263.tag = EXTERNAL_SYMBOL_TYPE; t19263.value.external_symbol_type = t19261; t19264.tag = STRUCTURE_TYPE24753; t19264.value.structure_type24753 = t19262; t19257 = f26175(t19263, t19264); /* x206004 */ /* x206002 */ /* x205988 */ t19270 = q95; /* x206001 */ /* x205996 */ t19274 = &t19278; /* x206000 */ /* x205998 stalin.sc:28502:979626 */ t19281 = a32391; /* x205999 */ /* x205997 */ t19282.tag = EXTERNAL_SYMBOL_TYPE; t19282.value.external_symbol_type = t19281; t19283.tag = NULL_TYPE; t19275 = f26175(t19282, t19283); /* x205989 */ t19276.tag = STRUCTURE_TYPE24753; t19276.value.structure_type24753 = t19274; t19277.tag = STRUCTURE_TYPE24753; t19277.value.structure_type24753 = t19275; t19271 = f26175(t19276, t19277); /* x205987 */ t19272.tag = EXTERNAL_SYMBOL_TYPE; t19272.value.external_symbol_type = t19270; t19273.tag = STRUCTURE_TYPE24753; t19273.value.structure_type24753 = t19271; t19267 = f26175(t19272, t19273); /* x206003 */ /* x205986 */ t19268.tag = STRUCTURE_TYPE24753; t19268.value.structure_type24753 = t19267; t19269.tag = NULL_TYPE; t19258 = f26175(t19268, t19269); /* x205978 */ t19259.tag = STRUCTURE_TYPE24753; t19259.value.structure_type24753 = t19257; t19260.tag = STRUCTURE_TYPE24753; t19260.value.structure_type24753 = t19258; t19254 = f26175(t19259, t19260); /* x205976 */ t19255.tag = EXTERNAL_SYMBOL_TYPE; t19255.value.external_symbol_type = t19253; t19256.tag = STRUCTURE_TYPE24753; t19256.value.structure_type24753 = t19254; t19250 = f26175(t19255, t19256); /* x206007 */ /* x205975 */ t19251.tag = STRUCTURE_TYPE24753; t19251.value.structure_type24753 = t19250; t19252.tag = NULL_TYPE; t19247 = f26175(t19251, t19252); /* x205973 */ t19248.tag = EXTERNAL_SYMBOL_TYPE; t19248.value.external_symbol_type = t19246; t19249.tag = STRUCTURE_TYPE24753; t19249.value.structure_type24753 = t19247; t19243 = f26175(t19248, t19249); /* x206010 */ /* x205972 */ t19244.tag = STRUCTURE_TYPE24753; t19244.value.structure_type24753 = t19243; t19245.tag = NULL_TYPE; t19229 = f26175(t19244, t19245); /* x205961 */ t19230.tag = STRUCTURE_TYPE24753; t19230.value.structure_type24753 = t19228; t19231.tag = STRUCTURE_TYPE24753; t19231.value.structure_type24753 = t19229; t19225 = f26175(t19230, t19231); /* x205959 */ t19226.tag = NULL_TYPE; t19227.tag = STRUCTURE_TYPE24753; t19227.value.structure_type24753 = t19225; t19222 = f26175(t19226, t19227); /* x205957 */ t19223.tag = EXTERNAL_SYMBOL_TYPE; t19223.value.external_symbol_type = t19221; t19224.tag = STRUCTURE_TYPE24753; t19224.value.structure_type24753 = t19222; t19218 = f26175(t19223, t19224); /* x206015 */ /* x205956 */ t19219.tag = STRUCTURE_TYPE24753; t19219.value.structure_type24753 = t19218; t19220.tag = NULL_TYPE; t19215 = f26175(t19219, t19220); /* x205954 */ t19216.tag = EXTERNAL_SYMBOL_TYPE; t19216.value.external_symbol_type = t19214; t19217.tag = STRUCTURE_TYPE24753; t19217.value.structure_type24753 = t19215; t19211 = f26175(t19216, t19217); /* x205952 */ t19212.tag = EXTERNAL_SYMBOL_TYPE; t19212.value.external_symbol_type = t19210; t19213.tag = STRUCTURE_TYPE24753; t19213.value.structure_type24753 = t19211; t19206 = f26175(t19212, t19213); /* x206043 */ /* x206029 */ /* x206021 */ t19288 = q42; /* x206028 */ /* x206023 stalin.sc:28503:979647 */ t19292 = a32391; /* x206027 */ /* x206025 stalin.sc:28503:979650 */ t19296 = a32395; /* x206026 */ /* x206024 */ t19297.tag = NULL_TYPE; t19293 = f26175(t19296, t19297); /* x206022 */ t19294.tag = EXTERNAL_SYMBOL_TYPE; t19294.value.external_symbol_type = t19292; t19295.tag = STRUCTURE_TYPE24753; t19295.value.structure_type24753 = t19293; t19289 = f26175(t19294, t19295); /* x206020 */ t19290.tag = EXTERNAL_SYMBOL_TYPE; t19290.value.external_symbol_type = t19288; t19291.tag = STRUCTURE_TYPE24753; t19291.value.structure_type24753 = t19289; t19284 = f26175(t19290, t19291); /* x206042 */ t19285 = &t19298; /* x206019 */ t19286.tag = STRUCTURE_TYPE24753; t19286.value.structure_type24753 = t19284; t19287.tag = STRUCTURE_TYPE24753; t19287.value.structure_type24753 = t19285; t19207 = f26175(t19286, t19287); /* x205951 */ t19208.tag = STRUCTURE_TYPE24753; t19208.value.structure_type24753 = t19206; t19209.tag = STRUCTURE_TYPE24753; t19209.value.structure_type24753 = t19207; t19186 = f26175(t19208, t19209); /* x205933 */ t19187.tag = STRUCTURE_TYPE24753; t19187.value.structure_type24753 = t19185; t19188.tag = STRUCTURE_TYPE24753; t19188.value.structure_type24753 = t19186; t19182 = f26175(t19187, t19188); /* x205931 */ t19183.tag = EXTERNAL_SYMBOL_TYPE; t19183.value.external_symbol_type = t19181; t19184.tag = STRUCTURE_TYPE24753; t19184.value.structure_type24753 = t19182; t19178 = f26175(t19183, t19184); /* x206047 */ /* x205930 */ t19179.tag = STRUCTURE_TYPE24753; t19179.value.structure_type24753 = t19178; t19180.tag = NULL_TYPE; t19172 = f26175(t19179, t19180); /* x205925 */ t19173.tag = STRUCTURE_TYPE24753; t19173.value.structure_type24753 = t19171; t19174.tag = STRUCTURE_TYPE24753; t19174.value.structure_type24753 = t19172; t19168 = f26175(t19173, t19174); /* x205923 */ t19169.tag = EXTERNAL_SYMBOL_TYPE; t19169.value.external_symbol_type = t19167; t19170.tag = STRUCTURE_TYPE24753; t19170.value.structure_type24753 = t19168; t19164 = f26175(t19169, t19170); /* x206051 */ /* x205922 */ t19165.tag = STRUCTURE_TYPE24753; t19165.value.structure_type24753 = t19164; t19166.tag = NULL_TYPE; t19161 = f26175(t19165, t19166); /* x205920 */ t19162.tag = EXTERNAL_SYMBOL_TYPE; t19162.value.external_symbol_type = t19160; t19163.tag = STRUCTURE_TYPE24753; t19163.value.structure_type24753 = t19161; return f26175(t19162, t19163);} /* [inside top level 18455] */ struct structure_type24753 *f18455(struct w49 a32382) {char *a32384; /* OLD-FAIL */ char *a32385; /* RETURN */ struct w49 a32386; /* S2 */ struct w49 a32387; /* S1 */ char *t19321; char *t19322; struct w49 t19323; struct w49 t19324; char *t19325; struct structure_type24753 *t19326; struct w49 t19327; struct w49 t19328; struct structure_type24753 *t19329; struct w49 t19330; struct w49 t19331; char *t19332; struct structure_type24753 *t19333; struct w49 t19334; struct w49 t19335; struct structure_type24753 *t19336; struct structure_type24753 *t19337; struct w49 t19338; struct w49 t19339; char *t19340; struct w49 t19341; struct w49 t19342; struct structure_type24753 *t19343; struct w49 t19344; struct w49 t19345; char *t19346; struct structure_type24753 *t19347; struct w49 t19348; struct w49 t19349; struct structure_type24753 *t19350; struct structure_type24753 *t19351; struct w49 t19352; struct w49 t19353; struct structure_type24753 *t19354; struct w49 t19355; struct w49 t19356; char *t19357; struct structure_type24753 *t19358; struct w49 t19359; struct w49 t19360; struct structure_type24753 *t19362; struct structure_type24753 *t19363; struct w49 t19364; struct w49 t19365; char *t19366; struct structure_type24753 *t19367; struct w49 t19368; struct w49 t19369; char *t19370; struct structure_type24753 *t19371; struct w49 t19372; struct w49 t19373; struct structure_type24753 *t19374; struct w49 t19375; struct w49 t19376; char *t19377; struct structure_type24753 *t19378; struct w49 t19379; struct w49 t19380; struct structure_type24753 *t19381; struct w49 t19382; struct w49 t19383; struct structure_type24753 *t19384; struct structure_type24753 *t19385; struct w49 t19386; struct w49 t19387; char *t19388; struct structure_type24753 *t19389; struct w49 t19390; struct w49 t19391; char *t19392; struct structure_type24753 *t19393; struct w49 t19394; struct w49 t19395; char *t19396; struct w49 t19397; struct w49 t19398; struct structure_type24753 *t19399; struct w49 t19400; struct w49 t19401; char *t19402; struct structure_type24753 *t19403; struct w49 t19404; struct w49 t19405; struct w49 t19406; struct w49 t19407; struct structure_type24753 *t19408; struct w49 t19409; struct w49 t19410; char *t19411; struct structure_type24753 *t19412; struct w49 t19413; struct w49 t19414; struct structure_type24753 *t19415; struct structure_type24753 *t19416; struct w49 t19417; struct w49 t19418; struct structure_type24753 *t19419; struct w49 t19420; struct w49 t19421; char *t19422; struct structure_type24753 *t19423; struct w49 t19424; struct w49 t19425; struct w49 t19426; struct w49 t19427; struct structure_type24753 *t19428; struct structure_type24753 *t19429; struct w49 t19430; struct w49 t19431; char *t19432; struct structure_type24753 *t19433; struct w49 t19434; struct w49 t19435; char *t19436; struct structure_type24753 *t19437; struct w49 t19438; struct w49 t19439; char *t19440; struct w49 t19441; struct w49 t19442; char *t19444; char *t19445; int t19446; int t19447; struct w49 t19448; struct w49 t19449; struct w49 t19451; int t19452; int t19453; struct w49 t19454; int t19455; int t19456; struct w49 t19457; struct w49 t19458; char *t19459; /* x205915 */ /* x205914 stalin.sc:28469:978398 */ /* x205905 stalin.sc:28469:978406 */ /* x205904 stalin.sc:28469:978410 */ /* x205902 stalin.sc:28469:978413 */ /* x205901 stalin.sc:28469:978424 */ t19454 = a32382; /* x205900 stalin.sc:28469:978414 */ t19452 = f9734(t19454); /* x205903 stalin.sc:28469:978427 */ t19453 = 2; /* x267940 stalin.sc:28469:978411 */ if (t19452==t19453) goto l3934; /* x205896 */ /* x205894 stalin.sc:28469:978433 */ /* x205893 stalin.sc:28469:978444 */ t19457 = a32382; /* x205892 stalin.sc:28469:978434 */ t19455 = f9734(t19457); /* x205895 stalin.sc:28469:978447 */ t19456 = 3; /* x267941 stalin.sc:28469:978431 */ if (!(t19455==t19456)) goto l3935; l3934: /* x205907 */ /* x205906 */ goto l3936; l3935: /* x205913 */ /* x205912 */ /* x205911 stalin.sc:28470:978454 */ /* x205909 stalin.sc:28470:978468 */ t19458 = a32382; /* x205910 stalin.sc:28470:978470 */ t19459 = "Improper ONE-VALUE"; /* x205908 stalin.sc:28470:978455 */ f9705(t19458, t19459); l3936: /* x205888 */ /* x205887 stalin.sc:28471:978495 */ /* x205867 stalin.sc:28474:978641 */ /* x205866 stalin.sc:28474:978649 */ t19444 = "old-fail"; /* x205865 stalin.sc:28474:978642 */ t19321 = f5362(t19444); /* x205870 stalin.sc:28473:978595 */ /* x205869 stalin.sc:28473:978603 */ t19445 = "return"; /* x205868 stalin.sc:28473:978596 */ t19322 = f5362(t19445); /* x205883 stalin.sc:28472:978532 */ /* x205876 stalin.sc:28472:978536 */ /* x205874 stalin.sc:28472:978539 */ /* x205873 stalin.sc:28472:978550 */ t19448 = a32382; /* x205872 stalin.sc:28472:978540 */ t19446 = f9734(t19448); /* x205875 stalin.sc:28472:978553 */ t19447 = 2; /* x267942 stalin.sc:28472:978537 */ if (!(t19446==t19447)) goto l3932; /* x205879 stalin.sc:28472:978556 */ t19323.tag = STRUCTURE_TYPE24753; t19323.value.structure_type24753 = &t19450; goto l3933; l3932: /* x205882 stalin.sc:28472:978564 */ /* x205881 stalin.sc:28472:978574 */ t19449 = a32382; /* x205880 stalin.sc:28472:978565 */ t19323 = f9723(t19449); l3933: /* x205886 stalin.sc:28471:978505 */ /* x205885 stalin.sc:28471:978516 */ t19451 = a32382; /* x205884 stalin.sc:28471:978506 */ t19324 = f9722(t19451); /* x205864 */ a32384 = t19321; a32385 = t19322; a32386 = t19323; a32387 = t19324; /* x205863 stalin.sc:28476:978716 */ /* x205761 */ t19325 = q66; /* x205862 */ /* x205860 */ /* x205764 */ t19332 = q39; /* x205859 */ /* x205769 */ /* x205767 stalin.sc:28477:978764 */ t19340 = a32385; /* x205768 */ /* x205766 */ t19341.tag = EXTERNAL_SYMBOL_TYPE; t19341.value.external_symbol_type = t19340; t19342.tag = NULL_TYPE; t19336 = f26175(t19341, t19342); /* x205858 */ /* x205856 */ /* x205772 */ t19346 = q242; /* x205855 */ /* x205782 */ /* x205780 */ /* x205776 stalin.sc:28478:978786 */ t19357 = a32384; /* x205779 */ t19358 = &t19361; /* x205775 */ t19359.tag = EXTERNAL_SYMBOL_TYPE; t19359.value.external_symbol_type = t19357; t19360.tag = STRUCTURE_TYPE24753; t19360.value.structure_type24753 = t19358; t19354 = f26175(t19359, t19360); /* x205781 */ /* x205774 */ t19355.tag = STRUCTURE_TYPE24753; t19355.value.structure_type24753 = t19354; t19356.tag = NULL_TYPE; t19350 = f26175(t19355, t19356); /* x205854 */ /* x205820 */ /* x205785 */ t19366 = q42; /* x205819 */ /* x205787 */ t19370 = q506; /* x205818 */ /* x205816 */ /* x205790 */ t19377 = q39; /* x205815 */ /* x205792 */ /* x205814 */ /* x205803 */ /* x205795 */ t19388 = q42; /* x205802 */ /* x205797 */ t19392 = q506; /* x205801 */ /* x205799 stalin.sc:28479:978843 */ t19396 = a32384; /* x205800 */ /* x205798 */ t19397.tag = EXTERNAL_SYMBOL_TYPE; t19397.value.external_symbol_type = t19396; t19398.tag = NULL_TYPE; t19393 = f26175(t19397, t19398); /* x205796 */ t19394.tag = EXTERNAL_SYMBOL_TYPE; t19394.value.external_symbol_type = t19392; t19395.tag = STRUCTURE_TYPE24753; t19395.value.structure_type24753 = t19393; t19389 = f26175(t19394, t19395); /* x205794 */ t19390.tag = EXTERNAL_SYMBOL_TYPE; t19390.value.external_symbol_type = t19388; t19391.tag = STRUCTURE_TYPE24753; t19391.value.structure_type24753 = t19389; t19384 = f26175(t19390, t19391); /* x205813 */ /* x205811 */ /* x205806 stalin.sc:28479:978855 */ t19402 = a32385; /* x205810 */ /* x205808 stalin.sc:28479:978863 */ t19406 = a32386; /* x205809 */ /* x205807 */ t19407.tag = NULL_TYPE; t19403 = f26175(t19406, t19407); /* x205805 */ t19404.tag = EXTERNAL_SYMBOL_TYPE; t19404.value.external_symbol_type = t19402; t19405.tag = STRUCTURE_TYPE24753; t19405.value.structure_type24753 = t19403; t19399 = f26175(t19404, t19405); /* x205812 */ /* x205804 */ t19400.tag = STRUCTURE_TYPE24753; t19400.value.structure_type24753 = t19399; t19401.tag = NULL_TYPE; t19385 = f26175(t19400, t19401); /* x205793 */ t19386.tag = STRUCTURE_TYPE24753; t19386.value.structure_type24753 = t19384; t19387.tag = STRUCTURE_TYPE24753; t19387.value.structure_type24753 = t19385; t19381 = f26175(t19386, t19387); /* x205791 */ t19382.tag = NULL_TYPE; t19383.tag = STRUCTURE_TYPE24753; t19383.value.structure_type24753 = t19381; t19378 = f26175(t19382, t19383); /* x205789 */ t19379.tag = EXTERNAL_SYMBOL_TYPE; t19379.value.external_symbol_type = t19377; t19380.tag = STRUCTURE_TYPE24753; t19380.value.structure_type24753 = t19378; t19374 = f26175(t19379, t19380); /* x205817 */ /* x205788 */ t19375.tag = STRUCTURE_TYPE24753; t19375.value.structure_type24753 = t19374; t19376.tag = NULL_TYPE; t19371 = f26175(t19375, t19376); /* x205786 */ t19372.tag = EXTERNAL_SYMBOL_TYPE; t19372.value.external_symbol_type = t19370; t19373.tag = STRUCTURE_TYPE24753; t19373.value.structure_type24753 = t19371; t19367 = f26175(t19372, t19373); /* x205784 */ t19368.tag = EXTERNAL_SYMBOL_TYPE; t19368.value.external_symbol_type = t19366; t19369.tag = STRUCTURE_TYPE24753; t19369.value.structure_type24753 = t19367; t19362 = f26175(t19368, t19369); /* x205853 */ /* x205851 */ /* x205823 */ t19411 = q242; /* x205850 */ /* x205834 */ /* x205832 */ /* x205827 */ t19422 = q510; /* x205831 */ /* x205829 stalin.sc:28480:978886 */ t19426 = a32387; /* x205830 */ /* x205828 */ t19427.tag = NULL_TYPE; t19423 = f26175(t19426, t19427); /* x205826 */ t19424.tag = EXTERNAL_SYMBOL_TYPE; t19424.value.external_symbol_type = t19422; t19425.tag = STRUCTURE_TYPE24753; t19425.value.structure_type24753 = t19423; t19419 = f26175(t19424, t19425); /* x205833 */ /* x205825 */ t19420.tag = STRUCTURE_TYPE24753; t19420.value.structure_type24753 = t19419; t19421.tag = NULL_TYPE; t19415 = f26175(t19420, t19421); /* x205849 */ /* x205845 */ /* x205837 */ t19432 = q42; /* x205844 */ /* x205839 */ t19436 = q506; /* x205843 */ /* x205841 stalin.sc:28481:978911 */ t19440 = a32384; /* x205842 */ /* x205840 */ t19441.tag = EXTERNAL_SYMBOL_TYPE; t19441.value.external_symbol_type = t19440; t19442.tag = NULL_TYPE; t19437 = f26175(t19441, t19442); /* x205838 */ t19438.tag = EXTERNAL_SYMBOL_TYPE; t19438.value.external_symbol_type = t19436; t19439.tag = STRUCTURE_TYPE24753; t19439.value.structure_type24753 = t19437; t19433 = f26175(t19438, t19439); /* x205836 */ t19434.tag = EXTERNAL_SYMBOL_TYPE; t19434.value.external_symbol_type = t19432; t19435.tag = STRUCTURE_TYPE24753; t19435.value.structure_type24753 = t19433; t19428 = f26175(t19434, t19435); /* x205848 */ t19429 = &t19443; /* x205835 */ t19430.tag = STRUCTURE_TYPE24753; t19430.value.structure_type24753 = t19428; t19431.tag = STRUCTURE_TYPE24753; t19431.value.structure_type24753 = t19429; t19416 = f26175(t19430, t19431); /* x205824 */ t19417.tag = STRUCTURE_TYPE24753; t19417.value.structure_type24753 = t19415; t19418.tag = STRUCTURE_TYPE24753; t19418.value.structure_type24753 = t19416; t19412 = f26175(t19417, t19418); /* x205822 */ t19413.tag = EXTERNAL_SYMBOL_TYPE; t19413.value.external_symbol_type = t19411; t19414.tag = STRUCTURE_TYPE24753; t19414.value.structure_type24753 = t19412; t19408 = f26175(t19413, t19414); /* x205852 */ /* x205821 */ t19409.tag = STRUCTURE_TYPE24753; t19409.value.structure_type24753 = t19408; t19410.tag = NULL_TYPE; t19363 = f26175(t19409, t19410); /* x205783 */ t19364.tag = STRUCTURE_TYPE24753; t19364.value.structure_type24753 = t19362; t19365.tag = STRUCTURE_TYPE24753; t19365.value.structure_type24753 = t19363; t19351 = f26175(t19364, t19365); /* x205773 */ t19352.tag = STRUCTURE_TYPE24753; t19352.value.structure_type24753 = t19350; t19353.tag = STRUCTURE_TYPE24753; t19353.value.structure_type24753 = t19351; t19347 = f26175(t19352, t19353); /* x205771 */ t19348.tag = EXTERNAL_SYMBOL_TYPE; t19348.value.external_symbol_type = t19346; t19349.tag = STRUCTURE_TYPE24753; t19349.value.structure_type24753 = t19347; t19343 = f26175(t19348, t19349); /* x205857 */ /* x205770 */ t19344.tag = STRUCTURE_TYPE24753; t19344.value.structure_type24753 = t19343; t19345.tag = NULL_TYPE; t19337 = f26175(t19344, t19345); /* x205765 */ t19338.tag = STRUCTURE_TYPE24753; t19338.value.structure_type24753 = t19336; t19339.tag = STRUCTURE_TYPE24753; t19339.value.structure_type24753 = t19337; t19333 = f26175(t19338, t19339); /* x205763 */ t19334.tag = EXTERNAL_SYMBOL_TYPE; t19334.value.external_symbol_type = t19332; t19335.tag = STRUCTURE_TYPE24753; t19335.value.structure_type24753 = t19333; t19329 = f26175(t19334, t19335); /* x205861 */ /* x205762 */ t19330.tag = STRUCTURE_TYPE24753; t19330.value.structure_type24753 = t19329; t19331.tag = NULL_TYPE; t19326 = f26175(t19330, t19331); /* x205760 */ t19327.tag = EXTERNAL_SYMBOL_TYPE; t19327.value.external_symbol_type = t19325; t19328.tag = STRUCTURE_TYPE24753; t19328.value.structure_type24753 = t19326; return f26175(t19327, t19328);} /* [inside top level 18453] */ struct structure_type24753 *f18453(struct w49 a32379) {char *a32380; /* OLD-FAIL */ char *a32381; /* RETURN */ struct w49 a41416; /* S */ char *t19460; char *t19461; char *t19462; struct structure_type24753 *t19463; struct w49 t19464; struct w49 t19465; struct structure_type24753 *t19466; struct w49 t19467; struct w49 t19468; char *t19469; struct structure_type24753 *t19470; struct w49 t19471; struct w49 t19472; struct structure_type24753 *t19473; struct structure_type24753 *t19474; struct w49 t19475; struct w49 t19476; char *t19477; struct w49 t19478; struct w49 t19479; struct structure_type24753 *t19480; struct w49 t19481; struct w49 t19482; char *t19483; struct structure_type24753 *t19484; struct w49 t19485; struct w49 t19486; struct structure_type24753 *t19487; struct structure_type24753 *t19488; struct w49 t19489; struct w49 t19490; struct structure_type24753 *t19491; struct w49 t19492; struct w49 t19493; char *t19494; struct structure_type24753 *t19495; struct w49 t19496; struct w49 t19497; struct structure_type24753 *t19499; struct structure_type24753 *t19500; struct w49 t19501; struct w49 t19502; char *t19503; struct structure_type24753 *t19504; struct w49 t19505; struct w49 t19506; char *t19507; struct structure_type24753 *t19508; struct w49 t19509; struct w49 t19510; struct structure_type24753 *t19511; struct w49 t19512; struct w49 t19513; char *t19514; struct structure_type24753 *t19515; struct w49 t19516; struct w49 t19517; struct structure_type24753 *t19518; struct w49 t19519; struct w49 t19520; struct structure_type24753 *t19521; struct structure_type24753 *t19522; struct w49 t19523; struct w49 t19524; char *t19525; struct structure_type24753 *t19526; struct w49 t19527; struct w49 t19528; char *t19529; struct structure_type24753 *t19530; struct w49 t19531; struct w49 t19532; char *t19533; struct w49 t19534; struct w49 t19535; struct structure_type24753 *t19536; struct w49 t19537; struct w49 t19538; char *t19539; struct structure_type24753 *t19540; struct w49 t19541; struct w49 t19542; struct structure_type24753 *t19544; struct structure_type24753 *t19545; struct w49 t19546; struct w49 t19547; char *t19548; struct w49 t19549; struct w49 t19550; struct w12224 t19551; struct structure_type24753 *t19552; struct w49 t19553; struct w49 t19554; struct w49 t19555; struct w49 t19556; char *t19559; char *t19560; /* x205755 stalin.sc:28458:978022 */ /* x205751 stalin.sc:28459:978082 */ /* x205750 stalin.sc:28459:978090 */ t19559 = "old-fail"; /* x205749 stalin.sc:28459:978083 */ t19460 = f5362(t19559); /* x205754 stalin.sc:28458:978036 */ /* x205753 stalin.sc:28458:978044 */ t19560 = "return"; /* x205752 stalin.sc:28458:978037 */ t19461 = f5362(t19560); /* x205748 */ a32380 = t19460; a32381 = t19461; /* x205747 stalin.sc:28461:978151 */ /* x205661 */ t19462 = q66; /* x205746 */ /* x205744 */ /* x205664 */ t19469 = q39; /* x205743 */ /* x205669 */ /* x205667 stalin.sc:28462:978199 */ t19477 = a32381; /* x205668 */ /* x205666 */ t19478.tag = EXTERNAL_SYMBOL_TYPE; t19478.value.external_symbol_type = t19477; t19479.tag = NULL_TYPE; t19473 = f26175(t19478, t19479); /* x205742 */ /* x205740 */ /* x205672 */ t19483 = q242; /* x205739 */ /* x205682 */ /* x205680 */ /* x205676 stalin.sc:28463:978221 */ t19494 = a32380; /* x205679 */ t19495 = &t19498; /* x205675 */ t19496.tag = EXTERNAL_SYMBOL_TYPE; t19496.value.external_symbol_type = t19494; t19497.tag = STRUCTURE_TYPE24753; t19497.value.structure_type24753 = t19495; t19491 = f26175(t19496, t19497); /* x205681 */ /* x205674 */ t19492.tag = STRUCTURE_TYPE24753; t19492.value.structure_type24753 = t19491; t19493.tag = NULL_TYPE; t19487 = f26175(t19492, t19493); /* x205738 */ /* x205719 */ /* x205685 */ t19503 = q42; /* x205718 */ /* x205687 */ t19507 = q506; /* x205717 */ /* x205715 */ /* x205690 */ t19514 = q39; /* x205714 */ /* x205692 */ /* x205713 */ /* x205703 */ /* x205695 */ t19525 = q42; /* x205702 */ /* x205697 */ t19529 = q506; /* x205701 */ /* x205699 stalin.sc:28464:978278 */ t19533 = a32380; /* x205700 */ /* x205698 */ t19534.tag = EXTERNAL_SYMBOL_TYPE; t19534.value.external_symbol_type = t19533; t19535.tag = NULL_TYPE; t19530 = f26175(t19534, t19535); /* x205696 */ t19531.tag = EXTERNAL_SYMBOL_TYPE; t19531.value.external_symbol_type = t19529; t19532.tag = STRUCTURE_TYPE24753; t19532.value.structure_type24753 = t19530; t19526 = f26175(t19531, t19532); /* x205694 */ t19527.tag = EXTERNAL_SYMBOL_TYPE; t19527.value.external_symbol_type = t19525; t19528.tag = STRUCTURE_TYPE24753; t19528.value.structure_type24753 = t19526; t19521 = f26175(t19527, t19528); /* x205712 */ /* x205710 */ /* x205706 stalin.sc:28464:978290 */ t19539 = a32381; /* x205709 */ t19540 = &t19543; /* x205705 */ t19541.tag = EXTERNAL_SYMBOL_TYPE; t19541.value.external_symbol_type = t19539; t19542.tag = STRUCTURE_TYPE24753; t19542.value.structure_type24753 = t19540; t19536 = f26175(t19541, t19542); /* x205711 */ /* x205704 */ t19537.tag = STRUCTURE_TYPE24753; t19537.value.structure_type24753 = t19536; t19538.tag = NULL_TYPE; t19522 = f26175(t19537, t19538); /* x205693 */ t19523.tag = STRUCTURE_TYPE24753; t19523.value.structure_type24753 = t19521; t19524.tag = STRUCTURE_TYPE24753; t19524.value.structure_type24753 = t19522; t19518 = f26175(t19523, t19524); /* x205691 */ t19519.tag = NULL_TYPE; t19520.tag = STRUCTURE_TYPE24753; t19520.value.structure_type24753 = t19518; t19515 = f26175(t19519, t19520); /* x205689 */ t19516.tag = EXTERNAL_SYMBOL_TYPE; t19516.value.external_symbol_type = t19514; t19517.tag = STRUCTURE_TYPE24753; t19517.value.structure_type24753 = t19515; t19511 = f26175(t19516, t19517); /* x205716 */ /* x205688 */ t19512.tag = STRUCTURE_TYPE24753; t19512.value.structure_type24753 = t19511; t19513.tag = NULL_TYPE; t19508 = f26175(t19512, t19513); /* x205686 */ t19509.tag = EXTERNAL_SYMBOL_TYPE; t19509.value.external_symbol_type = t19507; t19510.tag = STRUCTURE_TYPE24753; t19510.value.structure_type24753 = t19508; t19504 = f26175(t19509, t19510); /* x205684 */ t19505.tag = EXTERNAL_SYMBOL_TYPE; t19505.value.external_symbol_type = t19503; t19506.tag = STRUCTURE_TYPE24753; t19506.value.structure_type24753 = t19504; t19499 = f26175(t19505, t19506); /* x205737 */ /* x205731 */ /* x205722 */ t19548 = q239; /* x205730 */ /* x205729 */ /* x205728 stalin.sc:28465:978319 */ /* x205727 stalin.sc:28465:978330 */ /* x205726 stalin.sc:28465:978339 */ t19555 = a32379; /* x205725 stalin.sc:28465:978331 */ a41416 = t19555; /* x299776 stalin.sc:7008:242336 */ /* x299775 stalin.sc:7008:242344 */ t19556 = a41416; /* x299774 stalin.sc:7008:242337 */ t19554 = f9720(t19556); /* x205724 stalin.sc:28465:978320 */ t19551 = f9772(t19554); /* x205723 */ t19553.tag = STRUCTURE_TYPE24753; t19553.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t19553.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18454]"); out_of_memory_error();} t19553.value.structure_type24753->s0.tag = NULL_TYPE; t19553.value.structure_type24753->s1.tag = NULL_TYPE; t19552 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t19552==NULL) {backtrace_internal("[inside top level 18454]"); out_of_memory_error();} t19552->s0 = *((struct w49 *)(&t19551)); t19552->s1 = t19553; t19549 = f26254(t19552); /* x205721 */ t19550.tag = EXTERNAL_SYMBOL_TYPE; t19550.value.external_symbol_type = t19548; t19544 = f26175(t19550, t19549); /* x205736 */ t19545 = &t19557; /* x205720 */ t19546.tag = STRUCTURE_TYPE24753; t19546.value.structure_type24753 = t19544; t19547.tag = STRUCTURE_TYPE24753; t19547.value.structure_type24753 = t19545; t19500 = f26175(t19546, t19547); /* x205683 */ t19501.tag = STRUCTURE_TYPE24753; t19501.value.structure_type24753 = t19499; t19502.tag = STRUCTURE_TYPE24753; t19502.value.structure_type24753 = t19500; t19488 = f26175(t19501, t19502); /* x205673 */ t19489.tag = STRUCTURE_TYPE24753; t19489.value.structure_type24753 = t19487; t19490.tag = STRUCTURE_TYPE24753; t19490.value.structure_type24753 = t19488; t19484 = f26175(t19489, t19490); /* x205671 */ t19485.tag = EXTERNAL_SYMBOL_TYPE; t19485.value.external_symbol_type = t19483; t19486.tag = STRUCTURE_TYPE24753; t19486.value.structure_type24753 = t19484; t19480 = f26175(t19485, t19486); /* x205741 */ /* x205670 */ t19481.tag = STRUCTURE_TYPE24753; t19481.value.structure_type24753 = t19480; t19482.tag = NULL_TYPE; t19474 = f26175(t19481, t19482); /* x205665 */ t19475.tag = STRUCTURE_TYPE24753; t19475.value.structure_type24753 = t19473; t19476.tag = STRUCTURE_TYPE24753; t19476.value.structure_type24753 = t19474; t19470 = f26175(t19475, t19476); /* x205663 */ t19471.tag = EXTERNAL_SYMBOL_TYPE; t19471.value.external_symbol_type = t19469; t19472.tag = STRUCTURE_TYPE24753; t19472.value.structure_type24753 = t19470; t19466 = f26175(t19471, t19472); /* x205745 */ /* x205662 */ t19467.tag = STRUCTURE_TYPE24753; t19467.value.structure_type24753 = t19466; t19468.tag = NULL_TYPE; t19463 = f26175(t19467, t19468); /* x205660 */ t19464.tag = EXTERNAL_SYMBOL_TYPE; t19464.value.external_symbol_type = t19462; t19465.tag = STRUCTURE_TYPE24753; t19465.value.structure_type24753 = t19463; return f26175(t19464, t19465);} /* [inside top level 18449] */ struct w49 f18449(struct w49 a32378) {struct w49 r18449; struct w49 a41411; /* S */ struct w49 a41412; /* S */ struct w49 a41413; /* S */ struct w49 a41414; /* S */ struct w49 a41415; /* S */ struct w49 t19561; struct w49 t19562; struct w49 t19563; struct w49 t19564; struct w49 t19565; struct w49 t19566; struct w49 t19567; struct w49 t19568; char *t19569; struct structure_type24753 *t19570; struct w49 t19571; struct w49 t19572; struct structure_type24753 *t19573; struct structure_type24753 *t19574; struct structure_type24753 *t19575; struct w49 t19576; struct w49 t19577; struct w49 t19579; struct structure_type24753 *t19580; struct w49 t19581; struct w49 t19582; struct structure_type24753 *t19583; struct w49 t19584; struct w49 t19585; char *t19586; struct w49 t19587; struct w49 t19588; struct w12224 t19589; struct structure_type24753 *t19590; struct w49 t19591; struct w49 t19592; struct w49 t19593; struct w49 t19594; struct w49 t19595; struct w49 t19596; struct w49 t19597; /* x205655 stalin.sc:28451:977784 */ /* x205605 stalin.sc:28451:977791 */ /* x205604 stalin.sc:28451:977801 */ /* x205603 stalin.sc:28451:977810 */ t19562 = a32378; /* x205602 stalin.sc:28451:977802 */ a41415 = t19562; /* x299772 stalin.sc:7008:242336 */ /* x299771 stalin.sc:7008:242344 */ t19563 = a41415; /* x299770 stalin.sc:7008:242337 */ t19561 = f9720(t19563); /* x205601 stalin.sc:28451:977792 */ if (f9739(t19561)==FALSE_TYPE) goto l3939; /* x205610 */ /* x205609 */ /* x205608 stalin.sc:28451:977814 */ r18449.tag = STRUCTURE_TYPE24753; r18449.value.structure_type24753 = &t19598; return r18449; l3939: /* x205654 */ /* x205617 stalin.sc:28452:977832 */ /* x205616 stalin.sc:28452:977842 */ /* x205615 stalin.sc:28452:977851 */ /* x205614 stalin.sc:28452:977860 */ t19567 = a32378; /* x205613 stalin.sc:28452:977852 */ a41414 = t19567; /* x299768 stalin.sc:7008:242336 */ /* x299767 stalin.sc:7008:242344 */ t19568 = a41414; /* x299766 stalin.sc:7008:242337 */ t19565 = f9720(t19568); /* x205612 stalin.sc:28452:977843 */ a41413 = t19565; /* x299764 stalin.sc:7008:242336 */ /* x299763 stalin.sc:7008:242344 */ t19566 = a41413; /* x299762 stalin.sc:7008:242337 */ t19564 = f9720(t19566); /* x205611 stalin.sc:28452:977833 */ if (f9739(t19564)==FALSE_TYPE) goto l3941; /* x205622 */ /* x205621 */ /* x205620 stalin.sc:28452:977865 */ /* x205619 stalin.sc:28452:977876 */ t19597 = a32378; /* x205618 stalin.sc:28452:977866 */ return f9722(t19597); l3941: /* x205653 */ /* x205652 */ /* x205651 stalin.sc:28453:977894 */ /* x205624 */ t19569 = q43; /* x205650 */ /* x205628 */ t19574 = &t19578; /* x205649 */ /* x205632 stalin.sc:28454:977917 */ /* x205631 stalin.sc:28454:977928 */ t19582 = a32378; /* x205630 stalin.sc:28454:977918 */ t19579 = f9722(t19582); /* x205648 */ /* x205646 */ /* x205635 */ t19586 = q505; /* x205645 */ /* x205644 */ /* x205643 stalin.sc:28455:977946 */ /* x205642 stalin.sc:28455:977957 */ /* x205641 stalin.sc:28455:977966 */ /* x205640 stalin.sc:28455:977975 */ t19595 = a32378; /* x205639 stalin.sc:28455:977967 */ a41412 = t19595; /* x299760 stalin.sc:7008:242336 */ /* x299759 stalin.sc:7008:242344 */ t19596 = a41412; /* x299758 stalin.sc:7008:242337 */ t19593 = f9720(t19596); /* x205638 stalin.sc:28455:977958 */ a41411 = t19593; /* x299756 stalin.sc:7008:242336 */ /* x299755 stalin.sc:7008:242344 */ t19594 = a41411; /* x299754 stalin.sc:7008:242337 */ t19592 = f9720(t19594); /* x205637 stalin.sc:28455:977947 */ t19589 = f9772(t19592); /* x205636 */ t19591.tag = STRUCTURE_TYPE24753; t19591.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t19591.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18452]"); out_of_memory_error();} t19591.value.structure_type24753->s0.tag = NULL_TYPE; t19591.value.structure_type24753->s1.tag = NULL_TYPE; t19590 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t19590==NULL) {backtrace_internal("[inside top level 18452]"); out_of_memory_error();} t19590->s0 = *((struct w49 *)(&t19589)); t19590->s1 = t19591; t19587 = f26254(t19590); /* x205634 */ t19588.tag = EXTERNAL_SYMBOL_TYPE; t19588.value.external_symbol_type = t19586; t19583 = f26175(t19588, t19587); /* x205647 */ /* x205633 */ t19584.tag = STRUCTURE_TYPE24753; t19584.value.structure_type24753 = t19583; t19585.tag = NULL_TYPE; t19580 = f26175(t19584, t19585); /* x205629 */ t19581.tag = STRUCTURE_TYPE24753; t19581.value.structure_type24753 = t19580; t19575 = f26175(t19579, t19581); /* x205625 */ t19576.tag = STRUCTURE_TYPE24753; t19576.value.structure_type24753 = t19574; t19577.tag = STRUCTURE_TYPE24753; t19577.value.structure_type24753 = t19575; t19570 = f26175(t19576, t19577); /* x205623 */ t19571.tag = EXTERNAL_SYMBOL_TYPE; t19571.value.external_symbol_type = t19569; t19572.tag = STRUCTURE_TYPE24753; t19572.value.structure_type24753 = t19570; t19573 = f26175(t19571, t19572); r18449.tag = STRUCTURE_TYPE24753; r18449.value.structure_type24753 = t19573; return r18449;} /* [inside top level 18447] */ struct structure_type24753 *f18447(struct w49 a32376) {char *a32377; /* LOOP */ struct w49 a41420; /* S */ struct w49 a41421; /* S */ char *t19599; char *t19600; struct structure_type24753 *t19601; struct w49 t19602; struct w49 t19603; struct structure_type24753 *t19604; struct structure_type24753 *t19605; struct w49 t19606; struct w49 t19607; char *t19608; struct structure_type24753 *t19609; struct w49 t19610; struct w49 t19611; struct structure_type24753 *t19612; struct structure_type24753 *t19613; struct w49 t19614; struct w49 t19615; char *t19616; struct w49 t19617; struct w49 t19618; struct structure_type24753 *t19619; struct w49 t19620; struct w49 t19621; char *t19622; struct structure_type24753 *t19623; struct w49 t19624; struct w49 t19625; struct w49 t19626; struct w49 t19627; struct w49 t19628; struct w12224 t19629; struct structure_type24753 *t19630; struct structure_type24753 *t19631; struct w49 t19632; struct w49 t19633; struct w49 t19634; struct w49 t19635; struct w49 t19636; struct w49 t19637; struct structure_type24753 *t19638; struct w49 t19639; struct w49 t19640; char *t19641; struct w49 t19642; struct w49 t19643; struct structure_type24753 *t19644; struct w49 t19645; struct w49 t19646; char *t19647; struct w49 t19648; struct w49 t19649; char *t19650; /* x205596 stalin.sc:28443:977569 */ /* x205595 stalin.sc:28443:977581 */ /* x205594 stalin.sc:28443:977589 */ t19650 = "loop"; /* x205593 stalin.sc:28443:977582 */ t19599 = f5362(t19650); /* x205592 */ a32377 = t19599; /* x205591 stalin.sc:28445:977635 */ /* x205545 */ t19600 = q239; /* x205590 */ /* x205582 */ /* x205548 */ t19608 = q97; /* x205581 */ /* x205553 */ /* x205551 stalin.sc:28445:977653 */ t19616 = a32377; /* x205552 */ /* x205550 */ t19617.tag = EXTERNAL_SYMBOL_TYPE; t19617.value.external_symbol_type = t19616; t19618.tag = NULL_TYPE; t19612 = f26175(t19617, t19618); /* x205580 */ /* x205578 */ /* x205556 */ t19622 = q493; /* x205577 */ /* x205560 stalin.sc:28446:977671 */ /* x205559 stalin.sc:28446:977682 */ t19628 = a32376; /* x205558 stalin.sc:28446:977672 */ t19626 = f9722(t19628); /* x205576 */ /* x205575 */ /* x205573 */ /* x205571 stalin.sc:28447:977729 */ t19641 = a32377; /* x205572 */ /* x205570 */ t19642.tag = EXTERNAL_SYMBOL_TYPE; t19642.value.external_symbol_type = t19641; t19643.tag = NULL_TYPE; t19638 = f26175(t19642, t19643); /* x205574 */ /* x205569 */ t19639.tag = STRUCTURE_TYPE24753; t19639.value.structure_type24753 = t19638; t19640.tag = NULL_TYPE; t19630 = f26175(t19639, t19640); /* x205568 stalin.sc:28447:977693 */ /* x205567 stalin.sc:28447:977704 */ /* x205566 stalin.sc:28447:977713 */ /* x205565 stalin.sc:28447:977722 */ t19636 = a32376; /* x205564 stalin.sc:28447:977714 */ a41421 = t19636; /* x299796 stalin.sc:7008:242336 */ /* x299795 stalin.sc:7008:242344 */ t19637 = a41421; /* x299794 stalin.sc:7008:242337 */ t19634 = f9720(t19637); /* x205563 stalin.sc:28447:977705 */ a41420 = t19634; /* x299792 stalin.sc:7008:242336 */ /* x299791 stalin.sc:7008:242344 */ t19635 = a41420; /* x299790 stalin.sc:7008:242337 */ t19633 = f9720(t19635); /* x205562 stalin.sc:28447:977694 */ t19629 = f9772(t19633); /* x205561 */ t19632.tag = STRUCTURE_TYPE24753; t19632.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t19632.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18448]"); out_of_memory_error();} t19632.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t19632.value.structure_type24753->s0.value.structure_type24753 = t19630; t19632.value.structure_type24753->s1.tag = NULL_TYPE; t19631 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t19631==NULL) {backtrace_internal("[inside top level 18448]"); out_of_memory_error();} t19631->s0 = *((struct w49 *)(&t19629)); t19631->s1 = t19632; t19627 = f26254(t19631); /* x205557 */ t19623 = f26175(t19626, t19627); /* x205555 */ t19624.tag = EXTERNAL_SYMBOL_TYPE; t19624.value.external_symbol_type = t19622; t19625.tag = STRUCTURE_TYPE24753; t19625.value.structure_type24753 = t19623; t19619 = f26175(t19624, t19625); /* x205579 */ /* x205554 */ t19620.tag = STRUCTURE_TYPE24753; t19620.value.structure_type24753 = t19619; t19621.tag = NULL_TYPE; t19613 = f26175(t19620, t19621); /* x205549 */ t19614.tag = STRUCTURE_TYPE24753; t19614.value.structure_type24753 = t19612; t19615.tag = STRUCTURE_TYPE24753; t19615.value.structure_type24753 = t19613; t19609 = f26175(t19614, t19615); /* x205547 */ t19610.tag = EXTERNAL_SYMBOL_TYPE; t19610.value.external_symbol_type = t19608; t19611.tag = STRUCTURE_TYPE24753; t19611.value.structure_type24753 = t19609; t19604 = f26175(t19610, t19611); /* x205589 */ /* x205587 */ /* x205585 stalin.sc:28448:977743 */ t19647 = a32377; /* x205586 */ /* x205584 */ t19648.tag = EXTERNAL_SYMBOL_TYPE; t19648.value.external_symbol_type = t19647; t19649.tag = NULL_TYPE; t19644 = f26175(t19648, t19649); /* x205588 */ /* x205583 */ t19645.tag = STRUCTURE_TYPE24753; t19645.value.structure_type24753 = t19644; t19646.tag = NULL_TYPE; t19605 = f26175(t19645, t19646); /* x205546 */ t19606.tag = STRUCTURE_TYPE24753; t19606.value.structure_type24753 = t19604; t19607.tag = STRUCTURE_TYPE24753; t19607.value.structure_type24753 = t19605; t19601 = f26175(t19606, t19607); /* x205544 */ t19602.tag = EXTERNAL_SYMBOL_TYPE; t19602.value.external_symbol_type = t19600; t19603.tag = STRUCTURE_TYPE24753; t19603.value.structure_type24753 = t19601; return f26175(t19602, t19603);} /* [inside top level 18440] */ struct structure_type24753 *f18440(struct w49 a32369) {struct w12224 a32371; /* SLOTS */ struct w49 a32372; /* TYPE */ struct w49 a41101; /* S */ struct w49 a41417; /* S */ struct w49 a41418; /* S */ struct w49 a41419; /* S */ struct w49 a42383; /* S */ struct w12224 t19651; struct w49 t19652; char *t19653; struct structure_type24753 *t19654; struct w49 t19655; struct w49 t19656; struct structure_type24753 *t19657; struct structure_type24753 *t19658; struct w49 t19659; struct w49 t19660; char *t19661; struct structure_type24753 *t19662; struct w49 t19663; struct w49 t19664; struct structure_type24753 *t19665; struct structure_type24753 *t19666; struct w49 t19667; struct w49 t19668; char *t19669; struct w49 t19670; struct w49 t19671; char *t19672; char *t19673; char *t19674; struct structure_type24753 *t19675; struct w49 t19676; struct w49 t19677; struct structure_type24753 *t19678; struct structure_type24753 *t19679; struct w49 t19680; struct w12224 t19681; struct w36270 t19682; struct w49 t19683; struct structure_type24753 *t19684; struct structure_type24753 *t19685; struct w49 t19686; struct w49 t19687; struct structure_type24753 *t19688; struct w49 t19689; struct w49 t19690; char *t19691; struct structure_type24753 *t19692; struct w49 t19693; struct w49 t19694; char *t19695; struct structure_type24753 *t19696; struct w49 t19697; struct w49 t19698; struct w49 t19699; struct structure_type24753 *t19700; struct w49 t19701; int t19702; struct w49 t19703; struct w49 t19704; struct w12224 t19705; struct w49 t19706; struct structure_type24753 *t19707; struct structure_type24753 *t19708; struct w49 t19709; struct w12224 t19710; struct w36270 t19711; struct w49 t19712; struct structure_type24753 *t19713; struct structure_type24753 *t19714; struct w49 t19715; struct w49 t19716; char *t19717; struct structure_type24753 *t19718; struct w49 t19719; struct w49 t19720; struct structure_type24753 *t19721; struct structure_type24753 *t19722; struct w49 t19723; struct w49 t19724; char *t19725; struct structure_type24753 *t19726; struct w49 t19727; struct w49 t19728; char *t19729; char *t19730; char *t19731; struct structure_type24753 *t19732; struct w49 t19733; struct w49 t19734; struct structure_type24753 *t19736; struct w49 t19737; struct w49 t19738; struct structure_type24753 *t19739; struct structure_type24753 *t19740; struct w49 t19741; struct w49 t19742; char *t19743; struct structure_type24753 *t19744; struct w49 t19745; struct w49 t19746; char *t19747; struct structure_type24753 *t19748; struct w49 t19749; struct w49 t19750; struct w49 t19751; struct w49 t19752; struct w12224 t19754; struct structure_type24753 *t19755; struct w49 t19756; struct p18442 *t19757; struct w12224 t19758; struct p18442 *t19759; struct w49 t19760; struct w49 t19761; struct w49 t19762; struct w49 t19763; struct w49 t19764; struct w49 t19765; struct w49 t19766; struct w49 t19767; struct w49 t19768; struct w49 t19769; int t19770; int t19771; struct w49 t19772; struct w49 t19773; unsigned t19774; struct w49 t19775; struct w49 t19776; struct w49 t19777; char *t19778; struct p18442 *e18442; /* x205539 */ /* x205538 stalin.sc:28392:975936 */ /* x205529 stalin.sc:28392:975944 */ /* x205521 stalin.sc:28392:975949 */ /* x205519 stalin.sc:28392:975953 */ /* x205518 stalin.sc:28392:975964 */ t19772 = a32369; /* x205517 stalin.sc:28392:975954 */ t19770 = f9734(t19772); /* x205520 stalin.sc:28392:975967 */ t19771 = 3; /* x267943 stalin.sc:28392:975950 */ if (!(t19770>=t19771)) goto l3943; /* x205527 */ /* x205523 stalin.sc:28392:975980 */ /* x205526 stalin.sc:28392:975991 */ /* x205525 stalin.sc:28392:976000 */ t19775 = a32369; /* x205524 stalin.sc:28392:975992 */ a41419 = t19775; /* x299788 stalin.sc:7008:242336 */ /* x299787 stalin.sc:7008:242344 */ t19776 = a41419; /* x299786 stalin.sc:7008:242337 */ t19773 = f9720(t19776); /* x205522 stalin.sc:28392:975971 */ t19774 = NATIVE_PROCEDURE_TYPE7167; if (f9758(t19774, t19773)==FALSE_TYPE) goto l3943; /* x205531 */ /* x205530 */ goto l3944; l3943: /* x205537 */ /* x205536 */ /* x205535 stalin.sc:28393:976008 */ /* x205533 stalin.sc:28393:976022 */ t19777 = a32369; /* x205534 stalin.sc:28393:976024 */ t19778 = "Improper DEFINE-STRUCTURE"; /* x205532 stalin.sc:28393:976009 */ f9705(t19777, t19778); l3944: /* x205515 */ /* x205514 stalin.sc:28394:976056 */ /* x205508 stalin.sc:28395:976109 */ /* x205507 stalin.sc:28395:976120 */ /* x205506 stalin.sc:28395:976129 */ /* x205505 stalin.sc:28395:976138 */ t19764 = a32369; /* x205504 stalin.sc:28395:976130 */ a41418 = t19764; /* x299784 stalin.sc:7008:242336 */ /* x299783 stalin.sc:7008:242344 */ t19765 = a41418; /* x299782 stalin.sc:7008:242337 */ t19762 = f9720(t19765); /* x205503 stalin.sc:28395:976121 */ a41417 = t19762; /* x299780 stalin.sc:7008:242336 */ /* x299779 stalin.sc:7008:242344 */ t19763 = a41417; /* x299778 stalin.sc:7008:242337 */ t19761 = f9720(t19763); /* x205502 stalin.sc:28395:976110 */ t19651 = f9772(t19761); /* x205513 stalin.sc:28394:976068 */ /* x205512 stalin.sc:28394:976078 */ /* x205511 stalin.sc:28394:976089 */ t19769 = a32369; /* x205510 stalin.sc:28394:976079 */ t19766 = f9722(t19769); /* x205509 stalin.sc:28394:976069 */ a41101 = t19766; /* x298516 stalin.sc:6937:240340 */ /* x298515 stalin.sc:6937:240360 */ t19767 = a41101; /* x298514 stalin.sc:6937:240341 */ a42383 = t19767; /* x303030 */ /* x303029 */ t19768 = a42383; /* x303028 */ if (!((t19768.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37559]"); structure_ref_error();} t19652 = t19768.value.structure_type27510->s9; /* x205501 */ a32371 = t19651; a32372 = t19652; e18442 = (struct p18442 *)alloca(sizeof(struct p18442)); if (e18442==NULL) {backtrace_internal("[inside top level 18441]"); out_of_memory_error();} e18442->a32372 = a32372; /* x205500 stalin.sc:28397:976178 */ /* x205187 */ t19653 = q239; /* x205499 */ /* x205237 */ /* x205190 */ t19661 = q97; /* x205236 */ /* x205208 */ /* x205200 stalin.sc:28398:976201 */ /* x205199 stalin.sc:28399:976226 */ /* x205198 stalin.sc:28399:976249 */ /* x205197 stalin.sc:28399:976265 */ t19677 = e18442->a32372; /* x267951 stalin.sc:28399:976250 */ if (!((t19677.tag)==EXTERNAL_SYMBOL_TYPE)) {backtrace("stalin.sc", 28399, 976249); symbol_string_error();} t19674 = t19677.value.external_symbol_type; /* x205195 stalin.sc:28399:976241 */ t19673 = "MAKE-"; /* x205194 stalin.sc:28399:976227 */ t19676.tag = STRUCTURE_TYPE24753; t19676.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t19676.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28399, 976226); out_of_memory_error();} t19676.value.structure_type24753->s0.tag = STRING_TYPE; t19676.value.structure_type24753->s0.value.string_type = t19674; t19676.value.structure_type24753->s1.tag = NULL_TYPE; t19675 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t19675==NULL) {backtrace("stalin.sc", 28399, 976226); out_of_memory_error();} t19675->s0.tag = STRING_TYPE; t19675->s0.value.string_type = t19673; t19675->s1 = t19676; t19672 = f27556(t19675); /* x205193 stalin.sc:28398:976202 */ t19669 = f26395(t19672); /* x205207 */ /* x205206 */ /* x205205 stalin.sc:28400:976282 */ /* x205204 stalin.sc:28400:976296 */ t19681 = a32371; /* x205203 stalin.sc:28400:976287 */ /* x205202 stalin.sc:28400:976283 */ t19682.tag = NATIVE_PROCEDURE_TYPE7189; t19683 = *((struct w49 *)(&t19681)); t19684 = (struct structure_type24753 *)NULL_TYPE; t19678 = f27731(t19682, t19683, t19684); /* x205201 */ t19680.tag = STRUCTURE_TYPE24753; t19680.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t19680.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18442]"); out_of_memory_error();} t19680.value.structure_type24753->s0.tag = NULL_TYPE; t19680.value.structure_type24753->s1.tag = NULL_TYPE; t19679 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t19679==NULL) {backtrace_internal("[inside top level 18442]"); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t19678>=((struct structure_type24753 *)VALUE_OFFSET)) {t19679->s0.tag = STRUCTURE_TYPE24753; t19679->s0.value.structure_type24753 = t19678;} else t19679->s0.tag = (unsigned)t19678; t19679->s1 = t19680; t19670 = f26254(t19679); /* x205192 */ t19671.tag = EXTERNAL_SYMBOL_TYPE; t19671.value.external_symbol_type = t19669; t19665 = f26175(t19671, t19670); /* x205235 */ /* x205233 */ /* x205225 */ /* x205212 */ t19691 = q77; /* x205224 */ /* x205214 */ t19695 = q98; /* x205223 */ /* x205216 stalin.sc:28401:976348 */ t19699 = e18442->a32372; /* x205222 */ /* x205220 stalin.sc:28401:976354 */ /* x205219 stalin.sc:28401:976362 */ t19705 = a32371; /* x205218 stalin.sc:28401:976355 */ t19706 = *((struct w49 *)(&t19705)); t19702 = f26227(t19706); /* x205221 */ /* x205217 */ t19703.tag = FIXNUM_TYPE; t19703.value.fixnum_type = t19702; t19704.tag = NULL_TYPE; t19700 = f26175(t19703, t19704); /* x205215 */ t19701.tag = STRUCTURE_TYPE24753; t19701.value.structure_type24753 = t19700; t19696 = f26175(t19699, t19701); /* x205213 */ t19697.tag = EXTERNAL_SYMBOL_TYPE; t19697.value.external_symbol_type = t19695; t19698.tag = STRUCTURE_TYPE24753; t19698.value.structure_type24753 = t19696; t19692 = f26175(t19697, t19698); /* x205211 */ t19693.tag = EXTERNAL_SYMBOL_TYPE; t19693.value.external_symbol_type = t19691; t19694.tag = STRUCTURE_TYPE24753; t19694.value.structure_type24753 = t19692; t19688 = f26175(t19693, t19694); /* x205232 */ /* x205231 */ /* x205230 stalin.sc:28402:976379 */ /* x205229 stalin.sc:28402:976393 */ t19710 = a32371; /* x205228 stalin.sc:28402:976384 */ /* x205227 stalin.sc:28402:976380 */ t19711.tag = NATIVE_PROCEDURE_TYPE7189; t19712 = *((struct w49 *)(&t19710)); t19713 = (struct structure_type24753 *)NULL_TYPE; t19707 = f27731(t19711, t19712, t19713); /* x205226 */ t19709.tag = STRUCTURE_TYPE24753; t19709.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t19709.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18442]"); out_of_memory_error();} t19709.value.structure_type24753->s0.tag = NULL_TYPE; t19709.value.structure_type24753->s1.tag = NULL_TYPE; t19708 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t19708==NULL) {backtrace_internal("[inside top level 18442]"); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t19707>=((struct structure_type24753 *)VALUE_OFFSET)) {t19708->s0.tag = STRUCTURE_TYPE24753; t19708->s0.value.structure_type24753 = t19707;} else t19708->s0.tag = (unsigned)t19707; t19708->s1 = t19709; t19689 = f26254(t19708); /* x205210 */ t19690.tag = STRUCTURE_TYPE24753; t19690.value.structure_type24753 = t19688; t19685 = f26175(t19690, t19689); /* x205234 */ /* x205209 */ t19686.tag = STRUCTURE_TYPE24753; t19686.value.structure_type24753 = t19685; t19687.tag = NULL_TYPE; t19666 = f26175(t19686, t19687); /* x205191 */ t19667.tag = STRUCTURE_TYPE24753; t19667.value.structure_type24753 = t19665; t19668.tag = STRUCTURE_TYPE24753; t19668.value.structure_type24753 = t19666; t19662 = f26175(t19667, t19668); /* x205189 */ t19663.tag = EXTERNAL_SYMBOL_TYPE; t19663.value.external_symbol_type = t19661; t19664.tag = STRUCTURE_TYPE24753; t19664.value.structure_type24753 = t19662; t19657 = f26175(t19663, t19664); /* x205498 */ /* x205274 */ /* x205240 */ t19717 = q97; /* x205273 */ /* x205254 */ /* x205250 stalin.sc:28403:976417 */ /* x205249 stalin.sc:28404:976442 */ /* x205248 stalin.sc:28404:976479 */ t19731 = "?"; /* x205247 stalin.sc:28404:976457 */ /* x205246 stalin.sc:28404:976473 */ t19734 = e18442->a32372; /* x267950 stalin.sc:28404:976458 */ if (!((t19734.tag)==EXTERNAL_SYMBOL_TYPE)) {backtrace("stalin.sc", 28404, 976457); symbol_string_error();} t19730 = t19734.value.external_symbol_type; /* x205244 stalin.sc:28404:976443 */ t19733.tag = STRUCTURE_TYPE24753; t19733.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t19733.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28404, 976442); out_of_memory_error();} t19733.value.structure_type24753->s0.tag = STRING_TYPE; t19733.value.structure_type24753->s0.value.string_type = t19731; t19733.value.structure_type24753->s1.tag = NULL_TYPE; t19732 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t19732==NULL) {backtrace("stalin.sc", 28404, 976442); out_of_memory_error();} t19732->s0.tag = STRING_TYPE; t19732->s0.value.string_type = t19730; t19732->s1 = t19733; t19729 = f27556(t19732); /* x205243 stalin.sc:28403:976418 */ t19725 = f26395(t19729); /* x205253 */ t19726 = &t19735; /* x205242 */ t19727.tag = EXTERNAL_SYMBOL_TYPE; t19727.value.external_symbol_type = t19725; t19728.tag = STRUCTURE_TYPE24753; t19728.value.structure_type24753 = t19726; t19721 = f26175(t19727, t19728); /* x205272 */ /* x205270 */ /* x205266 */ /* x205258 */ t19743 = q77; /* x205265 */ /* x205260 */ t19747 = q101; /* x205264 */ /* x205262 stalin.sc:28406:976537 */ t19751 = e18442->a32372; /* x205263 */ /* x205261 */ t19752.tag = NULL_TYPE; t19748 = f26175(t19751, t19752); /* x205259 */ t19749.tag = EXTERNAL_SYMBOL_TYPE; t19749.value.external_symbol_type = t19747; t19750.tag = STRUCTURE_TYPE24753; t19750.value.structure_type24753 = t19748; t19744 = f26175(t19749, t19750); /* x205257 */ t19745.tag = EXTERNAL_SYMBOL_TYPE; t19745.value.external_symbol_type = t19743; t19746.tag = STRUCTURE_TYPE24753; t19746.value.structure_type24753 = t19744; t19739 = f26175(t19745, t19746); /* x205269 */ t19740 = &t19753; /* x205256 */ t19741.tag = STRUCTURE_TYPE24753; t19741.value.structure_type24753 = t19739; t19742.tag = STRUCTURE_TYPE24753; t19742.value.structure_type24753 = t19740; t19736 = f26175(t19741, t19742); /* x205271 */ /* x205255 */ t19737.tag = STRUCTURE_TYPE24753; t19737.value.structure_type24753 = t19736; t19738.tag = NULL_TYPE; t19722 = f26175(t19737, t19738); /* x205241 */ t19723.tag = STRUCTURE_TYPE24753; t19723.value.structure_type24753 = t19721; t19724.tag = STRUCTURE_TYPE24753; t19724.value.structure_type24753 = t19722; t19718 = f26175(t19723, t19724); /* x205239 */ t19719.tag = EXTERNAL_SYMBOL_TYPE; t19719.value.external_symbol_type = t19717; t19720.tag = STRUCTURE_TYPE24753; t19720.value.structure_type24753 = t19718; t19714 = f26175(t19719, t19720); /* x205497 */ /* x205496 */ /* x205495 stalin.sc:28407:976556 */ /* x205493 stalin.sc:28408:976577 */ t19757 = e18442; /* x205494 stalin.sc:28439:977522 */ t19758 = a32371; /* x205276 stalin.sc:28407:976557 */ t19759 = t19757; t19760 = *((struct w49 *)(&t19758)); t19754 = f1144(t19759, t19760); /* x205275 */ t19756.tag = STRUCTURE_TYPE24753; t19756.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t19756.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18442]"); out_of_memory_error();} t19756.value.structure_type24753->s0.tag = NULL_TYPE; t19756.value.structure_type24753->s1.tag = NULL_TYPE; t19755 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t19755==NULL) {backtrace_internal("[inside top level 18442]"); out_of_memory_error();} t19755->s0 = *((struct w49 *)(&t19754)); t19755->s1 = t19756; t19715 = f26254(t19755); /* x205238 */ t19716.tag = STRUCTURE_TYPE24753; t19716.value.structure_type24753 = t19714; t19658 = f26175(t19716, t19715); /* x205188 */ t19659.tag = STRUCTURE_TYPE24753; t19659.value.structure_type24753 = t19657; t19660.tag = STRUCTURE_TYPE24753; t19660.value.structure_type24753 = t19658; t19654 = f26175(t19659, t19660); /* x205186 */ t19655.tag = EXTERNAL_SYMBOL_TYPE; t19655.value.external_symbol_type = t19653; t19656.tag = STRUCTURE_TYPE24753; t19656.value.structure_type24753 = t19654; return f26175(t19655, t19656);} /* [inside top level 18436] */ struct structure_type24753 *f18436(struct w49 a32367) {int t19780; int t19781; struct w49 t19782; struct w49 t19783; struct w49 t19784; struct w49 t19785; char *t19786; /* x205178 */ /* x205177 stalin.sc:28380:975554 */ /* x205168 stalin.sc:28380:975562 */ /* x205161 stalin.sc:28380:975567 */ /* x205159 stalin.sc:28380:975570 */ /* x205158 stalin.sc:28380:975581 */ t19782 = a32367; /* x205157 stalin.sc:28380:975571 */ t19780 = f9734(t19782); /* x205160 stalin.sc:28380:975584 */ t19781 = 2; /* x267952 stalin.sc:28380:975568 */ if (!(t19780==t19781)) goto l3947; /* x205166 */ /* x205165 stalin.sc:28380:975599 */ /* x205164 stalin.sc:28380:975610 */ t19784 = a32367; /* x205163 stalin.sc:28380:975600 */ t19783 = f9722(t19784); /* x205162 stalin.sc:28380:975588 */ if (f9741(t19783)==FALSE_TYPE) goto l3947; /* x205170 */ /* x205169 */ goto l3948; l3947: /* x205176 */ /* x205175 */ /* x205174 stalin.sc:28381:975623 */ /* x205172 stalin.sc:28381:975637 */ t19785 = a32367; /* x205173 stalin.sc:28381:975639 */ t19786 = "Improper IN-PACKAGE"; /* x205171 stalin.sc:28381:975624 */ f9705(t19785, t19786); l3948: /* x205155 */ /* x205154 stalin.sc:28382:975670 */ return &t19779;} /* [inside top level 18432] */ struct structure_type24753 *f18432(struct w49 a32365) {char *t19787; struct structure_type24753 *t19788; struct w49 t19789; struct w49 t19790; struct w49 t19791; struct structure_type24753 *t19792; struct w49 t19793; struct w49 t19794; struct w49 t19795; struct w49 t19796; struct w49 t19797; int t19798; int t19799; struct w49 t19800; struct w49 t19801; struct w49 t19802; struct w49 t19803; char *t19804; /* x205147 */ /* x205146 stalin.sc:28375:975343 */ /* x205137 stalin.sc:28375:975351 */ /* x205130 stalin.sc:28375:975356 */ /* x205128 stalin.sc:28375:975359 */ /* x205127 stalin.sc:28375:975370 */ t19800 = a32365; /* x205126 stalin.sc:28375:975360 */ t19798 = f9734(t19800); /* x205129 stalin.sc:28375:975373 */ t19799 = 3; /* x267953 stalin.sc:28375:975357 */ if (!(t19798==t19799)) goto l3951; /* x205135 */ /* x205134 stalin.sc:28375:975388 */ /* x205133 stalin.sc:28375:975399 */ t19802 = a32365; /* x205132 stalin.sc:28375:975389 */ t19801 = f9722(t19802); /* x205131 stalin.sc:28375:975377 */ if (f9741(t19801)==FALSE_TYPE) goto l3951; /* x205139 */ /* x205138 */ goto l3952; l3951: /* x205145 */ /* x205144 */ /* x205143 stalin.sc:28376:975412 */ /* x205141 stalin.sc:28376:975426 */ t19803 = a32365; /* x205142 stalin.sc:28376:975428 */ t19804 = "Improper FOREIGN-DEFINE"; /* x205140 stalin.sc:28376:975413 */ f9705(t19803, t19804); l3952: /* x205124 */ /* x205123 stalin.sc:28377:975463 */ /* x205111 */ t19787 = q97; /* x205122 */ /* x205115 stalin.sc:28377:975473 */ /* x205114 stalin.sc:28377:975484 */ t19794 = a32365; /* x205113 stalin.sc:28377:975474 */ t19791 = f9722(t19794); /* x205121 */ /* x205119 stalin.sc:28377:975488 */ /* x205118 stalin.sc:28377:975498 */ t19797 = a32365; /* x205117 stalin.sc:28377:975489 */ t19795 = f9723(t19797); /* x205120 */ /* x205116 */ t19796.tag = NULL_TYPE; t19792 = f26175(t19795, t19796); /* x205112 */ t19793.tag = STRUCTURE_TYPE24753; t19793.value.structure_type24753 = t19792; t19788 = f26175(t19791, t19793); /* x205110 */ t19789.tag = EXTERNAL_SYMBOL_TYPE; t19789.value.external_symbol_type = t19787; t19790.tag = STRUCTURE_TYPE24753; t19790.value.structure_type24753 = t19788; return f26175(t19789, t19790);} /* [inside top level 18428] */ struct structure_type24753 *f18428(struct w49 a32363) {char *t19805; struct structure_type24753 *t19806; struct w49 t19807; struct w49 t19808; struct w49 t19809; struct structure_type24753 *t19810; struct w49 t19811; struct w49 t19812; struct structure_type24753 *t19813; struct w49 t19814; struct w49 t19815; char *t19816; struct structure_type24753 *t19817; struct w49 t19818; struct w49 t19819; struct w12224 t19820; struct structure_type24753 *t19821; struct w49 t19822; struct w49 t19823; struct w49 t19824; struct w198746 t19825; struct w49 t19826; char *t19827; struct structure_type24753 *t19828; struct w49 t19829; struct w49 t19830; struct w49 t19831; struct w49 t19832; struct w49 t19833; struct w49 t19834; struct w49 t19835; int t19836; int t19837; struct w49 t19838; struct w49 t19839; struct w49 t19840; struct w49 t19841; struct w49 t19842; struct w49 t19843; unsigned t19844; struct w49 t19845; struct w49 t19846; struct w49 t19847; struct w49 t19848; struct w49 t19849; struct w49 t19850; char *t19851; /* x205105 */ /* x205104 stalin.sc:28361:974833 */ /* x205095 stalin.sc:28361:974841 */ /* x205059 stalin.sc:28361:974846 */ /* x205057 stalin.sc:28361:974849 */ /* x205056 stalin.sc:28361:974860 */ t19838 = a32363; /* x205055 stalin.sc:28361:974850 */ t19836 = f9734(t19838); /* x205058 stalin.sc:28361:974863 */ t19837 = 5; /* x267954 stalin.sc:28361:974847 */ if (!(t19836==t19837)) goto l3955; /* x205093 */ /* x205064 stalin.sc:28362:974872 */ /* x205063 stalin.sc:28362:974884 */ /* x205062 stalin.sc:28362:974895 */ t19840 = a32363; /* x205061 stalin.sc:28362:974885 */ t19839 = f9722(t19840); /* x205060 stalin.sc:28362:974873 */ if (f9741(t19839)==FALSE_TYPE) goto l3955; /* x205091 */ /* x205069 stalin.sc:28363:974905 */ /* x205068 stalin.sc:28363:974915 */ /* x205067 stalin.sc:28363:974925 */ t19842 = a32363; /* x205066 stalin.sc:28363:974916 */ t19841 = f9723(t19842); /* x205065 stalin.sc:28363:974906 */ if (f9766(t19841)==FALSE_TYPE) goto l3955; /* x205089 */ /* x205075 stalin.sc:28364:974935 */ /* x205071 stalin.sc:28364:974945 */ /* x205074 stalin.sc:28364:974969 */ /* x205073 stalin.sc:28364:974979 */ t19845 = a32363; /* x205072 stalin.sc:28364:974970 */ t19843 = f9723(t19845); /* x205070 stalin.sc:28364:974936 */ t19844 = NATIVE_PROCEDURE_TYPE5994; if (f9758(t19844, t19843)==FALSE_TYPE) goto l3955; /* x205087 */ /* x205080 stalin.sc:28365:974989 */ /* x205079 stalin.sc:28365:975014 */ /* x205078 stalin.sc:28365:975025 */ t19847 = a32363; /* x205077 stalin.sc:28365:975015 */ t19846 = f9724(t19847); /* x205076 stalin.sc:28365:974990 */ if (f18346(t19846)==FALSE_TYPE) goto l3955; /* x205085 */ /* x205084 stalin.sc:28366:975047 */ /* x205083 stalin.sc:28366:975057 */ t19849 = a32363; /* x205082 stalin.sc:28366:975048 */ t19848 = f9725(t19849); /* x205081 stalin.sc:28366:975036 */ if (f9742(t19848)==FALSE_TYPE) goto l3955; /* x205097 */ /* x205096 */ goto l3956; l3955: /* x205103 */ /* x205102 */ /* x205101 stalin.sc:28367:975070 */ /* x205099 stalin.sc:28367:975084 */ t19850 = a32363; /* x205100 stalin.sc:28367:975086 */ t19851 = "Improper FOREIGN-FUNCTION"; /* x205098 stalin.sc:28367:975071 */ f9705(t19850, t19851); l3956: /* x205053 */ /* x205052 stalin.sc:28368:975123 */ /* x205019 */ t19805 = q97; /* x205051 */ /* x205023 stalin.sc:28368:975133 */ /* x205022 stalin.sc:28368:975144 */ t19812 = a32363; /* x205021 stalin.sc:28368:975134 */ t19809 = f9722(t19812); /* x205050 */ /* x205048 */ /* x205026 */ t19816 = q78; /* x205047 */ /* x205033 stalin.sc:28370:975172 */ /* x205029 stalin.sc:28370:975180 */ /* x205032 stalin.sc:28370:975207 */ /* x205031 stalin.sc:28370:975217 */ t19826 = a32363; /* x205030 stalin.sc:28370:975208 */ t19824 = f9723(t19826); /* x205028 stalin.sc:28370:975173 */ t19825.tag = NATIVE_PROCEDURE_TYPE5993; t19820 = f9753(t19825, t19824); /* x205046 */ /* x205039 stalin.sc:28371:975225 */ /* x205038 stalin.sc:28371:975253 */ /* x205037 stalin.sc:28371:975264 */ t19832 = a32363; /* x205036 stalin.sc:28371:975254 */ t19831 = f9724(t19832); /* x205035 stalin.sc:28371:975226 */ t19827 = f18386(t19831); /* x205045 */ /* x205043 stalin.sc:28372:975272 */ /* x205042 stalin.sc:28372:975282 */ t19835 = a32363; /* x205041 stalin.sc:28372:975273 */ t19833 = f9725(t19835); /* x205044 */ /* x205040 */ t19834.tag = NULL_TYPE; t19828 = f26175(t19833, t19834); /* x205034 */ t19829.tag = EXTERNAL_SYMBOL_TYPE; t19829.value.external_symbol_type = t19827; t19830.tag = STRUCTURE_TYPE24753; t19830.value.structure_type24753 = t19828; t19821 = f26175(t19829, t19830); /* x205027 */ t19822 = *((struct w49 *)(&t19820)); t19823.tag = STRUCTURE_TYPE24753; t19823.value.structure_type24753 = t19821; t19817 = f26175(t19822, t19823); /* x205025 */ t19818.tag = EXTERNAL_SYMBOL_TYPE; t19818.value.external_symbol_type = t19816; t19819.tag = STRUCTURE_TYPE24753; t19819.value.structure_type24753 = t19817; t19813 = f26175(t19818, t19819); /* x205049 */ /* x205024 */ t19814.tag = STRUCTURE_TYPE24753; t19814.value.structure_type24753 = t19813; t19815.tag = NULL_TYPE; t19810 = f26175(t19814, t19815); /* x205020 */ t19811.tag = STRUCTURE_TYPE24753; t19811.value.structure_type24753 = t19810; t19806 = f26175(t19809, t19811); /* x205018 */ t19807.tag = EXTERNAL_SYMBOL_TYPE; t19807.value.external_symbol_type = t19805; t19808.tag = STRUCTURE_TYPE24753; t19808.value.structure_type24753 = t19806; return f26175(t19807, t19808);} /* TRANSLATE-XLIB-AND-GL-TYPE[18386] */ char *f18386(struct w49 a32361) {struct w49 a32362; /* TYPE */ struct w49 t19852; struct w49 t19853; char *t19854; struct w49 t19855; struct w49 t19856; char *t19857; struct w49 t19858; struct w49 t19859; struct structure_type24753 *t19860; struct w49 t19861; struct w49 t19864; struct structure_type24753 *t19865; struct w49 t19866; struct w49 t19871; char *t19872; struct w49 t19873; struct w49 t19874; struct structure_type24753 *t19875; struct w49 t19876; struct w49 t19879; struct structure_type24753 *t19880; struct w49 t19881; struct w49 t19886; struct structure_type24753 *t19887; struct w49 t19888; struct w49 t19895; char *t19896; struct w49 t19897; struct w49 t19898; struct structure_type24753 *t19899; struct w49 t19900; struct w49 t19903; struct structure_type24753 *t19904; struct w49 t19905; struct w49 t19910; struct structure_type24753 *t19911; struct w49 t19912; struct w49 t19919; char *t19920; struct w49 t19921; struct w49 t19922; struct structure_type24753 *t19923; struct w49 t19924; struct w49 t19927; char *t19928; struct w49 t19929; struct w49 t19930; char *t19931; struct w49 t19932; struct w49 t19933; struct structure_type24753 *t19934; struct w49 t19935; struct w49 t19938; char *t19939; struct w49 t19940; struct w49 t19941; struct structure_type24753 *t19942; struct w49 t19943; struct w49 t19946; char *t19947; struct w49 t19948; struct w49 t19949; struct structure_type24753 *t19950; struct w49 t19951; struct w49 t19954; char *t19955; struct w49 t19956; struct w49 t19957; struct structure_type24753 *t19958; struct w49 t19959; struct w49 t19962; char *t19963; struct w49 t19964; struct w49 t19965; char *t19966; struct w49 t19967; struct w49 t19968; struct structure_type24753 *t19969; struct w49 t19970; struct w49 t19973; struct structure_type24753 *t19974; struct w49 t19975; struct w49 t19980; char *t19981; struct w49 t19982; struct w49 t19983; struct structure_type24753 *t19984; struct w49 t19985; struct w49 t19988; char *t19989; struct w49 t19990; struct w49 t19991; struct structure_type24753 *t19992; struct w49 t19993; struct w49 t19996; struct structure_type24753 *t19997; struct w49 t19998; struct w49 t20001; struct structure_type24753 *t20002; struct w49 t20003; struct w49 t20006; struct structure_type24753 *t20007; struct w49 t20008; struct w49 t20013; struct structure_type24753 *t20014; struct w49 t20015; struct w49 t20020; struct structure_type24753 *t20021; struct w49 t20022; struct w49 t20027; struct structure_type24753 *t20028; struct w49 t20029; struct w49 t20034; struct structure_type24753 *t20035; struct w49 t20036; struct w49 t20043; struct structure_type24753 *t20044; struct w49 t20045; char *t20048; struct w49 t20049; /* x205012 stalin.sc:28315:972891 */ /* x205011 stalin.sc:28315:972903 */ /* x205010 stalin.sc:28315:972918 */ t20049 = a32361; /* x205009 stalin.sc:28315:972904 */ t19852 = f9788(t20049); /* x205008 */ a32362 = t19852; /* x205007 stalin.sc:28317:972951 */ /* x204539 stalin.sc:28317:972958 */ /* x204537 stalin.sc:28317:972966 */ t19853 = a32362; /* x204538 stalin.sc:28317:972971 */ t19854 = q63; /* x204536 stalin.sc:28317:972959 */ t19855.tag = EXTERNAL_SYMBOL_TYPE; t19855.value.external_symbol_type = t19854; if (f26165(t19853, t19855)==FALSE_TYPE) goto l3963; /* x204542 */ /* x204541 */ /* x204540 stalin.sc:28317:972981 */ return q80; l3963: /* x205006 */ /* x204546 stalin.sc:28318:973003 */ /* x204544 stalin.sc:28318:973011 */ t19856 = a32362; /* x204545 stalin.sc:28318:973016 */ t19857 = q94; /* x204543 stalin.sc:28318:973004 */ t19858.tag = EXTERNAL_SYMBOL_TYPE; t19858.value.external_symbol_type = t19857; if (f26165(t19856, t19858)==FALSE_TYPE) goto l3965; /* x204549 */ /* x204548 */ /* x204547 stalin.sc:28318:973023 */ return q94; l3965: /* x205005 */ /* x204557 stalin.sc:28319:973032 */ /* x204551 stalin.sc:28319:973040 */ t19859 = a32362; /* x204556 stalin.sc:28319:973045 */ t19860 = &t19862; /* x204550 stalin.sc:28319:973033 */ t19861.tag = STRUCTURE_TYPE24753; t19861.value.structure_type24753 = t19860; if (f26165(t19859, t19861)==FALSE_TYPE) goto l3967; /* x204560 */ /* x204559 */ /* x204558 stalin.sc:28319:973062 */ return q80; l3967: /* x205004 */ /* x204572 stalin.sc:28320:973072 */ /* x204562 stalin.sc:28320:973080 */ t19864 = a32362; /* x204571 stalin.sc:28320:973085 */ t19865 = &t19867; /* x204561 stalin.sc:28320:973073 */ t19866.tag = STRUCTURE_TYPE24753; t19866.value.structure_type24753 = t19865; if (f26165(t19864, t19866)==FALSE_TYPE) goto l3969; /* x204575 */ /* x204574 */ /* x204573 stalin.sc:28320:973112 */ return q80; l3969: /* x205003 */ /* x204579 stalin.sc:28321:973122 */ /* x204577 stalin.sc:28321:973130 */ t19871 = a32362; /* x204578 stalin.sc:28321:973135 */ t19872 = q56; /* x204576 stalin.sc:28321:973123 */ t19873.tag = EXTERNAL_SYMBOL_TYPE; t19873.value.external_symbol_type = t19872; if (f26165(t19871, t19873)==FALSE_TYPE) goto l3971; /* x204582 */ /* x204581 */ /* x204580 stalin.sc:28321:973142 */ return q56; l3971: /* x205002 */ /* x204590 stalin.sc:28322:973151 */ /* x204584 stalin.sc:28322:973159 */ t19874 = a32362; /* x204589 stalin.sc:28322:973164 */ t19875 = &t19877; /* x204583 stalin.sc:28322:973152 */ t19876.tag = STRUCTURE_TYPE24753; t19876.value.structure_type24753 = t19875; if (f26165(t19874, t19876)==FALSE_TYPE) goto l3973; /* x204593 */ /* x204592 */ /* x204591 stalin.sc:28322:973181 */ return q80; l3973: /* x205001 */ /* x204605 stalin.sc:28323:973191 */ /* x204595 stalin.sc:28323:973199 */ t19879 = a32362; /* x204604 stalin.sc:28323:973204 */ t19880 = &t19882; /* x204594 stalin.sc:28323:973192 */ t19881.tag = STRUCTURE_TYPE24753; t19881.value.structure_type24753 = t19880; if (f26165(t19879, t19881)==FALSE_TYPE) goto l3975; /* x204608 */ /* x204607 */ /* x204606 stalin.sc:28323:973231 */ return q80; l3975: /* x205000 */ /* x204624 stalin.sc:28324:973241 */ /* x204610 stalin.sc:28324:973249 */ t19886 = a32362; /* x204623 stalin.sc:28324:973254 */ t19887 = &t19889; /* x204609 stalin.sc:28324:973242 */ t19888.tag = STRUCTURE_TYPE24753; t19888.value.structure_type24753 = t19887; if (f26165(t19886, t19888)==FALSE_TYPE) goto l3977; /* x204627 */ /* x204626 */ /* x204625 stalin.sc:28324:973291 */ return q80; l3977: /* x204999 */ /* x204631 stalin.sc:28325:973301 */ /* x204629 stalin.sc:28325:973309 */ t19895 = a32362; /* x204630 stalin.sc:28325:973314 */ t19896 = q91; /* x204628 stalin.sc:28325:973302 */ t19897.tag = EXTERNAL_SYMBOL_TYPE; t19897.value.external_symbol_type = t19896; if (f26165(t19895, t19897)==FALSE_TYPE) goto l3979; /* x204634 */ /* x204633 */ /* x204632 stalin.sc:28325:973330 */ return q91; l3979: /* x204998 */ /* x204642 stalin.sc:28326:973348 */ /* x204636 stalin.sc:28326:973356 */ t19898 = a32362; /* x204641 stalin.sc:28326:973361 */ t19899 = &t19901; /* x204635 stalin.sc:28326:973349 */ t19900.tag = STRUCTURE_TYPE24753; t19900.value.structure_type24753 = t19899; if (f26165(t19898, t19900)==FALSE_TYPE) goto l3981; /* x204645 */ /* x204644 */ /* x204643 stalin.sc:28326:973387 */ return q80; l3981: /* x204997 */ /* x204657 stalin.sc:28327:973397 */ /* x204647 stalin.sc:28327:973405 */ t19903 = a32362; /* x204656 stalin.sc:28327:973410 */ t19904 = &t19906; /* x204646 stalin.sc:28327:973398 */ t19905.tag = STRUCTURE_TYPE24753; t19905.value.structure_type24753 = t19904; if (f26165(t19903, t19905)==FALSE_TYPE) goto l3983; /* x204660 */ /* x204659 */ /* x204658 stalin.sc:28327:973446 */ return q80; l3983: /* x204996 */ /* x204676 stalin.sc:28328:973456 */ /* x204662 stalin.sc:28328:973464 */ t19910 = a32362; /* x204675 stalin.sc:28328:973469 */ t19911 = &t19913; /* x204661 stalin.sc:28328:973457 */ t19912.tag = STRUCTURE_TYPE24753; t19912.value.structure_type24753 = t19911; if (f26165(t19910, t19912)==FALSE_TYPE) goto l3985; /* x204679 */ /* x204678 */ /* x204677 stalin.sc:28328:973515 */ return q80; l3985: /* x204995 */ /* x204683 stalin.sc:28329:973525 */ /* x204681 stalin.sc:28329:973533 */ t19919 = a32362; /* x204682 stalin.sc:28329:973538 */ t19920 = q92; /* x204680 stalin.sc:28329:973526 */ t19921.tag = EXTERNAL_SYMBOL_TYPE; t19921.value.external_symbol_type = t19920; if (f26165(t19919, t19921)==FALSE_TYPE) goto l3987; /* x204686 */ /* x204685 */ /* x204684 stalin.sc:28329:973552 */ return q92; l3987: /* x204994 */ /* x204694 stalin.sc:28330:973568 */ /* x204688 stalin.sc:28330:973576 */ t19922 = a32362; /* x204693 stalin.sc:28330:973581 */ t19923 = &t19925; /* x204687 stalin.sc:28330:973569 */ t19924.tag = STRUCTURE_TYPE24753; t19924.value.structure_type24753 = t19923; if (f26165(t19922, t19924)==FALSE_TYPE) goto l3989; /* x204697 */ /* x204696 */ /* x204695 stalin.sc:28330:973605 */ return q80; l3989: /* x204993 */ /* x204701 stalin.sc:28331:973615 */ /* x204699 stalin.sc:28331:973623 */ t19927 = a32362; /* x204700 stalin.sc:28331:973628 */ t19928 = q161; /* x204698 stalin.sc:28331:973616 */ t19929.tag = EXTERNAL_SYMBOL_TYPE; t19929.value.external_symbol_type = t19928; if (f26165(t19927, t19929)==FALSE_TYPE) goto l3991; /* x204704 */ /* x204703 */ /* x204702 stalin.sc:28331:973637 */ return q82; l3991: /* x204992 */ /* x204708 stalin.sc:28332:973647 */ /* x204706 stalin.sc:28332:973655 */ t19930 = a32362; /* x204707 stalin.sc:28332:973660 */ t19931 = q90; /* x204705 stalin.sc:28332:973648 */ t19932.tag = EXTERNAL_SYMBOL_TYPE; t19932.value.external_symbol_type = t19931; if (f26165(t19930, t19932)==FALSE_TYPE) goto l3993; /* x204711 */ /* x204710 */ /* x204709 stalin.sc:28332:973668 */ return q90; l3993: /* x204991 */ /* x204719 stalin.sc:28333:973678 */ /* x204713 stalin.sc:28333:973686 */ t19933 = a32362; /* x204718 stalin.sc:28333:973691 */ t19934 = &t19936; /* x204712 stalin.sc:28333:973679 */ t19935.tag = STRUCTURE_TYPE24753; t19935.value.structure_type24753 = t19934; if (f26165(t19933, t19935)==FALSE_TYPE) goto l3995; /* x204722 */ /* x204721 */ /* x204720 stalin.sc:28333:973709 */ return q80; l3995: /* x204990 */ /* x204726 stalin.sc:28334:973719 */ /* x204724 stalin.sc:28334:973727 */ t19938 = a32362; /* x204725 stalin.sc:28334:973732 */ t19939 = q89; /* x204723 stalin.sc:28334:973720 */ t19940.tag = EXTERNAL_SYMBOL_TYPE; t19940.value.external_symbol_type = t19939; if (f26165(t19938, t19940)==FALSE_TYPE) goto l3997; /* x204729 */ /* x204728 */ /* x204727 stalin.sc:28334:973749 */ return q89; l3997: /* x204989 */ /* x204737 stalin.sc:28335:973768 */ /* x204731 stalin.sc:28335:973776 */ t19941 = a32362; /* x204736 stalin.sc:28335:973781 */ t19942 = &t19944; /* x204730 stalin.sc:28335:973769 */ t19943.tag = STRUCTURE_TYPE24753; t19943.value.structure_type24753 = t19942; if (f26165(t19941, t19943)==FALSE_TYPE) goto l3999; /* x204740 */ /* x204739 */ /* x204738 stalin.sc:28335:973808 */ return q80; l3999: /* x204988 */ /* x204744 stalin.sc:28336:973818 */ /* x204742 stalin.sc:28336:973826 */ t19946 = a32362; /* x204743 stalin.sc:28336:973831 */ t19947 = q88; /* x204741 stalin.sc:28336:973819 */ t19948.tag = EXTERNAL_SYMBOL_TYPE; t19948.value.external_symbol_type = t19947; if (f26165(t19946, t19948)==FALSE_TYPE) goto l4001; /* x204747 */ /* x204746 */ /* x204745 stalin.sc:28336:973837 */ return q88; l4001: /* x204987 */ /* x204755 stalin.sc:28337:973845 */ /* x204749 stalin.sc:28337:973853 */ t19949 = a32362; /* x204754 stalin.sc:28337:973858 */ t19950 = &t19952; /* x204748 stalin.sc:28337:973846 */ t19951.tag = STRUCTURE_TYPE24753; t19951.value.structure_type24753 = t19950; if (f26165(t19949, t19951)==FALSE_TYPE) goto l4003; /* x204758 */ /* x204757 */ /* x204756 stalin.sc:28337:973874 */ return q80; l4003: /* x204986 */ /* x204762 stalin.sc:28338:973884 */ /* x204760 stalin.sc:28338:973892 */ t19954 = a32362; /* x204761 stalin.sc:28338:973897 */ t19955 = q497; /* x204759 stalin.sc:28338:973885 */ t19956.tag = EXTERNAL_SYMBOL_TYPE; t19956.value.external_symbol_type = t19955; if (f26165(t19954, t19956)==FALSE_TYPE) goto l4005; /* x204765 */ /* x204764 */ /* x204763 stalin.sc:28338:973912 */ return q87; l4005: /* x204985 */ /* x204773 stalin.sc:28339:973925 */ /* x204767 stalin.sc:28339:973933 */ t19957 = a32362; /* x204772 stalin.sc:28339:973938 */ t19958 = &t19960; /* x204766 stalin.sc:28339:973926 */ t19959.tag = STRUCTURE_TYPE24753; t19959.value.structure_type24753 = t19958; if (f26165(t19957, t19959)==FALSE_TYPE) goto l4007; /* x204776 */ /* x204775 */ /* x204774 stalin.sc:28339:973963 */ return q80; l4007: /* x204984 */ /* x204780 stalin.sc:28340:973973 */ /* x204778 stalin.sc:28340:973981 */ t19962 = a32362; /* x204779 stalin.sc:28340:973986 */ t19963 = q86; /* x204777 stalin.sc:28340:973974 */ t19964.tag = EXTERNAL_SYMBOL_TYPE; t19964.value.external_symbol_type = t19963; if (f26165(t19962, t19964)==FALSE_TYPE) goto l4009; /* x204783 */ /* x204782 */ /* x204781 stalin.sc:28340:973993 */ return q86; l4009: /* x204983 */ /* x204787 stalin.sc:28341:974002 */ /* x204785 stalin.sc:28341:974010 */ t19965 = a32362; /* x204786 stalin.sc:28341:974015 */ t19966 = q85; /* x204784 stalin.sc:28341:974003 */ t19967.tag = EXTERNAL_SYMBOL_TYPE; t19967.value.external_symbol_type = t19966; if (f26165(t19965, t19967)==FALSE_TYPE) goto l4011; /* x204790 */ /* x204789 */ /* x204788 stalin.sc:28341:974031 */ return q85; l4011: /* x204982 */ /* x204798 stalin.sc:28342:974049 */ /* x204792 stalin.sc:28342:974057 */ t19968 = a32362; /* x204797 stalin.sc:28342:974062 */ t19969 = &t19971; /* x204791 stalin.sc:28342:974050 */ t19970.tag = STRUCTURE_TYPE24753; t19970.value.structure_type24753 = t19969; if (f26165(t19968, t19970)==FALSE_TYPE) goto l4013; /* x204801 */ /* x204800 */ /* x204799 stalin.sc:28342:974088 */ return q80; l4013: /* x204981 */ /* x204813 stalin.sc:28343:974098 */ /* x204803 stalin.sc:28343:974106 */ t19973 = a32362; /* x204812 stalin.sc:28343:974111 */ t19974 = &t19976; /* x204802 stalin.sc:28343:974099 */ t19975.tag = STRUCTURE_TYPE24753; t19975.value.structure_type24753 = t19974; if (f26165(t19973, t19975)==FALSE_TYPE) goto l4015; /* x204816 */ /* x204815 */ /* x204814 stalin.sc:28343:974147 */ return q80; l4015: /* x204980 */ /* x204820 stalin.sc:28344:974157 */ /* x204818 stalin.sc:28344:974165 */ t19980 = a32362; /* x204819 stalin.sc:28344:974170 */ t19981 = q84; /* x204817 stalin.sc:28344:974158 */ t19982.tag = EXTERNAL_SYMBOL_TYPE; t19982.value.external_symbol_type = t19981; if (f26165(t19980, t19982)==FALSE_TYPE) goto l4017; /* x204823 */ /* x204822 */ /* x204821 stalin.sc:28344:974178 */ return q84; l4017: /* x204979 */ /* x204831 stalin.sc:28345:974188 */ /* x204825 stalin.sc:28345:974196 */ t19983 = a32362; /* x204830 stalin.sc:28345:974201 */ t19984 = &t19986; /* x204824 stalin.sc:28345:974189 */ t19985.tag = STRUCTURE_TYPE24753; t19985.value.structure_type24753 = t19984; if (f26165(t19983, t19985)==FALSE_TYPE) goto l4019; /* x204834 */ /* x204833 */ /* x204832 stalin.sc:28345:974219 */ return q80; l4019: /* x204978 */ /* x204838 stalin.sc:28346:974229 */ /* x204836 stalin.sc:28346:974237 */ t19988 = a32362; /* x204837 stalin.sc:28346:974242 */ t19989 = q14; /* x204835 stalin.sc:28346:974230 */ t19990.tag = EXTERNAL_SYMBOL_TYPE; t19990.value.external_symbol_type = t19989; if (f26165(t19988, t19990)==FALSE_TYPE) goto l4021; /* x204841 */ /* x204840 */ /* x204839 stalin.sc:28346:974251 */ return q14; l4021: /* x204977 */ /* x204849 stalin.sc:28347:974262 */ /* x204843 stalin.sc:28347:974270 */ t19991 = a32362; /* x204848 stalin.sc:28347:974275 */ t19992 = &t19994; /* x204842 stalin.sc:28347:974263 */ t19993.tag = STRUCTURE_TYPE24753; t19993.value.structure_type24753 = t19992; if (f26165(t19991, t19993)==FALSE_TYPE) goto l4023; /* x204852 */ /* x204851 */ /* x204850 stalin.sc:28347:974294 */ return q80; l4023: /* x204976 */ /* x204860 stalin.sc:28348:974304 */ /* x204854 stalin.sc:28348:974312 */ t19996 = a32362; /* x204859 stalin.sc:28348:974317 */ t19997 = &t19999; /* x204853 stalin.sc:28348:974305 */ t19998.tag = STRUCTURE_TYPE24753; t19998.value.structure_type24753 = t19997; if (f26165(t19996, t19998)==FALSE_TYPE) goto l4025; /* x204863 */ /* x204862 */ /* x204861 stalin.sc:28348:974335 */ return q80; l4025: /* x204975 */ /* x204871 stalin.sc:28349:974345 */ /* x204865 stalin.sc:28349:974353 */ t20001 = a32362; /* x204870 stalin.sc:28349:974358 */ t20002 = &t20004; /* x204864 stalin.sc:28349:974346 */ t20003.tag = STRUCTURE_TYPE24753; t20003.value.structure_type24753 = t20002; if (f26165(t20001, t20003)==FALSE_TYPE) goto l4027; /* x204874 */ /* x204873 */ /* x204872 stalin.sc:28349:974377 */ return q80; l4027: /* x204974 */ /* x204886 stalin.sc:28350:974387 */ /* x204876 stalin.sc:28350:974395 */ t20006 = a32362; /* x204885 stalin.sc:28350:974400 */ t20007 = &t20009; /* x204875 stalin.sc:28350:974388 */ t20008.tag = STRUCTURE_TYPE24753; t20008.value.structure_type24753 = t20007; if (f26165(t20006, t20008)==FALSE_TYPE) goto l4029; /* x204889 */ /* x204888 */ /* x204887 stalin.sc:28350:974437 */ return q80; l4029: /* x204973 */ /* x204901 stalin.sc:28351:974447 */ /* x204891 stalin.sc:28351:974455 */ t20013 = a32362; /* x204900 stalin.sc:28351:974460 */ t20014 = &t20016; /* x204890 stalin.sc:28351:974448 */ t20015.tag = STRUCTURE_TYPE24753; t20015.value.structure_type24753 = t20014; if (f26165(t20013, t20015)==FALSE_TYPE) goto l4031; /* x204904 */ /* x204903 */ /* x204902 stalin.sc:28351:974495 */ return q80; l4031: /* x204972 */ /* x204916 stalin.sc:28352:974505 */ /* x204906 stalin.sc:28352:974513 */ t20020 = a32362; /* x204915 stalin.sc:28352:974518 */ t20021 = &t20023; /* x204905 stalin.sc:28352:974506 */ t20022.tag = STRUCTURE_TYPE24753; t20022.value.structure_type24753 = t20021; if (f26165(t20020, t20022)==FALSE_TYPE) goto l4033; /* x204919 */ /* x204918 */ /* x204917 stalin.sc:28352:974560 */ return q80; l4033: /* x204971 */ /* x204931 stalin.sc:28353:974570 */ /* x204921 stalin.sc:28353:974578 */ t20027 = a32362; /* x204930 stalin.sc:28353:974583 */ t20028 = &t20030; /* x204920 stalin.sc:28353:974571 */ t20029.tag = STRUCTURE_TYPE24753; t20029.value.structure_type24753 = t20028; if (f26165(t20027, t20029)==FALSE_TYPE) goto l4035; /* x204934 */ /* x204933 */ /* x204932 stalin.sc:28353:974612 */ return q80; l4035: /* x204970 */ /* x204950 stalin.sc:28354:974622 */ /* x204936 stalin.sc:28354:974630 */ t20034 = a32362; /* x204949 stalin.sc:28354:974635 */ t20035 = &t20037; /* x204935 stalin.sc:28354:974623 */ t20036.tag = STRUCTURE_TYPE24753; t20036.value.structure_type24753 = t20035; if (f26165(t20034, t20036)==FALSE_TYPE) goto l4037; /* x204953 */ /* x204952 */ /* x204951 stalin.sc:28354:974674 */ return q80; l4037: /* x204969 */ /* x204961 stalin.sc:28355:974684 */ /* x204955 stalin.sc:28355:974692 */ t20043 = a32362; /* x204960 stalin.sc:28355:974697 */ t20044 = &t20046; /* x204954 stalin.sc:28355:974685 */ t20045.tag = STRUCTURE_TYPE24753; t20045.value.structure_type24753 = t20044; if (f26165(t20043, t20045)==FALSE_TYPE) goto l4039; /* x204964 */ /* x204963 */ /* x204962 stalin.sc:28355:974718 */ return q80; l4039: /* x204968 */ /* x204967 */ /* x204966 stalin.sc:28356:974733 */ /* x204965 stalin.sc:28356:974734 */ /* x297509 QobiScheme.sc:166:5314 */ /* x297508 QobiScheme.sc:166:5321 */ t20048 = "This shouldn\'t happen"; /* x297507 QobiScheme.sc:166:5315 */ stalin_panic(t20048);} /* VALID-XLIB-AND-GL-TYPE?[18346] */ unsigned f18346(struct w49 a32321) {struct w49 a32322; /* TYPE */ struct w49 t20050; struct w49 t20051; char *t20052; struct w49 t20053; struct w49 t20054; char *t20055; struct w49 t20056; struct w49 t20057; struct structure_type24753 *t20058; struct w49 t20059; struct w49 t20062; struct structure_type24753 *t20063; struct w49 t20064; struct w49 t20069; char *t20070; struct w49 t20071; struct w49 t20072; struct structure_type24753 *t20073; struct w49 t20074; struct w49 t20077; struct structure_type24753 *t20078; struct w49 t20079; struct w49 t20084; struct structure_type24753 *t20085; struct w49 t20086; struct w49 t20093; char *t20094; struct w49 t20095; struct w49 t20096; struct structure_type24753 *t20097; struct w49 t20098; struct w49 t20101; struct structure_type24753 *t20102; struct w49 t20103; struct w49 t20108; struct structure_type24753 *t20109; struct w49 t20110; struct w49 t20117; char *t20118; struct w49 t20119; struct w49 t20120; struct structure_type24753 *t20121; struct w49 t20122; struct w49 t20125; char *t20126; struct w49 t20127; struct w49 t20128; char *t20129; struct w49 t20130; struct w49 t20131; struct structure_type24753 *t20132; struct w49 t20133; struct w49 t20136; char *t20137; struct w49 t20138; struct w49 t20139; struct structure_type24753 *t20140; struct w49 t20141; struct w49 t20144; char *t20145; struct w49 t20146; struct w49 t20147; struct structure_type24753 *t20148; struct w49 t20149; struct w49 t20152; char *t20153; struct w49 t20154; struct w49 t20155; struct structure_type24753 *t20156; struct w49 t20157; struct w49 t20160; char *t20161; struct w49 t20162; struct w49 t20163; char *t20164; struct w49 t20165; struct w49 t20166; struct structure_type24753 *t20167; struct w49 t20168; struct w49 t20171; struct structure_type24753 *t20172; struct w49 t20173; struct w49 t20178; char *t20179; struct w49 t20180; struct w49 t20181; struct structure_type24753 *t20182; struct w49 t20183; struct w49 t20186; char *t20187; struct w49 t20188; struct w49 t20189; struct structure_type24753 *t20190; struct w49 t20191; struct w49 t20194; struct structure_type24753 *t20195; struct w49 t20196; struct w49 t20199; struct structure_type24753 *t20200; struct w49 t20201; struct w49 t20204; struct structure_type24753 *t20205; struct w49 t20206; struct w49 t20211; struct structure_type24753 *t20212; struct w49 t20213; struct w49 t20218; struct structure_type24753 *t20219; struct w49 t20220; struct w49 t20225; struct structure_type24753 *t20226; struct w49 t20227; struct w49 t20232; struct structure_type24753 *t20233; struct w49 t20234; struct w49 t20241; struct structure_type24753 *t20242; struct w49 t20243; struct w49 t20246; /* x204533 stalin.sc:28271:971192 */ /* x204532 stalin.sc:28271:971204 */ /* x204531 stalin.sc:28271:971219 */ t20246 = a32321; /* x204530 stalin.sc:28271:971205 */ t20050 = f9788(t20246); /* x204529 */ a32322 = t20050; /* x204528 stalin.sc:28273:971252 */ /* x204528 stalin.sc:28273:971252 */ /* x204527 stalin.sc:28273:971256 */ /* x204525 stalin.sc:28273:971264 */ t20051 = a32322; /* x204526 stalin.sc:28273:971269 */ t20052 = q63; /* x204524 stalin.sc:28273:971257 */ t20053.tag = EXTERNAL_SYMBOL_TYPE; t20053.value.external_symbol_type = t20052; if (!(f26165(t20051, t20053)==FALSE_TYPE)) goto l4040; /* x204521 */ /* x204520 stalin.sc:28274:971285 */ /* x204518 stalin.sc:28274:971293 */ t20054 = a32322; /* x204519 stalin.sc:28274:971298 */ t20055 = q94; /* x204517 stalin.sc:28274:971286 */ t20056.tag = EXTERNAL_SYMBOL_TYPE; t20056.value.external_symbol_type = t20055; if (!(f26165(t20054, t20056)==FALSE_TYPE)) goto l4040; /* x204514 */ /* x204513 stalin.sc:28275:971311 */ /* x204507 stalin.sc:28275:971319 */ t20057 = a32322; /* x204512 stalin.sc:28275:971324 */ t20058 = &t20060; /* x204506 stalin.sc:28275:971312 */ t20059.tag = STRUCTURE_TYPE24753; t20059.value.structure_type24753 = t20058; if (!(f26165(t20057, t20059)==FALSE_TYPE)) goto l4040; /* x204503 */ /* x204502 stalin.sc:28276:971347 */ /* x204492 stalin.sc:28276:971355 */ t20062 = a32322; /* x204501 stalin.sc:28276:971360 */ t20063 = &t20065; /* x204491 stalin.sc:28276:971348 */ t20064.tag = STRUCTURE_TYPE24753; t20064.value.structure_type24753 = t20063; if (!(f26165(t20062, t20064)==FALSE_TYPE)) goto l4040; /* x204488 */ /* x204487 stalin.sc:28277:971393 */ /* x204485 stalin.sc:28277:971401 */ t20069 = a32322; /* x204486 stalin.sc:28277:971406 */ t20070 = q56; /* x204484 stalin.sc:28277:971394 */ t20071.tag = EXTERNAL_SYMBOL_TYPE; t20071.value.external_symbol_type = t20070; if (!(f26165(t20069, t20071)==FALSE_TYPE)) goto l4040; /* x204481 */ /* x204480 stalin.sc:28278:971419 */ /* x204474 stalin.sc:28278:971427 */ t20072 = a32322; /* x204479 stalin.sc:28278:971432 */ t20073 = &t20075; /* x204473 stalin.sc:28278:971420 */ t20074.tag = STRUCTURE_TYPE24753; t20074.value.structure_type24753 = t20073; if (!(f26165(t20072, t20074)==FALSE_TYPE)) goto l4040; /* x204470 */ /* x204469 stalin.sc:28279:971455 */ /* x204459 stalin.sc:28279:971463 */ t20077 = a32322; /* x204468 stalin.sc:28279:971468 */ t20078 = &t20080; /* x204458 stalin.sc:28279:971456 */ t20079.tag = STRUCTURE_TYPE24753; t20079.value.structure_type24753 = t20078; if (!(f26165(t20077, t20079)==FALSE_TYPE)) goto l4040; /* x204455 */ /* x204454 stalin.sc:28280:971501 */ /* x204440 stalin.sc:28280:971509 */ t20084 = a32322; /* x204453 stalin.sc:28280:971514 */ t20085 = &t20087; /* x204439 stalin.sc:28280:971502 */ t20086.tag = STRUCTURE_TYPE24753; t20086.value.structure_type24753 = t20085; if (!(f26165(t20084, t20086)==FALSE_TYPE)) goto l4040; /* x204436 */ /* x204435 stalin.sc:28281:971557 */ /* x204433 stalin.sc:28281:971565 */ t20093 = a32322; /* x204434 stalin.sc:28281:971570 */ t20094 = q91; /* x204432 stalin.sc:28281:971558 */ t20095.tag = EXTERNAL_SYMBOL_TYPE; t20095.value.external_symbol_type = t20094; if (!(f26165(t20093, t20095)==FALSE_TYPE)) goto l4040; /* x204429 */ /* x204428 stalin.sc:28282:971592 */ /* x204422 stalin.sc:28282:971600 */ t20096 = a32322; /* x204427 stalin.sc:28282:971605 */ t20097 = &t20099; /* x204421 stalin.sc:28282:971593 */ t20098.tag = STRUCTURE_TYPE24753; t20098.value.structure_type24753 = t20097; if (!(f26165(t20096, t20098)==FALSE_TYPE)) goto l4040; /* x204418 */ /* x204417 stalin.sc:28283:971637 */ /* x204407 stalin.sc:28283:971645 */ t20101 = a32322; /* x204416 stalin.sc:28283:971650 */ t20102 = &t20104; /* x204406 stalin.sc:28283:971638 */ t20103.tag = STRUCTURE_TYPE24753; t20103.value.structure_type24753 = t20102; if (!(f26165(t20101, t20103)==FALSE_TYPE)) goto l4040; /* x204403 */ /* x204402 stalin.sc:28284:971692 */ /* x204388 stalin.sc:28284:971700 */ t20108 = a32322; /* x204401 stalin.sc:28284:971705 */ t20109 = &t20111; /* x204387 stalin.sc:28284:971693 */ t20110.tag = STRUCTURE_TYPE24753; t20110.value.structure_type24753 = t20109; if (!(f26165(t20108, t20110)==FALSE_TYPE)) goto l4040; /* x204384 */ /* x204383 stalin.sc:28285:971757 */ /* x204381 stalin.sc:28285:971765 */ t20117 = a32322; /* x204382 stalin.sc:28285:971770 */ t20118 = q92; /* x204380 stalin.sc:28285:971758 */ t20119.tag = EXTERNAL_SYMBOL_TYPE; t20119.value.external_symbol_type = t20118; if (!(f26165(t20117, t20119)==FALSE_TYPE)) goto l4040; /* x204377 */ /* x204376 stalin.sc:28286:971790 */ /* x204370 stalin.sc:28286:971798 */ t20120 = a32322; /* x204375 stalin.sc:28286:971803 */ t20121 = &t20123; /* x204369 stalin.sc:28286:971791 */ t20122.tag = STRUCTURE_TYPE24753; t20122.value.structure_type24753 = t20121; if (!(f26165(t20120, t20122)==FALSE_TYPE)) goto l4040; /* x204366 */ /* x204365 stalin.sc:28287:971833 */ /* x204363 stalin.sc:28287:971841 */ t20125 = a32322; /* x204364 stalin.sc:28287:971846 */ t20126 = q161; /* x204362 stalin.sc:28287:971834 */ t20127.tag = EXTERNAL_SYMBOL_TYPE; t20127.value.external_symbol_type = t20126; if (!(f26165(t20125, t20127)==FALSE_TYPE)) goto l4040; /* x204359 */ /* x204358 stalin.sc:28288:971861 */ /* x204356 stalin.sc:28288:971869 */ t20128 = a32322; /* x204357 stalin.sc:28288:971874 */ t20129 = q90; /* x204355 stalin.sc:28288:971862 */ t20130.tag = EXTERNAL_SYMBOL_TYPE; t20130.value.external_symbol_type = t20129; if (!(f26165(t20128, t20130)==FALSE_TYPE)) goto l4040; /* x204352 */ /* x204351 stalin.sc:28289:971888 */ /* x204345 stalin.sc:28289:971896 */ t20131 = a32322; /* x204350 stalin.sc:28289:971901 */ t20132 = &t20134; /* x204344 stalin.sc:28289:971889 */ t20133.tag = STRUCTURE_TYPE24753; t20133.value.structure_type24753 = t20132; if (!(f26165(t20131, t20133)==FALSE_TYPE)) goto l4040; /* x204341 */ /* x204340 stalin.sc:28290:971925 */ /* x204338 stalin.sc:28290:971933 */ t20136 = a32322; /* x204339 stalin.sc:28290:971938 */ t20137 = q89; /* x204337 stalin.sc:28290:971926 */ t20138.tag = EXTERNAL_SYMBOL_TYPE; t20138.value.external_symbol_type = t20137; if (!(f26165(t20136, t20138)==FALSE_TYPE)) goto l4040; /* x204334 */ /* x204333 stalin.sc:28291:971961 */ /* x204327 stalin.sc:28291:971969 */ t20139 = a32322; /* x204332 stalin.sc:28291:971974 */ t20140 = &t20142; /* x204326 stalin.sc:28291:971962 */ t20141.tag = STRUCTURE_TYPE24753; t20141.value.structure_type24753 = t20140; if (!(f26165(t20139, t20141)==FALSE_TYPE)) goto l4040; /* x204323 */ /* x204322 stalin.sc:28292:972007 */ /* x204320 stalin.sc:28292:972015 */ t20144 = a32322; /* x204321 stalin.sc:28292:972020 */ t20145 = q88; /* x204319 stalin.sc:28292:972008 */ t20146.tag = EXTERNAL_SYMBOL_TYPE; t20146.value.external_symbol_type = t20145; if (!(f26165(t20144, t20146)==FALSE_TYPE)) goto l4040; /* x204316 */ /* x204315 stalin.sc:28293:972032 */ /* x204309 stalin.sc:28293:972040 */ t20147 = a32322; /* x204314 stalin.sc:28293:972045 */ t20148 = &t20150; /* x204308 stalin.sc:28293:972033 */ t20149.tag = STRUCTURE_TYPE24753; t20149.value.structure_type24753 = t20148; if (!(f26165(t20147, t20149)==FALSE_TYPE)) goto l4040; /* x204305 */ /* x204304 stalin.sc:28294:972067 */ /* x204302 stalin.sc:28294:972075 */ t20152 = a32322; /* x204303 stalin.sc:28294:972080 */ t20153 = q497; /* x204301 stalin.sc:28294:972068 */ t20154.tag = EXTERNAL_SYMBOL_TYPE; t20154.value.external_symbol_type = t20153; if (!(f26165(t20152, t20154)==FALSE_TYPE)) goto l4040; /* x204298 */ /* x204297 stalin.sc:28295:972101 */ /* x204291 stalin.sc:28295:972109 */ t20155 = a32322; /* x204296 stalin.sc:28295:972114 */ t20156 = &t20158; /* x204290 stalin.sc:28295:972102 */ t20157.tag = STRUCTURE_TYPE24753; t20157.value.structure_type24753 = t20156; if (!(f26165(t20155, t20157)==FALSE_TYPE)) goto l4040; /* x204287 */ /* x204286 stalin.sc:28296:972145 */ /* x204284 stalin.sc:28296:972153 */ t20160 = a32322; /* x204285 stalin.sc:28296:972158 */ t20161 = q86; /* x204283 stalin.sc:28296:972146 */ t20162.tag = EXTERNAL_SYMBOL_TYPE; t20162.value.external_symbol_type = t20161; if (!(f26165(t20160, t20162)==FALSE_TYPE)) goto l4040; /* x204280 */ /* x204279 stalin.sc:28297:972171 */ /* x204277 stalin.sc:28297:972179 */ t20163 = a32322; /* x204278 stalin.sc:28297:972184 */ t20164 = q85; /* x204276 stalin.sc:28297:972172 */ t20165.tag = EXTERNAL_SYMBOL_TYPE; t20165.value.external_symbol_type = t20164; if (!(f26165(t20163, t20165)==FALSE_TYPE)) goto l4040; /* x204273 */ /* x204272 stalin.sc:28298:972206 */ /* x204266 stalin.sc:28298:972214 */ t20166 = a32322; /* x204271 stalin.sc:28298:972219 */ t20167 = &t20169; /* x204265 stalin.sc:28298:972207 */ t20168.tag = STRUCTURE_TYPE24753; t20168.value.structure_type24753 = t20167; if (!(f26165(t20166, t20168)==FALSE_TYPE)) goto l4040; /* x204262 */ /* x204261 stalin.sc:28299:972251 */ /* x204251 stalin.sc:28299:972259 */ t20171 = a32322; /* x204260 stalin.sc:28299:972264 */ t20172 = &t20174; /* x204250 stalin.sc:28299:972252 */ t20173.tag = STRUCTURE_TYPE24753; t20173.value.structure_type24753 = t20172; if (!(f26165(t20171, t20173)==FALSE_TYPE)) goto l4040; /* x204247 */ /* x204246 stalin.sc:28300:972306 */ /* x204244 stalin.sc:28300:972314 */ t20178 = a32322; /* x204245 stalin.sc:28300:972319 */ t20179 = q84; /* x204243 stalin.sc:28300:972307 */ t20180.tag = EXTERNAL_SYMBOL_TYPE; t20180.value.external_symbol_type = t20179; if (!(f26165(t20178, t20180)==FALSE_TYPE)) goto l4040; /* x204240 */ /* x204239 stalin.sc:28301:972333 */ /* x204233 stalin.sc:28301:972341 */ t20181 = a32322; /* x204238 stalin.sc:28301:972346 */ t20182 = &t20184; /* x204232 stalin.sc:28301:972334 */ t20183.tag = STRUCTURE_TYPE24753; t20183.value.structure_type24753 = t20182; if (!(f26165(t20181, t20183)==FALSE_TYPE)) goto l4040; /* x204229 */ /* x204228 stalin.sc:28302:972370 */ /* x204226 stalin.sc:28302:972378 */ t20186 = a32322; /* x204227 stalin.sc:28302:972383 */ t20187 = q14; /* x204225 stalin.sc:28302:972371 */ t20188.tag = EXTERNAL_SYMBOL_TYPE; t20188.value.external_symbol_type = t20187; if (!(f26165(t20186, t20188)==FALSE_TYPE)) goto l4040; /* x204222 */ /* x204221 stalin.sc:28303:972398 */ /* x204215 stalin.sc:28303:972406 */ t20189 = a32322; /* x204220 stalin.sc:28303:972411 */ t20190 = &t20192; /* x204214 stalin.sc:28303:972399 */ t20191.tag = STRUCTURE_TYPE24753; t20191.value.structure_type24753 = t20190; if (!(f26165(t20189, t20191)==FALSE_TYPE)) goto l4040; /* x204211 */ /* x204210 stalin.sc:28304:972436 */ /* x204204 stalin.sc:28304:972444 */ t20194 = a32322; /* x204209 stalin.sc:28304:972449 */ t20195 = &t20197; /* x204203 stalin.sc:28304:972437 */ t20196.tag = STRUCTURE_TYPE24753; t20196.value.structure_type24753 = t20195; if (!(f26165(t20194, t20196)==FALSE_TYPE)) goto l4040; /* x204200 */ /* x204199 stalin.sc:28305:972473 */ /* x204193 stalin.sc:28305:972481 */ t20199 = a32322; /* x204198 stalin.sc:28305:972486 */ t20200 = &t20202; /* x204192 stalin.sc:28305:972474 */ t20201.tag = STRUCTURE_TYPE24753; t20201.value.structure_type24753 = t20200; if (!(f26165(t20199, t20201)==FALSE_TYPE)) goto l4040; /* x204189 */ /* x204188 stalin.sc:28306:972511 */ /* x204178 stalin.sc:28306:972519 */ t20204 = a32322; /* x204187 stalin.sc:28306:972524 */ t20205 = &t20207; /* x204177 stalin.sc:28306:972512 */ t20206.tag = STRUCTURE_TYPE24753; t20206.value.structure_type24753 = t20205; if (!(f26165(t20204, t20206)==FALSE_TYPE)) goto l4040; /* x204174 */ /* x204173 stalin.sc:28307:972567 */ /* x204163 stalin.sc:28307:972575 */ t20211 = a32322; /* x204172 stalin.sc:28307:972580 */ t20212 = &t20214; /* x204162 stalin.sc:28307:972568 */ t20213.tag = STRUCTURE_TYPE24753; t20213.value.structure_type24753 = t20212; if (!(f26165(t20211, t20213)==FALSE_TYPE)) goto l4040; /* x204159 */ /* x204158 stalin.sc:28308:972621 */ /* x204148 stalin.sc:28308:972629 */ t20218 = a32322; /* x204157 stalin.sc:28308:972634 */ t20219 = &t20221; /* x204147 stalin.sc:28308:972622 */ t20220.tag = STRUCTURE_TYPE24753; t20220.value.structure_type24753 = t20219; if (!(f26165(t20218, t20220)==FALSE_TYPE)) goto l4040; /* x204144 */ /* x204143 stalin.sc:28309:972682 */ /* x204133 stalin.sc:28309:972690 */ t20225 = a32322; /* x204142 stalin.sc:28309:972695 */ t20226 = &t20228; /* x204132 stalin.sc:28309:972683 */ t20227.tag = STRUCTURE_TYPE24753; t20227.value.structure_type24753 = t20226; if (!(f26165(t20225, t20227)==FALSE_TYPE)) goto l4040; /* x204129 */ /* x204128 stalin.sc:28310:972730 */ /* x204114 stalin.sc:28310:972738 */ t20232 = a32322; /* x204127 stalin.sc:28310:972743 */ t20233 = &t20235; /* x204113 stalin.sc:28310:972731 */ t20234.tag = STRUCTURE_TYPE24753; t20234.value.structure_type24753 = t20233; if (!(f26165(t20232, t20234)==FALSE_TYPE)) goto l4040; /* x204110 */ /* x204104 stalin.sc:28311:972796 */ t20241 = a32322; /* x204109 stalin.sc:28311:972801 */ t20242 = &t20244; /* x204103 stalin.sc:28311:972789 */ t20243.tag = STRUCTURE_TYPE24753; t20243.value.structure_type24753 = t20242; if (f26165(t20241, t20243)==FALSE_TYPE) goto l4041; l4040: return TRUE_TYPE; l4041: return FALSE_TYPE;} /* [inside top level 18342] */ struct structure_type24753 *f18342(struct w49 a32319) {struct w49 a41422; /* S */ struct w49 a41423; /* S */ char *t20247; struct structure_type24753 *t20248; struct w49 t20249; struct w49 t20250; struct w49 t20251; struct structure_type24753 *t20252; struct w49 t20253; struct w49 t20254; struct structure_type24753 *t20255; struct structure_type24753 *t20256; struct w49 t20257; struct w49 t20258; struct structure_type24753 *t20262; struct w49 t20263; struct w49 t20264; char *t20265; struct w49 t20266; struct w49 t20267; struct w12224 t20268; struct structure_type24753 *t20269; struct w49 t20270; struct w49 t20271; struct w49 t20272; struct w49 t20273; struct w49 t20274; struct w49 t20275; int t20276; int t20277; struct w49 t20278; struct w49 t20279; char *t20280; /* x204022 */ /* x204021 stalin.sc:28264:970965 */ /* x204012 stalin.sc:28264:970973 */ /* x204010 stalin.sc:28264:970977 */ /* x204009 stalin.sc:28264:970988 */ t20278 = a32319; /* x204008 stalin.sc:28264:970978 */ t20276 = f9734(t20278); /* x204011 stalin.sc:28264:970991 */ t20277 = 2; /* x267955 stalin.sc:28264:970974 */ if (!(t20276>=t20277)) goto l4082; /* x204014 */ /* x204013 */ goto l4083; l4082: /* x204020 */ /* x204019 */ /* x204018 stalin.sc:28264:970994 */ /* x204016 stalin.sc:28264:971008 */ t20279 = a32319; /* x204017 stalin.sc:28264:971010 */ t20280 = "Improper UNLESS"; /* x204015 stalin.sc:28264:970995 */ f9705(t20279, t20280); l4083: /* x204006 */ /* x204005 stalin.sc:28265:971032 */ /* x203974 */ t20247 = q43; /* x204004 */ /* x203978 stalin.sc:28265:971038 */ /* x203977 stalin.sc:28265:971049 */ t20254 = a32319; /* x203976 stalin.sc:28265:971039 */ t20251 = f9722(t20254); /* x204003 */ /* x203986 */ t20255 = &t20259; /* x204002 */ /* x204000 */ /* x203989 */ t20265 = q239; /* x203999 */ /* x203998 */ /* x203997 stalin.sc:28267:971089 */ /* x203996 stalin.sc:28267:971100 */ /* x203995 stalin.sc:28267:971109 */ /* x203994 stalin.sc:28267:971118 */ t20274 = a32319; /* x203993 stalin.sc:28267:971110 */ a41423 = t20274; /* x299804 stalin.sc:7008:242336 */ /* x299803 stalin.sc:7008:242344 */ t20275 = a41423; /* x299802 stalin.sc:7008:242337 */ t20272 = f9720(t20275); /* x203992 stalin.sc:28267:971101 */ a41422 = t20272; /* x299800 stalin.sc:7008:242336 */ /* x299799 stalin.sc:7008:242344 */ t20273 = a41422; /* x299798 stalin.sc:7008:242337 */ t20271 = f9720(t20273); /* x203991 stalin.sc:28267:971090 */ t20268 = f9772(t20271); /* x203990 */ t20270.tag = STRUCTURE_TYPE24753; t20270.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t20270.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18343]"); out_of_memory_error();} t20270.value.structure_type24753->s0.tag = NULL_TYPE; t20270.value.structure_type24753->s1.tag = NULL_TYPE; t20269 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t20269==NULL) {backtrace_internal("[inside top level 18343]"); out_of_memory_error();} t20269->s0 = *((struct w49 *)(&t20268)); t20269->s1 = t20270; t20266 = f26254(t20269); /* x203988 */ t20267.tag = EXTERNAL_SYMBOL_TYPE; t20267.value.external_symbol_type = t20265; t20262 = f26175(t20267, t20266); /* x204001 */ /* x203987 */ t20263.tag = STRUCTURE_TYPE24753; t20263.value.structure_type24753 = t20262; t20264.tag = NULL_TYPE; t20256 = f26175(t20263, t20264); /* x203979 */ t20257.tag = STRUCTURE_TYPE24753; t20257.value.structure_type24753 = t20255; t20258.tag = STRUCTURE_TYPE24753; t20258.value.structure_type24753 = t20256; t20252 = f26175(t20257, t20258); /* x203975 */ t20253.tag = STRUCTURE_TYPE24753; t20253.value.structure_type24753 = t20252; t20248 = f26175(t20251, t20253); /* x203973 */ t20249.tag = EXTERNAL_SYMBOL_TYPE; t20249.value.external_symbol_type = t20247; t20250.tag = STRUCTURE_TYPE24753; t20250.value.structure_type24753 = t20248; return f26175(t20249, t20250);} /* [inside top level 18338] */ struct structure_type24753 *f18338(struct w49 a32317) {struct w49 a41424; /* S */ struct w49 a41425; /* S */ char *t20281; struct structure_type24753 *t20282; struct w49 t20283; struct w49 t20284; struct w49 t20285; struct structure_type24753 *t20286; struct w49 t20287; struct w49 t20288; struct structure_type24753 *t20289; struct w49 t20290; struct w49 t20291; char *t20292; struct w49 t20293; struct w49 t20294; struct w12224 t20295; struct structure_type24753 *t20296; struct w49 t20297; struct w49 t20298; struct w49 t20299; struct w49 t20300; struct w49 t20301; struct w49 t20302; int t20303; int t20304; struct w49 t20305; struct w49 t20306; char *t20307; /* x203968 */ /* x203967 stalin.sc:28260:970802 */ /* x203958 stalin.sc:28260:970810 */ /* x203956 stalin.sc:28260:970814 */ /* x203955 stalin.sc:28260:970825 */ t20305 = a32317; /* x203954 stalin.sc:28260:970815 */ t20303 = f9734(t20305); /* x203957 stalin.sc:28260:970828 */ t20304 = 2; /* x267956 stalin.sc:28260:970811 */ if (!(t20303>=t20304)) goto l4085; /* x203960 */ /* x203959 */ goto l4086; l4085: /* x203966 */ /* x203965 */ /* x203964 stalin.sc:28260:970831 */ /* x203962 stalin.sc:28260:970845 */ t20306 = a32317; /* x203963 stalin.sc:28260:970847 */ t20307 = "Improper WHEN"; /* x203961 stalin.sc:28260:970832 */ f9705(t20306, t20307); l4086: /* x203952 */ /* x203951 stalin.sc:28261:970867 */ /* x203929 */ t20281 = q43; /* x203950 */ /* x203933 stalin.sc:28261:970873 */ /* x203932 stalin.sc:28261:970884 */ t20288 = a32317; /* x203931 stalin.sc:28261:970874 */ t20285 = f9722(t20288); /* x203949 */ /* x203947 */ /* x203936 */ t20292 = q239; /* x203946 */ /* x203945 */ /* x203944 stalin.sc:28261:970896 */ /* x203943 stalin.sc:28261:970907 */ /* x203942 stalin.sc:28261:970916 */ /* x203941 stalin.sc:28261:970925 */ t20301 = a32317; /* x203940 stalin.sc:28261:970917 */ a41425 = t20301; /* x299812 stalin.sc:7008:242336 */ /* x299811 stalin.sc:7008:242344 */ t20302 = a41425; /* x299810 stalin.sc:7008:242337 */ t20299 = f9720(t20302); /* x203939 stalin.sc:28261:970908 */ a41424 = t20299; /* x299808 stalin.sc:7008:242336 */ /* x299807 stalin.sc:7008:242344 */ t20300 = a41424; /* x299806 stalin.sc:7008:242337 */ t20298 = f9720(t20300); /* x203938 stalin.sc:28261:970897 */ t20295 = f9772(t20298); /* x203937 */ t20297.tag = STRUCTURE_TYPE24753; t20297.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t20297.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18339]"); out_of_memory_error();} t20297.value.structure_type24753->s0.tag = NULL_TYPE; t20297.value.structure_type24753->s1.tag = NULL_TYPE; t20296 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t20296==NULL) {backtrace_internal("[inside top level 18339]"); out_of_memory_error();} t20296->s0 = *((struct w49 *)(&t20295)); t20296->s1 = t20297; t20293 = f26254(t20296); /* x203935 */ t20294.tag = EXTERNAL_SYMBOL_TYPE; t20294.value.external_symbol_type = t20292; t20289 = f26175(t20294, t20293); /* x203948 */ /* x203934 */ t20290.tag = STRUCTURE_TYPE24753; t20290.value.structure_type24753 = t20289; t20291.tag = NULL_TYPE; t20286 = f26175(t20290, t20291); /* x203930 */ t20287.tag = STRUCTURE_TYPE24753; t20287.value.structure_type24753 = t20286; t20282 = f26175(t20285, t20287); /* x203928 */ t20283.tag = EXTERNAL_SYMBOL_TYPE; t20283.value.external_symbol_type = t20281; t20284.tag = STRUCTURE_TYPE24753; t20284.value.structure_type24753 = t20282; return f26175(t20283, t20284);} /* [inside C-LIBRARY 18325] */ struct structure_type24753 *f18325(struct w49 a32312) {struct structure_type24753 *a34888; /* OBJS */ char *t20308; struct w49 t20309; char *t20310; struct w49 t20311; struct w49 t20312; /* x203775 stalin.sc:28184:968307 */ /* x203774 stalin.sc:28184:968334 */ t20310 = ".h>"; /* x203773 stalin.sc:28184:968326 */ t20309 = a32312; /* x203772 stalin.sc:28184:968313 */ t20308 = "#include <"; /* x203771 stalin.sc:28184:968308 */ t20312.tag = STRUCTURE_TYPE24753; t20312.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t20312.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28184, 968307); out_of_memory_error();} t20312.value.structure_type24753->s0.tag = STRING_TYPE; t20312.value.structure_type24753->s0.value.string_type = t20310; t20312.value.structure_type24753->s1.tag = NULL_TYPE; t20311.tag = STRUCTURE_TYPE24753; t20311.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t20311.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28184, 968307); out_of_memory_error();} t20311.value.structure_type24753->s0 = t20309; t20311.value.structure_type24753->s1 = t20312; a34888 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34888==NULL) {backtrace("stalin.sc", 28184, 968307); out_of_memory_error();} a34888->s0.tag = STRING_TYPE; a34888->s0.value.string_type = t20308; a34888->s1 = t20311; /* x271783 */ return a34888;} /* INCLUDE![18320] */ void f18320(struct w49 a32306) {struct w49 t20313; struct structure_type24753 *t20314; struct w49 t20315; struct w49 t20316; struct structure_type24753 *t20317; /* x203765 stalin.sc:28164:967628 */ /* x203755 stalin.sc:28164:967636 */ /* x203753 stalin.sc:28164:967644 */ t20313 = a32306; /* x203754 stalin.sc:28164:967652 */ t20314 = a743; /* x203752 stalin.sc:28164:967637 */ /* MOVE: branching squeezed to general */ if (t20314>=((struct structure_type24753 *)VALUE_OFFSET)) {t20315.tag = STRUCTURE_TYPE24753; t20315.value.structure_type24753 = t20314;} else t20315.tag = (unsigned)t20314; if ((f26353(t20313, t20315).tag)==FALSE_TYPE) goto l4088; /* x203757 */ /* x203756 */ return; l4088: /* x203764 */ /* x203763 */ /* x203762 stalin.sc:28165:967668 */ /* x203761 stalin.sc:28165:967687 */ /* x203759 stalin.sc:28165:967693 */ t20316 = a32306; /* x203760 stalin.sc:28165:967701 */ t20317 = a743; /* x267961 stalin.sc:28165:967688 */ a743 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a743==NULL) {backtrace("stalin.sc", 28165, 967687); out_of_memory_error();} a743->s0 = t20316; /* MOVE: branching squeezed to general */ if (t20317>=((struct structure_type24753 *)VALUE_OFFSET)) {a743->s1.tag = STRUCTURE_TYPE24753; a743->s1.value.structure_type24753 = t20317;} else a743->s1.tag = (unsigned)t20317; return;} /* [inside SCHEME-LIBRARY 18319] */ struct structure_type24753 *f18319(struct w49 a32305) {struct structure_type24753 *t20318; struct structure_type24753 *t20319; struct w49 t20320; struct w49 t20321; char *t20322; struct structure_type24753 *t20323; struct w49 t20324; struct w49 t20325; char *t20326; struct structure_type24753 *t20327; struct w49 t20328; struct w49 t20329; char *t20330; struct w49 t20331; struct w49 t20332; struct w49 t20333; struct structure_type24753 *t20334; struct w49 t20335; struct w49 t20336; char *t20337; struct structure_type24753 *t20338; struct w49 t20339; struct w49 t20340; struct w49 t20341; struct w49 t20342; /* x190514 stalin.sc:26861:927150 */ /* x190503 */ /* x190493 */ t20322 = q362; /* x190502 */ /* x190495 */ t20326 = q161; /* x190501 */ /* x190499 stalin.sc:26861:927170 */ /* x190498 stalin.sc:26861:927186 */ t20333 = a32305; /* x267962 stalin.sc:26861:927171 */ if (!((t20333.tag)==EXTERNAL_SYMBOL_TYPE)) {backtrace("stalin.sc", 26861, 927170); symbol_string_error();} t20330 = t20333.value.external_symbol_type; /* x190500 */ /* x190496 */ t20331.tag = STRING_TYPE; t20331.value.string_type = t20330; t20332.tag = NULL_TYPE; t20327 = f26175(t20331, t20332); /* x190494 */ t20328.tag = EXTERNAL_SYMBOL_TYPE; t20328.value.external_symbol_type = t20326; t20329.tag = STRUCTURE_TYPE24753; t20329.value.structure_type24753 = t20327; t20323 = f26175(t20328, t20329); /* x190492 */ t20324.tag = EXTERNAL_SYMBOL_TYPE; t20324.value.external_symbol_type = t20322; t20325.tag = STRUCTURE_TYPE24753; t20325.value.structure_type24753 = t20323; t20318 = f26175(t20324, t20325); /* x190513 */ /* x190511 */ /* x190506 */ t20337 = q11; /* x190510 */ /* x190508 stalin.sc:26861:927192 */ t20341 = a32305; /* x190509 */ /* x190507 */ t20342.tag = NULL_TYPE; t20338 = f26175(t20341, t20342); /* x190505 */ t20339.tag = EXTERNAL_SYMBOL_TYPE; t20339.value.external_symbol_type = t20337; t20340.tag = STRUCTURE_TYPE24753; t20340.value.structure_type24753 = t20338; t20334 = f26175(t20339, t20340); /* x190512 */ /* x190504 */ t20335.tag = STRUCTURE_TYPE24753; t20335.value.structure_type24753 = t20334; t20336.tag = NULL_TYPE; t20319 = f26175(t20335, t20336); /* x190491 */ t20320.tag = STRUCTURE_TYPE24753; t20320.value.structure_type24753 = t20318; t20321.tag = STRUCTURE_TYPE24753; t20321.value.structure_type24753 = t20319; return f26175(t20320, t20321);} /* SCHEME-LIBRARY[18318] */ struct w49 f18318(struct structure_type24753 *a32303, struct w49 a32304) {struct structure_type24753 *t20343; struct w49 t20344; char *t20345; struct structure_type24753 *t20346; struct w49 t20347; struct w49 t20348; struct structure_type24753 *t20349; struct structure_type24753 *t20350; struct w49 t20351; struct w49 t20352; struct structure_type24753 *t20354; struct structure_type24753 *t20355; struct w49 t20356; struct w49 t20357; struct structure_type24753 *t20367; struct structure_type24753 *t20368; struct w49 t20369; struct w49 t20370; struct structure_type24753 *t20380; struct structure_type24753 *t20381; struct w49 t20382; struct w49 t20383; struct structure_type24753 *t20443; struct structure_type24753 *t20444; struct w49 t20445; struct w49 t20446; struct structure_type24753 *t20458; struct structure_type24753 *t20459; struct w49 t20460; struct w49 t20461; struct structure_type24753 *t20558; struct structure_type24753 *t20559; struct w49 t20560; struct w49 t20561; struct structure_type24753 *t20572; struct structure_type24753 *t20573; struct w49 t20574; struct w49 t20575; struct structure_type24753 *t20589; struct structure_type24753 *t20590; struct w49 t20591; struct w49 t20592; struct structure_type24753 *t20604; struct structure_type24753 *t20605; struct w49 t20606; struct w49 t20607; struct structure_type24753 *t20619; struct structure_type24753 *t20620; struct w49 t20621; struct w49 t20622; struct structure_type24753 *t20636; struct structure_type24753 *t20637; struct w49 t20638; struct w49 t20639; struct structure_type24753 *t20653; struct structure_type24753 *t20654; struct w49 t20655; struct w49 t20656; struct structure_type24753 *t20666; struct structure_type24753 *t20667; struct w49 t20668; struct w49 t20669; struct structure_type24753 *t20679; struct structure_type24753 *t20680; struct w49 t20681; struct w49 t20682; struct structure_type24753 *t20692; struct structure_type24753 *t20693; struct w49 t20694; struct w49 t20695; struct structure_type24753 *t20705; struct structure_type24753 *t20706; struct w49 t20707; struct w49 t20708; struct structure_type24753 *t20720; struct structure_type24753 *t20721; struct w49 t20722; struct w49 t20723; struct structure_type24753 *t20735; struct structure_type24753 *t20736; struct w49 t20737; struct w49 t20738; struct structure_type24753 *t20750; struct structure_type24753 *t20751; struct w49 t20752; struct w49 t20753; struct structure_type24753 *t20765; struct structure_type24753 *t20766; struct w49 t20767; struct w49 t20768; struct structure_type24753 *t20780; struct structure_type24753 *t20781; struct w49 t20782; struct w49 t20783; struct structure_type24753 *t20795; struct structure_type24753 *t20796; struct w49 t20797; struct w49 t20798; struct structure_type24753 *t20810; struct structure_type24753 *t20811; struct w49 t20812; struct w49 t20813; struct structure_type24753 *t20825; struct structure_type24753 *t20826; struct w49 t20827; struct w49 t20828; struct structure_type24753 *t20842; struct structure_type24753 *t20843; struct w49 t20844; struct w49 t20845; struct structure_type24753 *t20859; struct structure_type24753 *t20860; struct w49 t20861; struct w49 t20862; struct structure_type24753 *t20876; struct structure_type24753 *t20877; struct w49 t20878; struct w49 t20879; struct structure_type24753 *t20893; struct structure_type24753 *t20894; struct w49 t20895; struct w49 t20896; struct structure_type24753 *t20910; struct structure_type24753 *t20911; struct w49 t20912; struct w49 t20913; struct structure_type24753 *t20927; struct structure_type24753 *t20928; struct w49 t20929; struct w49 t20930; struct structure_type24753 *t20944; struct structure_type24753 *t20945; struct w49 t20946; struct w49 t20947; struct structure_type24753 *t20961; struct structure_type24753 *t20962; struct w49 t20963; struct w49 t20964; struct structure_type24753 *t20978; struct structure_type24753 *t20979; struct w49 t20980; struct w49 t20981; struct structure_type24753 *t20995; struct structure_type24753 *t20996; struct w49 t20997; struct w49 t20998; struct structure_type24753 *t21012; struct structure_type24753 *t21013; struct w49 t21014; struct w49 t21015; struct structure_type24753 *t21029; struct structure_type24753 *t21030; struct w49 t21031; struct w49 t21032; struct structure_type24753 *t21046; struct structure_type24753 *t21047; struct w49 t21048; struct w49 t21049; struct structure_type24753 *t21063; struct structure_type24753 *t21064; struct w49 t21065; struct w49 t21066; struct structure_type24753 *t21080; struct structure_type24753 *t21081; struct w49 t21082; struct w49 t21083; struct structure_type24753 *t21097; struct structure_type24753 *t21098; struct w49 t21099; struct w49 t21100; struct structure_type24753 *t21110; struct structure_type24753 *t21111; struct w49 t21112; struct w49 t21113; struct structure_type24753 *t21184; struct structure_type24753 *t21185; struct w49 t21186; struct w49 t21187; struct structure_type24753 *t21192; struct structure_type24753 *t21193; struct w49 t21194; struct w49 t21195; struct structure_type24753 *t21228; struct structure_type24753 *t21229; struct w49 t21230; struct w49 t21231; struct structure_type24753 *t21269; struct structure_type24753 *t21270; struct w49 t21271; struct w49 t21272; struct structure_type24753 *t21329; struct structure_type24753 *t21330; struct w49 t21331; struct w49 t21332; struct structure_type24753 *t21396; struct structure_type24753 *t21397; struct w49 t21398; struct w49 t21399; struct structure_type24753 *t21478; struct structure_type24753 *t21479; struct w49 t21480; struct w49 t21481; struct structure_type24753 *t21865; struct structure_type24753 *t21866; struct w49 t21867; struct w49 t21868; struct structure_type24753 *t21902; struct structure_type24753 *t21903; struct w49 t21904; struct w49 t21905; struct structure_type24753 *t21945; struct structure_type24753 *t21946; struct w49 t21947; struct w49 t21948; struct structure_type24753 *t21969; struct structure_type24753 *t21970; struct w49 t21971; struct w49 t21972; struct structure_type24753 *t22008; struct structure_type24753 *t22009; struct w49 t22010; struct w49 t22011; struct structure_type24753 *t22048; struct structure_type24753 *t22049; struct w49 t22050; struct w49 t22051; struct structure_type24753 *t22079; struct structure_type24753 *t22080; struct w49 t22081; struct w49 t22082; struct structure_type24753 *t22110; struct structure_type24753 *t22111; struct w49 t22112; struct w49 t22113; struct structure_type24753 *t22141; struct structure_type24753 *t22142; struct w49 t22143; struct w49 t22144; struct structure_type24753 *t22176; struct structure_type24753 *t22177; struct w49 t22178; struct w49 t22179; struct structure_type24753 *t22211; struct structure_type24753 *t22212; struct w49 t22213; struct w49 t22214; struct structure_type24753 *t22246; struct structure_type24753 *t22247; struct w49 t22248; struct w49 t22249; struct structure_type24753 *t22287; struct structure_type24753 *t22288; struct w49 t22289; struct w49 t22290; struct structure_type24753 *t22331; struct structure_type24753 *t22332; struct w49 t22333; struct w49 t22334; struct structure_type24753 *t22365; struct structure_type24753 *t22366; struct w49 t22367; struct w49 t22368; struct structure_type24753 *t22412; struct structure_type24753 *t22413; struct w49 t22414; struct w49 t22415; struct structure_type24753 *t22438; struct structure_type24753 *t22439; struct w49 t22440; struct w49 t22441; struct structure_type24753 *t22481; struct structure_type24753 *t22482; struct w49 t22483; struct w49 t22484; struct structure_type24753 *t22494; struct structure_type24753 *t22495; struct w49 t22496; struct w49 t22497; struct structure_type24753 *t22507; struct structure_type24753 *t22508; struct w49 t22509; struct w49 t22510; struct structure_type24753 *t22520; struct structure_type24753 *t22521; struct w49 t22522; struct w49 t22523; char *t22524; struct structure_type24753 *t22525; struct w49 t22526; struct w49 t22527; char *t22528; struct structure_type24753 *t22529; struct w49 t22530; struct w49 t22531; struct structure_type24753 *t22532; struct w49 t22533; struct w49 t22534; char *t22535; struct structure_type24753 *t22536; struct w49 t22537; struct w49 t22538; struct structure_type24753 *t22539; struct structure_type24753 *t22540; struct w49 t22541; struct w49 t22542; struct structure_type24753 *t22548; struct w49 t22549; struct w49 t22550; char *t22551; struct structure_type24753 *t22552; struct w49 t22553; struct w49 t22554; struct structure_type24753 *t22555; struct structure_type24753 *t22556; struct w49 t22557; struct w49 t22558; struct structure_type24753 *t22560; struct w49 t22561; struct w49 t22562; char *t22563; struct w49 t22564; struct w49 t22565; struct structure_type24753 *t22566; struct structure_type24753 *t22567; struct structure_type24753 *t22568; struct w49 t22569; struct structure_type24753 *t22570; struct w36270 t22571; struct w49 t22572; struct structure_type24753 *t22573; struct structure_type24753 *t22634; struct structure_type24753 *t22635; struct w49 t22636; struct w49 t22637; struct structure_type24753 *t22647; struct structure_type24753 *t22648; struct w49 t22649; struct w49 t22650; struct structure_type24753 *t22654; struct structure_type24753 *t22655; struct w49 t22656; struct w49 t22657; struct structure_type24753 *t22667; struct structure_type24753 *t22668; struct w49 t22669; struct w49 t22670; struct structure_type24753 *t22674; struct structure_type24753 *t22675; struct w49 t22676; struct w49 t22677; struct structure_type24753 *t22687; struct structure_type24753 *t22688; struct w49 t22689; struct w49 t22690; struct structure_type24753 *t22700; struct structure_type24753 *t22701; struct w49 t22702; struct w49 t22703; struct structure_type24753 *t22713; struct structure_type24753 *t22714; struct w49 t22715; struct w49 t22716; struct structure_type24753 *t22763; struct structure_type24753 *t22764; struct w49 t22765; struct w49 t22766; struct structure_type24753 *t22813; struct structure_type24753 *t22814; struct w49 t22815; struct w49 t22816; struct structure_type24753 *t22863; struct structure_type24753 *t22864; struct w49 t22865; struct w49 t22866; struct structure_type24753 *t22913; struct structure_type24753 *t22914; struct w49 t22915; struct w49 t22916; struct structure_type24753 *t22963; struct structure_type24753 *t22964; struct w49 t22965; struct w49 t22966; struct structure_type24753 *t22976; struct structure_type24753 *t22977; struct w49 t22978; struct w49 t22979; struct structure_type24753 *t22989; struct structure_type24753 *t22990; struct w49 t22991; struct w49 t22992; struct structure_type24753 *t23002; struct structure_type24753 *t23003; struct w49 t23004; struct w49 t23005; struct structure_type24753 *t23015; struct structure_type24753 *t23016; struct w49 t23017; struct w49 t23018; struct structure_type24753 *t23029; struct structure_type24753 *t23030; struct w49 t23031; struct w49 t23032; struct structure_type24753 *t23085; struct structure_type24753 *t23086; struct w49 t23087; struct w49 t23088; struct structure_type24753 *t23141; struct structure_type24753 *t23142; struct w49 t23143; struct w49 t23144; struct structure_type24753 *t23194; struct structure_type24753 *t23195; struct w49 t23196; struct w49 t23197; struct structure_type24753 *t23247; struct structure_type24753 *t23248; struct w49 t23249; struct w49 t23250; struct structure_type24753 *t23303; struct structure_type24753 *t23304; struct w49 t23305; struct w49 t23306; struct structure_type24753 *t23359; struct structure_type24753 *t23360; struct w49 t23361; struct w49 t23362; struct structure_type24753 *t23376; struct structure_type24753 *t23377; struct w49 t23378; struct w49 t23379; struct structure_type24753 *t23391; struct structure_type24753 *t23392; struct w49 t23393; struct w49 t23394; struct structure_type24753 *t23406; struct structure_type24753 *t23407; struct w49 t23408; struct w49 t23409; struct structure_type24753 *t23446; struct structure_type24753 *t23447; struct w49 t23448; struct w49 t23449; struct structure_type24753 *t23603; struct structure_type24753 *t23604; struct w49 t23605; struct w49 t23606; struct structure_type24753 *t23745; struct structure_type24753 *t23746; struct w49 t23747; struct w49 t23748; struct structure_type24753 *t23760; struct structure_type24753 *t23761; struct w49 t23762; struct w49 t23763; struct structure_type24753 *t23775; struct structure_type24753 *t23776; struct w49 t23777; struct w49 t23778; struct structure_type24753 *t23788; struct structure_type24753 *t23789; struct w49 t23790; struct w49 t23791; struct structure_type24753 *t23841; struct structure_type24753 *t23842; struct w49 t23843; struct w49 t23844; struct structure_type24753 *t23894; struct structure_type24753 *t23895; struct w49 t23896; struct w49 t23897; struct structure_type24753 *t23947; struct structure_type24753 *t23948; struct w49 t23949; struct w49 t23950; struct structure_type24753 *t23960; struct structure_type24753 *t23961; struct w49 t23962; struct w49 t23963; struct structure_type24753 *t23973; struct structure_type24753 *t23974; struct w49 t23975; struct w49 t23976; struct structure_type24753 *t23986; struct structure_type24753 *t23987; struct w49 t23988; struct w49 t23989; struct structure_type24753 *t23999; struct structure_type24753 *t24000; struct w49 t24001; struct w49 t24002; struct structure_type24753 *t24012; struct structure_type24753 *t24013; struct w49 t24014; struct w49 t24015; struct structure_type24753 *t24025; struct structure_type24753 *t24026; struct w49 t24027; struct w49 t24028; struct structure_type24753 *t24038; struct structure_type24753 *t24039; struct w49 t24040; struct w49 t24041; struct structure_type24753 *t24051; struct structure_type24753 *t24052; struct w49 t24053; struct w49 t24054; struct structure_type24753 *t24064; struct structure_type24753 *t24065; struct w49 t24066; struct w49 t24067; struct structure_type24753 *t24077; struct structure_type24753 *t24078; struct w49 t24079; struct w49 t24080; struct structure_type24753 *t24090; struct structure_type24753 *t24091; struct w49 t24092; struct w49 t24093; struct structure_type24753 *t24128; struct structure_type24753 *t24129; struct w49 t24130; struct w49 t24131; struct structure_type24753 *t24141; struct structure_type24753 *t24142; struct w49 t24143; struct w49 t24144; struct structure_type24753 *t24156; struct structure_type24753 *t24157; struct w49 t24158; struct w49 t24159; struct structure_type24753 *t24169; struct structure_type24753 *t24170; struct w49 t24171; struct w49 t24172; struct structure_type24753 *t24182; struct structure_type24753 *t24183; struct w49 t24184; struct w49 t24185; struct structure_type24753 *t24192; struct structure_type24753 *t24193; struct w49 t24194; struct w49 t24195; struct structure_type24753 *t24202; struct structure_type24753 *t24203; struct w49 t24204; struct w49 t24205; struct structure_type24753 *t24215; struct structure_type24753 *t24216; struct w49 t24217; struct w49 t24218; struct structure_type24753 *t24261; struct structure_type24753 *t24262; struct w49 t24263; struct w49 t24264; struct structure_type24753 *t24307; struct structure_type24753 *t24308; struct w49 t24309; struct w49 t24310; struct structure_type24753 *t24353; struct structure_type24753 *t24354; struct w49 t24355; struct w49 t24356; struct structure_type24753 *t24399; struct structure_type24753 *t24400; struct w49 t24401; struct w49 t24402; struct structure_type24753 *t24445; struct structure_type24753 *t24446; struct w49 t24447; struct w49 t24448; struct structure_type24753 *t24497; struct structure_type24753 *t24498; struct w49 t24499; struct w49 t24500; struct structure_type24753 *t24549; struct structure_type24753 *t24550; struct w49 t24551; struct w49 t24552; struct structure_type24753 *t24601; struct structure_type24753 *t24602; struct w49 t24603; struct w49 t24604; struct structure_type24753 *t24653; struct structure_type24753 *t24654; struct w49 t24655; struct w49 t24656; struct structure_type24753 *t24705; struct structure_type24753 *t24706; struct w49 t24707; struct w49 t24708; struct structure_type24753 *t24730; struct structure_type24753 *t24731; struct w49 t24732; struct w49 t24733; struct structure_type24753 *t24755; struct structure_type24753 *t24756; struct w49 t24757; struct w49 t24758; struct structure_type24753 *t24780; struct structure_type24753 *t24781; struct w49 t24782; struct w49 t24783; struct structure_type24753 *t24805; struct structure_type24753 *t24806; struct w49 t24807; struct w49 t24808; struct structure_type24753 *t24830; struct structure_type24753 *t24831; struct w49 t24832; struct w49 t24833; struct structure_type24753 *t24843; struct structure_type24753 *t24844; struct w49 t24845; struct w49 t24846; struct structure_type24753 *t24856; struct structure_type24753 *t24857; struct w49 t24858; struct w49 t24859; struct structure_type24753 *t24883; struct structure_type24753 *t24884; struct w49 t24885; struct w49 t24886; struct structure_type24753 *t24910; struct structure_type24753 *t24911; struct w49 t24912; struct w49 t24913; struct structure_type24753 *t24923; struct structure_type24753 *t24924; struct w49 t24925; struct w49 t24926; struct structure_type24753 *t24961; struct structure_type24753 *t24962; struct w49 t24963; struct w49 t24964; struct structure_type24753 *t25012; struct structure_type24753 *t25013; struct w49 t25014; struct w49 t25015; struct structure_type24753 *t25025; struct structure_type24753 *t25026; struct w49 t25027; struct w49 t25028; struct structure_type24753 *t25040; struct structure_type24753 *t25041; struct w49 t25042; struct w49 t25043; struct structure_type24753 *t25057; struct structure_type24753 *t25058; struct w49 t25059; struct w49 t25060; struct structure_type24753 *t25140; struct structure_type24753 *t25141; struct w49 t25142; struct w49 t25143; struct structure_type24753 *t25223; struct structure_type24753 *t25224; struct w49 t25225; struct w49 t25226; struct structure_type24753 *t25330; struct structure_type24753 *t25331; struct w49 t25332; struct w49 t25333; struct structure_type24753 *t25437; struct structure_type24753 *t25438; struct w49 t25439; struct w49 t25440; struct structure_type24753 *t25544; struct structure_type24753 *t25545; struct w49 t25546; struct w49 t25547; struct structure_type24753 *t25651; struct structure_type24753 *t25652; struct w49 t25653; struct w49 t25654; struct structure_type24753 *t25758; struct structure_type24753 *t25759; struct w49 t25760; struct w49 t25761; struct structure_type24753 *t25865; struct structure_type24753 *t25866; struct w49 t25867; struct w49 t25868; struct structure_type24753 *t25972; struct structure_type24753 *t25973; struct w49 t25974; struct w49 t25975; struct structure_type24753 *t26079; struct structure_type24753 *t26080; struct w49 t26081; struct w49 t26082; struct structure_type24753 *t26133; struct structure_type24753 *t26134; struct w49 t26135; struct w49 t26136; struct structure_type24753 *t26249; struct structure_type24753 *t26250; struct w49 t26251; struct w49 t26252; struct structure_type24753 *t26293; struct structure_type24753 *t26294; struct w49 t26295; struct w49 t26296; struct structure_type24753 *t26347; struct structure_type24753 *t26348; struct w49 t26349; struct w49 t26350; struct structure_type24753 *t26400; struct structure_type24753 *t26401; struct w49 t26402; struct w49 t26403; struct structure_type24753 *t26445; struct structure_type24753 *t26446; struct w49 t26447; struct w49 t26448; struct structure_type24753 *t26504; struct structure_type24753 *t26505; struct w49 t26506; struct w49 t26507; struct structure_type24753 *t26517; struct structure_type24753 *t26518; struct w49 t26519; struct w49 t26520; struct structure_type24753 *t26555; struct structure_type24753 *t26556; struct w49 t26557; struct w49 t26558; struct structure_type24753 *t26572; struct structure_type24753 *t26573; struct w49 t26574; struct w49 t26575; struct structure_type24753 *t26623; struct structure_type24753 *t26624; struct w49 t26625; struct w49 t26626; struct structure_type24753 *t26636; struct structure_type24753 *t26637; struct w49 t26638; struct w49 t26639; struct structure_type24753 *t26651; struct structure_type24753 *t26652; struct w49 t26653; struct w49 t26654; struct structure_type24753 *t26668; struct structure_type24753 *t26669; struct w49 t26670; struct w49 t26671; struct structure_type24753 *t26706; struct structure_type24753 *t26707; struct w49 t26708; struct w49 t26709; struct structure_type24753 *t26760; struct structure_type24753 *t26761; struct w49 t26762; struct w49 t26763; struct structure_type24753 *t26799; struct structure_type24753 *t26800; struct w49 t26801; struct w49 t26802; struct structure_type24753 *t26856; struct structure_type24753 *t26857; struct w49 t26858; struct w49 t26859; struct structure_type24753 *t26968; struct structure_type24753 *t26969; struct w49 t26970; struct w49 t26971; struct structure_type24753 *t27028; struct structure_type24753 *t27029; struct w49 t27030; struct w49 t27031; struct structure_type24753 *t27080; struct structure_type24753 *t27081; struct w49 t27082; struct w49 t27083; struct structure_type24753 *t27093; struct structure_type24753 *t27094; struct w49 t27095; struct w49 t27096; struct structure_type24753 *t27177; struct structure_type24753 *t27178; struct w49 t27179; struct w49 t27180; struct structure_type24753 *t27380; struct structure_type24753 *t27381; struct w49 t27382; struct w49 t27383; struct structure_type24753 *t27562; struct structure_type24753 *t27563; struct w49 t27564; struct w49 t27565; struct structure_type24753 *t27572; struct structure_type24753 *t27573; struct w49 t27574; struct w49 t27575; struct structure_type24753 *t27585; struct structure_type24753 *t27586; struct w49 t27587; struct w49 t27588; struct structure_type24753 *t27611; struct structure_type24753 *t27612; struct w49 t27613; struct w49 t27614; struct structure_type24753 *t27637; struct structure_type24753 *t27638; struct w49 t27639; struct w49 t27640; struct structure_type24753 *t27650; struct structure_type24753 *t27651; struct w49 t27652; struct w49 t27653; struct structure_type24753 *t27663; struct structure_type24753 *t27664; struct w49 t27665; struct w49 t27666; struct structure_type24753 *t27673; struct structure_type24753 *t27674; struct w49 t27675; struct w49 t27676; struct structure_type24753 *t27683; struct structure_type24753 *t27684; struct w49 t27685; struct w49 t27686; struct structure_type24753 *t27693; struct structure_type24753 *t27694; struct w49 t27695; struct w49 t27696; struct structure_type24753 *t27703; struct structure_type24753 *t27704; struct w49 t27705; struct w49 t27706; struct structure_type24753 *t27716; struct structure_type24753 *t27717; struct w49 t27718; struct w49 t27719; struct structure_type24753 *t27729; struct structure_type24753 *t27730; struct w49 t27731; struct w49 t27732; struct structure_type24753 *t27742; struct structure_type24753 *t27743; struct w49 t27744; struct w49 t27745; struct structure_type24753 *t27755; struct structure_type24753 *t27756; struct w49 t27757; struct w49 t27758; struct structure_type24753 *t27759; struct structure_type24753 *t27760; struct w49 t27761; struct w49 t27762; struct structure_type24753 *t27769; struct structure_type24753 *t27770; struct w49 t27771; struct w49 t27772; struct structure_type24753 *t27779; struct structure_type24753 *t27780; struct w49 t27781; struct w49 t27782; struct structure_type24753 *t27792; struct structure_type24753 *t27793; struct w49 t27794; struct w49 t27795; struct structure_type24753 *t27802; struct structure_type24753 *t27803; struct w49 t27804; struct w49 t27805; struct structure_type24753 *t27812; struct structure_type24753 *t27813; struct w49 t27814; struct w49 t27815; struct structure_type24753 *t27822; struct structure_type24753 *t27823; struct w49 t27824; struct w49 t27825; struct structure_type24753 *t27832; struct structure_type24753 *t27833; struct w49 t27834; struct w49 t27835; struct structure_type24753 *t27842; struct structure_type24753 *t27843; struct w49 t27844; struct w49 t27845; struct structure_type24753 *t27852; struct structure_type24753 *t27853; struct w49 t27854; struct w49 t27855; struct structure_type24753 *t27862; struct structure_type24753 *t27863; struct w49 t27864; struct w49 t27865; struct structure_type24753 *t27866; struct structure_type24753 *t27867; struct w49 t27868; struct w49 t27869; struct structure_type24753 *t27879; struct structure_type24753 *t27880; struct w49 t27881; struct w49 t27882; struct structure_type24753 *t27892; struct structure_type24753 *t27893; struct w49 t27894; struct w49 t27895; struct structure_type24753 *t27905; struct structure_type24753 *t27906; struct w49 t27907; struct w49 t27908; struct structure_type24753 *t27918; struct structure_type24753 *t27919; struct w49 t27920; struct w49 t27921; struct structure_type24753 *t27931; struct structure_type24753 *t27932; struct w49 t27933; struct w49 t27934; struct structure_type24753 *t27944; struct structure_type24753 *t27945; struct w49 t27946; struct w49 t27947; char *t27948; struct structure_type24753 *t27949; struct w49 t27950; struct w49 t27951; char *t27952; struct structure_type24753 *t27953; struct w49 t27954; struct w49 t27955; struct structure_type24753 *t27957; struct structure_type24753 *t27958; struct w49 t27959; struct w49 t27960; char *t27961; struct structure_type24753 *t27962; struct w49 t27963; struct w49 t27964; char *t27965; struct structure_type24753 *t27966; struct w49 t27967; struct w49 t27968; struct structure_type24753 *t27970; struct structure_type24753 *t27971; struct w49 t27972; struct w49 t27973; char *t27974; struct structure_type24753 *t27975; struct w49 t27976; struct w49 t27977; char *t27978; struct structure_type24753 *t27979; struct w49 t27980; struct w49 t27981; struct structure_type24753 *t27983; struct structure_type24753 *t27984; struct w49 t27985; struct w49 t27986; char *t27987; struct structure_type24753 *t27988; struct w49 t27989; struct w49 t27990; char *t27991; struct structure_type24753 *t27992; struct w49 t27993; struct w49 t27994; struct structure_type24753 *t27996; struct w49 t27997; struct w49 t27998; char *t27999; struct structure_type24753 *t28000; struct w49 t28001; struct w49 t28002; struct structure_type24753 *t28003; struct w49 t28004; struct w49 t28005; struct w49 t28648; struct structure_type24753 *t28649; struct w49 t28650; /* x203733 stalin.sc:26502:915062 */ /* x203732 stalin.sc:26507:915125 */ /* x186530 */ t20345 = q39; /* x203731 */ /* x186534 */ t20349 = &t20353; /* x203730 */ /* x186554 */ t20354 = &t20358; /* x203729 */ /* x186574 */ t20367 = &t20371; /* x203728 */ /* x186694 */ t20380 = &t20384; /* x203727 */ /* x186718 */ t20443 = &t20447; /* x203726 */ /* x186912 */ t20458 = &t20462; /* x203725 */ /* x186934 */ t20558 = &t20562; /* x203724 */ /* x186962 */ t20572 = &t20576; /* x203723 */ /* x186986 */ t20589 = &t20593; /* x203722 */ /* x187010 */ t20604 = &t20608; /* x203721 */ /* x187038 */ t20619 = &t20623; /* x203720 */ /* x187066 */ t20636 = &t20640; /* x203719 */ /* x187086 */ t20653 = &t20657; /* x203718 */ /* x187106 */ t20666 = &t20670; /* x203717 */ /* x187126 */ t20679 = &t20683; /* x203716 */ /* x187146 */ t20692 = &t20696; /* x203715 */ /* x187170 */ t20705 = &t20709; /* x203714 */ /* x187194 */ t20720 = &t20724; /* x203713 */ /* x187218 */ t20735 = &t20739; /* x203712 */ /* x187242 */ t20750 = &t20754; /* x203711 */ /* x187266 */ t20765 = &t20769; /* x203710 */ /* x187290 */ t20780 = &t20784; /* x203709 */ /* x187314 */ t20795 = &t20799; /* x203708 */ /* x187338 */ t20810 = &t20814; /* x203707 */ /* x187366 */ t20825 = &t20829; /* x203706 */ /* x187394 */ t20842 = &t20846; /* x203705 */ /* x187422 */ t20859 = &t20863; /* x203704 */ /* x187450 */ t20876 = &t20880; /* x203703 */ /* x187478 */ t20893 = &t20897; /* x203702 */ /* x187506 */ t20910 = &t20914; /* x203701 */ /* x187534 */ t20927 = &t20931; /* x203700 */ /* x187562 */ t20944 = &t20948; /* x203699 */ /* x187590 */ t20961 = &t20965; /* x203698 */ /* x187618 */ t20978 = &t20982; /* x203697 */ /* x187646 */ t20995 = &t20999; /* x203696 */ /* x187674 */ t21012 = &t21016; /* x203695 */ /* x187702 */ t21029 = &t21033; /* x203694 */ /* x187730 */ t21046 = &t21050; /* x203693 */ /* x187758 */ t21063 = &t21067; /* x203692 */ /* x187786 */ t21080 = &t21084; /* x203691 */ /* x187806 */ t21097 = &t21101; /* x203690 */ /* x187948 */ t21110 = &t21114; /* x203689 */ /* x187958 */ t21184 = &t21188; /* x203688 */ /* x188024 */ t21192 = &t21196; /* x203687 */ /* x188100 */ t21228 = &t21232; /* x203686 */ /* x188214 */ t21269 = &t21273; /* x203685 */ /* x188342 */ t21329 = &t21333; /* x203684 */ /* x188500 */ t21396 = &t21400; /* x203683 */ /* x189268 */ t21478 = &t21482; /* x203682 */ /* x189336 */ t21865 = &t21869; /* x203681 */ /* x189416 */ t21902 = &t21906; /* x203680 */ /* x189458 */ t21945 = &t21949; /* x203679 */ /* x189530 */ t21969 = &t21973; /* x203678 */ /* x189604 */ t22008 = &t22012; /* x203677 */ /* x189660 */ t22048 = &t22052; /* x203676 */ /* x189716 */ t22079 = &t22083; /* x203675 */ /* x189772 */ t22110 = &t22114; /* x203674 */ /* x189836 */ t22141 = &t22145; /* x203673 */ /* x189900 */ t22176 = &t22180; /* x203672 */ /* x189964 */ t22211 = &t22215; /* x203671 */ /* x190040 */ t22246 = &t22250; /* x203670 */ /* x190122 */ t22287 = &t22291; /* x203669 */ /* x190184 */ t22331 = &t22335; /* x203668 */ /* x190272 */ t22365 = &t22369; /* x203667 */ /* x190318 */ t22412 = &t22416; /* x203666 */ /* x190398 */ t22438 = &t22442; /* x203665 */ /* x190418 */ t22481 = &t22485; /* x203664 */ /* x190438 */ t22494 = &t22498; /* x203663 */ /* x190458 */ t22507 = &t22511; /* x203662 */ /* x190652 */ /* x190461 */ t22524 = q97; /* x190651 */ /* x190463 */ t22528 = q282; /* x190650 */ /* x190648 */ /* x190466 */ t22535 = q242; /* x190647 */ /* x190478 */ t22539 = &t22543; /* x190646 */ /* x190644 */ /* x190481 */ t22551 = q39; /* x190643 */ /* x190485 */ t22555 = &t22559; /* x190642 */ /* x190640 */ /* x190488 */ t22563 = q240; /* x190639 */ /* x190638 */ t22567 = &t22574; /* x190517 stalin.sc:26861:927133 */ /* x190516 stalin.sc:26861:927196 */ t22570 = a32303; /* x190515 stalin.sc:26861:927138 */ /* x190490 stalin.sc:26861:927134 */ t22571.tag = NATIVE_PROCEDURE_TYPE14115; /* MOVE: branching squeezed to general */ if (t22570>=((struct structure_type24753 *)VALUE_OFFSET)) {t22572.tag = STRUCTURE_TYPE24753; t22572.value.structure_type24753 = t22570;} else t22572.tag = (unsigned)t22570; t22573 = (struct structure_type24753 *)NULL_TYPE; t22566 = f27731(t22571, t22572, t22573); /* x190489 */ t22569.tag = STRUCTURE_TYPE24753; t22569.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t22569.value.structure_type24753)==NULL) {backtrace_internal("SCHEME-LIBRARY[18318]"); out_of_memory_error();} t22569.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t22569.value.structure_type24753->s0.value.structure_type24753 = t22567; t22569.value.structure_type24753->s1.tag = NULL_TYPE; t22568 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t22568==NULL) {backtrace_internal("SCHEME-LIBRARY[18318]"); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t22566>=((struct structure_type24753 *)VALUE_OFFSET)) {t22568->s0.tag = STRUCTURE_TYPE24753; t22568->s0.value.structure_type24753 = t22566;} else t22568->s0.tag = (unsigned)t22566; t22568->s1 = t22569; t22564 = f26254(t22568); /* x190487 */ t22565.tag = EXTERNAL_SYMBOL_TYPE; t22565.value.external_symbol_type = t22563; t22560 = f26175(t22565, t22564); /* x190641 */ /* x190486 */ t22561.tag = STRUCTURE_TYPE24753; t22561.value.structure_type24753 = t22560; t22562.tag = NULL_TYPE; t22556 = f26175(t22561, t22562); /* x190482 */ t22557.tag = STRUCTURE_TYPE24753; t22557.value.structure_type24753 = t22555; t22558.tag = STRUCTURE_TYPE24753; t22558.value.structure_type24753 = t22556; t22552 = f26175(t22557, t22558); /* x190480 */ t22553.tag = EXTERNAL_SYMBOL_TYPE; t22553.value.external_symbol_type = t22551; t22554.tag = STRUCTURE_TYPE24753; t22554.value.structure_type24753 = t22552; t22548 = f26175(t22553, t22554); /* x190645 */ /* x190479 */ t22549.tag = STRUCTURE_TYPE24753; t22549.value.structure_type24753 = t22548; t22550.tag = NULL_TYPE; t22540 = f26175(t22549, t22550); /* x190467 */ t22541.tag = STRUCTURE_TYPE24753; t22541.value.structure_type24753 = t22539; t22542.tag = STRUCTURE_TYPE24753; t22542.value.structure_type24753 = t22540; t22536 = f26175(t22541, t22542); /* x190465 */ t22537.tag = EXTERNAL_SYMBOL_TYPE; t22537.value.external_symbol_type = t22535; t22538.tag = STRUCTURE_TYPE24753; t22538.value.structure_type24753 = t22536; t22532 = f26175(t22537, t22538); /* x190649 */ /* x190464 */ t22533.tag = STRUCTURE_TYPE24753; t22533.value.structure_type24753 = t22532; t22534.tag = NULL_TYPE; t22529 = f26175(t22533, t22534); /* x190462 */ t22530.tag = EXTERNAL_SYMBOL_TYPE; t22530.value.external_symbol_type = t22528; t22531.tag = STRUCTURE_TYPE24753; t22531.value.structure_type24753 = t22529; t22525 = f26175(t22530, t22531); /* x190460 */ t22526.tag = EXTERNAL_SYMBOL_TYPE; t22526.value.external_symbol_type = t22524; t22527.tag = STRUCTURE_TYPE24753; t22527.value.structure_type24753 = t22525; t22520 = f26175(t22526, t22527); /* x203661 */ /* x190672 */ t22634 = &t22638; /* x203660 */ /* x190680 */ t22647 = &t22651; /* x203659 */ /* x190700 */ t22654 = &t22658; /* x203658 */ /* x190708 */ t22667 = &t22671; /* x203657 */ /* x190728 */ t22674 = &t22678; /* x203656 */ /* x190748 */ t22687 = &t22691; /* x203655 */ /* x190768 */ t22700 = &t22704; /* x203654 */ /* x190862 */ t22713 = &t22717; /* x203653 */ /* x190956 */ t22763 = &t22767; /* x203652 */ /* x191050 */ t22813 = &t22817; /* x203651 */ /* x191144 */ t22863 = &t22867; /* x203650 */ /* x191238 */ t22913 = &t22917; /* x203649 */ /* x191258 */ t22963 = &t22967; /* x203648 */ /* x191278 */ t22976 = &t22980; /* x203647 */ /* x191298 */ t22989 = &t22993; /* x203646 */ /* x191318 */ t23002 = &t23006; /* x203645 */ /* x191340 */ t23015 = &t23019; /* x203644 */ /* x191446 */ t23029 = &t23033; /* x203643 */ /* x191552 */ t23085 = &t23089; /* x203642 */ /* x191652 */ t23141 = &t23145; /* x203641 */ /* x191752 */ t23194 = &t23198; /* x203640 */ /* x191858 */ t23247 = &t23251; /* x203639 */ /* x191964 */ t23303 = &t23307; /* x203638 */ /* x191992 */ t23359 = &t23363; /* x203637 */ /* x192016 */ t23376 = &t23380; /* x203636 */ /* x192040 */ t23391 = &t23395; /* x203635 */ /* x192114 */ t23406 = &t23410; /* x203634 */ /* x192422 */ t23446 = &t23450; /* x203633 */ /* x192700 */ t23603 = &t23607; /* x203632 */ /* x192724 */ t23745 = &t23749; /* x203631 */ /* x192748 */ t23760 = &t23764; /* x203630 */ /* x192768 */ t23775 = &t23779; /* x203629 */ /* x192868 */ t23788 = &t23792; /* x203628 */ /* x192968 */ t23841 = &t23845; /* x203627 */ /* x193068 */ t23894 = &t23898; /* x203626 */ /* x193088 */ t23947 = &t23951; /* x203625 */ /* x193108 */ t23960 = &t23964; /* x203624 */ /* x193128 */ t23973 = &t23977; /* x203623 */ /* x193148 */ t23986 = &t23990; /* x203622 */ /* x193168 */ t23999 = &t24003; /* x203621 */ /* x193188 */ t24012 = &t24016; /* x203620 */ /* x193208 */ t24025 = &t24029; /* x203619 */ /* x193228 */ t24038 = &t24042; /* x203618 */ /* x193248 */ t24051 = &t24055; /* x203617 */ /* x193268 */ t24064 = &t24068; /* x203616 */ /* x193288 */ t24077 = &t24081; /* x203615 */ /* x193358 */ t24090 = &t24094; /* x203614 */ /* x193378 */ t24128 = &t24132; /* x203613 */ /* x193402 */ t24141 = &t24145; /* x203612 */ /* x193422 */ t24156 = &t24160; /* x203611 */ /* x193442 */ t24169 = &t24173; /* x203610 */ /* x193456 */ t24182 = &t24186; /* x203609 */ /* x193470 */ t24192 = &t24196; /* x203608 */ /* x193490 */ t24202 = &t24206; /* x203607 */ /* x193576 */ t24215 = &t24219; /* x203606 */ /* x193662 */ t24261 = &t24265; /* x203605 */ /* x193748 */ t24307 = &t24311; /* x203604 */ /* x193834 */ t24353 = &t24357; /* x203603 */ /* x193920 */ t24399 = &t24403; /* x203602 */ /* x194018 */ t24445 = &t24449; /* x203601 */ /* x194116 */ t24497 = &t24501; /* x203600 */ /* x194214 */ t24549 = &t24553; /* x203599 */ /* x194312 */ t24601 = &t24605; /* x203598 */ /* x194410 */ t24653 = &t24657; /* x203597 */ /* x194708 */ t24705 = &t24709; /* x203596 */ /* x195006 */ t24730 = &t24734; /* x203595 */ /* x195304 */ t24755 = &t24759; /* x203594 */ /* x195602 */ t24780 = &t24784; /* x203593 */ /* x195900 */ t24805 = &t24809; /* x203592 */ /* x195920 */ t24830 = &t24834; /* x203591 */ /* x195940 */ t24843 = &t24847; /* x203590 */ /* x196242 */ t24856 = &t24860; /* x203589 */ /* x196544 */ t24883 = &t24887; /* x203588 */ /* x196564 */ t24910 = &t24914; /* x203587 */ /* x196634 */ t24923 = &t24927; /* x203586 */ /* x196730 */ t24961 = &t24965; /* x203585 */ /* x196750 */ t25012 = &t25016; /* x203584 */ /* x196774 */ t25025 = &t25029; /* x203583 */ /* x196802 */ t25040 = &t25044; /* x203582 */ /* x196962 */ t25057 = &t25061; /* x203581 */ /* x197122 */ t25140 = &t25144; /* x203580 */ /* x197330 */ t25223 = &t25227; /* x203579 */ /* x197538 */ t25330 = &t25334; /* x203578 */ /* x197746 */ t25437 = &t25441; /* x203577 */ /* x197954 */ t25544 = &t25548; /* x203576 */ /* x198162 */ t25651 = &t25655; /* x203575 */ /* x198370 */ t25758 = &t25762; /* x203574 */ /* x198578 */ t25865 = &t25869; /* x203573 */ /* x198786 */ t25972 = &t25976; /* x203572 */ /* x198888 */ t26079 = &t26083; /* x203571 */ /* x199114 */ t26133 = &t26137; /* x203570 */ /* x199196 */ t26249 = &t26253; /* x203569 */ /* x199298 */ t26293 = &t26297; /* x203568 */ /* x199398 */ t26347 = &t26351; /* x203567 */ /* x199482 */ t26400 = &t26404; /* x203566 */ /* x199594 */ t26445 = &t26449; /* x203565 */ /* x199614 */ t26504 = &t26508; /* x203564 */ /* x199684 */ t26517 = &t26521; /* x203563 */ /* x199712 */ t26555 = &t26559; /* x203562 */ /* x199808 */ t26572 = &t26576; /* x203561 */ /* x199828 */ t26623 = &t26627; /* x203560 */ /* x199852 */ t26636 = &t26640; /* x203559 */ /* x199880 */ t26651 = &t26655; /* x203558 */ /* x199950 */ t26668 = &t26672; /* x203557 */ /* x200052 */ t26706 = &t26710; /* x203556 */ /* x200124 */ t26760 = &t26764; /* x203555 */ /* x200232 */ t26799 = &t26803; /* x203554 */ /* x200450 */ t26856 = &t26860; /* x203553 */ /* x200564 */ t26968 = &t26972; /* x203552 */ /* x200662 */ t27028 = &t27032; /* x203551 */ /* x200682 */ t27080 = &t27084; /* x203550 */ /* x200844 */ t27093 = &t27097; /* x203549 */ /* x201244 */ t27177 = &t27181; /* x203548 */ /* x201602 */ t27380 = &t27384; /* x203547 */ /* x201616 */ t27562 = &t27566; /* x203546 */ /* x201636 */ t27572 = &t27576; /* x203545 */ /* x201682 */ t27585 = &t27589; /* x203544 */ /* x201728 */ t27611 = &t27615; /* x203543 */ /* x201748 */ t27637 = &t27641; /* x203542 */ /* x201768 */ t27650 = &t27654; /* x203541 */ /* x201782 */ t27663 = &t27667; /* x203540 */ /* x201796 */ t27673 = &t27677; /* x203539 */ /* x201810 */ t27683 = &t27687; /* x203538 */ /* x201824 */ t27693 = &t27697; /* x203537 */ /* x201844 */ t27703 = &t27707; /* x203536 */ /* x201864 */ t27716 = &t27720; /* x203535 */ /* x201884 */ t27729 = &t27733; /* x203534 */ /* x201904 */ t27742 = &t27746; /* x203533 */ /* x201906 stalin.sc:27881:960731 */ t27755 = a753; /* x203532 */ /* x201920 */ t27759 = &t27763; /* x203531 */ /* x201934 */ t27769 = &t27773; /* x203530 */ /* x201954 */ t27779 = &t27783; /* x203529 */ /* x201968 */ t27792 = &t27796; /* x203528 */ /* x201982 */ t27802 = &t27806; /* x203527 */ /* x201996 */ t27812 = &t27816; /* x203526 */ /* x202010 */ t27822 = &t27826; /* x203525 */ /* x202024 */ t27832 = &t27836; /* x203524 */ /* x202038 */ t27842 = &t27846; /* x203523 */ /* x202052 */ t27852 = &t27856; /* x203522 */ /* x202054 stalin.sc:27907:961420 */ t27862 = a752; /* x203521 */ /* x202074 */ t27866 = &t27870; /* x203520 */ /* x202094 */ t27879 = &t27883; /* x203519 */ /* x202114 */ t27892 = &t27896; /* x203518 */ /* x202134 */ t27905 = &t27909; /* x203517 */ /* x202154 */ t27918 = &t27922; /* x203516 */ /* x202174 */ t27931 = &t27935; /* x203515 */ /* x202184 */ /* x202177 */ t27948 = q97; /* x202183 */ /* x202179 stalin.sc:27931:962136 */ t27952 = a765; /* x202182 */ t27953 = &t27956; /* x202178 */ /* MOVE: branching squeezed to general */ if (t27952>=((char *)VALUE_OFFSET)) {t27954.tag = EXTERNAL_SYMBOL_TYPE; t27954.value.external_symbol_type = t27952;} else t27954.tag = (unsigned)t27952; t27955.tag = STRUCTURE_TYPE24753; t27955.value.structure_type24753 = t27953; t27949 = f26175(t27954, t27955); /* x202176 */ t27950.tag = EXTERNAL_SYMBOL_TYPE; t27950.value.external_symbol_type = t27948; t27951.tag = STRUCTURE_TYPE24753; t27951.value.structure_type24753 = t27949; t27944 = f26175(t27950, t27951); /* x203514 */ /* x202194 */ /* x202187 */ t27961 = q97; /* x202193 */ /* x202189 stalin.sc:27932:962178 */ t27965 = a764; /* x202192 */ t27966 = &t27969; /* x202188 */ /* MOVE: branching squeezed to general */ if (t27965>=((char *)VALUE_OFFSET)) {t27967.tag = EXTERNAL_SYMBOL_TYPE; t27967.value.external_symbol_type = t27965;} else t27967.tag = (unsigned)t27965; t27968.tag = STRUCTURE_TYPE24753; t27968.value.structure_type24753 = t27966; t27962 = f26175(t27967, t27968); /* x202186 */ t27963.tag = EXTERNAL_SYMBOL_TYPE; t27963.value.external_symbol_type = t27961; t27964.tag = STRUCTURE_TYPE24753; t27964.value.structure_type24753 = t27962; t27957 = f26175(t27963, t27964); /* x203513 */ /* x202204 */ /* x202197 */ t27974 = q97; /* x202203 */ /* x202199 stalin.sc:27933:962208 */ t27978 = a763; /* x202202 */ t27979 = &t27982; /* x202198 */ /* MOVE: branching squeezed to general */ if (t27978>=((char *)VALUE_OFFSET)) {t27980.tag = EXTERNAL_SYMBOL_TYPE; t27980.value.external_symbol_type = t27978;} else t27980.tag = (unsigned)t27978; t27981.tag = STRUCTURE_TYPE24753; t27981.value.structure_type24753 = t27979; t27975 = f26175(t27980, t27981); /* x202196 */ t27976.tag = EXTERNAL_SYMBOL_TYPE; t27976.value.external_symbol_type = t27974; t27977.tag = STRUCTURE_TYPE24753; t27977.value.structure_type24753 = t27975; t27970 = f26175(t27976, t27977); /* x203512 */ /* x202214 */ /* x202207 */ t27987 = q97; /* x202213 */ /* x202209 stalin.sc:27934:962234 */ t27991 = a762; /* x202212 */ t27992 = &t27995; /* x202208 */ /* MOVE: branching squeezed to general */ if (t27991>=((char *)VALUE_OFFSET)) {t27993.tag = EXTERNAL_SYMBOL_TYPE; t27993.value.external_symbol_type = t27991;} else t27993.tag = (unsigned)t27991; t27994.tag = STRUCTURE_TYPE24753; t27994.value.structure_type24753 = t27992; t27988 = f26175(t27993, t27994); /* x202206 */ t27989.tag = EXTERNAL_SYMBOL_TYPE; t27989.value.external_symbol_type = t27987; t27990.tag = STRUCTURE_TYPE24753; t27990.value.structure_type24753 = t27988; t27983 = f26175(t27989, t27990); /* x203511 */ /* x203509 */ /* x202217 */ t27999 = q242; /* x203508 */ /* x203503 */ t28003 = &t28006; /* x203507 */ /* x203506 */ /* x203505 stalin.sc:28149:967362 */ t28648 = a32304; /* x203504 */ t28650.tag = STRUCTURE_TYPE24753; t28650.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t28650.value.structure_type24753)==NULL) {backtrace_internal("SCHEME-LIBRARY[18318]"); out_of_memory_error();} t28650.value.structure_type24753->s0.tag = NULL_TYPE; t28650.value.structure_type24753->s1.tag = NULL_TYPE; t28649 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t28649==NULL) {backtrace_internal("SCHEME-LIBRARY[18318]"); out_of_memory_error();} t28649->s0 = t28648; t28649->s1 = t28650; t28004 = f26254(t28649); /* x202218 */ t28005.tag = STRUCTURE_TYPE24753; t28005.value.structure_type24753 = t28003; t28000 = f26175(t28005, t28004); /* x202216 */ t28001.tag = EXTERNAL_SYMBOL_TYPE; t28001.value.external_symbol_type = t27999; t28002.tag = STRUCTURE_TYPE24753; t28002.value.structure_type24753 = t28000; t27996 = f26175(t28001, t28002); /* x203510 */ /* x202215 */ t27997.tag = STRUCTURE_TYPE24753; t27997.value.structure_type24753 = t27996; t27998.tag = NULL_TYPE; t27984 = f26175(t27997, t27998); /* x202205 */ t27985.tag = STRUCTURE_TYPE24753; t27985.value.structure_type24753 = t27983; t27986.tag = STRUCTURE_TYPE24753; t27986.value.structure_type24753 = t27984; t27971 = f26175(t27985, t27986); /* x202195 */ t27972.tag = STRUCTURE_TYPE24753; t27972.value.structure_type24753 = t27970; t27973.tag = STRUCTURE_TYPE24753; t27973.value.structure_type24753 = t27971; t27958 = f26175(t27972, t27973); /* x202185 */ t27959.tag = STRUCTURE_TYPE24753; t27959.value.structure_type24753 = t27957; t27960.tag = STRUCTURE_TYPE24753; t27960.value.structure_type24753 = t27958; t27945 = f26175(t27959, t27960); /* x202175 */ t27946.tag = STRUCTURE_TYPE24753; t27946.value.structure_type24753 = t27944; t27947.tag = STRUCTURE_TYPE24753; t27947.value.structure_type24753 = t27945; t27932 = f26175(t27946, t27947); /* x202155 */ t27933.tag = STRUCTURE_TYPE24753; t27933.value.structure_type24753 = t27931; t27934.tag = STRUCTURE_TYPE24753; t27934.value.structure_type24753 = t27932; t27919 = f26175(t27933, t27934); /* x202135 */ t27920.tag = STRUCTURE_TYPE24753; t27920.value.structure_type24753 = t27918; t27921.tag = STRUCTURE_TYPE24753; t27921.value.structure_type24753 = t27919; t27906 = f26175(t27920, t27921); /* x202115 */ t27907.tag = STRUCTURE_TYPE24753; t27907.value.structure_type24753 = t27905; t27908.tag = STRUCTURE_TYPE24753; t27908.value.structure_type24753 = t27906; t27893 = f26175(t27907, t27908); /* x202095 */ t27894.tag = STRUCTURE_TYPE24753; t27894.value.structure_type24753 = t27892; t27895.tag = STRUCTURE_TYPE24753; t27895.value.structure_type24753 = t27893; t27880 = f26175(t27894, t27895); /* x202075 */ t27881.tag = STRUCTURE_TYPE24753; t27881.value.structure_type24753 = t27879; t27882.tag = STRUCTURE_TYPE24753; t27882.value.structure_type24753 = t27880; t27867 = f26175(t27881, t27882); /* x202055 */ t27868.tag = STRUCTURE_TYPE24753; t27868.value.structure_type24753 = t27866; t27869.tag = STRUCTURE_TYPE24753; t27869.value.structure_type24753 = t27867; t27863 = f26175(t27868, t27869); /* x202053 */ t27864.tag = STRUCTURE_TYPE24753; t27864.value.structure_type24753 = t27862; t27865.tag = STRUCTURE_TYPE24753; t27865.value.structure_type24753 = t27863; t27853 = f26175(t27864, t27865); /* x202039 */ t27854.tag = STRUCTURE_TYPE24753; t27854.value.structure_type24753 = t27852; t27855.tag = STRUCTURE_TYPE24753; t27855.value.structure_type24753 = t27853; t27843 = f26175(t27854, t27855); /* x202025 */ t27844.tag = STRUCTURE_TYPE24753; t27844.value.structure_type24753 = t27842; t27845.tag = STRUCTURE_TYPE24753; t27845.value.structure_type24753 = t27843; t27833 = f26175(t27844, t27845); /* x202011 */ t27834.tag = STRUCTURE_TYPE24753; t27834.value.structure_type24753 = t27832; t27835.tag = STRUCTURE_TYPE24753; t27835.value.structure_type24753 = t27833; t27823 = f26175(t27834, t27835); /* x201997 */ t27824.tag = STRUCTURE_TYPE24753; t27824.value.structure_type24753 = t27822; t27825.tag = STRUCTURE_TYPE24753; t27825.value.structure_type24753 = t27823; t27813 = f26175(t27824, t27825); /* x201983 */ t27814.tag = STRUCTURE_TYPE24753; t27814.value.structure_type24753 = t27812; t27815.tag = STRUCTURE_TYPE24753; t27815.value.structure_type24753 = t27813; t27803 = f26175(t27814, t27815); /* x201969 */ t27804.tag = STRUCTURE_TYPE24753; t27804.value.structure_type24753 = t27802; t27805.tag = STRUCTURE_TYPE24753; t27805.value.structure_type24753 = t27803; t27793 = f26175(t27804, t27805); /* x201955 */ t27794.tag = STRUCTURE_TYPE24753; t27794.value.structure_type24753 = t27792; t27795.tag = STRUCTURE_TYPE24753; t27795.value.structure_type24753 = t27793; t27780 = f26175(t27794, t27795); /* x201935 */ t27781.tag = STRUCTURE_TYPE24753; t27781.value.structure_type24753 = t27779; t27782.tag = STRUCTURE_TYPE24753; t27782.value.structure_type24753 = t27780; t27770 = f26175(t27781, t27782); /* x201921 */ t27771.tag = STRUCTURE_TYPE24753; t27771.value.structure_type24753 = t27769; t27772.tag = STRUCTURE_TYPE24753; t27772.value.structure_type24753 = t27770; t27760 = f26175(t27771, t27772); /* x201907 */ t27761.tag = STRUCTURE_TYPE24753; t27761.value.structure_type24753 = t27759; t27762.tag = STRUCTURE_TYPE24753; t27762.value.structure_type24753 = t27760; t27756 = f26175(t27761, t27762); /* x201905 */ t27757.tag = STRUCTURE_TYPE24753; t27757.value.structure_type24753 = t27755; t27758.tag = STRUCTURE_TYPE24753; t27758.value.structure_type24753 = t27756; t27743 = f26175(t27757, t27758); /* x201885 */ t27744.tag = STRUCTURE_TYPE24753; t27744.value.structure_type24753 = t27742; t27745.tag = STRUCTURE_TYPE24753; t27745.value.structure_type24753 = t27743; t27730 = f26175(t27744, t27745); /* x201865 */ t27731.tag = STRUCTURE_TYPE24753; t27731.value.structure_type24753 = t27729; t27732.tag = STRUCTURE_TYPE24753; t27732.value.structure_type24753 = t27730; t27717 = f26175(t27731, t27732); /* x201845 */ t27718.tag = STRUCTURE_TYPE24753; t27718.value.structure_type24753 = t27716; t27719.tag = STRUCTURE_TYPE24753; t27719.value.structure_type24753 = t27717; t27704 = f26175(t27718, t27719); /* x201825 */ t27705.tag = STRUCTURE_TYPE24753; t27705.value.structure_type24753 = t27703; t27706.tag = STRUCTURE_TYPE24753; t27706.value.structure_type24753 = t27704; t27694 = f26175(t27705, t27706); /* x201811 */ t27695.tag = STRUCTURE_TYPE24753; t27695.value.structure_type24753 = t27693; t27696.tag = STRUCTURE_TYPE24753; t27696.value.structure_type24753 = t27694; t27684 = f26175(t27695, t27696); /* x201797 */ t27685.tag = STRUCTURE_TYPE24753; t27685.value.structure_type24753 = t27683; t27686.tag = STRUCTURE_TYPE24753; t27686.value.structure_type24753 = t27684; t27674 = f26175(t27685, t27686); /* x201783 */ t27675.tag = STRUCTURE_TYPE24753; t27675.value.structure_type24753 = t27673; t27676.tag = STRUCTURE_TYPE24753; t27676.value.structure_type24753 = t27674; t27664 = f26175(t27675, t27676); /* x201769 */ t27665.tag = STRUCTURE_TYPE24753; t27665.value.structure_type24753 = t27663; t27666.tag = STRUCTURE_TYPE24753; t27666.value.structure_type24753 = t27664; t27651 = f26175(t27665, t27666); /* x201749 */ t27652.tag = STRUCTURE_TYPE24753; t27652.value.structure_type24753 = t27650; t27653.tag = STRUCTURE_TYPE24753; t27653.value.structure_type24753 = t27651; t27638 = f26175(t27652, t27653); /* x201729 */ t27639.tag = STRUCTURE_TYPE24753; t27639.value.structure_type24753 = t27637; t27640.tag = STRUCTURE_TYPE24753; t27640.value.structure_type24753 = t27638; t27612 = f26175(t27639, t27640); /* x201683 */ t27613.tag = STRUCTURE_TYPE24753; t27613.value.structure_type24753 = t27611; t27614.tag = STRUCTURE_TYPE24753; t27614.value.structure_type24753 = t27612; t27586 = f26175(t27613, t27614); /* x201637 */ t27587.tag = STRUCTURE_TYPE24753; t27587.value.structure_type24753 = t27585; t27588.tag = STRUCTURE_TYPE24753; t27588.value.structure_type24753 = t27586; t27573 = f26175(t27587, t27588); /* x201617 */ t27574.tag = STRUCTURE_TYPE24753; t27574.value.structure_type24753 = t27572; t27575.tag = STRUCTURE_TYPE24753; t27575.value.structure_type24753 = t27573; t27563 = f26175(t27574, t27575); /* x201603 */ t27564.tag = STRUCTURE_TYPE24753; t27564.value.structure_type24753 = t27562; t27565.tag = STRUCTURE_TYPE24753; t27565.value.structure_type24753 = t27563; t27381 = f26175(t27564, t27565); /* x201245 */ t27382.tag = STRUCTURE_TYPE24753; t27382.value.structure_type24753 = t27380; t27383.tag = STRUCTURE_TYPE24753; t27383.value.structure_type24753 = t27381; t27178 = f26175(t27382, t27383); /* x200845 */ t27179.tag = STRUCTURE_TYPE24753; t27179.value.structure_type24753 = t27177; t27180.tag = STRUCTURE_TYPE24753; t27180.value.structure_type24753 = t27178; t27094 = f26175(t27179, t27180); /* x200683 */ t27095.tag = STRUCTURE_TYPE24753; t27095.value.structure_type24753 = t27093; t27096.tag = STRUCTURE_TYPE24753; t27096.value.structure_type24753 = t27094; t27081 = f26175(t27095, t27096); /* x200663 */ t27082.tag = STRUCTURE_TYPE24753; t27082.value.structure_type24753 = t27080; t27083.tag = STRUCTURE_TYPE24753; t27083.value.structure_type24753 = t27081; t27029 = f26175(t27082, t27083); /* x200565 */ t27030.tag = STRUCTURE_TYPE24753; t27030.value.structure_type24753 = t27028; t27031.tag = STRUCTURE_TYPE24753; t27031.value.structure_type24753 = t27029; t26969 = f26175(t27030, t27031); /* x200451 */ t26970.tag = STRUCTURE_TYPE24753; t26970.value.structure_type24753 = t26968; t26971.tag = STRUCTURE_TYPE24753; t26971.value.structure_type24753 = t26969; t26857 = f26175(t26970, t26971); /* x200233 */ t26858.tag = STRUCTURE_TYPE24753; t26858.value.structure_type24753 = t26856; t26859.tag = STRUCTURE_TYPE24753; t26859.value.structure_type24753 = t26857; t26800 = f26175(t26858, t26859); /* x200125 */ t26801.tag = STRUCTURE_TYPE24753; t26801.value.structure_type24753 = t26799; t26802.tag = STRUCTURE_TYPE24753; t26802.value.structure_type24753 = t26800; t26761 = f26175(t26801, t26802); /* x200053 */ t26762.tag = STRUCTURE_TYPE24753; t26762.value.structure_type24753 = t26760; t26763.tag = STRUCTURE_TYPE24753; t26763.value.structure_type24753 = t26761; t26707 = f26175(t26762, t26763); /* x199951 */ t26708.tag = STRUCTURE_TYPE24753; t26708.value.structure_type24753 = t26706; t26709.tag = STRUCTURE_TYPE24753; t26709.value.structure_type24753 = t26707; t26669 = f26175(t26708, t26709); /* x199881 */ t26670.tag = STRUCTURE_TYPE24753; t26670.value.structure_type24753 = t26668; t26671.tag = STRUCTURE_TYPE24753; t26671.value.structure_type24753 = t26669; t26652 = f26175(t26670, t26671); /* x199853 */ t26653.tag = STRUCTURE_TYPE24753; t26653.value.structure_type24753 = t26651; t26654.tag = STRUCTURE_TYPE24753; t26654.value.structure_type24753 = t26652; t26637 = f26175(t26653, t26654); /* x199829 */ t26638.tag = STRUCTURE_TYPE24753; t26638.value.structure_type24753 = t26636; t26639.tag = STRUCTURE_TYPE24753; t26639.value.structure_type24753 = t26637; t26624 = f26175(t26638, t26639); /* x199809 */ t26625.tag = STRUCTURE_TYPE24753; t26625.value.structure_type24753 = t26623; t26626.tag = STRUCTURE_TYPE24753; t26626.value.structure_type24753 = t26624; t26573 = f26175(t26625, t26626); /* x199713 */ t26574.tag = STRUCTURE_TYPE24753; t26574.value.structure_type24753 = t26572; t26575.tag = STRUCTURE_TYPE24753; t26575.value.structure_type24753 = t26573; t26556 = f26175(t26574, t26575); /* x199685 */ t26557.tag = STRUCTURE_TYPE24753; t26557.value.structure_type24753 = t26555; t26558.tag = STRUCTURE_TYPE24753; t26558.value.structure_type24753 = t26556; t26518 = f26175(t26557, t26558); /* x199615 */ t26519.tag = STRUCTURE_TYPE24753; t26519.value.structure_type24753 = t26517; t26520.tag = STRUCTURE_TYPE24753; t26520.value.structure_type24753 = t26518; t26505 = f26175(t26519, t26520); /* x199595 */ t26506.tag = STRUCTURE_TYPE24753; t26506.value.structure_type24753 = t26504; t26507.tag = STRUCTURE_TYPE24753; t26507.value.structure_type24753 = t26505; t26446 = f26175(t26506, t26507); /* x199483 */ t26447.tag = STRUCTURE_TYPE24753; t26447.value.structure_type24753 = t26445; t26448.tag = STRUCTURE_TYPE24753; t26448.value.structure_type24753 = t26446; t26401 = f26175(t26447, t26448); /* x199399 */ t26402.tag = STRUCTURE_TYPE24753; t26402.value.structure_type24753 = t26400; t26403.tag = STRUCTURE_TYPE24753; t26403.value.structure_type24753 = t26401; t26348 = f26175(t26402, t26403); /* x199299 */ t26349.tag = STRUCTURE_TYPE24753; t26349.value.structure_type24753 = t26347; t26350.tag = STRUCTURE_TYPE24753; t26350.value.structure_type24753 = t26348; t26294 = f26175(t26349, t26350); /* x199197 */ t26295.tag = STRUCTURE_TYPE24753; t26295.value.structure_type24753 = t26293; t26296.tag = STRUCTURE_TYPE24753; t26296.value.structure_type24753 = t26294; t26250 = f26175(t26295, t26296); /* x199115 */ t26251.tag = STRUCTURE_TYPE24753; t26251.value.structure_type24753 = t26249; t26252.tag = STRUCTURE_TYPE24753; t26252.value.structure_type24753 = t26250; t26134 = f26175(t26251, t26252); /* x198889 */ t26135.tag = STRUCTURE_TYPE24753; t26135.value.structure_type24753 = t26133; t26136.tag = STRUCTURE_TYPE24753; t26136.value.structure_type24753 = t26134; t26080 = f26175(t26135, t26136); /* x198787 */ t26081.tag = STRUCTURE_TYPE24753; t26081.value.structure_type24753 = t26079; t26082.tag = STRUCTURE_TYPE24753; t26082.value.structure_type24753 = t26080; t25973 = f26175(t26081, t26082); /* x198579 */ t25974.tag = STRUCTURE_TYPE24753; t25974.value.structure_type24753 = t25972; t25975.tag = STRUCTURE_TYPE24753; t25975.value.structure_type24753 = t25973; t25866 = f26175(t25974, t25975); /* x198371 */ t25867.tag = STRUCTURE_TYPE24753; t25867.value.structure_type24753 = t25865; t25868.tag = STRUCTURE_TYPE24753; t25868.value.structure_type24753 = t25866; t25759 = f26175(t25867, t25868); /* x198163 */ t25760.tag = STRUCTURE_TYPE24753; t25760.value.structure_type24753 = t25758; t25761.tag = STRUCTURE_TYPE24753; t25761.value.structure_type24753 = t25759; t25652 = f26175(t25760, t25761); /* x197955 */ t25653.tag = STRUCTURE_TYPE24753; t25653.value.structure_type24753 = t25651; t25654.tag = STRUCTURE_TYPE24753; t25654.value.structure_type24753 = t25652; t25545 = f26175(t25653, t25654); /* x197747 */ t25546.tag = STRUCTURE_TYPE24753; t25546.value.structure_type24753 = t25544; t25547.tag = STRUCTURE_TYPE24753; t25547.value.structure_type24753 = t25545; t25438 = f26175(t25546, t25547); /* x197539 */ t25439.tag = STRUCTURE_TYPE24753; t25439.value.structure_type24753 = t25437; t25440.tag = STRUCTURE_TYPE24753; t25440.value.structure_type24753 = t25438; t25331 = f26175(t25439, t25440); /* x197331 */ t25332.tag = STRUCTURE_TYPE24753; t25332.value.structure_type24753 = t25330; t25333.tag = STRUCTURE_TYPE24753; t25333.value.structure_type24753 = t25331; t25224 = f26175(t25332, t25333); /* x197123 */ t25225.tag = STRUCTURE_TYPE24753; t25225.value.structure_type24753 = t25223; t25226.tag = STRUCTURE_TYPE24753; t25226.value.structure_type24753 = t25224; t25141 = f26175(t25225, t25226); /* x196963 */ t25142.tag = STRUCTURE_TYPE24753; t25142.value.structure_type24753 = t25140; t25143.tag = STRUCTURE_TYPE24753; t25143.value.structure_type24753 = t25141; t25058 = f26175(t25142, t25143); /* x196803 */ t25059.tag = STRUCTURE_TYPE24753; t25059.value.structure_type24753 = t25057; t25060.tag = STRUCTURE_TYPE24753; t25060.value.structure_type24753 = t25058; t25041 = f26175(t25059, t25060); /* x196775 */ t25042.tag = STRUCTURE_TYPE24753; t25042.value.structure_type24753 = t25040; t25043.tag = STRUCTURE_TYPE24753; t25043.value.structure_type24753 = t25041; t25026 = f26175(t25042, t25043); /* x196751 */ t25027.tag = STRUCTURE_TYPE24753; t25027.value.structure_type24753 = t25025; t25028.tag = STRUCTURE_TYPE24753; t25028.value.structure_type24753 = t25026; t25013 = f26175(t25027, t25028); /* x196731 */ t25014.tag = STRUCTURE_TYPE24753; t25014.value.structure_type24753 = t25012; t25015.tag = STRUCTURE_TYPE24753; t25015.value.structure_type24753 = t25013; t24962 = f26175(t25014, t25015); /* x196635 */ t24963.tag = STRUCTURE_TYPE24753; t24963.value.structure_type24753 = t24961; t24964.tag = STRUCTURE_TYPE24753; t24964.value.structure_type24753 = t24962; t24924 = f26175(t24963, t24964); /* x196565 */ t24925.tag = STRUCTURE_TYPE24753; t24925.value.structure_type24753 = t24923; t24926.tag = STRUCTURE_TYPE24753; t24926.value.structure_type24753 = t24924; t24911 = f26175(t24925, t24926); /* x196545 */ t24912.tag = STRUCTURE_TYPE24753; t24912.value.structure_type24753 = t24910; t24913.tag = STRUCTURE_TYPE24753; t24913.value.structure_type24753 = t24911; t24884 = f26175(t24912, t24913); /* x196243 */ t24885.tag = STRUCTURE_TYPE24753; t24885.value.structure_type24753 = t24883; t24886.tag = STRUCTURE_TYPE24753; t24886.value.structure_type24753 = t24884; t24857 = f26175(t24885, t24886); /* x195941 */ t24858.tag = STRUCTURE_TYPE24753; t24858.value.structure_type24753 = t24856; t24859.tag = STRUCTURE_TYPE24753; t24859.value.structure_type24753 = t24857; t24844 = f26175(t24858, t24859); /* x195921 */ t24845.tag = STRUCTURE_TYPE24753; t24845.value.structure_type24753 = t24843; t24846.tag = STRUCTURE_TYPE24753; t24846.value.structure_type24753 = t24844; t24831 = f26175(t24845, t24846); /* x195901 */ t24832.tag = STRUCTURE_TYPE24753; t24832.value.structure_type24753 = t24830; t24833.tag = STRUCTURE_TYPE24753; t24833.value.structure_type24753 = t24831; t24806 = f26175(t24832, t24833); /* x195603 */ t24807.tag = STRUCTURE_TYPE24753; t24807.value.structure_type24753 = t24805; t24808.tag = STRUCTURE_TYPE24753; t24808.value.structure_type24753 = t24806; t24781 = f26175(t24807, t24808); /* x195305 */ t24782.tag = STRUCTURE_TYPE24753; t24782.value.structure_type24753 = t24780; t24783.tag = STRUCTURE_TYPE24753; t24783.value.structure_type24753 = t24781; t24756 = f26175(t24782, t24783); /* x195007 */ t24757.tag = STRUCTURE_TYPE24753; t24757.value.structure_type24753 = t24755; t24758.tag = STRUCTURE_TYPE24753; t24758.value.structure_type24753 = t24756; t24731 = f26175(t24757, t24758); /* x194709 */ t24732.tag = STRUCTURE_TYPE24753; t24732.value.structure_type24753 = t24730; t24733.tag = STRUCTURE_TYPE24753; t24733.value.structure_type24753 = t24731; t24706 = f26175(t24732, t24733); /* x194411 */ t24707.tag = STRUCTURE_TYPE24753; t24707.value.structure_type24753 = t24705; t24708.tag = STRUCTURE_TYPE24753; t24708.value.structure_type24753 = t24706; t24654 = f26175(t24707, t24708); /* x194313 */ t24655.tag = STRUCTURE_TYPE24753; t24655.value.structure_type24753 = t24653; t24656.tag = STRUCTURE_TYPE24753; t24656.value.structure_type24753 = t24654; t24602 = f26175(t24655, t24656); /* x194215 */ t24603.tag = STRUCTURE_TYPE24753; t24603.value.structure_type24753 = t24601; t24604.tag = STRUCTURE_TYPE24753; t24604.value.structure_type24753 = t24602; t24550 = f26175(t24603, t24604); /* x194117 */ t24551.tag = STRUCTURE_TYPE24753; t24551.value.structure_type24753 = t24549; t24552.tag = STRUCTURE_TYPE24753; t24552.value.structure_type24753 = t24550; t24498 = f26175(t24551, t24552); /* x194019 */ t24499.tag = STRUCTURE_TYPE24753; t24499.value.structure_type24753 = t24497; t24500.tag = STRUCTURE_TYPE24753; t24500.value.structure_type24753 = t24498; t24446 = f26175(t24499, t24500); /* x193921 */ t24447.tag = STRUCTURE_TYPE24753; t24447.value.structure_type24753 = t24445; t24448.tag = STRUCTURE_TYPE24753; t24448.value.structure_type24753 = t24446; t24400 = f26175(t24447, t24448); /* x193835 */ t24401.tag = STRUCTURE_TYPE24753; t24401.value.structure_type24753 = t24399; t24402.tag = STRUCTURE_TYPE24753; t24402.value.structure_type24753 = t24400; t24354 = f26175(t24401, t24402); /* x193749 */ t24355.tag = STRUCTURE_TYPE24753; t24355.value.structure_type24753 = t24353; t24356.tag = STRUCTURE_TYPE24753; t24356.value.structure_type24753 = t24354; t24308 = f26175(t24355, t24356); /* x193663 */ t24309.tag = STRUCTURE_TYPE24753; t24309.value.structure_type24753 = t24307; t24310.tag = STRUCTURE_TYPE24753; t24310.value.structure_type24753 = t24308; t24262 = f26175(t24309, t24310); /* x193577 */ t24263.tag = STRUCTURE_TYPE24753; t24263.value.structure_type24753 = t24261; t24264.tag = STRUCTURE_TYPE24753; t24264.value.structure_type24753 = t24262; t24216 = f26175(t24263, t24264); /* x193491 */ t24217.tag = STRUCTURE_TYPE24753; t24217.value.structure_type24753 = t24215; t24218.tag = STRUCTURE_TYPE24753; t24218.value.structure_type24753 = t24216; t24203 = f26175(t24217, t24218); /* x193471 */ t24204.tag = STRUCTURE_TYPE24753; t24204.value.structure_type24753 = t24202; t24205.tag = STRUCTURE_TYPE24753; t24205.value.structure_type24753 = t24203; t24193 = f26175(t24204, t24205); /* x193457 */ t24194.tag = STRUCTURE_TYPE24753; t24194.value.structure_type24753 = t24192; t24195.tag = STRUCTURE_TYPE24753; t24195.value.structure_type24753 = t24193; t24183 = f26175(t24194, t24195); /* x193443 */ t24184.tag = STRUCTURE_TYPE24753; t24184.value.structure_type24753 = t24182; t24185.tag = STRUCTURE_TYPE24753; t24185.value.structure_type24753 = t24183; t24170 = f26175(t24184, t24185); /* x193423 */ t24171.tag = STRUCTURE_TYPE24753; t24171.value.structure_type24753 = t24169; t24172.tag = STRUCTURE_TYPE24753; t24172.value.structure_type24753 = t24170; t24157 = f26175(t24171, t24172); /* x193403 */ t24158.tag = STRUCTURE_TYPE24753; t24158.value.structure_type24753 = t24156; t24159.tag = STRUCTURE_TYPE24753; t24159.value.structure_type24753 = t24157; t24142 = f26175(t24158, t24159); /* x193379 */ t24143.tag = STRUCTURE_TYPE24753; t24143.value.structure_type24753 = t24141; t24144.tag = STRUCTURE_TYPE24753; t24144.value.structure_type24753 = t24142; t24129 = f26175(t24143, t24144); /* x193359 */ t24130.tag = STRUCTURE_TYPE24753; t24130.value.structure_type24753 = t24128; t24131.tag = STRUCTURE_TYPE24753; t24131.value.structure_type24753 = t24129; t24091 = f26175(t24130, t24131); /* x193289 */ t24092.tag = STRUCTURE_TYPE24753; t24092.value.structure_type24753 = t24090; t24093.tag = STRUCTURE_TYPE24753; t24093.value.structure_type24753 = t24091; t24078 = f26175(t24092, t24093); /* x193269 */ t24079.tag = STRUCTURE_TYPE24753; t24079.value.structure_type24753 = t24077; t24080.tag = STRUCTURE_TYPE24753; t24080.value.structure_type24753 = t24078; t24065 = f26175(t24079, t24080); /* x193249 */ t24066.tag = STRUCTURE_TYPE24753; t24066.value.structure_type24753 = t24064; t24067.tag = STRUCTURE_TYPE24753; t24067.value.structure_type24753 = t24065; t24052 = f26175(t24066, t24067); /* x193229 */ t24053.tag = STRUCTURE_TYPE24753; t24053.value.structure_type24753 = t24051; t24054.tag = STRUCTURE_TYPE24753; t24054.value.structure_type24753 = t24052; t24039 = f26175(t24053, t24054); /* x193209 */ t24040.tag = STRUCTURE_TYPE24753; t24040.value.structure_type24753 = t24038; t24041.tag = STRUCTURE_TYPE24753; t24041.value.structure_type24753 = t24039; t24026 = f26175(t24040, t24041); /* x193189 */ t24027.tag = STRUCTURE_TYPE24753; t24027.value.structure_type24753 = t24025; t24028.tag = STRUCTURE_TYPE24753; t24028.value.structure_type24753 = t24026; t24013 = f26175(t24027, t24028); /* x193169 */ t24014.tag = STRUCTURE_TYPE24753; t24014.value.structure_type24753 = t24012; t24015.tag = STRUCTURE_TYPE24753; t24015.value.structure_type24753 = t24013; t24000 = f26175(t24014, t24015); /* x193149 */ t24001.tag = STRUCTURE_TYPE24753; t24001.value.structure_type24753 = t23999; t24002.tag = STRUCTURE_TYPE24753; t24002.value.structure_type24753 = t24000; t23987 = f26175(t24001, t24002); /* x193129 */ t23988.tag = STRUCTURE_TYPE24753; t23988.value.structure_type24753 = t23986; t23989.tag = STRUCTURE_TYPE24753; t23989.value.structure_type24753 = t23987; t23974 = f26175(t23988, t23989); /* x193109 */ t23975.tag = STRUCTURE_TYPE24753; t23975.value.structure_type24753 = t23973; t23976.tag = STRUCTURE_TYPE24753; t23976.value.structure_type24753 = t23974; t23961 = f26175(t23975, t23976); /* x193089 */ t23962.tag = STRUCTURE_TYPE24753; t23962.value.structure_type24753 = t23960; t23963.tag = STRUCTURE_TYPE24753; t23963.value.structure_type24753 = t23961; t23948 = f26175(t23962, t23963); /* x193069 */ t23949.tag = STRUCTURE_TYPE24753; t23949.value.structure_type24753 = t23947; t23950.tag = STRUCTURE_TYPE24753; t23950.value.structure_type24753 = t23948; t23895 = f26175(t23949, t23950); /* x192969 */ t23896.tag = STRUCTURE_TYPE24753; t23896.value.structure_type24753 = t23894; t23897.tag = STRUCTURE_TYPE24753; t23897.value.structure_type24753 = t23895; t23842 = f26175(t23896, t23897); /* x192869 */ t23843.tag = STRUCTURE_TYPE24753; t23843.value.structure_type24753 = t23841; t23844.tag = STRUCTURE_TYPE24753; t23844.value.structure_type24753 = t23842; t23789 = f26175(t23843, t23844); /* x192769 */ t23790.tag = STRUCTURE_TYPE24753; t23790.value.structure_type24753 = t23788; t23791.tag = STRUCTURE_TYPE24753; t23791.value.structure_type24753 = t23789; t23776 = f26175(t23790, t23791); /* x192749 */ t23777.tag = STRUCTURE_TYPE24753; t23777.value.structure_type24753 = t23775; t23778.tag = STRUCTURE_TYPE24753; t23778.value.structure_type24753 = t23776; t23761 = f26175(t23777, t23778); /* x192725 */ t23762.tag = STRUCTURE_TYPE24753; t23762.value.structure_type24753 = t23760; t23763.tag = STRUCTURE_TYPE24753; t23763.value.structure_type24753 = t23761; t23746 = f26175(t23762, t23763); /* x192701 */ t23747.tag = STRUCTURE_TYPE24753; t23747.value.structure_type24753 = t23745; t23748.tag = STRUCTURE_TYPE24753; t23748.value.structure_type24753 = t23746; t23604 = f26175(t23747, t23748); /* x192423 */ t23605.tag = STRUCTURE_TYPE24753; t23605.value.structure_type24753 = t23603; t23606.tag = STRUCTURE_TYPE24753; t23606.value.structure_type24753 = t23604; t23447 = f26175(t23605, t23606); /* x192115 */ t23448.tag = STRUCTURE_TYPE24753; t23448.value.structure_type24753 = t23446; t23449.tag = STRUCTURE_TYPE24753; t23449.value.structure_type24753 = t23447; t23407 = f26175(t23448, t23449); /* x192041 */ t23408.tag = STRUCTURE_TYPE24753; t23408.value.structure_type24753 = t23406; t23409.tag = STRUCTURE_TYPE24753; t23409.value.structure_type24753 = t23407; t23392 = f26175(t23408, t23409); /* x192017 */ t23393.tag = STRUCTURE_TYPE24753; t23393.value.structure_type24753 = t23391; t23394.tag = STRUCTURE_TYPE24753; t23394.value.structure_type24753 = t23392; t23377 = f26175(t23393, t23394); /* x191993 */ t23378.tag = STRUCTURE_TYPE24753; t23378.value.structure_type24753 = t23376; t23379.tag = STRUCTURE_TYPE24753; t23379.value.structure_type24753 = t23377; t23360 = f26175(t23378, t23379); /* x191965 */ t23361.tag = STRUCTURE_TYPE24753; t23361.value.structure_type24753 = t23359; t23362.tag = STRUCTURE_TYPE24753; t23362.value.structure_type24753 = t23360; t23304 = f26175(t23361, t23362); /* x191859 */ t23305.tag = STRUCTURE_TYPE24753; t23305.value.structure_type24753 = t23303; t23306.tag = STRUCTURE_TYPE24753; t23306.value.structure_type24753 = t23304; t23248 = f26175(t23305, t23306); /* x191753 */ t23249.tag = STRUCTURE_TYPE24753; t23249.value.structure_type24753 = t23247; t23250.tag = STRUCTURE_TYPE24753; t23250.value.structure_type24753 = t23248; t23195 = f26175(t23249, t23250); /* x191653 */ t23196.tag = STRUCTURE_TYPE24753; t23196.value.structure_type24753 = t23194; t23197.tag = STRUCTURE_TYPE24753; t23197.value.structure_type24753 = t23195; t23142 = f26175(t23196, t23197); /* x191553 */ t23143.tag = STRUCTURE_TYPE24753; t23143.value.structure_type24753 = t23141; t23144.tag = STRUCTURE_TYPE24753; t23144.value.structure_type24753 = t23142; t23086 = f26175(t23143, t23144); /* x191447 */ t23087.tag = STRUCTURE_TYPE24753; t23087.value.structure_type24753 = t23085; t23088.tag = STRUCTURE_TYPE24753; t23088.value.structure_type24753 = t23086; t23030 = f26175(t23087, t23088); /* x191341 */ t23031.tag = STRUCTURE_TYPE24753; t23031.value.structure_type24753 = t23029; t23032.tag = STRUCTURE_TYPE24753; t23032.value.structure_type24753 = t23030; t23016 = f26175(t23031, t23032); /* x191319 */ t23017.tag = STRUCTURE_TYPE24753; t23017.value.structure_type24753 = t23015; t23018.tag = STRUCTURE_TYPE24753; t23018.value.structure_type24753 = t23016; t23003 = f26175(t23017, t23018); /* x191299 */ t23004.tag = STRUCTURE_TYPE24753; t23004.value.structure_type24753 = t23002; t23005.tag = STRUCTURE_TYPE24753; t23005.value.structure_type24753 = t23003; t22990 = f26175(t23004, t23005); /* x191279 */ t22991.tag = STRUCTURE_TYPE24753; t22991.value.structure_type24753 = t22989; t22992.tag = STRUCTURE_TYPE24753; t22992.value.structure_type24753 = t22990; t22977 = f26175(t22991, t22992); /* x191259 */ t22978.tag = STRUCTURE_TYPE24753; t22978.value.structure_type24753 = t22976; t22979.tag = STRUCTURE_TYPE24753; t22979.value.structure_type24753 = t22977; t22964 = f26175(t22978, t22979); /* x191239 */ t22965.tag = STRUCTURE_TYPE24753; t22965.value.structure_type24753 = t22963; t22966.tag = STRUCTURE_TYPE24753; t22966.value.structure_type24753 = t22964; t22914 = f26175(t22965, t22966); /* x191145 */ t22915.tag = STRUCTURE_TYPE24753; t22915.value.structure_type24753 = t22913; t22916.tag = STRUCTURE_TYPE24753; t22916.value.structure_type24753 = t22914; t22864 = f26175(t22915, t22916); /* x191051 */ t22865.tag = STRUCTURE_TYPE24753; t22865.value.structure_type24753 = t22863; t22866.tag = STRUCTURE_TYPE24753; t22866.value.structure_type24753 = t22864; t22814 = f26175(t22865, t22866); /* x190957 */ t22815.tag = STRUCTURE_TYPE24753; t22815.value.structure_type24753 = t22813; t22816.tag = STRUCTURE_TYPE24753; t22816.value.structure_type24753 = t22814; t22764 = f26175(t22815, t22816); /* x190863 */ t22765.tag = STRUCTURE_TYPE24753; t22765.value.structure_type24753 = t22763; t22766.tag = STRUCTURE_TYPE24753; t22766.value.structure_type24753 = t22764; t22714 = f26175(t22765, t22766); /* x190769 */ t22715.tag = STRUCTURE_TYPE24753; t22715.value.structure_type24753 = t22713; t22716.tag = STRUCTURE_TYPE24753; t22716.value.structure_type24753 = t22714; t22701 = f26175(t22715, t22716); /* x190749 */ t22702.tag = STRUCTURE_TYPE24753; t22702.value.structure_type24753 = t22700; t22703.tag = STRUCTURE_TYPE24753; t22703.value.structure_type24753 = t22701; t22688 = f26175(t22702, t22703); /* x190729 */ t22689.tag = STRUCTURE_TYPE24753; t22689.value.structure_type24753 = t22687; t22690.tag = STRUCTURE_TYPE24753; t22690.value.structure_type24753 = t22688; t22675 = f26175(t22689, t22690); /* x190709 */ t22676.tag = STRUCTURE_TYPE24753; t22676.value.structure_type24753 = t22674; t22677.tag = STRUCTURE_TYPE24753; t22677.value.structure_type24753 = t22675; t22668 = f26175(t22676, t22677); /* x190701 */ t22669.tag = STRUCTURE_TYPE24753; t22669.value.structure_type24753 = t22667; t22670.tag = STRUCTURE_TYPE24753; t22670.value.structure_type24753 = t22668; t22655 = f26175(t22669, t22670); /* x190681 */ t22656.tag = STRUCTURE_TYPE24753; t22656.value.structure_type24753 = t22654; t22657.tag = STRUCTURE_TYPE24753; t22657.value.structure_type24753 = t22655; t22648 = f26175(t22656, t22657); /* x190673 */ t22649.tag = STRUCTURE_TYPE24753; t22649.value.structure_type24753 = t22647; t22650.tag = STRUCTURE_TYPE24753; t22650.value.structure_type24753 = t22648; t22635 = f26175(t22649, t22650); /* x190653 */ t22636.tag = STRUCTURE_TYPE24753; t22636.value.structure_type24753 = t22634; t22637.tag = STRUCTURE_TYPE24753; t22637.value.structure_type24753 = t22635; t22521 = f26175(t22636, t22637); /* x190459 */ t22522.tag = STRUCTURE_TYPE24753; t22522.value.structure_type24753 = t22520; t22523.tag = STRUCTURE_TYPE24753; t22523.value.structure_type24753 = t22521; t22508 = f26175(t22522, t22523); /* x190439 */ t22509.tag = STRUCTURE_TYPE24753; t22509.value.structure_type24753 = t22507; t22510.tag = STRUCTURE_TYPE24753; t22510.value.structure_type24753 = t22508; t22495 = f26175(t22509, t22510); /* x190419 */ t22496.tag = STRUCTURE_TYPE24753; t22496.value.structure_type24753 = t22494; t22497.tag = STRUCTURE_TYPE24753; t22497.value.structure_type24753 = t22495; t22482 = f26175(t22496, t22497); /* x190399 */ t22483.tag = STRUCTURE_TYPE24753; t22483.value.structure_type24753 = t22481; t22484.tag = STRUCTURE_TYPE24753; t22484.value.structure_type24753 = t22482; t22439 = f26175(t22483, t22484); /* x190319 */ t22440.tag = STRUCTURE_TYPE24753; t22440.value.structure_type24753 = t22438; t22441.tag = STRUCTURE_TYPE24753; t22441.value.structure_type24753 = t22439; t22413 = f26175(t22440, t22441); /* x190273 */ t22414.tag = STRUCTURE_TYPE24753; t22414.value.structure_type24753 = t22412; t22415.tag = STRUCTURE_TYPE24753; t22415.value.structure_type24753 = t22413; t22366 = f26175(t22414, t22415); /* x190185 */ t22367.tag = STRUCTURE_TYPE24753; t22367.value.structure_type24753 = t22365; t22368.tag = STRUCTURE_TYPE24753; t22368.value.structure_type24753 = t22366; t22332 = f26175(t22367, t22368); /* x190123 */ t22333.tag = STRUCTURE_TYPE24753; t22333.value.structure_type24753 = t22331; t22334.tag = STRUCTURE_TYPE24753; t22334.value.structure_type24753 = t22332; t22288 = f26175(t22333, t22334); /* x190041 */ t22289.tag = STRUCTURE_TYPE24753; t22289.value.structure_type24753 = t22287; t22290.tag = STRUCTURE_TYPE24753; t22290.value.structure_type24753 = t22288; t22247 = f26175(t22289, t22290); /* x189965 */ t22248.tag = STRUCTURE_TYPE24753; t22248.value.structure_type24753 = t22246; t22249.tag = STRUCTURE_TYPE24753; t22249.value.structure_type24753 = t22247; t22212 = f26175(t22248, t22249); /* x189901 */ t22213.tag = STRUCTURE_TYPE24753; t22213.value.structure_type24753 = t22211; t22214.tag = STRUCTURE_TYPE24753; t22214.value.structure_type24753 = t22212; t22177 = f26175(t22213, t22214); /* x189837 */ t22178.tag = STRUCTURE_TYPE24753; t22178.value.structure_type24753 = t22176; t22179.tag = STRUCTURE_TYPE24753; t22179.value.structure_type24753 = t22177; t22142 = f26175(t22178, t22179); /* x189773 */ t22143.tag = STRUCTURE_TYPE24753; t22143.value.structure_type24753 = t22141; t22144.tag = STRUCTURE_TYPE24753; t22144.value.structure_type24753 = t22142; t22111 = f26175(t22143, t22144); /* x189717 */ t22112.tag = STRUCTURE_TYPE24753; t22112.value.structure_type24753 = t22110; t22113.tag = STRUCTURE_TYPE24753; t22113.value.structure_type24753 = t22111; t22080 = f26175(t22112, t22113); /* x189661 */ t22081.tag = STRUCTURE_TYPE24753; t22081.value.structure_type24753 = t22079; t22082.tag = STRUCTURE_TYPE24753; t22082.value.structure_type24753 = t22080; t22049 = f26175(t22081, t22082); /* x189605 */ t22050.tag = STRUCTURE_TYPE24753; t22050.value.structure_type24753 = t22048; t22051.tag = STRUCTURE_TYPE24753; t22051.value.structure_type24753 = t22049; t22009 = f26175(t22050, t22051); /* x189531 */ t22010.tag = STRUCTURE_TYPE24753; t22010.value.structure_type24753 = t22008; t22011.tag = STRUCTURE_TYPE24753; t22011.value.structure_type24753 = t22009; t21970 = f26175(t22010, t22011); /* x189459 */ t21971.tag = STRUCTURE_TYPE24753; t21971.value.structure_type24753 = t21969; t21972.tag = STRUCTURE_TYPE24753; t21972.value.structure_type24753 = t21970; t21946 = f26175(t21971, t21972); /* x189417 */ t21947.tag = STRUCTURE_TYPE24753; t21947.value.structure_type24753 = t21945; t21948.tag = STRUCTURE_TYPE24753; t21948.value.structure_type24753 = t21946; t21903 = f26175(t21947, t21948); /* x189337 */ t21904.tag = STRUCTURE_TYPE24753; t21904.value.structure_type24753 = t21902; t21905.tag = STRUCTURE_TYPE24753; t21905.value.structure_type24753 = t21903; t21866 = f26175(t21904, t21905); /* x189269 */ t21867.tag = STRUCTURE_TYPE24753; t21867.value.structure_type24753 = t21865; t21868.tag = STRUCTURE_TYPE24753; t21868.value.structure_type24753 = t21866; t21479 = f26175(t21867, t21868); /* x188501 */ t21480.tag = STRUCTURE_TYPE24753; t21480.value.structure_type24753 = t21478; t21481.tag = STRUCTURE_TYPE24753; t21481.value.structure_type24753 = t21479; t21397 = f26175(t21480, t21481); /* x188343 */ t21398.tag = STRUCTURE_TYPE24753; t21398.value.structure_type24753 = t21396; t21399.tag = STRUCTURE_TYPE24753; t21399.value.structure_type24753 = t21397; t21330 = f26175(t21398, t21399); /* x188215 */ t21331.tag = STRUCTURE_TYPE24753; t21331.value.structure_type24753 = t21329; t21332.tag = STRUCTURE_TYPE24753; t21332.value.structure_type24753 = t21330; t21270 = f26175(t21331, t21332); /* x188101 */ t21271.tag = STRUCTURE_TYPE24753; t21271.value.structure_type24753 = t21269; t21272.tag = STRUCTURE_TYPE24753; t21272.value.structure_type24753 = t21270; t21229 = f26175(t21271, t21272); /* x188025 */ t21230.tag = STRUCTURE_TYPE24753; t21230.value.structure_type24753 = t21228; t21231.tag = STRUCTURE_TYPE24753; t21231.value.structure_type24753 = t21229; t21193 = f26175(t21230, t21231); /* x187959 */ t21194.tag = STRUCTURE_TYPE24753; t21194.value.structure_type24753 = t21192; t21195.tag = STRUCTURE_TYPE24753; t21195.value.structure_type24753 = t21193; t21185 = f26175(t21194, t21195); /* x187949 */ t21186.tag = STRUCTURE_TYPE24753; t21186.value.structure_type24753 = t21184; t21187.tag = STRUCTURE_TYPE24753; t21187.value.structure_type24753 = t21185; t21111 = f26175(t21186, t21187); /* x187807 */ t21112.tag = STRUCTURE_TYPE24753; t21112.value.structure_type24753 = t21110; t21113.tag = STRUCTURE_TYPE24753; t21113.value.structure_type24753 = t21111; t21098 = f26175(t21112, t21113); /* x187787 */ t21099.tag = STRUCTURE_TYPE24753; t21099.value.structure_type24753 = t21097; t21100.tag = STRUCTURE_TYPE24753; t21100.value.structure_type24753 = t21098; t21081 = f26175(t21099, t21100); /* x187759 */ t21082.tag = STRUCTURE_TYPE24753; t21082.value.structure_type24753 = t21080; t21083.tag = STRUCTURE_TYPE24753; t21083.value.structure_type24753 = t21081; t21064 = f26175(t21082, t21083); /* x187731 */ t21065.tag = STRUCTURE_TYPE24753; t21065.value.structure_type24753 = t21063; t21066.tag = STRUCTURE_TYPE24753; t21066.value.structure_type24753 = t21064; t21047 = f26175(t21065, t21066); /* x187703 */ t21048.tag = STRUCTURE_TYPE24753; t21048.value.structure_type24753 = t21046; t21049.tag = STRUCTURE_TYPE24753; t21049.value.structure_type24753 = t21047; t21030 = f26175(t21048, t21049); /* x187675 */ t21031.tag = STRUCTURE_TYPE24753; t21031.value.structure_type24753 = t21029; t21032.tag = STRUCTURE_TYPE24753; t21032.value.structure_type24753 = t21030; t21013 = f26175(t21031, t21032); /* x187647 */ t21014.tag = STRUCTURE_TYPE24753; t21014.value.structure_type24753 = t21012; t21015.tag = STRUCTURE_TYPE24753; t21015.value.structure_type24753 = t21013; t20996 = f26175(t21014, t21015); /* x187619 */ t20997.tag = STRUCTURE_TYPE24753; t20997.value.structure_type24753 = t20995; t20998.tag = STRUCTURE_TYPE24753; t20998.value.structure_type24753 = t20996; t20979 = f26175(t20997, t20998); /* x187591 */ t20980.tag = STRUCTURE_TYPE24753; t20980.value.structure_type24753 = t20978; t20981.tag = STRUCTURE_TYPE24753; t20981.value.structure_type24753 = t20979; t20962 = f26175(t20980, t20981); /* x187563 */ t20963.tag = STRUCTURE_TYPE24753; t20963.value.structure_type24753 = t20961; t20964.tag = STRUCTURE_TYPE24753; t20964.value.structure_type24753 = t20962; t20945 = f26175(t20963, t20964); /* x187535 */ t20946.tag = STRUCTURE_TYPE24753; t20946.value.structure_type24753 = t20944; t20947.tag = STRUCTURE_TYPE24753; t20947.value.structure_type24753 = t20945; t20928 = f26175(t20946, t20947); /* x187507 */ t20929.tag = STRUCTURE_TYPE24753; t20929.value.structure_type24753 = t20927; t20930.tag = STRUCTURE_TYPE24753; t20930.value.structure_type24753 = t20928; t20911 = f26175(t20929, t20930); /* x187479 */ t20912.tag = STRUCTURE_TYPE24753; t20912.value.structure_type24753 = t20910; t20913.tag = STRUCTURE_TYPE24753; t20913.value.structure_type24753 = t20911; t20894 = f26175(t20912, t20913); /* x187451 */ t20895.tag = STRUCTURE_TYPE24753; t20895.value.structure_type24753 = t20893; t20896.tag = STRUCTURE_TYPE24753; t20896.value.structure_type24753 = t20894; t20877 = f26175(t20895, t20896); /* x187423 */ t20878.tag = STRUCTURE_TYPE24753; t20878.value.structure_type24753 = t20876; t20879.tag = STRUCTURE_TYPE24753; t20879.value.structure_type24753 = t20877; t20860 = f26175(t20878, t20879); /* x187395 */ t20861.tag = STRUCTURE_TYPE24753; t20861.value.structure_type24753 = t20859; t20862.tag = STRUCTURE_TYPE24753; t20862.value.structure_type24753 = t20860; t20843 = f26175(t20861, t20862); /* x187367 */ t20844.tag = STRUCTURE_TYPE24753; t20844.value.structure_type24753 = t20842; t20845.tag = STRUCTURE_TYPE24753; t20845.value.structure_type24753 = t20843; t20826 = f26175(t20844, t20845); /* x187339 */ t20827.tag = STRUCTURE_TYPE24753; t20827.value.structure_type24753 = t20825; t20828.tag = STRUCTURE_TYPE24753; t20828.value.structure_type24753 = t20826; t20811 = f26175(t20827, t20828); /* x187315 */ t20812.tag = STRUCTURE_TYPE24753; t20812.value.structure_type24753 = t20810; t20813.tag = STRUCTURE_TYPE24753; t20813.value.structure_type24753 = t20811; t20796 = f26175(t20812, t20813); /* x187291 */ t20797.tag = STRUCTURE_TYPE24753; t20797.value.structure_type24753 = t20795; t20798.tag = STRUCTURE_TYPE24753; t20798.value.structure_type24753 = t20796; t20781 = f26175(t20797, t20798); /* x187267 */ t20782.tag = STRUCTURE_TYPE24753; t20782.value.structure_type24753 = t20780; t20783.tag = STRUCTURE_TYPE24753; t20783.value.structure_type24753 = t20781; t20766 = f26175(t20782, t20783); /* x187243 */ t20767.tag = STRUCTURE_TYPE24753; t20767.value.structure_type24753 = t20765; t20768.tag = STRUCTURE_TYPE24753; t20768.value.structure_type24753 = t20766; t20751 = f26175(t20767, t20768); /* x187219 */ t20752.tag = STRUCTURE_TYPE24753; t20752.value.structure_type24753 = t20750; t20753.tag = STRUCTURE_TYPE24753; t20753.value.structure_type24753 = t20751; t20736 = f26175(t20752, t20753); /* x187195 */ t20737.tag = STRUCTURE_TYPE24753; t20737.value.structure_type24753 = t20735; t20738.tag = STRUCTURE_TYPE24753; t20738.value.structure_type24753 = t20736; t20721 = f26175(t20737, t20738); /* x187171 */ t20722.tag = STRUCTURE_TYPE24753; t20722.value.structure_type24753 = t20720; t20723.tag = STRUCTURE_TYPE24753; t20723.value.structure_type24753 = t20721; t20706 = f26175(t20722, t20723); /* x187147 */ t20707.tag = STRUCTURE_TYPE24753; t20707.value.structure_type24753 = t20705; t20708.tag = STRUCTURE_TYPE24753; t20708.value.structure_type24753 = t20706; t20693 = f26175(t20707, t20708); /* x187127 */ t20694.tag = STRUCTURE_TYPE24753; t20694.value.structure_type24753 = t20692; t20695.tag = STRUCTURE_TYPE24753; t20695.value.structure_type24753 = t20693; t20680 = f26175(t20694, t20695); /* x187107 */ t20681.tag = STRUCTURE_TYPE24753; t20681.value.structure_type24753 = t20679; t20682.tag = STRUCTURE_TYPE24753; t20682.value.structure_type24753 = t20680; t20667 = f26175(t20681, t20682); /* x187087 */ t20668.tag = STRUCTURE_TYPE24753; t20668.value.structure_type24753 = t20666; t20669.tag = STRUCTURE_TYPE24753; t20669.value.structure_type24753 = t20667; t20654 = f26175(t20668, t20669); /* x187067 */ t20655.tag = STRUCTURE_TYPE24753; t20655.value.structure_type24753 = t20653; t20656.tag = STRUCTURE_TYPE24753; t20656.value.structure_type24753 = t20654; t20637 = f26175(t20655, t20656); /* x187039 */ t20638.tag = STRUCTURE_TYPE24753; t20638.value.structure_type24753 = t20636; t20639.tag = STRUCTURE_TYPE24753; t20639.value.structure_type24753 = t20637; t20620 = f26175(t20638, t20639); /* x187011 */ t20621.tag = STRUCTURE_TYPE24753; t20621.value.structure_type24753 = t20619; t20622.tag = STRUCTURE_TYPE24753; t20622.value.structure_type24753 = t20620; t20605 = f26175(t20621, t20622); /* x186987 */ t20606.tag = STRUCTURE_TYPE24753; t20606.value.structure_type24753 = t20604; t20607.tag = STRUCTURE_TYPE24753; t20607.value.structure_type24753 = t20605; t20590 = f26175(t20606, t20607); /* x186963 */ t20591.tag = STRUCTURE_TYPE24753; t20591.value.structure_type24753 = t20589; t20592.tag = STRUCTURE_TYPE24753; t20592.value.structure_type24753 = t20590; t20573 = f26175(t20591, t20592); /* x186935 */ t20574.tag = STRUCTURE_TYPE24753; t20574.value.structure_type24753 = t20572; t20575.tag = STRUCTURE_TYPE24753; t20575.value.structure_type24753 = t20573; t20559 = f26175(t20574, t20575); /* x186913 */ t20560.tag = STRUCTURE_TYPE24753; t20560.value.structure_type24753 = t20558; t20561.tag = STRUCTURE_TYPE24753; t20561.value.structure_type24753 = t20559; t20459 = f26175(t20560, t20561); /* x186719 */ t20460.tag = STRUCTURE_TYPE24753; t20460.value.structure_type24753 = t20458; t20461.tag = STRUCTURE_TYPE24753; t20461.value.structure_type24753 = t20459; t20444 = f26175(t20460, t20461); /* x186695 */ t20445.tag = STRUCTURE_TYPE24753; t20445.value.structure_type24753 = t20443; t20446.tag = STRUCTURE_TYPE24753; t20446.value.structure_type24753 = t20444; t20381 = f26175(t20445, t20446); /* x186575 */ t20382.tag = STRUCTURE_TYPE24753; t20382.value.structure_type24753 = t20380; t20383.tag = STRUCTURE_TYPE24753; t20383.value.structure_type24753 = t20381; t20368 = f26175(t20382, t20383); /* x186555 */ t20369.tag = STRUCTURE_TYPE24753; t20369.value.structure_type24753 = t20367; t20370.tag = STRUCTURE_TYPE24753; t20370.value.structure_type24753 = t20368; t20355 = f26175(t20369, t20370); /* x186535 */ t20356.tag = STRUCTURE_TYPE24753; t20356.value.structure_type24753 = t20354; t20357.tag = STRUCTURE_TYPE24753; t20357.value.structure_type24753 = t20355; t20350 = f26175(t20356, t20357); /* x186531 */ t20351.tag = STRUCTURE_TYPE24753; t20351.value.structure_type24753 = t20349; t20352.tag = STRUCTURE_TYPE24753; t20352.value.structure_type24753 = t20350; t20346 = f26175(t20351, t20352); /* x186529 */ t20347.tag = EXTERNAL_SYMBOL_TYPE; t20347.value.external_symbol_type = t20345; t20348.tag = STRUCTURE_TYPE24753; t20348.value.structure_type24753 = t20346; t20343 = f26175(t20347, t20348); /* x186528 stalin.sc:26502:915063 */ t20344.tag = STRUCTURE_TYPE24753; t20344.value.structure_type24753 = t20343; return f9774(t20344);} /* [inside top level 18317] */ void f18317(struct w49 a32302) {struct w49 t28651; char *t28652; /* x172085 stalin.sc:25192:870565 */ /* x172083 stalin.sc:25192:870579 */ t28651 = a32302; /* x172084 stalin.sc:25192:870581 */ t28652 = "UNQUOTE-SPLICING not inside QUASIQUOTE"; /* x172082 stalin.sc:25192:870566 */ f9705(t28651, t28652);} /* [inside top level 18316] */ void f18316(struct w49 a32301) {struct w49 t28653; char *t28654; /* x172077 stalin.sc:25189:870473 */ /* x172075 stalin.sc:25189:870487 */ t28653 = a32301; /* x172076 stalin.sc:25189:870489 */ t28654 = "UNQUOTE not inside QUASIQUOTE"; /* x172074 stalin.sc:25189:870474 */ f9705(t28653, t28654);} /* [inside top level 18306] */ struct w49 f18306(struct w49 a32297) {struct w49 r18306; struct w49 a32299; /* S */ struct w49 a32300; /* v */ struct w49 a41102; /* S */ struct w49 a41591; /* S */ struct w49 a42394; /* S */ struct w49 t28655; struct w49 t28656; struct w49 t28657; char *t28658; struct w49 t28659; struct w49 t28660; char *t28661; struct w49 t28662; struct w49 t28663; char *t28664; struct w49 t28665; char *t28666; struct w49 t28667; char *t28668; struct w49 t28669; struct w49 t28670; struct w49 t28671; struct w49 t28672; struct w49 t28673; struct w49 t28674; struct w49 t28675; struct w49 t28676; int t28677; int t28678; struct w49 t28679; struct w49 t28680; char *t28681; /* x172069 */ /* x172068 stalin.sc:25182:870155 */ /* x172059 stalin.sc:25182:870163 */ /* x172057 stalin.sc:25182:870166 */ /* x172056 stalin.sc:25182:870177 */ t28679 = a32297; /* x172055 stalin.sc:25182:870167 */ t28677 = f9734(t28679); /* x172058 stalin.sc:25182:870180 */ t28678 = 2; /* x267963 stalin.sc:25182:870164 */ if (!(t28677==t28678)) goto l4096; /* x172061 */ /* x172060 */ goto l4097; l4096: /* x172067 */ /* x172066 */ /* x172065 stalin.sc:25182:870183 */ /* x172063 stalin.sc:25182:870197 */ t28680 = a32297; /* x172064 stalin.sc:25182:870199 */ t28681 = "Improper QUASIQUOTE"; /* x172062 stalin.sc:25182:870184 */ f9705(t28680, t28681); l4097: /* x172053 */ /* x172052 stalin.sc:25183:870225 */ /* x172051 stalin.sc:25183:870234 */ /* x172050 stalin.sc:25183:870253 */ /* x172049 stalin.sc:25183:870264 */ t28676 = a32297; /* x172048 stalin.sc:25183:870254 */ t28675 = f9722(t28676); /* x172047 stalin.sc:25183:870235 */ t28655 = f18156(t28675); /* x172046 */ a32299 = t28655; /* x172045 stalin.sc:25184:870273 */ /* x172044 stalin.sc:25184:870279 */ /* x172043 stalin.sc:25184:870289 */ /* x172042 stalin.sc:25184:870299 */ t28673 = a32299; /* x172041 stalin.sc:25184:870290 */ a41591 = t28673; /* x300476 stalin.sc:6964:241199 */ /* x300475 stalin.sc:6964:241207 */ t28674 = a41591; /* x300474 stalin.sc:6964:241200 */ t28670 = f9719(t28674); /* x172040 stalin.sc:25184:870280 */ a41102 = t28670; /* x298520 stalin.sc:6937:240340 */ /* x298519 stalin.sc:6937:240360 */ t28671 = a41102; /* x298518 stalin.sc:6937:240341 */ a42394 = t28671; /* x303074 */ /* x303073 */ t28672 = a42394; /* x303072 */ if (!((t28672.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37570]"); structure_ref_error();} t28656 = t28672.value.structure_type27510->s9; /* x172039 */ a32300 = t28656; /* x172038 */ /* x172009 */ /* x172007 */ t28657 = a32300; /* x172008 */ t28658 = q8; /* x172006 */ t28659.tag = EXTERNAL_SYMBOL_TYPE; t28659.value.external_symbol_type = t28658; if (f26160(t28657, t28659)==FALSE_TYPE) goto l4090; /* x172014 */ /* x172013 */ /* x172012 stalin.sc:25185:870318 */ /* x172011 stalin.sc:25185:870329 */ t28669 = a32299; /* x172010 stalin.sc:25185:870319 */ return f9722(t28669); l4090: /* x172037 */ /* x172018 */ /* x172016 */ t28660 = a32300; /* x172017 */ t28661 = q9; /* x172015 */ t28662.tag = EXTERNAL_SYMBOL_TYPE; t28662.value.external_symbol_type = t28661; if (f26160(t28660, t28662)==FALSE_TYPE) goto l4092; /* x172024 */ /* x172023 */ /* x172022 stalin.sc:25186:870357 */ /* x172020 stalin.sc:25186:870371 */ t28667 = a32299; /* x172021 stalin.sc:25186:870373 */ t28668 = "Improper UNQUOTE-SPLICING"; /* x172019 stalin.sc:25186:870358 */ f9705(t28667, t28668); return r18306; l4092: /* x172036 */ /* x172028 */ /* x172026 */ t28663 = a32300; /* x172027 */ t28664 = q11; /* x172025 */ t28665.tag = EXTERNAL_SYMBOL_TYPE; t28665.value.external_symbol_type = t28664; if (f26160(t28663, t28665)==FALSE_TYPE) goto l4094; /* x172031 */ /* x172030 */ /* x172029 stalin.sc:25187:870416 */ return a32299; l4094: /* x172035 */ /* x172034 */ /* x172033 stalin.sc:25188:870429 */ /* x172032 stalin.sc:25188:870430 */ /* x297513 QobiScheme.sc:166:5314 */ /* x297512 QobiScheme.sc:166:5321 */ t28666 = "This shouldn\'t happen"; /* x297511 QobiScheme.sc:166:5315 */ stalin_panic(t28666);} /* [inside top level 18302] */ struct structure_type24753 *f18302(struct w49 a32295) {struct structure_type24753 *t28682; struct structure_type24753 *t28683; struct w49 t28684; struct w49 t28685; struct structure_type24753 *t28727; struct w49 t28728; struct w49 t28729; char *t28730; struct structure_type24753 *t28731; struct w49 t28732; struct w49 t28733; struct structure_type24753 *t28734; struct w49 t28735; struct w49 t28736; struct w49 t28737; struct w49 t28738; struct w49 t28739; int t28740; int t28741; struct w49 t28742; struct w49 t28743; char *t28744; /* x172001 */ /* x172000 stalin.sc:25166:869755 */ /* x171991 stalin.sc:25166:869763 */ /* x171989 stalin.sc:25166:869766 */ /* x171988 stalin.sc:25166:869777 */ t28742 = a32295; /* x171987 stalin.sc:25166:869767 */ t28740 = f9734(t28742); /* x171990 stalin.sc:25166:869780 */ t28741 = 2; /* x267964 stalin.sc:25166:869764 */ if (!(t28740==t28741)) goto l4099; /* x171993 */ /* x171992 */ goto l4100; l4099: /* x171999 */ /* x171998 */ /* x171997 stalin.sc:25166:869783 */ /* x171995 stalin.sc:25166:869797 */ t28743 = a32295; /* x171996 stalin.sc:25166:869799 */ t28744 = "Improper DELAY"; /* x171994 stalin.sc:25166:869784 */ f9705(t28743, t28744); l4100: /* x171985 */ /* x171984 stalin.sc:25167:869820 */ /* x171968 */ t28682 = &t28686; /* x171983 */ /* x171981 */ /* x171971 */ t28730 = q39; /* x171980 */ /* x171973 */ /* x171979 */ /* x171977 stalin.sc:25179:870102 */ /* x171976 stalin.sc:25179:870113 */ t28739 = a32295; /* x171975 stalin.sc:25179:870103 */ t28737 = f9722(t28739); /* x171978 */ /* x171974 */ t28738.tag = NULL_TYPE; t28734 = f26175(t28737, t28738); /* x171972 */ t28735.tag = NULL_TYPE; t28736.tag = STRUCTURE_TYPE24753; t28736.value.structure_type24753 = t28734; t28731 = f26175(t28735, t28736); /* x171970 */ t28732.tag = EXTERNAL_SYMBOL_TYPE; t28732.value.external_symbol_type = t28730; t28733.tag = STRUCTURE_TYPE24753; t28733.value.structure_type24753 = t28731; t28727 = f26175(t28732, t28733); /* x171982 */ /* x171969 */ t28728.tag = STRUCTURE_TYPE24753; t28728.value.structure_type24753 = t28727; t28729.tag = NULL_TYPE; t28683 = f26175(t28728, t28729); /* x171885 */ t28684.tag = STRUCTURE_TYPE24753; t28684.value.structure_type24753 = t28682; t28685.tag = STRUCTURE_TYPE24753; t28685.value.structure_type24753 = t28683; return f26175(t28684, t28685);} /* [inside top level 18294] */ struct structure_type24753 *f18294(struct w49 a32289) {char *a32291; /* LOOP */ struct w49 a41440; /* S */ struct w49 a41441; /* S */ struct w49 a41442; /* S */ struct w49 a41443; /* S */ struct w49 a41604; /* S */ char *t28745; char *t28746; struct structure_type24753 *t28747; struct w49 t28748; struct w49 t28749; struct structure_type24753 *t28750; struct structure_type24753 *t28751; struct w49 t28752; struct w49 t28753; struct structure_type24753 *t28754; struct w49 t28755; struct w49 t28756; char *t28757; struct structure_type24753 *t28758; struct w49 t28759; struct w49 t28760; struct structure_type24753 *t28761; struct w49 t28762; struct w49 t28763; char *t28764; struct structure_type24753 *t28765; struct w49 t28766; struct w49 t28767; struct w12224 t28768; struct structure_type24753 *t28769; struct w49 t28770; struct w49 t28771; struct w49 t28772; struct w198746 t28773; struct w49 t28774; struct structure_type24753 *t28775; struct w49 t28776; struct w49 t28777; char *t28778; struct structure_type24753 *t28779; struct w49 t28780; struct w49 t28781; struct w49 t28782; struct structure_type24753 *t28783; struct w49 t28784; struct w49 t28785; struct w49 t28786; struct w49 t28787; struct structure_type24753 *t28788; struct structure_type24753 *t28789; struct w49 t28790; struct w49 t28791; char *t28792; struct w49 t28793; struct w49 t28794; struct w12224 t28795; struct structure_type24753 *t28796; struct w49 t28797; struct w49 t28798; struct w49 t28799; struct w49 t28800; struct w49 t28801; struct structure_type24753 *t28802; struct w49 t28803; struct w49 t28804; char *t28805; struct w49 t28806; struct w49 t28807; struct w12224 t28808; struct structure_type24753 *t28809; struct structure_type24753 *t28810; struct w49 t28811; struct w49 t28812; struct w49 t28813; struct w49 t28814; struct w49 t28815; struct w49 t28816; struct w49 t28817; struct w49 t28818; struct structure_type24753 *t28819; struct w49 t28820; struct w49 t28821; char *t28822; struct w49 t28823; struct w49 t28824; struct w12224 t28825; struct structure_type24753 *t28826; struct w49 t28827; struct w49 t28828; struct w198746 t28829; struct w49 t28830; struct structure_type24753 *t28831; struct w49 t28832; struct w49 t28833; char *t28834; struct w49 t28835; struct w49 t28836; struct w12224 t28837; struct structure_type24753 *t28838; struct w49 t28839; struct w49 t28840; struct w198746 t28841; struct w49 t28842; char *t28843; int t28844; int t28845; struct w49 t28846; struct w49 t28847; struct w49 t28848; struct w49 t28849; unsigned t28850; struct w49 t28851; struct w49 t28852; struct w49 t28853; int t28854; int t28855; struct w49 t28856; struct w49 t28857; struct w49 t28858; char *t28859; /* x171880 */ /* x171879 stalin.sc:25140:868952 */ /* x171870 stalin.sc:25140:868960 */ /* x171816 stalin.sc:25140:868965 */ /* x171814 stalin.sc:25140:868969 */ /* x171813 stalin.sc:25140:868980 */ t28846 = a32289; /* x171812 stalin.sc:25140:868970 */ t28844 = f9734(t28846); /* x171815 stalin.sc:25140:868983 */ t28845 = 3; /* x267968 stalin.sc:25140:868966 */ if (!(t28844>=t28845)) goto l4102; /* x171868 */ /* x171821 stalin.sc:25141:868994 */ /* x171820 stalin.sc:25141:869004 */ /* x171819 stalin.sc:25141:869015 */ t28848 = a32289; /* x171818 stalin.sc:25141:869005 */ t28847 = f9722(t28848); /* x171817 stalin.sc:25141:868995 */ if (f9766(t28847)==FALSE_TYPE) goto l4102; /* x171866 */ /* x171849 stalin.sc:25142:869027 */ /* x171845 stalin.sc:25142:869037 */ /* x171848 stalin.sc:25146:869140 */ /* x171847 stalin.sc:25146:869151 */ t28851 = a32289; /* x171846 stalin.sc:25146:869141 */ t28849 = f9722(t28851); /* x171822 stalin.sc:25142:869028 */ t28850 = NATIVE_PROCEDURE_TYPE14266; if (f9758(t28850, t28849)==FALSE_TYPE) goto l4102; /* x171864 */ /* x171854 stalin.sc:25147:869163 */ /* x171853 stalin.sc:25147:869173 */ /* x171852 stalin.sc:25147:869183 */ t28853 = a32289; /* x171851 stalin.sc:25147:869174 */ t28852 = f9723(t28853); /* x171850 stalin.sc:25147:869164 */ if (f9766(t28852)==FALSE_TYPE) goto l4102; /* x171862 */ /* x171860 stalin.sc:25148:869199 */ /* x171859 stalin.sc:25148:869210 */ /* x171858 stalin.sc:25148:869220 */ t28857 = a32289; /* x171857 stalin.sc:25148:869211 */ t28856 = f9723(t28857); /* x171856 stalin.sc:25148:869200 */ t28854 = f9734(t28856); /* x171861 stalin.sc:25148:869224 */ t28855 = 1; /* x267965 stalin.sc:25148:869196 */ if (!(t28854>=t28855)) goto l4102; /* x171872 */ /* x171871 */ goto l4103; l4102: /* x171878 */ /* x171877 */ /* x171876 stalin.sc:25149:869231 */ /* x171874 stalin.sc:25149:869245 */ t28858 = a32289; /* x171875 stalin.sc:25149:869247 */ t28859 = "Improper DO"; /* x171873 stalin.sc:25149:869232 */ f9705(t28858, t28859); l4103: /* x171810 */ /* x171809 stalin.sc:25150:869265 */ /* x171808 stalin.sc:25150:869277 */ /* x171807 stalin.sc:25150:869285 */ t28843 = "loop"; /* x171806 stalin.sc:25150:869278 */ t28745 = f5362(t28843); /* x171805 */ a32291 = t28745; /* x171804 stalin.sc:25152:869322 */ /* x171693 */ t28746 = q245; /* x171803 */ /* x171787 */ /* x171785 */ /* x171697 stalin.sc:25152:869334 */ t28757 = a32291; /* x171784 */ /* x171782 */ /* x171700 */ t28764 = q39; /* x171781 */ /* x171707 stalin.sc:25152:869348 */ /* x171703 stalin.sc:25152:869356 */ /* x171706 stalin.sc:25152:869365 */ /* x171705 stalin.sc:25152:869376 */ t28774 = a32289; /* x171704 stalin.sc:25152:869366 */ t28772 = f9722(t28774); /* x171702 stalin.sc:25152:869349 */ t28773.tag = NATIVE_PROCEDURE_TYPE7183; t28768 = f9753(t28773, t28772); /* x171780 */ /* x171778 */ /* x171710 */ t28778 = q43; /* x171777 */ /* x171716 stalin.sc:25153:869392 */ /* x171715 stalin.sc:25153:869402 */ /* x171714 stalin.sc:25153:869412 */ t28787 = a32289; /* x171713 stalin.sc:25153:869403 */ t28785 = f9723(t28787); /* x171712 stalin.sc:25153:869393 */ a41604 = t28785; /* x300528 stalin.sc:6964:241199 */ /* x300527 stalin.sc:6964:241207 */ t28786 = a41604; /* x300526 stalin.sc:6964:241200 */ t28782 = f9719(t28786); /* x171776 */ /* x171730 */ /* x171719 */ t28792 = q239; /* x171729 */ /* x171728 */ /* x171727 stalin.sc:25154:869429 */ /* x171726 stalin.sc:25154:869440 */ /* x171725 stalin.sc:25154:869449 */ /* x171724 stalin.sc:25154:869459 */ t28801 = a32289; /* x171723 stalin.sc:25154:869450 */ t28799 = f9723(t28801); /* x171722 stalin.sc:25154:869441 */ a41440 = t28799; /* x299872 stalin.sc:7008:242336 */ /* x299871 stalin.sc:7008:242344 */ t28800 = a41440; /* x299870 stalin.sc:7008:242337 */ t28798 = f9720(t28800); /* x171721 stalin.sc:25154:869430 */ t28795 = f9772(t28798); /* x171720 */ t28797.tag = STRUCTURE_TYPE24753; t28797.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t28797.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18296]"); out_of_memory_error();} t28797.value.structure_type24753->s0.tag = NULL_TYPE; t28797.value.structure_type24753->s1.tag = NULL_TYPE; t28796 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t28796==NULL) {backtrace_internal("[inside top level 18296]"); out_of_memory_error();} t28796->s0 = *((struct w49 *)(&t28795)); t28796->s1 = t28797; t28793 = f26254(t28796); /* x171718 */ t28794.tag = EXTERNAL_SYMBOL_TYPE; t28794.value.external_symbol_type = t28792; t28788 = f26175(t28794, t28793); /* x171775 */ /* x171773 */ /* x171733 */ t28805 = q239; /* x171772 */ /* x171771 */ /* x171769 */ /* x171746 stalin.sc:25157:869534 */ t28822 = a32291; /* x171768 */ /* x171767 */ /* x171766 stalin.sc:25158:869547 */ /* x171762 stalin.sc:25158:869555 */ /* x171765 stalin.sc:25162:869652 */ /* x171764 stalin.sc:25162:869663 */ t28830 = a32289; /* x171763 stalin.sc:25162:869653 */ t28828 = f9722(t28830); /* x171748 stalin.sc:25158:869548 */ t28829.tag = NATIVE_PROCEDURE_TYPE14271; t28825 = f9753(t28829, t28828); /* x171747 */ t28827.tag = STRUCTURE_TYPE24753; t28827.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t28827.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18296]"); out_of_memory_error();} t28827.value.structure_type24753->s0.tag = NULL_TYPE; t28827.value.structure_type24753->s1.tag = NULL_TYPE; t28826 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t28826==NULL) {backtrace_internal("[inside top level 18296]"); out_of_memory_error();} t28826->s0 = *((struct w49 *)(&t28825)); t28826->s1 = t28827; t28823 = f26254(t28826); /* x171745 */ t28824.tag = EXTERNAL_SYMBOL_TYPE; t28824.value.external_symbol_type = t28822; t28819 = f26175(t28824, t28823); /* x171770 */ /* x171744 */ t28820.tag = STRUCTURE_TYPE24753; t28820.value.structure_type24753 = t28819; t28821.tag = NULL_TYPE; t28809 = f26175(t28820, t28821); /* x171743 stalin.sc:25156:869483 */ /* x171742 stalin.sc:25156:869494 */ /* x171741 stalin.sc:25156:869503 */ /* x171740 stalin.sc:25156:869512 */ /* x171739 stalin.sc:25156:869521 */ t28817 = a32289; /* x171738 stalin.sc:25156:869513 */ a41443 = t28817; /* x299884 stalin.sc:7008:242336 */ /* x299883 stalin.sc:7008:242344 */ t28818 = a41443; /* x299882 stalin.sc:7008:242337 */ t28815 = f9720(t28818); /* x171737 stalin.sc:25156:869504 */ a41442 = t28815; /* x299880 stalin.sc:7008:242336 */ /* x299879 stalin.sc:7008:242344 */ t28816 = a41442; /* x299878 stalin.sc:7008:242337 */ t28813 = f9720(t28816); /* x171736 stalin.sc:25156:869495 */ a41441 = t28813; /* x299876 stalin.sc:7008:242336 */ /* x299875 stalin.sc:7008:242344 */ t28814 = a41441; /* x299874 stalin.sc:7008:242337 */ t28812 = f9720(t28814); /* x171735 stalin.sc:25156:869484 */ t28808 = f9772(t28812); /* x171734 */ t28811.tag = STRUCTURE_TYPE24753; t28811.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t28811.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18296]"); out_of_memory_error();} t28811.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t28811.value.structure_type24753->s0.value.structure_type24753 = t28809; t28811.value.structure_type24753->s1.tag = NULL_TYPE; t28810 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t28810==NULL) {backtrace_internal("[inside top level 18296]"); out_of_memory_error();} t28810->s0 = *((struct w49 *)(&t28808)); t28810->s1 = t28811; t28806 = f26254(t28810); /* x171732 */ t28807.tag = EXTERNAL_SYMBOL_TYPE; t28807.value.external_symbol_type = t28805; t28802 = f26175(t28807, t28806); /* x171774 */ /* x171731 */ t28803.tag = STRUCTURE_TYPE24753; t28803.value.structure_type24753 = t28802; t28804.tag = NULL_TYPE; t28789 = f26175(t28803, t28804); /* x171717 */ t28790.tag = STRUCTURE_TYPE24753; t28790.value.structure_type24753 = t28788; t28791.tag = STRUCTURE_TYPE24753; t28791.value.structure_type24753 = t28789; t28783 = f26175(t28790, t28791); /* x171711 */ t28784.tag = STRUCTURE_TYPE24753; t28784.value.structure_type24753 = t28783; t28779 = f26175(t28782, t28784); /* x171709 */ t28780.tag = EXTERNAL_SYMBOL_TYPE; t28780.value.external_symbol_type = t28778; t28781.tag = STRUCTURE_TYPE24753; t28781.value.structure_type24753 = t28779; t28775 = f26175(t28780, t28781); /* x171779 */ /* x171708 */ t28776.tag = STRUCTURE_TYPE24753; t28776.value.structure_type24753 = t28775; t28777.tag = NULL_TYPE; t28769 = f26175(t28776, t28777); /* x171701 */ t28770 = *((struct w49 *)(&t28768)); t28771.tag = STRUCTURE_TYPE24753; t28771.value.structure_type24753 = t28769; t28765 = f26175(t28770, t28771); /* x171699 */ t28766.tag = EXTERNAL_SYMBOL_TYPE; t28766.value.external_symbol_type = t28764; t28767.tag = STRUCTURE_TYPE24753; t28767.value.structure_type24753 = t28765; t28761 = f26175(t28766, t28767); /* x171783 */ /* x171698 */ t28762.tag = STRUCTURE_TYPE24753; t28762.value.structure_type24753 = t28761; t28763.tag = NULL_TYPE; t28758 = f26175(t28762, t28763); /* x171696 */ t28759.tag = EXTERNAL_SYMBOL_TYPE; t28759.value.external_symbol_type = t28757; t28760.tag = STRUCTURE_TYPE24753; t28760.value.structure_type24753 = t28758; t28754 = f26175(t28759, t28760); /* x171786 */ /* x171695 */ t28755.tag = STRUCTURE_TYPE24753; t28755.value.structure_type24753 = t28754; t28756.tag = NULL_TYPE; t28750 = f26175(t28755, t28756); /* x171802 */ /* x171800 */ /* x171790 stalin.sc:25163:869680 */ t28834 = a32291; /* x171799 */ /* x171798 */ /* x171797 stalin.sc:25163:869687 */ /* x171793 stalin.sc:25163:869695 */ /* x171796 stalin.sc:25163:869705 */ /* x171795 stalin.sc:25163:869716 */ t28842 = a32289; /* x171794 stalin.sc:25163:869706 */ t28840 = f9722(t28842); /* x171792 stalin.sc:25163:869688 */ t28841.tag = NATIVE_PROCEDURE_TYPE7182; t28837 = f9753(t28841, t28840); /* x171791 */ t28839.tag = STRUCTURE_TYPE24753; t28839.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t28839.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18296]"); out_of_memory_error();} t28839.value.structure_type24753->s0.tag = NULL_TYPE; t28839.value.structure_type24753->s1.tag = NULL_TYPE; t28838 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t28838==NULL) {backtrace_internal("[inside top level 18296]"); out_of_memory_error();} t28838->s0 = *((struct w49 *)(&t28837)); t28838->s1 = t28839; t28835 = f26254(t28838); /* x171789 */ t28836.tag = EXTERNAL_SYMBOL_TYPE; t28836.value.external_symbol_type = t28834; t28831 = f26175(t28836, t28835); /* x171801 */ /* x171788 */ t28832.tag = STRUCTURE_TYPE24753; t28832.value.structure_type24753 = t28831; t28833.tag = NULL_TYPE; t28751 = f26175(t28832, t28833); /* x171694 */ t28752.tag = STRUCTURE_TYPE24753; t28752.value.structure_type24753 = t28750; t28753.tag = STRUCTURE_TYPE24753; t28753.value.structure_type24753 = t28751; t28747 = f26175(t28752, t28753); /* x171692 */ t28748.tag = EXTERNAL_SYMBOL_TYPE; t28748.value.external_symbol_type = t28746; t28749.tag = STRUCTURE_TYPE24753; t28749.value.structure_type24753 = t28747; return f26175(t28748, t28749);} /* [inside top level 18293] */ struct structure_type24753 *f18293(struct w49 a32288) {struct w49 a41439; /* S */ struct structure_type24753 *t28860; struct w49 t28861; struct w49 t28862; char *t28863; struct structure_type24753 *t28864; struct w49 t28865; struct w49 t28866; struct w49 t28867; struct w49 t28868; struct w12224 t28869; struct structure_type24753 *t28870; struct w49 t28871; struct w49 t28872; struct w49 t28873; struct w49 t28874; /* x171687 stalin.sc:25136:868834 */ /* x171685 */ /* x171673 */ t28863 = q39; /* x171684 */ /* x171675 */ /* x171683 */ /* x171682 */ /* x171681 stalin.sc:25136:868849 */ /* x171680 stalin.sc:25136:868860 */ /* x171679 stalin.sc:25136:868869 */ t28873 = a32288; /* x171678 stalin.sc:25136:868861 */ a41439 = t28873; /* x299868 stalin.sc:7008:242336 */ /* x299867 stalin.sc:7008:242344 */ t28874 = a41439; /* x299866 stalin.sc:7008:242337 */ t28872 = f9720(t28874); /* x171677 stalin.sc:25136:868850 */ t28869 = f9772(t28872); /* x171676 */ t28871.tag = STRUCTURE_TYPE24753; t28871.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t28871.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18293]"); out_of_memory_error();} t28871.value.structure_type24753->s0.tag = NULL_TYPE; t28871.value.structure_type24753->s1.tag = NULL_TYPE; t28870 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t28870==NULL) {backtrace_internal("[inside top level 18293]"); out_of_memory_error();} t28870->s0 = *((struct w49 *)(&t28869)); t28870->s1 = t28871; t28867 = f26254(t28870); /* x171674 */ t28868.tag = NULL_TYPE; t28864 = f26175(t28868, t28867); /* x171672 */ t28865.tag = EXTERNAL_SYMBOL_TYPE; t28865.value.external_symbol_type = t28863; t28866.tag = STRUCTURE_TYPE24753; t28866.value.structure_type24753 = t28864; t28860 = f26175(t28865, t28866); /* x171686 */ /* x171671 */ t28861.tag = STRUCTURE_TYPE24753; t28861.value.structure_type24753 = t28860; t28862.tag = NULL_TYPE; return f26175(t28861, t28862);} /* [inside top level 18288] */ struct structure_type24753 *f18288(struct w49 a32285) {struct w49 a41607; /* S */ char *t28875; struct structure_type24753 *t28876; struct w49 t28877; struct w49 t28878; struct w49 t28879; struct structure_type24753 *t28880; struct w49 t28881; struct w49 t28882; struct w49 t28883; struct w49 t28884; struct w49 t28885; struct w49 t28886; /* x171592 stalin.sc:25133:868672 */ /* x171580 */ t28875 = q42; /* x171591 */ /* x171584 stalin.sc:25133:868680 */ /* x171583 stalin.sc:25133:868690 */ t28882 = a32285; /* x171582 stalin.sc:25133:868681 */ a41607 = t28882; /* x300540 stalin.sc:6964:241199 */ /* x300539 stalin.sc:6964:241207 */ t28883 = a41607; /* x300538 stalin.sc:6964:241200 */ t28879 = f9719(t28883); /* x171590 */ /* x171588 stalin.sc:25133:868694 */ /* x171587 stalin.sc:25133:868705 */ t28886 = a32285; /* x171586 stalin.sc:25133:868695 */ t28884 = f9722(t28886); /* x171589 */ /* x171585 */ t28885.tag = NULL_TYPE; t28880 = f26175(t28884, t28885); /* x171581 */ t28881.tag = STRUCTURE_TYPE24753; t28881.value.structure_type24753 = t28880; t28876 = f26175(t28879, t28881); /* x171579 */ t28877.tag = EXTERNAL_SYMBOL_TYPE; t28877.value.external_symbol_type = t28875; t28878.tag = STRUCTURE_TYPE24753; t28878.value.structure_type24753 = t28876; return f26175(t28877, t28878);} /* [inside top level 18285] */ struct structure_type24753 *f18285(struct w49 a32282) {struct w49 a41444; /* S */ struct w49 a41445; /* S */ char *t28887; struct structure_type24753 *t28888; struct w49 t28889; struct w49 t28890; struct w12224 t28891; struct w49 t28892; struct w49 t28893; struct w49 t28894; struct w198746 t28895; struct w49 t28896; struct structure_type24753 *t28897; struct w49 t28898; struct structure_type24753 *t28899; struct w49 t28900; struct w12224 t28901; struct w36270 t28902; struct w49 t28903; struct structure_type24753 *t28904; struct w12224 t28905; unsigned t28906; struct w49 t28907; struct w49 t28908; struct w49 t28909; struct w12224 t28910; struct structure_type24753 *t28911; struct w49 t28912; struct w49 t28913; struct w49 t28914; struct w49 t28915; struct w49 t28916; struct w49 t28917; int t28918; int t28919; struct w49 t28920; struct w49 t28921; struct w49 t28922; struct w49 t28923; unsigned t28924; struct w49 t28925; struct w49 t28926; char *t28927; /* x171666 */ /* x171665 stalin.sc:25121:868280 */ /* x171656 stalin.sc:25121:868288 */ /* x171622 stalin.sc:25121:868293 */ /* x171620 stalin.sc:25121:868297 */ /* x171619 stalin.sc:25121:868308 */ t28920 = a32282; /* x171618 stalin.sc:25121:868298 */ t28918 = f9734(t28920); /* x171621 stalin.sc:25121:868311 */ t28919 = 2; /* x267971 stalin.sc:25121:868294 */ if (!(t28918>=t28919)) goto l4109; /* x171654 */ /* x171627 stalin.sc:25122:868322 */ /* x171626 stalin.sc:25122:868332 */ /* x171625 stalin.sc:25122:868343 */ t28922 = a32282; /* x171624 stalin.sc:25122:868333 */ t28921 = f9722(t28922); /* x171623 stalin.sc:25122:868323 */ if (f9766(t28921)==FALSE_TYPE) goto l4109; /* x171652 */ /* x171648 stalin.sc:25123:868365 */ /* x171651 stalin.sc:25126:868455 */ /* x171650 stalin.sc:25126:868466 */ t28925 = a32282; /* x171649 stalin.sc:25126:868456 */ t28923 = f9722(t28925); /* x171628 stalin.sc:25123:868356 */ t28924 = NATIVE_PROCEDURE_TYPE14252; if (f9758(t28924, t28923)==FALSE_TYPE) goto l4109; /* x171658 */ /* x171657 */ goto l4110; l4109: /* x171664 */ /* x171663 */ /* x171662 stalin.sc:25127:868474 */ /* x171660 stalin.sc:25127:868488 */ t28926 = a32282; /* x171661 stalin.sc:25127:868490 */ t28927 = "Improper LETREC"; /* x171659 stalin.sc:25127:868475 */ f9705(t28926, t28927); l4110: /* x171616 */ /* x171615 stalin.sc:25128:868512 */ /* x171539 */ t28887 = q242; /* x171614 */ /* x171576 stalin.sc:25128:868519 */ /* x171572 stalin.sc:25128:868527 */ /* x171575 stalin.sc:25132:868634 */ /* x171574 stalin.sc:25132:868645 */ t28896 = a32282; /* x171573 stalin.sc:25132:868635 */ t28894 = f9722(t28896); /* x171541 stalin.sc:25128:868520 */ t28895.tag = NATIVE_PROCEDURE_TYPE14264; t28891 = f9753(t28895, t28894); /* x171613 */ /* x171612 */ /* x171611 */ /* x171610 stalin.sc:25135:868770 */ /* x171609 stalin.sc:25135:868781 */ /* x171608 stalin.sc:25135:868790 */ /* x171607 stalin.sc:25135:868799 */ t28916 = a32282; /* x171606 stalin.sc:25135:868791 */ a41445 = t28916; /* x299892 stalin.sc:7008:242336 */ /* x299891 stalin.sc:7008:242344 */ t28917 = a41445; /* x299890 stalin.sc:7008:242337 */ t28914 = f9720(t28917); /* x171605 stalin.sc:25135:868782 */ a41444 = t28914; /* x299888 stalin.sc:7008:242336 */ /* x299887 stalin.sc:7008:242344 */ t28915 = a41444; /* x299886 stalin.sc:7008:242337 */ t28913 = f9720(t28915); /* x171604 stalin.sc:25135:868771 */ t28910 = f9772(t28913); /* x171603 */ t28912.tag = STRUCTURE_TYPE24753; t28912.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t28912.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18286]"); out_of_memory_error();} t28912.value.structure_type24753->s0.tag = NULL_TYPE; t28912.value.structure_type24753->s1.tag = NULL_TYPE; t28911 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t28911==NULL) {backtrace_internal("[inside top level 18286]"); out_of_memory_error();} t28911->s0 = *((struct w49 *)(&t28910)); t28911->s1 = t28912; t28898 = f26254(t28911); /* x171602 stalin.sc:25133:868655 */ /* x171601 stalin.sc:25134:868714 */ /* x171595 stalin.sc:25134:868725 */ /* x171600 stalin.sc:25134:868736 */ /* x171599 stalin.sc:25134:868747 */ /* x171598 stalin.sc:25134:868758 */ t28909 = a32282; /* x171597 stalin.sc:25134:868748 */ t28908 = f9722(t28909); /* x171596 stalin.sc:25134:868737 */ t28905 = f9772(t28908); /* x171594 stalin.sc:25134:868715 */ t28906 = NATIVE_PROCEDURE_TYPE7167; t28907 = *((struct w49 *)(&t28905)); t28901 = f1218(t28906, t28907); /* x171593 stalin.sc:25133:868660 */ /* x171578 stalin.sc:25133:868656 */ t28902.tag = NATIVE_PROCEDURE_TYPE14263; t28903 = *((struct w49 *)(&t28901)); t28904 = (struct structure_type24753 *)NULL_TYPE; t28897 = f27731(t28902, t28903, t28904); /* x171577 */ t28900.tag = STRUCTURE_TYPE24753; t28900.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t28900.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18286]"); out_of_memory_error();} t28900.value.structure_type24753->s0 = t28898; t28900.value.structure_type24753->s1.tag = NULL_TYPE; t28899 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t28899==NULL) {backtrace_internal("[inside top level 18286]"); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t28897>=((struct structure_type24753 *)VALUE_OFFSET)) {t28899->s0.tag = STRUCTURE_TYPE24753; t28899->s0.value.structure_type24753 = t28897;} else t28899->s0.tag = (unsigned)t28897; t28899->s1 = t28900; t28892 = f26254(t28899); /* x171540 */ t28893 = *((struct w49 *)(&t28891)); t28888 = f26175(t28893, t28892); /* x171538 */ t28889.tag = EXTERNAL_SYMBOL_TYPE; t28889.value.external_symbol_type = t28887; t28890.tag = STRUCTURE_TYPE24753; t28890.value.structure_type24753 = t28888; return f26175(t28889, t28890);} /* [inside top level 18279] */ struct structure_type24753 *f18279(struct w49 a32278) {struct w49 a41434; /* S */ struct w49 a41435; /* S */ struct w49 a41436; /* S */ struct w49 a41437; /* S */ struct w49 a41438; /* S */ struct w49 a41590; /* S */ struct w49 t28928; struct w49 t28929; char *t28930; struct structure_type24753 *t28931; struct w49 t28932; struct w49 t28933; struct structure_type24753 *t28934; struct structure_type24753 *t28935; struct w49 t28936; struct w49 t28937; struct w49 t28938; struct w49 t28939; struct w49 t28940; struct w49 t28941; struct w49 t28942; struct structure_type24753 *t28943; struct w49 t28944; struct w49 t28945; char *t28946; struct structure_type24753 *t28947; struct w49 t28948; struct w49 t28949; struct w49 t28950; struct w49 t28951; struct w49 t28952; struct w49 t28953; struct w49 t28954; struct w12224 t28955; struct structure_type24753 *t28956; struct w49 t28957; struct w49 t28958; struct w49 t28959; struct w49 t28960; struct w49 t28961; struct w49 t28962; char *t28963; struct w49 t28964; struct w49 t28965; struct w12224 t28966; struct structure_type24753 *t28967; struct w49 t28968; struct w49 t28969; struct w49 t28970; struct w49 t28971; struct w49 t28972; struct w49 t28973; int t28974; int t28975; struct w49 t28976; struct w49 t28977; struct w49 t28978; struct w49 t28979; unsigned t28980; struct w49 t28981; struct w49 t28982; char *t28983; /* x171533 */ /* x171532 stalin.sc:25106:867771 */ /* x171523 stalin.sc:25106:867779 */ /* x171489 stalin.sc:25106:867784 */ /* x171487 stalin.sc:25106:867788 */ /* x171486 stalin.sc:25106:867799 */ t28976 = a32278; /* x171485 stalin.sc:25106:867789 */ t28974 = f9734(t28976); /* x171488 stalin.sc:25106:867802 */ t28975 = 2; /* x267973 stalin.sc:25106:867785 */ if (!(t28974>=t28975)) goto l4116; /* x171521 */ /* x171494 stalin.sc:25107:867813 */ /* x171493 stalin.sc:25107:867823 */ /* x171492 stalin.sc:25107:867834 */ t28978 = a32278; /* x171491 stalin.sc:25107:867824 */ t28977 = f9722(t28978); /* x171490 stalin.sc:25107:867814 */ if (f9766(t28977)==FALSE_TYPE) goto l4116; /* x171519 */ /* x171515 stalin.sc:25108:867856 */ /* x171518 stalin.sc:25111:867946 */ /* x171517 stalin.sc:25111:867957 */ t28981 = a32278; /* x171516 stalin.sc:25111:867947 */ t28979 = f9722(t28981); /* x171495 stalin.sc:25108:867847 */ t28980 = NATIVE_PROCEDURE_TYPE14335; if (f9758(t28980, t28979)==FALSE_TYPE) goto l4116; /* x171525 */ /* x171524 */ goto l4117; l4116: /* x171531 */ /* x171530 */ /* x171529 stalin.sc:25112:867965 */ /* x171527 stalin.sc:25112:867979 */ t28982 = a32278; /* x171528 stalin.sc:25112:867981 */ t28983 = "Improper LET*"; /* x171526 stalin.sc:25112:867966 */ f9705(t28982, t28983); l4117: /* x171483 */ /* x171482 stalin.sc:25113:868001 */ /* x171432 stalin.sc:25113:868005 */ /* x171431 stalin.sc:25113:868015 */ /* x171430 stalin.sc:25113:868026 */ t28929 = a32278; /* x171429 stalin.sc:25113:868016 */ t28928 = f9722(t28929); /* x171428 stalin.sc:25113:868006 */ if (f9739(t28928)==FALSE_TYPE) goto l4114; /* x171445 stalin.sc:25114:868036 */ /* x171434 */ t28963 = q239; /* x171444 */ /* x171443 */ /* x171442 stalin.sc:25114:868046 */ /* x171441 stalin.sc:25114:868057 */ /* x171440 stalin.sc:25114:868066 */ /* x171439 stalin.sc:25114:868075 */ t28972 = a32278; /* x171438 stalin.sc:25114:868067 */ a41435 = t28972; /* x299852 stalin.sc:7008:242336 */ /* x299851 stalin.sc:7008:242344 */ t28973 = a41435; /* x299850 stalin.sc:7008:242337 */ t28970 = f9720(t28973); /* x171437 stalin.sc:25114:868058 */ a41434 = t28970; /* x299848 stalin.sc:7008:242336 */ /* x299847 stalin.sc:7008:242344 */ t28971 = a41434; /* x299846 stalin.sc:7008:242337 */ t28969 = f9720(t28971); /* x171436 stalin.sc:25114:868047 */ t28966 = f9772(t28969); /* x171435 */ t28968.tag = STRUCTURE_TYPE24753; t28968.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t28968.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18280]"); out_of_memory_error();} t28968.value.structure_type24753->s0.tag = NULL_TYPE; t28968.value.structure_type24753->s1.tag = NULL_TYPE; t28967 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t28967==NULL) {backtrace_internal("[inside top level 18280]"); out_of_memory_error();} t28967->s0 = *((struct w49 *)(&t28966)); t28967->s1 = t28968; t28964 = f26254(t28967); /* x171433 */ t28965.tag = EXTERNAL_SYMBOL_TYPE; t28965.value.external_symbol_type = t28963; return f26175(t28965, t28964); l4114: /* x171481 stalin.sc:25115:868087 */ /* x171447 */ t28930 = q242; /* x171480 */ /* x171456 */ /* x171454 stalin.sc:25115:868095 */ /* x171453 stalin.sc:25115:868105 */ /* x171452 stalin.sc:25115:868116 */ t28942 = a32278; /* x171451 stalin.sc:25115:868106 */ t28940 = f9722(t28942); /* x171450 stalin.sc:25115:868096 */ a41590 = t28940; /* x300472 stalin.sc:6964:241199 */ /* x300471 stalin.sc:6964:241207 */ t28941 = a41590; /* x300470 stalin.sc:6964:241200 */ t28938 = f9719(t28941); /* x171455 */ /* x171449 */ t28939.tag = NULL_TYPE; t28934 = f26175(t28938, t28939); /* x171479 */ /* x171477 */ /* x171459 */ t28946 = q246; /* x171476 */ /* x171465 stalin.sc:25116:868136 */ /* x171464 stalin.sc:25116:868145 */ /* x171463 stalin.sc:25116:868156 */ t28954 = a32278; /* x171462 stalin.sc:25116:868146 */ t28952 = f9722(t28954); /* x171461 stalin.sc:25116:868137 */ a41436 = t28952; /* x299856 stalin.sc:7008:242336 */ /* x299855 stalin.sc:7008:242344 */ t28953 = a41436; /* x299854 stalin.sc:7008:242337 */ t28950 = f9720(t28953); /* x171475 */ /* x171474 */ /* x171473 stalin.sc:25117:868164 */ /* x171472 stalin.sc:25117:868175 */ /* x171471 stalin.sc:25117:868184 */ /* x171470 stalin.sc:25117:868193 */ t28961 = a32278; /* x171469 stalin.sc:25117:868185 */ a41438 = t28961; /* x299864 stalin.sc:7008:242336 */ /* x299863 stalin.sc:7008:242344 */ t28962 = a41438; /* x299862 stalin.sc:7008:242337 */ t28959 = f9720(t28962); /* x171468 stalin.sc:25117:868176 */ a41437 = t28959; /* x299860 stalin.sc:7008:242336 */ /* x299859 stalin.sc:7008:242344 */ t28960 = a41437; /* x299858 stalin.sc:7008:242337 */ t28958 = f9720(t28960); /* x171467 stalin.sc:25117:868165 */ t28955 = f9772(t28958); /* x171466 */ t28957.tag = STRUCTURE_TYPE24753; t28957.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t28957.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18280]"); out_of_memory_error();} t28957.value.structure_type24753->s0.tag = NULL_TYPE; t28957.value.structure_type24753->s1.tag = NULL_TYPE; t28956 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t28956==NULL) {backtrace_internal("[inside top level 18280]"); out_of_memory_error();} t28956->s0 = *((struct w49 *)(&t28955)); t28956->s1 = t28957; t28951 = f26254(t28956); /* x171460 */ t28947 = f26175(t28950, t28951); /* x171458 */ t28948.tag = EXTERNAL_SYMBOL_TYPE; t28948.value.external_symbol_type = t28946; t28949.tag = STRUCTURE_TYPE24753; t28949.value.structure_type24753 = t28947; t28943 = f26175(t28948, t28949); /* x171478 */ /* x171457 */ t28944.tag = STRUCTURE_TYPE24753; t28944.value.structure_type24753 = t28943; t28945.tag = NULL_TYPE; t28935 = f26175(t28944, t28945); /* x171448 */ t28936.tag = STRUCTURE_TYPE24753; t28936.value.structure_type24753 = t28934; t28937.tag = STRUCTURE_TYPE24753; t28937.value.structure_type24753 = t28935; t28931 = f26175(t28936, t28937); /* x171446 */ t28932.tag = EXTERNAL_SYMBOL_TYPE; t28932.value.external_symbol_type = t28930; t28933.tag = STRUCTURE_TYPE24753; t28933.value.structure_type24753 = t28931; return f26175(t28932, t28933);} /* [inside top level 18269] */ struct w49 f18269(struct w49 a32270) {struct w49 r18269; struct w49 t28984; struct w49 t28985; /* x171229 stalin.sc:25092:867290 */ /* x171218 stalin.sc:25092:867294 */ /* x171217 stalin.sc:25092:867306 */ t28984 = a32270; /* x171216 stalin.sc:25092:867295 */ if (f9741(t28984)==FALSE_TYPE) goto l4121; /* x171225 stalin.sc:25092:867309 */ r18269.tag = STRUCTURE_TYPE24753; r18269.value.structure_type24753 = &t28986; return r18269; l4121: /* x171228 stalin.sc:25092:867324 */ /* x171227 stalin.sc:25092:867335 */ t28985 = a32270; /* x171226 stalin.sc:25092:867325 */ return f9722(t28985);} /* [inside top level 18268] */ struct w49 f18268(struct w49 a32269) {struct w49 a41608; /* S */ struct w49 t28989; struct w49 t28990; struct w49 t28991; /* x171192 stalin.sc:25088:867134 */ /* x171187 stalin.sc:25088:867138 */ /* x171186 stalin.sc:25088:867150 */ t28989 = a32269; /* x171185 stalin.sc:25088:867139 */ if (f9741(t28989)==FALSE_TYPE) goto l4123; /* x171188 stalin.sc:25088:867153 */ return a32269; l4123: /* x171191 stalin.sc:25088:867155 */ /* x171190 stalin.sc:25088:867165 */ t28990 = a32269; /* x171189 stalin.sc:25088:867156 */ a41608 = t28990; /* x300544 stalin.sc:6964:241199 */ /* x300543 stalin.sc:6964:241207 */ t28991 = a41608; /* x300542 stalin.sc:6964:241200 */ return f9719(t28991);} /* [inside top level 18266] */ struct structure_type24753 *f18266(struct w49 a32267) {struct w49 a41448; /* S */ struct w49 a41449; /* S */ struct w49 a41450; /* S */ struct w49 a41451; /* S */ struct w49 a41452; /* S */ struct w49 t28992; struct w49 t28993; struct structure_type24753 *t28994; struct w49 t28995; struct w49 t28996; char *t28997; struct structure_type24753 *t28998; struct w49 t28999; struct w49 t29000; struct structure_type24753 *t29001; struct structure_type24753 *t29002; struct w49 t29003; struct w49 t29004; struct structure_type24753 *t29005; struct w49 t29006; struct w49 t29007; struct w49 t29008; struct structure_type24753 *t29009; struct w49 t29010; struct w49 t29011; struct structure_type24753 *t29012; struct w49 t29013; struct w49 t29014; char *t29015; struct structure_type24753 *t29016; struct w49 t29017; struct w49 t29018; struct w12224 t29019; struct w49 t29020; struct w49 t29021; struct w49 t29022; struct w198746 t29023; struct w49 t29024; struct w12224 t29025; struct structure_type24753 *t29026; struct w49 t29027; struct w49 t29028; struct w49 t29029; struct w49 t29030; struct w49 t29031; struct w49 t29032; struct w49 t29033; struct w49 t29034; struct w49 t29035; struct w49 t29036; struct w49 t29037; struct w12224 t29038; struct structure_type24753 *t29039; struct w49 t29040; struct w49 t29041; struct w198746 t29042; struct w49 t29043; struct structure_type24753 *t29044; struct w49 t29045; struct w49 t29046; char *t29047; struct structure_type24753 *t29048; struct w49 t29049; struct w49 t29050; struct structure_type24753 *t29051; struct w49 t29052; struct w49 t29053; struct w12224 t29054; struct w36270 t29055; struct w49 t29056; struct structure_type24753 *t29057; struct w12224 t29058; struct w49 t29059; struct w49 t29060; struct w49 t29061; struct w12224 t29062; struct structure_type24753 *t29063; struct w49 t29064; struct w49 t29065; struct w49 t29066; struct w49 t29067; struct w49 t29068; struct w49 t29069; struct structure_type24753 *t29070; struct structure_type24753 *t29071; struct w49 t29072; struct w12224 t29073; struct w36270 t29074; struct w49 t29075; struct structure_type24753 *t29076; struct w12224 t29077; struct w49 t29078; struct w49 t29079; struct w49 t29080; int t29081; int t29082; struct w49 t29083; struct w49 t29084; struct w49 t29085; struct w49 t29086; unsigned t29087; struct w49 t29088; struct w49 t29089; struct w49 t29090; int t29091; int t29092; struct w49 t29093; struct w49 t29094; struct w49 t29095; struct w49 t29096; unsigned t29097; struct w49 t29098; struct w49 t29099; char *t29100; /* x171423 */ /* x171422 stalin.sc:25069:866460 */ /* x171413 stalin.sc:25069:866468 */ /* x171327 stalin.sc:25069:866473 */ /* x171325 stalin.sc:25069:866477 */ /* x171324 stalin.sc:25069:866488 */ t29083 = a32267; /* x171323 stalin.sc:25069:866478 */ t29081 = f9734(t29083); /* x171326 stalin.sc:25069:866491 */ t29082 = 2; /* x267977 stalin.sc:25069:866474 */ if (!(t29081>=t29082)) goto l4127; /* x171411 */ /* x171410 stalin.sc:25070:866506 */ /* x171383 stalin.sc:25070:866511 */ /* x171382 stalin.sc:25070:866521 */ /* x171381 stalin.sc:25070:866532 */ t29085 = a32267; /* x171380 stalin.sc:25070:866522 */ t29084 = f9722(t29085); /* x171379 stalin.sc:25070:866512 */ if (f9766(t29084)==FALSE_TYPE) goto l4130; /* x171408 */ /* x171404 stalin.sc:25072:866560 */ /* x171407 stalin.sc:25075:866650 */ /* x171406 stalin.sc:25075:866661 */ t29088 = a32267; /* x171405 stalin.sc:25075:866651 */ t29086 = f9722(t29088); /* x171384 stalin.sc:25071:866547 */ t29087 = NATIVE_PROCEDURE_TYPE14236; if (!(f9758(t29087, t29086)==FALSE_TYPE)) goto l4126; l4130: /* x171376 */ /* x171334 stalin.sc:25076:866676 */ /* x171333 stalin.sc:25076:866688 */ /* x171332 stalin.sc:25076:866699 */ t29090 = a32267; /* x171331 stalin.sc:25076:866689 */ t29089 = f9722(t29090); /* x171330 stalin.sc:25076:866677 */ if (f9741(t29089)==FALSE_TYPE) goto l4127; /* x171374 */ /* x171340 stalin.sc:25077:866713 */ /* x171338 stalin.sc:25077:866717 */ /* x171337 stalin.sc:25077:866728 */ t29093 = a32267; /* x171336 stalin.sc:25077:866718 */ t29091 = f9734(t29093); /* x171339 stalin.sc:25077:866731 */ t29092 = 3; /* x267976 stalin.sc:25077:866714 */ if (!(t29091>=t29092)) goto l4127; /* x171372 */ /* x171345 stalin.sc:25078:866744 */ /* x171344 stalin.sc:25078:866754 */ /* x171343 stalin.sc:25078:866764 */ t29095 = a32267; /* x171342 stalin.sc:25078:866755 */ t29094 = f9723(t29095); /* x171341 stalin.sc:25078:866745 */ if (f9766(t29094)==FALSE_TYPE) goto l4127; /* x171370 */ /* x171366 stalin.sc:25080:866792 */ /* x171369 stalin.sc:25083:866882 */ /* x171368 stalin.sc:25083:866892 */ t29098 = a32267; /* x171367 stalin.sc:25083:866883 */ t29096 = f9723(t29098); /* x171346 stalin.sc:25079:866779 */ t29097 = NATIVE_PROCEDURE_TYPE14239; if (f9758(t29097, t29096)==FALSE_TYPE) goto l4127; l4126: /* x171415 */ /* x171414 */ goto l4128; l4127: /* x171421 */ /* x171420 */ /* x171419 stalin.sc:25084:866902 */ /* x171417 stalin.sc:25084:866916 */ t29099 = a32267; /* x171418 stalin.sc:25084:866918 */ t29100 = "Improper LET"; /* x171416 stalin.sc:25084:866903 */ f9705(t29099, t29100); l4128: /* x171321 */ /* x171320 stalin.sc:25085:866937 */ /* x171179 stalin.sc:25085:866941 */ /* x171178 stalin.sc:25085:866951 */ /* x171177 stalin.sc:25085:866962 */ t28993 = a32267; /* x171176 stalin.sc:25085:866952 */ t28992 = f9722(t28993); /* x171175 stalin.sc:25085:866942 */ if (f9766(t28992)==FALSE_TYPE) goto l4125; /* x171241 stalin.sc:25088:867106 */ /* x171213 */ /* x171182 */ t29047 = q39; /* x171212 */ /* x171201 stalin.sc:25088:867117 */ /* x171200 stalin.sc:25089:867178 */ /* x171199 stalin.sc:25089:867187 */ /* x171198 stalin.sc:25089:867198 */ /* x171197 stalin.sc:25089:867209 */ t29061 = a32267; /* x171196 stalin.sc:25089:867199 */ t29060 = f9722(t29061); /* x171195 stalin.sc:25089:867188 */ t29058 = f9772(t29060); /* x171194 stalin.sc:25089:867179 */ t29059 = *((struct w49 *)(&t29058)); t29054 = f26331(t29059); /* x171193 stalin.sc:25088:867122 */ /* x171184 stalin.sc:25088:867118 */ t29055.tag = NATIVE_PROCEDURE_TYPE14246; t29056 = *((struct w49 *)(&t29054)); t29057 = (struct structure_type24753 *)NULL_TYPE; t29051 = f27731(t29055, t29056, t29057); /* x171211 */ /* x171210 */ /* x171209 stalin.sc:25090:867219 */ /* x171208 stalin.sc:25090:867230 */ /* x171207 stalin.sc:25090:867239 */ /* x171206 stalin.sc:25090:867248 */ t29068 = a32267; /* x171205 stalin.sc:25090:867240 */ a41449 = t29068; /* x299908 stalin.sc:7008:242336 */ /* x299907 stalin.sc:7008:242344 */ t29069 = a41449; /* x299906 stalin.sc:7008:242337 */ t29066 = f9720(t29069); /* x171204 stalin.sc:25090:867231 */ a41448 = t29066; /* x299904 stalin.sc:7008:242336 */ /* x299903 stalin.sc:7008:242344 */ t29067 = a41448; /* x299902 stalin.sc:7008:242337 */ t29065 = f9720(t29067); /* x171203 stalin.sc:25090:867220 */ t29062 = f9772(t29065); /* x171202 */ t29064.tag = STRUCTURE_TYPE24753; t29064.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29064.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18267]"); out_of_memory_error();} t29064.value.structure_type24753->s0.tag = NULL_TYPE; t29064.value.structure_type24753->s1.tag = NULL_TYPE; t29063 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29063==NULL) {backtrace_internal("[inside top level 18267]"); out_of_memory_error();} t29063->s0 = *((struct w49 *)(&t29062)); t29063->s1 = t29064; t29052 = f26254(t29063); /* x171183 */ /* MOVE: branching squeezed to general */ if (t29051>=((struct structure_type24753 *)VALUE_OFFSET)) {t29053.tag = STRUCTURE_TYPE24753; t29053.value.structure_type24753 = t29051;} else t29053.tag = (unsigned)t29051; t29048 = f26175(t29053, t29052); /* x171181 */ t29049.tag = EXTERNAL_SYMBOL_TYPE; t29049.value.external_symbol_type = t29047; t29050.tag = STRUCTURE_TYPE24753; t29050.value.structure_type24753 = t29048; t29044 = f26175(t29049, t29050); /* x171240 */ /* x171239 */ /* x171238 stalin.sc:25091:867264 */ /* x171237 stalin.sc:25093:867348 */ /* x171236 stalin.sc:25093:867357 */ /* x171235 stalin.sc:25093:867368 */ /* x171234 stalin.sc:25093:867379 */ t29080 = a32267; /* x171233 stalin.sc:25093:867369 */ t29079 = f9722(t29080); /* x171232 stalin.sc:25093:867358 */ t29077 = f9772(t29079); /* x171231 stalin.sc:25093:867349 */ t29078 = *((struct w49 *)(&t29077)); t29073 = f26331(t29078); /* x171230 stalin.sc:25091:867269 */ /* x171215 stalin.sc:25091:867265 */ t29074.tag = NATIVE_PROCEDURE_TYPE14245; t29075 = *((struct w49 *)(&t29073)); t29076 = (struct structure_type24753 *)NULL_TYPE; t29070 = f27731(t29074, t29075, t29076); /* x171214 */ t29072.tag = STRUCTURE_TYPE24753; t29072.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29072.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18267]"); out_of_memory_error();} t29072.value.structure_type24753->s0.tag = NULL_TYPE; t29072.value.structure_type24753->s1.tag = NULL_TYPE; t29071 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29071==NULL) {backtrace_internal("[inside top level 18267]"); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t29070>=((struct structure_type24753 *)VALUE_OFFSET)) {t29071->s0.tag = STRUCTURE_TYPE24753; t29071->s0.value.structure_type24753 = t29070;} else t29071->s0.tag = (unsigned)t29070; t29071->s1 = t29072; t29045 = f26254(t29071); /* x171180 */ t29046.tag = STRUCTURE_TYPE24753; t29046.value.structure_type24753 = t29044; return f26175(t29046, t29045); l4125: /* x171319 stalin.sc:25094:867392 */ /* x171295 */ /* x171244 */ t28997 = q245; /* x171294 */ /* x171287 */ /* x171285 */ /* x171250 stalin.sc:25094:867405 */ /* x171249 stalin.sc:25094:867416 */ t29011 = a32267; /* x171248 stalin.sc:25094:867406 */ t29008 = f9722(t29011); /* x171284 */ /* x171282 */ /* x171253 */ t29015 = q39; /* x171281 */ /* x171268 stalin.sc:25095:867432 */ /* x171264 stalin.sc:25095:867440 */ /* x171267 stalin.sc:25097:867503 */ /* x171266 stalin.sc:25097:867513 */ t29024 = a32267; /* x171265 stalin.sc:25097:867504 */ t29022 = f9723(t29024); /* x171255 stalin.sc:25095:867433 */ t29023.tag = NATIVE_PROCEDURE_TYPE14244; t29019 = f9753(t29023, t29022); /* x171280 */ /* x171279 */ /* x171278 stalin.sc:25098:867524 */ /* x171277 stalin.sc:25098:867535 */ /* x171276 stalin.sc:25098:867544 */ /* x171275 stalin.sc:25098:867553 */ /* x171274 stalin.sc:25098:867562 */ t29033 = a32267; /* x171273 stalin.sc:25098:867554 */ a41452 = t29033; /* x299920 stalin.sc:7008:242336 */ /* x299919 stalin.sc:7008:242344 */ t29034 = a41452; /* x299918 stalin.sc:7008:242337 */ t29031 = f9720(t29034); /* x171272 stalin.sc:25098:867545 */ a41451 = t29031; /* x299916 stalin.sc:7008:242336 */ /* x299915 stalin.sc:7008:242344 */ t29032 = a41451; /* x299914 stalin.sc:7008:242337 */ t29029 = f9720(t29032); /* x171271 stalin.sc:25098:867536 */ a41450 = t29029; /* x299912 stalin.sc:7008:242336 */ /* x299911 stalin.sc:7008:242344 */ t29030 = a41450; /* x299910 stalin.sc:7008:242337 */ t29028 = f9720(t29030); /* x171270 stalin.sc:25098:867525 */ t29025 = f9772(t29028); /* x171269 */ t29027.tag = STRUCTURE_TYPE24753; t29027.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29027.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18267]"); out_of_memory_error();} t29027.value.structure_type24753->s0.tag = NULL_TYPE; t29027.value.structure_type24753->s1.tag = NULL_TYPE; t29026 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29026==NULL) {backtrace_internal("[inside top level 18267]"); out_of_memory_error();} t29026->s0 = *((struct w49 *)(&t29025)); t29026->s1 = t29027; t29020 = f26254(t29026); /* x171254 */ t29021 = *((struct w49 *)(&t29019)); t29016 = f26175(t29021, t29020); /* x171252 */ t29017.tag = EXTERNAL_SYMBOL_TYPE; t29017.value.external_symbol_type = t29015; t29018.tag = STRUCTURE_TYPE24753; t29018.value.structure_type24753 = t29016; t29012 = f26175(t29017, t29018); /* x171283 */ /* x171251 */ t29013.tag = STRUCTURE_TYPE24753; t29013.value.structure_type24753 = t29012; t29014.tag = NULL_TYPE; t29009 = f26175(t29013, t29014); /* x171247 */ t29010.tag = STRUCTURE_TYPE24753; t29010.value.structure_type24753 = t29009; t29005 = f26175(t29008, t29010); /* x171286 */ /* x171246 */ t29006.tag = STRUCTURE_TYPE24753; t29006.value.structure_type24753 = t29005; t29007.tag = NULL_TYPE; t29001 = f26175(t29006, t29007); /* x171293 */ /* x171291 stalin.sc:25099:867574 */ /* x171290 stalin.sc:25099:867585 */ t29037 = a32267; /* x171289 stalin.sc:25099:867575 */ t29035 = f9722(t29037); /* x171292 */ /* x171288 */ t29036.tag = NULL_TYPE; t29002 = f26175(t29035, t29036); /* x171245 */ t29003.tag = STRUCTURE_TYPE24753; t29003.value.structure_type24753 = t29001; t29004.tag = STRUCTURE_TYPE24753; t29004.value.structure_type24753 = t29002; t28998 = f26175(t29003, t29004); /* x171243 */ t28999.tag = EXTERNAL_SYMBOL_TYPE; t28999.value.external_symbol_type = t28997; t29000.tag = STRUCTURE_TYPE24753; t29000.value.structure_type24753 = t28998; t28994 = f26175(t28999, t29000); /* x171318 */ /* x171317 */ /* x171316 stalin.sc:25100:867599 */ /* x171312 stalin.sc:25100:867607 */ /* x171315 stalin.sc:25102:867678 */ /* x171314 stalin.sc:25102:867688 */ t29043 = a32267; /* x171313 stalin.sc:25102:867679 */ t29041 = f9723(t29043); /* x171297 stalin.sc:25100:867600 */ t29042.tag = NATIVE_PROCEDURE_TYPE14243; t29038 = f9753(t29042, t29041); /* x171296 */ t29040.tag = STRUCTURE_TYPE24753; t29040.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29040.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18267]"); out_of_memory_error();} t29040.value.structure_type24753->s0.tag = NULL_TYPE; t29040.value.structure_type24753->s1.tag = NULL_TYPE; t29039 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29039==NULL) {backtrace_internal("[inside top level 18267]"); out_of_memory_error();} t29039->s0 = *((struct w49 *)(&t29038)); t29039->s1 = t29040; t28995 = f26254(t29039); /* x171242 */ t28996.tag = STRUCTURE_TYPE24753; t28996.value.structure_type24753 = t28994; return f26175(t28996, t28995);} /* [inside top level 18261] */ struct w49 f18261(struct w49 a32265) {struct w49 r18261; char *a32266; /* V */ struct w49 a41446; /* S */ struct w49 a41447; /* S */ int t29101; int t29102; struct w49 t29103; int t29104; int t29105; struct w49 t29106; char *t29107; char *t29108; struct structure_type24753 *t29109; struct w49 t29110; struct w49 t29111; struct structure_type24753 *t29112; struct structure_type24753 *t29113; struct structure_type24753 *t29114; struct w49 t29115; struct w49 t29116; struct structure_type24753 *t29117; struct w49 t29118; struct w49 t29119; char *t29120; struct structure_type24753 *t29121; struct w49 t29122; struct w49 t29123; struct w49 t29124; struct w49 t29125; struct w49 t29126; struct structure_type24753 *t29127; struct w49 t29128; struct w49 t29129; char *t29130; struct structure_type24753 *t29131; struct w49 t29132; struct w49 t29133; char *t29134; struct structure_type24753 *t29135; struct w49 t29136; struct w49 t29137; char *t29138; struct structure_type24753 *t29139; struct w49 t29140; struct w49 t29141; struct structure_type24753 *t29142; struct w49 t29143; struct w49 t29144; char *t29145; struct w49 t29146; struct w49 t29147; struct w12224 t29148; struct structure_type24753 *t29149; struct w49 t29150; struct w49 t29151; struct w49 t29152; struct w49 t29153; struct w49 t29154; struct w49 t29155; char *t29156; struct w49 t29157; /* x171170 stalin.sc:25059:866165 */ /* x171102 stalin.sc:25060:866175 */ /* x171100 stalin.sc:25060:866178 */ /* x171099 stalin.sc:25060:866189 */ t29103 = a32265; /* x171098 stalin.sc:25060:866179 */ t29101 = f9734(t29103); /* x171101 stalin.sc:25060:866192 */ t29102 = 1; /* x267979 stalin.sc:25060:866176 */ if (!(t29101==t29102)) goto l4136; /* x171105 */ /* x171104 */ /* x171103 stalin.sc:25060:866195 */ r18261.tag = FALSE_TYPE; return r18261; l4136: /* x171169 */ /* x171111 stalin.sc:25061:866203 */ /* x171109 stalin.sc:25061:866206 */ /* x171108 stalin.sc:25061:866217 */ t29106 = a32265; /* x171107 stalin.sc:25061:866207 */ t29104 = f9734(t29106); /* x171110 stalin.sc:25061:866220 */ t29105 = 2; /* x267978 stalin.sc:25061:866204 */ if (!(t29104==t29105)) goto l4138; /* x171116 */ /* x171115 */ /* x171114 stalin.sc:25061:866223 */ /* x171113 stalin.sc:25061:866234 */ t29157 = a32265; /* x171112 stalin.sc:25061:866224 */ return f9722(t29157); l4138: /* x171168 */ /* x171167 */ /* x171166 stalin.sc:25062:866247 */ /* x171165 stalin.sc:25062:866256 */ /* x171164 stalin.sc:25062:866264 */ t29156 = "v"; /* x171163 stalin.sc:25062:866257 */ t29107 = f5362(t29156); /* x171162 */ a32266 = t29107; /* x171161 stalin.sc:25064:866295 */ /* x171118 */ t29108 = q242; /* x171160 */ /* x171131 */ /* x171129 */ /* x171122 stalin.sc:25064:866304 */ t29120 = a32266; /* x171128 */ /* x171126 stalin.sc:25064:866307 */ /* x171125 stalin.sc:25064:866318 */ t29126 = a32265; /* x171124 stalin.sc:25064:866308 */ t29124 = f9722(t29126); /* x171127 */ /* x171123 */ t29125.tag = NULL_TYPE; t29121 = f26175(t29124, t29125); /* x171121 */ t29122.tag = EXTERNAL_SYMBOL_TYPE; t29122.value.external_symbol_type = t29120; t29123.tag = STRUCTURE_TYPE24753; t29123.value.structure_type24753 = t29121; t29117 = f26175(t29122, t29123); /* x171130 */ /* x171120 */ t29118.tag = STRUCTURE_TYPE24753; t29118.value.structure_type24753 = t29117; t29119.tag = NULL_TYPE; t29113 = f26175(t29118, t29119); /* x171159 */ /* x171157 */ /* x171134 */ t29130 = q43; /* x171156 */ /* x171136 stalin.sc:25065:866333 */ t29134 = a32266; /* x171155 */ /* x171138 stalin.sc:25065:866336 */ t29138 = a32266; /* x171154 */ /* x171152 */ /* x171141 */ t29145 = q241; /* x171151 */ /* x171150 */ /* x171149 stalin.sc:25065:866344 */ /* x171148 stalin.sc:25065:866355 */ /* x171147 stalin.sc:25065:866364 */ /* x171146 stalin.sc:25065:866373 */ t29154 = a32265; /* x171145 stalin.sc:25065:866365 */ a41447 = t29154; /* x299900 stalin.sc:7008:242336 */ /* x299899 stalin.sc:7008:242344 */ t29155 = a41447; /* x299898 stalin.sc:7008:242337 */ t29152 = f9720(t29155); /* x171144 stalin.sc:25065:866356 */ a41446 = t29152; /* x299896 stalin.sc:7008:242336 */ /* x299895 stalin.sc:7008:242344 */ t29153 = a41446; /* x299894 stalin.sc:7008:242337 */ t29151 = f9720(t29153); /* x171143 stalin.sc:25065:866345 */ t29148 = f9772(t29151); /* x171142 */ t29150.tag = STRUCTURE_TYPE24753; t29150.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29150.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18265]"); out_of_memory_error();} t29150.value.structure_type24753->s0.tag = NULL_TYPE; t29150.value.structure_type24753->s1.tag = NULL_TYPE; t29149 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29149==NULL) {backtrace_internal("[inside top level 18265]"); out_of_memory_error();} t29149->s0 = *((struct w49 *)(&t29148)); t29149->s1 = t29150; t29146 = f26254(t29149); /* x171140 */ t29147.tag = EXTERNAL_SYMBOL_TYPE; t29147.value.external_symbol_type = t29145; t29142 = f26175(t29147, t29146); /* x171153 */ /* x171139 */ t29143.tag = STRUCTURE_TYPE24753; t29143.value.structure_type24753 = t29142; t29144.tag = NULL_TYPE; t29139 = f26175(t29143, t29144); /* x171137 */ t29140.tag = EXTERNAL_SYMBOL_TYPE; t29140.value.external_symbol_type = t29138; t29141.tag = STRUCTURE_TYPE24753; t29141.value.structure_type24753 = t29139; t29135 = f26175(t29140, t29141); /* x171135 */ t29136.tag = EXTERNAL_SYMBOL_TYPE; t29136.value.external_symbol_type = t29134; t29137.tag = STRUCTURE_TYPE24753; t29137.value.structure_type24753 = t29135; t29131 = f26175(t29136, t29137); /* x171133 */ t29132.tag = EXTERNAL_SYMBOL_TYPE; t29132.value.external_symbol_type = t29130; t29133.tag = STRUCTURE_TYPE24753; t29133.value.structure_type24753 = t29131; t29127 = f26175(t29132, t29133); /* x171158 */ /* x171132 */ t29128.tag = STRUCTURE_TYPE24753; t29128.value.structure_type24753 = t29127; t29129.tag = NULL_TYPE; t29114 = f26175(t29128, t29129); /* x171119 */ t29115.tag = STRUCTURE_TYPE24753; t29115.value.structure_type24753 = t29113; t29116.tag = STRUCTURE_TYPE24753; t29116.value.structure_type24753 = t29114; t29109 = f26175(t29115, t29116); /* x171117 */ t29110.tag = EXTERNAL_SYMBOL_TYPE; t29110.value.external_symbol_type = t29108; t29111.tag = STRUCTURE_TYPE24753; t29111.value.structure_type24753 = t29109; t29112 = f26175(t29110, t29111); r18261.tag = STRUCTURE_TYPE24753; r18261.value.structure_type24753 = t29112; return r18261;} /* [inside top level 18257] */ struct w49 f18257(struct w49 a32264) {struct w49 r18257; struct w49 a41453; /* S */ struct w49 a41454; /* S */ int t29158; int t29159; struct w49 t29160; int t29161; int t29162; struct w49 t29163; char *t29164; struct structure_type24753 *t29165; struct w49 t29166; struct w49 t29167; struct structure_type24753 *t29168; struct w49 t29169; struct structure_type24753 *t29170; struct w49 t29171; struct w49 t29172; struct structure_type24753 *t29173; struct structure_type24753 *t29174; struct w49 t29175; struct w49 t29176; char *t29177; struct w49 t29178; struct w49 t29179; struct w12224 t29180; struct structure_type24753 *t29181; struct w49 t29182; struct w49 t29183; struct w49 t29184; struct w49 t29185; struct w49 t29186; struct w49 t29187; struct w49 t29189; /* x171092 stalin.sc:25052:865969 */ /* x171048 stalin.sc:25052:865976 */ /* x171046 stalin.sc:25052:865979 */ /* x171045 stalin.sc:25052:865990 */ t29160 = a32264; /* x171044 stalin.sc:25052:865980 */ t29158 = f9734(t29160); /* x171047 stalin.sc:25052:865993 */ t29159 = 1; /* x267981 stalin.sc:25052:865977 */ if (!(t29158==t29159)) goto l4140; /* x171051 */ /* x171050 */ /* x171049 stalin.sc:25052:865996 */ r18257.tag = TRUE_TYPE; return r18257; l4140: /* x171091 */ /* x171057 stalin.sc:25053:866009 */ /* x171055 stalin.sc:25053:866012 */ /* x171054 stalin.sc:25053:866023 */ t29163 = a32264; /* x171053 stalin.sc:25053:866013 */ t29161 = f9734(t29163); /* x171056 stalin.sc:25053:866026 */ t29162 = 2; /* x267980 stalin.sc:25053:866010 */ if (!(t29161==t29162)) goto l4142; /* x171062 */ /* x171061 */ /* x171060 stalin.sc:25053:866029 */ /* x171059 stalin.sc:25053:866040 */ t29189 = a32264; /* x171058 stalin.sc:25053:866030 */ return f9722(t29189); l4142: /* x171090 */ /* x171089 */ /* x171088 stalin.sc:25054:866058 */ /* x171064 */ t29164 = q43; /* x171087 */ /* x171068 stalin.sc:25054:866064 */ /* x171067 stalin.sc:25054:866075 */ t29172 = a32264; /* x171066 stalin.sc:25054:866065 */ t29169 = f9722(t29172); /* x171086 */ /* x171082 */ /* x171071 */ t29177 = q244; /* x171081 */ /* x171080 */ /* x171079 stalin.sc:25055:866090 */ /* x171078 stalin.sc:25055:866101 */ /* x171077 stalin.sc:25055:866110 */ /* x171076 stalin.sc:25055:866119 */ t29186 = a32264; /* x171075 stalin.sc:25055:866111 */ a41454 = t29186; /* x299928 stalin.sc:7008:242336 */ /* x299927 stalin.sc:7008:242344 */ t29187 = a41454; /* x299926 stalin.sc:7008:242337 */ t29184 = f9720(t29187); /* x171074 stalin.sc:25055:866102 */ a41453 = t29184; /* x299924 stalin.sc:7008:242336 */ /* x299923 stalin.sc:7008:242344 */ t29185 = a41453; /* x299922 stalin.sc:7008:242337 */ t29183 = f9720(t29185); /* x171073 stalin.sc:25055:866091 */ t29180 = f9772(t29183); /* x171072 */ t29182.tag = STRUCTURE_TYPE24753; t29182.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29182.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18260]"); out_of_memory_error();} t29182.value.structure_type24753->s0.tag = NULL_TYPE; t29182.value.structure_type24753->s1.tag = NULL_TYPE; t29181 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29181==NULL) {backtrace_internal("[inside top level 18260]"); out_of_memory_error();} t29181->s0 = *((struct w49 *)(&t29180)); t29181->s1 = t29182; t29178 = f26254(t29181); /* x171070 */ t29179.tag = EXTERNAL_SYMBOL_TYPE; t29179.value.external_symbol_type = t29177; t29173 = f26175(t29179, t29178); /* x171085 */ t29174 = &t29188; /* x171069 */ t29175.tag = STRUCTURE_TYPE24753; t29175.value.structure_type24753 = t29173; t29176.tag = STRUCTURE_TYPE24753; t29176.value.structure_type24753 = t29174; t29170 = f26175(t29175, t29176); /* x171065 */ t29171.tag = STRUCTURE_TYPE24753; t29171.value.structure_type24753 = t29170; t29165 = f26175(t29169, t29171); /* x171063 */ t29166.tag = EXTERNAL_SYMBOL_TYPE; t29166.value.external_symbol_type = t29164; t29167.tag = STRUCTURE_TYPE24753; t29167.value.structure_type24753 = t29165; t29168 = f26175(t29166, t29167); r18257.tag = STRUCTURE_TYPE24753; r18257.value.structure_type24753 = t29168; return r18257;} /* [inside top level 18247] */ struct structure_type24753 *f18247(struct p18246 *p18247, struct w49 a32256) {struct w49 a41426; /* S */ struct w49 a41583; /* S */ struct structure_type24753 *t29190; struct w49 t29191; struct w49 t29192; char *t29193; struct w49 t29194; struct w49 t29195; struct w12224 t29196; struct structure_type24753 *t29197; struct w49 t29198; struct p18246 *t29199; struct w49 t29200; struct w198746 t29201; struct w49 t29202; struct w49 t29203; struct w12224 t29204; struct structure_type24753 *t29205; struct w49 t29206; struct w49 t29207; struct w49 t29208; struct w49 t29209; /* x170868 stalin.sc:25039:865581 */ /* x170859 */ /* x170833 */ t29193 = q241; /* x170858 */ /* x170857 */ /* x170856 stalin.sc:25039:865589 */ /* x170852 stalin.sc:25039:865597 */ t29199 = p18247; /* x170855 stalin.sc:25040:865634 */ /* x170854 stalin.sc:25040:865644 */ t29202 = a32256; /* x170853 stalin.sc:25040:865635 */ a41583 = t29202; /* x300444 stalin.sc:6964:241199 */ /* x300443 stalin.sc:6964:241207 */ t29203 = a41583; /* x300442 stalin.sc:6964:241200 */ t29200 = f9719(t29203); /* x170835 stalin.sc:25039:865590 */ t29201.tag = NATIVE_PROCEDURE_TYPE14350; t29201.value.native_procedure_type14350 = t29199; t29196 = f9753(t29201, t29200); /* x170834 */ t29198.tag = STRUCTURE_TYPE24753; t29198.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29198.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18247]"); out_of_memory_error();} t29198.value.structure_type24753->s0.tag = NULL_TYPE; t29198.value.structure_type24753->s1.tag = NULL_TYPE; t29197 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29197==NULL) {backtrace_internal("[inside top level 18247]"); out_of_memory_error();} t29197->s0 = *((struct w49 *)(&t29196)); t29197->s1 = t29198; t29194 = f26254(t29197); /* x170832 */ t29195.tag = EXTERNAL_SYMBOL_TYPE; t29195.value.external_symbol_type = t29193; t29190 = f26175(t29195, t29194); /* x170867 */ /* x170866 */ /* x170865 stalin.sc:25041:865657 */ /* x170864 stalin.sc:25041:865668 */ /* x170863 stalin.sc:25041:865677 */ t29208 = a32256; /* x170862 stalin.sc:25041:865669 */ a41426 = t29208; /* x299816 stalin.sc:7008:242336 */ /* x299815 stalin.sc:7008:242344 */ t29209 = a41426; /* x299814 stalin.sc:7008:242337 */ t29207 = f9720(t29209); /* x170861 stalin.sc:25041:865658 */ t29204 = f9772(t29207); /* x170860 */ t29206.tag = STRUCTURE_TYPE24753; t29206.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29206.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18247]"); out_of_memory_error();} t29206.value.structure_type24753->s0.tag = NULL_TYPE; t29206.value.structure_type24753->s1.tag = NULL_TYPE; t29205 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29205==NULL) {backtrace_internal("[inside top level 18247]"); out_of_memory_error();} t29205->s0 = *((struct w49 *)(&t29204)); t29205->s1 = t29206; t29191 = f26254(t29205); /* x170831 */ t29192.tag = STRUCTURE_TYPE24753; t29192.value.structure_type24753 = t29190; return f26175(t29192, t29191);} /* [inside top level 18244] */ struct structure_type24753 *f18244(struct w49 a32253) {char *a32255; /* V */ struct w49 a35615; /* PAIR */ struct w12224 a35616; /* PAIR */ struct w12224 a35617; /* PAIR */ struct w49 a35618; /* PAIR */ struct w12224 a35619; /* PAIR */ struct w49 a41428; /* S */ struct w49 a41429; /* S */ struct w49 a41432; /* S */ struct w49 a41433; /* S */ struct w49 a41584; /* S */ struct w49 a41587; /* S */ struct w49 a41588; /* S */ char *t29210; char *t29211; struct structure_type24753 *t29212; struct w49 t29213; struct w49 t29214; struct structure_type24753 *t29215; struct structure_type24753 *t29216; struct w49 t29217; struct w49 t29218; struct structure_type24753 *t29219; struct w49 t29220; struct w49 t29221; char *t29222; struct structure_type24753 *t29223; struct w49 t29224; struct w49 t29225; struct w49 t29226; struct w49 t29227; struct w49 t29228; struct structure_type24753 *t29229; struct w49 t29230; struct w49 t29231; int t29232; int t29233; struct w49 t29234; struct w49 t29235; char *t29236; struct w49 t29237; struct w49 t29238; struct w49 t29239; struct w49 t29240; char *t29241; struct w49 t29242; struct w49 t29243; struct w12224 t29244; struct structure_type24753 *t29245; struct w49 t29246; struct p18246 *t29247; struct w49 t29248; struct w198746 t29249; struct w49 t29250; struct w49 t29251; struct w49 t29252; struct w49 t29253; char *t29254; struct w49 t29255; struct w49 t29256; struct structure_type24753 *t29257; struct structure_type24753 *t29258; struct structure_type24753 *t29259; struct w49 t29260; struct p18246 *t29261; struct w12224 t29262; struct w36270 t29263; struct w49 t29264; struct structure_type24753 *t29265; struct w49 t29266; struct w49 t29267; struct w49 t29268; struct w12224 t29269; struct w12224 t29270; struct w49 t29271; struct w49 t29272; struct w49 t29273; struct w49 t29274; char *t29275; int t29276; int t29277; struct w49 t29278; struct w49 t29279; unsigned t29280; struct w49 t29281; struct w49 t29282; struct w49 t29283; struct w49 t29284; int t29285; int t29286; struct w49 t29287; struct w49 t29288; struct w228245 t29289; struct w49 t29290; struct structure_type24753 *t29291; struct w12224 t29292; struct w12224 t29293; struct w49 t29294; struct w49 t29295; struct w49 t29296; struct w12224 t29297; struct w12224 t29298; struct w49 t29299; struct w49 t29300; char *t29301; struct w49 t29302; struct w49 t29303; struct w49 t29304; struct w49 t29305; struct w49 t29306; struct w49 t29307; struct w49 t29308; struct w49 t29309; struct w49 t29310; char *t29311; struct p18246 *e18246; /* x171038 */ /* x171037 stalin.sc:25023:864989 */ /* x171028 stalin.sc:25023:864997 */ /* x170956 stalin.sc:25023:865002 */ /* x170954 stalin.sc:25023:865006 */ /* x170953 stalin.sc:25023:865017 */ t29278 = a32253; /* x170952 stalin.sc:25023:865007 */ t29276 = f9734(t29278); /* x170955 stalin.sc:25023:865020 */ t29277 = 2; /* x267983 stalin.sc:25023:865003 */ if (!(t29276>=t29277)) goto l4148; /* x171026 */ /* x170972 stalin.sc:25024:865031 */ /* x170966 stalin.sc:25024:865041 */ /* x170971 stalin.sc:25025:865090 */ /* x170970 stalin.sc:25025:865099 */ /* x170969 stalin.sc:25025:865108 */ t29283 = a32253; /* x170968 stalin.sc:25025:865100 */ a41433 = t29283; /* x299844 stalin.sc:7008:242336 */ /* x299843 stalin.sc:7008:242344 */ t29284 = a41433; /* x299842 stalin.sc:7008:242337 */ t29281 = f9720(t29284); /* x170967 stalin.sc:25025:865091 */ a41432 = t29281; /* x299840 stalin.sc:7008:242336 */ /* x299839 stalin.sc:7008:242344 */ t29282 = a41432; /* x299838 stalin.sc:7008:242337 */ t29279 = f9720(t29282); /* x170957 stalin.sc:25024:865032 */ t29280 = NATIVE_PROCEDURE_TYPE14340; if (f9758(t29280, t29279)==FALSE_TYPE) goto l4148; /* x171024 */ /* x171023 stalin.sc:25026:865125 */ /* x171021 stalin.sc:25026:865128 */ /* x171020 stalin.sc:25026:865139 */ t29287 = a32253; /* x171019 stalin.sc:25026:865129 */ t29285 = f9734(t29287); /* x171022 stalin.sc:25026:865142 */ t29286 = 2; /* x267982 stalin.sc:25026:865126 */ if (t29285==t29286) goto l4147; /* x171015 */ /* x170993 stalin.sc:25027:865155 */ /* x170992 stalin.sc:25029:865207 */ /* x170991 stalin.sc:25029:865213 */ /* x170990 stalin.sc:25029:865222 */ /* x170989 stalin.sc:25029:865228 */ /* x170988 stalin.sc:25029:865234 */ /* x170987 stalin.sc:25029:865245 */ t29299 = a32253; /* x170986 stalin.sc:25029:865235 */ t29297 = f9772(t29299); /* x170985 stalin.sc:25029:865229 */ a35619 = t29297; /* x273833 */ /* x273832 */ t29298 = a35619; /* x273831 */ if (!((t29298.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29768]"); structure_ref_error();} t29295 = t29298.value.structure_type24753->s1; /* x170984 stalin.sc:25029:865223 */ a35618 = t29295; /* x273829 */ /* x273828 */ t29296 = a35618; /* x273827 */ if (!((t29296.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29767]"); structure_ref_error();} t29294 = t29296.value.structure_type24753->s1; /* x170983 stalin.sc:25029:865214 */ t29292 = f26331(t29294); /* x170982 stalin.sc:25029:865208 */ a35617 = t29292; /* x273825 */ /* x273824 */ t29293 = a35617; /* x273823 */ if (!((t29293.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29766]"); structure_ref_error();} t29288 = t29293.value.structure_type24753->s1; /* x170981 stalin.sc:25028:865166 */ /* x170975 stalin.sc:25027:865156 */ t29289.tag = NATIVE_PROCEDURE_TYPE14342; t29290 = t29288; t29291 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t29289, t29290, t29291)==FALSE_TYPE) goto l4148; /* x171013 */ /* x171012 stalin.sc:25030:865267 */ /* x171010 stalin.sc:25030:865275 */ /* x171009 stalin.sc:25030:865285 */ /* x171008 stalin.sc:25030:865294 */ t29305 = a32253; /* x171007 stalin.sc:25030:865286 */ t29303 = f9769(t29305); /* x171006 stalin.sc:25030:865276 */ a41588 = t29303; /* x300464 stalin.sc:6964:241199 */ /* x300463 stalin.sc:6964:241207 */ t29304 = a41588; /* x300462 stalin.sc:6964:241200 */ t29300 = f9719(t29304); /* x171011 stalin.sc:25030:865298 */ t29301 = q95; /* x171005 stalin.sc:25030:865268 */ t29302.tag = EXTERNAL_SYMBOL_TYPE; t29302.value.external_symbol_type = t29301; if (!(f9745(t29300, t29302)==FALSE_TYPE)) goto l4147; /* x171002 */ /* x171001 stalin.sc:25031:865322 */ /* x171000 stalin.sc:25031:865332 */ /* x170999 stalin.sc:25031:865341 */ t29309 = a32253; /* x170998 stalin.sc:25031:865333 */ t29307 = f9769(t29309); /* x170997 stalin.sc:25031:865323 */ a41587 = t29307; /* x300460 stalin.sc:6964:241199 */ /* x300459 stalin.sc:6964:241207 */ t29308 = a41587; /* x300458 stalin.sc:6964:241200 */ t29306 = f9719(t29308); /* x170996 stalin.sc:25031:865313 */ if (f9766(t29306)==FALSE_TYPE) goto l4148; l4147: /* x171030 */ /* x171029 */ goto l4149; l4148: /* x171036 */ /* x171035 */ /* x171034 stalin.sc:25032:865353 */ /* x171032 stalin.sc:25032:865367 */ t29310 = a32253; /* x171033 stalin.sc:25032:865369 */ t29311 = "Improper CASE"; /* x171031 stalin.sc:25032:865354 */ f9705(t29310, t29311); l4149: /* x170950 */ /* x170949 stalin.sc:25033:865389 */ /* x170948 stalin.sc:25033:865398 */ /* x170947 stalin.sc:25033:865406 */ t29275 = "v"; /* x170946 stalin.sc:25033:865399 */ t29210 = f5362(t29275); /* x170945 */ a32255 = t29210; e18246 = (struct p18246 *)alloca(sizeof(struct p18246)); if (e18246==NULL) {backtrace_internal("[inside top level 18245]"); out_of_memory_error();} e18246->a32255 = a32255; /* x170944 stalin.sc:25035:865437 */ /* x170796 */ t29211 = q242; /* x170943 */ /* x170809 */ /* x170807 */ /* x170800 stalin.sc:25035:865446 */ t29222 = e18246->a32255; /* x170806 */ /* x170804 stalin.sc:25035:865449 */ /* x170803 stalin.sc:25035:865460 */ t29228 = a32253; /* x170802 stalin.sc:25035:865450 */ t29226 = f9722(t29228); /* x170805 */ /* x170801 */ t29227.tag = NULL_TYPE; t29223 = f26175(t29226, t29227); /* x170799 */ t29224.tag = EXTERNAL_SYMBOL_TYPE; t29224.value.external_symbol_type = t29222; t29225.tag = STRUCTURE_TYPE24753; t29225.value.structure_type24753 = t29223; t29219 = f26175(t29224, t29225); /* x170808 */ /* x170798 */ t29220.tag = STRUCTURE_TYPE24753; t29220.value.structure_type24753 = t29219; t29221.tag = NULL_TYPE; t29215 = f26175(t29220, t29221); /* x170942 */ /* x170940 stalin.sc:25036:865471 */ /* x170826 stalin.sc:25036:865475 */ /* x170816 stalin.sc:25036:865480 */ /* x170814 stalin.sc:25036:865484 */ /* x170813 stalin.sc:25036:865495 */ t29234 = a32253; /* x170812 stalin.sc:25036:865485 */ t29232 = f9734(t29234); /* x170815 stalin.sc:25036:865498 */ t29233 = 3; /* x267984 stalin.sc:25036:865481 */ if (!(t29232>=t29233)) goto l4144; /* x170824 */ /* x170822 stalin.sc:25037:865517 */ /* x170821 stalin.sc:25037:865527 */ /* x170820 stalin.sc:25037:865536 */ t29240 = a32253; /* x170819 stalin.sc:25037:865528 */ t29238 = f9769(t29240); /* x170818 stalin.sc:25037:865518 */ a41584 = t29238; /* x300448 stalin.sc:6964:241199 */ /* x300447 stalin.sc:6964:241207 */ t29239 = a41584; /* x300446 stalin.sc:6964:241200 */ t29235 = f9719(t29239); /* x170823 stalin.sc:25037:865540 */ t29236 = q95; /* x170817 stalin.sc:25037:865510 */ t29237.tag = EXTERNAL_SYMBOL_TYPE; t29237.value.external_symbol_type = t29236; if (f9745(t29235, t29237)==FALSE_TYPE) goto l4144; /* x170887 stalin.sc:25038:865551 */ /* x170828 */ t29254 = q240; /* x170886 */ /* x170885 */ /* x170883 stalin.sc:25043:865737 */ /* x170882 stalin.sc:25043:865746 */ t29274 = a32253; /* x170881 stalin.sc:25043:865738 */ t29272 = f9769(t29274); /* x170884 */ /* x170880 */ t29273.tag = NULL_TYPE; t29258 = f26175(t29272, t29273); /* x170879 stalin.sc:25038:865560 */ /* x170878 stalin.sc:25042:865693 */ /* x170877 stalin.sc:25042:865703 */ /* x170876 stalin.sc:25042:865709 */ /* x170875 stalin.sc:25042:865715 */ /* x170874 stalin.sc:25042:865726 */ t29271 = a32253; /* x170873 stalin.sc:25042:865716 */ t29269 = f9772(t29271); /* x170872 stalin.sc:25042:865710 */ a35616 = t29269; /* x273821 */ /* x273820 */ t29270 = a35616; /* x273819 */ if (!((t29270.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29765]"); structure_ref_error();} t29267 = t29270.value.structure_type24753->s1; /* x170871 stalin.sc:25042:865704 */ a35615 = t29267; /* x273817 */ /* x273816 */ t29268 = a35615; /* x273815 */ if (!((t29268.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29764]"); structure_ref_error();} t29266 = t29268.value.structure_type24753->s1; /* x170870 stalin.sc:25042:865694 */ t29262 = f1005(t29266); /* x170869 stalin.sc:25038:865565 */ t29261 = e18246; /* x170830 stalin.sc:25038:865561 */ t29263.tag = NATIVE_PROCEDURE_TYPE14349; t29263.value.native_procedure_type14349 = t29261; t29264 = *((struct w49 *)(&t29262)); t29265 = (struct structure_type24753 *)NULL_TYPE; t29257 = f27731(t29263, t29264, t29265); /* x170829 */ t29260.tag = STRUCTURE_TYPE24753; t29260.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29260.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18246]"); out_of_memory_error();} t29260.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t29260.value.structure_type24753->s0.value.structure_type24753 = t29258; t29260.value.structure_type24753->s1.tag = NULL_TYPE; t29259 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29259==NULL) {backtrace_internal("[inside top level 18246]"); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t29257>=((struct structure_type24753 *)VALUE_OFFSET)) {t29259->s0.tag = STRUCTURE_TYPE24753; t29259->s0.value.structure_type24753 = t29257;} else t29259->s0.tag = (unsigned)t29257; t29259->s1 = t29260; t29255 = f26254(t29259); /* x170827 */ t29256.tag = EXTERNAL_SYMBOL_TYPE; t29256.value.external_symbol_type = t29254; t29229 = f26175(t29256, t29255); goto l4145; l4144: /* x170939 stalin.sc:25044:865753 */ /* x170889 */ t29241 = q240; /* x170938 */ /* x170937 */ /* x170936 stalin.sc:25044:865762 */ /* x170930 stalin.sc:25044:865770 */ t29247 = e18246; /* x170935 stalin.sc:25049:865912 */ /* x170934 stalin.sc:25049:865921 */ /* x170933 stalin.sc:25049:865930 */ t29252 = a32253; /* x170932 stalin.sc:25049:865922 */ a41429 = t29252; /* x299828 stalin.sc:7008:242336 */ /* x299827 stalin.sc:7008:242344 */ t29253 = a41429; /* x299826 stalin.sc:7008:242337 */ t29250 = f9720(t29253); /* x170931 stalin.sc:25049:865913 */ a41428 = t29250; /* x299824 stalin.sc:7008:242336 */ /* x299823 stalin.sc:7008:242344 */ t29251 = a41428; /* x299822 stalin.sc:7008:242337 */ t29248 = f9720(t29251); /* x170891 stalin.sc:25044:865763 */ t29249.tag = NATIVE_PROCEDURE_TYPE14347; t29249.value.native_procedure_type14347 = t29247; t29244 = f9753(t29249, t29248); /* x170890 */ t29246.tag = STRUCTURE_TYPE24753; t29246.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29246.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18246]"); out_of_memory_error();} t29246.value.structure_type24753->s0.tag = NULL_TYPE; t29246.value.structure_type24753->s1.tag = NULL_TYPE; t29245 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29245==NULL) {backtrace_internal("[inside top level 18246]"); out_of_memory_error();} t29245->s0 = *((struct w49 *)(&t29244)); t29245->s1 = t29246; t29242 = f26254(t29245); /* x170888 */ t29243.tag = EXTERNAL_SYMBOL_TYPE; t29243.value.external_symbol_type = t29241; t29229 = f26175(t29243, t29242); l4145: /* x170941 */ /* x170810 */ t29230.tag = STRUCTURE_TYPE24753; t29230.value.structure_type24753 = t29229; t29231.tag = NULL_TYPE; t29216 = f26175(t29230, t29231); /* x170797 */ t29217.tag = STRUCTURE_TYPE24753; t29217.value.structure_type24753 = t29215; t29218.tag = STRUCTURE_TYPE24753; t29218.value.structure_type24753 = t29216; t29212 = f26175(t29217, t29218); /* x170795 */ t29213.tag = EXTERNAL_SYMBOL_TYPE; t29213.value.external_symbol_type = t29211; t29214.tag = STRUCTURE_TYPE24753; t29214.value.structure_type24753 = t29212; return f26175(t29213, t29214);} /* [inside top level 18228] */ struct structure_type24753 *f18228(struct w49 a32244) {char *a32246; /* V */ struct w12224 a35625; /* PAIR */ struct w12224 a35626; /* PAIR */ struct w49 a41455; /* S */ struct w49 a41456; /* S */ struct w49 a41457; /* S */ struct w49 a41458; /* S */ struct w49 a41459; /* S */ struct w49 a41460; /* S */ struct w49 a41461; /* S */ struct w49 a41462; /* S */ struct w49 a41463; /* S */ struct w49 a41465; /* S */ struct w49 a41467; /* S */ struct w49 a41610; /* S */ struct w49 a41611; /* S */ struct w49 a41612; /* S */ struct w49 a41613; /* S */ int t29312; int t29313; struct w49 t29314; struct w49 t29315; char *t29316; struct w49 t29317; struct w49 t29318; struct w49 t29319; struct w49 t29320; struct w49 t29321; struct w49 t29322; struct w49 t29323; struct w49 t29324; int t29325; int t29326; struct w49 t29327; struct w49 t29328; struct w49 t29329; char *t29330; struct w49 t29331; struct w49 t29332; struct w49 t29333; char *t29334; struct structure_type24753 *t29335; struct w49 t29336; struct w49 t29337; struct w49 t29338; struct structure_type24753 *t29339; struct w49 t29340; struct w49 t29341; struct w49 t29342; struct w49 t29343; struct structure_type24753 *t29344; struct structure_type24753 *t29345; struct w49 t29346; struct w49 t29347; char *t29348; struct w49 t29349; struct w49 t29350; struct w12224 t29351; struct structure_type24753 *t29352; struct w49 t29353; struct w49 t29354; struct w49 t29355; struct w49 t29356; struct w49 t29357; struct structure_type24753 *t29358; struct w49 t29359; struct w49 t29360; char *t29361; struct w49 t29362; struct w49 t29363; struct w12224 t29364; struct structure_type24753 *t29365; struct w49 t29366; struct w49 t29367; struct w49 t29368; struct w49 t29369; struct w49 t29370; struct w49 t29371; char *t29372; char *t29373; struct structure_type24753 *t29374; struct w49 t29375; struct w49 t29376; struct structure_type24753 *t29377; struct structure_type24753 *t29378; struct w49 t29379; struct w49 t29380; struct structure_type24753 *t29381; struct w49 t29382; struct w49 t29383; char *t29384; struct structure_type24753 *t29385; struct w49 t29386; struct w49 t29387; struct w49 t29388; struct w49 t29389; struct w49 t29390; struct w49 t29391; struct w49 t29392; struct structure_type24753 *t29393; struct w49 t29394; struct w49 t29395; char *t29396; struct structure_type24753 *t29397; struct w49 t29398; struct w49 t29399; char *t29400; struct structure_type24753 *t29401; struct w49 t29402; struct w49 t29403; struct structure_type24753 *t29404; struct structure_type24753 *t29405; struct w49 t29406; struct w49 t29407; struct w49 t29408; struct structure_type24753 *t29409; struct w49 t29410; struct w49 t29411; struct w49 t29412; char *t29413; struct w49 t29414; struct w49 t29415; struct structure_type24753 *t29416; struct w49 t29417; struct w49 t29418; char *t29419; struct w49 t29420; struct w49 t29421; struct w12224 t29422; struct structure_type24753 *t29423; struct w49 t29424; struct w49 t29425; struct w49 t29426; struct w49 t29427; struct w49 t29428; struct w49 t29429; char *t29430; char *t29431; struct structure_type24753 *t29432; struct w49 t29433; struct w49 t29434; struct w49 t29435; struct structure_type24753 *t29436; struct w49 t29437; struct w49 t29438; struct w49 t29439; struct w49 t29440; struct structure_type24753 *t29441; struct w49 t29442; struct w49 t29443; char *t29444; struct w49 t29445; struct w49 t29446; struct w12224 t29447; struct structure_type24753 *t29448; struct w49 t29449; struct w49 t29450; struct w49 t29451; struct w49 t29452; struct w49 t29453; struct w49 t29454; char *t29455; struct w49 t29456; struct w49 t29457; struct w12224 t29458; struct structure_type24753 *t29459; struct w49 t29460; struct w49 t29461; struct w49 t29462; struct w49 t29463; struct w49 t29464; struct w49 t29468; unsigned t29469; struct w49 t29470; struct w49 t29471; int t29472; int t29473; struct w49 t29474; struct w49 t29475; unsigned t29476; struct w49 t29477; struct w49 t29478; struct w49 t29479; struct w228245 t29480; struct w49 t29481; struct structure_type24753 *t29482; struct w12224 t29483; struct w12224 t29484; struct w49 t29485; struct w12224 t29486; struct w12224 t29487; struct w49 t29488; struct w49 t29489; char *t29490; /* x170790 */ /* x170789 stalin.sc:24992:863821 */ /* x170780 stalin.sc:24992:863829 */ /* x170709 stalin.sc:24992:863834 */ /* x170705 stalin.sc:24992:863844 */ /* x170708 stalin.sc:24993:863893 */ /* x170707 stalin.sc:24993:863902 */ t29470 = a32244; /* x170706 stalin.sc:24993:863894 */ a41467 = t29470; /* x299980 stalin.sc:7008:242336 */ /* x299979 stalin.sc:7008:242344 */ t29471 = a41467; /* x299978 stalin.sc:7008:242337 */ t29468 = f9720(t29471); /* x170696 stalin.sc:24992:863835 */ t29469 = NATIVE_PROCEDURE_TYPE14206; if (f9758(t29469, t29468)==FALSE_TYPE) goto l4165; /* x170778 */ /* x170777 stalin.sc:24994:863918 */ /* x170775 stalin.sc:24994:863921 */ /* x170774 stalin.sc:24994:863932 */ t29474 = a32244; /* x170773 stalin.sc:24994:863922 */ t29472 = f9734(t29474); /* x170776 stalin.sc:24994:863935 */ t29473 = 1; /* x267985 stalin.sc:24994:863919 */ if (t29472==t29473) goto l4164; /* x170769 */ /* x170747 stalin.sc:24995:863948 */ /* x170743 stalin.sc:24995:863958 */ /* x170746 stalin.sc:24999:864084 */ /* x170745 stalin.sc:24999:864093 */ t29477 = a32244; /* x170744 stalin.sc:24999:864085 */ a41465 = t29477; /* x299972 stalin.sc:7008:242336 */ /* x299971 stalin.sc:7008:242344 */ t29478 = a41465; /* x299970 stalin.sc:7008:242337 */ t29475 = f9720(t29478); /* x170712 stalin.sc:24995:863949 */ t29476 = NATIVE_PROCEDURE_TYPE14210; if (f9758(t29476, t29475)==FALSE_TYPE) goto l4165; /* x170767 */ /* x170766 stalin.sc:25002:864169 */ /* x170765 stalin.sc:25002:864175 */ /* x170764 stalin.sc:25002:864184 */ /* x170763 stalin.sc:25002:864190 */ /* x170762 stalin.sc:25002:864201 */ t29488 = a32244; /* x170761 stalin.sc:25002:864191 */ t29486 = f9772(t29488); /* x170760 stalin.sc:25002:864185 */ a35626 = t29486; /* x273861 */ /* x273860 */ t29487 = a35626; /* x273859 */ if (!((t29487.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29775]"); structure_ref_error();} t29485 = t29487.value.structure_type24753->s1; /* x170759 stalin.sc:25002:864176 */ t29483 = f26331(t29485); /* x170758 stalin.sc:25002:864170 */ a35625 = t29483; /* x273857 */ /* x273856 */ t29484 = a35625; /* x273855 */ if (!((t29484.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29774]"); structure_ref_error();} t29479 = t29484.value.structure_type24753->s1; /* x170757 stalin.sc:25001:864118 */ /* x170748 stalin.sc:25000:864108 */ t29480.tag = NATIVE_PROCEDURE_TYPE14216; t29481 = t29479; t29482 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t29480, t29481, t29482)==FALSE_TYPE) goto l4165; l4164: /* x170782 */ /* x170781 */ goto l4166; l4165: /* x170788 */ /* x170787 */ /* x170786 stalin.sc:25003:864214 */ /* x170784 stalin.sc:25003:864228 */ t29489 = a32244; /* x170785 stalin.sc:25003:864230 */ t29490 = "Improper COND"; /* x170783 stalin.sc:25003:864215 */ f9705(t29489, t29490); l4166: /* x170695 */ /* x170694 stalin.sc:25004:864250 */ /* x170498 stalin.sc:25004:864257 */ /* x170496 stalin.sc:25004:864260 */ /* x170495 stalin.sc:25004:864271 */ t29314 = a32244; /* x170494 stalin.sc:25004:864261 */ t29312 = f9734(t29314); /* x170497 stalin.sc:25004:864274 */ t29313 = 1; /* x267991 stalin.sc:25004:864258 */ if (!(t29312==t29313)) goto l4156; /* x170507 */ /* x170506 */ /* x170505 stalin.sc:25004:864277 */ return &t29465; l4156: /* x170693 */ /* x170515 stalin.sc:25005:864302 */ /* x170513 stalin.sc:25005:864310 */ /* x170512 stalin.sc:25005:864320 */ /* x170511 stalin.sc:25005:864331 */ t29320 = a32244; /* x170510 stalin.sc:25005:864321 */ t29318 = f9722(t29320); /* x170509 stalin.sc:25005:864311 */ a41613 = t29318; /* x300564 stalin.sc:6964:241199 */ /* x300563 stalin.sc:6964:241207 */ t29319 = a41613; /* x300562 stalin.sc:6964:241200 */ t29315 = f9719(t29319); /* x170514 stalin.sc:25005:864335 */ t29316 = q95; /* x170508 stalin.sc:25005:864303 */ t29317.tag = EXTERNAL_SYMBOL_TYPE; t29317.value.external_symbol_type = t29316; if (f9745(t29315, t29317)==FALSE_TYPE) goto l4158; /* x170530 */ /* x170529 */ /* x170528 stalin.sc:25006:864344 */ /* x170517 */ t29455 = q239; /* x170527 */ /* x170526 */ /* x170525 stalin.sc:25006:864354 */ /* x170524 stalin.sc:25006:864365 */ /* x170523 stalin.sc:25006:864374 */ /* x170522 stalin.sc:25006:864385 */ t29464 = a32244; /* x170521 stalin.sc:25006:864375 */ t29462 = f9722(t29464); /* x170520 stalin.sc:25006:864366 */ a41455 = t29462; /* x299932 stalin.sc:7008:242336 */ /* x299931 stalin.sc:7008:242344 */ t29463 = a41455; /* x299930 stalin.sc:7008:242337 */ t29461 = f9720(t29463); /* x170519 stalin.sc:25006:864355 */ t29458 = f9772(t29461); /* x170518 */ t29460.tag = STRUCTURE_TYPE24753; t29460.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29460.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18231]"); out_of_memory_error();} t29460.value.structure_type24753->s0.tag = NULL_TYPE; t29460.value.structure_type24753->s1.tag = NULL_TYPE; t29459 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29459==NULL) {backtrace_internal("[inside top level 18231]"); out_of_memory_error();} t29459->s0 = *((struct w49 *)(&t29458)); t29459->s1 = t29460; t29456 = f26254(t29459); /* x170516 */ t29457.tag = EXTERNAL_SYMBOL_TYPE; t29457.value.external_symbol_type = t29455; return f26175(t29457, t29456); l4158: /* x170692 */ /* x170537 stalin.sc:25007:864401 */ /* x170536 stalin.sc:25007:864411 */ /* x170535 stalin.sc:25007:864420 */ /* x170534 stalin.sc:25007:864431 */ t29324 = a32244; /* x170533 stalin.sc:25007:864421 */ t29322 = f9722(t29324); /* x170532 stalin.sc:25007:864412 */ a41463 = t29322; /* x299964 stalin.sc:7008:242336 */ /* x299963 stalin.sc:7008:242344 */ t29323 = a41463; /* x299962 stalin.sc:7008:242337 */ t29321 = f9720(t29323); /* x170531 stalin.sc:25007:864402 */ if (f9739(t29321)==FALSE_TYPE) goto l4160; /* x170565 */ /* x170564 */ /* x170563 stalin.sc:25008:864438 */ /* x170539 */ t29431 = q241; /* x170562 */ /* x170545 stalin.sc:25008:864444 */ /* x170544 stalin.sc:25008:864454 */ /* x170543 stalin.sc:25008:864465 */ t29440 = a32244; /* x170542 stalin.sc:25008:864455 */ t29438 = f9722(t29440); /* x170541 stalin.sc:25008:864445 */ a41610 = t29438; /* x300552 stalin.sc:6964:241199 */ /* x300551 stalin.sc:6964:241207 */ t29439 = a41610; /* x300550 stalin.sc:6964:241200 */ t29435 = f9719(t29439); /* x170561 */ /* x170559 */ /* x170548 */ t29444 = q240; /* x170558 */ /* x170557 */ /* x170556 stalin.sc:25009:864484 */ /* x170555 stalin.sc:25009:864495 */ /* x170554 stalin.sc:25009:864504 */ /* x170553 stalin.sc:25009:864513 */ t29453 = a32244; /* x170552 stalin.sc:25009:864505 */ a41457 = t29453; /* x299940 stalin.sc:7008:242336 */ /* x299939 stalin.sc:7008:242344 */ t29454 = a41457; /* x299938 stalin.sc:7008:242337 */ t29451 = f9720(t29454); /* x170551 stalin.sc:25009:864496 */ a41456 = t29451; /* x299936 stalin.sc:7008:242336 */ /* x299935 stalin.sc:7008:242344 */ t29452 = a41456; /* x299934 stalin.sc:7008:242337 */ t29450 = f9720(t29452); /* x170550 stalin.sc:25009:864485 */ t29447 = f9772(t29450); /* x170549 */ t29449.tag = STRUCTURE_TYPE24753; t29449.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29449.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18232]"); out_of_memory_error();} t29449.value.structure_type24753->s0.tag = NULL_TYPE; t29449.value.structure_type24753->s1.tag = NULL_TYPE; t29448 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29448==NULL) {backtrace_internal("[inside top level 18232]"); out_of_memory_error();} t29448->s0 = *((struct w49 *)(&t29447)); t29448->s1 = t29449; t29445 = f26254(t29448); /* x170547 */ t29446.tag = EXTERNAL_SYMBOL_TYPE; t29446.value.external_symbol_type = t29444; t29441 = f26175(t29446, t29445); /* x170560 */ /* x170546 */ t29442.tag = STRUCTURE_TYPE24753; t29442.value.structure_type24753 = t29441; t29443.tag = NULL_TYPE; t29436 = f26175(t29442, t29443); /* x170540 */ t29437.tag = STRUCTURE_TYPE24753; t29437.value.structure_type24753 = t29436; t29432 = f26175(t29435, t29437); /* x170538 */ t29433.tag = EXTERNAL_SYMBOL_TYPE; t29433.value.external_symbol_type = t29431; t29434.tag = STRUCTURE_TYPE24753; t29434.value.structure_type24753 = t29432; return f26175(t29433, t29434); l4160: /* x170691 */ /* x170583 stalin.sc:25010:864530 */ /* x170573 stalin.sc:25010:864535 */ /* x170571 stalin.sc:25010:864538 */ /* x170570 stalin.sc:25010:864549 */ /* x170569 stalin.sc:25010:864560 */ t29328 = a32244; /* x170568 stalin.sc:25010:864550 */ t29327 = f9722(t29328); /* x170567 stalin.sc:25010:864539 */ t29325 = f9734(t29327); /* x170572 stalin.sc:25010:864564 */ t29326 = 3; /* x267990 stalin.sc:25010:864536 */ if (!(t29325==t29326)) goto l4162; /* x170581 */ /* x170579 stalin.sc:25011:864582 */ /* x170578 stalin.sc:25011:864593 */ /* x170577 stalin.sc:25011:864604 */ t29333 = a32244; /* x170576 stalin.sc:25011:864594 */ t29332 = f9722(t29333); /* x170575 stalin.sc:25011:864583 */ t29329 = f9722(t29332); /* x170580 stalin.sc:25011:864608 */ t29330 = q96; /* x170574 stalin.sc:25011:864575 */ t29331.tag = EXTERNAL_SYMBOL_TYPE; t29331.value.external_symbol_type = t29330; if (f9745(t29329, t29331)==FALSE_TYPE) goto l4162; /* x170647 */ /* x170646 */ /* x170645 stalin.sc:25012:864616 */ /* x170644 stalin.sc:25012:864625 */ /* x170643 stalin.sc:25012:864633 */ t29430 = "v"; /* x170642 stalin.sc:25012:864626 */ t29372 = f5362(t29430); /* x170641 */ a32246 = t29372; /* x170640 stalin.sc:25014:864664 */ /* x170585 */ t29373 = q242; /* x170639 */ /* x170600 */ /* x170598 */ /* x170589 stalin.sc:25014:864673 */ t29384 = a32246; /* x170597 */ /* x170595 stalin.sc:25014:864676 */ /* x170594 stalin.sc:25014:864686 */ /* x170593 stalin.sc:25014:864697 */ t29392 = a32244; /* x170592 stalin.sc:25014:864687 */ t29390 = f9722(t29392); /* x170591 stalin.sc:25014:864677 */ a41611 = t29390; /* x300556 stalin.sc:6964:241199 */ /* x300555 stalin.sc:6964:241207 */ t29391 = a41611; /* x300554 stalin.sc:6964:241200 */ t29388 = f9719(t29391); /* x170596 */ /* x170590 */ t29389.tag = NULL_TYPE; t29385 = f26175(t29388, t29389); /* x170588 */ t29386.tag = EXTERNAL_SYMBOL_TYPE; t29386.value.external_symbol_type = t29384; t29387.tag = STRUCTURE_TYPE24753; t29387.value.structure_type24753 = t29385; t29381 = f26175(t29386, t29387); /* x170599 */ /* x170587 */ t29382.tag = STRUCTURE_TYPE24753; t29382.value.structure_type24753 = t29381; t29383.tag = NULL_TYPE; t29377 = f26175(t29382, t29383); /* x170638 */ /* x170636 */ /* x170603 */ t29396 = q43; /* x170635 */ /* x170605 stalin.sc:25015:864713 */ t29400 = a32246; /* x170634 */ /* x170617 */ /* x170612 stalin.sc:25016:864726 */ /* x170611 stalin.sc:25016:864736 */ /* x170610 stalin.sc:25016:864747 */ t29412 = a32244; /* x170609 stalin.sc:25016:864737 */ t29411 = f9722(t29412); /* x170608 stalin.sc:25016:864727 */ t29408 = f9723(t29411); /* x170616 */ /* x170614 stalin.sc:25016:864752 */ t29413 = a32246; /* x170615 */ /* x170613 */ t29414.tag = EXTERNAL_SYMBOL_TYPE; t29414.value.external_symbol_type = t29413; t29415.tag = NULL_TYPE; t29409 = f26175(t29414, t29415); /* x170607 */ t29410.tag = STRUCTURE_TYPE24753; t29410.value.structure_type24753 = t29409; t29404 = f26175(t29408, t29410); /* x170633 */ /* x170631 */ /* x170620 */ t29419 = q240; /* x170630 */ /* x170629 */ /* x170628 stalin.sc:25017:864772 */ /* x170627 stalin.sc:25017:864783 */ /* x170626 stalin.sc:25017:864792 */ /* x170625 stalin.sc:25017:864801 */ t29428 = a32244; /* x170624 stalin.sc:25017:864793 */ a41459 = t29428; /* x299948 stalin.sc:7008:242336 */ /* x299947 stalin.sc:7008:242344 */ t29429 = a41459; /* x299946 stalin.sc:7008:242337 */ t29426 = f9720(t29429); /* x170623 stalin.sc:25017:864784 */ a41458 = t29426; /* x299944 stalin.sc:7008:242336 */ /* x299943 stalin.sc:7008:242344 */ t29427 = a41458; /* x299942 stalin.sc:7008:242337 */ t29425 = f9720(t29427); /* x170622 stalin.sc:25017:864773 */ t29422 = f9772(t29425); /* x170621 */ t29424.tag = STRUCTURE_TYPE24753; t29424.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29424.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18234]"); out_of_memory_error();} t29424.value.structure_type24753->s0.tag = NULL_TYPE; t29424.value.structure_type24753->s1.tag = NULL_TYPE; t29423 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29423==NULL) {backtrace_internal("[inside top level 18234]"); out_of_memory_error();} t29423->s0 = *((struct w49 *)(&t29422)); t29423->s1 = t29424; t29420 = f26254(t29423); /* x170619 */ t29421.tag = EXTERNAL_SYMBOL_TYPE; t29421.value.external_symbol_type = t29419; t29416 = f26175(t29421, t29420); /* x170632 */ /* x170618 */ t29417.tag = STRUCTURE_TYPE24753; t29417.value.structure_type24753 = t29416; t29418.tag = NULL_TYPE; t29405 = f26175(t29417, t29418); /* x170606 */ t29406.tag = STRUCTURE_TYPE24753; t29406.value.structure_type24753 = t29404; t29407.tag = STRUCTURE_TYPE24753; t29407.value.structure_type24753 = t29405; t29401 = f26175(t29406, t29407); /* x170604 */ t29402.tag = EXTERNAL_SYMBOL_TYPE; t29402.value.external_symbol_type = t29400; t29403.tag = STRUCTURE_TYPE24753; t29403.value.structure_type24753 = t29401; t29397 = f26175(t29402, t29403); /* x170602 */ t29398.tag = EXTERNAL_SYMBOL_TYPE; t29398.value.external_symbol_type = t29396; t29399.tag = STRUCTURE_TYPE24753; t29399.value.structure_type24753 = t29397; t29393 = f26175(t29398, t29399); /* x170637 */ /* x170601 */ t29394.tag = STRUCTURE_TYPE24753; t29394.value.structure_type24753 = t29393; t29395.tag = NULL_TYPE; t29378 = f26175(t29394, t29395); /* x170586 */ t29379.tag = STRUCTURE_TYPE24753; t29379.value.structure_type24753 = t29377; t29380.tag = STRUCTURE_TYPE24753; t29380.value.structure_type24753 = t29378; t29374 = f26175(t29379, t29380); /* x170584 */ t29375.tag = EXTERNAL_SYMBOL_TYPE; t29375.value.external_symbol_type = t29373; t29376.tag = STRUCTURE_TYPE24753; t29376.value.structure_type24753 = t29374; return f26175(t29375, t29376); l4162: /* x170690 */ /* x170689 */ /* x170688 stalin.sc:25018:864825 */ /* x170649 */ t29334 = q43; /* x170687 */ /* x170655 stalin.sc:25018:864831 */ /* x170654 stalin.sc:25018:864841 */ /* x170653 stalin.sc:25018:864852 */ t29343 = a32244; /* x170652 stalin.sc:25018:864842 */ t29341 = f9722(t29343); /* x170651 stalin.sc:25018:864832 */ a41612 = t29341; /* x300560 stalin.sc:6964:241199 */ /* x300559 stalin.sc:6964:241207 */ t29342 = a41612; /* x300558 stalin.sc:6964:241200 */ t29338 = f9719(t29342); /* x170686 */ /* x170669 */ /* x170658 */ t29348 = q239; /* x170668 */ /* x170667 */ /* x170666 stalin.sc:25019:864870 */ /* x170665 stalin.sc:25019:864881 */ /* x170664 stalin.sc:25019:864890 */ /* x170663 stalin.sc:25019:864901 */ t29357 = a32244; /* x170662 stalin.sc:25019:864891 */ t29355 = f9722(t29357); /* x170661 stalin.sc:25019:864882 */ a41460 = t29355; /* x299952 stalin.sc:7008:242336 */ /* x299951 stalin.sc:7008:242344 */ t29356 = a41460; /* x299950 stalin.sc:7008:242337 */ t29354 = f9720(t29356); /* x170660 stalin.sc:25019:864871 */ t29351 = f9772(t29354); /* x170659 */ t29353.tag = STRUCTURE_TYPE24753; t29353.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29353.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18235]"); out_of_memory_error();} t29353.value.structure_type24753->s0.tag = NULL_TYPE; t29353.value.structure_type24753->s1.tag = NULL_TYPE; t29352 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29352==NULL) {backtrace_internal("[inside top level 18235]"); out_of_memory_error();} t29352->s0 = *((struct w49 *)(&t29351)); t29352->s1 = t29353; t29349 = f26254(t29352); /* x170657 */ t29350.tag = EXTERNAL_SYMBOL_TYPE; t29350.value.external_symbol_type = t29348; t29344 = f26175(t29350, t29349); /* x170685 */ /* x170683 */ /* x170672 */ t29361 = q240; /* x170682 */ /* x170681 */ /* x170680 stalin.sc:25020:864920 */ /* x170679 stalin.sc:25020:864931 */ /* x170678 stalin.sc:25020:864940 */ /* x170677 stalin.sc:25020:864949 */ t29370 = a32244; /* x170676 stalin.sc:25020:864941 */ a41462 = t29370; /* x299960 stalin.sc:7008:242336 */ /* x299959 stalin.sc:7008:242344 */ t29371 = a41462; /* x299958 stalin.sc:7008:242337 */ t29368 = f9720(t29371); /* x170675 stalin.sc:25020:864932 */ a41461 = t29368; /* x299956 stalin.sc:7008:242336 */ /* x299955 stalin.sc:7008:242344 */ t29369 = a41461; /* x299954 stalin.sc:7008:242337 */ t29367 = f9720(t29369); /* x170674 stalin.sc:25020:864921 */ t29364 = f9772(t29367); /* x170673 */ t29366.tag = STRUCTURE_TYPE24753; t29366.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29366.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18235]"); out_of_memory_error();} t29366.value.structure_type24753->s0.tag = NULL_TYPE; t29366.value.structure_type24753->s1.tag = NULL_TYPE; t29365 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29365==NULL) {backtrace_internal("[inside top level 18235]"); out_of_memory_error();} t29365->s0 = *((struct w49 *)(&t29364)); t29365->s1 = t29366; t29362 = f26254(t29365); /* x170671 */ t29363.tag = EXTERNAL_SYMBOL_TYPE; t29363.value.external_symbol_type = t29361; t29358 = f26175(t29363, t29362); /* x170684 */ /* x170670 */ t29359.tag = STRUCTURE_TYPE24753; t29359.value.structure_type24753 = t29358; t29360.tag = NULL_TYPE; t29345 = f26175(t29359, t29360); /* x170656 */ t29346.tag = STRUCTURE_TYPE24753; t29346.value.structure_type24753 = t29344; t29347.tag = STRUCTURE_TYPE24753; t29347.value.structure_type24753 = t29345; t29339 = f26175(t29346, t29347); /* x170650 */ t29340.tag = STRUCTURE_TYPE24753; t29340.value.structure_type24753 = t29339; t29335 = f26175(t29338, t29340); /* x170648 */ t29336.tag = EXTERNAL_SYMBOL_TYPE; t29336.value.external_symbol_type = t29334; t29337.tag = STRUCTURE_TYPE24753; t29337.value.structure_type24753 = t29335; return f26175(t29336, t29337);} /* [inside MACROEXPAND-BODY 18227] */ char *f18227(void) {char *t29491; /* x170444 stalin.sc:24979:863613 */ /* x170443 stalin.sc:24979:863621 */ t29491 = "hunoz"; /* x170442 stalin.sc:24979:863614 */ return f5362(t29491);} /* [inside MACROEXPAND-BODY 18224] */ struct w49 f18224(struct w49 a32240) {struct w49 r18224; struct w49 a41300; /* S */ struct w49 a41301; /* S */ struct w49 a41302; /* S */ struct w49 a41479; /* S */ struct w49 a41480; /* S */ struct w49 t29492; struct w49 t29493; char *t29494; struct w49 t29495; struct w49 t29496; struct w49 t29497; struct w49 t29498; struct w49 t29499; char *t29500; struct structure_type24753 *t29501; struct w49 t29502; struct w49 t29503; struct structure_type24753 *t29504; struct w49 t29505; struct structure_type24753 *t29506; struct w49 t29507; struct w49 t29508; struct w49 t29509; struct w49 t29510; struct structure_type24753 *t29511; struct w49 t29512; struct w49 t29513; char *t29514; struct structure_type24753 *t29515; struct w49 t29516; struct w49 t29517; struct w49 t29518; struct w49 t29519; struct w49 t29520; struct w49 t29521; struct w49 t29522; struct w12224 t29523; struct structure_type24753 *t29524; struct w49 t29525; struct w49 t29526; struct w49 t29527; struct w49 t29528; struct w49 t29529; struct w49 t29530; char *t29531; struct structure_type24753 *t29532; struct w49 t29533; struct w49 t29534; struct structure_type24753 *t29535; struct w49 t29536; struct structure_type24753 *t29537; struct w49 t29538; struct w49 t29539; struct w49 t29540; struct w49 t29541; struct w49 t29542; /* x170384 stalin.sc:24944:862456 */ /* x170329 stalin.sc:24944:862460 */ /* x170321 stalin.sc:24944:862465 */ /* x170320 stalin.sc:24944:862475 */ t29492 = a32240; /* x170319 stalin.sc:24944:862466 */ if (f9740(t29492)==FALSE_TYPE) goto l4171; /* x170327 */ /* x170325 stalin.sc:24944:862486 */ /* x170324 stalin.sc:24944:862496 */ t29496 = a32240; /* x170323 stalin.sc:24944:862487 */ a41480 = t29496; /* x300032 stalin.sc:6964:241199 */ /* x300031 stalin.sc:6964:241207 */ t29497 = a41480; /* x300030 stalin.sc:6964:241200 */ t29493 = f9719(t29497); /* x170326 stalin.sc:24944:862499 */ t29494 = q97; /* x170322 stalin.sc:24944:862479 */ t29495.tag = EXTERNAL_SYMBOL_TYPE; t29495.value.external_symbol_type = t29494; if (f9745(t29493, t29495)==FALSE_TYPE) goto l4171; /* x170382 stalin.sc:24945:862517 */ /* x170334 stalin.sc:24945:862521 */ /* x170333 stalin.sc:24945:862533 */ /* x170332 stalin.sc:24945:862544 */ t29499 = a32240; /* x170331 stalin.sc:24945:862534 */ t29498 = f9722(t29499); /* x170330 stalin.sc:24945:862522 */ if (f9741(t29498)==FALSE_TYPE) goto l4174; /* x170348 stalin.sc:24946:862553 */ /* x170336 */ t29531 = q42; /* x170347 */ /* x170340 stalin.sc:24946:862561 */ /* x170339 stalin.sc:24946:862572 */ t29539 = a32240; /* x170338 stalin.sc:24946:862562 */ t29536 = f9722(t29539); /* x170346 */ /* x170344 stalin.sc:24946:862576 */ /* x170343 stalin.sc:24946:862586 */ t29542 = a32240; /* x170342 stalin.sc:24946:862577 */ t29540 = f9723(t29542); /* x170345 */ /* x170341 */ t29541.tag = NULL_TYPE; t29537 = f26175(t29540, t29541); /* x170337 */ t29538.tag = STRUCTURE_TYPE24753; t29538.value.structure_type24753 = t29537; t29532 = f26175(t29536, t29538); /* x170335 */ t29533.tag = EXTERNAL_SYMBOL_TYPE; t29533.value.external_symbol_type = t29531; t29534.tag = STRUCTURE_TYPE24753; t29534.value.structure_type24753 = t29532; t29535 = f26175(t29533, t29534); r18224.tag = STRUCTURE_TYPE24753; r18224.value.structure_type24753 = t29535; return r18224; l4174: /* x170381 stalin.sc:24947:862595 */ /* x170350 */ t29500 = q42; /* x170380 */ /* x170356 stalin.sc:24947:862603 */ /* x170355 stalin.sc:24947:862613 */ /* x170354 stalin.sc:24947:862624 */ t29510 = a32240; /* x170353 stalin.sc:24947:862614 */ t29508 = f9722(t29510); /* x170352 stalin.sc:24947:862604 */ a41479 = t29508; /* x300028 stalin.sc:6964:241199 */ /* x300027 stalin.sc:6964:241207 */ t29509 = a41479; /* x300026 stalin.sc:6964:241200 */ t29505 = f9719(t29509); /* x170379 */ /* x170377 */ /* x170359 */ t29514 = q39; /* x170376 */ /* x170365 stalin.sc:24948:862642 */ /* x170364 stalin.sc:24948:862651 */ /* x170363 stalin.sc:24948:862662 */ t29522 = a32240; /* x170362 stalin.sc:24948:862652 */ t29520 = f9722(t29522); /* x170361 stalin.sc:24948:862643 */ a41300 = t29520; /* x299312 stalin.sc:7008:242336 */ /* x299311 stalin.sc:7008:242344 */ t29521 = a41300; /* x299310 stalin.sc:7008:242337 */ t29518 = f9720(t29521); /* x170375 */ /* x170374 */ /* x170373 stalin.sc:24949:862674 */ /* x170372 stalin.sc:24949:862685 */ /* x170371 stalin.sc:24949:862694 */ /* x170370 stalin.sc:24949:862703 */ t29529 = a32240; /* x170369 stalin.sc:24949:862695 */ a41302 = t29529; /* x299320 stalin.sc:7008:242336 */ /* x299319 stalin.sc:7008:242344 */ t29530 = a41302; /* x299318 stalin.sc:7008:242337 */ t29527 = f9720(t29530); /* x170368 stalin.sc:24949:862686 */ a41301 = t29527; /* x299316 stalin.sc:7008:242336 */ /* x299315 stalin.sc:7008:242344 */ t29528 = a41301; /* x299314 stalin.sc:7008:242337 */ t29526 = f9720(t29528); /* x170367 stalin.sc:24949:862675 */ t29523 = f9772(t29526); /* x170366 */ t29525.tag = STRUCTURE_TYPE24753; t29525.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29525.value.structure_type24753)==NULL) {backtrace_internal("[inside MACROEXPAND-BODY 18224]"); out_of_memory_error();} t29525.value.structure_type24753->s0.tag = NULL_TYPE; t29525.value.structure_type24753->s1.tag = NULL_TYPE; t29524 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29524==NULL) {backtrace_internal("[inside MACROEXPAND-BODY 18224]"); out_of_memory_error();} t29524->s0 = *((struct w49 *)(&t29523)); t29524->s1 = t29525; t29519 = f26254(t29524); /* x170360 */ t29515 = f26175(t29518, t29519); /* x170358 */ t29516.tag = EXTERNAL_SYMBOL_TYPE; t29516.value.external_symbol_type = t29514; t29517.tag = STRUCTURE_TYPE24753; t29517.value.structure_type24753 = t29515; t29511 = f26175(t29516, t29517); /* x170378 */ /* x170357 */ t29512.tag = STRUCTURE_TYPE24753; t29512.value.structure_type24753 = t29511; t29513.tag = NULL_TYPE; t29506 = f26175(t29512, t29513); /* x170351 */ t29507.tag = STRUCTURE_TYPE24753; t29507.value.structure_type24753 = t29506; t29501 = f26175(t29505, t29507); /* x170349 */ t29502.tag = EXTERNAL_SYMBOL_TYPE; t29502.value.external_symbol_type = t29500; t29503.tag = STRUCTURE_TYPE24753; t29503.value.structure_type24753 = t29501; t29504 = f26175(t29502, t29503); r18224.tag = STRUCTURE_TYPE24753; r18224.value.structure_type24753 = t29504; return r18224; l4171: /* x170383 stalin.sc:24950:862719 */ return a32240;} /* [inside MACROEXPAND-BODY 18223] */ struct structure_type24753 *f18223(void) {/* x170302 stalin.sc:24972:863354 */ return &t29543;} /* [inside MACROEXPAND-BODY 18222] */ char *f18222(void) {char *t29546; /* x170269 stalin.sc:24969:863257 */ /* x170268 stalin.sc:24969:863265 */ t29546 = "hunoz"; /* x170267 stalin.sc:24969:863258 */ return f5362(t29546);} /* [inside MACROEXPAND-BODY 18220] */ struct structure_type24753 *f18220(void) {/* x170234 stalin.sc:24962:863037 */ return &t29547;} /* MACROEXPAND-BODY[18211] */ struct w49 f18211(struct w49 a32231) {struct w49 a18912; /* S */ struct w49 a18913; /* S */ struct w49 a18914; /* X */ struct w49 a32221; /* SS */ struct w49 a32224; /* SS */ struct structure_type24753 *a32225; /* SS1 */ struct w49 a32233; /* SS */ struct structure_type24753 *a32235; /* SS */ struct structure_type24753 *a32236; /* SS1 */ struct structure_type24753 *a35599; /* PAIR */ struct w16638 a35600; /* PAIR */ struct w16638 a35601; /* PAIR */ struct w16638 a35602; /* PAIR */ struct w49 a35605; /* PAIR */ struct w16638 a36182; /* PAIR */ struct w16638 a36183; /* PAIR */ struct w16638 a36184; /* PAIR */ struct w16638 a36185; /* PAIR */ struct w16638 a36186; /* PAIR */ struct w16638 a36187; /* PAIR */ struct w16638 a36188; /* PAIR */ struct w16638 a36189; /* PAIR */ struct w16638 a36190; /* PAIR */ struct w16638 a36191; /* PAIR */ struct w16638 a36192; /* PAIR */ struct w16638 a36193; /* PAIR */ struct w49 a40465; /* S */ struct w49 a41077; /* S */ struct w49 a41078; /* S */ struct w49 a41304; /* S */ struct w49 a41305; /* S */ struct w49 a41476; /* S */ struct w49 a41477; /* S */ struct w49 a41478; /* S */ struct w49 a41482; /* S */ struct w49 a41483; /* S */ struct w49 a41484; /* S */ struct w49 a41485; /* S */ struct w49 a42415; /* S */ struct w49 a42416; /* S */ struct w49 t29550; struct w49 t29551; struct w49 t29552; struct w49 t29553; struct w49 t29554; struct w49 t29555; struct w49 t29556; struct w49 t29557; struct w49 t29558; struct w49 t29559; struct w49 t29560; struct w228345 t29561; struct w49 t29562; struct structure_type24753 *t29563; struct w49 t29564; struct w49 t29565; struct w49 t29566; struct w49 t29567; struct w49 t29568; struct structure_type24753 *t29569; struct w49 t29570; struct structure_type24753 *t29571; struct w49 t29572; struct w49 t29573; struct w49 t29574; struct structure_type24753 *t29575; struct w49 t29576; struct w49 t29577; struct structure_type24753 *t29578; struct w49 t29579; struct w49 t29580; struct structure_type24753 *t29581; struct w49 t29582; struct w49 t29583; char *t29584; struct structure_type24753 *t29585; struct w49 t29586; struct w49 t29587; struct structure_type24753 *t29588; struct structure_type24753 *t29589; struct w49 t29590; struct w49 t29591; struct w12224 t29592; struct w36270 t29593; struct w49 t29594; struct structure_type24753 *t29595; struct w49 t29596; struct w49 t29597; struct w49 t29598; struct w49 t29599; struct w12224 t29600; struct structure_type24753 *t29601; struct w49 t29602; struct w49 t29603; struct structure_type24753 *t29604; struct structure_type24753 *t29605; struct structure_type24753 *t29606; struct w49 t29607; struct structure_type24753 *t29608; struct structure_type24753 *t29609; struct w49 t29610; struct structure_type24753 *t29611; struct w49 t29612; struct structure_type24753 *t29613; struct w49 t29614; struct w49 t29615; struct w49 t29616; struct structure_type24753 *t29617; struct w49 t29618; struct w49 t29619; struct structure_type24753 *t29620; struct w49 t29621; struct w49 t29622; struct structure_type24753 *t29623; struct w49 t29624; struct w49 t29625; char *t29626; struct structure_type24753 *t29627; struct w49 t29628; struct w49 t29629; struct structure_type24753 *t29630; struct structure_type24753 *t29631; struct w49 t29632; struct w49 t29633; struct structure_type24753 *t29634; struct w49 t29635; struct w49 t29636; struct structure_type24753 *t29637; struct w49 t29638; struct w49 t29639; char *t29640; struct structure_type24753 *t29641; struct w49 t29642; struct w49 t29643; struct structure_type24753 *t29644; struct structure_type24753 *t29645; struct w49 t29646; struct w49 t29647; struct w12224 t29648; struct w36270 t29649; struct w49 t29650; struct structure_type24753 *t29651; struct structure_type24753 *t29652; struct w49 t29653; struct w49 t29654; struct w49 t29655; struct structure_type24753 *t29656; struct w49 t29657; struct w12224 t29658; struct structure_type24753 *t29659; struct w49 t29660; struct structure_type24753 *t29661; struct w49 t29662; struct structure_type24753 *t29663; struct structure_type24753 *t29664; struct w49 t29665; struct structure_type24753 *t29666; struct w36270 t29667; struct w49 t29668; struct structure_type24753 *t29669; struct w49 t29670; struct structure_type24753 *t29671; struct w49 t29672; struct structure_type24753 *t29673; struct w49 t29674; struct w49 t29675; struct w49 t29676; struct structure_type24753 *t29677; struct w49 t29678; struct w49 t29679; struct structure_type24753 *t29680; struct w49 t29681; struct w49 t29682; struct structure_type24753 *t29683; struct w49 t29684; struct w49 t29685; char *t29686; struct structure_type24753 *t29687; struct w49 t29688; struct w49 t29689; struct structure_type24753 *t29690; struct structure_type24753 *t29691; struct w49 t29692; struct w49 t29693; struct w49 t29694; struct w49 t29695; struct structure_type24753 *t29696; struct w49 t29697; struct structure_type24753 *t29698; struct structure_type24753 *t29699; struct w49 t29700; struct structure_type24753 *t29701; struct w36270 t29702; struct w49 t29703; struct structure_type24753 *t29704; struct w49 t29705; struct structure_type24753 *t29706; struct w49 t29707; struct structure_type24753 *t29708; struct w49 t29709; struct w49 t29710; struct w49 t29711; struct w49 t29712; struct w49 t29713; struct w12224 t29714; struct w36270 t29715; struct w49 t29716; struct structure_type24753 *t29717; struct w49 t29718; unsigned t29719; struct w49 t29720; struct w49 t29721; struct w49 t29722; struct w49 t29723; struct w16638 t29724; struct w16638 t29725; struct w49 t29726; char *t29727; struct w49 t29728; struct w49 t29729; struct w49 t29730; struct w16638 t29731; struct w16638 t29732; struct w49 t29733; struct structure_type24753 *t29734; struct w16638 t29735; struct w16638 t29736; int t29737; int t29738; struct w49 t29739; struct w16638 t29740; struct w16638 t29741; int t29742; int t29743; struct w49 t29744; struct w16638 t29745; struct w16638 t29746; struct w49 t29747; struct w49 t29748; struct w16638 t29749; struct w16638 t29750; int t29751; int t29752; struct w49 t29753; struct w16638 t29754; struct w16638 t29755; struct w49 t29756; struct w49 t29757; struct w16638 t29758; struct w16638 t29759; struct w49 t29760; char *t29761; struct w16638 t29762; struct w16638 t29763; struct w49 t29764; struct structure_type24753 *t29765; struct w16638 t29766; struct w16638 t29767; struct w49 t29768; struct structure_type24753 *t29769; struct w49 t29770; struct w49 t29771; struct w49 t29772; struct w49 t29773; struct w49 t29774; struct w49 t29775; struct w49 t29776; struct w16638 t29777; struct w16638 t29778; struct structure_type24753 *t29779; struct w36270 t29780; struct w49 t29781; struct structure_type24753 *t29782; struct w49 t29783; struct structure_type24753 *t29784; struct w49 t29785; struct w49 t29786; struct w49 t29787; struct w16638 t29788; struct w16638 t29789; struct w49 t29790; struct structure_type24753 *t29791; struct w16638 t29792; struct w16638 t29793; struct w49 t29794; struct structure_type24753 *t29795; struct w49 t29796; struct w49 t29797; struct w49 t29798; struct w49 t29799; struct w49 t29800; struct w16638 t29801; struct w16638 t29802; struct structure_type24753 *t29803; struct w36270 t29804; struct w49 t29805; struct structure_type24753 *t29806; struct w49 t29807; struct structure_type24753 *t29808; struct w49 t29809; struct w16638 t29810; struct w16638 t29811; struct w49 t29812; struct w49 t29813; struct w49 t29814; struct w49 t29815; struct w49 t29816; /* x170485 */ /* x170484 stalin.sc:24932:861985 */ /* x170157 stalin.sc:24932:861993 */ /* x170156 stalin.sc:24932:862024 */ t29552 = a32231; /* x170155 stalin.sc:24932:861994 */ a40465 = t29552; /* x294529 */ /* x294528 */ t29553 = a40465; /* x294527 */ if (!((t29553.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-MACROEXPAND-BODY[5451] 35382]"); structure_ref_error();} if ((t29553.value.structure_type27510->s8.tag)==FALSE_TYPE) goto l4176; /* x170159 */ /* x170158 */ goto l4177; l4176: /* x170483 */ /* x170482 */ /* x170481 stalin.sc:24933:862029 */ /* x170161 stalin.sc:24934:862068 */ t29554 = a32231; /* x170480 stalin.sc:24935:862073 */ /* x170479 stalin.sc:24935:862083 */ /* x170478 stalin.sc:24935:862094 */ /* x170477 stalin.sc:24935:862103 */ /* x170476 stalin.sc:24935:862112 */ t29815 = a32231; /* x170475 stalin.sc:24935:862104 */ a41305 = t29815; /* x299332 stalin.sc:7008:242336 */ /* x299331 stalin.sc:7008:242344 */ t29816 = a41305; /* x299330 stalin.sc:7008:242337 */ t29813 = f9720(t29816); /* x170474 stalin.sc:24935:862095 */ a41304 = t29813; /* x299328 stalin.sc:7008:242336 */ /* x299327 stalin.sc:7008:242344 */ t29814 = a41304; /* x299326 stalin.sc:7008:242337 */ t29812 = f9720(t29814); /* x170473 stalin.sc:24935:862084 */ t29558 = f18210(t29812); /* x170472 */ a32233 = t29558; /* x170471 stalin.sc:24938:862269 */ /* x170470 stalin.sc:24939:862287 */ /* x170182 stalin.sc:24939:862291 */ /* x170181 stalin.sc:24941:862382 */ t29560 = a32233; /* x170180 stalin.sc:24939:862297 */ /* x170163 stalin.sc:24939:862292 */ t29561.tag = NATIVE_PROCEDURE_TYPE14764; t29562 = t29560; t29563 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t29561, t29562, t29563).tag)==FALSE_TYPE) goto l4179; /* x170413 stalin.sc:24942:862388 */ /* x170409 stalin.sc:24943:862435 */ /* x170408 stalin.sc:24951:862726 */ /* x170406 stalin.sc:24951:862737 */ /* x170407 stalin.sc:24955:862846 */ t29718 = a32233; /* x170386 stalin.sc:24951:862727 */ t29719 = NATIVE_PROCEDURE_TYPE14778; t29714 = f1218(t29719, t29718); /* x170385 stalin.sc:24943:862440 */ /* x170318 stalin.sc:24943:862436 */ t29715.tag = NATIVE_PROCEDURE_TYPE14779; t29716 = *((struct w49 *)(&t29714)); t29717 = (struct structure_type24753 *)NULL_TYPE; t29604 = f27731(t29715, t29716, t29717); /* x170412 stalin.sc:24942:862399 */ /* x170411 stalin.sc:24942:862418 */ t29720 = a32233; /* x170410 stalin.sc:24942:862400 */ a32221 = t29720; /* x170049 stalin.sc:24891:860492 */ /* x170047 stalin.sc:24891:860507 */ t29721 = a32221; /* x170048 stalin.sc:24891:860516 */ /* x170046 */ /* x170045 */ /* x170044 */ /* x170043 */ /* x170042 */ /* x170041 */ /* x170040 */ /* x169885 */ /* x169884 stalin.sc:24891:860497 */ a32224 = t29721; a32225 = (struct structure_type24753 *)NULL_TYPE; h18195: /* x170039 stalin.sc:24892:860524 */ /* x169888 stalin.sc:24893:860534 */ /* x169887 stalin.sc:24893:860541 */ t29722 = a32224; /* x268002 stalin.sc:24893:860535 */ if (!((t29722.tag)==NULL_TYPE)) goto l4192; /* x169891 */ /* x169890 */ /* x169889 stalin.sc:24893:860545 */ t29605 = a32225; goto l4193; l4192: /* x170038 */ /* x169906 stalin.sc:24894:860554 */ /* x169896 stalin.sc:24894:860559 */ /* x169895 stalin.sc:24894:860569 */ /* x169894 stalin.sc:24894:860576 */ t29724 = *((struct w16638 *)(&a32224)); /* x169893 stalin.sc:24894:860570 */ a36193 = t29724; /* x276129 */ /* x276128 */ t29725 = a36193; /* x276127 */ if (!((t29725.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30342]"); structure_ref_error();} t29723 = t29725.value.structure_type24753->s0; /* x169892 stalin.sc:24894:860560 */ if (f9740(t29723)==FALSE_TYPE) goto l4195; /* x169904 */ /* x169902 stalin.sc:24894:860589 */ /* x169901 stalin.sc:24894:860599 */ /* x169900 stalin.sc:24894:860606 */ t29731 = *((struct w16638 *)(&a32224)); /* x169899 stalin.sc:24894:860600 */ a36192 = t29731; /* x276125 */ /* x276124 */ t29732 = a36192; /* x276123 */ if (!((t29732.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30341]"); structure_ref_error();} t29729 = t29732.value.structure_type24753->s0; /* x169898 stalin.sc:24894:860590 */ a41484 = t29729; /* x300048 stalin.sc:6964:241199 */ /* x300047 stalin.sc:6964:241207 */ t29730 = a41484; /* x300046 stalin.sc:6964:241200 */ t29726 = f9719(t29730); /* x169903 stalin.sc:24894:860611 */ t29727 = q97; /* x169897 stalin.sc:24894:860582 */ t29728.tag = EXTERNAL_SYMBOL_TYPE; t29728.value.external_symbol_type = t29727; if (f9745(t29726, t29728)==FALSE_TYPE) goto l4195; /* x170029 */ /* x170028 */ /* x170027 stalin.sc:24896:860670 */ /* x169936 stalin.sc:24897:860682 */ /* x169927 stalin.sc:24897:860687 */ /* x169926 stalin.sc:24897:860691 */ /* x169924 stalin.sc:24897:860694 */ /* x169923 stalin.sc:24897:860705 */ /* x169922 stalin.sc:24897:860712 */ t29740 = *((struct w16638 *)(&a32224)); /* x169921 stalin.sc:24897:860706 */ a36191 = t29740; /* x276121 */ /* x276120 */ t29741 = a36191; /* x276119 */ if (!((t29741.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30340]"); structure_ref_error();} t29739 = t29741.value.structure_type24753->s0; /* x169920 stalin.sc:24897:860695 */ t29737 = f9734(t29739); /* x169925 stalin.sc:24897:860717 */ t29738 = 2; /* x268000 stalin.sc:24897:860692 */ if (t29737==t29738) goto l4201; /* x169916 */ /* x169914 stalin.sc:24897:860723 */ /* x169913 stalin.sc:24897:860734 */ /* x169912 stalin.sc:24897:860741 */ t29745 = *((struct w16638 *)(&a32224)); /* x169911 stalin.sc:24897:860735 */ a36190 = t29745; /* x276117 */ /* x276116 */ t29746 = a36190; /* x276115 */ if (!((t29746.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30339]"); structure_ref_error();} t29744 = t29746.value.structure_type24753->s0; /* x169910 stalin.sc:24897:860724 */ t29742 = f9734(t29744); /* x169915 stalin.sc:24897:860746 */ t29743 = 3; /* x268001 stalin.sc:24897:860721 */ if (!(t29742==t29743)) goto l4199; l4201: /* x169934 */ /* x169933 stalin.sc:24898:860766 */ /* x169932 stalin.sc:24898:860777 */ /* x169931 stalin.sc:24898:860784 */ t29749 = *((struct w16638 *)(&a32224)); /* x169930 stalin.sc:24898:860778 */ a36184 = t29749; /* x276093 */ /* x276092 */ t29750 = a36184; /* x276091 */ if (!((t29750.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30333]"); structure_ref_error();} t29748 = t29750.value.structure_type24753->s0; /* x169929 stalin.sc:24898:860767 */ t29747 = f9722(t29748); /* x169928 stalin.sc:24898:860755 */ if (f9741(t29747)==FALSE_TYPE) goto l4199; /* x169966 */ /* x169965 */ /* x169964 stalin.sc:24899:860797 */ /* x169940 stalin.sc:24899:860803 */ /* x169939 stalin.sc:24899:860809 */ t29792 = *((struct w16638 *)(&a32224)); /* x169938 stalin.sc:24899:860804 */ a35600 = t29792; /* x273757 */ /* x273756 */ t29793 = a35600; /* x273755 */ if (!((t29793.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29749]"); structure_ref_error();} t29790 = t29793.value.structure_type24753->s1; /* x169963 stalin.sc:24900:860818 */ /* x169953 stalin.sc:24900:860822 */ /* x169948 stalin.sc:24900:860828 */ /* x169947 stalin.sc:24900:860838 */ /* x169946 stalin.sc:24900:860849 */ /* x169945 stalin.sc:24900:860856 */ t29801 = *((struct w16638 *)(&a32224)); /* x169944 stalin.sc:24900:860850 */ a36183 = t29801; /* x276089 */ /* x276088 */ t29802 = a36183; /* x276087 */ if (!((t29802.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30332]"); structure_ref_error();} t29800 = t29802.value.structure_type24753->s0; /* x169943 stalin.sc:24900:860839 */ t29797 = f9722(t29800); /* x169942 stalin.sc:24900:860829 */ a41077 = t29797; /* x298420 stalin.sc:6937:240340 */ /* x298419 stalin.sc:6937:240360 */ t29798 = a41077; /* x298418 stalin.sc:6937:240341 */ a42416 = t29798; /* x303162 */ /* x303161 */ t29799 = a42416; /* x303160 */ if (!((t29799.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37592]"); structure_ref_error();} t29794 = t29799.value.structure_type27510->s9; /* x169952 stalin.sc:24900:860862 */ /* x169951 stalin.sc:24900:860876 */ t29803 = a32225; /* x169950 stalin.sc:24900:860867 */ /* x169949 stalin.sc:24900:860863 */ t29804.tag = NATIVE_PROCEDURE_TYPE7189; /* MOVE: branching squeezed to general */ if (t29803>=((struct structure_type24753 *)VALUE_OFFSET)) {t29805.tag = STRUCTURE_TYPE24753; t29805.value.structure_type24753 = t29803;} else t29805.tag = (unsigned)t29803; t29806 = (struct structure_type24753 *)NULL_TYPE; t29795 = f27731(t29804, t29805, t29806); /* x169941 stalin.sc:24900:860823 */ /* MOVE: branching squeezed to general */ if (t29795>=((struct structure_type24753 *)VALUE_OFFSET)) {t29796.tag = STRUCTURE_TYPE24753; t29796.value.structure_type24753 = t29795;} else t29796.tag = (unsigned)t29795; if ((f26351(t29794, t29796).tag)==FALSE_TYPE) goto l4211; /* x169954 stalin.sc:24901:860884 */ t29791 = a32225; goto l4212; l4211: /* x169962 stalin.sc:24902:860890 */ /* x169960 stalin.sc:24902:860896 */ /* x169959 stalin.sc:24902:860907 */ /* x169958 stalin.sc:24902:860914 */ t29810 = *((struct w16638 *)(&a32224)); /* x169957 stalin.sc:24902:860908 */ a36182 = t29810; /* x276085 */ /* x276084 */ t29811 = a36182; /* x276083 */ if (!((t29811.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30331]"); structure_ref_error();} t29809 = t29811.value.structure_type24753->s0; /* x169956 stalin.sc:24902:860897 */ t29807 = f9722(t29809); /* x169961 stalin.sc:24902:860919 */ t29808 = a32225; /* x267999 stalin.sc:24902:860891 */ t29791 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29791==NULL) {backtrace("stalin.sc", 24902, 860890); out_of_memory_error();} t29791->s0 = t29807; /* MOVE: branching squeezed to general */ if (t29808>=((struct structure_type24753 *)VALUE_OFFSET)) {t29791->s1.tag = STRUCTURE_TYPE24753; t29791->s1.value.structure_type24753 = t29808;} else t29791->s1.tag = (unsigned)t29808; l4212: /* x169937 stalin.sc:24899:860798 */ a32224 = t29790; a32225 = t29791; goto h18195; goto l4200; l4199: /* x170026 */ /* x169983 stalin.sc:24903:860933 */ /* x169974 stalin.sc:24903:860938 */ /* x169972 stalin.sc:24903:860942 */ /* x169971 stalin.sc:24903:860953 */ /* x169970 stalin.sc:24903:860960 */ t29754 = *((struct w16638 *)(&a32224)); /* x169969 stalin.sc:24903:860954 */ a36189 = t29754; /* x276113 */ /* x276112 */ t29755 = a36189; /* x276111 */ if (!((t29755.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30338]"); structure_ref_error();} t29753 = t29755.value.structure_type24753->s0; /* x169968 stalin.sc:24903:860943 */ t29751 = f9734(t29753); /* x169973 stalin.sc:24903:860965 */ t29752 = 2; /* x267998 stalin.sc:24903:860939 */ if (!(t29751>=t29752)) goto l4204; /* x169981 */ /* x169980 stalin.sc:24903:860978 */ /* x169979 stalin.sc:24903:860989 */ /* x169978 stalin.sc:24903:860996 */ t29758 = *((struct w16638 *)(&a32224)); /* x169977 stalin.sc:24903:860990 */ a36187 = t29758; /* x276105 */ /* x276104 */ t29759 = a36187; /* x276103 */ if (!((t29759.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30336]"); structure_ref_error();} t29757 = t29759.value.structure_type24753->s0; /* x169976 stalin.sc:24903:860979 */ t29756 = f9722(t29757); /* x169975 stalin.sc:24903:860969 */ if (f9740(t29756)==FALSE_TYPE) goto l4204; /* x170017 */ /* x170016 */ /* x170015 stalin.sc:24904:861009 */ /* x169987 stalin.sc:24904:861015 */ /* x169986 stalin.sc:24904:861021 */ t29766 = *((struct w16638 *)(&a32224)); /* x169985 stalin.sc:24904:861016 */ a35601 = t29766; /* x273761 */ /* x273760 */ t29767 = a35601; /* x273759 */ if (!((t29767.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29750]"); structure_ref_error();} t29764 = t29767.value.structure_type24753->s1; /* x170014 stalin.sc:24905:861030 */ /* x170002 stalin.sc:24905:861034 */ /* x169997 stalin.sc:24905:861040 */ /* x169996 stalin.sc:24905:861050 */ /* x169995 stalin.sc:24905:861060 */ /* x169994 stalin.sc:24905:861071 */ /* x169993 stalin.sc:24905:861078 */ t29777 = *((struct w16638 *)(&a32224)); /* x169992 stalin.sc:24905:861072 */ a36186 = t29777; /* x276101 */ /* x276100 */ t29778 = a36186; /* x276099 */ if (!((t29778.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30335]"); structure_ref_error();} t29776 = t29778.value.structure_type24753->s0; /* x169991 stalin.sc:24905:861061 */ t29774 = f9722(t29776); /* x169990 stalin.sc:24905:861051 */ a41483 = t29774; /* x300044 stalin.sc:6964:241199 */ /* x300043 stalin.sc:6964:241207 */ t29775 = a41483; /* x300042 stalin.sc:6964:241200 */ t29771 = f9719(t29775); /* x169989 stalin.sc:24905:861041 */ a41078 = t29771; /* x298424 stalin.sc:6937:240340 */ /* x298423 stalin.sc:6937:240360 */ t29772 = a41078; /* x298422 stalin.sc:6937:240341 */ a42415 = t29772; /* x303158 */ /* x303157 */ t29773 = a42415; /* x303156 */ if (!((t29773.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37591]"); structure_ref_error();} t29768 = t29773.value.structure_type27510->s9; /* x170001 stalin.sc:24906:861093 */ /* x170000 stalin.sc:24906:861107 */ t29779 = a32225; /* x169999 stalin.sc:24906:861098 */ /* x169998 stalin.sc:24906:861094 */ t29780.tag = NATIVE_PROCEDURE_TYPE7189; /* MOVE: branching squeezed to general */ if (t29779>=((struct structure_type24753 *)VALUE_OFFSET)) {t29781.tag = STRUCTURE_TYPE24753; t29781.value.structure_type24753 = t29779;} else t29781.tag = (unsigned)t29779; t29782 = (struct structure_type24753 *)NULL_TYPE; t29769 = f27731(t29780, t29781, t29782); /* x169988 stalin.sc:24905:861035 */ /* MOVE: branching squeezed to general */ if (t29769>=((struct structure_type24753 *)VALUE_OFFSET)) {t29770.tag = STRUCTURE_TYPE24753; t29770.value.structure_type24753 = t29769;} else t29770.tag = (unsigned)t29769; if ((f26351(t29768, t29770).tag)==FALSE_TYPE) goto l4208; /* x170003 stalin.sc:24907:861115 */ t29765 = a32225; goto l4209; l4208: /* x170013 stalin.sc:24908:861121 */ /* x170011 stalin.sc:24908:861127 */ /* x170010 stalin.sc:24908:861137 */ /* x170009 stalin.sc:24908:861148 */ /* x170008 stalin.sc:24908:861155 */ t29788 = *((struct w16638 *)(&a32224)); /* x170007 stalin.sc:24908:861149 */ a36185 = t29788; /* x276097 */ /* x276096 */ t29789 = a36185; /* x276095 */ if (!((t29789.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30334]"); structure_ref_error();} t29787 = t29789.value.structure_type24753->s0; /* x170006 stalin.sc:24908:861138 */ t29785 = f9722(t29787); /* x170005 stalin.sc:24908:861128 */ a41482 = t29785; /* x300040 stalin.sc:6964:241199 */ /* x300039 stalin.sc:6964:241207 */ t29786 = a41482; /* x300038 stalin.sc:6964:241200 */ t29783 = f9719(t29786); /* x170012 stalin.sc:24908:861161 */ t29784 = a32225; /* x267997 stalin.sc:24908:861122 */ t29765 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29765==NULL) {backtrace("stalin.sc", 24908, 861121); out_of_memory_error();} t29765->s0 = t29783; /* MOVE: branching squeezed to general */ if (t29784>=((struct structure_type24753 *)VALUE_OFFSET)) {t29765->s1.tag = STRUCTURE_TYPE24753; t29765->s1.value.structure_type24753 = t29784;} else t29765->s1.tag = (unsigned)t29784; l4209: /* x169984 stalin.sc:24904:861010 */ a32224 = t29764; a32225 = t29765; goto h18195; goto l4205; l4204: /* x170025 */ /* x170024 */ /* x170023 stalin.sc:24909:861180 */ /* x170021 stalin.sc:24909:861194 */ /* x170020 stalin.sc:24909:861201 */ t29762 = *((struct w16638 *)(&a32224)); /* x170019 stalin.sc:24909:861195 */ a36188 = t29762; /* x276109 */ /* x276108 */ t29763 = a36188; /* x276107 */ if (!((t29763.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30337]"); structure_ref_error();} t29760 = t29763.value.structure_type24753->s0; /* x170022 stalin.sc:24909:861205 */ t29761 = "Improper DEFINE"; /* x170018 stalin.sc:24909:861181 */ f9705(t29760, t29761); l4205: l4200: goto l4196; l4195: /* x170037 */ /* x170036 */ /* x170035 stalin.sc:24910:861236 */ /* x170033 stalin.sc:24910:861242 */ /* x170032 stalin.sc:24910:861248 */ t29735 = *((struct w16638 *)(&a32224)); /* x170031 stalin.sc:24910:861243 */ a35602 = t29735; /* x273765 */ /* x273764 */ t29736 = a35602; /* x273763 */ if (!((t29736.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29751]"); structure_ref_error();} t29733 = t29736.value.structure_type24753->s1; /* x170034 stalin.sc:24910:861252 */ t29734 = a32225; /* x170030 stalin.sc:24910:861237 */ a32224 = t29733; a32225 = t29734; goto h18195; l4196: l4193: /* x170317 */ a32235 = t29604; a32236 = t29605; /* x170316 stalin.sc:24956:862856 */ /* x170185 stalin.sc:24957:862867 */ /* x170184 stalin.sc:24957:862874 */ t29606 = a32235; /* x267996 stalin.sc:24957:862868 */ if (!(((unsigned)t29606)==NULL_TYPE)) goto l4186; /* x170198 */ /* x170197 */ /* x170196 stalin.sc:24957:862878 */ /* x170189 stalin.sc:24957:862881 */ /* x170188 stalin.sc:24957:862891 */ t29709 = a32231; /* x170187 stalin.sc:24957:862882 */ a41476 = t29709; /* x300016 stalin.sc:6964:241199 */ /* x300015 stalin.sc:6964:241207 */ t29710 = a41476; /* x300014 stalin.sc:6964:241200 */ t29705 = f9719(t29710); /* x170195 */ /* x170193 stalin.sc:24957:862895 */ /* x170192 stalin.sc:24957:862906 */ t29713 = a32231; /* x170191 stalin.sc:24957:862896 */ t29711 = f9722(t29713); /* x170194 */ /* x170190 */ t29712.tag = NULL_TYPE; t29706 = f26175(t29711, t29712); /* x170186 */ t29707.tag = STRUCTURE_TYPE24753; t29707.value.structure_type24753 = t29706; t29708 = f26175(t29705, t29707); t29559.tag = STRUCTURE_TYPE24753; t29559.value.structure_type24753 = t29708; goto l4187; l4186: /* x170315 */ /* x170203 stalin.sc:24958:862916 */ /* x170202 stalin.sc:24958:862923 */ /* x170201 stalin.sc:24958:862929 */ t29608 = a32235; /* x170200 stalin.sc:24958:862924 */ a35599 = t29608; /* x273753 */ /* x273752 */ t29609 = a35599; /* x273751 */ t29607 = t29609->s1; /* x267995 stalin.sc:24958:862917 */ if (!((t29607.tag)==NULL_TYPE)) goto l4189; /* x170246 */ /* x170245 */ /* x170244 stalin.sc:24959:862939 */ /* x170207 stalin.sc:24959:862942 */ /* x170206 stalin.sc:24959:862952 */ t29674 = a32231; /* x170205 stalin.sc:24959:862943 */ a41477 = t29674; /* x300020 stalin.sc:6964:241199 */ /* x300019 stalin.sc:6964:241207 */ t29675 = a41477; /* x300018 stalin.sc:6964:241200 */ t29670 = f9719(t29675); /* x170243 */ /* x170211 stalin.sc:24960:862963 */ /* x170210 stalin.sc:24960:862974 */ t29679 = a32231; /* x170209 stalin.sc:24960:862964 */ t29676 = f9722(t29679); /* x170242 */ /* x170240 */ /* x170225 */ /* x170215 */ t29686 = q39; /* x170224 */ /* x170217 stalin.sc:24961:862994 */ t29690 = a32236; /* x170223 */ /* x170221 stalin.sc:24961:862999 */ /* x170220 stalin.sc:24961:863005 */ t29696 = a32235; /* x170219 stalin.sc:24961:863000 */ t29697.tag = STRUCTURE_TYPE24753; t29697.value.structure_type24753 = t29696; t29694 = f960(t29697); /* x170222 */ /* x170218 */ t29695.tag = NULL_TYPE; t29691 = f26175(t29694, t29695); /* x170216 */ /* MOVE: branching squeezed to general */ if (t29690>=((struct structure_type24753 *)VALUE_OFFSET)) {t29692.tag = STRUCTURE_TYPE24753; t29692.value.structure_type24753 = t29690;} else t29692.tag = (unsigned)t29690; t29693.tag = STRUCTURE_TYPE24753; t29693.value.structure_type24753 = t29691; t29687 = f26175(t29692, t29693); /* x170214 */ t29688.tag = EXTERNAL_SYMBOL_TYPE; t29688.value.external_symbol_type = t29686; t29689.tag = STRUCTURE_TYPE24753; t29689.value.structure_type24753 = t29687; t29683 = f26175(t29688, t29689); /* x170239 */ /* x170238 */ /* x170237 stalin.sc:24962:863020 */ /* x170236 stalin.sc:24962:863053 */ t29701 = a32236; /* x170235 stalin.sc:24962:863025 */ /* x170227 stalin.sc:24962:863021 */ t29702.tag = NATIVE_PROCEDURE_TYPE14785; /* MOVE: branching squeezed to general */ if (t29701>=((struct structure_type24753 *)VALUE_OFFSET)) {t29703.tag = STRUCTURE_TYPE24753; t29703.value.structure_type24753 = t29701;} else t29703.tag = (unsigned)t29701; t29704 = (struct structure_type24753 *)NULL_TYPE; t29698 = f27731(t29702, t29703, t29704); /* x170226 */ t29700.tag = STRUCTURE_TYPE24753; t29700.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29700.value.structure_type24753)==NULL) {backtrace_internal("[inside MACROEXPAND-BODY 18219]"); out_of_memory_error();} t29700.value.structure_type24753->s0.tag = NULL_TYPE; t29700.value.structure_type24753->s1.tag = NULL_TYPE; t29699 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29699==NULL) {backtrace_internal("[inside MACROEXPAND-BODY 18219]"); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t29698>=((struct structure_type24753 *)VALUE_OFFSET)) {t29699->s0.tag = STRUCTURE_TYPE24753; t29699->s0.value.structure_type24753 = t29698;} else t29699->s0.tag = (unsigned)t29698; t29699->s1 = t29700; t29684 = f26254(t29699); /* x170213 */ t29685.tag = STRUCTURE_TYPE24753; t29685.value.structure_type24753 = t29683; t29680 = f26175(t29685, t29684); /* x170241 */ /* x170212 */ t29681.tag = STRUCTURE_TYPE24753; t29681.value.structure_type24753 = t29680; t29682.tag = NULL_TYPE; t29677 = f26175(t29681, t29682); /* x170208 */ t29678.tag = STRUCTURE_TYPE24753; t29678.value.structure_type24753 = t29677; t29671 = f26175(t29676, t29678); /* x170204 */ t29672.tag = STRUCTURE_TYPE24753; t29672.value.structure_type24753 = t29671; t29673 = f26175(t29670, t29672); t29559.tag = STRUCTURE_TYPE24753; t29559.value.structure_type24753 = t29673; goto l4190; l4189: /* x170314 */ /* x170313 */ /* x170312 stalin.sc:24964:863076 */ /* x170250 stalin.sc:24964:863079 */ /* x170249 stalin.sc:24964:863089 */ t29614 = a32231; /* x170248 stalin.sc:24964:863080 */ a41478 = t29614; /* x300024 stalin.sc:6964:241199 */ /* x300023 stalin.sc:6964:241207 */ t29615 = a41478; /* x300022 stalin.sc:6964:241200 */ t29610 = f9719(t29615); /* x170311 */ /* x170254 stalin.sc:24965:863100 */ /* x170253 stalin.sc:24965:863111 */ t29619 = a32231; /* x170252 stalin.sc:24965:863101 */ t29616 = f9722(t29619); /* x170310 */ /* x170308 */ /* x170293 */ /* x170258 */ t29626 = q39; /* x170292 */ /* x170260 stalin.sc:24966:863131 */ t29630 = a32236; /* x170291 */ /* x170289 */ /* x170282 */ /* x170264 */ t29640 = q39; /* x170281 */ /* x170274 stalin.sc:24969:863240 */ /* x170273 stalin.sc:24969:863275 */ /* x170272 stalin.sc:24969:863285 */ t29652 = a32235; /* x170271 stalin.sc:24969:863276 */ t29653.tag = STRUCTURE_TYPE24753; t29653.value.structure_type24753 = t29652; t29648 = f1005(t29653); /* x170270 stalin.sc:24969:863245 */ /* x170266 stalin.sc:24969:863241 */ t29649.tag = NATIVE_PROCEDURE_TYPE14783; t29650 = *((struct w49 *)(&t29648)); t29651 = (struct structure_type24753 *)NULL_TYPE; t29644 = f27731(t29649, t29650, t29651); /* x170280 */ /* x170278 stalin.sc:24970:863295 */ /* x170277 stalin.sc:24970:863301 */ t29656 = a32235; /* x170276 stalin.sc:24970:863296 */ t29657.tag = STRUCTURE_TYPE24753; t29657.value.structure_type24753 = t29656; t29654 = f960(t29657); /* x170279 */ /* x170275 */ t29655.tag = NULL_TYPE; t29645 = f26175(t29654, t29655); /* x170265 */ /* MOVE: branching squeezed to general */ if (t29644>=((struct structure_type24753 *)VALUE_OFFSET)) {t29646.tag = STRUCTURE_TYPE24753; t29646.value.structure_type24753 = t29644;} else t29646.tag = (unsigned)t29644; t29647.tag = STRUCTURE_TYPE24753; t29647.value.structure_type24753 = t29645; t29641 = f26175(t29646, t29647); /* x170263 */ t29642.tag = EXTERNAL_SYMBOL_TYPE; t29642.value.external_symbol_type = t29640; t29643.tag = STRUCTURE_TYPE24753; t29643.value.structure_type24753 = t29641; t29637 = f26175(t29642, t29643); /* x170288 */ /* x170287 */ /* x170286 stalin.sc:24971:863311 */ /* x170285 stalin.sc:24971:863321 */ t29661 = a32235; /* x170284 stalin.sc:24971:863312 */ t29662.tag = STRUCTURE_TYPE24753; t29662.value.structure_type24753 = t29661; t29658 = f1005(t29662); /* x170283 */ t29660.tag = STRUCTURE_TYPE24753; t29660.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29660.value.structure_type24753)==NULL) {backtrace_internal("[inside MACROEXPAND-BODY 18221]"); out_of_memory_error();} t29660.value.structure_type24753->s0.tag = NULL_TYPE; t29660.value.structure_type24753->s1.tag = NULL_TYPE; t29659 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29659==NULL) {backtrace_internal("[inside MACROEXPAND-BODY 18221]"); out_of_memory_error();} t29659->s0 = *((struct w49 *)(&t29658)); t29659->s1 = t29660; t29638 = f26254(t29659); /* x170262 */ t29639.tag = STRUCTURE_TYPE24753; t29639.value.structure_type24753 = t29637; t29634 = f26175(t29639, t29638); /* x170290 */ /* x170261 */ t29635.tag = STRUCTURE_TYPE24753; t29635.value.structure_type24753 = t29634; t29636.tag = NULL_TYPE; t29631 = f26175(t29635, t29636); /* x170259 */ /* MOVE: branching squeezed to general */ if (t29630>=((struct structure_type24753 *)VALUE_OFFSET)) {t29632.tag = STRUCTURE_TYPE24753; t29632.value.structure_type24753 = t29630;} else t29632.tag = (unsigned)t29630; t29633.tag = STRUCTURE_TYPE24753; t29633.value.structure_type24753 = t29631; t29627 = f26175(t29632, t29633); /* x170257 */ t29628.tag = EXTERNAL_SYMBOL_TYPE; t29628.value.external_symbol_type = t29626; t29629.tag = STRUCTURE_TYPE24753; t29629.value.structure_type24753 = t29627; t29623 = f26175(t29628, t29629); /* x170307 */ /* x170306 */ /* x170305 stalin.sc:24972:863337 */ /* x170304 stalin.sc:24972:863370 */ t29666 = a32236; /* x170303 stalin.sc:24972:863342 */ /* x170295 stalin.sc:24972:863338 */ t29667.tag = NATIVE_PROCEDURE_TYPE14782; /* MOVE: branching squeezed to general */ if (t29666>=((struct structure_type24753 *)VALUE_OFFSET)) {t29668.tag = STRUCTURE_TYPE24753; t29668.value.structure_type24753 = t29666;} else t29668.tag = (unsigned)t29666; t29669 = (struct structure_type24753 *)NULL_TYPE; t29663 = f27731(t29667, t29668, t29669); /* x170294 */ t29665.tag = STRUCTURE_TYPE24753; t29665.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29665.value.structure_type24753)==NULL) {backtrace_internal("[inside MACROEXPAND-BODY 18221]"); out_of_memory_error();} t29665.value.structure_type24753->s0.tag = NULL_TYPE; t29665.value.structure_type24753->s1.tag = NULL_TYPE; t29664 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29664==NULL) {backtrace_internal("[inside MACROEXPAND-BODY 18221]"); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t29663>=((struct structure_type24753 *)VALUE_OFFSET)) {t29664->s0.tag = STRUCTURE_TYPE24753; t29664->s0.value.structure_type24753 = t29663;} else t29664->s0.tag = (unsigned)t29663; t29664->s1 = t29665; t29624 = f26254(t29664); /* x170256 */ t29625.tag = STRUCTURE_TYPE24753; t29625.value.structure_type24753 = t29623; t29620 = f26175(t29625, t29624); /* x170309 */ /* x170255 */ t29621.tag = STRUCTURE_TYPE24753; t29621.value.structure_type24753 = t29620; t29622.tag = NULL_TYPE; t29617 = f26175(t29621, t29622); /* x170251 */ t29618.tag = STRUCTURE_TYPE24753; t29618.value.structure_type24753 = t29617; t29611 = f26175(t29616, t29618); /* x170247 */ t29612.tag = STRUCTURE_TYPE24753; t29612.value.structure_type24753 = t29611; t29613 = f26175(t29610, t29612); t29559.tag = STRUCTURE_TYPE24753; t29559.value.structure_type24753 = t29613; l4190: l4187: goto l4180; l4179: /* x170469 stalin.sc:24973:863382 */ /* x170426 stalin.sc:24973:863386 */ /* x170425 stalin.sc:24973:863390 */ /* x170424 stalin.sc:24973:863397 */ t29564 = a32233; /* x267992 stalin.sc:24973:863391 */ if ((t29564.tag)==NULL_TYPE) goto l4181; /* x170420 */ /* x170419 stalin.sc:24973:863408 */ /* x170418 stalin.sc:24973:863414 */ t29566 = a32233; /* x170417 stalin.sc:24973:863409 */ a35605 = t29566; /* x273777 */ /* x273776 */ t29567 = a35605; /* x273775 */ if (!((t29567.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29754]"); structure_ref_error();} t29565 = t29567.value.structure_type24753->s1; /* x267993 stalin.sc:24973:863402 */ if (!((t29565.tag)==NULL_TYPE)) goto l4182; l4181: /* x170427 stalin.sc:24974:863426 */ t29559 = a32231; goto l4183; l4182: /* x170468 stalin.sc:24975:863434 */ /* x170431 stalin.sc:24975:863437 */ /* x170430 stalin.sc:24975:863447 */ t29572 = a32231; /* x170429 stalin.sc:24975:863438 */ a41485 = t29572; /* x300052 stalin.sc:6964:241199 */ /* x300051 stalin.sc:6964:241207 */ t29573 = a41485; /* x300050 stalin.sc:6964:241200 */ t29568 = f9719(t29573); /* x170467 */ /* x170435 stalin.sc:24976:863459 */ /* x170434 stalin.sc:24976:863470 */ t29577 = a32231; /* x170433 stalin.sc:24976:863460 */ t29574 = f9722(t29577); /* x170466 */ /* x170464 */ /* x170457 */ /* x170439 */ t29584 = q39; /* x170456 */ /* x170449 stalin.sc:24979:863596 */ /* x170448 stalin.sc:24979:863631 */ /* x170447 stalin.sc:24979:863641 */ t29596 = a32233; /* x170446 stalin.sc:24979:863632 */ t29592 = f1005(t29596); /* x170445 stalin.sc:24979:863601 */ /* x170441 stalin.sc:24979:863597 */ t29593.tag = NATIVE_PROCEDURE_TYPE14766; t29594 = *((struct w49 *)(&t29592)); t29595 = (struct structure_type24753 *)NULL_TYPE; t29588 = f27731(t29593, t29594, t29595); /* x170455 */ /* x170453 stalin.sc:24980:863650 */ /* x170452 stalin.sc:24980:863656 */ t29599 = a32233; /* x170451 stalin.sc:24980:863651 */ t29597 = f960(t29599); /* x170454 */ /* x170450 */ t29598.tag = NULL_TYPE; t29589 = f26175(t29597, t29598); /* x170440 */ /* MOVE: branching squeezed to general */ if (t29588>=((struct structure_type24753 *)VALUE_OFFSET)) {t29590.tag = STRUCTURE_TYPE24753; t29590.value.structure_type24753 = t29588;} else t29590.tag = (unsigned)t29588; t29591.tag = STRUCTURE_TYPE24753; t29591.value.structure_type24753 = t29589; t29585 = f26175(t29590, t29591); /* x170438 */ t29586.tag = EXTERNAL_SYMBOL_TYPE; t29586.value.external_symbol_type = t29584; t29587.tag = STRUCTURE_TYPE24753; t29587.value.structure_type24753 = t29585; t29581 = f26175(t29586, t29587); /* x170463 */ /* x170462 */ /* x170461 stalin.sc:24981:863665 */ /* x170460 stalin.sc:24981:863675 */ t29603 = a32233; /* x170459 stalin.sc:24981:863666 */ t29600 = f1005(t29603); /* x170458 */ t29602.tag = STRUCTURE_TYPE24753; t29602.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29602.value.structure_type24753)==NULL) {backtrace_internal("[inside MACROEXPAND-BODY 18215]"); out_of_memory_error();} t29602.value.structure_type24753->s0.tag = NULL_TYPE; t29602.value.structure_type24753->s1.tag = NULL_TYPE; t29601 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t29601==NULL) {backtrace_internal("[inside MACROEXPAND-BODY 18215]"); out_of_memory_error();} t29601->s0 = *((struct w49 *)(&t29600)); t29601->s1 = t29602; t29582 = f26254(t29601); /* x170437 */ t29583.tag = STRUCTURE_TYPE24753; t29583.value.structure_type24753 = t29581; t29578 = f26175(t29583, t29582); /* x170465 */ /* x170436 */ t29579.tag = STRUCTURE_TYPE24753; t29579.value.structure_type24753 = t29578; t29580.tag = NULL_TYPE; t29575 = f26175(t29579, t29580); /* x170432 */ t29576.tag = STRUCTURE_TYPE24753; t29576.value.structure_type24753 = t29575; t29569 = f26175(t29574, t29576); /* x170428 */ t29570.tag = STRUCTURE_TYPE24753; t29570.value.structure_type24753 = t29569; t29571 = f26175(t29568, t29570); t29559.tag = STRUCTURE_TYPE24753; t29559.value.structure_type24753 = t29571; l4183: l4180: /* x170162 stalin.sc:24938:862270 */ t29555 = f9774(t29559); /* x170160 stalin.sc:24933:862030 */ a18913 = t29554; a18914 = t29555; /* x49439 */ /* x49437 */ t29556 = a18913; /* x49438 */ t29557 = a18914; /* x49436 */ if (!((t29556.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("SET-S-EXPRESSION-MACROEXPAND-BODY![5452]"); structure_set_error();} t29556.value.structure_type27510->s8 = t29557; l4177: /* x170154 */ /* x170153 stalin.sc:24982:863688 */ /* x170152 stalin.sc:24982:863719 */ t29550 = a32231; /* x170151 stalin.sc:24982:863689 */ a18912 = t29550; /* x49433 */ /* x49432 */ t29551 = a18912; /* x49431 */ if ((t29551.tag)==STRUCTURE_TYPE27510) return t29551.value.structure_type27510->s8; backtrace_internal("S-EXPRESSION-MACROEXPAND-BODY[5451]"); structure_ref_error();} /* BODY-LIST[18210] */ struct w49 f18210(struct w49 a32230) {struct w12224 t29817; unsigned t29818; struct w49 t29819; struct w228463 t29820; struct w49 t29821; struct w198746 t29822; /* x170148 stalin.sc:24928:861858 */ /* x170142 stalin.sc:24928:861866 */ /* x170146 stalin.sc:24928:861873 */ /* x170144 stalin.sc:24928:861881 */ /* x170145 stalin.sc:24928:861886 */ t29821 = a32230; /* x170143 stalin.sc:24928:861874 */ t29822.tag = NATIVE_PROCEDURE_TYPE6016; t29817 = f9753(t29822, t29821); /* x170147 stalin.sc:24928:861889 */ /* x170141 stalin.sc:24928:861859 */ t29818 = NATIVE_PROCEDURE_TYPE454; t29819 = *((struct w49 *)(&t29817)); t29820.tag = NULL_TYPE; return f1006(t29818, t29819, t29820);} /* [inside EXPAND-QUASIQUOTE 18168] */ struct w49 f18168(struct w49 a32214) {struct w49 a41600; /* S */ struct w49 t29823; char *t29824; struct w49 t29825; struct w49 t29826; struct w49 t29827; struct w49 t29828; /* x169592 stalin.sc:24852:859147 */ /* x169587 stalin.sc:24852:859151 */ /* x169585 stalin.sc:24852:859159 */ /* x169584 stalin.sc:24852:859169 */ t29826 = a32214; /* x169583 stalin.sc:24852:859160 */ a41600 = t29826; /* x300512 stalin.sc:6964:241199 */ /* x300511 stalin.sc:6964:241207 */ t29827 = a41600; /* x300510 stalin.sc:6964:241200 */ t29823 = f9719(t29827); /* x169586 stalin.sc:24852:859172 */ t29824 = q8; /* x169582 stalin.sc:24852:859152 */ t29825.tag = EXTERNAL_SYMBOL_TYPE; t29825.value.external_symbol_type = t29824; if (f9745(t29823, t29825)==FALSE_TYPE) goto l4214; /* x169590 stalin.sc:24853:859187 */ /* x169589 stalin.sc:24853:859198 */ t29828 = a32214; /* x169588 stalin.sc:24853:859188 */ return f9722(t29828); l4214: /* x169591 stalin.sc:24854:859206 */ return a32214;} /* [inside EXPAND-QUASIQUOTE 18162] */ struct w49 f18162(struct w49 a32212) {struct w49 r18162; struct w49 a32213; /* v */ struct w49 a41107; /* S */ struct w49 a41598; /* S */ struct w49 a42389; /* S */ struct w49 t29829; struct w49 t29830; char *t29831; struct w49 t29832; struct w49 t29833; char *t29834; struct w49 t29835; struct w49 t29836; char *t29837; struct w49 t29838; char *t29839; char *t29840; struct structure_type24753 *t29841; struct w49 t29842; struct w49 t29843; struct structure_type24753 *t29844; struct structure_type24753 *t29845; struct w49 t29846; struct w49 t29847; struct w49 t29848; struct w49 t29849; struct w49 t29850; struct w49 t29851; char *t29852; struct structure_type24753 *t29853; struct w49 t29854; struct w49 t29855; struct structure_type24753 *t29856; struct w49 t29857; struct structure_type24753 *t29858; struct w49 t29859; struct w49 t29860; struct w49 t29864; struct w49 t29865; struct w49 t29866; struct w49 t29867; struct w49 t29868; /* x169561 stalin.sc:24843:858846 */ /* x169560 stalin.sc:24843:858852 */ /* x169559 stalin.sc:24843:858862 */ /* x169558 stalin.sc:24843:858872 */ t29867 = a32212; /* x169557 stalin.sc:24843:858863 */ a41598 = t29867; /* x300504 stalin.sc:6964:241199 */ /* x300503 stalin.sc:6964:241207 */ t29868 = a41598; /* x300502 stalin.sc:6964:241200 */ t29864 = f9719(t29868); /* x169556 stalin.sc:24843:858853 */ a41107 = t29864; /* x298540 stalin.sc:6937:240340 */ /* x298539 stalin.sc:6937:240360 */ t29865 = a41107; /* x298538 stalin.sc:6937:240341 */ a42389 = t29865; /* x303054 */ /* x303053 */ t29866 = a42389; /* x303052 */ if (!((t29866.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37565]"); structure_ref_error();} t29829 = t29866.value.structure_type27510->s9; /* x169555 */ a32213 = t29829; /* x169554 */ /* x169503 */ /* x169501 */ t29830 = a32213; /* x169502 */ t29831 = q8; /* x169500 */ t29832.tag = EXTERNAL_SYMBOL_TYPE; t29832.value.external_symbol_type = t29831; if (f26160(t29830, t29832)==FALSE_TYPE) goto l4216; /* x169520 */ /* x169519 */ /* x169518 stalin.sc:24844:858897 */ /* x169505 stalin.sc:24844:858900 */ t29852 = a763; /* x169517 */ /* x169509 stalin.sc:24844:858908 */ /* x169508 stalin.sc:24844:858919 */ t29860 = a32212; /* x169507 stalin.sc:24844:858909 */ t29857 = f9722(t29860); /* x169516 */ t29858 = &t29861; /* x169506 */ t29859.tag = STRUCTURE_TYPE24753; t29859.value.structure_type24753 = t29858; t29853 = f26175(t29857, t29859); /* x169504 */ /* MOVE: branching squeezed to general */ if (t29852>=((char *)VALUE_OFFSET)) {t29854.tag = EXTERNAL_SYMBOL_TYPE; t29854.value.external_symbol_type = t29852;} else t29854.tag = (unsigned)t29852; t29855.tag = STRUCTURE_TYPE24753; t29855.value.structure_type24753 = t29853; t29856 = f26175(t29854, t29855); r18162.tag = STRUCTURE_TYPE24753; r18162.value.structure_type24753 = t29856; return r18162; l4216: /* x169553 */ /* x169524 */ /* x169522 */ t29833 = a32213; /* x169523 */ t29834 = q9; /* x169521 */ t29835.tag = EXTERNAL_SYMBOL_TYPE; t29835.value.external_symbol_type = t29834; if (f26160(t29833, t29835)==FALSE_TYPE) goto l4218; /* x169529 */ /* x169528 */ /* x169527 stalin.sc:24845:858958 */ /* x169526 stalin.sc:24845:858969 */ t29851 = a32212; /* x169525 stalin.sc:24845:858959 */ return f9722(t29851); l4218: /* x169552 */ /* x169533 */ /* x169531 */ t29836 = a32213; /* x169532 */ t29837 = q11; /* x169530 */ t29838.tag = EXTERNAL_SYMBOL_TYPE; t29838.value.external_symbol_type = t29837; if (f26160(t29836, t29838)==FALSE_TYPE) goto l4220; /* x169547 */ /* x169546 */ /* x169545 stalin.sc:24846:858992 */ /* x169535 */ t29840 = q11; /* x169544 */ /* x169542 */ /* x169540 stalin.sc:24846:858996 */ /* x169539 stalin.sc:24846:859007 */ t29850 = a32212; /* x169538 stalin.sc:24846:858997 */ t29848 = f9722(t29850); /* x169541 */ /* x169537 */ t29849.tag = NULL_TYPE; t29845 = f26175(t29848, t29849); /* x169543 */ /* x169536 */ t29846.tag = STRUCTURE_TYPE24753; t29846.value.structure_type24753 = t29845; t29847.tag = NULL_TYPE; t29841 = f26175(t29846, t29847); /* x169534 */ t29842.tag = EXTERNAL_SYMBOL_TYPE; t29842.value.external_symbol_type = t29840; t29843.tag = STRUCTURE_TYPE24753; t29843.value.structure_type24753 = t29841; t29844 = f26175(t29842, t29843); r18162.tag = STRUCTURE_TYPE24753; r18162.value.structure_type24753 = t29844; return r18162; l4220: /* x169551 */ /* x169550 */ /* x169549 stalin.sc:24847:859028 */ /* x169548 stalin.sc:24847:859029 */ /* x297533 QobiScheme.sc:166:5314 */ /* x297532 QobiScheme.sc:166:5321 */ t29839 = "This shouldn\'t happen"; /* x297531 QobiScheme.sc:166:5315 */ stalin_panic(t29839);} /* EXPAND-QUASIQUOTE[18156] */ struct w49 f18156(struct w49 a32208) {struct w49 a22956; /* S */ struct structure_type24753 *a32210; /* SS */ struct w49 a32215; /* S2 */ struct w49 a32216; /* S1 */ struct w49 a32217; /* v */ struct w49 a32218; /* v */ struct w49 a32219; /* v */ struct w49 a32220; /* v */ struct structure_type24753 *a35252; /* OBJS */ struct structure_type24753 *a35253; /* OBJS */ struct structure_type24753 *a35254; /* OBJS */ struct structure_type24753 *a35255; /* OBJS */ struct structure_type24753 *a35256; /* OBJS */ struct structure_type24753 *a35257; /* OBJS */ struct structure_type24753 *a35258; /* OBJS */ struct w49 a41103; /* S */ struct w49 a41104; /* S */ struct w49 a41105; /* S */ struct w49 a41106; /* S */ struct w49 a41108; /* S */ struct w49 a41592; /* S */ struct w49 a41593; /* S */ struct w49 a41594; /* S */ struct w49 a41595; /* S */ struct w49 a41596; /* S */ struct w49 a41597; /* S */ struct w49 a42388; /* S */ struct w49 a42390; /* S */ struct w49 a42391; /* S */ struct w49 a42392; /* S */ struct w49 a42393; /* S */ struct w49 t29869; struct w49 t29870; char *t29871; struct structure_type24753 *t29872; struct w49 t29873; struct w49 t29874; struct structure_type24753 *t29875; struct w49 t29876; struct w49 t29877; struct w49 t29878; int t29879; int t29880; struct w49 t29881; struct w49 t29882; char *t29883; struct w49 t29884; struct w49 t29885; struct w49 t29886; struct w49 t29887; char *t29888; struct w49 t29889; struct w49 t29890; struct w49 t29891; struct w49 t29892; struct w49 t29893; char *t29894; struct structure_type24753 *t29895; struct w49 t29896; struct w49 t29897; struct structure_type24753 *t29898; struct w49 t29899; struct w49 t29900; struct w49 t29901; struct w49 t29902; struct w49 t29903; struct w49 t29904; char *t29905; struct w49 t29906; struct w49 t29907; char *t29908; struct w49 t29909; struct w49 t29910; char *t29911; struct w49 t29912; char *t29913; struct w49 t29914; struct w49 t29915; char *t29916; struct w49 t29917; struct w49 t29918; char *t29919; struct w49 t29920; struct w49 t29921; char *t29922; struct w49 t29923; char *t29924; char *t29925; struct structure_type24753 *t29926; struct w49 t29927; struct w49 t29928; struct structure_type24753 *t29929; struct structure_type24753 *t29930; struct w49 t29931; struct w49 t29932; struct w49 t29933; struct w49 t29934; struct w49 t29935; struct w49 t29936; struct w49 t29937; char *t29938; char *t29939; struct structure_type24753 *t29940; struct w49 t29941; char *t29942; struct structure_type24753 *t29943; struct w49 t29944; struct w49 t29945; struct w49 t29946; struct structure_type24753 *t29947; struct w49 t29948; struct w49 t29949; struct w49 t29950; struct w49 t29951; struct w49 t29952; struct w49 t29953; struct w49 t29954; struct w49 t29955; struct w49 t29956; struct w49 t29957; struct w49 t29958; char *t29959; struct w49 t29960; struct w49 t29961; char *t29962; struct w49 t29963; struct w49 t29964; char *t29965; struct w49 t29966; char *t29967; char *t29968; struct structure_type24753 *t29969; struct w49 t29970; char *t29971; struct structure_type24753 *t29972; struct w49 t29973; struct w49 t29974; struct w49 t29975; struct structure_type24753 *t29976; struct w49 t29977; struct w49 t29978; struct w49 t29979; struct w49 t29980; struct w49 t29981; char *t29982; char *t29983; struct structure_type24753 *t29984; struct w49 t29985; char *t29986; struct structure_type24753 *t29987; struct w49 t29988; struct w49 t29989; struct w49 t29990; struct structure_type24753 *t29991; struct w49 t29992; struct w49 t29993; struct w49 t29994; struct w49 t29995; struct w49 t29996; struct w49 t29997; struct w49 t29998; struct w49 t29999; struct w49 t30000; struct w49 t30001; struct w49 t30002; struct w49 t30003; char *t30004; struct w49 t30005; struct w49 t30006; char *t30007; struct w49 t30008; struct w49 t30009; char *t30010; struct w49 t30011; char *t30012; char *t30013; struct structure_type24753 *t30014; struct w49 t30015; char *t30016; struct structure_type24753 *t30017; struct w49 t30018; struct w49 t30019; struct w49 t30020; struct structure_type24753 *t30021; struct w49 t30022; struct w49 t30023; struct w49 t30024; struct w49 t30025; struct w49 t30026; char *t30027; char *t30028; struct structure_type24753 *t30029; struct w49 t30030; char *t30031; struct structure_type24753 *t30032; struct w49 t30033; struct w49 t30034; struct w49 t30035; struct structure_type24753 *t30036; struct w49 t30037; struct w49 t30038; struct w49 t30039; struct w49 t30040; struct w49 t30041; struct w49 t30042; struct w49 t30043; struct w49 t30044; struct w49 t30045; struct w49 t30046; struct w49 t30047; struct w49 t30048; struct w49 t30049; struct w49 t30050; struct w49 t30051; struct w49 t30052; struct w49 t30053; struct w49 t30054; struct w49 t30055; struct structure_type24753 *t30056; struct structure_type24753 *t30057; struct w228345 t30058; struct w49 t30059; struct structure_type24753 *t30060; char *t30061; struct structure_type24753 *t30062; struct w49 t30063; struct structure_type24753 *t30064; struct w49 t30065; struct w49 t30066; struct structure_type24753 *t30069; struct structure_type24753 *t30070; struct w49 t30071; struct structure_type24753 *t30072; struct w36270 t30073; struct w49 t30074; struct structure_type24753 *t30075; char *t30076; struct structure_type24753 *t30077; struct w49 t30078; char *t30079; struct structure_type24753 *t30080; struct w49 t30081; struct w49 t30082; struct structure_type24753 *t30083; struct w49 t30084; struct w49 t30085; char *t30086; struct w49 t30087; struct w49 t30088; struct structure_type24753 *t30089; struct structure_type24753 *t30090; struct w49 t30091; struct structure_type24753 *t30092; struct w36270 t30093; struct w49 t30094; struct structure_type24753 *t30095; struct structure_type24753 *t30096; struct w36270 t30097; struct w49 t30098; struct structure_type24753 *t30099; struct w49 t30100; struct w49 t30101; struct w49 t30102; struct w49 t30103; struct w49 t30104; /* x169881 stalin.sc:24828:858404 */ /* x169880 stalin.sc:24829:858419 */ /* x169444 stalin.sc:24829:858423 */ /* x169443 stalin.sc:24829:858442 */ t29870 = a32208; /* x169442 stalin.sc:24829:858424 */ if (f18151(t29870)==FALSE_TYPE) goto l4222; /* x169872 stalin.sc:24830:858451 */ /* x169474 stalin.sc:24831:858465 */ /* x169447 stalin.sc:24831:858470 */ /* x169446 stalin.sc:24831:858480 */ t29878 = a32208; /* x169445 stalin.sc:24831:858471 */ if (f9766(t29878)==FALSE_TYPE) goto l4225; /* x169472 */ /* x169453 stalin.sc:24832:858489 */ /* x169451 stalin.sc:24832:858492 */ /* x169450 stalin.sc:24832:858503 */ t29881 = a32208; /* x169449 stalin.sc:24832:858493 */ t29879 = f9734(t29881); /* x169452 stalin.sc:24832:858506 */ t29880 = 2; /* x268003 stalin.sc:24832:858490 */ if (!(t29879==t29880)) goto l4225; /* x169470 */ /* x169469 stalin.sc:24833:858519 */ /* x169467 stalin.sc:24833:858527 */ /* x169466 stalin.sc:24833:858537 */ t29885 = a32208; /* x169465 stalin.sc:24833:858528 */ a41597 = t29885; /* x300500 stalin.sc:6964:241199 */ /* x300499 stalin.sc:6964:241207 */ t29886 = a41597; /* x300498 stalin.sc:6964:241200 */ t29882 = f9719(t29886); /* x169468 stalin.sc:24833:858540 */ t29883 = q8; /* x169464 stalin.sc:24833:858520 */ t29884.tag = EXTERNAL_SYMBOL_TYPE; t29884.value.external_symbol_type = t29883; if (!(f9745(t29882, t29884)==FALSE_TYPE)) goto l4224; /* x169461 */ /* x169459 stalin.sc:24834:858561 */ /* x169458 stalin.sc:24834:858571 */ t29890 = a32208; /* x169457 stalin.sc:24834:858562 */ a41596 = t29890; /* x300496 stalin.sc:6964:241199 */ /* x300495 stalin.sc:6964:241207 */ t29891 = a41596; /* x300494 stalin.sc:6964:241200 */ t29887 = f9719(t29891); /* x169460 stalin.sc:24834:858574 */ t29888 = q9; /* x169456 stalin.sc:24834:858554 */ t29889.tag = EXTERNAL_SYMBOL_TYPE; t29889.value.external_symbol_type = t29888; if (f9745(t29887, t29889)==FALSE_TYPE) goto l4225; l4224: /* x169477 */ /* x169476 */ /* x169475 stalin.sc:24835:858596 */ t29869 = a32208; goto l4226; l4225: /* x169871 */ /* x169480 stalin.sc:24836:858607 */ /* x169479 stalin.sc:24836:858619 */ t29892 = a32208; /* x169478 stalin.sc:24836:858608 */ if (f9743(t29892)==FALSE_TYPE) goto l4231; /* x169610 */ /* x169609 */ /* x169608 stalin.sc:24837:858623 */ /* x169607 stalin.sc:24837:858633 */ /* x169606 stalin.sc:24837:858656 */ /* x169605 stalin.sc:24837:858673 */ t30100 = a32208; /* x169604 stalin.sc:24837:858657 */ a22956 = t30100; /* x86882 stalin.sc:7077:244042 */ /* x86881 stalin.sc:7077:244056 */ /* x86880 stalin.sc:7077:244066 */ t30102 = a22956; /* x86879 stalin.sc:7077:244057 */ a41108 = t30102; /* x298544 stalin.sc:6937:240340 */ /* x298543 stalin.sc:6937:240360 */ t30103 = a41108; /* x298542 stalin.sc:6937:240341 */ a42388 = t30103; /* x303050 */ /* x303049 */ t30104 = a42388; /* x303048 */ if (!((t30104.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37564]"); structure_ref_error();} t30101 = t30104.value.structure_type27510->s9; /* x86878 stalin.sc:7077:244043 */ /* MOVE: dispatching general to general */ a34087.tag = t30101.tag; switch (t30101.tag) {case FIXNUM_TYPE: a34087.value.fixnum_type = t30101.value.fixnum_type; break; case FLONUM_TYPE: a34087.value.flonum_type = t30101.value.flonum_type; break; case INPUT_PORT_TYPE: a34087.value.input_port_type = t30101.value.input_port_type; break; case OUTPUT_PORT_TYPE: a34087.value.output_port_type = t30101.value.output_port_type; break; case NATIVE_PROCEDURE_TYPE15963: a34087.value.native_procedure_type15963 = t30101.value.native_procedure_type15963; break; case NATIVE_PROCEDURE_TYPE19067: a34087.value.native_procedure_type19067 = t30101.value.native_procedure_type19067; break; case NATIVE_PROCEDURE_TYPE19068: a34087.value.native_procedure_type19068 = t30101.value.native_procedure_type19068; break; case NATIVE_PROCEDURE_TYPE22459: a34087.value.native_procedure_type22459 = t30101.value.native_procedure_type22459; break; case STRUCTURE_TYPE24753: a34087.value.structure_type24753 = t30101.value.structure_type24753; break; case STRUCTURE_TYPE24757: a34087.value.structure_type24757 = t30101.value.structure_type24757; break; case STRUCTURE_TYPE27501: a34087.value.structure_type27501 = t30101.value.structure_type27501; break; case STRUCTURE_TYPE27510: a34087.value.structure_type27510 = t30101.value.structure_type27510; break; case STRUCTURE_TYPE27621: a34087.value.structure_type27621 = t30101.value.structure_type27621; break; case STRUCTURE_TYPE27650: a34087.value.structure_type27650 = t30101.value.structure_type27650; break; case STRUCTURE_TYPE27669: a34087.value.structure_type27669 = t30101.value.structure_type27669; break; case STRUCTURE_TYPE27673: a34087.value.structure_type27673 = t30101.value.structure_type27673; break; case STRUCTURE_TYPE27692: a34087.value.structure_type27692 = t30101.value.structure_type27692; break; case STRUCTURE_TYPE27694: a34087.value.structure_type27694 = t30101.value.structure_type27694; break; case STRUCTURE_TYPE27698: a34087.value.structure_type27698 = t30101.value.structure_type27698; break; case STRUCTURE_TYPE27745: a34087.value.structure_type27745 = t30101.value.structure_type27745; break; case STRUCTURE_TYPE27747: a34087.value.structure_type27747 = t30101.value.structure_type27747; break; case STRUCTURE_TYPE27750: a34087.value.structure_type27750 = t30101.value.structure_type27750; break; case STRUCTURE_TYPE27753: a34087.value.structure_type27753 = t30101.value.structure_type27753; break; case STRUCTURE_TYPE27756: a34087.value.structure_type27756 = t30101.value.structure_type27756; break; case STRUCTURE_TYPE27761: a34087.value.structure_type27761 = t30101.value.structure_type27761; break; case STRUCTURE_TYPE27769: a34087.value.structure_type27769 = t30101.value.structure_type27769; break; case STRUCTURE_TYPE27776: a34087.value.structure_type27776 = t30101.value.structure_type27776; break; case STRUCTURE_TYPE27779: a34087.value.structure_type27779 = t30101.value.structure_type27779; break; case STRUCTURE_TYPE27858: a34087.value.structure_type27858 = t30101.value.structure_type27858; break; case STRING_TYPE: a34087.value.string_type = t30101.value.string_type; break; case HEADED_VECTOR_TYPE27896: a34087.value.headed_vector_type27896 = t30101.value.headed_vector_type27896; break; case EXTERNAL_SYMBOL_TYPE: a34087.value.external_symbol_type = t30101.value.external_symbol_type; break; case STRUCTURE_TYPE27908: a34087.value.structure_type27908 = t30101.value.structure_type27908; break; default:;} t30096 = f27645(); /* x169603 stalin.sc:24837:858638 */ /* x169602 stalin.sc:24837:858634 */ t30097.tag = NATIVE_PROCEDURE_TYPE6018; /* MOVE: branching squeezed to general */ if (t30096>=((struct structure_type24753 *)VALUE_OFFSET)) {t30098.tag = STRUCTURE_TYPE24753; t30098.value.structure_type24753 = t30096;} else t30098.tag = (unsigned)t30096; t30099 = (struct structure_type24753 *)NULL_TYPE; t30056 = f27731(t30097, t30098, t30099); /* x169601 */ a32210 = t30056; /* x169600 stalin.sc:24838:858681 */ /* x169490 stalin.sc:24838:858685 */ /* x169489 stalin.sc:24838:858744 */ t30057 = a32210; /* x169488 stalin.sc:24838:858691 */ /* x169481 stalin.sc:24838:858686 */ t30058.tag = NATIVE_PROCEDURE_TYPE14290; /* MOVE: branching squeezed to general */ if (t30057>=((struct structure_type24753 *)VALUE_OFFSET)) {t30059.tag = STRUCTURE_TYPE24753; t30059.value.structure_type24753 = t30057;} else t30059.tag = (unsigned)t30057; t30060 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t30058, t30059, t30060).tag)==FALSE_TYPE) goto l4273; /* x169571 stalin.sc:24839:858754 */ /* x169570 stalin.sc:24840:858774 */ /* x169494 stalin.sc:24840:858777 */ t30079 = a765; /* x169569 */ /* x169567 */ /* x169497 stalin.sc:24841:858801 */ t30086 = a764; /* x169566 */ /* x169565 */ /* x169564 stalin.sc:24842:858820 */ /* x169563 stalin.sc:24848:859049 */ t30092 = a32210; /* x169562 stalin.sc:24842:858825 */ /* x169499 stalin.sc:24842:858821 */ t30093.tag = NATIVE_PROCEDURE_TYPE14297; /* MOVE: branching squeezed to general */ if (t30092>=((struct structure_type24753 *)VALUE_OFFSET)) {t30094.tag = STRUCTURE_TYPE24753; t30094.value.structure_type24753 = t30092;} else t30094.tag = (unsigned)t30092; t30095 = (struct structure_type24753 *)NULL_TYPE; t30089 = f27731(t30093, t30094, t30095); /* x169498 */ t30091.tag = STRUCTURE_TYPE24753; t30091.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30091.value.structure_type24753)==NULL) {backtrace_internal("[inside EXPAND-QUASIQUOTE 18160]"); out_of_memory_error();} t30091.value.structure_type24753->s0.tag = NULL_TYPE; t30091.value.structure_type24753->s1.tag = NULL_TYPE; t30090 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t30090==NULL) {backtrace_internal("[inside EXPAND-QUASIQUOTE 18160]"); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t30089>=((struct structure_type24753 *)VALUE_OFFSET)) {t30090->s0.tag = STRUCTURE_TYPE24753; t30090->s0.value.structure_type24753 = t30089;} else t30090->s0.tag = (unsigned)t30089; t30090->s1 = t30091; t30087 = f26254(t30090); /* x169496 */ /* MOVE: branching squeezed to general */ if (t30086>=((char *)VALUE_OFFSET)) {t30088.tag = EXTERNAL_SYMBOL_TYPE; t30088.value.external_symbol_type = t30086;} else t30088.tag = (unsigned)t30086; t30083 = f26175(t30088, t30087); /* x169568 */ /* x169495 */ t30084.tag = STRUCTURE_TYPE24753; t30084.value.structure_type24753 = t30083; t30085.tag = NULL_TYPE; t30080 = f26175(t30084, t30085); /* x169493 */ /* MOVE: branching squeezed to general */ if (t30079>=((char *)VALUE_OFFSET)) {t30081.tag = EXTERNAL_SYMBOL_TYPE; t30081.value.external_symbol_type = t30079;} else t30081.tag = (unsigned)t30079; t30082.tag = STRUCTURE_TYPE24753; t30082.value.structure_type24753 = t30080; t30077 = f26175(t30081, t30082); /* x169492 stalin.sc:24839:858760 */ t30076 = q8; /* x169491 stalin.sc:24839:858755 */ t30078.tag = STRUCTURE_TYPE24753; t30078.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30078.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24839, 858754); out_of_memory_error();} t30078.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t30078.value.structure_type24753->s0.value.structure_type24753 = t30077; t30078.value.structure_type24753->s1.tag = NULL_TYPE; a35257 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35257==NULL) {backtrace("stalin.sc", 24839, 858754); out_of_memory_error();} a35257->s0.tag = EXTERNAL_SYMBOL_TYPE; a35257->s0.value.external_symbol_type = t30076; a35257->s1 = t30078; /* x272521 */ t29869.tag = STRUCTURE_TYPE24753; t29869.value.structure_type24753 = a35257; goto l4274; l4273: /* x169599 stalin.sc:24849:859062 */ /* x169598 stalin.sc:24850:859082 */ /* x169579 */ t30064 = &t30067; /* x169597 */ /* x169596 */ /* x169595 stalin.sc:24851:859122 */ /* x169594 stalin.sc:24855:859217 */ t30072 = a32210; /* x169593 stalin.sc:24851:859127 */ /* x169581 stalin.sc:24851:859123 */ t30073.tag = NATIVE_PROCEDURE_TYPE14295; /* MOVE: branching squeezed to general */ if (t30072>=((struct structure_type24753 *)VALUE_OFFSET)) {t30074.tag = STRUCTURE_TYPE24753; t30074.value.structure_type24753 = t30072;} else t30074.tag = (unsigned)t30072; t30075 = (struct structure_type24753 *)NULL_TYPE; t30069 = f27731(t30073, t30074, t30075); /* x169580 */ t30071.tag = STRUCTURE_TYPE24753; t30071.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30071.value.structure_type24753)==NULL) {backtrace_internal("[inside EXPAND-QUASIQUOTE 18160]"); out_of_memory_error();} t30071.value.structure_type24753->s0.tag = NULL_TYPE; t30071.value.structure_type24753->s1.tag = NULL_TYPE; t30070 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t30070==NULL) {backtrace_internal("[inside EXPAND-QUASIQUOTE 18160]"); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t30069>=((struct structure_type24753 *)VALUE_OFFSET)) {t30070->s0.tag = STRUCTURE_TYPE24753; t30070->s0.value.structure_type24753 = t30069;} else t30070->s0.tag = (unsigned)t30069; t30070->s1 = t30071; t30065 = f26254(t30070); /* x169574 */ t30066.tag = STRUCTURE_TYPE24753; t30066.value.structure_type24753 = t30064; t30062 = f26175(t30066, t30065); /* x169573 stalin.sc:24849:859068 */ t30061 = q8; /* x169572 stalin.sc:24849:859063 */ t30063.tag = STRUCTURE_TYPE24753; t30063.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30063.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24849, 859062); out_of_memory_error();} t30063.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t30063.value.structure_type24753->s0.value.structure_type24753 = t30062; t30063.value.structure_type24753->s1.tag = NULL_TYPE; a35258 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35258==NULL) {backtrace("stalin.sc", 24849, 859062); out_of_memory_error();} a35258->s0.tag = EXTERNAL_SYMBOL_TYPE; a35258->s0.value.external_symbol_type = t30061; a35258->s1 = t30063; /* x272523 */ t29869.tag = STRUCTURE_TYPE24753; t29869.value.structure_type24753 = a35258; l4274: goto l4232; l4231: /* x169870 */ /* x169613 stalin.sc:24856:859234 */ /* x169612 stalin.sc:24856:859244 */ t29893 = a32208; /* x169611 stalin.sc:24856:859235 */ if (f9740(t29893)==FALSE_TYPE) goto l4234; /* x169860 */ /* x169859 */ /* x169858 stalin.sc:24857:859248 */ /* x169852 stalin.sc:24858:859301 */ /* x169851 stalin.sc:24858:859320 */ /* x169850 stalin.sc:24858:859328 */ t30053 = a32208; /* x169849 stalin.sc:24858:859321 */ t30052 = f9720(t30053); /* x169848 stalin.sc:24858:859302 */ t29901 = f18156(t30052); /* x169857 stalin.sc:24857:859258 */ /* x169856 stalin.sc:24857:859277 */ /* x169855 stalin.sc:24857:859285 */ t30055 = a32208; /* x169854 stalin.sc:24857:859278 */ t30054 = f9719(t30055); /* x169853 stalin.sc:24857:859259 */ t29902 = f18156(t30054); /* x169847 */ a32215 = t29901; a32216 = t29902; /* x169846 stalin.sc:24859:859336 */ /* x169845 stalin.sc:24859:859342 */ /* x169844 stalin.sc:24859:859352 */ /* x169843 stalin.sc:24859:859362 */ t30050 = a32216; /* x169842 stalin.sc:24859:859353 */ a41595 = t30050; /* x300492 stalin.sc:6964:241199 */ /* x300491 stalin.sc:6964:241207 */ t30051 = a41595; /* x300490 stalin.sc:6964:241200 */ t30047 = f9719(t30051); /* x169841 stalin.sc:24859:859343 */ a41106 = t30047; /* x298536 stalin.sc:6937:240340 */ /* x298535 stalin.sc:6937:240360 */ t30048 = a41106; /* x298534 stalin.sc:6937:240341 */ a42390 = t30048; /* x303058 */ /* x303057 */ t30049 = a42390; /* x303056 */ if (!((t30049.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37566]"); structure_ref_error();} t29903 = t30049.value.structure_type27510->s9; /* x169840 */ a32217 = t29903; /* x169839 */ /* x169617 */ /* x169615 */ t29904 = a32217; /* x169616 */ t29905 = q8; /* x169614 */ t29906.tag = EXTERNAL_SYMBOL_TYPE; t29906.value.external_symbol_type = t29905; if (f26160(t29904, t29906)==FALSE_TYPE) goto l4237; /* x169687 */ /* x169686 */ /* x169685 stalin.sc:24861:859385 */ /* x169684 stalin.sc:24861:859391 */ /* x169683 stalin.sc:24861:859401 */ /* x169682 stalin.sc:24861:859411 */ t30045 = a32215; /* x169681 stalin.sc:24861:859402 */ a41592 = t30045; /* x300480 stalin.sc:6964:241199 */ /* x300479 stalin.sc:6964:241207 */ t30046 = a41592; /* x300478 stalin.sc:6964:241200 */ t30042 = f9719(t30046); /* x169680 stalin.sc:24861:859392 */ a41103 = t30042; /* x298524 stalin.sc:6937:240340 */ /* x298523 stalin.sc:6937:240360 */ t30043 = a41103; /* x298522 stalin.sc:6937:240341 */ a42393 = t30043; /* x303070 */ /* x303069 */ t30044 = a42393; /* x303068 */ if (!((t30044.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37569]"); structure_ref_error();} t30002 = t30044.value.structure_type27510->s9; /* x169679 */ a32218 = t30002; /* x169678 */ /* x169621 */ /* x169619 */ t30003 = a32218; /* x169620 */ t30004 = q8; /* x169618 */ t30005.tag = EXTERNAL_SYMBOL_TYPE; t30005.value.external_symbol_type = t30004; if (f26160(t30003, t30005)==FALSE_TYPE) goto l4264; /* x169640 */ /* x169639 */ /* x169638 stalin.sc:24863:859438 */ /* x169637 stalin.sc:24863:859453 */ /* x169625 stalin.sc:24863:859456 */ t30031 = a763; /* x169636 */ /* x169629 stalin.sc:24863:859464 */ /* x169628 stalin.sc:24863:859475 */ t30038 = a32216; /* x169627 stalin.sc:24863:859465 */ t30035 = f9722(t30038); /* x169635 */ /* x169633 stalin.sc:24863:859480 */ /* x169632 stalin.sc:24863:859491 */ t30041 = a32215; /* x169631 stalin.sc:24863:859481 */ t30039 = f9722(t30041); /* x169634 */ /* x169630 */ t30040.tag = NULL_TYPE; t30036 = f26175(t30039, t30040); /* x169626 */ t30037.tag = STRUCTURE_TYPE24753; t30037.value.structure_type24753 = t30036; t30032 = f26175(t30035, t30037); /* x169624 */ /* MOVE: branching squeezed to general */ if (t30031>=((char *)VALUE_OFFSET)) {t30033.tag = EXTERNAL_SYMBOL_TYPE; t30033.value.external_symbol_type = t30031;} else t30033.tag = (unsigned)t30031; t30034.tag = STRUCTURE_TYPE24753; t30034.value.structure_type24753 = t30032; t30029 = f26175(t30033, t30034); /* x169623 stalin.sc:24863:859444 */ t30028 = q8; /* x169622 stalin.sc:24863:859439 */ t30030.tag = STRUCTURE_TYPE24753; t30030.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30030.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24863, 859438); out_of_memory_error();} t30030.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t30030.value.structure_type24753->s0.value.structure_type24753 = t30029; t30030.value.structure_type24753->s1.tag = NULL_TYPE; a35252 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35252==NULL) {backtrace("stalin.sc", 24863, 859438); out_of_memory_error();} a35252->s0.tag = EXTERNAL_SYMBOL_TYPE; a35252->s0.value.external_symbol_type = t30028; a35252->s1 = t30030; /* x272511 */ t29869.tag = STRUCTURE_TYPE24753; t29869.value.structure_type24753 = a35252; goto l4265; l4264: /* x169677 */ /* x169644 */ /* x169642 */ t30006 = a32218; /* x169643 */ t30007 = q9; /* x169641 */ t30008.tag = EXTERNAL_SYMBOL_TYPE; t30008.value.external_symbol_type = t30007; if (f26160(t30006, t30008)==FALSE_TYPE) goto l4267; /* x169650 */ /* x169649 */ /* x169648 stalin.sc:24864:859523 */ /* x169646 stalin.sc:24864:859537 */ t30026 = a32208; /* x169647 stalin.sc:24864:859539 */ t30027 = "Improper UNQUOTE-SPLICING"; /* x169645 stalin.sc:24864:859524 */ f9705(t30026, t30027); goto l4268; l4267: /* x169676 */ /* x169654 */ /* x169652 */ t30009 = a32218; /* x169653 */ t30010 = q11; /* x169651 */ t30011.tag = EXTERNAL_SYMBOL_TYPE; t30011.value.external_symbol_type = t30010; if (f26160(t30009, t30011)==FALSE_TYPE) goto l4270; /* x169671 */ /* x169670 */ /* x169669 stalin.sc:24865:859583 */ /* x169668 stalin.sc:24865:859598 */ /* x169658 stalin.sc:24865:859601 */ t30016 = a763; /* x169667 */ /* x169662 stalin.sc:24865:859609 */ /* x169661 stalin.sc:24865:859620 */ t30023 = a32216; /* x169660 stalin.sc:24865:859610 */ t30020 = f9722(t30023); /* x169666 */ /* x169664 stalin.sc:24865:859625 */ t30024 = a32215; /* x169665 */ /* x169663 */ t30025.tag = NULL_TYPE; t30021 = f26175(t30024, t30025); /* x169659 */ t30022.tag = STRUCTURE_TYPE24753; t30022.value.structure_type24753 = t30021; t30017 = f26175(t30020, t30022); /* x169657 */ /* MOVE: branching squeezed to general */ if (t30016>=((char *)VALUE_OFFSET)) {t30018.tag = EXTERNAL_SYMBOL_TYPE; t30018.value.external_symbol_type = t30016;} else t30018.tag = (unsigned)t30016; t30019.tag = STRUCTURE_TYPE24753; t30019.value.structure_type24753 = t30017; t30014 = f26175(t30018, t30019); /* x169656 stalin.sc:24865:859589 */ t30013 = q8; /* x169655 stalin.sc:24865:859584 */ t30015.tag = STRUCTURE_TYPE24753; t30015.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30015.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24865, 859583); out_of_memory_error();} t30015.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t30015.value.structure_type24753->s0.value.structure_type24753 = t30014; t30015.value.structure_type24753->s1.tag = NULL_TYPE; a35253 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35253==NULL) {backtrace("stalin.sc", 24865, 859583); out_of_memory_error();} a35253->s0.tag = EXTERNAL_SYMBOL_TYPE; a35253->s0.value.external_symbol_type = t30013; a35253->s1 = t30015; /* x272513 */ t29869.tag = STRUCTURE_TYPE24753; t29869.value.structure_type24753 = a35253; goto l4271; l4270: /* x169675 */ /* x169674 */ /* x169673 stalin.sc:24866:859642 */ /* x169672 stalin.sc:24866:859643 */ /* x297517 QobiScheme.sc:166:5314 */ /* x297516 QobiScheme.sc:166:5321 */ t30012 = "This shouldn\'t happen"; /* x297515 QobiScheme.sc:166:5315 */ stalin_panic(t30012); l4271: l4268: l4265: goto l4238; l4237: /* x169838 */ /* x169691 */ /* x169689 */ t29907 = a32217; /* x169690 */ t29908 = q9; /* x169688 */ t29909.tag = EXTERNAL_SYMBOL_TYPE; t29909.value.external_symbol_type = t29908; if (f26160(t29907, t29909)==FALSE_TYPE) goto l4240; /* x169761 */ /* x169760 */ /* x169759 stalin.sc:24868:859682 */ /* x169758 stalin.sc:24868:859688 */ /* x169757 stalin.sc:24868:859698 */ /* x169756 stalin.sc:24868:859708 */ t30000 = a32215; /* x169755 stalin.sc:24868:859699 */ a41593 = t30000; /* x300484 stalin.sc:6964:241199 */ /* x300483 stalin.sc:6964:241207 */ t30001 = a41593; /* x300482 stalin.sc:6964:241200 */ t29997 = f9719(t30001); /* x169754 stalin.sc:24868:859689 */ a41104 = t29997; /* x298528 stalin.sc:6937:240340 */ /* x298527 stalin.sc:6937:240360 */ t29998 = a41104; /* x298526 stalin.sc:6937:240341 */ a42392 = t29998; /* x303066 */ /* x303065 */ t29999 = a42392; /* x303064 */ if (!((t29999.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37568]"); structure_ref_error();} t29957 = t29999.value.structure_type27510->s9; /* x169753 */ a32219 = t29957; /* x169752 */ /* x169695 */ /* x169693 */ t29958 = a32219; /* x169694 */ t29959 = q8; /* x169692 */ t29960.tag = EXTERNAL_SYMBOL_TYPE; t29960.value.external_symbol_type = t29959; if (f26160(t29958, t29960)==FALSE_TYPE) goto l4255; /* x169714 */ /* x169713 */ /* x169712 stalin.sc:24872:859841 */ /* x169711 stalin.sc:24872:859856 */ /* x169699 stalin.sc:24872:859859 */ t29986 = a764; /* x169710 */ /* x169703 stalin.sc:24872:859869 */ /* x169702 stalin.sc:24872:859880 */ t29993 = a32216; /* x169701 stalin.sc:24872:859870 */ t29990 = f9722(t29993); /* x169709 */ /* x169707 stalin.sc:24872:859885 */ /* x169706 stalin.sc:24872:859896 */ t29996 = a32215; /* x169705 stalin.sc:24872:859886 */ t29994 = f9722(t29996); /* x169708 */ /* x169704 */ t29995.tag = NULL_TYPE; t29991 = f26175(t29994, t29995); /* x169700 */ t29992.tag = STRUCTURE_TYPE24753; t29992.value.structure_type24753 = t29991; t29987 = f26175(t29990, t29992); /* x169698 */ /* MOVE: branching squeezed to general */ if (t29986>=((char *)VALUE_OFFSET)) {t29988.tag = EXTERNAL_SYMBOL_TYPE; t29988.value.external_symbol_type = t29986;} else t29988.tag = (unsigned)t29986; t29989.tag = STRUCTURE_TYPE24753; t29989.value.structure_type24753 = t29987; t29984 = f26175(t29988, t29989); /* x169697 stalin.sc:24872:859847 */ t29983 = q8; /* x169696 stalin.sc:24872:859842 */ t29985.tag = STRUCTURE_TYPE24753; t29985.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29985.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24872, 859841); out_of_memory_error();} t29985.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t29985.value.structure_type24753->s0.value.structure_type24753 = t29984; t29985.value.structure_type24753->s1.tag = NULL_TYPE; a35254 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35254==NULL) {backtrace("stalin.sc", 24872, 859841); out_of_memory_error();} a35254->s0.tag = EXTERNAL_SYMBOL_TYPE; a35254->s0.value.external_symbol_type = t29983; a35254->s1 = t29985; /* x272515 */ t29869.tag = STRUCTURE_TYPE24753; t29869.value.structure_type24753 = a35254; goto l4256; l4255: /* x169751 */ /* x169718 */ /* x169716 */ t29961 = a32219; /* x169717 */ t29962 = q9; /* x169715 */ t29963.tag = EXTERNAL_SYMBOL_TYPE; t29963.value.external_symbol_type = t29962; if (f26160(t29961, t29963)==FALSE_TYPE) goto l4258; /* x169724 */ /* x169723 */ /* x169722 stalin.sc:24873:859928 */ /* x169720 stalin.sc:24873:859942 */ t29981 = a32208; /* x169721 stalin.sc:24873:859944 */ t29982 = "Improper UNQUOTE-SPLICING"; /* x169719 stalin.sc:24873:859929 */ f9705(t29981, t29982); goto l4259; l4258: /* x169750 */ /* x169728 */ /* x169726 */ t29964 = a32219; /* x169727 */ t29965 = q11; /* x169725 */ t29966.tag = EXTERNAL_SYMBOL_TYPE; t29966.value.external_symbol_type = t29965; if (f26160(t29964, t29966)==FALSE_TYPE) goto l4261; /* x169745 */ /* x169744 */ /* x169743 stalin.sc:24876:860056 */ /* x169742 stalin.sc:24876:860071 */ /* x169732 stalin.sc:24876:860074 */ t29971 = a764; /* x169741 */ /* x169736 stalin.sc:24876:860084 */ /* x169735 stalin.sc:24876:860095 */ t29978 = a32216; /* x169734 stalin.sc:24876:860085 */ t29975 = f9722(t29978); /* x169740 */ /* x169738 stalin.sc:24876:860100 */ t29979 = a32215; /* x169739 */ /* x169737 */ t29980.tag = NULL_TYPE; t29976 = f26175(t29979, t29980); /* x169733 */ t29977.tag = STRUCTURE_TYPE24753; t29977.value.structure_type24753 = t29976; t29972 = f26175(t29975, t29977); /* x169731 */ /* MOVE: branching squeezed to general */ if (t29971>=((char *)VALUE_OFFSET)) {t29973.tag = EXTERNAL_SYMBOL_TYPE; t29973.value.external_symbol_type = t29971;} else t29973.tag = (unsigned)t29971; t29974.tag = STRUCTURE_TYPE24753; t29974.value.structure_type24753 = t29972; t29969 = f26175(t29973, t29974); /* x169730 stalin.sc:24876:860062 */ t29968 = q8; /* x169729 stalin.sc:24876:860057 */ t29970.tag = STRUCTURE_TYPE24753; t29970.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29970.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24876, 860056); out_of_memory_error();} t29970.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t29970.value.structure_type24753->s0.value.structure_type24753 = t29969; t29970.value.structure_type24753->s1.tag = NULL_TYPE; a35255 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35255==NULL) {backtrace("stalin.sc", 24876, 860056); out_of_memory_error();} a35255->s0.tag = EXTERNAL_SYMBOL_TYPE; a35255->s0.value.external_symbol_type = t29968; a35255->s1 = t29970; /* x272517 */ t29869.tag = STRUCTURE_TYPE24753; t29869.value.structure_type24753 = a35255; goto l4262; l4261: /* x169749 */ /* x169748 */ /* x169747 stalin.sc:24877:860117 */ /* x169746 stalin.sc:24877:860118 */ /* x297521 QobiScheme.sc:166:5314 */ /* x297520 QobiScheme.sc:166:5321 */ t29967 = "This shouldn\'t happen"; /* x297519 QobiScheme.sc:166:5315 */ stalin_panic(t29967); l4262: l4259: l4256: goto l4241; l4240: /* x169837 */ /* x169765 */ /* x169763 */ t29910 = a32217; /* x169764 */ t29911 = q11; /* x169762 */ t29912.tag = EXTERNAL_SYMBOL_TYPE; t29912.value.external_symbol_type = t29911; if (f26160(t29910, t29912)==FALSE_TYPE) goto l4243; /* x169832 */ /* x169831 */ /* x169830 stalin.sc:24879:860146 */ /* x169829 stalin.sc:24879:860152 */ /* x169828 stalin.sc:24879:860162 */ /* x169827 stalin.sc:24879:860172 */ t29955 = a32215; /* x169826 stalin.sc:24879:860163 */ a41594 = t29955; /* x300488 stalin.sc:6964:241199 */ /* x300487 stalin.sc:6964:241207 */ t29956 = a41594; /* x300486 stalin.sc:6964:241200 */ t29952 = f9719(t29956); /* x169825 stalin.sc:24879:860153 */ a41105 = t29952; /* x298532 stalin.sc:6937:240340 */ /* x298531 stalin.sc:6937:240360 */ t29953 = a41105; /* x298530 stalin.sc:6937:240341 */ a42391 = t29953; /* x303062 */ /* x303061 */ t29954 = a42391; /* x303060 */ if (!((t29954.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37567]"); structure_ref_error();} t29914 = t29954.value.structure_type27510->s9; /* x169824 */ a32220 = t29914; /* x169823 */ /* x169769 */ /* x169767 */ t29915 = a32220; /* x169768 */ t29916 = q8; /* x169766 */ t29917.tag = EXTERNAL_SYMBOL_TYPE; t29917.value.external_symbol_type = t29916; if (f26160(t29915, t29917)==FALSE_TYPE) goto l4246; /* x169786 */ /* x169785 */ /* x169784 stalin.sc:24880:860193 */ /* x169783 stalin.sc:24880:860208 */ /* x169773 stalin.sc:24880:860211 */ t29942 = a763; /* x169782 */ /* x169775 stalin.sc:24880:860219 */ t29946 = a32216; /* x169781 */ /* x169779 stalin.sc:24880:860223 */ /* x169778 stalin.sc:24880:860234 */ t29951 = a32215; /* x169777 stalin.sc:24880:860224 */ t29949 = f9722(t29951); /* x169780 */ /* x169776 */ t29950.tag = NULL_TYPE; t29947 = f26175(t29949, t29950); /* x169774 */ t29948.tag = STRUCTURE_TYPE24753; t29948.value.structure_type24753 = t29947; t29943 = f26175(t29946, t29948); /* x169772 */ /* MOVE: branching squeezed to general */ if (t29942>=((char *)VALUE_OFFSET)) {t29944.tag = EXTERNAL_SYMBOL_TYPE; t29944.value.external_symbol_type = t29942;} else t29944.tag = (unsigned)t29942; t29945.tag = STRUCTURE_TYPE24753; t29945.value.structure_type24753 = t29943; t29940 = f26175(t29944, t29945); /* x169771 stalin.sc:24880:860199 */ t29939 = q8; /* x169770 stalin.sc:24880:860194 */ t29941.tag = STRUCTURE_TYPE24753; t29941.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t29941.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24880, 860193); out_of_memory_error();} t29941.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t29941.value.structure_type24753->s0.value.structure_type24753 = t29940; t29941.value.structure_type24753->s1.tag = NULL_TYPE; a35256 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35256==NULL) {backtrace("stalin.sc", 24880, 860193); out_of_memory_error();} a35256->s0.tag = EXTERNAL_SYMBOL_TYPE; a35256->s0.value.external_symbol_type = t29939; a35256->s1 = t29941; /* x272519 */ t29869.tag = STRUCTURE_TYPE24753; t29869.value.structure_type24753 = a35256; goto l4247; l4246: /* x169822 */ /* x169790 */ /* x169788 */ t29918 = a32220; /* x169789 */ t29919 = q9; /* x169787 */ t29920.tag = EXTERNAL_SYMBOL_TYPE; t29920.value.external_symbol_type = t29919; if (f26160(t29918, t29920)==FALSE_TYPE) goto l4249; /* x169796 */ /* x169795 */ /* x169794 stalin.sc:24881:860266 */ /* x169792 stalin.sc:24881:860280 */ t29937 = a32208; /* x169793 stalin.sc:24881:860282 */ t29938 = "Improper UNQUOTE-SPLICING"; /* x169791 stalin.sc:24881:860267 */ f9705(t29937, t29938); goto l4250; l4249: /* x169821 */ /* x169800 */ /* x169798 */ t29921 = a32220; /* x169799 */ t29922 = q11; /* x169797 */ t29923.tag = EXTERNAL_SYMBOL_TYPE; t29923.value.external_symbol_type = t29922; if (f26160(t29921, t29923)==FALSE_TYPE) goto l4252; /* x169816 */ /* x169815 */ /* x169814 stalin.sc:24882:860326 */ /* x169802 */ t29925 = q11; /* x169813 */ /* x169811 */ /* x169807 stalin.sc:24882:860330 */ /* x169806 stalin.sc:24882:860341 */ t29935 = a32216; /* x169805 stalin.sc:24882:860331 */ t29933 = f9722(t29935); /* x169810 stalin.sc:24882:860348 */ /* x169809 stalin.sc:24882:860359 */ t29936 = a32215; /* x169808 stalin.sc:24882:860349 */ t29934 = f9722(t29936); /* x169804 */ t29930 = f26175(t29933, t29934); /* x169812 */ /* x169803 */ t29931.tag = STRUCTURE_TYPE24753; t29931.value.structure_type24753 = t29930; t29932.tag = NULL_TYPE; t29926 = f26175(t29931, t29932); /* x169801 */ t29927.tag = EXTERNAL_SYMBOL_TYPE; t29927.value.external_symbol_type = t29925; t29928.tag = STRUCTURE_TYPE24753; t29928.value.structure_type24753 = t29926; t29929 = f26175(t29927, t29928); t29869.tag = STRUCTURE_TYPE24753; t29869.value.structure_type24753 = t29929; goto l4253; l4252: /* x169820 */ /* x169819 */ /* x169818 stalin.sc:24883:860376 */ /* x169817 stalin.sc:24883:860377 */ /* x297525 QobiScheme.sc:166:5314 */ /* x297524 QobiScheme.sc:166:5321 */ t29924 = "This shouldn\'t happen"; /* x297523 QobiScheme.sc:166:5315 */ stalin_panic(t29924); l4253: l4250: l4247: goto l4244; l4243: /* x169836 */ /* x169835 */ /* x169834 stalin.sc:24884:860398 */ /* x169833 stalin.sc:24884:860399 */ /* x297529 QobiScheme.sc:166:5314 */ /* x297528 QobiScheme.sc:166:5321 */ t29913 = "This shouldn\'t happen"; /* x297527 QobiScheme.sc:166:5315 */ stalin_panic(t29913); l4244: l4241: l4238: goto l4235; l4234: /* x169869 */ /* x169868 */ /* x169867 stalin.sc:24885:860425 */ /* x169862 */ t29894 = q11; /* x169866 */ /* x169864 stalin.sc:24885:860428 */ t29899 = a32208; /* x169865 */ /* x169863 */ t29900.tag = NULL_TYPE; t29895 = f26175(t29899, t29900); /* x169861 */ t29896.tag = EXTERNAL_SYMBOL_TYPE; t29896.value.external_symbol_type = t29894; t29897.tag = STRUCTURE_TYPE24753; t29897.value.structure_type24753 = t29895; t29898 = f26175(t29896, t29897); t29869.tag = STRUCTURE_TYPE24753; t29869.value.structure_type24753 = t29898; l4235: l4232: l4226: goto l4223; l4222: /* x169879 stalin.sc:24886:860438 */ /* x169874 */ t29871 = q11; /* x169878 */ /* x169876 stalin.sc:24886:860441 */ t29876 = a32208; /* x169877 */ /* x169875 */ t29877.tag = NULL_TYPE; t29872 = f26175(t29876, t29877); /* x169873 */ t29873.tag = EXTERNAL_SYMBOL_TYPE; t29873.value.external_symbol_type = t29871; t29874.tag = STRUCTURE_TYPE24753; t29874.value.structure_type24753 = t29872; t29875 = f26175(t29873, t29874); t29869.tag = STRUCTURE_TYPE24753; t29869.value.structure_type24753 = t29875; l4223: /* x169441 stalin.sc:24828:858405 */ return f9774(t29869);} /* CONTAINS-UNQUOTE?[18151] */ unsigned f18151(struct w49 a32203) {struct w49 a14711; /* V */ int a14715; /* I */ struct w49 a22958; /* S */ struct w49 a41109; /* S */ struct w49 a41601; /* S */ struct w49 a41602; /* S */ struct w49 a42387; /* S */ struct w49 t30105; int t30106; int t30107; struct w49 t30108; struct w49 t30109; char *t30110; struct w49 t30111; struct w49 t30112; struct w49 t30113; struct w49 t30114; char *t30115; struct w49 t30116; struct w49 t30117; struct w49 t30118; struct w49 t30119; struct w49 t30120; struct w49 t30121; int t30122; int t30123; int t30124; struct w49 t30125; struct w49 t30126; struct structure_type24753 *t30127; struct w49 t30128; struct w49 t30129; int t30130; struct p1057 *t30131; struct w36270 t30132; struct w49 t30133; struct structure_type24753 *t30134; int t30135; int t30136; int t30137; struct w49 t30138; struct w49 t30139; struct w49 t30140; struct w49 t30141; struct w49 t30142; struct w49 t30143; struct w49 t30144; struct w49 t30145; struct p1057 *e1057; struct p1057 *p1058; h18151: /* x169438 stalin.sc:24817:857937 */ /* x169438 stalin.sc:24817:857937 */ /* x169437 stalin.sc:24817:857941 */ /* x169410 stalin.sc:24817:857946 */ /* x169409 stalin.sc:24817:857956 */ t30105 = a32203; /* x169408 stalin.sc:24817:857947 */ if (f9766(t30105)==FALSE_TYPE) goto l4278; /* x169435 */ /* x169416 stalin.sc:24818:857962 */ /* x169414 stalin.sc:24818:857965 */ /* x169413 stalin.sc:24818:857976 */ t30108 = a32203; /* x169412 stalin.sc:24818:857966 */ t30106 = f9734(t30108); /* x169415 stalin.sc:24818:857979 */ t30107 = 2; /* x268004 stalin.sc:24818:857963 */ if (!(t30106==t30107)) goto l4278; /* x169433 */ /* x169432 stalin.sc:24819:857989 */ /* x169430 stalin.sc:24819:857997 */ /* x169429 stalin.sc:24819:858007 */ t30112 = a32203; /* x169428 stalin.sc:24819:857998 */ a41602 = t30112; /* x300520 stalin.sc:6964:241199 */ /* x300519 stalin.sc:6964:241207 */ t30113 = a41602; /* x300518 stalin.sc:6964:241200 */ t30109 = f9719(t30113); /* x169431 stalin.sc:24819:858010 */ t30110 = q8; /* x169427 stalin.sc:24819:857990 */ t30111.tag = EXTERNAL_SYMBOL_TYPE; t30111.value.external_symbol_type = t30110; if (!(f9745(t30109, t30111)==FALSE_TYPE)) goto l4275; /* x169424 */ /* x169422 stalin.sc:24820:858035 */ /* x169421 stalin.sc:24820:858045 */ t30117 = a32203; /* x169420 stalin.sc:24820:858036 */ a41601 = t30117; /* x300516 stalin.sc:6964:241199 */ /* x300515 stalin.sc:6964:241207 */ t30118 = a41601; /* x300514 stalin.sc:6964:241200 */ t30114 = f9719(t30118); /* x169423 stalin.sc:24820:858048 */ t30115 = q9; /* x169419 stalin.sc:24820:858028 */ t30116.tag = EXTERNAL_SYMBOL_TYPE; t30116.value.external_symbol_type = t30115; if (!(f9745(t30114, t30116)==FALSE_TYPE)) goto l4275; l4278: /* x169405 */ /* x169404 stalin.sc:24821:858074 */ /* x169398 stalin.sc:24821:858079 */ /* x169397 stalin.sc:24821:858091 */ t30119 = a32203; /* x169396 stalin.sc:24821:858080 */ if (f9743(t30119)==FALSE_TYPE) goto l4282; /* x169402 */ /* x169400 stalin.sc:24821:858110 */ /* x169401 stalin.sc:24821:858128 */ t30120 = a32203; /* x169399 stalin.sc:24821:858095 */ a22958 = t30120; /* x86890 stalin.sc:7081:244121 */ /* x86889 stalin.sc:7081:244136 */ /* x86888 stalin.sc:7081:244146 */ t30138 = a22958; /* x86887 stalin.sc:7081:244137 */ a41109 = t30138; /* x298548 stalin.sc:6937:240340 */ /* x298547 stalin.sc:6937:240360 */ t30139 = a41109; /* x298546 stalin.sc:6937:240341 */ a42387 = t30139; /* x303046 */ /* x303045 */ t30140 = a42387; /* x303044 */ if (!((t30140.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37563]"); structure_ref_error();} t30121 = t30140.value.structure_type27510->s9; /* x86886 stalin.sc:7081:244134 */ /* x86885 stalin.sc:7081:244122 */ a14711 = t30121; /* x14496 QobiScheme.sc:318:9768 */ /* x14495 QobiScheme.sc:318:9782 */ t30122 = 0; /* x14494 */ /* x14493 */ /* x14492 */ /* x14491 */ /* x14490 */ /* x14489 */ /* x14488 */ /* x14453 */ /* x14452 QobiScheme.sc:318:9773 */ a14715 = t30122; h1057: e1057 = (struct p1057 *)alloca(sizeof(struct p1057)); if (e1057==NULL) {backtrace_internal("[inside SOME-VECTOR 1055]"); out_of_memory_error();} e1057->a14715 = a14715; /* x14487 QobiScheme.sc:319:9788 */ /* x14459 QobiScheme.sc:319:9793 */ /* x14455 QobiScheme.sc:319:9796 */ t30123 = e1057->a14715; /* x14458 QobiScheme.sc:319:9798 */ /* x14457 QobiScheme.sc:319:9813 */ t30125 = a14711; /* x270960 QobiScheme.sc:319:9799 */ if (!((t30125.tag)==HEADED_VECTOR_TYPE27896)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 319, 9798); vector_length_error();} t30124 = t30125.value.headed_vector_type27896->length; /* x270961 QobiScheme.sc:319:9794 */ if (!(t30123a14715; /* x270957 QobiScheme.sc:321:9842 */ if (!((t30129.tag)==HEADED_VECTOR_TYPE27896)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 321, 9841); vector_ref1_error();} if ((t30130<0)||(t30130>=(t30129.value.headed_vector_type27896->length))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 321, 9841); vector_ref3_error();} t30126 = (t30129.value.headed_vector_type27896->element)[t30130]; /* x14483 QobiScheme.sc:322:9862 */ /* x14482 QobiScheme.sc:322:9897 */ /* x14481 QobiScheme.sc:322:9867 */ t30131 = e1057; /* x14476 QobiScheme.sc:322:9863 */ t30132.tag = NATIVE_PROCEDURE_TYPE14281; t30132.value.native_procedure_type14281 = t30131; t30133.tag = NULL_TYPE; t30134 = (struct structure_type24753 *)NULL_TYPE; t30127 = f27731(t30132, t30133, t30134); /* x270958 QobiScheme.sc:320:9829 */ t30128 = t30126; if (!(((unsigned)t30127)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 320, 9828); call_error();} if (!(f18151(t30128)==FALSE_TYPE)) goto l4275; p1058 = e1057; /* x14467 */ /* x14466 QobiScheme.sc:323:9915 */ /* x14464 QobiScheme.sc:323:9918 */ t30136 = p1058->a14715; /* x14465 QobiScheme.sc:323:9920 */ t30137 = 1; /* x270959 QobiScheme.sc:323:9916 */ t30135 = t30136+t30137; /* x14462 QobiScheme.sc:323:9910 */ a14715 = t30135; goto h1057; l4282: /* x169393 */ /* x169376 stalin.sc:24822:858142 */ /* x169375 stalin.sc:24822:858152 */ t30141 = a32203; /* x169374 stalin.sc:24822:858143 */ if (f9740(t30141)==FALSE_TYPE) goto l4276; /* x169391 */ /* x169390 stalin.sc:24823:858162 */ /* x169389 stalin.sc:24823:858181 */ /* x169388 stalin.sc:24823:858189 */ t30143 = a32203; /* x169387 stalin.sc:24823:858182 */ t30142 = f9719(t30143); /* x169386 stalin.sc:24823:858163 */ if (!(f18151(t30142)==FALSE_TYPE)) goto l4275; /* x169383 */ /* x169382 stalin.sc:24823:858212 */ /* x169381 stalin.sc:24823:858220 */ t30145 = a32203; /* x169380 stalin.sc:24823:858213 */ t30144 = f9720(t30145); /* x169379 stalin.sc:24823:858194 */ a32203 = t30144; goto h18151; l4275: return TRUE_TYPE; l4276: return FALSE_TYPE;} /* [inside top level 18148] */ struct structure_type24753 *f18148(struct p18144 *p18148, unsigned a32202) {char *t30146; struct structure_type27745 *t30147; unsigned t30148; struct w49 t30149; /* x169303 stalin.sc:24805:857670 */ /* x169300 stalin.sc:24805:857685 */ t30146 = "call"; /* x169301 stalin.sc:24805:857692 */ t30147 = p18148->a32182; /* x169302 stalin.sc:24805:857694 */ t30148 = a32202; /* x169299 stalin.sc:24805:857671 */ t30149.tag = STRUCTURE_TYPE27745; t30149.value.structure_type27745 = t30147; return f15534(t30146, t30149, t30148);} /* [inside top level 18147] */ struct w49 f18147(void) {struct p18144 *p18147 = d18147; struct w49 a32201 = b32201; /* U1 */ struct structure_type27501 *t30150; struct structure_type27745 *t30151; struct w49 t30152; struct w49 t30153; struct w49 t30154; struct w49 t30155; struct w49 t30156; struct structure_type27650 *t30157; struct structure_type27745 *t30158; char *t30159; struct structure_type27745 *t30160; /* x169297 stalin.sc:24803:857554 */ /* x169283 stalin.sc:24803:857568 */ t30150 = p18147->a32181; /* x169287 stalin.sc:24803:857570 */ /* x169285 stalin.sc:24803:857590 */ t30158 = p18147->a32182; /* x169286 stalin.sc:24803:857592 */ t30159 = q64; /* x169284 stalin.sc:24803:857571 */ t30160 = t30158; t30151 = f8743(t30160, t30159); /* x169288 stalin.sc:24804:857616 */ t30152 = p18147->a32191; /* x169289 stalin.sc:24804:857619 */ t30153 = a32201; /* x169290 stalin.sc:24804:857622 */ t30154 = p18147->a32192; /* x169291 stalin.sc:24804:857625 */ t30155 = p18147->a32189; /* x169292 stalin.sc:24804:857628 */ t30156 = p18147->a32190; /* x169293 stalin.sc:24804:857631 */ /* x169294 stalin.sc:24804:857635 */ /* x169295 stalin.sc:24804:857639 */ /* x169296 stalin.sc:24804:857642 */ t30157 = a1675; /* x169282 stalin.sc:24803:857555 */ b26962 = t30150; b26963 = t30151; b26964 = t30152; b26965 = t30153; b26966 = t30154; b26967 = t30155; b26968 = t30156; b26969.tag = NULL_TYPE; b26970.tag = NULL_TYPE; b26971.tag = FALSE_TYPE; /* MOVE: branching squeezed to general */ if (t30157>=((struct structure_type27650 *)VALUE_OFFSET)) {b26972.tag = STRUCTURE_TYPE27650; b26972.value.structure_type27650 = t30157;} else b26972.tag = (unsigned)t30157; return f15827();} /* [inside top level 18140] */ struct structure_type24753 *f18140(struct structure_type27745 *a32162, struct w49 a32165) {struct structure_type24753 *a34923; /* OBJS */ struct structure_type24753 *a34924; /* OBJS */ unsigned t30161; struct structure_type24753 *t30162; struct structure_type27650 *t30163; struct structure_type27745 *t30164; struct w49 t30165; struct w49 t30166; struct structure_type27745 *t30167; struct structure_type27745 *t30168; struct w49 t30169; struct w49 t30170; struct structure_type27745 *t30171; char *t30172; struct structure_type27745 *t30173; /* x169227 stalin.sc:24761:856062 */ /* x169226 stalin.sc:24761:856068 */ /* x169220 stalin.sc:24762:856098 */ /* x169215 stalin.sc:24762:856102 */ /* x169214 stalin.sc:24762:856114 */ t30168 = a32162; /* x169213 stalin.sc:24762:856103 */ t30169.tag = STRUCTURE_TYPE27745; t30169.value.structure_type27745 = t30168; if (f8944(t30169)==FALSE_TYPE) goto l4289; /* x169218 stalin.sc:24762:856117 */ /* x169217 stalin.sc:24762:856123 */ t30170 = a32165; /* x169216 stalin.sc:24762:856118 */ a34924 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34924==NULL) {backtrace("stalin.sc", 24762, 856117); out_of_memory_error();} a34924->s0 = t30170; a34924->s1.tag = NULL_TYPE; /* x271855 */ t30162 = a34924; goto l4290; l4289: /* x169219 stalin.sc:24762:856127 */ t30162 = (struct structure_type24753 *)NULL_TYPE; l4290: /* x169221 stalin.sc:24763:856133 */ t30163 = a1675; /* x169225 stalin.sc:24764:856141 */ /* x169223 stalin.sc:24764:856161 */ t30171 = a32162; /* x169224 stalin.sc:24764:856163 */ t30172 = q64; /* x169222 stalin.sc:24764:856142 */ t30173 = t30171; t30164 = f8743(t30173, t30172); /* x169212 stalin.sc:24761:856069 */ /* MOVE: branching squeezed to general */ if (t30162>=((struct structure_type24753 *)VALUE_OFFSET)) {t30165.tag = STRUCTURE_TYPE24753; t30165.value.structure_type24753 = t30162;} else t30165.tag = (unsigned)t30162; /* MOVE: branching squeezed to general */ if (t30163>=((struct structure_type27650 *)VALUE_OFFSET)) {t30166.tag = STRUCTURE_TYPE27650; t30166.value.structure_type27650 = t30163;} else t30166.tag = (unsigned)t30163; t30167 = t30164; t30161 = f7892(t30165, t30166, t30167); /* x169211 stalin.sc:24761:856063 */ a34923 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34923==NULL) {backtrace("stalin.sc", 24761, 856062); out_of_memory_error();} /* MOVE: dispatching squished to general */ if ((t30161&3)==1) {a34923->s0.tag = NATIVE_PROCEDURE_TYPE19067; a34923->s0.value.native_procedure_type19067 = (struct p7892 *)(t30161-1);} else {a34923->s0.tag = NATIVE_PROCEDURE_TYPE19068; a34923->s0.value.native_procedure_type19068 = (struct p7892 *)t30161;} a34923->s1.tag = NULL_TYPE; /* x271853 */ return a34923;} /* [inside top level 18139] */ struct structure_type24753 *f18139(struct structure_type27745 *a32158, struct w49 a32161) {struct structure_type24753 *a35009; /* OBJS */ struct structure_type24753 *a35010; /* OBJS */ unsigned t30174; struct structure_type24753 *t30175; struct structure_type27650 *t30176; struct structure_type27745 *t30177; struct w49 t30178; struct w49 t30179; struct structure_type27745 *t30180; struct structure_type27745 *t30181; struct w49 t30182; struct w49 t30183; struct structure_type27745 *t30184; char *t30185; struct structure_type27745 *t30186; /* x169209 stalin.sc:24757:855941 */ /* x169208 stalin.sc:24757:855947 */ /* x169202 stalin.sc:24758:855977 */ /* x169197 stalin.sc:24758:855981 */ /* x169196 stalin.sc:24758:855993 */ t30181 = a32158; /* x169195 stalin.sc:24758:855982 */ t30182.tag = STRUCTURE_TYPE27745; t30182.value.structure_type27745 = t30181; if (f8944(t30182)==FALSE_TYPE) goto l4292; /* x169200 stalin.sc:24758:855996 */ /* x169199 stalin.sc:24758:856002 */ t30183 = a32161; /* x169198 stalin.sc:24758:855997 */ a35010 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35010==NULL) {backtrace("stalin.sc", 24758, 855996); out_of_memory_error();} a35010->s0 = t30183; a35010->s1.tag = NULL_TYPE; /* x272027 */ t30175 = a35010; goto l4293; l4292: /* x169201 stalin.sc:24758:856006 */ t30175 = (struct structure_type24753 *)NULL_TYPE; l4293: /* x169203 stalin.sc:24759:856012 */ t30176 = a1675; /* x169207 stalin.sc:24760:856020 */ /* x169205 stalin.sc:24760:856040 */ t30184 = a32158; /* x169206 stalin.sc:24760:856042 */ t30185 = q64; /* x169204 stalin.sc:24760:856021 */ t30186 = t30184; t30177 = f8743(t30186, t30185); /* x169194 stalin.sc:24757:855948 */ /* MOVE: branching squeezed to general */ if (t30175>=((struct structure_type24753 *)VALUE_OFFSET)) {t30178.tag = STRUCTURE_TYPE24753; t30178.value.structure_type24753 = t30175;} else t30178.tag = (unsigned)t30175; /* MOVE: branching squeezed to general */ if (t30176>=((struct structure_type27650 *)VALUE_OFFSET)) {t30179.tag = STRUCTURE_TYPE27650; t30179.value.structure_type27650 = t30176;} else t30179.tag = (unsigned)t30176; t30180 = t30177; t30174 = f7892(t30178, t30179, t30180); /* x169193 stalin.sc:24757:855942 */ a35009 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35009==NULL) {backtrace("stalin.sc", 24757, 855941); out_of_memory_error();} /* MOVE: dispatching squished to general */ if ((t30174&3)==1) {a35009->s0.tag = NATIVE_PROCEDURE_TYPE19067; a35009->s0.value.native_procedure_type19067 = (struct p7892 *)(t30174-1);} else {a35009->s0.tag = NATIVE_PROCEDURE_TYPE19068; a35009->s0.value.native_procedure_type19068 = (struct p7892 *)t30174;} a35009->s1.tag = NULL_TYPE; /* x272025 */ return a35009;} /* [inside top level 18138] */ struct p16282 *f18138(struct structure_type27745 *a32155, struct w49 a32157) {struct structure_type24753 *a35159; /* OBJS */ unsigned t30187; unsigned t30188; struct structure_type24753 *t30189; struct structure_type27650 *t30190; struct structure_type27745 *t30191; struct w49 t30192; struct w49 t30193; struct structure_type27745 *t30194; struct structure_type27745 *t30195; struct w49 t30196; struct w49 t30197; struct structure_type27745 *t30198; char *t30199; /* x169191 stalin.sc:24752:855786 */ /* x169190 stalin.sc:24753:855820 */ /* x169184 stalin.sc:24754:855852 */ /* x169179 stalin.sc:24754:855856 */ /* x169178 stalin.sc:24754:855868 */ t30195 = a32155; /* x169177 stalin.sc:24754:855857 */ /* MOVE: branching squeezed to general */ if (t30195>=((struct structure_type27745 *)VALUE_OFFSET)) {t30196.tag = STRUCTURE_TYPE27745; t30196.value.structure_type27745 = t30195;} else t30196.tag = (unsigned)t30195; if (f8944(t30196)==FALSE_TYPE) goto l4295; /* x169182 stalin.sc:24754:855871 */ /* x169181 stalin.sc:24754:855877 */ t30197 = a32157; /* x169180 stalin.sc:24754:855872 */ a35159 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35159==NULL) {backtrace("stalin.sc", 24754, 855871); out_of_memory_error();} a35159->s0 = t30197; a35159->s1.tag = NULL_TYPE; /* x272325 */ t30189 = a35159; goto l4296; l4295: /* x169183 stalin.sc:24754:855881 */ t30189 = (struct structure_type24753 *)NULL_TYPE; l4296: /* x169185 stalin.sc:24755:855889 */ t30190 = a1675; /* x169189 stalin.sc:24756:855899 */ /* x169187 stalin.sc:24756:855919 */ t30198 = a32155; /* x169188 stalin.sc:24756:855921 */ t30199 = q64; /* x169186 stalin.sc:24756:855900 */ t30191 = f8743(t30198, t30199); /* x169176 stalin.sc:24753:855821 */ /* MOVE: branching squeezed to general */ if (t30189>=((struct structure_type24753 *)VALUE_OFFSET)) {t30192.tag = STRUCTURE_TYPE24753; t30192.value.structure_type24753 = t30189;} else t30192.tag = (unsigned)t30189; /* MOVE: branching squeezed to general */ if (t30190>=((struct structure_type27650 *)VALUE_OFFSET)) {t30193.tag = STRUCTURE_TYPE27650; t30193.value.structure_type27650 = t30190;} else t30193.tag = (unsigned)t30190; t30194 = t30191; t30187 = f7892(t30192, t30193, t30194); /* x169175 stalin.sc:24752:855787 */ /* MOVE: squished to squished */ t30188 = ((unsigned)(t30187&(~3)))+("\001\000"[t30187&3]); return f16282(t30188);} /* [inside top level 18135] */ struct structure_type24753 *f18135(struct p18129 *p18135, unsigned a32154) {char *t30200; struct structure_type27745 *t30201; unsigned t30202; struct w49 t30203; /* x169131 stalin.sc:24744:855522 */ /* x169128 stalin.sc:24744:855537 */ t30200 = "call"; /* x169129 stalin.sc:24744:855544 */ t30201 = p18135->a32133; /* x169130 stalin.sc:24744:855546 */ t30202 = a32154; /* x169127 stalin.sc:24744:855523 */ t30203.tag = STRUCTURE_TYPE27745; t30203.value.structure_type27745 = t30201; return f15534(t30200, t30203, t30202);} /* [inside top level 18134] */ struct w49 f18134(void) {struct p18129 *p18134 = d18134; struct w49 a32153 = b32153; /* U2 */ struct structure_type27501 *t30204; struct structure_type27745 *t30205; struct w49 t30206; struct w49 t30207; struct w49 t30208; struct w49 t30209; struct w49 t30210; struct structure_type27650 *t30211; struct structure_type27501 *t30212; struct structure_type27745 *t30213; char *t30214; struct structure_type27745 *t30215; /* x169125 stalin.sc:24742:855399 */ /* x169111 stalin.sc:24742:855413 */ /* x169110 stalin.sc:24742:855426 */ t30212 = p18134->a32132; /* x169109 stalin.sc:24742:855414 */ t30204 = f15762(t30212); /* x169115 stalin.sc:24742:855429 */ /* x169113 stalin.sc:24742:855449 */ t30213 = p18134->a32133; /* x169114 stalin.sc:24742:855451 */ t30214 = q65; /* x169112 stalin.sc:24742:855430 */ t30215 = t30213; t30205 = f8743(t30215, t30214); /* x169116 stalin.sc:24743:855472 */ t30206 = p18134->a32144; /* x169117 stalin.sc:24743:855475 */ t30207 = a32153; /* x169118 stalin.sc:24743:855478 */ t30208 = p18134->a32145; /* x169119 stalin.sc:24743:855481 */ t30209 = p18134->a32140; /* x169120 stalin.sc:24743:855484 */ t30210 = p18134->a32141; /* x169121 stalin.sc:24743:855487 */ /* x169122 stalin.sc:24743:855491 */ /* x169123 stalin.sc:24743:855495 */ /* x169124 stalin.sc:24743:855498 */ t30211 = a1675; /* x169108 stalin.sc:24742:855400 */ b26962 = t30204; b26963 = t30205; b26964 = t30206; b26965 = t30207; b26966 = t30208; b26967 = t30209; b26968 = t30210; b26969.tag = NULL_TYPE; b26970.tag = NULL_TYPE; b26971.tag = FALSE_TYPE; /* MOVE: branching squeezed to general */ if (t30211>=((struct structure_type27650 *)VALUE_OFFSET)) {b26972.tag = STRUCTURE_TYPE27650; b26972.value.structure_type27650 = t30211;} else b26972.tag = (unsigned)t30211; return f15827();} /* [inside top level 18133] */ struct structure_type24753 *f18133(struct p18129 *p18133, unsigned a32152) {char *t30216; struct structure_type27745 *t30217; unsigned t30218; struct w49 t30219; /* x169074 stalin.sc:24730:855066 */ /* x169071 stalin.sc:24730:855081 */ t30216 = "call"; /* x169072 stalin.sc:24730:855088 */ t30217 = p18133->a32133; /* x169073 stalin.sc:24730:855090 */ t30218 = a32152; /* x169070 stalin.sc:24730:855067 */ t30219.tag = STRUCTURE_TYPE27745; t30219.value.structure_type27745 = t30217; return f15534(t30216, t30219, t30218);} /* [inside top level 18132] */ struct w49 f18132(void) {struct p18129 *p18132 = d18132; struct w49 a32151 = b32151; /* U1 */ struct structure_type27501 *t30220; struct structure_type27745 *t30221; struct w49 t30222; struct w49 t30223; struct w49 t30224; struct w49 t30225; struct w49 t30226; struct structure_type27650 *t30227; struct structure_type27501 *t30228; struct structure_type27745 *t30229; char *t30230; struct structure_type27745 *t30231; /* x169068 stalin.sc:24727:854933 */ /* x169054 stalin.sc:24728:854953 */ /* x169053 stalin.sc:24728:854966 */ t30228 = p18132->a32132; /* x169052 stalin.sc:24728:854954 */ t30220 = f15762(t30228); /* x169058 stalin.sc:24728:854969 */ /* x169056 stalin.sc:24728:854989 */ t30229 = p18132->a32133; /* x169057 stalin.sc:24728:854991 */ t30230 = q64; /* x169055 stalin.sc:24728:854970 */ t30231 = t30229; t30221 = f8743(t30231, t30230); /* x169059 stalin.sc:24729:855014 */ t30222 = p18132->a32142; /* x169060 stalin.sc:24729:855017 */ t30223 = a32151; /* x169061 stalin.sc:24729:855020 */ t30224 = p18132->a32143; /* x169062 stalin.sc:24729:855023 */ t30225 = p18132->a32140; /* x169063 stalin.sc:24729:855026 */ t30226 = p18132->a32141; /* x169064 stalin.sc:24729:855029 */ /* x169065 stalin.sc:24729:855033 */ /* x169066 stalin.sc:24729:855037 */ /* x169067 stalin.sc:24729:855040 */ t30227 = a1675; /* x169051 stalin.sc:24727:854934 */ b26962 = t30220; b26963 = t30221; b26964 = t30222; b26965 = t30223; b26966 = t30224; b26967 = t30225; b26968 = t30226; b26969.tag = NULL_TYPE; b26970.tag = NULL_TYPE; b26971.tag = FALSE_TYPE; /* MOVE: branching squeezed to general */ if (t30227>=((struct structure_type27650 *)VALUE_OFFSET)) {b26972.tag = STRUCTURE_TYPE27650; b26972.value.structure_type27650 = t30227;} else b26972.tag = (unsigned)t30227; return f15827();} /* [inside top level 18124] */ struct structure_type24753 *f18124(struct structure_type27745 *a32111, struct w49 a32114) {struct structure_type24753 *a34925; /* OBJS */ struct structure_type24753 *a34926; /* OBJS */ struct structure_type24753 *a34927; /* OBJS */ unsigned t30232; unsigned t30233; struct w49 t30234; struct structure_type24753 *t30235; struct structure_type27650 *t30236; struct structure_type27745 *t30237; struct w49 t30238; struct w49 t30239; struct structure_type27745 *t30240; struct structure_type27745 *t30241; struct w49 t30242; struct w49 t30243; struct structure_type27745 *t30244; char *t30245; struct structure_type27745 *t30246; struct structure_type24753 *t30247; struct structure_type27650 *t30248; struct structure_type27745 *t30249; struct w49 t30250; struct w49 t30251; struct structure_type27745 *t30252; struct structure_type27745 *t30253; struct w49 t30254; struct w49 t30255; struct structure_type27745 *t30256; char *t30257; struct structure_type27745 *t30258; /* x168979 stalin.sc:24684:853585 */ /* x168978 stalin.sc:24688:853711 */ /* x168972 stalin.sc:24689:853741 */ /* x168967 stalin.sc:24689:853745 */ /* x168966 stalin.sc:24689:853757 */ t30253 = a32111; /* x168965 stalin.sc:24689:853746 */ t30254.tag = STRUCTURE_TYPE27745; t30254.value.structure_type27745 = t30253; if (f8944(t30254)==FALSE_TYPE) goto l4301; /* x168970 stalin.sc:24689:853760 */ /* x168969 stalin.sc:24689:853766 */ t30255 = a32114; /* x168968 stalin.sc:24689:853761 */ a34927 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34927==NULL) {backtrace("stalin.sc", 24689, 853760); out_of_memory_error();} a34927->s0 = t30255; a34927->s1.tag = NULL_TYPE; /* x271861 */ t30247 = a34927; goto l4302; l4301: /* x168971 stalin.sc:24689:853770 */ t30247 = (struct structure_type24753 *)NULL_TYPE; l4302: /* x168973 stalin.sc:24690:853776 */ t30248 = a1675; /* x168977 stalin.sc:24691:853784 */ /* x168975 stalin.sc:24691:853804 */ t30256 = a32111; /* x168976 stalin.sc:24691:853806 */ t30257 = q65; /* x168974 stalin.sc:24691:853785 */ t30258 = t30256; t30249 = f8743(t30258, t30257); /* x168964 stalin.sc:24688:853712 */ /* MOVE: branching squeezed to general */ if (t30247>=((struct structure_type24753 *)VALUE_OFFSET)) {t30250.tag = STRUCTURE_TYPE24753; t30250.value.structure_type24753 = t30247;} else t30250.tag = (unsigned)t30247; /* MOVE: branching squeezed to general */ if (t30248>=((struct structure_type27650 *)VALUE_OFFSET)) {t30251.tag = STRUCTURE_TYPE27650; t30251.value.structure_type27650 = t30248;} else t30251.tag = (unsigned)t30248; t30252 = t30249; t30233 = f7892(t30250, t30251, t30252); /* x168963 stalin.sc:24684:853591 */ /* x168957 stalin.sc:24685:853621 */ /* x168952 stalin.sc:24685:853625 */ /* x168951 stalin.sc:24685:853637 */ t30241 = a32111; /* x168950 stalin.sc:24685:853626 */ t30242.tag = STRUCTURE_TYPE27745; t30242.value.structure_type27745 = t30241; if (f8944(t30242)==FALSE_TYPE) goto l4298; /* x168955 stalin.sc:24685:853640 */ /* x168954 stalin.sc:24685:853646 */ t30243 = a32114; /* x168953 stalin.sc:24685:853641 */ a34926 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34926==NULL) {backtrace("stalin.sc", 24685, 853640); out_of_memory_error();} a34926->s0 = t30243; a34926->s1.tag = NULL_TYPE; /* x271859 */ t30235 = a34926; goto l4299; l4298: /* x168956 stalin.sc:24685:853650 */ t30235 = (struct structure_type24753 *)NULL_TYPE; l4299: /* x168958 stalin.sc:24686:853656 */ t30236 = a1675; /* x168962 stalin.sc:24687:853664 */ /* x168960 stalin.sc:24687:853684 */ t30244 = a32111; /* x168961 stalin.sc:24687:853686 */ t30245 = q64; /* x168959 stalin.sc:24687:853665 */ t30246 = t30244; t30237 = f8743(t30246, t30245); /* x168949 stalin.sc:24684:853592 */ /* MOVE: branching squeezed to general */ if (t30235>=((struct structure_type24753 *)VALUE_OFFSET)) {t30238.tag = STRUCTURE_TYPE24753; t30238.value.structure_type24753 = t30235;} else t30238.tag = (unsigned)t30235; /* MOVE: branching squeezed to general */ if (t30236>=((struct structure_type27650 *)VALUE_OFFSET)) {t30239.tag = STRUCTURE_TYPE27650; t30239.value.structure_type27650 = t30236;} else t30239.tag = (unsigned)t30236; t30240 = t30237; t30232 = f7892(t30238, t30239, t30240); /* x168948 stalin.sc:24684:853586 */ t30234.tag = STRUCTURE_TYPE24753; t30234.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30234.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24684, 853585); out_of_memory_error();} /* MOVE: dispatching squished to general */ if ((t30233&3)==1) {t30234.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE19067; t30234.value.structure_type24753->s0.value.native_procedure_type19067 = (struct p7892 *)(t30233-1);} else {t30234.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE19068; t30234.value.structure_type24753->s0.value.native_procedure_type19068 = (struct p7892 *)t30233;} t30234.value.structure_type24753->s1.tag = NULL_TYPE; a34925 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34925==NULL) {backtrace("stalin.sc", 24684, 853585); out_of_memory_error();} /* MOVE: dispatching squished to general */ if ((t30232&3)==1) {a34925->s0.tag = NATIVE_PROCEDURE_TYPE19067; a34925->s0.value.native_procedure_type19067 = (struct p7892 *)(t30232-1);} else {a34925->s0.tag = NATIVE_PROCEDURE_TYPE19068; a34925->s0.value.native_procedure_type19068 = (struct p7892 *)t30232;} a34925->s1 = t30234; /* x271857 */ return a34925;} /* [inside top level 18123] */ struct structure_type24753 *f18123(struct structure_type27745 *a32107, struct w49 a32110) {struct structure_type24753 *a35006; /* OBJS */ struct structure_type24753 *a35007; /* OBJS */ struct structure_type24753 *a35008; /* OBJS */ unsigned t30259; unsigned t30260; struct w49 t30261; struct structure_type24753 *t30262; struct structure_type27650 *t30263; struct structure_type27745 *t30264; struct w49 t30265; struct w49 t30266; struct structure_type27745 *t30267; struct structure_type27745 *t30268; struct w49 t30269; struct w49 t30270; struct structure_type27745 *t30271; char *t30272; struct structure_type27745 *t30273; struct structure_type24753 *t30274; struct structure_type27650 *t30275; struct structure_type27745 *t30276; struct w49 t30277; struct w49 t30278; struct structure_type27745 *t30279; struct structure_type27745 *t30280; struct w49 t30281; struct w49 t30282; struct structure_type27745 *t30283; char *t30284; struct structure_type27745 *t30285; /* x168946 stalin.sc:24676:853343 */ /* x168945 stalin.sc:24680:853469 */ /* x168939 stalin.sc:24681:853499 */ /* x168934 stalin.sc:24681:853503 */ /* x168933 stalin.sc:24681:853515 */ t30280 = a32107; /* x168932 stalin.sc:24681:853504 */ t30281.tag = STRUCTURE_TYPE27745; t30281.value.structure_type27745 = t30280; if (f8944(t30281)==FALSE_TYPE) goto l4307; /* x168937 stalin.sc:24681:853518 */ /* x168936 stalin.sc:24681:853524 */ t30282 = a32110; /* x168935 stalin.sc:24681:853519 */ a35008 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35008==NULL) {backtrace("stalin.sc", 24681, 853518); out_of_memory_error();} a35008->s0 = t30282; a35008->s1.tag = NULL_TYPE; /* x272023 */ t30274 = a35008; goto l4308; l4307: /* x168938 stalin.sc:24681:853528 */ t30274 = (struct structure_type24753 *)NULL_TYPE; l4308: /* x168940 stalin.sc:24682:853534 */ t30275 = a1675; /* x168944 stalin.sc:24683:853542 */ /* x168942 stalin.sc:24683:853562 */ t30283 = a32107; /* x168943 stalin.sc:24683:853564 */ t30284 = q65; /* x168941 stalin.sc:24683:853543 */ t30285 = t30283; t30276 = f8743(t30285, t30284); /* x168931 stalin.sc:24680:853470 */ /* MOVE: branching squeezed to general */ if (t30274>=((struct structure_type24753 *)VALUE_OFFSET)) {t30277.tag = STRUCTURE_TYPE24753; t30277.value.structure_type24753 = t30274;} else t30277.tag = (unsigned)t30274; /* MOVE: branching squeezed to general */ if (t30275>=((struct structure_type27650 *)VALUE_OFFSET)) {t30278.tag = STRUCTURE_TYPE27650; t30278.value.structure_type27650 = t30275;} else t30278.tag = (unsigned)t30275; t30279 = t30276; t30260 = f7892(t30277, t30278, t30279); /* x168930 stalin.sc:24676:853349 */ /* x168924 stalin.sc:24677:853379 */ /* x168919 stalin.sc:24677:853383 */ /* x168918 stalin.sc:24677:853395 */ t30268 = a32107; /* x168917 stalin.sc:24677:853384 */ t30269.tag = STRUCTURE_TYPE27745; t30269.value.structure_type27745 = t30268; if (f8944(t30269)==FALSE_TYPE) goto l4304; /* x168922 stalin.sc:24677:853398 */ /* x168921 stalin.sc:24677:853404 */ t30270 = a32110; /* x168920 stalin.sc:24677:853399 */ a35007 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35007==NULL) {backtrace("stalin.sc", 24677, 853398); out_of_memory_error();} a35007->s0 = t30270; a35007->s1.tag = NULL_TYPE; /* x272021 */ t30262 = a35007; goto l4305; l4304: /* x168923 stalin.sc:24677:853408 */ t30262 = (struct structure_type24753 *)NULL_TYPE; l4305: /* x168925 stalin.sc:24678:853414 */ t30263 = a1675; /* x168929 stalin.sc:24679:853422 */ /* x168927 stalin.sc:24679:853442 */ t30271 = a32107; /* x168928 stalin.sc:24679:853444 */ t30272 = q64; /* x168926 stalin.sc:24679:853423 */ t30273 = t30271; t30264 = f8743(t30273, t30272); /* x168916 stalin.sc:24676:853350 */ /* MOVE: branching squeezed to general */ if (t30262>=((struct structure_type24753 *)VALUE_OFFSET)) {t30265.tag = STRUCTURE_TYPE24753; t30265.value.structure_type24753 = t30262;} else t30265.tag = (unsigned)t30262; /* MOVE: branching squeezed to general */ if (t30263>=((struct structure_type27650 *)VALUE_OFFSET)) {t30266.tag = STRUCTURE_TYPE27650; t30266.value.structure_type27650 = t30263;} else t30266.tag = (unsigned)t30263; t30267 = t30264; t30259 = f7892(t30265, t30266, t30267); /* x168915 stalin.sc:24676:853344 */ t30261.tag = STRUCTURE_TYPE24753; t30261.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30261.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24676, 853343); out_of_memory_error();} /* MOVE: dispatching squished to general */ if ((t30260&3)==1) {t30261.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE19067; t30261.value.structure_type24753->s0.value.native_procedure_type19067 = (struct p7892 *)(t30260-1);} else {t30261.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE19068; t30261.value.structure_type24753->s0.value.native_procedure_type19068 = (struct p7892 *)t30260;} t30261.value.structure_type24753->s1.tag = NULL_TYPE; a35006 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35006==NULL) {backtrace("stalin.sc", 24676, 853343); out_of_memory_error();} /* MOVE: dispatching squished to general */ if ((t30259&3)==1) {a35006->s0.tag = NATIVE_PROCEDURE_TYPE19067; a35006->s0.value.native_procedure_type19067 = (struct p7892 *)(t30259-1);} else {a35006->s0.tag = NATIVE_PROCEDURE_TYPE19068; a35006->s0.value.native_procedure_type19068 = (struct p7892 *)t30259;} a35006->s1 = t30261; /* x272019 */ return a35006;} /* [inside top level 18122] */ struct p16287 *f18122(struct structure_type27745 *a32104, struct w49 a32106) {struct structure_type24753 *a35157; /* OBJS */ struct structure_type24753 *a35158; /* OBJS */ unsigned t30286; unsigned t30287; unsigned t30288; unsigned t30289; struct structure_type24753 *t30290; struct structure_type27650 *t30291; struct structure_type27745 *t30292; struct w49 t30293; struct w49 t30294; struct structure_type27745 *t30295; struct structure_type27745 *t30296; struct w49 t30297; struct w49 t30298; struct structure_type27745 *t30299; char *t30300; struct structure_type24753 *t30301; struct structure_type27650 *t30302; struct structure_type27745 *t30303; struct w49 t30304; struct w49 t30305; struct structure_type27745 *t30306; struct structure_type27745 *t30307; struct w49 t30308; struct w49 t30309; struct structure_type27745 *t30310; char *t30311; /* x168913 stalin.sc:24667:853065 */ /* x168897 stalin.sc:24668:853100 */ /* x168891 stalin.sc:24669:853132 */ /* x168886 stalin.sc:24669:853136 */ /* x168885 stalin.sc:24669:853148 */ t30296 = a32104; /* x168884 stalin.sc:24669:853137 */ /* MOVE: branching squeezed to general */ if (t30296>=((struct structure_type27745 *)VALUE_OFFSET)) {t30297.tag = STRUCTURE_TYPE27745; t30297.value.structure_type27745 = t30296;} else t30297.tag = (unsigned)t30296; if (f8944(t30297)==FALSE_TYPE) goto l4310; /* x168889 stalin.sc:24669:853151 */ /* x168888 stalin.sc:24669:853157 */ t30298 = a32106; /* x168887 stalin.sc:24669:853152 */ a35157 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35157==NULL) {backtrace("stalin.sc", 24669, 853151); out_of_memory_error();} a35157->s0 = t30298; a35157->s1.tag = NULL_TYPE; /* x272321 */ t30290 = a35157; goto l4311; l4310: /* x168890 stalin.sc:24669:853161 */ t30290 = (struct structure_type24753 *)NULL_TYPE; l4311: /* x168892 stalin.sc:24670:853169 */ t30291 = a1675; /* x168896 stalin.sc:24671:853179 */ /* x168894 stalin.sc:24671:853199 */ t30299 = a32104; /* x168895 stalin.sc:24671:853201 */ t30300 = q64; /* x168893 stalin.sc:24671:853180 */ t30292 = f8743(t30299, t30300); /* x168883 stalin.sc:24668:853101 */ /* MOVE: branching squeezed to general */ if (t30290>=((struct structure_type24753 *)VALUE_OFFSET)) {t30293.tag = STRUCTURE_TYPE24753; t30293.value.structure_type24753 = t30290;} else t30293.tag = (unsigned)t30290; /* MOVE: branching squeezed to general */ if (t30291>=((struct structure_type27650 *)VALUE_OFFSET)) {t30294.tag = STRUCTURE_TYPE27650; t30294.value.structure_type27650 = t30291;} else t30294.tag = (unsigned)t30291; t30295 = t30292; t30286 = f7892(t30293, t30294, t30295); /* x168912 stalin.sc:24672:853221 */ /* x168906 stalin.sc:24673:853253 */ /* x168901 stalin.sc:24673:853257 */ /* x168900 stalin.sc:24673:853269 */ t30307 = a32104; /* x168899 stalin.sc:24673:853258 */ /* MOVE: branching squeezed to general */ if (t30307>=((struct structure_type27745 *)VALUE_OFFSET)) {t30308.tag = STRUCTURE_TYPE27745; t30308.value.structure_type27745 = t30307;} else t30308.tag = (unsigned)t30307; if (f8944(t30308)==FALSE_TYPE) goto l4313; /* x168904 stalin.sc:24673:853272 */ /* x168903 stalin.sc:24673:853278 */ t30309 = a32106; /* x168902 stalin.sc:24673:853273 */ a35158 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35158==NULL) {backtrace("stalin.sc", 24673, 853272); out_of_memory_error();} a35158->s0 = t30309; a35158->s1.tag = NULL_TYPE; /* x272323 */ t30301 = a35158; goto l4314; l4313: /* x168905 stalin.sc:24673:853282 */ t30301 = (struct structure_type24753 *)NULL_TYPE; l4314: /* x168907 stalin.sc:24674:853290 */ t30302 = a1675; /* x168911 stalin.sc:24675:853300 */ /* x168909 stalin.sc:24675:853320 */ t30310 = a32104; /* x168910 stalin.sc:24675:853322 */ t30311 = q65; /* x168908 stalin.sc:24675:853301 */ t30303 = f8743(t30310, t30311); /* x168898 stalin.sc:24672:853222 */ /* MOVE: branching squeezed to general */ if (t30301>=((struct structure_type24753 *)VALUE_OFFSET)) {t30304.tag = STRUCTURE_TYPE24753; t30304.value.structure_type24753 = t30301;} else t30304.tag = (unsigned)t30301; /* MOVE: branching squeezed to general */ if (t30302>=((struct structure_type27650 *)VALUE_OFFSET)) {t30305.tag = STRUCTURE_TYPE27650; t30305.value.structure_type27650 = t30302;} else t30305.tag = (unsigned)t30302; t30306 = t30303; t30287 = f7892(t30304, t30305, t30306); /* x168882 stalin.sc:24667:853066 */ /* MOVE: squished to squished */ t30288 = ((unsigned)(t30286&(~3)))+("\001\000"[t30286&3]); t30289 = t30287; return f16287(t30288, t30289);} /* [inside top level 18121] */ struct structure_type24753 *f18121(struct p18119 *p18121, unsigned a32103) {char *t30312; struct structure_type27745 *t30313; unsigned t30314; struct w49 t30315; /* x168868 stalin.sc:24662:852892 */ /* x168865 stalin.sc:24662:852907 */ t30312 = "infinity"; /* x168866 stalin.sc:24662:852918 */ t30313 = p18121->a32087; /* x168867 stalin.sc:24662:852920 */ t30314 = a32103; /* x168864 stalin.sc:24662:852893 */ t30315.tag = STRUCTURE_TYPE27745; t30315.value.structure_type27745 = t30313; return f15534(t30312, t30315, t30314);} /* [inside top level 18120] */ struct w49 f18120(struct p18119 *p18120, struct w49 a32102) {struct w49 a25335; /* C */ struct structure_type27501 *t30316; struct structure_type24753 *t30317; struct w49 t30318; struct w49 t30319; char *t30320; struct w49 t30321; char *t30322; struct w49 t30323; struct w49 t30324; struct w49 t30325; struct w49 t30326; /* x168862 stalin.sc:24661:852820 */ /* x168854 stalin.sc:24661:852834 */ t30316 = p18120->a32086; /* x168861 stalin.sc:24661:852836 */ /* x168860 stalin.sc:24661:852850 */ /* x168857 stalin.sc:24661:852859 */ t30324 = p18120->a32096; /* x168858 stalin.sc:24661:852862 */ t30325 = a32102; /* x168859 stalin.sc:24661:852865 */ t30326 = p18120->a32097; /* x168856 stalin.sc:24661:852851 */ t30318 = f14485(t30324, t30325, t30326); /* x168855 stalin.sc:24661:852837 */ a25335 = t30318; /* x123145 */ /* x123144 stalin.sc:14610:512521 */ /* x123143 stalin.sc:14610:512531 */ t30322 = "math"; /* x123142 stalin.sc:14610:512522 */ t30323.tag = STRING_TYPE; t30323.value.string_type = t30322; f18320(t30323); /* x123141 */ /* x123140 stalin.sc:14611:512552 */ /* x123138 stalin.sc:14611:512558 */ t30319 = a25335; /* x123139 stalin.sc:14611:512560 */ t30320 = "HUGE_VAL"; /* x123137 stalin.sc:14611:512553 */ t30321.tag = STRING_TYPE; t30321.value.string_type = t30320; t30317 = f13591(t30319, t30321); /* x168853 stalin.sc:24661:852821 */ return f14709(t30316, t30317);} /* [inside top level 18090] */ struct structure_type24753 *f18090(struct p18088 *p18090, unsigned a31935) {char *t30327; struct structure_type27745 *t30328; unsigned t30329; struct w49 t30330; /* x168709 stalin.sc:24619:851735 */ /* x168706 stalin.sc:24619:851750 */ t30327 = "integer_to_pointer"; /* x168707 stalin.sc:24619:851771 */ t30328 = p18090->a31919; /* x168708 stalin.sc:24619:851773 */ t30329 = a31935; /* x168705 stalin.sc:24619:851736 */ t30330.tag = STRUCTURE_TYPE27745; t30330.value.structure_type27745 = t30328; return f15534(t30327, t30330, t30329);} /* [inside top level 18089] */ struct w49 f18089(struct p18088 *p18089, struct w49 a31934) {struct w49 a25300; /* C */ struct structure_type24753 *a42001; /* CS */ struct structure_type27501 *t30331; struct structure_type24753 *t30332; struct w49 t30333; unsigned t30334; struct w49 t30335; struct w49 t30336; struct w49 t30337; char *t30338; char *t30339; struct structure_type24753 *t30340; struct w49 t30341; struct w49 t30342; struct w49 t30343; struct w49 t30344; struct w49 t30345; /* x168703 stalin.sc:24618:851661 */ /* x168694 stalin.sc:24618:851668 */ t30331 = p18089->a31918; /* x168701 stalin.sc:24618:851670 */ /* x168700 stalin.sc:24618:851684 */ /* x168697 stalin.sc:24618:851693 */ t30343 = p18089->a31928; /* x168698 stalin.sc:24618:851696 */ t30344 = a31934; /* x168699 stalin.sc:24618:851699 */ t30345 = p18089->a31929; /* x168696 stalin.sc:24618:851685 */ t30335 = f14485(t30343, t30344, t30345); /* x168695 stalin.sc:24618:851671 */ a25300 = t30335; /* x122809 stalin.sc:14523:509998 */ /* x122807 stalin.sc:14523:510006 */ /* x122806 stalin.sc:14523:510028 */ t30339 = "*"; /* x122805 stalin.sc:14523:510021 */ t30338 = "void"; /* x122804 stalin.sc:14523:510007 */ t30342.tag = STRUCTURE_TYPE24753; t30342.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30342.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14523, 510006); out_of_memory_error();} t30342.value.structure_type24753->s0.tag = STRING_TYPE; t30342.value.structure_type24753->s0.value.string_type = t30339; t30342.value.structure_type24753->s1.tag = NULL_TYPE; a42001 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42001==NULL) {backtrace("stalin.sc", 14523, 510006); out_of_memory_error();} a42001->s0.tag = STRING_TYPE; a42001->s0.value.string_type = t30338; a42001->s1 = t30342; /* x302116 stalin.sc:14386:505956 */ /* x302115 stalin.sc:14386:505972 */ t30340 = a42001; /* x302114 stalin.sc:14386:505957 */ t30341.tag = STRUCTURE_TYPE24753; t30341.value.structure_type24753 = t30340; t30336 = f13474(t30341); /* x122808 stalin.sc:14523:510033 */ t30337 = a25300; /* x122803 stalin.sc:14523:509999 */ t30332 = f13547(t30336, t30337); /* x168702 stalin.sc:24618:851704 */ /* x168693 stalin.sc:24618:851662 */ t30333.tag = STRUCTURE_TYPE24753; t30333.value.structure_type24753 = t30332; t30334 = (unsigned)NATIVE_PROCEDURE_TYPE7420; return f15508(t30331, t30333, t30334);} /* [inside top level 18081] */ struct structure_type24753 *f18081(struct p18079 *p18081, unsigned a31891) {char *t30346; struct structure_type27745 *t30347; unsigned t30348; struct w49 t30349; /* x168653 stalin.sc:24604:851318 */ /* x168650 stalin.sc:24604:851333 */ t30346 = "integer_to_output_port"; /* x168651 stalin.sc:24604:851358 */ t30347 = p18081->a31875; /* x168652 stalin.sc:24604:851360 */ t30348 = a31891; /* x168649 stalin.sc:24604:851319 */ t30349.tag = STRUCTURE_TYPE27745; t30349.value.structure_type27745 = t30347; return f15534(t30346, t30349, t30348);} /* [inside top level 18080] */ struct w49 f18080(struct p18079 *p18080, struct w49 a31890) {struct structure_type27501 *t30350; struct structure_type24753 *t30351; struct w49 t30352; unsigned t30353; struct w49 t30354; struct w49 t30355; struct w49 t30356; struct w49 t30357; /* x168647 stalin.sc:24603:851240 */ /* x168638 stalin.sc:24603:851247 */ t30350 = p18080->a31874; /* x168645 stalin.sc:24603:851249 */ /* x168644 stalin.sc:24603:851263 */ /* x168641 stalin.sc:24603:851272 */ t30355 = p18080->a31884; /* x168642 stalin.sc:24603:851275 */ t30356 = a31890; /* x168643 stalin.sc:24603:851278 */ t30357 = p18080->a31885; /* x168640 stalin.sc:24603:851264 */ t30354 = f14485(t30355, t30356, t30357); /* x168639 stalin.sc:24603:851250 */ t30351 = f13554(t30354); /* x168646 stalin.sc:24603:851283 */ /* x168637 stalin.sc:24603:851241 */ t30352.tag = STRUCTURE_TYPE24753; t30352.value.structure_type24753 = t30351; t30353 = (unsigned)NATIVE_PROCEDURE_TYPE7422; return f15508(t30350, t30352, t30353);} /* [inside top level 18072] */ struct structure_type24753 *f18072(struct p18070 *p18072, unsigned a31847) {char *t30358; struct structure_type27745 *t30359; unsigned t30360; struct w49 t30361; /* x168597 stalin.sc:24589:850890 */ /* x168594 stalin.sc:24589:850905 */ t30358 = "integer_to_input_port"; /* x168595 stalin.sc:24589:850929 */ t30359 = p18072->a31831; /* x168596 stalin.sc:24589:850931 */ t30360 = a31847; /* x168593 stalin.sc:24589:850891 */ t30361.tag = STRUCTURE_TYPE27745; t30361.value.structure_type27745 = t30359; return f15534(t30358, t30361, t30360);} /* [inside top level 18071] */ struct w49 f18071(struct p18070 *p18071, struct w49 a31846) {struct structure_type27501 *t30362; struct structure_type24753 *t30363; struct w49 t30364; unsigned t30365; struct w49 t30366; struct w49 t30367; struct w49 t30368; struct w49 t30369; /* x168591 stalin.sc:24588:850813 */ /* x168582 stalin.sc:24588:850820 */ t30362 = p18071->a31830; /* x168589 stalin.sc:24588:850822 */ /* x168588 stalin.sc:24588:850836 */ /* x168585 stalin.sc:24588:850845 */ t30367 = p18071->a31840; /* x168586 stalin.sc:24588:850848 */ t30368 = a31846; /* x168587 stalin.sc:24588:850851 */ t30369 = p18071->a31841; /* x168584 stalin.sc:24588:850837 */ t30366 = f14485(t30367, t30368, t30369); /* x168583 stalin.sc:24588:850823 */ t30363 = f13554(t30366); /* x168590 stalin.sc:24588:850856 */ /* x168581 stalin.sc:24588:850814 */ t30364.tag = STRUCTURE_TYPE24753; t30364.value.structure_type24753 = t30363; t30365 = (unsigned)NATIVE_PROCEDURE_TYPE7423; return f15508(t30362, t30364, t30365);} /* [inside top level 18063] */ struct structure_type24753 *f18063(struct p18061 *p18063, unsigned a31803) {char *t30370; struct structure_type27745 *t30371; unsigned t30372; struct w49 t30373; /* x168541 stalin.sc:24574:850469 */ /* x168538 stalin.sc:24574:850484 */ t30370 = "integer_to_string"; /* x168539 stalin.sc:24574:850504 */ t30371 = p18063->a31787; /* x168540 stalin.sc:24574:850506 */ t30372 = a31803; /* x168537 stalin.sc:24574:850470 */ t30373.tag = STRUCTURE_TYPE27745; t30373.value.structure_type27745 = t30371; return f15534(t30370, t30373, t30372);} /* [inside top level 18062] */ struct w49 f18062(struct p18061 *p18062, struct w49 a31802) {struct structure_type27501 *t30374; struct structure_type24753 *t30375; struct w49 t30376; unsigned t30377; struct w49 t30378; struct w49 t30379; struct w49 t30380; struct w49 t30381; /* x168535 stalin.sc:24573:850396 */ /* x168526 stalin.sc:24573:850403 */ t30374 = p18062->a31786; /* x168533 stalin.sc:24573:850405 */ /* x168532 stalin.sc:24573:850419 */ /* x168529 stalin.sc:24573:850428 */ t30379 = p18062->a31796; /* x168530 stalin.sc:24573:850431 */ t30380 = a31802; /* x168531 stalin.sc:24573:850434 */ t30381 = p18062->a31797; /* x168528 stalin.sc:24573:850420 */ t30378 = f14485(t30379, t30380, t30381); /* x168527 stalin.sc:24573:850406 */ t30375 = f13553(t30378); /* x168534 stalin.sc:24573:850439 */ /* x168525 stalin.sc:24573:850397 */ t30376.tag = STRUCTURE_TYPE24753; t30376.value.structure_type24753 = t30375; t30377 = (unsigned)NATIVE_PROCEDURE_TYPE7822; return f15508(t30374, t30376, t30377);} /* [inside top level 18046] */ unsigned f18046(struct w49 a31726) {struct w49 t30382; /* x168447 stalin.sc:24551:849778 */ /* x168447 stalin.sc:24551:849778 */ /* x168446 stalin.sc:24551:849783 */ /* x168445 stalin.sc:24551:849798 */ t30382 = a31726; /* x168444 stalin.sc:24551:849784 */ if (!(f7703(t30382)==FALSE_TYPE)) goto l4316; return TRUE_TYPE; l4316: return FALSE_TYPE;} /* [inside top level 18045] */ struct structure_type24753 *f18045(void) {struct structure_type24753 *a34933; /* OBJS */ /* x168449 stalin.sc:24551:849760 */ /* x168448 stalin.sc:24551:849766 */ /* x168442 stalin.sc:24551:849761 */ a34933 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34933==NULL) {backtrace("stalin.sc", 24551, 849760); out_of_memory_error();} a34933->s0.tag = NATIVE_PROCEDURE_TYPE22494; a34933->s1.tag = NULL_TYPE; /* x271873 */ return a34933;} /* [inside top level 18042] */ struct structure_type24753 *f18042(struct p18040 *p18042, unsigned a31714) {char *t30383; struct structure_type27745 *t30384; unsigned t30385; struct w49 t30386; /* x168420 stalin.sc:24545:849601 */ /* x168417 stalin.sc:24545:849616 */ t30383 = "panic"; /* x168418 stalin.sc:24545:849624 */ t30384 = p18042->a31698; /* x168419 stalin.sc:24545:849626 */ t30385 = a31714; /* x168416 stalin.sc:24545:849602 */ t30386.tag = STRUCTURE_TYPE27745; t30386.value.structure_type27745 = t30384; return f15534(t30383, t30386, t30385);} /* [inside top level 18041] */ struct structure_type24753 *f18041(struct p18040 *p18041, struct w49 a31713) {struct w49 t30387; struct w49 t30388; struct w49 t30389; struct w49 t30390; /* x168414 stalin.sc:24544:849551 */ /* x168413 stalin.sc:24544:849560 */ /* x168410 stalin.sc:24544:849569 */ t30388 = p18041->a31707; /* x168411 stalin.sc:24544:849572 */ t30389 = a31713; /* x168412 stalin.sc:24544:849575 */ t30390 = p18041->a31708; /* x168409 stalin.sc:24544:849561 */ t30387 = f14485(t30388, t30389, t30390); /* x168408 stalin.sc:24544:849552 */ return f14365(t30387);} /* [inside top level 18033] */ struct structure_type24753 *f18033(struct p18029 *p18033, unsigned a31670) {char *t30391; struct structure_type27745 *t30392; unsigned t30393; struct w49 t30394; /* x168370 stalin.sc:24531:849239 */ /* x168367 stalin.sc:24531:849254 */ t30391 = "write_char1"; /* x168368 stalin.sc:24531:849268 */ t30392 = p18033->a31652; /* x168369 stalin.sc:24531:849270 */ t30393 = a31670; /* x168366 stalin.sc:24531:849240 */ t30394.tag = STRUCTURE_TYPE27745; t30394.value.structure_type27745 = t30392; return f15534(t30391, t30394, t30393);} /* [inside top level 18032] */ struct structure_type24753 *f18032(struct p18029 *p18032, unsigned a31669) {char *t30395; struct structure_type27745 *t30396; unsigned t30397; struct w49 t30398; /* x168362 stalin.sc:24530:849186 */ /* x168359 stalin.sc:24530:849201 */ t30395 = "write_char2"; /* x168360 stalin.sc:24530:849215 */ t30396 = p18032->a31652; /* x168361 stalin.sc:24530:849217 */ t30397 = a31669; /* x168358 stalin.sc:24530:849187 */ t30398.tag = STRUCTURE_TYPE27745; t30398.value.structure_type27745 = t30396; return f15534(t30395, t30398, t30397);} /* [inside top level 18031] */ struct w49 f18031(struct p18030 *p18031, struct w49 a31668) {struct w49 a25504; /* C1 */ struct w49 a25505; /* C2 */ struct structure_type24753 *a41783; /* CS */ struct structure_type24753 *t30399; struct w49 t30400; struct structure_type24753 *t30401; struct w49 t30402; struct w49 t30403; struct w49 t30404; struct w49 t30405; char *t30406; struct w49 t30407; struct w49 t30408; struct w61020 t30409; struct structure_type24753 *t30410; struct w49 t30411; char *t30412; struct w49 t30413; struct w49 t30414; struct w49 t30415; struct w49 t30416; struct w49 t30417; struct w49 t30418; struct w49 t30419; struct structure_type27501 *t30420; struct w12218 t30421; /* x168356 stalin.sc:24528:849076 */ /* x168355 stalin.sc:24529:849148 */ /* x168354 stalin.sc:24529:849164 */ t30420 = p18031->p18029->a31651; /* x168353 stalin.sc:24529:849149 */ /* MOVE: branching squeezed to general */ if (t30420>=((struct structure_type27501 *)VALUE_OFFSET)) {t30421.tag = STRUCTURE_TYPE27501; t30421.value.structure_type27501 = t30420;} else t30421.tag = (unsigned)t30420; t30400 = f15342(t30421); /* x168352 stalin.sc:24528:849093 */ /* x168346 stalin.sc:24528:849101 */ /* x168343 stalin.sc:24528:849110 */ t30414 = p18031->p18029->a31661; /* x168344 stalin.sc:24528:849113 */ t30415 = p18031->a31667; /* x168345 stalin.sc:24528:849116 */ t30416 = p18031->p18029->a31662; /* x168342 stalin.sc:24528:849102 */ t30404 = f14485(t30414, t30415, t30416); /* x168351 stalin.sc:24528:849120 */ /* x168348 stalin.sc:24528:849129 */ t30417 = p18031->p18029->a31663; /* x168349 stalin.sc:24528:849132 */ t30418 = a31668; /* x168350 stalin.sc:24528:849135 */ t30419 = p18031->p18029->a31664; /* x168347 stalin.sc:24528:849121 */ t30405 = f14485(t30417, t30418, t30419); /* x168341 stalin.sc:24528:849094 */ a25504 = t30404; a25505 = t30405; /* x124763 */ /* x124762 stalin.sc:15032:524714 */ /* x124761 stalin.sc:15032:524724 */ t30412 = "stdio"; /* x124760 stalin.sc:15032:524715 */ t30413.tag = STRING_TYPE; t30413.value.string_type = t30412; f18320(t30413); /* x124759 */ /* x124758 stalin.sc:15033:524742 */ /* x124757 stalin.sc:15033:524761 */ t30408 = a25505; /* x124756 stalin.sc:15033:524758 */ t30407 = a25504; /* x124755 stalin.sc:15033:524751 */ t30406 = "putc"; /* x124754 stalin.sc:15033:524743 */ t30409.tag = STRING_TYPE; t30409.value.string_type = t30406; t30411.tag = STRUCTURE_TYPE24753; t30411.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30411.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15033, 524742); out_of_memory_error();} t30411.value.structure_type24753->s0 = t30408; t30411.value.structure_type24753->s1.tag = NULL_TYPE; t30410 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t30410==NULL) {backtrace("stalin.sc", 15033, 524742); out_of_memory_error();} t30410->s0 = t30407; t30410->s1 = t30411; t30399 = f13645(t30409, t30410); /* x168340 stalin.sc:24528:849077 */ t30403.tag = STRUCTURE_TYPE24753; t30403.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30403.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24528, 849076); out_of_memory_error();} t30403.value.structure_type24753->s0 = t30400; t30403.value.structure_type24753->s1.tag = NULL_TYPE; a41783 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41783==NULL) {backtrace("stalin.sc", 24528, 849076); out_of_memory_error();} a41783->s0.tag = STRUCTURE_TYPE24753; a41783->s0.value.structure_type24753 = t30399; a41783->s1 = t30403; /* x301244 stalin.sc:14400:506485 */ /* x301243 stalin.sc:14400:506503 */ t30401 = a41783; /* x301242 stalin.sc:14400:506486 */ t30402.tag = STRUCTURE_TYPE24753; t30402.value.structure_type24753 = t30401; return f13492(t30402);} /* [inside top level 18030] */ struct w49 f18030(void) {struct p18029 *p18030 = d18030; struct w49 a31667 = b31667; /* U1 */ struct w49 t30422; struct structure_type27501 *t30423; struct w49 t30424; struct p18030 *t30425; struct p18029 *t30426; struct p18030 *e18030; e18030 = (struct p18030 *)GC_malloc(sizeof(struct p18030)); if (e18030==NULL) {backtrace("stalin.sc", 24521, 848983); out_of_memory_error();} e18030->p18029 = p18030; e18030->a31667 = a31667; /* x168364 stalin.sc:24522:848999 */ /* x168336 stalin.sc:24523:849016 */ /* x168337 stalin.sc:24524:849038 */ t30422 = p18030->a31664; /* x168338 stalin.sc:24525:849045 */ t30423 = p18030->a31651; /* x168339 stalin.sc:24526:849051 */ t30424 = p18030->a31663; /* x168357 stalin.sc:24527:849058 */ t30425 = e18030; /* x168363 stalin.sc:24530:849173 */ t30426 = p18030; /* x168335 stalin.sc:24522:849000 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7422; b26112 = t30422; b26113 = t30423; b26114 = t30424; b26115.tag = NATIVE_PROCEDURE_TYPE22133; b26115.value.native_procedure_type22133 = t30425; b26116.tag = NATIVE_PROCEDURE_TYPE22132; b26116.value.native_procedure_type22132 = t30426; return f14692();} /* [inside top level 18025] */ struct structure_type24753 *f18025(void) {struct structure_type24753 *a34935; /* OBJS */ struct w49 t30427; /* x168321 stalin.sc:24513:848852 */ /* x168320 stalin.sc:24513:848869 */ /* x168319 stalin.sc:24513:848858 */ /* x168318 stalin.sc:24513:848853 */ t30427.tag = STRUCTURE_TYPE24753; t30427.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30427.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24513, 848852); out_of_memory_error();} t30427.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7422; t30427.value.structure_type24753->s1.tag = NULL_TYPE; a34935 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34935==NULL) {backtrace("stalin.sc", 24513, 848852); out_of_memory_error();} a34935->s0.tag = NATIVE_PROCEDURE_TYPE7431; a34935->s1 = t30427; /* x271877 */ return a34935;} /* [inside top level 18024] */ struct structure_type24753 *f18024(void) {struct structure_type24753 *a35019; /* OBJS */ struct w49 t30428; /* x168316 stalin.sc:24512:848815 */ /* x168315 stalin.sc:24512:848832 */ /* x168314 stalin.sc:24512:848821 */ /* x168313 stalin.sc:24512:848816 */ t30428.tag = STRUCTURE_TYPE24753; t30428.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30428.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24512, 848815); out_of_memory_error();} t30428.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7422; t30428.value.structure_type24753->s1.tag = NULL_TYPE; a35019 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35019==NULL) {backtrace("stalin.sc", 24512, 848815); out_of_memory_error();} a35019->s0.tag = NATIVE_PROCEDURE_TYPE7431; a35019->s1 = t30428; /* x272045 */ return a35019;} /* [inside top level 18023] */ struct p16287 *f18023(void) {unsigned t30429; unsigned t30430; /* x168311 stalin.sc:24511:848751 */ /* x168309 stalin.sc:24511:848784 */ /* x168310 stalin.sc:24511:848795 */ /* x168308 stalin.sc:24511:848752 */ t30429 = (unsigned)NATIVE_PROCEDURE_TYPE7431; t30430 = (unsigned)NATIVE_PROCEDURE_TYPE7422; return f16287(t30429, t30430);} /* [inside top level 18008] */ struct structure_type24753 *f18008(struct p18006 *p18008, unsigned a31541) {char *t30431; struct structure_type27745 *t30432; unsigned t30433; struct w49 t30434; /* x168228 stalin.sc:24489:848160 */ /* x168225 stalin.sc:24489:848175 */ t30431 = "char_ready1"; /* x168226 stalin.sc:24489:848189 */ t30432 = p18008->a31525; /* x168227 stalin.sc:24489:848191 */ t30433 = a31541; /* x168224 stalin.sc:24489:848161 */ t30434.tag = STRUCTURE_TYPE27745; t30434.value.structure_type27745 = t30432; return f15534(t30431, t30434, t30433);} /* [inside top level 18007] */ struct w49 f18007(struct p18006 *p18007, struct w49 a31540) {struct w49 a25854; /* C */ struct structure_type27501 *t30435; struct structure_type24753 *t30436; struct w49 t30437; struct structure_type24753 *t30438; struct w49 t30439; char *t30440; struct w49 t30441; struct w49 t30442; struct w12224 t30443; struct w49 t30444; struct w49 t30445; struct w49 t30446; /* x168222 stalin.sc:24488:848090 */ /* x168214 stalin.sc:24488:848104 */ t30435 = p18007->a31524; /* x168221 stalin.sc:24488:848106 */ /* x168220 stalin.sc:24488:848123 */ /* x168217 stalin.sc:24488:848132 */ t30444 = p18007->a31534; /* x168218 stalin.sc:24488:848135 */ t30445 = a31540; /* x168219 stalin.sc:24488:848138 */ t30446 = p18007->a31535; /* x168216 stalin.sc:24488:848124 */ t30437 = f14485(t30444, t30445, t30446); /* x168215 stalin.sc:24488:848107 */ a25854 = t30437; /* x129509 */ /* x129508 stalin.sc:16149:562149 */ /* x129507 stalin.sc:16149:562174 */ a744 = TRUE_TYPE; /* x129506 */ /* x129505 stalin.sc:16150:562179 */ /* x129504 stalin.sc:16150:562190 */ /* x129503 stalin.sc:16150:562214 */ t30441 = a25854; /* x129502 stalin.sc:16150:562198 */ t30440 = "input_waiting"; /* x129501 stalin.sc:16150:562191 */ t30442.tag = STRING_TYPE; t30442.value.string_type = t30440; t30443.tag = STRUCTURE_TYPE24753; t30443.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30443.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16150, 562190); out_of_memory_error();} t30443.value.structure_type24753->s0 = t30441; t30443.value.structure_type24753->s1.tag = NULL_TYPE; t30438 = f13543(t30442, t30443); /* x129500 stalin.sc:16150:562180 */ t30439.tag = STRUCTURE_TYPE24753; t30439.value.structure_type24753 = t30438; t30436 = f13472(t30439); /* x168213 stalin.sc:24488:848091 */ return f14709(t30435, t30436);} /* [inside top level 17990] */ unsigned f17990(struct w49 a31463) {struct w49 t30447; /* x168130 stalin.sc:24465:847423 */ /* x168130 stalin.sc:24465:847423 */ /* x168129 stalin.sc:24465:847428 */ /* x168128 stalin.sc:24465:847446 */ t30447 = a31463; /* x168127 stalin.sc:24465:847429 */ if (!(f7702(t30447)==FALSE_TYPE)) goto l4319; return TRUE_TYPE; l4319: return FALSE_TYPE;} /* [inside top level 17989] */ struct structure_type24753 *f17989(void) {struct structure_type24753 *a34937; /* OBJS */ /* x168132 stalin.sc:24465:847405 */ /* x168131 stalin.sc:24465:847411 */ /* x168125 stalin.sc:24465:847406 */ a34937 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34937==NULL) {backtrace("stalin.sc", 24465, 847405); out_of_memory_error();} a34937->s0.tag = NATIVE_PROCEDURE_TYPE22493; a34937->s1.tag = NULL_TYPE; /* x271881 */ return a34937;} /* [inside top level 17986] */ struct structure_type24753 *f17986(struct p17984 *p17986, unsigned a31451) {char *t30448; struct structure_type27745 *t30449; unsigned t30450; struct w49 t30451; /* x168103 stalin.sc:24459:847235 */ /* x168100 stalin.sc:24459:847250 */ t30448 = "peek_char1"; /* x168101 stalin.sc:24459:847263 */ t30449 = p17986->a31435; /* x168102 stalin.sc:24459:847265 */ t30450 = a31451; /* x168099 stalin.sc:24459:847236 */ t30451.tag = STRUCTURE_TYPE27745; t30451.value.structure_type27745 = t30449; return f15534(t30448, t30451, t30450);} /* [inside top level 17985] */ struct w49 f17985(struct p17984 *p17985, struct w49 a31450) {struct structure_type24753 *a25501; /* C1 */ struct w49 a25502; /* C2 */ struct structure_type24753 *t30452; struct w49 t30453; struct w49 t30454; unsigned t30455; struct structure_type24753 *t30456; char *t30457; struct structure_type24753 *t30458; struct w49 t30459; struct w49 t30460; struct structure_type24753 *t30461; struct w49 t30462; struct structure_type24753 *t30463; struct w49 t30464; char *t30465; struct structure_type24753 *t30466; struct w49 t30467; struct w49 t30468; struct w12224 t30469; struct w49 t30470; char *t30471; struct w49 t30472; struct w49 t30473; struct w49 t30474; struct w49 t30475; struct w49 t30476; struct w49 t30477; struct w49 t30478; struct w49 t30479; struct structure_type27501 *t30480; char *t30481; struct w49 t30482; unsigned t30483; struct structure_type27501 *t30484; char *t30485; struct w49 t30486; unsigned t30487; /* x168097 stalin.sc:24454:847032 */ /* x168084 stalin.sc:24454:847038 */ /* x168083 stalin.sc:24454:847047 */ /* x168068 stalin.sc:24454:847052 */ /* x168067 stalin.sc:24454:847053 */ t30457 = f14272(); /* x168082 stalin.sc:24454:847058 */ /* x168076 stalin.sc:24454:847068 */ /* x168075 stalin.sc:24454:847076 */ /* x168072 stalin.sc:24454:847085 */ t30474 = p17985->a31444; /* x168073 stalin.sc:24454:847088 */ t30475 = a31450; /* x168074 stalin.sc:24454:847091 */ t30476 = p17985->a31445; /* x168071 stalin.sc:24454:847077 */ t30473 = f14485(t30474, t30475, t30476); /* x168070 stalin.sc:24454:847069 */ t30461 = f13734(t30473); /* x168081 stalin.sc:24455:847105 */ /* x168078 stalin.sc:24455:847114 */ t30477 = p17985->a31444; /* x168079 stalin.sc:24455:847117 */ t30478 = a31450; /* x168080 stalin.sc:24455:847120 */ t30479 = p17985->a31445; /* x168077 stalin.sc:24455:847106 */ t30462 = f14485(t30477, t30478, t30479); /* x168069 stalin.sc:24454:847059 */ a25501 = t30461; a25502 = t30462; /* x124751 */ /* x124750 stalin.sc:15028:524622 */ /* x124749 stalin.sc:15028:524632 */ t30471 = "stdio"; /* x124748 stalin.sc:15028:524623 */ t30472.tag = STRING_TYPE; t30472.value.string_type = t30471; f18320(t30472); /* x124747 */ /* x124746 stalin.sc:15029:524652 */ /* x124745 stalin.sc:15029:524663 */ /* x124744 stalin.sc:15029:524683 */ t30467 = a25502; /* x124743 stalin.sc:15029:524680 */ t30466 = a25501; /* x124742 stalin.sc:15029:524671 */ t30465 = "ungetc"; /* x124741 stalin.sc:15029:524664 */ t30468.tag = STRING_TYPE; t30468.value.string_type = t30465; t30470.tag = STRUCTURE_TYPE24753; t30470.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30470.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15029, 524663); out_of_memory_error();} t30470.value.structure_type24753->s0 = t30467; t30470.value.structure_type24753->s1.tag = NULL_TYPE; t30469.tag = STRUCTURE_TYPE24753; t30469.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30469.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15029, 524663); out_of_memory_error();} t30469.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t30469.value.structure_type24753->s0.value.structure_type24753 = t30466; t30469.value.structure_type24753->s1 = t30470; t30463 = f13543(t30468, t30469); /* x124740 stalin.sc:15029:524653 */ t30464.tag = STRUCTURE_TYPE24753; t30464.value.structure_type24753 = t30463; t30458 = f13472(t30464); /* x168066 stalin.sc:24454:847048 */ t30459.tag = STRING_TYPE; t30459.value.string_type = t30457; t30460.tag = STRUCTURE_TYPE24753; t30460.value.structure_type24753 = t30458; t30456 = f13542(t30459, t30460); /* x168065 stalin.sc:24454:847039 */ t30452 = f13597(t30456); /* x168089 stalin.sc:24456:847134 */ /* x168086 stalin.sc:24456:847141 */ t30480 = p17985->a31434; /* x168087 stalin.sc:24456:847143 */ t30481 = q230; /* x168088 stalin.sc:24456:847151 */ /* x168085 stalin.sc:24456:847135 */ t30482.tag = EXTERNAL_SYMBOL_TYPE; t30482.value.external_symbol_type = t30481; t30483 = (unsigned)NATIVE_PROCEDURE_TYPE7421; t30453 = f15508(t30480, t30482, t30483); /* x168095 stalin.sc:24457:847176 */ /* x168091 stalin.sc:24457:847183 */ t30484 = p17985->a31434; /* x168093 stalin.sc:24457:847185 */ /* x168092 stalin.sc:24457:847186 */ t30485 = f14272(); /* x168094 stalin.sc:24457:847191 */ /* x168090 stalin.sc:24457:847177 */ t30486.tag = STRING_TYPE; t30486.value.string_type = t30485; t30487 = (unsigned)NATIVE_PROCEDURE_TYPE7431; t30454 = f15508(t30484, t30486, t30487); /* x168096 stalin.sc:24458:847210 */ /* x168064 stalin.sc:24454:847033 */ t30455 = TRUE_TYPE; return f13672(t30452, t30453, t30454, t30455);} /* [inside top level 17976] */ struct structure_type24753 *f17976(struct p17974 *p17976, unsigned a31406) {char *t30488; struct structure_type27745 *t30489; unsigned t30490; struct w49 t30491; /* x168019 stalin.sc:24438:846623 */ /* x168016 stalin.sc:24438:846638 */ t30488 = "read_char1"; /* x168017 stalin.sc:24438:846651 */ t30489 = p17976->a31390; /* x168018 stalin.sc:24438:846653 */ t30490 = a31406; /* x168015 stalin.sc:24438:846624 */ t30491.tag = STRUCTURE_TYPE27745; t30491.value.structure_type27745 = t30489; return f15534(t30488, t30491, t30490);} /* [inside top level 17975] */ struct w49 f17975(struct p17974 *p17975, struct w49 a31405) {struct structure_type24753 *t30492; struct w49 t30493; struct w49 t30494; unsigned t30495; struct structure_type24753 *t30496; char *t30497; struct structure_type24753 *t30498; struct w49 t30499; struct w49 t30500; struct w49 t30501; struct w49 t30502; struct w49 t30503; struct w49 t30504; struct structure_type27501 *t30505; char *t30506; struct w49 t30507; unsigned t30508; struct structure_type27501 *t30509; char *t30510; struct w49 t30511; unsigned t30512; /* x168013 stalin.sc:24434:846459 */ /* x168000 stalin.sc:24434:846465 */ /* x167999 stalin.sc:24434:846474 */ /* x167991 stalin.sc:24434:846479 */ /* x167990 stalin.sc:24434:846480 */ t30497 = f14272(); /* x167998 stalin.sc:24434:846485 */ /* x167997 stalin.sc:24434:846493 */ /* x167994 stalin.sc:24434:846502 */ t30502 = p17975->a31399; /* x167995 stalin.sc:24434:846505 */ t30503 = a31405; /* x167996 stalin.sc:24434:846508 */ t30504 = p17975->a31400; /* x167993 stalin.sc:24434:846494 */ t30501 = f14485(t30502, t30503, t30504); /* x167992 stalin.sc:24434:846486 */ t30498 = f13734(t30501); /* x167989 stalin.sc:24434:846475 */ t30499.tag = STRING_TYPE; t30499.value.string_type = t30497; t30500.tag = STRUCTURE_TYPE24753; t30500.value.structure_type24753 = t30498; t30496 = f13542(t30499, t30500); /* x167988 stalin.sc:24434:846466 */ t30492 = f13597(t30496); /* x168005 stalin.sc:24435:846522 */ /* x168002 stalin.sc:24435:846529 */ t30505 = p17975->a31389; /* x168003 stalin.sc:24435:846531 */ t30506 = q228; /* x168004 stalin.sc:24435:846539 */ /* x168001 stalin.sc:24435:846523 */ t30507.tag = EXTERNAL_SYMBOL_TYPE; t30507.value.external_symbol_type = t30506; t30508 = (unsigned)NATIVE_PROCEDURE_TYPE7421; t30493 = f15508(t30505, t30507, t30508); /* x168011 stalin.sc:24436:846564 */ /* x168007 stalin.sc:24436:846571 */ t30509 = p17975->a31389; /* x168009 stalin.sc:24436:846573 */ /* x168008 stalin.sc:24436:846574 */ t30510 = f14272(); /* x168010 stalin.sc:24436:846579 */ /* x168006 stalin.sc:24436:846565 */ t30511.tag = STRING_TYPE; t30511.value.string_type = t30510; t30512 = (unsigned)NATIVE_PROCEDURE_TYPE7431; t30494 = f15508(t30509, t30511, t30512); /* x168012 stalin.sc:24437:846598 */ /* x167987 stalin.sc:24434:846460 */ t30495 = TRUE_TYPE; return f13672(t30492, t30493, t30494, t30495);} /* [inside top level 17966] */ struct structure_type24753 *f17966(struct p17964 *p17966, unsigned a31361) {char *t30513; struct structure_type27745 *t30514; unsigned t30515; struct w49 t30516; /* x167942 stalin.sc:24418:846042 */ /* x167939 stalin.sc:24418:846057 */ t30513 = "close_output_port1"; /* x167940 stalin.sc:24418:846078 */ t30514 = p17966->a31345; /* x167941 stalin.sc:24418:846080 */ t30515 = a31361; /* x167938 stalin.sc:24418:846043 */ t30516.tag = STRUCTURE_TYPE27745; t30516.value.structure_type27745 = t30514; return f15534(t30513, t30516, t30515);} /* [inside top level 17965] */ struct w49 f17965(struct p17964 *p17965, struct w49 a31360) {struct structure_type24753 *a41784; /* CS */ struct structure_type24753 *t30517; struct w49 t30518; struct structure_type24753 *t30519; struct w49 t30520; struct w49 t30521; struct structure_type24753 *t30522; struct w49 t30523; struct w49 t30524; struct w49 t30525; struct w49 t30526; struct w49 t30527; struct structure_type27501 *t30528; struct w12218 t30529; struct structure_type24753 *t30530; struct structure_type24753 *t30531; struct w49 t30532; struct w49 t30533; unsigned t30534; struct w49 t30535; struct w49 t30536; struct w49 t30537; struct w49 t30538; char *t30539; struct structure_type27745 *t30540; struct w49 t30541; unsigned t30542; struct structure_type27501 *t30543; struct w12218 t30544; /* x167936 stalin.sc:24410:845778 */ /* x167903 stalin.sc:24410:845782 */ if (a704==FALSE_TYPE) goto l4322; /* x167921 stalin.sc:24411:845805 */ /* x167911 stalin.sc:24411:845811 */ /* x167910 stalin.sc:24411:845821 */ /* x167907 stalin.sc:24411:845830 */ t30536 = p17965->a31354; /* x167908 stalin.sc:24411:845833 */ t30537 = a31360; /* x167909 stalin.sc:24411:845836 */ t30538 = p17965->a31355; /* x167906 stalin.sc:24411:845822 */ t30535 = f14485(t30536, t30537, t30538); /* x167905 stalin.sc:24411:845812 */ t30530 = f13732(t30535); /* x167916 stalin.sc:24412:845845 */ /* x167913 stalin.sc:24412:845860 */ t30539 = "close_output_port2"; /* x167914 stalin.sc:24412:845881 */ t30540 = p17965->a31345; /* x167915 stalin.sc:24412:845883 */ /* x167912 stalin.sc:24412:845846 */ t30541.tag = STRUCTURE_TYPE27745; t30541.value.structure_type27745 = t30540; t30542 = FALSE_TYPE; t30531 = f15534(t30539, t30541, t30542); /* x167919 stalin.sc:24413:845891 */ /* x167918 stalin.sc:24413:845907 */ t30543 = p17965->a31344; /* x167917 stalin.sc:24413:845892 */ /* MOVE: branching squeezed to general */ if (t30543>=((struct structure_type27501 *)VALUE_OFFSET)) {t30544.tag = STRUCTURE_TYPE27501; t30544.value.structure_type27501 = t30543;} else t30544.tag = (unsigned)t30543; t30532 = f15342(t30544); /* x167920 stalin.sc:24414:845914 */ /* x167904 stalin.sc:24411:845806 */ t30533.tag = STRUCTURE_TYPE24753; t30533.value.structure_type24753 = t30531; t30534 = TRUE_TYPE; return f13672(t30530, t30533, t30532, t30534); l4322: /* x167935 stalin.sc:24415:845923 */ /* x167934 stalin.sc:24417:846000 */ /* x167933 stalin.sc:24417:846016 */ t30528 = p17965->a31344; /* x167932 stalin.sc:24417:846001 */ /* MOVE: branching squeezed to general */ if (t30528>=((struct structure_type27501 *)VALUE_OFFSET)) {t30529.tag = STRUCTURE_TYPE27501; t30529.value.structure_type27501 = t30528;} else t30529.tag = (unsigned)t30528; t30518 = f15342(t30529); /* x167931 stalin.sc:24416:845946 */ /* x167930 stalin.sc:24416:845963 */ /* x167929 stalin.sc:24416:845973 */ /* x167926 stalin.sc:24416:845982 */ t30525 = p17965->a31354; /* x167927 stalin.sc:24416:845985 */ t30526 = a31360; /* x167928 stalin.sc:24416:845988 */ t30527 = p17965->a31355; /* x167925 stalin.sc:24416:845974 */ t30524 = f14485(t30525, t30526, t30527); /* x167924 stalin.sc:24416:845964 */ t30522 = f13732(t30524); /* x167923 stalin.sc:24416:845947 */ t30523.tag = STRUCTURE_TYPE24753; t30523.value.structure_type24753 = t30522; t30517 = f13514(t30523); /* x167922 stalin.sc:24415:845924 */ t30521.tag = STRUCTURE_TYPE24753; t30521.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30521.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24415, 845923); out_of_memory_error();} t30521.value.structure_type24753->s0 = t30518; t30521.value.structure_type24753->s1.tag = NULL_TYPE; a41784 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41784==NULL) {backtrace("stalin.sc", 24415, 845923); out_of_memory_error();} a41784->s0.tag = STRUCTURE_TYPE24753; a41784->s0.value.structure_type24753 = t30517; a41784->s1 = t30521; /* x301248 stalin.sc:14400:506485 */ /* x301247 stalin.sc:14400:506503 */ t30519 = a41784; /* x301246 stalin.sc:14400:506486 */ t30520.tag = STRUCTURE_TYPE24753; t30520.value.structure_type24753 = t30519; return f13492(t30520);} /* [inside top level 17957] */ struct structure_type24753 *f17957(struct p17955 *p17957, unsigned a31317) {char *t30545; struct structure_type27745 *t30546; unsigned t30547; struct w49 t30548; /* x167865 stalin.sc:24396:845420 */ /* x167862 stalin.sc:24396:845435 */ t30545 = "close_input_port1"; /* x167863 stalin.sc:24396:845455 */ t30546 = p17957->a31301; /* x167864 stalin.sc:24396:845457 */ t30547 = a31317; /* x167861 stalin.sc:24396:845421 */ t30548.tag = STRUCTURE_TYPE27745; t30548.value.structure_type27745 = t30546; return f15534(t30545, t30548, t30547);} /* [inside top level 17956] */ struct w49 f17956(struct p17955 *p17956, struct w49 a31316) {struct structure_type24753 *a41787; /* CS */ struct structure_type24753 *t30549; struct w49 t30550; struct structure_type24753 *t30551; struct w49 t30552; struct w49 t30553; struct structure_type24753 *t30554; struct w49 t30555; struct w49 t30556; struct w49 t30557; struct w49 t30558; struct w49 t30559; struct structure_type27501 *t30560; struct w12218 t30561; struct structure_type24753 *t30562; struct structure_type24753 *t30563; struct w49 t30564; struct w49 t30565; unsigned t30566; struct w49 t30567; struct w49 t30568; struct w49 t30569; struct w49 t30570; char *t30571; struct structure_type27745 *t30572; struct w49 t30573; unsigned t30574; struct structure_type27501 *t30575; struct w12218 t30576; /* x167859 stalin.sc:24388:845157 */ /* x167826 stalin.sc:24388:845161 */ if (a704==FALSE_TYPE) goto l4324; /* x167844 stalin.sc:24389:845184 */ /* x167834 stalin.sc:24389:845190 */ /* x167833 stalin.sc:24389:845200 */ /* x167830 stalin.sc:24389:845209 */ t30568 = p17956->a31310; /* x167831 stalin.sc:24389:845212 */ t30569 = a31316; /* x167832 stalin.sc:24389:845215 */ t30570 = p17956->a31311; /* x167829 stalin.sc:24389:845201 */ t30567 = f14485(t30568, t30569, t30570); /* x167828 stalin.sc:24389:845191 */ t30562 = f13732(t30567); /* x167839 stalin.sc:24390:845224 */ /* x167836 stalin.sc:24390:845239 */ t30571 = "close_input_port2"; /* x167837 stalin.sc:24390:845259 */ t30572 = p17956->a31301; /* x167838 stalin.sc:24390:845261 */ /* x167835 stalin.sc:24390:845225 */ t30573.tag = STRUCTURE_TYPE27745; t30573.value.structure_type27745 = t30572; t30574 = FALSE_TYPE; t30563 = f15534(t30571, t30573, t30574); /* x167842 stalin.sc:24391:845269 */ /* x167841 stalin.sc:24391:845285 */ t30575 = p17956->a31300; /* x167840 stalin.sc:24391:845270 */ /* MOVE: branching squeezed to general */ if (t30575>=((struct structure_type27501 *)VALUE_OFFSET)) {t30576.tag = STRUCTURE_TYPE27501; t30576.value.structure_type27501 = t30575;} else t30576.tag = (unsigned)t30575; t30564 = f15342(t30576); /* x167843 stalin.sc:24392:845292 */ /* x167827 stalin.sc:24389:845185 */ t30565.tag = STRUCTURE_TYPE24753; t30565.value.structure_type24753 = t30563; t30566 = TRUE_TYPE; return f13672(t30562, t30565, t30564, t30566); l4324: /* x167858 stalin.sc:24393:845301 */ /* x167857 stalin.sc:24395:845378 */ /* x167856 stalin.sc:24395:845394 */ t30560 = p17956->a31300; /* x167855 stalin.sc:24395:845379 */ /* MOVE: branching squeezed to general */ if (t30560>=((struct structure_type27501 *)VALUE_OFFSET)) {t30561.tag = STRUCTURE_TYPE27501; t30561.value.structure_type27501 = t30560;} else t30561.tag = (unsigned)t30560; t30550 = f15342(t30561); /* x167854 stalin.sc:24394:845324 */ /* x167853 stalin.sc:24394:845341 */ /* x167852 stalin.sc:24394:845351 */ /* x167849 stalin.sc:24394:845360 */ t30557 = p17956->a31310; /* x167850 stalin.sc:24394:845363 */ t30558 = a31316; /* x167851 stalin.sc:24394:845366 */ t30559 = p17956->a31311; /* x167848 stalin.sc:24394:845352 */ t30556 = f14485(t30557, t30558, t30559); /* x167847 stalin.sc:24394:845342 */ t30554 = f13732(t30556); /* x167846 stalin.sc:24394:845325 */ t30555.tag = STRUCTURE_TYPE24753; t30555.value.structure_type24753 = t30554; t30549 = f13514(t30555); /* x167845 stalin.sc:24393:845302 */ t30553.tag = STRUCTURE_TYPE24753; t30553.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30553.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24393, 845301); out_of_memory_error();} t30553.value.structure_type24753->s0 = t30550; t30553.value.structure_type24753->s1.tag = NULL_TYPE; a41787 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41787==NULL) {backtrace("stalin.sc", 24393, 845301); out_of_memory_error();} a41787->s0.tag = STRUCTURE_TYPE24753; a41787->s0.value.structure_type24753 = t30549; a41787->s1 = t30553; /* x301260 stalin.sc:14400:506485 */ /* x301259 stalin.sc:14400:506503 */ t30551 = a41787; /* x301258 stalin.sc:14400:506486 */ t30552.tag = STRUCTURE_TYPE24753; t30552.value.structure_type24753 = t30551; return f13492(t30552);} /* [inside top level 17948] */ struct structure_type24753 *f17948(struct p17943 *p17948, unsigned a31273) {char *t30577; struct structure_type27745 *t30578; unsigned t30579; struct w49 t30580; /* x167788 stalin.sc:24374:844804 */ /* x167785 stalin.sc:24374:844819 */ t30577 = "open_output_file1"; /* x167786 stalin.sc:24374:844839 */ t30578 = p17948->a31254; /* x167787 stalin.sc:24374:844841 */ t30579 = a31273; /* x167784 stalin.sc:24374:844805 */ t30580.tag = STRUCTURE_TYPE27745; t30580.value.structure_type27745 = t30578; return f15534(t30577, t30580, t30579);} /* [inside top level 17944] */ struct w49 f17944(struct p17943 *p17944, struct w49 a31269) {struct w60864 a31272; /* T */ struct structure_type27501 *a38382; /* S */ struct structure_type27501 *a38407; /* S */ struct structure_type27501 *a38408; /* S */ struct structure_type24753 *a41785; /* CS */ struct structure_type24753 *a41786; /* CS */ struct structure_type27501 *t30581; struct structure_type24753 *t30582; struct w49 t30583; unsigned t30584; struct w49 t30585; struct structure_type24753 *t30586; struct w49 t30587; struct w49 t30588; struct w49 t30589; char *t30590; struct w49 t30591; struct structure_type27501 *t30592; struct w12218 t30593; struct structure_type27501 *t30594; struct w12218 t30595; struct structure_type27501 *t30596; struct w12218 t30597; struct structure_type27501 *t30598; struct w12218 t30599; struct w49 t30600; struct w49 t30601; struct w49 t30602; struct structure_type24753 *t30603; struct w49 t30604; struct w49 t30605; struct w49 t30606; struct structure_type27501 *t30607; struct structure_type24753 *t30608; struct w49 t30609; unsigned t30610; struct structure_type27501 *t30611; struct w49 t30612; struct structure_type24753 *t30613; struct w49 t30614; struct w49 t30615; struct w49 t30616; char *t30617; struct w49 t30618; struct structure_type24753 *t30619; struct structure_type24753 *t30620; char *t30621; struct w49 t30622; struct w49 t30623; unsigned t30624; struct w49 t30625; struct w49 t30626; struct w49 t30627; struct w49 t30628; struct structure_type27501 *t30629; struct structure_type27501 *t30630; struct w49 t30631; struct w211113 t30632; struct structure_type27501 *t30633; struct structure_type27501 *t30634; struct structure_type27501 *t30635; struct structure_type27501 *t30636; char *t30637; struct structure_type27745 *t30638; struct w49 t30639; unsigned t30640; struct structure_type27501 *t30641; struct w12218 t30642; struct p17943 *t30643; struct w60864 t30644; struct w49 t30645; struct w49 t30646; struct w49 t30647; struct structure_type24753 *t30648; struct w49 t30649; struct w49 t30650; struct w49 t30651; struct structure_type27501 *t30652; struct structure_type24753 *t30653; struct structure_type27501 *t30654; struct w49 t30655; unsigned t30656; struct structure_type27650 *t30657; struct w60864 t30658; struct w49 t30659; struct w49 t30660; struct w49 t30661; struct structure_type24753 *t30662; struct w49 t30663; struct w49 t30664; struct w49 t30665; char *t30666; struct w49 t30667; struct structure_type24753 *t30668; struct structure_type24753 *t30669; char *t30670; struct w49 t30671; struct w49 t30672; unsigned t30673; struct w49 t30674; struct w60864 t30675; struct w49 t30676; struct structure_type27650 *t30677; struct w49 t30678; struct w49 t30679; struct structure_type27650 *t30680; struct w49 t30681; char *t30682; struct structure_type27745 *t30683; struct w49 t30684; unsigned t30685; struct structure_type27501 *t30686; struct w12218 t30687; struct structure_type27650 *t30688; struct w49 t30689; struct p17943 *p17945; struct p17943 *p17946; struct p17943 *p17947; /* x167782 stalin.sc:24345:843835 */ /* x167647 stalin.sc:24345:843839 */ if (a704==FALSE_TYPE) goto l4326; /* x167767 stalin.sc:24346:843864 */ /* x167673 stalin.sc:24346:843868 */ /* x167672 stalin.sc:24346:843872 */ /* x167671 stalin.sc:24346:843882 */ t30592 = p17944->a31253; /* x167670 stalin.sc:24346:843873 */ /* MOVE: branching squeezed to general */ if (t30592>=((struct structure_type27501 *)VALUE_OFFSET)) {t30593.tag = STRUCTURE_TYPE27501; t30593.value.structure_type27501 = t30592;} else t30593.tag = (unsigned)t30592; if (!(f7031(t30593)==FALSE_TYPE)) goto l4327; p17945 = p17944; /* x167667 */ /* x167666 stalin.sc:24347:843893 */ /* x167665 stalin.sc:24347:843906 */ t30594 = p17945->a31253; /* x167664 stalin.sc:24347:843894 */ /* MOVE: branching squeezed to general */ if (t30594>=((struct structure_type27501 *)VALUE_OFFSET)) {t30595.tag = STRUCTURE_TYPE27501; t30595.value.structure_type27501 = t30594;} else t30595.tag = (unsigned)t30594; if (!(f7032(t30595)==FALSE_TYPE)) goto l4327; p17946 = p17945; /* x167661 */ /* x167654 stalin.sc:24348:843922 */ /* x167653 stalin.sc:24348:843931 */ t30596 = p17946->a31253; /* x167652 stalin.sc:24348:843923 */ /* MOVE: branching squeezed to general */ if (t30596>=((struct structure_type27501 *)VALUE_OFFSET)) {t30597.tag = STRUCTURE_TYPE27501; t30597.value.structure_type27501 = t30596;} else t30597.tag = (unsigned)t30596; if (f7030(t30597)==FALSE_TYPE) goto l4328; /* x167659 */ /* x167658 stalin.sc:24348:843939 */ /* x167657 stalin.sc:24348:843957 */ t30598 = p17946->a31253; /* x167656 stalin.sc:24348:843940 */ /* MOVE: branching squeezed to general */ if (t30598>=((struct structure_type27501 *)VALUE_OFFSET)) {t30599.tag = STRUCTURE_TYPE27501; t30599.value.structure_type27501 = t30598;} else t30599.tag = (unsigned)t30598; if (!(f15338(t30599)==FALSE_TYPE)) goto l4328; l4327: /* x167719 stalin.sc:24349:843967 */ /* x167718 stalin.sc:24349:843976 */ /* x167717 stalin.sc:24349:843996 */ t30688 = a1673; /* x167716 stalin.sc:24349:843977 */ /* MOVE: branching squeezed to general */ if (t30688>=((struct structure_type27650 *)VALUE_OFFSET)) {t30689.tag = STRUCTURE_TYPE27650; t30689.value.structure_type27650 = t30688;} else t30689.tag = (unsigned)t30688; t30644 = f15531(t30689); /* x167715 */ t30643 = p17944; p17947 = t30643; a31272 = t30644; /* x167714 stalin.sc:24350:844018 */ /* x167713 stalin.sc:24359:844321 */ /* x167712 stalin.sc:24359:844337 */ t30686 = p17947->a31253; /* x167711 stalin.sc:24359:844322 */ /* MOVE: branching squeezed to general */ if (t30686>=((struct structure_type27501 *)VALUE_OFFSET)) {t30687.tag = STRUCTURE_TYPE27501; t30687.value.structure_type27501 = t30686;} else t30687.tag = (unsigned)t30686; t30647 = f15342(t30687); /* x167710 stalin.sc:24354:844170 */ /* x167701 stalin.sc:24354:844176 */ /* x167700 stalin.sc:24355:844192 */ /* x167695 stalin.sc:24355:844201 */ t30675 = a31272; /* x167698 stalin.sc:24355:844203 */ /* x167697 stalin.sc:24355:844215 */ t30680 = a1673; /* x167696 stalin.sc:24355:844204 */ /* MOVE: branching squeezed to general */ if (t30680>=((struct structure_type27650 *)VALUE_OFFSET)) {t30681.tag = STRUCTURE_TYPE27650; t30681.value.structure_type27650 = t30680;} else t30681.tag = (unsigned)t30680; t30676 = f8153(t30681); /* x167699 stalin.sc:24355:844230 */ t30677 = a1673; /* x167694 stalin.sc:24355:844193 */ t30678 = *((struct w49 *)(&t30675)); /* MOVE: branching squeezed to general */ if (t30677>=((struct structure_type27650 *)VALUE_OFFSET)) {t30679.tag = STRUCTURE_TYPE27650; t30679.value.structure_type27650 = t30677;} else t30679.tag = (unsigned)t30677; t30674 = f14485(t30678, t30676, t30679); /* x167693 stalin.sc:24354:844177 */ t30668 = f13596(t30674); /* x167706 stalin.sc:24356:844251 */ /* x167703 stalin.sc:24356:844266 */ t30682 = "open_output_file2"; /* x167704 stalin.sc:24356:844286 */ t30683 = p17947->a31254; /* x167705 stalin.sc:24356:844288 */ /* x167702 stalin.sc:24356:844252 */ t30684.tag = STRUCTURE_TYPE27745; t30684.value.structure_type27745 = t30683; t30685 = FALSE_TYPE; t30669 = f15534(t30682, t30684, t30685); /* x167708 stalin.sc:24357:844297 */ /* x167707 stalin.sc:24357:844298 */ /* x276473 stalin.sc:14693:514793 */ t30670 = ""; /* x167709 stalin.sc:24358:844311 */ /* x167692 stalin.sc:24354:844171 */ t30671.tag = STRUCTURE_TYPE24753; t30671.value.structure_type24753 = t30669; t30672.tag = STRING_TYPE; t30672.value.string_type = t30670; t30673 = FALSE_TYPE; t30646 = f13672(t30668, t30671, t30672, t30673); /* x167691 stalin.sc:24351:844041 */ /* x167679 stalin.sc:24351:844048 */ /* x167677 stalin.sc:24351:844072 */ t30657 = a1673; /* x167678 stalin.sc:24351:844086 */ t30658 = a31272; /* x167676 stalin.sc:24351:844049 */ /* MOVE: branching squeezed to general */ if (t30657>=((struct structure_type27650 *)VALUE_OFFSET)) {t30659.tag = STRUCTURE_TYPE27650; t30659.value.structure_type27650 = t30657;} else t30659.tag = (unsigned)t30657; t30660 = *((struct w49 *)(&t30658)); t30652 = f7025(t30659, t30660); /* x167689 stalin.sc:24352:844095 */ /* x167685 stalin.sc:24352:844104 */ /* x167682 stalin.sc:24352:844113 */ t30663 = p17947->a31263; /* x167683 stalin.sc:24352:844116 */ t30664 = a31269; /* x167684 stalin.sc:24352:844119 */ t30665 = p17947->a31264; /* x167681 stalin.sc:24352:844105 */ t30661 = f14485(t30663, t30664, t30665); /* x167688 stalin.sc:24352:844123 */ /* x167687 stalin.sc:24352:844133 */ t30666 = "w"; /* x167686 stalin.sc:24352:844124 */ t30667.tag = STRING_TYPE; t30667.value.string_type = t30666; t30662 = f13532(t30667); /* x167680 stalin.sc:24352:844096 */ t30653 = f13730(t30661, t30662); /* x167690 stalin.sc:24353:844145 */ /* x167675 stalin.sc:24351:844042 */ t30654 = t30652; t30655.tag = STRUCTURE_TYPE24753; t30655.value.structure_type24753 = t30653; t30656 = (unsigned)NATIVE_PROCEDURE_TYPE7422; t30645 = f15508(t30654, t30655, t30656); /* x167674 stalin.sc:24350:844019 */ t30651.tag = STRUCTURE_TYPE24753; t30651.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30651.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24350, 844018); out_of_memory_error();} t30651.value.structure_type24753->s0 = t30647; t30651.value.structure_type24753->s1.tag = NULL_TYPE; t30650.tag = STRUCTURE_TYPE24753; t30650.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30650.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24350, 844018); out_of_memory_error();} t30650.value.structure_type24753->s0 = t30646; t30650.value.structure_type24753->s1 = t30651; a41785 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41785==NULL) {backtrace("stalin.sc", 24350, 844018); out_of_memory_error();} a41785->s0 = t30645; a41785->s1 = t30650; /* x301252 stalin.sc:14400:506485 */ /* x301251 stalin.sc:14400:506503 */ t30648 = a41785; /* x301250 stalin.sc:14400:506486 */ t30649.tag = STRUCTURE_TYPE24753; t30649.value.structure_type24753 = t30648; return f13492(t30649); l4328: /* x167766 stalin.sc:24360:844346 */ /* x167765 stalin.sc:24371:844686 */ /* x167764 stalin.sc:24371:844702 */ t30641 = p17944->a31253; /* x167763 stalin.sc:24371:844687 */ /* MOVE: branching squeezed to general */ if (t30641>=((struct structure_type27501 *)VALUE_OFFSET)) {t30642.tag = STRUCTURE_TYPE27501; t30642.value.structure_type27501 = t30641;} else t30642.tag = (unsigned)t30641; t30602 = f15342(t30642); /* x167762 stalin.sc:24364:844469 */ /* x167753 stalin.sc:24364:844475 */ /* x167752 stalin.sc:24364:844485 */ /* x167742 stalin.sc:24364:844494 */ /* x167741 stalin.sc:24364:844504 */ t30629 = p17944->a31253; /* x167740 stalin.sc:24364:844495 */ a38382 = t30629; /* x286197 */ /* x286196 */ t30630 = a38382; /* x286195 */ if (!(t30630>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-C[5769] 33299]"); structure_ref_error();} t30626 = t30630->s3; /* x167748 stalin.sc:24365:844516 */ /* x167744 stalin.sc:24365:844533 */ /* x167747 stalin.sc:24366:844563 */ /* x167746 stalin.sc:24366:844580 */ t30633 = p17944->a31253; /* x167745 stalin.sc:24366:844564 */ a38407 = t30633; /* x286297 */ /* x286296 */ t30634 = a38407; /* x286295 */ if (!(t30634>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33324]"); structure_ref_error();} t30631 = t30634->s2; /* x167743 stalin.sc:24365:844517 */ t30632.tag = NATIVE_PROCEDURE_TYPE7422; t30627 = f8157(t30632, t30631); /* x167751 stalin.sc:24367:844593 */ /* x167750 stalin.sc:24367:844610 */ t30635 = p17944->a31253; /* x167749 stalin.sc:24367:844594 */ a38408 = t30635; /* x286301 */ /* x286300 */ t30636 = a38408; /* x286299 */ if (!(t30636>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33325]"); structure_ref_error();} t30628 = t30636->s2; /* x167739 stalin.sc:24364:844486 */ t30625 = f14485(t30626, t30627, t30628); /* x167738 stalin.sc:24364:844476 */ t30619 = f13596(t30625); /* x167758 stalin.sc:24368:844619 */ /* x167755 stalin.sc:24368:844634 */ t30637 = "open_output_file2"; /* x167756 stalin.sc:24368:844654 */ t30638 = p17944->a31254; /* x167757 stalin.sc:24368:844656 */ /* x167754 stalin.sc:24368:844620 */ t30639.tag = STRUCTURE_TYPE27745; t30639.value.structure_type27745 = t30638; t30640 = FALSE_TYPE; t30620 = f15534(t30637, t30639, t30640); /* x167760 stalin.sc:24369:844664 */ /* x167759 stalin.sc:24369:844665 */ /* x276475 stalin.sc:14693:514793 */ t30621 = ""; /* x167761 stalin.sc:24370:844677 */ /* x167737 stalin.sc:24364:844470 */ t30622.tag = STRUCTURE_TYPE24753; t30622.value.structure_type24753 = t30620; t30623.tag = STRING_TYPE; t30623.value.string_type = t30621; t30624 = FALSE_TYPE; t30601 = f13672(t30619, t30622, t30623, t30624); /* x167736 stalin.sc:24361:844368 */ /* x167724 stalin.sc:24361:844375 */ /* x167723 stalin.sc:24361:844388 */ t30611 = p17944->a31253; /* x167722 stalin.sc:24361:844376 */ t30607 = f15762(t30611); /* x167734 stalin.sc:24362:844396 */ /* x167730 stalin.sc:24362:844405 */ /* x167727 stalin.sc:24362:844414 */ t30614 = p17944->a31263; /* x167728 stalin.sc:24362:844417 */ t30615 = a31269; /* x167729 stalin.sc:24362:844420 */ t30616 = p17944->a31264; /* x167726 stalin.sc:24362:844406 */ t30612 = f14485(t30614, t30615, t30616); /* x167733 stalin.sc:24362:844424 */ /* x167732 stalin.sc:24362:844434 */ t30617 = "w"; /* x167731 stalin.sc:24362:844425 */ t30618.tag = STRING_TYPE; t30618.value.string_type = t30617; t30613 = f13532(t30618); /* x167725 stalin.sc:24362:844397 */ t30608 = f13730(t30612, t30613); /* x167735 stalin.sc:24363:844445 */ /* x167721 stalin.sc:24361:844369 */ t30609.tag = STRUCTURE_TYPE24753; t30609.value.structure_type24753 = t30608; t30610 = (unsigned)NATIVE_PROCEDURE_TYPE7422; t30600 = f15508(t30607, t30609, t30610); /* x167720 stalin.sc:24360:844347 */ t30606.tag = STRUCTURE_TYPE24753; t30606.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30606.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24360, 844346); out_of_memory_error();} t30606.value.structure_type24753->s0 = t30602; t30606.value.structure_type24753->s1.tag = NULL_TYPE; t30605.tag = STRUCTURE_TYPE24753; t30605.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30605.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24360, 844346); out_of_memory_error();} t30605.value.structure_type24753->s0 = t30601; t30605.value.structure_type24753->s1 = t30606; a41786 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41786==NULL) {backtrace("stalin.sc", 24360, 844346); out_of_memory_error();} a41786->s0 = t30600; a41786->s1 = t30605; /* x301256 stalin.sc:14400:506485 */ /* x301255 stalin.sc:14400:506503 */ t30603 = a41786; /* x301254 stalin.sc:14400:506486 */ t30604.tag = STRUCTURE_TYPE24753; t30604.value.structure_type24753 = t30603; return f13492(t30604); l4326: /* x167781 stalin.sc:24372:844714 */ /* x167769 stalin.sc:24373:844722 */ t30581 = p17944->a31253; /* x167779 stalin.sc:24373:844724 */ /* x167775 stalin.sc:24373:844733 */ /* x167772 stalin.sc:24373:844742 */ t30587 = p17944->a31263; /* x167773 stalin.sc:24373:844745 */ t30588 = a31269; /* x167774 stalin.sc:24373:844748 */ t30589 = p17944->a31264; /* x167771 stalin.sc:24373:844734 */ t30585 = f14485(t30587, t30588, t30589); /* x167778 stalin.sc:24373:844752 */ /* x167777 stalin.sc:24373:844762 */ t30590 = "w"; /* x167776 stalin.sc:24373:844753 */ t30591.tag = STRING_TYPE; t30591.value.string_type = t30590; t30586 = f13532(t30591); /* x167770 stalin.sc:24373:844725 */ t30582 = f13730(t30585, t30586); /* x167780 stalin.sc:24373:844768 */ /* x167768 stalin.sc:24372:844715 */ t30583.tag = STRUCTURE_TYPE24753; t30583.value.structure_type24753 = t30582; t30584 = (unsigned)NATIVE_PROCEDURE_TYPE7422; return f15508(t30581, t30583, t30584);} /* [inside top level 17936] */ struct structure_type24753 *f17936(struct p17931 *p17936, unsigned a31226) {char *t30690; struct structure_type27745 *t30691; unsigned t30692; struct w49 t30693; /* x167607 stalin.sc:24330:843491 */ /* x167604 stalin.sc:24330:843506 */ t30690 = "open_input_file1"; /* x167605 stalin.sc:24330:843525 */ t30691 = p17936->a31207; /* x167606 stalin.sc:24330:843527 */ t30692 = a31226; /* x167603 stalin.sc:24330:843492 */ t30693.tag = STRUCTURE_TYPE27745; t30693.value.structure_type27745 = t30691; return f15534(t30690, t30693, t30692);} /* [inside top level 17932] */ struct w49 f17932(struct p17931 *p17932, struct w49 a31222) {struct w60864 a31225; /* T */ struct structure_type27501 *a38383; /* S */ struct structure_type27501 *a38409; /* S */ struct structure_type27501 *a38410; /* S */ struct structure_type24753 *a41788; /* CS */ struct structure_type24753 *a41789; /* CS */ struct structure_type27501 *t30694; struct structure_type24753 *t30695; struct w49 t30696; unsigned t30697; struct w49 t30698; struct structure_type24753 *t30699; struct w49 t30700; struct w49 t30701; struct w49 t30702; char *t30703; struct w49 t30704; struct structure_type27501 *t30705; struct w12218 t30706; struct structure_type27501 *t30707; struct w12218 t30708; struct structure_type27501 *t30709; struct w12218 t30710; struct structure_type27501 *t30711; struct w12218 t30712; struct w49 t30713; struct w49 t30714; struct w49 t30715; struct structure_type24753 *t30716; struct w49 t30717; struct w49 t30718; struct w49 t30719; struct structure_type27501 *t30720; struct structure_type24753 *t30721; struct w49 t30722; unsigned t30723; struct structure_type27501 *t30724; struct w49 t30725; struct structure_type24753 *t30726; struct w49 t30727; struct w49 t30728; struct w49 t30729; char *t30730; struct w49 t30731; struct structure_type24753 *t30732; struct structure_type24753 *t30733; char *t30734; struct w49 t30735; struct w49 t30736; unsigned t30737; struct w49 t30738; struct w49 t30739; struct w49 t30740; struct w49 t30741; struct structure_type27501 *t30742; struct structure_type27501 *t30743; struct w49 t30744; struct w211113 t30745; struct structure_type27501 *t30746; struct structure_type27501 *t30747; struct structure_type27501 *t30748; struct structure_type27501 *t30749; char *t30750; struct structure_type27745 *t30751; struct w49 t30752; unsigned t30753; struct structure_type27501 *t30754; struct w12218 t30755; struct p17931 *t30756; struct w60864 t30757; struct w49 t30758; struct w49 t30759; struct w49 t30760; struct structure_type24753 *t30761; struct w49 t30762; struct w49 t30763; struct w49 t30764; struct structure_type27501 *t30765; struct structure_type24753 *t30766; struct structure_type27501 *t30767; struct w49 t30768; unsigned t30769; struct structure_type27650 *t30770; struct w60864 t30771; struct w49 t30772; struct w49 t30773; struct w49 t30774; struct structure_type24753 *t30775; struct w49 t30776; struct w49 t30777; struct w49 t30778; char *t30779; struct w49 t30780; struct structure_type24753 *t30781; struct structure_type24753 *t30782; char *t30783; struct w49 t30784; struct w49 t30785; unsigned t30786; struct w49 t30787; struct w60864 t30788; struct w49 t30789; struct structure_type27650 *t30790; struct w49 t30791; struct w49 t30792; struct structure_type27650 *t30793; struct w49 t30794; char *t30795; struct structure_type27745 *t30796; struct w49 t30797; unsigned t30798; struct structure_type27501 *t30799; struct w12218 t30800; struct structure_type27650 *t30801; struct w49 t30802; struct p17931 *p17933; struct p17931 *p17934; struct p17931 *p17935; /* x167601 stalin.sc:24302:842533 */ /* x167466 stalin.sc:24302:842537 */ if (a704==FALSE_TYPE) goto l4333; /* x167586 stalin.sc:24303:842562 */ /* x167492 stalin.sc:24303:842566 */ /* x167491 stalin.sc:24303:842570 */ /* x167490 stalin.sc:24303:842580 */ t30705 = p17932->a31206; /* x167489 stalin.sc:24303:842571 */ /* MOVE: branching squeezed to general */ if (t30705>=((struct structure_type27501 *)VALUE_OFFSET)) {t30706.tag = STRUCTURE_TYPE27501; t30706.value.structure_type27501 = t30705;} else t30706.tag = (unsigned)t30705; if (!(f7031(t30706)==FALSE_TYPE)) goto l4334; p17933 = p17932; /* x167486 */ /* x167485 stalin.sc:24304:842591 */ /* x167484 stalin.sc:24304:842604 */ t30707 = p17933->a31206; /* x167483 stalin.sc:24304:842592 */ /* MOVE: branching squeezed to general */ if (t30707>=((struct structure_type27501 *)VALUE_OFFSET)) {t30708.tag = STRUCTURE_TYPE27501; t30708.value.structure_type27501 = t30707;} else t30708.tag = (unsigned)t30707; if (!(f7032(t30708)==FALSE_TYPE)) goto l4334; p17934 = p17933; /* x167480 */ /* x167473 stalin.sc:24305:842620 */ /* x167472 stalin.sc:24305:842629 */ t30709 = p17934->a31206; /* x167471 stalin.sc:24305:842621 */ /* MOVE: branching squeezed to general */ if (t30709>=((struct structure_type27501 *)VALUE_OFFSET)) {t30710.tag = STRUCTURE_TYPE27501; t30710.value.structure_type27501 = t30709;} else t30710.tag = (unsigned)t30709; if (f7030(t30710)==FALSE_TYPE) goto l4335; /* x167478 */ /* x167477 stalin.sc:24305:842637 */ /* x167476 stalin.sc:24305:842655 */ t30711 = p17934->a31206; /* x167475 stalin.sc:24305:842638 */ /* MOVE: branching squeezed to general */ if (t30711>=((struct structure_type27501 *)VALUE_OFFSET)) {t30712.tag = STRUCTURE_TYPE27501; t30712.value.structure_type27501 = t30711;} else t30712.tag = (unsigned)t30711; if (!(f15338(t30712)==FALSE_TYPE)) goto l4335; l4334: /* x167538 stalin.sc:24306:842665 */ /* x167537 stalin.sc:24306:842674 */ /* x167536 stalin.sc:24306:842694 */ t30801 = a1674; /* x167535 stalin.sc:24306:842675 */ /* MOVE: branching squeezed to general */ if (t30801>=((struct structure_type27650 *)VALUE_OFFSET)) {t30802.tag = STRUCTURE_TYPE27650; t30802.value.structure_type27650 = t30801;} else t30802.tag = (unsigned)t30801; t30757 = f15531(t30802); /* x167534 */ t30756 = p17932; p17935 = t30756; a31225 = t30757; /* x167533 stalin.sc:24307:842715 */ /* x167532 stalin.sc:24316:843013 */ /* x167531 stalin.sc:24316:843029 */ t30799 = p17935->a31206; /* x167530 stalin.sc:24316:843014 */ /* MOVE: branching squeezed to general */ if (t30799>=((struct structure_type27501 *)VALUE_OFFSET)) {t30800.tag = STRUCTURE_TYPE27501; t30800.value.structure_type27501 = t30799;} else t30800.tag = (unsigned)t30799; t30760 = f15342(t30800); /* x167529 stalin.sc:24311:842865 */ /* x167520 stalin.sc:24311:842871 */ /* x167519 stalin.sc:24312:842887 */ /* x167514 stalin.sc:24312:842896 */ t30788 = a31225; /* x167517 stalin.sc:24312:842898 */ /* x167516 stalin.sc:24312:842910 */ t30793 = a1674; /* x167515 stalin.sc:24312:842899 */ /* MOVE: branching squeezed to general */ if (t30793>=((struct structure_type27650 *)VALUE_OFFSET)) {t30794.tag = STRUCTURE_TYPE27650; t30794.value.structure_type27650 = t30793;} else t30794.tag = (unsigned)t30793; t30789 = f8153(t30794); /* x167518 stalin.sc:24312:842924 */ t30790 = a1674; /* x167513 stalin.sc:24312:842888 */ t30791 = *((struct w49 *)(&t30788)); /* MOVE: branching squeezed to general */ if (t30790>=((struct structure_type27650 *)VALUE_OFFSET)) {t30792.tag = STRUCTURE_TYPE27650; t30792.value.structure_type27650 = t30790;} else t30792.tag = (unsigned)t30790; t30787 = f14485(t30791, t30789, t30792); /* x167512 stalin.sc:24311:842872 */ t30781 = f13596(t30787); /* x167525 stalin.sc:24313:842944 */ /* x167522 stalin.sc:24313:842959 */ t30795 = "open_input_file2"; /* x167523 stalin.sc:24313:842978 */ t30796 = p17935->a31207; /* x167524 stalin.sc:24313:842980 */ /* x167521 stalin.sc:24313:842945 */ t30797.tag = STRUCTURE_TYPE27745; t30797.value.structure_type27745 = t30796; t30798 = FALSE_TYPE; t30782 = f15534(t30795, t30797, t30798); /* x167527 stalin.sc:24314:842989 */ /* x167526 stalin.sc:24314:842990 */ /* x276477 stalin.sc:14693:514793 */ t30783 = ""; /* x167528 stalin.sc:24315:843003 */ /* x167511 stalin.sc:24311:842866 */ t30784.tag = STRUCTURE_TYPE24753; t30784.value.structure_type24753 = t30782; t30785.tag = STRING_TYPE; t30785.value.string_type = t30783; t30786 = FALSE_TYPE; t30759 = f13672(t30781, t30784, t30785, t30786); /* x167510 stalin.sc:24308:842738 */ /* x167498 stalin.sc:24308:842745 */ /* x167496 stalin.sc:24308:842769 */ t30770 = a1674; /* x167497 stalin.sc:24308:842782 */ t30771 = a31225; /* x167495 stalin.sc:24308:842746 */ /* MOVE: branching squeezed to general */ if (t30770>=((struct structure_type27650 *)VALUE_OFFSET)) {t30772.tag = STRUCTURE_TYPE27650; t30772.value.structure_type27650 = t30770;} else t30772.tag = (unsigned)t30770; t30773 = *((struct w49 *)(&t30771)); t30765 = f7025(t30772, t30773); /* x167508 stalin.sc:24309:842791 */ /* x167504 stalin.sc:24309:842800 */ /* x167501 stalin.sc:24309:842809 */ t30776 = p17935->a31216; /* x167502 stalin.sc:24309:842812 */ t30777 = a31222; /* x167503 stalin.sc:24309:842815 */ t30778 = p17935->a31217; /* x167500 stalin.sc:24309:842801 */ t30774 = f14485(t30776, t30777, t30778); /* x167507 stalin.sc:24309:842819 */ /* x167506 stalin.sc:24309:842829 */ t30779 = "r"; /* x167505 stalin.sc:24309:842820 */ t30780.tag = STRING_TYPE; t30780.value.string_type = t30779; t30775 = f13532(t30780); /* x167499 stalin.sc:24309:842792 */ t30766 = f13730(t30774, t30775); /* x167509 stalin.sc:24310:842841 */ /* x167494 stalin.sc:24308:842739 */ t30767 = t30765; t30768.tag = STRUCTURE_TYPE24753; t30768.value.structure_type24753 = t30766; t30769 = (unsigned)NATIVE_PROCEDURE_TYPE7423; t30758 = f15508(t30767, t30768, t30769); /* x167493 stalin.sc:24307:842716 */ t30764.tag = STRUCTURE_TYPE24753; t30764.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30764.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24307, 842715); out_of_memory_error();} t30764.value.structure_type24753->s0 = t30760; t30764.value.structure_type24753->s1.tag = NULL_TYPE; t30763.tag = STRUCTURE_TYPE24753; t30763.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30763.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24307, 842715); out_of_memory_error();} t30763.value.structure_type24753->s0 = t30759; t30763.value.structure_type24753->s1 = t30764; a41788 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41788==NULL) {backtrace("stalin.sc", 24307, 842715); out_of_memory_error();} a41788->s0 = t30758; a41788->s1 = t30763; /* x301264 stalin.sc:14400:506485 */ /* x301263 stalin.sc:14400:506503 */ t30761 = a41788; /* x301262 stalin.sc:14400:506486 */ t30762.tag = STRUCTURE_TYPE24753; t30762.value.structure_type24753 = t30761; return f13492(t30762); l4335: /* x167585 stalin.sc:24317:843038 */ /* x167584 stalin.sc:24328:843375 */ /* x167583 stalin.sc:24328:843391 */ t30754 = p17932->a31206; /* x167582 stalin.sc:24328:843376 */ /* MOVE: branching squeezed to general */ if (t30754>=((struct structure_type27501 *)VALUE_OFFSET)) {t30755.tag = STRUCTURE_TYPE27501; t30755.value.structure_type27501 = t30754;} else t30755.tag = (unsigned)t30754; t30715 = f15342(t30755); /* x167581 stalin.sc:24321:843160 */ /* x167572 stalin.sc:24321:843166 */ /* x167571 stalin.sc:24321:843176 */ /* x167561 stalin.sc:24321:843185 */ /* x167560 stalin.sc:24321:843195 */ t30742 = p17932->a31206; /* x167559 stalin.sc:24321:843186 */ a38383 = t30742; /* x286201 */ /* x286200 */ t30743 = a38383; /* x286199 */ if (!(t30743>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-C[5769] 33300]"); structure_ref_error();} t30739 = t30743->s3; /* x167567 stalin.sc:24322:843207 */ /* x167563 stalin.sc:24322:843224 */ /* x167566 stalin.sc:24323:843253 */ /* x167565 stalin.sc:24323:843270 */ t30746 = p17932->a31206; /* x167564 stalin.sc:24323:843254 */ a38409 = t30746; /* x286305 */ /* x286304 */ t30747 = a38409; /* x286303 */ if (!(t30747>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33326]"); structure_ref_error();} t30744 = t30747->s2; /* x167562 stalin.sc:24322:843208 */ t30745.tag = NATIVE_PROCEDURE_TYPE7423; t30740 = f8157(t30745, t30744); /* x167570 stalin.sc:24324:843283 */ /* x167569 stalin.sc:24324:843300 */ t30748 = p17932->a31206; /* x167568 stalin.sc:24324:843284 */ a38410 = t30748; /* x286309 */ /* x286308 */ t30749 = a38410; /* x286307 */ if (!(t30749>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33327]"); structure_ref_error();} t30741 = t30749->s2; /* x167558 stalin.sc:24321:843177 */ t30738 = f14485(t30739, t30740, t30741); /* x167557 stalin.sc:24321:843167 */ t30732 = f13596(t30738); /* x167577 stalin.sc:24325:843309 */ /* x167574 stalin.sc:24325:843324 */ t30750 = "open_input_file2"; /* x167575 stalin.sc:24325:843343 */ t30751 = p17932->a31207; /* x167576 stalin.sc:24325:843345 */ /* x167573 stalin.sc:24325:843310 */ t30752.tag = STRUCTURE_TYPE27745; t30752.value.structure_type27745 = t30751; t30753 = FALSE_TYPE; t30733 = f15534(t30750, t30752, t30753); /* x167579 stalin.sc:24326:843353 */ /* x167578 stalin.sc:24326:843354 */ /* x276479 stalin.sc:14693:514793 */ t30734 = ""; /* x167580 stalin.sc:24327:843366 */ /* x167556 stalin.sc:24321:843161 */ t30735.tag = STRUCTURE_TYPE24753; t30735.value.structure_type24753 = t30733; t30736.tag = STRING_TYPE; t30736.value.string_type = t30734; t30737 = FALSE_TYPE; t30714 = f13672(t30732, t30735, t30736, t30737); /* x167555 stalin.sc:24318:843060 */ /* x167543 stalin.sc:24318:843067 */ /* x167542 stalin.sc:24318:843080 */ t30724 = p17932->a31206; /* x167541 stalin.sc:24318:843068 */ t30720 = f15762(t30724); /* x167553 stalin.sc:24319:843088 */ /* x167549 stalin.sc:24319:843097 */ /* x167546 stalin.sc:24319:843106 */ t30727 = p17932->a31216; /* x167547 stalin.sc:24319:843109 */ t30728 = a31222; /* x167548 stalin.sc:24319:843112 */ t30729 = p17932->a31217; /* x167545 stalin.sc:24319:843098 */ t30725 = f14485(t30727, t30728, t30729); /* x167552 stalin.sc:24319:843116 */ /* x167551 stalin.sc:24319:843126 */ t30730 = "r"; /* x167550 stalin.sc:24319:843117 */ t30731.tag = STRING_TYPE; t30731.value.string_type = t30730; t30726 = f13532(t30731); /* x167544 stalin.sc:24319:843089 */ t30721 = f13730(t30725, t30726); /* x167554 stalin.sc:24320:843137 */ /* x167540 stalin.sc:24318:843061 */ t30722.tag = STRUCTURE_TYPE24753; t30722.value.structure_type24753 = t30721; t30723 = (unsigned)NATIVE_PROCEDURE_TYPE7423; t30713 = f15508(t30720, t30722, t30723); /* x167539 stalin.sc:24317:843039 */ t30719.tag = STRUCTURE_TYPE24753; t30719.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30719.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24317, 843038); out_of_memory_error();} t30719.value.structure_type24753->s0 = t30715; t30719.value.structure_type24753->s1.tag = NULL_TYPE; t30718.tag = STRUCTURE_TYPE24753; t30718.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30718.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24317, 843038); out_of_memory_error();} t30718.value.structure_type24753->s0 = t30714; t30718.value.structure_type24753->s1 = t30719; a41789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41789==NULL) {backtrace("stalin.sc", 24317, 843038); out_of_memory_error();} a41789->s0 = t30713; a41789->s1 = t30718; /* x301268 stalin.sc:14400:506485 */ /* x301267 stalin.sc:14400:506503 */ t30716 = a41789; /* x301266 stalin.sc:14400:506486 */ t30717.tag = STRUCTURE_TYPE24753; t30717.value.structure_type24753 = t30716; return f13492(t30717); l4333: /* x167600 stalin.sc:24329:843403 */ /* x167588 stalin.sc:24329:843410 */ t30694 = p17932->a31206; /* x167598 stalin.sc:24329:843412 */ /* x167594 stalin.sc:24329:843421 */ /* x167591 stalin.sc:24329:843430 */ t30700 = p17932->a31216; /* x167592 stalin.sc:24329:843433 */ t30701 = a31222; /* x167593 stalin.sc:24329:843436 */ t30702 = p17932->a31217; /* x167590 stalin.sc:24329:843422 */ t30698 = f14485(t30700, t30701, t30702); /* x167597 stalin.sc:24329:843440 */ /* x167596 stalin.sc:24329:843450 */ t30703 = "r"; /* x167595 stalin.sc:24329:843441 */ t30704.tag = STRING_TYPE; t30704.value.string_type = t30703; t30699 = f13532(t30704); /* x167589 stalin.sc:24329:843413 */ t30695 = f13730(t30698, t30699); /* x167599 stalin.sc:24329:843456 */ /* x167587 stalin.sc:24329:843404 */ t30696.tag = STRUCTURE_TYPE24753; t30696.value.structure_type24753 = t30695; t30697 = (unsigned)NATIVE_PROCEDURE_TYPE7423; return f15508(t30694, t30696, t30697);} /* [inside top level 17916] */ unsigned f17916(struct w49 a31146) {struct w49 t30803; /* x167388 stalin.sc:24279:841898 */ /* x167388 stalin.sc:24279:841898 */ /* x167387 stalin.sc:24279:841903 */ /* x167386 stalin.sc:24279:841922 */ t30803 = a31146; /* x167385 stalin.sc:24279:841904 */ if (!(f7701(t30803)==FALSE_TYPE)) goto l4340; return TRUE_TYPE; l4340: return FALSE_TYPE;} /* [inside top level 17915] */ struct structure_type24753 *f17915(void) {struct structure_type24753 *a34944; /* OBJS */ /* x167390 stalin.sc:24279:841880 */ /* x167389 stalin.sc:24279:841886 */ /* x167383 stalin.sc:24279:841881 */ a34944 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34944==NULL) {backtrace("stalin.sc", 24279, 841880); out_of_memory_error();} a34944->s0.tag = NATIVE_PROCEDURE_TYPE22492; a34944->s1.tag = NULL_TYPE; /* x271895 */ return a34944;} /* [inside top level 17904] */ unsigned f17904(struct w49 a31101) {struct w49 t30804; /* x167323 stalin.sc:24266:841421 */ /* x167323 stalin.sc:24266:841421 */ /* x167322 stalin.sc:24266:841426 */ /* x167321 stalin.sc:24266:841444 */ t30804 = a31101; /* x167320 stalin.sc:24266:841427 */ if (!(f7700(t30804)==FALSE_TYPE)) goto l4343; return TRUE_TYPE; l4343: return FALSE_TYPE;} /* [inside top level 17903] */ struct structure_type24753 *f17903(void) {struct structure_type24753 *a34945; /* OBJS */ /* x167325 stalin.sc:24266:841403 */ /* x167324 stalin.sc:24266:841409 */ /* x167318 stalin.sc:24266:841404 */ a34945 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34945==NULL) {backtrace("stalin.sc", 24266, 841403); out_of_memory_error();} a34945->s0.tag = NATIVE_PROCEDURE_TYPE22491; a34945->s1.tag = NULL_TYPE; /* x271897 */ return a34945;} /* [inside top level 17894] */ struct structure_type24753 *f17894(struct p17869 *p17894, unsigned a31085) {char *t30805; struct structure_type27745 *t30806; unsigned t30807; struct w49 t30808; /* x167194 stalin.sc:24238:840547 */ /* x167191 stalin.sc:24238:840562 */ t30805 = "call_with_current_continuation"; /* x167192 stalin.sc:24238:840595 */ t30806 = p17894->a31050; /* x167193 stalin.sc:24238:840597 */ t30807 = a31085; /* x167190 stalin.sc:24238:840548 */ t30808.tag = STRUCTURE_TYPE27745; t30808.value.structure_type27745 = t30806; return f15534(t30805, t30808, t30807);} /* [inside top level 17890] */ struct w49 f17890(void) {struct p17869 *p17890 = d17890; struct w49 a31082 = b31082; /* U1 */ struct structure_type27650 *a31083; /* W3 */ struct w60864 a31084; /* T3 */ struct structure_type24753 *a35102; /* OBJS */ struct structure_type24753 *a35103; /* OBJS */ struct structure_type27745 *a36423; /* S */ struct p17869 *t30809; struct structure_type27650 *t30810; struct p17869 *t30811; struct w60864 t30812; struct p17869 *t30813; struct structure_type27501 *t30814; struct structure_type27745 *t30815; struct w49 t30816; struct w49 t30817; struct w49 t30818; struct w49 t30819; struct w49 t30820; struct structure_type24753 *t30821; struct structure_type24753 *t30822; char *t30823; struct structure_type27650 *t30824; struct structure_type27745 *t30825; char *t30826; struct structure_type27745 *t30827; struct w60864 t30828; struct structure_type27650 *t30829; struct structure_type27650 *t30830; struct w49 t30831; struct structure_type27858 *t30832; struct structure_type24753 *t30833; struct w49 t30834; struct structure_type27745 *t30835; struct structure_type27745 *t30836; struct p17869 *p17891; struct p17869 *p17892; struct p17869 *p17893; /* x167188 stalin.sc:24233:840287 */ /* x167187 stalin.sc:24233:840298 */ /* x167186 stalin.sc:24234:840330 */ /* x167185 stalin.sc:24234:840346 */ /* x167184 stalin.sc:24234:840368 */ t30835 = p17890->a31050; /* x167183 stalin.sc:24234:840347 */ a36423 = t30835; /* x278361 */ /* x278360 */ t30836 = a36423; /* x278359 */ t30834 = t30836->s0; /* x167182 stalin.sc:24234:840331 */ t30832 = f7110(t30834); /* x167181 stalin.sc:24233:840299 */ t30833 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t30833==NULL) {backtrace("stalin.sc", 24233, 840298); out_of_memory_error();} t30833->s0.tag = STRUCTURE_TYPE27858; t30833->s0.value.structure_type27858 = t30832; t30833->s1.tag = NULL_TYPE; t30810 = f8098(t30833); /* x167180 */ t30809 = p17890; p17891 = t30809; a31083 = t30810; /* x167179 */ /* x167178 stalin.sc:24235:840385 */ /* x167177 stalin.sc:24235:840405 */ t30830 = a31083; /* x167176 stalin.sc:24235:840386 */ t30831.tag = STRUCTURE_TYPE27650; t30831.value.structure_type27650 = t30830; t30812 = f15531(t30831); /* x167175 */ t30811 = p17891; p17892 = t30811; a31084 = t30812; /* x167174 */ /* x167173 */ t30813 = p17892; p17893 = t30813; /* x167172 stalin.sc:24236:840412 */ /* x167154 stalin.sc:24236:840426 */ t30814 = p17893->a31049; /* x167158 stalin.sc:24236:840428 */ /* x167156 stalin.sc:24236:840448 */ t30825 = p17893->a31050; /* x167157 stalin.sc:24236:840450 */ t30826 = q64; /* x167155 stalin.sc:24236:840429 */ t30827 = t30825; t30815 = f8743(t30827, t30826); /* x167159 stalin.sc:24237:840475 */ t30816 = p17893->a31059; /* x167160 stalin.sc:24237:840478 */ t30817 = a31082; /* x167161 stalin.sc:24237:840481 */ t30818 = p17893->a31060; /* x167162 stalin.sc:24237:840484 */ t30819 = p17893->a31057; /* x167163 stalin.sc:24237:840487 */ t30820 = p17893->a31058; /* x167166 stalin.sc:24237:840490 */ /* x167165 stalin.sc:24237:840496 */ t30828 = a31084; /* x167164 stalin.sc:24237:840491 */ a35102 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35102==NULL) {backtrace("stalin.sc", 24237, 840490); out_of_memory_error();} a35102->s0 = *((struct w49 *)(&t30828)); a35102->s1.tag = NULL_TYPE; /* x272211 */ t30821 = a35102; /* x167169 stalin.sc:24237:840500 */ /* x167168 stalin.sc:24237:840506 */ t30829 = a31083; /* x167167 stalin.sc:24237:840501 */ a35103 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35103==NULL) {backtrace("stalin.sc", 24237, 840500); out_of_memory_error();} a35103->s0.tag = STRUCTURE_TYPE27650; a35103->s0.value.structure_type27650 = t30829; a35103->s1.tag = NULL_TYPE; /* x272213 */ t30822 = a35103; /* x167170 stalin.sc:24237:840510 */ t30823 = q226; /* x167171 stalin.sc:24237:840518 */ t30824 = a1675; /* x167153 stalin.sc:24236:840413 */ b26962 = t30814; b26963 = t30815; b26964 = t30816; b26965 = t30817; b26966 = t30818; b26967 = t30819; b26968 = t30820; b26969.tag = STRUCTURE_TYPE24753; b26969.value.structure_type24753 = t30821; b26970.tag = STRUCTURE_TYPE24753; b26970.value.structure_type24753 = t30822; b26971.tag = EXTERNAL_SYMBOL_TYPE; b26971.value.external_symbol_type = t30823; /* MOVE: branching squeezed to general */ if (t30824>=((struct structure_type27650 *)VALUE_OFFSET)) {b26972.tag = STRUCTURE_TYPE27650; b26972.value.structure_type27650 = t30824;} else b26972.tag = (unsigned)t30824; return f15827();} /* [inside top level 17885] */ struct structure_type24753 *f17885(struct p17869 *p17885, unsigned a31080) {char *t30837; struct structure_type27745 *t30838; unsigned t30839; struct w49 t30840; /* x167083 stalin.sc:24222:839973 */ /* x167080 stalin.sc:24222:839988 */ t30837 = "call_with_current_continuation"; /* x167081 stalin.sc:24222:840021 */ t30838 = p17885->a31050; /* x167082 stalin.sc:24222:840023 */ t30839 = a31080; /* x167079 stalin.sc:24222:839974 */ t30840.tag = STRUCTURE_TYPE27745; t30840.value.structure_type27745 = t30838; return f15534(t30837, t30840, t30839);} /* [inside top level 17878] */ struct w49 f17878(struct p17870 *p17878, struct w49 a31074) {struct structure_type24753 *a25489; /* C */ struct structure_type27650 *a31075; /* W3 */ struct w60864 a31076; /* T3 */ struct structure_type24753 *a35098; /* OBJS */ struct structure_type24753 *a35099; /* OBJS */ struct structure_type27745 *a36414; /* S */ struct structure_type27745 *a36416; /* S */ struct structure_type27745 *a36417; /* S */ struct structure_type27745 *a36418; /* S */ struct structure_type27745 *a36419; /* S */ struct structure_type24753 *a41833; /* CS */ struct structure_type24753 *a41834; /* CS */ struct p17870 *t30841; struct structure_type27650 *t30842; struct p17870 *t30843; struct w60864 t30844; struct p17870 *t30845; struct w49 t30846; struct w49 t30847; struct structure_type24753 *t30848; struct w49 t30849; struct w49 t30850; struct structure_type24753 *t30851; char *t30852; struct w49 t30853; struct w49 t30854; unsigned t30855; struct structure_type24753 *t30856; struct structure_type24753 *t30857; struct w49 t30858; char *t30859; struct structure_type24753 *t30860; struct w49 t30861; struct w12224 t30862; char *t30863; struct w49 t30864; struct w49 t30865; struct structure_type27745 *t30866; struct structure_type27745 *t30867; struct w49 t30868; struct w49 t30869; struct structure_type24753 *t30870; struct w49 t30871; struct w49 t30872; struct structure_type27501 *t30873; struct structure_type24753 *t30874; struct p17869 *t30875; struct structure_type27501 *t30876; struct w49 t30877; unsigned t30878; struct structure_type27650 *t30879; struct w60864 t30880; struct w49 t30881; struct w49 t30882; struct structure_type24753 *t30883; struct w49 t30884; struct structure_type24753 *t30885; struct w49 t30886; struct structure_type27745 *t30887; struct structure_type27745 *t30888; struct structure_type27501 *t30889; struct structure_type27745 *t30890; struct w49 t30891; struct w49 t30892; struct w49 t30893; struct w49 t30894; struct w49 t30895; struct structure_type24753 *t30896; struct structure_type24753 *t30897; char *t30898; struct structure_type27650 *t30899; struct structure_type27501 *t30900; struct w12218 t30901; struct w49 t30902; struct w49 t30903; struct structure_type24753 *t30904; struct w49 t30905; struct structure_type27501 *t30906; struct w49 t30907; struct structure_type27745 *t30908; struct structure_type27745 *t30909; struct structure_type27745 *t30910; char *t30911; struct structure_type27745 *t30912; struct w60864 t30913; struct structure_type27650 *t30914; struct structure_type27501 *t30915; struct w12218 t30916; struct w49 t30917; struct structure_type27501 *t30918; struct structure_type24753 *t30919; struct w49 t30920; struct w12218 t30921; struct w49 t30922; struct w49 t30923; struct structure_type27745 *t30924; struct structure_type27745 *t30925; struct structure_type27501 *t30926; struct w12218 t30927; struct structure_type27650 *t30928; struct w49 t30929; struct structure_type27858 *t30930; struct structure_type24753 *t30931; struct w49 t30932; struct structure_type27745 *t30933; struct structure_type27745 *t30934; struct p17870 *p17879; struct p17870 *p17880; struct p17870 *p17881; struct p17870 *p17883; struct p17870 *p17884; /* x167077 stalin.sc:24199:839124 */ /* x167076 stalin.sc:24199:839135 */ /* x167075 stalin.sc:24200:839167 */ /* x167074 stalin.sc:24200:839183 */ /* x167073 stalin.sc:24200:839205 */ t30933 = p17878->p17869->a31050; /* x167072 stalin.sc:24200:839184 */ a36419 = t30933; /* x278345 */ /* x278344 */ t30934 = a36419; /* x278343 */ t30932 = t30934->s0; /* x167071 stalin.sc:24200:839168 */ t30930 = f7110(t30932); /* x167070 stalin.sc:24199:839136 */ t30931 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t30931==NULL) {backtrace("stalin.sc", 24199, 839135); out_of_memory_error();} t30931->s0.tag = STRUCTURE_TYPE27858; t30931->s0.value.structure_type27858 = t30930; t30931->s1.tag = NULL_TYPE; t30842 = f8098(t30931); /* x167069 */ t30841 = p17878; p17879 = t30841; a31075 = t30842; /* x167068 */ /* x167067 stalin.sc:24201:839222 */ /* x167066 stalin.sc:24201:839242 */ t30928 = a31075; /* x167065 stalin.sc:24201:839223 */ t30929.tag = STRUCTURE_TYPE27650; t30929.value.structure_type27650 = t30928; t30844 = f15531(t30929); /* x167064 */ t30843 = p17879; p17880 = t30843; a31076 = t30844; /* x167063 */ /* x167062 */ t30845 = p17880; p17881 = t30845; /* x167061 stalin.sc:24202:839249 */ /* x167060 stalin.sc:24219:839839 */ /* x167047 stalin.sc:24219:839843 */ /* x167046 stalin.sc:24219:839847 */ /* x167045 stalin.sc:24219:839857 */ t30915 = p17881->p17869->a31049; /* x167044 stalin.sc:24219:839848 */ /* MOVE: branching squeezed to general */ if (t30915>=((struct structure_type27501 *)VALUE_OFFSET)) {t30916.tag = STRUCTURE_TYPE27501; t30916.value.structure_type27501 = t30915;} else t30916.tag = (unsigned)t30915; if (!(f7031(t30916)==FALSE_TYPE)) goto l4349; p17884 = p17881; /* x167041 */ /* x167040 stalin.sc:24219:839873 */ t30917 = p17884->a31065; /* x167039 stalin.sc:24219:839861 */ if (f8793(t30917)==FALSE_TYPE) goto l4350; l4349: /* x167050 stalin.sc:24220:839883 */ /* x167049 stalin.sc:24220:839899 */ t30926 = p17881->p17869->a31049; /* x167048 stalin.sc:24220:839884 */ /* MOVE: branching squeezed to general */ if (t30926>=((struct structure_type27501 *)VALUE_OFFSET)) {t30927.tag = STRUCTURE_TYPE27501; t30927.value.structure_type27501 = t30926;} else t30927.tag = (unsigned)t30926; t30847 = f15342(t30927); goto l4351; l4350: /* x167059 stalin.sc:24221:839908 */ /* x167052 stalin.sc:24221:839914 */ t30918 = p17881->p17869->a31049; /* x167057 stalin.sc:24221:839916 */ /* x167056 stalin.sc:24221:839921 */ /* x167055 stalin.sc:24221:839943 */ t30924 = p17881->p17869->a31050; /* x167054 stalin.sc:24221:839922 */ a36418 = t30924; /* x278341 */ /* x278340 */ t30925 = a36418; /* x278339 */ t30923 = t30925->s0; /* x167053 stalin.sc:24221:839917 */ t30919 = f14316(t30923); /* x167058 stalin.sc:24221:839947 */ t30920 = p17881->a31065; /* x167051 stalin.sc:24221:839909 */ /* MOVE: branching squeezed to general */ if (t30918>=((struct structure_type27501 *)VALUE_OFFSET)) {t30921.tag = STRUCTURE_TYPE27501; t30921.value.structure_type27501 = t30918;} else t30921.tag = (unsigned)t30918; t30922.tag = STRUCTURE_TYPE24753; t30922.value.structure_type24753 = t30919; t30847 = f15496(t30921, t30922, t30920); l4351: /* x167036 stalin.sc:24203:839268 */ /* x166963 stalin.sc:24203:839274 */ /* x166962 stalin.sc:24203:839284 */ /* x166961 stalin.sc:24203:839289 */ /* x166960 stalin.sc:24203:839311 */ t30866 = p17881->p17869->a31050; /* x166959 stalin.sc:24203:839290 */ a36414 = t30866; /* x278325 */ /* x278324 */ t30867 = a36414; /* x278323 */ t30865 = t30867->s0; /* x166958 stalin.sc:24203:839285 */ t30856 = f14279(t30865); /* x166957 stalin.sc:24203:839275 */ a25489 = t30856; /* x124685 */ /* x124684 stalin.sc:15008:524187 */ /* x124683 stalin.sc:15008:524197 */ t30863 = "setjmp"; /* x124682 stalin.sc:15008:524188 */ t30864.tag = STRING_TYPE; t30864.value.string_type = t30863; f18320(t30864); /* x124681 */ /* x124680 stalin.sc:15009:524218 */ /* x124679 stalin.sc:15009:524229 */ /* x124678 stalin.sc:15009:524246 */ t30860 = a25489; /* x124677 stalin.sc:15009:524237 */ t30859 = "setjmp"; /* x124676 stalin.sc:15009:524230 */ t30861.tag = STRING_TYPE; t30861.value.string_type = t30859; t30862.tag = STRUCTURE_TYPE24753; t30862.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30862.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15009, 524229); out_of_memory_error();} t30862.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t30862.value.structure_type24753->s0.value.structure_type24753 = t30860; t30862.value.structure_type24753->s1.tag = NULL_TYPE; t30857 = f13543(t30861, t30862); /* x124675 stalin.sc:15009:524219 */ t30858.tag = STRUCTURE_TYPE24753; t30858.value.structure_type24753 = t30857; t30851 = f13472(t30858); /* x166965 stalin.sc:24204:839324 */ /* x166964 stalin.sc:24204:839325 */ /* x276485 stalin.sc:14693:514793 */ t30852 = ""; /* x167034 stalin.sc:24205:839341 */ /* x167033 stalin.sc:24212:839590 */ /* x167015 stalin.sc:24213:839607 */ /* x167005 stalin.sc:24213:839611 */ /* x167004 stalin.sc:24213:839615 */ /* x167003 stalin.sc:24213:839625 */ t30900 = p17881->p17869->a31049; /* x167002 stalin.sc:24213:839616 */ /* MOVE: branching squeezed to general */ if (t30900>=((struct structure_type27501 *)VALUE_OFFSET)) {t30901.tag = STRUCTURE_TYPE27501; t30901.value.structure_type27501 = t30900;} else t30901.tag = (unsigned)t30900; if (!(f7031(t30901)==FALSE_TYPE)) goto l4345; p17883 = p17881; /* x166999 */ /* x166998 stalin.sc:24213:839641 */ t30902 = p17883->a31065; /* x166997 stalin.sc:24213:839629 */ if (f8793(t30902)==FALSE_TYPE) goto l4346; l4345: /* x167006 stalin.sc:24214:839652 */ t30889 = a1194; goto l4347; l4346: /* x167014 stalin.sc:24215:839669 */ /* x167008 stalin.sc:24215:839693 */ t30903 = p17881->a31065; /* x167013 stalin.sc:24215:839695 */ /* x167012 stalin.sc:24215:839700 */ /* x167011 stalin.sc:24215:839722 */ t30908 = p17881->p17869->a31050; /* x167010 stalin.sc:24215:839701 */ a36417 = t30908; /* x278337 */ /* x278336 */ t30909 = a36417; /* x278335 */ t30907 = t30909->s0; /* x167009 stalin.sc:24215:839696 */ t30904 = f14316(t30907); /* x167007 stalin.sc:24215:839670 */ t30905.tag = STRUCTURE_TYPE24753; t30905.value.structure_type24753 = t30904; t30906 = f7025(t30903, t30905); t30889 = t30906; l4347: /* x167019 stalin.sc:24216:839731 */ /* x167017 stalin.sc:24216:839751 */ t30910 = p17881->p17869->a31050; /* x167018 stalin.sc:24216:839753 */ t30911 = q64; /* x167016 stalin.sc:24216:839732 */ t30912 = t30910; t30890 = f8743(t30912, t30911); /* x167020 stalin.sc:24217:839773 */ t30891 = p17881->p17869->a31059; /* x167021 stalin.sc:24217:839776 */ t30892 = a31074; /* x167022 stalin.sc:24217:839779 */ t30893 = p17881->p17869->a31060; /* x167023 stalin.sc:24217:839782 */ t30894 = p17881->p17869->a31057; /* x167024 stalin.sc:24217:839785 */ t30895 = p17881->p17869->a31058; /* x167027 stalin.sc:24217:839788 */ /* x167026 stalin.sc:24217:839794 */ t30913 = a31076; /* x167025 stalin.sc:24217:839789 */ a35098 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35098==NULL) {backtrace("stalin.sc", 24217, 839788); out_of_memory_error();} a35098->s0 = *((struct w49 *)(&t30913)); a35098->s1.tag = NULL_TYPE; /* x272203 */ t30896 = a35098; /* x167030 stalin.sc:24217:839798 */ /* x167029 stalin.sc:24217:839804 */ t30914 = a31075; /* x167028 stalin.sc:24217:839799 */ a35099 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35099==NULL) {backtrace("stalin.sc", 24217, 839798); out_of_memory_error();} a35099->s0.tag = STRUCTURE_TYPE27650; a35099->s0.value.structure_type27650 = t30914; a35099->s1.tag = NULL_TYPE; /* x272205 */ t30897 = a35099; /* x167031 stalin.sc:24217:839808 */ t30898 = q225; /* x167032 stalin.sc:24217:839816 */ t30899 = a1675; /* x166994 stalin.sc:24212:839591 */ b26962 = t30889; b26963 = t30890; b26964 = t30891; b26965 = t30892; b26966 = t30893; b26967 = t30894; b26968 = t30895; b26969.tag = STRUCTURE_TYPE24753; b26969.value.structure_type24753 = t30896; b26970.tag = STRUCTURE_TYPE24753; b26970.value.structure_type24753 = t30897; b26971.tag = EXTERNAL_SYMBOL_TYPE; b26971.value.external_symbol_type = t30898; /* MOVE: branching squeezed to general */ if (t30899>=((struct structure_type27650 *)VALUE_OFFSET)) {b26972.tag = STRUCTURE_TYPE27650; b26972.value.structure_type27650 = t30899;} else b26972.tag = (unsigned)t30899; t30869 = f15827(); /* x166993 stalin.sc:24206:839360 */ /* x166971 stalin.sc:24206:839367 */ /* x166969 stalin.sc:24206:839391 */ t30879 = a31075; /* x166970 stalin.sc:24206:839394 */ t30880 = a31076; /* x166968 stalin.sc:24206:839368 */ t30881.tag = STRUCTURE_TYPE27650; t30881.value.structure_type27650 = t30879; t30882 = *((struct w49 *)(&t30880)); t30873 = f7025(t30881, t30882); /* x166978 stalin.sc:24207:839407 */ /* x166977 stalin.sc:24207:839412 */ /* x166976 stalin.sc:24207:839417 */ /* x166975 stalin.sc:24207:839439 */ t30887 = p17881->p17869->a31050; /* x166974 stalin.sc:24207:839418 */ a36416 = t30887; /* x278333 */ /* x278332 */ t30888 = a36416; /* x278331 */ t30886 = t30888->s0; /* x166973 stalin.sc:24207:839413 */ t30883 = f14279(t30886); /* x166972 stalin.sc:24207:839408 */ t30884.tag = STRUCTURE_TYPE24753; t30884.value.structure_type24753 = t30883; t30885 = (struct structure_type24753 *)NULL_TYPE; t30874 = f13625(t30884, t30885); /* x166992 stalin.sc:24208:839453 */ t30875 = p17881->p17869; /* x166967 stalin.sc:24206:839361 */ t30876 = t30873; t30877.tag = STRUCTURE_TYPE24753; t30877.value.structure_type24753 = t30874; t30878 = ((unsigned)t30875)+1; t30868 = f15508(t30876, t30877, t30878); /* x166966 stalin.sc:24205:839342 */ t30872.tag = STRUCTURE_TYPE24753; t30872.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30872.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24205, 839341); out_of_memory_error();} t30872.value.structure_type24753->s0 = t30869; t30872.value.structure_type24753->s1.tag = NULL_TYPE; a41834 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41834==NULL) {backtrace("stalin.sc", 24205, 839341); out_of_memory_error();} a41834->s0 = t30868; a41834->s1 = t30872; /* x301448 stalin.sc:14400:506485 */ /* x301447 stalin.sc:14400:506503 */ t30870 = a41834; /* x301446 stalin.sc:14400:506486 */ t30871.tag = STRUCTURE_TYPE24753; t30871.value.structure_type24753 = t30870; t30853 = f13492(t30871); /* x167035 stalin.sc:24218:839833 */ /* x166956 stalin.sc:24203:839269 */ t30854.tag = STRING_TYPE; t30854.value.string_type = t30852; t30855 = TRUE_TYPE; t30846 = f13672(t30851, t30854, t30853, t30855); /* x166955 stalin.sc:24202:839250 */ t30850.tag = STRUCTURE_TYPE24753; t30850.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30850.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24202, 839249); out_of_memory_error();} t30850.value.structure_type24753->s0 = t30847; t30850.value.structure_type24753->s1.tag = NULL_TYPE; a41833 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41833==NULL) {backtrace("stalin.sc", 24202, 839249); out_of_memory_error();} a41833->s0 = t30846; a41833->s1 = t30850; /* x301444 stalin.sc:14400:506485 */ /* x301443 stalin.sc:14400:506503 */ t30848 = a41833; /* x301442 stalin.sc:14400:506486 */ t30849.tag = STRUCTURE_TYPE24753; t30849.value.structure_type24753 = t30848; return f13492(t30849);} /* [inside top level 17844] */ struct structure_type24753 *f17844(struct structure_type27745 *a31019, struct w49 a31022) {struct structure_type24753 *a34946; /* OBJS */ struct structure_type24753 *a34947; /* OBJS */ struct structure_type24753 *a34948; /* OBJS */ struct structure_type27745 *a36400; /* S */ unsigned t30935; struct structure_type24753 *t30936; struct structure_type27650 *t30937; struct structure_type27745 *t30938; struct w49 t30939; struct w49 t30940; struct structure_type27745 *t30941; struct structure_type27745 *t30942; struct w49 t30943; struct structure_type27650 *t30944; struct structure_type27858 *t30945; struct structure_type24753 *t30946; struct w49 t30947; struct structure_type27745 *t30948; struct structure_type27745 *t30949; struct w49 t30950; struct w49 t30951; struct w49 t30952; struct structure_type27745 *t30953; char *t30954; struct structure_type27745 *t30955; /* x166636 stalin.sc:24100:835933 */ /* x166635 stalin.sc:24100:835939 */ /* x166629 stalin.sc:24101:835969 */ /* x166615 stalin.sc:24101:835973 */ /* x166614 stalin.sc:24101:835985 */ t30942 = a31019; /* x166613 stalin.sc:24101:835974 */ t30943.tag = STRUCTURE_TYPE27745; t30943.value.structure_type27745 = t30942; if (f8944(t30943)==FALSE_TYPE) goto l4354; /* x166619 stalin.sc:24102:835993 */ /* x166618 stalin.sc:24102:836002 */ t30951 = a31022; /* x166617 stalin.sc:24102:835999 */ t30950 = a31022; /* x166616 stalin.sc:24102:835994 */ t30952.tag = STRUCTURE_TYPE24753; t30952.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30952.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24102, 835993); out_of_memory_error();} t30952.value.structure_type24753->s0 = t30951; t30952.value.structure_type24753->s1.tag = NULL_TYPE; a34947 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34947==NULL) {backtrace("stalin.sc", 24102, 835993); out_of_memory_error();} a34947->s0 = t30950; a34947->s1 = t30952; /* x271901 */ t30936 = a34947; goto l4355; l4354: /* x166628 stalin.sc:24103:836011 */ /* x166627 stalin.sc:24103:836017 */ /* x166626 stalin.sc:24104:836049 */ /* x166625 stalin.sc:24104:836065 */ /* x166624 stalin.sc:24104:836087 */ t30948 = a31019; /* x166623 stalin.sc:24104:836066 */ a36400 = t30948; /* x278269 */ /* x278268 */ t30949 = a36400; /* x278267 */ t30947 = t30949->s0; /* x166622 stalin.sc:24104:836050 */ t30945 = f7110(t30947); /* x166621 stalin.sc:24103:836018 */ t30946 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t30946==NULL) {backtrace("stalin.sc", 24103, 836017); out_of_memory_error();} t30946->s0.tag = STRUCTURE_TYPE27858; t30946->s0.value.structure_type27858 = t30945; t30946->s1.tag = NULL_TYPE; t30944 = f8098(t30946); /* x166620 stalin.sc:24103:836012 */ a34948 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34948==NULL) {backtrace("stalin.sc", 24103, 836011); out_of_memory_error();} a34948->s0.tag = STRUCTURE_TYPE27650; a34948->s0.value.structure_type27650 = t30944; a34948->s1.tag = NULL_TYPE; /* x271903 */ t30936 = a34948; l4355: /* x166630 stalin.sc:24105:836095 */ t30937 = a1675; /* x166634 stalin.sc:24106:836103 */ /* x166632 stalin.sc:24106:836123 */ t30953 = a31019; /* x166633 stalin.sc:24106:836125 */ t30954 = q64; /* x166631 stalin.sc:24106:836104 */ t30955 = t30953; t30938 = f8743(t30955, t30954); /* x166612 stalin.sc:24100:835940 */ t30939.tag = STRUCTURE_TYPE24753; t30939.value.structure_type24753 = t30936; /* MOVE: branching squeezed to general */ if (t30937>=((struct structure_type27650 *)VALUE_OFFSET)) {t30940.tag = STRUCTURE_TYPE27650; t30940.value.structure_type27650 = t30937;} else t30940.tag = (unsigned)t30937; t30941 = t30938; t30935 = f7892(t30939, t30940, t30941); /* x166611 stalin.sc:24100:835934 */ a34946 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34946==NULL) {backtrace("stalin.sc", 24100, 835933); out_of_memory_error();} /* MOVE: dispatching squished to general */ if ((t30935&3)==1) {a34946->s0.tag = NATIVE_PROCEDURE_TYPE19067; a34946->s0.value.native_procedure_type19067 = (struct p7892 *)(t30935-1);} else {a34946->s0.tag = NATIVE_PROCEDURE_TYPE19068; a34946->s0.value.native_procedure_type19068 = (struct p7892 *)t30935;} a34946->s1.tag = NULL_TYPE; /* x271899 */ return a34946;} /* [inside top level 17843] */ struct structure_type24753 *f17843(struct structure_type27745 *a31015, struct w49 a31018) {struct structure_type24753 *a35029; /* OBJS */ struct structure_type24753 *a35030; /* OBJS */ struct structure_type24753 *a35031; /* OBJS */ struct structure_type27745 *a36401; /* S */ unsigned t30956; struct structure_type24753 *t30957; struct structure_type27650 *t30958; struct structure_type27745 *t30959; struct w49 t30960; struct w49 t30961; struct structure_type27745 *t30962; struct structure_type27745 *t30963; struct w49 t30964; struct structure_type27650 *t30965; struct structure_type27858 *t30966; struct structure_type24753 *t30967; struct w49 t30968; struct structure_type27745 *t30969; struct structure_type27745 *t30970; struct w49 t30971; struct w49 t30972; struct w49 t30973; struct structure_type27745 *t30974; char *t30975; struct structure_type27745 *t30976; /* x166609 stalin.sc:24093:835721 */ /* x166608 stalin.sc:24093:835727 */ /* x166602 stalin.sc:24094:835757 */ /* x166588 stalin.sc:24094:835761 */ /* x166587 stalin.sc:24094:835773 */ t30963 = a31015; /* x166586 stalin.sc:24094:835762 */ t30964.tag = STRUCTURE_TYPE27745; t30964.value.structure_type27745 = t30963; if (f8944(t30964)==FALSE_TYPE) goto l4357; /* x166592 stalin.sc:24095:835781 */ /* x166591 stalin.sc:24095:835790 */ t30972 = a31018; /* x166590 stalin.sc:24095:835787 */ t30971 = a31018; /* x166589 stalin.sc:24095:835782 */ t30973.tag = STRUCTURE_TYPE24753; t30973.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30973.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24095, 835781); out_of_memory_error();} t30973.value.structure_type24753->s0 = t30972; t30973.value.structure_type24753->s1.tag = NULL_TYPE; a35030 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35030==NULL) {backtrace("stalin.sc", 24095, 835781); out_of_memory_error();} a35030->s0 = t30971; a35030->s1 = t30973; /* x272067 */ t30957 = a35030; goto l4358; l4357: /* x166601 stalin.sc:24096:835799 */ /* x166600 stalin.sc:24096:835805 */ /* x166599 stalin.sc:24097:835837 */ /* x166598 stalin.sc:24097:835853 */ /* x166597 stalin.sc:24097:835875 */ t30969 = a31015; /* x166596 stalin.sc:24097:835854 */ a36401 = t30969; /* x278273 */ /* x278272 */ t30970 = a36401; /* x278271 */ t30968 = t30970->s0; /* x166595 stalin.sc:24097:835838 */ t30966 = f7110(t30968); /* x166594 stalin.sc:24096:835806 */ t30967 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t30967==NULL) {backtrace("stalin.sc", 24096, 835805); out_of_memory_error();} t30967->s0.tag = STRUCTURE_TYPE27858; t30967->s0.value.structure_type27858 = t30966; t30967->s1.tag = NULL_TYPE; t30965 = f8098(t30967); /* x166593 stalin.sc:24096:835800 */ a35031 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35031==NULL) {backtrace("stalin.sc", 24096, 835799); out_of_memory_error();} a35031->s0.tag = STRUCTURE_TYPE27650; a35031->s0.value.structure_type27650 = t30965; a35031->s1.tag = NULL_TYPE; /* x272069 */ t30957 = a35031; l4358: /* x166603 stalin.sc:24098:835883 */ t30958 = a1675; /* x166607 stalin.sc:24099:835891 */ /* x166605 stalin.sc:24099:835911 */ t30974 = a31015; /* x166606 stalin.sc:24099:835913 */ t30975 = q64; /* x166604 stalin.sc:24099:835892 */ t30976 = t30974; t30959 = f8743(t30976, t30975); /* x166585 stalin.sc:24093:835728 */ t30960.tag = STRUCTURE_TYPE24753; t30960.value.structure_type24753 = t30957; /* MOVE: branching squeezed to general */ if (t30958>=((struct structure_type27650 *)VALUE_OFFSET)) {t30961.tag = STRUCTURE_TYPE27650; t30961.value.structure_type27650 = t30958;} else t30961.tag = (unsigned)t30958; t30962 = t30959; t30956 = f7892(t30960, t30961, t30962); /* x166584 stalin.sc:24093:835722 */ a35029 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35029==NULL) {backtrace("stalin.sc", 24093, 835721); out_of_memory_error();} /* MOVE: dispatching squished to general */ if ((t30956&3)==1) {a35029->s0.tag = NATIVE_PROCEDURE_TYPE19067; a35029->s0.value.native_procedure_type19067 = (struct p7892 *)(t30956-1);} else {a35029->s0.tag = NATIVE_PROCEDURE_TYPE19068; a35029->s0.value.native_procedure_type19068 = (struct p7892 *)t30956;} a35029->s1.tag = NULL_TYPE; /* x272065 */ return a35029;} /* [inside top level 17842] */ struct p16282 *f17842(struct structure_type27745 *a31012, struct w49 a31014) {struct structure_type24753 *a35160; /* OBJS */ struct structure_type24753 *a35161; /* OBJS */ struct structure_type27745 *a36451; /* S */ unsigned t30977; unsigned t30978; struct structure_type24753 *t30979; struct structure_type27650 *t30980; struct structure_type27745 *t30981; struct w49 t30982; struct w49 t30983; struct structure_type27745 *t30984; struct structure_type27745 *t30985; struct w49 t30986; struct structure_type27650 *t30987; struct structure_type27858 *t30988; struct structure_type24753 *t30989; struct w49 t30990; struct structure_type27745 *t30991; struct structure_type27745 *t30992; struct w49 t30993; struct w49 t30994; struct w49 t30995; struct structure_type27745 *t30996; char *t30997; /* x166582 stalin.sc:24085:835469 */ /* x166581 stalin.sc:24086:835503 */ /* x166575 stalin.sc:24087:835535 */ /* x166561 stalin.sc:24087:835539 */ /* x166560 stalin.sc:24087:835551 */ t30985 = a31012; /* x166559 stalin.sc:24087:835540 */ /* MOVE: branching squeezed to general */ if (t30985>=((struct structure_type27745 *)VALUE_OFFSET)) {t30986.tag = STRUCTURE_TYPE27745; t30986.value.structure_type27745 = t30985;} else t30986.tag = (unsigned)t30985; if (f8944(t30986)==FALSE_TYPE) goto l4360; /* x166565 stalin.sc:24088:835561 */ /* x166564 stalin.sc:24088:835570 */ t30994 = a31014; /* x166563 stalin.sc:24088:835567 */ t30993 = a31014; /* x166562 stalin.sc:24088:835562 */ t30995.tag = STRUCTURE_TYPE24753; t30995.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t30995.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24088, 835561); out_of_memory_error();} t30995.value.structure_type24753->s0 = t30994; t30995.value.structure_type24753->s1.tag = NULL_TYPE; a35160 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35160==NULL) {backtrace("stalin.sc", 24088, 835561); out_of_memory_error();} a35160->s0 = t30993; a35160->s1 = t30995; /* x272327 */ t30979 = a35160; goto l4361; l4360: /* x166574 stalin.sc:24089:835581 */ /* x166573 stalin.sc:24089:835587 */ /* x166572 stalin.sc:24090:835621 */ /* x166571 stalin.sc:24090:835637 */ /* x166570 stalin.sc:24090:835659 */ t30991 = a31012; /* x166569 stalin.sc:24090:835638 */ a36451 = t30991; /* x278473 */ /* x278472 */ t30992 = a36451; /* x278471 */ if (!(t30992>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31368]"); structure_ref_error();} t30990 = t30992->s0; /* x166568 stalin.sc:24090:835622 */ t30988 = f7110(t30990); /* x166567 stalin.sc:24089:835588 */ t30989 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t30989==NULL) {backtrace("stalin.sc", 24089, 835587); out_of_memory_error();} t30989->s0.tag = STRUCTURE_TYPE27858; t30989->s0.value.structure_type27858 = t30988; t30989->s1.tag = NULL_TYPE; t30987 = f8098(t30989); /* x166566 stalin.sc:24089:835582 */ a35161 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35161==NULL) {backtrace("stalin.sc", 24089, 835581); out_of_memory_error();} a35161->s0.tag = STRUCTURE_TYPE27650; a35161->s0.value.structure_type27650 = t30987; a35161->s1.tag = NULL_TYPE; /* x272329 */ t30979 = a35161; l4361: /* x166576 stalin.sc:24091:835669 */ t30980 = a1675; /* x166580 stalin.sc:24092:835679 */ /* x166578 stalin.sc:24092:835699 */ t30996 = a31012; /* x166579 stalin.sc:24092:835701 */ t30997 = q64; /* x166577 stalin.sc:24092:835680 */ t30981 = f8743(t30996, t30997); /* x166558 stalin.sc:24086:835504 */ t30982.tag = STRUCTURE_TYPE24753; t30982.value.structure_type24753 = t30979; /* MOVE: branching squeezed to general */ if (t30980>=((struct structure_type27650 *)VALUE_OFFSET)) {t30983.tag = STRUCTURE_TYPE27650; t30983.value.structure_type27650 = t30980;} else t30983.tag = (unsigned)t30980; t30984 = t30981; t30977 = f7892(t30982, t30983, t30984); /* x166557 stalin.sc:24085:835470 */ /* MOVE: squished to squished */ t30978 = ((unsigned)(t30977&(~3)))+("\001\000"[t30977&3]); return f16282(t30978);} /* [inside top level 17841] */ struct structure_type24753 *f17841(struct p17839 *p17841, unsigned a31011) {char *t30998; struct structure_type27745 *t30999; unsigned t31000; struct w49 t31001; /* x166542 stalin.sc:24081:835350 */ /* x166539 stalin.sc:24081:835365 */ t30998 = "call"; /* x166540 stalin.sc:24081:835372 */ t30999 = p17841->a30995; /* x166541 stalin.sc:24081:835374 */ t31000 = a31011; /* x166538 stalin.sc:24081:835351 */ t31001.tag = STRUCTURE_TYPE27745; t31001.value.structure_type27745 = t30999; return f15534(t30998, t31001, t31000);} /* [inside top level 17840] */ struct w49 f17840(void) {struct p17839 *p17840 = d17840; struct w49 a31010 = b31010; /* U1 */ struct w49 a35380; /* PAIR */ struct w49 a35381; /* PAIR */ struct w49 a35382; /* PAIR */ struct w49 a35383; /* PAIR */ struct structure_type27745 *t31002; struct w49 t31003; struct structure_type27501 *t31004; struct structure_type27745 *t31005; struct w49 t31006; struct w49 t31007; struct w49 t31008; struct w49 t31009; struct w49 t31010; struct w12224 t31011; struct w12224 t31012; struct w49 t31013; struct w49 t31014; struct structure_type27745 *t31015; char *t31016; struct structure_type27745 *t31017; struct w49 t31018; struct w49 t31019; struct w49 t31020; struct w49 t31021; struct w49 t31022; struct w49 t31023; struct w49 t31024; struct w49 t31025; struct structure_type27501 *t31026; struct structure_type27745 *t31027; struct w49 t31028; struct w49 t31029; struct w49 t31030; struct structure_type24753 *t31031; struct structure_type24753 *t31032; struct w49 t31033; struct w49 t31034; struct structure_type27745 *t31035; char *t31036; struct structure_type27745 *t31037; struct w49 t31038; struct w12224 t31039; struct w49 t31040; struct w49 t31041; struct w49 t31042; struct w49 t31043; struct w12224 t31044; struct w49 t31045; struct w49 t31046; struct w49 t31047; struct w49 t31048; struct w49 t31049; /* x166536 stalin.sc:24072:834985 */ /* x166475 stalin.sc:24072:834989 */ /* x166474 stalin.sc:24072:835001 */ t31002 = p17840->a30995; /* x166473 stalin.sc:24072:834990 */ t31003.tag = STRUCTURE_TYPE27745; t31003.value.structure_type27745 = t31002; if (f8944(t31003)==FALSE_TYPE) goto l4363; /* x166507 stalin.sc:24073:835008 */ /* x166477 stalin.sc:24074:835037 */ t31026 = p17840->a30994; /* x166481 stalin.sc:24074:835039 */ /* x166479 stalin.sc:24074:835059 */ t31035 = p17840->a30995; /* x166480 stalin.sc:24074:835061 */ t31036 = q64; /* x166478 stalin.sc:24074:835040 */ t31037 = t31035; t31027 = f8743(t31037, t31036); /* x166482 stalin.sc:24074:835078 */ t31028 = p17840->a31004; /* x166483 stalin.sc:24074:835081 */ t31029 = a31010; /* x166484 stalin.sc:24074:835084 */ t31030 = p17840->a31005; /* x166492 stalin.sc:24075:835092 */ /* x166486 stalin.sc:24075:835098 */ t31038 = p17840->a31002; /* x166491 stalin.sc:24075:835101 */ /* x166490 stalin.sc:24075:835111 */ /* x166489 stalin.sc:24075:835117 */ t31041 = p17840->a30997; /* x166488 stalin.sc:24075:835112 */ a35380 = t31041; /* x272877 */ /* x272876 */ t31042 = a35380; /* x272875 */ if (!((t31042.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29529]"); structure_ref_error();} t31040 = t31042.value.structure_type24753->s1; /* x166487 stalin.sc:24075:835102 */ t31039 = f1005(t31040); /* x268070 stalin.sc:24075:835093 */ t31031 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t31031==NULL) {backtrace("stalin.sc", 24075, 835092); out_of_memory_error();} t31031->s0 = t31038; t31031->s1 = *((struct w49 *)(&t31039)); /* x166500 stalin.sc:24075:835123 */ /* x166494 stalin.sc:24075:835129 */ t31043 = p17840->a31003; /* x166499 stalin.sc:24075:835132 */ /* x166498 stalin.sc:24075:835142 */ /* x166497 stalin.sc:24075:835148 */ t31046 = p17840->a30998; /* x166496 stalin.sc:24075:835143 */ a35381 = t31046; /* x272881 */ /* x272880 */ t31047 = a35381; /* x272879 */ if (!((t31047.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29530]"); structure_ref_error();} t31045 = t31047.value.structure_type24753->s1; /* x166495 stalin.sc:24075:835133 */ t31044 = f1005(t31045); /* x268069 stalin.sc:24075:835124 */ t31032 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t31032==NULL) {backtrace("stalin.sc", 24075, 835123); out_of_memory_error();} t31032->s0 = t31043; t31032->s1 = *((struct w49 *)(&t31044)); /* x166503 stalin.sc:24076:835159 */ /* x166502 stalin.sc:24076:835165 */ t31048 = p17840->a30997; /* x166501 stalin.sc:24076:835160 */ t31033 = f960(t31048); /* x166506 stalin.sc:24076:835169 */ /* x166505 stalin.sc:24076:835175 */ t31049 = p17840->a30998; /* x166504 stalin.sc:24076:835170 */ t31034 = f960(t31049); /* x166476 stalin.sc:24073:835009 */ b27002 = t31026; b27003 = t31027; b27004 = t31028; b27005 = t31029; b27006 = t31030; b27007 = t31031; b27008 = t31032; b27009 = t31033; b27010 = t31034; return f15881(); l4363: /* x166535 stalin.sc:24077:835184 */ /* x166509 stalin.sc:24077:835198 */ t31004 = p17840->a30994; /* x166513 stalin.sc:24077:835200 */ /* x166511 stalin.sc:24077:835220 */ t31015 = p17840->a30995; /* x166512 stalin.sc:24077:835222 */ t31016 = q64; /* x166510 stalin.sc:24077:835201 */ t31017 = t31015; t31005 = f8743(t31017, t31016); /* x166514 stalin.sc:24078:835243 */ t31006 = p17840->a31004; /* x166515 stalin.sc:24078:835246 */ t31007 = a31010; /* x166516 stalin.sc:24078:835249 */ t31008 = p17840->a31005; /* x166517 stalin.sc:24078:835252 */ t31009 = p17840->a31002; /* x166518 stalin.sc:24078:835255 */ t31010 = p17840->a31003; /* x166523 stalin.sc:24079:835262 */ /* x166522 stalin.sc:24079:835272 */ /* x166521 stalin.sc:24079:835278 */ t31019 = p17840->a30997; /* x166520 stalin.sc:24079:835273 */ a35382 = t31019; /* x272885 */ /* x272884 */ t31020 = a35382; /* x272883 */ if (!((t31020.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29531]"); structure_ref_error();} t31018 = t31020.value.structure_type24753->s1; /* x166519 stalin.sc:24079:835263 */ t31011 = f1005(t31018); /* x166528 stalin.sc:24079:835283 */ /* x166527 stalin.sc:24079:835293 */ /* x166526 stalin.sc:24079:835299 */ t31022 = p17840->a30998; /* x166525 stalin.sc:24079:835294 */ a35383 = t31022; /* x272889 */ /* x272888 */ t31023 = a35383; /* x272887 */ if (!((t31023.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29532]"); structure_ref_error();} t31021 = t31023.value.structure_type24753->s1; /* x166524 stalin.sc:24079:835284 */ t31012 = f1005(t31021); /* x166531 stalin.sc:24080:835308 */ /* x166530 stalin.sc:24080:835314 */ t31024 = p17840->a30997; /* x166529 stalin.sc:24080:835309 */ t31013 = f960(t31024); /* x166534 stalin.sc:24080:835318 */ /* x166533 stalin.sc:24080:835324 */ t31025 = p17840->a30998; /* x166532 stalin.sc:24080:835319 */ t31014 = f960(t31025); /* x166508 stalin.sc:24077:835185 */ b26962 = t31004; b26963 = t31005; b26964 = t31006; b26965 = t31007; b26966 = t31008; b26967 = t31009; b26968 = t31010; b26969 = *((struct w49 *)(&t31011)); b26970 = *((struct w49 *)(&t31012)); b26971 = t31013; b26972 = t31014; return f15827();} /* [inside top level 17827] */ struct structure_type24753 *f17827(int a30973) {struct structure_type24753 *r17827; struct structure_type24753 *a34949; /* OBJS */ struct w49 t31050; struct w12224 t31051; struct structure_type24753 *t31052; struct structure_type24753 *t31053; struct w49 t31054; int t31055; struct w227957 t31056; struct w49 t31057; int t31058; int t31059; /* x166366 stalin.sc:24047:834159 */ /* x166352 stalin.sc:24047:834165 */ /* x166365 stalin.sc:24048:834188 */ /* x166364 stalin.sc:24048:834231 */ /* x166363 stalin.sc:24048:834237 */ /* x166362 stalin.sc:24048:834232 */ a34949 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34949==NULL) {backtrace("stalin.sc", 24048, 834231); out_of_memory_error();} a34949->s0.tag = NATIVE_PROCEDURE_TYPE7410; a34949->s1.tag = NULL_TYPE; /* x271905 */ t31052 = a34949; /* x166361 stalin.sc:24048:834196 */ /* x166356 stalin.sc:24048:834203 */ /* x166360 stalin.sc:24048:834222 */ /* x166358 stalin.sc:24048:834225 */ t31058 = a30973; /* x166359 stalin.sc:24048:834227 */ t31059 = 2; /* x268073 stalin.sc:24048:834223 */ t31055 = t31058-t31059; /* x166354 stalin.sc:24048:834197 */ t31056.tag = NATIVE_PROCEDURE_TYPE22490; t31057.tag = FIXNUM_TYPE; t31057.value.fixnum_type = t31055; t31051 = f1149(t31056, t31057); /* x166353 stalin.sc:24048:834189 */ t31054.tag = STRUCTURE_TYPE24753; t31054.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31054.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24048, 834188); out_of_memory_error();} t31054.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t31054.value.structure_type24753->s0.value.structure_type24753 = t31052; t31054.value.structure_type24753->s1.tag = NULL_TYPE; t31053 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t31053==NULL) {backtrace("stalin.sc", 24048, 834188); out_of_memory_error();} t31053->s0 = *((struct w49 *)(&t31051)); t31053->s1 = t31054; t31050 = f26254(t31053); /* x268074 stalin.sc:24047:834160 */ r17827 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r17827==NULL) {backtrace("stalin.sc", 24047, 834159); out_of_memory_error();} r17827->s0.tag = NATIVE_PROCEDURE_TYPE7415; r17827->s1 = t31050; return r17827;} /* [inside top level 17825] */ struct structure_type24753 *f17825(int a30968) {struct structure_type24753 *r17825; struct structure_type24753 *a35033; /* OBJS */ struct w49 t31060; struct w12224 t31061; struct structure_type24753 *t31062; struct structure_type24753 *t31063; struct w49 t31064; int t31065; struct w227957 t31066; struct w49 t31067; int t31068; int t31069; /* x166349 stalin.sc:24044:834017 */ /* x166335 stalin.sc:24044:834023 */ /* x166348 stalin.sc:24045:834046 */ /* x166347 stalin.sc:24045:834089 */ /* x166346 stalin.sc:24045:834095 */ /* x166345 stalin.sc:24045:834090 */ a35033 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35033==NULL) {backtrace("stalin.sc", 24045, 834089); out_of_memory_error();} a35033->s0.tag = NATIVE_PROCEDURE_TYPE7410; a35033->s1.tag = NULL_TYPE; /* x272073 */ t31062 = a35033; /* x166344 stalin.sc:24045:834054 */ /* x166339 stalin.sc:24045:834061 */ /* x166343 stalin.sc:24045:834080 */ /* x166341 stalin.sc:24045:834083 */ t31068 = a30968; /* x166342 stalin.sc:24045:834085 */ t31069 = 2; /* x268075 stalin.sc:24045:834081 */ t31065 = t31068-t31069; /* x166337 stalin.sc:24045:834055 */ t31066.tag = NATIVE_PROCEDURE_TYPE22457; t31067.tag = FIXNUM_TYPE; t31067.value.fixnum_type = t31065; t31061 = f1149(t31066, t31067); /* x166336 stalin.sc:24045:834047 */ t31064.tag = STRUCTURE_TYPE24753; t31064.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31064.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24045, 834046); out_of_memory_error();} t31064.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t31064.value.structure_type24753->s0.value.structure_type24753 = t31062; t31064.value.structure_type24753->s1.tag = NULL_TYPE; t31063 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t31063==NULL) {backtrace("stalin.sc", 24045, 834046); out_of_memory_error();} t31063->s0 = *((struct w49 *)(&t31061)); t31063->s1 = t31064; t31060 = f26254(t31063); /* x268076 stalin.sc:24044:834018 */ r17825 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r17825==NULL) {backtrace("stalin.sc", 24044, 834017); out_of_memory_error();} r17825->s0.tag = NATIVE_PROCEDURE_TYPE7415; r17825->s1 = t31060; return r17825;} /* [inside top level 17821] */ struct w16638 f17821(struct p17820 *p17821, struct w49 a30963, struct w49 a30964) {struct w16638 r17821; struct w49 a35516; /* PAIR */ struct w49 a35517; /* PAIR */ struct w49 a36023; /* PAIR */ struct p17820 *t31070; unsigned t31071; struct w49 t31072; struct w211257 t31073; struct w12224 t31074; struct w49 t31075; struct structure_type27745 *t31076; struct w49 t31077; struct structure_type27745 *t31078; struct structure_type27745 *t31079; struct w49 t31080; struct w49 t31081; struct w49 t31082; struct w49 t31083; struct w49 t31084; struct w12224 t31085; struct w49 t31086; struct w49 t31087; struct w49 t31088; struct w49 t31089; struct structure_type27745 *t31090; char *t31091; struct w49 t31092; struct w49 t31093; struct w49 t31094; struct w211257 t31095; struct w49 t31096; struct w49 t31097; struct w211235 t31098; char *t31099; struct p17820 *p17822; /* x166331 */ /* x166330 stalin.sc:24034:833679 */ /* x166323 stalin.sc:24034:833685 */ /* x166321 stalin.sc:24034:833698 */ /* x166322 stalin.sc:24034:833709 */ t31097 = a30964; /* x166320 stalin.sc:24034:833686 */ t31098.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t31098, t31097).tag)==FALSE_TYPE) goto l4370; /* x166327 */ /* x166326 */ /* x166325 stalin.sc:24034:833712 */ /* x166324 stalin.sc:24034:833713 */ /* x295941 QobiScheme.sc:166:5314 */ /* x295940 QobiScheme.sc:166:5321 */ t31099 = "This shouldn\'t happen"; /* x295939 QobiScheme.sc:166:5315 */ stalin_panic(t31099); goto l4371; l4370: /* x166329 stalin.sc:24034:833679 */ /* x166328 stalin.sc:24034:833679 */ l4371: /* x166319 */ t31070 = p17821; p17822 = t31070; /* x166318 stalin.sc:24035:833725 */ /* x166310 stalin.sc:24035:833730 */ /* x166306 stalin.sc:24035:833739 */ /* x166298 stalin.sc:24036:833771 */ /* x166284 stalin.sc:24036:833775 */ /* x166283 stalin.sc:24036:833787 */ t31079 = p17822->a30960; /* x166282 stalin.sc:24036:833776 */ /* MOVE: branching squeezed to general */ if (t31079>=((struct structure_type27745 *)VALUE_OFFSET)) {t31080.tag = STRUCTURE_TYPE27745; t31080.value.structure_type27745 = t31079;} else t31080.tag = (unsigned)t31079; if (f8944(t31080)==FALSE_TYPE) goto l4367; /* x166292 stalin.sc:24037:833797 */ /* x166286 stalin.sc:24037:833803 */ t31084 = p17822->a30962; /* x166291 stalin.sc:24037:833806 */ /* x166290 stalin.sc:24037:833816 */ /* x166289 stalin.sc:24037:833822 */ t31087 = a30963; /* x166288 stalin.sc:24037:833817 */ a35516 = t31087; /* x273421 */ /* x273420 */ t31088 = a35516; /* x273419 */ if (!((t31088.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29665]"); structure_ref_error();} t31086 = t31088.value.structure_type24753->s1; /* x166287 stalin.sc:24037:833807 */ t31085 = f1005(t31086); /* x268077 stalin.sc:24037:833798 */ t31074.tag = STRUCTURE_TYPE24753; t31074.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31074.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24037, 833797); out_of_memory_error();} t31074.value.structure_type24753->s0 = t31084; t31074.value.structure_type24753->s1 = *((struct w49 *)(&t31085)); goto l4368; l4367: /* x166297 stalin.sc:24038:833835 */ /* x166296 stalin.sc:24038:833845 */ /* x166295 stalin.sc:24038:833851 */ t31082 = a30963; /* x166294 stalin.sc:24038:833846 */ a35517 = t31082; /* x273425 */ /* x273424 */ t31083 = a35517; /* x273423 */ if (!((t31083.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29666]"); structure_ref_error();} t31081 = t31083.value.structure_type24753->s1; /* x166293 stalin.sc:24038:833836 */ t31074 = f1005(t31081); l4368: /* x166301 stalin.sc:24039:833860 */ /* x166300 stalin.sc:24039:833866 */ t31089 = a30963; /* x166299 stalin.sc:24039:833861 */ t31075 = f960(t31089); /* x166305 stalin.sc:24040:833873 */ /* x166303 stalin.sc:24040:833893 */ t31090 = p17822->a30960; /* x166304 stalin.sc:24040:833895 */ t31091 = q64; /* x166302 stalin.sc:24040:833874 */ t31076 = f8743(t31090, t31091); /* x166281 stalin.sc:24035:833740 */ t31077 = *((struct w49 *)(&t31074)); t31078 = t31076; t31071 = f7892(t31077, t31075, t31078); /* x166309 stalin.sc:24041:833915 */ /* x166308 stalin.sc:24041:833922 */ t31092 = a30963; /* x166307 stalin.sc:24041:833916 */ a36023 = t31092; /* x275449 */ /* x275448 */ t31093 = a36023; /* x275447 */ if (!((t31093.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30172]"); structure_ref_error();} t31072 = t31093.value.structure_type24753->s0; /* x166280 stalin.sc:24035:833731 */ /* MOVE: dispatching squished to general */ if ((t31071&3)==1) {t31073.tag = NATIVE_PROCEDURE_TYPE19067; t31073.value.native_procedure_type19067 = (struct p7892 *)(t31071-1);} else {t31073.tag = NATIVE_PROCEDURE_TYPE19068; t31073.value.native_procedure_type19068 = (struct p7892 *)t31071;} if ((f8137(t31073, t31072).tag)==FALSE_TYPE) goto l4365; /* x166316 */ /* x166312 stalin.sc:24042:833943 */ /* x166315 stalin.sc:24042:833954 */ /* x166314 stalin.sc:24042:833960 */ t31096 = a30963; /* x166313 stalin.sc:24042:833955 */ t31094 = f960(t31096); /* x166311 stalin.sc:24042:833935 */ t31095.tag = NATIVE_PROCEDURE_TYPE7410; return f8137(t31095, t31094); l4365: /* x166317 */ r17821.tag = FALSE_TYPE; return r17821;} /* [inside top level 17820] */ struct p17820 *f17820(struct structure_type27745 *a30960, struct w49 a30962) {struct p17820 *e17820; e17820 = (struct p17820 *)GC_malloc(sizeof(struct p17820)); if (e17820==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17820->a30960 = a30960; e17820->a30962 = a30962; /* x166332 */ return e17820;} /* [inside top level 17811] */ unsigned f17811(struct w49 a30926) {struct w49 t31100; /* x166228 stalin.sc:24021:833243 */ /* x166228 stalin.sc:24021:833243 */ /* x166227 stalin.sc:24021:833248 */ /* x166226 stalin.sc:24021:833265 */ t31100 = a30926; /* x166225 stalin.sc:24021:833249 */ if (!(f7712(t31100)==FALSE_TYPE)) goto l4373; return TRUE_TYPE; l4373: return FALSE_TYPE;} /* [inside top level 17810] */ struct structure_type24753 *f17810(void) {struct structure_type24753 *a34950; /* OBJS */ /* x166230 stalin.sc:24021:833225 */ /* x166229 stalin.sc:24021:833231 */ /* x166223 stalin.sc:24021:833226 */ a34950 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34950==NULL) {backtrace("stalin.sc", 24021, 833225); out_of_memory_error();} a34950->s0.tag = NATIVE_PROCEDURE_TYPE22489; a34950->s1.tag = NULL_TYPE; /* x271907 */ return a34950;} /* [inside top level 17807] */ struct structure_type24753 *f17807(struct p17803 *p17807, unsigned a30914) {char *t31101; struct structure_type27745 *t31102; unsigned t31103; struct w49 t31104; /* x166201 stalin.sc:24015:833056 */ /* x166198 stalin.sc:24015:833071 */ t31101 = "vector_set1"; /* x166199 stalin.sc:24015:833085 */ t31102 = p17807->a30896; /* x166200 stalin.sc:24015:833087 */ t31103 = a30914; /* x166197 stalin.sc:24015:833057 */ t31104.tag = STRUCTURE_TYPE27745; t31104.value.structure_type27745 = t31102; return f15534(t31101, t31104, t31103);} /* [inside top level 17806] */ struct structure_type24753 *f17806(struct p17803 *p17806, unsigned a30913) {char *t31105; struct structure_type27745 *t31106; unsigned t31107; struct w49 t31108; /* x166193 stalin.sc:24014:833003 */ /* x166190 stalin.sc:24014:833018 */ t31105 = "vector_set2"; /* x166191 stalin.sc:24014:833032 */ t31106 = p17806->a30896; /* x166192 stalin.sc:24014:833034 */ t31107 = a30913; /* x166189 stalin.sc:24014:833004 */ t31108.tag = STRUCTURE_TYPE27745; t31108.value.structure_type27745 = t31106; return f15534(t31105, t31108, t31107);} /* [inside top level 17805] */ struct w49 f17805(struct p17804 *p17805, struct w49 a30912) {struct structure_type24753 *a41836; /* CS */ struct w49 t31109; struct w49 t31110; struct w49 t31111; struct structure_type24753 *t31112; struct w49 t31113; struct w49 t31114; struct w49 t31115; struct structure_type24753 *t31116; struct structure_type24753 *t31117; char *t31118; struct w49 t31119; struct w49 t31120; unsigned t31121; struct structure_type24753 *t31122; struct structure_type24753 *t31123; struct structure_type24753 *t31124; struct w49 t31125; struct w49 t31126; struct w49 t31127; struct w49 t31128; struct w49 t31129; struct w49 t31130; struct w49 t31131; struct w49 t31132; struct w49 t31133; struct w49 t31134; struct w49 t31135; struct w49 t31136; struct w49 t31137; char *t31138; struct structure_type27745 *t31139; struct w49 t31140; unsigned t31141; struct structure_type27501 *t31142; struct w49 t31143; struct w49 t31144; struct w12218 t31145; struct w49 t31146; struct w49 t31147; struct w60864 t31148; struct w49 t31149; struct structure_type27501 *t31150; struct w49 t31151; struct w49 t31152; struct w49 t31153; struct w49 t31154; struct w49 t31155; struct w49 t31156; struct w49 t31157; struct w49 t31158; struct structure_type27501 *t31159; struct w12218 t31160; /* x166187 stalin.sc:23997:832555 */ /* x166186 stalin.sc:24013:832965 */ /* x166185 stalin.sc:24013:832981 */ t31159 = p17805->p17803->a30895; /* x166184 stalin.sc:24013:832966 */ /* MOVE: branching squeezed to general */ if (t31159>=((struct structure_type27501 *)VALUE_OFFSET)) {t31160.tag = STRUCTURE_TYPE27501; t31160.value.structure_type27501 = t31159;} else t31160.tag = (unsigned)t31159; t31111 = f15342(t31160); /* x166183 stalin.sc:24006:832785 */ /* x166180 stalin.sc:24006:832791 */ /* x166163 stalin.sc:24006:832795 */ /* x166162 stalin.sc:24006:832820 */ t31146 = p17805->a30911; /* x166161 stalin.sc:24006:832796 */ if (f7754(t31146)==FALSE_TYPE) goto l4379; /* x166164 stalin.sc:24007:832826 */ t31142 = a1194; goto l4380; l4379: /* x166179 stalin.sc:24008:832838 */ /* x166168 stalin.sc:24009:832865 */ /* x166167 stalin.sc:24009:832886 */ t31151 = p17805->a30911; /* x166166 stalin.sc:24009:832866 */ t31147 = f7931(t31151); /* x166178 stalin.sc:24010:832893 */ /* x166170 stalin.sc:24010:832911 */ t31152 = p17805->p17803->a30905; /* x166171 stalin.sc:24010:832914 */ t31153 = p17805->a30911; /* x166172 stalin.sc:24010:832917 */ t31154 = p17805->p17803->a30906; /* x166177 stalin.sc:24010:832920 */ /* x166174 stalin.sc:24010:832929 */ t31156 = p17805->p17803->a30907; /* x166175 stalin.sc:24010:832932 */ t31157 = a30912; /* x166176 stalin.sc:24010:832935 */ t31158 = p17805->p17803->a30908; /* x166173 stalin.sc:24010:832921 */ t31155 = f14485(t31156, t31157, t31158); /* x166169 stalin.sc:24010:832894 */ t31148 = f14753(t31152, t31153, t31154, t31155); /* x166165 stalin.sc:24008:832839 */ t31149 = *((struct w49 *)(&t31148)); t31150 = f7025(t31147, t31149); t31142 = t31150; l4380: /* x166181 stalin.sc:24011:832947 */ t31143 = p17805->p17803->a30909; /* x166182 stalin.sc:24012:832955 */ t31144 = p17805->p17803->a30910; /* x166160 stalin.sc:24006:832786 */ /* MOVE: branching squeezed to general */ if (t31142>=((struct structure_type27501 *)VALUE_OFFSET)) {t31145.tag = STRUCTURE_TYPE27501; t31145.value.structure_type27501 = t31142;} else t31145.tag = (unsigned)t31142; t31110 = f15496(t31145, t31143, t31144); /* x166159 stalin.sc:23998:832578 */ /* x166125 stalin.sc:23998:832582 */ if (a707==FALSE_TYPE) goto l4376; /* x166156 stalin.sc:23999:832602 */ /* x166147 stalin.sc:23999:832608 */ /* x166146 stalin.sc:24001:832654 */ /* x166140 stalin.sc:24001:832660 */ /* x166137 stalin.sc:24001:832669 */ t31132 = p17805->p17803->a30907; /* x166138 stalin.sc:24001:832672 */ t31133 = a30912; /* x166139 stalin.sc:24001:832675 */ t31134 = p17805->p17803->a30908; /* x166136 stalin.sc:24001:832661 */ t31130 = f14485(t31132, t31133, t31134); /* x166145 stalin.sc:24001:832679 */ /* x166142 stalin.sc:24001:832700 */ t31135 = p17805->p17803->a30905; /* x166143 stalin.sc:24001:832703 */ t31136 = p17805->a30911; /* x166144 stalin.sc:24001:832706 */ t31137 = p17805->p17803->a30906; /* x166141 stalin.sc:24001:832680 */ t31131 = f14751(t31135, t31136, t31137); /* x166135 stalin.sc:24001:832655 */ t31123 = f13608(t31130, t31131); /* x166134 stalin.sc:24000:832625 */ /* x166133 stalin.sc:24000:832631 */ /* x166130 stalin.sc:24000:832640 */ t31127 = p17805->p17803->a30907; /* x166131 stalin.sc:24000:832643 */ t31128 = a30912; /* x166132 stalin.sc:24000:832646 */ t31129 = p17805->p17803->a30908; /* x166129 stalin.sc:24000:832632 */ t31126 = f14485(t31127, t31128, t31129); /* x166128 stalin.sc:24000:832626 */ t31122 = f13602(t31126); /* x166127 stalin.sc:23999:832609 */ t31125.tag = STRUCTURE_TYPE24753; t31125.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31125.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23999, 832608); out_of_memory_error();} t31125.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t31125.value.structure_type24753->s0.value.structure_type24753 = t31123; t31125.value.structure_type24753->s1.tag = NULL_TYPE; t31124 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t31124==NULL) {backtrace("stalin.sc", 23999, 832608); out_of_memory_error();} t31124->s0.tag = STRUCTURE_TYPE24753; t31124->s0.value.structure_type24753 = t31122; t31124->s1 = t31125; t31116 = f13556(t31124); /* x166152 stalin.sc:24002:832714 */ /* x166149 stalin.sc:24002:832729 */ t31138 = "vector_set3"; /* x166150 stalin.sc:24002:832743 */ t31139 = p17805->p17803->a30896; /* x166151 stalin.sc:24002:832745 */ /* x166148 stalin.sc:24002:832715 */ t31140.tag = STRUCTURE_TYPE27745; t31140.value.structure_type27745 = t31139; t31141 = FALSE_TYPE; t31117 = f15534(t31138, t31140, t31141); /* x166154 stalin.sc:24003:832751 */ /* x166153 stalin.sc:24003:832752 */ /* x276499 stalin.sc:14693:514793 */ t31118 = ""; /* x166155 stalin.sc:24004:832762 */ /* x166126 stalin.sc:23999:832603 */ t31119.tag = STRUCTURE_TYPE24753; t31119.value.structure_type24753 = t31117; t31120.tag = STRING_TYPE; t31120.value.string_type = t31118; t31121 = FALSE_TYPE; t31109 = f13672(t31116, t31119, t31120, t31121); goto l4377; l4376: /* x166158 stalin.sc:24005:832769 */ /* x166157 stalin.sc:24005:832770 */ /* x276501 stalin.sc:14693:514793 */ t31109.tag = STRING_TYPE; t31109.value.string_type = ""; l4377: /* x166124 stalin.sc:23997:832556 */ t31115.tag = STRUCTURE_TYPE24753; t31115.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31115.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23997, 832555); out_of_memory_error();} t31115.value.structure_type24753->s0 = t31111; t31115.value.structure_type24753->s1.tag = NULL_TYPE; t31114.tag = STRUCTURE_TYPE24753; t31114.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31114.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23997, 832555); out_of_memory_error();} t31114.value.structure_type24753->s0 = t31110; t31114.value.structure_type24753->s1 = t31115; a41836 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41836==NULL) {backtrace("stalin.sc", 23997, 832555); out_of_memory_error();} a41836->s0 = t31109; a41836->s1 = t31114; /* x301456 stalin.sc:14400:506485 */ /* x301455 stalin.sc:14400:506503 */ t31112 = a41836; /* x301454 stalin.sc:14400:506486 */ t31113.tag = STRUCTURE_TYPE24753; t31113.value.structure_type24753 = t31112; return f13492(t31113);} /* [inside top level 17804] */ struct w49 f17804(void) {struct p17803 *p17804 = d17804; struct w49 a30911 = b30911; /* U1 */ struct w49 t31161; struct structure_type27501 *t31162; struct w49 t31163; struct p17804 *t31164; struct p17803 *t31165; struct p17804 *e17804; e17804 = (struct p17804 *)GC_malloc(sizeof(struct p17804)); if (e17804==NULL) {backtrace("stalin.sc", 23990, 832467); out_of_memory_error();} e17804->p17803 = p17804; e17804->a30911 = a30911; /* x166195 stalin.sc:23991:832483 */ /* x166120 stalin.sc:23992:832500 */ /* x166121 stalin.sc:23993:832517 */ t31161 = p17804->a30908; /* x166122 stalin.sc:23994:832524 */ t31162 = p17804->a30895; /* x166123 stalin.sc:23995:832530 */ t31163 = p17804->a30907; /* x166188 stalin.sc:23996:832537 */ t31164 = e17804; /* x166194 stalin.sc:24014:832990 */ t31165 = p17804; /* x166119 stalin.sc:23991:832484 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t31161; b26113 = t31162; b26114 = t31163; b26115.tag = NATIVE_PROCEDURE_TYPE22013; b26115.value.native_procedure_type22013 = t31164; b26116.tag = NATIVE_PROCEDURE_TYPE22012; b26116.value.native_procedure_type22012 = t31165; return f14692();} /* [inside top level 17790] */ struct structure_type24753 *f17790(void) {struct structure_type24753 *a34951; /* OBJS */ struct w49 t31166; struct w49 t31167; /* x166050 stalin.sc:23965:831921 */ /* x166049 stalin.sc:23965:831953 */ /* x166048 stalin.sc:23965:831940 */ /* x166047 stalin.sc:23965:831927 */ /* x166046 stalin.sc:23965:831922 */ t31167.tag = STRUCTURE_TYPE24753; t31167.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31167.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23965, 831921); out_of_memory_error();} t31167.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7404; t31167.value.structure_type24753->s1.tag = NULL_TYPE; t31166.tag = STRUCTURE_TYPE24753; t31166.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31166.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23965, 831921); out_of_memory_error();} t31166.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7430; t31166.value.structure_type24753->s1 = t31167; a34951 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34951==NULL) {backtrace("stalin.sc", 23965, 831921); out_of_memory_error();} a34951->s0.tag = NATIVE_PROCEDURE_TYPE7406; a34951->s1 = t31166; /* x271909 */ return a34951;} /* [inside top level 17789] */ struct structure_type24753 *f17789(void) {struct structure_type24753 *a35035; /* OBJS */ struct w49 t31168; struct w49 t31169; /* x166044 stalin.sc:23964:831881 */ /* x166043 stalin.sc:23964:831913 */ /* x166042 stalin.sc:23964:831900 */ /* x166041 stalin.sc:23964:831887 */ /* x166040 stalin.sc:23964:831882 */ t31169.tag = STRUCTURE_TYPE24753; t31169.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31169.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23964, 831881); out_of_memory_error();} t31169.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7404; t31169.value.structure_type24753->s1.tag = NULL_TYPE; t31168.tag = STRUCTURE_TYPE24753; t31168.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31168.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23964, 831881); out_of_memory_error();} t31168.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7430; t31168.value.structure_type24753->s1 = t31169; a35035 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35035==NULL) {backtrace("stalin.sc", 23964, 831881); out_of_memory_error();} a35035->s0.tag = NATIVE_PROCEDURE_TYPE7406; a35035->s1 = t31168; /* x272077 */ return a35035;} /* [inside top level 17788] */ struct p16292 *f17788(void) {unsigned t31170; unsigned t31171; /* x166038 stalin.sc:23963:831812 */ /* x166035 stalin.sc:23963:831847 */ /* x166036 stalin.sc:23963:831860 */ /* x166037 stalin.sc:23963:831873 */ /* x166034 stalin.sc:23963:831813 */ t31170 = NATIVE_PROCEDURE_TYPE7406; t31171 = NATIVE_PROCEDURE_TYPE7404; return f16292(t31170, t31171);} /* [inside top level 17787] */ struct structure_type24753 *f17787(struct p17783 *p17787, unsigned a30863) {char *t31172; struct structure_type27745 *t31173; unsigned t31174; struct w49 t31175; /* x166020 stalin.sc:23959:831703 */ /* x166017 stalin.sc:23959:831718 */ t31172 = "vector_ref1"; /* x166018 stalin.sc:23959:831732 */ t31173 = p17787->a30845; /* x166019 stalin.sc:23959:831734 */ t31174 = a30863; /* x166016 stalin.sc:23959:831704 */ t31175.tag = STRUCTURE_TYPE27745; t31175.value.structure_type27745 = t31173; return f15534(t31172, t31175, t31174);} /* [inside top level 17786] */ struct structure_type24753 *f17786(struct p17783 *p17786, unsigned a30862) {char *t31176; struct structure_type27745 *t31177; unsigned t31178; struct w49 t31179; /* x166012 stalin.sc:23958:831650 */ /* x166009 stalin.sc:23958:831665 */ t31176 = "vector_ref2"; /* x166010 stalin.sc:23958:831679 */ t31177 = p17786->a30845; /* x166011 stalin.sc:23958:831681 */ t31178 = a30862; /* x166008 stalin.sc:23958:831651 */ t31179.tag = STRUCTURE_TYPE27745; t31179.value.structure_type27745 = t31177; return f15534(t31176, t31179, t31178);} /* [inside top level 17785] */ struct w49 f17785(struct p17784 *p17785, struct w49 a30861) {struct structure_type24753 *a41791; /* CS */ struct w49 t31180; struct w49 t31181; struct structure_type24753 *t31182; struct w49 t31183; struct w49 t31184; struct structure_type24753 *t31185; struct structure_type24753 *t31186; char *t31187; struct w49 t31188; struct w49 t31189; unsigned t31190; struct structure_type24753 *t31191; struct structure_type24753 *t31192; struct structure_type24753 *t31193; struct w49 t31194; struct w49 t31195; struct w49 t31196; struct w49 t31197; struct w49 t31198; struct w49 t31199; struct w49 t31200; struct w49 t31201; struct w49 t31202; struct w49 t31203; struct w49 t31204; struct w49 t31205; struct w49 t31206; char *t31207; struct structure_type27745 *t31208; struct w49 t31209; unsigned t31210; struct structure_type27501 *t31211; struct w60864 t31212; struct w49 t31213; struct w12218 t31214; struct w49 t31215; struct w49 t31216; struct w49 t31217; struct w49 t31218; struct w49 t31219; struct w49 t31220; struct w49 t31221; struct w49 t31222; struct w49 t31223; /* x166006 stalin.sc:23946:831310 */ /* x166005 stalin.sc:23955:831540 */ /* x165991 stalin.sc:23955:831546 */ t31211 = p17785->p17783->a30844; /* x166001 stalin.sc:23956:831553 */ /* x165993 stalin.sc:23956:831571 */ t31216 = p17785->p17783->a30854; /* x165994 stalin.sc:23956:831574 */ t31217 = p17785->a30860; /* x165995 stalin.sc:23956:831577 */ t31218 = p17785->p17783->a30855; /* x166000 stalin.sc:23956:831580 */ /* x165997 stalin.sc:23956:831589 */ t31220 = p17785->p17783->a30856; /* x165998 stalin.sc:23956:831592 */ t31221 = a30861; /* x165999 stalin.sc:23956:831595 */ t31222 = p17785->p17783->a30857; /* x165996 stalin.sc:23956:831581 */ t31219 = f14485(t31220, t31221, t31222); /* x165992 stalin.sc:23956:831554 */ t31212 = f14753(t31216, t31217, t31218, t31219); /* x166004 stalin.sc:23957:831605 */ /* x166003 stalin.sc:23957:831626 */ t31223 = p17785->a30860; /* x166002 stalin.sc:23957:831606 */ t31213 = f7931(t31223); /* x165990 stalin.sc:23955:831541 */ /* MOVE: branching squeezed to general */ if (t31211>=((struct structure_type27501 *)VALUE_OFFSET)) {t31214.tag = STRUCTURE_TYPE27501; t31214.value.structure_type27501 = t31211;} else t31214.tag = (unsigned)t31211; t31215 = *((struct w49 *)(&t31212)); t31181 = f15496(t31214, t31215, t31213); /* x165989 stalin.sc:23947:831333 */ /* x165955 stalin.sc:23947:831337 */ if (a707==FALSE_TYPE) goto l4382; /* x165986 stalin.sc:23948:831357 */ /* x165977 stalin.sc:23948:831363 */ /* x165976 stalin.sc:23950:831409 */ /* x165970 stalin.sc:23950:831415 */ /* x165967 stalin.sc:23950:831424 */ t31201 = p17785->p17783->a30856; /* x165968 stalin.sc:23950:831427 */ t31202 = a30861; /* x165969 stalin.sc:23950:831430 */ t31203 = p17785->p17783->a30857; /* x165966 stalin.sc:23950:831416 */ t31199 = f14485(t31201, t31202, t31203); /* x165975 stalin.sc:23950:831434 */ /* x165972 stalin.sc:23950:831455 */ t31204 = p17785->p17783->a30854; /* x165973 stalin.sc:23950:831458 */ t31205 = p17785->a30860; /* x165974 stalin.sc:23950:831461 */ t31206 = p17785->p17783->a30855; /* x165971 stalin.sc:23950:831435 */ t31200 = f14751(t31204, t31205, t31206); /* x165965 stalin.sc:23950:831410 */ t31192 = f13608(t31199, t31200); /* x165964 stalin.sc:23949:831380 */ /* x165963 stalin.sc:23949:831386 */ /* x165960 stalin.sc:23949:831395 */ t31196 = p17785->p17783->a30856; /* x165961 stalin.sc:23949:831398 */ t31197 = a30861; /* x165962 stalin.sc:23949:831401 */ t31198 = p17785->p17783->a30857; /* x165959 stalin.sc:23949:831387 */ t31195 = f14485(t31196, t31197, t31198); /* x165958 stalin.sc:23949:831381 */ t31191 = f13602(t31195); /* x165957 stalin.sc:23948:831364 */ t31194.tag = STRUCTURE_TYPE24753; t31194.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31194.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23948, 831363); out_of_memory_error();} t31194.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t31194.value.structure_type24753->s0.value.structure_type24753 = t31192; t31194.value.structure_type24753->s1.tag = NULL_TYPE; t31193 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t31193==NULL) {backtrace("stalin.sc", 23948, 831363); out_of_memory_error();} t31193->s0.tag = STRUCTURE_TYPE24753; t31193->s0.value.structure_type24753 = t31191; t31193->s1 = t31194; t31185 = f13556(t31193); /* x165982 stalin.sc:23951:831469 */ /* x165979 stalin.sc:23951:831484 */ t31207 = "vector_ref3"; /* x165980 stalin.sc:23951:831498 */ t31208 = p17785->p17783->a30845; /* x165981 stalin.sc:23951:831500 */ /* x165978 stalin.sc:23951:831470 */ t31209.tag = STRUCTURE_TYPE27745; t31209.value.structure_type27745 = t31208; t31210 = FALSE_TYPE; t31186 = f15534(t31207, t31209, t31210); /* x165984 stalin.sc:23952:831506 */ /* x165983 stalin.sc:23952:831507 */ /* x276495 stalin.sc:14693:514793 */ t31187 = ""; /* x165985 stalin.sc:23953:831517 */ /* x165956 stalin.sc:23948:831358 */ t31188.tag = STRUCTURE_TYPE24753; t31188.value.structure_type24753 = t31186; t31189.tag = STRING_TYPE; t31189.value.string_type = t31187; t31190 = FALSE_TYPE; t31180 = f13672(t31185, t31188, t31189, t31190); goto l4383; l4382: /* x165988 stalin.sc:23954:831524 */ /* x165987 stalin.sc:23954:831525 */ /* x276497 stalin.sc:14693:514793 */ t31180.tag = STRING_TYPE; t31180.value.string_type = ""; l4383: /* x165954 stalin.sc:23946:831311 */ t31184.tag = STRUCTURE_TYPE24753; t31184.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31184.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23946, 831310); out_of_memory_error();} t31184.value.structure_type24753->s0 = t31181; t31184.value.structure_type24753->s1.tag = NULL_TYPE; a41791 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41791==NULL) {backtrace("stalin.sc", 23946, 831310); out_of_memory_error();} a41791->s0 = t31180; a41791->s1 = t31184; /* x301276 stalin.sc:14400:506485 */ /* x301275 stalin.sc:14400:506503 */ t31182 = a41791; /* x301274 stalin.sc:14400:506486 */ t31183.tag = STRUCTURE_TYPE24753; t31183.value.structure_type24753 = t31182; return f13492(t31183);} /* [inside top level 17784] */ struct w49 f17784(void) {struct p17783 *p17784 = d17784; struct w49 a30860 = b30860; /* U1 */ struct w49 t31224; struct structure_type27501 *t31225; struct w49 t31226; struct p17784 *t31227; struct p17783 *t31228; struct p17784 *e17784; e17784 = (struct p17784 *)GC_malloc(sizeof(struct p17784)); if (e17784==NULL) {backtrace("stalin.sc", 23939, 831222); out_of_memory_error();} e17784->p17783 = p17784; e17784->a30860 = a30860; /* x166014 stalin.sc:23940:831238 */ /* x165950 stalin.sc:23941:831255 */ /* x165951 stalin.sc:23942:831272 */ t31224 = p17784->a30857; /* x165952 stalin.sc:23943:831279 */ t31225 = p17784->a30844; /* x165953 stalin.sc:23944:831285 */ t31226 = p17784->a30856; /* x166007 stalin.sc:23945:831292 */ t31227 = e17784; /* x166013 stalin.sc:23958:831637 */ t31228 = p17784; /* x165949 stalin.sc:23940:831239 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t31224; b26113 = t31225; b26114 = t31226; b26115.tag = NATIVE_PROCEDURE_TYPE22017; b26115.value.native_procedure_type22017 = t31227; b26116.tag = NATIVE_PROCEDURE_TYPE22016; b26116.value.native_procedure_type22016 = t31228; return f14692();} /* [inside top level 17764] */ struct structure_type24753 *f17764(void) {struct structure_type24753 *a34952; /* OBJS */ struct w49 t31229; /* x165848 stalin.sc:23908:830403 */ /* x165847 stalin.sc:23908:830422 */ /* x165846 stalin.sc:23908:830409 */ /* x165845 stalin.sc:23908:830404 */ t31229.tag = STRUCTURE_TYPE24753; t31229.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31229.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23908, 830403); out_of_memory_error();} t31229.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7430; t31229.value.structure_type24753->s1.tag = NULL_TYPE; a34952 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34952==NULL) {backtrace("stalin.sc", 23908, 830403); out_of_memory_error();} a34952->s0.tag = NATIVE_PROCEDURE_TYPE7406; a34952->s1 = t31229; /* x271911 */ return a34952;} /* [inside top level 17763] */ struct structure_type24753 *f17763(void) {struct structure_type24753 *a35034; /* OBJS */ struct w49 t31230; /* x165843 stalin.sc:23907:830369 */ /* x165842 stalin.sc:23907:830388 */ /* x165841 stalin.sc:23907:830375 */ /* x165840 stalin.sc:23907:830370 */ t31230.tag = STRUCTURE_TYPE24753; t31230.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31230.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23907, 830369); out_of_memory_error();} t31230.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7430; t31230.value.structure_type24753->s1.tag = NULL_TYPE; a35034 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35034==NULL) {backtrace("stalin.sc", 23907, 830369); out_of_memory_error();} a35034->s0.tag = NATIVE_PROCEDURE_TYPE7406; a35034->s1 = t31230; /* x272075 */ return a35034;} /* [inside top level 17762] */ struct p16287 *f17762(void) {unsigned t31231; unsigned t31232; /* x165838 stalin.sc:23906:830308 */ /* x165836 stalin.sc:23906:830341 */ /* x165837 stalin.sc:23906:830354 */ /* x165835 stalin.sc:23906:830309 */ t31231 = (unsigned)NATIVE_PROCEDURE_TYPE7406; t31232 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f16287(t31231, t31232);} /* [inside top level 17761] */ struct structure_type24753 *f17761(struct p17759 *p17761, unsigned a30811) {char *t31233; struct structure_type27745 *t31234; unsigned t31235; struct w49 t31236; /* x165821 stalin.sc:23902:830200 */ /* x165818 stalin.sc:23902:830215 */ t31233 = "vector_length"; /* x165819 stalin.sc:23902:830231 */ t31234 = p17761->a30795; /* x165820 stalin.sc:23902:830233 */ t31235 = a30811; /* x165817 stalin.sc:23902:830201 */ t31236.tag = STRUCTURE_TYPE27745; t31236.value.structure_type27745 = t31234; return f15534(t31233, t31236, t31235);} /* [inside top level 17760] */ struct w49 f17760(struct p17759 *p17760, struct w49 a30810) {struct structure_type27501 *t31237; struct w49 t31238; unsigned t31239; struct w49 t31240; struct w49 t31241; struct w49 t31242; /* x165815 stalin.sc:23901:830130 */ /* x165808 stalin.sc:23901:830137 */ t31237 = p17760->a30794; /* x165813 stalin.sc:23901:830139 */ /* x165810 stalin.sc:23901:830160 */ t31240 = p17760->a30804; /* x165811 stalin.sc:23901:830163 */ t31241 = a30810; /* x165812 stalin.sc:23901:830166 */ t31242 = p17760->a30805; /* x165809 stalin.sc:23901:830140 */ t31238 = f14751(t31240, t31241, t31242); /* x165814 stalin.sc:23901:830170 */ /* x165807 stalin.sc:23901:830131 */ t31239 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t31237, t31238, t31239);} /* [inside top level 17734] */ void f17734(struct p17732 *p17734, struct w49 a30743) {struct w49 a37512; /* S */ struct structure_type27501 *t31243; struct w49 t31244; struct w49 t31245; struct w12218 t31246; struct w49 t31247; struct w49 t31248; struct w49 t31249; struct structure_type27501 *t31250; struct w49 t31251; struct w49 t31252; /* x165580 stalin.sc:23845:828545 */ /* x165577 stalin.sc:23846:828563 */ /* x165569 stalin.sc:23846:828567 */ /* x165568 stalin.sc:23846:828592 */ t31247 = p17734->a30742; /* x165567 stalin.sc:23846:828568 */ if (f7754(t31247)==FALSE_TYPE) goto l4385; /* x165570 stalin.sc:23847:828600 */ t31243 = a1194; goto l4386; l4385: /* x165576 stalin.sc:23848:828615 */ /* x165574 stalin.sc:23848:828639 */ /* x165573 stalin.sc:23848:828667 */ t31251 = p17734->a30742; /* x165572 stalin.sc:23848:828640 */ a37512 = t31251; /* x282717 */ /* x282716 */ t31252 = a37512; /* x282715 */ if (!((t31252.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32429]"); structure_ref_error();} t31248 = t31252.value.structure_type27761->s0; /* x165575 stalin.sc:23848:828670 */ /* x165571 stalin.sc:23848:828616 */ t31249.tag = FALSE_TYPE; t31250 = f7025(t31248, t31249); t31243 = t31250; l4386: /* x165578 stalin.sc:23849:828683 */ t31244 = a30743; /* x165579 stalin.sc:23850:828693 */ t31245 = a30743; /* x165566 stalin.sc:23845:828546 */ /* MOVE: branching squeezed to general */ if (t31243>=((struct structure_type27501 *)VALUE_OFFSET)) {t31246.tag = STRUCTURE_TYPE27501; t31246.value.structure_type27501 = t31243;} else t31246.tag = (unsigned)t31243; f14848(t31246, t31244, t31245); return;} /* [inside top level 17722] */ struct w12224 f17722(int a30721) {int t31253; struct w227957 t31254; struct w49 t31255; /* x165516 stalin.sc:23825:827866 */ /* x165514 stalin.sc:23825:827873 */ /* x165515 stalin.sc:23825:827892 */ t31253 = a30721; /* x165512 stalin.sc:23825:827867 */ t31254.tag = NATIVE_PROCEDURE_TYPE22488; t31255.tag = FIXNUM_TYPE; t31255.value.fixnum_type = t31253; return f1149(t31254, t31255);} /* [inside top level 17720] */ struct w12224 f17720(int a30716) {int t31256; struct w227957 t31257; struct w49 t31258; /* x165510 stalin.sc:23824:827836 */ /* x165508 stalin.sc:23824:827843 */ /* x165509 stalin.sc:23824:827862 */ t31256 = a30716; /* x165506 stalin.sc:23824:827837 */ t31257.tag = NATIVE_PROCEDURE_TYPE22456; t31258.tag = FIXNUM_TYPE; t31258.value.fixnum_type = t31256; return f1149(t31257, t31258);} /* [inside top level 17718] */ struct structure_type24753 *f17718(struct p17704 *p17718, unsigned a30710) {char *t31259; struct structure_type27745 *t31260; unsigned t31261; struct w49 t31262; /* x165483 stalin.sc:23819:827672 */ /* x165480 stalin.sc:23819:827687 */ t31259 = "make_displaced_vector1"; /* x165481 stalin.sc:23819:827712 */ t31260 = p17718->a30686; /* x165482 stalin.sc:23819:827714 */ t31261 = a30710; /* x165479 stalin.sc:23819:827673 */ t31262.tag = STRUCTURE_TYPE27745; t31262.value.structure_type27745 = t31260; return f15534(t31259, t31262, t31261);} /* [inside top level 17716] */ struct structure_type24753 *f17716(struct p17704 *p17716, unsigned a30708) {char *t31263; struct structure_type27745 *t31264; unsigned t31265; struct w49 t31266; /* x165458 stalin.sc:23818:827606 */ /* x165455 stalin.sc:23818:827621 */ t31263 = "make_displaced_vector2"; /* x165456 stalin.sc:23818:827646 */ t31264 = p17716->a30686; /* x165457 stalin.sc:23818:827648 */ t31265 = a30708; /* x165454 stalin.sc:23818:827607 */ t31266.tag = STRUCTURE_TYPE27745; t31266.value.structure_type27745 = t31264; return f15534(t31263, t31266, t31265);} /* [inside top level 17715] */ struct structure_type24753 *f17715(struct p17704 *p17715, unsigned a30707) {char *t31267; struct structure_type27745 *t31268; unsigned t31269; struct w49 t31270; /* x165450 stalin.sc:23817:827538 */ /* x165447 stalin.sc:23817:827553 */ t31267 = "make_displaced_vector3"; /* x165448 stalin.sc:23817:827578 */ t31268 = p17715->a30686; /* x165449 stalin.sc:23817:827580 */ t31269 = a30707; /* x165446 stalin.sc:23817:827539 */ t31270.tag = STRUCTURE_TYPE27745; t31270.value.structure_type27745 = t31268; return f15534(t31267, t31270, t31269);} /* [inside top level 17709] */ struct w49 f17709(struct p17708 *p17709, struct w49 a30705) {struct structure_type24753 *a41792; /* CS */ struct w49 t31271; struct w49 t31272; struct w49 t31273; struct structure_type24753 *t31274; struct w49 t31275; struct w49 t31276; struct w49 t31277; struct structure_type24753 *t31278; struct structure_type24753 *t31279; char *t31280; struct w49 t31281; struct w49 t31282; unsigned t31283; struct structure_type24753 *t31284; struct structure_type24753 *t31285; struct structure_type24753 *t31286; struct w49 t31287; struct w49 t31288; struct w49 t31289; struct w49 t31290; struct w49 t31291; struct w49 t31292; struct w49 t31293; struct w49 t31294; struct w49 t31295; struct w49 t31296; struct w49 t31297; struct w49 t31298; struct w49 t31299; char *t31300; struct structure_type27745 *t31301; struct w49 t31302; unsigned t31303; struct p17708 *t31304; struct p17708 *t31305; struct structure_type24753 *t31306; struct structure_type24753 *t31307; char *t31308; struct w49 t31309; struct w49 t31310; unsigned t31311; struct structure_type24753 *t31312; struct structure_type24753 *t31313; struct structure_type24753 *t31314; struct w49 t31315; struct w49 t31316; struct w49 t31317; struct w49 t31318; struct w49 t31319; struct w49 t31320; struct w49 t31321; struct w49 t31322; struct w49 t31323; struct w49 t31324; struct w49 t31325; struct w49 t31326; struct w49 t31327; struct w49 t31328; struct w49 t31329; struct w49 t31330; struct w49 t31331; struct w49 t31332; char *t31333; struct structure_type27745 *t31334; struct w49 t31335; unsigned t31336; struct p17704 *t31337; struct structure_type27745 *t31338; char *t31339; struct w6315 t31340; struct structure_type27501 *t31341; struct w49 t31342; struct structure_type24753 *t31343; struct w49 t31344; struct w61020 t31345; struct w60864 t31346; struct w49 t31347; struct structure_type24753 *t31348; struct w49 t31349; struct w49 t31350; struct w49 t31351; struct w49 t31352; struct w49 t31353; struct w49 t31354; struct w49 t31355; struct w49 t31356; struct w49 t31357; struct w49 t31358; struct p17708 *p17710; struct p17708 *p17711; struct p17704 *p17712; /* x165444 stalin.sc:23791:826760 */ /* x165443 stalin.sc:23812:827406 */ /* x165424 stalin.sc:23813:827433 */ t31341 = p17709->p17707->p17706->p17704->a30685; /* x165425 stalin.sc:23814:827439 */ t31342 = p17709->p17707->a30703; /* x165437 stalin.sc:23815:827445 */ /* x165436 stalin.sc:23815:827450 */ /* x165428 stalin.sc:23815:827468 */ t31349 = p17709->p17707->p17706->p17704->a30695; /* x165429 stalin.sc:23815:827471 */ t31350 = p17709->p17707->p17706->a30702; /* x165430 stalin.sc:23815:827474 */ t31351 = p17709->p17707->p17706->p17704->a30696; /* x165435 stalin.sc:23815:827477 */ /* x165432 stalin.sc:23815:827486 */ t31353 = p17709->p17707->p17706->p17704->a30697; /* x165433 stalin.sc:23815:827489 */ t31354 = p17709->a30704; /* x165434 stalin.sc:23815:827492 */ t31355 = p17709->p17707->p17706->p17704->a30698; /* x165431 stalin.sc:23815:827478 */ t31352 = f14485(t31353, t31354, t31355); /* x165427 stalin.sc:23815:827451 */ t31346 = f14753(t31349, t31350, t31351, t31352); /* x165426 stalin.sc:23815:827446 */ t31347 = *((struct w49 *)(&t31346)); t31348 = (struct structure_type24753 *)NULL_TYPE; t31343 = f13625(t31347, t31348); /* x165442 stalin.sc:23816:827502 */ /* x165439 stalin.sc:23816:827511 */ t31356 = p17709->p17707->p17706->p17704->a30697; /* x165440 stalin.sc:23816:827514 */ t31357 = a30705; /* x165441 stalin.sc:23816:827517 */ t31358 = p17709->p17707->p17706->p17704->a30700; /* x165438 stalin.sc:23816:827503 */ t31344 = f14485(t31356, t31357, t31358); /* x165423 stalin.sc:23812:827407 */ t31345.tag = STRUCTURE_TYPE24753; t31345.value.structure_type24753 = t31343; t31273 = f15512(t31341, t31342, t31345, t31344); /* x165422 stalin.sc:23800:827023 */ /* x165365 stalin.sc:23800:827030 */ if (a707==FALSE_TYPE) goto l4391; /* x165417 */ /* x165416 */ t31304 = p17709; p17710 = t31304; /* x165415 */ /* x165414 stalin.sc:23801:827050 */ /* x165405 stalin.sc:23801:827056 */ if (a705==FALSE_TYPE) goto l4394; /* x165411 */ /* x165410 */ t31337 = p17710->p17707->p17706->p17704; p17712 = t31337; /* x165409 stalin.sc:23802:827079 */ /* x165407 stalin.sc:23803:827099 */ t31338 = p17712->a30686; /* x165408 stalin.sc:23803:827101 */ t31339 = "Safe exact arithmetic is not (yet) implemented"; /* x165406 stalin.sc:23802:827080 */ t31340.tag = STRUCTURE_TYPE27745; t31340.value.structure_type27745 = t31338; f9707(t31340, t31339); goto l4395; l4394: /* x165413 stalin.sc:23801:827050 */ /* x165412 stalin.sc:23801:827050 */ l4395: /* x165404 */ t31305 = p17710; p17711 = t31305; /* x165403 stalin.sc:23804:827155 */ /* x165394 stalin.sc:23804:827161 */ /* x165393 stalin.sc:23806:827207 */ /* x165387 stalin.sc:23806:827212 */ /* x165381 stalin.sc:23806:827217 */ /* x165378 stalin.sc:23806:827226 */ t31324 = p17711->p17707->p17706->p17704->a30697; /* x165379 stalin.sc:23806:827229 */ t31325 = p17711->a30704; /* x165380 stalin.sc:23806:827232 */ t31326 = p17711->p17707->p17706->p17704->a30698; /* x165377 stalin.sc:23806:827218 */ t31322 = f14485(t31324, t31325, t31326); /* x165386 stalin.sc:23806:827236 */ /* x165383 stalin.sc:23806:827245 */ t31327 = p17711->p17707->p17706->p17704->a30699; /* x165384 stalin.sc:23806:827248 */ t31328 = a30705; /* x165385 stalin.sc:23806:827251 */ t31329 = p17711->p17707->p17706->p17704->a30700; /* x165382 stalin.sc:23806:827237 */ t31323 = f14485(t31327, t31328, t31329); /* x165376 stalin.sc:23806:827213 */ t31320 = f13609(t31322, t31323); /* x165392 stalin.sc:23807:827264 */ /* x165389 stalin.sc:23807:827285 */ t31330 = p17711->p17707->p17706->p17704->a30695; /* x165390 stalin.sc:23807:827288 */ t31331 = p17711->p17707->p17706->a30702; /* x165391 stalin.sc:23807:827291 */ t31332 = p17711->p17707->p17706->p17704->a30696; /* x165388 stalin.sc:23807:827265 */ t31321 = f14751(t31330, t31331, t31332); /* x165375 stalin.sc:23806:827208 */ t31313 = f13604(t31320, t31321); /* x165374 stalin.sc:23805:827178 */ /* x165373 stalin.sc:23805:827184 */ /* x165370 stalin.sc:23805:827193 */ t31317 = p17711->p17707->p17706->p17704->a30699; /* x165371 stalin.sc:23805:827196 */ t31318 = a30705; /* x165372 stalin.sc:23805:827199 */ t31319 = p17711->p17707->p17706->p17704->a30700; /* x165369 stalin.sc:23805:827185 */ t31316 = f14485(t31317, t31318, t31319); /* x165368 stalin.sc:23805:827179 */ t31312 = f13602(t31316); /* x165367 stalin.sc:23804:827162 */ t31315.tag = STRUCTURE_TYPE24753; t31315.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31315.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23804, 827161); out_of_memory_error();} t31315.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t31315.value.structure_type24753->s0.value.structure_type24753 = t31313; t31315.value.structure_type24753->s1.tag = NULL_TYPE; t31314 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t31314==NULL) {backtrace("stalin.sc", 23804, 827161); out_of_memory_error();} t31314->s0.tag = STRUCTURE_TYPE24753; t31314->s0.value.structure_type24753 = t31312; t31314->s1 = t31315; t31306 = f13556(t31314); /* x165399 stalin.sc:23808:827306 */ /* x165396 stalin.sc:23808:827321 */ t31333 = "make_displaced_vector5"; /* x165397 stalin.sc:23808:827346 */ t31334 = p17711->p17707->p17706->p17704->a30686; /* x165398 stalin.sc:23808:827348 */ /* x165395 stalin.sc:23808:827307 */ t31335.tag = STRUCTURE_TYPE27745; t31335.value.structure_type27745 = t31334; t31336 = FALSE_TYPE; t31307 = f15534(t31333, t31335, t31336); /* x165401 stalin.sc:23809:827361 */ /* x165400 stalin.sc:23809:827362 */ /* x276509 stalin.sc:14693:514793 */ t31308 = ""; /* x165402 stalin.sc:23810:827379 */ /* x165366 stalin.sc:23804:827156 */ t31309.tag = STRUCTURE_TYPE24753; t31309.value.structure_type24753 = t31307; t31310.tag = STRING_TYPE; t31310.value.string_type = t31308; t31311 = FALSE_TYPE; t31272 = f13672(t31306, t31309, t31310, t31311); goto l4392; l4391: /* x165421 */ /* x165420 */ /* x165419 stalin.sc:23811:827392 */ /* x165418 stalin.sc:23811:827393 */ /* x276511 stalin.sc:14693:514793 */ t31272.tag = STRING_TYPE; t31272.value.string_type = ""; l4392: /* x165364 stalin.sc:23792:826780 */ /* x165330 stalin.sc:23792:826784 */ if (a707==FALSE_TYPE) goto l4388; /* x165361 stalin.sc:23793:826808 */ /* x165352 stalin.sc:23793:826814 */ /* x165351 stalin.sc:23795:826868 */ /* x165345 stalin.sc:23795:826874 */ /* x165342 stalin.sc:23795:826883 */ t31294 = p17709->p17707->p17706->p17704->a30697; /* x165343 stalin.sc:23795:826886 */ t31295 = p17709->a30704; /* x165344 stalin.sc:23795:826889 */ t31296 = p17709->p17707->p17706->p17704->a30698; /* x165341 stalin.sc:23795:826875 */ t31292 = f14485(t31294, t31295, t31296); /* x165350 stalin.sc:23795:826893 */ /* x165347 stalin.sc:23795:826914 */ t31297 = p17709->p17707->p17706->p17704->a30695; /* x165348 stalin.sc:23795:826917 */ t31298 = p17709->p17707->p17706->a30702; /* x165349 stalin.sc:23795:826920 */ t31299 = p17709->p17707->p17706->p17704->a30696; /* x165346 stalin.sc:23795:826894 */ t31293 = f14751(t31297, t31298, t31299); /* x165340 stalin.sc:23795:826869 */ t31285 = f13608(t31292, t31293); /* x165339 stalin.sc:23794:826835 */ /* x165338 stalin.sc:23794:826841 */ /* x165335 stalin.sc:23794:826850 */ t31289 = p17709->p17707->p17706->p17704->a30697; /* x165336 stalin.sc:23794:826853 */ t31290 = p17709->a30704; /* x165337 stalin.sc:23794:826856 */ t31291 = p17709->p17707->p17706->p17704->a30698; /* x165334 stalin.sc:23794:826842 */ t31288 = f14485(t31289, t31290, t31291); /* x165333 stalin.sc:23794:826836 */ t31284 = f13602(t31288); /* x165332 stalin.sc:23793:826815 */ t31287.tag = STRUCTURE_TYPE24753; t31287.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31287.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23793, 826814); out_of_memory_error();} t31287.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t31287.value.structure_type24753->s0.value.structure_type24753 = t31285; t31287.value.structure_type24753->s1.tag = NULL_TYPE; t31286 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t31286==NULL) {backtrace("stalin.sc", 23793, 826814); out_of_memory_error();} t31286->s0.tag = STRUCTURE_TYPE24753; t31286->s0.value.structure_type24753 = t31284; t31286->s1 = t31287; t31278 = f13556(t31286); /* x165357 stalin.sc:23796:826932 */ /* x165354 stalin.sc:23796:826947 */ t31300 = "make_displaced_vector4"; /* x165355 stalin.sc:23796:826972 */ t31301 = p17709->p17707->p17706->p17704->a30686; /* x165356 stalin.sc:23796:826974 */ /* x165353 stalin.sc:23796:826933 */ t31302.tag = STRUCTURE_TYPE27745; t31302.value.structure_type27745 = t31301; t31303 = FALSE_TYPE; t31279 = f15534(t31300, t31302, t31303); /* x165359 stalin.sc:23797:826984 */ /* x165358 stalin.sc:23797:826985 */ /* x276505 stalin.sc:14693:514793 */ t31280 = ""; /* x165360 stalin.sc:23798:826999 */ /* x165331 stalin.sc:23793:826809 */ t31281.tag = STRUCTURE_TYPE24753; t31281.value.structure_type24753 = t31279; t31282.tag = STRING_TYPE; t31282.value.string_type = t31280; t31283 = FALSE_TYPE; t31271 = f13672(t31278, t31281, t31282, t31283); goto l4389; l4388: /* x165363 stalin.sc:23799:827010 */ /* x165362 stalin.sc:23799:827011 */ /* x276507 stalin.sc:14693:514793 */ t31271.tag = STRING_TYPE; t31271.value.string_type = ""; l4389: /* x165329 stalin.sc:23791:826761 */ t31277.tag = STRUCTURE_TYPE24753; t31277.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31277.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23791, 826760); out_of_memory_error();} t31277.value.structure_type24753->s0 = t31273; t31277.value.structure_type24753->s1.tag = NULL_TYPE; t31276.tag = STRUCTURE_TYPE24753; t31276.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31276.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23791, 826760); out_of_memory_error();} t31276.value.structure_type24753->s0 = t31272; t31276.value.structure_type24753->s1 = t31277; a41792 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41792==NULL) {backtrace("stalin.sc", 23791, 826760); out_of_memory_error();} a41792->s0 = t31271; a41792->s1 = t31276; /* x301280 stalin.sc:14400:506485 */ /* x301279 stalin.sc:14400:506503 */ t31274 = a41792; /* x301278 stalin.sc:14400:506486 */ t31275.tag = STRUCTURE_TYPE24753; t31275.value.structure_type24753 = t31274; return f13492(t31275);} /* [inside top level 17708] */ struct w49 f17708(void) {struct p17707 *p17708 = d17708; struct w49 a30704 = b30704; /* U2 */ struct w49 t31359; struct structure_type27501 *t31360; struct w49 t31361; struct p17708 *t31362; struct p17704 *t31363; struct p17708 *e17708; e17708 = (struct p17708 *)GC_malloc(sizeof(struct p17708)); if (e17708==NULL) {backtrace("stalin.sc", 23784, 826686); out_of_memory_error();} e17708->p17707 = p17708; e17708->a30704 = a30704; /* x165452 stalin.sc:23785:826706 */ /* x165325 stalin.sc:23786:826720 */ /* x165326 stalin.sc:23787:826734 */ t31359 = p17708->p17706->p17704->a30700; /* x165327 stalin.sc:23788:826738 */ t31360 = p17708->p17706->p17704->a30685; /* x165328 stalin.sc:23789:826741 */ t31361 = p17708->p17706->p17704->a30699; /* x165445 stalin.sc:23790:826745 */ t31362 = e17708; /* x165451 stalin.sc:23817:827525 */ t31363 = p17708->p17706->p17704; /* x165324 stalin.sc:23785:826707 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t31359; b26113 = t31360; b26114 = t31361; b26115.tag = NATIVE_PROCEDURE_TYPE21985; b26115.value.native_procedure_type21985 = t31362; b26116.tag = NATIVE_PROCEDURE_TYPE21984; b26116.value.native_procedure_type21984 = t31363; return f14692();} /* [inside top level 17706] */ struct w49 f17706(void) {struct p17705 *p17706 = d17706; struct w49 a30702 = b30702; /* U1 */ struct w49 a30703; /* U */ struct p17706 *t31364; struct w49 t31365; struct w49 t31366; struct structure_type27501 *t31367; struct w49 t31368; struct p17707 *t31369; struct p17704 *t31370; struct p17706 *t31371; struct w49 t31372; struct w211113 t31373; struct p17706 *e17706; struct p17707 *e17707; struct p17706 *p17707; e17706 = (struct p17706 *)GC_malloc(sizeof(struct p17706)); if (e17706==NULL) {backtrace("stalin.sc", 23773, 826438); out_of_memory_error();} e17706->p17704 = p17706->p17704; e17706->a30702 = a30702; /* x165477 stalin.sc:23774:826455 */ /* x165476 stalin.sc:23774:826464 */ /* x165474 stalin.sc:23775:826488 */ t31371 = e17706; /* x165475 stalin.sc:23778:826612 */ t31372 = p17706->a30701; /* x165462 stalin.sc:23774:826465 */ t31373.tag = NATIVE_PROCEDURE_TYPE21980; t31373.value.native_procedure_type21980 = t31371; t31365 = f8157(t31373, t31372); /* x165461 */ t31364 = e17706; p17707 = t31364; a30703 = t31365; e17707 = (struct p17707 *)GC_malloc(sizeof(struct p17707)); if (e17707==NULL) {backtrace_internal("[inside top level 17706]"); out_of_memory_error();} e17707->p17706 = p17707; e17707->a30703 = a30703; /* x165460 stalin.sc:23779:826622 */ /* x165320 stalin.sc:23780:826641 */ /* x165321 stalin.sc:23781:826660 */ t31366 = p17707->p17704->a30698; /* x165322 stalin.sc:23782:826669 */ t31367 = p17707->p17704->a30685; /* x165323 stalin.sc:23783:826677 */ t31368 = p17707->p17704->a30697; /* x165453 stalin.sc:23784:826686 */ t31369 = e17707; /* x165459 stalin.sc:23818:827593 */ t31370 = p17707->p17704; /* x165319 stalin.sc:23779:826623 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t31366; b26113 = t31367; b26114 = t31368; b26115.tag = NATIVE_PROCEDURE_TYPE21983; b26115.value.native_procedure_type21983 = t31369; b26116.tag = NATIVE_PROCEDURE_TYPE21982; b26116.value.native_procedure_type21982 = t31370; return f14692();} /* [inside top level 17697] */ struct structure_type24753 *f17697(void) {struct structure_type24753 *a34954; /* OBJS */ struct w49 t31374; struct w49 t31375; /* x165289 stalin.sc:23759:826133 */ /* x165288 stalin.sc:23759:826165 */ /* x165287 stalin.sc:23759:826152 */ /* x165286 stalin.sc:23759:826139 */ /* x165285 stalin.sc:23759:826134 */ t31375.tag = STRUCTURE_TYPE24753; t31375.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31375.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23759, 826133); out_of_memory_error();} t31375.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7430; t31375.value.structure_type24753->s1.tag = NULL_TYPE; t31374.tag = STRUCTURE_TYPE24753; t31374.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31374.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23759, 826133); out_of_memory_error();} t31374.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7430; t31374.value.structure_type24753->s1 = t31375; a34954 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34954==NULL) {backtrace("stalin.sc", 23759, 826133); out_of_memory_error();} a34954->s0.tag = NATIVE_PROCEDURE_TYPE7406; a34954->s1 = t31374; /* x271915 */ return a34954;} /* [inside top level 17696] */ struct structure_type24753 *f17696(void) {struct structure_type24753 *a35038; /* OBJS */ struct w49 t31376; struct w49 t31377; /* x165283 stalin.sc:23758:826086 */ /* x165282 stalin.sc:23758:826118 */ /* x165281 stalin.sc:23758:826105 */ /* x165280 stalin.sc:23758:826092 */ /* x165279 stalin.sc:23758:826087 */ t31377.tag = STRUCTURE_TYPE24753; t31377.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31377.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23758, 826086); out_of_memory_error();} t31377.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7430; t31377.value.structure_type24753->s1.tag = NULL_TYPE; t31376.tag = STRUCTURE_TYPE24753; t31376.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31376.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23758, 826086); out_of_memory_error();} t31376.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7430; t31376.value.structure_type24753->s1 = t31377; a35038 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35038==NULL) {backtrace("stalin.sc", 23758, 826086); out_of_memory_error();} a35038->s0.tag = NATIVE_PROCEDURE_TYPE7406; a35038->s1 = t31376; /* x272083 */ return a35038;} /* [inside top level 17695] */ struct p16292 *f17695(void) {unsigned t31378; unsigned t31379; /* x165277 stalin.sc:23757:826010 */ /* x165274 stalin.sc:23757:826045 */ /* x165275 stalin.sc:23757:826058 */ /* x165276 stalin.sc:23757:826071 */ /* x165273 stalin.sc:23757:826011 */ t31378 = NATIVE_PROCEDURE_TYPE7406; t31379 = NATIVE_PROCEDURE_TYPE7430; return f16292(t31378, t31379);} /* [inside top level 17693] */ struct structure_type24753 *f17693(struct p17673 *p17693, unsigned a30654) {char *t31380; struct structure_type27745 *t31381; unsigned t31382; struct w49 t31383; /* x165223 stalin.sc:23753:825888 */ /* x165220 stalin.sc:23753:825903 */ t31380 = "make_vector"; /* x165221 stalin.sc:23753:825917 */ t31381 = p17693->a30624; /* x165222 stalin.sc:23753:825919 */ t31382 = a30654; /* x165219 stalin.sc:23753:825889 */ t31383.tag = STRUCTURE_TYPE27745; t31383.value.structure_type27745 = t31381; return f15534(t31380, t31383, t31382);} /* [inside top level 17689] */ struct w49 f17689(struct p17688 *p17689) {struct structure_type24753 *a30650; /* T */ struct structure_type24753 *a34908; /* OBJS */ struct w49 a37501; /* S */ struct w49 a37502; /* S */ struct structure_type24753 *a41781; /* CS */ struct p17688 *t31384; struct structure_type24753 *t31385; struct p17688 *t31386; struct w49 t31387; struct w49 t31388; struct structure_type24753 *t31389; struct w49 t31390; struct w49 t31391; struct structure_type24753 *t31392; struct structure_type24753 *t31393; struct structure_type24753 *t31394; struct w49 t31395; struct structure_type24753 *t31396; struct structure_type24753 *t31397; struct w49 t31398; struct w49 t31399; struct w60864 t31400; struct w49 t31401; struct structure_type24753 *t31402; struct w49 t31403; struct w49 t31404; struct w49 t31405; char *t31406; struct w49 t31407; struct structure_type24753 *t31408; struct structure_type24753 *t31409; struct w49 t31410; struct w49 t31411; struct w60864 t31412; struct w49 t31413; struct structure_type24753 *t31414; struct w49 t31415; struct w49 t31416; struct w49 t31417; struct w49 t31418; struct w49 t31419; struct w49 t31420; struct w49 t31421; struct structure_type24753 *t31422; struct w61020 t31423; struct structure_type27501 *t31424; struct w49 t31425; struct w49 t31426; struct w12218 t31427; struct w49 t31428; struct structure_type24753 *t31429; struct w49 t31430; struct w49 t31431; struct w49 t31432; struct structure_type24753 *t31433; struct w49 t31434; struct structure_type24753 *t31435; struct w49 t31436; struct structure_type27501 *t31437; struct w12218 t31438; unsigned t31439; int t31440; struct structure_type24753 *t31441; char *t31442; struct structure_type24753 *t31443; struct structure_type24753 *t31444; struct w49 t31445; struct w49 t31446; struct w49 t31447; struct w49 t31448; struct w49 t31449; struct structure_type24753 *t31450; struct w49 t31451; struct w49 t31452; struct w49 t31453; struct structure_type24753 *t31454; struct w49 t31455; unsigned t31456; struct p17688 *p17690; struct p17688 *p17691; /* x165207 stalin.sc:23731:825202 */ /* x165206 stalin.sc:23731:825211 */ /* x165205 stalin.sc:23731:825216 */ t31456 = a860; /* x165204 stalin.sc:23731:825212 */ t31385 = f14288(t31456); /* x165203 */ t31384 = p17689; p17690 = t31384; a30650 = t31385; /* x165202 */ /* x165184 stalin.sc:23732:825231 */ /* x165183 stalin.sc:23732:825242 */ /* x165181 stalin.sc:23732:825245 */ t31439 = a860; /* x165182 stalin.sc:23732:825250 */ t31440 = 1; /* x268096 stalin.sc:23732:825243 */ if (!((t31439&1)==1)) {backtrace("stalin.sc", 23732, 825242); plus_error();} a860 = (((unsigned)(((int)(((int)t31439)>>1))+t31440))<<1)+1; /* x165201 stalin.sc:23733:825261 */ /* x165200 stalin.sc:23735:825331 */ /* x165199 stalin.sc:23740:825467 */ /* x165198 stalin.sc:23737:825368 */ /* x165197 stalin.sc:23738:825393 */ /* x165193 stalin.sc:23738:825405 */ /* x165192 stalin.sc:23738:825433 */ t31452 = p17690->p17686->a30647; /* x165191 stalin.sc:23738:825406 */ a37502 = t31452; /* x282677 */ /* x282676 */ t31453 = a37502; /* x282675 */ if (!((t31453.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32419]"); structure_ref_error();} t31449 = t31453.value.structure_type27761->s0; /* x165196 stalin.sc:23739:825442 */ /* x165195 stalin.sc:23739:825455 */ t31454 = a30650; /* x165194 stalin.sc:23739:825443 */ t31455.tag = STRUCTURE_TYPE24753; t31455.value.structure_type24753 = t31454; t31450 = f13516(t31455); /* x165190 stalin.sc:23738:825394 */ t31451.tag = STRUCTURE_TYPE24753; t31451.value.structure_type24753 = t31450; t31448 = f14414(t31449, t31451); /* x165189 stalin.sc:23737:825369 */ t31444 = f13514(t31448); /* x165188 stalin.sc:23736:825359 */ t31443 = a30650; /* x165187 stalin.sc:23735:825337 */ t31442 = q199; /* x165186 stalin.sc:23735:825332 */ t31447.tag = STRUCTURE_TYPE24753; t31447.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31447.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23735, 825331); out_of_memory_error();} t31447.value.structure_type24753->s0.tag = FALSE_TYPE; t31447.value.structure_type24753->s1.tag = NULL_TYPE; t31446.tag = STRUCTURE_TYPE24753; t31446.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31446.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23735, 825331); out_of_memory_error();} t31446.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t31446.value.structure_type24753->s0.value.structure_type24753 = t31444; t31446.value.structure_type24753->s1 = t31447; t31445.tag = STRUCTURE_TYPE24753; t31445.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31445.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23735, 825331); out_of_memory_error();} t31445.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t31445.value.structure_type24753->s0.value.structure_type24753 = t31443; t31445.value.structure_type24753->s1 = t31446; a34908 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34908==NULL) {backtrace("stalin.sc", 23735, 825331); out_of_memory_error();} a34908->s0.tag = EXTERNAL_SYMBOL_TYPE; a34908->s0.value.external_symbol_type = t31442; a34908->s1 = t31445; /* x271823 */ t31441 = a34908; /* x165185 stalin.sc:23733:825262 */ f13469(t31441); /* x165179 */ t31386 = p17690; p17691 = t31386; /* x165178 stalin.sc:23741:825479 */ /* x165177 stalin.sc:23750:825792 */ /* x165176 stalin.sc:23750:825808 */ t31437 = p17691->p17686->p17685->p17684->p17673->a30623; /* x165175 stalin.sc:23750:825793 */ /* MOVE: branching squeezed to general */ if (t31437>=((struct structure_type27501 *)VALUE_OFFSET)) {t31438.tag = STRUCTURE_TYPE27501; t31438.value.structure_type27501 = t31437;} else t31438.tag = (unsigned)t31437; t31388 = f15342(t31438); /* x165174 stalin.sc:23742:825504 */ /* x165141 stalin.sc:23742:825511 */ /* x165131 stalin.sc:23742:825516 */ t31396 = a30650; /* x165140 stalin.sc:23742:825518 */ /* x165139 stalin.sc:23742:825523 */ /* x165134 stalin.sc:23742:825541 */ t31403 = p17691->p17686->p17685->p17684->a30645; /* x165135 stalin.sc:23742:825543 */ t31404 = p17691->p17686->a30647; /* x165136 stalin.sc:23742:825545 */ t31405 = p17691->p17686->p17685->a30646; /* x165138 stalin.sc:23742:825547 */ /* x165137 stalin.sc:23742:825548 */ /* x276895 stalin.sc:14555:511005 */ t31406 = "0"; /* x165133 stalin.sc:23742:825524 */ t31407.tag = STRING_TYPE; t31407.value.string_type = t31406; t31400 = f14753(t31403, t31404, t31405, t31407); /* x165132 stalin.sc:23742:825519 */ t31401 = *((struct w49 *)(&t31400)); t31402 = (struct structure_type24753 *)NULL_TYPE; t31397 = f13625(t31401, t31402); /* x165130 stalin.sc:23742:825512 */ t31398.tag = STRUCTURE_TYPE24753; t31398.value.structure_type24753 = t31396; t31399.tag = STRUCTURE_TYPE24753; t31399.value.structure_type24753 = t31397; t31392 = f13542(t31398, t31399); /* x165156 stalin.sc:23743:825564 */ /* x165143 stalin.sc:23743:825569 */ t31408 = a30650; /* x165155 stalin.sc:23743:825571 */ /* x165154 stalin.sc:23743:825576 */ /* x165146 stalin.sc:23743:825594 */ t31415 = p17691->p17686->p17685->p17684->a30645; /* x165147 stalin.sc:23743:825596 */ t31416 = p17691->p17686->a30647; /* x165148 stalin.sc:23743:825598 */ t31417 = p17691->p17686->p17685->a30646; /* x165153 stalin.sc:23743:825600 */ /* x165150 stalin.sc:23743:825609 */ t31419 = p17691->p17686->p17685->p17684->p17673->a30633; /* x165151 stalin.sc:23743:825612 */ t31420 = p17691->a30648; /* x165152 stalin.sc:23743:825615 */ t31421 = p17691->p17686->p17685->p17684->p17673->a30634; /* x165149 stalin.sc:23743:825601 */ t31418 = f14485(t31419, t31420, t31421); /* x165145 stalin.sc:23743:825577 */ t31412 = f14753(t31415, t31416, t31417, t31418); /* x165144 stalin.sc:23743:825572 */ t31413 = *((struct w49 *)(&t31412)); t31414 = (struct structure_type24753 *)NULL_TYPE; t31409 = f13625(t31413, t31414); /* x165142 stalin.sc:23743:825565 */ t31410.tag = STRUCTURE_TYPE24753; t31410.value.structure_type24753 = t31408; t31411.tag = STRUCTURE_TYPE24753; t31411.value.structure_type24753 = t31409; t31393 = f13601(t31410, t31411); /* x165159 stalin.sc:23744:825630 */ /* x165158 stalin.sc:23744:825636 */ t31422 = a30650; /* x165157 stalin.sc:23744:825631 */ t31423.tag = STRUCTURE_TYPE24753; t31423.value.structure_type24753 = t31422; t31394 = f13633(t31423); /* x165173 stalin.sc:23745:825647 */ /* x165170 stalin.sc:23745:825653 */ /* x165164 stalin.sc:23746:825685 */ /* x165163 stalin.sc:23746:825713 */ t31431 = p17691->p17686->a30647; /* x165162 stalin.sc:23746:825686 */ a37501 = t31431; /* x282673 */ /* x282672 */ t31432 = a37501; /* x282671 */ if (!((t31432.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32418]"); structure_ref_error();} t31428 = t31432.value.structure_type27761->s0; /* x165169 stalin.sc:23747:825724 */ /* x165168 stalin.sc:23747:825744 */ /* x165167 stalin.sc:23747:825757 */ t31435 = a30650; /* x165166 stalin.sc:23747:825745 */ t31436.tag = STRUCTURE_TYPE24753; t31436.value.structure_type24753 = t31435; t31433 = f13516(t31436); /* x165165 stalin.sc:23747:825725 */ t31434.tag = STRUCTURE_TYPE24753; t31434.value.structure_type24753 = t31433; t31429 = f13513(t31434); /* x165161 stalin.sc:23745:825654 */ t31430.tag = STRUCTURE_TYPE24753; t31430.value.structure_type24753 = t31429; t31424 = f7025(t31428, t31430); /* x165171 stalin.sc:23748:825769 */ t31425 = p17691->p17686->p17685->p17684->p17673->a30635; /* x165172 stalin.sc:23749:825779 */ t31426 = p17691->p17686->p17685->p17684->p17673->a30636; /* x165160 stalin.sc:23745:825648 */ t31427.tag = STRUCTURE_TYPE27501; t31427.value.structure_type27501 = t31424; t31395 = f15496(t31427, t31425, t31426); /* x165129 stalin.sc:23742:825505 */ t31387 = f13671(t31392, t31393, t31394, t31395); /* x165128 stalin.sc:23741:825480 */ t31391.tag = STRUCTURE_TYPE24753; t31391.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31391.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23741, 825479); out_of_memory_error();} t31391.value.structure_type24753->s0 = t31388; t31391.value.structure_type24753->s1.tag = NULL_TYPE; a41781 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41781==NULL) {backtrace("stalin.sc", 23741, 825479); out_of_memory_error();} a41781->s0 = t31387; a41781->s1 = t31391; /* x301236 stalin.sc:14400:506485 */ /* x301235 stalin.sc:14400:506503 */ t31389 = a41781; /* x301234 stalin.sc:14400:506486 */ t31390.tag = STRUCTURE_TYPE24753; t31390.value.structure_type24753 = t31389; return f13492(t31390);} /* [inside top level 17688] */ struct w49 f17688(struct p17686 *p17688, struct w49 a30648) {struct w49 a37515; /* S */ struct structure_type24753 *a41793; /* CS */ struct w49 t31457; struct w49 t31458; struct structure_type24753 *t31459; struct w49 t31460; struct w49 t31461; struct w49 t31462; struct w49 t31463; struct w49 t31464; struct w49 t31465; struct structure_type27745 *t31466; struct w49 t31467; struct w49 t31468; struct w49 t31469; int t31470; int t31471; struct w49 t31472; struct w49 t31473; struct w49 t31474; struct w49 t31475; struct structure_type27501 *t31476; struct w12218 t31477; struct w49 t31478; struct structure_type27501 *t31479; struct w49 t31480; struct p17688 *t31481; struct p17688 *e17688; e17688 = (struct p17688 *)alloca(sizeof(struct p17688)); if (e17688==NULL) {backtrace("stalin.sc", 23720, 824936); out_of_memory_error();} e17688->p17686 = p17688; e17688->a30648 = a30648; /* x165217 stalin.sc:23721:824955 */ /* x165216 stalin.sc:23723:825046 */ /* x165122 stalin.sc:23723:825050 */ /* x165113 stalin.sc:23723:825055 */ /* x165111 stalin.sc:23723:825058 */ /* x165110 stalin.sc:23723:825066 */ t31472 = p17688->p17685->p17684->p17673->a30627; /* x165109 stalin.sc:23723:825059 */ t31470 = f26227(t31472); /* x165112 stalin.sc:23723:825070 */ t31471 = 2; /* x268098 stalin.sc:23723:825056 */ if (!(t31470==t31471)) goto l4397; /* x165120 */ /* x165119 stalin.sc:23724:825080 */ /* x165118 stalin.sc:23724:825093 */ /* x165117 stalin.sc:23724:825121 */ t31474 = p17688->a30647; /* x165116 stalin.sc:23724:825094 */ a37515 = t31474; /* x282729 */ /* x282728 */ t31475 = a37515; /* x282727 */ if (!((t31475.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32432]"); structure_ref_error();} t31473 = t31475.value.structure_type27761->s0; /* x165115 stalin.sc:23724:825081 */ if (!(f8793(t31473)==FALSE_TYPE)) goto l4397; /* x165212 stalin.sc:23725:825131 */ /* x165124 stalin.sc:23726:825149 */ /* x165125 stalin.sc:23727:825160 */ t31478 = p17688->p17685->p17684->p17673->a30636; /* x165126 stalin.sc:23728:825168 */ t31479 = p17688->p17685->p17684->p17673->a30623; /* x165127 stalin.sc:23729:825175 */ t31480 = p17688->p17685->p17684->p17673->a30635; /* x165208 stalin.sc:23730:825183 */ t31481 = e17688; /* x165211 stalin.sc:23751:825819 */ /* x165123 stalin.sc:23725:825132 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7404; b26112 = t31478; b26113 = t31479; b26114 = t31480; b26115.tag = NATIVE_PROCEDURE_TYPE23298; b26115.value.native_procedure_type23298 = t31481; b26116.tag = NATIVE_PROCEDURE_TYPE23297; t31458 = f14692(); goto l4398; l4397: /* x165215 stalin.sc:23752:825848 */ /* x165214 stalin.sc:23752:825864 */ t31476 = p17688->p17685->p17684->p17673->a30623; /* x165213 stalin.sc:23752:825849 */ /* MOVE: branching squeezed to general */ if (t31476>=((struct structure_type27501 *)VALUE_OFFSET)) {t31477.tag = STRUCTURE_TYPE27501; t31477.value.structure_type27501 = t31476;} else t31477.tag = (unsigned)t31476; t31458 = f15342(t31477); l4398: /* x165107 stalin.sc:23722:824979 */ /* x165098 stalin.sc:23722:825011 */ t31462 = p17688->p17685->p17684->a30645; /* x165099 stalin.sc:23722:825013 */ t31463 = p17688->a30647; /* x165100 stalin.sc:23722:825015 */ t31464 = p17688->p17685->a30646; /* x165105 stalin.sc:23722:825017 */ /* x165102 stalin.sc:23722:825026 */ t31467 = p17688->p17685->p17684->p17673->a30633; /* x165103 stalin.sc:23722:825029 */ t31468 = e17688->a30648; /* x165104 stalin.sc:23722:825032 */ t31469 = p17688->p17685->p17684->p17673->a30634; /* x165101 stalin.sc:23722:825018 */ t31465 = f14485(t31467, t31468, t31469); /* x165106 stalin.sc:23722:825036 */ t31466 = p17688->p17685->p17684->p17673->a30624; /* x165097 stalin.sc:23722:824980 */ t31457 = f15621(t31462, t31463, t31464, t31465, t31466); /* x165096 stalin.sc:23721:824956 */ t31461.tag = STRUCTURE_TYPE24753; t31461.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31461.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23721, 824955); out_of_memory_error();} t31461.value.structure_type24753->s0 = t31458; t31461.value.structure_type24753->s1.tag = NULL_TYPE; a41793 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41793==NULL) {backtrace("stalin.sc", 23721, 824955); out_of_memory_error();} a41793->s0 = t31457; a41793->s1 = t31461; /* x301284 stalin.sc:14400:506485 */ /* x301283 stalin.sc:14400:506503 */ t31459 = a41793; /* x301282 stalin.sc:14400:506486 */ t31460.tag = STRUCTURE_TYPE24753; t31460.value.structure_type24753 = t31459; return f13492(t31460);} /* [inside top level 17682] */ struct structure_type24753 *f17682(struct p17673 *p17682, unsigned a30644) {char *t31482; struct structure_type27745 *t31483; unsigned t31484; struct w49 t31485; /* x165086 stalin.sc:23705:824591 */ /* x165083 stalin.sc:23705:824606 */ t31482 = "make_vector"; /* x165084 stalin.sc:23705:824620 */ t31483 = p17682->a30624; /* x165085 stalin.sc:23705:824622 */ t31484 = a30644; /* x165082 stalin.sc:23705:824592 */ t31485.tag = STRUCTURE_TYPE27745; t31485.value.structure_type27745 = t31483; return f15534(t31482, t31485, t31484);} /* [inside top level 17681] */ struct w49 f17681(struct p17673 *p17681) {struct structure_type27501 *t31486; struct w12218 t31487; /* x165080 stalin.sc:23704:824556 */ /* x165079 stalin.sc:23704:824572 */ t31486 = p17681->a30623; /* x165078 stalin.sc:23704:824557 */ /* MOVE: branching squeezed to general */ if (t31486>=((struct structure_type27501 *)VALUE_OFFSET)) {t31487.tag = STRUCTURE_TYPE27501; t31487.value.structure_type27501 = t31486;} else t31487.tag = (unsigned)t31486; return f15342(t31487);} /* [inside top level 17679] */ struct structure_type24753 *f17679(struct p17673 *p17679, unsigned a30642) {char *t31488; struct structure_type27745 *t31489; unsigned t31490; struct w49 t31491; /* x165058 stalin.sc:23698:824412 */ /* x165055 stalin.sc:23698:824427 */ t31488 = "make_vector"; /* x165056 stalin.sc:23698:824441 */ t31489 = p17679->a30624; /* x165057 stalin.sc:23698:824443 */ t31490 = a30642; /* x165054 stalin.sc:23698:824413 */ t31491.tag = STRUCTURE_TYPE27745; t31491.value.structure_type27745 = t31489; return f15534(t31488, t31491, t31490);} /* [inside top level 17678] */ struct w49 f17678(struct p17673 *p17678) {struct structure_type27501 *t31492; /* x165052 stalin.sc:23697:824380 */ /* x165051 stalin.sc:23697:824393 */ t31492 = p17678->a30623; /* x165050 stalin.sc:23697:824381 */ return f14707(t31492);} /* [inside top level 17676] */ struct structure_type24753 *f17676(struct p17673 *p17676, unsigned a30640) {char *t31493; struct structure_type27745 *t31494; unsigned t31495; struct w49 t31496; /* x165037 stalin.sc:23691:824265 */ /* x165034 stalin.sc:23691:824280 */ t31493 = "make_vector"; /* x165035 stalin.sc:23691:824294 */ t31494 = p17676->a30624; /* x165036 stalin.sc:23691:824296 */ t31495 = a30640; /* x165033 stalin.sc:23691:824266 */ t31496.tag = STRUCTURE_TYPE27745; t31496.value.structure_type27745 = t31494; return f15534(t31493, t31496, t31495);} /* [inside top level 17675] */ char *f17675(void) {/* x165031 stalin.sc:23690:824240 */ /* x165030 stalin.sc:23690:824241 */ /* x276503 stalin.sc:14693:514793 */ return "";} /* [inside top level 17656] */ struct structure_type24753 *f17656(void) {struct structure_type24753 *a34955; /* OBJS */ struct w49 t31497; /* x164896 stalin.sc:23646:822911 */ /* x164895 stalin.sc:23646:822930 */ /* x164894 stalin.sc:23646:822917 */ /* x164893 stalin.sc:23646:822912 */ t31497.tag = STRUCTURE_TYPE24753; t31497.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31497.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23646, 822911); out_of_memory_error();} t31497.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7404; t31497.value.structure_type24753->s1.tag = NULL_TYPE; a34955 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34955==NULL) {backtrace("stalin.sc", 23646, 822911); out_of_memory_error();} a34955->s0.tag = NATIVE_PROCEDURE_TYPE7430; a34955->s1 = t31497; /* x271917 */ return a34955;} /* [inside top level 17655] */ struct structure_type24753 *f17655(void) {struct structure_type24753 *a35037; /* OBJS */ struct w49 t31498; /* x164891 stalin.sc:23645:822884 */ /* x164890 stalin.sc:23645:822903 */ /* x164889 stalin.sc:23645:822890 */ /* x164888 stalin.sc:23645:822885 */ t31498.tag = STRUCTURE_TYPE24753; t31498.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31498.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23645, 822884); out_of_memory_error();} t31498.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7404; t31498.value.structure_type24753->s1.tag = NULL_TYPE; a35037 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35037==NULL) {backtrace("stalin.sc", 23645, 822884); out_of_memory_error();} a35037->s0.tag = NATIVE_PROCEDURE_TYPE7430; a35037->s1 = t31498; /* x272081 */ return a35037;} /* [inside top level 17654] */ struct p16302 *f17654(void) {unsigned t31499; unsigned t31500; /* x164886 stalin.sc:23644:822823 */ /* x164884 stalin.sc:23644:822863 */ /* x164885 stalin.sc:23644:822876 */ /* x164883 stalin.sc:23644:822824 */ t31499 = NATIVE_PROCEDURE_TYPE7430; t31500 = NATIVE_PROCEDURE_TYPE7404; return f16302(t31499, t31500);} /* [inside top level 17645] */ unsigned f17645(struct w49 a30554) {struct w49 t31501; /* x164831 stalin.sc:23633:822443 */ /* x164831 stalin.sc:23633:822443 */ /* x164830 stalin.sc:23633:822448 */ /* x164829 stalin.sc:23633:822462 */ t31501 = a30554; /* x164828 stalin.sc:23633:822449 */ if (!(f7741(t31501)==FALSE_TYPE)) goto l4401; return TRUE_TYPE; l4401: return FALSE_TYPE;} /* [inside top level 17644] */ struct structure_type24753 *f17644(void) {struct structure_type24753 *a34956; /* OBJS */ /* x164833 stalin.sc:23633:822425 */ /* x164832 stalin.sc:23633:822431 */ /* x164826 stalin.sc:23633:822426 */ a34956 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34956==NULL) {backtrace("stalin.sc", 23633, 822425); out_of_memory_error();} a34956->s0.tag = NATIVE_PROCEDURE_TYPE22487; a34956->s1.tag = NULL_TYPE; /* x271919 */ return a34956;} /* [inside top level 17641] */ struct structure_type24753 *f17641(struct p17635 *p17641, unsigned a30542) {char *t31502; struct structure_type27745 *t31503; unsigned t31504; struct w49 t31505; /* x164804 stalin.sc:23627:822262 */ /* x164801 stalin.sc:23627:822277 */ t31502 = "string_set1"; /* x164802 stalin.sc:23627:822291 */ t31503 = p17641->a30522; /* x164803 stalin.sc:23627:822293 */ t31504 = a30542; /* x164800 stalin.sc:23627:822263 */ t31505.tag = STRUCTURE_TYPE27745; t31505.value.structure_type27745 = t31503; return f15534(t31502, t31505, t31504);} /* [inside top level 17640] */ struct structure_type24753 *f17640(struct p17635 *p17640, unsigned a30541) {char *t31506; struct structure_type27745 *t31507; unsigned t31508; struct w49 t31509; /* x164796 stalin.sc:23626:822209 */ /* x164793 stalin.sc:23626:822224 */ t31506 = "string_set2"; /* x164794 stalin.sc:23626:822238 */ t31507 = p17640->a30522; /* x164795 stalin.sc:23626:822240 */ t31508 = a30541; /* x164792 stalin.sc:23626:822210 */ t31509.tag = STRUCTURE_TYPE27745; t31509.value.structure_type27745 = t31507; return f15534(t31506, t31509, t31508);} /* [inside top level 17639] */ struct structure_type24753 *f17639(struct p17635 *p17639, unsigned a30540) {char *t31510; struct structure_type27745 *t31511; unsigned t31512; struct w49 t31513; /* x164787 stalin.sc:23625:822153 */ /* x164784 stalin.sc:23625:822168 */ t31510 = "string_set3"; /* x164785 stalin.sc:23625:822182 */ t31511 = p17639->a30522; /* x164786 stalin.sc:23625:822184 */ t31512 = a30540; /* x164783 stalin.sc:23625:822154 */ t31513.tag = STRUCTURE_TYPE27745; t31513.value.structure_type27745 = t31511; return f15534(t31510, t31513, t31512);} /* [inside top level 17638] */ struct w49 f17638(struct p17637 *p17638, struct w49 a30539) {struct structure_type24753 *a41790; /* CS */ struct structure_type24753 *t31514; struct w49 t31515; struct structure_type24753 *t31516; struct w49 t31517; struct w49 t31518; struct structure_type24753 *t31519; struct w49 t31520; struct w49 t31521; struct w49 t31522; struct w49 t31523; struct w49 t31524; struct w49 t31525; struct w49 t31526; struct w49 t31527; struct w49 t31528; struct w49 t31529; struct w49 t31530; struct w49 t31531; struct structure_type27501 *t31532; struct w12218 t31533; /* x164781 stalin.sc:23621:822004 */ /* x164780 stalin.sc:23624:822114 */ /* x164779 stalin.sc:23624:822130 */ t31532 = p17638->p17636->p17635->a30521; /* x164778 stalin.sc:23624:822115 */ /* MOVE: branching squeezed to general */ if (t31532>=((struct structure_type27501 *)VALUE_OFFSET)) {t31533.tag = STRUCTURE_TYPE27501; t31533.value.structure_type27501 = t31532;} else t31533.tag = (unsigned)t31532; t31515 = f15342(t31533); /* x164777 stalin.sc:23622:822028 */ /* x164771 stalin.sc:23622:822034 */ /* x164763 stalin.sc:23622:822052 */ t31522 = p17638->p17636->p17635->a30531; /* x164764 stalin.sc:23622:822055 */ t31523 = p17638->p17636->a30537; /* x164765 stalin.sc:23622:822058 */ t31524 = p17638->p17636->p17635->a30532; /* x164770 stalin.sc:23622:822061 */ /* x164767 stalin.sc:23622:822070 */ t31526 = p17638->p17636->p17635->a30533; /* x164768 stalin.sc:23622:822073 */ t31527 = p17638->a30538; /* x164769 stalin.sc:23622:822076 */ t31528 = p17638->p17636->p17635->a30534; /* x164766 stalin.sc:23622:822062 */ t31525 = f14485(t31526, t31527, t31528); /* x164762 stalin.sc:23622:822035 */ t31519 = f14750(t31522, t31523, t31524, t31525); /* x164776 stalin.sc:23623:822087 */ /* x164773 stalin.sc:23623:822096 */ t31529 = p17638->p17636->p17635->a30535; /* x164774 stalin.sc:23623:822099 */ t31530 = a30539; /* x164775 stalin.sc:23623:822102 */ t31531 = p17638->p17636->p17635->a30536; /* x164772 stalin.sc:23623:822088 */ t31520 = f14485(t31529, t31530, t31531); /* x164761 stalin.sc:23622:822029 */ t31521.tag = STRUCTURE_TYPE24753; t31521.value.structure_type24753 = t31519; t31514 = f13637(t31521, t31520); /* x164760 stalin.sc:23621:822005 */ t31518.tag = STRUCTURE_TYPE24753; t31518.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31518.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23621, 822004); out_of_memory_error();} t31518.value.structure_type24753->s0 = t31515; t31518.value.structure_type24753->s1.tag = NULL_TYPE; a41790 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41790==NULL) {backtrace("stalin.sc", 23621, 822004); out_of_memory_error();} a41790->s0.tag = STRUCTURE_TYPE24753; a41790->s0.value.structure_type24753 = t31514; a41790->s1 = t31518; /* x301272 stalin.sc:14400:506485 */ /* x301271 stalin.sc:14400:506503 */ t31516 = a41790; /* x301270 stalin.sc:14400:506486 */ t31517.tag = STRUCTURE_TYPE24753; t31517.value.structure_type24753 = t31516; return f13492(t31517);} /* [inside top level 17637] */ struct w49 f17637(struct p17636 *p17637, struct w49 a30538) {struct structure_type24753 *a41831; /* CS */ struct w49 t31534; struct w49 t31535; struct structure_type24753 *t31536; struct w49 t31537; struct w49 t31538; struct structure_type24753 *t31539; struct structure_type24753 *t31540; char *t31541; struct w49 t31542; struct w49 t31543; unsigned t31544; struct structure_type24753 *t31545; struct structure_type24753 *t31546; struct structure_type24753 *t31547; struct w49 t31548; struct w49 t31549; struct w49 t31550; struct w49 t31551; struct w49 t31552; struct w49 t31553; struct structure_type24753 *t31554; struct w49 t31555; struct w49 t31556; struct w49 t31557; struct w49 t31558; struct w49 t31559; struct w49 t31560; struct w49 t31561; char *t31562; struct structure_type27745 *t31563; struct w49 t31564; unsigned t31565; struct w49 t31566; struct structure_type27501 *t31567; struct w49 t31568; struct p17637 *t31569; struct p17635 *t31570; struct p17637 *e17637; e17637 = (struct p17637 *)alloca(sizeof(struct p17637)); if (e17637==NULL) {backtrace("stalin.sc", 23606, 821685); out_of_memory_error();} e17637->p17636 = p17637; e17637->a30538 = a30538; /* x164790 stalin.sc:23607:821703 */ /* x164789 stalin.sc:23616:821933 */ /* x164756 stalin.sc:23616:821946 */ /* x164757 stalin.sc:23617:821962 */ t31566 = p17637->p17635->a30536; /* x164758 stalin.sc:23618:821970 */ t31567 = p17637->p17635->a30521; /* x164759 stalin.sc:23619:821977 */ t31568 = p17637->p17635->a30535; /* x164782 stalin.sc:23620:821985 */ t31569 = e17637; /* x164788 stalin.sc:23625:822140 */ t31570 = p17637->p17635; /* x164755 stalin.sc:23616:821934 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7431; b26112 = t31566; b26113 = t31567; b26114 = t31568; b26115.tag = NATIVE_PROCEDURE_TYPE22105; b26115.value.native_procedure_type22105 = t31569; b26116.tag = NATIVE_PROCEDURE_TYPE22104; b26116.value.native_procedure_type22104 = t31570; t31535 = f14692(); /* x164754 stalin.sc:23608:821726 */ /* x164720 stalin.sc:23608:821730 */ if (a707==FALSE_TYPE) goto l4404; /* x164751 stalin.sc:23609:821750 */ /* x164742 stalin.sc:23609:821756 */ /* x164741 stalin.sc:23611:821802 */ /* x164735 stalin.sc:23611:821808 */ /* x164732 stalin.sc:23611:821817 */ t31556 = p17637->p17635->a30533; /* x164733 stalin.sc:23611:821820 */ t31557 = e17637->a30538; /* x164734 stalin.sc:23611:821823 */ t31558 = p17637->p17635->a30534; /* x164731 stalin.sc:23611:821809 */ t31553 = f14485(t31556, t31557, t31558); /* x164740 stalin.sc:23611:821827 */ /* x164737 stalin.sc:23611:821848 */ t31559 = p17637->p17635->a30531; /* x164738 stalin.sc:23611:821851 */ t31560 = p17637->a30537; /* x164739 stalin.sc:23611:821854 */ t31561 = p17637->p17635->a30532; /* x164736 stalin.sc:23611:821828 */ t31554 = f14749(t31559, t31560, t31561); /* x164730 stalin.sc:23611:821803 */ t31555.tag = STRUCTURE_TYPE24753; t31555.value.structure_type24753 = t31554; t31546 = f13608(t31553, t31555); /* x164729 stalin.sc:23610:821773 */ /* x164728 stalin.sc:23610:821779 */ /* x164725 stalin.sc:23610:821788 */ t31550 = p17637->p17635->a30533; /* x164726 stalin.sc:23610:821791 */ t31551 = e17637->a30538; /* x164727 stalin.sc:23610:821794 */ t31552 = p17637->p17635->a30534; /* x164724 stalin.sc:23610:821780 */ t31549 = f14485(t31550, t31551, t31552); /* x164723 stalin.sc:23610:821774 */ t31545 = f13602(t31549); /* x164722 stalin.sc:23609:821757 */ t31548.tag = STRUCTURE_TYPE24753; t31548.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31548.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23609, 821756); out_of_memory_error();} t31548.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t31548.value.structure_type24753->s0.value.structure_type24753 = t31546; t31548.value.structure_type24753->s1.tag = NULL_TYPE; t31547 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t31547==NULL) {backtrace("stalin.sc", 23609, 821756); out_of_memory_error();} t31547->s0.tag = STRUCTURE_TYPE24753; t31547->s0.value.structure_type24753 = t31545; t31547->s1 = t31548; t31539 = f13556(t31547); /* x164747 stalin.sc:23612:821862 */ /* x164744 stalin.sc:23612:821877 */ t31562 = "string_set4"; /* x164745 stalin.sc:23612:821891 */ t31563 = p17637->p17635->a30522; /* x164746 stalin.sc:23612:821893 */ /* x164743 stalin.sc:23612:821863 */ t31564.tag = STRUCTURE_TYPE27745; t31564.value.structure_type27745 = t31563; t31565 = FALSE_TYPE; t31540 = f15534(t31562, t31564, t31565); /* x164749 stalin.sc:23613:821899 */ /* x164748 stalin.sc:23613:821900 */ /* x276481 stalin.sc:14693:514793 */ t31541 = ""; /* x164750 stalin.sc:23614:821910 */ /* x164721 stalin.sc:23609:821751 */ t31542.tag = STRUCTURE_TYPE24753; t31542.value.structure_type24753 = t31540; t31543.tag = STRING_TYPE; t31543.value.string_type = t31541; t31544 = FALSE_TYPE; t31534 = f13672(t31539, t31542, t31543, t31544); goto l4405; l4404: /* x164753 stalin.sc:23615:821917 */ /* x164752 stalin.sc:23615:821918 */ /* x276483 stalin.sc:14693:514793 */ t31534.tag = STRING_TYPE; t31534.value.string_type = ""; l4405: /* x164719 stalin.sc:23607:821704 */ t31538.tag = STRUCTURE_TYPE24753; t31538.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31538.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23607, 821703); out_of_memory_error();} t31538.value.structure_type24753->s0 = t31535; t31538.value.structure_type24753->s1.tag = NULL_TYPE; a41831 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41831==NULL) {backtrace("stalin.sc", 23607, 821703); out_of_memory_error();} a41831->s0 = t31534; a41831->s1 = t31538; /* x301436 stalin.sc:14400:506485 */ /* x301435 stalin.sc:14400:506503 */ t31536 = a41831; /* x301434 stalin.sc:14400:506486 */ t31537.tag = STRUCTURE_TYPE24753; t31537.value.structure_type24753 = t31536; return f13492(t31537);} /* [inside top level 17636] */ struct w49 f17636(void) {struct p17635 *p17636 = d17636; struct w49 a30537 = b30537; /* U1 */ struct w49 t31571; struct structure_type27501 *t31572; struct w49 t31573; struct p17636 *t31574; struct p17635 *t31575; struct p17636 *e17636; e17636 = (struct p17636 *)GC_malloc(sizeof(struct p17636)); if (e17636==NULL) {backtrace("stalin.sc", 23600, 821615); out_of_memory_error();} e17636->p17635 = p17636; e17636->a30537 = a30537; /* x164798 stalin.sc:23601:821631 */ /* x164715 stalin.sc:23602:821648 */ /* x164716 stalin.sc:23603:821665 */ t31571 = p17636->a30534; /* x164717 stalin.sc:23604:821672 */ t31572 = p17636->a30521; /* x164718 stalin.sc:23605:821678 */ t31573 = p17636->a30533; /* x164791 stalin.sc:23606:821685 */ t31574 = e17636; /* x164797 stalin.sc:23626:822196 */ t31575 = p17636; /* x164714 stalin.sc:23601:821632 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t31571; b26113 = t31572; b26114 = t31573; b26115.tag = NATIVE_PROCEDURE_TYPE22103; b26115.value.native_procedure_type22103 = t31574; b26116.tag = NATIVE_PROCEDURE_TYPE22102; b26116.value.native_procedure_type22102 = t31575; return f14692();} /* [inside top level 17631] */ struct structure_type24753 *f17631(void) {struct structure_type24753 *a34957; /* OBJS */ struct w49 t31576; struct w49 t31577; /* x164700 stalin.sc:23592:821469 */ /* x164699 stalin.sc:23592:821501 */ /* x164698 stalin.sc:23592:821488 */ /* x164697 stalin.sc:23592:821475 */ /* x164696 stalin.sc:23592:821470 */ t31577.tag = STRUCTURE_TYPE24753; t31577.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31577.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23592, 821469); out_of_memory_error();} t31577.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7431; t31577.value.structure_type24753->s1.tag = NULL_TYPE; t31576.tag = STRUCTURE_TYPE24753; t31576.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31576.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23592, 821469); out_of_memory_error();} t31576.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7430; t31576.value.structure_type24753->s1 = t31577; a34957 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34957==NULL) {backtrace("stalin.sc", 23592, 821469); out_of_memory_error();} a34957->s0.tag = NATIVE_PROCEDURE_TYPE7822; a34957->s1 = t31576; /* x271921 */ return a34957;} /* [inside top level 17630] */ struct structure_type24753 *f17630(void) {struct structure_type24753 *a35027; /* OBJS */ struct w49 t31578; struct w49 t31579; /* x164694 stalin.sc:23591:821424 */ /* x164693 stalin.sc:23591:821456 */ /* x164692 stalin.sc:23591:821443 */ /* x164691 stalin.sc:23591:821430 */ /* x164690 stalin.sc:23591:821425 */ t31579.tag = STRUCTURE_TYPE24753; t31579.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31579.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23591, 821424); out_of_memory_error();} t31579.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7431; t31579.value.structure_type24753->s1.tag = NULL_TYPE; t31578.tag = STRUCTURE_TYPE24753; t31578.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31578.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23591, 821424); out_of_memory_error();} t31578.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7430; t31578.value.structure_type24753->s1 = t31579; a35027 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35027==NULL) {backtrace("stalin.sc", 23591, 821424); out_of_memory_error();} a35027->s0.tag = NATIVE_PROCEDURE_TYPE7822; a35027->s1 = t31578; /* x272061 */ return a35027;} /* [inside top level 17629] */ struct p16292 *f17629(void) {unsigned t31580; unsigned t31581; /* x164688 stalin.sc:23590:821350 */ /* x164685 stalin.sc:23590:821385 */ /* x164686 stalin.sc:23590:821398 */ /* x164687 stalin.sc:23590:821411 */ /* x164684 stalin.sc:23590:821351 */ t31580 = NATIVE_PROCEDURE_TYPE7822; t31581 = NATIVE_PROCEDURE_TYPE7431; return f16292(t31580, t31581);} /* [inside top level 17628] */ struct structure_type24753 *f17628(struct p17624 *p17628, unsigned a30492) {char *t31582; struct structure_type27745 *t31583; unsigned t31584; struct w49 t31585; /* x164670 stalin.sc:23586:821241 */ /* x164667 stalin.sc:23586:821256 */ t31582 = "string_ref1"; /* x164668 stalin.sc:23586:821270 */ t31583 = p17628->a30474; /* x164669 stalin.sc:23586:821272 */ t31584 = a30492; /* x164666 stalin.sc:23586:821242 */ t31585.tag = STRUCTURE_TYPE27745; t31585.value.structure_type27745 = t31583; return f15534(t31582, t31585, t31584);} /* [inside top level 17627] */ struct structure_type24753 *f17627(struct p17624 *p17627, unsigned a30491) {char *t31586; struct structure_type27745 *t31587; unsigned t31588; struct w49 t31589; /* x164662 stalin.sc:23585:821188 */ /* x164659 stalin.sc:23585:821203 */ t31586 = "string_ref2"; /* x164660 stalin.sc:23585:821217 */ t31587 = p17627->a30474; /* x164661 stalin.sc:23585:821219 */ t31588 = a30491; /* x164658 stalin.sc:23585:821189 */ t31589.tag = STRUCTURE_TYPE27745; t31589.value.structure_type27745 = t31587; return f15534(t31586, t31589, t31588);} /* [inside top level 17626] */ struct w49 f17626(struct p17625 *p17626, struct w49 a30490) {struct structure_type24753 *a41797; /* CS */ struct w49 t31590; struct w49 t31591; struct structure_type24753 *t31592; struct w49 t31593; struct w49 t31594; struct structure_type24753 *t31595; struct structure_type24753 *t31596; char *t31597; struct w49 t31598; struct w49 t31599; unsigned t31600; struct structure_type24753 *t31601; struct structure_type24753 *t31602; struct structure_type24753 *t31603; struct w49 t31604; struct w49 t31605; struct w49 t31606; struct w49 t31607; struct w49 t31608; struct w49 t31609; struct structure_type24753 *t31610; struct w49 t31611; struct w49 t31612; struct w49 t31613; struct w49 t31614; struct w49 t31615; struct w49 t31616; struct w49 t31617; char *t31618; struct structure_type27745 *t31619; struct w49 t31620; unsigned t31621; struct structure_type27501 *t31622; struct structure_type24753 *t31623; struct w49 t31624; unsigned t31625; struct w49 t31626; struct w49 t31627; struct w49 t31628; struct w49 t31629; struct w49 t31630; struct w49 t31631; struct w49 t31632; /* x164656 stalin.sc:23575:820871 */ /* x164655 stalin.sc:23584:821101 */ /* x164643 stalin.sc:23584:821108 */ t31622 = p17626->p17624->a30473; /* x164653 stalin.sc:23584:821110 */ /* x164645 stalin.sc:23584:821128 */ t31626 = p17626->p17624->a30483; /* x164646 stalin.sc:23584:821131 */ t31627 = p17626->a30489; /* x164647 stalin.sc:23584:821134 */ t31628 = p17626->p17624->a30484; /* x164652 stalin.sc:23584:821137 */ /* x164649 stalin.sc:23584:821146 */ t31630 = p17626->p17624->a30485; /* x164650 stalin.sc:23584:821149 */ t31631 = a30490; /* x164651 stalin.sc:23584:821152 */ t31632 = p17626->p17624->a30486; /* x164648 stalin.sc:23584:821138 */ t31629 = f14485(t31630, t31631, t31632); /* x164644 stalin.sc:23584:821111 */ t31623 = f14750(t31626, t31627, t31628, t31629); /* x164654 stalin.sc:23584:821157 */ /* x164642 stalin.sc:23584:821102 */ t31624.tag = STRUCTURE_TYPE24753; t31624.value.structure_type24753 = t31623; t31625 = (unsigned)NATIVE_PROCEDURE_TYPE7431; t31591 = f15508(t31622, t31624, t31625); /* x164641 stalin.sc:23576:820894 */ /* x164607 stalin.sc:23576:820898 */ if (a707==FALSE_TYPE) goto l4407; /* x164638 stalin.sc:23577:820918 */ /* x164629 stalin.sc:23577:820924 */ /* x164628 stalin.sc:23579:820970 */ /* x164622 stalin.sc:23579:820976 */ /* x164619 stalin.sc:23579:820985 */ t31612 = p17626->p17624->a30485; /* x164620 stalin.sc:23579:820988 */ t31613 = a30490; /* x164621 stalin.sc:23579:820991 */ t31614 = p17626->p17624->a30486; /* x164618 stalin.sc:23579:820977 */ t31609 = f14485(t31612, t31613, t31614); /* x164627 stalin.sc:23579:820995 */ /* x164624 stalin.sc:23579:821016 */ t31615 = p17626->p17624->a30483; /* x164625 stalin.sc:23579:821019 */ t31616 = p17626->a30489; /* x164626 stalin.sc:23579:821022 */ t31617 = p17626->p17624->a30484; /* x164623 stalin.sc:23579:820996 */ t31610 = f14749(t31615, t31616, t31617); /* x164617 stalin.sc:23579:820971 */ t31611.tag = STRUCTURE_TYPE24753; t31611.value.structure_type24753 = t31610; t31602 = f13608(t31609, t31611); /* x164616 stalin.sc:23578:820941 */ /* x164615 stalin.sc:23578:820947 */ /* x164612 stalin.sc:23578:820956 */ t31606 = p17626->p17624->a30485; /* x164613 stalin.sc:23578:820959 */ t31607 = a30490; /* x164614 stalin.sc:23578:820962 */ t31608 = p17626->p17624->a30486; /* x164611 stalin.sc:23578:820948 */ t31605 = f14485(t31606, t31607, t31608); /* x164610 stalin.sc:23578:820942 */ t31601 = f13602(t31605); /* x164609 stalin.sc:23577:820925 */ t31604.tag = STRUCTURE_TYPE24753; t31604.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31604.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23577, 820924); out_of_memory_error();} t31604.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t31604.value.structure_type24753->s0.value.structure_type24753 = t31602; t31604.value.structure_type24753->s1.tag = NULL_TYPE; t31603 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t31603==NULL) {backtrace("stalin.sc", 23577, 820924); out_of_memory_error();} t31603->s0.tag = STRUCTURE_TYPE24753; t31603->s0.value.structure_type24753 = t31601; t31603->s1 = t31604; t31595 = f13556(t31603); /* x164634 stalin.sc:23580:821030 */ /* x164631 stalin.sc:23580:821045 */ t31618 = "string_ref3"; /* x164632 stalin.sc:23580:821059 */ t31619 = p17626->p17624->a30474; /* x164633 stalin.sc:23580:821061 */ /* x164630 stalin.sc:23580:821031 */ t31620.tag = STRUCTURE_TYPE27745; t31620.value.structure_type27745 = t31619; t31621 = FALSE_TYPE; t31596 = f15534(t31618, t31620, t31621); /* x164636 stalin.sc:23581:821067 */ /* x164635 stalin.sc:23581:821068 */ /* x276521 stalin.sc:14693:514793 */ t31597 = ""; /* x164637 stalin.sc:23582:821078 */ /* x164608 stalin.sc:23577:820919 */ t31598.tag = STRUCTURE_TYPE24753; t31598.value.structure_type24753 = t31596; t31599.tag = STRING_TYPE; t31599.value.string_type = t31597; t31600 = FALSE_TYPE; t31590 = f13672(t31595, t31598, t31599, t31600); goto l4408; l4407: /* x164640 stalin.sc:23583:821085 */ /* x164639 stalin.sc:23583:821086 */ /* x276523 stalin.sc:14693:514793 */ t31590.tag = STRING_TYPE; t31590.value.string_type = ""; l4408: /* x164606 stalin.sc:23575:820872 */ t31594.tag = STRUCTURE_TYPE24753; t31594.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31594.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23575, 820871); out_of_memory_error();} t31594.value.structure_type24753->s0 = t31591; t31594.value.structure_type24753->s1.tag = NULL_TYPE; a41797 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41797==NULL) {backtrace("stalin.sc", 23575, 820871); out_of_memory_error();} a41797->s0 = t31590; a41797->s1 = t31594; /* x301300 stalin.sc:14400:506485 */ /* x301299 stalin.sc:14400:506503 */ t31592 = a41797; /* x301298 stalin.sc:14400:506486 */ t31593.tag = STRUCTURE_TYPE24753; t31593.value.structure_type24753 = t31592; return f13492(t31593);} /* [inside top level 17625] */ struct w49 f17625(void) {struct p17624 *p17625 = d17625; struct w49 a30489 = b30489; /* U1 */ struct w49 t31633; struct structure_type27501 *t31634; struct w49 t31635; struct p17625 *t31636; struct p17624 *t31637; struct p17625 *e17625; e17625 = (struct p17625 *)GC_malloc(sizeof(struct p17625)); if (e17625==NULL) {backtrace("stalin.sc", 23568, 820783); out_of_memory_error();} e17625->p17624 = p17625; e17625->a30489 = a30489; /* x164664 stalin.sc:23569:820799 */ /* x164602 stalin.sc:23570:820816 */ /* x164603 stalin.sc:23571:820833 */ t31633 = p17625->a30486; /* x164604 stalin.sc:23572:820840 */ t31634 = p17625->a30473; /* x164605 stalin.sc:23573:820846 */ t31635 = p17625->a30485; /* x164657 stalin.sc:23574:820853 */ t31636 = e17625; /* x164663 stalin.sc:23585:821175 */ t31637 = p17625; /* x164601 stalin.sc:23569:820800 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t31633; b26113 = t31634; b26114 = t31635; b26115.tag = NATIVE_PROCEDURE_TYPE21947; b26115.value.native_procedure_type21947 = t31636; b26116.tag = NATIVE_PROCEDURE_TYPE21946; b26116.value.native_procedure_type21946 = t31637; return f14692();} /* [inside top level 17616] */ struct structure_type24753 *f17616(void) {struct structure_type24753 *a34958; /* OBJS */ struct w49 t31638; /* x164567 stalin.sc:23554:820494 */ /* x164566 stalin.sc:23554:820513 */ /* x164565 stalin.sc:23554:820500 */ /* x164564 stalin.sc:23554:820495 */ t31638.tag = STRUCTURE_TYPE24753; t31638.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31638.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23554, 820494); out_of_memory_error();} t31638.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7430; t31638.value.structure_type24753->s1.tag = NULL_TYPE; a34958 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34958==NULL) {backtrace("stalin.sc", 23554, 820494); out_of_memory_error();} a34958->s0.tag = NATIVE_PROCEDURE_TYPE7822; a34958->s1 = t31638; /* x271923 */ return a34958;} /* [inside top level 17615] */ struct structure_type24753 *f17615(void) {struct structure_type24753 *a35043; /* OBJS */ struct w49 t31639; /* x164562 stalin.sc:23553:820460 */ /* x164561 stalin.sc:23553:820479 */ /* x164560 stalin.sc:23553:820466 */ /* x164559 stalin.sc:23553:820461 */ t31639.tag = STRUCTURE_TYPE24753; t31639.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31639.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23553, 820460); out_of_memory_error();} t31639.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7430; t31639.value.structure_type24753->s1.tag = NULL_TYPE; a35043 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35043==NULL) {backtrace("stalin.sc", 23553, 820460); out_of_memory_error();} a35043->s0.tag = NATIVE_PROCEDURE_TYPE7822; a35043->s1 = t31639; /* x272093 */ return a35043;} /* [inside top level 17614] */ struct p16287 *f17614(void) {unsigned t31640; unsigned t31641; /* x164557 stalin.sc:23552:820399 */ /* x164555 stalin.sc:23552:820432 */ /* x164556 stalin.sc:23552:820445 */ /* x164554 stalin.sc:23552:820400 */ t31640 = (unsigned)NATIVE_PROCEDURE_TYPE7822; t31641 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f16287(t31640, t31641);} /* [inside top level 17613] */ struct structure_type24753 *f17613(struct p17611 *p17613, unsigned a30443) {char *t31642; struct structure_type27745 *t31643; unsigned t31644; struct w49 t31645; /* x164540 stalin.sc:23548:820291 */ /* x164537 stalin.sc:23548:820306 */ t31642 = "string_length"; /* x164538 stalin.sc:23548:820322 */ t31643 = p17613->a30427; /* x164539 stalin.sc:23548:820324 */ t31644 = a30443; /* x164536 stalin.sc:23548:820292 */ t31645.tag = STRUCTURE_TYPE27745; t31645.value.structure_type27745 = t31643; return f15534(t31642, t31645, t31644);} /* [inside top level 17612] */ struct w49 f17612(struct p17611 *p17612, struct w49 a30442) {struct structure_type27501 *t31646; struct structure_type24753 *t31647; struct w49 t31648; unsigned t31649; struct w49 t31650; struct w49 t31651; struct w49 t31652; /* x164534 stalin.sc:23547:820221 */ /* x164527 stalin.sc:23547:820228 */ t31646 = p17612->a30426; /* x164532 stalin.sc:23547:820230 */ /* x164529 stalin.sc:23547:820251 */ t31650 = p17612->a30436; /* x164530 stalin.sc:23547:820254 */ t31651 = a30442; /* x164531 stalin.sc:23547:820257 */ t31652 = p17612->a30437; /* x164528 stalin.sc:23547:820231 */ t31647 = f14749(t31650, t31651, t31652); /* x164533 stalin.sc:23547:820261 */ /* x164526 stalin.sc:23547:820222 */ t31648.tag = STRUCTURE_TYPE24753; t31648.value.structure_type24753 = t31647; t31649 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t31646, t31648, t31649);} /* [inside LOOP 17599] */ struct structure_type24753 *f17599(struct p17588 *p17599, unsigned a30397) {char *t31653; struct structure_type27745 *t31654; unsigned t31655; struct w49 t31656; /* x164456 stalin.sc:23527:819758 */ /* x164453 stalin.sc:23527:819773 */ t31653 = "string"; /* x164454 stalin.sc:23527:819782 */ t31654 = p17599->a30372; /* x164455 stalin.sc:23527:819784 */ t31655 = a30397; /* x164452 stalin.sc:23527:819759 */ t31656.tag = STRUCTURE_TYPE27745; t31656.value.structure_type27745 = t31654; return f15534(t31653, t31656, t31655);} /* [inside LOOP 17598] */ struct w49 f17598(void) {struct p17591 *p17598 = d17598; struct w49 a30396 = b30396; /* U1 */ struct w49 a35408; /* PAIR */ struct w49 a35409; /* PAIR */ struct p17588 *t31657; struct w49 t31658; struct structure_type24753 *t31659; struct w49 t31660; struct w49 t31661; struct w49 t31662; struct w49 t31663; struct structure_type24753 *t31664; struct w49 t31665; struct w49 t31666; /* x164450 stalin.sc:23526:819697 */ /* x164442 stalin.sc:23526:819703 */ /* x164441 stalin.sc:23526:819709 */ t31661 = p17598->a30389; /* x164440 stalin.sc:23526:819704 */ a35408 = t31661; /* x272989 */ /* x272988 */ t31662 = a35408; /* x272987 */ if (!((t31662.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29557]"); structure_ref_error();} t31658 = t31662.value.structure_type24753->s1; /* x164446 stalin.sc:23526:819714 */ /* x164444 stalin.sc:23526:819720 */ t31663 = a30396; /* x164445 stalin.sc:23526:819723 */ t31664 = p17598->a30390; /* x268114 stalin.sc:23526:819715 */ t31659 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t31659==NULL) {backtrace("stalin.sc", 23526, 819714); out_of_memory_error();} t31659->s0 = t31663; /* MOVE: branching squeezed to general */ if (t31664>=((struct structure_type24753 *)VALUE_OFFSET)) {t31659->s1.tag = STRUCTURE_TYPE24753; t31659->s1.value.structure_type24753 = t31664;} else t31659->s1.tag = (unsigned)t31664; /* x164449 stalin.sc:23526:819727 */ /* x164448 stalin.sc:23526:819733 */ t31665 = p17598->a30391; /* x164447 stalin.sc:23526:819728 */ a35409 = t31665; /* x272993 */ /* x272992 */ t31666 = a35409; /* x272991 */ if (!((t31666.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29558]"); structure_ref_error();} t31660 = t31666.value.structure_type24753->s1; /* x164439 stalin.sc:23526:819698 */ t31657 = p17598->p17588; d17591 = t31657; b30389 = t31658; b30390 = t31659; b30391 = t31660; return f17591();} /* LOOP[17591] */ struct w49 f17591(void) {struct w49 r17591; struct p17588 *p17591 = d17591; struct w49 a30389 = b30389; /* TS1 */ struct structure_type24753 *a30390 = b30390; /* US */ struct w49 a30391 = b30391; /* WS1 */ struct w49 a30392; /* W */ struct w12224 a30393; /* US */ struct w49 a30394; /* C */ struct w49 a35878; /* PAIR */ struct w16638 a35879; /* PAIR */ struct structure_type27501 *a38390; /* S */ struct structure_type27501 *a38421; /* S */ struct structure_type24753 *a41837; /* CS */ struct w49 t31667; struct w49 t31668; struct structure_type27501 *t31669; struct w49 t31670; struct p17591 *t31671; struct p17588 *t31672; struct w49 t31673; struct w49 t31674; struct w16638 t31675; struct w16638 t31676; struct structure_type27501 *t31677; struct w12218 t31678; struct structure_type27501 *t31679; struct w12218 t31680; struct structure_type27501 *t31681; struct w12218 t31682; struct structure_type27501 *t31683; struct w12218 t31684; struct p17591 *t31685; struct p17588 *t31686; struct w49 t31687; struct w12224 t31688; struct w49 t31689; struct w49 t31690; struct w49 t31691; struct w49 t31692; struct structure_type24753 *t31693; struct w49 t31694; struct w49 t31695; struct w49 t31696; struct w49 t31697; struct w49 t31698; char *t31699; struct structure_type27745 *t31700; struct w49 t31701; int t31702; struct w49 t31703; struct w49 t31704; struct w12224 t31705; struct w49 t31706; struct p17596 *t31707; int t31708; struct w227957 t31709; struct w49 t31710; struct w49 t31711; struct structure_type27501 *t31712; struct w12218 t31713; struct structure_type27501 *t31714; struct structure_type27501 *t31715; struct structure_type24753 *t31716; struct w49 t31717; struct structure_type27501 *t31718; struct structure_type27501 *t31719; struct p17588 *t31720; struct structure_type27501 *t31721; struct w12218 t31722; struct p17588 *t31723; struct structure_type27501 *t31724; struct p17591 *e17591; struct p17596 *e17596; struct p17588 *p17593; struct p17588 *p17594; struct p17591 *p17595; struct p17588 *p17596; e17591 = (struct p17591 *)GC_malloc(sizeof(struct p17591)); if (e17591==NULL) {backtrace_internal("[inside top level 17589]"); out_of_memory_error();} e17591->p17588 = p17591; e17591->a30389 = a30389; e17591->a30390 = a30390; e17591->a30391 = a30391; /* x164459 stalin.sc:23502:819005 */ /* x164333 stalin.sc:23502:819009 */ /* x164332 stalin.sc:23502:819016 */ t31667 = e17591->a30389; /* x268116 stalin.sc:23502:819010 */ if (!((t31667.tag)==NULL_TYPE)) goto l4410; /* x164429 stalin.sc:23503:819027 */ /* x164336 stalin.sc:23504:819041 */ /* x164335 stalin.sc:23504:819051 */ t31677 = p17591->a30371; /* x164334 stalin.sc:23504:819042 */ /* MOVE: branching squeezed to general */ if (t31677>=((struct structure_type27501 *)VALUE_OFFSET)) {t31678.tag = STRUCTURE_TYPE27501; t31678.value.structure_type27501 = t31677;} else t31678.tag = (unsigned)t31677; if (f7031(t31678)==FALSE_TYPE) goto l4412; /* x164340 */ /* x164339 */ /* x164338 stalin.sc:23504:819054 */ /* x164337 stalin.sc:23504:819055 */ /* x276525 stalin.sc:14693:514793 */ r17591.tag = STRING_TYPE; r17591.value.string_type = ""; return r17591; l4412: /* x164428 */ /* x164343 stalin.sc:23505:819072 */ /* x164342 stalin.sc:23505:819085 */ t31679 = p17591->a30371; /* x164341 stalin.sc:23505:819073 */ /* MOVE: branching squeezed to general */ if (t31679>=((struct structure_type27501 *)VALUE_OFFSET)) {t31680.tag = STRUCTURE_TYPE27501; t31680.value.structure_type27501 = t31679;} else t31680.tag = (unsigned)t31679; if (f7032(t31680)==FALSE_TYPE) goto l4414; /* x164348 */ /* x164347 */ t31723 = p17591; p17593 = t31723; /* x164346 stalin.sc:23505:819088 */ /* x164345 stalin.sc:23505:819101 */ t31724 = p17593->a30371; /* x164344 stalin.sc:23505:819089 */ return f14707(t31724); l4414: /* x164427 */ /* x164358 stalin.sc:23506:819113 */ /* x164351 stalin.sc:23506:819118 */ /* x164350 stalin.sc:23506:819127 */ t31681 = p17591->a30371; /* x164349 stalin.sc:23506:819119 */ /* MOVE: branching squeezed to general */ if (t31681>=((struct structure_type27501 *)VALUE_OFFSET)) {t31682.tag = STRUCTURE_TYPE27501; t31682.value.structure_type27501 = t31681;} else t31682.tag = (unsigned)t31681; if (f7030(t31682)==FALSE_TYPE) goto l4416; /* x164356 */ /* x164355 stalin.sc:23506:819135 */ /* x164354 stalin.sc:23506:819153 */ t31683 = p17591->a30371; /* x164353 stalin.sc:23506:819136 */ /* MOVE: branching squeezed to general */ if (t31683>=((struct structure_type27501 *)VALUE_OFFSET)) {t31684.tag = STRUCTURE_TYPE27501; t31684.value.structure_type27501 = t31683;} else t31684.tag = (unsigned)t31683; if (!(f15338(t31684)==FALSE_TYPE)) goto l4416; /* x164363 */ /* x164362 */ t31720 = p17591; p17594 = t31720; /* x164361 stalin.sc:23506:819158 */ /* x164360 stalin.sc:23506:819174 */ t31721 = p17594->a30371; /* x164359 stalin.sc:23506:819159 */ /* MOVE: branching squeezed to general */ if (t31721>=((struct structure_type27501 *)VALUE_OFFSET)) {t31722.tag = STRUCTURE_TYPE27501; t31722.value.structure_type27501 = t31721;} else t31722.tag = (unsigned)t31721; return f15342(t31722); l4416: /* x164426 */ /* x164425 */ t31685 = e17591; p17595 = t31685; /* x164424 stalin.sc:23507:819191 */ /* x164417 stalin.sc:23509:819245 */ /* x164416 stalin.sc:23509:819262 */ t31714 = p17595->p17588->a30371; /* x164415 stalin.sc:23509:819246 */ a38421 = t31714; /* x286353 */ /* x286352 */ t31715 = a38421; /* x286351 */ if (!(t31715>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33338]"); structure_ref_error();} t31687 = t31715->s2; /* x164420 stalin.sc:23508:819223 */ /* x164419 stalin.sc:23508:819232 */ t31716 = p17595->a30390; /* x164418 stalin.sc:23508:819224 */ /* MOVE: branching squeezed to general */ if (t31716>=((struct structure_type24753 *)VALUE_OFFSET)) {t31717.tag = STRUCTURE_TYPE24753; t31717.value.structure_type24753 = t31716;} else t31717.tag = (unsigned)t31716; t31688 = f26331(t31717); /* x164423 stalin.sc:23507:819200 */ /* x164422 stalin.sc:23507:819210 */ t31718 = p17595->p17588->a30371; /* x164421 stalin.sc:23507:819201 */ a38390 = t31718; /* x286229 */ /* x286228 */ t31719 = a38390; /* x286227 */ if (!(t31719>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-C[5769] 33307]"); structure_ref_error();} t31689 = t31719->s3; /* x164414 */ t31686 = p17595->p17588; p17596 = t31686; a30392 = t31687; a30393 = t31688; a30394 = t31689; e17596 = (struct p17596 *)GC_malloc(sizeof(struct p17596)); if (e17596==NULL) {backtrace_internal("[inside LOOP 17595]"); out_of_memory_error();} e17596->p17588 = p17596; e17596->a30392 = a30392; e17596->a30393 = a30393; e17596->a30394 = a30394; /* x164413 stalin.sc:23510:819274 */ /* x164412 stalin.sc:23521:819585 */ /* x164411 stalin.sc:23521:819601 */ t31712 = p17596->a30371; /* x164410 stalin.sc:23521:819586 */ /* MOVE: branching squeezed to general */ if (t31712>=((struct structure_type27501 *)VALUE_OFFSET)) {t31713.tag = STRUCTURE_TYPE27501; t31713.value.structure_type27501 = t31712;} else t31713.tag = (unsigned)t31712; t31692 = f15342(t31713); /* x164409 stalin.sc:23512:819362 */ /* x164408 stalin.sc:23513:819382 */ /* x164404 stalin.sc:23514:819392 */ t31707 = e17596; /* x164407 stalin.sc:23520:819563 */ /* x164406 stalin.sc:23520:819571 */ t31711 = p17596->a30375; /* x164405 stalin.sc:23520:819564 */ t31708 = f26227(t31711); /* x164376 stalin.sc:23513:819383 */ t31709.tag = NATIVE_PROCEDURE_TYPE21397; t31709.value.native_procedure_type21397 = t31707; t31710.tag = FIXNUM_TYPE; t31710.value.fixnum_type = t31708; t31705 = f1149(t31709, t31710); /* x164375 stalin.sc:23512:819363 */ t31706 = *((struct w49 *)(&t31705)); t31691 = f13492(t31706); /* x164374 stalin.sc:23511:819299 */ /* x164366 stalin.sc:23511:819324 */ t31697 = e17596->a30394; /* x164367 stalin.sc:23511:819326 */ t31698 = e17596->a30392; /* x164372 stalin.sc:23511:819328 */ /* x164371 stalin.sc:23511:819338 */ /* x164370 stalin.sc:23511:819346 */ t31704 = p17596->a30375; /* x164369 stalin.sc:23511:819339 */ t31702 = f26227(t31704); /* x164368 stalin.sc:23511:819329 */ t31703.tag = FIXNUM_TYPE; t31703.value.fixnum_type = t31702; t31699 = f13530(t31703); /* x164373 stalin.sc:23511:819351 */ t31700 = p17596->a30372; /* x164365 stalin.sc:23511:819300 */ t31701.tag = STRING_TYPE; t31701.value.string_type = t31699; t31690 = f15607(t31697, t31698, t31701, t31700); /* x164364 stalin.sc:23510:819275 */ t31696.tag = STRUCTURE_TYPE24753; t31696.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31696.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23510, 819274); out_of_memory_error();} t31696.value.structure_type24753->s0 = t31692; t31696.value.structure_type24753->s1.tag = NULL_TYPE; t31695.tag = STRUCTURE_TYPE24753; t31695.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31695.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23510, 819274); out_of_memory_error();} t31695.value.structure_type24753->s0 = t31691; t31695.value.structure_type24753->s1 = t31696; a41837 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41837==NULL) {backtrace("stalin.sc", 23510, 819274); out_of_memory_error();} a41837->s0 = t31690; a41837->s1 = t31695; /* x301460 stalin.sc:14400:506485 */ /* x301459 stalin.sc:14400:506503 */ t31693 = a41837; /* x301458 stalin.sc:14400:506486 */ t31694.tag = STRUCTURE_TYPE24753; t31694.value.structure_type24753 = t31693; return f13492(t31694); l4410: /* x164458 stalin.sc:23522:819614 */ /* x164431 stalin.sc:23522:819627 */ /* x164434 stalin.sc:23523:819643 */ /* x164433 stalin.sc:23523:819650 */ t31673 = e17591->a30391; /* x164432 stalin.sc:23523:819644 */ a35878 = t31673; /* x274869 */ /* x274868 */ t31674 = a35878; /* x274867 */ if (!((t31674.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30027]"); structure_ref_error();} t31668 = t31674.value.structure_type24753->s0; /* x164435 stalin.sc:23524:819660 */ t31669 = p17591->a30371; /* x164438 stalin.sc:23525:819667 */ /* x164437 stalin.sc:23525:819674 */ t31675 = *((struct w16638 *)(&(e17591->a30389))); /* x164436 stalin.sc:23525:819668 */ a35879 = t31675; /* x274873 */ /* x274872 */ t31676 = a35879; /* x274871 */ if (!((t31676.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30028]"); structure_ref_error();} t31670 = t31676.value.structure_type24753->s0; /* x164451 stalin.sc:23526:819684 */ t31671 = e17591; /* x164457 stalin.sc:23527:819745 */ t31672 = p17591; /* x164430 stalin.sc:23522:819615 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7431; b26112 = t31668; b26113 = t31669; b26114 = t31670; b26115.tag = NATIVE_PROCEDURE_TYPE21394; b26115.value.native_procedure_type21394 = t31671; b26116.tag = NATIVE_PROCEDURE_TYPE21393; b26116.value.native_procedure_type21393 = t31672; return f14692();} /* [inside top level 17583] */ struct w12224 f17583(int a30353) {int t31725; struct w227957 t31726; struct w49 t31727; /* x164314 stalin.sc:23497:818825 */ /* x164312 stalin.sc:23497:818832 */ /* x164313 stalin.sc:23497:818856 */ t31725 = a30353; /* x164310 stalin.sc:23497:818826 */ t31726.tag = NATIVE_PROCEDURE_TYPE22486; t31727.tag = FIXNUM_TYPE; t31727.value.fixnum_type = t31725; return f1149(t31726, t31727);} /* [inside top level 17581] */ struct w12224 f17581(int a30348) {int t31728; struct w227957 t31729; struct w49 t31730; /* x164308 stalin.sc:23496:818790 */ /* x164306 stalin.sc:23496:818797 */ /* x164307 stalin.sc:23496:818821 */ t31728 = a30348; /* x164304 stalin.sc:23496:818791 */ t31729.tag = NATIVE_PROCEDURE_TYPE22455; t31730.tag = FIXNUM_TYPE; t31730.value.fixnum_type = t31728; return f1149(t31729, t31730);} /* [inside top level 17579] */ struct structure_type24753 *f17579(struct p17554 *p17579, unsigned a30342) {char *t31731; struct structure_type27745 *t31732; unsigned t31733; struct w49 t31734; /* x164273 stalin.sc:23491:818629 */ /* x164270 stalin.sc:23491:818644 */ t31731 = "make_string1"; /* x164271 stalin.sc:23491:818659 */ t31732 = p17579->a30304; /* x164272 stalin.sc:23491:818661 */ t31733 = a30342; /* x164269 stalin.sc:23491:818630 */ t31734.tag = STRUCTURE_TYPE27745; t31734.value.structure_type27745 = t31732; return f15534(t31731, t31734, t31733);} /* [inside top level 17576] */ struct structure_type24753 *f17576(struct p17554 *p17576, unsigned a30338) {char *t31735; struct structure_type27745 *t31736; unsigned t31737; struct w49 t31738; /* x164181 stalin.sc:23470:817850 */ /* x164178 stalin.sc:23470:817865 */ t31735 = "make_string2"; /* x164179 stalin.sc:23470:817880 */ t31736 = p17576->a30304; /* x164180 stalin.sc:23470:817882 */ t31737 = a30338; /* x164177 stalin.sc:23470:817851 */ t31738.tag = STRUCTURE_TYPE27745; t31738.value.structure_type27745 = t31736; return f15534(t31735, t31738, t31737);} /* [inside top level 17573] */ struct w49 f17573(struct p17572 *p17573, struct w49 a30334) {struct structure_type24753 *a30335; /* T */ struct structure_type24753 *a41795; /* CS */ struct structure_type24753 *a42016; /* CS */ struct w49 t31739; struct w49 t31740; struct w49 t31741; struct structure_type24753 *t31742; struct w49 t31743; struct w49 t31744; struct w49 t31745; struct w49 t31746; struct w49 t31747; struct w49 t31748; struct structure_type27745 *t31749; struct w49 t31750; struct w49 t31751; struct w49 t31752; struct p17572 *t31753; struct structure_type24753 *t31754; struct p17572 *t31755; struct structure_type24753 *t31756; struct structure_type24753 *t31757; struct structure_type24753 *t31758; struct structure_type24753 *t31759; struct w49 t31760; struct structure_type24753 *t31761; struct structure_type24753 *t31762; struct w49 t31763; struct w49 t31764; struct structure_type24753 *t31765; struct w49 t31766; struct structure_type24753 *t31767; struct w49 t31768; struct w49 t31769; struct w49 t31770; char *t31771; struct w49 t31772; struct w49 t31773; struct w211113 t31774; struct structure_type24753 *t31775; struct structure_type24753 *t31776; struct w49 t31777; struct w49 t31778; struct structure_type24753 *t31779; struct w49 t31780; struct structure_type24753 *t31781; struct w49 t31782; struct w49 t31783; struct w49 t31784; struct w49 t31785; struct w49 t31786; struct w211113 t31787; struct w49 t31788; struct w49 t31789; struct w49 t31790; struct structure_type24753 *t31791; struct w61020 t31792; struct structure_type24753 *t31793; struct w49 t31794; struct w49 t31795; struct structure_type24753 *t31796; struct w49 t31797; struct structure_type24753 *t31798; struct w49 t31799; struct w49 t31800; struct w49 t31801; unsigned t31802; int t31803; struct structure_type24753 *t31804; struct w49 t31805; struct w49 t31806; struct structure_type24753 *t31807; struct structure_type24753 *t31808; struct w49 t31809; struct w49 t31810; struct structure_type24753 *t31811; struct w49 t31812; unsigned t31813; struct structure_type27501 *t31814; struct w12218 t31815; struct p17572 *p17574; struct p17572 *p17575; /* x164175 stalin.sc:23452:817249 */ /* x164174 stalin.sc:23469:817812 */ /* x164173 stalin.sc:23469:817828 */ t31814 = p17573->p17571->p17554->a30303; /* x164172 stalin.sc:23469:817813 */ /* MOVE: branching squeezed to general */ if (t31814>=((struct structure_type27501 *)VALUE_OFFSET)) {t31815.tag = STRUCTURE_TYPE27501; t31815.value.structure_type27501 = t31814;} else t31815.tag = (unsigned)t31814; t31741 = f15342(t31815); /* x164171 stalin.sc:23454:817329 */ /* x164170 stalin.sc:23454:817338 */ /* x164169 stalin.sc:23454:817343 */ t31813 = a860; /* x164168 stalin.sc:23454:817339 */ t31754 = f14288(t31813); /* x164167 */ t31753 = p17573; p17574 = t31753; a30335 = t31754; /* x164166 */ /* x164155 stalin.sc:23455:817358 */ /* x164154 stalin.sc:23455:817369 */ /* x164152 stalin.sc:23455:817372 */ t31802 = a860; /* x164153 stalin.sc:23455:817377 */ t31803 = 1; /* x268120 stalin.sc:23455:817370 */ if (!((t31802&1)==1)) {backtrace("stalin.sc", 23455, 817369); plus_error();} a860 = (((unsigned)(((int)(((int)t31802)>>1))+t31803))<<1)+1; /* x164165 stalin.sc:23456:817388 */ /* x164164 stalin.sc:23458:817470 */ /* x164163 stalin.sc:23458:817487 */ /* x164162 stalin.sc:23458:817509 */ /* x164161 stalin.sc:23458:817522 */ t31811 = a30335; /* x164160 stalin.sc:23458:817510 */ t31812.tag = STRUCTURE_TYPE24753; t31812.value.structure_type24753 = t31811; t31807 = f13516(t31812); /* x164159 stalin.sc:23458:817502 */ t31806 = a1252; /* x164158 stalin.sc:23458:817488 */ t31810.tag = STRUCTURE_TYPE24753; t31810.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31810.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23458, 817487); out_of_memory_error();} t31810.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t31810.value.structure_type24753->s0.value.structure_type24753 = t31807; t31810.value.structure_type24753->s1.tag = NULL_TYPE; a42016 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42016==NULL) {backtrace("stalin.sc", 23458, 817487); out_of_memory_error();} a42016->s0 = t31806; a42016->s1 = t31810; /* x302176 stalin.sc:14386:505956 */ /* x302175 stalin.sc:14386:505972 */ t31808 = a42016; /* x302174 stalin.sc:14386:505957 */ t31809.tag = STRUCTURE_TYPE24753; t31809.value.structure_type24753 = t31808; t31805 = f13474(t31809); /* x164157 stalin.sc:23458:817471 */ t31804 = f13514(t31805); /* x164156 stalin.sc:23456:817389 */ f13469(t31804); /* x164150 */ t31755 = p17574; p17575 = t31755; /* x164149 stalin.sc:23459:817535 */ /* x164117 stalin.sc:23459:817542 */ /* x164104 stalin.sc:23459:817547 */ t31761 = a30335; /* x164116 stalin.sc:23460:817554 */ /* x164115 stalin.sc:23460:817559 */ /* x164107 stalin.sc:23461:817581 */ t31768 = p17575->p17571->a30332; /* x164111 stalin.sc:23461:817583 */ /* x164109 stalin.sc:23461:817600 */ /* x164110 stalin.sc:23461:817613 */ t31773 = p17575->p17571->a30331; /* x164108 stalin.sc:23461:817584 */ t31774.tag = NATIVE_PROCEDURE_TYPE7822; t31769 = f8157(t31774, t31773); /* x164112 stalin.sc:23461:817616 */ t31770 = p17575->p17571->a30331; /* x164114 stalin.sc:23461:817618 */ /* x164113 stalin.sc:23461:817619 */ /* x276897 stalin.sc:14555:511005 */ t31771 = "0"; /* x164106 stalin.sc:23460:817560 */ t31772.tag = STRING_TYPE; t31772.value.string_type = t31771; t31765 = f14750(t31768, t31769, t31770, t31772); /* x164105 stalin.sc:23460:817555 */ t31766.tag = STRUCTURE_TYPE24753; t31766.value.structure_type24753 = t31765; t31767 = (struct structure_type24753 *)NULL_TYPE; t31762 = f13625(t31766, t31767); /* x164103 stalin.sc:23459:817543 */ t31763.tag = STRUCTURE_TYPE24753; t31763.value.structure_type24753 = t31761; t31764.tag = STRUCTURE_TYPE24753; t31764.value.structure_type24753 = t31762; t31756 = f13542(t31763, t31764); /* x164135 stalin.sc:23462:817634 */ /* x164119 stalin.sc:23462:817639 */ t31775 = a30335; /* x164134 stalin.sc:23462:817641 */ /* x164133 stalin.sc:23462:817646 */ /* x164122 stalin.sc:23463:817670 */ t31782 = p17575->p17571->a30332; /* x164126 stalin.sc:23464:817678 */ /* x164124 stalin.sc:23464:817695 */ /* x164125 stalin.sc:23464:817708 */ t31786 = p17575->p17571->a30331; /* x164123 stalin.sc:23464:817679 */ t31787.tag = NATIVE_PROCEDURE_TYPE7822; t31783 = f8157(t31787, t31786); /* x164127 stalin.sc:23465:817717 */ t31784 = p17575->p17571->a30331; /* x164132 stalin.sc:23466:817725 */ /* x164129 stalin.sc:23466:817734 */ t31788 = p17575->p17571->p17554->a30313; /* x164130 stalin.sc:23466:817737 */ t31789 = p17575->a30333; /* x164131 stalin.sc:23466:817740 */ t31790 = p17575->p17571->p17554->a30314; /* x164128 stalin.sc:23466:817726 */ t31785 = f14485(t31788, t31789, t31790); /* x164121 stalin.sc:23462:817647 */ t31779 = f14750(t31782, t31783, t31784, t31785); /* x164120 stalin.sc:23462:817642 */ t31780.tag = STRUCTURE_TYPE24753; t31780.value.structure_type24753 = t31779; t31781 = (struct structure_type24753 *)NULL_TYPE; t31776 = f13625(t31780, t31781); /* x164118 stalin.sc:23462:817635 */ t31777.tag = STRUCTURE_TYPE24753; t31777.value.structure_type24753 = t31775; t31778.tag = STRUCTURE_TYPE24753; t31778.value.structure_type24753 = t31776; t31757 = f13601(t31777, t31778); /* x164138 stalin.sc:23467:817754 */ /* x164137 stalin.sc:23467:817760 */ t31791 = a30335; /* x164136 stalin.sc:23467:817755 */ t31792.tag = STRUCTURE_TYPE24753; t31792.value.structure_type24753 = t31791; t31758 = f13633(t31792); /* x164148 stalin.sc:23468:817770 */ /* x164142 stalin.sc:23468:817776 */ /* x164141 stalin.sc:23468:817781 */ t31796 = a30335; /* x164140 stalin.sc:23468:817777 */ t31797.tag = STRUCTURE_TYPE24753; t31797.value.structure_type24753 = t31796; t31798 = (struct structure_type24753 *)NULL_TYPE; t31793 = f13617(t31797, t31798); /* x164147 stalin.sc:23468:817784 */ /* x164144 stalin.sc:23468:817793 */ t31799 = p17575->p17571->p17554->a30315; /* x164145 stalin.sc:23468:817796 */ t31800 = a30334; /* x164146 stalin.sc:23468:817799 */ t31801 = p17575->p17571->p17554->a30316; /* x164143 stalin.sc:23468:817785 */ t31794 = f14485(t31799, t31800, t31801); /* x164139 stalin.sc:23468:817771 */ t31795.tag = STRUCTURE_TYPE24753; t31795.value.structure_type24753 = t31793; t31759 = f13637(t31795, t31794); /* x164102 stalin.sc:23459:817536 */ t31760.tag = STRUCTURE_TYPE24753; t31760.value.structure_type24753 = t31759; t31740 = f13671(t31756, t31757, t31758, t31760); /* x164101 stalin.sc:23453:817272 */ /* x164093 stalin.sc:23453:817297 */ t31746 = p17573->p17571->a30332; /* x164094 stalin.sc:23453:817299 */ t31747 = p17573->p17571->a30331; /* x164099 stalin.sc:23453:817301 */ /* x164096 stalin.sc:23453:817310 */ t31750 = p17573->p17571->p17554->a30313; /* x164097 stalin.sc:23453:817313 */ t31751 = p17573->a30333; /* x164098 stalin.sc:23453:817316 */ t31752 = p17573->p17571->p17554->a30314; /* x164095 stalin.sc:23453:817302 */ t31748 = f14485(t31750, t31751, t31752); /* x164100 stalin.sc:23453:817320 */ t31749 = p17573->p17571->p17554->a30304; /* x164092 stalin.sc:23453:817273 */ t31739 = f15607(t31746, t31747, t31748, t31749); /* x164091 stalin.sc:23452:817250 */ t31745.tag = STRUCTURE_TYPE24753; t31745.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31745.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23452, 817249); out_of_memory_error();} t31745.value.structure_type24753->s0 = t31741; t31745.value.structure_type24753->s1.tag = NULL_TYPE; t31744.tag = STRUCTURE_TYPE24753; t31744.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31744.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23452, 817249); out_of_memory_error();} t31744.value.structure_type24753->s0 = t31740; t31744.value.structure_type24753->s1 = t31745; a41795 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41795==NULL) {backtrace("stalin.sc", 23452, 817249); out_of_memory_error();} a41795->s0 = t31739; a41795->s1 = t31744; /* x301292 stalin.sc:14400:506485 */ /* x301291 stalin.sc:14400:506503 */ t31742 = a41795; /* x301290 stalin.sc:14400:506486 */ t31743.tag = STRUCTURE_TYPE24753; t31743.value.structure_type24753 = t31742; return f13492(t31743);} /* [inside top level 17572] */ struct w49 f17572(void) {struct p17571 *p17572 = d17572; struct w49 a30333 = b30333; /* U1 */ struct structure_type24753 *a30339; /* T */ struct structure_type24753 *a41796; /* CS */ struct structure_type24753 *a42017; /* CS */ int t31816; int t31817; struct w49 t31818; struct w49 t31819; struct w49 t31820; struct w49 t31821; struct structure_type24753 *t31822; struct w49 t31823; struct w49 t31824; struct w49 t31825; struct w49 t31826; struct w49 t31827; struct w49 t31828; struct structure_type27745 *t31829; struct w49 t31830; struct w49 t31831; struct w49 t31832; struct p17572 *t31833; struct structure_type24753 *t31834; struct p17572 *t31835; struct structure_type24753 *t31836; struct structure_type24753 *t31837; struct structure_type24753 *t31838; struct structure_type24753 *t31839; struct w49 t31840; struct structure_type24753 *t31841; struct structure_type24753 *t31842; struct w49 t31843; struct w49 t31844; struct structure_type24753 *t31845; struct w49 t31846; struct structure_type24753 *t31847; struct w49 t31848; struct w49 t31849; struct w49 t31850; char *t31851; struct w49 t31852; struct w49 t31853; struct w211113 t31854; struct structure_type24753 *t31855; struct structure_type24753 *t31856; struct w49 t31857; struct w49 t31858; struct structure_type24753 *t31859; struct w49 t31860; struct structure_type24753 *t31861; struct w49 t31862; struct w49 t31863; struct w49 t31864; struct w49 t31865; struct w49 t31866; struct w211113 t31867; struct w49 t31868; struct w49 t31869; struct w49 t31870; struct structure_type24753 *t31871; struct w61020 t31872; struct structure_type24753 *t31873; struct structure_type24753 *t31874; struct w49 t31875; struct w49 t31876; struct structure_type24753 *t31877; struct w49 t31878; struct structure_type24753 *t31879; char t31880; struct w49 t31881; unsigned t31882; int t31883; struct structure_type24753 *t31884; struct w49 t31885; struct w49 t31886; struct structure_type24753 *t31887; struct structure_type24753 *t31888; struct w49 t31889; struct w49 t31890; struct structure_type24753 *t31891; struct w49 t31892; unsigned t31893; struct structure_type27501 *t31894; struct w12218 t31895; struct w49 t31896; struct structure_type27501 *t31897; struct w49 t31898; struct p17572 *t31899; struct p17554 *t31900; struct p17572 *e17572; struct p17572 *p17577; struct p17572 *p17578; e17572 = (struct p17572 *)GC_malloc(sizeof(struct p17572)); if (e17572==NULL) {backtrace("stalin.sc", 23444, 817135); out_of_memory_error();} e17572->p17571 = p17572; e17572->a30333 = a30333; /* x164267 stalin.sc:23445:817154 */ /* x164085 stalin.sc:23445:817158 */ /* x164083 stalin.sc:23445:817161 */ /* x164082 stalin.sc:23445:817169 */ t31818 = p17572->p17554->a30307; /* x164081 stalin.sc:23445:817162 */ t31816 = f26227(t31818); /* x164084 stalin.sc:23445:817173 */ t31817 = 2; /* x268121 stalin.sc:23445:817159 */ if (!(t31816==t31817)) goto l4419; /* x164183 stalin.sc:23446:817179 */ /* x164087 stalin.sc:23447:817196 */ /* x164088 stalin.sc:23448:817211 */ t31896 = p17572->p17554->a30316; /* x164089 stalin.sc:23449:817218 */ t31897 = p17572->p17554->a30303; /* x164090 stalin.sc:23450:817224 */ t31898 = p17572->p17554->a30315; /* x164176 stalin.sc:23451:817231 */ t31899 = e17572; /* x164182 stalin.sc:23470:817837 */ t31900 = p17572->p17554; /* x164086 stalin.sc:23446:817180 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7431; b26112 = t31896; b26113 = t31897; b26114 = t31898; b26115.tag = NATIVE_PROCEDURE_TYPE21957; b26115.value.native_procedure_type21957 = t31899; b26116.tag = NATIVE_PROCEDURE_TYPE21956; b26116.value.native_procedure_type21956 = t31900; return f14692(); l4419: /* x164266 stalin.sc:23474:818058 */ /* x164265 stalin.sc:23490:818589 */ /* x164264 stalin.sc:23490:818605 */ t31894 = p17572->p17554->a30303; /* x164263 stalin.sc:23490:818590 */ /* MOVE: branching squeezed to general */ if (t31894>=((struct structure_type27501 *)VALUE_OFFSET)) {t31895.tag = STRUCTURE_TYPE27501; t31895.value.structure_type27501 = t31894;} else t31895.tag = (unsigned)t31894; t31821 = f15342(t31895); /* x164262 stalin.sc:23476:818134 */ /* x164261 stalin.sc:23476:818143 */ /* x164260 stalin.sc:23476:818148 */ t31893 = a860; /* x164259 stalin.sc:23476:818144 */ t31834 = f14288(t31893); /* x164258 */ t31833 = e17572; p17577 = t31833; a30339 = t31834; /* x164257 */ /* x164246 stalin.sc:23477:818161 */ /* x164245 stalin.sc:23477:818172 */ /* x164243 stalin.sc:23477:818175 */ t31882 = a860; /* x164244 stalin.sc:23477:818180 */ t31883 = 1; /* x268119 stalin.sc:23477:818173 */ if (!((t31882&1)==1)) {backtrace("stalin.sc", 23477, 818172); plus_error();} a860 = (((unsigned)(((int)(((int)t31882)>>1))+t31883))<<1)+1; /* x164256 stalin.sc:23478:818189 */ /* x164255 stalin.sc:23480:818267 */ /* x164254 stalin.sc:23480:818284 */ /* x164253 stalin.sc:23480:818306 */ /* x164252 stalin.sc:23480:818319 */ t31891 = a30339; /* x164251 stalin.sc:23480:818307 */ t31892.tag = STRUCTURE_TYPE24753; t31892.value.structure_type24753 = t31891; t31887 = f13516(t31892); /* x164250 stalin.sc:23480:818299 */ t31886 = a1252; /* x164249 stalin.sc:23480:818285 */ t31890.tag = STRUCTURE_TYPE24753; t31890.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31890.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23480, 818284); out_of_memory_error();} t31890.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t31890.value.structure_type24753->s0.value.structure_type24753 = t31887; t31890.value.structure_type24753->s1.tag = NULL_TYPE; a42017 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42017==NULL) {backtrace("stalin.sc", 23480, 818284); out_of_memory_error();} a42017->s0 = t31886; a42017->s1 = t31890; /* x302180 stalin.sc:14386:505956 */ /* x302179 stalin.sc:14386:505972 */ t31888 = a42017; /* x302178 stalin.sc:14386:505957 */ t31889.tag = STRUCTURE_TYPE24753; t31889.value.structure_type24753 = t31888; t31885 = f13474(t31889); /* x164248 stalin.sc:23480:818268 */ t31884 = f13514(t31885); /* x164247 stalin.sc:23478:818190 */ f13469(t31884); /* x164241 */ t31835 = p17577; p17578 = t31835; /* x164240 stalin.sc:23481:818330 */ /* x164210 stalin.sc:23481:818337 */ /* x164197 stalin.sc:23481:818342 */ t31841 = a30339; /* x164209 stalin.sc:23481:818344 */ /* x164208 stalin.sc:23481:818349 */ /* x164200 stalin.sc:23482:818371 */ t31848 = p17578->p17571->a30332; /* x164204 stalin.sc:23482:818373 */ /* x164202 stalin.sc:23482:818390 */ /* x164203 stalin.sc:23482:818403 */ t31853 = p17578->p17571->a30331; /* x164201 stalin.sc:23482:818374 */ t31854.tag = NATIVE_PROCEDURE_TYPE7822; t31849 = f8157(t31854, t31853); /* x164205 stalin.sc:23482:818406 */ t31850 = p17578->p17571->a30331; /* x164207 stalin.sc:23482:818408 */ /* x164206 stalin.sc:23482:818409 */ /* x276899 stalin.sc:14555:511005 */ t31851 = "0"; /* x164199 stalin.sc:23481:818350 */ t31852.tag = STRING_TYPE; t31852.value.string_type = t31851; t31845 = f14750(t31848, t31849, t31850, t31852); /* x164198 stalin.sc:23481:818345 */ t31846.tag = STRUCTURE_TYPE24753; t31846.value.structure_type24753 = t31845; t31847 = (struct structure_type24753 *)NULL_TYPE; t31842 = f13625(t31846, t31847); /* x164196 stalin.sc:23481:818338 */ t31843.tag = STRUCTURE_TYPE24753; t31843.value.structure_type24753 = t31841; t31844.tag = STRUCTURE_TYPE24753; t31844.value.structure_type24753 = t31842; t31836 = f13542(t31843, t31844); /* x164228 stalin.sc:23483:818422 */ /* x164212 stalin.sc:23483:818427 */ t31855 = a30339; /* x164227 stalin.sc:23483:818429 */ /* x164226 stalin.sc:23483:818434 */ /* x164215 stalin.sc:23484:818456 */ t31862 = p17578->p17571->a30332; /* x164219 stalin.sc:23485:818462 */ /* x164217 stalin.sc:23485:818479 */ /* x164218 stalin.sc:23485:818492 */ t31866 = p17578->p17571->a30331; /* x164216 stalin.sc:23485:818463 */ t31867.tag = NATIVE_PROCEDURE_TYPE7822; t31863 = f8157(t31867, t31866); /* x164220 stalin.sc:23486:818499 */ t31864 = p17578->p17571->a30331; /* x164225 stalin.sc:23487:818505 */ /* x164222 stalin.sc:23487:818514 */ t31868 = p17578->p17571->p17554->a30313; /* x164223 stalin.sc:23487:818517 */ t31869 = p17578->a30333; /* x164224 stalin.sc:23487:818520 */ t31870 = p17578->p17571->p17554->a30314; /* x164221 stalin.sc:23487:818506 */ t31865 = f14485(t31868, t31869, t31870); /* x164214 stalin.sc:23483:818435 */ t31859 = f14750(t31862, t31863, t31864, t31865); /* x164213 stalin.sc:23483:818430 */ t31860.tag = STRUCTURE_TYPE24753; t31860.value.structure_type24753 = t31859; t31861 = (struct structure_type24753 *)NULL_TYPE; t31856 = f13625(t31860, t31861); /* x164211 stalin.sc:23483:818423 */ t31857.tag = STRUCTURE_TYPE24753; t31857.value.structure_type24753 = t31855; t31858.tag = STRUCTURE_TYPE24753; t31858.value.structure_type24753 = t31856; t31837 = f13601(t31857, t31858); /* x164231 stalin.sc:23488:818532 */ /* x164230 stalin.sc:23488:818538 */ t31871 = a30339; /* x164229 stalin.sc:23488:818533 */ t31872.tag = STRUCTURE_TYPE24753; t31872.value.structure_type24753 = t31871; t31838 = f13633(t31872); /* x164239 stalin.sc:23489:818546 */ /* x164235 stalin.sc:23489:818552 */ /* x164234 stalin.sc:23489:818557 */ t31877 = a30339; /* x164233 stalin.sc:23489:818553 */ t31878.tag = STRUCTURE_TYPE24753; t31878.value.structure_type24753 = t31877; t31879 = (struct structure_type24753 *)NULL_TYPE; t31873 = f13617(t31878, t31879); /* x164238 stalin.sc:23489:818560 */ /* x164237 stalin.sc:23489:818573 */ t31880 = ' '; /* x164236 stalin.sc:23489:818561 */ t31881.tag = ((unsigned)((unsigned char)t31880))<<2; t31874 = f13529(t31881); /* x164232 stalin.sc:23489:818547 */ t31875.tag = STRUCTURE_TYPE24753; t31875.value.structure_type24753 = t31873; t31876.tag = STRUCTURE_TYPE24753; t31876.value.structure_type24753 = t31874; t31839 = f13637(t31875, t31876); /* x164195 stalin.sc:23481:818331 */ t31840.tag = STRUCTURE_TYPE24753; t31840.value.structure_type24753 = t31839; t31820 = f13671(t31836, t31837, t31838, t31840); /* x164194 stalin.sc:23475:818079 */ /* x164186 stalin.sc:23475:818104 */ t31826 = p17572->a30332; /* x164187 stalin.sc:23475:818106 */ t31827 = p17572->a30331; /* x164192 stalin.sc:23475:818108 */ /* x164189 stalin.sc:23475:818117 */ t31830 = p17572->p17554->a30313; /* x164190 stalin.sc:23475:818120 */ t31831 = e17572->a30333; /* x164191 stalin.sc:23475:818123 */ t31832 = p17572->p17554->a30314; /* x164188 stalin.sc:23475:818109 */ t31828 = f14485(t31830, t31831, t31832); /* x164193 stalin.sc:23475:818127 */ t31829 = p17572->p17554->a30304; /* x164185 stalin.sc:23475:818080 */ t31819 = f15607(t31826, t31827, t31828, t31829); /* x164184 stalin.sc:23474:818059 */ t31825.tag = STRUCTURE_TYPE24753; t31825.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31825.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23474, 818058); out_of_memory_error();} t31825.value.structure_type24753->s0 = t31821; t31825.value.structure_type24753->s1.tag = NULL_TYPE; t31824.tag = STRUCTURE_TYPE24753; t31824.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31824.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23474, 818058); out_of_memory_error();} t31824.value.structure_type24753->s0 = t31820; t31824.value.structure_type24753->s1 = t31825; a41796 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41796==NULL) {backtrace("stalin.sc", 23474, 818058); out_of_memory_error();} a41796->s0 = t31819; a41796->s1 = t31824; /* x301296 stalin.sc:14400:506485 */ /* x301295 stalin.sc:14400:506503 */ t31822 = a41796; /* x301294 stalin.sc:14400:506486 */ t31823.tag = STRUCTURE_TYPE24753; t31823.value.structure_type24753 = t31822; return f13492(t31823);} /* [inside top level 17569] */ struct structure_type24753 *f17569(struct p17554 *p17569, unsigned a30330) {char *t31901; struct structure_type27745 *t31902; unsigned t31903; struct w49 t31904; /* x164070 stalin.sc:23435:816972 */ /* x164067 stalin.sc:23435:816987 */ t31901 = "make_string1"; /* x164068 stalin.sc:23435:817002 */ t31902 = p17569->a30304; /* x164069 stalin.sc:23435:817004 */ t31903 = a30330; /* x164066 stalin.sc:23435:816973 */ t31904.tag = STRUCTURE_TYPE27745; t31904.value.structure_type27745 = t31902; return f15534(t31901, t31904, t31903);} /* [inside top level 17568] */ struct structure_type24753 *f17568(struct p17554 *p17568, unsigned a30329) {char *t31905; struct structure_type27745 *t31906; unsigned t31907; struct w49 t31908; /* x164058 stalin.sc:23433:816894 */ /* x164055 stalin.sc:23433:816909 */ t31905 = "make_string2"; /* x164056 stalin.sc:23433:816924 */ t31906 = p17568->a30304; /* x164057 stalin.sc:23433:816926 */ t31907 = a30329; /* x164054 stalin.sc:23433:816895 */ t31908.tag = STRUCTURE_TYPE27745; t31908.value.structure_type27745 = t31906; return f15534(t31905, t31908, t31907);} /* [inside top level 17567] */ struct w49 f17567(struct p17554 *p17567) {struct structure_type27501 *t31909; struct w12218 t31910; /* x164052 stalin.sc:23432:816853 */ /* x164051 stalin.sc:23432:816869 */ t31909 = p17567->a30303; /* x164050 stalin.sc:23432:816854 */ /* MOVE: branching squeezed to general */ if (t31909>=((struct structure_type27501 *)VALUE_OFFSET)) {t31910.tag = STRUCTURE_TYPE27501; t31910.value.structure_type27501 = t31909;} else t31910.tag = (unsigned)t31909; return f15342(t31910);} /* [inside top level 17566] */ struct w49 f17566(void) {struct p17554 *p17566 = d17566; int t31911; int t31912; struct w49 t31913; struct structure_type27501 *t31914; struct w12218 t31915; struct w49 t31916; struct structure_type27501 *t31917; struct w49 t31918; struct p17554 *t31919; struct p17554 *t31920; /* x164064 stalin.sc:23427:816752 */ /* x164044 stalin.sc:23427:816756 */ /* x164042 stalin.sc:23427:816759 */ /* x164041 stalin.sc:23427:816767 */ t31913 = p17566->a30307; /* x164040 stalin.sc:23427:816760 */ t31911 = f26227(t31913); /* x164043 stalin.sc:23427:816771 */ t31912 = 2; /* x268122 stalin.sc:23427:816757 */ if (!(t31911==t31912)) goto l4421; /* x164060 stalin.sc:23428:816776 */ /* x164046 stalin.sc:23428:816789 */ /* x164047 stalin.sc:23429:816808 */ t31916 = p17566->a30316; /* x164048 stalin.sc:23430:816819 */ t31917 = p17566->a30303; /* x164049 stalin.sc:23431:816829 */ t31918 = p17566->a30315; /* x164053 stalin.sc:23432:816840 */ t31919 = p17566; /* x164059 stalin.sc:23433:816881 */ t31920 = p17566; /* x164045 stalin.sc:23428:816777 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7431; b26112 = t31916; b26113 = t31917; b26114 = t31918; b26115.tag = NATIVE_PROCEDURE_TYPE21964; b26115.value.native_procedure_type21964 = t31919; b26116.tag = NATIVE_PROCEDURE_TYPE21963; b26116.value.native_procedure_type21963 = t31920; return f14692(); l4421: /* x164063 stalin.sc:23434:816934 */ /* x164062 stalin.sc:23434:816950 */ t31914 = p17566->a30303; /* x164061 stalin.sc:23434:816935 */ /* MOVE: branching squeezed to general */ if (t31914>=((struct structure_type27501 *)VALUE_OFFSET)) {t31915.tag = STRUCTURE_TYPE27501; t31915.value.structure_type27501 = t31914;} else t31915.tag = (unsigned)t31914; return f15342(t31915);} /* [inside top level 17564] */ struct structure_type24753 *f17564(struct p17554 *p17564, unsigned a30326) {char *t31921; struct structure_type27745 *t31922; unsigned t31923; struct w49 t31924; /* x164019 stalin.sc:23419:816590 */ /* x164016 stalin.sc:23419:816605 */ t31921 = "make_string1"; /* x164017 stalin.sc:23419:816620 */ t31922 = p17564->a30304; /* x164018 stalin.sc:23419:816622 */ t31923 = a30326; /* x164015 stalin.sc:23419:816591 */ t31924.tag = STRUCTURE_TYPE27745; t31924.value.structure_type27745 = t31922; return f15534(t31921, t31924, t31923);} /* [inside top level 17563] */ struct structure_type24753 *f17563(struct p17554 *p17563, unsigned a30325) {char *t31925; struct structure_type27745 *t31926; unsigned t31927; struct w49 t31928; /* x164007 stalin.sc:23417:816515 */ /* x164004 stalin.sc:23417:816530 */ t31925 = "make_string2"; /* x164005 stalin.sc:23417:816545 */ t31926 = p17563->a30304; /* x164006 stalin.sc:23417:816547 */ t31927 = a30325; /* x164003 stalin.sc:23417:816516 */ t31928.tag = STRUCTURE_TYPE27745; t31928.value.structure_type27745 = t31926; return f15534(t31925, t31928, t31927);} /* [inside top level 17562] */ struct w49 f17562(struct p17554 *p17562) {struct structure_type27501 *t31929; /* x164001 stalin.sc:23416:816477 */ /* x164000 stalin.sc:23416:816490 */ t31929 = p17562->a30303; /* x163999 stalin.sc:23416:816478 */ return f14707(t31929);} /* [inside top level 17561] */ struct w49 f17561(void) {struct p17554 *p17561 = d17561; int t31930; int t31931; struct w49 t31932; struct structure_type27501 *t31933; struct w49 t31934; struct structure_type27501 *t31935; struct w49 t31936; struct p17554 *t31937; struct p17554 *t31938; /* x164013 stalin.sc:23411:816376 */ /* x163993 stalin.sc:23411:816380 */ /* x163991 stalin.sc:23411:816383 */ /* x163990 stalin.sc:23411:816391 */ t31932 = p17561->a30307; /* x163989 stalin.sc:23411:816384 */ t31930 = f26227(t31932); /* x163992 stalin.sc:23411:816395 */ t31931 = 2; /* x268124 stalin.sc:23411:816381 */ if (!(t31930==t31931)) goto l4423; /* x164009 stalin.sc:23412:816400 */ /* x163995 stalin.sc:23412:816413 */ /* x163996 stalin.sc:23413:816432 */ t31934 = p17561->a30316; /* x163997 stalin.sc:23414:816443 */ t31935 = p17561->a30303; /* x163998 stalin.sc:23415:816453 */ t31936 = p17561->a30315; /* x164002 stalin.sc:23416:816464 */ t31937 = p17561; /* x164008 stalin.sc:23417:816502 */ t31938 = p17561; /* x163994 stalin.sc:23412:816401 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7431; b26112 = t31934; b26113 = t31935; b26114 = t31936; b26115.tag = NATIVE_PROCEDURE_TYPE21969; b26115.value.native_procedure_type21969 = t31937; b26116.tag = NATIVE_PROCEDURE_TYPE21968; b26116.value.native_procedure_type21968 = t31938; return f14692(); l4423: /* x164012 stalin.sc:23418:816555 */ /* x164011 stalin.sc:23418:816568 */ t31933 = p17561->a30303; /* x164010 stalin.sc:23418:816556 */ return f14707(t31933);} /* [inside top level 17559] */ struct structure_type24753 *f17559(struct p17554 *p17559, unsigned a30322) {char *t31939; struct structure_type27745 *t31940; unsigned t31941; struct w49 t31942; /* x163975 stalin.sc:23403:816243 */ /* x163972 stalin.sc:23403:816258 */ t31939 = "make_string1"; /* x163973 stalin.sc:23403:816273 */ t31940 = p17559->a30304; /* x163974 stalin.sc:23403:816275 */ t31941 = a30322; /* x163971 stalin.sc:23403:816244 */ t31942.tag = STRUCTURE_TYPE27745; t31942.value.structure_type27745 = t31940; return f15534(t31939, t31942, t31941);} /* [inside top level 17558] */ struct structure_type24753 *f17558(struct p17554 *p17558, unsigned a30321) {char *t31943; struct structure_type27745 *t31944; unsigned t31945; struct w49 t31946; /* x163964 stalin.sc:23401:816175 */ /* x163961 stalin.sc:23401:816190 */ t31943 = "make_string2"; /* x163962 stalin.sc:23401:816205 */ t31944 = p17558->a30304; /* x163963 stalin.sc:23401:816207 */ t31945 = a30321; /* x163960 stalin.sc:23401:816176 */ t31946.tag = STRUCTURE_TYPE27745; t31946.value.structure_type27745 = t31944; return f15534(t31943, t31946, t31945);} /* [inside top level 17557] */ char *f17557(void) {/* x163958 stalin.sc:23400:816144 */ /* x163957 stalin.sc:23400:816145 */ /* x276517 stalin.sc:14693:514793 */ return "";} /* [inside top level 17556] */ struct w49 f17556(void) {struct w49 r17556; struct p17554 *p17556 = d17556; int t31947; int t31948; struct w49 t31949; struct w49 t31950; struct structure_type27501 *t31951; struct w49 t31952; struct p17554 *t31953; /* x163969 stalin.sc:23395:816043 */ /* x163951 stalin.sc:23395:816047 */ /* x163949 stalin.sc:23395:816050 */ /* x163948 stalin.sc:23395:816058 */ t31949 = p17556->a30307; /* x163947 stalin.sc:23395:816051 */ t31947 = f26227(t31949); /* x163950 stalin.sc:23395:816062 */ t31948 = 2; /* x268125 stalin.sc:23395:816048 */ if (!(t31947==t31948)) goto l4425; /* x163966 stalin.sc:23396:816067 */ /* x163953 stalin.sc:23396:816080 */ /* x163954 stalin.sc:23397:816099 */ t31950 = p17556->a30316; /* x163955 stalin.sc:23398:816110 */ t31951 = p17556->a30303; /* x163956 stalin.sc:23399:816120 */ t31952 = p17556->a30315; /* x163959 stalin.sc:23400:816131 */ /* x163965 stalin.sc:23401:816162 */ t31953 = p17556; /* x163952 stalin.sc:23396:816068 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7431; b26112 = t31950; b26113 = t31951; b26114 = t31952; b26115.tag = NATIVE_PROCEDURE_TYPE21974; b26116.tag = NATIVE_PROCEDURE_TYPE21973; b26116.value.native_procedure_type21973 = t31953; return f14692(); l4425: /* x163968 stalin.sc:23402:816215 */ /* x163967 stalin.sc:23402:816216 */ /* x276519 stalin.sc:14693:514793 */ r17556.tag = STRING_TYPE; r17556.value.string_type = ""; return r17556;} /* [inside top level 17549] */ struct structure_type24753 *f17549(void) {struct structure_type24753 *a34960; /* OBJS */ struct w49 t31954; /* x163915 stalin.sc:23381:815649 */ /* x163914 stalin.sc:23381:815668 */ /* x163913 stalin.sc:23381:815655 */ /* x163912 stalin.sc:23381:815650 */ t31954.tag = STRUCTURE_TYPE24753; t31954.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31954.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23381, 815649); out_of_memory_error();} t31954.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7431; t31954.value.structure_type24753->s1.tag = NULL_TYPE; a34960 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34960==NULL) {backtrace("stalin.sc", 23381, 815649); out_of_memory_error();} a34960->s0.tag = NATIVE_PROCEDURE_TYPE7430; a34960->s1 = t31954; /* x271927 */ return a34960;} /* [inside top level 17548] */ struct structure_type24753 *f17548(void) {struct structure_type24753 *a35041; /* OBJS */ struct w49 t31955; /* x163910 stalin.sc:23380:815617 */ /* x163909 stalin.sc:23380:815636 */ /* x163908 stalin.sc:23380:815623 */ /* x163907 stalin.sc:23380:815618 */ t31955.tag = STRUCTURE_TYPE24753; t31955.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31955.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23380, 815617); out_of_memory_error();} t31955.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7431; t31955.value.structure_type24753->s1.tag = NULL_TYPE; a35041 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35041==NULL) {backtrace("stalin.sc", 23380, 815617); out_of_memory_error();} a35041->s0.tag = NATIVE_PROCEDURE_TYPE7430; a35041->s1 = t31955; /* x272089 */ return a35041;} /* [inside top level 17547] */ struct p16302 *f17547(void) {unsigned t31956; unsigned t31957; /* x163905 stalin.sc:23379:815551 */ /* x163903 stalin.sc:23379:815591 */ /* x163904 stalin.sc:23379:815604 */ /* x163902 stalin.sc:23379:815552 */ t31956 = NATIVE_PROCEDURE_TYPE7430; t31957 = NATIVE_PROCEDURE_TYPE7431; return f16302(t31956, t31957);} /* [inside top level 17538] */ unsigned f17538(struct w49 a30241) {struct w49 a37752; /* OBJ */ struct w49 t31958; struct w49 t31959; /* x163850 stalin.sc:23368:815171 */ /* x163850 stalin.sc:23368:815171 */ /* x163849 stalin.sc:23368:815176 */ /* x163848 stalin.sc:23368:815190 */ t31958 = a30241; /* x163847 stalin.sc:23368:815177 */ a37752 = t31958; /* x283677 */ /* x283676 */ t31959 = a37752; /* x283675 */ if ((t31959.tag)==STRUCTURE_TYPE27673) goto l4427; return TRUE_TYPE; l4427: return FALSE_TYPE;} /* [inside top level 17537] */ struct structure_type24753 *f17537(void) {struct structure_type24753 *a34961; /* OBJS */ /* x163852 stalin.sc:23368:815153 */ /* x163851 stalin.sc:23368:815159 */ /* x163845 stalin.sc:23368:815154 */ a34961 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34961==NULL) {backtrace("stalin.sc", 23368, 815153); out_of_memory_error();} a34961->s0.tag = NATIVE_PROCEDURE_TYPE22485; a34961->s1.tag = NULL_TYPE; /* x271929 */ return a34961;} /* [inside top level 17534] */ struct structure_type24753 *f17534(struct p17532 *p17534, unsigned a30229) {char *t31960; struct structure_type27745 *t31961; unsigned t31962; struct w49 t31963; /* x163823 stalin.sc:23362:814985 */ /* x163820 stalin.sc:23362:815000 */ t31960 = "integer_to_char1"; /* x163821 stalin.sc:23362:815019 */ t31961 = p17534->a30213; /* x163822 stalin.sc:23362:815021 */ t31962 = a30229; /* x163819 stalin.sc:23362:814986 */ t31963.tag = STRUCTURE_TYPE27745; t31963.value.structure_type27745 = t31961; return f15534(t31960, t31963, t31962);} /* [inside top level 17533] */ struct w49 f17533(struct p17532 *p17533, struct w49 a30228) {struct structure_type24753 *a41794; /* CS */ struct w49 t31964; struct w49 t31965; struct structure_type24753 *t31966; struct w49 t31967; struct w49 t31968; struct structure_type24753 *t31969; struct structure_type24753 *t31970; char *t31971; struct w49 t31972; struct w49 t31973; unsigned t31974; struct structure_type24753 *t31975; struct structure_type24753 *t31976; struct structure_type24753 *t31977; struct w49 t31978; struct w49 t31979; struct w49 t31980; struct w49 t31981; struct w49 t31982; struct w49 t31983; char *t31984; struct w49 t31985; struct w49 t31986; struct w49 t31987; struct w49 t31988; char *t31989; struct structure_type27745 *t31990; struct w49 t31991; unsigned t31992; struct structure_type27501 *t31993; struct structure_type24753 *t31994; struct w49 t31995; unsigned t31996; struct w49 t31997; struct w49 t31998; struct w49 t31999; struct w49 t32000; /* x163817 stalin.sc:23353:814685 */ /* x163816 stalin.sc:23361:814905 */ /* x163807 stalin.sc:23361:814912 */ t31993 = p17533->a30212; /* x163814 stalin.sc:23361:814914 */ /* x163813 stalin.sc:23361:814936 */ /* x163810 stalin.sc:23361:814945 */ t31998 = p17533->a30222; /* x163811 stalin.sc:23361:814948 */ t31999 = a30228; /* x163812 stalin.sc:23361:814951 */ t32000 = p17533->a30223; /* x163809 stalin.sc:23361:814937 */ t31997 = f14485(t31998, t31999, t32000); /* x163808 stalin.sc:23361:814915 */ t31994 = f13548(t31997); /* x163815 stalin.sc:23361:814956 */ /* x163806 stalin.sc:23361:814906 */ t31995.tag = STRUCTURE_TYPE24753; t31995.value.structure_type24753 = t31994; t31996 = (unsigned)NATIVE_PROCEDURE_TYPE7431; t31965 = f15508(t31993, t31995, t31996); /* x163805 stalin.sc:23354:814706 */ /* x163774 stalin.sc:23354:814710 */ if (a707==FALSE_TYPE) goto l4430; /* x163802 stalin.sc:23355:814728 */ /* x163793 stalin.sc:23355:814734 */ /* x163792 stalin.sc:23356:814781 */ /* x163789 stalin.sc:23356:814787 */ /* x163786 stalin.sc:23356:814796 */ t31986 = p17533->a30222; /* x163787 stalin.sc:23356:814799 */ t31987 = a30228; /* x163788 stalin.sc:23356:814802 */ t31988 = p17533->a30223; /* x163785 stalin.sc:23356:814788 */ t31983 = f14485(t31986, t31987, t31988); /* x163791 stalin.sc:23356:814806 */ /* x163790 stalin.sc:23356:814807 */ /* x122978 stalin.sc:14567:511395 */ t31984 = "256"; /* x163784 stalin.sc:23356:814782 */ t31985.tag = STRING_TYPE; t31985.value.string_type = t31984; t31976 = f13608(t31983, t31985); /* x163783 stalin.sc:23355:814748 */ /* x163782 stalin.sc:23355:814754 */ /* x163779 stalin.sc:23355:814763 */ t31980 = p17533->a30222; /* x163780 stalin.sc:23355:814766 */ t31981 = a30228; /* x163781 stalin.sc:23355:814769 */ t31982 = p17533->a30223; /* x163778 stalin.sc:23355:814755 */ t31979 = f14485(t31980, t31981, t31982); /* x163777 stalin.sc:23355:814749 */ t31975 = f13602(t31979); /* x163776 stalin.sc:23355:814735 */ t31978.tag = STRUCTURE_TYPE24753; t31978.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31978.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23355, 814734); out_of_memory_error();} t31978.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t31978.value.structure_type24753->s0.value.structure_type24753 = t31976; t31978.value.structure_type24753->s1.tag = NULL_TYPE; t31977 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t31977==NULL) {backtrace("stalin.sc", 23355, 814734); out_of_memory_error();} t31977->s0.tag = STRUCTURE_TYPE24753; t31977->s0.value.structure_type24753 = t31975; t31977->s1 = t31978; t31969 = f13556(t31977); /* x163798 stalin.sc:23357:814823 */ /* x163795 stalin.sc:23357:814838 */ t31989 = "integer_to_char2"; /* x163796 stalin.sc:23357:814857 */ t31990 = p17533->a30213; /* x163797 stalin.sc:23357:814859 */ /* x163794 stalin.sc:23357:814824 */ t31991.tag = STRUCTURE_TYPE27745; t31991.value.structure_type27745 = t31990; t31992 = FALSE_TYPE; t31970 = f15534(t31989, t31991, t31992); /* x163800 stalin.sc:23358:814870 */ /* x163799 stalin.sc:23358:814871 */ /* x276513 stalin.sc:14693:514793 */ t31971 = ""; /* x163801 stalin.sc:23359:814886 */ /* x163775 stalin.sc:23355:814729 */ t31972.tag = STRUCTURE_TYPE24753; t31972.value.structure_type24753 = t31970; t31973.tag = STRING_TYPE; t31973.value.string_type = t31971; t31974 = FALSE_TYPE; t31964 = f13672(t31969, t31972, t31973, t31974); goto l4431; l4430: /* x163804 stalin.sc:23360:814891 */ /* x163803 stalin.sc:23360:814892 */ /* x276515 stalin.sc:14693:514793 */ t31964.tag = STRING_TYPE; t31964.value.string_type = ""; l4431: /* x163773 stalin.sc:23353:814686 */ t31968.tag = STRUCTURE_TYPE24753; t31968.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t31968.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23353, 814685); out_of_memory_error();} t31968.value.structure_type24753->s0 = t31965; t31968.value.structure_type24753->s1.tag = NULL_TYPE; a41794 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41794==NULL) {backtrace("stalin.sc", 23353, 814685); out_of_memory_error();} a41794->s0 = t31964; a41794->s1 = t31968; /* x301288 stalin.sc:14400:506485 */ /* x301287 stalin.sc:14400:506503 */ t31966 = a41794; /* x301286 stalin.sc:14400:506486 */ t31967.tag = STRUCTURE_TYPE24753; t31967.value.structure_type24753 = t31966; return f13492(t31967);} /* [inside top level 17525] */ struct structure_type24753 *f17525(struct p17523 *p17525, unsigned a30185) {char *t32001; struct structure_type27745 *t32002; unsigned t32003; struct w49 t32004; /* x163733 stalin.sc:23338:814352 */ /* x163730 stalin.sc:23338:814367 */ t32001 = "char_to_integer"; /* x163731 stalin.sc:23338:814385 */ t32002 = p17525->a30169; /* x163732 stalin.sc:23338:814387 */ t32003 = a30185; /* x163729 stalin.sc:23338:814353 */ t32004.tag = STRUCTURE_TYPE27745; t32004.value.structure_type27745 = t32002; return f15534(t32001, t32004, t32003);} /* [inside top level 17524] */ struct w49 f17524(struct p17523 *p17524, struct w49 a30184) {struct structure_type27501 *t32005; struct structure_type24753 *t32006; struct w49 t32007; unsigned t32008; struct structure_type24753 *t32009; struct w49 t32010; struct w49 t32011; struct w49 t32012; struct w49 t32013; struct w49 t32014; /* x163727 stalin.sc:23336:814251 */ /* x163716 stalin.sc:23337:814262 */ t32005 = p17524->a30168; /* x163725 stalin.sc:23337:814264 */ /* x163724 stalin.sc:23337:814279 */ /* x163723 stalin.sc:23337:814301 */ /* x163720 stalin.sc:23337:814310 */ t32012 = p17524->a30178; /* x163721 stalin.sc:23337:814313 */ t32013 = a30184; /* x163722 stalin.sc:23337:814316 */ t32014 = p17524->a30179; /* x163719 stalin.sc:23337:814302 */ t32011 = f14485(t32012, t32013, t32014); /* x163718 stalin.sc:23337:814280 */ t32009 = f13548(t32011); /* x163717 stalin.sc:23337:814265 */ t32010.tag = STRUCTURE_TYPE24753; t32010.value.structure_type24753 = t32009; t32006 = f13549(t32010); /* x163726 stalin.sc:23337:814322 */ /* x163715 stalin.sc:23336:814252 */ t32007.tag = STRUCTURE_TYPE24753; t32007.value.structure_type24753 = t32006; t32008 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t32005, t32007, t32008);} /* [inside top level 17508] */ unsigned f17508(struct w49 a30108) {struct w49 t32015; /* x163637 stalin.sc:23314:813672 */ /* x163637 stalin.sc:23314:813672 */ /* x163636 stalin.sc:23314:813677 */ /* x163635 stalin.sc:23314:813689 */ t32015 = a30108; /* x163634 stalin.sc:23314:813678 */ if (!(f7682(t32015)==FALSE_TYPE)) goto l4433; return TRUE_TYPE; l4433: return FALSE_TYPE;} /* [inside top level 17507] */ struct structure_type24753 *f17507(void) {struct structure_type24753 *a34964; /* OBJS */ /* x163639 stalin.sc:23314:813654 */ /* x163638 stalin.sc:23314:813660 */ /* x163632 stalin.sc:23314:813655 */ a34964 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34964==NULL) {backtrace("stalin.sc", 23314, 813654); out_of_memory_error();} a34964->s0.tag = NATIVE_PROCEDURE_TYPE22484; a34964->s1.tag = NULL_TYPE; /* x271935 */ return a34964;} /* [inside top level 17504] */ struct structure_type24753 *f17504(struct p17498 *p17504, unsigned a30096) {char *t32016; struct structure_type27745 *t32017; unsigned t32018; struct w49 t32019; /* x163610 stalin.sc:23308:813489 */ /* x163607 stalin.sc:23308:813504 */ t32016 = "inexact_to_exact1"; /* x163608 stalin.sc:23308:813524 */ t32017 = p17504->a30080; /* x163609 stalin.sc:23308:813526 */ t32018 = a30096; /* x163606 stalin.sc:23308:813490 */ t32019.tag = STRUCTURE_TYPE27745; t32019.value.structure_type27745 = t32017; return f15534(t32016, t32019, t32018);} /* [inside top level 17499] */ struct w49 f17499(struct p17498 *p17499, struct w49 a30095) {struct structure_type24753 *a41799; /* CS */ struct w49 t32020; struct w49 t32021; struct w49 t32022; char *t32023; struct p17498 *t32024; struct w49 t32025; struct w49 t32026; struct structure_type24753 *t32027; struct w49 t32028; struct w49 t32029; struct structure_type24753 *t32030; struct structure_type24753 *t32031; char *t32032; struct w49 t32033; struct w49 t32034; unsigned t32035; struct structure_type24753 *t32036; struct w49 t32037; struct w49 t32038; struct w49 t32039; struct w49 t32040; char *t32041; struct structure_type27745 *t32042; struct w49 t32043; unsigned t32044; struct structure_type27501 *t32045; struct structure_type24753 *t32046; struct w49 t32047; unsigned t32048; struct structure_type24753 *t32049; struct w49 t32050; struct w49 t32051; struct w49 t32052; struct w49 t32053; struct w49 t32054; struct p17498 *t32055; struct structure_type27501 *t32056; struct structure_type24753 *t32057; struct w49 t32058; unsigned t32059; struct w49 t32060; struct w49 t32061; struct w49 t32062; struct w49 t32063; struct p17498 *t32064; struct structure_type27501 *t32065; struct w49 t32066; unsigned t32067; struct w49 t32068; struct w49 t32069; struct w49 t32070; struct p17498 *p17500; struct p17498 *p17501; struct p17498 *p17502; /* x163604 stalin.sc:23297:813078 */ /* x163531 stalin.sc:23297:813085 */ /* x163530 stalin.sc:23297:813099 */ t32020 = a30095; /* x163529 stalin.sc:23297:813086 */ if (f7683(t32020)==FALSE_TYPE) goto l4436; /* x163542 */ /* x163541 */ t32064 = p17499; p17500 = t32064; /* x163540 stalin.sc:23297:813103 */ /* x163533 stalin.sc:23297:813110 */ t32065 = p17500->a30079; /* x163538 stalin.sc:23297:813112 */ /* x163535 stalin.sc:23297:813121 */ t32068 = p17500->a30089; /* x163536 stalin.sc:23297:813124 */ t32069 = a30095; /* x163537 stalin.sc:23297:813127 */ t32070 = p17500->a30090; /* x163534 stalin.sc:23297:813113 */ t32066 = f14485(t32068, t32069, t32070); /* x163539 stalin.sc:23297:813131 */ /* x163532 stalin.sc:23297:813104 */ t32067 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t32065, t32066, t32067); l4436: /* x163603 */ /* x163545 stalin.sc:23298:813149 */ /* x163544 stalin.sc:23298:813163 */ t32021 = a30095; /* x163543 stalin.sc:23298:813150 */ if (f7684(t32021)==FALSE_TYPE) goto l4438; /* x163558 */ /* x163557 */ t32055 = p17499; p17501 = t32055; /* x163556 stalin.sc:23299:813170 */ /* x163547 stalin.sc:23299:813177 */ t32056 = p17501->a30079; /* x163554 stalin.sc:23299:813179 */ /* x163553 stalin.sc:23299:813194 */ /* x163550 stalin.sc:23299:813203 */ t32061 = p17501->a30089; /* x163551 stalin.sc:23299:813206 */ t32062 = a30095; /* x163552 stalin.sc:23299:813209 */ t32063 = p17501->a30090; /* x163549 stalin.sc:23299:813195 */ t32060 = f14485(t32061, t32062, t32063); /* x163548 stalin.sc:23299:813180 */ t32057 = f13549(t32060); /* x163555 stalin.sc:23299:813214 */ /* x163546 stalin.sc:23299:813171 */ t32058.tag = STRUCTURE_TYPE24753; t32058.value.structure_type24753 = t32057; t32059 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t32056, t32058, t32059); l4438: /* x163602 */ /* x163561 stalin.sc:23300:813232 */ /* x163560 stalin.sc:23300:813251 */ t32022 = a30095; /* x163559 stalin.sc:23300:813233 */ if (f7687(t32022)==FALSE_TYPE) goto l4440; /* x163597 */ /* x163596 */ t32024 = p17499; p17502 = t32024; /* x163595 stalin.sc:23301:813258 */ /* x163594 stalin.sc:23306:813387 */ /* x163583 stalin.sc:23306:813394 */ t32045 = p17502->a30079; /* x163592 stalin.sc:23306:813396 */ /* x163591 stalin.sc:23306:813411 */ /* x163590 stalin.sc:23306:813416 */ /* x163587 stalin.sc:23306:813425 */ t32052 = p17502->a30089; /* x163588 stalin.sc:23306:813428 */ t32053 = a30095; /* x163589 stalin.sc:23306:813431 */ t32054 = p17502->a30090; /* x163586 stalin.sc:23306:813417 */ t32051 = f14485(t32052, t32053, t32054); /* x163585 stalin.sc:23306:813412 */ t32049 = f14286(t32051); /* x163584 stalin.sc:23306:813397 */ t32050.tag = STRUCTURE_TYPE24753; t32050.value.structure_type24753 = t32049; t32046 = f13549(t32050); /* x163593 stalin.sc:23306:813437 */ /* x163582 stalin.sc:23306:813388 */ t32047.tag = STRUCTURE_TYPE24753; t32047.value.structure_type24753 = t32046; t32048 = (unsigned)NATIVE_PROCEDURE_TYPE7430; t32026 = f15508(t32045, t32047, t32048); /* x163581 stalin.sc:23302:813279 */ /* x163572 stalin.sc:23302:813285 */ /* x163571 stalin.sc:23302:813294 */ /* x163570 stalin.sc:23302:813299 */ /* x163567 stalin.sc:23302:813308 */ t32038 = p17502->a30089; /* x163568 stalin.sc:23302:813311 */ t32039 = a30095; /* x163569 stalin.sc:23302:813314 */ t32040 = p17502->a30090; /* x163566 stalin.sc:23302:813300 */ t32037 = f14485(t32038, t32039, t32040); /* x163565 stalin.sc:23302:813295 */ t32036 = f14278(t32037); /* x163564 stalin.sc:23302:813286 */ t32030 = f13600(t32036); /* x163577 stalin.sc:23303:813323 */ /* x163574 stalin.sc:23303:813338 */ t32041 = "inexact_to_exact2"; /* x163575 stalin.sc:23303:813358 */ t32042 = p17502->a30080; /* x163576 stalin.sc:23303:813360 */ /* x163573 stalin.sc:23303:813324 */ t32043.tag = STRUCTURE_TYPE27745; t32043.value.structure_type27745 = t32042; t32044 = FALSE_TYPE; t32031 = f15534(t32041, t32043, t32044); /* x163579 stalin.sc:23304:813367 */ /* x163578 stalin.sc:23304:813368 */ /* x276635 stalin.sc:14693:514793 */ t32032 = ""; /* x163580 stalin.sc:23305:813379 */ /* x163563 stalin.sc:23302:813280 */ t32033.tag = STRUCTURE_TYPE24753; t32033.value.structure_type24753 = t32031; t32034.tag = STRING_TYPE; t32034.value.string_type = t32032; t32035 = FALSE_TYPE; t32025 = f13672(t32030, t32033, t32034, t32035); /* x163562 stalin.sc:23301:813259 */ t32029.tag = STRUCTURE_TYPE24753; t32029.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32029.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23301, 813258); out_of_memory_error();} t32029.value.structure_type24753->s0 = t32026; t32029.value.structure_type24753->s1.tag = NULL_TYPE; a41799 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41799==NULL) {backtrace("stalin.sc", 23301, 813258); out_of_memory_error();} a41799->s0 = t32025; a41799->s1 = t32029; /* x301308 stalin.sc:14400:506485 */ /* x301307 stalin.sc:14400:506503 */ t32027 = a41799; /* x301306 stalin.sc:14400:506486 */ t32028.tag = STRUCTURE_TYPE24753; t32028.value.structure_type24753 = t32027; return f13492(t32028); l4440: /* x163601 */ /* x163600 */ /* x163599 stalin.sc:23307:813461 */ /* x163598 stalin.sc:23307:813462 */ /* x295653 QobiScheme.sc:166:5314 */ /* x295652 QobiScheme.sc:166:5321 */ t32023 = "This shouldn\'t happen"; /* x295651 QobiScheme.sc:166:5315 */ stalin_panic(t32023);} /* [inside top level 17491] */ struct structure_type24753 *f17491(struct p17485 *p17491, unsigned a30052) {char *t32071; struct structure_type27745 *t32072; unsigned t32073; struct w49 t32074; /* x163489 stalin.sc:23282:812741 */ /* x163486 stalin.sc:23282:812756 */ t32071 = "exact_to_inexact"; /* x163487 stalin.sc:23282:812775 */ t32072 = p17491->a30036; /* x163488 stalin.sc:23282:812777 */ t32073 = a30052; /* x163485 stalin.sc:23282:812742 */ t32074.tag = STRUCTURE_TYPE27745; t32074.value.structure_type27745 = t32072; return f15534(t32071, t32074, t32073);} /* [inside top level 17486] */ struct w49 f17486(struct p17485 *p17486, struct w49 a30051) {struct w49 t32075; struct w49 t32076; struct w49 t32077; char *t32078; struct p17485 *t32079; struct structure_type27501 *t32080; struct w49 t32081; unsigned t32082; struct w49 t32083; struct w49 t32084; struct w49 t32085; struct p17485 *t32086; struct structure_type27501 *t32087; struct w49 t32088; unsigned t32089; struct w49 t32090; struct w49 t32091; struct w49 t32092; struct p17485 *t32093; struct structure_type27501 *t32094; struct structure_type24753 *t32095; struct w49 t32096; unsigned t32097; struct w49 t32098; struct w49 t32099; struct w49 t32100; struct w49 t32101; struct p17485 *p17487; struct p17485 *p17488; struct p17485 *p17489; /* x163483 stalin.sc:23276:812468 */ /* x163435 stalin.sc:23277:812479 */ /* x163434 stalin.sc:23277:812493 */ t32075 = a30051; /* x163433 stalin.sc:23277:812480 */ if (f7683(t32075)==FALSE_TYPE) goto l4442; /* x163448 */ /* x163447 */ t32093 = p17486; p17487 = t32093; /* x163446 stalin.sc:23278:812502 */ /* x163437 stalin.sc:23278:812509 */ t32094 = p17487->a30035; /* x163444 stalin.sc:23278:812511 */ /* x163443 stalin.sc:23278:812526 */ /* x163440 stalin.sc:23278:812535 */ t32099 = p17487->a30045; /* x163441 stalin.sc:23278:812538 */ t32100 = a30051; /* x163442 stalin.sc:23278:812541 */ t32101 = p17487->a30046; /* x163439 stalin.sc:23278:812527 */ t32098 = f14485(t32099, t32100, t32101); /* x163438 stalin.sc:23278:812512 */ t32095 = f13550(t32098); /* x163445 stalin.sc:23278:812546 */ /* x163436 stalin.sc:23278:812503 */ t32096.tag = STRUCTURE_TYPE24753; t32096.value.structure_type24753 = t32095; t32097 = (unsigned)NATIVE_PROCEDURE_TYPE7429; return f15508(t32094, t32096, t32097); l4442: /* x163482 */ /* x163451 stalin.sc:23279:812566 */ /* x163450 stalin.sc:23279:812580 */ t32076 = a30051; /* x163449 stalin.sc:23279:812567 */ if (f7684(t32076)==FALSE_TYPE) goto l4444; /* x163462 */ /* x163461 */ t32086 = p17486; p17488 = t32086; /* x163460 stalin.sc:23279:812584 */ /* x163453 stalin.sc:23279:812591 */ t32087 = p17488->a30035; /* x163458 stalin.sc:23279:812593 */ /* x163455 stalin.sc:23279:812602 */ t32090 = p17488->a30045; /* x163456 stalin.sc:23279:812605 */ t32091 = a30051; /* x163457 stalin.sc:23279:812608 */ t32092 = p17488->a30046; /* x163454 stalin.sc:23279:812594 */ t32088 = f14485(t32090, t32091, t32092); /* x163459 stalin.sc:23279:812612 */ /* x163452 stalin.sc:23279:812585 */ t32089 = (unsigned)NATIVE_PROCEDURE_TYPE7429; return f15508(t32087, t32088, t32089); l4444: /* x163481 */ /* x163465 stalin.sc:23280:812632 */ /* x163464 stalin.sc:23280:812651 */ t32077 = a30051; /* x163463 stalin.sc:23280:812633 */ if (f7687(t32077)==FALSE_TYPE) goto l4446; /* x163476 */ /* x163475 */ t32079 = p17486; p17489 = t32079; /* x163474 stalin.sc:23280:812655 */ /* x163467 stalin.sc:23280:812662 */ t32080 = p17489->a30035; /* x163472 stalin.sc:23280:812664 */ /* x163469 stalin.sc:23280:812673 */ t32083 = p17489->a30045; /* x163470 stalin.sc:23280:812676 */ t32084 = a30051; /* x163471 stalin.sc:23280:812679 */ t32085 = p17489->a30046; /* x163468 stalin.sc:23280:812665 */ t32081 = f14485(t32083, t32084, t32085); /* x163473 stalin.sc:23280:812683 */ /* x163466 stalin.sc:23280:812656 */ t32082 = (unsigned)NATIVE_PROCEDURE_TYPE7427; return f15508(t32080, t32081, t32082); l4446: /* x163480 */ /* x163479 */ /* x163478 stalin.sc:23281:812713 */ /* x163477 stalin.sc:23281:812714 */ /* x295541 QobiScheme.sc:166:5314 */ /* x295540 QobiScheme.sc:166:5321 */ t32078 = "This shouldn\'t happen"; /* x295539 QobiScheme.sc:166:5315 */ stalin_panic(t32078);} /* [inside top level 17473] */ struct structure_type24753 *f17473(struct p17464 *p17473, unsigned a30007) {char *t32102; struct structure_type27745 *t32103; unsigned t32104; struct w49 t32105; /* x163370 stalin.sc:23257:812010 */ /* x163367 stalin.sc:23257:812025 */ t32102 = "expt1"; /* x163368 stalin.sc:23257:812033 */ t32103 = p17473->a29988; /* x163369 stalin.sc:23257:812035 */ t32104 = a30007; /* x163366 stalin.sc:23257:812011 */ t32105.tag = STRUCTURE_TYPE27745; t32105.value.structure_type27745 = t32103; return f15534(t32102, t32105, t32104);} /* [inside top level 17472] */ struct structure_type24753 *f17472(struct p17464 *p17472, unsigned a30006) {char *t32106; struct structure_type27745 *t32107; unsigned t32108; struct w49 t32109; /* x163362 stalin.sc:23256:811963 */ /* x163359 stalin.sc:23256:811978 */ t32106 = "expt2"; /* x163360 stalin.sc:23256:811986 */ t32107 = p17472->a29988; /* x163361 stalin.sc:23256:811988 */ t32108 = a30006; /* x163358 stalin.sc:23256:811964 */ t32109.tag = STRUCTURE_TYPE27745; t32109.value.structure_type27745 = t32107; return f15534(t32106, t32109, t32108);} /* [inside top level 17466] */ struct w49 f17466(struct p17465 *p17466, struct w49 a30004) {struct w49 r17466; struct w49 a25851; /* C1 */ struct w49 a25852; /* C2 */ struct w49 t32110; struct w49 t32111; struct w49 t32112; struct w49 t32113; struct w49 t32114; struct w49 t32115; char *t32116; struct p17465 *t32117; struct structure_type27501 *t32118; struct structure_type24753 *t32119; struct w49 t32120; unsigned t32121; struct w49 t32122; struct w49 t32123; struct w49 t32124; struct w49 t32125; struct w49 t32126; struct w49 t32127; struct w49 t32128; struct w49 t32129; struct p17464 *t32130; struct structure_type27745 *t32131; char *t32132; struct w6315 t32133; struct p17465 *t32134; struct structure_type24753 *t32135; struct w49 t32136; struct w49 t32137; unsigned t32138; struct w49 t32139; struct w49 t32140; struct w49 t32141; struct w49 t32142; struct structure_type27501 *t32143; struct structure_type24753 *t32144; struct w49 t32145; unsigned t32146; struct w49 t32147; struct w49 t32148; struct w49 t32149; struct w49 t32150; struct w49 t32151; struct w49 t32152; struct w49 t32153; struct w49 t32154; struct structure_type27501 *t32155; struct structure_type24753 *t32156; struct w49 t32157; unsigned t32158; struct w49 t32159; struct w49 t32160; char *t32161; struct w49 t32162; struct w49 t32163; struct w49 t32164; struct w12224 t32165; struct w49 t32166; struct w49 t32167; struct w49 t32168; struct w49 t32169; struct w49 t32170; struct w49 t32171; struct w49 t32172; struct p17465 *p17467; struct p17464 *p17469; struct p17465 *p17470; /* x163356 stalin.sc:23243:811381 */ /* x163262 stalin.sc:23244:811394 */ /* x163257 stalin.sc:23244:811399 */ /* x163256 stalin.sc:23244:811413 */ t32110 = p17466->a30003; /* x163255 stalin.sc:23244:811400 */ if (f7683(t32110)==FALSE_TYPE) goto l4448; /* x163260 */ /* x163259 stalin.sc:23244:811431 */ t32111 = a30004; /* x163258 stalin.sc:23244:811418 */ if (f7683(t32111)==FALSE_TYPE) goto l4448; /* x163306 */ /* x163305 */ t32134 = p17466; p17467 = t32134; /* x163304 stalin.sc:23245:811443 */ /* x163270 stalin.sc:23246:811450 */ /* x163269 stalin.sc:23246:811456 */ /* x163266 stalin.sc:23246:811465 */ t32140 = p17467->p17464->a29999; /* x163267 stalin.sc:23246:811468 */ t32141 = a30004; /* x163268 stalin.sc:23246:811471 */ t32142 = p17467->p17464->a30000; /* x163265 stalin.sc:23246:811457 */ t32139 = f14485(t32140, t32141, t32142); /* x163264 stalin.sc:23246:811451 */ t32135 = f13602(t32139); /* x163286 stalin.sc:23247:811477 */ /* x163272 stalin.sc:23247:811484 */ t32143 = p17467->p17464->a29987; /* x163284 stalin.sc:23247:811486 */ /* x163278 stalin.sc:23247:811493 */ /* x163275 stalin.sc:23247:811502 */ t32149 = p17467->p17464->a29997; /* x163276 stalin.sc:23247:811505 */ t32150 = p17467->a30003; /* x163277 stalin.sc:23247:811508 */ t32151 = p17467->p17464->a29998; /* x163274 stalin.sc:23247:811494 */ t32147 = f14485(t32149, t32150, t32151); /* x163283 stalin.sc:23247:811512 */ /* x163280 stalin.sc:23247:811521 */ t32152 = p17467->p17464->a29999; /* x163281 stalin.sc:23247:811524 */ t32153 = a30004; /* x163282 stalin.sc:23247:811527 */ t32154 = p17467->p17464->a30000; /* x163279 stalin.sc:23247:811513 */ t32148 = f14485(t32152, t32153, t32154); /* x163273 stalin.sc:23247:811487 */ t32144 = f13724(t32147, t32148); /* x163285 stalin.sc:23247:811532 */ /* x163271 stalin.sc:23247:811478 */ t32145.tag = STRUCTURE_TYPE24753; t32145.value.structure_type24753 = t32144; t32146 = (unsigned)NATIVE_PROCEDURE_TYPE7429; t32136 = f15508(t32143, t32145, t32146); /* x163302 stalin.sc:23248:811547 */ /* x163288 stalin.sc:23248:811554 */ t32155 = p17467->p17464->a29987; /* x163300 stalin.sc:23248:811556 */ /* x163294 stalin.sc:23248:811564 */ /* x163291 stalin.sc:23248:811573 */ t32167 = p17467->p17464->a29997; /* x163292 stalin.sc:23248:811576 */ t32168 = p17467->a30003; /* x163293 stalin.sc:23248:811579 */ t32169 = p17467->p17464->a29998; /* x163290 stalin.sc:23248:811565 */ t32159 = f14485(t32167, t32168, t32169); /* x163299 stalin.sc:23248:811583 */ /* x163296 stalin.sc:23248:811592 */ t32170 = p17467->p17464->a29999; /* x163297 stalin.sc:23248:811595 */ t32171 = a30004; /* x163298 stalin.sc:23248:811598 */ t32172 = p17467->p17464->a30000; /* x163295 stalin.sc:23248:811584 */ t32160 = f14485(t32170, t32171, t32172); /* x163289 stalin.sc:23248:811557 */ a25851 = t32159; a25852 = t32160; /* x129497 */ /* x129496 stalin.sc:16145:562075 */ /* x129495 stalin.sc:16145:562091 */ a745 = TRUE_TYPE; /* x129494 */ /* x129493 stalin.sc:16146:562096 */ /* x129492 stalin.sc:16146:562114 */ t32163 = a25852; /* x129491 stalin.sc:16146:562111 */ t32162 = a25851; /* x129490 stalin.sc:16146:562104 */ t32161 = "ipow"; /* x129489 stalin.sc:16146:562097 */ t32164.tag = STRING_TYPE; t32164.value.string_type = t32161; t32166.tag = STRUCTURE_TYPE24753; t32166.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32166.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16146, 562096); out_of_memory_error();} t32166.value.structure_type24753->s0 = t32163; t32166.value.structure_type24753->s1.tag = NULL_TYPE; t32165.tag = STRUCTURE_TYPE24753; t32165.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32165.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16146, 562096); out_of_memory_error();} t32165.value.structure_type24753->s0 = t32162; t32165.value.structure_type24753->s1 = t32166; t32156 = f13543(t32164, t32165); /* x163301 stalin.sc:23248:811603 */ /* x163287 stalin.sc:23248:811548 */ t32157.tag = STRUCTURE_TYPE24753; t32157.value.structure_type24753 = t32156; t32158 = (unsigned)NATIVE_PROCEDURE_TYPE7430; t32137 = f15508(t32155, t32157, t32158); /* x163303 stalin.sc:23249:811618 */ /* x163263 stalin.sc:23245:811444 */ t32138 = FALSE_TYPE; return f13672(t32135, t32136, t32137, t32138); l4448: /* x163355 */ /* x163317 stalin.sc:23250:811630 */ /* x163316 stalin.sc:23250:811634 */ /* x163315 stalin.sc:23250:811653 */ t32112 = p17466->a30003; /* x163314 stalin.sc:23250:811635 */ if (!(f7687(t32112)==FALSE_TYPE)) goto l4450; /* x163311 */ /* x163310 stalin.sc:23250:811676 */ t32113 = a30004; /* x163309 stalin.sc:23250:811658 */ if (f7687(t32113)==FALSE_TYPE) goto l4451; l4450: /* x163323 */ /* x163322 */ t32130 = p17466->p17464; p17469 = t32130; /* x163321 stalin.sc:23251:811688 */ /* x163319 stalin.sc:23252:811704 */ t32131 = p17469->a29988; /* x163320 stalin.sc:23252:811706 */ t32132 = "EXPT on rectangular arguments is not (yet) implemented"; /* x163318 stalin.sc:23251:811689 */ t32133.tag = STRUCTURE_TYPE27745; t32133.value.structure_type27745 = t32131; f9707(t32133, t32132); return r17466; l4451: /* x163354 */ /* x163331 stalin.sc:23253:811772 */ /* x163326 stalin.sc:23253:811777 */ /* x163325 stalin.sc:23253:811806 */ t32114 = p17466->a30003; /* x163324 stalin.sc:23253:811778 */ if (f7685(t32114)==FALSE_TYPE) goto l4454; /* x163329 */ /* x163328 stalin.sc:23253:811839 */ t32115 = a30004; /* x163327 stalin.sc:23253:811811 */ if (f7685(t32115)==FALSE_TYPE) goto l4454; /* x163349 */ /* x163348 */ t32117 = p17466; p17470 = t32117; /* x163347 stalin.sc:23254:811851 */ /* x163333 stalin.sc:23254:811858 */ t32118 = p17470->p17464->a29987; /* x163345 stalin.sc:23254:811860 */ /* x163339 stalin.sc:23254:811867 */ /* x163336 stalin.sc:23254:811876 */ t32124 = p17470->p17464->a29997; /* x163337 stalin.sc:23254:811879 */ t32125 = p17470->a30003; /* x163338 stalin.sc:23254:811882 */ t32126 = p17470->p17464->a29998; /* x163335 stalin.sc:23254:811868 */ t32122 = f14485(t32124, t32125, t32126); /* x163344 stalin.sc:23254:811886 */ /* x163341 stalin.sc:23254:811895 */ t32127 = p17470->p17464->a29999; /* x163342 stalin.sc:23254:811898 */ t32128 = a30004; /* x163343 stalin.sc:23254:811901 */ t32129 = p17470->p17464->a30000; /* x163340 stalin.sc:23254:811887 */ t32123 = f14485(t32127, t32128, t32129); /* x163334 stalin.sc:23254:811861 */ t32119 = f13724(t32122, t32123); /* x163346 stalin.sc:23254:811906 */ /* x163332 stalin.sc:23254:811852 */ t32120.tag = STRUCTURE_TYPE24753; t32120.value.structure_type24753 = t32119; t32121 = (unsigned)NATIVE_PROCEDURE_TYPE7429; return f15508(t32118, t32120, t32121); l4454: /* x163353 */ /* x163352 */ /* x163351 stalin.sc:23255:811933 */ /* x163350 stalin.sc:23255:811934 */ /* x295677 QobiScheme.sc:166:5314 */ /* x295676 QobiScheme.sc:166:5321 */ t32116 = "This shouldn\'t happen"; /* x295675 QobiScheme.sc:166:5315 */ stalin_panic(t32116);} /* [inside top level 17465] */ struct w49 f17465(void) {struct p17464 *p17465 = d17465; struct w49 a30003 = b30003; /* U1 */ struct w49 t32173; struct structure_type27501 *t32174; struct w49 t32175; struct p17465 *t32176; struct p17464 *t32177; struct p17465 *e17465; e17465 = (struct p17465 *)GC_malloc(sizeof(struct p17465)); if (e17465==NULL) {backtrace("stalin.sc", 23236, 811293); out_of_memory_error();} e17465->p17464 = p17465; e17465->a30003 = a30003; /* x163364 stalin.sc:23237:811309 */ /* x163251 stalin.sc:23238:811326 */ /* x163252 stalin.sc:23239:811343 */ t32173 = p17465->a30000; /* x163253 stalin.sc:23240:811350 */ t32174 = p17465->a29987; /* x163254 stalin.sc:23241:811356 */ t32175 = p17465->a29999; /* x163357 stalin.sc:23242:811363 */ t32176 = e17465; /* x163363 stalin.sc:23256:811950 */ t32177 = p17465; /* x163250 stalin.sc:23237:811310 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t32173; b26113 = t32174; b26114 = t32175; b26115.tag = NATIVE_PROCEDURE_TYPE21342; b26115.value.native_procedure_type21342 = t32176; b26116.tag = NATIVE_PROCEDURE_TYPE21341; b26116.value.native_procedure_type21341 = t32177; return f14692();} /* [inside top level 17455] */ struct structure_type24753 *f17455(void) {struct structure_type24753 *a34967; /* OBJS */ struct w49 t32178; /* x163199 stalin.sc:23223:810962 */ /* x163198 stalin.sc:23223:810981 */ /* x163197 stalin.sc:23223:810968 */ /* x163196 stalin.sc:23223:810963 */ t32178.tag = STRUCTURE_TYPE24753; t32178.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32178.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23223, 810962); out_of_memory_error();} t32178.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7426; t32178.value.structure_type24753->s1.tag = NULL_TYPE; a34967 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34967==NULL) {backtrace("stalin.sc", 23223, 810962); out_of_memory_error();} a34967->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34967->s1 = t32178; /* x271941 */ return a34967;} /* [inside top level 17454] */ struct structure_type24753 *f17454(void) {struct structure_type24753 *a35052; /* OBJS */ struct w49 t32179; /* x163194 stalin.sc:23222:810928 */ /* x163193 stalin.sc:23222:810947 */ /* x163192 stalin.sc:23222:810934 */ /* x163191 stalin.sc:23222:810929 */ t32179.tag = STRUCTURE_TYPE24753; t32179.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32179.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23222, 810928); out_of_memory_error();} t32179.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7426; t32179.value.structure_type24753->s1.tag = NULL_TYPE; a35052 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35052==NULL) {backtrace("stalin.sc", 23222, 810928); out_of_memory_error();} a35052->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35052->s1 = t32179; /* x272111 */ return a35052;} /* [inside top level 17453] */ struct p16287 *f17453(void) {unsigned t32180; unsigned t32181; /* x163189 stalin.sc:23221:810867 */ /* x163187 stalin.sc:23221:810900 */ /* x163188 stalin.sc:23221:810913 */ /* x163186 stalin.sc:23221:810868 */ t32180 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t32181 = (unsigned)NATIVE_PROCEDURE_TYPE7426; return f16287(t32180, t32181);} /* [inside top level 17452] */ struct structure_type24753 *f17452(struct p17447 *p17452, unsigned a29958) {char *t32182; struct structure_type27745 *t32183; unsigned t32184; struct w49 t32185; /* x163172 stalin.sc:23196:809265 */ /* x163169 stalin.sc:23196:809280 */ t32182 = "sqrt"; /* x163170 stalin.sc:23196:809287 */ t32183 = p17452->a29942; /* x163171 stalin.sc:23196:809289 */ t32184 = a29958; /* x163168 stalin.sc:23196:809266 */ t32185.tag = STRUCTURE_TYPE27745; t32185.value.structure_type27745 = t32183; return f15534(t32182, t32185, t32184);} /* [inside top level 17448] */ struct w49 f17448(struct p17447 *p17448, struct w49 a29957) {struct w49 r17448; struct w49 a25484; /* C */ struct w49 t32186; struct w49 t32187; char *t32188; struct p17447 *t32189; struct structure_type27745 *t32190; char *t32191; struct w6315 t32192; struct p17447 *t32193; struct structure_type27501 *t32194; struct structure_type24753 *t32195; struct w49 t32196; unsigned t32197; struct w49 t32198; char *t32199; struct w49 t32200; struct w49 t32201; struct w12224 t32202; char *t32203; struct w49 t32204; struct w49 t32205; struct w49 t32206; struct w49 t32207; struct p17447 *p17449; struct p17447 *p17450; /* x163166 stalin.sc:23190:809025 */ /* x163138 stalin.sc:23190:809032 */ /* x163137 stalin.sc:23190:809061 */ t32186 = a29957; /* x163136 stalin.sc:23190:809033 */ if (f7685(t32186)==FALSE_TYPE) goto l4457; /* x163151 */ /* x163150 */ t32193 = p17448; p17449 = t32193; /* x163149 stalin.sc:23191:809068 */ /* x163140 stalin.sc:23191:809075 */ t32194 = p17449->a29941; /* x163147 stalin.sc:23191:809077 */ /* x163146 stalin.sc:23191:809085 */ /* x163143 stalin.sc:23191:809094 */ t32205 = p17449->a29951; /* x163144 stalin.sc:23191:809097 */ t32206 = a29957; /* x163145 stalin.sc:23191:809100 */ t32207 = p17449->a29952; /* x163142 stalin.sc:23191:809086 */ t32198 = f14485(t32205, t32206, t32207); /* x163141 stalin.sc:23191:809078 */ a25484 = t32198; /* x124660 */ /* x124659 stalin.sc:15000:524046 */ /* x124658 stalin.sc:15000:524056 */ t32203 = "math"; /* x124657 stalin.sc:15000:524047 */ t32204.tag = STRING_TYPE; t32204.value.string_type = t32203; f18320(t32204); /* x124656 */ /* x124655 stalin.sc:15001:524073 */ /* x124654 stalin.sc:15001:524088 */ t32200 = a25484; /* x124653 stalin.sc:15001:524081 */ t32199 = "sqrt"; /* x124652 stalin.sc:15001:524074 */ t32201.tag = STRING_TYPE; t32201.value.string_type = t32199; t32202.tag = STRUCTURE_TYPE24753; t32202.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32202.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15001, 524073); out_of_memory_error();} t32202.value.structure_type24753->s0 = t32200; t32202.value.structure_type24753->s1.tag = NULL_TYPE; t32195 = f13543(t32201, t32202); /* x163148 stalin.sc:23191:809105 */ /* x163139 stalin.sc:23191:809069 */ t32196.tag = STRUCTURE_TYPE24753; t32196.value.structure_type24753 = t32195; t32197 = (unsigned)NATIVE_PROCEDURE_TYPE7429; return f15508(t32194, t32196, t32197); l4457: /* x163165 */ /* x163154 stalin.sc:23192:809123 */ /* x163153 stalin.sc:23192:809142 */ t32187 = a29957; /* x163152 stalin.sc:23192:809124 */ if (f7687(t32187)==FALSE_TYPE) goto l4459; /* x163160 */ /* x163159 */ t32189 = p17448; p17450 = t32189; /* x163158 stalin.sc:23193:809149 */ /* x163156 stalin.sc:23194:809168 */ t32190 = p17450->a29942; /* x163157 stalin.sc:23194:809170 */ t32191 = "SQRT on rectangular arguments is not (yet) implemented"; /* x163155 stalin.sc:23193:809150 */ t32192.tag = STRUCTURE_TYPE27745; t32192.value.structure_type27745 = t32190; f9707(t32192, t32191); return r17448; l4459: /* x163164 */ /* x163163 */ /* x163162 stalin.sc:23195:809237 */ /* x163161 stalin.sc:23195:809238 */ /* x295673 QobiScheme.sc:166:5314 */ /* x295672 QobiScheme.sc:166:5321 */ t32188 = "This shouldn\'t happen"; /* x295671 QobiScheme.sc:166:5315 */ stalin_panic(t32188);} /* [inside top level 17440] */ struct structure_type24753 *f17440(struct p17425 *p17440, unsigned a29914) {char *t32208; struct structure_type27745 *t32209; unsigned t32210; struct w49 t32211; /* x163095 stalin.sc:23161:807708 */ /* x163092 stalin.sc:23161:807723 */ t32208 = "atan2"; /* x163093 stalin.sc:23161:807731 */ t32209 = p17440->a29894; /* x163094 stalin.sc:23161:807733 */ t32210 = a29914; /* x163091 stalin.sc:23161:807709 */ t32211.tag = STRUCTURE_TYPE27745; t32211.value.structure_type27745 = t32209; return f15534(t32208, t32211, t32210);} /* [inside top level 17437] */ struct structure_type24753 *f17437(struct p17425 *p17437, unsigned a29913) {char *t32212; struct structure_type27745 *t32213; unsigned t32214; struct w49 t32215; /* x163070 stalin.sc:23156:807531 */ /* x163067 stalin.sc:23156:807546 */ t32212 = "atan3"; /* x163068 stalin.sc:23156:807554 */ t32213 = p17437->a29894; /* x163069 stalin.sc:23156:807556 */ t32214 = a29913; /* x163066 stalin.sc:23156:807532 */ t32215.tag = STRUCTURE_TYPE27745; t32215.value.structure_type27745 = t32213; return f15534(t32212, t32215, t32214);} /* [inside top level 17433] */ struct w49 f17433(struct p17431 *p17433, struct w49 a29912) {struct w49 r17433; struct w49 a25481; /* C1 */ struct w49 a25482; /* C2 */ struct w49 t32216; struct w49 t32217; char *t32218; struct p17425 *t32219; struct structure_type27745 *t32220; char *t32221; struct w6315 t32222; struct p17431 *t32223; struct structure_type27501 *t32224; struct structure_type24753 *t32225; struct w49 t32226; unsigned t32227; struct w49 t32228; struct w49 t32229; char *t32230; struct w49 t32231; struct w49 t32232; struct w49 t32233; struct w12224 t32234; struct w49 t32235; char *t32236; struct w49 t32237; struct w49 t32238; struct w49 t32239; struct w49 t32240; struct w49 t32241; struct w49 t32242; struct w49 t32243; struct p17431 *p17434; struct p17425 *p17435; /* x163064 stalin.sc:23148:807257 */ /* x163031 stalin.sc:23148:807264 */ /* x163030 stalin.sc:23148:807293 */ t32216 = a29912; /* x163029 stalin.sc:23148:807265 */ if (f7685(t32216)==FALSE_TYPE) goto l4461; /* x163049 */ /* x163048 */ t32223 = p17433; p17434 = t32223; /* x163047 stalin.sc:23149:807301 */ /* x163033 stalin.sc:23149:807308 */ t32224 = p17434->p17425->a29893; /* x163045 stalin.sc:23150:807314 */ /* x163039 stalin.sc:23150:807323 */ /* x163036 stalin.sc:23150:807332 */ t32238 = p17434->p17425->a29903; /* x163037 stalin.sc:23150:807335 */ t32239 = p17434->a29911; /* x163038 stalin.sc:23150:807338 */ t32240 = p17434->p17425->a29904; /* x163035 stalin.sc:23150:807324 */ t32228 = f14485(t32238, t32239, t32240); /* x163044 stalin.sc:23150:807342 */ /* x163041 stalin.sc:23150:807351 */ t32241 = p17434->p17425->a29905; /* x163042 stalin.sc:23150:807354 */ t32242 = a29912; /* x163043 stalin.sc:23150:807357 */ t32243 = p17434->p17425->a29906; /* x163040 stalin.sc:23150:807343 */ t32229 = f14485(t32241, t32242, t32243); /* x163034 stalin.sc:23150:807315 */ a25481 = t32228; a25482 = t32229; /* x124649 */ /* x124648 stalin.sc:14996:523973 */ /* x124647 stalin.sc:14996:523983 */ t32236 = "math"; /* x124646 stalin.sc:14996:523974 */ t32237.tag = STRING_TYPE; t32237.value.string_type = t32236; f18320(t32237); /* x124645 */ /* x124644 stalin.sc:14997:524001 */ /* x124643 stalin.sc:14997:524020 */ t32232 = a25482; /* x124642 stalin.sc:14997:524017 */ t32231 = a25481; /* x124641 stalin.sc:14997:524009 */ t32230 = "atan2"; /* x124640 stalin.sc:14997:524002 */ t32233.tag = STRING_TYPE; t32233.value.string_type = t32230; t32235.tag = STRUCTURE_TYPE24753; t32235.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32235.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14997, 524001); out_of_memory_error();} t32235.value.structure_type24753->s0 = t32232; t32235.value.structure_type24753->s1.tag = NULL_TYPE; t32234.tag = STRUCTURE_TYPE24753; t32234.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32234.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14997, 524001); out_of_memory_error();} t32234.value.structure_type24753->s0 = t32231; t32234.value.structure_type24753->s1 = t32235; t32225 = f13543(t32233, t32234); /* x163046 stalin.sc:23151:807366 */ /* x163032 stalin.sc:23149:807302 */ t32226.tag = STRUCTURE_TYPE24753; t32226.value.structure_type24753 = t32225; t32227 = (unsigned)NATIVE_PROCEDURE_TYPE7429; return f15508(t32224, t32226, t32227); l4461: /* x163063 */ /* x163052 stalin.sc:23152:807385 */ /* x163051 stalin.sc:23152:807404 */ t32217 = a29912; /* x163050 stalin.sc:23152:807386 */ if (f7687(t32217)==FALSE_TYPE) goto l4463; /* x163058 */ /* x163057 */ t32219 = p17433->p17425; p17435 = t32219; /* x163056 stalin.sc:23153:807412 */ /* x163054 stalin.sc:23154:807432 */ t32220 = p17435->a29894; /* x163055 stalin.sc:23154:807434 */ t32221 = "ATAN on rectangular arguments is not (yet) implemented"; /* x163053 stalin.sc:23153:807413 */ t32222.tag = STRUCTURE_TYPE27745; t32222.value.structure_type27745 = t32220; f9707(t32222, t32221); return r17433; l4463: /* x163062 */ /* x163061 */ /* x163060 stalin.sc:23155:807502 */ /* x163059 stalin.sc:23155:807503 */ /* x295689 QobiScheme.sc:166:5314 */ /* x295688 QobiScheme.sc:166:5321 */ t32218 = "This shouldn\'t happen"; /* x295687 QobiScheme.sc:166:5315 */ stalin_panic(t32218);} /* [inside top level 17431] */ struct w49 f17431(void) {struct w49 r17431; struct p17425 *p17431 = d17431; struct w49 a29911 = b29911; /* U1 */ struct w49 t32244; struct w49 t32245; char *t32246; struct p17425 *t32247; struct structure_type27745 *t32248; char *t32249; struct w6315 t32250; struct p17431 *t32251; struct w49 t32252; struct structure_type27501 *t32253; struct w49 t32254; struct p17431 *t32255; struct p17425 *t32256; struct p17431 *e17431; struct p17431 *p17432; struct p17425 *p17438; e17431 = (struct p17431 *)GC_malloc(sizeof(struct p17431)); if (e17431==NULL) {backtrace("stalin.sc", 23139, 807128); out_of_memory_error();} e17431->p17425 = p17431; e17431->a29911 = a29911; /* x163089 stalin.sc:23140:807148 */ /* x163023 stalin.sc:23141:807156 */ /* x163022 stalin.sc:23141:807185 */ t32244 = e17431->a29911; /* x163021 stalin.sc:23141:807157 */ if (f7685(t32244)==FALSE_TYPE) goto l4465; /* x163074 */ /* x163073 */ t32251 = e17431; p17432 = t32251; /* x163072 stalin.sc:23142:807191 */ /* x163025 stalin.sc:23143:807207 */ /* x163026 stalin.sc:23144:807223 */ t32252 = p17432->p17425->a29906; /* x163027 stalin.sc:23145:807229 */ t32253 = p17432->p17425->a29893; /* x163028 stalin.sc:23146:807234 */ t32254 = p17432->p17425->a29905; /* x163065 stalin.sc:23147:807240 */ t32255 = p17432; /* x163071 stalin.sc:23156:807518 */ t32256 = p17432->p17425; /* x163024 stalin.sc:23142:807192 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t32252; b26113 = t32253; b26114 = t32254; b26115.tag = NATIVE_PROCEDURE_TYPE21325; b26115.value.native_procedure_type21325 = t32255; b26116.tag = NATIVE_PROCEDURE_TYPE21324; b26116.value.native_procedure_type21324 = t32256; return f14692(); l4465: /* x163088 */ /* x163077 stalin.sc:23157:807565 */ /* x163076 stalin.sc:23157:807584 */ t32245 = e17431->a29911; /* x163075 stalin.sc:23157:807566 */ if (f7687(t32245)==FALSE_TYPE) goto l4467; /* x163083 */ /* x163082 */ t32247 = p17431; p17438 = t32247; /* x163081 stalin.sc:23158:807590 */ /* x163079 stalin.sc:23159:807608 */ t32248 = p17438->a29894; /* x163080 stalin.sc:23159:807610 */ t32249 = "ATAN on rectangular arguments is not (yet) implemented"; /* x163078 stalin.sc:23158:807591 */ t32250.tag = STRUCTURE_TYPE27745; t32250.value.structure_type27745 = t32248; f9707(t32250, t32249); return r17431; l4467: /* x163087 */ /* x163086 */ /* x163085 stalin.sc:23160:807676 */ /* x163084 stalin.sc:23160:807677 */ /* x295693 QobiScheme.sc:166:5314 */ /* x295692 QobiScheme.sc:166:5321 */ t32246 = "This shouldn\'t happen"; /* x295691 QobiScheme.sc:166:5315 */ stalin_panic(t32246);} /* [inside top level 17430] */ struct structure_type24753 *f17430(struct p17425 *p17430, unsigned a29910) {char *t32257; struct structure_type27745 *t32258; unsigned t32259; struct w49 t32260; /* x163013 stalin.sc:23133:807028 */ /* x163010 stalin.sc:23133:807043 */ t32257 = "atan1"; /* x163011 stalin.sc:23133:807051 */ t32258 = p17430->a29894; /* x163012 stalin.sc:23133:807053 */ t32259 = a29910; /* x163009 stalin.sc:23133:807029 */ t32260.tag = STRUCTURE_TYPE27745; t32260.value.structure_type27745 = t32258; return f15534(t32257, t32260, t32259);} /* [inside top level 17426] */ struct w49 f17426(struct p17425 *p17426, struct w49 a29909) {struct w49 r17426; struct w49 a25479; /* C */ struct w49 t32261; struct w49 t32262; char *t32263; struct p17425 *t32264; struct structure_type27745 *t32265; char *t32266; struct w6315 t32267; struct p17425 *t32268; struct structure_type27501 *t32269; struct structure_type24753 *t32270; struct w49 t32271; unsigned t32272; struct w49 t32273; char *t32274; struct w49 t32275; struct w49 t32276; struct w12224 t32277; char *t32278; struct w49 t32279; struct w49 t32280; struct w49 t32281; struct w49 t32282; struct p17425 *p17427; struct p17425 *p17428; /* x163007 stalin.sc:23127:806764 */ /* x162979 stalin.sc:23127:806771 */ /* x162978 stalin.sc:23127:806800 */ t32261 = a29909; /* x162977 stalin.sc:23127:806772 */ if (f7685(t32261)==FALSE_TYPE) goto l4469; /* x162992 */ /* x162991 */ t32268 = p17426; p17427 = t32268; /* x162990 stalin.sc:23128:806811 */ /* x162981 stalin.sc:23128:806818 */ t32269 = p17427->a29893; /* x162988 stalin.sc:23128:806820 */ /* x162987 stalin.sc:23128:806828 */ /* x162984 stalin.sc:23128:806837 */ t32280 = p17427->a29903; /* x162985 stalin.sc:23128:806840 */ t32281 = a29909; /* x162986 stalin.sc:23128:806843 */ t32282 = p17427->a29904; /* x162983 stalin.sc:23128:806829 */ t32273 = f14485(t32280, t32281, t32282); /* x162982 stalin.sc:23128:806821 */ a25479 = t32273; /* x124637 */ /* x124636 stalin.sc:14992:523901 */ /* x124635 stalin.sc:14992:523911 */ t32278 = "math"; /* x124634 stalin.sc:14992:523902 */ t32279.tag = STRING_TYPE; t32279.value.string_type = t32278; f18320(t32279); /* x124633 */ /* x124632 stalin.sc:14993:523928 */ /* x124631 stalin.sc:14993:523943 */ t32275 = a25479; /* x124630 stalin.sc:14993:523936 */ t32274 = "atan"; /* x124629 stalin.sc:14993:523929 */ t32276.tag = STRING_TYPE; t32276.value.string_type = t32274; t32277.tag = STRUCTURE_TYPE24753; t32277.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32277.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14993, 523928); out_of_memory_error();} t32277.value.structure_type24753->s0 = t32275; t32277.value.structure_type24753->s1.tag = NULL_TYPE; t32270 = f13543(t32276, t32277); /* x162989 stalin.sc:23128:806848 */ /* x162980 stalin.sc:23128:806812 */ t32271.tag = STRUCTURE_TYPE24753; t32271.value.structure_type24753 = t32270; t32272 = (unsigned)NATIVE_PROCEDURE_TYPE7429; return f15508(t32269, t32271, t32272); l4469: /* x163006 */ /* x162995 stalin.sc:23129:806870 */ /* x162994 stalin.sc:23129:806889 */ t32262 = a29909; /* x162993 stalin.sc:23129:806871 */ if (f7687(t32262)==FALSE_TYPE) goto l4471; /* x163001 */ /* x163000 */ t32264 = p17426; p17428 = t32264; /* x162999 stalin.sc:23130:806900 */ /* x162997 stalin.sc:23131:806923 */ t32265 = p17428->a29894; /* x162998 stalin.sc:23131:806925 */ t32266 = "ATAN on rectangular arguments is not (yet) implemented"; /* x162996 stalin.sc:23130:806901 */ t32267.tag = STRUCTURE_TYPE27745; t32267.value.structure_type27745 = t32265; f9707(t32267, t32266); return r17426; l4471: /* x163005 */ /* x163004 */ /* x163003 stalin.sc:23132:806996 */ /* x163002 stalin.sc:23132:806997 */ /* x295685 QobiScheme.sc:166:5314 */ /* x295684 QobiScheme.sc:166:5321 */ t32263 = "This shouldn\'t happen"; /* x295683 QobiScheme.sc:166:5315 */ stalin_panic(t32263);} /* [inside top level 17420] */ struct structure_type24753 *f17420(void) {struct structure_type24753 *a34969; /* OBJS */ struct w49 t32283; /* x162951 stalin.sc:23115:806487 */ /* x162950 stalin.sc:23115:806506 */ /* x162949 stalin.sc:23115:806493 */ /* x162948 stalin.sc:23115:806488 */ t32283.tag = STRUCTURE_TYPE24753; t32283.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32283.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23115, 806487); out_of_memory_error();} t32283.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7426; t32283.value.structure_type24753->s1.tag = NULL_TYPE; a34969 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34969==NULL) {backtrace("stalin.sc", 23115, 806487); out_of_memory_error();} a34969->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34969->s1 = t32283; /* x271945 */ return a34969;} /* [inside top level 17419] */ struct structure_type24753 *f17419(void) {struct structure_type24753 *a35054; /* OBJS */ struct w49 t32284; /* x162946 stalin.sc:23114:806453 */ /* x162945 stalin.sc:23114:806472 */ /* x162944 stalin.sc:23114:806459 */ /* x162943 stalin.sc:23114:806454 */ t32284.tag = STRUCTURE_TYPE24753; t32284.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32284.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23114, 806453); out_of_memory_error();} t32284.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7426; t32284.value.structure_type24753->s1.tag = NULL_TYPE; a35054 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35054==NULL) {backtrace("stalin.sc", 23114, 806453); out_of_memory_error();} a35054->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35054->s1 = t32284; /* x272115 */ return a35054;} /* [inside top level 17418] */ struct p16302 *f17418(void) {unsigned t32285; unsigned t32286; /* x162941 stalin.sc:23113:806385 */ /* x162939 stalin.sc:23113:806425 */ /* x162940 stalin.sc:23113:806438 */ /* x162938 stalin.sc:23113:806386 */ t32285 = NATIVE_PROCEDURE_TYPE7426; t32286 = NATIVE_PROCEDURE_TYPE7426; return f16302(t32285, t32286);} /* [inside top level 17417] */ struct structure_type24753 *f17417(struct p17412 *p17417, unsigned a29864) {char *t32287; struct structure_type27745 *t32288; unsigned t32289; struct w49 t32290; /* x162924 stalin.sc:23108:806228 */ /* x162921 stalin.sc:23108:806243 */ t32287 = "acos"; /* x162922 stalin.sc:23108:806250 */ t32288 = p17417->a29848; /* x162923 stalin.sc:23108:806252 */ t32289 = a29864; /* x162920 stalin.sc:23108:806229 */ t32290.tag = STRUCTURE_TYPE27745; t32290.value.structure_type27745 = t32288; return f15534(t32287, t32290, t32289);} /* [inside top level 17413] */ struct w49 f17413(struct p17412 *p17413, struct w49 a29863) {struct w49 r17413; struct w49 a25477; /* C */ struct w49 t32291; struct w49 t32292; char *t32293; struct p17412 *t32294; struct structure_type27745 *t32295; char *t32296; struct w6315 t32297; struct p17412 *t32298; struct structure_type27501 *t32299; struct structure_type24753 *t32300; struct w49 t32301; unsigned t32302; struct w49 t32303; char *t32304; struct w49 t32305; struct w49 t32306; struct w12224 t32307; char *t32308; struct w49 t32309; struct w49 t32310; struct w49 t32311; struct w49 t32312; struct p17412 *p17414; struct p17412 *p17415; /* x162918 stalin.sc:23102:805988 */ /* x162890 stalin.sc:23102:805995 */ /* x162889 stalin.sc:23102:806024 */ t32291 = a29863; /* x162888 stalin.sc:23102:805996 */ if (f7685(t32291)==FALSE_TYPE) goto l4473; /* x162903 */ /* x162902 */ t32298 = p17413; p17414 = t32298; /* x162901 stalin.sc:23103:806031 */ /* x162892 stalin.sc:23103:806038 */ t32299 = p17414->a29847; /* x162899 stalin.sc:23103:806040 */ /* x162898 stalin.sc:23103:806048 */ /* x162895 stalin.sc:23103:806057 */ t32310 = p17414->a29857; /* x162896 stalin.sc:23103:806060 */ t32311 = a29863; /* x162897 stalin.sc:23103:806063 */ t32312 = p17414->a29858; /* x162894 stalin.sc:23103:806049 */ t32303 = f14485(t32310, t32311, t32312); /* x162893 stalin.sc:23103:806041 */ a25477 = t32303; /* x124626 */ /* x124625 stalin.sc:14988:523834 */ /* x124624 stalin.sc:14988:523844 */ t32308 = "math"; /* x124623 stalin.sc:14988:523835 */ t32309.tag = STRING_TYPE; t32309.value.string_type = t32308; f18320(t32309); /* x124622 */ /* x124621 stalin.sc:14989:523861 */ /* x124620 stalin.sc:14989:523876 */ t32305 = a25477; /* x124619 stalin.sc:14989:523869 */ t32304 = "acos"; /* x124618 stalin.sc:14989:523862 */ t32306.tag = STRING_TYPE; t32306.value.string_type = t32304; t32307.tag = STRUCTURE_TYPE24753; t32307.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32307.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14989, 523861); out_of_memory_error();} t32307.value.structure_type24753->s0 = t32305; t32307.value.structure_type24753->s1.tag = NULL_TYPE; t32300 = f13543(t32306, t32307); /* x162900 stalin.sc:23103:806068 */ /* x162891 stalin.sc:23103:806032 */ t32301.tag = STRUCTURE_TYPE24753; t32301.value.structure_type24753 = t32300; t32302 = (unsigned)NATIVE_PROCEDURE_TYPE7429; return f15508(t32299, t32301, t32302); l4473: /* x162917 */ /* x162906 stalin.sc:23104:806086 */ /* x162905 stalin.sc:23104:806105 */ t32292 = a29863; /* x162904 stalin.sc:23104:806087 */ if (f7687(t32292)==FALSE_TYPE) goto l4475; /* x162912 */ /* x162911 */ t32294 = p17413; p17415 = t32294; /* x162910 stalin.sc:23105:806112 */ /* x162908 stalin.sc:23106:806131 */ t32295 = p17415->a29848; /* x162909 stalin.sc:23106:806133 */ t32296 = "ACOS on rectangular arguments is not (yet) implemented"; /* x162907 stalin.sc:23105:806113 */ t32297.tag = STRUCTURE_TYPE27745; t32297.value.structure_type27745 = t32295; f9707(t32297, t32296); return r17413; l4475: /* x162916 */ /* x162915 */ /* x162914 stalin.sc:23107:806200 */ /* x162913 stalin.sc:23107:806201 */ /* x295681 QobiScheme.sc:166:5314 */ /* x295680 QobiScheme.sc:166:5321 */ t32293 = "This shouldn\'t happen"; /* x295679 QobiScheme.sc:166:5315 */ stalin_panic(t32293);} /* [inside top level 17405] */ struct structure_type24753 *f17405(struct p17400 *p17405, unsigned a29820) {char *t32313; struct structure_type27745 *t32314; unsigned t32315; struct w49 t32316; /* x162848 stalin.sc:23073:804679 */ /* x162845 stalin.sc:23073:804694 */ t32313 = "asin"; /* x162846 stalin.sc:23073:804701 */ t32314 = p17405->a29804; /* x162847 stalin.sc:23073:804703 */ t32315 = a29820; /* x162844 stalin.sc:23073:804680 */ t32316.tag = STRUCTURE_TYPE27745; t32316.value.structure_type27745 = t32314; return f15534(t32313, t32316, t32315);} /* [inside top level 17401] */ struct w49 f17401(struct p17400 *p17401, struct w49 a29819) {struct w49 r17401; struct w49 a25475; /* C */ struct w49 t32317; struct w49 t32318; char *t32319; struct p17400 *t32320; struct structure_type27745 *t32321; char *t32322; struct w6315 t32323; struct p17400 *t32324; struct structure_type27501 *t32325; struct structure_type24753 *t32326; struct w49 t32327; unsigned t32328; struct w49 t32329; char *t32330; struct w49 t32331; struct w49 t32332; struct w12224 t32333; char *t32334; struct w49 t32335; struct w49 t32336; struct w49 t32337; struct w49 t32338; struct p17400 *p17402; struct p17400 *p17403; /* x162842 stalin.sc:23067:804439 */ /* x162814 stalin.sc:23067:804446 */ /* x162813 stalin.sc:23067:804475 */ t32317 = a29819; /* x162812 stalin.sc:23067:804447 */ if (f7685(t32317)==FALSE_TYPE) goto l4477; /* x162827 */ /* x162826 */ t32324 = p17401; p17402 = t32324; /* x162825 stalin.sc:23068:804482 */ /* x162816 stalin.sc:23068:804489 */ t32325 = p17402->a29803; /* x162823 stalin.sc:23068:804491 */ /* x162822 stalin.sc:23068:804499 */ /* x162819 stalin.sc:23068:804508 */ t32336 = p17402->a29813; /* x162820 stalin.sc:23068:804511 */ t32337 = a29819; /* x162821 stalin.sc:23068:804514 */ t32338 = p17402->a29814; /* x162818 stalin.sc:23068:804500 */ t32329 = f14485(t32336, t32337, t32338); /* x162817 stalin.sc:23068:804492 */ a25475 = t32329; /* x124615 */ /* x124614 stalin.sc:14984:523767 */ /* x124613 stalin.sc:14984:523777 */ t32334 = "math"; /* x124612 stalin.sc:14984:523768 */ t32335.tag = STRING_TYPE; t32335.value.string_type = t32334; f18320(t32335); /* x124611 */ /* x124610 stalin.sc:14985:523794 */ /* x124609 stalin.sc:14985:523809 */ t32331 = a25475; /* x124608 stalin.sc:14985:523802 */ t32330 = "asin"; /* x124607 stalin.sc:14985:523795 */ t32332.tag = STRING_TYPE; t32332.value.string_type = t32330; t32333.tag = STRUCTURE_TYPE24753; t32333.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32333.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14985, 523794); out_of_memory_error();} t32333.value.structure_type24753->s0 = t32331; t32333.value.structure_type24753->s1.tag = NULL_TYPE; t32326 = f13543(t32332, t32333); /* x162824 stalin.sc:23068:804519 */ /* x162815 stalin.sc:23068:804483 */ t32327.tag = STRUCTURE_TYPE24753; t32327.value.structure_type24753 = t32326; t32328 = (unsigned)NATIVE_PROCEDURE_TYPE7429; return f15508(t32325, t32327, t32328); l4477: /* x162841 */ /* x162830 stalin.sc:23069:804537 */ /* x162829 stalin.sc:23069:804556 */ t32318 = a29819; /* x162828 stalin.sc:23069:804538 */ if (f7687(t32318)==FALSE_TYPE) goto l4479; /* x162836 */ /* x162835 */ t32320 = p17401; p17403 = t32320; /* x162834 stalin.sc:23070:804563 */ /* x162832 stalin.sc:23071:804582 */ t32321 = p17403->a29804; /* x162833 stalin.sc:23071:804584 */ t32322 = "ASIN on rectangular arguments is not (yet) implemented"; /* x162831 stalin.sc:23070:804564 */ t32323.tag = STRUCTURE_TYPE27745; t32323.value.structure_type27745 = t32321; f9707(t32323, t32322); return r17401; l4479: /* x162840 */ /* x162839 */ /* x162838 stalin.sc:23072:804651 */ /* x162837 stalin.sc:23072:804652 */ /* x295697 QobiScheme.sc:166:5314 */ /* x295696 QobiScheme.sc:166:5321 */ t32319 = "This shouldn\'t happen"; /* x295695 QobiScheme.sc:166:5315 */ stalin_panic(t32319);} /* [inside top level 17393] */ struct structure_type24753 *f17393(struct p17388 *p17393, unsigned a29776) {char *t32339; struct structure_type27745 *t32340; unsigned t32341; struct w49 t32342; /* x162772 stalin.sc:23038:803131 */ /* x162769 stalin.sc:23038:803146 */ t32339 = "tan"; /* x162770 stalin.sc:23038:803152 */ t32340 = p17393->a29760; /* x162771 stalin.sc:23038:803154 */ t32341 = a29776; /* x162768 stalin.sc:23038:803132 */ t32342.tag = STRUCTURE_TYPE27745; t32342.value.structure_type27745 = t32340; return f15534(t32339, t32342, t32341);} /* [inside top level 17389] */ struct w49 f17389(struct p17388 *p17389, struct w49 a29775) {struct w49 r17389; struct w49 a25473; /* C */ struct w49 t32343; struct w49 t32344; char *t32345; struct p17388 *t32346; struct structure_type27745 *t32347; char *t32348; struct w6315 t32349; struct p17388 *t32350; struct structure_type27501 *t32351; struct structure_type24753 *t32352; struct w49 t32353; unsigned t32354; struct w49 t32355; char *t32356; struct w49 t32357; struct w49 t32358; struct w12224 t32359; char *t32360; struct w49 t32361; struct w49 t32362; struct w49 t32363; struct w49 t32364; struct p17388 *p17390; struct p17388 *p17391; /* x162766 stalin.sc:23032:802885 */ /* x162738 stalin.sc:23033:802896 */ /* x162737 stalin.sc:23033:802925 */ t32343 = a29775; /* x162736 stalin.sc:23033:802897 */ if (f7685(t32343)==FALSE_TYPE) goto l4481; /* x162751 */ /* x162750 */ t32350 = p17389; p17390 = t32350; /* x162749 stalin.sc:23034:802934 */ /* x162740 stalin.sc:23034:802941 */ t32351 = p17390->a29759; /* x162747 stalin.sc:23034:802943 */ /* x162746 stalin.sc:23034:802950 */ /* x162743 stalin.sc:23034:802959 */ t32362 = p17390->a29769; /* x162744 stalin.sc:23034:802962 */ t32363 = a29775; /* x162745 stalin.sc:23034:802965 */ t32364 = p17390->a29770; /* x162742 stalin.sc:23034:802951 */ t32355 = f14485(t32362, t32363, t32364); /* x162741 stalin.sc:23034:802944 */ a25473 = t32355; /* x124604 */ /* x124603 stalin.sc:14980:523702 */ /* x124602 stalin.sc:14980:523712 */ t32360 = "math"; /* x124601 stalin.sc:14980:523703 */ t32361.tag = STRING_TYPE; t32361.value.string_type = t32360; f18320(t32361); /* x124600 */ /* x124599 stalin.sc:14981:523728 */ /* x124598 stalin.sc:14981:523742 */ t32357 = a25473; /* x124597 stalin.sc:14981:523736 */ t32356 = "tan"; /* x124596 stalin.sc:14981:523729 */ t32358.tag = STRING_TYPE; t32358.value.string_type = t32356; t32359.tag = STRUCTURE_TYPE24753; t32359.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32359.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14981, 523728); out_of_memory_error();} t32359.value.structure_type24753->s0 = t32357; t32359.value.structure_type24753->s1.tag = NULL_TYPE; t32352 = f13543(t32358, t32359); /* x162748 stalin.sc:23034:802970 */ /* x162739 stalin.sc:23034:802935 */ t32353.tag = STRUCTURE_TYPE24753; t32353.value.structure_type24753 = t32352; t32354 = (unsigned)NATIVE_PROCEDURE_TYPE7429; return f15508(t32351, t32353, t32354); l4481: /* x162765 */ /* x162754 stalin.sc:23035:802990 */ /* x162753 stalin.sc:23035:803009 */ t32344 = a29775; /* x162752 stalin.sc:23035:802991 */ if (f7687(t32344)==FALSE_TYPE) goto l4483; /* x162760 */ /* x162759 */ t32346 = p17389; p17391 = t32346; /* x162758 stalin.sc:23036:803018 */ /* x162756 stalin.sc:23036:803033 */ t32347 = p17391->a29760; /* x162757 stalin.sc:23036:803035 */ t32348 = "TAN on rectangular arguments is not (yet) implemented"; /* x162755 stalin.sc:23036:803019 */ t32349.tag = STRUCTURE_TYPE27745; t32349.value.structure_type27745 = t32347; f9707(t32349, t32348); return r17389; l4483: /* x162764 */ /* x162763 */ /* x162762 stalin.sc:23037:803103 */ /* x162761 stalin.sc:23037:803104 */ /* x295669 QobiScheme.sc:166:5314 */ /* x295668 QobiScheme.sc:166:5321 */ t32345 = "This shouldn\'t happen"; /* x295667 QobiScheme.sc:166:5315 */ stalin_panic(t32345);} /* [inside top level 17381] */ struct structure_type24753 *f17381(struct p17376 *p17381, unsigned a29732) {char *t32365; struct structure_type27745 *t32366; unsigned t32367; struct w49 t32368; /* x162696 stalin.sc:23016:802515 */ /* x162693 stalin.sc:23016:802530 */ t32365 = "cos"; /* x162694 stalin.sc:23016:802536 */ t32366 = p17381->a29716; /* x162695 stalin.sc:23016:802538 */ t32367 = a29732; /* x162692 stalin.sc:23016:802516 */ t32368.tag = STRUCTURE_TYPE27745; t32368.value.structure_type27745 = t32366; return f15534(t32365, t32368, t32367);} /* [inside top level 17377] */ struct w49 f17377(struct p17376 *p17377, struct w49 a29731) {struct w49 r17377; struct w49 a25471; /* C */ struct w49 t32369; struct w49 t32370; char *t32371; struct p17376 *t32372; struct structure_type27745 *t32373; char *t32374; struct w6315 t32375; struct p17376 *t32376; struct structure_type27501 *t32377; struct structure_type24753 *t32378; struct w49 t32379; unsigned t32380; struct w49 t32381; char *t32382; struct w49 t32383; struct w49 t32384; struct w12224 t32385; char *t32386; struct w49 t32387; struct w49 t32388; struct w49 t32389; struct w49 t32390; struct p17376 *p17378; struct p17376 *p17379; /* x162690 stalin.sc:23010:802269 */ /* x162662 stalin.sc:23011:802280 */ /* x162661 stalin.sc:23011:802309 */ t32369 = a29731; /* x162660 stalin.sc:23011:802281 */ if (f7685(t32369)==FALSE_TYPE) goto l4485; /* x162675 */ /* x162674 */ t32376 = p17377; p17378 = t32376; /* x162673 stalin.sc:23012:802318 */ /* x162664 stalin.sc:23012:802325 */ t32377 = p17378->a29715; /* x162671 stalin.sc:23012:802327 */ /* x162670 stalin.sc:23012:802334 */ /* x162667 stalin.sc:23012:802343 */ t32388 = p17378->a29725; /* x162668 stalin.sc:23012:802346 */ t32389 = a29731; /* x162669 stalin.sc:23012:802349 */ t32390 = p17378->a29726; /* x162666 stalin.sc:23012:802335 */ t32381 = f14485(t32388, t32389, t32390); /* x162665 stalin.sc:23012:802328 */ a25471 = t32381; /* x124593 */ /* x124592 stalin.sc:14976:523638 */ /* x124591 stalin.sc:14976:523648 */ t32386 = "math"; /* x124590 stalin.sc:14976:523639 */ t32387.tag = STRING_TYPE; t32387.value.string_type = t32386; f18320(t32387); /* x124589 */ /* x124588 stalin.sc:14977:523664 */ /* x124587 stalin.sc:14977:523678 */ t32383 = a25471; /* x124586 stalin.sc:14977:523672 */ t32382 = "cos"; /* x124585 stalin.sc:14977:523665 */ t32384.tag = STRING_TYPE; t32384.value.string_type = t32382; t32385.tag = STRUCTURE_TYPE24753; t32385.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32385.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14977, 523664); out_of_memory_error();} t32385.value.structure_type24753->s0 = t32383; t32385.value.structure_type24753->s1.tag = NULL_TYPE; t32378 = f13543(t32384, t32385); /* x162672 stalin.sc:23012:802354 */ /* x162663 stalin.sc:23012:802319 */ t32379.tag = STRUCTURE_TYPE24753; t32379.value.structure_type24753 = t32378; t32380 = (unsigned)NATIVE_PROCEDURE_TYPE7429; return f15508(t32377, t32379, t32380); l4485: /* x162689 */ /* x162678 stalin.sc:23013:802374 */ /* x162677 stalin.sc:23013:802393 */ t32370 = a29731; /* x162676 stalin.sc:23013:802375 */ if (f7687(t32370)==FALSE_TYPE) goto l4487; /* x162684 */ /* x162683 */ t32372 = p17377; p17379 = t32372; /* x162682 stalin.sc:23014:802402 */ /* x162680 stalin.sc:23014:802417 */ t32373 = p17379->a29716; /* x162681 stalin.sc:23014:802419 */ t32374 = "COS on rectangular arguments is not (yet) implemented"; /* x162679 stalin.sc:23014:802403 */ t32375.tag = STRUCTURE_TYPE27745; t32375.value.structure_type27745 = t32373; f9707(t32375, t32374); return r17377; l4487: /* x162688 */ /* x162687 */ /* x162686 stalin.sc:23015:802487 */ /* x162685 stalin.sc:23015:802488 */ /* x295705 QobiScheme.sc:166:5314 */ /* x295704 QobiScheme.sc:166:5321 */ t32371 = "This shouldn\'t happen"; /* x295703 QobiScheme.sc:166:5315 */ stalin_panic(t32371);} /* [inside top level 17369] */ struct structure_type24753 *f17369(struct p17364 *p17369, unsigned a29688) {char *t32391; struct structure_type27745 *t32392; unsigned t32393; struct w49 t32394; /* x162620 stalin.sc:22994:801899 */ /* x162617 stalin.sc:22994:801914 */ t32391 = "sin"; /* x162618 stalin.sc:22994:801920 */ t32392 = p17369->a29672; /* x162619 stalin.sc:22994:801922 */ t32393 = a29688; /* x162616 stalin.sc:22994:801900 */ t32394.tag = STRUCTURE_TYPE27745; t32394.value.structure_type27745 = t32392; return f15534(t32391, t32394, t32393);} /* [inside top level 17365] */ struct w49 f17365(struct p17364 *p17365, struct w49 a29687) {struct w49 r17365; struct w49 a25469; /* C */ struct w49 t32395; struct w49 t32396; char *t32397; struct p17364 *t32398; struct structure_type27745 *t32399; char *t32400; struct w6315 t32401; struct p17364 *t32402; struct structure_type27501 *t32403; struct structure_type24753 *t32404; struct w49 t32405; unsigned t32406; struct w49 t32407; char *t32408; struct w49 t32409; struct w49 t32410; struct w12224 t32411; char *t32412; struct w49 t32413; struct w49 t32414; struct w49 t32415; struct w49 t32416; struct p17364 *p17366; struct p17364 *p17367; /* x162614 stalin.sc:22988:801653 */ /* x162586 stalin.sc:22989:801664 */ /* x162585 stalin.sc:22989:801693 */ t32395 = a29687; /* x162584 stalin.sc:22989:801665 */ if (f7685(t32395)==FALSE_TYPE) goto l4489; /* x162599 */ /* x162598 */ t32402 = p17365; p17366 = t32402; /* x162597 stalin.sc:22990:801702 */ /* x162588 stalin.sc:22990:801709 */ t32403 = p17366->a29671; /* x162595 stalin.sc:22990:801711 */ /* x162594 stalin.sc:22990:801718 */ /* x162591 stalin.sc:22990:801727 */ t32414 = p17366->a29681; /* x162592 stalin.sc:22990:801730 */ t32415 = a29687; /* x162593 stalin.sc:22990:801733 */ t32416 = p17366->a29682; /* x162590 stalin.sc:22990:801719 */ t32407 = f14485(t32414, t32415, t32416); /* x162589 stalin.sc:22990:801712 */ a25469 = t32407; /* x124582 */ /* x124581 stalin.sc:14972:523574 */ /* x124580 stalin.sc:14972:523584 */ t32412 = "math"; /* x124579 stalin.sc:14972:523575 */ t32413.tag = STRING_TYPE; t32413.value.string_type = t32412; f18320(t32413); /* x124578 */ /* x124577 stalin.sc:14973:523600 */ /* x124576 stalin.sc:14973:523614 */ t32409 = a25469; /* x124575 stalin.sc:14973:523608 */ t32408 = "sin"; /* x124574 stalin.sc:14973:523601 */ t32410.tag = STRING_TYPE; t32410.value.string_type = t32408; t32411.tag = STRUCTURE_TYPE24753; t32411.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32411.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14973, 523600); out_of_memory_error();} t32411.value.structure_type24753->s0 = t32409; t32411.value.structure_type24753->s1.tag = NULL_TYPE; t32404 = f13543(t32410, t32411); /* x162596 stalin.sc:22990:801738 */ /* x162587 stalin.sc:22990:801703 */ t32405.tag = STRUCTURE_TYPE24753; t32405.value.structure_type24753 = t32404; t32406 = (unsigned)NATIVE_PROCEDURE_TYPE7429; return f15508(t32403, t32405, t32406); l4489: /* x162613 */ /* x162602 stalin.sc:22991:801758 */ /* x162601 stalin.sc:22991:801777 */ t32396 = a29687; /* x162600 stalin.sc:22991:801759 */ if (f7687(t32396)==FALSE_TYPE) goto l4491; /* x162608 */ /* x162607 */ t32398 = p17365; p17367 = t32398; /* x162606 stalin.sc:22992:801786 */ /* x162604 stalin.sc:22992:801801 */ t32399 = p17367->a29672; /* x162605 stalin.sc:22992:801803 */ t32400 = "SIN on rectangular arguments is not (yet) implemented"; /* x162603 stalin.sc:22992:801787 */ t32401.tag = STRUCTURE_TYPE27745; t32401.value.structure_type27745 = t32399; f9707(t32401, t32400); return r17365; l4491: /* x162612 */ /* x162611 */ /* x162610 stalin.sc:22993:801871 */ /* x162609 stalin.sc:22993:801872 */ /* x295701 QobiScheme.sc:166:5314 */ /* x295700 QobiScheme.sc:166:5321 */ t32397 = "This shouldn\'t happen"; /* x295699 QobiScheme.sc:166:5315 */ stalin_panic(t32397);} /* [inside top level 17357] */ struct structure_type24753 *f17357(struct p17352 *p17357, unsigned a29644) {char *t32417; struct structure_type27745 *t32418; unsigned t32419; struct w49 t32420; /* x162544 stalin.sc:22972:801283 */ /* x162541 stalin.sc:22972:801298 */ t32417 = "log"; /* x162542 stalin.sc:22972:801304 */ t32418 = p17357->a29628; /* x162543 stalin.sc:22972:801306 */ t32419 = a29644; /* x162540 stalin.sc:22972:801284 */ t32420.tag = STRUCTURE_TYPE27745; t32420.value.structure_type27745 = t32418; return f15534(t32417, t32420, t32419);} /* [inside top level 17353] */ struct w49 f17353(struct p17352 *p17353, struct w49 a29643) {struct w49 r17353; struct w49 a25467; /* C */ struct w49 t32421; struct w49 t32422; char *t32423; struct p17352 *t32424; struct structure_type27745 *t32425; char *t32426; struct w6315 t32427; struct p17352 *t32428; struct structure_type27501 *t32429; struct structure_type24753 *t32430; struct w49 t32431; unsigned t32432; struct w49 t32433; char *t32434; struct w49 t32435; struct w49 t32436; struct w12224 t32437; char *t32438; struct w49 t32439; struct w49 t32440; struct w49 t32441; struct w49 t32442; struct p17352 *p17354; struct p17352 *p17355; /* x162538 stalin.sc:22966:801037 */ /* x162510 stalin.sc:22967:801048 */ /* x162509 stalin.sc:22967:801077 */ t32421 = a29643; /* x162508 stalin.sc:22967:801049 */ if (f7685(t32421)==FALSE_TYPE) goto l4493; /* x162523 */ /* x162522 */ t32428 = p17353; p17354 = t32428; /* x162521 stalin.sc:22968:801086 */ /* x162512 stalin.sc:22968:801093 */ t32429 = p17354->a29627; /* x162519 stalin.sc:22968:801095 */ /* x162518 stalin.sc:22968:801102 */ /* x162515 stalin.sc:22968:801111 */ t32440 = p17354->a29637; /* x162516 stalin.sc:22968:801114 */ t32441 = a29643; /* x162517 stalin.sc:22968:801117 */ t32442 = p17354->a29638; /* x162514 stalin.sc:22968:801103 */ t32433 = f14485(t32440, t32441, t32442); /* x162513 stalin.sc:22968:801096 */ a25467 = t32433; /* x124571 */ /* x124570 stalin.sc:14968:523510 */ /* x124569 stalin.sc:14968:523520 */ t32438 = "math"; /* x124568 stalin.sc:14968:523511 */ t32439.tag = STRING_TYPE; t32439.value.string_type = t32438; f18320(t32439); /* x124567 */ /* x124566 stalin.sc:14969:523536 */ /* x124565 stalin.sc:14969:523550 */ t32435 = a25467; /* x124564 stalin.sc:14969:523544 */ t32434 = "log"; /* x124563 stalin.sc:14969:523537 */ t32436.tag = STRING_TYPE; t32436.value.string_type = t32434; t32437.tag = STRUCTURE_TYPE24753; t32437.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32437.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14969, 523536); out_of_memory_error();} t32437.value.structure_type24753->s0 = t32435; t32437.value.structure_type24753->s1.tag = NULL_TYPE; t32430 = f13543(t32436, t32437); /* x162520 stalin.sc:22968:801122 */ /* x162511 stalin.sc:22968:801087 */ t32431.tag = STRUCTURE_TYPE24753; t32431.value.structure_type24753 = t32430; t32432 = (unsigned)NATIVE_PROCEDURE_TYPE7429; return f15508(t32429, t32431, t32432); l4493: /* x162537 */ /* x162526 stalin.sc:22969:801142 */ /* x162525 stalin.sc:22969:801161 */ t32422 = a29643; /* x162524 stalin.sc:22969:801143 */ if (f7687(t32422)==FALSE_TYPE) goto l4495; /* x162532 */ /* x162531 */ t32424 = p17353; p17355 = t32424; /* x162530 stalin.sc:22970:801170 */ /* x162528 stalin.sc:22970:801185 */ t32425 = p17355->a29628; /* x162529 stalin.sc:22970:801187 */ t32426 = "LOG on rectangular arguments is not (yet) implemented"; /* x162527 stalin.sc:22970:801171 */ t32427.tag = STRUCTURE_TYPE27745; t32427.value.structure_type27745 = t32425; f9707(t32427, t32426); return r17353; l4495: /* x162536 */ /* x162535 */ /* x162534 stalin.sc:22971:801255 */ /* x162533 stalin.sc:22971:801256 */ /* x295709 QobiScheme.sc:166:5314 */ /* x295708 QobiScheme.sc:166:5321 */ t32423 = "This shouldn\'t happen"; /* x295707 QobiScheme.sc:166:5315 */ stalin_panic(t32423);} /* [inside top level 17345] */ struct structure_type24753 *f17345(struct p17340 *p17345, unsigned a29600) {char *t32443; struct structure_type27745 *t32444; unsigned t32445; struct w49 t32446; /* x162468 stalin.sc:22937:799720 */ /* x162465 stalin.sc:22937:799735 */ t32443 = "exp"; /* x162466 stalin.sc:22937:799741 */ t32444 = p17345->a29584; /* x162467 stalin.sc:22937:799743 */ t32445 = a29600; /* x162464 stalin.sc:22937:799721 */ t32446.tag = STRUCTURE_TYPE27745; t32446.value.structure_type27745 = t32444; return f15534(t32443, t32446, t32445);} /* [inside top level 17341] */ struct w49 f17341(struct p17340 *p17341, struct w49 a29599) {struct w49 r17341; struct w49 a25465; /* C */ struct w49 t32447; struct w49 t32448; char *t32449; struct p17340 *t32450; struct structure_type27745 *t32451; char *t32452; struct w6315 t32453; struct p17340 *t32454; struct structure_type27501 *t32455; struct structure_type24753 *t32456; struct w49 t32457; unsigned t32458; struct w49 t32459; char *t32460; struct w49 t32461; struct w49 t32462; struct w12224 t32463; char *t32464; struct w49 t32465; struct w49 t32466; struct w49 t32467; struct w49 t32468; struct p17340 *p17342; struct p17340 *p17343; /* x162462 stalin.sc:22931:799474 */ /* x162434 stalin.sc:22932:799485 */ /* x162433 stalin.sc:22932:799514 */ t32447 = a29599; /* x162432 stalin.sc:22932:799486 */ if (f7685(t32447)==FALSE_TYPE) goto l4497; /* x162447 */ /* x162446 */ t32454 = p17341; p17342 = t32454; /* x162445 stalin.sc:22933:799523 */ /* x162436 stalin.sc:22933:799530 */ t32455 = p17342->a29583; /* x162443 stalin.sc:22933:799532 */ /* x162442 stalin.sc:22933:799539 */ /* x162439 stalin.sc:22933:799548 */ t32466 = p17342->a29593; /* x162440 stalin.sc:22933:799551 */ t32467 = a29599; /* x162441 stalin.sc:22933:799554 */ t32468 = p17342->a29594; /* x162438 stalin.sc:22933:799540 */ t32459 = f14485(t32466, t32467, t32468); /* x162437 stalin.sc:22933:799533 */ a25465 = t32459; /* x124560 */ /* x124559 stalin.sc:14964:523446 */ /* x124558 stalin.sc:14964:523456 */ t32464 = "math"; /* x124557 stalin.sc:14964:523447 */ t32465.tag = STRING_TYPE; t32465.value.string_type = t32464; f18320(t32465); /* x124556 */ /* x124555 stalin.sc:14965:523472 */ /* x124554 stalin.sc:14965:523486 */ t32461 = a25465; /* x124553 stalin.sc:14965:523480 */ t32460 = "exp"; /* x124552 stalin.sc:14965:523473 */ t32462.tag = STRING_TYPE; t32462.value.string_type = t32460; t32463.tag = STRUCTURE_TYPE24753; t32463.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32463.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14965, 523472); out_of_memory_error();} t32463.value.structure_type24753->s0 = t32461; t32463.value.structure_type24753->s1.tag = NULL_TYPE; t32456 = f13543(t32462, t32463); /* x162444 stalin.sc:22933:799559 */ /* x162435 stalin.sc:22933:799524 */ t32457.tag = STRUCTURE_TYPE24753; t32457.value.structure_type24753 = t32456; t32458 = (unsigned)NATIVE_PROCEDURE_TYPE7429; return f15508(t32455, t32457, t32458); l4497: /* x162461 */ /* x162450 stalin.sc:22934:799579 */ /* x162449 stalin.sc:22934:799598 */ t32448 = a29599; /* x162448 stalin.sc:22934:799580 */ if (f7687(t32448)==FALSE_TYPE) goto l4499; /* x162456 */ /* x162455 */ t32450 = p17341; p17343 = t32450; /* x162454 stalin.sc:22935:799607 */ /* x162452 stalin.sc:22935:799622 */ t32451 = p17343->a29584; /* x162453 stalin.sc:22935:799624 */ t32452 = "EXP on rectangular arguments is not (yet) implemented"; /* x162451 stalin.sc:22935:799608 */ t32453.tag = STRUCTURE_TYPE27745; t32453.value.structure_type27745 = t32451; f9707(t32453, t32452); return r17341; l4499: /* x162460 */ /* x162459 */ /* x162458 stalin.sc:22936:799692 */ /* x162457 stalin.sc:22936:799693 */ /* x295665 QobiScheme.sc:166:5314 */ /* x295664 QobiScheme.sc:166:5321 */ t32449 = "This shouldn\'t happen"; /* x295663 QobiScheme.sc:166:5315 */ stalin_panic(t32449);} /* [inside top level 17333] */ struct structure_type24753 *f17333(struct p17327 *p17333, unsigned a29556) {char *t32469; struct structure_type27745 *t32470; unsigned t32471; struct w49 t32472; /* x162392 stalin.sc:22915:799102 */ /* x162389 stalin.sc:22915:799117 */ t32469 = "round"; /* x162390 stalin.sc:22915:799125 */ t32470 = p17333->a29540; /* x162391 stalin.sc:22915:799127 */ t32471 = a29556; /* x162388 stalin.sc:22915:799103 */ t32472.tag = STRUCTURE_TYPE27745; t32472.value.structure_type27745 = t32470; return f15534(t32469, t32472, t32471);} /* [inside top level 17328] */ struct w49 f17328(struct p17327 *p17328, struct w49 a29555) {struct structure_type24753 *a41803; /* CS */ struct w49 t32473; struct w49 t32474; struct w49 t32475; char *t32476; struct p17327 *t32477; struct w49 t32478; struct w49 t32479; struct structure_type24753 *t32480; struct w49 t32481; struct w49 t32482; struct structure_type24753 *t32483; struct structure_type24753 *t32484; char *t32485; struct w49 t32486; struct w49 t32487; unsigned t32488; struct structure_type24753 *t32489; struct w49 t32490; struct w49 t32491; struct w49 t32492; struct w49 t32493; char *t32494; struct structure_type27745 *t32495; struct w49 t32496; unsigned t32497; struct structure_type27501 *t32498; struct structure_type24753 *t32499; struct w49 t32500; unsigned t32501; struct structure_type24753 *t32502; struct w49 t32503; struct w49 t32504; struct w49 t32505; struct w49 t32506; struct w49 t32507; struct p17327 *t32508; struct structure_type27501 *t32509; struct structure_type24753 *t32510; struct w49 t32511; unsigned t32512; struct w49 t32513; struct w49 t32514; struct w49 t32515; struct w49 t32516; struct p17327 *t32517; struct structure_type27501 *t32518; struct w49 t32519; unsigned t32520; struct w49 t32521; struct w49 t32522; struct w49 t32523; struct p17327 *p17329; struct p17327 *p17330; struct p17327 *p17331; /* x162386 stalin.sc:22903:798663 */ /* x162309 stalin.sc:22903:798670 */ /* x162308 stalin.sc:22903:798684 */ t32473 = a29555; /* x162307 stalin.sc:22903:798671 */ if (f7683(t32473)==FALSE_TYPE) goto l4501; /* x162320 */ /* x162319 */ t32517 = p17328; p17329 = t32517; /* x162318 stalin.sc:22903:798688 */ /* x162311 stalin.sc:22903:798695 */ t32518 = p17329->a29539; /* x162316 stalin.sc:22903:798697 */ /* x162313 stalin.sc:22903:798706 */ t32521 = p17329->a29549; /* x162314 stalin.sc:22903:798709 */ t32522 = a29555; /* x162315 stalin.sc:22903:798712 */ t32523 = p17329->a29550; /* x162312 stalin.sc:22903:798698 */ t32519 = f14485(t32521, t32522, t32523); /* x162317 stalin.sc:22903:798716 */ /* x162310 stalin.sc:22903:798689 */ t32520 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t32518, t32519, t32520); l4501: /* x162385 */ /* x162323 stalin.sc:22904:798734 */ /* x162322 stalin.sc:22904:798748 */ t32474 = a29555; /* x162321 stalin.sc:22904:798735 */ if (f7684(t32474)==FALSE_TYPE) goto l4503; /* x162336 */ /* x162335 */ t32508 = p17328; p17330 = t32508; /* x162334 stalin.sc:22904:798752 */ /* x162325 stalin.sc:22904:798759 */ t32509 = p17330->a29539; /* x162332 stalin.sc:22904:798761 */ /* x162331 stalin.sc:22904:798769 */ /* x162328 stalin.sc:22904:798778 */ t32514 = p17330->a29549; /* x162329 stalin.sc:22904:798781 */ t32515 = a29555; /* x162330 stalin.sc:22904:798784 */ t32516 = p17330->a29550; /* x162327 stalin.sc:22904:798770 */ t32513 = f14485(t32514, t32515, t32516); /* x162326 stalin.sc:22904:798762 */ t32510 = f13698(t32513); /* x162333 stalin.sc:22904:798789 */ /* x162324 stalin.sc:22904:798753 */ t32511.tag = STRUCTURE_TYPE24753; t32511.value.structure_type24753 = t32510; t32512 = (unsigned)NATIVE_PROCEDURE_TYPE7429; return f15508(t32509, t32511, t32512); l4503: /* x162384 */ /* x162339 stalin.sc:22905:798807 */ /* x162338 stalin.sc:22905:798826 */ t32475 = a29555; /* x162337 stalin.sc:22905:798808 */ if (f7687(t32475)==FALSE_TYPE) goto l4505; /* x162379 */ /* x162378 */ t32477 = p17328; p17331 = t32477; /* x162377 stalin.sc:22906:798833 */ /* x162376 stalin.sc:22913:799007 */ /* x162365 stalin.sc:22913:799014 */ t32498 = p17331->a29539; /* x162374 stalin.sc:22913:799016 */ /* x162373 stalin.sc:22913:799024 */ /* x162372 stalin.sc:22913:799029 */ /* x162369 stalin.sc:22913:799038 */ t32505 = p17331->a29549; /* x162370 stalin.sc:22913:799041 */ t32506 = a29555; /* x162371 stalin.sc:22913:799044 */ t32507 = p17331->a29550; /* x162368 stalin.sc:22913:799030 */ t32504 = f14485(t32505, t32506, t32507); /* x162367 stalin.sc:22913:799025 */ t32502 = f14286(t32504); /* x162366 stalin.sc:22913:799017 */ t32503.tag = STRUCTURE_TYPE24753; t32503.value.structure_type24753 = t32502; t32499 = f13698(t32503); /* x162375 stalin.sc:22913:799050 */ /* x162364 stalin.sc:22913:799008 */ t32500.tag = STRUCTURE_TYPE24753; t32500.value.structure_type24753 = t32499; t32501 = (unsigned)NATIVE_PROCEDURE_TYPE7429; t32479 = f15508(t32498, t32500, t32501); /* x162363 stalin.sc:22907:798854 */ /* x162341 stalin.sc:22907:798858 */ if (a703==FALSE_TYPE) goto l4507; /* x162360 stalin.sc:22908:798881 */ /* x162351 stalin.sc:22908:798887 */ /* x162350 stalin.sc:22908:798896 */ /* x162349 stalin.sc:22908:798901 */ /* x162346 stalin.sc:22908:798910 */ t32491 = p17331->a29549; /* x162347 stalin.sc:22908:798913 */ t32492 = a29555; /* x162348 stalin.sc:22908:798916 */ t32493 = p17331->a29550; /* x162345 stalin.sc:22908:798902 */ t32490 = f14485(t32491, t32492, t32493); /* x162344 stalin.sc:22908:798897 */ t32489 = f14278(t32490); /* x162343 stalin.sc:22908:798888 */ t32483 = f13600(t32489); /* x162356 stalin.sc:22909:798929 */ /* x162353 stalin.sc:22909:798944 */ t32494 = "round"; /* x162354 stalin.sc:22909:798952 */ t32495 = p17331->a29540; /* x162355 stalin.sc:22909:798954 */ /* x162352 stalin.sc:22909:798930 */ t32496.tag = STRUCTURE_TYPE27745; t32496.value.structure_type27745 = t32495; t32497 = FALSE_TYPE; t32484 = f15534(t32494, t32496, t32497); /* x162358 stalin.sc:22910:798965 */ /* x162357 stalin.sc:22910:798966 */ /* x276659 stalin.sc:14693:514793 */ t32485 = ""; /* x162359 stalin.sc:22911:798981 */ /* x162342 stalin.sc:22908:798882 */ t32486.tag = STRUCTURE_TYPE24753; t32486.value.structure_type24753 = t32484; t32487.tag = STRING_TYPE; t32487.value.string_type = t32485; t32488 = FALSE_TYPE; t32478 = f13672(t32483, t32486, t32487, t32488); goto l4508; l4507: /* x162362 stalin.sc:22912:798993 */ /* x162361 stalin.sc:22912:798994 */ /* x276661 stalin.sc:14693:514793 */ t32478.tag = STRING_TYPE; t32478.value.string_type = ""; l4508: /* x162340 stalin.sc:22906:798834 */ t32482.tag = STRUCTURE_TYPE24753; t32482.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32482.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22906, 798833); out_of_memory_error();} t32482.value.structure_type24753->s0 = t32479; t32482.value.structure_type24753->s1.tag = NULL_TYPE; a41803 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41803==NULL) {backtrace("stalin.sc", 22906, 798833); out_of_memory_error();} a41803->s0 = t32478; a41803->s1 = t32482; /* x301324 stalin.sc:14400:506485 */ /* x301323 stalin.sc:14400:506503 */ t32480 = a41803; /* x301322 stalin.sc:14400:506486 */ t32481.tag = STRUCTURE_TYPE24753; t32481.value.structure_type24753 = t32480; return f13492(t32481); l4505: /* x162383 */ /* x162382 */ /* x162381 stalin.sc:22914:799074 */ /* x162380 stalin.sc:22914:799075 */ /* x295721 QobiScheme.sc:166:5314 */ /* x295720 QobiScheme.sc:166:5321 */ t32476 = "This shouldn\'t happen"; /* x295719 QobiScheme.sc:166:5315 */ stalin_panic(t32476);} /* [inside top level 17314] */ struct structure_type24753 *f17314(struct p17308 *p17314, unsigned a29510) {char *t32524; struct structure_type27745 *t32525; unsigned t32526; struct w49 t32527; /* x162235 stalin.sc:22883:798143 */ /* x162232 stalin.sc:22883:798158 */ t32524 = "truncate"; /* x162233 stalin.sc:22883:798169 */ t32525 = p17314->a29494; /* x162234 stalin.sc:22883:798171 */ t32526 = a29510; /* x162231 stalin.sc:22883:798144 */ t32527.tag = STRUCTURE_TYPE27745; t32527.value.structure_type27745 = t32525; return f15534(t32524, t32527, t32526);} /* [inside top level 17309] */ struct w49 f17309(struct p17308 *p17309, struct w49 a29509) {struct structure_type24753 *a41802; /* CS */ struct w49 t32528; struct w49 t32529; struct w49 t32530; char *t32531; struct p17308 *t32532; struct w49 t32533; struct w49 t32534; struct structure_type24753 *t32535; struct w49 t32536; struct w49 t32537; struct structure_type24753 *t32538; struct structure_type24753 *t32539; char *t32540; struct w49 t32541; struct w49 t32542; unsigned t32543; struct structure_type24753 *t32544; struct w49 t32545; struct w49 t32546; struct w49 t32547; struct w49 t32548; char *t32549; struct structure_type27745 *t32550; struct w49 t32551; unsigned t32552; struct structure_type27501 *t32553; struct structure_type24753 *t32554; struct w49 t32555; unsigned t32556; struct structure_type24753 *t32557; struct structure_type24753 *t32558; struct structure_type24753 *t32559; struct w49 t32560; struct w49 t32561; struct structure_type24753 *t32562; struct w49 t32563; struct w49 t32564; struct w49 t32565; struct w49 t32566; struct w49 t32567; struct structure_type24753 *t32568; struct w49 t32569; struct w49 t32570; struct w49 t32571; struct w49 t32572; struct w49 t32573; struct structure_type24753 *t32574; struct w49 t32575; struct w49 t32576; struct w49 t32577; struct w49 t32578; struct w49 t32579; struct p17308 *t32580; struct structure_type27501 *t32581; struct structure_type24753 *t32582; struct w49 t32583; unsigned t32584; struct structure_type24753 *t32585; struct structure_type24753 *t32586; struct structure_type24753 *t32587; struct w49 t32588; struct w49 t32589; struct w49 t32590; struct w49 t32591; struct w49 t32592; struct w49 t32593; struct w49 t32594; struct w49 t32595; struct w49 t32596; struct w49 t32597; struct w49 t32598; struct w49 t32599; struct w49 t32600; struct w49 t32601; struct p17308 *t32602; struct structure_type27501 *t32603; struct w49 t32604; unsigned t32605; struct w49 t32606; struct w49 t32607; struct w49 t32608; struct p17308 *p17310; struct p17308 *p17311; struct p17308 *p17312; /* x162229 stalin.sc:22863:797504 */ /* x162116 stalin.sc:22863:797511 */ /* x162115 stalin.sc:22863:797525 */ t32528 = a29509; /* x162114 stalin.sc:22863:797512 */ if (f7683(t32528)==FALSE_TYPE) goto l4510; /* x162127 */ /* x162126 */ t32602 = p17309; p17310 = t32602; /* x162125 stalin.sc:22863:797529 */ /* x162118 stalin.sc:22863:797536 */ t32603 = p17310->a29493; /* x162123 stalin.sc:22863:797538 */ /* x162120 stalin.sc:22863:797547 */ t32606 = p17310->a29503; /* x162121 stalin.sc:22863:797550 */ t32607 = a29509; /* x162122 stalin.sc:22863:797553 */ t32608 = p17310->a29504; /* x162119 stalin.sc:22863:797539 */ t32604 = f14485(t32606, t32607, t32608); /* x162124 stalin.sc:22863:797557 */ /* x162117 stalin.sc:22863:797530 */ t32605 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t32603, t32604, t32605); l4510: /* x162228 */ /* x162130 stalin.sc:22864:797575 */ /* x162129 stalin.sc:22864:797589 */ t32529 = a29509; /* x162128 stalin.sc:22864:797576 */ if (f7684(t32529)==FALSE_TYPE) goto l4512; /* x162159 */ /* x162158 */ t32580 = p17309; p17311 = t32580; /* x162157 stalin.sc:22865:797596 */ /* x162132 stalin.sc:22865:797603 */ t32581 = p17311->a29493; /* x162155 stalin.sc:22866:797608 */ /* x162140 stalin.sc:22866:797614 */ /* x162139 stalin.sc:22866:797622 */ /* x162136 stalin.sc:22866:797631 */ t32591 = p17311->a29503; /* x162137 stalin.sc:22866:797634 */ t32592 = a29509; /* x162138 stalin.sc:22866:797637 */ t32593 = p17311->a29504; /* x162135 stalin.sc:22866:797623 */ t32590 = f14485(t32591, t32592, t32593); /* x162134 stalin.sc:22866:797615 */ t32585 = f13603(t32590); /* x162147 stalin.sc:22867:797651 */ /* x162146 stalin.sc:22867:797659 */ /* x162143 stalin.sc:22867:797668 */ t32595 = p17311->a29503; /* x162144 stalin.sc:22867:797671 */ t32596 = a29509; /* x162145 stalin.sc:22867:797674 */ t32597 = p17311->a29504; /* x162142 stalin.sc:22867:797660 */ t32594 = f14485(t32595, t32596, t32597); /* x162141 stalin.sc:22867:797652 */ t32586 = f13702(t32594); /* x162154 stalin.sc:22868:797688 */ /* x162153 stalin.sc:22868:797697 */ /* x162150 stalin.sc:22868:797706 */ t32599 = p17311->a29503; /* x162151 stalin.sc:22868:797709 */ t32600 = a29509; /* x162152 stalin.sc:22868:797712 */ t32601 = p17311->a29504; /* x162149 stalin.sc:22868:797698 */ t32598 = f14485(t32599, t32600, t32601); /* x162148 stalin.sc:22868:797689 */ t32587 = f13700(t32598); /* x162133 stalin.sc:22866:797609 */ t32588.tag = STRUCTURE_TYPE24753; t32588.value.structure_type24753 = t32586; t32589.tag = STRUCTURE_TYPE24753; t32589.value.structure_type24753 = t32587; t32582 = f13574(t32585, t32588, t32589); /* x162156 stalin.sc:22869:797721 */ /* x162131 stalin.sc:22865:797597 */ t32583.tag = STRUCTURE_TYPE24753; t32583.value.structure_type24753 = t32582; t32584 = (unsigned)NATIVE_PROCEDURE_TYPE7429; return f15508(t32581, t32583, t32584); l4512: /* x162227 */ /* x162162 stalin.sc:22870:797739 */ /* x162161 stalin.sc:22870:797758 */ t32530 = a29509; /* x162160 stalin.sc:22870:797740 */ if (f7687(t32530)==FALSE_TYPE) goto l4514; /* x162222 */ /* x162221 */ t32532 = p17309; p17312 = t32532; /* x162220 stalin.sc:22871:797765 */ /* x162219 stalin.sc:22877:797950 */ /* x162188 stalin.sc:22877:797957 */ t32553 = p17312->a29493; /* x162217 stalin.sc:22878:797965 */ /* x162198 stalin.sc:22878:797971 */ /* x162197 stalin.sc:22878:797979 */ /* x162196 stalin.sc:22878:797984 */ /* x162193 stalin.sc:22878:797993 */ t32565 = p17312->a29503; /* x162194 stalin.sc:22878:797996 */ t32566 = a29509; /* x162195 stalin.sc:22878:797999 */ t32567 = p17312->a29504; /* x162192 stalin.sc:22878:797985 */ t32564 = f14485(t32565, t32566, t32567); /* x162191 stalin.sc:22878:797980 */ t32562 = f14286(t32564); /* x162190 stalin.sc:22878:797972 */ t32563.tag = STRUCTURE_TYPE24753; t32563.value.structure_type24753 = t32562; t32557 = f13603(t32563); /* x162207 stalin.sc:22879:798010 */ /* x162206 stalin.sc:22879:798018 */ /* x162205 stalin.sc:22879:798023 */ /* x162202 stalin.sc:22879:798032 */ t32571 = p17312->a29503; /* x162203 stalin.sc:22879:798035 */ t32572 = a29509; /* x162204 stalin.sc:22879:798038 */ t32573 = p17312->a29504; /* x162201 stalin.sc:22879:798024 */ t32570 = f14485(t32571, t32572, t32573); /* x162200 stalin.sc:22879:798019 */ t32568 = f14286(t32570); /* x162199 stalin.sc:22879:798011 */ t32569.tag = STRUCTURE_TYPE24753; t32569.value.structure_type24753 = t32568; t32558 = f13702(t32569); /* x162216 stalin.sc:22880:798049 */ /* x162215 stalin.sc:22880:798058 */ /* x162214 stalin.sc:22880:798063 */ /* x162211 stalin.sc:22880:798072 */ t32577 = p17312->a29503; /* x162212 stalin.sc:22880:798075 */ t32578 = a29509; /* x162213 stalin.sc:22880:798078 */ t32579 = p17312->a29504; /* x162210 stalin.sc:22880:798064 */ t32576 = f14485(t32577, t32578, t32579); /* x162209 stalin.sc:22880:798059 */ t32574 = f14286(t32576); /* x162208 stalin.sc:22880:798050 */ t32575.tag = STRUCTURE_TYPE24753; t32575.value.structure_type24753 = t32574; t32559 = f13700(t32575); /* x162189 stalin.sc:22878:797966 */ t32560.tag = STRUCTURE_TYPE24753; t32560.value.structure_type24753 = t32558; t32561.tag = STRUCTURE_TYPE24753; t32561.value.structure_type24753 = t32559; t32554 = f13574(t32557, t32560, t32561); /* x162218 stalin.sc:22881:798091 */ /* x162187 stalin.sc:22877:797951 */ t32555.tag = STRUCTURE_TYPE24753; t32555.value.structure_type24753 = t32554; t32556 = (unsigned)NATIVE_PROCEDURE_TYPE7429; t32534 = f15508(t32553, t32555, t32556); /* x162186 stalin.sc:22871:797782 */ /* x162164 stalin.sc:22871:797786 */ if (a703==FALSE_TYPE) goto l4516; /* x162183 stalin.sc:22872:797811 */ /* x162174 stalin.sc:22872:797817 */ /* x162173 stalin.sc:22872:797826 */ /* x162172 stalin.sc:22872:797831 */ /* x162169 stalin.sc:22872:797840 */ t32546 = p17312->a29503; /* x162170 stalin.sc:22872:797843 */ t32547 = a29509; /* x162171 stalin.sc:22872:797846 */ t32548 = p17312->a29504; /* x162168 stalin.sc:22872:797832 */ t32545 = f14485(t32546, t32547, t32548); /* x162167 stalin.sc:22872:797827 */ t32544 = f14278(t32545); /* x162166 stalin.sc:22872:797818 */ t32538 = f13600(t32544); /* x162179 stalin.sc:22873:797861 */ /* x162176 stalin.sc:22873:797876 */ t32549 = "truncate"; /* x162177 stalin.sc:22873:797887 */ t32550 = p17312->a29494; /* x162178 stalin.sc:22873:797889 */ /* x162175 stalin.sc:22873:797862 */ t32551.tag = STRUCTURE_TYPE27745; t32551.value.structure_type27745 = t32550; t32552 = FALSE_TYPE; t32539 = f15534(t32549, t32551, t32552); /* x162181 stalin.sc:22874:797902 */ /* x162180 stalin.sc:22874:797903 */ /* x276655 stalin.sc:14693:514793 */ t32540 = ""; /* x162182 stalin.sc:22875:797920 */ /* x162165 stalin.sc:22872:797812 */ t32541.tag = STRUCTURE_TYPE24753; t32541.value.structure_type24753 = t32539; t32542.tag = STRING_TYPE; t32542.value.string_type = t32540; t32543 = FALSE_TYPE; t32533 = f13672(t32538, t32541, t32542, t32543); goto l4517; l4516: /* x162185 stalin.sc:22876:797934 */ /* x162184 stalin.sc:22876:797935 */ /* x276657 stalin.sc:14693:514793 */ t32533.tag = STRING_TYPE; t32533.value.string_type = ""; l4517: /* x162163 stalin.sc:22871:797766 */ t32537.tag = STRUCTURE_TYPE24753; t32537.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32537.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22871, 797765); out_of_memory_error();} t32537.value.structure_type24753->s0 = t32534; t32537.value.structure_type24753->s1.tag = NULL_TYPE; a41802 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41802==NULL) {backtrace("stalin.sc", 22871, 797765); out_of_memory_error();} a41802->s0 = t32533; a41802->s1 = t32537; /* x301320 stalin.sc:14400:506485 */ /* x301319 stalin.sc:14400:506503 */ t32535 = a41802; /* x301318 stalin.sc:14400:506486 */ t32536.tag = STRUCTURE_TYPE24753; t32536.value.structure_type24753 = t32535; return f13492(t32536); l4514: /* x162226 */ /* x162225 */ /* x162224 stalin.sc:22882:798115 */ /* x162223 stalin.sc:22882:798116 */ /* x295717 QobiScheme.sc:166:5314 */ /* x295716 QobiScheme.sc:166:5321 */ t32531 = "This shouldn\'t happen"; /* x295715 QobiScheme.sc:166:5315 */ stalin_panic(t32531);} /* [inside top level 17295] */ struct structure_type24753 *f17295(struct p17289 *p17295, unsigned a29464) {char *t32609; struct structure_type27745 *t32610; unsigned t32611; struct w49 t32612; /* x162042 stalin.sc:22843:796982 */ /* x162039 stalin.sc:22843:796997 */ t32609 = "ceiling"; /* x162040 stalin.sc:22843:797007 */ t32610 = p17295->a29448; /* x162041 stalin.sc:22843:797009 */ t32611 = a29464; /* x162038 stalin.sc:22843:796983 */ t32612.tag = STRUCTURE_TYPE27745; t32612.value.structure_type27745 = t32610; return f15534(t32609, t32612, t32611);} /* [inside top level 17290] */ struct w49 f17290(struct p17289 *p17290, struct w49 a29463) {struct structure_type24753 *a41804; /* CS */ struct w49 t32613; struct w49 t32614; struct w49 t32615; char *t32616; struct p17289 *t32617; struct w49 t32618; struct w49 t32619; struct structure_type24753 *t32620; struct w49 t32621; struct w49 t32622; struct structure_type24753 *t32623; struct structure_type24753 *t32624; char *t32625; struct w49 t32626; struct w49 t32627; unsigned t32628; struct structure_type24753 *t32629; struct w49 t32630; struct w49 t32631; struct w49 t32632; struct w49 t32633; char *t32634; struct structure_type27745 *t32635; struct w49 t32636; unsigned t32637; struct structure_type27501 *t32638; struct structure_type24753 *t32639; struct w49 t32640; unsigned t32641; struct structure_type24753 *t32642; struct w49 t32643; struct w49 t32644; struct w49 t32645; struct w49 t32646; struct w49 t32647; struct p17289 *t32648; struct structure_type27501 *t32649; struct structure_type24753 *t32650; struct w49 t32651; unsigned t32652; struct w49 t32653; struct w49 t32654; struct w49 t32655; struct w49 t32656; struct p17289 *t32657; struct structure_type27501 *t32658; struct w49 t32659; unsigned t32660; struct w49 t32661; struct w49 t32662; struct w49 t32663; struct p17289 *p17291; struct p17289 *p17292; struct p17289 *p17293; /* x162036 stalin.sc:22831:796541 */ /* x161959 stalin.sc:22831:796548 */ /* x161958 stalin.sc:22831:796562 */ t32613 = a29463; /* x161957 stalin.sc:22831:796549 */ if (f7683(t32613)==FALSE_TYPE) goto l4519; /* x161970 */ /* x161969 */ t32657 = p17290; p17291 = t32657; /* x161968 stalin.sc:22831:796566 */ /* x161961 stalin.sc:22831:796573 */ t32658 = p17291->a29447; /* x161966 stalin.sc:22831:796575 */ /* x161963 stalin.sc:22831:796584 */ t32661 = p17291->a29457; /* x161964 stalin.sc:22831:796587 */ t32662 = a29463; /* x161965 stalin.sc:22831:796590 */ t32663 = p17291->a29458; /* x161962 stalin.sc:22831:796576 */ t32659 = f14485(t32661, t32662, t32663); /* x161967 stalin.sc:22831:796594 */ /* x161960 stalin.sc:22831:796567 */ t32660 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t32658, t32659, t32660); l4519: /* x162035 */ /* x161973 stalin.sc:22832:796612 */ /* x161972 stalin.sc:22832:796626 */ t32614 = a29463; /* x161971 stalin.sc:22832:796613 */ if (f7684(t32614)==FALSE_TYPE) goto l4521; /* x161986 */ /* x161985 */ t32648 = p17290; p17292 = t32648; /* x161984 stalin.sc:22832:796630 */ /* x161975 stalin.sc:22832:796637 */ t32649 = p17292->a29447; /* x161982 stalin.sc:22832:796639 */ /* x161981 stalin.sc:22832:796647 */ /* x161978 stalin.sc:22832:796656 */ t32654 = p17292->a29457; /* x161979 stalin.sc:22832:796659 */ t32655 = a29463; /* x161980 stalin.sc:22832:796662 */ t32656 = p17292->a29458; /* x161977 stalin.sc:22832:796648 */ t32653 = f14485(t32654, t32655, t32656); /* x161976 stalin.sc:22832:796640 */ t32650 = f13702(t32653); /* x161983 stalin.sc:22832:796667 */ /* x161974 stalin.sc:22832:796631 */ t32651.tag = STRUCTURE_TYPE24753; t32651.value.structure_type24753 = t32650; t32652 = (unsigned)NATIVE_PROCEDURE_TYPE7429; return f15508(t32649, t32651, t32652); l4521: /* x162034 */ /* x161989 stalin.sc:22833:796685 */ /* x161988 stalin.sc:22833:796704 */ t32615 = a29463; /* x161987 stalin.sc:22833:796686 */ if (f7687(t32615)==FALSE_TYPE) goto l4523; /* x162029 */ /* x162028 */ t32617 = p17290; p17293 = t32617; /* x162027 stalin.sc:22834:796711 */ /* x162026 stalin.sc:22841:796887 */ /* x162015 stalin.sc:22841:796894 */ t32638 = p17293->a29447; /* x162024 stalin.sc:22841:796896 */ /* x162023 stalin.sc:22841:796904 */ /* x162022 stalin.sc:22841:796909 */ /* x162019 stalin.sc:22841:796918 */ t32645 = p17293->a29457; /* x162020 stalin.sc:22841:796921 */ t32646 = a29463; /* x162021 stalin.sc:22841:796924 */ t32647 = p17293->a29458; /* x162018 stalin.sc:22841:796910 */ t32644 = f14485(t32645, t32646, t32647); /* x162017 stalin.sc:22841:796905 */ t32642 = f14286(t32644); /* x162016 stalin.sc:22841:796897 */ t32643.tag = STRUCTURE_TYPE24753; t32643.value.structure_type24753 = t32642; t32639 = f13702(t32643); /* x162025 stalin.sc:22841:796930 */ /* x162014 stalin.sc:22841:796888 */ t32640.tag = STRUCTURE_TYPE24753; t32640.value.structure_type24753 = t32639; t32641 = (unsigned)NATIVE_PROCEDURE_TYPE7429; t32619 = f15508(t32638, t32640, t32641); /* x162013 stalin.sc:22835:796732 */ /* x161991 stalin.sc:22835:796736 */ if (a703==FALSE_TYPE) goto l4525; /* x162010 stalin.sc:22836:796759 */ /* x162001 stalin.sc:22836:796765 */ /* x162000 stalin.sc:22836:796774 */ /* x161999 stalin.sc:22836:796779 */ /* x161996 stalin.sc:22836:796788 */ t32631 = p17293->a29457; /* x161997 stalin.sc:22836:796791 */ t32632 = a29463; /* x161998 stalin.sc:22836:796794 */ t32633 = p17293->a29458; /* x161995 stalin.sc:22836:796780 */ t32630 = f14485(t32631, t32632, t32633); /* x161994 stalin.sc:22836:796775 */ t32629 = f14278(t32630); /* x161993 stalin.sc:22836:796766 */ t32623 = f13600(t32629); /* x162006 stalin.sc:22837:796807 */ /* x162003 stalin.sc:22837:796822 */ t32634 = "ceiling"; /* x162004 stalin.sc:22837:796832 */ t32635 = p17293->a29448; /* x162005 stalin.sc:22837:796834 */ /* x162002 stalin.sc:22837:796808 */ t32636.tag = STRUCTURE_TYPE27745; t32636.value.structure_type27745 = t32635; t32637 = FALSE_TYPE; t32624 = f15534(t32634, t32636, t32637); /* x162008 stalin.sc:22838:796845 */ /* x162007 stalin.sc:22838:796846 */ /* x276663 stalin.sc:14693:514793 */ t32625 = ""; /* x162009 stalin.sc:22839:796861 */ /* x161992 stalin.sc:22836:796760 */ t32626.tag = STRUCTURE_TYPE24753; t32626.value.structure_type24753 = t32624; t32627.tag = STRING_TYPE; t32627.value.string_type = t32625; t32628 = FALSE_TYPE; t32618 = f13672(t32623, t32626, t32627, t32628); goto l4526; l4525: /* x162012 stalin.sc:22840:796873 */ /* x162011 stalin.sc:22840:796874 */ /* x276665 stalin.sc:14693:514793 */ t32618.tag = STRING_TYPE; t32618.value.string_type = ""; l4526: /* x161990 stalin.sc:22834:796712 */ t32622.tag = STRUCTURE_TYPE24753; t32622.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32622.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22834, 796711); out_of_memory_error();} t32622.value.structure_type24753->s0 = t32619; t32622.value.structure_type24753->s1.tag = NULL_TYPE; a41804 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41804==NULL) {backtrace("stalin.sc", 22834, 796711); out_of_memory_error();} a41804->s0 = t32618; a41804->s1 = t32622; /* x301328 stalin.sc:14400:506485 */ /* x301327 stalin.sc:14400:506503 */ t32620 = a41804; /* x301326 stalin.sc:14400:506486 */ t32621.tag = STRUCTURE_TYPE24753; t32621.value.structure_type24753 = t32620; return f13492(t32621); l4523: /* x162033 */ /* x162032 */ /* x162031 stalin.sc:22842:796954 */ /* x162030 stalin.sc:22842:796955 */ /* x295725 QobiScheme.sc:166:5314 */ /* x295724 QobiScheme.sc:166:5321 */ t32616 = "This shouldn\'t happen"; /* x295723 QobiScheme.sc:166:5315 */ stalin_panic(t32616);} /* [inside top level 17276] */ struct structure_type24753 *f17276(struct p17270 *p17276, unsigned a29418) {char *t32664; struct structure_type27745 *t32665; unsigned t32666; struct w49 t32667; /* x161885 stalin.sc:22811:796022 */ /* x161882 stalin.sc:22811:796037 */ t32664 = "floor"; /* x161883 stalin.sc:22811:796045 */ t32665 = p17276->a29402; /* x161884 stalin.sc:22811:796047 */ t32666 = a29418; /* x161881 stalin.sc:22811:796023 */ t32667.tag = STRUCTURE_TYPE27745; t32667.value.structure_type27745 = t32665; return f15534(t32664, t32667, t32666);} /* [inside top level 17271] */ struct w49 f17271(struct p17270 *p17271, struct w49 a29417) {struct structure_type24753 *a41801; /* CS */ struct w49 t32668; struct w49 t32669; struct w49 t32670; char *t32671; struct p17270 *t32672; struct w49 t32673; struct w49 t32674; struct structure_type24753 *t32675; struct w49 t32676; struct w49 t32677; struct structure_type24753 *t32678; struct structure_type24753 *t32679; char *t32680; struct w49 t32681; struct w49 t32682; unsigned t32683; struct structure_type24753 *t32684; struct w49 t32685; struct w49 t32686; struct w49 t32687; struct w49 t32688; char *t32689; struct structure_type27745 *t32690; struct w49 t32691; unsigned t32692; struct structure_type27501 *t32693; struct structure_type24753 *t32694; struct w49 t32695; unsigned t32696; struct structure_type24753 *t32697; struct w49 t32698; struct w49 t32699; struct w49 t32700; struct w49 t32701; struct w49 t32702; struct p17270 *t32703; struct structure_type27501 *t32704; struct structure_type24753 *t32705; struct w49 t32706; unsigned t32707; struct w49 t32708; struct w49 t32709; struct w49 t32710; struct w49 t32711; struct p17270 *t32712; struct structure_type27501 *t32713; struct w49 t32714; unsigned t32715; struct w49 t32716; struct w49 t32717; struct w49 t32718; struct p17270 *p17272; struct p17270 *p17273; struct p17270 *p17274; /* x161879 stalin.sc:22798:795590 */ /* x161802 stalin.sc:22799:795601 */ /* x161801 stalin.sc:22799:795615 */ t32668 = a29417; /* x161800 stalin.sc:22799:795602 */ if (f7683(t32668)==FALSE_TYPE) goto l4528; /* x161813 */ /* x161812 */ t32712 = p17271; p17272 = t32712; /* x161811 stalin.sc:22799:795619 */ /* x161804 stalin.sc:22799:795626 */ t32713 = p17272->a29401; /* x161809 stalin.sc:22799:795628 */ /* x161806 stalin.sc:22799:795637 */ t32716 = p17272->a29411; /* x161807 stalin.sc:22799:795640 */ t32717 = a29417; /* x161808 stalin.sc:22799:795643 */ t32718 = p17272->a29412; /* x161805 stalin.sc:22799:795629 */ t32714 = f14485(t32716, t32717, t32718); /* x161810 stalin.sc:22799:795647 */ /* x161803 stalin.sc:22799:795620 */ t32715 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t32713, t32714, t32715); l4528: /* x161878 */ /* x161816 stalin.sc:22800:795667 */ /* x161815 stalin.sc:22800:795681 */ t32669 = a29417; /* x161814 stalin.sc:22800:795668 */ if (f7684(t32669)==FALSE_TYPE) goto l4530; /* x161829 */ /* x161828 */ t32703 = p17271; p17273 = t32703; /* x161827 stalin.sc:22800:795685 */ /* x161818 stalin.sc:22800:795692 */ t32704 = p17273->a29401; /* x161825 stalin.sc:22800:795694 */ /* x161824 stalin.sc:22800:795703 */ /* x161821 stalin.sc:22800:795712 */ t32709 = p17273->a29411; /* x161822 stalin.sc:22800:795715 */ t32710 = a29417; /* x161823 stalin.sc:22800:795718 */ t32711 = p17273->a29412; /* x161820 stalin.sc:22800:795704 */ t32708 = f14485(t32709, t32710, t32711); /* x161819 stalin.sc:22800:795695 */ t32705 = f13700(t32708); /* x161826 stalin.sc:22800:795723 */ /* x161817 stalin.sc:22800:795686 */ t32706.tag = STRUCTURE_TYPE24753; t32706.value.structure_type24753 = t32705; t32707 = (unsigned)NATIVE_PROCEDURE_TYPE7429; return f15508(t32704, t32706, t32707); l4530: /* x161877 */ /* x161832 stalin.sc:22801:795743 */ /* x161831 stalin.sc:22801:795762 */ t32670 = a29417; /* x161830 stalin.sc:22801:795744 */ if (f7687(t32670)==FALSE_TYPE) goto l4532; /* x161872 */ /* x161871 */ t32672 = p17271; p17274 = t32672; /* x161870 stalin.sc:22802:795771 */ /* x161869 stalin.sc:22809:795924 */ /* x161858 stalin.sc:22809:795931 */ t32693 = p17274->a29401; /* x161867 stalin.sc:22809:795933 */ /* x161866 stalin.sc:22809:795942 */ /* x161865 stalin.sc:22809:795947 */ /* x161862 stalin.sc:22809:795956 */ t32700 = p17274->a29411; /* x161863 stalin.sc:22809:795959 */ t32701 = a29417; /* x161864 stalin.sc:22809:795962 */ t32702 = p17274->a29412; /* x161861 stalin.sc:22809:795948 */ t32699 = f14485(t32700, t32701, t32702); /* x161860 stalin.sc:22809:795943 */ t32697 = f14286(t32699); /* x161859 stalin.sc:22809:795934 */ t32698.tag = STRUCTURE_TYPE24753; t32698.value.structure_type24753 = t32697; t32694 = f13700(t32698); /* x161868 stalin.sc:22809:795968 */ /* x161857 stalin.sc:22809:795925 */ t32695.tag = STRUCTURE_TYPE24753; t32695.value.structure_type24753 = t32694; t32696 = (unsigned)NATIVE_PROCEDURE_TYPE7429; t32674 = f15508(t32693, t32695, t32696); /* x161856 stalin.sc:22803:795794 */ /* x161834 stalin.sc:22803:795798 */ if (a703==FALSE_TYPE) goto l4534; /* x161853 stalin.sc:22804:795816 */ /* x161844 stalin.sc:22804:795822 */ /* x161843 stalin.sc:22804:795831 */ /* x161842 stalin.sc:22804:795836 */ /* x161839 stalin.sc:22804:795845 */ t32686 = p17274->a29411; /* x161840 stalin.sc:22804:795848 */ t32687 = a29417; /* x161841 stalin.sc:22804:795851 */ t32688 = p17274->a29412; /* x161838 stalin.sc:22804:795837 */ t32685 = f14485(t32686, t32687, t32688); /* x161837 stalin.sc:22804:795832 */ t32684 = f14278(t32685); /* x161836 stalin.sc:22804:795823 */ t32678 = f13600(t32684); /* x161849 stalin.sc:22805:795859 */ /* x161846 stalin.sc:22805:795874 */ t32689 = "floor"; /* x161847 stalin.sc:22805:795882 */ t32690 = p17274->a29402; /* x161848 stalin.sc:22805:795884 */ /* x161845 stalin.sc:22805:795860 */ t32691.tag = STRUCTURE_TYPE27745; t32691.value.structure_type27745 = t32690; t32692 = FALSE_TYPE; t32679 = f15534(t32689, t32691, t32692); /* x161851 stalin.sc:22806:795890 */ /* x161850 stalin.sc:22806:795891 */ /* x276651 stalin.sc:14693:514793 */ t32680 = ""; /* x161852 stalin.sc:22807:795901 */ /* x161835 stalin.sc:22804:795817 */ t32681.tag = STRUCTURE_TYPE24753; t32681.value.structure_type24753 = t32679; t32682.tag = STRING_TYPE; t32682.value.string_type = t32680; t32683 = FALSE_TYPE; t32673 = f13672(t32678, t32681, t32682, t32683); goto l4535; l4534: /* x161855 stalin.sc:22808:795908 */ /* x161854 stalin.sc:22808:795909 */ /* x276653 stalin.sc:14693:514793 */ t32673.tag = STRING_TYPE; t32673.value.string_type = ""; l4535: /* x161833 stalin.sc:22802:795772 */ t32677.tag = STRUCTURE_TYPE24753; t32677.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32677.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22802, 795771); out_of_memory_error();} t32677.value.structure_type24753->s0 = t32674; t32677.value.structure_type24753->s1.tag = NULL_TYPE; a41801 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41801==NULL) {backtrace("stalin.sc", 22802, 795771); out_of_memory_error();} a41801->s0 = t32673; a41801->s1 = t32677; /* x301316 stalin.sc:14400:506485 */ /* x301315 stalin.sc:14400:506503 */ t32675 = a41801; /* x301314 stalin.sc:14400:506486 */ t32676.tag = STRUCTURE_TYPE24753; t32676.value.structure_type24753 = t32675; return f13492(t32676); l4532: /* x161876 */ /* x161875 */ /* x161874 stalin.sc:22810:795994 */ /* x161873 stalin.sc:22810:795995 */ /* x295713 QobiScheme.sc:166:5314 */ /* x295712 QobiScheme.sc:166:5321 */ t32671 = "This shouldn\'t happen"; /* x295711 QobiScheme.sc:166:5315 */ stalin_panic(t32671);} /* [inside top level 17257] */ struct structure_type24753 *f17257(struct w49 a29369, struct w49 a29371) {struct w49 a25376; /* C1 */ struct w49 a25377; /* C2 */ struct w49 t32719; struct w49 t32720; struct w49 t32721; char *t32722; struct w49 t32723; /* x161723 stalin.sc:22777:795067 */ /* x161721 stalin.sc:22777:795072 */ t32719 = a29369; /* x161722 stalin.sc:22777:795075 */ t32720 = a29371; /* x161720 stalin.sc:22777:795068 */ a25376 = t32719; a25377 = t32720; /* x123419 stalin.sc:14678:514430 */ /* x123416 stalin.sc:14678:514438 */ t32721 = a25376; /* x123417 stalin.sc:14678:514441 */ t32722 = "^"; /* x123418 stalin.sc:14678:514445 */ t32723 = a25377; /* x123415 stalin.sc:14678:514431 */ return f13573(t32721, t32722, t32723);} /* [inside top level 17254] */ struct structure_type24753 *f17254(struct p17250 *p17254, unsigned a29366) {char *t32724; struct structure_type27745 *t32725; unsigned t32726; struct w49 t32727; /* x161707 stalin.sc:22771:794814 */ /* x161704 stalin.sc:22771:794829 */ t32724 = "bitwise_xor"; /* x161705 stalin.sc:22771:794843 */ t32725 = p17254->a29350; /* x161706 stalin.sc:22771:794845 */ t32726 = a29366; /* x161703 stalin.sc:22771:794815 */ t32727.tag = STRUCTURE_TYPE27745; t32727.value.structure_type27745 = t32725; return f15534(t32724, t32727, t32726);} /* [inside top level 17253] */ struct w49 f17253(struct p17250 *p17253, struct w49 a29365) {struct structure_type27501 *t32728; struct w49 t32729; unsigned t32730; struct w49 t32731; struct w49 t32732; struct w49 t32733; /* x161701 stalin.sc:22770:794751 */ /* x161694 stalin.sc:22770:794758 */ t32728 = p17253->a29349; /* x161699 stalin.sc:22770:794760 */ /* x161696 stalin.sc:22770:794769 */ t32731 = p17253->a29359; /* x161697 stalin.sc:22770:794772 */ t32732 = a29365; /* x161698 stalin.sc:22770:794775 */ t32733 = p17253->a29360; /* x161695 stalin.sc:22770:794761 */ t32729 = f14485(t32731, t32732, t32733); /* x161700 stalin.sc:22770:794779 */ /* x161693 stalin.sc:22770:794752 */ t32730 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t32728, t32729, t32730);} /* [inside top level 17245] */ struct w12224 f17245(int a29331) {int t32734; struct w227957 t32735; struct w49 t32736; /* x161661 stalin.sc:22761:794489 */ /* x161659 stalin.sc:22761:794496 */ /* x161660 stalin.sc:22761:794522 */ t32734 = a29331; /* x161657 stalin.sc:22761:794490 */ t32735.tag = NATIVE_PROCEDURE_TYPE22483; t32736.tag = FIXNUM_TYPE; t32736.value.fixnum_type = t32734; return f1149(t32735, t32736);} /* [inside top level 17243] */ struct w12224 f17243(int a29326) {int t32737; struct w227957 t32738; struct w49 t32739; /* x161655 stalin.sc:22760:794452 */ /* x161653 stalin.sc:22760:794459 */ /* x161654 stalin.sc:22760:794485 */ t32737 = a29326; /* x161651 stalin.sc:22760:794453 */ t32738.tag = NATIVE_PROCEDURE_TYPE22453; t32739.tag = FIXNUM_TYPE; t32739.value.fixnum_type = t32737; return f1149(t32738, t32739);} /* [inside top level 17241] */ struct w49 f17241(struct w49 a29317, struct w49 a29319) {struct w49 r17241; struct w49 a25374; /* C1 */ struct w49 a25375; /* C2 */ struct w49 t32740; struct w49 t32741; struct w49 t32742; char *t32743; struct w49 t32744; struct w49 t32745; char *t32746; struct w49 t32747; struct structure_type24753 *t32748; /* x161628 stalin.sc:22753:794237 */ /* x161626 stalin.sc:22753:794251 */ t32740 = a29317; /* x161627 stalin.sc:22753:794254 */ t32741 = a29319; /* x161625 stalin.sc:22753:794238 */ a25374 = t32740; a25375 = t32741; /* x123412 stalin.sc:14676:514365 */ /* x123405 stalin.sc:14676:514369 */ /* x123403 stalin.sc:14676:514377 */ t32742 = a25375; /* x123404 stalin.sc:14676:514380 */ t32743 = "0"; /* x123402 stalin.sc:14676:514370 */ t32744.tag = STRING_TYPE; t32744.value.string_type = t32743; if (f26165(t32742, t32744)==FALSE_TYPE) goto l4537; /* x123406 stalin.sc:14676:514385 */ return a25374; l4537: /* x123411 stalin.sc:14676:514388 */ /* x123408 stalin.sc:14676:514396 */ t32745 = a25374; /* x123409 stalin.sc:14676:514399 */ t32746 = "|"; /* x123410 stalin.sc:14676:514403 */ t32747 = a25375; /* x123407 stalin.sc:14676:514389 */ t32748 = f13573(t32745, t32746, t32747); r17241.tag = STRUCTURE_TYPE24753; r17241.value.structure_type24753 = t32748; return r17241;} /* [inside top level 17238] */ struct structure_type24753 *f17238(struct p17234 *p17238, unsigned a29314) {char *t32749; struct structure_type27745 *t32750; unsigned t32751; struct w49 t32752; /* x161612 stalin.sc:22747:793985 */ /* x161609 stalin.sc:22747:794000 */ t32749 = "bitwise_or"; /* x161610 stalin.sc:22747:794013 */ t32750 = p17238->a29298; /* x161611 stalin.sc:22747:794015 */ t32751 = a29314; /* x161608 stalin.sc:22747:793986 */ t32752.tag = STRUCTURE_TYPE27745; t32752.value.structure_type27745 = t32750; return f15534(t32749, t32752, t32751);} /* [inside top level 17237] */ struct w49 f17237(struct p17234 *p17237, struct w49 a29313) {struct structure_type27501 *t32753; struct w49 t32754; unsigned t32755; struct w49 t32756; struct w49 t32757; struct w49 t32758; /* x161606 stalin.sc:22746:793922 */ /* x161599 stalin.sc:22746:793929 */ t32753 = p17237->a29297; /* x161604 stalin.sc:22746:793931 */ /* x161601 stalin.sc:22746:793940 */ t32756 = p17237->a29307; /* x161602 stalin.sc:22746:793943 */ t32757 = a29313; /* x161603 stalin.sc:22746:793946 */ t32758 = p17237->a29308; /* x161600 stalin.sc:22746:793932 */ t32754 = f14485(t32756, t32757, t32758); /* x161605 stalin.sc:22746:793950 */ /* x161598 stalin.sc:22746:793923 */ t32755 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t32753, t32754, t32755);} /* [inside top level 17229] */ struct w12224 f17229(int a29279) {int t32759; struct w227957 t32760; struct w49 t32761; /* x161566 stalin.sc:22737:793660 */ /* x161564 stalin.sc:22737:793667 */ /* x161565 stalin.sc:22737:793693 */ t32759 = a29279; /* x161562 stalin.sc:22737:793661 */ t32760.tag = NATIVE_PROCEDURE_TYPE22482; t32761.tag = FIXNUM_TYPE; t32761.value.fixnum_type = t32759; return f1149(t32760, t32761);} /* [inside top level 17227] */ struct w12224 f17227(int a29274) {int t32762; struct w227957 t32763; struct w49 t32764; /* x161560 stalin.sc:22736:793623 */ /* x161558 stalin.sc:22736:793630 */ /* x161559 stalin.sc:22736:793656 */ t32762 = a29274; /* x161556 stalin.sc:22736:793624 */ t32763.tag = NATIVE_PROCEDURE_TYPE22454; t32764.tag = FIXNUM_TYPE; t32764.value.fixnum_type = t32762; return f1149(t32763, t32764);} /* [inside top level 17225] */ struct structure_type24753 *f17225(struct w49 a29265, struct w49 a29267) {struct w49 t32765; struct w49 t32766; struct w49 t32767; struct structure_type24753 *t32768; /* x161533 stalin.sc:22729:793417 */ /* x161532 stalin.sc:22729:793425 */ t32766 = a29267; /* x161531 stalin.sc:22729:793422 */ t32765 = a29265; /* x161530 stalin.sc:22729:793418 */ t32767 = t32765; t32768 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t32768==NULL) {backtrace("stalin.sc", 22729, 793417); out_of_memory_error();} t32768->s0 = t32766; t32768->s1.tag = NULL_TYPE; return f13625(t32767, t32768);} /* [inside top level 17222] */ struct structure_type24753 *f17222(struct p17218 *p17222, unsigned a29262) {char *t32769; struct structure_type27745 *t32770; unsigned t32771; struct w49 t32772; /* x161517 stalin.sc:22723:793164 */ /* x161514 stalin.sc:22723:793179 */ t32769 = "bitwise_and"; /* x161515 stalin.sc:22723:793193 */ t32770 = p17222->a29246; /* x161516 stalin.sc:22723:793195 */ t32771 = a29262; /* x161513 stalin.sc:22723:793165 */ t32772.tag = STRUCTURE_TYPE27745; t32772.value.structure_type27745 = t32770; return f15534(t32769, t32772, t32771);} /* [inside top level 17221] */ struct w49 f17221(struct p17218 *p17221, struct w49 a29261) {struct structure_type27501 *t32773; struct w49 t32774; unsigned t32775; struct w49 t32776; struct w49 t32777; struct w49 t32778; /* x161511 stalin.sc:22722:793101 */ /* x161504 stalin.sc:22722:793108 */ t32773 = p17221->a29245; /* x161509 stalin.sc:22722:793110 */ /* x161506 stalin.sc:22722:793119 */ t32776 = p17221->a29255; /* x161507 stalin.sc:22722:793122 */ t32777 = a29261; /* x161508 stalin.sc:22722:793125 */ t32778 = p17221->a29256; /* x161505 stalin.sc:22722:793111 */ t32774 = f14485(t32776, t32777, t32778); /* x161510 stalin.sc:22722:793129 */ /* x161503 stalin.sc:22722:793102 */ t32775 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t32773, t32774, t32775);} /* [inside top level 17213] */ struct w12224 f17213(int a29227) {int t32779; struct w227957 t32780; struct w49 t32781; /* x161469 stalin.sc:22713:792833 */ /* x161467 stalin.sc:22713:792840 */ /* x161468 stalin.sc:22713:792866 */ t32779 = a29227; /* x161465 stalin.sc:22713:792834 */ t32780.tag = NATIVE_PROCEDURE_TYPE22481; t32781.tag = FIXNUM_TYPE; t32781.value.fixnum_type = t32779; return f1149(t32780, t32781);} /* [inside top level 17211] */ struct w12224 f17211(int a29222) {int t32782; struct w227957 t32783; struct w49 t32784; /* x161463 stalin.sc:22712:792796 */ /* x161461 stalin.sc:22712:792803 */ /* x161462 stalin.sc:22712:792829 */ t32782 = a29222; /* x161459 stalin.sc:22712:792797 */ t32783.tag = NATIVE_PROCEDURE_TYPE22452; t32784.tag = FIXNUM_TYPE; t32784.value.fixnum_type = t32782; return f1149(t32783, t32784);} /* [inside top level 17209] */ struct structure_type24753 *f17209(struct p17207 *p17209, unsigned a29216) {char *t32785; struct structure_type27745 *t32786; unsigned t32787; struct w49 t32788; /* x161441 stalin.sc:22706:792589 */ /* x161438 stalin.sc:22706:792604 */ t32785 = "bitwise_not"; /* x161439 stalin.sc:22706:792618 */ t32786 = p17209->a29200; /* x161440 stalin.sc:22706:792620 */ t32787 = a29216; /* x161437 stalin.sc:22706:792590 */ t32788.tag = STRUCTURE_TYPE27745; t32788.value.structure_type27745 = t32786; return f15534(t32785, t32788, t32787);} /* [inside top level 17208] */ struct w49 f17208(struct p17207 *p17208, struct w49 a29215) {struct structure_type27501 *t32789; struct structure_type24753 *t32790; struct w49 t32791; unsigned t32792; struct w49 t32793; struct w49 t32794; struct w49 t32795; struct w49 t32796; /* x161435 stalin.sc:22705:792520 */ /* x161426 stalin.sc:22705:792527 */ t32789 = p17208->a29199; /* x161433 stalin.sc:22705:792529 */ /* x161432 stalin.sc:22705:792534 */ /* x161429 stalin.sc:22705:792543 */ t32794 = p17208->a29209; /* x161430 stalin.sc:22705:792546 */ t32795 = a29215; /* x161431 stalin.sc:22705:792549 */ t32796 = p17208->a29210; /* x161428 stalin.sc:22705:792535 */ t32793 = f14485(t32794, t32795, t32796); /* x161427 stalin.sc:22705:792530 */ t32790 = f13631(t32793); /* x161434 stalin.sc:22705:792554 */ /* x161425 stalin.sc:22705:792521 */ t32791.tag = STRUCTURE_TYPE24753; t32791.value.structure_type24753 = t32790; t32792 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t32789, t32791, t32792);} /* [inside top level 17200] */ struct structure_type24753 *f17200(struct p17182 *p17200, unsigned a29172) {char *t32797; struct structure_type27745 *t32798; unsigned t32799; struct w49 t32800; /* x161385 stalin.sc:22691:792140 */ /* x161382 stalin.sc:22691:792155 */ t32797 = "rsh1"; /* x161383 stalin.sc:22691:792162 */ t32798 = p17200->a29154; /* x161384 stalin.sc:22691:792164 */ t32799 = a29172; /* x161381 stalin.sc:22691:792141 */ t32800.tag = STRUCTURE_TYPE27745; t32800.value.structure_type27745 = t32798; return f15534(t32797, t32800, t32799);} /* [inside top level 17199] */ struct structure_type24753 *f17199(struct p17182 *p17199, unsigned a29171) {char *t32801; struct structure_type27745 *t32802; unsigned t32803; struct w49 t32804; /* x161377 stalin.sc:22690:792094 */ /* x161374 stalin.sc:22690:792109 */ t32801 = "rsh2"; /* x161375 stalin.sc:22690:792116 */ t32802 = p17199->a29154; /* x161376 stalin.sc:22690:792118 */ t32803 = a29171; /* x161373 stalin.sc:22690:792095 */ t32804.tag = STRUCTURE_TYPE27745; t32804.value.structure_type27745 = t32802; return f15534(t32801, t32804, t32803);} /* [inside top level 17184] */ struct w49 f17184(struct p17183 *p17184, struct w49 a29170) {struct structure_type24753 *a41805; /* CS */ struct structure_type24753 *a41871; /* CS */ struct w49 t32805; struct w49 t32806; struct structure_type24753 *t32807; struct w49 t32808; struct w49 t32809; struct w49 t32810; struct w49 t32811; struct structure_type24753 *t32812; struct w49 t32813; struct w49 t32814; struct w49 t32815; struct w49 t32816; struct p17183 *t32817; struct structure_type24753 *t32818; struct structure_type24753 *t32819; char *t32820; struct w49 t32821; struct w49 t32822; unsigned t32823; struct structure_type24753 *t32824; struct structure_type24753 *t32825; struct structure_type24753 *t32826; struct w49 t32827; struct structure_type24753 *t32828; struct w49 t32829; struct w49 t32830; struct w49 t32831; struct w49 t32832; struct structure_type24753 *t32833; struct structure_type24753 *t32834; struct w49 t32835; struct w61020 t32836; struct w49 t32837; struct w49 t32838; struct w49 t32839; struct w49 t32840; struct structure_type24753 *t32841; struct w49 t32842; struct w49 t32843; struct w49 t32844; struct w49 t32845; struct w49 t32846; char *t32847; struct structure_type27745 *t32848; struct w49 t32849; unsigned t32850; struct p17183 *t32851; struct structure_type24753 *t32852; struct structure_type24753 *t32853; char *t32854; struct w49 t32855; struct w49 t32856; unsigned t32857; struct w49 t32858; struct structure_type24753 *t32859; struct w61020 t32860; struct w49 t32861; struct w49 t32862; struct w49 t32863; struct w49 t32864; struct w49 t32865; struct w49 t32866; struct w49 t32867; char *t32868; struct structure_type27745 *t32869; struct w49 t32870; unsigned t32871; struct w49 t32872; struct w49 t32873; struct p17182 *t32874; struct structure_type24753 *t32875; struct structure_type24753 *t32876; char *t32877; struct w49 t32878; struct w49 t32879; unsigned t32880; struct structure_type24753 *t32881; struct structure_type24753 *t32882; struct structure_type24753 *t32883; struct w49 t32884; struct structure_type24753 *t32885; struct w49 t32886; struct w49 t32887; struct w49 t32888; struct w49 t32889; struct structure_type24753 *t32890; struct structure_type24753 *t32891; struct w49 t32892; struct w61020 t32893; struct w49 t32894; struct w49 t32895; struct w49 t32896; struct w49 t32897; struct structure_type24753 *t32898; struct w49 t32899; struct w49 t32900; struct w49 t32901; struct w49 t32902; struct w49 t32903; char *t32904; struct structure_type27745 *t32905; struct w49 t32906; unsigned t32907; struct p17182 *t32908; struct structure_type24753 *t32909; struct structure_type24753 *t32910; char *t32911; struct w49 t32912; struct w49 t32913; unsigned t32914; struct w49 t32915; struct structure_type24753 *t32916; struct w61020 t32917; struct w49 t32918; struct w49 t32919; struct w49 t32920; struct w49 t32921; struct w49 t32922; struct w49 t32923; struct w49 t32924; char *t32925; struct structure_type27745 *t32926; struct w49 t32927; unsigned t32928; struct structure_type27501 *t32929; struct w49 t32930; unsigned t32931; unsigned t32932; struct w49 t32933; struct w49 t32934; struct w49 t32935; struct w49 t32936; struct w49 t32937; char *t32938; struct p17183 *t32939; struct structure_type24753 *t32940; struct w49 t32941; struct structure_type24753 *t32942; struct w49 t32943; struct w49 t32944; struct w49 t32945; struct w49 t32946; struct p17183 *t32947; struct w49 t32948; struct structure_type24753 *t32949; struct w49 t32950; struct w49 t32951; struct w49 t32952; struct p17183 *t32953; struct w49 t32954; struct w49 t32955; struct w49 t32956; struct w49 t32957; struct w49 t32958; struct w49 t32959; char *t32960; struct p17182 *t32961; struct structure_type24753 *t32962; struct w49 t32963; struct structure_type24753 *t32964; struct w49 t32965; struct w49 t32966; struct w49 t32967; struct w49 t32968; struct p17182 *t32969; struct w49 t32970; struct structure_type24753 *t32971; struct w49 t32972; struct w49 t32973; struct w49 t32974; struct p17182 *t32975; struct w49 t32976; struct w49 t32977; struct w49 t32978; struct w49 t32979; struct w49 t32980; struct p17183 *p17185; struct p17183 *p17186; struct p17182 *p17188; struct p17182 *p17189; struct p17183 *p17191; struct p17183 *p17192; struct p17183 *p17193; struct p17182 *p17195; struct p17182 *p17196; struct p17182 *p17197; /* x161371 stalin.sc:22643:790672 */ /* x161370 stalin.sc:22675:791526 */ /* x161270 stalin.sc:22676:791540 */ t32929 = p17184->p17182->a29153; /* x161358 stalin.sc:22677:791549 */ /* x161314 stalin.sc:22677:791555 */ /* x161274 stalin.sc:22678:791569 */ /* x161273 stalin.sc:22678:791583 */ t32935 = p17184->a29169; /* x161272 stalin.sc:22678:791570 */ if (f7683(t32935)==FALSE_TYPE) goto l4554; /* x161281 */ /* x161280 */ t32953 = p17184; p17191 = t32953; /* x161279 stalin.sc:22678:791587 */ /* x161276 stalin.sc:22678:791596 */ t32954 = p17191->p17182->a29163; /* x161277 stalin.sc:22678:791599 */ t32955 = p17191->a29169; /* x161278 stalin.sc:22678:791602 */ t32956 = p17191->p17182->a29164; /* x161275 stalin.sc:22678:791588 */ t32933 = f14485(t32954, t32955, t32956); goto l4555; l4554: /* x161313 */ /* x161284 stalin.sc:22679:791615 */ /* x161283 stalin.sc:22679:791629 */ t32936 = p17184->a29169; /* x161282 stalin.sc:22679:791616 */ if (f7684(t32936)==FALSE_TYPE) goto l4557; /* x161293 */ /* x161292 */ t32947 = p17184; p17192 = t32947; /* x161291 stalin.sc:22679:791633 */ /* x161290 stalin.sc:22679:791648 */ /* x161287 stalin.sc:22679:791657 */ t32950 = p17192->p17182->a29163; /* x161288 stalin.sc:22679:791660 */ t32951 = p17192->a29169; /* x161289 stalin.sc:22679:791663 */ t32952 = p17192->p17182->a29164; /* x161286 stalin.sc:22679:791649 */ t32948 = f14485(t32950, t32951, t32952); /* x161285 stalin.sc:22679:791634 */ t32949 = f13549(t32948); t32933.tag = STRUCTURE_TYPE24753; t32933.value.structure_type24753 = t32949; goto l4558; l4557: /* x161312 */ /* x161296 stalin.sc:22680:791677 */ /* x161295 stalin.sc:22680:791696 */ t32937 = p17184->a29169; /* x161294 stalin.sc:22680:791678 */ if (f7687(t32937)==FALSE_TYPE) goto l4560; /* x161307 */ /* x161306 */ t32939 = p17184; p17193 = t32939; /* x161305 stalin.sc:22680:791700 */ /* x161304 stalin.sc:22680:791715 */ /* x161303 stalin.sc:22680:791720 */ /* x161300 stalin.sc:22680:791729 */ t32944 = p17193->p17182->a29163; /* x161301 stalin.sc:22680:791732 */ t32945 = p17193->a29169; /* x161302 stalin.sc:22680:791735 */ t32946 = p17193->p17182->a29164; /* x161299 stalin.sc:22680:791721 */ t32943 = f14485(t32944, t32945, t32946); /* x161298 stalin.sc:22680:791716 */ t32940 = f14286(t32943); /* x161297 stalin.sc:22680:791701 */ t32941.tag = STRUCTURE_TYPE24753; t32941.value.structure_type24753 = t32940; t32942 = f13549(t32941); t32933.tag = STRUCTURE_TYPE24753; t32933.value.structure_type24753 = t32942; goto l4561; l4560: /* x161311 */ /* x161310 */ /* x161309 stalin.sc:22681:791755 */ /* x161308 stalin.sc:22681:791756 */ /* x295729 QobiScheme.sc:166:5314 */ /* x295728 QobiScheme.sc:166:5321 */ t32938 = "This shouldn\'t happen"; /* x295727 QobiScheme.sc:166:5315 */ stalin_panic(t32938); l4561: l4558: l4555: /* x161357 stalin.sc:22682:791773 */ /* x161317 stalin.sc:22683:791787 */ /* x161316 stalin.sc:22683:791801 */ t32957 = a29170; /* x161315 stalin.sc:22683:791788 */ if (f7683(t32957)==FALSE_TYPE) goto l4563; /* x161324 */ /* x161323 */ t32975 = p17184->p17182; p17195 = t32975; /* x161322 stalin.sc:22683:791805 */ /* x161319 stalin.sc:22683:791814 */ t32976 = p17195->a29165; /* x161320 stalin.sc:22683:791817 */ t32977 = a29170; /* x161321 stalin.sc:22683:791820 */ t32978 = p17195->a29166; /* x161318 stalin.sc:22683:791806 */ t32934 = f14485(t32976, t32977, t32978); goto l4564; l4563: /* x161356 */ /* x161327 stalin.sc:22684:791833 */ /* x161326 stalin.sc:22684:791847 */ t32958 = a29170; /* x161325 stalin.sc:22684:791834 */ if (f7684(t32958)==FALSE_TYPE) goto l4566; /* x161336 */ /* x161335 */ t32969 = p17184->p17182; p17196 = t32969; /* x161334 stalin.sc:22684:791851 */ /* x161333 stalin.sc:22684:791866 */ /* x161330 stalin.sc:22684:791875 */ t32972 = p17196->a29165; /* x161331 stalin.sc:22684:791878 */ t32973 = a29170; /* x161332 stalin.sc:22684:791881 */ t32974 = p17196->a29166; /* x161329 stalin.sc:22684:791867 */ t32970 = f14485(t32972, t32973, t32974); /* x161328 stalin.sc:22684:791852 */ t32971 = f13549(t32970); t32934.tag = STRUCTURE_TYPE24753; t32934.value.structure_type24753 = t32971; goto l4567; l4566: /* x161355 */ /* x161339 stalin.sc:22685:791895 */ /* x161338 stalin.sc:22685:791914 */ t32959 = a29170; /* x161337 stalin.sc:22685:791896 */ if (f7687(t32959)==FALSE_TYPE) goto l4569; /* x161350 */ /* x161349 */ t32961 = p17184->p17182; p17197 = t32961; /* x161348 stalin.sc:22685:791918 */ /* x161347 stalin.sc:22685:791933 */ /* x161346 stalin.sc:22685:791938 */ /* x161343 stalin.sc:22685:791947 */ t32966 = p17197->a29165; /* x161344 stalin.sc:22685:791950 */ t32967 = a29170; /* x161345 stalin.sc:22685:791953 */ t32968 = p17197->a29166; /* x161342 stalin.sc:22685:791939 */ t32965 = f14485(t32966, t32967, t32968); /* x161341 stalin.sc:22685:791934 */ t32962 = f14286(t32965); /* x161340 stalin.sc:22685:791919 */ t32963.tag = STRUCTURE_TYPE24753; t32963.value.structure_type24753 = t32962; t32964 = f13549(t32963); t32934.tag = STRUCTURE_TYPE24753; t32934.value.structure_type24753 = t32964; goto l4570; l4569: /* x161354 */ /* x161353 */ /* x161352 stalin.sc:22686:791973 */ /* x161351 stalin.sc:22686:791974 */ /* x295733 QobiScheme.sc:166:5314 */ /* x295732 QobiScheme.sc:166:5321 */ t32960 = "This shouldn\'t happen"; /* x295731 QobiScheme.sc:166:5315 */ stalin_panic(t32960); l4570: l4567: l4564: /* x161271 stalin.sc:22677:791550 */ t32930 = f13624(t32933, t32934); /* x161369 stalin.sc:22687:791993 */ /* x161366 stalin.sc:22687:791997 */ /* x161361 stalin.sc:22687:792002 */ /* x161360 stalin.sc:22687:792016 */ t32979 = p17184->a29169; /* x161359 stalin.sc:22687:792003 */ if (f7683(t32979)==FALSE_TYPE) goto l4572; /* x161364 */ /* x161363 stalin.sc:22687:792034 */ t32980 = a29170; /* x161362 stalin.sc:22687:792021 */ if (f7683(t32980)==FALSE_TYPE) goto l4572; /* x161367 stalin.sc:22688:792043 */ t32931 = NATIVE_PROCEDURE_TYPE7430; goto l4573; l4572: /* x161368 stalin.sc:22689:792060 */ t32931 = NATIVE_PROCEDURE_TYPE7429; l4573: /* x161269 stalin.sc:22675:791527 */ t32932 = (unsigned)t32931; t32806 = f15508(t32929, t32930, t32932); /* x161268 stalin.sc:22644:790695 */ /* x161105 stalin.sc:22644:790699 */ if (a703==FALSE_TYPE) goto l4539; /* x161265 stalin.sc:22645:790717 */ /* x161264 stalin.sc:22660:791124 */ /* x161188 stalin.sc:22660:791131 */ /* x161187 stalin.sc:22660:791145 */ t32872 = a29170; /* x161186 stalin.sc:22660:791132 */ if (f7684(t32872)==FALSE_TYPE) goto l4548; /* x161214 */ /* x161213 */ t32908 = p17184->p17182; p17188 = t32908; /* x161212 stalin.sc:22661:791153 */ /* x161203 stalin.sc:22661:791159 */ /* x161195 stalin.sc:22661:791165 */ /* x161192 stalin.sc:22661:791174 */ t32918 = p17188->a29165; /* x161193 stalin.sc:22661:791177 */ t32919 = a29170; /* x161194 stalin.sc:22661:791180 */ t32920 = p17188->a29166; /* x161191 stalin.sc:22661:791166 */ t32915 = f14485(t32918, t32919, t32920); /* x161202 stalin.sc:22661:791184 */ /* x161201 stalin.sc:22661:791192 */ /* x161198 stalin.sc:22661:791201 */ t32922 = p17188->a29165; /* x161199 stalin.sc:22661:791204 */ t32923 = a29170; /* x161200 stalin.sc:22661:791207 */ t32924 = p17188->a29166; /* x161197 stalin.sc:22661:791193 */ t32921 = f14485(t32922, t32923, t32924); /* x161196 stalin.sc:22661:791185 */ t32916 = f13698(t32921); /* x161190 stalin.sc:22661:791160 */ t32917.tag = STRUCTURE_TYPE24753; t32917.value.structure_type24753 = t32916; t32909 = f13598(t32915, t32917); /* x161208 stalin.sc:22662:791216 */ /* x161205 stalin.sc:22662:791231 */ t32925 = "rsh2"; /* x161206 stalin.sc:22662:791238 */ t32926 = p17188->a29154; /* x161207 stalin.sc:22662:791240 */ /* x161204 stalin.sc:22662:791217 */ t32927.tag = STRUCTURE_TYPE27745; t32927.value.structure_type27745 = t32926; t32928 = FALSE_TYPE; t32910 = f15534(t32925, t32927, t32928); /* x161210 stalin.sc:22663:791247 */ /* x161209 stalin.sc:22663:791248 */ /* x276673 stalin.sc:14693:514793 */ t32911 = ""; /* x161211 stalin.sc:22664:791259 */ /* x161189 stalin.sc:22661:791154 */ t32912.tag = STRUCTURE_TYPE24753; t32912.value.structure_type24753 = t32910; t32913.tag = STRING_TYPE; t32913.value.string_type = t32911; t32914 = FALSE_TYPE; t32811 = f13672(t32909, t32912, t32913, t32914); goto l4549; l4548: /* x161263 */ /* x161217 stalin.sc:22665:791268 */ /* x161216 stalin.sc:22665:791287 */ t32873 = a29170; /* x161215 stalin.sc:22665:791269 */ if (f7687(t32873)==FALSE_TYPE) goto l4551; /* x161258 */ /* x161257 */ t32874 = p17184->p17182; p17189 = t32874; /* x161256 stalin.sc:22666:791295 */ /* x161247 stalin.sc:22666:791301 */ /* x161246 stalin.sc:22668:791358 */ /* x161236 stalin.sc:22668:791364 */ /* x161235 stalin.sc:22668:791369 */ /* x161232 stalin.sc:22668:791378 */ t32895 = p17189->a29165; /* x161233 stalin.sc:22668:791381 */ t32896 = a29170; /* x161234 stalin.sc:22668:791384 */ t32897 = p17189->a29166; /* x161231 stalin.sc:22668:791370 */ t32894 = f14485(t32895, t32896, t32897); /* x161230 stalin.sc:22668:791365 */ t32890 = f14286(t32894); /* x161245 stalin.sc:22669:791399 */ /* x161244 stalin.sc:22669:791407 */ /* x161243 stalin.sc:22669:791412 */ /* x161240 stalin.sc:22669:791421 */ t32901 = p17189->a29165; /* x161241 stalin.sc:22669:791424 */ t32902 = a29170; /* x161242 stalin.sc:22669:791427 */ t32903 = p17189->a29166; /* x161239 stalin.sc:22669:791413 */ t32900 = f14485(t32901, t32902, t32903); /* x161238 stalin.sc:22669:791408 */ t32898 = f14286(t32900); /* x161237 stalin.sc:22669:791400 */ t32899.tag = STRUCTURE_TYPE24753; t32899.value.structure_type24753 = t32898; t32891 = f13698(t32899); /* x161229 stalin.sc:22668:791359 */ t32892.tag = STRUCTURE_TYPE24753; t32892.value.structure_type24753 = t32890; t32893.tag = STRUCTURE_TYPE24753; t32893.value.structure_type24753 = t32891; t32882 = f13598(t32892, t32893); /* x161228 stalin.sc:22667:791319 */ /* x161227 stalin.sc:22667:791328 */ /* x161226 stalin.sc:22667:791333 */ /* x161223 stalin.sc:22667:791342 */ t32887 = p17189->a29165; /* x161224 stalin.sc:22667:791345 */ t32888 = a29170; /* x161225 stalin.sc:22667:791348 */ t32889 = p17189->a29166; /* x161222 stalin.sc:22667:791334 */ t32886 = f14485(t32887, t32888, t32889); /* x161221 stalin.sc:22667:791329 */ t32885 = f14278(t32886); /* x161220 stalin.sc:22667:791320 */ t32881 = f13600(t32885); /* x161219 stalin.sc:22666:791302 */ t32884.tag = STRUCTURE_TYPE24753; t32884.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32884.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22666, 791301); out_of_memory_error();} t32884.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t32884.value.structure_type24753->s0.value.structure_type24753 = t32882; t32884.value.structure_type24753->s1.tag = NULL_TYPE; t32883 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t32883==NULL) {backtrace("stalin.sc", 22666, 791301); out_of_memory_error();} t32883->s0.tag = STRUCTURE_TYPE24753; t32883->s0.value.structure_type24753 = t32881; t32883->s1 = t32884; t32875 = f13556(t32883); /* x161252 stalin.sc:22670:791438 */ /* x161249 stalin.sc:22670:791453 */ t32904 = "rsh2"; /* x161250 stalin.sc:22670:791460 */ t32905 = p17189->a29154; /* x161251 stalin.sc:22670:791462 */ /* x161248 stalin.sc:22670:791439 */ t32906.tag = STRUCTURE_TYPE27745; t32906.value.structure_type27745 = t32905; t32907 = FALSE_TYPE; t32876 = f15534(t32904, t32906, t32907); /* x161254 stalin.sc:22671:791469 */ /* x161253 stalin.sc:22671:791470 */ /* x276675 stalin.sc:14693:514793 */ t32877 = ""; /* x161255 stalin.sc:22672:791481 */ /* x161218 stalin.sc:22666:791296 */ t32878.tag = STRUCTURE_TYPE24753; t32878.value.structure_type24753 = t32876; t32879.tag = STRING_TYPE; t32879.value.string_type = t32877; t32880 = FALSE_TYPE; t32811 = f13672(t32875, t32878, t32879, t32880); goto l4552; l4551: /* x161262 */ /* x161261 */ /* x161260 stalin.sc:22673:791495 */ /* x161259 stalin.sc:22673:791496 */ /* x276677 stalin.sc:14693:514793 */ t32811.tag = STRING_TYPE; t32811.value.string_type = ""; l4552: l4549: /* x161185 stalin.sc:22646:790738 */ /* x161109 stalin.sc:22646:790745 */ /* x161108 stalin.sc:22646:790759 */ t32815 = p17184->a29169; /* x161107 stalin.sc:22646:790746 */ if (f7684(t32815)==FALSE_TYPE) goto l4542; /* x161135 */ /* x161134 */ t32851 = p17184; p17185 = t32851; /* x161133 stalin.sc:22647:790767 */ /* x161124 stalin.sc:22647:790773 */ /* x161116 stalin.sc:22647:790779 */ /* x161113 stalin.sc:22647:790788 */ t32861 = p17185->p17182->a29163; /* x161114 stalin.sc:22647:790791 */ t32862 = p17185->a29169; /* x161115 stalin.sc:22647:790794 */ t32863 = p17185->p17182->a29164; /* x161112 stalin.sc:22647:790780 */ t32858 = f14485(t32861, t32862, t32863); /* x161123 stalin.sc:22647:790798 */ /* x161122 stalin.sc:22647:790806 */ /* x161119 stalin.sc:22647:790815 */ t32865 = p17185->p17182->a29163; /* x161120 stalin.sc:22647:790818 */ t32866 = p17185->a29169; /* x161121 stalin.sc:22647:790821 */ t32867 = p17185->p17182->a29164; /* x161118 stalin.sc:22647:790807 */ t32864 = f14485(t32865, t32866, t32867); /* x161117 stalin.sc:22647:790799 */ t32859 = f13698(t32864); /* x161111 stalin.sc:22647:790774 */ t32860.tag = STRUCTURE_TYPE24753; t32860.value.structure_type24753 = t32859; t32852 = f13598(t32858, t32860); /* x161129 stalin.sc:22648:790830 */ /* x161126 stalin.sc:22648:790845 */ t32868 = "rsh1"; /* x161127 stalin.sc:22648:790852 */ t32869 = p17185->p17182->a29154; /* x161128 stalin.sc:22648:790854 */ /* x161125 stalin.sc:22648:790831 */ t32870.tag = STRUCTURE_TYPE27745; t32870.value.structure_type27745 = t32869; t32871 = FALSE_TYPE; t32853 = f15534(t32868, t32870, t32871); /* x161131 stalin.sc:22649:790861 */ /* x161130 stalin.sc:22649:790862 */ /* x276667 stalin.sc:14693:514793 */ t32854 = ""; /* x161132 stalin.sc:22650:790873 */ /* x161110 stalin.sc:22647:790768 */ t32855.tag = STRUCTURE_TYPE24753; t32855.value.structure_type24753 = t32853; t32856.tag = STRING_TYPE; t32856.value.string_type = t32854; t32857 = FALSE_TYPE; t32810 = f13672(t32852, t32855, t32856, t32857); goto l4543; l4542: /* x161184 */ /* x161138 stalin.sc:22651:790882 */ /* x161137 stalin.sc:22651:790901 */ t32816 = p17184->a29169; /* x161136 stalin.sc:22651:790883 */ if (f7687(t32816)==FALSE_TYPE) goto l4545; /* x161179 */ /* x161178 */ t32817 = p17184; p17186 = t32817; /* x161177 stalin.sc:22652:790909 */ /* x161168 stalin.sc:22652:790915 */ /* x161167 stalin.sc:22654:790972 */ /* x161157 stalin.sc:22654:790978 */ /* x161156 stalin.sc:22654:790983 */ /* x161153 stalin.sc:22654:790992 */ t32838 = p17186->p17182->a29163; /* x161154 stalin.sc:22654:790995 */ t32839 = p17186->a29169; /* x161155 stalin.sc:22654:790998 */ t32840 = p17186->p17182->a29164; /* x161152 stalin.sc:22654:790984 */ t32837 = f14485(t32838, t32839, t32840); /* x161151 stalin.sc:22654:790979 */ t32833 = f14286(t32837); /* x161166 stalin.sc:22655:791013 */ /* x161165 stalin.sc:22655:791021 */ /* x161164 stalin.sc:22655:791026 */ /* x161161 stalin.sc:22655:791035 */ t32844 = p17186->p17182->a29163; /* x161162 stalin.sc:22655:791038 */ t32845 = p17186->a29169; /* x161163 stalin.sc:22655:791041 */ t32846 = p17186->p17182->a29164; /* x161160 stalin.sc:22655:791027 */ t32843 = f14485(t32844, t32845, t32846); /* x161159 stalin.sc:22655:791022 */ t32841 = f14286(t32843); /* x161158 stalin.sc:22655:791014 */ t32842.tag = STRUCTURE_TYPE24753; t32842.value.structure_type24753 = t32841; t32834 = f13698(t32842); /* x161150 stalin.sc:22654:790973 */ t32835.tag = STRUCTURE_TYPE24753; t32835.value.structure_type24753 = t32833; t32836.tag = STRUCTURE_TYPE24753; t32836.value.structure_type24753 = t32834; t32825 = f13598(t32835, t32836); /* x161149 stalin.sc:22653:790933 */ /* x161148 stalin.sc:22653:790942 */ /* x161147 stalin.sc:22653:790947 */ /* x161144 stalin.sc:22653:790956 */ t32830 = p17186->p17182->a29163; /* x161145 stalin.sc:22653:790959 */ t32831 = p17186->a29169; /* x161146 stalin.sc:22653:790962 */ t32832 = p17186->p17182->a29164; /* x161143 stalin.sc:22653:790948 */ t32829 = f14485(t32830, t32831, t32832); /* x161142 stalin.sc:22653:790943 */ t32828 = f14278(t32829); /* x161141 stalin.sc:22653:790934 */ t32824 = f13600(t32828); /* x161140 stalin.sc:22652:790916 */ t32827.tag = STRUCTURE_TYPE24753; t32827.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32827.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22652, 790915); out_of_memory_error();} t32827.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t32827.value.structure_type24753->s0.value.structure_type24753 = t32825; t32827.value.structure_type24753->s1.tag = NULL_TYPE; t32826 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t32826==NULL) {backtrace("stalin.sc", 22652, 790915); out_of_memory_error();} t32826->s0.tag = STRUCTURE_TYPE24753; t32826->s0.value.structure_type24753 = t32824; t32826->s1 = t32827; t32818 = f13556(t32826); /* x161173 stalin.sc:22656:791052 */ /* x161170 stalin.sc:22656:791067 */ t32847 = "rsh1"; /* x161171 stalin.sc:22656:791074 */ t32848 = p17186->p17182->a29154; /* x161172 stalin.sc:22656:791076 */ /* x161169 stalin.sc:22656:791053 */ t32849.tag = STRUCTURE_TYPE27745; t32849.value.structure_type27745 = t32848; t32850 = FALSE_TYPE; t32819 = f15534(t32847, t32849, t32850); /* x161175 stalin.sc:22657:791083 */ /* x161174 stalin.sc:22657:791084 */ /* x276669 stalin.sc:14693:514793 */ t32820 = ""; /* x161176 stalin.sc:22658:791095 */ /* x161139 stalin.sc:22652:790910 */ t32821.tag = STRUCTURE_TYPE24753; t32821.value.structure_type24753 = t32819; t32822.tag = STRING_TYPE; t32822.value.string_type = t32820; t32823 = FALSE_TYPE; t32810 = f13672(t32818, t32821, t32822, t32823); goto l4546; l4545: /* x161183 */ /* x161182 */ /* x161181 stalin.sc:22659:791109 */ /* x161180 stalin.sc:22659:791110 */ /* x276671 stalin.sc:14693:514793 */ t32810.tag = STRING_TYPE; t32810.value.string_type = ""; l4546: l4543: /* x161106 stalin.sc:22645:790718 */ t32814.tag = STRUCTURE_TYPE24753; t32814.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32814.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22645, 790717); out_of_memory_error();} t32814.value.structure_type24753->s0 = t32811; t32814.value.structure_type24753->s1.tag = NULL_TYPE; a41871 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41871==NULL) {backtrace("stalin.sc", 22645, 790717); out_of_memory_error();} a41871->s0 = t32810; a41871->s1 = t32814; /* x301596 stalin.sc:14400:506485 */ /* x301595 stalin.sc:14400:506503 */ t32812 = a41871; /* x301594 stalin.sc:14400:506486 */ t32813.tag = STRUCTURE_TYPE24753; t32813.value.structure_type24753 = t32812; t32805 = f13492(t32813); goto l4540; l4539: /* x161267 stalin.sc:22674:791510 */ /* x161266 stalin.sc:22674:791511 */ /* x276679 stalin.sc:14693:514793 */ t32805.tag = STRING_TYPE; t32805.value.string_type = ""; l4540: /* x161104 stalin.sc:22643:790673 */ t32809.tag = STRUCTURE_TYPE24753; t32809.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32809.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22643, 790672); out_of_memory_error();} t32809.value.structure_type24753->s0 = t32806; t32809.value.structure_type24753->s1.tag = NULL_TYPE; a41805 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41805==NULL) {backtrace("stalin.sc", 22643, 790672); out_of_memory_error();} a41805->s0 = t32805; a41805->s1 = t32809; /* x301332 stalin.sc:14400:506485 */ /* x301331 stalin.sc:14400:506503 */ t32807 = a41805; /* x301330 stalin.sc:14400:506486 */ t32808.tag = STRUCTURE_TYPE24753; t32808.value.structure_type24753 = t32807; return f13492(t32808);} /* [inside top level 17183] */ struct w49 f17183(void) {struct p17182 *p17183 = d17183; struct w49 a29169 = b29169; /* U1 */ struct w49 t32981; struct structure_type27501 *t32982; struct w49 t32983; struct p17183 *t32984; struct p17182 *t32985; struct p17183 *e17183; e17183 = (struct p17183 *)GC_malloc(sizeof(struct p17183)); if (e17183==NULL) {backtrace("stalin.sc", 22636, 790584); out_of_memory_error();} e17183->p17182 = p17183; e17183->a29169 = a29169; /* x161379 stalin.sc:22637:790600 */ /* x161100 stalin.sc:22638:790617 */ /* x161101 stalin.sc:22639:790634 */ t32981 = p17183->a29166; /* x161102 stalin.sc:22640:790641 */ t32982 = p17183->a29153; /* x161103 stalin.sc:22641:790647 */ t32983 = p17183->a29165; /* x161372 stalin.sc:22642:790654 */ t32984 = e17183; /* x161378 stalin.sc:22690:792081 */ t32985 = p17183; /* x161099 stalin.sc:22637:790601 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t32981; b26113 = t32982; b26114 = t32983; b26115.tag = NATIVE_PROCEDURE_TYPE21237; b26115.value.native_procedure_type21237 = t32984; b26116.tag = NATIVE_PROCEDURE_TYPE21236; b26116.value.native_procedure_type21236 = t32985; return f14692();} /* [inside top level 17170] */ struct structure_type24753 *f17170(void) {struct structure_type24753 *a34982; /* OBJS */ struct w49 t32986; /* x161015 stalin.sc:22619:790096 */ /* x161014 stalin.sc:22619:790115 */ /* x161013 stalin.sc:22619:790102 */ /* x161012 stalin.sc:22619:790097 */ t32986.tag = STRUCTURE_TYPE24753; t32986.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32986.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22619, 790096); out_of_memory_error();} t32986.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7426; t32986.value.structure_type24753->s1.tag = NULL_TYPE; a34982 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34982==NULL) {backtrace("stalin.sc", 22619, 790096); out_of_memory_error();} a34982->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34982->s1 = t32986; /* x271971 */ return a34982;} /* [inside top level 17169] */ struct structure_type24753 *f17169(void) {struct structure_type24753 *a35064; /* OBJS */ struct w49 t32987; /* x161010 stalin.sc:22618:790062 */ /* x161009 stalin.sc:22618:790081 */ /* x161008 stalin.sc:22618:790068 */ /* x161007 stalin.sc:22618:790063 */ t32987.tag = STRUCTURE_TYPE24753; t32987.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t32987.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22618, 790062); out_of_memory_error();} t32987.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7426; t32987.value.structure_type24753->s1.tag = NULL_TYPE; a35064 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35064==NULL) {backtrace("stalin.sc", 22618, 790062); out_of_memory_error();} a35064->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35064->s1 = t32987; /* x272135 */ return a35064;} /* [inside top level 17168] */ struct p16287 *f17168(void) {unsigned t32988; unsigned t32989; /* x161005 stalin.sc:22617:790001 */ /* x161003 stalin.sc:22617:790034 */ /* x161004 stalin.sc:22617:790047 */ /* x161002 stalin.sc:22617:790002 */ t32988 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t32989 = (unsigned)NATIVE_PROCEDURE_TYPE7426; return f16287(t32988, t32989);} /* [inside top level 17167] */ struct structure_type24753 *f17167(struct p17149 *p17167, unsigned a29121) {char *t32990; struct structure_type27745 *t32991; unsigned t32992; struct w49 t32993; /* x160988 stalin.sc:22612:789853 */ /* x160985 stalin.sc:22612:789868 */ t32990 = "lsh1"; /* x160986 stalin.sc:22612:789875 */ t32991 = p17167->a29103; /* x160987 stalin.sc:22612:789877 */ t32992 = a29121; /* x160984 stalin.sc:22612:789854 */ t32993.tag = STRUCTURE_TYPE27745; t32993.value.structure_type27745 = t32991; return f15534(t32990, t32993, t32992);} /* [inside top level 17166] */ struct structure_type24753 *f17166(struct p17149 *p17166, unsigned a29120) {char *t32994; struct structure_type27745 *t32995; unsigned t32996; struct w49 t32997; /* x160980 stalin.sc:22611:789807 */ /* x160977 stalin.sc:22611:789822 */ t32994 = "lsh2"; /* x160978 stalin.sc:22611:789829 */ t32995 = p17166->a29103; /* x160979 stalin.sc:22611:789831 */ t32996 = a29120; /* x160976 stalin.sc:22611:789808 */ t32997.tag = STRUCTURE_TYPE27745; t32997.value.structure_type27745 = t32995; return f15534(t32994, t32997, t32996);} /* [inside top level 17151] */ struct w49 f17151(struct p17150 *p17151, struct w49 a29119) {struct structure_type24753 *a41800; /* CS */ struct structure_type24753 *a41870; /* CS */ struct w49 t32998; struct w49 t32999; struct structure_type24753 *t33000; struct w49 t33001; struct w49 t33002; struct w49 t33003; struct w49 t33004; struct structure_type24753 *t33005; struct w49 t33006; struct w49 t33007; struct w49 t33008; struct w49 t33009; struct p17150 *t33010; struct structure_type24753 *t33011; struct structure_type24753 *t33012; char *t33013; struct w49 t33014; struct w49 t33015; unsigned t33016; struct structure_type24753 *t33017; struct structure_type24753 *t33018; struct structure_type24753 *t33019; struct w49 t33020; struct structure_type24753 *t33021; struct w49 t33022; struct w49 t33023; struct w49 t33024; struct w49 t33025; struct structure_type24753 *t33026; struct structure_type24753 *t33027; struct w49 t33028; struct w61020 t33029; struct w49 t33030; struct w49 t33031; struct w49 t33032; struct w49 t33033; struct structure_type24753 *t33034; struct w49 t33035; struct w49 t33036; struct w49 t33037; struct w49 t33038; struct w49 t33039; char *t33040; struct structure_type27745 *t33041; struct w49 t33042; unsigned t33043; struct p17150 *t33044; struct structure_type24753 *t33045; struct structure_type24753 *t33046; char *t33047; struct w49 t33048; struct w49 t33049; unsigned t33050; struct w49 t33051; struct structure_type24753 *t33052; struct w61020 t33053; struct w49 t33054; struct w49 t33055; struct w49 t33056; struct w49 t33057; struct w49 t33058; struct w49 t33059; struct w49 t33060; char *t33061; struct structure_type27745 *t33062; struct w49 t33063; unsigned t33064; struct w49 t33065; struct w49 t33066; struct p17149 *t33067; struct structure_type24753 *t33068; struct structure_type24753 *t33069; char *t33070; struct w49 t33071; struct w49 t33072; unsigned t33073; struct structure_type24753 *t33074; struct structure_type24753 *t33075; struct structure_type24753 *t33076; struct w49 t33077; struct structure_type24753 *t33078; struct w49 t33079; struct w49 t33080; struct w49 t33081; struct w49 t33082; struct structure_type24753 *t33083; struct structure_type24753 *t33084; struct w49 t33085; struct w61020 t33086; struct w49 t33087; struct w49 t33088; struct w49 t33089; struct w49 t33090; struct structure_type24753 *t33091; struct w49 t33092; struct w49 t33093; struct w49 t33094; struct w49 t33095; struct w49 t33096; char *t33097; struct structure_type27745 *t33098; struct w49 t33099; unsigned t33100; struct p17149 *t33101; struct structure_type24753 *t33102; struct structure_type24753 *t33103; char *t33104; struct w49 t33105; struct w49 t33106; unsigned t33107; struct w49 t33108; struct structure_type24753 *t33109; struct w61020 t33110; struct w49 t33111; struct w49 t33112; struct w49 t33113; struct w49 t33114; struct w49 t33115; struct w49 t33116; struct w49 t33117; char *t33118; struct structure_type27745 *t33119; struct w49 t33120; unsigned t33121; struct structure_type27501 *t33122; struct w49 t33123; unsigned t33124; unsigned t33125; struct w49 t33126; struct w49 t33127; struct w49 t33128; struct w49 t33129; struct w49 t33130; char *t33131; struct p17150 *t33132; struct structure_type24753 *t33133; struct w49 t33134; struct structure_type24753 *t33135; struct w49 t33136; struct w49 t33137; struct w49 t33138; struct w49 t33139; struct p17150 *t33140; struct w49 t33141; struct structure_type24753 *t33142; struct w49 t33143; struct w49 t33144; struct w49 t33145; struct p17150 *t33146; struct w49 t33147; struct w49 t33148; struct w49 t33149; struct w49 t33150; struct w49 t33151; struct w49 t33152; char *t33153; struct p17149 *t33154; struct structure_type24753 *t33155; struct w49 t33156; struct structure_type24753 *t33157; struct w49 t33158; struct w49 t33159; struct w49 t33160; struct w49 t33161; struct p17149 *t33162; struct w49 t33163; struct structure_type24753 *t33164; struct w49 t33165; struct w49 t33166; struct w49 t33167; struct p17149 *t33168; struct w49 t33169; struct w49 t33170; struct w49 t33171; struct w49 t33172; struct w49 t33173; struct p17150 *p17152; struct p17150 *p17153; struct p17149 *p17155; struct p17149 *p17156; struct p17150 *p17158; struct p17150 *p17159; struct p17150 *p17160; struct p17149 *p17162; struct p17149 *p17163; struct p17149 *p17164; /* x160974 stalin.sc:22564:788385 */ /* x160973 stalin.sc:22596:789239 */ /* x160873 stalin.sc:22597:789253 */ t33122 = p17151->p17149->a29102; /* x160961 stalin.sc:22598:789262 */ /* x160917 stalin.sc:22598:789268 */ /* x160877 stalin.sc:22599:789282 */ /* x160876 stalin.sc:22599:789296 */ t33128 = p17151->a29118; /* x160875 stalin.sc:22599:789283 */ if (f7683(t33128)==FALSE_TYPE) goto l4591; /* x160884 */ /* x160883 */ t33146 = p17151; p17158 = t33146; /* x160882 stalin.sc:22599:789300 */ /* x160879 stalin.sc:22599:789309 */ t33147 = p17158->p17149->a29112; /* x160880 stalin.sc:22599:789312 */ t33148 = p17158->a29118; /* x160881 stalin.sc:22599:789315 */ t33149 = p17158->p17149->a29113; /* x160878 stalin.sc:22599:789301 */ t33126 = f14485(t33147, t33148, t33149); goto l4592; l4591: /* x160916 */ /* x160887 stalin.sc:22600:789328 */ /* x160886 stalin.sc:22600:789342 */ t33129 = p17151->a29118; /* x160885 stalin.sc:22600:789329 */ if (f7684(t33129)==FALSE_TYPE) goto l4594; /* x160896 */ /* x160895 */ t33140 = p17151; p17159 = t33140; /* x160894 stalin.sc:22600:789346 */ /* x160893 stalin.sc:22600:789361 */ /* x160890 stalin.sc:22600:789370 */ t33143 = p17159->p17149->a29112; /* x160891 stalin.sc:22600:789373 */ t33144 = p17159->a29118; /* x160892 stalin.sc:22600:789376 */ t33145 = p17159->p17149->a29113; /* x160889 stalin.sc:22600:789362 */ t33141 = f14485(t33143, t33144, t33145); /* x160888 stalin.sc:22600:789347 */ t33142 = f13549(t33141); t33126.tag = STRUCTURE_TYPE24753; t33126.value.structure_type24753 = t33142; goto l4595; l4594: /* x160915 */ /* x160899 stalin.sc:22601:789390 */ /* x160898 stalin.sc:22601:789409 */ t33130 = p17151->a29118; /* x160897 stalin.sc:22601:789391 */ if (f7687(t33130)==FALSE_TYPE) goto l4597; /* x160910 */ /* x160909 */ t33132 = p17151; p17160 = t33132; /* x160908 stalin.sc:22601:789413 */ /* x160907 stalin.sc:22601:789428 */ /* x160906 stalin.sc:22601:789433 */ /* x160903 stalin.sc:22601:789442 */ t33137 = p17160->p17149->a29112; /* x160904 stalin.sc:22601:789445 */ t33138 = p17160->a29118; /* x160905 stalin.sc:22601:789448 */ t33139 = p17160->p17149->a29113; /* x160902 stalin.sc:22601:789434 */ t33136 = f14485(t33137, t33138, t33139); /* x160901 stalin.sc:22601:789429 */ t33133 = f14286(t33136); /* x160900 stalin.sc:22601:789414 */ t33134.tag = STRUCTURE_TYPE24753; t33134.value.structure_type24753 = t33133; t33135 = f13549(t33134); t33126.tag = STRUCTURE_TYPE24753; t33126.value.structure_type24753 = t33135; goto l4598; l4597: /* x160914 */ /* x160913 */ /* x160912 stalin.sc:22602:789468 */ /* x160911 stalin.sc:22602:789469 */ /* x295657 QobiScheme.sc:166:5314 */ /* x295656 QobiScheme.sc:166:5321 */ t33131 = "This shouldn\'t happen"; /* x295655 QobiScheme.sc:166:5315 */ stalin_panic(t33131); l4598: l4595: l4592: /* x160960 stalin.sc:22603:789486 */ /* x160920 stalin.sc:22604:789500 */ /* x160919 stalin.sc:22604:789514 */ t33150 = a29119; /* x160918 stalin.sc:22604:789501 */ if (f7683(t33150)==FALSE_TYPE) goto l4600; /* x160927 */ /* x160926 */ t33168 = p17151->p17149; p17162 = t33168; /* x160925 stalin.sc:22604:789518 */ /* x160922 stalin.sc:22604:789527 */ t33169 = p17162->a29114; /* x160923 stalin.sc:22604:789530 */ t33170 = a29119; /* x160924 stalin.sc:22604:789533 */ t33171 = p17162->a29115; /* x160921 stalin.sc:22604:789519 */ t33127 = f14485(t33169, t33170, t33171); goto l4601; l4600: /* x160959 */ /* x160930 stalin.sc:22605:789546 */ /* x160929 stalin.sc:22605:789560 */ t33151 = a29119; /* x160928 stalin.sc:22605:789547 */ if (f7684(t33151)==FALSE_TYPE) goto l4603; /* x160939 */ /* x160938 */ t33162 = p17151->p17149; p17163 = t33162; /* x160937 stalin.sc:22605:789564 */ /* x160936 stalin.sc:22605:789579 */ /* x160933 stalin.sc:22605:789588 */ t33165 = p17163->a29114; /* x160934 stalin.sc:22605:789591 */ t33166 = a29119; /* x160935 stalin.sc:22605:789594 */ t33167 = p17163->a29115; /* x160932 stalin.sc:22605:789580 */ t33163 = f14485(t33165, t33166, t33167); /* x160931 stalin.sc:22605:789565 */ t33164 = f13549(t33163); t33127.tag = STRUCTURE_TYPE24753; t33127.value.structure_type24753 = t33164; goto l4604; l4603: /* x160958 */ /* x160942 stalin.sc:22606:789608 */ /* x160941 stalin.sc:22606:789627 */ t33152 = a29119; /* x160940 stalin.sc:22606:789609 */ if (f7687(t33152)==FALSE_TYPE) goto l4606; /* x160953 */ /* x160952 */ t33154 = p17151->p17149; p17164 = t33154; /* x160951 stalin.sc:22606:789631 */ /* x160950 stalin.sc:22606:789646 */ /* x160949 stalin.sc:22606:789651 */ /* x160946 stalin.sc:22606:789660 */ t33159 = p17164->a29114; /* x160947 stalin.sc:22606:789663 */ t33160 = a29119; /* x160948 stalin.sc:22606:789666 */ t33161 = p17164->a29115; /* x160945 stalin.sc:22606:789652 */ t33158 = f14485(t33159, t33160, t33161); /* x160944 stalin.sc:22606:789647 */ t33155 = f14286(t33158); /* x160943 stalin.sc:22606:789632 */ t33156.tag = STRUCTURE_TYPE24753; t33156.value.structure_type24753 = t33155; t33157 = f13549(t33156); t33127.tag = STRUCTURE_TYPE24753; t33127.value.structure_type24753 = t33157; goto l4607; l4606: /* x160957 */ /* x160956 */ /* x160955 stalin.sc:22607:789686 */ /* x160954 stalin.sc:22607:789687 */ /* x295661 QobiScheme.sc:166:5314 */ /* x295660 QobiScheme.sc:166:5321 */ t33153 = "This shouldn\'t happen"; /* x295659 QobiScheme.sc:166:5315 */ stalin_panic(t33153); l4607: l4604: l4601: /* x160874 stalin.sc:22598:789263 */ t33123 = f13623(t33126, t33127); /* x160972 stalin.sc:22608:789706 */ /* x160969 stalin.sc:22608:789710 */ /* x160964 stalin.sc:22608:789715 */ /* x160963 stalin.sc:22608:789729 */ t33172 = p17151->a29118; /* x160962 stalin.sc:22608:789716 */ if (f7683(t33172)==FALSE_TYPE) goto l4609; /* x160967 */ /* x160966 stalin.sc:22608:789747 */ t33173 = a29119; /* x160965 stalin.sc:22608:789734 */ if (f7683(t33173)==FALSE_TYPE) goto l4609; /* x160970 stalin.sc:22609:789756 */ t33124 = NATIVE_PROCEDURE_TYPE7430; goto l4610; l4609: /* x160971 stalin.sc:22610:789773 */ t33124 = NATIVE_PROCEDURE_TYPE7429; l4610: /* x160872 stalin.sc:22596:789240 */ t33125 = (unsigned)t33124; t32999 = f15508(t33122, t33123, t33125); /* x160871 stalin.sc:22565:788408 */ /* x160708 stalin.sc:22565:788412 */ if (a703==FALSE_TYPE) goto l4576; /* x160868 stalin.sc:22566:788430 */ /* x160867 stalin.sc:22581:788837 */ /* x160791 stalin.sc:22581:788844 */ /* x160790 stalin.sc:22581:788858 */ t33065 = a29119; /* x160789 stalin.sc:22581:788845 */ if (f7684(t33065)==FALSE_TYPE) goto l4585; /* x160817 */ /* x160816 */ t33101 = p17151->p17149; p17155 = t33101; /* x160815 stalin.sc:22582:788866 */ /* x160806 stalin.sc:22582:788872 */ /* x160798 stalin.sc:22582:788878 */ /* x160795 stalin.sc:22582:788887 */ t33111 = p17155->a29114; /* x160796 stalin.sc:22582:788890 */ t33112 = a29119; /* x160797 stalin.sc:22582:788893 */ t33113 = p17155->a29115; /* x160794 stalin.sc:22582:788879 */ t33108 = f14485(t33111, t33112, t33113); /* x160805 stalin.sc:22582:788897 */ /* x160804 stalin.sc:22582:788905 */ /* x160801 stalin.sc:22582:788914 */ t33115 = p17155->a29114; /* x160802 stalin.sc:22582:788917 */ t33116 = a29119; /* x160803 stalin.sc:22582:788920 */ t33117 = p17155->a29115; /* x160800 stalin.sc:22582:788906 */ t33114 = f14485(t33115, t33116, t33117); /* x160799 stalin.sc:22582:788898 */ t33109 = f13698(t33114); /* x160793 stalin.sc:22582:788873 */ t33110.tag = STRUCTURE_TYPE24753; t33110.value.structure_type24753 = t33109; t33102 = f13598(t33108, t33110); /* x160811 stalin.sc:22583:788929 */ /* x160808 stalin.sc:22583:788944 */ t33118 = "lsh2"; /* x160809 stalin.sc:22583:788951 */ t33119 = p17155->a29103; /* x160810 stalin.sc:22583:788953 */ /* x160807 stalin.sc:22583:788930 */ t33120.tag = STRUCTURE_TYPE27745; t33120.value.structure_type27745 = t33119; t33121 = FALSE_TYPE; t33103 = f15534(t33118, t33120, t33121); /* x160813 stalin.sc:22584:788960 */ /* x160812 stalin.sc:22584:788961 */ /* x276643 stalin.sc:14693:514793 */ t33104 = ""; /* x160814 stalin.sc:22585:788972 */ /* x160792 stalin.sc:22582:788867 */ t33105.tag = STRUCTURE_TYPE24753; t33105.value.structure_type24753 = t33103; t33106.tag = STRING_TYPE; t33106.value.string_type = t33104; t33107 = FALSE_TYPE; t33004 = f13672(t33102, t33105, t33106, t33107); goto l4586; l4585: /* x160866 */ /* x160820 stalin.sc:22586:788981 */ /* x160819 stalin.sc:22586:789000 */ t33066 = a29119; /* x160818 stalin.sc:22586:788982 */ if (f7687(t33066)==FALSE_TYPE) goto l4588; /* x160861 */ /* x160860 */ t33067 = p17151->p17149; p17156 = t33067; /* x160859 stalin.sc:22587:789008 */ /* x160850 stalin.sc:22587:789014 */ /* x160849 stalin.sc:22589:789071 */ /* x160839 stalin.sc:22589:789077 */ /* x160838 stalin.sc:22589:789082 */ /* x160835 stalin.sc:22589:789091 */ t33088 = p17156->a29114; /* x160836 stalin.sc:22589:789094 */ t33089 = a29119; /* x160837 stalin.sc:22589:789097 */ t33090 = p17156->a29115; /* x160834 stalin.sc:22589:789083 */ t33087 = f14485(t33088, t33089, t33090); /* x160833 stalin.sc:22589:789078 */ t33083 = f14286(t33087); /* x160848 stalin.sc:22590:789112 */ /* x160847 stalin.sc:22590:789120 */ /* x160846 stalin.sc:22590:789125 */ /* x160843 stalin.sc:22590:789134 */ t33094 = p17156->a29114; /* x160844 stalin.sc:22590:789137 */ t33095 = a29119; /* x160845 stalin.sc:22590:789140 */ t33096 = p17156->a29115; /* x160842 stalin.sc:22590:789126 */ t33093 = f14485(t33094, t33095, t33096); /* x160841 stalin.sc:22590:789121 */ t33091 = f14286(t33093); /* x160840 stalin.sc:22590:789113 */ t33092.tag = STRUCTURE_TYPE24753; t33092.value.structure_type24753 = t33091; t33084 = f13698(t33092); /* x160832 stalin.sc:22589:789072 */ t33085.tag = STRUCTURE_TYPE24753; t33085.value.structure_type24753 = t33083; t33086.tag = STRUCTURE_TYPE24753; t33086.value.structure_type24753 = t33084; t33075 = f13598(t33085, t33086); /* x160831 stalin.sc:22588:789032 */ /* x160830 stalin.sc:22588:789041 */ /* x160829 stalin.sc:22588:789046 */ /* x160826 stalin.sc:22588:789055 */ t33080 = p17156->a29114; /* x160827 stalin.sc:22588:789058 */ t33081 = a29119; /* x160828 stalin.sc:22588:789061 */ t33082 = p17156->a29115; /* x160825 stalin.sc:22588:789047 */ t33079 = f14485(t33080, t33081, t33082); /* x160824 stalin.sc:22588:789042 */ t33078 = f14278(t33079); /* x160823 stalin.sc:22588:789033 */ t33074 = f13600(t33078); /* x160822 stalin.sc:22587:789015 */ t33077.tag = STRUCTURE_TYPE24753; t33077.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33077.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22587, 789014); out_of_memory_error();} t33077.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t33077.value.structure_type24753->s0.value.structure_type24753 = t33075; t33077.value.structure_type24753->s1.tag = NULL_TYPE; t33076 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t33076==NULL) {backtrace("stalin.sc", 22587, 789014); out_of_memory_error();} t33076->s0.tag = STRUCTURE_TYPE24753; t33076->s0.value.structure_type24753 = t33074; t33076->s1 = t33077; t33068 = f13556(t33076); /* x160855 stalin.sc:22591:789151 */ /* x160852 stalin.sc:22591:789166 */ t33097 = "lsh2"; /* x160853 stalin.sc:22591:789173 */ t33098 = p17156->a29103; /* x160854 stalin.sc:22591:789175 */ /* x160851 stalin.sc:22591:789152 */ t33099.tag = STRUCTURE_TYPE27745; t33099.value.structure_type27745 = t33098; t33100 = FALSE_TYPE; t33069 = f15534(t33097, t33099, t33100); /* x160857 stalin.sc:22592:789182 */ /* x160856 stalin.sc:22592:789183 */ /* x276645 stalin.sc:14693:514793 */ t33070 = ""; /* x160858 stalin.sc:22593:789194 */ /* x160821 stalin.sc:22587:789009 */ t33071.tag = STRUCTURE_TYPE24753; t33071.value.structure_type24753 = t33069; t33072.tag = STRING_TYPE; t33072.value.string_type = t33070; t33073 = FALSE_TYPE; t33004 = f13672(t33068, t33071, t33072, t33073); goto l4589; l4588: /* x160865 */ /* x160864 */ /* x160863 stalin.sc:22594:789208 */ /* x160862 stalin.sc:22594:789209 */ /* x276647 stalin.sc:14693:514793 */ t33004.tag = STRING_TYPE; t33004.value.string_type = ""; l4589: l4586: /* x160788 stalin.sc:22567:788451 */ /* x160712 stalin.sc:22567:788458 */ /* x160711 stalin.sc:22567:788472 */ t33008 = p17151->a29118; /* x160710 stalin.sc:22567:788459 */ if (f7684(t33008)==FALSE_TYPE) goto l4579; /* x160738 */ /* x160737 */ t33044 = p17151; p17152 = t33044; /* x160736 stalin.sc:22568:788480 */ /* x160727 stalin.sc:22568:788486 */ /* x160719 stalin.sc:22568:788492 */ /* x160716 stalin.sc:22568:788501 */ t33054 = p17152->p17149->a29112; /* x160717 stalin.sc:22568:788504 */ t33055 = p17152->a29118; /* x160718 stalin.sc:22568:788507 */ t33056 = p17152->p17149->a29113; /* x160715 stalin.sc:22568:788493 */ t33051 = f14485(t33054, t33055, t33056); /* x160726 stalin.sc:22568:788511 */ /* x160725 stalin.sc:22568:788519 */ /* x160722 stalin.sc:22568:788528 */ t33058 = p17152->p17149->a29112; /* x160723 stalin.sc:22568:788531 */ t33059 = p17152->a29118; /* x160724 stalin.sc:22568:788534 */ t33060 = p17152->p17149->a29113; /* x160721 stalin.sc:22568:788520 */ t33057 = f14485(t33058, t33059, t33060); /* x160720 stalin.sc:22568:788512 */ t33052 = f13698(t33057); /* x160714 stalin.sc:22568:788487 */ t33053.tag = STRUCTURE_TYPE24753; t33053.value.structure_type24753 = t33052; t33045 = f13598(t33051, t33053); /* x160732 stalin.sc:22569:788543 */ /* x160729 stalin.sc:22569:788558 */ t33061 = "lsh1"; /* x160730 stalin.sc:22569:788565 */ t33062 = p17152->p17149->a29103; /* x160731 stalin.sc:22569:788567 */ /* x160728 stalin.sc:22569:788544 */ t33063.tag = STRUCTURE_TYPE27745; t33063.value.structure_type27745 = t33062; t33064 = FALSE_TYPE; t33046 = f15534(t33061, t33063, t33064); /* x160734 stalin.sc:22570:788574 */ /* x160733 stalin.sc:22570:788575 */ /* x276637 stalin.sc:14693:514793 */ t33047 = ""; /* x160735 stalin.sc:22571:788586 */ /* x160713 stalin.sc:22568:788481 */ t33048.tag = STRUCTURE_TYPE24753; t33048.value.structure_type24753 = t33046; t33049.tag = STRING_TYPE; t33049.value.string_type = t33047; t33050 = FALSE_TYPE; t33003 = f13672(t33045, t33048, t33049, t33050); goto l4580; l4579: /* x160787 */ /* x160741 stalin.sc:22572:788595 */ /* x160740 stalin.sc:22572:788614 */ t33009 = p17151->a29118; /* x160739 stalin.sc:22572:788596 */ if (f7687(t33009)==FALSE_TYPE) goto l4582; /* x160782 */ /* x160781 */ t33010 = p17151; p17153 = t33010; /* x160780 stalin.sc:22573:788622 */ /* x160771 stalin.sc:22573:788628 */ /* x160770 stalin.sc:22575:788685 */ /* x160760 stalin.sc:22575:788691 */ /* x160759 stalin.sc:22575:788696 */ /* x160756 stalin.sc:22575:788705 */ t33031 = p17153->p17149->a29112; /* x160757 stalin.sc:22575:788708 */ t33032 = p17153->a29118; /* x160758 stalin.sc:22575:788711 */ t33033 = p17153->p17149->a29113; /* x160755 stalin.sc:22575:788697 */ t33030 = f14485(t33031, t33032, t33033); /* x160754 stalin.sc:22575:788692 */ t33026 = f14286(t33030); /* x160769 stalin.sc:22576:788726 */ /* x160768 stalin.sc:22576:788734 */ /* x160767 stalin.sc:22576:788739 */ /* x160764 stalin.sc:22576:788748 */ t33037 = p17153->p17149->a29112; /* x160765 stalin.sc:22576:788751 */ t33038 = p17153->a29118; /* x160766 stalin.sc:22576:788754 */ t33039 = p17153->p17149->a29113; /* x160763 stalin.sc:22576:788740 */ t33036 = f14485(t33037, t33038, t33039); /* x160762 stalin.sc:22576:788735 */ t33034 = f14286(t33036); /* x160761 stalin.sc:22576:788727 */ t33035.tag = STRUCTURE_TYPE24753; t33035.value.structure_type24753 = t33034; t33027 = f13698(t33035); /* x160753 stalin.sc:22575:788686 */ t33028.tag = STRUCTURE_TYPE24753; t33028.value.structure_type24753 = t33026; t33029.tag = STRUCTURE_TYPE24753; t33029.value.structure_type24753 = t33027; t33018 = f13598(t33028, t33029); /* x160752 stalin.sc:22574:788646 */ /* x160751 stalin.sc:22574:788655 */ /* x160750 stalin.sc:22574:788660 */ /* x160747 stalin.sc:22574:788669 */ t33023 = p17153->p17149->a29112; /* x160748 stalin.sc:22574:788672 */ t33024 = p17153->a29118; /* x160749 stalin.sc:22574:788675 */ t33025 = p17153->p17149->a29113; /* x160746 stalin.sc:22574:788661 */ t33022 = f14485(t33023, t33024, t33025); /* x160745 stalin.sc:22574:788656 */ t33021 = f14278(t33022); /* x160744 stalin.sc:22574:788647 */ t33017 = f13600(t33021); /* x160743 stalin.sc:22573:788629 */ t33020.tag = STRUCTURE_TYPE24753; t33020.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33020.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22573, 788628); out_of_memory_error();} t33020.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t33020.value.structure_type24753->s0.value.structure_type24753 = t33018; t33020.value.structure_type24753->s1.tag = NULL_TYPE; t33019 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t33019==NULL) {backtrace("stalin.sc", 22573, 788628); out_of_memory_error();} t33019->s0.tag = STRUCTURE_TYPE24753; t33019->s0.value.structure_type24753 = t33017; t33019->s1 = t33020; t33011 = f13556(t33019); /* x160776 stalin.sc:22577:788765 */ /* x160773 stalin.sc:22577:788780 */ t33040 = "lsh1"; /* x160774 stalin.sc:22577:788787 */ t33041 = p17153->p17149->a29103; /* x160775 stalin.sc:22577:788789 */ /* x160772 stalin.sc:22577:788766 */ t33042.tag = STRUCTURE_TYPE27745; t33042.value.structure_type27745 = t33041; t33043 = FALSE_TYPE; t33012 = f15534(t33040, t33042, t33043); /* x160778 stalin.sc:22578:788796 */ /* x160777 stalin.sc:22578:788797 */ /* x276639 stalin.sc:14693:514793 */ t33013 = ""; /* x160779 stalin.sc:22579:788808 */ /* x160742 stalin.sc:22573:788623 */ t33014.tag = STRUCTURE_TYPE24753; t33014.value.structure_type24753 = t33012; t33015.tag = STRING_TYPE; t33015.value.string_type = t33013; t33016 = FALSE_TYPE; t33003 = f13672(t33011, t33014, t33015, t33016); goto l4583; l4582: /* x160786 */ /* x160785 */ /* x160784 stalin.sc:22580:788822 */ /* x160783 stalin.sc:22580:788823 */ /* x276641 stalin.sc:14693:514793 */ t33003.tag = STRING_TYPE; t33003.value.string_type = ""; l4583: l4580: /* x160709 stalin.sc:22566:788431 */ t33007.tag = STRUCTURE_TYPE24753; t33007.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33007.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22566, 788430); out_of_memory_error();} t33007.value.structure_type24753->s0 = t33004; t33007.value.structure_type24753->s1.tag = NULL_TYPE; a41870 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41870==NULL) {backtrace("stalin.sc", 22566, 788430); out_of_memory_error();} a41870->s0 = t33003; a41870->s1 = t33007; /* x301592 stalin.sc:14400:506485 */ /* x301591 stalin.sc:14400:506503 */ t33005 = a41870; /* x301590 stalin.sc:14400:506486 */ t33006.tag = STRUCTURE_TYPE24753; t33006.value.structure_type24753 = t33005; t32998 = f13492(t33006); goto l4577; l4576: /* x160870 stalin.sc:22595:789223 */ /* x160869 stalin.sc:22595:789224 */ /* x276649 stalin.sc:14693:514793 */ t32998.tag = STRING_TYPE; t32998.value.string_type = ""; l4577: /* x160707 stalin.sc:22564:788386 */ t33002.tag = STRUCTURE_TYPE24753; t33002.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33002.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22564, 788385); out_of_memory_error();} t33002.value.structure_type24753->s0 = t32999; t33002.value.structure_type24753->s1.tag = NULL_TYPE; a41800 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41800==NULL) {backtrace("stalin.sc", 22564, 788385); out_of_memory_error();} a41800->s0 = t32998; a41800->s1 = t33002; /* x301312 stalin.sc:14400:506485 */ /* x301311 stalin.sc:14400:506503 */ t33000 = a41800; /* x301310 stalin.sc:14400:506486 */ t33001.tag = STRUCTURE_TYPE24753; t33001.value.structure_type24753 = t33000; return f13492(t33001);} /* [inside top level 17150] */ struct w49 f17150(void) {struct p17149 *p17150 = d17150; struct w49 a29118 = b29118; /* U1 */ struct w49 t33174; struct structure_type27501 *t33175; struct w49 t33176; struct p17150 *t33177; struct p17149 *t33178; struct p17150 *e17150; e17150 = (struct p17150 *)GC_malloc(sizeof(struct p17150)); if (e17150==NULL) {backtrace("stalin.sc", 22557, 788297); out_of_memory_error();} e17150->p17149 = p17150; e17150->a29118 = a29118; /* x160982 stalin.sc:22558:788313 */ /* x160703 stalin.sc:22559:788330 */ /* x160704 stalin.sc:22560:788347 */ t33174 = p17150->a29115; /* x160705 stalin.sc:22561:788354 */ t33175 = p17150->a29102; /* x160706 stalin.sc:22562:788360 */ t33176 = p17150->a29114; /* x160975 stalin.sc:22563:788367 */ t33177 = e17150; /* x160981 stalin.sc:22611:789794 */ t33178 = p17150; /* x160702 stalin.sc:22558:788314 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t33174; b26113 = t33175; b26114 = t33176; b26115.tag = NATIVE_PROCEDURE_TYPE21366; b26115.value.native_procedure_type21366 = t33177; b26116.tag = NATIVE_PROCEDURE_TYPE21365; b26116.value.native_procedure_type21365 = t33178; return f14692();} /* [inside top level 17137] */ struct structure_type24753 *f17137(void) {struct structure_type24753 *a34983; /* OBJS */ struct w49 t33179; /* x160618 stalin.sc:22540:787809 */ /* x160617 stalin.sc:22540:787828 */ /* x160616 stalin.sc:22540:787815 */ /* x160615 stalin.sc:22540:787810 */ t33179.tag = STRUCTURE_TYPE24753; t33179.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33179.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22540, 787809); out_of_memory_error();} t33179.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7426; t33179.value.structure_type24753->s1.tag = NULL_TYPE; a34983 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34983==NULL) {backtrace("stalin.sc", 22540, 787809); out_of_memory_error();} a34983->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34983->s1 = t33179; /* x271973 */ return a34983;} /* [inside top level 17136] */ struct structure_type24753 *f17136(void) {struct structure_type24753 *a35048; /* OBJS */ struct w49 t33180; /* x160613 stalin.sc:22539:787775 */ /* x160612 stalin.sc:22539:787794 */ /* x160611 stalin.sc:22539:787781 */ /* x160610 stalin.sc:22539:787776 */ t33180.tag = STRUCTURE_TYPE24753; t33180.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33180.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22539, 787775); out_of_memory_error();} t33180.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7426; t33180.value.structure_type24753->s1.tag = NULL_TYPE; a35048 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35048==NULL) {backtrace("stalin.sc", 22539, 787775); out_of_memory_error();} a35048->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35048->s1 = t33180; /* x272103 */ return a35048;} /* [inside top level 17135] */ struct p16287 *f17135(void) {unsigned t33181; unsigned t33182; /* x160608 stalin.sc:22538:787714 */ /* x160606 stalin.sc:22538:787747 */ /* x160607 stalin.sc:22538:787760 */ /* x160605 stalin.sc:22538:787715 */ t33181 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t33182 = (unsigned)NATIVE_PROCEDURE_TYPE7426; return f16287(t33181, t33182);} /* [inside top level 17134] */ struct structure_type24753 *f17134(struct p17116 *p17134, unsigned a29070) {char *t33183; struct structure_type27745 *t33184; unsigned t33185; struct w49 t33186; /* x160591 stalin.sc:22532:787521 */ /* x160588 stalin.sc:22532:787536 */ t33183 = "remainder1"; /* x160589 stalin.sc:22532:787549 */ t33184 = p17134->a29052; /* x160590 stalin.sc:22532:787551 */ t33185 = a29070; /* x160587 stalin.sc:22532:787522 */ t33186.tag = STRUCTURE_TYPE27745; t33186.value.structure_type27745 = t33184; return f15534(t33183, t33186, t33185);} /* [inside top level 17133] */ struct structure_type24753 *f17133(struct p17116 *p17133, unsigned a29069) {char *t33187; struct structure_type27745 *t33188; unsigned t33189; struct w49 t33190; /* x160583 stalin.sc:22531:787469 */ /* x160580 stalin.sc:22531:787484 */ t33187 = "remainder2"; /* x160581 stalin.sc:22531:787497 */ t33188 = p17133->a29052; /* x160582 stalin.sc:22531:787499 */ t33189 = a29069; /* x160579 stalin.sc:22531:787470 */ t33190.tag = STRUCTURE_TYPE27745; t33190.value.structure_type27745 = t33188; return f15534(t33187, t33190, t33189);} /* [inside top level 17118] */ struct w49 f17118(struct p17117 *p17118, struct w49 a29068) {struct structure_type24753 *a41808; /* CS */ struct structure_type24753 *a41873; /* CS */ struct w49 t33191; struct w49 t33192; struct structure_type24753 *t33193; struct w49 t33194; struct w49 t33195; struct w49 t33196; struct w49 t33197; struct structure_type24753 *t33198; struct w49 t33199; struct w49 t33200; struct w49 t33201; struct w49 t33202; struct p17117 *t33203; struct structure_type24753 *t33204; struct structure_type24753 *t33205; char *t33206; struct w49 t33207; struct w49 t33208; unsigned t33209; struct structure_type24753 *t33210; struct structure_type24753 *t33211; struct structure_type24753 *t33212; struct w49 t33213; struct structure_type24753 *t33214; struct w49 t33215; struct w49 t33216; struct w49 t33217; struct w49 t33218; struct structure_type24753 *t33219; struct structure_type24753 *t33220; struct w49 t33221; struct w61020 t33222; struct w49 t33223; struct w49 t33224; struct w49 t33225; struct w49 t33226; struct structure_type24753 *t33227; struct w49 t33228; struct w49 t33229; struct w49 t33230; struct w49 t33231; struct w49 t33232; char *t33233; struct structure_type27745 *t33234; struct w49 t33235; unsigned t33236; struct p17117 *t33237; struct structure_type24753 *t33238; struct structure_type24753 *t33239; char *t33240; struct w49 t33241; struct w49 t33242; unsigned t33243; struct w49 t33244; struct structure_type24753 *t33245; struct w61020 t33246; struct w49 t33247; struct w49 t33248; struct w49 t33249; struct w49 t33250; struct w49 t33251; struct w49 t33252; struct w49 t33253; char *t33254; struct structure_type27745 *t33255; struct w49 t33256; unsigned t33257; struct w49 t33258; struct w49 t33259; struct p17116 *t33260; struct structure_type24753 *t33261; struct structure_type24753 *t33262; char *t33263; struct w49 t33264; struct w49 t33265; unsigned t33266; struct structure_type24753 *t33267; struct structure_type24753 *t33268; struct structure_type24753 *t33269; struct w49 t33270; struct structure_type24753 *t33271; struct w49 t33272; struct w49 t33273; struct w49 t33274; struct w49 t33275; struct structure_type24753 *t33276; struct structure_type24753 *t33277; struct w49 t33278; struct w61020 t33279; struct w49 t33280; struct w49 t33281; struct w49 t33282; struct w49 t33283; struct structure_type24753 *t33284; struct w49 t33285; struct w49 t33286; struct w49 t33287; struct w49 t33288; struct w49 t33289; char *t33290; struct structure_type27745 *t33291; struct w49 t33292; unsigned t33293; struct p17116 *t33294; struct structure_type24753 *t33295; struct structure_type24753 *t33296; char *t33297; struct w49 t33298; struct w49 t33299; unsigned t33300; struct w49 t33301; struct structure_type24753 *t33302; struct w61020 t33303; struct w49 t33304; struct w49 t33305; struct w49 t33306; struct w49 t33307; struct w49 t33308; struct w49 t33309; struct w49 t33310; char *t33311; struct structure_type27745 *t33312; struct w49 t33313; unsigned t33314; struct structure_type27501 *t33315; struct structure_type24753 *t33316; unsigned t33317; struct w49 t33318; unsigned t33319; struct w49 t33320; struct w49 t33321; struct w49 t33322; struct w49 t33323; struct w49 t33324; char *t33325; struct p17117 *t33326; struct structure_type24753 *t33327; struct w49 t33328; struct structure_type24753 *t33329; struct w49 t33330; struct w49 t33331; struct w49 t33332; struct w49 t33333; struct p17117 *t33334; struct w49 t33335; struct structure_type24753 *t33336; struct w49 t33337; struct w49 t33338; struct w49 t33339; struct p17117 *t33340; struct w49 t33341; struct w49 t33342; struct w49 t33343; struct w49 t33344; struct w49 t33345; struct w49 t33346; char *t33347; struct p17116 *t33348; struct structure_type24753 *t33349; struct w49 t33350; struct structure_type24753 *t33351; struct w49 t33352; struct w49 t33353; struct w49 t33354; struct w49 t33355; struct p17116 *t33356; struct w49 t33357; struct structure_type24753 *t33358; struct w49 t33359; struct w49 t33360; struct w49 t33361; struct p17116 *t33362; struct w49 t33363; struct w49 t33364; struct w49 t33365; struct w49 t33366; struct w49 t33367; struct p17117 *p17119; struct p17117 *p17120; struct p17116 *p17122; struct p17116 *p17123; struct p17117 *p17125; struct p17117 *p17126; struct p17117 *p17127; struct p17116 *p17129; struct p17116 *p17130; struct p17116 *p17131; /* x160577 stalin.sc:22484:786033 */ /* x160576 stalin.sc:22516:786911 */ /* x160476 stalin.sc:22517:786925 */ t33315 = p17118->p17116->a29051; /* x160564 stalin.sc:22518:786934 */ /* x160520 stalin.sc:22518:786939 */ /* x160480 stalin.sc:22519:786952 */ /* x160479 stalin.sc:22519:786966 */ t33322 = p17118->a29067; /* x160478 stalin.sc:22519:786953 */ if (f7683(t33322)==FALSE_TYPE) goto l4628; /* x160487 */ /* x160486 */ t33340 = p17118; p17125 = t33340; /* x160485 stalin.sc:22519:786970 */ /* x160482 stalin.sc:22519:786979 */ t33341 = p17125->p17116->a29061; /* x160483 stalin.sc:22519:786982 */ t33342 = p17125->a29067; /* x160484 stalin.sc:22519:786985 */ t33343 = p17125->p17116->a29062; /* x160481 stalin.sc:22519:786971 */ t33320 = f14485(t33341, t33342, t33343); goto l4629; l4628: /* x160519 */ /* x160490 stalin.sc:22520:786997 */ /* x160489 stalin.sc:22520:787011 */ t33323 = p17118->a29067; /* x160488 stalin.sc:22520:786998 */ if (f7684(t33323)==FALSE_TYPE) goto l4631; /* x160499 */ /* x160498 */ t33334 = p17118; p17126 = t33334; /* x160497 stalin.sc:22520:787015 */ /* x160496 stalin.sc:22520:787030 */ /* x160493 stalin.sc:22520:787039 */ t33337 = p17126->p17116->a29061; /* x160494 stalin.sc:22520:787042 */ t33338 = p17126->a29067; /* x160495 stalin.sc:22520:787045 */ t33339 = p17126->p17116->a29062; /* x160492 stalin.sc:22520:787031 */ t33335 = f14485(t33337, t33338, t33339); /* x160491 stalin.sc:22520:787016 */ t33336 = f13549(t33335); t33320.tag = STRUCTURE_TYPE24753; t33320.value.structure_type24753 = t33336; goto l4632; l4631: /* x160518 */ /* x160502 stalin.sc:22521:787058 */ /* x160501 stalin.sc:22521:787077 */ t33324 = p17118->a29067; /* x160500 stalin.sc:22521:787059 */ if (f7687(t33324)==FALSE_TYPE) goto l4634; /* x160513 */ /* x160512 */ t33326 = p17118; p17127 = t33326; /* x160511 stalin.sc:22521:787081 */ /* x160510 stalin.sc:22521:787096 */ /* x160509 stalin.sc:22521:787101 */ /* x160506 stalin.sc:22521:787110 */ t33331 = p17127->p17116->a29061; /* x160507 stalin.sc:22521:787113 */ t33332 = p17127->a29067; /* x160508 stalin.sc:22521:787116 */ t33333 = p17127->p17116->a29062; /* x160505 stalin.sc:22521:787102 */ t33330 = f14485(t33331, t33332, t33333); /* x160504 stalin.sc:22521:787097 */ t33327 = f14286(t33330); /* x160503 stalin.sc:22521:787082 */ t33328.tag = STRUCTURE_TYPE24753; t33328.value.structure_type24753 = t33327; t33329 = f13549(t33328); t33320.tag = STRUCTURE_TYPE24753; t33320.value.structure_type24753 = t33329; goto l4635; l4634: /* x160517 */ /* x160516 */ /* x160515 stalin.sc:22522:787135 */ /* x160514 stalin.sc:22522:787136 */ /* x295753 QobiScheme.sc:166:5314 */ /* x295752 QobiScheme.sc:166:5321 */ t33325 = "This shouldn\'t happen"; /* x295751 QobiScheme.sc:166:5315 */ stalin_panic(t33325); l4635: l4632: l4629: /* x160563 stalin.sc:22523:787152 */ /* x160523 stalin.sc:22524:787165 */ /* x160522 stalin.sc:22524:787179 */ t33344 = a29068; /* x160521 stalin.sc:22524:787166 */ if (f7683(t33344)==FALSE_TYPE) goto l4637; /* x160530 */ /* x160529 */ t33362 = p17118->p17116; p17129 = t33362; /* x160528 stalin.sc:22524:787183 */ /* x160525 stalin.sc:22524:787192 */ t33363 = p17129->a29063; /* x160526 stalin.sc:22524:787195 */ t33364 = a29068; /* x160527 stalin.sc:22524:787198 */ t33365 = p17129->a29064; /* x160524 stalin.sc:22524:787184 */ t33321 = f14485(t33363, t33364, t33365); goto l4638; l4637: /* x160562 */ /* x160533 stalin.sc:22525:787210 */ /* x160532 stalin.sc:22525:787224 */ t33345 = a29068; /* x160531 stalin.sc:22525:787211 */ if (f7684(t33345)==FALSE_TYPE) goto l4640; /* x160542 */ /* x160541 */ t33356 = p17118->p17116; p17130 = t33356; /* x160540 stalin.sc:22525:787228 */ /* x160539 stalin.sc:22525:787243 */ /* x160536 stalin.sc:22525:787252 */ t33359 = p17130->a29063; /* x160537 stalin.sc:22525:787255 */ t33360 = a29068; /* x160538 stalin.sc:22525:787258 */ t33361 = p17130->a29064; /* x160535 stalin.sc:22525:787244 */ t33357 = f14485(t33359, t33360, t33361); /* x160534 stalin.sc:22525:787229 */ t33358 = f13549(t33357); t33321.tag = STRUCTURE_TYPE24753; t33321.value.structure_type24753 = t33358; goto l4641; l4640: /* x160561 */ /* x160545 stalin.sc:22526:787271 */ /* x160544 stalin.sc:22526:787290 */ t33346 = a29068; /* x160543 stalin.sc:22526:787272 */ if (f7687(t33346)==FALSE_TYPE) goto l4643; /* x160556 */ /* x160555 */ t33348 = p17118->p17116; p17131 = t33348; /* x160554 stalin.sc:22526:787294 */ /* x160553 stalin.sc:22526:787309 */ /* x160552 stalin.sc:22526:787314 */ /* x160549 stalin.sc:22526:787323 */ t33353 = p17131->a29063; /* x160550 stalin.sc:22526:787326 */ t33354 = a29068; /* x160551 stalin.sc:22526:787329 */ t33355 = p17131->a29064; /* x160548 stalin.sc:22526:787315 */ t33352 = f14485(t33353, t33354, t33355); /* x160547 stalin.sc:22526:787310 */ t33349 = f14286(t33352); /* x160546 stalin.sc:22526:787295 */ t33350.tag = STRUCTURE_TYPE24753; t33350.value.structure_type24753 = t33349; t33351 = f13549(t33350); t33321.tag = STRUCTURE_TYPE24753; t33321.value.structure_type24753 = t33351; goto l4644; l4643: /* x160560 */ /* x160559 */ /* x160558 stalin.sc:22527:787348 */ /* x160557 stalin.sc:22527:787349 */ /* x295757 QobiScheme.sc:166:5314 */ /* x295756 QobiScheme.sc:166:5321 */ t33347 = "This shouldn\'t happen"; /* x295755 QobiScheme.sc:166:5315 */ stalin_panic(t33347); l4644: l4641: l4638: /* x160477 stalin.sc:22518:786935 */ t33316 = f13622(t33320, t33321); /* x160575 stalin.sc:22528:787368 */ /* x160572 stalin.sc:22528:787372 */ /* x160567 stalin.sc:22528:787377 */ /* x160566 stalin.sc:22528:787391 */ t33366 = p17118->a29067; /* x160565 stalin.sc:22528:787378 */ if (f7683(t33366)==FALSE_TYPE) goto l4646; /* x160570 */ /* x160569 stalin.sc:22528:787409 */ t33367 = a29068; /* x160568 stalin.sc:22528:787396 */ if (f7683(t33367)==FALSE_TYPE) goto l4646; /* x160573 stalin.sc:22529:787418 */ t33317 = NATIVE_PROCEDURE_TYPE7430; goto l4647; l4646: /* x160574 stalin.sc:22530:787435 */ t33317 = NATIVE_PROCEDURE_TYPE7429; l4647: /* x160475 stalin.sc:22516:786912 */ t33318.tag = STRUCTURE_TYPE24753; t33318.value.structure_type24753 = t33316; t33319 = (unsigned)t33317; t33192 = f15508(t33315, t33318, t33319); /* x160474 stalin.sc:22485:786056 */ /* x160311 stalin.sc:22485:786060 */ if (a703==FALSE_TYPE) goto l4613; /* x160471 stalin.sc:22486:786078 */ /* x160470 stalin.sc:22501:786497 */ /* x160394 stalin.sc:22501:786504 */ /* x160393 stalin.sc:22501:786518 */ t33258 = a29068; /* x160392 stalin.sc:22501:786505 */ if (f7684(t33258)==FALSE_TYPE) goto l4622; /* x160420 */ /* x160419 */ t33294 = p17118->p17116; p17122 = t33294; /* x160418 stalin.sc:22502:786526 */ /* x160409 stalin.sc:22502:786532 */ /* x160401 stalin.sc:22502:786538 */ /* x160398 stalin.sc:22502:786547 */ t33304 = p17122->a29063; /* x160399 stalin.sc:22502:786550 */ t33305 = a29068; /* x160400 stalin.sc:22502:786553 */ t33306 = p17122->a29064; /* x160397 stalin.sc:22502:786539 */ t33301 = f14485(t33304, t33305, t33306); /* x160408 stalin.sc:22502:786557 */ /* x160407 stalin.sc:22502:786565 */ /* x160404 stalin.sc:22502:786574 */ t33308 = p17122->a29063; /* x160405 stalin.sc:22502:786577 */ t33309 = a29068; /* x160406 stalin.sc:22502:786580 */ t33310 = p17122->a29064; /* x160403 stalin.sc:22502:786566 */ t33307 = f14485(t33308, t33309, t33310); /* x160402 stalin.sc:22502:786558 */ t33302 = f13698(t33307); /* x160396 stalin.sc:22502:786533 */ t33303.tag = STRUCTURE_TYPE24753; t33303.value.structure_type24753 = t33302; t33295 = f13598(t33301, t33303); /* x160414 stalin.sc:22503:786589 */ /* x160411 stalin.sc:22503:786604 */ t33311 = "remainder2"; /* x160412 stalin.sc:22503:786617 */ t33312 = p17122->a29052; /* x160413 stalin.sc:22503:786619 */ /* x160410 stalin.sc:22503:786590 */ t33313.tag = STRUCTURE_TYPE27745; t33313.value.structure_type27745 = t33312; t33314 = FALSE_TYPE; t33296 = f15534(t33311, t33313, t33314); /* x160416 stalin.sc:22504:786626 */ /* x160415 stalin.sc:22504:786627 */ /* x276705 stalin.sc:14693:514793 */ t33297 = ""; /* x160417 stalin.sc:22505:786638 */ /* x160395 stalin.sc:22502:786527 */ t33298.tag = STRUCTURE_TYPE24753; t33298.value.structure_type24753 = t33296; t33299.tag = STRING_TYPE; t33299.value.string_type = t33297; t33300 = FALSE_TYPE; t33197 = f13672(t33295, t33298, t33299, t33300); goto l4623; l4622: /* x160469 */ /* x160423 stalin.sc:22506:786647 */ /* x160422 stalin.sc:22506:786666 */ t33259 = a29068; /* x160421 stalin.sc:22506:786648 */ if (f7687(t33259)==FALSE_TYPE) goto l4625; /* x160464 */ /* x160463 */ t33260 = p17118->p17116; p17123 = t33260; /* x160462 stalin.sc:22507:786674 */ /* x160453 stalin.sc:22507:786680 */ /* x160452 stalin.sc:22509:786737 */ /* x160442 stalin.sc:22509:786743 */ /* x160441 stalin.sc:22509:786748 */ /* x160438 stalin.sc:22509:786757 */ t33281 = p17123->a29063; /* x160439 stalin.sc:22509:786760 */ t33282 = a29068; /* x160440 stalin.sc:22509:786763 */ t33283 = p17123->a29064; /* x160437 stalin.sc:22509:786749 */ t33280 = f14485(t33281, t33282, t33283); /* x160436 stalin.sc:22509:786744 */ t33276 = f14286(t33280); /* x160451 stalin.sc:22510:786778 */ /* x160450 stalin.sc:22510:786786 */ /* x160449 stalin.sc:22510:786791 */ /* x160446 stalin.sc:22510:786800 */ t33287 = p17123->a29063; /* x160447 stalin.sc:22510:786803 */ t33288 = a29068; /* x160448 stalin.sc:22510:786806 */ t33289 = p17123->a29064; /* x160445 stalin.sc:22510:786792 */ t33286 = f14485(t33287, t33288, t33289); /* x160444 stalin.sc:22510:786787 */ t33284 = f14286(t33286); /* x160443 stalin.sc:22510:786779 */ t33285.tag = STRUCTURE_TYPE24753; t33285.value.structure_type24753 = t33284; t33277 = f13698(t33285); /* x160435 stalin.sc:22509:786738 */ t33278.tag = STRUCTURE_TYPE24753; t33278.value.structure_type24753 = t33276; t33279.tag = STRUCTURE_TYPE24753; t33279.value.structure_type24753 = t33277; t33268 = f13598(t33278, t33279); /* x160434 stalin.sc:22508:786698 */ /* x160433 stalin.sc:22508:786707 */ /* x160432 stalin.sc:22508:786712 */ /* x160429 stalin.sc:22508:786721 */ t33273 = p17123->a29063; /* x160430 stalin.sc:22508:786724 */ t33274 = a29068; /* x160431 stalin.sc:22508:786727 */ t33275 = p17123->a29064; /* x160428 stalin.sc:22508:786713 */ t33272 = f14485(t33273, t33274, t33275); /* x160427 stalin.sc:22508:786708 */ t33271 = f14278(t33272); /* x160426 stalin.sc:22508:786699 */ t33267 = f13600(t33271); /* x160425 stalin.sc:22507:786681 */ t33270.tag = STRUCTURE_TYPE24753; t33270.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33270.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22507, 786680); out_of_memory_error();} t33270.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t33270.value.structure_type24753->s0.value.structure_type24753 = t33268; t33270.value.structure_type24753->s1.tag = NULL_TYPE; t33269 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t33269==NULL) {backtrace("stalin.sc", 22507, 786680); out_of_memory_error();} t33269->s0.tag = STRUCTURE_TYPE24753; t33269->s0.value.structure_type24753 = t33267; t33269->s1 = t33270; t33261 = f13556(t33269); /* x160458 stalin.sc:22511:786817 */ /* x160455 stalin.sc:22511:786832 */ t33290 = "remainder2"; /* x160456 stalin.sc:22511:786845 */ t33291 = p17123->a29052; /* x160457 stalin.sc:22511:786847 */ /* x160454 stalin.sc:22511:786818 */ t33292.tag = STRUCTURE_TYPE27745; t33292.value.structure_type27745 = t33291; t33293 = FALSE_TYPE; t33262 = f15534(t33290, t33292, t33293); /* x160460 stalin.sc:22512:786854 */ /* x160459 stalin.sc:22512:786855 */ /* x276707 stalin.sc:14693:514793 */ t33263 = ""; /* x160461 stalin.sc:22513:786866 */ /* x160424 stalin.sc:22507:786675 */ t33264.tag = STRUCTURE_TYPE24753; t33264.value.structure_type24753 = t33262; t33265.tag = STRING_TYPE; t33265.value.string_type = t33263; t33266 = FALSE_TYPE; t33197 = f13672(t33261, t33264, t33265, t33266); goto l4626; l4625: /* x160468 */ /* x160467 */ /* x160466 stalin.sc:22514:786880 */ /* x160465 stalin.sc:22514:786881 */ /* x276709 stalin.sc:14693:514793 */ t33197.tag = STRING_TYPE; t33197.value.string_type = ""; l4626: l4623: /* x160391 stalin.sc:22487:786099 */ /* x160315 stalin.sc:22487:786106 */ /* x160314 stalin.sc:22487:786120 */ t33201 = p17118->a29067; /* x160313 stalin.sc:22487:786107 */ if (f7684(t33201)==FALSE_TYPE) goto l4616; /* x160341 */ /* x160340 */ t33237 = p17118; p17119 = t33237; /* x160339 stalin.sc:22488:786128 */ /* x160330 stalin.sc:22488:786134 */ /* x160322 stalin.sc:22488:786140 */ /* x160319 stalin.sc:22488:786149 */ t33247 = p17119->p17116->a29061; /* x160320 stalin.sc:22488:786152 */ t33248 = p17119->a29067; /* x160321 stalin.sc:22488:786155 */ t33249 = p17119->p17116->a29062; /* x160318 stalin.sc:22488:786141 */ t33244 = f14485(t33247, t33248, t33249); /* x160329 stalin.sc:22488:786159 */ /* x160328 stalin.sc:22488:786167 */ /* x160325 stalin.sc:22488:786176 */ t33251 = p17119->p17116->a29061; /* x160326 stalin.sc:22488:786179 */ t33252 = p17119->a29067; /* x160327 stalin.sc:22488:786182 */ t33253 = p17119->p17116->a29062; /* x160324 stalin.sc:22488:786168 */ t33250 = f14485(t33251, t33252, t33253); /* x160323 stalin.sc:22488:786160 */ t33245 = f13698(t33250); /* x160317 stalin.sc:22488:786135 */ t33246.tag = STRUCTURE_TYPE24753; t33246.value.structure_type24753 = t33245; t33238 = f13598(t33244, t33246); /* x160335 stalin.sc:22489:786191 */ /* x160332 stalin.sc:22489:786206 */ t33254 = "remainder1"; /* x160333 stalin.sc:22489:786219 */ t33255 = p17119->p17116->a29052; /* x160334 stalin.sc:22489:786221 */ /* x160331 stalin.sc:22489:786192 */ t33256.tag = STRUCTURE_TYPE27745; t33256.value.structure_type27745 = t33255; t33257 = FALSE_TYPE; t33239 = f15534(t33254, t33256, t33257); /* x160337 stalin.sc:22490:786228 */ /* x160336 stalin.sc:22490:786229 */ /* x276699 stalin.sc:14693:514793 */ t33240 = ""; /* x160338 stalin.sc:22491:786240 */ /* x160316 stalin.sc:22488:786129 */ t33241.tag = STRUCTURE_TYPE24753; t33241.value.structure_type24753 = t33239; t33242.tag = STRING_TYPE; t33242.value.string_type = t33240; t33243 = FALSE_TYPE; t33196 = f13672(t33238, t33241, t33242, t33243); goto l4617; l4616: /* x160390 */ /* x160344 stalin.sc:22492:786249 */ /* x160343 stalin.sc:22492:786268 */ t33202 = p17118->a29067; /* x160342 stalin.sc:22492:786250 */ if (f7687(t33202)==FALSE_TYPE) goto l4619; /* x160385 */ /* x160384 */ t33203 = p17118; p17120 = t33203; /* x160383 stalin.sc:22493:786276 */ /* x160374 stalin.sc:22493:786282 */ /* x160373 stalin.sc:22495:786339 */ /* x160363 stalin.sc:22495:786345 */ /* x160362 stalin.sc:22495:786350 */ /* x160359 stalin.sc:22495:786359 */ t33224 = p17120->p17116->a29061; /* x160360 stalin.sc:22495:786362 */ t33225 = p17120->a29067; /* x160361 stalin.sc:22495:786365 */ t33226 = p17120->p17116->a29062; /* x160358 stalin.sc:22495:786351 */ t33223 = f14485(t33224, t33225, t33226); /* x160357 stalin.sc:22495:786346 */ t33219 = f14286(t33223); /* x160372 stalin.sc:22496:786380 */ /* x160371 stalin.sc:22496:786388 */ /* x160370 stalin.sc:22496:786393 */ /* x160367 stalin.sc:22496:786402 */ t33230 = p17120->p17116->a29061; /* x160368 stalin.sc:22496:786405 */ t33231 = p17120->a29067; /* x160369 stalin.sc:22496:786408 */ t33232 = p17120->p17116->a29062; /* x160366 stalin.sc:22496:786394 */ t33229 = f14485(t33230, t33231, t33232); /* x160365 stalin.sc:22496:786389 */ t33227 = f14286(t33229); /* x160364 stalin.sc:22496:786381 */ t33228.tag = STRUCTURE_TYPE24753; t33228.value.structure_type24753 = t33227; t33220 = f13698(t33228); /* x160356 stalin.sc:22495:786340 */ t33221.tag = STRUCTURE_TYPE24753; t33221.value.structure_type24753 = t33219; t33222.tag = STRUCTURE_TYPE24753; t33222.value.structure_type24753 = t33220; t33211 = f13598(t33221, t33222); /* x160355 stalin.sc:22494:786300 */ /* x160354 stalin.sc:22494:786309 */ /* x160353 stalin.sc:22494:786314 */ /* x160350 stalin.sc:22494:786323 */ t33216 = p17120->p17116->a29061; /* x160351 stalin.sc:22494:786326 */ t33217 = p17120->a29067; /* x160352 stalin.sc:22494:786329 */ t33218 = p17120->p17116->a29062; /* x160349 stalin.sc:22494:786315 */ t33215 = f14485(t33216, t33217, t33218); /* x160348 stalin.sc:22494:786310 */ t33214 = f14278(t33215); /* x160347 stalin.sc:22494:786301 */ t33210 = f13600(t33214); /* x160346 stalin.sc:22493:786283 */ t33213.tag = STRUCTURE_TYPE24753; t33213.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33213.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22493, 786282); out_of_memory_error();} t33213.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t33213.value.structure_type24753->s0.value.structure_type24753 = t33211; t33213.value.structure_type24753->s1.tag = NULL_TYPE; t33212 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t33212==NULL) {backtrace("stalin.sc", 22493, 786282); out_of_memory_error();} t33212->s0.tag = STRUCTURE_TYPE24753; t33212->s0.value.structure_type24753 = t33210; t33212->s1 = t33213; t33204 = f13556(t33212); /* x160379 stalin.sc:22497:786419 */ /* x160376 stalin.sc:22497:786434 */ t33233 = "remainder1"; /* x160377 stalin.sc:22497:786447 */ t33234 = p17120->p17116->a29052; /* x160378 stalin.sc:22497:786449 */ /* x160375 stalin.sc:22497:786420 */ t33235.tag = STRUCTURE_TYPE27745; t33235.value.structure_type27745 = t33234; t33236 = FALSE_TYPE; t33205 = f15534(t33233, t33235, t33236); /* x160381 stalin.sc:22498:786456 */ /* x160380 stalin.sc:22498:786457 */ /* x276701 stalin.sc:14693:514793 */ t33206 = ""; /* x160382 stalin.sc:22499:786468 */ /* x160345 stalin.sc:22493:786277 */ t33207.tag = STRUCTURE_TYPE24753; t33207.value.structure_type24753 = t33205; t33208.tag = STRING_TYPE; t33208.value.string_type = t33206; t33209 = FALSE_TYPE; t33196 = f13672(t33204, t33207, t33208, t33209); goto l4620; l4619: /* x160389 */ /* x160388 */ /* x160387 stalin.sc:22500:786482 */ /* x160386 stalin.sc:22500:786483 */ /* x276703 stalin.sc:14693:514793 */ t33196.tag = STRING_TYPE; t33196.value.string_type = ""; l4620: l4617: /* x160312 stalin.sc:22486:786079 */ t33200.tag = STRUCTURE_TYPE24753; t33200.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33200.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22486, 786078); out_of_memory_error();} t33200.value.structure_type24753->s0 = t33197; t33200.value.structure_type24753->s1.tag = NULL_TYPE; a41873 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41873==NULL) {backtrace("stalin.sc", 22486, 786078); out_of_memory_error();} a41873->s0 = t33196; a41873->s1 = t33200; /* x301604 stalin.sc:14400:506485 */ /* x301603 stalin.sc:14400:506503 */ t33198 = a41873; /* x301602 stalin.sc:14400:506486 */ t33199.tag = STRUCTURE_TYPE24753; t33199.value.structure_type24753 = t33198; t33191 = f13492(t33199); goto l4614; l4613: /* x160473 stalin.sc:22515:786895 */ /* x160472 stalin.sc:22515:786896 */ /* x276711 stalin.sc:14693:514793 */ t33191.tag = STRING_TYPE; t33191.value.string_type = ""; l4614: /* x160310 stalin.sc:22484:786034 */ t33195.tag = STRUCTURE_TYPE24753; t33195.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33195.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22484, 786033); out_of_memory_error();} t33195.value.structure_type24753->s0 = t33192; t33195.value.structure_type24753->s1.tag = NULL_TYPE; a41808 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41808==NULL) {backtrace("stalin.sc", 22484, 786033); out_of_memory_error();} a41808->s0 = t33191; a41808->s1 = t33195; /* x301344 stalin.sc:14400:506485 */ /* x301343 stalin.sc:14400:506503 */ t33193 = a41808; /* x301342 stalin.sc:14400:506486 */ t33194.tag = STRUCTURE_TYPE24753; t33194.value.structure_type24753 = t33193; return f13492(t33194);} /* [inside top level 17117] */ struct w49 f17117(void) {struct p17116 *p17117 = d17117; struct w49 a29067 = b29067; /* U1 */ struct w49 t33368; struct structure_type27501 *t33369; struct w49 t33370; struct p17117 *t33371; struct p17116 *t33372; struct p17117 *e17117; e17117 = (struct p17117 *)GC_malloc(sizeof(struct p17117)); if (e17117==NULL) {backtrace("stalin.sc", 22477, 785945); out_of_memory_error();} e17117->p17116 = p17117; e17117->a29067 = a29067; /* x160585 stalin.sc:22478:785961 */ /* x160306 stalin.sc:22479:785978 */ /* x160307 stalin.sc:22480:785995 */ t33368 = p17117->a29064; /* x160308 stalin.sc:22481:786002 */ t33369 = p17117->a29051; /* x160309 stalin.sc:22482:786008 */ t33370 = p17117->a29063; /* x160578 stalin.sc:22483:786015 */ t33371 = e17117; /* x160584 stalin.sc:22531:787456 */ t33372 = p17117; /* x160305 stalin.sc:22478:785962 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t33368; b26113 = t33369; b26114 = t33370; b26115.tag = NATIVE_PROCEDURE_TYPE21155; b26115.value.native_procedure_type21155 = t33371; b26116.tag = NATIVE_PROCEDURE_TYPE21154; b26116.value.native_procedure_type21154 = t33372; return f14692();} /* [inside top level 17104] */ struct structure_type24753 *f17104(void) {struct structure_type24753 *a34984; /* OBJS */ struct w49 t33373; /* x160221 stalin.sc:22460:785457 */ /* x160220 stalin.sc:22460:785476 */ /* x160219 stalin.sc:22460:785463 */ /* x160218 stalin.sc:22460:785458 */ t33373.tag = STRUCTURE_TYPE24753; t33373.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33373.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22460, 785457); out_of_memory_error();} t33373.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7426; t33373.value.structure_type24753->s1.tag = NULL_TYPE; a34984 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34984==NULL) {backtrace("stalin.sc", 22460, 785457); out_of_memory_error();} a34984->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34984->s1 = t33373; /* x271975 */ return a34984;} /* [inside top level 17103] */ struct structure_type24753 *f17103(void) {struct structure_type24753 *a35067; /* OBJS */ struct w49 t33374; /* x160216 stalin.sc:22459:785423 */ /* x160215 stalin.sc:22459:785442 */ /* x160214 stalin.sc:22459:785429 */ /* x160213 stalin.sc:22459:785424 */ t33374.tag = STRUCTURE_TYPE24753; t33374.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33374.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22459, 785423); out_of_memory_error();} t33374.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7426; t33374.value.structure_type24753->s1.tag = NULL_TYPE; a35067 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35067==NULL) {backtrace("stalin.sc", 22459, 785423); out_of_memory_error();} a35067->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35067->s1 = t33374; /* x272141 */ return a35067;} /* [inside top level 17102] */ struct p16287 *f17102(void) {unsigned t33375; unsigned t33376; /* x160211 stalin.sc:22458:785362 */ /* x160209 stalin.sc:22458:785395 */ /* x160210 stalin.sc:22458:785408 */ /* x160208 stalin.sc:22458:785363 */ t33375 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t33376 = (unsigned)NATIVE_PROCEDURE_TYPE7426; return f16287(t33375, t33376);} /* [inside top level 17101] */ struct structure_type24753 *f17101(struct p17083 *p17101, unsigned a29019) {char *t33377; struct structure_type27745 *t33378; unsigned t33379; struct w49 t33380; /* x160194 stalin.sc:22452:785155 */ /* x160191 stalin.sc:22452:785170 */ t33377 = "quotient1"; /* x160192 stalin.sc:22452:785182 */ t33378 = p17101->a29001; /* x160193 stalin.sc:22452:785184 */ t33379 = a29019; /* x160190 stalin.sc:22452:785156 */ t33380.tag = STRUCTURE_TYPE27745; t33380.value.structure_type27745 = t33378; return f15534(t33377, t33380, t33379);} /* [inside top level 17100] */ struct structure_type24753 *f17100(struct p17083 *p17100, unsigned a29018) {char *t33381; struct structure_type27745 *t33382; unsigned t33383; struct w49 t33384; /* x160186 stalin.sc:22451:785104 */ /* x160183 stalin.sc:22451:785119 */ t33381 = "quotient2"; /* x160184 stalin.sc:22451:785131 */ t33382 = p17100->a29001; /* x160185 stalin.sc:22451:785133 */ t33383 = a29018; /* x160182 stalin.sc:22451:785105 */ t33384.tag = STRUCTURE_TYPE27745; t33384.value.structure_type27745 = t33382; return f15534(t33381, t33384, t33383);} /* [inside top level 17085] */ struct w49 f17085(struct p17084 *p17085, struct w49 a29017) {struct structure_type24753 *a41807; /* CS */ struct structure_type24753 *a41872; /* CS */ struct w49 t33385; struct w49 t33386; struct structure_type24753 *t33387; struct w49 t33388; struct w49 t33389; struct w49 t33390; struct w49 t33391; struct structure_type24753 *t33392; struct w49 t33393; struct w49 t33394; struct w49 t33395; struct w49 t33396; struct p17084 *t33397; struct structure_type24753 *t33398; struct structure_type24753 *t33399; char *t33400; struct w49 t33401; struct w49 t33402; unsigned t33403; struct structure_type24753 *t33404; struct structure_type24753 *t33405; struct structure_type24753 *t33406; struct w49 t33407; struct structure_type24753 *t33408; struct w49 t33409; struct w49 t33410; struct w49 t33411; struct w49 t33412; struct structure_type24753 *t33413; struct structure_type24753 *t33414; struct w49 t33415; struct w61020 t33416; struct w49 t33417; struct w49 t33418; struct w49 t33419; struct w49 t33420; struct structure_type24753 *t33421; struct w49 t33422; struct w49 t33423; struct w49 t33424; struct w49 t33425; struct w49 t33426; char *t33427; struct structure_type27745 *t33428; struct w49 t33429; unsigned t33430; struct p17084 *t33431; struct structure_type24753 *t33432; struct structure_type24753 *t33433; char *t33434; struct w49 t33435; struct w49 t33436; unsigned t33437; struct w49 t33438; struct structure_type24753 *t33439; struct w61020 t33440; struct w49 t33441; struct w49 t33442; struct w49 t33443; struct w49 t33444; struct w49 t33445; struct w49 t33446; struct w49 t33447; char *t33448; struct structure_type27745 *t33449; struct w49 t33450; unsigned t33451; struct w49 t33452; struct w49 t33453; struct p17083 *t33454; struct structure_type24753 *t33455; struct structure_type24753 *t33456; char *t33457; struct w49 t33458; struct w49 t33459; unsigned t33460; struct structure_type24753 *t33461; struct structure_type24753 *t33462; struct structure_type24753 *t33463; struct w49 t33464; struct structure_type24753 *t33465; struct w49 t33466; struct w49 t33467; struct w49 t33468; struct w49 t33469; struct structure_type24753 *t33470; struct structure_type24753 *t33471; struct w49 t33472; struct w61020 t33473; struct w49 t33474; struct w49 t33475; struct w49 t33476; struct w49 t33477; struct structure_type24753 *t33478; struct w49 t33479; struct w49 t33480; struct w49 t33481; struct w49 t33482; struct w49 t33483; char *t33484; struct structure_type27745 *t33485; struct w49 t33486; unsigned t33487; struct p17083 *t33488; struct structure_type24753 *t33489; struct structure_type24753 *t33490; char *t33491; struct w49 t33492; struct w49 t33493; unsigned t33494; struct w49 t33495; struct structure_type24753 *t33496; struct w61020 t33497; struct w49 t33498; struct w49 t33499; struct w49 t33500; struct w49 t33501; struct w49 t33502; struct w49 t33503; struct w49 t33504; char *t33505; struct structure_type27745 *t33506; struct w49 t33507; unsigned t33508; struct structure_type27501 *t33509; struct structure_type24753 *t33510; unsigned t33511; struct w49 t33512; unsigned t33513; struct w49 t33514; struct w49 t33515; struct w49 t33516; struct w49 t33517; struct w49 t33518; char *t33519; struct p17084 *t33520; struct structure_type24753 *t33521; struct w49 t33522; struct structure_type24753 *t33523; struct w49 t33524; struct w49 t33525; struct w49 t33526; struct w49 t33527; struct p17084 *t33528; struct w49 t33529; struct structure_type24753 *t33530; struct w49 t33531; struct w49 t33532; struct w49 t33533; struct p17084 *t33534; struct w49 t33535; struct w49 t33536; struct w49 t33537; struct w49 t33538; struct w49 t33539; struct w49 t33540; char *t33541; struct p17083 *t33542; struct structure_type24753 *t33543; struct w49 t33544; struct structure_type24753 *t33545; struct w49 t33546; struct w49 t33547; struct w49 t33548; struct w49 t33549; struct p17083 *t33550; struct w49 t33551; struct structure_type24753 *t33552; struct w49 t33553; struct w49 t33554; struct w49 t33555; struct p17083 *t33556; struct w49 t33557; struct w49 t33558; struct w49 t33559; struct w49 t33560; struct w49 t33561; struct p17084 *p17086; struct p17084 *p17087; struct p17083 *p17089; struct p17083 *p17090; struct p17084 *p17092; struct p17084 *p17093; struct p17084 *p17094; struct p17083 *p17096; struct p17083 *p17097; struct p17083 *p17098; /* x160180 stalin.sc:22404:783672 */ /* x160179 stalin.sc:22436:784546 */ /* x160079 stalin.sc:22437:784560 */ t33509 = p17085->p17083->a29000; /* x160167 stalin.sc:22438:784569 */ /* x160123 stalin.sc:22438:784574 */ /* x160083 stalin.sc:22439:784587 */ /* x160082 stalin.sc:22439:784601 */ t33516 = p17085->a29016; /* x160081 stalin.sc:22439:784588 */ if (f7683(t33516)==FALSE_TYPE) goto l4665; /* x160090 */ /* x160089 */ t33534 = p17085; p17092 = t33534; /* x160088 stalin.sc:22439:784605 */ /* x160085 stalin.sc:22439:784614 */ t33535 = p17092->p17083->a29010; /* x160086 stalin.sc:22439:784617 */ t33536 = p17092->a29016; /* x160087 stalin.sc:22439:784620 */ t33537 = p17092->p17083->a29011; /* x160084 stalin.sc:22439:784606 */ t33514 = f14485(t33535, t33536, t33537); goto l4666; l4665: /* x160122 */ /* x160093 stalin.sc:22440:784632 */ /* x160092 stalin.sc:22440:784646 */ t33517 = p17085->a29016; /* x160091 stalin.sc:22440:784633 */ if (f7684(t33517)==FALSE_TYPE) goto l4668; /* x160102 */ /* x160101 */ t33528 = p17085; p17093 = t33528; /* x160100 stalin.sc:22440:784650 */ /* x160099 stalin.sc:22440:784665 */ /* x160096 stalin.sc:22440:784674 */ t33531 = p17093->p17083->a29010; /* x160097 stalin.sc:22440:784677 */ t33532 = p17093->a29016; /* x160098 stalin.sc:22440:784680 */ t33533 = p17093->p17083->a29011; /* x160095 stalin.sc:22440:784666 */ t33529 = f14485(t33531, t33532, t33533); /* x160094 stalin.sc:22440:784651 */ t33530 = f13549(t33529); t33514.tag = STRUCTURE_TYPE24753; t33514.value.structure_type24753 = t33530; goto l4669; l4668: /* x160121 */ /* x160105 stalin.sc:22441:784693 */ /* x160104 stalin.sc:22441:784712 */ t33518 = p17085->a29016; /* x160103 stalin.sc:22441:784694 */ if (f7687(t33518)==FALSE_TYPE) goto l4671; /* x160116 */ /* x160115 */ t33520 = p17085; p17094 = t33520; /* x160114 stalin.sc:22441:784716 */ /* x160113 stalin.sc:22441:784731 */ /* x160112 stalin.sc:22441:784736 */ /* x160109 stalin.sc:22441:784745 */ t33525 = p17094->p17083->a29010; /* x160110 stalin.sc:22441:784748 */ t33526 = p17094->a29016; /* x160111 stalin.sc:22441:784751 */ t33527 = p17094->p17083->a29011; /* x160108 stalin.sc:22441:784737 */ t33524 = f14485(t33525, t33526, t33527); /* x160107 stalin.sc:22441:784732 */ t33521 = f14286(t33524); /* x160106 stalin.sc:22441:784717 */ t33522.tag = STRUCTURE_TYPE24753; t33522.value.structure_type24753 = t33521; t33523 = f13549(t33522); t33514.tag = STRUCTURE_TYPE24753; t33514.value.structure_type24753 = t33523; goto l4672; l4671: /* x160120 */ /* x160119 */ /* x160118 stalin.sc:22442:784770 */ /* x160117 stalin.sc:22442:784771 */ /* x295745 QobiScheme.sc:166:5314 */ /* x295744 QobiScheme.sc:166:5321 */ t33519 = "This shouldn\'t happen"; /* x295743 QobiScheme.sc:166:5315 */ stalin_panic(t33519); l4672: l4669: l4666: /* x160166 stalin.sc:22443:784787 */ /* x160126 stalin.sc:22444:784800 */ /* x160125 stalin.sc:22444:784814 */ t33538 = a29017; /* x160124 stalin.sc:22444:784801 */ if (f7683(t33538)==FALSE_TYPE) goto l4674; /* x160133 */ /* x160132 */ t33556 = p17085->p17083; p17096 = t33556; /* x160131 stalin.sc:22444:784818 */ /* x160128 stalin.sc:22444:784827 */ t33557 = p17096->a29012; /* x160129 stalin.sc:22444:784830 */ t33558 = a29017; /* x160130 stalin.sc:22444:784833 */ t33559 = p17096->a29013; /* x160127 stalin.sc:22444:784819 */ t33515 = f14485(t33557, t33558, t33559); goto l4675; l4674: /* x160165 */ /* x160136 stalin.sc:22445:784845 */ /* x160135 stalin.sc:22445:784859 */ t33539 = a29017; /* x160134 stalin.sc:22445:784846 */ if (f7684(t33539)==FALSE_TYPE) goto l4677; /* x160145 */ /* x160144 */ t33550 = p17085->p17083; p17097 = t33550; /* x160143 stalin.sc:22445:784863 */ /* x160142 stalin.sc:22445:784878 */ /* x160139 stalin.sc:22445:784887 */ t33553 = p17097->a29012; /* x160140 stalin.sc:22445:784890 */ t33554 = a29017; /* x160141 stalin.sc:22445:784893 */ t33555 = p17097->a29013; /* x160138 stalin.sc:22445:784879 */ t33551 = f14485(t33553, t33554, t33555); /* x160137 stalin.sc:22445:784864 */ t33552 = f13549(t33551); t33515.tag = STRUCTURE_TYPE24753; t33515.value.structure_type24753 = t33552; goto l4678; l4677: /* x160164 */ /* x160148 stalin.sc:22446:784906 */ /* x160147 stalin.sc:22446:784925 */ t33540 = a29017; /* x160146 stalin.sc:22446:784907 */ if (f7687(t33540)==FALSE_TYPE) goto l4680; /* x160159 */ /* x160158 */ t33542 = p17085->p17083; p17098 = t33542; /* x160157 stalin.sc:22446:784929 */ /* x160156 stalin.sc:22446:784944 */ /* x160155 stalin.sc:22446:784949 */ /* x160152 stalin.sc:22446:784958 */ t33547 = p17098->a29012; /* x160153 stalin.sc:22446:784961 */ t33548 = a29017; /* x160154 stalin.sc:22446:784964 */ t33549 = p17098->a29013; /* x160151 stalin.sc:22446:784950 */ t33546 = f14485(t33547, t33548, t33549); /* x160150 stalin.sc:22446:784945 */ t33543 = f14286(t33546); /* x160149 stalin.sc:22446:784930 */ t33544.tag = STRUCTURE_TYPE24753; t33544.value.structure_type24753 = t33543; t33545 = f13549(t33544); t33515.tag = STRUCTURE_TYPE24753; t33515.value.structure_type24753 = t33545; goto l4681; l4680: /* x160163 */ /* x160162 */ /* x160161 stalin.sc:22447:784983 */ /* x160160 stalin.sc:22447:784984 */ /* x295749 QobiScheme.sc:166:5314 */ /* x295748 QobiScheme.sc:166:5321 */ t33541 = "This shouldn\'t happen"; /* x295747 QobiScheme.sc:166:5315 */ stalin_panic(t33541); l4681: l4678: l4675: /* x160080 stalin.sc:22438:784570 */ t33510 = f13621(t33514, t33515); /* x160178 stalin.sc:22448:785003 */ /* x160175 stalin.sc:22448:785007 */ /* x160170 stalin.sc:22448:785012 */ /* x160169 stalin.sc:22448:785026 */ t33560 = p17085->a29016; /* x160168 stalin.sc:22448:785013 */ if (f7683(t33560)==FALSE_TYPE) goto l4683; /* x160173 */ /* x160172 stalin.sc:22448:785044 */ t33561 = a29017; /* x160171 stalin.sc:22448:785031 */ if (f7683(t33561)==FALSE_TYPE) goto l4683; /* x160176 stalin.sc:22449:785053 */ t33511 = NATIVE_PROCEDURE_TYPE7430; goto l4684; l4683: /* x160177 stalin.sc:22450:785070 */ t33511 = NATIVE_PROCEDURE_TYPE7429; l4684: /* x160078 stalin.sc:22436:784547 */ t33512.tag = STRUCTURE_TYPE24753; t33512.value.structure_type24753 = t33510; t33513 = (unsigned)t33511; t33386 = f15508(t33509, t33512, t33513); /* x160077 stalin.sc:22405:783695 */ /* x159914 stalin.sc:22405:783699 */ if (a703==FALSE_TYPE) goto l4650; /* x160074 stalin.sc:22406:783717 */ /* x160073 stalin.sc:22421:784134 */ /* x159997 stalin.sc:22421:784141 */ /* x159996 stalin.sc:22421:784155 */ t33452 = a29017; /* x159995 stalin.sc:22421:784142 */ if (f7684(t33452)==FALSE_TYPE) goto l4659; /* x160023 */ /* x160022 */ t33488 = p17085->p17083; p17089 = t33488; /* x160021 stalin.sc:22422:784163 */ /* x160012 stalin.sc:22422:784169 */ /* x160004 stalin.sc:22422:784175 */ /* x160001 stalin.sc:22422:784184 */ t33498 = p17089->a29012; /* x160002 stalin.sc:22422:784187 */ t33499 = a29017; /* x160003 stalin.sc:22422:784190 */ t33500 = p17089->a29013; /* x160000 stalin.sc:22422:784176 */ t33495 = f14485(t33498, t33499, t33500); /* x160011 stalin.sc:22422:784194 */ /* x160010 stalin.sc:22422:784202 */ /* x160007 stalin.sc:22422:784211 */ t33502 = p17089->a29012; /* x160008 stalin.sc:22422:784214 */ t33503 = a29017; /* x160009 stalin.sc:22422:784217 */ t33504 = p17089->a29013; /* x160006 stalin.sc:22422:784203 */ t33501 = f14485(t33502, t33503, t33504); /* x160005 stalin.sc:22422:784195 */ t33496 = f13698(t33501); /* x159999 stalin.sc:22422:784170 */ t33497.tag = STRUCTURE_TYPE24753; t33497.value.structure_type24753 = t33496; t33489 = f13598(t33495, t33497); /* x160017 stalin.sc:22423:784226 */ /* x160014 stalin.sc:22423:784241 */ t33505 = "quotient2"; /* x160015 stalin.sc:22423:784253 */ t33506 = p17089->a29001; /* x160016 stalin.sc:22423:784255 */ /* x160013 stalin.sc:22423:784227 */ t33507.tag = STRUCTURE_TYPE27745; t33507.value.structure_type27745 = t33506; t33508 = FALSE_TYPE; t33490 = f15534(t33505, t33507, t33508); /* x160019 stalin.sc:22424:784262 */ /* x160018 stalin.sc:22424:784263 */ /* x276691 stalin.sc:14693:514793 */ t33491 = ""; /* x160020 stalin.sc:22425:784274 */ /* x159998 stalin.sc:22422:784164 */ t33492.tag = STRUCTURE_TYPE24753; t33492.value.structure_type24753 = t33490; t33493.tag = STRING_TYPE; t33493.value.string_type = t33491; t33494 = FALSE_TYPE; t33391 = f13672(t33489, t33492, t33493, t33494); goto l4660; l4659: /* x160072 */ /* x160026 stalin.sc:22426:784283 */ /* x160025 stalin.sc:22426:784302 */ t33453 = a29017; /* x160024 stalin.sc:22426:784284 */ if (f7687(t33453)==FALSE_TYPE) goto l4662; /* x160067 */ /* x160066 */ t33454 = p17085->p17083; p17090 = t33454; /* x160065 stalin.sc:22427:784310 */ /* x160056 stalin.sc:22427:784316 */ /* x160055 stalin.sc:22429:784373 */ /* x160045 stalin.sc:22429:784379 */ /* x160044 stalin.sc:22429:784384 */ /* x160041 stalin.sc:22429:784393 */ t33475 = p17090->a29012; /* x160042 stalin.sc:22429:784396 */ t33476 = a29017; /* x160043 stalin.sc:22429:784399 */ t33477 = p17090->a29013; /* x160040 stalin.sc:22429:784385 */ t33474 = f14485(t33475, t33476, t33477); /* x160039 stalin.sc:22429:784380 */ t33470 = f14286(t33474); /* x160054 stalin.sc:22430:784414 */ /* x160053 stalin.sc:22430:784422 */ /* x160052 stalin.sc:22430:784427 */ /* x160049 stalin.sc:22430:784436 */ t33481 = p17090->a29012; /* x160050 stalin.sc:22430:784439 */ t33482 = a29017; /* x160051 stalin.sc:22430:784442 */ t33483 = p17090->a29013; /* x160048 stalin.sc:22430:784428 */ t33480 = f14485(t33481, t33482, t33483); /* x160047 stalin.sc:22430:784423 */ t33478 = f14286(t33480); /* x160046 stalin.sc:22430:784415 */ t33479.tag = STRUCTURE_TYPE24753; t33479.value.structure_type24753 = t33478; t33471 = f13698(t33479); /* x160038 stalin.sc:22429:784374 */ t33472.tag = STRUCTURE_TYPE24753; t33472.value.structure_type24753 = t33470; t33473.tag = STRUCTURE_TYPE24753; t33473.value.structure_type24753 = t33471; t33462 = f13598(t33472, t33473); /* x160037 stalin.sc:22428:784334 */ /* x160036 stalin.sc:22428:784343 */ /* x160035 stalin.sc:22428:784348 */ /* x160032 stalin.sc:22428:784357 */ t33467 = p17090->a29012; /* x160033 stalin.sc:22428:784360 */ t33468 = a29017; /* x160034 stalin.sc:22428:784363 */ t33469 = p17090->a29013; /* x160031 stalin.sc:22428:784349 */ t33466 = f14485(t33467, t33468, t33469); /* x160030 stalin.sc:22428:784344 */ t33465 = f14278(t33466); /* x160029 stalin.sc:22428:784335 */ t33461 = f13600(t33465); /* x160028 stalin.sc:22427:784317 */ t33464.tag = STRUCTURE_TYPE24753; t33464.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33464.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22427, 784316); out_of_memory_error();} t33464.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t33464.value.structure_type24753->s0.value.structure_type24753 = t33462; t33464.value.structure_type24753->s1.tag = NULL_TYPE; t33463 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t33463==NULL) {backtrace("stalin.sc", 22427, 784316); out_of_memory_error();} t33463->s0.tag = STRUCTURE_TYPE24753; t33463->s0.value.structure_type24753 = t33461; t33463->s1 = t33464; t33455 = f13556(t33463); /* x160061 stalin.sc:22431:784453 */ /* x160058 stalin.sc:22431:784468 */ t33484 = "quotient2"; /* x160059 stalin.sc:22431:784480 */ t33485 = p17090->a29001; /* x160060 stalin.sc:22431:784482 */ /* x160057 stalin.sc:22431:784454 */ t33486.tag = STRUCTURE_TYPE27745; t33486.value.structure_type27745 = t33485; t33487 = FALSE_TYPE; t33456 = f15534(t33484, t33486, t33487); /* x160063 stalin.sc:22432:784489 */ /* x160062 stalin.sc:22432:784490 */ /* x276693 stalin.sc:14693:514793 */ t33457 = ""; /* x160064 stalin.sc:22433:784501 */ /* x160027 stalin.sc:22427:784311 */ t33458.tag = STRUCTURE_TYPE24753; t33458.value.structure_type24753 = t33456; t33459.tag = STRING_TYPE; t33459.value.string_type = t33457; t33460 = FALSE_TYPE; t33391 = f13672(t33455, t33458, t33459, t33460); goto l4663; l4662: /* x160071 */ /* x160070 */ /* x160069 stalin.sc:22434:784515 */ /* x160068 stalin.sc:22434:784516 */ /* x276695 stalin.sc:14693:514793 */ t33391.tag = STRING_TYPE; t33391.value.string_type = ""; l4663: l4660: /* x159994 stalin.sc:22407:783738 */ /* x159918 stalin.sc:22407:783745 */ /* x159917 stalin.sc:22407:783759 */ t33395 = p17085->a29016; /* x159916 stalin.sc:22407:783746 */ if (f7684(t33395)==FALSE_TYPE) goto l4653; /* x159944 */ /* x159943 */ t33431 = p17085; p17086 = t33431; /* x159942 stalin.sc:22408:783767 */ /* x159933 stalin.sc:22408:783773 */ /* x159925 stalin.sc:22408:783779 */ /* x159922 stalin.sc:22408:783788 */ t33441 = p17086->p17083->a29010; /* x159923 stalin.sc:22408:783791 */ t33442 = p17086->a29016; /* x159924 stalin.sc:22408:783794 */ t33443 = p17086->p17083->a29011; /* x159921 stalin.sc:22408:783780 */ t33438 = f14485(t33441, t33442, t33443); /* x159932 stalin.sc:22408:783798 */ /* x159931 stalin.sc:22408:783806 */ /* x159928 stalin.sc:22408:783815 */ t33445 = p17086->p17083->a29010; /* x159929 stalin.sc:22408:783818 */ t33446 = p17086->a29016; /* x159930 stalin.sc:22408:783821 */ t33447 = p17086->p17083->a29011; /* x159927 stalin.sc:22408:783807 */ t33444 = f14485(t33445, t33446, t33447); /* x159926 stalin.sc:22408:783799 */ t33439 = f13698(t33444); /* x159920 stalin.sc:22408:783774 */ t33440.tag = STRUCTURE_TYPE24753; t33440.value.structure_type24753 = t33439; t33432 = f13598(t33438, t33440); /* x159938 stalin.sc:22409:783830 */ /* x159935 stalin.sc:22409:783845 */ t33448 = "quotient1"; /* x159936 stalin.sc:22409:783857 */ t33449 = p17086->p17083->a29001; /* x159937 stalin.sc:22409:783859 */ /* x159934 stalin.sc:22409:783831 */ t33450.tag = STRUCTURE_TYPE27745; t33450.value.structure_type27745 = t33449; t33451 = FALSE_TYPE; t33433 = f15534(t33448, t33450, t33451); /* x159940 stalin.sc:22410:783866 */ /* x159939 stalin.sc:22410:783867 */ /* x276685 stalin.sc:14693:514793 */ t33434 = ""; /* x159941 stalin.sc:22411:783878 */ /* x159919 stalin.sc:22408:783768 */ t33435.tag = STRUCTURE_TYPE24753; t33435.value.structure_type24753 = t33433; t33436.tag = STRING_TYPE; t33436.value.string_type = t33434; t33437 = FALSE_TYPE; t33390 = f13672(t33432, t33435, t33436, t33437); goto l4654; l4653: /* x159993 */ /* x159947 stalin.sc:22412:783887 */ /* x159946 stalin.sc:22412:783906 */ t33396 = p17085->a29016; /* x159945 stalin.sc:22412:783888 */ if (f7687(t33396)==FALSE_TYPE) goto l4656; /* x159988 */ /* x159987 */ t33397 = p17085; p17087 = t33397; /* x159986 stalin.sc:22413:783914 */ /* x159977 stalin.sc:22413:783920 */ /* x159976 stalin.sc:22415:783977 */ /* x159966 stalin.sc:22415:783983 */ /* x159965 stalin.sc:22415:783988 */ /* x159962 stalin.sc:22415:783997 */ t33418 = p17087->p17083->a29010; /* x159963 stalin.sc:22415:784000 */ t33419 = p17087->a29016; /* x159964 stalin.sc:22415:784003 */ t33420 = p17087->p17083->a29011; /* x159961 stalin.sc:22415:783989 */ t33417 = f14485(t33418, t33419, t33420); /* x159960 stalin.sc:22415:783984 */ t33413 = f14286(t33417); /* x159975 stalin.sc:22416:784018 */ /* x159974 stalin.sc:22416:784026 */ /* x159973 stalin.sc:22416:784031 */ /* x159970 stalin.sc:22416:784040 */ t33424 = p17087->p17083->a29010; /* x159971 stalin.sc:22416:784043 */ t33425 = p17087->a29016; /* x159972 stalin.sc:22416:784046 */ t33426 = p17087->p17083->a29011; /* x159969 stalin.sc:22416:784032 */ t33423 = f14485(t33424, t33425, t33426); /* x159968 stalin.sc:22416:784027 */ t33421 = f14286(t33423); /* x159967 stalin.sc:22416:784019 */ t33422.tag = STRUCTURE_TYPE24753; t33422.value.structure_type24753 = t33421; t33414 = f13698(t33422); /* x159959 stalin.sc:22415:783978 */ t33415.tag = STRUCTURE_TYPE24753; t33415.value.structure_type24753 = t33413; t33416.tag = STRUCTURE_TYPE24753; t33416.value.structure_type24753 = t33414; t33405 = f13598(t33415, t33416); /* x159958 stalin.sc:22414:783938 */ /* x159957 stalin.sc:22414:783947 */ /* x159956 stalin.sc:22414:783952 */ /* x159953 stalin.sc:22414:783961 */ t33410 = p17087->p17083->a29010; /* x159954 stalin.sc:22414:783964 */ t33411 = p17087->a29016; /* x159955 stalin.sc:22414:783967 */ t33412 = p17087->p17083->a29011; /* x159952 stalin.sc:22414:783953 */ t33409 = f14485(t33410, t33411, t33412); /* x159951 stalin.sc:22414:783948 */ t33408 = f14278(t33409); /* x159950 stalin.sc:22414:783939 */ t33404 = f13600(t33408); /* x159949 stalin.sc:22413:783921 */ t33407.tag = STRUCTURE_TYPE24753; t33407.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33407.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22413, 783920); out_of_memory_error();} t33407.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t33407.value.structure_type24753->s0.value.structure_type24753 = t33405; t33407.value.structure_type24753->s1.tag = NULL_TYPE; t33406 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t33406==NULL) {backtrace("stalin.sc", 22413, 783920); out_of_memory_error();} t33406->s0.tag = STRUCTURE_TYPE24753; t33406->s0.value.structure_type24753 = t33404; t33406->s1 = t33407; t33398 = f13556(t33406); /* x159982 stalin.sc:22417:784057 */ /* x159979 stalin.sc:22417:784072 */ t33427 = "quotient1"; /* x159980 stalin.sc:22417:784084 */ t33428 = p17087->p17083->a29001; /* x159981 stalin.sc:22417:784086 */ /* x159978 stalin.sc:22417:784058 */ t33429.tag = STRUCTURE_TYPE27745; t33429.value.structure_type27745 = t33428; t33430 = FALSE_TYPE; t33399 = f15534(t33427, t33429, t33430); /* x159984 stalin.sc:22418:784093 */ /* x159983 stalin.sc:22418:784094 */ /* x276687 stalin.sc:14693:514793 */ t33400 = ""; /* x159985 stalin.sc:22419:784105 */ /* x159948 stalin.sc:22413:783915 */ t33401.tag = STRUCTURE_TYPE24753; t33401.value.structure_type24753 = t33399; t33402.tag = STRING_TYPE; t33402.value.string_type = t33400; t33403 = FALSE_TYPE; t33390 = f13672(t33398, t33401, t33402, t33403); goto l4657; l4656: /* x159992 */ /* x159991 */ /* x159990 stalin.sc:22420:784119 */ /* x159989 stalin.sc:22420:784120 */ /* x276689 stalin.sc:14693:514793 */ t33390.tag = STRING_TYPE; t33390.value.string_type = ""; l4657: l4654: /* x159915 stalin.sc:22406:783718 */ t33394.tag = STRUCTURE_TYPE24753; t33394.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33394.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22406, 783717); out_of_memory_error();} t33394.value.structure_type24753->s0 = t33391; t33394.value.structure_type24753->s1.tag = NULL_TYPE; a41872 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41872==NULL) {backtrace("stalin.sc", 22406, 783717); out_of_memory_error();} a41872->s0 = t33390; a41872->s1 = t33394; /* x301600 stalin.sc:14400:506485 */ /* x301599 stalin.sc:14400:506503 */ t33392 = a41872; /* x301598 stalin.sc:14400:506486 */ t33393.tag = STRUCTURE_TYPE24753; t33393.value.structure_type24753 = t33392; t33385 = f13492(t33393); goto l4651; l4650: /* x160076 stalin.sc:22435:784530 */ /* x160075 stalin.sc:22435:784531 */ /* x276697 stalin.sc:14693:514793 */ t33385.tag = STRING_TYPE; t33385.value.string_type = ""; l4651: /* x159913 stalin.sc:22404:783673 */ t33389.tag = STRUCTURE_TYPE24753; t33389.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33389.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22404, 783672); out_of_memory_error();} t33389.value.structure_type24753->s0 = t33386; t33389.value.structure_type24753->s1.tag = NULL_TYPE; a41807 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41807==NULL) {backtrace("stalin.sc", 22404, 783672); out_of_memory_error();} a41807->s0 = t33385; a41807->s1 = t33389; /* x301340 stalin.sc:14400:506485 */ /* x301339 stalin.sc:14400:506503 */ t33387 = a41807; /* x301338 stalin.sc:14400:506486 */ t33388.tag = STRUCTURE_TYPE24753; t33388.value.structure_type24753 = t33387; return f13492(t33388);} /* [inside top level 17084] */ struct w49 f17084(void) {struct p17083 *p17084 = d17084; struct w49 a29016 = b29016; /* U1 */ struct w49 t33562; struct structure_type27501 *t33563; struct w49 t33564; struct p17084 *t33565; struct p17083 *t33566; struct p17084 *e17084; e17084 = (struct p17084 *)GC_malloc(sizeof(struct p17084)); if (e17084==NULL) {backtrace("stalin.sc", 22397, 783584); out_of_memory_error();} e17084->p17083 = p17084; e17084->a29016 = a29016; /* x160188 stalin.sc:22398:783600 */ /* x159909 stalin.sc:22399:783617 */ /* x159910 stalin.sc:22400:783634 */ t33562 = p17084->a29013; /* x159911 stalin.sc:22401:783641 */ t33563 = p17084->a29000; /* x159912 stalin.sc:22402:783647 */ t33564 = p17084->a29012; /* x160181 stalin.sc:22403:783654 */ t33565 = e17084; /* x160187 stalin.sc:22451:785091 */ t33566 = p17084; /* x159908 stalin.sc:22398:783601 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t33562; b26113 = t33563; b26114 = t33564; b26115.tag = NATIVE_PROCEDURE_TYPE21173; b26115.value.native_procedure_type21173 = t33565; b26116.tag = NATIVE_PROCEDURE_TYPE21172; b26116.value.native_procedure_type21172 = t33566; return f14692();} /* [inside top level 17071] */ struct structure_type24753 *f17071(void) {struct structure_type24753 *a34985; /* OBJS */ struct w49 t33567; /* x159824 stalin.sc:22380:783096 */ /* x159823 stalin.sc:22380:783115 */ /* x159822 stalin.sc:22380:783102 */ /* x159821 stalin.sc:22380:783097 */ t33567.tag = STRUCTURE_TYPE24753; t33567.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33567.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22380, 783096); out_of_memory_error();} t33567.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7426; t33567.value.structure_type24753->s1.tag = NULL_TYPE; a34985 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34985==NULL) {backtrace("stalin.sc", 22380, 783096); out_of_memory_error();} a34985->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34985->s1 = t33567; /* x271977 */ return a34985;} /* [inside top level 17070] */ struct structure_type24753 *f17070(void) {struct structure_type24753 *a35066; /* OBJS */ struct w49 t33568; /* x159819 stalin.sc:22379:783062 */ /* x159818 stalin.sc:22379:783081 */ /* x159817 stalin.sc:22379:783068 */ /* x159816 stalin.sc:22379:783063 */ t33568.tag = STRUCTURE_TYPE24753; t33568.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33568.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22379, 783062); out_of_memory_error();} t33568.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7426; t33568.value.structure_type24753->s1.tag = NULL_TYPE; a35066 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35066==NULL) {backtrace("stalin.sc", 22379, 783062); out_of_memory_error();} a35066->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35066->s1 = t33568; /* x272139 */ return a35066;} /* [inside top level 17069] */ struct p16287 *f17069(void) {unsigned t33569; unsigned t33570; /* x159814 stalin.sc:22378:783001 */ /* x159812 stalin.sc:22378:783034 */ /* x159813 stalin.sc:22378:783047 */ /* x159811 stalin.sc:22378:783002 */ t33569 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t33570 = (unsigned)NATIVE_PROCEDURE_TYPE7426; return f16287(t33569, t33570);} /* [inside top level 17064] */ struct structure_type24753 *f17064(struct w49 a28965, struct w49 a28966, struct w49 a28967, struct w49 a28968) {struct w49 a25845; /* C1 */ struct w49 a25846; /* C2 */ struct w49 a25847; /* C1 */ struct w49 a25848; /* C2 */ struct w49 a25849; /* C1 */ struct w49 a25850; /* C2 */ struct w49 t33571; struct w49 t33572; struct w49 t33573; struct w49 t33574; struct w49 t33575; struct w49 t33576; struct w49 t33577; struct w49 t33578; char *t33579; struct w49 t33580; struct w49 t33581; struct w49 t33582; struct w12224 t33583; struct w49 t33584; struct w49 t33585; struct w49 t33586; struct w49 t33587; char *t33588; struct w49 t33589; struct w49 t33590; struct w49 t33591; struct w12224 t33592; struct w49 t33593; struct w49 t33594; struct w49 t33595; char *t33596; struct w49 t33597; struct w49 t33598; struct w49 t33599; struct w12224 t33600; struct w49 t33601; struct structure_type24753 *t33602; struct structure_type24753 *t33603; struct w49 t33604; struct w49 t33605; struct w49 t33606; struct w49 t33607; /* x159795 stalin.sc:22365:782555 */ /* x159750 stalin.sc:22366:782563 */ /* x159745 stalin.sc:22366:782568 */ /* x159744 stalin.sc:22366:782582 */ t33571 = a28966; /* x159743 stalin.sc:22366:782569 */ if (f7683(t33571)==FALSE_TYPE) goto l4687; /* x159748 */ /* x159747 stalin.sc:22366:782600 */ t33572 = a28968; /* x159746 stalin.sc:22366:782587 */ if (f7683(t33572)==FALSE_TYPE) goto l4687; /* x159760 */ /* x159759 */ /* x159758 stalin.sc:22367:782607 */ /* x159754 stalin.sc:22367:782612 */ /* x159753 stalin.sc:22367:782627 */ t33606 = a28965; /* x159752 stalin.sc:22367:782613 */ t33602 = f13550(t33606); /* x159757 stalin.sc:22367:782631 */ /* x159756 stalin.sc:22367:782646 */ t33607 = a28967; /* x159755 stalin.sc:22367:782632 */ t33603 = f13550(t33607); /* x159751 stalin.sc:22367:782608 */ t33604.tag = STRUCTURE_TYPE24753; t33604.value.structure_type24753 = t33602; t33605.tag = STRUCTURE_TYPE24753; t33605.value.structure_type24753 = t33603; return f13621(t33604, t33605); l4687: /* x159794 */ /* x159763 stalin.sc:22368:782654 */ /* x159762 stalin.sc:22368:782673 */ t33573 = a28966; /* x159761 stalin.sc:22368:782655 */ if (f7687(t33573)==FALSE_TYPE) goto l4690; /* x159777 */ /* x159776 */ /* x159775 stalin.sc:22369:782679 */ /* x159766 stalin.sc:22369:782683 */ /* x159765 stalin.sc:22369:782702 */ t33585 = a28968; /* x159764 stalin.sc:22369:782684 */ if (f7687(t33585)==FALSE_TYPE) goto l4694; /* x159770 stalin.sc:22369:782706 */ /* x159768 stalin.sc:22369:782718 */ t33594 = a28965; /* x159769 stalin.sc:22369:782721 */ t33595 = a28967; /* x159767 stalin.sc:22369:782707 */ a25845 = t33594; a25846 = t33595; /* x129472 stalin.sc:16138:561913 */ /* x129471 stalin.sc:16138:561935 */ t33598 = a25846; /* x129470 stalin.sc:16138:561932 */ t33597 = a25845; /* x129469 stalin.sc:16138:561921 */ t33596 = "DIVIDECC"; /* x129468 stalin.sc:16138:561914 */ t33599.tag = STRING_TYPE; t33599.value.string_type = t33596; t33601.tag = STRUCTURE_TYPE24753; t33601.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33601.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16138, 561913); out_of_memory_error();} t33601.value.structure_type24753->s0 = t33598; t33601.value.structure_type24753->s1.tag = NULL_TYPE; t33600.tag = STRUCTURE_TYPE24753; t33600.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33600.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16138, 561913); out_of_memory_error();} t33600.value.structure_type24753->s0 = t33597; t33600.value.structure_type24753->s1 = t33601; return f13543(t33599, t33600); l4694: /* x159774 stalin.sc:22369:782725 */ /* x159772 stalin.sc:22369:782737 */ t33586 = a28965; /* x159773 stalin.sc:22369:782740 */ t33587 = a28967; /* x159771 stalin.sc:22369:782726 */ a25847 = t33586; a25848 = t33587; /* x129479 stalin.sc:16140:561968 */ /* x129478 stalin.sc:16140:561990 */ t33590 = a25848; /* x129477 stalin.sc:16140:561987 */ t33589 = a25847; /* x129476 stalin.sc:16140:561976 */ t33588 = "DIVIDECR"; /* x129475 stalin.sc:16140:561969 */ t33591.tag = STRING_TYPE; t33591.value.string_type = t33588; t33593.tag = STRUCTURE_TYPE24753; t33593.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33593.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16140, 561968); out_of_memory_error();} t33593.value.structure_type24753->s0 = t33590; t33593.value.structure_type24753->s1.tag = NULL_TYPE; t33592.tag = STRUCTURE_TYPE24753; t33592.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33592.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16140, 561968); out_of_memory_error();} t33592.value.structure_type24753->s0 = t33589; t33592.value.structure_type24753->s1 = t33593; return f13543(t33591, t33592); l4690: /* x159793 */ /* x159780 stalin.sc:22370:782748 */ /* x159779 stalin.sc:22370:782767 */ t33574 = a28968; /* x159778 stalin.sc:22370:782749 */ if (f7687(t33574)==FALSE_TYPE) goto l4692; /* x159786 */ /* x159785 */ /* x159784 stalin.sc:22370:782771 */ /* x159782 stalin.sc:22370:782783 */ t33577 = a28965; /* x159783 stalin.sc:22370:782786 */ t33578 = a28967; /* x159781 stalin.sc:22370:782772 */ a25849 = t33577; a25850 = t33578; /* x129486 stalin.sc:16142:562023 */ /* x129485 stalin.sc:16142:562045 */ t33581 = a25850; /* x129484 stalin.sc:16142:562042 */ t33580 = a25849; /* x129483 stalin.sc:16142:562031 */ t33579 = "DIVIDERC"; /* x129482 stalin.sc:16142:562024 */ t33582.tag = STRING_TYPE; t33582.value.string_type = t33579; t33584.tag = STRUCTURE_TYPE24753; t33584.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33584.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16142, 562023); out_of_memory_error();} t33584.value.structure_type24753->s0 = t33581; t33584.value.structure_type24753->s1.tag = NULL_TYPE; t33583.tag = STRUCTURE_TYPE24753; t33583.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33583.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16142, 562023); out_of_memory_error();} t33583.value.structure_type24753->s0 = t33580; t33583.value.structure_type24753->s1 = t33584; return f13543(t33582, t33583); l4692: /* x159792 */ /* x159791 */ /* x159790 stalin.sc:22371:782798 */ /* x159788 stalin.sc:22371:782803 */ t33575 = a28965; /* x159789 stalin.sc:22371:782806 */ t33576 = a28967; /* x159787 stalin.sc:22371:782799 */ return f13621(t33575, t33576);} /* [inside top level 17062] */ char *f17062(struct w49 a28962, struct w49 a28963) {struct w49 t33608; struct w49 t33609; /* x159741 stalin.sc:22359:782348 */ /* x159738 stalin.sc:22359:782352 */ /* x159737 stalin.sc:22359:782356 */ /* x159736 stalin.sc:22359:782375 */ t33608 = a28962; /* x159735 stalin.sc:22359:782357 */ if (!(f7687(t33608)==FALSE_TYPE)) goto l4695; /* x159732 */ /* x159731 stalin.sc:22359:782398 */ t33609 = a28963; /* x159730 stalin.sc:22359:782380 */ if (f7687(t33609)==FALSE_TYPE) goto l4696; l4695: /* x159739 stalin.sc:22362:782491 */ return a1963; l4696: /* x159740 stalin.sc:22363:782509 */ return a1966;} /* [inside top level 17061] */ struct structure_type24753 *f17061(struct p17056 *p17061, unsigned a28961) {char *t33610; struct structure_type27745 *t33611; unsigned t33612; struct w49 t33613; /* x159719 stalin.sc:22355:782233 */ /* x159716 stalin.sc:22355:782248 */ t33610 = "divide"; /* x159717 stalin.sc:22355:782257 */ t33611 = p17061->a28945; /* x159718 stalin.sc:22355:782259 */ t33612 = a28961; /* x159715 stalin.sc:22355:782234 */ t33613.tag = STRUCTURE_TYPE27745; t33613.value.structure_type27745 = t33611; return f15534(t33610, t33613, t33612);} /* [inside top level 17057] */ struct w49 f17057(struct p17056 *p17057, struct w49 a28960) {struct w49 a25844; /* C */ struct w49 t33614; struct w49 t33615; char *t33616; struct p17056 *t33617; struct structure_type27501 *t33618; struct structure_type24753 *t33619; struct w49 t33620; unsigned t33621; struct w49 t33622; char *t33623; struct w49 t33624; struct w49 t33625; struct w12224 t33626; struct w49 t33627; struct w49 t33628; struct w49 t33629; struct p17056 *t33630; struct structure_type27501 *t33631; struct structure_type24753 *t33632; struct w49 t33633; unsigned t33634; char *t33635; struct w49 t33636; struct w49 t33637; struct w49 t33638; struct w49 t33639; struct w49 t33640; struct p17056 *p17058; struct p17056 *p17059; /* x159713 stalin.sc:22350:781989 */ /* x159676 stalin.sc:22350:781996 */ /* x159675 stalin.sc:22350:782025 */ t33614 = a28960; /* x159674 stalin.sc:22350:781997 */ if (f7685(t33614)==FALSE_TYPE) goto l4699; /* x159691 */ /* x159690 */ t33630 = p17057; p17058 = t33630; /* x159689 stalin.sc:22351:782036 */ /* x159678 stalin.sc:22351:782043 */ t33631 = p17058->a28944; /* x159687 stalin.sc:22351:782045 */ /* x159681 stalin.sc:22351:782050 */ /* x159680 stalin.sc:22351:782051 */ /* x122975 stalin.sc:14564:511291 */ t33635 = "1.0"; /* x159686 stalin.sc:22351:782058 */ /* x159683 stalin.sc:22351:782067 */ t33638 = p17058->a28954; /* x159684 stalin.sc:22351:782070 */ t33639 = a28960; /* x159685 stalin.sc:22351:782073 */ t33640 = p17058->a28955; /* x159682 stalin.sc:22351:782059 */ t33636 = f14485(t33638, t33639, t33640); /* x159679 stalin.sc:22351:782046 */ t33637.tag = STRING_TYPE; t33637.value.string_type = t33635; t33632 = f13621(t33637, t33636); /* x159688 stalin.sc:22351:782078 */ /* x159677 stalin.sc:22351:782037 */ t33633.tag = STRUCTURE_TYPE24753; t33633.value.structure_type24753 = t33632; t33634 = (unsigned)NATIVE_PROCEDURE_TYPE7429; return f15508(t33631, t33633, t33634); l4699: /* x159712 */ /* x159694 stalin.sc:22352:782100 */ /* x159693 stalin.sc:22352:782119 */ t33615 = a28960; /* x159692 stalin.sc:22352:782101 */ if (f7687(t33615)==FALSE_TYPE) goto l4701; /* x159707 */ /* x159706 */ t33617 = p17057; p17059 = t33617; /* x159705 stalin.sc:22353:782130 */ /* x159696 stalin.sc:22353:782137 */ t33618 = p17059->a28944; /* x159703 stalin.sc:22353:782139 */ /* x159702 stalin.sc:22353:782149 */ /* x159699 stalin.sc:22353:782158 */ t33627 = p17059->a28954; /* x159700 stalin.sc:22353:782161 */ t33628 = a28960; /* x159701 stalin.sc:22353:782164 */ t33629 = p17059->a28955; /* x159698 stalin.sc:22353:782150 */ t33622 = f14485(t33627, t33628, t33629); /* x159697 stalin.sc:22353:782140 */ a25844 = t33622; /* x129465 stalin.sc:16136:561864 */ /* x129464 stalin.sc:16136:561881 */ t33624 = a25844; /* x129463 stalin.sc:16136:561872 */ t33623 = "RECIPC"; /* x129462 stalin.sc:16136:561865 */ t33625.tag = STRING_TYPE; t33625.value.string_type = t33623; t33626.tag = STRUCTURE_TYPE24753; t33626.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33626.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16136, 561864); out_of_memory_error();} t33626.value.structure_type24753->s0 = t33624; t33626.value.structure_type24753->s1.tag = NULL_TYPE; t33619 = f13543(t33625, t33626); /* x159704 stalin.sc:22353:782169 */ /* x159695 stalin.sc:22353:782131 */ t33620.tag = STRUCTURE_TYPE24753; t33620.value.structure_type24753 = t33619; t33621 = (unsigned)NATIVE_PROCEDURE_TYPE7427; return f15508(t33618, t33620, t33621); l4701: /* x159711 */ /* x159710 */ /* x159709 stalin.sc:22354:782201 */ /* x159708 stalin.sc:22354:782202 */ /* x295761 QobiScheme.sc:166:5314 */ /* x295760 QobiScheme.sc:166:5321 */ t33616 = "This shouldn\'t happen"; /* x295759 QobiScheme.sc:166:5315 */ stalin_panic(t33616);} /* [inside top level 17043] */ struct w12224 f17043(int a28922) {int t33641; struct w227957 t33642; struct w49 t33643; /* x159612 stalin.sc:22334:781523 */ /* x159610 stalin.sc:22334:781530 */ /* x159611 stalin.sc:22334:781556 */ t33641 = a28922; /* x159608 stalin.sc:22334:781524 */ t33642.tag = NATIVE_PROCEDURE_TYPE22480; t33643.tag = FIXNUM_TYPE; t33643.value.fixnum_type = t33641; return f1149(t33642, t33643);} /* [inside top level 17041] */ struct w12224 f17041(int a28917) {int t33644; struct w227957 t33645; struct w49 t33646; /* x159606 stalin.sc:22333:781486 */ /* x159604 stalin.sc:22333:781493 */ /* x159605 stalin.sc:22333:781519 */ t33644 = a28917; /* x159602 stalin.sc:22333:781487 */ t33645.tag = NATIVE_PROCEDURE_TYPE22449; t33646.tag = FIXNUM_TYPE; t33646.value.fixnum_type = t33644; return f1149(t33645, t33646);} /* [inside top level 17032] */ struct w49 f17032(struct p17017 *p17032, struct w49 a28907, struct w49 a28908, struct w49 a28909, struct w49 a28910) {struct w49 r17032; struct w49 a25832; /* C1 */ struct w49 a25833; /* C2 */ struct w49 a25834; /* C1 */ struct w49 a25835; /* C2 */ struct w49 a25836; /* C1 */ struct w49 a25837; /* C2 */ struct w49 t33647; struct w49 t33648; struct w49 t33649; struct w49 t33650; struct w49 t33651; struct w49 t33652; struct w49 t33653; struct structure_type24753 *t33654; struct w49 t33655; struct w49 t33656; char *t33657; struct w49 t33658; struct w49 t33659; struct w49 t33660; struct w12224 t33661; struct structure_type24753 *t33662; struct w49 t33663; struct w49 t33664; struct w49 t33665; struct w49 t33666; char *t33667; struct w49 t33668; struct w49 t33669; struct w49 t33670; struct w12224 t33671; struct structure_type24753 *t33672; struct w49 t33673; struct w49 t33674; struct w49 t33675; char *t33676; struct w49 t33677; struct w49 t33678; struct w49 t33679; struct w12224 t33680; struct structure_type24753 *t33681; struct w49 t33682; struct p17017 *t33683; struct w49 t33684; struct w49 t33685; struct w49 t33686; struct structure_type24753 *t33687; struct p17017 *t33688; struct structure_type27745 *t33689; char *t33690; struct w6315 t33691; struct p17017 *p17033; struct p17017 *p17035; /* x159582 stalin.sc:22309:780294 */ /* x159529 stalin.sc:22310:780302 */ /* x159524 stalin.sc:22310:780307 */ /* x159523 stalin.sc:22310:780321 */ t33647 = a28908; /* x159522 stalin.sc:22310:780308 */ if (f7683(t33647)==FALSE_TYPE) goto l4703; /* x159527 */ /* x159526 stalin.sc:22310:780339 */ t33648 = a28910; /* x159525 stalin.sc:22310:780326 */ if (f7683(t33648)==FALSE_TYPE) goto l4703; /* x159547 */ /* x159546 */ t33683 = p17032; p17033 = t33683; /* x159545 */ /* x159544 stalin.sc:22311:780346 */ /* x159535 stalin.sc:22311:780352 */ if (a705==FALSE_TYPE) goto l4712; /* x159541 */ /* x159540 */ t33688 = p17033; p17035 = t33688; /* x159539 stalin.sc:22312:780374 */ /* x159537 stalin.sc:22312:780389 */ t33689 = p17035->a28886; /* x159538 stalin.sc:22312:780391 */ t33690 = "Safe exact arithmetic is not (yet) implemented"; /* x159536 stalin.sc:22312:780375 */ t33691.tag = STRUCTURE_TYPE27745; t33691.value.structure_type27745 = t33689; f9707(t33691, t33690); goto l4713; l4712: /* x159543 stalin.sc:22311:780346 */ /* x159542 stalin.sc:22311:780346 */ l4713: /* x159534 */ /* x159533 stalin.sc:22313:780444 */ /* x159532 stalin.sc:22313:780452 */ t33685 = a28909; /* x159531 stalin.sc:22313:780449 */ t33684 = a28907; /* x159530 stalin.sc:22313:780445 */ t33686 = t33684; t33687 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t33687==NULL) {backtrace("stalin.sc", 22313, 780444); out_of_memory_error();} t33687->s0 = t33685; t33687->s1.tag = NULL_TYPE; return f13610(t33686, t33687); l4703: /* x159581 */ /* x159550 stalin.sc:22314:780459 */ /* x159549 stalin.sc:22314:780478 */ t33649 = a28908; /* x159548 stalin.sc:22314:780460 */ if (f7687(t33649)==FALSE_TYPE) goto l4706; /* x159564 */ /* x159563 */ /* x159562 stalin.sc:22315:780484 */ /* x159553 stalin.sc:22315:780488 */ /* x159552 stalin.sc:22315:780507 */ t33664 = a28910; /* x159551 stalin.sc:22315:780489 */ if (f7687(t33664)==FALSE_TYPE) goto l4710; /* x159557 stalin.sc:22315:780511 */ /* x159555 stalin.sc:22315:780522 */ t33674 = a28907; /* x159556 stalin.sc:22315:780525 */ t33675 = a28909; /* x159554 stalin.sc:22315:780512 */ a25832 = t33674; a25833 = t33675; /* x129424 stalin.sc:16124:561551 */ /* x129423 stalin.sc:16124:561572 */ t33678 = a25833; /* x129422 stalin.sc:16124:561569 */ t33677 = a25832; /* x129421 stalin.sc:16124:561559 */ t33676 = "MINUSCC"; /* x129420 stalin.sc:16124:561552 */ t33679.tag = STRING_TYPE; t33679.value.string_type = t33676; t33682.tag = STRUCTURE_TYPE24753; t33682.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33682.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16124, 561551); out_of_memory_error();} t33682.value.structure_type24753->s0 = t33678; t33682.value.structure_type24753->s1.tag = NULL_TYPE; t33680.tag = STRUCTURE_TYPE24753; t33680.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33680.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16124, 561551); out_of_memory_error();} t33680.value.structure_type24753->s0 = t33677; t33680.value.structure_type24753->s1 = t33682; t33681 = f13543(t33679, t33680); r17032.tag = STRUCTURE_TYPE24753; r17032.value.structure_type24753 = t33681; return r17032; l4710: /* x159561 stalin.sc:22315:780529 */ /* x159559 stalin.sc:22315:780540 */ t33665 = a28907; /* x159560 stalin.sc:22315:780543 */ t33666 = a28909; /* x159558 stalin.sc:22315:780530 */ a25834 = t33665; a25835 = t33666; /* x129431 stalin.sc:16126:561604 */ /* x129430 stalin.sc:16126:561625 */ t33669 = a25835; /* x129429 stalin.sc:16126:561622 */ t33668 = a25834; /* x129428 stalin.sc:16126:561612 */ t33667 = "MINUSCR"; /* x129427 stalin.sc:16126:561605 */ t33670.tag = STRING_TYPE; t33670.value.string_type = t33667; t33673.tag = STRUCTURE_TYPE24753; t33673.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33673.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16126, 561604); out_of_memory_error();} t33673.value.structure_type24753->s0 = t33669; t33673.value.structure_type24753->s1.tag = NULL_TYPE; t33671.tag = STRUCTURE_TYPE24753; t33671.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33671.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16126, 561604); out_of_memory_error();} t33671.value.structure_type24753->s0 = t33668; t33671.value.structure_type24753->s1 = t33673; t33672 = f13543(t33670, t33671); r17032.tag = STRUCTURE_TYPE24753; r17032.value.structure_type24753 = t33672; return r17032; l4706: /* x159580 */ /* x159567 stalin.sc:22316:780551 */ /* x159566 stalin.sc:22316:780570 */ t33650 = a28910; /* x159565 stalin.sc:22316:780552 */ if (f7687(t33650)==FALSE_TYPE) goto l4708; /* x159573 */ /* x159572 */ /* x159571 stalin.sc:22316:780574 */ /* x159569 stalin.sc:22316:780585 */ t33655 = a28907; /* x159570 stalin.sc:22316:780588 */ t33656 = a28909; /* x159568 stalin.sc:22316:780575 */ a25836 = t33655; a25837 = t33656; /* x129438 stalin.sc:16128:561657 */ /* x129437 stalin.sc:16128:561678 */ t33659 = a25837; /* x129436 stalin.sc:16128:561675 */ t33658 = a25836; /* x129435 stalin.sc:16128:561665 */ t33657 = "MINUSRC"; /* x129434 stalin.sc:16128:561658 */ t33660.tag = STRING_TYPE; t33660.value.string_type = t33657; t33663.tag = STRUCTURE_TYPE24753; t33663.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33663.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16128, 561657); out_of_memory_error();} t33663.value.structure_type24753->s0 = t33659; t33663.value.structure_type24753->s1.tag = NULL_TYPE; t33661.tag = STRUCTURE_TYPE24753; t33661.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33661.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16128, 561657); out_of_memory_error();} t33661.value.structure_type24753->s0 = t33658; t33661.value.structure_type24753->s1 = t33663; t33662 = f13543(t33660, t33661); r17032.tag = STRUCTURE_TYPE24753; r17032.value.structure_type24753 = t33662; return r17032; l4708: /* x159579 */ /* x159578 */ /* x159577 stalin.sc:22317:780600 */ /* x159576 stalin.sc:22317:780608 */ t33652 = a28909; /* x159575 stalin.sc:22317:780605 */ t33651 = a28907; /* x159574 stalin.sc:22317:780601 */ t33653 = t33651; t33654 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t33654==NULL) {backtrace("stalin.sc", 22317, 780600); out_of_memory_error();} t33654->s0 = t33652; t33654->s1.tag = NULL_TYPE; return f13610(t33653, t33654);} /* [inside top level 17027] */ char *f17027(struct w49 a28904, struct w49 a28905) {struct w49 t33692; struct w49 t33693; struct w49 t33694; struct w49 t33695; /* x159520 stalin.sc:22305:780103 */ /* x159498 stalin.sc:22305:780110 */ /* x159493 stalin.sc:22305:780115 */ /* x159492 stalin.sc:22305:780129 */ t33692 = a28904; /* x159491 stalin.sc:22305:780116 */ if (f7683(t33692)==FALSE_TYPE) goto l4715; /* x159496 */ /* x159495 stalin.sc:22305:780147 */ t33693 = a28905; /* x159494 stalin.sc:22305:780134 */ if (f7683(t33693)==FALSE_TYPE) goto l4715; /* x159501 */ /* x159500 */ /* x159499 stalin.sc:22305:780152 */ return a1969; l4715: /* x159519 */ /* x159512 stalin.sc:22306:780169 */ /* x159511 stalin.sc:22306:780173 */ /* x159510 stalin.sc:22306:780192 */ t33694 = a28904; /* x159509 stalin.sc:22306:780174 */ if (!(f7687(t33694)==FALSE_TYPE)) goto l4717; /* x159506 */ /* x159505 stalin.sc:22306:780215 */ t33695 = a28905; /* x159504 stalin.sc:22306:780197 */ if (f7687(t33695)==FALSE_TYPE) goto l4718; l4717: /* x159515 */ /* x159514 */ /* x159513 stalin.sc:22306:780220 */ return a1963; l4718: /* x159518 */ /* x159517 */ /* x159516 stalin.sc:22307:780247 */ return a1966;} /* [inside top level 17026] */ struct structure_type24753 *f17026(struct p17017 *p17026, unsigned a28903) {char *t33696; struct structure_type27745 *t33697; unsigned t33698; struct w49 t33699; /* x159482 stalin.sc:22300:779909 */ /* x159479 stalin.sc:22300:779924 */ t33696 = "minus"; /* x159480 stalin.sc:22300:779932 */ t33697 = p17026->a28886; /* x159481 stalin.sc:22300:779934 */ t33698 = a28903; /* x159478 stalin.sc:22300:779910 */ t33699.tag = STRUCTURE_TYPE27745; t33699.value.structure_type27745 = t33697; return f15534(t33696, t33699, t33698);} /* [inside top level 17018] */ struct w49 f17018(struct p17017 *p17018, struct w49 a28901) {struct w49 a25831; /* C */ struct w49 t33700; struct w49 t33701; struct w49 t33702; char *t33703; struct p17017 *t33704; struct structure_type27501 *t33705; struct structure_type24753 *t33706; struct w49 t33707; unsigned t33708; struct w49 t33709; char *t33710; struct w49 t33711; struct w49 t33712; struct w12224 t33713; struct w49 t33714; struct w49 t33715; struct w49 t33716; struct p17017 *t33717; struct structure_type27501 *t33718; struct w49 t33719; unsigned t33720; struct w49 t33721; struct w49 t33722; struct structure_type24753 *t33723; struct w49 t33724; struct w49 t33725; struct w49 t33726; struct p17017 *t33727; struct p17017 *t33728; struct structure_type27501 *t33729; struct w49 t33730; unsigned t33731; struct w49 t33732; struct w49 t33733; struct structure_type24753 *t33734; struct w49 t33735; struct w49 t33736; struct w49 t33737; struct p17017 *t33738; struct structure_type27745 *t33739; char *t33740; struct w6315 t33741; struct p17017 *p17019; struct p17017 *p17020; struct p17017 *p17021; struct p17017 *p17023; struct p17017 *p17024; /* x159476 stalin.sc:22291:779542 */ /* x159412 stalin.sc:22292:779550 */ /* x159411 stalin.sc:22292:779564 */ t33700 = a28901; /* x159410 stalin.sc:22292:779551 */ if (f7683(t33700)==FALSE_TYPE) goto l4721; /* x159437 */ /* x159436 */ t33727 = p17018; p17019 = t33727; /* x159435 */ /* x159434 stalin.sc:22293:779570 */ /* x159425 stalin.sc:22293:779576 */ if (a705==FALSE_TYPE) goto l4727; /* x159431 */ /* x159430 */ t33738 = p17019; p17021 = t33738; /* x159429 stalin.sc:22294:779598 */ /* x159427 stalin.sc:22294:779613 */ t33739 = p17021->a28886; /* x159428 stalin.sc:22294:779615 */ t33740 = "Safe exact arithmetic is not (yet) implemented"; /* x159426 stalin.sc:22294:779599 */ t33741.tag = STRUCTURE_TYPE27745; t33741.value.structure_type27745 = t33739; f9707(t33741, t33740); goto l4728; l4727: /* x159433 stalin.sc:22293:779570 */ /* x159432 stalin.sc:22293:779570 */ l4728: /* x159424 */ t33728 = p17019; p17020 = t33728; /* x159423 stalin.sc:22295:779668 */ /* x159414 stalin.sc:22295:779675 */ t33729 = p17020->a28885; /* x159421 stalin.sc:22295:779677 */ /* x159420 stalin.sc:22295:779682 */ /* x159417 stalin.sc:22295:779691 */ t33735 = p17020->a28895; /* x159418 stalin.sc:22295:779694 */ t33736 = a28901; /* x159419 stalin.sc:22295:779697 */ t33737 = p17020->a28896; /* x159416 stalin.sc:22295:779683 */ t33732 = f14485(t33735, t33736, t33737); /* x159415 stalin.sc:22295:779678 */ t33733 = t33732; t33734 = (struct structure_type24753 *)NULL_TYPE; t33730 = f13610(t33733, t33734); /* x159422 stalin.sc:22295:779702 */ /* x159413 stalin.sc:22295:779669 */ t33731 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t33729, t33730, t33731); l4721: /* x159475 */ /* x159440 stalin.sc:22296:779719 */ /* x159439 stalin.sc:22296:779733 */ t33701 = a28901; /* x159438 stalin.sc:22296:779720 */ if (f7684(t33701)==FALSE_TYPE) goto l4723; /* x159453 */ /* x159452 */ t33717 = p17018; p17023 = t33717; /* x159451 stalin.sc:22296:779737 */ /* x159442 stalin.sc:22296:779744 */ t33718 = p17023->a28885; /* x159449 stalin.sc:22296:779746 */ /* x159448 stalin.sc:22296:779751 */ /* x159445 stalin.sc:22296:779760 */ t33724 = p17023->a28895; /* x159446 stalin.sc:22296:779763 */ t33725 = a28901; /* x159447 stalin.sc:22296:779766 */ t33726 = p17023->a28896; /* x159444 stalin.sc:22296:779752 */ t33721 = f14485(t33724, t33725, t33726); /* x159443 stalin.sc:22296:779747 */ t33722 = t33721; t33723 = (struct structure_type24753 *)NULL_TYPE; t33719 = f13610(t33722, t33723); /* x159450 stalin.sc:22296:779771 */ /* x159441 stalin.sc:22296:779738 */ t33720 = (unsigned)NATIVE_PROCEDURE_TYPE7429; return f15508(t33718, t33719, t33720); l4723: /* x159474 */ /* x159456 stalin.sc:22297:779788 */ /* x159455 stalin.sc:22297:779807 */ t33702 = a28901; /* x159454 stalin.sc:22297:779789 */ if (f7687(t33702)==FALSE_TYPE) goto l4725; /* x159469 */ /* x159468 */ t33704 = p17018; p17024 = t33704; /* x159467 stalin.sc:22298:779813 */ /* x159458 stalin.sc:22298:779820 */ t33705 = p17024->a28885; /* x159465 stalin.sc:22298:779822 */ /* x159464 stalin.sc:22298:779830 */ /* x159461 stalin.sc:22298:779839 */ t33714 = p17024->a28895; /* x159462 stalin.sc:22298:779842 */ t33715 = a28901; /* x159463 stalin.sc:22298:779845 */ t33716 = p17024->a28896; /* x159460 stalin.sc:22298:779831 */ t33709 = f14485(t33714, t33715, t33716); /* x159459 stalin.sc:22298:779823 */ a25831 = t33709; /* x129417 stalin.sc:16122:561505 */ /* x129416 stalin.sc:16122:561520 */ t33711 = a25831; /* x129415 stalin.sc:16122:561513 */ t33710 = "NEGC"; /* x129414 stalin.sc:16122:561506 */ t33712.tag = STRING_TYPE; t33712.value.string_type = t33710; t33713.tag = STRUCTURE_TYPE24753; t33713.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33713.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16122, 561505); out_of_memory_error();} t33713.value.structure_type24753->s0 = t33711; t33713.value.structure_type24753->s1.tag = NULL_TYPE; t33706 = f13543(t33712, t33713); /* x159466 stalin.sc:22298:779850 */ /* x159457 stalin.sc:22298:779814 */ t33707.tag = STRUCTURE_TYPE24753; t33707.value.structure_type24753 = t33706; t33708 = (unsigned)NATIVE_PROCEDURE_TYPE7427; return f15508(t33705, t33707, t33708); l4725: /* x159473 */ /* x159472 */ /* x159471 stalin.sc:22299:779877 */ /* x159470 stalin.sc:22299:779878 */ /* x295741 QobiScheme.sc:166:5314 */ /* x295740 QobiScheme.sc:166:5321 */ t33703 = "This shouldn\'t happen"; /* x295739 QobiScheme.sc:166:5315 */ stalin_panic(t33703);} /* [inside top level 17000] */ struct w12224 f17000(int a28860) {int t33742; struct w227957 t33743; struct w49 t33744; /* x159322 stalin.sc:22272:778923 */ /* x159320 stalin.sc:22272:778930 */ /* x159321 stalin.sc:22272:778956 */ t33742 = a28860; /* x159318 stalin.sc:22272:778924 */ t33743.tag = NATIVE_PROCEDURE_TYPE22479; t33744.tag = FIXNUM_TYPE; t33744.value.fixnum_type = t33742; return f1149(t33743, t33744);} /* [inside top level 16998] */ struct w12224 f16998(int a28855) {int t33745; struct w227957 t33746; struct w49 t33747; /* x159316 stalin.sc:22271:778886 */ /* x159314 stalin.sc:22271:778893 */ /* x159315 stalin.sc:22271:778919 */ t33745 = a28855; /* x159312 stalin.sc:22271:778887 */ t33746.tag = NATIVE_PROCEDURE_TYPE22450; t33747.tag = FIXNUM_TYPE; t33747.value.fixnum_type = t33745; return f1149(t33746, t33747);} /* [inside top level 16989] */ struct structure_type24753 *f16989(struct p16978 *p16989, struct w49 a28845, struct w49 a28846, struct w49 a28847, struct w49 a28848) {struct w49 a25838; /* C1 */ struct w49 a25839; /* C2 */ struct w49 a25840; /* C1 */ struct w49 a25841; /* C2 */ struct w49 a25842; /* C1 */ struct w49 a25843; /* C2 */ struct w49 t33748; struct w49 t33749; struct w49 t33750; struct w49 t33751; struct w49 t33752; struct w49 t33753; struct w49 t33754; struct structure_type24753 *t33755; struct w49 t33756; struct w49 t33757; char *t33758; struct w49 t33759; struct w49 t33760; struct w49 t33761; struct w12224 t33762; struct w49 t33763; struct w49 t33764; struct w49 t33765; struct w49 t33766; char *t33767; struct w49 t33768; struct w49 t33769; struct w49 t33770; struct w12224 t33771; struct w49 t33772; struct w49 t33773; struct w49 t33774; char *t33775; struct w49 t33776; struct w49 t33777; struct w49 t33778; struct w12224 t33779; struct w49 t33780; struct p16978 *t33781; struct w49 t33782; struct w49 t33783; struct w49 t33784; struct structure_type24753 *t33785; struct p16978 *t33786; struct structure_type27745 *t33787; char *t33788; struct w6315 t33789; struct p16978 *p16990; struct p16978 *p16992; /* x159289 stalin.sc:22257:778401 */ /* x159236 stalin.sc:22258:778414 */ /* x159231 stalin.sc:22258:778419 */ /* x159230 stalin.sc:22258:778433 */ t33748 = a28846; /* x159229 stalin.sc:22258:778420 */ if (f7683(t33748)==FALSE_TYPE) goto l4730; /* x159234 */ /* x159233 stalin.sc:22258:778451 */ t33749 = a28848; /* x159232 stalin.sc:22258:778438 */ if (f7683(t33749)==FALSE_TYPE) goto l4730; /* x159254 */ /* x159253 */ t33781 = p16989; p16990 = t33781; /* x159252 */ /* x159251 stalin.sc:22259:778463 */ /* x159242 stalin.sc:22259:778469 */ if (a705==FALSE_TYPE) goto l4739; /* x159248 */ /* x159247 */ t33786 = p16990; p16992 = t33786; /* x159246 stalin.sc:22260:778489 */ /* x159244 stalin.sc:22260:778504 */ t33787 = p16992->a28825; /* x159245 stalin.sc:22260:778506 */ t33788 = "Safe exact arithmetic is not (yet) implemented"; /* x159243 stalin.sc:22260:778490 */ t33789.tag = STRUCTURE_TYPE27745; t33789.value.structure_type27745 = t33787; f9707(t33789, t33788); goto l4740; l4739: /* x159250 stalin.sc:22259:778463 */ /* x159249 stalin.sc:22259:778463 */ l4740: /* x159241 */ /* x159240 stalin.sc:22261:778564 */ /* x159239 stalin.sc:22261:778572 */ t33783 = a28847; /* x159238 stalin.sc:22261:778569 */ t33782 = a28845; /* x159237 stalin.sc:22261:778565 */ t33784 = t33782; t33785 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t33785==NULL) {backtrace("stalin.sc", 22261, 778564); out_of_memory_error();} t33785->s0 = t33783; t33785->s1.tag = NULL_TYPE; return f13617(t33784, t33785); l4730: /* x159288 */ /* x159257 stalin.sc:22262:778584 */ /* x159256 stalin.sc:22262:778603 */ t33750 = a28846; /* x159255 stalin.sc:22262:778585 */ if (f7687(t33750)==FALSE_TYPE) goto l4733; /* x159271 */ /* x159270 */ /* x159269 stalin.sc:22263:778614 */ /* x159260 stalin.sc:22263:778618 */ /* x159259 stalin.sc:22263:778637 */ t33764 = a28848; /* x159258 stalin.sc:22263:778619 */ if (f7687(t33764)==FALSE_TYPE) goto l4737; /* x159264 stalin.sc:22263:778641 */ /* x159262 stalin.sc:22263:778652 */ t33773 = a28845; /* x159263 stalin.sc:22263:778655 */ t33774 = a28847; /* x159261 stalin.sc:22263:778642 */ a25838 = t33773; a25839 = t33774; /* x129445 stalin.sc:16130:561710 */ /* x129444 stalin.sc:16130:561731 */ t33777 = a25839; /* x129443 stalin.sc:16130:561728 */ t33776 = a25838; /* x129442 stalin.sc:16130:561718 */ t33775 = "TIMESCC"; /* x129441 stalin.sc:16130:561711 */ t33778.tag = STRING_TYPE; t33778.value.string_type = t33775; t33780.tag = STRUCTURE_TYPE24753; t33780.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33780.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16130, 561710); out_of_memory_error();} t33780.value.structure_type24753->s0 = t33777; t33780.value.structure_type24753->s1.tag = NULL_TYPE; t33779.tag = STRUCTURE_TYPE24753; t33779.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33779.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16130, 561710); out_of_memory_error();} t33779.value.structure_type24753->s0 = t33776; t33779.value.structure_type24753->s1 = t33780; return f13543(t33778, t33779); l4737: /* x159268 stalin.sc:22263:778659 */ /* x159266 stalin.sc:22263:778670 */ t33765 = a28845; /* x159267 stalin.sc:22263:778673 */ t33766 = a28847; /* x159265 stalin.sc:22263:778660 */ a25840 = t33765; a25841 = t33766; /* x129452 stalin.sc:16132:561763 */ /* x129451 stalin.sc:16132:561784 */ t33769 = a25841; /* x129450 stalin.sc:16132:561781 */ t33768 = a25840; /* x129449 stalin.sc:16132:561771 */ t33767 = "TIMESCR"; /* x129448 stalin.sc:16132:561764 */ t33770.tag = STRING_TYPE; t33770.value.string_type = t33767; t33772.tag = STRUCTURE_TYPE24753; t33772.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33772.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16132, 561763); out_of_memory_error();} t33772.value.structure_type24753->s0 = t33769; t33772.value.structure_type24753->s1.tag = NULL_TYPE; t33771.tag = STRUCTURE_TYPE24753; t33771.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33771.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16132, 561763); out_of_memory_error();} t33771.value.structure_type24753->s0 = t33768; t33771.value.structure_type24753->s1 = t33772; return f13543(t33770, t33771); l4733: /* x159287 */ /* x159274 stalin.sc:22264:778686 */ /* x159273 stalin.sc:22264:778705 */ t33751 = a28848; /* x159272 stalin.sc:22264:778687 */ if (f7687(t33751)==FALSE_TYPE) goto l4735; /* x159280 */ /* x159279 */ /* x159278 stalin.sc:22264:778709 */ /* x159276 stalin.sc:22264:778720 */ t33756 = a28845; /* x159277 stalin.sc:22264:778723 */ t33757 = a28847; /* x159275 stalin.sc:22264:778710 */ a25842 = t33756; a25843 = t33757; /* x129459 stalin.sc:16134:561816 */ /* x129458 stalin.sc:16134:561837 */ t33760 = a25843; /* x129457 stalin.sc:16134:561834 */ t33759 = a25842; /* x129456 stalin.sc:16134:561824 */ t33758 = "TIMESRC"; /* x129455 stalin.sc:16134:561817 */ t33761.tag = STRING_TYPE; t33761.value.string_type = t33758; t33763.tag = STRUCTURE_TYPE24753; t33763.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33763.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16134, 561816); out_of_memory_error();} t33763.value.structure_type24753->s0 = t33760; t33763.value.structure_type24753->s1.tag = NULL_TYPE; t33762.tag = STRUCTURE_TYPE24753; t33762.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33762.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16134, 561816); out_of_memory_error();} t33762.value.structure_type24753->s0 = t33759; t33762.value.structure_type24753->s1 = t33763; return f13543(t33761, t33762); l4735: /* x159286 */ /* x159285 */ /* x159284 stalin.sc:22265:778740 */ /* x159283 stalin.sc:22265:778748 */ t33753 = a28847; /* x159282 stalin.sc:22265:778745 */ t33752 = a28845; /* x159281 stalin.sc:22265:778741 */ t33754 = t33752; t33755 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t33755==NULL) {backtrace("stalin.sc", 22265, 778740); out_of_memory_error();} t33755->s0 = t33753; t33755->s1.tag = NULL_TYPE; return f13617(t33754, t33755);} /* [inside top level 16984] */ char *f16984(struct w49 a28842, struct w49 a28843) {struct w49 t33790; struct w49 t33791; struct w49 t33792; struct w49 t33793; /* x159227 stalin.sc:22253:778218 */ /* x159205 stalin.sc:22253:778225 */ /* x159200 stalin.sc:22253:778230 */ /* x159199 stalin.sc:22253:778244 */ t33790 = a28842; /* x159198 stalin.sc:22253:778231 */ if (f7683(t33790)==FALSE_TYPE) goto l4742; /* x159203 */ /* x159202 stalin.sc:22253:778262 */ t33791 = a28843; /* x159201 stalin.sc:22253:778249 */ if (f7683(t33791)==FALSE_TYPE) goto l4742; /* x159208 */ /* x159207 */ /* x159206 stalin.sc:22253:778267 */ return a1969; l4742: /* x159226 */ /* x159219 stalin.sc:22254:778282 */ /* x159218 stalin.sc:22254:778286 */ /* x159217 stalin.sc:22254:778305 */ t33792 = a28842; /* x159216 stalin.sc:22254:778287 */ if (!(f7687(t33792)==FALSE_TYPE)) goto l4744; /* x159213 */ /* x159212 stalin.sc:22254:778328 */ t33793 = a28843; /* x159211 stalin.sc:22254:778310 */ if (f7687(t33793)==FALSE_TYPE) goto l4745; l4744: /* x159222 */ /* x159221 */ /* x159220 stalin.sc:22254:778333 */ return a1963; l4745: /* x159225 */ /* x159224 */ /* x159223 stalin.sc:22255:778358 */ return a1966;} /* [inside top level 16982] */ struct structure_type24753 *f16982(struct p16978 *p16982, unsigned a28841) {char *t33794; struct structure_type27745 *t33795; unsigned t33796; struct w49 t33797; /* x159187 stalin.sc:22247:778025 */ /* x159184 stalin.sc:22247:778040 */ t33794 = "times"; /* x159185 stalin.sc:22247:778048 */ t33795 = p16982->a28825; /* x159186 stalin.sc:22247:778050 */ t33796 = a28841; /* x159183 stalin.sc:22247:778026 */ t33797.tag = STRUCTURE_TYPE27745; t33797.value.structure_type27745 = t33795; return f15534(t33794, t33797, t33796);} /* [inside top level 16981] */ struct w49 f16981(struct p16978 *p16981, struct w49 a28840) {struct structure_type27501 *t33798; struct w49 t33799; struct w49 t33800; struct w49 t33801; struct w49 t33802; struct w49 t33803; /* x159181 stalin.sc:22246:777972 */ /* x159174 stalin.sc:22246:777984 */ t33798 = p16981->a28824; /* x159179 stalin.sc:22246:777986 */ /* x159176 stalin.sc:22246:777995 */ t33801 = p16981->a28834; /* x159177 stalin.sc:22246:777998 */ t33802 = a28840; /* x159178 stalin.sc:22246:778001 */ t33803 = p16981->a28835; /* x159175 stalin.sc:22246:777987 */ t33799 = f14485(t33801, t33802, t33803); /* x159180 stalin.sc:22246:778005 */ t33800 = a28840; /* x159173 stalin.sc:22246:777973 */ return f15499(t33798, t33799, t33800);} /* [inside top level 16959] */ struct w12224 f16959(int a28799) {int t33804; struct w227957 t33805; struct w49 t33806; /* x159063 stalin.sc:22224:777266 */ /* x159061 stalin.sc:22224:777273 */ /* x159062 stalin.sc:22224:777299 */ t33804 = a28799; /* x159059 stalin.sc:22224:777267 */ t33805.tag = NATIVE_PROCEDURE_TYPE22478; t33806.tag = FIXNUM_TYPE; t33806.value.fixnum_type = t33804; return f1149(t33805, t33806);} /* [inside top level 16957] */ struct w12224 f16957(int a28794) {int t33807; struct w227957 t33808; struct w49 t33809; /* x159057 stalin.sc:22223:777229 */ /* x159055 stalin.sc:22223:777236 */ /* x159056 stalin.sc:22223:777262 */ t33807 = a28794; /* x159053 stalin.sc:22223:777230 */ t33808.tag = NATIVE_PROCEDURE_TYPE22448; t33809.tag = FIXNUM_TYPE; t33809.value.fixnum_type = t33807; return f1149(t33808, t33809);} /* [inside top level 16948] */ struct w49 f16948(struct p16937 *p16948, struct w49 a28784, struct w49 a28785, struct w49 a28786, struct w49 a28787) {struct w49 r16948; struct w49 a25825; /* C1 */ struct w49 a25826; /* C2 */ struct w49 a25827; /* C1 */ struct w49 a25828; /* C2 */ struct w49 a25829; /* C1 */ struct w49 a25830; /* C2 */ struct w49 t33810; struct w49 t33811; struct w49 t33812; struct w49 t33813; struct w49 t33814; struct w49 t33815; struct w49 t33816; struct w49 t33817; char *t33818; struct w49 t33819; struct w49 t33820; struct w49 t33821; struct w12224 t33822; struct structure_type24753 *t33823; struct w49 t33824; struct w49 t33825; struct w49 t33826; struct w49 t33827; char *t33828; struct w49 t33829; struct w49 t33830; struct w49 t33831; struct w12224 t33832; struct structure_type24753 *t33833; struct w49 t33834; struct w49 t33835; struct w49 t33836; char *t33837; struct w49 t33838; struct w49 t33839; struct w49 t33840; struct w12224 t33841; struct structure_type24753 *t33842; struct w49 t33843; struct p16937 *t33844; struct w49 t33845; struct w49 t33846; struct p16937 *t33847; struct structure_type27745 *t33848; char *t33849; struct w6315 t33850; struct p16937 *p16949; struct p16937 *p16951; /* x159030 stalin.sc:22209:776747 */ /* x158977 stalin.sc:22210:776760 */ /* x158972 stalin.sc:22210:776765 */ /* x158971 stalin.sc:22210:776779 */ t33810 = a28785; /* x158970 stalin.sc:22210:776766 */ if (f7683(t33810)==FALSE_TYPE) goto l4748; /* x158975 */ /* x158974 stalin.sc:22210:776797 */ t33811 = a28787; /* x158973 stalin.sc:22210:776784 */ if (f7683(t33811)==FALSE_TYPE) goto l4748; /* x158995 */ /* x158994 */ t33844 = p16948; p16949 = t33844; /* x158993 */ /* x158992 stalin.sc:22211:776809 */ /* x158983 stalin.sc:22211:776815 */ if (a705==FALSE_TYPE) goto l4757; /* x158989 */ /* x158988 */ t33847 = p16949; p16951 = t33847; /* x158987 stalin.sc:22212:776835 */ /* x158985 stalin.sc:22212:776850 */ t33848 = p16951->a28764; /* x158986 stalin.sc:22212:776852 */ t33849 = "Safe exact arithmetic is not (yet) implemented"; /* x158984 stalin.sc:22212:776836 */ t33850.tag = STRUCTURE_TYPE27745; t33850.value.structure_type27745 = t33848; f9707(t33850, t33849); goto l4758; l4757: /* x158991 stalin.sc:22211:776809 */ /* x158990 stalin.sc:22211:776809 */ l4758: /* x158982 */ /* x158981 stalin.sc:22213:776910 */ /* x158979 stalin.sc:22213:776915 */ t33845 = a28784; /* x158980 stalin.sc:22213:776918 */ t33846 = a28786; /* x158978 stalin.sc:22213:776911 */ return f13609(t33845, t33846); l4748: /* x159029 */ /* x158998 stalin.sc:22214:776930 */ /* x158997 stalin.sc:22214:776949 */ t33812 = a28785; /* x158996 stalin.sc:22214:776931 */ if (f7687(t33812)==FALSE_TYPE) goto l4751; /* x159012 */ /* x159011 */ /* x159010 stalin.sc:22215:776960 */ /* x159001 stalin.sc:22215:776964 */ /* x159000 stalin.sc:22215:776983 */ t33825 = a28787; /* x158999 stalin.sc:22215:776965 */ if (f7687(t33825)==FALSE_TYPE) goto l4755; /* x159005 stalin.sc:22215:776987 */ /* x159003 stalin.sc:22215:776997 */ t33835 = a28784; /* x159004 stalin.sc:22215:777000 */ t33836 = a28786; /* x159002 stalin.sc:22215:776988 */ a25825 = t33835; a25826 = t33836; /* x129397 stalin.sc:16116:561358 */ /* x129396 stalin.sc:16116:561378 */ t33839 = a25826; /* x129395 stalin.sc:16116:561375 */ t33838 = a25825; /* x129394 stalin.sc:16116:561366 */ t33837 = "PLUSCC"; /* x129393 stalin.sc:16116:561359 */ t33840.tag = STRING_TYPE; t33840.value.string_type = t33837; t33843.tag = STRUCTURE_TYPE24753; t33843.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33843.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16116, 561358); out_of_memory_error();} t33843.value.structure_type24753->s0 = t33839; t33843.value.structure_type24753->s1.tag = NULL_TYPE; t33841.tag = STRUCTURE_TYPE24753; t33841.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33841.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16116, 561358); out_of_memory_error();} t33841.value.structure_type24753->s0 = t33838; t33841.value.structure_type24753->s1 = t33843; t33842 = f13543(t33840, t33841); r16948.tag = STRUCTURE_TYPE24753; r16948.value.structure_type24753 = t33842; return r16948; l4755: /* x159009 stalin.sc:22215:777004 */ /* x159007 stalin.sc:22215:777014 */ t33826 = a28784; /* x159008 stalin.sc:22215:777017 */ t33827 = a28786; /* x159006 stalin.sc:22215:777005 */ a25827 = t33826; a25828 = t33827; /* x129404 stalin.sc:16118:561409 */ /* x129403 stalin.sc:16118:561429 */ t33830 = a25828; /* x129402 stalin.sc:16118:561426 */ t33829 = a25827; /* x129401 stalin.sc:16118:561417 */ t33828 = "PLUSCR"; /* x129400 stalin.sc:16118:561410 */ t33831.tag = STRING_TYPE; t33831.value.string_type = t33828; t33834.tag = STRUCTURE_TYPE24753; t33834.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33834.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16118, 561409); out_of_memory_error();} t33834.value.structure_type24753->s0 = t33830; t33834.value.structure_type24753->s1.tag = NULL_TYPE; t33832.tag = STRUCTURE_TYPE24753; t33832.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33832.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16118, 561409); out_of_memory_error();} t33832.value.structure_type24753->s0 = t33829; t33832.value.structure_type24753->s1 = t33834; t33833 = f13543(t33831, t33832); r16948.tag = STRUCTURE_TYPE24753; r16948.value.structure_type24753 = t33833; return r16948; l4751: /* x159028 */ /* x159015 stalin.sc:22216:777030 */ /* x159014 stalin.sc:22216:777049 */ t33813 = a28787; /* x159013 stalin.sc:22216:777031 */ if (f7687(t33813)==FALSE_TYPE) goto l4753; /* x159021 */ /* x159020 */ /* x159019 stalin.sc:22216:777053 */ /* x159017 stalin.sc:22216:777063 */ t33816 = a28784; /* x159018 stalin.sc:22216:777066 */ t33817 = a28786; /* x159016 stalin.sc:22216:777054 */ a25829 = t33816; a25830 = t33817; /* x129411 stalin.sc:16120:561460 */ /* x129410 stalin.sc:16120:561480 */ t33820 = a25830; /* x129409 stalin.sc:16120:561477 */ t33819 = a25829; /* x129408 stalin.sc:16120:561468 */ t33818 = "PLUSRC"; /* x129407 stalin.sc:16120:561461 */ t33821.tag = STRING_TYPE; t33821.value.string_type = t33818; t33824.tag = STRUCTURE_TYPE24753; t33824.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33824.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16120, 561460); out_of_memory_error();} t33824.value.structure_type24753->s0 = t33820; t33824.value.structure_type24753->s1.tag = NULL_TYPE; t33822.tag = STRUCTURE_TYPE24753; t33822.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33822.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16120, 561460); out_of_memory_error();} t33822.value.structure_type24753->s0 = t33819; t33822.value.structure_type24753->s1 = t33824; t33823 = f13543(t33821, t33822); r16948.tag = STRUCTURE_TYPE24753; r16948.value.structure_type24753 = t33823; return r16948; l4753: /* x159027 */ /* x159026 */ /* x159025 stalin.sc:22217:777083 */ /* x159023 stalin.sc:22217:777088 */ t33814 = a28784; /* x159024 stalin.sc:22217:777091 */ t33815 = a28786; /* x159022 stalin.sc:22217:777084 */ return f13609(t33814, t33815);} /* [inside top level 16943] */ char *f16943(struct w49 a28781, struct w49 a28782) {struct w49 t33851; struct w49 t33852; struct w49 t33853; struct w49 t33854; /* x158968 stalin.sc:22205:776564 */ /* x158946 stalin.sc:22205:776571 */ /* x158941 stalin.sc:22205:776576 */ /* x158940 stalin.sc:22205:776590 */ t33851 = a28781; /* x158939 stalin.sc:22205:776577 */ if (f7683(t33851)==FALSE_TYPE) goto l4760; /* x158944 */ /* x158943 stalin.sc:22205:776608 */ t33852 = a28782; /* x158942 stalin.sc:22205:776595 */ if (f7683(t33852)==FALSE_TYPE) goto l4760; /* x158949 */ /* x158948 */ /* x158947 stalin.sc:22205:776613 */ return a1969; l4760: /* x158967 */ /* x158960 stalin.sc:22206:776628 */ /* x158959 stalin.sc:22206:776632 */ /* x158958 stalin.sc:22206:776651 */ t33853 = a28781; /* x158957 stalin.sc:22206:776633 */ if (!(f7687(t33853)==FALSE_TYPE)) goto l4762; /* x158954 */ /* x158953 stalin.sc:22206:776674 */ t33854 = a28782; /* x158952 stalin.sc:22206:776656 */ if (f7687(t33854)==FALSE_TYPE) goto l4763; l4762: /* x158963 */ /* x158962 */ /* x158961 stalin.sc:22206:776679 */ return a1963; l4763: /* x158966 */ /* x158965 */ /* x158964 stalin.sc:22207:776704 */ return a1966;} /* [inside top level 16941] */ struct structure_type24753 *f16941(struct p16937 *p16941, unsigned a28780) {char *t33855; struct structure_type27745 *t33856; unsigned t33857; struct w49 t33858; /* x158928 stalin.sc:22199:776372 */ /* x158925 stalin.sc:22199:776387 */ t33855 = "plus"; /* x158926 stalin.sc:22199:776394 */ t33856 = p16941->a28764; /* x158927 stalin.sc:22199:776396 */ t33857 = a28780; /* x158924 stalin.sc:22199:776373 */ t33858.tag = STRUCTURE_TYPE27745; t33858.value.structure_type27745 = t33856; return f15534(t33855, t33858, t33857);} /* [inside top level 16940] */ struct w49 f16940(struct p16937 *p16940, struct w49 a28779) {struct structure_type27501 *t33859; struct w49 t33860; struct w49 t33861; struct w49 t33862; struct w49 t33863; struct w49 t33864; /* x158922 stalin.sc:22198:776319 */ /* x158915 stalin.sc:22198:776331 */ t33859 = p16940->a28763; /* x158920 stalin.sc:22198:776333 */ /* x158917 stalin.sc:22198:776342 */ t33862 = p16940->a28773; /* x158918 stalin.sc:22198:776345 */ t33863 = a28779; /* x158919 stalin.sc:22198:776348 */ t33864 = p16940->a28774; /* x158916 stalin.sc:22198:776334 */ t33860 = f14485(t33862, t33863, t33864); /* x158921 stalin.sc:22198:776352 */ t33861 = a28779; /* x158914 stalin.sc:22198:776320 */ return f15499(t33859, t33860, t33861);} /* [inside top level 16918] */ struct w12224 f16918(int a28738) {int t33865; struct w227957 t33866; struct w49 t33867; /* x158804 stalin.sc:22176:775613 */ /* x158802 stalin.sc:22176:775620 */ /* x158803 stalin.sc:22176:775646 */ t33865 = a28738; /* x158800 stalin.sc:22176:775614 */ t33866.tag = NATIVE_PROCEDURE_TYPE22477; t33867.tag = FIXNUM_TYPE; t33867.value.fixnum_type = t33865; return f1149(t33866, t33867);} /* [inside top level 16916] */ struct w12224 f16916(int a28733) {int t33868; struct w227957 t33869; struct w49 t33870; /* x158798 stalin.sc:22175:775576 */ /* x158796 stalin.sc:22175:775583 */ /* x158797 stalin.sc:22175:775609 */ t33868 = a28733; /* x158794 stalin.sc:22175:775577 */ t33869.tag = NATIVE_PROCEDURE_TYPE22451; t33870.tag = FIXNUM_TYPE; t33870.value.fixnum_type = t33868; return f1149(t33869, t33870);} /* [inside top level 16914] */ struct structure_type24753 *f16914(struct w49 a28724, struct w49 a28725, struct w49 a28726, struct w49 a28727) {struct w49 a25821; /* C1 */ struct w49 a25822; /* C2 */ struct w49 a25823; /* C1 */ struct w49 a25824; /* C2 */ struct w49 t33871; struct w49 t33872; struct w49 t33873; struct w49 t33874; char *t33875; struct w49 t33876; struct w49 t33877; struct w49 t33878; struct w12224 t33879; struct w49 t33880; struct w49 t33881; struct w49 t33882; char *t33883; struct w49 t33884; struct w49 t33885; struct w49 t33886; struct w12224 t33887; struct w49 t33888; /* x158774 stalin.sc:22167:775359 */ /* x158765 stalin.sc:22167:775363 */ /* x158760 stalin.sc:22167:775368 */ /* x158759 stalin.sc:22167:775382 */ t33871 = a28725; /* x158758 stalin.sc:22167:775369 */ if (f7683(t33871)==FALSE_TYPE) goto l4766; /* x158763 */ /* x158762 stalin.sc:22167:775400 */ t33872 = a28727; /* x158761 stalin.sc:22167:775387 */ if (f7683(t33872)==FALSE_TYPE) goto l4766; /* x158769 stalin.sc:22168:775409 */ /* x158767 stalin.sc:22168:775417 */ t33881 = a28724; /* x158768 stalin.sc:22168:775420 */ t33882 = a28726; /* x158766 stalin.sc:22168:775410 */ a25821 = t33881; a25822 = t33882; /* x129383 stalin.sc:16112:561262 */ /* x129382 stalin.sc:16112:561280 */ t33885 = a25822; /* x129381 stalin.sc:16112:561277 */ t33884 = a25821; /* x129380 stalin.sc:16112:561270 */ t33883 = "IMIN"; /* x129379 stalin.sc:16112:561263 */ t33886.tag = STRING_TYPE; t33886.value.string_type = t33883; t33888.tag = STRUCTURE_TYPE24753; t33888.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33888.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16112, 561262); out_of_memory_error();} t33888.value.structure_type24753->s0 = t33885; t33888.value.structure_type24753->s1.tag = NULL_TYPE; t33887.tag = STRUCTURE_TYPE24753; t33887.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33887.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16112, 561262); out_of_memory_error();} t33887.value.structure_type24753->s0 = t33884; t33887.value.structure_type24753->s1 = t33888; return f13543(t33886, t33887); l4766: /* x158773 stalin.sc:22169:775428 */ /* x158771 stalin.sc:22169:775436 */ t33873 = a28724; /* x158772 stalin.sc:22169:775439 */ t33874 = a28726; /* x158770 stalin.sc:22169:775429 */ a25823 = t33873; a25824 = t33874; /* x129390 stalin.sc:16114:561309 */ /* x129389 stalin.sc:16114:561327 */ t33877 = a25824; /* x129388 stalin.sc:16114:561324 */ t33876 = a25823; /* x129387 stalin.sc:16114:561317 */ t33875 = "RMIN"; /* x129386 stalin.sc:16114:561310 */ t33878.tag = STRING_TYPE; t33878.value.string_type = t33875; t33880.tag = STRUCTURE_TYPE24753; t33880.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33880.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16114, 561309); out_of_memory_error();} t33880.value.structure_type24753->s0 = t33877; t33880.value.structure_type24753->s1.tag = NULL_TYPE; t33879.tag = STRUCTURE_TYPE24753; t33879.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33879.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16114, 561309); out_of_memory_error();} t33879.value.structure_type24753->s0 = t33876; t33879.value.structure_type24753->s1 = t33880; return f13543(t33878, t33879);} /* [inside top level 16913] */ char *f16913(struct w49 a28722, struct w49 a28723) {struct w49 t33889; struct w49 t33890; /* x158756 stalin.sc:22164:775206 */ /* x158753 stalin.sc:22164:775210 */ /* x158748 stalin.sc:22164:775215 */ /* x158747 stalin.sc:22164:775229 */ t33889 = a28722; /* x158746 stalin.sc:22164:775216 */ if (f7683(t33889)==FALSE_TYPE) goto l4769; /* x158751 */ /* x158750 stalin.sc:22164:775247 */ t33890 = a28723; /* x158749 stalin.sc:22164:775234 */ if (f7683(t33890)==FALSE_TYPE) goto l4769; /* x158754 stalin.sc:22164:775252 */ return a1969; l4769: /* x158755 stalin.sc:22164:775261 */ return a1966;} /* [inside top level 16912] */ struct structure_type24753 *f16912(struct p16907 *p16912, unsigned a28721) {char *t33891; struct structure_type27745 *t33892; unsigned t33893; struct w49 t33894; /* x158737 stalin.sc:22158:774962 */ /* x158734 stalin.sc:22158:774977 */ t33891 = "min"; /* x158735 stalin.sc:22158:774983 */ t33892 = p16912->a28705; /* x158736 stalin.sc:22158:774985 */ t33893 = a28721; /* x158733 stalin.sc:22158:774963 */ t33894.tag = STRUCTURE_TYPE27745; t33894.value.structure_type27745 = t33892; return f15534(t33891, t33894, t33893);} /* [inside top level 16908] */ struct w49 f16908(struct p16907 *p16908, struct w49 a28720) {struct w49 t33895; struct w49 t33896; char *t33897; struct p16907 *t33898; struct structure_type27501 *t33899; struct w49 t33900; unsigned t33901; struct w49 t33902; struct w49 t33903; struct w49 t33904; struct p16907 *t33905; struct structure_type27501 *t33906; struct w49 t33907; unsigned t33908; struct w49 t33909; struct w49 t33910; struct w49 t33911; struct p16907 *p16909; struct p16907 *p16910; /* x158731 stalin.sc:22154:774730 */ /* x158700 stalin.sc:22154:774737 */ /* x158699 stalin.sc:22154:774751 */ t33895 = a28720; /* x158698 stalin.sc:22154:774738 */ if (f7683(t33895)==FALSE_TYPE) goto l4772; /* x158711 */ /* x158710 */ t33905 = p16908; p16909 = t33905; /* x158709 stalin.sc:22154:774755 */ /* x158702 stalin.sc:22154:774762 */ t33906 = p16909->a28704; /* x158707 stalin.sc:22154:774764 */ /* x158704 stalin.sc:22154:774773 */ t33909 = p16909->a28714; /* x158705 stalin.sc:22154:774776 */ t33910 = a28720; /* x158706 stalin.sc:22154:774779 */ t33911 = p16909->a28715; /* x158703 stalin.sc:22154:774765 */ t33907 = f14485(t33909, t33910, t33911); /* x158708 stalin.sc:22154:774783 */ /* x158701 stalin.sc:22154:774756 */ t33908 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t33906, t33907, t33908); l4772: /* x158730 */ /* x158714 stalin.sc:22155:774805 */ /* x158713 stalin.sc:22155:774819 */ t33896 = a28720; /* x158712 stalin.sc:22155:774806 */ if (f7684(t33896)==FALSE_TYPE) goto l4774; /* x158725 */ /* x158724 */ t33898 = p16908; p16910 = t33898; /* x158723 stalin.sc:22155:774823 */ /* x158716 stalin.sc:22155:774830 */ t33899 = p16910->a28704; /* x158721 stalin.sc:22155:774832 */ /* x158718 stalin.sc:22155:774841 */ t33902 = p16910->a28714; /* x158719 stalin.sc:22155:774844 */ t33903 = a28720; /* x158720 stalin.sc:22155:774847 */ t33904 = p16910->a28715; /* x158717 stalin.sc:22155:774833 */ t33900 = f14485(t33902, t33903, t33904); /* x158722 stalin.sc:22155:774851 */ /* x158715 stalin.sc:22155:774824 */ t33901 = (unsigned)NATIVE_PROCEDURE_TYPE7429; return f15508(t33899, t33900, t33901); l4774: /* x158729 */ /* x158728 */ /* x158727 stalin.sc:22157:774930 */ /* x158726 stalin.sc:22157:774931 */ /* x295769 QobiScheme.sc:166:5314 */ /* x295768 QobiScheme.sc:166:5321 */ t33897 = "This shouldn\'t happen"; /* x295767 QobiScheme.sc:166:5315 */ stalin_panic(t33897);} /* [inside top level 16890] */ struct w12224 f16890(int a28679) {int t33912; struct w227957 t33913; struct w49 t33914; /* x158610 stalin.sc:22135:774111 */ /* x158608 stalin.sc:22135:774118 */ /* x158609 stalin.sc:22135:774144 */ t33912 = a28679; /* x158606 stalin.sc:22135:774112 */ t33913.tag = NATIVE_PROCEDURE_TYPE22476; t33914.tag = FIXNUM_TYPE; t33914.value.fixnum_type = t33912; return f1149(t33913, t33914);} /* [inside top level 16888] */ struct w12224 f16888(int a28674) {int t33915; struct w227957 t33916; struct w49 t33917; /* x158604 stalin.sc:22134:774074 */ /* x158602 stalin.sc:22134:774081 */ /* x158603 stalin.sc:22134:774107 */ t33915 = a28674; /* x158600 stalin.sc:22134:774075 */ t33916.tag = NATIVE_PROCEDURE_TYPE22446; t33917.tag = FIXNUM_TYPE; t33917.value.fixnum_type = t33915; return f1149(t33916, t33917);} /* [inside top level 16886] */ struct structure_type24753 *f16886(struct w49 a28665, struct w49 a28666, struct w49 a28667, struct w49 a28668) {struct w49 a25817; /* C1 */ struct w49 a25818; /* C2 */ struct w49 a25819; /* C1 */ struct w49 a25820; /* C2 */ struct w49 t33918; struct w49 t33919; struct w49 t33920; struct w49 t33921; char *t33922; struct w49 t33923; struct w49 t33924; struct w49 t33925; struct w12224 t33926; struct w49 t33927; struct w49 t33928; struct w49 t33929; char *t33930; struct w49 t33931; struct w49 t33932; struct w49 t33933; struct w12224 t33934; struct w49 t33935; /* x158580 stalin.sc:22126:773856 */ /* x158571 stalin.sc:22126:773860 */ /* x158566 stalin.sc:22126:773865 */ /* x158565 stalin.sc:22126:773879 */ t33918 = a28666; /* x158564 stalin.sc:22126:773866 */ if (f7683(t33918)==FALSE_TYPE) goto l4776; /* x158569 */ /* x158568 stalin.sc:22126:773897 */ t33919 = a28668; /* x158567 stalin.sc:22126:773884 */ if (f7683(t33919)==FALSE_TYPE) goto l4776; /* x158575 stalin.sc:22127:773906 */ /* x158573 stalin.sc:22127:773914 */ t33928 = a28665; /* x158574 stalin.sc:22127:773917 */ t33929 = a28667; /* x158572 stalin.sc:22127:773907 */ a25817 = t33928; a25818 = t33929; /* x129369 stalin.sc:16108:561168 */ /* x129368 stalin.sc:16108:561186 */ t33932 = a25818; /* x129367 stalin.sc:16108:561183 */ t33931 = a25817; /* x129366 stalin.sc:16108:561176 */ t33930 = "IMAX"; /* x129365 stalin.sc:16108:561169 */ t33933.tag = STRING_TYPE; t33933.value.string_type = t33930; t33935.tag = STRUCTURE_TYPE24753; t33935.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33935.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16108, 561168); out_of_memory_error();} t33935.value.structure_type24753->s0 = t33932; t33935.value.structure_type24753->s1.tag = NULL_TYPE; t33934.tag = STRUCTURE_TYPE24753; t33934.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33934.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16108, 561168); out_of_memory_error();} t33934.value.structure_type24753->s0 = t33931; t33934.value.structure_type24753->s1 = t33935; return f13543(t33933, t33934); l4776: /* x158579 stalin.sc:22128:773925 */ /* x158577 stalin.sc:22128:773933 */ t33920 = a28665; /* x158578 stalin.sc:22128:773936 */ t33921 = a28667; /* x158576 stalin.sc:22128:773926 */ a25819 = t33920; a25820 = t33921; /* x129376 stalin.sc:16110:561215 */ /* x129375 stalin.sc:16110:561233 */ t33924 = a25820; /* x129374 stalin.sc:16110:561230 */ t33923 = a25819; /* x129373 stalin.sc:16110:561223 */ t33922 = "RMAX"; /* x129372 stalin.sc:16110:561216 */ t33925.tag = STRING_TYPE; t33925.value.string_type = t33922; t33927.tag = STRUCTURE_TYPE24753; t33927.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33927.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16110, 561215); out_of_memory_error();} t33927.value.structure_type24753->s0 = t33924; t33927.value.structure_type24753->s1.tag = NULL_TYPE; t33926.tag = STRUCTURE_TYPE24753; t33926.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33926.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16110, 561215); out_of_memory_error();} t33926.value.structure_type24753->s0 = t33923; t33926.value.structure_type24753->s1 = t33927; return f13543(t33925, t33926);} /* [inside top level 16885] */ char *f16885(struct w49 a28663, struct w49 a28664) {struct w49 t33936; struct w49 t33937; /* x158562 stalin.sc:22123:773703 */ /* x158559 stalin.sc:22123:773707 */ /* x158554 stalin.sc:22123:773712 */ /* x158553 stalin.sc:22123:773726 */ t33936 = a28663; /* x158552 stalin.sc:22123:773713 */ if (f7683(t33936)==FALSE_TYPE) goto l4779; /* x158557 */ /* x158556 stalin.sc:22123:773744 */ t33937 = a28664; /* x158555 stalin.sc:22123:773731 */ if (f7683(t33937)==FALSE_TYPE) goto l4779; /* x158560 stalin.sc:22123:773749 */ return a1969; l4779: /* x158561 stalin.sc:22123:773758 */ return a1966;} /* [inside top level 16884] */ struct structure_type24753 *f16884(struct p16879 *p16884, unsigned a28662) {char *t33938; struct structure_type27745 *t33939; unsigned t33940; struct w49 t33941; /* x158543 stalin.sc:22117:773459 */ /* x158540 stalin.sc:22117:773474 */ t33938 = "max"; /* x158541 stalin.sc:22117:773480 */ t33939 = p16884->a28646; /* x158542 stalin.sc:22117:773482 */ t33940 = a28662; /* x158539 stalin.sc:22117:773460 */ t33941.tag = STRUCTURE_TYPE27745; t33941.value.structure_type27745 = t33939; return f15534(t33938, t33941, t33940);} /* [inside top level 16880] */ struct w49 f16880(struct p16879 *p16880, struct w49 a28661) {struct w49 t33942; struct w49 t33943; char *t33944; struct p16879 *t33945; struct structure_type27501 *t33946; struct w49 t33947; unsigned t33948; struct w49 t33949; struct w49 t33950; struct w49 t33951; struct p16879 *t33952; struct structure_type27501 *t33953; struct w49 t33954; unsigned t33955; struct w49 t33956; struct w49 t33957; struct w49 t33958; struct p16879 *p16881; struct p16879 *p16882; /* x158537 stalin.sc:22113:773227 */ /* x158506 stalin.sc:22113:773234 */ /* x158505 stalin.sc:22113:773248 */ t33942 = a28661; /* x158504 stalin.sc:22113:773235 */ if (f7683(t33942)==FALSE_TYPE) goto l4782; /* x158517 */ /* x158516 */ t33952 = p16880; p16881 = t33952; /* x158515 stalin.sc:22113:773252 */ /* x158508 stalin.sc:22113:773259 */ t33953 = p16881->a28645; /* x158513 stalin.sc:22113:773261 */ /* x158510 stalin.sc:22113:773270 */ t33956 = p16881->a28655; /* x158511 stalin.sc:22113:773273 */ t33957 = a28661; /* x158512 stalin.sc:22113:773276 */ t33958 = p16881->a28656; /* x158509 stalin.sc:22113:773262 */ t33954 = f14485(t33956, t33957, t33958); /* x158514 stalin.sc:22113:773280 */ /* x158507 stalin.sc:22113:773253 */ t33955 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t33953, t33954, t33955); l4782: /* x158536 */ /* x158520 stalin.sc:22114:773302 */ /* x158519 stalin.sc:22114:773316 */ t33943 = a28661; /* x158518 stalin.sc:22114:773303 */ if (f7684(t33943)==FALSE_TYPE) goto l4784; /* x158531 */ /* x158530 */ t33945 = p16880; p16882 = t33945; /* x158529 stalin.sc:22114:773320 */ /* x158522 stalin.sc:22114:773327 */ t33946 = p16882->a28645; /* x158527 stalin.sc:22114:773329 */ /* x158524 stalin.sc:22114:773338 */ t33949 = p16882->a28655; /* x158525 stalin.sc:22114:773341 */ t33950 = a28661; /* x158526 stalin.sc:22114:773344 */ t33951 = p16882->a28656; /* x158523 stalin.sc:22114:773330 */ t33947 = f14485(t33949, t33950, t33951); /* x158528 stalin.sc:22114:773348 */ /* x158521 stalin.sc:22114:773321 */ t33948 = (unsigned)NATIVE_PROCEDURE_TYPE7429; return f15508(t33946, t33947, t33948); l4784: /* x158535 */ /* x158534 */ /* x158533 stalin.sc:22116:773427 */ /* x158532 stalin.sc:22116:773428 */ /* x295765 QobiScheme.sc:166:5314 */ /* x295764 QobiScheme.sc:166:5321 */ t33944 = "This shouldn\'t happen"; /* x295763 QobiScheme.sc:166:5315 */ stalin_panic(t33944);} /* [inside top level 16862] */ struct w12224 f16862(int a28620) {int t33959; struct w227957 t33960; struct w49 t33961; /* x158416 stalin.sc:22094:772608 */ /* x158414 stalin.sc:22094:772615 */ /* x158415 stalin.sc:22094:772641 */ t33959 = a28620; /* x158412 stalin.sc:22094:772609 */ t33960.tag = NATIVE_PROCEDURE_TYPE22475; t33961.tag = FIXNUM_TYPE; t33961.value.fixnum_type = t33959; return f1149(t33960, t33961);} /* [inside top level 16860] */ struct w12224 f16860(int a28615) {int t33962; struct w227957 t33963; struct w49 t33964; /* x158410 stalin.sc:22093:772571 */ /* x158408 stalin.sc:22093:772578 */ /* x158409 stalin.sc:22093:772604 */ t33962 = a28615; /* x158406 stalin.sc:22093:772572 */ t33963.tag = NATIVE_PROCEDURE_TYPE22447; t33964.tag = FIXNUM_TYPE; t33964.value.fixnum_type = t33962; return f1149(t33963, t33964);} /* [inside top level 16858] */ struct structure_type24753 *f16858(struct p16852 *p16858, unsigned a28609) {char *t33965; struct structure_type27745 *t33966; unsigned t33967; struct w49 t33968; /* x158388 stalin.sc:22088:772419 */ /* x158385 stalin.sc:22088:772434 */ t33965 = "negative"; /* x158386 stalin.sc:22088:772445 */ t33966 = p16858->a28593; /* x158387 stalin.sc:22088:772447 */ t33967 = a28609; /* x158384 stalin.sc:22088:772420 */ t33968.tag = STRUCTURE_TYPE27745; t33968.value.structure_type27745 = t33966; return f15534(t33965, t33968, t33967);} /* [inside top level 16853] */ struct w49 f16853(struct p16852 *p16853, struct w49 a28608) {struct structure_type24753 *a41809; /* CS */ struct w49 t33969; struct w49 t33970; struct w49 t33971; char *t33972; struct p16852 *t33973; struct w49 t33974; struct w49 t33975; struct structure_type24753 *t33976; struct w49 t33977; struct w49 t33978; struct structure_type24753 *t33979; struct structure_type24753 *t33980; char *t33981; struct w49 t33982; struct w49 t33983; unsigned t33984; struct structure_type24753 *t33985; struct w49 t33986; struct w49 t33987; struct w49 t33988; struct w49 t33989; char *t33990; struct structure_type27745 *t33991; struct w49 t33992; unsigned t33993; struct structure_type27501 *t33994; struct structure_type24753 *t33995; struct structure_type24753 *t33996; struct w49 t33997; struct w49 t33998; struct w49 t33999; struct w49 t34000; struct w49 t34001; struct p16852 *t34002; struct structure_type27501 *t34003; struct structure_type24753 *t34004; struct w49 t34005; struct w49 t34006; struct w49 t34007; struct w49 t34008; struct p16852 *t34009; struct structure_type27501 *t34010; struct structure_type24753 *t34011; struct w49 t34012; struct w49 t34013; struct w49 t34014; struct w49 t34015; struct p16852 *p16854; struct p16852 *p16855; struct p16852 *p16856; /* x158382 stalin.sc:22077:771980 */ /* x158306 stalin.sc:22077:771987 */ /* x158305 stalin.sc:22077:772001 */ t33969 = a28608; /* x158304 stalin.sc:22077:771988 */ if (f7683(t33969)==FALSE_TYPE) goto l4786; /* x158318 */ /* x158317 */ t34009 = p16853; p16854 = t34009; /* x158316 stalin.sc:22077:772005 */ /* x158308 stalin.sc:22077:772019 */ t34010 = p16854->a28592; /* x158315 stalin.sc:22077:772021 */ /* x158314 stalin.sc:22077:772027 */ /* x158311 stalin.sc:22077:772036 */ t34013 = p16854->a28602; /* x158312 stalin.sc:22077:772039 */ t34014 = a28608; /* x158313 stalin.sc:22077:772042 */ t34015 = p16854->a28603; /* x158310 stalin.sc:22077:772028 */ t34012 = f14485(t34013, t34014, t34015); /* x158309 stalin.sc:22077:772022 */ t34011 = f13602(t34012); /* x158307 stalin.sc:22077:772006 */ return f14709(t34010, t34011); l4786: /* x158381 */ /* x158321 stalin.sc:22078:772052 */ /* x158320 stalin.sc:22078:772066 */ t33970 = a28608; /* x158319 stalin.sc:22078:772053 */ if (f7684(t33970)==FALSE_TYPE) goto l4788; /* x158333 */ /* x158332 */ t34002 = p16853; p16855 = t34002; /* x158331 stalin.sc:22078:772070 */ /* x158323 stalin.sc:22078:772084 */ t34003 = p16855->a28592; /* x158330 stalin.sc:22078:772086 */ /* x158329 stalin.sc:22078:772094 */ /* x158326 stalin.sc:22078:772103 */ t34006 = p16855->a28602; /* x158327 stalin.sc:22078:772106 */ t34007 = a28608; /* x158328 stalin.sc:22078:772109 */ t34008 = p16855->a28603; /* x158325 stalin.sc:22078:772095 */ t34005 = f14485(t34006, t34007, t34008); /* x158324 stalin.sc:22078:772087 */ t34004 = f13603(t34005); /* x158322 stalin.sc:22078:772071 */ return f14709(t34003, t34004); l4788: /* x158380 */ /* x158336 stalin.sc:22079:772119 */ /* x158335 stalin.sc:22079:772138 */ t33971 = a28608; /* x158334 stalin.sc:22079:772120 */ if (f7687(t33971)==FALSE_TYPE) goto l4790; /* x158375 */ /* x158374 */ t33973 = p16853; p16856 = t33973; /* x158373 stalin.sc:22080:772145 */ /* x158372 stalin.sc:22086:772330 */ /* x158362 stalin.sc:22086:772344 */ t33994 = p16856->a28592; /* x158371 stalin.sc:22086:772346 */ /* x158370 stalin.sc:22086:772354 */ /* x158369 stalin.sc:22086:772359 */ /* x158366 stalin.sc:22086:772368 */ t33999 = p16856->a28602; /* x158367 stalin.sc:22086:772371 */ t34000 = a28608; /* x158368 stalin.sc:22086:772374 */ t34001 = p16856->a28603; /* x158365 stalin.sc:22086:772360 */ t33998 = f14485(t33999, t34000, t34001); /* x158364 stalin.sc:22086:772355 */ t33996 = f14286(t33998); /* x158363 stalin.sc:22086:772347 */ t33997.tag = STRUCTURE_TYPE24753; t33997.value.structure_type24753 = t33996; t33995 = f13603(t33997); /* x158361 stalin.sc:22086:772331 */ t33975 = f14709(t33994, t33995); /* x158360 stalin.sc:22080:772162 */ /* x158338 stalin.sc:22080:772166 */ if (a703==FALSE_TYPE) goto l4792; /* x158357 stalin.sc:22081:772191 */ /* x158348 stalin.sc:22081:772197 */ /* x158347 stalin.sc:22081:772206 */ /* x158346 stalin.sc:22081:772211 */ /* x158343 stalin.sc:22081:772220 */ t33987 = p16856->a28602; /* x158344 stalin.sc:22081:772223 */ t33988 = a28608; /* x158345 stalin.sc:22081:772226 */ t33989 = p16856->a28603; /* x158342 stalin.sc:22081:772212 */ t33986 = f14485(t33987, t33988, t33989); /* x158341 stalin.sc:22081:772207 */ t33985 = f14278(t33986); /* x158340 stalin.sc:22081:772198 */ t33979 = f13600(t33985); /* x158353 stalin.sc:22082:772241 */ /* x158350 stalin.sc:22082:772256 */ t33990 = "negative"; /* x158351 stalin.sc:22082:772267 */ t33991 = p16856->a28593; /* x158352 stalin.sc:22082:772269 */ /* x158349 stalin.sc:22082:772242 */ t33992.tag = STRUCTURE_TYPE27745; t33992.value.structure_type27745 = t33991; t33993 = FALSE_TYPE; t33980 = f15534(t33990, t33992, t33993); /* x158355 stalin.sc:22083:772282 */ /* x158354 stalin.sc:22083:772283 */ /* x276713 stalin.sc:14693:514793 */ t33981 = ""; /* x158356 stalin.sc:22084:772300 */ /* x158339 stalin.sc:22081:772192 */ t33982.tag = STRUCTURE_TYPE24753; t33982.value.structure_type24753 = t33980; t33983.tag = STRING_TYPE; t33983.value.string_type = t33981; t33984 = FALSE_TYPE; t33974 = f13672(t33979, t33982, t33983, t33984); goto l4793; l4792: /* x158359 stalin.sc:22085:772314 */ /* x158358 stalin.sc:22085:772315 */ /* x276715 stalin.sc:14693:514793 */ t33974.tag = STRING_TYPE; t33974.value.string_type = ""; l4793: /* x158337 stalin.sc:22080:772146 */ t33978.tag = STRUCTURE_TYPE24753; t33978.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t33978.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22080, 772145); out_of_memory_error();} t33978.value.structure_type24753->s0 = t33975; t33978.value.structure_type24753->s1.tag = NULL_TYPE; a41809 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41809==NULL) {backtrace("stalin.sc", 22080, 772145); out_of_memory_error();} a41809->s0 = t33974; a41809->s1 = t33978; /* x301348 stalin.sc:14400:506485 */ /* x301347 stalin.sc:14400:506503 */ t33976 = a41809; /* x301346 stalin.sc:14400:506486 */ t33977.tag = STRUCTURE_TYPE24753; t33977.value.structure_type24753 = t33976; return f13492(t33977); l4790: /* x158379 */ /* x158378 */ /* x158377 stalin.sc:22087:772391 */ /* x158376 stalin.sc:22087:772392 */ /* x295773 QobiScheme.sc:166:5314 */ /* x295772 QobiScheme.sc:166:5321 */ t33972 = "This shouldn\'t happen"; /* x295771 QobiScheme.sc:166:5315 */ stalin_panic(t33972);} /* [inside top level 16844] */ struct structure_type24753 *f16844(struct p16838 *p16844, unsigned a28564) {char *t34016; struct structure_type27745 *t34017; unsigned t34018; struct w49 t34019; /* x158259 stalin.sc:22060:771618 */ /* x158256 stalin.sc:22060:771633 */ t34016 = "positive"; /* x158257 stalin.sc:22060:771644 */ t34017 = p16844->a28548; /* x158258 stalin.sc:22060:771646 */ t34018 = a28564; /* x158255 stalin.sc:22060:771619 */ t34019.tag = STRUCTURE_TYPE27745; t34019.value.structure_type27745 = t34017; return f15534(t34016, t34019, t34018);} /* [inside top level 16839] */ struct w49 f16839(struct p16838 *p16839, struct w49 a28563) {struct w49 a25349; /* C */ struct structure_type24753 *a41806; /* CS */ struct w49 t34020; struct w49 t34021; struct w49 t34022; char *t34023; struct p16838 *t34024; struct w49 t34025; struct w49 t34026; struct structure_type24753 *t34027; struct w49 t34028; struct w49 t34029; struct structure_type24753 *t34030; struct structure_type24753 *t34031; char *t34032; struct w49 t34033; struct w49 t34034; unsigned t34035; struct structure_type24753 *t34036; struct w49 t34037; struct w49 t34038; struct w49 t34039; struct w49 t34040; char *t34041; struct structure_type27745 *t34042; struct w49 t34043; unsigned t34044; struct structure_type27501 *t34045; struct structure_type24753 *t34046; struct structure_type24753 *t34047; struct w49 t34048; struct w49 t34049; struct w49 t34050; struct w49 t34051; struct w49 t34052; struct p16838 *t34053; struct structure_type27501 *t34054; struct structure_type24753 *t34055; struct w49 t34056; struct w49 t34057; struct w49 t34058; struct w49 t34059; struct p16838 *t34060; struct structure_type27501 *t34061; struct structure_type24753 *t34062; struct w49 t34063; struct w49 t34064; char *t34065; struct w49 t34066; struct w49 t34067; struct w49 t34068; struct w49 t34069; struct p16838 *p16840; struct p16838 *p16841; struct p16838 *p16842; /* x158253 stalin.sc:22049:771179 */ /* x158177 stalin.sc:22049:771186 */ /* x158176 stalin.sc:22049:771200 */ t34020 = a28563; /* x158175 stalin.sc:22049:771187 */ if (f7683(t34020)==FALSE_TYPE) goto l4795; /* x158189 */ /* x158188 */ t34060 = p16839; p16840 = t34060; /* x158187 stalin.sc:22049:771204 */ /* x158179 stalin.sc:22049:771218 */ t34061 = p16840->a28547; /* x158186 stalin.sc:22049:771220 */ /* x158185 stalin.sc:22049:771226 */ /* x158182 stalin.sc:22049:771235 */ t34067 = p16840->a28557; /* x158183 stalin.sc:22049:771238 */ t34068 = a28563; /* x158184 stalin.sc:22049:771241 */ t34069 = p16840->a28558; /* x158181 stalin.sc:22049:771227 */ t34063 = f14485(t34067, t34068, t34069); /* x158180 stalin.sc:22049:771221 */ a25349 = t34063; /* x123215 stalin.sc:14631:512940 */ /* x123212 stalin.sc:14631:512945 */ t34064 = a25349; /* x123214 stalin.sc:14631:512947 */ /* x123213 stalin.sc:14631:512948 */ /* x276891 stalin.sc:14555:511005 */ t34065 = "0"; /* x123211 stalin.sc:14631:512941 */ t34066.tag = STRING_TYPE; t34066.value.string_type = t34065; t34062 = f13604(t34064, t34066); /* x158178 stalin.sc:22049:771205 */ return f14709(t34061, t34062); l4795: /* x158252 */ /* x158192 stalin.sc:22050:771251 */ /* x158191 stalin.sc:22050:771265 */ t34021 = a28563; /* x158190 stalin.sc:22050:771252 */ if (f7684(t34021)==FALSE_TYPE) goto l4797; /* x158204 */ /* x158203 */ t34053 = p16839; p16841 = t34053; /* x158202 stalin.sc:22050:771269 */ /* x158194 stalin.sc:22050:771283 */ t34054 = p16841->a28547; /* x158201 stalin.sc:22050:771285 */ /* x158200 stalin.sc:22050:771293 */ /* x158197 stalin.sc:22050:771302 */ t34057 = p16841->a28557; /* x158198 stalin.sc:22050:771305 */ t34058 = a28563; /* x158199 stalin.sc:22050:771308 */ t34059 = p16841->a28558; /* x158196 stalin.sc:22050:771294 */ t34056 = f14485(t34057, t34058, t34059); /* x158195 stalin.sc:22050:771286 */ t34055 = f13606(t34056); /* x158193 stalin.sc:22050:771270 */ return f14709(t34054, t34055); l4797: /* x158251 */ /* x158207 stalin.sc:22051:771318 */ /* x158206 stalin.sc:22051:771337 */ t34022 = a28563; /* x158205 stalin.sc:22051:771319 */ if (f7687(t34022)==FALSE_TYPE) goto l4799; /* x158246 */ /* x158245 */ t34024 = p16839; p16842 = t34024; /* x158244 stalin.sc:22052:771344 */ /* x158243 stalin.sc:22058:771529 */ /* x158233 stalin.sc:22058:771543 */ t34045 = p16842->a28547; /* x158242 stalin.sc:22058:771545 */ /* x158241 stalin.sc:22058:771553 */ /* x158240 stalin.sc:22058:771558 */ /* x158237 stalin.sc:22058:771567 */ t34050 = p16842->a28557; /* x158238 stalin.sc:22058:771570 */ t34051 = a28563; /* x158239 stalin.sc:22058:771573 */ t34052 = p16842->a28558; /* x158236 stalin.sc:22058:771559 */ t34049 = f14485(t34050, t34051, t34052); /* x158235 stalin.sc:22058:771554 */ t34047 = f14286(t34049); /* x158234 stalin.sc:22058:771546 */ t34048.tag = STRUCTURE_TYPE24753; t34048.value.structure_type24753 = t34047; t34046 = f13606(t34048); /* x158232 stalin.sc:22058:771530 */ t34026 = f14709(t34045, t34046); /* x158231 stalin.sc:22052:771361 */ /* x158209 stalin.sc:22052:771365 */ if (a703==FALSE_TYPE) goto l4801; /* x158228 stalin.sc:22053:771390 */ /* x158219 stalin.sc:22053:771396 */ /* x158218 stalin.sc:22053:771405 */ /* x158217 stalin.sc:22053:771410 */ /* x158214 stalin.sc:22053:771419 */ t34038 = p16842->a28557; /* x158215 stalin.sc:22053:771422 */ t34039 = a28563; /* x158216 stalin.sc:22053:771425 */ t34040 = p16842->a28558; /* x158213 stalin.sc:22053:771411 */ t34037 = f14485(t34038, t34039, t34040); /* x158212 stalin.sc:22053:771406 */ t34036 = f14278(t34037); /* x158211 stalin.sc:22053:771397 */ t34030 = f13600(t34036); /* x158224 stalin.sc:22054:771440 */ /* x158221 stalin.sc:22054:771455 */ t34041 = "positive"; /* x158222 stalin.sc:22054:771466 */ t34042 = p16842->a28548; /* x158223 stalin.sc:22054:771468 */ /* x158220 stalin.sc:22054:771441 */ t34043.tag = STRUCTURE_TYPE27745; t34043.value.structure_type27745 = t34042; t34044 = FALSE_TYPE; t34031 = f15534(t34041, t34043, t34044); /* x158226 stalin.sc:22055:771481 */ /* x158225 stalin.sc:22055:771482 */ /* x276681 stalin.sc:14693:514793 */ t34032 = ""; /* x158227 stalin.sc:22056:771499 */ /* x158210 stalin.sc:22053:771391 */ t34033.tag = STRUCTURE_TYPE24753; t34033.value.structure_type24753 = t34031; t34034.tag = STRING_TYPE; t34034.value.string_type = t34032; t34035 = FALSE_TYPE; t34025 = f13672(t34030, t34033, t34034, t34035); goto l4802; l4801: /* x158230 stalin.sc:22057:771513 */ /* x158229 stalin.sc:22057:771514 */ /* x276683 stalin.sc:14693:514793 */ t34025.tag = STRING_TYPE; t34025.value.string_type = ""; l4802: /* x158208 stalin.sc:22052:771345 */ t34029.tag = STRUCTURE_TYPE24753; t34029.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t34029.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22052, 771344); out_of_memory_error();} t34029.value.structure_type24753->s0 = t34026; t34029.value.structure_type24753->s1.tag = NULL_TYPE; a41806 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41806==NULL) {backtrace("stalin.sc", 22052, 771344); out_of_memory_error();} a41806->s0 = t34025; a41806->s1 = t34029; /* x301336 stalin.sc:14400:506485 */ /* x301335 stalin.sc:14400:506503 */ t34027 = a41806; /* x301334 stalin.sc:14400:506486 */ t34028.tag = STRUCTURE_TYPE24753; t34028.value.structure_type24753 = t34027; return f13492(t34028); l4799: /* x158250 */ /* x158249 */ /* x158248 stalin.sc:22059:771590 */ /* x158247 stalin.sc:22059:771591 */ /* x295737 QobiScheme.sc:166:5314 */ /* x295736 QobiScheme.sc:166:5321 */ t34023 = "This shouldn\'t happen"; /* x295735 QobiScheme.sc:166:5315 */ stalin_panic(t34023);} /* [inside top level 16830] */ struct structure_type24753 *f16830(struct p16815 *p16830, unsigned a28519) {char *t34070; struct structure_type27745 *t34071; unsigned t34072; struct w49 t34073; /* x158130 stalin.sc:22032:770821 */ /* x158127 stalin.sc:22032:770836 */ t34070 = "zero"; /* x158128 stalin.sc:22032:770843 */ t34071 = p16830->a28495; /* x158129 stalin.sc:22032:770845 */ t34072 = a28519; /* x158126 stalin.sc:22032:770822 */ t34073.tag = STRUCTURE_TYPE27745; t34073.value.structure_type27745 = t34071; return f15534(t34070, t34073, t34072);} /* [inside top level 16821] */ struct w49 f16821(struct p16815 *p16821, struct w49 a28515) {struct w49 a37756; /* OBJ */ struct w49 t34074; struct w49 t34075; struct w49 t34076; struct w49 t34077; struct w49 t34078; struct w49 t34079; struct w49 t34080; struct w49 t34081; char *t34082; struct p16815 *t34083; struct structure_type27501 *t34084; struct structure_type24753 *t34085; struct structure_type24753 *t34086; struct structure_type24753 *t34087; struct structure_type24753 *t34088; struct w49 t34089; struct structure_type24753 *t34090; struct w49 t34091; struct w49 t34092; struct w49 t34093; struct w49 t34094; struct w49 t34095; struct structure_type24753 *t34096; struct w49 t34097; struct w49 t34098; struct w49 t34099; struct w49 t34100; struct w49 t34101; struct p16815 *t34102; struct structure_type27501 *t34103; struct structure_type24753 *t34104; struct w49 t34105; struct w49 t34106; struct w49 t34107; struct w49 t34108; struct p16815 *t34109; struct structure_type27501 *t34110; struct structure_type24753 *t34111; struct w49 t34112; struct w49 t34113; struct w49 t34114; struct w49 t34115; struct p16815 *t34116; struct structure_type27501 *t34117; struct structure_type24753 *t34118; struct w49 t34119; struct w49 t34120; struct w49 t34121; struct w49 t34122; struct p16815 *p16825; struct p16815 *p16826; struct p16815 *p16827; struct p16815 *p16828; /* x158124 stalin.sc:22020:770349 */ /* x158046 stalin.sc:22020:770356 */ /* x158045 stalin.sc:22020:770360 */ /* x158044 stalin.sc:22020:770375 */ t34074 = a28515; /* x158043 stalin.sc:22020:770361 */ if (!(f7703(t34074)==FALSE_TYPE)) goto l4803; /* x158040 */ /* x158039 stalin.sc:22021:770386 */ /* x158038 stalin.sc:22021:770400 */ t34075 = a28515; /* x158037 stalin.sc:22021:770387 */ a37756 = t34075; /* x283693 */ /* x283692 */ t34076 = a37756; /* x283691 */ if ((t34076.tag)==STRUCTURE_TYPE27673) goto l4803; /* x158034 */ /* x158033 stalin.sc:22022:770411 */ /* x158032 stalin.sc:22022:770429 */ t34077 = a28515; /* x158031 stalin.sc:22022:770412 */ if (!(f7700(t34077)==FALSE_TYPE)) goto l4803; /* x158028 */ /* x158027 stalin.sc:22023:770459 */ t34078 = a28515; /* x158026 stalin.sc:22023:770441 */ if (f7701(t34078)==FALSE_TYPE) goto l4804; l4803: /* x158058 */ /* x158057 */ t34116 = p16821; p16825 = t34116; /* x158056 stalin.sc:22024:770467 */ /* x158048 stalin.sc:22024:770481 */ t34117 = p16825->a28494; /* x158055 stalin.sc:22024:770483 */ /* x158054 stalin.sc:22024:770493 */ /* x158051 stalin.sc:22024:770502 */ t34120 = p16825->a28504; /* x158052 stalin.sc:22024:770505 */ t34121 = a28515; /* x158053 stalin.sc:22024:770508 */ t34122 = p16825->a28505; /* x158050 stalin.sc:22024:770494 */ t34119 = f14485(t34120, t34121, t34122); /* x158049 stalin.sc:22024:770484 */ t34118 = f13596(t34119); /* x158047 stalin.sc:22024:770468 */ return f14709(t34117, t34118); l4804: /* x158123 */ /* x158061 stalin.sc:22025:770518 */ /* x158060 stalin.sc:22025:770532 */ t34079 = a28515; /* x158059 stalin.sc:22025:770519 */ if (f7683(t34079)==FALSE_TYPE) goto l4809; /* x158073 */ /* x158072 */ t34109 = p16821; p16826 = t34109; /* x158071 stalin.sc:22025:770536 */ /* x158063 stalin.sc:22025:770550 */ t34110 = p16826->a28494; /* x158070 stalin.sc:22025:770552 */ /* x158069 stalin.sc:22025:770559 */ /* x158066 stalin.sc:22025:770568 */ t34113 = p16826->a28504; /* x158067 stalin.sc:22025:770571 */ t34114 = a28515; /* x158068 stalin.sc:22025:770574 */ t34115 = p16826->a28505; /* x158065 stalin.sc:22025:770560 */ t34112 = f14485(t34113, t34114, t34115); /* x158064 stalin.sc:22025:770553 */ t34111 = f13592(t34112); /* x158062 stalin.sc:22025:770537 */ return f14709(t34110, t34111); l4809: /* x158122 */ /* x158076 stalin.sc:22026:770584 */ /* x158075 stalin.sc:22026:770598 */ t34080 = a28515; /* x158074 stalin.sc:22026:770585 */ if (f7684(t34080)==FALSE_TYPE) goto l4811; /* x158088 */ /* x158087 */ t34102 = p16821; p16827 = t34102; /* x158086 stalin.sc:22026:770602 */ /* x158078 stalin.sc:22026:770616 */ t34103 = p16827->a28494; /* x158085 stalin.sc:22026:770618 */ /* x158084 stalin.sc:22026:770627 */ /* x158081 stalin.sc:22026:770636 */ t34106 = p16827->a28504; /* x158082 stalin.sc:22026:770639 */ t34107 = a28515; /* x158083 stalin.sc:22026:770642 */ t34108 = p16827->a28505; /* x158080 stalin.sc:22026:770628 */ t34105 = f14485(t34106, t34107, t34108); /* x158079 stalin.sc:22026:770619 */ t34104 = f13593(t34105); /* x158077 stalin.sc:22026:770603 */ return f14709(t34103, t34104); l4811: /* x158121 */ /* x158091 stalin.sc:22027:770652 */ /* x158090 stalin.sc:22027:770671 */ t34081 = a28515; /* x158089 stalin.sc:22027:770653 */ if (f7687(t34081)==FALSE_TYPE) goto l4813; /* x158116 */ /* x158115 */ t34083 = p16821; p16828 = t34083; /* x158114 stalin.sc:22028:770678 */ /* x158093 stalin.sc:22028:770692 */ t34084 = p16828->a28494; /* x158113 stalin.sc:22029:770697 */ /* x158112 stalin.sc:22030:770747 */ /* x158111 stalin.sc:22030:770756 */ /* x158110 stalin.sc:22030:770761 */ /* x158107 stalin.sc:22030:770770 */ t34099 = p16828->a28504; /* x158108 stalin.sc:22030:770773 */ t34100 = a28515; /* x158109 stalin.sc:22030:770776 */ t34101 = p16828->a28505; /* x158106 stalin.sc:22030:770762 */ t34098 = f14485(t34099, t34100, t34101); /* x158105 stalin.sc:22030:770757 */ t34096 = f14278(t34098); /* x158104 stalin.sc:22030:770748 */ t34097.tag = STRUCTURE_TYPE24753; t34097.value.structure_type24753 = t34096; t34087 = f13593(t34097); /* x158103 stalin.sc:22029:770703 */ /* x158102 stalin.sc:22029:770712 */ /* x158101 stalin.sc:22029:770717 */ /* x158098 stalin.sc:22029:770726 */ t34093 = p16828->a28504; /* x158099 stalin.sc:22029:770729 */ t34094 = a28515; /* x158100 stalin.sc:22029:770732 */ t34095 = p16828->a28505; /* x158097 stalin.sc:22029:770718 */ t34092 = f14485(t34093, t34094, t34095); /* x158096 stalin.sc:22029:770713 */ t34090 = f14286(t34092); /* x158095 stalin.sc:22029:770704 */ t34091.tag = STRUCTURE_TYPE24753; t34091.value.structure_type24753 = t34090; t34086 = f13593(t34091); /* x158094 stalin.sc:22029:770698 */ t34089.tag = STRUCTURE_TYPE24753; t34089.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t34089.value.structure_type24753)==NULL) {backtrace("stalin.sc", 22029, 770697); out_of_memory_error();} t34089.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t34089.value.structure_type24753->s0.value.structure_type24753 = t34087; t34089.value.structure_type24753->s1.tag = NULL_TYPE; t34088 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t34088==NULL) {backtrace("stalin.sc", 22029, 770697); out_of_memory_error();} t34088->s0.tag = STRUCTURE_TYPE24753; t34088->s0.value.structure_type24753 = t34086; t34088->s1 = t34089; t34085 = f13564(t34088); /* x158092 stalin.sc:22028:770679 */ return f14709(t34084, t34085); l4813: /* x158120 */ /* x158119 */ /* x158118 stalin.sc:22031:770793 */ /* x158117 stalin.sc:22031:770794 */ /* x295781 QobiScheme.sc:166:5314 */ /* x295780 QobiScheme.sc:166:5321 */ t34082 = "This shouldn\'t happen"; /* x295779 QobiScheme.sc:166:5315 */ stalin_panic(t34082);} /* [inside top level 16816] */ unsigned f16816(struct w49 a28510) {struct w49 a37755; /* OBJ */ struct w49 t34123; struct w49 t34124; struct w49 t34125; struct w49 t34126; struct w49 t34127; struct w49 t34128; /* x158015 stalin.sc:22011:770183 */ /* x158015 stalin.sc:22011:770183 */ /* x158014 stalin.sc:22011:770187 */ /* x158013 stalin.sc:22011:770201 */ t34123 = a28510; /* x158012 stalin.sc:22011:770188 */ if (!(f7688(t34123)==FALSE_TYPE)) goto l4814; /* x158009 */ /* x158008 stalin.sc:22012:770212 */ /* x158007 stalin.sc:22012:770227 */ t34124 = a28510; /* x158006 stalin.sc:22012:770213 */ if (!(f7703(t34124)==FALSE_TYPE)) goto l4814; /* x158003 */ /* x158002 stalin.sc:22013:770238 */ /* x158001 stalin.sc:22013:770252 */ t34125 = a28510; /* x158000 stalin.sc:22013:770239 */ a37755 = t34125; /* x283689 */ /* x283688 */ t34126 = a37755; /* x283687 */ if ((t34126.tag)==STRUCTURE_TYPE27673) goto l4814; /* x157997 */ /* x157996 stalin.sc:22014:770263 */ /* x157995 stalin.sc:22014:770281 */ t34127 = a28510; /* x157994 stalin.sc:22014:770264 */ if (!(f7700(t34127)==FALSE_TYPE)) goto l4814; /* x157991 */ /* x157990 stalin.sc:22015:770311 */ t34128 = a28510; /* x157989 stalin.sc:22015:770293 */ if (f7701(t34128)==FALSE_TYPE) goto l4815; l4814: return TRUE_TYPE; l4815: return FALSE_TYPE;} /* [inside top level 16806] */ unsigned f16806(struct w49 a28473) {struct w49 a37751; /* OBJ */ struct w49 t34129; struct w49 t34130; struct w49 t34131; struct w49 t34132; struct w49 t34133; struct w49 t34134; /* x157962 stalin.sc:22000:769917 */ /* x157962 stalin.sc:22000:769917 */ /* x157961 stalin.sc:22000:769921 */ /* x157960 stalin.sc:22000:769935 */ t34129 = a28473; /* x157959 stalin.sc:22000:769922 */ if (!(f7688(t34129)==FALSE_TYPE)) goto l4821; /* x157956 */ /* x157955 stalin.sc:22001:769943 */ /* x157954 stalin.sc:22001:769958 */ t34130 = a28473; /* x157953 stalin.sc:22001:769944 */ if (!(f7703(t34130)==FALSE_TYPE)) goto l4821; /* x157950 */ /* x157949 stalin.sc:22002:769966 */ /* x157948 stalin.sc:22002:769980 */ t34131 = a28473; /* x157947 stalin.sc:22002:769967 */ a37751 = t34131; /* x283673 */ /* x283672 */ t34132 = a37751; /* x283671 */ if ((t34132.tag)==STRUCTURE_TYPE27673) goto l4821; /* x157944 */ /* x157943 stalin.sc:22003:769988 */ /* x157942 stalin.sc:22003:770006 */ t34133 = a28473; /* x157941 stalin.sc:22003:769989 */ if (!(f7700(t34133)==FALSE_TYPE)) goto l4821; /* x157938 */ /* x157937 stalin.sc:22004:770033 */ t34134 = a28473; /* x157936 stalin.sc:22004:770015 */ if (f7701(t34134)==FALSE_TYPE) goto l4822; l4821: return TRUE_TYPE; l4822: return FALSE_TYPE;} /* [inside top level 16805] */ struct structure_type24753 *f16805(void) {struct structure_type24753 *a34988; /* OBJS */ /* x157964 stalin.sc:21999:769898 */ /* x157963 stalin.sc:21999:769904 */ /* x157927 stalin.sc:21999:769899 */ a34988 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34988==NULL) {backtrace("stalin.sc", 21999, 769898); out_of_memory_error();} a34988->s0.tag = NATIVE_PROCEDURE_TYPE22474; a34988->s1.tag = NULL_TYPE; /* x271983 */ return a34988;} /* [inside top level 16800] */ unsigned f16800(struct w49 a28464) {struct w49 a37750; /* OBJ */ struct w49 t34135; struct w49 t34136; struct w49 t34137; struct w49 t34138; struct w49 t34139; struct w49 t34140; /* x157923 stalin.sc:21994:769775 */ /* x157923 stalin.sc:21994:769775 */ /* x157922 stalin.sc:21994:769779 */ /* x157921 stalin.sc:21994:769793 */ t34135 = a28464; /* x157920 stalin.sc:21994:769780 */ if (!(f7688(t34135)==FALSE_TYPE)) goto l4828; /* x157917 */ /* x157916 stalin.sc:21995:769801 */ /* x157915 stalin.sc:21995:769816 */ t34136 = a28464; /* x157914 stalin.sc:21995:769802 */ if (!(f7703(t34136)==FALSE_TYPE)) goto l4828; /* x157911 */ /* x157910 stalin.sc:21996:769824 */ /* x157909 stalin.sc:21996:769838 */ t34137 = a28464; /* x157908 stalin.sc:21996:769825 */ a37750 = t34137; /* x283669 */ /* x283668 */ t34138 = a37750; /* x283667 */ if ((t34138.tag)==STRUCTURE_TYPE27673) goto l4828; /* x157905 */ /* x157904 stalin.sc:21997:769846 */ /* x157903 stalin.sc:21997:769864 */ t34139 = a28464; /* x157902 stalin.sc:21997:769847 */ if (!(f7700(t34139)==FALSE_TYPE)) goto l4828; /* x157899 */ /* x157898 stalin.sc:21998:769891 */ t34140 = a28464; /* x157897 stalin.sc:21998:769873 */ if (f7701(t34140)==FALSE_TYPE) goto l4829; l4828: return TRUE_TYPE; l4829: return FALSE_TYPE;} /* [inside top level 16799] */ struct structure_type24753 *f16799(void) {struct structure_type24753 *a35071; /* OBJS */ /* x157925 stalin.sc:21993:769756 */ /* x157924 stalin.sc:21993:769762 */ /* x157888 stalin.sc:21993:769757 */ a35071 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35071==NULL) {backtrace("stalin.sc", 21993, 769756); out_of_memory_error();} a35071->s0.tag = NATIVE_PROCEDURE_TYPE22443; a35071->s1.tag = NULL_TYPE; /* x272149 */ return a35071;} /* [inside top level 16793] */ struct p16282 *f16793(void) {unsigned t34141; /* x157886 stalin.sc:21986:769570 */ /* x157885 stalin.sc:21987:769604 */ /* x157849 stalin.sc:21986:769571 */ t34141 = (unsigned)NATIVE_PROCEDURE_TYPE19477; return f16282(t34141);} /* [inside top level 16785] */ struct w12224 f16785(int a28413) {int t34142; struct w227957 t34143; struct w49 t34144; /* x157810 stalin.sc:21977:769223 */ /* x157808 stalin.sc:21977:769230 */ /* x157809 stalin.sc:21977:769256 */ t34142 = a28413; /* x157806 stalin.sc:21977:769224 */ t34143.tag = NATIVE_PROCEDURE_TYPE22473; t34144.tag = FIXNUM_TYPE; t34144.value.fixnum_type = t34142; return f1149(t34143, t34144);} /* [inside top level 16783] */ struct w12224 f16783(int a28408) {int t34145; struct w227957 t34146; struct w49 t34147; /* x157804 stalin.sc:21976:769186 */ /* x157802 stalin.sc:21976:769193 */ /* x157803 stalin.sc:21976:769219 */ t34145 = a28408; /* x157800 stalin.sc:21976:769187 */ t34146.tag = NATIVE_PROCEDURE_TYPE22444; t34147.tag = FIXNUM_TYPE; t34147.value.fixnum_type = t34145; return f1149(t34146, t34147);} /* [inside top level 16774] */ struct w12224 f16774(int a28364) {int t34148; struct w227957 t34149; struct w49 t34150; /* x157757 stalin.sc:21967:768857 */ /* x157755 stalin.sc:21967:768864 */ /* x157756 stalin.sc:21967:768890 */ t34148 = a28364; /* x157753 stalin.sc:21967:768858 */ t34149.tag = NATIVE_PROCEDURE_TYPE22472; t34150.tag = FIXNUM_TYPE; t34150.value.fixnum_type = t34148; return f1149(t34149, t34150);} /* [inside top level 16772] */ struct w12224 f16772(int a28359) {int t34151; struct w227957 t34152; struct w49 t34153; /* x157751 stalin.sc:21966:768820 */ /* x157749 stalin.sc:21966:768827 */ /* x157750 stalin.sc:21966:768853 */ t34151 = a28359; /* x157747 stalin.sc:21966:768821 */ t34152.tag = NATIVE_PROCEDURE_TYPE22442; t34153.tag = FIXNUM_TYPE; t34153.value.fixnum_type = t34151; return f1149(t34152, t34153);} /* [inside top level 16763] */ struct w12224 f16763(int a28315) {int t34154; struct w227957 t34155; struct w49 t34156; /* x157704 stalin.sc:21957:768492 */ /* x157702 stalin.sc:21957:768499 */ /* x157703 stalin.sc:21957:768525 */ t34154 = a28315; /* x157700 stalin.sc:21957:768493 */ t34155.tag = NATIVE_PROCEDURE_TYPE22471; t34156.tag = FIXNUM_TYPE; t34156.value.fixnum_type = t34154; return f1149(t34155, t34156);} /* [inside top level 16761] */ struct w12224 f16761(int a28310) {int t34157; struct w227957 t34158; struct w49 t34159; /* x157698 stalin.sc:21956:768455 */ /* x157696 stalin.sc:21956:768462 */ /* x157697 stalin.sc:21956:768488 */ t34157 = a28310; /* x157694 stalin.sc:21956:768456 */ t34158.tag = NATIVE_PROCEDURE_TYPE22445; t34159.tag = FIXNUM_TYPE; t34159.value.fixnum_type = t34157; return f1149(t34158, t34159);} /* [inside top level 16752] */ struct w12224 f16752(int a28266) {int t34160; struct w227957 t34161; struct w49 t34162; /* x157651 stalin.sc:21947:768128 */ /* x157649 stalin.sc:21947:768135 */ /* x157650 stalin.sc:21947:768161 */ t34160 = a28266; /* x157647 stalin.sc:21947:768129 */ t34161.tag = NATIVE_PROCEDURE_TYPE22470; t34162.tag = FIXNUM_TYPE; t34162.value.fixnum_type = t34160; return f1149(t34161, t34162);} /* [inside top level 16750] */ struct w12224 f16750(int a28261) {int t34163; struct w227957 t34164; struct w49 t34165; /* x157645 stalin.sc:21946:768091 */ /* x157643 stalin.sc:21946:768098 */ /* x157644 stalin.sc:21946:768124 */ t34163 = a28261; /* x157641 stalin.sc:21946:768092 */ t34164.tag = NATIVE_PROCEDURE_TYPE22440; t34165.tag = FIXNUM_TYPE; t34165.value.fixnum_type = t34163; return f1149(t34164, t34165);} /* [inside top level 16741] */ struct w12224 f16741(int a28217) {int t34166; struct w227957 t34167; struct w49 t34168; /* x157542 stalin.sc:21927:767464 */ /* x157540 stalin.sc:21927:767471 */ /* x157541 stalin.sc:21927:767497 */ t34166 = a28217; /* x157538 stalin.sc:21927:767465 */ t34167.tag = NATIVE_PROCEDURE_TYPE22469; t34168.tag = FIXNUM_TYPE; t34168.value.fixnum_type = t34166; return f1149(t34167, t34168);} /* [inside top level 16739] */ struct w12224 f16739(int a28212) {int t34169; struct w227957 t34170; struct w49 t34171; /* x157536 stalin.sc:21926:767427 */ /* x157534 stalin.sc:21926:767434 */ /* x157535 stalin.sc:21926:767460 */ t34169 = a28212; /* x157532 stalin.sc:21926:767428 */ t34170.tag = NATIVE_PROCEDURE_TYPE22441; t34171.tag = FIXNUM_TYPE; t34171.value.fixnum_type = t34169; return f1149(t34170, t34171);} /* [inside top level 16737] */ struct structure_type24753 *f16737(struct p16735 *p16737, unsigned a28206) {char *t34172; struct structure_type27745 *t34173; unsigned t34174; struct w49 t34175; /* x157514 stalin.sc:21921:767278 */ /* x157511 stalin.sc:21921:767293 */ t34172 = "inexact"; /* x157512 stalin.sc:21921:767303 */ t34173 = p16737->a28190; /* x157513 stalin.sc:21921:767305 */ t34174 = a28206; /* x157510 stalin.sc:21921:767279 */ t34175.tag = STRUCTURE_TYPE27745; t34175.value.structure_type27745 = t34173; return f15534(t34172, t34175, t34174);} /* [inside top level 16736] */ struct w49 f16736(struct p16735 *p16736, struct w49 a28205) {struct w49 a21496; /* U */ struct structure_type27501 *t34176; unsigned t34177; struct w49 t34178; struct w49 t34179; struct w49 t34180; struct w49 t34181; char *t34182; /* x157508 stalin.sc:21920:767216 */ /* x157504 stalin.sc:21920:767235 */ t34176 = p16736->a28189; /* x157507 stalin.sc:21920:767237 */ /* x157506 stalin.sc:21920:767252 */ t34178 = a28205; /* x157505 stalin.sc:21920:767238 */ a21496 = t34178; /* x64997 */ /* x64996 stalin.sc:2290:75527 */ /* x64989 stalin.sc:2290:75535 */ /* x64988 stalin.sc:2290:75549 */ t34181 = a21496; /* x64987 stalin.sc:2290:75536 */ if (f7688(t34181)==FALSE_TYPE) goto l4840; /* x64991 */ /* x64990 */ goto l4841; l4840: /* x64995 */ /* x64994 */ /* x64993 stalin.sc:2290:75552 */ /* x64992 stalin.sc:2290:75553 */ /* x295785 QobiScheme.sc:166:5314 */ /* x295784 QobiScheme.sc:166:5321 */ t34182 = "This shouldn\'t happen"; /* x295783 QobiScheme.sc:166:5315 */ stalin_panic(t34182); l4841: /* x64986 */ /* x64985 stalin.sc:2291:75564 */ /* x64985 stalin.sc:2291:75564 */ /* x64984 stalin.sc:2291:75568 */ /* x64983 stalin.sc:2291:75582 */ t34179 = a21496; /* x64982 stalin.sc:2291:75569 */ if (!(f7684(t34179)==FALSE_TYPE)) goto l4835; /* x64979 */ /* x64978 stalin.sc:2291:75604 */ t34180 = a21496; /* x64977 stalin.sc:2291:75586 */ if (f7687(t34180)==FALSE_TYPE) goto l4836; l4835: t34177 = TRUE_TYPE; goto l4837; l4836: t34177 = FALSE_TYPE; l4837: /* x157503 stalin.sc:21920:767217 */ return f14710(t34176, t34177);} /* [inside top level 16724] */ unsigned f16724(struct w49 a28167) {struct w49 t34183; struct w49 t34184; /* x157449 stalin.sc:21908:766857 */ /* x157449 stalin.sc:21908:766857 */ /* x157442 stalin.sc:21908:766862 */ /* x157441 stalin.sc:21908:766876 */ t34183 = a28167; /* x157440 stalin.sc:21908:766863 */ if (f7688(t34183)==FALSE_TYPE) goto l4843; /* x157447 */ /* x157446 stalin.sc:21908:766884 */ /* x157445 stalin.sc:21908:766898 */ t34184 = a28167; /* x157444 stalin.sc:21908:766885 */ if (!(f7683(t34184)==FALSE_TYPE)) goto l4843; return TRUE_TYPE; l4843: return FALSE_TYPE;} /* [inside top level 16723] */ struct structure_type24753 *f16723(void) {struct structure_type24753 *a35072; /* OBJS */ /* x157451 stalin.sc:21908:766839 */ /* x157450 stalin.sc:21908:766845 */ /* x157439 stalin.sc:21908:766840 */ a35072 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35072==NULL) {backtrace("stalin.sc", 21908, 766839); out_of_memory_error();} a35072->s0.tag = NATIVE_PROCEDURE_TYPE22439; a35072->s1.tag = NULL_TYPE; /* x272151 */ return a35072;} /* [inside top level 16721] */ struct structure_type24753 *f16721(struct p16719 *p16721, unsigned a28159) {char *t34185; struct structure_type27745 *t34186; unsigned t34187; struct w49 t34188; /* x157421 stalin.sc:21903:766695 */ /* x157418 stalin.sc:21903:766710 */ t34185 = "exact"; /* x157419 stalin.sc:21903:766718 */ t34186 = p16721->a28143; /* x157420 stalin.sc:21903:766720 */ t34187 = a28159; /* x157417 stalin.sc:21903:766696 */ t34188.tag = STRUCTURE_TYPE27745; t34188.value.structure_type27745 = t34186; return f15534(t34185, t34188, t34187);} /* [inside top level 16720] */ struct w49 f16720(struct p16719 *p16720, struct w49 a28158) {struct w49 a21494; /* U */ struct structure_type27501 *t34189; unsigned t34190; struct w49 t34191; struct w49 t34192; struct w49 t34193; char *t34194; /* x157415 stalin.sc:21902:766635 */ /* x157411 stalin.sc:21902:766654 */ t34189 = p16720->a28142; /* x157414 stalin.sc:21902:766656 */ /* x157413 stalin.sc:21902:766669 */ t34191 = a28158; /* x157412 stalin.sc:21902:766657 */ a21494 = t34191; /* x64972 */ /* x64971 stalin.sc:2286:75444 */ /* x64964 stalin.sc:2286:75452 */ /* x64963 stalin.sc:2286:75466 */ t34193 = a21494; /* x64962 stalin.sc:2286:75453 */ if (f7688(t34193)==FALSE_TYPE) goto l4847; /* x64966 */ /* x64965 */ goto l4848; l4847: /* x64970 */ /* x64969 */ /* x64968 stalin.sc:2286:75469 */ /* x64967 stalin.sc:2286:75470 */ /* x295777 QobiScheme.sc:166:5314 */ /* x295776 QobiScheme.sc:166:5321 */ t34194 = "This shouldn\'t happen"; /* x295775 QobiScheme.sc:166:5315 */ stalin_panic(t34194); l4848: /* x64961 */ /* x64960 stalin.sc:2287:75481 */ /* x64959 stalin.sc:2287:75495 */ t34192 = a21494; /* x64958 stalin.sc:2287:75482 */ t34190 = f7683(t34192); /* x157410 stalin.sc:21902:766636 */ return f14710(t34189, t34190);} /* [inside top level 16709] */ unsigned f16709(struct w49 a28124) {struct w49 t34195; struct w49 t34196; /* x157360 stalin.sc:21891:766297 */ /* x157360 stalin.sc:21891:766297 */ /* x157353 stalin.sc:21891:766302 */ /* x157352 stalin.sc:21891:766316 */ t34195 = a28124; /* x157351 stalin.sc:21891:766303 */ if (f7688(t34195)==FALSE_TYPE) goto l4850; /* x157358 */ /* x157357 stalin.sc:21891:766324 */ /* x157356 stalin.sc:21891:766338 */ t34196 = a28124; /* x157355 stalin.sc:21891:766325 */ if (!(f7683(t34196)==FALSE_TYPE)) goto l4850; return TRUE_TYPE; l4850: return FALSE_TYPE;} /* [inside top level 16708] */ struct structure_type24753 *f16708(void) {struct structure_type24753 *a34990; /* OBJS */ /* x157362 stalin.sc:21891:766279 */ /* x157361 stalin.sc:21891:766285 */ /* x157350 stalin.sc:21891:766280 */ a34990 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34990==NULL) {backtrace("stalin.sc", 21891, 766279); out_of_memory_error();} a34990->s0.tag = NATIVE_PROCEDURE_TYPE22468; a34990->s1.tag = NULL_TYPE; /* x271987 */ return a34990;} /* [inside top level 16700] */ struct w49 f16700(struct p16699 *p16700, struct w49 a28111) {struct w49 t34197; struct w49 t34198; struct w49 t34199; struct p16699 *t34200; struct structure_type27501 *t34201; struct p16699 *t34202; struct structure_type27501 *t34203; struct structure_type24753 *t34204; struct structure_type24753 *t34205; struct structure_type24753 *t34206; struct structure_type24753 *t34207; struct w49 t34208; struct structure_type24753 *t34209; struct w49 t34210; struct w49 t34211; struct w49 t34212; struct w49 t34213; struct w49 t34214; struct structure_type24753 *t34215; struct structure_type24753 *t34216; struct w49 t34217; struct w49 t34218; struct w49 t34219; struct w49 t34220; struct w49 t34221; struct w49 t34222; struct structure_type24753 *t34223; struct w49 t34224; struct w49 t34225; struct w49 t34226; struct w49 t34227; struct w49 t34228; struct p16699 *t34229; struct structure_type27501 *t34230; struct structure_type24753 *t34231; struct w49 t34232; struct structure_type24753 *t34233; struct w49 t34234; struct w49 t34235; struct w49 t34236; struct w49 t34237; struct w49 t34238; struct w49 t34239; struct w49 t34240; struct w49 t34241; struct p16699 *t34242; struct structure_type27501 *t34243; struct p16699 *p16701; struct p16699 *p16702; struct p16699 *p16703; struct p16699 *p16704; /* x157325 stalin.sc:21875:765766 */ /* x157253 stalin.sc:21876:765777 */ /* x157252 stalin.sc:21876:765791 */ t34197 = a28111; /* x157251 stalin.sc:21876:765778 */ if (f7683(t34197)==FALSE_TYPE) goto l4854; /* x157258 */ /* x157257 */ t34242 = p16700; p16701 = t34242; /* x157256 stalin.sc:21876:765795 */ /* x157255 stalin.sc:21876:765808 */ t34243 = p16701->a28095; /* x157254 stalin.sc:21876:765796 */ return f14707(t34243); l4854: /* x157324 */ /* x157261 stalin.sc:21877:765817 */ /* x157260 stalin.sc:21877:765831 */ t34198 = a28111; /* x157259 stalin.sc:21877:765818 */ if (f7684(t34198)==FALSE_TYPE) goto l4856; /* x157280 */ /* x157279 */ t34229 = p16700; p16702 = t34229; /* x157278 stalin.sc:21878:765840 */ /* x157263 stalin.sc:21878:765854 */ t34230 = p16702->a28095; /* x157277 stalin.sc:21878:765856 */ /* x157269 stalin.sc:21878:765862 */ /* x157266 stalin.sc:21878:765871 */ t34235 = p16702->a28105; /* x157267 stalin.sc:21878:765874 */ t34236 = a28111; /* x157268 stalin.sc:21878:765877 */ t34237 = p16702->a28106; /* x157265 stalin.sc:21878:765863 */ t34232 = f14485(t34235, t34236, t34237); /* x157276 stalin.sc:21878:765881 */ /* x157275 stalin.sc:21878:765889 */ /* x157272 stalin.sc:21878:765898 */ t34239 = p16702->a28105; /* x157273 stalin.sc:21878:765901 */ t34240 = a28111; /* x157274 stalin.sc:21878:765904 */ t34241 = p16702->a28106; /* x157271 stalin.sc:21878:765890 */ t34238 = f14485(t34239, t34240, t34241); /* x157270 stalin.sc:21878:765882 */ t34233 = f13698(t34238); /* x157264 stalin.sc:21878:765857 */ t34234.tag = STRUCTURE_TYPE24753; t34234.value.structure_type24753 = t34233; t34231 = f13591(t34232, t34234); /* x157262 stalin.sc:21878:765841 */ return f14709(t34230, t34231); l4856: /* x157323 */ /* x157283 stalin.sc:21879:765917 */ /* x157282 stalin.sc:21879:765936 */ t34199 = a28111; /* x157281 stalin.sc:21879:765918 */ if (f7687(t34199)==FALSE_TYPE) goto l4858; /* x157317 */ /* x157316 */ t34202 = p16700; p16703 = t34202; /* x157315 stalin.sc:21880:765945 */ /* x157285 stalin.sc:21880:765959 */ t34203 = p16703->a28095; /* x157314 stalin.sc:21881:765966 */ /* x157313 stalin.sc:21882:766011 */ /* x157303 stalin.sc:21882:766017 */ /* x157302 stalin.sc:21882:766022 */ /* x157299 stalin.sc:21882:766031 */ t34220 = p16703->a28105; /* x157300 stalin.sc:21882:766034 */ t34221 = a28111; /* x157301 stalin.sc:21882:766037 */ t34222 = p16703->a28106; /* x157298 stalin.sc:21882:766023 */ t34219 = f14485(t34220, t34221, t34222); /* x157297 stalin.sc:21882:766018 */ t34215 = f14286(t34219); /* x157312 stalin.sc:21883:766052 */ /* x157311 stalin.sc:21883:766060 */ /* x157310 stalin.sc:21883:766065 */ /* x157307 stalin.sc:21883:766074 */ t34226 = p16703->a28105; /* x157308 stalin.sc:21883:766077 */ t34227 = a28111; /* x157309 stalin.sc:21883:766080 */ t34228 = p16703->a28106; /* x157306 stalin.sc:21883:766066 */ t34225 = f14485(t34226, t34227, t34228); /* x157305 stalin.sc:21883:766061 */ t34223 = f14286(t34225); /* x157304 stalin.sc:21883:766053 */ t34224.tag = STRUCTURE_TYPE24753; t34224.value.structure_type24753 = t34223; t34216 = f13698(t34224); /* x157296 stalin.sc:21882:766012 */ t34217.tag = STRUCTURE_TYPE24753; t34217.value.structure_type24753 = t34215; t34218.tag = STRUCTURE_TYPE24753; t34218.value.structure_type24753 = t34216; t34206 = f13591(t34217, t34218); /* x157295 stalin.sc:21881:765972 */ /* x157294 stalin.sc:21881:765981 */ /* x157293 stalin.sc:21881:765986 */ /* x157290 stalin.sc:21881:765995 */ t34212 = p16703->a28105; /* x157291 stalin.sc:21881:765998 */ t34213 = a28111; /* x157292 stalin.sc:21881:766001 */ t34214 = p16703->a28106; /* x157289 stalin.sc:21881:765987 */ t34211 = f14485(t34212, t34213, t34214); /* x157288 stalin.sc:21881:765982 */ t34209 = f14278(t34211); /* x157287 stalin.sc:21881:765973 */ t34210.tag = STRUCTURE_TYPE24753; t34210.value.structure_type24753 = t34209; t34205 = f13593(t34210); /* x157286 stalin.sc:21881:765967 */ t34208.tag = STRUCTURE_TYPE24753; t34208.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t34208.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21881, 765966); out_of_memory_error();} t34208.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t34208.value.structure_type24753->s0.value.structure_type24753 = t34206; t34208.value.structure_type24753->s1.tag = NULL_TYPE; t34207 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t34207==NULL) {backtrace("stalin.sc", 21881, 765966); out_of_memory_error();} t34207->s0.tag = STRUCTURE_TYPE24753; t34207->s0.value.structure_type24753 = t34205; t34207->s1 = t34208; t34204 = f13564(t34207); /* x157284 stalin.sc:21880:765946 */ return f14709(t34203, t34204); l4858: /* x157322 */ /* x157321 */ t34200 = p16700; p16704 = t34200; /* x157320 stalin.sc:21884:766100 */ /* x157319 stalin.sc:21884:766114 */ t34201 = p16704->a28095; /* x157318 stalin.sc:21884:766101 */ return f14708(t34201);} /* [inside top level 16686] */ unsigned f16686(struct w49 a28075) {struct w49 t34244; struct w49 t34245; /* x157187 stalin.sc:21861:765333 */ /* x157187 stalin.sc:21861:765333 */ /* x157186 stalin.sc:21861:765337 */ /* x157185 stalin.sc:21861:765342 */ /* x157184 stalin.sc:21861:765356 */ t34244 = a28075; /* x157183 stalin.sc:21861:765343 */ if (f7688(t34244)==FALSE_TYPE) goto l4859; /* x157179 */ /* x157178 stalin.sc:21861:765365 */ /* x157177 stalin.sc:21861:765379 */ t34245 = a28075; /* x157176 stalin.sc:21861:765366 */ if (!(f7683(t34245)==FALSE_TYPE)) goto l4860; l4859: return TRUE_TYPE; l4860: return FALSE_TYPE;} /* [inside top level 16685] */ struct structure_type24753 *f16685(void) {struct structure_type24753 *a34991; /* OBJS */ /* x157189 stalin.sc:21861:765315 */ /* x157188 stalin.sc:21861:765321 */ /* x157172 stalin.sc:21861:765316 */ a34991 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34991==NULL) {backtrace("stalin.sc", 21861, 765315); out_of_memory_error();} a34991->s0.tag = NATIVE_PROCEDURE_TYPE22467; a34991->s1.tag = NULL_TYPE; /* x271989 */ return a34991;} /* [inside top level 16678] */ struct w49 f16678(struct p16677 *p16678, struct w49 a28062) {struct w49 t34246; struct w49 t34247; struct p16677 *t34248; struct structure_type27501 *t34249; struct p16677 *t34250; struct structure_type27501 *t34251; struct structure_type24753 *t34252; struct structure_type24753 *t34253; struct w49 t34254; struct w49 t34255; struct w49 t34256; struct w49 t34257; struct w49 t34258; struct p16677 *t34259; struct structure_type27501 *t34260; struct p16677 *p16679; struct p16677 *p16680; struct p16677 *p16681; /* x157147 stalin.sc:21851:764974 */ /* x157118 stalin.sc:21851:764981 */ /* x157117 stalin.sc:21851:765010 */ t34246 = a28062; /* x157116 stalin.sc:21851:764982 */ if (f7685(t34246)==FALSE_TYPE) goto l4864; /* x157123 */ /* x157122 */ t34259 = p16678; p16679 = t34259; /* x157121 stalin.sc:21851:765014 */ /* x157120 stalin.sc:21851:765027 */ t34260 = p16679->a28046; /* x157119 stalin.sc:21851:765015 */ return f14707(t34260); l4864: /* x157146 */ /* x157126 stalin.sc:21852:765039 */ /* x157125 stalin.sc:21852:765058 */ t34247 = a28062; /* x157124 stalin.sc:21852:765040 */ if (f7687(t34247)==FALSE_TYPE) goto l4866; /* x157140 */ /* x157139 */ t34250 = p16678; p16680 = t34250; /* x157138 stalin.sc:21853:765070 */ /* x157128 stalin.sc:21853:765084 */ t34251 = p16680->a28046; /* x157137 stalin.sc:21853:765086 */ /* x157136 stalin.sc:21853:765095 */ /* x157135 stalin.sc:21853:765100 */ /* x157132 stalin.sc:21853:765109 */ t34256 = p16680->a28056; /* x157133 stalin.sc:21853:765112 */ t34257 = a28062; /* x157134 stalin.sc:21853:765115 */ t34258 = p16680->a28057; /* x157131 stalin.sc:21853:765101 */ t34255 = f14485(t34256, t34257, t34258); /* x157130 stalin.sc:21853:765096 */ t34253 = f14278(t34255); /* x157129 stalin.sc:21853:765087 */ t34254.tag = STRUCTURE_TYPE24753; t34254.value.structure_type24753 = t34253; t34252 = f13593(t34254); /* x157127 stalin.sc:21853:765071 */ return f14709(t34251, t34252); l4866: /* x157145 */ /* x157144 */ t34248 = p16678; p16681 = t34248; /* x157143 stalin.sc:21854:765136 */ /* x157142 stalin.sc:21854:765150 */ t34249 = p16681->a28046; /* x157141 stalin.sc:21854:765137 */ return f14708(t34249);} /* [inside top level 16664] */ unsigned f16664(struct w49 a28026) {struct w49 t34261; struct w49 t34262; struct w49 t34263; /* x157052 stalin.sc:21835:764443 */ /* x157052 stalin.sc:21835:764443 */ /* x157051 stalin.sc:21835:764447 */ /* x157050 stalin.sc:21835:764452 */ /* x157049 stalin.sc:21835:764466 */ t34261 = a28026; /* x157048 stalin.sc:21835:764453 */ if (f7688(t34261)==FALSE_TYPE) goto l4867; /* x157044 */ /* x157037 stalin.sc:21836:764480 */ /* x157036 stalin.sc:21836:764485 */ /* x157035 stalin.sc:21836:764499 */ t34262 = a28026; /* x157034 stalin.sc:21836:764486 */ if (!(f7683(t34262)==FALSE_TYPE)) goto l4868; /* x157042 */ /* x157041 stalin.sc:21836:764508 */ /* x157040 stalin.sc:21836:764522 */ t34263 = a28026; /* x157039 stalin.sc:21836:764509 */ if (!(f7684(t34263)==FALSE_TYPE)) goto l4868; l4867: return TRUE_TYPE; l4868: return FALSE_TYPE;} /* [inside top level 16663] */ struct structure_type24753 *f16663(void) {struct structure_type24753 *a34992; /* OBJS */ /* x157054 stalin.sc:21834:764424 */ /* x157053 stalin.sc:21834:764430 */ /* x157030 stalin.sc:21834:764425 */ a34992 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34992==NULL) {backtrace("stalin.sc", 21834, 764424); out_of_memory_error();} a34992->s0.tag = NATIVE_PROCEDURE_TYPE22466; a34992->s1.tag = NULL_TYPE; /* x271991 */ return a34992;} /* [inside top level 16652] */ unsigned f16652(struct w49 a27981) {struct w49 t34264; /* x156970 stalin.sc:21821:763997 */ /* x156970 stalin.sc:21821:763997 */ /* x156969 stalin.sc:21821:764002 */ /* x156968 stalin.sc:21821:764016 */ t34264 = a27981; /* x156967 stalin.sc:21821:764003 */ if (!(f7688(t34264)==FALSE_TYPE)) goto l4873; return TRUE_TYPE; l4873: return FALSE_TYPE;} /* [inside top level 16651] */ struct structure_type24753 *f16651(void) {struct structure_type24753 *a34993; /* OBJS */ /* x156972 stalin.sc:21821:763979 */ /* x156971 stalin.sc:21821:763985 */ /* x156965 stalin.sc:21821:763980 */ a34993 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34993==NULL) {backtrace("stalin.sc", 21821, 763979); out_of_memory_error();} a34993->s0.tag = NATIVE_PROCEDURE_TYPE22465; a34993->s1.tag = NULL_TYPE; /* x271993 */ return a34993;} /* [inside top level 16648] */ struct structure_type24753 *f16648(struct p16645 *p16648, unsigned a27969) {char *t34265; struct structure_type27745 *t34266; unsigned t34267; struct w49 t34268; /* x156943 stalin.sc:21815:763800 */ /* x156940 stalin.sc:21815:763815 */ t34265 = "string_to_uninterned_symbol"; /* x156941 stalin.sc:21815:763845 */ t34266 = p16648->a27952; /* x156942 stalin.sc:21815:763847 */ t34267 = a27969; /* x156939 stalin.sc:21815:763801 */ t34268.tag = STRUCTURE_TYPE27745; t34268.value.structure_type27745 = t34266; return f15534(t34265, t34268, t34267);} /* [inside top level 16646] */ struct w49 f16646(struct p16645 *p16646, struct w49 a27967) {struct structure_type27501 *t34269; struct w49 t34270; struct p16646 *t34271; unsigned t34272; struct w49 t34273; struct w49 t34274; struct w49 t34275; struct p16646 *e16646; e16646 = (struct p16646 *)alloca(sizeof(struct p16646)); if (e16646==NULL) {backtrace("stalin.sc", 21809, 763626); out_of_memory_error();} e16646->a27967 = a27967; /* x156937 stalin.sc:21810:763642 */ /* x156919 stalin.sc:21810:763649 */ t34269 = p16646->a27951; /* x156924 stalin.sc:21811:763654 */ /* x156921 stalin.sc:21811:763663 */ t34273 = p16646->a27961; /* x156922 stalin.sc:21811:763666 */ t34274 = e16646->a27967; /* x156923 stalin.sc:21811:763669 */ t34275 = p16646->a27962; /* x156920 stalin.sc:21811:763655 */ t34270 = f14485(t34273, t34274, t34275); /* x156936 stalin.sc:21812:763676 */ t34271 = e16646; /* x156918 stalin.sc:21810:763643 */ t34272 = (unsigned)t34271; return f15508(t34269, t34270, t34272);} /* [inside top level 16635] */ struct structure_type24753 *f16635(struct p16629 *p16635, unsigned a27923) {char *t34276; struct structure_type27745 *t34277; unsigned t34278; struct w49 t34279; /* x156859 stalin.sc:21790:763204 */ /* x156856 stalin.sc:21790:763219 */ t34276 = "symbol_string"; /* x156857 stalin.sc:21790:763235 */ t34277 = p16635->a27906; /* x156858 stalin.sc:21790:763237 */ t34278 = a27923; /* x156855 stalin.sc:21790:763205 */ t34279.tag = STRUCTURE_TYPE27745; t34279.value.structure_type27745 = t34277; return f15534(t34276, t34279, t34278);} /* [inside top level 16631] */ struct w49 f16631(struct p16629 *p16631, struct w49 a27922) {struct w49 a19392; /* S */ struct w49 a38269; /* OBJ */ struct w49 a38312; /* OBJ */ struct w49 t34280; struct w49 t34281; struct w49 t34282; struct w49 t34283; char *t34284; struct p16629 *t34285; struct structure_type27501 *t34286; struct w49 t34287; unsigned t34288; struct w49 t34289; struct w49 t34290; struct w49 t34291; struct p16629 *t34292; struct structure_type27501 *t34293; struct structure_type24753 *t34294; struct w49 t34295; unsigned t34296; char *t34297; struct w49 t34298; struct w49 t34299; struct w49 t34300; struct w49 t34301; struct p16629 *p16632; struct p16629 *p16633; /* x156853 stalin.sc:21783:762948 */ /* x156820 stalin.sc:21784:762960 */ /* x156819 stalin.sc:21784:762983 */ t34280 = a27922; /* x156818 stalin.sc:21784:762961 */ a38312 = t34280; /* x285917 */ /* x285916 */ t34281 = a38312; /* x285915 */ if (!((t34281.tag)==STRUCTURE_TYPE27776)) goto l4876; /* x156833 */ /* x156832 */ t34292 = p16631; p16632 = t34292; /* x156831 stalin.sc:21785:762993 */ /* x156822 stalin.sc:21785:763000 */ t34293 = p16632->a27905; /* x156829 stalin.sc:21786:763008 */ /* x156828 stalin.sc:21786:763018 */ /* x156827 stalin.sc:21786:763034 */ /* x156826 stalin.sc:21786:763061 */ t34300 = a27922; /* x156825 stalin.sc:21786:763035 */ a19392 = t34300; /* x51192 */ /* x51191 */ t34301 = a19392; /* x51190 */ if (!((t34301.tag)==STRUCTURE_TYPE27776)) {backtrace_internal("INTERNAL-SYMBOL-TYPE-NAME[5803]"); structure_ref_error();} t34299 = t34301.value.structure_type27776->s0; /* x268252 stalin.sc:21786:763019 */ if (!((t34299.tag)==EXTERNAL_SYMBOL_TYPE)) {backtrace("stalin.sc", 21786, 763018); symbol_string_error();} t34297 = t34299.value.external_symbol_type; /* x156823 stalin.sc:21786:763009 */ t34298.tag = STRING_TYPE; t34298.value.string_type = t34297; t34294 = f13532(t34298); /* x156830 stalin.sc:21787:763073 */ /* x156821 stalin.sc:21785:762994 */ t34295.tag = STRUCTURE_TYPE24753; t34295.value.structure_type24753 = t34294; t34296 = (unsigned)NATIVE_PROCEDURE_TYPE7822; return f15508(t34293, t34295, t34296); l4876: /* x156852 */ /* x156836 stalin.sc:21788:763094 */ /* x156835 stalin.sc:21788:763117 */ t34282 = a27922; /* x156834 stalin.sc:21788:763095 */ a38269 = t34282; /* x285745 */ /* x285744 */ t34283 = a38269; /* x285743 */ if (!((t34283.tag)==STRUCTURE_TYPE27779)) goto l4878; /* x156847 */ /* x156846 */ t34285 = p16631; p16633 = t34285; /* x156845 stalin.sc:21788:763121 */ /* x156838 stalin.sc:21788:763128 */ t34286 = p16633->a27905; /* x156843 stalin.sc:21788:763130 */ /* x156840 stalin.sc:21788:763139 */ t34289 = p16633->a27915; /* x156841 stalin.sc:21788:763142 */ t34290 = a27922; /* x156842 stalin.sc:21788:763145 */ t34291 = p16633->a27916; /* x156839 stalin.sc:21788:763131 */ t34287 = f14485(t34289, t34290, t34291); /* x156844 stalin.sc:21788:763149 */ /* x156837 stalin.sc:21788:763122 */ t34288 = (unsigned)NATIVE_PROCEDURE_TYPE7822; return f15508(t34286, t34287, t34288); l4878: /* x156851 */ /* x156850 */ /* x156849 stalin.sc:21789:763175 */ /* x156848 stalin.sc:21789:763176 */ /* x295837 QobiScheme.sc:166:5314 */ /* x295836 QobiScheme.sc:166:5321 */ t34284 = "This shouldn\'t happen"; /* x295835 QobiScheme.sc:166:5315 */ stalin_panic(t34284);} /* [inside top level 16614] */ unsigned f16614(struct w49 a27845) {struct w49 t34302; /* x156740 stalin.sc:21759:762294 */ /* x156740 stalin.sc:21759:762294 */ /* x156739 stalin.sc:21759:762299 */ /* x156738 stalin.sc:21759:762313 */ t34302 = a27845; /* x156737 stalin.sc:21759:762300 */ if (!(f7706(t34302)==FALSE_TYPE)) goto l4880; return TRUE_TYPE; l4880: return FALSE_TYPE;} /* [inside top level 16613] */ struct structure_type24753 *f16613(void) {struct structure_type24753 *a34996; /* OBJS */ /* x156742 stalin.sc:21759:762276 */ /* x156741 stalin.sc:21759:762282 */ /* x156735 stalin.sc:21759:762277 */ a34996 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34996==NULL) {backtrace("stalin.sc", 21759, 762276); out_of_memory_error();} a34996->s0.tag = NATIVE_PROCEDURE_TYPE22464; a34996->s1.tag = NULL_TYPE; /* x271999 */ return a34996;} /* [inside top level 16602] */ unsigned f16602(struct w49 a27800) {struct w49 t34303; /* x156675 stalin.sc:21746:761857 */ /* x156675 stalin.sc:21746:761857 */ /* x156674 stalin.sc:21746:761862 */ /* x156673 stalin.sc:21746:761874 */ t34303 = a27800; /* x156672 stalin.sc:21746:761863 */ if (!(f7677(t34303)==FALSE_TYPE)) goto l4883; return TRUE_TYPE; l4883: return FALSE_TYPE;} /* [inside top level 16601] */ struct structure_type24753 *f16601(void) {struct structure_type24753 *a34997; /* OBJS */ /* x156677 stalin.sc:21746:761839 */ /* x156676 stalin.sc:21746:761845 */ /* x156670 stalin.sc:21746:761840 */ a34997 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34997==NULL) {backtrace("stalin.sc", 21746, 761839); out_of_memory_error();} a34997->s0.tag = NATIVE_PROCEDURE_TYPE22463; a34997->s1.tag = NULL_TYPE; /* x272001 */ return a34997;} /* [inside top level 16597] */ struct w49 f16597(struct p16486 *p16597, struct w49 a27787) {struct w49 t34304; struct w49 t34305; struct structure_type27501 *t34306; struct structure_type27501 *t34307; struct structure_type24753 *t34308; struct w49 t34309; struct w49 t34310; struct w49 t34311; struct w49 t34312; struct w49 t34313; struct w49 t34314; struct w49 t34315; struct w49 t34316; struct w49 t34317; /* x156611 stalin.sc:21732:761498 */ /* x156591 stalin.sc:21732:761502 */ /* x156589 stalin.sc:21732:761511 */ t34304 = a27787; /* x156590 stalin.sc:21732:761514 */ t34305 = p16597->a27735; /* x156588 stalin.sc:21732:761503 */ if (f8033(t34304, t34305)==FALSE_TYPE) goto l4886; /* x156607 stalin.sc:21733:761523 */ /* x156593 stalin.sc:21734:761543 */ t34307 = p16597->a27722; /* x156606 stalin.sc:21735:761551 */ /* x156599 stalin.sc:21736:761570 */ /* x156596 stalin.sc:21736:761579 */ t34312 = p16597->a27732; /* x156597 stalin.sc:21736:761582 */ t34313 = a27787; /* x156598 stalin.sc:21736:761585 */ t34314 = p16597->a27733; /* x156595 stalin.sc:21736:761571 */ t34309 = f14485(t34312, t34313, t34314); /* x156604 stalin.sc:21736:761589 */ /* x156601 stalin.sc:21736:761598 */ t34315 = p16597->a27734; /* x156602 stalin.sc:21736:761601 */ t34316 = a27787; /* x156603 stalin.sc:21736:761604 */ t34317 = p16597->a27735; /* x156600 stalin.sc:21736:761590 */ t34310 = f14485(t34315, t34316, t34317); /* x156605 stalin.sc:21736:761608 */ t34311 = a27787; /* x156594 stalin.sc:21735:761552 */ t34308 = f13784(t34309, t34310, t34311); /* x156592 stalin.sc:21733:761524 */ return f14709(t34307, t34308); l4886: /* x156610 stalin.sc:21737:761618 */ /* x156609 stalin.sc:21737:761632 */ t34306 = p16597->a27722; /* x156608 stalin.sc:21737:761619 */ return f14708(t34306);} /* [inside top level 16596] */ unsigned f16596(struct w49 a27786) {struct w49 t34318; struct w49 t34319; /* x156583 stalin.sc:21727:761389 */ /* x156583 stalin.sc:21727:761389 */ /* x156576 stalin.sc:21727:761394 */ /* x156575 stalin.sc:21727:761399 */ /* x156574 stalin.sc:21727:761411 */ t34318 = a27786; /* x156573 stalin.sc:21727:761400 */ if (!(f7682(t34318)==FALSE_TYPE)) goto l4888; /* x156581 */ /* x156580 stalin.sc:21727:761421 */ /* x156579 stalin.sc:21727:761434 */ t34319 = a27786; /* x156578 stalin.sc:21727:761422 */ if (!(f8793(t34319)==FALSE_TYPE)) goto l4888; return TRUE_TYPE; l4888: return FALSE_TYPE;} /* [inside top level 16583] */ struct structure_type24753 *f16583(struct p16486 *p16583, struct w49 a27775) {struct structure_type24753 *t34320; struct structure_type24753 *t34321; struct structure_type24753 *t34322; struct w49 t34323; struct w49 t34324; struct w61020 t34325; struct w49 t34326; struct w49 t34327; struct w49 t34328; struct w49 t34329; struct w49 t34330; struct w49 t34331; struct w49 t34332; struct w49 t34333; struct w49 t34334; struct w49 t34335; struct w49 t34336; struct w49 t34337; /* x156359 stalin.sc:21669:759486 */ /* x156358 stalin.sc:21670:759537 */ /* x156352 stalin.sc:21670:759543 */ /* x156349 stalin.sc:21670:759552 */ t34332 = p16583->a27732; /* x156350 stalin.sc:21670:759555 */ t34333 = a27775; /* x156351 stalin.sc:21670:759557 */ t34334 = p16583->a27733; /* x156348 stalin.sc:21670:759544 */ t34330 = f14485(t34332, t34333, t34334); /* x156357 stalin.sc:21670:759561 */ /* x156354 stalin.sc:21670:759570 */ t34335 = p16583->a27734; /* x156355 stalin.sc:21670:759573 */ t34336 = a27775; /* x156356 stalin.sc:21670:759575 */ t34337 = p16583->a27735; /* x156353 stalin.sc:21670:759562 */ t34331 = f14485(t34335, t34336, t34337); /* x156347 stalin.sc:21670:759538 */ t34321 = f13591(t34330, t34331); /* x156346 stalin.sc:21669:759492 */ /* x156342 stalin.sc:21669:759498 */ /* x156340 stalin.sc:21669:759505 */ t34327 = p16583->a27732; /* x156341 stalin.sc:21669:759508 */ t34328 = p16583->a27733; /* x156339 stalin.sc:21669:759499 */ t34324 = f14478(t34327, t34328); /* x156345 stalin.sc:21669:759512 */ /* x156344 stalin.sc:21669:759524 */ t34329 = a27775; /* x156343 stalin.sc:21669:759513 */ t34325 = f14433(t34329); /* x156338 stalin.sc:21669:759493 */ t34326 = *((struct w49 *)(&t34325)); t34320 = f13591(t34324, t34326); /* x156337 stalin.sc:21669:759487 */ t34323.tag = STRUCTURE_TYPE24753; t34323.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t34323.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21669, 759486); out_of_memory_error();} t34323.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t34323.value.structure_type24753->s0.value.structure_type24753 = t34321; t34323.value.structure_type24753->s1.tag = NULL_TYPE; t34322 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t34322==NULL) {backtrace("stalin.sc", 21669, 759486); out_of_memory_error();} t34322->s0.tag = STRUCTURE_TYPE24753; t34322->s0.value.structure_type24753 = t34320; t34322->s1 = t34323; return f13564(t34322);} /* [inside top level 16567] */ struct structure_type24753 *f16567(struct p16486 *p16567, struct w49 a27768) {struct structure_type24753 *t34338; struct structure_type24753 *t34339; struct structure_type24753 *t34340; struct w49 t34341; struct w61020 t34342; struct w49 t34343; struct w49 t34344; struct w49 t34345; struct w49 t34346; struct w49 t34347; struct w49 t34348; struct w49 t34349; struct w49 t34350; struct w49 t34351; struct w49 t34352; struct w49 t34353; struct w49 t34354; struct w49 t34355; /* x156079 stalin.sc:21615:757255 */ /* x156078 stalin.sc:21616:757306 */ /* x156072 stalin.sc:21616:757312 */ /* x156069 stalin.sc:21616:757321 */ t34350 = p16567->a27732; /* x156070 stalin.sc:21616:757324 */ t34351 = a27768; /* x156071 stalin.sc:21616:757326 */ t34352 = p16567->a27733; /* x156068 stalin.sc:21616:757313 */ t34348 = f14485(t34350, t34351, t34352); /* x156077 stalin.sc:21616:757330 */ /* x156074 stalin.sc:21616:757339 */ t34353 = p16567->a27734; /* x156075 stalin.sc:21616:757342 */ t34354 = a27768; /* x156076 stalin.sc:21616:757344 */ t34355 = p16567->a27735; /* x156073 stalin.sc:21616:757331 */ t34349 = f14485(t34353, t34354, t34355); /* x156067 stalin.sc:21616:757307 */ t34339 = f13591(t34348, t34349); /* x156066 stalin.sc:21615:757261 */ /* x156061 stalin.sc:21615:757267 */ /* x156060 stalin.sc:21615:757279 */ t34345 = a27768; /* x156059 stalin.sc:21615:757268 */ t34342 = f14433(t34345); /* x156065 stalin.sc:21615:757282 */ /* x156063 stalin.sc:21615:757289 */ t34346 = p16567->a27734; /* x156064 stalin.sc:21615:757292 */ t34347 = p16567->a27735; /* x156062 stalin.sc:21615:757283 */ t34343 = f14478(t34346, t34347); /* x156058 stalin.sc:21615:757262 */ t34344 = *((struct w49 *)(&t34342)); t34338 = f13591(t34344, t34343); /* x156057 stalin.sc:21615:757256 */ t34341.tag = STRUCTURE_TYPE24753; t34341.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t34341.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21615, 757255); out_of_memory_error();} t34341.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t34341.value.structure_type24753->s0.value.structure_type24753 = t34339; t34341.value.structure_type24753->s1.tag = NULL_TYPE; t34340 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t34340==NULL) {backtrace("stalin.sc", 21615, 757255); out_of_memory_error();} t34340->s0.tag = STRUCTURE_TYPE24753; t34340->s0.value.structure_type24753 = t34338; t34340->s1 = t34341; return f13564(t34340);} /* [inside top level 16565] */ struct structure_type24753 *f16565(struct p16486 *p16565, struct w49 a27767) {unsigned t34356; unsigned t34357; struct w49 t34358; struct w49 t34359; struct w49 t34360; struct w49 t34361; struct structure_type24753 *t34362; struct structure_type24753 *t34363; struct structure_type24753 *t34364; struct structure_type24753 *t34365; struct w49 t34366; struct w49 t34367; struct structure_type24753 *t34368; char *t34369; struct w49 t34370; struct w49 t34371; struct w49 t34372; struct w49 t34373; unsigned t34374; struct w49 t34375; struct w49 t34376; struct w49 t34377; struct structure_type24753 *t34378; char *t34379; struct w49 t34380; struct w49 t34381; struct w49 t34382; struct w49 t34383; unsigned t34384; struct w49 t34385; struct w49 t34386; struct w49 t34387; struct w49 t34388; struct w49 t34389; struct w49 t34390; struct w49 t34391; struct w49 t34392; struct w49 t34393; struct w49 t34394; struct w49 t34395; struct structure_type24753 *t34396; struct structure_type24753 *t34397; struct structure_type24753 *t34398; struct w49 t34399; struct structure_type24753 *t34400; char *t34401; struct w49 t34402; struct w49 t34403; struct w49 t34404; struct w49 t34405; unsigned t34406; struct w49 t34407; struct w49 t34408; struct w49 t34409; struct w49 t34410; struct w49 t34411; /* x156031 stalin.sc:21600:756762 */ /* x155974 stalin.sc:21600:756766 */ /* x155969 stalin.sc:21600:756769 */ /* x155967 stalin.sc:21600:756781 */ t34358 = a27767; /* x155968 stalin.sc:21600:756783 */ t34359 = p16565->a27733; /* x155966 stalin.sc:21600:756770 */ t34356 = f14564(t34358, t34359); /* x155973 stalin.sc:21600:756787 */ /* x155971 stalin.sc:21600:756799 */ t34360 = a27767; /* x155972 stalin.sc:21600:756801 */ t34361 = p16565->a27735; /* x155970 stalin.sc:21600:756788 */ t34357 = f14564(t34360, t34361); /* x268278 stalin.sc:21600:756767 */ if (!((t34356&1)==1)) {backtrace("stalin.sc", 21600, 756766); eql_error();} if (!((t34357&1)==1)) {backtrace("stalin.sc", 21600, 756766); eql_error();} if (!(((int)(((int)t34356)>>1))==((int)(((int)t34357)>>1)))) goto l4892; /* x155992 stalin.sc:21601:756809 */ /* x155991 stalin.sc:21603:756895 */ /* x155989 stalin.sc:21603:756901 */ t34410 = p16565->a27732; /* x155990 stalin.sc:21603:756904 */ t34411 = p16565->a27734; /* x155988 stalin.sc:21603:756896 */ t34397 = f13591(t34410, t34411); /* x155987 stalin.sc:21601:756815 */ /* x155980 stalin.sc:21601:756821 */ /* x155978 stalin.sc:21601:756841 */ t34404 = p16565->a27732; /* x155979 stalin.sc:21601:756844 */ t34405 = p16565->a27733; /* x155977 stalin.sc:21601:756822 */ t34400 = f14594(t34404, t34405); /* x155986 stalin.sc:21602:756856 */ /* x155985 stalin.sc:21602:756866 */ /* x155983 stalin.sc:21602:756878 */ t34408 = a27767; /* x155984 stalin.sc:21602:756880 */ t34409 = p16565->a27733; /* x155982 stalin.sc:21602:756867 */ t34406 = f14564(t34408, t34409); /* x155981 stalin.sc:21602:756857 */ /* MOVE: dispatching squished to general */ if (t34406==FALSE_TYPE) t34407.tag = (unsigned)t34406; else {t34407.tag = FIXNUM_TYPE; t34407.value.fixnum_type = (int)(((int)t34406)>>1);} t34401 = f13530(t34407); /* x155976 stalin.sc:21601:756816 */ t34402.tag = STRUCTURE_TYPE24753; t34402.value.structure_type24753 = t34400; t34403.tag = STRING_TYPE; t34403.value.string_type = t34401; t34396 = f13591(t34402, t34403); /* x155975 stalin.sc:21601:756810 */ t34399.tag = STRUCTURE_TYPE24753; t34399.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t34399.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21601, 756809); out_of_memory_error();} t34399.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t34399.value.structure_type24753->s0.value.structure_type24753 = t34397; t34399.value.structure_type24753->s1.tag = NULL_TYPE; t34398 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t34398==NULL) {backtrace("stalin.sc", 21601, 756809); out_of_memory_error();} t34398->s0.tag = STRUCTURE_TYPE24753; t34398->s0.value.structure_type24753 = t34396; t34398->s1 = t34399; return f13564(t34398); l4892: /* x156030 stalin.sc:21604:756912 */ /* x156029 stalin.sc:21608:757078 */ /* x156023 stalin.sc:21608:757084 */ /* x156020 stalin.sc:21608:757093 */ t34390 = p16565->a27732; /* x156021 stalin.sc:21608:757096 */ t34391 = a27767; /* x156022 stalin.sc:21608:757098 */ t34392 = p16565->a27733; /* x156019 stalin.sc:21608:757085 */ t34388 = f14485(t34390, t34391, t34392); /* x156028 stalin.sc:21608:757102 */ /* x156025 stalin.sc:21608:757111 */ t34393 = p16565->a27734; /* x156026 stalin.sc:21608:757114 */ t34394 = a27767; /* x156027 stalin.sc:21608:757116 */ t34395 = p16565->a27735; /* x156024 stalin.sc:21608:757103 */ t34389 = f14485(t34393, t34394, t34395); /* x156018 stalin.sc:21608:757079 */ t34364 = f13591(t34388, t34389); /* x156017 stalin.sc:21606:756998 */ /* x156010 stalin.sc:21606:757004 */ /* x156008 stalin.sc:21606:757024 */ t34382 = p16565->a27734; /* x156009 stalin.sc:21606:757027 */ t34383 = p16565->a27735; /* x156007 stalin.sc:21606:757005 */ t34378 = f14594(t34382, t34383); /* x156016 stalin.sc:21607:757039 */ /* x156015 stalin.sc:21607:757049 */ /* x156013 stalin.sc:21607:757061 */ t34386 = a27767; /* x156014 stalin.sc:21607:757063 */ t34387 = p16565->a27735; /* x156012 stalin.sc:21607:757050 */ t34384 = f14564(t34386, t34387); /* x156011 stalin.sc:21607:757040 */ /* MOVE: dispatching squished to general */ if (t34384==FALSE_TYPE) t34385.tag = (unsigned)t34384; else {t34385.tag = FIXNUM_TYPE; t34385.value.fixnum_type = (int)(((int)t34384)>>1);} t34379 = f13530(t34385); /* x156006 stalin.sc:21606:756999 */ t34380.tag = STRUCTURE_TYPE24753; t34380.value.structure_type24753 = t34378; t34381.tag = STRING_TYPE; t34381.value.string_type = t34379; t34363 = f13591(t34380, t34381); /* x156005 stalin.sc:21604:756918 */ /* x155998 stalin.sc:21604:756924 */ /* x155996 stalin.sc:21604:756944 */ t34372 = p16565->a27732; /* x155997 stalin.sc:21604:756947 */ t34373 = p16565->a27733; /* x155995 stalin.sc:21604:756925 */ t34368 = f14594(t34372, t34373); /* x156004 stalin.sc:21605:756959 */ /* x156003 stalin.sc:21605:756969 */ /* x156001 stalin.sc:21605:756981 */ t34376 = a27767; /* x156002 stalin.sc:21605:756983 */ t34377 = p16565->a27733; /* x156000 stalin.sc:21605:756970 */ t34374 = f14564(t34376, t34377); /* x155999 stalin.sc:21605:756960 */ /* MOVE: dispatching squished to general */ if (t34374==FALSE_TYPE) t34375.tag = (unsigned)t34374; else {t34375.tag = FIXNUM_TYPE; t34375.value.fixnum_type = (int)(((int)t34374)>>1);} t34369 = f13530(t34375); /* x155994 stalin.sc:21604:756919 */ t34370.tag = STRUCTURE_TYPE24753; t34370.value.structure_type24753 = t34368; t34371.tag = STRING_TYPE; t34371.value.string_type = t34369; t34362 = f13591(t34370, t34371); /* x155993 stalin.sc:21604:756913 */ t34367.tag = STRUCTURE_TYPE24753; t34367.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t34367.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21604, 756912); out_of_memory_error();} t34367.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t34367.value.structure_type24753->s0.value.structure_type24753 = t34364; t34367.value.structure_type24753->s1.tag = NULL_TYPE; t34366.tag = STRUCTURE_TYPE24753; t34366.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t34366.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21604, 756912); out_of_memory_error();} t34366.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t34366.value.structure_type24753->s0.value.structure_type24753 = t34363; t34366.value.structure_type24753->s1 = t34367; t34365 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t34365==NULL) {backtrace("stalin.sc", 21604, 756912); out_of_memory_error();} t34365->s0.tag = STRUCTURE_TYPE24753; t34365->s0.value.structure_type24753 = t34362; t34365->s1 = t34366; return f13564(t34365);} /* [inside top level 16561] */ struct structure_type24753 *f16561(struct p16486 *p16561, struct w49 a27764) {unsigned t34412; unsigned t34413; struct w49 t34414; struct w49 t34415; struct w49 t34416; struct w49 t34417; struct structure_type24753 *t34418; struct structure_type24753 *t34419; struct structure_type24753 *t34420; struct structure_type24753 *t34421; struct w49 t34422; struct w49 t34423; struct structure_type24753 *t34424; char *t34425; struct w49 t34426; struct w49 t34427; struct w49 t34428; struct w49 t34429; unsigned t34430; struct w49 t34431; struct w49 t34432; struct w49 t34433; struct structure_type24753 *t34434; char *t34435; struct w49 t34436; struct w49 t34437; struct w49 t34438; struct w49 t34439; unsigned t34440; struct w49 t34441; struct w49 t34442; struct w49 t34443; struct w49 t34444; struct w49 t34445; struct w49 t34446; struct w49 t34447; struct w49 t34448; struct w49 t34449; struct w49 t34450; struct w49 t34451; struct structure_type24753 *t34452; struct structure_type24753 *t34453; struct structure_type24753 *t34454; struct w49 t34455; struct structure_type24753 *t34456; char *t34457; struct w49 t34458; struct w49 t34459; struct w49 t34460; struct w49 t34461; unsigned t34462; struct w49 t34463; struct w49 t34464; struct w49 t34465; struct w49 t34466; struct w49 t34467; /* x155940 stalin.sc:21585:756234 */ /* x155883 stalin.sc:21585:756238 */ /* x155878 stalin.sc:21585:756241 */ /* x155876 stalin.sc:21585:756253 */ t34414 = a27764; /* x155877 stalin.sc:21585:756255 */ t34415 = p16561->a27733; /* x155875 stalin.sc:21585:756242 */ t34412 = f14564(t34414, t34415); /* x155882 stalin.sc:21585:756259 */ /* x155880 stalin.sc:21585:756271 */ t34416 = a27764; /* x155881 stalin.sc:21585:756273 */ t34417 = p16561->a27735; /* x155879 stalin.sc:21585:756260 */ t34413 = f14564(t34416, t34417); /* x268280 stalin.sc:21585:756239 */ if (!((t34412&1)==1)) {backtrace("stalin.sc", 21585, 756238); eql_error();} if (!((t34413&1)==1)) {backtrace("stalin.sc", 21585, 756238); eql_error();} if (!(((int)(((int)t34412)>>1))==((int)(((int)t34413)>>1)))) goto l4894; /* x155901 stalin.sc:21586:756282 */ /* x155900 stalin.sc:21588:756370 */ /* x155898 stalin.sc:21588:756376 */ t34466 = p16561->a27732; /* x155899 stalin.sc:21588:756379 */ t34467 = p16561->a27734; /* x155897 stalin.sc:21588:756371 */ t34453 = f13591(t34466, t34467); /* x155896 stalin.sc:21586:756288 */ /* x155889 stalin.sc:21586:756294 */ /* x155887 stalin.sc:21586:756314 */ t34460 = p16561->a27732; /* x155888 stalin.sc:21586:756317 */ t34461 = p16561->a27733; /* x155886 stalin.sc:21586:756295 */ t34456 = f14594(t34460, t34461); /* x155895 stalin.sc:21587:756330 */ /* x155894 stalin.sc:21587:756340 */ /* x155892 stalin.sc:21587:756352 */ t34464 = a27764; /* x155893 stalin.sc:21587:756354 */ t34465 = p16561->a27733; /* x155891 stalin.sc:21587:756341 */ t34462 = f14564(t34464, t34465); /* x155890 stalin.sc:21587:756331 */ /* MOVE: dispatching squished to general */ if (t34462==FALSE_TYPE) t34463.tag = (unsigned)t34462; else {t34463.tag = FIXNUM_TYPE; t34463.value.fixnum_type = (int)(((int)t34462)>>1);} t34457 = f13530(t34463); /* x155885 stalin.sc:21586:756289 */ t34458.tag = STRUCTURE_TYPE24753; t34458.value.structure_type24753 = t34456; t34459.tag = STRING_TYPE; t34459.value.string_type = t34457; t34452 = f13591(t34458, t34459); /* x155884 stalin.sc:21586:756283 */ t34455.tag = STRUCTURE_TYPE24753; t34455.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t34455.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21586, 756282); out_of_memory_error();} t34455.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t34455.value.structure_type24753->s0.value.structure_type24753 = t34453; t34455.value.structure_type24753->s1.tag = NULL_TYPE; t34454 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t34454==NULL) {backtrace("stalin.sc", 21586, 756282); out_of_memory_error();} t34454->s0.tag = STRUCTURE_TYPE24753; t34454->s0.value.structure_type24753 = t34452; t34454->s1 = t34455; return f13564(t34454); l4894: /* x155939 stalin.sc:21589:756388 */ /* x155938 stalin.sc:21593:756558 */ /* x155932 stalin.sc:21593:756564 */ /* x155929 stalin.sc:21593:756573 */ t34446 = p16561->a27732; /* x155930 stalin.sc:21593:756576 */ t34447 = a27764; /* x155931 stalin.sc:21593:756578 */ t34448 = p16561->a27733; /* x155928 stalin.sc:21593:756565 */ t34444 = f14485(t34446, t34447, t34448); /* x155937 stalin.sc:21593:756582 */ /* x155934 stalin.sc:21593:756591 */ t34449 = p16561->a27734; /* x155935 stalin.sc:21593:756594 */ t34450 = a27764; /* x155936 stalin.sc:21593:756596 */ t34451 = p16561->a27735; /* x155933 stalin.sc:21593:756583 */ t34445 = f14485(t34449, t34450, t34451); /* x155927 stalin.sc:21593:756559 */ t34420 = f13591(t34444, t34445); /* x155926 stalin.sc:21591:756476 */ /* x155919 stalin.sc:21591:756482 */ /* x155917 stalin.sc:21591:756502 */ t34438 = p16561->a27734; /* x155918 stalin.sc:21591:756505 */ t34439 = p16561->a27735; /* x155916 stalin.sc:21591:756483 */ t34434 = f14594(t34438, t34439); /* x155925 stalin.sc:21592:756518 */ /* x155924 stalin.sc:21592:756528 */ /* x155922 stalin.sc:21592:756540 */ t34442 = a27764; /* x155923 stalin.sc:21592:756542 */ t34443 = p16561->a27735; /* x155921 stalin.sc:21592:756529 */ t34440 = f14564(t34442, t34443); /* x155920 stalin.sc:21592:756519 */ /* MOVE: dispatching squished to general */ if (t34440==FALSE_TYPE) t34441.tag = (unsigned)t34440; else {t34441.tag = FIXNUM_TYPE; t34441.value.fixnum_type = (int)(((int)t34440)>>1);} t34435 = f13530(t34441); /* x155915 stalin.sc:21591:756477 */ t34436.tag = STRUCTURE_TYPE24753; t34436.value.structure_type24753 = t34434; t34437.tag = STRING_TYPE; t34437.value.string_type = t34435; t34419 = f13591(t34436, t34437); /* x155914 stalin.sc:21589:756394 */ /* x155907 stalin.sc:21589:756400 */ /* x155905 stalin.sc:21589:756420 */ t34428 = p16561->a27732; /* x155906 stalin.sc:21589:756423 */ t34429 = p16561->a27733; /* x155904 stalin.sc:21589:756401 */ t34424 = f14594(t34428, t34429); /* x155913 stalin.sc:21590:756436 */ /* x155912 stalin.sc:21590:756446 */ /* x155910 stalin.sc:21590:756458 */ t34432 = a27764; /* x155911 stalin.sc:21590:756460 */ t34433 = p16561->a27733; /* x155909 stalin.sc:21590:756447 */ t34430 = f14564(t34432, t34433); /* x155908 stalin.sc:21590:756437 */ /* MOVE: dispatching squished to general */ if (t34430==FALSE_TYPE) t34431.tag = (unsigned)t34430; else {t34431.tag = FIXNUM_TYPE; t34431.value.fixnum_type = (int)(((int)t34430)>>1);} t34425 = f13530(t34431); /* x155903 stalin.sc:21589:756395 */ t34426.tag = STRUCTURE_TYPE24753; t34426.value.structure_type24753 = t34424; t34427.tag = STRING_TYPE; t34427.value.string_type = t34425; t34418 = f13591(t34426, t34427); /* x155902 stalin.sc:21589:756389 */ t34423.tag = STRUCTURE_TYPE24753; t34423.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t34423.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21589, 756388); out_of_memory_error();} t34423.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t34423.value.structure_type24753->s0.value.structure_type24753 = t34420; t34423.value.structure_type24753->s1.tag = NULL_TYPE; t34422.tag = STRUCTURE_TYPE24753; t34422.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t34422.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21589, 756388); out_of_memory_error();} t34422.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t34422.value.structure_type24753->s0.value.structure_type24753 = t34419; t34422.value.structure_type24753->s1 = t34423; t34421 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t34421==NULL) {backtrace("stalin.sc", 21589, 756388); out_of_memory_error();} t34421->s0.tag = STRUCTURE_TYPE24753; t34421->s0.value.structure_type24753 = t34418; t34421->s1 = t34422; return f13564(t34421);} /* [inside top level 16460] */ struct structure_type24753 *f16460(void) {struct structure_type24753 *a34998; /* OBJS */ struct w49 t34468; /* x154592 stalin.sc:21261:742947 */ /* x154591 stalin.sc:21261:742959 */ /* x154590 stalin.sc:21261:742953 */ /* x154589 stalin.sc:21261:742948 */ t34468.tag = STRUCTURE_TYPE24753; t34468.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t34468.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21261, 742947); out_of_memory_error();} t34468.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7404; t34468.value.structure_type24753->s1.tag = NULL_TYPE; a34998 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34998==NULL) {backtrace("stalin.sc", 21261, 742947); out_of_memory_error();} a34998->s0.tag = NATIVE_PROCEDURE_TYPE7404; a34998->s1 = t34468; /* x272003 */ return a34998;} /* [inside top level 16459] */ struct structure_type24753 *f16459(void) {struct structure_type24753 *a35076; /* OBJS */ struct w49 t34469; /* x154587 stalin.sc:21260:742927 */ /* x154586 stalin.sc:21260:742939 */ /* x154585 stalin.sc:21260:742933 */ /* x154584 stalin.sc:21260:742928 */ t34469.tag = STRUCTURE_TYPE24753; t34469.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t34469.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21260, 742927); out_of_memory_error();} t34469.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7404; t34469.value.structure_type24753->s1.tag = NULL_TYPE; a35076 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35076==NULL) {backtrace("stalin.sc", 21260, 742927); out_of_memory_error();} a35076->s0.tag = NATIVE_PROCEDURE_TYPE7404; a35076->s1 = t34469; /* x272159 */ return a35076;} /* [inside top level 16458] */ struct p16287 *f16458(void) {unsigned t34470; unsigned t34471; /* x154582 stalin.sc:21259:742880 */ /* x154580 stalin.sc:21259:742913 */ /* x154581 stalin.sc:21259:742919 */ /* x154579 stalin.sc:21259:742881 */ t34470 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t34471 = (unsigned)NATIVE_PROCEDURE_TYPE7404; return f16287(t34470, t34471);} /* [inside top level 16449] */ unsigned f16449(struct w49 a27645) {struct w49 t34472; /* x154527 stalin.sc:21248:742510 */ /* x154527 stalin.sc:21248:742510 */ /* x154526 stalin.sc:21248:742515 */ /* x154525 stalin.sc:21248:742530 */ t34472 = a27645; /* x154524 stalin.sc:21248:742516 */ if (!(f7680(t34472)==FALSE_TYPE)) goto l4896; return TRUE_TYPE; l4896: return FALSE_TYPE;} /* [inside top level 16448] */ struct structure_type24753 *f16448(void) {struct structure_type24753 *a34999; /* OBJS */ /* x154529 stalin.sc:21248:742492 */ /* x154528 stalin.sc:21248:742498 */ /* x154522 stalin.sc:21248:742493 */ a34999 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34999==NULL) {backtrace("stalin.sc", 21248, 742492); out_of_memory_error();} a34999->s0.tag = NATIVE_PROCEDURE_TYPE22462; a34999->s1.tag = NULL_TYPE; /* x272005 */ return a34999;} /* [inside top level 16437] */ unsigned f16437(struct w49 a27600) {struct w49 t34473; /* x154462 stalin.sc:21235:742066 */ /* x154462 stalin.sc:21235:742066 */ /* x154461 stalin.sc:21235:742071 */ /* x154460 stalin.sc:21235:742084 */ t34473 = a27600; /* x154459 stalin.sc:21235:742072 */ if (!(f7679(t34473)==FALSE_TYPE)) goto l4899; return TRUE_TYPE; l4899: return FALSE_TYPE;} /* [inside top level 16436] */ struct structure_type24753 *f16436(void) {struct structure_type24753 *a35000; /* OBJS */ /* x154464 stalin.sc:21235:742048 */ /* x154463 stalin.sc:21235:742054 */ /* x154457 stalin.sc:21235:742049 */ a35000 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35000==NULL) {backtrace("stalin.sc", 21235, 742048); out_of_memory_error();} a35000->s0.tag = NATIVE_PROCEDURE_TYPE22461; a35000->s1.tag = NULL_TYPE; /* x272007 */ return a35000;} /* [inside top level 16433] */ struct structure_type24753 *f16433(struct p16431 *p16433, unsigned a27588) {char *t34474; struct structure_type27745 *t34475; unsigned t34476; struct w49 t34477; /* x154435 stalin.sc:21229:741888 */ /* x154432 stalin.sc:21229:741903 */ t34474 = "structure_set"; /* x154433 stalin.sc:21229:741919 */ t34475 = p16433->a27572; /* x154434 stalin.sc:21229:741921 */ t34476 = a27588; /* x154431 stalin.sc:21229:741889 */ t34477.tag = STRUCTURE_TYPE27745; t34477.value.structure_type27745 = t34475; return f15534(t34474, t34477, t34476);} /* [inside top level 16432] */ struct w49 f16432(struct p16431 *p16432, struct w49 a27587) {struct w49 a37623; /* S */ struct w49 a37651; /* S */ struct w49 a38148; /* S */ struct w49 a38149; /* S */ struct w49 a38166; /* S */ struct structure_type24753 *a41822; /* CS */ struct w49 t34478; struct w49 t34479; struct structure_type24753 *t34480; struct w49 t34481; struct w49 t34482; struct structure_type27501 *t34483; struct w49 t34484; struct w49 t34485; struct w12218 t34486; struct w49 t34487; struct w11873 t34488; struct w49 t34489; struct w49 t34490; struct w49 t34491; struct w49 t34492; struct w49 t34493; struct w49 t34494; struct w49 t34495; struct w49 t34496; struct w60864 t34497; struct w49 t34498; struct structure_type27501 *t34499; struct w11873 t34500; struct w49 t34501; struct w49 t34502; struct w49 t34503; struct w49 t34504; struct w49 t34505; struct w49 t34506; struct w49 t34507; struct w49 t34508; struct w49 t34509; struct w49 t34510; struct w49 t34511; struct w49 t34512; struct w49 t34513; struct w49 t34514; struct structure_type27501 *t34515; struct w12218 t34516; /* x154429 stalin.sc:21216:741454 */ /* x154428 stalin.sc:21228:741852 */ /* x154427 stalin.sc:21228:741868 */ t34515 = p16432->a27571; /* x154426 stalin.sc:21228:741853 */ /* MOVE: branching squeezed to general */ if (t34515>=((struct structure_type27501 *)VALUE_OFFSET)) {t34516.tag = STRUCTURE_TYPE27501; t34516.value.structure_type27501 = t34515;} else t34516.tag = (unsigned)t34515; t34479 = f15342(t34516); /* x154425 stalin.sc:21217:741475 */ /* x154422 stalin.sc:21217:741481 */ /* x154398 stalin.sc:21217:741485 */ /* x154397 stalin.sc:21218:741506 */ /* x154391 stalin.sc:21218:741516 */ /* x154390 stalin.sc:21218:741538 */ t34491 = a27587; /* x154389 stalin.sc:21218:741517 */ a37651 = t34491; /* x283273 */ /* x283272 */ t34492 = a37651; /* x283271 */ if (!((t34492.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32568]"); structure_ref_error();} t34488 = t34492.value.structure_type27769->s1; /* x154396 stalin.sc:21219:741546 */ /* x154395 stalin.sc:21219:741554 */ /* x154394 stalin.sc:21219:741590 */ t34494 = p16432->a27573; /* x154393 stalin.sc:21219:741555 */ a38166 = t34494; /* x285333 */ /* x285332 */ t34495 = a38166; /* x285331 */ if (!((t34495.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33083]"); structure_ref_error();} t34493 = t34495.value.structure_type27753->s1; /* x154392 stalin.sc:21219:741547 */ t34489 = f26181(t34493); /* x154388 stalin.sc:21218:741507 */ t34490 = *((struct w49 *)(&t34488)); t34487 = f26338(t34490, t34489); /* x154387 stalin.sc:21217:741486 */ if (f8793(t34487)==FALSE_TYPE) goto l4902; /* x154399 stalin.sc:21220:741604 */ t34483 = a1194; goto l4903; l4902: /* x154421 stalin.sc:21221:741621 */ /* x154410 stalin.sc:21222:741653 */ /* x154404 stalin.sc:21222:741663 */ /* x154403 stalin.sc:21222:741685 */ t34503 = a27587; /* x154402 stalin.sc:21222:741664 */ a37623 = t34503; /* x283161 */ /* x283160 */ t34504 = a37623; /* x283159 */ if (!((t34504.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32540]"); structure_ref_error();} t34500 = t34504.value.structure_type27769->s1; /* x154409 stalin.sc:21223:741693 */ /* x154408 stalin.sc:21223:741701 */ /* x154407 stalin.sc:21223:741737 */ t34506 = p16432->a27573; /* x154406 stalin.sc:21223:741702 */ a38148 = t34506; /* x285261 */ /* x285260 */ t34507 = a38148; /* x285259 */ if (!((t34507.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33065]"); structure_ref_error();} t34505 = t34507.value.structure_type27753->s1; /* x154405 stalin.sc:21223:741694 */ t34501 = f26181(t34505); /* x154401 stalin.sc:21222:741654 */ t34502 = *((struct w49 *)(&t34500)); t34496 = f26338(t34502, t34501); /* x154420 stalin.sc:21224:741751 */ /* x154412 stalin.sc:21225:741774 */ t34508 = p16432->a27581; /* x154413 stalin.sc:21225:741777 */ t34509 = a27587; /* x154414 stalin.sc:21225:741780 */ t34510 = p16432->a27582; /* x154419 stalin.sc:21225:741783 */ /* x154418 stalin.sc:21225:741791 */ /* x154417 stalin.sc:21225:741827 */ t34513 = p16432->a27573; /* x154416 stalin.sc:21225:741792 */ a38149 = t34513; /* x285265 */ /* x285264 */ t34514 = a38149; /* x285263 */ if (!((t34514.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33066]"); structure_ref_error();} t34512 = t34514.value.structure_type27753->s1; /* x154415 stalin.sc:21225:741784 */ t34511 = f26181(t34512); /* x154411 stalin.sc:21224:741752 */ t34497 = f14746(t34508, t34509, t34510, t34511); /* x154400 stalin.sc:21221:741622 */ t34498 = *((struct w49 *)(&t34497)); t34499 = f7025(t34496, t34498); t34483 = t34499; l4903: /* x154423 stalin.sc:21226:741838 */ t34484 = p16432->a27583; /* x154424 stalin.sc:21227:741844 */ t34485 = p16432->a27584; /* x154386 stalin.sc:21217:741476 */ /* MOVE: branching squeezed to general */ if (t34483>=((struct structure_type27501 *)VALUE_OFFSET)) {t34486.tag = STRUCTURE_TYPE27501; t34486.value.structure_type27501 = t34483;} else t34486.tag = (unsigned)t34483; t34478 = f15496(t34486, t34484, t34485); /* x154385 stalin.sc:21216:741455 */ t34482.tag = STRUCTURE_TYPE24753; t34482.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t34482.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21216, 741454); out_of_memory_error();} t34482.value.structure_type24753->s0 = t34479; t34482.value.structure_type24753->s1.tag = NULL_TYPE; a41822 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41822==NULL) {backtrace("stalin.sc", 21216, 741454); out_of_memory_error();} a41822->s0 = t34478; a41822->s1 = t34482; /* x301400 stalin.sc:14400:506485 */ /* x301399 stalin.sc:14400:506503 */ t34480 = a41822; /* x301398 stalin.sc:14400:506486 */ t34481.tag = STRUCTURE_TYPE24753; t34481.value.structure_type24753 = t34480; return f13492(t34481);} /* [inside top level 16420] */ struct structure_type24753 *f16420(struct w49 a27549) {struct structure_type24753 *a35001; /* OBJS */ struct w49 a35722; /* PAIR */ struct w49 a38155; /* S */ struct p7717 *t34517; struct w49 t34518; struct w49 t34519; struct w49 t34520; struct w49 t34521; struct w49 t34522; struct w49 t34523; /* x154281 stalin.sc:21179:740438 */ /* x154280 stalin.sc:21180:740523 */ /* x154279 stalin.sc:21179:740444 */ /* x154278 stalin.sc:21179:740467 */ /* x154277 stalin.sc:21179:740474 */ /* x154276 stalin.sc:21179:740510 */ t34522 = a27549; /* x154275 stalin.sc:21179:740475 */ a38155 = t34522; /* x285289 */ /* x285288 */ t34523 = a38155; /* x285287 */ if (!((t34523.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33072]"); structure_ref_error();} t34520 = t34523.value.structure_type27753->s1; /* x154274 stalin.sc:21179:740468 */ a35722 = t34520; /* x274245 */ /* x274244 */ t34521 = a35722; /* x274243 */ if (!((t34521.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29871]"); structure_ref_error();} t34519 = t34521.value.structure_type24753->s0; /* x154273 stalin.sc:21179:740445 */ t34517 = f7717(t34519); /* x154272 stalin.sc:21179:740439 */ t34518.tag = STRUCTURE_TYPE24753; t34518.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t34518.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21179, 740438); out_of_memory_error();} t34518.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7404; t34518.value.structure_type24753->s1.tag = NULL_TYPE; a35001 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35001==NULL) {backtrace("stalin.sc", 21179, 740438); out_of_memory_error();} a35001->s0.tag = NATIVE_PROCEDURE_TYPE15963; a35001->s0.value.native_procedure_type15963 = t34517; a35001->s1 = t34518; /* x272009 */ return a35001;} /* [inside top level 16419] */ struct structure_type24753 *f16419(struct w49 a27545) {struct structure_type24753 *a35083; /* OBJS */ struct w49 a35725; /* PAIR */ struct w49 a38158; /* S */ struct p7717 *t34524; struct w49 t34525; struct w49 t34526; struct w49 t34527; struct w49 t34528; struct w49 t34529; struct w49 t34530; /* x154270 stalin.sc:21177:740345 */ /* x154269 stalin.sc:21178:740430 */ /* x154268 stalin.sc:21177:740351 */ /* x154267 stalin.sc:21177:740374 */ /* x154266 stalin.sc:21177:740381 */ /* x154265 stalin.sc:21177:740417 */ t34529 = a27545; /* x154264 stalin.sc:21177:740382 */ a38158 = t34529; /* x285301 */ /* x285300 */ t34530 = a38158; /* x285299 */ if (!((t34530.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33075]"); structure_ref_error();} t34527 = t34530.value.structure_type27753->s1; /* x154263 stalin.sc:21177:740375 */ a35725 = t34527; /* x274257 */ /* x274256 */ t34528 = a35725; /* x274255 */ if (!((t34528.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29874]"); structure_ref_error();} t34526 = t34528.value.structure_type24753->s0; /* x154262 stalin.sc:21177:740352 */ t34524 = f7717(t34526); /* x154261 stalin.sc:21177:740346 */ t34525.tag = STRUCTURE_TYPE24753; t34525.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t34525.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21177, 740345); out_of_memory_error();} t34525.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE7404; t34525.value.structure_type24753->s1.tag = NULL_TYPE; a35083 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35083==NULL) {backtrace("stalin.sc", 21177, 740345); out_of_memory_error();} a35083->s0.tag = NATIVE_PROCEDURE_TYPE15963; a35083->s0.value.native_procedure_type15963 = t34524; a35083->s1 = t34525; /* x272173 */ return a35083;} /* [inside top level 16418] */ struct p16287 *f16418(struct w49 a27542) {struct w49 a36029; /* PAIR */ struct w49 a38176; /* S */ struct p7717 *t34531; unsigned t34532; unsigned t34533; struct w49 t34534; struct w49 t34535; struct w49 t34536; struct w49 t34537; struct w49 t34538; /* x154259 stalin.sc:21174:740228 */ /* x154257 stalin.sc:21175:740263 */ /* x154256 stalin.sc:21175:740286 */ /* x154255 stalin.sc:21175:740293 */ /* x154254 stalin.sc:21175:740329 */ t34537 = a27542; /* x154253 stalin.sc:21175:740294 */ a38176 = t34537; /* x285373 */ /* x285372 */ t34538 = a38176; /* x285371 */ if (!((t34538.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33093]"); structure_ref_error();} t34535 = t34538.value.structure_type27753->s1; /* x154252 stalin.sc:21175:740287 */ a36029 = t34535; /* x275473 */ /* x275472 */ t34536 = a36029; /* x275471 */ if (!((t34536.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30178]"); structure_ref_error();} t34534 = t34536.value.structure_type24753->s0; /* x154251 stalin.sc:21175:740264 */ t34531 = f7717(t34534); /* x154258 stalin.sc:21176:740337 */ /* x154250 stalin.sc:21174:740229 */ t34532 = ((unsigned)t34531)+2; t34533 = (unsigned)NATIVE_PROCEDURE_TYPE7404; return f16287(t34532, t34533);} /* [inside top level 16417] */ struct structure_type24753 *f16417(struct p16415 *p16417, unsigned a27540) {char *t34539; struct structure_type27745 *t34540; unsigned t34541; struct w49 t34542; /* x154236 stalin.sc:21170:740116 */ /* x154233 stalin.sc:21170:740131 */ t34539 = "structure_ref"; /* x154234 stalin.sc:21170:740147 */ t34540 = p16417->a27524; /* x154235 stalin.sc:21170:740149 */ t34541 = a27540; /* x154232 stalin.sc:21170:740117 */ t34542.tag = STRUCTURE_TYPE27745; t34542.value.structure_type27745 = t34540; return f15534(t34539, t34542, t34541);} /* [inside top level 16416] */ struct w49 f16416(struct p16415 *p16416, struct w49 a27539) {struct w49 a37650; /* S */ struct w49 a38163; /* S */ struct w49 a38164; /* S */ struct structure_type27501 *t34543; struct w60864 t34544; struct w49 t34545; struct w12218 t34546; struct w49 t34547; struct w49 t34548; struct w49 t34549; struct w49 t34550; struct w49 t34551; struct w49 t34552; struct w49 t34553; struct w49 t34554; struct w11873 t34555; struct w49 t34556; struct w49 t34557; struct w49 t34558; struct w49 t34559; struct w49 t34560; struct w49 t34561; struct w49 t34562; /* x154230 stalin.sc:21165:739913 */ /* x154209 stalin.sc:21165:739919 */ t34543 = p16416->a27523; /* x154219 stalin.sc:21166:739923 */ /* x154211 stalin.sc:21167:739947 */ t34548 = p16416->a27533; /* x154212 stalin.sc:21167:739950 */ t34549 = a27539; /* x154213 stalin.sc:21167:739953 */ t34550 = p16416->a27534; /* x154218 stalin.sc:21167:739956 */ /* x154217 stalin.sc:21167:739964 */ /* x154216 stalin.sc:21167:740000 */ t34553 = p16416->a27525; /* x154215 stalin.sc:21167:739965 */ a38163 = t34553; /* x285321 */ /* x285320 */ t34554 = a38163; /* x285319 */ if (!((t34554.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33080]"); structure_ref_error();} t34552 = t34554.value.structure_type27753->s1; /* x154214 stalin.sc:21167:739957 */ t34551 = f26181(t34552); /* x154210 stalin.sc:21166:739924 */ t34544 = f14746(t34548, t34549, t34550, t34551); /* x154229 stalin.sc:21168:740008 */ /* x154223 stalin.sc:21168:740018 */ /* x154222 stalin.sc:21168:740040 */ t34558 = a27539; /* x154221 stalin.sc:21168:740019 */ a37650 = t34558; /* x283269 */ /* x283268 */ t34559 = a37650; /* x283267 */ if (!((t34559.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32567]"); structure_ref_error();} t34555 = t34559.value.structure_type27769->s1; /* x154228 stalin.sc:21169:740049 */ /* x154227 stalin.sc:21169:740057 */ /* x154226 stalin.sc:21169:740093 */ t34561 = p16416->a27525; /* x154225 stalin.sc:21169:740058 */ a38164 = t34561; /* x285325 */ /* x285324 */ t34562 = a38164; /* x285323 */ if (!((t34562.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33081]"); structure_ref_error();} t34560 = t34562.value.structure_type27753->s1; /* x154224 stalin.sc:21169:740050 */ t34556 = f26181(t34560); /* x154220 stalin.sc:21168:740009 */ t34557 = *((struct w49 *)(&t34555)); t34545 = f26338(t34557, t34556); /* x154208 stalin.sc:21165:739914 */ /* MOVE: branching squeezed to general */ if (t34543>=((struct structure_type27501 *)VALUE_OFFSET)) {t34546.tag = STRUCTURE_TYPE27501; t34546.value.structure_type27501 = t34543;} else t34546.tag = (unsigned)t34543; t34547 = *((struct w49 *)(&t34544)); return f15496(t34546, t34547, t34545);} /* [inside top level 16404] */ struct structure_type24753 *f16404(struct w49 a27502) {struct structure_type24753 *a35002; /* OBJS */ struct w49 a35723; /* PAIR */ struct w49 a38156; /* S */ struct p7717 *t34563; struct w49 t34564; struct w49 t34565; struct w49 t34566; struct w49 t34567; struct w49 t34568; /* x154105 stalin.sc:21132:738917 */ /* x154104 stalin.sc:21132:738923 */ /* x154103 stalin.sc:21132:738946 */ /* x154102 stalin.sc:21132:738953 */ /* x154101 stalin.sc:21132:738989 */ t34567 = a27502; /* x154100 stalin.sc:21132:738954 */ a38156 = t34567; /* x285293 */ /* x285292 */ t34568 = a38156; /* x285291 */ if (!((t34568.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33073]"); structure_ref_error();} t34565 = t34568.value.structure_type27753->s1; /* x154099 stalin.sc:21132:738947 */ a35723 = t34565; /* x274249 */ /* x274248 */ t34566 = a35723; /* x274247 */ if (!((t34566.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29872]"); structure_ref_error();} t34564 = t34566.value.structure_type24753->s0; /* x154098 stalin.sc:21132:738924 */ t34563 = f7717(t34564); /* x154097 stalin.sc:21132:738918 */ a35002 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35002==NULL) {backtrace("stalin.sc", 21132, 738917); out_of_memory_error();} a35002->s0.tag = NATIVE_PROCEDURE_TYPE15963; a35002->s0.value.native_procedure_type15963 = t34563; a35002->s1.tag = NULL_TYPE; /* x272011 */ return a35002;} /* [inside top level 16403] */ struct structure_type24753 *f16403(struct w49 a27498) {struct structure_type24753 *a35082; /* OBJS */ struct w49 a35724; /* PAIR */ struct w49 a38157; /* S */ struct p7717 *t34569; struct w49 t34570; struct w49 t34571; struct w49 t34572; struct w49 t34573; struct w49 t34574; /* x154095 stalin.sc:21131:738837 */ /* x154094 stalin.sc:21131:738843 */ /* x154093 stalin.sc:21131:738866 */ /* x154092 stalin.sc:21131:738873 */ /* x154091 stalin.sc:21131:738909 */ t34573 = a27498; /* x154090 stalin.sc:21131:738874 */ a38157 = t34573; /* x285297 */ /* x285296 */ t34574 = a38157; /* x285295 */ if (!((t34574.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33074]"); structure_ref_error();} t34571 = t34574.value.structure_type27753->s1; /* x154089 stalin.sc:21131:738867 */ a35724 = t34571; /* x274253 */ /* x274252 */ t34572 = a35724; /* x274251 */ if (!((t34572.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29873]"); structure_ref_error();} t34570 = t34572.value.structure_type24753->s0; /* x154088 stalin.sc:21131:738844 */ t34569 = f7717(t34570); /* x154087 stalin.sc:21131:738838 */ a35082 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35082==NULL) {backtrace("stalin.sc", 21131, 738837); out_of_memory_error();} a35082->s0.tag = NATIVE_PROCEDURE_TYPE15963; a35082->s0.value.native_procedure_type15963 = t34569; a35082->s1.tag = NULL_TYPE; /* x272171 */ return a35082;} /* [inside top level 16402] */ struct p16282 *f16402(struct w49 a27495) {struct w49 a36027; /* PAIR */ struct w49 a38175; /* S */ struct p7717 *t34575; unsigned t34576; struct w49 t34577; struct w49 t34578; struct w49 t34579; struct w49 t34580; struct w49 t34581; /* x154085 stalin.sc:21129:738729 */ /* x154084 stalin.sc:21130:738763 */ /* x154083 stalin.sc:21130:738786 */ /* x154082 stalin.sc:21130:738793 */ /* x154081 stalin.sc:21130:738829 */ t34580 = a27495; /* x154080 stalin.sc:21130:738794 */ a38175 = t34580; /* x285369 */ /* x285368 */ t34581 = a38175; /* x285367 */ if (!((t34581.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33092]"); structure_ref_error();} t34578 = t34581.value.structure_type27753->s1; /* x154079 stalin.sc:21130:738787 */ a36027 = t34578; /* x275465 */ /* x275464 */ t34579 = a36027; /* x275463 */ if (!((t34579.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30176]"); structure_ref_error();} t34577 = t34579.value.structure_type24753->s0; /* x154078 stalin.sc:21130:738764 */ t34575 = f7717(t34577); /* x154077 stalin.sc:21129:738730 */ t34576 = ((unsigned)t34575)+2; return f16282(t34576);} /* [inside top level 16375] */ struct w12224 f16375(int a27444) {int t34582; struct w227957 t34583; struct w49 t34584; /* x153813 stalin.sc:21063:736755 */ /* x153811 stalin.sc:21063:736762 */ /* x153812 stalin.sc:21063:736781 */ t34582 = a27444; /* x153809 stalin.sc:21063:736756 */ t34583.tag = NATIVE_PROCEDURE_TYPE22460; t34584.tag = FIXNUM_TYPE; t34584.value.fixnum_type = t34582; return f1149(t34583, t34584);} /* [inside top level 16373] */ struct w12224 f16373(int a27439) {int t34585; struct w227957 t34586; struct w49 t34587; /* x153807 stalin.sc:21062:736725 */ /* x153805 stalin.sc:21062:736732 */ /* x153806 stalin.sc:21062:736751 */ t34585 = a27439; /* x153803 stalin.sc:21062:736726 */ t34586.tag = NATIVE_PROCEDURE_TYPE22438; t34587.tag = FIXNUM_TYPE; t34587.value.fixnum_type = t34585; return f1149(t34586, t34587);} /* [inside top level 16363] */ unsigned f16363(struct p16362 *p16363, struct w49 a27400) {struct w49 a35696; /* PAIR */ struct w49 a38150; /* S */ struct p7717 *t34588; struct w49 t34589; struct w49 t34590; struct w49 t34591; struct w49 t34592; struct w49 t34593; struct w49 t34594; /* x153724 stalin.sc:21041:735970 */ /* x153724 stalin.sc:21041:735970 */ /* x153723 stalin.sc:21041:735975 */ /* x153722 stalin.sc:21043:736063 */ t34589 = a27400; /* x153721 stalin.sc:21041:735976 */ /* x153720 stalin.sc:21042:736007 */ /* x153719 stalin.sc:21042:736014 */ /* x153718 stalin.sc:21042:736050 */ t34593 = p16363->a27397; /* x153717 stalin.sc:21042:736015 */ a38150 = t34593; /* x285269 */ /* x285268 */ t34594 = a38150; /* x285267 */ if (!((t34594.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33067]"); structure_ref_error();} t34591 = t34594.value.structure_type27753->s1; /* x153716 stalin.sc:21042:736008 */ a35696 = t34591; /* x274141 */ /* x274140 */ t34592 = a35696; /* x274139 */ if (!((t34592.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29845]"); structure_ref_error();} t34590 = t34592.value.structure_type24753->s0; /* x153715 stalin.sc:21041:735977 */ t34588 = f7717(t34590); if (!(f7718(t34588, t34589)==FALSE_TYPE)) goto l4905; return TRUE_TYPE; l4905: return FALSE_TYPE;} /* [inside top level 16362] */ struct structure_type24753 *f16362(struct w49 a27397) {struct structure_type24753 *a35003; /* OBJS */ struct p16362 *t34595; struct p16362 *e16362; e16362 = (struct p16362 *)GC_malloc(sizeof(struct p16362)); if (e16362==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16362->a27397 = a27397; /* x153726 stalin.sc:21040:735951 */ /* x153725 stalin.sc:21040:735957 */ t34595 = e16362; /* x153713 stalin.sc:21040:735952 */ a35003 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35003==NULL) {backtrace("stalin.sc", 21040, 735951); out_of_memory_error();} a35003->s0.tag = NATIVE_PROCEDURE_TYPE22459; a35003->s0.value.native_procedure_type22459 = t34595; a35003->s1.tag = NULL_TYPE; /* x272013 */ return a35003;} /* [inside top level 16361] */ struct structure_type24753 *f16361(struct w49 a27393) {struct structure_type24753 *a35084; /* OBJS */ struct w49 a35726; /* PAIR */ struct w49 a38159; /* S */ struct p7717 *t34596; struct w49 t34597; struct w49 t34598; struct w49 t34599; struct w49 t34600; struct w49 t34601; /* x153711 stalin.sc:21039:735871 */ /* x153710 stalin.sc:21039:735877 */ /* x153709 stalin.sc:21039:735900 */ /* x153708 stalin.sc:21039:735907 */ /* x153707 stalin.sc:21039:735943 */ t34600 = a27393; /* x153706 stalin.sc:21039:735908 */ a38159 = t34600; /* x285305 */ /* x285304 */ t34601 = a38159; /* x285303 */ if (!((t34601.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33076]"); structure_ref_error();} t34598 = t34601.value.structure_type27753->s1; /* x153705 stalin.sc:21039:735901 */ a35726 = t34598; /* x274261 */ /* x274260 */ t34599 = a35726; /* x274259 */ if (!((t34599.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29875]"); structure_ref_error();} t34597 = t34599.value.structure_type24753->s0; /* x153704 stalin.sc:21039:735878 */ t34596 = f7717(t34597); /* x153703 stalin.sc:21039:735872 */ a35084 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35084==NULL) {backtrace("stalin.sc", 21039, 735871); out_of_memory_error();} a35084->s0.tag = NATIVE_PROCEDURE_TYPE15963; a35084->s0.value.native_procedure_type15963 = t34596; a35084->s1.tag = NULL_TYPE; /* x272175 */ return a35084;} /* ALL-ARGUMENTS-PROPAGATE![16355] */ struct p16355 *f16355(struct w136041 a27385) {struct p16355 *e16355; if ((fp10650+sizeof(struct p16355))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16355)>region_size) region_size = sizeof(struct p16355); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16355 = (struct p16355 *)fp10650; fp10650 += sizeof(struct p16355)+((4-(sizeof(struct p16355)%4))&3); e16355->a27385 = a27385; /* x153691 */ return e16355;} /* ONE-OR-TWO-ARGUMENTS-PROPAGATE![16347] */ struct p16347 *f16347(unsigned a27380, unsigned a27381) {struct p16347 *e16347; if ((fp10650+sizeof(struct p16347))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16347)>region_size) region_size = sizeof(struct p16347); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16347 = (struct p16347 *)fp10650; fp10650 += sizeof(struct p16347)+((4-(sizeof(struct p16347)%4))&3); e16347->a27380 = a27380; e16347->a27381 = a27381; /* x153672 */ return e16347;} /* THREE-ARGUMENTS-PROPAGATE![16335] */ struct p16335 *f16335(struct p17698 *a27371) {struct p16335 *e16335; if ((fp10650+sizeof(struct p16335))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16335)>region_size) region_size = sizeof(struct p16335); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16335 = (struct p16335 *)fp10650; fp10650 += sizeof(struct p16335)+((4-(sizeof(struct p16335)%4))&3); e16335->a27371 = a27371; /* x153602 */ return e16335;} /* TWO-ARGUMENTS-PROPAGATE![16328] */ struct p16328 *f16328(struct w136184 a27366) {struct p16328 *e16328; if ((fp10650+sizeof(struct p16328))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16328)>region_size) region_size = sizeof(struct p16328); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16328 = (struct p16328 *)fp10650; fp10650 += sizeof(struct p16328)+((4-(sizeof(struct p16328)%4))&3); e16328->a27366 = a27366; /* x153562 */ return e16328;} /* ONE-ARGUMENT-PROPAGATE![16321] */ struct p16321 *f16321(struct w136217 a27361) {struct p16321 *e16321; if ((fp10650+sizeof(struct p16321))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16321)>region_size) region_size = sizeof(struct p16321); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16321 = (struct p16321 *)fp10650; fp10650 += sizeof(struct p16321)+((4-(sizeof(struct p16321)%4))&3); e16321->a27361 = a27361; /* x153525 */ return e16321;} /* ZERO-ARGUMENTS-PROPAGATE![16314] */ struct p16314 *f16314(struct w136247 a27356) {struct p16314 *e16314; if ((fp10650+sizeof(struct p16314))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16314)>region_size) region_size = sizeof(struct p16314); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16314 = (struct p16314 *)fp10650; fp10650 += sizeof(struct p16314)+((4-(sizeof(struct p16314)%4))&3); e16314->a27356 = a27356; /* x153491 */ return e16314;} /* [inside ALL-ARGUMENTS-TRULY-COMPATIBLE? 16309] */ unsigned f16309(struct p16308 *p16309, struct w49 a27352, struct w49 a27353) {struct p16308 *t34602; struct p16308 *t34603; struct w49 t34604; struct w228245 t34605; struct w49 t34606; struct structure_type24753 *t34607; struct w49 t34608; struct w211235 t34609; char *t34610; struct p16308 *p16310; /* x153459 */ /* x153458 stalin.sc:20979:734075 */ /* x153451 stalin.sc:20979:734081 */ /* x153449 stalin.sc:20979:734094 */ /* x153450 stalin.sc:20979:734105 */ t34608 = a27353; /* x153448 stalin.sc:20979:734082 */ t34609.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t34609, t34608).tag)==FALSE_TYPE) goto l4908; /* x153455 */ /* x153454 */ /* x153453 stalin.sc:20979:734108 */ /* x153452 stalin.sc:20979:734109 */ /* x295953 QobiScheme.sc:166:5314 */ /* x295952 QobiScheme.sc:166:5321 */ t34610 = "This shouldn\'t happen"; /* x295951 QobiScheme.sc:166:5315 */ stalin_panic(t34610); goto l4909; l4908: /* x153457 stalin.sc:20979:734075 */ /* x153456 stalin.sc:20979:734075 */ l4909: /* x153447 */ t34602 = p16309; p16310 = t34602; /* x153446 stalin.sc:20980:734121 */ /* x153445 stalin.sc:20980:734155 */ t34604 = a27352; /* x153444 stalin.sc:20980:734128 */ t34603 = p16310; /* x153439 stalin.sc:20980:734122 */ t34605.tag = NATIVE_PROCEDURE_TYPE19476; t34605.value.native_procedure_type19476 = t34603; t34606 = t34604; t34607 = (struct structure_type24753 *)NULL_TYPE; return f1061(t34605, t34606, t34607);} /* ALL-ARGUMENTS-TRULY-COMPATIBLE?[16308] */ struct p16308 *f16308(unsigned a27351) {struct p16308 *e16308; e16308 = (struct p16308 *)GC_malloc_atomic(sizeof(struct p16308)); if (e16308==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16308->a27351 = a27351; /* x153460 */ return e16308;} /* [inside ONE-OR-TWO-ARGUMENTS-TRULY-COMPATIBLE? 16303] */ struct w16638 f16303(struct p16302 *p16303, struct w49 a27347, struct w49 a27348) {struct w16638 r16303; struct w16638 a27350; /* v */ struct w49 a36025; /* PAIR */ struct w49 a36026; /* PAIR */ struct p16302 *t34611; struct p16302 *t34612; struct w16638 t34613; int t34614; int t34615; struct w49 t34616; unsigned t34617; struct w49 t34618; struct w211257 t34619; struct w49 t34620; struct w49 t34621; unsigned t34622; struct w49 t34623; struct w211257 t34624; struct w49 t34625; int t34626; int t34627; struct w49 t34628; unsigned t34629; struct w49 t34630; struct w211257 t34631; struct w49 t34632; struct w49 t34633; struct w49 t34634; struct w211235 t34635; char *t34636; struct p16302 *p16304; struct p16302 *p16305; /* x153435 */ /* x153434 stalin.sc:20971:733824 */ /* x153427 stalin.sc:20971:733830 */ /* x153425 stalin.sc:20971:733843 */ /* x153426 stalin.sc:20971:733854 */ t34634 = a27348; /* x153424 stalin.sc:20971:733831 */ t34635.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t34635, t34634).tag)==FALSE_TYPE) goto l4920; /* x153431 */ /* x153430 */ /* x153429 stalin.sc:20971:733857 */ /* x153428 stalin.sc:20971:733858 */ /* x295949 QobiScheme.sc:166:5314 */ /* x295948 QobiScheme.sc:166:5321 */ t34636 = "This shouldn\'t happen"; /* x295947 QobiScheme.sc:166:5315 */ stalin_panic(t34636); goto l4921; l4920: /* x153433 stalin.sc:20971:733824 */ /* x153432 stalin.sc:20971:733824 */ l4921: /* x153423 */ t34611 = p16303; p16304 = t34611; /* x153422 stalin.sc:20972:733870 */ /* x153421 stalin.sc:20972:733874 */ /* x153413 stalin.sc:20972:733879 */ /* x153411 stalin.sc:20972:733882 */ /* x153410 stalin.sc:20972:733890 */ t34628 = a27347; /* x153409 stalin.sc:20972:733883 */ t34626 = f26227(t34628); /* x153412 stalin.sc:20972:733894 */ t34627 = 1; /* x268330 stalin.sc:20972:733880 */ if (!(t34626==t34627)) goto l4917; /* x153419 */ /* x153415 stalin.sc:20972:733906 */ t34629 = p16304->a27345; /* x153418 stalin.sc:20972:733909 */ /* x153417 stalin.sc:20972:733916 */ t34632 = a27347; /* x153416 stalin.sc:20972:733910 */ a36026 = t34632; /* x275461 */ /* x275460 */ t34633 = a36026; /* x275459 */ if (!((t34633.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30175]"); structure_ref_error();} t34630 = t34633.value.structure_type24753->s0; /* x153414 stalin.sc:20972:733898 */ t34631.tag = t34629; t34613 = f8137(t34631, t34630); goto l4918; l4917: /* x153420 */ t34613.tag = FALSE_TYPE; l4918: /* x153407 */ t34612 = p16304; p16305 = t34612; a27350 = t34613; /* x153406 */ /* x153382 */ if ((a27350.tag)==FALSE_TYPE) goto l4911; /* x153383 */ return a27350; l4911: /* x153405 */ /* x153389 stalin.sc:20973:733933 */ /* x153387 stalin.sc:20973:733936 */ /* x153386 stalin.sc:20973:733944 */ t34616 = a27347; /* x153385 stalin.sc:20973:733937 */ t34614 = f26227(t34616); /* x153388 stalin.sc:20973:733948 */ t34615 = 2; /* x268331 stalin.sc:20973:733934 */ if (!(t34614==t34615)) goto l4913; /* x153403 */ /* x153395 stalin.sc:20974:733955 */ /* x153391 stalin.sc:20974:733964 */ t34617 = p16305->a27345; /* x153394 stalin.sc:20974:733967 */ /* x153393 stalin.sc:20974:733974 */ t34620 = a27347; /* x153392 stalin.sc:20974:733968 */ a36025 = t34620; /* x275457 */ /* x275456 */ t34621 = a36025; /* x275455 */ if (!((t34621.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30174]"); structure_ref_error();} t34618 = t34621.value.structure_type24753->s0; /* x153390 stalin.sc:20974:733956 */ t34619.tag = t34617; if ((f8137(t34619, t34618).tag)==FALSE_TYPE) goto l4915; /* x153401 */ /* x153397 stalin.sc:20975:733992 */ t34622 = p16305->a27346; /* x153400 stalin.sc:20975:733995 */ /* x153399 stalin.sc:20975:734003 */ t34625 = a27347; /* x153398 stalin.sc:20975:733996 */ t34623 = f26181(t34625); /* x153396 stalin.sc:20975:733984 */ t34624.tag = t34622; return f8137(t34624, t34623); l4915: /* x153402 */ r16303.tag = FALSE_TYPE; return r16303; l4913: /* x153404 */ r16303.tag = FALSE_TYPE; return r16303;} /* ONE-OR-TWO-ARGUMENTS-TRULY-COMPATIBLE?[16302] */ struct p16302 *f16302(unsigned a27345, unsigned a27346) {struct p16302 *e16302; e16302 = (struct p16302 *)GC_malloc_atomic(sizeof(struct p16302)); if (e16302==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16302->a27345 = a27345; e16302->a27346 = a27346; /* x153436 */ return e16302;} /* [inside N-ARGUMENTS-TRULY-COMPATIBLE? 16298] */ void f16298(struct w49 a27343) {struct w49 t34637; struct w211235 t34638; char *t34639; /* x153378 */ /* x153377 stalin.sc:20966:733699 */ /* x153370 stalin.sc:20966:733705 */ /* x153368 stalin.sc:20966:733718 */ /* x153369 stalin.sc:20966:733729 */ t34637 = a27343; /* x153367 stalin.sc:20966:733706 */ t34638.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t34638, t34637).tag)==FALSE_TYPE) goto l4923; /* x153374 */ /* x153373 */ /* x153372 stalin.sc:20966:733732 */ /* x153371 stalin.sc:20966:733733 */ /* x295961 QobiScheme.sc:166:5314 */ /* x295960 QobiScheme.sc:166:5321 */ t34639 = "This shouldn\'t happen"; /* x295959 QobiScheme.sc:166:5315 */ stalin_panic(t34639); goto l4924; l4923: /* x153376 stalin.sc:20966:733699 */ /* x153375 stalin.sc:20966:733699 */ l4924: /* x153366 */ /* x153365 stalin.sc:20967:733745 */ return;} /* N-ARGUMENTS-TRULY-COMPATIBLE?[16297] */ void f16297(void) {/* x153379 */ return;} /* [inside THREE-ARGUMENTS-TRULY-COMPATIBLE? 16293] */ struct w16638 f16293(struct p16292 *p16293, struct w49 a27339, struct w49 a27340) {struct w16638 r16293; struct w49 a36024; /* PAIR */ struct p16292 *t34640; int t34641; int t34642; struct w49 t34643; unsigned t34644; struct w49 t34645; struct w211257 t34646; struct w49 t34647; struct w49 t34648; struct w49 t34649; struct w211257 t34650; struct w49 t34651; unsigned t34652; struct w49 t34653; struct w211257 t34654; struct w49 t34655; struct w49 t34656; struct w211235 t34657; char *t34658; struct p16292 *p16294; /* x153361 */ /* x153360 stalin.sc:20958:733474 */ /* x153353 stalin.sc:20958:733480 */ /* x153351 stalin.sc:20958:733493 */ /* x153352 stalin.sc:20958:733504 */ t34656 = a27340; /* x153350 stalin.sc:20958:733481 */ t34657.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t34657, t34656).tag)==FALSE_TYPE) goto l4932; /* x153357 */ /* x153356 */ /* x153355 stalin.sc:20958:733507 */ /* x153354 stalin.sc:20958:733508 */ /* x295945 QobiScheme.sc:166:5314 */ /* x295944 QobiScheme.sc:166:5321 */ t34658 = "This shouldn\'t happen"; /* x295943 QobiScheme.sc:166:5315 */ stalin_panic(t34658); goto l4933; l4932: /* x153359 stalin.sc:20958:733474 */ /* x153358 stalin.sc:20958:733474 */ l4933: /* x153349 */ t34640 = p16293; p16294 = t34640; /* x153348 stalin.sc:20959:733520 */ /* x153324 stalin.sc:20959:733525 */ /* x153322 stalin.sc:20959:733528 */ /* x153321 stalin.sc:20959:733536 */ t34643 = a27339; /* x153320 stalin.sc:20959:733529 */ t34641 = f26227(t34643); /* x153323 stalin.sc:20959:733540 */ t34642 = 3; /* x268332 stalin.sc:20959:733526 */ if (!(t34641==t34642)) goto l4926; /* x153346 */ /* x153330 stalin.sc:20960:733550 */ /* x153326 stalin.sc:20960:733559 */ t34644 = p16294->a27336; /* x153329 stalin.sc:20960:733562 */ /* x153328 stalin.sc:20960:733569 */ t34647 = a27339; /* x153327 stalin.sc:20960:733563 */ a36024 = t34647; /* x275453 */ /* x275452 */ t34648 = a36024; /* x275451 */ if (!((t34648.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30173]"); structure_ref_error();} t34645 = t34648.value.structure_type24753->s0; /* x153325 stalin.sc:20960:733551 */ t34646.tag = t34644; if ((f8137(t34646, t34645).tag)==FALSE_TYPE) goto l4928; /* x153344 */ /* x153336 stalin.sc:20961:733581 */ /* x153332 stalin.sc:20961:733590 */ /* x153335 stalin.sc:20961:733593 */ /* x153334 stalin.sc:20961:733601 */ t34651 = a27339; /* x153333 stalin.sc:20961:733594 */ t34649 = f26181(t34651); /* x153331 stalin.sc:20961:733582 */ t34650.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t34650, t34649).tag)==FALSE_TYPE) goto l4930; /* x153342 */ /* x153338 stalin.sc:20962:733622 */ t34652 = p16294->a27338; /* x153341 stalin.sc:20962:733625 */ /* x153340 stalin.sc:20962:733632 */ t34655 = a27339; /* x153339 stalin.sc:20962:733626 */ t34653 = f26187(t34655); /* x153337 stalin.sc:20962:733614 */ t34654.tag = t34652; return f8137(t34654, t34653); l4930: /* x153343 */ r16293.tag = FALSE_TYPE; return r16293; l4928: /* x153345 */ r16293.tag = FALSE_TYPE; return r16293; l4926: /* x153347 */ r16293.tag = FALSE_TYPE; return r16293;} /* THREE-ARGUMENTS-TRULY-COMPATIBLE?[16292] */ struct p16292 *f16292(unsigned a27336, unsigned a27338) {struct p16292 *e16292; e16292 = (struct p16292 *)GC_malloc_atomic(sizeof(struct p16292)); if (e16292==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16292->a27336 = a27336; e16292->a27338 = a27338; /* x153362 */ return e16292;} /* [inside TWO-ARGUMENTS-TRULY-COMPATIBLE? 16288] */ struct w16638 f16288(struct p16287 *p16288, struct w49 a27333, struct w49 a27334) {struct w16638 r16288; struct w49 a36028; /* PAIR */ struct p16287 *t34659; int t34660; int t34661; struct w49 t34662; unsigned t34663; struct w49 t34664; struct w211257 t34665; struct w49 t34666; struct w49 t34667; unsigned t34668; struct w49 t34669; struct w211257 t34670; struct w49 t34671; struct w49 t34672; struct w211235 t34673; char *t34674; struct p16287 *p16289; /* x153315 */ /* x153314 stalin.sc:20951:733267 */ /* x153307 stalin.sc:20951:733273 */ /* x153305 stalin.sc:20951:733286 */ /* x153306 stalin.sc:20951:733297 */ t34672 = a27334; /* x153304 stalin.sc:20951:733274 */ t34673.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t34673, t34672).tag)==FALSE_TYPE) goto l4939; /* x153311 */ /* x153310 */ /* x153309 stalin.sc:20951:733300 */ /* x153308 stalin.sc:20951:733301 */ /* x295957 QobiScheme.sc:166:5314 */ /* x295956 QobiScheme.sc:166:5321 */ t34674 = "This shouldn\'t happen"; /* x295955 QobiScheme.sc:166:5315 */ stalin_panic(t34674); goto l4940; l4939: /* x153313 stalin.sc:20951:733267 */ /* x153312 stalin.sc:20951:733267 */ l4940: /* x153303 */ t34659 = p16288; p16289 = t34659; /* x153302 stalin.sc:20952:733313 */ /* x153286 stalin.sc:20952:733318 */ /* x153284 stalin.sc:20952:733321 */ /* x153283 stalin.sc:20952:733329 */ t34662 = a27333; /* x153282 stalin.sc:20952:733322 */ t34660 = f26227(t34662); /* x153285 stalin.sc:20952:733333 */ t34661 = 2; /* x268333 stalin.sc:20952:733319 */ if (!(t34660==t34661)) goto l4935; /* x153300 */ /* x153292 stalin.sc:20953:733343 */ /* x153288 stalin.sc:20953:733352 */ t34663 = p16289->a27331; /* x153291 stalin.sc:20953:733355 */ /* x153290 stalin.sc:20953:733362 */ t34666 = a27333; /* x153289 stalin.sc:20953:733356 */ a36028 = t34666; /* x275469 */ /* x275468 */ t34667 = a36028; /* x275467 */ if (!((t34667.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30177]"); structure_ref_error();} t34664 = t34667.value.structure_type24753->s0; /* x153287 stalin.sc:20953:733344 */ /* MOVE: dispatching squished to general */ switch (t34663) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7822: t34665.tag = (unsigned)t34663; break; default: switch (t34663&3) {case 2: t34665.tag = NATIVE_PROCEDURE_TYPE15963; t34665.value.native_procedure_type15963 = (struct p7717 *)(t34663-2); break; case 0: t34665.tag = NATIVE_PROCEDURE_TYPE19067; t34665.value.native_procedure_type19067 = (struct p7892 *)t34663; break; default: t34665.tag = NATIVE_PROCEDURE_TYPE19068; t34665.value.native_procedure_type19068 = (struct p7892 *)(t34663-1);}} if ((f8137(t34665, t34664).tag)==FALSE_TYPE) goto l4937; /* x153298 */ /* x153294 stalin.sc:20954:733383 */ t34668 = p16289->a27332; /* x153297 stalin.sc:20954:733386 */ /* x153296 stalin.sc:20954:733394 */ t34671 = a27333; /* x153295 stalin.sc:20954:733387 */ t34669 = f26181(t34671); /* x153293 stalin.sc:20954:733375 */ /* MOVE: dispatching squished to general */ switch (t34668) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7430: t34670.tag = (unsigned)t34668; break; default: if ((t34668&3)==1) {t34670.tag = NATIVE_PROCEDURE_TYPE19067; t34670.value.native_procedure_type19067 = (struct p7892 *)(t34668-1);} else {t34670.tag = NATIVE_PROCEDURE_TYPE19068; t34670.value.native_procedure_type19068 = (struct p7892 *)t34668;}} return f8137(t34670, t34669); l4937: /* x153299 */ r16288.tag = FALSE_TYPE; return r16288; l4935: /* x153301 */ r16288.tag = FALSE_TYPE; return r16288;} /* TWO-ARGUMENTS-TRULY-COMPATIBLE?[16287] */ struct p16287 *f16287(unsigned a27331, unsigned a27332) {struct p16287 *e16287; e16287 = (struct p16287 *)GC_malloc(sizeof(struct p16287)); if (e16287==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16287->a27331 = a27331; e16287->a27332 = a27332; /* x153316 */ return e16287;} /* [inside ONE-ARGUMENT-TRULY-COMPATIBLE? 16283] */ struct w16638 f16283(struct p16282 *p16283, struct w49 a27328, struct w49 a27329) {struct w16638 r16283; struct w49 a36030; /* PAIR */ struct p16282 *t34675; int t34676; int t34677; struct w49 t34678; unsigned t34679; struct w49 t34680; struct w211257 t34681; struct w49 t34682; struct w49 t34683; struct w49 t34684; struct w211235 t34685; char *t34686; struct p16282 *p16284; /* x153277 */ /* x153276 stalin.sc:20946:733105 */ /* x153269 stalin.sc:20946:733111 */ /* x153267 stalin.sc:20946:733124 */ /* x153268 stalin.sc:20946:733135 */ t34684 = a27329; /* x153266 stalin.sc:20946:733112 */ t34685.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t34685, t34684).tag)==FALSE_TYPE) goto l4944; /* x153273 */ /* x153272 */ /* x153271 stalin.sc:20946:733138 */ /* x153270 stalin.sc:20946:733139 */ /* x295965 QobiScheme.sc:166:5314 */ /* x295964 QobiScheme.sc:166:5321 */ t34686 = "This shouldn\'t happen"; /* x295963 QobiScheme.sc:166:5315 */ stalin_panic(t34686); goto l4945; l4944: /* x153275 stalin.sc:20946:733105 */ /* x153274 stalin.sc:20946:733105 */ l4945: /* x153265 */ t34675 = p16283; p16284 = t34675; /* x153264 stalin.sc:20947:733151 */ /* x153256 stalin.sc:20947:733156 */ /* x153254 stalin.sc:20947:733159 */ /* x153253 stalin.sc:20947:733167 */ t34678 = a27328; /* x153252 stalin.sc:20947:733160 */ t34676 = f26227(t34678); /* x153255 stalin.sc:20947:733171 */ t34677 = 1; /* x268334 stalin.sc:20947:733157 */ if (!(t34676==t34677)) goto l4942; /* x153262 */ /* x153258 stalin.sc:20947:733183 */ t34679 = p16284->a27327; /* x153261 stalin.sc:20947:733185 */ /* x153260 stalin.sc:20947:733192 */ t34682 = a27328; /* x153259 stalin.sc:20947:733186 */ a36030 = t34682; /* x275477 */ /* x275476 */ t34683 = a36030; /* x275475 */ if (!((t34683.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30179]"); structure_ref_error();} t34680 = t34683.value.structure_type24753->s0; /* x153257 stalin.sc:20947:733175 */ /* MOVE: dispatching squished to general */ switch (t34679) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19477: t34681.tag = (unsigned)t34679; break; default: switch (t34679&3) {case 2: t34681.tag = NATIVE_PROCEDURE_TYPE15963; t34681.value.native_procedure_type15963 = (struct p7717 *)(t34679-2); break; case 0: t34681.tag = NATIVE_PROCEDURE_TYPE19067; t34681.value.native_procedure_type19067 = (struct p7892 *)t34679; break; default: t34681.tag = NATIVE_PROCEDURE_TYPE19068; t34681.value.native_procedure_type19068 = (struct p7892 *)(t34679-1);}} return f8137(t34681, t34680); l4942: /* x153263 */ r16283.tag = FALSE_TYPE; return r16283;} /* ONE-ARGUMENT-TRULY-COMPATIBLE?[16282] */ struct p16282 *f16282(unsigned a27327) {struct p16282 *e16282; e16282 = (struct p16282 *)GC_malloc(sizeof(struct p16282)); if (e16282==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16282->a27327 = a27327; /* x153278 */ return e16282;} /* [inside ZERO-ARGUMENTS-TRULY-COMPATIBLE? 16278] */ void f16278(struct w49 a27325) {struct w49 t34687; struct w211235 t34688; char *t34689; /* x153247 */ /* x153246 stalin.sc:20941:732992 */ /* x153239 stalin.sc:20941:732998 */ /* x153237 stalin.sc:20941:733011 */ /* x153238 stalin.sc:20941:733022 */ t34687 = a27325; /* x153236 stalin.sc:20941:732999 */ t34688.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t34688, t34687).tag)==FALSE_TYPE) goto l4947; /* x153243 */ /* x153242 */ /* x153241 stalin.sc:20941:733025 */ /* x153240 stalin.sc:20941:733026 */ /* x295937 QobiScheme.sc:166:5314 */ /* x295936 QobiScheme.sc:166:5321 */ t34689 = "This shouldn\'t happen"; /* x295935 QobiScheme.sc:166:5315 */ stalin_panic(t34689); goto l4948; l4947: /* x153245 stalin.sc:20941:732992 */ /* x153244 stalin.sc:20941:732992 */ l4948: /* x153235 */ /* x153234 stalin.sc:20942:733038 */ return;} /* ZERO-ARGUMENTS-TRULY-COMPATIBLE?[16277] */ void f16277(void) {/* x153248 */ return;} /* TWO-OR-MORE-ARGUMENTS-COMPATIBLE?[16273] */ unsigned f16273(struct w49 a27321, struct w49 a27322) {int t34690; int t34691; struct w49 t34692; struct w49 t34693; struct w211235 t34694; char *t34695; /* x153231 */ /* x153230 stalin.sc:20936:732865 */ /* x153223 stalin.sc:20936:732871 */ /* x153221 stalin.sc:20936:732884 */ /* x153222 stalin.sc:20936:732895 */ t34693 = a27322; /* x153220 stalin.sc:20936:732872 */ t34694.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t34694, t34693).tag)==FALSE_TYPE) goto l4950; /* x153227 */ /* x153226 */ /* x153225 stalin.sc:20936:732898 */ /* x153224 stalin.sc:20936:732899 */ /* x295913 QobiScheme.sc:166:5314 */ /* x295912 QobiScheme.sc:166:5321 */ t34695 = "This shouldn\'t happen"; /* x295911 QobiScheme.sc:166:5315 */ stalin_panic(t34695); goto l4951; l4950: /* x153229 stalin.sc:20936:732865 */ /* x153228 stalin.sc:20936:732865 */ l4951: /* x153219 */ /* x153218 stalin.sc:20937:732910 */ /* x153216 stalin.sc:20937:732914 */ /* x153215 stalin.sc:20937:732922 */ t34692 = a27321; /* x153214 stalin.sc:20937:732915 */ t34690 = f26227(t34692); /* x153217 stalin.sc:20937:732926 */ t34691 = 2; /* x268335 stalin.sc:20937:732911 */ if (t34690>=t34691) return TRUE_TYPE; else return FALSE_TYPE;} /* ONE-OR-MORE-ARGUMENTS-COMPATIBLE?[16269] */ unsigned f16269(struct w49 a27317, struct w49 a27318) {int t34696; int t34697; struct w49 t34698; struct w49 t34699; struct w211235 t34700; char *t34701; /* x153210 */ /* x153209 stalin.sc:20932:732746 */ /* x153202 stalin.sc:20932:732752 */ /* x153200 stalin.sc:20932:732765 */ /* x153201 stalin.sc:20932:732776 */ t34699 = a27318; /* x153199 stalin.sc:20932:732753 */ t34700.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t34700, t34699).tag)==FALSE_TYPE) goto l4953; /* x153206 */ /* x153205 */ /* x153204 stalin.sc:20932:732779 */ /* x153203 stalin.sc:20932:732780 */ /* x295917 QobiScheme.sc:166:5314 */ /* x295916 QobiScheme.sc:166:5321 */ t34701 = "This shouldn\'t happen"; /* x295915 QobiScheme.sc:166:5315 */ stalin_panic(t34701); goto l4954; l4953: /* x153208 stalin.sc:20932:732746 */ /* x153207 stalin.sc:20932:732746 */ l4954: /* x153198 */ /* x153197 stalin.sc:20933:732791 */ /* x153195 stalin.sc:20933:732795 */ /* x153194 stalin.sc:20933:732803 */ t34698 = a27317; /* x153193 stalin.sc:20933:732796 */ t34696 = f26227(t34698); /* x153196 stalin.sc:20933:732807 */ t34697 = 1; /* x268336 stalin.sc:20933:732792 */ if (t34696>=t34697) return TRUE_TYPE; else return FALSE_TYPE;} /* ZERO-OR-MORE-ARGUMENTS-COMPATIBLE?[16265] */ unsigned f16265(struct w49 a27313, struct w49 a27314) {int t34702; int t34703; struct w49 t34704; struct w49 t34705; struct w211235 t34706; char *t34707; /* x153189 */ /* x153188 stalin.sc:20928:732627 */ /* x153181 stalin.sc:20928:732633 */ /* x153179 stalin.sc:20928:732646 */ /* x153180 stalin.sc:20928:732657 */ t34705 = a27314; /* x153178 stalin.sc:20928:732634 */ t34706.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t34706, t34705).tag)==FALSE_TYPE) goto l4956; /* x153185 */ /* x153184 */ /* x153183 stalin.sc:20928:732660 */ /* x153182 stalin.sc:20928:732661 */ /* x295909 QobiScheme.sc:166:5314 */ /* x295908 QobiScheme.sc:166:5321 */ t34707 = "This shouldn\'t happen"; /* x295907 QobiScheme.sc:166:5315 */ stalin_panic(t34707); goto l4957; l4956: /* x153187 stalin.sc:20928:732627 */ /* x153186 stalin.sc:20928:732627 */ l4957: /* x153177 */ /* x153176 stalin.sc:20929:732672 */ /* x153174 stalin.sc:20929:732676 */ /* x153173 stalin.sc:20929:732684 */ t34704 = a27313; /* x153172 stalin.sc:20929:732677 */ t34702 = f26227(t34704); /* x153175 stalin.sc:20929:732688 */ t34703 = 0; /* x268337 stalin.sc:20929:732673 */ if (t34702>=t34703) return TRUE_TYPE; else return FALSE_TYPE;} /* ONE-OR-TWO-ARGUMENTS-COMPATIBLE?[16260] */ unsigned f16260(struct w49 a27308, struct w49 a27309) {struct w49 t34709; struct w49 t34710; struct w49 t34712; struct w49 t34713; struct w49 t34714; struct w211235 t34715; char *t34716; /* x153168 */ /* x153167 stalin.sc:20924:732450 */ /* x153160 stalin.sc:20924:732456 */ /* x153158 stalin.sc:20924:732469 */ /* x153159 stalin.sc:20924:732480 */ t34714 = a27309; /* x153157 stalin.sc:20924:732457 */ t34715.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t34715, t34714).tag)==FALSE_TYPE) goto l4963; /* x153164 */ /* x153163 */ /* x153162 stalin.sc:20924:732483 */ /* x153161 stalin.sc:20924:732484 */ /* x295921 QobiScheme.sc:166:5314 */ /* x295920 QobiScheme.sc:166:5321 */ t34716 = "This shouldn\'t happen"; /* x295919 QobiScheme.sc:166:5315 */ stalin_panic(t34716); goto l4964; l4963: /* x153166 stalin.sc:20924:732450 */ /* x153165 stalin.sc:20924:732450 */ l4964: /* x153156 */ /* x153155 stalin.sc:20925:732495 */ /* x153155 stalin.sc:20925:732495 */ /* x153154 stalin.sc:20925:732499 */ /* x153151 stalin.sc:20925:732525 */ /* x153152 stalin.sc:20925:732528 */ t34709 = a27308; /* x153153 stalin.sc:20925:732531 */ t34710 = a27309; /* x153150 stalin.sc:20925:732500 */ if (!(f16244(t34709, t34710)==FALSE_TYPE)) goto l4958; /* x153147 */ /* x153144 stalin.sc:20925:732561 */ /* x153145 stalin.sc:20925:732564 */ t34712 = a27308; /* x153146 stalin.sc:20925:732567 */ t34713 = a27309; /* x153143 stalin.sc:20925:732535 */ if (f16248(t34712, t34713)==FALSE_TYPE) goto l4959; l4958: return TRUE_TYPE; l4959: return FALSE_TYPE;} /* N-ARGUMENTS-COMPATIBLE?[16256] */ unsigned f16256(struct w49 a27303, struct w49 a27304, struct w49 a27305) {struct w49 a38174; /* S */ int t34717; struct w49 t34718; struct w49 t34719; struct w49 t34720; struct w49 t34721; struct w49 t34722; struct w49 t34723; struct w211235 t34724; char *t34725; /* x153138 */ /* x153137 stalin.sc:20920:732286 */ /* x153130 stalin.sc:20920:732292 */ /* x153128 stalin.sc:20920:732305 */ /* x153129 stalin.sc:20920:732316 */ t34723 = a27305; /* x153127 stalin.sc:20920:732293 */ t34724.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t34724, t34723).tag)==FALSE_TYPE) goto l4966; /* x153134 */ /* x153133 */ /* x153132 stalin.sc:20920:732319 */ /* x153131 stalin.sc:20920:732320 */ /* x295905 QobiScheme.sc:166:5314 */ /* x295904 QobiScheme.sc:166:5321 */ t34725 = "This shouldn\'t happen"; /* x295903 QobiScheme.sc:166:5315 */ stalin_panic(t34725); goto l4967; l4966: /* x153136 stalin.sc:20920:732286 */ /* x153135 stalin.sc:20920:732286 */ l4967: /* x153126 */ /* x153125 stalin.sc:20921:732331 */ /* x153119 stalin.sc:20921:732334 */ /* x153118 stalin.sc:20921:732342 */ t34719 = a27304; /* x153117 stalin.sc:20921:732335 */ t34717 = f26227(t34719); /* x153124 stalin.sc:20921:732346 */ /* x153123 stalin.sc:20921:732354 */ /* x153122 stalin.sc:20921:732390 */ t34721 = a27303; /* x153121 stalin.sc:20921:732355 */ a38174 = t34721; /* x285365 */ /* x285364 */ t34722 = a38174; /* x285363 */ if (!((t34722.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33091]"); structure_ref_error();} t34720 = t34722.value.structure_type27753->s1; /* x153120 stalin.sc:20921:732347 */ t34718 = f26181(t34720); /* x268338 stalin.sc:20921:732332 */ switch (t34718.tag) {case FIXNUM_TYPE: if (t34717==(t34718.value.fixnum_type)) return TRUE_TYPE; else return FALSE_TYPE; case FLONUM_TYPE: if (t34717==(t34718.value.flonum_type)) return TRUE_TYPE; else return FALSE_TYPE; default: backtrace("stalin.sc", 20921, 732331); eql_error();}} /* THREE-ARGUMENTS-COMPATIBLE?[16252] */ unsigned f16252(struct w49 a27300, struct w49 a27301) {int t34726; int t34727; struct w49 t34728; struct w49 t34729; struct w211235 t34730; char *t34731; /* x153113 */ /* x153112 stalin.sc:20916:732178 */ /* x153105 stalin.sc:20916:732184 */ /* x153103 stalin.sc:20916:732197 */ /* x153104 stalin.sc:20916:732208 */ t34729 = a27301; /* x153102 stalin.sc:20916:732185 */ t34730.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t34730, t34729).tag)==FALSE_TYPE) goto l4969; /* x153109 */ /* x153108 */ /* x153107 stalin.sc:20916:732211 */ /* x153106 stalin.sc:20916:732212 */ /* x295929 QobiScheme.sc:166:5314 */ /* x295928 QobiScheme.sc:166:5321 */ t34731 = "This shouldn\'t happen"; /* x295927 QobiScheme.sc:166:5315 */ stalin_panic(t34731); goto l4970; l4969: /* x153111 stalin.sc:20916:732178 */ /* x153110 stalin.sc:20916:732178 */ l4970: /* x153101 */ /* x153100 stalin.sc:20917:732223 */ /* x153098 stalin.sc:20917:732226 */ /* x153097 stalin.sc:20917:732234 */ t34728 = a27300; /* x153096 stalin.sc:20917:732227 */ t34726 = f26227(t34728); /* x153099 stalin.sc:20917:732238 */ t34727 = 3; /* x268339 stalin.sc:20917:732224 */ if (t34726==t34727) return TRUE_TYPE; else return FALSE_TYPE;} /* TWO-ARGUMENTS-COMPATIBLE?[16248] */ unsigned f16248(struct w49 a27296, struct w49 a27297) {int t34732; int t34733; struct w49 t34734; struct w49 t34735; struct w211235 t34736; char *t34737; /* x153092 */ /* x153091 stalin.sc:20912:732066 */ /* x153084 stalin.sc:20912:732072 */ /* x153082 stalin.sc:20912:732085 */ /* x153083 stalin.sc:20912:732096 */ t34735 = a27297; /* x153081 stalin.sc:20912:732073 */ t34736.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t34736, t34735).tag)==FALSE_TYPE) goto l4972; /* x153088 */ /* x153087 */ /* x153086 stalin.sc:20912:732099 */ /* x153085 stalin.sc:20912:732100 */ /* x295925 QobiScheme.sc:166:5314 */ /* x295924 QobiScheme.sc:166:5321 */ t34737 = "This shouldn\'t happen"; /* x295923 QobiScheme.sc:166:5315 */ stalin_panic(t34737); goto l4973; l4972: /* x153090 stalin.sc:20912:732066 */ /* x153089 stalin.sc:20912:732066 */ l4973: /* x153080 */ /* x153079 stalin.sc:20913:732111 */ /* x153077 stalin.sc:20913:732114 */ /* x153076 stalin.sc:20913:732122 */ t34734 = a27296; /* x153075 stalin.sc:20913:732115 */ t34732 = f26227(t34734); /* x153078 stalin.sc:20913:732126 */ t34733 = 2; /* x268340 stalin.sc:20913:732112 */ if (t34732==t34733) return TRUE_TYPE; else return FALSE_TYPE;} /* ONE-ARGUMENT-COMPATIBLE?[16244] */ unsigned f16244(struct w49 a27292, struct w49 a27293) {int t34738; int t34739; struct w49 t34740; struct w49 t34741; struct w211235 t34742; char *t34743; /* x153071 */ /* x153070 stalin.sc:20908:731956 */ /* x153063 stalin.sc:20908:731962 */ /* x153061 stalin.sc:20908:731975 */ /* x153062 stalin.sc:20908:731986 */ t34741 = a27293; /* x153060 stalin.sc:20908:731963 */ t34742.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t34742, t34741).tag)==FALSE_TYPE) goto l4975; /* x153067 */ /* x153066 */ /* x153065 stalin.sc:20908:731989 */ /* x153064 stalin.sc:20908:731990 */ /* x295933 QobiScheme.sc:166:5314 */ /* x295932 QobiScheme.sc:166:5321 */ t34743 = "This shouldn\'t happen"; /* x295931 QobiScheme.sc:166:5315 */ stalin_panic(t34743); goto l4976; l4975: /* x153069 stalin.sc:20908:731956 */ /* x153068 stalin.sc:20908:731956 */ l4976: /* x153059 */ /* x153058 stalin.sc:20909:732001 */ /* x153056 stalin.sc:20909:732004 */ /* x153055 stalin.sc:20909:732012 */ t34740 = a27292; /* x153054 stalin.sc:20909:732005 */ t34738 = f26227(t34740); /* x153057 stalin.sc:20909:732016 */ t34739 = 1; /* x268341 stalin.sc:20909:732002 */ if (t34738==t34739) return TRUE_TYPE; else return FALSE_TYPE;} /* ZERO-ARGUMENTS-COMPATIBLE?[16240] */ unsigned f16240(struct w49 a27288, struct w49 a27289) {int t34744; int t34745; struct w49 t34746; struct w49 t34747; struct w211235 t34748; char *t34749; /* x153050 */ /* x153049 stalin.sc:20904:731847 */ /* x153042 stalin.sc:20904:731853 */ /* x153040 stalin.sc:20904:731866 */ /* x153041 stalin.sc:20904:731877 */ t34747 = a27289; /* x153039 stalin.sc:20904:731854 */ t34748.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t34748, t34747).tag)==FALSE_TYPE) goto l4978; /* x153046 */ /* x153045 */ /* x153044 stalin.sc:20904:731880 */ /* x153043 stalin.sc:20904:731881 */ /* x295969 QobiScheme.sc:166:5314 */ /* x295968 QobiScheme.sc:166:5321 */ t34749 = "This shouldn\'t happen"; /* x295967 QobiScheme.sc:166:5315 */ stalin_panic(t34749); goto l4979; l4978: /* x153048 stalin.sc:20904:731847 */ /* x153047 stalin.sc:20904:731847 */ l4979: /* x153038 */ /* x153037 stalin.sc:20905:731892 */ /* x153035 stalin.sc:20905:731895 */ /* x153034 stalin.sc:20905:731903 */ t34746 = a27288; /* x153033 stalin.sc:20905:731896 */ t34744 = f26227(t34746); /* x153036 stalin.sc:20905:731907 */ t34745 = 0; /* x268342 stalin.sc:20905:731893 */ if (t34744==t34745) return TRUE_TYPE; else return FALSE_TYPE;} /* MAKE-PRIMITIVE-PROCEDURE[16182] */ struct structure_type24757 *f16182(unsigned a27209, unsigned a27210, unsigned a27211, unsigned a27212, unsigned a27213, unsigned a27214, unsigned a27215) {struct structure_type24757 *r16182; unsigned t34750; unsigned t34751; unsigned t34752; unsigned t34753; unsigned t34754; unsigned t34755; unsigned t34756; /* x152749 */ /* x152742 */ t34750 = a27209; /* x152743 */ t34751 = a27210; /* x152744 */ t34752 = a27211; /* x152745 */ t34753 = a27212; /* x152746 */ t34754 = a27213; /* x152747 */ t34755 = a27214; /* x152748 */ t34756 = a27215; /* x152741 */ r16182 = (struct structure_type24757 *)GC_malloc_atomic(sizeof(struct structure_type24757)); if (r16182==NULL) {backtrace_internal("MAKE-PRIMITIVE-PROCEDURE[16182]"); out_of_memory_error();} r16182->s0 = t34750; r16182->s1 = t34751; r16182->s2 = t34752; r16182->s3 = t34753; r16182->s4 = t34754; r16182->s5 = t34755; r16182->s6 = t34756; return r16182;} /* [inside COMPILE-ASSERTIONS 16181] */ struct structure_type24753 *f16181(struct w49 a27208) {struct structure_type24753 *t34757; struct structure_type24753 *t34758; char *t34759; struct w49 t34760; struct w49 t34761; struct w49 t34762; struct w49 t34763; char *t34764; struct w49 t34765; struct w49 t34766; struct w49 t34767; /* x152730 stalin.sc:20888:731460 */ /* x152729 stalin.sc:20889:731473 */ /* x152723 stalin.sc:20889:731479 */ /* x152722 stalin.sc:20889:731489 */ /* x152720 stalin.sc:20889:731501 */ t34763 = a27208; /* x152721 stalin.sc:20889:731503 */ t34764 = ""; /* x152719 stalin.sc:20889:731490 */ t34765.tag = STRING_TYPE; t34765.value.string_type = t34764; t34762 = f14414(t34763, t34765); /* x152718 stalin.sc:20889:731480 */ t34758 = f13544(t34762); /* x152728 stalin.sc:20889:731508 */ /* x152727 stalin.sc:20889:731518 */ /* x152726 stalin.sc:20889:731533 */ t34767 = a27208; /* x152725 stalin.sc:20889:731519 */ t34766 = f14154(t34767); /* x152724 stalin.sc:20889:731509 */ t34759 = f13530(t34766); /* x152717 stalin.sc:20889:731474 */ t34760.tag = STRUCTURE_TYPE24753; t34760.value.structure_type24753 = t34758; t34761.tag = STRING_TYPE; t34761.value.string_type = t34759; t34757 = f13591(t34760, t34761); /* x152716 stalin.sc:20888:731461 */ return f13782(t34757);} /* [inside COMPILE-ASSERTIONS 16180] */ struct structure_type24753 *f16180(struct w49 a27207) {struct structure_type24753 *t34768; struct structure_type24753 *t34769; char *t34770; struct w49 t34771; struct w49 t34772; struct w49 t34773; struct w49 t34774; char *t34775; struct w49 t34776; struct w49 t34777; struct w49 t34778; /* x152688 stalin.sc:20878:730999 */ /* x152687 stalin.sc:20878:731009 */ /* x152681 stalin.sc:20878:731015 */ /* x152680 stalin.sc:20878:731025 */ /* x152678 stalin.sc:20878:731033 */ t34774 = a27207; /* x152679 stalin.sc:20878:731035 */ t34775 = ""; /* x152677 stalin.sc:20878:731026 */ t34776.tag = STRING_TYPE; t34776.value.string_type = t34775; t34773 = f14374(t34774, t34776); /* x152676 stalin.sc:20878:731016 */ t34769 = f13544(t34773); /* x152686 stalin.sc:20878:731040 */ /* x152685 stalin.sc:20878:731050 */ /* x152684 stalin.sc:20878:731061 */ t34778 = a27207; /* x152683 stalin.sc:20878:731051 */ t34777 = f14094(t34778); /* x152682 stalin.sc:20878:731041 */ t34770 = f13530(t34777); /* x152675 stalin.sc:20878:731010 */ t34771.tag = STRUCTURE_TYPE24753; t34771.value.structure_type24753 = t34769; t34772.tag = STRING_TYPE; t34772.value.string_type = t34770; t34768 = f13591(t34771, t34772); /* x152674 stalin.sc:20878:731000 */ return f13782(t34768);} /* [inside COMPILE-ASSERTIONS 16178] */ struct structure_type24753 *f16178(struct w49 a27205) {struct structure_type24753 *t34779; struct structure_type24753 *t34780; char *t34781; struct w49 t34782; struct w49 t34783; struct p16178 *t34784; struct w165970 t34785; struct w30215 t34786; struct w49 t34787; int t34788; struct w49 t34789; struct w49 t34790; struct p16178 *e16178; e16178 = (struct p16178 *)alloca(sizeof(struct p16178)); if (e16178==NULL) {backtrace("stalin.sc", 20830, 729325); out_of_memory_error();} e16178->a27205 = a27205; /* x152472 stalin.sc:20831:729342 */ /* x152471 stalin.sc:20832:729358 */ /* x152462 stalin.sc:20832:729364 */ /* x152461 stalin.sc:20832:729375 */ t34784 = e16178; /* x152456 stalin.sc:20832:729365 */ t34785.tag = NATIVE_PROCEDURE_TYPE23919; t34785.value.native_procedure_type23919 = t34784; t34780 = f13545(t34785); /* x152470 stalin.sc:20833:729411 */ /* x152469 stalin.sc:20833:729421 */ /* x152465 stalin.sc:20833:729427 */ t34788 = 2; /* x152468 stalin.sc:20833:729429 */ /* x152467 stalin.sc:20833:729449 */ t34790 = e16178->a27205; /* x152466 stalin.sc:20833:729430 */ t34789 = f14079(t34790); /* x268344 stalin.sc:20833:729422 */ switch (t34789.tag) {case FIXNUM_TYPE: if ((t34789.value.fixnum_type)<0) {t34786.tag = FLONUM_TYPE; t34786.value.flonum_type = pow(t34788, (t34789.value.fixnum_type));} else {t34786.tag = FIXNUM_TYPE; t34786.value.fixnum_type = ipow(t34788, (t34789.value.fixnum_type));} break; case FLONUM_TYPE: t34786.tag = FLONUM_TYPE; t34786.value.flonum_type = pow(t34788, (t34789.value.flonum_type)); break; default: backtrace("stalin.sc", 20833, 729421); expt2_error();} /* x152463 stalin.sc:20833:729412 */ t34787 = *((struct w49 *)(&t34786)); t34781 = f13530(t34787); /* x152455 stalin.sc:20832:729359 */ t34782.tag = STRUCTURE_TYPE24753; t34782.value.structure_type24753 = t34780; t34783.tag = STRING_TYPE; t34783.value.string_type = t34781; t34779 = f13591(t34782, t34783); /* x152454 stalin.sc:20831:729343 */ return f13782(t34779);} /* [inside COMPILE-ASSERTIONS 16176] */ struct structure_type24753 *f16176(struct w49 a27203) {struct structure_type24753 *t34791; struct structure_type24753 *t34792; char *t34793; struct w49 t34794; struct w49 t34795; struct p16176 *t34796; struct w165970 t34797; struct w30215 t34798; struct w49 t34799; int t34800; struct w49 t34801; struct w49 t34802; struct p16176 *e16176; e16176 = (struct p16176 *)alloca(sizeof(struct p16176)); if (e16176==NULL) {backtrace("stalin.sc", 20824, 729077); out_of_memory_error();} e16176->a27203 = a27203; /* x152444 stalin.sc:20825:729091 */ /* x152443 stalin.sc:20825:729101 */ /* x152434 stalin.sc:20825:729107 */ /* x152433 stalin.sc:20826:729123 */ t34796 = e16176; /* x152425 stalin.sc:20825:729108 */ t34797.tag = NATIVE_PROCEDURE_TYPE23918; t34797.value.native_procedure_type23918 = t34796; t34792 = f13545(t34797); /* x152442 stalin.sc:20827:729176 */ /* x152441 stalin.sc:20827:729186 */ /* x152437 stalin.sc:20827:729192 */ t34800 = 2; /* x152440 stalin.sc:20827:729194 */ /* x152439 stalin.sc:20827:729211 */ t34802 = e16176->a27203; /* x152438 stalin.sc:20827:729195 */ t34801 = f13860(t34802); /* x268345 stalin.sc:20827:729187 */ switch (t34801.tag) {case FIXNUM_TYPE: if ((t34801.value.fixnum_type)<0) {t34798.tag = FLONUM_TYPE; t34798.value.flonum_type = pow(t34800, (t34801.value.fixnum_type));} else {t34798.tag = FIXNUM_TYPE; t34798.value.fixnum_type = ipow(t34800, (t34801.value.fixnum_type));} break; case FLONUM_TYPE: t34798.tag = FLONUM_TYPE; t34798.value.flonum_type = pow(t34800, (t34801.value.flonum_type)); break; default: backtrace("stalin.sc", 20827, 729186); expt2_error();} /* x152435 stalin.sc:20827:729177 */ t34799 = *((struct w49 *)(&t34798)); t34793 = f13530(t34799); /* x152424 stalin.sc:20825:729102 */ t34794.tag = STRUCTURE_TYPE24753; t34794.value.structure_type24753 = t34792; t34795.tag = STRING_TYPE; t34795.value.string_type = t34793; t34791 = f13591(t34794, t34795); /* x152423 stalin.sc:20825:729092 */ return f13782(t34791);} /* [inside COMPILE-ASSERTIONS 16174] */ struct structure_type24753 *f16174(struct w49 a27201) {struct structure_type24753 *t34803; struct structure_type24753 *t34804; char *t34805; struct w49 t34806; struct w49 t34807; struct p16174 *t34808; struct w165970 t34809; struct w30215 t34810; struct w49 t34811; int t34812; struct w49 t34813; struct w49 t34814; struct p16174 *e16174; e16174 = (struct p16174 *)alloca(sizeof(struct p16174)); if (e16174==NULL) {backtrace("stalin.sc", 20819, 728869); out_of_memory_error();} e16174->a27201 = a27201; /* x152413 stalin.sc:20820:728883 */ /* x152412 stalin.sc:20820:728893 */ /* x152403 stalin.sc:20820:728899 */ /* x152402 stalin.sc:20820:728910 */ t34808 = e16174; /* x152397 stalin.sc:20820:728900 */ t34809.tag = NATIVE_PROCEDURE_TYPE23924; t34809.value.native_procedure_type23924 = t34808; t34804 = f13545(t34809); /* x152411 stalin.sc:20821:728942 */ /* x152410 stalin.sc:20821:728952 */ /* x152406 stalin.sc:20821:728958 */ t34812 = 2; /* x152409 stalin.sc:20821:728960 */ /* x152408 stalin.sc:20821:728977 */ t34814 = e16174->a27201; /* x152407 stalin.sc:20821:728961 */ t34813 = f13860(t34814); /* x268346 stalin.sc:20821:728953 */ switch (t34813.tag) {case FIXNUM_TYPE: if ((t34813.value.fixnum_type)<0) {t34810.tag = FLONUM_TYPE; t34810.value.flonum_type = pow(t34812, (t34813.value.fixnum_type));} else {t34810.tag = FIXNUM_TYPE; t34810.value.fixnum_type = ipow(t34812, (t34813.value.fixnum_type));} break; case FLONUM_TYPE: t34810.tag = FLONUM_TYPE; t34810.value.flonum_type = pow(t34812, (t34813.value.flonum_type)); break; default: backtrace("stalin.sc", 20821, 728952); expt2_error();} /* x152404 stalin.sc:20821:728943 */ t34811 = *((struct w49 *)(&t34810)); t34805 = f13530(t34811); /* x152396 stalin.sc:20820:728894 */ t34806.tag = STRUCTURE_TYPE24753; t34806.value.structure_type24753 = t34804; t34807.tag = STRING_TYPE; t34807.value.string_type = t34805; t34803 = f13591(t34806, t34807); /* x152395 stalin.sc:20820:728884 */ return f13782(t34803);} /* [inside COMPILE-ASSERTIONS 16161] */ struct w61020 f16161(struct w49 a27192) {struct w61020 r16161; struct w49 a19593; /* S */ struct w49 a36745; /* OBJ */ struct w49 a36746; /* OBJ */ char *t34815; char *t34816; char *t34817; char *t34818; struct w49 t34819; struct w49 t34820; struct w49 t34821; struct w49 t34822; struct w49 t34823; struct w49 t34824; struct w49 t34825; struct w49 t34826; struct w49 t34827; struct w49 t34828; struct w49 t34829; struct structure_type24753 *t34830; struct structure_type24753 *t34831; struct structure_type24753 *t34832; char *t34833; struct w49 t34834; struct w49 t34835; struct p16161 *t34836; struct w165970 t34837; struct w30215 t34838; struct w49 t34839; int t34840; struct w49 t34841; struct w49 t34842; struct p16161 *e16161; struct p16161 *p16163; struct p16161 *p16164; struct p16161 *p16165; e16161 = (struct p16161 *)alloca(sizeof(struct p16161)); if (e16161==NULL) {backtrace("stalin.sc", 20796, 728016); out_of_memory_error();} e16161->a27192 = a27192; /* x152385 stalin.sc:20797:728030 */ /* x152307 stalin.sc:20797:728034 */ /* x152262 stalin.sc:20797:728039 */ /* x152261 stalin.sc:20797:728043 */ /* x152259 stalin.sc:20797:728048 */ t34815 = a687; /* x152260 stalin.sc:20797:728076 */ t34816 = q15; /* x268352 stalin.sc:20797:728044 */ if (t34815==t34816) goto l4982; /* x152255 */ /* x152253 stalin.sc:20798:728100 */ t34817 = a687; /* x152254 stalin.sc:20798:728128 */ t34818 = q16; /* x268353 stalin.sc:20798:728096 */ if (!(t34817==t34818)) goto l4981; l4982: /* x152305 */ /* x152304 stalin.sc:20799:728152 */ /* x152303 stalin.sc:20799:728157 */ /* x152302 stalin.sc:20800:728178 */ /* x152301 stalin.sc:20800:728218 */ t34821 = e16161->a27192; /* x152300 stalin.sc:20800:728179 */ a19593 = t34821; /* x51939 */ /* x51938 */ t34822 = a19593; /* x51937 */ if (!((t34822.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("NATIVE-PROCEDURE-TYPE-NARROW-PROTOTYPE[5953]"); structure_ref_error();} t34819 = t34822.value.structure_type27756->s1; /* x152299 stalin.sc:20799:728158 */ a36746 = t34819; /* x279653 */ /* x279652 */ t34820 = a36746; /* x279651 */ if (!((t34820.tag)==STRUCTURE_TYPE27694)) goto l4980; p16163 = e16161; /* x152295 */ /* x152294 stalin.sc:20801:728231 */ /* x152293 stalin.sc:20801:728236 */ /* x152292 stalin.sc:20801:728255 */ /* x152291 stalin.sc:20801:728273 */ t34824 = p16163->a27192; /* x152290 stalin.sc:20801:728256 */ t34823 = f8966(t34824); /* x152289 stalin.sc:20801:728237 */ if (f8526(t34823)==FALSE_TYPE) goto l4980; p16164 = p16163; /* x152285 */ /* x152284 stalin.sc:20802:728286 */ /* x152283 stalin.sc:20802:728291 */ /* x152282 stalin.sc:20802:728305 */ /* x152281 stalin.sc:20802:728323 */ t34827 = p16164->a27192; /* x152280 stalin.sc:20802:728306 */ t34825 = f8965(t34827); /* x152279 stalin.sc:20802:728292 */ a36745 = t34825; /* x279649 */ /* x279648 */ t34826 = a36745; /* x279647 */ if (!((t34826.tag)==STRUCTURE_TYPE27694)) goto l4980; p16165 = p16164; /* x152275 */ /* x152274 stalin.sc:20803:728341 */ /* x152273 stalin.sc:20803:728360 */ /* x152272 stalin.sc:20803:728378 */ t34829 = p16165->a27192; /* x152271 stalin.sc:20803:728361 */ t34828 = f8965(t34829); /* x152270 stalin.sc:20803:728342 */ if (!(f8526(t34828)==FALSE_TYPE)) goto l4981; l4980: /* x152309 stalin.sc:20804:728391 */ /* x152308 stalin.sc:20804:728392 */ /* x276421 stalin.sc:14693:514793 */ r16161.tag = STRING_TYPE; r16161.value.string_type = ""; return r16161; l4981: /* x152384 stalin.sc:20805:728406 */ /* x152383 stalin.sc:20805:728416 */ /* x152374 stalin.sc:20805:728422 */ /* x152373 stalin.sc:20806:728442 */ t34836 = e16161; /* x152312 stalin.sc:20805:728423 */ t34837.tag = NATIVE_PROCEDURE_TYPE23903; t34837.value.native_procedure_type23903 = t34836; t34832 = f13545(t34837); /* x152382 stalin.sc:20815:728710 */ /* x152381 stalin.sc:20815:728720 */ /* x152377 stalin.sc:20815:728726 */ t34840 = 2; /* x152380 stalin.sc:20815:728728 */ /* x152379 stalin.sc:20815:728745 */ t34842 = e16161->a27192; /* x152378 stalin.sc:20815:728729 */ t34841 = f13860(t34842); /* x268347 stalin.sc:20815:728721 */ switch (t34841.tag) {case FIXNUM_TYPE: if ((t34841.value.fixnum_type)<0) {t34838.tag = FLONUM_TYPE; t34838.value.flonum_type = pow(t34840, (t34841.value.fixnum_type));} else {t34838.tag = FIXNUM_TYPE; t34838.value.fixnum_type = ipow(t34840, (t34841.value.fixnum_type));} break; case FLONUM_TYPE: t34838.tag = FLONUM_TYPE; t34838.value.flonum_type = pow(t34840, (t34841.value.flonum_type)); break; default: backtrace("stalin.sc", 20815, 728720); expt2_error();} /* x152375 stalin.sc:20815:728711 */ t34839 = *((struct w49 *)(&t34838)); t34833 = f13530(t34839); /* x152311 stalin.sc:20805:728417 */ t34834.tag = STRUCTURE_TYPE24753; t34834.value.structure_type24753 = t34832; t34835.tag = STRING_TYPE; t34835.value.string_type = t34833; t34830 = f13591(t34834, t34835); /* x152310 stalin.sc:20805:728407 */ t34831 = f13782(t34830); r16161.tag = STRUCTURE_TYPE24753; r16161.value.structure_type24753 = t34831; return r16161;} /* [inside COMPILE-ASSERTIONS 16154] */ struct w61020 f16154(struct w49 a27186) {struct w61020 r16154; struct w49 a20527; /* OBJ */ char *t34843; char *t34844; char *t34845; char *t34846; struct w49 t34847; struct w49 t34848; struct structure_type24753 *t34849; struct structure_type24753 *t34850; struct structure_type24753 *t34851; char *t34852; struct w49 t34853; struct w49 t34854; struct p16154 *t34855; struct w165970 t34856; struct w30215 t34857; struct w49 t34858; int t34859; struct w49 t34860; struct w49 t34861; struct p16154 *t34862; struct w21193 t34863; struct w227506 t34864; struct w49 t34865; struct p16154 *e16154; e16154 = (struct p16154 *)alloca(sizeof(struct p16154)); if (e16154==NULL) {backtrace("stalin.sc", 20770, 727198); out_of_memory_error();} e16154->a27186 = a27186; /* x152207 stalin.sc:20771:727214 */ /* x152156 stalin.sc:20771:727218 */ /* x152149 stalin.sc:20771:727223 */ /* x152148 stalin.sc:20771:727227 */ /* x152146 stalin.sc:20771:727232 */ t34843 = a687; /* x152147 stalin.sc:20771:727260 */ t34844 = q15; /* x268359 stalin.sc:20771:727228 */ if (t34843==t34844) goto l4989; /* x152142 */ /* x152140 stalin.sc:20772:727279 */ t34845 = a687; /* x152141 stalin.sc:20772:727307 */ t34846 = q16; /* x268360 stalin.sc:20772:727275 */ if (!(t34845==t34846)) goto l4988; l4989: /* x152154 */ /* x152153 stalin.sc:20773:727334 */ /* x152152 stalin.sc:20773:727348 */ t34847 = e16154->a27186; /* x152151 stalin.sc:20773:727335 */ a20527 = t34847; /* x55335 */ /* x55334 */ t34848 = a20527; /* x55333 */ if ((t34848.tag)==STRUCTURE_TYPE27694) goto l4988; /* x152158 stalin.sc:20774:727361 */ /* x152157 stalin.sc:20774:727362 */ /* x276419 stalin.sc:14693:514793 */ r16154.tag = STRING_TYPE; r16154.value.string_type = ""; return r16154; l4988: /* x152206 stalin.sc:20775:727378 */ /* x152205 stalin.sc:20776:727390 */ /* x152170 stalin.sc:20776:727396 */ /* x152169 stalin.sc:20777:727416 */ t34855 = e16154; /* x152161 stalin.sc:20776:727397 */ t34856.tag = NATIVE_PROCEDURE_TYPE23916; t34856.value.native_procedure_type23916 = t34855; t34851 = f13545(t34856); /* x152204 stalin.sc:20778:727473 */ /* x152203 stalin.sc:20778:727483 */ /* x152173 stalin.sc:20779:727494 */ t34859 = 2; /* x152202 stalin.sc:20780:727501 */ /* x152201 stalin.sc:20781:727524 */ /* x152199 stalin.sc:20781:727533 */ t34862 = e16154; /* x152200 stalin.sc:20786:727673 */ t34863 = a1945; /* x152175 stalin.sc:20781:727525 */ t34864.tag = NATIVE_PROCEDURE_TYPE23915; t34864.value.native_procedure_type23915 = t34862; t34865 = *((struct w49 *)(&t34863)); t34861 = f1314(t34864, t34865); /* x152174 stalin.sc:20780:727502 */ t34860 = f13860(t34861); /* x268357 stalin.sc:20778:727484 */ switch (t34860.tag) {case FIXNUM_TYPE: if ((t34860.value.fixnum_type)<0) {t34857.tag = FLONUM_TYPE; t34857.value.flonum_type = pow(t34859, (t34860.value.fixnum_type));} else {t34857.tag = FIXNUM_TYPE; t34857.value.fixnum_type = ipow(t34859, (t34860.value.fixnum_type));} break; case FLONUM_TYPE: t34857.tag = FLONUM_TYPE; t34857.value.flonum_type = pow(t34859, (t34860.value.flonum_type)); break; default: backtrace("stalin.sc", 20778, 727483); expt2_error();} /* x152171 stalin.sc:20778:727474 */ t34858 = *((struct w49 *)(&t34857)); t34852 = f13530(t34858); /* x152160 stalin.sc:20776:727391 */ t34853.tag = STRUCTURE_TYPE24753; t34853.value.structure_type24753 = t34851; t34854.tag = STRING_TYPE; t34854.value.string_type = t34852; t34849 = f13591(t34853, t34854); /* x152159 stalin.sc:20775:727379 */ t34850 = f13782(t34849); r16154.tag = STRUCTURE_TYPE24753; r16154.value.structure_type24753 = t34850; return r16154;} /* [inside COMPILE-ASSERTIONS 16151] */ struct structure_type24753 *f16151(struct w49 a27184) {struct structure_type24753 *t34866; struct structure_type24753 *t34867; char *t34868; struct w49 t34869; struct w49 t34870; struct p16151 *t34871; struct w165970 t34872; struct w30215 t34873; struct w49 t34874; int t34875; struct w49 t34876; struct w49 t34877; struct p16151 *e16151; e16151 = (struct p16151 *)alloca(sizeof(struct p16151)); if (e16151==NULL) {backtrace("stalin.sc", 20762, 726924); out_of_memory_error();} e16151->a27184 = a27184; /* x152121 stalin.sc:20763:726940 */ /* x152120 stalin.sc:20764:726955 */ /* x152111 stalin.sc:20764:726961 */ /* x152110 stalin.sc:20764:726972 */ t34871 = e16151; /* x152102 stalin.sc:20764:726962 */ t34872.tag = NATIVE_PROCEDURE_TYPE23901; t34872.value.native_procedure_type23901 = t34871; t34867 = f13545(t34872); /* x152119 stalin.sc:20765:727025 */ /* x152118 stalin.sc:20765:727035 */ /* x152114 stalin.sc:20765:727041 */ t34875 = 2; /* x152117 stalin.sc:20765:727043 */ /* x152116 stalin.sc:20765:727060 */ t34877 = e16151->a27184; /* x152115 stalin.sc:20765:727044 */ t34876 = f13860(t34877); /* x268361 stalin.sc:20765:727036 */ switch (t34876.tag) {case FIXNUM_TYPE: if ((t34876.value.fixnum_type)<0) {t34873.tag = FLONUM_TYPE; t34873.value.flonum_type = pow(t34875, (t34876.value.fixnum_type));} else {t34873.tag = FIXNUM_TYPE; t34873.value.fixnum_type = ipow(t34875, (t34876.value.fixnum_type));} break; case FLONUM_TYPE: t34873.tag = FLONUM_TYPE; t34873.value.flonum_type = pow(t34875, (t34876.value.flonum_type)); break; default: backtrace("stalin.sc", 20765, 727035); expt2_error();} /* x152112 stalin.sc:20765:727026 */ t34874 = *((struct w49 *)(&t34873)); t34868 = f13530(t34874); /* x152101 stalin.sc:20764:726956 */ t34869.tag = STRUCTURE_TYPE24753; t34869.value.structure_type24753 = t34867; t34870.tag = STRING_TYPE; t34870.value.string_type = t34868; t34866 = f13591(t34869, t34870); /* x152100 stalin.sc:20763:726941 */ return f13782(t34866);} /* [inside COMPILE-ASSERTIONS 16144] */ struct structure_type24753 *f16144(struct w49 a27179) {struct structure_type24753 *t34878; struct structure_type24753 *t34879; char *t34880; struct w49 t34881; struct w49 t34882; struct p16144 *t34883; struct w165970 t34884; struct w30215 t34885; struct w49 t34886; int t34887; struct w49 t34888; struct w49 t34889; struct p16144 *e16144; e16144 = (struct p16144 *)alloca(sizeof(struct p16144)); if (e16144==NULL) {backtrace("stalin.sc", 20746, 726278); out_of_memory_error();} e16144->a27179 = a27179; /* x152042 stalin.sc:20747:726292 */ /* x152041 stalin.sc:20747:726302 */ /* x152032 stalin.sc:20747:726308 */ /* x152031 stalin.sc:20747:726319 */ t34883 = e16144; /* x152026 stalin.sc:20747:726309 */ t34884.tag = NATIVE_PROCEDURE_TYPE23917; t34884.value.native_procedure_type23917 = t34883; t34879 = f13545(t34884); /* x152040 stalin.sc:20748:726350 */ /* x152039 stalin.sc:20748:726360 */ /* x152035 stalin.sc:20748:726366 */ t34887 = 2; /* x152038 stalin.sc:20748:726368 */ /* x152037 stalin.sc:20748:726384 */ t34889 = e16144->a27179; /* x152036 stalin.sc:20748:726369 */ t34888 = f14028(t34889); /* x268362 stalin.sc:20748:726361 */ switch (t34888.tag) {case FIXNUM_TYPE: if ((t34888.value.fixnum_type)<0) {t34885.tag = FLONUM_TYPE; t34885.value.flonum_type = pow(t34887, (t34888.value.fixnum_type));} else {t34885.tag = FIXNUM_TYPE; t34885.value.fixnum_type = ipow(t34887, (t34888.value.fixnum_type));} break; case FLONUM_TYPE: t34885.tag = FLONUM_TYPE; t34885.value.flonum_type = pow(t34887, (t34888.value.flonum_type)); break; default: backtrace("stalin.sc", 20748, 726360); expt2_error();} /* x152033 stalin.sc:20748:726351 */ t34886 = *((struct w49 *)(&t34885)); t34880 = f13530(t34886); /* x152025 stalin.sc:20747:726303 */ t34881.tag = STRUCTURE_TYPE24753; t34881.value.structure_type24753 = t34879; t34882.tag = STRING_TYPE; t34882.value.string_type = t34880; t34878 = f13591(t34881, t34882); /* x152024 stalin.sc:20747:726293 */ return f13782(t34878);} /* [inside COMPILE-NATIVE-PROCEDURES 16121] */ struct w61020 f16121(struct w49 a27159) {struct w61020 r16121; struct w49 t34890; struct w49 t34891; struct w49 t34892; struct structure_type24753 *t34893; struct w49 t34894; struct structure_type24753 *t34895; struct w49 t34896; struct w49 t34897; struct w49 t34898; /* x151482 stalin.sc:20588:720804 */ /* x151469 stalin.sc:20588:720808 */ /* x151464 stalin.sc:20588:720813 */ /* x151463 stalin.sc:20588:720818 */ /* x151462 stalin.sc:20588:720825 */ t34890 = a27159; /* x151461 stalin.sc:20588:720819 */ if (!(f8918(t34890)==FALSE_TYPE)) goto l4992; /* x151467 */ /* x151466 stalin.sc:20588:720853 */ t34891 = a27159; /* x151465 stalin.sc:20588:720831 */ if ((f8897(t34891).tag)==FALSE_TYPE) goto l4992; /* x151479 stalin.sc:20589:720864 */ /* x151478 stalin.sc:20590:720888 */ /* x151474 stalin.sc:20590:720896 */ /* x151473 stalin.sc:20590:720914 */ t34897 = a27159; /* x151472 stalin.sc:20590:720897 */ t34894 = f8691(t34897); /* x151477 stalin.sc:20590:720918 */ /* x151476 stalin.sc:20590:720923 */ t34898 = a27159; /* x151475 stalin.sc:20590:720919 */ t34895 = f14281(t34898); /* x151471 stalin.sc:20590:720889 */ t34896.tag = STRUCTURE_TYPE24753; t34896.value.structure_type24753 = t34895; t34892 = f14374(t34894, t34896); /* x151470 stalin.sc:20589:720865 */ t34893 = f13514(t34892); r16121.tag = STRUCTURE_TYPE24753; r16121.value.structure_type24753 = t34893; return r16121; l4992: /* x151481 stalin.sc:20591:720935 */ /* x151480 stalin.sc:20591:720936 */ /* x123458 stalin.sc:14693:514793 */ r16121.tag = STRING_TYPE; r16121.value.string_type = ""; return r16121;} /* [inside COMPILE-NATIVE-PROCEDURES 16113] */ struct w61020 f16113(struct p16101 *p16113, struct w49 a27157) {struct w61020 r16113; char *a27158; /* v */ struct structure_type24753 *a41943; /* CS */ struct w49 t34899; struct w49 t34900; struct w49 t34901; struct structure_type24753 *t34902; char *t34903; struct structure_type24753 *t34904; struct structure_type24753 *t34905; struct structure_type24753 *t34906; struct w49 t34907; struct w49 t34908; struct w49 t34909; struct p16101 *t34910; char *t34911; char *t34912; char *t34913; struct w49 t34914; struct w49 t34915; char *t34916; char *t34917; struct w49 t34918; struct w49 t34919; char *t34920; char *t34921; struct w49 t34922; struct w49 t34923; char *t34924; char *t34925; struct w49 t34926; struct w49 t34927; char *t34928; char *t34929; struct w49 t34930; struct w49 t34931; char *t34932; struct w49 t34933; struct w49 t34934; struct w49 t34935; struct p16101 *t34936; struct w6852 t34937; char *t34938; struct w6315 t34939; struct p16101 *t34940; struct w6852 t34941; char *t34942; struct w6315 t34943; struct structure_type24753 *t34944; struct w49 t34945; struct w49 t34946; struct p16101 *p16114; struct p16101 *p16115; struct p16101 *p16116; /* x151451 stalin.sc:20566:720012 */ /* x151379 stalin.sc:20566:720016 */ /* x151374 stalin.sc:20566:720021 */ /* x151373 stalin.sc:20566:720026 */ /* x151372 stalin.sc:20566:720033 */ t34899 = a27157; /* x151371 stalin.sc:20566:720027 */ if (!(f8918(t34899)==FALSE_TYPE)) goto l4995; /* x151377 */ /* x151376 stalin.sc:20566:720052 */ t34900 = a27157; /* x151375 stalin.sc:20566:720039 */ if (f8563(t34900)==FALSE_TYPE) goto l4995; /* x151448 stalin.sc:20567:720063 */ /* x151447 stalin.sc:20570:720168 */ /* x151446 stalin.sc:20581:720596 */ /* x151445 stalin.sc:20581:720609 */ /* x151444 stalin.sc:20581:720614 */ t34946 = a27157; /* x151443 stalin.sc:20581:720610 */ t34944 = f14275(t34946); /* x151442 stalin.sc:20581:720597 */ t34945.tag = STRUCTURE_TYPE24753; t34945.value.structure_type24753 = t34944; t34905 = f13516(t34945); /* x151441 stalin.sc:20572:720208 */ /* x151440 stalin.sc:20572:720214 */ t34911 = a686; /* x151439 */ t34910 = p16113; p16114 = t34910; a27158 = t34911; /* x151438 */ /* x151386 */ /* x151384 */ t34912 = a27158; /* x151385 */ t34913 = q18; /* x151383 */ /* MOVE: branching squeezed to general */ if (t34912>=((char *)VALUE_OFFSET)) {t34914.tag = EXTERNAL_SYMBOL_TYPE; t34914.value.external_symbol_type = t34912;} else t34914.tag = (unsigned)t34912; t34915.tag = EXTERNAL_SYMBOL_TYPE; t34915.value.external_symbol_type = t34913; if (f26160(t34914, t34915)==FALSE_TYPE) goto l4998; /* x151392 */ /* x151391 */ t34940 = p16114; p16115 = t34940; /* x151390 stalin.sc:20574:720276 */ /* x151388 stalin.sc:20574:720291 */ t34941 = p16115->a27146; /* x151389 stalin.sc:20574:720293 */ t34942 = "Immediate flat closures are not (yet) implemented"; /* x151387 stalin.sc:20574:720277 */ t34943 = *((struct w6315 *)(&t34941)); f9707(t34943, t34942); goto l4999; l4998: /* x151437 */ /* x151396 */ /* x151394 */ t34916 = a27158; /* x151395 */ t34917 = q19; /* x151393 */ /* MOVE: branching squeezed to general */ if (t34916>=((char *)VALUE_OFFSET)) {t34918.tag = EXTERNAL_SYMBOL_TYPE; t34918.value.external_symbol_type = t34916;} else t34918.tag = (unsigned)t34916; t34919.tag = EXTERNAL_SYMBOL_TYPE; t34919.value.external_symbol_type = t34917; if (f26160(t34918, t34919)==FALSE_TYPE) goto l5001; /* x151402 */ /* x151401 */ t34936 = p16114; p16116 = t34936; /* x151400 stalin.sc:20576:720383 */ /* x151398 stalin.sc:20576:720398 */ t34937 = p16116->a27146; /* x151399 stalin.sc:20576:720400 */ t34938 = "Indirect flat closures are not (yet) implemented"; /* x151397 stalin.sc:20576:720384 */ t34939 = *((struct w6315 *)(&t34937)); f9707(t34939, t34938); goto l5002; l5001: /* x151436 */ /* x151406 */ /* x151404 */ t34920 = a27158; /* x151405 */ t34921 = q20; /* x151403 */ /* MOVE: branching squeezed to general */ if (t34920>=((char *)VALUE_OFFSET)) {t34922.tag = EXTERNAL_SYMBOL_TYPE; t34922.value.external_symbol_type = t34920;} else t34922.tag = (unsigned)t34920; t34923.tag = EXTERNAL_SYMBOL_TYPE; t34923.value.external_symbol_type = t34921; if (f26160(t34922, t34923)==FALSE_TYPE) goto l5004; /* x151411 */ /* x151410 */ /* x151409 stalin.sc:20577:720483 */ /* x151408 stalin.sc:20577:720488 */ t34935 = a27157; /* x151407 stalin.sc:20577:720484 */ t34904 = f14275(t34935); goto l5005; l5004: /* x151435 */ /* x151415 */ /* x151413 */ t34924 = a27158; /* x151414 */ t34925 = q21; /* x151412 */ /* MOVE: branching squeezed to general */ if (t34924>=((char *)VALUE_OFFSET)) {t34926.tag = EXTERNAL_SYMBOL_TYPE; t34926.value.external_symbol_type = t34924;} else t34926.tag = (unsigned)t34924; t34927.tag = EXTERNAL_SYMBOL_TYPE; t34927.value.external_symbol_type = t34925; if (f26160(t34926, t34927)==FALSE_TYPE) goto l5007; /* x151420 */ /* x151419 */ /* x151418 stalin.sc:20578:720522 */ /* x151417 stalin.sc:20578:720527 */ t34934 = a27157; /* x151416 stalin.sc:20578:720523 */ t34904 = f14275(t34934); goto l5008; l5007: /* x151434 */ /* x151424 */ /* x151422 */ t34928 = a27158; /* x151423 */ t34929 = q22; /* x151421 */ /* MOVE: branching squeezed to general */ if (t34928>=((char *)VALUE_OFFSET)) {t34930.tag = EXTERNAL_SYMBOL_TYPE; t34930.value.external_symbol_type = t34928;} else t34930.tag = (unsigned)t34928; t34931.tag = EXTERNAL_SYMBOL_TYPE; t34931.value.external_symbol_type = t34929; if (f26160(t34930, t34931)==FALSE_TYPE) goto l5010; /* x151429 */ /* x151428 */ /* x151427 stalin.sc:20579:720551 */ /* x151426 stalin.sc:20579:720556 */ t34933 = a27157; /* x151425 stalin.sc:20579:720552 */ t34904 = f14281(t34933); goto l5011; l5010: /* x151433 */ /* x151432 */ /* x151431 stalin.sc:20580:720576 */ /* x151430 stalin.sc:20580:720577 */ /* x295197 QobiScheme.sc:166:5314 */ /* x295196 QobiScheme.sc:166:5321 */ t34932 = "This shouldn\'t happen"; /* x295195 QobiScheme.sc:166:5315 */ stalin_panic(t34932); l5011: l5008: l5005: l5002: l4999: /* x151382 stalin.sc:20571:720191 */ t34903 = "struct"; /* x151381 stalin.sc:20570:720169 */ t34909.tag = STRUCTURE_TYPE24753; t34909.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t34909.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20570, 720168); out_of_memory_error();} t34909.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t34909.value.structure_type24753->s0.value.structure_type24753 = t34905; t34909.value.structure_type24753->s1.tag = NULL_TYPE; t34908.tag = STRUCTURE_TYPE24753; t34908.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t34908.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20570, 720168); out_of_memory_error();} t34908.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t34908.value.structure_type24753->s0.value.structure_type24753 = t34904; t34908.value.structure_type24753->s1 = t34909; a41943 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41943==NULL) {backtrace("stalin.sc", 20570, 720168); out_of_memory_error();} a41943->s0.tag = STRING_TYPE; a41943->s0.value.string_type = t34903; a41943->s1 = t34908; /* x301884 stalin.sc:14386:505956 */ /* x301883 stalin.sc:14386:505972 */ t34906 = a41943; /* x301882 stalin.sc:14386:505957 */ t34907.tag = STRUCTURE_TYPE24753; t34907.value.structure_type24753 = t34906; t34901 = f13474(t34907); /* x151380 stalin.sc:20567:720064 */ t34902 = f13514(t34901); r16113.tag = STRUCTURE_TYPE24753; r16113.value.structure_type24753 = t34902; return r16113; l4995: /* x151450 stalin.sc:20582:720627 */ /* x151449 stalin.sc:20582:720628 */ /* x276405 stalin.sc:14693:514793 */ r16113.tag = STRING_TYPE; r16113.value.string_type = ""; return r16113;} /* [inside COMPILE-NATIVE-PROCEDURES 16112] */ struct w61020 f16112(struct w49 a27156) {struct w61020 r16112; struct structure_type24753 *a41944; /* CS */ struct w49 t34947; struct w49 t34948; struct w49 t34949; struct w49 t34950; struct structure_type24753 *t34951; char *t34952; struct structure_type24753 *t34953; struct structure_type24753 *t34954; struct w49 t34955; struct w49 t34956; struct structure_type24753 *t34957; struct w49 t34958; struct w49 t34959; /* x151353 stalin.sc:20553:719601 */ /* x151339 stalin.sc:20553:719605 */ /* x151329 stalin.sc:20553:719610 */ /* x151328 stalin.sc:20553:719615 */ /* x151327 stalin.sc:20553:719622 */ t34947 = a27156; /* x151326 stalin.sc:20553:719616 */ if (!(f8918(t34947)==FALSE_TYPE)) goto l5013; /* x151337 */ /* x151332 stalin.sc:20554:719631 */ /* x151331 stalin.sc:20554:719644 */ t34948 = a27156; /* x151330 stalin.sc:20554:719632 */ if (f8528(t34948)==FALSE_TYPE) goto l5013; /* x151335 */ /* x151334 stalin.sc:20555:719664 */ t34949 = a27156; /* x151333 stalin.sc:20555:719653 */ if (f8543(t34949)==FALSE_TYPE) goto l5013; /* x151350 stalin.sc:20556:719675 */ /* x151349 stalin.sc:20557:719699 */ /* x151348 stalin.sc:20557:719723 */ /* x151347 stalin.sc:20557:719736 */ /* x151346 stalin.sc:20557:719743 */ t34959 = a27156; /* x151345 stalin.sc:20557:719737 */ t34957 = f14322(t34959); /* x151344 stalin.sc:20557:719724 */ t34958.tag = STRUCTURE_TYPE24753; t34958.value.structure_type24753 = t34957; t34953 = f13516(t34958); /* x151343 stalin.sc:20557:719714 */ /* x151342 stalin.sc:20557:719715 */ /* x124516 stalin.sc:14947:523180 */ t34952 = "char"; /* x151341 stalin.sc:20557:719700 */ t34956.tag = STRUCTURE_TYPE24753; t34956.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t34956.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20557, 719699); out_of_memory_error();} t34956.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t34956.value.structure_type24753->s0.value.structure_type24753 = t34953; t34956.value.structure_type24753->s1.tag = NULL_TYPE; a41944 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41944==NULL) {backtrace("stalin.sc", 20557, 719699); out_of_memory_error();} a41944->s0.tag = STRING_TYPE; a41944->s0.value.string_type = t34952; a41944->s1 = t34956; /* x301888 stalin.sc:14386:505956 */ /* x301887 stalin.sc:14386:505972 */ t34954 = a41944; /* x301886 stalin.sc:14386:505957 */ t34955.tag = STRUCTURE_TYPE24753; t34955.value.structure_type24753 = t34954; t34950 = f13474(t34955); /* x151340 stalin.sc:20556:719676 */ t34951 = f13514(t34950); r16112.tag = STRUCTURE_TYPE24753; r16112.value.structure_type24753 = t34951; return r16112; l5013: /* x151352 stalin.sc:20558:719756 */ /* x151351 stalin.sc:20558:719757 */ /* x276407 stalin.sc:14693:514793 */ r16112.tag = STRING_TYPE; r16112.value.string_type = ""; return r16112;} /* [inside COMPILE-NATIVE-PROCEDURES 16109] */ struct w49 f16109(struct w49 a27153) {struct w49 a36813; /* S */ struct w49 a36958; /* S */ struct structure_type24753 *a41942; /* CS */ struct structure_type24753 *t34960; struct w49 t34961; struct structure_type24753 *t34962; struct w49 t34963; struct w49 t34964; struct w49 t34965; struct w49 t34966; struct w49 t34967; struct w49 t34968; struct w49 t34969; struct structure_type24753 *t34970; struct w49 t34971; struct structure_type24753 *t34972; struct structure_type24753 *t34973; struct w49 t34974; struct w49 t34975; struct w49 t34976; struct w49 t34977; char *t34978; struct w49 t34979; struct w49 t34980; struct w49 t34981; /* x151298 stalin.sc:20539:719150 */ /* x151297 stalin.sc:20546:719394 */ /* x151296 stalin.sc:20546:719402 */ /* x151295 stalin.sc:20546:719418 */ /* x151294 stalin.sc:20546:719433 */ t34980 = a27153; /* x151293 stalin.sc:20546:719419 */ a36958 = t34980; /* x280501 */ /* x280500 */ t34981 = a36958; /* x280499 */ if (!((t34981.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31875]"); structure_ref_error();} t34979 = t34981.value.structure_type27692->s7; /* x268400 stalin.sc:20546:719403 */ if (!((t34979.tag)==EXTERNAL_SYMBOL_TYPE)) {backtrace("stalin.sc", 20546, 719402); symbol_string_error();} t34978 = t34979.value.external_symbol_type; /* x151291 stalin.sc:20546:719395 */ t34961 = f13634(t34978); /* x151290 stalin.sc:20542:719265 */ /* x151289 stalin.sc:20543:719291 */ /* x151278 stalin.sc:20544:719313 */ /* x151277 stalin.sc:20544:719332 */ t34968 = a27153; /* x151276 stalin.sc:20544:719314 */ a36813 = t34968; /* x279921 */ /* x279920 */ t34969 = a36813; /* x279919 */ if (!((t34969.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31730]"); structure_ref_error();} t34966 = t34969.value.structure_type27692->s9; /* x151288 stalin.sc:20545:719345 */ /* x151287 stalin.sc:20545:719361 */ /* x151283 stalin.sc:20545:719366 */ /* x151282 stalin.sc:20545:719371 */ t34976 = a27153; /* x151281 stalin.sc:20545:719367 */ t34972 = f14269(t34976); /* x151286 stalin.sc:20545:719374 */ /* x151285 stalin.sc:20545:719379 */ t34977 = a27153; /* x151284 stalin.sc:20545:719375 */ t34973 = f14271(t34977); /* x151280 stalin.sc:20545:719362 */ t34974.tag = STRUCTURE_TYPE24753; t34974.value.structure_type24753 = t34972; t34975.tag = STRUCTURE_TYPE24753; t34975.value.structure_type24753 = t34973; t34970 = f13542(t34974, t34975); /* x151279 stalin.sc:20545:719346 */ t34971.tag = STRUCTURE_TYPE24753; t34971.value.structure_type24753 = t34970; t34967 = f13508(t34971); /* x151275 stalin.sc:20543:719292 */ t34965 = f14414(t34966, t34967); /* x151274 stalin.sc:20542:719266 */ t34960 = f13514(t34965); /* x151273 stalin.sc:20539:719151 */ t34964.tag = STRUCTURE_TYPE24753; t34964.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t34964.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20539, 719150); out_of_memory_error();} t34964.value.structure_type24753->s0 = t34961; t34964.value.structure_type24753->s1.tag = NULL_TYPE; a41942 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41942==NULL) {backtrace("stalin.sc", 20539, 719150); out_of_memory_error();} a41942->s0.tag = STRUCTURE_TYPE24753; a41942->s0.value.structure_type24753 = t34960; a41942->s1 = t34964; /* x301880 stalin.sc:14386:505956 */ /* x301879 stalin.sc:14386:505972 */ t34962 = a41942; /* x301878 stalin.sc:14386:505957 */ t34963.tag = STRUCTURE_TYPE24753; t34963.value.structure_type24753 = t34962; return f13474(t34963);} /* [inside COMPILE-NATIVE-PROCEDURES 16100] */ struct w49 f16100(struct w49 a27145) {struct w49 r16100; struct w49 a26839; /* E */ struct structure_type24753 *a26841; /* CS */ struct w49 a26845; /* E */ struct w6852 a27146; /* X */ struct w49 a27148; /* C */ struct w49 a27149; /* C */ struct w49 a36635; /* S */ struct w49 a36636; /* S */ struct w49 a36637; /* S */ struct w49 a36694; /* S */ struct w49 a36697; /* S */ struct w49 a36703; /* S */ struct w6852 a39222; /* S */ struct w6852 a39225; /* S */ struct w6852 a39229; /* S */ struct w6852 a39230; /* S */ struct w49 a39985; /* S */ struct structure_type24753 *a41280; /* C */ struct structure_type24753 *a41905; /* CS */ struct structure_type24753 *a41915; /* CS */ struct structure_type24753 *a41916; /* CS */ struct structure_type24753 *a41917; /* CS */ struct structure_type24753 *a41922; /* CS */ struct structure_type24753 *a42084; /* CS */ struct w49 t34982; struct w6852 t34983; struct p16101 *t34984; struct p16101 *t34985; struct w49 t34986; struct w49 t34987; struct w49 t34988; struct w49 t34989; struct structure_type24753 *t34990; struct w49 t34991; struct w49 t34992; char *t34993; char *t34994; struct w49 t34995; struct w49 t34996; char *t34997; char *t34998; struct w49 t34999; struct w49 t35000; char *t35001; struct w49 t35002; struct w49 t35003; struct w49 t35004; struct w49 t35005; struct w49 t35006; struct w6852 t35007; struct w6852 t35008; struct w49 t35009; struct w49 t35010; struct w49 t35011; struct w49 t35012; struct w49 t35013; char *t35014; struct w49 t35015; struct structure_type24753 *t35016; struct w49 t35017; struct w49 t35018; struct structure_type24753 *t35019; struct structure_type24753 *t35020; struct structure_type24753 *t35021; struct w49 t35022; struct w49 t35023; struct structure_type24753 *t35024; struct structure_type24753 *t35025; struct w49 t35026; struct structure_type24753 *t35027; struct w49 t35028; struct w49 t35029; struct w49 t35030; struct structure_type24753 *t35031; struct w49 t35032; struct w49 t35033; struct structure_type24753 *t35034; struct w49 t35035; struct structure_type24753 *t35036; struct w49 t35037; struct w49 t35038; struct w49 t35039; struct w12224 t35040; struct w36270 t35041; struct w49 t35042; struct structure_type24753 *t35043; struct structure_type24753 *t35044; struct w227671 t35045; struct w49 t35046; struct w49 t35047; struct w49 t35048; char *t35049; struct w49 t35050; struct w61020 t35051; struct w49 t35052; struct w49 t35053; struct w49 t35054; struct w49 t35055; struct w49 t35056; struct w49 t35057; struct w49 t35058; struct w61020 t35059; struct w49 t35060; struct w49 t35061; struct structure_type24753 *t35062; struct w49 t35063; struct w49 t35064; struct w49 t35065; struct w49 t35066; struct w49 t35067; struct w49 t35068; struct w49 t35069; struct w49 t35070; struct w49 t35071; struct w49 t35072; struct w49 t35073; struct w49 t35074; struct w49 t35075; struct w49 t35076; struct w6852 t35077; struct w6852 t35078; struct w49 t35079; struct w49 t35080; struct w49 t35081; struct structure_type24753 *t35082; char *t35083; struct structure_type24753 *t35084; struct w49 t35085; struct w49 t35086; struct w49 t35087; struct w61020 t35088; struct w49 t35089; struct structure_type24753 *t35090; struct w49 t35091; struct w49 t35092; struct w49 t35093; struct w49 t35094; struct structure_type24753 *t35095; struct w49 t35096; struct w49 t35097; struct w49 t35098; struct structure_type24753 *t35099; struct w49 t35100; struct structure_type24753 *t35101; struct structure_type24753 *t35102; struct w49 t35103; struct w49 t35104; struct w49 t35105; struct w49 t35106; struct structure_type24753 *t35107; struct w49 t35108; struct w12224 t35109; struct w36270 t35110; struct w49 t35111; struct structure_type24753 *t35112; struct structure_type24753 *t35113; struct w227671 t35114; struct w49 t35115; struct w49 t35116; struct structure_type24753 *t35117; struct w49 t35118; struct structure_type24753 *t35119; struct w36270 t35120; struct w49 t35121; struct structure_type24753 *t35122; struct w49 t35123; struct w49 t35124; struct structure_type24753 *t35125; struct w49 t35126; struct w12224 t35127; struct w36270 t35128; struct w49 t35129; struct structure_type24753 *t35130; struct w49 t35131; struct w227671 t35132; struct w49 t35133; unsigned t35134; unsigned t35135; struct structure_type24753 *t35136; unsigned t35137; struct w49 t35138; struct w228463 t35139; struct w3457 t35140; struct w36270 t35141; struct w49 t35142; struct structure_type24753 *t35143; struct w49 t35144; struct w12224 t35145; struct w49 t35146; struct structure_type24753 *t35147; struct w49 t35148; struct structure_type24753 *t35149; struct w49 t35150; struct p16101 *t35151; struct structure_type24753 *t35152; struct w36270 t35153; struct w49 t35154; struct structure_type24753 *t35155; struct w49 t35156; struct structure_type24753 *t35157; struct w49 t35158; struct w3457 t35159; struct w36270 t35160; struct w49 t35161; struct structure_type24753 *t35162; struct w49 t35163; struct w49 t35164; struct w49 t35165; struct structure_type24753 *t35166; struct structure_type24753 *t35167; struct w49 t35168; struct structure_type24753 *t35169; struct w49 t35170; struct w49 t35171; struct w49 t35172; struct w49 t35173; struct structure_type24753 *t35174; struct w49 t35175; struct w49 t35176; struct w49 t35177; struct w49 t35178; struct structure_type27501 *t35179; struct w49 t35180; struct structure_type27501 *t35181; struct w49 t35182; struct w49 t35183; struct w49 t35184; struct w49 t35185; struct w6852 t35186; struct w6852 t35187; struct w6852 t35188; struct w6852 t35189; struct w49 t35190; struct w49 t35191; struct p16101 *e16101; struct p16101 *p16102; struct p16101 *p16103; /* x151546 stalin.sc:20508:718126 */ /* x151137 stalin.sc:20508:718130 */ /* x151136 stalin.sc:20508:718149 */ t34982 = a27145; /* x151135 stalin.sc:20508:718131 */ if (f8585(t34982)==FALSE_TYPE) goto l5017; /* x151139 stalin.sc:20509:718153 */ /* x151138 stalin.sc:20509:718154 */ /* x276821 stalin.sc:14693:514793 */ r16100.tag = STRING_TYPE; r16100.value.string_type = ""; return r16100; l5017: /* x151545 stalin.sc:20510:718163 */ /* x151544 stalin.sc:20510:718172 */ /* x151543 stalin.sc:20510:718196 */ t35190 = a27145; /* x151542 stalin.sc:20510:718173 */ a36703 = t35190; /* x279481 */ /* x279480 */ t35191 = a36703; /* x279479 */ if (!((t35191.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31620]"); structure_ref_error();} t34983 = t35191.value.structure_type27694->s1; /* x151541 */ a27146 = t34983; e16101 = (struct p16101 *)alloca(sizeof(struct p16101)); if (e16101==NULL) {backtrace_internal("[inside COMPILE-NATIVE-PROCEDURES 16100]"); out_of_memory_error();} e16101->a27146 = a27146; /* x151540 */ /* x151539 stalin.sc:20511:718203 */ /* x151538 stalin.sc:20511:718224 */ a1195 = (struct structure_type24753 *)NULL_TYPE; /* x151537 */ t34984 = e16101; p16102 = t34984; /* x151536 stalin.sc:20514:718316 */ /* x151535 stalin.sc:20515:718330 */ /* x151531 stalin.sc:20515:718339 */ /* x151525 stalin.sc:20516:718365 */ t35182 = a27145; /* x151530 stalin.sc:20516:718367 */ /* x151529 stalin.sc:20516:718388 */ /* x151528 stalin.sc:20516:718405 */ t35186 = p16102->a27146; /* x151527 stalin.sc:20516:718389 */ a39229 = t35186; /* x289585 */ /* x289584 */ t35187 = a39229; /* x289583 */ if (!((t35187.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34146]"); structure_ref_error();} t35184 = t35187.value.structure_type27698->s15; /* x151526 stalin.sc:20516:718368 */ a39985 = t35184; /* x292609 */ /* x292608 */ t35185 = a39985; /* x292607 */ if (!((t35185.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34902]"); structure_ref_error();} t35183 = t35185.value.structure_type27698->s10; /* x151524 stalin.sc:20515:718340 */ t35179 = f7027(t35182, t35183); /* x151534 stalin.sc:20517:718413 */ /* x151533 stalin.sc:20517:718430 */ t35188 = p16102->a27146; /* x151532 stalin.sc:20517:718414 */ a39230 = t35188; /* x289589 */ /* x289588 */ t35189 = a39230; /* x289587 */ if (!((t35189.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34147]"); structure_ref_error();} t35180 = t35189.value.structure_type27698->s15; /* x151523 stalin.sc:20515:718331 */ t35181 = t35179; t34986 = f15922(t35181, t35180); /* x151522 */ t34985 = p16102; p16103 = t34985; a27148 = t34986; /* x151521 */ /* x151520 stalin.sc:20519:718449 */ /* x151519 stalin.sc:20521:718537 */ /* x151518 stalin.sc:20522:718560 */ /* x151517 stalin.sc:20603:721437 */ t35061 = a27148; /* x151516 stalin.sc:20599:721302 */ /* x151505 stalin.sc:20599:721306 */ /* x151504 stalin.sc:20599:721320 */ t35171 = a27145; /* x151503 stalin.sc:20599:721307 */ if (f8563(t35171)==FALSE_TYPE) goto l5049; /* x151513 stalin.sc:20600:721329 */ /* x151512 stalin.sc:20601:721390 */ /* x151511 stalin.sc:20601:721415 */ t35178 = a27145; /* x151510 stalin.sc:20601:721391 */ t35173 = f15718(t35178); /* x151509 stalin.sc:20600:721346 */ /* x151508 stalin.sc:20600:721378 */ t35177 = a27145; /* x151507 stalin.sc:20600:721347 */ t35172 = f15629(t35177); /* x151506 stalin.sc:20600:721330 */ t35176.tag = STRUCTURE_TYPE24753; t35176.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35176.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20600, 721329); out_of_memory_error();} t35176.value.structure_type24753->s0 = t35173; t35176.value.structure_type24753->s1.tag = NULL_TYPE; a41905 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41905==NULL) {backtrace("stalin.sc", 20600, 721329); out_of_memory_error();} a41905->s0 = t35172; a41905->s1 = t35176; /* x301732 stalin.sc:14400:506485 */ /* x301731 stalin.sc:14400:506503 */ t35174 = a41905; /* x301730 stalin.sc:14400:506486 */ t35175.tag = STRUCTURE_TYPE24753; t35175.value.structure_type24753 = t35174; t35060 = f13492(t35175); goto l5050; l5049: /* x151515 stalin.sc:20602:721425 */ /* x151514 stalin.sc:20602:721426 */ /* x276835 stalin.sc:14693:514793 */ t35060.tag = STRING_TYPE; t35060.value.string_type = ""; l5050: /* x151502 stalin.sc:20598:721248 */ /* x151494 stalin.sc:20598:721252 */ /* x151493 stalin.sc:20598:721273 */ t35165 = a27145; /* x151492 stalin.sc:20598:721253 */ if ((f8590(t35165).tag)==FALSE_TYPE) goto l5046; /* x151499 stalin.sc:20598:721276 */ /* x151498 stalin.sc:20598:721281 */ /* x151497 stalin.sc:20598:721286 */ t35170 = a27145; /* x151496 stalin.sc:20598:721282 */ t35166 = f14277(t35170); /* x151495 stalin.sc:20598:721277 */ a41280 = t35166; /* x299232 stalin.sc:14702:515041 */ /* x299231 stalin.sc:14702:515054 */ t35167 = a41280; /* x299230 stalin.sc:14702:515042 */ t35168.tag = STRUCTURE_TYPE24753; t35168.value.structure_type24753 = t35167; t35169 = f13515(t35168); t35059.tag = STRUCTURE_TYPE24753; t35059.value.structure_type24753 = t35169; goto l5047; l5046: /* x151501 stalin.sc:20598:721290 */ /* x151500 stalin.sc:20598:721291 */ /* x276831 stalin.sc:14693:514793 */ t35059.tag = STRING_TYPE; t35059.value.string_type = ""; l5047: /* x151491 stalin.sc:20593:720993 */ /* x151490 stalin.sc:20593:721020 */ t35164 = a27145; /* x151489 stalin.sc:20593:720994 */ t35058 = f15793(t35164); /* x151488 stalin.sc:20586:720756 */ /* x151487 stalin.sc:20587:720777 */ /* x151486 stalin.sc:20592:720954 */ /* x151485 stalin.sc:20592:720986 */ t35163 = a27145; /* x151484 stalin.sc:20592:720955 */ t35159 = f8654(t35163); /* x151483 stalin.sc:20587:720782 */ /* x151459 stalin.sc:20587:720778 */ t35160.tag = NATIVE_PROCEDURE_TYPE18679; t35161 = *((struct w49 *)(&t35159)); t35162 = (struct structure_type24753 *)NULL_TYPE; t35157 = f27731(t35160, t35161, t35162); /* x151458 stalin.sc:20586:720757 */ /* MOVE: branching squeezed to general */ if (t35157>=((struct structure_type24753 *)VALUE_OFFSET)) {t35158.tag = STRUCTURE_TYPE24753; t35158.value.structure_type24753 = t35157;} else t35158.tag = (unsigned)t35157; t35057 = f13492(t35158); /* x151457 stalin.sc:20564:719964 */ /* x151456 stalin.sc:20565:719985 */ /* x151455 stalin.sc:20585:720726 */ /* x151454 stalin.sc:20585:720749 */ t35156 = a27145; /* x151453 stalin.sc:20585:720727 */ t35152 = f8649(t35156); /* x151452 stalin.sc:20565:719990 */ t35151 = p16103; /* x151369 stalin.sc:20565:719986 */ t35153.tag = NATIVE_PROCEDURE_TYPE18684; t35153.value.native_procedure_type18684 = t35151; t35154.tag = STRUCTURE_TYPE24753; t35154.value.structure_type24753 = t35152; t35155 = (struct structure_type24753 *)NULL_TYPE; t35149 = f27731(t35153, t35154, t35155); /* x151368 stalin.sc:20564:719965 */ /* MOVE: branching squeezed to general */ if (t35149>=((struct structure_type24753 *)VALUE_OFFSET)) {t35150.tag = STRUCTURE_TYPE24753; t35150.value.structure_type24753 = t35149;} else t35150.tag = (unsigned)t35149; t35056 = f13492(t35150); /* x151367 stalin.sc:20563:719918 */ /* x151366 stalin.sc:20563:719936 */ /* x151365 stalin.sc:20563:719945 */ t35147 = a1195; /* x151364 stalin.sc:20563:719937 */ /* MOVE: branching squeezed to general */ if (t35147>=((struct structure_type24753 *)VALUE_OFFSET)) {t35148.tag = STRUCTURE_TYPE24753; t35148.value.structure_type24753 = t35147;} else t35148.tag = (unsigned)t35147; t35145 = f26331(t35148); /* x151363 stalin.sc:20563:719919 */ t35146 = *((struct w49 *)(&t35145)); t35055 = f13492(t35146); /* x151362 stalin.sc:20562:719885 */ /* x151361 stalin.sc:20562:719913 */ t35124 = a27145; /* x151360 stalin.sc:20562:719886 */ a26845 = t35124; /* x145600 stalin.sc:19280:675319 */ /* x145599 stalin.sc:19281:675339 */ /* x145598 stalin.sc:19284:675448 */ /* x145583 stalin.sc:19285:675464 */ /* x145597 stalin.sc:19286:675507 */ /* x145594 stalin.sc:19286:675513 */ /* x145586 stalin.sc:19286:675521 */ /* x145592 stalin.sc:19287:675536 */ /* x145591 stalin.sc:19287:675551 */ /* x145590 stalin.sc:19287:675583 */ t35144 = a26845; /* x145589 stalin.sc:19287:675552 */ t35140 = f8654(t35144); /* x145588 stalin.sc:19287:675541 */ /* x145587 stalin.sc:19287:675537 */ t35141.tag = NATIVE_PROCEDURE_TYPE7214; t35142 = *((struct w49 *)(&t35140)); t35143 = (struct structure_type24753 *)NULL_TYPE; t35136 = f27731(t35141, t35142, t35143); /* x145593 stalin.sc:19288:675595 */ /* x145585 stalin.sc:19286:675514 */ t35137 = NATIVE_PROCEDURE_TYPE454; /* MOVE: branching squeezed to general */ if (t35136>=((struct structure_type24753 *)VALUE_OFFSET)) {t35138.tag = STRUCTURE_TYPE24753; t35138.value.structure_type24753 = t35136;} else t35138.tag = (unsigned)t35136; t35139.tag = NULL_TYPE; t35133 = f1006(t35137, t35138, t35139); /* x145595 stalin.sc:19289:675607 */ /* x145596 stalin.sc:19290:675616 */ /* x145584 stalin.sc:19286:675508 */ t35134 = NATIVE_PROCEDURE_TYPE425; t35135 = NATIVE_PROCEDURE_TYPE7714; t35131 = f1581(t35133, t35134, t35135); /* x145571 stalin.sc:19284:675449 */ t35132.tag = NATIVE_PROCEDURE_TYPE18685; t35127 = f1226(t35132, t35131); /* x145570 stalin.sc:19281:675344 */ /* x145556 stalin.sc:19281:675340 */ t35128.tag = NATIVE_PROCEDURE_TYPE18686; t35129 = *((struct w49 *)(&t35127)); t35130 = (struct structure_type24753 *)NULL_TYPE; t35125 = f27731(t35128, t35129, t35130); /* x145555 stalin.sc:19280:675320 */ /* MOVE: branching squeezed to general */ if (t35125>=((struct structure_type24753 *)VALUE_OFFSET)) {t35126.tag = STRUCTURE_TYPE24753; t35126.value.structure_type24753 = t35125;} else t35126.tag = (unsigned)t35125; t35054 = f13492(t35126); /* x151359 stalin.sc:20551:719553 */ /* x151358 stalin.sc:20552:719574 */ /* x151357 stalin.sc:20561:719855 */ /* x151356 stalin.sc:20561:719878 */ t35123 = a27145; /* x151355 stalin.sc:20561:719856 */ t35119 = f8649(t35123); /* x151354 stalin.sc:20552:719579 */ /* x151324 stalin.sc:20552:719575 */ t35120.tag = NATIVE_PROCEDURE_TYPE18687; t35121.tag = STRUCTURE_TYPE24753; t35121.value.structure_type24753 = t35119; t35122 = (struct structure_type24753 *)NULL_TYPE; t35117 = f27731(t35120, t35121, t35122); /* x151323 stalin.sc:20551:719554 */ /* MOVE: branching squeezed to general */ if (t35117>=((struct structure_type24753 *)VALUE_OFFSET)) {t35118.tag = STRUCTURE_TYPE24753; t35118.value.structure_type24753 = t35117;} else t35118.tag = (unsigned)t35117; t35053 = f13492(t35118); /* x151322 stalin.sc:20528:718785 */ /* x151246 stalin.sc:20528:718789 */ /* x151245 stalin.sc:20528:718830 */ t35087 = a27145; /* x151244 stalin.sc:20528:718790 */ if (f8481(t35087)==FALSE_TYPE) goto l5040; /* x151319 stalin.sc:20529:718839 */ /* x151318 stalin.sc:20537:719100 */ /* x151317 stalin.sc:20538:719126 */ /* x151316 stalin.sc:20547:719446 */ /* x151312 stalin.sc:20548:719468 */ /* x151315 stalin.sc:20549:719517 */ /* x151314 stalin.sc:20549:719528 */ t35116 = a27145; /* x151313 stalin.sc:20549:719518 */ t35113 = f8987(t35116); /* x151300 stalin.sc:20547:719447 */ t35114.tag = NATIVE_PROCEDURE_TYPE18688; /* MOVE: branching squeezed to general */ if (t35113>=((struct structure_type24753 *)VALUE_OFFSET)) {t35115.tag = STRUCTURE_TYPE24753; t35115.value.structure_type24753 = t35113;} else t35115.tag = (unsigned)t35113; t35109 = f1226(t35114, t35115); /* x151299 stalin.sc:20538:719131 */ /* x151272 stalin.sc:20538:719127 */ t35110.tag = NATIVE_PROCEDURE_TYPE18689; t35111 = *((struct w49 *)(&t35109)); t35112 = (struct structure_type24753 *)NULL_TYPE; t35107 = f27731(t35110, t35111, t35112); /* x151271 stalin.sc:20537:719101 */ /* MOVE: branching squeezed to general */ if (t35107>=((struct structure_type24753 *)VALUE_OFFSET)) {t35108.tag = STRUCTURE_TYPE24753; t35108.value.structure_type24753 = t35107;} else t35108.tag = (unsigned)t35107; t35089 = f13492(t35108); /* x151270 stalin.sc:20530:718863 */ /* x151250 stalin.sc:20530:718867 */ /* x151249 stalin.sc:20530:718890 */ t35093 = a27145; /* x151248 stalin.sc:20530:718868 */ if ((f8897(t35093).tag)==FALSE_TYPE) goto l5043; /* x151267 stalin.sc:20533:718981 */ /* x151266 stalin.sc:20534:719003 */ /* x151255 stalin.sc:20534:719011 */ /* x151254 stalin.sc:20534:719029 */ t35098 = a27145; /* x151253 stalin.sc:20534:719012 */ t35096 = f8691(t35098); /* x151265 stalin.sc:20535:719038 */ /* x151264 stalin.sc:20535:719054 */ /* x151260 stalin.sc:20535:719059 */ /* x151259 stalin.sc:20535:719064 */ t35105 = a27145; /* x151258 stalin.sc:20535:719060 */ t35101 = f14281(t35105); /* x151263 stalin.sc:20535:719067 */ /* x151262 stalin.sc:20535:719072 */ t35106 = a27145; /* x151261 stalin.sc:20535:719068 */ t35102 = f14274(t35106); /* x151257 stalin.sc:20535:719055 */ t35103.tag = STRUCTURE_TYPE24753; t35103.value.structure_type24753 = t35101; t35104.tag = STRUCTURE_TYPE24753; t35104.value.structure_type24753 = t35102; t35099 = f13542(t35103, t35104); /* x151256 stalin.sc:20535:719039 */ t35100.tag = STRUCTURE_TYPE24753; t35100.value.structure_type24753 = t35099; t35097 = f13508(t35100); /* x151252 stalin.sc:20534:719004 */ t35094 = f14374(t35096, t35097); /* x151251 stalin.sc:20533:718982 */ t35095 = f13514(t35094); t35088.tag = STRUCTURE_TYPE24753; t35088.value.structure_type24753 = t35095; goto l5044; l5043: /* x151269 stalin.sc:20536:719083 */ /* x151268 stalin.sc:20536:719084 */ /* x276827 stalin.sc:14693:514793 */ t35088.tag = STRING_TYPE; t35088.value.string_type = ""; l5044: /* x151247 stalin.sc:20529:718840 */ t35092.tag = STRUCTURE_TYPE24753; t35092.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35092.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20529, 718839); out_of_memory_error();} t35092.value.structure_type24753->s0 = t35089; t35092.value.structure_type24753->s1.tag = NULL_TYPE; a41922 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41922==NULL) {backtrace("stalin.sc", 20529, 718839); out_of_memory_error();} a41922->s0 = *((struct w49 *)(&t35088)); a41922->s1 = t35092; /* x301800 stalin.sc:14400:506485 */ /* x301799 stalin.sc:14400:506503 */ t35090 = a41922; /* x301798 stalin.sc:14400:506486 */ t35091.tag = STRUCTURE_TYPE24753; t35091.value.structure_type24753 = t35090; t35052 = f13492(t35091); goto l5041; l5040: /* x151321 stalin.sc:20550:719541 */ /* x151320 stalin.sc:20550:719542 */ /* x276829 stalin.sc:14693:514793 */ t35052.tag = STRING_TYPE; t35052.value.string_type = ""; l5041: /* x151243 stalin.sc:20523:718579 */ /* x151230 stalin.sc:20523:718583 */ /* x151229 stalin.sc:20523:718587 */ /* x151228 stalin.sc:20523:718600 */ /* x151227 stalin.sc:20523:718617 */ t35075 = a27145; /* x151226 stalin.sc:20523:718601 */ t35074 = f8687(t35075); /* x151225 stalin.sc:20523:718588 */ if (!(f8793(t35074)==FALSE_TYPE)) goto l5035; /* x151222 */ /* x151221 stalin.sc:20524:718629 */ /* x151220 stalin.sc:20525:718660 */ /* x151219 stalin.sc:20525:718677 */ /* x151218 stalin.sc:20525:718701 */ t35079 = a27145; /* x151217 stalin.sc:20525:718678 */ a36697 = t35079; /* x279457 */ /* x279456 */ t35080 = a36697; /* x279455 */ if (!((t35080.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31614]"); structure_ref_error();} t35077 = t35080.value.structure_type27694->s1; /* x151216 stalin.sc:20525:718661 */ a39225 = t35077; /* x289569 */ /* x289568 */ t35078 = a39225; /* x289567 */ if (!((t35078.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34142]"); structure_ref_error();} t35076 = t35078.value.structure_type27698->s15; /* x151215 stalin.sc:20524:718630 */ if (!(f6936(t35076)==FALSE_TYPE)) goto l5036; l5035: /* x151232 stalin.sc:20526:718714 */ /* x151231 stalin.sc:20526:718715 */ /* x276823 stalin.sc:14693:514793 */ t35051.tag = STRING_TYPE; t35051.value.string_type = ""; goto l5037; l5036: /* x151242 stalin.sc:20527:718729 */ /* x151236 stalin.sc:20527:718744 */ /* x151235 stalin.sc:20527:718761 */ t35085 = a27145; /* x151234 stalin.sc:20527:718745 */ t35081 = f8687(t35085); /* x151239 stalin.sc:20527:718764 */ /* x151238 stalin.sc:20527:718769 */ t35086 = a27145; /* x151237 stalin.sc:20527:718765 */ t35082 = f14286(t35086); /* x151241 stalin.sc:20527:718772 */ /* x151240 stalin.sc:20527:718773 */ /* x276825 stalin.sc:14693:514793 */ t35083 = ""; /* x151233 stalin.sc:20527:718730 */ t35084 = f13517(t35081, t35082, t35083); t35051.tag = STRUCTURE_TYPE24753; t35051.value.structure_type24753 = t35084; l5037: /* x151211 stalin.sc:20522:718561 */ t35073.tag = STRUCTURE_TYPE24753; t35073.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35073.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20522, 718560); out_of_memory_error();} t35073.value.structure_type24753->s0 = t35061; t35073.value.structure_type24753->s1.tag = NULL_TYPE; t35072.tag = STRUCTURE_TYPE24753; t35072.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35072.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20522, 718560); out_of_memory_error();} t35072.value.structure_type24753->s0 = t35060; t35072.value.structure_type24753->s1 = t35073; t35071.tag = STRUCTURE_TYPE24753; t35071.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35071.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20522, 718560); out_of_memory_error();} t35071.value.structure_type24753->s0 = *((struct w49 *)(&t35059)); t35071.value.structure_type24753->s1 = t35072; t35070.tag = STRUCTURE_TYPE24753; t35070.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35070.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20522, 718560); out_of_memory_error();} t35070.value.structure_type24753->s0 = t35058; t35070.value.structure_type24753->s1 = t35071; t35069.tag = STRUCTURE_TYPE24753; t35069.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35069.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20522, 718560); out_of_memory_error();} t35069.value.structure_type24753->s0 = t35057; t35069.value.structure_type24753->s1 = t35070; t35068.tag = STRUCTURE_TYPE24753; t35068.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35068.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20522, 718560); out_of_memory_error();} t35068.value.structure_type24753->s0 = t35056; t35068.value.structure_type24753->s1 = t35069; t35067.tag = STRUCTURE_TYPE24753; t35067.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35067.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20522, 718560); out_of_memory_error();} t35067.value.structure_type24753->s0 = t35055; t35067.value.structure_type24753->s1 = t35068; t35066.tag = STRUCTURE_TYPE24753; t35066.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35066.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20522, 718560); out_of_memory_error();} t35066.value.structure_type24753->s0 = t35054; t35066.value.structure_type24753->s1 = t35067; t35065.tag = STRUCTURE_TYPE24753; t35065.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35065.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20522, 718560); out_of_memory_error();} t35065.value.structure_type24753->s0 = t35053; t35065.value.structure_type24753->s1 = t35066; t35064.tag = STRUCTURE_TYPE24753; t35064.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35064.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20522, 718560); out_of_memory_error();} t35064.value.structure_type24753->s0 = t35052; t35064.value.structure_type24753->s1 = t35065; a41917 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41917==NULL) {backtrace("stalin.sc", 20522, 718560); out_of_memory_error();} a41917->s0 = *((struct w49 *)(&t35051)); a41917->s1 = t35064; /* x301780 stalin.sc:14400:506485 */ /* x301779 stalin.sc:14400:506503 */ t35062 = a41917; /* x301778 stalin.sc:14400:506486 */ t35063.tag = STRUCTURE_TYPE24753; t35063.value.structure_type24753 = t35062; t35050 = f13492(t35063); /* x151210 stalin.sc:20521:718538 */ t35020 = f13501(t35050); /* x151209 stalin.sc:20520:718473 */ /* x151202 stalin.sc:20520:718480 */ /* x151205 stalin.sc:20520:718489 */ /* x151204 stalin.sc:20520:718494 */ t35028 = a27145; /* x151203 stalin.sc:20520:718490 */ t35024 = f14276(t35028); /* x151208 stalin.sc:20520:718497 */ /* x151207 stalin.sc:20520:718526 */ t35029 = a27145; /* x151206 stalin.sc:20520:718498 */ a26839 = t35029; /* x145552 */ /* x145551 stalin.sc:19267:674798 */ /* x145544 stalin.sc:19267:674804 */ /* x145543 stalin.sc:19267:674823 */ t35048 = a26839; /* x145542 stalin.sc:19267:674805 */ if (f8585(t35048)==FALSE_TYPE) goto l5033; /* x145548 */ /* x145547 */ /* x145546 stalin.sc:19267:674826 */ /* x145545 stalin.sc:19267:674827 */ /* x296489 QobiScheme.sc:166:5314 */ /* x296488 QobiScheme.sc:166:5321 */ t35049 = "This shouldn\'t happen"; /* x296487 QobiScheme.sc:166:5315 */ stalin_panic(t35049); goto l5034; l5033: /* x145550 stalin.sc:19267:674798 */ /* x145549 stalin.sc:19267:674798 */ l5034: /* x145541 */ /* x145540 stalin.sc:19268:674838 */ /* x145492 stalin.sc:19268:674842 */ /* x145491 stalin.sc:19268:674883 */ t35030 = a26839; /* x145490 stalin.sc:19268:674843 */ if (f8481(t35030)==FALSE_TYPE) goto l5027; /* x145493 stalin.sc:19269:674891 */ t35025 = (struct structure_type24753 *)NULL_TYPE; goto l5028; l5027: /* x145539 stalin.sc:19270:674900 */ /* x145538 stalin.sc:19270:674910 */ /* x145537 stalin.sc:19271:674977 */ /* x145533 stalin.sc:19271:674992 */ /* x145536 stalin.sc:19272:675041 */ /* x145535 stalin.sc:19272:675052 */ t35047 = a26839; /* x145534 stalin.sc:19272:675042 */ t35044 = f8987(t35047); /* x145521 stalin.sc:19271:674978 */ t35045.tag = NATIVE_PROCEDURE_TYPE18696; /* MOVE: branching squeezed to general */ if (t35044>=((struct structure_type24753 *)VALUE_OFFSET)) {t35046.tag = STRUCTURE_TYPE24753; t35046.value.structure_type24753 = t35044;} else t35046.tag = (unsigned)t35044; t35040 = f1226(t35045, t35046); /* x145520 stalin.sc:19270:674915 */ /* x145511 stalin.sc:19270:674911 */ t35041.tag = NATIVE_PROCEDURE_TYPE18697; t35042 = *((struct w49 *)(&t35040)); t35043 = (struct structure_type24753 *)NULL_TYPE; t35031 = f27731(t35041, t35042, t35043); /* x145510 */ a26841 = t35031; /* x145509 stalin.sc:19273:675065 */ /* x145496 stalin.sc:19273:675069 */ /* x145495 stalin.sc:19273:675092 */ t35032 = a26839; /* x145494 stalin.sc:19273:675070 */ if ((f8897(t35032).tag)==FALSE_TYPE) goto l5030; /* x145507 stalin.sc:19274:675098 */ /* x145505 stalin.sc:19274:675104 */ /* x145501 stalin.sc:19274:675112 */ /* x145500 stalin.sc:19274:675130 */ t35038 = a26839; /* x145499 stalin.sc:19274:675113 */ t35035 = f8691(t35038); /* x145504 stalin.sc:19274:675133 */ /* x145503 stalin.sc:19274:675138 */ t35039 = a26839; /* x145502 stalin.sc:19274:675134 */ t35036 = f14281(t35039); /* x145498 stalin.sc:19274:675105 */ t35037.tag = STRUCTURE_TYPE24753; t35037.value.structure_type24753 = t35036; t35033 = f14374(t35035, t35037); /* x145506 stalin.sc:19274:675142 */ t35034 = a26841; /* x268506 stalin.sc:19274:675099 */ t35025 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t35025==NULL) {backtrace("stalin.sc", 19274, 675098); out_of_memory_error();} t35025->s0 = t35033; /* MOVE: branching squeezed to general */ if (t35034>=((struct structure_type24753 *)VALUE_OFFSET)) {t35025->s1.tag = STRUCTURE_TYPE24753; t35025->s1.value.structure_type24753 = t35034;} else t35025->s1.tag = (unsigned)t35034; goto l5031; l5030: /* x145508 stalin.sc:19275:675149 */ t35025 = a26841; l5031: l5028: /* x268402 stalin.sc:20520:718474 */ t35026.tag = STRUCTURE_TYPE24753; t35026.value.structure_type24753 = t35024; t35027 = t35025; t35019 = f13641(t35026, t35027); /* x151200 stalin.sc:20519:718450 */ t35023.tag = STRUCTURE_TYPE24753; t35023.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35023.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20519, 718449); out_of_memory_error();} t35023.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t35023.value.structure_type24753->s0.value.structure_type24753 = t35020; t35023.value.structure_type24753->s1.tag = NULL_TYPE; a41916 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41916==NULL) {backtrace("stalin.sc", 20519, 718449); out_of_memory_error();} a41916->s0.tag = STRUCTURE_TYPE24753; a41916->s0.value.structure_type24753 = t35019; a41916->s1 = t35023; /* x301776 stalin.sc:14400:506485 */ /* x301775 stalin.sc:14400:506503 */ t35021 = a41916; /* x301774 stalin.sc:14400:506486 */ t35022.tag = STRUCTURE_TYPE24753; t35022.value.structure_type24753 = t35021; t34987 = f13492(t35022); /* x151199 */ a27149 = t34987; /* x151198 */ /* x151197 */ /* x151196 stalin.sc:20604:721447 */ /* x151195 stalin.sc:20609:721620 */ /* x151184 stalin.sc:20609:721624 */ /* x151183 stalin.sc:20609:721628 */ /* x151182 stalin.sc:20609:721641 */ /* x151181 stalin.sc:20609:721658 */ t35005 = a27145; /* x151180 stalin.sc:20609:721642 */ t35004 = f8687(t35005); /* x151179 stalin.sc:20609:721629 */ if (!(f8793(t35004)==FALSE_TYPE)) goto l5022; /* x151176 */ /* x151175 stalin.sc:20610:721672 */ /* x151174 stalin.sc:20611:721698 */ /* x151173 stalin.sc:20611:721715 */ /* x151172 stalin.sc:20611:721739 */ t35009 = a27145; /* x151171 stalin.sc:20611:721716 */ a36694 = t35009; /* x279445 */ /* x279444 */ t35010 = a36694; /* x279443 */ if (!((t35010.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31611]"); structure_ref_error();} t35007 = t35010.value.structure_type27694->s1; /* x151170 stalin.sc:20611:721699 */ a39222 = t35007; /* x289557 */ /* x289556 */ t35008 = a39222; /* x289555 */ if (!((t35008.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34139]"); structure_ref_error();} t35006 = t35008.value.structure_type27698->s15; /* x151169 stalin.sc:20610:721673 */ if (!(f6936(t35006)==FALSE_TYPE)) goto l5023; l5022: /* x151188 stalin.sc:20613:721814 */ /* x151187 stalin.sc:20613:721836 */ t35015 = a27149; /* x151186 stalin.sc:20613:721829 */ t35014 = "void"; /* x151185 stalin.sc:20613:721815 */ t35018.tag = STRUCTURE_TYPE24753; t35018.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35018.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20613, 721814); out_of_memory_error();} t35018.value.structure_type24753->s0 = t35015; t35018.value.structure_type24753->s1.tag = NULL_TYPE; a42084 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42084==NULL) {backtrace("stalin.sc", 20613, 721814); out_of_memory_error();} a42084->s0.tag = STRING_TYPE; a42084->s0.value.string_type = t35014; a42084->s1 = t35018; /* x302448 stalin.sc:14386:505956 */ /* x302447 stalin.sc:14386:505972 */ t35016 = a42084; /* x302446 stalin.sc:14386:505957 */ t35017.tag = STRUCTURE_TYPE24753; t35017.value.structure_type24753 = t35016; t34989 = f13474(t35017); goto l5024; l5023: /* x151194 stalin.sc:20614:721847 */ /* x151192 stalin.sc:20614:721859 */ /* x151191 stalin.sc:20614:721876 */ t35013 = a27145; /* x151190 stalin.sc:20614:721860 */ t35011 = f8687(t35013); /* x151193 stalin.sc:20614:721879 */ t35012 = a27149; /* x151189 stalin.sc:20614:721848 */ t34989 = f14414(t35011, t35012); l5024: /* x151165 stalin.sc:20605:721468 */ /* x151157 stalin.sc:20605:721472 */ /* x151156 stalin.sc:20605:721476 */ /* x151152 stalin.sc:20605:721488 */ t34993 = "/*"; /* x151155 stalin.sc:20605:721493 */ /* x151154 stalin.sc:20605:721511 */ t34995 = a27145; /* x151153 stalin.sc:20605:721494 */ a36637 = t34995; /* x279217 */ /* x279216 */ t34996 = a36637; /* x279215 */ if (!((t34996.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31554]"); structure_ref_error();} t34994 = t34996.value.structure_type27694->s2; /* x151151 stalin.sc:20605:721477 */ if (!(f1883(t34993, t34994)==FALSE_TYPE)) goto l5018; /* x151148 */ /* x151144 stalin.sc:20606:721532 */ t34997 = "*/"; /* x151147 stalin.sc:20606:721537 */ /* x151146 stalin.sc:20606:721555 */ t34999 = a27145; /* x151145 stalin.sc:20606:721538 */ a36636 = t34999; /* x279213 */ /* x279212 */ t35000 = a36636; /* x279211 */ if (!((t35000.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31553]"); structure_ref_error();} t34998 = t35000.value.structure_type27694->s2; /* x151143 stalin.sc:20606:721521 */ if (f1883(t34997, t34998)==FALSE_TYPE) goto l5019; l5018: /* x151159 stalin.sc:20607:721568 */ /* x151158 stalin.sc:20607:721569 */ /* x276807 stalin.sc:14693:514793 */ t34988.tag = STRING_TYPE; t34988.value.string_type = ""; goto l5020; l5019: /* x151164 stalin.sc:20608:721585 */ /* x151163 stalin.sc:20608:721593 */ /* x151162 stalin.sc:20608:721611 */ t35002 = a27145; /* x151161 stalin.sc:20608:721594 */ a36635 = t35002; /* x279209 */ /* x279208 */ t35003 = a36635; /* x279207 */ if (!((t35003.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31552]"); structure_ref_error();} t35001 = t35003.value.structure_type27694->s2; /* x151160 stalin.sc:20608:721586 */ t34988 = f13634(t35001); l5020: /* x151140 stalin.sc:20604:721448 */ t34992.tag = STRUCTURE_TYPE24753; t34992.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t34992.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20604, 721447); out_of_memory_error();} t34992.value.structure_type24753->s0 = t34989; t34992.value.structure_type24753->s1.tag = NULL_TYPE; a41915 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41915==NULL) {backtrace("stalin.sc", 20604, 721447); out_of_memory_error();} a41915->s0 = t34988; a41915->s1 = t34992; /* x301772 stalin.sc:14400:506485 */ /* x301771 stalin.sc:14400:506503 */ t34990 = a41915; /* x301770 stalin.sc:14400:506486 */ t34991.tag = STRUCTURE_TYPE24753; t34991.value.structure_type24753 = t34990; return f13492(t34991);} /* [inside COMPILE 16097] */ struct structure_type24753 *f16097(struct p15922 *p16097, unsigned a27144) {char *t35192; struct w49 t35193; unsigned t35194; /* x151047 stalin.sc:20500:717972 */ /* x151044 stalin.sc:20500:717987 */ t35192 = "call"; /* x151045 stalin.sc:20500:717994 */ t35193 = p16097->a27041; /* x151046 stalin.sc:20500:717996 */ t35194 = a27144; /* x151043 stalin.sc:20500:717973 */ return f15534(t35192, t35193, t35194);} /* [inside COMPILE 16096] */ struct w49 f16096(void) {struct p16093 *p16096 = d16096; struct w49 a27143 = b27143; /* U0 */ struct w49 t35195; struct structure_type27501 *t35196; struct structure_type27745 *t35197; struct w60864 t35198; struct w49 t35199; struct w49 t35200; struct structure_type24753 *t35201; struct structure_type24753 *t35202; char *t35203; struct structure_type27650 *t35204; struct w49 t35205; struct structure_type27501 *t35206; struct structure_type27745 *t35207; struct w60864 t35208; struct w49 t35209; struct w49 t35210; struct structure_type24753 *t35211; struct structure_type24753 *t35212; char *t35213; struct structure_type27650 *t35214; struct w49 t35215; /* x151041 stalin.sc:20494:717745 */ /* x151012 stalin.sc:20494:717749 */ /* x151011 stalin.sc:20494:717761 */ t35195 = p16096->p16092->p16091->p16090->p15922->a27041; /* x151010 stalin.sc:20494:717750 */ if (f8944(t35195)==FALSE_TYPE) goto l5052; /* x151025 stalin.sc:20495:717770 */ /* x151014 stalin.sc:20496:717801 */ t35206 = p16096->p16092->p16091->p16090->p15922->a27040; /* x151017 stalin.sc:20496:717803 */ /* x151016 stalin.sc:20496:717821 */ t35215 = p16096->p16092->p16091->p16090->p15922->a27041; /* x151015 stalin.sc:20496:717804 */ t35207 = f8739(t35215); /* x151018 stalin.sc:20497:717831 */ t35208 = p16096->p16092->a27138; /* x151019 stalin.sc:20497:717834 */ t35209 = a27143; /* x151020 stalin.sc:20497:717837 */ t35210 = p16096->p16092->p16091->p16090->a27136; /* x151021 stalin.sc:20497:717840 */ t35211 = p16096->a27139; /* x151022 stalin.sc:20497:717843 */ t35212 = p16096->p16092->p16091->a27137; /* x151023 stalin.sc:20497:717846 */ t35213 = q222; /* x151024 stalin.sc:20497:717854 */ t35214 = a1675; /* x151013 stalin.sc:20495:717771 */ b27002 = t35206; b27003 = t35207; b27004 = *((struct w49 *)(&t35208)); b27005 = t35209; b27006 = t35210; b27007 = t35211; b27008 = t35212; b27009.tag = EXTERNAL_SYMBOL_TYPE; b27009.value.external_symbol_type = t35213; /* MOVE: branching squeezed to general */ if (t35214>=((struct structure_type27650 *)VALUE_OFFSET)) {b27010.tag = STRUCTURE_TYPE27650; b27010.value.structure_type27650 = t35214;} else b27010.tag = (unsigned)t35214; return f15881(); l5052: /* x151040 stalin.sc:20498:717868 */ /* x151027 stalin.sc:20498:717882 */ t35196 = p16096->p16092->p16091->p16090->p15922->a27040; /* x151030 stalin.sc:20498:717884 */ /* x151029 stalin.sc:20498:717902 */ t35205 = p16096->p16092->p16091->p16090->p15922->a27041; /* x151028 stalin.sc:20498:717885 */ t35197 = f8739(t35205); /* x151031 stalin.sc:20498:717905 */ t35198 = p16096->p16092->a27138; /* x151032 stalin.sc:20498:717908 */ t35199 = a27143; /* x151033 stalin.sc:20498:717911 */ t35200 = p16096->p16092->p16091->p16090->a27136; /* x151034 stalin.sc:20499:717920 */ /* x151035 stalin.sc:20499:717923 */ /* x151036 stalin.sc:20499:717926 */ t35201 = p16096->a27139; /* x151037 stalin.sc:20499:717929 */ t35202 = p16096->p16092->p16091->a27137; /* x151038 stalin.sc:20499:717932 */ t35203 = q223; /* x151039 stalin.sc:20499:717941 */ t35204 = a1675; /* x151026 stalin.sc:20498:717869 */ b26962 = t35196; b26963 = t35197; b26964 = *((struct w49 *)(&t35198)); b26965 = t35199; b26966 = t35200; b26967.tag = FALSE_TYPE; b26968.tag = FALSE_TYPE; /* MOVE: branching squeezed to general */ if (t35201>=((struct structure_type24753 *)VALUE_OFFSET)) {b26969.tag = STRUCTURE_TYPE24753; b26969.value.structure_type24753 = t35201;} else b26969.tag = (unsigned)t35201; /* MOVE: branching squeezed to general */ if (t35202>=((struct structure_type24753 *)VALUE_OFFSET)) {b26970.tag = STRUCTURE_TYPE24753; b26970.value.structure_type24753 = t35202;} else b26970.tag = (unsigned)t35202; b26971.tag = EXTERNAL_SYMBOL_TYPE; b26971.value.external_symbol_type = t35203; /* MOVE: branching squeezed to general */ if (t35204>=((struct structure_type27650 *)VALUE_OFFSET)) {b26972.tag = STRUCTURE_TYPE27650; b26972.value.structure_type27650 = t35204;} else b26972.tag = (unsigned)t35204; return f15827();} /* [inside COMPILE 16082] */ struct structure_type24753 *f16082(struct p16060 *p16082, struct w49 a27133) {struct structure_type24753 *t35216; struct structure_type24753 *t35217; struct w49 t35218; struct w49 t35219; struct structure_type24753 *t35220; struct structure_type24753 *t35221; struct w49 t35222; struct w61020 t35223; struct w49 t35224; struct w49 t35225; struct w49 t35226; struct w49 t35227; struct structure_type24753 *t35228; struct structure_type24753 *t35229; struct w49 t35230; struct w61020 t35231; struct w49 t35232; struct w49 t35233; struct w49 t35234; /* x150732 stalin.sc:20416:714714 */ /* x150715 stalin.sc:20416:714720 */ /* x150711 stalin.sc:20416:714725 */ /* x150710 stalin.sc:20416:714730 */ t35224 = p16082->p16056->a27119; /* x150709 stalin.sc:20416:714726 */ t35220 = f14281(t35224); /* x150714 stalin.sc:20416:714734 */ /* x150713 stalin.sc:20416:714739 */ t35225 = a27133; /* x150712 stalin.sc:20416:714735 */ t35221 = f14275(t35225); /* x150708 stalin.sc:20416:714721 */ t35222.tag = STRUCTURE_TYPE24753; t35222.value.structure_type24753 = t35220; t35223.tag = STRUCTURE_TYPE24753; t35223.value.structure_type24753 = t35221; t35216 = f13585(t35222, t35223); /* x150731 stalin.sc:20417:714749 */ /* x150719 stalin.sc:20417:714753 */ /* x150717 stalin.sc:20417:714758 */ t35226 = a27133; /* x150718 stalin.sc:20417:714760 */ t35227 = p16082->a27123; /* x268405 stalin.sc:20417:714754 */ /* EQ: dispatching general to general */ if (!((t35226.tag)==(t35227.tag))) goto l5054; switch (t35226.tag) {case FIXNUM_TYPE: if (!((t35226.value.fixnum_type)==(t35227.value.fixnum_type))) goto l5054; break; case FLONUM_TYPE: if (!((t35226.value.flonum_type)==(t35227.value.flonum_type))) goto l5054; break; case INPUT_PORT_TYPE: if (!((t35226.value.input_port_type)==(t35227.value.input_port_type))) goto l5054; break; case OUTPUT_PORT_TYPE: if (!((t35226.value.output_port_type)==(t35227.value.output_port_type))) goto l5054; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t35226.value.native_procedure_type15963)==(t35227.value.native_procedure_type15963))) goto l5054; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t35226.value.native_procedure_type19067)==(t35227.value.native_procedure_type19067))) goto l5054; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t35226.value.native_procedure_type19068)==(t35227.value.native_procedure_type19068))) goto l5054; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t35226.value.native_procedure_type22459)==(t35227.value.native_procedure_type22459))) goto l5054; break; case STRUCTURE_TYPE24753: if (!((t35226.value.structure_type24753)==(t35227.value.structure_type24753))) goto l5054; break; case STRUCTURE_TYPE24757: if (!((t35226.value.structure_type24757)==(t35227.value.structure_type24757))) goto l5054; break; case STRUCTURE_TYPE27501: if (!((t35226.value.structure_type27501)==(t35227.value.structure_type27501))) goto l5054; break; case STRUCTURE_TYPE27510: if (!((t35226.value.structure_type27510)==(t35227.value.structure_type27510))) goto l5054; break; case STRUCTURE_TYPE27621: if (!((t35226.value.structure_type27621)==(t35227.value.structure_type27621))) goto l5054; break; case STRUCTURE_TYPE27650: if (!((t35226.value.structure_type27650)==(t35227.value.structure_type27650))) goto l5054; break; case STRUCTURE_TYPE27669: if (!((t35226.value.structure_type27669)==(t35227.value.structure_type27669))) goto l5054; break; case STRUCTURE_TYPE27673: if (!((t35226.value.structure_type27673)==(t35227.value.structure_type27673))) goto l5054; break; case STRUCTURE_TYPE27692: if (!((t35226.value.structure_type27692)==(t35227.value.structure_type27692))) goto l5054; break; case STRUCTURE_TYPE27694: if (!((t35226.value.structure_type27694)==(t35227.value.structure_type27694))) goto l5054; break; case STRUCTURE_TYPE27698: if (!((t35226.value.structure_type27698)==(t35227.value.structure_type27698))) goto l5054; break; case STRUCTURE_TYPE27745: if (!((t35226.value.structure_type27745)==(t35227.value.structure_type27745))) goto l5054; break; case STRUCTURE_TYPE27747: if (!((t35226.value.structure_type27747)==(t35227.value.structure_type27747))) goto l5054; break; case STRUCTURE_TYPE27750: if (!((t35226.value.structure_type27750)==(t35227.value.structure_type27750))) goto l5054; break; case STRUCTURE_TYPE27753: if (!((t35226.value.structure_type27753)==(t35227.value.structure_type27753))) goto l5054; break; case STRUCTURE_TYPE27756: if (!((t35226.value.structure_type27756)==(t35227.value.structure_type27756))) goto l5054; break; case STRUCTURE_TYPE27761: if (!((t35226.value.structure_type27761)==(t35227.value.structure_type27761))) goto l5054; break; case STRUCTURE_TYPE27769: if (!((t35226.value.structure_type27769)==(t35227.value.structure_type27769))) goto l5054; break; case STRUCTURE_TYPE27776: if (!((t35226.value.structure_type27776)==(t35227.value.structure_type27776))) goto l5054; break; case STRUCTURE_TYPE27779: if (!((t35226.value.structure_type27779)==(t35227.value.structure_type27779))) goto l5054; break; case STRUCTURE_TYPE27858: if (!((t35226.value.structure_type27858)==(t35227.value.structure_type27858))) goto l5054; break; case STRING_TYPE: if (!((t35226.value.string_type)==(t35227.value.string_type))) goto l5054; break; case HEADED_VECTOR_TYPE27896: if (!((t35226.value.headed_vector_type27896)==(t35227.value.headed_vector_type27896))) goto l5054; break; case EXTERNAL_SYMBOL_TYPE: if (!((t35226.value.external_symbol_type)==(t35227.value.external_symbol_type))) goto l5054; break; case STRUCTURE_TYPE27908: if (!((t35226.value.structure_type27908)==(t35227.value.structure_type27908))) goto l5054; break; default:;} /* x150722 stalin.sc:20418:714774 */ /* x150721 stalin.sc:20418:714779 */ t35234 = a27133; /* x150720 stalin.sc:20418:714775 */ t35217 = f14275(t35234); goto l5055; l5054: /* x150730 stalin.sc:20419:714792 */ /* x150726 stalin.sc:20419:714797 */ /* x150725 stalin.sc:20419:714802 */ t35232 = p16082->a27123; /* x150724 stalin.sc:20419:714798 */ t35228 = f14281(t35232); /* x150729 stalin.sc:20419:714806 */ /* x150728 stalin.sc:20419:714811 */ t35233 = a27133; /* x150727 stalin.sc:20419:714807 */ t35229 = f14275(t35233); /* x150723 stalin.sc:20419:714793 */ t35230.tag = STRUCTURE_TYPE24753; t35230.value.structure_type24753 = t35228; t35231.tag = STRUCTURE_TYPE24753; t35231.value.structure_type24753 = t35229; t35217 = f13585(t35230, t35231); l5055: /* x150707 stalin.sc:20416:714715 */ t35218.tag = STRUCTURE_TYPE24753; t35218.value.structure_type24753 = t35216; t35219.tag = STRUCTURE_TYPE24753; t35219.value.structure_type24753 = t35217; return f13637(t35218, t35219);} /* [inside COMPILE 16069] */ struct structure_type24753 *f16069(struct p16060 *p16069, struct w49 a27127) {struct structure_type24753 *t35235; struct structure_type24753 *t35236; struct w49 t35237; struct w49 t35238; struct structure_type24753 *t35239; struct structure_type24753 *t35240; struct w49 t35241; struct w61020 t35242; struct w49 t35243; struct w49 t35244; struct w49 t35245; struct w49 t35246; struct structure_type24753 *t35247; struct structure_type24753 *t35248; struct w49 t35249; struct w61020 t35250; struct w49 t35251; struct w49 t35252; struct w49 t35253; /* x150531 stalin.sc:20374:713190 */ /* x150514 stalin.sc:20374:713196 */ /* x150510 stalin.sc:20374:713201 */ /* x150509 stalin.sc:20374:713206 */ t35243 = p16069->p16056->a27119; /* x150508 stalin.sc:20374:713202 */ t35239 = f14281(t35243); /* x150513 stalin.sc:20374:713210 */ /* x150512 stalin.sc:20374:713215 */ t35244 = a27127; /* x150511 stalin.sc:20374:713211 */ t35240 = f14275(t35244); /* x150507 stalin.sc:20374:713197 */ t35241.tag = STRUCTURE_TYPE24753; t35241.value.structure_type24753 = t35239; t35242.tag = STRUCTURE_TYPE24753; t35242.value.structure_type24753 = t35240; t35235 = f13585(t35241, t35242); /* x150530 stalin.sc:20375:713225 */ /* x150518 stalin.sc:20375:713229 */ /* x150516 stalin.sc:20375:713234 */ t35245 = a27127; /* x150517 stalin.sc:20375:713236 */ t35246 = p16069->a27123; /* x268407 stalin.sc:20375:713230 */ /* EQ: dispatching general to general */ if (!((t35245.tag)==(t35246.tag))) goto l5057; switch (t35245.tag) {case FIXNUM_TYPE: if (!((t35245.value.fixnum_type)==(t35246.value.fixnum_type))) goto l5057; break; case FLONUM_TYPE: if (!((t35245.value.flonum_type)==(t35246.value.flonum_type))) goto l5057; break; case INPUT_PORT_TYPE: if (!((t35245.value.input_port_type)==(t35246.value.input_port_type))) goto l5057; break; case OUTPUT_PORT_TYPE: if (!((t35245.value.output_port_type)==(t35246.value.output_port_type))) goto l5057; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t35245.value.native_procedure_type15963)==(t35246.value.native_procedure_type15963))) goto l5057; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t35245.value.native_procedure_type19067)==(t35246.value.native_procedure_type19067))) goto l5057; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t35245.value.native_procedure_type19068)==(t35246.value.native_procedure_type19068))) goto l5057; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t35245.value.native_procedure_type22459)==(t35246.value.native_procedure_type22459))) goto l5057; break; case STRUCTURE_TYPE24753: if (!((t35245.value.structure_type24753)==(t35246.value.structure_type24753))) goto l5057; break; case STRUCTURE_TYPE24757: if (!((t35245.value.structure_type24757)==(t35246.value.structure_type24757))) goto l5057; break; case STRUCTURE_TYPE27501: if (!((t35245.value.structure_type27501)==(t35246.value.structure_type27501))) goto l5057; break; case STRUCTURE_TYPE27510: if (!((t35245.value.structure_type27510)==(t35246.value.structure_type27510))) goto l5057; break; case STRUCTURE_TYPE27621: if (!((t35245.value.structure_type27621)==(t35246.value.structure_type27621))) goto l5057; break; case STRUCTURE_TYPE27650: if (!((t35245.value.structure_type27650)==(t35246.value.structure_type27650))) goto l5057; break; case STRUCTURE_TYPE27669: if (!((t35245.value.structure_type27669)==(t35246.value.structure_type27669))) goto l5057; break; case STRUCTURE_TYPE27673: if (!((t35245.value.structure_type27673)==(t35246.value.structure_type27673))) goto l5057; break; case STRUCTURE_TYPE27692: if (!((t35245.value.structure_type27692)==(t35246.value.structure_type27692))) goto l5057; break; case STRUCTURE_TYPE27694: if (!((t35245.value.structure_type27694)==(t35246.value.structure_type27694))) goto l5057; break; case STRUCTURE_TYPE27698: if (!((t35245.value.structure_type27698)==(t35246.value.structure_type27698))) goto l5057; break; case STRUCTURE_TYPE27745: if (!((t35245.value.structure_type27745)==(t35246.value.structure_type27745))) goto l5057; break; case STRUCTURE_TYPE27747: if (!((t35245.value.structure_type27747)==(t35246.value.structure_type27747))) goto l5057; break; case STRUCTURE_TYPE27750: if (!((t35245.value.structure_type27750)==(t35246.value.structure_type27750))) goto l5057; break; case STRUCTURE_TYPE27753: if (!((t35245.value.structure_type27753)==(t35246.value.structure_type27753))) goto l5057; break; case STRUCTURE_TYPE27756: if (!((t35245.value.structure_type27756)==(t35246.value.structure_type27756))) goto l5057; break; case STRUCTURE_TYPE27761: if (!((t35245.value.structure_type27761)==(t35246.value.structure_type27761))) goto l5057; break; case STRUCTURE_TYPE27769: if (!((t35245.value.structure_type27769)==(t35246.value.structure_type27769))) goto l5057; break; case STRUCTURE_TYPE27776: if (!((t35245.value.structure_type27776)==(t35246.value.structure_type27776))) goto l5057; break; case STRUCTURE_TYPE27779: if (!((t35245.value.structure_type27779)==(t35246.value.structure_type27779))) goto l5057; break; case STRUCTURE_TYPE27858: if (!((t35245.value.structure_type27858)==(t35246.value.structure_type27858))) goto l5057; break; case STRING_TYPE: if (!((t35245.value.string_type)==(t35246.value.string_type))) goto l5057; break; case HEADED_VECTOR_TYPE27896: if (!((t35245.value.headed_vector_type27896)==(t35246.value.headed_vector_type27896))) goto l5057; break; case EXTERNAL_SYMBOL_TYPE: if (!((t35245.value.external_symbol_type)==(t35246.value.external_symbol_type))) goto l5057; break; case STRUCTURE_TYPE27908: if (!((t35245.value.structure_type27908)==(t35246.value.structure_type27908))) goto l5057; break; default:;} /* x150521 stalin.sc:20376:713250 */ /* x150520 stalin.sc:20376:713255 */ t35253 = a27127; /* x150519 stalin.sc:20376:713251 */ t35236 = f14275(t35253); goto l5058; l5057: /* x150529 stalin.sc:20377:713268 */ /* x150525 stalin.sc:20377:713273 */ /* x150524 stalin.sc:20377:713278 */ t35251 = p16069->a27123; /* x150523 stalin.sc:20377:713274 */ t35247 = f14281(t35251); /* x150528 stalin.sc:20377:713282 */ /* x150527 stalin.sc:20377:713287 */ t35252 = a27127; /* x150526 stalin.sc:20377:713283 */ t35248 = f14275(t35252); /* x150522 stalin.sc:20377:713269 */ t35249.tag = STRUCTURE_TYPE24753; t35249.value.structure_type24753 = t35247; t35250.tag = STRUCTURE_TYPE24753; t35250.value.structure_type24753 = t35248; t35236 = f13585(t35249, t35250); l5058: /* x150506 stalin.sc:20374:713191 */ t35237.tag = STRUCTURE_TYPE24753; t35237.value.structure_type24753 = t35235; t35238.tag = STRUCTURE_TYPE24753; t35238.value.structure_type24753 = t35236; return f13637(t35237, t35238);} /* [inside COMPILE 16037] */ struct structure_type24753 *f16037(struct p16036 *p16037, struct w49 a27109) {struct structure_type27501 *a38379; /* S */ struct structure_type27501 *a38398; /* S */ struct structure_type24753 *t35254; struct structure_type24753 *t35255; struct w49 t35256; struct w49 t35257; struct w49 t35258; struct structure_type24753 *t35259; struct w61020 t35260; struct w49 t35261; struct w49 t35262; struct w49 t35263; struct structure_type27501 *t35264; struct structure_type27501 *t35265; struct structure_type27501 *t35266; struct structure_type27501 *t35267; struct w49 t35268; struct w49 t35269; struct w49 t35270; struct structure_type24753 *t35271; struct structure_type24753 *t35272; struct w49 t35273; struct w61020 t35274; struct w49 t35275; struct w49 t35276; struct w49 t35277; /* x150200 stalin.sc:20304:710721 */ /* x150183 stalin.sc:20304:710727 */ /* x150179 stalin.sc:20304:710732 */ /* x150174 stalin.sc:20304:710741 */ /* x150173 stalin.sc:20304:710751 */ t35264 = p16037->p15924->p15922->a27040; /* x150172 stalin.sc:20304:710742 */ a38379 = t35264; /* x286185 */ /* x286184 */ t35265 = a38379; /* x286183 */ if (!(t35265>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-C[5769] 33296]"); structure_ref_error();} t35261 = t35265->s3; /* x150175 stalin.sc:20304:710754 */ t35262 = p16037->a27108; /* x150178 stalin.sc:20304:710756 */ /* x150177 stalin.sc:20304:710773 */ t35266 = p16037->p15924->p15922->a27040; /* x150176 stalin.sc:20304:710757 */ a38398 = t35266; /* x286261 */ /* x286260 */ t35267 = a38398; /* x286259 */ if (!(t35267>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33315]"); structure_ref_error();} t35263 = t35267->s2; /* x150171 stalin.sc:20304:710733 */ t35258 = f14485(t35261, t35262, t35263); /* x150182 stalin.sc:20305:710782 */ /* x150181 stalin.sc:20305:710787 */ t35268 = a27109; /* x150180 stalin.sc:20305:710783 */ t35259 = f14275(t35268); /* x150170 stalin.sc:20304:710728 */ t35260.tag = STRUCTURE_TYPE24753; t35260.value.structure_type24753 = t35259; t35254 = f13585(t35258, t35260); /* x150199 stalin.sc:20306:710799 */ /* x150187 stalin.sc:20306:710803 */ /* x150185 stalin.sc:20306:710808 */ t35269 = a27109; /* x150186 stalin.sc:20306:710811 */ t35270 = p16037->p15924->a27044; /* x268409 stalin.sc:20306:710804 */ /* EQ: dispatching general to general */ if (!((t35269.tag)==(t35270.tag))) goto l5060; switch (t35269.tag) {case FIXNUM_TYPE: if (!((t35269.value.fixnum_type)==(t35270.value.fixnum_type))) goto l5060; break; case FLONUM_TYPE: if (!((t35269.value.flonum_type)==(t35270.value.flonum_type))) goto l5060; break; case INPUT_PORT_TYPE: if (!((t35269.value.input_port_type)==(t35270.value.input_port_type))) goto l5060; break; case OUTPUT_PORT_TYPE: if (!((t35269.value.output_port_type)==(t35270.value.output_port_type))) goto l5060; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t35269.value.native_procedure_type15963)==(t35270.value.native_procedure_type15963))) goto l5060; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t35269.value.native_procedure_type19067)==(t35270.value.native_procedure_type19067))) goto l5060; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t35269.value.native_procedure_type19068)==(t35270.value.native_procedure_type19068))) goto l5060; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t35269.value.native_procedure_type22459)==(t35270.value.native_procedure_type22459))) goto l5060; break; case STRUCTURE_TYPE24753: if (!((t35269.value.structure_type24753)==(t35270.value.structure_type24753))) goto l5060; break; case STRUCTURE_TYPE24757: if (!((t35269.value.structure_type24757)==(t35270.value.structure_type24757))) goto l5060; break; case STRUCTURE_TYPE27501: if (!((t35269.value.structure_type27501)==(t35270.value.structure_type27501))) goto l5060; break; case STRUCTURE_TYPE27510: if (!((t35269.value.structure_type27510)==(t35270.value.structure_type27510))) goto l5060; break; case STRUCTURE_TYPE27621: if (!((t35269.value.structure_type27621)==(t35270.value.structure_type27621))) goto l5060; break; case STRUCTURE_TYPE27650: if (!((t35269.value.structure_type27650)==(t35270.value.structure_type27650))) goto l5060; break; case STRUCTURE_TYPE27669: if (!((t35269.value.structure_type27669)==(t35270.value.structure_type27669))) goto l5060; break; case STRUCTURE_TYPE27673: if (!((t35269.value.structure_type27673)==(t35270.value.structure_type27673))) goto l5060; break; case STRUCTURE_TYPE27692: if (!((t35269.value.structure_type27692)==(t35270.value.structure_type27692))) goto l5060; break; case STRUCTURE_TYPE27694: if (!((t35269.value.structure_type27694)==(t35270.value.structure_type27694))) goto l5060; break; case STRUCTURE_TYPE27698: if (!((t35269.value.structure_type27698)==(t35270.value.structure_type27698))) goto l5060; break; case STRUCTURE_TYPE27745: if (!((t35269.value.structure_type27745)==(t35270.value.structure_type27745))) goto l5060; break; case STRUCTURE_TYPE27747: if (!((t35269.value.structure_type27747)==(t35270.value.structure_type27747))) goto l5060; break; case STRUCTURE_TYPE27750: if (!((t35269.value.structure_type27750)==(t35270.value.structure_type27750))) goto l5060; break; case STRUCTURE_TYPE27753: if (!((t35269.value.structure_type27753)==(t35270.value.structure_type27753))) goto l5060; break; case STRUCTURE_TYPE27756: if (!((t35269.value.structure_type27756)==(t35270.value.structure_type27756))) goto l5060; break; case STRUCTURE_TYPE27761: if (!((t35269.value.structure_type27761)==(t35270.value.structure_type27761))) goto l5060; break; case STRUCTURE_TYPE27769: if (!((t35269.value.structure_type27769)==(t35270.value.structure_type27769))) goto l5060; break; case STRUCTURE_TYPE27776: if (!((t35269.value.structure_type27776)==(t35270.value.structure_type27776))) goto l5060; break; case STRUCTURE_TYPE27779: if (!((t35269.value.structure_type27779)==(t35270.value.structure_type27779))) goto l5060; break; case STRUCTURE_TYPE27858: if (!((t35269.value.structure_type27858)==(t35270.value.structure_type27858))) goto l5060; break; case STRING_TYPE: if (!((t35269.value.string_type)==(t35270.value.string_type))) goto l5060; break; case HEADED_VECTOR_TYPE27896: if (!((t35269.value.headed_vector_type27896)==(t35270.value.headed_vector_type27896))) goto l5060; break; case EXTERNAL_SYMBOL_TYPE: if (!((t35269.value.external_symbol_type)==(t35270.value.external_symbol_type))) goto l5060; break; case STRUCTURE_TYPE27908: if (!((t35269.value.structure_type27908)==(t35270.value.structure_type27908))) goto l5060; break; default:;} /* x150190 stalin.sc:20306:710814 */ /* x150189 stalin.sc:20306:710819 */ t35277 = a27109; /* x150188 stalin.sc:20306:710815 */ t35255 = f14275(t35277); goto l5061; l5060: /* x150198 stalin.sc:20306:710823 */ /* x150194 stalin.sc:20306:710828 */ /* x150193 stalin.sc:20306:710833 */ t35275 = p16037->p15924->a27044; /* x150192 stalin.sc:20306:710829 */ t35271 = f14281(t35275); /* x150197 stalin.sc:20306:710836 */ /* x150196 stalin.sc:20306:710841 */ t35276 = a27109; /* x150195 stalin.sc:20306:710837 */ t35272 = f14275(t35276); /* x150191 stalin.sc:20306:710824 */ t35273.tag = STRUCTURE_TYPE24753; t35273.value.structure_type24753 = t35271; t35274.tag = STRUCTURE_TYPE24753; t35274.value.structure_type24753 = t35272; t35255 = f13585(t35273, t35274); l5061: /* x150169 stalin.sc:20304:710722 */ t35256.tag = STRUCTURE_TYPE24753; t35256.value.structure_type24753 = t35254; t35257.tag = STRUCTURE_TYPE24753; t35257.value.structure_type24753 = t35255; return f13637(t35256, t35257);} /* [inside COMPILE 15988] */ struct structure_type24753 *f15988(struct p15977 *p15988, struct w49 a27081) {struct structure_type27501 *a38378; /* S */ struct structure_type27501 *a38397; /* S */ struct structure_type24753 *t35278; struct structure_type24753 *t35279; struct w49 t35280; struct w49 t35281; struct w49 t35282; struct structure_type24753 *t35283; struct w61020 t35284; struct w49 t35285; struct w49 t35286; struct w49 t35287; struct structure_type27501 *t35288; struct structure_type27501 *t35289; struct structure_type27501 *t35290; struct structure_type27501 *t35291; struct w49 t35292; struct w49 t35293; struct w49 t35294; struct structure_type24753 *t35295; struct structure_type24753 *t35296; struct w49 t35297; struct w61020 t35298; struct w49 t35299; struct w49 t35300; struct w49 t35301; /* x149439 stalin.sc:20136:704638 */ /* x149422 stalin.sc:20136:704644 */ /* x149418 stalin.sc:20136:704649 */ /* x149413 stalin.sc:20136:704658 */ /* x149412 stalin.sc:20136:704668 */ t35288 = p15988->p15924->p15922->a27040; /* x149411 stalin.sc:20136:704659 */ a38378 = t35288; /* x286181 */ /* x286180 */ t35289 = a38378; /* x286179 */ if (!(t35289>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-C[5769] 33295]"); structure_ref_error();} t35285 = t35289->s3; /* x149414 stalin.sc:20136:704671 */ t35286 = p15988->a27078; /* x149417 stalin.sc:20136:704673 */ /* x149416 stalin.sc:20136:704690 */ t35290 = p15988->p15924->p15922->a27040; /* x149415 stalin.sc:20136:704674 */ a38397 = t35290; /* x286257 */ /* x286256 */ t35291 = a38397; /* x286255 */ if (!(t35291>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33314]"); structure_ref_error();} t35287 = t35291->s2; /* x149410 stalin.sc:20136:704650 */ t35282 = f14485(t35285, t35286, t35287); /* x149421 stalin.sc:20137:704699 */ /* x149420 stalin.sc:20137:704704 */ t35292 = a27081; /* x149419 stalin.sc:20137:704700 */ t35283 = f14275(t35292); /* x149409 stalin.sc:20136:704645 */ t35284.tag = STRUCTURE_TYPE24753; t35284.value.structure_type24753 = t35283; t35278 = f13585(t35282, t35284); /* x149438 stalin.sc:20138:704716 */ /* x149426 stalin.sc:20138:704720 */ /* x149424 stalin.sc:20138:704725 */ t35293 = a27081; /* x149425 stalin.sc:20138:704728 */ t35294 = p15988->p15924->a27044; /* x268413 stalin.sc:20138:704721 */ /* EQ: dispatching general to general */ if (!((t35293.tag)==(t35294.tag))) goto l5063; switch (t35293.tag) {case FIXNUM_TYPE: if (!((t35293.value.fixnum_type)==(t35294.value.fixnum_type))) goto l5063; break; case FLONUM_TYPE: if (!((t35293.value.flonum_type)==(t35294.value.flonum_type))) goto l5063; break; case INPUT_PORT_TYPE: if (!((t35293.value.input_port_type)==(t35294.value.input_port_type))) goto l5063; break; case OUTPUT_PORT_TYPE: if (!((t35293.value.output_port_type)==(t35294.value.output_port_type))) goto l5063; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t35293.value.native_procedure_type15963)==(t35294.value.native_procedure_type15963))) goto l5063; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t35293.value.native_procedure_type19067)==(t35294.value.native_procedure_type19067))) goto l5063; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t35293.value.native_procedure_type19068)==(t35294.value.native_procedure_type19068))) goto l5063; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t35293.value.native_procedure_type22459)==(t35294.value.native_procedure_type22459))) goto l5063; break; case STRUCTURE_TYPE24753: if (!((t35293.value.structure_type24753)==(t35294.value.structure_type24753))) goto l5063; break; case STRUCTURE_TYPE24757: if (!((t35293.value.structure_type24757)==(t35294.value.structure_type24757))) goto l5063; break; case STRUCTURE_TYPE27501: if (!((t35293.value.structure_type27501)==(t35294.value.structure_type27501))) goto l5063; break; case STRUCTURE_TYPE27510: if (!((t35293.value.structure_type27510)==(t35294.value.structure_type27510))) goto l5063; break; case STRUCTURE_TYPE27621: if (!((t35293.value.structure_type27621)==(t35294.value.structure_type27621))) goto l5063; break; case STRUCTURE_TYPE27650: if (!((t35293.value.structure_type27650)==(t35294.value.structure_type27650))) goto l5063; break; case STRUCTURE_TYPE27669: if (!((t35293.value.structure_type27669)==(t35294.value.structure_type27669))) goto l5063; break; case STRUCTURE_TYPE27673: if (!((t35293.value.structure_type27673)==(t35294.value.structure_type27673))) goto l5063; break; case STRUCTURE_TYPE27692: if (!((t35293.value.structure_type27692)==(t35294.value.structure_type27692))) goto l5063; break; case STRUCTURE_TYPE27694: if (!((t35293.value.structure_type27694)==(t35294.value.structure_type27694))) goto l5063; break; case STRUCTURE_TYPE27698: if (!((t35293.value.structure_type27698)==(t35294.value.structure_type27698))) goto l5063; break; case STRUCTURE_TYPE27745: if (!((t35293.value.structure_type27745)==(t35294.value.structure_type27745))) goto l5063; break; case STRUCTURE_TYPE27747: if (!((t35293.value.structure_type27747)==(t35294.value.structure_type27747))) goto l5063; break; case STRUCTURE_TYPE27750: if (!((t35293.value.structure_type27750)==(t35294.value.structure_type27750))) goto l5063; break; case STRUCTURE_TYPE27753: if (!((t35293.value.structure_type27753)==(t35294.value.structure_type27753))) goto l5063; break; case STRUCTURE_TYPE27756: if (!((t35293.value.structure_type27756)==(t35294.value.structure_type27756))) goto l5063; break; case STRUCTURE_TYPE27761: if (!((t35293.value.structure_type27761)==(t35294.value.structure_type27761))) goto l5063; break; case STRUCTURE_TYPE27769: if (!((t35293.value.structure_type27769)==(t35294.value.structure_type27769))) goto l5063; break; case STRUCTURE_TYPE27776: if (!((t35293.value.structure_type27776)==(t35294.value.structure_type27776))) goto l5063; break; case STRUCTURE_TYPE27779: if (!((t35293.value.structure_type27779)==(t35294.value.structure_type27779))) goto l5063; break; case STRUCTURE_TYPE27858: if (!((t35293.value.structure_type27858)==(t35294.value.structure_type27858))) goto l5063; break; case STRING_TYPE: if (!((t35293.value.string_type)==(t35294.value.string_type))) goto l5063; break; case HEADED_VECTOR_TYPE27896: if (!((t35293.value.headed_vector_type27896)==(t35294.value.headed_vector_type27896))) goto l5063; break; case EXTERNAL_SYMBOL_TYPE: if (!((t35293.value.external_symbol_type)==(t35294.value.external_symbol_type))) goto l5063; break; case STRUCTURE_TYPE27908: if (!((t35293.value.structure_type27908)==(t35294.value.structure_type27908))) goto l5063; break; default:;} /* x149429 stalin.sc:20138:704731 */ /* x149428 stalin.sc:20138:704736 */ t35301 = a27081; /* x149427 stalin.sc:20138:704732 */ t35279 = f14275(t35301); goto l5064; l5063: /* x149437 stalin.sc:20138:704740 */ /* x149433 stalin.sc:20138:704745 */ /* x149432 stalin.sc:20138:704750 */ t35299 = p15988->p15924->a27044; /* x149431 stalin.sc:20138:704746 */ t35295 = f14281(t35299); /* x149436 stalin.sc:20138:704753 */ /* x149435 stalin.sc:20138:704758 */ t35300 = a27081; /* x149434 stalin.sc:20138:704754 */ t35296 = f14275(t35300); /* x149430 stalin.sc:20138:704741 */ t35297.tag = STRUCTURE_TYPE24753; t35297.value.structure_type24753 = t35295; t35298.tag = STRUCTURE_TYPE24753; t35298.value.structure_type24753 = t35296; t35279 = f13585(t35297, t35298); l5064: /* x149408 stalin.sc:20136:704639 */ t35280.tag = STRUCTURE_TYPE24753; t35280.value.structure_type24753 = t35278; t35281.tag = STRUCTURE_TYPE24753; t35281.value.structure_type24753 = t35279; return f13637(t35280, t35281);} /* COMPILE[15922] */ struct w49 f15922(struct structure_type27501 *a27040, struct w49 a27041) {struct w49 r15922; struct structure_type24753 *a14607; /* X */ char a14899; /* X */ struct w12224 a14900; /* L */ struct w49 a14903; /* L */ int a14904; /* I */ struct w49 a15588; /* PATHNAME */ struct w49 a15592; /* L */ struct w49 a15598; /* PATHNAME */ struct structure_type24753 *a15600; /* L */ struct structure_type27501 *a19336; /* S */ struct structure_type27501 *a19346; /* S */ struct structure_type27501 *a19356; /* S */ struct structure_type27501 *a19366; /* S */ struct structure_type27501 *a19376; /* S */ struct w49 a20944; /* X */ struct w49 a25279; /* C */ struct w49 a27037; /* X */ struct w49 a27038; /* C */ struct w49 a27039; /* C */ struct w49 a27044; /* E */ struct structure_type24753 *a27047; /* L1 */ struct structure_type24753 *a27048; /* L2 */ struct structure_type24753 *a27049; /* L3 */ struct w49 a27050; /* C */ char *a27051; /* v */ struct w49 a27057; /* U */ struct w49 a27058; /* W2 */ struct w49 a27059; /* W1 */ struct structure_type24753 *a27060; /* T */ struct w49 a27066; /* U */ struct w49 a27067; /* W1 */ struct structure_type24753 *a27068; /* T */ struct w49 a27078; /* U */ char *a27079; /* v */ struct structure_type24753 *a27089; /* L3 */ struct w49 a27090; /* C */ struct structure_type24753 *a27091; /* L3 */ struct w49 a27092; /* C */ struct structure_type24753 *a27095; /* L1 */ struct structure_type24753 *a27096; /* L2 */ struct w49 a27097; /* C */ struct structure_type24753 *a27098; /* L1 */ struct structure_type24753 *a27099; /* L2 */ struct structure_type24753 *a27100; /* L3 */ struct w49 a27101; /* C */ struct structure_type24753 *a27102; /* L1 */ struct w49 a27103; /* C */ struct structure_type24753 *a27104; /* L1 */ struct w49 a27105; /* C */ char *a27106; /* v */ struct w49 a27108; /* U */ struct w49 a27118; /* U */ struct w49 a27119; /* E0 */ struct w6852 a27120; /* X0 */ struct w49 a27121; /* X1 */ struct w49 a27122; /* X2 */ struct w49 a27123; /* E1 */ struct structure_type24753 *a27124; /* L3 */ struct w49 a27125; /* C */ char *a27126; /* v */ struct structure_type24753 *a27130; /* L3 */ struct w49 a27131; /* C */ char *a27132; /* v */ struct w49 a27136; /* W0 */ struct structure_type24753 *a27137; /* WS */ struct w60864 a27138; /* T0 */ struct structure_type24753 *a27139; /* TS */ struct w49 a34005; /* STRING */ int a34006; /* START */ int a34007; /* END */ char *a34008; /* R */ int a34012; /* K */ struct structure_type24753 *a35180; /* OBJS */ struct w16638 a35526; /* PAIR */ struct w16638 a35527; /* PAIR */ struct w11873 a35781; /* PAIR */ struct w11873 a35927; /* PAIR */ struct w16638 a36083; /* PAIR */ struct w16638 a36084; /* PAIR */ struct w49 a36676; /* S */ struct w49 a36861; /* S */ struct w49 a36862; /* S */ struct w49 a36863; /* S */ struct w49 a36868; /* S */ struct w49 a36869; /* S */ struct w49 a37516; /* S */ struct w49 a38096; /* OBJ */ struct structure_type27501 *a38337; /* S */ struct structure_type27501 *a38338; /* S */ struct structure_type27501 *a38339; /* S */ struct structure_type27501 *a38340; /* S */ struct structure_type27501 *a38342; /* S */ struct structure_type27501 *a38343; /* S */ struct structure_type27501 *a38344; /* S */ struct structure_type27501 *a38345; /* S */ struct structure_type27501 *a38348; /* S */ struct structure_type27501 *a38349; /* S */ struct structure_type27501 *a38354; /* S */ struct structure_type27501 *a38355; /* S */ struct structure_type27501 *a38356; /* S */ struct structure_type27501 *a38357; /* S */ struct structure_type27501 *a38359; /* S */ struct structure_type27501 *a38360; /* S */ struct structure_type27501 *a38364; /* S */ struct structure_type27501 *a38365; /* S */ struct structure_type27501 *a38366; /* S */ struct structure_type27501 *a38367; /* S */ struct structure_type27501 *a38369; /* S */ struct structure_type27501 *a38370; /* S */ struct structure_type27501 *a38371; /* S */ struct structure_type27501 *a38372; /* S */ struct structure_type27501 *a38376; /* S */ struct structure_type27501 *a38377; /* S */ struct structure_type27501 *a38380; /* S */ struct structure_type27501 *a38381; /* S */ struct structure_type27501 *a38393; /* S */ struct structure_type27501 *a38394; /* S */ struct structure_type27501 *a38395; /* S */ struct structure_type27501 *a38396; /* S */ struct structure_type27501 *a38399; /* S */ struct structure_type27501 *a38400; /* S */ struct structure_type27501 *a38401; /* S */ struct structure_type27501 *a38424; /* S */ struct structure_type27501 *a38425; /* S */ struct structure_type27501 *a38426; /* S */ struct structure_type27501 *a38427; /* S */ struct structure_type27501 *a38428; /* S */ struct structure_type27501 *a38429; /* S */ struct structure_type27501 *a38432; /* S */ struct structure_type27501 *a38433; /* S */ struct structure_type27501 *a38434; /* S */ struct structure_type27501 *a38435; /* S */ struct w49 a38531; /* S */ struct w49 a38534; /* S */ struct w49 a38559; /* S */ struct w49 a38560; /* S */ struct w49 a38625; /* S */ struct w49 a38659; /* S */ struct w49 a38665; /* S */ struct w49 a38666; /* S */ struct w49 a38667; /* S */ struct w49 a38889; /* S */ struct w49 a38890; /* S */ struct w49 a38891; /* S */ struct w49 a38892; /* S */ struct w49 a38905; /* S */ struct w49 a38906; /* S */ struct w49 a38907; /* S */ struct w49 a38908; /* S */ struct w49 a38909; /* S */ struct w49 a38911; /* S */ struct w49 a38912; /* S */ struct w49 a38942; /* S */ struct w49 a38959; /* S */ struct w49 a38960; /* S */ struct w49 a38961; /* S */ struct w49 a38962; /* S */ struct w49 a38963; /* S */ struct w49 a38964; /* S */ struct w49 a38965; /* S */ struct w49 a38966; /* S */ struct w49 a39011; /* S */ struct w49 a39012; /* S */ struct w49 a39013; /* S */ struct w49 a39014; /* S */ struct w49 a39015; /* S */ struct w49 a39016; /* S */ struct w49 a39017; /* S */ struct w49 a39018; /* S */ struct w49 a39019; /* S */ struct w49 a39020; /* S */ struct w49 a39021; /* S */ struct w49 a39065; /* S */ struct w49 a39134; /* S */ struct w49 a39135; /* S */ struct w49 a39136; /* S */ struct w49 a39137; /* S */ struct w49 a39138; /* S */ struct w49 a39139; /* S */ struct w49 a39140; /* S */ struct w49 a39141; /* S */ struct w49 a39146; /* S */ struct w49 a39147; /* S */ struct w49 a39148; /* S */ struct w49 a39149; /* S */ struct w49 a39150; /* S */ struct w6852 a39208; /* S */ struct w49 a39524; /* S */ struct w49 a39525; /* S */ struct w49 a39527; /* S */ struct w49 a39530; /* S */ struct w49 a39531; /* S */ struct w49 a39532; /* S */ struct w49 a39533; /* S */ struct w49 a39574; /* S */ struct w49 a39575; /* S */ struct w49 a39576; /* S */ struct w49 a39577; /* S */ struct w49 a39578; /* S */ struct w49 a39579; /* S */ struct w49 a39580; /* S */ struct w49 a39581; /* S */ struct w49 a39582; /* S */ struct w49 a39583; /* S */ struct w49 a39584; /* S */ struct w49 a39585; /* S */ struct w49 a39896; /* S */ struct w49 a39919; /* S */ struct w49 a39966; /* S */ struct w49 a39967; /* S */ struct w49 a39968; /* S */ struct w49 a39969; /* S */ struct w49 a39970; /* S */ struct w49 a39971; /* S */ struct w49 a39973; /* S */ struct w49 a39974; /* S */ struct w49 a39975; /* S */ struct w49 a39976; /* S */ struct w49 a39981; /* S */ struct w49 a39984; /* S */ struct w49 a40048; /* S */ struct w49 a40094; /* S */ struct w49 a40134; /* S */ struct w49 a40135; /* S */ struct w49 a40160; /* S */ struct w49 a40176; /* S */ struct w49 a40195; /* S */ struct w49 a40196; /* S */ struct w49 a40305; /* S */ struct w49 a40306; /* S */ struct w49 a40313; /* S */ struct structure_type24753 *a41275; /* C */ struct structure_type24753 *a41276; /* C */ struct structure_type24753 *a41277; /* C */ struct structure_type24753 *a41278; /* C */ struct structure_type24753 *a41279; /* C */ struct structure_type24753 *a41281; /* C */ struct structure_type24753 *a41282; /* C */ struct structure_type24753 *a41283; /* C */ struct structure_type24753 *a41284; /* C */ struct structure_type24753 *a41285; /* C */ struct structure_type24753 *a41286; /* C */ struct structure_type24753 *a41287; /* C */ struct structure_type24753 *a41288; /* C */ struct structure_type24753 *a41289; /* C */ struct w49 a41653; /* G */ struct w49 a41670; /* G */ struct w49 a41671; /* G */ struct w49 a41698; /* G */ struct w49 a41737; /* G */ struct structure_type24753 *a41820; /* CS */ struct structure_type24753 *a41821; /* CS */ struct structure_type24753 *a41826; /* CS */ struct structure_type24753 *a41854; /* CS */ struct structure_type24753 *a41855; /* CS */ struct structure_type24753 *a41876; /* CS */ struct structure_type24753 *a41898; /* CS */ struct structure_type24753 *a41899; /* CS */ struct structure_type24753 *a41924; /* CS */ struct structure_type24753 *a41925; /* CS */ struct structure_type24753 *a41926; /* CS */ struct structure_type24753 *a41927; /* CS */ struct structure_type24753 *a41928; /* CS */ struct structure_type24753 *a41929; /* CS */ struct structure_type24753 *a41930; /* CS */ struct structure_type24753 *a41931; /* CS */ struct structure_type24753 *a41932; /* CS */ struct structure_type24753 *a41933; /* CS */ struct structure_type24753 *a42007; /* CS */ struct structure_type24753 *a42008; /* CS */ struct structure_type24753 *a42090; /* CS */ struct p15922 *t35302; struct w49 t35304; struct w49 t35305; struct w49 t35306; struct w49 t35307; struct w49 t35308; struct structure_type24753 *t35309; struct w49 t35310; struct w49 t35311; struct structure_type24753 *t35312; struct w49 t35313; struct w49 t35314; struct w49 t35315; struct w49 t35316; char *t35317; char *t35318; char *t35319; struct structure_type24753 *t35320; struct w49 t35321; unsigned t35322; struct w49 t35323; struct w49 t35324; struct w49 t35325; char *t35326; char *t35327; char *t35328; char *t35329; struct w49 t35330; char *t35331; char *t35332; char *t35333; char *t35334; struct structure_type24753 *t35335; struct w49 t35336; struct w49 t35337; struct w49 t35338; struct w49 t35339; struct w49 t35340; struct w49 t35341; struct w49 t35342; unsigned t35343; struct w49 t35344; struct w49 t35345; struct w49 t35346; struct w49 t35347; struct w49 t35348; struct w12224 t35349; struct w49 t35350; struct w49 t35351; char t35352; struct w49 t35353; char t35354; struct w16638 t35355; struct w16638 t35356; struct w49 t35357; struct w16638 t35358; struct w16638 t35359; struct structure_type24753 *t35360; struct w49 t35361; struct w49 t35362; struct w49 t35363; char *t35364; struct w49 t35365; struct w49 t35366; char *t35367; struct structure_type24753 *t35368; struct w49 t35369; int t35370; int t35371; char *t35372; int t35373; int t35374; int t35375; int t35376; int t35377; int t35378; char *t35379; int t35380; char t35381; int t35382; int t35383; struct w49 t35384; int t35385; int t35386; char *t35387; int t35388; int t35389; int t35390; unsigned t35391; struct structure_type24753 *t35392; struct w49 t35393; char t35394; struct w12224 t35395; struct w12224 t35396; int t35397; struct w49 t35398; char t35399; struct w49 t35400; struct w49 t35401; struct w16638 t35402; struct w16638 t35403; struct w49 t35404; int t35405; struct w16638 t35406; struct w16638 t35407; int t35408; int t35409; struct structure_type24753 *t35410; struct w49 t35411; struct structure_type24753 *t35412; struct w49 t35413; struct w49 t35414; struct w49 t35415; char *t35416; struct w49 t35417; struct w49 t35418; char *t35419; struct w49 t35420; struct w49 t35421; struct w7121 t35422; struct w49 t35423; struct w49 t35424; struct w49 t35425; struct w7121 t35426; struct w49 t35427; struct w49 t35428; struct w49 t35429; struct p15922 *t35430; struct w49 t35431; struct structure_type27501 *t35432; struct w12218 t35433; struct w49 t35434; struct w211225 t35435; struct w49 t35436; struct w49 t35437; struct w49 t35438; struct w211235 t35439; struct w49 t35440; struct w49 t35441; struct w49 t35442; struct w211235 t35443; struct w49 t35444; struct w49 t35445; struct w49 t35446; struct w49 t35447; struct w49 t35448; struct p15924 *t35449; char *t35450; char *t35451; char *t35452; struct w49 t35453; struct w49 t35454; char *t35455; char *t35456; struct w49 t35457; struct w49 t35458; char *t35459; char *t35460; struct w49 t35461; struct w49 t35462; char *t35463; char *t35464; struct w49 t35465; struct w49 t35466; char *t35467; char *t35468; struct w49 t35469; struct w49 t35470; char *t35471; char *t35472; struct w49 t35473; struct w49 t35474; char *t35475; char *t35476; struct w49 t35477; struct w49 t35478; char *t35479; char *t35480; struct w49 t35481; struct w49 t35482; char *t35483; char *t35484; struct w49 t35485; struct w49 t35486; char *t35487; char *t35488; struct w49 t35489; struct w49 t35490; char *t35491; char *t35492; struct w49 t35493; struct w49 t35494; char *t35495; char *t35496; struct w49 t35497; struct w49 t35498; char *t35499; char *t35500; struct w49 t35501; struct w49 t35502; char *t35503; char *t35504; struct w49 t35505; struct w49 t35506; char *t35507; char *t35508; struct w49 t35509; struct w49 t35510; char *t35511; char *t35512; struct w49 t35513; struct w49 t35514; char *t35515; char *t35516; struct w49 t35517; struct w49 t35518; char *t35519; char *t35520; struct w49 t35521; struct w49 t35522; char *t35523; char *t35524; struct w49 t35525; struct w49 t35526; char *t35527; char *t35528; struct w49 t35529; struct w49 t35530; char *t35531; char *t35532; struct w49 t35533; struct w49 t35534; char *t35535; struct p15924 *t35536; struct structure_type27501 *t35537; struct w12218 t35538; struct w49 t35539; struct structure_type27501 *t35540; struct w12218 t35541; struct w49 t35542; struct p15922 *t35543; struct p15922 *t35544; struct w49 t35545; struct p16090 *t35546; struct structure_type24753 *t35547; struct p16091 *t35548; struct w60864 t35549; struct p16092 *t35550; struct structure_type24753 *t35551; struct p16093 *t35552; struct w49 t35553; struct w49 t35554; struct w49 t35555; struct structure_type24753 *t35556; struct w49 t35557; struct w49 t35558; struct w49 t35559; struct w12224 t35560; struct w49 t35561; unsigned t35562; struct structure_type24753 *t35563; struct w49 t35564; struct w49 t35565; struct w49 t35566; struct w49 t35567; struct w49 t35568; struct w49 t35569; struct w49 t35570; struct w49 t35571; struct w49 t35572; struct structure_type24753 *t35573; struct structure_type24753 *t35574; struct w11873 t35575; struct w36270 t35576; struct w49 t35577; struct structure_type24753 *t35578; struct w49 t35579; struct w49 t35580; struct w49 t35581; struct structure_type27501 *t35582; struct w49 t35583; struct w49 t35584; struct w49 t35585; struct w49 t35586; struct w49 t35587; struct w60864 t35588; struct w49 t35589; struct structure_type27501 *t35590; struct w49 t35591; struct w49 t35592; struct w49 t35593; struct w49 t35594; unsigned t35595; struct w49 t35596; struct structure_type27501 *t35597; struct w60864 t35598; struct p16093 *t35599; struct p15922 *t35600; struct w49 t35601; char *t35602; struct w49 t35603; unsigned t35604; struct structure_type24753 *t35605; struct structure_type24753 *t35606; struct w36270 t35607; struct w49 t35608; struct structure_type24753 *t35609; struct w49 t35610; struct w11873 t35611; struct w36270 t35612; struct w49 t35613; struct structure_type24753 *t35614; struct w49 t35615; struct w49 t35616; struct w49 t35617; struct w49 t35618; struct w49 t35619; struct w49 t35620; struct p15922 *t35621; struct w49 t35622; struct w12563 t35623; struct w12563 t35624; struct w12563 t35625; struct w11873 t35626; struct w11873 t35627; struct w49 t35628; struct w49 t35629; struct structure_type27501 *t35630; struct structure_type27501 *t35631; struct structure_type27501 *t35632; struct structure_type27501 *t35633; struct structure_type27501 *t35634; struct structure_type27501 *t35635; struct p15924 *t35636; struct p15924 *t35637; struct w49 t35638; struct p15924 *t35639; struct w49 t35640; struct p16056 *t35641; struct w6852 t35642; struct p16056 *t35643; struct w49 t35644; struct p16056 *t35645; struct w49 t35646; struct p16056 *t35647; struct w49 t35648; struct p16060 *t35649; struct w49 t35650; struct w49 t35651; struct w49 t35652; struct w49 t35653; struct w49 t35654; struct w49 t35655; struct w49 t35656; struct w12563 t35657; struct w12563 t35658; struct w12563 t35659; struct structure_type27501 *t35660; struct structure_type27501 *t35661; struct p16060 *t35662; struct structure_type24753 *t35663; struct p16060 *t35664; struct w49 t35665; struct p16060 *t35666; struct w49 t35667; struct w61020 t35668; struct w49 t35669; struct w49 t35670; struct w49 t35671; struct structure_type24753 *t35672; struct w49 t35673; struct w49 t35674; struct w49 t35675; struct w49 t35676; struct w49 t35677; struct w49 t35678; struct structure_type24753 *t35679; struct structure_type24753 *t35680; struct structure_type24753 *t35681; struct w49 t35682; struct structure_type24753 *t35683; struct w49 t35684; struct w49 t35685; struct p16060 *t35686; char *t35687; char *t35688; char *t35689; struct w49 t35690; struct w49 t35691; char *t35692; char *t35693; struct w49 t35694; struct w49 t35695; char *t35696; char *t35697; struct w49 t35698; struct w49 t35699; char *t35700; char *t35701; struct w49 t35702; struct w49 t35703; char *t35704; char *t35705; struct w49 t35706; struct w49 t35707; char *t35708; struct p16056 *t35709; struct structure_type24753 *t35710; struct w61020 t35711; struct w49 t35712; struct w49 t35713; struct structure_type24753 *t35714; struct w49 t35715; struct w49 t35716; struct w49 t35717; struct p15922 *t35718; struct w49 t35719; char *t35720; struct w6315 t35721; struct p16060 *t35722; struct structure_type24753 *t35723; struct w49 t35724; struct p16060 *t35725; struct w3457 t35726; struct w36270 t35727; struct w49 t35728; struct structure_type24753 *t35729; struct w49 t35730; struct p15922 *t35731; struct w49 t35732; char *t35733; struct w6315 t35734; struct p15922 *t35735; struct w49 t35736; char *t35737; struct w6315 t35738; struct w49 t35739; struct w12563 t35740; struct w12563 t35741; struct w12563 t35742; struct w49 t35743; struct w49 t35744; struct structure_type27501 *t35745; struct structure_type27501 *t35746; struct structure_type27501 *t35747; struct structure_type27501 *t35748; struct structure_type27501 *t35749; struct structure_type27501 *t35750; struct w49 t35751; struct structure_type24753 *t35752; struct structure_type24753 *t35753; struct w12563 t35754; struct w12563 t35755; struct w12563 t35756; struct w49 t35757; struct w49 t35758; struct w49 t35759; struct w49 t35760; struct w12563 t35761; struct w12563 t35762; struct w12563 t35763; struct structure_type27501 *t35764; struct structure_type27501 *t35765; struct structure_type27501 *t35766; struct structure_type27501 *t35767; struct p16060 *t35768; struct structure_type24753 *t35769; struct p16060 *t35770; struct w49 t35771; struct p16060 *t35772; struct w49 t35773; struct w61020 t35774; struct w49 t35775; struct w49 t35776; struct w49 t35777; struct structure_type24753 *t35778; struct w49 t35779; struct w49 t35780; struct w49 t35781; struct w49 t35782; struct w49 t35783; struct w49 t35784; struct structure_type24753 *t35785; struct structure_type24753 *t35786; struct structure_type24753 *t35787; struct w49 t35788; struct structure_type24753 *t35789; struct w49 t35790; struct w49 t35791; struct p16060 *t35792; char *t35793; char *t35794; char *t35795; struct w49 t35796; struct w49 t35797; char *t35798; char *t35799; struct w49 t35800; struct w49 t35801; char *t35802; char *t35803; struct w49 t35804; struct w49 t35805; char *t35806; char *t35807; struct w49 t35808; struct w49 t35809; char *t35810; char *t35811; struct w49 t35812; struct w49 t35813; char *t35814; struct p16056 *t35815; struct structure_type24753 *t35816; struct w61020 t35817; struct w49 t35818; struct w49 t35819; struct structure_type24753 *t35820; struct w49 t35821; struct w49 t35822; struct w49 t35823; struct p15922 *t35824; struct w49 t35825; char *t35826; struct w6315 t35827; struct p16060 *t35828; struct structure_type24753 *t35829; struct w49 t35830; struct p16060 *t35831; struct w3457 t35832; struct w36270 t35833; struct w49 t35834; struct structure_type24753 *t35835; struct w49 t35836; struct p15922 *t35837; struct w49 t35838; char *t35839; struct w6315 t35840; struct p15922 *t35841; struct w49 t35842; char *t35843; struct w6315 t35844; struct w49 t35845; struct w12563 t35846; struct w12563 t35847; struct w12563 t35848; struct w49 t35849; struct w49 t35850; struct structure_type27501 *t35851; struct structure_type27501 *t35852; struct structure_type27501 *t35853; struct structure_type27501 *t35854; struct structure_type27501 *t35855; struct structure_type27501 *t35856; struct w49 t35857; struct w12563 t35858; struct structure_type24753 *t35859; struct structure_type24753 *t35860; struct w12563 t35861; struct w12563 t35862; struct structure_type27501 *t35863; struct structure_type27501 *t35864; struct w49 t35865; struct w49 t35866; struct w11873 t35867; struct w11873 t35868; struct w49 t35869; struct w49 t35870; struct w6852 t35871; struct w6852 t35872; struct w49 t35873; struct w49 t35874; struct w49 t35875; struct structure_type27745 *t35876; struct structure_type27745 *t35877; struct w49 t35878; struct w49 t35879; struct w49 t35880; struct w49 t35881; struct w49 t35882; struct w49 t35883; struct p15924 *t35884; struct w49 t35885; struct structure_type27501 *t35886; struct w12218 t35887; struct w49 t35888; struct w49 t35889; struct w49 t35890; struct w49 t35891; struct structure_type27501 *t35892; struct w12218 t35893; struct structure_type27501 *t35894; struct w12218 t35895; struct p15924 *t35896; struct structure_type27501 *t35897; struct w60861 t35898; struct w49 t35899; struct w49 t35900; struct w49 t35901; struct w49 t35902; struct w49 t35903; struct w49 t35904; struct w49 t35905; struct w49 t35906; struct w49 t35907; struct w49 t35908; struct w49 t35909; struct w49 t35910; struct w49 t35911; struct w61020 t35912; struct w49 t35913; struct w49 t35914; struct w49 t35915; struct w49 t35916; struct w49 t35917; struct w49 t35918; struct w49 t35919; struct w49 t35920; struct p15924 *t35921; struct p15924 *t35922; char *t35923; char *t35924; char *t35925; struct w49 t35926; struct w49 t35927; char *t35928; char *t35929; struct w49 t35930; struct w49 t35931; char *t35932; char *t35933; struct w49 t35934; struct w49 t35935; char *t35936; char *t35937; struct w49 t35938; struct w49 t35939; char *t35940; char *t35941; struct w49 t35942; struct w49 t35943; char *t35944; struct p15924 *t35945; struct structure_type27501 *t35946; struct w61020 t35947; struct w49 t35948; struct w49 t35949; struct w60861 t35950; struct w49 t35951; struct w49 t35952; struct w49 t35953; struct w49 t35954; struct w49 t35955; struct w49 t35956; struct w49 t35957; struct w49 t35958; struct w49 t35959; struct w49 t35960; struct p15922 *t35961; struct w49 t35962; char *t35963; struct w6315 t35964; struct w49 t35965; struct structure_type27501 *t35966; struct structure_type27501 *t35967; struct w49 t35968; struct structure_type27501 *t35969; struct structure_type27501 *t35970; char *t35971; struct p15924 *t35972; struct p15924 *t35973; struct p15924 *t35974; struct w49 t35975; struct w61020 t35976; struct w49 t35977; struct structure_type24753 *t35978; struct w49 t35979; struct w49 t35980; struct w49 t35981; struct structure_type27501 *t35982; struct structure_type27501 *t35983; struct w49 t35984; struct w61020 t35985; struct w49 t35986; struct structure_type24753 *t35987; struct w49 t35988; struct w49 t35989; struct structure_type27501 *t35990; struct structure_type27501 *t35991; struct structure_type27501 *t35992; struct structure_type27501 *t35993; struct w49 t35994; struct structure_type24753 *t35995; struct w49 t35996; struct p16036 *t35997; struct w3457 t35998; struct w36270 t35999; struct w49 t36000; struct structure_type24753 *t36001; struct w49 t36002; struct w49 t36003; struct w49 t36004; struct w49 t36005; struct w49 t36006; struct w49 t36007; struct w49 t36008; struct structure_type27501 *t36009; struct structure_type27501 *t36010; struct w49 t36011; struct structure_type27501 *t36012; struct structure_type27501 *t36013; char *t36014; struct p15922 *t36015; struct w49 t36016; char *t36017; struct w6315 t36018; struct p15922 *t36019; struct w49 t36020; char *t36021; struct w6315 t36022; struct p15922 *t36023; struct structure_type27501 *t36024; char *t36025; struct w49 t36026; struct w49 t36027; struct w49 t36028; struct w49 t36029; struct w49 t36030; struct p15922 *t36031; struct structure_type27501 *t36032; char *t36033; struct w49 t36034; struct w49 t36035; struct w49 t36036; struct w49 t36037; struct w49 t36038; struct p15922 *t36039; struct structure_type27501 *t36040; struct w12218 t36041; struct w49 t36042; struct p15922 *t36043; struct w49 t36045; struct w49 t36046; struct w49 t36047; struct w49 t36048; struct w49 t36049; struct w49 t36050; struct w49 t36051; struct w61020 t36052; struct structure_type24753 *t36053; struct w49 t36054; struct w49 t36055; struct w49 t36056; struct w12563 t36057; struct w12563 t36058; struct w12563 t36059; struct w49 t36060; struct w49 t36061; struct w49 t36062; struct w49 t36063; struct w49 t36064; char *t36065; struct w49 t36066; unsigned t36067; struct structure_type24753 *t36068; struct p15922 *t36069; struct structure_type24753 *t36070; struct p15922 *t36071; struct w49 t36072; struct p15922 *t36073; struct w49 t36074; struct w61020 t36075; struct w49 t36076; struct structure_type24753 *t36077; struct w49 t36078; struct w49 t36079; struct w49 t36080; struct w49 t36081; struct structure_type24753 *t36082; struct structure_type24753 *t36083; struct structure_type24753 *t36084; struct w49 t36085; struct structure_type24753 *t36086; struct structure_type27501 *t36087; struct w49 t36088; struct w49 t36089; struct w49 t36090; struct w49 t36091; struct structure_type24753 *t36092; struct structure_type24753 *t36093; struct w12563 t36094; struct w12563 t36095; struct w12563 t36096; struct w49 t36097; struct w49 t36098; struct w49 t36099; struct w49 t36100; struct w49 t36101; struct p15922 *t36102; struct structure_type24753 *t36103; struct p15922 *t36104; struct w49 t36105; struct p15922 *t36106; struct w49 t36107; struct w61020 t36108; struct w49 t36109; struct structure_type24753 *t36110; struct w49 t36111; struct w49 t36112; struct w49 t36113; struct w49 t36114; struct structure_type24753 *t36115; struct structure_type24753 *t36116; struct structure_type24753 *t36117; struct w49 t36118; struct structure_type24753 *t36119; struct structure_type27501 *t36120; struct w49 t36121; struct w49 t36122; struct w49 t36123; struct w49 t36124; struct structure_type24753 *t36125; struct structure_type24753 *t36126; struct w12563 t36127; struct w12563 t36128; struct w12563 t36129; struct w49 t36130; struct w49 t36131; struct structure_type27501 *t36132; struct w12218 t36133; struct w49 t36134; char *t36135; char *t36136; struct w49 t36137; struct w49 t36138; char *t36139; char *t36140; struct w49 t36141; struct w49 t36142; struct p6989 *t36143; struct w49 t36144; struct w211225 t36145; struct w49 t36146; struct w49 t36147; struct w49 t36148; struct w49 t36149; struct w49 t36150; struct w49 t36151; struct p15922 *t36152; struct structure_type24753 *t36153; struct p15922 *t36154; struct structure_type24753 *t36155; struct p15922 *t36156; struct structure_type24753 *t36157; struct p15922 *t36158; struct w49 t36159; struct p15922 *t36160; struct w49 t36161; struct w61020 t36162; struct w49 t36163; struct w61020 t36164; struct structure_type24753 *t36165; struct w49 t36166; struct structure_type24753 *t36167; struct structure_type24753 *t36168; struct w49 t36169; struct w49 t36170; struct w49 t36171; struct w49 t36172; struct w49 t36173; struct w49 t36174; struct w49 t36175; struct w49 t36176; struct structure_type24753 *t36177; struct structure_type24753 *t36178; struct structure_type24753 *t36179; struct w49 t36180; struct structure_type24753 *t36181; struct structure_type27501 *t36182; struct w49 t36183; struct w49 t36184; struct w49 t36185; struct structure_type24753 *t36186; struct structure_type24753 *t36187; struct w12563 t36188; struct w12563 t36189; struct structure_type24753 *t36190; struct structure_type24753 *t36191; struct w49 t36192; struct structure_type27501 *t36193; struct w49 t36194; struct w49 t36195; struct w49 t36196; struct structure_type24753 *t36197; struct structure_type24753 *t36198; struct w49 t36199; struct w49 t36200; struct structure_type24753 *t36201; struct structure_type24753 *t36202; struct structure_type24753 *t36203; struct w12563 t36204; struct w12563 t36205; struct w12563 t36206; struct w49 t36207; struct w49 t36208; struct p15922 *t36209; struct structure_type24753 *t36210; struct p15922 *t36211; struct structure_type24753 *t36212; struct p15922 *t36213; struct w49 t36214; struct p15922 *t36215; struct w49 t36216; struct w61020 t36217; struct w49 t36218; struct structure_type24753 *t36219; struct w49 t36220; struct structure_type24753 *t36221; struct w49 t36222; struct w49 t36223; struct w49 t36224; struct w49 t36225; struct w49 t36226; struct w49 t36227; struct structure_type24753 *t36228; struct structure_type24753 *t36229; struct structure_type24753 *t36230; struct w49 t36231; struct structure_type24753 *t36232; struct structure_type27501 *t36233; struct w49 t36234; struct w49 t36235; struct w49 t36236; struct structure_type24753 *t36237; struct structure_type24753 *t36238; struct w49 t36239; struct structure_type27501 *t36240; struct w49 t36241; struct w49 t36242; struct w49 t36243; struct w49 t36244; struct structure_type24753 *t36245; struct structure_type24753 *t36246; struct structure_type24753 *t36247; struct w12563 t36248; struct w12563 t36249; struct w12563 t36250; struct w49 t36251; struct w49 t36252; struct w49 t36253; struct w49 t36254; struct w49 t36255; struct w49 t36256; struct w49 t36257; struct w49 t36258; struct w49 t36259; struct w49 t36260; struct w49 t36261; struct w49 t36262; struct w49 t36263; struct w12563 t36264; struct w12563 t36265; struct w12563 t36266; struct w49 t36267; struct w49 t36268; struct structure_type27501 *t36269; struct structure_type27501 *t36270; struct w49 t36271; struct w12563 t36272; struct w12563 t36273; struct w12563 t36274; struct w49 t36275; struct w49 t36276; struct structure_type27501 *t36277; struct structure_type27501 *t36278; struct structure_type27501 *t36279; struct structure_type27501 *t36280; struct w49 t36281; struct w49 t36282; struct w49 t36283; struct p15922 *t36284; struct structure_type24753 *t36285; struct p15922 *t36286; struct w49 t36287; struct p15922 *t36288; struct w49 t36289; struct w61020 t36290; struct w49 t36291; struct structure_type24753 *t36292; struct w49 t36293; struct w49 t36294; struct w49 t36295; struct w49 t36296; struct structure_type24753 *t36297; struct structure_type24753 *t36298; struct structure_type24753 *t36299; struct w49 t36300; struct structure_type24753 *t36301; struct w49 t36302; struct w12563 t36303; struct w12563 t36304; struct w12563 t36305; struct w49 t36306; struct w49 t36307; struct structure_type27501 *t36308; struct structure_type27501 *t36309; struct structure_type27501 *t36310; struct structure_type27501 *t36311; struct structure_type27501 *t36312; struct structure_type27501 *t36313; struct w49 t36314; struct structure_type24753 *t36315; struct structure_type24753 *t36316; struct w12563 t36317; struct w12563 t36318; struct w12563 t36319; struct w49 t36320; struct w49 t36321; struct p15922 *t36322; struct structure_type24753 *t36323; struct p15922 *t36324; struct w49 t36325; struct p15922 *t36326; struct w49 t36327; struct w61020 t36328; struct w49 t36329; struct structure_type24753 *t36330; struct w49 t36331; struct w49 t36332; struct w49 t36333; struct w49 t36334; struct structure_type24753 *t36335; struct structure_type24753 *t36336; struct structure_type24753 *t36337; struct w49 t36338; struct structure_type24753 *t36339; struct w49 t36340; struct w12563 t36341; struct w12563 t36342; struct w12563 t36343; struct w49 t36344; struct w49 t36345; struct structure_type27501 *t36346; struct structure_type27501 *t36347; struct structure_type27501 *t36348; struct structure_type27501 *t36349; struct structure_type27501 *t36350; struct structure_type27501 *t36351; struct w49 t36352; struct structure_type24753 *t36353; struct w12563 t36354; struct structure_type24753 *t36355; struct w12563 t36356; struct w12563 t36357; struct w49 t36358; struct w49 t36359; struct structure_type27501 *t36360; struct structure_type27501 *t36361; struct p15924 *t36362; struct w49 t36363; struct w49 t36364; struct structure_type24753 *t36365; struct w49 t36366; struct w49 t36367; struct structure_type27501 *t36368; struct w49 t36369; struct w49 t36370; struct w49 t36371; struct w49 t36372; struct w49 t36373; struct w49 t36374; struct w49 t36375; struct w49 t36376; struct w49 t36377; struct w49 t36378; struct w49 t36379; struct w49 t36380; struct w49 t36381; struct w49 t36382; struct w49 t36383; struct w49 t36384; struct w61020 t36385; struct w49 t36386; struct structure_type27501 *t36387; struct w49 t36388; struct w49 t36389; struct w49 t36390; struct w49 t36391; struct w49 t36392; struct w49 t36393; struct w49 t36394; struct w49 t36395; struct w49 t36396; struct w49 t36397; struct w49 t36398; struct structure_type27501 *t36399; struct w12218 t36400; struct p15924 *t36401; struct p15924 *t36402; struct w49 t36403; struct structure_type27501 *t36404; struct w12218 t36405; struct structure_type27501 *t36406; struct w12218 t36407; struct structure_type27501 *t36408; struct w12218 t36409; struct structure_type27501 *t36410; struct w12218 t36411; struct w49 t36412; struct p15977 *t36413; struct p15977 *t36414; char *t36415; char *t36416; char *t36417; struct w49 t36418; struct w49 t36419; char *t36420; char *t36421; struct w49 t36422; struct w49 t36423; char *t36424; char *t36425; struct w49 t36426; struct w49 t36427; char *t36428; char *t36429; struct w49 t36430; struct w49 t36431; char *t36432; char *t36433; struct w49 t36434; struct w49 t36435; char *t36436; struct p15977 *t36437; struct structure_type27501 *t36438; struct w61020 t36439; struct w49 t36440; struct w49 t36441; struct w49 t36442; struct w49 t36443; struct p15922 *t36444; struct w49 t36445; char *t36446; struct w6315 t36447; struct w49 t36448; struct structure_type27501 *t36449; struct structure_type27501 *t36450; struct w49 t36451; struct structure_type27501 *t36452; struct structure_type27501 *t36453; char *t36454; struct p15977 *t36455; struct p15977 *t36456; struct w61020 t36457; struct w49 t36458; struct structure_type24753 *t36459; struct w49 t36460; struct w49 t36461; struct w49 t36462; struct structure_type27501 *t36463; struct structure_type27501 *t36464; struct w49 t36465; struct w61020 t36466; struct w49 t36467; struct structure_type24753 *t36468; struct w49 t36469; struct w49 t36470; struct structure_type27501 *t36471; struct structure_type27501 *t36472; struct structure_type27501 *t36473; struct structure_type27501 *t36474; struct w49 t36475; struct structure_type24753 *t36476; struct w49 t36477; struct p15977 *t36478; struct w3457 t36479; struct w36270 t36480; struct w49 t36481; struct structure_type24753 *t36482; struct w49 t36483; struct w49 t36484; struct structure_type27501 *t36485; struct structure_type27501 *t36486; struct w49 t36487; struct structure_type27501 *t36488; struct structure_type27501 *t36489; char *t36490; struct p15922 *t36491; struct w49 t36492; char *t36493; struct w6315 t36494; struct p15922 *t36495; struct w49 t36496; char *t36497; struct w6315 t36498; struct p15977 *t36499; struct structure_type27501 *t36500; char *t36501; struct w49 t36502; struct w49 t36503; struct p15922 *t36504; struct structure_type27501 *t36505; struct w12218 t36506; struct p15922 *t36507; struct w12563 t36508; struct w12563 t36509; struct w61020 t36510; struct structure_type27501 *t36511; struct structure_type27501 *t36512; struct structure_type27501 *t36513; struct structure_type27501 *t36514; struct w49 t36515; struct w49 t36516; struct w49 t36517; struct p15922 *t36518; struct p15922 *t36519; struct w49 t36520; struct w49 t36521; struct p15922 *t36522; struct w49 t36523; struct structure_type24753 *t36524; struct p15969 *t36525; struct structure_type27501 *t36526; struct structure_type24753 *t36527; struct w49 t36528; struct w49 t36529; struct structure_type24753 *t36530; struct w49 t36531; struct w49 t36532; struct structure_type24753 *t36533; struct w49 t36534; struct structure_type24753 *t36535; unsigned t36536; int t36537; struct structure_type24753 *t36538; struct w49 t36539; char *t36540; struct w49 t36541; struct structure_type24753 *t36542; struct w49 t36543; struct w49 t36544; struct structure_type24753 *t36545; struct structure_type24753 *t36546; struct structure_type24753 *t36547; struct w49 t36548; struct w49 t36549; struct w49 t36550; struct structure_type24753 *t36551; struct structure_type24753 *t36552; struct structure_type24753 *t36553; struct w49 t36554; struct w49 t36555; struct w49 t36556; struct w49 t36557; char *t36558; struct structure_type24753 *t36559; struct w49 t36560; struct w49 t36561; struct w49 t36562; struct w49 t36563; struct structure_type24753 *t36564; struct w49 t36565; char *t36566; char *t36567; struct w61020 t36568; struct w61020 t36569; int t36570; struct w49 t36571; int t36572; int t36573; struct w49 t36574; struct w49 t36575; struct w49 t36576; struct structure_type24753 *t36577; struct w49 t36578; struct structure_type24753 *t36579; char *t36580; struct w49 t36581; struct w49 t36582; struct structure_type24753 *t36583; char *t36584; struct w49 t36585; struct w61020 t36586; int t36587; struct w49 t36588; struct w49 t36589; struct w49 t36590; struct w49 t36591; struct p15969 *t36592; int t36593; unsigned t36594; struct w49 t36595; struct w49 t36596; struct w49 t36597; struct w49 t36598; struct w49 t36599; unsigned t36600; struct structure_type27501 *t36601; char *t36602; struct w49 t36603; struct w49 t36604; int t36605; struct w49 t36606; struct w49 t36607; struct w49 t36608; struct w49 t36609; struct p15922 *t36610; struct w49 t36611; struct w211113 t36612; struct w49 t36613; struct w49 t36614; struct p15922 *t36615; struct p15922 *t36616; struct w49 t36617; struct w49 t36618; struct p15922 *t36619; struct w49 t36620; struct w49 t36621; struct w49 t36622; struct p15922 *t36623; struct structure_type24753 *t36624; struct p15922 *t36625; struct structure_type27501 *t36626; struct structure_type24753 *t36627; struct w49 t36628; struct w49 t36629; struct structure_type24753 *t36630; struct w49 t36631; struct structure_type24753 *t36632; unsigned t36633; int t36634; struct structure_type24753 *t36635; struct w49 t36636; struct w49 t36637; struct structure_type24753 *t36638; struct w61020 t36639; struct w49 t36640; struct p15922 *t36641; struct w49 t36642; struct structure_type27501 *t36643; struct w49 t36644; struct structure_type27501 *t36645; struct w49 t36646; struct structure_type24753 *t36647; struct w49 t36648; struct structure_type24753 *t36649; struct structure_type24753 *t36650; struct w49 t36651; struct w61020 t36652; int t36653; struct w49 t36654; struct w49 t36655; struct w49 t36656; struct w49 t36657; struct w49 t36658; struct p15922 *t36659; struct w49 t36660; struct structure_type27501 *t36661; struct w49 t36662; struct structure_type27501 *t36663; struct w49 t36664; struct structure_type24753 *t36665; struct w49 t36666; struct structure_type24753 *t36667; struct structure_type24753 *t36668; struct w49 t36669; struct w61020 t36670; int t36671; struct w49 t36672; struct w49 t36673; struct w49 t36674; struct w49 t36675; unsigned t36676; struct structure_type27501 *t36677; struct w12218 t36678; struct structure_type27501 *t36679; struct w12218 t36680; struct structure_type27501 *t36681; struct w12218 t36682; struct structure_type27501 *t36683; struct w12218 t36684; struct p15922 *t36685; struct w61020 t36686; struct w49 t36687; struct w49 t36688; struct w49 t36689; struct structure_type24753 *t36690; struct w49 t36691; struct w49 t36692; struct w49 t36693; struct w49 t36694; struct w49 t36695; struct structure_type27501 *t36696; struct structure_type27501 *t36697; struct w49 t36698; struct structure_type27501 *t36699; struct structure_type27501 *t36700; struct w49 t36701; struct structure_type27501 *t36702; struct structure_type27501 *t36703; struct w49 t36704; struct w61020 t36705; struct w49 t36706; struct structure_type24753 *t36707; struct w49 t36708; struct w49 t36709; struct structure_type27501 *t36710; struct structure_type27501 *t36711; struct structure_type27501 *t36712; struct structure_type27501 *t36713; struct w49 t36714; struct w49 t36715; struct structure_type27501 *t36716; struct w49 t36717; struct structure_type27501 *t36718; struct w49 t36719; struct w60864 t36720; struct w49 t36721; struct w49 t36722; struct w49 t36723; struct w49 t36724; struct structure_type27501 *t36725; struct structure_type27501 *t36726; struct structure_type27501 *t36727; struct structure_type27501 *t36728; struct w49 t36729; struct w49 t36730; struct w49 t36731; struct w49 t36732; struct structure_type27501 *t36733; struct w49 t36734; struct structure_type27501 *t36735; struct w49 t36736; struct w60864 t36737; struct w49 t36738; struct w49 t36739; struct w49 t36740; struct w49 t36741; struct structure_type27501 *t36742; struct structure_type27501 *t36743; struct structure_type27501 *t36744; struct structure_type27501 *t36745; struct w49 t36746; struct w49 t36747; struct w49 t36748; struct structure_type27501 *t36749; struct w12218 t36750; struct p15922 *t36751; struct structure_type27501 *t36752; struct w12218 t36753; struct p15922 *t36754; struct w12563 t36755; struct w12563 t36756; struct w61020 t36757; struct structure_type27501 *t36758; struct structure_type27501 *t36759; struct structure_type27501 *t36760; struct structure_type27501 *t36761; struct w49 t36762; struct w49 t36763; struct structure_type27501 *t36764; char *t36765; struct w49 t36766; struct w49 t36767; struct p15922 *t36768; struct w49 t36769; struct w211113 t36770; struct w49 t36771; struct w49 t36772; struct p15922 *t36773; struct p15922 *t36774; struct structure_type27501 *t36775; char *t36776; struct p7704 *t36777; struct w49 t36778; unsigned t36779; struct w49 t36780; struct w49 t36781; struct w49 t36782; struct p15922 *t36783; struct p15922 *t36784; struct structure_type27501 *t36785; struct structure_type24753 *t36786; struct w49 t36787; unsigned t36788; unsigned t36789; struct w49 t36790; struct w49 t36791; struct w49 t36792; struct w49 t36793; struct w49 t36794; struct w49 t36795; struct w49 t36796; struct w49 t36797; struct p15922 *t36798; struct p15922 *t36799; struct structure_type24753 *t36800; struct w49 t36801; struct w49 t36802; struct w49 t36803; struct structure_type24753 *t36804; struct w49 t36805; struct w49 t36806; struct structure_type24753 *t36807; struct w49 t36808; struct structure_type24753 *t36809; struct structure_type24753 *t36810; struct w49 t36811; struct w49 t36812; struct structure_type24753 *t36813; struct w49 t36814; unsigned t36815; struct w49 t36816; struct w49 t36817; struct w49 t36818; struct w49 t36819; char *t36820; struct w49 t36821; struct w49 t36822; struct w49 t36823; struct w49 t36824; struct w49 t36825; struct structure_type24753 *t36826; struct structure_type24753 *t36827; struct w49 t36828; struct w49 t36829; struct w49 t36830; struct w49 t36831; struct p15922 *t36832; struct p15922 *t36833; struct structure_type27501 *t36834; struct structure_type24753 *t36835; struct w49 t36836; unsigned t36837; struct w49 t36838; struct w49 t36839; struct w49 t36840; struct structure_type24753 *t36841; struct w228345 t36842; struct w49 t36843; struct structure_type24753 *t36844; struct w49 t36845; struct w49 t36846; struct w49 t36847; struct p15922 *t36848; struct w49 t36849; char *t36850; struct w6315 t36851; char *t36852; struct w6315 t36853; struct p15922 *t36854; struct structure_type27501 *t36855; char *t36856; struct w49 t36857; unsigned t36858; struct w49 t36859; struct w49 t36860; struct w49 t36861; struct w49 t36862; struct w49 t36863; struct p15922 *t36864; struct structure_type27501 *t36865; char *t36866; struct w49 t36867; unsigned t36868; struct w49 t36869; struct w49 t36870; struct w49 t36871; struct p15922 *t36872; struct structure_type27501 *t36873; struct structure_type24753 *t36874; struct w49 t36875; unsigned t36876; struct w49 t36877; struct w49 t36878; struct w49 t36879; struct p15922 *t36880; struct structure_type27501 *t36881; struct p15922 *t36882; struct structure_type27501 *t36883; struct p15922 *t36884; struct structure_type27501 *t36885; char *t36886; struct w49 t36887; unsigned t36888; struct w49 t36889; struct w49 t36890; struct p15922 *t36891; struct structure_type24753 *t36892; struct p15922 *t36893; struct structure_type24753 *t36894; struct p15922 *t36895; struct structure_type24753 *t36896; struct p15922 *t36897; struct w49 t36898; struct p15922 *t36899; struct w49 t36900; struct w61020 t36901; struct w49 t36902; struct w61020 t36903; struct structure_type24753 *t36904; struct w49 t36905; struct w61020 t36906; struct structure_type24753 *t36907; struct w49 t36908; struct w49 t36909; struct w49 t36910; struct w49 t36911; struct w49 t36912; struct w49 t36913; struct w49 t36914; struct w49 t36915; struct structure_type24753 *t36916; struct structure_type24753 *t36917; struct structure_type24753 *t36918; struct w49 t36919; struct structure_type24753 *t36920; struct structure_type27501 *t36921; struct structure_type27501 *t36922; struct w12218 t36923; struct structure_type24753 *t36924; struct structure_type24753 *t36925; struct w12563 t36926; struct w12563 t36927; struct structure_type24753 *t36928; struct structure_type24753 *t36929; struct w49 t36930; struct structure_type27501 *t36931; struct structure_type27501 *t36932; struct w12218 t36933; struct structure_type24753 *t36934; struct structure_type24753 *t36935; struct w49 t36936; struct structure_type24753 *t36937; struct w49 t36938; struct structure_type24753 *t36939; struct structure_type24753 *t36940; struct structure_type24753 *t36941; struct w12563 t36942; struct w12563 t36943; struct w12563 t36944; struct w49 t36945; struct w49 t36946; struct w49 t36947; struct structure_type27501 *t36948; struct p15922 *e15922; struct p6989 *e6989; struct p15924 *e15924; struct p15969 *e15969; struct p15977 *e15977; struct p16036 *e16036; struct p16056 *e16056; struct p16060 *e16060; struct p16090 *e16090; struct p16091 *e16091; struct p16092 *e16092; struct p16093 *e16093; struct p6989 *p6990; struct p15922 *p15923; struct p15922 *p15924; struct p15922 *p15925; struct p15922 *p15926; struct p15922 *p15927; struct p15922 *p15928; struct p15922 *p15929; struct p15922 *p15930; struct p15922 *p15931; struct p15924 *p15932; struct p15922 *p15933; struct p15922 *p15934; struct p15922 *p15935; struct p15922 *p15936; struct p15922 *p15937; struct p15922 *p15938; struct p15922 *p15940; struct p15922 *p15941; struct p15922 *p15943; struct p15922 *p15945; struct p15922 *p15946; struct p15922 *p15947; struct p15922 *p15950; struct p15922 *p15951; struct p15922 *p15952; struct p15922 *p15953; struct p15922 *p15954; struct p15922 *p15955; struct p15922 *p15957; struct p15922 *p15958; struct p15922 *p15959; struct p15922 *p15960; struct p15922 *p15961; struct p15922 *p15963; struct p15922 *p15965; struct p15922 *p15967; struct p15922 *p15968; struct p15922 *p15969; struct p15969 *p15970; struct p15924 *p15976; struct p15924 *p15977; struct p15922 *p15979; struct p15922 *p15980; struct p15977 *p15981; struct p15977 *p15982; struct p15977 *p15983; struct p15922 *p15984; struct p15922 *p15985; struct p15977 *p15986; struct p15977 *p15987; struct p15922 *p15989; struct p15922 *p15992; struct p15922 *p15995; struct p15977 *p15998; struct p15924 *p16000; struct p15922 *p16001; struct p15922 *p16002; struct p15922 *p16003; struct p15922 *p16004; struct p15922 *p16005; struct p15922 *p16006; struct p15922 *p16007; struct p15922 *p16008; struct p15922 *p16009; struct p15922 *p16010; struct p15922 *p16011; struct p15922 *p16012; struct p15922 *p16013; struct p15922 *p16014; struct p15922 *p16015; struct p15922 *p16016; struct p15922 *p16017; struct p15922 *p16018; struct p15922 *p16019; struct p15922 *p16020; struct p15922 *p16021; struct p15922 *p16022; struct p15922 *p16023; struct p15922 *p16024; struct p15922 *p16025; struct p15922 *p16026; struct p15922 *p16027; struct p15922 *p16028; struct p15924 *p16029; struct p15924 *p16030; struct p15924 *p16031; struct p15922 *p16032; struct p15922 *p16033; struct p15924 *p16034; struct p15924 *p16035; struct p15924 *p16036; struct p15922 *p16038; struct p15922 *p16041; struct p15922 *p16045; struct p15924 *p16048; struct p15924 *p16050; struct p15922 *p16051; struct p15924 *p16053; struct p15924 *p16054; struct p15924 *p16055; struct p15924 *p16056; struct p16056 *p16057; struct p16056 *p16058; struct p16056 *p16059; struct p16056 *p16060; struct p16060 *p16061; struct p16060 *p16062; struct p16060 *p16063; struct p16060 *p16064; struct p16060 *p16065; struct p15922 *p16066; struct p15922 *p16067; struct p16060 *p16068; struct p15922 *p16070; struct p16056 *p16073; struct p16060 *p16075; struct p16060 *p16076; struct p16060 *p16077; struct p16060 *p16078; struct p15922 *p16079; struct p15922 *p16080; struct p16060 *p16081; struct p15922 *p16083; struct p16056 *p16086; struct p15922 *p16088; struct p15922 *p16089; struct p15922 *p16090; struct p16090 *p16091; struct p16091 *p16092; struct p16092 *p16093; struct p16093 *p16094; e15922 = (struct p15922 *)alloca(sizeof(struct p15922)); if (e15922==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e15922->a27040 = a27040; e15922->a27041 = a27041; /* x151130 */ /* x151125 stalin.sc:19942:697898 */ /* x151124 stalin.sc:19942:697899 */ f4651(); /* x151129 stalin.sc:19943:697939 */ /* x151127 stalin.sc:19943:697963 */ t36947 = e15922->a27041; /* x151128 stalin.sc:19943:697965 */ t36948 = e15922->a27040; /* x151126 stalin.sc:19943:697940 */ f5680(t36947, t36948); /* x151123 */ t35302 = e15922; p15923 = t35302; /* x151122 stalin.sc:19944:697969 */ /* x148525 stalin.sc:19945:697993 */ t35304 = p15923->a27041; /* x151121 stalin.sc:19946:697997 */ /* x151120 stalin.sc:19946:698006 */ /* x151119 stalin.sc:19946:698030 */ t36945 = p15923->a27041; /* x151118 stalin.sc:19946:698007 */ a40094 = t36945; /* x293045 */ /* x293044 */ t36946 = a40094; /* x293043 */ if (!((t36946.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35011]"); structure_ref_error();} t35431 = t36946.value.structure_type27698->s9; /* x151117 */ t35430 = p15923; p15924 = t35430; a27044 = t35431; e15924 = (struct p15924 *)alloca(sizeof(struct p15924)); if (e15924==NULL) {backtrace_internal("[inside COMPILE 15923]"); out_of_memory_error();} e15924->p15922 = p15924; e15924->a27044 = a27044; /* x151116 stalin.sc:19947:698038 */ /* x148575 stalin.sc:19947:698042 */ /* x148530 stalin.sc:19947:698047 */ /* x148529 stalin.sc:19947:698052 */ /* x148528 stalin.sc:19947:698065 */ t35432 = p15924->a27040; /* x148527 stalin.sc:19947:698053 */ /* MOVE: branching squeezed to general */ if (t35432>=((struct structure_type27501 *)VALUE_OFFSET)) {t35433.tag = STRUCTURE_TYPE27501; t35433.value.structure_type27501 = t35432;} else t35433.tag = (unsigned)t35432; if (!(f7032(t35433)==FALSE_TYPE)) goto l5091; /* x148573 */ /* x148536 stalin.sc:19948:698074 */ /* x148532 stalin.sc:19948:698084 */ /* x148535 stalin.sc:19948:698098 */ /* x148534 stalin.sc:19948:698119 */ t35436 = p15924->a27041; /* x148533 stalin.sc:19948:698099 */ a39967 = t35436; /* x292537 */ /* x292536 */ t35437 = a39967; /* x292535 */ if (!((t35437.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34884]"); structure_ref_error();} t35434 = t35437.value.structure_type27698->s10; /* x148531 stalin.sc:19948:698075 */ t35435.tag = NATIVE_PROCEDURE_TYPE7432; if (f8146(t35435, t35434)==FALSE_TYPE) goto l5091; /* x148571 */ /* x148542 stalin.sc:19949:698128 */ /* x148538 stalin.sc:19949:698141 */ /* x148541 stalin.sc:19949:698152 */ /* x148540 stalin.sc:19949:698173 */ t35440 = p15924->a27041; /* x148539 stalin.sc:19949:698153 */ a39966 = t35440; /* x292533 */ /* x292532 */ t35441 = a39966; /* x292531 */ if (!((t35441.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34883]"); structure_ref_error();} t35438 = t35441.value.structure_type27698->s10; /* x148537 stalin.sc:19949:698129 */ t35439.tag = NATIVE_PROCEDURE_TYPE7434; if ((f8144(t35439, t35438).tag)==FALSE_TYPE) goto l5091; /* x148569 */ /* x148548 stalin.sc:19950:698182 */ /* x148544 stalin.sc:19950:698195 */ /* x148547 stalin.sc:19950:698207 */ /* x148546 stalin.sc:19950:698228 */ t35444 = p15924->a27041; /* x148545 stalin.sc:19950:698208 */ a39919 = t35444; /* x292345 */ /* x292344 */ t35445 = a39919; /* x292343 */ if (!((t35445.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34836]"); structure_ref_error();} t35442 = t35445.value.structure_type27698->s10; /* x148543 stalin.sc:19950:698183 */ t35443.tag = NATIVE_PROCEDURE_TYPE7433; if ((f8144(t35443, t35442).tag)==FALSE_TYPE) goto l5091; /* x148567 */ /* x148566 stalin.sc:19951:698241 */ /* x148565 stalin.sc:19951:698258 */ t35446 = p15924->a27041; /* x148564 stalin.sc:19951:698242 */ if (!(f15912(t35446)==FALSE_TYPE)) goto l5090; p15925 = p15924; /* x148561 */ /* x148560 stalin.sc:19951:698261 */ /* x148559 stalin.sc:19951:698277 */ t35447 = p15925->a27041; /* x148558 stalin.sc:19951:698262 */ if (!(f15913(t35447)==FALSE_TYPE)) goto l5090; p15926 = p15925; /* x148555 */ /* x148554 stalin.sc:19951:698297 */ t35448 = p15926->a27041; /* x148553 stalin.sc:19951:698281 */ if (f15919(t35448)==FALSE_TYPE) goto l5091; l5090: /* x148638 stalin.sc:19952:698309 */ /* x148637 stalin.sc:19952:698320 */ /* x148636 stalin.sc:19952:698321 */ t36892 = f15753(); /* x148635 */ t36891 = p15924; p15927 = t36891; a27047 = t36892; /* x148634 */ /* x148633 stalin.sc:19953:698349 */ /* x148632 stalin.sc:19953:698350 */ t36894 = f15753(); /* x148631 */ t36893 = p15927; p15928 = t36893; a27048 = t36894; /* x148630 */ /* x148629 stalin.sc:19954:698378 */ /* x148628 stalin.sc:19954:698379 */ t36896 = f15753(); /* x148627 */ t36895 = p15928; p15929 = t36895; a27049 = t36896; /* x148626 */ /* x148625 stalin.sc:19955:698406 */ /* x148621 stalin.sc:19955:698426 */ t36938 = p15929->a27041; /* x148622 stalin.sc:19955:698428 */ t36939 = a27047; /* x148623 stalin.sc:19955:698431 */ t36940 = a27048; /* x148624 stalin.sc:19955:698434 */ t36941 = a27047; /* x148620 stalin.sc:19955:698407 */ t36942.tag = STRUCTURE_TYPE24753; t36942.value.structure_type24753 = t36939; t36943.tag = STRUCTURE_TYPE24753; t36943.value.structure_type24753 = t36940; t36944.tag = STRUCTURE_TYPE24753; t36944.value.structure_type24753 = t36941; t36898 = f15911(t36938, t36942, t36943, t36944); /* x148619 */ t36897 = p15929; p15930 = t36897; a27050 = t36898; /* x148618 */ /* x148617 */ t36899 = p15930; p15931 = t36899; /* x148616 stalin.sc:19956:698441 */ /* x148615 stalin.sc:19962:698613 */ /* x148609 stalin.sc:19962:698617 */ /* x148608 stalin.sc:19962:698626 */ t36932 = p15931->a27040; /* x148607 stalin.sc:19962:698618 */ /* MOVE: branching squeezed to general */ if (t36932>=((struct structure_type27501 *)VALUE_OFFSET)) {t36933.tag = STRUCTURE_TYPE27501; t36933.value.structure_type27501 = t36932;} else t36933.tag = (unsigned)t36932; if (f7030(t36933)==FALSE_TYPE) goto l5418; /* x148611 stalin.sc:19962:698629 */ /* x148610 stalin.sc:19962:698630 */ /* x276729 stalin.sc:14693:514793 */ t36906.tag = STRING_TYPE; t36906.value.string_type = ""; goto l5419; l5418: /* x148614 stalin.sc:19962:698638 */ /* x148613 stalin.sc:19962:698643 */ t36934 = a27049; /* x148612 stalin.sc:19962:698639 */ a41279 = t36934; /* x299228 stalin.sc:14702:515041 */ /* x299227 stalin.sc:14702:515054 */ t36935 = a41279; /* x299226 stalin.sc:14702:515042 */ t36936.tag = STRUCTURE_TYPE24753; t36936.value.structure_type24753 = t36935; t36937 = f13515(t36936); t36906.tag = STRUCTURE_TYPE24753; t36906.value.structure_type24753 = t36937; l5419: /* x148606 stalin.sc:19961:698592 */ /* x148605 stalin.sc:19961:698606 */ t36931 = p15931->a27040; /* x148604 stalin.sc:19961:698593 */ t36905 = f14708(t36931); /* x148603 stalin.sc:19960:698579 */ /* x148602 stalin.sc:19960:698584 */ t36928 = a27048; /* x148601 stalin.sc:19960:698580 */ a41278 = t36928; /* x299224 stalin.sc:14702:515041 */ /* x299223 stalin.sc:14702:515054 */ t36929 = a41278; /* x299222 stalin.sc:14702:515042 */ t36930.tag = STRUCTURE_TYPE24753; t36930.value.structure_type24753 = t36929; t36904 = f13515(t36930); /* x148600 stalin.sc:19959:698528 */ /* x148593 stalin.sc:19959:698532 */ /* x148592 stalin.sc:19959:698541 */ t36922 = p15931->a27040; /* x148591 stalin.sc:19959:698533 */ /* MOVE: branching squeezed to general */ if (t36922>=((struct structure_type27501 *)VALUE_OFFSET)) {t36923.tag = STRUCTURE_TYPE27501; t36923.value.structure_type27501 = t36922;} else t36923.tag = (unsigned)t36922; if (f7030(t36923)==FALSE_TYPE) goto l5415; /* x148595 stalin.sc:19959:698544 */ /* x148594 stalin.sc:19959:698545 */ /* x276727 stalin.sc:14693:514793 */ t36903.tag = STRING_TYPE; t36903.value.string_type = ""; goto l5416; l5415: /* x148599 stalin.sc:19959:698553 */ /* x148597 stalin.sc:19959:698567 */ t36924 = a27049; /* x148598 stalin.sc:19959:698570 */ t36925 = a27048; /* x148596 stalin.sc:19959:698554 */ t36926.tag = STRUCTURE_TYPE24753; t36926.value.structure_type24753 = t36924; t36927.tag = STRUCTURE_TYPE24753; t36927.value.structure_type24753 = t36925; t36903 = f15756(t36926, t36927); l5416: /* x148590 stalin.sc:19958:698508 */ /* x148589 stalin.sc:19958:698521 */ t36921 = p15931->a27040; /* x148588 stalin.sc:19958:698509 */ t36902 = f14707(t36921); /* x148587 stalin.sc:19957:698464 */ /* x148581 stalin.sc:19957:698468 */ /* x148579 stalin.sc:19957:698479 */ t36915 = a27050; /* x148580 stalin.sc:19957:698481 */ t36916 = a27047; /* x148578 stalin.sc:19957:698469 */ if (f15763(t36915, t36916)==FALSE_TYPE) goto l5412; /* x148584 stalin.sc:19957:698485 */ /* x148583 stalin.sc:19957:698490 */ t36917 = a27047; /* x148582 stalin.sc:19957:698486 */ a41277 = t36917; /* x299220 stalin.sc:14702:515041 */ /* x299219 stalin.sc:14702:515054 */ t36918 = a41277; /* x299218 stalin.sc:14702:515042 */ t36919.tag = STRUCTURE_TYPE24753; t36919.value.structure_type24753 = t36918; t36920 = f13515(t36919); t36901.tag = STRUCTURE_TYPE24753; t36901.value.structure_type24753 = t36920; goto l5413; l5412: /* x148586 stalin.sc:19957:698494 */ /* x148585 stalin.sc:19957:698495 */ /* x276725 stalin.sc:14693:514793 */ t36901.tag = STRING_TYPE; t36901.value.string_type = ""; l5413: /* x148577 stalin.sc:19956:698458 */ t36900 = a27050; /* x148576 stalin.sc:19956:698442 */ t36914.tag = STRUCTURE_TYPE24753; t36914.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36914.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19956, 698441); out_of_memory_error();} t36914.value.structure_type24753->s0 = *((struct w49 *)(&t36906)); t36914.value.structure_type24753->s1.tag = NULL_TYPE; t36913.tag = STRUCTURE_TYPE24753; t36913.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36913.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19956, 698441); out_of_memory_error();} t36913.value.structure_type24753->s0 = t36905; t36913.value.structure_type24753->s1 = t36914; t36912.tag = STRUCTURE_TYPE24753; t36912.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36912.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19956, 698441); out_of_memory_error();} t36912.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t36912.value.structure_type24753->s0.value.structure_type24753 = t36904; t36912.value.structure_type24753->s1 = t36913; t36911.tag = STRUCTURE_TYPE24753; t36911.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36911.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19956, 698441); out_of_memory_error();} t36911.value.structure_type24753->s0 = *((struct w49 *)(&t36903)); t36911.value.structure_type24753->s1 = t36912; t36910.tag = STRUCTURE_TYPE24753; t36910.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36910.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19956, 698441); out_of_memory_error();} t36910.value.structure_type24753->s0 = t36902; t36910.value.structure_type24753->s1 = t36911; t36909.tag = STRUCTURE_TYPE24753; t36909.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36909.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19956, 698441); out_of_memory_error();} t36909.value.structure_type24753->s0 = *((struct w49 *)(&t36901)); t36909.value.structure_type24753->s1 = t36910; a41876 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41876==NULL) {backtrace("stalin.sc", 19956, 698441); out_of_memory_error();} a41876->s0 = t36900; a41876->s1 = t36909; /* x301616 stalin.sc:14400:506485 */ /* x301615 stalin.sc:14400:506503 */ t36907 = a41876; /* x301614 stalin.sc:14400:506486 */ t36908.tag = STRUCTURE_TYPE24753; t36908.value.structure_type24753 = t36907; t35305 = f13492(t36908); goto l5092; l5091: /* x151115 stalin.sc:19963:698657 */ /* x151114 stalin.sc:19963:698663 */ /* x151113 stalin.sc:19963:698680 */ t36889 = p15924->a27041; /* x151112 stalin.sc:19963:698664 */ a40313 = t36889; /* x293921 */ /* x293920 */ t36890 = a40313; /* x293919 */ if (!((t36890.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35230]"); structure_ref_error();} t35450 = t36890.value.structure_type27698->s0; /* x151111 */ t35449 = e15924; p15932 = t35449; a27051 = t35450; /* x151110 */ /* x148642 */ /* x148640 */ t35451 = a27051; /* x148641 */ t35452 = q68; /* x148639 */ t35453.tag = EXTERNAL_SYMBOL_TYPE; t35453.value.external_symbol_type = t35451; t35454.tag = EXTERNAL_SYMBOL_TYPE; t35454.value.external_symbol_type = t35452; if (f26160(t35453, t35454)==FALSE_TYPE) goto l5100; /* x148649 */ /* x148648 */ t36884 = p15932->p15922; p15933 = t36884; /* x148647 stalin.sc:19964:698701 */ /* x148644 stalin.sc:19964:698708 */ t36885 = p15933->a27040; /* x148645 stalin.sc:19964:698710 */ t36886 = q215; /* x148646 stalin.sc:19964:698718 */ /* x148643 stalin.sc:19964:698702 */ t36887.tag = EXTERNAL_SYMBOL_TYPE; t36887.value.external_symbol_type = t36886; t36888 = (unsigned)NATIVE_PROCEDURE_TYPE7435; t35305 = f15508(t36885, t36887, t36888); goto l5101; l5100: /* x151109 */ /* x148653 */ /* x148651 */ t35455 = a27051; /* x148652 */ t35456 = q69; /* x148650 */ t35457.tag = EXTERNAL_SYMBOL_TYPE; t35457.value.external_symbol_type = t35455; t35458.tag = EXTERNAL_SYMBOL_TYPE; t35458.value.external_symbol_type = t35456; if (f26160(t35457, t35458)==FALSE_TYPE) goto l5103; /* x148658 */ /* x148657 */ t36882 = p15932->p15922; p15934 = t36882; /* x148656 stalin.sc:19965:698749 */ /* x148655 stalin.sc:19965:698762 */ t36883 = p15934->a27040; /* x148654 stalin.sc:19965:698750 */ t35305 = f14707(t36883); goto l5104; l5103: /* x151108 */ /* x148662 */ /* x148660 */ t35459 = a27051; /* x148661 */ t35460 = q70; /* x148659 */ t35461.tag = EXTERNAL_SYMBOL_TYPE; t35461.value.external_symbol_type = t35459; t35462.tag = EXTERNAL_SYMBOL_TYPE; t35462.value.external_symbol_type = t35460; if (f26160(t35461, t35462)==FALSE_TYPE) goto l5106; /* x148667 */ /* x148666 */ t36880 = p15932->p15922; p15935 = t36880; /* x148665 stalin.sc:19966:698785 */ /* x148664 stalin.sc:19966:698799 */ t36881 = p15935->a27040; /* x148663 stalin.sc:19966:698786 */ t35305 = f14708(t36881); goto l5107; l5106: /* x151107 */ /* x148671 */ /* x148669 */ t35463 = a27051; /* x148670 */ t35464 = q71; /* x148668 */ t35465.tag = EXTERNAL_SYMBOL_TYPE; t35465.value.external_symbol_type = t35463; t35466.tag = EXTERNAL_SYMBOL_TYPE; t35466.value.external_symbol_type = t35464; if (f26160(t35465, t35466)==FALSE_TYPE) goto l5109; /* x148682 */ /* x148681 */ t36872 = p15932->p15922; p15936 = t36872; /* x148680 stalin.sc:19968:698823 */ /* x148673 stalin.sc:19968:698830 */ t36873 = p15936->a27040; /* x148678 stalin.sc:19968:698832 */ /* x148677 stalin.sc:19968:698845 */ /* x148676 stalin.sc:19968:698866 */ t36878 = p15936->a27041; /* x148675 stalin.sc:19968:698846 */ a39574 = t36878; /* x290965 */ /* x290964 */ t36879 = a39574; /* x290963 */ if (!((t36879.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34491]"); structure_ref_error();} t36877 = t36879.value.structure_type27698->s12; /* x148674 stalin.sc:19968:698833 */ t36874 = f13529(t36877); /* x148679 stalin.sc:19968:698870 */ /* x148672 stalin.sc:19968:698824 */ t36875.tag = STRUCTURE_TYPE24753; t36875.value.structure_type24753 = t36874; t36876 = (unsigned)NATIVE_PROCEDURE_TYPE7431; t35305 = f15508(t36873, t36875, t36876); goto l5110; l5109: /* x151106 */ /* x148686 */ /* x148684 */ t35467 = a27051; /* x148685 */ t35468 = q72; /* x148683 */ t35469.tag = EXTERNAL_SYMBOL_TYPE; t35469.value.external_symbol_type = t35467; t35470.tag = EXTERNAL_SYMBOL_TYPE; t35470.value.external_symbol_type = t35468; if (f26160(t35469, t35470)==FALSE_TYPE) goto l5112; /* x148697 */ /* x148696 */ t36864 = p15932->p15922; p15937 = t36864; /* x148695 stalin.sc:19970:698905 */ /* x148688 stalin.sc:19970:698912 */ t36865 = p15937->a27040; /* x148693 stalin.sc:19970:698914 */ /* x148692 stalin.sc:19970:698924 */ /* x148691 stalin.sc:19970:698945 */ t36870 = p15937->a27041; /* x148690 stalin.sc:19970:698925 */ a39575 = t36870; /* x290969 */ /* x290968 */ t36871 = a39575; /* x290967 */ if (!((t36871.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34492]"); structure_ref_error();} t36869 = t36871.value.structure_type27698->s12; /* x148689 stalin.sc:19970:698915 */ t36866 = f13530(t36869); /* x148694 stalin.sc:19970:698949 */ /* x148687 stalin.sc:19970:698906 */ t36867.tag = STRING_TYPE; t36867.value.string_type = t36866; t36868 = (unsigned)NATIVE_PROCEDURE_TYPE7430; t35305 = f15508(t36865, t36867, t36868); goto l5113; l5112: /* x151105 */ /* x148701 */ /* x148699 */ t35471 = a27051; /* x148700 */ t35472 = q73; /* x148698 */ t35473.tag = EXTERNAL_SYMBOL_TYPE; t35473.value.external_symbol_type = t35471; t35474.tag = EXTERNAL_SYMBOL_TYPE; t35474.value.external_symbol_type = t35472; if (f26160(t35473, t35474)==FALSE_TYPE) goto l5115; /* x148712 */ /* x148711 */ t36854 = p15932->p15922; p15938 = t36854; /* x148710 stalin.sc:19972:698986 */ /* x148703 stalin.sc:19972:698993 */ t36855 = p15938->a27040; /* x148708 stalin.sc:19972:698995 */ /* x148707 stalin.sc:19972:699005 */ /* x148706 stalin.sc:19972:699026 */ t36862 = p15938->a27041; /* x148705 stalin.sc:19972:699006 */ a39576 = t36862; /* x290973 */ /* x290972 */ t36863 = a39576; /* x290971 */ if (!((t36863.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34493]"); structure_ref_error();} t36859 = t36863.value.structure_type27698->s12; /* x148704 stalin.sc:19972:698996 */ a25279 = t36859; /* x122557 stalin.sc:14458:508024 */ /* x122556 stalin.sc:14458:508040 */ t36860 = a25279; /* x122555 stalin.sc:14458:508025 */ t36861 = t36860; t36856 = f28396(t36861); /* x148709 stalin.sc:19972:699030 */ /* x148702 stalin.sc:19972:698987 */ t36857.tag = STRING_TYPE; t36857.value.string_type = t36856; t36858 = (unsigned)NATIVE_PROCEDURE_TYPE7429; t35305 = f15508(t36855, t36857, t36858); goto l5116; l5115: /* x151104 */ /* x148716 */ /* x148714 */ t35475 = a27051; /* x148715 */ t35476 = q74; /* x148713 */ t35477.tag = EXTERNAL_SYMBOL_TYPE; t35477.value.external_symbol_type = t35475; t35478.tag = EXTERNAL_SYMBOL_TYPE; t35478.value.external_symbol_type = t35476; if (f26160(t35477, t35478)==FALSE_TYPE) goto l5118; /* x148722 */ /* x148721 */ /* x148720 stalin.sc:19974:699072 */ /* x148718 stalin.sc:19974:699087 */ /* x148719 stalin.sc:19974:699089 */ t36852 = "Cannot (yet) handle rectangular constants"; /* x148717 stalin.sc:19974:699073 */ t36853.tag = NATIVE_PROCEDURE_TYPE8011; f9707(t36853, t36852); goto l5119; l5118: /* x151103 */ /* x148726 */ /* x148724 */ t35479 = a27051; /* x148725 */ t35480 = q75; /* x148723 */ t35481.tag = EXTERNAL_SYMBOL_TYPE; t35481.value.external_symbol_type = t35479; t35482.tag = EXTERNAL_SYMBOL_TYPE; t35482.value.external_symbol_type = t35480; if (f26160(t35481, t35482)==FALSE_TYPE) goto l5121; /* x148761 */ /* x148760 */ t36832 = p15932->p15922; p15940 = t36832; /* x148759 */ /* x148758 stalin.sc:19976:699157 */ /* x148749 stalin.sc:19976:699163 */ /* x148748 stalin.sc:19977:699215 */ /* x148747 stalin.sc:19977:699229 */ /* x148746 stalin.sc:19977:699250 */ t36846 = p15940->a27041; /* x148745 stalin.sc:19977:699230 */ a39578 = t36846; /* x290981 */ /* x290980 */ t36847 = a39578; /* x290979 */ if (!((t36847.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34495]"); structure_ref_error();} t36845 = t36847.value.structure_type27698->s12; /* x148744 stalin.sc:19977:699216 */ a34032 = t36845; t36841 = f27579(); /* x148743 stalin.sc:19976:699169 */ /* x148737 stalin.sc:19976:699164 */ t36842.tag = NATIVE_PROCEDURE_TYPE18590; /* MOVE: branching squeezed to general */ if (t36841>=((struct structure_type24753 *)VALUE_OFFSET)) {t36843.tag = STRUCTURE_TYPE24753; t36843.value.structure_type24753 = t36841;} else t36843.tag = (unsigned)t36841; t36844 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t36842, t36843, t36844).tag)==FALSE_TYPE) goto l5409; /* x148755 */ /* x148754 */ t36848 = p15940; p15943 = t36848; /* x148753 stalin.sc:19978:699258 */ /* x148751 stalin.sc:19979:699277 */ t36849 = p15943->a27041; /* x148752 stalin.sc:19979:699279 */ t36850 = "Strings that contain ASCII NULs are not (yet) implemented"; /* x148750 stalin.sc:19978:699259 */ t36851 = *((struct w6315 *)(&t36849)); f9707(t36851, t36850); goto l5410; l5409: /* x148757 stalin.sc:19976:699157 */ /* x148756 stalin.sc:19976:699157 */ l5410: /* x148736 */ t36833 = p15940; p15941 = t36833; /* x148735 stalin.sc:19980:699343 */ /* x148728 stalin.sc:19980:699350 */ t36834 = p15941->a27040; /* x148733 stalin.sc:19980:699352 */ /* x148732 stalin.sc:19980:699362 */ /* x148731 stalin.sc:19980:699383 */ t36839 = p15941->a27041; /* x148730 stalin.sc:19980:699363 */ a39577 = t36839; /* x290977 */ /* x290976 */ t36840 = a39577; /* x290975 */ if (!((t36840.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34494]"); structure_ref_error();} t36838 = t36840.value.structure_type27698->s12; /* x148729 stalin.sc:19980:699353 */ t36835 = f13532(t36838); /* x148734 stalin.sc:19980:699387 */ /* x148727 stalin.sc:19980:699344 */ t36836.tag = STRUCTURE_TYPE24753; t36836.value.structure_type24753 = t36835; t36837 = (unsigned)NATIVE_PROCEDURE_TYPE7822; t35305 = f15508(t36834, t36836, t36837); goto l5122; l5121: /* x151102 */ /* x148765 */ /* x148763 */ t35483 = a27051; /* x148764 */ t35484 = q76; /* x148762 */ t35485.tag = EXTERNAL_SYMBOL_TYPE; t35485.value.external_symbol_type = t35483; t35486.tag = EXTERNAL_SYMBOL_TYPE; t35486.value.external_symbol_type = t35484; if (f26160(t35485, t35486)==FALSE_TYPE) goto l5124; /* x148857 */ /* x148856 */ t36773 = p15932->p15922; p15945 = t36773; /* x148855 stalin.sc:19982:699424 */ /* x148766 stalin.sc:19983:699434 */ if (a726==FALSE_TYPE) goto l5403; /* x148843 */ /* x148842 */ t36783 = p15945; p15946 = t36783; /* x148841 */ /* x148840 stalin.sc:19984:699471 */ /* x148796 stalin.sc:19984:699479 */ /* x148794 stalin.sc:19984:699485 */ /* x148793 stalin.sc:19984:699506 */ t36796 = p15946->a27041; /* x148792 stalin.sc:19984:699486 */ a39583 = t36796; /* x291001 */ /* x291000 */ t36797 = a39583; /* x290999 */ if (!((t36797.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34500]"); structure_ref_error();} t36794 = t36797.value.structure_type27698->s12; /* x148795 stalin.sc:19984:699509 */ t36795 = a1198; /* x148791 stalin.sc:19984:699480 */ if ((f26351(t36794, t36795).tag)==FALSE_TYPE) goto l5406; /* x148798 */ /* x148797 */ goto l5407; l5406: /* x148839 */ /* x148838 */ t36798 = p15946; p15950 = t36798; /* x148837 */ /* x148836 stalin.sc:19985:699525 */ /* x148835 stalin.sc:19985:699541 */ /* x148834 stalin.sc:19985:699559 */ /* x148833 stalin.sc:19985:699565 */ /* x148832 stalin.sc:19985:699586 */ t36830 = p15950->a27041; /* x148831 stalin.sc:19985:699566 */ a39582 = t36830; /* x290997 */ /* x290996 */ t36831 = a39582; /* x290995 */ if (!((t36831.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34499]"); structure_ref_error();} t36829 = t36831.value.structure_type27698->s12; /* x148830 stalin.sc:19985:699560 */ a35180 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35180==NULL) {backtrace("stalin.sc", 19985, 699559); out_of_memory_error();} a35180->s0 = t36829; a35180->s1.tag = NULL_TYPE; /* x272367 */ t36826 = a35180; /* x148829 stalin.sc:19985:699549 */ t36825 = a1198; /* x148828 stalin.sc:19985:699542 */ t36828.tag = STRUCTURE_TYPE24753; t36828.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36828.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19985, 699541); out_of_memory_error();} t36828.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t36828.value.structure_type24753->s0.value.structure_type24753 = t36826; t36828.value.structure_type24753->s1.tag = NULL_TYPE; t36827 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t36827==NULL) {backtrace("stalin.sc", 19985, 699541); out_of_memory_error();} t36827->s0 = t36825; t36827->s1 = t36828; a1198 = f26254(t36827); /* x148827 */ t36799 = p15950; p15951 = t36799; /* x148826 stalin.sc:19986:699597 */ /* x148825 stalin.sc:19988:699684 */ /* x148824 stalin.sc:19989:699708 */ /* x148823 stalin.sc:19991:699746 */ /* x148822 stalin.sc:19992:699764 */ /* x148814 stalin.sc:19992:699769 */ /* x148813 stalin.sc:19993:699790 */ /* x148812 stalin.sc:19993:699795 */ /* x148810 stalin.sc:19993:699806 */ /* x148809 stalin.sc:19993:699827 */ t36818 = p15951->a27041; /* x148808 stalin.sc:19993:699807 */ a39580 = t36818; /* x290989 */ /* x290988 */ t36819 = a39580; /* x290987 */ if (!((t36819.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34497]"); structure_ref_error();} t36816 = t36819.value.structure_type27698->s12; /* x148811 stalin.sc:19993:699830 */ t36817 = a1198; /* x148807 stalin.sc:19993:699796 */ t36815 = f1234(t36816, t36817); /* x148806 stalin.sc:19993:699791 */ t36813 = f14285(t36815); /* x148805 stalin.sc:19992:699770 */ t36814.tag = STRUCTURE_TYPE24753; t36814.value.structure_type24753 = t36813; t36809 = f13516(t36814); /* x148821 stalin.sc:19994:699850 */ /* x148820 stalin.sc:19994:699860 */ /* x148819 stalin.sc:19994:699876 */ /* x148818 stalin.sc:19994:699897 */ t36823 = p15951->a27041; /* x148817 stalin.sc:19994:699877 */ a39581 = t36823; /* x290993 */ /* x290992 */ t36824 = a39581; /* x290991 */ if (!((t36824.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34498]"); structure_ref_error();} t36822 = t36824.value.structure_type27698->s12; /* x268432 stalin.sc:19994:699861 */ if (!((t36822.tag)==EXTERNAL_SYMBOL_TYPE)) {backtrace("stalin.sc", 19994, 699860); symbol_string_error();} t36820 = t36822.value.external_symbol_type; /* x148815 stalin.sc:19994:699851 */ t36821.tag = STRING_TYPE; t36821.value.string_type = t36820; t36810 = f13532(t36821); /* x148804 stalin.sc:19992:699765 */ t36811.tag = STRUCTURE_TYPE24753; t36811.value.structure_type24753 = t36809; t36812.tag = STRUCTURE_TYPE24753; t36812.value.structure_type24753 = t36810; t36807 = f13542(t36811, t36812); /* x148803 stalin.sc:19991:699747 */ t36808.tag = STRUCTURE_TYPE24753; t36808.value.structure_type24753 = t36807; t36803 = f13508(t36808); /* x148802 stalin.sc:19990:699731 */ t36802 = a1252; /* x148801 stalin.sc:19989:699709 */ t36806.tag = STRUCTURE_TYPE24753; t36806.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36806.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19989, 699708); out_of_memory_error();} t36806.value.structure_type24753->s0 = t36803; t36806.value.structure_type24753->s1.tag = NULL_TYPE; a42090 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42090==NULL) {backtrace("stalin.sc", 19989, 699708); out_of_memory_error();} a42090->s0 = t36802; a42090->s1 = t36806; /* x302472 stalin.sc:14386:505956 */ /* x302471 stalin.sc:14386:505972 */ t36804 = a42090; /* x302470 stalin.sc:14386:505957 */ t36805.tag = STRUCTURE_TYPE24753; t36805.value.structure_type24753 = t36804; t36801 = f13474(t36805); /* x148800 stalin.sc:19988:699685 */ t36800 = f13514(t36801); /* x148799 stalin.sc:19986:699598 */ f13460(t36800); l5407: /* x148790 */ t36784 = p15946; p15947 = t36784; /* x148789 stalin.sc:19995:699912 */ /* x148768 stalin.sc:19995:699919 */ t36785 = p15947->a27040; /* x148776 stalin.sc:19996:699925 */ /* x148775 stalin.sc:19996:699930 */ /* x148773 stalin.sc:19996:699941 */ /* x148772 stalin.sc:19996:699962 */ t36792 = p15947->a27041; /* x148771 stalin.sc:19996:699942 */ a39579 = t36792; /* x290985 */ /* x290984 */ t36793 = a39579; /* x290983 */ if (!((t36793.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34496]"); structure_ref_error();} t36790 = t36793.value.structure_type27698->s12; /* x148774 stalin.sc:19996:699965 */ t36791 = a1198; /* x148770 stalin.sc:19996:699931 */ t36789 = f1234(t36790, t36791); /* x148769 stalin.sc:19996:699926 */ t36786 = f14285(t36789); /* x148788 stalin.sc:19997:699981 */ /* x148767 stalin.sc:19995:699913 */ t36787.tag = STRUCTURE_TYPE24753; t36787.value.structure_type24753 = t36786; t36788 = (unsigned)NATIVE_PROCEDURE_TYPE18588; t35305 = f15508(t36785, t36787, t36788); goto l5404; l5403: /* x148854 */ /* x148853 */ t36774 = p15945; p15952 = t36774; /* x148852 stalin.sc:20002:700134 */ /* x148845 stalin.sc:20003:700146 */ t36775 = p15952->a27040; /* x148846 stalin.sc:20003:700148 */ t36776 = q216; /* x148851 stalin.sc:20003:700156 */ /* x148850 stalin.sc:20003:700185 */ /* x148849 stalin.sc:20003:700206 */ t36781 = p15952->a27041; /* x148848 stalin.sc:20003:700186 */ a39584 = t36781; /* x291005 */ /* x291004 */ t36782 = a39584; /* x291003 */ if (!((t36782.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34501]"); structure_ref_error();} t36780 = t36782.value.structure_type27698->s12; /* x148847 stalin.sc:20003:700157 */ t36777 = f7704(t36780); /* x148844 stalin.sc:20002:700135 */ t36778.tag = EXTERNAL_SYMBOL_TYPE; t36778.value.external_symbol_type = t36776; t36779 = ((unsigned)t36777)+2; t35305 = f15508(t36775, t36778, t36779); l5404: goto l5125; l5124: /* x151101 */ /* x148861 */ /* x148859 */ t35487 = a27051; /* x148860 */ t35488 = q50; /* x148858 */ t35489.tag = EXTERNAL_SYMBOL_TYPE; t35489.value.external_symbol_type = t35487; t35490.tag = EXTERNAL_SYMBOL_TYPE; t35490.value.external_symbol_type = t35488; if (f26160(t35489, t35490)==FALSE_TYPE) goto l5127; /* x149136 */ /* x149135 */ t36615 = p15932->p15922; p15953 = t36615; /* x149134 stalin.sc:20008:700411 */ /* x149133 stalin.sc:20008:700420 */ /* x149129 stalin.sc:20009:700442 */ t36768 = p15953; /* x149132 stalin.sc:20017:700685 */ /* x149131 stalin.sc:20017:700706 */ t36771 = p15953->a27041; /* x149130 stalin.sc:20017:700686 */ a39968 = t36771; /* x292541 */ /* x292540 */ t36772 = a39968; /* x292539 */ if (!((t36772.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34885]"); structure_ref_error();} t36769 = t36772.value.structure_type27698->s10; /* x149097 stalin.sc:20008:700421 */ t36770.tag = NATIVE_PROCEDURE_TYPE18563; t36770.value.native_procedure_type18563 = t36768; t36617 = f8157(t36770, t36769); /* x149096 */ t36616 = p15953; p15954 = t36616; a27057 = t36617; /* x149095 stalin.sc:20018:700715 */ /* x148864 stalin.sc:20018:700719 */ /* x148863 stalin.sc:20018:700732 */ t36618 = a27057; /* x148862 stalin.sc:20018:700720 */ if (f8793(t36618)==FALSE_TYPE) goto l5370; /* x148869 stalin.sc:20019:700742 */ /* x148866 stalin.sc:20019:700754 */ t36764 = p15954->a27040; /* x148867 stalin.sc:20019:700756 */ t36765 = q217; /* x148868 stalin.sc:20019:700764 */ t36766 = a27057; /* x148865 stalin.sc:20019:700743 */ t36767.tag = EXTERNAL_SYMBOL_TYPE; t36767.value.external_symbol_type = t36765; t35305 = f15499(t36764, t36767, t36766); goto l5371; l5370: /* x149094 stalin.sc:20020:700774 */ /* x149090 stalin.sc:20021:700813 */ /* x149089 stalin.sc:20021:700828 */ t36762 = a27057; /* x149088 stalin.sc:20021:700814 */ t36620 = f7927(t36762); /* x149093 stalin.sc:20020:700784 */ /* x149092 stalin.sc:20020:700799 */ t36763 = a27057; /* x149091 stalin.sc:20020:700785 */ t36621 = f7923(t36763); /* x149087 */ t36619 = p15954; p15955 = t36619; a27058 = t36620; a27059 = t36621; /* x149086 stalin.sc:20022:700841 */ /* x148872 stalin.sc:20022:700845 */ /* x148871 stalin.sc:20022:700872 */ t36622 = a27057; /* x148870 stalin.sc:20022:700846 */ if (f7429(t36622)==FALSE_TYPE) goto l5373; /* x149006 stalin.sc:20023:700880 */ /* x148875 stalin.sc:20024:700893 */ /* x148874 stalin.sc:20024:700903 */ t36677 = p15955->a27040; /* x148873 stalin.sc:20024:700894 */ /* MOVE: branching squeezed to general */ if (t36677>=((struct structure_type27501 *)VALUE_OFFSET)) {t36678.tag = STRUCTURE_TYPE27501; t36678.value.structure_type27501 = t36677;} else t36678.tag = (unsigned)t36677; if (f7031(t36678)==FALSE_TYPE) goto l5382; /* x148879 */ /* x148878 */ /* x148877 stalin.sc:20024:700906 */ /* x148876 stalin.sc:20024:700907 */ /* x276463 stalin.sc:14693:514793 */ t35305.tag = STRING_TYPE; t35305.value.string_type = ""; goto l5383; l5382: /* x149005 */ /* x148882 stalin.sc:20025:700923 */ /* x148881 stalin.sc:20025:700936 */ t36679 = p15955->a27040; /* x148880 stalin.sc:20025:700924 */ /* MOVE: branching squeezed to general */ if (t36679>=((struct structure_type27501 *)VALUE_OFFSET)) {t36680.tag = STRUCTURE_TYPE27501; t36680.value.structure_type27501 = t36679;} else t36680.tag = (unsigned)t36679; if (f7032(t36680)==FALSE_TYPE) goto l5385; /* x148892 */ /* x148891 */ t36754 = p15955; p15957 = t36754; /* x148890 stalin.sc:20026:700946 */ /* x148886 stalin.sc:20026:700960 */ /* x148885 stalin.sc:20026:700971 */ t36758 = p15957->a27040; /* x148884 stalin.sc:20026:700961 */ a19356 = t36758; /* x51061 */ /* x51060 */ t36759 = a19356; /* x51059 */ if (!(t36759>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("RESULT-L1[5777]"); structure_ref_error();} t36755 = t36759->s4; /* x148889 stalin.sc:20026:700974 */ /* x148888 stalin.sc:20026:700985 */ t36760 = p15957->a27040; /* x148887 stalin.sc:20026:700975 */ a19376 = t36760; /* x51139 */ /* x51138 */ t36761 = a19376; /* x51137 */ if (!(t36761>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("RESULT-L0[5793]"); structure_ref_error();} t36756 = t36761->s6; /* x148883 stalin.sc:20026:700947 */ t36757 = f15756(t36755, t36756); t35305 = *((struct w49 *)(&t36757)); goto l5386; l5385: /* x149004 */ /* x148902 stalin.sc:20027:700997 */ /* x148895 stalin.sc:20027:701002 */ /* x148894 stalin.sc:20027:701011 */ t36681 = p15955->a27040; /* x148893 stalin.sc:20027:701003 */ /* MOVE: branching squeezed to general */ if (t36681>=((struct structure_type27501 *)VALUE_OFFSET)) {t36682.tag = STRUCTURE_TYPE27501; t36682.value.structure_type27501 = t36681;} else t36682.tag = (unsigned)t36681; if (f7030(t36682)==FALSE_TYPE) goto l5388; /* x148900 */ /* x148899 stalin.sc:20027:701019 */ /* x148898 stalin.sc:20027:701037 */ t36683 = p15955->a27040; /* x148897 stalin.sc:20027:701020 */ /* MOVE: branching squeezed to general */ if (t36683>=((struct structure_type27501 *)VALUE_OFFSET)) {t36684.tag = STRUCTURE_TYPE27501; t36684.value.structure_type27501 = t36683;} else t36684.tag = (unsigned)t36683; if (!(f15338(t36684)==FALSE_TYPE)) goto l5388; /* x148907 */ /* x148906 */ t36751 = p15955; p15958 = t36751; /* x148905 stalin.sc:20028:701049 */ /* x148904 stalin.sc:20028:701065 */ t36752 = p15958->a27040; /* x148903 stalin.sc:20028:701050 */ /* MOVE: branching squeezed to general */ if (t36752>=((struct structure_type27501 *)VALUE_OFFSET)) {t36753.tag = STRUCTURE_TYPE27501; t36753.value.structure_type27501 = t36752;} else t36753.tag = (unsigned)t36752; t35305 = f15342(t36753); goto l5389; l5388: /* x149003 */ /* x149002 */ t36685 = p15955; p15959 = t36685; /* x149001 stalin.sc:20030:701088 */ /* x149000 stalin.sc:20049:701716 */ /* x148999 stalin.sc:20049:701732 */ t36749 = p15959->a27040; /* x148998 stalin.sc:20049:701717 */ /* MOVE: branching squeezed to general */ if (t36749>=((struct structure_type27501 *)VALUE_OFFSET)) {t36750.tag = STRUCTURE_TYPE27501; t36750.value.structure_type27501 = t36749;} else t36750.tag = (unsigned)t36749; t36689 = f15342(t36750); /* x148997 stalin.sc:20043:701533 */ /* x148975 stalin.sc:20043:701537 */ /* x148974 stalin.sc:20043:701550 */ t36732 = a27058; /* x148973 stalin.sc:20043:701538 */ if (f8793(t36732)==FALSE_TYPE) goto l5400; /* x148977 stalin.sc:20044:701559 */ /* x148976 stalin.sc:20044:701560 */ /* x276469 stalin.sc:14693:514793 */ t36688.tag = STRING_TYPE; t36688.value.string_type = ""; goto l5401; l5400: /* x148996 stalin.sc:20045:701573 */ /* x148990 stalin.sc:20046:701588 */ /* x148980 stalin.sc:20047:701619 */ t36736 = a27058; /* x148989 stalin.sc:20047:701622 */ /* x148984 stalin.sc:20047:701633 */ /* x148983 stalin.sc:20047:701643 */ t36742 = p15959->a27040; /* x148982 stalin.sc:20047:701634 */ a38381 = t36742; /* x286193 */ /* x286192 */ t36743 = a38381; /* x286191 */ if (!(t36743>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-C[5769] 33298]"); structure_ref_error();} t36739 = t36743->s3; /* x148985 stalin.sc:20047:701646 */ t36740 = a27057; /* x148988 stalin.sc:20047:701648 */ /* x148987 stalin.sc:20047:701665 */ t36744 = p15959->a27040; /* x148986 stalin.sc:20047:701649 */ a38401 = t36744; /* x286273 */ /* x286272 */ t36745 = a38401; /* x286271 */ if (!(t36745>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33318]"); structure_ref_error();} t36741 = t36745->s2; /* x148981 stalin.sc:20047:701623 */ t36737 = f14748(t36739, t36740, t36741); /* x148979 stalin.sc:20046:701589 */ t36738 = *((struct w49 *)(&t36737)); t36733 = f7025(t36736, t36738); /* x148995 stalin.sc:20048:701676 */ /* x148994 stalin.sc:20048:701681 */ /* x148993 stalin.sc:20048:701702 */ t36747 = p15959->a27041; /* x148992 stalin.sc:20048:701682 */ a39531 = t36747; /* x290793 */ /* x290792 */ t36748 = a39531; /* x290791 */ if (!((t36748.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34448]"); structure_ref_error();} t36746 = t36748.value.structure_type27698->s12; /* x268427 stalin.sc:20048:701677 */ if (!((t36746.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 20048, 701676); structure_ref_error();} t36734 = t36746.value.structure_type24753->s1; /* x148978 stalin.sc:20045:701574 */ t36735 = t36733; t36688 = f15922(t36735, t36734); l5401: /* x148972 stalin.sc:20037:701350 */ /* x148950 stalin.sc:20037:701354 */ /* x148949 stalin.sc:20037:701367 */ t36715 = a27059; /* x148948 stalin.sc:20037:701355 */ if (f8793(t36715)==FALSE_TYPE) goto l5397; /* x148952 stalin.sc:20038:701376 */ /* x148951 stalin.sc:20038:701377 */ /* x276467 stalin.sc:14693:514793 */ t36687.tag = STRING_TYPE; t36687.value.string_type = ""; goto l5398; l5397: /* x148971 stalin.sc:20039:701390 */ /* x148965 stalin.sc:20040:701405 */ /* x148955 stalin.sc:20041:701436 */ t36719 = a27059; /* x148964 stalin.sc:20041:701439 */ /* x148959 stalin.sc:20041:701450 */ /* x148958 stalin.sc:20041:701460 */ t36725 = p15959->a27040; /* x148957 stalin.sc:20041:701451 */ a38380 = t36725; /* x286189 */ /* x286188 */ t36726 = a38380; /* x286187 */ if (!(t36726>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-C[5769] 33297]"); structure_ref_error();} t36722 = t36726->s3; /* x148960 stalin.sc:20041:701463 */ t36723 = a27057; /* x148963 stalin.sc:20041:701465 */ /* x148962 stalin.sc:20041:701482 */ t36727 = p15959->a27040; /* x148961 stalin.sc:20041:701466 */ a38400 = t36727; /* x286269 */ /* x286268 */ t36728 = a38400; /* x286267 */ if (!(t36728>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33317]"); structure_ref_error();} t36724 = t36728->s2; /* x148956 stalin.sc:20041:701440 */ t36720 = f14747(t36722, t36723, t36724); /* x148954 stalin.sc:20040:701406 */ t36721 = *((struct w49 *)(&t36720)); t36716 = f7025(t36719, t36721); /* x148970 stalin.sc:20042:701493 */ /* x148969 stalin.sc:20042:701498 */ /* x148968 stalin.sc:20042:701519 */ t36730 = p15959->a27041; /* x148967 stalin.sc:20042:701499 */ a39530 = t36730; /* x290789 */ /* x290788 */ t36731 = a39530; /* x290787 */ if (!((t36731.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34447]"); structure_ref_error();} t36729 = t36731.value.structure_type27698->s12; /* x268428 stalin.sc:20042:701494 */ if (!((t36729.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 20042, 701493); structure_ref_error();} t36717 = t36729.value.structure_type24753->s0; /* x148953 stalin.sc:20039:701391 */ t36718 = t36716; t36687 = f15922(t36718, t36717); l5398: /* x148947 stalin.sc:20031:701113 */ /* x148931 stalin.sc:20031:701117 */ /* x148913 stalin.sc:20031:701122 */ /* x148912 stalin.sc:20031:701137 */ /* x148911 stalin.sc:20031:701154 */ t36696 = p15959->a27040; /* x148910 stalin.sc:20031:701138 */ a38399 = t36696; /* x286265 */ /* x286264 */ t36697 = a38399; /* x286263 */ if (!(t36697>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33316]"); structure_ref_error();} t36695 = t36697->s2; /* x148909 stalin.sc:20031:701123 */ if (f8149(t36695)==((struct structure_type27657 *)FALSE_TYPE)) goto l5392; /* x148929 */ /* x148920 stalin.sc:20032:701168 */ /* x148919 stalin.sc:20032:701173 */ /* x148918 stalin.sc:20032:701184 */ /* x148917 stalin.sc:20032:701201 */ t36699 = p15959->a27040; /* x148916 stalin.sc:20032:701185 */ a38396 = t36699; /* x286253 */ /* x286252 */ t36700 = a38396; /* x286251 */ if (!(t36700>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33313]"); structure_ref_error();} t36698 = t36700->s2; /* x148915 stalin.sc:20032:701174 */ if (!(f13859(t36698)==FALSE_TYPE)) goto l5392; /* x148927 */ /* x148926 stalin.sc:20033:701221 */ /* x148925 stalin.sc:20033:701232 */ /* x148924 stalin.sc:20033:701249 */ t36702 = p15959->a27040; /* x148923 stalin.sc:20033:701233 */ a38393 = t36702; /* x286241 */ /* x286240 */ t36703 = a38393; /* x286239 */ if (!(t36703>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33310]"); structure_ref_error();} t36701 = t36703->s2; /* x148922 stalin.sc:20033:701222 */ if (!(f14024(t36701)==FALSE_TYPE)) goto l5392; /* x148944 stalin.sc:20034:701260 */ /* x148940 stalin.sc:20034:701266 */ /* x148936 stalin.sc:20034:701273 */ /* x148935 stalin.sc:20034:701283 */ t36710 = p15959->a27040; /* x148934 stalin.sc:20034:701274 */ a19346 = t36710; /* x51022 */ /* x51021 */ t36711 = a19346; /* x51020 */ if (!(t36711>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("RESULT-C[5769]"); structure_ref_error();} t36708 = t36711->s3; /* x148939 stalin.sc:20034:701286 */ /* x148938 stalin.sc:20034:701303 */ t36712 = p15959->a27040; /* x148937 stalin.sc:20034:701287 */ a19336 = t36712; /* x50983 */ /* x50982 */ t36713 = a19336; /* x50981 */ if (!(t36713>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("RESULT-TYPE-SET[5761]"); structure_ref_error();} t36709 = t36713->s2; /* x148933 stalin.sc:20034:701267 */ t36704 = f14478(t36708, t36709); /* x148943 stalin.sc:20035:701311 */ /* x148942 stalin.sc:20035:701323 */ t36714 = a27057; /* x148941 stalin.sc:20035:701312 */ t36705 = f14433(t36714); /* x148932 stalin.sc:20034:701261 */ t36706 = *((struct w49 *)(&t36705)); t36707 = f13637(t36704, t36706); t36686.tag = STRUCTURE_TYPE24753; t36686.value.structure_type24753 = t36707; goto l5393; l5392: /* x148946 stalin.sc:20036:701332 */ /* x148945 stalin.sc:20036:701333 */ /* x276465 stalin.sc:14693:514793 */ t36686.tag = STRING_TYPE; t36686.value.string_type = ""; l5393: /* x148908 stalin.sc:20030:701089 */ t36694.tag = STRUCTURE_TYPE24753; t36694.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36694.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20030, 701088); out_of_memory_error();} t36694.value.structure_type24753->s0 = t36689; t36694.value.structure_type24753->s1.tag = NULL_TYPE; t36693.tag = STRUCTURE_TYPE24753; t36693.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36693.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20030, 701088); out_of_memory_error();} t36693.value.structure_type24753->s0 = t36688; t36693.value.structure_type24753->s1 = t36694; t36692.tag = STRUCTURE_TYPE24753; t36692.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36692.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20030, 701088); out_of_memory_error();} t36692.value.structure_type24753->s0 = t36687; t36692.value.structure_type24753->s1 = t36693; a41826 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41826==NULL) {backtrace("stalin.sc", 20030, 701088); out_of_memory_error();} a41826->s0 = *((struct w49 *)(&t36686)); a41826->s1 = t36692; /* x301416 stalin.sc:14400:506485 */ /* x301415 stalin.sc:14400:506503 */ t36690 = a41826; /* x301414 stalin.sc:14400:506486 */ t36691.tag = STRUCTURE_TYPE24753; t36691.value.structure_type24753 = t36690; t35305 = f13492(t36691); l5389: l5386: l5383: goto l5374; l5373: /* x149085 stalin.sc:20050:701743 */ /* x149084 stalin.sc:20050:701752 */ /* x149083 stalin.sc:20050:701757 */ t36676 = a860; /* x149082 stalin.sc:20050:701753 */ t36624 = f14288(t36676); /* x149081 */ t36623 = p15955; p15960 = t36623; a27060 = t36624; /* x149080 */ /* x149019 stalin.sc:20051:701771 */ /* x149018 stalin.sc:20051:701782 */ /* x149016 stalin.sc:20051:701785 */ t36633 = a860; /* x149017 stalin.sc:20051:701790 */ t36634 = 1; /* x268426 stalin.sc:20051:701783 */ if (!((t36633&1)==1)) {backtrace("stalin.sc", 20051, 701782); plus_error();} a860 = (((unsigned)(((int)(((int)t36633)>>1))+t36634))<<1)+1; /* x149027 stalin.sc:20052:701800 */ /* x149026 stalin.sc:20052:701814 */ /* x149025 stalin.sc:20052:701831 */ /* x149023 stalin.sc:20052:701840 */ t36637 = a27057; /* x149024 stalin.sc:20052:701842 */ t36638 = a27060; /* x149022 stalin.sc:20052:701832 */ t36639.tag = STRUCTURE_TYPE24753; t36639.value.structure_type24753 = t36638; t36636 = f14410(t36637, t36639); /* x149021 stalin.sc:20052:701815 */ t36635 = f13514(t36636); /* x149020 stalin.sc:20052:701801 */ f13460(t36635); /* x149053 stalin.sc:20053:701853 */ /* x149030 stalin.sc:20053:701861 */ /* x149029 stalin.sc:20053:701874 */ t36640 = a27059; /* x149028 stalin.sc:20053:701862 */ if (f8793(t36640)==FALSE_TYPE) goto l5376; /* x149032 */ /* x149031 */ goto l5377; l5376: /* x149052 */ /* x149051 */ t36641 = p15960; p15963 = t36641; /* x149050 stalin.sc:20054:701885 */ /* x149049 stalin.sc:20055:701906 */ /* x149043 stalin.sc:20055:701915 */ /* x149036 stalin.sc:20055:701939 */ t36646 = a27059; /* x149042 stalin.sc:20055:701942 */ /* x149038 stalin.sc:20055:701947 */ t36649 = a27060; /* x149041 stalin.sc:20055:701949 */ /* x149040 stalin.sc:20055:701954 */ t36653 = 0; /* x149039 stalin.sc:20055:701950 */ t36654.tag = FIXNUM_TYPE; t36654.value.fixnum_type = t36653; t36650 = f14287(t36654); /* x149037 stalin.sc:20055:701943 */ t36651.tag = STRUCTURE_TYPE24753; t36651.value.structure_type24753 = t36649; t36652.tag = STRUCTURE_TYPE24753; t36652.value.structure_type24753 = t36650; t36647 = f13585(t36651, t36652); /* x149035 stalin.sc:20055:701916 */ t36648.tag = STRUCTURE_TYPE24753; t36648.value.structure_type24753 = t36647; t36643 = f7025(t36646, t36648); /* x149048 stalin.sc:20056:701969 */ /* x149047 stalin.sc:20056:701974 */ /* x149046 stalin.sc:20056:701995 */ t36656 = p15963->a27041; /* x149045 stalin.sc:20056:701975 */ a39532 = t36656; /* x290797 */ /* x290796 */ t36657 = a39532; /* x290795 */ if (!((t36657.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34449]"); structure_ref_error();} t36655 = t36657.value.structure_type27698->s12; /* x268425 stalin.sc:20056:701970 */ if (!((t36655.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 20056, 701969); structure_ref_error();} t36644 = t36655.value.structure_type24753->s0; /* x149034 stalin.sc:20055:701907 */ t36645 = t36643; t36642 = f15922(t36645, t36644); /* x149033 stalin.sc:20054:701886 */ f13463(t36642); l5377: /* x149079 stalin.sc:20057:702008 */ /* x149056 stalin.sc:20057:702016 */ /* x149055 stalin.sc:20057:702029 */ t36658 = a27058; /* x149054 stalin.sc:20057:702017 */ if (f8793(t36658)==FALSE_TYPE) goto l5379; /* x149058 */ /* x149057 */ goto l5380; l5379: /* x149078 */ /* x149077 */ t36659 = p15960; p15965 = t36659; /* x149076 stalin.sc:20058:702040 */ /* x149075 stalin.sc:20059:702061 */ /* x149069 stalin.sc:20059:702070 */ /* x149062 stalin.sc:20059:702094 */ t36664 = a27058; /* x149068 stalin.sc:20059:702097 */ /* x149064 stalin.sc:20059:702102 */ t36667 = a27060; /* x149067 stalin.sc:20059:702104 */ /* x149066 stalin.sc:20059:702109 */ t36671 = 1; /* x149065 stalin.sc:20059:702105 */ t36672.tag = FIXNUM_TYPE; t36672.value.fixnum_type = t36671; t36668 = f14287(t36672); /* x149063 stalin.sc:20059:702098 */ t36669.tag = STRUCTURE_TYPE24753; t36669.value.structure_type24753 = t36667; t36670.tag = STRUCTURE_TYPE24753; t36670.value.structure_type24753 = t36668; t36665 = f13585(t36669, t36670); /* x149061 stalin.sc:20059:702071 */ t36666.tag = STRUCTURE_TYPE24753; t36666.value.structure_type24753 = t36665; t36661 = f7025(t36664, t36666); /* x149074 stalin.sc:20060:702124 */ /* x149073 stalin.sc:20060:702129 */ /* x149072 stalin.sc:20060:702150 */ t36674 = p15965->a27041; /* x149071 stalin.sc:20060:702130 */ a39533 = t36674; /* x290801 */ /* x290800 */ t36675 = a39533; /* x290799 */ if (!((t36675.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34450]"); structure_ref_error();} t36673 = t36675.value.structure_type27698->s12; /* x268424 stalin.sc:20060:702125 */ if (!((t36673.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 20060, 702124); structure_ref_error();} t36662 = t36673.value.structure_type24753->s1; /* x149060 stalin.sc:20059:702062 */ t36663 = t36661; t36660 = f15922(t36663, t36662); /* x149059 stalin.sc:20058:702041 */ f13463(t36660); l5380: /* x149014 */ t36625 = p15960; p15961 = t36625; /* x149013 stalin.sc:20061:702163 */ /* x149008 stalin.sc:20061:702175 */ t36626 = p15961->a27040; /* x149011 stalin.sc:20061:702177 */ /* x149010 stalin.sc:20061:702182 */ t36630 = a27060; /* x149009 stalin.sc:20061:702178 */ t36631.tag = STRUCTURE_TYPE24753; t36631.value.structure_type24753 = t36630; t36632 = (struct structure_type24753 *)NULL_TYPE; t36627 = f13625(t36631, t36632); /* x149012 stalin.sc:20061:702185 */ t36628 = a27057; /* x149007 stalin.sc:20061:702164 */ t36629.tag = STRUCTURE_TYPE24753; t36629.value.structure_type24753 = t36627; t35305 = f15499(t36626, t36629, t36628); l5374: l5371: goto l5128; l5127: /* x151100 */ /* x149140 */ /* x149138 */ t35491 = a27051; /* x149139 */ t35492 = q52; /* x149137 */ t35493.tag = EXTERNAL_SYMBOL_TYPE; t35493.value.external_symbol_type = t35491; t35494.tag = EXTERNAL_SYMBOL_TYPE; t35494.value.external_symbol_type = t35492; if (f26160(t35493, t35494)==FALSE_TYPE) goto l5130; /* x149292 */ /* x149291 */ t36518 = p15932->p15922; p15967 = t36518; /* x149290 stalin.sc:20066:702397 */ /* x149289 stalin.sc:20066:702406 */ /* x149285 stalin.sc:20067:702428 */ t36610 = p15967; /* x149288 stalin.sc:20074:702630 */ /* x149287 stalin.sc:20074:702651 */ t36613 = p15967->a27041; /* x149286 stalin.sc:20074:702631 */ a39969 = t36613; /* x292545 */ /* x292544 */ t36614 = a39969; /* x292543 */ if (!((t36614.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34886]"); structure_ref_error();} t36611 = t36614.value.structure_type27698->s10; /* x149265 stalin.sc:20066:702407 */ t36612.tag = NATIVE_PROCEDURE_TYPE18547; t36612.value.native_procedure_type18547 = t36610; t36520 = f8157(t36612, t36611); /* x149264 */ t36519 = p15967; p15968 = t36519; a27066 = t36520; /* x149263 stalin.sc:20075:702660 */ /* x149143 stalin.sc:20075:702664 */ /* x149142 stalin.sc:20075:702689 */ t36521 = a27066; /* x149141 stalin.sc:20075:702665 */ if (f7754(t36521)==FALSE_TYPE) goto l5367; /* x149154 stalin.sc:20076:702699 */ /* x149145 stalin.sc:20077:702719 */ t36601 = p15968->a27040; /* x149152 stalin.sc:20077:702721 */ /* x149151 stalin.sc:20077:702731 */ /* x149150 stalin.sc:20077:702746 */ /* x149149 stalin.sc:20077:702767 */ t36608 = p15968->a27041; /* x149148 stalin.sc:20077:702747 */ a39585 = t36608; /* x291009 */ /* x291008 */ t36609 = a39585; /* x291007 */ if (!((t36609.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34502]"); structure_ref_error();} t36607 = t36609.value.structure_type27698->s12; /* x268421 stalin.sc:20077:702732 */ if (!((t36607.tag)==HEADED_VECTOR_TYPE27896)) {backtrace("stalin.sc", 20077, 702731); vector_length_error();} t36605 = t36607.value.headed_vector_type27896->length; /* x149146 stalin.sc:20077:702722 */ t36606.tag = FIXNUM_TYPE; t36606.value.fixnum_type = t36605; t36602 = f13530(t36606); /* x149153 stalin.sc:20077:702772 */ t36603 = a27066; /* x149144 stalin.sc:20076:702700 */ t36604.tag = STRING_TYPE; t36604.value.string_type = t36602; t35305 = f15499(t36601, t36604, t36603); goto l5368; l5367: /* x149262 stalin.sc:20079:702841 */ /* x149258 stalin.sc:20080:702872 */ /* x149257 stalin.sc:20080:702900 */ t36598 = a27066; /* x149256 stalin.sc:20080:702873 */ a37516 = t36598; /* x282733 */ /* x282732 */ t36599 = a37516; /* x282731 */ if (!((t36599.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32433]"); structure_ref_error();} t36523 = t36599.value.structure_type27761->s0; /* x149261 stalin.sc:20079:702850 */ /* x149260 stalin.sc:20079:702855 */ t36600 = a860; /* x149259 stalin.sc:20079:702851 */ t36524 = f14288(t36600); /* x149255 */ t36522 = p15968; p15969 = t36522; a27067 = t36523; a27068 = t36524; e15969 = (struct p15969 *)alloca(sizeof(struct p15969)); if (e15969==NULL) {backtrace_internal("[inside COMPILE 15968]"); out_of_memory_error();} e15969->p15922 = p15969; e15969->a27067 = a27067; e15969->a27068 = a27068; /* x149254 */ /* x149170 stalin.sc:20081:702913 */ /* x149169 stalin.sc:20081:702924 */ /* x149167 stalin.sc:20081:702927 */ t36536 = a860; /* x149168 stalin.sc:20081:702932 */ t36537 = 1; /* x268420 stalin.sc:20081:702925 */ if (!((t36536&1)==1)) {backtrace("stalin.sc", 20081, 702924); plus_error();} a860 = (((unsigned)(((int)(((int)t36536)>>1))+t36537))<<1)+1; /* x149208 stalin.sc:20082:702944 */ /* x149207 stalin.sc:20083:702960 */ /* x149206 stalin.sc:20084:702980 */ /* x149205 stalin.sc:20086:703014 */ /* x149204 stalin.sc:20098:703310 */ t36546 = e15969->a27068; /* x149203 stalin.sc:20087:703034 */ /* x149202 stalin.sc:20088:703055 */ /* x149201 stalin.sc:20091:703146 */ /* x149200 stalin.sc:20092:703171 */ /* x149186 stalin.sc:20093:703192 */ t36563 = e15969->a27067; /* x149199 stalin.sc:20094:703204 */ /* x149188 stalin.sc:20095:703224 */ t36566 = "element"; /* x149198 stalin.sc:20096:703237 */ /* x149197 stalin.sc:20097:703251 */ /* x149191 stalin.sc:20097:703256 */ t36572 = 1; /* x149196 stalin.sc:20097:703258 */ /* x149195 stalin.sc:20097:703273 */ /* x149194 stalin.sc:20097:703294 */ t36575 = p15969->a27041; /* x149193 stalin.sc:20097:703274 */ a39524 = t36575; /* x290765 */ /* x290764 */ t36576 = a39524; /* x290763 */ if (!((t36576.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34441]"); structure_ref_error();} t36574 = t36576.value.structure_type27698->s12; /* x268418 stalin.sc:20097:703259 */ if (!((t36574.tag)==HEADED_VECTOR_TYPE27896)) {backtrace("stalin.sc", 20097, 703258); vector_length_error();} t36573 = t36574.value.headed_vector_type27896->length; /* x268419 stalin.sc:20097:703252 */ t36570 = IMAX(t36572, t36573); /* x149189 stalin.sc:20096:703238 */ t36571.tag = FIXNUM_TYPE; t36571.value.fixnum_type = t36570; t36567 = f13530(t36571); /* x149187 stalin.sc:20094:703205 */ t36568.tag = STRING_TYPE; t36568.value.string_type = t36566; t36569.tag = STRING_TYPE; t36569.value.string_type = t36567; t36564 = f13541(t36568, t36569); /* x149185 stalin.sc:20092:703172 */ t36565.tag = STRUCTURE_TYPE24753; t36565.value.structure_type24753 = t36564; t36562 = f14414(t36563, t36565); /* x149184 stalin.sc:20091:703147 */ t36552 = f13514(t36562); /* x149183 stalin.sc:20089:703079 */ /* x149182 stalin.sc:20090:703104 */ /* x149181 stalin.sc:20090:703128 */ t36558 = "length"; /* x149180 stalin.sc:20090:703119 */ t36557 = a1249; /* x149179 stalin.sc:20090:703105 */ t36561.tag = STRUCTURE_TYPE24753; t36561.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36561.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20090, 703104); out_of_memory_error();} t36561.value.structure_type24753->s0.tag = STRING_TYPE; t36561.value.structure_type24753->s0.value.string_type = t36558; t36561.value.structure_type24753->s1.tag = NULL_TYPE; a42008 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42008==NULL) {backtrace("stalin.sc", 20090, 703104); out_of_memory_error();} a42008->s0 = t36557; a42008->s1 = t36561; /* x302144 stalin.sc:14386:505956 */ /* x302143 stalin.sc:14386:505972 */ t36559 = a42008; /* x302142 stalin.sc:14386:505957 */ t36560.tag = STRUCTURE_TYPE24753; t36560.value.structure_type24753 = t36559; t36556 = f13474(t36560); /* x149178 stalin.sc:20089:703080 */ t36551 = f13514(t36556); /* x149177 stalin.sc:20088:703056 */ t36555.tag = STRUCTURE_TYPE24753; t36555.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36555.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20088, 703055); out_of_memory_error();} t36555.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t36555.value.structure_type24753->s0.value.structure_type24753 = t36552; t36555.value.structure_type24753->s1.tag = NULL_TYPE; a41821 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41821==NULL) {backtrace("stalin.sc", 20088, 703055); out_of_memory_error();} a41821->s0.tag = STRUCTURE_TYPE24753; a41821->s0.value.structure_type24753 = t36551; a41821->s1 = t36555; /* x301396 stalin.sc:14400:506485 */ /* x301395 stalin.sc:14400:506503 */ t36553 = a41821; /* x301394 stalin.sc:14400:506486 */ t36554.tag = STRUCTURE_TYPE24753; t36554.value.structure_type24753 = t36553; t36550 = f13492(t36554); /* x149176 stalin.sc:20087:703035 */ t36545 = f13501(t36550); /* x149175 stalin.sc:20086:703015 */ t36549.tag = STRUCTURE_TYPE24753; t36549.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36549.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20086, 703014); out_of_memory_error();} t36549.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t36549.value.structure_type24753->s0.value.structure_type24753 = t36546; t36549.value.structure_type24753->s1.tag = NULL_TYPE; a42007 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42007==NULL) {backtrace("stalin.sc", 20086, 703014); out_of_memory_error();} a42007->s0.tag = STRUCTURE_TYPE24753; a42007->s0.value.structure_type24753 = t36545; a42007->s1 = t36549; /* x302140 stalin.sc:14386:505956 */ /* x302139 stalin.sc:14386:505972 */ t36547 = a42007; /* x302138 stalin.sc:14386:505957 */ t36548.tag = STRUCTURE_TYPE24753; t36548.value.structure_type24753 = t36547; t36541 = f13474(t36548); /* x149174 stalin.sc:20085:703001 */ t36540 = "struct"; /* x149173 stalin.sc:20084:702981 */ t36544.tag = STRUCTURE_TYPE24753; t36544.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36544.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20084, 702980); out_of_memory_error();} t36544.value.structure_type24753->s0 = t36541; t36544.value.structure_type24753->s1.tag = NULL_TYPE; a41820 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41820==NULL) {backtrace("stalin.sc", 20084, 702980); out_of_memory_error();} a41820->s0.tag = STRING_TYPE; a41820->s0.value.string_type = t36540; a41820->s1 = t36544; /* x301392 stalin.sc:14400:506485 */ /* x301391 stalin.sc:14400:506503 */ t36542 = a41820; /* x301390 stalin.sc:14400:506486 */ t36543.tag = STRUCTURE_TYPE24753; t36543.value.structure_type24753 = t36542; t36539 = f13492(t36543); /* x149172 stalin.sc:20083:702961 */ t36538 = f13514(t36539); /* x149171 stalin.sc:20082:702945 */ f13460(t36538); /* x149223 stalin.sc:20099:703324 */ /* x149222 stalin.sc:20100:703339 */ /* x149214 stalin.sc:20100:703345 */ /* x149212 stalin.sc:20100:703350 */ t36583 = e15969->a27068; /* x149213 stalin.sc:20100:703352 */ t36584 = "length"; /* x149211 stalin.sc:20100:703346 */ t36585.tag = STRUCTURE_TYPE24753; t36585.value.structure_type24753 = t36583; t36586.tag = STRING_TYPE; t36586.value.string_type = t36584; t36579 = f13585(t36585, t36586); /* x149221 stalin.sc:20101:703370 */ /* x149220 stalin.sc:20101:703380 */ /* x149219 stalin.sc:20101:703395 */ /* x149218 stalin.sc:20101:703416 */ t36590 = p15969->a27041; /* x149217 stalin.sc:20101:703396 */ a39525 = t36590; /* x290769 */ /* x290768 */ t36591 = a39525; /* x290767 */ if (!((t36591.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34442]"); structure_ref_error();} t36589 = t36591.value.structure_type27698->s12; /* x268417 stalin.sc:20101:703381 */ if (!((t36589.tag)==HEADED_VECTOR_TYPE27896)) {backtrace("stalin.sc", 20101, 703380); vector_length_error();} t36587 = t36589.value.headed_vector_type27896->length; /* x149215 stalin.sc:20101:703371 */ t36588.tag = FIXNUM_TYPE; t36588.value.fixnum_type = t36587; t36580 = f13530(t36588); /* x149210 stalin.sc:20100:703340 */ t36581.tag = STRUCTURE_TYPE24753; t36581.value.structure_type24753 = t36579; t36582.tag = STRING_TYPE; t36582.value.string_type = t36580; t36577 = f13637(t36581, t36582); /* x149209 stalin.sc:20099:703325 */ t36578.tag = STRUCTURE_TYPE24753; t36578.value.structure_type24753 = t36577; f13463(t36578); /* x149253 stalin.sc:20102:703431 */ /* x149247 stalin.sc:20103:703445 */ t36592 = e15969; /* x149252 stalin.sc:20108:703616 */ /* x149251 stalin.sc:20108:703631 */ /* x149250 stalin.sc:20108:703652 */ t36596 = p15969->a27041; /* x149249 stalin.sc:20108:703632 */ a39527 = t36596; /* x290777 */ /* x290776 */ t36597 = a39527; /* x290775 */ if (!((t36597.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34444]"); structure_ref_error();} t36595 = t36597.value.structure_type27698->s12; /* x268415 stalin.sc:20108:703617 */ if (!((t36595.tag)==HEADED_VECTOR_TYPE27896)) {backtrace("stalin.sc", 20108, 703616); vector_length_error();} t36593 = t36595.value.headed_vector_type27896->length; /* x149224 stalin.sc:20102:703432 */ t36594 = (unsigned)t36592; f1120(t36594, t36593); /* x149165 */ t36525 = e15969; p15970 = t36525; /* x149164 stalin.sc:20109:703665 */ /* x149156 stalin.sc:20109:703677 */ t36526 = p15970->p15922->a27040; /* x149162 stalin.sc:20109:703679 */ /* x149160 stalin.sc:20109:703692 */ /* x149159 stalin.sc:20109:703697 */ t36533 = p15970->a27068; /* x149158 stalin.sc:20109:703693 */ t36534.tag = STRUCTURE_TYPE24753; t36534.value.structure_type24753 = t36533; t36535 = (struct structure_type24753 *)NULL_TYPE; t36530 = f13625(t36534, t36535); /* x149161 stalin.sc:20109:703700 */ t36531 = a27066; /* x149157 stalin.sc:20109:703680 */ t36532.tag = STRUCTURE_TYPE24753; t36532.value.structure_type24753 = t36530; t36527 = f14421(t36532, t36531); /* x149163 stalin.sc:20109:703703 */ t36528 = a27066; /* x149155 stalin.sc:20109:703666 */ t36529.tag = STRUCTURE_TYPE24753; t36529.value.structure_type24753 = t36527; t35305 = f15499(t36526, t36529, t36528); l5368: goto l5131; l5130: /* x151099 */ /* x149314 */ /* x149313 */ /* x149311 */ t35495 = a27051; /* x149312 */ t35496 = q39; /* x149310 */ t35497.tag = EXTERNAL_SYMBOL_TYPE; t35497.value.external_symbol_type = t35495; t35498.tag = EXTERNAL_SYMBOL_TYPE; t35498.value.external_symbol_type = t35496; if (!(f26160(t35497, t35498)==FALSE_TYPE)) goto l5132; /* x149307 */ /* x149306 */ /* x149304 */ t35499 = a27051; /* x149305 */ t35500 = q40; /* x149303 */ t35501.tag = EXTERNAL_SYMBOL_TYPE; t35501.value.external_symbol_type = t35499; t35502.tag = EXTERNAL_SYMBOL_TYPE; t35502.value.external_symbol_type = t35500; if (!(f26160(t35501, t35502)==FALSE_TYPE)) goto l5132; /* x149300 */ /* x149298 */ t35503 = a27051; /* x149299 */ t35504 = q41; /* x149297 */ t35505.tag = EXTERNAL_SYMBOL_TYPE; t35505.value.external_symbol_type = t35503; t35506.tag = EXTERNAL_SYMBOL_TYPE; t35506.value.external_symbol_type = t35504; if (f26160(t35505, t35506)==FALSE_TYPE) goto l5133; l5132: /* x149610 */ /* x149609 */ t36401 = p15932; p15976 = t36401; /* x149608 stalin.sc:20111:703763 */ /* x149607 stalin.sc:20111:703772 */ /* x149606 stalin.sc:20111:703784 */ /* x149605 stalin.sc:20111:703805 */ t36516 = p15976->p15922->a27041; /* x149604 stalin.sc:20111:703785 */ a39970 = t36516; /* x292549 */ /* x292548 */ t36517 = a39970; /* x292547 */ if (!((t36517.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34887]"); structure_ref_error();} t36515 = t36517.value.structure_type27698->s10; /* x149603 stalin.sc:20111:703773 */ t36403 = f8153(t36515); /* x149602 */ t36402 = p15976; p15977 = t36402; a27078 = t36403; e15977 = (struct p15977 *)alloca(sizeof(struct p15977)); if (e15977==NULL) {backtrace_internal("[inside COMPILE 15976]"); out_of_memory_error();} e15977->p15924 = p15977; e15977->a27078 = a27078; /* x149601 stalin.sc:20112:703814 */ /* x149317 stalin.sc:20113:703825 */ /* x149316 stalin.sc:20113:703835 */ t36404 = p15977->p15922->a27040; /* x149315 stalin.sc:20113:703826 */ /* MOVE: branching squeezed to general */ if (t36404>=((struct structure_type27501 *)VALUE_OFFSET)) {t36405.tag = STRUCTURE_TYPE27501; t36405.value.structure_type27501 = t36404;} else t36405.tag = (unsigned)t36404; if (f7031(t36405)==FALSE_TYPE) goto l5328; /* x149321 */ /* x149320 */ /* x149319 stalin.sc:20113:703838 */ /* x149318 stalin.sc:20113:703839 */ /* x276751 stalin.sc:14693:514793 */ t35305.tag = STRING_TYPE; t35305.value.string_type = ""; goto l5329; l5328: /* x149600 */ /* x149324 stalin.sc:20114:703853 */ /* x149323 stalin.sc:20114:703866 */ t36406 = p15977->p15922->a27040; /* x149322 stalin.sc:20114:703854 */ /* MOVE: branching squeezed to general */ if (t36406>=((struct structure_type27501 *)VALUE_OFFSET)) {t36407.tag = STRUCTURE_TYPE27501; t36407.value.structure_type27501 = t36406;} else t36407.tag = (unsigned)t36406; if (f7032(t36407)==FALSE_TYPE) goto l5331; /* x149334 */ /* x149333 */ t36507 = p15977->p15922; p15979 = t36507; /* x149332 stalin.sc:20114:703869 */ /* x149328 stalin.sc:20114:703883 */ /* x149327 stalin.sc:20114:703894 */ t36511 = p15979->a27040; /* x149326 stalin.sc:20114:703884 */ a38370 = t36511; /* x286149 */ /* x286148 */ t36512 = a38370; /* x286147 */ if (!(t36512>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L1[5777] 33287]"); structure_ref_error();} t36508 = t36512->s4; /* x149331 stalin.sc:20114:703897 */ /* x149330 stalin.sc:20114:703908 */ t36513 = p15979->a27040; /* x149329 stalin.sc:20114:703898 */ a38343 = t36513; /* x286041 */ /* x286040 */ t36514 = a38343; /* x286039 */ if (!(t36514>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L0[5793] 33260]"); structure_ref_error();} t36509 = t36514->s6; /* x149325 stalin.sc:20114:703870 */ t36510 = f15756(t36508, t36509); t35305 = *((struct w49 *)(&t36510)); goto l5332; l5331: /* x149599 */ /* x149344 stalin.sc:20115:703918 */ /* x149337 stalin.sc:20115:703923 */ /* x149336 stalin.sc:20115:703932 */ t36408 = p15977->p15922->a27040; /* x149335 stalin.sc:20115:703924 */ /* MOVE: branching squeezed to general */ if (t36408>=((struct structure_type27501 *)VALUE_OFFSET)) {t36409.tag = STRUCTURE_TYPE27501; t36409.value.structure_type27501 = t36408;} else t36409.tag = (unsigned)t36408; if (f7030(t36409)==FALSE_TYPE) goto l5334; /* x149342 */ /* x149341 stalin.sc:20115:703940 */ /* x149340 stalin.sc:20115:703958 */ t36410 = p15977->p15922->a27040; /* x149339 stalin.sc:20115:703941 */ /* MOVE: branching squeezed to general */ if (t36410>=((struct structure_type27501 *)VALUE_OFFSET)) {t36411.tag = STRUCTURE_TYPE27501; t36411.value.structure_type27501 = t36410;} else t36411.tag = (unsigned)t36410; if (!(f15338(t36411)==FALSE_TYPE)) goto l5334; /* x149349 */ /* x149348 */ t36504 = p15977->p15922; p15980 = t36504; /* x149347 stalin.sc:20115:703963 */ /* x149346 stalin.sc:20115:703979 */ t36505 = p15980->a27040; /* x149345 stalin.sc:20115:703964 */ /* MOVE: branching squeezed to general */ if (t36505>=((struct structure_type27501 *)VALUE_OFFSET)) {t36506.tag = STRUCTURE_TYPE27501; t36506.value.structure_type27501 = t36505;} else t36506.tag = (unsigned)t36505; t35305 = f15342(t36506); goto l5335; l5334: /* x149598 */ /* x149352 stalin.sc:20116:703988 */ /* x149351 stalin.sc:20116:704001 */ t36412 = e15977->a27078; /* x149350 stalin.sc:20116:703989 */ if (f8793(t36412)==FALSE_TYPE) goto l5338; /* x149359 */ /* x149358 */ t36499 = e15977; p15981 = t36499; /* x149357 stalin.sc:20116:704004 */ /* x149354 stalin.sc:20116:704016 */ t36500 = p15981->p15924->p15922->a27040; /* x149355 stalin.sc:20116:704018 */ t36501 = q218; /* x149356 stalin.sc:20116:704026 */ t36502 = p15981->a27078; /* x149353 stalin.sc:20116:704005 */ t36503.tag = EXTERNAL_SYMBOL_TYPE; t36503.value.external_symbol_type = t36501; t35305 = f15499(t36500, t36503, t36502); goto l5339; l5338: /* x149597 */ /* x149596 */ t36413 = e15977; p15982 = t36413; /* x149595 stalin.sc:20118:704045 */ /* x149594 stalin.sc:20118:704051 */ t36415 = a686; /* x149593 */ t36414 = p15982; p15983 = t36414; a27079 = t36415; /* x149592 */ /* x149363 */ /* x149361 */ t36416 = a27079; /* x149362 */ t36417 = q18; /* x149360 */ /* MOVE: branching squeezed to general */ if (t36416>=((char *)VALUE_OFFSET)) {t36418.tag = EXTERNAL_SYMBOL_TYPE; t36418.value.external_symbol_type = t36416;} else t36418.tag = (unsigned)t36416; t36419.tag = EXTERNAL_SYMBOL_TYPE; t36419.value.external_symbol_type = t36417; if (f26160(t36418, t36419)==FALSE_TYPE) goto l5341; /* x149369 */ /* x149368 */ t36495 = p15983->p15924->p15922; p15984 = t36495; /* x149367 stalin.sc:20120:704107 */ /* x149365 stalin.sc:20121:704130 */ t36496 = p15984->a27041; /* x149366 stalin.sc:20121:704132 */ t36497 = "Immediate flat closures are not (yet) implemented"; /* x149364 stalin.sc:20120:704108 */ t36498 = *((struct w6315 *)(&t36496)); f9707(t36498, t36497); goto l5342; l5341: /* x149591 */ /* x149373 */ /* x149371 */ t36420 = a27079; /* x149372 */ t36421 = q19; /* x149370 */ /* MOVE: branching squeezed to general */ if (t36420>=((char *)VALUE_OFFSET)) {t36422.tag = EXTERNAL_SYMBOL_TYPE; t36422.value.external_symbol_type = t36420;} else t36422.tag = (unsigned)t36420; t36423.tag = EXTERNAL_SYMBOL_TYPE; t36423.value.external_symbol_type = t36421; if (f26160(t36422, t36423)==FALSE_TYPE) goto l5344; /* x149379 */ /* x149378 */ t36491 = p15983->p15924->p15922; p15985 = t36491; /* x149377 stalin.sc:20123:704216 */ /* x149375 stalin.sc:20124:704239 */ t36492 = p15985->a27041; /* x149376 stalin.sc:20124:704241 */ t36493 = "Indirect flat closures are not (yet) implemented"; /* x149374 stalin.sc:20123:704217 */ t36494 = *((struct w6315 *)(&t36492)); f9707(t36494, t36493); goto l5345; l5344: /* x149590 */ /* x149383 */ /* x149381 */ t36424 = a27079; /* x149382 */ t36425 = q20; /* x149380 */ /* MOVE: branching squeezed to general */ if (t36424>=((char *)VALUE_OFFSET)) {t36426.tag = EXTERNAL_SYMBOL_TYPE; t36426.value.external_symbol_type = t36424;} else t36426.tag = (unsigned)t36424; t36427.tag = EXTERNAL_SYMBOL_TYPE; t36427.value.external_symbol_type = t36425; if (f26160(t36426, t36427)==FALSE_TYPE) goto l5347; /* x149472 */ /* x149471 */ t36455 = p15983; p15986 = t36455; /* x149470 */ /* x149469 stalin.sc:20126:704328 */ /* x149462 stalin.sc:20126:704334 */ /* x149461 stalin.sc:20126:704338 */ /* x149460 stalin.sc:20126:704349 */ /* x149459 stalin.sc:20126:704366 */ t36485 = p15986->p15924->p15922->a27040; /* x149458 stalin.sc:20126:704350 */ a38426 = t36485; /* x286373 */ /* x286372 */ t36486 = a38426; /* x286371 */ if (!(t36486>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33343]"); structure_ref_error();} t36484 = t36486->s2; /* x149457 stalin.sc:20126:704339 */ if (!(f13859(t36484)==FALSE_TYPE)) goto l5362; p15989 = p15986->p15924->p15922; /* x149454 */ /* x149453 stalin.sc:20127:704384 */ /* x149452 stalin.sc:20127:704401 */ t36488 = p15989->a27040; /* x149451 stalin.sc:20127:704385 */ a38425 = t36488; /* x286369 */ /* x286368 */ t36489 = a38425; /* x286367 */ if (!(t36489>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33342]"); structure_ref_error();} t36487 = t36489->s2; /* x149450 stalin.sc:20127:704374 */ if (f14024(t36487)==FALSE_TYPE) goto l5363; l5362: /* x149466 */ /* x149465 */ /* x149464 stalin.sc:20128:704414 */ /* x149463 stalin.sc:20128:704415 */ /* x296109 QobiScheme.sc:166:5314 */ /* x296108 QobiScheme.sc:166:5321 */ t36490 = "This shouldn\'t happen"; /* x296107 QobiScheme.sc:166:5315 */ stalin_panic(t36490); goto l5364; l5363: /* x149468 stalin.sc:20126:704328 */ /* x149467 stalin.sc:20126:704328 */ l5364: /* x149447 */ t36456 = p15986; p15987 = t36456; /* x149446 stalin.sc:20129:704432 */ /* x149445 stalin.sc:20134:704592 */ /* x149444 stalin.sc:20135:704612 */ /* x149443 stalin.sc:20139:704773 */ /* x149442 stalin.sc:20139:704784 */ t36483 = p15987->a27078; /* x149441 stalin.sc:20139:704774 */ t36479 = f8951(t36483); /* x149440 stalin.sc:20135:704617 */ t36478 = p15987; /* x149407 stalin.sc:20135:704613 */ t36480.tag = NATIVE_PROCEDURE_TYPE19854; t36480.value.native_procedure_type19854 = t36478; t36481 = *((struct w49 *)(&t36479)); t36482 = (struct structure_type24753 *)NULL_TYPE; t36476 = f27731(t36480, t36481, t36482); /* x149406 stalin.sc:20134:704593 */ /* MOVE: branching squeezed to general */ if (t36476>=((struct structure_type24753 *)VALUE_OFFSET)) {t36477.tag = STRUCTURE_TYPE24753; t36477.value.structure_type24753 = t36476;} else t36477.tag = (unsigned)t36476; t36458 = f13492(t36477); /* x149405 stalin.sc:20130:704457 */ /* x149389 stalin.sc:20130:704461 */ /* x149388 stalin.sc:20130:704476 */ /* x149387 stalin.sc:20130:704493 */ t36463 = p15987->p15924->p15922->a27040; /* x149386 stalin.sc:20130:704477 */ a38424 = t36463; /* x286365 */ /* x286364 */ t36464 = a38424; /* x286363 */ if (!(t36464>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33341]"); structure_ref_error();} t36462 = t36464->s2; /* x149385 stalin.sc:20130:704462 */ if (f8149(t36462)==((struct structure_type27657 *)FALSE_TYPE)) goto l5360; /* x149402 stalin.sc:20131:704502 */ /* x149398 stalin.sc:20131:704508 */ /* x149394 stalin.sc:20131:704515 */ /* x149393 stalin.sc:20131:704525 */ t36471 = p15987->p15924->p15922->a27040; /* x149392 stalin.sc:20131:704516 */ a38377 = t36471; /* x286177 */ /* x286176 */ t36472 = a38377; /* x286175 */ if (!(t36472>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-C[5769] 33294]"); structure_ref_error();} t36469 = t36472->s3; /* x149397 stalin.sc:20131:704528 */ /* x149396 stalin.sc:20131:704545 */ t36473 = p15987->p15924->p15922->a27040; /* x149395 stalin.sc:20131:704529 */ a38395 = t36473; /* x286249 */ /* x286248 */ t36474 = a38395; /* x286247 */ if (!(t36474>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33312]"); structure_ref_error();} t36470 = t36474->s2; /* x149391 stalin.sc:20131:704509 */ t36465 = f14478(t36469, t36470); /* x149401 stalin.sc:20132:704553 */ /* x149400 stalin.sc:20132:704565 */ t36475 = p15987->a27078; /* x149399 stalin.sc:20132:704554 */ t36466 = f14433(t36475); /* x149390 stalin.sc:20131:704503 */ t36467 = *((struct w49 *)(&t36466)); t36468 = f13637(t36465, t36467); t36457.tag = STRUCTURE_TYPE24753; t36457.value.structure_type24753 = t36468; goto l5361; l5360: /* x149404 stalin.sc:20133:704574 */ /* x149403 stalin.sc:20133:704575 */ /* x276753 stalin.sc:14693:514793 */ t36457.tag = STRING_TYPE; t36457.value.string_type = ""; l5361: /* x149384 stalin.sc:20129:704433 */ t36461.tag = STRUCTURE_TYPE24753; t36461.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36461.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20129, 704432); out_of_memory_error();} t36461.value.structure_type24753->s0 = t36458; t36461.value.structure_type24753->s1.tag = NULL_TYPE; a41898 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41898==NULL) {backtrace("stalin.sc", 20129, 704432); out_of_memory_error();} a41898->s0 = *((struct w49 *)(&t36457)); a41898->s1 = t36461; /* x301704 stalin.sc:14400:506485 */ /* x301703 stalin.sc:14400:506503 */ t36459 = a41898; /* x301702 stalin.sc:14400:506486 */ t36460.tag = STRUCTURE_TYPE24753; t36460.value.structure_type24753 = t36459; t35305 = f13492(t36460); goto l5348; l5347: /* x149589 */ /* x149476 */ /* x149474 */ t36428 = a27079; /* x149475 */ t36429 = q21; /* x149473 */ /* MOVE: branching squeezed to general */ if (t36428>=((char *)VALUE_OFFSET)) {t36430.tag = EXTERNAL_SYMBOL_TYPE; t36430.value.external_symbol_type = t36428;} else t36430.tag = (unsigned)t36428; t36431.tag = EXTERNAL_SYMBOL_TYPE; t36431.value.external_symbol_type = t36429; if (f26160(t36430, t36431)==FALSE_TYPE) goto l5350; /* x149569 */ /* x149568 */ t36444 = p15983->p15924->p15922; p15992 = t36444; /* x149567 */ /* x149544 stalin.sc:20142:704871 */ /* x149542 stalin.sc:20143:704894 */ t36445 = p15992->a27041; /* x149543 stalin.sc:20143:704896 */ t36446 = "Indirect display closures are not (yet) implemented"; /* x149541 stalin.sc:20142:704872 */ t36447 = *((struct w6315 *)(&t36445)); f9707(t36447, t36446); /* x149566 stalin.sc:20144:704958 */ /* x149559 stalin.sc:20144:704964 */ /* x149558 stalin.sc:20144:704968 */ /* x149557 stalin.sc:20144:704979 */ /* x149556 stalin.sc:20144:704996 */ t36449 = p15992->a27040; /* x149555 stalin.sc:20144:704980 */ a38428 = t36449; /* x286381 */ /* x286380 */ t36450 = a38428; /* x286379 */ if (!(t36450>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33345]"); structure_ref_error();} t36448 = t36450->s2; /* x149554 stalin.sc:20144:704969 */ if (!(f13859(t36448)==FALSE_TYPE)) goto l5355; p15995 = p15992; /* x149551 */ /* x149550 stalin.sc:20145:705014 */ /* x149549 stalin.sc:20145:705031 */ t36452 = p15995->a27040; /* x149548 stalin.sc:20145:705015 */ a38427 = t36452; /* x286377 */ /* x286376 */ t36453 = a38427; /* x286375 */ if (!(t36453>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33344]"); structure_ref_error();} t36451 = t36453->s2; /* x149547 stalin.sc:20145:705004 */ if (f14024(t36451)==FALSE_TYPE) goto l5356; l5355: /* x149563 */ /* x149562 */ /* x149561 stalin.sc:20146:705044 */ /* x149560 stalin.sc:20146:705045 */ /* x296113 QobiScheme.sc:166:5314 */ /* x296112 QobiScheme.sc:166:5321 */ t36454 = "This shouldn\'t happen"; /* x296111 QobiScheme.sc:166:5315 */ stalin_panic(t36454); goto l5357; l5356: /* x149565 stalin.sc:20144:704958 */ /* x149564 stalin.sc:20144:704958 */ l5357: /* x149540 */ goto l5351; l5350: /* x149588 */ /* x149573 */ /* x149571 */ t36432 = a27079; /* x149572 */ t36433 = q22; /* x149570 */ /* MOVE: branching squeezed to general */ if (t36432>=((char *)VALUE_OFFSET)) {t36434.tag = EXTERNAL_SYMBOL_TYPE; t36434.value.external_symbol_type = t36432;} else t36434.tag = (unsigned)t36432; t36435.tag = EXTERNAL_SYMBOL_TYPE; t36435.value.external_symbol_type = t36433; if (f26160(t36434, t36435)==FALSE_TYPE) goto l5353; /* x149583 */ /* x149582 */ t36437 = p15983; p15998 = t36437; /* x149581 stalin.sc:20158:705440 */ /* x149575 stalin.sc:20158:705452 */ t36438 = p15998->p15924->p15922->a27040; /* x149579 stalin.sc:20158:705454 */ /* x149577 stalin.sc:20158:705471 */ t36442 = p15998->a27078; /* x149578 stalin.sc:20158:705473 */ t36443 = p15998->p15924->a27044; /* x149576 stalin.sc:20158:705455 */ t36439 = f14818(t36442, t36443); /* x149580 stalin.sc:20158:705476 */ t36440 = p15998->a27078; /* x149574 stalin.sc:20158:705441 */ t36441 = *((struct w49 *)(&t36439)); t35305 = f15499(t36438, t36441, t36440); goto l5354; l5353: /* x149587 */ /* x149586 */ /* x149585 stalin.sc:20159:705492 */ /* x149584 stalin.sc:20159:705493 */ /* x296149 QobiScheme.sc:166:5314 */ /* x296148 QobiScheme.sc:166:5321 */ t36436 = "This shouldn\'t happen"; /* x296147 QobiScheme.sc:166:5315 */ stalin_panic(t36436); l5354: l5351: l5348: l5345: l5342: l5339: l5335: l5332: l5329: goto l5134; l5133: /* x151098 */ /* x149614 */ /* x149612 */ t35507 = a27051; /* x149613 */ t35508 = q42; /* x149611 */ t35509.tag = EXTERNAL_SYMBOL_TYPE; t35509.value.external_symbol_type = t35507; t35510.tag = EXTERNAL_SYMBOL_TYPE; t35510.value.external_symbol_type = t35508; if (f26160(t35509, t35510)==FALSE_TYPE) goto l5138; /* x149682 */ /* x149681 */ t36362 = p15932; p16000 = t36362; /* x149680 stalin.sc:20161:705519 */ /* x149679 stalin.sc:20172:705899 */ /* x149673 stalin.sc:20172:705903 */ /* x149672 stalin.sc:20172:705924 */ t36398 = p16000->p15922->a27041; /* x149671 stalin.sc:20172:705904 */ if (f6956(t36398)==FALSE_TYPE) goto l5325; /* x149676 stalin.sc:20172:705927 */ /* x149675 stalin.sc:20172:705943 */ t36399 = p16000->p15922->a27040; /* x149674 stalin.sc:20172:705928 */ /* MOVE: branching squeezed to general */ if (t36399>=((struct structure_type27501 *)VALUE_OFFSET)) {t36400.tag = STRUCTURE_TYPE27501; t36400.value.structure_type27501 = t36399;} else t36400.tag = (unsigned)t36399; t36364 = f15342(t36400); goto l5326; l5325: /* x149678 stalin.sc:20172:705946 */ /* x149677 stalin.sc:20172:705947 */ /* x276851 stalin.sc:14693:514793 */ t36364.tag = STRING_TYPE; t36364.value.string_type = ""; l5326: /* x149670 stalin.sc:20162:705539 */ /* x149666 stalin.sc:20162:705548 */ /* x149651 stalin.sc:20162:705552 */ /* x149641 stalin.sc:20162:705557 */ /* x149640 stalin.sc:20162:705561 */ /* x149639 stalin.sc:20162:705569 */ /* x149638 stalin.sc:20162:705590 */ t36372 = p16000->p15922->a27041; /* x149637 stalin.sc:20162:705570 */ a39138 = t36372; /* x289221 */ /* x289220 */ t36373 = a39138; /* x289219 */ if (!((t36373.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34055]"); structure_ref_error();} t36370 = t36373.value.structure_type27698->s16; /* x149636 stalin.sc:20162:705562 */ a41737 = t36370; /* x301060 stalin.sc:3890:131852 */ /* x301059 stalin.sc:3890:131869 */ t36371 = a41737; /* x301058 stalin.sc:3890:131853 */ if (!(f8204(t36371)==FALSE_TYPE)) goto l5320; p16001 = p16000->p15922; /* x149633 */ /* x149632 stalin.sc:20163:705598 */ /* x149631 stalin.sc:20163:705607 */ /* x149630 stalin.sc:20163:705628 */ t36376 = p16001->a27041; /* x149629 stalin.sc:20163:705608 */ a39137 = t36376; /* x289217 */ /* x289216 */ t36377 = a39137; /* x289215 */ if (!((t36377.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34054]"); structure_ref_error();} t36374 = t36377.value.structure_type27698->s16; /* x149628 stalin.sc:20163:705599 */ a41698 = t36374; /* x300904 stalin.sc:3916:132554 */ /* x300903 stalin.sc:3916:132572 */ t36375 = a41698; /* x300902 stalin.sc:3916:132555 */ if (!(f8209(t36375)==FALSE_TYPE)) goto l5320; p16002 = p16001; /* x149625 */ /* x149624 stalin.sc:20164:705646 */ /* x149623 stalin.sc:20164:705667 */ t36380 = p16002->a27041; /* x149622 stalin.sc:20164:705647 */ a39136 = t36380; /* x289213 */ /* x289212 */ t36381 = a39136; /* x289211 */ if (!((t36381.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34053]"); structure_ref_error();} t36378 = t36381.value.structure_type27698->s16; /* x149621 stalin.sc:20164:705637 */ a41653 = t36378; /* x300724 stalin.sc:3965:133896 */ /* x300723 stalin.sc:3965:133915 */ t36379 = a41653; /* x300722 stalin.sc:3965:133897 */ if (f8219(t36379)==FALSE_TYPE) goto l5318; l5320: /* x149649 */ /* x149644 stalin.sc:20165:705679 */ /* x149643 stalin.sc:20165:705702 */ t36382 = p16000->p15922->a27041; /* x149642 stalin.sc:20165:705680 */ if (f6984(t36382)==FALSE_TYPE) goto l5318; /* x149647 */ /* x149646 stalin.sc:20166:705723 */ t36383 = p16000->p15922->a27041; /* x149645 stalin.sc:20166:705713 */ if (f6967(t36383)==FALSE_TYPE) goto l5318; /* x149664 stalin.sc:20167:705736 */ /* x149657 stalin.sc:20168:705763 */ /* x149656 stalin.sc:20168:705782 */ /* x149655 stalin.sc:20168:705803 */ t36390 = p16000->p15922->a27041; /* x149654 stalin.sc:20168:705783 */ a39134 = t36390; /* x289205 */ /* x289204 */ t36391 = a39134; /* x289203 */ if (!((t36391.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34051]"); structure_ref_error();} t36388 = t36391.value.structure_type27698->s16; /* x149653 stalin.sc:20168:705764 */ a36861 = t36388; /* x280113 */ /* x280112 */ t36389 = a36861; /* x280111 */ if (!((t36389.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31778]"); structure_ref_error();} t36384 = t36389.value.structure_type27692->s9; /* x149663 stalin.sc:20169:705810 */ /* x149661 stalin.sc:20169:705820 */ /* x149660 stalin.sc:20169:705841 */ t36394 = p16000->p15922->a27041; /* x149659 stalin.sc:20169:705821 */ a39135 = t36394; /* x289209 */ /* x289208 */ t36395 = a39135; /* x289207 */ if (!((t36395.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34052]"); structure_ref_error();} t36392 = t36395.value.structure_type27698->s16; /* x149662 stalin.sc:20169:705844 */ t36393 = p16000->a27044; /* x149658 stalin.sc:20169:705811 */ t36385 = f14754(t36392, t36393); /* x149652 stalin.sc:20167:705737 */ t36386 = *((struct w49 *)(&t36385)); t36387 = f7025(t36384, t36386); t36368 = t36387; goto l5319; l5318: /* x149665 stalin.sc:20170:705857 */ t36368 = a1194; l5319: /* x149669 stalin.sc:20171:705873 */ /* x149668 stalin.sc:20171:705892 */ t36396 = p16000->p15922->a27041; /* x149667 stalin.sc:20171:705874 */ a39065 = t36396; /* x288929 */ /* x288928 */ t36397 = a39065; /* x288927 */ if (!((t36397.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33982]"); structure_ref_error();} t36369 = t36397.value.structure_type27698->s17; /* x149616 stalin.sc:20162:705540 */ t36363 = f15922(t36368, t36369); /* x149615 stalin.sc:20161:705520 */ t36367.tag = STRUCTURE_TYPE24753; t36367.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36367.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20161, 705519); out_of_memory_error();} t36367.value.structure_type24753->s0 = t36364; t36367.value.structure_type24753->s1.tag = NULL_TYPE; a41924 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41924==NULL) {backtrace("stalin.sc", 20161, 705519); out_of_memory_error();} a41924->s0 = t36363; a41924->s1 = t36367; /* x301808 stalin.sc:14400:506485 */ /* x301807 stalin.sc:14400:506503 */ t36365 = a41924; /* x301806 stalin.sc:14400:506486 */ t36366.tag = STRUCTURE_TYPE24753; t36366.value.structure_type24753 = t36365; t35305 = f13492(t36366); goto l5139; l5138: /* x151097 */ /* x149686 */ /* x149684 */ t35511 = a27051; /* x149685 */ t35512 = q43; /* x149683 */ t35513.tag = EXTERNAL_SYMBOL_TYPE; t35513.value.external_symbol_type = t35511; t35514.tag = EXTERNAL_SYMBOL_TYPE; t35514.value.external_symbol_type = t35512; if (f26160(t35513, t35514)==FALSE_TYPE) goto l5141; /* x150064 */ /* x150063 */ t36039 = p15932->p15922; p16003 = t36039; /* x150062 stalin.sc:20174:705967 */ /* x149694 stalin.sc:20174:705971 */ /* x149689 stalin.sc:20174:705976 */ /* x149688 stalin.sc:20174:705989 */ t36040 = p16003->a27040; /* x149687 stalin.sc:20174:705977 */ /* MOVE: branching squeezed to general */ if (t36040>=((struct structure_type27501 *)VALUE_OFFSET)) {t36041.tag = STRUCTURE_TYPE27501; t36041.value.structure_type27501 = t36040;} else t36041.tag = (unsigned)t36040; if (f7032(t36041)==FALSE_TYPE) goto l5269; /* x149692 */ /* x149691 stalin.sc:20174:706009 */ t36042 = p16003->a27041; /* x149690 stalin.sc:20174:705993 */ if (f15912(t36042)==FALSE_TYPE) goto l5269; /* x149822 stalin.sc:20175:706019 */ /* x149699 stalin.sc:20175:706023 */ /* x149698 stalin.sc:20175:706033 */ /* x149697 stalin.sc:20175:706056 */ t36258 = p16003->a27041; /* x149696 stalin.sc:20175:706034 */ a38964 = t36258; /* x288525 */ /* x288524 */ t36259 = a38964; /* x288523 */ if (!((t36259.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33881]"); structure_ref_error();} t36257 = t36259.value.structure_type27698->s19; /* x149695 stalin.sc:20175:706024 */ if (f6961(t36257)==FALSE_TYPE) goto l5303; /* x149793 stalin.sc:20176:706063 */ /* x149704 stalin.sc:20176:706067 */ /* x149703 stalin.sc:20176:706077 */ /* x149702 stalin.sc:20176:706099 */ t36282 = p16003->a27041; /* x149701 stalin.sc:20176:706078 */ a38908 = t36282; /* x288301 */ /* x288300 */ t36283 = a38908; /* x288299 */ if (!((t36283.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33825]"); structure_ref_error();} t36281 = t36283.value.structure_type27698->s20; /* x149700 stalin.sc:20176:706068 */ if (f6961(t36281)==FALSE_TYPE) goto l5309; /* x149749 stalin.sc:20177:706110 */ /* x149748 stalin.sc:20177:706121 */ /* x149747 stalin.sc:20177:706122 */ t36323 = f15753(); /* x149746 */ t36322 = p16003; p16004 = t36322; a27089 = t36323; /* x149745 */ /* x149744 stalin.sc:20178:706149 */ /* x149738 stalin.sc:20179:706173 */ /* x149737 stalin.sc:20179:706196 */ t36358 = p16004->a27041; /* x149736 stalin.sc:20179:706174 */ a39011 = t36358; /* x288713 */ /* x288712 */ t36359 = a39011; /* x288711 */ if (!((t36359.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33928]"); structure_ref_error();} t36352 = t36359.value.structure_type27698->s18; /* x149739 stalin.sc:20180:706203 */ t36353 = a27089; /* x149742 stalin.sc:20181:706210 */ /* x149741 stalin.sc:20181:706221 */ t36360 = p16004->a27040; /* x149740 stalin.sc:20181:706211 */ a38359 = t36360; /* x286105 */ /* x286104 */ t36361 = a38359; /* x286103 */ if (!(t36361>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L2[5785] 33276]"); structure_ref_error();} t36354 = t36361->s5; /* x149743 stalin.sc:20181:706224 */ t36355 = a27089; /* x149735 stalin.sc:20178:706150 */ t36356.tag = STRUCTURE_TYPE24753; t36356.value.structure_type24753 = t36353; t36357.tag = STRUCTURE_TYPE24753; t36357.value.structure_type24753 = t36355; t36325 = f15911(t36352, t36356, t36354, t36357); /* x149734 */ t36324 = p16004; p16005 = t36324; a27090 = t36325; /* x149733 */ /* x149732 */ t36326 = p16005; p16006 = t36326; /* x149731 stalin.sc:20182:706238 */ /* x149730 stalin.sc:20185:706324 */ /* x149720 stalin.sc:20185:706344 */ /* x149719 stalin.sc:20185:706367 */ t36344 = p16006->a27041; /* x149718 stalin.sc:20185:706345 */ a38959 = t36344; /* x288505 */ /* x288504 */ t36345 = a38959; /* x288503 */ if (!((t36345.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33876]"); structure_ref_error();} t36340 = t36345.value.structure_type27698->s19; /* x149723 stalin.sc:20186:706378 */ /* x149722 stalin.sc:20186:706389 */ t36346 = p16006->a27040; /* x149721 stalin.sc:20186:706379 */ a38371 = t36346; /* x286153 */ /* x286152 */ t36347 = a38371; /* x286151 */ if (!(t36347>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L1[5777] 33288]"); structure_ref_error();} t36341 = t36347->s4; /* x149726 stalin.sc:20187:706400 */ /* x149725 stalin.sc:20187:706411 */ t36348 = p16006->a27040; /* x149724 stalin.sc:20187:706401 */ a38356 = t36348; /* x286093 */ /* x286092 */ t36349 = a38356; /* x286091 */ if (!(t36349>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L2[5785] 33273]"); structure_ref_error();} t36342 = t36349->s5; /* x149729 stalin.sc:20188:706422 */ /* x149728 stalin.sc:20188:706433 */ t36350 = p16006->a27040; /* x149727 stalin.sc:20188:706423 */ a38344 = t36350; /* x286045 */ /* x286044 */ t36351 = a38344; /* x286043 */ if (!(t36351>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L0[5793] 33261]"); structure_ref_error();} t36343 = t36351->s6; /* x149717 stalin.sc:20185:706325 */ t36329 = f15911(t36340, t36341, t36342, t36343); /* x149716 stalin.sc:20184:706275 */ /* x149710 stalin.sc:20184:706279 */ /* x149708 stalin.sc:20184:706290 */ t36334 = a27090; /* x149709 stalin.sc:20184:706292 */ t36335 = a27089; /* x149707 stalin.sc:20184:706280 */ if (f15763(t36334, t36335)==FALSE_TYPE) goto l5315; /* x149713 stalin.sc:20184:706296 */ /* x149712 stalin.sc:20184:706301 */ t36336 = a27089; /* x149711 stalin.sc:20184:706297 */ a41281 = t36336; /* x299236 stalin.sc:14702:515041 */ /* x299235 stalin.sc:14702:515054 */ t36337 = a41281; /* x299234 stalin.sc:14702:515042 */ t36338.tag = STRUCTURE_TYPE24753; t36338.value.structure_type24753 = t36337; t36339 = f13515(t36338); t36328.tag = STRUCTURE_TYPE24753; t36328.value.structure_type24753 = t36339; goto l5316; l5315: /* x149715 stalin.sc:20184:706305 */ /* x149714 stalin.sc:20184:706306 */ /* x276837 stalin.sc:14693:514793 */ t36328.tag = STRING_TYPE; t36328.value.string_type = ""; l5316: /* x149706 stalin.sc:20183:706264 */ t36327 = a27090; /* x149705 stalin.sc:20182:706239 */ t36333.tag = STRUCTURE_TYPE24753; t36333.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36333.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20182, 706238); out_of_memory_error();} t36333.value.structure_type24753->s0 = t36329; t36333.value.structure_type24753->s1.tag = NULL_TYPE; t36332.tag = STRUCTURE_TYPE24753; t36332.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36332.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20182, 706238); out_of_memory_error();} t36332.value.structure_type24753->s0 = *((struct w49 *)(&t36328)); t36332.value.structure_type24753->s1 = t36333; a41925 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41925==NULL) {backtrace("stalin.sc", 20182, 706238); out_of_memory_error();} a41925->s0 = t36327; a41925->s1 = t36332; /* x301812 stalin.sc:14400:506485 */ /* x301811 stalin.sc:14400:506503 */ t36330 = a41925; /* x301810 stalin.sc:14400:506486 */ t36331.tag = STRUCTURE_TYPE24753; t36331.value.structure_type24753 = t36330; t35305 = f13492(t36331); goto l5310; l5309: /* x149792 stalin.sc:20189:706446 */ /* x149791 stalin.sc:20189:706457 */ /* x149790 stalin.sc:20189:706458 */ t36285 = f15753(); /* x149789 */ t36284 = p16003; p16007 = t36284; a27091 = t36285; /* x149788 */ /* x149787 stalin.sc:20190:706485 */ /* x149783 stalin.sc:20191:706509 */ /* x149782 stalin.sc:20191:706532 */ t36320 = p16007->a27041; /* x149781 stalin.sc:20191:706510 */ a39012 = t36320; /* x288717 */ /* x288716 */ t36321 = a39012; /* x288715 */ if (!((t36321.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33929]"); structure_ref_error();} t36314 = t36321.value.structure_type27698->s18; /* x149784 stalin.sc:20191:706535 */ t36315 = a27091; /* x149785 stalin.sc:20191:706538 */ /* x149786 stalin.sc:20191:706541 */ t36316 = a27091; /* x149780 stalin.sc:20190:706486 */ t36317.tag = STRUCTURE_TYPE24753; t36317.value.structure_type24753 = t36315; t36318.tag = FALSE_TYPE; t36319.tag = STRUCTURE_TYPE24753; t36319.value.structure_type24753 = t36316; t36287 = f15911(t36314, t36317, t36318, t36319); /* x149779 */ t36286 = p16007; p16008 = t36286; a27092 = t36287; /* x149778 */ /* x149777 */ t36288 = p16008; p16009 = t36288; /* x149776 stalin.sc:20192:706555 */ /* x149775 stalin.sc:20195:706641 */ /* x149765 stalin.sc:20195:706661 */ /* x149764 stalin.sc:20195:706684 */ t36306 = p16009->a27041; /* x149763 stalin.sc:20195:706662 */ a38960 = t36306; /* x288509 */ /* x288508 */ t36307 = a38960; /* x288507 */ if (!((t36307.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33877]"); structure_ref_error();} t36302 = t36307.value.structure_type27698->s19; /* x149768 stalin.sc:20196:706695 */ /* x149767 stalin.sc:20196:706706 */ t36308 = p16009->a27040; /* x149766 stalin.sc:20196:706696 */ a38372 = t36308; /* x286157 */ /* x286156 */ t36309 = a38372; /* x286155 */ if (!(t36309>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L1[5777] 33289]"); structure_ref_error();} t36303 = t36309->s4; /* x149771 stalin.sc:20197:706717 */ /* x149770 stalin.sc:20197:706728 */ t36310 = p16009->a27040; /* x149769 stalin.sc:20197:706718 */ a38357 = t36310; /* x286097 */ /* x286096 */ t36311 = a38357; /* x286095 */ if (!(t36311>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L2[5785] 33274]"); structure_ref_error();} t36304 = t36311->s5; /* x149774 stalin.sc:20198:706739 */ /* x149773 stalin.sc:20198:706750 */ t36312 = p16009->a27040; /* x149772 stalin.sc:20198:706740 */ a38345 = t36312; /* x286049 */ /* x286048 */ t36313 = a38345; /* x286047 */ if (!(t36313>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L0[5793] 33262]"); structure_ref_error();} t36305 = t36313->s6; /* x149762 stalin.sc:20195:706642 */ t36291 = f15911(t36302, t36303, t36304, t36305); /* x149761 stalin.sc:20194:706592 */ /* x149755 stalin.sc:20194:706596 */ /* x149753 stalin.sc:20194:706607 */ t36296 = a27092; /* x149754 stalin.sc:20194:706609 */ t36297 = a27091; /* x149752 stalin.sc:20194:706597 */ if (f15763(t36296, t36297)==FALSE_TYPE) goto l5312; /* x149758 stalin.sc:20194:706613 */ /* x149757 stalin.sc:20194:706618 */ t36298 = a27091; /* x149756 stalin.sc:20194:706614 */ a41282 = t36298; /* x299240 stalin.sc:14702:515041 */ /* x299239 stalin.sc:14702:515054 */ t36299 = a41282; /* x299238 stalin.sc:14702:515042 */ t36300.tag = STRUCTURE_TYPE24753; t36300.value.structure_type24753 = t36299; t36301 = f13515(t36300); t36290.tag = STRUCTURE_TYPE24753; t36290.value.structure_type24753 = t36301; goto l5313; l5312: /* x149760 stalin.sc:20194:706622 */ /* x149759 stalin.sc:20194:706623 */ /* x276839 stalin.sc:14693:514793 */ t36290.tag = STRING_TYPE; t36290.value.string_type = ""; l5313: /* x149751 stalin.sc:20193:706581 */ t36289 = a27092; /* x149750 stalin.sc:20192:706556 */ t36295.tag = STRUCTURE_TYPE24753; t36295.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36295.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20192, 706555); out_of_memory_error();} t36295.value.structure_type24753->s0 = t36291; t36295.value.structure_type24753->s1.tag = NULL_TYPE; t36294.tag = STRUCTURE_TYPE24753; t36294.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36294.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20192, 706555); out_of_memory_error();} t36294.value.structure_type24753->s0 = *((struct w49 *)(&t36290)); t36294.value.structure_type24753->s1 = t36295; a41926 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41926==NULL) {backtrace("stalin.sc", 20192, 706555); out_of_memory_error();} a41926->s0 = t36289; a41926->s1 = t36294; /* x301816 stalin.sc:14400:506485 */ /* x301815 stalin.sc:14400:506503 */ t36292 = a41926; /* x301814 stalin.sc:14400:506486 */ t36293.tag = STRUCTURE_TYPE24753; t36293.value.structure_type24753 = t36292; t35305 = f13492(t36293); l5310: goto l5304; l5303: /* x149821 stalin.sc:20199:706760 */ /* x149798 stalin.sc:20199:706764 */ /* x149797 stalin.sc:20199:706774 */ /* x149796 stalin.sc:20199:706796 */ t36261 = p16003->a27041; /* x149795 stalin.sc:20199:706775 */ a38909 = t36261; /* x288305 */ /* x288304 */ t36262 = a38909; /* x288303 */ if (!((t36262.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33826]"); structure_ref_error();} t36260 = t36262.value.structure_type27698->s20; /* x149794 stalin.sc:20199:706765 */ if (f6961(t36260)==FALSE_TYPE) goto l5306; /* x149810 stalin.sc:20200:706807 */ /* x149802 stalin.sc:20201:706835 */ /* x149801 stalin.sc:20201:706858 */ t36275 = p16003->a27041; /* x149800 stalin.sc:20201:706836 */ a39013 = t36275; /* x288721 */ /* x288720 */ t36276 = a39013; /* x288719 */ if (!((t36276.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33930]"); structure_ref_error();} t36271 = t36276.value.structure_type27698->s18; /* x149803 stalin.sc:20201:706861 */ /* x149806 stalin.sc:20201:706864 */ /* x149805 stalin.sc:20201:706875 */ t36277 = p16003->a27040; /* x149804 stalin.sc:20201:706865 */ a38360 = t36277; /* x286109 */ /* x286108 */ t36278 = a38360; /* x286107 */ if (!(t36278>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L2[5785] 33277]"); structure_ref_error();} t36272 = t36278->s5; /* x149809 stalin.sc:20201:706878 */ /* x149808 stalin.sc:20201:706889 */ t36279 = p16003->a27040; /* x149807 stalin.sc:20201:706879 */ a38348 = t36279; /* x286061 */ /* x286060 */ t36280 = a38348; /* x286059 */ if (!(t36280>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L0[5793] 33265]"); structure_ref_error();} t36273 = t36280->s6; /* x149799 stalin.sc:20200:706808 */ t36274.tag = FALSE_TYPE; t35305 = f15911(t36271, t36274, t36272, t36273); goto l5307; l5306: /* x149820 stalin.sc:20202:706900 */ /* x149814 stalin.sc:20203:706928 */ /* x149813 stalin.sc:20203:706951 */ t36267 = p16003->a27041; /* x149812 stalin.sc:20203:706929 */ a39014 = t36267; /* x288725 */ /* x288724 */ t36268 = a39014; /* x288723 */ if (!((t36268.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33931]"); structure_ref_error();} t36263 = t36268.value.structure_type27698->s18; /* x149815 stalin.sc:20203:706954 */ /* x149816 stalin.sc:20203:706957 */ /* x149819 stalin.sc:20203:706960 */ /* x149818 stalin.sc:20203:706971 */ t36269 = p16003->a27040; /* x149817 stalin.sc:20203:706961 */ a38349 = t36269; /* x286065 */ /* x286064 */ t36270 = a38349; /* x286063 */ if (!(t36270>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L0[5793] 33266]"); structure_ref_error();} t36264 = t36270->s6; /* x149811 stalin.sc:20202:706901 */ t36265.tag = FALSE_TYPE; t36266.tag = FALSE_TYPE; t35305 = f15911(t36263, t36265, t36266, t36264); l5307: l5304: goto l5270; l5269: /* x150061 stalin.sc:20204:706983 */ /* x150060 stalin.sc:20204:706992 */ /* x150059 stalin.sc:20204:707013 */ /* x150058 stalin.sc:20204:707036 */ t36255 = p16003->a27041; /* x150057 stalin.sc:20204:707014 */ a39021 = t36255; /* x288753 */ /* x288752 */ t36256 = a39021; /* x288751 */ if (!((t36256.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33938]"); structure_ref_error();} t36253 = t36256.value.structure_type27698->s18; /* x150056 stalin.sc:20204:706993 */ a39973 = t36253; /* x292561 */ /* x292560 */ t36254 = a39973; /* x292559 */ if (!((t36254.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34890]"); structure_ref_error();} /* x150055 */ t36043 = p16003; p16010 = t36043; /* x150054 stalin.sc:20205:707049 */ /* x149827 stalin.sc:20205:707053 */ /* x149826 stalin.sc:20205:707063 */ /* x149825 stalin.sc:20205:707086 */ t36046 = p16010->a27041; /* x149824 stalin.sc:20205:707064 */ a38966 = t36046; /* x288533 */ /* x288532 */ t36047 = a38966; /* x288531 */ if (!((t36047.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33883]"); structure_ref_error();} t36045 = t36047.value.structure_type27698->s19; /* x149823 stalin.sc:20205:707054 */ if (f6961(t36045)==FALSE_TYPE) goto l5273; /* x149989 stalin.sc:20206:707094 */ /* x149832 stalin.sc:20206:707098 */ /* x149831 stalin.sc:20206:707108 */ /* x149830 stalin.sc:20206:707130 */ t36100 = p16010->a27041; /* x149829 stalin.sc:20206:707109 */ a38911 = t36100; /* x288313 */ /* x288312 */ t36101 = a38911; /* x288311 */ if (!((t36101.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33828]"); structure_ref_error();} t36099 = t36101.value.structure_type27698->s20; /* x149828 stalin.sc:20206:707099 */ if (f6961(t36099)==FALSE_TYPE) goto l5285; /* x149953 stalin.sc:20207:707142 */ /* x149845 stalin.sc:20207:707146 */ /* x149844 stalin.sc:20207:707150 */ /* x149843 stalin.sc:20207:707159 */ t36132 = p16010->a27040; /* x149842 stalin.sc:20207:707151 */ /* MOVE: branching squeezed to general */ if (t36132>=((struct structure_type27501 *)VALUE_OFFSET)) {t36133.tag = STRUCTURE_TYPE27501; t36133.value.structure_type27501 = t36132;} else t36133.tag = (unsigned)t36132; if (!(f7030(t36133)==FALSE_TYPE)) goto l5290; p16011 = p16010; /* x149839 */ /* x149838 stalin.sc:20229:708281 */ /* x149837 stalin.sc:20229:708304 */ t36150 = p16011->a27041; /* x149836 stalin.sc:20229:708282 */ a38965 = t36150; /* x288529 */ /* x288528 */ t36151 = a38965; /* x288527 */ if (!((t36151.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33882]"); structure_ref_error();} t36134 = t36151.value.structure_type27698->s19; /* x149835 stalin.sc:20228:708247 */ a20944 = t36134; e6989 = (struct p6989 *)alloca(sizeof(struct p6989)); if (e6989==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e6989->a20944 = a20944; /* x59038 stalin.sc:850:26758 */ /* x58991 stalin.sc:851:26765 */ /* x58990 stalin.sc:851:26769 */ /* x58988 stalin.sc:851:26774 */ /* x58987 stalin.sc:851:26791 */ t36137 = e6989->a20944; /* x58986 stalin.sc:851:26775 */ a40306 = t36137; /* x293893 */ /* x293892 */ t36138 = a40306; /* x293891 */ if (!((t36138.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35223]"); structure_ref_error();} t36135 = t36138.value.structure_type27698->s0; /* x58989 stalin.sc:851:26794 */ t36136 = q36; /* x270721 stalin.sc:851:26770 */ if (t36135==t36136) goto l5294; p6990 = e6989; /* x58982 */ /* x58980 stalin.sc:852:26812 */ /* x58979 stalin.sc:852:26829 */ t36141 = p6990->a20944; /* x58978 stalin.sc:852:26813 */ a40305 = t36141; /* x293889 */ /* x293888 */ t36142 = a40305; /* x293887 */ if (!((t36142.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35222]"); structure_ref_error();} t36139 = t36142.value.structure_type27698->s0; /* x58981 stalin.sc:852:26832 */ t36140 = q37; /* x270722 stalin.sc:852:26808 */ if (!(t36139==t36140)) goto l5291; l5294: /* x59036 */ /* x59030 stalin.sc:854:26865 */ t36143 = e6989; /* x59035 stalin.sc:860:27153 */ /* x59034 stalin.sc:860:27174 */ /* x59033 stalin.sc:860:27193 */ t36148 = e6989->a20944; /* x59032 stalin.sc:860:27175 */ a38659 = t36148; /* x287305 */ /* x287304 */ t36149 = a38659; /* x287303 */ if (!((t36149.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33576]"); structure_ref_error();} t36146 = t36149.value.structure_type27698->s21; /* x59031 stalin.sc:860:27154 */ a39971 = t36146; /* x292553 */ /* x292552 */ t36147 = a39971; /* x292551 */ if (!((t36147.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34888]"); structure_ref_error();} t36144 = t36147.value.structure_type27698->s10; /* x58992 stalin.sc:853:26853 */ t36145.tag = NATIVE_PROCEDURE_TYPE18533; t36145.value.native_procedure_type18533 = t36143; if (f8146(t36145, t36144)==FALSE_TYPE) goto l5291; l5290: /* x149893 stalin.sc:20230:708314 */ /* x149892 stalin.sc:20230:708325 */ /* x149891 stalin.sc:20230:708326 */ t36210 = f15753(); /* x149890 */ t36209 = p16010; p16012 = t36209; a27095 = t36210; /* x149889 */ /* x149888 stalin.sc:20231:708352 */ /* x149887 stalin.sc:20231:708353 */ t36212 = f15753(); /* x149886 */ t36211 = p16012; p16013 = t36211; a27096 = t36212; /* x149885 */ /* x149884 stalin.sc:20232:708378 */ /* x149880 stalin.sc:20233:708407 */ /* x149879 stalin.sc:20233:708430 */ t36251 = p16013->a27041; /* x149878 stalin.sc:20233:708408 */ a39015 = t36251; /* x288729 */ /* x288728 */ t36252 = a39015; /* x288727 */ if (!((t36252.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33932]"); structure_ref_error();} t36244 = t36252.value.structure_type27698->s18; /* x149881 stalin.sc:20233:708433 */ t36245 = a27095; /* x149882 stalin.sc:20233:708436 */ t36246 = a27096; /* x149883 stalin.sc:20233:708439 */ t36247 = a27095; /* x149877 stalin.sc:20232:708379 */ t36248.tag = STRUCTURE_TYPE24753; t36248.value.structure_type24753 = t36245; t36249.tag = STRUCTURE_TYPE24753; t36249.value.structure_type24753 = t36246; t36250.tag = STRUCTURE_TYPE24753; t36250.value.structure_type24753 = t36247; t36214 = f15911(t36244, t36248, t36249, t36250); /* x149876 */ t36213 = p16013; p16014 = t36213; a27097 = t36214; /* x149875 */ /* x149874 */ t36215 = p16014; p16015 = t36215; /* x149873 stalin.sc:20234:708451 */ /* x149872 stalin.sc:20239:708592 */ /* x149868 stalin.sc:20239:708601 */ t36240 = p16015->a27040; /* x149871 stalin.sc:20239:708603 */ /* x149870 stalin.sc:20239:708625 */ t36242 = p16015->a27041; /* x149869 stalin.sc:20239:708604 */ a38905 = t36242; /* x288289 */ /* x288288 */ t36243 = a38905; /* x288287 */ if (!((t36243.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33822]"); structure_ref_error();} t36241 = t36243.value.structure_type27698->s20; /* x149867 stalin.sc:20239:708593 */ t36220 = f15922(t36240, t36241); /* x149866 stalin.sc:20238:708576 */ /* x149865 stalin.sc:20238:708581 */ t36237 = a27096; /* x149864 stalin.sc:20238:708577 */ a41284 = t36237; /* x299248 stalin.sc:14702:515041 */ /* x299247 stalin.sc:14702:515054 */ t36238 = a41284; /* x299246 stalin.sc:14702:515042 */ t36239.tag = STRUCTURE_TYPE24753; t36239.value.structure_type24753 = t36238; t36219 = f13515(t36239); /* x149863 stalin.sc:20237:708531 */ /* x149859 stalin.sc:20237:708540 */ t36233 = p16015->a27040; /* x149862 stalin.sc:20237:708542 */ /* x149861 stalin.sc:20237:708565 */ t36235 = p16015->a27041; /* x149860 stalin.sc:20237:708543 */ a38961 = t36235; /* x288513 */ /* x288512 */ t36236 = a38961; /* x288511 */ if (!((t36236.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33878]"); structure_ref_error();} t36234 = t36236.value.structure_type27698->s19; /* x149858 stalin.sc:20237:708532 */ t36218 = f15922(t36233, t36234); /* x149857 stalin.sc:20236:708484 */ /* x149851 stalin.sc:20236:708488 */ /* x149849 stalin.sc:20236:708499 */ t36227 = a27097; /* x149850 stalin.sc:20236:708501 */ t36228 = a27095; /* x149848 stalin.sc:20236:708489 */ if (f15763(t36227, t36228)==FALSE_TYPE) goto l5300; /* x149854 stalin.sc:20236:708505 */ /* x149853 stalin.sc:20236:708510 */ t36229 = a27095; /* x149852 stalin.sc:20236:708506 */ a41283 = t36229; /* x299244 stalin.sc:14702:515041 */ /* x299243 stalin.sc:14702:515054 */ t36230 = a41283; /* x299242 stalin.sc:14702:515042 */ t36231.tag = STRUCTURE_TYPE24753; t36231.value.structure_type24753 = t36230; t36232 = f13515(t36231); t36217.tag = STRUCTURE_TYPE24753; t36217.value.structure_type24753 = t36232; goto l5301; l5300: /* x149856 stalin.sc:20236:708514 */ /* x149855 stalin.sc:20236:708515 */ /* x276841 stalin.sc:14693:514793 */ t36217.tag = STRING_TYPE; t36217.value.string_type = ""; l5301: /* x149847 stalin.sc:20235:708475 */ t36216 = a27097; /* x149846 stalin.sc:20234:708452 */ t36226.tag = STRUCTURE_TYPE24753; t36226.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36226.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20234, 708451); out_of_memory_error();} t36226.value.structure_type24753->s0 = t36220; t36226.value.structure_type24753->s1.tag = NULL_TYPE; t36225.tag = STRUCTURE_TYPE24753; t36225.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36225.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20234, 708451); out_of_memory_error();} t36225.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t36225.value.structure_type24753->s0.value.structure_type24753 = t36219; t36225.value.structure_type24753->s1 = t36226; t36224.tag = STRUCTURE_TYPE24753; t36224.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36224.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20234, 708451); out_of_memory_error();} t36224.value.structure_type24753->s0 = t36218; t36224.value.structure_type24753->s1 = t36225; t36223.tag = STRUCTURE_TYPE24753; t36223.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36223.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20234, 708451); out_of_memory_error();} t36223.value.structure_type24753->s0 = *((struct w49 *)(&t36217)); t36223.value.structure_type24753->s1 = t36224; a41927 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41927==NULL) {backtrace("stalin.sc", 20234, 708451); out_of_memory_error();} a41927->s0 = t36216; a41927->s1 = t36223; /* x301820 stalin.sc:14400:506485 */ /* x301819 stalin.sc:14400:506503 */ t36221 = a41927; /* x301818 stalin.sc:14400:506486 */ t36222.tag = STRUCTURE_TYPE24753; t36222.value.structure_type24753 = t36221; t35305 = f13492(t36222); goto l5292; l5291: /* x149952 stalin.sc:20240:708636 */ /* x149951 stalin.sc:20240:708647 */ /* x149950 stalin.sc:20240:708648 */ t36153 = f15753(); /* x149949 */ t36152 = p16010; p16016 = t36152; a27098 = t36153; /* x149948 */ /* x149947 stalin.sc:20241:708674 */ /* x149946 stalin.sc:20241:708675 */ t36155 = f15753(); /* x149945 */ t36154 = p16016; p16017 = t36154; a27099 = t36155; /* x149944 */ /* x149943 stalin.sc:20242:708701 */ /* x149942 stalin.sc:20242:708702 */ t36157 = f15753(); /* x149941 */ t36156 = p16017; p16018 = t36156; a27100 = t36157; /* x149940 */ /* x149939 stalin.sc:20243:708727 */ /* x149935 stalin.sc:20244:708756 */ /* x149934 stalin.sc:20244:708779 */ t36207 = p16018->a27041; /* x149933 stalin.sc:20244:708757 */ a39016 = t36207; /* x288733 */ /* x288732 */ t36208 = a39016; /* x288731 */ if (!((t36208.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33933]"); structure_ref_error();} t36200 = t36208.value.structure_type27698->s18; /* x149936 stalin.sc:20244:708782 */ t36201 = a27098; /* x149937 stalin.sc:20244:708785 */ t36202 = a27099; /* x149938 stalin.sc:20244:708788 */ t36203 = a27098; /* x149932 stalin.sc:20243:708728 */ t36204.tag = STRUCTURE_TYPE24753; t36204.value.structure_type24753 = t36201; t36205.tag = STRUCTURE_TYPE24753; t36205.value.structure_type24753 = t36202; t36206.tag = STRUCTURE_TYPE24753; t36206.value.structure_type24753 = t36203; t36159 = f15911(t36200, t36204, t36205, t36206); /* x149931 */ t36158 = p16018; p16019 = t36158; a27101 = t36159; /* x149930 */ /* x149929 */ t36160 = p16019; p16020 = t36160; /* x149928 stalin.sc:20245:708800 */ /* x149927 stalin.sc:20252:709013 */ /* x149926 stalin.sc:20252:709018 */ t36197 = a27100; /* x149925 stalin.sc:20252:709014 */ a41287 = t36197; /* x299260 stalin.sc:14702:515041 */ /* x299259 stalin.sc:14702:515054 */ t36198 = a41287; /* x299258 stalin.sc:14702:515042 */ t36199.tag = STRUCTURE_TYPE24753; t36199.value.structure_type24753 = t36198; t36167 = f13515(t36199); /* x149924 stalin.sc:20251:708969 */ /* x149920 stalin.sc:20251:708978 */ t36193 = p16020->a27040; /* x149923 stalin.sc:20251:708980 */ /* x149922 stalin.sc:20251:709002 */ t36195 = p16020->a27041; /* x149921 stalin.sc:20251:708981 */ a38906 = t36195; /* x288293 */ /* x288292 */ t36196 = a38906; /* x288291 */ if (!((t36196.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33823]"); structure_ref_error();} t36194 = t36196.value.structure_type27698->s20; /* x149919 stalin.sc:20251:708970 */ t36166 = f15922(t36193, t36194); /* x149918 stalin.sc:20250:708953 */ /* x149917 stalin.sc:20250:708958 */ t36190 = a27099; /* x149916 stalin.sc:20250:708954 */ a41286 = t36190; /* x299256 stalin.sc:14702:515041 */ /* x299255 stalin.sc:14702:515054 */ t36191 = a41286; /* x299254 stalin.sc:14702:515042 */ t36192.tag = STRUCTURE_TYPE24753; t36192.value.structure_type24753 = t36191; t36165 = f13515(t36192); /* x149915 stalin.sc:20249:708925 */ /* x149913 stalin.sc:20249:708939 */ t36186 = a27100; /* x149914 stalin.sc:20249:708942 */ t36187 = a27099; /* x149912 stalin.sc:20249:708926 */ t36188.tag = STRUCTURE_TYPE24753; t36188.value.structure_type24753 = t36186; t36189.tag = STRUCTURE_TYPE24753; t36189.value.structure_type24753 = t36187; t36164 = f15756(t36188, t36189); /* x149911 stalin.sc:20248:708880 */ /* x149907 stalin.sc:20248:708889 */ t36182 = p16020->a27040; /* x149910 stalin.sc:20248:708891 */ /* x149909 stalin.sc:20248:708914 */ t36184 = p16020->a27041; /* x149908 stalin.sc:20248:708892 */ a38962 = t36184; /* x288517 */ /* x288516 */ t36185 = a38962; /* x288515 */ if (!((t36185.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33879]"); structure_ref_error();} t36183 = t36185.value.structure_type27698->s19; /* x149906 stalin.sc:20248:708881 */ t36163 = f15922(t36182, t36183); /* x149905 stalin.sc:20247:708833 */ /* x149899 stalin.sc:20247:708837 */ /* x149897 stalin.sc:20247:708848 */ t36176 = a27101; /* x149898 stalin.sc:20247:708850 */ t36177 = a27098; /* x149896 stalin.sc:20247:708838 */ if (f15763(t36176, t36177)==FALSE_TYPE) goto l5297; /* x149902 stalin.sc:20247:708854 */ /* x149901 stalin.sc:20247:708859 */ t36178 = a27098; /* x149900 stalin.sc:20247:708855 */ a41285 = t36178; /* x299252 stalin.sc:14702:515041 */ /* x299251 stalin.sc:14702:515054 */ t36179 = a41285; /* x299250 stalin.sc:14702:515042 */ t36180.tag = STRUCTURE_TYPE24753; t36180.value.structure_type24753 = t36179; t36181 = f13515(t36180); t36162.tag = STRUCTURE_TYPE24753; t36162.value.structure_type24753 = t36181; goto l5298; l5297: /* x149904 stalin.sc:20247:708863 */ /* x149903 stalin.sc:20247:708864 */ /* x276843 stalin.sc:14693:514793 */ t36162.tag = STRING_TYPE; t36162.value.string_type = ""; l5298: /* x149895 stalin.sc:20246:708824 */ t36161 = a27101; /* x149894 stalin.sc:20245:708801 */ t36175.tag = STRUCTURE_TYPE24753; t36175.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36175.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20245, 708800); out_of_memory_error();} t36175.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t36175.value.structure_type24753->s0.value.structure_type24753 = t36167; t36175.value.structure_type24753->s1.tag = NULL_TYPE; t36174.tag = STRUCTURE_TYPE24753; t36174.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36174.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20245, 708800); out_of_memory_error();} t36174.value.structure_type24753->s0 = t36166; t36174.value.structure_type24753->s1 = t36175; t36173.tag = STRUCTURE_TYPE24753; t36173.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36173.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20245, 708800); out_of_memory_error();} t36173.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t36173.value.structure_type24753->s0.value.structure_type24753 = t36165; t36173.value.structure_type24753->s1 = t36174; t36172.tag = STRUCTURE_TYPE24753; t36172.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36172.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20245, 708800); out_of_memory_error();} t36172.value.structure_type24753->s0 = *((struct w49 *)(&t36164)); t36172.value.structure_type24753->s1 = t36173; t36171.tag = STRUCTURE_TYPE24753; t36171.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36171.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20245, 708800); out_of_memory_error();} t36171.value.structure_type24753->s0 = t36163; t36171.value.structure_type24753->s1 = t36172; t36170.tag = STRUCTURE_TYPE24753; t36170.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36170.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20245, 708800); out_of_memory_error();} t36170.value.structure_type24753->s0 = *((struct w49 *)(&t36162)); t36170.value.structure_type24753->s1 = t36171; a41928 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41928==NULL) {backtrace("stalin.sc", 20245, 708800); out_of_memory_error();} a41928->s0 = t36161; a41928->s1 = t36170; /* x301824 stalin.sc:14400:506485 */ /* x301823 stalin.sc:14400:506503 */ t36168 = a41928; /* x301822 stalin.sc:14400:506486 */ t36169.tag = STRUCTURE_TYPE24753; t36169.value.structure_type24753 = t36168; t35305 = f13492(t36169); l5292: goto l5286; l5285: /* x149988 stalin.sc:20253:709033 */ /* x149987 stalin.sc:20253:709044 */ /* x149986 stalin.sc:20253:709045 */ t36103 = f15753(); /* x149985 */ t36102 = p16010; p16021 = t36102; a27102 = t36103; /* x149984 */ /* x149983 stalin.sc:20254:709073 */ /* x149979 stalin.sc:20255:709098 */ /* x149978 stalin.sc:20255:709121 */ t36130 = p16021->a27041; /* x149977 stalin.sc:20255:709099 */ a39017 = t36130; /* x288737 */ /* x288736 */ t36131 = a39017; /* x288735 */ if (!((t36131.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33934]"); structure_ref_error();} t36124 = t36131.value.structure_type27698->s18; /* x149980 stalin.sc:20255:709124 */ t36125 = a27102; /* x149981 stalin.sc:20255:709127 */ /* x149982 stalin.sc:20255:709130 */ t36126 = a27102; /* x149976 stalin.sc:20254:709074 */ t36127.tag = STRUCTURE_TYPE24753; t36127.value.structure_type24753 = t36125; t36128.tag = FALSE_TYPE; t36129.tag = STRUCTURE_TYPE24753; t36129.value.structure_type24753 = t36126; t36105 = f15911(t36124, t36127, t36128, t36129); /* x149975 */ t36104 = p16021; p16022 = t36104; a27103 = t36105; /* x149974 */ /* x149973 */ t36106 = p16022; p16023 = t36106; /* x149972 stalin.sc:20256:709145 */ /* x149971 stalin.sc:20259:709213 */ /* x149967 stalin.sc:20259:709222 */ t36120 = p16023->a27040; /* x149970 stalin.sc:20259:709224 */ /* x149969 stalin.sc:20259:709247 */ t36122 = p16023->a27041; /* x149968 stalin.sc:20259:709225 */ a38963 = t36122; /* x288521 */ /* x288520 */ t36123 = a38963; /* x288519 */ if (!((t36123.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33880]"); structure_ref_error();} t36121 = t36123.value.structure_type27698->s19; /* x149966 stalin.sc:20259:709214 */ t36109 = f15922(t36120, t36121); /* x149965 stalin.sc:20258:709170 */ /* x149959 stalin.sc:20258:709174 */ /* x149957 stalin.sc:20258:709185 */ t36114 = a27103; /* x149958 stalin.sc:20258:709187 */ t36115 = a27102; /* x149956 stalin.sc:20258:709175 */ if (f15763(t36114, t36115)==FALSE_TYPE) goto l5288; /* x149962 stalin.sc:20258:709191 */ /* x149961 stalin.sc:20258:709196 */ t36116 = a27102; /* x149960 stalin.sc:20258:709192 */ a41288 = t36116; /* x299264 stalin.sc:14702:515041 */ /* x299263 stalin.sc:14702:515054 */ t36117 = a41288; /* x299262 stalin.sc:14702:515042 */ t36118.tag = STRUCTURE_TYPE24753; t36118.value.structure_type24753 = t36117; t36119 = f13515(t36118); t36108.tag = STRUCTURE_TYPE24753; t36108.value.structure_type24753 = t36119; goto l5289; l5288: /* x149964 stalin.sc:20258:709200 */ /* x149963 stalin.sc:20258:709201 */ /* x276845 stalin.sc:14693:514793 */ t36108.tag = STRING_TYPE; t36108.value.string_type = ""; l5289: /* x149955 stalin.sc:20257:709165 */ t36107 = a27103; /* x149954 stalin.sc:20256:709146 */ t36113.tag = STRUCTURE_TYPE24753; t36113.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36113.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20256, 709145); out_of_memory_error();} t36113.value.structure_type24753->s0 = t36109; t36113.value.structure_type24753->s1.tag = NULL_TYPE; t36112.tag = STRUCTURE_TYPE24753; t36112.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36112.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20256, 709145); out_of_memory_error();} t36112.value.structure_type24753->s0 = *((struct w49 *)(&t36108)); t36112.value.structure_type24753->s1 = t36113; a41929 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41929==NULL) {backtrace("stalin.sc", 20256, 709145); out_of_memory_error();} a41929->s0 = t36107; a41929->s1 = t36112; /* x301828 stalin.sc:14400:506485 */ /* x301827 stalin.sc:14400:506503 */ t36110 = a41929; /* x301826 stalin.sc:14400:506486 */ t36111.tag = STRUCTURE_TYPE24753; t36111.value.structure_type24753 = t36110; t35305 = f13492(t36111); l5286: goto l5274; l5273: /* x150053 stalin.sc:20260:709258 */ /* x149994 stalin.sc:20260:709262 */ /* x149993 stalin.sc:20260:709272 */ /* x149992 stalin.sc:20260:709294 */ t36049 = p16010->a27041; /* x149991 stalin.sc:20260:709273 */ a38912 = t36049; /* x288317 */ /* x288316 */ t36050 = a38912; /* x288315 */ if (!((t36050.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33829]"); structure_ref_error();} t36048 = t36050.value.structure_type27698->s20; /* x149990 stalin.sc:20260:709263 */ if (f6961(t36048)==FALSE_TYPE) goto l5276; /* x150029 stalin.sc:20261:709306 */ /* x150028 stalin.sc:20261:709317 */ /* x150027 stalin.sc:20261:709318 */ t36070 = f15753(); /* x150026 */ t36069 = p16010; p16024 = t36069; a27104 = t36070; /* x150025 */ /* x150024 stalin.sc:20262:709346 */ /* x150020 stalin.sc:20263:709371 */ /* x150019 stalin.sc:20263:709394 */ t36097 = p16024->a27041; /* x150018 stalin.sc:20263:709372 */ a39018 = t36097; /* x288741 */ /* x288740 */ t36098 = a39018; /* x288739 */ if (!((t36098.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33935]"); structure_ref_error();} t36091 = t36098.value.structure_type27698->s18; /* x150021 stalin.sc:20263:709397 */ /* x150022 stalin.sc:20263:709400 */ t36092 = a27104; /* x150023 stalin.sc:20263:709403 */ t36093 = a27104; /* x150017 stalin.sc:20262:709347 */ t36094.tag = FALSE_TYPE; t36095.tag = STRUCTURE_TYPE24753; t36095.value.structure_type24753 = t36092; t36096.tag = STRUCTURE_TYPE24753; t36096.value.structure_type24753 = t36093; t36072 = f15911(t36091, t36094, t36095, t36096); /* x150016 */ t36071 = p16024; p16025 = t36071; a27105 = t36072; /* x150015 */ /* x150014 */ t36073 = p16025; p16026 = t36073; /* x150013 stalin.sc:20264:709418 */ /* x150012 stalin.sc:20267:709486 */ /* x150008 stalin.sc:20267:709495 */ t36087 = p16026->a27040; /* x150011 stalin.sc:20267:709497 */ /* x150010 stalin.sc:20267:709519 */ t36089 = p16026->a27041; /* x150009 stalin.sc:20267:709498 */ a38907 = t36089; /* x288297 */ /* x288296 */ t36090 = a38907; /* x288295 */ if (!((t36090.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33824]"); structure_ref_error();} t36088 = t36090.value.structure_type27698->s20; /* x150007 stalin.sc:20267:709487 */ t36076 = f15922(t36087, t36088); /* x150006 stalin.sc:20266:709443 */ /* x150000 stalin.sc:20266:709447 */ /* x149998 stalin.sc:20266:709458 */ t36081 = a27105; /* x149999 stalin.sc:20266:709460 */ t36082 = a27104; /* x149997 stalin.sc:20266:709448 */ if (f15763(t36081, t36082)==FALSE_TYPE) goto l5282; /* x150003 stalin.sc:20266:709464 */ /* x150002 stalin.sc:20266:709469 */ t36083 = a27104; /* x150001 stalin.sc:20266:709465 */ a41289 = t36083; /* x299268 stalin.sc:14702:515041 */ /* x299267 stalin.sc:14702:515054 */ t36084 = a41289; /* x299266 stalin.sc:14702:515042 */ t36085.tag = STRUCTURE_TYPE24753; t36085.value.structure_type24753 = t36084; t36086 = f13515(t36085); t36075.tag = STRUCTURE_TYPE24753; t36075.value.structure_type24753 = t36086; goto l5283; l5282: /* x150005 stalin.sc:20266:709473 */ /* x150004 stalin.sc:20266:709474 */ /* x276847 stalin.sc:14693:514793 */ t36075.tag = STRING_TYPE; t36075.value.string_type = ""; l5283: /* x149996 stalin.sc:20265:709438 */ t36074 = a27105; /* x149995 stalin.sc:20264:709419 */ t36080.tag = STRUCTURE_TYPE24753; t36080.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36080.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20264, 709418); out_of_memory_error();} t36080.value.structure_type24753->s0 = t36076; t36080.value.structure_type24753->s1.tag = NULL_TYPE; t36079.tag = STRUCTURE_TYPE24753; t36079.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36079.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20264, 709418); out_of_memory_error();} t36079.value.structure_type24753->s0 = *((struct w49 *)(&t36075)); t36079.value.structure_type24753->s1 = t36080; a41930 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41930==NULL) {backtrace("stalin.sc", 20264, 709418); out_of_memory_error();} a41930->s0 = t36074; a41930->s1 = t36079; /* x301832 stalin.sc:14400:506485 */ /* x301831 stalin.sc:14400:506503 */ t36077 = a41930; /* x301830 stalin.sc:14400:506486 */ t36078.tag = STRUCTURE_TYPE24753; t36078.value.structure_type24753 = t36077; t35305 = f13492(t36078); goto l5277; l5276: /* x150052 stalin.sc:20268:709533 */ /* x150051 stalin.sc:20270:709624 */ /* x150043 stalin.sc:20270:709628 */ /* x150042 stalin.sc:20270:709649 */ /* x150041 stalin.sc:20270:709672 */ t36063 = p16010->a27041; /* x150040 stalin.sc:20270:709650 */ a39020 = t36063; /* x288749 */ /* x288748 */ t36064 = a39020; /* x288747 */ if (!((t36064.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33937]"); structure_ref_error();} t36062 = t36064.value.structure_type27698->s18; /* x150039 stalin.sc:20270:709629 */ if (f6956(t36062)==FALSE_TYPE) goto l5279; /* x150048 stalin.sc:20271:709682 */ /* x150045 stalin.sc:20271:709697 */ t36065 = "void_if"; /* x150046 stalin.sc:20271:709707 */ t36066 = p16010->a27041; /* x150047 stalin.sc:20271:709709 */ /* x150044 stalin.sc:20271:709683 */ t36067 = TRUE_TYPE; t36068 = f15534(t36065, t36066, t36067); t36052.tag = STRUCTURE_TYPE24753; t36052.value.structure_type24753 = t36068; goto l5280; l5279: /* x150050 stalin.sc:20272:709719 */ /* x150049 stalin.sc:20272:709720 */ /* x276853 stalin.sc:14693:514793 */ t36052.tag = STRING_TYPE; t36052.value.string_type = ""; l5280: /* x150038 stalin.sc:20269:709559 */ /* x150034 stalin.sc:20269:709579 */ /* x150033 stalin.sc:20269:709602 */ t36060 = p16010->a27041; /* x150032 stalin.sc:20269:709580 */ a39019 = t36060; /* x288745 */ /* x288744 */ t36061 = a39019; /* x288743 */ if (!((t36061.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33936]"); structure_ref_error();} t36056 = t36061.value.structure_type27698->s18; /* x150035 stalin.sc:20269:709605 */ /* x150036 stalin.sc:20269:709608 */ /* x150037 stalin.sc:20269:709611 */ /* x150031 stalin.sc:20269:709560 */ t36057.tag = FALSE_TYPE; t36058.tag = FALSE_TYPE; t36059.tag = FALSE_TYPE; t36051 = f15911(t36056, t36057, t36058, t36059); /* x150030 stalin.sc:20268:709534 */ t36055.tag = STRUCTURE_TYPE24753; t36055.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t36055.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20268, 709533); out_of_memory_error();} t36055.value.structure_type24753->s0 = *((struct w49 *)(&t36052)); t36055.value.structure_type24753->s1.tag = NULL_TYPE; a41931 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41931==NULL) {backtrace("stalin.sc", 20268, 709533); out_of_memory_error();} a41931->s0 = t36051; a41931->s1 = t36055; /* x301836 stalin.sc:14400:506485 */ /* x301835 stalin.sc:14400:506503 */ t36053 = a41931; /* x301834 stalin.sc:14400:506486 */ t36054.tag = STRUCTURE_TYPE24753; t36054.value.structure_type24753 = t36053; t35305 = f13492(t36054); l5277: l5274: l5270: goto l5142; l5141: /* x151096 */ /* x150068 */ /* x150066 */ t35515 = a27051; /* x150067 */ t35516 = q77; /* x150065 */ t35517.tag = EXTERNAL_SYMBOL_TYPE; t35517.value.external_symbol_type = t35515; t35518.tag = EXTERNAL_SYMBOL_TYPE; t35518.value.external_symbol_type = t35516; if (f26160(t35517, t35518)==FALSE_TYPE) goto l5144; /* x150079 */ /* x150078 */ t36031 = p15932->p15922; p16027 = t36031; /* x150077 stalin.sc:20274:709761 */ /* x150070 stalin.sc:20274:709773 */ t36032 = p16027->a27040; /* x150071 stalin.sc:20274:709775 */ t36033 = q219; /* x150076 stalin.sc:20274:709783 */ /* x150075 stalin.sc:20274:709795 */ /* x150074 stalin.sc:20274:709816 */ t36037 = p16027->a27041; /* x150073 stalin.sc:20274:709796 */ a39974 = t36037; /* x292565 */ /* x292564 */ t36038 = a39974; /* x292563 */ if (!((t36038.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34891]"); structure_ref_error();} t36036 = t36038.value.structure_type27698->s10; /* x150072 stalin.sc:20274:709784 */ t36034 = f8153(t36036); /* x150069 stalin.sc:20274:709762 */ t36035.tag = EXTERNAL_SYMBOL_TYPE; t36035.value.external_symbol_type = t36033; t35305 = f15499(t36032, t36035, t36034); goto l5145; l5144: /* x151095 */ /* x150083 */ /* x150081 */ t35519 = a27051; /* x150082 */ t35520 = q78; /* x150080 */ t35521.tag = EXTERNAL_SYMBOL_TYPE; t35521.value.external_symbol_type = t35519; t35522.tag = EXTERNAL_SYMBOL_TYPE; t35522.value.external_symbol_type = t35520; if (f26160(t35521, t35522)==FALSE_TYPE) goto l5147; /* x150094 */ /* x150093 */ t36023 = p15932->p15922; p16028 = t36023; /* x150092 stalin.sc:20276:709846 */ /* x150085 stalin.sc:20276:709858 */ t36024 = p16028->a27040; /* x150086 stalin.sc:20276:709860 */ t36025 = q220; /* x150091 stalin.sc:20276:709868 */ /* x150090 stalin.sc:20276:709880 */ /* x150089 stalin.sc:20276:709901 */ t36029 = p16028->a27041; /* x150088 stalin.sc:20276:709881 */ a39975 = t36029; /* x292569 */ /* x292568 */ t36030 = a39975; /* x292567 */ if (!((t36030.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34892]"); structure_ref_error();} t36028 = t36030.value.structure_type27698->s10; /* x150087 stalin.sc:20276:709869 */ t36026 = f8153(t36028); /* x150084 stalin.sc:20276:709847 */ t36027.tag = EXTERNAL_SYMBOL_TYPE; t36027.value.external_symbol_type = t36025; t35305 = f15499(t36024, t36027, t36026); goto l5148; l5147: /* x151094 */ /* x150098 */ /* x150096 */ t35523 = a27051; /* x150097 */ t35524 = q38; /* x150095 */ t35525.tag = EXTERNAL_SYMBOL_TYPE; t35525.value.external_symbol_type = t35523; t35526.tag = EXTERNAL_SYMBOL_TYPE; t35526.value.external_symbol_type = t35524; if (f26160(t35525, t35526)==FALSE_TYPE) goto l5150; /* x150430 */ /* x150429 */ t35884 = p15932; p16029 = t35884; /* x150428 stalin.sc:20278:709920 */ /* x150101 stalin.sc:20278:709924 */ /* x150100 stalin.sc:20278:709946 */ t35885 = p16029->p15922->a27041; /* x150099 stalin.sc:20278:709925 */ if (f6936(t35885)==FALSE_TYPE) goto l5231; /* x150424 stalin.sc:20279:709955 */ /* x150120 stalin.sc:20280:709969 */ /* x150106 stalin.sc:20280:709974 */ /* x150105 stalin.sc:20280:709983 */ /* x150104 stalin.sc:20280:710004 */ t35890 = p16029->p15922->a27041; /* x150103 stalin.sc:20280:709984 */ a39150 = t35890; /* x289269 */ /* x289268 */ t35891 = a39150; /* x289267 */ if (!((t35891.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34067]"); structure_ref_error();} t35888 = t35891.value.structure_type27698->s16; /* x150102 stalin.sc:20280:709975 */ a41671 = t35888; /* x300796 stalin.sc:3942:133266 */ /* x300795 stalin.sc:3942:133284 */ t35889 = a41671; /* x300794 stalin.sc:3942:133267 */ if (f8214(t35889)==FALSE_TYPE) goto l5234; /* x150118 */ /* x150111 stalin.sc:20281:710014 */ /* x150110 stalin.sc:20281:710019 */ /* x150109 stalin.sc:20281:710029 */ t35892 = p16029->p15922->a27040; /* x150108 stalin.sc:20281:710020 */ /* MOVE: branching squeezed to general */ if (t35892>=((struct structure_type27501 *)VALUE_OFFSET)) {t35893.tag = STRUCTURE_TYPE27501; t35893.value.structure_type27501 = t35892;} else t35893.tag = (unsigned)t35892; if (!(f7031(t35893)==FALSE_TYPE)) goto l5234; /* x150116 */ /* x150115 stalin.sc:20282:710044 */ /* x150114 stalin.sc:20282:710057 */ t35894 = p16029->p15922->a27040; /* x150113 stalin.sc:20282:710045 */ /* MOVE: branching squeezed to general */ if (t35894>=((struct structure_type27501 *)VALUE_OFFSET)) {t35895.tag = STRUCTURE_TYPE27501; t35895.value.structure_type27501 = t35894;} else t35895.tag = (unsigned)t35894; if (!(f7032(t35895)==FALSE_TYPE)) goto l5234; /* x150385 */ /* x150384 */ t35921 = p16029; p16030 = t35921; /* x150383 stalin.sc:20283:710070 */ /* x150382 stalin.sc:20283:710076 */ t35923 = a686; /* x150381 */ t35922 = p16030; p16031 = t35922; a27106 = t35923; /* x150380 */ /* x150124 */ /* x150122 */ t35924 = a27106; /* x150123 */ t35925 = q18; /* x150121 */ /* MOVE: branching squeezed to general */ if (t35924>=((char *)VALUE_OFFSET)) {t35926.tag = EXTERNAL_SYMBOL_TYPE; t35926.value.external_symbol_type = t35924;} else t35926.tag = (unsigned)t35924; t35927.tag = EXTERNAL_SYMBOL_TYPE; t35927.value.external_symbol_type = t35925; if (f26160(t35926, t35927)==FALSE_TYPE) goto l5243; /* x150130 */ /* x150129 */ t36019 = p16031->p15922; p16032 = t36019; /* x150128 stalin.sc:20285:710124 */ /* x150126 stalin.sc:20286:710143 */ t36020 = p16032->a27041; /* x150127 stalin.sc:20286:710145 */ t36021 = "Immediate flat closures are not (yet) implemented"; /* x150125 stalin.sc:20285:710125 */ t36022 = *((struct w6315 *)(&t36020)); f9707(t36022, t36021); goto l5244; l5243: /* x150379 */ /* x150134 */ /* x150132 */ t35928 = a27106; /* x150133 */ t35929 = q19; /* x150131 */ /* MOVE: branching squeezed to general */ if (t35928>=((char *)VALUE_OFFSET)) {t35930.tag = EXTERNAL_SYMBOL_TYPE; t35930.value.external_symbol_type = t35928;} else t35930.tag = (unsigned)t35928; t35931.tag = EXTERNAL_SYMBOL_TYPE; t35931.value.external_symbol_type = t35929; if (f26160(t35930, t35931)==FALSE_TYPE) goto l5246; /* x150140 */ /* x150139 */ t36015 = p16031->p15922; p16033 = t36015; /* x150138 stalin.sc:20288:710221 */ /* x150136 stalin.sc:20289:710240 */ t36016 = p16033->a27041; /* x150137 stalin.sc:20289:710242 */ t36017 = "Indirect flat closures are not (yet) implemented"; /* x150135 stalin.sc:20288:710222 */ t36018 = *((struct w6315 *)(&t36016)); f9707(t36018, t36017); goto l5247; l5246: /* x150378 */ /* x150144 */ /* x150142 */ t35932 = a27106; /* x150143 */ t35933 = q20; /* x150141 */ /* MOVE: branching squeezed to general */ if (t35932>=((char *)VALUE_OFFSET)) {t35934.tag = EXTERNAL_SYMBOL_TYPE; t35934.value.external_symbol_type = t35932;} else t35934.tag = (unsigned)t35932; t35935.tag = EXTERNAL_SYMBOL_TYPE; t35935.value.external_symbol_type = t35933; if (f26160(t35934, t35935)==FALSE_TYPE) goto l5249; /* x150242 */ /* x150241 */ t35972 = p16031; p16034 = t35972; /* x150240 */ /* x150239 stalin.sc:20291:710321 */ /* x150232 stalin.sc:20291:710327 */ /* x150231 stalin.sc:20291:710331 */ /* x150230 stalin.sc:20291:710342 */ /* x150229 stalin.sc:20291:710359 */ t36009 = p16034->p15922->a27040; /* x150228 stalin.sc:20291:710343 */ a38433 = t36009; /* x286401 */ /* x286400 */ t36010 = a38433; /* x286399 */ if (!(t36010>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33350]"); structure_ref_error();} t36008 = t36010->s2; /* x150227 stalin.sc:20291:710332 */ if (!(f13859(t36008)==FALSE_TYPE)) goto l5264; p16038 = p16034->p15922; /* x150224 */ /* x150223 stalin.sc:20292:710380 */ /* x150222 stalin.sc:20292:710397 */ t36012 = p16038->a27040; /* x150221 stalin.sc:20292:710381 */ a38432 = t36012; /* x286397 */ /* x286396 */ t36013 = a38432; /* x286395 */ if (!(t36013>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33349]"); structure_ref_error();} t36011 = t36013->s2; /* x150220 stalin.sc:20292:710370 */ if (f14024(t36011)==FALSE_TYPE) goto l5265; l5264: /* x150236 */ /* x150235 */ /* x150234 stalin.sc:20293:710406 */ /* x150233 stalin.sc:20293:710407 */ /* x296117 QobiScheme.sc:166:5314 */ /* x296116 QobiScheme.sc:166:5321 */ t36014 = "This shouldn\'t happen"; /* x296115 QobiScheme.sc:166:5315 */ stalin_panic(t36014); goto l5266; l5265: /* x150238 stalin.sc:20291:710321 */ /* x150237 stalin.sc:20291:710321 */ l5266: /* x150217 */ t35973 = p16034; p16035 = t35973; /* x150216 stalin.sc:20294:710420 */ /* x150215 stalin.sc:20294:710429 */ /* x150214 stalin.sc:20295:710447 */ /* x150213 stalin.sc:20295:710466 */ /* x150212 stalin.sc:20295:710487 */ t36006 = p16035->p15922->a27041; /* x150211 stalin.sc:20295:710467 */ a39139 = t36006; /* x289225 */ /* x289224 */ t36007 = a39139; /* x289223 */ if (!((t36007.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34056]"); structure_ref_error();} t36004 = t36007.value.structure_type27698->s16; /* x150210 stalin.sc:20295:710448 */ a36862 = t36004; /* x280117 */ /* x280116 */ t36005 = a36862; /* x280115 */ if (!((t36005.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31779]"); structure_ref_error();} t36003 = t36005.value.structure_type27692->s9; /* x150209 stalin.sc:20294:710430 */ t35975 = f8153(t36003); /* x150208 */ t35974 = p16035; p16036 = t35974; a27108 = t35975; e16036 = (struct p16036 *)alloca(sizeof(struct p16036)); if (e16036==NULL) {backtrace_internal("[inside COMPILE 16035]"); out_of_memory_error();} e16036->p15924 = p16036; e16036->a27108 = a27108; /* x150207 stalin.sc:20296:710498 */ /* x150206 stalin.sc:20301:710664 */ /* x150205 stalin.sc:20302:710688 */ /* x150204 stalin.sc:20307:710856 */ /* x150203 stalin.sc:20307:710867 */ t36002 = e16036->a27108; /* x150202 stalin.sc:20307:710857 */ t35998 = f8951(t36002); /* x150201 stalin.sc:20303:710700 */ t35997 = e16036; /* x150168 stalin.sc:20302:710689 */ t35999.tag = NATIVE_PROCEDURE_TYPE19825; t35999.value.native_procedure_type19825 = t35997; t36000 = *((struct w49 *)(&t35998)); t36001 = (struct structure_type24753 *)NULL_TYPE; t35995 = f27731(t35999, t36000, t36001); /* x150167 stalin.sc:20301:710665 */ /* MOVE: branching squeezed to general */ if (t35995>=((struct structure_type24753 *)VALUE_OFFSET)) {t35996.tag = STRUCTURE_TYPE24753; t35996.value.structure_type24753 = t35995;} else t35996.tag = (unsigned)t35995; t35977 = f13492(t35996); /* x150166 stalin.sc:20297:710520 */ /* x150150 stalin.sc:20297:710524 */ /* x150149 stalin.sc:20297:710539 */ /* x150148 stalin.sc:20297:710556 */ t35982 = p16036->p15922->a27040; /* x150147 stalin.sc:20297:710540 */ a38429 = t35982; /* x286385 */ /* x286384 */ t35983 = a38429; /* x286383 */ if (!(t35983>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33346]"); structure_ref_error();} t35981 = t35983->s2; /* x150146 stalin.sc:20297:710525 */ if (f8149(t35981)==((struct structure_type27657 *)FALSE_TYPE)) goto l5262; /* x150163 stalin.sc:20298:710569 */ /* x150159 stalin.sc:20298:710575 */ /* x150155 stalin.sc:20298:710582 */ /* x150154 stalin.sc:20298:710592 */ t35990 = p16036->p15922->a27040; /* x150153 stalin.sc:20298:710583 */ a38376 = t35990; /* x286173 */ /* x286172 */ t35991 = a38376; /* x286171 */ if (!(t35991>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-C[5769] 33293]"); structure_ref_error();} t35988 = t35991->s3; /* x150158 stalin.sc:20298:710595 */ /* x150157 stalin.sc:20298:710612 */ t35992 = p16036->p15922->a27040; /* x150156 stalin.sc:20298:710596 */ a38394 = t35992; /* x286245 */ /* x286244 */ t35993 = a38394; /* x286243 */ if (!(t35993>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33311]"); structure_ref_error();} t35989 = t35993->s2; /* x150152 stalin.sc:20298:710576 */ t35984 = f14478(t35988, t35989); /* x150162 stalin.sc:20299:710624 */ /* x150161 stalin.sc:20299:710636 */ t35994 = e16036->a27108; /* x150160 stalin.sc:20299:710625 */ t35985 = f14433(t35994); /* x150151 stalin.sc:20298:710570 */ t35986 = *((struct w49 *)(&t35985)); t35987 = f13637(t35984, t35986); t35976.tag = STRUCTURE_TYPE24753; t35976.value.structure_type24753 = t35987; goto l5263; l5262: /* x150165 stalin.sc:20300:710649 */ /* x150164 stalin.sc:20300:710650 */ /* x276755 stalin.sc:14693:514793 */ t35976.tag = STRING_TYPE; t35976.value.string_type = ""; l5263: /* x150145 stalin.sc:20296:710499 */ t35980.tag = STRUCTURE_TYPE24753; t35980.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35980.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20296, 710498); out_of_memory_error();} t35980.value.structure_type24753->s0 = t35977; t35980.value.structure_type24753->s1.tag = NULL_TYPE; a41899 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41899==NULL) {backtrace("stalin.sc", 20296, 710498); out_of_memory_error();} a41899->s0 = *((struct w49 *)(&t35976)); a41899->s1 = t35980; /* x301708 stalin.sc:14400:506485 */ /* x301707 stalin.sc:14400:506503 */ t35978 = a41899; /* x301706 stalin.sc:14400:506486 */ t35979.tag = STRUCTURE_TYPE24753; t35979.value.structure_type24753 = t35978; t35305 = f13492(t35979); goto l5250; l5249: /* x150377 */ /* x150246 */ /* x150244 */ t35936 = a27106; /* x150245 */ t35937 = q21; /* x150243 */ /* MOVE: branching squeezed to general */ if (t35936>=((char *)VALUE_OFFSET)) {t35938.tag = EXTERNAL_SYMBOL_TYPE; t35938.value.external_symbol_type = t35936;} else t35938.tag = (unsigned)t35936; t35939.tag = EXTERNAL_SYMBOL_TYPE; t35939.value.external_symbol_type = t35937; if (f26160(t35938, t35939)==FALSE_TYPE) goto l5252; /* x150348 */ /* x150347 */ t35961 = p16031->p15922; p16041 = t35961; /* x150346 */ /* x150323 stalin.sc:20312:711044 */ /* x150321 stalin.sc:20313:711063 */ t35962 = p16041->a27041; /* x150322 stalin.sc:20313:711065 */ t35963 = "Indirect display closures are not (yet) implemented"; /* x150320 stalin.sc:20312:711045 */ t35964 = *((struct w6315 *)(&t35962)); f9707(t35964, t35963); /* x150345 stalin.sc:20314:711123 */ /* x150338 stalin.sc:20314:711129 */ /* x150337 stalin.sc:20314:711133 */ /* x150336 stalin.sc:20314:711144 */ /* x150335 stalin.sc:20314:711161 */ t35966 = p16041->a27040; /* x150334 stalin.sc:20314:711145 */ a38435 = t35966; /* x286409 */ /* x286408 */ t35967 = a38435; /* x286407 */ if (!(t35967>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33352]"); structure_ref_error();} t35965 = t35967->s2; /* x150333 stalin.sc:20314:711134 */ if (!(f13859(t35965)==FALSE_TYPE)) goto l5257; p16045 = p16041; /* x150330 */ /* x150329 stalin.sc:20315:711182 */ /* x150328 stalin.sc:20315:711199 */ t35969 = p16045->a27040; /* x150327 stalin.sc:20315:711183 */ a38434 = t35969; /* x286405 */ /* x286404 */ t35970 = a38434; /* x286403 */ if (!(t35970>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33351]"); structure_ref_error();} t35968 = t35970->s2; /* x150326 stalin.sc:20315:711172 */ if (f14024(t35968)==FALSE_TYPE) goto l5258; l5257: /* x150342 */ /* x150341 */ /* x150340 stalin.sc:20316:711208 */ /* x150339 stalin.sc:20316:711209 */ /* x296121 QobiScheme.sc:166:5314 */ /* x296120 QobiScheme.sc:166:5321 */ t35971 = "This shouldn\'t happen"; /* x296119 QobiScheme.sc:166:5315 */ stalin_panic(t35971); goto l5259; l5258: /* x150344 stalin.sc:20314:711123 */ /* x150343 stalin.sc:20314:711123 */ l5259: /* x150319 */ goto l5253; l5252: /* x150376 */ /* x150352 */ /* x150350 */ t35940 = a27106; /* x150351 */ t35941 = q22; /* x150349 */ /* MOVE: branching squeezed to general */ if (t35940>=((char *)VALUE_OFFSET)) {t35942.tag = EXTERNAL_SYMBOL_TYPE; t35942.value.external_symbol_type = t35940;} else t35942.tag = (unsigned)t35940; t35943.tag = EXTERNAL_SYMBOL_TYPE; t35943.value.external_symbol_type = t35941; if (f26160(t35942, t35943)==FALSE_TYPE) goto l5255; /* x150371 */ /* x150370 */ t35945 = p16031; p16048 = t35945; /* x150369 stalin.sc:20332:711695 */ /* x150354 stalin.sc:20332:711708 */ t35946 = p16048->p15922->a27040; /* x150360 stalin.sc:20333:711719 */ /* x150358 stalin.sc:20333:711729 */ /* x150357 stalin.sc:20333:711750 */ t35953 = p16048->p15922->a27041; /* x150356 stalin.sc:20333:711730 */ a39140 = t35953; /* x289229 */ /* x289228 */ t35954 = a39140; /* x289227 */ if (!((t35954.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34057]"); structure_ref_error();} t35951 = t35954.value.structure_type27698->s16; /* x150359 stalin.sc:20333:711753 */ t35952 = p16048->a27044; /* x150355 stalin.sc:20333:711720 */ t35947 = f14754(t35951, t35952); /* x150365 stalin.sc:20334:711765 */ /* x150364 stalin.sc:20334:711784 */ /* x150363 stalin.sc:20334:711805 */ t35957 = p16048->p15922->a27041; /* x150362 stalin.sc:20334:711785 */ a39141 = t35957; /* x289233 */ /* x289232 */ t35958 = a39141; /* x289231 */ if (!((t35958.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34058]"); structure_ref_error();} t35955 = t35958.value.structure_type27698->s16; /* x150361 stalin.sc:20334:711766 */ a36863 = t35955; /* x280121 */ /* x280120 */ t35956 = a36863; /* x280119 */ if (!((t35956.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31780]"); structure_ref_error();} t35948 = t35956.value.structure_type27692->s9; /* x150368 stalin.sc:20335:711818 */ /* x150367 stalin.sc:20335:711839 */ t35959 = p16048->p15922->a27041; /* x150366 stalin.sc:20335:711819 */ a39976 = t35959; /* x292573 */ /* x292572 */ t35960 = a39976; /* x292571 */ if (!((t35960.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34893]"); structure_ref_error();} t35949 = t35960.value.structure_type27698->s10; /* x150353 stalin.sc:20332:711696 */ t35950 = *((struct w60861 *)(&t35947)); t35305 = f15498(t35946, t35950, t35948, t35949); goto l5256; l5255: /* x150375 */ /* x150374 */ /* x150373 stalin.sc:20336:711852 */ /* x150372 stalin.sc:20336:711853 */ /* x296541 QobiScheme.sc:166:5314 */ /* x296540 QobiScheme.sc:166:5321 */ t35944 = "This shouldn\'t happen"; /* x296539 QobiScheme.sc:166:5315 */ stalin_panic(t35944); l5256: l5253: l5250: l5247: l5244: goto l5235; l5234: /* x150423 */ /* x150422 */ t35896 = p16029; p16050 = t35896; /* x150421 stalin.sc:20338:711886 */ /* x150387 stalin.sc:20339:711901 */ t35897 = p16050->p15922->a27040; /* x150412 stalin.sc:20340:711905 */ /* x150404 stalin.sc:20340:711909 */ /* x150403 stalin.sc:20341:711920 */ /* x150402 stalin.sc:20341:711933 */ /* x150401 stalin.sc:20341:711952 */ /* x150400 stalin.sc:20341:711973 */ t35904 = p16050->p15922->a27041; /* x150399 stalin.sc:20341:711953 */ a39148 = t35904; /* x289261 */ /* x289260 */ t35905 = a39148; /* x289259 */ if (!((t35905.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34065]"); structure_ref_error();} t35902 = t35905.value.structure_type27698->s16; /* x150398 stalin.sc:20341:711934 */ a36868 = t35902; /* x280141 */ /* x280140 */ t35903 = a36868; /* x280139 */ if (!((t35903.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31785]"); structure_ref_error();} t35901 = t35903.value.structure_type27692->s9; /* x150397 stalin.sc:20341:711921 */ if (!(f8793(t35901)==FALSE_TYPE)) goto l5238; p16051 = p16050->p15922; /* x150394 */ /* x150393 stalin.sc:20342:711994 */ /* x150392 stalin.sc:20342:712015 */ t35908 = p16051->a27041; /* x150391 stalin.sc:20342:711995 */ a39147 = t35908; /* x289257 */ /* x289256 */ t35909 = a39147; /* x289255 */ if (!((t35909.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34064]"); structure_ref_error();} t35906 = t35909.value.structure_type27698->s16; /* x150390 stalin.sc:20342:711986 */ a41670 = t35906; /* x300792 stalin.sc:3942:133266 */ /* x300791 stalin.sc:3942:133284 */ t35907 = a41670; /* x300790 stalin.sc:3942:133267 */ if (f8214(t35907)==FALSE_TYPE) goto l5239; l5238: /* x150405 stalin.sc:20343:712026 */ t35898.tag = EXTERNAL_SYMBOL_TYPE; t35898.value.external_symbol_type = q221; goto l5240; l5239: /* x150411 stalin.sc:20344:712040 */ /* x150409 stalin.sc:20344:712050 */ /* x150408 stalin.sc:20344:712071 */ t35913 = p16050->p15922->a27041; /* x150407 stalin.sc:20344:712051 */ a39146 = t35913; /* x289253 */ /* x289252 */ t35914 = a39146; /* x289251 */ if (!((t35914.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34063]"); structure_ref_error();} t35910 = t35914.value.structure_type27698->s16; /* x150410 stalin.sc:20344:712074 */ t35911 = p16050->a27044; /* x150406 stalin.sc:20344:712041 */ t35912 = f14754(t35910, t35911); t35898 = *((struct w60861 *)(&t35912)); l5240: /* x150417 stalin.sc:20345:712080 */ /* x150416 stalin.sc:20345:712099 */ /* x150415 stalin.sc:20345:712120 */ t35917 = p16050->p15922->a27041; /* x150414 stalin.sc:20345:712100 */ a39149 = t35917; /* x289265 */ /* x289264 */ t35918 = a39149; /* x289263 */ if (!((t35918.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34066]"); structure_ref_error();} t35915 = t35918.value.structure_type27698->s16; /* x150413 stalin.sc:20345:712081 */ a36869 = t35915; /* x280145 */ /* x280144 */ t35916 = a36869; /* x280143 */ if (!((t35916.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31786]"); structure_ref_error();} t35899 = t35916.value.structure_type27692->s9; /* x150420 stalin.sc:20346:712126 */ /* x150419 stalin.sc:20346:712147 */ t35919 = p16050->p15922->a27041; /* x150418 stalin.sc:20346:712127 */ a39981 = t35919; /* x292593 */ /* x292592 */ t35920 = a39981; /* x292591 */ if (!((t35920.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34898]"); structure_ref_error();} t35900 = t35920.value.structure_type27698->s10; /* x150386 stalin.sc:20338:711887 */ t35305 = f15498(t35897, t35898, t35899, t35900); l5235: goto l5232; l5231: /* x150427 stalin.sc:20347:712159 */ /* x150426 stalin.sc:20347:712175 */ t35886 = p16029->p15922->a27040; /* x150425 stalin.sc:20347:712160 */ /* MOVE: branching squeezed to general */ if (t35886>=((struct structure_type27501 *)VALUE_OFFSET)) {t35887.tag = STRUCTURE_TYPE27501; t35887.value.structure_type27501 = t35886;} else t35887.tag = (unsigned)t35886; t35305 = f15342(t35887); l5232: goto l5151; l5150: /* x151093 */ /* x150443 */ /* x150442 */ /* x150440 */ t35527 = a27051; /* x150441 */ t35528 = q36; /* x150439 */ t35529.tag = EXTERNAL_SYMBOL_TYPE; t35529.value.external_symbol_type = t35527; t35530.tag = EXTERNAL_SYMBOL_TYPE; t35530.value.external_symbol_type = t35528; if (!(f26160(t35529, t35530)==FALSE_TYPE)) goto l5152; /* x150436 */ /* x150434 */ t35531 = a27051; /* x150435 */ t35532 = q37; /* x150433 */ t35533.tag = EXTERNAL_SYMBOL_TYPE; t35533.value.external_symbol_type = t35531; t35534.tag = EXTERNAL_SYMBOL_TYPE; t35534.value.external_symbol_type = t35532; if (f26160(t35533, t35534)==FALSE_TYPE) goto l5153; l5152: /* x151088 */ /* x151087 */ t35536 = p15932; p16053 = t35536; /* x151086 stalin.sc:20349:712206 */ /* x150451 stalin.sc:20350:712216 */ /* x150446 stalin.sc:20350:712221 */ /* x150445 stalin.sc:20350:712234 */ t35537 = p16053->p15922->a27040; /* x150444 stalin.sc:20350:712222 */ /* MOVE: branching squeezed to general */ if (t35537>=((struct structure_type27501 *)VALUE_OFFSET)) {t35538.tag = STRUCTURE_TYPE27501; t35538.value.structure_type27501 = t35537;} else t35538.tag = (unsigned)t35537; if (f7032(t35538)==FALSE_TYPE) goto l5157; /* x150449 */ /* x150448 stalin.sc:20350:712253 */ t35539 = p16053->p15922->a27041; /* x150447 stalin.sc:20350:712238 */ if (f15913(t35539)==FALSE_TYPE) goto l5157; /* x150898 */ /* x150897 */ t35636 = p16053; p16054 = t35636; /* x150896 stalin.sc:20351:712261 */ /* x150895 stalin.sc:20351:712271 */ /* x150894 stalin.sc:20351:712283 */ /* x150893 stalin.sc:20351:712304 */ /* x150892 stalin.sc:20351:712323 */ t35882 = p16054->p15922->a27041; /* x150891 stalin.sc:20351:712305 */ a38625 = t35882; /* x287169 */ /* x287168 */ t35883 = a38625; /* x287167 */ if (!((t35883.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33542]"); structure_ref_error();} t35880 = t35883.value.structure_type27698->s21; /* x150890 stalin.sc:20351:712284 */ a39896 = t35880; /* x292253 */ /* x292252 */ t35881 = a39896; /* x292251 */ if (!((t35881.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34813]"); structure_ref_error();} t35879 = t35881.value.structure_type27698->s10; /* x150889 stalin.sc:20351:712272 */ t35638 = f8153(t35879); /* x150888 */ t35637 = p16054; p16055 = t35637; a27118 = t35638; /* x150887 */ /* x150886 stalin.sc:20352:712337 */ /* x150882 stalin.sc:20352:712357 */ t35875 = a27118; /* x150885 stalin.sc:20352:712359 */ /* x150884 stalin.sc:20352:712377 */ t35878 = p16055->p15922->a27041; /* x150883 stalin.sc:20352:712360 */ t35876 = f8739(t35878); /* x150881 stalin.sc:20352:712338 */ t35877 = t35876; t35640 = f9368(t35875, t35877); /* x150880 */ t35639 = p16055; p16056 = t35639; a27119 = t35640; e16056 = (struct p16056 *)alloca(sizeof(struct p16056)); if (e16056==NULL) {backtrace_internal("[inside COMPILE 16055]"); out_of_memory_error();} e16056->p15924 = p16056; e16056->a27119 = a27119; /* x150879 */ /* x150878 stalin.sc:20353:712390 */ /* x150877 stalin.sc:20353:712414 */ t35873 = e16056->a27119; /* x150876 stalin.sc:20353:712391 */ a36676 = t35873; /* x279373 */ /* x279372 */ t35874 = a36676; /* x279371 */ if (!((t35874.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31593]"); structure_ref_error();} t35642 = t35874.value.structure_type27694->s1; /* x150875 */ t35641 = e16056; p16057 = t35641; a27120 = t35642; /* x150874 */ /* x150873 stalin.sc:20354:712427 */ /* x150872 stalin.sc:20354:712444 */ t35871 = a27120; /* x150871 stalin.sc:20354:712428 */ a39208 = t35871; /* x289501 */ /* x289500 */ t35872 = a39208; /* x289499 */ if (!((t35872.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34125]"); structure_ref_error();} t35644 = t35872.value.structure_type27698->s15; /* x150870 */ t35643 = p16057; p16058 = t35643; a27121 = t35644; /* x150869 */ /* x150868 stalin.sc:20355:712457 */ /* x150867 stalin.sc:20355:712464 */ /* x150866 stalin.sc:20355:712486 */ t35869 = p16058->p15924->p15922->a27041; /* x150865 stalin.sc:20355:712465 */ a38531 = t35869; /* x286793 */ /* x286792 */ t35870 = a38531; /* x286791 */ if (!((t35870.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33448]"); structure_ref_error();} t35867 = t35870.value.structure_type27698->s22; /* x150864 stalin.sc:20355:712458 */ a35781 = t35867; /* x274481 */ /* x274480 */ t35868 = a35781; /* x274479 */ if (!((t35868.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29930]"); structure_ref_error();} t35646 = t35868.value.structure_type24753->s0; /* x150863 */ t35645 = p16058; p16059 = t35645; a27122 = t35646; /* x150862 */ /* x150861 stalin.sc:20356:712499 */ /* x150860 stalin.sc:20356:712523 */ t35865 = p16059->p15924->p15922->a27041; /* x150859 stalin.sc:20356:712500 */ a40048 = t35865; /* x292861 */ /* x292860 */ t35866 = a40048; /* x292859 */ if (!((t35866.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34965]"); structure_ref_error();} t35648 = t35866.value.structure_type27698->s9; /* x150858 */ t35647 = p16059; p16060 = t35647; a27123 = t35648; e16060 = (struct p16060 *)alloca(sizeof(struct p16060)); if (e16060==NULL) {backtrace_internal("[inside COMPILE 16059]"); out_of_memory_error();} e16060->p16056 = p16060; e16060->a27123 = a27123; /* x150857 */ /* x150856 */ t35649 = e16060; p16061 = t35649; /* x150855 stalin.sc:20357:712533 */ /* x150456 stalin.sc:20357:712537 */ /* x150455 stalin.sc:20357:712547 */ /* x150454 stalin.sc:20357:712570 */ t35651 = a27121; /* x150453 stalin.sc:20357:712548 */ a38942 = t35651; /* x288437 */ /* x288436 */ t35652 = a38942; /* x288435 */ if (!((t35652.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33859]"); structure_ref_error();} t35650 = t35652.value.structure_type27698->s19; /* x150452 stalin.sc:20357:712538 */ if (f6961(t35650)==FALSE_TYPE) goto l5180; /* x150657 stalin.sc:20358:712577 */ /* x150461 stalin.sc:20358:712581 */ /* x150460 stalin.sc:20358:712591 */ /* x150459 stalin.sc:20358:712613 */ t35758 = a27121; /* x150458 stalin.sc:20358:712592 */ a38890 = t35758; /* x288229 */ /* x288228 */ t35759 = a38890; /* x288227 */ if (!((t35759.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33807]"); structure_ref_error();} t35757 = t35759.value.structure_type27698->s20; /* x150457 stalin.sc:20358:712582 */ if (f6961(t35757)==FALSE_TYPE) goto l5207; /* x150646 stalin.sc:20359:712624 */ /* x150645 stalin.sc:20359:712635 */ /* x150644 stalin.sc:20359:712636 */ t35769 = f15753(); /* x150643 */ t35768 = p16061; p16062 = t35768; a27124 = t35769; /* x150642 */ /* x150641 stalin.sc:20360:712662 */ /* x150635 stalin.sc:20360:712682 */ t35857 = a27122; /* x150638 stalin.sc:20360:712685 */ /* x150637 stalin.sc:20360:712696 */ t35863 = p16062->p16056->p15924->p15922->a27040; /* x150636 stalin.sc:20360:712686 */ a38365 = t35863; /* x286129 */ /* x286128 */ t35864 = a38365; /* x286127 */ if (!(t35864>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L1[5777] 33282]"); structure_ref_error();} t35858 = t35864->s4; /* x150639 stalin.sc:20360:712699 */ t35859 = a27124; /* x150640 stalin.sc:20360:712702 */ t35860 = a27124; /* x150634 stalin.sc:20360:712663 */ t35861.tag = STRUCTURE_TYPE24753; t35861.value.structure_type24753 = t35859; t35862.tag = STRUCTURE_TYPE24753; t35862.value.structure_type24753 = t35860; t35771 = f15911(t35857, t35858, t35861, t35862); /* x150633 */ t35770 = p16062; p16063 = t35770; a27125 = t35771; /* x150632 */ /* x150631 */ t35772 = p16063; p16064 = t35772; /* x150630 stalin.sc:20361:712715 */ /* x150629 stalin.sc:20395:713936 */ /* x150619 stalin.sc:20395:713956 */ /* x150618 stalin.sc:20395:713978 */ t35849 = a27121; /* x150617 stalin.sc:20395:713957 */ a38889 = t35849; /* x288225 */ /* x288224 */ t35850 = a38889; /* x288223 */ if (!((t35850.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33806]"); structure_ref_error();} t35845 = t35850.value.structure_type27698->s20; /* x150622 stalin.sc:20396:713989 */ /* x150621 stalin.sc:20396:714000 */ t35851 = p16064->p16056->p15924->p15922->a27040; /* x150620 stalin.sc:20396:713990 */ a38364 = t35851; /* x286125 */ /* x286124 */ t35852 = a38364; /* x286123 */ if (!(t35852>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L1[5777] 33281]"); structure_ref_error();} t35846 = t35852->s4; /* x150625 stalin.sc:20397:714010 */ /* x150624 stalin.sc:20397:714021 */ t35853 = p16064->p16056->p15924->p15922->a27040; /* x150623 stalin.sc:20397:714011 */ a19366 = t35853; /* x51100 */ /* x51099 */ t35854 = a19366; /* x51098 */ if (!(t35854>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("RESULT-L2[5785]"); structure_ref_error();} t35847 = t35854->s5; /* x150628 stalin.sc:20398:714031 */ /* x150627 stalin.sc:20398:714042 */ t35855 = p16064->p16056->p15924->p15922->a27040; /* x150626 stalin.sc:20398:714032 */ a38337 = t35855; /* x286017 */ /* x286016 */ t35856 = a38337; /* x286015 */ if (!(t35856>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L0[5793] 33254]"); structure_ref_error();} t35848 = t35856->s6; /* x150616 stalin.sc:20395:713937 */ t35777 = f15911(t35845, t35846, t35847, t35848); /* x150615 stalin.sc:20365:712837 */ /* x150479 stalin.sc:20365:712841 */ /* x150478 stalin.sc:20365:712864 */ t35791 = p16064->p16056->a27119; /* x150477 stalin.sc:20365:712842 */ if ((f8897(t35791).tag)==FALSE_TYPE) goto l5213; /* x150612 stalin.sc:20366:712873 */ /* x150611 stalin.sc:20366:712879 */ t35793 = a686; /* x150610 */ t35792 = p16064; p16065 = t35792; a27126 = t35793; /* x150609 */ /* x150483 */ /* x150481 */ t35794 = a27126; /* x150482 */ t35795 = q18; /* x150480 */ /* MOVE: branching squeezed to general */ if (t35794>=((char *)VALUE_OFFSET)) {t35796.tag = EXTERNAL_SYMBOL_TYPE; t35796.value.external_symbol_type = t35794;} else t35796.tag = (unsigned)t35794; t35797.tag = EXTERNAL_SYMBOL_TYPE; t35797.value.external_symbol_type = t35795; if (f26160(t35796, t35797)==FALSE_TYPE) goto l5216; /* x150489 */ /* x150488 */ t35841 = p16065->p16056->p15924->p15922; p16066 = t35841; /* x150487 stalin.sc:20368:712935 */ /* x150485 stalin.sc:20368:712950 */ t35842 = p16066->a27041; /* x150486 stalin.sc:20368:712952 */ t35843 = "Immediate flat closures are not (yet) implemented"; /* x150484 stalin.sc:20368:712936 */ t35844 = *((struct w6315 *)(&t35842)); f9707(t35844, t35843); goto l5217; l5216: /* x150608 */ /* x150493 */ /* x150491 */ t35798 = a27126; /* x150492 */ t35799 = q19; /* x150490 */ /* MOVE: branching squeezed to general */ if (t35798>=((char *)VALUE_OFFSET)) {t35800.tag = EXTERNAL_SYMBOL_TYPE; t35800.value.external_symbol_type = t35798;} else t35800.tag = (unsigned)t35798; t35801.tag = EXTERNAL_SYMBOL_TYPE; t35801.value.external_symbol_type = t35799; if (f26160(t35800, t35801)==FALSE_TYPE) goto l5219; /* x150499 */ /* x150498 */ t35837 = p16065->p16056->p15924->p15922; p16067 = t35837; /* x150497 stalin.sc:20370:713036 */ /* x150495 stalin.sc:20370:713051 */ t35838 = p16067->a27041; /* x150496 stalin.sc:20370:713053 */ t35839 = "Indirect flat closures are not (yet) implemented"; /* x150494 stalin.sc:20370:713037 */ t35840 = *((struct w6315 *)(&t35838)); f9707(t35840, t35839); goto l5220; l5219: /* x150607 */ /* x150503 */ /* x150501 */ t35802 = a27126; /* x150502 */ t35803 = q20; /* x150500 */ /* MOVE: branching squeezed to general */ if (t35802>=((char *)VALUE_OFFSET)) {t35804.tag = EXTERNAL_SYMBOL_TYPE; t35804.value.external_symbol_type = t35802;} else t35804.tag = (unsigned)t35802; t35805.tag = EXTERNAL_SYMBOL_TYPE; t35805.value.external_symbol_type = t35803; if (f26160(t35804, t35805)==FALSE_TYPE) goto l5222; /* x150539 */ /* x150538 */ t35828 = p16065; p16068 = t35828; /* x150537 stalin.sc:20372:713140 */ /* x150536 stalin.sc:20373:713166 */ /* x150535 stalin.sc:20378:713300 */ /* x150534 stalin.sc:20378:713311 */ t35836 = a27118; /* x150533 stalin.sc:20378:713301 */ t35832 = f8951(t35836); /* x150532 stalin.sc:20373:713171 */ t35831 = p16068; /* x150505 stalin.sc:20373:713167 */ t35833.tag = NATIVE_PROCEDURE_TYPE21821; t35833.value.native_procedure_type21821 = t35831; t35834 = *((struct w49 *)(&t35832)); t35835 = (struct structure_type24753 *)NULL_TYPE; t35829 = f27731(t35833, t35834, t35835); /* x150504 stalin.sc:20372:713141 */ /* MOVE: branching squeezed to general */ if (t35829>=((struct structure_type24753 *)VALUE_OFFSET)) {t35830.tag = STRUCTURE_TYPE24753; t35830.value.structure_type24753 = t35829;} else t35830.tag = (unsigned)t35829; t35776 = f13492(t35830); goto l5223; l5222: /* x150606 */ /* x150543 */ /* x150541 */ t35806 = a27126; /* x150542 */ t35807 = q21; /* x150540 */ /* MOVE: branching squeezed to general */ if (t35806>=((char *)VALUE_OFFSET)) {t35808.tag = EXTERNAL_SYMBOL_TYPE; t35808.value.external_symbol_type = t35806;} else t35808.tag = (unsigned)t35806; t35809.tag = EXTERNAL_SYMBOL_TYPE; t35809.value.external_symbol_type = t35807; if (f26160(t35808, t35809)==FALSE_TYPE) goto l5225; /* x150585 */ /* x150584 */ t35824 = p16065->p16056->p15924->p15922; p16070 = t35824; /* x150583 */ /* x150582 stalin.sc:20381:713397 */ /* x150580 stalin.sc:20381:713412 */ t35825 = p16070->a27041; /* x150581 stalin.sc:20381:713414 */ t35826 = "Indirect display closures are not (yet) implemented"; /* x150579 stalin.sc:20381:713398 */ t35827 = *((struct w6315 *)(&t35825)); f9707(t35827, t35826); /* x150578 */ goto l5226; l5225: /* x150605 */ /* x150589 */ /* x150587 */ t35810 = a27126; /* x150588 */ t35811 = q22; /* x150586 */ /* MOVE: branching squeezed to general */ if (t35810>=((char *)VALUE_OFFSET)) {t35812.tag = EXTERNAL_SYMBOL_TYPE; t35812.value.external_symbol_type = t35810;} else t35812.tag = (unsigned)t35810; t35813.tag = EXTERNAL_SYMBOL_TYPE; t35813.value.external_symbol_type = t35811; if (f26160(t35812, t35813)==FALSE_TYPE) goto l5228; /* x150600 */ /* x150599 */ t35815 = p16065->p16056; p16073 = t35815; /* x150598 stalin.sc:20389:713671 */ /* x150593 stalin.sc:20389:713677 */ /* x150592 stalin.sc:20389:713682 */ t35821 = p16073->a27119; /* x150591 stalin.sc:20389:713678 */ t35816 = f14281(t35821); /* x150597 stalin.sc:20389:713686 */ /* x150595 stalin.sc:20389:713703 */ t35822 = a27118; /* x150596 stalin.sc:20389:713705 */ t35823 = p16073->p15924->a27044; /* x150594 stalin.sc:20389:713687 */ t35817 = f14818(t35822, t35823); /* x150590 stalin.sc:20389:713672 */ t35818.tag = STRUCTURE_TYPE24753; t35818.value.structure_type24753 = t35816; t35819 = *((struct w49 *)(&t35817)); t35820 = f13637(t35818, t35819); t35776.tag = STRUCTURE_TYPE24753; t35776.value.structure_type24753 = t35820; goto l5229; l5228: /* x150604 */ /* x150603 */ /* x150602 stalin.sc:20390:713722 */ /* x150601 stalin.sc:20390:713723 */ /* x295601 QobiScheme.sc:166:5314 */ /* x295600 QobiScheme.sc:166:5321 */ t35814 = "This shouldn\'t happen"; /* x295599 QobiScheme.sc:166:5315 */ stalin_panic(t35814); l5229: l5226: l5223: l5220: l5217: goto l5214; l5213: /* x150614 stalin.sc:20391:713739 */ /* x150613 stalin.sc:20391:713740 */ /* x276555 stalin.sc:14693:514793 */ t35776.tag = STRING_TYPE; t35776.value.string_type = ""; l5214: /* x150476 stalin.sc:20364:712798 */ /* x150475 stalin.sc:20364:712825 */ t35790 = p16064->p16056->a27119; /* x150474 stalin.sc:20364:712799 */ t35775 = f15793(t35790); /* x150473 stalin.sc:20363:712750 */ /* x150467 stalin.sc:20363:712754 */ /* x150465 stalin.sc:20363:712765 */ t35784 = a27125; /* x150466 stalin.sc:20363:712767 */ t35785 = a27124; /* x150464 stalin.sc:20363:712755 */ if (f15763(t35784, t35785)==FALSE_TYPE) goto l5210; /* x150470 stalin.sc:20363:712771 */ /* x150469 stalin.sc:20363:712776 */ t35786 = a27124; /* x150468 stalin.sc:20363:712772 */ a41275 = t35786; /* x299212 stalin.sc:14702:515041 */ /* x299211 stalin.sc:14702:515054 */ t35787 = a41275; /* x299210 stalin.sc:14702:515042 */ t35788.tag = STRUCTURE_TYPE24753; t35788.value.structure_type24753 = t35787; t35789 = f13515(t35788); t35774.tag = STRUCTURE_TYPE24753; t35774.value.structure_type24753 = t35789; goto l5211; l5210: /* x150472 stalin.sc:20363:712780 */ /* x150471 stalin.sc:20363:712781 */ /* x276553 stalin.sc:14693:514793 */ t35774.tag = STRING_TYPE; t35774.value.string_type = ""; l5211: /* x150463 stalin.sc:20362:712740 */ t35773 = a27125; /* x150462 stalin.sc:20361:712716 */ t35783.tag = STRUCTURE_TYPE24753; t35783.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35783.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20361, 712715); out_of_memory_error();} t35783.value.structure_type24753->s0 = t35777; t35783.value.structure_type24753->s1.tag = NULL_TYPE; t35782.tag = STRUCTURE_TYPE24753; t35782.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35782.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20361, 712715); out_of_memory_error();} t35782.value.structure_type24753->s0 = t35776; t35782.value.structure_type24753->s1 = t35783; t35781.tag = STRUCTURE_TYPE24753; t35781.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35781.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20361, 712715); out_of_memory_error();} t35781.value.structure_type24753->s0 = t35775; t35781.value.structure_type24753->s1 = t35782; t35780.tag = STRUCTURE_TYPE24753; t35780.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35780.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20361, 712715); out_of_memory_error();} t35780.value.structure_type24753->s0 = *((struct w49 *)(&t35774)); t35780.value.structure_type24753->s1 = t35781; a41854 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41854==NULL) {backtrace("stalin.sc", 20361, 712715); out_of_memory_error();} a41854->s0 = t35773; a41854->s1 = t35780; /* x301528 stalin.sc:14400:506485 */ /* x301527 stalin.sc:14400:506503 */ t35778 = a41854; /* x301526 stalin.sc:14400:506486 */ t35779.tag = STRUCTURE_TYPE24753; t35779.value.structure_type24753 = t35778; t35305 = f13492(t35779); goto l5208; l5207: /* x150656 stalin.sc:20399:714054 */ /* x150648 stalin.sc:20399:714074 */ t35760 = a27122; /* x150651 stalin.sc:20399:714077 */ /* x150650 stalin.sc:20399:714088 */ t35764 = p16061->p16056->p15924->p15922->a27040; /* x150649 stalin.sc:20399:714078 */ a38366 = t35764; /* x286133 */ /* x286132 */ t35765 = a38366; /* x286131 */ if (!(t35765>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L1[5777] 33283]"); structure_ref_error();} t35761 = t35765->s4; /* x150652 stalin.sc:20399:714091 */ /* x150655 stalin.sc:20399:714094 */ /* x150654 stalin.sc:20399:714105 */ t35766 = p16061->p16056->p15924->p15922->a27040; /* x150653 stalin.sc:20399:714095 */ a38338 = t35766; /* x286021 */ /* x286020 */ t35767 = a38338; /* x286019 */ if (!(t35767>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L0[5793] 33255]"); structure_ref_error();} t35762 = t35767->s6; /* x150647 stalin.sc:20399:714055 */ t35763.tag = FALSE_TYPE; t35305 = f15911(t35760, t35761, t35763, t35762); l5208: goto l5181; l5180: /* x150854 stalin.sc:20400:714112 */ /* x150662 stalin.sc:20400:714116 */ /* x150661 stalin.sc:20400:714126 */ /* x150660 stalin.sc:20400:714148 */ t35654 = a27121; /* x150659 stalin.sc:20400:714127 */ a38892 = t35654; /* x288237 */ /* x288236 */ t35655 = a38892; /* x288235 */ if (!((t35655.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33809]"); structure_ref_error();} t35653 = t35655.value.structure_type27698->s20; /* x150658 stalin.sc:20400:714117 */ if (f6961(t35653)==FALSE_TYPE) goto l5183; /* x150845 stalin.sc:20401:714159 */ /* x150844 stalin.sc:20401:714170 */ /* x150843 stalin.sc:20401:714171 */ t35663 = f15753(); /* x150842 */ t35662 = p16061; p16075 = t35662; a27130 = t35663; /* x150841 */ /* x150840 stalin.sc:20402:714197 */ /* x150836 stalin.sc:20402:714217 */ t35751 = a27122; /* x150837 stalin.sc:20402:714220 */ /* x150838 stalin.sc:20402:714223 */ t35752 = a27130; /* x150839 stalin.sc:20402:714226 */ t35753 = a27130; /* x150835 stalin.sc:20402:714198 */ t35754.tag = FALSE_TYPE; t35755.tag = STRUCTURE_TYPE24753; t35755.value.structure_type24753 = t35752; t35756.tag = STRUCTURE_TYPE24753; t35756.value.structure_type24753 = t35753; t35665 = f15911(t35751, t35754, t35755, t35756); /* x150834 */ t35664 = p16075; p16076 = t35664; a27131 = t35665; /* x150833 */ /* x150832 */ t35666 = p16076; p16077 = t35666; /* x150831 stalin.sc:20403:714239 */ /* x150830 stalin.sc:20437:715460 */ /* x150820 stalin.sc:20437:715480 */ /* x150819 stalin.sc:20437:715502 */ t35743 = a27121; /* x150818 stalin.sc:20437:715481 */ a38891 = t35743; /* x288233 */ /* x288232 */ t35744 = a38891; /* x288231 */ if (!((t35744.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33808]"); structure_ref_error();} t35739 = t35744.value.structure_type27698->s20; /* x150823 stalin.sc:20438:715513 */ /* x150822 stalin.sc:20438:715524 */ t35745 = p16077->p16056->p15924->p15922->a27040; /* x150821 stalin.sc:20438:715514 */ a38367 = t35745; /* x286137 */ /* x286136 */ t35746 = a38367; /* x286135 */ if (!(t35746>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L1[5777] 33284]"); structure_ref_error();} t35740 = t35746->s4; /* x150826 stalin.sc:20439:715534 */ /* x150825 stalin.sc:20439:715545 */ t35747 = p16077->p16056->p15924->p15922->a27040; /* x150824 stalin.sc:20439:715535 */ a38354 = t35747; /* x286085 */ /* x286084 */ t35748 = a38354; /* x286083 */ if (!(t35748>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L2[5785] 33271]"); structure_ref_error();} t35741 = t35748->s5; /* x150829 stalin.sc:20440:715555 */ /* x150828 stalin.sc:20440:715566 */ t35749 = p16077->p16056->p15924->p15922->a27040; /* x150827 stalin.sc:20440:715556 */ a38339 = t35749; /* x286025 */ /* x286024 */ t35750 = a38339; /* x286023 */ if (!(t35750>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L0[5793] 33256]"); structure_ref_error();} t35742 = t35750->s6; /* x150817 stalin.sc:20437:715461 */ t35671 = f15911(t35739, t35740, t35741, t35742); /* x150816 stalin.sc:20407:714361 */ /* x150680 stalin.sc:20407:714365 */ /* x150679 stalin.sc:20407:714388 */ t35685 = p16077->p16056->a27119; /* x150678 stalin.sc:20407:714366 */ if ((f8897(t35685).tag)==FALSE_TYPE) goto l5189; /* x150813 stalin.sc:20408:714397 */ /* x150812 stalin.sc:20408:714403 */ t35687 = a686; /* x150811 */ t35686 = p16077; p16078 = t35686; a27132 = t35687; /* x150810 */ /* x150684 */ /* x150682 */ t35688 = a27132; /* x150683 */ t35689 = q18; /* x150681 */ /* MOVE: branching squeezed to general */ if (t35688>=((char *)VALUE_OFFSET)) {t35690.tag = EXTERNAL_SYMBOL_TYPE; t35690.value.external_symbol_type = t35688;} else t35690.tag = (unsigned)t35688; t35691.tag = EXTERNAL_SYMBOL_TYPE; t35691.value.external_symbol_type = t35689; if (f26160(t35690, t35691)==FALSE_TYPE) goto l5192; /* x150690 */ /* x150689 */ t35735 = p16078->p16056->p15924->p15922; p16079 = t35735; /* x150688 stalin.sc:20410:714459 */ /* x150686 stalin.sc:20410:714474 */ t35736 = p16079->a27041; /* x150687 stalin.sc:20410:714476 */ t35737 = "Immediate flat closures are not (yet) implemented"; /* x150685 stalin.sc:20410:714460 */ t35738 = *((struct w6315 *)(&t35736)); f9707(t35738, t35737); goto l5193; l5192: /* x150809 */ /* x150694 */ /* x150692 */ t35692 = a27132; /* x150693 */ t35693 = q19; /* x150691 */ /* MOVE: branching squeezed to general */ if (t35692>=((char *)VALUE_OFFSET)) {t35694.tag = EXTERNAL_SYMBOL_TYPE; t35694.value.external_symbol_type = t35692;} else t35694.tag = (unsigned)t35692; t35695.tag = EXTERNAL_SYMBOL_TYPE; t35695.value.external_symbol_type = t35693; if (f26160(t35694, t35695)==FALSE_TYPE) goto l5195; /* x150700 */ /* x150699 */ t35731 = p16078->p16056->p15924->p15922; p16080 = t35731; /* x150698 stalin.sc:20412:714560 */ /* x150696 stalin.sc:20412:714575 */ t35732 = p16080->a27041; /* x150697 stalin.sc:20412:714577 */ t35733 = "Indirect flat closures are not (yet) implemented"; /* x150695 stalin.sc:20412:714561 */ t35734 = *((struct w6315 *)(&t35732)); f9707(t35734, t35733); goto l5196; l5195: /* x150808 */ /* x150704 */ /* x150702 */ t35696 = a27132; /* x150703 */ t35697 = q20; /* x150701 */ /* MOVE: branching squeezed to general */ if (t35696>=((char *)VALUE_OFFSET)) {t35698.tag = EXTERNAL_SYMBOL_TYPE; t35698.value.external_symbol_type = t35696;} else t35698.tag = (unsigned)t35696; t35699.tag = EXTERNAL_SYMBOL_TYPE; t35699.value.external_symbol_type = t35697; if (f26160(t35698, t35699)==FALSE_TYPE) goto l5198; /* x150740 */ /* x150739 */ t35722 = p16078; p16081 = t35722; /* x150738 stalin.sc:20414:714664 */ /* x150737 stalin.sc:20415:714690 */ /* x150736 stalin.sc:20420:714824 */ /* x150735 stalin.sc:20420:714835 */ t35730 = a27118; /* x150734 stalin.sc:20420:714825 */ t35726 = f8951(t35730); /* x150733 stalin.sc:20415:714695 */ t35725 = p16081; /* x150706 stalin.sc:20415:714691 */ t35727.tag = NATIVE_PROCEDURE_TYPE21809; t35727.value.native_procedure_type21809 = t35725; t35728 = *((struct w49 *)(&t35726)); t35729 = (struct structure_type24753 *)NULL_TYPE; t35723 = f27731(t35727, t35728, t35729); /* x150705 stalin.sc:20414:714665 */ /* MOVE: branching squeezed to general */ if (t35723>=((struct structure_type24753 *)VALUE_OFFSET)) {t35724.tag = STRUCTURE_TYPE24753; t35724.value.structure_type24753 = t35723;} else t35724.tag = (unsigned)t35723; t35670 = f13492(t35724); goto l5199; l5198: /* x150807 */ /* x150744 */ /* x150742 */ t35700 = a27132; /* x150743 */ t35701 = q21; /* x150741 */ /* MOVE: branching squeezed to general */ if (t35700>=((char *)VALUE_OFFSET)) {t35702.tag = EXTERNAL_SYMBOL_TYPE; t35702.value.external_symbol_type = t35700;} else t35702.tag = (unsigned)t35700; t35703.tag = EXTERNAL_SYMBOL_TYPE; t35703.value.external_symbol_type = t35701; if (f26160(t35702, t35703)==FALSE_TYPE) goto l5201; /* x150786 */ /* x150785 */ t35718 = p16078->p16056->p15924->p15922; p16083 = t35718; /* x150784 */ /* x150783 stalin.sc:20423:714921 */ /* x150781 stalin.sc:20423:714936 */ t35719 = p16083->a27041; /* x150782 stalin.sc:20423:714938 */ t35720 = "Indirect display closures are not (yet) implemented"; /* x150780 stalin.sc:20423:714922 */ t35721 = *((struct w6315 *)(&t35719)); f9707(t35721, t35720); /* x150779 */ goto l5202; l5201: /* x150806 */ /* x150790 */ /* x150788 */ t35704 = a27132; /* x150789 */ t35705 = q22; /* x150787 */ /* MOVE: branching squeezed to general */ if (t35704>=((char *)VALUE_OFFSET)) {t35706.tag = EXTERNAL_SYMBOL_TYPE; t35706.value.external_symbol_type = t35704;} else t35706.tag = (unsigned)t35704; t35707.tag = EXTERNAL_SYMBOL_TYPE; t35707.value.external_symbol_type = t35705; if (f26160(t35706, t35707)==FALSE_TYPE) goto l5204; /* x150801 */ /* x150800 */ t35709 = p16078->p16056; p16086 = t35709; /* x150799 stalin.sc:20431:715195 */ /* x150794 stalin.sc:20431:715201 */ /* x150793 stalin.sc:20431:715206 */ t35715 = p16086->a27119; /* x150792 stalin.sc:20431:715202 */ t35710 = f14281(t35715); /* x150798 stalin.sc:20431:715210 */ /* x150796 stalin.sc:20431:715227 */ t35716 = a27118; /* x150797 stalin.sc:20431:715229 */ t35717 = p16086->p15924->a27044; /* x150795 stalin.sc:20431:715211 */ t35711 = f14818(t35716, t35717); /* x150791 stalin.sc:20431:715196 */ t35712.tag = STRUCTURE_TYPE24753; t35712.value.structure_type24753 = t35710; t35713 = *((struct w49 *)(&t35711)); t35714 = f13637(t35712, t35713); t35670.tag = STRUCTURE_TYPE24753; t35670.value.structure_type24753 = t35714; goto l5205; l5204: /* x150805 */ /* x150804 */ /* x150803 stalin.sc:20432:715246 */ /* x150802 stalin.sc:20432:715247 */ /* x295605 QobiScheme.sc:166:5314 */ /* x295604 QobiScheme.sc:166:5321 */ t35708 = "This shouldn\'t happen"; /* x295603 QobiScheme.sc:166:5315 */ stalin_panic(t35708); l5205: l5202: l5199: l5196: l5193: goto l5190; l5189: /* x150815 stalin.sc:20433:715263 */ /* x150814 stalin.sc:20433:715264 */ /* x276559 stalin.sc:14693:514793 */ t35670.tag = STRING_TYPE; t35670.value.string_type = ""; l5190: /* x150677 stalin.sc:20406:714322 */ /* x150676 stalin.sc:20406:714349 */ t35684 = p16077->p16056->a27119; /* x150675 stalin.sc:20406:714323 */ t35669 = f15793(t35684); /* x150674 stalin.sc:20405:714274 */ /* x150668 stalin.sc:20405:714278 */ /* x150666 stalin.sc:20405:714289 */ t35678 = a27131; /* x150667 stalin.sc:20405:714291 */ t35679 = a27130; /* x150665 stalin.sc:20405:714279 */ if (f15763(t35678, t35679)==FALSE_TYPE) goto l5186; /* x150671 stalin.sc:20405:714295 */ /* x150670 stalin.sc:20405:714300 */ t35680 = a27130; /* x150669 stalin.sc:20405:714296 */ a41276 = t35680; /* x299216 stalin.sc:14702:515041 */ /* x299215 stalin.sc:14702:515054 */ t35681 = a41276; /* x299214 stalin.sc:14702:515042 */ t35682.tag = STRUCTURE_TYPE24753; t35682.value.structure_type24753 = t35681; t35683 = f13515(t35682); t35668.tag = STRUCTURE_TYPE24753; t35668.value.structure_type24753 = t35683; goto l5187; l5186: /* x150673 stalin.sc:20405:714304 */ /* x150672 stalin.sc:20405:714305 */ /* x276557 stalin.sc:14693:514793 */ t35668.tag = STRING_TYPE; t35668.value.string_type = ""; l5187: /* x150664 stalin.sc:20404:714264 */ t35667 = a27131; /* x150663 stalin.sc:20403:714240 */ t35677.tag = STRUCTURE_TYPE24753; t35677.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35677.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20403, 714239); out_of_memory_error();} t35677.value.structure_type24753->s0 = t35671; t35677.value.structure_type24753->s1.tag = NULL_TYPE; t35676.tag = STRUCTURE_TYPE24753; t35676.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35676.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20403, 714239); out_of_memory_error();} t35676.value.structure_type24753->s0 = t35670; t35676.value.structure_type24753->s1 = t35677; t35675.tag = STRUCTURE_TYPE24753; t35675.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35675.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20403, 714239); out_of_memory_error();} t35675.value.structure_type24753->s0 = t35669; t35675.value.structure_type24753->s1 = t35676; t35674.tag = STRUCTURE_TYPE24753; t35674.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35674.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20403, 714239); out_of_memory_error();} t35674.value.structure_type24753->s0 = *((struct w49 *)(&t35668)); t35674.value.structure_type24753->s1 = t35675; a41855 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41855==NULL) {backtrace("stalin.sc", 20403, 714239); out_of_memory_error();} a41855->s0 = t35667; a41855->s1 = t35674; /* x301532 stalin.sc:14400:506485 */ /* x301531 stalin.sc:14400:506503 */ t35672 = a41855; /* x301530 stalin.sc:14400:506486 */ t35673.tag = STRUCTURE_TYPE24753; t35673.value.structure_type24753 = t35672; t35305 = f13492(t35673); goto l5184; l5183: /* x150853 stalin.sc:20441:715578 */ /* x150847 stalin.sc:20441:715598 */ t35656 = a27122; /* x150848 stalin.sc:20441:715601 */ /* x150849 stalin.sc:20441:715604 */ /* x150852 stalin.sc:20441:715607 */ /* x150851 stalin.sc:20441:715618 */ t35660 = p16061->p16056->p15924->p15922->a27040; /* x150850 stalin.sc:20441:715608 */ a38340 = t35660; /* x286029 */ /* x286028 */ t35661 = a38340; /* x286027 */ if (!(t35661>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L0[5793] 33257]"); structure_ref_error();} t35657 = t35661->s6; /* x150846 stalin.sc:20441:715579 */ t35658.tag = FALSE_TYPE; t35659.tag = FALSE_TYPE; t35305 = f15911(t35656, t35658, t35659, t35657); l5184: l5181: goto l5158; l5157: /* x151085 */ /* x150906 stalin.sc:20442:715630 */ /* x150901 stalin.sc:20442:715635 */ /* x150900 stalin.sc:20442:715648 */ t35540 = p16053->p15922->a27040; /* x150899 stalin.sc:20442:715636 */ /* MOVE: branching squeezed to general */ if (t35540>=((struct structure_type27501 *)VALUE_OFFSET)) {t35541.tag = STRUCTURE_TYPE27501; t35541.value.structure_type27501 = t35540;} else t35541.tag = (unsigned)t35540; if (f7032(t35541)==FALSE_TYPE) goto l5161; /* x150904 */ /* x150903 stalin.sc:20442:715668 */ t35542 = p16053->p15922->a27041; /* x150902 stalin.sc:20442:715652 */ if (f15919(t35542)==FALSE_TYPE) goto l5161; /* x150924 */ /* x150923 */ t35621 = p16053->p15922; p16088 = t35621; /* x150922 stalin.sc:20443:715676 */ /* x150912 stalin.sc:20443:715696 */ /* x150911 stalin.sc:20443:715703 */ /* x150910 stalin.sc:20443:715725 */ t35628 = p16088->a27041; /* x150909 stalin.sc:20443:715704 */ a38534 = t35628; /* x286805 */ /* x286804 */ t35629 = a38534; /* x286803 */ if (!((t35629.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33451]"); structure_ref_error();} t35626 = t35629.value.structure_type27698->s22; /* x150908 stalin.sc:20443:715697 */ a35927 = t35626; /* x275065 */ /* x275064 */ t35627 = a35927; /* x275063 */ if (!((t35627.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30076]"); structure_ref_error();} t35622 = t35627.value.structure_type24753->s0; /* x150915 stalin.sc:20444:715739 */ /* x150914 stalin.sc:20444:715750 */ t35630 = p16088->a27040; /* x150913 stalin.sc:20444:715740 */ a38355 = t35630; /* x286089 */ /* x286088 */ t35631 = a38355; /* x286087 */ if (!(t35631>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L2[5785] 33272]"); structure_ref_error();} t35623 = t35631->s5; /* x150918 stalin.sc:20445:715763 */ /* x150917 stalin.sc:20445:715774 */ t35632 = p16088->a27040; /* x150916 stalin.sc:20445:715764 */ a38369 = t35632; /* x286145 */ /* x286144 */ t35633 = a38369; /* x286143 */ if (!(t35633>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L1[5777] 33286]"); structure_ref_error();} t35624 = t35633->s4; /* x150921 stalin.sc:20446:715787 */ /* x150920 stalin.sc:20446:715798 */ t35634 = p16088->a27040; /* x150919 stalin.sc:20446:715788 */ a38342 = t35634; /* x286037 */ /* x286036 */ t35635 = a38342; /* x286035 */ if (!(t35635>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L0[5793] 33259]"); structure_ref_error();} t35625 = t35635->s6; /* x150907 stalin.sc:20443:715677 */ t35305 = f15911(t35622, t35623, t35624, t35625); goto l5162; l5161: /* x151084 */ /* x151083 */ t35543 = p16053->p15922; p16089 = t35543; /* x151082 stalin.sc:20448:715816 */ /* x151081 stalin.sc:20448:715827 */ /* x151080 stalin.sc:20448:715848 */ /* x151079 stalin.sc:20448:715867 */ t35619 = p16089->a27041; /* x151078 stalin.sc:20448:715849 */ a38667 = t35619; /* x287337 */ /* x287336 */ t35620 = a38667; /* x287335 */ if (!((t35620.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33584]"); structure_ref_error();} t35617 = t35620.value.structure_type27698->s21; /* x151077 stalin.sc:20448:715828 */ a39984 = t35617; /* x292605 */ /* x292604 */ t35618 = a39984; /* x292603 */ if (!((t35618.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34901]"); structure_ref_error();} t35545 = t35618.value.structure_type27698->s10; /* x151076 */ t35544 = p16089; p16090 = t35544; a27136 = t35545; e16090 = (struct p16090 *)alloca(sizeof(struct p16090)); if (e16090==NULL) {backtrace_internal("[inside COMPILE 16089]"); out_of_memory_error();} e16090->p15922 = p16090; e16090->a27136 = a27136; /* x151075 */ /* x151074 stalin.sc:20449:715880 */ /* x151073 stalin.sc:20449:715905 */ /* x151072 stalin.sc:20449:715927 */ t35615 = p16090->a27041; /* x151071 stalin.sc:20449:715906 */ a38560 = t35615; /* x286909 */ /* x286908 */ t35616 = a38560; /* x286907 */ if (!((t35616.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33477]"); structure_ref_error();} t35611 = t35616.value.structure_type27698->s22; /* x151070 stalin.sc:20449:715885 */ /* x151069 stalin.sc:20449:715881 */ t35612.tag = NATIVE_PROCEDURE_TYPE7945; t35613 = *((struct w49 *)(&t35611)); t35614 = (struct structure_type24753 *)NULL_TYPE; t35547 = f27731(t35612, t35613, t35614); /* x151068 */ t35546 = e16090; p16091 = t35546; a27137 = t35547; e16091 = (struct p16091 *)alloca(sizeof(struct p16091)); if (e16091==NULL) {backtrace_internal("[inside COMPILE 16090]"); out_of_memory_error();} e16091->p16090 = p16091; e16091->a27137 = a27137; /* x151067 */ /* x151066 stalin.sc:20450:715940 */ /* x151065 stalin.sc:20450:715960 */ t35610 = p16091->a27136; /* x151064 stalin.sc:20450:715941 */ t35549 = f15531(t35610); /* x151063 */ t35548 = e16091; p16092 = t35548; a27138 = t35549; e16092 = (struct p16092 *)alloca(sizeof(struct p16092)); if (e16092==NULL) {backtrace_internal("[inside COMPILE 16091]"); out_of_memory_error();} e16092->p16091 = p16092; e16092->a27138 = a27138; /* x151062 */ /* x151061 stalin.sc:20451:715973 */ /* x151060 stalin.sc:20451:715997 */ t35606 = p16092->a27137; /* x151059 stalin.sc:20451:715978 */ /* x151058 stalin.sc:20451:715974 */ t35607.tag = NATIVE_PROCEDURE_TYPE6686; /* MOVE: branching squeezed to general */ if (t35606>=((struct structure_type24753 *)VALUE_OFFSET)) {t35608.tag = STRUCTURE_TYPE24753; t35608.value.structure_type24753 = t35606;} else t35608.tag = (unsigned)t35606; t35609 = (struct structure_type24753 *)NULL_TYPE; t35551 = f27731(t35607, t35608, t35609); /* x151057 */ t35550 = e16092; p16093 = t35550; a27139 = t35551; e16093 = (struct p16093 *)alloca(sizeof(struct p16093)); if (e16093==NULL) {backtrace_internal("[inside COMPILE 16092]"); out_of_memory_error();} e16093->p16092 = p16093; e16093->a27139 = a27139; /* x151056 */ /* x151055 */ t35552 = e16093; p16094 = t35552; /* x151054 stalin.sc:20452:716008 */ /* x151053 stalin.sc:20485:717558 */ /* x150994 stalin.sc:20485:717562 */ /* x150993 stalin.sc:20485:717573 */ t35593 = p16094->p16092->p16091->p16090->p15922->a27041; /* x150992 stalin.sc:20485:717563 */ if (f6967(t35593)==FALSE_TYPE) goto l5174; /* x151050 stalin.sc:20486:717579 */ /* x150997 stalin.sc:20486:717583 */ /* x150996 stalin.sc:20486:717590 */ t35594 = p16094->p16092->p16091->p16090->a27136; /* x150995 stalin.sc:20486:717584 */ if (f8147(t35594)==FALSE_TYPE) goto l5177; /* x151002 stalin.sc:20487:717601 */ /* x150999 stalin.sc:20487:717616 */ t35602 = "void_call"; /* x151000 stalin.sc:20487:717628 */ t35603 = p16094->p16092->p16091->p16090->p15922->a27041; /* x151001 stalin.sc:20487:717630 */ /* x150998 stalin.sc:20487:717602 */ t35604 = TRUE_TYPE; t35605 = f15534(t35602, t35603, t35604); t35555.tag = STRUCTURE_TYPE24753; t35555.value.structure_type24753 = t35605; goto l5178; l5177: /* x151049 stalin.sc:20488:717641 */ /* x151006 stalin.sc:20489:717662 */ /* x151005 stalin.sc:20489:717680 */ t35601 = p16094->p16092->p16091->p16090->p15922->a27041; /* x151004 stalin.sc:20489:717663 */ t35595 = f7886(t35601); /* x151007 stalin.sc:20490:717691 */ t35596 = p16094->p16092->p16091->p16090->a27136; /* x151008 stalin.sc:20491:717702 */ t35597 = p16094->p16092->p16091->p16090->p15922->a27040; /* x151009 stalin.sc:20492:717712 */ t35598 = p16094->p16092->a27138; /* x151042 stalin.sc:20493:717723 */ t35599 = p16094; /* x151048 stalin.sc:20500:717959 */ t35600 = p16094->p16092->p16091->p16090->p15922; /* x151003 stalin.sc:20488:717642 */ /* MOVE: squished to squished */ b26111 = ((unsigned)(t35595&(~3)))+("\001\000"[t35595&3]); b26112 = t35596; b26113 = t35597; b26114 = *((struct w49 *)(&t35598)); b26115.tag = NATIVE_PROCEDURE_TYPE20758; b26115.value.native_procedure_type20758 = t35599; b26116.tag = NATIVE_PROCEDURE_TYPE20757; b26116.value.native_procedure_type20757 = t35600; t35555 = f14692(); l5178: goto l5175; l5174: /* x151052 stalin.sc:20501:718006 */ /* x151051 stalin.sc:20501:718007 */ /* x276871 stalin.sc:14693:514793 */ t35555.tag = STRING_TYPE; t35555.value.string_type = ""; l5175: /* x150991 stalin.sc:20481:717411 */ /* x150987 stalin.sc:20481:717420 */ /* x150981 stalin.sc:20481:717424 */ /* x150980 stalin.sc:20481:717446 */ /* x150979 stalin.sc:20481:717465 */ t35585 = p16094->p16092->p16091->p16090->p15922->a27041; /* x150978 stalin.sc:20481:717447 */ a38665 = t35585; /* x287329 */ /* x287328 */ t35586 = a38665; /* x287327 */ if (!((t35586.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33582]"); structure_ref_error();} t35584 = t35586.value.structure_type27698->s21; /* x150977 stalin.sc:20481:717425 */ if (f6936(t35584)==FALSE_TYPE) goto l5171; /* x150985 stalin.sc:20482:717474 */ /* x150983 stalin.sc:20482:717498 */ t35587 = p16094->p16092->p16091->p16090->a27136; /* x150984 stalin.sc:20482:717501 */ t35588 = p16094->p16092->a27138; /* x150982 stalin.sc:20482:717475 */ t35589 = *((struct w49 *)(&t35588)); t35590 = f7025(t35587, t35589); t35582 = t35590; goto l5172; l5171: /* x150986 stalin.sc:20483:717510 */ t35582 = a1194; l5172: /* x150990 stalin.sc:20484:717529 */ /* x150989 stalin.sc:20484:717548 */ t35591 = p16094->p16092->p16091->p16090->p15922->a27041; /* x150988 stalin.sc:20484:717530 */ a38666 = t35591; /* x287333 */ /* x287332 */ t35592 = a38666; /* x287331 */ if (!((t35592.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33583]"); structure_ref_error();} t35583 = t35592.value.structure_type27698->s21; /* x150976 stalin.sc:20481:717412 */ t35554 = f15922(t35582, t35583); /* x150975 stalin.sc:20465:716868 */ /* x150974 stalin.sc:20469:717069 */ /* x150973 stalin.sc:20475:717234 */ /* x150972 stalin.sc:20480:717377 */ /* x150971 stalin.sc:20480:717399 */ t35580 = p16094->p16092->p16091->p16090->p15922->a27041; /* x150970 stalin.sc:20480:717378 */ a38559 = t35580; /* x286905 */ /* x286904 */ t35581 = a38559; /* x286903 */ if (!((t35581.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33476]"); structure_ref_error();} t35575 = t35581.value.structure_type27698->s22; /* x150969 stalin.sc:20480:717374 */ t35574 = p16094->a27139; /* x150968 stalin.sc:20480:717371 */ t35573 = p16094->p16092->p16091->a27137; /* x150967 stalin.sc:20475:717239 */ /* x150954 stalin.sc:20475:717235 */ t35576.tag = NATIVE_PROCEDURE_TYPE18337; /* MOVE: branching squeezed to general */ if (t35573>=((struct structure_type24753 *)VALUE_OFFSET)) {t35577.tag = STRUCTURE_TYPE24753; t35577.value.structure_type24753 = t35573;} else t35577.tag = (unsigned)t35573; t35579.tag = STRUCTURE_TYPE24753; t35579.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35579.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20475, 717234); out_of_memory_error();} t35579.value.structure_type24753->s0 = *((struct w49 *)(&t35575)); t35579.value.structure_type24753->s1.tag = NULL_TYPE; t35578 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t35578==NULL) {backtrace("stalin.sc", 20475, 717234); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t35574>=((struct structure_type24753 *)VALUE_OFFSET)) {t35578->s0.tag = STRUCTURE_TYPE24753; t35578->s0.value.structure_type24753 = t35574;} else t35578->s0.tag = (unsigned)t35574; t35578->s1 = t35579; t35563 = f27731(t35576, t35577, t35578); /* x150953 stalin.sc:20469:717070 */ /* x150950 stalin.sc:20469:717074 */ /* x150929 stalin.sc:20469:717079 */ /* x150928 stalin.sc:20469:717093 */ t35565 = p16094->p16092->p16091->p16090->a27136; /* x150927 stalin.sc:20469:717080 */ if (f8148(t35565)==FALSE_TYPE) goto l5165; /* x150948 */ /* x150934 stalin.sc:20470:717100 */ /* x150933 stalin.sc:20470:717124 */ /* x150932 stalin.sc:20470:717136 */ t35568 = p16094->p16092->p16091->p16090->a27136; /* x150931 stalin.sc:20470:717125 */ t35566 = f8153(t35568); /* x150930 stalin.sc:20470:717101 */ a38096 = t35566; /* x285053 */ /* x285052 */ t35567 = a38096; /* x285051 */ if (!((t35567.tag)==STRUCTURE_TYPE27756)) goto l5165; /* x150946 */ /* x150939 stalin.sc:20471:717144 */ /* x150938 stalin.sc:20471:717153 */ /* x150937 stalin.sc:20471:717165 */ t35570 = p16094->p16092->p16091->p16090->a27136; /* x150936 stalin.sc:20471:717154 */ t35569 = f8153(t35570); /* x150935 stalin.sc:20471:717145 */ if ((f8899(t35569).tag)==FALSE_TYPE) goto l5165; /* x150944 */ /* x150943 stalin.sc:20472:717180 */ /* x150942 stalin.sc:20472:717192 */ t35572 = p16094->p16092->p16091->p16090->a27136; /* x150941 stalin.sc:20472:717181 */ t35571 = f8153(t35572); /* x150940 stalin.sc:20472:717174 */ if (f8931(t35571)==FALSE_TYPE) goto l5165; /* x150951 stalin.sc:20473:717203 */ t35562 = NATIVE_PROCEDURE_TYPE452; goto l5166; l5165: /* x150952 stalin.sc:20474:717216 */ t35562 = NATIVE_PROCEDURE_TYPE8092; l5166: if (t35562==NATIVE_PROCEDURE_TYPE452) {/* MOVE: branching squeezed to general */ if (t35563>=((struct structure_type24753 *)VALUE_OFFSET)) {t35564.tag = STRUCTURE_TYPE24753; t35564.value.structure_type24753 = t35563;} else t35564.tag = (unsigned)t35563; t35560 = f26331(t35564);} else {a14607 = t35563; /* x13663 QobiScheme.sc:153:5129 */ /* MOVE: branching squeezed to general */ if (a14607>=((struct structure_type24753 *)VALUE_OFFSET)) {t35560.tag = STRUCTURE_TYPE24753; t35560.value.structure_type24753 = a14607;} else t35560.tag = (unsigned)a14607;} /* x150926 stalin.sc:20465:716869 */ t35561 = *((struct w49 *)(&t35560)); t35553 = f13492(t35561); /* x150925 stalin.sc:20452:716009 */ t35559.tag = STRUCTURE_TYPE24753; t35559.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35559.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20452, 716008); out_of_memory_error();} t35559.value.structure_type24753->s0 = t35555; t35559.value.structure_type24753->s1.tag = NULL_TYPE; t35558.tag = STRUCTURE_TYPE24753; t35558.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35558.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20452, 716008); out_of_memory_error();} t35558.value.structure_type24753->s0 = t35554; t35558.value.structure_type24753->s1 = t35559; a41932 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41932==NULL) {backtrace("stalin.sc", 20452, 716008); out_of_memory_error();} a41932->s0 = t35553; a41932->s1 = t35558; /* x301840 stalin.sc:14400:506485 */ /* x301839 stalin.sc:14400:506503 */ t35556 = a41932; /* x301838 stalin.sc:14400:506486 */ t35557.tag = STRUCTURE_TYPE24753; t35557.value.structure_type24753 = t35556; t35305 = f13492(t35557); l5162: l5158: goto l5154; l5153: /* x151092 */ /* x151091 */ /* x151090 stalin.sc:20502:718028 */ /* x151089 stalin.sc:20502:718029 */ /* x296621 QobiScheme.sc:166:5314 */ /* x296620 QobiScheme.sc:166:5321 */ t35535 = "This shouldn\'t happen"; /* x296619 QobiScheme.sc:166:5315 */ stalin_panic(t35535); l5154: l5151: l5148: l5145: l5142: l5139: l5134: l5131: l5128: l5125: l5122: l5119: l5116: l5113: l5110: l5107: l5104: l5101: l5092: /* x148524 stalin.sc:19944:697970 */ a27037 = t35304; a27038 = t35305; /* x148521 stalin.sc:19925:697428 */ /* x148520 stalin.sc:19925:697437 */ /* x148519 stalin.sc:19938:697818 */ t35311 = a27038; /* x148518 stalin.sc:19926:697458 */ /* x148479 stalin.sc:19926:697462 */ /* x148478 stalin.sc:19926:697483 */ t35315 = a27037; /* x148477 stalin.sc:19926:697463 */ a40196 = t35315; /* x293453 */ /* x293452 */ t35316 = a40196; /* x293451 */ if (!((t35316.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35113]"); structure_ref_error();} if ((t35316.value.structure_type27698->s3.tag)==FALSE_TYPE) goto l5068; /* x148507 stalin.sc:19927:697494 */ /* x148506 stalin.sc:19927:697502 */ /* x148505 stalin.sc:19935:697683 */ /* x148504 stalin.sc:19935:697699 */ /* x148503 stalin.sc:19935:697730 */ t35428 = a27037; /* x148502 stalin.sc:19935:697700 */ a40160 = t35428; /* x293309 */ /* x293308 */ t35429 = a40160; /* x293307 */ if (!((t35429.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION[5527] 35077]"); structure_ref_error();} t35426 = t35429.value.structure_type27698->s5; /* x148501 stalin.sc:19935:697684 */ t35427 = *((struct w49 *)(&t35426)); t35334 = f28396(t35427); /* x148500 stalin.sc:19934:697676 */ t35333 = ":"; /* x148499 stalin.sc:19933:697627 */ /* x148498 stalin.sc:19933:697643 */ /* x148497 stalin.sc:19933:697669 */ t35424 = a27037; /* x148496 stalin.sc:19933:697644 */ a40176 = t35424; /* x293373 */ /* x293372 */ t35425 = a40176; /* x293371 */ if (!((t35425.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LINE-POSITION[5519] 35093]"); structure_ref_error();} t35422 = t35425.value.structure_type27698->s4; /* x148495 stalin.sc:19933:697628 */ t35423 = *((struct w49 *)(&t35422)); t35332 = f28396(t35423); /* x148494 stalin.sc:19932:697620 */ t35331 = ":"; /* x148493 stalin.sc:19931:697575 */ /* x148492 stalin.sc:19931:697592 */ /* x148491 stalin.sc:19931:697613 */ t35420 = a27037; /* x148490 stalin.sc:19931:697593 */ a40195 = t35420; /* x293449 */ /* x293448 */ t35421 = a40195; /* x293447 */ if (!((t35421.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35112]"); structure_ref_error();} t35347 = t35421.value.structure_type27698->s3; /* x148489 stalin.sc:19931:697576 */ a15598 = t35347; /* x21648 */ /* x21647 QobiScheme.sc:1475:44366 */ /* x21639 QobiScheme.sc:1475:44372 */ /* x21638 QobiScheme.sc:1475:44391 */ t35416 = "-"; /* x21637 QobiScheme.sc:1475:44382 */ t35415 = a15598; /* x21636 QobiScheme.sc:1475:44373 */ t35417 = t35415; t35418.tag = STRING_TYPE; t35418.value.string_type = t35416; if (f27434(t35417, t35418)==FALSE_TYPE) goto l5088; /* x21644 */ /* x21643 */ /* x21642 QobiScheme.sc:1475:44396 */ /* x21641 QobiScheme.sc:1475:44403 */ t35419 = "Invalid pathname"; /* x270829 QobiScheme.sc:1475:44397 */ stalin_panic(t35419); goto l5089; l5088: /* x21646 QobiScheme.sc:1475:44366 */ /* x21645 QobiScheme.sc:1475:44366 */ l5089: /* x21635 */ /* x21634 QobiScheme.sc:1476:44425 */ /* x21610 QobiScheme.sc:1476:44429 */ /* x21609 QobiScheme.sc:1476:44445 */ t35348 = a15598; /* x21608 QobiScheme.sc:1476:44430 */ a15588 = t35348; /* x21557 */ /* x21556 QobiScheme.sc:1464:43894 */ /* x21548 QobiScheme.sc:1464:43900 */ /* x21547 QobiScheme.sc:1464:43919 */ t35364 = "-"; /* x21546 QobiScheme.sc:1464:43910 */ t35363 = a15588; /* x21545 QobiScheme.sc:1464:43901 */ t35365 = t35363; t35366.tag = STRING_TYPE; t35366.value.string_type = t35364; if (f27434(t35365, t35366)==FALSE_TYPE) goto l5076; /* x21553 */ /* x21552 */ /* x21551 QobiScheme.sc:1464:43924 */ /* x21550 QobiScheme.sc:1464:43931 */ t35367 = "Invalid pathname"; /* x270831 QobiScheme.sc:1464:43925 */ stalin_panic(t35367); goto l5077; l5076: /* x21555 QobiScheme.sc:1464:43894 */ /* x21554 QobiScheme.sc:1464:43894 */ l5077: /* x21544 */ /* x21543 QobiScheme.sc:1465:43953 */ /* x21542 QobiScheme.sc:1465:43967 */ /* x21541 QobiScheme.sc:1465:43976 */ /* x21540 QobiScheme.sc:1465:43990 */ t35362 = a15588; /* x21539 QobiScheme.sc:1465:43977 */ a34032 = t35362; t35360 = f27579(); /* x21538 QobiScheme.sc:1465:43968 */ /* MOVE: branching squeezed to general */ if (t35360>=((struct structure_type24753 *)VALUE_OFFSET)) {t35361.tag = STRUCTURE_TYPE24753; t35361.value.structure_type24753 = t35360;} else t35361.tag = (unsigned)t35360; t35349 = f26331(t35361); /* x21537 */ /* x21536 */ /* x21535 */ /* x21534 */ /* x21533 */ /* x21532 */ /* x21531 */ /* x21507 */ /* x21506 QobiScheme.sc:1465:43958 */ a15592 = *((struct w49 *)(&t35349)); h2037: /* x21530 QobiScheme.sc:1466:44005 */ /* x21512 QobiScheme.sc:1466:44010 */ /* x21511 QobiScheme.sc:1466:44015 */ /* x21510 QobiScheme.sc:1466:44022 */ t35350 = a15592; /* x270832 QobiScheme.sc:1466:44016 */ if ((t35350.tag)==NULL_TYPE) goto l5071; /* x21528 */ /* x21527 QobiScheme.sc:1466:44030 */ /* x21526 QobiScheme.sc:1466:44048 */ t35352 = '/'; /* x21525 QobiScheme.sc:1466:44038 */ /* x21524 QobiScheme.sc:1466:44045 */ t35355 = *((struct w16638 *)(&a15592)); /* x21523 QobiScheme.sc:1466:44039 */ a36084 = t35355; /* x275693 */ /* x275692 */ t35356 = a36084; /* x275691 */ if (!((t35356.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30233]"); structure_ref_error();} t35351 = t35356.value.structure_type24753->s0; /* x21522 QobiScheme.sc:1466:44031 */ t35353 = t35351; t35354 = t35352; if (!(f27342(t35353, t35354)==FALSE_TYPE)) goto l5070; /* x21519 */ /* x21518 QobiScheme.sc:1466:44059 */ /* x21517 QobiScheme.sc:1466:44065 */ t35358 = *((struct w16638 *)(&a15592)); /* x21516 QobiScheme.sc:1466:44060 */ a35527 = t35358; /* x273465 */ /* x273464 */ t35359 = a35527; /* x273463 */ if (!((t35359.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29676]"); structure_ref_error();} t35357 = t35359.value.structure_type24753->s1; /* x21515 QobiScheme.sc:1466:44054 */ a15592 = t35357; goto h2037; l5070: /* x21632 QobiScheme.sc:1477:44460 */ /* x21631 QobiScheme.sc:1477:44469 */ /* x21630 QobiScheme.sc:1477:44483 */ t35414 = a15598; /* x21629 QobiScheme.sc:1477:44470 */ a34032 = t35414; t35368 = f27579(); /* x21628 */ a15600 = t35368; /* x21627 QobiScheme.sc:1478:44501 */ /* x21612 QobiScheme.sc:1478:44512 */ t35369 = a15598; /* x21623 QobiScheme.sc:1479:44524 */ /* x21616 QobiScheme.sc:1479:44527 */ /* x21615 QobiScheme.sc:1479:44535 */ t35392 = a15600; /* x21614 QobiScheme.sc:1479:44528 */ /* MOVE: branching squeezed to general */ if (t35392>=((struct structure_type24753 *)VALUE_OFFSET)) {t35393.tag = STRUCTURE_TYPE24753; t35393.value.structure_type24753 = t35392;} else t35393.tag = (unsigned)t35392; t35390 = f26227(t35393); /* x21622 QobiScheme.sc:1479:44538 */ /* x21618 QobiScheme.sc:1479:44549 */ t35394 = '/'; /* x21621 QobiScheme.sc:1479:44553 */ /* x21620 QobiScheme.sc:1479:44562 */ t35410 = a15600; /* x21619 QobiScheme.sc:1479:44554 */ /* MOVE: branching squeezed to general */ if (t35410>=((struct structure_type24753 *)VALUE_OFFSET)) {t35411.tag = STRUCTURE_TYPE24753; t35411.value.structure_type24753 = t35410;} else t35411.tag = (unsigned)t35410; t35395 = f26331(t35411); /* x21617 QobiScheme.sc:1479:44539 */ a14899 = t35394; a14900 = t35395; /* x15720 QobiScheme.sc:501:14719 */ /* x15718 QobiScheme.sc:501:14733 */ t35396 = a14900; /* x15719 QobiScheme.sc:501:14739 */ t35397 = 0; /* x15717 */ /* x15716 */ /* x15715 */ /* x15714 */ /* x15713 */ /* x15712 */ /* x15711 */ /* x15682 */ /* x15681 QobiScheme.sc:501:14724 */ a14903 = *((struct w49 *)(&t35396)); a14904 = t35397; h1245: /* x15710 QobiScheme.sc:502:14745 */ /* x15685 QobiScheme.sc:502:14752 */ /* x15684 QobiScheme.sc:502:14759 */ t35398 = a14903; /* x270900 QobiScheme.sc:502:14753 */ if (!((t35398.tag)==NULL_TYPE)) goto l5082; /* x15688 */ /* x15687 */ /* x15686 QobiScheme.sc:502:14762 */ t35391 = (unsigned)FALSE_TYPE; goto l5083; l5082: /* x15709 */ /* x15694 QobiScheme.sc:503:14768 */ /* x15690 QobiScheme.sc:503:14774 */ t35399 = a14899; /* x15693 QobiScheme.sc:503:14776 */ /* x15692 QobiScheme.sc:503:14783 */ t35402 = *((struct w16638 *)(&a14903)); /* x15691 QobiScheme.sc:503:14777 */ a36083 = t35402; /* x275689 */ /* x275688 */ t35403 = a36083; /* x275687 */ if (!((t35403.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30232]"); structure_ref_error();} t35400 = t35403.value.structure_type24753->s0; /* x15689 QobiScheme.sc:503:14769 */ t35401.tag = ((unsigned)((unsigned char)t35399))<<2; if (f26160(t35401, t35400)==FALSE_TYPE) goto l5085; /* x15697 */ /* x15696 */ /* x15695 QobiScheme.sc:503:14787 */ t35391 = (((unsigned)a14904)<<1)+1; goto l5086; l5085: /* x15708 */ /* x15707 */ /* x15706 QobiScheme.sc:504:14797 */ /* x15701 QobiScheme.sc:504:14803 */ /* x15700 QobiScheme.sc:504:14809 */ t35406 = *((struct w16638 *)(&a14903)); /* x15699 QobiScheme.sc:504:14804 */ a35526 = t35406; /* x273461 */ /* x273460 */ t35407 = a35526; /* x273459 */ if (!((t35407.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29675]"); structure_ref_error();} t35404 = t35407.value.structure_type24753->s1; /* x15705 QobiScheme.sc:504:14812 */ /* x15703 QobiScheme.sc:504:14815 */ t35408 = a14904; /* x15704 QobiScheme.sc:504:14817 */ t35409 = 1; /* x270899 QobiScheme.sc:504:14813 */ t35405 = t35408+t35409; /* x15698 QobiScheme.sc:504:14798 */ a14903 = t35404; a14904 = t35405; goto h1245; l5086: l5083: /* x270830 QobiScheme.sc:1479:44525 */ if (!((t35391&1)==1)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1479, 44524); minus_error();} t35370 = t35390-((int)(((int)t35391)>>1)); /* x21626 QobiScheme.sc:1480:44570 */ /* x21625 QobiScheme.sc:1480:44578 */ t35412 = a15600; /* x21624 QobiScheme.sc:1480:44571 */ /* MOVE: branching squeezed to general */ if (t35412>=((struct structure_type24753 *)VALUE_OFFSET)) {t35413.tag = STRUCTURE_TYPE24753; t35413.value.structure_type24753 = t35412;} else t35413.tag = (unsigned)t35412; t35371 = f26227(t35413); /* x21611 QobiScheme.sc:1478:44502 */ a34005 = t35369; a34006 = t35370; a34007 = t35371; /* x256105 */ /* x256104 */ /* x256103 */ /* x256101 */ t35388 = a34007; /* x256102 */ t35389 = a34006; /* x266800 */ t35386 = t35388-t35389; /* x266801 */ t35372 = (char *)GC_malloc_atomic((t35386+1)*sizeof(char)); if (t35372==NULL) {backtrace_internal("SUBSTRING[27546]"); out_of_memory_error();} t35372[t35386] = '\0'; for (t35387 = &(t35372[0]); t35387<(&(t35372[t35386])); t35387++) *t35387 = ' '; /* x256098 */ a34008 = t35372; /* x256097 */ /* x256096 */ /* x256095 */ t35373 = a34006; /* x256094 */ /* x256093 */ /* x256092 */ /* x256091 */ /* x256090 */ /* x256089 */ /* x256088 */ /* x256059 */ /* x256058 */ a34012 = t35373; h27551: /* x256087 */ /* x256063 */ /* x256061 */ t35374 = a34012; /* x256062 */ t35375 = a34007; /* x266806 */ if (!(t35374=strlen(t35384.value.string_type))) {backtrace_internal("[inside LOOP 27552]"); string_ref3_error();} t35381 = (t35384.value.string_type)[t35385]; /* x266804 */ if ((t35380<0)||(t35380>=strlen(t35379))) {backtrace_internal("[inside LOOP 27552]"); string_set4_error();} t35379[t35380] = t35381; /* x256070 */ /* x256069 */ /* x256068 */ /* x256066 */ t35377 = a34012; /* x256067 */ t35378 = 1; /* x266805 */ t35376 = t35377+t35378; /* x256064 */ a34012 = t35376; goto h27551; goto l5080; l5079: /* x256086 */ /* x256085 */ l5080: /* x256057 */ /* x256056 */ t35330.tag = STRING_TYPE; t35330.value.string_type = a34008; goto l5072; l5071: /* x21633 QobiScheme.sc:1481:44588 */ t35330 = a15598; l5072: /* x148488 stalin.sc:19930:697568 */ t35329 = " "; /* x148487 stalin.sc:19929:697527 */ /* x148486 stalin.sc:19929:697543 */ /* x148485 stalin.sc:19929:697561 */ t35345 = a27037; /* x148484 stalin.sc:19929:697544 */ a40134 = t35345; /* x293205 */ /* x293204 */ t35346 = a40134; /* x293203 */ if (!((t35346.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35051]"); structure_ref_error();} t35343 = t35346.value.structure_type27698->s7; /* x148483 stalin.sc:19929:697528 */ /* MOVE: dispatching squished to general */ if (t35343==FALSE_TYPE) t35344.tag = (unsigned)t35343; else {t35344.tag = FIXNUM_TYPE; t35344.value.fixnum_type = (int)(((int)t35343)>>1);} t35328 = f28396(t35344); /* x148482 stalin.sc:19928:697520 */ t35327 = "x"; /* x148481 stalin.sc:19927:697503 */ t35342.tag = STRUCTURE_TYPE24753; t35342.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35342.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19927, 697502); out_of_memory_error();} t35342.value.structure_type24753->s0.tag = STRING_TYPE; t35342.value.structure_type24753->s0.value.string_type = t35334; t35342.value.structure_type24753->s1.tag = NULL_TYPE; t35341.tag = STRUCTURE_TYPE24753; t35341.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35341.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19927, 697502); out_of_memory_error();} t35341.value.structure_type24753->s0.tag = STRING_TYPE; t35341.value.structure_type24753->s0.value.string_type = t35333; t35341.value.structure_type24753->s1 = t35342; t35340.tag = STRUCTURE_TYPE24753; t35340.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35340.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19927, 697502); out_of_memory_error();} t35340.value.structure_type24753->s0.tag = STRING_TYPE; t35340.value.structure_type24753->s0.value.string_type = t35332; t35340.value.structure_type24753->s1 = t35341; t35339.tag = STRUCTURE_TYPE24753; t35339.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35339.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19927, 697502); out_of_memory_error();} t35339.value.structure_type24753->s0.tag = STRING_TYPE; t35339.value.structure_type24753->s0.value.string_type = t35331; t35339.value.structure_type24753->s1 = t35340; t35338.tag = STRUCTURE_TYPE24753; t35338.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35338.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19927, 697502); out_of_memory_error();} t35338.value.structure_type24753->s0 = t35330; t35338.value.structure_type24753->s1 = t35339; t35337.tag = STRUCTURE_TYPE24753; t35337.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35337.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19927, 697502); out_of_memory_error();} t35337.value.structure_type24753->s0.tag = STRING_TYPE; t35337.value.structure_type24753->s0.value.string_type = t35329; t35337.value.structure_type24753->s1 = t35338; t35336.tag = STRUCTURE_TYPE24753; t35336.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35336.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19927, 697502); out_of_memory_error();} t35336.value.structure_type24753->s0.tag = STRING_TYPE; t35336.value.structure_type24753->s0.value.string_type = t35328; t35336.value.structure_type24753->s1 = t35337; t35335 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t35335==NULL) {backtrace("stalin.sc", 19927, 697502); out_of_memory_error();} t35335->s0.tag = STRING_TYPE; t35335->s0.value.string_type = t35327; t35335->s1 = t35336; t35326 = f27556(t35335); /* x148480 stalin.sc:19927:697495 */ t35310 = f13634(t35326); goto l5069; l5068: /* x148517 stalin.sc:19936:697744 */ /* x148516 stalin.sc:19937:697754 */ /* x148515 stalin.sc:19937:697773 */ /* x148514 stalin.sc:19937:697789 */ /* x148513 stalin.sc:19937:697807 */ t35324 = a27037; /* x148512 stalin.sc:19937:697790 */ a40135 = t35324; /* x293209 */ /* x293208 */ t35325 = a40135; /* x293207 */ if (!((t35325.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35052]"); structure_ref_error();} t35322 = t35325.value.structure_type27698->s7; /* x148511 stalin.sc:19937:697774 */ /* MOVE: dispatching squished to general */ if (t35322==FALSE_TYPE) t35323.tag = (unsigned)t35322; else {t35323.tag = FIXNUM_TYPE; t35323.value.fixnum_type = (int)(((int)t35322)>>1);} t35319 = f28396(t35323); /* x148510 stalin.sc:19937:697769 */ t35318 = "x"; /* x148509 stalin.sc:19937:697755 */ t35321.tag = STRUCTURE_TYPE24753; t35321.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35321.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19937, 697754); out_of_memory_error();} t35321.value.structure_type24753->s0.tag = STRING_TYPE; t35321.value.structure_type24753->s0.value.string_type = t35319; t35321.value.structure_type24753->s1.tag = NULL_TYPE; t35320 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t35320==NULL) {backtrace("stalin.sc", 19937, 697754); out_of_memory_error();} t35320->s0.tag = STRING_TYPE; t35320->s0.value.string_type = t35318; t35320->s1 = t35321; t35317 = f27556(t35320); /* x148508 stalin.sc:19936:697745 */ t35310 = f13634(t35317); l5069: /* x148476 stalin.sc:19925:697438 */ t35314.tag = STRUCTURE_TYPE24753; t35314.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t35314.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19925, 697437); out_of_memory_error();} t35314.value.structure_type24753->s0 = t35311; t35314.value.structure_type24753->s1.tag = NULL_TYPE; a41933 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41933==NULL) {backtrace("stalin.sc", 19925, 697437); out_of_memory_error();} a41933->s0 = t35310; a41933->s1 = t35314; /* x301844 stalin.sc:14400:506485 */ /* x301843 stalin.sc:14400:506503 */ t35312 = a41933; /* x301842 stalin.sc:14400:506486 */ t35313.tag = STRUCTURE_TYPE24753; t35313.value.structure_type24753 = t35312; t35306 = f13492(t35313); /* x148475 */ a27039 = t35306; /* x148474 stalin.sc:19939:697825 */ /* x148469 stalin.sc:19939:697829 */ /* x148468 stalin.sc:19939:697850 */ t35307 = a27037; /* x148467 stalin.sc:19939:697830 */ if (f6956(t35307)==FALSE_TYPE) goto l5066; /* x148470 stalin.sc:19939:697853 */ return a27039; l5066: /* x148473 stalin.sc:19939:697855 */ /* x148472 stalin.sc:19939:697868 */ t35308 = a27039; /* x148471 stalin.sc:19939:697856 */ t35309 = f13473(t35308); r15922.tag = STRUCTURE_TYPE24753; r15922.value.structure_type24753 = t35309; return r15922;} /* NOT-EXPRESSION?[15919] */ unsigned f15919(struct w49 a27036) {struct w49 a38558; /* S */ struct w49 a38637; /* S */ struct w49 a38664; /* S */ struct w49 a39909; /* S */ struct w49 a39983; /* S */ struct w49 a40312; /* S */ char *t36949; char *t36950; struct w49 t36951; struct w49 t36952; int t36953; int t36954; struct w11873 t36955; struct w49 t36956; struct w49 t36957; struct w49 t36958; struct p7708 *t36959; struct w49 t36960; struct w211257 t36961; char *t36962; struct w49 t36963; struct w49 t36964; struct w49 t36965; struct w49 t36966; struct w49 t36967; struct p7708 *t36968; struct w49 t36969; struct w211225 t36970; char *t36971; struct w49 t36972; struct w49 t36973; struct w49 t36974; struct w49 t36975; struct w49 t36976; /* x148464 stalin.sc:19917:697097 */ /* x148464 stalin.sc:19917:697097 */ /* x148430 stalin.sc:19917:697102 */ /* x148428 stalin.sc:19917:697107 */ /* x148427 stalin.sc:19917:697124 */ t36951 = a27036; /* x148426 stalin.sc:19917:697108 */ a40312 = t36951; /* x293917 */ /* x293916 */ t36952 = a40312; /* x293915 */ if (!((t36952.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35229]"); structure_ref_error();} t36949 = t36952.value.structure_type27698->s0; /* x148429 stalin.sc:19917:697127 */ t36950 = q36; /* x268438 stalin.sc:19917:697103 */ if (!(t36949==t36950)) goto l5421; /* x148462 */ /* x148438 stalin.sc:19918:697140 */ /* x148436 stalin.sc:19918:697143 */ /* x148435 stalin.sc:19918:697151 */ /* x148434 stalin.sc:19918:697173 */ t36957 = a27036; /* x148433 stalin.sc:19918:697152 */ a38558 = t36957; /* x286901 */ /* x286900 */ t36958 = a38558; /* x286899 */ if (!((t36958.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33475]"); structure_ref_error();} t36955 = t36958.value.structure_type27698->s22; /* x148432 stalin.sc:19918:697144 */ t36956 = *((struct w49 *)(&t36955)); t36953 = f26227(t36956); /* x148437 stalin.sc:19918:697177 */ t36954 = 1; /* x268437 stalin.sc:19918:697141 */ if (!(t36953==t36954)) goto l5421; /* x148460 */ /* x148448 stalin.sc:19919:697186 */ /* x148442 stalin.sc:19919:697195 */ /* x148441 stalin.sc:19919:697228 */ t36962 = q102; /* x148440 stalin.sc:19919:697196 */ t36963.tag = EXTERNAL_SYMBOL_TYPE; t36963.value.external_symbol_type = t36962; t36959 = f7708(t36963); /* x148447 stalin.sc:19920:697242 */ /* x148446 stalin.sc:19920:697263 */ /* x148445 stalin.sc:19920:697282 */ t36966 = a27036; /* x148444 stalin.sc:19920:697264 */ a38664 = t36966; /* x287325 */ /* x287324 */ t36967 = a38664; /* x287323 */ if (!((t36967.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33581]"); structure_ref_error();} t36964 = t36967.value.structure_type27698->s21; /* x148443 stalin.sc:19920:697243 */ a39983 = t36964; /* x292601 */ /* x292600 */ t36965 = a39983; /* x292599 */ if (!((t36965.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34900]"); structure_ref_error();} t36960 = t36965.value.structure_type27698->s10; /* x148439 stalin.sc:19919:697187 */ t36961.tag = NATIVE_PROCEDURE_TYPE17685; t36961.value.native_procedure_type17685 = t36959; if ((f8137(t36961, t36960).tag)==FALSE_TYPE) goto l5421; /* x148458 */ /* x148452 stalin.sc:19921:697303 */ /* x148451 stalin.sc:19921:697336 */ t36971 = q102; /* x148450 stalin.sc:19921:697304 */ t36972.tag = EXTERNAL_SYMBOL_TYPE; t36972.value.external_symbol_type = t36971; t36968 = f7708(t36972); /* x148457 stalin.sc:19922:697344 */ /* x148456 stalin.sc:19922:697365 */ /* x148455 stalin.sc:19922:697384 */ t36975 = a27036; /* x148454 stalin.sc:19922:697366 */ a38637 = t36975; /* x287217 */ /* x287216 */ t36976 = a38637; /* x287215 */ if (!((t36976.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33554]"); structure_ref_error();} t36973 = t36976.value.structure_type27698->s21; /* x148453 stalin.sc:19922:697345 */ a39909 = t36973; /* x292305 */ /* x292304 */ t36974 = a39909; /* x292303 */ if (!((t36974.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34826]"); structure_ref_error();} t36969 = t36974.value.structure_type27698->s10; /* x148449 stalin.sc:19921:697294 */ t36970.tag = NATIVE_PROCEDURE_TYPE17685; t36970.value.native_procedure_type17685 = t36968; if (f8146(t36970, t36969)==FALSE_TYPE) goto l5421; return TRUE_TYPE; l5421: return FALSE_TYPE;} /* OR-EXPRESSION?[15913] */ unsigned f15913(struct w49 a27030) {struct w49 a27031; /* W */ struct w49 a27032; /* U */ struct w49 a27033; /* E0 */ struct w6852 a27034; /* X0 */ struct w49 a27035; /* X1 */ struct structure_type24753 *a35782; /* PAIR */ struct w49 a36677; /* S */ struct w49 a38095; /* OBJ */ struct w49 a38557; /* S */ struct w49 a38663; /* S */ struct w49 a38943; /* S */ struct w49 a38944; /* S */ struct w49 a39000; /* S */ struct w49 a39001; /* S */ struct w49 a39002; /* S */ struct w49 a39100; /* S */ struct w49 a39101; /* S */ struct w49 a39102; /* S */ struct w6852 a39209; /* S */ struct w49 a39982; /* S */ struct w49 a40280; /* S */ struct w49 a40281; /* S */ struct w49 a40282; /* S */ struct w49 a40311; /* S */ char *t36977; char *t36978; struct w49 t36979; struct w49 t36980; int t36981; int t36982; struct w11873 t36983; struct w49 t36984; struct w49 t36985; struct w49 t36986; struct w49 t36987; struct w49 t36988; struct w49 t36989; struct w49 t36990; struct w49 t36991; unsigned t36992; struct w49 t36993; struct w49 t36994; struct w49 t36995; struct w49 t36996; struct w49 t36997; struct w49 t36998; struct w6852 t36999; struct w6852 t37000; struct w49 t37001; int t37002; int t37003; struct structure_type24753 *t37004; struct w49 t37005; struct w6852 t37006; struct w49 t37007; struct w49 t37008; char *t37009; char *t37010; struct w49 t37011; struct w49 t37012; char *t37013; char *t37014; struct w49 t37015; struct w49 t37016; struct w49 t37017; struct w49 t37018; char *t37019; char *t37020; struct w49 t37021; struct w49 t37022; struct w49 t37023; struct w49 t37024; struct w49 t37025; struct w49 t37026; struct w49 t37027; struct w49 t37028; struct w49 t37029; struct w49 t37030; struct w49 t37031; struct w49 t37032; struct w49 t37033; struct w49 t37034; struct w49 t37035; struct w49 t37036; struct w49 t37037; struct w49 t37038; struct w49 t37039; struct w49 t37040; struct structure_type24753 *t37041; struct structure_type24753 *t37042; struct w6852 t37043; struct w49 t37044; struct w6852 t37045; struct w6852 t37046; struct w49 t37047; struct w49 t37048; struct w49 t37049; struct structure_type27745 *t37050; struct structure_type27745 *t37051; struct w49 t37052; struct w49 t37053; struct w49 t37054; struct w49 t37055; struct w49 t37056; struct w49 t37057; /* x148422 stalin.sc:19888:696124 */ /* x148422 stalin.sc:19888:696124 */ /* x148275 stalin.sc:19889:696131 */ /* x148273 stalin.sc:19889:696136 */ /* x148272 stalin.sc:19889:696153 */ t36979 = a27030; /* x148271 stalin.sc:19889:696137 */ a40311 = t36979; /* x293913 */ /* x293912 */ t36980 = a40311; /* x293911 */ if (!((t36980.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35228]"); structure_ref_error();} t36977 = t36980.value.structure_type27698->s0; /* x148274 stalin.sc:19889:696156 */ t36978 = q36; /* x268448 stalin.sc:19889:696132 */ if (!(t36977==t36978)) goto l5427; /* x148420 */ /* x148283 stalin.sc:19890:696165 */ /* x148281 stalin.sc:19890:696168 */ /* x148280 stalin.sc:19890:696176 */ /* x148279 stalin.sc:19890:696198 */ t36985 = a27030; /* x148278 stalin.sc:19890:696177 */ a38557 = t36985; /* x286897 */ /* x286896 */ t36986 = a38557; /* x286895 */ if (!((t36986.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33474]"); structure_ref_error();} t36983 = t36986.value.structure_type27698->s22; /* x148277 stalin.sc:19890:696169 */ t36984 = *((struct w49 *)(&t36983)); t36981 = f26227(t36984); /* x148282 stalin.sc:19890:696202 */ t36982 = 1; /* x268447 stalin.sc:19890:696166 */ if (!(t36981==t36982)) goto l5427; /* x148418 */ /* x148417 stalin.sc:19891:696216 */ /* x148416 stalin.sc:19891:696237 */ /* x148415 stalin.sc:19891:696256 */ t37056 = a27030; /* x148414 stalin.sc:19891:696238 */ a38663 = t37056; /* x287321 */ /* x287320 */ t37057 = a38663; /* x287319 */ if (!((t37057.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33580]"); structure_ref_error();} t37054 = t37057.value.structure_type27698->s21; /* x148413 stalin.sc:19891:696217 */ a39982 = t37054; /* x292597 */ /* x292596 */ t37055 = a39982; /* x292595 */ if (!((t37055.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34899]"); structure_ref_error();} t36987 = t37055.value.structure_type27698->s10; /* x148412 */ a27031 = t36987; /* x148411 stalin.sc:19892:696265 */ /* x148286 stalin.sc:19893:696274 */ /* x148285 stalin.sc:19893:696288 */ t36988 = a27031; /* x148284 stalin.sc:19893:696275 */ if (f8148(t36988)==FALSE_TYPE) goto l5427; /* x148409 */ /* x148408 stalin.sc:19894:696304 */ /* x148407 stalin.sc:19894:696316 */ t37053 = a27031; /* x148406 stalin.sc:19894:696305 */ t36989 = f8153(t37053); /* x148405 */ a27032 = t36989; /* x148404 stalin.sc:19895:696326 */ /* x148289 stalin.sc:19896:696337 */ /* x148288 stalin.sc:19896:696361 */ t36990 = a27032; /* x148287 stalin.sc:19896:696338 */ a38095 = t36990; /* x285049 */ /* x285048 */ t36991 = a38095; /* x285047 */ if (!((t36991.tag)==STRUCTURE_TYPE27756)) goto l5427; /* x148402 */ /* x148294 stalin.sc:19897:696370 */ /* x148293 stalin.sc:19897:696392 */ t36993 = a27032; /* x148292 stalin.sc:19897:696371 */ /* x148291 stalin.sc:19897:696389 */ t36994 = a27030; /* x148290 stalin.sc:19897:696372 */ t36992 = f7886(t36994); if ((t36992&3)==1) {if ((f7880(((struct p7873 *)(t36992-1)), t36993).tag)==FALSE_TYPE) goto l5427;} else if ((f7874(((struct p7873 *)t36992), t36993).tag)==FALSE_TYPE) goto l5427; /* x148400 */ /* x148399 stalin.sc:19898:696411 */ /* x148395 stalin.sc:19898:696431 */ t37049 = a27032; /* x148398 stalin.sc:19898:696433 */ /* x148397 stalin.sc:19898:696451 */ t37052 = a27030; /* x148396 stalin.sc:19898:696434 */ t37050 = f8739(t37052); /* x148394 stalin.sc:19898:696412 */ t37051 = t37050; t36995 = f9368(t37049, t37051); /* x148393 */ a27033 = t36995; /* x148392 stalin.sc:19899:696464 */ /* x148297 stalin.sc:19900:696470 */ /* x148296 stalin.sc:19900:696479 */ t36996 = a27033; /* x148295 stalin.sc:19900:696471 */ if ((f8899(t36996).tag)==FALSE_TYPE) goto l5427; /* x148390 */ /* x148302 stalin.sc:19901:696484 */ /* x148301 stalin.sc:19901:696489 */ /* x148300 stalin.sc:19901:696496 */ t36997 = a27033; /* x148299 stalin.sc:19901:696490 */ if (!(f8918(t36997)==FALSE_TYPE)) goto l5427; /* x148388 */ /* x148305 stalin.sc:19902:696502 */ /* x148304 stalin.sc:19902:696521 */ t36998 = a27033; /* x148303 stalin.sc:19902:696503 */ if (f8585(t36998)==FALSE_TYPE) goto l5427; /* x148386 */ /* x148385 stalin.sc:19903:696536 */ /* x148384 stalin.sc:19903:696560 */ t37047 = a27033; /* x148383 stalin.sc:19903:696537 */ a36677 = t37047; /* x279377 */ /* x279376 */ t37048 = a36677; /* x279375 */ if (!((t37048.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31594]"); structure_ref_error();} t36999 = t37048.value.structure_type27694->s1; /* x148382 */ a27034 = t36999; /* x148381 stalin.sc:19904:696568 */ /* x148310 stalin.sc:19904:696573 */ /* x148309 stalin.sc:19904:696578 */ /* x148308 stalin.sc:19904:696585 */ t37000 = a27034; /* x148307 stalin.sc:19904:696579 */ t37001 = *((struct w49 *)(&t37000)); if (!(f8931(t37001)==FALSE_TYPE)) goto l5427; /* x148379 */ /* x148318 stalin.sc:19905:696597 */ /* x148316 stalin.sc:19905:696600 */ /* x148315 stalin.sc:19905:696608 */ /* x148314 stalin.sc:19905:696619 */ t37006 = a27034; /* x148313 stalin.sc:19905:696609 */ t37007 = *((struct w49 *)(&t37006)); t37004 = f8987(t37007); /* x148312 stalin.sc:19905:696601 */ /* MOVE: branching squeezed to general */ if (t37004>=((struct structure_type24753 *)VALUE_OFFSET)) {t37005.tag = STRUCTURE_TYPE24753; t37005.value.structure_type24753 = t37004;} else t37005.tag = (unsigned)t37004; t37002 = f26227(t37005); /* x148317 stalin.sc:19905:696624 */ t37003 = 1; /* x268444 stalin.sc:19905:696598 */ if (!(t37002==t37003)) goto l5427; /* x148377 */ /* x148376 stalin.sc:19906:696644 */ /* x148375 stalin.sc:19906:696661 */ t37045 = a27034; /* x148374 stalin.sc:19906:696645 */ a39209 = t37045; /* x289505 */ /* x289504 */ t37046 = a39209; /* x289503 */ if (!((t37046.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34126]"); structure_ref_error();} t37008 = t37046.value.structure_type27698->s15; /* x148373 */ a27035 = t37008; /* x148372 stalin.sc:19907:696675 */ /* x148324 stalin.sc:19907:696680 */ /* x148322 stalin.sc:19907:696685 */ /* x148321 stalin.sc:19907:696702 */ t37011 = a27035; /* x148320 stalin.sc:19907:696686 */ a40282 = t37011; /* x293797 */ /* x293796 */ t37012 = a40282; /* x293795 */ if (!((t37012.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35199]"); structure_ref_error();} t37009 = t37012.value.structure_type27698->s0; /* x148323 stalin.sc:19907:696706 */ t37010 = q43; /* x268443 stalin.sc:19907:696681 */ if (!(t37009==t37010)) goto l5427; /* x148370 */ /* x148332 stalin.sc:19908:696717 */ /* x148330 stalin.sc:19908:696722 */ /* x148329 stalin.sc:19908:696739 */ /* x148328 stalin.sc:19908:696762 */ t37017 = a27035; /* x148327 stalin.sc:19908:696740 */ a39002 = t37017; /* x288677 */ /* x288676 */ t37018 = a39002; /* x288675 */ if (!((t37018.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33919]"); structure_ref_error();} t37015 = t37018.value.structure_type27698->s18; /* x148326 stalin.sc:19908:696723 */ a40281 = t37015; /* x293793 */ /* x293792 */ t37016 = a40281; /* x293791 */ if (!((t37016.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35198]"); structure_ref_error();} t37013 = t37016.value.structure_type27698->s0; /* x148331 stalin.sc:19908:696767 */ t37014 = q38; /* x268442 stalin.sc:19908:696718 */ if (!(t37013==t37014)) goto l5427; /* x148368 */ /* x148340 stalin.sc:19909:696782 */ /* x148338 stalin.sc:19909:696787 */ /* x148337 stalin.sc:19909:696804 */ /* x148336 stalin.sc:19909:696827 */ t37023 = a27035; /* x148335 stalin.sc:19909:696805 */ a38944 = t37023; /* x288445 */ /* x288444 */ t37024 = a38944; /* x288443 */ if (!((t37024.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33861]"); structure_ref_error();} t37021 = t37024.value.structure_type27698->s19; /* x148334 stalin.sc:19909:696788 */ a40280 = t37021; /* x293789 */ /* x293788 */ t37022 = a40280; /* x293787 */ if (!((t37022.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35197]"); structure_ref_error();} t37019 = t37022.value.structure_type27698->s0; /* x148339 stalin.sc:19909:696832 */ t37020 = q38; /* x268441 stalin.sc:19909:696783 */ if (!(t37019==t37020)) goto l5427; /* x148366 */ /* x148352 stalin.sc:19910:696847 */ /* x148346 stalin.sc:19910:696852 */ /* x148345 stalin.sc:19910:696873 */ /* x148344 stalin.sc:19910:696896 */ t37029 = a27035; /* x148343 stalin.sc:19910:696874 */ a39001 = t37029; /* x288673 */ /* x288672 */ t37030 = a39001; /* x288671 */ if (!((t37030.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33918]"); structure_ref_error();} t37027 = t37030.value.structure_type27698->s18; /* x148342 stalin.sc:19910:696853 */ a39101 = t37027; /* x289073 */ /* x289072 */ t37028 = a39101; /* x289071 */ if (!((t37028.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34018]"); structure_ref_error();} t37025 = t37028.value.structure_type27698->s16; /* x148351 stalin.sc:19911:696905 */ /* x148350 stalin.sc:19911:696926 */ /* x148349 stalin.sc:19911:696949 */ t37033 = a27035; /* x148348 stalin.sc:19911:696927 */ a38943 = t37033; /* x288441 */ /* x288440 */ t37034 = a38943; /* x288439 */ if (!((t37034.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33860]"); structure_ref_error();} t37031 = t37034.value.structure_type27698->s19; /* x148347 stalin.sc:19911:696906 */ a39102 = t37031; /* x289077 */ /* x289076 */ t37032 = a39102; /* x289075 */ if (!((t37032.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34019]"); structure_ref_error();} t37026 = t37032.value.structure_type27698->s16; /* x268440 stalin.sc:19910:696848 */ /* EQ: dispatching general to general */ if (!((t37025.tag)==(t37026.tag))) goto l5427; switch (t37025.tag) {case FIXNUM_TYPE: if (!((t37025.value.fixnum_type)==(t37026.value.fixnum_type))) goto l5427; break; case FLONUM_TYPE: if (!((t37025.value.flonum_type)==(t37026.value.flonum_type))) goto l5427; break; case INPUT_PORT_TYPE: if (!((t37025.value.input_port_type)==(t37026.value.input_port_type))) goto l5427; break; case OUTPUT_PORT_TYPE: if (!((t37025.value.output_port_type)==(t37026.value.output_port_type))) goto l5427; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t37025.value.native_procedure_type15963)==(t37026.value.native_procedure_type15963))) goto l5427; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t37025.value.native_procedure_type19067)==(t37026.value.native_procedure_type19067))) goto l5427; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t37025.value.native_procedure_type19068)==(t37026.value.native_procedure_type19068))) goto l5427; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t37025.value.native_procedure_type22459)==(t37026.value.native_procedure_type22459))) goto l5427; break; case STRUCTURE_TYPE24753: if (!((t37025.value.structure_type24753)==(t37026.value.structure_type24753))) goto l5427; break; case STRUCTURE_TYPE24757: if (!((t37025.value.structure_type24757)==(t37026.value.structure_type24757))) goto l5427; break; case STRUCTURE_TYPE27501: if (!((t37025.value.structure_type27501)==(t37026.value.structure_type27501))) goto l5427; break; case STRUCTURE_TYPE27510: if (!((t37025.value.structure_type27510)==(t37026.value.structure_type27510))) goto l5427; break; case STRUCTURE_TYPE27621: if (!((t37025.value.structure_type27621)==(t37026.value.structure_type27621))) goto l5427; break; case STRUCTURE_TYPE27650: if (!((t37025.value.structure_type27650)==(t37026.value.structure_type27650))) goto l5427; break; case STRUCTURE_TYPE27669: if (!((t37025.value.structure_type27669)==(t37026.value.structure_type27669))) goto l5427; break; case STRUCTURE_TYPE27673: if (!((t37025.value.structure_type27673)==(t37026.value.structure_type27673))) goto l5427; break; case STRUCTURE_TYPE27692: if (!((t37025.value.structure_type27692)==(t37026.value.structure_type27692))) goto l5427; break; case STRUCTURE_TYPE27694: if (!((t37025.value.structure_type27694)==(t37026.value.structure_type27694))) goto l5427; break; case STRUCTURE_TYPE27698: if (!((t37025.value.structure_type27698)==(t37026.value.structure_type27698))) goto l5427; break; case STRUCTURE_TYPE27745: if (!((t37025.value.structure_type27745)==(t37026.value.structure_type27745))) goto l5427; break; case STRUCTURE_TYPE27747: if (!((t37025.value.structure_type27747)==(t37026.value.structure_type27747))) goto l5427; break; case STRUCTURE_TYPE27750: if (!((t37025.value.structure_type27750)==(t37026.value.structure_type27750))) goto l5427; break; case STRUCTURE_TYPE27753: if (!((t37025.value.structure_type27753)==(t37026.value.structure_type27753))) goto l5427; break; case STRUCTURE_TYPE27756: if (!((t37025.value.structure_type27756)==(t37026.value.structure_type27756))) goto l5427; break; case STRUCTURE_TYPE27761: if (!((t37025.value.structure_type27761)==(t37026.value.structure_type27761))) goto l5427; break; case STRUCTURE_TYPE27769: if (!((t37025.value.structure_type27769)==(t37026.value.structure_type27769))) goto l5427; break; case STRUCTURE_TYPE27776: if (!((t37025.value.structure_type27776)==(t37026.value.structure_type27776))) goto l5427; break; case STRUCTURE_TYPE27779: if (!((t37025.value.structure_type27779)==(t37026.value.structure_type27779))) goto l5427; break; case STRUCTURE_TYPE27858: if (!((t37025.value.structure_type27858)==(t37026.value.structure_type27858))) goto l5427; break; case STRING_TYPE: if (!((t37025.value.string_type)==(t37026.value.string_type))) goto l5427; break; case HEADED_VECTOR_TYPE27896: if (!((t37025.value.headed_vector_type27896)==(t37026.value.headed_vector_type27896))) goto l5427; break; case EXTERNAL_SYMBOL_TYPE: if (!((t37025.value.external_symbol_type)==(t37026.value.external_symbol_type))) goto l5427; break; case STRUCTURE_TYPE27908: if (!((t37025.value.structure_type27908)==(t37026.value.structure_type27908))) goto l5427; break; default:;} /* x148364 */ /* x148358 stalin.sc:19912:696966 */ /* x148357 stalin.sc:19912:696987 */ /* x148356 stalin.sc:19912:697010 */ t37039 = a27035; /* x148355 stalin.sc:19912:696988 */ a39000 = t37039; /* x288669 */ /* x288668 */ t37040 = a39000; /* x288667 */ if (!((t37040.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33917]"); structure_ref_error();} t37037 = t37040.value.structure_type27698->s18; /* x148354 stalin.sc:19912:696967 */ a39100 = t37037; /* x289069 */ /* x289068 */ t37038 = a39100; /* x289067 */ if (!((t37038.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34017]"); structure_ref_error();} t37035 = t37038.value.structure_type27698->s16; /* x148363 stalin.sc:19913:697019 */ /* x148362 stalin.sc:19913:697026 */ /* x148361 stalin.sc:19913:697037 */ t37043 = a27034; /* x148360 stalin.sc:19913:697027 */ t37044 = *((struct w49 *)(&t37043)); t37041 = f8987(t37044); /* x148359 stalin.sc:19913:697020 */ a35782 = t37041; /* x274485 */ /* x274484 */ t37042 = a35782; /* x274483 */ if (!(t37042>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29931]"); structure_ref_error();} t37036 = t37042->s0; /* x268439 stalin.sc:19912:696962 */ /* EQ: dispatching general to general */ if (!((t37035.tag)==(t37036.tag))) goto l5427; switch (t37035.tag) {case FIXNUM_TYPE: if (!((t37035.value.fixnum_type)==(t37036.value.fixnum_type))) goto l5427; break; case FLONUM_TYPE: if (!((t37035.value.flonum_type)==(t37036.value.flonum_type))) goto l5427; break; case INPUT_PORT_TYPE: if (!((t37035.value.input_port_type)==(t37036.value.input_port_type))) goto l5427; break; case OUTPUT_PORT_TYPE: if (!((t37035.value.output_port_type)==(t37036.value.output_port_type))) goto l5427; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t37035.value.native_procedure_type15963)==(t37036.value.native_procedure_type15963))) goto l5427; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t37035.value.native_procedure_type19067)==(t37036.value.native_procedure_type19067))) goto l5427; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t37035.value.native_procedure_type19068)==(t37036.value.native_procedure_type19068))) goto l5427; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t37035.value.native_procedure_type22459)==(t37036.value.native_procedure_type22459))) goto l5427; break; case STRUCTURE_TYPE24753: if (!((t37035.value.structure_type24753)==(t37036.value.structure_type24753))) goto l5427; break; case STRUCTURE_TYPE24757: if (!((t37035.value.structure_type24757)==(t37036.value.structure_type24757))) goto l5427; break; case STRUCTURE_TYPE27501: if (!((t37035.value.structure_type27501)==(t37036.value.structure_type27501))) goto l5427; break; case STRUCTURE_TYPE27510: if (!((t37035.value.structure_type27510)==(t37036.value.structure_type27510))) goto l5427; break; case STRUCTURE_TYPE27621: if (!((t37035.value.structure_type27621)==(t37036.value.structure_type27621))) goto l5427; break; case STRUCTURE_TYPE27650: if (!((t37035.value.structure_type27650)==(t37036.value.structure_type27650))) goto l5427; break; case STRUCTURE_TYPE27669: if (!((t37035.value.structure_type27669)==(t37036.value.structure_type27669))) goto l5427; break; case STRUCTURE_TYPE27673: if (!((t37035.value.structure_type27673)==(t37036.value.structure_type27673))) goto l5427; break; case STRUCTURE_TYPE27692: if (!((t37035.value.structure_type27692)==(t37036.value.structure_type27692))) goto l5427; break; case STRUCTURE_TYPE27694: if (!((t37035.value.structure_type27694)==(t37036.value.structure_type27694))) goto l5427; break; case STRUCTURE_TYPE27698: if (!((t37035.value.structure_type27698)==(t37036.value.structure_type27698))) goto l5427; break; case STRUCTURE_TYPE27745: if (!((t37035.value.structure_type27745)==(t37036.value.structure_type27745))) goto l5427; break; case STRUCTURE_TYPE27747: if (!((t37035.value.structure_type27747)==(t37036.value.structure_type27747))) goto l5427; break; case STRUCTURE_TYPE27750: if (!((t37035.value.structure_type27750)==(t37036.value.structure_type27750))) goto l5427; break; case STRUCTURE_TYPE27753: if (!((t37035.value.structure_type27753)==(t37036.value.structure_type27753))) goto l5427; break; case STRUCTURE_TYPE27756: if (!((t37035.value.structure_type27756)==(t37036.value.structure_type27756))) goto l5427; break; case STRUCTURE_TYPE27761: if (!((t37035.value.structure_type27761)==(t37036.value.structure_type27761))) goto l5427; break; case STRUCTURE_TYPE27769: if (!((t37035.value.structure_type27769)==(t37036.value.structure_type27769))) goto l5427; break; case STRUCTURE_TYPE27776: if (!((t37035.value.structure_type27776)==(t37036.value.structure_type27776))) goto l5427; break; case STRUCTURE_TYPE27779: if (!((t37035.value.structure_type27779)==(t37036.value.structure_type27779))) goto l5427; break; case STRUCTURE_TYPE27858: if (!((t37035.value.structure_type27858)==(t37036.value.structure_type27858))) goto l5427; break; case STRING_TYPE: if (!((t37035.value.string_type)==(t37036.value.string_type))) goto l5427; break; case HEADED_VECTOR_TYPE27896: if (!((t37035.value.headed_vector_type27896)==(t37036.value.headed_vector_type27896))) goto l5427; break; case EXTERNAL_SYMBOL_TYPE: if (!((t37035.value.external_symbol_type)==(t37036.value.external_symbol_type))) goto l5427; break; case STRUCTURE_TYPE27908: if (!((t37035.value.structure_type27908)==(t37036.value.structure_type27908))) goto l5427; break; default:;} return TRUE_TYPE; l5427: return FALSE_TYPE;} /* AND-EXPRESSION?[15912] */ unsigned f15912(struct w49 a27029) {struct w49 a38910; /* S */ struct w49 a40303; /* S */ struct w49 a40304; /* S */ char *t37058; char *t37059; struct w49 t37060; struct w49 t37061; char *t37062; char *t37063; struct w49 t37064; struct w49 t37065; struct w49 t37066; struct w49 t37067; /* x148267 stalin.sc:19883:695955 */ /* x148267 stalin.sc:19883:695955 */ /* x148257 stalin.sc:19883:695960 */ /* x148255 stalin.sc:19883:695965 */ /* x148254 stalin.sc:19883:695982 */ t37060 = a27029; /* x148253 stalin.sc:19883:695966 */ a40304 = t37060; /* x293885 */ /* x293884 */ t37061 = a40304; /* x293883 */ if (!((t37061.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35221]"); structure_ref_error();} t37058 = t37061.value.structure_type27698->s0; /* x148256 stalin.sc:19883:695985 */ t37059 = q43; /* x268450 stalin.sc:19883:695961 */ if (!(t37058==t37059)) goto l5444; /* x148265 */ /* x148263 stalin.sc:19884:696001 */ /* x148262 stalin.sc:19884:696018 */ /* x148261 stalin.sc:19884:696040 */ t37066 = a27029; /* x148260 stalin.sc:19884:696019 */ a38910 = t37066; /* x288309 */ /* x288308 */ t37067 = a38910; /* x288307 */ if (!((t37067.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33827]"); structure_ref_error();} t37064 = t37067.value.structure_type27698->s20; /* x148259 stalin.sc:19884:696002 */ a40303 = t37064; /* x293881 */ /* x293880 */ t37065 = a40303; /* x293879 */ if (!((t37065.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35220]"); structure_ref_error();} t37062 = t37065.value.structure_type27698->s0; /* x148264 stalin.sc:19884:696044 */ t37063 = q70; /* x268449 stalin.sc:19884:695997 */ if (!(t37062==t37063)) goto l5444; return TRUE_TYPE; l5444: return FALSE_TYPE;} /* COMPILE-ANTECEDENT[15911] */ struct w49 f15911(struct w49 a27025, struct w12563 a27026, struct w12563 a27027, struct w12563 a27028) {struct w49 a39972; /* S */ struct structure_type27501 *t37068; struct w49 t37069; struct structure_type27501 *t37070; struct w49 t37071; struct w12563 t37072; struct w12563 t37073; struct w12563 t37074; struct w49 t37075; struct w49 t37076; /* x148249 stalin.sc:19879:695836 */ /* x148247 stalin.sc:19879:695845 */ /* x148243 stalin.sc:19879:695871 */ /* x148242 stalin.sc:19879:695892 */ t37075 = a27025; /* x148241 stalin.sc:19879:695872 */ a39972 = t37075; /* x292557 */ /* x292556 */ t37076 = a39972; /* x292555 */ if (!((t37076.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34889]"); structure_ref_error();} t37071 = t37076.value.structure_type27698->s10; /* x148244 stalin.sc:19879:695895 */ t37072 = a27026; /* x148245 stalin.sc:19879:695898 */ t37073 = a27027; /* x148246 stalin.sc:19879:695901 */ t37074 = a27028; /* x148240 stalin.sc:19879:695846 */ t37068 = f7028(t37071, t37072, t37073, t37074); /* x148248 stalin.sc:19879:695905 */ t37069 = a27025; /* x148239 stalin.sc:19879:695837 */ t37070 = t37068; return f15922(t37070, t37069);} /* [inside COMPILE-CONVERTED-CALL 15905] */ struct w49 f15905(struct p15881 *p15905, struct w49 a27024) {struct w49 t37077; struct structure_type27745 *t37078; /* x148175 stalin.sc:19844:694437 */ /* x148173 stalin.sc:19844:694469 */ t37077 = a27024; /* x148174 stalin.sc:19844:694471 */ t37078 = p15905->a27003; /* x148172 stalin.sc:19844:694438 */ return f15877(t37077, t37078);} /* [inside COMPILE-CONVERTED-CALL 15900] */ struct w49 f15900(void) {struct p15897 *p15900 = d15900; struct w49 a27021 = b27021; /* U1 */ struct structure_type24753 *a35108; /* OBJS */ struct structure_type24753 *a35109; /* OBJS */ struct structure_type24753 *a35760; /* PAIR */ struct structure_type24753 *a35761; /* PAIR */ struct structure_type27501 *t37079; struct structure_type27745 *t37080; struct w49 t37081; struct w49 t37082; struct w49 t37083; struct structure_type24753 *t37084; struct structure_type24753 *t37085; char *t37086; struct structure_type27650 *t37087; struct structure_type27745 *t37088; char *t37089; struct structure_type27745 *t37090; struct structure_type24753 *t37091; struct structure_type24753 *t37092; struct structure_type24753 *t37093; struct structure_type24753 *t37094; struct w60864 t37095; struct w49 t37096; /* x148132 stalin.sc:19864:695127 */ /* x148110 stalin.sc:19865:695142 */ t37079 = p15900->p15896->p15881->a27002; /* x148114 stalin.sc:19865:695144 */ /* x148112 stalin.sc:19865:695164 */ t37088 = p15900->p15896->p15881->a27003; /* x148113 stalin.sc:19865:695166 */ t37089 = q67; /* x148111 stalin.sc:19865:695145 */ t37090 = t37088; t37080 = f8743(t37090, t37089); /* x148117 stalin.sc:19866:695191 */ /* x148116 stalin.sc:19866:695198 */ t37091 = p15900->p15896->p15881->a27007; /* x148115 stalin.sc:19866:695192 */ a35760 = t37091; /* x274397 */ /* x274396 */ t37092 = a35760; /* x274395 */ if (!(t37092>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29909]"); structure_ref_error();} t37081 = t37092->s0; /* x148118 stalin.sc:19866:695202 */ t37082 = a27021; /* x148121 stalin.sc:19866:695205 */ /* x148120 stalin.sc:19866:695212 */ t37093 = p15900->p15896->p15881->a27008; /* x148119 stalin.sc:19866:695206 */ a35761 = t37093; /* x274401 */ /* x274400 */ t37094 = a35761; /* x274399 */ if (!(t37094>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29910]"); structure_ref_error();} t37083 = t37094->s0; /* x148122 stalin.sc:19866:695216 */ /* x148123 stalin.sc:19866:695219 */ /* x148126 stalin.sc:19866:695222 */ /* x148125 stalin.sc:19866:695228 */ t37095 = p15900->a27019; /* x148124 stalin.sc:19866:695223 */ a35108 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35108==NULL) {backtrace("stalin.sc", 19866, 695222); out_of_memory_error();} a35108->s0 = *((struct w49 *)(&t37095)); a35108->s1.tag = NULL_TYPE; /* x272223 */ t37084 = a35108; /* x148129 stalin.sc:19866:695232 */ /* x148128 stalin.sc:19866:695238 */ t37096 = p15900->p15896->a27018; /* x148127 stalin.sc:19866:695233 */ a35109 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35109==NULL) {backtrace("stalin.sc", 19866, 695232); out_of_memory_error();} a35109->s0 = t37096; a35109->s1.tag = NULL_TYPE; /* x272225 */ t37085 = a35109; /* x148130 stalin.sc:19866:695242 */ t37086 = q214; /* x148131 stalin.sc:19866:695250 */ t37087 = a1675; /* x148109 stalin.sc:19864:695128 */ b26962 = t37079; b26963 = t37080; b26964 = t37081; b26965 = t37082; b26966 = t37083; b26967.tag = FALSE_TYPE; b26968.tag = FALSE_TYPE; b26969.tag = STRUCTURE_TYPE24753; b26969.value.structure_type24753 = t37084; b26970.tag = STRUCTURE_TYPE24753; b26970.value.structure_type24753 = t37085; b26971.tag = EXTERNAL_SYMBOL_TYPE; b26971.value.external_symbol_type = t37086; /* MOVE: branching squeezed to general */ if (t37087>=((struct structure_type27650 *)VALUE_OFFSET)) {b26972.tag = STRUCTURE_TYPE27650; b26972.value.structure_type27650 = t37087;} else b26972.tag = (unsigned)t37087; return f15827();} /* [inside COMPILE-CONVERTED-CALL 15886] */ struct structure_type24753 *f15886(struct p15881 *p15886, unsigned a27016) {char *t37097; struct structure_type27745 *t37098; unsigned t37099; struct w49 t37100; /* x147961 stalin.sc:19839:694133 */ /* x147958 stalin.sc:19839:694148 */ t37097 = "call_with_current_continuation"; /* x147959 stalin.sc:19839:694181 */ t37098 = p15886->a27003; /* x147960 stalin.sc:19839:694183 */ t37099 = a27016; /* x147957 stalin.sc:19839:694134 */ t37100.tag = STRUCTURE_TYPE27745; t37100.value.structure_type27745 = t37098; return f15534(t37097, t37100, t37099);} /* [inside COMPILE-CONVERTED-CALL 15885] */ struct w49 f15885(void) {struct p15881 *p15885 = d15885; struct w49 a27015 = b27015; /* U2 */ struct structure_type24753 *a35105; /* OBJS */ struct structure_type24753 *a35106; /* OBJS */ struct structure_type24753 *a35750; /* PAIR */ struct structure_type24753 *a35751; /* PAIR */ struct structure_type24753 *a35752; /* PAIR */ struct structure_type24753 *a35753; /* PAIR */ struct structure_type27501 *t37101; struct structure_type27745 *t37102; struct w49 t37103; struct w49 t37104; struct w49 t37105; struct structure_type24753 *t37106; struct structure_type24753 *t37107; char *t37108; struct structure_type27650 *t37109; struct structure_type27745 *t37110; char *t37111; struct structure_type27745 *t37112; struct structure_type24753 *t37113; struct w49 t37114; struct structure_type24753 *t37115; struct w49 t37116; struct w49 t37117; struct w49 t37118; struct w49 t37119; struct structure_type24753 *t37120; struct structure_type24753 *t37121; struct structure_type24753 *t37122; struct structure_type24753 *t37123; struct w49 t37124; struct w49 t37125; struct w49 t37126; struct structure_type24753 *t37127; struct structure_type24753 *t37128; struct structure_type24753 *t37129; struct structure_type24753 *t37130; /* x147955 stalin.sc:19832:693913 */ /* x147925 stalin.sc:19833:693943 */ t37101 = p15885->a27002; /* x147929 stalin.sc:19834:693951 */ /* x147927 stalin.sc:19834:693971 */ t37110 = p15885->a27003; /* x147928 stalin.sc:19834:693973 */ t37111 = q64; /* x147926 stalin.sc:19834:693952 */ t37112 = t37110; t37102 = f8743(t37112, t37111); /* x147932 stalin.sc:19835:693996 */ /* x147931 stalin.sc:19835:694004 */ t37113 = p15885->a27007; /* x147930 stalin.sc:19835:693997 */ /* MOVE: branching squeezed to general */ if (t37113>=((struct structure_type24753 *)VALUE_OFFSET)) {t37114.tag = STRUCTURE_TYPE24753; t37114.value.structure_type24753 = t37113;} else t37114.tag = (unsigned)t37113; t37103 = f26181(t37114); /* x147933 stalin.sc:19835:694008 */ t37104 = a27015; /* x147936 stalin.sc:19835:694011 */ /* x147935 stalin.sc:19835:694019 */ t37115 = p15885->a27008; /* x147934 stalin.sc:19835:694012 */ /* MOVE: branching squeezed to general */ if (t37115>=((struct structure_type24753 *)VALUE_OFFSET)) {t37116.tag = STRUCTURE_TYPE24753; t37116.value.structure_type24753 = t37115;} else t37116.tag = (unsigned)t37115; t37105 = f26181(t37116); /* x147944 stalin.sc:19836:694029 */ /* x147943 stalin.sc:19836:694046 */ /* x147942 stalin.sc:19836:694053 */ t37122 = p15885->a27007; /* x147941 stalin.sc:19836:694047 */ a35751 = t37122; /* x274361 */ /* x274360 */ t37123 = a35751; /* x274359 */ if (!(t37123>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29900]"); structure_ref_error();} t37118 = t37123->s0; /* x147940 stalin.sc:19836:694035 */ /* x147939 stalin.sc:19836:694042 */ t37120 = p15885->a27007; /* x147938 stalin.sc:19836:694036 */ a35750 = t37120; /* x274357 */ /* x274356 */ t37121 = a35750; /* x274355 */ if (!(t37121>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29899]"); structure_ref_error();} t37117 = t37121->s0; /* x147937 stalin.sc:19836:694030 */ t37119.tag = STRUCTURE_TYPE24753; t37119.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37119.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19836, 694029); out_of_memory_error();} t37119.value.structure_type24753->s0 = t37118; t37119.value.structure_type24753->s1.tag = NULL_TYPE; a35105 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35105==NULL) {backtrace("stalin.sc", 19836, 694029); out_of_memory_error();} a35105->s0 = t37117; a35105->s1 = t37119; /* x272217 */ t37106 = a35105; /* x147952 stalin.sc:19837:694064 */ /* x147951 stalin.sc:19837:694081 */ /* x147950 stalin.sc:19837:694088 */ t37129 = p15885->a27008; /* x147949 stalin.sc:19837:694082 */ a35753 = t37129; /* x274369 */ /* x274368 */ t37130 = a35753; /* x274367 */ if (!(t37130>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29902]"); structure_ref_error();} t37125 = t37130->s0; /* x147948 stalin.sc:19837:694070 */ /* x147947 stalin.sc:19837:694077 */ t37127 = p15885->a27008; /* x147946 stalin.sc:19837:694071 */ a35752 = t37127; /* x274365 */ /* x274364 */ t37128 = a35752; /* x274363 */ if (!(t37128>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29901]"); structure_ref_error();} t37124 = t37128->s0; /* x147945 stalin.sc:19837:694065 */ t37126.tag = STRUCTURE_TYPE24753; t37126.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37126.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19837, 694064); out_of_memory_error();} t37126.value.structure_type24753->s0 = t37125; t37126.value.structure_type24753->s1.tag = NULL_TYPE; a35106 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35106==NULL) {backtrace("stalin.sc", 19837, 694064); out_of_memory_error();} a35106->s0 = t37124; a35106->s1 = t37126; /* x272219 */ t37107 = a35106; /* x147953 stalin.sc:19838:694099 */ t37108 = q213; /* x147954 stalin.sc:19838:694107 */ t37109 = a1675; /* x147924 stalin.sc:19832:693914 */ b27002 = t37101; b27003 = t37102; b27004 = t37103; b27005 = t37104; b27006 = t37105; b27007 = t37106; b27008 = t37107; b27009.tag = EXTERNAL_SYMBOL_TYPE; b27009.value.external_symbol_type = t37108; /* MOVE: branching squeezed to general */ if (t37109>=((struct structure_type27650 *)VALUE_OFFSET)) {b27010.tag = STRUCTURE_TYPE27650; b27010.value.structure_type27650 = t37109;} else b27010.tag = (unsigned)t37109; return f15881();} /* COMPILE-CONVERTED-CALL[15881] */ struct w49 f15881(void) {struct structure_type27501 *a27002 = b27002; /* R */ struct structure_type27745 *a27003 = b27003; /* Y */ struct w49 a27004 = b27004; /* T0 */ struct w49 a27005 = b27005; /* U0 */ struct w49 a27006 = b27006; /* W0 */ struct structure_type24753 *a27007 = b27007; /* TS */ struct structure_type24753 *a27008 = b27008; /* WS */ struct w49 a27009 = b27009; /* T */ struct w49 a27010 = b27010; /* W */ struct w49 a27018; /* W1 */ struct w60864 a27019; /* T1 */ struct structure_type24753 *a35107; /* OBJS */ struct structure_type24753 *a35110; /* OBJS */ struct structure_type24753 *a35376; /* PAIR */ struct structure_type24753 *a35377; /* PAIR */ struct structure_type24753 *a35378; /* PAIR */ struct structure_type24753 *a35379; /* PAIR */ struct structure_type24753 *a35754; /* PAIR */ struct structure_type24753 *a35755; /* PAIR */ struct structure_type24753 *a35756; /* PAIR */ struct structure_type24753 *a35757; /* PAIR */ struct structure_type24753 *a35758; /* PAIR */ struct structure_type24753 *a35759; /* PAIR */ struct structure_type24753 *a35762; /* PAIR */ struct structure_type24753 *a35763; /* PAIR */ struct structure_type24753 *a35765; /* PAIR */ struct structure_type24753 *a35766; /* PAIR */ struct structure_type24753 *a35767; /* PAIR */ struct structure_type24753 *a35768; /* PAIR */ struct w49 a37867; /* OBJ */ struct w49 a38066; /* OBJ */ struct structure_type24753 *a41835; /* CS */ struct p15881 *t37131; struct p7708 *t37132; struct w49 t37133; char *t37134; struct w49 t37135; struct w49 t37136; struct w49 t37137; struct w49 t37138; struct w49 t37139; struct structure_type27745 *t37140; struct structure_type27745 *t37141; struct p10570 *t37142; struct w49 t37143; struct structure_type24753 *t37144; struct w49 t37145; struct structure_type27745 *t37146; struct w49 t37147; struct structure_type27745 *t37148; struct p15881 *t37149; struct structure_type27501 *t37150; struct structure_type27745 *t37151; struct w49 t37152; struct w49 t37153; struct w49 t37154; struct w49 t37155; struct w49 t37156; struct w49 t37157; struct w49 t37158; struct w49 t37159; struct w49 t37160; struct structure_type24753 *t37161; struct structure_type24753 *t37162; struct structure_type24753 *t37163; struct structure_type24753 *t37164; struct structure_type24753 *t37165; struct structure_type24753 *t37166; struct structure_type24753 *t37167; struct structure_type24753 *t37168; struct p15881 *t37169; struct p15881 *t37170; struct w49 t37171; struct p15896 *t37172; struct w60864 t37173; struct p15897 *t37174; struct p15897 *t37175; struct w49 t37176; struct w49 t37177; struct structure_type24753 *t37178; struct w49 t37179; struct w49 t37180; struct structure_type27501 *t37181; struct structure_type27745 *t37182; struct w49 t37183; struct w49 t37184; struct w49 t37185; struct w49 t37186; struct w49 t37187; struct w49 t37188; struct w49 t37189; struct w49 t37190; struct w49 t37191; struct w49 t37192; struct w49 t37193; struct w60864 t37194; struct w49 t37195; struct structure_type27501 *t37196; struct structure_type24753 *t37197; struct structure_type24753 *t37198; struct structure_type24753 *t37199; struct structure_type24753 *t37200; struct structure_type24753 *t37201; struct structure_type24753 *t37202; struct structure_type24753 *t37203; struct structure_type24753 *t37204; unsigned t37205; struct w49 t37206; struct structure_type27501 *t37207; struct w49 t37208; struct p15897 *t37209; struct structure_type24753 *t37210; struct structure_type27650 *t37211; struct structure_type27745 *t37212; struct w12224 t37213; struct w49 t37214; struct w49 t37215; struct structure_type27745 *t37216; char *t37217; struct structure_type27745 *t37218; struct structure_type24753 *t37219; struct structure_type24753 *t37220; struct structure_type24753 *t37221; struct structure_type24753 *t37222; struct p15896 *t37223; struct w49 t37224; struct w211235 t37225; struct structure_type24753 *t37226; struct structure_type24753 *t37227; char *t37228; struct w49 t37229; struct structure_type24753 *t37230; unsigned t37231; struct w49 t37232; struct p15881 *t37233; struct structure_type24753 *t37234; struct w36270 t37235; struct w49 t37236; struct structure_type24753 *t37237; struct w49 t37238; struct structure_type24753 *t37239; struct structure_type24753 *t37240; struct p15881 *t37241; struct structure_type27501 *t37242; struct structure_type27745 *t37243; struct w49 t37244; struct w49 t37245; struct w49 t37246; struct w49 t37247; struct w49 t37248; struct structure_type24753 *t37249; struct structure_type24753 *t37250; struct w49 t37251; struct w49 t37252; struct structure_type24753 *t37253; struct structure_type24753 *t37254; struct structure_type24753 *t37255; struct structure_type24753 *t37256; struct p15881 *t37257; struct p15881 *t37258; unsigned t37259; struct w49 t37260; struct structure_type27501 *t37261; struct w49 t37262; struct p15881 *t37263; struct p15881 *t37264; struct structure_type24753 *t37265; struct structure_type27650 *t37266; struct structure_type27745 *t37267; struct w12224 t37268; struct w49 t37269; struct w49 t37270; struct w49 t37271; struct w49 t37272; struct structure_type24753 *t37273; struct structure_type24753 *t37274; struct structure_type24753 *t37275; struct structure_type24753 *t37276; struct structure_type27745 *t37277; char *t37278; struct structure_type27745 *t37279; struct structure_type24753 *t37280; struct w49 t37281; struct structure_type24753 *t37282; struct w49 t37283; struct w49 t37284; struct w211235 t37285; char *t37286; struct w49 t37287; char *t37288; struct w49 t37289; struct w49 t37290; struct p15881 *t37291; struct structure_type27745 *t37292; char *t37293; struct w6315 t37294; struct p15881 *e15881; struct p15896 *e15896; struct p15897 *e15897; struct p15881 *p15882; struct p15881 *p15883; struct p15881 *p15884; struct p15881 *p15894; struct p15881 *p15895; struct p15881 *p15896; struct p15896 *p15897; struct p15897 *p15898; struct p15897 *p15899; struct p15881 *p15906; struct p15881 *p15909; e15881 = (struct p15881 *)GC_malloc(sizeof(struct p15881)); if (e15881==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e15881->a27002 = a27002; e15881->a27003 = a27003; e15881->a27007 = a27007; e15881->a27008 = a27008; /* x148236 */ /* x148223 stalin.sc:19807:693144 */ /* x148216 stalin.sc:19807:693152 */ /* x148215 stalin.sc:19807:693169 */ t37287 = a27005; /* x148214 stalin.sc:19807:693153 */ if (f7712(t37287)==FALSE_TYPE) goto l5465; /* x148218 */ /* x148217 */ goto l5466; l5465: /* x148222 */ /* x148221 */ /* x148220 stalin.sc:19807:693173 */ /* x148219 stalin.sc:19807:693174 */ /* x295565 QobiScheme.sc:166:5314 */ /* x295564 QobiScheme.sc:166:5321 */ t37288 = "This shouldn\'t happen"; /* x295563 QobiScheme.sc:166:5315 */ stalin_panic(t37288); l5466: /* x148235 stalin.sc:19808:693185 */ /* x148226 stalin.sc:19808:693191 */ /* x148225 stalin.sc:19808:693211 */ t37289 = a27005; /* x148224 stalin.sc:19808:693192 */ a37867 = t37289; /* x284137 */ /* x284136 */ t37290 = a37867; /* x284135 */ if (!((t37290.tag)==STRUCTURE_TYPE27858)) goto l5468; /* x148232 */ /* x148231 */ t37291 = e15881; p15909 = t37291; /* x148230 stalin.sc:19808:693215 */ /* x148228 stalin.sc:19808:693230 */ t37292 = p15909->a27003; /* x148229 stalin.sc:19808:693232 */ t37293 = "unimplemented"; /* x148227 stalin.sc:19808:693216 */ t37294.tag = STRUCTURE_TYPE27745; t37294.value.structure_type27745 = t37292; f9707(t37294, t37293); goto l5469; l5468: /* x148234 stalin.sc:19808:693185 */ /* x148233 stalin.sc:19808:693185 */ l5469: /* x148213 */ t37131 = e15881; p15882 = t37131; /* x148212 stalin.sc:19809:693251 */ /* x147900 stalin.sc:19811:693297 */ /* x147899 stalin.sc:19811:693364 */ t37133 = a27005; /* x147898 stalin.sc:19811:693298 */ /* x147897 stalin.sc:19811:693331 */ t37134 = q66; /* x147896 stalin.sc:19811:693299 */ t37135.tag = EXTERNAL_SYMBOL_TYPE; t37135.value.external_symbol_type = t37134; t37132 = f7708(t37135); if (f7709(t37132, t37133)==FALSE_TYPE) goto l5448; /* x148023 */ /* x148022 */ t37257 = p15882; p15883 = t37257; /* x148021 */ /* x147975 stalin.sc:19812:693371 */ /* x147968 stalin.sc:19812:693377 */ /* x147966 stalin.sc:19812:693390 */ /* x147967 stalin.sc:19812:693401 */ t37284 = a27010; /* x147965 stalin.sc:19812:693378 */ t37285.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t37285, t37284).tag)==FALSE_TYPE) goto l5461; /* x147972 */ /* x147971 */ /* x147970 stalin.sc:19812:693404 */ /* x147969 stalin.sc:19812:693405 */ /* x295549 QobiScheme.sc:166:5314 */ /* x295548 QobiScheme.sc:166:5321 */ t37286 = "This shouldn\'t happen"; /* x295547 QobiScheme.sc:166:5315 */ stalin_panic(t37286); goto l5462; l5461: /* x147974 stalin.sc:19812:693371 */ /* x147973 stalin.sc:19812:693371 */ l5462: /* x148020 stalin.sc:19813:693418 */ /* x147976 stalin.sc:19813:693424 */ /* x148019 stalin.sc:19813:693418 */ /* x148018 stalin.sc:19813:693418 */ /* x147964 */ t37258 = p15883; p15884 = t37258; /* x147963 stalin.sc:19824:693725 */ /* x147916 stalin.sc:19825:693742 */ /* x147910 stalin.sc:19825:693765 */ /* x147909 stalin.sc:19825:693782 */ /* x147908 stalin.sc:19825:693789 */ t37275 = p15884->a27008; /* x147907 stalin.sc:19825:693783 */ a35755 = t37275; /* x274377 */ /* x274376 */ t37276 = a35755; /* x274375 */ if (!(t37276>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29904]"); structure_ref_error();} t37271 = t37276->s0; /* x147906 stalin.sc:19825:693771 */ /* x147905 stalin.sc:19825:693778 */ t37273 = p15884->a27008; /* x147904 stalin.sc:19825:693772 */ a35754 = t37273; /* x274373 */ /* x274372 */ t37274 = a35754; /* x274371 */ if (!(t37274>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29903]"); structure_ref_error();} t37270 = t37274->s0; /* x147903 stalin.sc:19825:693766 */ t37272.tag = STRUCTURE_TYPE24753; t37272.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37272.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19825, 693765); out_of_memory_error();} t37272.value.structure_type24753->s0 = t37271; t37272.value.structure_type24753->s1.tag = NULL_TYPE; a35107 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35107==NULL) {backtrace("stalin.sc", 19825, 693765); out_of_memory_error();} a35107->s0 = t37270; a35107->s1 = t37272; /* x272221 */ t37265 = a35107; /* x147911 stalin.sc:19826:693800 */ t37266 = a1675; /* x147915 stalin.sc:19827:693813 */ /* x147913 stalin.sc:19827:693833 */ t37277 = p15884->a27003; /* x147914 stalin.sc:19827:693835 */ t37278 = q64; /* x147912 stalin.sc:19827:693814 */ t37279 = t37277; t37267 = f8743(t37279, t37278); /* x147902 stalin.sc:19825:693743 */ t37268.tag = STRUCTURE_TYPE24753; t37268.value.structure_type24753 = t37265; /* MOVE: branching squeezed to general */ if (t37266>=((struct structure_type27650 *)VALUE_OFFSET)) {t37269.tag = STRUCTURE_TYPE27650; t37269.value.structure_type27650 = t37266;} else t37269.tag = (unsigned)t37266; t37259 = f7873(t37268, t37269, t37267); /* x147919 stalin.sc:19828:693857 */ /* x147918 stalin.sc:19828:693865 */ t37280 = p15884->a27008; /* x147917 stalin.sc:19828:693858 */ /* MOVE: branching squeezed to general */ if (t37280>=((struct structure_type24753 *)VALUE_OFFSET)) {t37281.tag = STRUCTURE_TYPE24753; t37281.value.structure_type24753 = t37280;} else t37281.tag = (unsigned)t37280; t37260 = f26181(t37281); /* x147920 stalin.sc:19829:693873 */ t37261 = p15884->a27002; /* x147923 stalin.sc:19830:693879 */ /* x147922 stalin.sc:19830:693887 */ t37282 = p15884->a27007; /* x147921 stalin.sc:19830:693880 */ /* MOVE: branching squeezed to general */ if (t37282>=((struct structure_type24753 *)VALUE_OFFSET)) {t37283.tag = STRUCTURE_TYPE24753; t37283.value.structure_type24753 = t37282;} else t37283.tag = (unsigned)t37282; t37262 = f26181(t37283); /* x147956 stalin.sc:19831:693895 */ t37263 = p15884; /* x147962 stalin.sc:19839:694120 */ t37264 = p15884; /* x147901 stalin.sc:19824:693726 */ /* MOVE: squished to squished */ b26111 = ((unsigned)(t37259&(~3)))+("\001\000"[t37259&3]); b26112 = t37260; b26113 = t37261; b26114 = t37262; b26115.tag = NATIVE_PROCEDURE_TYPE22073; b26115.value.native_procedure_type22073 = t37263; b26116.tag = NATIVE_PROCEDURE_TYPE22072; b26116.value.native_procedure_type22072 = t37264; return f14692(); l5448: /* x148211 */ /* x148034 stalin.sc:19840:694193 */ /* x148026 stalin.sc:19840:694198 */ /* x148025 stalin.sc:19840:694222 */ t37136 = a27005; /* x148024 stalin.sc:19840:694199 */ a38066 = t37136; /* x284933 */ /* x284932 */ t37137 = a38066; /* x284931 */ if (!((t37137.tag)==STRUCTURE_TYPE27756)) goto l5450; /* x148032 */ /* x148031 stalin.sc:19840:694238 */ /* x148029 stalin.sc:19840:694258 */ t37139 = a27005; /* x148030 stalin.sc:19840:694261 */ t37140 = p15882->a27003; /* x148028 stalin.sc:19840:694239 */ t37141 = t37140; t37138 = f9368(t37139, t37141); /* x148027 stalin.sc:19840:694227 */ if (f8944(t37138)==FALSE_TYPE) goto l5450; /* x148053 */ /* x148052 */ t37241 = p15882; p15894 = t37241; /* x148051 stalin.sc:19841:694269 */ /* x148036 stalin.sc:19841:694283 */ t37242 = p15894->a27002; /* x148037 stalin.sc:19841:694285 */ t37243 = p15894->a27003; /* x148038 stalin.sc:19841:694287 */ t37244 = a27004; /* x148039 stalin.sc:19841:694290 */ t37245 = a27005; /* x148040 stalin.sc:19841:694293 */ t37246 = a27006; /* x148043 stalin.sc:19841:694296 */ /* x148042 stalin.sc:19841:694303 */ t37253 = p15894->a27007; /* x148041 stalin.sc:19841:694297 */ a35756 = t37253; /* x274381 */ /* x274380 */ t37254 = a35756; /* x274379 */ if (!(t37254>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29905]"); structure_ref_error();} t37247 = t37254->s0; /* x148046 stalin.sc:19841:694307 */ /* x148045 stalin.sc:19841:694314 */ t37255 = p15894->a27008; /* x148044 stalin.sc:19841:694308 */ a35757 = t37255; /* x274385 */ /* x274384 */ t37256 = a35757; /* x274383 */ if (!(t37256>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29906]"); structure_ref_error();} t37248 = t37256->s0; /* x148047 stalin.sc:19841:694318 */ t37249 = p15894->a27007; /* x148048 stalin.sc:19841:694321 */ t37250 = p15894->a27008; /* x148049 stalin.sc:19841:694324 */ t37251 = a27009; /* x148050 stalin.sc:19841:694326 */ t37252 = a27010; /* x148035 stalin.sc:19841:694270 */ b26962 = t37242; b26963 = t37243; b26964 = t37244; b26965 = t37245; b26966 = t37246; b26967 = t37247; b26968 = t37248; /* MOVE: branching squeezed to general */ if (t37249>=((struct structure_type24753 *)VALUE_OFFSET)) {b26969.tag = STRUCTURE_TYPE24753; b26969.value.structure_type24753 = t37249;} else b26969.tag = (unsigned)t37249; /* MOVE: branching squeezed to general */ if (t37250>=((struct structure_type24753 *)VALUE_OFFSET)) {b26970.tag = STRUCTURE_TYPE24753; b26970.value.structure_type24753 = t37250;} else b26970.tag = (unsigned)t37250; b26971 = t37251; b26972 = t37252; return f15827(); l5450: /* x148210 */ /* x148060 stalin.sc:19842:694333 */ /* x148059 stalin.sc:19842:694377 */ t37143 = a27005; /* x148058 stalin.sc:19842:694334 */ /* x148055 stalin.sc:19842:694369 */ t37144 = p15882->a27008; /* x148056 stalin.sc:19842:694372 */ t37145 = a27010; /* x148057 stalin.sc:19842:694374 */ t37146 = p15882->a27003; /* x148054 stalin.sc:19842:694335 */ /* MOVE: branching squeezed to general */ if (t37144>=((struct structure_type24753 *)VALUE_OFFSET)) {t37147.tag = STRUCTURE_TYPE24753; t37147.value.structure_type24753 = t37144;} else t37147.tag = (unsigned)t37144; t37148 = t37146; t37142 = f10570(t37147, t37145, t37148); if (f10572(t37142, t37143)==FALSE_TYPE) goto l5453; /* x148186 */ /* x148185 */ t37169 = p15882; p15895 = t37169; /* x148184 stalin.sc:19843:694384 */ /* x148183 stalin.sc:19843:694395 */ /* x148170 stalin.sc:19843:694401 */ /* x148182 stalin.sc:19844:694420 */ /* x148181 stalin.sc:19845:694479 */ /* x148180 stalin.sc:19845:694488 */ /* x148179 stalin.sc:19845:694495 */ t37239 = p15895->a27008; /* x148178 stalin.sc:19845:694489 */ a35766 = t37239; /* x274421 */ /* x274420 */ t37240 = a35766; /* x274419 */ if (!(t37240>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29915]"); structure_ref_error();} t37238 = t37240->s0; /* x148177 stalin.sc:19845:694480 */ t37234 = f8162(t37238); /* x148176 stalin.sc:19844:694425 */ t37233 = p15895; /* x148171 stalin.sc:19844:694421 */ t37235.tag = NATIVE_PROCEDURE_TYPE22049; t37235.value.native_procedure_type22049 = t37233; /* MOVE: branching squeezed to general */ if (t37234>=((struct structure_type24753 *)VALUE_OFFSET)) {t37236.tag = STRUCTURE_TYPE24753; t37236.value.structure_type24753 = t37234;} else t37236.tag = (unsigned)t37234; t37237 = (struct structure_type24753 *)NULL_TYPE; t37230 = f27731(t37235, t37236, t37237); /* x148169 stalin.sc:19843:694396 */ t37231 = NATIVE_PROCEDURE_TYPE7349; /* MOVE: branching squeezed to general */ if (t37230>=((struct structure_type24753 *)VALUE_OFFSET)) {t37232.tag = STRUCTURE_TYPE24753; t37232.value.structure_type24753 = t37230;} else t37232.tag = (unsigned)t37230; t37171 = f1583(t37231, t37232); /* x148168 */ t37170 = p15895; p15896 = t37170; a27018 = t37171; e15896 = (struct p15896 *)GC_malloc(sizeof(struct p15896)); if (e15896==NULL) {backtrace_internal("[inside COMPILE-CONVERTED-CALL 15895]"); out_of_memory_error();} e15896->p15881 = p15896; e15896->a27018 = a27018; /* x148167 */ /* x148166 stalin.sc:19846:694510 */ /* x148165 stalin.sc:19846:694530 */ t37229 = e15896->a27018; /* x148164 stalin.sc:19846:694511 */ t37173 = f15531(t37229); /* x148163 */ t37172 = e15896; p15897 = t37172; a27019 = t37173; e15897 = (struct p15897 *)GC_malloc(sizeof(struct p15897)); if (e15897==NULL) {backtrace_internal("[inside COMPILE-CONVERTED-CALL 15896]"); out_of_memory_error();} e15897->p15896 = p15897; e15897->a27019 = a27019; /* x148162 */ /* x148161 */ t37174 = e15897; p15898 = t37174; /* x148160 */ /* x148159 stalin.sc:19847:694540 */ /* x148152 stalin.sc:19847:694546 */ /* x148148 stalin.sc:19848:694563 */ t37223 = p15898->p15896; /* x148151 stalin.sc:19849:694635 */ /* x148150 stalin.sc:19849:694642 */ t37226 = p15898->p15896->p15881->a27008; /* x148149 stalin.sc:19849:694636 */ a35765 = t37226; /* x274417 */ /* x274416 */ t37227 = a35765; /* x274415 */ if (!(t37227>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29914]"); structure_ref_error();} t37224 = t37227->s0; /* x148140 stalin.sc:19847:694547 */ t37225.tag = NATIVE_PROCEDURE_TYPE22054; t37225.value.native_procedure_type22054 = t37223; if ((f8144(t37225, t37224).tag)==FALSE_TYPE) goto l5458; /* x148156 */ /* x148155 */ /* x148154 stalin.sc:19850:694652 */ /* x148153 stalin.sc:19850:694653 */ /* x295561 QobiScheme.sc:166:5314 */ /* x295560 QobiScheme.sc:166:5321 */ t37228 = "This shouldn\'t happen"; /* x295559 QobiScheme.sc:166:5315 */ stalin_panic(t37228); goto l5459; l5458: /* x148158 stalin.sc:19847:694540 */ /* x148157 stalin.sc:19847:694540 */ l5459: /* x148139 */ t37175 = p15898; p15899 = t37175; /* x148138 stalin.sc:19851:694667 */ /* x148137 stalin.sc:19857:694946 */ /* x148101 stalin.sc:19858:694965 */ /* x148095 stalin.sc:19859:694995 */ /* x148094 stalin.sc:19859:695001 */ t37215 = p15899->p15896->a27018; /* x148093 stalin.sc:19859:694996 */ a35110 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35110==NULL) {backtrace("stalin.sc", 19859, 694995); out_of_memory_error();} a35110->s0 = t37215; a35110->s1.tag = NULL_TYPE; /* x272227 */ t37210 = a35110; /* x148096 stalin.sc:19859:695005 */ t37211 = a1675; /* x148100 stalin.sc:19859:695012 */ /* x148098 stalin.sc:19859:695032 */ t37216 = p15899->p15896->p15881->a27003; /* x148099 stalin.sc:19859:695034 */ t37217 = q67; /* x148097 stalin.sc:19859:695013 */ t37218 = t37216; t37212 = f8743(t37218, t37217); /* x148092 stalin.sc:19858:694966 */ t37213.tag = STRUCTURE_TYPE24753; t37213.value.structure_type24753 = t37210; /* MOVE: branching squeezed to general */ if (t37211>=((struct structure_type27650 *)VALUE_OFFSET)) {t37214.tag = STRUCTURE_TYPE27650; t37214.value.structure_type27650 = t37211;} else t37214.tag = (unsigned)t37211; t37205 = f7873(t37213, t37214, t37212); /* x148104 stalin.sc:19860:695065 */ /* x148103 stalin.sc:19860:695072 */ t37219 = p15899->p15896->p15881->a27008; /* x148102 stalin.sc:19860:695066 */ a35762 = t37219; /* x274405 */ /* x274404 */ t37220 = a35762; /* x274403 */ if (!(t37220>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29911]"); structure_ref_error();} t37206 = t37220->s0; /* x148105 stalin.sc:19861:695082 */ t37207 = p15899->p15896->p15881->a27002; /* x148108 stalin.sc:19862:695090 */ /* x148107 stalin.sc:19862:695097 */ t37221 = p15899->p15896->p15881->a27007; /* x148106 stalin.sc:19862:695091 */ a35763 = t37221; /* x274409 */ /* x274408 */ t37222 = a35763; /* x274407 */ if (!(t37222>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29912]"); structure_ref_error();} t37208 = t37222->s0; /* x148133 stalin.sc:19863:695107 */ t37209 = p15899; /* x148136 stalin.sc:19867:695265 */ /* x148091 stalin.sc:19857:694947 */ /* MOVE: squished to squished */ b26111 = ((unsigned)(t37205&(~3)))+("\001\000"[t37205&3]); b26112 = t37206; b26113 = t37207; b26114 = t37208; b26115.tag = NATIVE_PROCEDURE_TYPE22065; b26115.value.native_procedure_type22065 = t37209; b26116.tag = NATIVE_PROCEDURE_TYPE22064; t37177 = f14692(); /* x148090 stalin.sc:19852:694689 */ /* x148071 stalin.sc:19853:694709 */ /* x148065 stalin.sc:19853:694713 */ /* x148064 stalin.sc:19853:694726 */ t37192 = p15899->p15896->a27018; /* x148063 stalin.sc:19853:694714 */ if (f8793(t37192)==FALSE_TYPE) goto l5455; /* x148066 stalin.sc:19853:694730 */ t37181 = a1194; goto l5456; l5455: /* x148070 stalin.sc:19853:694740 */ /* x148068 stalin.sc:19853:694764 */ t37193 = p15899->p15896->a27018; /* x148069 stalin.sc:19853:694767 */ t37194 = p15899->a27019; /* x148067 stalin.sc:19853:694741 */ t37195 = *((struct w49 *)(&t37194)); t37196 = f7025(t37193, t37195); t37181 = t37196; l5456: /* x148072 stalin.sc:19854:694778 */ t37182 = p15899->p15896->p15881->a27003; /* x148073 stalin.sc:19854:694780 */ t37183 = a27004; /* x148074 stalin.sc:19854:694783 */ t37184 = a27005; /* x148075 stalin.sc:19854:694786 */ t37185 = a27006; /* x148078 stalin.sc:19854:694789 */ /* x148077 stalin.sc:19854:694796 */ t37197 = p15899->p15896->p15881->a27007; /* x148076 stalin.sc:19854:694790 */ a35758 = t37197; /* x274389 */ /* x274388 */ t37198 = a35758; /* x274387 */ if (!(t37198>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29907]"); structure_ref_error();} t37186 = t37198->s0; /* x148081 stalin.sc:19854:694800 */ /* x148080 stalin.sc:19854:694807 */ t37199 = p15899->p15896->p15881->a27008; /* x148079 stalin.sc:19854:694801 */ a35759 = t37199; /* x274393 */ /* x274392 */ t37200 = a35759; /* x274391 */ if (!(t37200>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29908]"); structure_ref_error();} t37187 = t37200->s0; /* x148084 stalin.sc:19854:694811 */ /* x148083 stalin.sc:19854:694817 */ t37201 = p15899->p15896->p15881->a27007; /* x148082 stalin.sc:19854:694812 */ a35376 = t37201; /* x272861 */ /* x272860 */ t37202 = a35376; /* x272859 */ if (!(t37202>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CDR[26177] 29525]"); structure_ref_error();} t37188 = t37202->s1; /* x148087 stalin.sc:19854:694821 */ /* x148086 stalin.sc:19854:694827 */ t37203 = p15899->p15896->p15881->a27008; /* x148085 stalin.sc:19854:694822 */ a35377 = t37203; /* x272865 */ /* x272864 */ t37204 = a35377; /* x272863 */ if (!(t37204>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CDR[26177] 29526]"); structure_ref_error();} t37189 = t37204->s1; /* x148088 stalin.sc:19854:694831 */ t37190 = a27009; /* x148089 stalin.sc:19854:694833 */ t37191 = a27010; /* x148062 stalin.sc:19852:694690 */ b26962 = t37181; b26963 = t37182; b26964 = t37183; b26965 = t37184; b26966 = t37185; b26967 = t37186; b26968 = t37187; b26969 = t37188; b26970 = t37189; b26971 = t37190; b26972 = t37191; t37176 = f15827(); /* x148061 stalin.sc:19851:694668 */ t37180.tag = STRUCTURE_TYPE24753; t37180.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37180.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19851, 694667); out_of_memory_error();} t37180.value.structure_type24753->s0 = t37177; t37180.value.structure_type24753->s1.tag = NULL_TYPE; a41835 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41835==NULL) {backtrace("stalin.sc", 19851, 694667); out_of_memory_error();} a41835->s0 = t37176; a41835->s1 = t37180; /* x301452 stalin.sc:14400:506485 */ /* x301451 stalin.sc:14400:506503 */ t37178 = a41835; /* x301450 stalin.sc:14400:506486 */ t37179.tag = STRUCTURE_TYPE24753; t37179.value.structure_type24753 = t37178; return f13492(t37179); l5453: /* x148209 */ /* x148208 */ t37149 = p15882; p15906 = t37149; /* x148207 stalin.sc:19869:695303 */ /* x148188 stalin.sc:19869:695317 */ t37150 = p15906->a27002; /* x148189 stalin.sc:19869:695319 */ t37151 = p15906->a27003; /* x148190 stalin.sc:19869:695321 */ t37152 = a27004; /* x148191 stalin.sc:19869:695324 */ t37153 = a27005; /* x148192 stalin.sc:19869:695327 */ t37154 = a27006; /* x148195 stalin.sc:19869:695330 */ /* x148194 stalin.sc:19869:695337 */ t37161 = p15906->a27007; /* x148193 stalin.sc:19869:695331 */ a35767 = t37161; /* x274425 */ /* x274424 */ t37162 = a35767; /* x274423 */ if (!(t37162>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29916]"); structure_ref_error();} t37155 = t37162->s0; /* x148198 stalin.sc:19869:695341 */ /* x148197 stalin.sc:19869:695348 */ t37163 = p15906->a27008; /* x148196 stalin.sc:19869:695342 */ a35768 = t37163; /* x274429 */ /* x274428 */ t37164 = a35768; /* x274427 */ if (!(t37164>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29917]"); structure_ref_error();} t37156 = t37164->s0; /* x148201 stalin.sc:19869:695352 */ /* x148200 stalin.sc:19869:695358 */ t37165 = p15906->a27007; /* x148199 stalin.sc:19869:695353 */ a35378 = t37165; /* x272869 */ /* x272868 */ t37166 = a35378; /* x272867 */ if (!(t37166>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CDR[26177] 29527]"); structure_ref_error();} t37157 = t37166->s1; /* x148204 stalin.sc:19869:695362 */ /* x148203 stalin.sc:19869:695368 */ t37167 = p15906->a27008; /* x148202 stalin.sc:19869:695363 */ a35379 = t37167; /* x272873 */ /* x272872 */ t37168 = a35379; /* x272871 */ if (!(t37168>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CDR[26177] 29528]"); structure_ref_error();} t37158 = t37168->s1; /* x148205 stalin.sc:19869:695372 */ t37159 = a27009; /* x148206 stalin.sc:19869:695374 */ t37160 = a27010; /* x148187 stalin.sc:19869:695304 */ b26962 = t37150; b26963 = t37151; b26964 = t37152; b26965 = t37153; b26966 = t37154; b26967 = t37155; b26968 = t37156; b26969 = t37157; b26970 = t37158; b26971 = t37159; b26972 = t37160; return f15827();} /* CONTINUATION-ARGUMENT-TYPE-SET[15877] */ struct w49 f15877(struct w49 a26999, struct structure_type27745 *a27000) {struct w49 a38065; /* OBJ */ struct w49 t37295; struct w49 t37296; struct structure_type27745 *t37297; struct structure_type27745 *t37298; struct structure_type27745 *t37299; char *t37300; struct structure_type27745 *t37301; struct w49 t37302; struct w49 t37303; char *t37304; /* x147893 */ /* x147892 stalin.sc:19802:692940 */ /* x147885 stalin.sc:19802:692948 */ /* x147884 stalin.sc:19802:692972 */ t37302 = a26999; /* x147883 stalin.sc:19802:692949 */ a38065 = t37302; /* x284929 */ /* x284928 */ t37303 = a38065; /* x284927 */ if (!((t37303.tag)==STRUCTURE_TYPE27756)) goto l5471; /* x147887 */ /* x147886 */ goto l5472; l5471: /* x147891 */ /* x147890 */ /* x147889 stalin.sc:19802:692975 */ /* x147888 stalin.sc:19802:692976 */ /* x295557 QobiScheme.sc:166:5314 */ /* x295556 QobiScheme.sc:166:5321 */ t37304 = "This shouldn\'t happen"; /* x295555 QobiScheme.sc:166:5315 */ stalin_panic(t37304); l5472: /* x147882 */ /* x147881 stalin.sc:19803:692987 */ /* x147880 stalin.sc:19804:693015 */ /* x147875 stalin.sc:19804:693035 */ t37296 = a26999; /* x147879 stalin.sc:19804:693037 */ /* x147877 stalin.sc:19804:693057 */ t37299 = a27000; /* x147878 stalin.sc:19804:693059 */ t37300 = q67; /* x147876 stalin.sc:19804:693038 */ t37301 = t37299; t37297 = f8743(t37301, t37300); /* x147874 stalin.sc:19804:693016 */ t37298 = t37297; t37295 = f9368(t37296, t37298); /* x147873 stalin.sc:19803:692988 */ return f8683(t37295);} /* [inside COMPILE-CALL 15858] */ struct w12563 f15858(struct w49 a26992) {struct w12563 r15858; struct w49 a36823; /* S */ struct w49 a41627; /* G */ struct w49 a41712; /* G */ struct w49 t37305; struct w49 t37306; struct w49 t37307; struct w49 t37308; struct w49 t37309; struct w60864 t37310; struct w49 t37311; struct w49 t37312; /* x147632 stalin.sc:19715:689408 */ /* x147625 stalin.sc:19715:689412 */ /* x147624 stalin.sc:19715:689416 */ /* x147623 stalin.sc:19715:689424 */ t37305 = a26992; /* x147622 stalin.sc:19715:689417 */ a41712 = t37305; /* x300960 stalin.sc:3890:131852 */ /* x300959 stalin.sc:3890:131869 */ t37306 = a41712; /* x300958 stalin.sc:3890:131853 */ if (!(f8204(t37306)==FALSE_TYPE)) goto l5473; /* x147619 */ /* x147618 stalin.sc:19715:689437 */ t37307 = a26992; /* x147617 stalin.sc:19715:689428 */ a41627 = t37307; /* x300620 stalin.sc:3965:133896 */ /* x300619 stalin.sc:3965:133915 */ t37308 = a41627; /* x300618 stalin.sc:3965:133897 */ if (f8219(t37308)==FALSE_TYPE) goto l5474; l5473: /* x147630 stalin.sc:19716:689449 */ /* x147629 stalin.sc:19716:689469 */ /* x147628 stalin.sc:19716:689488 */ t37311 = a26992; /* x147627 stalin.sc:19716:689470 */ a36823 = t37311; /* x279961 */ /* x279960 */ t37312 = a36823; /* x279959 */ if (!((t37312.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31740]"); structure_ref_error();} t37309 = t37312.value.structure_type27692->s9; /* x147626 stalin.sc:19716:689450 */ t37310 = f15531(t37309); return *((struct w12563 *)(&t37310)); l5474: /* x147631 stalin.sc:19717:689500 */ r15858.tag = FALSE_TYPE; return r15858;} /* [inside COMPILE-CALL 15830] */ struct w49 f15830(struct p15827 *p15830, struct p7717 *a26974) {struct p7717 *a26135; /* M */ struct structure_type27501 *a26136; /* R */ struct w49 a26137; /* W */ struct w49 a26138; /* C */ struct w49 a35908; /* PAIR */ struct w49 a35909; /* PAIR */ struct p7717 *t37313; struct structure_type27501 *t37314; struct w49 t37315; struct w49 t37316; struct p7717 *t37317; struct w49 t37318; struct structure_type27501 *t37319; struct w49 t37320; struct p14711 *t37321; struct p14711 *t37322; struct p7717 *t37323; unsigned t37324; unsigned t37325; struct w49 t37326; struct w49 t37327; struct w49 t37328; struct w49 t37329; struct p14711 *e14711; /* x147037 stalin.sc:19624:686246 */ /* x147029 stalin.sc:19624:686265 */ t37313 = a26974; /* x147030 stalin.sc:19624:686267 */ t37314 = p15830->a26962; /* x147033 stalin.sc:19624:686269 */ /* x147032 stalin.sc:19624:686276 */ t37326 = p15830->a26970; /* x147031 stalin.sc:19624:686270 */ a35908 = t37326; /* x274989 */ /* x274988 */ t37327 = a35908; /* x274987 */ if (!((t37327.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30057]"); structure_ref_error();} t37315 = t37327.value.structure_type24753->s0; /* x147036 stalin.sc:19624:686280 */ /* x147035 stalin.sc:19624:686287 */ t37328 = p15830->a26969; /* x147034 stalin.sc:19624:686281 */ a35909 = t37328; /* x274993 */ /* x274992 */ t37329 = a35909; /* x274991 */ if (!((t37329.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30058]"); structure_ref_error();} t37316 = t37329.value.structure_type24753->s0; /* x147028 stalin.sc:19624:686247 */ a26135 = t37313; a26136 = t37314; a26137 = t37315; a26138 = t37316; e14711 = (struct p14711 *)alloca(sizeof(struct p14711)); if (e14711==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e14711->a26136 = a26136; /* x133735 stalin.sc:17032:595719 */ /* x133723 stalin.sc:17033:595743 */ t37317 = a26135; /* x133724 stalin.sc:17033:595745 */ t37318 = a26137; /* x133725 stalin.sc:17033:595747 */ t37319 = e14711->a26136; /* x133726 stalin.sc:17033:595749 */ t37320 = a26138; /* x133730 stalin.sc:17033:595751 */ t37321 = e14711; /* x133734 stalin.sc:17033:595780 */ t37322 = e14711; /* x133722 stalin.sc:17032:595720 */ t37323 = t37317; t37324 = ((unsigned)t37321)+1; t37325 = ((unsigned)t37322)+1; return f14703(t37323, t37318, t37319, t37320, t37324, t37325);} /* COMPILE-CALL[15827] */ struct w49 f15827(void) {struct w49 r15827; struct structure_type27501 *a26962 = b26962; /* R */ struct structure_type27745 *a26963 = b26963; /* Y */ struct w49 a26964 = b26964; /* T0 */ struct w49 a26965 = b26965; /* U0 */ struct w49 a26966 = b26966; /* W0 */ struct w49 a26967 = b26967; /* T1 */ struct w49 a26968 = b26968; /* W1 */ struct w49 a26969 = b26969; /* TS */ struct w49 a26970 = b26970; /* WS */ struct w49 a26971 = b26971; /* T */ struct w49 a26972 = b26972; /* W */ struct structure_type24753 *a25388; /* C */ struct structure_type24753 *a25491; /* C1 */ char *a25492; /* C2 */ struct structure_type27501 *a26881; /* R */ struct structure_type27745 *a26882; /* Y */ struct w49 a26883; /* U */ struct w49 a26884; /* TS */ struct w49 a26885; /* WS */ struct w49 a26886; /* WS */ struct w49 a26887; /* TS */ struct w49 a26976; /* E0 */ struct w6852 a26977; /* X0 */ struct structure_type24753 *a26978; /* GS */ struct structure_type24753 *a26979; /* C */ struct w60864 a26982; /* T */ struct w12224 a26983; /* TS1 */ struct structure_type24753 *a26984; /* C */ struct w60864 a26987; /* T */ struct w49 a26996; /* W1 */ struct w49 a26997; /* T1 */ struct w49 a27277; /* S */ struct w49 a27420; /* U0 */ struct p15827 *a27425; /* COMPILE-TYPE-PREDICATE */ struct structure_type27501 *a27470; /* R */ struct structure_type27745 *a27471; /* Y */ struct w49 a27472; /* U0 */ struct w49 a27473; /* TS */ struct w49 a27474; /* WS */ struct w49 a27486; /* C */ struct w49 a27487; /* W */ struct w49 a27488; /* U */ struct structure_type27501 *a27523; /* R */ struct structure_type27745 *a27524; /* Y */ struct w49 a27525; /* U0 */ struct w49 a27533; /* T1 */ struct w49 a27534; /* W1 */ struct structure_type27501 *a27571; /* R */ struct structure_type27745 *a27572; /* Y */ struct w49 a27573; /* U0 */ struct w49 a27581; /* T1 */ struct w49 a27582; /* W1 */ struct w49 a27583; /* T2 */ struct w49 a27584; /* W2 */ struct p15827 *a27625; /* COMPILE-TYPE-PREDICATE */ struct p15827 *a27670; /* COMPILE-TYPE-PREDICATE */ struct structure_type27501 *a27722; /* R */ struct structure_type27745 *a27723; /* Y */ struct w49 a27732; /* T1 */ struct w49 a27733; /* W1 */ struct w49 a27734; /* T2 */ struct w49 a27735; /* W2 */ struct w12224 a27738; /* US */ struct w49 a27780; /* SIZE */ struct w30215 a27781; /* FIXNUM-SIZE */ struct w30215 a27782; /* CHAR-SIZE */ struct p15827 *a27825; /* COMPILE-TYPE-PREDICATE */ struct p15827 *a27870; /* COMPILE-TYPE-PREDICATE */ struct structure_type27501 *a27905; /* R */ struct structure_type27745 *a27906; /* Y */ struct w49 a27915; /* T1 */ struct w49 a27916; /* W1 */ struct structure_type27501 *a27951; /* R */ struct structure_type27745 *a27952; /* Y */ struct w49 a27961; /* T1 */ struct w49 a27962; /* W1 */ struct p15827 *a28006; /* COMPILE-TYPE-PREDICATE */ struct structure_type27501 *a28046; /* R */ struct w49 a28056; /* T1 */ struct w49 a28057; /* W1 */ struct structure_type27501 *a28095; /* R */ struct w49 a28105; /* T1 */ struct w49 a28106; /* W1 */ struct structure_type27501 *a28142; /* R */ struct structure_type27745 *a28143; /* Y */ struct w49 a28152; /* T1 */ struct w49 a28153; /* W1 */ struct structure_type27501 *a28189; /* R */ struct structure_type27745 *a28190; /* Y */ struct w49 a28199; /* T1 */ struct w49 a28200; /* W1 */ struct structure_type27501 *a28236; /* R */ struct structure_type27745 *a28237; /* Y */ struct w49 a28239; /* TS */ struct w49 a28240; /* WS */ struct structure_type27501 *a28285; /* R */ struct structure_type27745 *a28286; /* Y */ struct w49 a28288; /* TS */ struct w49 a28289; /* WS */ struct structure_type27501 *a28334; /* R */ struct structure_type27745 *a28335; /* Y */ struct w49 a28337; /* TS */ struct w49 a28338; /* WS */ struct structure_type27501 *a28383; /* R */ struct structure_type27745 *a28384; /* Y */ struct w49 a28386; /* TS */ struct w49 a28387; /* WS */ struct structure_type27501 *a28432; /* R */ struct structure_type27745 *a28433; /* Y */ struct w49 a28435; /* TS */ struct w49 a28436; /* WS */ struct structure_type27501 *a28494; /* R */ struct structure_type27745 *a28495; /* Y */ struct w49 a28504; /* T1 */ struct w49 a28505; /* W1 */ struct structure_type27501 *a28547; /* R */ struct structure_type27745 *a28548; /* Y */ struct w49 a28557; /* T1 */ struct w49 a28558; /* W1 */ struct structure_type27501 *a28592; /* R */ struct structure_type27745 *a28593; /* Y */ struct w49 a28602; /* T1 */ struct w49 a28603; /* W1 */ struct structure_type27501 *a28645; /* R */ struct structure_type27745 *a28646; /* Y */ struct w49 a28648; /* TS */ struct w49 a28649; /* WS */ struct w49 a28655; /* T1 */ struct w49 a28656; /* W1 */ struct structure_type27501 *a28704; /* R */ struct structure_type27745 *a28705; /* Y */ struct w49 a28707; /* TS */ struct w49 a28708; /* WS */ struct w49 a28714; /* T1 */ struct w49 a28715; /* W1 */ struct structure_type27501 *a28763; /* R */ struct structure_type27745 *a28764; /* Y */ struct w49 a28766; /* TS */ struct w49 a28767; /* WS */ struct w49 a28773; /* T1 */ struct w49 a28774; /* W1 */ struct structure_type27501 *a28824; /* R */ struct structure_type27745 *a28825; /* Y */ struct w49 a28827; /* TS */ struct w49 a28828; /* WS */ struct w49 a28834; /* T1 */ struct w49 a28835; /* W1 */ struct structure_type27501 *a28885; /* R */ struct structure_type27745 *a28886; /* Y */ struct w49 a28888; /* TS */ struct w49 a28889; /* WS */ struct w49 a28895; /* T1 */ struct w49 a28896; /* W1 */ struct structure_type27501 *a28944; /* R */ struct structure_type27745 *a28945; /* Y */ struct w49 a28947; /* TS */ struct w49 a28948; /* WS */ struct w49 a28954; /* T1 */ struct w49 a28955; /* W1 */ struct structure_type27501 *a29000; /* R */ struct structure_type27745 *a29001; /* Y */ struct w49 a29010; /* T1 */ struct w49 a29011; /* W1 */ struct w49 a29012; /* T2 */ struct w49 a29013; /* W2 */ struct structure_type27501 *a29051; /* R */ struct structure_type27745 *a29052; /* Y */ struct w49 a29061; /* T1 */ struct w49 a29062; /* W1 */ struct w49 a29063; /* T2 */ struct w49 a29064; /* W2 */ struct structure_type27501 *a29102; /* R */ struct structure_type27745 *a29103; /* Y */ struct w49 a29112; /* T1 */ struct w49 a29113; /* W1 */ struct w49 a29114; /* T2 */ struct w49 a29115; /* W2 */ struct structure_type27501 *a29153; /* R */ struct structure_type27745 *a29154; /* Y */ struct w49 a29163; /* T1 */ struct w49 a29164; /* W1 */ struct w49 a29165; /* T2 */ struct w49 a29166; /* W2 */ struct structure_type27501 *a29199; /* R */ struct structure_type27745 *a29200; /* Y */ struct w49 a29209; /* T1 */ struct w49 a29210; /* W1 */ struct structure_type27501 *a29245; /* R */ struct structure_type27745 *a29246; /* Y */ struct w49 a29248; /* TS */ struct w49 a29249; /* WS */ struct w49 a29255; /* T1 */ struct w49 a29256; /* W1 */ struct structure_type27501 *a29297; /* R */ struct structure_type27745 *a29298; /* Y */ struct w49 a29300; /* TS */ struct w49 a29301; /* WS */ struct w49 a29307; /* T1 */ struct w49 a29308; /* W1 */ struct structure_type27501 *a29349; /* R */ struct structure_type27745 *a29350; /* Y */ struct w49 a29352; /* TS */ struct w49 a29353; /* WS */ struct w49 a29359; /* T1 */ struct w49 a29360; /* W1 */ struct structure_type27501 *a29401; /* R */ struct structure_type27745 *a29402; /* Y */ struct w49 a29411; /* T1 */ struct w49 a29412; /* W1 */ struct structure_type27501 *a29447; /* R */ struct structure_type27745 *a29448; /* Y */ struct w49 a29457; /* T1 */ struct w49 a29458; /* W1 */ struct structure_type27501 *a29493; /* R */ struct structure_type27745 *a29494; /* Y */ struct w49 a29503; /* T1 */ struct w49 a29504; /* W1 */ struct structure_type27501 *a29539; /* R */ struct structure_type27745 *a29540; /* Y */ struct w49 a29549; /* T1 */ struct w49 a29550; /* W1 */ struct structure_type27501 *a29583; /* R */ struct structure_type27745 *a29584; /* Y */ struct w49 a29593; /* T1 */ struct w49 a29594; /* W1 */ struct structure_type27501 *a29627; /* R */ struct structure_type27745 *a29628; /* Y */ struct w49 a29637; /* T1 */ struct w49 a29638; /* W1 */ struct structure_type27501 *a29671; /* R */ struct structure_type27745 *a29672; /* Y */ struct w49 a29681; /* T1 */ struct w49 a29682; /* W1 */ struct structure_type27501 *a29715; /* R */ struct structure_type27745 *a29716; /* Y */ struct w49 a29725; /* T1 */ struct w49 a29726; /* W1 */ struct structure_type27501 *a29759; /* R */ struct structure_type27745 *a29760; /* Y */ struct w49 a29769; /* T1 */ struct w49 a29770; /* W1 */ struct structure_type27501 *a29803; /* R */ struct structure_type27745 *a29804; /* Y */ struct w49 a29813; /* T1 */ struct w49 a29814; /* W1 */ struct structure_type27501 *a29847; /* R */ struct structure_type27745 *a29848; /* Y */ struct w49 a29857; /* T1 */ struct w49 a29858; /* W1 */ struct structure_type27501 *a29893; /* R */ struct structure_type27745 *a29894; /* Y */ struct w49 a29897; /* WS */ struct w49 a29903; /* T1 */ struct w49 a29904; /* W1 */ struct w49 a29905; /* T2 */ struct w49 a29906; /* W2 */ struct structure_type27501 *a29941; /* R */ struct structure_type27745 *a29942; /* Y */ struct w49 a29951; /* T1 */ struct w49 a29952; /* W1 */ struct structure_type27501 *a29987; /* R */ struct structure_type27745 *a29988; /* Y */ struct w49 a29997; /* T1 */ struct w49 a29998; /* W1 */ struct w49 a29999; /* T2 */ struct w49 a30000; /* W2 */ struct structure_type27501 *a30035; /* R */ struct structure_type27745 *a30036; /* Y */ struct w49 a30045; /* T1 */ struct w49 a30046; /* W1 */ struct structure_type27501 *a30079; /* R */ struct structure_type27745 *a30080; /* Y */ struct w49 a30089; /* T1 */ struct w49 a30090; /* W1 */ struct p15827 *a30133; /* COMPILE-TYPE-PREDICATE */ struct structure_type27501 *a30168; /* R */ struct structure_type27745 *a30169; /* Y */ struct w49 a30178; /* T1 */ struct w49 a30179; /* W1 */ struct structure_type27501 *a30212; /* R */ struct structure_type27745 *a30213; /* Y */ struct w49 a30222; /* T1 */ struct w49 a30223; /* W1 */ struct p15827 *a30266; /* COMPILE-TYPE-PREDICATE */ struct structure_type27501 *a30303; /* R */ struct structure_type27745 *a30304; /* Y */ struct w49 a30307; /* WS */ struct w49 a30313; /* T1 */ struct w49 a30314; /* W1 */ struct w49 a30315; /* T2 */ struct w49 a30316; /* W2 */ struct w49 a30331; /* W */ struct w49 a30332; /* C */ struct structure_type27501 *a30371; /* R */ struct structure_type27745 *a30372; /* Y */ struct w49 a30374; /* TS */ struct w49 a30375; /* WS */ struct structure_type27501 *a30426; /* R */ struct structure_type27745 *a30427; /* Y */ struct w49 a30436; /* T1 */ struct w49 a30437; /* W1 */ struct structure_type27501 *a30473; /* R */ struct structure_type27745 *a30474; /* Y */ struct w49 a30483; /* T1 */ struct w49 a30484; /* W1 */ struct w49 a30485; /* T2 */ struct w49 a30486; /* W2 */ struct structure_type27501 *a30521; /* R */ struct structure_type27745 *a30522; /* Y */ struct w49 a30531; /* T1 */ struct w49 a30532; /* W1 */ struct w49 a30533; /* T2 */ struct w49 a30534; /* W2 */ struct w49 a30535; /* T3 */ struct w49 a30536; /* W3 */ struct p15827 *a30579; /* COMPILE-TYPE-PREDICATE */ struct structure_type27501 *a30623; /* R */ struct structure_type27745 *a30624; /* Y */ struct w49 a30627; /* WS */ struct w49 a30633; /* T1 */ struct w49 a30634; /* W1 */ struct w49 a30635; /* T2 */ struct w49 a30636; /* W2 */ struct w49 a30645; /* C */ struct w49 a30646; /* W */ struct w49 a30647; /* U */ struct structure_type27501 *a30685; /* R */ struct structure_type27745 *a30686; /* Y */ struct w49 a30695; /* T1 */ struct w49 a30696; /* W1 */ struct w49 a30697; /* T2 */ struct w49 a30698; /* W2 */ struct w49 a30699; /* T3 */ struct w49 a30700; /* W3 */ struct w49 a30701; /* W */ struct structure_type27501 *a30745; /* R */ struct structure_type27745 *a30746; /* Y */ struct w49 a30748; /* TS */ struct w49 a30749; /* WS */ struct w49 a30761; /* C */ struct w49 a30762; /* W */ struct w49 a30763; /* U */ struct structure_type27501 *a30794; /* R */ struct structure_type27745 *a30795; /* Y */ struct w49 a30804; /* T1 */ struct w49 a30805; /* W1 */ struct structure_type27501 *a30844; /* R */ struct structure_type27745 *a30845; /* Y */ struct w49 a30854; /* T1 */ struct w49 a30855; /* W1 */ struct w49 a30856; /* T2 */ struct w49 a30857; /* W2 */ struct structure_type27501 *a30895; /* R */ struct structure_type27745 *a30896; /* Y */ struct w49 a30905; /* T1 */ struct w49 a30906; /* W1 */ struct w49 a30907; /* T2 */ struct w49 a30908; /* W2 */ struct w49 a30909; /* T3 */ struct w49 a30910; /* W3 */ struct p15827 *a30951; /* COMPILE-TYPE-PREDICATE */ struct structure_type27501 *a30994; /* R */ struct structure_type27745 *a30995; /* Y */ struct w49 a30997; /* TS */ struct w49 a30998; /* WS */ struct w49 a31002; /* T0 */ struct w49 a31003; /* W0 */ struct w49 a31004; /* T1 */ struct w49 a31005; /* W1 */ struct structure_type27501 *a31049; /* R */ struct structure_type27745 *a31050; /* Y */ struct w49 a31057; /* T0 */ struct w49 a31058; /* W0 */ struct w49 a31059; /* T1 */ struct w49 a31060; /* W1 */ struct w49 a31065; /* W */ struct p15827 *a31126; /* COMPILE-TYPE-PREDICATE */ struct p15827 *a31171; /* COMPILE-TYPE-PREDICATE */ struct structure_type27501 *a31206; /* R */ struct structure_type27745 *a31207; /* Y */ struct w49 a31216; /* T1 */ struct w49 a31217; /* W1 */ struct structure_type27501 *a31253; /* R */ struct structure_type27745 *a31254; /* Y */ struct w49 a31263; /* T1 */ struct w49 a31264; /* W1 */ struct structure_type27501 *a31300; /* R */ struct structure_type27745 *a31301; /* Y */ struct w49 a31310; /* T1 */ struct w49 a31311; /* W1 */ struct structure_type27501 *a31344; /* R */ struct structure_type27745 *a31345; /* Y */ struct w49 a31354; /* T1 */ struct w49 a31355; /* W1 */ struct structure_type27501 *a31389; /* R */ struct structure_type27745 *a31390; /* Y */ struct w49 a31399; /* T1 */ struct w49 a31400; /* W1 */ struct structure_type27501 *a31434; /* R */ struct structure_type27745 *a31435; /* Y */ struct w49 a31444; /* T1 */ struct w49 a31445; /* W1 */ struct p15827 *a31488; /* COMPILE-TYPE-PREDICATE */ struct structure_type27501 *a31524; /* R */ struct structure_type27745 *a31525; /* Y */ struct w49 a31534; /* T1 */ struct w49 a31535; /* W1 */ struct structure_type27501 *a31567; /* R */ struct structure_type27501 *a31608; /* R */ struct structure_type27501 *a31651; /* R */ struct structure_type27745 *a31652; /* Y */ struct w49 a31661; /* T1 */ struct w49 a31662; /* W1 */ struct w49 a31663; /* T2 */ struct w49 a31664; /* W2 */ struct structure_type27501 *a31697; /* R */ struct structure_type27745 *a31698; /* Y */ struct w49 a31707; /* T1 */ struct w49 a31708; /* W1 */ struct p15827 *a31751; /* COMPILE-TYPE-PREDICATE */ struct structure_type27501 *a31786; /* R */ struct structure_type27745 *a31787; /* Y */ struct w49 a31796; /* T1 */ struct w49 a31797; /* W1 */ struct structure_type27501 *a31830; /* R */ struct structure_type27745 *a31831; /* Y */ struct w49 a31840; /* T1 */ struct w49 a31841; /* W1 */ struct structure_type27501 *a31874; /* R */ struct structure_type27745 *a31875; /* Y */ struct w49 a31884; /* T1 */ struct w49 a31885; /* W1 */ struct structure_type27501 *a31918; /* R */ struct structure_type27745 *a31919; /* Y */ struct w49 a31928; /* T1 */ struct w49 a31929; /* W1 */ struct structure_type27501 *a31961; /* R */ struct structure_type27501 *a32002; /* R */ struct structure_type27501 *a32043; /* R */ struct structure_type27501 *a32086; /* R */ struct structure_type27745 *a32087; /* Y */ struct w49 a32096; /* T1 */ struct w49 a32097; /* W1 */ struct structure_type27501 *a32132; /* R */ struct structure_type27745 *a32133; /* Y */ struct w49 a32140; /* T0 */ struct w49 a32141; /* W0 */ struct w49 a32142; /* T1 */ struct w49 a32143; /* W1 */ struct w49 a32144; /* T2 */ struct w49 a32145; /* W2 */ struct structure_type27501 *a32181; /* R */ struct structure_type27745 *a32182; /* Y */ struct w49 a32189; /* T0 */ struct w49 a32190; /* W0 */ struct w49 a32191; /* T1 */ struct w49 a32192; /* W1 */ struct structure_type24753 *a35100; /* OBJS */ struct structure_type24753 *a35104; /* OBJS */ struct w49 a35384; /* PAIR */ struct w49 a35385; /* PAIR */ struct w16638 a35410; /* PAIR */ struct w16638 a35411; /* PAIR */ struct w16638 a35412; /* PAIR */ struct w16638 a35413; /* PAIR */ struct w49 a35414; /* PAIR */ struct w49 a35415; /* PAIR */ struct w16638 a35416; /* PAIR */ struct w49 a35417; /* PAIR */ struct w49 a35429; /* PAIR */ struct w49 a35442; /* PAIR */ struct w49 a35443; /* PAIR */ struct w9296 a35895; /* PAIR */ struct w49 a35898; /* PAIR */ struct w49 a35899; /* PAIR */ struct w49 a35910; /* PAIR */ struct w49 a35911; /* PAIR */ struct w49 a35912; /* PAIR */ struct w49 a35916; /* PAIR */ struct w49 a35917; /* PAIR */ struct structure_type27745 *a36411; /* S */ struct structure_type27745 *a36412; /* S */ struct structure_type27745 *a36413; /* S */ struct structure_type27745 *a36420; /* S */ struct structure_type27745 *a36421; /* S */ struct structure_type27745 *a36422; /* S */ struct structure_type27745 *a36424; /* S */ struct structure_type27745 *a36425; /* S */ struct structure_type27745 *a36431; /* S */ struct structure_type27745 *a36432; /* S */ struct structure_type27745 *a36433; /* S */ struct structure_type27745 *a36434; /* S */ struct structure_type27745 *a36435; /* S */ struct structure_type27745 *a36436; /* S */ struct structure_type27745 *a36441; /* S */ struct w49 a36670; /* S */ struct w49 a36671; /* S */ struct w49 a36672; /* S */ struct w49 a36842; /* S */ struct w49 a37652; /* S */ struct w49 a37653; /* S */ struct w49 a37822; /* S */ struct w49 a37823; /* S */ struct w49 a37824; /* S */ struct w49 a37825; /* S */ struct w49 a37826; /* S */ struct w49 a37827; /* S */ struct w49 a37828; /* S */ struct w49 a37868; /* OBJ */ struct w49 a37922; /* S */ struct w49 a37949; /* OBJ */ struct w49 a38068; /* OBJ */ struct w49 a38069; /* OBJ */ struct w49 a38165; /* S */ struct w49 a38167; /* S */ struct w49 a38169; /* S */ struct w49 a38182; /* S */ struct w49 a38206; /* OBJ */ struct structure_type27501 *a38384; /* S */ struct structure_type27501 *a38385; /* S */ struct structure_type27501 *a38386; /* S */ struct structure_type27501 *a38391; /* S */ struct structure_type27501 *a38411; /* S */ struct structure_type27501 *a38412; /* S */ struct structure_type27501 *a38413; /* S */ struct structure_type27501 *a38414; /* S */ struct structure_type27501 *a38415; /* S */ struct structure_type27501 *a38416; /* S */ struct structure_type27501 *a38419; /* S */ struct structure_type27501 *a38422; /* S */ struct structure_type27501 *a38423; /* S */ struct w49 a38489; /* S */ struct w49 a38490; /* S */ struct w49 a38626; /* S */ struct w49 a38627; /* S */ struct w49 a38628; /* S */ struct w49 a38629; /* S */ struct w6852 a39202; /* S */ struct w6852 a39203; /* S */ struct w6852 a39204; /* S */ struct w6852 a39205; /* S */ struct w49 a39425; /* S */ struct w49 a39426; /* S */ struct w49 a39427; /* S */ struct w49 a39897; /* S */ struct w49 a39898; /* S */ struct w49 a39899; /* S */ struct w49 a40051; /* S */ struct w49 a40283; /* S */ struct w49 a40284; /* S */ struct structure_type24753 *a41274; /* C */ struct structure_type24753 *a41810; /* CS */ struct structure_type24753 *a41819; /* CS */ struct structure_type24753 *a41823; /* CS */ struct structure_type24753 *a41828; /* CS */ struct structure_type24753 *a41829; /* CS */ struct structure_type24753 *a41830; /* CS */ struct structure_type24753 *a41832; /* CS */ struct structure_type24753 *a41838; /* CS */ struct structure_type24753 *a41839; /* CS */ struct structure_type24753 *a41840; /* CS */ struct structure_type24753 *a41841; /* CS */ struct structure_type24753 *a41842; /* CS */ struct structure_type24753 *a41843; /* CS */ struct structure_type24753 *a41844; /* CS */ struct structure_type24753 *a41845; /* CS */ struct structure_type24753 *a41846; /* CS */ struct structure_type24753 *a41847; /* CS */ struct structure_type24753 *a41851; /* CS */ struct structure_type24753 *a41852; /* CS */ struct structure_type24753 *a41853; /* CS */ struct structure_type24753 *a41874; /* CS */ struct structure_type24753 *a41875; /* CS */ struct structure_type24753 *a42012; /* CS */ struct structure_type24753 *a42013; /* CS */ struct structure_type24753 *a42014; /* CS */ struct w49 t37330; struct w49 t37331; struct w49 t37332; struct w49 t37333; struct w49 t37334; struct w49 t37335; struct w49 t37336; struct w49 t37337; char *t37338; struct p15827 *t37339; struct p15827 *t37340; struct w49 t37341; struct w49 t37342; struct w49 t37343; struct structure_type27745 *t37344; struct w49 t37345; struct w49 t37346; struct w49 t37347; struct structure_type24753 *t37348; struct structure_type24753 *t37349; struct w49 t37350; struct w49 t37351; struct structure_type27501 *t37352; struct w49 t37353; struct w49 t37354; struct w12218 t37355; struct w49 t37356; struct w49 t37357; struct w49 t37358; struct w49 t37359; struct w49 t37360; struct w49 t37361; struct w49 t37362; struct w49 t37363; struct w49 t37364; struct structure_type24753 *t37365; struct w49 t37366; struct structure_type27501 *t37367; struct w49 t37368; struct w49 t37369; struct w49 t37370; struct w49 t37371; struct w49 t37372; struct w49 t37373; struct w49 t37374; struct structure_type24753 *t37375; char *t37376; char *t37377; struct structure_type24753 *t37378; char *t37379; struct w61020 t37380; struct structure_type24753 *t37381; struct w49 t37382; char *t37383; struct w49 t37384; struct w49 t37385; struct w49 t37386; struct structure_type24753 *t37387; struct w49 t37388; struct w49 t37389; struct w49 t37390; struct w49 t37391; struct w61020 t37392; struct structure_type24753 *t37393; struct w49 t37394; struct w49 t37395; struct w12218 t37396; struct w49 t37397; struct w49 t37398; struct w49 t37399; struct w49 t37400; struct w49 t37401; struct w49 t37402; struct w12218 t37403; struct w49 t37404; struct w49 t37405; struct w49 t37406; struct w49 t37407; struct structure_type24753 *t37408; struct w12563 t37409; struct structure_type24753 *t37410; struct w49 t37411; struct w49 t37412; struct w49 t37413; struct structure_type27745 *t37414; struct w49 t37415; struct w49 t37416; struct w49 t37417; struct w49 t37418; struct structure_type27745 *t37419; struct w49 t37420; struct w49 t37421; struct w49 t37422; struct w49 t37423; struct w49 t37424; struct w211235 t37425; struct structure_type27745 *t37426; char *t37427; struct w6315 t37428; struct p15827 *t37429; struct p15827 *t37430; struct w49 t37431; struct w49 t37432; struct w228345 t37433; struct w49 t37434; struct structure_type24753 *t37435; struct p15827 *t37436; struct structure_type27501 *t37437; struct structure_type27745 *t37438; struct w49 t37439; struct w49 t37440; struct w49 t37441; struct p15766 *t37442; struct w49 t37443; struct w49 t37444; struct p15767 *t37445; struct w49 t37446; struct w49 t37447; struct w49 t37448; struct p15767 *t37449; struct p15767 *t37450; struct w49 t37451; struct w49 t37452; struct structure_type27745 *t37453; struct w49 t37454; struct w49 t37455; struct w49 t37456; struct structure_type27745 *t37457; struct w49 t37458; struct w49 t37459; struct w49 t37460; char *t37461; struct structure_type27745 *t37462; struct w49 t37463; unsigned t37464; struct structure_type24753 *t37465; struct w49 t37466; struct w211235 t37467; struct structure_type27745 *t37468; char *t37469; struct w6315 t37470; struct p15827 *t37471; struct p15827 *t37472; struct p15827 *t37474; struct w49 t37475; struct p15827 *t37476; struct w6852 t37477; struct p15827 *t37478; struct structure_type24753 *t37479; struct p15827 *t37480; struct w49 t37481; struct w49 t37482; struct structure_type27745 *t37483; struct w49 t37484; struct w49 t37485; struct w49 t37486; struct w49 t37487; struct p15827 *t37488; struct p15827 *t37489; struct w12224 t37490; struct p15827 *t37491; struct structure_type24753 *t37492; struct p15827 *t37493; struct w49 t37494; struct w49 t37495; struct structure_type24753 *t37496; struct w49 t37497; struct w49 t37498; struct w49 t37499; struct structure_type27745 *t37500; struct w49 t37501; struct w49 t37502; struct w49 t37503; struct w49 t37504; struct w12224 t37505; struct structure_type24753 *t37506; struct w142334 t37507; struct w49 t37508; struct w6852 t37509; struct w6852 t37510; struct w49 t37511; struct w49 t37512; struct structure_type24753 *t37513; struct w49 t37514; struct structure_type24753 *t37515; struct w49 t37516; struct w49 t37517; struct structure_type24753 *t37518; struct w49 t37519; struct w49 t37520; struct w49 t37521; struct w49 t37522; struct w49 t37523; struct structure_type27745 *t37524; struct structure_type27745 *t37525; struct structure_type27501 *t37526; struct w12218 t37527; struct structure_type24753 *t37528; struct structure_type24753 *t37529; struct structure_type27501 *t37530; struct w12218 t37531; struct structure_type27501 *t37532; struct w12218 t37533; struct w49 t37534; struct w49 t37535; struct structure_type27501 *t37536; struct structure_type27501 *t37537; struct w49 t37538; struct p15827 *t37539; struct w60864 t37540; struct w49 t37541; struct w49 t37542; struct structure_type24753 *t37543; struct w49 t37544; struct w49 t37545; struct structure_type27501 *t37546; struct structure_type24753 *t37547; struct w49 t37548; struct structure_type27501 *t37549; struct w49 t37550; struct w60864 t37551; struct w49 t37552; struct w49 t37553; struct w49 t37554; struct structure_type27501 *t37555; struct w60864 t37556; struct w49 t37557; struct w12218 t37558; struct w49 t37559; struct w49 t37560; struct w49 t37561; struct w49 t37562; struct structure_type27501 *t37563; struct w12218 t37564; struct structure_type27501 *t37565; struct w49 t37566; struct structure_type27501 *t37567; struct structure_type24753 *t37568; struct w49 t37569; struct w49 t37570; struct w49 t37571; struct w49 t37572; struct structure_type24753 *t37573; struct w49 t37574; struct w49 t37575; struct structure_type27501 *t37576; struct structure_type24753 *t37577; struct w49 t37578; struct structure_type27501 *t37579; struct w49 t37580; struct structure_type27501 *t37581; struct w12218 t37582; struct w49 t37583; struct structure_type24753 *t37584; struct w12224 t37585; struct w49 t37586; struct w12224 t37587; struct w49 t37588; struct structure_type24753 *t37589; struct w49 t37590; struct w12224 t37591; struct w49 t37592; struct w12224 t37593; struct w49 t37594; struct w49 t37595; struct w49 t37596; struct w49 t37597; struct w49 t37598; struct w211225 t37599; struct w49 t37600; struct structure_type24753 *t37601; struct w49 t37602; struct w49 t37603; struct structure_type24753 *t37604; struct w36270 t37605; struct w49 t37606; struct structure_type24753 *t37607; struct structure_type24753 *t37608; struct w49 t37609; struct w49 t37610; struct structure_type24753 *t37611; struct w49 t37612; struct w49 t37613; struct w36270 t37614; struct w49 t37615; struct structure_type24753 *t37616; struct w49 t37617; struct p15827 *t37618; struct p15827 *t37619; struct structure_type24753 *t37620; struct p15827 *t37621; struct w61020 t37622; struct w49 t37623; struct w49 t37624; struct structure_type24753 *t37625; struct w49 t37626; struct w49 t37627; struct w49 t37628; struct w49 t37629; struct structure_type24753 *t37630; struct w49 t37631; struct w49 t37632; struct structure_type24753 *t37633; struct w49 t37634; struct w49 t37635; struct w49 t37636; struct w49 t37637; struct w49 t37638; struct structure_type27745 *t37639; struct w49 t37640; struct w49 t37641; struct w49 t37642; struct w49 t37643; struct structure_type24753 *t37644; struct w142334 t37645; struct w49 t37646; struct w6852 t37647; struct w6852 t37648; struct w49 t37649; struct w49 t37650; struct structure_type24753 *t37651; struct w49 t37652; struct structure_type24753 *t37653; struct w49 t37654; struct w49 t37655; struct structure_type24753 *t37656; struct w49 t37657; struct structure_type27501 *t37658; struct w12218 t37659; struct structure_type27501 *t37660; struct w12218 t37661; struct structure_type27501 *t37662; struct w12218 t37663; struct w49 t37664; struct w49 t37665; struct structure_type27501 *t37666; struct structure_type27501 *t37667; struct w49 t37668; struct p15827 *t37669; struct w60864 t37670; struct w49 t37671; struct w49 t37672; struct structure_type24753 *t37673; struct w49 t37674; struct w49 t37675; struct structure_type27501 *t37676; struct structure_type24753 *t37677; struct w49 t37678; struct structure_type27501 *t37679; struct w49 t37680; struct w60864 t37681; struct w49 t37682; struct w49 t37683; struct w49 t37684; struct structure_type27501 *t37685; struct w60864 t37686; struct w49 t37687; struct w12218 t37688; struct w49 t37689; struct w49 t37690; struct w49 t37691; struct w49 t37692; struct structure_type27501 *t37693; struct w12218 t37694; struct structure_type27501 *t37695; struct w49 t37696; struct structure_type27501 *t37697; struct structure_type24753 *t37698; struct w49 t37699; struct w49 t37700; struct w49 t37701; struct w49 t37702; struct structure_type24753 *t37703; struct w49 t37704; struct w49 t37705; struct structure_type27501 *t37706; struct structure_type24753 *t37707; struct w49 t37708; struct structure_type27501 *t37709; struct w49 t37710; struct structure_type27501 *t37711; struct w12218 t37712; struct structure_type24753 *t37713; struct w49 t37714; struct w12224 t37715; struct w49 t37716; struct p15827 *t37717; struct w61020 t37718; struct w49 t37719; struct w49 t37720; struct structure_type24753 *t37721; struct w49 t37722; struct w49 t37723; struct w49 t37724; struct w49 t37725; struct structure_type24753 *t37726; struct w49 t37727; struct w49 t37728; struct structure_type24753 *t37729; struct w49 t37730; struct w49 t37731; struct w49 t37732; struct w49 t37733; struct w49 t37734; struct structure_type27745 *t37735; struct w49 t37736; struct w49 t37737; struct w49 t37738; struct w49 t37739; struct structure_type24753 *t37740; struct w142334 t37741; struct w49 t37742; struct w61020 t37743; struct w49 t37744; struct w49 t37745; struct structure_type24753 *t37746; struct w49 t37747; struct w49 t37748; struct w49 t37749; struct w49 t37750; struct w49 t37751; struct w49 t37752; struct structure_type24753 *t37753; struct structure_type24753 *t37754; struct w49 t37755; struct structure_type24753 *t37756; struct w49 t37757; struct w49 t37758; struct w49 t37759; struct w49 t37760; struct structure_type24753 *t37761; struct w49 t37762; struct w49 t37763; struct w49 t37764; struct w49 t37765; struct w49 t37766; struct structure_type27501 *t37767; struct w49 t37768; struct w6852 t37769; struct w6852 t37770; struct w49 t37771; struct w49 t37772; struct w49 t37773; struct structure_type24753 *t37774; struct w49 t37775; struct w49 t37776; struct w49 t37777; struct structure_type27501 *t37778; struct w49 t37779; struct structure_type27501 *t37780; struct w6852 t37781; struct w6852 t37782; struct w49 t37783; struct structure_type27501 *t37784; struct w12218 t37785; struct p15827 *t37786; struct w61020 t37787; struct w49 t37788; struct structure_type24753 *t37789; struct structure_type24753 *t37790; struct w49 t37791; struct w49 t37792; struct w49 t37793; struct w49 t37794; struct structure_type24753 *t37795; struct w49 t37796; struct w49 t37797; struct structure_type24753 *t37798; struct w49 t37799; struct w49 t37800; struct w49 t37801; struct w49 t37802; struct w49 t37803; struct structure_type27745 *t37804; struct w49 t37805; struct w49 t37806; struct w49 t37807; struct w49 t37808; struct structure_type24753 *t37809; struct w142334 t37810; struct structure_type24753 *t37811; struct w12563 t37812; struct w49 t37813; struct p15827 *t37814; struct structure_type27501 *t37815; struct w12218 t37816; struct w49 t37817; struct w49 t37818; struct w49 t37819; struct w49 t37820; struct structure_type27745 *t37821; struct structure_type27745 *t37822; struct w49 t37823; struct w49 t37824; struct structure_type27745 *t37825; struct structure_type27745 *t37826; struct p15827 *t37827; struct p15827 *t37828; struct w49 t37829; struct w228345 t37830; struct w49 t37831; struct structure_type24753 *t37832; unsigned t37833; struct structure_type27501 *t37834; struct structure_type27745 *t37835; struct w49 t37836; struct w49 t37837; struct w49 t37838; struct p15827 *t37841; struct w49 t37842; struct w49 t37843; struct w49 t37844; struct w49 t37845; struct w49 t37846; struct w49 t37847; struct w49 t37848; struct w49 t37849; struct p18144 *t37850; struct p18144 *t37851; struct structure_type24753 *t37852; struct w49 t37853; struct structure_type24753 *t37854; struct w49 t37855; struct structure_type24753 *t37856; struct w49 t37857; struct w49 t37858; struct w49 t37859; struct w49 t37860; char *t37861; struct structure_type24753 *t37862; struct w61020 t37863; struct structure_type24753 *t37864; struct structure_type24753 *t37865; struct w49 t37866; struct structure_type24753 *t37867; struct w49 t37868; struct structure_type27745 *t37869; struct structure_type27745 *t37870; struct w49 t37871; unsigned t37872; struct w49 t37873; struct structure_type27501 *t37874; struct w49 t37875; struct p18144 *t37876; struct p18144 *t37877; struct structure_type27650 *t37878; struct structure_type27745 *t37879; struct w12224 t37880; struct w49 t37881; struct structure_type27745 *t37882; char *t37883; struct structure_type27745 *t37884; char *t37885; struct structure_type27745 *t37886; struct w49 t37887; unsigned t37888; struct structure_type24753 *t37889; char *t37890; struct structure_type24753 *t37891; struct w61020 t37892; struct structure_type24753 *t37893; struct structure_type24753 *t37894; struct w49 t37895; struct structure_type24753 *t37896; struct w49 t37897; struct structure_type27745 *t37898; struct structure_type27745 *t37899; struct structure_type27501 *t37900; struct w12218 t37901; char *t37902; struct w49 t37903; struct structure_type27745 *t37904; struct w49 t37905; struct p18144 *t37906; struct structure_type27745 *t37907; char *t37908; struct w6315 t37909; struct structure_type24753 *t37910; struct w49 t37911; char *t37912; struct structure_type24753 *t37913; char *t37914; char *t37915; struct structure_type24753 *t37916; struct w49 t37917; struct w49 t37918; struct w49 t37919; struct w49 t37920; struct w49 t37921; struct structure_type27745 *t37922; struct structure_type27745 *t37923; struct p18129 *t37924; struct p18129 *t37925; struct w49 t37926; struct structure_type24753 *t37927; struct structure_type24753 *t37928; char *t37929; struct structure_type24753 *t37930; struct structure_type24753 *t37931; struct w49 t37932; struct structure_type24753 *t37933; struct w49 t37934; struct structure_type24753 *t37935; struct w49 t37936; struct w49 t37937; struct w49 t37938; struct w49 t37939; struct w49 t37940; struct w49 t37941; struct w49 t37942; char *t37943; struct w49 t37944; struct w49 t37945; struct w49 t37946; struct structure_type24753 *t37947; struct structure_type24753 *t37948; struct w49 t37949; struct w49 t37950; struct w49 t37951; unsigned t37952; struct w49 t37953; struct structure_type27501 *t37954; struct w49 t37955; struct p18129 *t37956; struct p18129 *t37957; struct structure_type27650 *t37958; struct structure_type27745 *t37959; struct w12224 t37960; struct w49 t37961; struct structure_type27745 *t37962; char *t37963; struct structure_type27745 *t37964; struct structure_type27501 *t37965; char *t37966; struct structure_type27745 *t37967; struct w49 t37968; unsigned t37969; struct structure_type24753 *t37970; char *t37971; struct w49 t37972; char *t37973; struct w49 t37974; struct w49 t37975; unsigned t37976; struct w49 t37977; struct structure_type27501 *t37978; struct w49 t37979; struct p18129 *t37980; struct p18129 *t37981; struct structure_type27650 *t37982; struct structure_type27745 *t37983; struct w12224 t37984; struct w49 t37985; struct structure_type27745 *t37986; char *t37987; struct structure_type27745 *t37988; struct structure_type27501 *t37989; char *t37990; struct structure_type27745 *t37991; struct w49 t37992; unsigned t37993; struct structure_type24753 *t37994; char *t37995; struct w49 t37996; struct structure_type27501 *t37997; struct w12218 t37998; char *t37999; struct w49 t38000; struct structure_type27745 *t38001; struct w49 t38002; struct p18129 *t38003; struct structure_type27745 *t38004; char *t38005; struct w6315 t38006; struct w49 t38007; struct structure_type27501 *t38008; struct w49 t38009; struct p18119 *t38010; struct p18119 *t38011; struct structure_type27501 *t38012; struct structure_type24753 *t38013; struct w49 t38014; unsigned t38015; struct w49 t38016; char *t38017; char *t38018; struct structure_type24753 *t38019; struct w49 t38020; struct w49 t38021; struct structure_type27501 *t38022; char *t38023; struct w49 t38024; unsigned t38025; char *t38026; struct w49 t38027; struct structure_type27501 *t38028; char *t38029; struct w49 t38030; unsigned t38031; char *t38032; struct w49 t38033; struct w49 t38034; struct structure_type27501 *t38035; struct w49 t38036; struct p18088 *t38037; struct p18088 *t38038; struct w49 t38039; struct structure_type27501 *t38040; struct w49 t38041; struct p18079 *t38042; struct p18079 *t38043; struct w49 t38044; struct structure_type27501 *t38045; struct w49 t38046; struct p18070 *t38047; struct p18070 *t38048; struct w49 t38049; struct structure_type27501 *t38050; struct w49 t38051; struct p18061 *t38052; struct p18061 *t38053; struct p15827 *t38054; struct p7717 *t38055; struct w49 t38056; struct structure_type27501 *t38057; struct w49 t38058; struct p18040 *t38059; struct p18040 *t38060; struct w49 t38061; struct structure_type27501 *t38062; struct w49 t38063; struct p18029 *t38064; struct p18029 *t38065; struct structure_type27501 *t38066; char *t38067; struct w49 t38068; unsigned t38069; char *t38070; struct w49 t38071; struct structure_type27501 *t38072; char *t38073; struct w49 t38074; unsigned t38075; char *t38076; struct w49 t38077; struct w49 t38078; struct structure_type27501 *t38079; struct w49 t38080; struct p18006 *t38081; struct p18006 *t38082; struct p15827 *t38083; struct p7717 *t38084; struct w49 t38085; struct structure_type27501 *t38086; struct w49 t38087; struct p17984 *t38088; struct p17984 *t38089; struct w49 t38090; struct structure_type27501 *t38091; struct w49 t38092; struct p17974 *t38093; struct p17974 *t38094; struct w49 t38095; struct structure_type27501 *t38096; struct w49 t38097; struct p17964 *t38098; struct p17964 *t38099; struct w49 t38100; struct structure_type27501 *t38101; struct w49 t38102; struct p17955 *t38103; struct p17955 *t38104; struct w49 t38105; struct structure_type27501 *t38106; struct w49 t38107; struct p17943 *t38108; struct p17943 *t38109; struct w49 t38110; struct structure_type27501 *t38111; struct w49 t38112; struct p17931 *t38113; struct p17931 *t38114; struct p15827 *t38115; struct p7717 *t38116; struct p15827 *t38117; struct p7717 *t38118; struct p17869 *t38119; struct w49 t38120; struct p17870 *t38121; struct w49 t38122; struct w61020 t38123; struct structure_type24753 *t38124; struct w49 t38125; struct w49 t38126; struct p17869 *t38127; struct w49 t38128; struct w211257 t38129; struct p17869 *t38130; unsigned t38131; struct w49 t38132; struct structure_type27501 *t38133; struct w49 t38134; struct p17869 *t38135; struct p17869 *t38136; struct structure_type24753 *t38137; struct structure_type27650 *t38138; struct structure_type27745 *t38139; struct w12224 t38140; struct w49 t38141; struct structure_type27650 *t38142; struct structure_type27858 *t38143; struct structure_type24753 *t38144; struct w49 t38145; struct structure_type27745 *t38146; struct structure_type27745 *t38147; struct structure_type27745 *t38148; char *t38149; struct structure_type27745 *t38150; struct p17870 *t38151; struct p17870 *t38152; unsigned t38153; struct w49 t38154; struct structure_type27501 *t38155; struct w49 t38156; struct p17870 *t38157; struct p17869 *t38158; struct structure_type24753 *t38159; struct structure_type27650 *t38160; struct structure_type27745 *t38161; struct w12224 t38162; struct w49 t38163; struct structure_type27650 *t38164; struct structure_type27858 *t38165; struct structure_type24753 *t38166; struct w49 t38167; struct structure_type27745 *t38168; struct structure_type27745 *t38169; struct structure_type27745 *t38170; char *t38171; struct structure_type27745 *t38172; char *t38173; struct w49 t38174; struct structure_type27501 *t38175; struct w12218 t38176; struct w49 t38177; struct p17870 *t38178; struct structure_type24753 *t38179; struct w49 t38180; struct structure_type24753 *t38181; char *t38182; struct w49 t38183; struct structure_type27745 *t38184; struct structure_type27745 *t38185; struct structure_type24753 *t38186; struct w49 t38187; struct w49 t38188; struct structure_type24753 *t38189; struct structure_type24753 *t38190; struct w49 t38191; struct w49 t38192; struct w49 t38193; struct structure_type27745 *t38194; struct structure_type27745 *t38195; struct p17869 *t38196; struct w49 t38197; struct w211257 t38198; struct structure_type24753 *t38199; struct structure_type24753 *t38200; struct w49 t38201; struct structure_type24753 *t38202; struct w49 t38203; struct structure_type27745 *t38204; struct structure_type27745 *t38205; struct structure_type27745 *t38206; struct w49 t38207; char *t38208; struct structure_type27501 *t38209; struct structure_type27501 *t38210; struct w49 t38211; unsigned t38212; struct w49 t38213; struct structure_type27501 *t38214; struct w49 t38215; struct p17839 *t38216; struct p17839 *t38217; struct w12224 t38218; struct w49 t38219; struct structure_type27745 *t38220; struct structure_type27745 *t38221; struct w49 t38222; struct w49 t38223; struct w49 t38224; struct w49 t38225; struct w49 t38226; struct w12224 t38227; struct w49 t38228; struct w49 t38229; struct w49 t38230; struct w49 t38231; struct structure_type27745 *t38232; char *t38233; struct structure_type27745 *t38234; char *t38235; struct structure_type27745 *t38236; struct w49 t38237; unsigned t38238; struct structure_type24753 *t38239; struct p15827 *t38240; struct p7717 *t38241; struct w49 t38242; struct structure_type27501 *t38243; struct w49 t38244; struct p17803 *t38245; struct p17803 *t38246; struct w49 t38247; struct structure_type27501 *t38248; struct w49 t38249; struct p17783 *t38250; struct p17783 *t38251; struct w49 t38252; struct structure_type27501 *t38253; struct w49 t38254; struct p17759 *t38255; struct p17759 *t38256; struct structure_type27501 *t38257; struct w12218 t38258; struct structure_type27501 *t38259; struct w12218 t38260; struct structure_type27501 *t38261; struct w12218 t38262; struct structure_type27501 *t38263; struct w12218 t38264; struct p17736 *t38265; struct p17736 *t38266; struct w49 t38267; struct p17741 *t38268; struct w49 t38269; struct p17742 *t38270; struct w49 t38271; struct p17743 *t38272; struct w49 t38273; struct w49 t38274; struct w49 t38275; struct structure_type24753 *t38276; struct w49 t38277; struct w49 t38278; struct w49 t38279; struct w49 t38280; struct w49 t38281; struct w49 t38282; char *t38283; struct structure_type27745 *t38284; struct w49 t38285; int t38286; struct w49 t38287; struct w49 t38288; struct w12224 t38289; struct w49 t38290; struct p17743 *t38291; int t38292; struct w227957 t38293; struct w49 t38294; struct w49 t38295; struct structure_type27501 *t38296; struct w12218 t38297; struct p17736 *t38298; struct w49 t38299; struct w211113 t38300; struct structure_type27501 *t38301; struct structure_type27501 *t38302; struct structure_type27501 *t38303; struct structure_type27501 *t38304; struct structure_type27501 *t38305; struct w12218 t38306; struct structure_type27501 *t38307; struct p17704 *t38308; struct w49 t38309; struct w49 t38310; struct structure_type27501 *t38311; struct w49 t38312; struct p17705 *t38313; struct p17704 *t38314; struct structure_type27501 *t38315; struct structure_type27501 *t38316; struct structure_type27501 *t38317; struct w12218 t38318; struct structure_type27501 *t38319; struct w12218 t38320; struct structure_type27501 *t38321; struct w12218 t38322; struct structure_type27501 *t38323; struct w12218 t38324; struct p17673 *t38325; struct p17673 *t38326; struct w49 t38327; struct p17684 *t38328; struct w49 t38329; struct p17685 *t38330; struct w49 t38331; struct p17686 *t38332; struct w49 t38333; struct structure_type27501 *t38334; struct w49 t38335; struct p17686 *t38336; struct p17673 *t38337; struct p17673 *t38338; struct w49 t38339; struct w211113 t38340; struct structure_type27501 *t38341; struct structure_type27501 *t38342; struct structure_type27501 *t38343; struct structure_type27501 *t38344; struct p17673 *t38345; struct w49 t38346; struct structure_type27501 *t38347; struct w49 t38348; struct p17673 *t38349; struct p17673 *t38350; struct p17673 *t38351; struct w49 t38352; struct structure_type27501 *t38353; struct w49 t38354; struct p17673 *t38355; struct p17673 *t38356; struct p17673 *t38357; struct w49 t38358; struct structure_type27501 *t38359; struct w49 t38360; struct p17673 *t38361; struct p15827 *t38362; struct p7717 *t38363; struct w49 t38364; struct structure_type27501 *t38365; struct w49 t38366; struct p17635 *t38367; struct p17635 *t38368; struct w49 t38369; struct structure_type27501 *t38370; struct w49 t38371; struct p17624 *t38372; struct p17624 *t38373; struct w49 t38374; struct structure_type27501 *t38375; struct w49 t38376; struct p17611 *t38377; struct p17611 *t38378; struct p17588 *t38379; struct w49 t38380; struct w49 t38381; struct p17588 *t38382; struct p17588 *t38383; struct structure_type27501 *t38384; struct w12218 t38385; struct structure_type27501 *t38386; struct w12218 t38387; struct structure_type27501 *t38388; struct w12218 t38389; struct structure_type27501 *t38390; struct w12218 t38391; struct p17554 *t38392; struct p17554 *t38393; struct w49 t38394; struct w49 t38395; struct w49 t38396; struct structure_type27501 *t38397; struct w49 t38398; struct p17571 *t38399; struct p17554 *t38400; struct structure_type27501 *t38401; struct structure_type27501 *t38402; struct structure_type27501 *t38403; struct structure_type27501 *t38404; struct p17554 *t38405; struct w49 t38406; struct structure_type27501 *t38407; struct w49 t38408; struct p17554 *t38409; struct p17554 *t38410; struct p17554 *t38411; struct w49 t38412; struct structure_type27501 *t38413; struct w49 t38414; struct p17554 *t38415; struct p17554 *t38416; struct p17554 *t38417; struct w49 t38418; struct structure_type27501 *t38419; struct w49 t38420; struct p17554 *t38421; struct p17554 *t38422; struct p15827 *t38423; struct p7717 *t38424; struct w49 t38425; struct structure_type27501 *t38426; struct w49 t38427; struct p17532 *t38428; struct p17532 *t38429; struct w49 t38430; struct structure_type27501 *t38431; struct w49 t38432; struct p17523 *t38433; struct p17523 *t38434; struct p15827 *t38435; struct p7717 *t38436; struct w49 t38437; struct structure_type27501 *t38438; struct w49 t38439; struct p17498 *t38440; struct p17498 *t38441; struct w49 t38442; struct structure_type27501 *t38443; struct w49 t38444; struct p17485 *t38445; struct p17485 *t38446; struct w49 t38447; struct structure_type27501 *t38448; struct w49 t38449; struct p17464 *t38450; struct p17464 *t38451; struct w49 t38452; struct structure_type27501 *t38453; struct w49 t38454; struct p17447 *t38455; struct p17447 *t38456; int t38457; int t38458; struct w49 t38459; struct w49 t38460; struct structure_type27501 *t38461; struct w49 t38462; struct p17425 *t38463; struct p17425 *t38464; struct w49 t38465; struct structure_type27501 *t38466; struct w49 t38467; struct p17425 *t38468; struct p17425 *t38469; struct w49 t38470; struct structure_type27501 *t38471; struct w49 t38472; struct p17412 *t38473; struct p17412 *t38474; struct w49 t38475; struct structure_type27501 *t38476; struct w49 t38477; struct p17400 *t38478; struct p17400 *t38479; struct w49 t38480; struct structure_type27501 *t38481; struct w49 t38482; struct p17388 *t38483; struct p17388 *t38484; struct w49 t38485; struct structure_type27501 *t38486; struct w49 t38487; struct p17376 *t38488; struct p17376 *t38489; struct w49 t38490; struct structure_type27501 *t38491; struct w49 t38492; struct p17364 *t38493; struct p17364 *t38494; struct w49 t38495; struct structure_type27501 *t38496; struct w49 t38497; struct p17352 *t38498; struct p17352 *t38499; struct w49 t38500; struct structure_type27501 *t38501; struct w49 t38502; struct p17340 *t38503; struct p17340 *t38504; struct w49 t38505; struct structure_type27501 *t38506; struct w49 t38507; struct p17327 *t38508; struct p17327 *t38509; struct w49 t38510; struct structure_type27501 *t38511; struct w49 t38512; struct p17308 *t38513; struct p17308 *t38514; struct w49 t38515; struct structure_type27501 *t38516; struct w49 t38517; struct p17289 *t38518; struct p17289 *t38519; struct w49 t38520; struct structure_type27501 *t38521; struct w49 t38522; struct p17270 *t38523; struct p17270 *t38524; struct w49 t38525; struct w49 t38526; struct w16638 t38527; struct w16638 t38528; struct p17250 *t38529; struct structure_type27501 *t38530; struct structure_type27745 *t38531; struct w49 t38532; struct w16638 t38533; char *t38534; struct p17250 *t38535; struct w49 t38536; struct structure_type27501 *t38537; struct w49 t38538; struct p17250 *t38539; struct p17250 *t38540; struct p17250 *t38541; struct structure_type27501 *t38542; char *t38543; struct w49 t38544; unsigned t38545; struct w49 t38546; struct w49 t38547; struct w16638 t38548; struct w16638 t38549; struct p17234 *t38550; struct structure_type27501 *t38551; struct structure_type27745 *t38552; struct w49 t38553; struct w16638 t38554; char *t38555; struct p17234 *t38556; struct w49 t38557; struct structure_type27501 *t38558; struct w49 t38559; struct p17234 *t38560; struct p17234 *t38561; struct p17234 *t38562; struct structure_type27501 *t38563; char *t38564; struct w49 t38565; unsigned t38566; struct w49 t38567; struct w49 t38568; struct w16638 t38569; struct w16638 t38570; struct p17218 *t38571; struct structure_type27501 *t38572; struct structure_type27745 *t38573; struct w49 t38574; struct w16638 t38575; char *t38576; struct p17218 *t38577; struct w49 t38578; struct structure_type27501 *t38579; struct w49 t38580; struct p17218 *t38581; struct p17218 *t38582; struct p17218 *t38583; struct structure_type27501 *t38584; struct structure_type24753 *t38585; struct w49 t38586; unsigned t38587; char *t38588; struct w49 t38589; struct w49 t38590; struct structure_type27501 *t38591; struct w49 t38592; struct p17207 *t38593; struct p17207 *t38594; struct w49 t38595; struct structure_type27501 *t38596; struct w49 t38597; struct p17182 *t38598; struct p17182 *t38599; struct w49 t38600; struct structure_type27501 *t38601; struct w49 t38602; struct p17149 *t38603; struct p17149 *t38604; struct w49 t38605; struct structure_type27501 *t38606; struct w49 t38607; struct p17116 *t38608; struct p17116 *t38609; struct w49 t38610; struct structure_type27501 *t38611; struct w49 t38612; struct p17083 *t38613; struct p17083 *t38614; struct w49 t38615; struct w49 t38616; struct w49 t38617; struct structure_type27501 *t38618; struct structure_type27745 *t38619; struct w49 t38620; struct w49 t38621; char *t38622; struct w49 t38623; struct structure_type27501 *t38624; struct w49 t38625; struct p17056 *t38626; struct p17056 *t38627; struct w49 t38628; struct w49 t38629; struct w49 t38630; struct structure_type27501 *t38631; struct structure_type27745 *t38632; struct w49 t38633; struct w49 t38634; struct p17017 *t38635; char *t38636; struct w49 t38637; struct structure_type27501 *t38638; struct w49 t38639; struct p17017 *t38640; struct p17017 *t38641; struct w49 t38642; struct w49 t38643; struct w16638 t38644; struct w16638 t38645; struct p16978 *t38646; struct structure_type27501 *t38647; struct structure_type27745 *t38648; struct w49 t38649; struct w16638 t38650; struct p16978 *t38651; char *t38652; struct p16978 *t38653; struct w49 t38654; struct structure_type27501 *t38655; struct w49 t38656; struct p16978 *t38657; struct p16978 *t38658; struct p16978 *t38659; struct structure_type27501 *t38660; char *t38661; struct w49 t38662; unsigned t38663; struct w49 t38664; struct w49 t38665; struct w16638 t38666; struct w16638 t38667; struct p16937 *t38668; struct structure_type27501 *t38669; struct structure_type27745 *t38670; struct w49 t38671; struct w16638 t38672; struct p16937 *t38673; char *t38674; struct p16937 *t38675; struct w49 t38676; struct structure_type27501 *t38677; struct w49 t38678; struct p16937 *t38679; struct p16937 *t38680; struct p16937 *t38681; struct structure_type27501 *t38682; char *t38683; struct w49 t38684; unsigned t38685; struct w49 t38686; struct w49 t38687; struct w49 t38688; struct structure_type27501 *t38689; struct structure_type27745 *t38690; struct w49 t38691; struct w49 t38692; char *t38693; struct w49 t38694; struct structure_type27501 *t38695; struct w49 t38696; struct p16907 *t38697; struct p16907 *t38698; struct w49 t38699; struct w49 t38700; struct w49 t38701; struct structure_type27501 *t38702; struct structure_type27745 *t38703; struct w49 t38704; struct w49 t38705; char *t38706; struct w49 t38707; struct structure_type27501 *t38708; struct w49 t38709; struct p16879 *t38710; struct p16879 *t38711; struct w49 t38712; struct structure_type27501 *t38713; struct w49 t38714; struct p16852 *t38715; struct p16852 *t38716; struct w49 t38717; struct structure_type27501 *t38718; struct w49 t38719; struct p16838 *t38720; struct p16838 *t38721; struct w49 t38722; struct structure_type27501 *t38723; struct w49 t38724; struct p16815 *t38725; struct p16815 *t38726; struct structure_type27501 *t38727; struct structure_type27745 *t38728; struct w49 t38729; struct w49 t38730; char *t38731; struct structure_type27501 *t38732; struct structure_type27745 *t38733; struct w49 t38734; struct w49 t38735; char *t38736; struct structure_type27501 *t38737; struct structure_type27745 *t38738; struct w49 t38739; struct w49 t38740; char *t38741; struct structure_type27501 *t38742; struct structure_type27745 *t38743; struct w49 t38744; struct w49 t38745; char *t38746; struct structure_type27501 *t38747; struct structure_type27745 *t38748; struct w49 t38749; struct w49 t38750; char *t38751; struct w49 t38752; struct structure_type27501 *t38753; struct w49 t38754; struct p16735 *t38755; struct p16735 *t38756; struct w49 t38757; struct structure_type27501 *t38758; struct w49 t38759; struct p16719 *t38760; struct p16719 *t38761; struct w49 t38762; struct structure_type27501 *t38763; struct w49 t38764; struct p16699 *t38765; struct w49 t38766; struct structure_type27501 *t38767; struct w49 t38768; struct p16677 *t38769; struct p15827 *t38770; struct p7717 *t38771; struct w49 t38772; struct structure_type27501 *t38773; struct w49 t38774; struct p16645 *t38775; struct p16645 *t38776; struct p16629 *t38777; struct w49 t38779; struct structure_type27501 *t38780; struct w49 t38781; struct p16629 *t38782; struct p16629 *t38783; struct structure_type27501 *t38784; struct structure_type27501 *t38785; struct p15827 *t38786; struct p7717 *t38787; struct p15827 *t38788; struct p7717 *t38789; struct p16486 *t38790; struct w12224 t38791; struct w12224 t38792; struct structure_type27745 *t38793; struct w49 t38794; struct w49 t38795; struct w211225 t38796; struct w49 t38797; struct w49 t38798; struct structure_type27745 *t38799; struct structure_type27745 *t38800; struct w49 t38801; struct w211225 t38802; struct w49 t38803; struct w49 t38804; struct w9296 t38805; struct w9296 t38806; struct w49 t38807; struct w49 t38808; struct w49 t38809; struct w49 t38810; struct structure_type27745 *t38811; struct structure_type27745 *t38812; char *t38813; char *t38814; struct w49 t38815; struct w49 t38816; struct structure_type27745 *t38817; struct structure_type27745 *t38818; char *t38819; char *t38820; struct w49 t38821; struct w49 t38822; struct w49 t38823; struct w49 t38824; struct structure_type27745 *t38825; struct structure_type27745 *t38826; struct w9296 t38827; struct w49 t38828; struct w49 t38829; struct w49 t38830; struct w49 t38831; struct w49 t38832; struct structure_type27745 *t38833; struct structure_type27745 *t38834; struct w9296 t38835; struct w49 t38836; struct w49 t38837; struct w49 t38838; struct w49 t38839; struct structure_type27745 *t38840; struct structure_type27745 *t38841; char *t38842; struct w49 t38843; struct w49 t38844; struct w49 t38845; struct w49 t38846; struct w49 t38847; struct p16486 *t38848; struct w49 t38849; struct w49 t38850; struct w49 t38851; struct w49 t38852; struct w49 t38853; struct p16486 *t38854; struct w12224 t38855; struct w228245 t38856; struct w49 t38857; struct structure_type24753 *t38858; struct w49 t38859; struct w49 t38860; struct w49 t38861; struct w49 t38862; struct w49 t38863; struct w49 t38864; struct structure_type24753 *t38865; struct w49 t38866; struct w49 t38867; char *t38868; struct structure_type24753 *t38869; struct w49 t38870; struct w49 t38871; unsigned t38872; struct w49 t38873; struct w49 t38874; struct w49 t38875; struct w49 t38876; struct w49 t38877; struct w49 t38878; struct w49 t38879; struct structure_type27501 *t38880; struct w49 t38881; struct p16486 *t38882; struct p16486 *t38883; struct p7717 *t38884; unsigned t38885; unsigned t38886; struct structure_type27501 *t38887; struct p16486 *t38888; struct w49 t38889; struct p16486 *t38890; struct w30215 t38891; struct p16590 *t38892; struct w30215 t38893; struct p16590 *t38894; struct structure_type27501 *t38895; struct structure_type24753 *t38896; struct structure_type24753 *t38897; struct structure_type24753 *t38898; struct structure_type24753 *t38899; struct w49 t38900; struct w49 t38901; struct w49 t38902; struct w49 t38903; struct w49 t38904; struct w49 t38905; struct w49 t38906; struct w12224 t38907; struct w12224 t38908; struct structure_type24753 *t38909; struct w49 t38910; struct p16486 *t38911; struct w30215 t38912; struct w227957 t38913; struct w49 t38914; struct p16590 *t38915; struct w30215 t38916; struct w227957 t38917; struct w49 t38918; struct w49 t38919; struct w49 t38920; struct w49 t38921; struct w49 t38922; struct structure_type24753 *t38923; unsigned t38924; struct w49 t38925; struct w228463 t38926; struct w12224 t38927; struct w36270 t38928; struct w49 t38929; struct structure_type24753 *t38930; struct w49 t38931; struct w211061 t38932; struct structure_type27501 *t38933; struct structure_type24753 *t38934; struct w49 t38935; struct w49 t38936; struct w49 t38937; struct w49 t38938; struct w49 t38939; struct w49 t38940; struct p16486 *t38941; struct structure_type27501 *t38942; struct structure_type24753 *t38943; struct structure_type24753 *t38944; struct structure_type24753 *t38945; struct structure_type24753 *t38946; struct structure_type24753 *t38947; struct structure_type24753 *t38948; struct w49 t38949; struct w49 t38950; struct w49 t38951; struct w49 t38952; struct w49 t38953; struct w49 t38954; struct p16486 *t38955; struct w12224 t38956; struct w36270 t38957; struct w49 t38958; struct structure_type24753 *t38959; struct w12224 t38960; unsigned t38961; struct w49 t38962; struct p16486 *t38963; struct structure_type27501 *t38964; struct structure_type24753 *t38965; struct w12224 t38966; struct w228245 t38967; struct w49 t38968; struct structure_type24753 *t38969; struct w12224 t38970; struct w228345 t38971; struct w49 t38972; struct structure_type24753 *t38973; struct p16486 *t38974; struct structure_type24753 *t38975; struct w49 t38976; struct w49 t38977; struct w49 t38978; struct w49 t38979; struct w49 t38980; struct p16486 *t38981; struct structure_type24753 *t38982; struct structure_type24753 *t38983; struct structure_type24753 *t38984; struct w49 t38985; struct structure_type24753 *t38986; struct w49 t38987; struct w49 t38988; struct w49 t38989; struct w49 t38990; struct w49 t38991; struct structure_type24753 *t38992; struct structure_type24753 *t38993; struct structure_type24753 *t38994; struct w49 t38995; struct w49 t38996; struct w61020 t38997; struct w49 t38998; struct w49 t38999; struct w49 t39000; struct w49 t39001; struct w49 t39002; struct w49 t39003; struct w49 t39004; struct w49 t39005; struct w49 t39006; struct w49 t39007; struct w49 t39008; struct p16486 *t39009; struct structure_type24753 *t39010; struct structure_type24753 *t39011; struct structure_type24753 *t39012; struct w49 t39013; struct w49 t39014; struct w61020 t39015; struct w49 t39016; struct w49 t39017; struct w49 t39018; struct w49 t39019; struct w49 t39020; struct w49 t39021; struct w49 t39022; struct w49 t39023; struct w49 t39024; struct w49 t39025; struct w49 t39026; struct p16486 *t39027; struct structure_type27501 *t39028; struct structure_type24753 *t39029; struct w49 t39030; struct w49 t39031; struct w49 t39032; struct w49 t39033; struct w49 t39034; struct w49 t39035; struct p16486 *t39036; struct structure_type27501 *t39037; struct structure_type24753 *t39038; struct w49 t39039; struct w49 t39040; struct structure_type24753 *t39041; struct structure_type24753 *t39042; struct structure_type24753 *t39043; struct w49 t39044; struct w49 t39045; struct w61020 t39046; struct w49 t39047; struct w49 t39048; struct w49 t39049; struct w49 t39050; struct w49 t39051; struct w49 t39052; struct w49 t39053; struct w49 t39054; struct w49 t39055; struct w49 t39056; struct w49 t39057; struct w49 t39058; struct w49 t39059; struct w49 t39060; struct w49 t39061; struct w49 t39062; struct w49 t39063; struct w49 t39064; struct w49 t39065; struct w49 t39066; struct w49 t39067; struct w49 t39068; struct w49 t39069; struct w49 t39070; struct w49 t39071; struct w49 t39072; struct w49 t39073; struct p16486 *t39074; struct structure_type27501 *t39075; struct structure_type24753 *t39076; struct w49 t39077; struct w61020 t39078; struct w49 t39079; struct w49 t39080; struct w49 t39081; struct w49 t39082; struct w49 t39083; struct p16486 *t39084; struct structure_type27501 *t39085; struct structure_type24753 *t39086; struct w49 t39087; struct w49 t39088; struct w49 t39089; struct w49 t39090; struct w49 t39091; struct p16486 *t39092; struct structure_type24753 *t39093; struct structure_type24753 *t39094; struct structure_type24753 *t39095; struct structure_type24753 *t39096; struct w49 t39097; struct structure_type24753 *t39098; struct w49 t39099; struct w49 t39100; struct w49 t39101; struct w49 t39102; struct w49 t39103; struct p16486 *t39104; struct w12224 t39105; struct w36270 t39106; struct w49 t39107; struct structure_type24753 *t39108; struct w12224 t39109; unsigned t39110; struct w49 t39111; struct p16486 *t39112; struct p16486 *t39113; struct w12224 t39114; struct w228245 t39115; struct w49 t39116; struct structure_type24753 *t39117; struct w49 t39118; struct w49 t39119; struct w49 t39120; struct w49 t39121; struct p16486 *t39122; struct w49 t39123; struct w211225 t39124; struct p16486 *t39125; struct w49 t39126; struct w211225 t39127; struct w12224 t39128; struct w228345 t39129; struct w49 t39130; struct structure_type24753 *t39131; struct p16486 *t39132; struct structure_type24753 *t39133; struct structure_type24753 *t39134; struct p16486 *t39135; struct w12224 t39136; struct w36270 t39137; struct w49 t39138; struct structure_type24753 *t39139; struct p16486 *t39140; struct structure_type24753 *t39141; struct structure_type24753 *t39142; struct structure_type24753 *t39143; struct structure_type24753 *t39144; struct p16486 *t39145; struct w49 t39146; struct w211257 t39147; struct p16486 *t39148; struct w49 t39149; struct w211257 t39150; struct structure_type24753 *t39151; struct structure_type24753 *t39152; struct structure_type24753 *t39153; struct w49 t39154; struct structure_type24753 *t39155; struct w49 t39156; struct w49 t39157; struct w49 t39158; struct w49 t39159; struct w49 t39160; struct structure_type24753 *t39161; struct structure_type24753 *t39162; struct structure_type24753 *t39163; struct structure_type24753 *t39164; struct w49 t39165; struct w49 t39166; struct structure_type24753 *t39167; struct w49 t39168; struct w49 t39169; struct w49 t39170; struct w49 t39171; char *t39172; struct w49 t39173; struct w49 t39174; struct w49 t39175; struct p16486 *t39176; struct w12224 t39177; struct w36270 t39178; struct w49 t39179; struct structure_type24753 *t39180; struct w12224 t39181; unsigned t39182; struct w49 t39183; struct p16486 *t39184; struct w49 t39185; struct w49 t39186; struct p16486 *t39187; struct w49 t39188; struct w49 t39189; struct p16486 *t39190; struct p16486 *t39191; struct w49 t39192; struct w211257 t39193; struct w49 t39194; struct w49 t39195; struct w49 t39196; char *t39197; struct w49 t39198; struct w49 t39199; struct w49 t39200; struct w49 t39201; struct w49 t39202; struct w49 t39203; struct w49 t39204; struct w49 t39205; struct w49 t39206; struct w49 t39207; struct structure_type24753 *t39208; struct w49 t39209; struct w49 t39210; struct w49 t39211; unsigned t39212; struct w49 t39213; struct w49 t39214; struct w49 t39215; struct structure_type24753 *t39216; struct structure_type24753 *t39217; struct structure_type24753 *t39218; struct w49 t39219; struct w49 t39220; struct structure_type24753 *t39221; struct w49 t39222; struct w49 t39223; struct w49 t39224; struct w49 t39225; struct w49 t39226; struct w49 t39227; struct w49 t39228; struct w49 t39229; struct w49 t39230; struct w49 t39231; struct structure_type24753 *t39232; struct w49 t39233; struct w49 t39234; struct w49 t39235; struct p16486 *t39236; struct w49 t39237; struct structure_type24753 *t39238; struct w49 t39239; struct w49 t39240; struct w49 t39241; struct w49 t39242; struct w49 t39243; struct p16486 *t39244; struct w49 t39245; struct w49 t39246; struct w49 t39247; struct w49 t39248; struct w49 t39249; struct w49 t39250; struct p16486 *t39251; struct w49 t39252; struct structure_type24753 *t39253; struct w49 t39254; struct w61020 t39255; struct w49 t39256; struct w49 t39257; struct w49 t39258; struct w49 t39259; struct p16486 *t39260; struct structure_type27501 *t39261; struct structure_type24753 *t39262; struct w49 t39263; struct w49 t39264; struct w49 t39265; struct w49 t39266; struct w49 t39267; struct p16486 *t39268; struct w12224 t39269; struct w228245 t39270; struct w49 t39271; struct structure_type24753 *t39272; struct w12224 t39273; struct w228345 t39274; struct w49 t39275; struct structure_type24753 *t39276; struct p16486 *t39277; struct w49 t39278; struct structure_type24753 *t39279; struct w49 t39280; struct w49 t39281; struct w49 t39282; struct w49 t39283; struct p16486 *t39284; struct structure_type24753 *t39285; struct structure_type24753 *t39286; struct structure_type24753 *t39287; struct w49 t39288; struct w49 t39289; struct structure_type24753 *t39290; struct w49 t39291; struct w49 t39292; struct w49 t39293; struct w49 t39294; struct structure_type24753 *t39295; struct structure_type24753 *t39296; struct structure_type24753 *t39297; struct w49 t39298; struct w49 t39299; struct w61020 t39300; struct w49 t39301; struct w49 t39302; struct w49 t39303; struct w49 t39304; struct w49 t39305; struct w49 t39306; struct w49 t39307; struct w49 t39308; struct w49 t39309; struct w49 t39310; struct w49 t39311; struct p16486 *t39312; struct structure_type24753 *t39313; struct structure_type24753 *t39314; struct structure_type24753 *t39315; struct w49 t39316; struct w49 t39317; struct w61020 t39318; struct w49 t39319; struct w49 t39320; struct w49 t39321; struct w49 t39322; struct w49 t39323; struct w49 t39324; struct w49 t39325; struct w49 t39326; struct w49 t39327; struct w49 t39328; struct w49 t39329; struct p16486 *t39330; struct p16486 *t39331; struct w49 t39332; struct w211257 t39333; struct w49 t39334; struct w49 t39335; struct w49 t39336; char *t39337; struct w49 t39338; struct w49 t39339; struct w49 t39340; struct w49 t39341; struct w49 t39342; struct w49 t39343; struct w49 t39344; struct w49 t39345; struct w49 t39346; struct structure_type24753 *t39347; struct w49 t39348; struct w49 t39349; struct w49 t39350; struct w49 t39351; unsigned t39352; struct w49 t39353; struct w49 t39354; struct w49 t39355; struct structure_type24753 *t39356; struct structure_type24753 *t39357; struct structure_type24753 *t39358; struct w49 t39359; struct structure_type24753 *t39360; struct w49 t39361; struct w49 t39362; struct w49 t39363; struct w49 t39364; struct w49 t39365; struct w49 t39366; struct w49 t39367; struct w49 t39368; struct w49 t39369; struct w49 t39370; struct structure_type24753 *t39371; struct w49 t39372; struct w49 t39373; struct w49 t39374; struct w49 t39375; struct p16486 *t39376; struct w49 t39377; struct w49 t39378; struct w49 t39379; struct w49 t39380; struct structure_type24753 *t39381; struct w49 t39382; struct w49 t39383; struct w49 t39384; struct w49 t39385; struct w49 t39386; struct w49 t39387; struct p16486 *t39388; struct w49 t39389; struct structure_type24753 *t39390; struct w49 t39391; struct w49 t39392; struct w49 t39393; struct w49 t39394; struct p16486 *t39395; struct w49 t39396; struct w49 t39397; struct w49 t39398; struct w49 t39399; struct w49 t39400; struct w49 t39401; struct p16486 *t39402; struct w49 t39403; struct structure_type24753 *t39404; struct w49 t39405; struct w61020 t39406; struct w49 t39407; struct w49 t39408; struct w49 t39409; struct w49 t39410; struct p16486 *t39411; struct structure_type27501 *t39412; struct structure_type24753 *t39413; struct w49 t39414; struct w49 t39415; struct w49 t39416; struct w49 t39417; struct w49 t39418; struct p16486 *t39419; struct w49 t39420; struct w49 t39421; struct w49 t39422; struct w49 t39423; struct w49 t39424; struct w49 t39425; struct p16486 *t39426; struct structure_type24753 *t39427; struct w49 t39428; struct w49 t39429; struct w49 t39430; struct w49 t39431; struct w49 t39432; struct w49 t39433; struct p16486 *t39434; struct structure_type24753 *t39435; struct w49 t39436; struct w49 t39437; struct w49 t39438; struct w49 t39439; struct w49 t39440; struct p16486 *t39441; struct w49 t39442; struct w49 t39443; struct w49 t39444; struct w49 t39445; struct w49 t39446; struct w49 t39447; struct p16486 *t39448; struct p16486 *t39449; struct w49 t39450; struct w49 t39451; struct w49 t39452; struct w49 t39453; struct structure_type24753 *t39454; char *t39455; struct w49 t39456; struct w49 t39457; struct structure_type24753 *t39458; struct w49 t39459; struct w49 t39460; struct w49 t39461; struct w49 t39462; struct w49 t39463; struct w49 t39464; struct w49 t39465; struct w49 t39466; struct w49 t39467; struct w49 t39468; char *t39469; struct p16486 *t39470; struct w49 t39471; struct w61020 t39472; struct w49 t39473; struct w49 t39474; struct w49 t39475; struct w49 t39476; struct w49 t39477; struct p16486 *t39478; struct structure_type27501 *t39479; struct structure_type24753 *t39480; struct w49 t39481; struct w49 t39482; struct w49 t39483; struct w49 t39484; struct w49 t39485; struct p16486 *t39486; struct w49 t39487; struct w49 t39488; struct structure_type24753 *t39489; struct structure_type24753 *t39490; struct structure_type24753 *t39491; struct w49 t39492; struct w61020 t39493; struct w49 t39494; struct w49 t39495; struct w49 t39496; struct w49 t39497; struct w49 t39498; struct w49 t39499; struct w49 t39500; struct w49 t39501; struct w49 t39502; struct w49 t39503; struct w49 t39504; struct w49 t39505; struct w49 t39506; struct w49 t39507; struct w49 t39508; struct w49 t39509; struct w49 t39510; struct w49 t39511; struct w49 t39512; struct w49 t39513; struct w49 t39514; struct w49 t39515; struct w49 t39516; struct w49 t39517; struct w49 t39518; struct w49 t39519; struct w49 t39520; struct w49 t39521; struct p16486 *t39522; struct w49 t39523; struct w49 t39524; struct w49 t39525; struct w49 t39526; struct w49 t39527; struct w49 t39528; struct p16486 *t39529; struct w49 t39530; struct w49 t39531; struct w49 t39532; struct w49 t39533; struct w49 t39534; struct w49 t39535; struct p16486 *t39536; struct p16486 *t39537; struct w49 t39538; struct w49 t39539; struct structure_type24753 *t39540; char *t39541; struct w49 t39542; struct w49 t39543; struct structure_type24753 *t39544; struct w49 t39545; struct w49 t39546; struct w49 t39547; struct w49 t39548; struct w49 t39549; struct w49 t39550; struct w49 t39551; struct w49 t39552; struct w49 t39553; struct w49 t39554; struct w49 t39555; struct w49 t39556; char *t39557; struct p16486 *t39558; struct w49 t39559; struct w49 t39560; struct w49 t39561; struct w49 t39562; struct w49 t39563; struct w49 t39564; struct w49 t39565; struct w49 t39566; struct w49 t39567; struct w49 t39568; struct w49 t39569; struct w49 t39570; char *t39571; struct p16486 *t39572; struct w49 t39573; struct w49 t39574; struct w49 t39575; struct w49 t39576; struct w49 t39577; struct p16486 *t39578; struct structure_type27501 *t39579; struct structure_type24753 *t39580; struct w61020 t39581; struct w49 t39582; struct w49 t39583; struct w49 t39584; struct w49 t39585; struct w49 t39586; struct w49 t39587; struct p16486 *t39588; struct structure_type27501 *t39589; struct structure_type24753 *t39590; struct structure_type24753 *t39591; struct w49 t39592; struct w49 t39593; struct w61020 t39594; struct w49 t39595; struct w49 t39596; struct w49 t39597; struct w49 t39598; struct p16486 *t39599; struct structure_type27501 *t39600; struct structure_type24753 *t39601; struct structure_type24753 *t39602; struct w49 t39603; struct w49 t39604; struct w61020 t39605; struct w49 t39606; struct w49 t39607; struct w49 t39608; struct w49 t39609; struct p16486 *t39610; struct structure_type27501 *t39611; struct structure_type24753 *t39612; struct w61020 t39613; struct w49 t39614; struct w49 t39615; struct w49 t39616; struct w49 t39617; struct w49 t39618; struct w49 t39619; char *t39620; struct p16486 *t39621; struct structure_type27501 *t39622; struct structure_type27501 *t39623; struct structure_type24753 *t39624; struct structure_type24753 *t39625; struct w12224 t39626; struct w49 t39627; struct w49 t39628; struct p15827 *t39629; struct p7717 *t39630; struct p15827 *t39631; struct p7717 *t39632; struct p7717 *t39633; struct w49 t39634; struct structure_type27501 *t39635; struct w49 t39636; struct p16431 *t39637; struct p16431 *t39638; struct w49 t39639; struct w49 t39640; struct w49 t39641; struct w49 t39642; struct w49 t39643; struct p7717 *t39644; struct w49 t39645; struct structure_type27501 *t39646; struct w49 t39647; struct p16415 *t39648; struct p16415 *t39649; struct w49 t39650; struct w49 t39651; struct w49 t39652; struct w49 t39653; struct w49 t39654; struct structure_type27501 *t39655; struct w12218 t39656; struct structure_type27501 *t39657; struct w12218 t39658; struct structure_type27501 *t39659; struct w12218 t39660; struct structure_type27501 *t39661; struct w12218 t39662; struct p16391 *t39663; struct p16391 *t39664; struct w49 t39665; struct p16396 *t39666; struct w49 t39667; struct p16397 *t39668; struct w49 t39669; struct p16398 *t39670; struct w49 t39671; struct w49 t39672; struct w49 t39673; struct w49 t39674; struct structure_type24753 *t39675; struct w49 t39676; struct w49 t39677; struct w49 t39678; struct w49 t39679; struct w49 t39680; struct w49 t39681; struct structure_type27745 *t39682; struct structure_type24753 *t39683; struct w49 t39684; struct p16398 *t39685; struct w11873 t39686; struct structure_type24753 *t39687; struct w49 t39688; struct w49 t39689; struct w36270 t39690; struct w49 t39691; struct structure_type24753 *t39692; struct w49 t39693; struct w49 t39694; struct w49 t39695; struct w49 t39696; int t39697; struct w11873 t39698; struct w49 t39699; struct w49 t39700; struct w49 t39701; struct structure_type27501 *t39702; struct w12218 t39703; struct structure_type27501 *t39704; char *t39705; struct w49 t39706; struct w49 t39707; struct p16391 *t39708; struct w49 t39709; struct w211113 t39710; struct structure_type27501 *t39711; struct structure_type27501 *t39712; struct structure_type27501 *t39713; struct structure_type27501 *t39714; struct structure_type27501 *t39715; struct w12218 t39716; struct structure_type27501 *t39717; struct p15827 *t39718; struct p7717 *t39719; struct p7717 *t39720; struct w49 t39721; struct w49 t39722; struct w49 t39723; struct w49 t39724; struct w49 t39725; struct w49 t39726; struct w49 t39727; struct w49 t39728; struct w49 t39729; struct structure_type24753 *t39730; struct w49 t39731; struct w49 t39732; struct w49 t39733; int t39734; int t39735; struct w49 t39736; struct w49 t39737; struct w49 t39738; int t39739; int t39740; struct w49 t39741; struct w49 t39742; struct w49 t39743; int t39744; int t39745; struct w49 t39746; struct w49 t39747; int t39748; int t39749; struct w49 t39750; struct w49 t39751; int t39752; int t39753; struct w49 t39754; struct w49 t39755; int t39756; int t39757; struct w49 t39758; struct w49 t39759; char *t39760; struct structure_type27745 *t39761; struct w49 t39762; unsigned t39763; struct structure_type24753 *t39764; struct w49 t39765; struct w211235 t39766; char *t39767; struct p15827 *e15827; struct p15766 *e15766; struct p15767 *e15767; struct p16391 *e16391; struct p16396 *e16396; struct p16397 *e16397; struct p16398 *e16398; struct p16415 *e16415; struct p16431 *e16431; struct p16486 *e16486; struct p16590 *e16590; struct p16629 *e16629; struct p16645 *e16645; struct p16677 *e16677; struct p16699 *e16699; struct p16719 *e16719; struct p16735 *e16735; struct p16815 *e16815; struct p16838 *e16838; struct p16852 *e16852; struct p16879 *e16879; struct p16907 *e16907; struct p16937 *e16937; struct p16978 *e16978; struct p17017 *e17017; struct p17056 *e17056; struct p17083 *e17083; struct p17116 *e17116; struct p17149 *e17149; struct p17182 *e17182; struct p17207 *e17207; struct p17218 *e17218; struct p17234 *e17234; struct p17250 *e17250; struct p17270 *e17270; struct p17289 *e17289; struct p17308 *e17308; struct p17327 *e17327; struct p17340 *e17340; struct p17352 *e17352; struct p17364 *e17364; struct p17376 *e17376; struct p17388 *e17388; struct p17400 *e17400; struct p17412 *e17412; struct p17425 *e17425; struct p17447 *e17447; struct p17464 *e17464; struct p17485 *e17485; struct p17498 *e17498; struct p17523 *e17523; struct p17532 *e17532; struct p17554 *e17554; struct p17571 *e17571; struct p17588 *e17588; struct p17611 *e17611; struct p17624 *e17624; struct p17635 *e17635; struct p17673 *e17673; struct p17684 *e17684; struct p17685 *e17685; struct p17686 *e17686; struct p17704 *e17704; struct p17705 *e17705; struct p17736 *e17736; struct p17741 *e17741; struct p17742 *e17742; struct p17743 *e17743; struct p17759 *e17759; struct p17783 *e17783; struct p17803 *e17803; struct p17839 *e17839; struct p17869 *e17869; struct p17870 *e17870; struct p17931 *e17931; struct p17943 *e17943; struct p17955 *e17955; struct p17964 *e17964; struct p17974 *e17974; struct p17984 *e17984; struct p18006 *e18006; struct p18029 *e18029; struct p18040 *e18040; struct p18061 *e18061; struct p18070 *e18070; struct p18079 *e18079; struct p18088 *e18088; struct p18119 *e18119; struct p18129 *e18129; struct p18144 *e18144; struct p15766 *p15767; struct p15767 *p15768; struct p15767 *p15769; struct p15827 *p15828; struct p15827 *p15829; struct p15827 *p15833; struct p15827 *p15834; struct p15827 *p15835; struct p15827 *p15836; struct p15827 *p15837; struct p15827 *p15838; struct p15827 *p15840; struct p15827 *p15841; struct p15827 *p15842; struct p15827 *p15843; struct p15827 *p15844; struct p15827 *p15845; struct p15827 *p15846; struct p15827 *p15847; struct p15827 *p15848; struct p15827 *p15849; struct p15827 *p15850; struct p15827 *p15851; struct p15827 *p15852; struct p15827 *p15853; struct p15827 *p15854; struct p15827 *p15855; struct p15827 *p15860; struct p15827 *p15861; struct p15827 *p15864; struct p15827 *p15867; struct p15827 *p15868; struct p16391 *p16395; struct p16391 *p16396; struct p16396 *p16397; struct p16397 *p16398; struct p16398 *p16399; struct p16486 *p16487; struct p16486 *p16494; struct p16486 *p16495; struct p16486 *p16497; struct p16486 *p16498; struct p16486 *p16499; struct p16486 *p16500; struct p16486 *p16501; struct p16486 *p16503; struct p16486 *p16504; struct p16486 *p16505; struct p16486 *p16508; struct p16486 *p16509; struct p16486 *p16510; struct p16486 *p16511; struct p16486 *p16512; struct p16486 *p16513; struct p16486 *p16514; struct p16486 *p16517; struct p16486 *p16518; struct p16486 *p16519; struct p16486 *p16520; struct p16486 *p16521; struct p16486 *p16522; struct p16486 *p16523; struct p16486 *p16524; struct p16486 *p16525; struct p16486 *p16526; struct p16486 *p16529; struct p16486 *p16532; struct p16486 *p16535; struct p16486 *p16536; struct p16486 *p16537; struct p16486 *p16538; struct p16486 *p16539; struct p16486 *p16540; struct p16486 *p16541; struct p16486 *p16544; struct p16486 *p16548; struct p16486 *p16555; struct p16486 *p16558; struct p16486 *p16564; struct p16486 *p16566; struct p16486 *p16570; struct p16486 *p16571; struct p16486 *p16572; struct p16486 *p16573; struct p16486 *p16574; struct p16486 *p16577; struct p16486 *p16580; struct p16486 *p16581; struct p16486 *p16582; struct p16486 *p16586; struct p16486 *p16589; struct p16486 *p16590; struct p16590 *p16591; struct p16590 *p16592; struct p16629 *p16630; struct p16937 *p16938; struct p16937 *p16939; struct p16937 *p16942; struct p16978 *p16979; struct p16978 *p16980; struct p16978 *p16983; struct p17218 *p17219; struct p17218 *p17220; struct p17218 *p17223; struct p17234 *p17235; struct p17234 *p17236; struct p17234 *p17239; struct p17250 *p17251; struct p17250 *p17252; struct p17250 *p17255; struct p17554 *p17555; struct p17554 *p17560; struct p17554 *p17565; struct p17554 *p17570; struct p17554 *p17571; struct p17588 *p17589; struct p17588 *p17590; struct p17673 *p17674; struct p17673 *p17677; struct p17673 *p17680; struct p17673 *p17683; struct p17673 *p17684; struct p17684 *p17685; struct p17685 *p17686; struct p17686 *p17687; struct p17704 *p17705; struct p17736 *p17740; struct p17736 *p17741; struct p17741 *p17742; struct p17742 *p17743; struct p17743 *p17744; struct p17869 *p17870; struct p17870 *p17871; struct p17870 *p17876; struct p17870 *p17877; struct p17870 *p17886; struct p17870 *p17888; struct p17869 *p17889; struct p18129 *p18130; struct p18129 *p18131; struct p18129 *p18136; struct p18144 *p18145; struct p18144 *p18146; struct p18144 *p18149; e15827 = (struct p15827 *)GC_malloc(sizeof(struct p15827)); if (e15827==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e15827->a26962 = a26962; e15827->a26969 = a26969; e15827->a26970 = a26970; /* x147870 stalin.sc:19615:685915 */ /* x147001 stalin.sc:19616:685924 */ /* x147000 stalin.sc:19616:685951 */ t37330 = a26965; /* x146999 stalin.sc:19616:685925 */ a38206 = t37330; /* x285493 */ /* x285492 */ t37331 = a38206; /* x285491 */ if (!((t37331.tag)==STRUCTURE_TYPE27753)) goto l5477; /* x147123 */ /* x147122 */ t37827 = e15827; p15828 = t37827; /* x147121 */ /* x147120 stalin.sc:19617:685958 */ /* x147113 stalin.sc:19617:685964 */ /* x147111 stalin.sc:19617:685977 */ /* x147112 stalin.sc:19617:685988 */ t39765 = a26972; /* x147110 stalin.sc:19617:685965 */ t39766.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t39766, t39765).tag)==FALSE_TYPE) goto l5867; /* x147117 */ /* x147116 */ /* x147115 stalin.sc:19617:685991 */ /* x147114 stalin.sc:19617:685992 */ /* x295857 QobiScheme.sc:166:5314 */ /* x295856 QobiScheme.sc:166:5321 */ t39767 = "This shouldn\'t happen"; /* x295855 QobiScheme.sc:166:5315 */ stalin_panic(t39767); goto l5868; l5867: /* x147119 stalin.sc:19617:685958 */ /* x147118 stalin.sc:19617:685958 */ l5868: /* x147109 */ t37828 = p15828; p15829 = t37828; /* x147108 stalin.sc:19618:686005 */ /* x147005 stalin.sc:19618:686009 */ /* x147004 stalin.sc:19618:686021 */ t37829 = p15829->a26970; /* x147003 stalin.sc:19618:686015 */ /* x147002 stalin.sc:19618:686010 */ t37830.tag = NATIVE_PROCEDURE_TYPE7359; t37831 = t37829; t37832 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t37830, t37831, t37832).tag)==FALSE_TYPE) goto l5581; /* x147010 stalin.sc:19619:686032 */ /* x147007 stalin.sc:19619:686047 */ t39760 = "void_primitive_procedure_call"; /* x147008 stalin.sc:19619:686079 */ t39761 = a26963; /* x147009 stalin.sc:19619:686081 */ /* x147006 stalin.sc:19619:686033 */ t39762.tag = STRUCTURE_TYPE27745; t39762.value.structure_type27745 = t39761; t39763 = TRUE_TYPE; t39764 = f15534(t39760, t39762, t39763); r15827.tag = STRUCTURE_TYPE24753; r15827.value.structure_type24753 = t39764; return r15827; l5581: /* x147107 stalin.sc:19620:686092 */ /* x147021 stalin.sc:19623:686216 */ t37834 = p15829->a26962; /* x147022 stalin.sc:19623:686218 */ t37835 = a26963; /* x147023 stalin.sc:19623:686220 */ t37836 = a26965; /* x147024 stalin.sc:19623:686223 */ t37837 = p15829->a26969; /* x147025 stalin.sc:19623:686226 */ t37838 = p15829->a26970; /* x147026 stalin.sc:19623:686229 */ /* x147027 stalin.sc:19623:686231 */ /* x147038 stalin.sc:19624:686234 */ t37841 = p15829; /* x147039 stalin.sc:19625:686294 */ t37842 = a26967; /* x147040 stalin.sc:19626:686298 */ t37843 = a26968; /* x147051 stalin.sc:19627:686302 */ /* x147046 stalin.sc:19627:686306 */ /* x147044 stalin.sc:19627:686310 */ /* x147043 stalin.sc:19627:686318 */ t39736 = p15829->a26970; /* x147042 stalin.sc:19627:686311 */ t39734 = f26227(t39736); /* x147045 stalin.sc:19627:686322 */ t39735 = 1; /* x268467 stalin.sc:19627:686307 */ if (!(t39734>=t39735)) goto l5849; /* x147049 stalin.sc:19627:686325 */ /* x147048 stalin.sc:19627:686332 */ t39737 = p15829->a26969; /* x147047 stalin.sc:19627:686326 */ a35911 = t39737; /* x275001 */ /* x275000 */ t39738 = a35911; /* x274999 */ if (!((t39738.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30060]"); structure_ref_error();} t37844 = t39738.value.structure_type24753->s0; goto l5850; l5849: /* x147050 stalin.sc:19627:686336 */ t37844.tag = FALSE_TYPE; l5850: /* x147062 stalin.sc:19628:686341 */ /* x147057 stalin.sc:19628:686345 */ /* x147055 stalin.sc:19628:686349 */ /* x147054 stalin.sc:19628:686357 */ t39741 = p15829->a26970; /* x147053 stalin.sc:19628:686350 */ t39739 = f26227(t39741); /* x147056 stalin.sc:19628:686361 */ t39740 = 1; /* x268466 stalin.sc:19628:686346 */ if (!(t39739>=t39740)) goto l5852; /* x147060 stalin.sc:19628:686364 */ /* x147059 stalin.sc:19628:686371 */ t39742 = p15829->a26970; /* x147058 stalin.sc:19628:686365 */ a35912 = t39742; /* x275005 */ /* x275004 */ t39743 = a35912; /* x275003 */ if (!((t39743.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30061]"); structure_ref_error();} t37845 = t39743.value.structure_type24753->s0; goto l5853; l5852: /* x147061 stalin.sc:19628:686375 */ t37845.tag = FALSE_TYPE; l5853: /* x147073 stalin.sc:19629:686380 */ /* x147068 stalin.sc:19629:686384 */ /* x147066 stalin.sc:19629:686388 */ /* x147065 stalin.sc:19629:686396 */ t39746 = p15829->a26970; /* x147064 stalin.sc:19629:686389 */ t39744 = f26227(t39746); /* x147067 stalin.sc:19629:686400 */ t39745 = 2; /* x268465 stalin.sc:19629:686385 */ if (!(t39744>=t39745)) goto l5855; /* x147071 stalin.sc:19629:686403 */ /* x147070 stalin.sc:19629:686411 */ t39747 = p15829->a26969; /* x147069 stalin.sc:19629:686404 */ t37846 = f26181(t39747); goto l5856; l5855: /* x147072 stalin.sc:19629:686415 */ t37846.tag = FALSE_TYPE; l5856: /* x147084 stalin.sc:19630:686420 */ /* x147079 stalin.sc:19630:686424 */ /* x147077 stalin.sc:19630:686428 */ /* x147076 stalin.sc:19630:686436 */ t39750 = p15829->a26970; /* x147075 stalin.sc:19630:686429 */ t39748 = f26227(t39750); /* x147078 stalin.sc:19630:686440 */ t39749 = 2; /* x268464 stalin.sc:19630:686425 */ if (!(t39748>=t39749)) goto l5858; /* x147082 stalin.sc:19630:686443 */ /* x147081 stalin.sc:19630:686451 */ t39751 = p15829->a26970; /* x147080 stalin.sc:19630:686444 */ t37847 = f26181(t39751); goto l5859; l5858: /* x147083 stalin.sc:19630:686455 */ t37847.tag = FALSE_TYPE; l5859: /* x147095 stalin.sc:19631:686460 */ /* x147090 stalin.sc:19631:686464 */ /* x147088 stalin.sc:19631:686468 */ /* x147087 stalin.sc:19631:686476 */ t39754 = p15829->a26970; /* x147086 stalin.sc:19631:686469 */ t39752 = f26227(t39754); /* x147089 stalin.sc:19631:686480 */ t39753 = 3; /* x268463 stalin.sc:19631:686465 */ if (!(t39752>=t39753)) goto l5861; /* x147093 stalin.sc:19631:686483 */ /* x147092 stalin.sc:19631:686490 */ t39755 = p15829->a26969; /* x147091 stalin.sc:19631:686484 */ t37848 = f26187(t39755); goto l5862; l5861: /* x147094 stalin.sc:19631:686494 */ t37848.tag = FALSE_TYPE; l5862: /* x147106 stalin.sc:19632:686499 */ /* x147101 stalin.sc:19632:686503 */ /* x147099 stalin.sc:19632:686507 */ /* x147098 stalin.sc:19632:686515 */ t39758 = p15829->a26970; /* x147097 stalin.sc:19632:686508 */ t39756 = f26227(t39758); /* x147100 stalin.sc:19632:686519 */ t39757 = 3; /* x268462 stalin.sc:19632:686504 */ if (!(t39756>=t39757)) goto l5864; /* x147104 stalin.sc:19632:686522 */ /* x147103 stalin.sc:19632:686529 */ t39759 = p15829->a26970; /* x147102 stalin.sc:19632:686523 */ t37849 = f26187(t39759); goto l5865; l5864: /* x147105 stalin.sc:19632:686533 */ t37849.tag = FALSE_TYPE; l5865: /* x147020 stalin.sc:19620:686093 */ /* x147019 stalin.sc:19621:686129 */ /* x147018 stalin.sc:19621:686134 */ /* x147016 stalin.sc:19621:686140 */ /* x147015 stalin.sc:19621:686171 */ t39732 = a26965; /* x147014 stalin.sc:19621:686141 */ a38182 = t39732; /* x285397 */ /* x285396 */ t39733 = a38182; /* x285395 */ if (!((t39733.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-NAME[5895] 33099]"); structure_ref_error();} t39729 = t39733.value.structure_type27753->s0; /* x147017 stalin.sc:19622:686181 */ t39730 = a789; /* x147013 stalin.sc:19621:686135 */ /* MOVE: branching squeezed to general */ if (t39730>=((struct structure_type24753 *)VALUE_OFFSET)) {t39731.tag = STRUCTURE_TYPE24753; t39731.value.structure_type24753 = t39730;} else t39731.tag = (unsigned)t39730; t39728 = f26354(t39729, t39731); /* x268468 stalin.sc:19621:686130 */ if (!((t39728.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 19621, 686129); structure_ref_error();} t39726 = t39728.value.structure_type24753->s1; /* x147011 stalin.sc:19620:686094 */ a27277 = t39726; /* x152993 */ /* x152992 */ t39727 = a27277; /* x152991 */ if (!((t39727.tag)==STRUCTURE_TYPE24757)) {backtrace_internal("PRIMITIVE-PROCEDURE-COMPILE-CALL[16232]"); structure_ref_error();} t37833 = t39727.value.structure_type24757->s6; switch (t37833) {case NATIVE_PROCEDURE_TYPE6020: a32181 = t37834; a32182 = t37835; a32189 = t37842; a32190 = t37843; a32191 = t37844; a32192 = t37845; e18144 = (struct p18144 *)GC_malloc(sizeof(struct p18144)); if (e18144==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e18144->a32181 = a32181; e18144->a32182 = a32182; e18144->a32189 = a32189; e18144->a32190 = a32190; e18144->a32191 = a32191; e18144->a32192 = a32192; /* x169355 stalin.sc:24775:856546 */ /* x169354 */ t37850 = e18144; p18145 = t37850; /* x169353 */ /* x169323 stalin.sc:24776:856555 */ /* x169322 stalin.sc:24776:856585 */ a664 = TRUE_TYPE; /* x169326 stalin.sc:24779:856683 */ /* x169325 stalin.sc:24779:856693 */ t37902 = "pthread"; /* x169324 stalin.sc:24779:856684 */ t37903.tag = STRING_TYPE; t37903.value.string_type = t37902; f18320(t37903); /* x169338 stalin.sc:24780:856706 */ /* x169329 stalin.sc:24780:856712 */ /* x169328 stalin.sc:24780:856724 */ t37904 = p18145->a32182; /* x169327 stalin.sc:24780:856713 */ t37905.tag = STRUCTURE_TYPE27745; t37905.value.structure_type27745 = t37904; if (f8944(t37905)==FALSE_TYPE) goto l5586; /* x169335 */ /* x169334 */ t37906 = p18145; p18149 = t37906; /* x169333 stalin.sc:24781:856730 */ /* x169331 stalin.sc:24781:856745 */ t37907 = p18149->a32182; /* x169332 stalin.sc:24781:856747 */ t37908 = "Converted calls to MUTEX are not (yet) implemented"; /* x169330 stalin.sc:24781:856731 */ t37909.tag = STRUCTURE_TYPE27745; t37909.value.structure_type27745 = t37907; f9707(t37909, t37908); goto l5587; l5586: /* x169337 stalin.sc:24780:856706 */ /* x169336 stalin.sc:24780:856706 */ l5587: /* x169352 stalin.sc:24782:856804 */ /* x169351 stalin.sc:24782:856818 */ /* x169350 stalin.sc:24782:856835 */ /* x169349 stalin.sc:24786:856931 */ t37915 = "PTHREAD_MUTEX_INITIALIZER"; /* x169348 stalin.sc:24785:856921 */ t37914 = "="; /* x169347 stalin.sc:24784:856880 */ /* x169346 stalin.sc:24784:856889 */ /* x169345 stalin.sc:24784:856911 */ t37922 = p18145->a32182; /* x169344 stalin.sc:24784:856890 */ a36413 = t37922; /* x278321 */ /* x278320 */ t37923 = a36413; /* x278319 */ t37921 = t37923->s0; /* x169343 stalin.sc:24784:856881 */ t37913 = f14319(t37921); /* x169342 stalin.sc:24783:856856 */ t37912 = "pthread_mutex_t"; /* x169341 stalin.sc:24782:856836 */ t37920.tag = STRUCTURE_TYPE24753; t37920.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37920.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24782, 856835); out_of_memory_error();} t37920.value.structure_type24753->s0.tag = STRING_TYPE; t37920.value.structure_type24753->s0.value.string_type = t37915; t37920.value.structure_type24753->s1.tag = NULL_TYPE; t37919.tag = STRUCTURE_TYPE24753; t37919.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37919.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24782, 856835); out_of_memory_error();} t37919.value.structure_type24753->s0.tag = STRING_TYPE; t37919.value.structure_type24753->s0.value.string_type = t37914; t37919.value.structure_type24753->s1 = t37920; t37918.tag = STRUCTURE_TYPE24753; t37918.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37918.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24782, 856835); out_of_memory_error();} t37918.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t37918.value.structure_type24753->s0.value.structure_type24753 = t37913; t37918.value.structure_type24753->s1 = t37919; a42013 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42013==NULL) {backtrace("stalin.sc", 24782, 856835); out_of_memory_error();} a42013->s0.tag = STRING_TYPE; a42013->s0.value.string_type = t37912; a42013->s1 = t37918; /* x302164 stalin.sc:14386:505956 */ /* x302163 stalin.sc:14386:505972 */ t37916 = a42013; /* x302162 stalin.sc:14386:505957 */ t37917.tag = STRUCTURE_TYPE24753; t37917.value.structure_type24753 = t37916; t37911 = f13474(t37917); /* x169340 stalin.sc:24782:856819 */ t37910 = f13514(t37911); /* x169339 stalin.sc:24782:856805 */ f13460(t37910); /* x169321 */ t37851 = p18145; p18146 = t37851; /* x169320 stalin.sc:24787:856964 */ /* x169319 stalin.sc:24807:857781 */ /* x169318 stalin.sc:24807:857797 */ t37900 = p18146->a32181; /* x169317 stalin.sc:24807:857782 */ /* MOVE: branching squeezed to general */ if (t37900>=((struct structure_type27501 *)VALUE_OFFSET)) {t37901.tag = STRUCTURE_TYPE27501; t37901.value.structure_type27501 = t37900;} else t37901.tag = (unsigned)t37900; t37855 = f15342(t37901); /* x169316 stalin.sc:24806:857704 */ /* x169315 stalin.sc:24806:857736 */ /* x169314 stalin.sc:24806:857741 */ /* x169313 stalin.sc:24806:857750 */ /* x169312 stalin.sc:24806:857772 */ t37898 = p18146->a32182; /* x169311 stalin.sc:24806:857751 */ a36412 = t37898; /* x278317 */ /* x278316 */ t37899 = a36412; /* x278315 */ t37897 = t37899->s0; /* x169310 stalin.sc:24806:857742 */ t37894 = f14319(t37897); /* x169309 stalin.sc:24806:857737 */ t37895.tag = STRUCTURE_TYPE24753; t37895.value.structure_type24753 = t37894; t37896 = (struct structure_type24753 *)NULL_TYPE; t37891 = f13625(t37895, t37896); /* x169308 stalin.sc:24806:857713 */ t37890 = "pthread_mutex_unlock"; /* x169307 stalin.sc:24806:857705 */ t37892.tag = STRING_TYPE; t37892.value.string_type = t37890; t37893 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t37893==NULL) {backtrace("stalin.sc", 24806, 857704); out_of_memory_error();} t37893->s0.tag = STRUCTURE_TYPE24753; t37893->s0.value.structure_type24753 = t37891; t37893->s1.tag = NULL_TYPE; t37854 = f13645(t37892, t37893); /* x169306 stalin.sc:24795:857346 */ /* x169264 stalin.sc:24795:857350 */ /* x169263 stalin.sc:24795:857357 */ t37871 = p18146->a32192; /* x169262 stalin.sc:24795:857351 */ if (f8147(t37871)==FALSE_TYPE) goto l5583; /* x169269 stalin.sc:24796:857368 */ /* x169266 stalin.sc:24796:857383 */ t37885 = "void_call"; /* x169267 stalin.sc:24796:857395 */ t37886 = p18146->a32182; /* x169268 stalin.sc:24796:857397 */ /* x169265 stalin.sc:24796:857369 */ t37887.tag = STRUCTURE_TYPE27745; t37887.value.structure_type27745 = t37886; t37888 = TRUE_TYPE; t37889 = f15534(t37885, t37887, t37888); t37853.tag = STRUCTURE_TYPE24753; t37853.value.structure_type24753 = t37889; goto l5584; l5583: /* x169305 stalin.sc:24797:857408 */ /* x169278 stalin.sc:24797:857421 */ /* x169272 stalin.sc:24798:857451 */ /* x169273 stalin.sc:24798:857455 */ t37878 = a1675; /* x169277 stalin.sc:24798:857462 */ /* x169275 stalin.sc:24798:857482 */ t37882 = p18146->a32182; /* x169276 stalin.sc:24798:857484 */ t37883 = q64; /* x169274 stalin.sc:24798:857463 */ t37884 = t37882; t37879 = f8743(t37884, t37883); /* x169271 stalin.sc:24797:857422 */ t37880.tag = NULL_TYPE; /* MOVE: branching squeezed to general */ if (t37878>=((struct structure_type27650 *)VALUE_OFFSET)) {t37881.tag = STRUCTURE_TYPE27650; t37881.value.structure_type27650 = t37878;} else t37881.tag = (unsigned)t37878; t37872 = f7873(t37880, t37881, t37879); /* x169279 stalin.sc:24799:857508 */ t37873 = p18146->a32192; /* x169280 stalin.sc:24800:857517 */ t37874 = p18146->a32181; /* x169281 stalin.sc:24801:857525 */ t37875 = p18146->a32191; /* x169298 stalin.sc:24802:857534 */ t37876 = p18146; /* x169304 stalin.sc:24805:857657 */ t37877 = p18146; /* x169270 stalin.sc:24797:857409 */ /* MOVE: squished to squished */ b26111 = ((unsigned)(t37872&(~3)))+("\001\000"[t37872&3]); b26112 = t37873; b26113 = t37874; b26114 = t37875; b26115.tag = NATIVE_PROCEDURE_TYPE22155; b26115.value.native_procedure_type22155 = t37876; b26116.tag = NATIVE_PROCEDURE_TYPE22154; b26116.value.native_procedure_type22154 = t37877; t37853 = f14692(); l5584: /* x169261 stalin.sc:24793:857266 */ /* x169260 stalin.sc:24794:857301 */ /* x169259 stalin.sc:24794:857306 */ /* x169258 stalin.sc:24794:857315 */ /* x169257 stalin.sc:24794:857337 */ t37869 = p18146->a32182; /* x169256 stalin.sc:24794:857316 */ a36411 = t37869; /* x278313 */ /* x278312 */ t37870 = a36411; /* x278311 */ t37868 = t37870->s0; /* x169255 stalin.sc:24794:857307 */ t37865 = f14319(t37868); /* x169254 stalin.sc:24794:857302 */ t37866.tag = STRUCTURE_TYPE24753; t37866.value.structure_type24753 = t37865; t37867 = (struct structure_type24753 *)NULL_TYPE; t37862 = f13625(t37866, t37867); /* x169253 stalin.sc:24793:857275 */ t37861 = "pthread_mutex_lock"; /* x169252 stalin.sc:24793:857267 */ t37863.tag = STRING_TYPE; t37863.value.string_type = t37861; t37864 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t37864==NULL) {backtrace("stalin.sc", 24793, 857266); out_of_memory_error();} t37864->s0.tag = STRUCTURE_TYPE24753; t37864->s0.value.structure_type24753 = t37862; t37864->s1.tag = NULL_TYPE; t37852 = f13645(t37863, t37864); /* x169251 stalin.sc:24787:856965 */ t37860.tag = STRUCTURE_TYPE24753; t37860.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37860.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24787, 856964); out_of_memory_error();} t37860.value.structure_type24753->s0 = t37855; t37860.value.structure_type24753->s1.tag = NULL_TYPE; t37859.tag = STRUCTURE_TYPE24753; t37859.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37859.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24787, 856964); out_of_memory_error();} t37859.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t37859.value.structure_type24753->s0.value.structure_type24753 = t37854; t37859.value.structure_type24753->s1 = t37860; t37858.tag = STRUCTURE_TYPE24753; t37858.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37858.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24787, 856964); out_of_memory_error();} t37858.value.structure_type24753->s0 = t37853; t37858.value.structure_type24753->s1 = t37859; a41830 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41830==NULL) {backtrace("stalin.sc", 24787, 856964); out_of_memory_error();} a41830->s0.tag = STRUCTURE_TYPE24753; a41830->s0.value.structure_type24753 = t37852; a41830->s1 = t37858; /* x301432 stalin.sc:14400:506485 */ /* x301431 stalin.sc:14400:506503 */ t37856 = a41830; /* x301430 stalin.sc:14400:506486 */ t37857.tag = STRUCTURE_TYPE24753; t37857.value.structure_type24753 = t37856; return f13492(t37857); case NATIVE_PROCEDURE_TYPE6027: a32132 = t37834; a32133 = t37835; a32140 = t37842; a32141 = t37843; a32142 = t37844; a32143 = t37845; a32144 = t37846; a32145 = t37847; e18129 = (struct p18129 *)GC_malloc(sizeof(struct p18129)); if (e18129==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e18129->a32132 = a32132; e18129->a32133 = a32133; e18129->a32140 = a32140; e18129->a32141 = a32141; e18129->a32142 = a32142; e18129->a32143 = a32143; e18129->a32144 = a32144; e18129->a32145 = a32145; /* x169163 stalin.sc:24706:854316 */ /* x169162 */ t37924 = e18129; p18130 = t37924; /* x169161 */ /* x169145 stalin.sc:24707:854325 */ /* x169144 stalin.sc:24707:854355 */ a664 = TRUE_TYPE; /* x169148 stalin.sc:24708:854361 */ /* x169147 stalin.sc:24708:854371 */ t37999 = "pthread"; /* x169146 stalin.sc:24708:854362 */ t38000.tag = STRING_TYPE; t38000.value.string_type = t37999; f18320(t38000); /* x169160 stalin.sc:24709:854425 */ /* x169151 stalin.sc:24709:854431 */ /* x169150 stalin.sc:24709:854443 */ t38001 = p18130->a32133; /* x169149 stalin.sc:24709:854432 */ t38002.tag = STRUCTURE_TYPE27745; t38002.value.structure_type27745 = t38001; if (f8944(t38002)==FALSE_TYPE) goto l5595; /* x169157 */ /* x169156 */ t38003 = p18130; p18136 = t38003; /* x169155 stalin.sc:24710:854449 */ /* x169153 stalin.sc:24710:854464 */ t38004 = p18136->a32133; /* x169154 stalin.sc:24710:854466 */ t38005 = "Converted calls to FORK are not (yet) implemented"; /* x169152 stalin.sc:24710:854450 */ t38006.tag = STRUCTURE_TYPE27745; t38006.value.structure_type27745 = t38004; f9707(t38006, t38005); goto l5596; l5595: /* x169159 stalin.sc:24709:854425 */ /* x169158 stalin.sc:24709:854425 */ l5596: /* x169143 */ t37925 = p18130; p18131 = t37925; /* x169142 stalin.sc:24711:854522 */ /* x169141 stalin.sc:24712:854540 */ /* x169140 stalin.sc:24746:855608 */ /* x169139 stalin.sc:24746:855624 */ t37997 = p18131->a32132; /* x169138 stalin.sc:24746:855609 */ /* MOVE: branching squeezed to general */ if (t37997>=((struct structure_type27501 *)VALUE_OFFSET)) {t37998.tag = STRUCTURE_TYPE27501; t37998.value.structure_type27501 = t37997;} else t37998.tag = (unsigned)t37997; t37934 = f15342(t37998); /* x169137 stalin.sc:24745:855557 */ /* x169136 stalin.sc:24745:855574 */ t37995 = "pthread_join(thread, NULL)"; /* x169135 stalin.sc:24745:855558 */ t37996.tag = STRING_TYPE; t37996.value.string_type = t37995; t37933 = f13514(t37996); /* x169134 stalin.sc:24733:855210 */ /* x169088 stalin.sc:24733:855214 */ /* x169087 stalin.sc:24733:855221 */ t37975 = p18131->a32145; /* x169086 stalin.sc:24733:855215 */ if (f8147(t37975)==FALSE_TYPE) goto l5592; /* x169093 stalin.sc:24734:855226 */ /* x169090 stalin.sc:24734:855241 */ t37990 = "void_call"; /* x169091 stalin.sc:24734:855253 */ t37991 = p18131->a32133; /* x169092 stalin.sc:24734:855255 */ /* x169089 stalin.sc:24734:855227 */ t37992.tag = STRUCTURE_TYPE27745; t37992.value.structure_type27745 = t37991; t37993 = TRUE_TYPE; t37994 = f15534(t37990, t37992, t37993); t37932.tag = STRUCTURE_TYPE24753; t37932.value.structure_type24753 = t37994; goto l5593; l5592: /* x169133 stalin.sc:24735:855260 */ /* x169102 stalin.sc:24736:855275 */ /* x169096 stalin.sc:24737:855301 */ /* x169097 stalin.sc:24737:855305 */ t37982 = a1675; /* x169101 stalin.sc:24737:855312 */ /* x169099 stalin.sc:24737:855332 */ t37986 = p18131->a32133; /* x169100 stalin.sc:24737:855334 */ t37987 = q65; /* x169098 stalin.sc:24737:855313 */ t37988 = t37986; t37983 = f8743(t37988, t37987); /* x169095 stalin.sc:24736:855276 */ t37984.tag = NULL_TYPE; /* MOVE: branching squeezed to general */ if (t37982>=((struct structure_type27650 *)VALUE_OFFSET)) {t37985.tag = STRUCTURE_TYPE27650; t37985.value.structure_type27650 = t37982;} else t37985.tag = (unsigned)t37982; t37976 = f7873(t37984, t37985, t37983); /* x169103 stalin.sc:24738:855355 */ t37977 = p18131->a32145; /* x169106 stalin.sc:24739:855360 */ /* x169105 stalin.sc:24739:855373 */ t37989 = p18131->a32132; /* x169104 stalin.sc:24739:855361 */ t37978 = f15762(t37989); /* x169107 stalin.sc:24740:855378 */ t37979 = p18131->a32144; /* x169126 stalin.sc:24741:855383 */ t37980 = p18131; /* x169132 stalin.sc:24744:855509 */ t37981 = p18131; /* x169094 stalin.sc:24735:855261 */ /* MOVE: squished to squished */ b26111 = ((unsigned)(t37976&(~3)))+("\001\000"[t37976&3]); b26112 = t37977; b26113 = t37978; b26114 = t37979; b26115.tag = NATIVE_PROCEDURE_TYPE22161; b26115.value.native_procedure_type22161 = t37980; b26116.tag = NATIVE_PROCEDURE_TYPE22160; b26116.value.native_procedure_type22160 = t37981; t37932 = f14692(); l5593: /* x169085 stalin.sc:24732:855141 */ /* x169084 stalin.sc:24732:855158 */ t37973 = "pthread_create(&thread, NULL, &branch, NULL)"; /* x169083 stalin.sc:24732:855142 */ t37974.tag = STRING_TYPE; t37974.value.string_type = t37973; t37931 = f13514(t37974); /* x169082 stalin.sc:24716:854684 */ /* x169081 stalin.sc:24717:854704 */ /* x169080 stalin.sc:24731:855103 */ /* x169079 stalin.sc:24731:855120 */ t37971 = "return NULL"; /* x169078 stalin.sc:24731:855104 */ t37972.tag = STRING_TYPE; t37972.value.string_type = t37971; t37947 = f13514(t37972); /* x169077 stalin.sc:24718:854727 */ /* x169031 stalin.sc:24718:854731 */ /* x169030 stalin.sc:24718:854738 */ t37951 = p18131->a32143; /* x169029 stalin.sc:24718:854732 */ if (f8147(t37951)==FALSE_TYPE) goto l5589; /* x169036 stalin.sc:24719:854745 */ /* x169033 stalin.sc:24719:854760 */ t37966 = "void_call"; /* x169034 stalin.sc:24719:854772 */ t37967 = p18131->a32133; /* x169035 stalin.sc:24719:854774 */ /* x169032 stalin.sc:24719:854746 */ t37968.tag = STRUCTURE_TYPE27745; t37968.value.structure_type27745 = t37967; t37969 = TRUE_TYPE; t37970 = f15534(t37966, t37968, t37969); t37946.tag = STRUCTURE_TYPE24753; t37946.value.structure_type24753 = t37970; goto l5590; l5589: /* x169076 stalin.sc:24720:854781 */ /* x169045 stalin.sc:24721:854798 */ /* x169039 stalin.sc:24722:854826 */ /* x169040 stalin.sc:24722:854830 */ t37958 = a1675; /* x169044 stalin.sc:24722:854837 */ /* x169042 stalin.sc:24722:854857 */ t37962 = p18131->a32133; /* x169043 stalin.sc:24722:854859 */ t37963 = q64; /* x169041 stalin.sc:24722:854838 */ t37964 = t37962; t37959 = f8743(t37964, t37963); /* x169038 stalin.sc:24721:854799 */ t37960.tag = NULL_TYPE; /* MOVE: branching squeezed to general */ if (t37958>=((struct structure_type27650 *)VALUE_OFFSET)) {t37961.tag = STRUCTURE_TYPE27650; t37961.value.structure_type27650 = t37958;} else t37961.tag = (unsigned)t37958; t37952 = f7873(t37960, t37961, t37959); /* x169046 stalin.sc:24723:854881 */ t37953 = p18131->a32143; /* x169049 stalin.sc:24724:854888 */ /* x169048 stalin.sc:24724:854901 */ t37965 = p18131->a32132; /* x169047 stalin.sc:24724:854889 */ t37954 = f15762(t37965); /* x169050 stalin.sc:24725:854908 */ t37955 = p18131->a32142; /* x169069 stalin.sc:24726:854915 */ t37956 = p18131; /* x169075 stalin.sc:24730:855053 */ t37957 = p18131; /* x169037 stalin.sc:24720:854782 */ /* MOVE: squished to squished */ b26111 = ((unsigned)(t37952&(~3)))+("\001\000"[t37952&3]); b26112 = t37953; b26113 = t37954; b26114 = t37955; b26115.tag = NATIVE_PROCEDURE_TYPE22163; b26115.value.native_procedure_type22163 = t37956; b26116.tag = NATIVE_PROCEDURE_TYPE22162; b26116.value.native_procedure_type22162 = t37957; t37946 = f14692(); l5590: /* x169028 stalin.sc:24717:854705 */ t37950.tag = STRUCTURE_TYPE24753; t37950.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37950.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24717, 854704); out_of_memory_error();} t37950.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t37950.value.structure_type24753->s0.value.structure_type24753 = t37947; t37950.value.structure_type24753->s1.tag = NULL_TYPE; a41829 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41829==NULL) {backtrace("stalin.sc", 24717, 854704); out_of_memory_error();} a41829->s0 = t37946; a41829->s1 = t37950; /* x301428 stalin.sc:14400:506485 */ /* x301427 stalin.sc:14400:506503 */ t37948 = a41829; /* x301426 stalin.sc:14400:506486 */ t37949.tag = STRUCTURE_TYPE24753; t37949.value.structure_type24753 = t37948; t37945 = f13492(t37949); /* x169027 stalin.sc:24716:854685 */ t37930 = f13501(t37945); /* x169026 stalin.sc:24715:854651 */ t37929 = "void *branch(void *ignore)"; /* x169025 stalin.sc:24713:854561 */ /* x169024 stalin.sc:24713:854578 */ t37943 = "pthread_t thread"; /* x169023 stalin.sc:24713:854562 */ t37944.tag = STRING_TYPE; t37944.value.string_type = t37943; t37928 = f13514(t37944); /* x169022 stalin.sc:24712:854541 */ t37942.tag = STRUCTURE_TYPE24753; t37942.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37942.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24712, 854540); out_of_memory_error();} t37942.value.structure_type24753->s0 = t37934; t37942.value.structure_type24753->s1.tag = NULL_TYPE; t37941.tag = STRUCTURE_TYPE24753; t37941.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37941.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24712, 854540); out_of_memory_error();} t37941.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t37941.value.structure_type24753->s0.value.structure_type24753 = t37933; t37941.value.structure_type24753->s1 = t37942; t37940.tag = STRUCTURE_TYPE24753; t37940.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37940.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24712, 854540); out_of_memory_error();} t37940.value.structure_type24753->s0 = t37932; t37940.value.structure_type24753->s1 = t37941; t37939.tag = STRUCTURE_TYPE24753; t37939.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37939.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24712, 854540); out_of_memory_error();} t37939.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t37939.value.structure_type24753->s0.value.structure_type24753 = t37931; t37939.value.structure_type24753->s1 = t37940; t37938.tag = STRUCTURE_TYPE24753; t37938.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37938.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24712, 854540); out_of_memory_error();} t37938.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t37938.value.structure_type24753->s0.value.structure_type24753 = t37930; t37938.value.structure_type24753->s1 = t37939; t37937.tag = STRUCTURE_TYPE24753; t37937.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37937.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24712, 854540); out_of_memory_error();} t37937.value.structure_type24753->s0.tag = STRING_TYPE; t37937.value.structure_type24753->s0.value.string_type = t37929; t37937.value.structure_type24753->s1 = t37938; a41828 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41828==NULL) {backtrace("stalin.sc", 24712, 854540); out_of_memory_error();} a41828->s0.tag = STRUCTURE_TYPE24753; a41828->s0.value.structure_type24753 = t37928; a41828->s1 = t37937; /* x301424 stalin.sc:14400:506485 */ /* x301423 stalin.sc:14400:506503 */ t37935 = a41828; /* x301422 stalin.sc:14400:506486 */ t37936.tag = STRUCTURE_TYPE24753; t37936.value.structure_type24753 = t37935; t37926 = f13492(t37936); /* x169021 stalin.sc:24711:854523 */ t37927 = f13501(t37926); r15827.tag = STRUCTURE_TYPE24753; r15827.value.structure_type24753 = t37927; return r15827; case NATIVE_PROCEDURE_TYPE6033: a32086 = t37834; a32087 = t37835; a32096 = t37844; a32097 = t37845; e18119 = (struct p18119 *)GC_malloc(sizeof(struct p18119)); if (e18119==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e18119->a32086 = a32086; e18119->a32087 = a32087; e18119->a32096 = a32096; e18119->a32097 = a32097; /* x168870 stalin.sc:24657:852745 */ /* x168849 stalin.sc:24657:852758 */ /* x168850 stalin.sc:24658:852778 */ t38007 = e18119->a32097; /* x168851 stalin.sc:24659:852788 */ t38008 = e18119->a32086; /* x168852 stalin.sc:24660:852797 */ t38009 = e18119->a32096; /* x168863 stalin.sc:24661:852807 */ t38010 = e18119; /* x168869 stalin.sc:24662:852879 */ t38011 = e18119; /* x168848 stalin.sc:24657:852746 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7429; b26112 = t38007; b26113 = t38008; b26114 = t38009; b26115.tag = NATIVE_PROCEDURE_TYPE22149; b26115.value.native_procedure_type22149 = t38010; b26116.tag = NATIVE_PROCEDURE_TYPE22148; b26116.value.native_procedure_type22148 = t38011; return f14692(); case NATIVE_PROCEDURE_TYPE6039: a32043 = t37834; /* x168810 stalin.sc:24646:852437 */ /* x168806 stalin.sc:24646:852444 */ t38012 = a32043; /* x168808 stalin.sc:24646:852446 */ /* x168807 stalin.sc:24646:852447 */ /* x129362 stalin.sc:16106:561105 */ /* x129361 stalin.sc:16106:561115 */ /* x129360 stalin.sc:16106:561137 */ t38018 = "*"; /* x129359 stalin.sc:16106:561130 */ t38017 = "void"; /* x129358 stalin.sc:16106:561116 */ t38021.tag = STRUCTURE_TYPE24753; t38021.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t38021.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16106, 561115); out_of_memory_error();} t38021.value.structure_type24753->s0.tag = STRING_TYPE; t38021.value.structure_type24753->s0.value.string_type = t38018; t38021.value.structure_type24753->s1.tag = NULL_TYPE; a42012 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42012==NULL) {backtrace("stalin.sc", 16106, 561115); out_of_memory_error();} a42012->s0.tag = STRING_TYPE; a42012->s0.value.string_type = t38017; a42012->s1 = t38021; /* x302160 stalin.sc:14386:505956 */ /* x302159 stalin.sc:14386:505972 */ t38019 = a42012; /* x302158 stalin.sc:14386:505957 */ t38020.tag = STRUCTURE_TYPE24753; t38020.value.structure_type24753 = t38019; t38016 = f13474(t38020); /* x129357 stalin.sc:16106:561106 */ t38013 = f13544(t38016); /* x168809 stalin.sc:24646:852463 */ /* x168805 stalin.sc:24646:852438 */ t38014.tag = STRUCTURE_TYPE24753; t38014.value.structure_type24753 = t38013; t38015 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t38012, t38014, t38015); case NATIVE_PROCEDURE_TYPE6045: a32002 = t37834; /* x168777 stalin.sc:24637:852209 */ /* x168773 stalin.sc:24637:852216 */ t38022 = a32002; /* x168775 stalin.sc:24637:852218 */ /* x168774 stalin.sc:24637:852219 */ /* x129354 */ /* x129353 stalin.sc:16103:561034 */ /* x129352 stalin.sc:16103:561044 */ t38026 = "stdlib"; /* x129351 stalin.sc:16103:561035 */ t38027.tag = STRING_TYPE; t38027.value.string_type = t38026; f18320(t38027); /* x129350 */ /* x129349 stalin.sc:16104:561067 */ t38023 = "RAND_MAX"; /* x168776 stalin.sc:24637:852231 */ /* x168772 stalin.sc:24637:852210 */ t38024.tag = STRING_TYPE; t38024.value.string_type = t38023; t38025 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t38022, t38024, t38025); case NATIVE_PROCEDURE_TYPE6051: a31961 = t37834; /* x168744 stalin.sc:24628:851976 */ /* x168740 stalin.sc:24628:851983 */ t38028 = a31961; /* x168742 stalin.sc:24628:851985 */ /* x168741 stalin.sc:24628:851986 */ /* x129346 */ /* x129345 stalin.sc:16099:560956 */ /* x129344 stalin.sc:16099:560966 */ t38032 = "time"; /* x129343 stalin.sc:16099:560957 */ t38033.tag = STRING_TYPE; t38033.value.string_type = t38032; f18320(t38033); /* x129342 */ /* x129341 stalin.sc:16100:560993 */ t38029 = "CLOCKS_PER_SEC"; /* x168743 stalin.sc:24628:852007 */ /* x168739 stalin.sc:24628:851977 */ t38030.tag = STRING_TYPE; t38030.value.string_type = t38029; t38031 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t38028, t38030, t38031); case NATIVE_PROCEDURE_TYPE6057: a31918 = t37834; a31919 = t37835; a31928 = t37844; a31929 = t37845; e18088 = (struct p18088 *)GC_malloc(sizeof(struct p18088)); if (e18088==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e18088->a31918 = a31918; e18088->a31919 = a31919; e18088->a31928 = a31928; e18088->a31929 = a31929; /* x168711 stalin.sc:24613:851604 */ /* x168689 stalin.sc:24614:851619 */ /* x168690 stalin.sc:24615:851634 */ t38034 = e18088->a31929; /* x168691 stalin.sc:24616:851639 */ t38035 = e18088->a31918; /* x168692 stalin.sc:24617:851643 */ t38036 = e18088->a31928; /* x168704 stalin.sc:24618:851648 */ t38037 = e18088; /* x168710 stalin.sc:24619:851722 */ t38038 = e18088; /* x168688 stalin.sc:24613:851605 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t38034; b26113 = t38035; b26114 = t38036; b26115.tag = NATIVE_PROCEDURE_TYPE22142; b26115.value.native_procedure_type22142 = t38037; b26116.tag = NATIVE_PROCEDURE_TYPE22141; b26116.value.native_procedure_type22141 = t38038; return f14692(); case NATIVE_PROCEDURE_TYPE6063: a31874 = t37834; a31875 = t37835; a31884 = t37844; a31885 = t37845; e18079 = (struct p18079 *)GC_malloc(sizeof(struct p18079)); if (e18079==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e18079->a31874 = a31874; e18079->a31875 = a31875; e18079->a31884 = a31884; e18079->a31885 = a31885; /* x168655 stalin.sc:24598:851183 */ /* x168633 stalin.sc:24599:851198 */ /* x168634 stalin.sc:24600:851213 */ t38039 = e18079->a31885; /* x168635 stalin.sc:24601:851218 */ t38040 = e18079->a31874; /* x168636 stalin.sc:24602:851222 */ t38041 = e18079->a31884; /* x168648 stalin.sc:24603:851227 */ t38042 = e18079; /* x168654 stalin.sc:24604:851305 */ t38043 = e18079; /* x168632 stalin.sc:24598:851184 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t38039; b26113 = t38040; b26114 = t38041; b26115.tag = NATIVE_PROCEDURE_TYPE22144; b26115.value.native_procedure_type22144 = t38042; b26116.tag = NATIVE_PROCEDURE_TYPE22143; b26116.value.native_procedure_type22143 = t38043; return f14692(); case NATIVE_PROCEDURE_TYPE6069: a31830 = t37834; a31831 = t37835; a31840 = t37844; a31841 = t37845; e18070 = (struct p18070 *)GC_malloc(sizeof(struct p18070)); if (e18070==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e18070->a31830 = a31830; e18070->a31831 = a31831; e18070->a31840 = a31840; e18070->a31841 = a31841; /* x168599 stalin.sc:24583:850756 */ /* x168577 stalin.sc:24584:850771 */ /* x168578 stalin.sc:24585:850786 */ t38044 = e18070->a31841; /* x168579 stalin.sc:24586:850791 */ t38045 = e18070->a31830; /* x168580 stalin.sc:24587:850795 */ t38046 = e18070->a31840; /* x168592 stalin.sc:24588:850800 */ t38047 = e18070; /* x168598 stalin.sc:24589:850877 */ t38048 = e18070; /* x168576 stalin.sc:24583:850757 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t38044; b26113 = t38045; b26114 = t38046; b26115.tag = NATIVE_PROCEDURE_TYPE22140; b26115.value.native_procedure_type22140 = t38047; b26116.tag = NATIVE_PROCEDURE_TYPE22139; b26116.value.native_procedure_type22139 = t38048; return f14692(); case NATIVE_PROCEDURE_TYPE6075: a31786 = t37834; a31787 = t37835; a31796 = t37844; a31797 = t37845; e18061 = (struct p18061 *)GC_malloc(sizeof(struct p18061)); if (e18061==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e18061->a31786 = a31786; e18061->a31787 = a31787; e18061->a31796 = a31796; e18061->a31797 = a31797; /* x168543 stalin.sc:24568:850339 */ /* x168521 stalin.sc:24569:850354 */ /* x168522 stalin.sc:24570:850369 */ t38049 = e18061->a31797; /* x168523 stalin.sc:24571:850374 */ t38050 = e18061->a31786; /* x168524 stalin.sc:24572:850378 */ t38051 = e18061->a31796; /* x168536 stalin.sc:24573:850383 */ t38052 = e18061; /* x168542 stalin.sc:24574:850456 */ t38053 = e18061; /* x168520 stalin.sc:24568:850340 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t38049; b26113 = t38050; b26114 = t38051; b26115.tag = NATIVE_PROCEDURE_TYPE22146; b26115.value.native_procedure_type22146 = t38052; b26116.tag = NATIVE_PROCEDURE_TYPE22145; b26116.value.native_procedure_type22145 = t38053; return f14692(); case NATIVE_PROCEDURE_TYPE6081: a31751 = t37841; /* x168487 stalin.sc:24558:850047 */ /* x168486 stalin.sc:24558:850071 */ /* x168485 stalin.sc:24558:850048 */ t38054 = a31751; t38055 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7420; return f15830(t38054, t38055); case NATIVE_PROCEDURE_TYPE6087: a31697 = t37834; a31698 = t37835; a31707 = t37844; a31708 = t37845; e18040 = (struct p18040 *)GC_malloc(sizeof(struct p18040)); if (e18040==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e18040->a31698 = a31698; e18040->a31707 = a31707; e18040->a31708 = a31708; /* x168422 stalin.sc:24540:849476 */ /* x168404 stalin.sc:24540:849489 */ /* x168405 stalin.sc:24541:849509 */ t38056 = e18040->a31708; /* x168406 stalin.sc:24542:849519 */ t38057 = a31697; /* x168407 stalin.sc:24543:849528 */ t38058 = e18040->a31707; /* x168415 stalin.sc:24544:849538 */ t38059 = e18040; /* x168421 stalin.sc:24545:849588 */ t38060 = e18040; /* x168403 stalin.sc:24540:849477 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7822; b26112 = t38056; b26113 = t38057; b26114 = t38058; b26115.tag = NATIVE_PROCEDURE_TYPE22166; b26115.value.native_procedure_type22166 = t38059; b26116.tag = NATIVE_PROCEDURE_TYPE22165; b26116.value.native_procedure_type22165 = t38060; return f14692(); case NATIVE_PROCEDURE_TYPE6093: a31651 = t37834; a31652 = t37835; a31661 = t37844; a31662 = t37845; a31663 = t37846; a31664 = t37847; e18029 = (struct p18029 *)GC_malloc(sizeof(struct p18029)); if (e18029==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e18029->a31651 = a31651; e18029->a31652 = a31652; e18029->a31661 = a31661; e18029->a31662 = a31662; e18029->a31663 = a31663; e18029->a31664 = a31664; /* x168372 stalin.sc:24516:848941 */ /* x168331 stalin.sc:24517:848956 */ /* x168332 stalin.sc:24518:848969 */ t38061 = e18029->a31662; /* x168333 stalin.sc:24519:848974 */ t38062 = e18029->a31651; /* x168334 stalin.sc:24520:848978 */ t38063 = e18029->a31661; /* x168365 stalin.sc:24521:848983 */ t38064 = e18029; /* x168371 stalin.sc:24531:849226 */ t38065 = e18029; /* x168330 stalin.sc:24516:848942 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7431; b26112 = t38061; b26113 = t38062; b26114 = t38063; b26115.tag = NATIVE_PROCEDURE_TYPE22131; b26115.value.native_procedure_type22131 = t38064; b26116.tag = NATIVE_PROCEDURE_TYPE22130; b26116.value.native_procedure_type22130 = t38065; return f14692(); case NATIVE_PROCEDURE_TYPE6099: a31608 = t37834; /* x168296 stalin.sc:24507:848642 */ /* x168292 stalin.sc:24507:848649 */ t38066 = a31608; /* x168294 stalin.sc:24507:848651 */ /* x168293 stalin.sc:24507:848652 */ /* x129338 */ /* x129337 stalin.sc:16095:560884 */ /* x129336 stalin.sc:16095:560894 */ t38070 = "stdio"; /* x129335 stalin.sc:16095:560885 */ t38071.tag = STRING_TYPE; t38071.value.string_type = t38070; f18320(t38071); /* x129334 */ /* x129333 stalin.sc:16096:560914 */ t38067 = "stdout"; /* x168295 stalin.sc:24507:848662 */ /* x168291 stalin.sc:24507:848643 */ t38068.tag = STRING_TYPE; t38068.value.string_type = t38067; t38069 = (unsigned)NATIVE_PROCEDURE_TYPE7422; return f15508(t38066, t38068, t38069); case NATIVE_PROCEDURE_TYPE6105: a31567 = t37834; /* x168263 stalin.sc:24498:848400 */ /* x168259 stalin.sc:24498:848407 */ t38072 = a31567; /* x168261 stalin.sc:24498:848409 */ /* x168260 stalin.sc:24498:848410 */ /* x129330 */ /* x129329 stalin.sc:16091:560825 */ /* x129328 stalin.sc:16091:560835 */ t38076 = "stdio"; /* x129327 stalin.sc:16091:560826 */ t38077.tag = STRING_TYPE; t38077.value.string_type = t38076; f18320(t38077); /* x129326 */ /* x129325 stalin.sc:16092:560854 */ t38073 = "stdin"; /* x168262 stalin.sc:24498:848419 */ /* x168258 stalin.sc:24498:848401 */ t38074.tag = STRING_TYPE; t38074.value.string_type = t38073; t38075 = (unsigned)NATIVE_PROCEDURE_TYPE7423; return f15508(t38072, t38074, t38075); case NATIVE_PROCEDURE_TYPE6111: a31524 = t37834; a31525 = t37835; a31534 = t37844; a31535 = t37845; e18006 = (struct p18006 *)GC_malloc(sizeof(struct p18006)); if (e18006==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e18006->a31524 = a31524; e18006->a31525 = a31525; e18006->a31534 = a31534; e18006->a31535 = a31535; /* x168230 stalin.sc:24483:848029 */ /* x168209 stalin.sc:24484:848044 */ /* x168210 stalin.sc:24485:848063 */ t38078 = e18006->a31535; /* x168211 stalin.sc:24486:848068 */ t38079 = e18006->a31524; /* x168212 stalin.sc:24487:848072 */ t38080 = e18006->a31534; /* x168223 stalin.sc:24488:848077 */ t38081 = e18006; /* x168229 stalin.sc:24489:848147 */ t38082 = e18006; /* x168208 stalin.sc:24483:848030 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7423; b26112 = t38078; b26113 = t38079; b26114 = t38080; b26115.tag = NATIVE_PROCEDURE_TYPE22136; b26115.value.native_procedure_type22136 = t38081; b26116.tag = NATIVE_PROCEDURE_TYPE22135; b26116.value.native_procedure_type22135 = t38082; return f14692(); case NATIVE_PROCEDURE_TYPE6117: a31488 = t37841; /* x168170 stalin.sc:24472:847704 */ /* x168169 stalin.sc:24472:847728 */ /* x168168 stalin.sc:24472:847705 */ t38083 = a31488; t38084 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7421; return f15830(t38083, t38084); case NATIVE_PROCEDURE_TYPE6123: a31434 = t37834; a31435 = t37835; a31444 = t37844; a31445 = t37845; e17984 = (struct p17984 *)GC_malloc(sizeof(struct p17984)); if (e17984==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17984->a31434 = a31434; e17984->a31435 = a31435; e17984->a31444 = a31444; e17984->a31445 = a31445; /* x168105 stalin.sc:24449:846945 */ /* x168060 stalin.sc:24449:846958 */ /* x168061 stalin.sc:24450:846982 */ t38085 = e17984->a31445; /* x168062 stalin.sc:24451:846992 */ t38086 = e17984->a31434; /* x168063 stalin.sc:24452:847001 */ t38087 = e17984->a31444; /* x168098 stalin.sc:24453:847011 */ t38088 = e17984; /* x168104 stalin.sc:24459:847222 */ t38089 = e17984; /* x168059 stalin.sc:24449:846946 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7423; b26112 = t38085; b26113 = t38086; b26114 = t38087; b26115.tag = NATIVE_PROCEDURE_TYPE22138; b26115.value.native_procedure_type22138 = t38088; b26116.tag = NATIVE_PROCEDURE_TYPE22137; b26116.value.native_procedure_type22137 = t38089; return f14692(); case NATIVE_PROCEDURE_TYPE6129: a31389 = t37834; a31390 = t37835; a31399 = t37844; a31400 = t37845; e17974 = (struct p17974 *)GC_malloc(sizeof(struct p17974)); if (e17974==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17974->a31389 = a31389; e17974->a31390 = a31390; e17974->a31399 = a31399; e17974->a31400 = a31400; /* x168021 stalin.sc:24429:846372 */ /* x167983 stalin.sc:24429:846385 */ /* x167984 stalin.sc:24430:846409 */ t38090 = e17974->a31400; /* x167985 stalin.sc:24431:846419 */ t38091 = e17974->a31389; /* x167986 stalin.sc:24432:846428 */ t38092 = e17974->a31399; /* x168014 stalin.sc:24433:846438 */ t38093 = e17974; /* x168020 stalin.sc:24438:846610 */ t38094 = e17974; /* x167982 stalin.sc:24429:846373 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7423; b26112 = t38090; b26113 = t38091; b26114 = t38092; b26115.tag = NATIVE_PROCEDURE_TYPE22125; b26115.value.native_procedure_type22125 = t38093; b26116.tag = NATIVE_PROCEDURE_TYPE22124; b26116.value.native_procedure_type22124 = t38094; return f14692(); case NATIVE_PROCEDURE_TYPE6135: a31344 = t37834; a31345 = t37835; a31354 = t37844; a31355 = t37845; e17964 = (struct p17964 *)GC_malloc(sizeof(struct p17964)); if (e17964==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17964->a31344 = a31344; e17964->a31345 = a31345; e17964->a31354 = a31354; e17964->a31355 = a31355; /* x167944 stalin.sc:24405:845690 */ /* x167899 stalin.sc:24405:845703 */ /* x167900 stalin.sc:24406:845728 */ t38095 = e17964->a31355; /* x167901 stalin.sc:24407:845738 */ t38096 = e17964->a31344; /* x167902 stalin.sc:24408:845747 */ t38097 = e17964->a31354; /* x167937 stalin.sc:24409:845757 */ t38098 = e17964; /* x167943 stalin.sc:24418:846029 */ t38099 = e17964; /* x167898 stalin.sc:24405:845691 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7422; b26112 = t38095; b26113 = t38096; b26114 = t38097; b26115.tag = NATIVE_PROCEDURE_TYPE22128; b26115.value.native_procedure_type22128 = t38098; b26116.tag = NATIVE_PROCEDURE_TYPE22127; b26116.value.native_procedure_type22127 = t38099; return f14692(); case NATIVE_PROCEDURE_TYPE6141: a31300 = t37834; a31301 = t37835; a31310 = t37844; a31311 = t37845; e17955 = (struct p17955 *)GC_malloc(sizeof(struct p17955)); if (e17955==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17955->a31300 = a31300; e17955->a31301 = a31301; e17955->a31310 = a31310; e17955->a31311 = a31311; /* x167867 stalin.sc:24383:845070 */ /* x167822 stalin.sc:24383:845083 */ /* x167823 stalin.sc:24384:845107 */ t38100 = e17955->a31311; /* x167824 stalin.sc:24385:845117 */ t38101 = e17955->a31300; /* x167825 stalin.sc:24386:845126 */ t38102 = e17955->a31310; /* x167860 stalin.sc:24387:845136 */ t38103 = e17955; /* x167866 stalin.sc:24396:845407 */ t38104 = e17955; /* x167821 stalin.sc:24383:845071 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7423; b26112 = t38100; b26113 = t38101; b26114 = t38102; b26115.tag = NATIVE_PROCEDURE_TYPE22118; b26115.value.native_procedure_type22118 = t38103; b26116.tag = NATIVE_PROCEDURE_TYPE22117; b26116.value.native_procedure_type22117 = t38104; return f14692(); case NATIVE_PROCEDURE_TYPE6147: a31253 = t37834; a31254 = t37835; a31263 = t37844; a31264 = t37845; e17943 = (struct p17943 *)GC_malloc(sizeof(struct p17943)); if (e17943==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17943->a31253 = a31253; e17943->a31254 = a31254; e17943->a31263 = a31263; e17943->a31264 = a31264; /* x167790 stalin.sc:24339:843775 */ /* x167643 stalin.sc:24340:843790 */ /* x167644 stalin.sc:24341:843805 */ t38105 = e17943->a31264; /* x167645 stalin.sc:24342:843810 */ t38106 = e17943->a31253; /* x167646 stalin.sc:24343:843814 */ t38107 = e17943->a31263; /* x167783 stalin.sc:24344:843819 */ t38108 = e17943; /* x167789 stalin.sc:24374:844791 */ t38109 = e17943; /* x167642 stalin.sc:24339:843776 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7822; b26112 = t38105; b26113 = t38106; b26114 = t38107; b26115.tag = NATIVE_PROCEDURE_TYPE22120; b26115.value.native_procedure_type22120 = t38108; b26116.tag = NATIVE_PROCEDURE_TYPE22119; b26116.value.native_procedure_type22119 = t38109; return f14692(); case NATIVE_PROCEDURE_TYPE6153: a31206 = t37834; a31207 = t37835; a31216 = t37844; a31217 = t37845; e17931 = (struct p17931 *)GC_malloc(sizeof(struct p17931)); if (e17931==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17931->a31206 = a31206; e17931->a31207 = a31207; e17931->a31216 = a31216; e17931->a31217 = a31217; /* x167609 stalin.sc:24296:842473 */ /* x167462 stalin.sc:24297:842488 */ /* x167463 stalin.sc:24298:842503 */ t38110 = e17931->a31217; /* x167464 stalin.sc:24299:842508 */ t38111 = e17931->a31206; /* x167465 stalin.sc:24300:842512 */ t38112 = e17931->a31216; /* x167602 stalin.sc:24301:842517 */ t38113 = e17931; /* x167608 stalin.sc:24330:843478 */ t38114 = e17931; /* x167461 stalin.sc:24296:842474 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7822; b26112 = t38110; b26113 = t38111; b26114 = t38112; b26115.tag = NATIVE_PROCEDURE_TYPE22113; b26115.value.native_procedure_type22113 = t38113; b26116.tag = NATIVE_PROCEDURE_TYPE22112; b26116.value.native_procedure_type22112 = t38114; return f14692(); case NATIVE_PROCEDURE_TYPE6159: a31171 = t37841; /* x167428 stalin.sc:24287:842190 */ /* x167427 stalin.sc:24287:842214 */ /* x167426 stalin.sc:24287:842191 */ t38115 = a31171; t38116 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7422; return f15830(t38115, t38116); case NATIVE_PROCEDURE_TYPE6165: a31126 = t37841; /* x167363 stalin.sc:24273:841702 */ /* x167362 stalin.sc:24273:841726 */ /* x167361 stalin.sc:24273:841703 */ t38117 = a31126; t38118 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7423; return f15830(t38117, t38118); case NATIVE_PROCEDURE_TYPE6171: a31049 = t37834; a31050 = t37835; a31057 = t37842; a31058 = t37843; a31059 = t37844; a31060 = t37845; e17869 = (struct p17869 *)GC_malloc(sizeof(struct p17869)); if (e17869==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17869->a31049 = a31049; e17869->a31050 = a31050; e17869->a31057 = a31057; e17869->a31058 = a31058; e17869->a31059 = a31059; e17869->a31060 = a31060; /* x167298 stalin.sc:24160:837856 */ /* x167297 stalin.sc:24160:837865 */ /* x167296 stalin.sc:24160:837882 */ t38209 = e17869->a31049; /* x167295 stalin.sc:24160:837866 */ a38411 = t38209; /* x286313 */ /* x286312 */ t38210 = a38411; /* x286311 */ if (!(t38210>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33328]"); structure_ref_error();} t38120 = t38210->s2; /* x167294 */ t38119 = e17869; p17870 = t38119; a31065 = t38120; e17870 = (struct p17870 *)GC_malloc(sizeof(struct p17870)); if (e17870==NULL) {backtrace_internal("[inside top level 17869]"); out_of_memory_error();} e17870->p17869 = p17870; e17870->a31065 = a31065; /* x167293 */ /* x167292 stalin.sc:24161:837889 */ /* x167285 stalin.sc:24161:837895 */ /* x167284 stalin.sc:24161:837907 */ t38206 = p17870->a31050; /* x167283 stalin.sc:24161:837896 */ t38207.tag = STRUCTURE_TYPE27745; t38207.value.structure_type27745 = t38206; if (f8944(t38207)==FALSE_TYPE) goto l5608; /* x167289 */ /* x167288 */ /* x167287 stalin.sc:24161:837910 */ /* x167286 stalin.sc:24161:837911 */ /* x295545 QobiScheme.sc:166:5314 */ /* x295544 QobiScheme.sc:166:5321 */ t38208 = "This shouldn\'t happen"; /* x295543 QobiScheme.sc:166:5315 */ stalin_panic(t38208); goto l5609; l5608: /* x167291 stalin.sc:24161:837889 */ /* x167290 stalin.sc:24161:837889 */ l5609: /* x167282 */ t38121 = e17870; p17871 = t38121; /* x167281 stalin.sc:24162:837923 */ /* x167280 stalin.sc:24239:840608 */ /* x167270 stalin.sc:24239:840612 */ /* x167268 stalin.sc:24240:840622 */ t38196 = p17871->p17869; /* x167269 stalin.sc:24258:841202 */ t38197 = p17871->p17869->a31060; /* x167200 stalin.sc:24239:840613 */ t38198.tag = NATIVE_PROCEDURE_TYPE22078; t38198.value.native_procedure_type22078 = t38196; if ((f8137(t38198, t38197).tag)==FALSE_TYPE) goto l5605; /* x167277 stalin.sc:24259:841213 */ /* x167276 stalin.sc:24259:841218 */ /* x167275 stalin.sc:24259:841223 */ /* x167274 stalin.sc:24259:841245 */ t38204 = p17871->p17869->a31050; /* x167273 stalin.sc:24259:841224 */ a36425 = t38204; /* x278369 */ /* x278368 */ t38205 = a36425; /* x278367 */ t38203 = t38205->s0; /* x167272 stalin.sc:24259:841219 */ t38199 = f14318(t38203); /* x167271 stalin.sc:24259:841214 */ a25388 = t38199; /* x123486 stalin.sc:14702:515041 */ /* x123485 stalin.sc:14702:515054 */ t38200 = a25388; /* x123484 stalin.sc:14702:515042 */ t38201.tag = STRUCTURE_TYPE24753; t38201.value.structure_type24753 = t38200; t38202 = f13515(t38201); t38123.tag = STRUCTURE_TYPE24753; t38123.value.structure_type24753 = t38202; goto l5606; l5605: /* x167279 stalin.sc:24260:841257 */ /* x167278 stalin.sc:24260:841258 */ /* x276489 stalin.sc:14693:514793 */ t38123.tag = STRING_TYPE; t38123.value.string_type = ""; l5606: /* x167199 stalin.sc:24163:837943 */ /* x166934 stalin.sc:24164:837954 */ /* x166932 stalin.sc:24165:837969 */ t38127 = p17871->p17869; /* x166933 stalin.sc:24183:838554 */ t38128 = p17871->p17869->a31060; /* x166862 stalin.sc:24164:837955 */ t38129.tag = NATIVE_PROCEDURE_TYPE22079; t38129.value.native_procedure_type22079 = t38127; if ((f8137(t38129, t38128).tag)==FALSE_TYPE) goto l5598; /* x167132 */ /* x167131 */ t38151 = p17871; p17876 = t38151; /* x167130 */ /* x167089 stalin.sc:24184:838563 */ /* x167088 stalin.sc:24184:838573 */ t38173 = "setjmp"; /* x167087 stalin.sc:24184:838564 */ t38174.tag = STRING_TYPE; t38174.value.string_type = t38173; f18320(t38174); /* x167117 stalin.sc:24185:838598 */ /* x167100 stalin.sc:24185:838606 */ /* x167099 stalin.sc:24185:838610 */ /* x167098 stalin.sc:24185:838620 */ t38175 = p17876->p17869->a31049; /* x167097 stalin.sc:24185:838611 */ /* MOVE: branching squeezed to general */ if (t38175>=((struct structure_type27501 *)VALUE_OFFSET)) {t38176.tag = STRUCTURE_TYPE27501; t38176.value.structure_type27501 = t38175;} else t38176.tag = (unsigned)t38175; if (!(f7031(t38176)==FALSE_TYPE)) goto l5600; p17886 = p17876; /* x167094 */ /* x167093 stalin.sc:24185:838636 */ t38177 = p17886->a31065; /* x167092 stalin.sc:24185:838624 */ if (f8793(t38177)==FALSE_TYPE) goto l5601; l5600: /* x167102 */ /* x167101 */ goto l5602; l5601: /* x167116 */ /* x167115 */ t38178 = p17876; p17888 = t38178; /* x167114 stalin.sc:24186:838646 */ /* x167113 stalin.sc:24186:838660 */ /* x167105 stalin.sc:24186:838675 */ t38180 = p17888->a31065; /* x167110 stalin.sc:24186:838677 */ /* x167109 stalin.sc:24186:838682 */ /* x167108 stalin.sc:24186:838704 */ t38184 = p17888->p17869->a31050; /* x167107 stalin.sc:24186:838683 */ a36421 = t38184; /* x278353 */ /* x278352 */ t38185 = a36421; /* x278351 */ t38183 = t38185->s0; /* x167106 stalin.sc:24186:838678 */ t38181 = f14316(t38183); /* x167112 stalin.sc:24186:838708 */ /* x167111 stalin.sc:24186:838709 */ /* x276487 stalin.sc:14693:514793 */ t38182 = ""; /* x167104 stalin.sc:24186:838661 */ t38179 = f13517(t38180, t38181, t38182); /* x167103 stalin.sc:24186:838647 */ f13460(t38179); l5602: /* x167129 stalin.sc:24188:838782 */ /* x167128 stalin.sc:24188:838796 */ /* x167127 stalin.sc:24189:838819 */ /* x167126 stalin.sc:24189:838843 */ /* x167125 stalin.sc:24189:838848 */ /* x167124 stalin.sc:24189:838870 */ t38194 = p17876->p17869->a31050; /* x167123 stalin.sc:24189:838849 */ a36422 = t38194; /* x278357 */ /* x278356 */ t38195 = a36422; /* x278355 */ t38193 = t38195->s0; /* x167122 stalin.sc:24189:838844 */ t38189 = f14279(t38193); /* x167121 stalin.sc:24189:838834 */ t38188 = a1244; /* x167120 stalin.sc:24189:838820 */ t38192.tag = STRUCTURE_TYPE24753; t38192.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t38192.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24189, 838819); out_of_memory_error();} t38192.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t38192.value.structure_type24753->s0.value.structure_type24753 = t38189; t38192.value.structure_type24753->s1.tag = NULL_TYPE; a42014 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42014==NULL) {backtrace("stalin.sc", 24189, 838819); out_of_memory_error();} a42014->s0 = t38188; a42014->s1 = t38192; /* x302168 stalin.sc:14386:505956 */ /* x302167 stalin.sc:14386:505972 */ t38190 = a42014; /* x302166 stalin.sc:14386:505957 */ t38191.tag = STRUCTURE_TYPE24753; t38191.value.structure_type24753 = t38190; t38187 = f13474(t38191); /* x167119 stalin.sc:24188:838797 */ t38186 = f13514(t38187); /* x167118 stalin.sc:24188:838783 */ f13469(t38186); /* x167086 */ t38152 = p17876; p17877 = t38152; /* x167085 stalin.sc:24190:838882 */ /* x166951 stalin.sc:24191:838901 */ /* x166945 stalin.sc:24191:838924 */ /* x166944 stalin.sc:24191:838930 */ /* x166943 stalin.sc:24192:838965 */ /* x166942 stalin.sc:24192:838981 */ /* x166941 stalin.sc:24192:839003 */ t38168 = p17877->p17869->a31050; /* x166940 stalin.sc:24192:838982 */ a36420 = t38168; /* x278349 */ /* x278348 */ t38169 = a36420; /* x278347 */ t38167 = t38169->s0; /* x166939 stalin.sc:24192:838966 */ t38165 = f7110(t38167); /* x166938 stalin.sc:24191:838931 */ t38166 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t38166==NULL) {backtrace("stalin.sc", 24191, 838930); out_of_memory_error();} t38166->s0.tag = STRUCTURE_TYPE27858; t38166->s0.value.structure_type27858 = t38165; t38166->s1.tag = NULL_TYPE; t38164 = f8098(t38166); /* x166937 stalin.sc:24191:838925 */ a35100 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35100==NULL) {backtrace("stalin.sc", 24191, 838924); out_of_memory_error();} a35100->s0.tag = STRUCTURE_TYPE27650; a35100->s0.value.structure_type27650 = t38164; a35100->s1.tag = NULL_TYPE; /* x272207 */ t38159 = a35100; /* x166946 stalin.sc:24193:839017 */ t38160 = a1675; /* x166950 stalin.sc:24194:839032 */ /* x166948 stalin.sc:24194:839052 */ t38170 = p17877->p17869->a31050; /* x166949 stalin.sc:24194:839054 */ t38171 = q64; /* x166947 stalin.sc:24194:839033 */ t38172 = t38170; t38161 = f8743(t38172, t38171); /* x166936 stalin.sc:24191:838902 */ t38162.tag = STRUCTURE_TYPE24753; t38162.value.structure_type24753 = t38159; /* MOVE: branching squeezed to general */ if (t38160>=((struct structure_type27650 *)VALUE_OFFSET)) {t38163.tag = STRUCTURE_TYPE27650; t38163.value.structure_type27650 = t38160;} else t38163.tag = (unsigned)t38160; t38153 = f7873(t38162, t38163, t38161); /* x166952 stalin.sc:24195:839078 */ t38154 = p17877->p17869->a31060; /* x166953 stalin.sc:24196:839087 */ t38155 = p17877->p17869->a31049; /* x166954 stalin.sc:24197:839095 */ t38156 = p17877->p17869->a31059; /* x167078 stalin.sc:24198:839104 */ t38157 = p17877; /* x167084 stalin.sc:24222:839960 */ t38158 = p17877->p17869; /* x166935 stalin.sc:24190:838883 */ /* MOVE: squished to squished */ b26111 = ((unsigned)(t38153&(~3)))+("\001\000"[t38153&3]); b26112 = t38154; b26113 = t38155; b26114 = t38156; b26115.tag = NATIVE_PROCEDURE_TYPE22092; b26115.value.native_procedure_type22092 = t38157; b26116.tag = NATIVE_PROCEDURE_TYPE22091; b26116.value.native_procedure_type22091 = t38158; t38122 = f14692(); goto l5599; l5598: /* x167198 */ /* x167197 */ t38130 = p17871->p17869; p17889 = t38130; /* x167196 stalin.sc:24224:840045 */ /* x167149 stalin.sc:24225:840064 */ /* x167143 stalin.sc:24225:840087 */ /* x167142 stalin.sc:24225:840093 */ /* x167141 stalin.sc:24226:840128 */ /* x167140 stalin.sc:24226:840144 */ /* x167139 stalin.sc:24226:840166 */ t38146 = p17889->a31050; /* x167138 stalin.sc:24226:840145 */ a36424 = t38146; /* x278365 */ /* x278364 */ t38147 = a36424; /* x278363 */ t38145 = t38147->s0; /* x167137 stalin.sc:24226:840129 */ t38143 = f7110(t38145); /* x167136 stalin.sc:24225:840094 */ t38144 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t38144==NULL) {backtrace("stalin.sc", 24225, 840093); out_of_memory_error();} t38144->s0.tag = STRUCTURE_TYPE27858; t38144->s0.value.structure_type27858 = t38143; t38144->s1.tag = NULL_TYPE; t38142 = f8098(t38144); /* x167135 stalin.sc:24225:840088 */ a35104 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35104==NULL) {backtrace("stalin.sc", 24225, 840087); out_of_memory_error();} a35104->s0.tag = STRUCTURE_TYPE27650; a35104->s0.value.structure_type27650 = t38142; a35104->s1.tag = NULL_TYPE; /* x272215 */ t38137 = a35104; /* x167144 stalin.sc:24227:840180 */ t38138 = a1675; /* x167148 stalin.sc:24228:840195 */ /* x167146 stalin.sc:24228:840215 */ t38148 = p17889->a31050; /* x167147 stalin.sc:24228:840217 */ t38149 = q64; /* x167145 stalin.sc:24228:840196 */ t38150 = t38148; t38139 = f8743(t38150, t38149); /* x167134 stalin.sc:24225:840065 */ t38140.tag = STRUCTURE_TYPE24753; t38140.value.structure_type24753 = t38137; /* MOVE: branching squeezed to general */ if (t38138>=((struct structure_type27650 *)VALUE_OFFSET)) {t38141.tag = STRUCTURE_TYPE27650; t38141.value.structure_type27650 = t38138;} else t38141.tag = (unsigned)t38138; t38131 = f7873(t38140, t38141, t38139); /* x167150 stalin.sc:24229:840241 */ t38132 = p17889->a31060; /* x167151 stalin.sc:24230:840250 */ t38133 = p17889->a31049; /* x167152 stalin.sc:24231:840258 */ t38134 = p17889->a31059; /* x167189 stalin.sc:24232:840267 */ t38135 = p17889; /* x167195 stalin.sc:24238:840534 */ t38136 = p17889; /* x167133 stalin.sc:24224:840046 */ /* MOVE: squished to squished */ b26111 = ((unsigned)(t38131&(~3)))+("\001\000"[t38131&3]); b26112 = t38132; b26113 = t38133; b26114 = t38134; b26115.tag = NATIVE_PROCEDURE_TYPE22082; b26115.value.native_procedure_type22082 = t38135; b26116.tag = NATIVE_PROCEDURE_TYPE22081; b26116.value.native_procedure_type22081 = t38136; t38122 = f14692(); l5599: /* x166861 stalin.sc:24162:837924 */ t38126.tag = STRUCTURE_TYPE24753; t38126.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t38126.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24162, 837923); out_of_memory_error();} t38126.value.structure_type24753->s0 = *((struct w49 *)(&t38123)); t38126.value.structure_type24753->s1.tag = NULL_TYPE; a41832 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41832==NULL) {backtrace("stalin.sc", 24162, 837923); out_of_memory_error();} a41832->s0 = t38122; a41832->s1 = t38126; /* x301440 stalin.sc:14400:506485 */ /* x301439 stalin.sc:14400:506503 */ t38124 = a41832; /* x301438 stalin.sc:14400:506486 */ t38125.tag = STRUCTURE_TYPE24753; t38125.value.structure_type24753 = t38124; return f13492(t38125); case NATIVE_PROCEDURE_TYPE6177: a30994 = t37834; a30995 = t37835; a30997 = t37837; a30998 = t37838; a31002 = t37842; a31003 = t37843; a31004 = t37844; a31005 = t37845; e17839 = (struct p17839 *)GC_malloc(sizeof(struct p17839)); if (e17839==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17839->a30994 = a30994; e17839->a30995 = a30995; e17839->a30997 = a30997; e17839->a30998 = a30998; e17839->a31002 = a31002; e17839->a31003 = a31003; e17839->a31004 = a31004; e17839->a31005 = a31005; /* x166545 stalin.sc:24061:834690 */ /* x166437 stalin.sc:24061:834694 */ /* x166436 stalin.sc:24061:834701 */ t38211 = e17839->a31005; /* x166435 stalin.sc:24061:834695 */ if (f8147(t38211)==FALSE_TYPE) goto l5611; /* x166442 stalin.sc:24062:834710 */ /* x166439 stalin.sc:24062:834725 */ t38235 = "void_call"; /* x166440 stalin.sc:24062:834737 */ t38236 = e17839->a30995; /* x166441 stalin.sc:24062:834739 */ /* x166438 stalin.sc:24062:834711 */ t38237.tag = STRUCTURE_TYPE27745; t38237.value.structure_type27745 = t38236; t38238 = TRUE_TYPE; t38239 = f15534(t38235, t38237, t38238); r15827.tag = STRUCTURE_TYPE24753; r15827.value.structure_type24753 = t38239; return r15827; l5611: /* x166544 stalin.sc:24063:834748 */ /* x166469 stalin.sc:24064:834767 */ /* x166461 stalin.sc:24065:834797 */ /* x166447 stalin.sc:24065:834801 */ /* x166446 stalin.sc:24065:834813 */ t38221 = e17839->a30995; /* x166445 stalin.sc:24065:834802 */ t38222.tag = STRUCTURE_TYPE27745; t38222.value.structure_type27745 = t38221; if (f8944(t38222)==FALSE_TYPE) goto l5613; /* x166455 stalin.sc:24065:834816 */ /* x166449 stalin.sc:24065:834822 */ t38226 = e17839->a31003; /* x166454 stalin.sc:24065:834825 */ /* x166453 stalin.sc:24065:834835 */ /* x166452 stalin.sc:24065:834841 */ t38229 = e17839->a30998; /* x166451 stalin.sc:24065:834836 */ a35384 = t38229; /* x272893 */ /* x272892 */ t38230 = a35384; /* x272891 */ if (!((t38230.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29533]"); structure_ref_error();} t38228 = t38230.value.structure_type24753->s1; /* x166450 stalin.sc:24065:834826 */ t38227 = f1005(t38228); /* x268071 stalin.sc:24065:834817 */ t38218.tag = STRUCTURE_TYPE24753; t38218.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t38218.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24065, 834816); out_of_memory_error();} t38218.value.structure_type24753->s0 = t38226; t38218.value.structure_type24753->s1 = *((struct w49 *)(&t38227)); goto l5614; l5613: /* x166460 stalin.sc:24065:834847 */ /* x166459 stalin.sc:24065:834857 */ /* x166458 stalin.sc:24065:834863 */ t38224 = e17839->a30998; /* x166457 stalin.sc:24065:834858 */ a35385 = t38224; /* x272897 */ /* x272896 */ t38225 = a35385; /* x272895 */ if (!((t38225.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29534]"); structure_ref_error();} t38223 = t38225.value.structure_type24753->s1; /* x166456 stalin.sc:24065:834848 */ t38218 = f1005(t38223); l5614: /* x166464 stalin.sc:24066:834876 */ /* x166463 stalin.sc:24066:834882 */ t38231 = e17839->a30998; /* x166462 stalin.sc:24066:834877 */ t38219 = f960(t38231); /* x166468 stalin.sc:24067:834893 */ /* x166466 stalin.sc:24067:834913 */ t38232 = e17839->a30995; /* x166467 stalin.sc:24067:834915 */ t38233 = q64; /* x166465 stalin.sc:24067:834894 */ t38234 = t38232; t38220 = f8743(t38234, t38233); /* x166444 stalin.sc:24064:834768 */ t38212 = f7873(t38218, t38219, t38220); /* x166470 stalin.sc:24068:834939 */ t38213 = e17839->a31005; /* x166471 stalin.sc:24069:834948 */ t38214 = e17839->a30994; /* x166472 stalin.sc:24070:834956 */ t38215 = e17839->a31004; /* x166537 stalin.sc:24071:834965 */ t38216 = e17839; /* x166543 stalin.sc:24081:835337 */ t38217 = e17839; /* x166443 stalin.sc:24063:834749 */ /* MOVE: squished to squished */ b26111 = ((unsigned)(t38212&(~3)))+("\001\000"[t38212&3]); b26112 = t38213; b26113 = t38214; b26114 = t38215; b26115.tag = NATIVE_PROCEDURE_TYPE22038; b26115.value.native_procedure_type22038 = t38216; b26116.tag = NATIVE_PROCEDURE_TYPE22037; b26116.value.native_procedure_type22037 = t38217; return f14692(); case NATIVE_PROCEDURE_TYPE6183: a30951 = t37841; /* x166268 stalin.sc:24028:833520 */ /* x166267 stalin.sc:24028:833544 */ /* x166266 stalin.sc:24028:833521 */ t38240 = a30951; t38241 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7415; return f15830(t38240, t38241); case NATIVE_PROCEDURE_TYPE6189: a30895 = t37834; a30896 = t37835; a30905 = t37844; a30906 = t37845; a30907 = t37846; a30908 = t37847; a30909 = t37848; a30910 = t37849; e17803 = (struct p17803 *)GC_malloc(sizeof(struct p17803)); if (e17803==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17803->a30895 = a30895; e17803->a30896 = a30896; e17803->a30905 = a30905; e17803->a30906 = a30906; e17803->a30907 = a30907; e17803->a30908 = a30908; e17803->a30909 = a30909; e17803->a30910 = a30910; /* x166203 stalin.sc:23985:832423 */ /* x166115 stalin.sc:23986:832438 */ /* x166116 stalin.sc:23987:832453 */ t38242 = e17803->a30906; /* x166117 stalin.sc:23988:832458 */ t38243 = e17803->a30895; /* x166118 stalin.sc:23989:832462 */ t38244 = e17803->a30905; /* x166196 stalin.sc:23990:832467 */ t38245 = e17803; /* x166202 stalin.sc:24015:833043 */ t38246 = e17803; /* x166114 stalin.sc:23985:832424 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7406; b26112 = t38242; b26113 = t38243; b26114 = t38244; b26115.tag = NATIVE_PROCEDURE_TYPE22011; b26115.value.native_procedure_type22011 = t38245; b26116.tag = NATIVE_PROCEDURE_TYPE22010; b26116.value.native_procedure_type22010 = t38246; return f14692(); case NATIVE_PROCEDURE_TYPE6195: a30844 = t37834; a30845 = t37835; a30854 = t37844; a30855 = t37845; a30856 = t37846; a30857 = t37847; e17783 = (struct p17783 *)GC_malloc(sizeof(struct p17783)); if (e17783==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17783->a30844 = a30844; e17783->a30845 = a30845; e17783->a30854 = a30854; e17783->a30855 = a30855; e17783->a30856 = a30856; e17783->a30857 = a30857; /* x166022 stalin.sc:23934:831178 */ /* x165945 stalin.sc:23935:831193 */ /* x165946 stalin.sc:23936:831208 */ t38247 = e17783->a30855; /* x165947 stalin.sc:23937:831213 */ t38248 = e17783->a30844; /* x165948 stalin.sc:23938:831217 */ t38249 = e17783->a30854; /* x166015 stalin.sc:23939:831222 */ t38250 = e17783; /* x166021 stalin.sc:23959:831690 */ t38251 = e17783; /* x165944 stalin.sc:23934:831179 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7406; b26112 = t38247; b26113 = t38248; b26114 = t38249; b26115.tag = NATIVE_PROCEDURE_TYPE22015; b26115.value.native_procedure_type22015 = t38250; b26116.tag = NATIVE_PROCEDURE_TYPE22014; b26116.value.native_procedure_type22014 = t38251; return f14692(); case NATIVE_PROCEDURE_TYPE6201: a30794 = t37834; a30795 = t37835; a30804 = t37844; a30805 = t37845; e17759 = (struct p17759 *)GC_malloc(sizeof(struct p17759)); if (e17759==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17759->a30794 = a30794; e17759->a30795 = a30795; e17759->a30804 = a30804; e17759->a30805 = a30805; /* x165823 stalin.sc:23896:830073 */ /* x165803 stalin.sc:23897:830088 */ /* x165804 stalin.sc:23898:830103 */ t38252 = e17759->a30805; /* x165805 stalin.sc:23899:830108 */ t38253 = e17759->a30794; /* x165806 stalin.sc:23900:830112 */ t38254 = e17759->a30804; /* x165816 stalin.sc:23901:830117 */ t38255 = e17759; /* x165822 stalin.sc:23902:830187 */ t38256 = e17759; /* x165802 stalin.sc:23896:830074 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7406; b26112 = t38252; b26113 = t38253; b26114 = t38254; b26115.tag = NATIVE_PROCEDURE_TYPE22009; b26115.value.native_procedure_type22009 = t38255; b26116.tag = NATIVE_PROCEDURE_TYPE22008; b26116.value.native_procedure_type22008 = t38256; return f14692(); case NATIVE_PROCEDURE_TYPE6207: a30745 = t37834; a30746 = t37835; a30748 = t37837; a30749 = t37838; e17736 = (struct p17736 *)GC_malloc(sizeof(struct p17736)); if (e17736==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17736->a30746 = a30746; e17736->a30748 = a30748; e17736->a30749 = a30749; /* x165731 stalin.sc:23852:828710 */ /* x165616 stalin.sc:23853:828719 */ /* x165615 stalin.sc:23853:828729 */ t38257 = a30745; /* x165614 stalin.sc:23853:828720 */ /* MOVE: branching squeezed to general */ if (t38257>=((struct structure_type27501 *)VALUE_OFFSET)) {t38258.tag = STRUCTURE_TYPE27501; t38258.value.structure_type27501 = t38257;} else t38258.tag = (unsigned)t38257; if (f7031(t38258)==FALSE_TYPE) goto l5616; /* x165620 */ /* x165619 */ /* x165618 stalin.sc:23853:828732 */ /* x165617 stalin.sc:23853:828733 */ /* x276493 stalin.sc:14693:514793 */ r15827.tag = STRING_TYPE; r15827.value.string_type = ""; return r15827; l5616: /* x165730 */ /* x165623 stalin.sc:23854:828745 */ /* x165622 stalin.sc:23854:828758 */ t38259 = a30745; /* x165621 stalin.sc:23854:828746 */ /* MOVE: branching squeezed to general */ if (t38259>=((struct structure_type27501 *)VALUE_OFFSET)) {t38260.tag = STRUCTURE_TYPE27501; t38260.value.structure_type27501 = t38259;} else t38260.tag = (unsigned)t38259; if (f7032(t38260)==FALSE_TYPE) goto l5618; /* x165628 */ /* x165627 */ /* x165626 stalin.sc:23854:828761 */ /* x165625 stalin.sc:23854:828774 */ t38307 = a30745; /* x165624 stalin.sc:23854:828762 */ return f14707(t38307); l5618: /* x165729 */ /* x165638 stalin.sc:23855:828781 */ /* x165631 stalin.sc:23855:828786 */ /* x165630 stalin.sc:23855:828795 */ t38261 = a30745; /* x165629 stalin.sc:23855:828787 */ /* MOVE: branching squeezed to general */ if (t38261>=((struct structure_type27501 *)VALUE_OFFSET)) {t38262.tag = STRUCTURE_TYPE27501; t38262.value.structure_type27501 = t38261;} else t38262.tag = (unsigned)t38261; if (f7030(t38262)==FALSE_TYPE) goto l5620; /* x165636 */ /* x165635 stalin.sc:23855:828803 */ /* x165634 stalin.sc:23855:828821 */ t38263 = a30745; /* x165633 stalin.sc:23855:828804 */ /* MOVE: branching squeezed to general */ if (t38263>=((struct structure_type27501 *)VALUE_OFFSET)) {t38264.tag = STRUCTURE_TYPE27501; t38264.value.structure_type27501 = t38263;} else t38264.tag = (unsigned)t38263; if (!(f15338(t38264)==FALSE_TYPE)) goto l5620; /* x165643 */ /* x165642 */ /* x165641 stalin.sc:23855:828826 */ /* x165640 stalin.sc:23855:828842 */ t38305 = a30745; /* x165639 stalin.sc:23855:828827 */ /* MOVE: branching squeezed to general */ if (t38305>=((struct structure_type27501 *)VALUE_OFFSET)) {t38306.tag = STRUCTURE_TYPE27501; t38306.value.structure_type27501 = t38305;} else t38306.tag = (unsigned)t38305; return f15342(t38306); l5620: /* x165728 */ /* x165727 */ t38265 = e17736; p17740 = t38265; /* x165726 stalin.sc:23856:828854 */ /* x165725 stalin.sc:23856:828864 */ /* x165724 stalin.sc:23856:828874 */ t38303 = a30745; /* x165723 stalin.sc:23856:828865 */ a38384 = t38303; /* x286205 */ /* x286204 */ t38304 = a38384; /* x286203 */ if (!(t38304>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-C[5769] 33301]"); structure_ref_error();} t38267 = t38304->s3; /* x165722 */ t38266 = p17740; p17741 = t38266; a30761 = t38267; e17741 = (struct p17741 *)GC_malloc(sizeof(struct p17741)); if (e17741==NULL) {backtrace_internal("[inside top level 17740]"); out_of_memory_error();} e17741->p17736 = p17741; e17741->a30761 = a30761; /* x165721 */ /* x165720 stalin.sc:23857:828889 */ /* x165719 stalin.sc:23857:828906 */ t38301 = a30745; /* x165718 stalin.sc:23857:828890 */ a38412 = t38301; /* x286317 */ /* x286316 */ t38302 = a38412; /* x286315 */ if (!(t38302>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33329]"); structure_ref_error();} t38269 = t38302->s2; /* x165717 */ t38268 = e17741; p17742 = t38268; a30762 = t38269; e17742 = (struct p17742 *)GC_malloc(sizeof(struct p17742)); if (e17742==NULL) {backtrace_internal("[inside top level 17741]"); out_of_memory_error();} e17742->p17741 = p17742; e17742->a30762 = a30762; /* x165716 */ /* x165715 stalin.sc:23858:828921 */ /* x165713 stalin.sc:23859:828943 */ t38298 = p17742->p17736; /* x165714 stalin.sc:23863:829089 */ t38299 = e17742->a30762; /* x165699 stalin.sc:23858:828922 */ t38300.tag = NATIVE_PROCEDURE_TYPE22021; t38300.value.native_procedure_type22021 = t38298; t38271 = f8157(t38300, t38299); /* x165698 */ t38270 = e17742; p17743 = t38270; a30763 = t38271; e17743 = (struct p17743 *)GC_malloc(sizeof(struct p17743)); if (e17743==NULL) {backtrace_internal("[inside top level 17742]"); out_of_memory_error();} e17743->p17742 = p17743; e17743->a30763 = a30763; /* x165697 */ /* x165696 */ t38272 = e17743; p17744 = t38272; /* x165695 stalin.sc:23864:829096 */ /* x165694 stalin.sc:23876:829469 */ /* x165693 stalin.sc:23876:829485 */ t38296 = a30745; /* x165692 stalin.sc:23876:829470 */ /* MOVE: branching squeezed to general */ if (t38296>=((struct structure_type27501 *)VALUE_OFFSET)) {t38297.tag = STRUCTURE_TYPE27501; t38297.value.structure_type27501 = t38296;} else t38297.tag = (unsigned)t38296; t38275 = f15342(t38297); /* x165691 stalin.sc:23866:829183 */ /* x165690 stalin.sc:23867:829205 */ /* x165686 stalin.sc:23867:829212 */ t38291 = p17744; /* x165689 stalin.sc:23875:829452 */ /* x165688 stalin.sc:23875:829460 */ t38295 = p17744->p17742->p17741->p17736->a30749; /* x165687 stalin.sc:23875:829453 */ t38292 = f26227(t38295); /* x165657 stalin.sc:23867:829206 */ t38293.tag = NATIVE_PROCEDURE_TYPE22024; t38293.value.native_procedure_type22024 = t38291; t38294.tag = FIXNUM_TYPE; t38294.value.fixnum_type = t38292; t38289 = f1149(t38293, t38294); /* x165656 stalin.sc:23866:829184 */ t38290 = *((struct w49 *)(&t38289)); t38274 = f13492(t38290); /* x165655 stalin.sc:23865:829116 */ /* x165646 stalin.sc:23865:829148 */ t38280 = p17744->p17742->p17741->a30761; /* x165647 stalin.sc:23865:829150 */ t38281 = p17744->a30763; /* x165648 stalin.sc:23865:829152 */ t38282 = p17744->p17742->a30762; /* x165653 stalin.sc:23865:829154 */ /* x165652 stalin.sc:23865:829164 */ /* x165651 stalin.sc:23865:829172 */ t38288 = p17744->p17742->p17741->p17736->a30749; /* x165650 stalin.sc:23865:829165 */ t38286 = f26227(t38288); /* x165649 stalin.sc:23865:829155 */ t38287.tag = FIXNUM_TYPE; t38287.value.fixnum_type = t38286; t38283 = f13530(t38287); /* x165654 stalin.sc:23865:829177 */ t38284 = p17744->p17742->p17741->p17736->a30746; /* x165645 stalin.sc:23865:829117 */ t38285.tag = STRING_TYPE; t38285.value.string_type = t38283; t38273 = f15621(t38280, t38281, t38282, t38285, t38284); /* x165644 stalin.sc:23864:829097 */ t38279.tag = STRUCTURE_TYPE24753; t38279.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t38279.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23864, 829096); out_of_memory_error();} t38279.value.structure_type24753->s0 = t38275; t38279.value.structure_type24753->s1.tag = NULL_TYPE; t38278.tag = STRUCTURE_TYPE24753; t38278.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t38278.value.structure_type24753)==NULL) {backtrace("stalin.sc", 23864, 829096); out_of_memory_error();} t38278.value.structure_type24753->s0 = t38274; t38278.value.structure_type24753->s1 = t38279; a41819 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41819==NULL) {backtrace("stalin.sc", 23864, 829096); out_of_memory_error();} a41819->s0 = t38273; a41819->s1 = t38278; /* x301388 stalin.sc:14400:506485 */ /* x301387 stalin.sc:14400:506503 */ t38276 = a41819; /* x301386 stalin.sc:14400:506486 */ t38277.tag = STRUCTURE_TYPE24753; t38277.value.structure_type24753 = t38276; return f13492(t38277); case NATIVE_PROCEDURE_TYPE6213: a30685 = t37834; a30686 = t37835; a30695 = t37844; a30696 = t37845; a30697 = t37846; a30698 = t37847; a30699 = t37848; a30700 = t37849; e17704 = (struct p17704 *)GC_malloc(sizeof(struct p17704)); if (e17704==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17704->a30685 = a30685; e17704->a30686 = a30686; e17704->a30695 = a30695; e17704->a30696 = a30696; e17704->a30697 = a30697; e17704->a30698 = a30698; e17704->a30699 = a30699; e17704->a30700 = a30700; /* x165490 stalin.sc:23767:826356 */ /* x165489 stalin.sc:23767:826365 */ /* x165488 stalin.sc:23767:826382 */ t38315 = e17704->a30685; /* x165487 stalin.sc:23767:826366 */ a38414 = t38315; /* x286325 */ /* x286324 */ t38316 = a38414; /* x286323 */ if (!(t38316>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33331]"); structure_ref_error();} t38309 = t38316->s2; /* x165486 */ t38308 = e17704; p17705 = t38308; a30701 = t38309; e17705 = (struct p17705 *)GC_malloc(sizeof(struct p17705)); if (e17705==NULL) {backtrace_internal("[inside top level 17704]"); out_of_memory_error();} e17705->p17704 = p17705; e17705->a30701 = a30701; /* x165485 stalin.sc:23768:826389 */ /* x165315 stalin.sc:23769:826405 */ /* x165316 stalin.sc:23770:826421 */ t38310 = p17705->a30696; /* x165317 stalin.sc:23771:826427 */ t38311 = p17705->a30685; /* x165318 stalin.sc:23772:826432 */ t38312 = p17705->a30695; /* x165478 stalin.sc:23773:826438 */ t38313 = e17705; /* x165484 stalin.sc:23819:827659 */ t38314 = p17705; /* x165314 stalin.sc:23768:826390 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7406; b26112 = t38310; b26113 = t38311; b26114 = t38312; b26115.tag = NATIVE_PROCEDURE_TYPE21979; b26115.value.native_procedure_type21979 = t38313; b26116.tag = NATIVE_PROCEDURE_TYPE21978; b26116.value.native_procedure_type21978 = t38314; return f14692(); case NATIVE_PROCEDURE_TYPE6219: a30623 = t37834; a30624 = t37835; a30627 = t37838; a30633 = t37844; a30634 = t37845; a30635 = t37846; a30636 = t37847; e17673 = (struct p17673 *)GC_malloc(sizeof(struct p17673)); if (e17673==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17673->a30623 = a30623; e17673->a30624 = a30624; e17673->a30627 = a30627; e17673->a30633 = a30633; e17673->a30634 = a30634; e17673->a30635 = a30635; e17673->a30636 = a30636; /* x165261 stalin.sc:23684:824160 */ /* x165024 stalin.sc:23685:824169 */ /* x165023 stalin.sc:23685:824179 */ t38317 = e17673->a30623; /* x165022 stalin.sc:23685:824170 */ /* MOVE: branching squeezed to general */ if (t38317>=((struct structure_type27501 *)VALUE_OFFSET)) {t38318.tag = STRUCTURE_TYPE27501; t38318.value.structure_type27501 = t38317;} else t38318.tag = (unsigned)t38317; if (f7031(t38318)==FALSE_TYPE) goto l5623; /* x165041 */ /* x165040 */ t38357 = e17673; p17674 = t38357; /* x165039 stalin.sc:23686:824185 */ /* x165026 stalin.sc:23686:824198 */ /* x165027 stalin.sc:23687:824213 */ t38358 = p17674->a30634; /* x165028 stalin.sc:23688:824218 */ t38359 = p17674->a30623; /* x165029 stalin.sc:23689:824222 */ t38360 = p17674->a30633; /* x165032 stalin.sc:23690:824227 */ /* x165038 stalin.sc:23691:824252 */ t38361 = p17674; /* x165025 stalin.sc:23686:824186 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t38358; b26113 = t38359; b26114 = t38360; b26115.tag = NATIVE_PROCEDURE_TYPE22007; b26116.tag = NATIVE_PROCEDURE_TYPE22006; b26116.value.native_procedure_type22006 = t38361; return f14692(); l5623: /* x165260 */ /* x165044 stalin.sc:23692:824306 */ /* x165043 stalin.sc:23692:824319 */ t38319 = e17673->a30623; /* x165042 stalin.sc:23692:824307 */ /* MOVE: branching squeezed to general */ if (t38319>=((struct structure_type27501 *)VALUE_OFFSET)) {t38320.tag = STRUCTURE_TYPE27501; t38320.value.structure_type27501 = t38319;} else t38320.tag = (unsigned)t38319; if (f7032(t38320)==FALSE_TYPE) goto l5625; /* x165062 */ /* x165061 */ t38351 = e17673; p17677 = t38351; /* x165060 stalin.sc:23693:824325 */ /* x165046 stalin.sc:23693:824338 */ /* x165047 stalin.sc:23694:824353 */ t38352 = p17677->a30634; /* x165048 stalin.sc:23695:824358 */ t38353 = p17677->a30623; /* x165049 stalin.sc:23696:824362 */ t38354 = p17677->a30633; /* x165053 stalin.sc:23697:824367 */ t38355 = p17677; /* x165059 stalin.sc:23698:824399 */ t38356 = p17677; /* x165045 stalin.sc:23693:824326 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t38352; b26113 = t38353; b26114 = t38354; b26115.tag = NATIVE_PROCEDURE_TYPE22004; b26115.value.native_procedure_type22004 = t38355; b26116.tag = NATIVE_PROCEDURE_TYPE22003; b26116.value.native_procedure_type22003 = t38356; return f14692(); l5625: /* x165259 */ /* x165072 stalin.sc:23699:824453 */ /* x165065 stalin.sc:23699:824458 */ /* x165064 stalin.sc:23699:824467 */ t38321 = e17673->a30623; /* x165063 stalin.sc:23699:824459 */ /* MOVE: branching squeezed to general */ if (t38321>=((struct structure_type27501 *)VALUE_OFFSET)) {t38322.tag = STRUCTURE_TYPE27501; t38322.value.structure_type27501 = t38321;} else t38322.tag = (unsigned)t38321; if (f7030(t38322)==FALSE_TYPE) goto l5627; /* x165070 */ /* x165069 stalin.sc:23699:824475 */ /* x165068 stalin.sc:23699:824493 */ t38323 = e17673->a30623; /* x165067 stalin.sc:23699:824476 */ /* MOVE: branching squeezed to general */ if (t38323>=((struct structure_type27501 *)VALUE_OFFSET)) {t38324.tag = STRUCTURE_TYPE27501; t38324.value.structure_type27501 = t38323;} else t38324.tag = (unsigned)t38323; if (!(f15338(t38324)==FALSE_TYPE)) goto l5627; /* x165090 */ /* x165089 */ t38345 = e17673; p17680 = t38345; /* x165088 stalin.sc:23700:824501 */ /* x165074 stalin.sc:23700:824514 */ /* x165075 stalin.sc:23701:824529 */ t38346 = p17680->a30634; /* x165076 stalin.sc:23702:824534 */ t38347 = p17680->a30623; /* x165077 stalin.sc:23703:824538 */ t38348 = p17680->a30633; /* x165081 stalin.sc:23704:824543 */ t38349 = p17680; /* x165087 stalin.sc:23705:824578 */ t38350 = p17680; /* x165073 stalin.sc:23700:824502 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t38346; b26113 = t38347; b26114 = t38348; b26115.tag = NATIVE_PROCEDURE_TYPE22001; b26115.value.native_procedure_type22001 = t38349; b26116.tag = NATIVE_PROCEDURE_TYPE22000; b26116.value.native_procedure_type22000 = t38350; return f14692(); l5627: /* x165258 */ /* x165257 */ t38325 = e17673; p17683 = t38325; /* x165256 stalin.sc:23707:824640 */ /* x165255 stalin.sc:23707:824650 */ /* x165254 stalin.sc:23707:824660 */ t38343 = p17683->a30623; /* x165253 stalin.sc:23707:824651 */ a38385 = t38343; /* x286209 */ /* x286208 */ t38344 = a38385; /* x286207 */ if (!(t38344>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-C[5769] 33302]"); structure_ref_error();} t38327 = t38344->s3; /* x165252 */ t38326 = p17683; p17684 = t38326; a30645 = t38327; e17684 = (struct p17684 *)GC_malloc(sizeof(struct p17684)); if (e17684==NULL) {backtrace_internal("[inside top level 17683]"); out_of_memory_error();} e17684->p17673 = p17684; e17684->a30645 = a30645; /* x165251 */ /* x165250 stalin.sc:23708:824670 */ /* x165249 stalin.sc:23708:824687 */ t38341 = p17684->a30623; /* x165248 stalin.sc:23708:824671 */ a38413 = t38341; /* x286321 */ /* x286320 */ t38342 = a38413; /* x286319 */ if (!(t38342>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33330]"); structure_ref_error();} t38329 = t38342->s2; /* x165247 */ t38328 = e17684; p17685 = t38328; a30646 = t38329; e17685 = (struct p17685 *)GC_malloc(sizeof(struct p17685)); if (e17685==NULL) {backtrace_internal("[inside top level 17684]"); out_of_memory_error();} e17685->p17684 = p17685; e17685->a30646 = a30646; /* x165246 */ /* x165245 stalin.sc:23709:824697 */ /* x165243 stalin.sc:23710:824721 */ t38338 = p17685->p17673; /* x165244 stalin.sc:23714:824868 */ t38339 = e17685->a30646; /* x165229 stalin.sc:23709:824698 */ t38340.tag = NATIVE_PROCEDURE_TYPE21994; t38340.value.native_procedure_type21994 = t38338; t38331 = f8157(t38340, t38339); /* x165228 */ t38330 = e17685; p17686 = t38330; a30647 = t38331; e17686 = (struct p17686 *)GC_malloc(sizeof(struct p17686)); if (e17686==NULL) {backtrace_internal("[inside top level 17685]"); out_of_memory_error();} e17686->p17685 = p17686; e17686->a30647 = a30647; /* x165227 */ /* x165226 */ t38332 = e17686; p17687 = t38332; /* x165225 stalin.sc:23715:824877 */ /* x165092 stalin.sc:23716:824895 */ /* x165093 stalin.sc:23717:824913 */ t38333 = p17687->p17685->p17684->p17673->a30634; /* x165094 stalin.sc:23718:824921 */ t38334 = p17687->p17685->p17684->p17673->a30623; /* x165095 stalin.sc:23719:824928 */ t38335 = p17687->p17685->p17684->p17673->a30633; /* x165218 stalin.sc:23720:824936 */ t38336 = p17687; /* x165224 stalin.sc:23753:825875 */ t38337 = p17687->p17685->p17684->p17673; /* x165091 stalin.sc:23715:824878 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t38333; b26113 = t38334; b26114 = t38335; b26115.tag = NATIVE_PROCEDURE_TYPE21998; b26115.value.native_procedure_type21998 = t38336; b26116.tag = NATIVE_PROCEDURE_TYPE21997; b26116.value.native_procedure_type21997 = t38337; return f14692(); case NATIVE_PROCEDURE_TYPE6225: a30579 = t37841; /* x164871 stalin.sc:23640:822708 */ /* x164870 stalin.sc:23640:822732 */ /* x164869 stalin.sc:23640:822709 */ t38362 = a30579; t38363 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7406; return f15830(t38362, t38363); case NATIVE_PROCEDURE_TYPE6231: a30521 = t37834; a30522 = t37835; a30531 = t37844; a30532 = t37845; a30533 = t37846; a30534 = t37847; a30535 = t37848; a30536 = t37849; e17635 = (struct p17635 *)GC_malloc(sizeof(struct p17635)); if (e17635==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17635->a30521 = a30521; e17635->a30522 = a30522; e17635->a30531 = a30531; e17635->a30532 = a30532; e17635->a30533 = a30533; e17635->a30534 = a30534; e17635->a30535 = a30535; e17635->a30536 = a30536; /* x164806 stalin.sc:23595:821571 */ /* x164710 stalin.sc:23596:821586 */ /* x164711 stalin.sc:23597:821601 */ t38364 = e17635->a30532; /* x164712 stalin.sc:23598:821606 */ t38365 = e17635->a30521; /* x164713 stalin.sc:23599:821610 */ t38366 = e17635->a30531; /* x164799 stalin.sc:23600:821615 */ t38367 = e17635; /* x164805 stalin.sc:23627:822249 */ t38368 = e17635; /* x164709 stalin.sc:23595:821572 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7822; b26112 = t38364; b26113 = t38365; b26114 = t38366; b26115.tag = NATIVE_PROCEDURE_TYPE22101; b26115.value.native_procedure_type22101 = t38367; b26116.tag = NATIVE_PROCEDURE_TYPE22100; b26116.value.native_procedure_type22100 = t38368; return f14692(); case NATIVE_PROCEDURE_TYPE6237: a30473 = t37834; a30474 = t37835; a30483 = t37844; a30484 = t37845; a30485 = t37846; a30486 = t37847; e17624 = (struct p17624 *)GC_malloc(sizeof(struct p17624)); if (e17624==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17624->a30473 = a30473; e17624->a30474 = a30474; e17624->a30483 = a30483; e17624->a30484 = a30484; e17624->a30485 = a30485; e17624->a30486 = a30486; /* x164672 stalin.sc:23563:820739 */ /* x164597 stalin.sc:23564:820754 */ /* x164598 stalin.sc:23565:820769 */ t38369 = e17624->a30484; /* x164599 stalin.sc:23566:820774 */ t38370 = e17624->a30473; /* x164600 stalin.sc:23567:820778 */ t38371 = e17624->a30483; /* x164665 stalin.sc:23568:820783 */ t38372 = e17624; /* x164671 stalin.sc:23586:821228 */ t38373 = e17624; /* x164596 stalin.sc:23563:820740 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7822; b26112 = t38369; b26113 = t38370; b26114 = t38371; b26115.tag = NATIVE_PROCEDURE_TYPE21945; b26115.value.native_procedure_type21945 = t38372; b26116.tag = NATIVE_PROCEDURE_TYPE21944; b26116.value.native_procedure_type21944 = t38373; return f14692(); case NATIVE_PROCEDURE_TYPE6243: a30426 = t37834; a30427 = t37835; a30436 = t37844; a30437 = t37845; e17611 = (struct p17611 *)GC_malloc(sizeof(struct p17611)); if (e17611==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17611->a30426 = a30426; e17611->a30427 = a30427; e17611->a30436 = a30436; e17611->a30437 = a30437; /* x164542 stalin.sc:23542:820164 */ /* x164522 stalin.sc:23543:820179 */ /* x164523 stalin.sc:23544:820194 */ t38374 = e17611->a30437; /* x164524 stalin.sc:23545:820199 */ t38375 = e17611->a30426; /* x164525 stalin.sc:23546:820203 */ t38376 = e17611->a30436; /* x164535 stalin.sc:23547:820208 */ t38377 = e17611; /* x164541 stalin.sc:23548:820278 */ t38378 = e17611; /* x164521 stalin.sc:23542:820165 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7822; b26112 = t38374; b26113 = t38375; b26114 = t38376; b26115.tag = NATIVE_PROCEDURE_TYPE21949; b26115.value.native_procedure_type21949 = t38377; b26116.tag = NATIVE_PROCEDURE_TYPE21948; b26116.value.native_procedure_type21948 = t38378; return f14692(); case NATIVE_PROCEDURE_TYPE6249: a30371 = t37834; a30372 = t37835; a30374 = t37837; a30375 = t37838; e17588 = (struct p17588 *)GC_malloc(sizeof(struct p17588)); if (e17588==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17588->a30371 = a30371; e17588->a30372 = a30372; e17588->a30374 = a30374; e17588->a30375 = a30375; /* x164470 stalin.sc:23501:818964 */ /* x164467 stalin.sc:23501:818980 */ t38380 = e17588->a30374; /* x164468 stalin.sc:23501:818988 */ /* x164469 stalin.sc:23501:818998 */ t38381 = e17588->a30375; /* x164466 */ /* x164465 */ /* x164464 */ /* x164463 */ t38382 = e17588; p17589 = t38382; /* x164462 */ /* x164461 */ /* x164460 */ /* x164330 */ t38383 = p17589; p17590 = t38383; /* x164329 stalin.sc:23501:818969 */ t38379 = p17590; d17591 = t38379; b30389 = t38380; b30390 = (struct structure_type24753 *)NULL_TYPE; b30391 = t38381; return f17591(); case NATIVE_PROCEDURE_TYPE6255: a30303 = t37834; a30304 = t37835; a30307 = t37838; a30313 = t37844; a30314 = t37845; a30315 = t37846; a30316 = t37847; e17554 = (struct p17554 *)GC_malloc(sizeof(struct p17554)); if (e17554==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17554->a30303 = a30303; e17554->a30304 = a30304; e17554->a30307 = a30307; e17554->a30313 = a30313; e17554->a30314 = a30314; e17554->a30315 = a30315; e17554->a30316 = a30316; /* x164288 stalin.sc:23387:815946 */ /* x163940 stalin.sc:23388:815955 */ /* x163939 stalin.sc:23388:815965 */ t38384 = e17554->a30303; /* x163938 stalin.sc:23388:815956 */ /* MOVE: branching squeezed to general */ if (t38384>=((struct structure_type27501 *)VALUE_OFFSET)) {t38385.tag = STRUCTURE_TYPE27501; t38385.value.structure_type27501 = t38384;} else t38385.tag = (unsigned)t38384; if (f7031(t38385)==FALSE_TYPE) goto l5630; /* x163979 */ /* x163978 */ t38417 = e17554; p17555 = t38417; /* x163977 stalin.sc:23389:815971 */ /* x163942 stalin.sc:23390:815988 */ /* x163943 stalin.sc:23391:816005 */ t38418 = p17555->a30314; /* x163944 stalin.sc:23392:816012 */ t38419 = p17555->a30303; /* x163945 stalin.sc:23393:816018 */ t38420 = p17555->a30313; /* x163970 stalin.sc:23394:816025 */ t38421 = p17555; /* x163976 stalin.sc:23403:816230 */ t38422 = p17555; /* x163941 stalin.sc:23389:815972 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t38418; b26113 = t38419; b26114 = t38420; b26115.tag = NATIVE_PROCEDURE_TYPE21972; b26115.value.native_procedure_type21972 = t38421; b26116.tag = NATIVE_PROCEDURE_TYPE21971; b26116.value.native_procedure_type21971 = t38422; return f14692(); l5630: /* x164287 */ /* x163982 stalin.sc:23404:816285 */ /* x163981 stalin.sc:23404:816298 */ t38386 = e17554->a30303; /* x163980 stalin.sc:23404:816286 */ /* MOVE: branching squeezed to general */ if (t38386>=((struct structure_type27501 *)VALUE_OFFSET)) {t38387.tag = STRUCTURE_TYPE27501; t38387.value.structure_type27501 = t38386;} else t38387.tag = (unsigned)t38386; if (f7032(t38387)==FALSE_TYPE) goto l5632; /* x164023 */ /* x164022 */ t38411 = e17554; p17560 = t38411; /* x164021 stalin.sc:23405:816304 */ /* x163984 stalin.sc:23406:816321 */ /* x163985 stalin.sc:23407:816338 */ t38412 = p17560->a30314; /* x163986 stalin.sc:23408:816345 */ t38413 = p17560->a30303; /* x163987 stalin.sc:23409:816351 */ t38414 = p17560->a30313; /* x164014 stalin.sc:23410:816358 */ t38415 = p17560; /* x164020 stalin.sc:23419:816577 */ t38416 = p17560; /* x163983 stalin.sc:23405:816305 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t38412; b26113 = t38413; b26114 = t38414; b26115.tag = NATIVE_PROCEDURE_TYPE21967; b26115.value.native_procedure_type21967 = t38415; b26116.tag = NATIVE_PROCEDURE_TYPE21966; b26116.value.native_procedure_type21966 = t38416; return f14692(); l5632: /* x164286 */ /* x164033 stalin.sc:23420:816632 */ /* x164026 stalin.sc:23420:816637 */ /* x164025 stalin.sc:23420:816646 */ t38388 = e17554->a30303; /* x164024 stalin.sc:23420:816638 */ /* MOVE: branching squeezed to general */ if (t38388>=((struct structure_type27501 *)VALUE_OFFSET)) {t38389.tag = STRUCTURE_TYPE27501; t38389.value.structure_type27501 = t38388;} else t38389.tag = (unsigned)t38388; if (f7030(t38389)==FALSE_TYPE) goto l5634; /* x164031 */ /* x164030 stalin.sc:23420:816654 */ /* x164029 stalin.sc:23420:816672 */ t38390 = e17554->a30303; /* x164028 stalin.sc:23420:816655 */ /* MOVE: branching squeezed to general */ if (t38390>=((struct structure_type27501 *)VALUE_OFFSET)) {t38391.tag = STRUCTURE_TYPE27501; t38391.value.structure_type27501 = t38390;} else t38391.tag = (unsigned)t38390; if (!(f15338(t38391)==FALSE_TYPE)) goto l5634; /* x164074 */ /* x164073 */ t38405 = e17554; p17565 = t38405; /* x164072 stalin.sc:23421:816680 */ /* x164035 stalin.sc:23422:816697 */ /* x164036 stalin.sc:23423:816714 */ t38406 = p17565->a30314; /* x164037 stalin.sc:23424:816721 */ t38407 = p17565->a30303; /* x164038 stalin.sc:23425:816727 */ t38408 = p17565->a30313; /* x164065 stalin.sc:23426:816734 */ t38409 = p17565; /* x164071 stalin.sc:23435:816959 */ t38410 = p17565; /* x164034 stalin.sc:23421:816681 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t38406; b26113 = t38407; b26114 = t38408; b26115.tag = NATIVE_PROCEDURE_TYPE21962; b26115.value.native_procedure_type21962 = t38409; b26116.tag = NATIVE_PROCEDURE_TYPE21961; b26116.value.native_procedure_type21961 = t38410; return f14692(); l5634: /* x164285 */ /* x164284 */ t38392 = e17554; p17570 = t38392; /* x164283 stalin.sc:23437:817022 */ /* x164279 stalin.sc:23438:817050 */ /* x164278 stalin.sc:23438:817067 */ t38401 = p17570->a30303; /* x164277 stalin.sc:23438:817051 */ a38415 = t38401; /* x286329 */ /* x286328 */ t38402 = a38415; /* x286327 */ if (!(t38402>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33332]"); structure_ref_error();} t38394 = t38402->s2; /* x164282 stalin.sc:23437:817031 */ /* x164281 stalin.sc:23437:817041 */ t38403 = p17570->a30303; /* x164280 stalin.sc:23437:817032 */ a38386 = t38403; /* x286213 */ /* x286212 */ t38404 = a38386; /* x286211 */ if (!(t38404>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-C[5769] 33303]"); structure_ref_error();} t38395 = t38404->s3; /* x164276 */ t38393 = p17570; p17571 = t38393; a30331 = t38394; a30332 = t38395; e17571 = (struct p17571 *)GC_malloc(sizeof(struct p17571)); if (e17571==NULL) {backtrace_internal("[inside top level 17570]"); out_of_memory_error();} e17571->p17554 = p17571; e17571->a30331 = a30331; e17571->a30332 = a30332; /* x164275 stalin.sc:23439:817076 */ /* x164076 stalin.sc:23440:817094 */ /* x164077 stalin.sc:23441:817112 */ t38396 = p17571->a30314; /* x164078 stalin.sc:23442:817120 */ t38397 = p17571->a30303; /* x164079 stalin.sc:23443:817127 */ t38398 = p17571->a30313; /* x164268 stalin.sc:23444:817135 */ t38399 = e17571; /* x164274 stalin.sc:23491:818616 */ t38400 = p17571; /* x164075 stalin.sc:23439:817077 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t38396; b26113 = t38397; b26114 = t38398; b26115.tag = NATIVE_PROCEDURE_TYPE21953; b26115.value.native_procedure_type21953 = t38399; b26116.tag = NATIVE_PROCEDURE_TYPE21952; b26116.value.native_procedure_type21952 = t38400; return f14692(); case NATIVE_PROCEDURE_TYPE6261: a30266 = t37841; /* x163890 stalin.sc:23375:815436 */ /* x163889 stalin.sc:23375:815460 */ /* x163888 stalin.sc:23375:815437 */ t38423 = a30266; t38424 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7822; return f15830(t38423, t38424); case NATIVE_PROCEDURE_TYPE6267: a30212 = t37834; a30213 = t37835; a30222 = t37844; a30223 = t37845; e17532 = (struct p17532 *)GC_malloc(sizeof(struct p17532)); if (e17532==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17532->a30212 = a30212; e17532->a30213 = a30213; e17532->a30222 = a30222; e17532->a30223 = a30223; /* x163825 stalin.sc:23347:814625 */ /* x163769 stalin.sc:23348:814640 */ /* x163770 stalin.sc:23349:814655 */ t38425 = e17532->a30223; /* x163771 stalin.sc:23350:814660 */ t38426 = e17532->a30212; /* x163772 stalin.sc:23351:814664 */ t38427 = e17532->a30222; /* x163818 stalin.sc:23352:814669 */ t38428 = e17532; /* x163824 stalin.sc:23362:814972 */ t38429 = e17532; /* x163768 stalin.sc:23347:814626 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t38425; b26113 = t38426; b26114 = t38427; b26115.tag = NATIVE_PROCEDURE_TYPE21976; b26115.value.native_procedure_type21976 = t38428; b26116.tag = NATIVE_PROCEDURE_TYPE21975; b26116.value.native_procedure_type21975 = t38429; return f14692(); case NATIVE_PROCEDURE_TYPE6273: a30168 = t37834; a30169 = t37835; a30178 = t37844; a30179 = t37845; e17523 = (struct p17523 *)GC_malloc(sizeof(struct p17523)); if (e17523==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17523->a30168 = a30168; e17523->a30169 = a30169; e17523->a30178 = a30178; e17523->a30179 = a30179; /* x163735 stalin.sc:23330:814193 */ /* x163711 stalin.sc:23331:814208 */ /* x163712 stalin.sc:23332:814221 */ t38430 = e17523->a30179; /* x163713 stalin.sc:23333:814226 */ t38431 = e17523->a30168; /* x163714 stalin.sc:23334:814230 */ t38432 = e17523->a30178; /* x163728 stalin.sc:23335:814235 */ t38433 = e17523; /* x163734 stalin.sc:23338:814339 */ t38434 = e17523; /* x163710 stalin.sc:23330:814194 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7431; b26112 = t38430; b26113 = t38431; b26114 = t38432; b26115.tag = NATIVE_PROCEDURE_TYPE21388; b26115.value.native_procedure_type21388 = t38433; b26116.tag = NATIVE_PROCEDURE_TYPE21387; b26116.value.native_procedure_type21387 = t38434; return f14692(); case NATIVE_PROCEDURE_TYPE6279: a30133 = t37841; /* x163677 stalin.sc:23321:813929 */ /* x163676 stalin.sc:23321:813953 */ /* x163675 stalin.sc:23321:813930 */ t38435 = a30133; t38436 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7431; return f15830(t38435, t38436); case NATIVE_PROCEDURE_TYPE6285: a30079 = t37834; a30080 = t37835; a30089 = t37844; a30090 = t37845; e17498 = (struct p17498 *)GC_malloc(sizeof(struct p17498)); if (e17498==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17498->a30079 = a30079; e17498->a30080 = a30080; e17498->a30089 = a30089; e17498->a30090 = a30090; /* x163612 stalin.sc:23291:813018 */ /* x163525 stalin.sc:23292:813033 */ /* x163526 stalin.sc:23293:813048 */ t38437 = e17498->a30090; /* x163527 stalin.sc:23294:813053 */ t38438 = e17498->a30079; /* x163528 stalin.sc:23295:813057 */ t38439 = e17498->a30089; /* x163605 stalin.sc:23296:813062 */ t38440 = e17498; /* x163611 stalin.sc:23308:813476 */ t38441 = e17498; /* x163524 stalin.sc:23291:813019 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38437; b26113 = t38438; b26114 = t38439; b26115.tag = NATIVE_PROCEDURE_TYPE21382; b26115.value.native_procedure_type21382 = t38440; b26116.tag = NATIVE_PROCEDURE_TYPE21381; b26116.value.native_procedure_type21381 = t38441; return f14692(); case NATIVE_PROCEDURE_TYPE6291: a30035 = t37834; a30036 = t37835; a30045 = t37844; a30046 = t37845; e17485 = (struct p17485 *)GC_malloc(sizeof(struct p17485)); if (e17485==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17485->a30035 = a30035; e17485->a30036 = a30036; e17485->a30045 = a30045; e17485->a30046 = a30046; /* x163491 stalin.sc:23270:812408 */ /* x163429 stalin.sc:23271:812423 */ /* x163430 stalin.sc:23272:812438 */ t38442 = e17485->a30046; /* x163431 stalin.sc:23273:812443 */ t38443 = e17485->a30035; /* x163432 stalin.sc:23274:812447 */ t38444 = e17485->a30045; /* x163484 stalin.sc:23275:812452 */ t38445 = e17485; /* x163490 stalin.sc:23282:812728 */ t38446 = e17485; /* x163428 stalin.sc:23270:812409 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38442; b26113 = t38443; b26114 = t38444; b26115.tag = NATIVE_PROCEDURE_TYPE22107; b26115.value.native_procedure_type22107 = t38445; b26116.tag = NATIVE_PROCEDURE_TYPE22106; b26116.value.native_procedure_type22106 = t38446; return f14692(); case NATIVE_PROCEDURE_TYPE6297: a29987 = t37834; a29988 = t37835; a29997 = t37844; a29998 = t37845; a29999 = t37846; a30000 = t37847; e17464 = (struct p17464 *)GC_malloc(sizeof(struct p17464)); if (e17464==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17464->a29987 = a29987; e17464->a29988 = a29988; e17464->a29997 = a29997; e17464->a29998 = a29998; e17464->a29999 = a29999; e17464->a30000 = a30000; /* x163372 stalin.sc:23231:811249 */ /* x163246 stalin.sc:23232:811264 */ /* x163247 stalin.sc:23233:811279 */ t38447 = e17464->a29998; /* x163248 stalin.sc:23234:811284 */ t38448 = e17464->a29987; /* x163249 stalin.sc:23235:811288 */ t38449 = e17464->a29997; /* x163365 stalin.sc:23236:811293 */ t38450 = e17464; /* x163371 stalin.sc:23257:811997 */ t38451 = e17464; /* x163245 stalin.sc:23231:811250 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38447; b26113 = t38448; b26114 = t38449; b26115.tag = NATIVE_PROCEDURE_TYPE21340; b26115.value.native_procedure_type21340 = t38450; b26116.tag = NATIVE_PROCEDURE_TYPE21339; b26116.value.native_procedure_type21339 = t38451; return f14692(); case NATIVE_PROCEDURE_TYPE6303: a29941 = t37834; a29942 = t37835; a29951 = t37844; a29952 = t37845; e17447 = (struct p17447 *)GC_malloc(sizeof(struct p17447)); if (e17447==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17447->a29941 = a29941; e17447->a29942 = a29942; e17447->a29951 = a29951; e17447->a29952 = a29952; /* x163174 stalin.sc:23184:808965 */ /* x163132 stalin.sc:23185:808980 */ /* x163133 stalin.sc:23186:808995 */ t38452 = e17447->a29952; /* x163134 stalin.sc:23187:809000 */ t38453 = e17447->a29941; /* x163135 stalin.sc:23188:809004 */ t38454 = e17447->a29951; /* x163167 stalin.sc:23189:809009 */ t38455 = e17447; /* x163173 stalin.sc:23196:809252 */ t38456 = e17447; /* x163131 stalin.sc:23184:808966 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38452; b26113 = t38453; b26114 = t38454; b26115.tag = NATIVE_PROCEDURE_TYPE21349; b26115.value.native_procedure_type21349 = t38455; b26116.tag = NATIVE_PROCEDURE_TYPE21348; b26116.value.native_procedure_type21348 = t38456; return f14692(); case NATIVE_PROCEDURE_TYPE6309: a29893 = t37834; a29894 = t37835; a29897 = t37838; a29903 = t37844; a29904 = t37845; a29905 = t37846; a29906 = t37847; e17425 = (struct p17425 *)GC_malloc(sizeof(struct p17425)); if (e17425==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17425->a29893 = a29893; e17425->a29894 = a29894; e17425->a29903 = a29903; e17425->a29904 = a29904; e17425->a29905 = a29905; e17425->a29906 = a29906; /* x163098 stalin.sc:23120:806653 */ /* x162971 stalin.sc:23120:806657 */ /* x162969 stalin.sc:23120:806660 */ /* x162968 stalin.sc:23120:806668 */ t38459 = a29897; /* x162967 stalin.sc:23120:806661 */ t38457 = f26227(t38459); /* x162970 stalin.sc:23120:806672 */ t38458 = 1; /* x268146 stalin.sc:23120:806658 */ if (!(t38457==t38458)) goto l5637; /* x163015 stalin.sc:23121:806680 */ /* x162973 stalin.sc:23122:806699 */ /* x162974 stalin.sc:23123:806718 */ t38465 = e17425->a29904; /* x162975 stalin.sc:23124:806727 */ t38466 = e17425->a29893; /* x162976 stalin.sc:23125:806735 */ t38467 = e17425->a29903; /* x163008 stalin.sc:23126:806744 */ t38468 = e17425; /* x163014 stalin.sc:23133:807015 */ t38469 = e17425; /* x162972 stalin.sc:23121:806681 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38465; b26113 = t38466; b26114 = t38467; b26115.tag = NATIVE_PROCEDURE_TYPE21330; b26115.value.native_procedure_type21330 = t38468; b26116.tag = NATIVE_PROCEDURE_TYPE21329; b26116.value.native_procedure_type21329 = t38469; return f14692(); l5637: /* x163097 stalin.sc:23134:807064 */ /* x163017 stalin.sc:23135:807083 */ /* x163018 stalin.sc:23136:807102 */ t38460 = e17425->a29904; /* x163019 stalin.sc:23137:807111 */ t38461 = e17425->a29893; /* x163020 stalin.sc:23138:807119 */ t38462 = e17425->a29903; /* x163090 stalin.sc:23139:807128 */ t38463 = e17425; /* x163096 stalin.sc:23161:807695 */ t38464 = e17425; /* x163016 stalin.sc:23134:807065 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38460; b26113 = t38461; b26114 = t38462; b26115.tag = NATIVE_PROCEDURE_TYPE21320; b26115.value.native_procedure_type21320 = t38463; b26116.tag = NATIVE_PROCEDURE_TYPE21319; b26116.value.native_procedure_type21319 = t38464; return f14692(); case NATIVE_PROCEDURE_TYPE6315: a29847 = t37834; a29848 = t37835; a29857 = t37844; a29858 = t37845; e17412 = (struct p17412 *)GC_malloc(sizeof(struct p17412)); if (e17412==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17412->a29847 = a29847; e17412->a29848 = a29848; e17412->a29857 = a29857; e17412->a29858 = a29858; /* x162926 stalin.sc:23096:805928 */ /* x162884 stalin.sc:23097:805943 */ /* x162885 stalin.sc:23098:805958 */ t38470 = e17412->a29858; /* x162886 stalin.sc:23099:805963 */ t38471 = e17412->a29847; /* x162887 stalin.sc:23100:805967 */ t38472 = e17412->a29857; /* x162919 stalin.sc:23101:805972 */ t38473 = e17412; /* x162925 stalin.sc:23108:806215 */ t38474 = e17412; /* x162883 stalin.sc:23096:805929 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38470; b26113 = t38471; b26114 = t38472; b26115.tag = NATIVE_PROCEDURE_TYPE21335; b26115.value.native_procedure_type21335 = t38473; b26116.tag = NATIVE_PROCEDURE_TYPE21334; b26116.value.native_procedure_type21334 = t38474; return f14692(); case NATIVE_PROCEDURE_TYPE6321: a29803 = t37834; a29804 = t37835; a29813 = t37844; a29814 = t37845; e17400 = (struct p17400 *)GC_malloc(sizeof(struct p17400)); if (e17400==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17400->a29803 = a29803; e17400->a29804 = a29804; e17400->a29813 = a29813; e17400->a29814 = a29814; /* x162850 stalin.sc:23061:804379 */ /* x162808 stalin.sc:23062:804394 */ /* x162809 stalin.sc:23063:804409 */ t38475 = e17400->a29814; /* x162810 stalin.sc:23064:804414 */ t38476 = e17400->a29803; /* x162811 stalin.sc:23065:804418 */ t38477 = e17400->a29813; /* x162843 stalin.sc:23066:804423 */ t38478 = e17400; /* x162849 stalin.sc:23073:804666 */ t38479 = e17400; /* x162807 stalin.sc:23061:804380 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38475; b26113 = t38476; b26114 = t38477; b26115.tag = NATIVE_PROCEDURE_TYPE21315; b26115.value.native_procedure_type21315 = t38478; b26116.tag = NATIVE_PROCEDURE_TYPE21314; b26116.value.native_procedure_type21314 = t38479; return f14692(); case NATIVE_PROCEDURE_TYPE6327: a29759 = t37834; a29760 = t37835; a29769 = t37844; a29770 = t37845; e17388 = (struct p17388 *)GC_malloc(sizeof(struct p17388)); if (e17388==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17388->a29759 = a29759; e17388->a29760 = a29760; e17388->a29769 = a29769; e17388->a29770 = a29770; /* x162774 stalin.sc:23026:802825 */ /* x162732 stalin.sc:23027:802840 */ /* x162733 stalin.sc:23028:802855 */ t38480 = e17388->a29770; /* x162734 stalin.sc:23029:802860 */ t38481 = e17388->a29759; /* x162735 stalin.sc:23030:802864 */ t38482 = e17388->a29769; /* x162767 stalin.sc:23031:802869 */ t38483 = e17388; /* x162773 stalin.sc:23038:803118 */ t38484 = e17388; /* x162731 stalin.sc:23026:802826 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38480; b26113 = t38481; b26114 = t38482; b26115.tag = NATIVE_PROCEDURE_TYPE21354; b26115.value.native_procedure_type21354 = t38483; b26116.tag = NATIVE_PROCEDURE_TYPE21353; b26116.value.native_procedure_type21353 = t38484; return f14692(); case NATIVE_PROCEDURE_TYPE6333: a29715 = t37834; a29716 = t37835; a29725 = t37844; a29726 = t37845; e17376 = (struct p17376 *)GC_malloc(sizeof(struct p17376)); if (e17376==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17376->a29715 = a29715; e17376->a29716 = a29716; e17376->a29725 = a29725; e17376->a29726 = a29726; /* x162698 stalin.sc:23004:802209 */ /* x162656 stalin.sc:23005:802224 */ /* x162657 stalin.sc:23006:802239 */ t38485 = e17376->a29726; /* x162658 stalin.sc:23007:802244 */ t38486 = e17376->a29715; /* x162659 stalin.sc:23008:802248 */ t38487 = e17376->a29725; /* x162691 stalin.sc:23009:802253 */ t38488 = e17376; /* x162697 stalin.sc:23016:802502 */ t38489 = e17376; /* x162655 stalin.sc:23004:802210 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38485; b26113 = t38486; b26114 = t38487; b26115.tag = NATIVE_PROCEDURE_TYPE21305; b26115.value.native_procedure_type21305 = t38488; b26116.tag = NATIVE_PROCEDURE_TYPE21304; b26116.value.native_procedure_type21304 = t38489; return f14692(); case NATIVE_PROCEDURE_TYPE6339: a29671 = t37834; a29672 = t37835; a29681 = t37844; a29682 = t37845; e17364 = (struct p17364 *)GC_malloc(sizeof(struct p17364)); if (e17364==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17364->a29671 = a29671; e17364->a29672 = a29672; e17364->a29681 = a29681; e17364->a29682 = a29682; /* x162622 stalin.sc:22982:801593 */ /* x162580 stalin.sc:22983:801608 */ /* x162581 stalin.sc:22984:801623 */ t38490 = e17364->a29682; /* x162582 stalin.sc:22985:801628 */ t38491 = e17364->a29671; /* x162583 stalin.sc:22986:801632 */ t38492 = e17364->a29681; /* x162615 stalin.sc:22987:801637 */ t38493 = e17364; /* x162621 stalin.sc:22994:801886 */ t38494 = e17364; /* x162579 stalin.sc:22982:801594 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38490; b26113 = t38491; b26114 = t38492; b26115.tag = NATIVE_PROCEDURE_TYPE21310; b26115.value.native_procedure_type21310 = t38493; b26116.tag = NATIVE_PROCEDURE_TYPE21309; b26116.value.native_procedure_type21309 = t38494; return f14692(); case NATIVE_PROCEDURE_TYPE6345: a29627 = t37834; a29628 = t37835; a29637 = t37844; a29638 = t37845; e17352 = (struct p17352 *)GC_malloc(sizeof(struct p17352)); if (e17352==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17352->a29627 = a29627; e17352->a29628 = a29628; e17352->a29637 = a29637; e17352->a29638 = a29638; /* x162546 stalin.sc:22960:800977 */ /* x162504 stalin.sc:22961:800992 */ /* x162505 stalin.sc:22962:801007 */ t38495 = e17352->a29638; /* x162506 stalin.sc:22963:801012 */ t38496 = e17352->a29627; /* x162507 stalin.sc:22964:801016 */ t38497 = e17352->a29637; /* x162539 stalin.sc:22965:801021 */ t38498 = e17352; /* x162545 stalin.sc:22972:801270 */ t38499 = e17352; /* x162503 stalin.sc:22960:800978 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38495; b26113 = t38496; b26114 = t38497; b26115.tag = NATIVE_PROCEDURE_TYPE21300; b26115.value.native_procedure_type21300 = t38498; b26116.tag = NATIVE_PROCEDURE_TYPE21299; b26116.value.native_procedure_type21299 = t38499; return f14692(); case NATIVE_PROCEDURE_TYPE6351: a29583 = t37834; a29584 = t37835; a29593 = t37844; a29594 = t37845; e17340 = (struct p17340 *)GC_malloc(sizeof(struct p17340)); if (e17340==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17340->a29583 = a29583; e17340->a29584 = a29584; e17340->a29593 = a29593; e17340->a29594 = a29594; /* x162470 stalin.sc:22925:799414 */ /* x162428 stalin.sc:22926:799429 */ /* x162429 stalin.sc:22927:799444 */ t38500 = e17340->a29594; /* x162430 stalin.sc:22928:799449 */ t38501 = e17340->a29583; /* x162431 stalin.sc:22929:799453 */ t38502 = e17340->a29593; /* x162463 stalin.sc:22930:799458 */ t38503 = e17340; /* x162469 stalin.sc:22937:799707 */ t38504 = e17340; /* x162427 stalin.sc:22925:799415 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38500; b26113 = t38501; b26114 = t38502; b26115.tag = NATIVE_PROCEDURE_TYPE21359; b26115.value.native_procedure_type21359 = t38503; b26116.tag = NATIVE_PROCEDURE_TYPE21358; b26116.value.native_procedure_type21358 = t38504; return f14692(); case NATIVE_PROCEDURE_TYPE6357: a29539 = t37834; a29540 = t37835; a29549 = t37844; a29550 = t37845; e17327 = (struct p17327 *)GC_malloc(sizeof(struct p17327)); if (e17327==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17327->a29539 = a29539; e17327->a29540 = a29540; e17327->a29549 = a29549; e17327->a29550 = a29550; /* x162394 stalin.sc:22897:798603 */ /* x162303 stalin.sc:22898:798618 */ /* x162304 stalin.sc:22899:798633 */ t38505 = e17327->a29550; /* x162305 stalin.sc:22900:798638 */ t38506 = e17327->a29539; /* x162306 stalin.sc:22901:798642 */ t38507 = e17327->a29549; /* x162387 stalin.sc:22902:798647 */ t38508 = e17327; /* x162393 stalin.sc:22915:799089 */ t38509 = e17327; /* x162302 stalin.sc:22897:798604 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38505; b26113 = t38506; b26114 = t38507; b26115.tag = NATIVE_PROCEDURE_TYPE21275; b26115.value.native_procedure_type21275 = t38508; b26116.tag = NATIVE_PROCEDURE_TYPE21274; b26116.value.native_procedure_type21274 = t38509; return f14692(); case NATIVE_PROCEDURE_TYPE6363: a29493 = t37834; a29494 = t37835; a29503 = t37844; a29504 = t37845; e17308 = (struct p17308 *)GC_malloc(sizeof(struct p17308)); if (e17308==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17308->a29493 = a29493; e17308->a29494 = a29494; e17308->a29503 = a29503; e17308->a29504 = a29504; /* x162237 stalin.sc:22857:797444 */ /* x162110 stalin.sc:22858:797459 */ /* x162111 stalin.sc:22859:797474 */ t38510 = e17308->a29504; /* x162112 stalin.sc:22860:797479 */ t38511 = e17308->a29493; /* x162113 stalin.sc:22861:797483 */ t38512 = e17308->a29503; /* x162230 stalin.sc:22862:797488 */ t38513 = e17308; /* x162236 stalin.sc:22883:798130 */ t38514 = e17308; /* x162109 stalin.sc:22857:797445 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38510; b26113 = t38511; b26114 = t38512; b26115.tag = NATIVE_PROCEDURE_TYPE21281; b26115.value.native_procedure_type21281 = t38513; b26116.tag = NATIVE_PROCEDURE_TYPE21280; b26116.value.native_procedure_type21280 = t38514; return f14692(); case NATIVE_PROCEDURE_TYPE6369: a29447 = t37834; a29448 = t37835; a29457 = t37844; a29458 = t37845; e17289 = (struct p17289 *)GC_malloc(sizeof(struct p17289)); if (e17289==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17289->a29447 = a29447; e17289->a29448 = a29448; e17289->a29457 = a29457; e17289->a29458 = a29458; /* x162044 stalin.sc:22825:796481 */ /* x161953 stalin.sc:22826:796496 */ /* x161954 stalin.sc:22827:796511 */ t38515 = e17289->a29458; /* x161955 stalin.sc:22828:796516 */ t38516 = e17289->a29447; /* x161956 stalin.sc:22829:796520 */ t38517 = e17289->a29457; /* x162037 stalin.sc:22830:796525 */ t38518 = e17289; /* x162043 stalin.sc:22843:796969 */ t38519 = e17289; /* x161952 stalin.sc:22825:796482 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38515; b26113 = t38516; b26114 = t38517; b26115.tag = NATIVE_PROCEDURE_TYPE21269; b26115.value.native_procedure_type21269 = t38518; b26116.tag = NATIVE_PROCEDURE_TYPE21268; b26116.value.native_procedure_type21268 = t38519; return f14692(); case NATIVE_PROCEDURE_TYPE6375: a29401 = t37834; a29402 = t37835; a29411 = t37844; a29412 = t37845; e17270 = (struct p17270 *)GC_malloc(sizeof(struct p17270)); if (e17270==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17270->a29401 = a29401; e17270->a29402 = a29402; e17270->a29411 = a29411; e17270->a29412 = a29412; /* x161887 stalin.sc:22792:795530 */ /* x161796 stalin.sc:22793:795545 */ /* x161797 stalin.sc:22794:795560 */ t38520 = e17270->a29412; /* x161798 stalin.sc:22795:795565 */ t38521 = e17270->a29401; /* x161799 stalin.sc:22796:795569 */ t38522 = e17270->a29411; /* x161880 stalin.sc:22797:795574 */ t38523 = e17270; /* x161886 stalin.sc:22811:796009 */ t38524 = e17270; /* x161795 stalin.sc:22792:795531 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38520; b26113 = t38521; b26114 = t38522; b26115.tag = NATIVE_PROCEDURE_TYPE21287; b26115.value.native_procedure_type21287 = t38523; b26116.tag = NATIVE_PROCEDURE_TYPE21286; b26116.value.native_procedure_type21286 = t38524; return f14692(); case NATIVE_PROCEDURE_TYPE6381: a29349 = t37834; a29350 = t37835; a29352 = t37837; a29353 = t37838; a29359 = t37844; a29360 = t37845; e17250 = (struct p17250 *)GC_malloc(sizeof(struct p17250)); if (e17250==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17250->a29349 = a29349; e17250->a29350 = a29350; e17250->a29359 = a29359; e17250->a29360 = a29360; /* x161730 stalin.sc:22764:794601 */ /* x161674 stalin.sc:22764:794608 */ /* x161673 stalin.sc:22764:794615 */ t38525 = a29353; /* x268172 stalin.sc:22764:794609 */ if (!((t38525.tag)==NULL_TYPE)) goto l5639; /* x161682 */ /* x161681 */ t38541 = e17250; p17251 = t38541; /* x161680 stalin.sc:22764:794619 */ /* x161676 stalin.sc:22764:794626 */ t38542 = p17251->a29349; /* x161678 stalin.sc:22764:794628 */ /* x161677 stalin.sc:22764:794629 */ /* x276915 stalin.sc:14555:511005 */ t38543 = "0"; /* x161679 stalin.sc:22764:794634 */ /* x161675 stalin.sc:22764:794620 */ t38544.tag = STRING_TYPE; t38544.value.string_type = t38543; t38545 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t38542, t38544, t38545); l5639: /* x161729 */ /* x161687 stalin.sc:22765:794657 */ /* x161686 stalin.sc:22765:794664 */ /* x161685 stalin.sc:22765:794670 */ t38527 = *((struct w16638 *)(&a29353)); /* x161684 stalin.sc:22765:794665 */ a35411 = t38527; /* x273001 */ /* x273000 */ t38528 = a35411; /* x272999 */ if (!((t38528.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29560]"); structure_ref_error();} t38526 = t38528.value.structure_type24753->s1; /* x268171 stalin.sc:22765:794658 */ if (!((t38526.tag)==NULL_TYPE)) goto l5641; /* x161711 */ /* x161710 */ t38535 = e17250; p17252 = t38535; /* x161709 stalin.sc:22766:794676 */ /* x161689 stalin.sc:22766:794689 */ /* x161690 stalin.sc:22767:794709 */ t38536 = p17252->a29360; /* x161691 stalin.sc:22768:794719 */ t38537 = p17252->a29349; /* x161692 stalin.sc:22769:794728 */ t38538 = p17252->a29359; /* x161702 stalin.sc:22770:794738 */ t38539 = p17252; /* x161708 stalin.sc:22771:794801 */ t38540 = p17252; /* x161688 stalin.sc:22766:794677 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t38536; b26113 = t38537; b26114 = t38538; b26115.tag = NATIVE_PROCEDURE_TYPE21266; b26115.value.native_procedure_type21266 = t38539; b26116.tag = NATIVE_PROCEDURE_TYPE21265; b26116.value.native_procedure_type21265 = t38540; return f14692(); l5641: /* x161728 */ /* x161727 */ t38529 = e17250; p17255 = t38529; /* x161726 stalin.sc:22772:794865 */ /* x161713 stalin.sc:22773:794892 */ /* x161714 stalin.sc:22773:794905 */ t38530 = p17255->a29349; /* x161715 stalin.sc:22773:794907 */ t38531 = p17255->a29350; /* x161716 stalin.sc:22773:794909 */ t38532 = a29352; /* x161717 stalin.sc:22773:794912 */ t38533 = *((struct w16638 *)(&a29353)); /* x161719 stalin.sc:22776:795012 */ /* x161724 stalin.sc:22777:795045 */ /* x161725 stalin.sc:22778:795087 */ t38534 = "bitwise_xor"; /* x161712 stalin.sc:22772:794866 */ b26731 = NATIVE_PROCEDURE_TYPE7430; b26732 = t38530; b26733 = t38531; b26734 = t38532; b26735 = *((struct w49 *)(&t38533)); b26736 = NATIVE_PROCEDURE_TYPE21263; b26737 = (unsigned)NATIVE_PROCEDURE_TYPE21262; b26738 = t38534; return f15573(); case NATIVE_PROCEDURE_TYPE6387: a29297 = t37834; a29298 = t37835; a29300 = t37837; a29301 = t37838; a29307 = t37844; a29308 = t37845; e17234 = (struct p17234 *)GC_malloc(sizeof(struct p17234)); if (e17234==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17234->a29297 = a29297; e17234->a29298 = a29298; e17234->a29307 = a29307; e17234->a29308 = a29308; /* x161635 stalin.sc:22740:793772 */ /* x161579 stalin.sc:22740:793779 */ /* x161578 stalin.sc:22740:793786 */ t38546 = a29301; /* x268176 stalin.sc:22740:793780 */ if (!((t38546.tag)==NULL_TYPE)) goto l5643; /* x161587 */ /* x161586 */ t38562 = e17234; p17235 = t38562; /* x161585 stalin.sc:22740:793790 */ /* x161581 stalin.sc:22740:793797 */ t38563 = p17235->a29297; /* x161583 stalin.sc:22740:793799 */ /* x161582 stalin.sc:22740:793800 */ /* x276913 stalin.sc:14555:511005 */ t38564 = "0"; /* x161584 stalin.sc:22740:793805 */ /* x161580 stalin.sc:22740:793791 */ t38565.tag = STRING_TYPE; t38565.value.string_type = t38564; t38566 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t38563, t38565, t38566); l5643: /* x161634 */ /* x161592 stalin.sc:22741:793828 */ /* x161591 stalin.sc:22741:793835 */ /* x161590 stalin.sc:22741:793841 */ t38548 = *((struct w16638 *)(&a29301)); /* x161589 stalin.sc:22741:793836 */ a35410 = t38548; /* x272997 */ /* x272996 */ t38549 = a35410; /* x272995 */ if (!((t38549.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29559]"); structure_ref_error();} t38547 = t38549.value.structure_type24753->s1; /* x268175 stalin.sc:22741:793829 */ if (!((t38547.tag)==NULL_TYPE)) goto l5645; /* x161616 */ /* x161615 */ t38556 = e17234; p17236 = t38556; /* x161614 stalin.sc:22742:793847 */ /* x161594 stalin.sc:22742:793860 */ /* x161595 stalin.sc:22743:793880 */ t38557 = p17236->a29308; /* x161596 stalin.sc:22744:793890 */ t38558 = p17236->a29297; /* x161597 stalin.sc:22745:793899 */ t38559 = p17236->a29307; /* x161607 stalin.sc:22746:793909 */ t38560 = p17236; /* x161613 stalin.sc:22747:793972 */ t38561 = p17236; /* x161593 stalin.sc:22742:793848 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t38557; b26113 = t38558; b26114 = t38559; b26115.tag = NATIVE_PROCEDURE_TYPE21297; b26115.value.native_procedure_type21297 = t38560; b26116.tag = NATIVE_PROCEDURE_TYPE21296; b26116.value.native_procedure_type21296 = t38561; return f14692(); l5645: /* x161633 */ /* x161632 */ t38550 = e17234; p17239 = t38550; /* x161631 stalin.sc:22748:794035 */ /* x161618 stalin.sc:22749:794062 */ /* x161619 stalin.sc:22749:794075 */ t38551 = p17239->a29297; /* x161620 stalin.sc:22749:794077 */ t38552 = p17239->a29298; /* x161621 stalin.sc:22749:794079 */ t38553 = a29300; /* x161622 stalin.sc:22749:794082 */ t38554 = *((struct w16638 *)(&a29301)); /* x161624 stalin.sc:22752:794182 */ /* x161629 stalin.sc:22753:794215 */ /* x161630 stalin.sc:22754:794266 */ t38555 = "bitwise_or"; /* x161617 stalin.sc:22748:794036 */ b26731 = NATIVE_PROCEDURE_TYPE7430; b26732 = t38551; b26733 = t38552; b26734 = t38553; b26735 = *((struct w49 *)(&t38554)); b26736 = NATIVE_PROCEDURE_TYPE21294; b26737 = (unsigned)NATIVE_PROCEDURE_TYPE21293; b26738 = t38555; return f15573(); case NATIVE_PROCEDURE_TYPE6393: a29245 = t37834; a29246 = t37835; a29248 = t37837; a29249 = t37838; a29255 = t37844; a29256 = t37845; e17218 = (struct p17218 *)GC_malloc(sizeof(struct p17218)); if (e17218==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17218->a29245 = a29245; e17218->a29246 = a29246; e17218->a29255 = a29255; e17218->a29256 = a29256; /* x161540 stalin.sc:22716:792945 */ /* x161482 stalin.sc:22716:792952 */ /* x161481 stalin.sc:22716:792959 */ t38567 = a29249; /* x268180 stalin.sc:22716:792953 */ if (!((t38567.tag)==NULL_TYPE)) goto l5647; /* x161492 */ /* x161491 */ t38583 = e17218; p17219 = t38583; /* x161490 stalin.sc:22716:792963 */ /* x161484 stalin.sc:22716:792970 */ t38584 = p17219->a29245; /* x161488 stalin.sc:22716:792972 */ /* x161487 stalin.sc:22716:792977 */ /* x161486 stalin.sc:22716:792978 */ /* x276917 stalin.sc:14555:511005 */ t38588 = "0"; /* x161485 stalin.sc:22716:792973 */ t38589.tag = STRING_TYPE; t38589.value.string_type = t38588; t38585 = f13631(t38589); /* x161489 stalin.sc:22716:792984 */ /* x161483 stalin.sc:22716:792964 */ t38586.tag = STRUCTURE_TYPE24753; t38586.value.structure_type24753 = t38585; t38587 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t38584, t38586, t38587); l5647: /* x161539 */ /* x161497 stalin.sc:22717:793007 */ /* x161496 stalin.sc:22717:793014 */ /* x161495 stalin.sc:22717:793020 */ t38569 = *((struct w16638 *)(&a29249)); /* x161494 stalin.sc:22717:793015 */ a35412 = t38569; /* x273005 */ /* x273004 */ t38570 = a35412; /* x273003 */ if (!((t38570.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29561]"); structure_ref_error();} t38568 = t38570.value.structure_type24753->s1; /* x268179 stalin.sc:22717:793008 */ if (!((t38568.tag)==NULL_TYPE)) goto l5649; /* x161521 */ /* x161520 */ t38577 = e17218; p17220 = t38577; /* x161519 stalin.sc:22718:793026 */ /* x161499 stalin.sc:22718:793039 */ /* x161500 stalin.sc:22719:793059 */ t38578 = p17220->a29256; /* x161501 stalin.sc:22720:793069 */ t38579 = p17220->a29245; /* x161502 stalin.sc:22721:793078 */ t38580 = p17220->a29255; /* x161512 stalin.sc:22722:793088 */ t38581 = p17220; /* x161518 stalin.sc:22723:793151 */ t38582 = p17220; /* x161498 stalin.sc:22718:793027 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t38578; b26113 = t38579; b26114 = t38580; b26115.tag = NATIVE_PROCEDURE_TYPE21257; b26115.value.native_procedure_type21257 = t38581; b26116.tag = NATIVE_PROCEDURE_TYPE21256; b26116.value.native_procedure_type21256 = t38582; return f14692(); l5649: /* x161538 */ /* x161537 */ t38571 = e17218; p17223 = t38571; /* x161536 stalin.sc:22724:793215 */ /* x161523 stalin.sc:22725:793242 */ /* x161524 stalin.sc:22725:793255 */ t38572 = p17223->a29245; /* x161525 stalin.sc:22725:793257 */ t38573 = p17223->a29246; /* x161526 stalin.sc:22725:793259 */ t38574 = a29248; /* x161527 stalin.sc:22725:793262 */ t38575 = *((struct w16638 *)(&a29249)); /* x161529 stalin.sc:22728:793362 */ /* x161534 stalin.sc:22729:793395 */ /* x161535 stalin.sc:22730:793437 */ t38576 = "bitwise_and"; /* x161522 stalin.sc:22724:793216 */ b26731 = NATIVE_PROCEDURE_TYPE7430; b26732 = t38572; b26733 = t38573; b26734 = t38574; b26735 = *((struct w49 *)(&t38575)); b26736 = NATIVE_PROCEDURE_TYPE21254; b26737 = (unsigned)NATIVE_PROCEDURE_TYPE21253; b26738 = t38576; return f15573(); case NATIVE_PROCEDURE_TYPE6399: a29199 = t37834; a29200 = t37835; a29209 = t37844; a29210 = t37845; e17207 = (struct p17207 *)GC_malloc(sizeof(struct p17207)); if (e17207==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17207->a29199 = a29199; e17207->a29200 = a29200; e17207->a29209 = a29209; e17207->a29210 = a29210; /* x161443 stalin.sc:22701:792445 */ /* x161421 stalin.sc:22701:792458 */ /* x161422 stalin.sc:22702:792478 */ t38590 = e17207->a29210; /* x161423 stalin.sc:22703:792488 */ t38591 = e17207->a29199; /* x161424 stalin.sc:22704:792497 */ t38592 = e17207->a29209; /* x161436 stalin.sc:22705:792507 */ t38593 = e17207; /* x161442 stalin.sc:22706:792576 */ t38594 = e17207; /* x161420 stalin.sc:22701:792446 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t38590; b26113 = t38591; b26114 = t38592; b26115.tag = NATIVE_PROCEDURE_TYPE21260; b26115.value.native_procedure_type21260 = t38593; b26116.tag = NATIVE_PROCEDURE_TYPE21259; b26116.value.native_procedure_type21259 = t38594; return f14692(); case NATIVE_PROCEDURE_TYPE6405: a29153 = t37834; a29154 = t37835; a29163 = t37844; a29164 = t37845; a29165 = t37846; a29166 = t37847; e17182 = (struct p17182 *)GC_malloc(sizeof(struct p17182)); if (e17182==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17182->a29153 = a29153; e17182->a29154 = a29154; e17182->a29163 = a29163; e17182->a29164 = a29164; e17182->a29165 = a29165; e17182->a29166 = a29166; /* x161387 stalin.sc:22631:790540 */ /* x161095 stalin.sc:22632:790555 */ /* x161096 stalin.sc:22633:790570 */ t38595 = e17182->a29164; /* x161097 stalin.sc:22634:790575 */ t38596 = e17182->a29153; /* x161098 stalin.sc:22635:790579 */ t38597 = e17182->a29163; /* x161380 stalin.sc:22636:790584 */ t38598 = e17182; /* x161386 stalin.sc:22691:792127 */ t38599 = e17182; /* x161094 stalin.sc:22631:790541 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38595; b26113 = t38596; b26114 = t38597; b26115.tag = NATIVE_PROCEDURE_TYPE21235; b26115.value.native_procedure_type21235 = t38598; b26116.tag = NATIVE_PROCEDURE_TYPE21234; b26116.value.native_procedure_type21234 = t38599; return f14692(); case NATIVE_PROCEDURE_TYPE6411: a29102 = t37834; a29103 = t37835; a29112 = t37844; a29113 = t37845; a29114 = t37846; a29115 = t37847; e17149 = (struct p17149 *)GC_malloc(sizeof(struct p17149)); if (e17149==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17149->a29102 = a29102; e17149->a29103 = a29103; e17149->a29112 = a29112; e17149->a29113 = a29113; e17149->a29114 = a29114; e17149->a29115 = a29115; /* x160990 stalin.sc:22552:788253 */ /* x160698 stalin.sc:22553:788268 */ /* x160699 stalin.sc:22554:788283 */ t38600 = e17149->a29113; /* x160700 stalin.sc:22555:788288 */ t38601 = e17149->a29102; /* x160701 stalin.sc:22556:788292 */ t38602 = e17149->a29112; /* x160983 stalin.sc:22557:788297 */ t38603 = e17149; /* x160989 stalin.sc:22612:789840 */ t38604 = e17149; /* x160697 stalin.sc:22552:788254 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38600; b26113 = t38601; b26114 = t38602; b26115.tag = NATIVE_PROCEDURE_TYPE21364; b26115.value.native_procedure_type21364 = t38603; b26116.tag = NATIVE_PROCEDURE_TYPE21363; b26116.value.native_procedure_type21363 = t38604; return f14692(); case NATIVE_PROCEDURE_TYPE6417: a29051 = t37834; a29052 = t37835; a29061 = t37844; a29062 = t37845; a29063 = t37846; a29064 = t37847; e17116 = (struct p17116 *)GC_malloc(sizeof(struct p17116)); if (e17116==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17116->a29051 = a29051; e17116->a29052 = a29052; e17116->a29061 = a29061; e17116->a29062 = a29062; e17116->a29063 = a29063; e17116->a29064 = a29064; /* x160593 stalin.sc:22472:785901 */ /* x160301 stalin.sc:22473:785916 */ /* x160302 stalin.sc:22474:785931 */ t38605 = e17116->a29062; /* x160303 stalin.sc:22475:785936 */ t38606 = e17116->a29051; /* x160304 stalin.sc:22476:785940 */ t38607 = e17116->a29061; /* x160586 stalin.sc:22477:785945 */ t38608 = e17116; /* x160592 stalin.sc:22532:787508 */ t38609 = e17116; /* x160300 stalin.sc:22472:785902 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38605; b26113 = t38606; b26114 = t38607; b26115.tag = NATIVE_PROCEDURE_TYPE21153; b26115.value.native_procedure_type21153 = t38608; b26116.tag = NATIVE_PROCEDURE_TYPE21152; b26116.value.native_procedure_type21152 = t38609; return f14692(); case NATIVE_PROCEDURE_TYPE6423: a29000 = t37834; a29001 = t37835; a29010 = t37844; a29011 = t37845; a29012 = t37846; a29013 = t37847; e17083 = (struct p17083 *)GC_malloc(sizeof(struct p17083)); if (e17083==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17083->a29000 = a29000; e17083->a29001 = a29001; e17083->a29010 = a29010; e17083->a29011 = a29011; e17083->a29012 = a29012; e17083->a29013 = a29013; /* x160196 stalin.sc:22392:783540 */ /* x159904 stalin.sc:22393:783555 */ /* x159905 stalin.sc:22394:783570 */ t38610 = e17083->a29011; /* x159906 stalin.sc:22395:783575 */ t38611 = e17083->a29000; /* x159907 stalin.sc:22396:783579 */ t38612 = e17083->a29010; /* x160189 stalin.sc:22397:783584 */ t38613 = e17083; /* x160195 stalin.sc:22452:785142 */ t38614 = e17083; /* x159903 stalin.sc:22392:783541 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38610; b26113 = t38611; b26114 = t38612; b26115.tag = NATIVE_PROCEDURE_TYPE21171; b26115.value.native_procedure_type21171 = t38613; b26116.tag = NATIVE_PROCEDURE_TYPE21170; b26116.value.native_procedure_type21170 = t38614; return f14692(); case NATIVE_PROCEDURE_TYPE6429: a28944 = t37834; a28945 = t37835; a28947 = t37837; a28948 = t37838; a28954 = t37844; a28955 = t37845; e17056 = (struct p17056 *)GC_malloc(sizeof(struct p17056)); if (e17056==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17056->a28944 = a28944; e17056->a28945 = a28945; e17056->a28954 = a28954; e17056->a28955 = a28955; /* x159799 stalin.sc:22343:781878 */ /* x159668 stalin.sc:22343:781882 */ /* x159667 stalin.sc:22343:781889 */ /* x159666 stalin.sc:22343:781895 */ t38616 = a28948; /* x159665 stalin.sc:22343:781890 */ a35415 = t38616; /* x273017 */ /* x273016 */ t38617 = a35415; /* x273015 */ if (!((t38617.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29564]"); structure_ref_error();} t38615 = t38617.value.structure_type24753->s1; /* x268193 stalin.sc:22343:781883 */ if (!((t38615.tag)==NULL_TYPE)) goto l5651; /* x159721 stalin.sc:22344:781905 */ /* x159670 stalin.sc:22345:781924 */ /* x159671 stalin.sc:22346:781943 */ t38623 = e17056->a28955; /* x159672 stalin.sc:22347:781952 */ t38624 = e17056->a28944; /* x159673 stalin.sc:22348:781960 */ t38625 = e17056->a28954; /* x159714 stalin.sc:22349:781969 */ t38626 = e17056; /* x159720 stalin.sc:22355:782220 */ t38627 = e17056; /* x159669 stalin.sc:22344:781906 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38623; b26113 = t38624; b26114 = t38625; b26115.tag = NATIVE_PROCEDURE_TYPE21148; b26115.value.native_procedure_type21148 = t38626; b26116.tag = NATIVE_PROCEDURE_TYPE21147; b26116.value.native_procedure_type21147 = t38627; return f14692(); l5651: /* x159798 stalin.sc:22356:782270 */ /* x159723 stalin.sc:22357:782296 */ /* x159724 stalin.sc:22357:782309 */ t38618 = e17056->a28944; /* x159725 stalin.sc:22357:782311 */ t38619 = e17056->a28945; /* x159726 stalin.sc:22357:782313 */ t38620 = a28947; /* x159727 stalin.sc:22357:782316 */ t38621 = a28948; /* x159742 stalin.sc:22358:782325 */ /* x159796 stalin.sc:22364:782526 */ /* x159797 stalin.sc:22372:782819 */ t38622 = "divide"; /* x159722 stalin.sc:22356:782271 */ b26731 = NATIVE_PROCEDURE_TYPE7426; b26732 = t38618; b26733 = t38619; b26734 = t38620; b26735 = t38621; b26736 = NATIVE_PROCEDURE_TYPE21141; b26737 = (unsigned)NATIVE_PROCEDURE_TYPE21140; b26738 = t38622; return f15573(); case NATIVE_PROCEDURE_TYPE6435: a28885 = t37834; a28886 = t37835; a28888 = t37837; a28889 = t37838; a28895 = t37844; a28896 = t37845; e17017 = (struct p17017 *)GC_malloc(sizeof(struct p17017)); if (e17017==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17017->a28885 = a28885; e17017->a28886 = a28886; e17017->a28895 = a28895; e17017->a28896 = a28896; /* x159586 stalin.sc:22284:779431 */ /* x159404 stalin.sc:22284:779435 */ /* x159403 stalin.sc:22284:779442 */ /* x159402 stalin.sc:22284:779448 */ t38629 = a28889; /* x159401 stalin.sc:22284:779443 */ a35414 = t38629; /* x273013 */ /* x273012 */ t38630 = a35414; /* x273011 */ if (!((t38630.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29563]"); structure_ref_error();} t38628 = t38630.value.structure_type24753->s1; /* x268196 stalin.sc:22284:779436 */ if (!((t38628.tag)==NULL_TYPE)) goto l5653; /* x159484 stalin.sc:22285:779458 */ /* x159406 stalin.sc:22286:779477 */ /* x159407 stalin.sc:22287:779496 */ t38637 = e17017->a28896; /* x159408 stalin.sc:22288:779505 */ t38638 = e17017->a28885; /* x159409 stalin.sc:22289:779513 */ t38639 = e17017->a28895; /* x159477 stalin.sc:22290:779522 */ t38640 = e17017; /* x159483 stalin.sc:22300:779896 */ t38641 = e17017; /* x159405 stalin.sc:22285:779459 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38637; b26113 = t38638; b26114 = t38639; b26115.tag = NATIVE_PROCEDURE_TYPE21202; b26115.value.native_procedure_type21202 = t38640; b26116.tag = NATIVE_PROCEDURE_TYPE21201; b26116.value.native_procedure_type21201 = t38641; return f14692(); l5653: /* x159585 stalin.sc:22301:779945 */ /* x159486 stalin.sc:22302:779971 */ /* x159487 stalin.sc:22302:779984 */ t38631 = e17017->a28885; /* x159488 stalin.sc:22302:779986 */ t38632 = e17017->a28886; /* x159489 stalin.sc:22302:779988 */ t38633 = a28888; /* x159490 stalin.sc:22302:779991 */ t38634 = a28889; /* x159521 stalin.sc:22303:780000 */ /* x159583 stalin.sc:22308:780265 */ t38635 = e17017; /* x159584 stalin.sc:22318:780621 */ t38636 = "minus"; /* x159485 stalin.sc:22301:779946 */ b26731 = NATIVE_PROCEDURE_TYPE7426; b26732 = t38631; b26733 = t38632; b26734 = t38633; b26735 = t38634; b26736 = NATIVE_PROCEDURE_TYPE21189; b26737 = (unsigned)t38635; b26738 = t38636; return f15573(); case NATIVE_PROCEDURE_TYPE6441: a28824 = t37834; a28825 = t37835; a28827 = t37837; a28828 = t37838; a28834 = t37844; a28835 = t37845; e16978 = (struct p16978 *)GC_malloc(sizeof(struct p16978)); if (e16978==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16978->a28824 = a28824; e16978->a28825 = a28825; e16978->a28834 = a28834; e16978->a28835 = a28835; /* x159296 stalin.sc:22239:777843 */ /* x159154 stalin.sc:22240:777852 */ /* x159153 stalin.sc:22240:777859 */ t38642 = a28828; /* x268200 stalin.sc:22240:777853 */ if (!((t38642.tag)==NULL_TYPE)) goto l5655; /* x159162 */ /* x159161 */ t38659 = e16978; p16979 = t38659; /* x159160 stalin.sc:22240:777863 */ /* x159156 stalin.sc:22240:777870 */ t38660 = p16979->a28824; /* x159158 stalin.sc:22240:777872 */ /* x159157 stalin.sc:22240:777873 */ /* x276879 stalin.sc:14561:511199 */ t38661 = "1"; /* x159159 stalin.sc:22240:777878 */ /* x159155 stalin.sc:22240:777864 */ t38662.tag = STRING_TYPE; t38662.value.string_type = t38661; t38663 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t38660, t38662, t38663); l5655: /* x159295 */ /* x159167 stalin.sc:22241:777896 */ /* x159166 stalin.sc:22241:777903 */ /* x159165 stalin.sc:22241:777909 */ t38644 = *((struct w16638 *)(&a28828)); /* x159164 stalin.sc:22241:777904 */ a35416 = t38644; /* x273021 */ /* x273020 */ t38645 = a35416; /* x273019 */ if (!((t38645.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29565]"); structure_ref_error();} t38643 = t38645.value.structure_type24753->s1; /* x268199 stalin.sc:22241:777897 */ if (!((t38643.tag)==NULL_TYPE)) goto l5657; /* x159191 */ /* x159190 */ t38653 = e16978; p16980 = t38653; /* x159189 stalin.sc:22242:777917 */ /* x159169 stalin.sc:22242:777930 */ /* x159170 stalin.sc:22243:777945 */ t38654 = p16980->a28835; /* x159171 stalin.sc:22244:777950 */ t38655 = p16980->a28824; /* x159172 stalin.sc:22245:777954 */ t38656 = p16980->a28834; /* x159182 stalin.sc:22246:777959 */ t38657 = p16980; /* x159188 stalin.sc:22247:778012 */ t38658 = p16980; /* x159168 stalin.sc:22242:777918 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38654; b26113 = t38655; b26114 = t38656; b26115.tag = NATIVE_PROCEDURE_TYPE21138; b26115.value.native_procedure_type21138 = t38657; b26116.tag = NATIVE_PROCEDURE_TYPE21137; b26116.value.native_procedure_type21137 = t38658; return f14692(); l5657: /* x159294 */ /* x159293 */ t38646 = e16978; p16983 = t38646; /* x159292 stalin.sc:22249:778068 */ /* x159193 stalin.sc:22250:778092 */ /* x159194 stalin.sc:22250:778105 */ t38647 = p16983->a28824; /* x159195 stalin.sc:22250:778107 */ t38648 = p16983->a28825; /* x159196 stalin.sc:22250:778109 */ t38649 = a28827; /* x159197 stalin.sc:22250:778112 */ t38650 = *((struct w16638 *)(&a28828)); /* x159228 stalin.sc:22251:778119 */ /* x159290 stalin.sc:22256:778374 */ t38651 = p16983; /* x159291 stalin.sc:22266:778759 */ t38652 = "times"; /* x159192 stalin.sc:22249:778069 */ b26731 = NATIVE_PROCEDURE_TYPE7426; b26732 = t38647; b26733 = t38648; b26734 = t38649; b26735 = *((struct w49 *)(&t38650)); b26736 = NATIVE_PROCEDURE_TYPE21124; b26737 = ((unsigned)t38651)+2; b26738 = t38652; return f15573(); case NATIVE_PROCEDURE_TYPE6447: a28763 = t37834; a28764 = t37835; a28766 = t37837; a28767 = t37838; a28773 = t37844; a28774 = t37845; e16937 = (struct p16937 *)GC_malloc(sizeof(struct p16937)); if (e16937==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16937->a28763 = a28763; e16937->a28764 = a28764; e16937->a28773 = a28773; e16937->a28774 = a28774; /* x159037 stalin.sc:22191:776190 */ /* x158895 stalin.sc:22192:776199 */ /* x158894 stalin.sc:22192:776206 */ t38664 = a28767; /* x268205 stalin.sc:22192:776200 */ if (!((t38664.tag)==NULL_TYPE)) goto l5659; /* x158903 */ /* x158902 */ t38681 = e16937; p16938 = t38681; /* x158901 stalin.sc:22192:776210 */ /* x158897 stalin.sc:22192:776217 */ t38682 = p16938->a28763; /* x158899 stalin.sc:22192:776219 */ /* x158898 stalin.sc:22192:776220 */ /* x276919 stalin.sc:14555:511005 */ t38683 = "0"; /* x158900 stalin.sc:22192:776225 */ /* x158896 stalin.sc:22192:776211 */ t38684.tag = STRING_TYPE; t38684.value.string_type = t38683; t38685 = (unsigned)NATIVE_PROCEDURE_TYPE7430; return f15508(t38682, t38684, t38685); l5659: /* x159036 */ /* x158908 stalin.sc:22193:776243 */ /* x158907 stalin.sc:22193:776250 */ /* x158906 stalin.sc:22193:776256 */ t38666 = *((struct w16638 *)(&a28767)); /* x158905 stalin.sc:22193:776251 */ a35413 = t38666; /* x273009 */ /* x273008 */ t38667 = a35413; /* x273007 */ if (!((t38667.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29562]"); structure_ref_error();} t38665 = t38667.value.structure_type24753->s1; /* x268204 stalin.sc:22193:776244 */ if (!((t38665.tag)==NULL_TYPE)) goto l5661; /* x158932 */ /* x158931 */ t38675 = e16937; p16939 = t38675; /* x158930 stalin.sc:22194:776264 */ /* x158910 stalin.sc:22194:776277 */ /* x158911 stalin.sc:22195:776292 */ t38676 = p16939->a28774; /* x158912 stalin.sc:22196:776297 */ t38677 = p16939->a28763; /* x158913 stalin.sc:22197:776301 */ t38678 = p16939->a28773; /* x158923 stalin.sc:22198:776306 */ t38679 = p16939; /* x158929 stalin.sc:22199:776359 */ t38680 = p16939; /* x158909 stalin.sc:22194:776265 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38676; b26113 = t38677; b26114 = t38678; b26115.tag = NATIVE_PROCEDURE_TYPE21226; b26115.value.native_procedure_type21226 = t38679; b26116.tag = NATIVE_PROCEDURE_TYPE21225; b26116.value.native_procedure_type21225 = t38680; return f14692(); l5661: /* x159035 */ /* x159034 */ t38668 = e16937; p16942 = t38668; /* x159033 stalin.sc:22201:776414 */ /* x158934 stalin.sc:22202:776438 */ /* x158935 stalin.sc:22202:776451 */ t38669 = p16942->a28763; /* x158936 stalin.sc:22202:776453 */ t38670 = p16942->a28764; /* x158937 stalin.sc:22202:776455 */ t38671 = a28766; /* x158938 stalin.sc:22202:776458 */ t38672 = *((struct w16638 *)(&a28767)); /* x158969 stalin.sc:22203:776465 */ /* x159031 stalin.sc:22208:776720 */ t38673 = p16942; /* x159032 stalin.sc:22218:777102 */ t38674 = "plus"; /* x158933 stalin.sc:22201:776415 */ b26731 = NATIVE_PROCEDURE_TYPE7426; b26732 = t38669; b26733 = t38670; b26734 = t38671; b26735 = *((struct w49 *)(&t38672)); b26736 = NATIVE_PROCEDURE_TYPE21212; b26737 = ((unsigned)t38673)+1; b26738 = t38674; return f15573(); case NATIVE_PROCEDURE_TYPE6453: a28704 = t37834; a28705 = t37835; a28707 = t37837; a28708 = t37838; a28714 = t37844; a28715 = t37845; e16907 = (struct p16907 *)GC_malloc(sizeof(struct p16907)); if (e16907==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16907->a28704 = a28704; e16907->a28705 = a28705; e16907->a28714 = a28714; e16907->a28715 = a28715; /* x158778 stalin.sc:22147:774619 */ /* x158692 stalin.sc:22147:774623 */ /* x158691 stalin.sc:22147:774630 */ /* x158690 stalin.sc:22147:774636 */ t38687 = a28708; /* x158689 stalin.sc:22147:774631 */ a35429 = t38687; /* x273073 */ /* x273072 */ t38688 = a35429; /* x273071 */ if (!((t38688.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29578]"); structure_ref_error();} t38686 = t38688.value.structure_type24753->s1; /* x268209 stalin.sc:22147:774624 */ if (!((t38686.tag)==NULL_TYPE)) goto l5663; /* x158739 stalin.sc:22148:774646 */ /* x158694 stalin.sc:22149:774665 */ /* x158695 stalin.sc:22150:774684 */ t38694 = e16907->a28715; /* x158696 stalin.sc:22151:774693 */ t38695 = e16907->a28704; /* x158697 stalin.sc:22152:774701 */ t38696 = e16907->a28714; /* x158732 stalin.sc:22153:774710 */ t38697 = e16907; /* x158738 stalin.sc:22158:774949 */ t38698 = e16907; /* x158693 stalin.sc:22148:774647 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38694; b26113 = t38695; b26114 = t38696; b26115.tag = NATIVE_PROCEDURE_TYPE21111; b26115.value.native_procedure_type21111 = t38697; b26116.tag = NATIVE_PROCEDURE_TYPE21110; b26116.value.native_procedure_type21110 = t38698; return f14692(); l5663: /* x158777 stalin.sc:22159:774996 */ /* x158741 stalin.sc:22160:775022 */ /* x158742 stalin.sc:22160:775035 */ t38689 = e16907->a28704; /* x158743 stalin.sc:22160:775037 */ t38690 = e16907->a28705; /* x158744 stalin.sc:22160:775039 */ t38691 = a28707; /* x158745 stalin.sc:22160:775042 */ t38692 = a28708; /* x158757 stalin.sc:22162:775103 */ /* x158775 stalin.sc:22166:775330 */ /* x158776 stalin.sc:22170:775451 */ t38693 = "min"; /* x158740 stalin.sc:22159:774997 */ b26731 = NATIVE_PROCEDURE_TYPE7426; b26732 = t38689; b26733 = t38690; b26734 = t38691; b26735 = t38692; b26736 = NATIVE_PROCEDURE_TYPE21097; b26737 = (unsigned)NATIVE_PROCEDURE_TYPE21096; b26738 = t38693; return f15573(); case NATIVE_PROCEDURE_TYPE6459: a28645 = t37834; a28646 = t37835; a28648 = t37837; a28649 = t37838; a28655 = t37844; a28656 = t37845; e16879 = (struct p16879 *)GC_malloc(sizeof(struct p16879)); if (e16879==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16879->a28645 = a28645; e16879->a28646 = a28646; e16879->a28655 = a28655; e16879->a28656 = a28656; /* x158584 stalin.sc:22106:773116 */ /* x158498 stalin.sc:22106:773120 */ /* x158497 stalin.sc:22106:773127 */ /* x158496 stalin.sc:22106:773133 */ t38700 = a28649; /* x158495 stalin.sc:22106:773128 */ a35417 = t38700; /* x273025 */ /* x273024 */ t38701 = a35417; /* x273023 */ if (!((t38701.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29566]"); structure_ref_error();} t38699 = t38701.value.structure_type24753->s1; /* x268212 stalin.sc:22106:773121 */ if (!((t38699.tag)==NULL_TYPE)) goto l5665; /* x158545 stalin.sc:22107:773143 */ /* x158500 stalin.sc:22108:773162 */ /* x158501 stalin.sc:22109:773181 */ t38707 = e16879->a28656; /* x158502 stalin.sc:22110:773190 */ t38708 = e16879->a28645; /* x158503 stalin.sc:22111:773198 */ t38709 = e16879->a28655; /* x158538 stalin.sc:22112:773207 */ t38710 = e16879; /* x158544 stalin.sc:22117:773446 */ t38711 = e16879; /* x158499 stalin.sc:22107:773144 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38707; b26113 = t38708; b26114 = t38709; b26115.tag = NATIVE_PROCEDURE_TYPE21118; b26115.value.native_procedure_type21118 = t38710; b26116.tag = NATIVE_PROCEDURE_TYPE21117; b26116.value.native_procedure_type21117 = t38711; return f14692(); l5665: /* x158583 stalin.sc:22118:773493 */ /* x158547 stalin.sc:22119:773519 */ /* x158548 stalin.sc:22119:773532 */ t38702 = e16879->a28645; /* x158549 stalin.sc:22119:773534 */ t38703 = e16879->a28646; /* x158550 stalin.sc:22119:773536 */ t38704 = a28648; /* x158551 stalin.sc:22119:773539 */ t38705 = a28649; /* x158563 stalin.sc:22121:773600 */ /* x158581 stalin.sc:22125:773827 */ /* x158582 stalin.sc:22129:773948 */ t38706 = "max"; /* x158546 stalin.sc:22118:773494 */ b26731 = NATIVE_PROCEDURE_TYPE7426; b26732 = t38702; b26733 = t38703; b26734 = t38704; b26735 = t38705; b26736 = NATIVE_PROCEDURE_TYPE21116; b26737 = (unsigned)NATIVE_PROCEDURE_TYPE21115; b26738 = t38706; return f15573(); case NATIVE_PROCEDURE_TYPE6465: a28592 = t37834; a28593 = t37835; a28602 = t37844; a28603 = t37845; e16852 = (struct p16852 *)GC_malloc(sizeof(struct p16852)); if (e16852==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16852->a28592 = a28592; e16852->a28593 = a28593; e16852->a28602 = a28602; e16852->a28603 = a28603; /* x158390 stalin.sc:22071:771920 */ /* x158300 stalin.sc:22072:771935 */ /* x158301 stalin.sc:22073:771950 */ t38712 = e16852->a28603; /* x158302 stalin.sc:22074:771955 */ t38713 = e16852->a28592; /* x158303 stalin.sc:22075:771959 */ t38714 = e16852->a28602; /* x158383 stalin.sc:22076:771964 */ t38715 = e16852; /* x158389 stalin.sc:22088:772406 */ t38716 = e16852; /* x158299 stalin.sc:22071:771921 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38712; b26113 = t38713; b26114 = t38714; b26115.tag = NATIVE_PROCEDURE_TYPE21091; b26115.value.native_procedure_type21091 = t38715; b26116.tag = NATIVE_PROCEDURE_TYPE21090; b26116.value.native_procedure_type21090 = t38716; return f14692(); case NATIVE_PROCEDURE_TYPE6471: a28547 = t37834; a28548 = t37835; a28557 = t37844; a28558 = t37845; e16838 = (struct p16838 *)GC_malloc(sizeof(struct p16838)); if (e16838==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16838->a28547 = a28547; e16838->a28548 = a28548; e16838->a28557 = a28557; e16838->a28558 = a28558; /* x158261 stalin.sc:22043:771119 */ /* x158171 stalin.sc:22044:771134 */ /* x158172 stalin.sc:22045:771149 */ t38717 = e16838->a28558; /* x158173 stalin.sc:22046:771154 */ t38718 = e16838->a28547; /* x158174 stalin.sc:22047:771158 */ t38719 = e16838->a28557; /* x158254 stalin.sc:22048:771163 */ t38720 = e16838; /* x158260 stalin.sc:22060:771605 */ t38721 = e16838; /* x158170 stalin.sc:22043:771120 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38717; b26113 = t38718; b26114 = t38719; b26115.tag = NATIVE_PROCEDURE_TYPE21229; b26115.value.native_procedure_type21229 = t38720; b26116.tag = NATIVE_PROCEDURE_TYPE21228; b26116.value.native_procedure_type21228 = t38721; return f14692(); case NATIVE_PROCEDURE_TYPE6477: a28494 = t37834; a28495 = t37835; a28504 = t37844; a28505 = t37845; e16815 = (struct p16815 *)GC_malloc(sizeof(struct p16815)); if (e16815==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16815->a28494 = a28494; e16815->a28495 = a28495; e16815->a28504 = a28504; e16815->a28505 = a28505; /* x158132 stalin.sc:22009:770152 */ /* x158016 stalin.sc:22010:770167 */ /* x158017 stalin.sc:22016:770319 */ t38722 = e16815->a28505; /* x158018 stalin.sc:22017:770324 */ t38723 = e16815->a28494; /* x158019 stalin.sc:22018:770328 */ t38724 = e16815->a28504; /* x158125 stalin.sc:22019:770333 */ t38725 = e16815; /* x158131 stalin.sc:22032:770808 */ t38726 = e16815; /* x157980 stalin.sc:22009:770153 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE21067; b26112 = t38722; b26113 = t38723; b26114 = t38724; b26115.tag = NATIVE_PROCEDURE_TYPE21066; b26115.value.native_procedure_type21066 = t38725; b26116.tag = NATIVE_PROCEDURE_TYPE21065; b26116.value.native_procedure_type21065 = t38726; return f14692(); case NATIVE_PROCEDURE_TYPE6483: a28432 = t37834; a28433 = t37835; a28435 = t37837; a28436 = t37838; /* x157837 stalin.sc:21981:769363 */ /* x157827 stalin.sc:21981:769383 */ t38727 = a28432; /* x157828 stalin.sc:21981:769385 */ t38728 = a28433; /* x157829 stalin.sc:21981:769387 */ t38729 = a28435; /* x157830 stalin.sc:21981:769390 */ t38730 = a28436; /* x157835 stalin.sc:21981:769393 */ /* x157836 stalin.sc:21981:769429 */ t38731 = "ge"; /* x157826 stalin.sc:21981:769364 */ b26712 = t38727; b26713 = t38728; b26714 = t38729; b26715 = t38730; b26716 = NATIVE_PROCEDURE_TYPE21080; b26717 = t38731; return f15564(); case NATIVE_PROCEDURE_TYPE6489: a28383 = t37834; a28384 = t37835; a28386 = t37837; a28387 = t37838; /* x157784 stalin.sc:21971:768997 */ /* x157774 stalin.sc:21971:769017 */ t38732 = a28383; /* x157775 stalin.sc:21971:769019 */ t38733 = a28384; /* x157776 stalin.sc:21971:769021 */ t38734 = a28386; /* x157777 stalin.sc:21971:769024 */ t38735 = a28387; /* x157782 stalin.sc:21971:769027 */ /* x157783 stalin.sc:21971:769063 */ t38736 = "le"; /* x157773 stalin.sc:21971:768998 */ b26712 = t38732; b26713 = t38733; b26714 = t38734; b26715 = t38735; b26716 = NATIVE_PROCEDURE_TYPE21064; b26717 = t38736; return f15564(); case NATIVE_PROCEDURE_TYPE6495: a28334 = t37834; a28335 = t37835; a28337 = t37837; a28338 = t37838; /* x157731 stalin.sc:21961:768632 */ /* x157721 stalin.sc:21961:768652 */ t38737 = a28334; /* x157722 stalin.sc:21961:768654 */ t38738 = a28335; /* x157723 stalin.sc:21961:768656 */ t38739 = a28337; /* x157724 stalin.sc:21961:768659 */ t38740 = a28338; /* x157729 stalin.sc:21961:768662 */ /* x157730 stalin.sc:21961:768697 */ t38741 = "gt"; /* x157720 stalin.sc:21961:768633 */ b26712 = t38737; b26713 = t38738; b26714 = t38739; b26715 = t38740; b26716 = NATIVE_PROCEDURE_TYPE21081; b26717 = t38741; return f15564(); case NATIVE_PROCEDURE_TYPE6501: a28285 = t37834; a28286 = t37835; a28288 = t37837; a28289 = t37838; /* x157678 stalin.sc:21951:768268 */ /* x157668 stalin.sc:21951:768288 */ t38742 = a28285; /* x157669 stalin.sc:21951:768290 */ t38743 = a28286; /* x157670 stalin.sc:21951:768292 */ t38744 = a28288; /* x157671 stalin.sc:21951:768295 */ t38745 = a28289; /* x157676 stalin.sc:21951:768298 */ /* x157677 stalin.sc:21951:768333 */ t38746 = "lt"; /* x157667 stalin.sc:21951:768269 */ b26712 = t38742; b26713 = t38743; b26714 = t38744; b26715 = t38745; b26716 = NATIVE_PROCEDURE_TYPE21054; b26717 = t38746; return f15564(); case NATIVE_PROCEDURE_TYPE6507: a28236 = t37834; a28237 = t37835; a28239 = t37837; a28240 = t37838; /* x157625 stalin.sc:21931:767604 */ /* x157559 stalin.sc:21932:767626 */ t38747 = a28236; /* x157560 stalin.sc:21932:767628 */ t38748 = a28237; /* x157561 stalin.sc:21932:767630 */ t38749 = a28239; /* x157562 stalin.sc:21932:767633 */ t38750 = a28240; /* x157623 stalin.sc:21933:767638 */ /* x157624 stalin.sc:21941:767968 */ t38751 = "eql"; /* x157558 stalin.sc:21931:767605 */ b26712 = t38747; b26713 = t38748; b26714 = t38749; b26715 = t38750; b26716 = NATIVE_PROCEDURE_TYPE21063; b26717 = t38751; return f15564(); case NATIVE_PROCEDURE_TYPE6513: a28189 = t37834; a28190 = t37835; a28199 = t37844; a28200 = t37845; e16735 = (struct p16735 *)GC_malloc(sizeof(struct p16735)); if (e16735==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16735->a28189 = a28189; e16735->a28190 = a28190; /* x157516 stalin.sc:21916:767141 */ /* x157499 stalin.sc:21916:767154 */ /* x157500 stalin.sc:21917:767174 */ t38752 = a28200; /* x157501 stalin.sc:21918:767184 */ t38753 = e16735->a28189; /* x157502 stalin.sc:21919:767193 */ t38754 = a28199; /* x157509 stalin.sc:21920:767203 */ t38755 = e16735; /* x157515 stalin.sc:21921:767265 */ t38756 = e16735; /* x157498 stalin.sc:21916:767142 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38752; b26113 = t38753; b26114 = t38754; b26115.tag = NATIVE_PROCEDURE_TYPE21049; b26115.value.native_procedure_type21049 = t38755; b26116.tag = NATIVE_PROCEDURE_TYPE21048; b26116.value.native_procedure_type21048 = t38756; return f14692(); case NATIVE_PROCEDURE_TYPE6519: a28142 = t37834; a28143 = t37835; a28152 = t37844; a28153 = t37845; e16719 = (struct p16719 *)GC_malloc(sizeof(struct p16719)); if (e16719==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16719->a28142 = a28142; e16719->a28143 = a28143; /* x157423 stalin.sc:21898:766560 */ /* x157406 stalin.sc:21898:766573 */ /* x157407 stalin.sc:21899:766593 */ t38757 = a28153; /* x157408 stalin.sc:21900:766603 */ t38758 = e16719->a28142; /* x157409 stalin.sc:21901:766612 */ t38759 = a28152; /* x157416 stalin.sc:21902:766622 */ t38760 = e16719; /* x157422 stalin.sc:21903:766682 */ t38761 = e16719; /* x157405 stalin.sc:21898:766561 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t38757; b26113 = t38758; b26114 = t38759; b26115.tag = NATIVE_PROCEDURE_TYPE21083; b26115.value.native_procedure_type21083 = t38760; b26116.tag = NATIVE_PROCEDURE_TYPE21082; b26116.value.native_procedure_type21082 = t38761; return f14692(); case NATIVE_PROCEDURE_TYPE6525: a28095 = t37834; a28105 = t37844; a28106 = t37845; e16699 = (struct p16699 *)GC_malloc(sizeof(struct p16699)); if (e16699==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16699->a28095 = a28095; e16699->a28105 = a28105; e16699->a28106 = a28106; /* x157330 stalin.sc:21869:765713 */ /* x157247 stalin.sc:21870:765728 */ /* x157248 stalin.sc:21871:765736 */ t38762 = e16699->a28106; /* x157249 stalin.sc:21872:765741 */ t38763 = e16699->a28095; /* x157250 stalin.sc:21873:765745 */ t38764 = e16699->a28105; /* x157326 stalin.sc:21874:765750 */ t38765 = e16699; /* x157329 stalin.sc:21885:766122 */ /* x157246 stalin.sc:21869:765714 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7404; b26112 = t38762; b26113 = t38763; b26114 = t38764; b26115.tag = NATIVE_PROCEDURE_TYPE21037; b26115.value.native_procedure_type21037 = t38765; b26116.tag = NATIVE_PROCEDURE_TYPE21036; return f14692(); case NATIVE_PROCEDURE_TYPE6531: a28046 = t37834; a28056 = t37844; a28057 = t37845; e16677 = (struct p16677 *)GC_malloc(sizeof(struct p16677)); if (e16677==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16677->a28046 = a28046; e16677->a28056 = a28056; e16677->a28057 = a28057; /* x157152 stalin.sc:21846:764898 */ /* x157112 stalin.sc:21846:764911 */ /* x157113 stalin.sc:21847:764924 */ t38766 = e16677->a28057; /* x157114 stalin.sc:21848:764934 */ t38767 = e16677->a28046; /* x157115 stalin.sc:21849:764943 */ t38768 = e16677->a28056; /* x157148 stalin.sc:21850:764953 */ t38769 = e16677; /* x157151 stalin.sc:21855:765163 */ /* x157111 stalin.sc:21846:764899 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7404; b26112 = t38766; b26113 = t38767; b26114 = t38768; b26115.tag = NATIVE_PROCEDURE_TYPE21043; b26115.value.native_procedure_type21043 = t38769; b26116.tag = NATIVE_PROCEDURE_TYPE21042; return f14692(); case NATIVE_PROCEDURE_TYPE6537: a28006 = t37841; /* x157010 stalin.sc:21828:764262 */ /* x157009 stalin.sc:21828:764286 */ /* x157008 stalin.sc:21828:764263 */ t38770 = a28006; t38771 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7426; return f15830(t38770, t38771); case NATIVE_PROCEDURE_TYPE6543: a27951 = t37834; a27952 = t37835; a27961 = t37844; a27962 = t37845; e16645 = (struct p16645 *)GC_malloc(sizeof(struct p16645)); if (e16645==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16645->a27951 = a27951; e16645->a27952 = a27952; e16645->a27961 = a27961; e16645->a27962 = a27962; /* x156945 stalin.sc:21804:763582 */ /* x156914 stalin.sc:21805:763597 */ /* x156915 stalin.sc:21806:763612 */ t38772 = e16645->a27962; /* x156916 stalin.sc:21807:763617 */ t38773 = e16645->a27951; /* x156917 stalin.sc:21808:763621 */ t38774 = e16645->a27961; /* x156938 stalin.sc:21809:763626 */ t38775 = e16645; /* x156944 stalin.sc:21815:763787 */ t38776 = e16645; /* x156913 stalin.sc:21804:763583 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7822; b26112 = t38772; b26113 = t38773; b26114 = t38774; b26115.tag = NATIVE_PROCEDURE_TYPE21088; b26115.value.native_procedure_type21088 = t38775; b26116.tag = NATIVE_PROCEDURE_TYPE21087; b26116.value.native_procedure_type21087 = t38776; return f14692(); case NATIVE_PROCEDURE_TYPE6549: a27905 = t37834; a27906 = t37835; a27915 = t37844; a27916 = t37845; e16629 = (struct p16629 *)GC_malloc(sizeof(struct p16629)); if (e16629==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16629->a27905 = a27905; e16629->a27906 = a27906; e16629->a27915 = a27915; e16629->a27916 = a27916; /* x156866 stalin.sc:21776:762849 */ /* x156865 stalin.sc:21776:762858 */ /* x156864 stalin.sc:21776:762875 */ t38784 = e16629->a27905; /* x156863 stalin.sc:21776:762859 */ a38422 = t38784; /* x286357 */ /* x286356 */ t38785 = a38422; /* x286355 */ if (!(t38785>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33339]"); structure_ref_error();} /* x156862 */ t38777 = e16629; p16630 = t38777; /* x156861 stalin.sc:21777:762882 */ /* x156814 stalin.sc:21778:762898 */ /* x156815 stalin.sc:21779:762914 */ t38779 = p16630->a27916; /* x156816 stalin.sc:21780:762920 */ t38780 = p16630->a27905; /* x156817 stalin.sc:21781:762925 */ t38781 = p16630->a27915; /* x156854 stalin.sc:21782:762931 */ t38782 = p16630; /* x156860 stalin.sc:21790:763191 */ t38783 = p16630; /* x156813 stalin.sc:21777:762883 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7418; b26112 = t38779; b26113 = t38780; b26114 = t38781; b26115.tag = NATIVE_PROCEDURE_TYPE20919; b26115.value.native_procedure_type20919 = t38782; b26116.tag = NATIVE_PROCEDURE_TYPE20918; b26116.value.native_procedure_type20918 = t38783; return f14692(); case NATIVE_PROCEDURE_TYPE6555: a27870 = t37841; /* x156780 stalin.sc:21766:762559 */ /* x156779 stalin.sc:21766:762583 */ /* x156778 stalin.sc:21766:762560 */ t38786 = a27870; t38787 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7418; return f15830(t38786, t38787); case NATIVE_PROCEDURE_TYPE6561: a27825 = t37841; /* x156715 stalin.sc:21753:762114 */ /* x156714 stalin.sc:21753:762138 */ /* x156713 stalin.sc:21753:762115 */ t38788 = a27825; t38789 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7435; return f15830(t38788, t38789); case NATIVE_PROCEDURE_TYPE6567: a27722 = t37834; a27723 = t37835; a27732 = t37844; a27733 = t37845; a27734 = t37846; a27735 = t37847; e16486 = (struct p16486 *)GC_malloc(sizeof(struct p16486)); if (e16486==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16486->a27722 = a27722; e16486->a27732 = a27732; e16486->a27733 = a27733; e16486->a27734 = a27734; e16486->a27735 = a27735; /* x156650 stalin.sc:21299:744436 */ /* x156649 stalin.sc:21299:744446 */ /* x156645 stalin.sc:21299:744461 */ /* x156644 stalin.sc:21299:744470 */ t39627 = e16486->a27733; /* x156643 stalin.sc:21299:744462 */ t39624 = f8162(t39627); /* x156648 stalin.sc:21299:744474 */ /* x156647 stalin.sc:21299:744483 */ t39628 = e16486->a27735; /* x156646 stalin.sc:21299:744475 */ t39625 = f8162(t39628); /* x156642 stalin.sc:21299:744447 */ /* MOVE: branching squeezed to general */ if (t39625>=((struct structure_type24753 *)VALUE_OFFSET)) {t39626.tag = STRUCTURE_TYPE24753; t39626.value.structure_type24753 = t39625;} else t39626.tag = (unsigned)t39625; t38791 = f1422(t39624, t39626); /* x156641 */ t38790 = e16486; p16487 = t38790; a27738 = t38791; /* x156640 stalin.sc:21300:744492 */ /* x154843 stalin.sc:21300:744496 */ /* x154842 stalin.sc:21300:744500 */ /* x154841 stalin.sc:21300:744507 */ t38792 = a27738; /* x268294 stalin.sc:21300:744501 */ if ((t38792.tag)==NULL_TYPE) goto l5666; /* x154837 */ /* x154757 stalin.sc:21301:744521 */ /* x154756 stalin.sc:21301:744533 */ t38793 = a27723; /* x154755 stalin.sc:21301:744522 */ t38794.tag = STRUCTURE_TYPE27745; t38794.value.structure_type27745 = t38793; if (f8944(t38794)==FALSE_TYPE) goto l5670; /* x154826 */ /* x154825 */ /* x154824 */ /* x154823 stalin.sc:21302:744539 */ /* x154816 stalin.sc:21302:744547 */ /* x154780 stalin.sc:21302:744552 */ /* x154778 stalin.sc:21302:744557 */ /* x154777 stalin.sc:21302:744574 */ /* x154776 stalin.sc:21302:744596 */ t38817 = a27723; /* x154775 stalin.sc:21302:744575 */ a36435 = t38817; /* x278409 */ /* x278408 */ t38818 = a36435; /* x278407 */ t38815 = t38818->s0; /* x154774 stalin.sc:21302:744558 */ a40284 = t38815; /* x293805 */ /* x293804 */ t38816 = a40284; /* x293803 */ if (!((t38816.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35201]"); structure_ref_error();} t38813 = t38816.value.structure_type27698->s0; /* x154779 stalin.sc:21303:744607 */ t38814 = q37; /* x268298 stalin.sc:21302:744553 */ if (!(t38813==t38814)) goto l5673; /* x154814 */ /* x154790 stalin.sc:21304:744633 */ /* x154788 stalin.sc:21304:744638 */ /* x154787 stalin.sc:21305:744663 */ /* x154786 stalin.sc:21306:744691 */ /* x154785 stalin.sc:21306:744713 */ t38825 = a27723; /* x154784 stalin.sc:21306:744692 */ a36434 = t38825; /* x278405 */ /* x278404 */ t38826 = a36434; /* x278403 */ t38823 = t38826->s0; /* x154783 stalin.sc:21305:744664 */ a38629 = t38823; /* x287185 */ /* x287184 */ t38824 = a38629; /* x287183 */ if (!((t38824.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33546]"); structure_ref_error();} t38821 = t38824.value.structure_type27698->s21; /* x154782 stalin.sc:21304:744639 */ a40283 = t38821; /* x293801 */ /* x293800 */ t38822 = a40283; /* x293799 */ if (!((t38822.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35200]"); structure_ref_error();} t38819 = t38822.value.structure_type27698->s0; /* x154789 stalin.sc:21307:744725 */ t38820 = q41; /* x268297 stalin.sc:21304:744634 */ if (!(t38819==t38820)) goto l5673; /* x154812 */ /* x154799 stalin.sc:21308:744759 */ /* x154798 stalin.sc:21308:744766 */ /* x154797 stalin.sc:21309:744799 */ /* x154796 stalin.sc:21310:744829 */ /* x154795 stalin.sc:21310:744851 */ t38833 = a27723; /* x154794 stalin.sc:21310:744830 */ a36433 = t38833; /* x278401 */ /* x278400 */ t38834 = a36433; /* x278399 */ t38831 = t38834->s0; /* x154793 stalin.sc:21309:744800 */ a38628 = t38831; /* x287181 */ /* x287180 */ t38832 = a38628; /* x287179 */ if (!((t38832.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33545]"); structure_ref_error();} t38829 = t38832.value.structure_type27698->s21; /* x154792 stalin.sc:21308:744767 */ a39427 = t38829; /* x290377 */ /* x290376 */ t38830 = a39427; /* x290375 */ if (!((t38830.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34344]"); structure_ref_error();} t38827 = t38830.value.structure_type27698->s14; /* x154791 stalin.sc:21308:744760 */ t38828 = *((struct w49 *)(&t38827)); if (f26209(t38828)==FALSE_TYPE) goto l5673; /* x154810 */ /* x154809 stalin.sc:21311:744871 */ /* x154808 stalin.sc:21311:744878 */ /* x154807 stalin.sc:21312:744909 */ /* x154806 stalin.sc:21313:744937 */ /* x154805 stalin.sc:21313:744959 */ t38840 = a27723; /* x154804 stalin.sc:21313:744938 */ a36432 = t38840; /* x278397 */ /* x278396 */ t38841 = a36432; /* x278395 */ t38838 = t38841->s0; /* x154803 stalin.sc:21312:744910 */ a38627 = t38838; /* x287177 */ /* x287176 */ t38839 = a38627; /* x287175 */ if (!((t38839.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33544]"); structure_ref_error();} t38836 = t38839.value.structure_type27698->s21; /* x154802 stalin.sc:21311:744879 */ a39426 = t38836; /* x290373 */ /* x290372 */ t38837 = a39426; /* x290371 */ if (!((t38837.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34343]"); structure_ref_error();} t38835 = t38837.value.structure_type27698->s14; /* x268295 stalin.sc:21311:744872 */ if ((t38835.tag)==NULL_TYPE) goto l5673; /* x154818 */ /* x154817 */ goto l5674; l5673: /* x154822 */ /* x154821 */ /* x154820 stalin.sc:21314:744971 */ /* x154819 stalin.sc:21314:744972 */ /* x295797 QobiScheme.sc:166:5314 */ /* x295796 QobiScheme.sc:166:5321 */ t38842 = "This shouldn\'t happen"; /* x295795 QobiScheme.sc:166:5315 */ stalin_panic(t38842); l5674: /* x154772 */ /* x154771 stalin.sc:21315:744985 */ /* x154759 stalin.sc:21316:744999 */ /* x154770 stalin.sc:21317:745015 */ /* x154769 stalin.sc:21318:745039 */ /* x154768 stalin.sc:21318:745046 */ /* x154767 stalin.sc:21319:745075 */ /* x154766 stalin.sc:21319:745094 */ /* x154765 stalin.sc:21319:745116 */ t38811 = a27723; /* x154764 stalin.sc:21319:745095 */ a36431 = t38811; /* x278393 */ /* x278392 */ t38812 = a36431; /* x278391 */ t38809 = t38812->s0; /* x154763 stalin.sc:21319:745076 */ a38626 = t38809; /* x287173 */ /* x287172 */ t38810 = a38626; /* x287171 */ if (!((t38810.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33543]"); structure_ref_error();} t38807 = t38810.value.structure_type27698->s21; /* x154762 stalin.sc:21318:745047 */ a39425 = t38807; /* x290369 */ /* x290368 */ t38808 = a39425; /* x290367 */ if (!((t38808.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34342]"); structure_ref_error();} t38805 = t38808.value.structure_type27698->s14; /* x154761 stalin.sc:21318:745040 */ a35895 = t38805; /* x274937 */ /* x274936 */ t38806 = a35895; /* x274935 */ if (!((t38806.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30044]"); structure_ref_error();} t38803 = t38806.value.structure_type24753->s0; /* x154760 stalin.sc:21317:745016 */ a36842 = t38803; /* x280037 */ /* x280036 */ t38804 = a36842; /* x280035 */ if (!((t38804.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31759]"); structure_ref_error();} t38801 = t38804.value.structure_type27692->s9; /* x154758 stalin.sc:21315:744986 */ t38802.tag = NATIVE_PROCEDURE_TYPE7433; if (f8146(t38802, t38801)==FALSE_TYPE) goto l5667; goto l5671; l5670: /* x154836 */ /* x154835 */ /* x154834 stalin.sc:21321:745136 */ /* x154828 stalin.sc:21321:745146 */ /* x154833 stalin.sc:21322:745164 */ /* x154832 stalin.sc:21322:745185 */ /* x154831 stalin.sc:21322:745207 */ t38799 = a27723; /* x154830 stalin.sc:21322:745186 */ a36436 = t38799; /* x278413 */ /* x278412 */ t38800 = a36436; /* x278411 */ t38797 = t38800->s0; /* x154829 stalin.sc:21322:745165 */ a39897 = t38797; /* x292257 */ /* x292256 */ t38798 = a39897; /* x292255 */ if (!((t38798.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34814]"); structure_ref_error();} t38795 = t38798.value.structure_type27698->s10; /* x154827 stalin.sc:21321:745137 */ t38796.tag = NATIVE_PROCEDURE_TYPE7433; if (f8146(t38796, t38795)==FALSE_TYPE) goto l5667; l5671: l5666: /* x154846 stalin.sc:21323:745221 */ /* x154845 stalin.sc:21323:745235 */ t39623 = p16487->a27722; /* x154844 stalin.sc:21323:745222 */ return f14708(t39623); l5667: /* x156639 stalin.sc:21324:745244 */ /* x154849 stalin.sc:21325:745258 */ /* x154848 stalin.sc:21325:745265 */ t38843 = p16487->a27733; /* x154847 stalin.sc:21325:745259 */ if (f8151(t38843)==FALSE_TYPE) goto l5679; /* x154944 */ /* x154943 */ t39572 = p16487; p16494 = t39572; /* x154942 stalin.sc:21326:745270 */ /* x154852 stalin.sc:21326:745277 */ /* x154851 stalin.sc:21326:745284 */ t39573 = p16494->a27735; /* x154850 stalin.sc:21326:745278 */ if (f8151(t39573)==FALSE_TYPE) goto l5830; /* x154857 */ /* x154856 */ t39621 = p16494; p16495 = t39621; /* x154855 stalin.sc:21329:745407 */ /* x154854 stalin.sc:21329:745420 */ t39622 = p16495->a27722; /* x154853 stalin.sc:21329:745408 */ return f14707(t39622); l5830: /* x154941 */ /* x154860 stalin.sc:21330:745432 */ /* x154859 stalin.sc:21330:745446 */ t39574 = p16494->a27735; /* x154858 stalin.sc:21330:745433 */ if (f8148(t39574)==FALSE_TYPE) goto l5832; /* x154864 */ /* x154863 */ /* x154862 stalin.sc:21333:745544 */ /* x154861 stalin.sc:21333:745545 */ /* x295801 QobiScheme.sc:166:5314 */ /* x295800 QobiScheme.sc:166:5321 */ t39620 = "This shouldn\'t happen"; /* x295799 QobiScheme.sc:166:5315 */ stalin_panic(t39620); l5832: /* x154940 */ /* x154867 stalin.sc:21334:745563 */ /* x154866 stalin.sc:21334:745574 */ t39575 = p16494->a27735; /* x154865 stalin.sc:21334:745564 */ if (f13798(t39575)==FALSE_TYPE) goto l5834; /* x154883 */ /* x154882 */ t39610 = p16494; p16497 = t39610; /* x154881 stalin.sc:21335:745586 */ /* x154869 stalin.sc:21336:745602 */ t39611 = p16497->a27722; /* x154880 stalin.sc:21336:745604 */ /* x154875 stalin.sc:21336:745610 */ /* x154874 stalin.sc:21336:745622 */ /* x154873 stalin.sc:21336:745634 */ t39617 = p16497->a27733; /* x154872 stalin.sc:21336:745623 */ t39616 = f8153(t39617); /* x154871 stalin.sc:21336:745611 */ t39613 = f14433(t39616); /* x154879 stalin.sc:21336:745639 */ /* x154877 stalin.sc:21336:745646 */ t39618 = p16497->a27734; /* x154878 stalin.sc:21336:745649 */ t39619 = p16497->a27735; /* x154876 stalin.sc:21336:745640 */ t39614 = f14478(t39618, t39619); /* x154870 stalin.sc:21336:745605 */ t39615 = *((struct w49 *)(&t39613)); t39612 = f13591(t39615, t39614); /* x154868 stalin.sc:21335:745587 */ return f14709(t39611, t39612); l5834: /* x154939 */ /* x154886 stalin.sc:21337:745664 */ /* x154885 stalin.sc:21337:745675 */ t39576 = p16494->a27735; /* x154884 stalin.sc:21337:745665 */ if (f13859(t39576)==FALSE_TYPE) goto l5836; /* x154902 */ /* x154901 */ t39599 = p16494; p16498 = t39599; /* x154900 stalin.sc:21342:745954 */ /* x154888 stalin.sc:21343:745970 */ t39600 = p16498->a27722; /* x154899 stalin.sc:21343:745972 */ /* x154897 stalin.sc:21343:745978 */ /* x154895 stalin.sc:21343:745995 */ /* x154894 stalin.sc:21343:746007 */ /* x154893 stalin.sc:21343:746019 */ t39609 = p16498->a27733; /* x154892 stalin.sc:21343:746008 */ t39608 = f8153(t39609); /* x154891 stalin.sc:21343:745996 */ t39605 = f14433(t39608); /* x154896 stalin.sc:21343:746024 */ t39606 = p16498->a27735; /* x154890 stalin.sc:21343:745979 */ t39607 = *((struct w49 *)(&t39605)); t39602 = f14422(t39607, t39606); /* x154898 stalin.sc:21343:746028 */ t39603 = p16498->a27734; /* x154889 stalin.sc:21343:745973 */ t39604.tag = STRUCTURE_TYPE24753; t39604.value.structure_type24753 = t39602; t39601 = f13591(t39604, t39603); /* x154887 stalin.sc:21342:745955 */ return f14709(t39600, t39601); l5836: /* x154938 */ /* x154905 stalin.sc:21344:746042 */ /* x154904 stalin.sc:21344:746053 */ t39577 = p16494->a27735; /* x154903 stalin.sc:21344:746043 */ if (f14024(t39577)==FALSE_TYPE) goto l5838; /* x154921 */ /* x154920 */ t39588 = p16494; p16499 = t39588; /* x154919 stalin.sc:21349:746332 */ /* x154907 stalin.sc:21350:746348 */ t39589 = p16499->a27722; /* x154918 stalin.sc:21350:746350 */ /* x154916 stalin.sc:21350:746356 */ /* x154914 stalin.sc:21350:746373 */ /* x154913 stalin.sc:21350:746385 */ /* x154912 stalin.sc:21350:746397 */ t39598 = p16499->a27733; /* x154911 stalin.sc:21350:746386 */ t39597 = f8153(t39598); /* x154910 stalin.sc:21350:746374 */ t39594 = f14433(t39597); /* x154915 stalin.sc:21350:746402 */ t39595 = p16499->a27735; /* x154909 stalin.sc:21350:746357 */ t39596 = *((struct w49 *)(&t39594)); t39591 = f14422(t39596, t39595); /* x154917 stalin.sc:21350:746406 */ t39592 = p16499->a27734; /* x154908 stalin.sc:21350:746351 */ t39593.tag = STRUCTURE_TYPE24753; t39593.value.structure_type24753 = t39591; t39590 = f13591(t39593, t39592); /* x154906 stalin.sc:21349:746333 */ return f14709(t39589, t39590); l5838: /* x154937 */ /* x154936 */ t39578 = p16494; p16500 = t39578; /* x154935 stalin.sc:21351:746425 */ /* x154923 stalin.sc:21352:746446 */ t39579 = p16500->a27722; /* x154934 stalin.sc:21352:746448 */ /* x154929 stalin.sc:21352:746454 */ /* x154928 stalin.sc:21352:746466 */ /* x154927 stalin.sc:21352:746478 */ t39585 = p16500->a27733; /* x154926 stalin.sc:21352:746467 */ t39584 = f8153(t39585); /* x154925 stalin.sc:21352:746455 */ t39581 = f14433(t39584); /* x154933 stalin.sc:21352:746483 */ /* x154931 stalin.sc:21352:746490 */ t39586 = p16500->a27734; /* x154932 stalin.sc:21352:746493 */ t39587 = p16500->a27735; /* x154930 stalin.sc:21352:746484 */ t39582 = f14478(t39586, t39587); /* x154924 stalin.sc:21352:746449 */ t39583 = *((struct w49 *)(&t39581)); t39580 = f13591(t39583, t39582); /* x154922 stalin.sc:21351:746426 */ return f14709(t39579, t39580); l5679: /* x156638 */ /* x154947 stalin.sc:21353:746510 */ /* x154946 stalin.sc:21353:746524 */ t38844 = p16487->a27733; /* x154945 stalin.sc:21353:746511 */ if (f8148(t38844)==FALSE_TYPE) goto l5681; /* x155116 */ /* x155115 */ t39478 = p16487; p16501 = t39478; /* x155114 stalin.sc:21354:746529 */ /* x154949 stalin.sc:21355:746545 */ t39479 = p16501->a27722; /* x155113 stalin.sc:21356:746549 */ /* x154952 stalin.sc:21357:746559 */ /* x154951 stalin.sc:21357:746566 */ t39481 = p16501->a27735; /* x154950 stalin.sc:21357:746560 */ if (f8151(t39481)==FALSE_TYPE) goto l5809; /* x154956 */ /* x154955 */ /* x154954 stalin.sc:21359:746645 */ /* x154953 stalin.sc:21359:746646 */ /* x295805 QobiScheme.sc:166:5314 */ /* x295804 QobiScheme.sc:166:5321 */ t39571 = "This shouldn\'t happen"; /* x295803 QobiScheme.sc:166:5315 */ stalin_panic(t39571); goto l5810; l5809: /* x155112 */ /* x154959 stalin.sc:21360:746660 */ /* x154958 stalin.sc:21360:746674 */ t39482 = p16501->a27735; /* x154957 stalin.sc:21360:746661 */ if (f8148(t39482)==FALSE_TYPE) goto l5812; /* x154980 */ /* x154979 */ t39558 = p16501; p16503 = t39558; /* x154978 stalin.sc:21361:746682 */ /* x154967 stalin.sc:21361:746694 */ /* x154962 stalin.sc:21361:746703 */ t39562 = p16503->a27732; /* x154965 stalin.sc:21361:746706 */ /* x154964 stalin.sc:21361:746718 */ t39565 = p16503->a27733; /* x154963 stalin.sc:21361:746707 */ t39563 = f8153(t39565); /* x154966 stalin.sc:21361:746722 */ t39564 = p16503->a27733; /* x154961 stalin.sc:21361:746695 */ t39559 = f14485(t39562, t39563, t39564); /* x154974 stalin.sc:21362:746735 */ /* x154969 stalin.sc:21362:746744 */ t39566 = p16503->a27734; /* x154972 stalin.sc:21362:746747 */ /* x154971 stalin.sc:21362:746759 */ t39569 = p16503->a27735; /* x154970 stalin.sc:21362:746748 */ t39567 = f8153(t39569); /* x154973 stalin.sc:21362:746763 */ t39568 = p16503->a27735; /* x154968 stalin.sc:21362:746736 */ t39560 = f14485(t39566, t39567, t39568); /* x154977 stalin.sc:21363:746776 */ /* x154976 stalin.sc:21363:746788 */ t39570 = p16503->a27733; /* x154975 stalin.sc:21363:746777 */ t39561 = f8153(t39570); /* x154960 stalin.sc:21361:746683 */ t39480 = f13784(t39559, t39560, t39561); goto l5813; l5812: /* x155111 */ /* x154983 stalin.sc:21364:746798 */ /* x154982 stalin.sc:21364:746809 */ t39483 = p16501->a27735; /* x154981 stalin.sc:21364:746799 */ if (f13798(t39483)==FALSE_TYPE) goto l5815; /* x155022 */ /* x155021 */ t39536 = p16501; p16504 = t39536; /* x155020 */ /* x155019 stalin.sc:21367:746902 */ /* x155012 stalin.sc:21367:746910 */ /* x155011 stalin.sc:21367:746922 */ /* x155010 stalin.sc:21367:746934 */ t39556 = p16504->a27733; /* x155009 stalin.sc:21367:746923 */ t39555 = f8153(t39556); /* x155008 stalin.sc:21367:746911 */ if (f7682(t39555)==FALSE_TYPE) goto l5827; /* x155014 */ /* x155013 */ goto l5828; l5827: /* x155018 */ /* x155017 */ /* x155016 stalin.sc:21367:746939 */ /* x155015 stalin.sc:21367:746940 */ /* x295809 QobiScheme.sc:166:5314 */ /* x295808 QobiScheme.sc:166:5321 */ t39557 = "This shouldn\'t happen"; /* x295807 QobiScheme.sc:166:5315 */ stalin_panic(t39557); l5828: /* x155007 */ t39537 = p16504; p16505 = t39537; /* x155006 stalin.sc:21375:747385 */ /* x155001 stalin.sc:21375:747391 */ /* x154997 stalin.sc:21375:747397 */ /* x154995 stalin.sc:21376:747417 */ /* x154994 stalin.sc:21376:747439 */ /* x154989 stalin.sc:21376:747448 */ t39548 = p16505->a27732; /* x154992 stalin.sc:21376:747451 */ /* x154991 stalin.sc:21376:747463 */ t39551 = p16505->a27733; /* x154990 stalin.sc:21376:747452 */ t39549 = f8153(t39551); /* x154993 stalin.sc:21376:747467 */ t39550 = p16505->a27733; /* x154988 stalin.sc:21376:747440 */ t39547 = f14485(t39548, t39549, t39550); /* x154987 stalin.sc:21376:747418 */ t39544 = f13548(t39547); /* x154996 stalin.sc:21377:747475 */ t39545 = p16505->a27735; /* x154986 stalin.sc:21375:747398 */ t39546.tag = STRUCTURE_TYPE24753; t39546.value.structure_type24753 = t39544; t39540 = f14422(t39546, t39545); /* x155000 stalin.sc:21378:747488 */ /* x154999 stalin.sc:21378:747498 */ t39552 = a1226; /* x154998 stalin.sc:21378:747489 */ t39541 = f13530(t39552); /* x154985 stalin.sc:21375:747392 */ t39542.tag = STRUCTURE_TYPE24753; t39542.value.structure_type24753 = t39540; t39543.tag = STRING_TYPE; t39543.value.string_type = t39541; t39538 = f13623(t39542, t39543); /* x155005 stalin.sc:21379:747521 */ /* x155003 stalin.sc:21379:747528 */ t39553 = p16505->a27734; /* x155004 stalin.sc:21379:747531 */ t39554 = p16505->a27735; /* x155002 stalin.sc:21379:747522 */ t39539 = f14478(t39553, t39554); /* x154984 stalin.sc:21375:747386 */ t39480 = f13591(t39538, t39539); goto l5816; l5815: /* x155110 */ /* x155025 stalin.sc:21380:747541 */ /* x155024 stalin.sc:21380:747552 */ t39484 = p16501->a27735; /* x155023 stalin.sc:21380:747542 */ if (f13859(t39484)==FALSE_TYPE) goto l5818; /* x155037 */ /* x155036 */ t39529 = p16501; p16508 = t39529; /* x155035 stalin.sc:21385:747804 */ /* x155033 stalin.sc:21385:747810 */ /* x155028 stalin.sc:21385:747819 */ t39532 = p16508->a27732; /* x155031 stalin.sc:21385:747822 */ /* x155030 stalin.sc:21385:747834 */ t39535 = p16508->a27733; /* x155029 stalin.sc:21385:747823 */ t39533 = f8153(t39535); /* x155032 stalin.sc:21385:747838 */ t39534 = p16508->a27735; /* x155027 stalin.sc:21385:747811 */ t39530 = f14529(t39532, t39533, t39534); /* x155034 stalin.sc:21385:747842 */ t39531 = p16508->a27734; /* x155026 stalin.sc:21385:747805 */ t39480 = f13591(t39530, t39531); goto l5819; l5818: /* x155109 */ /* x155040 stalin.sc:21386:747851 */ /* x155039 stalin.sc:21386:747862 */ t39485 = p16501->a27735; /* x155038 stalin.sc:21386:747852 */ if (f14024(t39485)==FALSE_TYPE) goto l5821; /* x155052 */ /* x155051 */ t39522 = p16501; p16509 = t39522; /* x155050 stalin.sc:21391:748114 */ /* x155048 stalin.sc:21391:748120 */ /* x155043 stalin.sc:21391:748128 */ t39525 = p16509->a27732; /* x155046 stalin.sc:21391:748131 */ /* x155045 stalin.sc:21391:748143 */ t39528 = p16509->a27733; /* x155044 stalin.sc:21391:748132 */ t39526 = f8153(t39528); /* x155047 stalin.sc:21391:748147 */ t39527 = p16509->a27735; /* x155042 stalin.sc:21391:748121 */ t39523 = f14579(t39525, t39526, t39527); /* x155049 stalin.sc:21391:748151 */ t39524 = p16509->a27734; /* x155041 stalin.sc:21391:748115 */ t39480 = f13591(t39523, t39524); goto l5822; l5821: /* x155108 */ /* x155107 */ t39486 = p16501; p16510 = t39486; /* x155106 stalin.sc:21392:748165 */ /* x155057 stalin.sc:21392:748169 */ /* x155056 stalin.sc:21392:748181 */ /* x155055 stalin.sc:21392:748193 */ t39488 = p16510->a27733; /* x155054 stalin.sc:21392:748182 */ t39487 = f8153(t39488); /* x155053 stalin.sc:21392:748170 */ if (f7682(t39487)==FALSE_TYPE) goto l5824; /* x155073 stalin.sc:21393:748204 */ /* x155065 stalin.sc:21393:748210 */ /* x155060 stalin.sc:21393:748219 */ t39514 = p16510->a27732; /* x155063 stalin.sc:21393:748222 */ /* x155062 stalin.sc:21393:748234 */ t39517 = p16510->a27733; /* x155061 stalin.sc:21393:748223 */ t39515 = f8153(t39517); /* x155064 stalin.sc:21393:748238 */ t39516 = p16510->a27733; /* x155059 stalin.sc:21393:748211 */ t39512 = f14485(t39514, t39515, t39516); /* x155072 stalin.sc:21394:748247 */ /* x155067 stalin.sc:21394:748256 */ t39518 = p16510->a27734; /* x155070 stalin.sc:21394:748259 */ /* x155069 stalin.sc:21394:748271 */ t39521 = p16510->a27733; /* x155068 stalin.sc:21394:748260 */ t39519 = f8153(t39521); /* x155071 stalin.sc:21394:748275 */ t39520 = p16510->a27735; /* x155066 stalin.sc:21394:748248 */ t39513 = f14485(t39518, t39519, t39520); /* x155058 stalin.sc:21393:748205 */ t39480 = f13591(t39512, t39513); goto l5825; l5824: /* x155105 stalin.sc:21395:748286 */ /* x155104 stalin.sc:21396:748347 */ /* x155093 stalin.sc:21396:748359 */ /* x155088 stalin.sc:21396:748368 */ t39503 = p16510->a27732; /* x155091 stalin.sc:21396:748371 */ /* x155090 stalin.sc:21396:748383 */ t39506 = p16510->a27733; /* x155089 stalin.sc:21396:748372 */ t39504 = f8153(t39506); /* x155092 stalin.sc:21396:748387 */ t39505 = p16510->a27733; /* x155087 stalin.sc:21396:748360 */ t39500 = f14485(t39503, t39504, t39505); /* x155100 stalin.sc:21397:748401 */ /* x155095 stalin.sc:21397:748410 */ t39507 = p16510->a27734; /* x155098 stalin.sc:21397:748413 */ /* x155097 stalin.sc:21397:748425 */ t39510 = p16510->a27733; /* x155096 stalin.sc:21397:748414 */ t39508 = f8153(t39510); /* x155099 stalin.sc:21397:748429 */ t39509 = p16510->a27735; /* x155094 stalin.sc:21397:748402 */ t39501 = f14485(t39507, t39508, t39509); /* x155103 stalin.sc:21398:748443 */ /* x155102 stalin.sc:21398:748455 */ t39511 = p16510->a27733; /* x155101 stalin.sc:21398:748444 */ t39502 = f8153(t39511); /* x155086 stalin.sc:21396:748348 */ t39490 = f13784(t39500, t39501, t39502); /* x155085 stalin.sc:21395:748292 */ /* x155080 stalin.sc:21395:748298 */ /* x155079 stalin.sc:21395:748310 */ /* x155078 stalin.sc:21395:748322 */ t39497 = p16510->a27733; /* x155077 stalin.sc:21395:748311 */ t39496 = f8153(t39497); /* x155076 stalin.sc:21395:748299 */ t39493 = f14433(t39496); /* x155084 stalin.sc:21395:748327 */ /* x155082 stalin.sc:21395:748334 */ t39498 = p16510->a27734; /* x155083 stalin.sc:21395:748337 */ t39499 = p16510->a27735; /* x155081 stalin.sc:21395:748328 */ t39494 = f14478(t39498, t39499); /* x155075 stalin.sc:21395:748293 */ t39495 = *((struct w49 *)(&t39493)); t39489 = f13591(t39495, t39494); /* x155074 stalin.sc:21395:748287 */ t39492.tag = STRUCTURE_TYPE24753; t39492.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t39492.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21395, 748286); out_of_memory_error();} t39492.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t39492.value.structure_type24753->s0.value.structure_type24753 = t39490; t39492.value.structure_type24753->s1.tag = NULL_TYPE; t39491 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t39491==NULL) {backtrace("stalin.sc", 21395, 748286); out_of_memory_error();} t39491->s0.tag = STRUCTURE_TYPE24753; t39491->s0.value.structure_type24753 = t39489; t39491->s1 = t39492; t39480 = f13564(t39491); l5825: l5822: l5819: l5816: l5813: l5810: /* x154948 stalin.sc:21354:746530 */ return f14709(t39479, t39480); l5681: /* x156637 */ /* x155119 stalin.sc:21399:748474 */ /* x155118 stalin.sc:21399:748485 */ t38845 = p16487->a27733; /* x155117 stalin.sc:21399:748475 */ if (f13798(t38845)==FALSE_TYPE) goto l5683; /* x155242 */ /* x155241 */ t39411 = p16487; p16511 = t39411; /* x155240 stalin.sc:21400:748490 */ /* x155121 stalin.sc:21401:748506 */ t39412 = p16511->a27722; /* x155239 stalin.sc:21402:748510 */ /* x155124 stalin.sc:21403:748520 */ /* x155123 stalin.sc:21403:748527 */ t39414 = p16511->a27735; /* x155122 stalin.sc:21403:748521 */ if (f8151(t39414)==FALSE_TYPE) goto l5791; /* x155137 */ /* x155136 */ t39470 = p16511; p16512 = t39470; /* x155135 stalin.sc:21403:748531 */ /* x155129 stalin.sc:21403:748537 */ /* x155127 stalin.sc:21403:748544 */ t39474 = p16512->a27732; /* x155128 stalin.sc:21403:748547 */ t39475 = p16512->a27733; /* x155126 stalin.sc:21403:748538 */ t39471 = f14478(t39474, t39475); /* x155134 stalin.sc:21403:748551 */ /* x155133 stalin.sc:21403:748563 */ /* x155132 stalin.sc:21403:748575 */ t39477 = p16512->a27735; /* x155131 stalin.sc:21403:748564 */ t39476 = f8153(t39477); /* x155130 stalin.sc:21403:748552 */ t39472 = f14433(t39476); /* x155125 stalin.sc:21403:748532 */ t39473 = *((struct w49 *)(&t39472)); t39413 = f13591(t39471, t39473); goto l5792; l5791: /* x155238 */ /* x155140 stalin.sc:21404:748586 */ /* x155139 stalin.sc:21404:748600 */ t39415 = p16511->a27735; /* x155138 stalin.sc:21404:748587 */ if (f8148(t39415)==FALSE_TYPE) goto l5794; /* x155179 */ /* x155178 */ t39448 = p16511; p16513 = t39448; /* x155177 */ /* x155176 stalin.sc:21407:748693 */ /* x155169 stalin.sc:21407:748701 */ /* x155168 stalin.sc:21407:748713 */ /* x155167 stalin.sc:21407:748725 */ t39468 = p16513->a27735; /* x155166 stalin.sc:21407:748714 */ t39467 = f8153(t39468); /* x155165 stalin.sc:21407:748702 */ if (f7682(t39467)==FALSE_TYPE) goto l5806; /* x155171 */ /* x155170 */ goto l5807; l5806: /* x155175 */ /* x155174 */ /* x155173 stalin.sc:21407:748730 */ /* x155172 stalin.sc:21407:748731 */ /* x295813 QobiScheme.sc:166:5314 */ /* x295812 QobiScheme.sc:166:5321 */ t39469 = "This shouldn\'t happen"; /* x295811 QobiScheme.sc:166:5315 */ stalin_panic(t39469); l5807: /* x155164 */ t39449 = p16513; p16514 = t39449; /* x155163 stalin.sc:21415:749176 */ /* x155145 stalin.sc:21415:749182 */ /* x155143 stalin.sc:21415:749189 */ t39452 = p16514->a27732; /* x155144 stalin.sc:21415:749192 */ t39453 = p16514->a27733; /* x155142 stalin.sc:21415:749183 */ t39450 = f14478(t39452, t39453); /* x155162 stalin.sc:21416:749199 */ /* x155158 stalin.sc:21416:749205 */ /* x155156 stalin.sc:21417:749225 */ /* x155155 stalin.sc:21417:749247 */ /* x155150 stalin.sc:21417:749256 */ t39462 = p16514->a27734; /* x155153 stalin.sc:21417:749259 */ /* x155152 stalin.sc:21417:749271 */ t39465 = p16514->a27735; /* x155151 stalin.sc:21417:749260 */ t39463 = f8153(t39465); /* x155154 stalin.sc:21417:749275 */ t39464 = p16514->a27735; /* x155149 stalin.sc:21417:749248 */ t39461 = f14485(t39462, t39463, t39464); /* x155148 stalin.sc:21417:749226 */ t39458 = f13548(t39461); /* x155157 stalin.sc:21418:749283 */ t39459 = p16514->a27733; /* x155147 stalin.sc:21416:749206 */ t39460.tag = STRUCTURE_TYPE24753; t39460.value.structure_type24753 = t39458; t39454 = f14422(t39460, t39459); /* x155161 stalin.sc:21419:749296 */ /* x155160 stalin.sc:21419:749306 */ t39466 = a1226; /* x155159 stalin.sc:21419:749297 */ t39455 = f13530(t39466); /* x155146 stalin.sc:21416:749200 */ t39456.tag = STRUCTURE_TYPE24753; t39456.value.structure_type24753 = t39454; t39457.tag = STRING_TYPE; t39457.value.string_type = t39455; t39451 = f13623(t39456, t39457); /* x155141 stalin.sc:21415:749177 */ t39413 = f13591(t39450, t39451); goto l5795; l5794: /* x155237 */ /* x155182 stalin.sc:21420:749332 */ /* x155181 stalin.sc:21420:749343 */ t39416 = p16511->a27735; /* x155180 stalin.sc:21420:749333 */ if (f13798(t39416)==FALSE_TYPE) goto l5797; /* x155194 */ /* x155193 */ t39441 = p16511; p16517 = t39441; /* x155192 stalin.sc:21420:749347 */ /* x155187 stalin.sc:21420:749353 */ /* x155185 stalin.sc:21420:749360 */ t39444 = p16517->a27732; /* x155186 stalin.sc:21420:749363 */ t39445 = p16517->a27733; /* x155184 stalin.sc:21420:749354 */ t39442 = f14478(t39444, t39445); /* x155191 stalin.sc:21420:749367 */ /* x155189 stalin.sc:21420:749374 */ t39446 = p16517->a27734; /* x155190 stalin.sc:21420:749377 */ t39447 = p16517->a27735; /* x155188 stalin.sc:21420:749368 */ t39443 = f14478(t39446, t39447); /* x155183 stalin.sc:21420:749348 */ t39413 = f13591(t39442, t39443); goto l5798; l5797: /* x155236 */ /* x155197 stalin.sc:21421:749387 */ /* x155196 stalin.sc:21421:749398 */ t39417 = p16511->a27735; /* x155195 stalin.sc:21421:749388 */ if (f13859(t39417)==FALSE_TYPE) goto l5800; /* x155207 */ /* x155206 */ t39434 = p16511; p16518 = t39434; /* x155205 stalin.sc:21426:749650 */ /* x155203 stalin.sc:21426:749656 */ /* x155200 stalin.sc:21426:749678 */ t39438 = p16518->a27732; /* x155201 stalin.sc:21426:749681 */ t39439 = p16518->a27733; /* x155202 stalin.sc:21426:749684 */ t39440 = p16518->a27735; /* x155199 stalin.sc:21426:749657 */ t39435 = f14428(t39438, t39439, t39440); /* x155204 stalin.sc:21426:749688 */ t39436 = p16518->a27734; /* x155198 stalin.sc:21426:749651 */ t39437.tag = STRUCTURE_TYPE24753; t39437.value.structure_type24753 = t39435; t39413 = f13591(t39437, t39436); goto l5801; l5800: /* x155235 */ /* x155210 stalin.sc:21427:749697 */ /* x155209 stalin.sc:21427:749708 */ t39418 = p16511->a27735; /* x155208 stalin.sc:21427:749698 */ if (f14024(t39418)==FALSE_TYPE) goto l5803; /* x155222 */ /* x155221 */ t39426 = p16511; p16519 = t39426; /* x155220 stalin.sc:21432:749960 */ /* x155218 stalin.sc:21432:749966 */ /* x155216 stalin.sc:21432:749983 */ /* x155214 stalin.sc:21432:749990 */ t39432 = p16519->a27732; /* x155215 stalin.sc:21432:749993 */ t39433 = p16519->a27733; /* x155213 stalin.sc:21432:749984 */ t39430 = f14478(t39432, t39433); /* x155217 stalin.sc:21432:749997 */ t39431 = p16519->a27735; /* x155212 stalin.sc:21432:749967 */ t39427 = f14422(t39430, t39431); /* x155219 stalin.sc:21432:750001 */ t39428 = p16519->a27734; /* x155211 stalin.sc:21432:749961 */ t39429.tag = STRUCTURE_TYPE24753; t39429.value.structure_type24753 = t39427; t39413 = f13591(t39429, t39428); goto l5804; l5803: /* x155234 */ /* x155233 */ t39419 = p16511; p16520 = t39419; /* x155232 stalin.sc:21433:750015 */ /* x155227 stalin.sc:21433:750021 */ /* x155225 stalin.sc:21433:750028 */ t39422 = p16520->a27732; /* x155226 stalin.sc:21433:750031 */ t39423 = p16520->a27733; /* x155224 stalin.sc:21433:750022 */ t39420 = f14478(t39422, t39423); /* x155231 stalin.sc:21433:750035 */ /* x155229 stalin.sc:21433:750042 */ t39424 = p16520->a27734; /* x155230 stalin.sc:21433:750045 */ t39425 = p16520->a27735; /* x155228 stalin.sc:21433:750036 */ t39421 = f14478(t39424, t39425); /* x155223 stalin.sc:21433:750016 */ t39413 = f13591(t39420, t39421); l5804: l5801: l5798: l5795: l5792: /* x155120 stalin.sc:21400:748491 */ return f14709(t39412, t39413); l5683: /* x156636 */ /* x155245 stalin.sc:21434:750062 */ /* x155244 stalin.sc:21434:750073 */ t38846 = p16487->a27733; /* x155243 stalin.sc:21434:750063 */ if (f13859(t38846)==FALSE_TYPE) goto l5685; /* x155523 */ /* x155522 */ t39260 = p16487; p16521 = t39260; /* x155521 stalin.sc:21439:750303 */ /* x155247 stalin.sc:21440:750319 */ t39261 = p16521->a27722; /* x155520 stalin.sc:21441:750323 */ /* x155250 stalin.sc:21442:750333 */ /* x155249 stalin.sc:21442:750340 */ t39263 = p16521->a27735; /* x155248 stalin.sc:21442:750334 */ if (f8151(t39263)==FALSE_TYPE) goto l5755; /* x155263 */ /* x155262 */ t39402 = p16521; p16522 = t39402; /* x155261 stalin.sc:21443:750348 */ /* x155252 stalin.sc:21443:750354 */ t39403 = p16522->a27732; /* x155260 stalin.sc:21443:750357 */ /* x155258 stalin.sc:21443:750374 */ /* x155257 stalin.sc:21443:750386 */ /* x155256 stalin.sc:21443:750398 */ t39410 = p16522->a27735; /* x155255 stalin.sc:21443:750387 */ t39409 = f8153(t39410); /* x155254 stalin.sc:21443:750375 */ t39406 = f14433(t39409); /* x155259 stalin.sc:21443:750403 */ t39407 = p16522->a27733; /* x155253 stalin.sc:21443:750358 */ t39408 = *((struct w49 *)(&t39406)); t39404 = f14422(t39408, t39407); /* x155251 stalin.sc:21443:750349 */ t39405.tag = STRUCTURE_TYPE24753; t39405.value.structure_type24753 = t39404; t39262 = f13591(t39403, t39405); goto l5756; l5755: /* x155519 */ /* x155266 stalin.sc:21444:750413 */ /* x155265 stalin.sc:21444:750427 */ t39264 = p16521->a27735; /* x155264 stalin.sc:21444:750414 */ if (f8148(t39264)==FALSE_TYPE) goto l5758; /* x155278 */ /* x155277 */ t39395 = p16521; p16523 = t39395; /* x155276 stalin.sc:21444:750431 */ /* x155268 stalin.sc:21444:750437 */ t39396 = p16523->a27732; /* x155275 stalin.sc:21444:750440 */ /* x155270 stalin.sc:21444:750449 */ t39398 = p16523->a27734; /* x155273 stalin.sc:21444:750452 */ /* x155272 stalin.sc:21444:750464 */ t39401 = p16523->a27735; /* x155271 stalin.sc:21444:750453 */ t39399 = f8153(t39401); /* x155274 stalin.sc:21444:750468 */ t39400 = p16523->a27733; /* x155269 stalin.sc:21444:750441 */ t39397 = f14529(t39398, t39399, t39400); /* x155267 stalin.sc:21444:750432 */ t39262 = f13591(t39396, t39397); goto l5759; l5758: /* x155518 */ /* x155281 stalin.sc:21445:750478 */ /* x155280 stalin.sc:21445:750489 */ t39265 = p16521->a27735; /* x155279 stalin.sc:21445:750479 */ if (f13798(t39265)==FALSE_TYPE) goto l5761; /* x155291 */ /* x155290 */ t39388 = p16521; p16524 = t39388; /* x155289 stalin.sc:21445:750493 */ /* x155283 stalin.sc:21445:750499 */ t39389 = p16524->a27732; /* x155288 stalin.sc:21445:750502 */ /* x155285 stalin.sc:21445:750524 */ t39392 = p16524->a27734; /* x155286 stalin.sc:21445:750527 */ t39393 = p16524->a27735; /* x155287 stalin.sc:21445:750530 */ t39394 = p16524->a27733; /* x155284 stalin.sc:21445:750503 */ t39390 = f14428(t39392, t39393, t39394); /* x155282 stalin.sc:21445:750494 */ t39391.tag = STRUCTURE_TYPE24753; t39391.value.structure_type24753 = t39390; t39262 = f13591(t39389, t39391); goto l5762; l5761: /* x155517 */ /* x155294 stalin.sc:21446:750540 */ /* x155293 stalin.sc:21446:750551 */ t39266 = p16521->a27735; /* x155292 stalin.sc:21446:750541 */ if (f13859(t39266)==FALSE_TYPE) goto l5764; /* x155316 */ /* x155315 */ t39376 = p16521; p16525 = t39376; /* x155314 stalin.sc:21447:750559 */ /* x155302 stalin.sc:21447:750563 */ /* x155298 stalin.sc:21447:750568 */ /* x155297 stalin.sc:21447:750585 */ t39379 = p16525->a27733; /* x155296 stalin.sc:21447:750569 */ t39377 = f13854(t39379); /* x155301 stalin.sc:21447:750589 */ /* x155300 stalin.sc:21447:750606 */ t39380 = p16525->a27735; /* x155299 stalin.sc:21447:750590 */ t39378 = f13854(t39380); /* x268293 stalin.sc:21447:750564 */ /* EQ: dispatching general to general */ if (!((t39377.tag)==(t39378.tag))) goto l5788; switch (t39377.tag) {case FIXNUM_TYPE: if (!((t39377.value.fixnum_type)==(t39378.value.fixnum_type))) goto l5788; break; case FLONUM_TYPE: if (!((t39377.value.flonum_type)==(t39378.value.flonum_type))) goto l5788; break; case INPUT_PORT_TYPE: if (!((t39377.value.input_port_type)==(t39378.value.input_port_type))) goto l5788; break; case OUTPUT_PORT_TYPE: if (!((t39377.value.output_port_type)==(t39378.value.output_port_type))) goto l5788; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t39377.value.native_procedure_type15963)==(t39378.value.native_procedure_type15963))) goto l5788; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t39377.value.native_procedure_type19067)==(t39378.value.native_procedure_type19067))) goto l5788; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t39377.value.native_procedure_type19068)==(t39378.value.native_procedure_type19068))) goto l5788; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t39377.value.native_procedure_type22459)==(t39378.value.native_procedure_type22459))) goto l5788; break; case STRUCTURE_TYPE24753: if (!((t39377.value.structure_type24753)==(t39378.value.structure_type24753))) goto l5788; break; case STRUCTURE_TYPE24757: if (!((t39377.value.structure_type24757)==(t39378.value.structure_type24757))) goto l5788; break; case STRUCTURE_TYPE27501: if (!((t39377.value.structure_type27501)==(t39378.value.structure_type27501))) goto l5788; break; case STRUCTURE_TYPE27510: if (!((t39377.value.structure_type27510)==(t39378.value.structure_type27510))) goto l5788; break; case STRUCTURE_TYPE27621: if (!((t39377.value.structure_type27621)==(t39378.value.structure_type27621))) goto l5788; break; case STRUCTURE_TYPE27650: if (!((t39377.value.structure_type27650)==(t39378.value.structure_type27650))) goto l5788; break; case STRUCTURE_TYPE27669: if (!((t39377.value.structure_type27669)==(t39378.value.structure_type27669))) goto l5788; break; case STRUCTURE_TYPE27673: if (!((t39377.value.structure_type27673)==(t39378.value.structure_type27673))) goto l5788; break; case STRUCTURE_TYPE27692: if (!((t39377.value.structure_type27692)==(t39378.value.structure_type27692))) goto l5788; break; case STRUCTURE_TYPE27694: if (!((t39377.value.structure_type27694)==(t39378.value.structure_type27694))) goto l5788; break; case STRUCTURE_TYPE27698: if (!((t39377.value.structure_type27698)==(t39378.value.structure_type27698))) goto l5788; break; case STRUCTURE_TYPE27745: if (!((t39377.value.structure_type27745)==(t39378.value.structure_type27745))) goto l5788; break; case STRUCTURE_TYPE27747: if (!((t39377.value.structure_type27747)==(t39378.value.structure_type27747))) goto l5788; break; case STRUCTURE_TYPE27750: if (!((t39377.value.structure_type27750)==(t39378.value.structure_type27750))) goto l5788; break; case STRUCTURE_TYPE27753: if (!((t39377.value.structure_type27753)==(t39378.value.structure_type27753))) goto l5788; break; case STRUCTURE_TYPE27756: if (!((t39377.value.structure_type27756)==(t39378.value.structure_type27756))) goto l5788; break; case STRUCTURE_TYPE27761: if (!((t39377.value.structure_type27761)==(t39378.value.structure_type27761))) goto l5788; break; case STRUCTURE_TYPE27769: if (!((t39377.value.structure_type27769)==(t39378.value.structure_type27769))) goto l5788; break; case STRUCTURE_TYPE27776: if (!((t39377.value.structure_type27776)==(t39378.value.structure_type27776))) goto l5788; break; case STRUCTURE_TYPE27779: if (!((t39377.value.structure_type27779)==(t39378.value.structure_type27779))) goto l5788; break; case STRUCTURE_TYPE27858: if (!((t39377.value.structure_type27858)==(t39378.value.structure_type27858))) goto l5788; break; case STRING_TYPE: if (!((t39377.value.string_type)==(t39378.value.string_type))) goto l5788; break; case HEADED_VECTOR_TYPE27896: if (!((t39377.value.headed_vector_type27896)==(t39378.value.headed_vector_type27896))) goto l5788; break; case EXTERNAL_SYMBOL_TYPE: if (!((t39377.value.external_symbol_type)==(t39378.value.external_symbol_type))) goto l5788; break; case STRUCTURE_TYPE27908: if (!((t39377.value.structure_type27908)==(t39378.value.structure_type27908))) goto l5788; break; default:;} /* x155306 stalin.sc:21448:750619 */ /* x155304 stalin.sc:21448:750625 */ t39386 = p16525->a27732; /* x155305 stalin.sc:21448:750628 */ t39387 = p16525->a27734; /* x155303 stalin.sc:21448:750620 */ t39262 = f13591(t39386, t39387); goto l5789; l5788: /* x155313 stalin.sc:21449:750640 */ /* x155311 stalin.sc:21449:750646 */ /* x155309 stalin.sc:21449:750663 */ t39384 = p16525->a27732; /* x155310 stalin.sc:21449:750666 */ t39385 = p16525->a27735; /* x155308 stalin.sc:21449:750647 */ t39381 = f14422(t39384, t39385); /* x155312 stalin.sc:21449:750670 */ t39382 = p16525->a27734; /* x155307 stalin.sc:21449:750641 */ t39383.tag = STRUCTURE_TYPE24753; t39383.value.structure_type24753 = t39381; t39262 = f13591(t39383, t39382); l5789: goto l5765; l5764: /* x155516 */ /* x155319 stalin.sc:21450:750680 */ /* x155318 stalin.sc:21450:750691 */ t39267 = p16521->a27735; /* x155317 stalin.sc:21450:750681 */ if (f14024(t39267)==FALSE_TYPE) goto l5767; /* x155411 */ /* x155410 */ t39330 = p16521; p16526 = t39330; /* x155409 stalin.sc:21451:750699 */ /* x155340 stalin.sc:21451:750703 */ /* x155338 stalin.sc:21452:750714 */ t39331 = p16526; /* x155339 stalin.sc:21454:750793 */ t39332 = p16526->a27733; /* x155320 stalin.sc:21451:750704 */ t39333.tag = NATIVE_PROCEDURE_TYPE20994; t39333.value.native_procedure_type20994 = t39331; if ((f8137(t39333, t39332).tag)==FALSE_TYPE) goto l5776; /* x155389 stalin.sc:21455:750805 */ /* x155346 stalin.sc:21455:750809 */ /* x155344 stalin.sc:21455:750818 */ /* x155343 stalin.sc:21455:750835 */ t39346 = p16526->a27733; /* x155342 stalin.sc:21455:750819 */ t39344 = f13854(t39346); /* x155345 stalin.sc:21455:750839 */ t39345 = p16526->a27735; /* x155341 stalin.sc:21455:750810 */ if (f8033(t39344, t39345)==FALSE_TYPE) goto l5782; /* x155381 stalin.sc:21458:750931 */ /* x155354 stalin.sc:21458:750935 */ /* x155353 stalin.sc:21458:750942 */ /* x155351 stalin.sc:21458:750954 */ /* x155350 stalin.sc:21458:750971 */ t39355 = p16526->a27733; /* x155349 stalin.sc:21458:750955 */ t39353 = f13854(t39355); /* x155352 stalin.sc:21458:750975 */ t39354 = p16526->a27735; /* x155348 stalin.sc:21458:750943 */ t39352 = f14564(t39353, t39354); /* x268292 stalin.sc:21458:750936 */ if (!((t39352&1)==1)) {backtrace("stalin.sc", 21458, 750935); zero_error();} if (!(((int)(((int)t39352)>>1))==0)) goto l5785; /* x155361 stalin.sc:21463:751206 */ /* x155359 stalin.sc:21463:751212 */ /* x155357 stalin.sc:21463:751229 */ t39374 = p16526->a27732; /* x155358 stalin.sc:21463:751232 */ t39375 = p16526->a27735; /* x155356 stalin.sc:21463:751213 */ t39371 = f14422(t39374, t39375); /* x155360 stalin.sc:21463:751236 */ t39372 = p16526->a27734; /* x155355 stalin.sc:21463:751207 */ t39373.tag = STRUCTURE_TYPE24753; t39373.value.structure_type24753 = t39371; t39262 = f13591(t39373, t39372); goto l5786; l5785: /* x155380 stalin.sc:21466:751364 */ /* x155379 stalin.sc:21470:751523 */ /* x155377 stalin.sc:21470:751529 */ /* x155372 stalin.sc:21470:751537 */ t39367 = p16526->a27732; /* x155375 stalin.sc:21470:751540 */ /* x155374 stalin.sc:21470:751557 */ t39370 = p16526->a27733; /* x155373 stalin.sc:21470:751541 */ t39368 = f13854(t39370); /* x155376 stalin.sc:21470:751561 */ t39369 = p16526->a27735; /* x155371 stalin.sc:21470:751530 */ t39365 = f14579(t39367, t39368, t39369); /* x155378 stalin.sc:21470:751565 */ t39366 = p16526->a27734; /* x155370 stalin.sc:21470:751524 */ t39357 = f13591(t39365, t39366); /* x155369 stalin.sc:21468:751432 */ /* x155367 stalin.sc:21468:751438 */ /* x155365 stalin.sc:21468:751455 */ t39363 = p16526->a27732; /* x155366 stalin.sc:21468:751458 */ t39364 = p16526->a27735; /* x155364 stalin.sc:21468:751439 */ t39360 = f14422(t39363, t39364); /* x155368 stalin.sc:21468:751462 */ t39361 = p16526->a27734; /* x155363 stalin.sc:21468:751433 */ t39362.tag = STRUCTURE_TYPE24753; t39362.value.structure_type24753 = t39360; t39356 = f13591(t39362, t39361); /* x155362 stalin.sc:21466:751365 */ t39359.tag = STRUCTURE_TYPE24753; t39359.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t39359.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21466, 751364); out_of_memory_error();} t39359.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t39359.value.structure_type24753->s0.value.structure_type24753 = t39357; t39359.value.structure_type24753->s1.tag = NULL_TYPE; t39358 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t39358==NULL) {backtrace("stalin.sc", 21466, 751364); out_of_memory_error();} t39358->s0.tag = STRUCTURE_TYPE24753; t39358->s0.value.structure_type24753 = t39356; t39358->s1 = t39359; t39262 = f13556(t39358); l5786: goto l5783; l5782: /* x155388 stalin.sc:21477:751918 */ /* x155386 stalin.sc:21477:751924 */ /* x155384 stalin.sc:21477:751941 */ t39350 = p16526->a27732; /* x155385 stalin.sc:21477:751944 */ t39351 = p16526->a27735; /* x155383 stalin.sc:21477:751925 */ t39347 = f14422(t39350, t39351); /* x155387 stalin.sc:21477:751948 */ t39348 = p16526->a27734; /* x155382 stalin.sc:21477:751919 */ t39349.tag = STRUCTURE_TYPE24753; t39349.value.structure_type24753 = t39347; t39262 = f13591(t39349, t39348); l5783: goto l5777; l5776: /* x155408 stalin.sc:21478:751961 */ /* x155395 stalin.sc:21478:751965 */ /* x155393 stalin.sc:21478:751974 */ /* x155392 stalin.sc:21478:751991 */ t39336 = p16526->a27733; /* x155391 stalin.sc:21478:751975 */ t39334 = f13854(t39336); /* x155394 stalin.sc:21478:751995 */ t39335 = p16526->a27735; /* x155390 stalin.sc:21478:751966 */ if (f8033(t39334, t39335)==FALSE_TYPE) goto l5779; /* x155405 stalin.sc:21482:752157 */ /* x155403 stalin.sc:21482:752163 */ /* x155398 stalin.sc:21482:752171 */ t39340 = p16526->a27732; /* x155401 stalin.sc:21482:752174 */ /* x155400 stalin.sc:21482:752191 */ t39343 = p16526->a27733; /* x155399 stalin.sc:21482:752175 */ t39341 = f13854(t39343); /* x155402 stalin.sc:21482:752195 */ t39342 = p16526->a27735; /* x155397 stalin.sc:21482:752164 */ t39338 = f14579(t39340, t39341, t39342); /* x155404 stalin.sc:21482:752199 */ t39339 = p16526->a27734; /* x155396 stalin.sc:21482:752158 */ t39262 = f13591(t39338, t39339); goto l5780; l5779: /* x155407 stalin.sc:21484:752259 */ /* x155406 stalin.sc:21484:752260 */ /* x295821 QobiScheme.sc:166:5314 */ /* x295820 QobiScheme.sc:166:5321 */ t39337 = "This shouldn\'t happen"; /* x295819 QobiScheme.sc:166:5315 */ stalin_panic(t39337); l5780: l5777: goto l5768; l5767: /* x155515 */ /* x155514 */ t39268 = p16521; p16529 = t39268; /* x155513 stalin.sc:21486:752285 */ /* x155426 stalin.sc:21486:752292 */ /* x155425 stalin.sc:21486:752348 */ t39269 = a27738; /* x155424 stalin.sc:21486:752299 */ /* x155412 stalin.sc:21486:752293 */ t39270.tag = NATIVE_PROCEDURE_TYPE20987; t39271 = *((struct w49 *)(&t39269)); t39272 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t39270, t39271, t39272)==FALSE_TYPE) goto l5770; /* x155451 */ /* x155450 */ t39312 = p16529; p16532 = t39312; /* x155449 stalin.sc:21490:752517 */ /* x155448 stalin.sc:21491:752581 */ /* x155440 stalin.sc:21491:752587 */ t39324 = p16532->a27732; /* x155447 stalin.sc:21491:752590 */ /* x155442 stalin.sc:21491:752599 */ t39326 = p16532->a27734; /* x155445 stalin.sc:21491:752602 */ /* x155444 stalin.sc:21491:752619 */ t39329 = p16532->a27733; /* x155443 stalin.sc:21491:752603 */ t39327 = f13854(t39329); /* x155446 stalin.sc:21491:752623 */ t39328 = p16532->a27735; /* x155441 stalin.sc:21491:752591 */ t39325 = f14485(t39326, t39327, t39328); /* x155439 stalin.sc:21491:752582 */ t39314 = f13591(t39324, t39325); /* x155438 stalin.sc:21490:752523 */ /* x155432 stalin.sc:21490:752529 */ /* x155430 stalin.sc:21490:752536 */ t39320 = p16532->a27734; /* x155431 stalin.sc:21490:752539 */ t39321 = p16532->a27735; /* x155429 stalin.sc:21490:752530 */ t39317 = f14478(t39320, t39321); /* x155437 stalin.sc:21490:752543 */ /* x155436 stalin.sc:21490:752555 */ /* x155435 stalin.sc:21490:752572 */ t39323 = p16532->a27733; /* x155434 stalin.sc:21490:752556 */ t39322 = f13854(t39323); /* x155433 stalin.sc:21490:752544 */ t39318 = f14433(t39322); /* x155428 stalin.sc:21490:752524 */ t39319 = *((struct w49 *)(&t39318)); t39313 = f13591(t39317, t39319); /* x155427 stalin.sc:21490:752518 */ t39316.tag = STRUCTURE_TYPE24753; t39316.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t39316.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21490, 752517); out_of_memory_error();} t39316.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t39316.value.structure_type24753->s0.value.structure_type24753 = t39314; t39316.value.structure_type24753->s1.tag = NULL_TYPE; t39315 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t39315==NULL) {backtrace("stalin.sc", 21490, 752517); out_of_memory_error();} t39315->s0.tag = STRUCTURE_TYPE24753; t39315->s0.value.structure_type24753 = t39313; t39315->s1 = t39316; t39262 = f13564(t39315); goto l5771; l5770: /* x155512 */ /* x155466 stalin.sc:21492:752634 */ /* x155465 stalin.sc:21492:752689 */ t39273 = a27738; /* x155464 stalin.sc:21492:752640 */ /* x155452 stalin.sc:21492:752635 */ t39274.tag = NATIVE_PROCEDURE_TYPE20988; t39275 = *((struct w49 *)(&t39273)); t39276 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t39274, t39275, t39276).tag)==FALSE_TYPE) goto l5773; /* x155501 */ /* x155500 */ t39284 = p16529; p16535 = t39284; /* x155499 stalin.sc:21493:752697 */ /* x155498 stalin.sc:21495:752763 */ /* x155497 stalin.sc:21496:752828 */ /* x155489 stalin.sc:21496:752834 */ t39306 = p16535->a27732; /* x155496 stalin.sc:21496:752837 */ /* x155491 stalin.sc:21496:752846 */ t39308 = p16535->a27734; /* x155494 stalin.sc:21496:752849 */ /* x155493 stalin.sc:21496:752866 */ t39311 = p16535->a27733; /* x155492 stalin.sc:21496:752850 */ t39309 = f13854(t39311); /* x155495 stalin.sc:21496:752870 */ t39310 = p16535->a27735; /* x155490 stalin.sc:21496:752838 */ t39307 = f14485(t39308, t39309, t39310); /* x155488 stalin.sc:21496:752829 */ t39296 = f13591(t39306, t39307); /* x155487 stalin.sc:21495:752769 */ /* x155481 stalin.sc:21495:752775 */ /* x155479 stalin.sc:21495:752782 */ t39302 = p16535->a27734; /* x155480 stalin.sc:21495:752785 */ t39303 = p16535->a27735; /* x155478 stalin.sc:21495:752776 */ t39299 = f14478(t39302, t39303); /* x155486 stalin.sc:21495:752789 */ /* x155485 stalin.sc:21495:752801 */ /* x155484 stalin.sc:21495:752818 */ t39305 = p16535->a27733; /* x155483 stalin.sc:21495:752802 */ t39304 = f13854(t39305); /* x155482 stalin.sc:21495:752790 */ t39300 = f14433(t39304); /* x155477 stalin.sc:21495:752770 */ t39301 = *((struct w49 *)(&t39300)); t39295 = f13591(t39299, t39301); /* x155476 stalin.sc:21495:752764 */ t39298.tag = STRUCTURE_TYPE24753; t39298.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t39298.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21495, 752763); out_of_memory_error();} t39298.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t39298.value.structure_type24753->s0.value.structure_type24753 = t39296; t39298.value.structure_type24753->s1.tag = NULL_TYPE; t39297 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t39297==NULL) {backtrace("stalin.sc", 21495, 752763); out_of_memory_error();} t39297->s0.tag = STRUCTURE_TYPE24753; t39297->s0.value.structure_type24753 = t39295; t39297->s1 = t39298; t39286 = f13564(t39297); /* x155475 stalin.sc:21494:752716 */ /* x155469 stalin.sc:21494:752722 */ t39289 = p16535->a27732; /* x155474 stalin.sc:21494:752725 */ /* x155471 stalin.sc:21494:752747 */ t39292 = p16535->a27734; /* x155472 stalin.sc:21494:752750 */ t39293 = p16535->a27735; /* x155473 stalin.sc:21494:752753 */ t39294 = p16535->a27733; /* x155470 stalin.sc:21494:752726 */ t39290 = f14428(t39292, t39293, t39294); /* x155468 stalin.sc:21494:752717 */ t39291.tag = STRUCTURE_TYPE24753; t39291.value.structure_type24753 = t39290; t39285 = f13591(t39289, t39291); /* x155467 stalin.sc:21493:752698 */ t39288.tag = STRUCTURE_TYPE24753; t39288.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t39288.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21493, 752697); out_of_memory_error();} t39288.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t39288.value.structure_type24753->s0.value.structure_type24753 = t39286; t39288.value.structure_type24753->s1.tag = NULL_TYPE; t39287 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t39287==NULL) {backtrace("stalin.sc", 21493, 752697); out_of_memory_error();} t39287->s0.tag = STRUCTURE_TYPE24753; t39287->s0.value.structure_type24753 = t39285; t39287->s1 = t39288; t39262 = f13556(t39287); goto l5774; l5773: /* x155511 */ /* x155510 */ t39277 = p16529; p16536 = t39277; /* x155509 stalin.sc:21500:753045 */ /* x155503 stalin.sc:21500:753051 */ t39278 = p16536->a27732; /* x155508 stalin.sc:21500:753054 */ /* x155505 stalin.sc:21500:753076 */ t39281 = p16536->a27734; /* x155506 stalin.sc:21500:753079 */ t39282 = p16536->a27735; /* x155507 stalin.sc:21500:753082 */ t39283 = p16536->a27733; /* x155504 stalin.sc:21500:753055 */ t39279 = f14428(t39281, t39282, t39283); /* x155502 stalin.sc:21500:753046 */ t39280.tag = STRUCTURE_TYPE24753; t39280.value.structure_type24753 = t39279; t39262 = f13591(t39278, t39280); l5774: l5771: l5768: l5765: l5762: l5759: l5756: /* x155246 stalin.sc:21439:750304 */ return f14709(t39261, t39262); l5685: /* x156635 */ /* x155526 stalin.sc:21501:753101 */ /* x155525 stalin.sc:21501:753112 */ t38847 = p16487->a27733; /* x155524 stalin.sc:21501:753102 */ if (f14024(t38847)==FALSE_TYPE) goto l5687; /* x156108 */ /* x156107 */ t39084 = p16487; p16537 = t39084; /* x156106 stalin.sc:21506:753342 */ /* x155528 stalin.sc:21507:753358 */ t39085 = p16537->a27722; /* x156105 stalin.sc:21508:753362 */ /* x155531 stalin.sc:21509:753372 */ /* x155530 stalin.sc:21509:753379 */ t39087 = p16537->a27735; /* x155529 stalin.sc:21509:753373 */ if (f8151(t39087)==FALSE_TYPE) goto l5713; /* x155544 */ /* x155543 */ t39251 = p16537; p16538 = t39251; /* x155542 stalin.sc:21510:753387 */ /* x155533 stalin.sc:21510:753393 */ t39252 = p16538->a27732; /* x155541 stalin.sc:21510:753396 */ /* x155539 stalin.sc:21510:753413 */ /* x155538 stalin.sc:21510:753425 */ /* x155537 stalin.sc:21510:753437 */ t39259 = p16538->a27735; /* x155536 stalin.sc:21510:753426 */ t39258 = f8153(t39259); /* x155535 stalin.sc:21510:753414 */ t39255 = f14433(t39258); /* x155540 stalin.sc:21510:753442 */ t39256 = p16538->a27733; /* x155534 stalin.sc:21510:753397 */ t39257 = *((struct w49 *)(&t39255)); t39253 = f14422(t39257, t39256); /* x155532 stalin.sc:21510:753388 */ t39254.tag = STRUCTURE_TYPE24753; t39254.value.structure_type24753 = t39253; t39086 = f13591(t39252, t39254); goto l5714; l5713: /* x156104 */ /* x155547 stalin.sc:21511:753452 */ /* x155546 stalin.sc:21511:753466 */ t39088 = p16537->a27735; /* x155545 stalin.sc:21511:753453 */ if (f8148(t39088)==FALSE_TYPE) goto l5716; /* x155559 */ /* x155558 */ t39244 = p16537; p16539 = t39244; /* x155557 stalin.sc:21511:753470 */ /* x155549 stalin.sc:21511:753476 */ t39245 = p16539->a27732; /* x155556 stalin.sc:21511:753479 */ /* x155551 stalin.sc:21511:753487 */ t39247 = p16539->a27734; /* x155554 stalin.sc:21511:753490 */ /* x155553 stalin.sc:21511:753502 */ t39250 = p16539->a27735; /* x155552 stalin.sc:21511:753491 */ t39248 = f8153(t39250); /* x155555 stalin.sc:21511:753506 */ t39249 = p16539->a27733; /* x155550 stalin.sc:21511:753480 */ t39246 = f14579(t39247, t39248, t39249); /* x155548 stalin.sc:21511:753471 */ t39086 = f13591(t39245, t39246); goto l5717; l5716: /* x156103 */ /* x155562 stalin.sc:21512:753516 */ /* x155561 stalin.sc:21512:753527 */ t39089 = p16537->a27735; /* x155560 stalin.sc:21512:753517 */ if (f13798(t39089)==FALSE_TYPE) goto l5719; /* x155574 */ /* x155573 */ t39236 = p16537; p16540 = t39236; /* x155572 stalin.sc:21512:753531 */ /* x155564 stalin.sc:21512:753537 */ t39237 = p16540->a27732; /* x155571 stalin.sc:21512:753540 */ /* x155569 stalin.sc:21512:753557 */ /* x155567 stalin.sc:21512:753564 */ t39242 = p16540->a27734; /* x155568 stalin.sc:21512:753567 */ t39243 = p16540->a27735; /* x155566 stalin.sc:21512:753558 */ t39240 = f14478(t39242, t39243); /* x155570 stalin.sc:21512:753571 */ t39241 = p16540->a27733; /* x155565 stalin.sc:21512:753541 */ t39238 = f14422(t39240, t39241); /* x155563 stalin.sc:21512:753532 */ t39239.tag = STRUCTURE_TYPE24753; t39239.value.structure_type24753 = t39238; t39086 = f13591(t39237, t39239); goto l5720; l5719: /* x156102 */ /* x155577 stalin.sc:21513:753581 */ /* x155576 stalin.sc:21513:753592 */ t39090 = p16537->a27735; /* x155575 stalin.sc:21513:753582 */ if (f13859(t39090)==FALSE_TYPE) goto l5722; /* x155669 */ /* x155668 */ t39190 = p16537; p16541 = t39190; /* x155667 stalin.sc:21514:753600 */ /* x155598 stalin.sc:21514:753604 */ /* x155596 stalin.sc:21515:753615 */ t39191 = p16541; /* x155597 stalin.sc:21517:753694 */ t39192 = p16541->a27735; /* x155578 stalin.sc:21514:753605 */ t39193.tag = NATIVE_PROCEDURE_TYPE20979; t39193.value.native_procedure_type20979 = t39191; if ((f8137(t39193, t39192).tag)==FALSE_TYPE) goto l5743; /* x155647 stalin.sc:21518:753706 */ /* x155604 stalin.sc:21518:753710 */ /* x155602 stalin.sc:21518:753719 */ /* x155601 stalin.sc:21518:753736 */ t39206 = p16541->a27735; /* x155600 stalin.sc:21518:753720 */ t39204 = f13854(t39206); /* x155603 stalin.sc:21518:753740 */ t39205 = p16541->a27733; /* x155599 stalin.sc:21518:753711 */ if (f8033(t39204, t39205)==FALSE_TYPE) goto l5749; /* x155639 stalin.sc:21521:753832 */ /* x155612 stalin.sc:21521:753836 */ /* x155611 stalin.sc:21521:753843 */ /* x155609 stalin.sc:21521:753855 */ /* x155608 stalin.sc:21521:753872 */ t39215 = p16541->a27735; /* x155607 stalin.sc:21521:753856 */ t39213 = f13854(t39215); /* x155610 stalin.sc:21521:753876 */ t39214 = p16541->a27733; /* x155606 stalin.sc:21521:753844 */ t39212 = f14564(t39213, t39214); /* x268291 stalin.sc:21521:753837 */ if (!((t39212&1)==1)) {backtrace("stalin.sc", 21521, 753836); zero_error();} if (!(((int)(((int)t39212)>>1))==0)) goto l5752; /* x155619 stalin.sc:21526:754107 */ /* x155614 stalin.sc:21526:754113 */ t39231 = p16541->a27732; /* x155618 stalin.sc:21526:754116 */ /* x155616 stalin.sc:21526:754133 */ t39234 = p16541->a27734; /* x155617 stalin.sc:21526:754136 */ t39235 = p16541->a27733; /* x155615 stalin.sc:21526:754117 */ t39232 = f14422(t39234, t39235); /* x155613 stalin.sc:21526:754108 */ t39233.tag = STRUCTURE_TYPE24753; t39233.value.structure_type24753 = t39232; t39086 = f13591(t39231, t39233); goto l5753; l5752: /* x155638 stalin.sc:21529:754259 */ /* x155637 stalin.sc:21533:754418 */ /* x155629 stalin.sc:21533:754424 */ t39225 = p16541->a27732; /* x155636 stalin.sc:21533:754427 */ /* x155631 stalin.sc:21533:754435 */ t39227 = p16541->a27734; /* x155634 stalin.sc:21533:754438 */ /* x155633 stalin.sc:21533:754455 */ t39230 = p16541->a27735; /* x155632 stalin.sc:21533:754439 */ t39228 = f13854(t39230); /* x155635 stalin.sc:21533:754459 */ t39229 = p16541->a27733; /* x155630 stalin.sc:21533:754428 */ t39226 = f14579(t39227, t39228, t39229); /* x155628 stalin.sc:21533:754419 */ t39217 = f13591(t39225, t39226); /* x155627 stalin.sc:21531:754327 */ /* x155622 stalin.sc:21531:754333 */ t39220 = p16541->a27732; /* x155626 stalin.sc:21531:754336 */ /* x155624 stalin.sc:21531:754353 */ t39223 = p16541->a27734; /* x155625 stalin.sc:21531:754356 */ t39224 = p16541->a27733; /* x155623 stalin.sc:21531:754337 */ t39221 = f14422(t39223, t39224); /* x155621 stalin.sc:21531:754328 */ t39222.tag = STRUCTURE_TYPE24753; t39222.value.structure_type24753 = t39221; t39216 = f13591(t39220, t39222); /* x155620 stalin.sc:21529:754260 */ t39219.tag = STRUCTURE_TYPE24753; t39219.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t39219.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21529, 754259); out_of_memory_error();} t39219.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t39219.value.structure_type24753->s0.value.structure_type24753 = t39217; t39219.value.structure_type24753->s1.tag = NULL_TYPE; t39218 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t39218==NULL) {backtrace("stalin.sc", 21529, 754259); out_of_memory_error();} t39218->s0.tag = STRUCTURE_TYPE24753; t39218->s0.value.structure_type24753 = t39216; t39218->s1 = t39219; t39086 = f13556(t39218); l5753: goto l5750; l5749: /* x155646 stalin.sc:21540:754813 */ /* x155641 stalin.sc:21540:754819 */ t39207 = p16541->a27732; /* x155645 stalin.sc:21540:754822 */ /* x155643 stalin.sc:21540:754839 */ t39210 = p16541->a27734; /* x155644 stalin.sc:21540:754842 */ t39211 = p16541->a27733; /* x155642 stalin.sc:21540:754823 */ t39208 = f14422(t39210, t39211); /* x155640 stalin.sc:21540:754814 */ t39209.tag = STRUCTURE_TYPE24753; t39209.value.structure_type24753 = t39208; t39086 = f13591(t39207, t39209); l5750: goto l5744; l5743: /* x155666 stalin.sc:21541:754856 */ /* x155653 stalin.sc:21541:754860 */ /* x155651 stalin.sc:21541:754869 */ /* x155650 stalin.sc:21541:754886 */ t39196 = p16541->a27735; /* x155649 stalin.sc:21541:754870 */ t39194 = f13854(t39196); /* x155652 stalin.sc:21541:754890 */ t39195 = p16541->a27733; /* x155648 stalin.sc:21541:754861 */ if (f8033(t39194, t39195)==FALSE_TYPE) goto l5746; /* x155663 stalin.sc:21545:755052 */ /* x155655 stalin.sc:21545:755058 */ t39198 = p16541->a27732; /* x155662 stalin.sc:21545:755061 */ /* x155657 stalin.sc:21545:755069 */ t39200 = p16541->a27734; /* x155660 stalin.sc:21545:755072 */ /* x155659 stalin.sc:21545:755089 */ t39203 = p16541->a27735; /* x155658 stalin.sc:21545:755073 */ t39201 = f13854(t39203); /* x155661 stalin.sc:21545:755093 */ t39202 = p16541->a27733; /* x155656 stalin.sc:21545:755062 */ t39199 = f14579(t39200, t39201, t39202); /* x155654 stalin.sc:21545:755053 */ t39086 = f13591(t39198, t39199); goto l5747; l5746: /* x155665 stalin.sc:21547:755154 */ /* x155664 stalin.sc:21547:755155 */ /* x295829 QobiScheme.sc:166:5314 */ /* x295828 QobiScheme.sc:166:5321 */ t39197 = "This shouldn\'t happen"; /* x295827 QobiScheme.sc:166:5315 */ stalin_panic(t39197); l5747: l5744: goto l5723; l5722: /* x156101 */ /* x155672 stalin.sc:21548:755171 */ /* x155671 stalin.sc:21548:755182 */ t39091 = p16537->a27735; /* x155670 stalin.sc:21548:755172 */ if (f14024(t39091)==FALSE_TYPE) goto l5725; /* x156042 */ /* x156041 */ t39112 = p16537; p16544 = t39112; /* x156040 stalin.sc:21549:755190 */ /* x155712 stalin.sc:21550:755202 */ /* x155702 stalin.sc:21550:755207 */ /* x155701 stalin.sc:21554:755330 */ t39114 = a27738; /* x155700 stalin.sc:21550:755214 */ t39113 = p16544; /* x155673 stalin.sc:21550:755208 */ t39115.tag = NATIVE_PROCEDURE_TYPE20963; t39115.value.native_procedure_type20963 = t39113; t39116 = *((struct w49 *)(&t39114)); t39117 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t39115, t39116, t39117)==FALSE_TYPE) goto l5728; /* x155710 */ /* x155706 stalin.sc:21555:755341 */ /* x155705 stalin.sc:21555:755359 */ t39120 = p16544->a27733; /* x155704 stalin.sc:21555:755342 */ t39118 = f13917(t39120); /* x155709 stalin.sc:21555:755363 */ /* x155708 stalin.sc:21555:755381 */ t39121 = p16544->a27735; /* x155707 stalin.sc:21555:755364 */ t39119 = f13917(t39121); /* x268289 stalin.sc:21555:755339 */ switch (t39118.tag) {case FIXNUM_TYPE: switch (t39119.tag) {case FIXNUM_TYPE: if (!((t39118.value.fixnum_type)==(t39119.value.fixnum_type))) goto l5728; break; case FLONUM_TYPE: if (!((t39118.value.fixnum_type)==(t39119.value.flonum_type))) goto l5728; break; default: backtrace_internal("[inside top level 16544]"); eql_error();} break; case FLONUM_TYPE: switch (t39119.tag) {case FIXNUM_TYPE: if (!((t39118.value.flonum_type)==(t39119.value.fixnum_type))) goto l5728; break; case FLONUM_TYPE: if (!((t39118.value.flonum_type)==(t39119.value.flonum_type))) goto l5728; break; default: backtrace_internal("[inside top level 16544]"); eql_error();} break; default: backtrace_internal("[inside top level 16544]"); eql_error();} /* x155718 */ /* x155717 */ t39187 = p16544; p16548 = t39187; /* x155716 stalin.sc:21556:755393 */ /* x155714 stalin.sc:21556:755399 */ t39188 = p16548->a27732; /* x155715 stalin.sc:21556:755402 */ t39189 = p16548->a27734; /* x155713 stalin.sc:21556:755394 */ t39086 = f13591(t39188, t39189); goto l5729; l5728: /* x156039 */ /* x155768 stalin.sc:21557:755413 */ /* x155742 stalin.sc:21557:755418 */ /* x155740 stalin.sc:21558:755433 */ t39122 = p16544; /* x155741 stalin.sc:21560:755512 */ t39123 = p16544->a27733; /* x155719 stalin.sc:21557:755419 */ t39124.tag = NATIVE_PROCEDURE_TYPE20964; t39124.value.native_procedure_type20964 = t39122; if (f8146(t39124, t39123)==FALSE_TYPE) goto l5732; /* x155766 */ /* x155764 stalin.sc:21562:755535 */ t39125 = p16544; /* x155765 stalin.sc:21564:755614 */ t39126 = p16544->a27735; /* x155743 stalin.sc:21561:755521 */ t39127.tag = NATIVE_PROCEDURE_TYPE20973; t39127.value.native_procedure_type20973 = t39125; if (f8146(t39127, t39126)==FALSE_TYPE) goto l5732; /* x155774 */ /* x155773 */ t39184 = p16544; p16555 = t39184; /* x155772 stalin.sc:21565:755625 */ /* x155770 stalin.sc:21565:755631 */ t39185 = p16555->a27732; /* x155771 stalin.sc:21565:755634 */ t39186 = p16555->a27734; /* x155769 stalin.sc:21565:755626 */ t39086 = f13591(t39185, t39186); goto l5733; l5732: /* x156038 */ /* x155789 stalin.sc:21566:755645 */ /* x155788 stalin.sc:21566:755700 */ t39128 = a27738; /* x155787 stalin.sc:21566:755651 */ /* x155775 stalin.sc:21566:755646 */ t39129.tag = NATIVE_PROCEDURE_TYPE20965; t39130 = *((struct w49 *)(&t39128)); t39131 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t39129, t39130, t39131).tag)==FALSE_TYPE) goto l5736; /* x155961 */ /* x155960 */ t39140 = p16544; p16558 = t39140; /* x155959 stalin.sc:21567:755710 */ /* x155791 stalin.sc:21568:755724 */ /* x155958 stalin.sc:21569:755744 */ /* x155872 stalin.sc:21570:755758 */ /* x155842 stalin.sc:21570:755762 */ /* x155816 stalin.sc:21570:755767 */ /* x155814 stalin.sc:21570:755776 */ t39145 = p16558; /* x155815 stalin.sc:21574:755901 */ t39146 = p16558->a27733; /* x155793 stalin.sc:21570:755768 */ t39147.tag = NATIVE_PROCEDURE_TYPE20971; t39147.value.native_procedure_type20971 = t39145; if ((f8137(t39147, t39146).tag)==FALSE_TYPE) goto l5739; /* x155840 */ /* x155838 stalin.sc:21575:755917 */ t39148 = p16558; /* x155839 stalin.sc:21579:756042 */ t39149 = p16558->a27735; /* x155817 stalin.sc:21575:755909 */ t39150.tag = NATIVE_PROCEDURE_TYPE20972; t39150.value.native_procedure_type20972 = t39148; if ((f8137(t39150, t39149).tag)==FALSE_TYPE) goto l5739; /* x155859 stalin.sc:21580:756052 */ /* x155858 stalin.sc:21582:756127 */ /* x155856 stalin.sc:21582:756133 */ t39174 = p16558->a27732; /* x155857 stalin.sc:21582:756136 */ t39175 = p16558->a27734; /* x155855 stalin.sc:21582:756128 */ t39163 = f13591(t39174, t39175); /* x155854 stalin.sc:21581:756097 */ /* x155851 stalin.sc:21581:756102 */ t39171 = p16558->a27732; /* x155853 stalin.sc:21581:756105 */ /* x155852 stalin.sc:21581:756106 */ /* x276367 stalin.sc:16167:562604 */ t39172 = "VALUE_OFFSET"; /* x155850 stalin.sc:21581:756098 */ t39173.tag = STRING_TYPE; t39173.value.string_type = t39172; t39162 = f13601(t39171, t39173); /* x155849 stalin.sc:21580:756058 */ /* x155848 stalin.sc:21580:756065 */ /* x155846 stalin.sc:21580:756085 */ t39169 = p16558->a27732; /* x155847 stalin.sc:21580:756088 */ t39170 = p16558->a27733; /* x155845 stalin.sc:21580:756066 */ t39167 = f14594(t39169, t39170); /* x155844 stalin.sc:21580:756059 */ t39168.tag = STRUCTURE_TYPE24753; t39168.value.structure_type24753 = t39167; t39161 = f13592(t39168); /* x155843 stalin.sc:21580:756053 */ t39166.tag = STRUCTURE_TYPE24753; t39166.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t39166.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21580, 756052); out_of_memory_error();} t39166.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t39166.value.structure_type24753->s0.value.structure_type24753 = t39163; t39166.value.structure_type24753->s1.tag = NULL_TYPE; t39165.tag = STRUCTURE_TYPE24753; t39165.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t39165.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21580, 756052); out_of_memory_error();} t39165.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t39165.value.structure_type24753->s0.value.structure_type24753 = t39162; t39165.value.structure_type24753->s1 = t39166; t39164 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t39164==NULL) {backtrace("stalin.sc", 21580, 756052); out_of_memory_error();} t39164->s0.tag = STRUCTURE_TYPE24753; t39164->s0.value.structure_type24753 = t39161; t39164->s1 = t39165; t39143 = f13564(t39164); goto l5740; l5739: /* x155871 stalin.sc:21583:756146 */ /* x155870 stalin.sc:21583:756187 */ /* x155868 stalin.sc:21583:756193 */ t39159 = p16558->a27732; /* x155869 stalin.sc:21583:756196 */ t39160 = p16558->a27734; /* x155867 stalin.sc:21583:756188 */ t39152 = f13591(t39159, t39160); /* x155866 stalin.sc:21583:756152 */ /* x155865 stalin.sc:21583:756159 */ /* x155863 stalin.sc:21583:756179 */ t39157 = p16558->a27732; /* x155864 stalin.sc:21583:756182 */ t39158 = p16558->a27733; /* x155862 stalin.sc:21583:756160 */ t39155 = f14594(t39157, t39158); /* x155861 stalin.sc:21583:756153 */ t39156.tag = STRUCTURE_TYPE24753; t39156.value.structure_type24753 = t39155; t39151 = f13592(t39156); /* x155860 stalin.sc:21583:756147 */ t39154.tag = STRUCTURE_TYPE24753; t39154.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t39154.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21583, 756146); out_of_memory_error();} t39154.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t39154.value.structure_type24753->s0.value.structure_type24753 = t39152; t39154.value.structure_type24753->s1.tag = NULL_TYPE; t39153 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t39153==NULL) {backtrace("stalin.sc", 21583, 756146); out_of_memory_error();} t39153->s0.tag = STRUCTURE_TYPE24753; t39153->s0.value.structure_type24753 = t39151; t39153->s1 = t39154; t39143 = f13564(t39153); l5740: /* x155957 stalin.sc:21584:756210 */ /* x155956 stalin.sc:21594:756610 */ /* x155954 stalin.sc:21594:756621 */ /* x155955 stalin.sc:21595:756680 */ t39181 = a27738; /* x155942 stalin.sc:21594:756611 */ t39182 = NATIVE_PROCEDURE_TYPE20969; t39183 = *((struct w49 *)(&t39181)); t39177 = f1218(t39182, t39183); /* x155941 stalin.sc:21584:756215 */ t39176 = p16558; /* x155873 stalin.sc:21584:756211 */ t39178.tag = NATIVE_PROCEDURE_TYPE20970; t39178.value.native_procedure_type20970 = t39176; t39179 = *((struct w49 *)(&t39177)); t39180 = (struct structure_type24753 *)NULL_TYPE; t39144 = f27731(t39178, t39179, t39180); /* x268287 stalin.sc:21569:755745 */ t39141 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t39141==NULL) {backtrace("stalin.sc", 21569, 755744); out_of_memory_error();} t39141->s0.tag = STRUCTURE_TYPE24753; t39141->s0.value.structure_type24753 = t39143; /* MOVE: branching squeezed to general */ if (t39144>=((struct structure_type24753 *)VALUE_OFFSET)) {t39141->s1.tag = STRUCTURE_TYPE24753; t39141->s1.value.structure_type24753 = t39144;} else t39141->s1.tag = (unsigned)t39144; /* x268288 stalin.sc:21567:755711 */ t39142 = t39141; t39086 = f13556(t39142); goto l5737; l5736: /* x156037 */ /* x156036 */ t39132 = p16544; p16564 = t39132; /* x156035 stalin.sc:21597:756705 */ /* x155963 stalin.sc:21598:756719 */ /* x156034 stalin.sc:21599:756739 */ /* x156033 stalin.sc:21609:757129 */ t39136 = a27738; /* x156032 stalin.sc:21599:756744 */ t39135 = p16564; /* x155964 stalin.sc:21599:756740 */ t39137.tag = NATIVE_PROCEDURE_TYPE20967; t39137.value.native_procedure_type20967 = t39135; t39138 = *((struct w49 *)(&t39136)); t39139 = (struct structure_type24753 *)NULL_TYPE; t39133 = f27731(t39137, t39138, t39139); /* x268279 stalin.sc:21597:756706 */ t39134 = t39133; t39086 = f13556(t39134); l5737: l5733: l5729: goto l5726; l5725: /* x156100 */ /* x156099 */ t39092 = p16537; p16566 = t39092; /* x156098 stalin.sc:21611:757150 */ /* x156044 stalin.sc:21612:757162 */ /* x156097 stalin.sc:21613:757180 */ /* x156055 stalin.sc:21613:757186 */ /* x156047 stalin.sc:21613:757192 */ t39097 = p16566->a27732; /* x156054 stalin.sc:21613:757195 */ /* x156052 stalin.sc:21613:757212 */ /* x156050 stalin.sc:21613:757219 */ t39102 = p16566->a27734; /* x156051 stalin.sc:21613:757222 */ t39103 = p16566->a27735; /* x156049 stalin.sc:21613:757213 */ t39100 = f14478(t39102, t39103); /* x156053 stalin.sc:21613:757226 */ t39101 = p16566->a27733; /* x156048 stalin.sc:21613:757196 */ t39098 = f14422(t39100, t39101); /* x156046 stalin.sc:21613:757187 */ t39099.tag = STRUCTURE_TYPE24753; t39099.value.structure_type24753 = t39098; t39095 = f13591(t39097, t39099); /* x156096 stalin.sc:21614:757235 */ /* x156095 stalin.sc:21617:757360 */ /* x156093 stalin.sc:21618:757374 */ /* x156094 stalin.sc:21619:757426 */ t39109 = a27738; /* x156081 stalin.sc:21617:757361 */ t39110 = NATIVE_PROCEDURE_TYPE20960; t39111 = *((struct w49 *)(&t39109)); t39105 = f1218(t39110, t39111); /* x156080 stalin.sc:21614:757240 */ t39104 = p16566; /* x156056 stalin.sc:21614:757236 */ t39106.tag = NATIVE_PROCEDURE_TYPE20961; t39106.value.native_procedure_type20961 = t39104; t39107 = *((struct w49 *)(&t39105)); t39108 = (struct structure_type24753 *)NULL_TYPE; t39096 = f27731(t39106, t39107, t39108); /* x268276 stalin.sc:21613:757181 */ t39093 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t39093==NULL) {backtrace("stalin.sc", 21613, 757180); out_of_memory_error();} t39093->s0.tag = STRUCTURE_TYPE24753; t39093->s0.value.structure_type24753 = t39095; /* MOVE: branching squeezed to general */ if (t39096>=((struct structure_type24753 *)VALUE_OFFSET)) {t39093->s1.tag = STRUCTURE_TYPE24753; t39093->s1.value.structure_type24753 = t39096;} else t39093->s1.tag = (unsigned)t39096; /* x268277 stalin.sc:21611:757151 */ t39094 = t39093; t39086 = f13556(t39094); l5726: l5723: l5720: l5717: l5714: /* x155527 stalin.sc:21506:753343 */ return f14709(t39085, t39086); l5687: /* x156634 */ /* x156633 */ t38848 = p16487; p16570 = t38848; /* x156632 stalin.sc:21621:757451 */ /* x156111 stalin.sc:21622:757460 */ /* x156110 stalin.sc:21622:757467 */ t38849 = p16570->a27735; /* x156109 stalin.sc:21622:757461 */ if (f8151(t38849)==FALSE_TYPE) goto l5689; /* x156127 */ /* x156126 */ t39074 = p16570; p16571 = t39074; /* x156125 stalin.sc:21623:757474 */ /* x156113 stalin.sc:21623:757488 */ t39075 = p16571->a27722; /* x156124 stalin.sc:21623:757490 */ /* x156118 stalin.sc:21623:757496 */ /* x156116 stalin.sc:21623:757503 */ t39080 = p16571->a27732; /* x156117 stalin.sc:21623:757506 */ t39081 = p16571->a27733; /* x156115 stalin.sc:21623:757497 */ t39077 = f14478(t39080, t39081); /* x156123 stalin.sc:21623:757510 */ /* x156122 stalin.sc:21623:757522 */ /* x156121 stalin.sc:21623:757534 */ t39083 = p16571->a27735; /* x156120 stalin.sc:21623:757523 */ t39082 = f8153(t39083); /* x156119 stalin.sc:21623:757511 */ t39078 = f14433(t39082); /* x156114 stalin.sc:21623:757491 */ t39079 = *((struct w49 *)(&t39078)); t39076 = f13591(t39077, t39079); /* x156112 stalin.sc:21623:757475 */ return f14709(t39075, t39076); l5689: /* x156631 */ /* x156130 stalin.sc:21624:757545 */ /* x156129 stalin.sc:21624:757559 */ t38850 = p16570->a27735; /* x156128 stalin.sc:21624:757546 */ if (f8148(t38850)==FALSE_TYPE) goto l5691; /* x156189 */ /* x156188 */ t39036 = p16570; p16572 = t39036; /* x156187 stalin.sc:21625:757566 */ /* x156132 stalin.sc:21626:757584 */ t39037 = p16572->a27722; /* x156186 stalin.sc:21627:757590 */ /* x156137 stalin.sc:21627:757594 */ /* x156136 stalin.sc:21627:757606 */ /* x156135 stalin.sc:21627:757618 */ t39040 = p16572->a27735; /* x156134 stalin.sc:21627:757607 */ t39039 = f8153(t39040); /* x156133 stalin.sc:21627:757595 */ if (f7682(t39039)==FALSE_TYPE) goto l5710; /* x156153 stalin.sc:21628:757631 */ /* x156145 stalin.sc:21628:757637 */ /* x156140 stalin.sc:21628:757646 */ t39066 = p16572->a27732; /* x156143 stalin.sc:21628:757649 */ /* x156142 stalin.sc:21628:757661 */ t39069 = p16572->a27735; /* x156141 stalin.sc:21628:757650 */ t39067 = f8153(t39069); /* x156144 stalin.sc:21628:757665 */ t39068 = p16572->a27733; /* x156139 stalin.sc:21628:757638 */ t39064 = f14485(t39066, t39067, t39068); /* x156152 stalin.sc:21629:757676 */ /* x156147 stalin.sc:21629:757685 */ t39070 = p16572->a27734; /* x156150 stalin.sc:21629:757688 */ /* x156149 stalin.sc:21629:757700 */ t39073 = p16572->a27735; /* x156148 stalin.sc:21629:757689 */ t39071 = f8153(t39073); /* x156151 stalin.sc:21629:757704 */ t39072 = p16572->a27735; /* x156146 stalin.sc:21629:757677 */ t39065 = f14485(t39070, t39071, t39072); /* x156138 stalin.sc:21628:757632 */ t39038 = f13591(t39064, t39065); goto l5711; l5710: /* x156185 stalin.sc:21630:757717 */ /* x156184 stalin.sc:21631:757780 */ /* x156173 stalin.sc:21631:757792 */ /* x156168 stalin.sc:21631:757801 */ t39055 = p16572->a27732; /* x156171 stalin.sc:21631:757804 */ /* x156170 stalin.sc:21631:757816 */ t39058 = p16572->a27735; /* x156169 stalin.sc:21631:757805 */ t39056 = f8153(t39058); /* x156172 stalin.sc:21631:757820 */ t39057 = p16572->a27733; /* x156167 stalin.sc:21631:757793 */ t39052 = f14485(t39055, t39056, t39057); /* x156180 stalin.sc:21632:757829 */ /* x156175 stalin.sc:21632:757838 */ t39059 = p16572->a27734; /* x156178 stalin.sc:21632:757841 */ /* x156177 stalin.sc:21632:757853 */ t39062 = p16572->a27735; /* x156176 stalin.sc:21632:757842 */ t39060 = f8153(t39062); /* x156179 stalin.sc:21632:757857 */ t39061 = p16572->a27735; /* x156174 stalin.sc:21632:757830 */ t39053 = f14485(t39059, t39060, t39061); /* x156183 stalin.sc:21633:757866 */ /* x156182 stalin.sc:21633:757878 */ t39063 = p16572->a27735; /* x156181 stalin.sc:21633:757867 */ t39054 = f8153(t39063); /* x156166 stalin.sc:21631:757781 */ t39042 = f13784(t39052, t39053, t39054); /* x156165 stalin.sc:21630:757723 */ /* x156159 stalin.sc:21630:757729 */ /* x156157 stalin.sc:21630:757736 */ t39048 = p16572->a27732; /* x156158 stalin.sc:21630:757739 */ t39049 = p16572->a27733; /* x156156 stalin.sc:21630:757730 */ t39045 = f14478(t39048, t39049); /* x156164 stalin.sc:21630:757743 */ /* x156163 stalin.sc:21630:757755 */ /* x156162 stalin.sc:21630:757767 */ t39051 = p16572->a27735; /* x156161 stalin.sc:21630:757756 */ t39050 = f8153(t39051); /* x156160 stalin.sc:21630:757744 */ t39046 = f14433(t39050); /* x156155 stalin.sc:21630:757724 */ t39047 = *((struct w49 *)(&t39046)); t39041 = f13591(t39045, t39047); /* x156154 stalin.sc:21630:757718 */ t39044.tag = STRUCTURE_TYPE24753; t39044.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t39044.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21630, 757717); out_of_memory_error();} t39044.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t39044.value.structure_type24753->s0.value.structure_type24753 = t39042; t39044.value.structure_type24753->s1.tag = NULL_TYPE; t39043 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t39043==NULL) {backtrace("stalin.sc", 21630, 757717); out_of_memory_error();} t39043->s0.tag = STRUCTURE_TYPE24753; t39043->s0.value.structure_type24753 = t39041; t39043->s1 = t39044; t39038 = f13564(t39043); l5711: /* x156131 stalin.sc:21625:757567 */ return f14709(t39037, t39038); l5691: /* x156630 */ /* x156192 stalin.sc:21634:757890 */ /* x156191 stalin.sc:21634:757901 */ t38851 = p16570->a27735; /* x156190 stalin.sc:21634:757891 */ if (f13798(t38851)==FALSE_TYPE) goto l5693; /* x156207 */ /* x156206 */ t39027 = p16570; p16573 = t39027; /* x156205 stalin.sc:21634:757905 */ /* x156194 stalin.sc:21634:757919 */ t39028 = p16573->a27722; /* x156204 stalin.sc:21634:757921 */ /* x156199 stalin.sc:21634:757927 */ /* x156197 stalin.sc:21634:757934 */ t39032 = p16573->a27732; /* x156198 stalin.sc:21634:757937 */ t39033 = p16573->a27733; /* x156196 stalin.sc:21634:757928 */ t39030 = f14478(t39032, t39033); /* x156203 stalin.sc:21634:757941 */ /* x156201 stalin.sc:21634:757948 */ t39034 = p16573->a27734; /* x156202 stalin.sc:21634:757951 */ t39035 = p16573->a27735; /* x156200 stalin.sc:21634:757942 */ t39031 = f14478(t39034, t39035); /* x156195 stalin.sc:21634:757922 */ t39029 = f13591(t39030, t39031); /* x156193 stalin.sc:21634:757906 */ return f14709(t39028, t39029); l5693: /* x156629 */ /* x156210 stalin.sc:21635:757961 */ /* x156209 stalin.sc:21635:757972 */ t38852 = p16570->a27735; /* x156208 stalin.sc:21635:757962 */ if (f13859(t38852)==FALSE_TYPE) goto l5695; /* x156317 */ /* x156316 */ t38963 = p16570; p16574 = t38963; /* x156315 stalin.sc:21640:758226 */ /* x156212 stalin.sc:21641:758244 */ t38964 = p16574->a27722; /* x156314 stalin.sc:21642:758250 */ /* x156227 stalin.sc:21643:758262 */ /* x156226 stalin.sc:21643:758318 */ t38966 = a27738; /* x156225 stalin.sc:21643:758269 */ /* x156213 stalin.sc:21643:758263 */ t38967.tag = NATIVE_PROCEDURE_TYPE20949; t38968 = *((struct w49 *)(&t38966)); t38969 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t38967, t38968, t38969)==FALSE_TYPE) goto l5704; /* x156252 */ /* x156251 */ t39009 = p16574; p16577 = t39009; /* x156250 stalin.sc:21647:758495 */ /* x156249 stalin.sc:21648:758561 */ /* x156247 stalin.sc:21648:758567 */ /* x156242 stalin.sc:21648:758576 */ t39023 = p16577->a27732; /* x156245 stalin.sc:21648:758579 */ /* x156244 stalin.sc:21648:758596 */ t39026 = p16577->a27735; /* x156243 stalin.sc:21648:758580 */ t39024 = f13854(t39026); /* x156246 stalin.sc:21648:758600 */ t39025 = p16577->a27733; /* x156241 stalin.sc:21648:758568 */ t39021 = f14485(t39023, t39024, t39025); /* x156248 stalin.sc:21648:758604 */ t39022 = p16577->a27734; /* x156240 stalin.sc:21648:758562 */ t39011 = f13591(t39021, t39022); /* x156239 stalin.sc:21647:758501 */ /* x156233 stalin.sc:21647:758507 */ /* x156231 stalin.sc:21647:758514 */ t39017 = p16577->a27732; /* x156232 stalin.sc:21647:758517 */ t39018 = p16577->a27733; /* x156230 stalin.sc:21647:758508 */ t39014 = f14478(t39017, t39018); /* x156238 stalin.sc:21647:758521 */ /* x156237 stalin.sc:21647:758533 */ /* x156236 stalin.sc:21647:758550 */ t39020 = p16577->a27735; /* x156235 stalin.sc:21647:758534 */ t39019 = f13854(t39020); /* x156234 stalin.sc:21647:758522 */ t39015 = f14433(t39019); /* x156229 stalin.sc:21647:758502 */ t39016 = *((struct w49 *)(&t39015)); t39010 = f13591(t39014, t39016); /* x156228 stalin.sc:21647:758496 */ t39013.tag = STRUCTURE_TYPE24753; t39013.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t39013.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21647, 758495); out_of_memory_error();} t39013.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t39013.value.structure_type24753->s0.value.structure_type24753 = t39011; t39013.value.structure_type24753->s1.tag = NULL_TYPE; t39012 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t39012==NULL) {backtrace("stalin.sc", 21647, 758495); out_of_memory_error();} t39012->s0.tag = STRUCTURE_TYPE24753; t39012->s0.value.structure_type24753 = t39010; t39012->s1 = t39013; t38965 = f13564(t39012); goto l5705; l5704: /* x156313 */ /* x156267 stalin.sc:21649:758616 */ /* x156266 stalin.sc:21649:758671 */ t38970 = a27738; /* x156265 stalin.sc:21649:758622 */ /* x156253 stalin.sc:21649:758617 */ t38971.tag = NATIVE_PROCEDURE_TYPE20950; t38972 = *((struct w49 *)(&t38970)); t38973 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t38971, t38972, t38973).tag)==FALSE_TYPE) goto l5707; /* x156302 */ /* x156301 */ t38981 = p16574; p16580 = t38981; /* x156300 stalin.sc:21650:758681 */ /* x156299 stalin.sc:21652:758751 */ /* x156298 stalin.sc:21653:758818 */ /* x156296 stalin.sc:21653:758824 */ /* x156291 stalin.sc:21653:758833 */ t39005 = p16580->a27732; /* x156294 stalin.sc:21653:758836 */ /* x156293 stalin.sc:21653:758853 */ t39008 = p16580->a27735; /* x156292 stalin.sc:21653:758837 */ t39006 = f13854(t39008); /* x156295 stalin.sc:21653:758857 */ t39007 = p16580->a27733; /* x156290 stalin.sc:21653:758825 */ t39003 = f14485(t39005, t39006, t39007); /* x156297 stalin.sc:21653:758861 */ t39004 = p16580->a27734; /* x156289 stalin.sc:21653:758819 */ t38993 = f13591(t39003, t39004); /* x156288 stalin.sc:21652:758757 */ /* x156282 stalin.sc:21652:758763 */ /* x156280 stalin.sc:21652:758770 */ t38999 = p16580->a27732; /* x156281 stalin.sc:21652:758773 */ t39000 = p16580->a27733; /* x156279 stalin.sc:21652:758764 */ t38996 = f14478(t38999, t39000); /* x156287 stalin.sc:21652:758777 */ /* x156286 stalin.sc:21652:758789 */ /* x156285 stalin.sc:21652:758806 */ t39002 = p16580->a27735; /* x156284 stalin.sc:21652:758790 */ t39001 = f13854(t39002); /* x156283 stalin.sc:21652:758778 */ t38997 = f14433(t39001); /* x156278 stalin.sc:21652:758758 */ t38998 = *((struct w49 *)(&t38997)); t38992 = f13591(t38996, t38998); /* x156277 stalin.sc:21652:758752 */ t38995.tag = STRUCTURE_TYPE24753; t38995.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t38995.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21652, 758751); out_of_memory_error();} t38995.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t38995.value.structure_type24753->s0.value.structure_type24753 = t38993; t38995.value.structure_type24753->s1.tag = NULL_TYPE; t38994 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t38994==NULL) {backtrace("stalin.sc", 21652, 758751); out_of_memory_error();} t38994->s0.tag = STRUCTURE_TYPE24753; t38994->s0.value.structure_type24753 = t38992; t38994->s1 = t38995; t38983 = f13564(t38994); /* x156276 stalin.sc:21651:758702 */ /* x156274 stalin.sc:21651:758708 */ /* x156271 stalin.sc:21651:758730 */ t38989 = p16580->a27732; /* x156272 stalin.sc:21651:758733 */ t38990 = p16580->a27733; /* x156273 stalin.sc:21651:758736 */ t38991 = p16580->a27735; /* x156270 stalin.sc:21651:758709 */ t38986 = f14428(t38989, t38990, t38991); /* x156275 stalin.sc:21651:758740 */ t38987 = p16580->a27734; /* x156269 stalin.sc:21651:758703 */ t38988.tag = STRUCTURE_TYPE24753; t38988.value.structure_type24753 = t38986; t38982 = f13591(t38988, t38987); /* x156268 stalin.sc:21650:758682 */ t38985.tag = STRUCTURE_TYPE24753; t38985.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t38985.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21650, 758681); out_of_memory_error();} t38985.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t38985.value.structure_type24753->s0.value.structure_type24753 = t38983; t38985.value.structure_type24753->s1.tag = NULL_TYPE; t38984 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t38984==NULL) {backtrace("stalin.sc", 21650, 758681); out_of_memory_error();} t38984->s0.tag = STRUCTURE_TYPE24753; t38984->s0.value.structure_type24753 = t38982; t38984->s1 = t38985; t38965 = f13556(t38984); goto l5708; l5707: /* x156312 */ /* x156311 */ t38974 = p16574; p16581 = t38974; /* x156310 stalin.sc:21657:759043 */ /* x156308 stalin.sc:21657:759049 */ /* x156305 stalin.sc:21657:759071 */ t38978 = p16581->a27732; /* x156306 stalin.sc:21657:759074 */ t38979 = p16581->a27733; /* x156307 stalin.sc:21657:759077 */ t38980 = p16581->a27735; /* x156304 stalin.sc:21657:759050 */ t38975 = f14428(t38978, t38979, t38980); /* x156309 stalin.sc:21657:759081 */ t38976 = p16581->a27734; /* x156303 stalin.sc:21657:759044 */ t38977.tag = STRUCTURE_TYPE24753; t38977.value.structure_type24753 = t38975; t38965 = f13591(t38977, t38976); l5708: l5705: /* x156211 stalin.sc:21640:758227 */ return f14709(t38964, t38965); l5695: /* x156628 */ /* x156320 stalin.sc:21658:759092 */ /* x156319 stalin.sc:21658:759103 */ t38853 = p16570->a27735; /* x156318 stalin.sc:21658:759093 */ if (f14024(t38853)==FALSE_TYPE) goto l5697; /* x156381 */ /* x156380 */ t38941 = p16570; p16582 = t38941; /* x156379 stalin.sc:21663:759357 */ /* x156322 stalin.sc:21664:759375 */ t38942 = p16582->a27722; /* x156378 stalin.sc:21665:759381 */ /* x156324 stalin.sc:21666:759393 */ /* x156377 stalin.sc:21667:759411 */ /* x156335 stalin.sc:21667:759417 */ /* x156333 stalin.sc:21667:759423 */ /* x156331 stalin.sc:21667:759440 */ /* x156329 stalin.sc:21667:759447 */ t38953 = p16582->a27732; /* x156330 stalin.sc:21667:759450 */ t38954 = p16582->a27733; /* x156328 stalin.sc:21667:759441 */ t38951 = f14478(t38953, t38954); /* x156332 stalin.sc:21667:759454 */ t38952 = p16582->a27735; /* x156327 stalin.sc:21667:759424 */ t38948 = f14422(t38951, t38952); /* x156334 stalin.sc:21667:759458 */ t38949 = p16582->a27734; /* x156326 stalin.sc:21667:759418 */ t38950.tag = STRUCTURE_TYPE24753; t38950.value.structure_type24753 = t38948; t38946 = f13591(t38950, t38949); /* x156376 stalin.sc:21668:759466 */ /* x156375 stalin.sc:21671:759591 */ /* x156373 stalin.sc:21672:759605 */ /* x156374 stalin.sc:21673:759657 */ t38960 = a27738; /* x156361 stalin.sc:21671:759592 */ t38961 = NATIVE_PROCEDURE_TYPE20946; t38962 = *((struct w49 *)(&t38960)); t38956 = f1218(t38961, t38962); /* x156360 stalin.sc:21668:759471 */ t38955 = p16582; /* x156336 stalin.sc:21668:759467 */ t38957.tag = NATIVE_PROCEDURE_TYPE20947; t38957.value.native_procedure_type20947 = t38955; t38958 = *((struct w49 *)(&t38956)); t38959 = (struct structure_type24753 *)NULL_TYPE; t38947 = f27731(t38957, t38958, t38959); /* x268274 stalin.sc:21667:759412 */ t38944 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t38944==NULL) {backtrace("stalin.sc", 21667, 759411); out_of_memory_error();} t38944->s0.tag = STRUCTURE_TYPE24753; t38944->s0.value.structure_type24753 = t38946; /* MOVE: branching squeezed to general */ if (t38947>=((struct structure_type24753 *)VALUE_OFFSET)) {t38944->s1.tag = STRUCTURE_TYPE24753; t38944->s1.value.structure_type24753 = t38947;} else t38944->s1.tag = (unsigned)t38947; /* x268275 stalin.sc:21665:759382 */ t38945 = t38944; t38943 = f13556(t38945); /* x156321 stalin.sc:21663:759358 */ return f14709(t38942, t38943); l5697: /* x156627 */ /* x156626 */ t38854 = p16570; p16586 = t38854; /* x156625 stalin.sc:21675:759677 */ /* x156396 stalin.sc:21675:759681 */ /* x156395 stalin.sc:21675:759737 */ t38855 = a27738; /* x156394 stalin.sc:21675:759688 */ /* x156382 stalin.sc:21675:759682 */ t38856.tag = NATIVE_PROCEDURE_TYPE20926; t38857 = *((struct w49 *)(&t38855)); t38858 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t38856, t38857, t38858)==FALSE_TYPE) goto l5699; /* x156409 stalin.sc:21679:759918 */ /* x156398 stalin.sc:21679:759932 */ t38933 = p16586->a27722; /* x156408 stalin.sc:21679:759934 */ /* x156403 stalin.sc:21679:759940 */ /* x156401 stalin.sc:21679:759947 */ t38937 = p16586->a27732; /* x156402 stalin.sc:21679:759950 */ t38938 = p16586->a27733; /* x156400 stalin.sc:21679:759941 */ t38935 = f14478(t38937, t38938); /* x156407 stalin.sc:21679:759954 */ /* x156405 stalin.sc:21679:759961 */ t38939 = p16586->a27734; /* x156406 stalin.sc:21679:759964 */ t38940 = p16586->a27735; /* x156404 stalin.sc:21679:759955 */ t38936 = f14478(t38939, t38940); /* x156399 stalin.sc:21679:759935 */ t38934 = f13591(t38935, t38936); /* x156397 stalin.sc:21679:759919 */ return f14709(t38933, t38934); l5699: /* x156624 stalin.sc:21680:759977 */ /* x156420 stalin.sc:21680:759981 */ /* x156410 stalin.sc:21680:759986 */ if (a684==FALSE_TYPE) goto l5701; /* x156418 */ /* x156414 stalin.sc:21681:760013 */ /* x156413 stalin.sc:21681:760028 */ t38861 = p16586->a27733; /* x156412 stalin.sc:21681:760014 */ t38859 = f14154(t38861); /* x156417 stalin.sc:21681:760032 */ /* x156416 stalin.sc:21681:760047 */ t38862 = p16586->a27735; /* x156415 stalin.sc:21681:760033 */ t38860 = f14154(t38862); /* x268273 stalin.sc:21681:760011 */ switch (t38859.tag) {case FIXNUM_TYPE: switch (t38860.tag) {case FIXNUM_TYPE: if (!((t38859.value.fixnum_type)==(t38860.value.fixnum_type))) goto l5701; break; case FLONUM_TYPE: if (!((t38859.value.fixnum_type)==(t38860.value.flonum_type))) goto l5701; break; default: backtrace_internal("[inside top level 16586]"); eql_error();} break; case FLONUM_TYPE: switch (t38860.tag) {case FIXNUM_TYPE: if (!((t38859.value.flonum_type)==(t38860.value.fixnum_type))) goto l5701; break; case FLONUM_TYPE: if (!((t38859.value.flonum_type)==(t38860.value.flonum_type))) goto l5701; break; default: backtrace_internal("[inside top level 16586]"); eql_error();} break; default: backtrace_internal("[inside top level 16586]"); eql_error();} /* x156555 stalin.sc:21682:760057 */ /* x156554 stalin.sc:21683:760075 */ /* x156533 stalin.sc:21683:760083 */ /* x156552 stalin.sc:21684:760093 */ /* x156551 stalin.sc:21685:760119 */ /* x156549 stalin.sc:21686:760138 */ /* x156550 stalin.sc:21689:760222 */ t38931 = p16586->a27733; /* x156536 stalin.sc:21685:760120 */ t38932.tag = NATIVE_PROCEDURE_TYPE20930; t38927 = f8172(t38932, t38931); /* x156535 stalin.sc:21684:760098 */ /* x156534 stalin.sc:21684:760094 */ t38928.tag = NATIVE_PROCEDURE_TYPE6839; t38929 = *((struct w49 *)(&t38927)); t38930 = (struct structure_type24753 *)NULL_TYPE; t38923 = f27731(t38928, t38929, t38930); /* x156553 stalin.sc:21692:760329 */ /* x156532 stalin.sc:21683:760076 */ t38924 = NATIVE_PROCEDURE_TYPE416; /* MOVE: branching squeezed to general */ if (t38923>=((struct structure_type24753 *)VALUE_OFFSET)) {t38925.tag = STRUCTURE_TYPE24753; t38925.value.structure_type24753 = t38923;} else t38925.tag = (unsigned)t38923; t38926.tag = FALSE_TYPE; t38889 = f1006(t38924, t38925, t38926); /* x156531 */ t38888 = p16586; p16589 = t38888; a27780 = t38889; /* x156530 */ /* x156529 stalin.sc:21693:760351 */ /* x156527 stalin.sc:21693:760361 */ t38921 = a27780; /* x156528 stalin.sc:21693:760366 */ t38922 = a1233; /* x268265 stalin.sc:21693:760352 */ switch (t38921.tag) {case FIXNUM_TYPE: switch (t38922.tag) {case FIXNUM_TYPE: t38891.tag = FIXNUM_TYPE; t38891.value.fixnum_type = (t38921.value.fixnum_type)/(t38922.value.fixnum_type); break; case FLONUM_TYPE: if ((t38922.value.flonum_type)!=rint(t38922.value.flonum_type)) {backtrace("stalin.sc", 21693, 760351); quotient2_error();} t38891.tag = FLONUM_TYPE; t38891.value.flonum_type = (t38921.value.fixnum_type)/((int)(t38922.value.flonum_type)); break; default: backtrace("stalin.sc", 21693, 760351); quotient2_error();} break; case FLONUM_TYPE: switch (t38922.tag) {case FIXNUM_TYPE: if ((t38921.value.flonum_type)!=rint(t38921.value.flonum_type)) {backtrace("stalin.sc", 21693, 760351); quotient1_error();} t38891.tag = FLONUM_TYPE; t38891.value.flonum_type = ((int)(t38921.value.flonum_type))/(t38922.value.fixnum_type); break; case FLONUM_TYPE: if ((t38921.value.flonum_type)!=rint(t38921.value.flonum_type)) {backtrace("stalin.sc", 21693, 760351); quotient1_error();} if ((t38922.value.flonum_type)!=rint(t38922.value.flonum_type)) {backtrace("stalin.sc", 21693, 760351); quotient2_error();} t38891.tag = FLONUM_TYPE; t38891.value.flonum_type = ((int)(t38921.value.flonum_type))/((int)(t38922.value.flonum_type)); break; default: backtrace("stalin.sc", 21693, 760351); quotient2_error();} break; default: backtrace("stalin.sc", 21693, 760351); quotient1_error();} /* x156525 */ t38890 = p16589; p16590 = t38890; a27781 = t38891; e16590 = (struct p16590 *)GC_malloc(sizeof(struct p16590)); if (e16590==NULL) {backtrace_internal("[inside top level 16589]"); out_of_memory_error();} e16590->p16486 = p16590; e16590->a27781 = a27781; /* x156524 */ /* x156523 stalin.sc:21694:760397 */ /* x156521 stalin.sc:21694:760408 */ t38919 = a27780; /* x156522 stalin.sc:21694:760413 */ t38920 = a1233; /* x268266 stalin.sc:21694:760398 */ switch (t38919.tag) {case FIXNUM_TYPE: switch (t38920.tag) {case FIXNUM_TYPE: t38893.tag = FIXNUM_TYPE; t38893.value.fixnum_type = (t38919.value.fixnum_type)%(t38920.value.fixnum_type); break; case FLONUM_TYPE: if ((t38920.value.flonum_type)!=rint(t38920.value.flonum_type)) {backtrace("stalin.sc", 21694, 760397); remainder2_error();} t38893.tag = FLONUM_TYPE; t38893.value.flonum_type = (t38919.value.fixnum_type)%((int)(t38920.value.flonum_type)); break; default: backtrace("stalin.sc", 21694, 760397); remainder2_error();} break; case FLONUM_TYPE: switch (t38920.tag) {case FIXNUM_TYPE: if ((t38919.value.flonum_type)!=rint(t38919.value.flonum_type)) {backtrace("stalin.sc", 21694, 760397); remainder1_error();} t38893.tag = FLONUM_TYPE; t38893.value.flonum_type = ((int)(t38919.value.flonum_type))%(t38920.value.fixnum_type); break; case FLONUM_TYPE: if ((t38919.value.flonum_type)!=rint(t38919.value.flonum_type)) {backtrace("stalin.sc", 21694, 760397); remainder1_error();} if ((t38920.value.flonum_type)!=rint(t38920.value.flonum_type)) {backtrace("stalin.sc", 21694, 760397); remainder2_error();} t38893.tag = FLONUM_TYPE; t38893.value.flonum_type = ((int)(t38919.value.flonum_type))%((int)(t38920.value.flonum_type)); break; default: backtrace("stalin.sc", 21694, 760397); remainder2_error();} break; default: backtrace("stalin.sc", 21694, 760397); remainder1_error();} /* x156519 */ t38892 = e16590; p16591 = t38892; a27782 = t38893; /* x156518 */ /* x156517 */ t38894 = p16591; p16592 = t38894; /* x156516 stalin.sc:21696:760483 */ /* x156422 stalin.sc:21697:760503 */ t38895 = p16592->p16486->a27722; /* x156515 stalin.sc:21698:760511 */ /* x156424 stalin.sc:21699:760525 */ /* x156514 stalin.sc:21700:760537 */ /* x156435 stalin.sc:21701:760551 */ /* x156430 stalin.sc:21701:760557 */ /* x156428 stalin.sc:21701:760564 */ t38903 = p16592->p16486->a27732; /* x156429 stalin.sc:21701:760567 */ t38904 = p16592->p16486->a27733; /* x156427 stalin.sc:21701:760558 */ t38901 = f14478(t38903, t38904); /* x156434 stalin.sc:21701:760571 */ /* x156432 stalin.sc:21701:760578 */ t38905 = p16592->p16486->a27734; /* x156433 stalin.sc:21701:760581 */ t38906 = p16592->p16486->a27735; /* x156431 stalin.sc:21701:760572 */ t38902 = f14478(t38905, t38906); /* x156426 stalin.sc:21701:760552 */ t38899 = f13591(t38901, t38902); /* x156513 stalin.sc:21702:760594 */ /* x156512 stalin.sc:21711:760870 */ /* x156510 stalin.sc:21711:760877 */ t38915 = p16592; /* x156511 stalin.sc:21720:761193 */ t38916 = a27782; /* x156469 stalin.sc:21711:760871 */ t38917.tag = NATIVE_PROCEDURE_TYPE20935; t38917.value.native_procedure_type20935 = t38915; t38918 = *((struct w49 *)(&t38916)); t38908 = f1149(t38917, t38918); /* x156468 stalin.sc:21703:760611 */ /* x156466 stalin.sc:21703:760618 */ t38911 = p16592->p16486; /* x156467 stalin.sc:21710:760848 */ t38912 = p16592->a27781; /* x156437 stalin.sc:21703:760612 */ t38913.tag = NATIVE_PROCEDURE_TYPE20936; t38913.value.native_procedure_type20936 = t38911; t38914 = *((struct w49 *)(&t38912)); t38907 = f1149(t38913, t38914); /* x156436 stalin.sc:21702:760595 */ t38910.tag = STRUCTURE_TYPE24753; t38910.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t38910.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21702, 760594); out_of_memory_error();} t38910.value.structure_type24753->s0 = *((struct w49 *)(&t38908)); t38910.value.structure_type24753->s1.tag = NULL_TYPE; t38909 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t38909==NULL) {backtrace("stalin.sc", 21702, 760594); out_of_memory_error();} t38909->s0 = *((struct w49 *)(&t38907)); t38909->s1 = t38910; t38900 = f26254(t38909); /* x268271 stalin.sc:21700:760538 */ t38897 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t38897==NULL) {backtrace("stalin.sc", 21700, 760537); out_of_memory_error();} t38897->s0.tag = STRUCTURE_TYPE24753; t38897->s0.value.structure_type24753 = t38899; t38897->s1 = t38900; /* x268272 stalin.sc:21698:760512 */ t38898 = t38897; t38896 = f13564(t38898); /* x156421 stalin.sc:21696:760484 */ return f14709(t38895, t38896); l5701: /* x156623 stalin.sc:21721:761213 */ /* x156622 stalin.sc:21723:761286 */ /* x156570 stalin.sc:21724:761298 */ /* x156565 stalin.sc:21724:761304 */ /* x156563 stalin.sc:21724:761311 */ t38875 = p16586->a27732; /* x156564 stalin.sc:21724:761314 */ t38876 = p16586->a27733; /* x156562 stalin.sc:21724:761305 */ t38873 = f14478(t38875, t38876); /* x156569 stalin.sc:21724:761318 */ /* x156567 stalin.sc:21724:761325 */ t38877 = p16586->a27734; /* x156568 stalin.sc:21724:761328 */ t38878 = p16586->a27735; /* x156566 stalin.sc:21724:761319 */ t38874 = f14478(t38877, t38878); /* x156561 stalin.sc:21724:761299 */ t38869 = f13591(t38873, t38874); /* x156617 stalin.sc:21725:761339 */ /* x156584 stalin.sc:21726:761368 */ /* x156585 stalin.sc:21728:761448 */ t38879 = p16586->a27733; /* x156586 stalin.sc:21729:761458 */ t38880 = p16586->a27722; /* x156587 stalin.sc:21730:761467 */ t38881 = p16586->a27732; /* x156612 stalin.sc:21731:761477 */ t38882 = p16586; /* x156616 stalin.sc:21738:761644 */ t38883 = p16586; /* x156571 stalin.sc:21725:761340 */ t38884 = (struct p7717 *)NATIVE_PROCEDURE_TYPE20929; t38885 = (unsigned)t38882; t38886 = (unsigned)t38883; t38870 = f14703(t38884, t38879, t38880, t38881, t38885, t38886); /* x156620 stalin.sc:21739:761681 */ /* x156619 stalin.sc:21739:761695 */ t38887 = p16586->a27722; /* x156618 stalin.sc:21739:761682 */ t38871 = f14708(t38887); /* x156621 stalin.sc:21740:761704 */ /* x156560 stalin.sc:21723:761287 */ t38872 = FALSE_TYPE; t38864 = f13672(t38869, t38870, t38871, t38872); /* x156559 stalin.sc:21722:761235 */ /* x156558 stalin.sc:21722:761243 */ t38868 = "EQ: dispatching general to general"; /* x156557 stalin.sc:21722:761236 */ t38863 = f13634(t38868); /* x156556 stalin.sc:21721:761214 */ t38867.tag = STRUCTURE_TYPE24753; t38867.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t38867.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21721, 761213); out_of_memory_error();} t38867.value.structure_type24753->s0 = t38864; t38867.value.structure_type24753->s1.tag = NULL_TYPE; a41874 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41874==NULL) {backtrace("stalin.sc", 21721, 761213); out_of_memory_error();} a41874->s0 = t38863; a41874->s1 = t38867; /* x301608 stalin.sc:14400:506485 */ /* x301607 stalin.sc:14400:506503 */ t38865 = a41874; /* x301606 stalin.sc:14400:506486 */ t38866.tag = STRUCTURE_TYPE24753; t38866.value.structure_type24753 = t38865; return f13492(t38866); case NATIVE_PROCEDURE_TYPE6573: a27670 = t37841; /* x154567 stalin.sc:21255:742779 */ /* x154566 stalin.sc:21255:742803 */ /* x154565 stalin.sc:21255:742780 */ t39629 = a27670; t39630 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7432; return f15830(t39629, t39630); case NATIVE_PROCEDURE_TYPE6579: a27625 = t37841; /* x154502 stalin.sc:21242:742327 */ /* x154501 stalin.sc:21242:742351 */ /* x154500 stalin.sc:21242:742328 */ t39631 = a27625; t39632 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7433; return f15830(t39631, t39632); case NATIVE_PROCEDURE_TYPE6585: a27571 = t37834; a27572 = t37835; a27573 = t37836; a27581 = t37844; a27582 = t37845; a27583 = t37846; a27584 = t37847; e16431 = (struct p16431 *)GC_malloc(sizeof(struct p16431)); if (e16431==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16431->a27571 = a27571; e16431->a27572 = a27572; e16431->a27573 = a27573; e16431->a27581 = a27581; e16431->a27582 = a27582; e16431->a27583 = a27583; e16431->a27584 = a27584; /* x154437 stalin.sc:21210:741335 */ /* x154381 stalin.sc:21211:741350 */ /* x154380 stalin.sc:21211:741373 */ /* x154379 stalin.sc:21211:741380 */ /* x154378 stalin.sc:21211:741416 */ t39642 = e16431->a27573; /* x154377 stalin.sc:21211:741381 */ a38167 = t39642; /* x285337 */ /* x285336 */ t39643 = a38167; /* x285335 */ if (!((t39643.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33084]"); structure_ref_error();} t39640 = t39643.value.structure_type27753->s1; /* x154376 stalin.sc:21211:741374 */ a35899 = t39640; /* x274953 */ /* x274952 */ t39641 = a35899; /* x274951 */ if (!((t39641.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30048]"); structure_ref_error();} t39639 = t39641.value.structure_type24753->s0; /* x154375 stalin.sc:21211:741351 */ t39633 = f7717(t39639); /* x154382 stalin.sc:21212:741424 */ t39634 = e16431->a27582; /* x154383 stalin.sc:21213:741429 */ t39635 = e16431->a27571; /* x154384 stalin.sc:21214:741433 */ t39636 = e16431->a27581; /* x154430 stalin.sc:21215:741438 */ t39637 = e16431; /* x154436 stalin.sc:21229:741875 */ t39638 = e16431; /* x154374 stalin.sc:21210:741336 */ b26111 = ((unsigned)t39633)+2; b26112 = t39634; b26113 = t39635; b26114 = t39636; b26115.tag = NATIVE_PROCEDURE_TYPE20914; b26115.value.native_procedure_type20914 = t39637; b26116.tag = NATIVE_PROCEDURE_TYPE20913; b26116.value.native_procedure_type20913 = t39638; return f14692(); case NATIVE_PROCEDURE_TYPE6591: a27523 = t37834; a27524 = t37835; a27525 = t37836; a27533 = t37844; a27534 = t37845; e16415 = (struct p16415 *)GC_malloc(sizeof(struct p16415)); if (e16415==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16415->a27523 = a27523; e16415->a27524 = a27524; e16415->a27525 = a27525; e16415->a27533 = a27533; e16415->a27534 = a27534; /* x154238 stalin.sc:21159:739794 */ /* x154204 stalin.sc:21160:739809 */ /* x154203 stalin.sc:21160:739832 */ /* x154202 stalin.sc:21160:739839 */ /* x154201 stalin.sc:21160:739875 */ t39653 = e16415->a27525; /* x154200 stalin.sc:21160:739840 */ a38165 = t39653; /* x285329 */ /* x285328 */ t39654 = a38165; /* x285327 */ if (!((t39654.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33082]"); structure_ref_error();} t39651 = t39654.value.structure_type27753->s1; /* x154199 stalin.sc:21160:739833 */ a35898 = t39651; /* x274949 */ /* x274948 */ t39652 = a35898; /* x274947 */ if (!((t39652.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30047]"); structure_ref_error();} t39650 = t39652.value.structure_type24753->s0; /* x154198 stalin.sc:21160:739810 */ t39644 = f7717(t39650); /* x154205 stalin.sc:21161:739883 */ t39645 = e16415->a27534; /* x154206 stalin.sc:21162:739888 */ t39646 = e16415->a27523; /* x154207 stalin.sc:21163:739892 */ t39647 = e16415->a27533; /* x154231 stalin.sc:21164:739897 */ t39648 = e16415; /* x154237 stalin.sc:21170:740103 */ t39649 = e16415; /* x154197 stalin.sc:21159:739795 */ b26111 = ((unsigned)t39644)+2; b26112 = t39645; b26113 = t39646; b26114 = t39647; b26115.tag = NATIVE_PROCEDURE_TYPE20916; b26115.value.native_procedure_type20916 = t39648; b26116.tag = NATIVE_PROCEDURE_TYPE20915; b26116.value.native_procedure_type20915 = t39649; return f14692(); case NATIVE_PROCEDURE_TYPE6597: a27470 = t37834; a27471 = t37835; a27472 = t37836; a27473 = t37837; a27474 = t37838; e16391 = (struct p16391 *)GC_malloc(sizeof(struct p16391)); if (e16391==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16391->a27471 = a27471; e16391->a27472 = a27472; /* x154065 stalin.sc:21094:737793 */ /* x153941 stalin.sc:21095:737802 */ /* x153940 stalin.sc:21095:737812 */ t39655 = a27470; /* x153939 stalin.sc:21095:737803 */ /* MOVE: branching squeezed to general */ if (t39655>=((struct structure_type27501 *)VALUE_OFFSET)) {t39656.tag = STRUCTURE_TYPE27501; t39656.value.structure_type27501 = t39655;} else t39656.tag = (unsigned)t39655; if (f7031(t39656)==FALSE_TYPE) goto l5840; /* x153945 */ /* x153944 */ /* x153943 stalin.sc:21095:737815 */ /* x153942 stalin.sc:21095:737816 */ /* x276717 stalin.sc:14693:514793 */ r15827.tag = STRING_TYPE; r15827.value.string_type = ""; return r15827; l5840: /* x154064 */ /* x153948 stalin.sc:21096:737828 */ /* x153947 stalin.sc:21096:737841 */ t39657 = a27470; /* x153946 stalin.sc:21096:737829 */ /* MOVE: branching squeezed to general */ if (t39657>=((struct structure_type27501 *)VALUE_OFFSET)) {t39658.tag = STRUCTURE_TYPE27501; t39658.value.structure_type27501 = t39657;} else t39658.tag = (unsigned)t39657; if (f7032(t39658)==FALSE_TYPE) goto l5842; /* x153953 */ /* x153952 */ /* x153951 stalin.sc:21096:737844 */ /* x153950 stalin.sc:21096:737857 */ t39717 = a27470; /* x153949 stalin.sc:21096:737845 */ return f14707(t39717); l5842: /* x154063 */ /* x153963 stalin.sc:21097:737864 */ /* x153956 stalin.sc:21097:737869 */ /* x153955 stalin.sc:21097:737878 */ t39659 = a27470; /* x153954 stalin.sc:21097:737870 */ /* MOVE: branching squeezed to general */ if (t39659>=((struct structure_type27501 *)VALUE_OFFSET)) {t39660.tag = STRUCTURE_TYPE27501; t39660.value.structure_type27501 = t39659;} else t39660.tag = (unsigned)t39659; if (f7030(t39660)==FALSE_TYPE) goto l5844; /* x153961 */ /* x153960 stalin.sc:21097:737886 */ /* x153959 stalin.sc:21097:737904 */ t39661 = a27470; /* x153958 stalin.sc:21097:737887 */ /* MOVE: branching squeezed to general */ if (t39661>=((struct structure_type27501 *)VALUE_OFFSET)) {t39662.tag = STRUCTURE_TYPE27501; t39662.value.structure_type27501 = t39661;} else t39662.tag = (unsigned)t39661; if (!(f15338(t39662)==FALSE_TYPE)) goto l5844; /* x153968 */ /* x153967 */ /* x153966 stalin.sc:21097:737909 */ /* x153965 stalin.sc:21097:737925 */ t39715 = a27470; /* x153964 stalin.sc:21097:737910 */ /* MOVE: branching squeezed to general */ if (t39715>=((struct structure_type27501 *)VALUE_OFFSET)) {t39716.tag = STRUCTURE_TYPE27501; t39716.value.structure_type27501 = t39715;} else t39716.tag = (unsigned)t39715; return f15342(t39716); l5844: /* x154062 */ /* x154061 */ t39663 = e16391; p16395 = t39663; /* x154060 stalin.sc:21099:737940 */ /* x154059 stalin.sc:21099:737950 */ /* x154058 stalin.sc:21099:737960 */ t39713 = a27470; /* x154057 stalin.sc:21099:737951 */ a38391 = t39713; /* x286233 */ /* x286232 */ t39714 = a38391; /* x286231 */ if (!(t39714>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-C[5769] 33308]"); structure_ref_error();} t39665 = t39714->s3; /* x154056 */ t39664 = p16395; p16396 = t39664; a27486 = t39665; e16396 = (struct p16396 *)GC_malloc(sizeof(struct p16396)); if (e16396==NULL) {backtrace_internal("[inside top level 16395]"); out_of_memory_error();} e16396->p16391 = p16396; e16396->a27486 = a27486; /* x154055 */ /* x154054 stalin.sc:21100:737970 */ /* x154053 stalin.sc:21100:737987 */ t39711 = a27470; /* x154052 stalin.sc:21100:737971 */ a38423 = t39711; /* x286361 */ /* x286360 */ t39712 = a38423; /* x286359 */ if (!(t39712>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33340]"); structure_ref_error();} t39667 = t39712->s2; /* x154051 */ t39666 = e16396; p16397 = t39666; a27487 = t39667; e16397 = (struct p16397 *)GC_malloc(sizeof(struct p16397)); if (e16397==NULL) {backtrace_internal("[inside top level 16396]"); out_of_memory_error();} e16397->p16396 = p16397; e16397->a27487 = a27487; /* x154050 */ /* x154049 stalin.sc:21101:737997 */ /* x154047 stalin.sc:21102:738021 */ t39708 = p16397->p16391; /* x154048 stalin.sc:21108:738231 */ t39709 = e16397->a27487; /* x154027 stalin.sc:21101:737998 */ t39710.tag = NATIVE_PROCEDURE_TYPE20903; t39710.value.native_procedure_type20903 = t39708; t39669 = f8157(t39710, t39709); /* x154026 */ t39668 = e16397; p16398 = t39668; a27488 = t39669; e16398 = (struct p16398 *)GC_malloc(sizeof(struct p16398)); if (e16398==NULL) {backtrace_internal("[inside top level 16397]"); out_of_memory_error();} e16398->p16397 = p16398; e16398->a27488 = a27488; /* x154025 */ /* x154024 */ t39670 = e16398; p16399 = t39670; /* x154023 stalin.sc:21109:738240 */ /* x153971 stalin.sc:21109:738244 */ /* x153970 stalin.sc:21109:738257 */ t39671 = p16399->a27488; /* x153969 stalin.sc:21109:738245 */ if (f8793(t39671)==FALSE_TYPE) goto l5847; /* x153976 stalin.sc:21110:738261 */ /* x153973 stalin.sc:21110:738273 */ t39704 = a27470; /* x153974 stalin.sc:21110:738275 */ t39705 = q224; /* x153975 stalin.sc:21110:738283 */ t39706 = p16399->a27488; /* x153972 stalin.sc:21110:738262 */ t39707.tag = EXTERNAL_SYMBOL_TYPE; t39707.value.external_symbol_type = t39705; return f15499(t39704, t39707, t39706); l5847: /* x154022 stalin.sc:21111:738287 */ /* x154021 stalin.sc:21125:738634 */ /* x154020 stalin.sc:21125:738650 */ t39702 = a27470; /* x154019 stalin.sc:21125:738635 */ /* MOVE: branching squeezed to general */ if (t39702>=((struct structure_type27501 *)VALUE_OFFSET)) {t39703.tag = STRUCTURE_TYPE27501; t39703.value.structure_type27501 = t39702;} else t39703.tag = (unsigned)t39702; t39674 = f15342(t39703); /* x154018 stalin.sc:21113:738345 */ /* x154017 stalin.sc:21114:738366 */ /* x154016 stalin.sc:21124:738627 */ t39689 = a27474; /* x154015 stalin.sc:21123:738616 */ t39688 = a27473; /* x154014 stalin.sc:21122:738562 */ /* x154013 stalin.sc:21122:738573 */ /* x154012 stalin.sc:21122:738581 */ /* x154011 stalin.sc:21122:738603 */ t39700 = p16399->a27488; /* x154010 stalin.sc:21122:738582 */ a37653 = t39700; /* x283281 */ /* x283280 */ t39701 = a37653; /* x283279 */ if (!((t39701.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32570]"); structure_ref_error();} t39698 = t39701.value.structure_type27769->s1; /* x154009 stalin.sc:21122:738574 */ t39699 = *((struct w49 *)(&t39698)); t39697 = f26227(t39699); /* x154008 stalin.sc:21122:738563 */ t39687 = f1169(t39697); /* x154007 stalin.sc:21121:738529 */ /* x154006 stalin.sc:21121:738551 */ t39695 = p16399->a27488; /* x154005 stalin.sc:21121:738530 */ a37652 = t39695; /* x283277 */ /* x283276 */ t39696 = a37652; /* x283275 */ if (!((t39696.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32569]"); structure_ref_error();} t39686 = t39696.value.structure_type27769->s1; /* x154004 stalin.sc:21114:738371 */ t39685 = p16399; /* x153985 stalin.sc:21114:738367 */ t39690.tag = NATIVE_PROCEDURE_TYPE20906; t39690.value.native_procedure_type20906 = t39685; t39691 = *((struct w49 *)(&t39686)); t39694.tag = STRUCTURE_TYPE24753; t39694.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t39694.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21114, 738366); out_of_memory_error();} t39694.value.structure_type24753->s0 = t39689; t39694.value.structure_type24753->s1.tag = NULL_TYPE; t39693.tag = STRUCTURE_TYPE24753; t39693.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t39693.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21114, 738366); out_of_memory_error();} t39693.value.structure_type24753->s0 = t39688; t39693.value.structure_type24753->s1 = t39694; t39692 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t39692==NULL) {backtrace("stalin.sc", 21114, 738366); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t39687>=((struct structure_type24753 *)VALUE_OFFSET)) {t39692->s0.tag = STRUCTURE_TYPE24753; t39692->s0.value.structure_type24753 = t39687;} else t39692->s0.tag = (unsigned)t39687; t39692->s1 = t39693; t39683 = f27731(t39690, t39691, t39692); /* x153984 stalin.sc:21113:738346 */ /* MOVE: branching squeezed to general */ if (t39683>=((struct structure_type24753 *)VALUE_OFFSET)) {t39684.tag = STRUCTURE_TYPE24753; t39684.value.structure_type24753 = t39683;} else t39684.tag = (unsigned)t39683; t39673 = f13492(t39684); /* x153983 stalin.sc:21112:738306 */ /* x153979 stalin.sc:21112:738334 */ t39679 = p16399->p16397->p16396->a27486; /* x153980 stalin.sc:21112:738336 */ t39680 = p16399->a27488; /* x153981 stalin.sc:21112:738338 */ t39681 = p16399->p16397->a27487; /* x153982 stalin.sc:21112:738340 */ t39682 = p16399->p16397->p16396->p16391->a27471; /* x153978 stalin.sc:21112:738307 */ t39672 = f15610(t39679, t39680, t39681, t39682); /* x153977 stalin.sc:21111:738288 */ t39678.tag = STRUCTURE_TYPE24753; t39678.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t39678.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21111, 738287); out_of_memory_error();} t39678.value.structure_type24753->s0 = t39674; t39678.value.structure_type24753->s1.tag = NULL_TYPE; t39677.tag = STRUCTURE_TYPE24753; t39677.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t39677.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21111, 738287); out_of_memory_error();} t39677.value.structure_type24753->s0 = t39673; t39677.value.structure_type24753->s1 = t39678; a41823 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41823==NULL) {backtrace("stalin.sc", 21111, 738287); out_of_memory_error();} a41823->s0 = t39672; a41823->s1 = t39677; /* x301404 stalin.sc:14400:506485 */ /* x301403 stalin.sc:14400:506503 */ t39675 = a41823; /* x301402 stalin.sc:14400:506486 */ t39676.tag = STRUCTURE_TYPE24753; t39676.value.structure_type24753 = t39675; return f13492(t39676); default: a27420 = t37836; a27425 = t37841; /* x153788 stalin.sc:21056:736522 */ /* x153787 stalin.sc:21057:736548 */ /* x153786 stalin.sc:21057:736571 */ /* x153785 stalin.sc:21057:736578 */ /* x153784 stalin.sc:21057:736614 */ t39724 = a27420; /* x153783 stalin.sc:21057:736579 */ a38169 = t39724; /* x285345 */ /* x285344 */ t39725 = a38169; /* x285343 */ if (!((t39725.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33086]"); structure_ref_error();} t39722 = t39725.value.structure_type27753->s1; /* x153782 stalin.sc:21057:736572 */ a35910 = t39722; /* x274997 */ /* x274996 */ t39723 = a35910; /* x274995 */ if (!((t39723.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30059]"); structure_ref_error();} t39721 = t39723.value.structure_type24753->s0; /* x153781 stalin.sc:21057:736549 */ t39719 = f7717(t39721); /* x153780 stalin.sc:21056:736523 */ t39718 = a27425; t39720 = t39719; return f15830(t39718, t39720);} l5477: /* x147869 */ /* x147126 stalin.sc:19633:686543 */ /* x147125 stalin.sc:19633:686567 */ t37332 = a26965; /* x147124 stalin.sc:19633:686544 */ a38069 = t37332; /* x284945 */ /* x284944 */ t37333 = a38069; /* x284943 */ if (!((t37333.tag)==STRUCTURE_TYPE27756)) goto l5479; /* x147672 */ /* x147671 */ t37471 = e15827; p15833 = t37471; /* x147670 stalin.sc:19634:686574 */ /* x147669 stalin.sc:19634:686584 */ /* x147668 stalin.sc:19634:686608 */ /* x147667 stalin.sc:19634:686630 */ t37825 = a26963; /* x147666 stalin.sc:19634:686609 */ a36441 = t37825; /* x278433 */ /* x278432 */ t37826 = a36441; /* x278431 */ t37823 = t37826->s0; /* x147665 stalin.sc:19634:686585 */ a40051 = t37823; /* x292873 */ /* x292872 */ t37824 = a40051; /* x292871 */ if (!((t37824.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34968]"); structure_ref_error();} /* x147664 */ t37472 = p15833; p15834 = t37472; /* x147663 */ /* x147662 stalin.sc:19635:686642 */ /* x147660 stalin.sc:19635:686662 */ t37820 = a26965; /* x147661 stalin.sc:19635:686665 */ t37821 = a26963; /* x147659 stalin.sc:19635:686643 */ t37822 = t37821; t37475 = f9368(t37820, t37822); /* x147658 */ t37474 = p15834; p15835 = t37474; a26976 = t37475; /* x147657 */ /* x147656 stalin.sc:19636:686676 */ /* x147655 stalin.sc:19636:686700 */ t37818 = a26976; /* x147654 stalin.sc:19636:686677 */ a36672 = t37818; /* x279357 */ /* x279356 */ t37819 = a36672; /* x279355 */ if (!((t37819.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31589]"); structure_ref_error();} t37477 = t37819.value.structure_type27694->s1; /* x147653 */ t37476 = p15835; p15836 = t37476; a26977 = t37477; /* x147652 */ /* x147651 stalin.sc:19637:686712 */ /* x147650 stalin.sc:19637:686723 */ t37817 = a26976; /* x147649 stalin.sc:19637:686713 */ t37479 = f8987(t37817); /* x147648 */ t37478 = p15836; p15837 = t37478; a26978 = t37479; /* x147647 */ /* x147646 */ t37480 = p15837; p15838 = t37480; /* x147645 stalin.sc:19638:686733 */ /* x147131 stalin.sc:19639:686745 */ /* x147130 stalin.sc:19639:686750 */ /* x147129 stalin.sc:19639:686759 */ t37481 = a26976; /* x147128 stalin.sc:19639:686751 */ if (!((f8899(t37481).tag)==FALSE_TYPE)) goto l5518; /* x147135 */ /* x147134 */ /* x147133 stalin.sc:19643:686973 */ /* x147132 stalin.sc:19643:686974 */ /* x276527 stalin.sc:14693:514793 */ r15827.tag = STRING_TYPE; r15827.value.string_type = ""; return r15827; l5518: /* x147644 */ /* x147138 stalin.sc:19644:686989 */ /* x147137 stalin.sc:19644:686996 */ t37482 = a26976; /* x147136 stalin.sc:19644:686990 */ if (f8918(t37482)==FALSE_TYPE) goto l5520; /* x147143 */ /* x147142 */ t37814 = p15838; p15840 = t37814; /* x147141 stalin.sc:19644:687000 */ /* x147140 stalin.sc:19644:687016 */ t37815 = p15840->a26962; /* x147139 stalin.sc:19644:687001 */ /* MOVE: branching squeezed to general */ if (t37815>=((struct structure_type27501 *)VALUE_OFFSET)) {t37816.tag = STRUCTURE_TYPE27501; t37816.value.structure_type27501 = t37815;} else t37816.tag = (unsigned)t37815; return f15342(t37816); l5520: /* x147643 */ /* x147147 stalin.sc:19645:687026 */ /* x147145 stalin.sc:19645:687053 */ t37483 = a26963; /* x147146 stalin.sc:19645:687055 */ t37484 = a26976; /* x147144 stalin.sc:19645:687027 */ t37485.tag = STRUCTURE_TYPE27745; t37485.value.structure_type27745 = t37483; if (f8791(t37485, t37484)==FALSE_TYPE) goto l5522; /* x147182 */ /* x147181 */ t37786 = p15838; p15841 = t37786; /* x147180 stalin.sc:19646:687065 */ /* x147179 stalin.sc:19652:687270 */ /* x147178 stalin.sc:19652:687278 */ /* x147177 stalin.sc:19652:687283 */ t37813 = a26976; /* x147176 stalin.sc:19652:687279 */ t37811 = f14277(t37813); /* x147175 stalin.sc:19652:687271 */ t37812.tag = STRUCTURE_TYPE24753; t37812.value.structure_type24753 = t37811; t37789 = f13640(t37812); /* x147174 stalin.sc:19651:687233 */ /* x147166 stalin.sc:19651:687241 */ t37803 = a26976; /* x147167 stalin.sc:19651:687244 */ t37804 = a26963; /* x147168 stalin.sc:19651:687246 */ t37805 = p15841->a26969; /* x147169 stalin.sc:19651:687249 */ t37806 = p15841->a26970; /* x147170 stalin.sc:19651:687252 */ t37807 = a26971; /* x147171 stalin.sc:19651:687254 */ t37808 = a26972; /* x147172 stalin.sc:19651:687256 */ /* x147173 stalin.sc:19651:687259 */ t37809 = a26978; /* x147165 stalin.sc:19651:687234 */ t37810.tag = FALSE_TYPE; t37788 = f15800(t37803, t37804, t37805, t37806, t37807, t37808, t37810, t37809); /* x147164 stalin.sc:19648:687142 */ /* x147151 stalin.sc:19648:687146 */ /* x147150 stalin.sc:19648:687169 */ t37794 = a26976; /* x147149 stalin.sc:19648:687147 */ if ((f8897(t37794).tag)==FALSE_TYPE) goto l5578; /* x147161 stalin.sc:19649:687177 */ /* x147155 stalin.sc:19649:687183 */ /* x147154 stalin.sc:19649:687188 */ t37799 = a26976; /* x147153 stalin.sc:19649:687184 */ t37795 = f14281(t37799); /* x147160 stalin.sc:19649:687192 */ /* x147157 stalin.sc:19649:687201 */ t37800 = a26964; /* x147158 stalin.sc:19649:687204 */ t37801 = a26965; /* x147159 stalin.sc:19649:687207 */ t37802 = a26966; /* x147156 stalin.sc:19649:687193 */ t37796 = f14485(t37800, t37801, t37802); /* x147152 stalin.sc:19649:687178 */ t37797.tag = STRUCTURE_TYPE24753; t37797.value.structure_type24753 = t37795; t37798 = f13637(t37797, t37796); t37787.tag = STRUCTURE_TYPE24753; t37787.value.structure_type24753 = t37798; goto l5579; l5578: /* x147163 stalin.sc:19650:687216 */ /* x147162 stalin.sc:19650:687217 */ /* x276529 stalin.sc:14693:514793 */ t37787.tag = STRING_TYPE; t37787.value.string_type = ""; l5579: /* x147148 stalin.sc:19646:687066 */ t37793.tag = STRUCTURE_TYPE24753; t37793.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37793.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19646, 687065); out_of_memory_error();} t37793.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t37793.value.structure_type24753->s0.value.structure_type24753 = t37789; t37793.value.structure_type24753->s1.tag = NULL_TYPE; t37792.tag = STRUCTURE_TYPE24753; t37792.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37792.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19646, 687065); out_of_memory_error();} t37792.value.structure_type24753->s0 = t37788; t37792.value.structure_type24753->s1 = t37793; a41838 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41838==NULL) {backtrace("stalin.sc", 19646, 687065); out_of_memory_error();} a41838->s0 = *((struct w49 *)(&t37787)); a41838->s1 = t37792; /* x301464 stalin.sc:14400:506485 */ /* x301463 stalin.sc:14400:506503 */ t37790 = a41838; /* x301462 stalin.sc:14400:506486 */ t37791.tag = STRUCTURE_TYPE24753; t37791.value.structure_type24753 = t37790; return f13492(t37791); l5522: /* x147642 */ /* x147185 stalin.sc:19653:687296 */ /* x147184 stalin.sc:19653:687315 */ t37486 = a26976; /* x147183 stalin.sc:19653:687297 */ if (f8585(t37486)==FALSE_TYPE) goto l5524; /* x147271 */ /* x147270 */ t37717 = p15838; p15842 = t37717; /* x147269 stalin.sc:19654:687325 */ /* x147268 stalin.sc:19659:687477 */ /* x147267 stalin.sc:19670:687935 */ /* x147244 stalin.sc:19670:687939 */ /* x147243 stalin.sc:19670:687949 */ t37766 = a26976; /* x147242 stalin.sc:19670:687940 */ if (f15324(t37766)==FALSE_TYPE) goto l5575; /* x147260 stalin.sc:19671:687958 */ /* x147259 stalin.sc:19673:688059 */ /* x147258 stalin.sc:19673:688075 */ t37784 = p15842->a26962; /* x147257 stalin.sc:19673:688060 */ /* MOVE: branching squeezed to general */ if (t37784>=((struct structure_type27501 *)VALUE_OFFSET)) {t37785.tag = STRUCTURE_TYPE27501; t37785.value.structure_type27501 = t37784;} else t37785.tag = (unsigned)t37784; t37773 = f15342(t37785); /* x147256 stalin.sc:19672:688030 */ /* x147255 stalin.sc:19672:688047 */ t37783 = a26976; /* x147254 stalin.sc:19672:688031 */ t37772 = f15328(t37783); /* x147253 stalin.sc:19671:687975 */ /* x147249 stalin.sc:19671:687984 */ /* x147248 stalin.sc:19671:687997 */ t37780 = p15842->a26962; /* x147247 stalin.sc:19671:687985 */ t37778 = f15762(t37780); /* x147252 stalin.sc:19671:688000 */ /* x147251 stalin.sc:19671:688017 */ t37781 = a26977; /* x147250 stalin.sc:19671:688001 */ a39202 = t37781; /* x289477 */ /* x289476 */ t37782 = a39202; /* x289475 */ if (!((t37782.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34119]"); structure_ref_error();} t37779 = t37782.value.structure_type27698->s15; /* x147246 stalin.sc:19671:687976 */ t37771 = f15922(t37778, t37779); /* x147245 stalin.sc:19671:687959 */ t37777.tag = STRUCTURE_TYPE24753; t37777.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37777.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19671, 687958); out_of_memory_error();} t37777.value.structure_type24753->s0 = t37773; t37777.value.structure_type24753->s1.tag = NULL_TYPE; t37776.tag = STRUCTURE_TYPE24753; t37776.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37776.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19671, 687958); out_of_memory_error();} t37776.value.structure_type24753->s0 = t37772; t37776.value.structure_type24753->s1 = t37777; a41842 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41842==NULL) {backtrace("stalin.sc", 19671, 687958); out_of_memory_error();} a41842->s0 = t37771; a41842->s1 = t37776; /* x301480 stalin.sc:14400:506485 */ /* x301479 stalin.sc:14400:506503 */ t37774 = a41842; /* x301478 stalin.sc:14400:506486 */ t37775.tag = STRUCTURE_TYPE24753; t37775.value.structure_type24753 = t37774; t37745 = f13492(t37775); goto l5576; l5575: /* x147266 stalin.sc:19674:688084 */ /* x147262 stalin.sc:19674:688093 */ t37767 = p15842->a26962; /* x147265 stalin.sc:19674:688095 */ /* x147264 stalin.sc:19674:688112 */ t37769 = a26977; /* x147263 stalin.sc:19674:688096 */ a39203 = t37769; /* x289481 */ /* x289480 */ t37770 = a39203; /* x289479 */ if (!((t37770.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34120]"); structure_ref_error();} t37768 = t37770.value.structure_type27698->s15; /* x147261 stalin.sc:19674:688085 */ t37745 = f15922(t37767, t37768); l5576: /* x147241 stalin.sc:19666:687801 */ /* x147230 stalin.sc:19666:687805 */ /* x147229 stalin.sc:19666:687819 */ t37758 = a26976; /* x147228 stalin.sc:19666:687806 */ if (f8563(t37758)==FALSE_TYPE) goto l5572; /* x147238 stalin.sc:19667:687828 */ /* x147237 stalin.sc:19668:687889 */ /* x147236 stalin.sc:19668:687914 */ t37765 = a26976; /* x147235 stalin.sc:19668:687890 */ t37760 = f15718(t37765); /* x147234 stalin.sc:19667:687845 */ /* x147233 stalin.sc:19667:687877 */ t37764 = a26976; /* x147232 stalin.sc:19667:687846 */ t37759 = f15629(t37764); /* x147231 stalin.sc:19667:687829 */ t37763.tag = STRUCTURE_TYPE24753; t37763.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37763.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19667, 687828); out_of_memory_error();} t37763.value.structure_type24753->s0 = t37760; t37763.value.structure_type24753->s1.tag = NULL_TYPE; a41841 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41841==NULL) {backtrace("stalin.sc", 19667, 687828); out_of_memory_error();} a41841->s0 = t37759; a41841->s1 = t37763; /* x301476 stalin.sc:14400:506485 */ /* x301475 stalin.sc:14400:506503 */ t37761 = a41841; /* x301474 stalin.sc:14400:506486 */ t37762.tag = STRUCTURE_TYPE24753; t37762.value.structure_type24753 = t37761; t37744 = f13492(t37762); goto l5573; l5572: /* x147240 stalin.sc:19669:687924 */ /* x147239 stalin.sc:19669:687925 */ /* x276535 stalin.sc:14693:514793 */ t37744.tag = STRING_TYPE; t37744.value.string_type = ""; l5573: /* x147227 stalin.sc:19661:687527 */ /* x147219 stalin.sc:19661:687531 */ /* x147218 stalin.sc:19661:687552 */ t37752 = a26976; /* x147217 stalin.sc:19661:687532 */ if ((f8590(t37752).tag)==FALSE_TYPE) goto l5569; /* x147224 stalin.sc:19661:687556 */ /* x147223 stalin.sc:19661:687561 */ /* x147222 stalin.sc:19661:687566 */ t37757 = a26976; /* x147221 stalin.sc:19661:687562 */ t37753 = f14277(t37757); /* x147220 stalin.sc:19661:687557 */ a41274 = t37753; /* x299208 stalin.sc:14702:515041 */ /* x299207 stalin.sc:14702:515054 */ t37754 = a41274; /* x299206 stalin.sc:14702:515042 */ t37755.tag = STRUCTURE_TYPE24753; t37755.value.structure_type24753 = t37754; t37756 = f13515(t37755); t37743.tag = STRUCTURE_TYPE24753; t37743.value.structure_type24753 = t37756; goto l5570; l5569: /* x147226 stalin.sc:19661:687571 */ /* x147225 stalin.sc:19661:687572 */ /* x276533 stalin.sc:14693:514793 */ t37743.tag = STRING_TYPE; t37743.value.string_type = ""; l5570: /* x147216 stalin.sc:19660:687495 */ /* x147215 stalin.sc:19660:687522 */ t37751 = a26976; /* x147214 stalin.sc:19660:687496 */ t37742 = f15793(t37751); /* x147213 stalin.sc:19659:687478 */ t37750.tag = STRUCTURE_TYPE24753; t37750.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37750.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19659, 687477); out_of_memory_error();} t37750.value.structure_type24753->s0 = t37745; t37750.value.structure_type24753->s1.tag = NULL_TYPE; t37749.tag = STRUCTURE_TYPE24753; t37749.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37749.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19659, 687477); out_of_memory_error();} t37749.value.structure_type24753->s0 = t37744; t37749.value.structure_type24753->s1 = t37750; t37748.tag = STRUCTURE_TYPE24753; t37748.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37748.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19659, 687477); out_of_memory_error();} t37748.value.structure_type24753->s0 = *((struct w49 *)(&t37743)); t37748.value.structure_type24753->s1 = t37749; a41840 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41840==NULL) {backtrace("stalin.sc", 19659, 687477); out_of_memory_error();} a41840->s0 = t37742; a41840->s1 = t37748; /* x301472 stalin.sc:14400:506485 */ /* x301471 stalin.sc:14400:506503 */ t37746 = a41840; /* x301470 stalin.sc:14400:506486 */ t37747.tag = STRUCTURE_TYPE24753; t37747.value.structure_type24753 = t37746; t37720 = f13492(t37747); /* x147212 stalin.sc:19658:687440 */ /* x147204 stalin.sc:19658:687448 */ t37734 = a26976; /* x147205 stalin.sc:19658:687451 */ t37735 = a26963; /* x147206 stalin.sc:19658:687453 */ t37736 = p15842->a26969; /* x147207 stalin.sc:19658:687456 */ t37737 = p15842->a26970; /* x147208 stalin.sc:19658:687459 */ t37738 = a26971; /* x147209 stalin.sc:19658:687461 */ t37739 = a26972; /* x147210 stalin.sc:19658:687463 */ /* x147211 stalin.sc:19658:687466 */ t37740 = a26978; /* x147203 stalin.sc:19658:687441 */ t37741.tag = FALSE_TYPE; t37719 = f15800(t37734, t37735, t37736, t37737, t37738, t37739, t37741, t37740); /* x147202 stalin.sc:19655:687349 */ /* x147189 stalin.sc:19655:687353 */ /* x147188 stalin.sc:19655:687376 */ t37725 = a26976; /* x147187 stalin.sc:19655:687354 */ if ((f8897(t37725).tag)==FALSE_TYPE) goto l5566; /* x147199 stalin.sc:19656:687384 */ /* x147193 stalin.sc:19656:687390 */ /* x147192 stalin.sc:19656:687395 */ t37730 = a26976; /* x147191 stalin.sc:19656:687391 */ t37726 = f14281(t37730); /* x147198 stalin.sc:19656:687399 */ /* x147195 stalin.sc:19656:687408 */ t37731 = a26964; /* x147196 stalin.sc:19656:687411 */ t37732 = a26965; /* x147197 stalin.sc:19656:687414 */ t37733 = a26966; /* x147194 stalin.sc:19656:687400 */ t37727 = f14485(t37731, t37732, t37733); /* x147190 stalin.sc:19656:687385 */ t37728.tag = STRUCTURE_TYPE24753; t37728.value.structure_type24753 = t37726; t37729 = f13637(t37728, t37727); t37718.tag = STRUCTURE_TYPE24753; t37718.value.structure_type24753 = t37729; goto l5567; l5566: /* x147201 stalin.sc:19657:687423 */ /* x147200 stalin.sc:19657:687424 */ /* x276531 stalin.sc:14693:514793 */ t37718.tag = STRING_TYPE; t37718.value.string_type = ""; l5567: /* x147186 stalin.sc:19654:687326 */ t37724.tag = STRUCTURE_TYPE24753; t37724.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37724.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19654, 687325); out_of_memory_error();} t37724.value.structure_type24753->s0 = t37720; t37724.value.structure_type24753->s1.tag = NULL_TYPE; t37723.tag = STRUCTURE_TYPE24753; t37723.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37723.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19654, 687325); out_of_memory_error();} t37723.value.structure_type24753->s0 = t37719; t37723.value.structure_type24753->s1 = t37724; a41839 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41839==NULL) {backtrace("stalin.sc", 19654, 687325); out_of_memory_error();} a41839->s0 = *((struct w49 *)(&t37718)); a41839->s1 = t37723; /* x301468 stalin.sc:14400:506485 */ /* x301467 stalin.sc:14400:506503 */ t37721 = a41839; /* x301466 stalin.sc:14400:506486 */ t37722.tag = STRUCTURE_TYPE24753; t37722.value.structure_type24753 = t37721; return f13492(t37722); l5524: /* x147641 */ /* x147274 stalin.sc:19675:688127 */ /* x147273 stalin.sc:19675:688168 */ t37487 = a26976; /* x147272 stalin.sc:19675:688128 */ if (f8481(t37487)==FALSE_TYPE) goto l5526; /* x147412 */ /* x147411 */ t37618 = p15838; p15843 = t37618; /* x147410 stalin.sc:19676:688178 */ /* x147409 stalin.sc:19676:688188 */ /* x147408 stalin.sc:19676:688196 */ /* x147407 stalin.sc:19676:688201 */ t37716 = a26976; /* x147406 stalin.sc:19676:688197 */ t37713 = f14276(t37716); /* x147405 stalin.sc:19676:688189 */ t37714.tag = STRUCTURE_TYPE24753; t37714.value.structure_type24753 = t37713; t37715.tag = NULL_TYPE; t37620 = f13543(t37714, t37715); /* x147404 */ t37619 = p15843; p15844 = t37619; a26979 = t37620; /* x147403 */ /* x147402 */ t37621 = p15844; p15845 = t37621; /* x147401 stalin.sc:19677:688215 */ /* x147400 stalin.sc:19682:688351 */ /* x147308 stalin.sc:19682:688355 */ /* x147307 stalin.sc:19683:688383 */ /* x147306 stalin.sc:19683:688400 */ /* x147305 stalin.sc:19683:688424 */ t37649 = a26976; /* x147304 stalin.sc:19683:688401 */ a36670 = t37649; /* x279349 */ /* x279348 */ t37650 = a36670; /* x279347 */ if (!((t37650.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31587]"); structure_ref_error();} t37647 = t37650.value.structure_type27694->s1; /* x147303 stalin.sc:19683:688384 */ a39204 = t37647; /* x289485 */ /* x289484 */ t37648 = a39204; /* x289483 */ if (!((t37648.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34121]"); structure_ref_error();} t37646 = t37648.value.structure_type27698->s15; /* x147302 stalin.sc:19682:688356 */ if (f6936(t37646)==FALSE_TYPE) goto l5554; /* x147391 stalin.sc:19684:688435 */ /* x147332 stalin.sc:19684:688439 */ /* x147331 stalin.sc:19684:688443 */ /* x147330 stalin.sc:19684:688453 */ t37660 = p15845->a26962; /* x147329 stalin.sc:19684:688444 */ /* MOVE: branching squeezed to general */ if (t37660>=((struct structure_type27501 *)VALUE_OFFSET)) {t37661.tag = STRUCTURE_TYPE27501; t37661.value.structure_type27501 = t37660;} else t37661.tag = (unsigned)t37660; if (!(f7031(t37661)==FALSE_TYPE)) goto l5556; p15846 = p15845; /* x147326 */ /* x147325 stalin.sc:19685:688462 */ /* x147324 stalin.sc:19685:688475 */ t37662 = p15846->a26962; /* x147323 stalin.sc:19685:688463 */ /* MOVE: branching squeezed to general */ if (t37662>=((struct structure_type27501 *)VALUE_OFFSET)) {t37663.tag = STRUCTURE_TYPE27501; t37663.value.structure_type27501 = t37662;} else t37663.tag = (unsigned)t37662; if (!(f7032(t37663)==FALSE_TYPE)) goto l5556; p15847 = p15846; /* x147320 */ /* x147316 stalin.sc:19686:688489 */ /* x147315 stalin.sc:19686:688506 */ t37666 = p15847->a26962; /* x147314 stalin.sc:19686:688490 */ a38416 = t37666; /* x286333 */ /* x286332 */ t37667 = a38416; /* x286331 */ if (!(t37667>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33333]"); structure_ref_error();} t37664 = t37667->s2; /* x147319 stalin.sc:19686:688509 */ /* x147318 stalin.sc:19686:688526 */ t37668 = a26976; /* x147317 stalin.sc:19686:688510 */ t37665 = f8687(t37668); /* x268460 stalin.sc:19686:688485 */ /* EQ: dispatching general to general */ if (!((t37664.tag)==(t37665.tag))) goto l5557; switch (t37664.tag) {case FIXNUM_TYPE: if (!((t37664.value.fixnum_type)==(t37665.value.fixnum_type))) goto l5557; break; case FLONUM_TYPE: if (!((t37664.value.flonum_type)==(t37665.value.flonum_type))) goto l5557; break; case INPUT_PORT_TYPE: if (!((t37664.value.input_port_type)==(t37665.value.input_port_type))) goto l5557; break; case OUTPUT_PORT_TYPE: if (!((t37664.value.output_port_type)==(t37665.value.output_port_type))) goto l5557; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t37664.value.native_procedure_type15963)==(t37665.value.native_procedure_type15963))) goto l5557; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t37664.value.native_procedure_type19067)==(t37665.value.native_procedure_type19067))) goto l5557; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t37664.value.native_procedure_type19068)==(t37665.value.native_procedure_type19068))) goto l5557; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t37664.value.native_procedure_type22459)==(t37665.value.native_procedure_type22459))) goto l5557; break; case STRUCTURE_TYPE24753: if (!((t37664.value.structure_type24753)==(t37665.value.structure_type24753))) goto l5557; break; case STRUCTURE_TYPE24757: if (!((t37664.value.structure_type24757)==(t37665.value.structure_type24757))) goto l5557; break; case STRUCTURE_TYPE27501: if (!((t37664.value.structure_type27501)==(t37665.value.structure_type27501))) goto l5557; break; case STRUCTURE_TYPE27510: if (!((t37664.value.structure_type27510)==(t37665.value.structure_type27510))) goto l5557; break; case STRUCTURE_TYPE27621: if (!((t37664.value.structure_type27621)==(t37665.value.structure_type27621))) goto l5557; break; case STRUCTURE_TYPE27650: if (!((t37664.value.structure_type27650)==(t37665.value.structure_type27650))) goto l5557; break; case STRUCTURE_TYPE27669: if (!((t37664.value.structure_type27669)==(t37665.value.structure_type27669))) goto l5557; break; case STRUCTURE_TYPE27673: if (!((t37664.value.structure_type27673)==(t37665.value.structure_type27673))) goto l5557; break; case STRUCTURE_TYPE27692: if (!((t37664.value.structure_type27692)==(t37665.value.structure_type27692))) goto l5557; break; case STRUCTURE_TYPE27694: if (!((t37664.value.structure_type27694)==(t37665.value.structure_type27694))) goto l5557; break; case STRUCTURE_TYPE27698: if (!((t37664.value.structure_type27698)==(t37665.value.structure_type27698))) goto l5557; break; case STRUCTURE_TYPE27745: if (!((t37664.value.structure_type27745)==(t37665.value.structure_type27745))) goto l5557; break; case STRUCTURE_TYPE27747: if (!((t37664.value.structure_type27747)==(t37665.value.structure_type27747))) goto l5557; break; case STRUCTURE_TYPE27750: if (!((t37664.value.structure_type27750)==(t37665.value.structure_type27750))) goto l5557; break; case STRUCTURE_TYPE27753: if (!((t37664.value.structure_type27753)==(t37665.value.structure_type27753))) goto l5557; break; case STRUCTURE_TYPE27756: if (!((t37664.value.structure_type27756)==(t37665.value.structure_type27756))) goto l5557; break; case STRUCTURE_TYPE27761: if (!((t37664.value.structure_type27761)==(t37665.value.structure_type27761))) goto l5557; break; case STRUCTURE_TYPE27769: if (!((t37664.value.structure_type27769)==(t37665.value.structure_type27769))) goto l5557; break; case STRUCTURE_TYPE27776: if (!((t37664.value.structure_type27776)==(t37665.value.structure_type27776))) goto l5557; break; case STRUCTURE_TYPE27779: if (!((t37664.value.structure_type27779)==(t37665.value.structure_type27779))) goto l5557; break; case STRUCTURE_TYPE27858: if (!((t37664.value.structure_type27858)==(t37665.value.structure_type27858))) goto l5557; break; case STRING_TYPE: if (!((t37664.value.string_type)==(t37665.value.string_type))) goto l5557; break; case HEADED_VECTOR_TYPE27896: if (!((t37664.value.headed_vector_type27896)==(t37665.value.headed_vector_type27896))) goto l5557; break; case EXTERNAL_SYMBOL_TYPE: if (!((t37664.value.external_symbol_type)==(t37665.value.external_symbol_type))) goto l5557; break; case STRUCTURE_TYPE27908: if (!((t37664.value.structure_type27908)==(t37665.value.structure_type27908))) goto l5557; break; default:;} l5556: /* x147362 stalin.sc:19687:688534 */ /* x147340 stalin.sc:19687:688538 */ /* x147335 stalin.sc:19687:688543 */ /* x147334 stalin.sc:19687:688552 */ t37693 = p15845->a26962; /* x147333 stalin.sc:19687:688544 */ /* MOVE: branching squeezed to general */ if (t37693>=((struct structure_type27501 *)VALUE_OFFSET)) {t37694.tag = STRUCTURE_TYPE27501; t37694.value.structure_type27501 = t37693;} else t37694.tag = (unsigned)t37693; if (f7030(t37694)==FALSE_TYPE) goto l5562; /* x147338 */ /* x147337 stalin.sc:19687:688565 */ t37695 = p15845->a26962; /* x147336 stalin.sc:19687:688556 */ /* MOVE: branching squeezed to general */ if (t37695>=((struct structure_type27501 *)VALUE_OFFSET)) {t37696.tag = STRUCTURE_TYPE27501; t37696.value.structure_type27501 = t37695;} else t37696.tag = (unsigned)t37695; if (f15324(t37696)==FALSE_TYPE) goto l5562; /* x147354 stalin.sc:19688:688575 */ /* x147353 stalin.sc:19690:688659 */ /* x147352 stalin.sc:19690:688675 */ t37711 = p15845->a26962; /* x147351 stalin.sc:19690:688660 */ /* MOVE: branching squeezed to general */ if (t37711>=((struct structure_type27501 *)VALUE_OFFSET)) {t37712.tag = STRUCTURE_TYPE27501; t37712.value.structure_type27501 = t37711;} else t37712.tag = (unsigned)t37711; t37702 = f15342(t37712); /* x147350 stalin.sc:19689:688599 */ /* x147345 stalin.sc:19689:688612 */ /* x147344 stalin.sc:19689:688625 */ t37709 = p15845->a26962; /* x147343 stalin.sc:19689:688613 */ t37706 = f15762(t37709); /* x147346 stalin.sc:19689:688628 */ t37707 = a26979; /* x147349 stalin.sc:19689:688630 */ /* x147348 stalin.sc:19689:688647 */ t37710 = a26976; /* x147347 stalin.sc:19689:688631 */ t37708 = f8687(t37710); /* x147342 stalin.sc:19689:688600 */ t37701 = f15497(t37706, t37707, t37708); /* x147341 stalin.sc:19688:688576 */ t37705.tag = STRUCTURE_TYPE24753; t37705.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37705.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19688, 688575); out_of_memory_error();} t37705.value.structure_type24753->s0 = t37702; t37705.value.structure_type24753->s1.tag = NULL_TYPE; a41844 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41844==NULL) {backtrace("stalin.sc", 19688, 688575); out_of_memory_error();} a41844->s0 = t37701; a41844->s1 = t37705; /* x301488 stalin.sc:14400:506485 */ /* x301487 stalin.sc:14400:506503 */ t37703 = a41844; /* x301486 stalin.sc:14400:506486 */ t37704.tag = STRUCTURE_TYPE24753; t37704.value.structure_type24753 = t37703; t37624 = f13492(t37704); goto l5563; l5562: /* x147361 stalin.sc:19691:688685 */ /* x147356 stalin.sc:19691:688698 */ t37697 = p15845->a26962; /* x147357 stalin.sc:19691:688700 */ t37698 = a26979; /* x147360 stalin.sc:19691:688702 */ /* x147359 stalin.sc:19691:688719 */ t37700 = a26976; /* x147358 stalin.sc:19691:688703 */ t37699 = f8687(t37700); /* x147355 stalin.sc:19691:688686 */ t37624 = f15497(t37697, t37698, t37699); l5563: goto l5558; l5557: /* x147390 stalin.sc:19692:688727 */ /* x147389 stalin.sc:19692:688736 */ /* x147388 stalin.sc:19692:688756 */ /* x147387 stalin.sc:19692:688773 */ t37692 = a26976; /* x147386 stalin.sc:19692:688757 */ t37691 = f8687(t37692); /* x147385 stalin.sc:19692:688737 */ t37670 = f15531(t37691); /* x147384 */ t37669 = p15845; p15848 = t37669; a26982 = t37670; /* x147383 stalin.sc:19693:688783 */ /* x147382 stalin.sc:19697:688913 */ /* x147377 stalin.sc:19697:688919 */ t37685 = p15848->a26962; /* x147378 stalin.sc:19697:688921 */ t37686 = a26982; /* x147381 stalin.sc:19697:688923 */ /* x147380 stalin.sc:19697:688940 */ t37690 = a26976; /* x147379 stalin.sc:19697:688924 */ t37687 = f8687(t37690); /* x147376 stalin.sc:19697:688914 */ /* MOVE: branching squeezed to general */ if (t37685>=((struct structure_type27501 *)VALUE_OFFSET)) {t37688.tag = STRUCTURE_TYPE27501; t37688.value.structure_type27501 = t37685;} else t37688.tag = (unsigned)t37685; t37689 = *((struct w49 *)(&t37686)); t37672 = f15496(t37688, t37689, t37687); /* x147375 stalin.sc:19694:688804 */ /* x147370 stalin.sc:19694:688817 */ /* x147368 stalin.sc:19694:688841 */ /* x147367 stalin.sc:19694:688858 */ t37683 = a26976; /* x147366 stalin.sc:19694:688842 */ t37680 = f8687(t37683); /* x147369 stalin.sc:19694:688862 */ t37681 = a26982; /* x147365 stalin.sc:19694:688818 */ t37682 = *((struct w49 *)(&t37681)); t37676 = f7025(t37680, t37682); /* x147371 stalin.sc:19695:688875 */ t37677 = a26979; /* x147374 stalin.sc:19696:688887 */ /* x147373 stalin.sc:19696:688904 */ t37684 = a26976; /* x147372 stalin.sc:19696:688888 */ t37678 = f8687(t37684); /* x147364 stalin.sc:19694:688805 */ t37679 = t37676; t37671 = f15497(t37679, t37677, t37678); /* x147363 stalin.sc:19693:688784 */ t37675.tag = STRUCTURE_TYPE24753; t37675.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37675.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19693, 688783); out_of_memory_error();} t37675.value.structure_type24753->s0 = t37672; t37675.value.structure_type24753->s1.tag = NULL_TYPE; a41845 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41845==NULL) {backtrace("stalin.sc", 19693, 688783); out_of_memory_error();} a41845->s0 = t37671; a41845->s1 = t37675; /* x301492 stalin.sc:14400:506485 */ /* x301491 stalin.sc:14400:506503 */ t37673 = a41845; /* x301490 stalin.sc:14400:506486 */ t37674.tag = STRUCTURE_TYPE24753; t37674.value.structure_type24753 = t37673; t37624 = f13492(t37674); l5558: goto l5555; l5554: /* x147399 stalin.sc:19698:688953 */ /* x147398 stalin.sc:19698:688990 */ /* x147397 stalin.sc:19698:689006 */ t37658 = p15845->a26962; /* x147396 stalin.sc:19698:688991 */ /* MOVE: branching squeezed to general */ if (t37658>=((struct structure_type27501 *)VALUE_OFFSET)) {t37659.tag = STRUCTURE_TYPE27501; t37659.value.structure_type27501 = t37658;} else t37659.tag = (unsigned)t37658; t37652 = f15342(t37659); /* x147395 stalin.sc:19698:688970 */ /* x147394 stalin.sc:19698:688987 */ t37656 = a26979; /* x147393 stalin.sc:19698:688971 */ t37657.tag = STRUCTURE_TYPE24753; t37657.value.structure_type24753 = t37656; t37651 = f13514(t37657); /* x147392 stalin.sc:19698:688954 */ t37655.tag = STRUCTURE_TYPE24753; t37655.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37655.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19698, 688953); out_of_memory_error();} t37655.value.structure_type24753->s0 = t37652; t37655.value.structure_type24753->s1.tag = NULL_TYPE; a41846 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41846==NULL) {backtrace("stalin.sc", 19698, 688953); out_of_memory_error();} a41846->s0.tag = STRUCTURE_TYPE24753; a41846->s0.value.structure_type24753 = t37651; a41846->s1 = t37655; /* x301496 stalin.sc:14400:506485 */ /* x301495 stalin.sc:14400:506503 */ t37653 = a41846; /* x301494 stalin.sc:14400:506486 */ t37654.tag = STRUCTURE_TYPE24753; t37654.value.structure_type24753 = t37653; t37624 = f13492(t37654); l5555: /* x147301 stalin.sc:19681:688320 */ /* x147293 stalin.sc:19681:688328 */ t37638 = a26976; /* x147294 stalin.sc:19681:688331 */ t37639 = a26963; /* x147295 stalin.sc:19681:688333 */ t37640 = p15845->a26969; /* x147296 stalin.sc:19681:688336 */ t37641 = p15845->a26970; /* x147297 stalin.sc:19681:688339 */ t37642 = a26971; /* x147298 stalin.sc:19681:688341 */ t37643 = a26972; /* x147299 stalin.sc:19681:688343 */ /* x147300 stalin.sc:19681:688346 */ t37644 = a26978; /* x147292 stalin.sc:19681:688321 */ t37645.tag = TRUE_TYPE; t37623 = f15800(t37638, t37639, t37640, t37641, t37642, t37643, t37645, t37644); /* x147291 stalin.sc:19678:688233 */ /* x147278 stalin.sc:19678:688237 */ /* x147277 stalin.sc:19678:688260 */ t37629 = a26976; /* x147276 stalin.sc:19678:688238 */ if ((f8897(t37629).tag)==FALSE_TYPE) goto l5551; /* x147288 stalin.sc:19679:688269 */ /* x147282 stalin.sc:19679:688275 */ /* x147281 stalin.sc:19679:688280 */ t37634 = a26976; /* x147280 stalin.sc:19679:688276 */ t37630 = f14274(t37634); /* x147287 stalin.sc:19679:688284 */ /* x147284 stalin.sc:19679:688293 */ t37635 = a26964; /* x147285 stalin.sc:19679:688296 */ t37636 = a26965; /* x147286 stalin.sc:19679:688299 */ t37637 = a26966; /* x147283 stalin.sc:19679:688285 */ t37631 = f14485(t37635, t37636, t37637); /* x147279 stalin.sc:19679:688270 */ t37632.tag = STRUCTURE_TYPE24753; t37632.value.structure_type24753 = t37630; t37633 = f13637(t37632, t37631); t37622.tag = STRUCTURE_TYPE24753; t37622.value.structure_type24753 = t37633; goto l5552; l5551: /* x147290 stalin.sc:19680:688309 */ /* x147289 stalin.sc:19680:688310 */ /* x276537 stalin.sc:14693:514793 */ t37622.tag = STRING_TYPE; t37622.value.string_type = ""; l5552: /* x147275 stalin.sc:19677:688216 */ t37628.tag = STRUCTURE_TYPE24753; t37628.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37628.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19677, 688215); out_of_memory_error();} t37628.value.structure_type24753->s0 = t37624; t37628.value.structure_type24753->s1.tag = NULL_TYPE; t37627.tag = STRUCTURE_TYPE24753; t37627.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37627.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19677, 688215); out_of_memory_error();} t37627.value.structure_type24753->s0 = t37623; t37627.value.structure_type24753->s1 = t37628; a41843 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41843==NULL) {backtrace("stalin.sc", 19677, 688215); out_of_memory_error();} a41843->s0 = *((struct w49 *)(&t37622)); a41843->s1 = t37627; /* x301484 stalin.sc:14400:506485 */ /* x301483 stalin.sc:14400:506503 */ t37625 = a41843; /* x301482 stalin.sc:14400:506486 */ t37626.tag = STRUCTURE_TYPE24753; t37626.value.structure_type24753 = t37625; return f13492(t37626); l5526: /* x147640 */ /* x147639 */ t37488 = p15838; p15849 = t37488; /* x147638 stalin.sc:19700:689031 */ /* x147637 stalin.sc:19701:689050 */ /* x147576 stalin.sc:19701:689054 */ /* x147569 stalin.sc:19701:689059 */ /* x147567 stalin.sc:19701:689069 */ /* x147568 stalin.sc:19701:689080 */ t37598 = a26972; /* x147566 stalin.sc:19701:689060 */ t37599.tag = NATIVE_PROCEDURE_TYPE7435; if (f8146(t37599, t37598)==FALSE_TYPE) goto l5547; /* x147574 */ /* x147573 stalin.sc:19701:689088 */ /* x147572 stalin.sc:19701:689095 */ t37600 = a26976; /* x147571 stalin.sc:19701:689089 */ if (!(f8931(t37600)==FALSE_TYPE)) goto l5547; /* x147611 stalin.sc:19703:689156 */ /* x147578 stalin.sc:19704:689170 */ /* x147610 stalin.sc:19705:689178 */ /* x147609 stalin.sc:19711:689356 */ t37613 = p15849->a26969; /* x147608 stalin.sc:19711:689353 */ t37612 = p15849->a26970; /* x147607 stalin.sc:19711:689350 */ t37611 = a26978; /* x147606 stalin.sc:19705:689183 */ /* x147579 stalin.sc:19705:689179 */ t37614.tag = NATIVE_PROCEDURE_TYPE21849; /* MOVE: branching squeezed to general */ if (t37611>=((struct structure_type24753 *)VALUE_OFFSET)) {t37615.tag = STRUCTURE_TYPE24753; t37615.value.structure_type24753 = t37611;} else t37615.tag = (unsigned)t37611; t37617.tag = STRUCTURE_TYPE24753; t37617.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37617.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19705, 689178); out_of_memory_error();} t37617.value.structure_type24753->s0 = t37613; t37617.value.structure_type24753->s1.tag = NULL_TYPE; t37616 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t37616==NULL) {backtrace("stalin.sc", 19705, 689178); out_of_memory_error();} t37616->s0 = t37612; t37616->s1 = t37617; t37608 = f27731(t37614, t37615, t37616); /* x147577 stalin.sc:19703:689157 */ t37609.tag = FALSE_TYPE; /* MOVE: branching squeezed to general */ if (t37608>=((struct structure_type24753 *)VALUE_OFFSET)) {t37610.tag = STRUCTURE_TYPE24753; t37610.value.structure_type24753 = t37608;} else t37610.tag = (unsigned)t37608; t37490 = f1194(t37609, t37610); goto l5548; l5547: /* x147636 stalin.sc:19712:689365 */ /* x147613 stalin.sc:19713:689379 */ /* x147635 stalin.sc:19714:689387 */ /* x147634 stalin.sc:19718:689508 */ t37604 = a26978; /* x147633 stalin.sc:19714:689392 */ /* x147614 stalin.sc:19714:689388 */ t37605.tag = NATIVE_PROCEDURE_TYPE21848; /* MOVE: branching squeezed to general */ if (t37604>=((struct structure_type24753 *)VALUE_OFFSET)) {t37606.tag = STRUCTURE_TYPE24753; t37606.value.structure_type24753 = t37604;} else t37606.tag = (unsigned)t37604; t37607 = (struct structure_type24753 *)NULL_TYPE; t37601 = f27731(t37605, t37606, t37607); /* x147612 stalin.sc:19712:689366 */ t37602.tag = FALSE_TYPE; /* MOVE: branching squeezed to general */ if (t37601>=((struct structure_type24753 *)VALUE_OFFSET)) {t37603.tag = STRUCTURE_TYPE24753; t37603.value.structure_type24753 = t37601;} else t37603.tag = (unsigned)t37601; t37490 = f1194(t37602, t37603); l5548: /* x147565 */ t37489 = p15849; p15850 = t37489; a26983 = t37490; /* x147564 */ /* x147563 stalin.sc:19719:689524 */ /* x147543 stalin.sc:19719:689528 */ /* x147542 stalin.sc:19719:689551 */ t37583 = a26976; /* x147541 stalin.sc:19719:689529 */ if ((f8897(t37583).tag)==FALSE_TYPE) goto l5544; /* x147555 stalin.sc:19720:689561 */ /* x147545 stalin.sc:19720:689568 */ /* x147548 stalin.sc:19720:689575 */ /* x147547 stalin.sc:19720:689580 */ t37594 = a26976; /* x147546 stalin.sc:19720:689576 */ t37589 = f14276(t37594); /* x147553 stalin.sc:19720:689584 */ /* x147550 stalin.sc:19720:689593 */ t37595 = a26964; /* x147551 stalin.sc:19720:689596 */ t37596 = a26965; /* x147552 stalin.sc:19720:689599 */ t37597 = a26966; /* x147549 stalin.sc:19720:689585 */ t37590 = f14485(t37595, t37596, t37597); /* x147554 stalin.sc:19720:689603 */ t37591 = a26983; /* x268458 stalin.sc:19720:689562 */ t37592.tag = STRUCTURE_TYPE24753; t37592.value.structure_type24753 = t37589; t37593.tag = STRUCTURE_TYPE24753; t37593.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37593.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19720, 689561); out_of_memory_error();} t37593.value.structure_type24753->s0 = t37590; t37593.value.structure_type24753->s1 = *((struct w49 *)(&t37591)); t37492 = f13543(t37592, t37593); goto l5545; l5544: /* x147562 stalin.sc:19721:689614 */ /* x147557 stalin.sc:19721:689621 */ /* x147560 stalin.sc:19721:689628 */ /* x147559 stalin.sc:19721:689633 */ t37588 = a26976; /* x147558 stalin.sc:19721:689629 */ t37584 = f14276(t37588); /* x147561 stalin.sc:19721:689637 */ t37585 = a26983; /* x268457 stalin.sc:19721:689615 */ t37586.tag = STRUCTURE_TYPE24753; t37586.value.structure_type24753 = t37584; t37587 = t37585; t37492 = f13543(t37586, t37587); l5545: /* x147540 */ t37491 = p15850; p15851 = t37491; a26984 = t37492; /* x147539 */ /* x147538 */ t37493 = p15851; p15852 = t37493; /* x147537 stalin.sc:19722:689652 */ /* x147536 stalin.sc:19724:689702 */ /* x147430 stalin.sc:19724:689706 */ /* x147429 stalin.sc:19725:689734 */ /* x147428 stalin.sc:19725:689751 */ /* x147427 stalin.sc:19725:689775 */ t37511 = a26976; /* x147426 stalin.sc:19725:689752 */ a36671 = t37511; /* x279353 */ /* x279352 */ t37512 = a36671; /* x279351 */ if (!((t37512.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31588]"); structure_ref_error();} t37509 = t37512.value.structure_type27694->s1; /* x147425 stalin.sc:19725:689735 */ a39205 = t37509; /* x289489 */ /* x289488 */ t37510 = a39205; /* x289487 */ if (!((t37510.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34122]"); structure_ref_error();} t37508 = t37510.value.structure_type27698->s15; /* x147424 stalin.sc:19724:689707 */ if (f6936(t37508)==FALSE_TYPE) goto l5528; /* x147513 stalin.sc:19726:689786 */ /* x147454 stalin.sc:19726:689790 */ /* x147453 stalin.sc:19726:689794 */ /* x147452 stalin.sc:19726:689804 */ t37530 = p15852->a26962; /* x147451 stalin.sc:19726:689795 */ /* MOVE: branching squeezed to general */ if (t37530>=((struct structure_type27501 *)VALUE_OFFSET)) {t37531.tag = STRUCTURE_TYPE27501; t37531.value.structure_type27501 = t37530;} else t37531.tag = (unsigned)t37530; if (!(f7031(t37531)==FALSE_TYPE)) goto l5534; p15853 = p15852; /* x147448 */ /* x147447 stalin.sc:19727:689813 */ /* x147446 stalin.sc:19727:689826 */ t37532 = p15853->a26962; /* x147445 stalin.sc:19727:689814 */ /* MOVE: branching squeezed to general */ if (t37532>=((struct structure_type27501 *)VALUE_OFFSET)) {t37533.tag = STRUCTURE_TYPE27501; t37533.value.structure_type27501 = t37532;} else t37533.tag = (unsigned)t37532; if (!(f7032(t37533)==FALSE_TYPE)) goto l5534; p15854 = p15853; /* x147442 */ /* x147438 stalin.sc:19728:689840 */ /* x147437 stalin.sc:19728:689857 */ t37536 = p15854->a26962; /* x147436 stalin.sc:19728:689841 */ a38419 = t37536; /* x286345 */ /* x286344 */ t37537 = a38419; /* x286343 */ if (!(t37537>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33336]"); structure_ref_error();} t37534 = t37537->s2; /* x147441 stalin.sc:19728:689860 */ /* x147440 stalin.sc:19728:689877 */ t37538 = a26976; /* x147439 stalin.sc:19728:689861 */ t37535 = f8687(t37538); /* x268459 stalin.sc:19728:689836 */ /* EQ: dispatching general to general */ if (!((t37534.tag)==(t37535.tag))) goto l5535; switch (t37534.tag) {case FIXNUM_TYPE: if (!((t37534.value.fixnum_type)==(t37535.value.fixnum_type))) goto l5535; break; case FLONUM_TYPE: if (!((t37534.value.flonum_type)==(t37535.value.flonum_type))) goto l5535; break; case INPUT_PORT_TYPE: if (!((t37534.value.input_port_type)==(t37535.value.input_port_type))) goto l5535; break; case OUTPUT_PORT_TYPE: if (!((t37534.value.output_port_type)==(t37535.value.output_port_type))) goto l5535; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t37534.value.native_procedure_type15963)==(t37535.value.native_procedure_type15963))) goto l5535; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t37534.value.native_procedure_type19067)==(t37535.value.native_procedure_type19067))) goto l5535; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t37534.value.native_procedure_type19068)==(t37535.value.native_procedure_type19068))) goto l5535; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t37534.value.native_procedure_type22459)==(t37535.value.native_procedure_type22459))) goto l5535; break; case STRUCTURE_TYPE24753: if (!((t37534.value.structure_type24753)==(t37535.value.structure_type24753))) goto l5535; break; case STRUCTURE_TYPE24757: if (!((t37534.value.structure_type24757)==(t37535.value.structure_type24757))) goto l5535; break; case STRUCTURE_TYPE27501: if (!((t37534.value.structure_type27501)==(t37535.value.structure_type27501))) goto l5535; break; case STRUCTURE_TYPE27510: if (!((t37534.value.structure_type27510)==(t37535.value.structure_type27510))) goto l5535; break; case STRUCTURE_TYPE27621: if (!((t37534.value.structure_type27621)==(t37535.value.structure_type27621))) goto l5535; break; case STRUCTURE_TYPE27650: if (!((t37534.value.structure_type27650)==(t37535.value.structure_type27650))) goto l5535; break; case STRUCTURE_TYPE27669: if (!((t37534.value.structure_type27669)==(t37535.value.structure_type27669))) goto l5535; break; case STRUCTURE_TYPE27673: if (!((t37534.value.structure_type27673)==(t37535.value.structure_type27673))) goto l5535; break; case STRUCTURE_TYPE27692: if (!((t37534.value.structure_type27692)==(t37535.value.structure_type27692))) goto l5535; break; case STRUCTURE_TYPE27694: if (!((t37534.value.structure_type27694)==(t37535.value.structure_type27694))) goto l5535; break; case STRUCTURE_TYPE27698: if (!((t37534.value.structure_type27698)==(t37535.value.structure_type27698))) goto l5535; break; case STRUCTURE_TYPE27745: if (!((t37534.value.structure_type27745)==(t37535.value.structure_type27745))) goto l5535; break; case STRUCTURE_TYPE27747: if (!((t37534.value.structure_type27747)==(t37535.value.structure_type27747))) goto l5535; break; case STRUCTURE_TYPE27750: if (!((t37534.value.structure_type27750)==(t37535.value.structure_type27750))) goto l5535; break; case STRUCTURE_TYPE27753: if (!((t37534.value.structure_type27753)==(t37535.value.structure_type27753))) goto l5535; break; case STRUCTURE_TYPE27756: if (!((t37534.value.structure_type27756)==(t37535.value.structure_type27756))) goto l5535; break; case STRUCTURE_TYPE27761: if (!((t37534.value.structure_type27761)==(t37535.value.structure_type27761))) goto l5535; break; case STRUCTURE_TYPE27769: if (!((t37534.value.structure_type27769)==(t37535.value.structure_type27769))) goto l5535; break; case STRUCTURE_TYPE27776: if (!((t37534.value.structure_type27776)==(t37535.value.structure_type27776))) goto l5535; break; case STRUCTURE_TYPE27779: if (!((t37534.value.structure_type27779)==(t37535.value.structure_type27779))) goto l5535; break; case STRUCTURE_TYPE27858: if (!((t37534.value.structure_type27858)==(t37535.value.structure_type27858))) goto l5535; break; case STRING_TYPE: if (!((t37534.value.string_type)==(t37535.value.string_type))) goto l5535; break; case HEADED_VECTOR_TYPE27896: if (!((t37534.value.headed_vector_type27896)==(t37535.value.headed_vector_type27896))) goto l5535; break; case EXTERNAL_SYMBOL_TYPE: if (!((t37534.value.external_symbol_type)==(t37535.value.external_symbol_type))) goto l5535; break; case STRUCTURE_TYPE27908: if (!((t37534.value.structure_type27908)==(t37535.value.structure_type27908))) goto l5535; break; default:;} l5534: /* x147484 stalin.sc:19729:689885 */ /* x147462 stalin.sc:19729:689889 */ /* x147457 stalin.sc:19729:689894 */ /* x147456 stalin.sc:19729:689903 */ t37563 = p15852->a26962; /* x147455 stalin.sc:19729:689895 */ /* MOVE: branching squeezed to general */ if (t37563>=((struct structure_type27501 *)VALUE_OFFSET)) {t37564.tag = STRUCTURE_TYPE27501; t37564.value.structure_type27501 = t37563;} else t37564.tag = (unsigned)t37563; if (f7030(t37564)==FALSE_TYPE) goto l5540; /* x147460 */ /* x147459 stalin.sc:19729:689916 */ t37565 = p15852->a26962; /* x147458 stalin.sc:19729:689907 */ /* MOVE: branching squeezed to general */ if (t37565>=((struct structure_type27501 *)VALUE_OFFSET)) {t37566.tag = STRUCTURE_TYPE27501; t37566.value.structure_type27501 = t37565;} else t37566.tag = (unsigned)t37565; if (f15324(t37566)==FALSE_TYPE) goto l5540; /* x147476 stalin.sc:19730:689926 */ /* x147475 stalin.sc:19732:690010 */ /* x147474 stalin.sc:19732:690026 */ t37581 = p15852->a26962; /* x147473 stalin.sc:19732:690011 */ /* MOVE: branching squeezed to general */ if (t37581>=((struct structure_type27501 *)VALUE_OFFSET)) {t37582.tag = STRUCTURE_TYPE27501; t37582.value.structure_type27501 = t37581;} else t37582.tag = (unsigned)t37581; t37572 = f15342(t37582); /* x147472 stalin.sc:19731:689950 */ /* x147467 stalin.sc:19731:689963 */ /* x147466 stalin.sc:19731:689976 */ t37579 = p15852->a26962; /* x147465 stalin.sc:19731:689964 */ t37576 = f15762(t37579); /* x147468 stalin.sc:19731:689979 */ t37577 = a26984; /* x147471 stalin.sc:19731:689981 */ /* x147470 stalin.sc:19731:689998 */ t37580 = a26976; /* x147469 stalin.sc:19731:689982 */ t37578 = f8687(t37580); /* x147464 stalin.sc:19731:689951 */ t37571 = f15497(t37576, t37577, t37578); /* x147463 stalin.sc:19730:689927 */ t37575.tag = STRUCTURE_TYPE24753; t37575.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37575.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19730, 689926); out_of_memory_error();} t37575.value.structure_type24753->s0 = t37572; t37575.value.structure_type24753->s1.tag = NULL_TYPE; a41851 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41851==NULL) {backtrace("stalin.sc", 19730, 689926); out_of_memory_error();} a41851->s0 = t37571; a41851->s1 = t37575; /* x301516 stalin.sc:14400:506485 */ /* x301515 stalin.sc:14400:506503 */ t37573 = a41851; /* x301514 stalin.sc:14400:506486 */ t37574.tag = STRUCTURE_TYPE24753; t37574.value.structure_type24753 = t37573; t37495 = f13492(t37574); goto l5541; l5540: /* x147483 stalin.sc:19733:690036 */ /* x147478 stalin.sc:19733:690049 */ t37567 = p15852->a26962; /* x147479 stalin.sc:19733:690051 */ t37568 = a26984; /* x147482 stalin.sc:19733:690053 */ /* x147481 stalin.sc:19733:690070 */ t37570 = a26976; /* x147480 stalin.sc:19733:690054 */ t37569 = f8687(t37570); /* x147477 stalin.sc:19733:690037 */ t37495 = f15497(t37567, t37568, t37569); l5541: goto l5536; l5535: /* x147512 stalin.sc:19734:690078 */ /* x147511 stalin.sc:19734:690087 */ /* x147510 stalin.sc:19734:690107 */ /* x147509 stalin.sc:19734:690124 */ t37562 = a26976; /* x147508 stalin.sc:19734:690108 */ t37561 = f8687(t37562); /* x147507 stalin.sc:19734:690088 */ t37540 = f15531(t37561); /* x147506 */ t37539 = p15852; p15855 = t37539; a26987 = t37540; /* x147505 stalin.sc:19735:690134 */ /* x147504 stalin.sc:19739:690264 */ /* x147499 stalin.sc:19739:690270 */ t37555 = p15855->a26962; /* x147500 stalin.sc:19739:690272 */ t37556 = a26987; /* x147503 stalin.sc:19739:690274 */ /* x147502 stalin.sc:19739:690291 */ t37560 = a26976; /* x147501 stalin.sc:19739:690275 */ t37557 = f8687(t37560); /* x147498 stalin.sc:19739:690265 */ /* MOVE: branching squeezed to general */ if (t37555>=((struct structure_type27501 *)VALUE_OFFSET)) {t37558.tag = STRUCTURE_TYPE27501; t37558.value.structure_type27501 = t37555;} else t37558.tag = (unsigned)t37555; t37559 = *((struct w49 *)(&t37556)); t37542 = f15496(t37558, t37559, t37557); /* x147497 stalin.sc:19736:690155 */ /* x147492 stalin.sc:19736:690168 */ /* x147490 stalin.sc:19736:690192 */ /* x147489 stalin.sc:19736:690209 */ t37553 = a26976; /* x147488 stalin.sc:19736:690193 */ t37550 = f8687(t37553); /* x147491 stalin.sc:19736:690213 */ t37551 = a26987; /* x147487 stalin.sc:19736:690169 */ t37552 = *((struct w49 *)(&t37551)); t37546 = f7025(t37550, t37552); /* x147493 stalin.sc:19737:690226 */ t37547 = a26984; /* x147496 stalin.sc:19738:690238 */ /* x147495 stalin.sc:19738:690255 */ t37554 = a26976; /* x147494 stalin.sc:19738:690239 */ t37548 = f8687(t37554); /* x147486 stalin.sc:19736:690156 */ t37549 = t37546; t37541 = f15497(t37549, t37547, t37548); /* x147485 stalin.sc:19735:690135 */ t37545.tag = STRUCTURE_TYPE24753; t37545.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37545.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19735, 690134); out_of_memory_error();} t37545.value.structure_type24753->s0 = t37542; t37545.value.structure_type24753->s1.tag = NULL_TYPE; a41852 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41852==NULL) {backtrace("stalin.sc", 19735, 690134); out_of_memory_error();} a41852->s0 = t37541; a41852->s1 = t37545; /* x301520 stalin.sc:14400:506485 */ /* x301519 stalin.sc:14400:506503 */ t37543 = a41852; /* x301518 stalin.sc:14400:506486 */ t37544.tag = STRUCTURE_TYPE24753; t37544.value.structure_type24753 = t37543; t37495 = f13492(t37544); l5536: goto l5529; l5528: /* x147535 stalin.sc:19740:690304 */ /* x147534 stalin.sc:19742:690353 */ /* x147528 stalin.sc:19742:690357 */ /* x147520 stalin.sc:19742:690362 */ /* x147519 stalin.sc:19742:690386 */ t37520 = a26965; /* x147518 stalin.sc:19742:690363 */ a38068 = t37520; /* x284941 */ /* x284940 */ t37521 = a38068; /* x284939 */ if (!((t37521.tag)==STRUCTURE_TYPE27756)) goto l5531; /* x147526 */ /* x147525 stalin.sc:19743:690423 */ /* x147523 stalin.sc:19743:690443 */ t37523 = a26965; /* x147524 stalin.sc:19743:690446 */ t37524 = a26963; /* x147522 stalin.sc:19743:690424 */ t37525 = t37524; t37522 = f9368(t37523, t37525); /* x147521 stalin.sc:19743:690399 */ if (f8592(t37522)==FALSE_TYPE) goto l5531; /* x147530 stalin.sc:19747:690642 */ /* x147529 stalin.sc:19747:690643 */ t37528 = (struct structure_type24753 *)NULL_TYPE; t37529 = f13646(t37528); t37514.tag = STRUCTURE_TYPE24753; t37514.value.structure_type24753 = t37529; goto l5532; l5531: /* x147533 stalin.sc:19748:690656 */ /* x147532 stalin.sc:19748:690672 */ t37526 = p15852->a26962; /* x147531 stalin.sc:19748:690657 */ /* MOVE: branching squeezed to general */ if (t37526>=((struct structure_type27501 *)VALUE_OFFSET)) {t37527.tag = STRUCTURE_TYPE27501; t37527.value.structure_type27501 = t37526;} else t37527.tag = (unsigned)t37526; t37514 = f15342(t37527); l5532: /* x147517 stalin.sc:19741:690327 */ /* x147516 stalin.sc:19741:690344 */ t37518 = a26984; /* x147515 stalin.sc:19741:690328 */ t37519.tag = STRUCTURE_TYPE24753; t37519.value.structure_type24753 = t37518; t37513 = f13514(t37519); /* x147514 stalin.sc:19740:690305 */ t37517.tag = STRUCTURE_TYPE24753; t37517.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37517.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19740, 690304); out_of_memory_error();} t37517.value.structure_type24753->s0 = t37514; t37517.value.structure_type24753->s1.tag = NULL_TYPE; a41853 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41853==NULL) {backtrace("stalin.sc", 19740, 690304); out_of_memory_error();} a41853->s0.tag = STRUCTURE_TYPE24753; a41853->s0.value.structure_type24753 = t37513; a41853->s1 = t37517; /* x301524 stalin.sc:14400:506485 */ /* x301523 stalin.sc:14400:506503 */ t37515 = a41853; /* x301522 stalin.sc:14400:506486 */ t37516.tag = STRUCTURE_TYPE24753; t37516.value.structure_type24753 = t37515; t37495 = f13492(t37516); l5529: /* x147423 stalin.sc:19723:689670 */ /* x147415 stalin.sc:19723:689678 */ t37499 = a26976; /* x147416 stalin.sc:19723:689681 */ t37500 = a26963; /* x147417 stalin.sc:19723:689683 */ t37501 = p15852->a26969; /* x147418 stalin.sc:19723:689686 */ t37502 = p15852->a26970; /* x147419 stalin.sc:19723:689689 */ t37503 = a26971; /* x147420 stalin.sc:19723:689691 */ t37504 = a26972; /* x147421 stalin.sc:19723:689693 */ t37505 = a26983; /* x147422 stalin.sc:19723:689697 */ t37506 = a26978; /* x147414 stalin.sc:19723:689671 */ t37507 = *((struct w142334 *)(&t37505)); t37494 = f15800(t37499, t37500, t37501, t37502, t37503, t37504, t37507, t37506); /* x147413 stalin.sc:19722:689653 */ t37498.tag = STRUCTURE_TYPE24753; t37498.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37498.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19722, 689652); out_of_memory_error();} t37498.value.structure_type24753->s0 = t37495; t37498.value.structure_type24753->s1.tag = NULL_TYPE; a41847 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41847==NULL) {backtrace("stalin.sc", 19722, 689652); out_of_memory_error();} a41847->s0 = t37494; a41847->s1 = t37498; /* x301500 stalin.sc:14400:506485 */ /* x301499 stalin.sc:14400:506503 */ t37496 = a41847; /* x301498 stalin.sc:14400:506486 */ t37497.tag = STRUCTURE_TYPE24753; t37497.value.structure_type24753 = t37496; return f13492(t37497); l5479: /* x147868 */ /* x147675 stalin.sc:19749:690687 */ /* x147674 stalin.sc:19749:690712 */ t37334 = a26965; /* x147673 stalin.sc:19749:690688 */ a37949 = t37334; /* x284465 */ /* x284464 */ t37335 = a37949; /* x284463 */ if (!((t37335.tag)==STRUCTURE_TYPE27750)) goto l5481; /* x147723 */ /* x147722 */ t37429 = e15827; p15860 = t37429; /* x147721 */ /* x147720 stalin.sc:19750:690719 */ /* x147711 stalin.sc:19750:690725 */ /* x147709 stalin.sc:19750:690738 */ /* x147710 stalin.sc:19750:690749 */ t37466 = a26972; /* x147708 stalin.sc:19750:690726 */ t37467.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t37467, t37466).tag)==FALSE_TYPE) goto l5515; /* x147717 */ /* x147716 */ /* x147715 stalin.sc:19751:690756 */ /* x147713 stalin.sc:19751:690771 */ t37468 = a26963; /* x147714 stalin.sc:19751:690773 */ t37469 = "APPLY of a foreign procedure is not (yet) implemented"; /* x147712 stalin.sc:19751:690757 */ t37470.tag = STRUCTURE_TYPE27745; t37470.value.structure_type27745 = t37468; f9707(t37470, t37469); goto l5516; l5515: /* x147719 stalin.sc:19750:690719 */ /* x147718 stalin.sc:19750:690719 */ l5516: /* x147707 */ t37430 = p15860; p15861 = t37430; /* x147706 stalin.sc:19752:690834 */ /* x147680 stalin.sc:19752:690841 */ /* x147679 stalin.sc:19752:690846 */ /* x147678 stalin.sc:19752:690878 */ t37431 = a26965; /* x147677 stalin.sc:19752:690847 */ if (!(f7339(t37431)==FALSE_TYPE)) goto l5505; /* x147684 */ /* x147683 */ /* x147682 stalin.sc:19755:690973 */ /* x147681 stalin.sc:19755:690974 */ /* x276719 stalin.sc:14693:514793 */ r15827.tag = STRING_TYPE; r15827.value.string_type = ""; return r15827; l5505: /* x147705 */ /* x147688 stalin.sc:19756:690986 */ /* x147687 stalin.sc:19756:690998 */ t37432 = p15861->a26970; /* x147686 stalin.sc:19756:690992 */ /* x147685 stalin.sc:19756:690987 */ t37433.tag = NATIVE_PROCEDURE_TYPE7359; t37434 = t37432; t37435 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t37433, t37434, t37435).tag)==FALSE_TYPE) goto l5507; /* x147695 */ /* x147694 */ /* x147693 stalin.sc:19756:691002 */ /* x147690 stalin.sc:19756:691017 */ t37461 = "void_foreign_procedure_call"; /* x147691 stalin.sc:19756:691047 */ t37462 = a26963; /* x147692 stalin.sc:19756:691049 */ /* x147689 stalin.sc:19756:691003 */ t37463.tag = STRUCTURE_TYPE27745; t37463.value.structure_type27745 = t37462; t37464 = TRUE_TYPE; t37465 = f15534(t37461, t37463, t37464); r15827.tag = STRUCTURE_TYPE24753; r15827.value.structure_type24753 = t37465; return r15827; l5507: /* x147704 */ /* x147703 */ t37436 = p15861; p15864 = t37436; /* x147702 stalin.sc:19757:691062 */ /* x147697 stalin.sc:19757:691084 */ t37437 = p15864->a26962; /* x147698 stalin.sc:19757:691086 */ t37438 = a26963; /* x147699 stalin.sc:19757:691088 */ t37439 = a26965; /* x147700 stalin.sc:19757:691091 */ t37440 = p15864->a26969; /* x147701 stalin.sc:19757:691094 */ t37441 = p15864->a26970; /* x147696 stalin.sc:19757:691063 */ a26881 = t37437; a26882 = t37438; a26883 = t37439; a26884 = t37440; a26885 = t37441; e15766 = (struct p15766 *)GC_malloc(sizeof(struct p15766)); if (e15766==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e15766->a26881 = a26881; e15766->a26882 = a26882; e15766->a26883 = a26883; /* x146182 stalin.sc:19407:679163 */ /* x146173 stalin.sc:19408:679218 */ /* x146168 stalin.sc:19408:679222 */ /* x146167 stalin.sc:19408:679234 */ t37453 = e15766->a26882; /* x146166 stalin.sc:19408:679223 */ t37454.tag = STRUCTURE_TYPE27745; t37454.value.structure_type27745 = t37453; if (f8944(t37454)==FALSE_TYPE) goto l5509; /* x146171 stalin.sc:19408:679237 */ /* x146170 stalin.sc:19408:679243 */ t37455 = a26885; /* x146169 stalin.sc:19408:679238 */ a35442 = t37455; /* x273125 */ /* x273124 */ t37456 = a35442; /* x273123 */ if (!((t37456.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29591]"); structure_ref_error();} t37443 = t37456.value.structure_type24753->s1; goto l5510; l5509: /* x146172 stalin.sc:19408:679247 */ t37443 = a26885; l5510: /* x146181 stalin.sc:19407:679173 */ /* x146176 stalin.sc:19407:679177 */ /* x146175 stalin.sc:19407:679189 */ t37457 = e15766->a26882; /* x146174 stalin.sc:19407:679178 */ t37458.tag = STRUCTURE_TYPE27745; t37458.value.structure_type27745 = t37457; if (f8944(t37458)==FALSE_TYPE) goto l5512; /* x146179 stalin.sc:19407:679192 */ /* x146178 stalin.sc:19407:679198 */ t37459 = a26884; /* x146177 stalin.sc:19407:679193 */ a35443 = t37459; /* x273129 */ /* x273128 */ t37460 = a35443; /* x273127 */ if (!((t37460.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29592]"); structure_ref_error();} t37444 = t37460.value.structure_type24753->s1; goto l5513; l5512: /* x146180 stalin.sc:19407:679202 */ t37444 = a26884; l5513: /* x146165 */ t37442 = e15766; p15767 = t37442; a26886 = t37443; a26887 = t37444; e15767 = (struct p15767 *)GC_malloc(sizeof(struct p15767)); if (e15767==NULL) {backtrace_internal("COMPILE-FOREIGN-CALL[15766]"); out_of_memory_error();} e15767->p15766 = p15767; e15767->a26886 = a26886; e15767->a26887 = a26887; /* x146164 stalin.sc:19409:679255 */ /* x146160 stalin.sc:19409:679271 */ /* x146159 stalin.sc:19409:679306 */ t37451 = p15767->a26883; /* x146158 stalin.sc:19409:679272 */ a37922 = t37451; /* x284357 */ /* x284356 */ t37452 = a37922; /* x284355 */ if (!((t37452.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-PARAMETERS[6003] 32839]"); structure_ref_error();} t37446 = t37452.value.structure_type27750->s1; /* x146161 stalin.sc:19410:679321 */ t37447 = e15767->a26887; /* x146162 stalin.sc:19411:679336 */ /* x146163 stalin.sc:19412:679352 */ t37448 = e15767->a26886; /* x146157 */ /* x146156 */ /* x146155 */ /* x146154 */ t37449 = e15767; p15768 = t37449; /* x146153 */ /* x146152 */ /* x146151 */ /* x146090 */ t37450 = p15768; p15769 = t37450; /* x146089 stalin.sc:19409:679260 */ t37445 = p15769; d15770 = t37445; b26890 = t37446; b26891 = t37447; b26892 = (struct structure_type24753 *)NULL_TYPE; b26893 = t37448; return f15770(); l5481: /* x147867 */ /* x147726 stalin.sc:19758:691104 */ /* x147725 stalin.sc:19758:691124 */ t37336 = a26965; /* x147724 stalin.sc:19758:691105 */ a37868 = t37336; /* x284141 */ /* x284140 */ t37337 = a37868; /* x284139 */ if (!((t37337.tag)==STRUCTURE_TYPE27858)) goto l5483; /* x147862 */ /* x147861 */ t37339 = e15827; p15867 = t37339; /* x147860 */ /* x147859 stalin.sc:19764:691498 */ /* x147850 stalin.sc:19764:691504 */ /* x147848 stalin.sc:19764:691517 */ /* x147849 stalin.sc:19764:691528 */ t37424 = a26972; /* x147847 stalin.sc:19764:691505 */ t37425.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t37425, t37424).tag)==FALSE_TYPE) goto l5502; /* x147856 */ /* x147855 */ /* x147854 stalin.sc:19765:691535 */ /* x147852 stalin.sc:19765:691550 */ t37426 = a26963; /* x147853 stalin.sc:19765:691552 */ t37427 = "APPLY of a continuation is not (yet) implemented"; /* x147851 stalin.sc:19765:691536 */ t37428.tag = STRUCTURE_TYPE27745; t37428.value.structure_type27745 = t37426; f9707(t37428, t37427); goto l5503; l5502: /* x147858 stalin.sc:19764:691498 */ /* x147857 stalin.sc:19764:691498 */ l5503: /* x147846 */ t37340 = p15867; p15868 = t37340; /* x147845 stalin.sc:19766:691608 */ /* x147834 stalin.sc:19767:691668 */ /* x147827 stalin.sc:19767:691672 */ /* x147826 stalin.sc:19767:691684 */ t37414 = a26963; /* x147825 stalin.sc:19767:691673 */ t37415.tag = STRUCTURE_TYPE27745; t37415.value.structure_type27745 = t37414; if (f8944(t37415)==FALSE_TYPE) goto l5496; /* x147830 stalin.sc:19767:691687 */ /* x147829 stalin.sc:19767:691695 */ t37418 = p15868->a26970; /* x147828 stalin.sc:19767:691688 */ t37341 = f26181(t37418); goto l5497; l5496: /* x147833 stalin.sc:19767:691699 */ /* x147832 stalin.sc:19767:691706 */ t37416 = p15868->a26970; /* x147831 stalin.sc:19767:691700 */ a35916 = t37416; /* x275021 */ /* x275020 */ t37417 = a35916; /* x275019 */ if (!((t37417.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30065]"); structure_ref_error();} t37341 = t37417.value.structure_type24753->s0; l5497: /* x147844 stalin.sc:19766:691618 */ /* x147837 stalin.sc:19766:691622 */ /* x147836 stalin.sc:19766:691634 */ t37419 = a26963; /* x147835 stalin.sc:19766:691623 */ t37420.tag = STRUCTURE_TYPE27745; t37420.value.structure_type27745 = t37419; if (f8944(t37420)==FALSE_TYPE) goto l5499; /* x147840 stalin.sc:19766:691637 */ /* x147839 stalin.sc:19766:691645 */ t37423 = p15868->a26969; /* x147838 stalin.sc:19766:691638 */ t37342 = f26181(t37423); goto l5500; l5499: /* x147843 stalin.sc:19766:691649 */ /* x147842 stalin.sc:19766:691656 */ t37421 = p15868->a26969; /* x147841 stalin.sc:19766:691650 */ a35917 = t37421; /* x275025 */ /* x275024 */ t37422 = a35917; /* x275023 */ if (!((t37422.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30066]"); structure_ref_error();} t37342 = t37422.value.structure_type24753->s0; l5500: /* x147824 */ a26996 = t37341; a26997 = t37342; /* x147823 stalin.sc:19768:691717 */ /* x147731 stalin.sc:19769:691729 */ /* x147730 stalin.sc:19769:691734 */ /* x147729 stalin.sc:19769:691776 */ t37343 = a26965; /* x147728 stalin.sc:19769:691735 */ if (!(f7374(t37343)==FALSE_TYPE)) goto l5485; /* x147735 */ /* x147734 */ /* x147733 stalin.sc:19772:691880 */ /* x147732 stalin.sc:19772:691881 */ /* x276721 stalin.sc:14693:514793 */ r15827.tag = STRING_TYPE; r15827.value.string_type = ""; return r15827; l5485: /* x147822 */ /* x147739 stalin.sc:19773:691896 */ /* x147737 stalin.sc:19773:691903 */ t37344 = a26963; /* x147738 stalin.sc:19773:691905 */ t37345 = a26965; /* x147736 stalin.sc:19773:691897 */ t37346.tag = STRUCTURE_TYPE27745; t37346.value.structure_type27745 = t37344; if (f8792(t37346, t37345)==FALSE_TYPE) goto l5487; /* x147769 */ /* x147768 */ /* x147767 stalin.sc:19774:691915 */ /* x147766 stalin.sc:19781:692224 */ /* x147756 stalin.sc:19781:692228 */ /* x147755 stalin.sc:19782:692242 */ /* x147754 stalin.sc:19782:692261 */ /* x147753 stalin.sc:19782:692302 */ t37406 = a26965; /* x147752 stalin.sc:19782:692262 */ a37824 = t37406; /* x283965 */ /* x283964 */ t37407 = a37824; /* x283963 */ if (!((t37407.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32741]"); structure_ref_error();} t37404 = t37407.value.structure_type27858->s0; /* x147751 stalin.sc:19782:692243 */ a38490 = t37404; /* x286629 */ /* x286628 */ t37405 = a38490; /* x286627 */ if (!((t37405.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-RESULT[5679] 33407]"); structure_ref_error();} t37403 = t37405.value.structure_type27698->s24; /* x147750 stalin.sc:19781:692229 */ if (f7030(t37403)==FALSE_TYPE) goto l5493; /* x147758 stalin.sc:19783:692312 */ /* x147757 stalin.sc:19783:692313 */ /* x276723 stalin.sc:14693:514793 */ t37392.tag = STRING_TYPE; t37392.value.string_type = ""; goto l5494; l5493: /* x147765 stalin.sc:19784:692325 */ /* x147764 stalin.sc:19784:692333 */ /* x147763 stalin.sc:19784:692338 */ /* x147762 stalin.sc:19784:692379 */ t37412 = a26965; /* x147761 stalin.sc:19784:692339 */ a37823 = t37412; /* x283961 */ /* x283960 */ t37413 = a37823; /* x283959 */ if (!((t37413.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32740]"); structure_ref_error();} t37411 = t37413.value.structure_type27858->s0; /* x147760 stalin.sc:19784:692334 */ t37408 = f14318(t37411); /* x147759 stalin.sc:19784:692326 */ t37409.tag = STRUCTURE_TYPE24753; t37409.value.structure_type24753 = t37408; t37410 = f13640(t37409); t37392.tag = STRUCTURE_TYPE24753; t37392.value.structure_type24753 = t37410; l5494: /* x147749 stalin.sc:19778:692127 */ /* x147746 stalin.sc:19778:692133 */ /* x147745 stalin.sc:19778:692152 */ /* x147744 stalin.sc:19778:692193 */ t37401 = a26965; /* x147743 stalin.sc:19778:692153 */ a37822 = t37401; /* x283957 */ /* x283956 */ t37402 = a37822; /* x283955 */ if (!((t37402.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32739]"); structure_ref_error();} t37399 = t37402.value.structure_type27858->s0; /* x147742 stalin.sc:19778:692134 */ a38489 = t37399; /* x286625 */ /* x286624 */ t37400 = a38489; /* x286623 */ if (!((t37400.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-RESULT[5679] 33406]"); structure_ref_error();} t37396 = t37400.value.structure_type27698->s24; /* x147747 stalin.sc:19779:692204 */ t37397 = a26997; /* x147748 stalin.sc:19780:692213 */ t37398 = a26996; /* x147741 stalin.sc:19778:692128 */ t37391 = f15496(t37396, t37397, t37398); /* x147740 stalin.sc:19774:691916 */ t37395.tag = STRUCTURE_TYPE24753; t37395.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37395.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19774, 691915); out_of_memory_error();} t37395.value.structure_type24753->s0 = *((struct w49 *)(&t37392)); t37395.value.structure_type24753->s1.tag = NULL_TYPE; a41875 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41875==NULL) {backtrace("stalin.sc", 19774, 691915); out_of_memory_error();} a41875->s0 = t37391; a41875->s1 = t37395; /* x301612 stalin.sc:14400:506485 */ /* x301611 stalin.sc:14400:506503 */ t37393 = a41875; /* x301610 stalin.sc:14400:506486 */ t37394.tag = STRUCTURE_TYPE24753; t37394.value.structure_type24753 = t37393; return f13492(t37394); l5487: /* x147821 */ /* x147820 */ /* x147819 stalin.sc:19785:692399 */ /* x147818 stalin.sc:19798:692824 */ /* x147815 stalin.sc:19798:692835 */ /* x147814 stalin.sc:19798:692840 */ /* x147811 stalin.sc:19798:692849 */ t37388 = a26964; /* x147812 stalin.sc:19798:692852 */ t37389 = a26965; /* x147813 stalin.sc:19798:692855 */ t37390 = a26966; /* x147810 stalin.sc:19798:692841 */ t37385 = f14485(t37388, t37389, t37390); /* x147809 stalin.sc:19798:692836 */ t37386 = t37385; t37387 = (struct structure_type24753 *)NULL_TYPE; t37375 = f13617(t37386, t37387); /* x147817 stalin.sc:19798:692860 */ /* x147816 stalin.sc:19798:692861 */ /* x276881 stalin.sc:14561:511199 */ t37376 = "1"; /* x147808 stalin.sc:19798:692825 */ a25491 = t37375; a25492 = t37376; /* x124697 */ /* x124696 stalin.sc:15012:524279 */ /* x124695 stalin.sc:15012:524289 */ t37383 = "setjmp"; /* x124694 stalin.sc:15012:524280 */ t37384.tag = STRING_TYPE; t37384.value.string_type = t37383; f18320(t37384); /* x124693 */ /* x124692 stalin.sc:15013:524311 */ /* x124691 stalin.sc:15013:524333 */ t37379 = a25492; /* x124690 stalin.sc:15013:524330 */ t37378 = a25491; /* x124689 stalin.sc:15013:524320 */ t37377 = "longjmp"; /* x124688 stalin.sc:15013:524312 */ t37380.tag = STRING_TYPE; t37380.value.string_type = t37377; t37382.tag = STRUCTURE_TYPE24753; t37382.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37382.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15013, 524311); out_of_memory_error();} t37382.value.structure_type24753->s0.tag = STRING_TYPE; t37382.value.structure_type24753->s0.value.string_type = t37379; t37382.value.structure_type24753->s1.tag = NULL_TYPE; t37381 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t37381==NULL) {backtrace("stalin.sc", 15013, 524311); out_of_memory_error();} t37381->s0.tag = STRUCTURE_TYPE24753; t37381->s0.value.structure_type24753 = t37378; t37381->s1 = t37382; t37348 = f13645(t37380, t37381); /* x147807 stalin.sc:19786:692421 */ /* x147804 stalin.sc:19786:692427 */ /* x147790 stalin.sc:19786:692431 */ /* x147789 stalin.sc:19786:692435 */ /* x147788 stalin.sc:19787:692454 */ /* x147787 stalin.sc:19788:692482 */ /* x147786 stalin.sc:19788:692523 */ t37359 = a26965; /* x147785 stalin.sc:19788:692483 */ a37828 = t37359; /* x283981 */ /* x283980 */ t37360 = a37828; /* x283979 */ if (!((t37360.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32745]"); structure_ref_error();} t37357 = t37360.value.structure_type27858->s0; /* x147784 stalin.sc:19787:692455 */ a39899 = t37357; /* x292265 */ /* x292264 */ t37358 = a39899; /* x292263 */ if (!((t37358.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34816]"); structure_ref_error();} t37356 = t37358.value.structure_type27698->s10; /* x147783 stalin.sc:19786:692436 */ if (!(f8793(t37356)==FALSE_TYPE)) goto l5488; /* x147780 */ /* x147779 stalin.sc:19789:692539 */ /* x147778 stalin.sc:19790:692565 */ /* x147777 stalin.sc:19790:692606 */ t37362 = a26965; /* x147776 stalin.sc:19790:692566 */ a37827 = t37362; /* x283977 */ /* x283976 */ t37363 = a37827; /* x283975 */ if (!((t37363.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32744]"); structure_ref_error();} t37361 = t37363.value.structure_type27858->s0; /* x147775 stalin.sc:19789:692540 */ if (!(f6936(t37361)==FALSE_TYPE)) goto l5489; l5488: /* x147791 stalin.sc:19791:692621 */ t37352 = a1194; goto l5490; l5489: /* x147803 stalin.sc:19792:692639 */ /* x147797 stalin.sc:19793:692672 */ /* x147796 stalin.sc:19794:692696 */ /* x147795 stalin.sc:19794:692737 */ t37370 = a26965; /* x147794 stalin.sc:19794:692697 */ a37825 = t37370; /* x283969 */ /* x283968 */ t37371 = a37825; /* x283967 */ if (!((t37371.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32742]"); structure_ref_error();} t37368 = t37371.value.structure_type27858->s0; /* x147793 stalin.sc:19793:692673 */ a39898 = t37368; /* x292261 */ /* x292260 */ t37369 = a39898; /* x292259 */ if (!((t37369.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34815]"); structure_ref_error();} t37364 = t37369.value.structure_type27698->s10; /* x147802 stalin.sc:19795:692751 */ /* x147801 stalin.sc:19795:692756 */ /* x147800 stalin.sc:19795:692797 */ t37373 = a26965; /* x147799 stalin.sc:19795:692757 */ a37826 = t37373; /* x283973 */ /* x283972 */ t37374 = a37826; /* x283971 */ if (!((t37374.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32743]"); structure_ref_error();} t37372 = t37374.value.structure_type27858->s0; /* x147798 stalin.sc:19795:692752 */ t37365 = f14316(t37372); /* x147792 stalin.sc:19792:692640 */ t37366.tag = STRUCTURE_TYPE24753; t37366.value.structure_type24753 = t37365; t37367 = f7025(t37364, t37366); t37352 = t37367; l5490: /* x147805 stalin.sc:19796:692808 */ t37353 = a26997; /* x147806 stalin.sc:19797:692815 */ t37354 = a26996; /* x147771 stalin.sc:19786:692422 */ /* MOVE: branching squeezed to general */ if (t37352>=((struct structure_type27501 *)VALUE_OFFSET)) {t37355.tag = STRUCTURE_TYPE27501; t37355.value.structure_type27501 = t37352;} else t37355.tag = (unsigned)t37352; t37347 = f15496(t37355, t37353, t37354); /* x147770 stalin.sc:19785:692400 */ t37351.tag = STRUCTURE_TYPE24753; t37351.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t37351.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19785, 692399); out_of_memory_error();} t37351.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t37351.value.structure_type24753->s0.value.structure_type24753 = t37348; t37351.value.structure_type24753->s1.tag = NULL_TYPE; a41810 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41810==NULL) {backtrace("stalin.sc", 19785, 692399); out_of_memory_error();} a41810->s0 = t37347; a41810->s1 = t37351; /* x301352 stalin.sc:14400:506485 */ /* x301351 stalin.sc:14400:506503 */ t37349 = a41810; /* x301350 stalin.sc:14400:506486 */ t37350.tag = STRUCTURE_TYPE24753; t37350.value.structure_type24753 = t37349; return f13492(t37350); l5483: /* x147866 */ /* x147865 */ /* x147864 stalin.sc:19799:692880 */ /* x147863 stalin.sc:19799:692881 */ /* x295889 QobiScheme.sc:166:5314 */ /* x295888 QobiScheme.sc:166:5321 */ t37338 = "This shouldn\'t happen"; /* x295887 QobiScheme.sc:166:5315 */ stalin_panic(t37338);} /* [inside LOOP 15815] */ struct structure_type24753 *f15815(struct p15800 *p15815, unsigned a26954) {char *t39768; struct structure_type27745 *t39769; unsigned t39770; struct w49 t39771; /* x146764 stalin.sc:19568:683925 */ /* x146761 stalin.sc:19568:683940 */ t39768 = "call"; /* x146762 stalin.sc:19568:683947 */ t39769 = p15815->a26929; /* x146763 stalin.sc:19568:683949 */ t39770 = a26954; /* x146760 stalin.sc:19568:683926 */ t39771.tag = STRUCTURE_TYPE27745; t39771.value.structure_type27745 = t39769; return f15534(t39768, t39771, t39770);} /* [inside LOOP 15811] */ struct w49 f15811(struct p15807 *p15811, struct w49 a26950) {struct w49 a35387; /* PAIR */ struct w49 a35388; /* PAIR */ struct w49 a36838; /* S */ struct w49 a41633; /* G */ struct w49 a41634; /* G */ struct w49 a41687; /* G */ struct w49 a41718; /* G */ struct w49 a41719; /* G */ struct structure_type24753 *a41824; /* CS */ struct w49 t39772; struct w49 t39773; struct structure_type24753 *t39774; struct w49 t39775; struct w49 t39776; struct w49 t39777; struct w49 t39778; struct w49 t39779; struct w49 t39780; struct w49 t39781; struct w49 t39782; struct structure_type27501 *t39783; struct w60864 t39784; struct w49 t39785; struct w12218 t39786; struct w49 t39787; struct w49 t39788; struct w49 t39789; struct w49 t39790; struct w49 t39791; struct w49 t39792; struct w49 t39793; struct w49 t39794; struct w49 t39795; struct p15800 *t39796; struct w49 t39797; struct w49 t39798; struct w60864 t39799; struct w49 t39800; struct w49 t39801; struct w49 t39802; struct w49 t39803; struct w49 t39804; struct w49 t39805; struct w49 t39806; struct w49 t39807; struct w49 t39808; struct w49 t39809; struct w49 t39810; struct w49 t39811; struct w49 t39812; struct w49 t39813; struct w49 t39814; struct w49 t39815; struct w49 t39816; struct p15806 *p15812; struct p15806 *p15813; struct p15806 *p15814; /* x146758 stalin.sc:19554:683551 */ /* x146757 stalin.sc:19560:683753 */ /* x146723 stalin.sc:19560:683759 */ t39797 = p15811->p15806->p15803->a26938; /* x146724 stalin.sc:19561:683765 */ t39798 = p15811->p15806->p15803->a26939; /* x146729 stalin.sc:19562:683771 */ /* x146726 stalin.sc:19562:683782 */ t39804 = p15811->p15806->p15803->a26940; /* x146727 stalin.sc:19562:683784 */ t39805 = a26950; /* x146728 stalin.sc:19562:683786 */ t39806 = p15811->p15806->p15803->a26941; /* x146725 stalin.sc:19562:683772 */ t39799 = f14748(t39804, t39805, t39806); /* x146732 stalin.sc:19563:683792 */ /* x146731 stalin.sc:19563:683807 */ t39807 = a26950; /* x146730 stalin.sc:19563:683793 */ t39800 = f7927(t39807); /* x146753 stalin.sc:19564:683813 */ /* x146748 stalin.sc:19564:683817 */ /* x146735 stalin.sc:19564:683822 */ /* x146734 stalin.sc:19564:683829 */ t39808 = p15811->p15806->p15803->a26942; /* x268477 stalin.sc:19564:683823 */ if (!((t39808.tag)==STRUCTURE_TYPE24753)) goto l5875; /* x146746 */ /* x146745 stalin.sc:19564:683838 */ /* x146744 stalin.sc:19564:683846 */ t39809 = p15811->p15806->a26946; /* x146743 stalin.sc:19564:683839 */ a41719 = t39809; /* x300988 stalin.sc:3890:131852 */ /* x300987 stalin.sc:3890:131869 */ t39810 = a41719; /* x300986 stalin.sc:3890:131853 */ if (!(f8204(t39810)==FALSE_TYPE)) goto l5874; p15814 = p15811->p15806; /* x146740 */ /* x146739 stalin.sc:19564:683859 */ t39811 = p15814->a26946; /* x146738 stalin.sc:19564:683850 */ a41634 = t39811; /* x300648 stalin.sc:3965:133896 */ /* x300647 stalin.sc:3965:133915 */ t39812 = a41634; /* x300646 stalin.sc:3965:133897 */ if (f8219(t39812)==FALSE_TYPE) goto l5875; l5874: /* x146751 stalin.sc:19565:683871 */ /* x146750 stalin.sc:19565:683877 */ t39813 = p15811->p15806->p15803->a26942; /* x146749 stalin.sc:19565:683872 */ a35387 = t39813; /* x272905 */ /* x272904 */ t39814 = a35387; /* x272903 */ if (!((t39814.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29536]"); structure_ref_error();} t39801 = t39814.value.structure_type24753->s1; goto l5876; l5875: /* x146752 stalin.sc:19566:683889 */ t39801 = p15811->p15806->p15803->a26942; l5876: /* x146756 stalin.sc:19567:683897 */ /* x146755 stalin.sc:19567:683903 */ t39815 = p15811->p15806->p15803->a26943; /* x146754 stalin.sc:19567:683898 */ a35388 = t39815; /* x272909 */ /* x272908 */ t39816 = a35388; /* x272907 */ if (!((t39816.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29537]"); structure_ref_error();} t39802 = t39816.value.structure_type24753->s1; /* x146722 stalin.sc:19560:683754 */ t39796 = p15811->p15806->p15803->p15800; t39803 = *((struct w49 *)(&t39799)); t39773 = f15803(t39796, t39797, t39798, t39803, t39800, t39801, t39802); /* x146721 stalin.sc:19555:683572 */ /* x146702 stalin.sc:19555:683576 */ /* x146701 stalin.sc:19555:683580 */ /* x146700 stalin.sc:19555:683588 */ t39777 = p15811->p15806->a26946; /* x146699 stalin.sc:19555:683581 */ a41718 = t39777; /* x300984 stalin.sc:3890:131852 */ /* x300983 stalin.sc:3890:131869 */ t39778 = a41718; /* x300982 stalin.sc:3890:131853 */ if (!(f8204(t39778)==FALSE_TYPE)) goto l5869; p15812 = p15811->p15806; /* x146696 */ /* x146695 stalin.sc:19555:683591 */ /* x146694 stalin.sc:19555:683600 */ t39779 = p15812->a26946; /* x146693 stalin.sc:19555:683592 */ a41687 = t39779; /* x300860 stalin.sc:3916:132554 */ /* x300859 stalin.sc:3916:132572 */ t39780 = a41687; /* x300858 stalin.sc:3916:132555 */ if (!(f8209(t39780)==FALSE_TYPE)) goto l5869; p15813 = p15812; /* x146690 */ /* x146689 stalin.sc:19555:683613 */ t39781 = p15813->a26946; /* x146688 stalin.sc:19555:683604 */ a41633 = t39781; /* x300644 stalin.sc:3965:133896 */ /* x300643 stalin.sc:3965:133915 */ t39782 = a41633; /* x300642 stalin.sc:3965:133897 */ if (f8219(t39782)==FALSE_TYPE) goto l5870; l5869: /* x146718 stalin.sc:19556:683625 */ /* x146709 stalin.sc:19556:683631 */ /* x146707 stalin.sc:19556:683655 */ /* x146706 stalin.sc:19556:683674 */ t39790 = p15811->p15806->a26946; /* x146705 stalin.sc:19556:683656 */ a36838 = t39790; /* x280021 */ /* x280020 */ t39791 = a36838; /* x280019 */ if (!((t39791.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31755]"); structure_ref_error();} t39788 = t39791.value.structure_type27692->s9; /* x146708 stalin.sc:19556:683677 */ t39789 = p15811->a26947; /* x146704 stalin.sc:19556:683632 */ t39783 = f7025(t39788, t39789); /* x146714 stalin.sc:19557:683687 */ /* x146711 stalin.sc:19557:683698 */ t39792 = p15811->p15806->p15803->a26940; /* x146712 stalin.sc:19557:683700 */ t39793 = a26950; /* x146713 stalin.sc:19557:683702 */ t39794 = p15811->p15806->p15803->a26941; /* x146710 stalin.sc:19557:683688 */ t39784 = f14747(t39792, t39793, t39794); /* x146717 stalin.sc:19558:683712 */ /* x146716 stalin.sc:19558:683727 */ t39795 = a26950; /* x146715 stalin.sc:19558:683713 */ t39785 = f7923(t39795); /* x146703 stalin.sc:19556:683626 */ t39786.tag = STRUCTURE_TYPE27501; t39786.value.structure_type27501 = t39783; t39787 = *((struct w49 *)(&t39784)); t39772 = f15496(t39786, t39787, t39785); goto l5871; l5870: /* x146720 stalin.sc:19559:683739 */ /* x146719 stalin.sc:19559:683740 */ /* x276543 stalin.sc:14693:514793 */ t39772.tag = STRING_TYPE; t39772.value.string_type = ""; l5871: /* x146683 stalin.sc:19554:683552 */ t39776.tag = STRUCTURE_TYPE24753; t39776.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t39776.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19554, 683551); out_of_memory_error();} t39776.value.structure_type24753->s0 = t39773; t39776.value.structure_type24753->s1.tag = NULL_TYPE; a41824 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41824==NULL) {backtrace("stalin.sc", 19554, 683551); out_of_memory_error();} a41824->s0 = t39772; a41824->s1 = t39776; /* x301408 stalin.sc:14400:506485 */ /* x301407 stalin.sc:14400:506503 */ t39774 = a41824; /* x301406 stalin.sc:14400:506486 */ t39775.tag = STRUCTURE_TYPE24753; t39775.value.structure_type24753 = t39774; return f13492(t39775);} /* [inside LOOP 15805] */ struct structure_type24753 *f15805(struct p15800 *p15805, unsigned a26945) {char *t39817; struct structure_type27745 *t39818; unsigned t39819; struct w49 t39820; /* x146630 stalin.sc:19532:682776 */ /* x146627 stalin.sc:19532:682791 */ t39817 = "call"; /* x146628 stalin.sc:19532:682798 */ t39818 = p15805->a26929; /* x146629 stalin.sc:19532:682800 */ t39819 = a26945; /* x146626 stalin.sc:19532:682777 */ t39820.tag = STRUCTURE_TYPE27745; t39820.value.structure_type27745 = t39818; return f15534(t39817, t39820, t39819);} /* [inside LOOP 15804] */ char *f15804(void) {/* x146624 stalin.sc:19531:682748 */ /* x146623 stalin.sc:19531:682749 */ /* x276539 stalin.sc:14693:514793 */ return "";} /* LOOP[15803] */ struct w49 f15803(struct p15800 *p15803, struct w49 a26938, struct w49 a26939, struct w49 a26940, struct w49 a26941, struct w49 a26942, struct w49 a26943) {struct w49 r15803; char *sfp15803; struct structure_type27501 *a26896; /* R */ struct structure_type27745 *a26897; /* Y */ struct w49 a26898; /* TS */ struct w16638 a26899; /* WS */ struct w49 a26900; /* T */ struct w49 a26901; /* W */ struct w49 a26904; /* USS */ struct w49 a26905; /* W1 */ struct structure_type24753 *a26906; /* US1 */ struct structure_type24753 *a26907; /* WS1 */ struct w49 a26910; /* TS */ struct w49 a26911; /* WS */ struct w49 a26912; /* TS1 */ struct w49 a26913; /* US1 */ struct w49 a26914; /* WS1 */ struct w49 a26915; /* C */ struct w49 a26916; /* T */ struct w49 a26917; /* W */ struct w49 a26918; /* W1 */ struct w49 a26919; /* U1 */ struct w49 a26920; /* T1 */ struct w49 a26921; /* W2 */ struct w49 a26922; /* T2 */ struct w49 a26924; /* U1 */ struct w49 a26946; /* G */ struct w49 a26947; /* C */ struct w16638 a35386; /* PAIR */ struct w16638 a35389; /* PAIR */ struct w49 a35390; /* PAIR */ struct w49 a35391; /* PAIR */ struct w49 a35392; /* PAIR */ struct w49 a35393; /* PAIR */ struct w12224 a35394; /* PAIR */ struct w16638 a35395; /* PAIR */ struct w16638 a35396; /* PAIR */ struct w49 a35397; /* PAIR */ struct w16638 a35398; /* PAIR */ struct w49 a35399; /* PAIR */ struct w16638 a35400; /* PAIR */ struct w49 a35401; /* PAIR */ struct w16638 a35402; /* PAIR */ struct w49 a35403; /* PAIR */ struct w16638 a35404; /* PAIR */ struct w49 a35769; /* PAIR */ struct w49 a35770; /* PAIR */ struct w49 a35771; /* PAIR */ struct w49 a35772; /* PAIR */ struct w16638 a35773; /* PAIR */ struct w49 a35774; /* PAIR */ struct w16638 a35775; /* PAIR */ struct w49 a35776; /* PAIR */ struct w49 a35777; /* PAIR */ struct w16638 a35778; /* PAIR */ struct structure_type27745 *a36428; /* S */ struct w49 a36837; /* S */ struct w49 a36839; /* S */ struct w49 a36840; /* S */ struct structure_type27501 *a38336; /* S */ struct structure_type27501 *a38363; /* S */ struct structure_type27501 *a38387; /* S */ struct structure_type27501 *a38417; /* S */ struct w49 a41632; /* G */ struct w49 a41635; /* G */ struct w49 a41636; /* G */ struct w49 a41637; /* G */ struct w49 a41638; /* G */ struct w49 a41639; /* G */ struct w49 a41686; /* G */ struct w49 a41688; /* G */ struct w49 a41689; /* G */ struct w49 a41690; /* G */ struct w49 a41717; /* G */ struct w49 a41720; /* G */ struct w49 a41721; /* G */ struct w49 a41722; /* G */ struct w49 a41723; /* G */ struct w49 a41724; /* G */ struct structure_type24753 *a41825; /* CS */ struct structure_type24753 *a41848; /* CS */ struct structure_type24753 *a41849; /* CS */ struct structure_type24753 *a41850; /* CS */ struct w49 t39821; struct p15803 *t39822; struct w49 t39823; struct p15806 *t39824; struct w49 t39825; struct p15807 *t39826; struct w49 t39827; struct w49 t39828; struct w49 t39829; struct w16638 t39830; struct w16638 t39831; struct w49 t39832; struct w49 t39833; struct w49 t39834; struct w49 t39835; struct w49 t39836; struct w49 t39837; struct w49 t39838; struct w49 t39839; struct w49 t39840; struct w49 t39841; struct p15800 *t39842; struct w49 t39843; struct w49 t39844; struct w49 t39845; struct w49 t39846; struct w49 t39847; struct w49 t39848; struct w49 t39849; struct w49 t39850; struct w16638 t39851; struct w16638 t39852; struct w49 t39853; struct w49 t39854; struct w49 t39855; struct w49 t39856; struct w49 t39857; struct w49 t39858; struct w49 t39859; struct w16638 t39860; struct w16638 t39861; struct w49 t39862; struct w49 t39863; struct structure_type24753 *t39864; struct w49 t39865; struct w49 t39866; struct structure_type27501 *t39867; struct w49 t39868; struct w49 t39869; struct w12218 t39870; struct w49 t39871; struct w49 t39872; struct w49 t39873; struct w49 t39874; struct w49 t39875; struct w49 t39876; struct w16638 t39877; struct w16638 t39878; struct p15800 *t39879; struct w49 t39880; struct w49 t39881; struct w49 t39882; struct w49 t39883; struct w49 t39884; struct w49 t39885; struct w49 t39886; struct w49 t39887; struct w16638 t39888; struct w16638 t39889; struct w49 t39890; struct w49 t39891; struct w49 t39892; struct w49 t39893; struct w49 t39894; struct w49 t39895; struct w49 t39896; struct w16638 t39897; struct w16638 t39898; struct w49 t39899; struct w49 t39900; struct w49 t39901; struct w49 t39902; struct w49 t39903; struct w49 t39904; struct structure_type27501 *t39905; struct structure_type27745 *t39906; struct w49 t39907; struct w16638 t39908; struct w49 t39909; struct w49 t39910; struct structure_type27501 *t39911; struct w12218 t39912; struct structure_type27501 *t39913; struct w12218 t39914; struct w16638 t39915; struct structure_type24753 *t39916; struct w49 t39917; struct w49 t39918; struct w49 t39919; struct w49 t39920; struct w49 t39921; struct structure_type24753 *t39922; struct structure_type24753 *t39923; struct w16638 t39924; struct w16638 t39925; struct w49 t39926; struct w49 t39927; struct structure_type24753 *t39928; struct w49 t39929; struct structure_type24753 *t39930; struct p7720 *t39931; struct w49 t39932; struct w211113 t39933; struct w16638 t39934; struct structure_type24753 *t39935; struct w49 t39936; struct w49 t39937; struct w49 t39938; struct structure_type27745 *t39939; struct structure_type27745 *t39940; struct w12224 t39941; struct w12224 t39942; struct w12224 t39943; struct structure_type24753 *t39944; struct structure_type24753 *t39945; char *t39946; struct w49 t39947; struct w49 t39948; struct w49 t39949; struct w49 t39950; struct w49 t39951; struct w49 t39952; struct w49 t39953; struct w49 t39954; struct w49 t39955; struct w49 t39956; struct w49 t39957; struct w49 t39958; struct w49 t39959; struct w49 t39960; struct w49 t39961; struct w49 t39962; struct w16638 t39963; struct w16638 t39964; struct w49 t39965; struct w49 t39966; struct w49 t39967; struct w49 t39968; struct w49 t39969; struct w49 t39970; struct w49 t39971; struct w49 t39972; struct w49 t39973; struct w49 t39974; struct structure_type24753 *t39975; struct w49 t39976; struct w49 t39977; struct w49 t39978; struct structure_type27501 *t39979; struct w12218 t39980; struct structure_type27501 *t39981; struct w12218 t39982; struct w49 t39983; struct w49 t39984; struct w49 t39985; struct w49 t39986; struct structure_type24753 *t39987; struct w49 t39988; struct w49 t39989; struct w49 t39990; struct w49 t39991; struct w49 t39992; struct w49 t39993; struct structure_type27745 *t39994; struct structure_type27501 *t39995; struct w49 t39996; struct w49 t39997; struct w12218 t39998; struct w49 t39999; struct w60864 t40000; struct w49 t40001; struct w49 t40002; struct w49 t40003; struct w49 t40004; struct w49 t40005; struct structure_type27501 *t40006; struct w49 t40007; struct w49 t40008; struct w12218 t40009; struct w49 t40010; struct w60864 t40011; struct w49 t40012; struct w49 t40013; struct w49 t40014; struct w49 t40015; struct w49 t40016; struct structure_type27501 *t40017; char *t40018; struct w49 t40019; struct structure_type27501 *t40020; struct w49 t40021; struct w49 t40022; struct w49 t40023; struct w49 t40024; struct w49 t40025; struct w49 t40026; struct w49 t40027; struct w49 t40028; struct w49 t40029; struct w49 t40030; struct w49 t40031; struct w16638 t40032; struct w16638 t40033; struct w49 t40034; struct w49 t40035; struct structure_type24753 *t40036; struct w49 t40037; struct w49 t40038; struct structure_type27501 *t40039; struct w12218 t40040; struct w49 t40041; struct w16638 t40042; struct w49 t40043; struct structure_type24753 *t40044; struct w49 t40045; struct w49 t40046; struct structure_type24753 *t40047; struct structure_type27501 *t40048; struct structure_type27501 *t40049; struct w49 t40050; struct w36270 t40051; struct w49 t40052; struct structure_type24753 *t40053; struct w12224 t40054; struct w12224 t40055; struct structure_type24753 *t40056; struct w49 t40057; struct w16638 t40058; struct w36270 t40059; struct w49 t40060; struct structure_type24753 *t40061; struct structure_type27501 *t40062; struct structure_type27501 *t40063; struct w12563 t40064; struct w12563 t40065; struct w61020 t40066; struct structure_type27501 *t40067; struct structure_type27501 *t40068; struct structure_type27501 *t40069; struct structure_type27501 *t40070; struct w49 t40071; struct w49 t40072; struct w49 t40073; struct w49 t40074; struct w49 t40075; struct w49 t40076; struct w16638 t40077; struct w16638 t40078; struct w49 t40079; struct structure_type27501 *t40080; struct w49 t40081; struct p15807 *t40082; struct p15800 *t40083; struct w49 t40084; struct w49 t40085; struct w49 t40086; struct w49 t40087; struct w49 t40088; struct w49 t40089; struct structure_type27501 *t40090; struct w49 t40091; struct w49 t40092; struct w12218 t40093; struct w49 t40094; struct w49 t40095; struct w49 t40096; struct w49 t40097; struct w49 t40098; struct w49 t40099; struct w49 t40100; struct w49 t40101; struct w49 t40102; struct w49 t40103; struct w49 t40104; struct w49 t40105; struct p15806 *t40106; struct w49 t40107; struct structure_type24753 *t40108; struct p15806 *t40109; struct w49 t40110; struct structure_type24753 *t40111; struct p15803 *t40112; struct w49 t40113; struct w49 t40114; struct w16638 t40115; struct w16638 t40116; struct w49 t40117; struct structure_type27501 *t40118; struct w49 t40119; struct p15800 *t40120; struct p15803 *e15803; struct p15806 *e15806; struct p15807 *e15807; struct p15803 *p15806; struct p15806 *p15807; struct p15807 *p15808; struct p15806 *p15809; struct p15806 *p15810; struct p15806 *p15816; struct p15806 *p15817; struct p15806 *p15818; struct p15806 *p15819; struct p15806 *p15820; struct p15806 *p15821; struct p15806 *p15822; struct p15803 *p15823; struct p15806 *p15824; struct p15806 *p15825; sfp15803 = fp15803; h15803: e15803 = (struct p15803 *)alloca(sizeof(struct p15803)); if (e15803==NULL) {backtrace_internal("[inside GATHER 15801]"); out_of_memory_error();} e15803->p15800 = p15803; e15803->a26938 = a26938; e15803->a26939 = a26939; e15803->a26940 = a26940; e15803->a26941 = a26941; e15803->a26942 = a26942; e15803->a26943 = a26943; /* x146982 stalin.sc:19526:682657 */ /* x146617 stalin.sc:19526:682661 */ /* x146616 stalin.sc:19526:682668 */ t39821 = e15803->a26943; /* x268480 stalin.sc:19526:682662 */ if (!((t39821.tag)==NULL_TYPE)) goto l5880; /* x146632 stalin.sc:19527:682678 */ /* x146619 stalin.sc:19527:682691 */ /* x146620 stalin.sc:19528:682707 */ t40117 = e15803->a26941; /* x146621 stalin.sc:19529:682714 */ t40118 = a1194; /* x146622 stalin.sc:19530:682729 */ t40119 = e15803->a26940; /* x146625 stalin.sc:19531:682736 */ /* x146631 stalin.sc:19532:682763 */ t40120 = p15803; /* x146618 stalin.sc:19527:682679 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7435; b26112 = t40117; b26113 = t40118; b26114 = t40119; b26115.tag = NATIVE_PROCEDURE_TYPE21904; b26116.tag = NATIVE_PROCEDURE_TYPE21903; b26116.value.native_procedure_type21903 = t40120; r15803 = f14692(); while ((sfp15803<(&((region15803->data)[0])))||(sfp15803>(&((region15803->data)[region_size15803])))) {struct region15803 *region; region = region15803; region_size15803 = region15803->region_size; region15803 = region15803->region; GC_free(region);} fp15803 = sfp15803; return r15803; l5880: /* x146981 stalin.sc:19533:682812 */ /* x146980 stalin.sc:19533:682822 */ /* x146979 stalin.sc:19533:682829 */ t40115 = *((struct w16638 *)(&(e15803->a26943))); /* x146978 stalin.sc:19533:682823 */ a35778 = t40115; /* x274469 */ /* x274468 */ t40116 = a35778; /* x274467 */ if (!((t40116.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29927]"); structure_ref_error();} t39823 = t40116.value.structure_type24753->s0; /* x146977 */ t39822 = e15803; p15806 = t39822; a26946 = t39823; if ((fp15803+sizeof(struct p15806))>(&((region15803->data)[region_size15803]))) {struct region15803 *region; unsigned region_size = REGION_SIZE15803; if (sizeof(struct p15806)>region_size) region_size = sizeof(struct p15806); region = (struct region15803 *)GC_malloc_uncollectable(sizeof(struct region15803)+(region_size-1)); if (region==NULL) {backtrace_internal("LOOP[15803]"); out_of_memory_error();} region->region = region15803; region->region_size = region_size15803; region_size15803 = region_size; region15803 = region; fp15803 = &((region->data)[0]); ALIGN(fp15803);} e15806 = (struct p15806 *)fp15803; fp15803 += sizeof(struct p15806)+((4-(sizeof(struct p15806)%4))&3); e15806->p15803 = p15806; e15806->a26946 = a26946; /* x146976 */ /* x146975 stalin.sc:19534:682843 */ /* x146947 stalin.sc:19535:682853 */ /* x146934 stalin.sc:19535:682858 */ /* x146933 stalin.sc:19535:682865 */ t40098 = p15806->a26942; /* x268471 stalin.sc:19535:682859 */ if (!((t40098.tag)==STRUCTURE_TYPE24753)) goto l5930; /* x146945 */ /* x146944 stalin.sc:19535:682874 */ /* x146943 stalin.sc:19535:682882 */ t40099 = e15806->a26946; /* x146942 stalin.sc:19535:682875 */ a41724 = t40099; /* x301008 stalin.sc:3890:131852 */ /* x301007 stalin.sc:3890:131869 */ t40100 = a41724; /* x301006 stalin.sc:3890:131853 */ if (!(f8204(t40100)==FALSE_TYPE)) goto l5929; p15822 = e15806; /* x146939 */ /* x146938 stalin.sc:19535:682895 */ t40101 = p15822->a26946; /* x146937 stalin.sc:19535:682886 */ a41639 = t40101; /* x300668 stalin.sc:3965:133896 */ /* x300667 stalin.sc:3965:133915 */ t40102 = a41639; /* x300666 stalin.sc:3965:133897 */ if (f8219(t40102)==FALSE_TYPE) goto l5930; l5929: /* x146952 */ /* x146951 */ t40112 = p15806; p15823 = t40112; /* x146950 stalin.sc:19535:682900 */ /* x146949 stalin.sc:19535:682907 */ t40113 = p15823->a26942; /* x146948 stalin.sc:19535:682901 */ a35777 = t40113; /* x274465 */ /* x274464 */ t40114 = a35777; /* x274463 */ if (!((t40114.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29926]"); structure_ref_error();} t39825 = t40114.value.structure_type24753->s0; goto l5931; l5930: /* x146974 */ /* x146963 stalin.sc:19536:682917 */ /* x146956 stalin.sc:19536:682922 */ /* x146954 stalin.sc:19536:682927 */ t40103 = p15806->a26942; /* x146955 stalin.sc:19536:682931 */ /* x268470 stalin.sc:19536:682923 */ if (!((t40103.tag)==TRUE_TYPE)) goto l5935; /* x146961 */ /* x146960 stalin.sc:19536:682940 */ /* x146959 stalin.sc:19536:682949 */ t40104 = e15806->a26946; /* x146958 stalin.sc:19536:682941 */ a41689 = t40104; /* x300868 stalin.sc:3916:132554 */ /* x300867 stalin.sc:3916:132572 */ t40105 = a41689; /* x300866 stalin.sc:3916:132555 */ if (!(f8209(t40105)==FALSE_TYPE)) goto l5935; /* x146968 */ /* x146967 */ t40109 = e15806; p15824 = t40109; /* x146966 stalin.sc:19536:682954 */ /* x146965 stalin.sc:19536:682959 */ t40110 = p15824->a26946; /* x146964 stalin.sc:19536:682955 */ t40111 = f14271(t40110); t39825.tag = STRUCTURE_TYPE24753; t39825.value.structure_type24753 = t40111; goto l5936; l5935: /* x146973 */ /* x146972 */ t40106 = e15806; p15825 = t40106; /* x146971 stalin.sc:19542:683270 */ /* x146970 stalin.sc:19542:683275 */ t40107 = p15825->a26946; /* x146969 stalin.sc:19542:683271 */ t40108 = f14269(t40107); t39825.tag = STRUCTURE_TYPE24753; t39825.value.structure_type24753 = t40108; l5936: l5931: /* x146931 */ t39824 = e15806; p15807 = t39824; a26947 = t39825; if ((fp15803+sizeof(struct p15807))>(&((region15803->data)[region_size15803]))) {struct region15803 *region; unsigned region_size = REGION_SIZE15803; if (sizeof(struct p15807)>region_size) region_size = sizeof(struct p15807); region = (struct region15803 *)GC_malloc_uncollectable(sizeof(struct region15803)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside LOOP 15806]"); out_of_memory_error();} region->region = region15803; region->region_size = region_size15803; region_size15803 = region_size; region15803 = region; fp15803 = &((region->data)[0]); ALIGN(fp15803);} e15807 = (struct p15807 *)fp15803; fp15803 += sizeof(struct p15807)+((4-(sizeof(struct p15807)%4))&3); e15807->p15806 = p15807; e15807->a26947 = a26947; /* x146930 */ /* x146929 */ t39826 = e15807; p15808 = t39826; /* x146928 stalin.sc:19543:683289 */ /* x146635 stalin.sc:19543:683293 */ /* x146634 stalin.sc:19543:683300 */ t39827 = p15808->p15806->p15803->a26939; /* x268479 stalin.sc:19543:683294 */ if (!((t39827.tag)==NULL_TYPE)) goto l5882; /* x146767 stalin.sc:19544:683308 */ /* x146645 stalin.sc:19544:683312 */ /* x146638 stalin.sc:19544:683317 */ /* x146637 stalin.sc:19544:683324 */ t40075 = p15808->p15806->p15803->p15800->a26928; /* x146636 stalin.sc:19544:683318 */ if (f8931(t40075)==FALSE_TYPE) goto l5923; /* x146643 */ /* x146642 stalin.sc:19544:683335 */ /* x146641 stalin.sc:19544:683341 */ t40077 = *((struct w16638 *)(&(p15808->p15806->p15803->a26943))); /* x146640 stalin.sc:19544:683336 */ a35386 = t40077; /* x272901 */ /* x272900 */ t40078 = a35386; /* x272899 */ if (!((t40078.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29535]"); structure_ref_error();} t40076 = t40078.value.structure_type24753->s1; /* x268478 stalin.sc:19544:683329 */ if (!((t40076.tag)==NULL_TYPE)) goto l5923; /* x146677 stalin.sc:19545:683355 */ /* x146664 stalin.sc:19545:683359 */ /* x146663 stalin.sc:19545:683363 */ /* x146662 stalin.sc:19545:683371 */ t40084 = p15808->p15806->a26946; /* x146661 stalin.sc:19545:683364 */ a41717 = t40084; /* x300980 stalin.sc:3890:131852 */ /* x300979 stalin.sc:3890:131869 */ t40085 = a41717; /* x300978 stalin.sc:3890:131853 */ if (!(f8204(t40085)==FALSE_TYPE)) goto l5925; p15809 = p15808->p15806; /* x146658 */ /* x146657 stalin.sc:19545:683374 */ /* x146656 stalin.sc:19545:683383 */ t40086 = p15809->a26946; /* x146655 stalin.sc:19545:683375 */ a41686 = t40086; /* x300856 stalin.sc:3916:132554 */ /* x300855 stalin.sc:3916:132572 */ t40087 = a41686; /* x300854 stalin.sc:3916:132555 */ if (!(f8209(t40087)==FALSE_TYPE)) goto l5925; p15810 = p15809; /* x146652 */ /* x146651 stalin.sc:19545:683396 */ t40088 = p15810->a26946; /* x146650 stalin.sc:19545:683387 */ a41632 = t40088; /* x300640 stalin.sc:3965:133896 */ /* x300639 stalin.sc:3965:133915 */ t40089 = a41632; /* x300638 stalin.sc:3965:133897 */ if (f8219(t40089)==FALSE_TYPE) goto l5926; l5925: /* x146674 stalin.sc:19546:683405 */ /* x146671 stalin.sc:19546:683411 */ /* x146669 stalin.sc:19546:683435 */ /* x146668 stalin.sc:19546:683454 */ t40096 = p15808->p15806->a26946; /* x146667 stalin.sc:19546:683436 */ a36837 = t40096; /* x280017 */ /* x280016 */ t40097 = a36837; /* x280015 */ if (!((t40097.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31754]"); structure_ref_error();} t40094 = t40097.value.structure_type27692->s9; /* x146670 stalin.sc:19546:683457 */ t40095 = p15808->a26947; /* x146666 stalin.sc:19546:683412 */ t40090 = f7025(t40094, t40095); /* x146672 stalin.sc:19546:683460 */ t40091 = p15808->p15806->p15803->a26940; /* x146673 stalin.sc:19546:683462 */ t40092 = p15808->p15806->p15803->a26941; /* x146665 stalin.sc:19546:683406 */ t40093.tag = STRUCTURE_TYPE27501; t40093.value.structure_type27501 = t40090; r15803 = f15496(t40093, t40091, t40092); while ((sfp15803<(&((region15803->data)[0])))||(sfp15803>(&((region15803->data)[region_size15803])))) {struct region15803 *region; region = region15803; region_size15803 = region15803->region_size; region15803 = region15803->region; GC_free(region);} fp15803 = sfp15803; return r15803; l5926: /* x146676 stalin.sc:19547:683470 */ /* x146675 stalin.sc:19547:683471 */ /* x276541 stalin.sc:14693:514793 */ r15803.tag = STRING_TYPE; r15803.value.string_type = ""; while ((sfp15803<(&((region15803->data)[0])))||(sfp15803>(&((region15803->data)[region_size15803])))) {struct region15803 *region; region = region15803; region_size15803 = region15803->region_size; region15803 = region15803->region; GC_free(region);} fp15803 = sfp15803; return r15803; l5923: /* x146766 stalin.sc:19548:683488 */ /* x146679 stalin.sc:19549:683503 */ /* x146680 stalin.sc:19550:683516 */ t40079 = p15808->p15806->p15803->a26941; /* x146681 stalin.sc:19551:683520 */ t40080 = a1194; /* x146682 stalin.sc:19552:683532 */ t40081 = p15808->p15806->p15803->a26940; /* x146759 stalin.sc:19553:683536 */ t40082 = p15808; /* x146765 stalin.sc:19568:683912 */ t40083 = p15808->p15806->p15803->p15800; /* x146678 stalin.sc:19548:683489 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7413; b26112 = t40079; b26113 = t40080; b26114 = t40081; b26115.tag = NATIVE_PROCEDURE_TYPE21897; b26115.value.native_procedure_type21897 = t40082; b26116.tag = NATIVE_PROCEDURE_TYPE21896; b26116.value.native_procedure_type21896 = t40083; r15803 = f14692(); while ((sfp15803<(&((region15803->data)[0])))||(sfp15803>(&((region15803->data)[region_size15803])))) {struct region15803 *region; region = region15803; region_size15803 = region15803->region_size; region15803 = region15803->region; GC_free(region);} fp15803 = sfp15803; return r15803; l5882: /* x146927 stalin.sc:19569:683960 */ /* x146777 stalin.sc:19569:683964 */ /* x146770 stalin.sc:19569:683969 */ /* x146769 stalin.sc:19569:683976 */ t39828 = p15808->p15806->p15803->p15800->a26928; /* x146768 stalin.sc:19569:683970 */ if (f8931(t39828)==FALSE_TYPE) goto l5884; /* x146775 */ /* x146774 stalin.sc:19569:683987 */ /* x146773 stalin.sc:19569:683993 */ t39830 = *((struct w16638 *)(&(p15808->p15806->p15803->a26943))); /* x146772 stalin.sc:19569:683988 */ a35396 = t39830; /* x272941 */ /* x272940 */ t39831 = a35396; /* x272939 */ if (!((t39831.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29545]"); structure_ref_error();} t39829 = t39831.value.structure_type24753->s1; /* x268476 stalin.sc:19569:683981 */ if (!((t39829.tag)==NULL_TYPE)) goto l5884; /* x146812 stalin.sc:19570:684007 */ /* x146796 stalin.sc:19570:684011 */ /* x146795 stalin.sc:19570:684015 */ /* x146794 stalin.sc:19570:684023 */ t39899 = p15808->p15806->a26946; /* x146793 stalin.sc:19570:684016 */ a41720 = t39899; /* x300992 stalin.sc:3890:131852 */ /* x300991 stalin.sc:3890:131869 */ t39900 = a41720; /* x300990 stalin.sc:3890:131853 */ if (!(f8204(t39900)==FALSE_TYPE)) goto l5901; p15816 = p15808->p15806; /* x146790 */ /* x146789 stalin.sc:19570:684026 */ /* x146788 stalin.sc:19570:684035 */ t39901 = p15816->a26946; /* x146787 stalin.sc:19570:684027 */ a41688 = t39901; /* x300864 stalin.sc:3916:132554 */ /* x300863 stalin.sc:3916:132572 */ t39902 = a41688; /* x300862 stalin.sc:3916:132555 */ if (!(f8209(t39902)==FALSE_TYPE)) goto l5901; p15817 = p15816; /* x146784 */ /* x146783 stalin.sc:19570:684048 */ t39903 = p15817->a26946; /* x146782 stalin.sc:19570:684039 */ a41635 = t39903; /* x300652 stalin.sc:3965:133896 */ /* x300651 stalin.sc:3965:133915 */ t39904 = a41635; /* x300650 stalin.sc:3965:133897 */ if (f8219(t39904)==FALSE_TYPE) goto l5902; l5901: /* x146809 stalin.sc:19571:684057 */ /* x146803 stalin.sc:19572:684078 */ /* x146801 stalin.sc:19572:684102 */ /* x146800 stalin.sc:19572:684121 */ t40073 = p15808->p15806->a26946; /* x146799 stalin.sc:19572:684103 */ a36839 = t40073; /* x280025 */ /* x280024 */ t40074 = a36839; /* x280023 */ if (!((t40074.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31756]"); structure_ref_error();} t40071 = t40074.value.structure_type27692->s9; /* x146802 stalin.sc:19572:684124 */ t40072 = p15808->a26947; /* x146798 stalin.sc:19572:684079 */ t39905 = f7025(t40071, t40072); /* x146804 stalin.sc:19573:684133 */ t39906 = p15808->p15806->p15803->p15800->a26929; /* x146805 stalin.sc:19573:684135 */ t39907 = p15808->p15806->p15803->a26938; /* x146806 stalin.sc:19573:684138 */ t39908 = *((struct w16638 *)(&(p15808->p15806->p15803->a26939))); /* x146807 stalin.sc:19573:684141 */ t39909 = p15808->p15806->p15803->a26940; /* x146808 stalin.sc:19573:684143 */ t39910 = p15808->p15806->p15803->a26941; /* x146797 stalin.sc:19571:684058 */ a26896 = t39905; a26897 = t39906; a26898 = t39907; a26899 = t39908; a26900 = t39909; a26901 = t39910; /* x146433 stalin.sc:19428:679785 */ /* x146187 stalin.sc:19429:679794 */ /* x146186 stalin.sc:19429:679804 */ t39911 = a26896; /* x146185 stalin.sc:19429:679795 */ t39912.tag = STRUCTURE_TYPE27501; t39912.value.structure_type27501 = t39911; if (f7031(t39912)==FALSE_TYPE) goto l5906; /* x146191 */ /* x146190 */ /* x146189 stalin.sc:19429:679807 */ /* x146188 stalin.sc:19429:679808 */ /* x276545 stalin.sc:14693:514793 */ r15803.tag = STRING_TYPE; r15803.value.string_type = ""; while ((sfp15803<(&((region15803->data)[0])))||(sfp15803>(&((region15803->data)[region_size15803])))) {struct region15803 *region; region = region15803; region_size15803 = region15803->region_size; region15803 = region15803->region; GC_free(region);} fp15803 = sfp15803; return r15803; l5906: /* x146432 */ /* x146194 stalin.sc:19430:679820 */ /* x146193 stalin.sc:19430:679833 */ t39913 = a26896; /* x146192 stalin.sc:19430:679821 */ t39914.tag = STRUCTURE_TYPE27501; t39914.value.structure_type27501 = t39913; if (f7032(t39914)==FALSE_TYPE) goto l5908; /* x146204 */ /* x146203 */ /* x146202 stalin.sc:19430:679836 */ /* x146198 stalin.sc:19430:679850 */ /* x146197 stalin.sc:19430:679861 */ t40067 = a26896; /* x146196 stalin.sc:19430:679851 */ a38363 = t40067; /* x286121 */ /* x286120 */ t40068 = a38363; /* x286119 */ t40064 = t40068->s4; /* x146201 stalin.sc:19430:679864 */ /* x146200 stalin.sc:19430:679875 */ t40069 = a26896; /* x146199 stalin.sc:19430:679865 */ a38336 = t40069; /* x286013 */ /* x286012 */ t40070 = a38336; /* x286011 */ t40065 = t40070->s6; /* x146195 stalin.sc:19430:679837 */ t40066 = f15756(t40064, t40065); while ((sfp15803<(&((region15803->data)[0])))||(sfp15803>(&((region15803->data)[region_size15803])))) {struct region15803 *region; region = region15803; region_size15803 = region15803->region_size; region15803 = region15803->region; GC_free(region);} fp15803 = sfp15803; return *((struct w49 *)(&t40066)); l5908: /* x146431 */ /* x146207 stalin.sc:19431:679883 */ /* x146206 stalin.sc:19431:679890 */ t39915 = a26899; /* x268487 stalin.sc:19431:679884 */ /* x146430 */ /* x146429 */ /* x146428 stalin.sc:19433:679919 */ /* x146422 stalin.sc:19433:679935 */ /* x146421 stalin.sc:19433:679948 */ t40058 = a26899; /* x146420 stalin.sc:19433:679940 */ /* x146419 stalin.sc:19433:679936 */ t40059.tag = NATIVE_PROCEDURE_TYPE7353; t40060 = *((struct w49 *)(&t40058)); t40061 = (struct structure_type24753 *)NULL_TYPE; t39916 = f27731(t40059, t40060, t40061); /* x146425 stalin.sc:19434:679964 */ /* x146424 stalin.sc:19434:679981 */ t40062 = a26896; /* x146423 stalin.sc:19434:679965 */ a38417 = t40062; /* x286337 */ /* x286336 */ t40063 = a38417; /* x286335 */ t39917 = t40063->s2; /* x146426 stalin.sc:19435:679997 */ /* x146427 stalin.sc:19436:680014 */ /* x146418 */ /* x146417 */ /* x146416 */ /* x146415 */ /* x146414 */ /* x146413 */ /* x146412 */ /* x146216 */ /* x146215 stalin.sc:19433:679924 */ /* MOVE: branching squeezed to general */ if (t39916>=((struct structure_type24753 *)VALUE_OFFSET)) {a26904.tag = STRUCTURE_TYPE24753; a26904.value.structure_type24753 = t39916;} else a26904.tag = (unsigned)t39916; a26905 = t39917; a26906 = (struct structure_type24753 *)NULL_TYPE; a26907 = (struct structure_type24753 *)NULL_TYPE; h15781: /* x146411 stalin.sc:19437:680024 */ /* x146219 stalin.sc:19437:680028 */ /* x146218 stalin.sc:19437:680035 */ t39918 = a26904; /* x268486 stalin.sc:19437:680029 */ if (!((t39918.tag)==NULL_TYPE)) goto l5911; /* x146380 stalin.sc:19438:680041 */ /* x146355 stalin.sc:19438:680056 */ /* x146354 stalin.sc:19438:680065 */ t40041 = a26898; /* x146353 stalin.sc:19438:680057 */ t39941 = f26331(t40041); /* x146358 stalin.sc:19439:680079 */ /* x146357 stalin.sc:19439:680088 */ t40042 = a26899; /* x146356 stalin.sc:19439:680080 */ t40043 = *((struct w49 *)(&t40042)); t39942 = f26331(t40043); /* x146373 stalin.sc:19440:680103 */ /* x146372 stalin.sc:19441:680116 */ /* x146363 stalin.sc:19441:680122 */ /* x146362 stalin.sc:19441:680132 */ t40048 = a26896; /* x146361 stalin.sc:19441:680123 */ a38387 = t40048; /* x286217 */ /* x286216 */ t40049 = a38387; /* x286215 */ t40046 = t40049->s3; /* x146371 stalin.sc:19442:680145 */ /* x146370 stalin.sc:19442:680169 */ /* x146369 stalin.sc:19442:680175 */ /* x146368 stalin.sc:19442:680184 */ t40056 = a26907; /* x146367 stalin.sc:19442:680176 */ /* MOVE: branching squeezed to general */ if (t40056>=((struct structure_type24753 *)VALUE_OFFSET)) {t40057.tag = STRUCTURE_TYPE24753; t40057.value.structure_type24753 = t40056;} else t40057.tag = (unsigned)t40056; t40054 = f26331(t40057); /* x146366 stalin.sc:19442:680170 */ a35394 = t40054; /* x272933 */ /* x272932 */ t40055 = a35394; /* x272931 */ if (!((t40055.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29543]"); structure_ref_error();} t40050 = t40055.value.structure_type24753->s1; /* x146365 stalin.sc:19442:680150 */ /* x146364 stalin.sc:19442:680146 */ t40051.tag = NATIVE_PROCEDURE_TYPE6686; t40052 = t40050; t40053 = (struct structure_type24753 *)NULL_TYPE; t40047 = f27731(t40051, t40052, t40053); /* x268483 stalin.sc:19441:680117 */ t40044 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t40044==NULL) {backtrace("stalin.sc", 19441, 680116); out_of_memory_error();} t40044->s0 = t40046; /* MOVE: branching squeezed to general */ if (t40047>=((struct structure_type24753 *)VALUE_OFFSET)) {t40044->s1.tag = STRUCTURE_TYPE24753; t40044->s1.value.structure_type24753 = t40047;} else t40044->s1.tag = (unsigned)t40047; /* x146359 stalin.sc:19440:680104 */ t40045.tag = STRUCTURE_TYPE24753; t40045.value.structure_type24753 = t40044; t39943 = f26331(t40045); /* x146374 stalin.sc:19443:680204 */ t39944 = a26906; /* x146375 stalin.sc:19444:680219 */ t39945 = a26907; /* x146377 stalin.sc:19445:680232 */ /* x146376 stalin.sc:19445:680233 */ /* x276549 stalin.sc:14693:514793 */ t39946 = ""; /* x146378 stalin.sc:19446:680250 */ t39947 = a26900; /* x146379 stalin.sc:19447:680261 */ t39948 = a26901; /* x146352 */ /* x146351 */ /* x146350 */ /* x146349 */ /* x146348 */ /* x146347 */ /* x146346 */ /* x146221 */ /* x146220 stalin.sc:19438:680046 */ a26910 = *((struct w49 *)(&t39941)); a26911 = *((struct w49 *)(&t39942)); a26912 = *((struct w49 *)(&t39943)); /* MOVE: branching squeezed to general */ if (t39944>=((struct structure_type24753 *)VALUE_OFFSET)) {a26913.tag = STRUCTURE_TYPE24753; a26913.value.structure_type24753 = t39944;} else a26913.tag = (unsigned)t39944; /* MOVE: branching squeezed to general */ if (t39945>=((struct structure_type24753 *)VALUE_OFFSET)) {a26914.tag = STRUCTURE_TYPE24753; a26914.value.structure_type24753 = t39945;} else a26914.tag = (unsigned)t39945; a26915.tag = STRING_TYPE; a26915.value.string_type = t39946; a26916 = t39947; a26917 = t39948; h15784: /* x146345 stalin.sc:19448:680267 */ /* x146224 stalin.sc:19448:680271 */ /* x146223 stalin.sc:19448:680278 */ t39949 = a26910; /* x268485 stalin.sc:19448:680272 */ if (!((t39949.tag)==NULL_TYPE)) goto l5913; /* x146230 stalin.sc:19449:680288 */ /* x146229 stalin.sc:19449:680307 */ /* x146228 stalin.sc:19449:680323 */ t40039 = a26896; /* x146227 stalin.sc:19449:680308 */ t40040.tag = STRUCTURE_TYPE27501; t40040.value.structure_type27501 = t40039; t40035 = f15342(t40040); /* x146226 stalin.sc:19449:680305 */ t40034 = a26915; /* x146225 stalin.sc:19449:680289 */ t40038.tag = STRUCTURE_TYPE24753; t40038.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40038.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19449, 680288); out_of_memory_error();} t40038.value.structure_type24753->s0 = t40035; t40038.value.structure_type24753->s1.tag = NULL_TYPE; a41848 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41848==NULL) {backtrace("stalin.sc", 19449, 680288); out_of_memory_error();} a41848->s0 = t40034; a41848->s1 = t40038; /* x301504 stalin.sc:14400:506485 */ /* x301503 stalin.sc:14400:506503 */ t40036 = a41848; /* x301502 stalin.sc:14400:506486 */ t40037.tag = STRUCTURE_TYPE24753; t40037.value.structure_type24753 = t40036; r15803 = f13492(t40037); while ((sfp15803<(&((region15803->data)[0])))||(sfp15803>(&((region15803->data)[region_size15803])))) {struct region15803 *region; region = region15803; region_size15803 = region15803->region_size; region15803 = region15803->region; GC_free(region);} fp15803 = sfp15803; return r15803; l5913: /* x146344 stalin.sc:19450:680333 */ /* x146331 stalin.sc:19454:680429 */ /* x146330 stalin.sc:19454:680436 */ t40024 = a26914; /* x146329 stalin.sc:19454:680430 */ a35769 = t40024; /* x274433 */ /* x274432 */ t40025 = a35769; /* x274431 */ if (!((t40025.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29918]"); structure_ref_error();} t39950 = t40025.value.structure_type24753->s0; /* x146334 stalin.sc:19453:680407 */ /* x146333 stalin.sc:19453:680414 */ t40026 = a26913; /* x146332 stalin.sc:19453:680408 */ a35770 = t40026; /* x274437 */ /* x274436 */ t40027 = a35770; /* x274435 */ if (!((t40027.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29919]"); structure_ref_error();} t39951 = t40027.value.structure_type24753->s0; /* x146337 stalin.sc:19452:680385 */ /* x146336 stalin.sc:19452:680392 */ t40028 = a26912; /* x146335 stalin.sc:19452:680386 */ a35771 = t40028; /* x274441 */ /* x274440 */ t40029 = a35771; /* x274439 */ if (!((t40029.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29920]"); structure_ref_error();} t39952 = t40029.value.structure_type24753->s0; /* x146340 stalin.sc:19451:680364 */ /* x146339 stalin.sc:19451:680371 */ t40030 = a26911; /* x146338 stalin.sc:19451:680365 */ a35772 = t40030; /* x274445 */ /* x274444 */ t40031 = a35772; /* x274443 */ if (!((t40031.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29921]"); structure_ref_error();} t39953 = t40031.value.structure_type24753->s0; /* x146343 stalin.sc:19450:680343 */ /* x146342 stalin.sc:19450:680350 */ t40032 = *((struct w16638 *)(&a26910)); /* x146341 stalin.sc:19450:680344 */ a35773 = t40032; /* x274449 */ /* x274448 */ t40033 = a35773; /* x274447 */ if (!((t40033.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29922]"); structure_ref_error();} t39954 = t40033.value.structure_type24753->s0; /* x146328 */ a26918 = t39950; a26919 = t39951; a26920 = t39952; a26921 = t39953; a26922 = t39954; /* x146327 stalin.sc:19455:680450 */ /* x146234 stalin.sc:19456:680464 */ /* x146233 stalin.sc:19456:680470 */ t39963 = *((struct w16638 *)(&a26910)); /* x146232 stalin.sc:19456:680465 */ a35389 = t39963; /* x272913 */ /* x272912 */ t39964 = a35389; /* x272911 */ if (!((t39964.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29538]"); structure_ref_error();} t39955 = t39964.value.structure_type24753->s1; /* x146237 stalin.sc:19457:680482 */ /* x146236 stalin.sc:19457:680488 */ t39965 = a26911; /* x146235 stalin.sc:19457:680483 */ a35390 = t39965; /* x272917 */ /* x272916 */ t39966 = a35390; /* x272915 */ if (!((t39966.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29539]"); structure_ref_error();} t39956 = t39966.value.structure_type24753->s1; /* x146240 stalin.sc:19458:680500 */ /* x146239 stalin.sc:19458:680506 */ t39967 = a26912; /* x146238 stalin.sc:19458:680501 */ a35391 = t39967; /* x272921 */ /* x272920 */ t39968 = a35391; /* x272919 */ if (!((t39968.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29540]"); structure_ref_error();} t39957 = t39968.value.structure_type24753->s1; /* x146243 stalin.sc:19459:680519 */ /* x146242 stalin.sc:19459:680525 */ t39969 = a26913; /* x146241 stalin.sc:19459:680520 */ a35392 = t39969; /* x272925 */ /* x272924 */ t39970 = a35392; /* x272923 */ if (!((t39970.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29541]"); structure_ref_error();} t39958 = t39970.value.structure_type24753->s1; /* x146246 stalin.sc:19460:680538 */ /* x146245 stalin.sc:19460:680544 */ t39971 = a26914; /* x146244 stalin.sc:19460:680539 */ a35393 = t39971; /* x272929 */ /* x272928 */ t39972 = a35393; /* x272927 */ if (!((t39972.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29542]"); structure_ref_error();} t39959 = t39972.value.structure_type24753->s1; /* x146324 stalin.sc:19461:680557 */ /* x146323 stalin.sc:19463:680580 */ /* x146266 stalin.sc:19463:680587 */ /* x146265 stalin.sc:19463:680591 */ /* x146264 stalin.sc:19463:680604 */ t39978 = a26918; /* x146263 stalin.sc:19463:680592 */ if (!(f8793(t39978)==FALSE_TYPE)) goto l5914; /* x146260 */ /* x146253 stalin.sc:19464:680619 */ /* x146252 stalin.sc:19464:680628 */ t39979 = a26896; /* x146251 stalin.sc:19464:680620 */ t39980.tag = STRUCTURE_TYPE27501; t39980.value.structure_type27501 = t39979; if (f7030(t39980)==FALSE_TYPE) goto l5915; /* x146258 */ /* x146257 stalin.sc:19464:680636 */ /* x146256 stalin.sc:19464:680654 */ t39981 = a26896; /* x146255 stalin.sc:19464:680637 */ t39982.tag = STRUCTURE_TYPE27501; t39982.value.structure_type27501 = t39981; if (!(f15338(t39982)==FALSE_TYPE)) goto l5915; l5914: /* x146270 */ /* x146269 */ /* x146268 stalin.sc:19465:680669 */ /* x146267 stalin.sc:19465:680670 */ /* x276547 stalin.sc:14693:514793 */ t39974.tag = STRING_TYPE; t39974.value.string_type = ""; goto l5916; l5915: /* x146322 */ /* x146273 stalin.sc:19466:680688 */ /* x146272 stalin.sc:19466:680701 */ t39983 = a26919; /* x146271 stalin.sc:19466:680689 */ if (f8793(t39983)==FALSE_TYPE) goto l5920; /* x146283 */ /* x146282 */ /* x146281 stalin.sc:19467:680714 */ /* x146278 stalin.sc:19467:680726 */ /* x146276 stalin.sc:19467:680750 */ t40022 = a26918; /* x146277 stalin.sc:19467:680753 */ t40023 = a26920; /* x146275 stalin.sc:19467:680727 */ t40017 = f7025(t40022, t40023); /* x146279 stalin.sc:19467:680757 */ t40018 = q212; /* x146280 stalin.sc:19467:680765 */ t40019 = a26919; /* x146274 stalin.sc:19467:680715 */ t40020 = t40017; t40021.tag = EXTERNAL_SYMBOL_TYPE; t40021.value.external_symbol_type = t40018; t39974 = f15499(t40020, t40021, t40019); goto l5921; l5920: /* x146321 */ /* x146320 */ /* x146319 stalin.sc:19468:680784 */ /* x146318 stalin.sc:19474:680965 */ /* x146315 stalin.sc:19474:680971 */ /* x146309 stalin.sc:19475:681003 */ /* x146308 stalin.sc:19475:681018 */ t40013 = a26919; /* x146307 stalin.sc:19475:681004 */ t40010 = f7927(t40013); /* x146314 stalin.sc:19475:681022 */ /* x146311 stalin.sc:19475:681033 */ t40014 = a26920; /* x146312 stalin.sc:19475:681036 */ t40015 = a26919; /* x146313 stalin.sc:19475:681039 */ t40016 = a26918; /* x146310 stalin.sc:19475:681023 */ t40011 = f14748(t40014, t40015, t40016); /* x146306 stalin.sc:19474:680972 */ t40012 = *((struct w49 *)(&t40011)); t40006 = f7025(t40010, t40012); /* x146316 stalin.sc:19476:681051 */ t40007 = a26916; /* x146317 stalin.sc:19477:681060 */ t40008 = a26917; /* x146305 stalin.sc:19474:680966 */ t40009.tag = STRUCTURE_TYPE27501; t40009.value.structure_type27501 = t40006; t39986 = f15496(t40009, t40007, t40008); /* x146304 stalin.sc:19470:680857 */ /* x146301 stalin.sc:19470:680863 */ /* x146295 stalin.sc:19471:680895 */ /* x146294 stalin.sc:19471:680910 */ t40002 = a26919; /* x146293 stalin.sc:19471:680896 */ t39999 = f7923(t40002); /* x146300 stalin.sc:19471:680914 */ /* x146297 stalin.sc:19471:680925 */ t40003 = a26920; /* x146298 stalin.sc:19471:680928 */ t40004 = a26919; /* x146299 stalin.sc:19471:680931 */ t40005 = a26918; /* x146296 stalin.sc:19471:680915 */ t40000 = f14747(t40003, t40004, t40005); /* x146292 stalin.sc:19470:680864 */ t40001 = *((struct w49 *)(&t40000)); t39995 = f7025(t39999, t40001); /* x146302 stalin.sc:19472:680943 */ t39996 = a26922; /* x146303 stalin.sc:19473:680953 */ t39997 = a26921; /* x146291 stalin.sc:19470:680858 */ t39998.tag = STRUCTURE_TYPE27501; t39998.value.structure_type27501 = t39995; t39985 = f15496(t39998, t39996, t39997); /* x146290 stalin.sc:19469:680809 */ /* x146286 stalin.sc:19469:680837 */ t39991 = a26920; /* x146287 stalin.sc:19469:680840 */ t39992 = a26919; /* x146288 stalin.sc:19469:680843 */ t39993 = a26918; /* x146289 stalin.sc:19469:680846 */ t39994 = a26897; /* x146285 stalin.sc:19469:680810 */ t39984 = f15610(t39991, t39992, t39993, t39994); /* x146284 stalin.sc:19468:680785 */ t39990.tag = STRUCTURE_TYPE24753; t39990.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t39990.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19468, 680784); out_of_memory_error();} t39990.value.structure_type24753->s0 = t39986; t39990.value.structure_type24753->s1.tag = NULL_TYPE; t39989.tag = STRUCTURE_TYPE24753; t39989.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t39989.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19468, 680784); out_of_memory_error();} t39989.value.structure_type24753->s0 = t39985; t39989.value.structure_type24753->s1 = t39990; a41825 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41825==NULL) {backtrace("stalin.sc", 19468, 680784); out_of_memory_error();} a41825->s0 = t39984; a41825->s1 = t39989; /* x301412 stalin.sc:14400:506485 */ /* x301411 stalin.sc:14400:506503 */ t39987 = a41825; /* x301410 stalin.sc:14400:506486 */ t39988.tag = STRUCTURE_TYPE24753; t39988.value.structure_type24753 = t39987; t39974 = f13492(t39988); l5921: l5916: /* x146248 stalin.sc:19462:680576 */ t39973 = a26915; /* x146247 stalin.sc:19461:680558 */ t39977.tag = STRUCTURE_TYPE24753; t39977.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t39977.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19461, 680557); out_of_memory_error();} t39977.value.structure_type24753->s0 = t39974; t39977.value.structure_type24753->s1.tag = NULL_TYPE; a41849 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41849==NULL) {backtrace("stalin.sc", 19461, 680557); out_of_memory_error();} a41849->s0 = t39973; a41849->s1 = t39977; /* x301508 stalin.sc:14400:506485 */ /* x301507 stalin.sc:14400:506503 */ t39975 = a41849; /* x301506 stalin.sc:14400:506486 */ t39976.tag = STRUCTURE_TYPE24753; t39976.value.structure_type24753 = t39975; t39960 = f13492(t39976); /* x146325 stalin.sc:19478:681075 */ t39961 = a26920; /* x146326 stalin.sc:19479:681086 */ t39962 = a26918; /* x146231 stalin.sc:19455:680451 */ a26910 = t39955; a26911 = t39956; a26912 = t39957; a26913 = t39958; a26914 = t39959; a26915 = t39960; a26916 = t39961; a26917 = t39962; goto h15784; l5911: /* x146410 stalin.sc:19480:681094 */ /* x146409 stalin.sc:19480:681104 */ /* x146407 stalin.sc:19481:681126 */ /* x146400 stalin.sc:19481:681139 */ t39934 = *((struct w16638 *)(&a26904)); /* x146403 stalin.sc:19481:681143 */ /* x146402 stalin.sc:19481:681152 */ t39938 = a26901; /* x146401 stalin.sc:19481:681144 */ t39935 = f8162(t39938); /* x146406 stalin.sc:19481:681155 */ /* x146405 stalin.sc:19481:681177 */ t39939 = a26897; /* x146404 stalin.sc:19481:681156 */ a36428 = t39939; /* x278381 */ /* x278380 */ t39940 = a36428; /* x278379 */ t39936 = t39940->s0; /* x146399 stalin.sc:19481:681127 */ t39937 = *((struct w49 *)(&t39934)); t39931 = f7720(t39937, t39935, t39936); /* x146408 stalin.sc:19481:681181 */ t39932 = a26905; /* x146398 stalin.sc:19480:681105 */ t39933.tag = NATIVE_PROCEDURE_TYPE21881; t39933.value.native_procedure_type21881 = t39931; t39919 = f8157(t39933, t39932); /* x146397 */ a26924 = t39919; /* x146396 stalin.sc:19482:681189 */ /* x146384 stalin.sc:19482:681195 */ /* x146383 stalin.sc:19482:681201 */ t39924 = *((struct w16638 *)(&a26904)); /* x146382 stalin.sc:19482:681196 */ a35395 = t39924; /* x272937 */ /* x272936 */ t39925 = a35395; /* x272935 */ if (!((t39925.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29544]"); structure_ref_error();} t39920 = t39925.value.structure_type24753->s1; /* x146387 stalin.sc:19482:681206 */ /* x146386 stalin.sc:19482:681221 */ t39926 = a26924; /* x146385 stalin.sc:19482:681207 */ t39921 = f7927(t39926); /* x146391 stalin.sc:19482:681225 */ /* x146389 stalin.sc:19482:681231 */ t39927 = a26924; /* x146390 stalin.sc:19482:681234 */ t39928 = a26906; /* x268482 stalin.sc:19482:681226 */ t39922 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t39922==NULL) {backtrace("stalin.sc", 19482, 681225); out_of_memory_error();} t39922->s0 = t39927; /* MOVE: branching squeezed to general */ if (t39928>=((struct structure_type24753 *)VALUE_OFFSET)) {t39922->s1.tag = STRUCTURE_TYPE24753; t39922->s1.value.structure_type24753 = t39928;} else t39922->s1.tag = (unsigned)t39928; /* x146395 stalin.sc:19482:681239 */ /* x146393 stalin.sc:19482:681245 */ t39929 = a26905; /* x146394 stalin.sc:19482:681248 */ t39930 = a26907; /* x268481 stalin.sc:19482:681240 */ t39923 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t39923==NULL) {backtrace("stalin.sc", 19482, 681239); out_of_memory_error();} t39923->s0 = t39929; /* MOVE: branching squeezed to general */ if (t39930>=((struct structure_type24753 *)VALUE_OFFSET)) {t39923->s1.tag = STRUCTURE_TYPE24753; t39923->s1.value.structure_type24753 = t39930;} else t39923->s1.tag = (unsigned)t39930; /* x146381 stalin.sc:19482:681190 */ a26904 = t39920; a26905 = t39921; a26906 = t39922; a26907 = t39923; goto h15781; l5902: /* x146811 stalin.sc:19574:684151 */ /* x146810 stalin.sc:19574:684152 */ /* x276551 stalin.sc:14693:514793 */ r15803.tag = STRING_TYPE; r15803.value.string_type = ""; while ((sfp15803<(&((region15803->data)[0])))||(sfp15803>(&((region15803->data)[region_size15803])))) {struct region15803 *region; region = region15803; region_size15803 = region15803->region_size; region15803 = region15803->region; GC_free(region);} fp15803 = sfp15803; return r15803; l5884: /* x146926 stalin.sc:19582:684602 */ /* x146841 stalin.sc:19582:684606 */ /* x146831 stalin.sc:19582:684611 */ /* x146830 stalin.sc:19582:684615 */ /* x146829 stalin.sc:19582:684623 */ t39832 = p15808->p15806->a26946; /* x146828 stalin.sc:19582:684616 */ a41723 = t39832; /* x301004 stalin.sc:3890:131852 */ /* x301003 stalin.sc:3890:131869 */ t39833 = a41723; /* x301002 stalin.sc:3890:131853 */ if (!(f8204(t39833)==FALSE_TYPE)) goto l5888; p15818 = p15808->p15806; /* x146825 */ /* x146824 stalin.sc:19582:684626 */ /* x146823 stalin.sc:19582:684635 */ t39834 = p15818->a26946; /* x146822 stalin.sc:19582:684627 */ a41690 = t39834; /* x300872 stalin.sc:3916:132554 */ /* x300871 stalin.sc:3916:132572 */ t39835 = a41690; /* x300870 stalin.sc:3916:132555 */ if (!(f8209(t39835)==FALSE_TYPE)) goto l5888; p15819 = p15818; /* x146819 */ /* x146818 stalin.sc:19582:684648 */ t39836 = p15819->a26946; /* x146817 stalin.sc:19582:684639 */ a41638 = t39836; /* x300664 stalin.sc:3965:133896 */ /* x300663 stalin.sc:3965:133915 */ t39837 = a41638; /* x300662 stalin.sc:3965:133897 */ if (f8219(t39837)==FALSE_TYPE) goto l5887; l5888: /* x146839 */ /* x146838 stalin.sc:19583:684660 */ /* x146834 stalin.sc:19583:684665 */ t39838 = p15808->a26947; /* x146837 stalin.sc:19583:684667 */ /* x146836 stalin.sc:19583:684674 */ t39840 = p15808->p15806->p15803->a26938; /* x146835 stalin.sc:19583:684668 */ a35776 = t39840; /* x274461 */ /* x274460 */ t39841 = a35776; /* x274459 */ if (!((t39841.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29925]"); structure_ref_error();} t39839 = t39841.value.structure_type24753->s0; /* x268474 stalin.sc:19583:684661 */ /* EQ: dispatching general to general */ if ((t39838.tag)==(t39839.tag)) switch (t39838.tag) {case FIXNUM_TYPE: if ((t39838.value.fixnum_type)==(t39839.value.fixnum_type)) goto l5887; break; case FLONUM_TYPE: if ((t39838.value.flonum_type)==(t39839.value.flonum_type)) goto l5887; break; case INPUT_PORT_TYPE: if ((t39838.value.input_port_type)==(t39839.value.input_port_type)) goto l5887; break; case OUTPUT_PORT_TYPE: if ((t39838.value.output_port_type)==(t39839.value.output_port_type)) goto l5887; break; case NATIVE_PROCEDURE_TYPE15963: if ((t39838.value.native_procedure_type15963)==(t39839.value.native_procedure_type15963)) goto l5887; break; case NATIVE_PROCEDURE_TYPE19067: if ((t39838.value.native_procedure_type19067)==(t39839.value.native_procedure_type19067)) goto l5887; break; case NATIVE_PROCEDURE_TYPE19068: if ((t39838.value.native_procedure_type19068)==(t39839.value.native_procedure_type19068)) goto l5887; break; case NATIVE_PROCEDURE_TYPE22459: if ((t39838.value.native_procedure_type22459)==(t39839.value.native_procedure_type22459)) goto l5887; break; case STRUCTURE_TYPE24753: if ((t39838.value.structure_type24753)==(t39839.value.structure_type24753)) goto l5887; break; case STRUCTURE_TYPE24757: if ((t39838.value.structure_type24757)==(t39839.value.structure_type24757)) goto l5887; break; case STRUCTURE_TYPE27501: if ((t39838.value.structure_type27501)==(t39839.value.structure_type27501)) goto l5887; break; case STRUCTURE_TYPE27510: if ((t39838.value.structure_type27510)==(t39839.value.structure_type27510)) goto l5887; break; case STRUCTURE_TYPE27621: if ((t39838.value.structure_type27621)==(t39839.value.structure_type27621)) goto l5887; break; case STRUCTURE_TYPE27650: if ((t39838.value.structure_type27650)==(t39839.value.structure_type27650)) goto l5887; break; case STRUCTURE_TYPE27669: if ((t39838.value.structure_type27669)==(t39839.value.structure_type27669)) goto l5887; break; case STRUCTURE_TYPE27673: if ((t39838.value.structure_type27673)==(t39839.value.structure_type27673)) goto l5887; break; case STRUCTURE_TYPE27692: if ((t39838.value.structure_type27692)==(t39839.value.structure_type27692)) goto l5887; break; case STRUCTURE_TYPE27694: if ((t39838.value.structure_type27694)==(t39839.value.structure_type27694)) goto l5887; break; case STRUCTURE_TYPE27698: if ((t39838.value.structure_type27698)==(t39839.value.structure_type27698)) goto l5887; break; case STRUCTURE_TYPE27745: if ((t39838.value.structure_type27745)==(t39839.value.structure_type27745)) goto l5887; break; case STRUCTURE_TYPE27747: if ((t39838.value.structure_type27747)==(t39839.value.structure_type27747)) goto l5887; break; case STRUCTURE_TYPE27750: if ((t39838.value.structure_type27750)==(t39839.value.structure_type27750)) goto l5887; break; case STRUCTURE_TYPE27753: if ((t39838.value.structure_type27753)==(t39839.value.structure_type27753)) goto l5887; break; case STRUCTURE_TYPE27756: if ((t39838.value.structure_type27756)==(t39839.value.structure_type27756)) goto l5887; break; case STRUCTURE_TYPE27761: if ((t39838.value.structure_type27761)==(t39839.value.structure_type27761)) goto l5887; break; case STRUCTURE_TYPE27769: if ((t39838.value.structure_type27769)==(t39839.value.structure_type27769)) goto l5887; break; case STRUCTURE_TYPE27776: if ((t39838.value.structure_type27776)==(t39839.value.structure_type27776)) goto l5887; break; case STRUCTURE_TYPE27779: if ((t39838.value.structure_type27779)==(t39839.value.structure_type27779)) goto l5887; break; case STRUCTURE_TYPE27858: if ((t39838.value.structure_type27858)==(t39839.value.structure_type27858)) goto l5887; break; case STRING_TYPE: if ((t39838.value.string_type)==(t39839.value.string_type)) goto l5887; break; case HEADED_VECTOR_TYPE27896: if ((t39838.value.headed_vector_type27896)==(t39839.value.headed_vector_type27896)) goto l5887; break; case EXTERNAL_SYMBOL_TYPE: if ((t39838.value.external_symbol_type)==(t39839.value.external_symbol_type)) goto l5887; break; case STRUCTURE_TYPE27908: if ((t39838.value.structure_type27908)==(t39839.value.structure_type27908)) goto l5887; break; default: goto l5887;} /* x146891 stalin.sc:19584:684686 */ /* x146890 stalin.sc:19587:684798 */ /* x146860 stalin.sc:19587:684804 */ /* x146859 stalin.sc:19587:684810 */ t39886 = p15808->p15806->p15803->a26938; /* x146858 stalin.sc:19587:684805 */ a35397 = t39886; /* x272945 */ /* x272944 */ t39887 = a35397; /* x272943 */ if (!((t39887.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29546]"); structure_ref_error();} t39880 = t39887.value.structure_type24753->s1; /* x146863 stalin.sc:19588:684819 */ /* x146862 stalin.sc:19588:684825 */ t39888 = *((struct w16638 *)(&(p15808->p15806->p15803->a26939))); /* x146861 stalin.sc:19588:684820 */ a35398 = t39888; /* x272949 */ /* x272948 */ t39889 = a35398; /* x272947 */ if (!((t39889.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29547]"); structure_ref_error();} t39881 = t39889.value.structure_type24753->s1; /* x146864 stalin.sc:19589:684834 */ t39882 = p15808->p15806->p15803->a26940; /* x146865 stalin.sc:19590:684841 */ t39883 = p15808->p15806->p15803->a26941; /* x146886 stalin.sc:19591:684848 */ /* x146881 stalin.sc:19591:684852 */ /* x146868 stalin.sc:19591:684857 */ /* x146867 stalin.sc:19591:684864 */ t39890 = p15808->p15806->p15803->a26942; /* x268473 stalin.sc:19591:684858 */ if (!((t39890.tag)==STRUCTURE_TYPE24753)) goto l5897; /* x146879 */ /* x146878 stalin.sc:19591:684873 */ /* x146877 stalin.sc:19591:684881 */ t39891 = p15808->p15806->a26946; /* x146876 stalin.sc:19591:684874 */ a41721 = t39891; /* x300996 stalin.sc:3890:131852 */ /* x300995 stalin.sc:3890:131869 */ t39892 = a41721; /* x300994 stalin.sc:3890:131853 */ if (!(f8204(t39892)==FALSE_TYPE)) goto l5896; p15820 = p15808->p15806; /* x146873 */ /* x146872 stalin.sc:19591:684894 */ t39893 = p15820->a26946; /* x146871 stalin.sc:19591:684885 */ a41636 = t39893; /* x300656 stalin.sc:3965:133896 */ /* x300655 stalin.sc:3965:133915 */ t39894 = a41636; /* x300654 stalin.sc:3965:133897 */ if (f8219(t39894)==FALSE_TYPE) goto l5897; l5896: /* x146884 stalin.sc:19592:684908 */ /* x146883 stalin.sc:19592:684914 */ t39895 = p15808->p15806->p15803->a26942; /* x146882 stalin.sc:19592:684909 */ a35399 = t39895; /* x272953 */ /* x272952 */ t39896 = a35399; /* x272951 */ if (!((t39896.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29548]"); structure_ref_error();} t39884 = t39896.value.structure_type24753->s1; goto l5898; l5897: /* x146885 stalin.sc:19593:684928 */ t39884 = p15808->p15806->p15803->a26942; l5898: /* x146889 stalin.sc:19594:684938 */ /* x146888 stalin.sc:19594:684944 */ t39897 = *((struct w16638 *)(&(p15808->p15806->p15803->a26943))); /* x146887 stalin.sc:19594:684939 */ a35400 = t39897; /* x272957 */ /* x272956 */ t39898 = a35400; /* x272955 */ if (!((t39898.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29549]"); structure_ref_error();} t39885 = t39898.value.structure_type24753->s1; /* x146857 stalin.sc:19587:684799 */ t39879 = p15808->p15806->p15803->p15800; t39863 = f15803(t39879, t39880, t39881, t39882, t39883, t39884, t39885); /* x146856 stalin.sc:19585:684709 */ /* x146849 stalin.sc:19585:684715 */ /* x146847 stalin.sc:19585:684739 */ /* x146846 stalin.sc:19585:684758 */ t39873 = p15808->p15806->a26946; /* x146845 stalin.sc:19585:684740 */ a36840 = t39873; /* x280029 */ /* x280028 */ t39874 = a36840; /* x280027 */ if (!((t39874.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31757]"); structure_ref_error();} t39871 = t39874.value.structure_type27692->s9; /* x146848 stalin.sc:19585:684761 */ t39872 = p15808->a26947; /* x146844 stalin.sc:19585:684716 */ t39867 = f7025(t39871, t39872); /* x146852 stalin.sc:19586:684769 */ /* x146851 stalin.sc:19586:684776 */ t39875 = p15808->p15806->p15803->a26938; /* x146850 stalin.sc:19586:684770 */ a35774 = t39875; /* x274453 */ /* x274452 */ t39876 = a35774; /* x274451 */ if (!((t39876.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29923]"); structure_ref_error();} t39868 = t39876.value.structure_type24753->s0; /* x146855 stalin.sc:19586:684780 */ /* x146854 stalin.sc:19586:684787 */ t39877 = *((struct w16638 *)(&(p15808->p15806->p15803->a26939))); /* x146853 stalin.sc:19586:684781 */ a35775 = t39877; /* x274457 */ /* x274456 */ t39878 = a35775; /* x274455 */ if (!((t39878.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29924]"); structure_ref_error();} t39869 = t39878.value.structure_type24753->s0; /* x146843 stalin.sc:19585:684710 */ t39870.tag = STRUCTURE_TYPE27501; t39870.value.structure_type27501 = t39867; t39862 = f15496(t39870, t39868, t39869); /* x146842 stalin.sc:19584:684687 */ t39866.tag = STRUCTURE_TYPE24753; t39866.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t39866.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19584, 684686); out_of_memory_error();} t39866.value.structure_type24753->s0 = t39863; t39866.value.structure_type24753->s1.tag = NULL_TYPE; a41850 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41850==NULL) {backtrace("stalin.sc", 19584, 684686); out_of_memory_error();} a41850->s0 = t39862; a41850->s1 = t39866; /* x301512 stalin.sc:14400:506485 */ /* x301511 stalin.sc:14400:506503 */ t39864 = a41850; /* x301510 stalin.sc:14400:506486 */ t39865.tag = STRUCTURE_TYPE24753; t39865.value.structure_type24753 = t39864; r15803 = f13492(t39865); while ((sfp15803<(&((region15803->data)[0])))||(sfp15803>(&((region15803->data)[region_size15803])))) {struct region15803 *region; region = region15803; region_size15803 = region15803->region_size; region15803 = region15803->region; GC_free(region);} fp15803 = sfp15803; return r15803; l5887: /* x146925 stalin.sc:19595:684955 */ /* x146895 stalin.sc:19595:684961 */ /* x146894 stalin.sc:19595:684967 */ t39849 = p15808->p15806->p15803->a26938; /* x146893 stalin.sc:19595:684962 */ a35401 = t39849; /* x272961 */ /* x272960 */ t39850 = a35401; /* x272959 */ if (!((t39850.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29550]"); structure_ref_error();} t39843 = t39850.value.structure_type24753->s1; /* x146898 stalin.sc:19596:684975 */ /* x146897 stalin.sc:19596:684981 */ t39851 = *((struct w16638 *)(&(p15808->p15806->p15803->a26939))); /* x146896 stalin.sc:19596:684976 */ a35402 = t39851; /* x272965 */ /* x272964 */ t39852 = a35402; /* x272963 */ if (!((t39852.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29551]"); structure_ref_error();} t39844 = t39852.value.structure_type24753->s1; /* x146899 stalin.sc:19597:684989 */ t39845 = p15808->p15806->p15803->a26940; /* x146900 stalin.sc:19598:684995 */ t39846 = p15808->p15806->p15803->a26941; /* x146921 stalin.sc:19599:685001 */ /* x146916 stalin.sc:19599:685005 */ /* x146903 stalin.sc:19599:685010 */ /* x146902 stalin.sc:19599:685017 */ t39853 = p15808->p15806->p15803->a26942; /* x268472 stalin.sc:19599:685011 */ if (!((t39853.tag)==STRUCTURE_TYPE24753)) goto l5892; /* x146914 */ /* x146913 stalin.sc:19599:685026 */ /* x146912 stalin.sc:19599:685034 */ t39854 = p15808->p15806->a26946; /* x146911 stalin.sc:19599:685027 */ a41722 = t39854; /* x301000 stalin.sc:3890:131852 */ /* x300999 stalin.sc:3890:131869 */ t39855 = a41722; /* x300998 stalin.sc:3890:131853 */ if (!(f8204(t39855)==FALSE_TYPE)) goto l5891; p15821 = p15808->p15806; /* x146908 */ /* x146907 stalin.sc:19599:685047 */ t39856 = p15821->a26946; /* x146906 stalin.sc:19599:685038 */ a41637 = t39856; /* x300660 stalin.sc:3965:133896 */ /* x300659 stalin.sc:3965:133915 */ t39857 = a41637; /* x300658 stalin.sc:3965:133897 */ if (f8219(t39857)==FALSE_TYPE) goto l5892; l5891: /* x146919 stalin.sc:19600:685060 */ /* x146918 stalin.sc:19600:685066 */ t39858 = p15808->p15806->p15803->a26942; /* x146917 stalin.sc:19600:685061 */ a35403 = t39858; /* x272969 */ /* x272968 */ t39859 = a35403; /* x272967 */ if (!((t39859.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29552]"); structure_ref_error();} t39847 = t39859.value.structure_type24753->s1; goto l5893; l5892: /* x146920 stalin.sc:19601:685079 */ t39847 = p15808->p15806->p15803->a26942; l5893: /* x146924 stalin.sc:19602:685088 */ /* x146923 stalin.sc:19602:685094 */ t39860 = *((struct w16638 *)(&(p15808->p15806->p15803->a26943))); /* x146922 stalin.sc:19602:685089 */ a35404 = t39860; /* x272973 */ /* x272972 */ t39861 = a35404; /* x272971 */ if (!((t39861.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29553]"); structure_ref_error();} t39848 = t39861.value.structure_type24753->s1; /* x146892 stalin.sc:19595:684956 */ t39842 = p15808->p15806->p15803->p15800; p15803 = t39842; a26938 = t39843; a26939 = t39844; a26940 = t39845; a26941 = t39846; a26942 = t39847; a26943 = t39848; goto h15803;} /* GATHER[15800] */ struct w49 f15800(struct w49 a26928, struct structure_type27745 *a26929, struct w49 a26930, struct w49 a26931, struct w49 a26932, struct w49 a26933, struct w142334 a26934, struct structure_type24753 *a26935) {struct p15800 *t40121; struct w49 t40122; struct w49 t40123; struct w49 t40124; struct w49 t40125; struct w142334 t40126; struct structure_type24753 *t40127; struct w49 t40128; struct w49 t40129; struct p15800 *t40130; struct p15800 *t40131; struct p15800 *e15800; struct p15800 *p15801; struct p15800 *p15802; e15800 = (struct p15800 *)alloca(sizeof(struct p15800)); if (e15800==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e15800->a26928 = a26928; e15800->a26929 = a26929; /* x146996 stalin.sc:19525:682597 */ /* x146990 stalin.sc:19525:682612 */ t40122 = a26930; /* x146991 stalin.sc:19525:682620 */ t40123 = a26931; /* x146992 stalin.sc:19525:682627 */ t40124 = a26932; /* x146993 stalin.sc:19525:682633 */ t40125 = a26933; /* x146994 stalin.sc:19525:682641 */ t40126 = a26934; /* x146995 stalin.sc:19525:682650 */ t40127 = a26935; /* x146989 */ /* x146988 */ /* x146987 */ /* x146986 */ t40130 = e15800; p15801 = t40130; /* x146985 */ /* x146984 */ /* x146983 */ /* x146614 */ t40131 = p15801; p15802 = t40131; /* x146613 stalin.sc:19525:682602 */ t40121 = p15802; t40128 = *((struct w49 *)(&t40126)); /* MOVE: branching squeezed to general */ if (t40127>=((struct structure_type24753 *)VALUE_OFFSET)) {t40129.tag = STRUCTURE_TYPE24753; t40129.value.structure_type24753 = t40127;} else t40129.tag = (unsigned)t40127; return f15803(t40121, t40122, t40123, t40124, t40125, t40128, t40129);} /* COMPILE-INITIALIZE-REGION[15793] */ struct w49 f15793(struct w49 a26925) {struct w49 r15793; struct w49 a36634; /* S */ struct structure_type24753 *a41912; /* CS */ struct structure_type24753 *a41913; /* CS */ struct structure_type24753 *a41914; /* CS */ struct structure_type24753 *a42082; /* CS */ struct structure_type24753 *a42083; /* CS */ struct w49 t40132; struct w49 t40133; struct w61020 t40134; struct w49 t40135; struct w61020 t40136; struct w61020 t40137; struct structure_type24753 *t40138; struct w49 t40139; struct w49 t40140; struct w49 t40141; struct w49 t40142; char *t40143; char *t40144; struct w61020 t40145; struct structure_type24753 *t40146; struct structure_type24753 *t40147; char *t40148; struct w49 t40149; struct structure_type24753 *t40150; struct w61020 t40151; struct w49 t40152; struct w49 t40153; struct structure_type24753 *t40154; struct w49 t40155; struct w49 t40156; struct structure_type24753 *t40157; struct w49 t40158; struct structure_type24753 *t40159; struct structure_type24753 *t40160; struct structure_type24753 *t40161; struct w49 t40162; struct w49 t40163; struct w49 t40164; struct structure_type24753 *t40165; struct w49 t40166; struct w61020 t40167; struct structure_type24753 *t40168; struct w49 t40169; struct w61020 t40170; struct w49 t40171; struct structure_type24753 *t40172; struct w49 t40173; struct structure_type24753 *t40174; struct w49 t40175; char *t40176; struct w61020 t40177; char *t40178; struct structure_type24753 *t40179; struct w49 t40180; struct w49 t40181; struct w49 t40182; struct w49 t40183; struct structure_type24753 *t40184; struct structure_type24753 *t40185; struct w49 t40186; struct structure_type24753 *t40187; struct w49 t40188; struct structure_type24753 *t40189; struct structure_type24753 *t40190; struct structure_type24753 *t40191; struct w61020 t40192; struct structure_type24753 *t40193; struct structure_type24753 *t40194; struct w49 t40195; struct w49 t40196; struct w49 t40197; struct w49 t40198; struct w49 t40199; struct w49 t40200; char *t40201; struct w61020 t40202; struct structure_type24753 *t40203; struct structure_type24753 *t40204; struct w49 t40205; struct w49 t40206; struct w49 t40207; struct w49 t40208; struct structure_type24753 *t40209; struct w61020 t40210; struct w49 t40211; struct structure_type24753 *t40212; struct w61020 t40213; struct w61020 t40214; struct w49 t40215; struct w49 t40216; struct structure_type24753 *t40217; struct w49 t40218; struct structure_type24753 *t40219; struct w61020 t40220; struct structure_type24753 *t40221; struct w49 t40222; struct w49 t40223; struct w49 t40224; struct structure_type24753 *t40225; struct w61020 t40226; struct w61020 t40227; struct w49 t40228; struct w49 t40229; struct structure_type24753 *t40230; struct structure_type24753 *t40231; struct structure_type24753 *t40232; struct structure_type24753 *t40233; struct structure_type24753 *t40234; char *t40235; struct w49 t40236; char *t40237; char *t40238; unsigned t40239; struct w49 t40240; struct w49 t40241; struct w49 t40242; struct w49 t40243; struct w61020 t40244; unsigned t40245; struct structure_type24753 *t40246; struct w49 t40247; struct w61020 t40248; struct structure_type24753 *t40249; struct w49 t40250; struct w49 t40251; struct w49 t40252; struct structure_type24753 *t40253; struct w49 t40254; struct structure_type24753 *t40255; struct structure_type24753 *t40256; struct w49 t40257; struct w49 t40258; struct w49 t40259; struct structure_type24753 *t40260; struct w49 t40261; struct structure_type24753 *t40262; struct structure_type24753 *t40263; char *t40264; struct w49 t40265; struct w49 t40266; struct w61020 t40267; char *t40268; struct w49 t40269; struct w61020 t40270; struct w49 t40271; struct structure_type24753 *t40272; struct structure_type24753 *t40273; struct w49 t40274; char *t40275; char *t40276; struct w61020 t40277; struct structure_type24753 *t40278; struct structure_type24753 *t40279; char *t40280; struct w49 t40281; struct structure_type24753 *t40282; struct structure_type24753 *t40283; struct w49 t40284; struct w49 t40285; struct structure_type24753 *t40286; struct w49 t40287; struct w49 t40288; /* x146610 stalin.sc:19485:681300 */ /* x146438 stalin.sc:19485:681304 */ /* x146437 stalin.sc:19485:681317 */ t40132 = a26925; /* x146436 stalin.sc:19485:681305 */ if (f8528(t40132)==FALSE_TYPE) goto l5939; /* x146607 stalin.sc:19486:681325 */ /* x146441 stalin.sc:19486:681329 */ /* x146440 stalin.sc:19486:681341 */ t40133 = a26925; /* x146439 stalin.sc:19486:681330 */ if (f8543(t40133)==FALSE_TYPE) goto l5941; /* x146449 stalin.sc:19487:681346 */ /* x146445 stalin.sc:19487:681352 */ /* x146444 stalin.sc:19487:681359 */ t40287 = a26925; /* x146443 stalin.sc:19487:681353 */ t40282 = f14322(t40287); /* x146448 stalin.sc:19487:681362 */ /* x146447 stalin.sc:19487:681368 */ t40288 = a26925; /* x146446 stalin.sc:19487:681363 */ t40283 = f14321(t40288); /* x146442 stalin.sc:19487:681347 */ t40284.tag = STRUCTURE_TYPE24753; t40284.value.structure_type24753 = t40282; t40285.tag = STRUCTURE_TYPE24753; t40285.value.structure_type24753 = t40283; t40286 = f13637(t40284, t40285); r15793.tag = STRUCTURE_TYPE24753; r15793.value.structure_type24753 = t40286; return r15793; l5941: /* x146606 stalin.sc:19488:681374 */ /* x146605 stalin.sc:19518:682421 */ /* x146588 stalin.sc:19518:682428 */ if (a675==FALSE_TYPE) goto l5952; /* x146600 */ /* x146599 */ /* x146598 */ /* x146597 stalin.sc:19519:682445 */ /* x146596 stalin.sc:19519:682455 */ t40280 = "Tmk"; /* x146595 stalin.sc:19519:682446 */ t40281.tag = STRING_TYPE; t40281.value.string_type = t40280; f18320(t40281); /* x146594 */ /* x146593 stalin.sc:19520:682483 */ /* x146592 stalin.sc:19520:682511 */ /* x146591 stalin.sc:19520:682512 */ /* x276943 stalin.sc:14555:511005 */ t40276 = "0"; /* x146590 stalin.sc:19520:682492 */ t40275 = "Tmk_lock_release"; /* x146589 stalin.sc:19520:682484 */ t40277.tag = STRING_TYPE; t40277.value.string_type = t40275; t40278 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t40278==NULL) {backtrace("stalin.sc", 19520, 682483); out_of_memory_error();} t40278->s0.tag = STRING_TYPE; t40278->s0.value.string_type = t40276; t40278->s1.tag = NULL_TYPE; t40279 = f13645(t40277, t40278); t40137.tag = STRUCTURE_TYPE24753; t40137.value.structure_type24753 = t40279; goto l5953; l5952: /* x146604 */ /* x146603 */ /* x146602 stalin.sc:19521:682527 */ /* x146601 stalin.sc:19521:682528 */ /* x276805 stalin.sc:14693:514793 */ t40137.tag = STRING_TYPE; t40137.value.string_type = ""; l5953: /* x146587 stalin.sc:19517:682399 */ /* x146586 stalin.sc:19517:682408 */ /* x146585 stalin.sc:19517:682414 */ t40274 = a26925; /* x146584 stalin.sc:19517:682409 */ t40273 = f14321(t40274); /* x146583 stalin.sc:19517:682400 */ t40136 = f14371(t40273); /* x146582 stalin.sc:19493:681514 */ /* x146469 stalin.sc:19493:681518 */ if (a690==FALSE_TYPE) goto l5946; /* x146573 stalin.sc:19494:681547 */ /* x146572 stalin.sc:19514:682280 */ /* x146558 stalin.sc:19514:682286 */ /* x146557 stalin.sc:19514:682292 */ t40259 = a26925; /* x146556 stalin.sc:19514:682287 */ t40255 = f14321(t40259); /* x146571 stalin.sc:19515:682302 */ /* x146570 stalin.sc:19515:682307 */ /* x146567 stalin.sc:19515:682320 */ /* x146564 stalin.sc:19515:682326 */ /* x146563 stalin.sc:19515:682336 */ t40271 = a26925; /* x146562 stalin.sc:19515:682327 */ t40272 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t40272==NULL) {backtrace("stalin.sc", 19515, 682326); out_of_memory_error();} t40272->s0 = t40271; t40272->s1.tag = NULL_TYPE; t40267 = f14324(t40272); /* x146566 stalin.sc:19515:682339 */ /* x146565 stalin.sc:19515:682340 */ /* x276387 stalin.sc:16070:560270 */ t40268 = "data"; /* x146561 stalin.sc:19515:682321 */ t40269 = *((struct w49 *)(&t40267)); t40270.tag = STRING_TYPE; t40270.value.string_type = t40268; t40263 = f13588(t40269, t40270); /* x146569 stalin.sc:19515:682349 */ /* x146568 stalin.sc:19515:682350 */ /* x276941 stalin.sc:14555:511005 */ t40264 = "0"; /* x146560 stalin.sc:19515:682308 */ t40265.tag = STRUCTURE_TYPE24753; t40265.value.structure_type24753 = t40263; t40266.tag = STRING_TYPE; t40266.value.string_type = t40264; t40260 = f13540(t40265, t40266); /* x146559 stalin.sc:19515:682303 */ t40261.tag = STRUCTURE_TYPE24753; t40261.value.structure_type24753 = t40260; t40262 = (struct structure_type24753 *)NULL_TYPE; t40256 = f13625(t40261, t40262); /* x146555 stalin.sc:19514:682281 */ t40257.tag = STRUCTURE_TYPE24753; t40257.value.structure_type24753 = t40255; t40258.tag = STRUCTURE_TYPE24753; t40258.value.structure_type24753 = t40256; t40160 = f13637(t40257, t40258); /* x146554 stalin.sc:19513:682225 */ /* x146550 stalin.sc:19513:682231 */ /* x146549 stalin.sc:19513:682246 */ t40252 = a26925; /* x146548 stalin.sc:19513:682232 */ t40253 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t40253==NULL) {backtrace("stalin.sc", 19513, 682231); out_of_memory_error();} t40253->s0 = t40252; t40253->s1.tag = NULL_TYPE; t40248 = f14328(t40253); /* x146553 stalin.sc:19513:682249 */ /* x146552 stalin.sc:19513:682268 */ t40254 = a26925; /* x146551 stalin.sc:19513:682250 */ t40249 = f14333(t40254); /* x146547 stalin.sc:19513:682226 */ t40250 = *((struct w49 *)(&t40248)); t40251.tag = STRUCTURE_TYPE24753; t40251.value.structure_type24753 = t40249; t40159 = f13637(t40250, t40251); /* x146546 stalin.sc:19495:681572 */ /* x146490 stalin.sc:19496:681583 */ /* x146475 stalin.sc:19496:681589 */ /* x146474 stalin.sc:19496:681599 */ t40171 = a26925; /* x146473 stalin.sc:19496:681590 */ t40172 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t40172==NULL) {backtrace("stalin.sc", 19496, 681589); out_of_memory_error();} t40172->s0 = t40171; t40172->s1.tag = NULL_TYPE; t40167 = f14324(t40172); /* x146489 stalin.sc:19498:681670 */ /* x146483 stalin.sc:19498:681678 */ /* x146482 stalin.sc:19498:681715 */ t40178 = "*"; /* x146481 stalin.sc:19498:681702 */ /* x146480 stalin.sc:19498:681712 */ t40183 = a26925; /* x146479 stalin.sc:19498:681703 */ t40184 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t40184==NULL) {backtrace("stalin.sc", 19498, 681702); out_of_memory_error();} t40184->s0 = t40183; t40184->s1.tag = NULL_TYPE; t40177 = f14324(t40184); /* x146478 stalin.sc:19498:681693 */ t40176 = "struct"; /* x146477 stalin.sc:19498:681679 */ t40182.tag = STRUCTURE_TYPE24753; t40182.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40182.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19498, 681678); out_of_memory_error();} t40182.value.structure_type24753->s0.tag = STRING_TYPE; t40182.value.structure_type24753->s0.value.string_type = t40178; t40182.value.structure_type24753->s1.tag = NULL_TYPE; t40181.tag = STRUCTURE_TYPE24753; t40181.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40181.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19498, 681678); out_of_memory_error();} t40181.value.structure_type24753->s0 = *((struct w49 *)(&t40177)); t40181.value.structure_type24753->s1 = t40182; a42082 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42082==NULL) {backtrace("stalin.sc", 19498, 681678); out_of_memory_error();} a42082->s0.tag = STRING_TYPE; a42082->s0.value.string_type = t40176; a42082->s1 = t40181; /* x302440 stalin.sc:14386:505956 */ /* x302439 stalin.sc:14386:505972 */ t40179 = a42082; /* x302438 stalin.sc:14386:505957 */ t40180.tag = STRUCTURE_TYPE24753; t40180.value.structure_type24753 = t40179; t40173 = f13474(t40180); /* x146488 stalin.sc:19499:681729 */ /* x146487 stalin.sc:19499:681734 */ /* x146486 stalin.sc:19499:681752 */ t40188 = a26925; /* x146485 stalin.sc:19499:681735 */ t40185 = f14332(t40188); /* x146484 stalin.sc:19499:681730 */ t40186.tag = STRUCTURE_TYPE24753; t40186.value.structure_type24753 = t40185; t40187 = (struct structure_type24753 *)NULL_TYPE; t40174 = f13625(t40186, t40187); /* x146476 stalin.sc:19498:681671 */ t40175.tag = STRUCTURE_TYPE24753; t40175.value.structure_type24753 = t40174; t40168 = f13547(t40173, t40175); /* x146472 stalin.sc:19496:681584 */ t40169 = *((struct w49 *)(&t40167)); t40170.tag = STRUCTURE_TYPE24753; t40170.value.structure_type24753 = t40168; t40165 = f13598(t40169, t40170); /* x146545 stalin.sc:19500:681760 */ /* x146544 stalin.sc:19512:682169 */ /* x146540 stalin.sc:19512:682177 */ /* x146539 stalin.sc:19512:682178 */ t40246 = (struct structure_type24753 *)NULL_TYPE; t40244 = f14324(t40246); /* x146543 stalin.sc:19512:682188 */ /* x146542 stalin.sc:19512:682211 */ t40247 = a26925; /* x146541 stalin.sc:19512:682189 */ t40245 = f8533(t40247); /* x146538 stalin.sc:19512:682170 */ t40193 = f13760(t40244, t40245); /* x146537 stalin.sc:19507:682017 */ /* x146523 stalin.sc:19507:682021 */ if (a691==FALSE_TYPE) goto l5949; /* x146534 stalin.sc:19508:682047 */ /* x146533 stalin.sc:19509:682065 */ /* x146532 stalin.sc:19509:682075 */ /* x146531 stalin.sc:19510:682125 */ /* x146530 stalin.sc:19510:682143 */ t40242 = a26925; /* x146529 stalin.sc:19510:682126 */ a36634 = t40242; /* x279205 */ /* x279204 */ t40243 = a36634; /* x279203 */ if (!((t40243.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31551]"); structure_ref_error();} t40238 = t40243.value.structure_type27694->s2; /* x146528 stalin.sc:19509:682086 */ t40237 = "Freeing region segment for ~a~%"; /* x146527 stalin.sc:19509:682083 */ /* x146526 stalin.sc:19509:682076 */ t40239 = FALSE_TYPE; t40240.tag = STRING_TYPE; t40240.value.string_type = t40237; t40241.tag = STRUCTURE_TYPE24753; t40241.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40241.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19509, 682075); out_of_memory_error();} t40241.value.structure_type24753->s0.tag = STRING_TYPE; t40241.value.structure_type24753->s0.value.string_type = t40238; t40241.value.structure_type24753->s1.tag = NULL_TYPE; t40235 = f665(t40239, t40240, t40241); /* x146525 stalin.sc:19509:682066 */ t40236.tag = STRING_TYPE; t40236.value.string_type = t40235; t40232 = f13532(t40236); /* x146524 stalin.sc:19508:682048 */ t40233 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t40233==NULL) {backtrace("stalin.sc", 19508, 682047); out_of_memory_error();} t40233->s0.tag = STRUCTURE_TYPE24753; t40233->s0.value.structure_type24753 = t40232; t40233->s1.tag = NULL_TYPE; t40234 = f13740(t40233); t40192.tag = STRUCTURE_TYPE24753; t40192.value.structure_type24753 = t40234; goto l5950; l5949: /* x146536 stalin.sc:19511:682156 */ /* x146535 stalin.sc:19511:682157 */ /* x276801 stalin.sc:14693:514793 */ t40192.tag = STRING_TYPE; t40192.value.string_type = ""; l5950: /* x146522 stalin.sc:19506:681963 */ /* x146514 stalin.sc:19506:681969 */ /* x146513 stalin.sc:19506:681979 */ t40224 = a26925; /* x146512 stalin.sc:19506:681970 */ t40225 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t40225==NULL) {backtrace("stalin.sc", 19506, 681969); out_of_memory_error();} t40225->s0 = t40224; t40225->s1.tag = NULL_TYPE; t40220 = f14324(t40225); /* x146521 stalin.sc:19506:681982 */ /* x146518 stalin.sc:19506:681988 */ /* x146517 stalin.sc:19506:681998 */ t40229 = a26925; /* x146516 stalin.sc:19506:681989 */ t40230 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t40230==NULL) {backtrace("stalin.sc", 19506, 681988); out_of_memory_error();} t40230->s0 = t40229; t40230->s1.tag = NULL_TYPE; t40226 = f14324(t40230); /* x146520 stalin.sc:19506:682001 */ /* x146519 stalin.sc:19506:682002 */ t40231 = (struct structure_type24753 *)NULL_TYPE; t40227 = f14324(t40231); /* x146515 stalin.sc:19506:681983 */ t40228 = *((struct w49 *)(&t40226)); t40221 = f13588(t40228, t40227); /* x146511 stalin.sc:19506:681964 */ t40222 = *((struct w49 *)(&t40220)); t40223.tag = STRUCTURE_TYPE24753; t40223.value.structure_type24753 = t40221; t40191 = f13637(t40222, t40223); /* x146510 stalin.sc:19505:681929 */ /* x146506 stalin.sc:19505:681935 */ /* x146505 stalin.sc:19505:681936 */ t40217 = (struct structure_type24753 *)NULL_TYPE; t40213 = f14324(t40217); /* x146509 stalin.sc:19505:681946 */ /* x146508 stalin.sc:19505:681956 */ t40218 = a26925; /* x146507 stalin.sc:19505:681947 */ t40219 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t40219==NULL) {backtrace("stalin.sc", 19505, 681946); out_of_memory_error();} t40219->s0 = t40218; t40219->s1.tag = NULL_TYPE; t40214 = f14324(t40219); /* x146504 stalin.sc:19505:681930 */ t40215 = *((struct w49 *)(&t40213)); t40216 = *((struct w49 *)(&t40214)); t40190 = f13637(t40215, t40216); /* x146503 stalin.sc:19501:681780 */ /* x146502 stalin.sc:19503:681857 */ /* x146501 stalin.sc:19504:681899 */ /* x146500 stalin.sc:19504:681912 */ /* x146499 stalin.sc:19504:681913 */ t40212 = (struct structure_type24753 *)NULL_TYPE; t40210 = f14324(t40212); /* x146498 stalin.sc:19504:681900 */ t40211 = *((struct w49 *)(&t40210)); t40203 = f13516(t40211); /* x146497 stalin.sc:19504:681886 */ /* x146496 stalin.sc:19504:681896 */ t40208 = a26925; /* x146495 stalin.sc:19504:681887 */ t40209 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t40209==NULL) {backtrace("stalin.sc", 19504, 681886); out_of_memory_error();} t40209->s0 = t40208; t40209->s1.tag = NULL_TYPE; t40202 = f14324(t40209); /* x146494 stalin.sc:19504:681877 */ t40201 = "struct"; /* x146493 stalin.sc:19503:681858 */ t40207.tag = STRUCTURE_TYPE24753; t40207.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40207.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19503, 681857); out_of_memory_error();} t40207.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40207.value.structure_type24753->s0.value.structure_type24753 = t40203; t40207.value.structure_type24753->s1.tag = NULL_TYPE; t40206.tag = STRUCTURE_TYPE24753; t40206.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40206.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19503, 681857); out_of_memory_error();} t40206.value.structure_type24753->s0 = *((struct w49 *)(&t40202)); t40206.value.structure_type24753->s1 = t40207; a42083 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42083==NULL) {backtrace("stalin.sc", 19503, 681857); out_of_memory_error();} a42083->s0.tag = STRING_TYPE; a42083->s0.value.string_type = t40201; a42083->s1 = t40206; /* x302444 stalin.sc:14386:505956 */ /* x302443 stalin.sc:14386:505972 */ t40204 = a42083; /* x302442 stalin.sc:14386:505957 */ t40205.tag = STRUCTURE_TYPE24753; t40205.value.structure_type24753 = t40204; t40200 = f13474(t40205); /* x146492 stalin.sc:19501:681781 */ t40189 = f13514(t40200); /* x146491 stalin.sc:19500:681761 */ t40199.tag = STRUCTURE_TYPE24753; t40199.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40199.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19500, 681760); out_of_memory_error();} t40199.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40199.value.structure_type24753->s0.value.structure_type24753 = t40193; t40199.value.structure_type24753->s1.tag = NULL_TYPE; t40198.tag = STRUCTURE_TYPE24753; t40198.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40198.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19500, 681760); out_of_memory_error();} t40198.value.structure_type24753->s0 = *((struct w49 *)(&t40192)); t40198.value.structure_type24753->s1 = t40199; t40197.tag = STRUCTURE_TYPE24753; t40197.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40197.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19500, 681760); out_of_memory_error();} t40197.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40197.value.structure_type24753->s0.value.structure_type24753 = t40191; t40197.value.structure_type24753->s1 = t40198; t40196.tag = STRUCTURE_TYPE24753; t40196.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40196.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19500, 681760); out_of_memory_error();} t40196.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40196.value.structure_type24753->s0.value.structure_type24753 = t40190; t40196.value.structure_type24753->s1 = t40197; a41914 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41914==NULL) {backtrace("stalin.sc", 19500, 681760); out_of_memory_error();} a41914->s0.tag = STRUCTURE_TYPE24753; a41914->s0.value.structure_type24753 = t40189; a41914->s1 = t40196; /* x301768 stalin.sc:14400:506485 */ /* x301767 stalin.sc:14400:506503 */ t40194 = a41914; /* x301766 stalin.sc:14400:506486 */ t40195.tag = STRUCTURE_TYPE24753; t40195.value.structure_type24753 = t40194; t40166 = f13492(t40195); /* x146471 stalin.sc:19495:681573 */ t40158 = f13670(t40165, t40166); /* x146470 stalin.sc:19494:681548 */ t40164.tag = STRUCTURE_TYPE24753; t40164.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40164.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19494, 681547); out_of_memory_error();} t40164.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40164.value.structure_type24753->s0.value.structure_type24753 = t40160; t40164.value.structure_type24753->s1.tag = NULL_TYPE; t40163.tag = STRUCTURE_TYPE24753; t40163.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40163.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19494, 681547); out_of_memory_error();} t40163.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40163.value.structure_type24753->s0.value.structure_type24753 = t40159; t40163.value.structure_type24753->s1 = t40164; a41913 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41913==NULL) {backtrace("stalin.sc", 19494, 681547); out_of_memory_error();} a41913->s0 = t40158; a41913->s1 = t40163; /* x301764 stalin.sc:14400:506485 */ /* x301763 stalin.sc:14400:506503 */ t40161 = a41913; /* x301762 stalin.sc:14400:506486 */ t40162.tag = STRUCTURE_TYPE24753; t40162.value.structure_type24753 = t40161; t40135 = f13492(t40162); goto l5947; l5946: /* x146581 stalin.sc:19516:682366 */ /* x146577 stalin.sc:19516:682372 */ /* x146576 stalin.sc:19516:682378 */ t40155 = a26925; /* x146575 stalin.sc:19516:682373 */ t40150 = f14321(t40155); /* x146580 stalin.sc:19516:682381 */ /* x146579 stalin.sc:19516:682391 */ t40156 = a26925; /* x146578 stalin.sc:19516:682382 */ t40157 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t40157==NULL) {backtrace("stalin.sc", 19516, 682381); out_of_memory_error();} t40157->s0 = t40156; t40157->s1.tag = NULL_TYPE; t40151 = f14324(t40157); /* x146574 stalin.sc:19516:682367 */ t40152.tag = STRUCTURE_TYPE24753; t40152.value.structure_type24753 = t40150; t40153 = *((struct w49 *)(&t40151)); t40154 = f13637(t40152, t40153); t40135.tag = STRUCTURE_TYPE24753; t40135.value.structure_type24753 = t40154; l5947: /* x146468 stalin.sc:19489:681394 */ /* x146451 stalin.sc:19489:681401 */ if (a675==FALSE_TYPE) goto l5943; /* x146463 */ /* x146462 */ /* x146461 */ /* x146460 stalin.sc:19490:681418 */ /* x146459 stalin.sc:19490:681428 */ t40148 = "Tmk"; /* x146458 stalin.sc:19490:681419 */ t40149.tag = STRING_TYPE; t40149.value.string_type = t40148; f18320(t40149); /* x146457 */ /* x146456 stalin.sc:19491:681456 */ /* x146455 stalin.sc:19491:681484 */ /* x146454 stalin.sc:19491:681485 */ /* x276939 stalin.sc:14555:511005 */ t40144 = "0"; /* x146453 stalin.sc:19491:681465 */ t40143 = "Tmk_lock_acquire"; /* x146452 stalin.sc:19491:681457 */ t40145.tag = STRING_TYPE; t40145.value.string_type = t40143; t40146 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t40146==NULL) {backtrace("stalin.sc", 19491, 681456); out_of_memory_error();} t40146->s0.tag = STRING_TYPE; t40146->s0.value.string_type = t40144; t40146->s1.tag = NULL_TYPE; t40147 = f13645(t40145, t40146); t40134.tag = STRUCTURE_TYPE24753; t40134.value.structure_type24753 = t40147; goto l5944; l5943: /* x146467 */ /* x146466 */ /* x146465 stalin.sc:19492:681500 */ /* x146464 stalin.sc:19492:681501 */ /* x276799 stalin.sc:14693:514793 */ t40134.tag = STRING_TYPE; t40134.value.string_type = ""; l5944: /* x146450 stalin.sc:19488:681375 */ t40142.tag = STRUCTURE_TYPE24753; t40142.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40142.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19488, 681374); out_of_memory_error();} t40142.value.structure_type24753->s0 = *((struct w49 *)(&t40137)); t40142.value.structure_type24753->s1.tag = NULL_TYPE; t40141.tag = STRUCTURE_TYPE24753; t40141.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40141.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19488, 681374); out_of_memory_error();} t40141.value.structure_type24753->s0 = *((struct w49 *)(&t40136)); t40141.value.structure_type24753->s1 = t40142; t40140.tag = STRUCTURE_TYPE24753; t40140.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40140.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19488, 681374); out_of_memory_error();} t40140.value.structure_type24753->s0 = t40135; t40140.value.structure_type24753->s1 = t40141; a41912 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41912==NULL) {backtrace("stalin.sc", 19488, 681374); out_of_memory_error();} a41912->s0 = *((struct w49 *)(&t40134)); a41912->s1 = t40140; /* x301760 stalin.sc:14400:506485 */ /* x301759 stalin.sc:14400:506503 */ t40138 = a41912; /* x301758 stalin.sc:14400:506486 */ t40139.tag = STRUCTURE_TYPE24753; t40139.value.structure_type24753 = t40138; return f13492(t40139); l5939: /* x146609 stalin.sc:19522:682545 */ /* x146608 stalin.sc:19522:682546 */ /* x276809 stalin.sc:14693:514793 */ r15793.tag = STRING_TYPE; r15793.value.string_type = ""; return r15793;} /* [inside LOOP 15772] */ struct structure_type24753 *f15772(struct p15766 *p15772, unsigned a26895) {char *t40289; struct structure_type27745 *t40290; unsigned t40291; struct w49 t40292; /* x146147 stalin.sc:19425:679703 */ /* x146144 stalin.sc:19425:679718 */ t40289 = "foreign_call"; /* x146145 stalin.sc:19425:679733 */ t40290 = p15772->a26882; /* x146146 stalin.sc:19425:679735 */ t40291 = a26895; /* x146143 stalin.sc:19425:679704 */ t40292.tag = STRUCTURE_TYPE27745; t40292.value.structure_type27745 = t40290; return f15534(t40289, t40292, t40291);} /* [inside LOOP 15771] */ struct w49 f15771(void) {struct p15770 *p15771 = d15771; struct w49 a26894 = b26894; /* U0 */ struct w49 a35439; /* PAIR */ struct w49 a35440; /* PAIR */ struct w49 a35441; /* PAIR */ struct p15767 *t40293; struct w49 t40294; struct w49 t40295; struct structure_type24753 *t40296; struct w49 t40297; struct w49 t40298; struct w49 t40299; struct w49 t40300; struct w49 t40301; struct w49 t40302; struct structure_type24753 *t40303; struct w49 t40304; struct w49 t40305; /* x146141 stalin.sc:19424:679634 */ /* x146130 stalin.sc:19424:679640 */ /* x146129 stalin.sc:19424:679646 */ t40298 = p15771->a26890; /* x146128 stalin.sc:19424:679641 */ a35439 = t40298; /* x273113 */ /* x273112 */ t40299 = a35439; /* x273111 */ if (!((t40299.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29588]"); structure_ref_error();} t40294 = t40299.value.structure_type24753->s1; /* x146133 stalin.sc:19424:679651 */ /* x146132 stalin.sc:19424:679657 */ t40300 = p15771->a26891; /* x146131 stalin.sc:19424:679652 */ a35440 = t40300; /* x273117 */ /* x273116 */ t40301 = a35440; /* x273115 */ if (!((t40301.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29589]"); structure_ref_error();} t40295 = t40301.value.structure_type24753->s1; /* x146137 stalin.sc:19424:679662 */ /* x146135 stalin.sc:19424:679668 */ t40302 = a26894; /* x146136 stalin.sc:19424:679671 */ t40303 = p15771->a26892; /* x268488 stalin.sc:19424:679663 */ t40296 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t40296==NULL) {backtrace("stalin.sc", 19424, 679662); out_of_memory_error();} t40296->s0 = t40302; /* MOVE: branching squeezed to general */ if (t40303>=((struct structure_type24753 *)VALUE_OFFSET)) {t40296->s1.tag = STRUCTURE_TYPE24753; t40296->s1.value.structure_type24753 = t40303;} else t40296->s1.tag = (unsigned)t40303; /* x146140 stalin.sc:19424:679676 */ /* x146139 stalin.sc:19424:679682 */ t40304 = p15771->a26893; /* x146138 stalin.sc:19424:679677 */ a35441 = t40304; /* x273121 */ /* x273120 */ t40305 = a35441; /* x273119 */ if (!((t40305.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29590]"); structure_ref_error();} t40297 = t40305.value.structure_type24753->s1; /* x146127 stalin.sc:19424:679635 */ t40293 = p15771->p15767; d15770 = t40293; b26890 = t40294; b26891 = t40295; b26892 = t40296; b26893 = t40297; return f15770();} /* LOOP[15770] */ struct w49 f15770(void) {struct p15767 *p15770 = d15770; struct w49 a26890 = b26890; /* FS1 */ struct w49 a26891 = b26891; /* TS1 */ struct structure_type24753 *a26892 = b26892; /* US1 */ struct w49 a26893 = b26893; /* WS1 */ struct w16638 a35913; /* PAIR */ struct w49 a35914; /* PAIR */ struct w49 a35915; /* PAIR */ struct w49 a37928; /* S */ struct w49 t40306; unsigned t40307; struct w49 t40308; struct structure_type27501 *t40309; struct w49 t40310; struct p15770 *t40311; struct p15766 *t40312; struct w49 t40313; struct w16638 t40314; struct w16638 t40315; struct w49 t40316; struct w49 t40317; struct w49 t40318; struct w49 t40319; struct structure_type27501 *t40320; struct structure_type24753 *t40321; struct structure_type27650 *t40322; struct w49 t40323; struct w49 t40324; struct structure_type24753 *t40325; struct w49 t40326; struct w12224 t40327; struct w49 t40328; struct w49 t40329; struct w49 t40330; struct w12224 t40331; struct w49 t40332; struct w36270 t40333; struct w49 t40334; struct structure_type24753 *t40335; struct w49 t40336; struct structure_type24753 *t40337; struct w49 t40338; struct w49 t40339; struct p15770 *e15770; e15770 = (struct p15770 *)GC_malloc(sizeof(struct p15770)); if (e15770==NULL) {backtrace_internal("[inside COMPILE-FOREIGN-CALL 15768]"); out_of_memory_error();} e15770->p15767 = p15770; e15770->a26890 = a26890; e15770->a26891 = a26891; e15770->a26892 = a26892; e15770->a26893 = a26893; /* x146150 stalin.sc:19413:679360 */ /* x146093 stalin.sc:19413:679364 */ /* x146092 stalin.sc:19413:679371 */ t40306 = e15770->a26890; /* x268490 stalin.sc:19413:679365 */ if (!((t40306.tag)==NULL_TYPE)) goto l5955; /* x146113 stalin.sc:19414:679383 */ /* x146095 stalin.sc:19414:679396 */ t40320 = p15770->p15766->a26881; /* x146109 stalin.sc:19415:679404 */ /* x146097 stalin.sc:19415:679411 */ /* x146100 stalin.sc:19416:679424 */ /* x146099 stalin.sc:19416:679453 */ t40328 = p15770->p15766->a26883; /* x146098 stalin.sc:19416:679425 */ a37928 = t40328; /* x284381 */ /* x284380 */ t40329 = a37928; /* x284379 */ if (!((t40329.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-NAME[5995] 32845]"); structure_ref_error();} t40324 = t40329.value.structure_type27750->s0; /* x146108 stalin.sc:19417:679462 */ /* x146107 stalin.sc:19417:679492 */ t40332 = p15770->a26886; /* x146106 stalin.sc:19417:679478 */ /* x146105 stalin.sc:19417:679487 */ t40337 = e15770->a26892; /* x146104 stalin.sc:19417:679479 */ /* MOVE: branching squeezed to general */ if (t40337>=((struct structure_type24753 *)VALUE_OFFSET)) {t40338.tag = STRUCTURE_TYPE24753; t40338.value.structure_type24753 = t40337;} else t40338.tag = (unsigned)t40337; t40331 = f26331(t40338); /* x146103 stalin.sc:19417:679475 */ t40330 = p15770->a26887; /* x146102 stalin.sc:19417:679467 */ /* x146101 stalin.sc:19417:679463 */ t40333.tag = NATIVE_PROCEDURE_TYPE6762; t40334 = t40330; t40336.tag = STRUCTURE_TYPE24753; t40336.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40336.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19417, 679462); out_of_memory_error();} t40336.value.structure_type24753->s0 = t40332; t40336.value.structure_type24753->s1.tag = NULL_TYPE; t40335 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t40335==NULL) {backtrace("stalin.sc", 19417, 679462); out_of_memory_error();} t40335->s0 = *((struct w49 *)(&t40331)); t40335->s1 = t40336; t40325 = f27731(t40333, t40334, t40335); /* x268489 stalin.sc:19415:679405 */ t40326 = t40324; /* MOVE: branching squeezed to general */ if (t40325>=((struct structure_type24753 *)VALUE_OFFSET)) {t40327.tag = STRUCTURE_TYPE24753; t40327.value.structure_type24753 = t40325;} else t40327.tag = (unsigned)t40325; t40321 = f13543(t40326, t40327); /* x146112 stalin.sc:19418:679503 */ /* x146111 stalin.sc:19418:679538 */ t40339 = p15770->p15766->a26883; /* x146110 stalin.sc:19418:679504 */ t40322 = f9869(t40339); /* x146094 stalin.sc:19414:679384 */ /* MOVE: branching squeezed to general */ if (t40322>=((struct structure_type27650 *)VALUE_OFFSET)) {t40323.tag = STRUCTURE_TYPE27650; t40323.value.structure_type27650 = t40322;} else t40323.tag = (unsigned)t40322; return f15497(t40320, t40321, t40323); l5955: /* x146149 stalin.sc:19419:679549 */ /* x146119 stalin.sc:19420:679563 */ /* x146118 stalin.sc:19420:679578 */ /* x146117 stalin.sc:19420:679585 */ t40314 = *((struct w16638 *)(&(e15770->a26890))); /* x146116 stalin.sc:19420:679579 */ a35913 = t40314; /* x275009 */ /* x275008 */ t40315 = a35913; /* x275007 */ if (!((t40315.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30062]"); structure_ref_error();} t40313 = t40315.value.structure_type24753->s0; /* x146115 stalin.sc:19420:679564 */ t40307 = f9826(t40313); /* x146122 stalin.sc:19421:679592 */ /* x146121 stalin.sc:19421:679599 */ t40316 = e15770->a26893; /* x146120 stalin.sc:19421:679593 */ a35914 = t40316; /* x275013 */ /* x275012 */ t40317 = a35914; /* x275011 */ if (!((t40317.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30063]"); structure_ref_error();} t40308 = t40317.value.structure_type24753->s0; /* x146123 stalin.sc:19422:679605 */ t40309 = p15770->p15766->a26881; /* x146126 stalin.sc:19423:679608 */ /* x146125 stalin.sc:19423:679615 */ t40318 = e15770->a26891; /* x146124 stalin.sc:19423:679609 */ a35915 = t40318; /* x275017 */ /* x275016 */ t40319 = a35915; /* x275015 */ if (!((t40319.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30064]"); structure_ref_error();} t40310 = t40319.value.structure_type24753->s0; /* x146142 stalin.sc:19424:679621 */ t40311 = e15770; /* x146148 stalin.sc:19425:679690 */ t40312 = p15770->p15766; /* x146114 stalin.sc:19419:679550 */ b26111 = (unsigned)t40307; b26112 = t40308; b26113 = t40309; b26114 = t40310; b26115.tag = NATIVE_PROCEDURE_TYPE20783; b26115.value.native_procedure_type20783 = t40311; b26116.tag = NATIVE_PROCEDURE_TYPE20782; b26116.value.native_procedure_type20782 = t40312; return f14692();} /* CONTAINS?[15763] */ unsigned f15763(struct w49 a26877, struct structure_type24753 *a26878) {struct w49 t40340; struct structure_type24753 *t40341; struct w49 t40342; struct w49 t40343; struct structure_type24753 *t40344; struct structure_type24753 *t40345; struct w49 t40346; struct structure_type24753 *t40347; struct structure_type24753 *t40348; h15763: /* x146086 stalin.sc:19403:679025 */ /* x146086 stalin.sc:19403:679025 */ /* x146085 stalin.sc:19403:679029 */ /* x146083 stalin.sc:19403:679034 */ t40340 = a26877; /* x146084 stalin.sc:19403:679037 */ t40341 = a26878; /* x268491 stalin.sc:19403:679030 */ if (((t40340.tag)==STRUCTURE_TYPE24753)&&((t40340.value.structure_type24753)==t40341)) goto l5956; /* x146079 */ /* x146060 stalin.sc:19404:679051 */ /* x146059 stalin.sc:19404:679058 */ t40342 = a26877; /* x268494 stalin.sc:19404:679052 */ if (!((t40342.tag)==STRUCTURE_TYPE24753)) goto l5957; /* x146077 */ /* x146076 stalin.sc:19404:679066 */ /* x146074 stalin.sc:19404:679077 */ /* x146073 stalin.sc:19404:679082 */ t40345 = a26877.value.structure_type24753; /* x268492 stalin.sc:19404:679078 */ t40343 = t40345->s0; /* x146075 stalin.sc:19404:679086 */ t40344 = a26878; /* x146071 stalin.sc:19404:679067 */ if (!(f15763(t40343, t40344)==FALSE_TYPE)) goto l5956; /* x146068 */ /* x146066 stalin.sc:19404:679101 */ /* x146065 stalin.sc:19404:679106 */ t40348 = a26877.value.structure_type24753; /* x268493 stalin.sc:19404:679102 */ t40346 = t40348->s1; /* x146067 stalin.sc:19404:679110 */ t40347 = a26878; /* x146063 stalin.sc:19404:679091 */ a26877 = t40346; a26878 = t40347; goto h15763; l5956: return TRUE_TYPE; l5957: return FALSE_TYPE;} /* UNRETURNIFY[15762] */ struct structure_type27501 *f15762(struct structure_type27501 *a26876) {struct structure_type27501 *a38388; /* S */ struct structure_type27501 *a38418; /* S */ struct structure_type27501 *t40349; struct w12218 t40350; struct structure_type27501 *t40351; struct w12218 t40352; struct w49 t40353; struct w49 t40354; struct structure_type27501 *t40355; struct structure_type27501 *t40356; struct structure_type27501 *t40357; struct structure_type27501 *t40358; struct structure_type27501 *t40359; /* x146053 stalin.sc:19396:678869 */ /* x146038 stalin.sc:19396:678873 */ /* x146037 stalin.sc:19396:678882 */ t40349 = a26876; /* x146036 stalin.sc:19396:678874 */ /* MOVE: branching squeezed to general */ if (t40349>=((struct structure_type27501 *)VALUE_OFFSET)) {t40350.tag = STRUCTURE_TYPE27501; t40350.value.structure_type27501 = t40349;} else t40350.tag = (unsigned)t40349; if (f7030(t40350)==FALSE_TYPE) goto l5963; /* x146051 stalin.sc:19397:678890 */ /* x146041 stalin.sc:19397:678894 */ /* x146040 stalin.sc:19397:678912 */ t40351 = a26876; /* x146039 stalin.sc:19397:678895 */ /* MOVE: branching squeezed to general */ if (t40351>=((struct structure_type27501 *)VALUE_OFFSET)) {t40352.tag = STRUCTURE_TYPE27501; t40352.value.structure_type27501 = t40351;} else t40352.tag = (unsigned)t40351; if (f15338(t40352)==FALSE_TYPE) goto l5965; /* x146049 stalin.sc:19398:678917 */ /* x146045 stalin.sc:19398:678941 */ /* x146044 stalin.sc:19398:678958 */ t40356 = a26876; /* x146043 stalin.sc:19398:678942 */ a38418 = t40356; /* x286341 */ /* x286340 */ t40357 = a38418; /* x286339 */ if (!(t40357>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33335]"); structure_ref_error();} t40353 = t40357->s2; /* x146048 stalin.sc:19398:678961 */ /* x146047 stalin.sc:19398:678971 */ t40358 = a26876; /* x146046 stalin.sc:19398:678962 */ a38388 = t40358; /* x286221 */ /* x286220 */ t40359 = a38388; /* x286219 */ if (!(t40359>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-C[5769] 33305]"); structure_ref_error();} t40354 = t40359->s3; /* x146042 stalin.sc:19398:678918 */ t40355 = f7025(t40353, t40354); return t40355; l5965: /* x146050 stalin.sc:19399:678977 */ return a1194; l5963: /* x146052 stalin.sc:19400:678993 */ return a26876;} /* COMPILE-GOTO[15756] */ struct w61020 f15756(struct w12563 a26873, struct w12563 a26874) {struct w61020 r15756; struct w12563 t40360; struct w12563 t40361; struct w12563 t40362; struct structure_type24753 *t40363; char *t40364; /* x146033 stalin.sc:19393:678771 */ /* x146013 stalin.sc:19393:678778 */ /* x146011 stalin.sc:19393:678783 */ t40360 = a26873; /* x146012 stalin.sc:19393:678786 */ t40361 = a26874; /* x268495 stalin.sc:19393:678779 */ /* EQ: dispatching general to general */ if (!((t40360.tag)==(t40361.tag))) goto l5967; switch (t40360.tag) {case FALSE_TYPE: break; case STRUCTURE_TYPE24753: if (!((t40360.value.structure_type24753)==(t40361.value.structure_type24753))) goto l5967; break; default: if (!((t40360.value.external_symbol_type)==(t40361.value.external_symbol_type))) goto l5967;} /* x146017 */ /* x146016 */ /* x146015 stalin.sc:19393:678790 */ /* x146014 stalin.sc:19393:678791 */ /* x276865 stalin.sc:14693:514793 */ r15756.tag = STRING_TYPE; r15756.value.string_type = ""; return r15756; l5967: /* x146032 */ /* x146031 */ /* x146030 */ /* x146029 stalin.sc:19393:678806 */ /* x146022 stalin.sc:19393:678814 */ if ((a26873.tag)==FALSE_TYPE) goto l5969; /* x146024 */ /* x146023 */ goto l5970; l5969: /* x146028 */ /* x146027 */ /* x146026 stalin.sc:19393:678817 */ /* x146025 stalin.sc:19393:678818 */ /* x295885 QobiScheme.sc:166:5314 */ /* x295884 QobiScheme.sc:166:5321 */ t40364 = "This shouldn\'t happen"; /* x295883 QobiScheme.sc:166:5315 */ stalin_panic(t40364); l5970: /* x146021 */ /* x146020 stalin.sc:19393:678828 */ /* x146019 stalin.sc:19393:678836 */ t40362 = a26873; /* x146018 stalin.sc:19393:678829 */ t40363 = f13640(t40362); r15756.tag = STRUCTURE_TYPE24753; r15756.value.structure_type24753 = t40363; return r15756;} /* ALLOCATE-LABEL[15753] */ struct structure_type24753 *f15753(void) {unsigned a25792; /* I */ struct structure_type24753 *a26871; /* L */ struct structure_type24753 *a35181; /* OBJS */ struct structure_type24753 *t40365; unsigned t40366; int t40367; unsigned t40368; char *t40369; char *t40370; struct w49 t40371; unsigned t40372; struct w49 t40373; /* x146007 stalin.sc:19388:678687 */ /* x146006 stalin.sc:19388:678696 */ /* x146005 stalin.sc:19388:678701 */ t40368 = a835; /* x146004 stalin.sc:19388:678697 */ a25792 = t40368; /* x128868 stalin.sc:15992:557363 */ /* x128867 stalin.sc:15992:557373 */ /* x128866 stalin.sc:15992:557389 */ t40372 = a25792; /* x128865 stalin.sc:15992:557374 */ /* MOVE: dispatching squished to general */ if (t40372==FALSE_TYPE) t40373.tag = (unsigned)t40372; else {t40373.tag = FIXNUM_TYPE; t40373.value.fixnum_type = (int)(((int)t40372)>>1);} t40370 = f28396(t40373); /* x128864 stalin.sc:15992:557369 */ t40369 = "l"; /* x128863 stalin.sc:15992:557364 */ t40371.tag = STRUCTURE_TYPE24753; t40371.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40371.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15992, 557363); out_of_memory_error();} t40371.value.structure_type24753->s0.tag = STRING_TYPE; t40371.value.structure_type24753->s0.value.string_type = t40370; t40371.value.structure_type24753->s1.tag = NULL_TYPE; a35181 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35181==NULL) {backtrace("stalin.sc", 15992, 557363); out_of_memory_error();} a35181->s0.tag = STRING_TYPE; a35181->s0.value.string_type = t40369; a35181->s1 = t40371; /* x272369 */ t40365 = a35181; /* x146003 */ a26871 = t40365; /* x146002 */ /* x146001 stalin.sc:19389:678711 */ /* x146000 stalin.sc:19389:678722 */ /* x145998 stalin.sc:19389:678725 */ t40366 = a835; /* x145999 stalin.sc:19389:678730 */ t40367 = 1; /* x268496 stalin.sc:19389:678723 */ if (!((t40366&1)==1)) {backtrace("stalin.sc", 19389, 678722); plus_error();} a835 = (((unsigned)(((int)(((int)t40366)>>1))+t40367))<<1)+1; /* x145996 */ /* x145995 stalin.sc:19390:678736 */ return a26871;} /* [inside COMPILE-FOREIGN-PROCEDURE-PROTOTYPES 15752] */ struct w49 f15752(struct w49 a26870) {struct w49 t40374; char *t40375; struct w61020 t40376; /* x145973 stalin.sc:19380:678515 */ /* x145971 stalin.sc:19380:678531 */ t40374 = a26870; /* x145972 stalin.sc:19380:678533 */ t40375 = ""; /* x145970 stalin.sc:19380:678516 */ t40376.tag = STRING_TYPE; t40376.value.string_type = t40375; return f14506(t40374, t40376);} /* [inside COMPILE-FOREIGN-PROCEDURE-PROTOTYPES 15748] */ struct w49 f15748(struct w49 a26868) {struct w49 r15748; struct w49 a19652; /* S */ struct w49 a19662; /* S */ struct w49 a19672; /* S */ struct w49 a19682; /* S */ struct w49 a37918; /* S */ struct w49 t40377; struct w49 t40378; struct w49 t40379; struct w49 t40380; struct structure_type24753 *t40381; struct w61020 t40382; struct w49 t40383; struct w49 t40384; unsigned t40385; struct w49 t40386; struct structure_type24753 *t40387; struct w49 t40388; struct structure_type24753 *t40389; struct w49 t40390; struct structure_type24753 *t40391; struct w49 t40392; struct w49 t40393; struct w49 t40394; struct w49 t40395; struct w36270 t40396; struct w49 t40397; struct structure_type24753 *t40398; struct w49 t40399; struct w49 t40400; struct w49 t40401; struct w49 t40402; struct w49 t40403; /* x145986 stalin.sc:19370:678146 */ /* x145940 stalin.sc:19370:678150 */ /* x145939 stalin.sc:19370:678182 */ t40377 = a26868; /* x145938 stalin.sc:19370:678151 */ if (f7339(t40377)==FALSE_TYPE) goto l5972; /* x145983 stalin.sc:19371:678190 */ /* x145943 stalin.sc:19371:678197 */ /* x145942 stalin.sc:19371:678229 */ t40378 = a26868; /* x145941 stalin.sc:19371:678198 */ a37918 = t40378; /* x284341 */ /* x284340 */ t40379 = a37918; /* x284339 */ if (!((t40379.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-INCLUDE[6019] 32835]"); structure_ref_error();} if ((t40379.value.structure_type27750->s3.tag)==FALSE_TYPE) goto l5974; /* x145954 */ /* x145953 */ /* x145952 */ /* x145951 stalin.sc:19372:678237 */ /* x145950 stalin.sc:19372:678247 */ /* x145949 stalin.sc:19372:678279 */ t40402 = a26868; /* x145948 stalin.sc:19372:678248 */ a19682 = t40402; /* x52268 */ /* x52267 */ t40403 = a19682; /* x52266 */ if (!((t40403.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("FOREIGN-PROCEDURE-TYPE-INCLUDE[6019]"); structure_ref_error();} t40401 = t40403.value.structure_type27750->s3; /* x145947 stalin.sc:19372:678238 */ f18320(t40401); /* x145946 */ /* x145945 stalin.sc:19373:678288 */ /* x145944 stalin.sc:19373:678289 */ /* x276429 stalin.sc:14693:514793 */ r15748.tag = STRING_TYPE; r15748.value.string_type = ""; return r15748; l5974: /* x145982 */ /* x145981 */ /* x145980 stalin.sc:19374:678308 */ /* x145958 stalin.sc:19375:678328 */ /* x145957 stalin.sc:19375:678359 */ t40383 = a26868; /* x145956 stalin.sc:19375:678329 */ a19672 = t40383; /* x52229 */ /* x52228 */ t40384 = a19672; /* x52227 */ if (!((t40384.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("FOREIGN-PROCEDURE-TYPE-RESULT[6011]"); structure_ref_error();} t40380 = t40384.value.structure_type27750->s2; /* x145979 stalin.sc:19376:678366 */ /* x145965 stalin.sc:19376:678373 */ /* x145962 stalin.sc:19376:678377 */ /* x145961 stalin.sc:19376:678405 */ t40392 = a26868; /* x145960 stalin.sc:19376:678378 */ if (f9870(t40392)==FALSE_TYPE) goto l5976; /* x145963 stalin.sc:19377:678416 */ t40385 = NATIVE_PROCEDURE_TYPE6904; goto l5977; l5976: /* x145964 stalin.sc:19378:678436 */ t40385 = NATIVE_PROCEDURE_TYPE6903; l5977: /* x145968 stalin.sc:19379:678462 */ /* x145967 stalin.sc:19379:678491 */ t40393 = a26868; /* x145966 stalin.sc:19379:678463 */ a19652 = t40393; /* x52151 */ /* x52150 */ t40394 = a19652; /* x52149 */ if (!((t40394.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("FOREIGN-PROCEDURE-TYPE-NAME[5995]"); structure_ref_error();} t40386 = t40394.value.structure_type27750->s0; /* x145978 stalin.sc:19380:678498 */ /* x145977 stalin.sc:19381:678547 */ /* x145976 stalin.sc:19381:678582 */ t40399 = a26868; /* x145975 stalin.sc:19381:678548 */ a19662 = t40399; /* x52190 */ /* x52189 */ t40400 = a19662; /* x52188 */ if (!((t40400.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("FOREIGN-PROCEDURE-TYPE-PARAMETERS[6003]"); structure_ref_error();} t40395 = t40400.value.structure_type27750->s1; /* x145974 stalin.sc:19380:678503 */ /* x145969 stalin.sc:19380:678499 */ t40396.tag = NATIVE_PROCEDURE_TYPE23848; t40397 = t40395; t40398 = (struct structure_type24753 *)NULL_TYPE; t40387 = f27731(t40396, t40397, t40398); /* x268497 stalin.sc:19376:678367 */ if (t40385==NATIVE_PROCEDURE_TYPE6903) {t40388 = t40386; t40389 = t40387; t40381 = f13643(t40388, t40389);} else {t40390 = t40386; t40391 = t40387; t40381 = f13642(t40390, t40391);} /* x145955 stalin.sc:19374:678309 */ t40382.tag = STRUCTURE_TYPE24753; t40382.value.structure_type24753 = t40381; return f14506(t40380, t40382); l5972: /* x145985 stalin.sc:19382:678595 */ /* x145984 stalin.sc:19382:678596 */ /* x276431 stalin.sc:14693:514793 */ r15748.tag = STRING_TYPE; r15748.value.string_type = ""; return r15748;} /* [inside COMPILE-NATIVE-PROCEDURE-PROTOTYPES 15742] */ struct w49 f15742(struct w49 a26863) {struct w49 a36819; /* S */ struct w49 a36961; /* S */ struct structure_type24753 *a41950; /* CS */ struct structure_type24753 *t40404; struct w49 t40405; struct structure_type24753 *t40406; struct w49 t40407; struct w49 t40408; struct w49 t40409; struct w49 t40410; struct structure_type24753 *t40411; struct w49 t40412; struct w49 t40413; struct w49 t40414; struct w49 t40415; char *t40416; struct w49 t40417; struct w49 t40418; struct w49 t40419; /* x145863 stalin.sc:19357:677786 */ /* x145862 stalin.sc:19360:677883 */ /* x145861 stalin.sc:19360:677891 */ /* x145860 stalin.sc:19360:677907 */ /* x145859 stalin.sc:19360:677922 */ t40418 = a26863; /* x145858 stalin.sc:19360:677908 */ a36961 = t40418; /* x280513 */ /* x280512 */ t40419 = a36961; /* x280511 */ if (!((t40419.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31878]"); structure_ref_error();} t40417 = t40419.value.structure_type27692->s7; /* x268499 stalin.sc:19360:677892 */ if (!((t40417.tag)==EXTERNAL_SYMBOL_TYPE)) {backtrace("stalin.sc", 19360, 677891); symbol_string_error();} t40416 = t40417.value.external_symbol_type; /* x145856 stalin.sc:19360:677884 */ t40405 = f13634(t40416); /* x145855 stalin.sc:19358:677810 */ /* x145854 stalin.sc:19359:677830 */ /* x145850 stalin.sc:19359:677842 */ /* x145849 stalin.sc:19359:677861 */ t40413 = a26863; /* x145848 stalin.sc:19359:677843 */ a36819 = t40413; /* x279945 */ /* x279944 */ t40414 = a36819; /* x279943 */ if (!((t40414.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31736]"); structure_ref_error();} t40410 = t40414.value.structure_type27692->s9; /* x145853 stalin.sc:19359:677864 */ /* x145852 stalin.sc:19359:677869 */ t40415 = a26863; /* x145851 stalin.sc:19359:677865 */ t40411 = f14271(t40415); /* x145847 stalin.sc:19359:677831 */ t40412.tag = STRUCTURE_TYPE24753; t40412.value.structure_type24753 = t40411; t40409 = f14414(t40410, t40412); /* x145846 stalin.sc:19358:677811 */ t40404 = f13514(t40409); /* x145845 stalin.sc:19357:677787 */ t40408.tag = STRUCTURE_TYPE24753; t40408.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40408.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19357, 677786); out_of_memory_error();} t40408.value.structure_type24753->s0 = t40405; t40408.value.structure_type24753->s1.tag = NULL_TYPE; a41950 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41950==NULL) {backtrace("stalin.sc", 19357, 677786); out_of_memory_error();} a41950->s0.tag = STRUCTURE_TYPE24753; a41950->s0.value.structure_type24753 = t40404; a41950->s1 = t40408; /* x301912 stalin.sc:14386:505956 */ /* x301911 stalin.sc:14386:505972 */ t40406 = a41950; /* x301910 stalin.sc:14386:505957 */ t40407.tag = STRUCTURE_TYPE24753; t40407.value.structure_type24753 = t40406; return f13474(t40407);} /* [inside COMPILE-NATIVE-PROCEDURE-PROTOTYPES 15737] */ struct w49 f15737(struct w49 a26859) {struct w49 r15737; struct w49 a23953; /* E */ struct w49 a24055; /* E */ struct w49 a26833; /* E */ struct structure_type24753 *a26835; /* CS */ struct structure_type24753 *a26860; /* CS */ struct structure_type24753 *a26861; /* C */ struct w49 a36666; /* S */ struct w6852 a39198; /* S */ struct structure_type24753 *a41753; /* CS */ struct structure_type24753 *a41754; /* CS */ struct structure_type24753 *a41949; /* CS */ struct w49 t40420; struct structure_type24753 *t40421; struct structure_type24753 *t40422; struct w49 t40423; struct w49 t40424; struct structure_type24753 *t40425; struct w49 t40426; struct w49 t40427; struct w49 t40428; struct w49 t40429; struct w49 t40430; struct w6852 t40431; struct w6852 t40432; struct w49 t40433; struct w49 t40434; struct w49 t40435; struct structure_type24753 *t40436; struct w49 t40437; struct w49 t40438; char *t40439; struct structure_type24753 *t40440; struct structure_type24753 *t40441; struct w49 t40442; struct w49 t40443; struct w49 t40444; struct w61020 t40445; struct w49 t40446; struct structure_type24753 *t40447; struct w49 t40448; struct w49 t40449; struct w49 t40450; struct w49 t40451; struct structure_type24753 *t40452; struct w49 t40453; struct structure_type24753 *t40454; struct w49 t40455; struct w49 t40456; struct w49 t40457; struct structure_type24753 *t40458; struct w49 t40459; struct w12224 t40460; struct w36270 t40461; struct w49 t40462; struct structure_type24753 *t40463; struct structure_type24753 *t40464; struct w227671 t40465; struct w49 t40466; struct w49 t40467; unsigned t40468; struct structure_type24753 *t40469; struct structure_type24753 *t40470; struct w49 t40471; struct structure_type24753 *t40472; struct w49 t40473; struct structure_type24753 *t40474; struct w49 t40475; struct w49 t40476; struct w12224 t40477; struct w228345 t40478; struct w49 t40479; struct structure_type24753 *t40480; struct w49 t40481; struct w21193 t40483; struct w227671 t40484; struct w49 t40485; struct w49 t40486; struct w49 t40487; struct w21193 t40488; struct w36108 t40489; struct w49 t40490; struct structure_type24753 *t40491; struct w49 t40492; struct w49 t40493; struct w49 t40494; struct structure_type24753 *t40495; struct w49 t40496; struct w49 t40497; struct structure_type24753 *t40498; struct w49 t40499; char *t40500; struct w49 t40501; struct w49 t40502; struct w12224 t40503; struct w36270 t40504; struct w49 t40505; struct structure_type24753 *t40506; struct structure_type24753 *t40507; struct w227671 t40508; struct w49 t40509; struct w49 t40510; struct w49 t40511; char *t40512; /* x145929 stalin.sc:19330:676876 */ /* x145789 stalin.sc:19330:676880 */ /* x145788 stalin.sc:19330:676899 */ t40420 = a26859; /* x145787 stalin.sc:19330:676881 */ if (f8585(t40420)==FALSE_TYPE) goto l5979; /* x145791 stalin.sc:19331:676903 */ /* x145790 stalin.sc:19331:676904 */ /* x276423 stalin.sc:14693:514793 */ r15737.tag = STRING_TYPE; r15737.value.string_type = ""; return r15737; l5979: /* x145928 stalin.sc:19332:676913 */ /* x145927 stalin.sc:19332:676924 */ /* x145926 stalin.sc:19332:676953 */ t40493 = a26859; /* x145925 stalin.sc:19332:676925 */ a26833 = t40493; /* x145487 */ /* x145486 stalin.sc:19256:674408 */ /* x145479 stalin.sc:19256:674414 */ /* x145478 stalin.sc:19256:674433 */ t40511 = a26833; /* x145477 stalin.sc:19256:674415 */ if (f8585(t40511)==FALSE_TYPE) goto l6002; /* x145483 */ /* x145482 */ /* x145481 stalin.sc:19256:674436 */ /* x145480 stalin.sc:19256:674437 */ /* x295209 QobiScheme.sc:166:5314 */ /* x295208 QobiScheme.sc:166:5321 */ t40512 = "This shouldn\'t happen"; /* x295207 QobiScheme.sc:166:5315 */ stalin_panic(t40512); goto l6003; l6002: /* x145485 stalin.sc:19256:674408 */ /* x145484 stalin.sc:19256:674408 */ l6003: /* x145476 */ /* x145475 stalin.sc:19257:674448 */ /* x145431 stalin.sc:19257:674452 */ /* x145430 stalin.sc:19257:674493 */ t40494 = a26833; /* x145429 stalin.sc:19257:674453 */ if (f8481(t40494)==FALSE_TYPE) goto l5996; /* x145432 stalin.sc:19258:674501 */ t40421 = (struct structure_type24753 *)NULL_TYPE; goto l5997; l5996: /* x145474 stalin.sc:19259:674510 */ /* x145473 stalin.sc:19259:674520 */ /* x145472 stalin.sc:19260:674582 */ /* x145468 stalin.sc:19260:674597 */ /* x145471 stalin.sc:19261:674646 */ /* x145470 stalin.sc:19261:674657 */ t40510 = a26833; /* x145469 stalin.sc:19261:674647 */ t40507 = f8987(t40510); /* x145456 stalin.sc:19260:674583 */ t40508.tag = NATIVE_PROCEDURE_TYPE23876; /* MOVE: branching squeezed to general */ if (t40507>=((struct structure_type24753 *)VALUE_OFFSET)) {t40509.tag = STRUCTURE_TYPE24753; t40509.value.structure_type24753 = t40507;} else t40509.tag = (unsigned)t40507; t40503 = f1226(t40508, t40509); /* x145455 stalin.sc:19259:674525 */ /* x145448 stalin.sc:19259:674521 */ t40504.tag = NATIVE_PROCEDURE_TYPE23878; t40505 = *((struct w49 *)(&t40503)); t40506 = (struct structure_type24753 *)NULL_TYPE; t40495 = f27731(t40504, t40505, t40506); /* x145447 */ a26835 = t40495; /* x145446 stalin.sc:19262:674670 */ /* x145435 stalin.sc:19262:674674 */ /* x145434 stalin.sc:19262:674697 */ t40496 = a26833; /* x145433 stalin.sc:19262:674675 */ if ((f8897(t40496).tag)==FALSE_TYPE) goto l5999; /* x145444 stalin.sc:19263:674703 */ /* x145442 stalin.sc:19263:674709 */ /* x145440 stalin.sc:19263:674717 */ /* x145439 stalin.sc:19263:674735 */ t40502 = a26833; /* x145438 stalin.sc:19263:674718 */ t40499 = f8691(t40502); /* x145441 stalin.sc:19263:674738 */ t40500 = ""; /* x145437 stalin.sc:19263:674710 */ t40501.tag = STRING_TYPE; t40501.value.string_type = t40500; t40497 = f14374(t40499, t40501); /* x145443 stalin.sc:19263:674742 */ t40498 = a26835; /* x268507 stalin.sc:19263:674704 */ t40421 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t40421==NULL) {backtrace("stalin.sc", 19263, 674703); out_of_memory_error();} t40421->s0 = t40497; /* MOVE: branching squeezed to general */ if (t40498>=((struct structure_type24753 *)VALUE_OFFSET)) {t40421->s1.tag = STRUCTURE_TYPE24753; t40421->s1.value.structure_type24753 = t40498;} else t40421->s1.tag = (unsigned)t40498; goto l6000; l5999: /* x145445 stalin.sc:19264:674749 */ t40421 = a26835; l6000: l5997: /* x145924 */ a26860 = t40421; /* x145923 */ /* x145922 stalin.sc:19333:676968 */ /* x145917 stalin.sc:19334:676980 */ /* x145914 stalin.sc:19334:676984 */ /* x145913 stalin.sc:19334:676988 */ /* x145912 stalin.sc:19334:677010 */ t40475 = a26859; /* x145911 stalin.sc:19334:676989 */ if (!(f10495(t40475)==FALSE_TYPE)) goto l5990; /* x145908 */ /* x145907 stalin.sc:19335:677019 */ /* x145906 stalin.sc:19335:677060 */ t40476 = a26859; /* x145905 stalin.sc:19335:677020 */ if (!(f8481(t40476)==FALSE_TYPE)) goto l5990; /* x145902 */ /* x145901 stalin.sc:19338:677176 */ /* x145900 stalin.sc:19338:677185 */ t40481 = a26859; /* x145899 stalin.sc:19338:677177 */ a24055 = t40481; /* x104703 */ /* x104702 stalin.sc:10489:363608 */ /* x104698 stalin.sc:10489:363621 */ /* x104699 stalin.sc:10489:363637 */ /* x104700 stalin.sc:10489:363658 */ /* x104701 stalin.sc:10489:363684 */ t40486 = a24055; /* x104696 stalin.sc:10489:363609 */ a23953 = t40486; /* x104234 */ /* x104233 stalin.sc:10388:359926 */ /* x104232 stalin.sc:10388:359962 */ t40488 = a1594; /* x104231 stalin.sc:10388:359936 */ /* x104226 stalin.sc:10388:359927 */ t40489.tag = NATIVE_PROCEDURE_TYPE23884; t40490 = *((struct w49 *)(&t40488)); t40491 = (struct structure_type24753 *)NULL_TYPE; f27755(t40489, t40490, t40491); /* x104225 */ /* x104224 stalin.sc:10389:359969 */ /* x104223 stalin.sc:10389:359984 */ t40487 = a23953; /* x104222 */ /* x104221 */ /* x104220 */ /* x104219 */ /* x104218 */ /* x104217 */ /* x104216 */ /* x104175 */ /* x104174 stalin.sc:10389:359974 */ f11552(t40487); /* x104695 */ /* x104694 stalin.sc:10490:363688 */ /* x104692 stalin.sc:10490:363703 */ /* x104693 stalin.sc:10490:363724 */ t40483 = a1594; /* x104691 stalin.sc:10490:363689 */ t40484.tag = NATIVE_PROCEDURE_TYPE7309; t40485 = *((struct w49 *)(&t40483)); t40477 = f1226(t40484, t40485); /* x145898 stalin.sc:19337:677131 */ /* x145897 stalin.sc:19337:677126 */ t40478.tag = NATIVE_PROCEDURE_TYPE7305; t40479 = *((struct w49 *)(&t40477)); t40480 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t40478, t40479, t40480).tag)==FALSE_TYPE) goto l5991; l5990: /* x145915 stalin.sc:19339:677199 */ t40468 = NATIVE_PROCEDURE_TYPE6904; goto l5992; l5991: /* x145916 stalin.sc:19340:677220 */ t40468 = NATIVE_PROCEDURE_TYPE6903; l5992: /* x145920 stalin.sc:19341:677246 */ /* x145919 stalin.sc:19341:677251 */ t40492 = a26859; /* x145918 stalin.sc:19341:677247 */ t40469 = f14276(t40492); /* x145921 stalin.sc:19342:677258 */ t40470 = a26860; /* x268498 stalin.sc:19333:676969 */ if (t40468==NATIVE_PROCEDURE_TYPE6903) {t40471.tag = STRUCTURE_TYPE24753; t40471.value.structure_type24753 = t40469; t40472 = t40470; t40422 = f13643(t40471, t40472);} else {t40473.tag = STRUCTURE_TYPE24753; t40473.value.structure_type24753 = t40469; t40474 = t40470; t40422 = f13642(t40473, t40474);} /* x145891 */ a26861 = t40422; /* x145890 */ /* x145889 */ /* x145888 stalin.sc:19343:677266 */ /* x145887 stalin.sc:19350:677547 */ /* x145825 stalin.sc:19350:677551 */ /* x145824 stalin.sc:19350:677592 */ t40444 = a26859; /* x145823 stalin.sc:19350:677552 */ if (f8481(t40444)==FALSE_TYPE) goto l5985; /* x145884 stalin.sc:19351:677602 */ /* x145883 stalin.sc:19355:677741 */ /* x145882 stalin.sc:19356:677761 */ /* x145881 stalin.sc:19361:677936 */ /* x145877 stalin.sc:19362:677959 */ /* x145880 stalin.sc:19363:678009 */ /* x145879 stalin.sc:19363:678020 */ t40467 = a26859; /* x145878 stalin.sc:19363:678010 */ t40464 = f8987(t40467); /* x145865 stalin.sc:19361:677937 */ t40465.tag = NATIVE_PROCEDURE_TYPE23897; /* MOVE: branching squeezed to general */ if (t40464>=((struct structure_type24753 *)VALUE_OFFSET)) {t40466.tag = STRUCTURE_TYPE24753; t40466.value.structure_type24753 = t40464;} else t40466.tag = (unsigned)t40464; t40460 = f1226(t40465, t40466); /* x145864 stalin.sc:19356:677766 */ /* x145844 stalin.sc:19356:677762 */ t40461.tag = NATIVE_PROCEDURE_TYPE23899; t40462 = *((struct w49 *)(&t40460)); t40463 = (struct structure_type24753 *)NULL_TYPE; t40458 = f27731(t40461, t40462, t40463); /* x145843 stalin.sc:19355:677742 */ /* MOVE: branching squeezed to general */ if (t40458>=((struct structure_type24753 *)VALUE_OFFSET)) {t40459.tag = STRUCTURE_TYPE24753; t40459.value.structure_type24753 = t40458;} else t40459.tag = (unsigned)t40458; t40446 = f13492(t40459); /* x145842 stalin.sc:19352:677627 */ /* x145829 stalin.sc:19352:677631 */ /* x145828 stalin.sc:19352:677654 */ t40450 = a26859; /* x145827 stalin.sc:19352:677632 */ if ((f8897(t40450).tag)==FALSE_TYPE) goto l5988; /* x145839 stalin.sc:19353:677662 */ /* x145838 stalin.sc:19353:677679 */ /* x145834 stalin.sc:19353:677687 */ /* x145833 stalin.sc:19353:677705 */ t40456 = a26859; /* x145832 stalin.sc:19353:677688 */ t40453 = f8691(t40456); /* x145837 stalin.sc:19353:677708 */ /* x145836 stalin.sc:19353:677713 */ t40457 = a26859; /* x145835 stalin.sc:19353:677709 */ t40454 = f14274(t40457); /* x145831 stalin.sc:19353:677680 */ t40455.tag = STRUCTURE_TYPE24753; t40455.value.structure_type24753 = t40454; t40451 = f14374(t40453, t40455); /* x145830 stalin.sc:19353:677663 */ t40452 = f13514(t40451); t40445.tag = STRUCTURE_TYPE24753; t40445.value.structure_type24753 = t40452; goto l5989; l5988: /* x145841 stalin.sc:19354:677723 */ /* x145840 stalin.sc:19354:677724 */ /* x276425 stalin.sc:14693:514793 */ t40445.tag = STRING_TYPE; t40445.value.string_type = ""; l5989: /* x145826 stalin.sc:19351:677603 */ t40449.tag = STRUCTURE_TYPE24753; t40449.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40449.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19351, 677602); out_of_memory_error();} t40449.value.structure_type24753->s0 = t40446; t40449.value.structure_type24753->s1.tag = NULL_TYPE; a41754 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41754==NULL) {backtrace("stalin.sc", 19351, 677602); out_of_memory_error();} a41754->s0 = *((struct w49 *)(&t40445)); a41754->s1 = t40449; /* x301128 stalin.sc:14400:506485 */ /* x301127 stalin.sc:14400:506503 */ t40447 = a41754; /* x301126 stalin.sc:14400:506486 */ t40448.tag = STRUCTURE_TYPE24753; t40448.value.structure_type24753 = t40447; t40424 = f13492(t40448); goto l5986; l5985: /* x145886 stalin.sc:19364:678034 */ /* x145885 stalin.sc:19364:678035 */ /* x276427 stalin.sc:14693:514793 */ t40424.tag = STRING_TYPE; t40424.value.string_type = ""; l5986: /* x145822 stalin.sc:19344:677286 */ /* x145811 stalin.sc:19344:677290 */ /* x145810 stalin.sc:19344:677294 */ /* x145809 stalin.sc:19344:677307 */ /* x145808 stalin.sc:19344:677324 */ t40429 = a26859; /* x145807 stalin.sc:19344:677308 */ t40428 = f8687(t40429); /* x145806 stalin.sc:19344:677295 */ if (!(f8793(t40428)==FALSE_TYPE)) goto l5980; /* x145803 */ /* x145802 stalin.sc:19345:677337 */ /* x145801 stalin.sc:19346:677362 */ /* x145800 stalin.sc:19346:677379 */ /* x145799 stalin.sc:19346:677403 */ t40433 = a26859; /* x145798 stalin.sc:19346:677380 */ a36666 = t40433; /* x279333 */ /* x279332 */ t40434 = a36666; /* x279331 */ if (!((t40434.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31583]"); structure_ref_error();} t40431 = t40434.value.structure_type27694->s1; /* x145797 stalin.sc:19346:677363 */ a39198 = t40431; /* x289461 */ /* x289460 */ t40432 = a39198; /* x289459 */ if (!((t40432.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34115]"); structure_ref_error();} t40430 = t40432.value.structure_type27698->s15; /* x145796 stalin.sc:19345:677338 */ if (!(f6936(t40430)==FALSE_TYPE)) goto l5981; l5980: /* x145815 stalin.sc:19348:677476 */ /* x145814 stalin.sc:19348:677498 */ t40440 = a26861; /* x145813 stalin.sc:19348:677491 */ t40439 = "void"; /* x145812 stalin.sc:19348:677477 */ t40443.tag = STRUCTURE_TYPE24753; t40443.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40443.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19348, 677476); out_of_memory_error();} t40443.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40443.value.structure_type24753->s0.value.structure_type24753 = t40440; t40443.value.structure_type24753->s1.tag = NULL_TYPE; a41949 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41949==NULL) {backtrace("stalin.sc", 19348, 677476); out_of_memory_error();} a41949->s0.tag = STRING_TYPE; a41949->s0.value.string_type = t40439; a41949->s1 = t40443; /* x301908 stalin.sc:14386:505956 */ /* x301907 stalin.sc:14386:505972 */ t40441 = a41949; /* x301906 stalin.sc:14386:505957 */ t40442.tag = STRUCTURE_TYPE24753; t40442.value.structure_type24753 = t40441; t40423 = f13474(t40442); goto l5982; l5981: /* x145821 stalin.sc:19349:677508 */ /* x145819 stalin.sc:19349:677520 */ /* x145818 stalin.sc:19349:677537 */ t40438 = a26859; /* x145817 stalin.sc:19349:677521 */ t40435 = f8687(t40438); /* x145820 stalin.sc:19349:677540 */ t40436 = a26861; /* x145816 stalin.sc:19349:677509 */ t40437.tag = STRUCTURE_TYPE24753; t40437.value.structure_type24753 = t40436; t40423 = f14414(t40435, t40437); l5982: /* x145792 stalin.sc:19343:677267 */ t40427.tag = STRUCTURE_TYPE24753; t40427.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40427.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19343, 677266); out_of_memory_error();} t40427.value.structure_type24753->s0 = t40424; t40427.value.structure_type24753->s1.tag = NULL_TYPE; a41753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41753==NULL) {backtrace("stalin.sc", 19343, 677266); out_of_memory_error();} a41753->s0 = t40423; a41753->s1 = t40427; /* x301124 stalin.sc:14400:506485 */ /* x301123 stalin.sc:14400:506503 */ t40425 = a41753; /* x301122 stalin.sc:14400:506486 */ t40426.tag = STRUCTURE_TYPE24753; t40426.value.structure_type24753 = t40425; return f13492(t40426);} /* [inside SPILL-SLOTTED-VARIABLES 15726] */ struct structure_type24753 *f15726(struct p15718 *p15726, struct w49 a26854) {struct structure_type24753 *r15726; char *a26855; /* v */ struct p15718 *t40513; char *t40514; char *t40515; char *t40516; struct w49 t40517; struct w49 t40518; char *t40519; char *t40520; struct w49 t40521; struct w49 t40522; char *t40523; char *t40524; struct w49 t40525; struct w49 t40526; char *t40527; char *t40528; struct w49 t40529; struct w49 t40530; char *t40531; char *t40532; struct w49 t40533; struct w49 t40534; char *t40535; struct p15718 *t40536; struct structure_type24753 *t40537; struct structure_type24753 *t40538; struct w49 t40539; struct w49 t40540; struct structure_type24753 *t40541; struct structure_type24753 *t40542; struct w49 t40543; struct w61020 t40544; struct w49 t40545; struct w49 t40546; struct w49 t40547; char *t40548; struct w6315 t40549; char *t40550; struct w6315 t40551; struct p15718 *p15727; struct p15718 *p15732; /* x145743 stalin.sc:19304:675993 */ /* x145742 stalin.sc:19304:675999 */ t40514 = a686; /* x145741 */ t40513 = p15726; p15727 = t40513; a26855 = t40514; /* x145740 */ /* x145680 */ /* x145678 */ t40515 = a26855; /* x145679 */ t40516 = q18; /* x145677 */ /* MOVE: branching squeezed to general */ if (t40515>=((char *)VALUE_OFFSET)) {t40517.tag = EXTERNAL_SYMBOL_TYPE; t40517.value.external_symbol_type = t40515;} else t40517.tag = (unsigned)t40515; t40518.tag = EXTERNAL_SYMBOL_TYPE; t40518.value.external_symbol_type = t40516; if (f26160(t40517, t40518)==FALSE_TYPE) goto l6005; /* x145686 */ /* x145685 */ /* x145684 stalin.sc:19306:676055 */ /* x145682 stalin.sc:19306:676070 */ /* x145683 stalin.sc:19306:676073 */ t40550 = "Immediate flat closures are not (yet) implemented"; /* x145681 stalin.sc:19306:676056 */ t40551.tag = FALSE_TYPE; f9707(t40551, t40550); return r15726; l6005: /* x145739 */ /* x145690 */ /* x145688 */ t40519 = a26855; /* x145689 */ t40520 = q19; /* x145687 */ /* MOVE: branching squeezed to general */ if (t40519>=((char *)VALUE_OFFSET)) {t40521.tag = EXTERNAL_SYMBOL_TYPE; t40521.value.external_symbol_type = t40519;} else t40521.tag = (unsigned)t40519; t40522.tag = EXTERNAL_SYMBOL_TYPE; t40522.value.external_symbol_type = t40520; if (f26160(t40521, t40522)==FALSE_TYPE) goto l6007; /* x145696 */ /* x145695 */ /* x145694 stalin.sc:19308:676157 */ /* x145692 stalin.sc:19308:676172 */ /* x145693 stalin.sc:19308:676175 */ t40548 = "Indirect flat closures are not (yet) implemented"; /* x145691 stalin.sc:19308:676158 */ t40549.tag = FALSE_TYPE; f9707(t40549, t40548); return r15726; l6007: /* x145738 */ /* x145718 */ /* x145717 */ /* x145715 */ t40523 = a26855; /* x145716 */ t40524 = q21; /* x145714 */ /* MOVE: branching squeezed to general */ if (t40523>=((char *)VALUE_OFFSET)) {t40525.tag = EXTERNAL_SYMBOL_TYPE; t40525.value.external_symbol_type = t40523;} else t40525.tag = (unsigned)t40523; t40526.tag = EXTERNAL_SYMBOL_TYPE; t40526.value.external_symbol_type = t40524; if (!(f26160(t40525, t40526)==FALSE_TYPE)) goto l6008; /* x145711 */ /* x145710 */ /* x145708 */ t40527 = a26855; /* x145709 */ t40528 = q20; /* x145707 */ /* MOVE: branching squeezed to general */ if (t40527>=((char *)VALUE_OFFSET)) {t40529.tag = EXTERNAL_SYMBOL_TYPE; t40529.value.external_symbol_type = t40527;} else t40529.tag = (unsigned)t40527; t40530.tag = EXTERNAL_SYMBOL_TYPE; t40530.value.external_symbol_type = t40528; if (!(f26160(t40529, t40530)==FALSE_TYPE)) goto l6008; /* x145704 */ /* x145702 */ t40531 = a26855; /* x145703 */ t40532 = q22; /* x145701 */ /* MOVE: branching squeezed to general */ if (t40531>=((char *)VALUE_OFFSET)) {t40533.tag = EXTERNAL_SYMBOL_TYPE; t40533.value.external_symbol_type = t40531;} else t40533.tag = (unsigned)t40531; t40534.tag = EXTERNAL_SYMBOL_TYPE; t40534.value.external_symbol_type = t40532; if (f26160(t40533, t40534)==FALSE_TYPE) goto l6009; l6008: /* x145733 */ /* x145732 */ t40536 = p15727; p15732 = t40536; /* x145731 stalin.sc:19310:676286 */ /* x145727 stalin.sc:19310:676292 */ /* x145723 stalin.sc:19310:676298 */ /* x145722 stalin.sc:19310:676303 */ t40545 = p15732->a26849; /* x145721 stalin.sc:19310:676299 */ t40541 = f14275(t40545); /* x145726 stalin.sc:19310:676306 */ /* x145725 stalin.sc:19310:676311 */ t40546 = a26854; /* x145724 stalin.sc:19310:676307 */ t40542 = f14269(t40546); /* x145720 stalin.sc:19310:676293 */ t40543.tag = STRUCTURE_TYPE24753; t40543.value.structure_type24753 = t40541; t40544.tag = STRUCTURE_TYPE24753; t40544.value.structure_type24753 = t40542; t40537 = f13588(t40543, t40544); /* x145730 stalin.sc:19310:676315 */ /* x145729 stalin.sc:19310:676320 */ t40547 = a26854; /* x145728 stalin.sc:19310:676316 */ t40538 = f14269(t40547); /* x145719 stalin.sc:19310:676287 */ t40539.tag = STRUCTURE_TYPE24753; t40539.value.structure_type24753 = t40537; t40540.tag = STRUCTURE_TYPE24753; t40540.value.structure_type24753 = t40538; return f13637(t40539, t40540); l6009: /* x145737 */ /* x145736 */ /* x145735 stalin.sc:19311:676337 */ /* x145734 stalin.sc:19311:676338 */ /* x295193 QobiScheme.sc:166:5314 */ /* x295192 QobiScheme.sc:166:5321 */ t40535 = "This shouldn\'t happen"; /* x295191 QobiScheme.sc:166:5315 */ stalin_panic(t40535);} /* SPILL-SLOTTED-VARIABLES[15718] */ struct w49 f15718(struct w49 a26849) {struct w49 a26239; /* E */ char *a26240; /* v */ struct w49 a26244; /* E1 */ struct w49 a26247; /* E */ struct structure_type24753 *a26248; /* C */ char *a26850; /* v */ struct structure_type24753 *a41923; /* CS */ struct w61020 t40552; struct w49 t40553; struct structure_type24753 *t40554; struct w49 t40555; struct w49 t40556; struct p15718 *t40557; char *t40558; char *t40559; char *t40560; struct w49 t40561; struct w49 t40562; char *t40563; char *t40564; struct w49 t40565; struct w49 t40566; char *t40567; char *t40568; struct w49 t40569; struct w49 t40570; char *t40571; char *t40572; struct w49 t40573; struct w49 t40574; char *t40575; char *t40576; struct w49 t40577; struct w49 t40578; char *t40579; struct p15718 *t40580; struct w49 t40581; struct structure_type24753 *t40582; struct structure_type24753 *t40583; struct w49 t40584; struct w49 t40585; struct structure_type24753 *t40586; struct structure_type24753 *t40587; struct structure_type24753 *t40588; struct w49 t40589; struct w61020 t40590; struct w49 t40591; struct w49 t40592; struct w49 t40593; struct w49 t40594; char *t40595; char *t40596; char *t40597; struct w49 t40598; struct w49 t40599; char *t40600; char *t40601; struct w49 t40602; struct w49 t40603; char *t40604; char *t40605; struct w49 t40606; struct w49 t40607; char *t40608; char *t40609; struct w49 t40610; struct w49 t40611; char *t40612; char *t40613; struct w49 t40614; struct w49 t40615; char *t40616; struct w49 t40617; struct w49 t40618; struct structure_type24753 *t40619; struct w49 t40620; struct w49 t40621; struct w49 t40622; struct structure_type24753 *t40623; struct w49 t40624; struct structure_type24753 *t40625; struct structure_type24753 *t40626; struct w49 t40627; struct w61020 t40628; struct w49 t40629; struct w49 t40630; struct w49 t40631; struct w49 t40632; struct w49 t40633; char *t40634; struct structure_type24753 *t40635; struct w49 t40636; struct p15718 *t40637; struct w12224 t40638; struct w36270 t40639; struct w49 t40640; struct structure_type24753 *t40641; struct structure_type24753 *t40642; struct w227671 t40643; struct w49 t40644; struct w49 t40645; struct p15718 *e15718; struct p15718 *p15719; struct p15718 *p15724; e15718 = (struct p15718 *)alloca(sizeof(struct p15718)); if (e15718==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e15718->a26849 = a26849; /* x145753 stalin.sc:19293:675674 */ /* x145752 stalin.sc:19301:675946 */ /* x145751 stalin.sc:19302:675967 */ /* x145750 stalin.sc:19312:676354 */ /* x145746 stalin.sc:19312:676369 */ /* x145749 stalin.sc:19312:676378 */ /* x145748 stalin.sc:19312:676389 */ t40645 = e15718->a26849; /* x145747 stalin.sc:19312:676379 */ t40642 = f8987(t40645); /* x145745 stalin.sc:19312:676355 */ t40643.tag = NATIVE_PROCEDURE_TYPE7314; /* MOVE: branching squeezed to general */ if (t40642>=((struct structure_type24753 *)VALUE_OFFSET)) {t40644.tag = STRUCTURE_TYPE24753; t40644.value.structure_type24753 = t40642;} else t40644.tag = (unsigned)t40642; t40638 = f1226(t40643, t40644); /* x145744 stalin.sc:19303:675976 */ t40637 = e15718; /* x145676 stalin.sc:19302:675968 */ t40639.tag = NATIVE_PROCEDURE_TYPE18640; t40639.value.native_procedure_type18640 = t40637; t40640 = *((struct w49 *)(&t40638)); t40641 = (struct structure_type24753 *)NULL_TYPE; t40635 = f27731(t40639, t40640, t40641); /* x145675 stalin.sc:19301:675947 */ /* MOVE: branching squeezed to general */ if (t40635>=((struct structure_type24753 *)VALUE_OFFSET)) {t40636.tag = STRUCTURE_TYPE24753; t40636.value.structure_type24753 = t40635;} else t40636.tag = (unsigned)t40635; t40553 = f13492(t40636); /* x145674 stalin.sc:19294:675693 */ /* x145673 stalin.sc:19294:675699 */ t40558 = a686; /* x145672 */ t40557 = e15718; p15719 = t40557; a26850 = t40558; /* x145671 */ /* x145634 */ /* x145633 */ /* x145631 */ t40559 = a26850; /* x145632 */ t40560 = q18; /* x145630 */ /* MOVE: branching squeezed to general */ if (t40559>=((char *)VALUE_OFFSET)) {t40561.tag = EXTERNAL_SYMBOL_TYPE; t40561.value.external_symbol_type = t40559;} else t40561.tag = (unsigned)t40559; t40562.tag = EXTERNAL_SYMBOL_TYPE; t40562.value.external_symbol_type = t40560; if (!(f26160(t40561, t40562)==FALSE_TYPE)) goto l6012; /* x145627 */ /* x145626 */ /* x145624 */ t40563 = a26850; /* x145625 */ t40564 = q19; /* x145623 */ /* MOVE: branching squeezed to general */ if (t40563>=((char *)VALUE_OFFSET)) {t40565.tag = EXTERNAL_SYMBOL_TYPE; t40565.value.external_symbol_type = t40563;} else t40565.tag = (unsigned)t40563; t40566.tag = EXTERNAL_SYMBOL_TYPE; t40566.value.external_symbol_type = t40564; if (!(f26160(t40565, t40566)==FALSE_TYPE)) goto l6012; /* x145620 */ /* x145619 */ /* x145617 */ t40567 = a26850; /* x145618 */ t40568 = q21; /* x145616 */ /* MOVE: branching squeezed to general */ if (t40567>=((char *)VALUE_OFFSET)) {t40569.tag = EXTERNAL_SYMBOL_TYPE; t40569.value.external_symbol_type = t40567;} else t40569.tag = (unsigned)t40567; t40570.tag = EXTERNAL_SYMBOL_TYPE; t40570.value.external_symbol_type = t40568; if (!(f26160(t40569, t40570)==FALSE_TYPE)) goto l6012; /* x145613 */ /* x145611 */ t40571 = a26850; /* x145612 */ t40572 = q20; /* x145610 */ /* MOVE: branching squeezed to general */ if (t40571>=((char *)VALUE_OFFSET)) {t40573.tag = EXTERNAL_SYMBOL_TYPE; t40573.value.external_symbol_type = t40571;} else t40573.tag = (unsigned)t40571; t40574.tag = EXTERNAL_SYMBOL_TYPE; t40574.value.external_symbol_type = t40572; if (f26160(t40573, t40574)==FALSE_TYPE) goto l6013; l6012: /* x145638 */ /* x145637 */ /* x145636 stalin.sc:19295:675794 */ /* x145635 stalin.sc:19295:675795 */ /* x276833 stalin.sc:14693:514793 */ t40552.tag = STRING_TYPE; t40552.value.string_type = ""; goto l6014; l6013: /* x145670 */ /* x145642 */ /* x145640 */ t40575 = a26850; /* x145641 */ t40576 = q22; /* x145639 */ /* MOVE: branching squeezed to general */ if (t40575>=((char *)VALUE_OFFSET)) {t40577.tag = EXTERNAL_SYMBOL_TYPE; t40577.value.external_symbol_type = t40575;} else t40577.tag = (unsigned)t40575; t40578.tag = EXTERNAL_SYMBOL_TYPE; t40578.value.external_symbol_type = t40576; if (f26160(t40577, t40578)==FALSE_TYPE) goto l6019; /* x145665 */ /* x145664 */ t40580 = p15719; p15724 = t40580; /* x145663 stalin.sc:19297:675821 */ /* x145645 stalin.sc:19297:675825 */ /* x145644 stalin.sc:19297:675843 */ t40581 = p15724->a26849; /* x145643 stalin.sc:19297:675826 */ if (f8584(t40581)==FALSE_TYPE) goto l6022; /* x145660 stalin.sc:19298:675847 */ /* x145656 stalin.sc:19298:675853 */ /* x145650 stalin.sc:19298:675859 */ /* x145649 stalin.sc:19298:675864 */ t40591 = p15724->a26849; /* x145648 stalin.sc:19298:675860 */ t40587 = f14275(t40591); /* x145655 stalin.sc:19298:675867 */ /* x145654 stalin.sc:19298:675872 */ /* x145653 stalin.sc:19298:675885 */ t40593 = p15724->a26849; /* x145652 stalin.sc:19298:675873 */ t40592 = f8639(t40593); /* x145651 stalin.sc:19298:675868 */ t40588 = f14281(t40592); /* x145647 stalin.sc:19298:675854 */ t40589.tag = STRUCTURE_TYPE24753; t40589.value.structure_type24753 = t40587; t40590.tag = STRUCTURE_TYPE24753; t40590.value.structure_type24753 = t40588; t40582 = f13588(t40589, t40590); /* x145659 stalin.sc:19298:675890 */ /* x145658 stalin.sc:19298:675907 */ t40594 = p15724->a26849; /* x145657 stalin.sc:19298:675891 */ a26239 = t40594; /* x134936 stalin.sc:17209:601483 */ /* x134935 stalin.sc:17209:601489 */ t40595 = a686; /* x134934 */ a26240 = t40595; /* x134933 */ /* x134877 */ /* x134876 */ /* x134874 */ t40596 = a26240; /* x134875 */ t40597 = q18; /* x134873 */ /* MOVE: branching squeezed to general */ if (t40596>=((char *)VALUE_OFFSET)) {t40598.tag = EXTERNAL_SYMBOL_TYPE; t40598.value.external_symbol_type = t40596;} else t40598.tag = (unsigned)t40596; t40599.tag = EXTERNAL_SYMBOL_TYPE; t40599.value.external_symbol_type = t40597; if (!(f26160(t40598, t40599)==FALSE_TYPE)) goto l6024; /* x134870 */ /* x134869 */ /* x134867 */ t40600 = a26240; /* x134868 */ t40601 = q19; /* x134866 */ /* MOVE: branching squeezed to general */ if (t40600>=((char *)VALUE_OFFSET)) {t40602.tag = EXTERNAL_SYMBOL_TYPE; t40602.value.external_symbol_type = t40600;} else t40602.tag = (unsigned)t40600; t40603.tag = EXTERNAL_SYMBOL_TYPE; t40603.value.external_symbol_type = t40601; if (!(f26160(t40602, t40603)==FALSE_TYPE)) goto l6024; /* x134863 */ /* x134862 */ /* x134860 */ t40604 = a26240; /* x134861 */ t40605 = q20; /* x134859 */ /* MOVE: branching squeezed to general */ if (t40604>=((char *)VALUE_OFFSET)) {t40606.tag = EXTERNAL_SYMBOL_TYPE; t40606.value.external_symbol_type = t40604;} else t40606.tag = (unsigned)t40604; t40607.tag = EXTERNAL_SYMBOL_TYPE; t40607.value.external_symbol_type = t40605; if (!(f26160(t40606, t40607)==FALSE_TYPE)) goto l6024; /* x134856 */ /* x134854 */ t40608 = a26240; /* x134855 */ t40609 = q21; /* x134853 */ /* MOVE: branching squeezed to general */ if (t40608>=((char *)VALUE_OFFSET)) {t40610.tag = EXTERNAL_SYMBOL_TYPE; t40610.value.external_symbol_type = t40608;} else t40610.tag = (unsigned)t40608; t40611.tag = EXTERNAL_SYMBOL_TYPE; t40611.value.external_symbol_type = t40609; if (f26160(t40610, t40611)==FALSE_TYPE) goto l6025; l6024: /* x134881 */ /* x134880 */ /* x134879 stalin.sc:17210:601583 */ /* x134878 stalin.sc:17210:601584 */ /* x296397 QobiScheme.sc:166:5314 */ /* x296396 QobiScheme.sc:166:5321 */ t40634 = "This shouldn\'t happen"; /* x296395 QobiScheme.sc:166:5315 */ stalin_panic(t40634); goto l6026; l6025: /* x134932 */ /* x134885 */ /* x134883 */ t40612 = a26240; /* x134884 */ t40613 = q22; /* x134882 */ /* MOVE: branching squeezed to general */ if (t40612>=((char *)VALUE_OFFSET)) {t40614.tag = EXTERNAL_SYMBOL_TYPE; t40614.value.external_symbol_type = t40612;} else t40614.tag = (unsigned)t40612; t40615.tag = EXTERNAL_SYMBOL_TYPE; t40615.value.external_symbol_type = t40613; if (f26160(t40614, t40615)==FALSE_TYPE) goto l6031; /* x134927 */ /* x134926 */ /* x134925 stalin.sc:17212:601609 */ /* x134924 stalin.sc:17212:601619 */ /* x134923 stalin.sc:17212:601632 */ t40633 = a26239; /* x134922 stalin.sc:17212:601620 */ t40617 = f8639(t40633); /* x134921 */ a26244 = t40617; /* x134920 stalin.sc:17213:601641 */ /* x134916 stalin.sc:17213:601655 */ /* x134915 stalin.sc:17213:601673 */ t40631 = a26239; /* x134914 stalin.sc:17213:601656 */ t40618 = f8965(t40631); /* x134919 stalin.sc:17213:601680 */ /* x134918 stalin.sc:17213:601685 */ t40632 = a26239; /* x134917 stalin.sc:17213:601681 */ t40619 = f14281(t40632); /* x134913 */ /* x134912 */ /* x134911 */ /* x134910 */ /* x134909 */ /* x134908 */ /* x134907 */ /* x134887 */ /* x134886 stalin.sc:17213:601646 */ a26247 = t40618; a26248 = t40619; h14845: /* x134906 stalin.sc:17214:601695 */ /* x134891 stalin.sc:17214:601699 */ /* x134889 stalin.sc:17214:601704 */ t40620 = a26247; /* x134890 stalin.sc:17214:601706 */ t40621 = a26244; /* x268771 stalin.sc:17214:601700 */ /* EQ: dispatching general to general */ if (!((t40620.tag)==(t40621.tag))) goto l6034; switch (t40620.tag) {case FIXNUM_TYPE: if (!((t40620.value.fixnum_type)==(t40621.value.fixnum_type))) goto l6034; break; case FLONUM_TYPE: if (!((t40620.value.flonum_type)==(t40621.value.flonum_type))) goto l6034; break; case INPUT_PORT_TYPE: if (!((t40620.value.input_port_type)==(t40621.value.input_port_type))) goto l6034; break; case OUTPUT_PORT_TYPE: if (!((t40620.value.output_port_type)==(t40621.value.output_port_type))) goto l6034; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t40620.value.native_procedure_type15963)==(t40621.value.native_procedure_type15963))) goto l6034; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t40620.value.native_procedure_type19067)==(t40621.value.native_procedure_type19067))) goto l6034; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t40620.value.native_procedure_type19068)==(t40621.value.native_procedure_type19068))) goto l6034; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t40620.value.native_procedure_type22459)==(t40621.value.native_procedure_type22459))) goto l6034; break; case STRUCTURE_TYPE24753: if (!((t40620.value.structure_type24753)==(t40621.value.structure_type24753))) goto l6034; break; case STRUCTURE_TYPE24757: if (!((t40620.value.structure_type24757)==(t40621.value.structure_type24757))) goto l6034; break; case STRUCTURE_TYPE27501: if (!((t40620.value.structure_type27501)==(t40621.value.structure_type27501))) goto l6034; break; case STRUCTURE_TYPE27510: if (!((t40620.value.structure_type27510)==(t40621.value.structure_type27510))) goto l6034; break; case STRUCTURE_TYPE27621: if (!((t40620.value.structure_type27621)==(t40621.value.structure_type27621))) goto l6034; break; case STRUCTURE_TYPE27650: if (!((t40620.value.structure_type27650)==(t40621.value.structure_type27650))) goto l6034; break; case STRUCTURE_TYPE27669: if (!((t40620.value.structure_type27669)==(t40621.value.structure_type27669))) goto l6034; break; case STRUCTURE_TYPE27673: if (!((t40620.value.structure_type27673)==(t40621.value.structure_type27673))) goto l6034; break; case STRUCTURE_TYPE27692: if (!((t40620.value.structure_type27692)==(t40621.value.structure_type27692))) goto l6034; break; case STRUCTURE_TYPE27694: if (!((t40620.value.structure_type27694)==(t40621.value.structure_type27694))) goto l6034; break; case STRUCTURE_TYPE27698: if (!((t40620.value.structure_type27698)==(t40621.value.structure_type27698))) goto l6034; break; case STRUCTURE_TYPE27745: if (!((t40620.value.structure_type27745)==(t40621.value.structure_type27745))) goto l6034; break; case STRUCTURE_TYPE27747: if (!((t40620.value.structure_type27747)==(t40621.value.structure_type27747))) goto l6034; break; case STRUCTURE_TYPE27750: if (!((t40620.value.structure_type27750)==(t40621.value.structure_type27750))) goto l6034; break; case STRUCTURE_TYPE27753: if (!((t40620.value.structure_type27753)==(t40621.value.structure_type27753))) goto l6034; break; case STRUCTURE_TYPE27756: if (!((t40620.value.structure_type27756)==(t40621.value.structure_type27756))) goto l6034; break; case STRUCTURE_TYPE27761: if (!((t40620.value.structure_type27761)==(t40621.value.structure_type27761))) goto l6034; break; case STRUCTURE_TYPE27769: if (!((t40620.value.structure_type27769)==(t40621.value.structure_type27769))) goto l6034; break; case STRUCTURE_TYPE27776: if (!((t40620.value.structure_type27776)==(t40621.value.structure_type27776))) goto l6034; break; case STRUCTURE_TYPE27779: if (!((t40620.value.structure_type27779)==(t40621.value.structure_type27779))) goto l6034; break; case STRUCTURE_TYPE27858: if (!((t40620.value.structure_type27858)==(t40621.value.structure_type27858))) goto l6034; break; case STRING_TYPE: if (!((t40620.value.string_type)==(t40621.value.string_type))) goto l6034; break; case HEADED_VECTOR_TYPE27896: if (!((t40620.value.headed_vector_type27896)==(t40621.value.headed_vector_type27896))) goto l6034; break; case EXTERNAL_SYMBOL_TYPE: if (!((t40620.value.external_symbol_type)==(t40621.value.external_symbol_type))) goto l6034; break; case STRUCTURE_TYPE27908: if (!((t40620.value.structure_type27908)==(t40621.value.structure_type27908))) goto l6034; break; default:;} /* x134892 stalin.sc:17214:601710 */ t40583 = a26248; goto l6035; l6034: /* x134905 stalin.sc:17214:601712 */ /* x134896 stalin.sc:17214:601718 */ /* x134895 stalin.sc:17214:601731 */ t40624 = a26247; /* x134894 stalin.sc:17214:601719 */ t40622 = f8639(t40624); /* x134904 stalin.sc:17214:601734 */ /* x134898 stalin.sc:17214:601740 */ t40625 = a26248; /* x134903 stalin.sc:17214:601742 */ /* x134902 stalin.sc:17214:601747 */ /* x134901 stalin.sc:17214:601760 */ t40630 = a26247; /* x134900 stalin.sc:17214:601748 */ t40629 = f8639(t40630); /* x134899 stalin.sc:17214:601743 */ t40626 = f14281(t40629); /* x134897 stalin.sc:17214:601735 */ t40627.tag = STRUCTURE_TYPE24753; t40627.value.structure_type24753 = t40625; t40628.tag = STRUCTURE_TYPE24753; t40628.value.structure_type24753 = t40626; t40623 = f13588(t40627, t40628); /* x134893 stalin.sc:17214:601713 */ a26247 = t40622; a26248 = t40623; goto h14845; l6035: goto l6032; l6031: /* x134931 */ /* x134930 */ /* x134929 stalin.sc:17215:601778 */ /* x134928 stalin.sc:17215:601779 */ /* x296401 QobiScheme.sc:166:5314 */ /* x296400 QobiScheme.sc:166:5321 */ t40616 = "This shouldn\'t happen"; /* x296399 QobiScheme.sc:166:5315 */ stalin_panic(t40616); l6032: l6026: /* x145646 stalin.sc:19298:675848 */ t40584.tag = STRUCTURE_TYPE24753; t40584.value.structure_type24753 = t40582; t40585.tag = STRUCTURE_TYPE24753; t40585.value.structure_type24753 = t40583; t40586 = f13637(t40584, t40585); t40552.tag = STRUCTURE_TYPE24753; t40552.value.structure_type24753 = t40586; goto l6023; l6022: /* x145662 stalin.sc:19299:675912 */ /* x145661 stalin.sc:19299:675913 */ /* x276797 stalin.sc:14693:514793 */ t40552.tag = STRING_TYPE; t40552.value.string_type = ""; l6023: goto l6020; l6019: /* x145669 */ /* x145668 */ /* x145667 stalin.sc:19300:675932 */ /* x145666 stalin.sc:19300:675933 */ /* x296521 QobiScheme.sc:166:5314 */ /* x296520 QobiScheme.sc:166:5321 */ t40579 = "This shouldn\'t happen"; /* x296519 QobiScheme.sc:166:5315 */ stalin_panic(t40579); l6020: l6014: /* x145603 stalin.sc:19293:675675 */ t40556.tag = STRUCTURE_TYPE24753; t40556.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40556.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19293, 675674); out_of_memory_error();} t40556.value.structure_type24753->s0 = t40553; t40556.value.structure_type24753->s1.tag = NULL_TYPE; a41923 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41923==NULL) {backtrace("stalin.sc", 19293, 675674); out_of_memory_error();} a41923->s0 = *((struct w49 *)(&t40552)); a41923->s1 = t40556; /* x301804 stalin.sc:14400:506485 */ /* x301803 stalin.sc:14400:506503 */ t40554 = a41923; /* x301802 stalin.sc:14400:506486 */ t40555.tag = STRUCTURE_TYPE24753; t40555.value.structure_type24753 = t40554; return f13492(t40555);} /* [inside COMPILE-IN-LINED-VARIABLES 15715] */ struct structure_type24753 *f15715(struct w49 a26846) {struct w49 a36814; /* S */ struct w49 a36959; /* S */ struct w49 t40646; struct structure_type24753 *t40647; char *t40648; struct w49 t40649; struct w49 t40650; struct w49 t40651; struct w49 t40652; struct w49 t40653; struct w49 t40654; /* x145569 stalin.sc:19282:675357 */ /* x145560 stalin.sc:19283:675374 */ /* x145559 stalin.sc:19283:675393 */ t40649 = a26846; /* x145558 stalin.sc:19283:675375 */ a36814 = t40649; /* x279925 */ /* x279924 */ t40650 = a36814; /* x279923 */ if (!((t40650.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31731]"); structure_ref_error();} t40646 = t40650.value.structure_type27692->s9; /* x145563 stalin.sc:19283:675396 */ /* x145562 stalin.sc:19283:675401 */ t40651 = a26846; /* x145561 stalin.sc:19283:675397 */ t40647 = f14269(t40651); /* x145568 stalin.sc:19283:675404 */ /* x145567 stalin.sc:19283:675420 */ /* x145566 stalin.sc:19283:675435 */ t40653 = a26846; /* x145565 stalin.sc:19283:675421 */ a36959 = t40653; /* x280505 */ /* x280504 */ t40654 = a36959; /* x280503 */ if (!((t40654.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31876]"); structure_ref_error();} t40652 = t40654.value.structure_type27692->s7; /* x268505 stalin.sc:19283:675405 */ if (!((t40652.tag)==EXTERNAL_SYMBOL_TYPE)) {backtrace("stalin.sc", 19283, 675404); symbol_string_error();} t40648 = t40652.value.external_symbol_type; /* x145557 stalin.sc:19282:675358 */ return f13517(t40646, t40647, t40648);} /* [inside COMPILE-PARAMETER-VARIABLES 15709] */ struct w49 f15709(struct w49 a26842) {struct w49 a36816; /* S */ struct w49 t40655; struct structure_type24753 *t40656; struct w49 t40657; struct w49 t40658; struct w49 t40659; struct w49 t40660; /* x145519 stalin.sc:19270:674927 */ /* x145515 stalin.sc:19270:674939 */ /* x145514 stalin.sc:19270:674958 */ t40658 = a26842; /* x145513 stalin.sc:19270:674940 */ a36816 = t40658; /* x279933 */ /* x279932 */ t40659 = a36816; /* x279931 */ if (!((t40659.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31733]"); structure_ref_error();} t40655 = t40659.value.structure_type27692->s9; /* x145518 stalin.sc:19270:674961 */ /* x145517 stalin.sc:19270:674966 */ t40660 = a26842; /* x145516 stalin.sc:19270:674962 */ t40656 = f14269(t40660); /* x145512 stalin.sc:19270:674928 */ t40657.tag = STRUCTURE_TYPE24753; t40657.value.structure_type24753 = t40656; return f14414(t40655, t40657);} /* [inside COMPILE-PROTOTYPE-VARIABLES 15701] */ struct w49 f15701(struct w49 a26836) {struct w49 a36820; /* S */ struct w49 t40661; char *t40662; struct w49 t40663; struct w49 t40664; struct w49 t40665; /* x145454 stalin.sc:19259:674537 */ /* x145452 stalin.sc:19259:674549 */ /* x145451 stalin.sc:19259:674568 */ t40664 = a26836; /* x145450 stalin.sc:19259:674550 */ a36820 = t40664; /* x279949 */ /* x279948 */ t40665 = a36820; /* x279947 */ if (!((t40665.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31737]"); structure_ref_error();} t40661 = t40665.value.structure_type27692->s9; /* x145453 stalin.sc:19259:674571 */ t40662 = ""; /* x145449 stalin.sc:19259:674538 */ t40663.tag = STRING_TYPE; t40663.value.string_type = t40662; return f14414(t40661, t40663);} /* [inside COMPILE-GLOBAL-VARIABLE-DISTRIBUTION 15696] */ struct structure_type24753 *f15696(struct w49 a26831) {char *t40666; struct structure_type24753 *t40667; struct structure_type24753 *t40668; struct w61020 t40669; struct structure_type24753 *t40670; struct w49 t40671; struct structure_type24753 *t40672; struct w49 t40673; struct structure_type24753 *t40674; struct w49 t40675; struct structure_type24753 *t40676; struct w49 t40677; struct w49 t40678; char *t40679; struct w49 t40680; /* x145419 */ /* x145418 stalin.sc:19251:674226 */ /* x145417 stalin.sc:19251:674236 */ t40679 = "Tmk"; /* x145416 stalin.sc:19251:674227 */ t40680.tag = STRING_TYPE; t40680.value.string_type = t40679; f18320(t40680); /* x145415 */ /* x145414 stalin.sc:19252:674261 */ /* x145413 stalin.sc:19252:674306 */ /* x145412 stalin.sc:19252:674316 */ /* x145411 stalin.sc:19252:674321 */ t40678 = a26831; /* x145410 stalin.sc:19252:674317 */ t40676 = f14269(t40678); /* x145409 stalin.sc:19252:674307 */ t40677.tag = STRUCTURE_TYPE24753; t40677.value.structure_type24753 = t40676; t40668 = f13544(t40677); /* x145408 stalin.sc:19252:674292 */ /* x145407 stalin.sc:19252:674297 */ /* x145406 stalin.sc:19252:674302 */ t40675 = a26831; /* x145405 stalin.sc:19252:674298 */ t40672 = f14269(t40675); /* x145404 stalin.sc:19252:674293 */ t40673.tag = STRUCTURE_TYPE24753; t40673.value.structure_type24753 = t40672; t40674 = (struct structure_type24753 *)NULL_TYPE; t40667 = f13625(t40673, t40674); /* x145403 stalin.sc:19252:674270 */ t40666 = "Tmk_distribute_hack"; /* x145402 stalin.sc:19252:674262 */ t40669.tag = STRING_TYPE; t40669.value.string_type = t40666; t40671.tag = STRUCTURE_TYPE24753; t40671.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40671.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19252, 674261); out_of_memory_error();} t40671.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40671.value.structure_type24753->s0.value.structure_type24753 = t40668; t40671.value.structure_type24753->s1.tag = NULL_TYPE; t40670 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t40670==NULL) {backtrace("stalin.sc", 19252, 674261); out_of_memory_error();} t40670->s0.tag = STRUCTURE_TYPE24753; t40670->s0.value.structure_type24753 = t40667; t40670->s1 = t40671; return f13645(t40669, t40670);} /* COMPILE-GLOBAL-VARIABLE-DISTRIBUTION[15695] */ struct w49 f15695(void) {struct structure_type24753 *t40681; struct w49 t40682; struct w12224 t40683; struct w36270 t40684; struct w49 t40685; struct structure_type24753 *t40686; struct w21193 t40687; struct w227671 t40688; struct w49 t40689; /* x145426 stalin.sc:19249:674188 */ /* x145425 stalin.sc:19250:674208 */ /* x145424 stalin.sc:19253:674334 */ /* x145422 stalin.sc:19253:674349 */ /* x145423 stalin.sc:19253:674357 */ t40687 = a1633; /* x145421 stalin.sc:19253:674335 */ t40688.tag = NATIVE_PROCEDURE_TYPE7320; t40689 = *((struct w49 *)(&t40687)); t40683 = f1226(t40688, t40689); /* x145420 */ /* x145401 stalin.sc:19250:674209 */ t40684.tag = NATIVE_PROCEDURE_TYPE21442; t40685 = *((struct w49 *)(&t40683)); t40686 = (struct structure_type24753 *)NULL_TYPE; t40681 = f27731(t40684, t40685, t40686); /* x145400 stalin.sc:19249:674189 */ /* MOVE: branching squeezed to general */ if (t40681>=((struct structure_type24753 *)VALUE_OFFSET)) {t40682.tag = STRUCTURE_TYPE24753; t40682.value.structure_type24753 = t40681;} else t40682.tag = (unsigned)t40681; return f13492(t40682);} /* [inside COMPILE-GLOBAL-VARIABLES 15694] */ struct structure_type24753 *f15694(struct w49 a26830) {struct w49 a36818; /* S */ struct w49 a36960; /* S */ struct w49 t40690; struct structure_type24753 *t40691; char *t40692; struct w49 t40693; struct w49 t40694; struct w49 t40695; struct w49 t40696; struct w49 t40697; struct w49 t40698; /* x145390 stalin.sc:19244:674016 */ /* x145381 stalin.sc:19245:674033 */ /* x145380 stalin.sc:19245:674052 */ t40693 = a26830; /* x145379 stalin.sc:19245:674034 */ a36818 = t40693; /* x279941 */ /* x279940 */ t40694 = a36818; /* x279939 */ if (!((t40694.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31735]"); structure_ref_error();} t40690 = t40694.value.structure_type27692->s9; /* x145384 stalin.sc:19245:674055 */ /* x145383 stalin.sc:19245:674060 */ t40695 = a26830; /* x145382 stalin.sc:19245:674056 */ t40691 = f14269(t40695); /* x145389 stalin.sc:19245:674063 */ /* x145388 stalin.sc:19245:674079 */ /* x145387 stalin.sc:19245:674094 */ t40697 = a26830; /* x145386 stalin.sc:19245:674080 */ a36960 = t40697; /* x280509 */ /* x280508 */ t40698 = a36960; /* x280507 */ if (!((t40698.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31877]"); structure_ref_error();} t40696 = t40698.value.structure_type27692->s7; /* x268508 stalin.sc:19245:674064 */ if (!((t40696.tag)==EXTERNAL_SYMBOL_TYPE)) {backtrace("stalin.sc", 19245, 674063); symbol_string_error();} t40692 = t40696.value.external_symbol_type; /* x145378 stalin.sc:19244:674017 */ return f13517(t40690, t40691, t40692);} /* [inside COMPILE-CLOSURE-LEVELS 15691] */ struct structure_type24753 *f15691(struct w49 a26829) {struct w49 a36822; /* S */ struct w49 t40699; struct w49 t40700; struct structure_type24753 *t40701; struct w49 t40702; struct w49 t40703; struct w49 t40704; struct w49 t40705; /* x145340 stalin.sc:19234:673770 */ /* x145339 stalin.sc:19235:673792 */ /* x145335 stalin.sc:19235:673804 */ /* x145334 stalin.sc:19235:673823 */ t40703 = a26829; /* x145333 stalin.sc:19235:673805 */ a36822 = t40703; /* x279957 */ /* x279956 */ t40704 = a36822; /* x279955 */ if (!((t40704.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31739]"); structure_ref_error();} t40700 = t40704.value.structure_type27692->s9; /* x145338 stalin.sc:19235:673826 */ /* x145337 stalin.sc:19235:673831 */ t40705 = a26829; /* x145336 stalin.sc:19235:673827 */ t40701 = f14269(t40705); /* x145332 stalin.sc:19235:673793 */ t40702.tag = STRUCTURE_TYPE24753; t40702.value.structure_type24753 = t40701; t40699 = f14414(t40700, t40702); /* x145331 stalin.sc:19234:673771 */ return f13514(t40699);} /* [inside COMPILE-CLOSURE-LEVELS 15689] */ struct structure_type24753 *f15689(struct w49 a26828) {struct w49 a36821; /* S */ struct w49 t40706; struct w49 t40707; struct structure_type24753 *t40708; struct w49 t40709; struct w49 t40710; struct w49 t40711; struct w49 t40712; /* x145277 stalin.sc:19217:673280 */ /* x145276 stalin.sc:19218:673301 */ /* x145272 stalin.sc:19218:673313 */ /* x145271 stalin.sc:19218:673332 */ t40710 = a26828; /* x145270 stalin.sc:19218:673314 */ a36821 = t40710; /* x279953 */ /* x279952 */ t40711 = a36821; /* x279951 */ if (!((t40711.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31738]"); structure_ref_error();} t40707 = t40711.value.structure_type27692->s9; /* x145275 stalin.sc:19218:673335 */ /* x145274 stalin.sc:19218:673340 */ t40712 = a26828; /* x145273 stalin.sc:19218:673336 */ t40708 = f14269(t40712); /* x145269 stalin.sc:19218:673302 */ t40709.tag = STRUCTURE_TYPE24753; t40709.value.structure_type24753 = t40708; t40706 = f14414(t40707, t40709); /* x145268 stalin.sc:19217:673281 */ return f13514(t40706);} /* [inside COMPILE-CLOSURE-LEVELS 15683] */ struct w61020 f15683(struct w49 a26825) {struct w61020 r15683; char *a26826; /* v */ struct structure_type24753 *a41757; /* CS */ struct structure_type24753 *a41758; /* CS */ struct structure_type24753 *a41759; /* CS */ struct structure_type24753 *a41974; /* CS */ struct structure_type24753 *a41975; /* CS */ struct structure_type24753 *a41976; /* CS */ struct w49 t40713; char *t40714; char *t40715; char *t40716; struct w49 t40717; struct w49 t40718; char *t40719; char *t40720; struct w49 t40721; struct w49 t40722; char *t40723; char *t40724; struct w49 t40725; struct w49 t40726; char *t40727; char *t40728; struct w49 t40729; struct w49 t40730; char *t40731; char *t40732; struct w49 t40733; struct w49 t40734; char *t40735; struct w49 t40736; struct structure_type24753 *t40737; struct w49 t40738; struct structure_type24753 *t40739; struct structure_type24753 *t40740; struct w49 t40741; struct w49 t40742; char *t40743; struct structure_type24753 *t40744; struct structure_type24753 *t40745; struct w49 t40746; struct w49 t40747; struct w49 t40748; struct w49 t40749; struct w61020 t40750; struct w49 t40751; struct structure_type24753 *t40752; struct w49 t40753; struct w49 t40754; struct w49 t40755; struct w49 t40756; struct structure_type24753 *t40757; char *t40758; struct structure_type24753 *t40759; struct structure_type24753 *t40760; struct structure_type24753 *t40761; struct w49 t40762; struct w49 t40763; struct w49 t40764; struct w49 t40765; struct w49 t40766; struct structure_type24753 *t40767; struct w49 t40768; struct w49 t40769; struct w49 t40770; struct structure_type24753 *t40771; struct w49 t40772; struct w12224 t40773; struct w36270 t40774; struct w49 t40775; struct structure_type24753 *t40776; struct structure_type24753 *t40777; struct w227671 t40778; struct w49 t40779; struct w49 t40780; struct w49 t40781; struct structure_type24753 *t40782; struct w49 t40783; struct structure_type24753 *t40784; struct structure_type24753 *t40785; struct w49 t40786; struct w49 t40787; char *t40788; struct structure_type24753 *t40789; struct structure_type24753 *t40790; struct w49 t40791; struct w49 t40792; struct w49 t40793; struct w49 t40794; struct structure_type24753 *t40795; struct w49 t40796; struct w12224 t40797; struct w36270 t40798; struct w49 t40799; struct structure_type24753 *t40800; struct structure_type24753 *t40801; struct w227671 t40802; struct w49 t40803; struct w49 t40804; char *t40805; struct w6315 t40806; char *t40807; struct w6315 t40808; /* x145369 stalin.sc:19202:672813 */ /* x145223 stalin.sc:19202:672817 */ /* x145222 stalin.sc:19202:672831 */ t40713 = a26825; /* x145221 stalin.sc:19202:672818 */ if (f8563(t40713)==FALSE_TYPE) goto l6037; /* x145366 stalin.sc:19203:672839 */ /* x145365 stalin.sc:19203:672845 */ t40714 = a686; /* x145364 */ a26826 = t40714; /* x145363 */ /* x145227 */ /* x145225 */ t40715 = a26826; /* x145226 */ t40716 = q18; /* x145224 */ /* MOVE: branching squeezed to general */ if (t40715>=((char *)VALUE_OFFSET)) {t40717.tag = EXTERNAL_SYMBOL_TYPE; t40717.value.external_symbol_type = t40715;} else t40717.tag = (unsigned)t40715; t40718.tag = EXTERNAL_SYMBOL_TYPE; t40718.value.external_symbol_type = t40716; if (f26160(t40717, t40718)==FALSE_TYPE) goto l6039; /* x145233 */ /* x145232 */ /* x145231 stalin.sc:19205:672901 */ /* x145229 stalin.sc:19206:672924 */ /* x145230 stalin.sc:19206:672927 */ t40807 = "Immediate flat closures are not (yet) implemented"; /* x145228 stalin.sc:19205:672902 */ t40808.tag = FALSE_TYPE; f9707(t40808, t40807); return r15683; l6039: /* x145362 */ /* x145237 */ /* x145235 */ t40719 = a26826; /* x145236 */ t40720 = q19; /* x145234 */ /* MOVE: branching squeezed to general */ if (t40719>=((char *)VALUE_OFFSET)) {t40721.tag = EXTERNAL_SYMBOL_TYPE; t40721.value.external_symbol_type = t40719;} else t40721.tag = (unsigned)t40719; t40722.tag = EXTERNAL_SYMBOL_TYPE; t40722.value.external_symbol_type = t40720; if (f26160(t40721, t40722)==FALSE_TYPE) goto l6041; /* x145243 */ /* x145242 */ /* x145241 stalin.sc:19208:673011 */ /* x145239 stalin.sc:19209:673034 */ /* x145240 stalin.sc:19209:673037 */ t40805 = "Indirect flat closures are not (yet) implemented"; /* x145238 stalin.sc:19208:673012 */ t40806.tag = FALSE_TYPE; f9707(t40806, t40805); return r15683; l6041: /* x145361 */ /* x145256 */ /* x145255 */ /* x145253 */ t40723 = a26826; /* x145254 */ t40724 = q20; /* x145252 */ /* MOVE: branching squeezed to general */ if (t40723>=((char *)VALUE_OFFSET)) {t40725.tag = EXTERNAL_SYMBOL_TYPE; t40725.value.external_symbol_type = t40723;} else t40725.tag = (unsigned)t40723; t40726.tag = EXTERNAL_SYMBOL_TYPE; t40726.value.external_symbol_type = t40724; if (!(f26160(t40725, t40726)==FALSE_TYPE)) goto l6042; /* x145249 */ /* x145247 */ t40727 = a26826; /* x145248 */ t40728 = q21; /* x145246 */ /* MOVE: branching squeezed to general */ if (t40727>=((char *)VALUE_OFFSET)) {t40729.tag = EXTERNAL_SYMBOL_TYPE; t40729.value.external_symbol_type = t40727;} else t40729.tag = (unsigned)t40727; t40730.tag = EXTERNAL_SYMBOL_TYPE; t40730.value.external_symbol_type = t40728; if (f26160(t40729, t40730)==FALSE_TYPE) goto l6043; l6042: /* x145291 */ /* x145290 */ /* x145289 stalin.sc:19211:673141 */ /* x145288 stalin.sc:19212:673166 */ /* x145287 stalin.sc:19214:673220 */ /* x145286 stalin.sc:19215:673238 */ /* x145285 stalin.sc:19216:673260 */ /* x145284 stalin.sc:19219:673355 */ /* x145280 stalin.sc:19219:673370 */ /* x145283 stalin.sc:19219:673379 */ /* x145282 stalin.sc:19219:673390 */ t40804 = a26825; /* x145281 stalin.sc:19219:673380 */ t40801 = f8987(t40804); /* x145279 stalin.sc:19219:673356 */ t40802.tag = NATIVE_PROCEDURE_TYPE7314; /* MOVE: branching squeezed to general */ if (t40801>=((struct structure_type24753 *)VALUE_OFFSET)) {t40803.tag = STRUCTURE_TYPE24753; t40803.value.structure_type24753 = t40801;} else t40803.tag = (unsigned)t40801; t40797 = f1226(t40802, t40803); /* x145278 stalin.sc:19216:673265 */ /* x145267 stalin.sc:19216:673261 */ t40798.tag = NATIVE_PROCEDURE_TYPE23841; t40799 = *((struct w49 *)(&t40797)); t40800 = (struct structure_type24753 *)NULL_TYPE; t40795 = f27731(t40798, t40799, t40800); /* x145266 stalin.sc:19215:673239 */ /* MOVE: branching squeezed to general */ if (t40795>=((struct structure_type24753 *)VALUE_OFFSET)) {t40796.tag = STRUCTURE_TYPE24753; t40796.value.structure_type24753 = t40795;} else t40796.tag = (unsigned)t40795; t40794 = f13492(t40796); /* x145265 stalin.sc:19214:673221 */ t40784 = f13501(t40794); /* x145264 stalin.sc:19213:673185 */ /* x145263 stalin.sc:19213:673209 */ /* x145262 stalin.sc:19213:673214 */ t40793 = a26825; /* x145261 stalin.sc:19213:673210 */ t40789 = f14275(t40793); /* x145260 stalin.sc:19213:673200 */ t40788 = "struct"; /* x145259 stalin.sc:19213:673186 */ t40792.tag = STRUCTURE_TYPE24753; t40792.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40792.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19213, 673185); out_of_memory_error();} t40792.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40792.value.structure_type24753->s0.value.structure_type24753 = t40789; t40792.value.structure_type24753->s1.tag = NULL_TYPE; a41974 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41974==NULL) {backtrace("stalin.sc", 19213, 673185); out_of_memory_error();} a41974->s0.tag = STRING_TYPE; a41974->s0.value.string_type = t40788; a41974->s1 = t40792; /* x302008 stalin.sc:14386:505956 */ /* x302007 stalin.sc:14386:505972 */ t40790 = a41974; /* x302006 stalin.sc:14386:505957 */ t40791.tag = STRUCTURE_TYPE24753; t40791.value.structure_type24753 = t40790; t40783 = f13474(t40791); /* x145258 stalin.sc:19212:673167 */ t40787.tag = STRUCTURE_TYPE24753; t40787.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40787.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19212, 673166); out_of_memory_error();} t40787.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40787.value.structure_type24753->s0.value.structure_type24753 = t40784; t40787.value.structure_type24753->s1.tag = NULL_TYPE; a41757 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41757==NULL) {backtrace("stalin.sc", 19212, 673166); out_of_memory_error();} a41757->s0 = t40783; a41757->s1 = t40787; /* x301140 stalin.sc:14400:506485 */ /* x301139 stalin.sc:14400:506503 */ t40785 = a41757; /* x301138 stalin.sc:14400:506486 */ t40786.tag = STRUCTURE_TYPE24753; t40786.value.structure_type24753 = t40785; t40781 = f13492(t40786); /* x145257 stalin.sc:19211:673142 */ t40782 = f13514(t40781); r15683.tag = STRUCTURE_TYPE24753; r15683.value.structure_type24753 = t40782; return r15683; l6043: /* x145360 */ /* x145295 */ /* x145293 */ t40731 = a26826; /* x145294 */ t40732 = q22; /* x145292 */ /* MOVE: branching squeezed to general */ if (t40731>=((char *)VALUE_OFFSET)) {t40733.tag = EXTERNAL_SYMBOL_TYPE; t40733.value.external_symbol_type = t40731;} else t40733.tag = (unsigned)t40731; t40734.tag = EXTERNAL_SYMBOL_TYPE; t40734.value.external_symbol_type = t40732; if (f26160(t40733, t40734)==FALSE_TYPE) goto l6046; /* x145355 */ /* x145354 */ /* x145353 stalin.sc:19221:673423 */ /* x145352 stalin.sc:19222:673448 */ /* x145351 stalin.sc:19224:673502 */ /* x145350 stalin.sc:19225:673520 */ /* x145349 stalin.sc:19232:673726 */ /* x145348 stalin.sc:19233:673749 */ /* x145347 stalin.sc:19236:673840 */ /* x145343 stalin.sc:19236:673855 */ /* x145346 stalin.sc:19236:673864 */ /* x145345 stalin.sc:19236:673875 */ t40780 = a26825; /* x145344 stalin.sc:19236:673865 */ t40777 = f8987(t40780); /* x145342 stalin.sc:19236:673841 */ t40778.tag = NATIVE_PROCEDURE_TYPE7314; /* MOVE: branching squeezed to general */ if (t40777>=((struct structure_type24753 *)VALUE_OFFSET)) {t40779.tag = STRUCTURE_TYPE24753; t40779.value.structure_type24753 = t40777;} else t40779.tag = (unsigned)t40777; t40773 = f1226(t40778, t40779); /* x145341 stalin.sc:19233:673754 */ /* x145330 stalin.sc:19233:673750 */ t40774.tag = NATIVE_PROCEDURE_TYPE23839; t40775 = *((struct w49 *)(&t40773)); t40776 = (struct structure_type24753 *)NULL_TYPE; t40771 = f27731(t40774, t40775, t40776); /* x145329 stalin.sc:19232:673727 */ /* MOVE: branching squeezed to general */ if (t40771>=((struct structure_type24753 *)VALUE_OFFSET)) {t40772.tag = STRUCTURE_TYPE24753; t40772.value.structure_type24753 = t40771;} else t40772.tag = (unsigned)t40771; t40751 = f13492(t40772); /* x145328 stalin.sc:19226:673541 */ /* x145308 stalin.sc:19226:673545 */ /* x145307 stalin.sc:19226:673563 */ t40755 = a26825; /* x145306 stalin.sc:19226:673546 */ if (f8584(t40755)==FALSE_TYPE) goto l6048; /* x145325 stalin.sc:19227:673574 */ /* x145324 stalin.sc:19228:673600 */ /* x145323 stalin.sc:19230:673666 */ /* x145322 stalin.sc:19230:673679 */ /* x145321 stalin.sc:19230:673684 */ /* x145320 stalin.sc:19230:673697 */ t40770 = a26825; /* x145319 stalin.sc:19230:673685 */ t40769 = f8639(t40770); /* x145318 stalin.sc:19230:673680 */ t40767 = f14281(t40769); /* x145317 stalin.sc:19230:673667 */ t40768.tag = STRUCTURE_TYPE24753; t40768.value.structure_type24753 = t40767; t40760 = f13516(t40768); /* x145316 stalin.sc:19229:673634 */ /* x145315 stalin.sc:19229:673639 */ /* x145314 stalin.sc:19229:673652 */ t40766 = a26825; /* x145313 stalin.sc:19229:673640 */ t40765 = f8639(t40766); /* x145312 stalin.sc:19229:673635 */ t40759 = f14281(t40765); /* x145311 stalin.sc:19228:673615 */ t40758 = "struct"; /* x145310 stalin.sc:19228:673601 */ t40764.tag = STRUCTURE_TYPE24753; t40764.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40764.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19228, 673600); out_of_memory_error();} t40764.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40764.value.structure_type24753->s0.value.structure_type24753 = t40760; t40764.value.structure_type24753->s1.tag = NULL_TYPE; t40763.tag = STRUCTURE_TYPE24753; t40763.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40763.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19228, 673600); out_of_memory_error();} t40763.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40763.value.structure_type24753->s0.value.structure_type24753 = t40759; t40763.value.structure_type24753->s1 = t40764; a41976 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41976==NULL) {backtrace("stalin.sc", 19228, 673600); out_of_memory_error();} a41976->s0.tag = STRING_TYPE; a41976->s0.value.string_type = t40758; a41976->s1 = t40763; /* x302016 stalin.sc:14386:505956 */ /* x302015 stalin.sc:14386:505972 */ t40761 = a41976; /* x302014 stalin.sc:14386:505957 */ t40762.tag = STRUCTURE_TYPE24753; t40762.value.structure_type24753 = t40761; t40756 = f13474(t40762); /* x145309 stalin.sc:19227:673575 */ t40757 = f13514(t40756); t40750.tag = STRUCTURE_TYPE24753; t40750.value.structure_type24753 = t40757; goto l6049; l6048: /* x145327 stalin.sc:19231:673712 */ /* x145326 stalin.sc:19231:673713 */ /* x276437 stalin.sc:14693:514793 */ t40750.tag = STRING_TYPE; t40750.value.string_type = ""; l6049: /* x145305 stalin.sc:19225:673521 */ t40754.tag = STRUCTURE_TYPE24753; t40754.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40754.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19225, 673520); out_of_memory_error();} t40754.value.structure_type24753->s0 = t40751; t40754.value.structure_type24753->s1.tag = NULL_TYPE; a41759 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41759==NULL) {backtrace("stalin.sc", 19225, 673520); out_of_memory_error();} a41759->s0 = *((struct w49 *)(&t40750)); a41759->s1 = t40754; /* x301148 stalin.sc:14400:506485 */ /* x301147 stalin.sc:14400:506503 */ t40752 = a41759; /* x301146 stalin.sc:14400:506486 */ t40753.tag = STRUCTURE_TYPE24753; t40753.value.structure_type24753 = t40752; t40749 = f13492(t40753); /* x145304 stalin.sc:19224:673503 */ t40739 = f13501(t40749); /* x145303 stalin.sc:19223:673467 */ /* x145302 stalin.sc:19223:673491 */ /* x145301 stalin.sc:19223:673496 */ t40748 = a26825; /* x145300 stalin.sc:19223:673492 */ t40744 = f14281(t40748); /* x145299 stalin.sc:19223:673482 */ t40743 = "struct"; /* x145298 stalin.sc:19223:673468 */ t40747.tag = STRUCTURE_TYPE24753; t40747.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40747.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19223, 673467); out_of_memory_error();} t40747.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40747.value.structure_type24753->s0.value.structure_type24753 = t40744; t40747.value.structure_type24753->s1.tag = NULL_TYPE; a41975 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41975==NULL) {backtrace("stalin.sc", 19223, 673467); out_of_memory_error();} a41975->s0.tag = STRING_TYPE; a41975->s0.value.string_type = t40743; a41975->s1 = t40747; /* x302012 stalin.sc:14386:505956 */ /* x302011 stalin.sc:14386:505972 */ t40745 = a41975; /* x302010 stalin.sc:14386:505957 */ t40746.tag = STRUCTURE_TYPE24753; t40746.value.structure_type24753 = t40745; t40738 = f13474(t40746); /* x145297 stalin.sc:19222:673449 */ t40742.tag = STRUCTURE_TYPE24753; t40742.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40742.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19222, 673448); out_of_memory_error();} t40742.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40742.value.structure_type24753->s0.value.structure_type24753 = t40739; t40742.value.structure_type24753->s1.tag = NULL_TYPE; a41758 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41758==NULL) {backtrace("stalin.sc", 19222, 673448); out_of_memory_error();} a41758->s0 = t40738; a41758->s1 = t40742; /* x301144 stalin.sc:14400:506485 */ /* x301143 stalin.sc:14400:506503 */ t40740 = a41758; /* x301142 stalin.sc:14400:506486 */ t40741.tag = STRUCTURE_TYPE24753; t40741.value.structure_type24753 = t40740; t40736 = f13492(t40741); /* x145296 stalin.sc:19221:673424 */ t40737 = f13514(t40736); r15683.tag = STRUCTURE_TYPE24753; r15683.value.structure_type24753 = t40737; return r15683; l6046: /* x145359 */ /* x145358 */ /* x145357 stalin.sc:19237:673898 */ /* x145356 stalin.sc:19237:673899 */ /* x295217 QobiScheme.sc:166:5314 */ /* x295216 QobiScheme.sc:166:5321 */ t40735 = "This shouldn\'t happen"; /* x295215 QobiScheme.sc:166:5315 */ stalin_panic(t40735); l6037: /* x145368 stalin.sc:19238:673915 */ /* x145367 stalin.sc:19238:673916 */ /* x276439 stalin.sc:14693:514793 */ r15683.tag = STRING_TYPE; r15683.value.string_type = ""; return r15683;} /* [inside COMPILE-TYPE-DECLARATIONS 15677] */ struct w61020 f15677(struct w49 a26822) {struct w61020 r15677; struct w49 a19986; /* S */ struct structure_type24753 *a41755; /* CS */ struct structure_type24753 *a41756; /* CS */ struct structure_type24753 *a41972; /* CS */ struct structure_type24753 *a41973; /* CS */ struct w49 t40809; struct w49 t40810; struct structure_type24753 *t40811; struct w49 t40812; struct structure_type24753 *t40813; struct structure_type24753 *t40814; struct w49 t40815; struct w49 t40816; char *t40817; struct w61020 t40818; struct structure_type24753 *t40819; struct w49 t40820; struct w49 t40821; struct w49 t40822; struct w49 t40823; struct structure_type24753 *t40824; struct structure_type24753 *t40825; struct structure_type24753 *t40826; struct w49 t40827; struct w49 t40828; struct w49 t40829; struct w49 t40830; char *t40831; struct structure_type24753 *t40832; struct w49 t40833; struct w49 t40834; struct w49 t40835; struct w49 t40836; struct structure_type24753 *t40837; struct w49 t40838; struct w49 t40839; struct w49 t40840; char *t40841; char *t40842; struct w61020 t40843; struct w61020 t40844; /* x145177 stalin.sc:19185:672312 */ /* x145143 stalin.sc:19185:672316 */ /* x145142 stalin.sc:19185:672341 */ t40809 = a26822; /* x145141 stalin.sc:19185:672317 */ if (f7754(t40809)==FALSE_TYPE) goto l6051; /* x145145 stalin.sc:19186:672350 */ /* x145144 stalin.sc:19186:672351 */ /* x276435 stalin.sc:14693:514793 */ r15677.tag = STRING_TYPE; r15677.value.string_type = ""; return r15677; l6051: /* x145176 stalin.sc:19187:672365 */ /* x145175 stalin.sc:19188:672389 */ /* x145174 stalin.sc:19190:672455 */ /* x145173 stalin.sc:19191:672472 */ /* x145172 stalin.sc:19193:672547 */ /* x145171 stalin.sc:19194:672568 */ /* x145166 stalin.sc:19194:672580 */ /* x145165 stalin.sc:19194:672608 */ t40839 = a26822; /* x145164 stalin.sc:19194:672581 */ a19986 = t40839; /* x53387 */ /* x53386 */ t40840 = a19986; /* x53385 */ if (!((t40840.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("HEADED-VECTOR-TYPE-ELEMENT[6243]"); structure_ref_error();} t40836 = t40840.value.structure_type27761->s0; /* x145170 stalin.sc:19195:672620 */ /* x145168 stalin.sc:19195:672637 */ t40841 = "element"; /* x145169 stalin.sc:19195:672647 */ t40842 = "1"; /* x145167 stalin.sc:19195:672621 */ t40843.tag = STRING_TYPE; t40843.value.string_type = t40841; t40844.tag = STRING_TYPE; t40844.value.string_type = t40842; t40837 = f13541(t40843, t40844); /* x145163 stalin.sc:19194:672569 */ t40838.tag = STRUCTURE_TYPE24753; t40838.value.structure_type24753 = t40837; t40835 = f14414(t40836, t40838); /* x145162 stalin.sc:19193:672548 */ t40825 = f13514(t40835); /* x145161 stalin.sc:19192:672492 */ /* x145160 stalin.sc:19192:672509 */ /* x145159 stalin.sc:19192:672533 */ t40831 = "length"; /* x145158 stalin.sc:19192:672524 */ t40830 = a1249; /* x145157 stalin.sc:19192:672510 */ t40834.tag = STRUCTURE_TYPE24753; t40834.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40834.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19192, 672509); out_of_memory_error();} t40834.value.structure_type24753->s0.tag = STRING_TYPE; t40834.value.structure_type24753->s0.value.string_type = t40831; t40834.value.structure_type24753->s1.tag = NULL_TYPE; a41973 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41973==NULL) {backtrace("stalin.sc", 19192, 672509); out_of_memory_error();} a41973->s0 = t40830; a41973->s1 = t40834; /* x302004 stalin.sc:14386:505956 */ /* x302003 stalin.sc:14386:505972 */ t40832 = a41973; /* x302002 stalin.sc:14386:505957 */ t40833.tag = STRUCTURE_TYPE24753; t40833.value.structure_type24753 = t40832; t40829 = f13474(t40833); /* x145156 stalin.sc:19192:672493 */ t40824 = f13514(t40829); /* x145155 stalin.sc:19191:672473 */ t40828.tag = STRUCTURE_TYPE24753; t40828.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40828.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19191, 672472); out_of_memory_error();} t40828.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40828.value.structure_type24753->s0.value.structure_type24753 = t40825; t40828.value.structure_type24753->s1.tag = NULL_TYPE; a41756 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41756==NULL) {backtrace("stalin.sc", 19191, 672472); out_of_memory_error();} a41756->s0.tag = STRUCTURE_TYPE24753; a41756->s0.value.structure_type24753 = t40824; a41756->s1 = t40828; /* x301136 stalin.sc:14400:506485 */ /* x301135 stalin.sc:14400:506503 */ t40826 = a41756; /* x301134 stalin.sc:14400:506486 */ t40827.tag = STRUCTURE_TYPE24753; t40827.value.structure_type24753 = t40826; t40823 = f13492(t40827); /* x145154 stalin.sc:19190:672456 */ t40813 = f13501(t40823); /* x145153 stalin.sc:19189:672414 */ /* x145152 stalin.sc:19189:672438 */ /* x145151 stalin.sc:19189:672443 */ t40822 = a26822; /* x145150 stalin.sc:19189:672439 */ t40818 = f14289(t40822); /* x145149 stalin.sc:19189:672429 */ t40817 = "struct"; /* x145148 stalin.sc:19189:672415 */ t40821.tag = STRUCTURE_TYPE24753; t40821.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40821.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19189, 672414); out_of_memory_error();} t40821.value.structure_type24753->s0 = *((struct w49 *)(&t40818)); t40821.value.structure_type24753->s1.tag = NULL_TYPE; a41972 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41972==NULL) {backtrace("stalin.sc", 19189, 672414); out_of_memory_error();} a41972->s0.tag = STRING_TYPE; a41972->s0.value.string_type = t40817; a41972->s1 = t40821; /* x302000 stalin.sc:14386:505956 */ /* x301999 stalin.sc:14386:505972 */ t40819 = a41972; /* x301998 stalin.sc:14386:505957 */ t40820.tag = STRUCTURE_TYPE24753; t40820.value.structure_type24753 = t40819; t40812 = f13474(t40820); /* x145147 stalin.sc:19188:672390 */ t40816.tag = STRUCTURE_TYPE24753; t40816.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40816.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19188, 672389); out_of_memory_error();} t40816.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40816.value.structure_type24753->s0.value.structure_type24753 = t40813; t40816.value.structure_type24753->s1.tag = NULL_TYPE; a41755 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41755==NULL) {backtrace("stalin.sc", 19188, 672389); out_of_memory_error();} a41755->s0 = t40812; a41755->s1 = t40816; /* x301132 stalin.sc:14400:506485 */ /* x301131 stalin.sc:14400:506503 */ t40814 = a41755; /* x301130 stalin.sc:14400:506486 */ t40815.tag = STRUCTURE_TYPE24753; t40815.value.structure_type24753 = t40814; t40810 = f13492(t40815); /* x145146 stalin.sc:19187:672366 */ t40811 = f13514(t40810); r15677.tag = STRUCTURE_TYPE24753; r15677.value.structure_type24753 = t40811; return r15677;} /* [inside COMPILE-TYPE-DECLARATIONS 15663] */ struct structure_type24753 *f15663(struct w49 a26808) {struct w49 t40845; struct w49 t40846; struct w61020 t40847; struct w49 t40848; struct w49 t40849; /* x144918 stalin.sc:19128:670568 */ /* x144917 stalin.sc:19128:670585 */ /* x144913 stalin.sc:19128:670593 */ t40846 = a26808; /* x144916 stalin.sc:19128:670595 */ /* x144915 stalin.sc:19128:670600 */ t40849 = a26808; /* x144914 stalin.sc:19128:670596 */ t40847 = f14289(t40849); /* x144912 stalin.sc:19128:670586 */ t40848 = *((struct w49 *)(&t40847)); t40845 = f14374(t40846, t40848); /* x144911 stalin.sc:19128:670569 */ return f13514(t40845);} /* [inside COMPILE-TYPE-DECLARATIONS 15661] */ struct structure_type24753 *f15661(struct w49 a26807) {struct w49 a37147; /* OBJ */ struct w49 a37617; /* S */ struct w49 a37670; /* OBJ */ struct structure_type24753 *a41760; /* CS */ struct structure_type24753 *a41761; /* CS */ struct structure_type24753 *a41762; /* CS */ struct structure_type24753 *a41763; /* CS */ struct structure_type24753 *a41977; /* CS */ struct structure_type24753 *a41978; /* CS */ struct structure_type24753 *a41979; /* CS */ struct structure_type24753 *a41980; /* CS */ struct w49 t40850; struct w49 t40851; struct w49 t40852; struct w49 t40853; char *t40854; struct w49 t40855; struct w49 t40856; struct structure_type24753 *t40857; struct structure_type24753 *t40858; struct w49 t40859; struct w49 t40860; char *t40861; struct w61020 t40862; struct structure_type24753 *t40863; struct w49 t40864; struct w49 t40865; struct w49 t40866; struct w49 t40867; struct w12224 t40868; struct w49 t40869; struct w11873 t40870; struct p18442 *t40871; struct w49 t40872; struct w49 t40873; struct w49 t40874; struct w49 t40875; struct w49 t40876; struct structure_type24753 *t40877; struct structure_type24753 *t40878; struct w49 t40879; struct w49 t40880; char *t40881; struct structure_type24753 *t40882; struct structure_type24753 *t40883; struct w49 t40884; struct w49 t40885; struct w49 t40886; struct w49 t40887; struct structure_type24753 *t40888; struct structure_type24753 *t40889; struct structure_type24753 *t40890; struct w49 t40891; struct w49 t40892; struct w49 t40893; struct w49 t40894; char *t40895; struct structure_type24753 *t40896; struct w49 t40897; struct w49 t40898; struct w49 t40899; struct w49 t40900; struct w49 t40901; char *t40902; struct w49 t40903; struct w49 t40904; struct w211113 t40905; struct w49 t40906; char *t40907; struct w49 t40908; struct structure_type24753 *t40909; struct w49 t40910; struct w49 t40911; struct structure_type24753 *t40912; char *t40913; struct structure_type24753 *t40914; struct w49 t40915; struct w49 t40916; struct w49 t40917; struct structure_type24753 *t40918; struct w49 t40919; struct w12224 t40920; struct w36270 t40921; struct w49 t40922; struct structure_type24753 *t40923; struct w49 t40924; struct w211061 t40925; /* x145015 stalin.sc:19113:670178 */ /* x144884 stalin.sc:19114:670188 */ /* x144883 stalin.sc:19114:670199 */ t40850 = a26807; /* x144882 stalin.sc:19114:670189 */ a37147 = t40850; /* x281257 */ /* x281256 */ t40851 = a37147; /* x281255 */ if (!((t40851.tag)==STRUCTURE_TYPE27650)) goto l6053; /* x144970 */ /* x144969 */ /* x144968 stalin.sc:19115:670208 */ /* x144967 stalin.sc:19116:670230 */ /* x144966 stalin.sc:19118:670294 */ /* x144965 stalin.sc:19119:670316 */ /* x144964 stalin.sc:19121:670395 */ /* x144903 stalin.sc:19121:670399 */ /* x144902 stalin.sc:19121:670411 */ t40899 = a26807; /* x144901 stalin.sc:19121:670400 */ if (f13801(t40899)==FALSE_TYPE) goto l6057; /* x144942 stalin.sc:19122:670421 */ /* x144941 stalin.sc:19123:670444 */ /* x144940 stalin.sc:19125:670483 */ /* x144939 stalin.sc:19133:670730 */ t40913 = "value"; /* x144938 stalin.sc:19126:670506 */ /* x144937 stalin.sc:19127:670530 */ /* x144936 stalin.sc:19128:670551 */ /* x144935 stalin.sc:19129:670614 */ /* x144933 stalin.sc:19129:670628 */ /* x144934 stalin.sc:19132:670714 */ t40924 = a26807; /* x144920 stalin.sc:19129:670615 */ t40925.tag = NATIVE_PROCEDURE_TYPE23833; t40920 = f8172(t40925, t40924); /* x144919 stalin.sc:19128:670556 */ /* x144910 stalin.sc:19128:670552 */ t40921.tag = NATIVE_PROCEDURE_TYPE23834; t40922 = *((struct w49 *)(&t40920)); t40923 = (struct structure_type24753 *)NULL_TYPE; t40918 = f27731(t40921, t40922, t40923); /* x144909 stalin.sc:19127:670531 */ /* MOVE: branching squeezed to general */ if (t40918>=((struct structure_type24753 *)VALUE_OFFSET)) {t40919.tag = STRUCTURE_TYPE24753; t40919.value.structure_type24753 = t40918;} else t40919.tag = (unsigned)t40918; t40917 = f13492(t40919); /* x144908 stalin.sc:19126:670507 */ t40912 = f13501(t40917); /* x144907 stalin.sc:19125:670484 */ t40916.tag = STRUCTURE_TYPE24753; t40916.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40916.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19125, 670483); out_of_memory_error();} t40916.value.structure_type24753->s0.tag = STRING_TYPE; t40916.value.structure_type24753->s0.value.string_type = t40913; t40916.value.structure_type24753->s1.tag = NULL_TYPE; a41979 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41979==NULL) {backtrace("stalin.sc", 19125, 670483); out_of_memory_error();} a41979->s0.tag = STRUCTURE_TYPE24753; a41979->s0.value.structure_type24753 = t40912; a41979->s1 = t40916; /* x302028 stalin.sc:14386:505956 */ /* x302027 stalin.sc:14386:505972 */ t40914 = a41979; /* x302026 stalin.sc:14386:505957 */ t40915.tag = STRUCTURE_TYPE24753; t40915.value.structure_type24753 = t40914; t40908 = f13474(t40915); /* x144906 stalin.sc:19124:670468 */ t40907 = "union"; /* x144905 stalin.sc:19123:670445 */ t40911.tag = STRUCTURE_TYPE24753; t40911.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40911.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19123, 670444); out_of_memory_error();} t40911.value.structure_type24753->s0 = t40908; t40911.value.structure_type24753->s1.tag = NULL_TYPE; a41762 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41762==NULL) {backtrace("stalin.sc", 19123, 670444); out_of_memory_error();} a41762->s0.tag = STRING_TYPE; a41762->s0.value.string_type = t40907; a41762->s1 = t40911; /* x301160 stalin.sc:14400:506485 */ /* x301159 stalin.sc:14400:506503 */ t40909 = a41762; /* x301158 stalin.sc:14400:506486 */ t40910.tag = STRUCTURE_TYPE24753; t40910.value.structure_type24753 = t40909; t40906 = f13492(t40910); /* x144904 stalin.sc:19122:670422 */ t40889 = f13514(t40906); goto l6058; l6057: /* x144963 stalin.sc:19134:670746 */ /* x144962 stalin.sc:19135:670769 */ /* x144960 stalin.sc:19135:670777 */ /* x144958 stalin.sc:19136:670802 */ /* x144959 stalin.sc:19138:670881 */ t40904 = a26807; /* x144945 stalin.sc:19135:670778 */ t40905.tag = NATIVE_PROCEDURE_TYPE23832; t40901 = f8157(t40905, t40904); /* x144961 stalin.sc:19139:670893 */ t40902 = "value"; /* x144944 stalin.sc:19135:670770 */ t40903.tag = STRING_TYPE; t40903.value.string_type = t40902; t40900 = f14374(t40901, t40903); /* x144943 stalin.sc:19134:670747 */ t40889 = f13514(t40900); l6058: /* x144900 stalin.sc:19120:670341 */ /* x144899 stalin.sc:19120:670358 */ /* x144898 stalin.sc:19120:670379 */ t40895 = "tag"; /* x144897 stalin.sc:19120:670373 */ t40894 = a1248; /* x144896 stalin.sc:19120:670359 */ t40898.tag = STRUCTURE_TYPE24753; t40898.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40898.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19120, 670358); out_of_memory_error();} t40898.value.structure_type24753->s0.tag = STRING_TYPE; t40898.value.structure_type24753->s0.value.string_type = t40895; t40898.value.structure_type24753->s1.tag = NULL_TYPE; a41978 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41978==NULL) {backtrace("stalin.sc", 19120, 670358); out_of_memory_error();} a41978->s0 = t40894; a41978->s1 = t40898; /* x302024 stalin.sc:14386:505956 */ /* x302023 stalin.sc:14386:505972 */ t40896 = a41978; /* x302022 stalin.sc:14386:505957 */ t40897.tag = STRUCTURE_TYPE24753; t40897.value.structure_type24753 = t40896; t40893 = f13474(t40897); /* x144895 stalin.sc:19120:670342 */ t40888 = f13514(t40893); /* x144894 stalin.sc:19119:670317 */ t40892.tag = STRUCTURE_TYPE24753; t40892.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40892.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19119, 670316); out_of_memory_error();} t40892.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40892.value.structure_type24753->s0.value.structure_type24753 = t40889; t40892.value.structure_type24753->s1.tag = NULL_TYPE; a41761 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41761==NULL) {backtrace("stalin.sc", 19119, 670316); out_of_memory_error();} a41761->s0.tag = STRUCTURE_TYPE24753; a41761->s0.value.structure_type24753 = t40888; a41761->s1 = t40892; /* x301156 stalin.sc:14400:506485 */ /* x301155 stalin.sc:14400:506503 */ t40890 = a41761; /* x301154 stalin.sc:14400:506486 */ t40891.tag = STRUCTURE_TYPE24753; t40891.value.structure_type24753 = t40890; t40887 = f13492(t40891); /* x144893 stalin.sc:19118:670295 */ t40877 = f13501(t40887); /* x144892 stalin.sc:19117:670253 */ /* x144891 stalin.sc:19117:670277 */ /* x144890 stalin.sc:19117:670282 */ t40886 = a26807; /* x144889 stalin.sc:19117:670278 */ t40882 = f14317(t40886); /* x144888 stalin.sc:19117:670268 */ t40881 = "struct"; /* x144887 stalin.sc:19117:670254 */ t40885.tag = STRUCTURE_TYPE24753; t40885.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40885.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19117, 670253); out_of_memory_error();} t40885.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40885.value.structure_type24753->s0.value.structure_type24753 = t40882; t40885.value.structure_type24753->s1.tag = NULL_TYPE; a41977 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41977==NULL) {backtrace("stalin.sc", 19117, 670253); out_of_memory_error();} a41977->s0.tag = STRING_TYPE; a41977->s0.value.string_type = t40881; a41977->s1 = t40885; /* x302020 stalin.sc:14386:505956 */ /* x302019 stalin.sc:14386:505972 */ t40883 = a41977; /* x302018 stalin.sc:14386:505957 */ t40884.tag = STRUCTURE_TYPE24753; t40884.value.structure_type24753 = t40883; t40876 = f13474(t40884); /* x144886 stalin.sc:19116:670231 */ t40880.tag = STRUCTURE_TYPE24753; t40880.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40880.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19116, 670230); out_of_memory_error();} t40880.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40880.value.structure_type24753->s0.value.structure_type24753 = t40877; t40880.value.structure_type24753->s1.tag = NULL_TYPE; a41760 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41760==NULL) {backtrace("stalin.sc", 19116, 670230); out_of_memory_error();} a41760->s0 = t40876; a41760->s1 = t40880; /* x301152 stalin.sc:14400:506485 */ /* x301151 stalin.sc:14400:506503 */ t40878 = a41760; /* x301150 stalin.sc:14400:506486 */ t40879.tag = STRUCTURE_TYPE24753; t40879.value.structure_type24753 = t40878; t40875 = f13492(t40879); /* x144885 stalin.sc:19115:670209 */ return f13514(t40875); l6053: /* x145014 */ /* x144973 stalin.sc:19140:670913 */ /* x144972 stalin.sc:19140:670930 */ t40852 = a26807; /* x144971 stalin.sc:19140:670914 */ a37670 = t40852; /* x283349 */ /* x283348 */ t40853 = a37670; /* x283347 */ if (!((t40853.tag)==STRUCTURE_TYPE27769)) goto l6055; /* x145009 */ /* x145008 */ /* x145007 stalin.sc:19141:670939 */ /* x145006 stalin.sc:19142:670961 */ /* x145005 stalin.sc:19144:671025 */ /* x145004 stalin.sc:19145:671047 */ /* x145003 stalin.sc:19146:671073 */ /* x144999 stalin.sc:19146:671086 */ /* x145002 stalin.sc:19150:671197 */ /* x145001 stalin.sc:19150:671219 */ t40873 = a26807; /* x145000 stalin.sc:19150:671198 */ a37617 = t40873; /* x283137 */ /* x283136 */ t40874 = a37617; /* x283135 */ if (!((t40874.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32534]"); structure_ref_error();} t40870 = t40874.value.structure_type27769->s1; /* x144984 stalin.sc:19146:671074 */ t40871 = (struct p18442 *)NATIVE_PROCEDURE_TYPE23830; t40872 = *((struct w49 *)(&t40870)); t40868 = f1144(t40871, t40872); /* x144983 stalin.sc:19145:671048 */ t40869 = *((struct w49 *)(&t40868)); t40867 = f13492(t40869); /* x144982 stalin.sc:19144:671026 */ t40857 = f13501(t40867); /* x144981 stalin.sc:19143:670984 */ /* x144980 stalin.sc:19143:671008 */ /* x144979 stalin.sc:19143:671013 */ t40866 = a26807; /* x144978 stalin.sc:19143:671009 */ t40862 = f14289(t40866); /* x144977 stalin.sc:19143:670999 */ t40861 = "struct"; /* x144976 stalin.sc:19143:670985 */ t40865.tag = STRUCTURE_TYPE24753; t40865.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40865.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19143, 670984); out_of_memory_error();} t40865.value.structure_type24753->s0 = *((struct w49 *)(&t40862)); t40865.value.structure_type24753->s1.tag = NULL_TYPE; a41980 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41980==NULL) {backtrace("stalin.sc", 19143, 670984); out_of_memory_error();} a41980->s0.tag = STRING_TYPE; a41980->s0.value.string_type = t40861; a41980->s1 = t40865; /* x302032 stalin.sc:14386:505956 */ /* x302031 stalin.sc:14386:505972 */ t40863 = a41980; /* x302030 stalin.sc:14386:505957 */ t40864.tag = STRUCTURE_TYPE24753; t40864.value.structure_type24753 = t40863; t40856 = f13474(t40864); /* x144975 stalin.sc:19142:670962 */ t40860.tag = STRUCTURE_TYPE24753; t40860.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40860.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19142, 670961); out_of_memory_error();} t40860.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40860.value.structure_type24753->s0.value.structure_type24753 = t40857; t40860.value.structure_type24753->s1.tag = NULL_TYPE; a41763 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41763==NULL) {backtrace("stalin.sc", 19142, 670961); out_of_memory_error();} a41763->s0 = t40856; a41763->s1 = t40860; /* x301164 stalin.sc:14400:506485 */ /* x301163 stalin.sc:14400:506503 */ t40858 = a41763; /* x301162 stalin.sc:14400:506486 */ t40859.tag = STRUCTURE_TYPE24753; t40859.value.structure_type24753 = t40858; t40855 = f13492(t40859); /* x144974 stalin.sc:19141:670940 */ return f13514(t40855); l6055: /* x145013 */ /* x145012 */ /* x145011 stalin.sc:19151:671239 */ /* x145010 stalin.sc:19151:671240 */ /* x295221 QobiScheme.sc:166:5314 */ /* x295220 QobiScheme.sc:166:5321 */ t40854 = "This shouldn\'t happen"; /* x295219 QobiScheme.sc:166:5315 */ stalin_panic(t40854);} /* [inside COMPILE-TYPE-DECLARATIONS 15660] */ struct w61020 f15660(struct w49 a26806) {struct w61020 r15660; struct structure_type24753 *a25259; /* CS */ struct w49 a37307; /* S */ struct structure_type24753 *a41748; /* CS */ struct structure_type24753 *a41970; /* CS */ struct structure_type24753 *a41971; /* CS */ struct w49 t40926; struct w49 t40927; struct structure_type24753 *t40928; struct w49 t40929; struct structure_type24753 *t40930; struct structure_type24753 *t40931; struct w49 t40932; struct w49 t40933; char *t40934; struct w61020 t40935; struct structure_type24753 *t40936; struct w49 t40937; struct w49 t40938; struct w49 t40939; struct w49 t40940; struct structure_type24753 *t40941; struct structure_type24753 *t40942; struct structure_type24753 *t40943; struct w49 t40944; struct w49 t40945; struct w49 t40946; struct w49 t40947; char *t40948; struct structure_type24753 *t40949; struct w49 t40950; struct w49 t40951; struct w49 t40952; struct w49 t40953; struct structure_type24753 *t40954; struct w49 t40955; struct w49 t40956; struct w49 t40957; struct w49 t40958; char *t40959; struct w49 t40960; /* x144875 stalin.sc:19098:669717 */ /* x144840 stalin.sc:19098:669721 */ /* x144839 stalin.sc:19098:669746 */ t40926 = a26806; /* x144838 stalin.sc:19098:669722 */ if (f7754(t40926)==FALSE_TYPE) goto l6060; /* x144842 stalin.sc:19099:669755 */ /* x144841 stalin.sc:19099:669756 */ /* x276433 stalin.sc:14693:514793 */ r15660.tag = STRING_TYPE; r15660.value.string_type = ""; return r15660; l6060: /* x144874 stalin.sc:19100:669770 */ /* x144873 stalin.sc:19101:669794 */ /* x144872 stalin.sc:19103:669860 */ /* x144871 stalin.sc:19104:669877 */ /* x144870 stalin.sc:19106:669952 */ /* x144869 stalin.sc:19107:669973 */ /* x144865 stalin.sc:19107:669985 */ /* x144864 stalin.sc:19108:670016 */ /* x144863 stalin.sc:19108:670061 */ t40957 = a26806; /* x144862 stalin.sc:19108:670017 */ a37307 = t40957; /* x281897 */ /* x281896 */ t40958 = a37307; /* x281895 */ if (!((t40958.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-DISPLACED-VECTOR-TYPE[6375] 32224]"); structure_ref_error();} t40956 = t40958.value.structure_type27908->s0; /* x144861 stalin.sc:19107:669986 */ t40953 = f7931(t40956); /* x144868 stalin.sc:19109:670074 */ /* x144867 stalin.sc:19109:670087 */ t40959 = "element"; /* x144866 stalin.sc:19109:670075 */ t40960.tag = STRING_TYPE; t40960.value.string_type = t40959; t40954 = f13516(t40960); /* x144860 stalin.sc:19107:669974 */ t40955.tag = STRUCTURE_TYPE24753; t40955.value.structure_type24753 = t40954; t40952 = f14414(t40953, t40955); /* x144859 stalin.sc:19106:669953 */ t40942 = f13514(t40952); /* x144858 stalin.sc:19105:669897 */ /* x144857 stalin.sc:19105:669914 */ /* x144856 stalin.sc:19105:669938 */ t40948 = "length"; /* x144855 stalin.sc:19105:669929 */ t40947 = a1249; /* x144854 stalin.sc:19105:669915 */ t40951.tag = STRUCTURE_TYPE24753; t40951.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40951.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19105, 669914); out_of_memory_error();} t40951.value.structure_type24753->s0.tag = STRING_TYPE; t40951.value.structure_type24753->s0.value.string_type = t40948; t40951.value.structure_type24753->s1.tag = NULL_TYPE; a41971 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41971==NULL) {backtrace("stalin.sc", 19105, 669914); out_of_memory_error();} a41971->s0 = t40947; a41971->s1 = t40951; /* x301996 stalin.sc:14386:505956 */ /* x301995 stalin.sc:14386:505972 */ t40949 = a41971; /* x301994 stalin.sc:14386:505957 */ t40950.tag = STRUCTURE_TYPE24753; t40950.value.structure_type24753 = t40949; t40946 = f13474(t40950); /* x144853 stalin.sc:19105:669898 */ t40941 = f13514(t40946); /* x144852 stalin.sc:19104:669878 */ t40945.tag = STRUCTURE_TYPE24753; t40945.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40945.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19104, 669877); out_of_memory_error();} t40945.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40945.value.structure_type24753->s0.value.structure_type24753 = t40942; t40945.value.structure_type24753->s1.tag = NULL_TYPE; a41748 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41748==NULL) {backtrace("stalin.sc", 19104, 669877); out_of_memory_error();} a41748->s0.tag = STRUCTURE_TYPE24753; a41748->s0.value.structure_type24753 = t40941; a41748->s1 = t40945; /* x301104 stalin.sc:14400:506485 */ /* x301103 stalin.sc:14400:506503 */ t40943 = a41748; /* x301102 stalin.sc:14400:506486 */ t40944.tag = STRUCTURE_TYPE24753; t40944.value.structure_type24753 = t40943; t40940 = f13492(t40944); /* x144851 stalin.sc:19103:669861 */ t40930 = f13501(t40940); /* x144850 stalin.sc:19102:669819 */ /* x144849 stalin.sc:19102:669843 */ /* x144848 stalin.sc:19102:669848 */ t40939 = a26806; /* x144847 stalin.sc:19102:669844 */ t40935 = f14289(t40939); /* x144846 stalin.sc:19102:669834 */ t40934 = "struct"; /* x144845 stalin.sc:19102:669820 */ t40938.tag = STRUCTURE_TYPE24753; t40938.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40938.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19102, 669819); out_of_memory_error();} t40938.value.structure_type24753->s0 = *((struct w49 *)(&t40935)); t40938.value.structure_type24753->s1.tag = NULL_TYPE; a41970 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41970==NULL) {backtrace("stalin.sc", 19102, 669819); out_of_memory_error();} a41970->s0.tag = STRING_TYPE; a41970->s0.value.string_type = t40934; a41970->s1 = t40938; /* x301992 stalin.sc:14386:505956 */ /* x301991 stalin.sc:14386:505972 */ t40936 = a41970; /* x301990 stalin.sc:14386:505957 */ t40937.tag = STRUCTURE_TYPE24753; t40937.value.structure_type24753 = t40936; t40929 = f13474(t40937); /* x144844 stalin.sc:19101:669795 */ t40933.tag = STRUCTURE_TYPE24753; t40933.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40933.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19101, 669794); out_of_memory_error();} t40933.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40933.value.structure_type24753->s0.value.structure_type24753 = t40930; t40933.value.structure_type24753->s1.tag = NULL_TYPE; a25259 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a25259==NULL) {backtrace("stalin.sc", 19101, 669794); out_of_memory_error();} a25259->s0 = t40929; a25259->s1 = t40933; /* x122310 stalin.sc:14400:506485 */ /* x122309 stalin.sc:14400:506503 */ t40931 = a25259; /* x122308 stalin.sc:14400:506486 */ t40932.tag = STRUCTURE_TYPE24753; t40932.value.structure_type24753 = t40931; t40927 = f13492(t40932); /* x144843 stalin.sc:19100:669771 */ t40928 = f13514(t40927); r15660.tag = STRUCTURE_TYPE24753; r15660.value.structure_type24753 = t40928; return r15660;} /* [inside COMPILE-TYPE-DECLARATIONS 15659] */ struct w61020 f15659(struct w49 a26805) {struct w61020 r15659; struct w49 a20075; /* S */ struct structure_type24753 *a41765; /* CS */ struct structure_type24753 *a41766; /* CS */ struct structure_type24753 *a41983; /* CS */ struct structure_type24753 *a41984; /* CS */ struct w49 t40961; struct w49 t40962; struct structure_type24753 *t40963; struct w49 t40964; struct structure_type24753 *t40965; struct structure_type24753 *t40966; struct w49 t40967; struct w49 t40968; char *t40969; struct w61020 t40970; struct structure_type24753 *t40971; struct w49 t40972; struct w49 t40973; struct w49 t40974; struct w49 t40975; struct structure_type24753 *t40976; struct structure_type24753 *t40977; struct structure_type24753 *t40978; struct w49 t40979; struct w49 t40980; struct w49 t40981; struct w49 t40982; char *t40983; struct structure_type24753 *t40984; struct w49 t40985; struct w49 t40986; struct w49 t40987; struct w49 t40988; struct structure_type24753 *t40989; struct w49 t40990; struct w49 t40991; struct w49 t40992; char *t40993; struct w49 t40994; /* x144831 stalin.sc:19084:669304 */ /* x144798 stalin.sc:19084:669308 */ /* x144797 stalin.sc:19084:669333 */ t40961 = a26805; /* x144796 stalin.sc:19084:669309 */ if (f7754(t40961)==FALSE_TYPE) goto l6062; /* x144800 stalin.sc:19085:669342 */ /* x144799 stalin.sc:19085:669343 */ /* x276447 stalin.sc:14693:514793 */ r15659.tag = STRING_TYPE; r15659.value.string_type = ""; return r15659; l6062: /* x144830 stalin.sc:19086:669357 */ /* x144829 stalin.sc:19087:669381 */ /* x144828 stalin.sc:19089:669447 */ /* x144827 stalin.sc:19090:669464 */ /* x144826 stalin.sc:19092:669539 */ /* x144825 stalin.sc:19093:669560 */ /* x144821 stalin.sc:19093:669572 */ /* x144820 stalin.sc:19093:669603 */ t40991 = a26805; /* x144819 stalin.sc:19093:669573 */ a20075 = t40991; /* x53716 */ /* x53715 */ t40992 = a20075; /* x53714 */ if (!((t40992.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("NONHEADED-VECTOR-TYPE-ELEMENT[6309]"); structure_ref_error();} t40988 = t40992.value.structure_type27669->s0; /* x144824 stalin.sc:19094:669615 */ /* x144823 stalin.sc:19094:669628 */ t40993 = "element"; /* x144822 stalin.sc:19094:669616 */ t40994.tag = STRING_TYPE; t40994.value.string_type = t40993; t40989 = f13516(t40994); /* x144818 stalin.sc:19093:669561 */ t40990.tag = STRUCTURE_TYPE24753; t40990.value.structure_type24753 = t40989; t40987 = f14414(t40988, t40990); /* x144817 stalin.sc:19092:669540 */ t40977 = f13514(t40987); /* x144816 stalin.sc:19091:669484 */ /* x144815 stalin.sc:19091:669501 */ /* x144814 stalin.sc:19091:669525 */ t40983 = "length"; /* x144813 stalin.sc:19091:669516 */ t40982 = a1249; /* x144812 stalin.sc:19091:669502 */ t40986.tag = STRUCTURE_TYPE24753; t40986.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40986.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19091, 669501); out_of_memory_error();} t40986.value.structure_type24753->s0.tag = STRING_TYPE; t40986.value.structure_type24753->s0.value.string_type = t40983; t40986.value.structure_type24753->s1.tag = NULL_TYPE; a41984 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41984==NULL) {backtrace("stalin.sc", 19091, 669501); out_of_memory_error();} a41984->s0 = t40982; a41984->s1 = t40986; /* x302048 stalin.sc:14386:505956 */ /* x302047 stalin.sc:14386:505972 */ t40984 = a41984; /* x302046 stalin.sc:14386:505957 */ t40985.tag = STRUCTURE_TYPE24753; t40985.value.structure_type24753 = t40984; t40981 = f13474(t40985); /* x144811 stalin.sc:19091:669485 */ t40976 = f13514(t40981); /* x144810 stalin.sc:19090:669465 */ t40980.tag = STRUCTURE_TYPE24753; t40980.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40980.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19090, 669464); out_of_memory_error();} t40980.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40980.value.structure_type24753->s0.value.structure_type24753 = t40977; t40980.value.structure_type24753->s1.tag = NULL_TYPE; a41766 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41766==NULL) {backtrace("stalin.sc", 19090, 669464); out_of_memory_error();} a41766->s0.tag = STRUCTURE_TYPE24753; a41766->s0.value.structure_type24753 = t40976; a41766->s1 = t40980; /* x301176 stalin.sc:14400:506485 */ /* x301175 stalin.sc:14400:506503 */ t40978 = a41766; /* x301174 stalin.sc:14400:506486 */ t40979.tag = STRUCTURE_TYPE24753; t40979.value.structure_type24753 = t40978; t40975 = f13492(t40979); /* x144809 stalin.sc:19089:669448 */ t40965 = f13501(t40975); /* x144808 stalin.sc:19088:669406 */ /* x144807 stalin.sc:19088:669430 */ /* x144806 stalin.sc:19088:669435 */ t40974 = a26805; /* x144805 stalin.sc:19088:669431 */ t40970 = f14289(t40974); /* x144804 stalin.sc:19088:669421 */ t40969 = "struct"; /* x144803 stalin.sc:19088:669407 */ t40973.tag = STRUCTURE_TYPE24753; t40973.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40973.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19088, 669406); out_of_memory_error();} t40973.value.structure_type24753->s0 = *((struct w49 *)(&t40970)); t40973.value.structure_type24753->s1.tag = NULL_TYPE; a41983 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41983==NULL) {backtrace("stalin.sc", 19088, 669406); out_of_memory_error();} a41983->s0.tag = STRING_TYPE; a41983->s0.value.string_type = t40969; a41983->s1 = t40973; /* x302044 stalin.sc:14386:505956 */ /* x302043 stalin.sc:14386:505972 */ t40971 = a41983; /* x302042 stalin.sc:14386:505957 */ t40972.tag = STRUCTURE_TYPE24753; t40972.value.structure_type24753 = t40971; t40964 = f13474(t40972); /* x144802 stalin.sc:19087:669382 */ t40968.tag = STRUCTURE_TYPE24753; t40968.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t40968.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19087, 669381); out_of_memory_error();} t40968.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t40968.value.structure_type24753->s0.value.structure_type24753 = t40965; t40968.value.structure_type24753->s1.tag = NULL_TYPE; a41765 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41765==NULL) {backtrace("stalin.sc", 19087, 669381); out_of_memory_error();} a41765->s0 = t40964; a41765->s1 = t40968; /* x301172 stalin.sc:14400:506485 */ /* x301171 stalin.sc:14400:506503 */ t40966 = a41765; /* x301170 stalin.sc:14400:506486 */ t40967.tag = STRUCTURE_TYPE24753; t40967.value.structure_type24753 = t40966; t40962 = f13492(t40967); /* x144801 stalin.sc:19086:669358 */ t40963 = f13514(t40962); r15659.tag = STRUCTURE_TYPE24753; r15659.value.structure_type24753 = t40963; return r15659;} /* [inside COMPILE-CLOSURES 15654] */ struct structure_type24753 *f15654(struct w49 a26803) {struct structure_type24753 *a41982; /* CS */ struct w49 t40995; char *t40996; struct structure_type24753 *t40997; struct structure_type24753 *t40998; struct structure_type24753 *t40999; struct w49 t41000; struct w49 t41001; struct w49 t41002; struct w49 t41003; struct structure_type24753 *t41004; struct w49 t41005; struct w49 t41006; /* x144753 stalin.sc:19059:668481 */ /* x144752 stalin.sc:19060:668505 */ /* x144751 stalin.sc:19060:668537 */ /* x144750 stalin.sc:19060:668550 */ /* x144749 stalin.sc:19060:668555 */ t41006 = a26803; /* x144748 stalin.sc:19060:668551 */ t41004 = f14275(t41006); /* x144747 stalin.sc:19060:668538 */ t41005.tag = STRUCTURE_TYPE24753; t41005.value.structure_type24753 = t41004; t40998 = f13516(t41005); /* x144746 stalin.sc:19060:668529 */ /* x144745 stalin.sc:19060:668534 */ t41003 = a26803; /* x144744 stalin.sc:19060:668530 */ t40997 = f14275(t41003); /* x144743 stalin.sc:19060:668520 */ t40996 = "struct"; /* x144742 stalin.sc:19060:668506 */ t41002.tag = STRUCTURE_TYPE24753; t41002.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41002.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19060, 668505); out_of_memory_error();} t41002.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41002.value.structure_type24753->s0.value.structure_type24753 = t40998; t41002.value.structure_type24753->s1.tag = NULL_TYPE; t41001.tag = STRUCTURE_TYPE24753; t41001.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41001.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19060, 668505); out_of_memory_error();} t41001.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41001.value.structure_type24753->s0.value.structure_type24753 = t40997; t41001.value.structure_type24753->s1 = t41002; a41982 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41982==NULL) {backtrace("stalin.sc", 19060, 668505); out_of_memory_error();} a41982->s0.tag = STRING_TYPE; a41982->s0.value.string_type = t40996; a41982->s1 = t41001; /* x302040 stalin.sc:14386:505956 */ /* x302039 stalin.sc:14386:505972 */ t40999 = a41982; /* x302038 stalin.sc:14386:505957 */ t41000.tag = STRUCTURE_TYPE24753; t41000.value.structure_type24753 = t40999; t40995 = f13474(t41000); /* x144741 stalin.sc:19059:668482 */ return f13514(t40995);} /* [inside COMPILE-CLOSURES 15648] */ struct w61020 f15648(struct w49 a26800) {struct w61020 r15648; char *a26801; /* v */ struct structure_type24753 *a41764; /* CS */ struct structure_type24753 *a41981; /* CS */ char *t41007; char *t41008; char *t41009; struct w49 t41010; struct w49 t41011; char *t41012; char *t41013; struct w49 t41014; struct w49 t41015; char *t41016; char *t41017; struct w49 t41018; struct w49 t41019; char *t41020; char *t41021; struct w49 t41022; struct w49 t41023; char *t41024; char *t41025; struct w49 t41026; struct w49 t41027; char *t41028; struct w49 t41029; struct w49 t41030; struct structure_type24753 *t41031; struct w49 t41032; struct structure_type24753 *t41033; struct structure_type24753 *t41034; struct w49 t41035; struct w49 t41036; char *t41037; struct structure_type24753 *t41038; struct structure_type24753 *t41039; struct w49 t41040; struct w49 t41041; struct w49 t41042; struct w49 t41043; struct structure_type24753 *t41044; struct w49 t41045; struct w3457 t41046; struct w36270 t41047; struct w49 t41048; struct structure_type24753 *t41049; struct w49 t41050; char *t41051; struct w6315 t41052; char *t41053; struct w6315 t41054; /* x144786 stalin.sc:19046:668018 */ /* x144785 stalin.sc:19046:668024 */ t41007 = a686; /* x144784 */ a26801 = t41007; /* x144783 */ /* x144697 */ /* x144695 */ t41008 = a26801; /* x144696 */ t41009 = q18; /* x144694 */ /* MOVE: branching squeezed to general */ if (t41008>=((char *)VALUE_OFFSET)) {t41010.tag = EXTERNAL_SYMBOL_TYPE; t41010.value.external_symbol_type = t41008;} else t41010.tag = (unsigned)t41008; t41011.tag = EXTERNAL_SYMBOL_TYPE; t41011.value.external_symbol_type = t41009; if (f26160(t41010, t41011)==FALSE_TYPE) goto l6064; /* x144703 */ /* x144702 */ /* x144701 stalin.sc:19048:668078 */ /* x144699 stalin.sc:19048:668093 */ /* x144700 stalin.sc:19048:668096 */ t41053 = "Immediate flat closures are not (yet) implemented"; /* x144698 stalin.sc:19048:668079 */ t41054.tag = FALSE_TYPE; f9707(t41054, t41053); return r15648; l6064: /* x144782 */ /* x144707 */ /* x144705 */ t41012 = a26801; /* x144706 */ t41013 = q19; /* x144704 */ /* MOVE: branching squeezed to general */ if (t41012>=((char *)VALUE_OFFSET)) {t41014.tag = EXTERNAL_SYMBOL_TYPE; t41014.value.external_symbol_type = t41012;} else t41014.tag = (unsigned)t41012; t41015.tag = EXTERNAL_SYMBOL_TYPE; t41015.value.external_symbol_type = t41013; if (f26160(t41014, t41015)==FALSE_TYPE) goto l6066; /* x144713 */ /* x144712 */ /* x144711 stalin.sc:19050:668178 */ /* x144709 stalin.sc:19050:668193 */ /* x144710 stalin.sc:19050:668196 */ t41051 = "Indirect flat closures are not (yet) implemented"; /* x144708 stalin.sc:19050:668179 */ t41052.tag = FALSE_TYPE; f9707(t41052, t41051); return r15648; l6066: /* x144781 */ /* x144726 */ /* x144725 */ /* x144723 */ t41016 = a26801; /* x144724 */ t41017 = q20; /* x144722 */ /* MOVE: branching squeezed to general */ if (t41016>=((char *)VALUE_OFFSET)) {t41018.tag = EXTERNAL_SYMBOL_TYPE; t41018.value.external_symbol_type = t41016;} else t41018.tag = (unsigned)t41016; t41019.tag = EXTERNAL_SYMBOL_TYPE; t41019.value.external_symbol_type = t41017; if (!(f26160(t41018, t41019)==FALSE_TYPE)) goto l6067; /* x144719 */ /* x144717 */ t41020 = a26801; /* x144718 */ t41021 = q21; /* x144716 */ /* MOVE: branching squeezed to general */ if (t41020>=((char *)VALUE_OFFSET)) {t41022.tag = EXTERNAL_SYMBOL_TYPE; t41022.value.external_symbol_type = t41020;} else t41022.tag = (unsigned)t41020; t41023.tag = EXTERNAL_SYMBOL_TYPE; t41023.value.external_symbol_type = t41021; if (f26160(t41022, t41023)==FALSE_TYPE) goto l6068; l6067: /* x144767 */ /* x144766 */ /* x144765 stalin.sc:19052:668298 */ /* x144729 stalin.sc:19052:668302 */ /* x144728 stalin.sc:19052:668325 */ t41029 = a26800; /* x144727 stalin.sc:19052:668303 */ if ((f8897(t41029).tag)==FALSE_TYPE) goto l6073; /* x144762 stalin.sc:19053:668331 */ /* x144761 stalin.sc:19054:668352 */ /* x144760 stalin.sc:19056:668412 */ /* x144759 stalin.sc:19057:668433 */ /* x144758 stalin.sc:19058:668458 */ /* x144757 stalin.sc:19061:668567 */ /* x144756 stalin.sc:19061:668578 */ t41050 = a26800; /* x144755 stalin.sc:19061:668568 */ t41046 = f8951(t41050); /* x144754 stalin.sc:19058:668463 */ /* x144740 stalin.sc:19058:668459 */ t41047.tag = NATIVE_PROCEDURE_TYPE23825; t41048 = *((struct w49 *)(&t41046)); t41049 = (struct structure_type24753 *)NULL_TYPE; t41044 = f27731(t41047, t41048, t41049); /* x144739 stalin.sc:19057:668434 */ /* MOVE: branching squeezed to general */ if (t41044>=((struct structure_type24753 *)VALUE_OFFSET)) {t41045.tag = STRUCTURE_TYPE24753; t41045.value.structure_type24753 = t41044;} else t41045.tag = (unsigned)t41044; t41043 = f13492(t41045); /* x144738 stalin.sc:19056:668413 */ t41033 = f13501(t41043); /* x144737 stalin.sc:19055:668374 */ /* x144736 stalin.sc:19055:668398 */ /* x144735 stalin.sc:19055:668403 */ t41042 = a26800; /* x144734 stalin.sc:19055:668399 */ t41038 = f14281(t41042); /* x144733 stalin.sc:19055:668389 */ t41037 = "struct"; /* x144732 stalin.sc:19055:668375 */ t41041.tag = STRUCTURE_TYPE24753; t41041.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41041.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19055, 668374); out_of_memory_error();} t41041.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41041.value.structure_type24753->s0.value.structure_type24753 = t41038; t41041.value.structure_type24753->s1.tag = NULL_TYPE; a41981 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41981==NULL) {backtrace("stalin.sc", 19055, 668374); out_of_memory_error();} a41981->s0.tag = STRING_TYPE; a41981->s0.value.string_type = t41037; a41981->s1 = t41041; /* x302036 stalin.sc:14386:505956 */ /* x302035 stalin.sc:14386:505972 */ t41039 = a41981; /* x302034 stalin.sc:14386:505957 */ t41040.tag = STRUCTURE_TYPE24753; t41040.value.structure_type24753 = t41039; t41032 = f13474(t41040); /* x144731 stalin.sc:19054:668353 */ t41036.tag = STRUCTURE_TYPE24753; t41036.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41036.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19054, 668352); out_of_memory_error();} t41036.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41036.value.structure_type24753->s0.value.structure_type24753 = t41033; t41036.value.structure_type24753->s1.tag = NULL_TYPE; a41764 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41764==NULL) {backtrace("stalin.sc", 19054, 668352); out_of_memory_error();} a41764->s0 = t41032; a41764->s1 = t41036; /* x301168 stalin.sc:14400:506485 */ /* x301167 stalin.sc:14400:506503 */ t41034 = a41764; /* x301166 stalin.sc:14400:506486 */ t41035.tag = STRUCTURE_TYPE24753; t41035.value.structure_type24753 = t41034; t41030 = f13492(t41035); /* x144730 stalin.sc:19053:668332 */ t41031 = f13514(t41030); r15648.tag = STRUCTURE_TYPE24753; r15648.value.structure_type24753 = t41031; return r15648; l6073: /* x144764 stalin.sc:19062:668589 */ /* x144763 stalin.sc:19062:668590 */ /* x276443 stalin.sc:14693:514793 */ r15648.tag = STRING_TYPE; r15648.value.string_type = ""; return r15648; l6068: /* x144780 */ /* x144771 */ /* x144769 */ t41024 = a26801; /* x144770 */ t41025 = q22; /* x144768 */ /* MOVE: branching squeezed to general */ if (t41024>=((char *)VALUE_OFFSET)) {t41026.tag = EXTERNAL_SYMBOL_TYPE; t41026.value.external_symbol_type = t41024;} else t41026.tag = (unsigned)t41024; t41027.tag = EXTERNAL_SYMBOL_TYPE; t41027.value.external_symbol_type = t41025; if (f26160(t41026, t41027)==FALSE_TYPE) goto l6071; /* x144775 */ /* x144774 */ /* x144773 stalin.sc:19063:668615 */ /* x144772 stalin.sc:19063:668616 */ /* x276445 stalin.sc:14693:514793 */ r15648.tag = STRING_TYPE; r15648.value.string_type = ""; return r15648; l6071: /* x144779 */ /* x144778 */ /* x144777 stalin.sc:19064:668636 */ /* x144776 stalin.sc:19064:668637 */ /* x295225 QobiScheme.sc:166:5314 */ /* x295224 QobiScheme.sc:166:5321 */ t41028 = "This shouldn\'t happen"; /* x295223 QobiScheme.sc:166:5315 */ stalin_panic(t41028);} /* [inside COMPILE-REGION-DISTRIBUTION 15642] */ struct w49 f15642(struct w49 a26797) {struct w49 r15642; struct structure_type24753 *a41751; /* CS */ struct structure_type24753 *a41752; /* CS */ struct w49 t41055; struct structure_type24753 *t41056; struct structure_type24753 *t41057; struct structure_type24753 *t41058; struct w49 t41059; struct w49 t41060; char *t41061; struct structure_type24753 *t41062; struct structure_type24753 *t41063; struct w61020 t41064; struct structure_type24753 *t41065; struct w49 t41066; struct w61020 t41067; struct w49 t41068; struct structure_type24753 *t41069; struct w49 t41070; struct structure_type24753 *t41071; struct w61020 t41072; struct w49 t41073; struct w49 t41074; struct structure_type24753 *t41075; char *t41076; struct structure_type24753 *t41077; struct structure_type24753 *t41078; struct w61020 t41079; struct structure_type24753 *t41080; struct w49 t41081; struct structure_type24753 *t41082; struct w49 t41083; struct structure_type24753 *t41084; struct w49 t41085; struct structure_type24753 *t41086; struct w49 t41087; struct w49 t41088; char *t41089; struct w49 t41090; struct structure_type24753 *t41091; struct structure_type24753 *t41092; struct structure_type24753 *t41093; struct structure_type24753 *t41094; struct structure_type24753 *t41095; struct w49 t41096; struct w49 t41097; struct w49 t41098; struct w49 t41099; char *t41100; struct structure_type24753 *t41101; struct structure_type24753 *t41102; struct w61020 t41103; struct structure_type24753 *t41104; struct w49 t41105; struct structure_type24753 *t41106; struct w49 t41107; struct structure_type24753 *t41108; struct w49 t41109; struct structure_type24753 *t41110; struct w49 t41111; struct w49 t41112; char *t41113; struct structure_type24753 *t41114; struct structure_type24753 *t41115; struct w61020 t41116; struct structure_type24753 *t41117; struct w49 t41118; struct w61020 t41119; struct w49 t41120; struct structure_type24753 *t41121; struct w49 t41122; struct structure_type24753 *t41123; struct w61020 t41124; struct w49 t41125; struct w49 t41126; struct structure_type24753 *t41127; char *t41128; struct structure_type24753 *t41129; struct structure_type24753 *t41130; struct w61020 t41131; struct structure_type24753 *t41132; struct w49 t41133; struct w61020 t41134; struct w49 t41135; struct structure_type24753 *t41136; struct w49 t41137; struct structure_type24753 *t41138; struct w61020 t41139; struct w49 t41140; struct w49 t41141; struct structure_type24753 *t41142; char *t41143; struct structure_type24753 *t41144; struct structure_type24753 *t41145; struct w61020 t41146; struct structure_type24753 *t41147; struct w49 t41148; struct structure_type24753 *t41149; struct w49 t41150; struct structure_type24753 *t41151; struct w49 t41152; struct structure_type24753 *t41153; struct w49 t41154; struct w49 t41155; char *t41156; struct w49 t41157; /* x144685 stalin.sc:19019:667176 */ /* x144584 stalin.sc:19019:667180 */ /* x144583 stalin.sc:19019:667193 */ t41055 = a26797; /* x144582 stalin.sc:19019:667181 */ if (f8528(t41055)==FALSE_TYPE) goto l6075; /* x144682 stalin.sc:19020:667197 */ /* x144585 stalin.sc:19021:667206 */ if (a690==FALSE_TYPE) goto l6077; /* x144646 */ /* x144645 */ /* x144644 */ /* x144643 stalin.sc:19022:667231 */ /* x144642 stalin.sc:19022:667241 */ t41156 = "Tmk"; /* x144641 stalin.sc:19022:667232 */ t41157.tag = STRING_TYPE; t41157.value.string_type = t41156; f18320(t41157); /* x144640 */ /* x144639 stalin.sc:19023:667268 */ /* x144638 stalin.sc:19030:667570 */ /* x144637 stalin.sc:19030:667616 */ /* x144636 stalin.sc:19030:667626 */ /* x144635 stalin.sc:19030:667632 */ t41155 = a26797; /* x144634 stalin.sc:19030:667627 */ t41153 = f14321(t41155); /* x144633 stalin.sc:19030:667617 */ t41154.tag = STRUCTURE_TYPE24753; t41154.value.structure_type24753 = t41153; t41145 = f13544(t41154); /* x144632 stalin.sc:19030:667601 */ /* x144631 stalin.sc:19030:667606 */ /* x144630 stalin.sc:19030:667612 */ t41152 = a26797; /* x144629 stalin.sc:19030:667607 */ t41149 = f14321(t41152); /* x144628 stalin.sc:19030:667602 */ t41150.tag = STRUCTURE_TYPE24753; t41150.value.structure_type24753 = t41149; t41151 = (struct structure_type24753 *)NULL_TYPE; t41144 = f13625(t41150, t41151); /* x144627 stalin.sc:19030:667579 */ t41143 = "Tmk_distribute_hack"; /* x144626 stalin.sc:19030:667571 */ t41146.tag = STRING_TYPE; t41146.value.string_type = t41143; t41148.tag = STRUCTURE_TYPE24753; t41148.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41148.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19030, 667570); out_of_memory_error();} t41148.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41148.value.structure_type24753->s0.value.structure_type24753 = t41145; t41148.value.structure_type24753->s1.tag = NULL_TYPE; t41147 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41147==NULL) {backtrace("stalin.sc", 19030, 667570); out_of_memory_error();} t41147->s0.tag = STRUCTURE_TYPE24753; t41147->s0.value.structure_type24753 = t41144; t41147->s1 = t41148; t41094 = f13645(t41146, t41147); /* x144625 stalin.sc:19028:667475 */ /* x144624 stalin.sc:19029:667536 */ /* x144623 stalin.sc:19029:667546 */ /* x144622 stalin.sc:19029:667561 */ t41141 = a26797; /* x144621 stalin.sc:19029:667547 */ t41142 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41142==NULL) {backtrace("stalin.sc", 19029, 667546); out_of_memory_error();} t41142->s0 = t41141; t41142->s1.tag = NULL_TYPE; t41139 = f14328(t41142); /* x144620 stalin.sc:19029:667537 */ t41140 = *((struct w49 *)(&t41139)); t41130 = f13544(t41140); /* x144619 stalin.sc:19029:667512 */ /* x144618 stalin.sc:19029:667517 */ /* x144617 stalin.sc:19029:667532 */ t41137 = a26797; /* x144616 stalin.sc:19029:667518 */ t41138 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41138==NULL) {backtrace("stalin.sc", 19029, 667517); out_of_memory_error();} t41138->s0 = t41137; t41138->s1.tag = NULL_TYPE; t41134 = f14328(t41138); /* x144615 stalin.sc:19029:667513 */ t41135 = *((struct w49 *)(&t41134)); t41136 = (struct structure_type24753 *)NULL_TYPE; t41129 = f13625(t41135, t41136); /* x144614 stalin.sc:19028:667484 */ t41128 = "Tmk_distribute_hack"; /* x144613 stalin.sc:19028:667476 */ t41131.tag = STRING_TYPE; t41131.value.string_type = t41128; t41133.tag = STRUCTURE_TYPE24753; t41133.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41133.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19028, 667475); out_of_memory_error();} t41133.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41133.value.structure_type24753->s0.value.structure_type24753 = t41130; t41133.value.structure_type24753->s1.tag = NULL_TYPE; t41132 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41132==NULL) {backtrace("stalin.sc", 19028, 667475); out_of_memory_error();} t41132->s0.tag = STRUCTURE_TYPE24753; t41132->s0.value.structure_type24753 = t41129; t41132->s1 = t41133; t41093 = f13645(t41131, t41132); /* x144612 stalin.sc:19026:667390 */ /* x144611 stalin.sc:19027:667446 */ /* x144610 stalin.sc:19027:667456 */ /* x144609 stalin.sc:19027:667466 */ t41126 = a26797; /* x144608 stalin.sc:19027:667457 */ t41127 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41127==NULL) {backtrace("stalin.sc", 19027, 667456); out_of_memory_error();} t41127->s0 = t41126; t41127->s1.tag = NULL_TYPE; t41124 = f14324(t41127); /* x144607 stalin.sc:19027:667447 */ t41125 = *((struct w49 *)(&t41124)); t41115 = f13544(t41125); /* x144606 stalin.sc:19027:667427 */ /* x144605 stalin.sc:19027:667432 */ /* x144604 stalin.sc:19027:667442 */ t41122 = a26797; /* x144603 stalin.sc:19027:667433 */ t41123 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41123==NULL) {backtrace("stalin.sc", 19027, 667432); out_of_memory_error();} t41123->s0 = t41122; t41123->s1.tag = NULL_TYPE; t41119 = f14324(t41123); /* x144602 stalin.sc:19027:667428 */ t41120 = *((struct w49 *)(&t41119)); t41121 = (struct structure_type24753 *)NULL_TYPE; t41114 = f13625(t41120, t41121); /* x144601 stalin.sc:19026:667399 */ t41113 = "Tmk_distribute_hack"; /* x144600 stalin.sc:19026:667391 */ t41116.tag = STRING_TYPE; t41116.value.string_type = t41113; t41118.tag = STRUCTURE_TYPE24753; t41118.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41118.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19026, 667390); out_of_memory_error();} t41118.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41118.value.structure_type24753->s0.value.structure_type24753 = t41115; t41118.value.structure_type24753->s1.tag = NULL_TYPE; t41117 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41117==NULL) {backtrace("stalin.sc", 19026, 667390); out_of_memory_error();} t41117->s0.tag = STRUCTURE_TYPE24753; t41117->s0.value.structure_type24753 = t41114; t41117->s1 = t41118; t41092 = f13645(t41116, t41117); /* x144599 stalin.sc:19024:667289 */ /* x144598 stalin.sc:19025:667353 */ /* x144597 stalin.sc:19025:667363 */ /* x144596 stalin.sc:19025:667381 */ t41112 = a26797; /* x144595 stalin.sc:19025:667364 */ t41110 = f14332(t41112); /* x144594 stalin.sc:19025:667354 */ t41111.tag = STRUCTURE_TYPE24753; t41111.value.structure_type24753 = t41110; t41102 = f13544(t41111); /* x144593 stalin.sc:19025:667326 */ /* x144592 stalin.sc:19025:667331 */ /* x144591 stalin.sc:19025:667349 */ t41109 = a26797; /* x144590 stalin.sc:19025:667332 */ t41106 = f14332(t41109); /* x144589 stalin.sc:19025:667327 */ t41107.tag = STRUCTURE_TYPE24753; t41107.value.structure_type24753 = t41106; t41108 = (struct structure_type24753 *)NULL_TYPE; t41101 = f13625(t41107, t41108); /* x144588 stalin.sc:19024:667298 */ t41100 = "Tmk_distribute_hack"; /* x144587 stalin.sc:19024:667290 */ t41103.tag = STRING_TYPE; t41103.value.string_type = t41100; t41105.tag = STRUCTURE_TYPE24753; t41105.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41105.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19024, 667289); out_of_memory_error();} t41105.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41105.value.structure_type24753->s0.value.structure_type24753 = t41102; t41105.value.structure_type24753->s1.tag = NULL_TYPE; t41104 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41104==NULL) {backtrace("stalin.sc", 19024, 667289); out_of_memory_error();} t41104->s0.tag = STRUCTURE_TYPE24753; t41104->s0.value.structure_type24753 = t41101; t41104->s1 = t41105; t41091 = f13645(t41103, t41104); /* x144586 stalin.sc:19023:667269 */ t41099.tag = STRUCTURE_TYPE24753; t41099.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41099.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19023, 667268); out_of_memory_error();} t41099.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41099.value.structure_type24753->s0.value.structure_type24753 = t41094; t41099.value.structure_type24753->s1.tag = NULL_TYPE; t41098.tag = STRUCTURE_TYPE24753; t41098.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41098.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19023, 667268); out_of_memory_error();} t41098.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41098.value.structure_type24753->s0.value.structure_type24753 = t41093; t41098.value.structure_type24753->s1 = t41099; t41097.tag = STRUCTURE_TYPE24753; t41097.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41097.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19023, 667268); out_of_memory_error();} t41097.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41097.value.structure_type24753->s0.value.structure_type24753 = t41092; t41097.value.structure_type24753->s1 = t41098; a41751 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41751==NULL) {backtrace("stalin.sc", 19023, 667268); out_of_memory_error();} a41751->s0.tag = STRUCTURE_TYPE24753; a41751->s0.value.structure_type24753 = t41091; a41751->s1 = t41097; /* x301116 stalin.sc:14400:506485 */ /* x301115 stalin.sc:14400:506503 */ t41095 = a41751; /* x301114 stalin.sc:14400:506486 */ t41096.tag = STRUCTURE_TYPE24753; t41096.value.structure_type24753 = t41095; return f13492(t41096); l6077: /* x144681 */ /* x144680 */ /* x144679 */ /* x144678 stalin.sc:19032:667650 */ /* x144677 stalin.sc:19032:667660 */ t41089 = "Tmk"; /* x144676 stalin.sc:19032:667651 */ t41090.tag = STRING_TYPE; t41090.value.string_type = t41089; f18320(t41090); /* x144675 */ /* x144674 stalin.sc:19033:667687 */ /* x144673 stalin.sc:19036:667793 */ /* x144672 stalin.sc:19037:667845 */ /* x144671 stalin.sc:19037:667855 */ /* x144670 stalin.sc:19037:667861 */ t41088 = a26797; /* x144669 stalin.sc:19037:667856 */ t41086 = f14321(t41088); /* x144668 stalin.sc:19037:667846 */ t41087.tag = STRUCTURE_TYPE24753; t41087.value.structure_type24753 = t41086; t41078 = f13544(t41087); /* x144667 stalin.sc:19037:667830 */ /* x144666 stalin.sc:19037:667835 */ /* x144665 stalin.sc:19037:667841 */ t41085 = a26797; /* x144664 stalin.sc:19037:667836 */ t41082 = f14321(t41085); /* x144663 stalin.sc:19037:667831 */ t41083.tag = STRUCTURE_TYPE24753; t41083.value.structure_type24753 = t41082; t41084 = (struct structure_type24753 *)NULL_TYPE; t41077 = f13625(t41083, t41084); /* x144662 stalin.sc:19036:667802 */ t41076 = "Tmk_distribute_hack"; /* x144661 stalin.sc:19036:667794 */ t41079.tag = STRING_TYPE; t41079.value.string_type = t41076; t41081.tag = STRUCTURE_TYPE24753; t41081.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41081.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19036, 667793); out_of_memory_error();} t41081.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41081.value.structure_type24753->s0.value.structure_type24753 = t41078; t41081.value.structure_type24753->s1.tag = NULL_TYPE; t41080 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41080==NULL) {backtrace("stalin.sc", 19036, 667793); out_of_memory_error();} t41080->s0.tag = STRUCTURE_TYPE24753; t41080->s0.value.structure_type24753 = t41077; t41080->s1 = t41081; t41057 = f13645(t41079, t41080); /* x144660 stalin.sc:19034:667708 */ /* x144659 stalin.sc:19035:667764 */ /* x144658 stalin.sc:19035:667774 */ /* x144657 stalin.sc:19035:667784 */ t41074 = a26797; /* x144656 stalin.sc:19035:667775 */ t41075 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41075==NULL) {backtrace("stalin.sc", 19035, 667774); out_of_memory_error();} t41075->s0 = t41074; t41075->s1.tag = NULL_TYPE; t41072 = f14324(t41075); /* x144655 stalin.sc:19035:667765 */ t41073 = *((struct w49 *)(&t41072)); t41063 = f13544(t41073); /* x144654 stalin.sc:19035:667745 */ /* x144653 stalin.sc:19035:667750 */ /* x144652 stalin.sc:19035:667760 */ t41070 = a26797; /* x144651 stalin.sc:19035:667751 */ t41071 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41071==NULL) {backtrace("stalin.sc", 19035, 667750); out_of_memory_error();} t41071->s0 = t41070; t41071->s1.tag = NULL_TYPE; t41067 = f14324(t41071); /* x144650 stalin.sc:19035:667746 */ t41068 = *((struct w49 *)(&t41067)); t41069 = (struct structure_type24753 *)NULL_TYPE; t41062 = f13625(t41068, t41069); /* x144649 stalin.sc:19034:667717 */ t41061 = "Tmk_distribute_hack"; /* x144648 stalin.sc:19034:667709 */ t41064.tag = STRING_TYPE; t41064.value.string_type = t41061; t41066.tag = STRUCTURE_TYPE24753; t41066.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41066.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19034, 667708); out_of_memory_error();} t41066.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41066.value.structure_type24753->s0.value.structure_type24753 = t41063; t41066.value.structure_type24753->s1.tag = NULL_TYPE; t41065 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41065==NULL) {backtrace("stalin.sc", 19034, 667708); out_of_memory_error();} t41065->s0.tag = STRUCTURE_TYPE24753; t41065->s0.value.structure_type24753 = t41062; t41065->s1 = t41066; t41056 = f13645(t41064, t41065); /* x144647 stalin.sc:19033:667688 */ t41060.tag = STRUCTURE_TYPE24753; t41060.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41060.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19033, 667687); out_of_memory_error();} t41060.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41060.value.structure_type24753->s0.value.structure_type24753 = t41057; t41060.value.structure_type24753->s1.tag = NULL_TYPE; a41752 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41752==NULL) {backtrace("stalin.sc", 19033, 667687); out_of_memory_error();} a41752->s0.tag = STRUCTURE_TYPE24753; a41752->s0.value.structure_type24753 = t41056; a41752->s1 = t41060; /* x301120 stalin.sc:14400:506485 */ /* x301119 stalin.sc:14400:506503 */ t41058 = a41752; /* x301118 stalin.sc:14400:506486 */ t41059.tag = STRUCTURE_TYPE24753; t41059.value.structure_type24753 = t41058; return f13492(t41059); l6075: /* x144684 stalin.sc:19038:667870 */ /* x144683 stalin.sc:19038:667871 */ /* x276415 stalin.sc:14693:514793 */ r15642.tag = STRING_TYPE; r15642.value.string_type = ""; return r15642;} /* COMPILE-REGION-DISTRIBUTION[15641] */ struct w49 f15641(void) {struct structure_type24753 *t41158; struct w49 t41159; struct w21193 t41160; struct w36270 t41161; struct w49 t41162; struct structure_type24753 *t41163; /* x144689 stalin.sc:19016:667132 */ /* x144688 stalin.sc:19017:667152 */ /* x144687 stalin.sc:19039:667884 */ t41160 = a1594; /* x144686 stalin.sc:19018:667160 */ /* x144581 stalin.sc:19017:667153 */ t41161.tag = NATIVE_PROCEDURE_TYPE21443; t41162 = *((struct w49 *)(&t41160)); t41163 = (struct structure_type24753 *)NULL_TYPE; t41158 = f27731(t41161, t41162, t41163); /* x144580 stalin.sc:19016:667133 */ /* MOVE: branching squeezed to general */ if (t41158>=((struct structure_type24753 *)VALUE_OFFSET)) {t41159.tag = STRUCTURE_TYPE24753; t41159.value.structure_type24753 = t41158;} else t41159.tag = (unsigned)t41158; return f13492(t41159);} /* [inside COMPILE-REGIONS 15640] */ struct w49 f15640(struct w49 a26796) {struct w49 r15640; struct structure_type24753 *a41767; /* CS */ struct structure_type24753 *a41768; /* CS */ struct structure_type24753 *a41769; /* CS */ struct structure_type24753 *a41770; /* CS */ struct structure_type24753 *a41771; /* CS */ struct structure_type24753 *a41772; /* CS */ struct structure_type24753 *a41773; /* CS */ struct structure_type24753 *a41774; /* CS */ struct structure_type24753 *a41985; /* CS */ struct structure_type24753 *a41986; /* CS */ struct structure_type24753 *a41987; /* CS */ struct structure_type24753 *a41988; /* CS */ struct structure_type24753 *a41989; /* CS */ struct structure_type24753 *a41990; /* CS */ struct structure_type24753 *a41991; /* CS */ struct structure_type24753 *a41992; /* CS */ struct structure_type24753 *a41993; /* CS */ struct structure_type24753 *a41994; /* CS */ struct structure_type24753 *a41995; /* CS */ struct structure_type24753 *a41996; /* CS */ struct structure_type24753 *a41997; /* CS */ struct structure_type24753 *a41998; /* CS */ struct structure_type24753 *a41999; /* CS */ struct structure_type24753 *a42000; /* CS */ struct w49 t41164; struct w49 t41165; struct structure_type24753 *t41166; struct structure_type24753 *t41167; struct structure_type24753 *t41168; struct w49 t41169; struct w49 t41170; struct w49 t41171; struct structure_type24753 *t41172; char *t41173; struct w61020 t41174; struct w49 t41175; struct w49 t41176; char *t41177; struct structure_type24753 *t41178; struct structure_type24753 *t41179; struct w49 t41180; struct w49 t41181; struct w61020 t41182; struct structure_type24753 *t41183; struct w61020 t41184; struct w49 t41185; struct structure_type24753 *t41186; struct w49 t41187; struct w49 t41188; char *t41189; struct w49 t41190; struct structure_type24753 *t41191; struct w49 t41192; struct w49 t41193; struct w49 t41194; struct structure_type24753 *t41195; struct w49 t41196; struct structure_type24753 *t41197; struct w49 t41198; struct structure_type24753 *t41199; struct w49 t41200; struct structure_type24753 *t41201; struct w61020 t41202; struct w49 t41203; struct w49 t41204; struct structure_type24753 *t41205; struct w49 t41206; struct w49 t41207; struct w49 t41208; struct structure_type24753 *t41209; struct w49 t41210; struct structure_type24753 *t41211; struct structure_type24753 *t41212; struct structure_type24753 *t41213; struct w49 t41214; struct structure_type24753 *t41215; struct w49 t41216; struct w49 t41217; struct w49 t41218; struct w49 t41219; struct w49 t41220; struct structure_type24753 *t41221; char *t41222; struct w61020 t41223; struct w49 t41224; struct w49 t41225; struct w49 t41226; struct structure_type24753 *t41227; struct structure_type24753 *t41228; struct w49 t41229; struct w49 t41230; char *t41231; struct w61020 t41232; struct structure_type24753 *t41233; struct w49 t41234; struct w49 t41235; struct w49 t41236; struct structure_type24753 *t41237; struct w49 t41238; struct structure_type24753 *t41239; struct w61020 t41240; struct structure_type24753 *t41241; struct structure_type24753 *t41242; struct w49 t41243; struct w49 t41244; struct w49 t41245; struct w49 t41246; char *t41247; struct w61020 t41248; struct structure_type24753 *t41249; struct structure_type24753 *t41250; struct w49 t41251; struct w49 t41252; struct w49 t41253; struct w49 t41254; struct structure_type24753 *t41255; struct w61020 t41256; struct w49 t41257; struct structure_type24753 *t41258; struct w49 t41259; struct w49 t41260; struct structure_type24753 *t41261; struct w49 t41262; struct w61020 t41263; struct structure_type24753 *t41264; struct w49 t41265; struct w49 t41266; struct structure_type24753 *t41267; struct w49 t41268; char *t41269; struct structure_type24753 *t41270; struct structure_type24753 *t41271; struct w49 t41272; struct w49 t41273; char *t41274; char *t41275; struct w61020 t41276; struct w61020 t41277; struct w49 t41278; char *t41279; struct w49 t41280; struct structure_type24753 *t41281; struct w49 t41282; struct w49 t41283; struct structure_type24753 *t41284; struct structure_type24753 *t41285; struct structure_type24753 *t41286; struct w49 t41287; struct w49 t41288; struct w49 t41289; struct structure_type24753 *t41290; struct w61020 t41291; struct structure_type24753 *t41292; struct structure_type24753 *t41293; struct w49 t41294; struct w49 t41295; struct w49 t41296; struct w49 t41297; char *t41298; struct w61020 t41299; struct structure_type24753 *t41300; struct structure_type24753 *t41301; struct w49 t41302; struct w49 t41303; struct w49 t41304; struct w49 t41305; struct structure_type24753 *t41306; struct w61020 t41307; struct w49 t41308; struct structure_type24753 *t41309; struct w49 t41310; struct w49 t41311; struct structure_type24753 *t41312; struct w49 t41313; struct w61020 t41314; struct structure_type24753 *t41315; struct w49 t41316; struct w49 t41317; struct structure_type24753 *t41318; struct w49 t41319; char *t41320; struct structure_type24753 *t41321; struct structure_type24753 *t41322; struct w49 t41323; struct w49 t41324; char *t41325; struct structure_type24753 *t41326; struct w61020 t41327; struct w61020 t41328; struct w49 t41329; struct w49 t41330; struct w49 t41331; char *t41332; struct w61020 t41333; struct w49 t41334; struct structure_type24753 *t41335; struct w49 t41336; struct w49 t41337; struct w49 t41338; struct w49 t41339; struct structure_type24753 *t41340; struct structure_type24753 *t41341; struct w49 t41342; struct structure_type24753 *t41343; struct structure_type24753 *t41344; struct w49 t41345; struct w49 t41346; struct w61020 t41347; struct w49 t41348; struct w49 t41349; struct structure_type24753 *t41350; struct w49 t41351; struct structure_type24753 *t41352; struct w49 t41353; char *t41354; struct w61020 t41355; char *t41356; struct structure_type24753 *t41357; struct w49 t41358; struct w49 t41359; struct w49 t41360; struct w49 t41361; struct structure_type24753 *t41362; struct structure_type24753 *t41363; struct w49 t41364; struct structure_type24753 *t41365; struct w49 t41366; struct w49 t41367; struct structure_type24753 *t41368; struct structure_type24753 *t41369; struct structure_type24753 *t41370; struct w49 t41371; struct w49 t41372; struct w49 t41373; struct w49 t41374; struct w61020 t41375; struct structure_type24753 *t41376; struct w49 t41377; struct w49 t41378; struct w49 t41379; struct structure_type24753 *t41380; struct w49 t41381; char *t41382; struct structure_type24753 *t41383; struct structure_type24753 *t41384; struct w49 t41385; struct w49 t41386; struct structure_type24753 *t41387; struct w49 t41388; struct w49 t41389; struct structure_type24753 *t41390; struct structure_type24753 *t41391; struct structure_type24753 *t41392; struct w49 t41393; struct w49 t41394; struct w49 t41395; struct w49 t41396; struct w49 t41397; struct structure_type24753 *t41398; struct w49 t41399; struct w49 t41400; struct structure_type24753 *t41401; struct w49 t41402; struct w61020 t41403; struct structure_type24753 *t41404; struct w49 t41405; struct w49 t41406; struct w49 t41407; struct structure_type24753 *t41408; struct w49 t41409; struct w49 t41410; char *t41411; struct w49 t41412; struct structure_type24753 *t41413; struct w49 t41414; struct w49 t41415; struct structure_type24753 *t41416; struct w49 t41417; struct structure_type24753 *t41418; struct structure_type24753 *t41419; struct w49 t41420; struct w49 t41421; struct structure_type24753 *t41422; struct w49 t41423; struct w49 t41424; struct structure_type24753 *t41425; struct w49 t41426; struct structure_type24753 *t41427; struct structure_type24753 *t41428; char *t41429; struct w49 t41430; struct w49 t41431; struct structure_type24753 *t41432; char *t41433; struct w49 t41434; struct w61020 t41435; struct w49 t41436; /* x144573 stalin.sc:18933:664586 */ /* x144307 stalin.sc:18933:664590 */ /* x144306 stalin.sc:18933:664603 */ t41164 = a26796; /* x144305 stalin.sc:18933:664591 */ if (f8528(t41164)==FALSE_TYPE) goto l6079; /* x144570 stalin.sc:18934:664607 */ /* x144308 stalin.sc:18934:664611 */ if (a690==FALSE_TYPE) goto l6081; /* x144520 stalin.sc:18935:664638 */ /* x144519 stalin.sc:18978:665916 */ /* x144452 stalin.sc:18978:665920 */ /* x144451 stalin.sc:18978:665932 */ t41367 = a26796; /* x144450 stalin.sc:18978:665921 */ if (f8543(t41367)==FALSE_TYPE) goto l6092; /* x144497 stalin.sc:18979:665938 */ /* x144496 stalin.sc:18987:666223 */ /* x144495 stalin.sc:18988:666245 */ /* x144494 stalin.sc:18990:666281 */ /* x144493 stalin.sc:18991:666304 */ /* x144479 stalin.sc:18991:666309 */ /* x144478 stalin.sc:18991:666322 */ /* x144477 stalin.sc:18991:666328 */ t41424 = a26796; /* x144476 stalin.sc:18991:666323 */ t41422 = f14321(t41424); /* x144475 stalin.sc:18991:666310 */ t41423.tag = STRUCTURE_TYPE24753; t41423.value.structure_type24753 = t41422; t41418 = f13516(t41423); /* x144492 stalin.sc:18992:666337 */ /* x144491 stalin.sc:18992:666342 */ /* x144488 stalin.sc:18993:666359 */ /* x144485 stalin.sc:18993:666364 */ /* x144484 stalin.sc:18993:666382 */ t41436 = a26796; /* x144483 stalin.sc:18993:666365 */ t41432 = f14332(t41436); /* x144487 stalin.sc:18993:666385 */ /* x144486 stalin.sc:18993:666386 */ /* x276381 stalin.sc:16070:560270 */ t41433 = "data"; /* x144482 stalin.sc:18993:666360 */ t41434.tag = STRUCTURE_TYPE24753; t41434.value.structure_type24753 = t41432; t41435.tag = STRING_TYPE; t41435.value.string_type = t41433; t41428 = f13585(t41434, t41435); /* x144490 stalin.sc:18994:666399 */ /* x144489 stalin.sc:18994:666400 */ /* x122966 stalin.sc:14555:511005 */ t41429 = "0"; /* x144481 stalin.sc:18992:666343 */ t41430.tag = STRUCTURE_TYPE24753; t41430.value.structure_type24753 = t41428; t41431.tag = STRING_TYPE; t41431.value.string_type = t41429; t41425 = f13540(t41430, t41431); /* x144480 stalin.sc:18992:666338 */ t41426.tag = STRUCTURE_TYPE24753; t41426.value.structure_type24753 = t41425; t41427 = (struct structure_type24753 *)NULL_TYPE; t41419 = f13625(t41426, t41427); /* x144474 stalin.sc:18991:666305 */ t41420.tag = STRUCTURE_TYPE24753; t41420.value.structure_type24753 = t41418; t41421.tag = STRUCTURE_TYPE24753; t41421.value.structure_type24753 = t41419; t41416 = f13542(t41420, t41421); /* x144473 stalin.sc:18990:666282 */ t41417.tag = STRUCTURE_TYPE24753; t41417.value.structure_type24753 = t41416; t41412 = f13508(t41417); /* x144472 stalin.sc:18989:666266 */ /* x144471 stalin.sc:18989:666267 */ /* x276397 stalin.sc:14947:523180 */ t41411 = "char"; /* x144470 stalin.sc:18988:666246 */ t41415.tag = STRUCTURE_TYPE24753; t41415.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41415.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18988, 666245); out_of_memory_error();} t41415.value.structure_type24753->s0 = t41412; t41415.value.structure_type24753->s1.tag = NULL_TYPE; a41996 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41996==NULL) {backtrace("stalin.sc", 18988, 666245); out_of_memory_error();} a41996->s0.tag = STRING_TYPE; a41996->s0.value.string_type = t41411; a41996->s1 = t41415; /* x302096 stalin.sc:14386:505956 */ /* x302095 stalin.sc:14386:505972 */ t41413 = a41996; /* x302094 stalin.sc:14386:505957 */ t41414.tag = STRUCTURE_TYPE24753; t41414.value.structure_type24753 = t41413; t41410 = f13474(t41414); /* x144469 stalin.sc:18987:666224 */ t41391 = f13514(t41410); /* x144468 stalin.sc:18981:666024 */ /* x144467 stalin.sc:18982:666046 */ /* x144466 stalin.sc:18984:666082 */ /* x144465 stalin.sc:18985:666105 */ /* x144461 stalin.sc:18985:666110 */ /* x144460 stalin.sc:18985:666125 */ t41407 = a26796; /* x144459 stalin.sc:18985:666111 */ t41408 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41408==NULL) {backtrace("stalin.sc", 18985, 666110); out_of_memory_error();} t41408->s0 = t41407; t41408->s1.tag = NULL_TYPE; t41403 = f14328(t41408); /* x144464 stalin.sc:18985:666128 */ /* x144463 stalin.sc:18985:666147 */ t41409 = a26796; /* x144462 stalin.sc:18985:666129 */ t41404 = f14333(t41409); /* x144458 stalin.sc:18985:666106 */ t41405 = *((struct w49 *)(&t41403)); t41406.tag = STRUCTURE_TYPE24753; t41406.value.structure_type24753 = t41404; t41401 = f13542(t41405, t41406); /* x144457 stalin.sc:18984:666083 */ t41402.tag = STRUCTURE_TYPE24753; t41402.value.structure_type24753 = t41401; t41397 = f13508(t41402); /* x144456 stalin.sc:18983:666067 */ t41396 = a1249; /* x144455 stalin.sc:18982:666047 */ t41400.tag = STRUCTURE_TYPE24753; t41400.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41400.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18982, 666046); out_of_memory_error();} t41400.value.structure_type24753->s0 = t41397; t41400.value.structure_type24753->s1.tag = NULL_TYPE; a41995 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41995==NULL) {backtrace("stalin.sc", 18982, 666046); out_of_memory_error();} a41995->s0 = t41396; a41995->s1 = t41400; /* x302092 stalin.sc:14386:505956 */ /* x302091 stalin.sc:14386:505972 */ t41398 = a41995; /* x302090 stalin.sc:14386:505957 */ t41399.tag = STRUCTURE_TYPE24753; t41399.value.structure_type24753 = t41398; t41395 = f13474(t41399); /* x144454 stalin.sc:18981:666025 */ t41390 = f13514(t41395); /* x144453 stalin.sc:18979:665939 */ t41394.tag = STRUCTURE_TYPE24753; t41394.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41394.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18979, 665938); out_of_memory_error();} t41394.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41394.value.structure_type24753->s0.value.structure_type24753 = t41391; t41394.value.structure_type24753->s1.tag = NULL_TYPE; a41772 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41772==NULL) {backtrace("stalin.sc", 18979, 665938); out_of_memory_error();} a41772->s0.tag = STRUCTURE_TYPE24753; a41772->s0.value.structure_type24753 = t41390; a41772->s1 = t41394; /* x301200 stalin.sc:14400:506485 */ /* x301199 stalin.sc:14400:506503 */ t41392 = a41772; /* x301198 stalin.sc:14400:506486 */ t41393.tag = STRUCTURE_TYPE24753; t41393.value.structure_type24753 = t41392; t41214 = f13492(t41393); goto l6093; l6092: /* x144518 stalin.sc:18995:666415 */ /* x144517 stalin.sc:18997:666501 */ /* x144516 stalin.sc:18998:666523 */ /* x144515 stalin.sc:18998:666547 */ /* x144514 stalin.sc:18998:666560 */ /* x144513 stalin.sc:18998:666566 */ t41389 = a26796; /* x144512 stalin.sc:18998:666561 */ t41387 = f14321(t41389); /* x144511 stalin.sc:18998:666548 */ t41388.tag = STRUCTURE_TYPE24753; t41388.value.structure_type24753 = t41387; t41383 = f13516(t41388); /* x144510 stalin.sc:18998:666538 */ /* x144509 stalin.sc:18998:666539 */ /* x276399 stalin.sc:14947:523180 */ t41382 = "char"; /* x144508 stalin.sc:18998:666524 */ t41386.tag = STRUCTURE_TYPE24753; t41386.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41386.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18998, 666523); out_of_memory_error();} t41386.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41386.value.structure_type24753->s0.value.structure_type24753 = t41383; t41386.value.structure_type24753->s1.tag = NULL_TYPE; a41998 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41998==NULL) {backtrace("stalin.sc", 18998, 666523); out_of_memory_error();} a41998->s0.tag = STRING_TYPE; a41998->s0.value.string_type = t41382; a41998->s1 = t41386; /* x302104 stalin.sc:14386:505956 */ /* x302103 stalin.sc:14386:505972 */ t41384 = a41998; /* x302102 stalin.sc:14386:505957 */ t41385.tag = STRUCTURE_TYPE24753; t41385.value.structure_type24753 = t41384; t41381 = f13474(t41385); /* x144507 stalin.sc:18997:666502 */ t41369 = f13514(t41381); /* x144506 stalin.sc:18996:666436 */ /* x144505 stalin.sc:18996:666453 */ /* x144504 stalin.sc:18996:666477 */ /* x144503 stalin.sc:18996:666492 */ t41379 = a26796; /* x144502 stalin.sc:18996:666478 */ t41380 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41380==NULL) {backtrace("stalin.sc", 18996, 666477); out_of_memory_error();} t41380->s0 = t41379; t41380->s1.tag = NULL_TYPE; t41375 = f14328(t41380); /* x144501 stalin.sc:18996:666468 */ t41374 = a1249; /* x144500 stalin.sc:18996:666454 */ t41378.tag = STRUCTURE_TYPE24753; t41378.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41378.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18996, 666453); out_of_memory_error();} t41378.value.structure_type24753->s0 = *((struct w49 *)(&t41375)); t41378.value.structure_type24753->s1.tag = NULL_TYPE; a41997 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41997==NULL) {backtrace("stalin.sc", 18996, 666453); out_of_memory_error();} a41997->s0 = t41374; a41997->s1 = t41378; /* x302100 stalin.sc:14386:505956 */ /* x302099 stalin.sc:14386:505972 */ t41376 = a41997; /* x302098 stalin.sc:14386:505957 */ t41377.tag = STRUCTURE_TYPE24753; t41377.value.structure_type24753 = t41376; t41373 = f13474(t41377); /* x144499 stalin.sc:18996:666437 */ t41368 = f13514(t41373); /* x144498 stalin.sc:18995:666416 */ t41372.tag = STRUCTURE_TYPE24753; t41372.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41372.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18995, 666415); out_of_memory_error();} t41372.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41372.value.structure_type24753->s0.value.structure_type24753 = t41369; t41372.value.structure_type24753->s1.tag = NULL_TYPE; a41773 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41773==NULL) {backtrace("stalin.sc", 18995, 666415); out_of_memory_error();} a41773->s0.tag = STRUCTURE_TYPE24753; a41773->s0.value.structure_type24753 = t41368; a41773->s1 = t41372; /* x301204 stalin.sc:14400:506485 */ /* x301203 stalin.sc:14400:506503 */ t41370 = a41773; /* x301202 stalin.sc:14400:506486 */ t41371.tag = STRUCTURE_TYPE24753; t41371.value.structure_type24753 = t41370; t41214 = f13492(t41371); l6093: /* x144449 stalin.sc:18970:665678 */ /* x144448 stalin.sc:18971:665702 */ /* x144447 stalin.sc:18974:665763 */ /* x144446 stalin.sc:18975:665781 */ /* x144431 stalin.sc:18975:665786 */ /* x144430 stalin.sc:18975:665799 */ /* x144429 stalin.sc:18975:665809 */ t41349 = a26796; /* x144428 stalin.sc:18975:665800 */ t41350 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41350==NULL) {backtrace("stalin.sc", 18975, 665799); out_of_memory_error();} t41350->s0 = t41349; t41350->s1.tag = NULL_TYPE; t41347 = f14324(t41350); /* x144427 stalin.sc:18975:665787 */ t41348 = *((struct w49 *)(&t41347)); t41343 = f13516(t41348); /* x144445 stalin.sc:18976:665820 */ /* x144439 stalin.sc:18976:665828 */ /* x144438 stalin.sc:18976:665865 */ t41356 = "*"; /* x144437 stalin.sc:18976:665852 */ /* x144436 stalin.sc:18976:665862 */ t41361 = a26796; /* x144435 stalin.sc:18976:665853 */ t41362 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41362==NULL) {backtrace("stalin.sc", 18976, 665852); out_of_memory_error();} t41362->s0 = t41361; t41362->s1.tag = NULL_TYPE; t41355 = f14324(t41362); /* x144434 stalin.sc:18976:665843 */ t41354 = "struct"; /* x144433 stalin.sc:18976:665829 */ t41360.tag = STRUCTURE_TYPE24753; t41360.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41360.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18976, 665828); out_of_memory_error();} t41360.value.structure_type24753->s0.tag = STRING_TYPE; t41360.value.structure_type24753->s0.value.string_type = t41356; t41360.value.structure_type24753->s1.tag = NULL_TYPE; t41359.tag = STRUCTURE_TYPE24753; t41359.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41359.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18976, 665828); out_of_memory_error();} t41359.value.structure_type24753->s0 = *((struct w49 *)(&t41355)); t41359.value.structure_type24753->s1 = t41360; a41994 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41994==NULL) {backtrace("stalin.sc", 18976, 665828); out_of_memory_error();} a41994->s0.tag = STRING_TYPE; a41994->s0.value.string_type = t41354; a41994->s1 = t41359; /* x302088 stalin.sc:14386:505956 */ /* x302087 stalin.sc:14386:505972 */ t41357 = a41994; /* x302086 stalin.sc:14386:505957 */ t41358.tag = STRUCTURE_TYPE24753; t41358.value.structure_type24753 = t41357; t41351 = f13474(t41358); /* x144444 stalin.sc:18977:665878 */ /* x144443 stalin.sc:18977:665883 */ /* x144442 stalin.sc:18977:665901 */ t41366 = a26796; /* x144441 stalin.sc:18977:665884 */ t41363 = f14332(t41366); /* x144440 stalin.sc:18977:665879 */ t41364.tag = STRUCTURE_TYPE24753; t41364.value.structure_type24753 = t41363; t41365 = (struct structure_type24753 *)NULL_TYPE; t41352 = f13625(t41364, t41365); /* x144432 stalin.sc:18976:665821 */ t41353.tag = STRUCTURE_TYPE24753; t41353.value.structure_type24753 = t41352; t41344 = f13547(t41351, t41353); /* x144426 stalin.sc:18975:665782 */ t41345.tag = STRUCTURE_TYPE24753; t41345.value.structure_type24753 = t41343; t41346.tag = STRUCTURE_TYPE24753; t41346.value.structure_type24753 = t41344; t41341 = f13542(t41345, t41346); /* x144425 stalin.sc:18974:665764 */ t41342.tag = STRUCTURE_TYPE24753; t41342.value.structure_type24753 = t41341; t41334 = f13508(t41342); /* x144424 stalin.sc:18973:665742 */ /* x144423 stalin.sc:18973:665752 */ t41339 = a26796; /* x144422 stalin.sc:18973:665743 */ t41340 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41340==NULL) {backtrace("stalin.sc", 18973, 665742); out_of_memory_error();} t41340->s0 = t41339; t41340->s1.tag = NULL_TYPE; t41333 = f14324(t41340); /* x144421 stalin.sc:18972:665725 */ t41332 = "struct"; /* x144420 stalin.sc:18971:665703 */ t41338.tag = STRUCTURE_TYPE24753; t41338.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41338.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18971, 665702); out_of_memory_error();} t41338.value.structure_type24753->s0 = t41334; t41338.value.structure_type24753->s1.tag = NULL_TYPE; t41337.tag = STRUCTURE_TYPE24753; t41337.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41337.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18971, 665702); out_of_memory_error();} t41337.value.structure_type24753->s0 = *((struct w49 *)(&t41333)); t41337.value.structure_type24753->s1 = t41338; a41993 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41993==NULL) {backtrace("stalin.sc", 18971, 665702); out_of_memory_error();} a41993->s0.tag = STRING_TYPE; a41993->s0.value.string_type = t41332; a41993->s1 = t41337; /* x302084 stalin.sc:14386:505956 */ /* x302083 stalin.sc:14386:505972 */ t41335 = a41993; /* x302082 stalin.sc:14386:505957 */ t41336.tag = STRUCTURE_TYPE24753; t41336.value.structure_type24753 = t41335; t41331 = f13474(t41336); /* x144419 stalin.sc:18970:665679 */ t41213 = f13514(t41331); /* x144418 stalin.sc:18951:665133 */ /* x144417 stalin.sc:18952:665157 */ /* x144416 stalin.sc:18954:665199 */ /* x144415 stalin.sc:18968:665581 */ /* x144414 stalin.sc:18968:665599 */ t41330 = a26796; /* x144413 stalin.sc:18968:665582 */ t41285 = f14332(t41330); /* x144412 stalin.sc:18955:665216 */ /* x144411 stalin.sc:18956:665234 */ /* x144410 stalin.sc:18964:665468 */ /* x144409 stalin.sc:18965:665490 */ /* x144408 stalin.sc:18967:665526 */ /* x144404 stalin.sc:18967:665543 */ /* x144403 stalin.sc:18967:665544 */ /* x276379 stalin.sc:16070:560270 */ t41325 = "data"; /* x144407 stalin.sc:18967:665552 */ /* x144406 stalin.sc:18967:665571 */ t41329 = a26796; /* x144405 stalin.sc:18967:665553 */ t41326 = f14333(t41329); /* x144402 stalin.sc:18967:665527 */ t41327.tag = STRING_TYPE; t41327.value.string_type = t41325; t41328.tag = STRUCTURE_TYPE24753; t41328.value.structure_type24753 = t41326; t41321 = f13541(t41327, t41328); /* x144401 stalin.sc:18966:665511 */ /* x144400 stalin.sc:18966:665512 */ /* x276395 stalin.sc:14947:523180 */ t41320 = "char"; /* x144399 stalin.sc:18965:665491 */ t41324.tag = STRUCTURE_TYPE24753; t41324.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41324.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18965, 665490); out_of_memory_error();} t41324.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41324.value.structure_type24753->s0.value.structure_type24753 = t41321; t41324.value.structure_type24753->s1.tag = NULL_TYPE; a41992 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41992==NULL) {backtrace("stalin.sc", 18965, 665490); out_of_memory_error();} a41992->s0.tag = STRING_TYPE; a41992->s0.value.string_type = t41320; a41992->s1 = t41324; /* x302080 stalin.sc:14386:505956 */ /* x302079 stalin.sc:14386:505972 */ t41322 = a41992; /* x302078 stalin.sc:14386:505957 */ t41323.tag = STRUCTURE_TYPE24753; t41323.value.structure_type24753 = t41322; t41319 = f13474(t41323); /* x144398 stalin.sc:18964:665469 */ t41292 = f13514(t41319); /* x144397 stalin.sc:18960:665351 */ /* x144387 stalin.sc:18960:665355 */ /* x144386 stalin.sc:18960:665367 */ t41310 = a26796; /* x144385 stalin.sc:18960:665356 */ if (f8543(t41310)==FALSE_TYPE) goto l6089; /* x144394 stalin.sc:18961:665378 */ /* x144393 stalin.sc:18962:665404 */ /* x144392 stalin.sc:18962:665428 */ /* x144391 stalin.sc:18962:665429 */ t41318 = (struct structure_type24753 *)NULL_TYPE; t41314 = f14328(t41318); /* x144390 stalin.sc:18962:665419 */ t41313 = a1249; /* x144389 stalin.sc:18962:665405 */ t41317.tag = STRUCTURE_TYPE24753; t41317.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41317.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18962, 665404); out_of_memory_error();} t41317.value.structure_type24753->s0 = *((struct w49 *)(&t41314)); t41317.value.structure_type24753->s1.tag = NULL_TYPE; a41991 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41991==NULL) {backtrace("stalin.sc", 18962, 665404); out_of_memory_error();} a41991->s0 = t41313; a41991->s1 = t41317; /* x302076 stalin.sc:14386:505956 */ /* x302075 stalin.sc:14386:505972 */ t41315 = a41991; /* x302074 stalin.sc:14386:505957 */ t41316.tag = STRUCTURE_TYPE24753; t41316.value.structure_type24753 = t41315; t41311 = f13474(t41316); /* x144388 stalin.sc:18961:665379 */ t41312 = f13514(t41311); t41291.tag = STRUCTURE_TYPE24753; t41291.value.structure_type24753 = t41312; goto l6090; l6089: /* x144396 stalin.sc:18963:665454 */ /* x144395 stalin.sc:18963:665455 */ /* x276451 stalin.sc:14693:514793 */ t41291.tag = STRING_TYPE; t41291.value.string_type = ""; l6090: /* x144384 stalin.sc:18957:665255 */ /* x144383 stalin.sc:18958:665277 */ /* x144382 stalin.sc:18959:665320 */ /* x144381 stalin.sc:18959:665333 */ /* x144380 stalin.sc:18959:665334 */ t41309 = (struct structure_type24753 *)NULL_TYPE; t41307 = f14324(t41309); /* x144379 stalin.sc:18959:665321 */ t41308 = *((struct w49 *)(&t41307)); t41300 = f13516(t41308); /* x144378 stalin.sc:18959:665307 */ /* x144377 stalin.sc:18959:665317 */ t41305 = a26796; /* x144376 stalin.sc:18959:665308 */ t41306 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41306==NULL) {backtrace("stalin.sc", 18959, 665307); out_of_memory_error();} t41306->s0 = t41305; t41306->s1.tag = NULL_TYPE; t41299 = f14324(t41306); /* x144375 stalin.sc:18959:665298 */ t41298 = "struct"; /* x144374 stalin.sc:18958:665278 */ t41304.tag = STRUCTURE_TYPE24753; t41304.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41304.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18958, 665277); out_of_memory_error();} t41304.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41304.value.structure_type24753->s0.value.structure_type24753 = t41300; t41304.value.structure_type24753->s1.tag = NULL_TYPE; t41303.tag = STRUCTURE_TYPE24753; t41303.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41303.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18958, 665277); out_of_memory_error();} t41303.value.structure_type24753->s0 = *((struct w49 *)(&t41299)); t41303.value.structure_type24753->s1 = t41304; a41990 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41990==NULL) {backtrace("stalin.sc", 18958, 665277); out_of_memory_error();} a41990->s0.tag = STRING_TYPE; a41990->s0.value.string_type = t41298; a41990->s1 = t41303; /* x302072 stalin.sc:14386:505956 */ /* x302071 stalin.sc:14386:505972 */ t41301 = a41990; /* x302070 stalin.sc:14386:505957 */ t41302.tag = STRUCTURE_TYPE24753; t41302.value.structure_type24753 = t41301; t41297 = f13474(t41302); /* x144373 stalin.sc:18957:665256 */ t41290 = f13514(t41297); /* x144372 stalin.sc:18956:665235 */ t41296.tag = STRUCTURE_TYPE24753; t41296.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41296.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18956, 665234); out_of_memory_error();} t41296.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41296.value.structure_type24753->s0.value.structure_type24753 = t41292; t41296.value.structure_type24753->s1.tag = NULL_TYPE; t41295.tag = STRUCTURE_TYPE24753; t41295.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41295.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18956, 665234); out_of_memory_error();} t41295.value.structure_type24753->s0 = *((struct w49 *)(&t41291)); t41295.value.structure_type24753->s1 = t41296; a41771 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41771==NULL) {backtrace("stalin.sc", 18956, 665234); out_of_memory_error();} a41771->s0.tag = STRUCTURE_TYPE24753; a41771->s0.value.structure_type24753 = t41290; a41771->s1 = t41295; /* x301196 stalin.sc:14400:506485 */ /* x301195 stalin.sc:14400:506503 */ t41293 = a41771; /* x301194 stalin.sc:14400:506486 */ t41294.tag = STRUCTURE_TYPE24753; t41294.value.structure_type24753 = t41293; t41289 = f13492(t41294); /* x144371 stalin.sc:18955:665217 */ t41284 = f13501(t41289); /* x144370 stalin.sc:18954:665200 */ t41288.tag = STRUCTURE_TYPE24753; t41288.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41288.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18954, 665199); out_of_memory_error();} t41288.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41288.value.structure_type24753->s0.value.structure_type24753 = t41285; t41288.value.structure_type24753->s1.tag = NULL_TYPE; a41989 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41989==NULL) {backtrace("stalin.sc", 18954, 665199); out_of_memory_error();} a41989->s0.tag = STRUCTURE_TYPE24753; a41989->s0.value.structure_type24753 = t41284; a41989->s1 = t41288; /* x302068 stalin.sc:14386:505956 */ /* x302067 stalin.sc:14386:505972 */ t41286 = a41989; /* x302066 stalin.sc:14386:505957 */ t41287.tag = STRUCTURE_TYPE24753; t41287.value.structure_type24753 = t41286; t41280 = f13474(t41287); /* x144369 stalin.sc:18953:665182 */ t41279 = "struct"; /* x144368 stalin.sc:18952:665158 */ t41283.tag = STRUCTURE_TYPE24753; t41283.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41283.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18952, 665157); out_of_memory_error();} t41283.value.structure_type24753->s0 = t41280; t41283.value.structure_type24753->s1.tag = NULL_TYPE; a41770 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41770==NULL) {backtrace("stalin.sc", 18952, 665157); out_of_memory_error();} a41770->s0.tag = STRING_TYPE; a41770->s0.value.string_type = t41279; a41770->s1 = t41283; /* x301192 stalin.sc:14400:506485 */ /* x301191 stalin.sc:14400:506503 */ t41281 = a41770; /* x301190 stalin.sc:14400:506486 */ t41282.tag = STRUCTURE_TYPE24753; t41282.value.structure_type24753 = t41281; t41278 = f13492(t41282); /* x144367 stalin.sc:18951:665134 */ t41212 = f13514(t41278); /* x144366 stalin.sc:18937:664708 */ /* x144365 stalin.sc:18938:664732 */ /* x144364 stalin.sc:18940:664803 */ /* x144363 stalin.sc:18941:664820 */ /* x144362 stalin.sc:18948:665038 */ /* x144361 stalin.sc:18949:665059 */ /* x144360 stalin.sc:18950:665088 */ /* x144357 stalin.sc:18950:665105 */ /* x144356 stalin.sc:18950:665106 */ /* x129238 stalin.sc:16070:560270 */ t41274 = "data"; /* x144359 stalin.sc:18950:665114 */ /* x144358 stalin.sc:18950:665115 */ /* x122972 stalin.sc:14561:511199 */ t41275 = "1"; /* x144355 stalin.sc:18950:665089 */ t41276.tag = STRING_TYPE; t41276.value.string_type = t41274; t41277.tag = STRING_TYPE; t41277.value.string_type = t41275; t41270 = f13541(t41276, t41277); /* x144354 stalin.sc:18949:665074 */ /* x144353 stalin.sc:18949:665075 */ /* x276393 stalin.sc:14947:523180 */ t41269 = "char"; /* x144352 stalin.sc:18949:665060 */ t41273.tag = STRUCTURE_TYPE24753; t41273.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41273.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18949, 665059); out_of_memory_error();} t41273.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41273.value.structure_type24753->s0.value.structure_type24753 = t41270; t41273.value.structure_type24753->s1.tag = NULL_TYPE; a41988 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41988==NULL) {backtrace("stalin.sc", 18949, 665059); out_of_memory_error();} a41988->s0.tag = STRING_TYPE; a41988->s0.value.string_type = t41269; a41988->s1 = t41273; /* x302064 stalin.sc:14386:505956 */ /* x302063 stalin.sc:14386:505972 */ t41271 = a41988; /* x302062 stalin.sc:14386:505957 */ t41272.tag = STRUCTURE_TYPE24753; t41272.value.structure_type24753 = t41271; t41268 = f13474(t41272); /* x144351 stalin.sc:18948:665039 */ t41241 = f13514(t41268); /* x144350 stalin.sc:18945:664933 */ /* x144340 stalin.sc:18945:664937 */ /* x144339 stalin.sc:18945:664949 */ t41259 = a26796; /* x144338 stalin.sc:18945:664938 */ if (f8543(t41259)==FALSE_TYPE) goto l6086; /* x144347 stalin.sc:18946:664959 */ /* x144346 stalin.sc:18946:664976 */ /* x144345 stalin.sc:18946:665000 */ /* x144344 stalin.sc:18946:665001 */ t41267 = (struct structure_type24753 *)NULL_TYPE; t41263 = f14328(t41267); /* x144343 stalin.sc:18946:664991 */ t41262 = a1249; /* x144342 stalin.sc:18946:664977 */ t41266.tag = STRUCTURE_TYPE24753; t41266.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41266.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18946, 664976); out_of_memory_error();} t41266.value.structure_type24753->s0 = *((struct w49 *)(&t41263)); t41266.value.structure_type24753->s1.tag = NULL_TYPE; a41987 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41987==NULL) {backtrace("stalin.sc", 18946, 664976); out_of_memory_error();} a41987->s0 = t41262; a41987->s1 = t41266; /* x302060 stalin.sc:14386:505956 */ /* x302059 stalin.sc:14386:505972 */ t41264 = a41987; /* x302058 stalin.sc:14386:505957 */ t41265.tag = STRUCTURE_TYPE24753; t41265.value.structure_type24753 = t41264; t41260 = f13474(t41265); /* x144341 stalin.sc:18946:664960 */ t41261 = f13514(t41260); t41240.tag = STRUCTURE_TYPE24753; t41240.value.structure_type24753 = t41261; goto l6087; l6086: /* x144349 stalin.sc:18947:665025 */ /* x144348 stalin.sc:18947:665026 */ /* x276449 stalin.sc:14693:514793 */ t41240.tag = STRING_TYPE; t41240.value.string_type = ""; l6087: /* x144337 stalin.sc:18942:664840 */ /* x144336 stalin.sc:18943:664861 */ /* x144335 stalin.sc:18944:664903 */ /* x144334 stalin.sc:18944:664916 */ /* x144333 stalin.sc:18944:664917 */ t41258 = (struct structure_type24753 *)NULL_TYPE; t41256 = f14324(t41258); /* x144332 stalin.sc:18944:664904 */ t41257 = *((struct w49 *)(&t41256)); t41249 = f13516(t41257); /* x144331 stalin.sc:18944:664890 */ /* x144330 stalin.sc:18944:664900 */ t41254 = a26796; /* x144329 stalin.sc:18944:664891 */ t41255 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41255==NULL) {backtrace("stalin.sc", 18944, 664890); out_of_memory_error();} t41255->s0 = t41254; t41255->s1.tag = NULL_TYPE; t41248 = f14324(t41255); /* x144328 stalin.sc:18944:664881 */ t41247 = "struct"; /* x144327 stalin.sc:18943:664862 */ t41253.tag = STRUCTURE_TYPE24753; t41253.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41253.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18943, 664861); out_of_memory_error();} t41253.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41253.value.structure_type24753->s0.value.structure_type24753 = t41249; t41253.value.structure_type24753->s1.tag = NULL_TYPE; t41252.tag = STRUCTURE_TYPE24753; t41252.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41252.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18943, 664861); out_of_memory_error();} t41252.value.structure_type24753->s0 = *((struct w49 *)(&t41248)); t41252.value.structure_type24753->s1 = t41253; a41986 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41986==NULL) {backtrace("stalin.sc", 18943, 664861); out_of_memory_error();} a41986->s0.tag = STRING_TYPE; a41986->s0.value.string_type = t41247; a41986->s1 = t41252; /* x302056 stalin.sc:14386:505956 */ /* x302055 stalin.sc:14386:505972 */ t41250 = a41986; /* x302054 stalin.sc:14386:505957 */ t41251.tag = STRUCTURE_TYPE24753; t41251.value.structure_type24753 = t41250; t41246 = f13474(t41251); /* x144326 stalin.sc:18942:664841 */ t41239 = f13514(t41246); /* x144325 stalin.sc:18941:664821 */ t41245.tag = STRUCTURE_TYPE24753; t41245.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41245.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18941, 664820); out_of_memory_error();} t41245.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41245.value.structure_type24753->s0.value.structure_type24753 = t41241; t41245.value.structure_type24753->s1.tag = NULL_TYPE; t41244.tag = STRUCTURE_TYPE24753; t41244.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41244.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18941, 664820); out_of_memory_error();} t41244.value.structure_type24753->s0 = *((struct w49 *)(&t41240)); t41244.value.structure_type24753->s1 = t41245; a41769 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41769==NULL) {backtrace("stalin.sc", 18941, 664820); out_of_memory_error();} a41769->s0.tag = STRUCTURE_TYPE24753; a41769->s0.value.structure_type24753 = t41239; a41769->s1 = t41244; /* x301188 stalin.sc:14400:506485 */ /* x301187 stalin.sc:14400:506503 */ t41242 = a41769; /* x301186 stalin.sc:14400:506486 */ t41243.tag = STRUCTURE_TYPE24753; t41243.value.structure_type24753 = t41242; t41238 = f13492(t41243); /* x144324 stalin.sc:18940:664804 */ t41227 = f13501(t41238); /* x144323 stalin.sc:18939:664757 */ /* x144322 stalin.sc:18939:664781 */ /* x144321 stalin.sc:18939:664791 */ t41236 = a26796; /* x144320 stalin.sc:18939:664782 */ t41237 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41237==NULL) {backtrace("stalin.sc", 18939, 664781); out_of_memory_error();} t41237->s0 = t41236; t41237->s1.tag = NULL_TYPE; t41232 = f14324(t41237); /* x144319 stalin.sc:18939:664772 */ t41231 = "struct"; /* x144318 stalin.sc:18939:664758 */ t41235.tag = STRUCTURE_TYPE24753; t41235.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41235.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18939, 664757); out_of_memory_error();} t41235.value.structure_type24753->s0 = *((struct w49 *)(&t41232)); t41235.value.structure_type24753->s1.tag = NULL_TYPE; a41985 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41985==NULL) {backtrace("stalin.sc", 18939, 664757); out_of_memory_error();} a41985->s0.tag = STRING_TYPE; a41985->s0.value.string_type = t41231; a41985->s1 = t41235; /* x302052 stalin.sc:14386:505956 */ /* x302051 stalin.sc:14386:505972 */ t41233 = a41985; /* x302050 stalin.sc:14386:505957 */ t41234.tag = STRUCTURE_TYPE24753; t41234.value.structure_type24753 = t41233; t41226 = f13474(t41234); /* x144317 stalin.sc:18938:664733 */ t41230.tag = STRUCTURE_TYPE24753; t41230.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41230.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18938, 664732); out_of_memory_error();} t41230.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41230.value.structure_type24753->s0.value.structure_type24753 = t41227; t41230.value.structure_type24753->s1.tag = NULL_TYPE; a41768 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41768==NULL) {backtrace("stalin.sc", 18938, 664732); out_of_memory_error();} a41768->s0 = t41226; a41768->s1 = t41230; /* x301184 stalin.sc:14400:506485 */ /* x301183 stalin.sc:14400:506503 */ t41228 = a41768; /* x301182 stalin.sc:14400:506486 */ t41229.tag = STRUCTURE_TYPE24753; t41229.value.structure_type24753 = t41228; t41225 = f13492(t41229); /* x144316 stalin.sc:18937:664709 */ t41211 = f13514(t41225); /* x144315 stalin.sc:18936:664661 */ /* x144313 stalin.sc:18936:664671 */ /* x144312 stalin.sc:18936:664690 */ t41224 = a26796; /* x144311 stalin.sc:18936:664672 */ t41221 = f14333(t41224); /* x144314 stalin.sc:18936:664693 */ t41222 = "65536"; /* x144310 stalin.sc:18936:664662 */ t41223.tag = STRUCTURE_TYPE24753; t41223.value.structure_type24753 = t41221; t41210 = f13635(t41223, t41222); /* x144309 stalin.sc:18935:664639 */ t41220.tag = STRUCTURE_TYPE24753; t41220.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41220.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18935, 664638); out_of_memory_error();} t41220.value.structure_type24753->s0 = t41214; t41220.value.structure_type24753->s1.tag = NULL_TYPE; t41219.tag = STRUCTURE_TYPE24753; t41219.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41219.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18935, 664638); out_of_memory_error();} t41219.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41219.value.structure_type24753->s0.value.structure_type24753 = t41213; t41219.value.structure_type24753->s1 = t41220; t41218.tag = STRUCTURE_TYPE24753; t41218.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41218.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18935, 664638); out_of_memory_error();} t41218.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41218.value.structure_type24753->s0.value.structure_type24753 = t41212; t41218.value.structure_type24753->s1 = t41219; t41217.tag = STRUCTURE_TYPE24753; t41217.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41217.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18935, 664638); out_of_memory_error();} t41217.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41217.value.structure_type24753->s0.value.structure_type24753 = t41211; t41217.value.structure_type24753->s1 = t41218; a41767 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41767==NULL) {backtrace("stalin.sc", 18935, 664638); out_of_memory_error();} a41767->s0 = t41210; a41767->s1 = t41217; /* x301180 stalin.sc:14400:506485 */ /* x301179 stalin.sc:14400:506503 */ t41215 = a41767; /* x301178 stalin.sc:14400:506486 */ t41216.tag = STRUCTURE_TYPE24753; t41216.value.structure_type24753 = t41215; return f13492(t41216); l6081: /* x144569 stalin.sc:18999:666580 */ /* x144568 stalin.sc:19005:666836 */ /* x144567 stalin.sc:19006:666860 */ /* x144566 stalin.sc:19008:666900 */ /* x144548 stalin.sc:19008:666904 */ /* x144547 stalin.sc:19008:666916 */ t41194 = a26796; /* x144546 stalin.sc:19008:666905 */ if (f8543(t41194)==FALSE_TYPE) goto l6083; /* x144560 stalin.sc:19009:666924 */ /* x144559 stalin.sc:19009:666940 */ /* x144555 stalin.sc:19009:666945 */ /* x144554 stalin.sc:19009:666958 */ /* x144553 stalin.sc:19009:666964 */ t41207 = a26796; /* x144552 stalin.sc:19009:666959 */ t41205 = f14321(t41207); /* x144551 stalin.sc:19009:666946 */ t41206.tag = STRUCTURE_TYPE24753; t41206.value.structure_type24753 = t41205; t41201 = f13516(t41206); /* x144558 stalin.sc:19009:666968 */ /* x144557 stalin.sc:19009:666978 */ t41208 = a26796; /* x144556 stalin.sc:19009:666969 */ t41209 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41209==NULL) {backtrace("stalin.sc", 19009, 666968); out_of_memory_error();} t41209->s0 = t41208; t41209->s1.tag = NULL_TYPE; t41202 = f14324(t41209); /* x144550 stalin.sc:19009:666941 */ t41203.tag = STRUCTURE_TYPE24753; t41203.value.structure_type24753 = t41201; t41204 = *((struct w49 *)(&t41202)); t41199 = f13542(t41203, t41204); /* x144549 stalin.sc:19009:666925 */ t41200.tag = STRUCTURE_TYPE24753; t41200.value.structure_type24753 = t41199; t41190 = f13508(t41200); goto l6084; l6083: /* x144565 stalin.sc:19010:666988 */ /* x144564 stalin.sc:19010:667001 */ /* x144563 stalin.sc:19010:667007 */ t41198 = a26796; /* x144562 stalin.sc:19010:667002 */ t41195 = f14321(t41198); /* x144561 stalin.sc:19010:666989 */ t41196.tag = STRUCTURE_TYPE24753; t41196.value.structure_type24753 = t41195; t41197 = f13516(t41196); t41190.tag = STRUCTURE_TYPE24753; t41190.value.structure_type24753 = t41197; l6084: /* x144545 stalin.sc:19007:666883 */ /* x144544 stalin.sc:19007:666884 */ /* x276403 stalin.sc:14947:523180 */ t41189 = "char"; /* x144543 stalin.sc:19006:666861 */ t41193.tag = STRUCTURE_TYPE24753; t41193.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41193.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19006, 666860); out_of_memory_error();} t41193.value.structure_type24753->s0 = t41190; t41193.value.structure_type24753->s1.tag = NULL_TYPE; a42000 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42000==NULL) {backtrace("stalin.sc", 19006, 666860); out_of_memory_error();} a42000->s0.tag = STRING_TYPE; a42000->s0.value.string_type = t41189; a42000->s1 = t41193; /* x302112 stalin.sc:14386:505956 */ /* x302111 stalin.sc:14386:505972 */ t41191 = a42000; /* x302110 stalin.sc:14386:505957 */ t41192.tag = STRUCTURE_TYPE24753; t41192.value.structure_type24753 = t41191; t41188 = f13474(t41192); /* x144542 stalin.sc:19005:666837 */ t41167 = f13514(t41188); /* x144541 stalin.sc:19001:666652 */ /* x144540 stalin.sc:19002:666676 */ /* x144539 stalin.sc:19003:666708 */ /* x144535 stalin.sc:19003:666725 */ /* x144534 stalin.sc:19003:666735 */ t41185 = a26796; /* x144533 stalin.sc:19003:666726 */ t41186 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41186==NULL) {backtrace("stalin.sc", 19003, 666725); out_of_memory_error();} t41186->s0 = t41185; t41186->s1.tag = NULL_TYPE; t41182 = f14324(t41186); /* x144538 stalin.sc:19003:666738 */ /* x144537 stalin.sc:19003:666757 */ t41187 = a26796; /* x144536 stalin.sc:19003:666739 */ t41183 = f14333(t41187); /* x144532 stalin.sc:19003:666709 */ t41184.tag = STRUCTURE_TYPE24753; t41184.value.structure_type24753 = t41183; t41178 = f13541(t41182, t41184); /* x144531 stalin.sc:19003:666699 */ /* x144530 stalin.sc:19003:666700 */ /* x276401 stalin.sc:14947:523180 */ t41177 = "char"; /* x144529 stalin.sc:19002:666677 */ t41181.tag = STRUCTURE_TYPE24753; t41181.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41181.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19002, 666676); out_of_memory_error();} t41181.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41181.value.structure_type24753->s0.value.structure_type24753 = t41178; t41181.value.structure_type24753->s1.tag = NULL_TYPE; a41999 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41999==NULL) {backtrace("stalin.sc", 19002, 666676); out_of_memory_error();} a41999->s0.tag = STRING_TYPE; a41999->s0.value.string_type = t41177; a41999->s1 = t41181; /* x302108 stalin.sc:14386:505956 */ /* x302107 stalin.sc:14386:505972 */ t41179 = a41999; /* x302106 stalin.sc:14386:505957 */ t41180.tag = STRUCTURE_TYPE24753; t41180.value.structure_type24753 = t41179; t41176 = f13474(t41180); /* x144528 stalin.sc:19001:666653 */ t41166 = f13514(t41176); /* x144527 stalin.sc:19000:666603 */ /* x144525 stalin.sc:19000:666613 */ /* x144524 stalin.sc:19000:666632 */ t41175 = a26796; /* x144523 stalin.sc:19000:666614 */ t41172 = f14333(t41175); /* x144526 stalin.sc:19000:666635 */ t41173 = "8388608"; /* x144522 stalin.sc:19000:666604 */ t41174.tag = STRUCTURE_TYPE24753; t41174.value.structure_type24753 = t41172; t41165 = f13635(t41174, t41173); /* x144521 stalin.sc:18999:666581 */ t41171.tag = STRUCTURE_TYPE24753; t41171.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41171.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18999, 666580); out_of_memory_error();} t41171.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41171.value.structure_type24753->s0.value.structure_type24753 = t41167; t41171.value.structure_type24753->s1.tag = NULL_TYPE; t41170.tag = STRUCTURE_TYPE24753; t41170.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41170.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18999, 666580); out_of_memory_error();} t41170.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41170.value.structure_type24753->s0.value.structure_type24753 = t41166; t41170.value.structure_type24753->s1 = t41171; a41774 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41774==NULL) {backtrace("stalin.sc", 18999, 666580); out_of_memory_error();} a41774->s0 = t41165; a41774->s1 = t41170; /* x301208 stalin.sc:14400:506485 */ /* x301207 stalin.sc:14400:506503 */ t41168 = a41774; /* x301206 stalin.sc:14400:506486 */ t41169.tag = STRUCTURE_TYPE24753; t41169.value.structure_type24753 = t41168; return f13492(t41169); l6079: /* x144572 stalin.sc:19011:667017 */ /* x144571 stalin.sc:19011:667018 */ /* x276453 stalin.sc:14693:514793 */ r15640.tag = STRING_TYPE; r15640.value.string_type = ""; return r15640;} /* [inside COMPILE-ALLOCATE-CLOSURE-LEVEL 15637] */ struct w49 f15637(struct p15629 *p15637, struct structure_type24753 *a26794, unsigned a26795) {struct structure_type24753 *a41906; /* CS */ struct structure_type24753 *a42074; /* CS */ struct structure_type24753 *t41437; struct w49 t41438; struct structure_type24753 *t41439; struct w49 t41440; struct w49 t41441; struct structure_type24753 *t41442; struct structure_type24753 *t41443; struct w49 t41444; struct w49 t41445; struct w49 t41446; struct w49 t41447; struct structure_type24753 *t41448; struct w49 t41449; char *t41450; struct structure_type24753 *t41451; char *t41452; struct structure_type24753 *t41453; struct w49 t41454; struct w49 t41455; struct w49 t41456; struct w49 t41457; unsigned t41458; struct structure_type24753 *t41459; struct w49 t41460; struct w49 t41461; struct w49 t41462; /* x144282 stalin.sc:18922:664302 */ /* x144281 stalin.sc:18924:664395 */ /* x144280 stalin.sc:18924:664399 */ /* x144279 stalin.sc:18924:664404 */ t41462 = p15637->a26789; /* x144278 stalin.sc:18924:664400 */ t41459 = f14275(t41462); /* x144277 stalin.sc:18924:664396 */ t41458 = a26795; switch (t41458) {case NATIVE_PROCEDURE_TYPE19380: /* x298316 stalin.sc:18791:659678 */ /* x298315 stalin.sc:18791:659679 */ /* x304232 stalin.sc:14693:514793 */ t41438.tag = STRING_TYPE; t41438.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE19387: /* x298328 stalin.sc:18770:658982 */ /* x298327 stalin.sc:18770:658983 */ /* x304234 stalin.sc:14693:514793 */ t41438.tag = STRING_TYPE; t41438.value.string_type = ""; break; default: if ((t41458&3)==1) {t41460.tag = STRUCTURE_TYPE24753; t41460.value.structure_type24753 = t41459; t41438 = f15605(((struct p15586 *)(t41458-1)), t41460);} else {t41461.tag = STRUCTURE_TYPE24753; t41461.value.structure_type24753 = t41459; t41438 = f15603(((struct p15586 *)t41458), t41461);}} /* x144276 stalin.sc:18923:664325 */ /* x144265 stalin.sc:18923:664331 */ /* x144264 stalin.sc:18923:664336 */ t41446 = p15637->a26789; /* x144263 stalin.sc:18923:664332 */ t41442 = f14275(t41446); /* x144275 stalin.sc:18923:664339 */ /* x144273 stalin.sc:18923:664347 */ /* x144272 stalin.sc:18923:664379 */ t41452 = "*"; /* x144271 stalin.sc:18923:664371 */ /* x144270 stalin.sc:18923:664376 */ t41457 = p15637->a26789; /* x144269 stalin.sc:18923:664372 */ t41451 = f14281(t41457); /* x144268 stalin.sc:18923:664362 */ t41450 = "struct"; /* x144267 stalin.sc:18923:664348 */ t41456.tag = STRUCTURE_TYPE24753; t41456.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41456.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18923, 664347); out_of_memory_error();} t41456.value.structure_type24753->s0.tag = STRING_TYPE; t41456.value.structure_type24753->s0.value.string_type = t41452; t41456.value.structure_type24753->s1.tag = NULL_TYPE; t41455.tag = STRUCTURE_TYPE24753; t41455.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41455.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18923, 664347); out_of_memory_error();} t41455.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41455.value.structure_type24753->s0.value.structure_type24753 = t41451; t41455.value.structure_type24753->s1 = t41456; a42074 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42074==NULL) {backtrace("stalin.sc", 18923, 664347); out_of_memory_error();} a42074->s0.tag = STRING_TYPE; a42074->s0.value.string_type = t41450; a42074->s1 = t41455; /* x302408 stalin.sc:14386:505956 */ /* x302407 stalin.sc:14386:505972 */ t41453 = a42074; /* x302406 stalin.sc:14386:505957 */ t41454.tag = STRUCTURE_TYPE24753; t41454.value.structure_type24753 = t41453; t41447 = f13474(t41454); /* x144274 stalin.sc:18923:664384 */ t41448 = a26794; /* x144266 stalin.sc:18923:664340 */ t41449.tag = STRUCTURE_TYPE24753; t41449.value.structure_type24753 = t41448; t41443 = f13547(t41447, t41449); /* x144262 stalin.sc:18923:664326 */ t41444.tag = STRUCTURE_TYPE24753; t41444.value.structure_type24753 = t41442; t41445.tag = STRUCTURE_TYPE24753; t41445.value.structure_type24753 = t41443; t41437 = f13637(t41444, t41445); /* x144261 stalin.sc:18922:664303 */ t41441.tag = STRUCTURE_TYPE24753; t41441.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41441.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18922, 664302); out_of_memory_error();} t41441.value.structure_type24753->s0 = t41438; t41441.value.structure_type24753->s1.tag = NULL_TYPE; a41906 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41906==NULL) {backtrace("stalin.sc", 18922, 664302); out_of_memory_error();} a41906->s0.tag = STRUCTURE_TYPE24753; a41906->s0.value.structure_type24753 = t41437; a41906->s1 = t41441; /* x301736 stalin.sc:14400:506485 */ /* x301735 stalin.sc:14400:506503 */ t41439 = a41906; /* x301734 stalin.sc:14400:506486 */ t41440.tag = STRUCTURE_TYPE24753; t41440.value.structure_type24753 = t41439; return f13492(t41440);} /* [inside COMPILE-ALLOCATE-CLOSURE-LEVEL 15635] */ struct w49 f15635(struct p15629 *p15635, struct structure_type24753 *a26792, unsigned a26793) {struct structure_type24753 *a41900; /* CS */ struct structure_type24753 *a42068; /* CS */ struct structure_type24753 *t41463; struct w49 t41464; struct structure_type24753 *t41465; struct w49 t41466; struct w49 t41467; struct structure_type24753 *t41468; struct structure_type24753 *t41469; struct w49 t41470; struct w49 t41471; struct w49 t41472; struct w49 t41473; struct structure_type24753 *t41474; struct w49 t41475; char *t41476; struct structure_type24753 *t41477; char *t41478; struct structure_type24753 *t41479; struct w49 t41480; struct w49 t41481; struct w49 t41482; struct w49 t41483; unsigned t41484; struct structure_type24753 *t41485; struct w49 t41486; struct w49 t41487; struct w49 t41488; /* x144234 stalin.sc:18911:663944 */ /* x144233 stalin.sc:18913:664037 */ /* x144232 stalin.sc:18913:664041 */ /* x144231 stalin.sc:18913:664046 */ t41488 = p15635->a26789; /* x144230 stalin.sc:18913:664042 */ t41485 = f14275(t41488); /* x144229 stalin.sc:18913:664038 */ t41484 = a26793; switch (t41484) {case NATIVE_PROCEDURE_TYPE19380: /* x298313 stalin.sc:18791:659678 */ /* x298312 stalin.sc:18791:659679 */ /* x304228 stalin.sc:14693:514793 */ t41464.tag = STRING_TYPE; t41464.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE19387: /* x298325 stalin.sc:18770:658982 */ /* x298324 stalin.sc:18770:658983 */ /* x304230 stalin.sc:14693:514793 */ t41464.tag = STRING_TYPE; t41464.value.string_type = ""; break; default: if ((t41484&3)==1) {t41486.tag = STRUCTURE_TYPE24753; t41486.value.structure_type24753 = t41485; t41464 = f15605(((struct p15586 *)(t41484-1)), t41486);} else {t41487.tag = STRUCTURE_TYPE24753; t41487.value.structure_type24753 = t41485; t41464 = f15603(((struct p15586 *)t41484), t41487);}} /* x144228 stalin.sc:18912:663967 */ /* x144217 stalin.sc:18912:663973 */ /* x144216 stalin.sc:18912:663978 */ t41472 = p15635->a26789; /* x144215 stalin.sc:18912:663974 */ t41468 = f14275(t41472); /* x144227 stalin.sc:18912:663981 */ /* x144225 stalin.sc:18912:663989 */ /* x144224 stalin.sc:18912:664021 */ t41478 = "*"; /* x144223 stalin.sc:18912:664013 */ /* x144222 stalin.sc:18912:664018 */ t41483 = p15635->a26789; /* x144221 stalin.sc:18912:664014 */ t41477 = f14275(t41483); /* x144220 stalin.sc:18912:664004 */ t41476 = "struct"; /* x144219 stalin.sc:18912:663990 */ t41482.tag = STRUCTURE_TYPE24753; t41482.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41482.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18912, 663989); out_of_memory_error();} t41482.value.structure_type24753->s0.tag = STRING_TYPE; t41482.value.structure_type24753->s0.value.string_type = t41478; t41482.value.structure_type24753->s1.tag = NULL_TYPE; t41481.tag = STRUCTURE_TYPE24753; t41481.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41481.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18912, 663989); out_of_memory_error();} t41481.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41481.value.structure_type24753->s0.value.structure_type24753 = t41477; t41481.value.structure_type24753->s1 = t41482; a42068 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42068==NULL) {backtrace("stalin.sc", 18912, 663989); out_of_memory_error();} a42068->s0.tag = STRING_TYPE; a42068->s0.value.string_type = t41476; a42068->s1 = t41481; /* x302384 stalin.sc:14386:505956 */ /* x302383 stalin.sc:14386:505972 */ t41479 = a42068; /* x302382 stalin.sc:14386:505957 */ t41480.tag = STRUCTURE_TYPE24753; t41480.value.structure_type24753 = t41479; t41473 = f13474(t41480); /* x144226 stalin.sc:18912:664026 */ t41474 = a26792; /* x144218 stalin.sc:18912:663982 */ t41475.tag = STRUCTURE_TYPE24753; t41475.value.structure_type24753 = t41474; t41469 = f13547(t41473, t41475); /* x144214 stalin.sc:18912:663968 */ t41470.tag = STRUCTURE_TYPE24753; t41470.value.structure_type24753 = t41468; t41471.tag = STRUCTURE_TYPE24753; t41471.value.structure_type24753 = t41469; t41463 = f13637(t41470, t41471); /* x144213 stalin.sc:18911:663945 */ t41467.tag = STRUCTURE_TYPE24753; t41467.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41467.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18911, 663944); out_of_memory_error();} t41467.value.structure_type24753->s0 = t41464; t41467.value.structure_type24753->s1.tag = NULL_TYPE; a41900 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41900==NULL) {backtrace("stalin.sc", 18911, 663944); out_of_memory_error();} a41900->s0.tag = STRUCTURE_TYPE24753; a41900->s0.value.structure_type24753 = t41463; a41900->s1 = t41467; /* x301712 stalin.sc:14400:506485 */ /* x301711 stalin.sc:14400:506503 */ t41465 = a41900; /* x301710 stalin.sc:14400:506486 */ t41466.tag = STRUCTURE_TYPE24753; t41466.value.structure_type24753 = t41465; return f13492(t41466);} /* COMPILE-ALLOCATE-CLOSURE-LEVEL[15629] */ struct w49 f15629(struct w49 a26789) {struct w49 r15629; char *a26790; /* v */ struct w49 a36699; /* S */ struct w49 a36700; /* S */ struct structure_type24753 *a42088; /* CS */ struct structure_type24753 *a42089; /* CS */ struct p15629 *t41489; char *t41490; char *t41491; char *t41492; struct w49 t41493; struct w49 t41494; char *t41495; char *t41496; struct w49 t41497; struct w49 t41498; char *t41499; char *t41500; struct w49 t41501; struct w49 t41502; char *t41503; char *t41504; struct w49 t41505; struct w49 t41506; char *t41507; char *t41508; struct w49 t41509; struct w49 t41510; char *t41511; struct p15629 *t41512; struct w3467 t41513; struct w6852 t41514; struct structure_type24753 *t41515; struct p15629 *t41516; unsigned t41517; struct w49 t41518; struct w145455 t41519; struct w49 t41520; struct w145469 t41521; struct w49 t41522; struct w49 t41523; struct w49 t41524; struct w49 t41525; char *t41526; struct structure_type24753 *t41527; struct structure_type24753 *t41528; struct w49 t41529; struct w49 t41530; struct w49 t41531; struct w49 t41532; struct p15629 *t41533; struct w3467 t41534; struct w6852 t41535; struct structure_type24753 *t41536; struct p15629 *t41537; unsigned t41538; struct w49 t41539; struct w145455 t41540; struct w49 t41541; struct w145469 t41542; struct w49 t41543; struct w49 t41544; struct w49 t41545; struct w49 t41546; char *t41547; struct structure_type24753 *t41548; struct structure_type24753 *t41549; struct w49 t41550; struct w49 t41551; struct w49 t41552; struct w49 t41553; char *t41554; struct w6315 t41555; char *t41556; struct w6315 t41557; struct p15629 *e15629; struct p15629 *p15630; struct p15629 *p15634; struct p15629 *p15636; e15629 = (struct p15629 *)alloca(sizeof(struct p15629)); if (e15629==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e15629->a26789 = a26789; /* x144300 stalin.sc:18900:663541 */ /* x144299 stalin.sc:18900:663547 */ t41490 = a686; /* x144298 */ t41489 = e15629; p15630 = t41489; a26790 = t41490; /* x144297 */ /* x144168 */ /* x144166 */ t41491 = a26790; /* x144167 */ t41492 = q18; /* x144165 */ /* MOVE: branching squeezed to general */ if (t41491>=((char *)VALUE_OFFSET)) {t41493.tag = EXTERNAL_SYMBOL_TYPE; t41493.value.external_symbol_type = t41491;} else t41493.tag = (unsigned)t41491; t41494.tag = EXTERNAL_SYMBOL_TYPE; t41494.value.external_symbol_type = t41492; if (f26160(t41493, t41494)==FALSE_TYPE) goto l6095; /* x144174 */ /* x144173 */ /* x144172 stalin.sc:18902:663595 */ /* x144170 stalin.sc:18902:663610 */ /* x144171 stalin.sc:18902:663613 */ t41556 = "Immediate flat closures are not (yet) implemented"; /* x144169 stalin.sc:18902:663596 */ t41557.tag = FALSE_TYPE; f9707(t41557, t41556); return r15629; l6095: /* x144296 */ /* x144178 */ /* x144176 */ t41495 = a26790; /* x144177 */ t41496 = q19; /* x144175 */ /* MOVE: branching squeezed to general */ if (t41495>=((char *)VALUE_OFFSET)) {t41497.tag = EXTERNAL_SYMBOL_TYPE; t41497.value.external_symbol_type = t41495;} else t41497.tag = (unsigned)t41495; t41498.tag = EXTERNAL_SYMBOL_TYPE; t41498.value.external_symbol_type = t41496; if (f26160(t41497, t41498)==FALSE_TYPE) goto l6097; /* x144184 */ /* x144183 */ /* x144182 stalin.sc:18904:663689 */ /* x144180 stalin.sc:18904:663704 */ /* x144181 stalin.sc:18904:663707 */ t41554 = "Indirect flat closures are not (yet) implemented"; /* x144179 stalin.sc:18904:663690 */ t41555.tag = FALSE_TYPE; f9707(t41555, t41554); return r15629; l6097: /* x144295 */ /* x144197 */ /* x144196 */ /* x144194 */ t41499 = a26790; /* x144195 */ t41500 = q20; /* x144193 */ /* MOVE: branching squeezed to general */ if (t41499>=((char *)VALUE_OFFSET)) {t41501.tag = EXTERNAL_SYMBOL_TYPE; t41501.value.external_symbol_type = t41499;} else t41501.tag = (unsigned)t41499; t41502.tag = EXTERNAL_SYMBOL_TYPE; t41502.value.external_symbol_type = t41500; if (!(f26160(t41501, t41502)==FALSE_TYPE)) goto l6098; /* x144190 */ /* x144188 */ t41503 = a26790; /* x144189 */ t41504 = q21; /* x144187 */ /* MOVE: branching squeezed to general */ if (t41503>=((char *)VALUE_OFFSET)) {t41505.tag = EXTERNAL_SYMBOL_TYPE; t41505.value.external_symbol_type = t41503;} else t41505.tag = (unsigned)t41503; t41506.tag = EXTERNAL_SYMBOL_TYPE; t41506.value.external_symbol_type = t41504; if (f26160(t41505, t41506)==FALSE_TYPE) goto l6099; l6098: /* x144241 */ /* x144240 */ t41533 = p15630; p15634 = t41533; /* x144239 stalin.sc:18906:663803 */ /* x144201 stalin.sc:18907:663825 */ /* x144200 stalin.sc:18907:663837 */ t41543 = p15634->a26789; /* x144199 stalin.sc:18907:663826 */ t41534 = f8619(t41543); /* x144204 stalin.sc:18908:663844 */ /* x144203 stalin.sc:18908:663868 */ t41544 = p15634->a26789; /* x144202 stalin.sc:18908:663845 */ a36699 = t41544; /* x279465 */ /* x279464 */ t41545 = a36699; /* x279463 */ if (!((t41545.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31616]"); structure_ref_error();} t41535 = t41545.value.structure_type27694->s1; /* x144212 stalin.sc:18909:663875 */ /* x144211 stalin.sc:18909:663885 */ /* x144210 stalin.sc:18909:663909 */ /* x144209 stalin.sc:18909:663914 */ t41552 = p15634->a26789; /* x144208 stalin.sc:18909:663910 */ t41548 = f14275(t41552); /* x144207 stalin.sc:18909:663900 */ t41547 = "struct"; /* x144206 stalin.sc:18909:663886 */ t41551.tag = STRUCTURE_TYPE24753; t41551.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41551.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18909, 663885); out_of_memory_error();} t41551.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41551.value.structure_type24753->s0.value.structure_type24753 = t41548; t41551.value.structure_type24753->s1.tag = NULL_TYPE; a42088 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42088==NULL) {backtrace("stalin.sc", 18909, 663885); out_of_memory_error();} a42088->s0.tag = STRING_TYPE; a42088->s0.value.string_type = t41547; a42088->s1 = t41551; /* x302464 stalin.sc:14386:505956 */ /* x302463 stalin.sc:14386:505972 */ t41549 = a42088; /* x302462 stalin.sc:14386:505957 */ t41550.tag = STRUCTURE_TYPE24753; t41550.value.structure_type24753 = t41549; t41546 = f13474(t41550); /* x144205 stalin.sc:18909:663876 */ t41536 = f13544(t41546); /* x144235 stalin.sc:18910:663923 */ t41537 = p15634; /* x144238 stalin.sc:18914:664056 */ /* x144237 stalin.sc:18914:664077 */ t41553 = p15634->a26789; /* x144236 stalin.sc:18914:664057 */ t41538 = f14226(t41553); /* x144198 stalin.sc:18906:663804 */ t41539 = *((struct w49 *)(&t41534)); t41540 = *((struct w145455 *)(&t41535)); t41541.tag = STRUCTURE_TYPE24753; t41541.value.structure_type24753 = t41536; t41542.tag = NATIVE_PROCEDURE_TYPE18672; t41542.value.native_procedure_type18672 = t41537; return f15586(t41539, t41540, t41541, t41542, t41538); l6099: /* x144294 */ /* x144245 */ /* x144243 */ t41507 = a26790; /* x144244 */ t41508 = q22; /* x144242 */ /* MOVE: branching squeezed to general */ if (t41507>=((char *)VALUE_OFFSET)) {t41509.tag = EXTERNAL_SYMBOL_TYPE; t41509.value.external_symbol_type = t41507;} else t41509.tag = (unsigned)t41507; t41510.tag = EXTERNAL_SYMBOL_TYPE; t41510.value.external_symbol_type = t41508; if (f26160(t41509, t41510)==FALSE_TYPE) goto l6102; /* x144289 */ /* x144288 */ t41512 = p15630; p15636 = t41512; /* x144287 stalin.sc:18917:664161 */ /* x144249 stalin.sc:18918:664183 */ /* x144248 stalin.sc:18918:664195 */ t41522 = p15636->a26789; /* x144247 stalin.sc:18918:664184 */ t41513 = f8619(t41522); /* x144252 stalin.sc:18919:664202 */ /* x144251 stalin.sc:18919:664226 */ t41523 = p15636->a26789; /* x144250 stalin.sc:18919:664203 */ a36700 = t41523; /* x279469 */ /* x279468 */ t41524 = a36700; /* x279467 */ if (!((t41524.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31617]"); structure_ref_error();} t41514 = t41524.value.structure_type27694->s1; /* x144260 stalin.sc:18920:664233 */ /* x144259 stalin.sc:18920:664243 */ /* x144258 stalin.sc:18920:664267 */ /* x144257 stalin.sc:18920:664272 */ t41531 = p15636->a26789; /* x144256 stalin.sc:18920:664268 */ t41527 = f14281(t41531); /* x144255 stalin.sc:18920:664258 */ t41526 = "struct"; /* x144254 stalin.sc:18920:664244 */ t41530.tag = STRUCTURE_TYPE24753; t41530.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41530.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18920, 664243); out_of_memory_error();} t41530.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41530.value.structure_type24753->s0.value.structure_type24753 = t41527; t41530.value.structure_type24753->s1.tag = NULL_TYPE; a42089 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42089==NULL) {backtrace("stalin.sc", 18920, 664243); out_of_memory_error();} a42089->s0.tag = STRING_TYPE; a42089->s0.value.string_type = t41526; a42089->s1 = t41530; /* x302468 stalin.sc:14386:505956 */ /* x302467 stalin.sc:14386:505972 */ t41528 = a42089; /* x302466 stalin.sc:14386:505957 */ t41529.tag = STRUCTURE_TYPE24753; t41529.value.structure_type24753 = t41528; t41525 = f13474(t41529); /* x144253 stalin.sc:18920:664234 */ t41515 = f13544(t41525); /* x144283 stalin.sc:18921:664281 */ t41516 = p15636; /* x144286 stalin.sc:18925:664414 */ /* x144285 stalin.sc:18925:664435 */ t41532 = p15636->a26789; /* x144284 stalin.sc:18925:664415 */ t41517 = f14226(t41532); /* x144246 stalin.sc:18917:664162 */ t41518 = *((struct w49 *)(&t41513)); t41519 = *((struct w145455 *)(&t41514)); t41520.tag = STRUCTURE_TYPE24753; t41520.value.structure_type24753 = t41515; t41521.tag = NATIVE_PROCEDURE_TYPE18670; t41521.value.native_procedure_type18670 = t41516; return f15586(t41518, t41519, t41520, t41521, t41517); l6102: /* x144293 */ /* x144292 */ /* x144291 stalin.sc:18926:664448 */ /* x144290 stalin.sc:18926:664449 */ /* x296517 QobiScheme.sc:166:5314 */ /* x296516 QobiScheme.sc:166:5321 */ t41511 = "This shouldn\'t happen"; /* x296515 QobiScheme.sc:166:5315 */ stalin_panic(t41511);} /* [inside COMPILE-ALLOCATE-HEADED-VECTOR 15628] */ struct w49 f15628(struct p15621 *p15628, struct structure_type24753 *a26787, unsigned a26788) {struct structure_type24753 *a41780; /* CS */ struct w49 t41558; struct w49 t41559; struct structure_type24753 *t41560; struct structure_type24753 *t41561; struct w49 t41562; struct w49 t41563; struct w49 t41564; struct structure_type27501 *t41565; struct structure_type24753 *t41566; struct w49 t41567; struct structure_type27501 *t41568; struct w49 t41569; struct w49 t41570; struct w49 t41571; struct structure_type24753 *t41572; struct w49 t41573; struct w49 t41574; unsigned t41575; struct w49 t41576; struct w49 t41577; struct w49 t41578; struct w49 t41579; struct w49 t41580; struct w49 t41581; struct w49 t41582; struct w49 t41583; struct w49 t41584; /* x144156 stalin.sc:18892:663262 */ /* x144155 stalin.sc:18895:663373 */ /* x144153 stalin.sc:18895:663379 */ /* x144150 stalin.sc:18895:663400 */ t41582 = p15628->a26782; /* x144151 stalin.sc:18895:663403 */ t41583 = p15628->a26783; /* x144152 stalin.sc:18895:663406 */ t41584 = p15628->a26784; /* x144149 stalin.sc:18895:663380 */ t41580 = f14751(t41582, t41583, t41584); /* x144154 stalin.sc:18895:663410 */ t41581 = p15628->a26785; /* x144148 stalin.sc:18895:663374 */ t41560 = f13637(t41580, t41581); /* x144147 stalin.sc:18894:663348 */ /* x144146 stalin.sc:18894:663352 */ /* x144143 stalin.sc:18894:663361 */ t41577 = p15628->a26782; /* x144144 stalin.sc:18894:663364 */ t41578 = p15628->a26783; /* x144145 stalin.sc:18894:663367 */ t41579 = p15628->a26784; /* x144142 stalin.sc:18894:663353 */ t41576 = f14485(t41577, t41578, t41579); /* x144141 stalin.sc:18894:663349 */ t41575 = a26788; switch (t41575) {case NATIVE_PROCEDURE_TYPE19380: /* x143683 stalin.sc:18791:659678 */ /* x143682 stalin.sc:18791:659679 */ /* x276779 stalin.sc:14693:514793 */ t41559.tag = STRING_TYPE; t41559.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE19387: /* x143596 stalin.sc:18770:658982 */ /* x143595 stalin.sc:18770:658983 */ /* x276773 stalin.sc:14693:514793 */ t41559.tag = STRING_TYPE; t41559.value.string_type = ""; break; default: t41559 = ((t41575&3)==1)?f15605(((struct p15586 *)(t41575-1)), t41576):f15603(((struct p15586 *)t41575), t41576);} /* x144140 stalin.sc:18893:663280 */ /* x144134 stalin.sc:18893:663292 */ /* x144132 stalin.sc:18893:663316 */ t41570 = p15628->a26784; /* x144133 stalin.sc:18893:663319 */ t41571 = p15628->a26782; /* x144131 stalin.sc:18893:663293 */ t41565 = f7025(t41570, t41571); /* x144138 stalin.sc:18893:663323 */ /* x144136 stalin.sc:18893:663336 */ t41572 = a26787; /* x144137 stalin.sc:18893:663339 */ t41573 = p15628->a26783; /* x144135 stalin.sc:18893:663324 */ t41574.tag = STRUCTURE_TYPE24753; t41574.value.structure_type24753 = t41572; t41566 = f14421(t41574, t41573); /* x144139 stalin.sc:18893:663343 */ t41567 = p15628->a26783; /* x144130 stalin.sc:18893:663281 */ t41568 = t41565; t41569.tag = STRUCTURE_TYPE24753; t41569.value.structure_type24753 = t41566; t41558 = f15499(t41568, t41569, t41567); /* x144129 stalin.sc:18892:663263 */ t41564.tag = STRUCTURE_TYPE24753; t41564.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41564.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18892, 663262); out_of_memory_error();} t41564.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41564.value.structure_type24753->s0.value.structure_type24753 = t41560; t41564.value.structure_type24753->s1.tag = NULL_TYPE; t41563.tag = STRUCTURE_TYPE24753; t41563.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41563.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18892, 663262); out_of_memory_error();} t41563.value.structure_type24753->s0 = t41559; t41563.value.structure_type24753->s1 = t41564; a41780 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41780==NULL) {backtrace("stalin.sc", 18892, 663262); out_of_memory_error();} a41780->s0 = t41558; a41780->s1 = t41563; /* x301232 stalin.sc:14400:506485 */ /* x301231 stalin.sc:14400:506503 */ t41561 = a41780; /* x301230 stalin.sc:14400:506486 */ t41562.tag = STRUCTURE_TYPE24753; t41562.value.structure_type24753 = t41561; return f13492(t41562);} /* COMPILE-ALLOCATE-HEADED-VECTOR[15621] */ struct w49 f15621(struct w49 a26782, struct w49 a26783, struct w49 a26784, struct w49 a26785, struct structure_type27745 *a26786) {struct w49 r15621; struct structure_type27745 *a36426; /* S */ struct w49 a37513; /* S */ struct w49 a38479; /* S */ struct structure_type24753 *a42015; /* CS */ struct w49 t41585; struct w49 t41586; struct structure_type27745 *t41587; struct w49 t41588; struct p15621 *t41589; unsigned t41590; struct w145455 t41591; struct w145469 t41592; struct w49 t41593; struct w49 t41594; struct w12224 t41595; struct w49 t41596; struct w49 t41597; struct w49 t41598; struct structure_type27745 *t41599; struct structure_type27745 *t41600; struct structure_type24753 *t41601; struct structure_type24753 *t41602; struct w49 t41603; struct w49 t41604; struct w49 t41605; char *t41606; struct w61020 t41607; struct structure_type24753 *t41608; struct w49 t41609; struct w49 t41610; struct w49 t41611; struct w49 t41612; struct structure_type24753 *t41613; struct w49 t41614; struct structure_type24753 *t41615; struct w49 t41616; char *t41617; struct w49 t41618; struct structure_type24753 *t41619; struct w49 t41620; struct w49 t41621; char *t41622; struct w49 t41623; struct w49 t41624; struct w49 t41625; struct w49 t41626; struct w49 t41627; struct w49 t41628; struct w49 t41629; struct w49 t41630; struct w49 t41631; struct p15621 *t41632; struct w49 t41633; struct w49 t41634; struct structure_type24753 *t41635; struct w49 t41636; struct w49 t41637; struct w49 t41638; struct p15621 *t41639; struct w49 t41640; struct w49 t41641; struct structure_type24753 *t41642; struct w49 t41643; struct w49 t41644; struct w49 t41645; struct w49 t41646; struct w49 t41647; char *t41648; char *t41649; struct p15621 *t41650; struct w49 t41651; struct w49 t41652; struct structure_type24753 *t41653; struct w49 t41654; struct w49 t41655; struct w49 t41656; char *t41657; struct p15621 *e15621; struct p15621 *p15623; struct p15621 *p15626; struct p15621 *p15627; e15621 = (struct p15621 *)alloca(sizeof(struct p15621)); if (e15621==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e15621->a26782 = a26782; e15621->a26783 = a26783; e15621->a26784 = a26784; e15621->a26785 = a26785; /* x144162 stalin.sc:18874:662549 */ /* x144026 stalin.sc:18874:662553 */ /* x144025 stalin.sc:18874:662578 */ t41585 = e15621->a26783; /* x144024 stalin.sc:18874:662554 */ if (f7754(t41585)==FALSE_TYPE) goto l6104; /* x144091 stalin.sc:18875:662587 */ /* x144029 stalin.sc:18875:662594 */ /* x144028 stalin.sc:18875:662607 */ t41627 = e15621->a26784; /* x144027 stalin.sc:18875:662595 */ if (f8793(t41627)==FALSE_TYPE) goto l6106; /* x144033 */ /* x144032 */ /* x144031 stalin.sc:18875:662611 */ /* x144030 stalin.sc:18875:662612 */ /* x295569 QobiScheme.sc:166:5314 */ /* x295568 QobiScheme.sc:166:5321 */ t41657 = "This shouldn\'t happen"; /* x295567 QobiScheme.sc:166:5315 */ stalin_panic(t41657); l6106: /* x144090 */ /* x144036 stalin.sc:18876:662627 */ /* x144035 stalin.sc:18876:662641 */ t41628 = e15621->a26784; /* x144034 stalin.sc:18876:662628 */ if (f8148(t41628)==FALSE_TYPE) goto l6108; /* x144046 */ /* x144045 */ t41650 = e15621; p15623 = t41650; /* x144044 stalin.sc:18876:662645 */ /* x144042 stalin.sc:18876:662651 */ /* x144039 stalin.sc:18876:662672 */ t41654 = p15623->a26782; /* x144040 stalin.sc:18876:662675 */ t41655 = p15623->a26783; /* x144041 stalin.sc:18876:662678 */ t41656 = p15623->a26784; /* x144038 stalin.sc:18876:662652 */ t41651 = f14751(t41654, t41655, t41656); /* x144043 stalin.sc:18876:662682 */ t41652 = p15623->a26785; /* x144037 stalin.sc:18876:662646 */ t41653 = f13637(t41651, t41652); r15621.tag = STRUCTURE_TYPE24753; r15621.value.structure_type24753 = t41653; return r15621; l6108: /* x144089 */ /* x144049 stalin.sc:18877:662692 */ /* x144048 stalin.sc:18877:662703 */ t41629 = e15621->a26784; /* x144047 stalin.sc:18877:662693 */ if (f13798(t41629)==FALSE_TYPE) goto l6110; /* x144053 */ /* x144052 */ /* x144051 stalin.sc:18877:662707 */ /* x144050 stalin.sc:18877:662708 */ /* x295573 QobiScheme.sc:166:5314 */ /* x295572 QobiScheme.sc:166:5321 */ t41649 = "This shouldn\'t happen"; /* x295571 QobiScheme.sc:166:5315 */ stalin_panic(t41649); l6110: /* x144088 */ /* x144056 stalin.sc:18878:662723 */ /* x144055 stalin.sc:18878:662734 */ t41630 = e15621->a26784; /* x144054 stalin.sc:18878:662724 */ if (f13859(t41630)==FALSE_TYPE) goto l6112; /* x144060 */ /* x144059 */ /* x144058 stalin.sc:18878:662738 */ /* x144057 stalin.sc:18878:662739 */ /* x295577 QobiScheme.sc:166:5314 */ /* x295576 QobiScheme.sc:166:5321 */ t41648 = "This shouldn\'t happen"; /* x295575 QobiScheme.sc:166:5315 */ stalin_panic(t41648); l6112: /* x144087 */ /* x144063 stalin.sc:18879:662754 */ /* x144062 stalin.sc:18879:662765 */ t41631 = e15621->a26784; /* x144061 stalin.sc:18879:662755 */ if (f14024(t41631)==FALSE_TYPE) goto l6114; /* x144076 */ /* x144075 */ t41639 = e15621; p15626 = t41639; /* x144074 stalin.sc:18880:662774 */ /* x144068 stalin.sc:18880:662780 */ /* x144066 stalin.sc:18880:662804 */ t41643 = p15626->a26782; /* x144067 stalin.sc:18880:662807 */ t41644 = p15626->a26783; /* x144065 stalin.sc:18880:662781 */ t41640 = f14731(t41643, t41644); /* x144073 stalin.sc:18880:662811 */ /* x144070 stalin.sc:18880:662819 */ t41645 = p15626->a26785; /* x144071 stalin.sc:18880:662822 */ t41646 = p15626->a26783; /* x144072 stalin.sc:18880:662825 */ t41647 = p15626->a26784; /* x144069 stalin.sc:18880:662812 */ t41641 = f14579(t41645, t41646, t41647); /* x144064 stalin.sc:18880:662775 */ t41642 = f13637(t41640, t41641); r15621.tag = STRUCTURE_TYPE24753; r15621.value.structure_type24753 = t41642; return r15621; l6114: /* x144086 */ /* x144085 */ t41632 = e15621; p15627 = t41632; /* x144084 stalin.sc:18881:662841 */ /* x144082 stalin.sc:18881:662847 */ /* x144079 stalin.sc:18881:662868 */ t41636 = p15627->a26782; /* x144080 stalin.sc:18881:662871 */ t41637 = p15627->a26783; /* x144081 stalin.sc:18881:662874 */ t41638 = p15627->a26784; /* x144078 stalin.sc:18881:662848 */ t41633 = f14751(t41636, t41637, t41638); /* x144083 stalin.sc:18881:662878 */ t41634 = p15627->a26785; /* x144077 stalin.sc:18881:662842 */ t41635 = f13637(t41633, t41634); r15621.tag = STRUCTURE_TYPE24753; r15621.value.structure_type24753 = t41635; return r15621; l6104: /* x144161 stalin.sc:18882:662889 */ /* x144102 stalin.sc:18883:662913 */ /* x144101 stalin.sc:18884:662925 */ /* x144095 stalin.sc:18884:662931 */ t41594 = e15621->a26783; /* x144100 stalin.sc:18884:662934 */ /* x144099 stalin.sc:18884:662968 */ /* x144098 stalin.sc:18884:662990 */ t41599 = a26786; /* x144097 stalin.sc:18884:662969 */ a36426 = t41599; /* x278373 */ /* x278372 */ t41600 = a36426; /* x278371 */ t41597 = t41600->s0; /* x144096 stalin.sc:18884:662935 */ a38479 = t41597; /* x286585 */ /* x286584 */ t41598 = a38479; /* x286583 */ if (!((t41598.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-ALLOCATION-ALIST[5687] 33396]"); structure_ref_error();} t41595 = t41598.value.structure_type27698->s25; /* x144094 stalin.sc:18884:662926 */ t41596 = *((struct w49 *)(&t41595)); t41593 = f26354(t41594, t41596); /* x268513 stalin.sc:18883:662914 */ if (!((t41593.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 18883, 662913); structure_ref_error();} t41586 = t41593.value.structure_type24753->s1; /* x144103 stalin.sc:18885:663002 */ t41587 = a26786; /* x144128 stalin.sc:18887:663054 */ /* x144112 stalin.sc:18887:663059 */ /* x144111 stalin.sc:18887:663069 */ /* x144110 stalin.sc:18887:663093 */ /* x144109 stalin.sc:18887:663098 */ t41611 = e15621->a26783; /* x144108 stalin.sc:18887:663094 */ t41607 = f14289(t41611); /* x144107 stalin.sc:18887:663084 */ t41606 = "struct"; /* x144106 stalin.sc:18887:663070 */ t41610.tag = STRUCTURE_TYPE24753; t41610.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41610.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18887, 663069); out_of_memory_error();} t41610.value.structure_type24753->s0 = *((struct w49 *)(&t41607)); t41610.value.structure_type24753->s1.tag = NULL_TYPE; a42015 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42015==NULL) {backtrace("stalin.sc", 18887, 663069); out_of_memory_error();} a42015->s0.tag = STRING_TYPE; a42015->s0.value.string_type = t41606; a42015->s1 = t41610; /* x302172 stalin.sc:14386:505956 */ /* x302171 stalin.sc:14386:505972 */ t41608 = a42015; /* x302170 stalin.sc:14386:505957 */ t41609.tag = STRUCTURE_TYPE24753; t41609.value.structure_type24753 = t41608; t41605 = f13474(t41609); /* x144105 stalin.sc:18887:663060 */ t41601 = f13544(t41605); /* x144127 stalin.sc:18889:663150 */ /* x144126 stalin.sc:18890:663172 */ /* x144125 stalin.sc:18890:663182 */ /* x144123 stalin.sc:18890:663194 */ /* x144122 stalin.sc:18890:663222 */ t41624 = e15621->a26783; /* x144121 stalin.sc:18890:663195 */ a37513 = t41624; /* x282721 */ /* x282720 */ t41625 = a37513; /* x282719 */ if (!((t41625.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32430]"); structure_ref_error();} t41621 = t41625.value.structure_type27761->s0; /* x144124 stalin.sc:18890:663226 */ t41622 = ""; /* x144120 stalin.sc:18890:663183 */ t41623.tag = STRING_TYPE; t41623.value.string_type = t41622; t41620 = f14414(t41621, t41623); /* x144119 stalin.sc:18890:663173 */ t41613 = f13544(t41620); /* x144118 stalin.sc:18889:663155 */ /* x144117 stalin.sc:18889:663163 */ /* x144116 stalin.sc:18889:663164 */ /* x276875 stalin.sc:14561:511199 */ t41617 = "1"; /* x144115 stalin.sc:18889:663160 */ t41616 = e15621->a26785; /* x144114 stalin.sc:18889:663156 */ t41618 = t41616; t41619 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41619==NULL) {backtrace("stalin.sc", 18889, 663155); out_of_memory_error();} t41619->s0.tag = STRING_TYPE; t41619->s0.value.string_type = t41617; t41619->s1.tag = NULL_TYPE; t41612 = f13610(t41618, t41619); /* x144113 stalin.sc:18889:663151 */ t41614 = t41612; t41615 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41615==NULL) {backtrace("stalin.sc", 18889, 663150); out_of_memory_error();} t41615->s0.tag = STRUCTURE_TYPE24753; t41615->s0.value.structure_type24753 = t41613; t41615->s1.tag = NULL_TYPE; t41602 = f13617(t41614, t41615); /* x144104 stalin.sc:18887:663055 */ t41603.tag = STRUCTURE_TYPE24753; t41603.value.structure_type24753 = t41601; t41604.tag = STRUCTURE_TYPE24753; t41604.value.structure_type24753 = t41602; t41588 = f13609(t41603, t41604); /* x144157 stalin.sc:18891:663239 */ t41589 = e15621; /* x144160 stalin.sc:18896:663422 */ /* x144159 stalin.sc:18896:663436 */ t41626 = e15621->a26783; /* x144158 stalin.sc:18896:663423 */ t41590 = f14245(t41626); /* x144092 stalin.sc:18882:662890 */ t41591.tag = STRUCTURE_TYPE27745; t41591.value.structure_type27745 = t41587; t41592.tag = NATIVE_PROCEDURE_TYPE22025; t41592.value.native_procedure_type22025 = t41589; return f15586(t41586, t41591, t41588, t41592, t41590);} /* [inside COMPILE-ALLOCATE-STRUCTURE 15618] */ struct w49 f15618(struct p15610 *p15618, struct structure_type24753 *a26780, unsigned a26781) {struct structure_type24753 *a41782; /* CS */ struct w49 t41658; struct w49 t41659; struct structure_type24753 *t41660; struct w49 t41661; struct w49 t41662; struct structure_type27501 *t41663; struct structure_type24753 *t41664; struct w49 t41665; struct structure_type27501 *t41666; struct w49 t41667; struct w49 t41668; struct w49 t41669; struct structure_type24753 *t41670; struct w49 t41671; struct w49 t41672; unsigned t41673; struct w49 t41674; struct w49 t41675; struct w49 t41676; struct w49 t41677; /* x144003 stalin.sc:18867:662308 */ /* x144002 stalin.sc:18869:662390 */ /* x144001 stalin.sc:18869:662394 */ /* x143998 stalin.sc:18869:662403 */ t41675 = p15618->a26775; /* x143999 stalin.sc:18869:662405 */ t41676 = p15618->a26776; /* x144000 stalin.sc:18869:662407 */ t41677 = p15618->a26777; /* x143997 stalin.sc:18869:662395 */ t41674 = f14485(t41675, t41676, t41677); /* x143996 stalin.sc:18869:662391 */ t41673 = a26781; switch (t41673) {case NATIVE_PROCEDURE_TYPE19380: /* x298307 stalin.sc:18791:659678 */ /* x298306 stalin.sc:18791:659679 */ /* x304224 stalin.sc:14693:514793 */ t41659.tag = STRING_TYPE; t41659.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE19387: /* x298319 stalin.sc:18770:658982 */ /* x298318 stalin.sc:18770:658983 */ /* x304226 stalin.sc:14693:514793 */ t41659.tag = STRING_TYPE; t41659.value.string_type = ""; break; default: t41659 = ((t41673&3)==1)?f15605(((struct p15586 *)(t41673-1)), t41674):f15603(((struct p15586 *)t41673), t41674);} /* x143995 stalin.sc:18868:662326 */ /* x143989 stalin.sc:18868:662338 */ /* x143987 stalin.sc:18868:662362 */ t41668 = p15618->a26777; /* x143988 stalin.sc:18868:662364 */ t41669 = p15618->a26775; /* x143986 stalin.sc:18868:662339 */ t41663 = f7025(t41668, t41669); /* x143993 stalin.sc:18868:662367 */ /* x143991 stalin.sc:18868:662380 */ t41670 = a26780; /* x143992 stalin.sc:18868:662383 */ t41671 = p15618->a26776; /* x143990 stalin.sc:18868:662368 */ t41672.tag = STRUCTURE_TYPE24753; t41672.value.structure_type24753 = t41670; t41664 = f14421(t41672, t41671); /* x143994 stalin.sc:18868:662386 */ t41665 = p15618->a26776; /* x143985 stalin.sc:18868:662327 */ t41666 = t41663; t41667.tag = STRUCTURE_TYPE24753; t41667.value.structure_type24753 = t41664; t41658 = f15499(t41666, t41667, t41665); /* x143984 stalin.sc:18867:662309 */ t41662.tag = STRUCTURE_TYPE24753; t41662.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41662.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18867, 662308); out_of_memory_error();} t41662.value.structure_type24753->s0 = t41659; t41662.value.structure_type24753->s1.tag = NULL_TYPE; a41782 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41782==NULL) {backtrace("stalin.sc", 18867, 662308); out_of_memory_error();} a41782->s0 = t41658; a41782->s1 = t41662; /* x301240 stalin.sc:14400:506485 */ /* x301239 stalin.sc:14400:506503 */ t41660 = a41782; /* x301238 stalin.sc:14400:506486 */ t41661.tag = STRUCTURE_TYPE24753; t41661.value.structure_type24753 = t41660; return f13492(t41661);} /* COMPILE-ALLOCATE-STRUCTURE[15610] */ struct w49 f15610(struct w49 a26775, struct w49 a26776, struct w49 a26777, struct structure_type27745 *a26778) {struct w49 r15610; struct structure_type27745 *a36397; /* S */ struct w49 a38478; /* S */ struct p15610 *t41678; struct w49 t41679; struct w49 t41680; struct structure_type27745 *t41681; struct structure_type24753 *t41682; struct p15610 *t41683; unsigned t41684; struct w145455 t41685; struct w49 t41686; struct w145469 t41687; struct w49 t41688; struct w49 t41689; struct w12224 t41690; struct w49 t41691; struct w49 t41692; struct w49 t41693; struct structure_type27745 *t41694; struct structure_type27745 *t41695; struct w49 t41696; struct w49 t41697; char *t41698; struct w61020 t41699; struct w49 t41700; struct w49 t41701; struct w49 t41702; struct w49 t41703; struct w49 t41704; struct w49 t41705; struct p15610 *t41706; struct w49 t41707; struct w61020 t41708; struct w49 t41709; struct structure_type24753 *t41710; struct w49 t41711; struct w49 t41712; struct w49 t41713; char *t41714; char *t41715; char *t41716; char *t41717; struct w49 t41718; char *t41719; struct p15610 *e15610; struct p15610 *p15611; struct p15610 *p15617; e15610 = (struct p15610 *)alloca(sizeof(struct p15610)); if (e15610==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e15610->a26775 = a26775; e15610->a26776 = a26776; e15610->a26777 = a26777; /* x144021 */ /* x144020 stalin.sc:18853:661853 */ /* x144013 stalin.sc:18853:661859 */ /* x144012 stalin.sc:18853:661872 */ t41718 = e15610->a26776; /* x144011 stalin.sc:18853:661860 */ if (f8793(t41718)==FALSE_TYPE) goto l6128; /* x144017 */ /* x144016 */ /* x144015 stalin.sc:18853:661875 */ /* x144014 stalin.sc:18853:661876 */ /* x295841 QobiScheme.sc:166:5314 */ /* x295840 QobiScheme.sc:166:5321 */ t41719 = "This shouldn\'t happen"; /* x295839 QobiScheme.sc:166:5315 */ stalin_panic(t41719); goto l6129; l6128: /* x144019 stalin.sc:18853:661853 */ /* x144018 stalin.sc:18853:661853 */ l6129: /* x144010 */ t41678 = e15610; p15611 = t41678; /* x144009 stalin.sc:18854:661887 */ /* x143914 stalin.sc:18854:661891 */ /* x143913 stalin.sc:18854:661918 */ t41679 = p15611->a26776; /* x143912 stalin.sc:18854:661892 */ if (f7429(t41679)==FALSE_TYPE) goto l6116; /* x143965 stalin.sc:18855:661926 */ /* x143917 stalin.sc:18855:661933 */ /* x143916 stalin.sc:18855:661946 */ t41701 = p15611->a26777; /* x143915 stalin.sc:18855:661934 */ if (f8793(t41701)==FALSE_TYPE) goto l6118; /* x143921 */ /* x143920 */ /* x143919 stalin.sc:18855:661949 */ /* x143918 stalin.sc:18855:661950 */ /* x295441 QobiScheme.sc:166:5314 */ /* x295440 QobiScheme.sc:166:5321 */ t41717 = "This shouldn\'t happen"; /* x295439 QobiScheme.sc:166:5315 */ stalin_panic(t41717); l6118: /* x143964 */ /* x143924 stalin.sc:18856:661965 */ /* x143923 stalin.sc:18856:661979 */ t41702 = p15611->a26777; /* x143922 stalin.sc:18856:661966 */ if (f8148(t41702)==FALSE_TYPE) goto l6120; /* x143928 */ /* x143927 */ /* x143926 stalin.sc:18856:661982 */ /* x143925 stalin.sc:18856:661983 */ /* x276471 stalin.sc:14693:514793 */ r15610.tag = STRING_TYPE; r15610.value.string_type = ""; return r15610; l6120: /* x143963 */ /* x143931 stalin.sc:18857:661997 */ /* x143930 stalin.sc:18857:662008 */ t41703 = p15611->a26777; /* x143929 stalin.sc:18857:661998 */ if (f13798(t41703)==FALSE_TYPE) goto l6122; /* x143935 */ /* x143934 */ /* x143933 stalin.sc:18857:662011 */ /* x143932 stalin.sc:18857:662012 */ /* x295445 QobiScheme.sc:166:5314 */ /* x295444 QobiScheme.sc:166:5321 */ t41716 = "This shouldn\'t happen"; /* x295443 QobiScheme.sc:166:5315 */ stalin_panic(t41716); l6122: /* x143962 */ /* x143938 stalin.sc:18858:662027 */ /* x143937 stalin.sc:18858:662038 */ t41704 = p15611->a26777; /* x143936 stalin.sc:18858:662028 */ if (f13859(t41704)==FALSE_TYPE) goto l6124; /* x143942 */ /* x143941 */ /* x143940 stalin.sc:18858:662041 */ /* x143939 stalin.sc:18858:662042 */ /* x295449 QobiScheme.sc:166:5314 */ /* x295448 QobiScheme.sc:166:5321 */ t41715 = "This shouldn\'t happen"; /* x295447 QobiScheme.sc:166:5315 */ stalin_panic(t41715); l6124: /* x143961 */ /* x143945 stalin.sc:18859:662057 */ /* x143944 stalin.sc:18859:662068 */ t41705 = p15611->a26777; /* x143943 stalin.sc:18859:662058 */ if (f14024(t41705)==FALSE_TYPE) goto l6126; /* x143949 */ /* x143948 */ /* x143947 stalin.sc:18859:662071 */ /* x143946 stalin.sc:18859:662072 */ /* x295453 QobiScheme.sc:166:5314 */ /* x295452 QobiScheme.sc:166:5321 */ t41714 = "This shouldn\'t happen"; /* x295451 QobiScheme.sc:166:5315 */ stalin_panic(t41714); l6126: /* x143960 */ /* x143959 */ t41706 = p15611; p15617 = t41706; /* x143958 stalin.sc:18860:662092 */ /* x143954 stalin.sc:18860:662098 */ /* x143952 stalin.sc:18860:662105 */ t41711 = p15617->a26775; /* x143953 stalin.sc:18860:662107 */ t41712 = p15617->a26777; /* x143951 stalin.sc:18860:662099 */ t41707 = f14478(t41711, t41712); /* x143957 stalin.sc:18860:662110 */ /* x143956 stalin.sc:18860:662122 */ t41713 = p15617->a26776; /* x143955 stalin.sc:18860:662111 */ t41708 = f14433(t41713); /* x143950 stalin.sc:18860:662093 */ t41709 = *((struct w49 *)(&t41708)); t41710 = f13637(t41707, t41709); r15610.tag = STRUCTURE_TYPE24753; r15610.value.structure_type24753 = t41710; return r15610; l6116: /* x144008 stalin.sc:18861:662133 */ /* x143976 stalin.sc:18862:662157 */ /* x143975 stalin.sc:18863:662169 */ /* x143969 stalin.sc:18863:662175 */ t41689 = p15611->a26776; /* x143974 stalin.sc:18863:662177 */ /* x143973 stalin.sc:18863:662211 */ /* x143972 stalin.sc:18863:662233 */ t41694 = a26778; /* x143971 stalin.sc:18863:662212 */ a36397 = t41694; /* x278257 */ /* x278256 */ t41695 = a36397; /* x278255 */ t41692 = t41695->s0; /* x143970 stalin.sc:18863:662178 */ a38478 = t41692; /* x286581 */ /* x286580 */ t41693 = a38478; /* x286579 */ if (!((t41693.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-ALLOCATION-ALIST[5687] 33395]"); structure_ref_error();} t41690 = t41693.value.structure_type27698->s25; /* x143968 stalin.sc:18863:662170 */ t41691 = *((struct w49 *)(&t41690)); t41688 = f26354(t41689, t41691); /* x268514 stalin.sc:18862:662158 */ if (!((t41688.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 18862, 662157); structure_ref_error();} t41680 = t41688.value.structure_type24753->s1; /* x143977 stalin.sc:18864:662245 */ t41681 = a26778; /* x143983 stalin.sc:18865:662253 */ /* x143982 stalin.sc:18865:662263 */ /* x143980 stalin.sc:18865:662272 */ t41697 = p15611->a26776; /* x143981 stalin.sc:18865:662274 */ t41698 = ""; /* x143979 stalin.sc:18865:662264 */ t41699.tag = STRING_TYPE; t41699.value.string_type = t41698; t41696 = f14410(t41697, t41699); /* x143978 stalin.sc:18865:662254 */ t41682 = f13544(t41696); /* x144004 stalin.sc:18866:662285 */ t41683 = p15611; /* x144007 stalin.sc:18870:662419 */ /* x144006 stalin.sc:18870:662433 */ t41700 = p15611->a26776; /* x144005 stalin.sc:18870:662420 */ t41684 = f14245(t41700); /* x143966 stalin.sc:18861:662134 */ t41685.tag = STRUCTURE_TYPE27745; t41685.value.structure_type27745 = t41681; t41686.tag = STRUCTURE_TYPE24753; t41686.value.structure_type24753 = t41682; t41687.tag = NATIVE_PROCEDURE_TYPE22569; t41687.value.native_procedure_type22569 = t41683; return f15586(t41680, t41685, t41686, t41687, t41684);} /* [inside COMPILE-ALLOCATE-STRING 15609] */ struct w49 f15609(struct p15608 *p15609, struct structure_type24753 *a26773, unsigned a26774) {struct structure_type24753 *a41798; /* CS */ struct w49 t41720; struct w49 t41721; struct structure_type24753 *t41722; struct structure_type24753 *t41723; struct w49 t41724; struct w49 t41725; struct w49 t41726; struct structure_type27501 *t41727; struct structure_type24753 *t41728; struct structure_type27501 *t41729; struct w49 t41730; unsigned t41731; struct w49 t41732; struct w49 t41733; struct structure_type24753 *t41734; struct w49 t41735; struct w49 t41736; unsigned t41737; struct w49 t41738; struct w49 t41739; struct w49 t41740; struct w49 t41741; struct structure_type24753 *t41742; char *t41743; struct w49 t41744; struct w49 t41745; struct w49 t41746; struct w49 t41747; struct w49 t41748; struct w49 t41749; /* x143900 stalin.sc:18845:661563 */ /* x143899 stalin.sc:18848:661689 */ /* x143896 stalin.sc:18848:661695 */ /* x143892 stalin.sc:18848:661713 */ t41746 = p15609->p15607->a26768; /* x143893 stalin.sc:18848:661716 */ t41747 = p15609->a26772; /* x143894 stalin.sc:18848:661718 */ t41748 = p15609->p15607->a26769; /* x143895 stalin.sc:18848:661721 */ t41749 = p15609->p15607->a26770; /* x143891 stalin.sc:18848:661696 */ t41742 = f14750(t41746, t41747, t41748, t41749); /* x143898 stalin.sc:18848:661725 */ /* x143897 stalin.sc:18848:661726 */ /* x122981 stalin.sc:14570:511475 */ t41743 = "\'\\0\'"; /* x143890 stalin.sc:18848:661690 */ t41744.tag = STRUCTURE_TYPE24753; t41744.value.structure_type24753 = t41742; t41745.tag = STRING_TYPE; t41745.value.string_type = t41743; t41722 = f13637(t41744, t41745); /* x143889 stalin.sc:18847:661661 */ /* x143888 stalin.sc:18847:661665 */ /* x143885 stalin.sc:18847:661674 */ t41739 = p15609->p15607->a26768; /* x143886 stalin.sc:18847:661677 */ t41740 = p15609->a26772; /* x143887 stalin.sc:18847:661679 */ t41741 = p15609->p15607->a26769; /* x143884 stalin.sc:18847:661666 */ t41738 = f14485(t41739, t41740, t41741); /* x143883 stalin.sc:18847:661662 */ t41737 = a26774; switch (t41737) {case NATIVE_PROCEDURE_TYPE19380: /* x298310 stalin.sc:18791:659678 */ /* x298309 stalin.sc:18791:659679 */ /* x303600 stalin.sc:14693:514793 */ t41721.tag = STRING_TYPE; t41721.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE19387: /* x298322 stalin.sc:18770:658982 */ /* x298321 stalin.sc:18770:658983 */ /* x303602 stalin.sc:14693:514793 */ t41721.tag = STRING_TYPE; t41721.value.string_type = ""; break; default: t41721 = ((t41737&3)==1)?f15605(((struct p15586 *)(t41737-1)), t41738):f15603(((struct p15586 *)t41737), t41738);} /* x143882 stalin.sc:18846:661585 */ /* x143876 stalin.sc:18846:661592 */ /* x143874 stalin.sc:18846:661616 */ t41732 = p15609->p15607->a26769; /* x143875 stalin.sc:18846:661619 */ t41733 = p15609->p15607->a26768; /* x143873 stalin.sc:18846:661593 */ t41727 = f7025(t41732, t41733); /* x143880 stalin.sc:18846:661623 */ /* x143878 stalin.sc:18846:661636 */ t41734 = a26773; /* x143879 stalin.sc:18846:661639 */ t41735 = p15609->a26772; /* x143877 stalin.sc:18846:661624 */ t41736.tag = STRUCTURE_TYPE24753; t41736.value.structure_type24753 = t41734; t41728 = f14421(t41736, t41735); /* x143881 stalin.sc:18846:661642 */ /* x143872 stalin.sc:18846:661586 */ t41729 = t41727; t41730.tag = STRUCTURE_TYPE24753; t41730.value.structure_type24753 = t41728; t41731 = (unsigned)NATIVE_PROCEDURE_TYPE7822; t41720 = f15508(t41729, t41730, t41731); /* x143871 stalin.sc:18845:661564 */ t41726.tag = STRUCTURE_TYPE24753; t41726.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41726.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18845, 661563); out_of_memory_error();} t41726.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41726.value.structure_type24753->s0.value.structure_type24753 = t41722; t41726.value.structure_type24753->s1.tag = NULL_TYPE; t41725.tag = STRUCTURE_TYPE24753; t41725.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41725.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18845, 661563); out_of_memory_error();} t41725.value.structure_type24753->s0 = t41721; t41725.value.structure_type24753->s1 = t41726; a41798 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41798==NULL) {backtrace("stalin.sc", 18845, 661563); out_of_memory_error();} a41798->s0 = t41720; a41798->s1 = t41725; /* x301304 stalin.sc:14400:506485 */ /* x301303 stalin.sc:14400:506503 */ t41723 = a41798; /* x301302 stalin.sc:14400:506486 */ t41724.tag = STRUCTURE_TYPE24753; t41724.value.structure_type24753 = t41723; return f13492(t41724);} /* COMPILE-ALLOCATE-STRING[15607] */ struct w49 f15607(struct w49 a26768, struct w49 a26769, struct w49 a26770, struct structure_type27745 *a26771) {struct w49 a26772; /* U */ struct structure_type27745 *a36427; /* S */ struct w49 a38480; /* S */ struct p15607 *t41750; struct w49 t41751; struct w49 t41752; struct structure_type27745 *t41753; struct structure_type24753 *t41754; struct p15608 *t41755; struct w145455 t41756; struct w49 t41757; struct w145469 t41758; unsigned t41759; struct w49 t41760; struct w49 t41761; struct w12224 t41762; struct w49 t41763; struct w49 t41764; struct w49 t41765; struct structure_type27745 *t41766; struct structure_type27745 *t41767; struct w49 t41768; struct structure_type24753 *t41769; struct w49 t41770; struct structure_type24753 *t41771; struct w49 t41772; char *t41773; struct w49 t41774; struct w49 t41775; struct w49 t41776; struct w211113 t41777; struct p15607 *e15607; struct p15608 *e15608; struct p15607 *p15608; e15607 = (struct p15607 *)alloca(sizeof(struct p15607)); if (e15607==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e15607->a26768 = a26768; e15607->a26769 = a26769; e15607->a26770 = a26770; /* x143909 stalin.sc:18838:661309 */ /* x143908 stalin.sc:18838:661318 */ /* x143906 stalin.sc:18838:661335 */ /* x143907 stalin.sc:18838:661348 */ t41776 = e15607->a26769; /* x143905 stalin.sc:18838:661319 */ t41777.tag = NATIVE_PROCEDURE_TYPE7822; t41751 = f8157(t41777, t41776); /* x143904 */ t41750 = e15607; p15608 = t41750; a26772 = t41751; e15608 = (struct p15608 *)alloca(sizeof(struct p15608)); if (e15608==NULL) {backtrace_internal("COMPILE-ALLOCATE-STRING[15607]"); out_of_memory_error();} e15608->p15607 = p15608; e15608->a26772 = a26772; /* x143903 stalin.sc:18839:661356 */ /* x143859 stalin.sc:18840:661377 */ /* x143858 stalin.sc:18840:661382 */ /* x143852 stalin.sc:18840:661388 */ t41761 = e15608->a26772; /* x143857 stalin.sc:18840:661390 */ /* x143856 stalin.sc:18840:661424 */ /* x143855 stalin.sc:18840:661446 */ t41766 = a26771; /* x143854 stalin.sc:18840:661425 */ a36427 = t41766; /* x278377 */ /* x278376 */ t41767 = a36427; /* x278375 */ t41764 = t41767->s0; /* x143853 stalin.sc:18840:661391 */ a38480 = t41764; /* x286589 */ /* x286588 */ t41765 = a38480; /* x286587 */ if (!((t41765.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-ALLOCATION-ALIST[5687] 33397]"); structure_ref_error();} t41762 = t41765.value.structure_type27698->s25; /* x143851 stalin.sc:18840:661383 */ t41763 = *((struct w49 *)(&t41762)); t41760 = f26354(t41761, t41763); /* x268515 stalin.sc:18840:661378 */ if (!((t41760.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 18840, 661377); structure_ref_error();} t41752 = t41760.value.structure_type24753->s1; /* x143860 stalin.sc:18841:661455 */ t41753 = a26771; /* x143870 stalin.sc:18843:661501 */ /* x143869 stalin.sc:18843:661521 */ /* x143868 stalin.sc:18843:661531 */ t41775 = a1252; /* x143867 stalin.sc:18843:661522 */ t41769 = f13544(t41775); /* x143866 stalin.sc:18843:661506 */ /* x143863 stalin.sc:18843:661511 */ t41772 = p15608->a26770; /* x143865 stalin.sc:18843:661514 */ /* x143864 stalin.sc:18843:661515 */ /* x276877 stalin.sc:14561:511199 */ t41773 = "1"; /* x143862 stalin.sc:18843:661507 */ t41774.tag = STRING_TYPE; t41774.value.string_type = t41773; t41768 = f13609(t41772, t41774); /* x143861 stalin.sc:18843:661502 */ t41770 = t41768; t41771 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41771==NULL) {backtrace("stalin.sc", 18843, 661501); out_of_memory_error();} t41771->s0.tag = STRUCTURE_TYPE24753; t41771->s0.value.structure_type24753 = t41769; t41771->s1.tag = NULL_TYPE; t41754 = f13617(t41770, t41771); /* x143901 stalin.sc:18844:661543 */ t41755 = e15608; /* x143902 stalin.sc:18849:661739 */ /* x143849 stalin.sc:18839:661357 */ t41756.tag = STRUCTURE_TYPE27745; t41756.value.structure_type27745 = t41753; t41757.tag = STRUCTURE_TYPE24753; t41757.value.structure_type24753 = t41754; t41758.tag = NATIVE_PROCEDURE_TYPE21916; t41758.value.native_procedure_type21916 = t41755; t41759 = TRUE_TYPE; return f15586(t41752, t41756, t41757, t41758, t41759);} /* [inside COMPILE-ALLOCATE 15605] */ struct w49 f15605(struct p15586 *p15605, struct w49 a26767) {struct w49 r15605; struct structure_type24753 *t41778; struct structure_type24753 *t41779; char *t41780; struct w49 t41781; struct w49 t41782; unsigned t41783; struct w49 t41784; char *t41785; struct w145455 t41786; struct w49 t41787; unsigned t41788; /* x143835 stalin.sc:18828:660947 */ /* x143819 stalin.sc:18828:660951 */ if (a706==FALSE_TYPE) goto l6131; /* x143832 stalin.sc:18829:660973 */ /* x143823 stalin.sc:18832:661106 */ /* x143822 stalin.sc:18832:661116 */ t41784 = a26767; /* x143821 stalin.sc:18832:661107 */ t41778 = f13596(t41784); /* x143828 stalin.sc:18832:661120 */ /* x143825 stalin.sc:18832:661135 */ t41785 = "out_of_memory"; /* x143826 stalin.sc:18832:661151 */ t41786 = p15605->a26756; /* x143827 stalin.sc:18832:661153 */ /* x143824 stalin.sc:18832:661121 */ t41787 = *((struct w49 *)(&t41786)); t41788 = FALSE_TYPE; t41779 = f15534(t41785, t41787, t41788); /* x143830 stalin.sc:18832:661157 */ /* x143829 stalin.sc:18832:661158 */ /* x276793 stalin.sc:14693:514793 */ t41780 = ""; /* x143831 stalin.sc:18832:661166 */ /* x143820 stalin.sc:18829:660974 */ t41781.tag = STRUCTURE_TYPE24753; t41781.value.structure_type24753 = t41779; t41782.tag = STRING_TYPE; t41782.value.string_type = t41780; t41783 = FALSE_TYPE; return f13672(t41778, t41781, t41782, t41783); l6131: /* x143834 stalin.sc:18833:661175 */ /* x143833 stalin.sc:18833:661176 */ /* x276795 stalin.sc:14693:514793 */ r15605.tag = STRING_TYPE; r15605.value.string_type = ""; return r15605;} /* [inside COMPILE-ALLOCATE 15603] */ struct w49 f15603(struct p15586 *p15603, struct w49 a26766) {struct w49 r15603; struct structure_type24753 *t41789; struct structure_type24753 *t41790; char *t41791; struct w49 t41792; struct w49 t41793; unsigned t41794; struct w49 t41795; char *t41796; struct w145455 t41797; struct w49 t41798; unsigned t41799; /* x143804 stalin.sc:18819:660643 */ /* x143788 stalin.sc:18819:660647 */ if (a706==FALSE_TYPE) goto l6133; /* x143801 stalin.sc:18820:660669 */ /* x143792 stalin.sc:18823:660770 */ /* x143791 stalin.sc:18823:660780 */ t41795 = a26766; /* x143790 stalin.sc:18823:660771 */ t41789 = f13596(t41795); /* x143797 stalin.sc:18823:660784 */ /* x143794 stalin.sc:18823:660799 */ t41796 = "out_of_memory"; /* x143795 stalin.sc:18823:660815 */ t41797 = p15603->a26756; /* x143796 stalin.sc:18823:660817 */ /* x143793 stalin.sc:18823:660785 */ t41798 = *((struct w49 *)(&t41797)); t41799 = FALSE_TYPE; t41790 = f15534(t41796, t41798, t41799); /* x143799 stalin.sc:18823:660821 */ /* x143798 stalin.sc:18823:660822 */ /* x276787 stalin.sc:14693:514793 */ t41791 = ""; /* x143800 stalin.sc:18823:660830 */ /* x143789 stalin.sc:18820:660670 */ t41792.tag = STRUCTURE_TYPE24753; t41792.value.structure_type24753 = t41790; t41793.tag = STRING_TYPE; t41793.value.string_type = t41791; t41794 = FALSE_TYPE; return f13672(t41789, t41792, t41793, t41794); l6133: /* x143803 stalin.sc:18824:660839 */ /* x143802 stalin.sc:18824:660840 */ /* x276789 stalin.sc:14693:514793 */ r15603.tag = STRING_TYPE; r15603.value.string_type = ""; return r15603;} /* COMPILE-ALLOCATE[15586] */ struct w49 f15586(struct w49 a26755, struct w145455 a26756, struct w49 a26757, struct w145469 a26758, unsigned a26759) {struct w49 a25509; /* C */ unsigned a25510; /* P? */ struct w49 a25515; /* C */ struct w49 a25518; /* C */ struct w49 a25527; /* C */ struct w49 a36627; /* S */ struct w49 a41059; /* E */ struct structure_type24753 *a41901; /* CS */ struct structure_type24753 *a41903; /* CS */ struct structure_type24753 *a41904; /* CS */ struct structure_type24753 *a42069; /* CS */ struct structure_type24753 *a42070; /* CS */ struct structure_type24753 *a42071; /* CS */ struct structure_type24753 *a42072; /* CS */ struct w49 a42433; /* OBJ */ struct w49 t41800; struct w49 t41801; struct w49 t41802; struct w49 t41803; struct w49 t41804; char *t41805; struct p15586 *t41806; struct w145469 t41807; struct structure_type24753 *t41808; struct p15586 *t41809; unsigned t41810; unsigned t41811; unsigned t41812; unsigned t41813; unsigned t41814; unsigned t41815; struct w49 t41816; struct structure_type24753 *t41817; struct w49 t41818; char *t41819; struct w49 t41820; struct w49 t41821; struct w12224 t41822; char *t41823; char *t41824; struct w49 t41825; struct structure_type24753 *t41826; struct w49 t41827; char *t41828; struct w49 t41829; struct w49 t41830; struct w12224 t41831; char *t41832; char *t41833; struct w49 t41834; struct p15586 *t41835; struct w145469 t41836; struct structure_type24753 *t41837; struct p15586 *t41838; unsigned t41839; unsigned t41840; unsigned t41841; unsigned t41842; unsigned t41843; struct w49 t41844; struct structure_type24753 *t41845; struct w49 t41846; char *t41847; struct w49 t41848; struct w49 t41849; struct w12224 t41850; char *t41851; char *t41852; struct w49 t41853; struct p15586 *t41854; struct w61020 t41855; struct w49 t41856; struct w49 t41857; struct structure_type24753 *t41858; struct w61020 t41859; struct structure_type24753 *t41860; struct w49 t41861; struct w49 t41862; struct w49 t41863; struct w49 t41864; struct w49 t41865; char *t41866; char *t41867; struct w61020 t41868; struct structure_type24753 *t41869; struct structure_type24753 *t41870; char *t41871; struct w49 t41872; struct w145469 t41873; struct structure_type24753 *t41874; unsigned t41875; unsigned t41876; unsigned t41877; unsigned t41878; unsigned t41879; struct w49 t41880; struct structure_type24753 *t41881; struct structure_type24753 *t41882; char *t41883; struct w49 t41884; struct w49 t41885; unsigned t41886; struct w49 t41887; struct structure_type24753 *t41888; struct w49 t41889; struct structure_type24753 *t41890; struct w49 t41891; struct w49 t41892; struct w49 t41893; struct structure_type24753 *t41894; struct w49 t41895; struct structure_type24753 *t41896; struct w61020 t41897; struct structure_type24753 *t41898; struct w49 t41899; struct w49 t41900; struct w49 t41901; struct structure_type24753 *t41902; struct w49 t41903; char *t41904; struct w145455 t41905; struct w49 t41906; unsigned t41907; struct structure_type24753 *t41908; struct w49 t41909; struct w49 t41910; struct w29434 t41911; struct w49 t41912; struct structure_type24753 *t41913; struct w49 t41914; struct w49 t41915; char *t41916; struct w49 t41917; struct structure_type24753 *t41918; char *t41919; struct structure_type24753 *t41920; struct w49 t41921; struct structure_type24753 *t41922; struct w30215 t41923; struct w49 t41924; int t41925; struct w29434 t41926; struct w49 t41927; char *t41928; struct w49 t41929; struct w30215 t41930; struct w49 t41931; int t41932; struct w29434 t41933; struct w30215 t41934; struct w49 t41935; struct w30215 t41936; int t41937; int t41938; struct w29434 t41939; char *t41940; char *t41941; struct w61020 t41942; struct structure_type24753 *t41943; struct structure_type24753 *t41944; char *t41945; struct w49 t41946; struct w61020 t41947; struct w49 t41948; struct w49 t41949; struct structure_type24753 *t41950; struct w61020 t41951; struct structure_type24753 *t41952; struct w49 t41953; struct w49 t41954; struct w49 t41955; struct w49 t41956; struct w49 t41957; char *t41958; char *t41959; struct w61020 t41960; struct structure_type24753 *t41961; struct structure_type24753 *t41962; char *t41963; struct w49 t41964; struct structure_type24753 *t41965; struct w49 t41966; char *t41967; struct w49 t41968; unsigned t41969; struct w49 t41970; struct structure_type24753 *t41971; struct w49 t41972; struct structure_type24753 *t41973; struct w49 t41974; struct w49 t41975; struct w49 t41976; struct structure_type24753 *t41977; struct w49 t41978; struct structure_type24753 *t41979; struct structure_type24753 *t41980; struct w61020 t41981; struct w49 t41982; struct w49 t41983; struct w61020 t41984; char *t41985; struct w49 t41986; struct w61020 t41987; struct w49 t41988; struct structure_type24753 *t41989; struct w49 t41990; struct structure_type24753 *t41991; struct structure_type24753 *t41992; struct structure_type24753 *t41993; struct w49 t41994; struct w61020 t41995; struct structure_type24753 *t41996; struct w49 t41997; struct structure_type24753 *t41998; struct w61020 t41999; struct structure_type24753 *t42000; struct structure_type24753 *t42001; struct structure_type24753 *t42002; struct w61020 t42003; struct structure_type24753 *t42004; struct w49 t42005; struct w49 t42006; struct w49 t42007; struct w49 t42008; struct w49 t42009; struct w49 t42010; struct w49 t42011; struct w49 t42012; struct w49 t42013; struct w49 t42014; struct w49 t42015; struct w49 t42016; struct w49 t42017; char *t42018; struct w61020 t42019; struct structure_type24753 *t42020; struct structure_type24753 *t42021; struct w49 t42022; struct w49 t42023; struct w49 t42024; struct w49 t42025; struct structure_type24753 *t42026; struct w61020 t42027; struct w49 t42028; struct structure_type24753 *t42029; struct w49 t42030; struct w49 t42031; struct w49 t42032; struct structure_type24753 *t42033; struct w49 t42034; struct w49 t42035; struct structure_type24753 *t42036; struct w49 t42037; struct w61020 t42038; struct structure_type24753 *t42039; struct w49 t42040; struct w49 t42041; struct structure_type24753 *t42042; struct w49 t42043; struct structure_type24753 *t42044; struct structure_type24753 *t42045; char *t42046; struct w49 t42047; struct w49 t42048; unsigned t42049; struct w49 t42050; struct w61020 t42051; struct w49 t42052; struct structure_type24753 *t42053; struct w61020 t42054; struct w49 t42055; struct w49 t42056; struct structure_type24753 *t42057; struct structure_type24753 *t42058; struct structure_type24753 *t42059; struct structure_type24753 *t42060; char *t42061; struct w49 t42062; char *t42063; char *t42064; unsigned t42065; struct w49 t42066; struct w49 t42067; struct w49 t42068; struct w49 t42069; struct w61020 t42070; struct structure_type24753 *t42071; struct w49 t42072; struct w49 t42073; struct structure_type24753 *t42074; struct w49 t42075; struct structure_type24753 *t42076; struct w49 t42077; char *t42078; struct w61020 t42079; char *t42080; struct structure_type24753 *t42081; struct w49 t42082; struct w49 t42083; struct w49 t42084; struct w49 t42085; struct structure_type24753 *t42086; struct w49 t42087; unsigned t42088; struct structure_type24753 *t42089; struct w49 t42090; char *t42091; struct w49 t42092; struct w49 t42093; struct w12224 t42094; char *t42095; struct w49 t42096; struct structure_type24753 *t42097; struct w49 t42098; char *t42099; struct w49 t42100; struct w49 t42101; struct w12224 t42102; char *t42103; struct w49 t42104; struct structure_type24753 *t42105; struct w49 t42106; char *t42107; struct w49 t42108; struct w49 t42109; struct w12224 t42110; char *t42111; struct w49 t42112; struct structure_type24753 *t42113; struct w49 t42114; char *t42115; struct w49 t42116; struct w49 t42117; struct w12224 t42118; char *t42119; struct w49 t42120; struct structure_type24753 *t42121; struct w49 t42122; struct w49 t42123; struct w49 t42124; char *t42125; struct w61020 t42126; struct structure_type24753 *t42127; struct w49 t42128; struct w49 t42129; struct w49 t42130; struct structure_type24753 *t42131; struct w61020 t42132; char *t42133; struct w49 t42134; struct structure_type24753 *t42135; struct structure_type24753 *t42136; struct w49 t42137; struct structure_type24753 *t42138; struct structure_type24753 *t42139; char *t42140; struct w49 t42141; struct w49 t42142; unsigned t42143; struct w61020 t42144; struct w49 t42145; struct structure_type24753 *t42146; char *t42147; struct w145455 t42148; struct w49 t42149; unsigned t42150; struct structure_type24753 *t42151; struct w61020 t42152; struct w49 t42153; struct w49 t42154; struct w61020 t42155; struct w61020 t42156; struct w49 t42157; struct structure_type24753 *t42158; struct structure_type24753 *t42159; struct w49 t42160; struct structure_type24753 *t42161; struct w49 t42162; struct structure_type24753 *t42163; struct w61020 t42164; struct w49 t42165; struct w49 t42166; struct structure_type24753 *t42167; struct w61020 t42168; struct w61020 t42169; struct w49 t42170; struct structure_type24753 *t42171; struct structure_type24753 *t42172; struct w49 t42173; struct structure_type24753 *t42174; struct w61020 t42175; struct w61020 t42176; struct w49 t42177; struct w49 t42178; struct w49 t42179; struct structure_type24753 *t42180; struct structure_type24753 *t42181; struct w61020 t42182; struct w61020 t42183; struct w49 t42184; struct w49 t42185; struct w49 t42186; struct structure_type24753 *t42187; struct structure_type24753 *t42188; struct structure_type24753 *t42189; struct structure_type24753 *t42190; struct w49 t42191; struct w49 t42192; struct w49 t42193; struct structure_type24753 *t42194; struct w49 t42195; struct structure_type24753 *t42196; struct structure_type24753 *t42197; char *t42198; struct w49 t42199; struct w49 t42200; struct w61020 t42201; char *t42202; struct w49 t42203; struct w61020 t42204; struct structure_type24753 *t42205; struct structure_type24753 *t42206; struct w49 t42207; struct w145469 t42208; struct structure_type24753 *t42209; unsigned t42210; unsigned t42211; unsigned t42212; unsigned t42213; unsigned t42214; struct w49 t42215; struct structure_type24753 *t42216; struct w49 t42217; struct w49 t42218; struct w29434 t42219; struct w49 t42220; struct structure_type24753 *t42221; struct w49 t42222; struct w49 t42223; char *t42224; struct w49 t42225; struct structure_type24753 *t42226; char *t42227; struct structure_type24753 *t42228; struct w49 t42229; struct structure_type24753 *t42230; struct w30215 t42231; struct w49 t42232; int t42233; struct w29434 t42234; struct w49 t42235; char *t42236; struct w49 t42237; struct w30215 t42238; struct w49 t42239; int t42240; struct w29434 t42241; struct w30215 t42242; struct w49 t42243; struct w30215 t42244; int t42245; int t42246; struct w29434 t42247; char *t42248; char *t42249; struct w61020 t42250; struct structure_type24753 *t42251; struct structure_type24753 *t42252; char *t42253; struct w49 t42254; struct p15586 *e15586; struct p15586 *p15587; struct p15586 *p15602; struct p15586 *p15604; e15586 = (struct p15586 *)alloca(sizeof(struct p15586)); if (e15586==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e15586->a26756 = a26756; /* x143846 stalin.sc:18715:657005 */ /* x143369 stalin.sc:18716:657014 */ /* x143368 stalin.sc:18716:657034 */ t41800 = a26755; /* x143367 stalin.sc:18716:657015 */ a41059 = t41800; /* x298348 stalin.sc:13171:462008 */ /* x298347 stalin.sc:13171:462022 */ t41801 = a41059; /* x298346 stalin.sc:13171:462009 */ a42433 = t41801; /* x303598 */ /* x303597 */ t41802 = a42433; /* x303596 */ if (!((t41802.tag)==STRUCTURE_TYPE27694)) goto l6135; /* x143780 */ /* x143779 */ t41854 = e15586; p15587 = t41854; /* x143778 stalin.sc:18717:657040 */ /* x143370 stalin.sc:18717:657044 */ if (a690==FALSE_TYPE) goto l6156; /* x143658 stalin.sc:18718:657073 */ /* x143657 stalin.sc:18782:659360 */ /* x143640 stalin.sc:18782:659367 */ if (a675==FALSE_TYPE) goto l6194; /* x143652 */ /* x143651 */ /* x143650 */ /* x143649 stalin.sc:18783:659389 */ /* x143648 stalin.sc:18783:659399 */ t42253 = "Tmk"; /* x143647 stalin.sc:18783:659390 */ t42254.tag = STRING_TYPE; t42254.value.string_type = t42253; f18320(t42254); /* x143646 */ /* x143645 stalin.sc:18784:659433 */ /* x143644 stalin.sc:18784:659461 */ /* x143643 stalin.sc:18784:659462 */ /* x276933 stalin.sc:14555:511005 */ t42249 = "0"; /* x143642 stalin.sc:18784:659442 */ t42248 = "Tmk_lock_release"; /* x143641 stalin.sc:18784:659434 */ t42250.tag = STRING_TYPE; t42250.value.string_type = t42248; t42251 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42251==NULL) {backtrace("stalin.sc", 18784, 659433); out_of_memory_error();} t42251->s0.tag = STRING_TYPE; t42251->s0.value.string_type = t42249; t42251->s1.tag = NULL_TYPE; t42252 = f13645(t42250, t42251); t41951.tag = STRUCTURE_TYPE24753; t41951.value.structure_type24753 = t42252; goto l6195; l6194: /* x143656 */ /* x143655 */ /* x143654 stalin.sc:18785:659482 */ /* x143653 stalin.sc:18785:659483 */ /* x276775 stalin.sc:14693:514793 */ t41951.tag = STRING_TYPE; t41951.value.string_type = ""; l6195: /* x143639 stalin.sc:18772:659033 */ /* x143602 stalin.sc:18773:659041 */ /* x143601 stalin.sc:18773:659047 */ t42218 = a26755; /* x143600 stalin.sc:18773:659042 */ t42216 = f14321(t42218); /* x143638 stalin.sc:18774:659052 */ /* x143605 stalin.sc:18774:659056 */ /* x143604 stalin.sc:18774:659063 */ t42219 = a1225; /* x268525 stalin.sc:18774:659057 */ switch (t42219.tag) {case FALSE_TYPE: backtrace("stalin.sc", 18774, 659056); zero_error(); break; case FIXNUM_TYPE: if (!((t42219.value.fixnum_type)==0)) goto l6191; break; default: if (!((t42219.value.flonum_type)==0.0)) goto l6191;} /* x143606 stalin.sc:18775:659093 */ t42217 = a26757; goto l6192; l6191: /* x143637 stalin.sc:18777:659145 */ /* x143608 stalin.sc:18777:659150 */ t42220 = a26757; /* x143636 stalin.sc:18779:659185 */ /* x143635 stalin.sc:18781:659306 */ /* x143634 stalin.sc:18781:659316 */ /* x143632 stalin.sc:18781:659319 */ /* x143630 stalin.sc:18781:659325 */ t42246 = 2; /* x143631 stalin.sc:18781:659327 */ t42247 = a1225; /* x268521 stalin.sc:18781:659320 */ switch (t42247.tag) {case FALSE_TYPE: backtrace("stalin.sc", 18781, 659319); expt2_error(); break; case FIXNUM_TYPE: if ((t42247.value.fixnum_type)<0) {t42244.tag = FLONUM_TYPE; t42244.value.flonum_type = pow(t42246, (t42247.value.fixnum_type));} else {t42244.tag = FIXNUM_TYPE; t42244.value.fixnum_type = ipow(t42246, (t42247.value.fixnum_type));} break; default: t42244.tag = FLONUM_TYPE; t42244.value.flonum_type = pow(t42246, (t42247.value.flonum_type));} /* x143633 stalin.sc:18781:659351 */ t42245 = 1; /* x268522 stalin.sc:18781:659317 */ if ((t42244.tag)==FIXNUM_TYPE) {t42242.tag = FIXNUM_TYPE; t42242.value.fixnum_type = (t42244.value.fixnum_type)-t42245;} else {t42242.tag = FLONUM_TYPE; t42242.value.flonum_type = (t42244.value.flonum_type)-t42245;} /* x143627 stalin.sc:18781:659307 */ t42243 = *((struct w49 *)(&t42242)); t42224 = f13530(t42243); /* x143626 stalin.sc:18779:659190 */ /* x143625 stalin.sc:18780:659245 */ /* x143618 stalin.sc:18780:659250 */ t42235 = a26757; /* x143624 stalin.sc:18780:659252 */ /* x143623 stalin.sc:18780:659262 */ /* x143621 stalin.sc:18780:659268 */ t42240 = 2; /* x143622 stalin.sc:18780:659270 */ t42241 = a1225; /* x268523 stalin.sc:18780:659263 */ switch (t42241.tag) {case FALSE_TYPE: backtrace("stalin.sc", 18780, 659262); expt2_error(); break; case FIXNUM_TYPE: if ((t42241.value.fixnum_type)<0) {t42238.tag = FLONUM_TYPE; t42238.value.flonum_type = pow(t42240, (t42241.value.fixnum_type));} else {t42238.tag = FIXNUM_TYPE; t42238.value.fixnum_type = ipow(t42240, (t42241.value.fixnum_type));} break; default: t42238.tag = FLONUM_TYPE; t42238.value.flonum_type = pow(t42240, (t42241.value.flonum_type));} /* x143619 stalin.sc:18780:659253 */ t42239 = *((struct w49 *)(&t42238)); t42236 = f13530(t42239); /* x143617 stalin.sc:18780:659246 */ t42237.tag = STRING_TYPE; t42237.value.string_type = t42236; t42228 = f13622(t42235, t42237); /* x143616 stalin.sc:18779:659195 */ /* x143615 stalin.sc:18779:659205 */ /* x143613 stalin.sc:18779:659211 */ t42233 = 2; /* x143614 stalin.sc:18779:659213 */ t42234 = a1225; /* x268524 stalin.sc:18779:659206 */ switch (t42234.tag) {case FALSE_TYPE: backtrace("stalin.sc", 18779, 659205); expt2_error(); break; case FIXNUM_TYPE: if ((t42234.value.fixnum_type)<0) {t42231.tag = FLONUM_TYPE; t42231.value.flonum_type = pow(t42233, (t42234.value.fixnum_type));} else {t42231.tag = FIXNUM_TYPE; t42231.value.fixnum_type = ipow(t42233, (t42234.value.fixnum_type));} break; default: t42231.tag = FLONUM_TYPE; t42231.value.flonum_type = pow(t42233, (t42234.value.flonum_type));} /* x143611 stalin.sc:18779:659196 */ t42232 = *((struct w49 *)(&t42231)); t42227 = f13530(t42232); /* x143610 stalin.sc:18779:659191 */ t42229.tag = STRING_TYPE; t42229.value.string_type = t42227; t42230 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42230==NULL) {backtrace("stalin.sc", 18779, 659190); out_of_memory_error();} t42230->s0.tag = STRUCTURE_TYPE24753; t42230->s0.value.structure_type24753 = t42228; t42230->s1.tag = NULL_TYPE; t42223 = f13610(t42229, t42230); /* x143609 stalin.sc:18779:659186 */ t42225 = t42223; t42226 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42226==NULL) {backtrace("stalin.sc", 18779, 659185); out_of_memory_error();} t42226->s0.tag = STRING_TYPE; t42226->s0.value.string_type = t42224; t42226->s1.tag = NULL_TYPE; t42221 = f13625(t42225, t42226); /* x143607 stalin.sc:18777:659146 */ t42222.tag = STRUCTURE_TYPE24753; t42222.value.structure_type24753 = t42221; t42217 = f13609(t42220, t42222); l6192: /* x143599 stalin.sc:18772:659034 */ t41950 = f13638(t42216, t42217); /* x143598 stalin.sc:18770:658957 */ /* x143594 stalin.sc:18770:658961 */ /* x143593 stalin.sc:18770:658967 */ t42215 = a26755; /* x143592 stalin.sc:18770:658962 */ t42209 = f14321(t42215); /* x143597 stalin.sc:18770:658970 */ /* x143591 stalin.sc:18770:658958 */ t42208 = a26758; switch (t42208.tag) {case NATIVE_PROCEDURE_TYPE18670: t42210 = (unsigned)NATIVE_PROCEDURE_TYPE19387; t41949 = f15637((t42208.value.native_procedure_type18670), t42209, t42210); break; case NATIVE_PROCEDURE_TYPE18672: t42211 = (unsigned)NATIVE_PROCEDURE_TYPE19387; t41949 = f15635((t42208.value.native_procedure_type18672), t42209, t42211); break; case NATIVE_PROCEDURE_TYPE21916: t42212 = (unsigned)NATIVE_PROCEDURE_TYPE19387; t41949 = f15609((t42208.value.native_procedure_type21916), t42209, t42212); break; case NATIVE_PROCEDURE_TYPE22025: t42213 = (unsigned)NATIVE_PROCEDURE_TYPE19387; t41949 = f15628((t42208.value.native_procedure_type22025), t42209, t42213); break; default: t42214 = (unsigned)NATIVE_PROCEDURE_TYPE19387; t41949 = f15618((t42208.value.native_procedure_type22569), t42209, t42214);} /* x143590 stalin.sc:18723:657225 */ /* x143412 stalin.sc:18723:657231 */ /* x143397 stalin.sc:18723:657236 */ /* x143395 stalin.sc:18723:657241 */ /* x143394 stalin.sc:18723:657247 */ t41976 = a26755; /* x143393 stalin.sc:18723:657242 */ t41973 = f14321(t41976); /* x143396 stalin.sc:18723:657250 */ t41974 = a26757; /* x143392 stalin.sc:18723:657237 */ t41975.tag = STRUCTURE_TYPE24753; t41975.value.structure_type24753 = t41973; t41970 = f13609(t41975, t41974); /* x143411 stalin.sc:18724:657294 */ /* x143410 stalin.sc:18724:657299 */ /* x143406 stalin.sc:18724:657312 */ /* x143403 stalin.sc:18724:657318 */ /* x143402 stalin.sc:18724:657328 */ t41988 = a26755; /* x143401 stalin.sc:18724:657319 */ t41989 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41989==NULL) {backtrace("stalin.sc", 18724, 657318); out_of_memory_error();} t41989->s0 = t41988; t41989->s1.tag = NULL_TYPE; t41984 = f14324(t41989); /* x143405 stalin.sc:18724:657331 */ /* x143404 stalin.sc:18724:657332 */ /* x276383 stalin.sc:16070:560270 */ t41985 = "data"; /* x143400 stalin.sc:18724:657313 */ t41986 = *((struct w49 *)(&t41984)); t41987.tag = STRING_TYPE; t41987.value.string_type = t41985; t41980 = f13588(t41986, t41987); /* x143409 stalin.sc:18725:657350 */ /* x143408 stalin.sc:18725:657365 */ t41990 = a26755; /* x143407 stalin.sc:18725:657351 */ t41991 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41991==NULL) {backtrace("stalin.sc", 18725, 657350); out_of_memory_error();} t41991->s0 = t41990; t41991->s1.tag = NULL_TYPE; t41981 = f14328(t41991); /* x143399 stalin.sc:18724:657300 */ t41982.tag = STRUCTURE_TYPE24753; t41982.value.structure_type24753 = t41980; t41983 = *((struct w49 *)(&t41981)); t41977 = f13540(t41982, t41983); /* x143398 stalin.sc:18724:657295 */ t41978.tag = STRUCTURE_TYPE24753; t41978.value.structure_type24753 = t41977; t41979 = (struct structure_type24753 *)NULL_TYPE; t41971 = f13625(t41978, t41979); /* x143391 stalin.sc:18723:657232 */ t41972.tag = STRUCTURE_TYPE24753; t41972.value.structure_type24753 = t41971; t41965 = f13604(t41970, t41972); /* x143586 stalin.sc:18726:657378 */ /* x143585 stalin.sc:18767:658909 */ /* x143584 stalin.sc:18767:658918 */ /* x143583 stalin.sc:18767:658924 */ t42207 = a26755; /* x143582 stalin.sc:18767:658919 */ t42206 = f14321(t42207); /* x143581 stalin.sc:18767:658910 */ t42003 = f14371(t42206); /* x143580 stalin.sc:18762:658637 */ /* x143567 stalin.sc:18762:658643 */ /* x143566 stalin.sc:18762:658649 */ t42193 = a26755; /* x143565 stalin.sc:18762:658644 */ t42189 = f14321(t42193); /* x143579 stalin.sc:18763:658659 */ /* x143578 stalin.sc:18763:658664 */ /* x143575 stalin.sc:18763:658677 */ /* x143572 stalin.sc:18763:658683 */ /* x143571 stalin.sc:18763:658684 */ t42205 = (struct structure_type24753 *)NULL_TYPE; t42201 = f14324(t42205); /* x143574 stalin.sc:18763:658694 */ /* x143573 stalin.sc:18763:658695 */ /* x276385 stalin.sc:16070:560270 */ t42202 = "data"; /* x143570 stalin.sc:18763:658678 */ t42203 = *((struct w49 *)(&t42201)); t42204.tag = STRING_TYPE; t42204.value.string_type = t42202; t42197 = f13588(t42203, t42204); /* x143577 stalin.sc:18763:658704 */ /* x143576 stalin.sc:18763:658705 */ /* x276931 stalin.sc:14555:511005 */ t42198 = "0"; /* x143569 stalin.sc:18763:658665 */ t42199.tag = STRUCTURE_TYPE24753; t42199.value.structure_type24753 = t42197; t42200.tag = STRING_TYPE; t42200.value.string_type = t42198; t42194 = f13540(t42199, t42200); /* x143568 stalin.sc:18763:658660 */ t42195.tag = STRUCTURE_TYPE24753; t42195.value.structure_type24753 = t42194; t42196 = (struct structure_type24753 *)NULL_TYPE; t42190 = f13625(t42195, t42196); /* x143564 stalin.sc:18762:658638 */ t42191.tag = STRUCTURE_TYPE24753; t42191.value.structure_type24753 = t42189; t42192.tag = STRUCTURE_TYPE24753; t42192.value.structure_type24753 = t42190; t42002 = f13637(t42191, t42192); /* x143563 stalin.sc:18761:658598 */ /* x143560 stalin.sc:18761:658604 */ /* x143559 stalin.sc:18761:658614 */ t42186 = a26755; /* x143558 stalin.sc:18761:658605 */ t42187 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42187==NULL) {backtrace("stalin.sc", 18761, 658604); out_of_memory_error();} t42187->s0 = t42186; t42187->s1.tag = NULL_TYPE; t42182 = f14324(t42187); /* x143562 stalin.sc:18761:658617 */ /* x143561 stalin.sc:18761:658618 */ t42188 = (struct structure_type24753 *)NULL_TYPE; t42183 = f14324(t42188); /* x143557 stalin.sc:18761:658599 */ t42184 = *((struct w49 *)(&t42182)); t42185 = *((struct w49 *)(&t42183)); t42001 = f13637(t42184, t42185); /* x143556 stalin.sc:18760:658549 */ /* x143553 stalin.sc:18760:658555 */ /* x143552 stalin.sc:18760:658570 */ t42179 = a26755; /* x143551 stalin.sc:18760:658556 */ t42180 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42180==NULL) {backtrace("stalin.sc", 18760, 658555); out_of_memory_error();} t42180->s0 = t42179; t42180->s1.tag = NULL_TYPE; t42175 = f14328(t42180); /* x143555 stalin.sc:18760:658573 */ /* x143554 stalin.sc:18760:658574 */ t42181 = (struct structure_type24753 *)NULL_TYPE; t42176 = f14328(t42181); /* x143550 stalin.sc:18760:658550 */ t42177 = *((struct w49 *)(&t42175)); t42178 = *((struct w49 *)(&t42176)); t42000 = f13637(t42177, t42178); /* x143549 stalin.sc:18757:658443 */ /* x143535 stalin.sc:18757:658447 */ /* x143534 stalin.sc:18757:658459 */ t42162 = a26755; /* x143533 stalin.sc:18757:658448 */ if (f8543(t42162)==FALSE_TYPE) goto l6188; /* x143546 stalin.sc:18758:658467 */ /* x143542 stalin.sc:18758:658473 */ /* x143539 stalin.sc:18758:658479 */ /* x143538 stalin.sc:18758:658480 */ t42171 = (struct structure_type24753 *)NULL_TYPE; t42168 = f14324(t42171); /* x143541 stalin.sc:18758:658490 */ /* x143540 stalin.sc:18758:658491 */ t42172 = (struct structure_type24753 *)NULL_TYPE; t42169 = f14328(t42172); /* x143537 stalin.sc:18758:658474 */ t42170 = *((struct w49 *)(&t42168)); t42163 = f13588(t42170, t42169); /* x143545 stalin.sc:18758:658507 */ /* x143544 stalin.sc:18758:658522 */ t42173 = a26755; /* x143543 stalin.sc:18758:658508 */ t42174 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42174==NULL) {backtrace("stalin.sc", 18758, 658507); out_of_memory_error();} t42174->s0 = t42173; t42174->s1.tag = NULL_TYPE; t42164 = f14328(t42174); /* x143536 stalin.sc:18758:658468 */ t42165.tag = STRUCTURE_TYPE24753; t42165.value.structure_type24753 = t42163; t42166 = *((struct w49 *)(&t42164)); t42167 = f13637(t42165, t42166); t41999.tag = STRUCTURE_TYPE24753; t41999.value.structure_type24753 = t42167; goto l6189; l6188: /* x143548 stalin.sc:18759:658531 */ /* x143547 stalin.sc:18759:658532 */ /* x276769 stalin.sc:14693:514793 */ t41999.tag = STRING_TYPE; t41999.value.string_type = ""; l6189: /* x143532 stalin.sc:18756:658386 */ /* x143528 stalin.sc:18756:658392 */ /* x143525 stalin.sc:18756:658398 */ /* x143524 stalin.sc:18756:658399 */ t42158 = (struct structure_type24753 *)NULL_TYPE; t42155 = f14324(t42158); /* x143527 stalin.sc:18756:658409 */ /* x143526 stalin.sc:18756:658410 */ t42159 = (struct structure_type24753 *)NULL_TYPE; t42156 = f14324(t42159); /* x143523 stalin.sc:18756:658393 */ t42157 = *((struct w49 *)(&t42155)); t42151 = f13588(t42157, t42156); /* x143531 stalin.sc:18756:658421 */ /* x143530 stalin.sc:18756:658431 */ t42160 = a26755; /* x143529 stalin.sc:18756:658422 */ t42161 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42161==NULL) {backtrace("stalin.sc", 18756, 658421); out_of_memory_error();} t42161->s0 = t42160; t42161->s1.tag = NULL_TYPE; t42152 = f14324(t42161); /* x143522 stalin.sc:18756:658387 */ t42153.tag = STRUCTURE_TYPE24753; t42153.value.structure_type24753 = t42151; t42154 = *((struct w49 *)(&t42152)); t41998 = f13637(t42153, t42154); /* x143521 stalin.sc:18750:658247 */ /* x143504 stalin.sc:18750:658251 */ if (a706==FALSE_TYPE) goto l6185; /* x143518 stalin.sc:18751:658273 */ /* x143509 stalin.sc:18751:658279 */ /* x143508 stalin.sc:18751:658289 */ /* x143507 stalin.sc:18751:658290 */ t42146 = (struct structure_type24753 *)NULL_TYPE; t42144 = f14324(t42146); /* x143506 stalin.sc:18751:658280 */ t42145 = *((struct w49 *)(&t42144)); t42138 = f13596(t42145); /* x143514 stalin.sc:18752:658305 */ /* x143511 stalin.sc:18752:658320 */ t42147 = "out_of_memory"; /* x143512 stalin.sc:18752:658336 */ t42148 = p15587->a26756; /* x143513 stalin.sc:18752:658338 */ /* x143510 stalin.sc:18752:658306 */ t42149 = *((struct w49 *)(&t42148)); t42150 = FALSE_TYPE; t42139 = f15534(t42147, t42149, t42150); /* x143516 stalin.sc:18753:658346 */ /* x143515 stalin.sc:18753:658347 */ /* x276765 stalin.sc:14693:514793 */ t42140 = ""; /* x143517 stalin.sc:18754:658359 */ /* x143505 stalin.sc:18751:658274 */ t42141.tag = STRUCTURE_TYPE24753; t42141.value.structure_type24753 = t42139; t42142.tag = STRING_TYPE; t42142.value.string_type = t42140; t42143 = TRUE_TYPE; t41997 = f13672(t42138, t42141, t42142, t42143); goto l6186; l6185: /* x143520 stalin.sc:18755:658368 */ /* x143519 stalin.sc:18755:658369 */ /* x276767 stalin.sc:14693:514793 */ t41997.tag = STRING_TYPE; t41997.value.string_type = ""; l6186: /* x143503 stalin.sc:18741:657923 */ /* x143472 stalin.sc:18741:657929 */ /* x143471 stalin.sc:18741:657930 */ t42074 = (struct structure_type24753 *)NULL_TYPE; t42070 = f14324(t42074); /* x143502 stalin.sc:18742:657947 */ /* x143480 stalin.sc:18743:657963 */ /* x143479 stalin.sc:18743:658000 */ t42080 = "*"; /* x143478 stalin.sc:18743:657987 */ /* x143477 stalin.sc:18743:657997 */ t42085 = a26755; /* x143476 stalin.sc:18743:657988 */ t42086 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42086==NULL) {backtrace("stalin.sc", 18743, 657987); out_of_memory_error();} t42086->s0 = t42085; t42086->s1.tag = NULL_TYPE; t42079 = f14324(t42086); /* x143475 stalin.sc:18743:657978 */ t42078 = "struct"; /* x143474 stalin.sc:18743:657964 */ t42084.tag = STRUCTURE_TYPE24753; t42084.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42084.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18743, 657963); out_of_memory_error();} t42084.value.structure_type24753->s0.tag = STRING_TYPE; t42084.value.structure_type24753->s0.value.string_type = t42080; t42084.value.structure_type24753->s1.tag = NULL_TYPE; t42083.tag = STRUCTURE_TYPE24753; t42083.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42083.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18743, 657963); out_of_memory_error();} t42083.value.structure_type24753->s0 = *((struct w49 *)(&t42079)); t42083.value.structure_type24753->s1 = t42084; a42071 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42071==NULL) {backtrace("stalin.sc", 18743, 657963); out_of_memory_error();} a42071->s0.tag = STRING_TYPE; a42071->s0.value.string_type = t42078; a42071->s1 = t42083; /* x302396 stalin.sc:14386:505956 */ /* x302395 stalin.sc:14386:505972 */ t42081 = a42071; /* x302394 stalin.sc:14386:505957 */ t42082.tag = STRUCTURE_TYPE24753; t42082.value.structure_type24753 = t42081; t42075 = f13474(t42082); /* x143501 stalin.sc:18744:658013 */ /* x143497 stalin.sc:18746:658079 */ /* x143490 stalin.sc:18746:658084 */ /* x143489 stalin.sc:18746:658094 */ /* x143488 stalin.sc:18746:658118 */ /* x143487 stalin.sc:18746:658128 */ t42130 = a26755; /* x143486 stalin.sc:18746:658119 */ t42131 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42131==NULL) {backtrace("stalin.sc", 18746, 658118); out_of_memory_error();} t42131->s0 = t42130; t42131->s1.tag = NULL_TYPE; t42126 = f14324(t42131); /* x143485 stalin.sc:18746:658109 */ t42125 = "struct"; /* x143484 stalin.sc:18746:658095 */ t42129.tag = STRUCTURE_TYPE24753; t42129.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42129.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18746, 658094); out_of_memory_error();} t42129.value.structure_type24753->s0 = *((struct w49 *)(&t42126)); t42129.value.structure_type24753->s1.tag = NULL_TYPE; a42072 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42072==NULL) {backtrace("stalin.sc", 18746, 658094); out_of_memory_error();} a42072->s0.tag = STRING_TYPE; a42072->s0.value.string_type = t42125; a42072->s1 = t42129; /* x302400 stalin.sc:14386:505956 */ /* x302399 stalin.sc:14386:505972 */ t42127 = a42072; /* x302398 stalin.sc:14386:505957 */ t42128.tag = STRUCTURE_TYPE24753; t42128.value.structure_type24753 = t42127; t42124 = f13474(t42128); /* x143483 stalin.sc:18746:658085 */ t42121 = f13544(t42124); /* x143496 stalin.sc:18748:658172 */ /* x143495 stalin.sc:18748:658193 */ /* x143494 stalin.sc:18748:658194 */ /* x276883 stalin.sc:14561:511199 */ t42133 = "1"; /* x143493 stalin.sc:18748:658177 */ /* x143492 stalin.sc:18748:658178 */ t42136 = (struct structure_type24753 *)NULL_TYPE; t42132 = f14328(t42136); /* x143491 stalin.sc:18748:658173 */ t42134 = *((struct w49 *)(&t42132)); t42135 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42135==NULL) {backtrace("stalin.sc", 18748, 658172); out_of_memory_error();} t42135->s0.tag = STRING_TYPE; t42135->s0.value.string_type = t42133; t42135->s1.tag = NULL_TYPE; t42122 = f13610(t42134, t42135); /* x143482 stalin.sc:18746:658080 */ t42123.tag = STRUCTURE_TYPE24753; t42123.value.structure_type24753 = t42121; t42087 = f13609(t42123, t42122); /* x143500 stalin.sc:18749:658210 */ /* x143499 stalin.sc:18749:658233 */ t42137 = a26755; /* x143498 stalin.sc:18749:658211 */ t42088 = f8533(t42137); /* x143481 stalin.sc:18744:658014 */ a25509 = t42087; a25510 = t42088; /* x124837 stalin.sc:15040:524877 */ /* x124778 stalin.sc:15040:524884 */ if (a675==FALSE_TYPE) goto l6176; /* x124791 */ /* x124790 */ /* x124789 */ /* x124788 stalin.sc:15041:524899 */ /* x124787 stalin.sc:15041:524909 */ t42119 = "Tmk"; /* x124786 stalin.sc:15041:524900 */ t42120.tag = STRING_TYPE; t42120.value.string_type = t42119; f18320(t42120); /* x124785 */ /* x124784 stalin.sc:15042:524930 */ /* x124783 stalin.sc:15042:524941 */ /* x124782 stalin.sc:15042:524962 */ t42116 = a25509; /* x124781 stalin.sc:15042:524949 */ t42115 = "Tmk_malloc"; /* x124780 stalin.sc:15042:524942 */ t42117.tag = STRING_TYPE; t42117.value.string_type = t42115; t42118.tag = STRUCTURE_TYPE24753; t42118.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42118.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15042, 524941); out_of_memory_error();} t42118.value.structure_type24753->s0 = t42116; t42118.value.structure_type24753->s1.tag = NULL_TYPE; t42113 = f13543(t42117, t42118); /* x124779 stalin.sc:15042:524931 */ t42114.tag = STRUCTURE_TYPE24753; t42114.value.structure_type24753 = t42113; t42076 = f13472(t42114); goto l6177; l6176: /* x124836 */ /* x124792 stalin.sc:15043:524975 */ if (a1281==FALSE_TYPE) goto l6179; /* x124822 */ /* x124821 */ /* x124820 stalin.sc:15044:524996 */ /* x124793 stalin.sc:15044:525003 */ if (a25510==FALSE_TYPE) goto l6182; /* x124806 */ /* x124805 */ /* x124804 */ /* x124803 stalin.sc:15044:525006 */ /* x124802 stalin.sc:15044:525016 */ t42111 = "gc"; /* x124801 stalin.sc:15044:525007 */ t42112.tag = STRING_TYPE; t42112.value.string_type = t42111; f18320(t42112); /* x124800 */ /* x124799 stalin.sc:15045:525051 */ /* x124798 stalin.sc:15045:525062 */ /* x124797 stalin.sc:15045:525096 */ t42108 = a25509; /* x124796 stalin.sc:15045:525070 */ t42107 = "GC_malloc_uncollectable"; /* x124795 stalin.sc:15045:525063 */ t42109.tag = STRING_TYPE; t42109.value.string_type = t42107; t42110.tag = STRUCTURE_TYPE24753; t42110.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42110.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15045, 525062); out_of_memory_error();} t42110.value.structure_type24753->s0 = t42108; t42110.value.structure_type24753->s1.tag = NULL_TYPE; t42105 = f13543(t42109, t42110); /* x124794 stalin.sc:15045:525052 */ t42106.tag = STRUCTURE_TYPE24753; t42106.value.structure_type24753 = t42105; t42076 = f13472(t42106); goto l6183; l6182: /* x124819 */ /* x124818 */ /* x124817 */ /* x124816 stalin.sc:15046:525114 */ /* x124815 stalin.sc:15046:525124 */ t42103 = "gc"; /* x124814 stalin.sc:15046:525115 */ t42104.tag = STRING_TYPE; t42104.value.string_type = t42103; f18320(t42104); /* x124813 */ /* x124812 stalin.sc:15047:525168 */ /* x124811 stalin.sc:15047:525179 */ /* x124810 stalin.sc:15047:525220 */ t42100 = a25509; /* x124809 stalin.sc:15047:525187 */ t42099 = "GC_malloc_atomic_uncollectable"; /* x124808 stalin.sc:15047:525180 */ t42101.tag = STRING_TYPE; t42101.value.string_type = t42099; t42102.tag = STRUCTURE_TYPE24753; t42102.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42102.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15047, 525179); out_of_memory_error();} t42102.value.structure_type24753->s0 = t42100; t42102.value.structure_type24753->s1.tag = NULL_TYPE; t42097 = f13543(t42101, t42102); /* x124807 stalin.sc:15047:525169 */ t42098.tag = STRUCTURE_TYPE24753; t42098.value.structure_type24753 = t42097; t42076 = f13472(t42098); l6183: goto l6180; l6179: /* x124835 */ /* x124834 */ /* x124833 */ /* x124832 stalin.sc:15048:525240 */ /* x124831 stalin.sc:15048:525250 */ t42095 = "malloc"; /* x124830 stalin.sc:15048:525241 */ t42096.tag = STRING_TYPE; t42096.value.string_type = t42095; f18320(t42096); /* x124829 */ /* x124828 stalin.sc:15049:525274 */ /* x124827 stalin.sc:15049:525285 */ /* x124826 stalin.sc:15049:525302 */ t42092 = a25509; /* x124825 stalin.sc:15049:525293 */ t42091 = "malloc"; /* x124824 stalin.sc:15049:525286 */ t42093.tag = STRING_TYPE; t42093.value.string_type = t42091; t42094.tag = STRUCTURE_TYPE24753; t42094.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42094.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15049, 525285); out_of_memory_error();} t42094.value.structure_type24753->s0 = t42092; t42094.value.structure_type24753->s1.tag = NULL_TYPE; t42089 = f13543(t42093, t42094); /* x124823 stalin.sc:15049:525275 */ t42090.tag = STRUCTURE_TYPE24753; t42090.value.structure_type24753 = t42089; t42076 = f13472(t42090); l6180: l6177: /* x143473 stalin.sc:18742:657948 */ t42077.tag = STRUCTURE_TYPE24753; t42077.value.structure_type24753 = t42076; t42071 = f13547(t42075, t42077); /* x143470 stalin.sc:18741:657924 */ t42072 = *((struct w49 *)(&t42070)); t42073.tag = STRUCTURE_TYPE24753; t42073.value.structure_type24753 = t42071; t41996 = f13637(t42072, t42073); /* x143469 stalin.sc:18736:657761 */ /* x143455 stalin.sc:18736:657765 */ if (a691==FALSE_TYPE) goto l6173; /* x143466 stalin.sc:18737:657789 */ /* x143465 stalin.sc:18737:657799 */ /* x143464 stalin.sc:18738:657818 */ /* x143463 stalin.sc:18739:657876 */ /* x143462 stalin.sc:18739:657894 */ t42068 = a26755; /* x143461 stalin.sc:18739:657877 */ a36627 = t42068; /* x279177 */ /* x279176 */ t42069 = a36627; /* x279175 */ if (!((t42069.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31544]"); structure_ref_error();} t42064 = t42069.value.structure_type27694->s2; /* x143460 stalin.sc:18738:657829 */ t42063 = "Allocating region segment for ~a~%"; /* x143459 stalin.sc:18738:657826 */ /* x143458 stalin.sc:18738:657819 */ t42065 = FALSE_TYPE; t42066.tag = STRING_TYPE; t42066.value.string_type = t42063; t42067.tag = STRUCTURE_TYPE24753; t42067.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42067.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18738, 657818); out_of_memory_error();} t42067.value.structure_type24753->s0.tag = STRING_TYPE; t42067.value.structure_type24753->s0.value.string_type = t42064; t42067.value.structure_type24753->s1.tag = NULL_TYPE; t42061 = f665(t42065, t42066, t42067); /* x143457 stalin.sc:18737:657800 */ t42062.tag = STRING_TYPE; t42062.value.string_type = t42061; t42058 = f13532(t42062); /* x143456 stalin.sc:18737:657790 */ t42059 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42059==NULL) {backtrace("stalin.sc", 18737, 657789); out_of_memory_error();} t42059->s0.tag = STRUCTURE_TYPE24753; t42059->s0.value.structure_type24753 = t42058; t42059->s1.tag = NULL_TYPE; t42060 = f13740(t42059); t41995.tag = STRUCTURE_TYPE24753; t41995.value.structure_type24753 = t42060; goto l6174; l6173: /* x143468 stalin.sc:18740:657905 */ /* x143467 stalin.sc:18740:657906 */ /* x276763 stalin.sc:14693:514793 */ t41995.tag = STRING_TYPE; t41995.value.string_type = ""; l6174: /* x143454 stalin.sc:18734:657683 */ /* x143445 stalin.sc:18735:657691 */ /* x143442 stalin.sc:18735:657696 */ t42050 = a26757; /* x143444 stalin.sc:18735:657698 */ /* x143443 stalin.sc:18735:657699 */ t42053 = (struct structure_type24753 *)NULL_TYPE; t42051 = f14328(t42053); /* x143441 stalin.sc:18735:657692 */ t42052 = *((struct w49 *)(&t42051)); t42044 = f13604(t42050, t42052); /* x143450 stalin.sc:18735:657715 */ /* x143448 stalin.sc:18735:657721 */ /* x143447 stalin.sc:18735:657722 */ t42057 = (struct structure_type24753 *)NULL_TYPE; t42054 = f14328(t42057); /* x143449 stalin.sc:18735:657737 */ t42055 = a26757; /* x143446 stalin.sc:18735:657716 */ t42056 = *((struct w49 *)(&t42054)); t42045 = f13637(t42056, t42055); /* x143452 stalin.sc:18735:657740 */ /* x143451 stalin.sc:18735:657741 */ /* x276761 stalin.sc:14693:514793 */ t42046 = ""; /* x143453 stalin.sc:18735:657749 */ /* x143440 stalin.sc:18734:657684 */ t42047.tag = STRUCTURE_TYPE24753; t42047.value.structure_type24753 = t42045; t42048.tag = STRING_TYPE; t42048.value.string_type = t42046; t42049 = TRUE_TYPE; t41994 = f13672(t42044, t42047, t42048, t42049); /* x143439 stalin.sc:18730:657563 */ /* x143438 stalin.sc:18731:657582 */ /* x143437 stalin.sc:18733:657612 */ /* x143436 stalin.sc:18733:657628 */ /* x143432 stalin.sc:18733:657633 */ /* x143431 stalin.sc:18733:657634 */ t42042 = (struct structure_type24753 *)NULL_TYPE; t42038 = f14328(t42042); /* x143435 stalin.sc:18733:657649 */ /* x143434 stalin.sc:18733:657668 */ t42043 = a26755; /* x143433 stalin.sc:18733:657650 */ t42039 = f14333(t42043); /* x143430 stalin.sc:18733:657629 */ t42040 = *((struct w49 *)(&t42038)); t42041.tag = STRUCTURE_TYPE24753; t42041.value.structure_type24753 = t42039; t42036 = f13542(t42040, t42041); /* x143429 stalin.sc:18733:657613 */ t42037.tag = STRUCTURE_TYPE24753; t42037.value.structure_type24753 = t42036; t42032 = f13508(t42037); /* x143428 stalin.sc:18732:657600 */ t42031 = a1249; /* x143427 stalin.sc:18731:657583 */ t42035.tag = STRUCTURE_TYPE24753; t42035.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42035.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18731, 657582); out_of_memory_error();} t42035.value.structure_type24753->s0 = t42032; t42035.value.structure_type24753->s1.tag = NULL_TYPE; a42070 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42070==NULL) {backtrace("stalin.sc", 18731, 657582); out_of_memory_error();} a42070->s0 = t42031; a42070->s1 = t42035; /* x302392 stalin.sc:14386:505956 */ /* x302391 stalin.sc:14386:505972 */ t42033 = a42070; /* x302390 stalin.sc:14386:505957 */ t42034.tag = STRUCTURE_TYPE24753; t42034.value.structure_type24753 = t42033; t42030 = f13474(t42034); /* x143426 stalin.sc:18730:657564 */ t41993 = f13514(t42030); /* x143425 stalin.sc:18727:657403 */ /* x143424 stalin.sc:18728:657422 */ /* x143423 stalin.sc:18728:657459 */ /* x143422 stalin.sc:18728:657472 */ /* x143421 stalin.sc:18728:657473 */ t42029 = (struct structure_type24753 *)NULL_TYPE; t42027 = f14324(t42029); /* x143420 stalin.sc:18728:657460 */ t42028 = *((struct w49 *)(&t42027)); t42020 = f13516(t42028); /* x143419 stalin.sc:18728:657446 */ /* x143418 stalin.sc:18728:657456 */ t42025 = a26755; /* x143417 stalin.sc:18728:657447 */ t42026 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42026==NULL) {backtrace("stalin.sc", 18728, 657446); out_of_memory_error();} t42026->s0 = t42025; t42026->s1.tag = NULL_TYPE; t42019 = f14324(t42026); /* x143416 stalin.sc:18728:657437 */ t42018 = "struct"; /* x143415 stalin.sc:18728:657423 */ t42024.tag = STRUCTURE_TYPE24753; t42024.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42024.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18728, 657422); out_of_memory_error();} t42024.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t42024.value.structure_type24753->s0.value.structure_type24753 = t42020; t42024.value.structure_type24753->s1.tag = NULL_TYPE; t42023.tag = STRUCTURE_TYPE24753; t42023.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42023.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18728, 657422); out_of_memory_error();} t42023.value.structure_type24753->s0 = *((struct w49 *)(&t42019)); t42023.value.structure_type24753->s1 = t42024; a42069 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42069==NULL) {backtrace("stalin.sc", 18728, 657422); out_of_memory_error();} a42069->s0.tag = STRING_TYPE; a42069->s0.value.string_type = t42018; a42069->s1 = t42023; /* x302388 stalin.sc:14386:505956 */ /* x302387 stalin.sc:14386:505972 */ t42021 = a42069; /* x302386 stalin.sc:14386:505957 */ t42022.tag = STRUCTURE_TYPE24753; t42022.value.structure_type24753 = t42021; t42017 = f13474(t42022); /* x143414 stalin.sc:18727:657404 */ t41992 = f13514(t42017); /* x143413 stalin.sc:18726:657379 */ t42016.tag = STRUCTURE_TYPE24753; t42016.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42016.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18726, 657378); out_of_memory_error();} t42016.value.structure_type24753->s0 = *((struct w49 *)(&t42003)); t42016.value.structure_type24753->s1.tag = NULL_TYPE; t42015.tag = STRUCTURE_TYPE24753; t42015.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42015.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18726, 657378); out_of_memory_error();} t42015.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t42015.value.structure_type24753->s0.value.structure_type24753 = t42002; t42015.value.structure_type24753->s1 = t42016; t42014.tag = STRUCTURE_TYPE24753; t42014.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42014.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18726, 657378); out_of_memory_error();} t42014.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t42014.value.structure_type24753->s0.value.structure_type24753 = t42001; t42014.value.structure_type24753->s1 = t42015; t42013.tag = STRUCTURE_TYPE24753; t42013.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42013.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18726, 657378); out_of_memory_error();} t42013.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t42013.value.structure_type24753->s0.value.structure_type24753 = t42000; t42013.value.structure_type24753->s1 = t42014; t42012.tag = STRUCTURE_TYPE24753; t42012.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42012.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18726, 657378); out_of_memory_error();} t42012.value.structure_type24753->s0 = *((struct w49 *)(&t41999)); t42012.value.structure_type24753->s1 = t42013; t42011.tag = STRUCTURE_TYPE24753; t42011.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42011.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18726, 657378); out_of_memory_error();} t42011.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t42011.value.structure_type24753->s0.value.structure_type24753 = t41998; t42011.value.structure_type24753->s1 = t42012; t42010.tag = STRUCTURE_TYPE24753; t42010.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42010.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18726, 657378); out_of_memory_error();} t42010.value.structure_type24753->s0 = t41997; t42010.value.structure_type24753->s1 = t42011; t42009.tag = STRUCTURE_TYPE24753; t42009.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42009.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18726, 657378); out_of_memory_error();} t42009.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t42009.value.structure_type24753->s0.value.structure_type24753 = t41996; t42009.value.structure_type24753->s1 = t42010; t42008.tag = STRUCTURE_TYPE24753; t42008.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42008.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18726, 657378); out_of_memory_error();} t42008.value.structure_type24753->s0 = *((struct w49 *)(&t41995)); t42008.value.structure_type24753->s1 = t42009; t42007.tag = STRUCTURE_TYPE24753; t42007.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42007.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18726, 657378); out_of_memory_error();} t42007.value.structure_type24753->s0 = t41994; t42007.value.structure_type24753->s1 = t42008; t42006.tag = STRUCTURE_TYPE24753; t42006.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42006.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18726, 657378); out_of_memory_error();} t42006.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t42006.value.structure_type24753->s0.value.structure_type24753 = t41993; t42006.value.structure_type24753->s1 = t42007; a41903 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41903==NULL) {backtrace("stalin.sc", 18726, 657378); out_of_memory_error();} a41903->s0.tag = STRUCTURE_TYPE24753; a41903->s0.value.structure_type24753 = t41992; a41903->s1 = t42006; /* x301724 stalin.sc:14400:506485 */ /* x301723 stalin.sc:14400:506503 */ t42004 = a41903; /* x301722 stalin.sc:14400:506486 */ t42005.tag = STRUCTURE_TYPE24753; t42005.value.structure_type24753 = t42004; t41966 = f13492(t42005); /* x143588 stalin.sc:18768:658936 */ /* x143587 stalin.sc:18768:658937 */ /* x276771 stalin.sc:14693:514793 */ t41967 = ""; /* x143589 stalin.sc:18769:658952 */ /* x143390 stalin.sc:18723:657226 */ t41968.tag = STRING_TYPE; t41968.value.string_type = t41967; t41969 = FALSE_TYPE; t41948 = f13672(t41965, t41966, t41968, t41969); /* x143389 stalin.sc:18719:657091 */ /* x143372 stalin.sc:18719:657098 */ if (a675==FALSE_TYPE) goto l6170; /* x143384 */ /* x143383 */ /* x143382 */ /* x143381 stalin.sc:18720:657120 */ /* x143380 stalin.sc:18720:657130 */ t41963 = "Tmk"; /* x143379 stalin.sc:18720:657121 */ t41964.tag = STRING_TYPE; t41964.value.string_type = t41963; f18320(t41964); /* x143378 */ /* x143377 stalin.sc:18721:657164 */ /* x143376 stalin.sc:18721:657192 */ /* x143375 stalin.sc:18721:657193 */ /* x276929 stalin.sc:14555:511005 */ t41959 = "0"; /* x143374 stalin.sc:18721:657173 */ t41958 = "Tmk_lock_acquire"; /* x143373 stalin.sc:18721:657165 */ t41960.tag = STRING_TYPE; t41960.value.string_type = t41958; t41961 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41961==NULL) {backtrace("stalin.sc", 18721, 657164); out_of_memory_error();} t41961->s0.tag = STRING_TYPE; t41961->s0.value.string_type = t41959; t41961->s1.tag = NULL_TYPE; t41962 = f13645(t41960, t41961); t41947.tag = STRUCTURE_TYPE24753; t41947.value.structure_type24753 = t41962; goto l6171; l6170: /* x143388 */ /* x143387 */ /* x143386 stalin.sc:18722:657213 */ /* x143385 stalin.sc:18722:657214 */ /* x276759 stalin.sc:14693:514793 */ t41947.tag = STRING_TYPE; t41947.value.string_type = ""; l6171: /* x143371 stalin.sc:18718:657074 */ t41957.tag = STRUCTURE_TYPE24753; t41957.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41957.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18718, 657073); out_of_memory_error();} t41957.value.structure_type24753->s0 = *((struct w49 *)(&t41951)); t41957.value.structure_type24753->s1.tag = NULL_TYPE; t41956.tag = STRUCTURE_TYPE24753; t41956.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41956.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18718, 657073); out_of_memory_error();} t41956.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41956.value.structure_type24753->s0.value.structure_type24753 = t41950; t41956.value.structure_type24753->s1 = t41957; t41955.tag = STRUCTURE_TYPE24753; t41955.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41955.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18718, 657073); out_of_memory_error();} t41955.value.structure_type24753->s0 = t41949; t41955.value.structure_type24753->s1 = t41956; t41954.tag = STRUCTURE_TYPE24753; t41954.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41954.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18718, 657073); out_of_memory_error();} t41954.value.structure_type24753->s0 = t41948; t41954.value.structure_type24753->s1 = t41955; a41901 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41901==NULL) {backtrace("stalin.sc", 18718, 657073); out_of_memory_error();} a41901->s0 = *((struct w49 *)(&t41947)); a41901->s1 = t41954; /* x301716 stalin.sc:14400:506485 */ /* x301715 stalin.sc:14400:506503 */ t41952 = a41901; /* x301714 stalin.sc:14400:506486 */ t41953.tag = STRUCTURE_TYPE24753; t41953.value.structure_type24753 = t41952; return f13492(t41953); l6156: /* x143777 stalin.sc:18786:659501 */ /* x143776 stalin.sc:18810:660285 */ /* x143759 stalin.sc:18810:660292 */ if (a675==FALSE_TYPE) goto l6167; /* x143771 */ /* x143770 */ /* x143769 */ /* x143768 stalin.sc:18811:660314 */ /* x143767 stalin.sc:18811:660324 */ t41945 = "Tmk"; /* x143766 stalin.sc:18811:660315 */ t41946.tag = STRING_TYPE; t41946.value.string_type = t41945; f18320(t41946); /* x143765 */ /* x143764 stalin.sc:18812:660358 */ /* x143763 stalin.sc:18812:660386 */ /* x143762 stalin.sc:18812:660387 */ /* x276937 stalin.sc:14555:511005 */ t41941 = "0"; /* x143761 stalin.sc:18812:660367 */ t41940 = "Tmk_lock_release"; /* x143760 stalin.sc:18812:660359 */ t41942.tag = STRING_TYPE; t41942.value.string_type = t41940; t41943 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41943==NULL) {backtrace("stalin.sc", 18812, 660358); out_of_memory_error();} t41943->s0.tag = STRING_TYPE; t41943->s0.value.string_type = t41941; t41943->s1.tag = NULL_TYPE; t41944 = f13645(t41942, t41943); t41859.tag = STRUCTURE_TYPE24753; t41859.value.structure_type24753 = t41944; goto l6168; l6167: /* x143775 */ /* x143774 */ /* x143773 stalin.sc:18813:660407 */ /* x143772 stalin.sc:18813:660408 */ /* x276785 stalin.sc:14693:514793 */ t41859.tag = STRING_TYPE; t41859.value.string_type = ""; l6168: /* x143758 stalin.sc:18800:659962 */ /* x143721 stalin.sc:18801:659970 */ /* x143720 stalin.sc:18801:659976 */ t41910 = a26755; /* x143719 stalin.sc:18801:659971 */ t41908 = f14321(t41910); /* x143757 stalin.sc:18803:660021 */ /* x143724 stalin.sc:18803:660025 */ /* x143723 stalin.sc:18803:660032 */ t41911 = a1225; /* x268520 stalin.sc:18803:660026 */ switch (t41911.tag) {case FALSE_TYPE: backtrace("stalin.sc", 18803, 660025); zero_error(); break; case FIXNUM_TYPE: if (!((t41911.value.fixnum_type)==0)) goto l6164; break; default: if (!((t41911.value.flonum_type)==0.0)) goto l6164;} /* x143725 stalin.sc:18804:660062 */ t41909 = a26757; goto l6165; l6164: /* x143756 stalin.sc:18805:660070 */ /* x143727 stalin.sc:18805:660075 */ t41912 = a26757; /* x143755 stalin.sc:18807:660110 */ /* x143754 stalin.sc:18809:660231 */ /* x143753 stalin.sc:18809:660241 */ /* x143751 stalin.sc:18809:660244 */ /* x143749 stalin.sc:18809:660250 */ t41938 = 2; /* x143750 stalin.sc:18809:660252 */ t41939 = a1225; /* x268516 stalin.sc:18809:660245 */ switch (t41939.tag) {case FALSE_TYPE: backtrace("stalin.sc", 18809, 660244); expt2_error(); break; case FIXNUM_TYPE: if ((t41939.value.fixnum_type)<0) {t41936.tag = FLONUM_TYPE; t41936.value.flonum_type = pow(t41938, (t41939.value.fixnum_type));} else {t41936.tag = FIXNUM_TYPE; t41936.value.fixnum_type = ipow(t41938, (t41939.value.fixnum_type));} break; default: t41936.tag = FLONUM_TYPE; t41936.value.flonum_type = pow(t41938, (t41939.value.flonum_type));} /* x143752 stalin.sc:18809:660276 */ t41937 = 1; /* x268517 stalin.sc:18809:660242 */ if ((t41936.tag)==FIXNUM_TYPE) {t41934.tag = FIXNUM_TYPE; t41934.value.fixnum_type = (t41936.value.fixnum_type)-t41937;} else {t41934.tag = FLONUM_TYPE; t41934.value.flonum_type = (t41936.value.flonum_type)-t41937;} /* x143746 stalin.sc:18809:660232 */ t41935 = *((struct w49 *)(&t41934)); t41916 = f13530(t41935); /* x143745 stalin.sc:18807:660115 */ /* x143744 stalin.sc:18808:660170 */ /* x143737 stalin.sc:18808:660175 */ t41927 = a26757; /* x143743 stalin.sc:18808:660177 */ /* x143742 stalin.sc:18808:660187 */ /* x143740 stalin.sc:18808:660193 */ t41932 = 2; /* x143741 stalin.sc:18808:660195 */ t41933 = a1225; /* x268518 stalin.sc:18808:660188 */ switch (t41933.tag) {case FALSE_TYPE: backtrace("stalin.sc", 18808, 660187); expt2_error(); break; case FIXNUM_TYPE: if ((t41933.value.fixnum_type)<0) {t41930.tag = FLONUM_TYPE; t41930.value.flonum_type = pow(t41932, (t41933.value.fixnum_type));} else {t41930.tag = FIXNUM_TYPE; t41930.value.fixnum_type = ipow(t41932, (t41933.value.fixnum_type));} break; default: t41930.tag = FLONUM_TYPE; t41930.value.flonum_type = pow(t41932, (t41933.value.flonum_type));} /* x143738 stalin.sc:18808:660178 */ t41931 = *((struct w49 *)(&t41930)); t41928 = f13530(t41931); /* x143736 stalin.sc:18808:660171 */ t41929.tag = STRING_TYPE; t41929.value.string_type = t41928; t41920 = f13622(t41927, t41929); /* x143735 stalin.sc:18807:660120 */ /* x143734 stalin.sc:18807:660130 */ /* x143732 stalin.sc:18807:660136 */ t41925 = 2; /* x143733 stalin.sc:18807:660138 */ t41926 = a1225; /* x268519 stalin.sc:18807:660131 */ switch (t41926.tag) {case FALSE_TYPE: backtrace("stalin.sc", 18807, 660130); expt2_error(); break; case FIXNUM_TYPE: if ((t41926.value.fixnum_type)<0) {t41923.tag = FLONUM_TYPE; t41923.value.flonum_type = pow(t41925, (t41926.value.fixnum_type));} else {t41923.tag = FIXNUM_TYPE; t41923.value.fixnum_type = ipow(t41925, (t41926.value.fixnum_type));} break; default: t41923.tag = FLONUM_TYPE; t41923.value.flonum_type = pow(t41925, (t41926.value.flonum_type));} /* x143730 stalin.sc:18807:660121 */ t41924 = *((struct w49 *)(&t41923)); t41919 = f13530(t41924); /* x143729 stalin.sc:18807:660116 */ t41921.tag = STRING_TYPE; t41921.value.string_type = t41919; t41922 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41922==NULL) {backtrace("stalin.sc", 18807, 660115); out_of_memory_error();} t41922->s0.tag = STRUCTURE_TYPE24753; t41922->s0.value.structure_type24753 = t41920; t41922->s1.tag = NULL_TYPE; t41915 = f13610(t41921, t41922); /* x143728 stalin.sc:18807:660111 */ t41917 = t41915; t41918 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41918==NULL) {backtrace("stalin.sc", 18807, 660110); out_of_memory_error();} t41918->s0.tag = STRING_TYPE; t41918->s0.value.string_type = t41916; t41918->s1.tag = NULL_TYPE; t41913 = f13625(t41917, t41918); /* x143726 stalin.sc:18805:660071 */ t41914.tag = STRUCTURE_TYPE24753; t41914.value.structure_type24753 = t41913; t41909 = f13609(t41912, t41914); l6165: /* x143718 stalin.sc:18800:659963 */ t41858 = f13638(t41908, t41909); /* x143717 stalin.sc:18792:659690 */ /* x143686 stalin.sc:18792:659694 */ if (a706==FALSE_TYPE) goto l6161; /* x143714 stalin.sc:18793:659716 */ /* x143705 stalin.sc:18793:659722 */ /* x143694 stalin.sc:18793:659727 */ /* x143692 stalin.sc:18793:659732 */ /* x143691 stalin.sc:18793:659738 */ t41893 = a26755; /* x143690 stalin.sc:18793:659733 */ t41890 = f14321(t41893); /* x143693 stalin.sc:18793:659741 */ t41891 = a26757; /* x143689 stalin.sc:18793:659728 */ t41892.tag = STRUCTURE_TYPE24753; t41892.value.structure_type24753 = t41890; t41887 = f13609(t41892, t41891); /* x143704 stalin.sc:18794:659789 */ /* x143703 stalin.sc:18794:659794 */ /* x143699 stalin.sc:18794:659807 */ /* x143698 stalin.sc:18794:659817 */ t41901 = a26755; /* x143697 stalin.sc:18794:659808 */ t41902 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41902==NULL) {backtrace("stalin.sc", 18794, 659807); out_of_memory_error();} t41902->s0 = t41901; t41902->s1.tag = NULL_TYPE; t41897 = f14324(t41902); /* x143702 stalin.sc:18794:659820 */ /* x143701 stalin.sc:18794:659839 */ t41903 = a26755; /* x143700 stalin.sc:18794:659821 */ t41898 = f14333(t41903); /* x143696 stalin.sc:18794:659795 */ t41899 = *((struct w49 *)(&t41897)); t41900.tag = STRUCTURE_TYPE24753; t41900.value.structure_type24753 = t41898; t41894 = f13540(t41899, t41900); /* x143695 stalin.sc:18794:659790 */ t41895.tag = STRUCTURE_TYPE24753; t41895.value.structure_type24753 = t41894; t41896 = (struct structure_type24753 *)NULL_TYPE; t41888 = f13625(t41895, t41896); /* x143688 stalin.sc:18793:659723 */ t41889.tag = STRUCTURE_TYPE24753; t41889.value.structure_type24753 = t41888; t41881 = f13604(t41887, t41889); /* x143710 stalin.sc:18795:659849 */ /* x143707 stalin.sc:18795:659864 */ t41904 = "out_of_memory"; /* x143708 stalin.sc:18795:659880 */ t41905 = p15587->a26756; /* x143709 stalin.sc:18795:659882 */ /* x143706 stalin.sc:18795:659850 */ t41906 = *((struct w49 *)(&t41905)); t41907 = FALSE_TYPE; t41882 = f15534(t41904, t41906, t41907); /* x143712 stalin.sc:18796:659890 */ /* x143711 stalin.sc:18796:659891 */ /* x276781 stalin.sc:14693:514793 */ t41883 = ""; /* x143713 stalin.sc:18797:659903 */ /* x143687 stalin.sc:18793:659717 */ t41884.tag = STRUCTURE_TYPE24753; t41884.value.structure_type24753 = t41882; t41885.tag = STRING_TYPE; t41885.value.string_type = t41883; t41886 = FALSE_TYPE; t41857 = f13672(t41881, t41884, t41885, t41886); goto l6162; l6161: /* x143716 stalin.sc:18798:659912 */ /* x143715 stalin.sc:18798:659913 */ /* x276783 stalin.sc:14693:514793 */ t41857.tag = STRING_TYPE; t41857.value.string_type = ""; l6162: /* x143685 stalin.sc:18791:659653 */ /* x143681 stalin.sc:18791:659657 */ /* x143680 stalin.sc:18791:659663 */ t41880 = a26755; /* x143679 stalin.sc:18791:659658 */ t41874 = f14321(t41880); /* x143684 stalin.sc:18791:659666 */ /* x143678 stalin.sc:18791:659654 */ t41873 = a26758; switch (t41873.tag) {case NATIVE_PROCEDURE_TYPE18670: t41875 = (unsigned)NATIVE_PROCEDURE_TYPE19380; t41856 = f15637((t41873.value.native_procedure_type18670), t41874, t41875); break; case NATIVE_PROCEDURE_TYPE18672: t41876 = (unsigned)NATIVE_PROCEDURE_TYPE19380; t41856 = f15635((t41873.value.native_procedure_type18672), t41874, t41876); break; case NATIVE_PROCEDURE_TYPE21916: t41877 = (unsigned)NATIVE_PROCEDURE_TYPE19380; t41856 = f15609((t41873.value.native_procedure_type21916), t41874, t41877); break; case NATIVE_PROCEDURE_TYPE22025: t41878 = (unsigned)NATIVE_PROCEDURE_TYPE19380; t41856 = f15628((t41873.value.native_procedure_type22025), t41874, t41878); break; default: t41879 = (unsigned)NATIVE_PROCEDURE_TYPE19380; t41856 = f15618((t41873.value.native_procedure_type22569), t41874, t41879);} /* x143677 stalin.sc:18787:659519 */ /* x143660 stalin.sc:18787:659526 */ if (a675==FALSE_TYPE) goto l6158; /* x143672 */ /* x143671 */ /* x143670 */ /* x143669 stalin.sc:18788:659548 */ /* x143668 stalin.sc:18788:659558 */ t41871 = "Tmk"; /* x143667 stalin.sc:18788:659549 */ t41872.tag = STRING_TYPE; t41872.value.string_type = t41871; f18320(t41872); /* x143666 */ /* x143665 stalin.sc:18789:659592 */ /* x143664 stalin.sc:18789:659620 */ /* x143663 stalin.sc:18789:659621 */ /* x276935 stalin.sc:14555:511005 */ t41867 = "0"; /* x143662 stalin.sc:18789:659601 */ t41866 = "Tmk_lock_acquire"; /* x143661 stalin.sc:18789:659593 */ t41868.tag = STRING_TYPE; t41868.value.string_type = t41866; t41869 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t41869==NULL) {backtrace("stalin.sc", 18789, 659592); out_of_memory_error();} t41869->s0.tag = STRING_TYPE; t41869->s0.value.string_type = t41867; t41869->s1.tag = NULL_TYPE; t41870 = f13645(t41868, t41869); t41855.tag = STRUCTURE_TYPE24753; t41855.value.structure_type24753 = t41870; goto l6159; l6158: /* x143676 */ /* x143675 */ /* x143674 stalin.sc:18790:659641 */ /* x143673 stalin.sc:18790:659642 */ /* x276777 stalin.sc:14693:514793 */ t41855.tag = STRING_TYPE; t41855.value.string_type = ""; l6159: /* x143659 stalin.sc:18786:659502 */ t41865.tag = STRUCTURE_TYPE24753; t41865.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41865.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18786, 659501); out_of_memory_error();} t41865.value.structure_type24753->s0 = *((struct w49 *)(&t41859)); t41865.value.structure_type24753->s1.tag = NULL_TYPE; t41864.tag = STRUCTURE_TYPE24753; t41864.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41864.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18786, 659501); out_of_memory_error();} t41864.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t41864.value.structure_type24753->s0.value.structure_type24753 = t41858; t41864.value.structure_type24753->s1 = t41865; t41863.tag = STRUCTURE_TYPE24753; t41863.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41863.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18786, 659501); out_of_memory_error();} t41863.value.structure_type24753->s0 = t41857; t41863.value.structure_type24753->s1 = t41864; t41862.tag = STRUCTURE_TYPE24753; t41862.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41862.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18786, 659501); out_of_memory_error();} t41862.value.structure_type24753->s0 = t41856; t41862.value.structure_type24753->s1 = t41863; a41904 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41904==NULL) {backtrace("stalin.sc", 18786, 659501); out_of_memory_error();} a41904->s0 = *((struct w49 *)(&t41855)); a41904->s1 = t41862; /* x301728 stalin.sc:14400:506485 */ /* x301727 stalin.sc:14400:506503 */ t41860 = a41904; /* x301726 stalin.sc:14400:506486 */ t41861.tag = STRUCTURE_TYPE24753; t41861.value.structure_type24753 = t41860; return f13492(t41861); l6135: /* x143845 */ /* x143783 stalin.sc:18814:660424 */ /* x143782 stalin.sc:18814:660443 */ t41803 = a26755; /* x143781 stalin.sc:18814:660425 */ if (f13034(t41803)==FALSE_TYPE) goto l6137; /* x143808 */ /* x143807 */ t41835 = e15586; p15602 = t41835; /* x143806 stalin.sc:18817:660605 */ /* x143787 stalin.sc:18817:660609 */ /* x143786 stalin.sc:18817:660619 */ t41844 = a26757; /* x143785 stalin.sc:18817:660610 */ a25527 = t41844; /* x124957 */ /* x124950 stalin.sc:15074:525927 */ /* x124943 stalin.sc:15074:525933 */ if (a675==FALSE_TYPE) goto l6150; /* x124947 */ /* x124946 */ /* x124945 stalin.sc:15074:525947 */ /* x124944 stalin.sc:15074:525948 */ /* x296277 QobiScheme.sc:166:5314 */ /* x296276 QobiScheme.sc:166:5321 */ t41851 = "This shouldn\'t happen"; /* x296275 QobiScheme.sc:166:5315 */ stalin_panic(t41851); goto l6151; l6150: /* x124949 stalin.sc:15074:525927 */ /* x124948 stalin.sc:15074:525927 */ l6151: /* x124956 stalin.sc:15075:525959 */ /* x124955 stalin.sc:15075:525969 */ /* x124952 stalin.sc:15075:525973 */ if ((a1227.tag)==FALSE_TYPE) goto l6153; /* x124953 stalin.sc:15075:526002 */ t41852 = "malloc"; goto l6154; l6153: /* x124954 stalin.sc:15075:526011 */ t41852 = "alloca"; l6154: /* x124951 stalin.sc:15075:525960 */ t41853.tag = STRING_TYPE; t41853.value.string_type = t41852; f18320(t41853); /* x124942 */ /* x124941 stalin.sc:15076:526031 */ /* x124940 stalin.sc:15076:526042 */ /* x124939 stalin.sc:15076:526059 */ t41848 = a25527; /* x124938 stalin.sc:15076:526050 */ t41847 = "alloca"; /* x124937 stalin.sc:15076:526043 */ t41849.tag = STRING_TYPE; t41849.value.string_type = t41847; t41850.tag = STRUCTURE_TYPE24753; t41850.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41850.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15076, 526042); out_of_memory_error();} t41850.value.structure_type24753->s0 = t41848; t41850.value.structure_type24753->s1.tag = NULL_TYPE; t41845 = f13543(t41849, t41850); /* x124936 stalin.sc:15076:526032 */ t41846.tag = STRUCTURE_TYPE24753; t41846.value.structure_type24753 = t41845; t41837 = f13472(t41846); /* x143805 stalin.sc:18818:660629 */ t41838 = p15602; /* x143784 stalin.sc:18817:660606 */ t41836 = a26758; switch (t41836.tag) {case NATIVE_PROCEDURE_TYPE18670: t41839 = (unsigned)t41838; return f15637((t41836.value.native_procedure_type18670), t41837, t41839); case NATIVE_PROCEDURE_TYPE18672: t41840 = (unsigned)t41838; return f15635((t41836.value.native_procedure_type18672), t41837, t41840); case NATIVE_PROCEDURE_TYPE21916: t41841 = (unsigned)t41838; return f15609((t41836.value.native_procedure_type21916), t41837, t41841); case NATIVE_PROCEDURE_TYPE22025: t41842 = (unsigned)t41838; return f15628((t41836.value.native_procedure_type22025), t41837, t41842); default: t41843 = (unsigned)t41838; return f15618((t41836.value.native_procedure_type22569), t41837, t41843);} l6137: /* x143844 */ /* x143811 stalin.sc:18825:660855 */ /* x143810 stalin.sc:18825:660873 */ t41804 = a26755; /* x143809 stalin.sc:18825:660856 */ if (f13035(t41804)==FALSE_TYPE) goto l6139; /* x143839 */ /* x143838 */ t41806 = e15586; p15604 = t41806; /* x143837 stalin.sc:18826:660879 */ /* x143818 stalin.sc:18826:660883 */ /* x143817 stalin.sc:18826:660923 */ t41816 = a26757; /* x143816 stalin.sc:18826:660884 */ /* x143813 stalin.sc:18826:660888 */ if (a26759==FALSE_TYPE) goto l6147; /* x143814 stalin.sc:18826:660891 */ t41815 = NATIVE_PROCEDURE_TYPE6866; goto l6148; l6147: /* x143815 stalin.sc:18826:660910 */ t41815 = NATIVE_PROCEDURE_TYPE6867; l6148: if (t41815==NATIVE_PROCEDURE_TYPE6866) {a25518 = t41816; /* x124879 */ /* x124875 stalin.sc:15057:525466 */ /* x124868 stalin.sc:15057:525472 */ if (a675==FALSE_TYPE) goto l6141; /* x124872 */ /* x124871 */ /* x124870 stalin.sc:15057:525486 */ /* x124869 stalin.sc:15057:525487 */ /* x296281 QobiScheme.sc:166:5314 */ /* x296280 QobiScheme.sc:166:5321 */ t41823 = "This shouldn\'t happen"; /* x296279 QobiScheme.sc:166:5315 */ stalin_panic(t41823); goto l6142; l6141: /* x124874 stalin.sc:15057:525466 */ /* x124873 stalin.sc:15057:525466 */ l6142: /* x124878 stalin.sc:15058:525498 */ /* x124877 stalin.sc:15058:525508 */ t41824 = "gc"; /* x124876 stalin.sc:15058:525499 */ t41825.tag = STRING_TYPE; t41825.value.string_type = t41824; f18320(t41825); /* x124867 */ /* x124866 stalin.sc:15059:525535 */ /* x124865 stalin.sc:15059:525546 */ /* x124864 stalin.sc:15059:525573 */ t41820 = a25518; /* x124863 stalin.sc:15059:525554 */ t41819 = "GC_malloc_atomic"; /* x124862 stalin.sc:15059:525547 */ t41821.tag = STRING_TYPE; t41821.value.string_type = t41819; t41822.tag = STRUCTURE_TYPE24753; t41822.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41822.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15059, 525546); out_of_memory_error();} t41822.value.structure_type24753->s0 = t41820; t41822.value.structure_type24753->s1.tag = NULL_TYPE; t41817 = f13543(t41821, t41822); /* x124861 stalin.sc:15059:525536 */ t41818.tag = STRUCTURE_TYPE24753; t41818.value.structure_type24753 = t41817; t41808 = f13472(t41818);} else {a25515 = t41816; /* x124858 */ /* x124854 stalin.sc:15052:525335 */ /* x124847 stalin.sc:15052:525341 */ if (a675==FALSE_TYPE) goto l6144; /* x124851 */ /* x124850 */ /* x124849 stalin.sc:15052:525355 */ /* x124848 stalin.sc:15052:525356 */ /* x296285 QobiScheme.sc:166:5314 */ /* x296284 QobiScheme.sc:166:5321 */ t41832 = "This shouldn\'t happen"; /* x296283 QobiScheme.sc:166:5315 */ stalin_panic(t41832); goto l6145; l6144: /* x124853 stalin.sc:15052:525335 */ /* x124852 stalin.sc:15052:525335 */ l6145: /* x124857 stalin.sc:15053:525367 */ /* x124856 stalin.sc:15053:525377 */ t41833 = "gc"; /* x124855 stalin.sc:15053:525368 */ t41834.tag = STRING_TYPE; t41834.value.string_type = t41833; f18320(t41834); /* x124846 */ /* x124845 stalin.sc:15054:525397 */ /* x124844 stalin.sc:15054:525408 */ /* x124843 stalin.sc:15054:525428 */ t41829 = a25515; /* x124842 stalin.sc:15054:525416 */ t41828 = "GC_malloc"; /* x124841 stalin.sc:15054:525409 */ t41830.tag = STRING_TYPE; t41830.value.string_type = t41828; t41831.tag = STRUCTURE_TYPE24753; t41831.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t41831.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15054, 525408); out_of_memory_error();} t41831.value.structure_type24753->s0 = t41829; t41831.value.structure_type24753->s1.tag = NULL_TYPE; t41826 = f13543(t41830, t41831); /* x124840 stalin.sc:15054:525398 */ t41827.tag = STRUCTURE_TYPE24753; t41827.value.structure_type24753 = t41826; t41808 = f13472(t41827);} /* x143836 stalin.sc:18827:660933 */ t41809 = p15604; /* x143812 stalin.sc:18826:660880 */ t41807 = a26758; switch (t41807.tag) {case NATIVE_PROCEDURE_TYPE18670: t41810 = ((unsigned)t41809)+1; return f15637((t41807.value.native_procedure_type18670), t41808, t41810); case NATIVE_PROCEDURE_TYPE18672: t41811 = ((unsigned)t41809)+1; return f15635((t41807.value.native_procedure_type18672), t41808, t41811); case NATIVE_PROCEDURE_TYPE21916: t41812 = ((unsigned)t41809)+1; return f15609((t41807.value.native_procedure_type21916), t41808, t41812); case NATIVE_PROCEDURE_TYPE22025: t41813 = ((unsigned)t41809)+1; return f15628((t41807.value.native_procedure_type22025), t41808, t41813); default: t41814 = ((unsigned)t41809)+1; return f15618((t41807.value.native_procedure_type22569), t41808, t41814);} l6139: /* x143843 */ /* x143842 */ /* x143841 stalin.sc:18834:661196 */ /* x143840 stalin.sc:18834:661197 */ /* x296289 QobiScheme.sc:166:5314 */ /* x296288 QobiScheme.sc:166:5321 */ t41805 = "This shouldn\'t happen"; /* x296287 QobiScheme.sc:166:5315 */ stalin_panic(t41805);} /* COMPILE-ARITHMETIC-INTERNAL[15582] */ struct w49 f15582(struct p15573 *p15582, struct w49 a26752, struct w49 a26753, struct w49 a26754) {struct w49 r15582; struct w49 a35418; /* PAIR */ struct w49 a35419; /* PAIR */ struct w49 a35420; /* PAIR */ struct w49 a35421; /* PAIR */ struct w49 a35422; /* PAIR */ struct w49 a35423; /* PAIR */ struct w49 a35881; /* PAIR */ struct w49 a35882; /* PAIR */ struct w49 a35883; /* PAIR */ struct w49 a35884; /* PAIR */ struct w49 t42255; struct w49 t42256; struct w49 t42257; struct w49 t42258; struct w49 t42259; unsigned t42260; struct w49 t42261; char *t42262; struct w49 t42263; struct w49 t42264; struct w49 t42265; struct structure_type24753 *t42266; struct w49 t42267; struct structure_type24753 *t42268; struct w49 t42269; struct structure_type24753 *t42270; struct structure_type24753 *t42271; struct structure_type24753 *t42272; struct w49 t42273; struct structure_type24753 *t42274; struct w49 t42275; struct w49 t42276; struct p15573 *t42277; struct w49 t42278; struct w49 t42279; struct w49 t42280; struct w49 t42281; struct w49 t42282; struct w49 t42283; struct w49 t42284; struct w49 t42285; struct w49 t42286; struct p15573 *t42287; struct w49 t42288; struct w49 t42289; struct w49 t42290; struct w49 t42291; struct w49 t42292; struct w49 t42293; struct w49 t42294; unsigned t42295; struct w49 t42296; struct w49 t42297; struct w49 t42298; struct w49 t42299; struct structure_type24753 *t42300; struct structure_type24753 *t42301; struct structure_type24753 *t42302; struct structure_type24753 *t42303; struct structure_type24753 *t42304; struct structure_type24753 *t42305; struct w49 t42306; struct w49 t42307; struct w49 t42308; struct w49 t42309; struct w49 t42310; struct w49 t42311; /* x143343 stalin.sc:18689:656310 */ /* x143304 stalin.sc:18689:656314 */ /* x143303 stalin.sc:18689:656321 */ /* x143302 stalin.sc:18689:656327 */ /* x143301 stalin.sc:18689:656333 */ t42258 = a26752; /* x143300 stalin.sc:18689:656328 */ a35423 = t42258; /* x273049 */ /* x273048 */ t42259 = a35423; /* x273047 */ if (!((t42259.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29572]"); structure_ref_error();} t42256 = t42259.value.structure_type24753->s1; /* x143299 stalin.sc:18689:656322 */ a35422 = t42256; /* x273045 */ /* x273044 */ t42257 = a35422; /* x273043 */ if (!((t42257.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29571]"); structure_ref_error();} t42255 = t42257.value.structure_type24753->s1; /* x268526 stalin.sc:18689:656315 */ if (!((t42255.tag)==NULL_TYPE)) goto l6197; /* x143318 stalin.sc:18690:656346 */ /* x143308 stalin.sc:18690:656350 */ /* x143307 stalin.sc:18690:656358 */ t42306 = a26752; /* x143306 stalin.sc:18690:656351 */ t42296 = f26181(t42306); /* x143311 stalin.sc:18691:656366 */ /* x143310 stalin.sc:18691:656374 */ t42307 = a26753; /* x143309 stalin.sc:18691:656367 */ t42297 = f26181(t42307); /* x143314 stalin.sc:18692:656382 */ /* x143313 stalin.sc:18692:656389 */ t42308 = a26752; /* x143312 stalin.sc:18692:656383 */ a35881 = t42308; /* x274881 */ /* x274880 */ t42309 = a35881; /* x274879 */ if (!((t42309.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30030]"); structure_ref_error();} t42298 = t42309.value.structure_type24753->s0; /* x143317 stalin.sc:18693:656397 */ /* x143316 stalin.sc:18693:656404 */ t42310 = a26753; /* x143315 stalin.sc:18693:656398 */ a35882 = t42310; /* x274885 */ /* x274884 */ t42311 = a35882; /* x274883 */ if (!((t42311.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30031]"); structure_ref_error();} t42299 = t42311.value.structure_type24753->s0; /* x143305 stalin.sc:18690:656347 */ t42295 = p15582->a26737; switch (t42295) {case NATIVE_PROCEDURE_TYPE21096: t42300 = f16914(t42296, t42297, t42298, t42299); r15582.tag = STRUCTURE_TYPE24753; r15582.value.structure_type24753 = t42300; return r15582; case NATIVE_PROCEDURE_TYPE21115: t42301 = f16886(t42296, t42297, t42298, t42299); r15582.tag = STRUCTURE_TYPE24753; r15582.value.structure_type24753 = t42301; return r15582; case NATIVE_PROCEDURE_TYPE21140: t42302 = f17064(t42296, t42297, t42298, t42299); r15582.tag = STRUCTURE_TYPE24753; r15582.value.structure_type24753 = t42302; return r15582; case NATIVE_PROCEDURE_TYPE21253: t42303 = f17225(t42296, t42298); r15582.tag = STRUCTURE_TYPE24753; r15582.value.structure_type24753 = t42303; return r15582; case NATIVE_PROCEDURE_TYPE21262: t42304 = f17257(t42296, t42298); r15582.tag = STRUCTURE_TYPE24753; r15582.value.structure_type24753 = t42304; return r15582; case NATIVE_PROCEDURE_TYPE21293: return f17241(t42296, t42298); default: switch (t42295&3) {case 2: t42305 = f16989(((struct p16978 *)(t42295-2)), t42296, t42297, t42298, t42299); r15582.tag = STRUCTURE_TYPE24753; r15582.value.structure_type24753 = t42305; return r15582; case 0: return f17032(((struct p17017 *)t42295), t42296, t42297, t42298, t42299); default: return f16948(((struct p16937 *)(t42295-1)), t42296, t42297, t42298, t42299);}} l6197: /* x143342 stalin.sc:18694:656416 */ /* x143330 stalin.sc:18694:656420 */ /* x143323 stalin.sc:18694:656449 */ /* x143322 stalin.sc:18694:656455 */ t42281 = a26752; /* x143321 stalin.sc:18694:656450 */ a35418 = t42281; /* x273029 */ /* x273028 */ t42282 = a35418; /* x273027 */ if (!((t42282.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29567]"); structure_ref_error();} t42278 = t42282.value.structure_type24753->s1; /* x143326 stalin.sc:18694:656459 */ /* x143325 stalin.sc:18694:656465 */ t42283 = a26753; /* x143324 stalin.sc:18694:656460 */ a35419 = t42283; /* x273033 */ /* x273032 */ t42284 = a35419; /* x273031 */ if (!((t42284.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29568]"); structure_ref_error();} t42279 = t42284.value.structure_type24753->s1; /* x143329 stalin.sc:18694:656469 */ /* x143328 stalin.sc:18694:656475 */ t42285 = a26754; /* x143327 stalin.sc:18694:656470 */ a35420 = t42285; /* x273037 */ /* x273036 */ t42286 = a35420; /* x273035 */ if (!((t42286.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29569]"); structure_ref_error();} t42280 = t42286.value.structure_type24753->s1; /* x143320 stalin.sc:18694:656421 */ t42277 = p15582; t42261 = f15582(t42277, t42278, t42279, t42280); /* x143335 stalin.sc:18695:656484 */ /* x143334 stalin.sc:18695:656508 */ /* x143333 stalin.sc:18695:656514 */ t42289 = a26753; /* x143332 stalin.sc:18695:656509 */ a35421 = t42289; /* x273041 */ /* x273040 */ t42290 = a35421; /* x273039 */ if (!((t42290.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29570]"); structure_ref_error();} t42288 = t42290.value.structure_type24753->s1; /* x143331 stalin.sc:18695:656485 */ t42287 = p15582; t42262 = f15581(t42287, t42288); /* x143338 stalin.sc:18696:656523 */ /* x143337 stalin.sc:18696:656530 */ t42291 = a26752; /* x143336 stalin.sc:18696:656524 */ a35883 = t42291; /* x274889 */ /* x274888 */ t42292 = a35883; /* x274887 */ if (!((t42292.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30032]"); structure_ref_error();} t42263 = t42292.value.structure_type24753->s0; /* x143341 stalin.sc:18697:656538 */ /* x143340 stalin.sc:18697:656545 */ t42293 = a26753; /* x143339 stalin.sc:18697:656539 */ a35884 = t42293; /* x274893 */ /* x274892 */ t42294 = a35884; /* x274891 */ if (!((t42294.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30033]"); structure_ref_error();} t42264 = t42294.value.structure_type24753->s0; /* x143319 stalin.sc:18694:656417 */ t42260 = p15582->a26737; switch (t42260) {case NATIVE_PROCEDURE_TYPE21096: /* MOVE: branching squeezed to general */ if (t42262>=((char *)VALUE_OFFSET)) {t42265.tag = EXTERNAL_SYMBOL_TYPE; t42265.value.external_symbol_type = t42262;} else t42265.tag = (unsigned)t42262; t42266 = f16914(t42261, t42265, t42263, t42264); r15582.tag = STRUCTURE_TYPE24753; r15582.value.structure_type24753 = t42266; return r15582; case NATIVE_PROCEDURE_TYPE21115: /* MOVE: branching squeezed to general */ if (t42262>=((char *)VALUE_OFFSET)) {t42267.tag = EXTERNAL_SYMBOL_TYPE; t42267.value.external_symbol_type = t42262;} else t42267.tag = (unsigned)t42262; t42268 = f16886(t42261, t42267, t42263, t42264); r15582.tag = STRUCTURE_TYPE24753; r15582.value.structure_type24753 = t42268; return r15582; case NATIVE_PROCEDURE_TYPE21140: /* MOVE: branching squeezed to general */ if (t42262>=((char *)VALUE_OFFSET)) {t42269.tag = EXTERNAL_SYMBOL_TYPE; t42269.value.external_symbol_type = t42262;} else t42269.tag = (unsigned)t42262; t42270 = f17064(t42261, t42269, t42263, t42264); r15582.tag = STRUCTURE_TYPE24753; r15582.value.structure_type24753 = t42270; return r15582; case NATIVE_PROCEDURE_TYPE21253: t42271 = f17225(t42261, t42263); r15582.tag = STRUCTURE_TYPE24753; r15582.value.structure_type24753 = t42271; return r15582; case NATIVE_PROCEDURE_TYPE21262: t42272 = f17257(t42261, t42263); r15582.tag = STRUCTURE_TYPE24753; r15582.value.structure_type24753 = t42272; return r15582; case NATIVE_PROCEDURE_TYPE21293: return f17241(t42261, t42263); default: switch (t42260&3) {case 2: /* MOVE: branching squeezed to general */ if (t42262>=((char *)VALUE_OFFSET)) {t42273.tag = EXTERNAL_SYMBOL_TYPE; t42273.value.external_symbol_type = t42262;} else t42273.tag = (unsigned)t42262; t42274 = f16989(((struct p16978 *)(t42260-2)), t42261, t42273, t42263, t42264); r15582.tag = STRUCTURE_TYPE24753; r15582.value.structure_type24753 = t42274; return r15582; case 0: /* MOVE: branching squeezed to general */ if (t42262>=((char *)VALUE_OFFSET)) {t42275.tag = EXTERNAL_SYMBOL_TYPE; t42275.value.external_symbol_type = t42262;} else t42275.tag = (unsigned)t42262; return f17032(((struct p17017 *)t42260), t42261, t42275, t42263, t42264); default: /* MOVE: branching squeezed to general */ if (t42262>=((char *)VALUE_OFFSET)) {t42276.tag = EXTERNAL_SYMBOL_TYPE; t42276.value.external_symbol_type = t42262;} else t42276.tag = (unsigned)t42262; return f16948(((struct p16937 *)(t42260-1)), t42261, t42276, t42263, t42264);}}} /* ARITHMETIC-RESULT-TYPE[15581] */ char *f15581(struct p15573 *p15581, struct w49 a26751) {struct w49 a35424; /* PAIR */ struct w49 a35425; /* PAIR */ struct w49 a35426; /* PAIR */ struct w49 a35885; /* PAIR */ struct w49 a35886; /* PAIR */ struct w49 t42312; struct w49 t42313; struct w49 t42314; struct w49 t42315; struct w49 t42316; unsigned t42317; char *t42318; struct w49 t42319; struct w49 t42320; struct w49 t42321; struct w49 t42322; struct w49 t42323; struct w49 t42324; struct w49 t42325; struct p15573 *t42326; struct w49 t42327; struct w49 t42328; struct w49 t42329; struct w49 t42330; struct w49 t42331; unsigned t42332; struct w49 t42333; struct w49 t42334; struct w49 t42335; struct w49 t42336; struct w49 t42337; /* x143295 stalin.sc:18685:656134 */ /* x143276 stalin.sc:18685:656138 */ /* x143275 stalin.sc:18685:656145 */ /* x143274 stalin.sc:18685:656151 */ /* x143273 stalin.sc:18685:656157 */ t42315 = a26751; /* x143272 stalin.sc:18685:656152 */ a35426 = t42315; /* x273061 */ /* x273060 */ t42316 = a35426; /* x273059 */ if (!((t42316.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29575]"); structure_ref_error();} t42313 = t42316.value.structure_type24753->s1; /* x143271 stalin.sc:18685:656146 */ a35425 = t42313; /* x273057 */ /* x273056 */ t42314 = a35425; /* x273055 */ if (!((t42314.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29574]"); structure_ref_error();} t42312 = t42314.value.structure_type24753->s1; /* x268527 stalin.sc:18685:656139 */ if (!((t42312.tag)==NULL_TYPE)) goto l6199; /* x143284 stalin.sc:18686:656170 */ /* x143280 stalin.sc:18686:656174 */ /* x143279 stalin.sc:18686:656182 */ t42335 = a26751; /* x143278 stalin.sc:18686:656175 */ t42333 = f26181(t42335); /* x143283 stalin.sc:18686:656186 */ /* x143282 stalin.sc:18686:656193 */ t42336 = a26751; /* x143281 stalin.sc:18686:656187 */ a35885 = t42336; /* x274897 */ /* x274896 */ t42337 = a35885; /* x274895 */ if (!((t42337.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30034]"); structure_ref_error();} t42334 = t42337.value.structure_type24753->s0; /* x143277 stalin.sc:18686:656171 */ t42332 = p15581->a26736; switch (t42332) {case NATIVE_PROCEDURE_TYPE21097: return f16913(t42333, t42334); case NATIVE_PROCEDURE_TYPE21116: return f16885(t42333, t42334); case NATIVE_PROCEDURE_TYPE21124: return f16984(t42333, t42334); case NATIVE_PROCEDURE_TYPE21141: return f17062(t42333, t42334); case NATIVE_PROCEDURE_TYPE21189: return f17027(t42333, t42334); case NATIVE_PROCEDURE_TYPE21212: return f16943(t42333, t42334); case NATIVE_PROCEDURE_TYPE21254: /* x161528 stalin.sc:22728:793378 */ return a1969; case NATIVE_PROCEDURE_TYPE21263: /* x161718 stalin.sc:22776:795028 */ return a1969; default: /* x161623 stalin.sc:22752:794198 */ return a1969;} l6199: /* x143294 stalin.sc:18687:656205 */ /* x143290 stalin.sc:18687:656209 */ /* x143289 stalin.sc:18687:656233 */ /* x143288 stalin.sc:18687:656239 */ t42328 = a26751; /* x143287 stalin.sc:18687:656234 */ a35424 = t42328; /* x273053 */ /* x273052 */ t42329 = a35424; /* x273051 */ if (!((t42329.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29573]"); structure_ref_error();} t42327 = t42329.value.structure_type24753->s1; /* x143286 stalin.sc:18687:656210 */ t42326 = p15581; t42318 = f15581(t42326, t42327); /* x143293 stalin.sc:18687:656244 */ /* x143292 stalin.sc:18687:656251 */ t42330 = a26751; /* x143291 stalin.sc:18687:656245 */ a35886 = t42330; /* x274901 */ /* x274900 */ t42331 = a35886; /* x274899 */ if (!((t42331.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30035]"); structure_ref_error();} t42319 = t42331.value.structure_type24753->s0; /* x143285 stalin.sc:18687:656206 */ t42317 = p15581->a26736; switch (t42317) {case NATIVE_PROCEDURE_TYPE21097: /* MOVE: branching squeezed to general */ if (t42318>=((char *)VALUE_OFFSET)) {t42320.tag = EXTERNAL_SYMBOL_TYPE; t42320.value.external_symbol_type = t42318;} else t42320.tag = (unsigned)t42318; return f16913(t42320, t42319); case NATIVE_PROCEDURE_TYPE21116: /* MOVE: branching squeezed to general */ if (t42318>=((char *)VALUE_OFFSET)) {t42321.tag = EXTERNAL_SYMBOL_TYPE; t42321.value.external_symbol_type = t42318;} else t42321.tag = (unsigned)t42318; return f16885(t42321, t42319); case NATIVE_PROCEDURE_TYPE21124: /* MOVE: branching squeezed to general */ if (t42318>=((char *)VALUE_OFFSET)) {t42322.tag = EXTERNAL_SYMBOL_TYPE; t42322.value.external_symbol_type = t42318;} else t42322.tag = (unsigned)t42318; return f16984(t42322, t42319); case NATIVE_PROCEDURE_TYPE21141: /* MOVE: branching squeezed to general */ if (t42318>=((char *)VALUE_OFFSET)) {t42323.tag = EXTERNAL_SYMBOL_TYPE; t42323.value.external_symbol_type = t42318;} else t42323.tag = (unsigned)t42318; return f17062(t42323, t42319); case NATIVE_PROCEDURE_TYPE21189: /* MOVE: branching squeezed to general */ if (t42318>=((char *)VALUE_OFFSET)) {t42324.tag = EXTERNAL_SYMBOL_TYPE; t42324.value.external_symbol_type = t42318;} else t42324.tag = (unsigned)t42318; return f17027(t42324, t42319); case NATIVE_PROCEDURE_TYPE21212: /* MOVE: branching squeezed to general */ if (t42318>=((char *)VALUE_OFFSET)) {t42325.tag = EXTERNAL_SYMBOL_TYPE; t42325.value.external_symbol_type = t42318;} else t42325.tag = (unsigned)t42318; return f16943(t42325, t42319); case NATIVE_PROCEDURE_TYPE21254: /* x276303 stalin.sc:22728:793378 */ return a1969; case NATIVE_PROCEDURE_TYPE21263: /* x276299 stalin.sc:22776:795028 */ return a1969; default: /* x276301 stalin.sc:22752:794198 */ return a1969;}} /* [inside LOOP 15580] */ struct structure_type24753 *f15580(struct p15573 *p15580, unsigned a26750) {char *t42338; struct structure_type27745 *t42339; unsigned t42340; struct w49 t42341; /* x143265 stalin.sc:18711:656882 */ /* x143262 stalin.sc:18711:656897 */ t42338 = p15580->a26738; /* x143263 stalin.sc:18711:656900 */ t42339 = p15580->a26733; /* x143264 stalin.sc:18711:656902 */ t42340 = a26750; /* x143261 stalin.sc:18711:656883 */ t42341.tag = STRUCTURE_TYPE27745; t42341.value.structure_type27745 = t42339; return f15534(t42338, t42341, t42340);} /* [inside LOOP 15579] */ struct w49 f15579(void) {struct p15576 *p15579 = d15579; struct w49 a26749 = b26749; /* U */ struct w49 a35427; /* PAIR */ struct w49 a35428; /* PAIR */ struct w49 a35887; /* PAIR */ struct w49 a35888; /* PAIR */ struct p15573 *t42342; struct w49 t42343; struct w49 t42344; struct structure_type24753 *t42345; struct structure_type24753 *t42346; struct w49 t42347; struct w49 t42348; struct w49 t42349; struct w49 t42350; struct w49 t42351; struct structure_type24753 *t42352; struct w49 t42353; struct w49 t42354; struct w49 t42355; struct w49 t42356; struct w49 t42357; struct w49 t42358; struct w49 t42359; struct w49 t42360; struct structure_type24753 *t42361; /* x143259 stalin.sc:18707:656761 */ /* x143239 stalin.sc:18707:656767 */ /* x143238 stalin.sc:18707:656773 */ t42347 = p15579->a26741; /* x143237 stalin.sc:18707:656768 */ a35427 = t42347; /* x273065 */ /* x273064 */ t42348 = a35427; /* x273063 */ if (!((t42348.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29576]"); structure_ref_error();} t42343 = t42348.value.structure_type24753->s1; /* x143242 stalin.sc:18708:656783 */ /* x143241 stalin.sc:18708:656789 */ t42349 = p15579->a26742; /* x143240 stalin.sc:18708:656784 */ a35428 = t42349; /* x273069 */ /* x273068 */ t42350 = a35428; /* x273067 */ if (!((t42350.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29577]"); structure_ref_error();} t42344 = t42350.value.structure_type24753->s1; /* x143254 stalin.sc:18709:656799 */ /* x143252 stalin.sc:18709:656805 */ /* x143247 stalin.sc:18709:656814 */ /* x143246 stalin.sc:18709:656821 */ t42356 = p15579->a26741; /* x143245 stalin.sc:18709:656815 */ a35887 = t42356; /* x274905 */ /* x274904 */ t42357 = a35887; /* x274903 */ if (!((t42357.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30036]"); structure_ref_error();} t42353 = t42357.value.structure_type24753->s0; /* x143248 stalin.sc:18709:656826 */ t42354 = a26749; /* x143251 stalin.sc:18709:656828 */ /* x143250 stalin.sc:18709:656835 */ t42358 = p15579->a26742; /* x143249 stalin.sc:18709:656829 */ a35888 = t42358; /* x274909 */ /* x274908 */ t42359 = a35888; /* x274907 */ if (!((t42359.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30037]"); structure_ref_error();} t42355 = t42359.value.structure_type24753->s0; /* x143244 stalin.sc:18709:656806 */ t42351 = f14485(t42353, t42354, t42355); /* x143253 stalin.sc:18709:656841 */ t42352 = p15579->a26743; /* x268529 stalin.sc:18709:656800 */ t42345 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42345==NULL) {backtrace("stalin.sc", 18709, 656799); out_of_memory_error();} t42345->s0 = t42351; /* MOVE: branching squeezed to general */ if (t42352>=((struct structure_type24753 *)VALUE_OFFSET)) {t42345->s1.tag = STRUCTURE_TYPE24753; t42345->s1.value.structure_type24753 = t42352;} else t42345->s1.tag = (unsigned)t42352; /* x143258 stalin.sc:18710:656850 */ /* x143256 stalin.sc:18710:656856 */ t42360 = a26749; /* x143257 stalin.sc:18710:656858 */ t42361 = p15579->a26744; /* x268528 stalin.sc:18710:656851 */ t42346 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42346==NULL) {backtrace("stalin.sc", 18710, 656850); out_of_memory_error();} t42346->s0 = t42360; /* MOVE: branching squeezed to general */ if (t42361>=((struct structure_type24753 *)VALUE_OFFSET)) {t42346->s1.tag = STRUCTURE_TYPE24753; t42346->s1.value.structure_type24753 = t42361;} else t42346->s1.tag = (unsigned)t42361; /* x143236 stalin.sc:18707:656762 */ t42342 = p15579->p15573; d15576 = t42342; b26741 = t42343; b26742 = t42344; b26743 = t42345; b26744 = t42346; return f15576();} /* LOOP[15576] */ struct w49 f15576(void) {struct p15573 *p15576 = d15576; struct w49 a26741 = b26741; /* CS0 */ struct w49 a26742 = b26742; /* WS0 */ struct structure_type24753 *a26743 = b26743; /* CS */ struct structure_type24753 *a26744 = b26744; /* US */ struct w16638 a35889; /* PAIR */ struct w49 a35890; /* PAIR */ struct p15576 *t42362; struct p15576 *t42363; struct w49 t42364; unsigned t42365; struct w49 t42366; struct structure_type27501 *t42367; struct w49 t42368; struct p15576 *t42369; struct p15573 *t42370; struct w16638 t42371; struct w16638 t42372; struct w49 t42373; struct w49 t42374; struct structure_type27501 *t42375; struct w49 t42376; char *t42377; struct w49 t42378; struct p15573 *t42379; struct structure_type24753 *t42380; struct structure_type24753 *t42381; struct w12224 t42382; struct w49 t42383; struct w49 t42384; struct w49 t42385; struct w49 t42386; struct p15573 *t42387; struct structure_type24753 *t42388; struct w49 t42389; struct p15576 *e15576; struct p15576 *p15577; struct p15576 *p15578; e15576 = (struct p15576 *)GC_malloc(sizeof(struct p15576)); if (e15576==NULL) {backtrace_internal("[inside COMPILE-ARITHMETIC 15574]"); out_of_memory_error();} e15576->p15573 = p15576; e15576->a26741 = a26741; e15576->a26742 = a26742; e15576->a26743 = a26743; e15576->a26744 = a26744; /* x143352 */ /* x143349 */ /* x143348 */ /* x143351 */ /* x143350 */ /* x143347 */ t42362 = e15576; p15577 = t42362; /* x143346 */ /* x143297 */ /* x143296 */ /* x143345 */ /* x143344 */ /* x143269 */ t42363 = p15577; p15578 = t42363; /* x143268 stalin.sc:18698:656554 */ /* x143213 stalin.sc:18698:656558 */ /* x143212 stalin.sc:18698:656565 */ t42364 = p15578->a26742; /* x268530 stalin.sc:18698:656559 */ if (!((t42364.tag)==NULL_TYPE)) goto l6201; /* x143226 stalin.sc:18699:656576 */ /* x143215 stalin.sc:18699:656588 */ t42375 = p15578->p15573->a26732; /* x143222 stalin.sc:18700:656594 */ /* x143217 stalin.sc:18700:656623 */ t42380 = p15578->a26743; /* x143218 stalin.sc:18700:656626 */ t42381 = p15578->a26744; /* x143221 stalin.sc:18700:656629 */ /* x143220 stalin.sc:18700:656638 */ t42386 = p15578->p15573->a26735; /* x143219 stalin.sc:18700:656630 */ t42382 = f26331(t42386); /* x143216 stalin.sc:18700:656595 */ t42379 = p15578->p15573; /* MOVE: branching squeezed to general */ if (t42380>=((struct structure_type24753 *)VALUE_OFFSET)) {t42383.tag = STRUCTURE_TYPE24753; t42383.value.structure_type24753 = t42380;} else t42383.tag = (unsigned)t42380; /* MOVE: branching squeezed to general */ if (t42381>=((struct structure_type24753 *)VALUE_OFFSET)) {t42384.tag = STRUCTURE_TYPE24753; t42384.value.structure_type24753 = t42381;} else t42384.tag = (unsigned)t42381; t42385 = *((struct w49 *)(&t42382)); t42376 = f15582(t42379, t42383, t42384, t42385); /* x143225 stalin.sc:18701:656647 */ /* x143224 stalin.sc:18701:656671 */ t42388 = p15578->a26744; /* x143223 stalin.sc:18701:656648 */ t42387 = p15578->p15573; /* MOVE: branching squeezed to general */ if (t42388>=((struct structure_type24753 *)VALUE_OFFSET)) {t42389.tag = STRUCTURE_TYPE24753; t42389.value.structure_type24753 = t42388;} else t42389.tag = (unsigned)t42388; t42377 = f15581(t42387, t42389); /* x143214 stalin.sc:18699:656577 */ /* MOVE: branching squeezed to general */ if (t42377>=((char *)VALUE_OFFSET)) {t42378.tag = EXTERNAL_SYMBOL_TYPE; t42378.value.external_symbol_type = t42377;} else t42378.tag = (unsigned)t42377; return f15499(t42375, t42376, t42378); l6201: /* x143267 stalin.sc:18702:656682 */ /* x143228 stalin.sc:18702:656695 */ t42365 = p15578->p15573->a26731; /* x143231 stalin.sc:18703:656702 */ /* x143230 stalin.sc:18703:656709 */ t42371 = *((struct w16638 *)(&(p15578->a26742))); /* x143229 stalin.sc:18703:656703 */ a35889 = t42371; /* x274913 */ /* x274912 */ t42372 = a35889; /* x274911 */ if (!((t42372.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30038]"); structure_ref_error();} t42366 = t42372.value.structure_type24753->s0; /* x143232 stalin.sc:18704:656719 */ t42367 = p15578->p15573->a26732; /* x143235 stalin.sc:18705:656726 */ /* x143234 stalin.sc:18705:656733 */ t42373 = p15578->a26741; /* x143233 stalin.sc:18705:656727 */ a35890 = t42373; /* x274917 */ /* x274916 */ t42374 = a35890; /* x274915 */ if (!((t42374.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30039]"); structure_ref_error();} t42368 = t42374.value.structure_type24753->s0; /* x143260 stalin.sc:18706:656743 */ t42369 = p15578; /* x143266 stalin.sc:18711:656869 */ t42370 = p15578->p15573; /* x143227 stalin.sc:18702:656683 */ b26111 = (unsigned)t42365; b26112 = t42366; b26113 = t42367; b26114 = t42368; b26115.tag = NATIVE_PROCEDURE_TYPE21109; b26115.value.native_procedure_type21109 = t42369; b26116.tag = NATIVE_PROCEDURE_TYPE21108; b26116.value.native_procedure_type21108 = t42370; return f14692();} /* COMPILE-ARITHMETIC[15573] */ struct w49 f15573(void) {unsigned a26731 = b26731; /* M */ struct structure_type27501 *a26732 = b26732; /* R */ struct structure_type27745 *a26733 = b26733; /* Y */ struct w49 a26734 = b26734; /* CS */ struct w49 a26735 = b26735; /* WS */ unsigned a26736 = b26736; /* U1 */ unsigned a26737 = b26737; /* C1 */ char *a26738 = b26738; /* C2 */ struct p15573 *t42390; struct w49 t42391; struct w49 t42392; struct p15573 *t42393; struct p15573 *t42394; struct p15573 *e15573; struct p15573 *p15574; struct p15573 *p15575; e15573 = (struct p15573 *)GC_malloc(sizeof(struct p15573)); if (e15573==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e15573->a26731 = a26731; e15573->a26732 = a26732; e15573->a26733 = a26733; e15573->a26735 = a26735; e15573->a26736 = a26736; e15573->a26737 = a26737; e15573->a26738 = a26738; /* x143364 stalin.sc:18683:656045 */ /* x143360 stalin.sc:18683:656061 */ t42391 = a26734; /* x143361 stalin.sc:18683:656070 */ t42392 = e15573->a26735; /* x143362 stalin.sc:18683:656078 */ /* x143363 stalin.sc:18683:656087 */ /* x143359 */ /* x143358 */ /* x143357 */ /* x143356 */ t42393 = e15573; p15574 = t42393; /* x143355 */ /* x143354 */ /* x143353 */ /* x143210 */ t42394 = p15574; p15575 = t42394; /* x143209 stalin.sc:18683:656050 */ t42390 = p15575; d15576 = t42390; b26741 = t42391; b26742 = t42392; b26743 = (struct structure_type24753 *)NULL_TYPE; b26744 = (struct structure_type24753 *)NULL_TYPE; return f15576();} /* [inside LOOP 15571] */ struct structure_type24753 *f15571(struct p15564 *p15571, unsigned a26730) {char *t42395; struct structure_type27745 *t42396; unsigned t42397; struct w49 t42398; /* x143191 stalin.sc:18678:655861 */ /* x143188 stalin.sc:18678:655876 */ t42395 = p15571->a26717; /* x143189 stalin.sc:18678:655879 */ t42396 = p15571->a26713; /* x143190 stalin.sc:18678:655881 */ t42397 = a26730; /* x143187 stalin.sc:18678:655862 */ t42398.tag = STRUCTURE_TYPE27745; t42398.value.structure_type27745 = t42396; return f15534(t42395, t42398, t42397);} /* [inside LOOP 15570] */ struct w49 f15570(void) {struct p15567 *p15570 = d15570; struct w49 a26729 = b26729; /* U */ struct w49 a35432; /* PAIR */ struct w49 a35433; /* PAIR */ struct w49 a35891; /* PAIR */ struct w49 a35892; /* PAIR */ struct p15564 *t42399; struct w49 t42400; struct w49 t42401; struct structure_type24753 *t42402; struct structure_type24753 *t42403; struct w49 t42404; struct w49 t42405; struct w49 t42406; struct w49 t42407; struct w49 t42408; struct structure_type24753 *t42409; struct w49 t42410; struct w49 t42411; struct w49 t42412; struct w49 t42413; struct w49 t42414; struct w49 t42415; struct w49 t42416; struct w49 t42417; struct structure_type24753 *t42418; /* x143185 stalin.sc:18674:655743 */ /* x143165 stalin.sc:18674:655749 */ /* x143164 stalin.sc:18674:655755 */ t42404 = p15570->a26720; /* x143163 stalin.sc:18674:655750 */ a35432 = t42404; /* x273085 */ /* x273084 */ t42405 = a35432; /* x273083 */ if (!((t42405.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29581]"); structure_ref_error();} t42400 = t42405.value.structure_type24753->s1; /* x143168 stalin.sc:18675:655764 */ /* x143167 stalin.sc:18675:655770 */ t42406 = p15570->a26721; /* x143166 stalin.sc:18675:655765 */ a35433 = t42406; /* x273089 */ /* x273088 */ t42407 = a35433; /* x273087 */ if (!((t42407.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29582]"); structure_ref_error();} t42401 = t42407.value.structure_type24753->s1; /* x143180 stalin.sc:18676:655779 */ /* x143178 stalin.sc:18676:655785 */ /* x143173 stalin.sc:18676:655794 */ /* x143172 stalin.sc:18676:655801 */ t42413 = p15570->a26720; /* x143171 stalin.sc:18676:655795 */ a35891 = t42413; /* x274921 */ /* x274920 */ t42414 = a35891; /* x274919 */ if (!((t42414.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30040]"); structure_ref_error();} t42410 = t42414.value.structure_type24753->s0; /* x143174 stalin.sc:18676:655805 */ t42411 = a26729; /* x143177 stalin.sc:18676:655807 */ /* x143176 stalin.sc:18676:655814 */ t42415 = p15570->a26721; /* x143175 stalin.sc:18676:655808 */ a35892 = t42415; /* x274925 */ /* x274924 */ t42416 = a35892; /* x274923 */ if (!((t42416.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30041]"); structure_ref_error();} t42412 = t42416.value.structure_type24753->s0; /* x143170 stalin.sc:18676:655786 */ t42408 = f14485(t42410, t42411, t42412); /* x143179 stalin.sc:18676:655819 */ t42409 = p15570->a26722; /* x268532 stalin.sc:18676:655780 */ t42402 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42402==NULL) {backtrace("stalin.sc", 18676, 655779); out_of_memory_error();} t42402->s0 = t42408; /* MOVE: branching squeezed to general */ if (t42409>=((struct structure_type24753 *)VALUE_OFFSET)) {t42402->s1.tag = STRUCTURE_TYPE24753; t42402->s1.value.structure_type24753 = t42409;} else t42402->s1.tag = (unsigned)t42409; /* x143184 stalin.sc:18677:655829 */ /* x143182 stalin.sc:18677:655835 */ t42417 = a26729; /* x143183 stalin.sc:18677:655837 */ t42418 = p15570->a26723; /* x268531 stalin.sc:18677:655830 */ t42403 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42403==NULL) {backtrace("stalin.sc", 18677, 655829); out_of_memory_error();} t42403->s0 = t42417; /* MOVE: branching squeezed to general */ if (t42418>=((struct structure_type24753 *)VALUE_OFFSET)) {t42403->s1.tag = STRUCTURE_TYPE24753; t42403->s1.value.structure_type24753 = t42418;} else t42403->s1.tag = (unsigned)t42418; /* x143162 stalin.sc:18674:655744 */ t42399 = p15570->p15564; d15567 = t42399; b26720 = t42400; b26721 = t42401; b26722 = t42402; b26723 = t42403; return f15567();} /* LOOP[15567] */ struct w49 f15567(void) {struct p15564 *p15567 = d15567; struct w49 a26720 = b26720; /* CS */ struct w49 a26721 = b26721; /* WS */ struct structure_type24753 *a26722 = b26722; /* CS1 */ struct structure_type24753 *a26723 = b26723; /* US */ struct w12224 a26724; /* CS1 */ struct w12224 a35430; /* PAIR */ struct structure_type24753 *a35431; /* PAIR */ struct w49 a35893; /* PAIR */ struct w16638 a35894; /* PAIR */ struct w49 t42419; struct w49 t42420; struct structure_type27501 *t42421; struct w49 t42422; struct p15567 *t42423; struct p15564 *t42424; struct w49 t42425; struct w49 t42426; struct w16638 t42427; struct w16638 t42428; struct p15567 *t42429; struct w12224 t42430; struct structure_type27501 *t42431; struct structure_type24753 *t42432; struct structure_type24753 *t42433; struct structure_type24753 *t42434; struct p15564 *t42435; struct w12224 t42436; struct w49 t42437; struct w12224 t42438; struct w49 t42439; struct w36270 t42440; struct w49 t42441; struct structure_type24753 *t42442; struct w49 t42443; struct w49 t42444; struct w12224 t42445; struct w49 t42446; struct w12224 t42447; struct w12224 t42448; struct structure_type24753 *t42449; struct w49 t42450; struct structure_type24753 *t42451; struct structure_type24753 *t42452; struct structure_type24753 *t42453; struct w49 t42454; struct p15567 *e15567; struct p15567 *p15568; e15567 = (struct p15567 *)GC_malloc(sizeof(struct p15567)); if (e15567==NULL) {backtrace_internal("[inside COMPILE-COMPARISON 15565]"); out_of_memory_error();} e15567->p15564 = p15567; e15567->a26720 = a26720; e15567->a26721 = a26721; e15567->a26722 = a26722; e15567->a26723 = a26723; /* x143194 stalin.sc:18659:655433 */ /* x143120 stalin.sc:18659:655437 */ /* x143119 stalin.sc:18659:655444 */ t42419 = e15567->a26720; /* x268534 stalin.sc:18659:655438 */ if (!((t42419.tag)==NULL_TYPE)) goto l6203; /* x143152 stalin.sc:18660:655454 */ /* x143151 stalin.sc:18660:655465 */ /* x143150 stalin.sc:18660:655474 */ t42453 = e15567->a26722; /* x143149 stalin.sc:18660:655466 */ /* MOVE: branching squeezed to general */ if (t42453>=((struct structure_type24753 *)VALUE_OFFSET)) {t42454.tag = STRUCTURE_TYPE24753; t42454.value.structure_type24753 = t42453;} else t42454.tag = (unsigned)t42453; t42430 = f26331(t42454); /* x143148 */ t42429 = e15567; p15568 = t42429; a26724 = t42430; /* x143147 stalin.sc:18661:655488 */ /* x143122 stalin.sc:18662:655503 */ t42431 = p15568->p15564->a26712; /* x143146 stalin.sc:18663:655506 */ /* x143124 stalin.sc:18663:655513 */ /* x143145 stalin.sc:18664:655526 */ /* x143144 stalin.sc:18668:655635 */ /* x143143 stalin.sc:18668:655641 */ t42451 = p15568->a26723; /* x143142 stalin.sc:18668:655636 */ a35431 = t42451; /* x273081 */ /* x273080 */ t42452 = a35431; /* x273079 */ if (!(t42452>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CDR[26177] 29580]"); structure_ref_error();} t42439 = t42452->s1; /* x143141 stalin.sc:18667:655615 */ /* x143140 stalin.sc:18667:655625 */ t42449 = p15568->a26723; /* x143139 stalin.sc:18667:655616 */ /* MOVE: branching squeezed to general */ if (t42449>=((struct structure_type24753 *)VALUE_OFFSET)) {t42450.tag = STRUCTURE_TYPE24753; t42450.value.structure_type24753 = t42449;} else t42450.tag = (unsigned)t42449; t42438 = f1005(t42450); /* x143138 stalin.sc:18666:655598 */ /* x143137 stalin.sc:18666:655604 */ t42447 = a26724; /* x143136 stalin.sc:18666:655599 */ a35430 = t42447; /* x273077 */ /* x273076 */ t42448 = a35430; /* x273075 */ if (!((t42448.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29579]"); structure_ref_error();} t42437 = t42448.value.structure_type24753->s1; /* x143135 stalin.sc:18665:655577 */ /* x143134 stalin.sc:18665:655587 */ t42445 = a26724; /* x143133 stalin.sc:18665:655578 */ t42446 = *((struct w49 *)(&t42445)); t42436 = f1005(t42446); /* x143132 stalin.sc:18664:655531 */ t42435 = p15568->p15564; /* x143125 stalin.sc:18664:655527 */ t42440.tag = NATIVE_PROCEDURE_TYPE21062; t42440.value.native_procedure_type21062 = t42435; t42441 = *((struct w49 *)(&t42436)); t42444.tag = STRUCTURE_TYPE24753; t42444.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42444.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18664, 655526); out_of_memory_error();} t42444.value.structure_type24753->s0 = t42439; t42444.value.structure_type24753->s1.tag = NULL_TYPE; t42443.tag = STRUCTURE_TYPE24753; t42443.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42443.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18664, 655526); out_of_memory_error();} t42443.value.structure_type24753->s0 = *((struct w49 *)(&t42438)); t42443.value.structure_type24753->s1 = t42444; t42442 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42442==NULL) {backtrace("stalin.sc", 18664, 655526); out_of_memory_error();} t42442->s0 = t42437; t42442->s1 = t42443; t42433 = f27731(t42440, t42441, t42442); /* x268533 stalin.sc:18663:655507 */ t42434 = t42433; t42432 = f13564(t42434); /* x143121 stalin.sc:18661:655489 */ return f14709(t42431, t42432); l6203: /* x143193 stalin.sc:18669:655655 */ /* x143154 stalin.sc:18669:655668 */ /* x143157 stalin.sc:18670:655686 */ /* x143156 stalin.sc:18670:655693 */ t42425 = e15567->a26721; /* x143155 stalin.sc:18670:655687 */ a35893 = t42425; /* x274929 */ /* x274928 */ t42426 = a35893; /* x274927 */ if (!((t42426.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30042]"); structure_ref_error();} t42420 = t42426.value.structure_type24753->s0; /* x143158 stalin.sc:18671:655702 */ t42421 = p15567->a26712; /* x143161 stalin.sc:18672:655709 */ /* x143160 stalin.sc:18672:655716 */ t42427 = *((struct w16638 *)(&(e15567->a26720))); /* x143159 stalin.sc:18672:655710 */ a35894 = t42427; /* x274933 */ /* x274932 */ t42428 = a35894; /* x274931 */ if (!((t42428.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30043]"); structure_ref_error();} t42422 = t42428.value.structure_type24753->s0; /* x143186 stalin.sc:18673:655725 */ t42423 = e15567; /* x143192 stalin.sc:18678:655848 */ t42424 = p15567; /* x143153 stalin.sc:18669:655656 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7426; b26112 = t42420; b26113 = t42421; b26114 = t42422; b26115.tag = NATIVE_PROCEDURE_TYPE21060; b26115.value.native_procedure_type21060 = t42423; b26116.tag = NATIVE_PROCEDURE_TYPE21059; b26116.value.native_procedure_type21059 = t42424; return f14692();} /* COMPILE-COMPARISON[15564] */ struct w49 f15564(void) {struct structure_type27501 *a26712 = b26712; /* R */ struct structure_type27745 *a26713 = b26713; /* Y */ struct w49 a26714 = b26714; /* CS */ struct w49 a26715 = b26715; /* WS */ unsigned a26716 = b26716; /* C1 */ char *a26717 = b26717; /* C2 */ struct p15564 *t42455; struct w49 t42456; struct w49 t42457; struct p15564 *t42458; struct p15564 *t42459; struct p15564 *e15564; struct p15564 *p15565; struct p15564 *p15566; e15564 = (struct p15564 *)GC_malloc(sizeof(struct p15564)); if (e15564==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e15564->a26712 = a26712; e15564->a26713 = a26713; e15564->a26716 = a26716; e15564->a26717 = a26717; /* x143206 stalin.sc:18658:655384 */ /* x143202 stalin.sc:18658:655399 */ t42456 = a26714; /* x143203 stalin.sc:18658:655407 */ t42457 = a26715; /* x143204 stalin.sc:18658:655416 */ /* x143205 stalin.sc:18658:655425 */ /* x143201 */ /* x143200 */ /* x143199 */ /* x143198 */ t42458 = e15564; p15565 = t42458; /* x143197 */ /* x143196 */ /* x143195 */ /* x143117 */ t42459 = p15565; p15566 = t42459; /* x143116 stalin.sc:18658:655389 */ t42455 = p15566; d15567 = t42455; b26720 = t42456; b26721 = t42457; b26722 = (struct structure_type24753 *)NULL_TYPE; b26723 = (struct structure_type24753 *)NULL_TYPE; return f15567();} /* COMPILE-ERROR[15534] */ struct structure_type24753 *f15534(char *a26702, struct w49 a26703, unsigned a26704) {struct structure_type24753 *a25858; /* C1 */ char *a25859; /* C2 */ char *a25860; /* C3 */ struct w49 a26705; /* ERROR */ struct structure_type24753 *a35187; /* OBJS */ struct w49 a36474; /* S */ struct w49 a36496; /* OBJ */ struct w49 a36641; /* S */ struct w49 a36643; /* S */ struct w49 a40091; /* S */ struct w49 a40092; /* S */ struct w49 a40093; /* S */ struct w49 a40136; /* S */ struct w49 a40161; /* S */ struct w49 a40162; /* S */ struct w49 a40177; /* S */ struct w49 a40178; /* S */ struct w49 a40197; /* S */ struct w49 a40198; /* S */ struct w49 a40199; /* S */ struct w49 a40200; /* S */ struct w49 a40419; /* OBJ */ struct structure_type24753 *a41938; /* CS */ struct w49 t42460; struct w49 t42461; struct w49 t42462; struct w49 t42463; char *t42464; char *t42465; struct w49 t42466; unsigned t42467; struct w49 t42468; struct w49 t42469; struct w49 t42470; struct w49 t42471; struct structure_type24753 *t42472; struct structure_type24753 *t42473; struct structure_type24753 *t42474; struct w49 t42475; struct w49 t42476; struct w49 t42477; struct w49 t42478; struct w49 t42479; struct w49 t42480; struct w49 t42481; struct structure_type24753 *t42482; char *t42483; struct w49 t42484; struct w49 t42485; struct w49 t42486; struct w49 t42487; struct w49 t42488; struct structure_type24753 *t42489; char *t42490; struct w49 t42491; struct structure_type24753 *t42492; char *t42493; char *t42494; char *t42495; struct structure_type24753 *t42496; char *t42497; char *t42498; struct w61020 t42499; struct structure_type24753 *t42500; struct w49 t42501; struct w49 t42502; struct w49 t42503; struct w49 t42504; struct w49 t42505; struct w7121 t42506; struct w49 t42507; struct w49 t42508; struct w49 t42509; struct w7121 t42510; struct w49 t42511; struct w49 t42512; struct w49 t42513; struct structure_type24753 *t42514; struct w61020 t42515; struct structure_type24753 *t42516; char *t42517; struct w49 t42518; char *t42519; struct w49 t42520; char *t42521; struct w49 t42522; struct structure_type24753 *t42523; struct w49 t42524; struct w49 t42525; struct structure_type24753 *t42526; struct w49 t42527; struct structure_type24753 *t42528; struct structure_type24753 *t42529; unsigned t42530; char *t42531; struct w49 t42532; struct w49 t42533; struct w49 t42534; struct w49 t42535; struct w49 t42536; struct w49 t42537; struct w49 t42538; unsigned t42539; struct structure_type27657 *t42540; struct w49 t42541; struct w49 t42542; struct w49 t42543; struct w49 t42544; char *t42545; unsigned t42546; struct w49 t42547; struct w49 t42548; char *t42549; unsigned t42550; struct w49 t42551; struct w49 t42552; char *t42553; struct w49 t42554; struct w49 t42555; struct w49 t42556; struct w49 t42557; struct w49 t42558; struct structure_type24753 *t42559; struct w49 t42560; struct w49 t42561; struct w49 t42562; struct w49 t42563; char *t42564; unsigned t42565; struct w49 t42566; struct w49 t42567; char *t42568; unsigned t42569; struct w49 t42570; struct w49 t42571; char *t42572; struct w49 t42573; char *t42574; char *t42575; struct w49 t42576; struct structure_type24753 *t42577; struct w49 t42578; struct w49 t42579; struct w49 t42580; struct w49 t42581; char *t42582; struct w49 t42583; struct w7121 t42584; struct w7121 t42585; struct w49 t42586; struct w49 t42587; struct structure_type24753 *t42588; struct w49 t42589; struct w49 t42590; struct w49 t42591; struct w49 t42592; struct w49 t42593; struct w49 t42594; struct w49 t42595; struct w49 t42596; struct w49 t42597; struct w49 t42598; struct w49 t42599; struct w49 t42600; struct w49 t42601; char *t42602; unsigned t42603; struct w49 t42604; struct w49 t42605; char *t42606; unsigned t42607; struct w49 t42608; struct w49 t42609; char *t42610; struct w49 t42611; char *t42612; struct structure_type24753 *t42613; struct w49 t42614; struct w49 t42615; h15534: /* x143113 stalin.sc:18601:653275 */ /* x142826 stalin.sc:18602:653284 */ /* x142825 stalin.sc:18602:653297 */ t42460 = a26703; /* x142824 stalin.sc:18602:653285 */ a40419 = t42460; /* x294345 */ /* x294344 */ t42461 = a40419; /* x294343 */ if (!((t42461.tag)==STRUCTURE_TYPE27698)) goto l6205; /* x143095 */ /* x143094 */ /* x143093 stalin.sc:18603:653305 */ /* x143092 stalin.sc:18603:653318 */ /* x143090 stalin.sc:18603:653325 */ t42612 = a26702; /* x143091 stalin.sc:18603:653327 */ t42613 = a877; /* x143089 stalin.sc:18603:653319 */ t42614.tag = STRING_TYPE; t42614.value.string_type = t42612; t42615.tag = STRUCTURE_TYPE24753; t42615.value.structure_type24753 = t42613; t42470 = f26356(t42614, t42615); /* x143088 */ a26705 = t42470; /* x143087 */ /* x142891 stalin.sc:18605:653369 */ /* x142884 stalin.sc:18605:653377 */ if ((a26705.tag)==FALSE_TYPE) goto l6215; /* x142886 */ /* x142885 */ goto l6216; l6215: /* x142890 */ /* x142889 */ /* x142888 stalin.sc:18605:653383 */ /* x142887 stalin.sc:18605:653384 */ /* x296593 QobiScheme.sc:166:5314 */ /* x296592 QobiScheme.sc:166:5321 */ t42519 = "This shouldn\'t happen"; /* x296591 QobiScheme.sc:166:5315 */ stalin_panic(t42519); l6216: /* x142906 stalin.sc:18606:653398 */ /* x142899 stalin.sc:18606:653404 */ /* x142892 stalin.sc:18606:653409 */ if (a26704==FALSE_TYPE) goto l6218; /* x142897 */ /* x142896 stalin.sc:18606:653417 */ /* x142895 stalin.sc:18606:653424 */ t42520 = a26705; /* x142894 stalin.sc:18606:653418 */ if (!((f26187(t42520).tag)==FALSE_TYPE)) goto l6218; /* x142903 */ /* x142902 */ /* x142901 stalin.sc:18606:653433 */ /* x142900 stalin.sc:18606:653434 */ /* x296597 QobiScheme.sc:166:5314 */ /* x296596 QobiScheme.sc:166:5321 */ t42521 = "This shouldn\'t happen"; /* x296595 QobiScheme.sc:166:5315 */ stalin_panic(t42521); goto l6219; l6218: /* x142905 stalin.sc:18606:653398 */ /* x142904 stalin.sc:18606:653398 */ l6219: /* x142920 stalin.sc:18607:653448 */ /* x142910 stalin.sc:18607:653456 */ /* x142908 stalin.sc:18607:653462 */ t42522 = a26705; /* x142909 stalin.sc:18607:653468 */ t42523 = a876; /* x142907 stalin.sc:18607:653457 */ /* MOVE: branching squeezed to general */ if (t42523>=((struct structure_type24753 *)VALUE_OFFSET)) {t42524.tag = STRUCTURE_TYPE24753; t42524.value.structure_type24753 = t42523;} else t42524.tag = (unsigned)t42523; if ((f26351(t42522, t42524).tag)==FALSE_TYPE) goto l6222; /* x142912 */ /* x142911 */ goto l6223; l6222: /* x142919 */ /* x142918 */ /* x142917 stalin.sc:18608:653488 */ /* x142916 stalin.sc:18608:653508 */ /* x142914 stalin.sc:18608:653514 */ t42525 = a26705; /* x142915 stalin.sc:18608:653520 */ t42526 = a876; /* x268542 stalin.sc:18608:653509 */ a876 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a876==NULL) {backtrace("stalin.sc", 18608, 653508); out_of_memory_error();} a876->s0 = t42525; /* MOVE: branching squeezed to general */ if (t42526>=((struct structure_type24753 *)VALUE_OFFSET)) {a876->s1.tag = STRUCTURE_TYPE24753; a876->s1.value.structure_type24753 = t42526;} else a876->s1.tag = (unsigned)t42526; l6223: /* x143086 stalin.sc:18609:653541 */ /* x142923 stalin.sc:18609:653547 */ /* x142922 stalin.sc:18609:653554 */ t42527 = a26705; /* x142921 stalin.sc:18609:653548 */ if ((f26187(t42527).tag)==FALSE_TYPE) goto l6225; /* x143083 */ /* x143082 */ /* x143081 */ /* x143080 stalin.sc:18610:653566 */ /* x142977 stalin.sc:18611:653579 */ /* x142976 stalin.sc:18611:653600 */ t42555 = a26703; /* x142975 stalin.sc:18611:653580 */ a40200 = t42555; /* x293469 */ /* x293468 */ t42556 = a40200; /* x293467 */ if (!((t42556.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35117]"); structure_ref_error();} if ((t42556.value.structure_type27698->s3.tag)==FALSE_TYPE) goto l6240; /* x143028 */ /* x143027 */ /* x143026 stalin.sc:18612:653612 */ /* x143025 stalin.sc:18616:653759 */ /* x142994 stalin.sc:18616:653766 */ /* x142992 stalin.sc:18616:653771 */ /* x142991 stalin.sc:18616:653778 */ t42599 = a26705; /* x142990 stalin.sc:18616:653772 */ t42598 = f26187(t42599); /* x142993 stalin.sc:18616:653785 */ /* x268538 stalin.sc:18616:653767 */ if (!((t42598.tag)==TRUE_TYPE)) goto l6255; /* x143006 */ /* x143005 */ /* x143004 stalin.sc:18617:653797 */ /* x143003 stalin.sc:18618:653832 */ /* x143000 stalin.sc:18618:653836 */ if (a26704==FALSE_TYPE) goto l6264; /* x143001 stalin.sc:18618:653839 */ t42606 = "will not be"; goto l6265; l6264: /* x143002 stalin.sc:18618:653853 */ t42606 = "might not be"; l6265: /* x142999 stalin.sc:18617:653808 */ /* x142998 stalin.sc:18617:653816 */ t42611 = a26705; /* x142997 stalin.sc:18617:653809 */ t42605 = f26181(t42611); /* x142996 stalin.sc:18617:653805 */ /* x142995 stalin.sc:18617:653798 */ t42607 = FALSE_TYPE; t42608 = t42605; t42609.tag = STRUCTURE_TYPE24753; t42609.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42609.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18617, 653797); out_of_memory_error();} t42609.value.structure_type24753->s0.tag = STRING_TYPE; t42609.value.structure_type24753->s0.value.string_type = t42606; t42609.value.structure_type24753->s1.tag = NULL_TYPE; t42610 = f665(t42607, t42608, t42609); t42586.tag = STRING_TYPE; t42586.value.string_type = t42610; goto l6256; l6255: /* x143024 */ /* x143011 stalin.sc:18619:653879 */ /* x143010 stalin.sc:18619:653888 */ /* x143009 stalin.sc:18619:653895 */ t42601 = a26705; /* x143008 stalin.sc:18619:653889 */ t42600 = f26187(t42601); /* x268537 stalin.sc:18619:653880 */ if (!((t42600.tag)==STRING_TYPE)) goto l6258; /* x143019 */ /* x143018 */ /* x143017 stalin.sc:18619:653903 */ /* x143016 stalin.sc:18619:653925 */ t42604 = a26705; /* x143015 stalin.sc:18619:653904 */ /* x143012 stalin.sc:18619:653908 */ if (a26704==FALSE_TYPE) goto l6261; /* x143013 stalin.sc:18619:653911 */ t42603 = NATIVE_PROCEDURE_TYPE471; goto l6262; l6261: /* x143014 stalin.sc:18619:653918 */ t42603 = NATIVE_PROCEDURE_TYPE483; l6262: t42586 = (t42603==NATIVE_PROCEDURE_TYPE471)?f26199(t42604):f26187(t42604); goto l6259; l6258: /* x143023 */ /* x143022 */ /* x143021 stalin.sc:18620:653946 */ /* x143020 stalin.sc:18620:653947 */ /* x296605 QobiScheme.sc:166:5314 */ /* x296604 QobiScheme.sc:166:5321 */ t42602 = "This shouldn\'t happen"; /* x296603 QobiScheme.sc:166:5315 */ stalin_panic(t42602); l6259: l6256: /* x142988 stalin.sc:18615:653715 */ /* x142987 stalin.sc:18615:653746 */ t42596 = a26703; /* x142986 stalin.sc:18615:653716 */ a40162 = t42596; /* x293317 */ /* x293316 */ t42597 = a40162; /* x293315 */ if (!((t42597.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION[5527] 35079]"); structure_ref_error();} t42585 = t42597.value.structure_type27698->s5; /* x142985 stalin.sc:18614:653676 */ /* x142984 stalin.sc:18614:653702 */ t42594 = a26703; /* x142983 stalin.sc:18614:653677 */ a40178 = t42594; /* x293381 */ /* x293380 */ t42595 = a40178; /* x293379 */ if (!((t42595.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LINE-POSITION[5519] 35095]"); structure_ref_error();} t42584 = t42595.value.structure_type27698->s4; /* x142982 stalin.sc:18613:653642 */ /* x142981 stalin.sc:18613:653663 */ t42592 = a26703; /* x142980 stalin.sc:18613:653643 */ a40199 = t42592; /* x293465 */ /* x293464 */ t42593 = a40199; /* x293463 */ if (!((t42593.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35116]"); structure_ref_error();} t42583 = t42593.value.structure_type27698->s3; /* x142979 stalin.sc:18612:653620 */ t42582 = "~a:~s:~s:~a"; /* x142978 stalin.sc:18612:653613 */ t42587.tag = STRING_TYPE; t42587.value.string_type = t42582; t42591.tag = STRUCTURE_TYPE24753; t42591.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42591.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18612, 653612); out_of_memory_error();} t42591.value.structure_type24753->s0 = t42586; t42591.value.structure_type24753->s1.tag = NULL_TYPE; t42590.tag = STRUCTURE_TYPE24753; t42590.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42590.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18612, 653612); out_of_memory_error();} t42590.value.structure_type24753->s0 = *((struct w49 *)(&t42585)); t42590.value.structure_type24753->s1 = t42591; t42589.tag = STRUCTURE_TYPE24753; t42589.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42589.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18612, 653612); out_of_memory_error();} t42589.value.structure_type24753->s0 = *((struct w49 *)(&t42584)); t42589.value.structure_type24753->s1 = t42590; t42588 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42588==NULL) {backtrace("stalin.sc", 18612, 653612); out_of_memory_error();} t42588->s0 = t42583; t42588->s1 = t42589; f5365(t42587, t42588); goto l6241; l6240: /* x143079 */ /* x143078 */ /* x143077 */ /* x143076 stalin.sc:18622:653979 */ /* x143075 stalin.sc:18622:653995 */ /* x143074 stalin.sc:18622:654013 */ /* x143073 stalin.sc:18622:654037 */ t42580 = a26703; /* x143072 stalin.sc:18622:654014 */ a40093 = t42580; /* x293041 */ /* x293040 */ t42581 = a40093; /* x293039 */ if (!((t42581.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35010]"); structure_ref_error();} t42578 = t42581.value.structure_type27698->s9; /* x143071 stalin.sc:18622:653996 */ a36643 = t42578; /* x279241 */ /* x279240 */ t42579 = a36643; /* x279239 */ if (!((t42579.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31560]"); structure_ref_error();} t42575 = t42579.value.structure_type27694->s2; /* x143070 stalin.sc:18622:653987 */ t42574 = "In ~a"; /* x143069 stalin.sc:18622:653980 */ t42576.tag = STRING_TYPE; t42576.value.string_type = t42574; t42577 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42577==NULL) {backtrace("stalin.sc", 18622, 653979); out_of_memory_error();} t42577->s0.tag = STRING_TYPE; t42577->s0.value.string_type = t42575; t42577->s1.tag = NULL_TYPE; f5365(t42576, t42577); /* x143068 */ /* x143067 stalin.sc:18623:654051 */ /* x143066 stalin.sc:18623:654059 */ /* x143035 stalin.sc:18623:654066 */ /* x143033 stalin.sc:18623:654071 */ /* x143032 stalin.sc:18623:654078 */ t42561 = a26705; /* x143031 stalin.sc:18623:654072 */ t42560 = f26187(t42561); /* x143034 stalin.sc:18623:654085 */ /* x268536 stalin.sc:18623:654067 */ if (!((t42560.tag)==TRUE_TYPE)) goto l6243; /* x143047 */ /* x143046 */ /* x143045 stalin.sc:18624:654097 */ /* x143044 stalin.sc:18625:654132 */ /* x143041 stalin.sc:18625:654136 */ if (a26704==FALSE_TYPE) goto l6252; /* x143042 stalin.sc:18625:654139 */ t42568 = "will not be"; goto l6253; l6252: /* x143043 stalin.sc:18625:654153 */ t42568 = "might not be"; l6253: /* x143040 stalin.sc:18624:654108 */ /* x143039 stalin.sc:18624:654116 */ t42573 = a26705; /* x143038 stalin.sc:18624:654109 */ t42567 = f26181(t42573); /* x143037 stalin.sc:18624:654105 */ /* x143036 stalin.sc:18624:654098 */ t42569 = FALSE_TYPE; t42570 = t42567; t42571.tag = STRUCTURE_TYPE24753; t42571.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42571.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18624, 654097); out_of_memory_error();} t42571.value.structure_type24753->s0.tag = STRING_TYPE; t42571.value.structure_type24753->s0.value.string_type = t42568; t42571.value.structure_type24753->s1.tag = NULL_TYPE; t42572 = f665(t42569, t42570, t42571); t42557.tag = STRING_TYPE; t42557.value.string_type = t42572; goto l6244; l6243: /* x143065 */ /* x143052 stalin.sc:18626:654179 */ /* x143051 stalin.sc:18626:654188 */ /* x143050 stalin.sc:18626:654195 */ t42563 = a26705; /* x143049 stalin.sc:18626:654189 */ t42562 = f26187(t42563); /* x268535 stalin.sc:18626:654180 */ if (!((t42562.tag)==STRING_TYPE)) goto l6246; /* x143060 */ /* x143059 */ /* x143058 stalin.sc:18626:654203 */ /* x143057 stalin.sc:18626:654225 */ t42566 = a26705; /* x143056 stalin.sc:18626:654204 */ /* x143053 stalin.sc:18626:654208 */ if (a26704==FALSE_TYPE) goto l6249; /* x143054 stalin.sc:18626:654211 */ t42565 = NATIVE_PROCEDURE_TYPE471; goto l6250; l6249: /* x143055 stalin.sc:18626:654218 */ t42565 = NATIVE_PROCEDURE_TYPE483; l6250: t42557 = (t42565==NATIVE_PROCEDURE_TYPE471)?f26199(t42566):f26187(t42566); goto l6247; l6246: /* x143064 */ /* x143063 */ /* x143062 stalin.sc:18627:654246 */ /* x143061 stalin.sc:18627:654247 */ /* x296609 QobiScheme.sc:166:5314 */ /* x296608 QobiScheme.sc:166:5321 */ t42564 = "This shouldn\'t happen"; /* x296607 QobiScheme.sc:166:5315 */ stalin_panic(t42564); l6247: l6244: /* x143029 stalin.sc:18623:654052 */ t42558 = t42557; t42559 = (struct structure_type24753 *)NULL_TYPE; f5365(t42558, t42559); l6241: /* x142974 */ /* x142973 stalin.sc:18628:654266 */ /* x142972 stalin.sc:18629:654287 */ /* x142970 stalin.sc:18629:654293 */ /* x142969 stalin.sc:18637:654604 */ t42533 = a26703; /* x142968 stalin.sc:18631:654383 */ /* x142937 stalin.sc:18631:654390 */ /* x142935 stalin.sc:18631:654395 */ /* x142934 stalin.sc:18631:654402 */ t42542 = a26705; /* x142933 stalin.sc:18631:654396 */ t42541 = f26187(t42542); /* x142936 stalin.sc:18631:654409 */ /* x268540 stalin.sc:18631:654391 */ if (!((t42541.tag)==TRUE_TYPE)) goto l6228; /* x142949 */ /* x142948 */ /* x142947 stalin.sc:18632:654422 */ /* x142946 stalin.sc:18633:654458 */ /* x142943 stalin.sc:18633:654462 */ if (a26704==FALSE_TYPE) goto l6237; /* x142944 stalin.sc:18633:654465 */ t42549 = "will not be"; goto l6238; l6237: /* x142945 stalin.sc:18633:654479 */ t42549 = "might not be"; l6238: /* x142942 stalin.sc:18632:654433 */ /* x142941 stalin.sc:18632:654441 */ t42554 = a26705; /* x142940 stalin.sc:18632:654434 */ t42548 = f26181(t42554); /* x142939 stalin.sc:18632:654430 */ /* x142938 stalin.sc:18632:654423 */ t42550 = FALSE_TYPE; t42551 = t42548; t42552.tag = STRUCTURE_TYPE24753; t42552.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42552.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18632, 654422); out_of_memory_error();} t42552.value.structure_type24753->s0.tag = STRING_TYPE; t42552.value.structure_type24753->s0.value.string_type = t42549; t42552.value.structure_type24753->s1.tag = NULL_TYPE; t42553 = f665(t42550, t42551, t42552); t42532.tag = STRING_TYPE; t42532.value.string_type = t42553; goto l6229; l6228: /* x142967 */ /* x142954 stalin.sc:18634:654506 */ /* x142953 stalin.sc:18634:654515 */ /* x142952 stalin.sc:18634:654522 */ t42544 = a26705; /* x142951 stalin.sc:18634:654516 */ t42543 = f26187(t42544); /* x268539 stalin.sc:18634:654507 */ if (!((t42543.tag)==STRING_TYPE)) goto l6231; /* x142962 */ /* x142961 */ /* x142960 stalin.sc:18635:654539 */ /* x142959 stalin.sc:18635:654561 */ t42547 = a26705; /* x142958 stalin.sc:18635:654540 */ /* x142955 stalin.sc:18635:654544 */ if (a26704==FALSE_TYPE) goto l6234; /* x142956 stalin.sc:18635:654547 */ t42546 = NATIVE_PROCEDURE_TYPE471; goto l6235; l6234: /* x142957 stalin.sc:18635:654554 */ t42546 = NATIVE_PROCEDURE_TYPE483; l6235: t42532 = (t42546==NATIVE_PROCEDURE_TYPE471)?f26199(t42547):f26187(t42547); goto l6232; l6231: /* x142966 */ /* x142965 */ /* x142964 stalin.sc:18636:654583 */ /* x142963 stalin.sc:18636:654584 */ /* x296601 QobiScheme.sc:166:5314 */ /* x296600 QobiScheme.sc:166:5321 */ t42545 = "This shouldn\'t happen"; /* x296599 QobiScheme.sc:166:5315 */ stalin_panic(t42545); l6232: l6229: /* x142931 stalin.sc:18630:654331 */ /* x142930 stalin.sc:18630:654370 */ t42539 = a26704; /* x142929 stalin.sc:18630:654332 */ t42540 = (struct structure_type27657 *)t42539; t42531 = f19235(t42540); /* x142928 stalin.sc:18629:654299 */ /* x142927 stalin.sc:18629:654317 */ t42537 = a26703; /* x142926 stalin.sc:18629:654300 */ a40136 = t42537; /* x293213 */ /* x293212 */ t42538 = a40136; /* x293211 */ if (!((t42538.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35053]"); structure_ref_error();} t42530 = t42538.value.structure_type27698->s7; /* x142925 stalin.sc:18629:654294 */ t42536.tag = STRUCTURE_TYPE24753; t42536.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42536.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18629, 654293); out_of_memory_error();} t42536.value.structure_type24753->s0 = t42533; t42536.value.structure_type24753->s1.tag = NULL_TYPE; t42535.tag = STRUCTURE_TYPE24753; t42535.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42535.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18629, 654293); out_of_memory_error();} t42535.value.structure_type24753->s0 = t42532; t42535.value.structure_type24753->s1 = t42536; t42534.tag = STRUCTURE_TYPE24753; t42534.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42534.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18629, 654293); out_of_memory_error();} t42534.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t42534.value.structure_type24753->s0.value.external_symbol_type = t42531; t42534.value.structure_type24753->s1 = t42535; a35187 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35187==NULL) {backtrace("stalin.sc", 18629, 654293); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t42530==FALSE_TYPE) a35187->s0.tag = (unsigned)t42530; else {a35187->s0.tag = FIXNUM_TYPE; a35187->s0.value.fixnum_type = (int)(((int)t42530)>>1);} a35187->s1 = t42534; /* x272381 */ t42528 = a35187; /* x142971 stalin.sc:18638:654612 */ t42529 = a875; /* x268541 stalin.sc:18629:654288 */ a875 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a875==NULL) {backtrace("stalin.sc", 18629, 654287); out_of_memory_error();} a875->s0.tag = STRUCTURE_TYPE24753; a875->s0.value.structure_type24753 = t42528; /* MOVE: branching squeezed to general */ if (t42529>=((struct structure_type24753 *)VALUE_OFFSET)) {a875->s1.tag = STRUCTURE_TYPE24753; a875->s1.value.structure_type24753 = t42529;} else a875->s1.tag = (unsigned)t42529; goto l6226; l6225: /* x143085 stalin.sc:18609:653541 */ /* x143084 stalin.sc:18609:653541 */ l6226: /* x142883 */ /* x142882 stalin.sc:18639:654630 */ /* x142881 stalin.sc:18640:654648 */ /* x142880 stalin.sc:18650:655071 */ /* x142879 stalin.sc:18650:655080 */ /* x142878 stalin.sc:18650:655089 */ t42517 = a26702; /* x142877 stalin.sc:18650:655081 */ t42518.tag = STRING_TYPE; t42518.value.string_type = t42517; t42514 = f14320(t42518); /* x142876 stalin.sc:18650:655072 */ t42515.tag = STRUCTURE_TYPE24753; t42515.value.structure_type24753 = t42514; t42516 = (struct structure_type24753 *)NULL_TYPE; t42473 = f13645(t42515, t42516); /* x142875 stalin.sc:18641:654671 */ /* x142831 stalin.sc:18642:654685 */ /* x142830 stalin.sc:18642:654706 */ t42477 = a26703; /* x142829 stalin.sc:18642:654686 */ a40198 = t42477; /* x293461 */ /* x293460 */ t42478 = a40198; /* x293459 */ if (!((t42478.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35115]"); structure_ref_error();} if ((t42478.value.structure_type27698->s3.tag)==FALSE_TYPE) goto l6209; /* x142850 */ /* x142849 */ /* x142848 stalin.sc:18643:654712 */ /* x142837 stalin.sc:18643:654725 */ /* x142836 stalin.sc:18643:654735 */ /* x142835 stalin.sc:18643:654756 */ t42504 = a26703; /* x142834 stalin.sc:18643:654736 */ a40197 = t42504; /* x293457 */ /* x293456 */ t42505 = a40197; /* x293455 */ if (!((t42505.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35114]"); structure_ref_error();} t42503 = t42505.value.structure_type27698->s3; /* x142833 stalin.sc:18643:654726 */ t42492 = f13532(t42503); /* x142842 stalin.sc:18644:654769 */ /* x142841 stalin.sc:18644:654779 */ /* x142840 stalin.sc:18644:654805 */ t42508 = a26703; /* x142839 stalin.sc:18644:654780 */ a40177 = t42508; /* x293377 */ /* x293376 */ t42509 = a40177; /* x293375 */ if (!((t42509.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LINE-POSITION[5519] 35094]"); structure_ref_error();} t42506 = t42509.value.structure_type27698->s4; /* x142838 stalin.sc:18644:654770 */ t42507 = *((struct w49 *)(&t42506)); t42493 = f13530(t42507); /* x142847 stalin.sc:18645:654818 */ /* x142846 stalin.sc:18645:654828 */ /* x142845 stalin.sc:18645:654859 */ t42512 = a26703; /* x142844 stalin.sc:18645:654829 */ a40161 = t42512; /* x293313 */ /* x293312 */ t42513 = a40161; /* x293311 */ if (!((t42513.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION[5527] 35078]"); structure_ref_error();} t42510 = t42513.value.structure_type27698->s5; /* x142843 stalin.sc:18645:654819 */ t42511 = *((struct w49 *)(&t42510)); t42494 = f13530(t42511); /* x142832 stalin.sc:18643:654713 */ a25858 = t42492; a25859 = t42493; a25860 = t42494; /* x129531 */ /* x129530 stalin.sc:16157:562324 */ /* x129529 stalin.sc:16157:562345 */ a747 = TRUE_TYPE; /* x129528 */ /* x129527 stalin.sc:16158:562350 */ /* x129526 stalin.sc:16158:562377 */ t42498 = a25860; /* x129525 stalin.sc:16158:562374 */ t42497 = a25859; /* x129524 stalin.sc:16158:562371 */ t42496 = a25858; /* x129523 stalin.sc:16158:562359 */ t42495 = "backtrace"; /* x129522 stalin.sc:16158:562351 */ t42499.tag = STRING_TYPE; t42499.value.string_type = t42495; t42502.tag = STRUCTURE_TYPE24753; t42502.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42502.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16158, 562350); out_of_memory_error();} t42502.value.structure_type24753->s0.tag = STRING_TYPE; t42502.value.structure_type24753->s0.value.string_type = t42498; t42502.value.structure_type24753->s1.tag = NULL_TYPE; t42501.tag = STRUCTURE_TYPE24753; t42501.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42501.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16158, 562350); out_of_memory_error();} t42501.value.structure_type24753->s0.tag = STRING_TYPE; t42501.value.structure_type24753->s0.value.string_type = t42497; t42501.value.structure_type24753->s1 = t42502; t42500 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42500==NULL) {backtrace("stalin.sc", 16158, 562350); out_of_memory_error();} t42500->s0.tag = STRUCTURE_TYPE24753; t42500->s0.value.structure_type24753 = t42496; t42500->s1 = t42501; t42472 = f13645(t42499, t42500); goto l6210; l6209: /* x142874 */ /* x142855 stalin.sc:18646:654875 */ /* x142854 stalin.sc:18646:654883 */ /* x142853 stalin.sc:18646:654907 */ t42480 = a26703; /* x142852 stalin.sc:18646:654884 */ a40092 = t42480; /* x293037 */ /* x293036 */ t42481 = a40092; /* x293035 */ if (!((t42481.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35009]"); structure_ref_error();} t42479 = t42481.value.structure_type27698->s9; /* x142851 stalin.sc:18646:654876 */ if (f8581(t42479)==FALSE_TYPE) goto l6212; /* x142862 */ /* x142861 */ /* x142860 stalin.sc:18647:654914 */ /* x142859 stalin.sc:18647:654936 */ /* x142858 stalin.sc:18647:654946 */ t42490 = "top level"; /* x142857 stalin.sc:18647:654937 */ t42491.tag = STRING_TYPE; t42491.value.string_type = t42490; t42489 = f13532(t42491); /* x142856 stalin.sc:18647:654915 */ t42472 = f14369(t42489); goto l6213; l6212: /* x142873 */ /* x142872 */ /* x142871 stalin.sc:18648:654974 */ /* x142870 stalin.sc:18649:655003 */ /* x142869 stalin.sc:18649:655013 */ /* x142868 stalin.sc:18649:655031 */ /* x142867 stalin.sc:18649:655055 */ t42487 = a26703; /* x142866 stalin.sc:18649:655032 */ a40091 = t42487; /* x293033 */ /* x293032 */ t42488 = a40091; /* x293031 */ if (!((t42488.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35008]"); structure_ref_error();} t42485 = t42488.value.structure_type27698->s9; /* x142865 stalin.sc:18649:655014 */ a36641 = t42485; /* x279233 */ /* x279232 */ t42486 = a36641; /* x279231 */ if (!((t42486.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31558]"); structure_ref_error();} t42483 = t42486.value.structure_type27694->s2; /* x142864 stalin.sc:18649:655004 */ t42484.tag = STRING_TYPE; t42484.value.string_type = t42483; t42482 = f13532(t42484); /* x142863 stalin.sc:18648:654975 */ t42472 = f14369(t42482); l6213: l6210: /* x142828 stalin.sc:18640:654649 */ t42476.tag = STRUCTURE_TYPE24753; t42476.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42476.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18640, 654648); out_of_memory_error();} t42476.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t42476.value.structure_type24753->s0.value.structure_type24753 = t42473; t42476.value.structure_type24753->s1.tag = NULL_TYPE; a41938 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41938==NULL) {backtrace("stalin.sc", 18640, 654648); out_of_memory_error();} a41938->s0.tag = STRUCTURE_TYPE24753; a41938->s0.value.structure_type24753 = t42472; a41938->s1 = t42476; /* x301864 stalin.sc:14400:506485 */ /* x301863 stalin.sc:14400:506503 */ t42474 = a41938; /* x301862 stalin.sc:14400:506486 */ t42475.tag = STRUCTURE_TYPE24753; t42475.value.structure_type24753 = t42474; t42471 = f13492(t42475); /* x142827 stalin.sc:18639:654631 */ return f13473(t42471); l6205: /* x143112 */ /* x143098 stalin.sc:18651:655100 */ /* x143097 stalin.sc:18651:655112 */ t42462 = a26703; /* x143096 stalin.sc:18651:655101 */ a36496 = t42462; /* x278653 */ /* x278652 */ t42463 = a36496; /* x278651 */ if (!((t42463.tag)==STRUCTURE_TYPE27745)) goto l6207; /* x143107 */ /* x143106 */ /* x143105 stalin.sc:18651:655117 */ /* x143100 stalin.sc:18651:655132 */ t42465 = a26702; /* x143103 stalin.sc:18651:655134 */ /* x143102 stalin.sc:18651:655156 */ t42468 = a26703; /* x143101 stalin.sc:18651:655135 */ a36474 = t42468; /* x278565 */ /* x278564 */ t42469 = a36474; /* x278563 */ if (!((t42469.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31391]"); structure_ref_error();} t42466 = t42469.value.structure_type27745->s0; /* x143104 stalin.sc:18651:655161 */ t42467 = a26704; /* x143099 stalin.sc:18651:655118 */ a26702 = t42465; a26703 = t42466; a26704 = t42467; goto h15534; l6207: /* x143111 */ /* x143110 */ /* x143109 stalin.sc:18652:655174 */ /* x143108 stalin.sc:18652:655175 */ /* x296613 QobiScheme.sc:166:5314 */ /* x296612 QobiScheme.sc:166:5321 */ t42464 = "This shouldn\'t happen"; /* x296611 QobiScheme.sc:166:5315 */ stalin_panic(t42464);} /* ALLOCATE-TEMPORARY[15531] */ struct w60864 f15531(struct w49 a26698) {struct w60864 r15531; struct structure_type24753 *a26699; /* T */ struct w49 t42616; struct structure_type24753 *t42617; unsigned t42618; int t42619; struct structure_type24753 *t42620; struct w49 t42621; struct structure_type24753 *t42622; char *t42623; unsigned t42624; /* x142821 stalin.sc:18592:653024 */ /* x142798 stalin.sc:18592:653028 */ /* x142797 stalin.sc:18592:653041 */ t42616 = a26698; /* x142796 stalin.sc:18592:653029 */ if (f8793(t42616)==FALSE_TYPE) goto l6267; /* x142799 stalin.sc:18593:653049 */ r15531.tag = EXTERNAL_SYMBOL_TYPE; r15531.value.external_symbol_type = q211; return r15531; l6267: /* x142820 stalin.sc:18594:653061 */ /* x142819 stalin.sc:18594:653070 */ /* x142818 stalin.sc:18594:653075 */ t42624 = a860; /* x142817 stalin.sc:18594:653071 */ t42617 = f14288(t42624); /* x142816 */ a26699 = t42617; /* x142815 */ /* x142806 stalin.sc:18595:653089 */ /* x142805 stalin.sc:18595:653100 */ /* x142803 stalin.sc:18595:653103 */ t42618 = a860; /* x142804 stalin.sc:18595:653108 */ t42619 = 1; /* x268544 stalin.sc:18595:653101 */ if (!((t42618&1)==1)) {backtrace("stalin.sc", 18595, 653100); plus_error();} a860 = (((unsigned)(((int)(((int)t42618)>>1))+t42619))<<1)+1; /* x142814 stalin.sc:18596:653118 */ /* x142813 stalin.sc:18596:653132 */ /* x142809 stalin.sc:18596:653147 */ t42621 = a26698; /* x142810 stalin.sc:18596:653149 */ t42622 = a26699; /* x142812 stalin.sc:18596:653151 */ /* x142811 stalin.sc:18596:653152 */ /* x276873 stalin.sc:14693:514793 */ t42623 = ""; /* x142808 stalin.sc:18596:653133 */ t42620 = f13517(t42621, t42622, t42623); /* x142807 stalin.sc:18596:653119 */ f13469(t42620); /* x142801 */ /* x142800 stalin.sc:18597:653168 */ r15531.tag = STRUCTURE_TYPE24753; r15531.value.structure_type24753 = a26699; return r15531;} /* MOVE-DISPLACED-VECTOR[15512] */ struct w49 f15512(struct structure_type27501 *a26685, struct w49 a26686, struct w61020 a26687, struct w49 a26688) {struct w49 r15512; struct structure_type27501 *a19326; /* S */ struct w49 a20161; /* OBJ */ struct w49 a26156; /* C */ struct w49 a26157; /* U */ struct w49 a26181; /* C */ struct w49 a26182; /* U */ struct w49 a26183; /* W */ struct w49 a26689; /* W */ struct w49 a26690; /* C */ struct w49 a37408; /* OBJ */ struct w49 a37525; /* OBJ */ struct structure_type27501 *a38341; /* S */ struct structure_type27501 *a38368; /* S */ struct structure_type27501 *a38389; /* S */ struct structure_type27501 *a38420; /* S */ struct structure_type27501 *a38438; /* S */ struct structure_type27501 *a38439; /* S */ struct structure_type27501 *a38440; /* S */ struct structure_type24753 *a41775; /* CS */ struct structure_type24753 *a41776; /* CS */ struct structure_type24753 *a41777; /* CS */ struct structure_type27501 *t42625; struct w12218 t42626; struct structure_type27501 *t42627; struct w12218 t42628; struct structure_type27501 *t42629; struct w12218 t42630; struct structure_type27501 *t42631; struct w12218 t42632; struct w49 t42633; struct w49 t42634; struct structure_type27501 *t42635; struct w12218 t42636; struct w49 t42637; struct w49 t42638; struct w49 t42639; struct structure_type27501 *t42640; struct w12218 t42641; struct w49 t42642; struct w61020 t42643; struct structure_type24753 *t42644; struct w61020 t42645; struct w49 t42646; struct structure_type24753 *t42647; struct w49 t42648; struct w49 t42649; struct w49 t42650; struct w49 t42651; struct w49 t42652; struct w49 t42653; struct w49 t42654; struct w49 t42655; struct w61020 t42656; struct w49 t42657; struct structure_type24753 *t42658; struct w49 t42659; struct w49 t42660; struct w49 t42661; struct w49 t42662; struct w49 t42663; struct w49 t42664; struct w49 t42665; struct w49 t42666; struct w49 t42667; struct w60864 t42668; struct w61020 t42669; struct w49 t42670; struct w49 t42671; struct structure_type24753 *t42672; struct w49 t42673; struct w49 t42674; struct w49 t42675; struct w49 t42676; struct w49 t42677; struct w49 t42678; struct w49 t42679; struct w49 t42680; struct w49 t42681; struct w49 t42682; struct w49 t42683; struct w49 t42684; char *t42685; struct w49 t42686; char *t42687; struct w61020 t42688; struct structure_type24753 *t42689; struct w49 t42690; char *t42691; struct w61020 t42692; struct structure_type24753 *t42693; struct w49 t42694; char *t42695; struct w61020 t42696; struct structure_type24753 *t42697; struct w49 t42698; struct w49 t42699; struct w49 t42700; struct structure_type27501 *t42701; struct w12218 t42702; struct w49 t42703; struct structure_type27501 *t42704; struct structure_type27501 *t42705; struct w49 t42706; struct structure_type27501 *t42707; struct structure_type27501 *t42708; struct w49 t42709; struct structure_type24753 *t42710; struct structure_type24753 *t42711; struct w49 t42712; struct w49 t42713; struct structure_type27501 *t42714; struct w49 t42715; struct w61020 t42716; struct structure_type24753 *t42717; struct w49 t42718; struct w49 t42719; struct structure_type27501 *t42720; struct structure_type27501 *t42721; struct w49 t42722; struct structure_type27501 *t42723; struct structure_type27501 *t42724; struct w49 t42725; struct structure_type24753 *t42726; struct structure_type24753 *t42727; struct w49 t42728; struct w49 t42729; struct structure_type27501 *t42730; struct w49 t42731; struct w49 t42732; struct structure_type24753 *t42733; struct w49 t42734; struct w49 t42735; char *t42736; struct w6315 t42737; struct w49 t42738; struct w49 t42739; char *t42740; struct structure_type27501 *t42741; struct structure_type27501 *t42742; struct structure_type27501 *t42743; struct structure_type27501 *t42744; struct w12563 t42745; struct w12563 t42746; struct w61020 t42747; struct structure_type27501 *t42748; struct structure_type27501 *t42749; struct structure_type27501 *t42750; struct structure_type27501 *t42751; struct structure_type27501 *t42752; struct w12218 t42753; /* x142791 stalin.sc:18547:651375 */ /* x142570 stalin.sc:18548:651384 */ /* x142569 stalin.sc:18548:651394 */ t42625 = a26685; /* x142568 stalin.sc:18548:651385 */ /* MOVE: branching squeezed to general */ if (t42625>=((struct structure_type27501 *)VALUE_OFFSET)) {t42626.tag = STRUCTURE_TYPE27501; t42626.value.structure_type27501 = t42625;} else t42626.tag = (unsigned)t42625; if (f7031(t42626)==FALSE_TYPE) goto l6269; /* x142574 */ /* x142573 */ /* x142572 stalin.sc:18548:651397 */ /* x142571 stalin.sc:18548:651398 */ /* x276629 stalin.sc:14693:514793 */ r15512.tag = STRING_TYPE; r15512.value.string_type = ""; return r15512; l6269: /* x142790 */ /* x142584 stalin.sc:18549:651410 */ /* x142577 stalin.sc:18549:651415 */ /* x142576 stalin.sc:18549:651424 */ t42627 = a26685; /* x142575 stalin.sc:18549:651416 */ /* MOVE: branching squeezed to general */ if (t42627>=((struct structure_type27501 *)VALUE_OFFSET)) {t42628.tag = STRUCTURE_TYPE27501; t42628.value.structure_type27501 = t42627;} else t42628.tag = (unsigned)t42627; if (f7030(t42628)==FALSE_TYPE) goto l6271; /* x142582 */ /* x142581 stalin.sc:18549:651432 */ /* x142580 stalin.sc:18549:651450 */ t42629 = a26685; /* x142579 stalin.sc:18549:651433 */ /* MOVE: branching squeezed to general */ if (t42629>=((struct structure_type27501 *)VALUE_OFFSET)) {t42630.tag = STRUCTURE_TYPE27501; t42630.value.structure_type27501 = t42629;} else t42630.tag = (unsigned)t42629; if (!(f15338(t42630)==FALSE_TYPE)) goto l6271; /* x142589 */ /* x142588 */ /* x142587 stalin.sc:18552:651595 */ /* x142586 stalin.sc:18552:651611 */ t42752 = a26685; /* x142585 stalin.sc:18552:651596 */ /* MOVE: branching squeezed to general */ if (t42752>=((struct structure_type27501 *)VALUE_OFFSET)) {t42753.tag = STRUCTURE_TYPE27501; t42753.value.structure_type27501 = t42752;} else t42753.tag = (unsigned)t42752; return f15342(t42753); l6271: /* x142789 */ /* x142592 stalin.sc:18553:651618 */ /* x142591 stalin.sc:18553:651631 */ t42631 = a26685; /* x142590 stalin.sc:18553:651619 */ /* MOVE: branching squeezed to general */ if (t42631>=((struct structure_type27501 *)VALUE_OFFSET)) {t42632.tag = STRUCTURE_TYPE27501; t42632.value.structure_type27501 = t42631;} else t42632.tag = (unsigned)t42631; if (f7032(t42632)==FALSE_TYPE) goto l6274; /* x142602 */ /* x142601 */ /* x142600 stalin.sc:18553:651634 */ /* x142596 stalin.sc:18553:651648 */ /* x142595 stalin.sc:18553:651659 */ t42748 = a26685; /* x142594 stalin.sc:18553:651649 */ a38368 = t42748; /* x286141 */ /* x286140 */ t42749 = a38368; /* x286139 */ if (!(t42749>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L1[5777] 33285]"); structure_ref_error();} t42745 = t42749->s4; /* x142599 stalin.sc:18553:651662 */ /* x142598 stalin.sc:18553:651673 */ t42750 = a26685; /* x142597 stalin.sc:18553:651663 */ a38341 = t42750; /* x286033 */ /* x286032 */ t42751 = a38341; /* x286031 */ if (!(t42751>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L0[5793] 33258]"); structure_ref_error();} t42746 = t42751->s6; /* x142593 stalin.sc:18553:651635 */ t42747 = f15756(t42745, t42746); return *((struct w49 *)(&t42747)); l6274: /* x142788 */ /* x142787 */ /* x142786 stalin.sc:18555:651689 */ /* x142782 stalin.sc:18556:651717 */ /* x142781 stalin.sc:18556:651734 */ t42741 = a26685; /* x142780 stalin.sc:18556:651718 */ a38420 = t42741; /* x286349 */ /* x286348 */ t42742 = a38420; /* x286347 */ if (!(t42742>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33337]"); structure_ref_error();} t42633 = t42742->s2; /* x142785 stalin.sc:18555:651698 */ /* x142784 stalin.sc:18555:651708 */ t42743 = a26685; /* x142783 stalin.sc:18555:651699 */ a38389 = t42743; /* x286225 */ /* x286224 */ t42744 = a38389; /* x286223 */ if (!(t42744>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-C[5769] 33306]"); structure_ref_error();} t42634 = t42744->s3; /* x142779 */ a26689 = t42633; a26690 = t42634; /* x142778 */ /* x142766 stalin.sc:18557:651743 */ /* x142757 stalin.sc:18557:651749 */ /* x142756 stalin.sc:18557:651753 */ /* x142755 stalin.sc:18557:651764 */ t42734 = a26689; /* x142754 stalin.sc:18557:651754 */ if (!(f13859(t42734)==FALSE_TYPE)) goto l6308; /* x142751 */ /* x142750 stalin.sc:18557:651778 */ t42735 = a26689; /* x142749 stalin.sc:18557:651768 */ if (f14024(t42735)==FALSE_TYPE) goto l6309; l6308: /* x142763 */ /* x142762 */ /* x142761 stalin.sc:18558:651787 */ /* x142759 stalin.sc:18559:651808 */ /* x142760 stalin.sc:18559:651811 */ t42736 = "Squeezing or squishing a displaced vector is not (yet) implemented"; /* x142758 stalin.sc:18558:651788 */ t42737.tag = FALSE_TYPE; f9707(t42737, t42736); goto l6310; l6309: /* x142765 stalin.sc:18557:651743 */ /* x142764 stalin.sc:18557:651743 */ l6310: /* x142777 stalin.sc:18560:651886 */ /* x142770 stalin.sc:18560:651894 */ /* x142768 stalin.sc:18560:651903 */ t42738 = a26686; /* x142769 stalin.sc:18560:651905 */ t42739 = a26689; /* x142767 stalin.sc:18560:651895 */ if (f8033(t42738, t42739)==FALSE_TYPE) goto l6313; /* x142772 */ /* x142771 */ goto l6314; l6313: /* x142776 */ /* x142775 */ /* x142774 stalin.sc:18560:651908 */ /* x142773 stalin.sc:18560:651909 */ /* x295649 QobiScheme.sc:166:5314 */ /* x295648 QobiScheme.sc:166:5321 */ t42740 = "This shouldn\'t happen"; /* x295647 QobiScheme.sc:166:5315 */ stalin_panic(t42740); l6314: /* x142746 */ /* x142745 stalin.sc:18561:651923 */ /* x142617 stalin.sc:18562:651935 */ /* x142605 stalin.sc:18562:651940 */ /* x142604 stalin.sc:18562:651949 */ t42635 = a26685; /* x142603 stalin.sc:18562:651941 */ /* MOVE: branching squeezed to general */ if (t42635>=((struct structure_type27501 *)VALUE_OFFSET)) {t42636.tag = STRUCTURE_TYPE27501; t42636.value.structure_type27501 = t42635;} else t42636.tag = (unsigned)t42635; if (f7030(t42636)==FALSE_TYPE) goto l6276; /* x142615 */ /* x142608 stalin.sc:18563:651956 */ /* x142607 stalin.sc:18563:651970 */ t42637 = a26689; /* x142606 stalin.sc:18563:651957 */ if (f8148(t42637)==FALSE_TYPE) goto l6276; /* x142613 */ /* x142612 stalin.sc:18564:652002 */ /* x142611 stalin.sc:18564:652014 */ t42639 = a26689; /* x142610 stalin.sc:18564:652003 */ t42638 = f8153(t42639); /* x142609 stalin.sc:18564:651978 */ if (f7754(t42638)==FALSE_TYPE) goto l6276; /* x142645 */ /* x142644 */ /* x142643 stalin.sc:18565:652025 */ /* x142632 stalin.sc:18565:652029 */ /* x142631 stalin.sc:18565:652033 */ /* x142630 stalin.sc:18565:652055 */ /* x142629 stalin.sc:18565:652075 */ t42720 = a26685; /* x142628 stalin.sc:18565:652056 */ a38438 = t42720; /* x286421 */ /* x286420 */ t42721 = a38438; /* x286419 */ if (!(t42721>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-ENVIRONMENT[5753] 33355]"); structure_ref_error();} t42719 = t42721->s1; /* x142627 stalin.sc:18565:652034 */ if (!(f10495(t42719)==FALSE_TYPE)) goto l6305; /* x142624 */ /* x142623 stalin.sc:18566:652127 */ /* x142622 stalin.sc:18566:652147 */ t42723 = a26685; /* x142621 stalin.sc:18566:652128 */ a19326 = t42723; /* x50944 */ /* x50943 */ t42724 = a19326; /* x50942 */ if (!(t42724>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("RESULT-ENVIRONMENT[5753]"); structure_ref_error();} t42722 = t42724->s1; /* x142620 stalin.sc:18566:652087 */ if (f8481(t42722)==FALSE_TYPE) goto l6306; l6305: /* x142640 stalin.sc:18567:652155 */ /* x142639 stalin.sc:18572:652392 */ /* x142638 stalin.sc:18572:652402 */ t42732 = a26688; /* x142637 stalin.sc:18572:652393 */ t42733 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42733==NULL) {backtrace("stalin.sc", 18572, 652392); out_of_memory_error();} t42733->s0 = t42732; t42733->s1.tag = NULL_TYPE; t42726 = f13646(t42733); /* x142636 stalin.sc:18571:652368 */ /* x142635 stalin.sc:18571:652385 */ t42730 = a26685; /* x142634 stalin.sc:18571:652369 */ /* MOVE: branching squeezed to general */ if (t42730>=((struct structure_type27501 *)VALUE_OFFSET)) {t42731.tag = STRUCTURE_TYPE27501; t42731.value.structure_type27501 = t42730;} else t42731.tag = (unsigned)t42730; t42725 = f15328(t42731); /* x142633 stalin.sc:18567:652156 */ t42729.tag = STRUCTURE_TYPE24753; t42729.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42729.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18567, 652155); out_of_memory_error();} t42729.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t42729.value.structure_type24753->s0.value.structure_type24753 = t42726; t42729.value.structure_type24753->s1.tag = NULL_TYPE; a41775 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41775==NULL) {backtrace("stalin.sc", 18567, 652155); out_of_memory_error();} a41775->s0 = t42725; a41775->s1 = t42729; /* x301212 stalin.sc:14400:506485 */ /* x301211 stalin.sc:14400:506503 */ t42727 = a41775; /* x301210 stalin.sc:14400:506486 */ t42728.tag = STRUCTURE_TYPE24753; t42728.value.structure_type24753 = t42727; return f13492(t42728); l6306: /* x142642 stalin.sc:18573:652410 */ /* x142641 stalin.sc:18573:652411 */ /* x276455 stalin.sc:14693:514793 */ r15512.tag = STRING_TYPE; r15512.value.string_type = ""; return r15512; l6276: /* x142744 */ /* x142653 stalin.sc:18574:652427 */ /* x142648 stalin.sc:18574:652432 */ /* x142647 stalin.sc:18574:652441 */ t42640 = a26685; /* x142646 stalin.sc:18574:652433 */ /* MOVE: branching squeezed to general */ if (t42640>=((struct structure_type27501 *)VALUE_OFFSET)) {t42641.tag = STRUCTURE_TYPE27501; t42641.value.structure_type27501 = t42640;} else t42641.tag = (unsigned)t42640; if (f7030(t42641)==FALSE_TYPE) goto l6280; /* x142651 */ /* x142650 stalin.sc:18574:652455 */ t42642 = a26689; /* x142649 stalin.sc:18574:652445 */ if (f13798(t42642)==FALSE_TYPE) goto l6280; /* x142683 */ /* x142682 */ /* x142681 stalin.sc:18575:652465 */ /* x142668 stalin.sc:18575:652469 */ /* x142667 stalin.sc:18575:652473 */ /* x142666 stalin.sc:18575:652495 */ /* x142665 stalin.sc:18575:652515 */ t42704 = a26685; /* x142664 stalin.sc:18575:652496 */ a38440 = t42704; /* x286429 */ /* x286428 */ t42705 = a38440; /* x286427 */ if (!(t42705>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-ENVIRONMENT[5753] 33357]"); structure_ref_error();} t42703 = t42705->s1; /* x142663 stalin.sc:18575:652474 */ if (!(f10495(t42703)==FALSE_TYPE)) goto l6302; /* x142660 */ /* x142659 stalin.sc:18576:652567 */ /* x142658 stalin.sc:18576:652587 */ t42707 = a26685; /* x142657 stalin.sc:18576:652568 */ a38439 = t42707; /* x286425 */ /* x286424 */ t42708 = a38439; /* x286423 */ if (!(t42708>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-ENVIRONMENT[5753] 33356]"); structure_ref_error();} t42706 = t42708->s1; /* x142656 stalin.sc:18576:652527 */ if (f8481(t42706)==FALSE_TYPE) goto l6303; l6302: /* x142678 stalin.sc:18577:652595 */ /* x142677 stalin.sc:18577:652632 */ /* x142676 stalin.sc:18577:652642 */ /* x142675 stalin.sc:18577:652654 */ t42718 = a26686; /* x142674 stalin.sc:18577:652643 */ t42716 = f14433(t42718); /* x142673 stalin.sc:18577:652633 */ t42717 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42717==NULL) {backtrace("stalin.sc", 18577, 652632); out_of_memory_error();} t42717->s0 = *((struct w49 *)(&t42716)); t42717->s1.tag = NULL_TYPE; t42710 = f13646(t42717); /* x142672 stalin.sc:18577:652612 */ /* x142671 stalin.sc:18577:652629 */ t42714 = a26685; /* x142670 stalin.sc:18577:652613 */ /* MOVE: branching squeezed to general */ if (t42714>=((struct structure_type27501 *)VALUE_OFFSET)) {t42715.tag = STRUCTURE_TYPE27501; t42715.value.structure_type27501 = t42714;} else t42715.tag = (unsigned)t42714; t42709 = f15328(t42715); /* x142669 stalin.sc:18577:652596 */ t42713.tag = STRUCTURE_TYPE24753; t42713.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42713.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18577, 652595); out_of_memory_error();} t42713.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t42713.value.structure_type24753->s0.value.structure_type24753 = t42710; t42713.value.structure_type24753->s1.tag = NULL_TYPE; a41776 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41776==NULL) {backtrace("stalin.sc", 18577, 652595); out_of_memory_error();} a41776->s0 = t42709; a41776->s1 = t42713; /* x301216 stalin.sc:14400:506485 */ /* x301215 stalin.sc:14400:506503 */ t42711 = a41776; /* x301214 stalin.sc:14400:506486 */ t42712.tag = STRUCTURE_TYPE24753; t42712.value.structure_type24753 = t42711; return f13492(t42712); l6303: /* x142680 stalin.sc:18578:652662 */ /* x142679 stalin.sc:18578:652663 */ /* x276457 stalin.sc:14693:514793 */ r15512.tag = STRING_TYPE; r15512.value.string_type = ""; return r15512; l6280: /* x142743 */ /* x142742 */ /* x142741 stalin.sc:18579:652684 */ /* x142740 stalin.sc:18587:652947 */ /* x142739 stalin.sc:18587:652963 */ t42701 = a26685; /* x142738 stalin.sc:18587:652948 */ /* MOVE: branching squeezed to general */ if (t42701>=((struct structure_type27501 *)VALUE_OFFSET)) {t42702.tag = STRUCTURE_TYPE27501; t42702.value.structure_type27501 = t42701;} else t42702.tag = (unsigned)t42701; t42646 = f15342(t42702); /* x142737 stalin.sc:18584:652856 */ /* x142726 stalin.sc:18584:652860 */ /* x142725 stalin.sc:18584:652885 */ t42667 = a26686; /* x142724 stalin.sc:18584:652861 */ if (f7754(t42667)==FALSE_TYPE) goto l6288; /* x142728 stalin.sc:18585:652890 */ /* x142727 stalin.sc:18585:652891 */ /* x276461 stalin.sc:14693:514793 */ t42645.tag = STRING_TYPE; t42645.value.string_type = ""; goto l6289; l6288: /* x142736 stalin.sc:18586:652901 */ /* x142734 stalin.sc:18586:652907 */ /* x142731 stalin.sc:18586:652930 */ t42673 = a26690; /* x142732 stalin.sc:18586:652932 */ t42674 = a26686; /* x142733 stalin.sc:18586:652934 */ t42675 = a26689; /* x142730 stalin.sc:18586:652908 */ a26181 = t42673; a26182 = t42674; a26183 = t42675; /* x134068 stalin.sc:17101:598019 */ /* x134066 stalin.sc:17101:598045 */ /* x134063 stalin.sc:17101:598054 */ t42698 = a26181; /* x134064 stalin.sc:17101:598056 */ t42699 = a26182; /* x134065 stalin.sc:17101:598058 */ t42700 = a26183; /* x134062 stalin.sc:17101:598046 */ t42676 = f14485(t42698, t42699, t42700); /* x134067 stalin.sc:17101:598061 */ t42677 = a26182; /* x134061 stalin.sc:17101:598020 */ a26156 = t42676; a26157 = t42677; /* x133933 stalin.sc:17068:596835 */ /* x133897 stalin.sc:17068:596839 */ /* x133896 stalin.sc:17068:596864 */ t42678 = a26157; /* x133895 stalin.sc:17068:596840 */ if (f7754(t42678)==FALSE_TYPE) goto l6291; /* x133898 stalin.sc:17069:596872 */ t42668.tag = EXTERNAL_SYMBOL_TYPE; t42668.value.external_symbol_type = q206; goto l6292; l6291: /* x133932 stalin.sc:17070:596884 */ /* x133901 stalin.sc:17070:596891 */ /* x133900 stalin.sc:17070:596912 */ t42679 = a26157; /* x133899 stalin.sc:17070:596892 */ a37525 = t42679; /* x282769 */ /* x282768 */ t42680 = a37525; /* x282767 */ if (!((t42680.tag)==STRUCTURE_TYPE27761)) goto l6294; /* x133907 */ /* x133906 */ /* x133905 stalin.sc:17070:596915 */ /* x133903 stalin.sc:17070:596921 */ t42694 = a26156; /* x133904 stalin.sc:17070:596923 */ t42695 = "element"; /* x133902 stalin.sc:17070:596916 */ t42696.tag = STRING_TYPE; t42696.value.string_type = t42695; t42697 = f13588(t42694, t42696); t42668.tag = STRUCTURE_TYPE24753; t42668.value.structure_type24753 = t42697; goto l6295; l6294: /* x133931 */ /* x133910 stalin.sc:17071:596940 */ /* x133909 stalin.sc:17071:596964 */ t42681 = a26157; /* x133908 stalin.sc:17071:596941 */ a37408 = t42681; /* x282301 */ /* x282300 */ t42682 = a37408; /* x282299 */ if (!((t42682.tag)==STRUCTURE_TYPE27669)) goto l6297; /* x133916 */ /* x133915 */ /* x133914 stalin.sc:17071:596967 */ /* x133912 stalin.sc:17071:596972 */ t42690 = a26156; /* x133913 stalin.sc:17071:596974 */ t42691 = "element"; /* x133911 stalin.sc:17071:596968 */ t42692.tag = STRING_TYPE; t42692.value.string_type = t42691; t42693 = f13585(t42690, t42692); t42668.tag = STRUCTURE_TYPE24753; t42668.value.structure_type24753 = t42693; goto l6298; l6297: /* x133930 */ /* x133919 stalin.sc:17072:596991 */ /* x133918 stalin.sc:17072:597015 */ t42683 = a26157; /* x133917 stalin.sc:17072:596992 */ a20161 = t42683; /* x54038 */ /* x54037 */ t42684 = a20161; /* x54036 */ if (!((t42684.tag)==STRUCTURE_TYPE27908)) goto l6300; /* x133925 */ /* x133924 */ /* x133923 stalin.sc:17072:597018 */ /* x133921 stalin.sc:17072:597023 */ t42686 = a26156; /* x133922 stalin.sc:17072:597025 */ t42687 = "element"; /* x133920 stalin.sc:17072:597019 */ t42688.tag = STRING_TYPE; t42688.value.string_type = t42687; t42689 = f13585(t42686, t42688); t42668.tag = STRUCTURE_TYPE24753; t42668.value.structure_type24753 = t42689; goto l6301; l6300: /* x133929 */ /* x133928 */ /* x133927 stalin.sc:17073:597047 */ /* x133926 stalin.sc:17073:597048 */ /* x295237 QobiScheme.sc:166:5314 */ /* x295236 QobiScheme.sc:166:5321 */ t42685 = "This shouldn\'t happen"; /* x295235 QobiScheme.sc:166:5315 */ stalin_panic(t42685); l6301: l6298: l6295: l6292: /* x142735 stalin.sc:18586:652937 */ t42669 = a26687; /* x142729 stalin.sc:18586:652902 */ t42670 = *((struct w49 *)(&t42668)); t42671 = *((struct w49 *)(&t42669)); t42672 = f13637(t42670, t42671); t42645.tag = STRUCTURE_TYPE24753; t42645.value.structure_type24753 = t42672; l6289: /* x142723 stalin.sc:18583:652813 */ /* x142721 stalin.sc:18583:652819 */ /* x142718 stalin.sc:18583:652840 */ t42664 = a26690; /* x142719 stalin.sc:18583:652842 */ t42665 = a26686; /* x142720 stalin.sc:18583:652844 */ t42666 = a26689; /* x142717 stalin.sc:18583:652820 */ t42662 = f14751(t42664, t42665, t42666); /* x142722 stalin.sc:18583:652847 */ t42663 = a26688; /* x142716 stalin.sc:18583:652814 */ t42644 = f13637(t42662, t42663); /* x142715 stalin.sc:18580:652706 */ /* x142703 stalin.sc:18580:652710 */ /* x142702 stalin.sc:18580:652714 */ /* x142701 stalin.sc:18580:652728 */ t42652 = a26689; /* x142700 stalin.sc:18580:652715 */ if (!(f8148(t42652)==FALSE_TYPE)) goto l6282; /* x142697 */ /* x142696 stalin.sc:18580:652731 */ /* x142695 stalin.sc:18580:652742 */ t42653 = a26689; /* x142694 stalin.sc:18580:652732 */ if (!(f13859(t42653)==FALSE_TYPE)) goto l6282; /* x142691 */ /* x142690 stalin.sc:18580:652756 */ t42654 = a26689; /* x142689 stalin.sc:18580:652746 */ if (f14024(t42654)==FALSE_TYPE) goto l6283; l6282: /* x142705 stalin.sc:18581:652762 */ /* x142704 stalin.sc:18581:652763 */ /* x276459 stalin.sc:14693:514793 */ t42643.tag = STRING_TYPE; t42643.value.string_type = ""; goto l6284; l6283: /* x142714 stalin.sc:18582:652773 */ /* x142710 stalin.sc:18582:652779 */ /* x142708 stalin.sc:18582:652786 */ t42659 = a26690; /* x142709 stalin.sc:18582:652788 */ t42660 = a26689; /* x142707 stalin.sc:18582:652780 */ t42655 = f14478(t42659, t42660); /* x142713 stalin.sc:18582:652791 */ /* x142712 stalin.sc:18582:652803 */ t42661 = a26686; /* x142711 stalin.sc:18582:652792 */ t42656 = f14433(t42661); /* x142706 stalin.sc:18582:652774 */ t42657 = *((struct w49 *)(&t42656)); t42658 = f13637(t42655, t42657); t42643.tag = STRUCTURE_TYPE24753; t42643.value.structure_type24753 = t42658; l6284: /* x142684 stalin.sc:18579:652685 */ t42651.tag = STRUCTURE_TYPE24753; t42651.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42651.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18579, 652684); out_of_memory_error();} t42651.value.structure_type24753->s0 = t42646; t42651.value.structure_type24753->s1.tag = NULL_TYPE; t42650.tag = STRUCTURE_TYPE24753; t42650.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42650.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18579, 652684); out_of_memory_error();} t42650.value.structure_type24753->s0 = *((struct w49 *)(&t42645)); t42650.value.structure_type24753->s1 = t42651; t42649.tag = STRUCTURE_TYPE24753; t42649.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42649.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18579, 652684); out_of_memory_error();} t42649.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t42649.value.structure_type24753->s0.value.structure_type24753 = t42644; t42649.value.structure_type24753->s1 = t42650; a41777 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41777==NULL) {backtrace("stalin.sc", 18579, 652684); out_of_memory_error();} a41777->s0 = *((struct w49 *)(&t42643)); a41777->s1 = t42649; /* x301220 stalin.sc:14400:506485 */ /* x301219 stalin.sc:14400:506503 */ t42647 = a41777; /* x301218 stalin.sc:14400:506486 */ t42648.tag = STRUCTURE_TYPE24753; t42648.value.structure_type24753 = t42647; return f13492(t42648);} /* WIDEN[15508] */ struct w49 f15508(struct structure_type27501 *a26682, struct w49 a26683, unsigned a26684) {struct w49 r15508; struct structure_type27501 *a38346; /* S */ struct structure_type27501 *a38347; /* S */ struct structure_type27501 *a38358; /* S */ struct structure_type27501 *a38373; /* S */ struct structure_type27501 *a38431; /* S */ struct structure_type27501 *t42754; struct w12218 t42755; struct structure_type27501 *t42756; struct w12218 t42757; struct structure_type27501 *t42758; struct w49 t42759; struct w49 t42760; unsigned t42761; struct w49 t42762; struct w211113 t42763; struct structure_type27501 *t42764; struct structure_type27501 *t42765; unsigned t42766; struct w12563 t42767; struct w12563 t42768; struct w61020 t42769; struct structure_type27501 *t42770; struct structure_type27501 *t42771; struct structure_type27501 *t42772; struct structure_type27501 *t42773; struct w12563 t42774; struct w12563 t42775; struct w61020 t42776; struct structure_type27501 *t42777; struct structure_type27501 *t42778; struct structure_type27501 *t42779; struct structure_type27501 *t42780; /* x142565 stalin.sc:18538:651017 */ /* x142521 stalin.sc:18538:651024 */ /* x142520 stalin.sc:18538:651034 */ t42754 = a26682; /* x142519 stalin.sc:18538:651025 */ /* MOVE: branching squeezed to general */ if (t42754>=((struct structure_type27501 *)VALUE_OFFSET)) {t42755.tag = STRUCTURE_TYPE27501; t42755.value.structure_type27501 = t42754;} else t42755.tag = (unsigned)t42754; if (f7031(t42755)==FALSE_TYPE) goto l6316; /* x142525 */ /* x142524 */ /* x142523 stalin.sc:18538:651037 */ /* x142522 stalin.sc:18538:651038 */ /* x276849 stalin.sc:14693:514793 */ r15508.tag = STRING_TYPE; r15508.value.string_type = ""; return r15508; l6316: /* x142564 */ /* x142528 stalin.sc:18539:651055 */ /* x142527 stalin.sc:18539:651068 */ t42756 = a26682; /* x142526 stalin.sc:18539:651056 */ /* MOVE: branching squeezed to general */ if (t42756>=((struct structure_type27501 *)VALUE_OFFSET)) {t42757.tag = STRUCTURE_TYPE27501; t42757.value.structure_type27501 = t42756;} else t42757.tag = (unsigned)t42756; if (f7032(t42757)==FALSE_TYPE) goto l6318; /* x142551 */ /* x142550 */ /* x142549 stalin.sc:18541:651136 */ /* x142532 stalin.sc:18541:651140 */ /* x142530 stalin.sc:18541:651145 */ t42766 = a26684; /* x142531 stalin.sc:18541:651147 */ /* x268546 stalin.sc:18541:651141 */ if (!(t42766==((unsigned)NATIVE_PROCEDURE_TYPE7433))) goto l6320; /* x142540 stalin.sc:18542:651165 */ /* x142536 stalin.sc:18542:651179 */ /* x142535 stalin.sc:18542:651190 */ t42777 = a26682; /* x142534 stalin.sc:18542:651180 */ a38358 = t42777; /* x286101 */ /* x286100 */ t42778 = a38358; /* x286099 */ if (!(t42778>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L2[5785] 33275]"); structure_ref_error();} t42774 = t42778->s5; /* x142539 stalin.sc:18542:651193 */ /* x142538 stalin.sc:18542:651204 */ t42779 = a26682; /* x142537 stalin.sc:18542:651194 */ a38346 = t42779; /* x286053 */ /* x286052 */ t42780 = a38346; /* x286051 */ if (!(t42780>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L0[5793] 33263]"); structure_ref_error();} t42775 = t42780->s6; /* x142533 stalin.sc:18542:651166 */ t42776 = f15756(t42774, t42775); return *((struct w49 *)(&t42776)); l6320: /* x142548 stalin.sc:18543:651213 */ /* x142544 stalin.sc:18543:651227 */ /* x142543 stalin.sc:18543:651238 */ t42770 = a26682; /* x142542 stalin.sc:18543:651228 */ a38373 = t42770; /* x286161 */ /* x286160 */ t42771 = a38373; /* x286159 */ if (!(t42771>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L1[5777] 33290]"); structure_ref_error();} t42767 = t42771->s4; /* x142547 stalin.sc:18543:651241 */ /* x142546 stalin.sc:18543:651252 */ t42772 = a26682; /* x142545 stalin.sc:18543:651242 */ a38347 = t42772; /* x286057 */ /* x286056 */ t42773 = a38347; /* x286055 */ if (!(t42773>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-L0[5793] 33264]"); structure_ref_error();} t42768 = t42773->s6; /* x142541 stalin.sc:18543:651214 */ t42769 = f15756(t42767, t42768); return *((struct w49 *)(&t42769)); l6318: /* x142563 */ /* x142562 */ /* x142561 stalin.sc:18544:651271 */ /* x142553 stalin.sc:18544:651283 */ t42758 = a26682; /* x142554 stalin.sc:18544:651285 */ t42759 = a26683; /* x142560 stalin.sc:18544:651287 */ /* x142556 stalin.sc:18544:651304 */ t42761 = a26684; /* x142559 stalin.sc:18544:651306 */ /* x142558 stalin.sc:18544:651323 */ t42764 = a26682; /* x142557 stalin.sc:18544:651307 */ a38431 = t42764; /* x286393 */ /* x286392 */ t42765 = a38431; /* x286391 */ if (!(t42765>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33348]"); structure_ref_error();} t42762 = t42765->s2; /* x142555 stalin.sc:18544:651288 */ /* MOVE: dispatching squished to general */ switch (t42761) {case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7421: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7427: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7433: case NATIVE_PROCEDURE_TYPE7434: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE18588: t42763.tag = (unsigned)t42761; break; default: switch (t42761&3) {case 2: t42763.tag = NATIVE_PROCEDURE_TYPE18572; t42763.value.native_procedure_type18572 = (struct p7704 *)(t42761-2); break; case 0: t42763.tag = NATIVE_PROCEDURE_TYPE21089; t42763.value.native_procedure_type21089 = (struct p16646 *)t42761; break; default: t42763.tag = NATIVE_PROCEDURE_TYPE22098; t42763.value.native_procedure_type22098 = (struct p17869 *)(t42761-1);}} t42760 = f8157(t42763, t42762); /* x142552 stalin.sc:18544:651272 */ return f15499(t42758, t42759, t42760);} /* WIDEN-TYPE[15499] */ struct w49 f15499(struct structure_type27501 *a26674, struct w49 a26675, struct w49 a26676) {struct structure_type27650 *a26677; /* W */ char *a26679; /* v */ struct structure_type27650 *t42781; struct structure_type27501 *t42782; struct w49 t42783; struct structure_type27650 *t42784; struct structure_type27650 *t42785; struct w12218 t42786; struct w49 t42787; struct w49 t42788; unsigned t42789; struct structure_type27650 *t42790; unsigned t42791; struct w49 t42792; char *t42793; char *t42794; char *t42795; struct w49 t42796; struct w49 t42797; char *t42798; char *t42799; struct w49 t42800; struct w49 t42801; char *t42802; char *t42803; struct w49 t42804; struct w49 t42805; char *t42806; struct structure_type27650 *t42807; struct w49 t42808; struct structure_type27650 *t42809; struct w49 t42810; struct structure_type27650 *t42811; struct w211225 t42812; struct w49 t42813; struct w49 t42814; struct structure_type24753 *t42815; /* x142516 stalin.sc:18527:650700 */ /* x142515 stalin.sc:18527:650709 */ /* x142514 stalin.sc:18527:650736 */ t42814 = a26676; /* x142513 stalin.sc:18527:650710 */ t42815 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42815==NULL) {backtrace("stalin.sc", 18527, 650709); out_of_memory_error();} t42815->s0 = t42814; t42815->s1.tag = NULL_TYPE; t42781 = f8098(t42815); /* x142512 */ a26677 = t42781; /* x142511 */ /* x142510 stalin.sc:18528:650743 */ /* x142459 stalin.sc:18529:650773 */ t42790 = a26677; /* x142509 stalin.sc:18530:650778 */ /* x142508 stalin.sc:18530:650784 */ t42793 = a687; /* x142507 */ a26679 = t42793; /* x142506 */ /* x142472 */ /* x142471 */ /* x142469 */ t42794 = a26679; /* x142470 */ t42795 = q15; /* x142468 */ /* MOVE: branching squeezed to general */ if (t42794>=((char *)VALUE_OFFSET)) {t42796.tag = EXTERNAL_SYMBOL_TYPE; t42796.value.external_symbol_type = t42794;} else t42796.tag = (unsigned)t42794; t42797.tag = EXTERNAL_SYMBOL_TYPE; t42797.value.external_symbol_type = t42795; if (!(f26160(t42796, t42797)==FALSE_TYPE)) goto l6321; /* x142465 */ /* x142463 */ t42798 = a26679; /* x142464 */ t42799 = q16; /* x142462 */ /* MOVE: branching squeezed to general */ if (t42798>=((char *)VALUE_OFFSET)) {t42800.tag = EXTERNAL_SYMBOL_TYPE; t42800.value.external_symbol_type = t42798;} else t42800.tag = (unsigned)t42798; t42801.tag = EXTERNAL_SYMBOL_TYPE; t42801.value.external_symbol_type = t42799; if (f26160(t42800, t42801)==FALSE_TYPE) goto l6322; l6321: /* x142475 */ /* x142474 */ /* x142473 stalin.sc:18531:650841 */ t42791 = FALSE_TYPE; goto l6323; l6322: /* x142505 */ /* x142479 */ /* x142477 */ t42802 = a26679; /* x142478 */ t42803 = q17; /* x142476 */ /* MOVE: branching squeezed to general */ if (t42802>=((char *)VALUE_OFFSET)) {t42804.tag = EXTERNAL_SYMBOL_TYPE; t42804.value.external_symbol_type = t42802;} else t42804.tag = (unsigned)t42802; t42805.tag = EXTERNAL_SYMBOL_TYPE; t42805.value.external_symbol_type = t42803; if (f26160(t42804, t42805)==FALSE_TYPE) goto l6326; /* x142500 */ /* x142499 */ /* x142498 stalin.sc:18533:650869 */ /* x142498 stalin.sc:18533:650869 */ /* x142497 stalin.sc:18533:650873 */ /* x142496 stalin.sc:18533:650880 */ t42807 = a26677; /* x142495 stalin.sc:18533:650874 */ t42808.tag = STRUCTURE_TYPE27650; t42808.value.structure_type27650 = t42807; if (!(f8147(t42808)==FALSE_TYPE)) goto l6328; /* x142492 */ /* x142486 stalin.sc:18533:650888 */ /* x142485 stalin.sc:18533:650893 */ /* x142484 stalin.sc:18533:650908 */ t42809 = a26677; /* x142483 stalin.sc:18533:650894 */ t42810.tag = STRUCTURE_TYPE27650; t42810.value.structure_type27650 = t42809; if (!(f8149(t42810)==((struct structure_type27657 *)FALSE_TYPE))) goto l6329; /* x142490 */ /* x142488 stalin.sc:18533:650922 */ /* x142489 stalin.sc:18533:650934 */ t42811 = a26677; /* x142487 stalin.sc:18533:650913 */ t42812.tag = NATIVE_PROCEDURE_TYPE7232; t42813.tag = STRUCTURE_TYPE27650; t42813.value.structure_type27650 = t42811; if (f8146(t42812, t42813)==FALSE_TYPE) goto l6329; l6328: t42791 = TRUE_TYPE; goto l6330; l6329: t42791 = FALSE_TYPE; l6330: goto l6327; l6326: /* x142504 */ /* x142503 */ /* x142502 stalin.sc:18534:650950 */ /* x142501 stalin.sc:18534:650951 */ /* x296533 QobiScheme.sc:166:5314 */ /* x296532 QobiScheme.sc:166:5321 */ t42806 = "This shouldn\'t happen"; /* x296531 QobiScheme.sc:166:5315 */ stalin_panic(t42806); l6327: l6323: /* x142458 stalin.sc:18528:650744 */ t42792.tag = STRUCTURE_TYPE27650; t42792.value.structure_type27650 = t42790; f8133(t42792, t42791); /* x142457 */ /* x142456 stalin.sc:18535:650965 */ /* x142451 stalin.sc:18535:650979 */ t42782 = a26674; /* x142452 stalin.sc:18535:650981 */ t42783 = a26675; /* x142453 stalin.sc:18535:650983 */ t42784 = a26677; /* x142454 stalin.sc:18535:650985 */ t42785 = a26677; /* x142455 stalin.sc:18535:650987 */ /* x142450 stalin.sc:18535:650966 */ /* MOVE: branching squeezed to general */ if (t42782>=((struct structure_type27501 *)VALUE_OFFSET)) {t42786.tag = STRUCTURE_TYPE27501; t42786.value.structure_type27501 = t42782;} else t42786.tag = (unsigned)t42782; t42787.tag = STRUCTURE_TYPE27650; t42787.value.structure_type27650 = t42784; t42788.tag = STRUCTURE_TYPE27650; t42788.value.structure_type27650 = t42785; t42789 = TRUE_TYPE; return f15355(t42786, t42783, t42787, t42788, t42789);} /* MOVE-ACCESS[15498] */ struct w49 f15498(struct structure_type27501 *a26670, struct w60861 a26671, struct w49 a26672, struct w49 a26673) {struct structure_type27501 *t42816; struct w60861 t42817; struct w49 t42818; struct w49 t42819; struct w12218 t42820; struct w49 t42821; unsigned t42822; /* x142447 stalin.sc:18524:650643 */ /* x142442 stalin.sc:18524:650657 */ t42816 = a26670; /* x142443 stalin.sc:18524:650659 */ t42817 = a26671; /* x142444 stalin.sc:18524:650661 */ t42818 = a26672; /* x142445 stalin.sc:18524:650663 */ t42819 = a26673; /* x142446 stalin.sc:18524:650666 */ /* x142441 stalin.sc:18524:650644 */ /* MOVE: branching squeezed to general */ if (t42816>=((struct structure_type27501 *)VALUE_OFFSET)) {t42820.tag = STRUCTURE_TYPE27501; t42820.value.structure_type27501 = t42816;} else t42820.tag = (unsigned)t42816; t42821 = *((struct w49 *)(&t42817)); t42822 = TRUE_TYPE; return f15355(t42820, t42821, t42818, t42819, t42822);} /* MOVE-STRICT[15497] */ struct w49 f15497(struct structure_type27501 *a26667, struct structure_type24753 *a26668, struct w49 a26669) {struct structure_type27501 *t42823; struct structure_type24753 *t42824; struct w49 t42825; struct w49 t42826; struct w12218 t42827; struct w49 t42828; unsigned t42829; struct structure_type24753 *t42830; struct w49 t42831; /* x142438 stalin.sc:18522:650572 */ /* x142431 stalin.sc:18522:650586 */ t42823 = a26667; /* x142434 stalin.sc:18522:650588 */ /* x142433 stalin.sc:18522:650599 */ t42830 = a26668; /* x142432 stalin.sc:18522:650589 */ t42831.tag = STRUCTURE_TYPE24753; t42831.value.structure_type24753 = t42830; t42824 = f13472(t42831); /* x142435 stalin.sc:18522:650602 */ t42825 = a26669; /* x142436 stalin.sc:18522:650604 */ t42826 = a26669; /* x142437 stalin.sc:18522:650606 */ /* x142430 stalin.sc:18522:650573 */ /* MOVE: branching squeezed to general */ if (t42823>=((struct structure_type27501 *)VALUE_OFFSET)) {t42827.tag = STRUCTURE_TYPE27501; t42827.value.structure_type27501 = t42823;} else t42827.tag = (unsigned)t42823; t42828.tag = STRUCTURE_TYPE24753; t42828.value.structure_type24753 = t42824; t42829 = FALSE_TYPE; return f15355(t42827, t42828, t42825, t42826, t42829);} /* MOVE[15496] */ struct w49 f15496(struct w12218 a26664, struct w49 a26665, struct w49 a26666) {struct w12218 t42832; struct w49 t42833; struct w49 t42834; struct w49 t42835; unsigned t42836; /* x142427 stalin.sc:18520:650516 */ /* x142422 stalin.sc:18520:650530 */ t42832 = a26664; /* x142423 stalin.sc:18520:650532 */ t42833 = a26665; /* x142424 stalin.sc:18520:650534 */ t42834 = a26666; /* x142425 stalin.sc:18520:650536 */ t42835 = a26666; /* x142426 stalin.sc:18520:650538 */ /* x142421 stalin.sc:18520:650517 */ t42836 = TRUE_TYPE; return f15355(t42832, t42833, t42834, t42835, t42836);} /* MOVE[15488] */ struct w49 f15488(struct p15368 *p15488, struct w49 a26661) {struct w49 r15488; struct w12218 a38442; /* S */ struct w12218 a38443; /* S */ struct structure_type24753 *a41887; /* CS */ struct w12218 t42837; struct p15368 *t42838; struct w49 t42839; struct w49 t42840; struct structure_type24753 *t42841; struct p15355 *t42842; struct w49 t42843; struct w12218 t42844; struct w12218 t42845; struct w49 t42846; struct w12218 t42847; struct w12218 t42848; struct w49 t42849; struct structure_type24753 *t42850; struct structure_type24753 *t42851; struct w49 t42852; struct w49 t42853; struct w12218 t42854; struct w49 t42855; struct w49 t42856; struct structure_type24753 *t42857; struct p15355 *p15489; struct p15355 *p15490; struct p15368 *p15491; /* x142358 stalin.sc:18169:637679 */ /* x142323 stalin.sc:18170:637693 */ /* x142322 stalin.sc:18170:637702 */ t42837 = p15488->p15355->a26583; /* x142321 stalin.sc:18170:637694 */ if (f7030(t42837)==FALSE_TYPE) goto l6334; /* x142351 */ /* x142350 */ t42842 = p15488->p15355; p15489 = t42842; /* x142349 stalin.sc:18171:637706 */ /* x142338 stalin.sc:18171:637710 */ /* x142337 stalin.sc:18172:637720 */ /* x142336 stalin.sc:18172:637742 */ /* x142335 stalin.sc:18172:637762 */ t42844 = p15489->a26583; /* x142334 stalin.sc:18172:637743 */ a38443 = t42844; /* x286441 */ /* x286440 */ t42845 = a38443; /* x286439 */ if (!((t42845.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-ENVIRONMENT[5753] 33360]"); structure_ref_error();} t42843 = t42845.value.structure_type27501->s1; /* x142333 stalin.sc:18172:637721 */ if (!(f10495(t42843)==FALSE_TYPE)) goto l6335; p15490 = p15489; /* x142330 */ /* x142329 stalin.sc:18173:637813 */ /* x142328 stalin.sc:18173:637833 */ t42847 = p15490->a26583; /* x142327 stalin.sc:18173:637814 */ a38442 = t42847; /* x286437 */ /* x286436 */ t42848 = a38442; /* x286435 */ if (!((t42848.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-ENVIRONMENT[5753] 33359]"); structure_ref_error();} t42846 = t42848.value.structure_type27501->s1; /* x142326 stalin.sc:18173:637773 */ if (f8481(t42846)==FALSE_TYPE) goto l6336; l6335: /* x142346 stalin.sc:18176:637983 */ /* x142345 stalin.sc:18180:638139 */ /* x142344 stalin.sc:18180:638149 */ t42856 = a26661; /* x142343 stalin.sc:18180:638140 */ t42857 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t42857==NULL) {backtrace("stalin.sc", 18180, 638139); out_of_memory_error();} t42857->s0 = t42856; t42857->s1.tag = NULL_TYPE; t42850 = f13646(t42857); /* x142342 stalin.sc:18179:638113 */ /* x142341 stalin.sc:18179:638130 */ t42854 = p15489->a26583; /* x142340 stalin.sc:18179:638114 */ t42855 = *((struct w49 *)(&t42854)); t42849 = f15328(t42855); /* x142339 stalin.sc:18176:637984 */ t42853.tag = STRUCTURE_TYPE24753; t42853.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42853.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18176, 637983); out_of_memory_error();} t42853.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t42853.value.structure_type24753->s0.value.structure_type24753 = t42850; t42853.value.structure_type24753->s1.tag = NULL_TYPE; a41887 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41887==NULL) {backtrace("stalin.sc", 18176, 637983); out_of_memory_error();} a41887->s0 = t42849; a41887->s1 = t42853; /* x301660 stalin.sc:14400:506485 */ /* x301659 stalin.sc:14400:506503 */ t42851 = a41887; /* x301658 stalin.sc:14400:506486 */ t42852.tag = STRUCTURE_TYPE24753; t42852.value.structure_type24753 = t42851; return f13492(t42852); l6336: /* x142348 stalin.sc:18181:638158 */ /* x142347 stalin.sc:18181:638159 */ /* x276735 stalin.sc:14693:514793 */ r15488.tag = STRING_TYPE; r15488.value.string_type = ""; return r15488; l6334: /* x142357 */ /* x142356 */ t42838 = p15488; p15491 = t42838; /* x142355 stalin.sc:18182:638182 */ /* x142353 stalin.sc:18182:638188 */ t42839 = p15491->a26590; /* x142354 stalin.sc:18182:638191 */ t42840 = a26661; /* x142352 stalin.sc:18182:638183 */ t42841 = f13637(t42839, t42840); r15488.tag = STRUCTURE_TYPE24753; r15488.value.structure_type24753 = t42841; return r15488;} /* [inside MOVE-GENERAL 15486] */ struct w49 f15486(struct p15369 *p15486, struct w49 a26659) {struct structure_type24753 *a41818; /* CS */ struct structure_type24753 *a41892; /* CS */ struct w49 t42858; struct w49 t42859; struct w49 t42860; struct structure_type24753 *t42861; struct w49 t42862; struct structure_type24753 *t42863; struct w49 t42864; struct w49 t42865; struct w49 t42866; struct w49 t42867; struct w49 t42868; struct w49 t42869; struct w49 t42870; struct w49 t42871; struct w49 t42872; struct w49 t42873; struct w49 t42874; struct w49 t42875; struct w49 t42876; struct w49 t42877; struct w12218 t42878; struct w49 t42879; struct w49 t42880; struct structure_type24753 *t42881; struct w49 t42882; struct w49 t42883; struct w49 t42884; struct w49 t42885; struct w49 t42886; struct w12218 t42887; /* x142298 stalin.sc:18512:650245 */ /* x142265 stalin.sc:18512:650249 */ /* x142264 stalin.sc:18512:650253 */ /* x142263 stalin.sc:18512:650265 */ t42858 = a26659; /* x142262 stalin.sc:18512:650254 */ if (!(f7682(t42858)==FALSE_TYPE)) goto l6338; /* x142259 */ /* x142258 stalin.sc:18512:650281 */ t42859 = a26659; /* x142257 stalin.sc:18512:650269 */ if (f8793(t42859)==FALSE_TYPE) goto l6339; l6338: /* x142275 stalin.sc:18513:650290 */ /* x142274 stalin.sc:18514:650337 */ /* x142273 stalin.sc:18514:650353 */ t42887 = p15486->p15368->p15355->a26583; /* x142272 stalin.sc:18514:650338 */ t42880 = f15342(t42887); /* x142271 stalin.sc:18513:650307 */ /* x142268 stalin.sc:18513:650319 */ t42884 = p15486->p15368->a26590; /* x142269 stalin.sc:18513:650322 */ /* x142270 stalin.sc:18513:650325 */ t42885 = p15486->a26591; /* x142267 stalin.sc:18513:650308 */ t42886.tag = FALSE_TYPE; t42879 = f15345(t42884, t42886, t42885); /* x142266 stalin.sc:18513:650291 */ t42883.tag = STRUCTURE_TYPE24753; t42883.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42883.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18513, 650290); out_of_memory_error();} t42883.value.structure_type24753->s0 = t42880; t42883.value.structure_type24753->s1.tag = NULL_TYPE; a41892 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41892==NULL) {backtrace("stalin.sc", 18513, 650290); out_of_memory_error();} a41892->s0 = t42879; a41892->s1 = t42883; /* x301680 stalin.sc:14400:506485 */ /* x301679 stalin.sc:14400:506503 */ t42881 = a41892; /* x301678 stalin.sc:14400:506486 */ t42882.tag = STRUCTURE_TYPE24753; t42882.value.structure_type24753 = t42881; return f13492(t42882); l6339: /* x142297 stalin.sc:18515:650362 */ /* x142296 stalin.sc:18518:650459 */ /* x142295 stalin.sc:18518:650475 */ t42878 = p15486->p15368->p15355->a26583; /* x142294 stalin.sc:18518:650460 */ t42862 = f15342(t42878); /* x142293 stalin.sc:18517:650412 */ /* x142287 stalin.sc:18517:650418 */ /* x142284 stalin.sc:18517:650427 */ t42872 = p15486->p15368->a26590; /* x142285 stalin.sc:18517:650430 */ t42873 = a26659; /* x142286 stalin.sc:18517:650432 */ t42874 = p15486->a26591; /* x142283 stalin.sc:18517:650419 */ t42870 = f14485(t42872, t42873, t42874); /* x142292 stalin.sc:18517:650436 */ /* x142289 stalin.sc:18517:650445 */ t42875 = p15486->p15368->p15355->a26584; /* x142290 stalin.sc:18517:650447 */ t42876 = a26659; /* x142291 stalin.sc:18517:650449 */ t42877 = p15486->p15368->p15355->a26585; /* x142288 stalin.sc:18517:650437 */ t42871 = f14485(t42875, t42876, t42877); /* x142282 stalin.sc:18517:650413 */ t42861 = f13637(t42870, t42871); /* x142281 stalin.sc:18516:650385 */ /* x142278 stalin.sc:18516:650397 */ t42867 = p15486->p15368->a26590; /* x142279 stalin.sc:18516:650400 */ t42868 = a26659; /* x142280 stalin.sc:18516:650402 */ t42869 = p15486->a26591; /* x142277 stalin.sc:18516:650386 */ t42860 = f15345(t42867, t42868, t42869); /* x142276 stalin.sc:18515:650363 */ t42866.tag = STRUCTURE_TYPE24753; t42866.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42866.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18515, 650362); out_of_memory_error();} t42866.value.structure_type24753->s0 = t42862; t42866.value.structure_type24753->s1.tag = NULL_TYPE; t42865.tag = STRUCTURE_TYPE24753; t42865.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42865.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18515, 650362); out_of_memory_error();} t42865.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t42865.value.structure_type24753->s0.value.structure_type24753 = t42861; t42865.value.structure_type24753->s1 = t42866; a41818 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41818==NULL) {backtrace("stalin.sc", 18515, 650362); out_of_memory_error();} a41818->s0 = t42860; a41818->s1 = t42865; /* x301384 stalin.sc:14400:506485 */ /* x301383 stalin.sc:14400:506503 */ t42863 = a41818; /* x301382 stalin.sc:14400:506486 */ t42864.tag = STRUCTURE_TYPE24753; t42864.value.structure_type24753 = t42863; return f13492(t42864);} /* [inside MOVE-GENERAL 15484] */ struct w16638 f15484(struct p15370 *p15484, struct w49 a26657) {struct p15484 *t42888; struct w12224 t42889; struct w228345 t42890; struct w49 t42891; struct structure_type24753 *t42892; struct p15484 *e15484; e15484 = (struct p15484 *)alloca(sizeof(struct p15484)); if (e15484==NULL) {backtrace("stalin.sc", 18507, 650143); out_of_memory_error();} e15484->a26657 = a26657; /* x142250 stalin.sc:18507:650155 */ /* x142249 stalin.sc:18507:650186 */ t42889 = p15484->a26592; /* x142248 stalin.sc:18507:650161 */ t42888 = e15484; /* x142243 stalin.sc:18507:650156 */ t42890.tag = NATIVE_PROCEDURE_TYPE20290; t42890.value.native_procedure_type20290 = t42888; t42891 = *((struct w49 *)(&t42889)); t42892 = (struct structure_type24753 *)NULL_TYPE; return f1042(t42890, t42891, t42892);} /* [inside MOVE-GENERAL 15475] */ struct w49 f15475(struct p15369 *p15475, struct w49 a26652) {struct structure_type24753 *a41817; /* CS */ struct structure_type24753 *a41886; /* CS */ struct w49 t42893; struct w49 t42894; struct w49 t42895; struct structure_type24753 *t42896; struct structure_type24753 *t42897; struct w49 t42898; struct structure_type24753 *t42899; struct w49 t42900; struct w49 t42901; struct w49 t42902; struct w49 t42903; struct w49 t42904; struct w49 t42905; struct w49 t42906; struct w49 t42907; struct w61020 t42908; struct w49 t42909; struct w49 t42910; struct w49 t42911; struct w49 t42912; struct w49 t42913; struct w49 t42914; struct w49 t42915; struct w49 t42916; struct w49 t42917; struct w49 t42918; struct w49 t42919; struct w49 t42920; struct w12218 t42921; struct w49 t42922; struct structure_type24753 *t42923; struct w49 t42924; struct structure_type24753 *t42925; struct w49 t42926; struct w49 t42927; struct w49 t42928; struct w49 t42929; struct w49 t42930; struct w49 t42931; struct w49 t42932; struct structure_type24753 *t42933; struct w49 t42934; struct w49 t42935; struct w49 t42936; struct w49 t42937; struct w12218 t42938; /* x142166 stalin.sc:18483:649209 */ /* x142115 stalin.sc:18483:649213 */ /* x142114 stalin.sc:18483:649217 */ /* x142113 stalin.sc:18483:649229 */ t42893 = a26652; /* x142112 stalin.sc:18483:649218 */ if (!(f7682(t42893)==FALSE_TYPE)) goto l6341; /* x142109 */ /* x142108 stalin.sc:18483:649245 */ t42894 = a26652; /* x142107 stalin.sc:18483:649233 */ if (f8793(t42894)==FALSE_TYPE) goto l6342; l6341: /* x142134 stalin.sc:18487:649393 */ /* x142133 stalin.sc:18489:649478 */ /* x142132 stalin.sc:18489:649494 */ t42938 = p15475->p15368->p15355->a26583; /* x142131 stalin.sc:18489:649479 */ t42924 = f15342(t42938); /* x142130 stalin.sc:18488:649437 */ /* x142126 stalin.sc:18488:649443 */ /* x142124 stalin.sc:18488:649450 */ t42935 = p15475->p15368->a26590; /* x142125 stalin.sc:18488:649453 */ t42936 = p15475->a26591; /* x142123 stalin.sc:18488:649444 */ t42932 = f14478(t42935, t42936); /* x142129 stalin.sc:18488:649457 */ /* x142128 stalin.sc:18488:649469 */ t42937 = p15475->p15368->p15355->a26584; /* x142127 stalin.sc:18488:649458 */ t42933 = f14427(t42937); /* x142122 stalin.sc:18488:649438 */ t42934.tag = STRUCTURE_TYPE24753; t42934.value.structure_type24753 = t42933; t42923 = f13637(t42932, t42934); /* x142121 stalin.sc:18487:649410 */ /* x142118 stalin.sc:18487:649422 */ t42929 = p15475->p15368->a26590; /* x142119 stalin.sc:18487:649425 */ /* x142120 stalin.sc:18487:649428 */ t42930 = p15475->a26591; /* x142117 stalin.sc:18487:649411 */ t42931.tag = FALSE_TYPE; t42922 = f15345(t42929, t42931, t42930); /* x142116 stalin.sc:18487:649394 */ t42928.tag = STRUCTURE_TYPE24753; t42928.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42928.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18487, 649393); out_of_memory_error();} t42928.value.structure_type24753->s0 = t42924; t42928.value.structure_type24753->s1.tag = NULL_TYPE; t42927.tag = STRUCTURE_TYPE24753; t42927.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42927.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18487, 649393); out_of_memory_error();} t42927.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t42927.value.structure_type24753->s0.value.structure_type24753 = t42923; t42927.value.structure_type24753->s1 = t42928; a41886 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41886==NULL) {backtrace("stalin.sc", 18487, 649393); out_of_memory_error();} a41886->s0 = t42922; a41886->s1 = t42927; /* x301656 stalin.sc:14400:506485 */ /* x301655 stalin.sc:14400:506503 */ t42925 = a41886; /* x301654 stalin.sc:14400:506486 */ t42926.tag = STRUCTURE_TYPE24753; t42926.value.structure_type24753 = t42925; return f13492(t42926); l6342: /* x142165 stalin.sc:18490:649500 */ /* x142164 stalin.sc:18493:649630 */ /* x142163 stalin.sc:18493:649646 */ t42921 = p15475->p15368->p15355->a26583; /* x142162 stalin.sc:18493:649631 */ t42898 = f15342(t42921); /* x142161 stalin.sc:18492:649584 */ /* x142155 stalin.sc:18492:649590 */ /* x142152 stalin.sc:18492:649599 */ t42915 = p15475->p15368->a26590; /* x142153 stalin.sc:18492:649602 */ t42916 = a26652; /* x142154 stalin.sc:18492:649604 */ t42917 = p15475->a26591; /* x142151 stalin.sc:18492:649591 */ t42913 = f14485(t42915, t42916, t42917); /* x142160 stalin.sc:18492:649608 */ /* x142157 stalin.sc:18492:649617 */ t42918 = p15475->p15368->p15355->a26584; /* x142158 stalin.sc:18492:649619 */ t42919 = a26652; /* x142159 stalin.sc:18492:649621 */ t42920 = p15475->p15368->p15355->a26585; /* x142156 stalin.sc:18492:649609 */ t42914 = f14485(t42918, t42919, t42920); /* x142150 stalin.sc:18492:649585 */ t42897 = f13637(t42913, t42914); /* x142149 stalin.sc:18491:649543 */ /* x142145 stalin.sc:18491:649549 */ /* x142143 stalin.sc:18491:649556 */ t42910 = p15475->p15368->a26590; /* x142144 stalin.sc:18491:649559 */ t42911 = p15475->a26591; /* x142142 stalin.sc:18491:649550 */ t42907 = f14478(t42910, t42911); /* x142148 stalin.sc:18491:649563 */ /* x142147 stalin.sc:18491:649575 */ t42912 = a26652; /* x142146 stalin.sc:18491:649564 */ t42908 = f14433(t42912); /* x142141 stalin.sc:18491:649544 */ t42909 = *((struct w49 *)(&t42908)); t42896 = f13637(t42907, t42909); /* x142140 stalin.sc:18490:649517 */ /* x142137 stalin.sc:18490:649529 */ t42904 = p15475->p15368->a26590; /* x142138 stalin.sc:18490:649532 */ t42905 = a26652; /* x142139 stalin.sc:18490:649534 */ t42906 = p15475->a26591; /* x142136 stalin.sc:18490:649518 */ t42895 = f15345(t42904, t42905, t42906); /* x142135 stalin.sc:18490:649501 */ t42903.tag = STRUCTURE_TYPE24753; t42903.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42903.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18490, 649500); out_of_memory_error();} t42903.value.structure_type24753->s0 = t42898; t42903.value.structure_type24753->s1.tag = NULL_TYPE; t42902.tag = STRUCTURE_TYPE24753; t42902.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42902.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18490, 649500); out_of_memory_error();} t42902.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t42902.value.structure_type24753->s0.value.structure_type24753 = t42897; t42902.value.structure_type24753->s1 = t42903; t42901.tag = STRUCTURE_TYPE24753; t42901.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t42901.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18490, 649500); out_of_memory_error();} t42901.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t42901.value.structure_type24753->s0.value.structure_type24753 = t42896; t42901.value.structure_type24753->s1 = t42902; a41817 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41817==NULL) {backtrace("stalin.sc", 18490, 649500); out_of_memory_error();} a41817->s0 = t42895; a41817->s1 = t42901; /* x301380 stalin.sc:14400:506485 */ /* x301379 stalin.sc:14400:506503 */ t42899 = a41817; /* x301378 stalin.sc:14400:506486 */ t42900.tag = STRUCTURE_TYPE24753; t42900.value.structure_type24753 = t42899; return f13492(t42900);} /* [inside MOVE-GENERAL 15473] */ struct w16638 f15473(struct p15370 *p15473, struct w49 a26650) {struct p15473 *t42939; struct w12224 t42940; struct w228345 t42941; struct w49 t42942; struct structure_type24753 *t42943; struct p15473 *e15473; e15473 = (struct p15473 *)alloca(sizeof(struct p15473)); if (e15473==NULL) {backtrace("stalin.sc", 18478, 649122); out_of_memory_error();} e15473->a26650 = a26650; /* x142100 stalin.sc:18478:649134 */ /* x142099 stalin.sc:18478:649165 */ t42940 = p15473->a26592; /* x142098 stalin.sc:18478:649140 */ t42939 = e15473; /* x142093 stalin.sc:18478:649135 */ t42941.tag = NATIVE_PROCEDURE_TYPE20539; t42941.value.native_procedure_type20539 = t42939; t42942 = *((struct w49 *)(&t42940)); t42943 = (struct structure_type24753 *)NULL_TYPE; return f1042(t42941, t42942, t42943);} /* [inside MOVE-GENERAL 15458] */ struct w49 f15458(struct p15369 *p15458, struct w49 a26641) {struct p15368 *t42944; struct w49 t42945; struct w49 t42946; struct w49 t42947; struct w49 t42948; struct w49 t42949; struct w49 t42950; struct w49 t42951; struct w49 t42952; struct w49 t42953; struct w49 t42954; struct w49 t42955; struct structure_type24753 *t42956; struct w49 t42957; struct w49 t42958; /* x141760 stalin.sc:18408:646377 */ /* x141759 stalin.sc:18408:646383 */ /* x141742 stalin.sc:18408:646387 */ /* x141741 stalin.sc:18408:646391 */ /* x141740 stalin.sc:18408:646403 */ t42946 = a26641; /* x141739 stalin.sc:18408:646392 */ if (!(f7682(t42946)==FALSE_TYPE)) goto l6344; /* x141736 */ /* x141735 stalin.sc:18408:646419 */ t42947 = a26641; /* x141734 stalin.sc:18408:646407 */ if (f8793(t42947)==FALSE_TYPE) goto l6345; l6344: /* x141749 stalin.sc:18412:646583 */ /* x141747 stalin.sc:18412:646600 */ /* x141745 stalin.sc:18412:646607 */ t42957 = p15458->p15368->p15355->a26584; /* x141746 stalin.sc:18412:646609 */ t42958 = p15458->p15368->p15355->a26585; /* x141744 stalin.sc:18412:646601 */ t42954 = f14478(t42957, t42958); /* x141748 stalin.sc:18412:646612 */ t42955 = p15458->a26591; /* x141743 stalin.sc:18412:646584 */ t42956 = f14422(t42954, t42955); t42945.tag = STRUCTURE_TYPE24753; t42945.value.structure_type24753 = t42956; goto l6346; l6345: /* x141758 stalin.sc:18413:646622 */ /* x141755 stalin.sc:18413:646630 */ /* x141752 stalin.sc:18413:646639 */ t42951 = p15458->p15368->p15355->a26584; /* x141753 stalin.sc:18413:646641 */ t42952 = a26641; /* x141754 stalin.sc:18413:646643 */ t42953 = p15458->p15368->p15355->a26585; /* x141751 stalin.sc:18413:646631 */ t42948 = f14485(t42951, t42952, t42953); /* x141756 stalin.sc:18413:646646 */ t42949 = a26641; /* x141757 stalin.sc:18413:646648 */ t42950 = p15458->a26591; /* x141750 stalin.sc:18413:646623 */ t42945 = f14579(t42948, t42949, t42950); l6346: /* x141731 stalin.sc:18408:646378 */ t42944 = p15458->p15368; return f15488(t42944, t42945);} /* [inside MOVE-GENERAL 15456] */ struct w16638 f15456(struct p15370 *p15456, struct w49 a26639) {struct p15456 *t42959; struct w12224 t42960; struct w228345 t42961; struct w49 t42962; struct structure_type24753 *t42963; struct p15456 *e15456; e15456 = (struct p15456 *)alloca(sizeof(struct p15456)); if (e15456==NULL) {backtrace("stalin.sc", 18403, 646300); out_of_memory_error();} e15456->a26639 = a26639; /* x141726 stalin.sc:18403:646312 */ /* x141725 stalin.sc:18403:646343 */ t42960 = p15456->a26592; /* x141724 stalin.sc:18403:646318 */ t42959 = e15456; /* x141719 stalin.sc:18403:646313 */ t42961.tag = NATIVE_PROCEDURE_TYPE20555; t42961.value.native_procedure_type20555 = t42959; t42962 = *((struct w49 *)(&t42960)); t42963 = (struct structure_type24753 *)NULL_TYPE; return f1042(t42961, t42962, t42963);} /* [inside MOVE-GENERAL 15442] */ struct structure_type24753 *f15442(struct p15369 *p15442, struct w49 a26628) {struct structure_type24753 *r15442; unsigned t42964; unsigned t42965; struct w49 t42966; struct w49 t42967; struct w49 t42968; struct w49 t42969; /* x141589 stalin.sc:18377:645557 */ /* x141584 stalin.sc:18377:645563 */ /* x141582 stalin.sc:18377:645575 */ t42966 = a26628; /* x141583 stalin.sc:18377:645577 */ t42967 = p15442->p15368->p15355->a26585; /* x141581 stalin.sc:18377:645564 */ t42964 = f14564(t42966, t42967); /* x141588 stalin.sc:18378:645592 */ /* x141586 stalin.sc:18378:645604 */ t42968 = a26628; /* x141587 stalin.sc:18378:645606 */ t42969 = p15442->a26591; /* x141585 stalin.sc:18378:645593 */ t42965 = f14564(t42968, t42969); /* x268557 stalin.sc:18377:645558 */ r15442 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r15442==NULL) {backtrace("stalin.sc", 18377, 645557); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t42964==FALSE_TYPE) r15442->s0.tag = (unsigned)t42964; else {r15442->s0.tag = FIXNUM_TYPE; r15442->s0.value.fixnum_type = (int)(((int)t42964)>>1);} /* MOVE: dispatching squished to general */ if (t42965==FALSE_TYPE) r15442->s1.tag = (unsigned)t42965; else {r15442->s1.tag = FIXNUM_TYPE; r15442->s1.value.fixnum_type = (int)(((int)t42965)>>1);} return r15442;} /* [inside MOVE-GENERAL 15431] */ struct structure_type24753 *f15431(struct p15369 *p15431, struct w49 a26622) {struct structure_type24753 *r15431; unsigned t42970; unsigned t42971; struct w49 t42972; struct w49 t42973; struct w49 t42974; struct w49 t42975; /* x141406 stalin.sc:18329:643842 */ /* x141401 stalin.sc:18329:643848 */ /* x141399 stalin.sc:18329:643860 */ t42972 = a26622; /* x141400 stalin.sc:18329:643862 */ t42973 = p15431->p15368->p15355->a26585; /* x141398 stalin.sc:18329:643849 */ t42970 = f14564(t42972, t42973); /* x141405 stalin.sc:18329:643865 */ /* x141403 stalin.sc:18329:643877 */ t42974 = a26622; /* x141404 stalin.sc:18329:643879 */ t42975 = p15431->a26591; /* x141402 stalin.sc:18329:643866 */ t42971 = f14564(t42974, t42975); /* x268570 stalin.sc:18329:643843 */ r15431 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r15431==NULL) {backtrace("stalin.sc", 18329, 643842); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t42970==FALSE_TYPE) r15431->s0.tag = (unsigned)t42970; else {r15431->s0.tag = FIXNUM_TYPE; r15431->s0.value.fixnum_type = (int)(((int)t42970)>>1);} /* MOVE: dispatching squished to general */ if (t42971==FALSE_TYPE) r15431->s1.tag = (unsigned)t42971; else {r15431->s1.tag = FIXNUM_TYPE; r15431->s1.value.fixnum_type = (int)(((int)t42971)>>1);} return r15431;} /* MOVE-GENERAL[15355] */ struct w49 f15355(struct w12218 a26583, struct w49 a26584, struct w49 a26585, struct w49 a26586, unsigned a26587) {struct w49 r15355; struct w49 a25900; /* C */ struct w49 a25901; /* W */ struct w12224 a26588; /* US */ struct w49 a26589; /* U */ struct w49 a26590; /* C1 */ struct w49 a26591; /* W1 */ struct w12224 a26592; /* US */ struct w49 a26600; /* U1 */ struct structure_type24753 *a26617; /* ALIST */ struct structure_type24753 *a26623; /* ALIST */ struct structure_type24753 *a35125; /* OBJS */ struct structure_type24753 *a35126; /* OBJS */ struct w12224 a35457; /* PAIR */ struct w12224 a35458; /* PAIR */ struct w12224 a35459; /* PAIR */ struct w12224 a36087; /* PAIR */ struct w12218 a38350; /* S */ struct w12218 a38351; /* S */ struct w12218 a38352; /* S */ struct w12218 a38353; /* S */ struct w12218 a38361; /* S */ struct w12218 a38362; /* S */ struct w12218 a38374; /* S */ struct w12218 a38375; /* S */ struct w12218 a38392; /* S */ struct w12218 a38436; /* S */ struct structure_type24753 *a41778; /* CS */ struct structure_type24753 *a41779; /* CS */ struct structure_type24753 *a41811; /* CS */ struct structure_type24753 *a41812; /* CS */ struct structure_type24753 *a41813; /* CS */ struct structure_type24753 *a41814; /* CS */ struct structure_type24753 *a41815; /* CS */ struct structure_type24753 *a41816; /* CS */ struct structure_type24753 *a41877; /* CS */ struct structure_type24753 *a41878; /* CS */ struct structure_type24753 *a41879; /* CS */ struct structure_type24753 *a41880; /* CS */ struct structure_type24753 *a41881; /* CS */ struct structure_type24753 *a41882; /* CS */ struct structure_type24753 *a41883; /* CS */ struct structure_type24753 *a41884; /* CS */ struct structure_type24753 *a41885; /* CS */ struct structure_type24753 *a41888; /* CS */ struct structure_type24753 *a41934; /* CS */ struct structure_type24753 *a41935; /* CS */ struct structure_type24753 *a41936; /* CS */ struct structure_type24753 *a41937; /* CS */ struct p15355 *t42976; struct w12224 t42977; struct w12218 t42978; struct w12218 t42979; struct w12218 t42980; struct w12218 t42981; struct p15355 *t42982; struct p15355 *t42983; struct w49 t42984; struct p15368 *t42985; struct w49 t42986; struct p15369 *t42987; struct w12224 t42988; struct p15370 *t42989; struct p15370 *t42990; struct p15370 *t42991; struct w49 t42992; struct w12224 t42993; struct w49 t42994; struct w49 t42995; struct w49 t42996; struct w49 t42997; struct p15370 *t42998; struct w49 t42999; struct w49 t43000; struct w49 t43001; struct w49 t43002; struct w49 t43003; struct p15370 *t43004; struct w49 t43005; struct w49 t43006; struct w49 t43007; struct w49 t43008; struct w49 t43009; struct w49 t43010; struct p15370 *t43011; struct w49 t43012; struct structure_type24753 *t43013; struct w49 t43014; struct structure_type24753 *t43015; struct w49 t43016; struct w49 t43017; struct w49 t43018; struct w12224 t43019; struct w228245 t43020; struct w49 t43021; struct structure_type24753 *t43022; struct w49 t43023; struct w12224 t43024; struct w12224 t43025; char *t43026; struct w49 t43027; struct w49 t43028; struct w49 t43029; struct w49 t43030; struct w49 t43031; struct w49 t43032; struct p15370 *t43033; struct w49 t43034; struct w12218 t43035; struct w49 t43036; struct p15369 *t43037; unsigned t43038; unsigned t43039; struct p15369 *t43040; struct p15368 *t43041; struct structure_type24753 *t43042; struct w49 t43043; struct w49 t43044; struct w49 t43045; struct structure_type24753 *t43046; struct w49 t43047; struct structure_type24753 *t43048; struct w49 t43049; struct structure_type24753 *t43050; struct w49 t43051; struct w49 t43052; char *t43053; struct w49 t43054; struct w49 t43055; struct w49 t43056; struct structure_type24753 *t43057; struct p15368 *t43058; struct p15368 *t43059; struct w49 t43060; struct p15370 *t43061; struct w49 t43062; struct w49 t43063; struct structure_type24753 *t43064; struct w49 t43065; struct w49 t43066; struct w12224 t43067; struct w228245 t43068; struct w49 t43069; struct structure_type24753 *t43070; struct w49 t43071; struct w12224 t43072; struct w12224 t43073; char *t43074; struct p15370 *t43075; struct w49 t43076; struct w12218 t43077; struct w49 t43078; struct p15369 *t43079; unsigned t43080; unsigned t43081; struct p15370 *t43082; struct w49 t43083; struct w49 t43084; struct structure_type24753 *t43085; struct w49 t43086; struct w49 t43087; struct w12224 t43088; struct w228245 t43089; struct w49 t43090; struct structure_type24753 *t43091; struct w12224 t43092; struct w228345 t43093; struct w49 t43094; struct structure_type24753 *t43095; struct w49 t43096; struct structure_type24753 *t43097; struct structure_type24753 *t43098; struct structure_type24753 *t43099; struct w49 t43100; struct w49 t43101; struct w49 t43102; struct w49 t43103; struct w49 t43104; struct w49 t43105; struct w49 t43106; struct w49 t43107; struct w61020 t43108; struct w49 t43109; struct w49 t43110; struct w49 t43111; struct w49 t43112; struct w49 t43113; struct w49 t43114; struct w49 t43115; struct w49 t43116; struct w49 t43117; struct w49 t43118; struct w49 t43119; struct w49 t43120; struct w49 t43121; struct structure_type24753 *t43122; struct w49 t43123; struct w49 t43124; char *t43125; struct structure_type24753 *t43126; struct w49 t43127; struct w49 t43128; unsigned t43129; struct w49 t43130; struct structure_type24753 *t43131; struct w49 t43132; char *t43133; struct w49 t43134; struct w49 t43135; struct w49 t43136; struct structure_type24753 *t43137; struct structure_type24753 *t43138; struct structure_type24753 *t43139; struct w49 t43140; struct w49 t43141; struct w49 t43142; struct w49 t43143; struct w49 t43144; struct w49 t43145; struct w49 t43146; struct w49 t43147; struct w61020 t43148; struct w49 t43149; struct w49 t43150; struct w49 t43151; struct w49 t43152; struct w49 t43153; struct w49 t43154; struct w49 t43155; struct w49 t43156; struct w49 t43157; struct w49 t43158; struct w49 t43159; struct w49 t43160; struct structure_type24753 *t43161; struct structure_type24753 *t43162; struct w49 t43163; struct w49 t43164; struct w49 t43165; struct w49 t43166; struct w49 t43167; struct w49 t43168; struct structure_type24753 *t43169; struct w49 t43170; struct w49 t43171; struct w49 t43172; struct w49 t43173; struct w49 t43174; struct w49 t43175; struct structure_type24753 *t43176; struct structure_type24753 *t43177; struct w49 t43178; struct w49 t43179; struct w49 t43180; struct w49 t43181; struct w49 t43182; struct w49 t43183; struct structure_type24753 *t43184; struct w49 t43185; struct w49 t43186; struct w49 t43187; struct w49 t43188; struct w49 t43189; struct w12218 t43190; struct p15369 *t43191; struct w49 t43192; struct structure_type24753 *t43193; struct w49 t43194; struct structure_type24753 *t43195; struct w49 t43196; struct w49 t43197; struct w49 t43198; struct w49 t43199; struct w49 t43200; struct w49 t43201; struct w49 t43202; struct w49 t43203; struct w49 t43204; struct w49 t43205; struct w49 t43206; struct w49 t43207; struct w12218 t43208; struct p15369 *t43209; struct w49 t43210; struct w49 t43211; struct structure_type24753 *t43212; struct w49 t43213; struct w49 t43214; struct w49 t43215; struct w49 t43216; struct w49 t43217; struct structure_type24753 *t43218; struct structure_type24753 *t43219; struct structure_type24753 *t43220; struct w49 t43221; struct w49 t43222; struct w49 t43223; struct w49 t43224; struct w49 t43225; struct w49 t43226; struct w49 t43227; struct w49 t43228; struct w61020 t43229; struct w49 t43230; struct w49 t43231; struct w49 t43232; struct w49 t43233; struct w49 t43234; struct w49 t43235; struct w49 t43236; struct w49 t43237; struct w49 t43238; struct w49 t43239; struct w49 t43240; struct w49 t43241; struct w49 t43242; struct w49 t43243; struct w49 t43244; struct w49 t43245; struct structure_type24753 *t43246; struct structure_type24753 *t43247; struct w49 t43248; struct w49 t43249; struct w49 t43250; struct w49 t43251; struct w49 t43252; struct w49 t43253; struct w49 t43254; struct w49 t43255; struct w49 t43256; struct structure_type24753 *t43257; char *t43258; struct w49 t43259; struct w49 t43260; struct structure_type24753 *t43261; struct w49 t43262; struct w49 t43263; struct w49 t43264; struct w49 t43265; struct w49 t43266; struct w49 t43267; struct w49 t43268; struct w12218 t43269; struct p15369 *t43270; struct w49 t43271; struct structure_type24753 *t43272; struct w49 t43273; struct structure_type24753 *t43274; struct w49 t43275; struct w49 t43276; struct w49 t43277; struct w49 t43278; struct w49 t43279; struct w49 t43280; struct w49 t43281; struct w61020 t43282; struct w49 t43283; struct w49 t43284; struct w49 t43285; struct w49 t43286; struct w49 t43287; struct w12218 t43288; struct p15370 *t43289; struct w49 t43290; struct w49 t43291; struct w49 t43292; struct w49 t43293; struct w49 t43294; struct p15370 *t43295; struct w49 t43296; struct w49 t43297; struct structure_type24753 *t43298; struct w49 t43299; struct w49 t43300; struct w12224 t43301; struct w228245 t43302; struct w49 t43303; struct structure_type24753 *t43304; struct w49 t43305; struct w12224 t43306; struct w12224 t43307; char *t43308; struct p15370 *t43309; struct w49 t43310; struct w12218 t43311; struct w49 t43312; struct p15369 *t43313; unsigned t43314; unsigned t43315; struct p15370 *t43316; struct p15369 *t43317; struct w12224 t43318; struct w228245 t43319; struct w49 t43320; struct structure_type24753 *t43321; struct w49 t43322; struct w49 t43323; struct w49 t43324; struct w49 t43325; struct p15370 *t43326; struct p15370 *t43327; struct w12224 t43328; struct w228345 t43329; struct w49 t43330; struct structure_type24753 *t43331; struct w49 t43332; struct w49 t43333; struct w49 t43334; struct w49 t43335; struct p15369 *t43336; struct w12224 t43337; struct w228245 t43338; struct w49 t43339; struct structure_type24753 *t43340; struct w49 t43341; struct w49 t43342; struct structure_type24753 *t43343; struct w49 t43344; struct w49 t43345; char *t43346; struct structure_type24753 *t43347; struct w49 t43348; struct w49 t43349; unsigned t43350; struct structure_type24753 *t43351; struct structure_type24753 *t43352; struct structure_type24753 *t43353; struct w49 t43354; struct structure_type24753 *t43355; struct w49 t43356; struct w49 t43357; struct w49 t43358; struct structure_type24753 *t43359; struct w49 t43360; char *t43361; struct w49 t43362; struct w49 t43363; struct p15368 *t43364; struct w49 t43365; struct structure_type24753 *t43366; struct structure_type24753 *t43367; struct w49 t43368; struct w49 t43369; struct w49 t43370; struct w49 t43371; struct w49 t43372; struct w49 t43373; struct w49 t43374; struct w49 t43375; struct w49 t43376; struct w49 t43377; struct w49 t43378; struct p15369 *t43379; struct structure_type24753 *t43380; char *t43381; struct w49 t43382; struct w49 t43383; struct structure_type24753 *t43384; struct w49 t43385; struct w49 t43386; struct w49 t43387; struct w30215 t43388; struct w49 t43389; struct w49 t43390; struct w49 t43391; struct w49 t43392; struct w49 t43393; struct p15369 *t43394; struct structure_type24753 *t43395; char *t43396; struct w49 t43397; struct w49 t43398; struct structure_type24753 *t43399; struct w49 t43400; struct w49 t43401; struct w49 t43402; struct w30215 t43403; struct w49 t43404; struct w49 t43405; struct w49 t43406; struct w49 t43407; struct w49 t43408; struct p15355 *t43409; struct w49 t43410; struct w49 t43411; struct structure_type24753 *t43412; struct structure_type24753 *t43413; struct structure_type24753 *t43414; struct w49 t43415; struct w49 t43416; char *t43417; struct w49 t43418; char *t43419; struct w49 t43420; struct w49 t43421; struct w12224 t43422; char *t43423; unsigned t43424; struct w49 t43425; struct w228463 t43426; struct structure_type24753 *t43427; struct p15435 *t43428; struct w30215 t43429; struct w227957 t43430; struct w49 t43431; struct w49 t43432; int t43433; struct structure_type24753 *t43434; int t43435; unsigned t43436; struct w49 t43437; struct w228463 t43438; struct structure_type24753 *t43439; struct w36270 t43440; struct w49 t43441; struct structure_type24753 *t43442; struct p15369 *t43443; struct w12224 t43444; struct w36270 t43445; struct w49 t43446; struct structure_type24753 *t43447; struct w12224 t43448; unsigned t43449; struct w49 t43450; struct w49 t43451; struct w49 t43452; struct p15368 *t43453; struct w49 t43454; struct w49 t43455; struct w49 t43456; struct structure_type24753 *t43457; struct w49 t43458; struct w49 t43459; char *t43460; struct p15368 *t43461; struct w49 t43462; struct structure_type24753 *t43463; struct structure_type24753 *t43464; struct w49 t43465; struct w49 t43466; struct w49 t43467; struct w49 t43468; struct w49 t43469; struct w49 t43470; struct w49 t43471; struct w49 t43472; struct w49 t43473; struct w49 t43474; struct w49 t43475; struct p15369 *t43476; struct structure_type24753 *t43477; char *t43478; struct w49 t43479; struct w49 t43480; struct structure_type24753 *t43481; struct w49 t43482; struct w49 t43483; struct w49 t43484; struct w30215 t43485; struct w49 t43486; struct w49 t43487; struct w49 t43488; struct w49 t43489; struct w49 t43490; struct p15369 *t43491; struct structure_type24753 *t43492; char *t43493; struct w49 t43494; struct w49 t43495; struct structure_type24753 *t43496; struct w49 t43497; struct w49 t43498; struct w49 t43499; struct w30215 t43500; struct w49 t43501; struct w49 t43502; struct w49 t43503; struct w49 t43504; struct w49 t43505; struct p15355 *t43506; struct w49 t43507; struct w49 t43508; struct structure_type24753 *t43509; struct structure_type24753 *t43510; struct structure_type24753 *t43511; struct w49 t43512; struct w49 t43513; char *t43514; struct w49 t43515; char *t43516; struct w49 t43517; struct w49 t43518; struct w12224 t43519; char *t43520; unsigned t43521; struct w49 t43522; struct w228463 t43523; struct structure_type24753 *t43524; struct p15424 *t43525; struct w30215 t43526; struct w227957 t43527; struct w49 t43528; struct w49 t43529; int t43530; struct structure_type24753 *t43531; int t43532; unsigned t43533; struct w49 t43534; struct w228463 t43535; struct structure_type24753 *t43536; struct w36270 t43537; struct w49 t43538; struct structure_type24753 *t43539; struct p15369 *t43540; struct w12224 t43541; struct w36270 t43542; struct w49 t43543; struct structure_type24753 *t43544; struct w49 t43545; struct w49 t43546; struct w49 t43547; struct w49 t43548; struct w49 t43549; struct w49 t43550; struct w12224 t43551; struct w228245 t43552; struct w49 t43553; struct structure_type24753 *t43554; char *t43555; struct w6315 t43556; struct p15368 *t43557; struct p15368 *t43558; struct w49 t43559; struct p15370 *t43560; struct w12224 t43561; struct w228245 t43562; struct w49 t43563; struct structure_type24753 *t43564; unsigned t43565; struct w49 t43566; struct w49 t43567; struct w49 t43568; struct w12224 t43569; struct w228345 t43570; struct w49 t43571; struct structure_type24753 *t43572; struct p15368 *t43573; struct w49 t43574; struct w49 t43575; struct w49 t43576; struct w49 t43577; struct w49 t43578; struct w49 t43579; struct w49 t43580; struct w49 t43581; struct w49 t43582; struct w49 t43583; struct w49 t43584; struct structure_type24753 *t43585; struct w49 t43586; struct w49 t43587; char *t43588; struct structure_type24753 *t43589; struct w49 t43590; struct w49 t43591; unsigned t43592; struct w49 t43593; struct structure_type24753 *t43594; struct w49 t43595; char *t43596; struct w49 t43597; struct w49 t43598; struct p15368 *t43599; struct w49 t43600; struct w49 t43601; struct w49 t43602; struct w49 t43603; struct w49 t43604; struct w49 t43605; struct w49 t43606; struct w49 t43607; struct w49 t43608; struct p15368 *t43609; struct structure_type24753 *t43610; struct w49 t43611; struct w49 t43612; struct w49 t43613; struct p15368 *t43614; struct structure_type24753 *t43615; struct w49 t43616; struct w49 t43617; struct w49 t43618; struct p15369 *t43619; struct p15368 *t43620; struct structure_type24753 *t43621; struct w49 t43622; struct w49 t43623; struct w49 t43624; struct w49 t43625; struct w49 t43626; struct p15369 *t43627; struct p15368 *t43628; struct w49 t43629; struct w49 t43630; struct w49 t43631; struct w49 t43632; struct w49 t43633; struct w49 t43634; struct w49 t43635; struct w49 t43636; struct w49 t43637; struct p15369 *t43638; struct p15368 *t43639; struct structure_type24753 *t43640; struct w49 t43641; struct w61020 t43642; struct w49 t43643; struct w49 t43644; struct w49 t43645; struct w49 t43646; struct p15370 *t43647; struct w49 t43648; struct w49 t43649; struct w49 t43650; struct w49 t43651; struct w49 t43652; struct p15370 *t43653; struct p15370 *t43654; struct w49 t43655; struct p15396 *t43656; struct w12224 t43657; struct w228345 t43658; struct w49 t43659; struct structure_type24753 *t43660; struct p15368 *t43661; struct structure_type24753 *t43662; struct w49 t43663; struct w49 t43664; struct w49 t43665; struct w49 t43666; struct p15396 *t43667; struct w12224 t43668; struct w228245 t43669; struct w49 t43670; struct structure_type24753 *t43671; struct w49 t43672; struct w49 t43673; struct structure_type24753 *t43674; struct w49 t43675; struct w49 t43676; char *t43677; struct structure_type24753 *t43678; struct w49 t43679; struct w49 t43680; unsigned t43681; struct w49 t43682; struct w61020 t43683; struct w49 t43684; struct w49 t43685; struct w49 t43686; struct w49 t43687; struct p15368 *t43688; struct w49 t43689; struct w49 t43690; struct w49 t43691; struct w49 t43692; struct w49 t43693; struct w49 t43694; struct w49 t43695; struct p15368 *t43696; struct structure_type24753 *t43697; struct w49 t43698; struct w49 t43699; struct w49 t43700; struct w49 t43701; struct p15368 *t43702; struct w49 t43703; struct w49 t43704; struct w49 t43705; struct w49 t43706; struct w49 t43707; struct w49 t43708; struct w49 t43709; struct w49 t43710; struct p15370 *t43711; struct p15368 *t43712; struct structure_type24753 *t43713; struct w49 t43714; struct w49 t43715; struct w49 t43716; struct w49 t43717; struct w49 t43718; struct w49 t43719; unsigned t43720; struct w49 t43721; struct w49 t43722; struct w49 t43723; struct w12224 t43724; struct w228245 t43725; struct w49 t43726; struct structure_type24753 *t43727; struct w49 t43728; struct w49 t43729; struct structure_type24753 *t43730; struct w49 t43731; struct w49 t43732; struct w49 t43733; struct w49 t43734; struct p15369 *t43735; struct w49 t43736; struct w49 t43737; struct w49 t43738; struct w49 t43739; struct p15368 *t43740; struct structure_type24753 *t43741; struct w49 t43742; struct w49 t43743; struct w49 t43744; struct p15368 *t43745; struct w49 t43746; struct p15369 *t43747; struct p15368 *t43748; struct structure_type24753 *t43749; struct w49 t43750; struct w49 t43751; struct w49 t43752; struct w49 t43753; struct p15369 *t43754; struct p15368 *t43755; struct w49 t43756; struct w49 t43757; struct w49 t43758; struct w49 t43759; struct w49 t43760; struct w49 t43761; struct w49 t43762; struct w49 t43763; struct w49 t43764; struct p15369 *t43765; struct p15368 *t43766; struct structure_type24753 *t43767; struct w49 t43768; struct w61020 t43769; struct w49 t43770; struct w49 t43771; struct w49 t43772; struct w49 t43773; struct p15369 *t43774; struct w49 t43775; struct w49 t43776; struct w49 t43777; struct w49 t43778; struct w49 t43779; struct p15368 *t43780; struct p15368 *t43781; struct w49 t43782; struct w49 t43783; struct w49 t43784; struct p15369 *t43785; struct p15368 *t43786; struct structure_type24753 *t43787; struct w49 t43788; struct w49 t43789; struct w49 t43790; struct p15368 *t43791; struct p15368 *t43792; struct structure_type24753 *t43793; struct w49 t43794; struct w49 t43795; struct w49 t43796; struct p15368 *t43797; struct p15368 *t43798; struct w49 t43799; struct p15369 *t43800; struct p15369 *t43801; struct p15368 *t43802; struct w49 t43803; struct structure_type24753 *t43804; char *t43805; struct w49 t43806; struct w49 t43807; struct structure_type24753 *t43808; struct w49 t43809; struct w49 t43810; struct w49 t43811; struct w49 t43812; struct w49 t43813; struct w49 t43814; char *t43815; struct p15368 *t43816; struct p15368 *t43817; struct w61020 t43818; struct w49 t43819; struct w49 t43820; struct w49 t43821; struct p15369 *t43822; struct p15368 *t43823; struct w49 t43824; struct w49 t43825; struct w49 t43826; struct w49 t43827; struct w49 t43828; struct p15355 *t43829; struct w61020 t43830; struct w49 t43831; struct structure_type24753 *t43832; struct w49 t43833; struct w49 t43834; struct w49 t43835; struct structure_type24753 *t43836; struct w12218 t43837; struct p15369 *t43838; struct w12224 t43839; struct w228245 t43840; struct w49 t43841; struct structure_type24753 *t43842; char *t43843; struct structure_type24753 *t43844; struct w12224 t43845; struct w49 t43846; struct w12218 t43847; struct w12218 t43848; struct w12218 t43849; struct w12218 t43850; struct p15355 *t43851; struct w12224 t43852; struct w228245 t43853; struct w49 t43854; struct structure_type24753 *t43855; struct w12224 t43856; struct w228345 t43857; struct w49 t43858; struct structure_type24753 *t43859; struct w61020 t43860; struct w61020 t43861; struct structure_type24753 *t43862; struct w49 t43863; struct w49 t43864; struct w49 t43865; struct structure_type24753 *t43866; struct w12563 t43867; struct w12563 t43868; struct w12218 t43869; struct w12218 t43870; struct w12218 t43871; struct w12218 t43872; struct p15355 *t43873; struct w49 t43874; struct structure_type24753 *t43875; struct w61020 t43876; struct w61020 t43877; struct w49 t43878; struct w49 t43879; unsigned t43880; struct w49 t43881; struct w49 t43882; struct w49 t43883; struct w49 t43884; struct w49 t43885; struct p15355 *t43886; struct w49 t43887; struct w61020 t43888; struct w49 t43889; struct w49 t43890; struct w49 t43891; struct w49 t43892; struct p15355 *t43893; struct w49 t43894; struct w49 t43895; struct w49 t43896; struct p15355 *t43897; struct w49 t43898; struct w49 t43899; struct w49 t43900; struct p15355 *t43901; struct w49 t43902; struct w61020 t43903; struct w49 t43904; struct w49 t43905; struct w49 t43906; struct w49 t43907; char *t43908; char *t43909; struct w12563 t43910; struct w12563 t43911; struct w12218 t43912; struct w12218 t43913; struct w12218 t43914; struct w12218 t43915; struct w12563 t43916; struct w12563 t43917; struct w12218 t43918; struct w12218 t43919; struct w12218 t43920; struct w12218 t43921; struct w12224 t43922; struct w12224 t43923; struct w12224 t43924; struct w227671 t43925; struct w49 t43926; struct w12224 t43927; struct w228345 t43928; struct w49 t43929; struct structure_type24753 *t43930; struct w49 t43931; struct structure_type24753 *t43932; struct w61020 t43933; struct w61020 t43934; struct structure_type24753 *t43935; struct w49 t43936; struct w49 t43937; struct w49 t43938; struct structure_type24753 *t43939; struct w12563 t43940; struct w12563 t43941; struct w12218 t43942; struct w12218 t43943; struct w12218 t43944; struct w12218 t43945; struct p15355 *t43946; struct w61020 t43947; struct w49 t43948; struct structure_type24753 *t43949; struct w49 t43950; struct w49 t43951; struct w49 t43952; struct structure_type24753 *t43953; struct w12218 t43954; struct p15355 *t43955; struct w49 t43956; struct structure_type24753 *t43957; struct structure_type24753 *t43958; struct structure_type24753 *t43959; struct w12224 t43960; struct w49 t43961; struct w49 t43962; struct p15355 *e15355; struct p15368 *e15368; struct p15369 *e15369; struct p15370 *e15370; struct p15396 *e15396; struct p15424 *e15424; struct p15435 *e15435; struct p15355 *p15356; struct p15355 *p15357; struct p15355 *p15358; struct p15355 *p15359; struct p15355 *p15360; struct p15355 *p15363; struct p15355 *p15364; struct p15355 *p15365; struct p15355 *p15366; struct p15355 *p15367; struct p15355 *p15368; struct p15368 *p15369; struct p15369 *p15370; struct p15370 *p15371; struct p15370 *p15372; struct p15370 *p15373; struct p15370 *p15374; struct p15355 *p15375; struct p15369 *p15376; struct p15369 *p15377; struct p15368 *p15378; struct p15369 *p15379; struct p15369 *p15380; struct p15368 *p15383; struct p15368 *p15384; struct p15369 *p15385; struct p15368 *p15386; struct p15370 *p15387; struct p15369 *p15388; struct p15369 *p15389; struct p15369 *p15390; struct p15369 *p15391; struct p15370 *p15392; struct p15370 *p15395; struct p15370 *p15396; struct p15370 *p15399; struct p15369 *p15400; struct p15369 *p15401; struct p15369 *p15402; struct p15370 *p15403; struct p15369 *p15404; struct p15370 *p15409; struct p15368 *p15413; struct p15370 *p15414; struct p15370 *p15415; struct p15370 *p15416; struct p15355 *p15421; struct p15369 *p15422; struct p15369 *p15423; struct p15355 *p15432; struct p15369 *p15433; struct p15369 *p15434; struct p15370 *p15445; struct p15370 *p15452; struct p15370 *p15453; struct p15370 *p15460; struct p15369 *p15461; struct p15369 *p15462; struct p15369 *p15463; struct p15370 *p15464; struct p15370 *p15469; struct p15370 *p15470; struct p15370 *p15477; struct p15368 *p15478; struct p15369 *p15479; struct p15370 *p15480; struct p15370 *p15481; e15355 = (struct p15355 *)alloca(sizeof(struct p15355)); if (e15355==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e15355->a26583 = a26583; e15355->a26584 = a26584; e15355->a26585 = a26585; /* x142418 stalin.sc:18134:636119 */ /* x142417 stalin.sc:18134:636129 */ /* x142413 stalin.sc:18134:636144 */ /* x142412 stalin.sc:18134:636153 */ t43961 = e15355->a26585; /* x142411 stalin.sc:18134:636145 */ t43958 = f8162(t43961); /* x142416 stalin.sc:18134:636156 */ /* x142415 stalin.sc:18134:636165 */ t43962 = a26586; /* x142414 stalin.sc:18134:636157 */ t43959 = f8162(t43962); /* x142410 stalin.sc:18134:636130 */ /* MOVE: branching squeezed to general */ if (t43959>=((struct structure_type24753 *)VALUE_OFFSET)) {t43960.tag = STRUCTURE_TYPE24753; t43960.value.structure_type24753 = t43959;} else t43960.tag = (unsigned)t43959; t42977 = f1422(t43958, t43960); /* x142409 */ t42976 = e15355; p15356 = t42976; a26588 = t42977; /* x142408 stalin.sc:18135:636174 */ /* x140462 stalin.sc:18136:636184 */ /* x140461 stalin.sc:18136:636194 */ t42978 = p15356->a26583; /* x140460 stalin.sc:18136:636185 */ if (f7031(t42978)==FALSE_TYPE) goto l6349; /* x140471 */ /* x140470 */ t43955 = p15356; p15357 = t43955; /* x140469 stalin.sc:18136:636197 */ /* x140463 stalin.sc:18136:636201 */ if (a26587==FALSE_TYPE) goto l6518; /* x140465 stalin.sc:18136:636204 */ /* x140464 stalin.sc:18136:636205 */ /* x276855 stalin.sc:14693:514793 */ r15355.tag = STRING_TYPE; r15355.value.string_type = ""; return r15355; l6518: /* x140468 stalin.sc:18136:636213 */ /* x140467 stalin.sc:18136:636230 */ t43956 = p15357->a26584; /* x140466 stalin.sc:18136:636214 */ t43957 = f13514(t43956); r15355.tag = STRUCTURE_TYPE24753; r15355.value.structure_type24753 = t43957; return r15355; l6349: /* x142407 */ /* x140481 stalin.sc:18137:636239 */ /* x140474 stalin.sc:18137:636244 */ /* x140473 stalin.sc:18137:636253 */ t42979 = p15356->a26583; /* x140472 stalin.sc:18137:636245 */ if (f7030(t42979)==FALSE_TYPE) goto l6351; /* x140479 */ /* x140478 stalin.sc:18137:636261 */ /* x140477 stalin.sc:18137:636279 */ t42980 = p15356->a26583; /* x140476 stalin.sc:18137:636262 */ if (!(f15338(t42980)==FALSE_TYPE)) goto l6351; /* x140495 */ /* x140494 */ t43946 = p15356; p15358 = t43946; /* x140493 stalin.sc:18138:636288 */ /* x140492 stalin.sc:18138:636342 */ /* x140491 stalin.sc:18138:636358 */ t43954 = p15358->a26583; /* x140490 stalin.sc:18138:636343 */ t43948 = f15342(t43954); /* x140489 stalin.sc:18138:636305 */ /* x140483 stalin.sc:18138:636309 */ if (a26587==FALSE_TYPE) goto l6515; /* x140485 stalin.sc:18138:636312 */ /* x140484 stalin.sc:18138:636313 */ /* x276857 stalin.sc:14693:514793 */ t43947.tag = STRING_TYPE; t43947.value.string_type = ""; goto l6516; l6515: /* x140488 stalin.sc:18138:636321 */ /* x140487 stalin.sc:18138:636338 */ t43952 = p15358->a26584; /* x140486 stalin.sc:18138:636322 */ t43953 = f13514(t43952); t43947.tag = STRUCTURE_TYPE24753; t43947.value.structure_type24753 = t43953; l6516: /* x140482 stalin.sc:18138:636289 */ t43951.tag = STRUCTURE_TYPE24753; t43951.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43951.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18138, 636288); out_of_memory_error();} t43951.value.structure_type24753->s0 = t43948; t43951.value.structure_type24753->s1.tag = NULL_TYPE; a41934 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41934==NULL) {backtrace("stalin.sc", 18138, 636288); out_of_memory_error();} a41934->s0 = *((struct w49 *)(&t43947)); a41934->s1 = t43951; /* x301848 stalin.sc:14400:506485 */ /* x301847 stalin.sc:14400:506503 */ t43949 = a41934; /* x301846 stalin.sc:14400:506486 */ t43950.tag = STRUCTURE_TYPE24753; t43950.value.structure_type24753 = t43949; return f13492(t43950); l6351: /* x142406 */ /* x140498 stalin.sc:18139:636367 */ /* x140497 stalin.sc:18139:636380 */ t42981 = p15356->a26583; /* x140496 stalin.sc:18139:636368 */ if (f7032(t42981)==FALSE_TYPE) goto l6354; /* x140647 */ /* x140646 */ t43851 = p15356; p15359 = t43851; /* x140645 stalin.sc:18141:636454 */ /* x140502 stalin.sc:18141:636458 */ /* x140501 stalin.sc:18141:636477 */ t43852 = a26588; /* x140500 stalin.sc:18141:636465 */ /* x140499 stalin.sc:18141:636459 */ t43853.tag = NATIVE_PROCEDURE_TYPE7433; t43854 = *((struct w49 *)(&t43852)); t43855 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t43853, t43854, t43855)==FALSE_TYPE) goto l6486; /* x140531 stalin.sc:18142:636482 */ /* x140506 stalin.sc:18142:636486 */ /* x140505 stalin.sc:18142:636504 */ t43927 = a26588; /* x140504 stalin.sc:18142:636492 */ /* x140503 stalin.sc:18142:636487 */ t43928.tag = NATIVE_PROCEDURE_TYPE7433; t43929 = *((struct w49 *)(&t43927)); t43930 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t43928, t43929, t43930).tag)==FALSE_TYPE) goto l6508; /* x140523 stalin.sc:18143:636513 */ /* x140522 stalin.sc:18144:636575 */ /* x140518 stalin.sc:18144:636589 */ /* x140517 stalin.sc:18144:636600 */ t43942 = p15359->a26583; /* x140516 stalin.sc:18144:636590 */ a38361 = t43942; /* x286113 */ /* x286112 */ t43943 = a38361; /* x286111 */ if (!((t43943.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-L2[5785] 33278]"); structure_ref_error();} t43940 = t43943.value.structure_type27501->s5; /* x140521 stalin.sc:18144:636603 */ /* x140520 stalin.sc:18144:636614 */ t43944 = p15359->a26583; /* x140519 stalin.sc:18144:636604 */ a38350 = t43944; /* x286069 */ /* x286068 */ t43945 = a38350; /* x286067 */ if (!((t43945.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-L0[5793] 33267]"); structure_ref_error();} t43941 = t43945.value.structure_type27501->s6; /* x140515 stalin.sc:18144:636576 */ t43934 = f15756(t43940, t43941); /* x140514 stalin.sc:18143:636530 */ /* x140508 stalin.sc:18143:636534 */ if (a26587==FALSE_TYPE) goto l6512; /* x140510 stalin.sc:18143:636537 */ /* x140509 stalin.sc:18143:636538 */ /* x276859 stalin.sc:14693:514793 */ t43933.tag = STRING_TYPE; t43933.value.string_type = ""; goto l6513; l6512: /* x140513 stalin.sc:18143:636546 */ /* x140512 stalin.sc:18143:636563 */ t43938 = p15359->a26584; /* x140511 stalin.sc:18143:636547 */ t43939 = f13514(t43938); t43933.tag = STRUCTURE_TYPE24753; t43933.value.structure_type24753 = t43939; l6513: /* x140507 stalin.sc:18143:636514 */ t43937.tag = STRUCTURE_TYPE24753; t43937.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43937.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18143, 636513); out_of_memory_error();} t43937.value.structure_type24753->s0 = *((struct w49 *)(&t43934)); t43937.value.structure_type24753->s1.tag = NULL_TYPE; a41935 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41935==NULL) {backtrace("stalin.sc", 18143, 636513); out_of_memory_error();} a41935->s0 = *((struct w49 *)(&t43933)); a41935->s1 = t43937; /* x301852 stalin.sc:14400:506485 */ /* x301851 stalin.sc:14400:506503 */ t43935 = a41935; /* x301850 stalin.sc:14400:506486 */ t43936.tag = STRUCTURE_TYPE24753; t43936.value.structure_type24753 = t43935; return f13492(t43936); l6508: /* x140530 stalin.sc:18145:636624 */ /* x140524 stalin.sc:18145:636628 */ if (a26587==FALSE_TYPE) goto l6510; /* x140526 stalin.sc:18145:636631 */ /* x140525 stalin.sc:18145:636632 */ /* x276861 stalin.sc:14693:514793 */ r15355.tag = STRING_TYPE; r15355.value.string_type = ""; return r15355; l6510: /* x140529 stalin.sc:18145:636640 */ /* x140528 stalin.sc:18145:636657 */ t43931 = p15359->a26584; /* x140527 stalin.sc:18145:636641 */ t43932 = f13514(t43931); r15355.tag = STRUCTURE_TYPE24753; r15355.value.structure_type24753 = t43932; return r15355; l6486: /* x140644 stalin.sc:18146:636663 */ /* x140535 stalin.sc:18146:636667 */ /* x140534 stalin.sc:18146:636685 */ t43856 = a26588; /* x140533 stalin.sc:18146:636673 */ /* x140532 stalin.sc:18146:636668 */ t43857.tag = NATIVE_PROCEDURE_TYPE7433; t43858 = *((struct w49 *)(&t43856)); t43859 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t43857, t43858, t43859).tag)==FALSE_TYPE) goto l6488; /* x140626 stalin.sc:18147:636694 */ /* x140625 stalin.sc:18147:636703 */ /* x140624 stalin.sc:18147:636710 */ /* x140622 stalin.sc:18147:636725 */ /* x140623 stalin.sc:18147:636737 */ t43924 = a26588; /* x140621 stalin.sc:18147:636711 */ t43925.tag = NATIVE_PROCEDURE_TYPE7433; t43926 = *((struct w49 *)(&t43924)); t43922 = f1226(t43925, t43926); /* x140620 stalin.sc:18147:636704 */ a36087 = t43922; /* x275705 */ /* x275704 */ t43923 = a36087; /* x275703 */ if (!((t43923.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30236]"); structure_ref_error();} t43874 = t43923.value.structure_type24753->s0; /* x140619 */ t43873 = p15359; p15360 = t43873; a26589 = t43874; /* x140618 stalin.sc:18148:636750 */ /* x140600 stalin.sc:18148:636756 */ /* x140539 stalin.sc:18148:636763 */ /* x140538 stalin.sc:18148:636770 */ t43881 = p15360->a26585; /* x140537 stalin.sc:18148:636764 */ if (f8151(t43881)==FALSE_TYPE) goto l6493; /* x140543 */ /* x140542 */ /* x140541 stalin.sc:18148:636773 */ /* x140540 stalin.sc:18148:636774 */ /* x296545 QobiScheme.sc:166:5314 */ /* x296544 QobiScheme.sc:166:5321 */ t43909 = "This shouldn\'t happen"; /* x296543 QobiScheme.sc:166:5315 */ stalin_panic(t43909); goto l6494; l6493: /* x140599 */ /* x140546 stalin.sc:18149:636789 */ /* x140545 stalin.sc:18149:636803 */ t43882 = p15360->a26585; /* x140544 stalin.sc:18149:636790 */ if (f8148(t43882)==FALSE_TYPE) goto l6496; /* x140550 */ /* x140549 */ /* x140548 stalin.sc:18149:636806 */ /* x140547 stalin.sc:18149:636807 */ /* x295973 QobiScheme.sc:166:5314 */ /* x295972 QobiScheme.sc:166:5321 */ t43908 = "This shouldn\'t happen"; /* x295971 QobiScheme.sc:166:5315 */ stalin_panic(t43908); goto l6497; l6496: /* x140598 */ /* x140553 stalin.sc:18150:636822 */ /* x140552 stalin.sc:18150:636833 */ t43883 = p15360->a26585; /* x140551 stalin.sc:18150:636823 */ if (f13798(t43883)==FALSE_TYPE) goto l6499; /* x140564 */ /* x140563 */ t43901 = p15360; p15363 = t43901; /* x140562 stalin.sc:18150:636836 */ /* x140558 stalin.sc:18150:636842 */ /* x140556 stalin.sc:18150:636849 */ t43905 = p15363->a26584; /* x140557 stalin.sc:18150:636851 */ t43906 = p15363->a26585; /* x140555 stalin.sc:18150:636843 */ t43902 = f14478(t43905, t43906); /* x140561 stalin.sc:18150:636854 */ /* x140560 stalin.sc:18150:636866 */ t43907 = a26589; /* x140559 stalin.sc:18150:636855 */ t43903 = f14433(t43907); /* x140554 stalin.sc:18150:636837 */ t43904 = *((struct w49 *)(&t43903)); t43875 = f13591(t43902, t43904); goto l6500; l6499: /* x140597 */ /* x140567 stalin.sc:18151:636876 */ /* x140566 stalin.sc:18151:636887 */ t43884 = p15360->a26585; /* x140565 stalin.sc:18151:636877 */ if (f13859(t43884)==FALSE_TYPE) goto l6502; /* x140574 */ /* x140573 */ t43897 = p15360; p15364 = t43897; /* x140572 stalin.sc:18151:636890 */ /* x140569 stalin.sc:18151:636908 */ t43898 = p15364->a26584; /* x140570 stalin.sc:18151:636910 */ t43899 = a26589; /* x140571 stalin.sc:18151:636912 */ t43900 = p15364->a26585; /* x140568 stalin.sc:18151:636891 */ t43875 = f14536(t43898, t43899, t43900); goto l6503; l6502: /* x140596 */ /* x140577 stalin.sc:18152:636921 */ /* x140576 stalin.sc:18152:636932 */ t43885 = p15360->a26585; /* x140575 stalin.sc:18152:636922 */ if (f14024(t43885)==FALSE_TYPE) goto l6505; /* x140584 */ /* x140583 */ t43893 = p15360; p15365 = t43893; /* x140582 stalin.sc:18152:636935 */ /* x140579 stalin.sc:18152:636952 */ t43894 = p15365->a26584; /* x140580 stalin.sc:18152:636954 */ t43895 = a26589; /* x140581 stalin.sc:18152:636956 */ t43896 = p15365->a26585; /* x140578 stalin.sc:18152:636936 */ t43875 = f14595(t43894, t43895, t43896); goto l6506; l6505: /* x140595 */ /* x140594 */ t43886 = p15360; p15366 = t43886; /* x140593 stalin.sc:18153:636970 */ /* x140589 stalin.sc:18153:636976 */ /* x140587 stalin.sc:18153:636983 */ t43890 = p15366->a26584; /* x140588 stalin.sc:18153:636985 */ t43891 = p15366->a26585; /* x140586 stalin.sc:18153:636977 */ t43887 = f14478(t43890, t43891); /* x140592 stalin.sc:18153:636988 */ /* x140591 stalin.sc:18153:637000 */ t43892 = a26589; /* x140590 stalin.sc:18153:636989 */ t43888 = f14433(t43892); /* x140585 stalin.sc:18153:636971 */ t43889 = *((struct w49 *)(&t43888)); t43875 = f13591(t43887, t43889); l6506: l6503: l6500: l6497: l6494: /* x140608 stalin.sc:18154:637011 */ /* x140604 stalin.sc:18154:637025 */ /* x140603 stalin.sc:18154:637036 */ t43912 = p15360->a26583; /* x140602 stalin.sc:18154:637026 */ a38362 = t43912; /* x286117 */ /* x286116 */ t43913 = a38362; /* x286115 */ if (!((t43913.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-L2[5785] 33279]"); structure_ref_error();} t43910 = t43913.value.structure_type27501->s5; /* x140607 stalin.sc:18154:637039 */ /* x140606 stalin.sc:18154:637050 */ t43914 = p15360->a26583; /* x140605 stalin.sc:18154:637040 */ a38351 = t43914; /* x286073 */ /* x286072 */ t43915 = a38351; /* x286071 */ if (!((t43915.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-L0[5793] 33268]"); structure_ref_error();} t43911 = t43915.value.structure_type27501->s6; /* x140601 stalin.sc:18154:637012 */ t43876 = f15756(t43910, t43911); /* x140616 stalin.sc:18155:637059 */ /* x140612 stalin.sc:18155:637073 */ /* x140611 stalin.sc:18155:637084 */ t43918 = p15360->a26583; /* x140610 stalin.sc:18155:637074 */ a38374 = t43918; /* x286165 */ /* x286164 */ t43919 = a38374; /* x286163 */ if (!((t43919.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-L1[5777] 33291]"); structure_ref_error();} t43916 = t43919.value.structure_type27501->s4; /* x140615 stalin.sc:18155:637087 */ /* x140614 stalin.sc:18155:637098 */ t43920 = p15360->a26583; /* x140613 stalin.sc:18155:637088 */ a38352 = t43920; /* x286077 */ /* x286076 */ t43921 = a38352; /* x286075 */ if (!((t43921.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-L0[5793] 33269]"); structure_ref_error();} t43917 = t43921.value.structure_type27501->s6; /* x140609 stalin.sc:18155:637060 */ t43877 = f15756(t43916, t43917); /* x140617 stalin.sc:18156:637107 */ /* x140536 stalin.sc:18148:636751 */ t43878 = *((struct w49 *)(&t43876)); t43879 = *((struct w49 *)(&t43877)); t43880 = TRUE_TYPE; return f13672(t43875, t43878, t43879, t43880); l6488: /* x140643 stalin.sc:18157:637117 */ /* x140642 stalin.sc:18158:637179 */ /* x140638 stalin.sc:18158:637193 */ /* x140637 stalin.sc:18158:637204 */ t43869 = p15359->a26583; /* x140636 stalin.sc:18158:637194 */ a38375 = t43869; /* x286169 */ /* x286168 */ t43870 = a38375; /* x286167 */ if (!((t43870.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-L1[5777] 33292]"); structure_ref_error();} t43867 = t43870.value.structure_type27501->s4; /* x140641 stalin.sc:18158:637207 */ /* x140640 stalin.sc:18158:637218 */ t43871 = p15359->a26583; /* x140639 stalin.sc:18158:637208 */ a38353 = t43871; /* x286081 */ /* x286080 */ t43872 = a38353; /* x286079 */ if (!((t43872.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-L0[5793] 33270]"); structure_ref_error();} t43868 = t43872.value.structure_type27501->s6; /* x140635 stalin.sc:18158:637180 */ t43861 = f15756(t43867, t43868); /* x140634 stalin.sc:18157:637134 */ /* x140628 stalin.sc:18157:637138 */ if (a26587==FALSE_TYPE) goto l6490; /* x140630 stalin.sc:18157:637141 */ /* x140629 stalin.sc:18157:637142 */ /* x276863 stalin.sc:14693:514793 */ t43860.tag = STRING_TYPE; t43860.value.string_type = ""; goto l6491; l6490: /* x140633 stalin.sc:18157:637150 */ /* x140632 stalin.sc:18157:637167 */ t43865 = p15359->a26584; /* x140631 stalin.sc:18157:637151 */ t43866 = f13514(t43865); t43860.tag = STRUCTURE_TYPE24753; t43860.value.structure_type24753 = t43866; l6491: /* x140627 stalin.sc:18157:637118 */ t43864.tag = STRUCTURE_TYPE24753; t43864.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43864.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18157, 637117); out_of_memory_error();} t43864.value.structure_type24753->s0 = *((struct w49 *)(&t43861)); t43864.value.structure_type24753->s1.tag = NULL_TYPE; a41936 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41936==NULL) {backtrace("stalin.sc", 18157, 637117); out_of_memory_error();} a41936->s0 = *((struct w49 *)(&t43860)); a41936->s1 = t43864; /* x301856 stalin.sc:14400:506485 */ /* x301855 stalin.sc:14400:506503 */ t43862 = a41936; /* x301854 stalin.sc:14400:506486 */ t43863.tag = STRUCTURE_TYPE24753; t43863.value.structure_type24753 = t43862; return f13492(t43863); l6354: /* x142405 */ /* x142404 */ t42982 = p15356; p15367 = t42982; /* x142403 stalin.sc:18160:637239 */ /* x142402 stalin.sc:18160:637250 */ /* x142401 stalin.sc:18160:637260 */ t43849 = p15367->a26583; /* x142400 stalin.sc:18160:637251 */ a38392 = t43849; /* x286237 */ /* x286236 */ t43850 = a38392; /* x286235 */ if (!((t43850.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-C[5769] 33309]"); structure_ref_error();} t42984 = t43850.value.structure_type27501->s3; /* x142399 */ t42983 = p15367; p15368 = t42983; a26590 = t42984; e15368 = (struct p15368 *)alloca(sizeof(struct p15368)); if (e15368==NULL) {backtrace_internal("[inside MOVE-GENERAL 15367]"); out_of_memory_error();} e15368->p15355 = p15368; e15368->a26590 = a26590; /* x142398 */ /* x142397 stalin.sc:18161:637272 */ /* x142396 stalin.sc:18161:637289 */ t43847 = p15368->a26583; /* x142395 stalin.sc:18161:637273 */ a38436 = t43847; /* x286413 */ /* x286412 */ t43848 = a38436; /* x286411 */ if (!((t43848.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33353]"); structure_ref_error();} t42986 = t43848.value.structure_type27501->s2; /* x142394 */ t42985 = e15368; p15369 = t42985; a26591 = t42986; e15369 = (struct p15369 *)alloca(sizeof(struct p15369)); if (e15369==NULL) {backtrace_internal("[inside MOVE-GENERAL 15368]"); out_of_memory_error();} e15369->p15368 = p15369; e15369->a26591 = a26591; /* x142393 */ /* x142392 stalin.sc:18167:637595 */ /* x142384 stalin.sc:18167:637599 */ if (a708==FALSE_TYPE) goto l6483; /* x142390 stalin.sc:18167:637613 */ /* x142388 stalin.sc:18167:637628 */ /* x142387 stalin.sc:18167:637637 */ t43846 = e15369->a26591; /* x142386 stalin.sc:18167:637629 */ t43844 = f8162(t43846); /* x142389 stalin.sc:18167:637641 */ t43845 = a26588; /* x142385 stalin.sc:18167:637614 */ t42988 = f1422(t43844, t43845); goto l6484; l6483: /* x142391 stalin.sc:18167:637645 */ t42988 = a26588; l6484: /* x142383 */ t42987 = e15369; p15370 = t42987; a26592 = t42988; e15370 = (struct p15370 *)alloca(sizeof(struct p15370)); if (e15370==NULL) {backtrace_internal("[inside MOVE-GENERAL 15369]"); out_of_memory_error();} e15370->p15369 = p15370; e15370->a26592 = a26592; /* x142382 */ /* x142381 */ t42989 = e15370; p15371 = t42989; /* x142380 */ /* x142379 */ /* x142378 */ /* x142377 */ t42990 = p15371; p15372 = t42990; /* x142376 */ /* x142360 */ /* x142359 */ /* x142375 stalin.sc:18183:638202 */ /* x142368 stalin.sc:18183:638210 */ /* x142367 stalin.sc:18183:638245 */ t43839 = p15372->a26592; /* x142366 stalin.sc:18183:638217 */ t43838 = p15372->p15369; /* x142361 stalin.sc:18183:638211 */ t43840.tag = NATIVE_PROCEDURE_TYPE18483; t43840.value.native_procedure_type18483 = t43838; t43841 = *((struct w49 *)(&t43839)); t43842 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t43840, t43841, t43842)==FALSE_TYPE) goto l6480; /* x142370 */ /* x142369 */ goto l6481; l6480: /* x142374 */ /* x142373 */ /* x142372 stalin.sc:18183:638249 */ /* x142371 stalin.sc:18183:638250 */ /* x296549 QobiScheme.sc:166:5314 */ /* x296548 QobiScheme.sc:166:5321 */ t43843 = "This shouldn\'t happen"; /* x296547 QobiScheme.sc:166:5315 */ stalin_panic(t43843); l6481: /* x142320 */ t42991 = p15372; p15373 = t42991; /* x142319 stalin.sc:18184:638265 */ /* x140658 stalin.sc:18185:638278 */ /* x140657 stalin.sc:18185:638282 */ /* x140656 stalin.sc:18185:638289 */ t42992 = p15373->p15369->a26591; /* x140655 stalin.sc:18185:638283 */ if (!(f8151(t42992)==FALSE_TYPE)) goto l6355; p15374 = p15373; /* x140652 */ /* x140651 stalin.sc:18185:638300 */ t42993 = p15374->a26592; /* x268596 stalin.sc:18185:638294 */ if (!((t42993.tag)==NULL_TYPE)) goto l6356; l6355: /* x140672 */ /* x140671 */ t43829 = p15373->p15369->p15368->p15355; p15375 = t43829; /* x140670 stalin.sc:18186:638312 */ /* x140669 stalin.sc:18187:638369 */ /* x140668 stalin.sc:18187:638385 */ t43837 = p15375->a26583; /* x140667 stalin.sc:18187:638370 */ t43831 = f15342(t43837); /* x140666 stalin.sc:18186:638329 */ /* x140660 stalin.sc:18186:638333 */ if (a26587==FALSE_TYPE) goto l6477; /* x140662 stalin.sc:18186:638336 */ /* x140661 stalin.sc:18186:638337 */ /* x276867 stalin.sc:14693:514793 */ t43830.tag = STRING_TYPE; t43830.value.string_type = ""; goto l6478; l6477: /* x140665 stalin.sc:18186:638345 */ /* x140664 stalin.sc:18186:638362 */ t43835 = p15375->a26584; /* x140663 stalin.sc:18186:638346 */ t43836 = f13514(t43835); t43830.tag = STRUCTURE_TYPE24753; t43830.value.structure_type24753 = t43836; l6478: /* x140659 stalin.sc:18186:638313 */ t43834.tag = STRUCTURE_TYPE24753; t43834.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43834.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18186, 638312); out_of_memory_error();} t43834.value.structure_type24753->s0 = t43831; t43834.value.structure_type24753->s1.tag = NULL_TYPE; a41937 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41937==NULL) {backtrace("stalin.sc", 18186, 638312); out_of_memory_error();} a41937->s0 = *((struct w49 *)(&t43830)); a41937->s1 = t43834; /* x301860 stalin.sc:14400:506485 */ /* x301859 stalin.sc:14400:506503 */ t43832 = a41937; /* x301858 stalin.sc:14400:506486 */ t43833.tag = STRUCTURE_TYPE24753; t43833.value.structure_type24753 = t43832; return f13492(t43833); l6356: /* x142318 */ /* x140675 stalin.sc:18188:638397 */ /* x140674 stalin.sc:18188:638411 */ t42994 = p15373->p15369->a26591; /* x140673 stalin.sc:18188:638398 */ if (f8148(t42994)==FALSE_TYPE) goto l6359; /* x140686 */ /* x140685 */ t43822 = p15373->p15369; p15376 = t43822; /* x140684 stalin.sc:18188:638415 */ /* x140683 stalin.sc:18188:638421 */ /* x140678 stalin.sc:18188:638430 */ t43825 = p15376->p15368->p15355->a26584; /* x140681 stalin.sc:18188:638432 */ /* x140680 stalin.sc:18188:638444 */ t43828 = p15376->a26591; /* x140679 stalin.sc:18188:638433 */ t43826 = f8153(t43828); /* x140682 stalin.sc:18188:638448 */ t43827 = p15376->p15368->p15355->a26585; /* x140677 stalin.sc:18188:638422 */ t43824 = f14485(t43825, t43826, t43827); /* x140676 stalin.sc:18188:638416 */ t43823 = p15376->p15368; return f15488(t43823, t43824); l6359: /* x142317 */ /* x140689 stalin.sc:18189:638460 */ /* x140688 stalin.sc:18189:638471 */ t42995 = p15373->p15369->a26591; /* x140687 stalin.sc:18189:638461 */ if (f13798(t42995)==FALSE_TYPE) goto l6361; /* x140778 */ /* x140777 */ t43774 = p15373->p15369; p15377 = t43774; /* x140776 stalin.sc:18190:638482 */ /* x140692 stalin.sc:18191:638490 */ /* x140691 stalin.sc:18191:638497 */ t43775 = p15377->p15368->p15355->a26585; /* x140690 stalin.sc:18191:638491 */ if (f8151(t43775)==FALSE_TYPE) goto l6464; /* x140701 */ /* x140700 */ t43816 = p15377->p15368; p15378 = t43816; /* x140699 stalin.sc:18191:638500 */ /* x140698 stalin.sc:18191:638506 */ /* x140697 stalin.sc:18191:638518 */ /* x140696 stalin.sc:18191:638530 */ t43821 = p15378->p15355->a26585; /* x140695 stalin.sc:18191:638519 */ t43820 = f8153(t43821); /* x140694 stalin.sc:18191:638507 */ t43818 = f14433(t43820); /* x140693 stalin.sc:18191:638501 */ t43817 = p15378; t43819 = *((struct w49 *)(&t43818)); return f15488(t43817, t43819); l6464: /* x140775 */ /* x140704 stalin.sc:18192:638538 */ /* x140703 stalin.sc:18192:638552 */ t43776 = p15377->p15368->p15355->a26585; /* x140702 stalin.sc:18192:638539 */ if (f8148(t43776)==FALSE_TYPE) goto l6466; /* x140733 */ /* x140732 */ t43800 = p15377; p15379 = t43800; /* x140731 */ /* x140730 stalin.sc:18193:638557 */ /* x140723 stalin.sc:18193:638565 */ /* x140722 stalin.sc:18193:638577 */ /* x140721 stalin.sc:18193:638589 */ t43814 = p15379->p15368->p15355->a26585; /* x140720 stalin.sc:18193:638578 */ t43813 = f8153(t43814); /* x140719 stalin.sc:18193:638566 */ if (f7682(t43813)==FALSE_TYPE) goto l6474; /* x140725 */ /* x140724 */ goto l6475; l6474: /* x140729 */ /* x140728 */ /* x140727 stalin.sc:18193:638593 */ /* x140726 stalin.sc:18193:638594 */ /* x295985 QobiScheme.sc:166:5314 */ /* x295984 QobiScheme.sc:166:5321 */ t43815 = "This shouldn\'t happen"; /* x295983 QobiScheme.sc:166:5315 */ stalin_panic(t43815); l6475: /* x140718 */ t43801 = p15379; p15380 = t43801; /* x140717 stalin.sc:18202:639098 */ /* x140716 stalin.sc:18202:639104 */ /* x140712 stalin.sc:18202:639110 */ /* x140710 stalin.sc:18202:639127 */ /* x140709 stalin.sc:18202:639149 */ t43811 = p15380->p15368->p15355->a26584; /* x140708 stalin.sc:18202:639128 */ t43808 = f13548(t43811); /* x140711 stalin.sc:18202:639152 */ t43809 = p15380->a26591; /* x140707 stalin.sc:18202:639111 */ t43810.tag = STRUCTURE_TYPE24753; t43810.value.structure_type24753 = t43808; t43804 = f14422(t43810, t43809); /* x140715 stalin.sc:18203:639163 */ /* x140714 stalin.sc:18203:639173 */ t43812 = a1226; /* x140713 stalin.sc:18203:639164 */ t43805 = f13530(t43812); /* x140706 stalin.sc:18202:639105 */ t43806.tag = STRUCTURE_TYPE24753; t43806.value.structure_type24753 = t43804; t43807.tag = STRING_TYPE; t43807.value.string_type = t43805; t43803 = f13623(t43806, t43807); /* x140705 stalin.sc:18202:639099 */ t43802 = p15380->p15368; return f15488(t43802, t43803); l6466: /* x140774 */ /* x140736 stalin.sc:18204:639197 */ /* x140735 stalin.sc:18204:639208 */ t43777 = p15377->p15368->p15355->a26585; /* x140734 stalin.sc:18204:639198 */ if (f13798(t43777)==FALSE_TYPE) goto l6468; /* x140741 */ /* x140740 */ t43797 = p15377->p15368; p15383 = t43797; /* x140739 stalin.sc:18204:639211 */ /* x140738 stalin.sc:18204:639217 */ t43799 = p15383->p15355->a26584; /* x140737 stalin.sc:18204:639212 */ t43798 = p15383; return f15488(t43798, t43799); l6468: /* x140773 */ /* x140744 stalin.sc:18205:639223 */ /* x140743 stalin.sc:18205:639234 */ t43778 = p15377->p15368->p15355->a26585; /* x140742 stalin.sc:18205:639224 */ if (f13859(t43778)==FALSE_TYPE) goto l6470; /* x140752 */ /* x140751 */ t43791 = p15377->p15368; p15384 = t43791; /* x140750 stalin.sc:18205:639237 */ /* x140749 stalin.sc:18205:639243 */ /* x140747 stalin.sc:18205:639265 */ t43795 = p15384->p15355->a26584; /* x140748 stalin.sc:18205:639267 */ t43796 = p15384->p15355->a26585; /* x140746 stalin.sc:18205:639244 */ t43793 = f14430(t43795, t43796); /* x140745 stalin.sc:18205:639238 */ t43792 = p15384; t43794.tag = STRUCTURE_TYPE24753; t43794.value.structure_type24753 = t43793; return f15488(t43792, t43794); l6470: /* x140772 */ /* x140755 stalin.sc:18208:639409 */ /* x140754 stalin.sc:18208:639420 */ t43779 = p15377->p15368->p15355->a26585; /* x140753 stalin.sc:18208:639410 */ if (f14024(t43779)==FALSE_TYPE) goto l6472; /* x140763 */ /* x140762 */ t43785 = p15377; p15385 = t43785; /* x140761 stalin.sc:18208:639423 */ /* x140760 stalin.sc:18208:639429 */ /* x140758 stalin.sc:18208:639446 */ t43789 = p15385->p15368->p15355->a26584; /* x140759 stalin.sc:18208:639448 */ t43790 = p15385->a26591; /* x140757 stalin.sc:18208:639430 */ t43787 = f14422(t43789, t43790); /* x140756 stalin.sc:18208:639424 */ t43786 = p15385->p15368; t43788.tag = STRUCTURE_TYPE24753; t43788.value.structure_type24753 = t43787; return f15488(t43786, t43788); l6472: /* x140771 */ /* x140770 */ t43780 = p15377->p15368; p15386 = t43780; /* x140769 stalin.sc:18209:639461 */ /* x140768 stalin.sc:18209:639467 */ /* x140766 stalin.sc:18209:639474 */ t43783 = p15386->p15355->a26584; /* x140767 stalin.sc:18209:639476 */ t43784 = p15386->p15355->a26585; /* x140765 stalin.sc:18209:639468 */ t43782 = f14478(t43783, t43784); /* x140764 stalin.sc:18209:639462 */ t43781 = p15386; return f15488(t43781, t43782); l6361: /* x142316 */ /* x140781 stalin.sc:18210:639490 */ /* x140780 stalin.sc:18210:639501 */ t42996 = p15373->p15369->a26591; /* x140779 stalin.sc:18210:639491 */ if (f13859(t42996)==FALSE_TYPE) goto l6363; /* x140993 */ /* x140992 */ t43647 = p15373; p15387 = t43647; /* x140991 stalin.sc:18211:639512 */ /* x140784 stalin.sc:18212:639520 */ /* x140783 stalin.sc:18212:639527 */ t43648 = p15387->p15369->p15368->p15355->a26585; /* x140782 stalin.sc:18212:639521 */ if (f8151(t43648)==FALSE_TYPE) goto l6441; /* x140796 */ /* x140795 */ t43765 = p15387->p15369; p15388 = t43765; /* x140794 stalin.sc:18212:639530 */ /* x140793 stalin.sc:18212:639536 */ /* x140791 stalin.sc:18212:639553 */ /* x140790 stalin.sc:18212:639565 */ /* x140789 stalin.sc:18212:639577 */ t43773 = p15388->p15368->p15355->a26585; /* x140788 stalin.sc:18212:639566 */ t43772 = f8153(t43773); /* x140787 stalin.sc:18212:639554 */ t43769 = f14433(t43772); /* x140792 stalin.sc:18212:639581 */ t43770 = p15388->a26591; /* x140786 stalin.sc:18212:639537 */ t43771 = *((struct w49 *)(&t43769)); t43767 = f14422(t43771, t43770); /* x140785 stalin.sc:18212:639531 */ t43766 = p15388->p15368; t43768.tag = STRUCTURE_TYPE24753; t43768.value.structure_type24753 = t43767; return f15488(t43766, t43768); l6441: /* x140990 */ /* x140799 stalin.sc:18213:639589 */ /* x140798 stalin.sc:18213:639603 */ t43649 = p15387->p15369->p15368->p15355->a26585; /* x140797 stalin.sc:18213:639590 */ if (f8148(t43649)==FALSE_TYPE) goto l6443; /* x140816 */ /* x140815 */ t43754 = p15387->p15369; p15389 = t43754; /* x140814 stalin.sc:18214:639608 */ /* x140813 stalin.sc:18214:639614 */ /* x140808 stalin.sc:18214:639623 */ /* x140803 stalin.sc:18214:639632 */ t43760 = p15389->p15368->p15355->a26584; /* x140806 stalin.sc:18214:639634 */ /* x140805 stalin.sc:18214:639646 */ t43763 = p15389->p15368->p15355->a26585; /* x140804 stalin.sc:18214:639635 */ t43761 = f8153(t43763); /* x140807 stalin.sc:18214:639649 */ t43762 = p15389->p15368->p15355->a26585; /* x140802 stalin.sc:18214:639624 */ t43757 = f14485(t43760, t43761, t43762); /* x140811 stalin.sc:18214:639652 */ /* x140810 stalin.sc:18214:639664 */ t43764 = p15389->p15368->p15355->a26585; /* x140809 stalin.sc:18214:639653 */ t43758 = f8153(t43764); /* x140812 stalin.sc:18214:639667 */ t43759 = p15389->a26591; /* x140801 stalin.sc:18214:639615 */ t43756 = f14529(t43757, t43758, t43759); /* x140800 stalin.sc:18214:639609 */ t43755 = p15389->p15368; return f15488(t43755, t43756); l6443: /* x140989 */ /* x140819 stalin.sc:18215:639675 */ /* x140818 stalin.sc:18215:639686 */ t43650 = p15387->p15369->p15368->p15355->a26585; /* x140817 stalin.sc:18215:639676 */ if (f13798(t43650)==FALSE_TYPE) goto l6445; /* x140828 */ /* x140827 */ t43747 = p15387->p15369; p15390 = t43747; /* x140826 stalin.sc:18215:639689 */ /* x140825 stalin.sc:18215:639695 */ /* x140822 stalin.sc:18215:639717 */ t43751 = p15390->p15368->p15355->a26584; /* x140823 stalin.sc:18215:639719 */ t43752 = p15390->p15368->p15355->a26585; /* x140824 stalin.sc:18215:639721 */ t43753 = p15390->a26591; /* x140821 stalin.sc:18215:639696 */ t43749 = f14428(t43751, t43752, t43753); /* x140820 stalin.sc:18215:639690 */ t43748 = p15390->p15368; t43750.tag = STRUCTURE_TYPE24753; t43750.value.structure_type24753 = t43749; return f15488(t43748, t43750); l6445: /* x140988 */ /* x140831 stalin.sc:18216:639729 */ /* x140830 stalin.sc:18216:639740 */ t43651 = p15387->p15369->p15368->p15355->a26585; /* x140829 stalin.sc:18216:639730 */ if (f13859(t43651)==FALSE_TYPE) goto l6447; /* x140851 */ /* x140850 */ t43735 = p15387->p15369; p15391 = t43735; /* x140849 stalin.sc:18217:639745 */ /* x140839 stalin.sc:18217:639749 */ /* x140835 stalin.sc:18217:639754 */ /* x140834 stalin.sc:18217:639771 */ t43738 = p15391->a26591; /* x140833 stalin.sc:18217:639755 */ t43736 = f13854(t43738); /* x140838 stalin.sc:18217:639775 */ /* x140837 stalin.sc:18217:639792 */ t43739 = p15391->p15368->p15355->a26585; /* x140836 stalin.sc:18217:639776 */ t43737 = f13854(t43739); /* x268595 stalin.sc:18217:639750 */ /* EQ: dispatching general to general */ if (!((t43736.tag)==(t43737.tag))) goto l6462; switch (t43736.tag) {case FIXNUM_TYPE: if (!((t43736.value.fixnum_type)==(t43737.value.fixnum_type))) goto l6462; break; case FLONUM_TYPE: if (!((t43736.value.flonum_type)==(t43737.value.flonum_type))) goto l6462; break; case INPUT_PORT_TYPE: if (!((t43736.value.input_port_type)==(t43737.value.input_port_type))) goto l6462; break; case OUTPUT_PORT_TYPE: if (!((t43736.value.output_port_type)==(t43737.value.output_port_type))) goto l6462; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t43736.value.native_procedure_type15963)==(t43737.value.native_procedure_type15963))) goto l6462; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t43736.value.native_procedure_type19067)==(t43737.value.native_procedure_type19067))) goto l6462; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t43736.value.native_procedure_type19068)==(t43737.value.native_procedure_type19068))) goto l6462; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t43736.value.native_procedure_type22459)==(t43737.value.native_procedure_type22459))) goto l6462; break; case STRUCTURE_TYPE24753: if (!((t43736.value.structure_type24753)==(t43737.value.structure_type24753))) goto l6462; break; case STRUCTURE_TYPE24757: if (!((t43736.value.structure_type24757)==(t43737.value.structure_type24757))) goto l6462; break; case STRUCTURE_TYPE27501: if (!((t43736.value.structure_type27501)==(t43737.value.structure_type27501))) goto l6462; break; case STRUCTURE_TYPE27510: if (!((t43736.value.structure_type27510)==(t43737.value.structure_type27510))) goto l6462; break; case STRUCTURE_TYPE27621: if (!((t43736.value.structure_type27621)==(t43737.value.structure_type27621))) goto l6462; break; case STRUCTURE_TYPE27650: if (!((t43736.value.structure_type27650)==(t43737.value.structure_type27650))) goto l6462; break; case STRUCTURE_TYPE27669: if (!((t43736.value.structure_type27669)==(t43737.value.structure_type27669))) goto l6462; break; case STRUCTURE_TYPE27673: if (!((t43736.value.structure_type27673)==(t43737.value.structure_type27673))) goto l6462; break; case STRUCTURE_TYPE27692: if (!((t43736.value.structure_type27692)==(t43737.value.structure_type27692))) goto l6462; break; case STRUCTURE_TYPE27694: if (!((t43736.value.structure_type27694)==(t43737.value.structure_type27694))) goto l6462; break; case STRUCTURE_TYPE27698: if (!((t43736.value.structure_type27698)==(t43737.value.structure_type27698))) goto l6462; break; case STRUCTURE_TYPE27745: if (!((t43736.value.structure_type27745)==(t43737.value.structure_type27745))) goto l6462; break; case STRUCTURE_TYPE27747: if (!((t43736.value.structure_type27747)==(t43737.value.structure_type27747))) goto l6462; break; case STRUCTURE_TYPE27750: if (!((t43736.value.structure_type27750)==(t43737.value.structure_type27750))) goto l6462; break; case STRUCTURE_TYPE27753: if (!((t43736.value.structure_type27753)==(t43737.value.structure_type27753))) goto l6462; break; case STRUCTURE_TYPE27756: if (!((t43736.value.structure_type27756)==(t43737.value.structure_type27756))) goto l6462; break; case STRUCTURE_TYPE27761: if (!((t43736.value.structure_type27761)==(t43737.value.structure_type27761))) goto l6462; break; case STRUCTURE_TYPE27769: if (!((t43736.value.structure_type27769)==(t43737.value.structure_type27769))) goto l6462; break; case STRUCTURE_TYPE27776: if (!((t43736.value.structure_type27776)==(t43737.value.structure_type27776))) goto l6462; break; case STRUCTURE_TYPE27779: if (!((t43736.value.structure_type27779)==(t43737.value.structure_type27779))) goto l6462; break; case STRUCTURE_TYPE27858: if (!((t43736.value.structure_type27858)==(t43737.value.structure_type27858))) goto l6462; break; case STRING_TYPE: if (!((t43736.value.string_type)==(t43737.value.string_type))) goto l6462; break; case HEADED_VECTOR_TYPE27896: if (!((t43736.value.headed_vector_type27896)==(t43737.value.headed_vector_type27896))) goto l6462; break; case EXTERNAL_SYMBOL_TYPE: if (!((t43736.value.external_symbol_type)==(t43737.value.external_symbol_type))) goto l6462; break; case STRUCTURE_TYPE27908: if (!((t43736.value.structure_type27908)==(t43737.value.structure_type27908))) goto l6462; break; default:;} /* x140842 stalin.sc:18218:639802 */ /* x140841 stalin.sc:18218:639808 */ t43746 = p15391->p15368->p15355->a26584; /* x140840 stalin.sc:18218:639803 */ t43745 = p15391->p15368; return f15488(t43745, t43746); l6462: /* x140848 stalin.sc:18221:639958 */ /* x140847 stalin.sc:18221:639964 */ /* x140845 stalin.sc:18221:639981 */ t43743 = p15391->p15368->p15355->a26584; /* x140846 stalin.sc:18221:639983 */ t43744 = p15391->a26591; /* x140844 stalin.sc:18221:639965 */ t43741 = f14422(t43743, t43744); /* x140843 stalin.sc:18221:639959 */ t43740 = p15391->p15368; t43742.tag = STRUCTURE_TYPE24753; t43742.value.structure_type24753 = t43741; return f15488(t43740, t43742); l6447: /* x140987 */ /* x140854 stalin.sc:18222:639992 */ /* x140853 stalin.sc:18222:640003 */ t43652 = p15387->p15369->p15368->p15355->a26585; /* x140852 stalin.sc:18222:639993 */ if (f14024(t43652)==FALSE_TYPE) goto l6449; /* x140908 */ /* x140907 */ t43711 = p15387; p15392 = t43711; /* x140906 stalin.sc:18223:640008 */ /* x140905 stalin.sc:18223:640014 */ /* x140903 stalin.sc:18224:640033 */ /* x140874 stalin.sc:18224:640037 */ /* x140862 stalin.sc:18224:640042 */ /* x140860 stalin.sc:18224:640051 */ /* x140859 stalin.sc:18224:640068 */ t43719 = p15392->p15369->a26591; /* x140858 stalin.sc:18224:640052 */ t43717 = f13854(t43719); /* x140861 stalin.sc:18224:640072 */ t43718 = p15392->p15369->p15368->p15355->a26585; /* x140857 stalin.sc:18224:640043 */ if (f8033(t43717, t43718)==FALSE_TYPE) goto l6455; /* x140872 */ /* x140871 stalin.sc:18225:640084 */ /* x140870 stalin.sc:18225:640091 */ /* x140868 stalin.sc:18225:640103 */ /* x140867 stalin.sc:18225:640120 */ t43723 = p15392->p15369->a26591; /* x140866 stalin.sc:18225:640104 */ t43721 = f13854(t43723); /* x140869 stalin.sc:18225:640124 */ t43722 = p15392->p15369->p15368->p15355->a26585; /* x140865 stalin.sc:18225:640092 */ t43720 = f14564(t43721, t43722); /* x268593 stalin.sc:18225:640085 */ if (!((t43720&1)==1)) {backtrace("stalin.sc", 18225, 640084); zero_error();} if (((int)(((int)t43720)>>1))==0) goto l6455; /* x140901 stalin.sc:18226:640136 */ /* x140889 stalin.sc:18226:640140 */ /* x140888 stalin.sc:18227:640200 */ t43724 = p15392->a26592; /* x140887 stalin.sc:18227:640151 */ /* x140875 stalin.sc:18226:640141 */ t43725.tag = NATIVE_PROCEDURE_TYPE23720; t43726 = *((struct w49 *)(&t43724)); t43727 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t43725, t43726, t43727)==FALSE_TYPE) goto l6459; /* x140896 stalin.sc:18228:640207 */ /* x140891 stalin.sc:18228:640231 */ t43731 = p15392->p15369->p15368->p15355->a26584; /* x140894 stalin.sc:18228:640233 */ /* x140893 stalin.sc:18228:640250 */ t43734 = p15392->p15369->a26591; /* x140892 stalin.sc:18228:640234 */ t43732 = f13854(t43734); /* x140895 stalin.sc:18228:640254 */ t43733 = p15392->p15369->p15368->p15355->a26585; /* x140890 stalin.sc:18228:640208 */ t43715 = f14593(t43731, t43732, t43733); goto l6460; l6459: /* x140900 stalin.sc:18229:640260 */ /* x140898 stalin.sc:18229:640278 */ t43728 = p15392->p15369->p15368->p15355->a26584; /* x140899 stalin.sc:18229:640280 */ t43729 = p15392->p15369->p15368->p15355->a26585; /* x140897 stalin.sc:18229:640261 */ t43730 = f14592(t43728, t43729); t43715.tag = STRUCTURE_TYPE24753; t43715.value.structure_type24753 = t43730; l6460: goto l6456; l6455: /* x140902 stalin.sc:18230:640290 */ t43715 = p15392->p15369->p15368->p15355->a26584; l6456: /* x140904 stalin.sc:18231:640295 */ t43716 = p15392->p15369->a26591; /* x140856 stalin.sc:18223:640015 */ t43713 = f14422(t43715, t43716); /* x140855 stalin.sc:18223:640009 */ t43712 = p15392->p15369->p15368; t43714.tag = STRUCTURE_TYPE24753; t43714.value.structure_type24753 = t43713; return f15488(t43712, t43714); l6449: /* x140986 */ /* x140985 */ t43653 = p15387; p15395 = t43653; /* x140984 stalin.sc:18233:640310 */ /* x140983 stalin.sc:18233:640320 */ /* x140982 stalin.sc:18233:640337 */ t43710 = p15395->p15369->a26591; /* x140981 stalin.sc:18233:640321 */ t43655 = f13854(t43710); /* x140980 */ t43654 = p15395; p15396 = t43654; a26600 = t43655; e15396 = (struct p15396 *)alloca(sizeof(struct p15396)); if (e15396==NULL) {backtrace_internal("[inside MOVE-GENERAL 15395]"); out_of_memory_error();} e15396->a26600 = a26600; /* x140979 stalin.sc:18234:640346 */ /* x140916 stalin.sc:18234:640350 */ /* x140915 stalin.sc:18234:640380 */ t43657 = p15396->a26592; /* x140914 stalin.sc:18234:640356 */ t43656 = e15396; /* x140909 stalin.sc:18234:640351 */ t43658.tag = NATIVE_PROCEDURE_TYPE20613; t43658.value.native_procedure_type20613 = t43656; t43659 = *((struct w49 *)(&t43657)); t43660 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t43658, t43659, t43660).tag)==FALSE_TYPE) goto l6451; /* x140971 stalin.sc:18235:640391 */ /* x140924 stalin.sc:18235:640395 */ /* x140923 stalin.sc:18235:640426 */ t43668 = p15396->a26592; /* x140922 stalin.sc:18235:640402 */ t43667 = e15396; /* x140917 stalin.sc:18235:640396 */ t43669.tag = NATIVE_PROCEDURE_TYPE20615; t43669.value.native_procedure_type20615 = t43667; t43670 = *((struct w49 *)(&t43668)); t43671 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t43669, t43670, t43671)==FALSE_TYPE) goto l6453; /* x140935 stalin.sc:18236:640434 */ /* x140934 stalin.sc:18236:640440 */ /* x140931 stalin.sc:18236:640449 */ /* x140928 stalin.sc:18236:640458 */ t43707 = p15396->p15369->p15368->p15355->a26584; /* x140929 stalin.sc:18236:640460 */ t43708 = e15396->a26600; /* x140930 stalin.sc:18236:640463 */ t43709 = p15396->p15369->p15368->p15355->a26585; /* x140927 stalin.sc:18236:640450 */ t43704 = f14485(t43707, t43708, t43709); /* x140932 stalin.sc:18236:640466 */ t43705 = e15396->a26600; /* x140933 stalin.sc:18236:640469 */ t43706 = p15396->p15369->a26591; /* x140926 stalin.sc:18236:640441 */ t43703 = f14529(t43704, t43705, t43706); /* x140925 stalin.sc:18236:640435 */ t43702 = p15396->p15369->p15368; return f15488(t43702, t43703); l6453: /* x140970 stalin.sc:18237:640478 */ /* x140969 stalin.sc:18239:640552 */ /* x140949 stalin.sc:18239:640558 */ /* x140945 stalin.sc:18239:640564 */ /* x140943 stalin.sc:18239:640571 */ t43685 = p15396->p15369->p15368->p15355->a26584; /* x140944 stalin.sc:18239:640573 */ t43686 = p15396->p15369->p15368->p15355->a26585; /* x140942 stalin.sc:18239:640565 */ t43682 = f14478(t43685, t43686); /* x140948 stalin.sc:18239:640576 */ /* x140947 stalin.sc:18239:640588 */ t43687 = e15396->a26600; /* x140946 stalin.sc:18239:640577 */ t43683 = f14433(t43687); /* x140941 stalin.sc:18239:640559 */ t43684 = *((struct w49 *)(&t43683)); t43678 = f13591(t43682, t43684); /* x140960 stalin.sc:18240:640597 */ /* x140959 stalin.sc:18240:640603 */ /* x140956 stalin.sc:18240:640612 */ /* x140953 stalin.sc:18240:640621 */ t43693 = p15396->p15369->p15368->p15355->a26584; /* x140954 stalin.sc:18240:640623 */ t43694 = e15396->a26600; /* x140955 stalin.sc:18240:640626 */ t43695 = p15396->p15369->p15368->p15355->a26585; /* x140952 stalin.sc:18240:640613 */ t43690 = f14485(t43693, t43694, t43695); /* x140957 stalin.sc:18240:640629 */ t43691 = e15396->a26600; /* x140958 stalin.sc:18240:640632 */ t43692 = p15396->p15369->a26591; /* x140951 stalin.sc:18240:640604 */ t43689 = f14529(t43690, t43691, t43692); /* x140950 stalin.sc:18240:640598 */ t43688 = p15396->p15369->p15368; t43679 = f15488(t43688, t43689); /* x140967 stalin.sc:18241:640641 */ /* x140966 stalin.sc:18241:640647 */ /* x140963 stalin.sc:18241:640669 */ t43699 = p15396->p15369->p15368->p15355->a26584; /* x140964 stalin.sc:18241:640671 */ t43700 = p15396->p15369->p15368->p15355->a26585; /* x140965 stalin.sc:18241:640673 */ t43701 = p15396->p15369->a26591; /* x140962 stalin.sc:18241:640648 */ t43697 = f14428(t43699, t43700, t43701); /* x140961 stalin.sc:18241:640642 */ t43696 = p15396->p15369->p15368; t43698.tag = STRUCTURE_TYPE24753; t43698.value.structure_type24753 = t43697; t43680 = f15488(t43696, t43698); /* x140968 stalin.sc:18242:640682 */ /* x140940 stalin.sc:18239:640553 */ t43681 = TRUE_TYPE; t43673 = f13672(t43678, t43679, t43680, t43681); /* x140939 stalin.sc:18238:640500 */ /* x140938 stalin.sc:18238:640508 */ t43677 = "MOVE: branching general to squeezed"; /* x140937 stalin.sc:18238:640501 */ t43672 = f13634(t43677); /* x140936 stalin.sc:18237:640479 */ t43676.tag = STRUCTURE_TYPE24753; t43676.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43676.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18237, 640478); out_of_memory_error();} t43676.value.structure_type24753->s0 = t43673; t43676.value.structure_type24753->s1.tag = NULL_TYPE; a41778 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41778==NULL) {backtrace("stalin.sc", 18237, 640478); out_of_memory_error();} a41778->s0 = t43672; a41778->s1 = t43676; /* x301224 stalin.sc:14400:506485 */ /* x301223 stalin.sc:14400:506503 */ t43674 = a41778; /* x301222 stalin.sc:14400:506486 */ t43675.tag = STRUCTURE_TYPE24753; t43675.value.structure_type24753 = t43674; return f13492(t43675); l6451: /* x140978 stalin.sc:18243:640695 */ /* x140977 stalin.sc:18243:640701 */ /* x140974 stalin.sc:18243:640723 */ t43664 = p15396->p15369->p15368->p15355->a26584; /* x140975 stalin.sc:18243:640725 */ t43665 = p15396->p15369->p15368->p15355->a26585; /* x140976 stalin.sc:18243:640727 */ t43666 = p15396->p15369->a26591; /* x140973 stalin.sc:18243:640702 */ t43662 = f14428(t43664, t43665, t43666); /* x140972 stalin.sc:18243:640696 */ t43661 = p15396->p15369->p15368; t43663.tag = STRUCTURE_TYPE24753; t43663.value.structure_type24753 = t43662; return f15488(t43661, t43663); l6363: /* x142315 */ /* x140996 stalin.sc:18244:640744 */ /* x140995 stalin.sc:18244:640755 */ t42997 = p15373->p15369->a26591; /* x140994 stalin.sc:18244:640745 */ if (f14024(t42997)==FALSE_TYPE) goto l6365; /* x141772 */ /* x141771 */ t43289 = p15373; p15399 = t43289; /* x141770 stalin.sc:18245:640766 */ /* x140999 stalin.sc:18246:640774 */ /* x140998 stalin.sc:18246:640781 */ t43290 = p15399->p15369->p15368->p15355->a26585; /* x140997 stalin.sc:18246:640775 */ if (f8151(t43290)==FALSE_TYPE) goto l6399; /* x141011 */ /* x141010 */ t43638 = p15399->p15369; p15400 = t43638; /* x141009 stalin.sc:18246:640784 */ /* x141008 stalin.sc:18246:640790 */ /* x141006 stalin.sc:18246:640807 */ /* x141005 stalin.sc:18246:640819 */ /* x141004 stalin.sc:18246:640831 */ t43646 = p15400->p15368->p15355->a26585; /* x141003 stalin.sc:18246:640820 */ t43645 = f8153(t43646); /* x141002 stalin.sc:18246:640808 */ t43642 = f14433(t43645); /* x141007 stalin.sc:18246:640835 */ t43643 = p15400->a26591; /* x141001 stalin.sc:18246:640791 */ t43644 = *((struct w49 *)(&t43642)); t43640 = f14422(t43644, t43643); /* x141000 stalin.sc:18246:640785 */ t43639 = p15400->p15368; t43641.tag = STRUCTURE_TYPE24753; t43641.value.structure_type24753 = t43640; return f15488(t43639, t43641); l6399: /* x141769 */ /* x141014 stalin.sc:18247:640843 */ /* x141013 stalin.sc:18247:640857 */ t43291 = p15399->p15369->p15368->p15355->a26585; /* x141012 stalin.sc:18247:640844 */ if (f8148(t43291)==FALSE_TYPE) goto l6401; /* x141031 */ /* x141030 */ t43627 = p15399->p15369; p15401 = t43627; /* x141029 stalin.sc:18248:640862 */ /* x141028 stalin.sc:18248:640868 */ /* x141023 stalin.sc:18248:640876 */ /* x141018 stalin.sc:18248:640885 */ t43633 = p15401->p15368->p15355->a26584; /* x141021 stalin.sc:18248:640887 */ /* x141020 stalin.sc:18248:640899 */ t43636 = p15401->p15368->p15355->a26585; /* x141019 stalin.sc:18248:640888 */ t43634 = f8153(t43636); /* x141022 stalin.sc:18248:640902 */ t43635 = p15401->p15368->p15355->a26585; /* x141017 stalin.sc:18248:640877 */ t43630 = f14485(t43633, t43634, t43635); /* x141026 stalin.sc:18248:640905 */ /* x141025 stalin.sc:18248:640917 */ t43637 = p15401->p15368->p15355->a26585; /* x141024 stalin.sc:18248:640906 */ t43631 = f8153(t43637); /* x141027 stalin.sc:18248:640920 */ t43632 = p15401->a26591; /* x141016 stalin.sc:18248:640869 */ t43629 = f14579(t43630, t43631, t43632); /* x141015 stalin.sc:18248:640863 */ t43628 = p15401->p15368; return f15488(t43628, t43629); l6401: /* x141768 */ /* x141034 stalin.sc:18251:641063 */ /* x141033 stalin.sc:18251:641074 */ t43292 = p15399->p15369->p15368->p15355->a26585; /* x141032 stalin.sc:18251:641064 */ if (f13798(t43292)==FALSE_TYPE) goto l6403; /* x141045 */ /* x141044 */ t43619 = p15399->p15369; p15402 = t43619; /* x141043 stalin.sc:18251:641077 */ /* x141042 stalin.sc:18251:641083 */ /* x141040 stalin.sc:18251:641100 */ /* x141038 stalin.sc:18251:641107 */ t43625 = p15402->p15368->p15355->a26584; /* x141039 stalin.sc:18251:641109 */ t43626 = p15402->p15368->p15355->a26585; /* x141037 stalin.sc:18251:641101 */ t43623 = f14478(t43625, t43626); /* x141041 stalin.sc:18251:641112 */ t43624 = p15402->a26591; /* x141036 stalin.sc:18251:641084 */ t43621 = f14422(t43623, t43624); /* x141035 stalin.sc:18251:641078 */ t43620 = p15402->p15368; t43622.tag = STRUCTURE_TYPE24753; t43622.value.structure_type24753 = t43621; return f15488(t43620, t43622); l6403: /* x141767 */ /* x141048 stalin.sc:18252:641120 */ /* x141047 stalin.sc:18252:641131 */ t43293 = p15399->p15369->p15368->p15355->a26585; /* x141046 stalin.sc:18252:641121 */ if (f13859(t43293)==FALSE_TYPE) goto l6405; /* x141153 */ /* x141152 */ t43560 = p15399; p15403 = t43560; /* x141151 stalin.sc:18253:641136 */ /* x141076 stalin.sc:18253:641140 */ /* x141075 stalin.sc:18253:641144 */ /* x141074 stalin.sc:18253:641200 */ t43561 = p15403->a26592; /* x141073 stalin.sc:18253:641151 */ /* x141061 stalin.sc:18253:641145 */ t43562.tag = NATIVE_PROCEDURE_TYPE20604; t43563 = *((struct w49 *)(&t43561)); t43564 = (struct structure_type24753 *)NULL_TYPE; if (!(f1061(t43562, t43563, t43564)==FALSE_TYPE)) goto l6435; p15404 = p15403->p15369; /* x141058 */ /* x141057 stalin.sc:18254:641214 */ /* x141055 stalin.sc:18254:641226 */ /* x141054 stalin.sc:18254:641243 */ t43568 = p15404->p15368->p15355->a26585; /* x141053 stalin.sc:18254:641227 */ t43566 = f13854(t43568); /* x141056 stalin.sc:18254:641246 */ t43567 = p15404->a26591; /* x141052 stalin.sc:18254:641215 */ t43565 = f14564(t43566, t43567); /* x268590 stalin.sc:18254:641208 */ if (!((t43565&1)==1)) {backtrace_internal("[inside MOVE-GENERAL 15404]"); zero_error();} if (!(((int)(((int)t43565)>>1))==0)) goto l6436; l6435: /* x141082 stalin.sc:18255:641258 */ /* x141081 stalin.sc:18255:641264 */ /* x141079 stalin.sc:18255:641281 */ t43617 = p15403->p15369->p15368->p15355->a26584; /* x141080 stalin.sc:18255:641283 */ t43618 = p15403->p15369->a26591; /* x141078 stalin.sc:18255:641265 */ t43615 = f14422(t43617, t43618); /* x141077 stalin.sc:18255:641259 */ t43614 = p15403->p15369->p15368; t43616.tag = STRUCTURE_TYPE24753; t43616.value.structure_type24753 = t43615; return f15488(t43614, t43616); l6436: /* x141150 stalin.sc:18256:641294 */ /* x141097 stalin.sc:18256:641298 */ /* x141096 stalin.sc:18256:641353 */ t43569 = p15403->a26592; /* x141095 stalin.sc:18256:641304 */ /* x141083 stalin.sc:18256:641299 */ t43570.tag = NATIVE_PROCEDURE_TYPE23637; t43571 = *((struct w49 *)(&t43569)); t43572 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t43570, t43571, t43572).tag)==FALSE_TYPE) goto l6439; /* x141134 stalin.sc:18257:641360 */ /* x141133 stalin.sc:18259:641433 */ /* x141110 stalin.sc:18259:641439 */ /* x141104 stalin.sc:18259:641445 */ t43593 = p15403->p15369->p15368->p15355->a26584; /* x141109 stalin.sc:18259:641447 */ /* x141107 stalin.sc:18259:641464 */ /* x141106 stalin.sc:18259:641465 */ /* x276363 stalin.sc:16167:562604 */ t43596 = "VALUE_OFFSET"; /* x141108 stalin.sc:18259:641481 */ t43597 = p15403->p15369->p15368->p15355->a26585; /* x141105 stalin.sc:18259:641448 */ t43598.tag = STRING_TYPE; t43598.value.string_type = t43596; t43594 = f14422(t43598, t43597); /* x141103 stalin.sc:18259:641440 */ t43595.tag = STRUCTURE_TYPE24753; t43595.value.structure_type24753 = t43594; t43589 = f13608(t43593, t43595); /* x141125 stalin.sc:18260:641488 */ /* x141124 stalin.sc:18260:641494 */ /* x141119 stalin.sc:18260:641502 */ /* x141114 stalin.sc:18260:641511 */ t43604 = p15403->p15369->p15368->p15355->a26584; /* x141117 stalin.sc:18260:641513 */ /* x141116 stalin.sc:18260:641530 */ t43607 = p15403->p15369->p15368->p15355->a26585; /* x141115 stalin.sc:18260:641514 */ t43605 = f13854(t43607); /* x141118 stalin.sc:18260:641533 */ t43606 = p15403->p15369->p15368->p15355->a26585; /* x141113 stalin.sc:18260:641503 */ t43601 = f14485(t43604, t43605, t43606); /* x141122 stalin.sc:18261:641546 */ /* x141121 stalin.sc:18261:641563 */ t43608 = p15403->p15369->p15368->p15355->a26585; /* x141120 stalin.sc:18261:641547 */ t43602 = f13854(t43608); /* x141123 stalin.sc:18262:641576 */ t43603 = p15403->p15369->a26591; /* x141112 stalin.sc:18260:641495 */ t43600 = f14579(t43601, t43602, t43603); /* x141111 stalin.sc:18260:641489 */ t43599 = p15403->p15369->p15368; t43590 = f15488(t43599, t43600); /* x141131 stalin.sc:18263:641584 */ /* x141130 stalin.sc:18263:641590 */ /* x141128 stalin.sc:18263:641607 */ t43612 = p15403->p15369->p15368->p15355->a26584; /* x141129 stalin.sc:18263:641609 */ t43613 = p15403->p15369->a26591; /* x141127 stalin.sc:18263:641591 */ t43610 = f14422(t43612, t43613); /* x141126 stalin.sc:18263:641585 */ t43609 = p15403->p15369->p15368; t43611.tag = STRUCTURE_TYPE24753; t43611.value.structure_type24753 = t43610; t43591 = f15488(t43609, t43611); /* x141132 stalin.sc:18264:641617 */ /* x141102 stalin.sc:18259:641434 */ t43592 = TRUE_TYPE; t43584 = f13672(t43589, t43590, t43591, t43592); /* x141101 stalin.sc:18258:641381 */ /* x141100 stalin.sc:18258:641389 */ t43588 = "MOVE: branching squeezed to squished"; /* x141099 stalin.sc:18258:641382 */ t43583 = f13634(t43588); /* x141098 stalin.sc:18257:641361 */ t43587.tag = STRUCTURE_TYPE24753; t43587.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43587.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18257, 641360); out_of_memory_error();} t43587.value.structure_type24753->s0 = t43584; t43587.value.structure_type24753->s1.tag = NULL_TYPE; a41779 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41779==NULL) {backtrace("stalin.sc", 18257, 641360); out_of_memory_error();} a41779->s0 = t43583; a41779->s1 = t43587; /* x301228 stalin.sc:14400:506485 */ /* x301227 stalin.sc:14400:506503 */ t43585 = a41779; /* x301226 stalin.sc:14400:506486 */ t43586.tag = STRUCTURE_TYPE24753; t43586.value.structure_type24753 = t43585; return f13492(t43586); l6439: /* x141149 stalin.sc:18265:641625 */ /* x141148 stalin.sc:18265:641631 */ /* x141143 stalin.sc:18265:641639 */ /* x141138 stalin.sc:18265:641648 */ t43578 = p15403->p15369->p15368->p15355->a26584; /* x141141 stalin.sc:18265:641650 */ /* x141140 stalin.sc:18265:641667 */ t43581 = p15403->p15369->p15368->p15355->a26585; /* x141139 stalin.sc:18265:641651 */ t43579 = f13854(t43581); /* x141142 stalin.sc:18265:641670 */ t43580 = p15403->p15369->p15368->p15355->a26585; /* x141137 stalin.sc:18265:641640 */ t43575 = f14485(t43578, t43579, t43580); /* x141146 stalin.sc:18266:641683 */ /* x141145 stalin.sc:18266:641700 */ t43582 = p15403->p15369->p15368->p15355->a26585; /* x141144 stalin.sc:18266:641684 */ t43576 = f13854(t43582); /* x141147 stalin.sc:18267:641713 */ t43577 = p15403->p15369->a26591; /* x141136 stalin.sc:18265:641632 */ t43574 = f14579(t43575, t43576, t43577); /* x141135 stalin.sc:18265:641626 */ t43573 = p15403->p15369->p15368; return f15488(t43573, t43574); l6405: /* x141766 */ /* x141156 stalin.sc:18268:641723 */ /* x141155 stalin.sc:18268:641734 */ t43294 = p15399->p15369->p15368->p15355->a26585; /* x141154 stalin.sc:18268:641724 */ if (f14024(t43294)==FALSE_TYPE) goto l6407; /* x141685 */ /* x141684 */ t43316 = p15399; p15409 = t43316; /* x141683 stalin.sc:18269:641739 */ /* x141196 stalin.sc:18270:641749 */ /* x141186 stalin.sc:18270:641754 */ /* x141185 stalin.sc:18274:641875 */ t43318 = p15409->a26592; /* x141184 stalin.sc:18270:641761 */ t43317 = p15409->p15369; /* x141157 stalin.sc:18270:641755 */ t43319.tag = NATIVE_PROCEDURE_TYPE20560; t43319.value.native_procedure_type20560 = t43317; t43320 = *((struct w49 *)(&t43318)); t43321 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t43319, t43320, t43321)==FALSE_TYPE) goto l6413; /* x141194 */ /* x141190 stalin.sc:18275:641884 */ /* x141189 stalin.sc:18275:641902 */ t43324 = p15409->p15369->p15368->p15355->a26585; /* x141188 stalin.sc:18275:641885 */ t43322 = f13917(t43324); /* x141193 stalin.sc:18275:641905 */ /* x141192 stalin.sc:18275:641923 */ t43325 = p15409->p15369->a26591; /* x141191 stalin.sc:18275:641906 */ t43323 = f13917(t43325); /* x268588 stalin.sc:18275:641882 */ switch (t43322.tag) {case FIXNUM_TYPE: switch (t43323.tag) {case FIXNUM_TYPE: if (!((t43322.value.fixnum_type)==(t43323.value.fixnum_type))) goto l6413; break; case FLONUM_TYPE: if (!((t43322.value.fixnum_type)==(t43323.value.flonum_type))) goto l6413; break; default: backtrace_internal("[inside MOVE-GENERAL 15409]"); eql_error();} break; case FLONUM_TYPE: switch (t43323.tag) {case FIXNUM_TYPE: if (!((t43322.value.flonum_type)==(t43323.value.fixnum_type))) goto l6413; break; case FLONUM_TYPE: if (!((t43322.value.flonum_type)==(t43323.value.flonum_type))) goto l6413; break; default: backtrace_internal("[inside MOVE-GENERAL 15409]"); eql_error();} break; default: backtrace_internal("[inside MOVE-GENERAL 15409]"); eql_error();} /* x141201 */ /* x141200 */ t43557 = p15409->p15369->p15368; p15413 = t43557; /* x141199 stalin.sc:18276:641933 */ /* x141198 stalin.sc:18276:641939 */ t43559 = p15413->p15355->a26584; /* x141197 stalin.sc:18276:641934 */ t43558 = p15413; return f15488(t43558, t43559); l6413: /* x141682 */ /* x141681 */ t43326 = p15409; p15414 = t43326; /* x141680 */ /* x141679 stalin.sc:18278:641956 */ /* x141670 stalin.sc:18278:641964 */ /* x141669 stalin.sc:18278:641968 */ /* x141665 stalin.sc:18278:641971 */ /* x141664 stalin.sc:18278:641989 */ t43549 = p15414->p15369->p15368->p15355->a26585; /* x141663 stalin.sc:18278:641972 */ t43547 = f13917(t43549); /* x141668 stalin.sc:18278:641992 */ /* x141667 stalin.sc:18278:642010 */ t43550 = p15414->p15369->a26591; /* x141666 stalin.sc:18278:641993 */ t43548 = f13917(t43550); /* x268556 stalin.sc:18278:641969 */ switch (t43547.tag) {case FIXNUM_TYPE: switch (t43548.tag) {case FIXNUM_TYPE: if ((t43547.value.fixnum_type)==(t43548.value.fixnum_type)) goto l6431; break; case FLONUM_TYPE: if ((t43547.value.fixnum_type)==(t43548.value.flonum_type)) goto l6431; break; default: backtrace("stalin.sc", 18278, 641968); eql_error();} break; case FLONUM_TYPE: switch (t43548.tag) {case FIXNUM_TYPE: if ((t43547.value.flonum_type)==(t43548.value.fixnum_type)) goto l6431; break; case FLONUM_TYPE: if ((t43547.value.flonum_type)==(t43548.value.flonum_type)) goto l6431; break; default: backtrace("stalin.sc", 18278, 641968); eql_error();} break; default: backtrace("stalin.sc", 18278, 641968); eql_error();} p15445 = p15414; /* x141659 */ /* x141658 stalin.sc:18288:642345 */ t43551 = p15445->a26592; /* x141657 stalin.sc:18279:642031 */ /* x141629 stalin.sc:18279:642025 */ t43552.tag = NATIVE_PROCEDURE_TYPE20563; t43553 = *((struct w49 *)(&t43551)); t43554 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t43552, t43553, t43554)==FALSE_TYPE) goto l6432; l6431: /* x141672 */ /* x141671 */ goto l6433; l6432: /* x141678 */ /* x141677 */ /* x141676 stalin.sc:18289:642355 */ /* x141674 stalin.sc:18290:642376 */ /* x141675 stalin.sc:18290:642379 */ t43555 = "This case of squished-to-squished is not (yet) implemented"; /* x141673 stalin.sc:18289:642356 */ t43556.tag = FALSE_TYPE; f9707(t43556, t43555); l6433: /* x141626 */ t43327 = p15414; p15415 = t43327; /* x141625 stalin.sc:18291:642446 */ /* x141256 stalin.sc:18291:642450 */ /* x141255 stalin.sc:18291:642454 */ /* x141254 stalin.sc:18291:642459 */ /* x141253 stalin.sc:18292:642518 */ t43328 = p15415->a26592; /* x141252 stalin.sc:18292:642469 */ /* x141240 stalin.sc:18291:642460 */ t43329.tag = NATIVE_PROCEDURE_TYPE20567; t43330 = *((struct w49 *)(&t43328)); t43331 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t43329, t43330, t43331).tag)==FALSE_TYPE) goto l6415; p15416 = p15415; /* x141236 */ /* x141211 stalin.sc:18293:642533 */ /* x141207 stalin.sc:18293:642536 */ /* x141206 stalin.sc:18293:642554 */ t43334 = p15416->p15369->p15368->p15355->a26585; /* x141205 stalin.sc:18293:642537 */ t43332 = f13917(t43334); /* x141210 stalin.sc:18293:642557 */ /* x141209 stalin.sc:18293:642575 */ t43335 = p15416->p15369->a26591; /* x141208 stalin.sc:18293:642558 */ t43333 = f13917(t43335); /* x268587 stalin.sc:18293:642534 */ switch (t43332.tag) {case FIXNUM_TYPE: switch (t43333.tag) {case FIXNUM_TYPE: if (!((t43332.value.fixnum_type)==(t43333.value.fixnum_type))) goto l6416; break; case FLONUM_TYPE: if (!((t43332.value.fixnum_type)==(t43333.value.flonum_type))) goto l6416; break; default: backtrace("stalin.sc", 18293, 642533); eql_error();} break; case FLONUM_TYPE: switch (t43333.tag) {case FIXNUM_TYPE: if (!((t43332.value.flonum_type)==(t43333.value.fixnum_type))) goto l6416; break; case FLONUM_TYPE: if (!((t43332.value.flonum_type)==(t43333.value.flonum_type))) goto l6416; break; default: backtrace("stalin.sc", 18293, 642533); eql_error();} break; default: backtrace("stalin.sc", 18293, 642533); eql_error();} /* x141234 */ /* x141233 stalin.sc:18297:642687 */ t43337 = p15416->a26592; /* x141232 stalin.sc:18294:642590 */ t43336 = p15416->p15369; /* x141212 stalin.sc:18294:642584 */ t43338.tag = NATIVE_PROCEDURE_TYPE20583; t43338.value.native_procedure_type20583 = t43336; t43339 = *((struct w49 *)(&t43337)); t43340 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t43338, t43339, t43340)==FALSE_TYPE) goto l6416; l6415: /* x141422 stalin.sc:18298:642701 */ /* x141421 stalin.sc:18300:642760 */ /* x141420 stalin.sc:18301:642769 */ /* x141328 stalin.sc:18309:643212 */ /* x141327 stalin.sc:18310:643234 */ /* x141271 stalin.sc:18311:643247 */ /* x141267 stalin.sc:18311:643250 */ /* x141266 stalin.sc:18311:643268 */ t43470 = p15415->p15369->p15368->p15355->a26585; /* x141265 stalin.sc:18311:643251 */ t43468 = f13917(t43470); /* x141270 stalin.sc:18311:643271 */ /* x141269 stalin.sc:18311:643289 */ t43471 = p15415->p15369->a26591; /* x141268 stalin.sc:18311:643272 */ t43469 = f13917(t43471); /* x268582 stalin.sc:18311:643248 */ switch (t43468.tag) {case FIXNUM_TYPE: switch (t43469.tag) {case FIXNUM_TYPE: if (!((t43468.value.fixnum_type)==(t43469.value.fixnum_type))) goto l6426; break; case FLONUM_TYPE: if (!((t43468.value.fixnum_type)==(t43469.value.flonum_type))) goto l6426; break; default: backtrace("stalin.sc", 18311, 643247); eql_error();} break; case FLONUM_TYPE: switch (t43469.tag) {case FIXNUM_TYPE: if (!((t43468.value.flonum_type)==(t43469.value.fixnum_type))) goto l6426; break; case FLONUM_TYPE: if (!((t43468.value.flonum_type)==(t43469.value.flonum_type))) goto l6426; break; default: backtrace("stalin.sc", 18311, 643247); eql_error();} break; default: backtrace("stalin.sc", 18311, 643247); eql_error();} /* x141277 */ /* x141276 */ t43506 = p15415->p15369->p15368->p15355; p15421 = t43506; /* x141275 stalin.sc:18312:643301 */ /* x141273 stalin.sc:18312:643319 */ t43507 = p15421->a26584; /* x141274 stalin.sc:18312:643321 */ t43508 = p15421->a26585; /* x141272 stalin.sc:18312:643302 */ t43509 = f14592(t43507, t43508); t43467.tag = STRUCTURE_TYPE24753; t43467.value.structure_type24753 = t43509; goto l6427; l6426: /* x141326 */ /* x141285 stalin.sc:18313:643332 */ /* x141281 stalin.sc:18313:643335 */ /* x141280 stalin.sc:18313:643353 */ t43474 = p15415->p15369->p15368->p15355->a26585; /* x141279 stalin.sc:18313:643336 */ t43472 = f13917(t43474); /* x141284 stalin.sc:18313:643356 */ /* x141283 stalin.sc:18313:643374 */ t43475 = p15415->p15369->a26591; /* x141282 stalin.sc:18313:643357 */ t43473 = f13917(t43475); /* x268581 stalin.sc:18313:643333 */ switch (t43472.tag) {case FIXNUM_TYPE: switch (t43473.tag) {case FIXNUM_TYPE: if (!((t43472.value.fixnum_type)<(t43473.value.fixnum_type))) goto l6429; break; case FLONUM_TYPE: if (!((t43472.value.fixnum_type)<(t43473.value.flonum_type))) goto l6429; break; default: backtrace("stalin.sc", 18313, 643332); lt_error();} break; case FLONUM_TYPE: switch (t43473.tag) {case FIXNUM_TYPE: if (!((t43472.value.flonum_type)<(t43473.value.fixnum_type))) goto l6429; break; case FLONUM_TYPE: if (!((t43472.value.flonum_type)<(t43473.value.flonum_type))) goto l6429; break; default: backtrace("stalin.sc", 18313, 643332); lt_error();} break; default: backtrace("stalin.sc", 18313, 643332); lt_error();} /* x141305 */ /* x141304 */ t43491 = p15415->p15369; p15422 = t43491; /* x141303 stalin.sc:18314:643386 */ /* x141292 stalin.sc:18314:643392 */ /* x141291 stalin.sc:18314:643416 */ /* x141289 stalin.sc:18314:643434 */ t43498 = p15422->p15368->p15355->a26584; /* x141290 stalin.sc:18314:643436 */ t43499 = p15422->p15368->p15355->a26585; /* x141288 stalin.sc:18314:643417 */ t43496 = f14592(t43498, t43499); /* x141287 stalin.sc:18314:643393 */ t43497.tag = STRUCTURE_TYPE24753; t43497.value.structure_type24753 = t43496; t43492 = f14425(t43497); /* x141302 stalin.sc:18315:643446 */ /* x141301 stalin.sc:18316:643463 */ /* x141297 stalin.sc:18316:643466 */ /* x141296 stalin.sc:18316:643484 */ t43504 = p15422->a26591; /* x141295 stalin.sc:18316:643467 */ t43502 = f13917(t43504); /* x141300 stalin.sc:18316:643488 */ /* x141299 stalin.sc:18316:643506 */ t43505 = p15422->p15368->p15355->a26585; /* x141298 stalin.sc:18316:643489 */ t43503 = f13917(t43505); /* x268580 stalin.sc:18316:643464 */ switch (t43502.tag) {case FIXNUM_TYPE: switch (t43503.tag) {case FIXNUM_TYPE: t43500.tag = FIXNUM_TYPE; t43500.value.fixnum_type = (t43502.value.fixnum_type)-(t43503.value.fixnum_type); break; case FLONUM_TYPE: t43500.tag = FLONUM_TYPE; t43500.value.flonum_type = (t43502.value.fixnum_type)-(t43503.value.flonum_type); break; default: backtrace("stalin.sc", 18316, 643463); minus_error();} break; case FLONUM_TYPE: switch (t43503.tag) {case FIXNUM_TYPE: t43500.tag = FLONUM_TYPE; t43500.value.flonum_type = (t43502.value.flonum_type)-(t43503.value.fixnum_type); break; case FLONUM_TYPE: t43500.tag = FLONUM_TYPE; t43500.value.flonum_type = (t43502.value.flonum_type)-(t43503.value.flonum_type); break; default: backtrace("stalin.sc", 18316, 643463); minus_error();} break; default: backtrace("stalin.sc", 18316, 643463); minus_error();} /* x141293 stalin.sc:18315:643447 */ t43501 = *((struct w49 *)(&t43500)); t43493 = f13530(t43501); /* x141286 stalin.sc:18314:643387 */ t43494.tag = STRUCTURE_TYPE24753; t43494.value.structure_type24753 = t43492; t43495.tag = STRING_TYPE; t43495.value.string_type = t43493; t43467 = f13623(t43494, t43495); goto l6430; l6429: /* x141325 */ /* x141324 */ t43476 = p15415->p15369; p15423 = t43476; /* x141323 stalin.sc:18318:643532 */ /* x141312 stalin.sc:18318:643538 */ /* x141311 stalin.sc:18318:643562 */ /* x141309 stalin.sc:18318:643580 */ t43483 = p15423->p15368->p15355->a26584; /* x141310 stalin.sc:18318:643582 */ t43484 = p15423->p15368->p15355->a26585; /* x141308 stalin.sc:18318:643563 */ t43481 = f14592(t43483, t43484); /* x141307 stalin.sc:18318:643539 */ t43482.tag = STRUCTURE_TYPE24753; t43482.value.structure_type24753 = t43481; t43477 = f14425(t43482); /* x141322 stalin.sc:18319:643592 */ /* x141321 stalin.sc:18320:643609 */ /* x141317 stalin.sc:18320:643612 */ /* x141316 stalin.sc:18320:643630 */ t43489 = p15423->p15368->p15355->a26585; /* x141315 stalin.sc:18320:643613 */ t43487 = f13917(t43489); /* x141320 stalin.sc:18320:643633 */ /* x141319 stalin.sc:18320:643651 */ t43490 = p15423->a26591; /* x141318 stalin.sc:18320:643634 */ t43488 = f13917(t43490); /* x268579 stalin.sc:18320:643610 */ switch (t43487.tag) {case FIXNUM_TYPE: switch (t43488.tag) {case FIXNUM_TYPE: t43485.tag = FIXNUM_TYPE; t43485.value.fixnum_type = (t43487.value.fixnum_type)-(t43488.value.fixnum_type); break; case FLONUM_TYPE: t43485.tag = FLONUM_TYPE; t43485.value.flonum_type = (t43487.value.fixnum_type)-(t43488.value.flonum_type); break; default: backtrace("stalin.sc", 18320, 643609); minus_error();} break; case FLONUM_TYPE: switch (t43488.tag) {case FIXNUM_TYPE: t43485.tag = FLONUM_TYPE; t43485.value.flonum_type = (t43487.value.flonum_type)-(t43488.value.fixnum_type); break; case FLONUM_TYPE: t43485.tag = FLONUM_TYPE; t43485.value.flonum_type = (t43487.value.flonum_type)-(t43488.value.flonum_type); break; default: backtrace("stalin.sc", 18320, 643609); minus_error();} break; default: backtrace("stalin.sc", 18320, 643609); minus_error();} /* x141313 stalin.sc:18319:643593 */ t43486 = *((struct w49 *)(&t43485)); t43478 = f13530(t43486); /* x141306 stalin.sc:18318:643533 */ t43479.tag = STRUCTURE_TYPE24753; t43479.value.structure_type24753 = t43477; t43480.tag = STRING_TYPE; t43480.value.string_type = t43478; t43467 = f13624(t43479, t43480); l6430: l6427: /* x141263 stalin.sc:18309:643213 */ t43463 = f14423(t43467); /* x141419 stalin.sc:18321:643665 */ /* x141414 stalin.sc:18323:643740 */ /* x141413 stalin.sc:18341:644206 */ t43516 = "\""; /* x141412 stalin.sc:18325:643763 */ /* x141333 stalin.sc:18326:643778 */ /* x141410 stalin.sc:18327:643799 */ /* x141409 stalin.sc:18328:643819 */ /* x141408 stalin.sc:18330:643890 */ t43541 = p15415->a26592; /* x141407 stalin.sc:18328:643824 */ t43540 = p15415->p15369; /* x141396 stalin.sc:18328:643820 */ t43542.tag = NATIVE_PROCEDURE_TYPE20584; t43542.value.native_procedure_type20584 = t43540; t43543 = *((struct w49 *)(&t43541)); t43544 = (struct structure_type24753 *)NULL_TYPE; t43524 = f27731(t43542, t43543, t43544); /* x141395 */ a26617 = t43524; e15424 = (struct p15424 *)alloca(sizeof(struct p15424)); if (e15424==NULL) {backtrace_internal("[inside MOVE-GENERAL 15415]"); out_of_memory_error();} e15424->a26617 = a26617; /* x141394 stalin.sc:18331:643904 */ /* x141382 stalin.sc:18331:643911 */ t43525 = e15424; /* x141393 stalin.sc:18339:644150 */ /* x141391 stalin.sc:18339:644153 */ /* x141385 stalin.sc:18339:644161 */ /* x141389 stalin.sc:18339:644165 */ /* x141388 stalin.sc:18339:644174 */ t43536 = e15424->a26617; /* x141387 stalin.sc:18339:644170 */ /* x141386 stalin.sc:18339:644166 */ t43537.tag = NATIVE_PROCEDURE_TYPE494; /* MOVE: branching squeezed to general */ if (t43536>=((struct structure_type24753 *)VALUE_OFFSET)) {t43538.tag = STRUCTURE_TYPE24753; t43538.value.structure_type24753 = t43536;} else t43538.tag = (unsigned)t43536; t43539 = (struct structure_type24753 *)NULL_TYPE; t43531 = f27731(t43537, t43538, t43539); /* x141390 stalin.sc:18339:644181 */ t43532 = 0; /* x141384 stalin.sc:18339:644154 */ t43533 = NATIVE_PROCEDURE_TYPE416; /* MOVE: branching squeezed to general */ if (t43531>=((struct structure_type24753 *)VALUE_OFFSET)) {t43534.tag = STRUCTURE_TYPE24753; t43534.value.structure_type24753 = t43531;} else t43534.tag = (unsigned)t43531; t43535.tag = FIXNUM_TYPE; t43535.value.fixnum_type = t43532; t43529 = f1006(t43533, t43534, t43535); /* x141392 stalin.sc:18339:644184 */ t43530 = 1; /* x268571 stalin.sc:18339:644151 */ switch (t43529.tag) {case FIXNUM_TYPE: t43526.tag = FIXNUM_TYPE; t43526.value.fixnum_type = (t43529.value.fixnum_type)+t43530; break; case FLONUM_TYPE: t43526.tag = FLONUM_TYPE; t43526.value.flonum_type = (t43529.value.flonum_type)+t43530; break; default: backtrace("stalin.sc", 18339, 644150); plus_error();} /* x141334 stalin.sc:18331:643905 */ t43527.tag = NATIVE_PROCEDURE_TYPE20586; t43527.value.native_procedure_type20586 = t43525; t43528 = *((struct w49 *)(&t43526)); t43519 = f1149(t43527, t43528); /* x141411 stalin.sc:18340:644196 */ t43520 = ""; /* x141332 stalin.sc:18325:643764 */ t43521 = NATIVE_PROCEDURE_TYPE329; t43522 = *((struct w49 *)(&t43519)); t43523.tag = STRING_TYPE; t43523.value.string_type = t43520; t43515 = f1006(t43521, t43522, t43523); /* x141331 stalin.sc:18324:643752 */ t43514 = "\""; /* x141330 stalin.sc:18323:643741 */ t43518.tag = STRUCTURE_TYPE24753; t43518.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43518.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18323, 643740); out_of_memory_error();} t43518.value.structure_type24753->s0.tag = STRING_TYPE; t43518.value.structure_type24753->s0.value.string_type = t43516; t43518.value.structure_type24753->s1.tag = NULL_TYPE; t43517.tag = STRUCTURE_TYPE24753; t43517.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43517.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18323, 643740); out_of_memory_error();} t43517.value.structure_type24753->s0 = t43515; t43517.value.structure_type24753->s1 = t43518; a35125 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35125==NULL) {backtrace("stalin.sc", 18323, 643740); out_of_memory_error();} a35125->s0.tag = STRING_TYPE; a35125->s0.value.string_type = t43514; a35125->s1 = t43517; /* x272257 */ t43510 = a35125; /* x141418 stalin.sc:18342:644217 */ /* x141416 stalin.sc:18342:644237 */ t43545 = p15415->p15369->p15368->p15355->a26584; /* x141417 stalin.sc:18342:644239 */ t43546 = p15415->p15369->p15368->p15355->a26585; /* x141415 stalin.sc:18342:644218 */ t43511 = f14594(t43545, t43546); /* x141329 stalin.sc:18321:643666 */ t43512.tag = STRUCTURE_TYPE24753; t43512.value.structure_type24753 = t43510; t43513.tag = STRUCTURE_TYPE24753; t43513.value.structure_type24753 = t43511; t43464 = f13540(t43512, t43513); /* x141262 stalin.sc:18301:642770 */ t43465.tag = STRUCTURE_TYPE24753; t43465.value.structure_type24753 = t43463; t43466.tag = STRUCTURE_TYPE24753; t43466.value.structure_type24753 = t43464; t43462 = f13609(t43465, t43466); /* x141261 stalin.sc:18300:642761 */ t43461 = p15415->p15369->p15368; t43456 = f15488(t43461, t43462); /* x141260 stalin.sc:18299:642720 */ /* x141259 stalin.sc:18299:642728 */ t43460 = "MOVE: squished to squished"; /* x141258 stalin.sc:18299:642721 */ t43455 = f13634(t43460); /* x141257 stalin.sc:18298:642702 */ t43459.tag = STRUCTURE_TYPE24753; t43459.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43459.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18298, 642701); out_of_memory_error();} t43459.value.structure_type24753->s0 = t43456; t43459.value.structure_type24753->s1.tag = NULL_TYPE; a41877 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41877==NULL) {backtrace("stalin.sc", 18298, 642701); out_of_memory_error();} a41877->s0 = t43455; a41877->s1 = t43459; /* x301620 stalin.sc:14400:506485 */ /* x301619 stalin.sc:14400:506503 */ t43457 = a41877; /* x301618 stalin.sc:14400:506486 */ t43458.tag = STRUCTURE_TYPE24753; t43458.value.structure_type24753 = t43457; return f13492(t43458); l6416: /* x141624 stalin.sc:18343:644254 */ /* x141623 stalin.sc:18345:644323 */ /* x141443 stalin.sc:18346:644332 */ /* x141442 stalin.sc:18347:644389 */ /* x141436 stalin.sc:18347:644395 */ t43358 = p15415->p15369->p15368->p15355->a26584; /* x141441 stalin.sc:18347:644397 */ /* x141439 stalin.sc:18347:644414 */ /* x141438 stalin.sc:18347:644415 */ /* x276373 stalin.sc:16167:562604 */ t43361 = "VALUE_OFFSET"; /* x141440 stalin.sc:18347:644431 */ t43362 = p15415->p15369->p15368->p15355->a26585; /* x141437 stalin.sc:18347:644398 */ t43363.tag = STRING_TYPE; t43363.value.string_type = t43361; t43359 = f14422(t43363, t43362); /* x141435 stalin.sc:18347:644390 */ t43360.tag = STRUCTURE_TYPE24753; t43360.value.structure_type24753 = t43359; t43352 = f13608(t43358, t43360); /* x141434 stalin.sc:18346:644346 */ /* x141433 stalin.sc:18346:644353 */ /* x141431 stalin.sc:18346:644373 */ t43356 = p15415->p15369->p15368->p15355->a26584; /* x141432 stalin.sc:18346:644375 */ t43357 = p15415->p15369->p15368->p15355->a26585; /* x141430 stalin.sc:18346:644354 */ t43355 = f14594(t43356, t43357); /* x141429 stalin.sc:18346:644347 */ t43351 = f13599(t43355); /* x141428 stalin.sc:18346:644333 */ t43354.tag = STRUCTURE_TYPE24753; t43354.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43354.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18346, 644332); out_of_memory_error();} t43354.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t43354.value.structure_type24753->s0.value.structure_type24753 = t43352; t43354.value.structure_type24753->s1.tag = NULL_TYPE; t43353 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t43353==NULL) {backtrace("stalin.sc", 18346, 644332); out_of_memory_error();} t43353->s0.tag = STRUCTURE_TYPE24753; t43353->s0.value.structure_type24753 = t43351; t43353->s1 = t43354; t43347 = f13556(t43353); /* x141618 stalin.sc:18348:644439 */ /* x141617 stalin.sc:18349:644449 */ /* x141511 stalin.sc:18358:644920 */ /* x141510 stalin.sc:18359:644943 */ /* x141454 stalin.sc:18360:644957 */ /* x141450 stalin.sc:18360:644960 */ /* x141449 stalin.sc:18360:644978 */ t43373 = p15415->p15369->p15368->p15355->a26585; /* x141448 stalin.sc:18360:644961 */ t43371 = f13917(t43373); /* x141453 stalin.sc:18360:644981 */ /* x141452 stalin.sc:18360:644999 */ t43374 = p15415->p15369->a26591; /* x141451 stalin.sc:18360:644982 */ t43372 = f13917(t43374); /* x268569 stalin.sc:18360:644958 */ switch (t43371.tag) {case FIXNUM_TYPE: switch (t43372.tag) {case FIXNUM_TYPE: if (!((t43371.value.fixnum_type)==(t43372.value.fixnum_type))) goto l6420; break; case FLONUM_TYPE: if (!((t43371.value.fixnum_type)==(t43372.value.flonum_type))) goto l6420; break; default: backtrace("stalin.sc", 18360, 644957); eql_error();} break; case FLONUM_TYPE: switch (t43372.tag) {case FIXNUM_TYPE: if (!((t43371.value.flonum_type)==(t43372.value.fixnum_type))) goto l6420; break; case FLONUM_TYPE: if (!((t43371.value.flonum_type)==(t43372.value.flonum_type))) goto l6420; break; default: backtrace("stalin.sc", 18360, 644957); eql_error();} break; default: backtrace("stalin.sc", 18360, 644957); eql_error();} /* x141460 */ /* x141459 */ t43409 = p15415->p15369->p15368->p15355; p15432 = t43409; /* x141458 stalin.sc:18361:645012 */ /* x141456 stalin.sc:18361:645030 */ t43410 = p15432->a26584; /* x141457 stalin.sc:18361:645032 */ t43411 = p15432->a26585; /* x141455 stalin.sc:18361:645013 */ t43412 = f14592(t43410, t43411); t43370.tag = STRUCTURE_TYPE24753; t43370.value.structure_type24753 = t43412; goto l6421; l6420: /* x141509 */ /* x141468 stalin.sc:18362:645044 */ /* x141464 stalin.sc:18362:645047 */ /* x141463 stalin.sc:18362:645065 */ t43377 = p15415->p15369->p15368->p15355->a26585; /* x141462 stalin.sc:18362:645048 */ t43375 = f13917(t43377); /* x141467 stalin.sc:18362:645068 */ /* x141466 stalin.sc:18362:645086 */ t43378 = p15415->p15369->a26591; /* x141465 stalin.sc:18362:645069 */ t43376 = f13917(t43378); /* x268568 stalin.sc:18362:645045 */ switch (t43375.tag) {case FIXNUM_TYPE: switch (t43376.tag) {case FIXNUM_TYPE: if (!((t43375.value.fixnum_type)<(t43376.value.fixnum_type))) goto l6423; break; case FLONUM_TYPE: if (!((t43375.value.fixnum_type)<(t43376.value.flonum_type))) goto l6423; break; default: backtrace("stalin.sc", 18362, 645044); lt_error();} break; case FLONUM_TYPE: switch (t43376.tag) {case FIXNUM_TYPE: if (!((t43375.value.flonum_type)<(t43376.value.fixnum_type))) goto l6423; break; case FLONUM_TYPE: if (!((t43375.value.flonum_type)<(t43376.value.flonum_type))) goto l6423; break; default: backtrace("stalin.sc", 18362, 645044); lt_error();} break; default: backtrace("stalin.sc", 18362, 645044); lt_error();} /* x141488 */ /* x141487 */ t43394 = p15415->p15369; p15433 = t43394; /* x141486 stalin.sc:18363:645099 */ /* x141475 stalin.sc:18363:645105 */ /* x141474 stalin.sc:18363:645129 */ /* x141472 stalin.sc:18363:645147 */ t43401 = p15433->p15368->p15355->a26584; /* x141473 stalin.sc:18363:645149 */ t43402 = p15433->p15368->p15355->a26585; /* x141471 stalin.sc:18363:645130 */ t43399 = f14592(t43401, t43402); /* x141470 stalin.sc:18363:645106 */ t43400.tag = STRUCTURE_TYPE24753; t43400.value.structure_type24753 = t43399; t43395 = f14425(t43400); /* x141485 stalin.sc:18364:645160 */ /* x141484 stalin.sc:18364:645170 */ /* x141480 stalin.sc:18364:645173 */ /* x141479 stalin.sc:18364:645191 */ t43407 = p15433->a26591; /* x141478 stalin.sc:18364:645174 */ t43405 = f13917(t43407); /* x141483 stalin.sc:18365:645201 */ /* x141482 stalin.sc:18365:645219 */ t43408 = p15433->p15368->p15355->a26585; /* x141481 stalin.sc:18365:645202 */ t43406 = f13917(t43408); /* x268567 stalin.sc:18364:645171 */ switch (t43405.tag) {case FIXNUM_TYPE: switch (t43406.tag) {case FIXNUM_TYPE: t43403.tag = FIXNUM_TYPE; t43403.value.fixnum_type = (t43405.value.fixnum_type)-(t43406.value.fixnum_type); break; case FLONUM_TYPE: t43403.tag = FLONUM_TYPE; t43403.value.flonum_type = (t43405.value.fixnum_type)-(t43406.value.flonum_type); break; default: backtrace("stalin.sc", 18364, 645170); minus_error();} break; case FLONUM_TYPE: switch (t43406.tag) {case FIXNUM_TYPE: t43403.tag = FLONUM_TYPE; t43403.value.flonum_type = (t43405.value.flonum_type)-(t43406.value.fixnum_type); break; case FLONUM_TYPE: t43403.tag = FLONUM_TYPE; t43403.value.flonum_type = (t43405.value.flonum_type)-(t43406.value.flonum_type); break; default: backtrace("stalin.sc", 18364, 645170); minus_error();} break; default: backtrace("stalin.sc", 18364, 645170); minus_error();} /* x141476 stalin.sc:18364:645161 */ t43404 = *((struct w49 *)(&t43403)); t43396 = f13530(t43404); /* x141469 stalin.sc:18363:645100 */ t43397.tag = STRUCTURE_TYPE24753; t43397.value.structure_type24753 = t43395; t43398.tag = STRING_TYPE; t43398.value.string_type = t43396; t43370 = f13623(t43397, t43398); goto l6424; l6423: /* x141508 */ /* x141507 */ t43379 = p15415->p15369; p15434 = t43379; /* x141506 stalin.sc:18367:645247 */ /* x141495 stalin.sc:18367:645253 */ /* x141494 stalin.sc:18367:645277 */ /* x141492 stalin.sc:18367:645295 */ t43386 = p15434->p15368->p15355->a26584; /* x141493 stalin.sc:18367:645297 */ t43387 = p15434->p15368->p15355->a26585; /* x141491 stalin.sc:18367:645278 */ t43384 = f14592(t43386, t43387); /* x141490 stalin.sc:18367:645254 */ t43385.tag = STRUCTURE_TYPE24753; t43385.value.structure_type24753 = t43384; t43380 = f14425(t43385); /* x141505 stalin.sc:18368:645308 */ /* x141504 stalin.sc:18368:645318 */ /* x141500 stalin.sc:18368:645321 */ /* x141499 stalin.sc:18368:645339 */ t43392 = p15434->p15368->p15355->a26585; /* x141498 stalin.sc:18368:645322 */ t43390 = f13917(t43392); /* x141503 stalin.sc:18369:645348 */ /* x141502 stalin.sc:18369:645366 */ t43393 = p15434->a26591; /* x141501 stalin.sc:18369:645349 */ t43391 = f13917(t43393); /* x268566 stalin.sc:18368:645319 */ switch (t43390.tag) {case FIXNUM_TYPE: switch (t43391.tag) {case FIXNUM_TYPE: t43388.tag = FIXNUM_TYPE; t43388.value.fixnum_type = (t43390.value.fixnum_type)-(t43391.value.fixnum_type); break; case FLONUM_TYPE: t43388.tag = FLONUM_TYPE; t43388.value.flonum_type = (t43390.value.fixnum_type)-(t43391.value.flonum_type); break; default: backtrace("stalin.sc", 18368, 645318); minus_error();} break; case FLONUM_TYPE: switch (t43391.tag) {case FIXNUM_TYPE: t43388.tag = FLONUM_TYPE; t43388.value.flonum_type = (t43390.value.flonum_type)-(t43391.value.fixnum_type); break; case FLONUM_TYPE: t43388.tag = FLONUM_TYPE; t43388.value.flonum_type = (t43390.value.flonum_type)-(t43391.value.flonum_type); break; default: backtrace("stalin.sc", 18368, 645318); minus_error();} break; default: backtrace("stalin.sc", 18368, 645318); minus_error();} /* x141496 stalin.sc:18368:645309 */ t43389 = *((struct w49 *)(&t43388)); t43381 = f13530(t43389); /* x141489 stalin.sc:18367:645248 */ t43382.tag = STRUCTURE_TYPE24753; t43382.value.structure_type24753 = t43380; t43383.tag = STRING_TYPE; t43383.value.string_type = t43381; t43370 = f13624(t43382, t43383); l6424: l6421: /* x141446 stalin.sc:18358:644921 */ t43366 = f14423(t43370); /* x141616 stalin.sc:18370:645381 */ /* x141611 stalin.sc:18372:645458 */ /* x141610 stalin.sc:18392:645995 */ t43419 = "\""; /* x141609 stalin.sc:18374:645483 */ /* x141516 stalin.sc:18375:645499 */ /* x141607 stalin.sc:18376:645521 */ /* x141606 stalin.sc:18376:645534 */ /* x141605 stalin.sc:18379:645617 */ /* x141603 stalin.sc:18380:645634 */ /* x141604 stalin.sc:18382:645696 */ t43448 = p15415->a26592; /* x141591 stalin.sc:18379:645618 */ t43449 = NATIVE_PROCEDURE_TYPE20569; t43450 = *((struct w49 *)(&t43448)); t43444 = f1218(t43449, t43450); /* x141590 stalin.sc:18376:645539 */ t43443 = p15415->p15369; /* x141579 stalin.sc:18376:645535 */ t43445.tag = NATIVE_PROCEDURE_TYPE20570; t43445.value.native_procedure_type20570 = t43443; t43446 = *((struct w49 *)(&t43444)); t43447 = (struct structure_type24753 *)NULL_TYPE; t43427 = f27731(t43445, t43446, t43447); /* x141578 */ a26623 = t43427; e15435 = (struct p15435 *)alloca(sizeof(struct p15435)); if (e15435==NULL) {backtrace_internal("[inside MOVE-GENERAL 15415]"); out_of_memory_error();} e15435->a26623 = a26623; /* x141577 stalin.sc:18383:645712 */ /* x141565 stalin.sc:18384:645722 */ t43428 = e15435; /* x141576 stalin.sc:18390:645937 */ /* x141574 stalin.sc:18390:645940 */ /* x141568 stalin.sc:18390:645948 */ /* x141572 stalin.sc:18390:645952 */ /* x141571 stalin.sc:18390:645961 */ t43439 = e15435->a26623; /* x141570 stalin.sc:18390:645957 */ /* x141569 stalin.sc:18390:645953 */ t43440.tag = NATIVE_PROCEDURE_TYPE494; /* MOVE: branching squeezed to general */ if (t43439>=((struct structure_type24753 *)VALUE_OFFSET)) {t43441.tag = STRUCTURE_TYPE24753; t43441.value.structure_type24753 = t43439;} else t43441.tag = (unsigned)t43439; t43442 = (struct structure_type24753 *)NULL_TYPE; t43434 = f27731(t43440, t43441, t43442); /* x141573 stalin.sc:18390:645968 */ t43435 = 0; /* x141567 stalin.sc:18390:645941 */ t43436 = NATIVE_PROCEDURE_TYPE416; /* MOVE: branching squeezed to general */ if (t43434>=((struct structure_type24753 *)VALUE_OFFSET)) {t43437.tag = STRUCTURE_TYPE24753; t43437.value.structure_type24753 = t43434;} else t43437.tag = (unsigned)t43434; t43438.tag = FIXNUM_TYPE; t43438.value.fixnum_type = t43435; t43432 = f1006(t43436, t43437, t43438); /* x141575 stalin.sc:18390:645971 */ t43433 = 1; /* x268558 stalin.sc:18390:645938 */ switch (t43432.tag) {case FIXNUM_TYPE: t43429.tag = FIXNUM_TYPE; t43429.value.fixnum_type = (t43432.value.fixnum_type)+t43433; break; case FLONUM_TYPE: t43429.tag = FLONUM_TYPE; t43429.value.flonum_type = (t43432.value.flonum_type)+t43433; break; default: backtrace("stalin.sc", 18390, 645937); plus_error();} /* x141517 stalin.sc:18383:645713 */ t43430.tag = NATIVE_PROCEDURE_TYPE20572; t43430.value.native_procedure_type20572 = t43428; t43431 = *((struct w49 *)(&t43429)); t43422 = f1149(t43430, t43431); /* x141608 stalin.sc:18391:645984 */ t43423 = ""; /* x141515 stalin.sc:18374:645484 */ t43424 = NATIVE_PROCEDURE_TYPE329; t43425 = *((struct w49 *)(&t43422)); t43426.tag = STRING_TYPE; t43426.value.string_type = t43423; t43418 = f1006(t43424, t43425, t43426); /* x141514 stalin.sc:18373:645471 */ t43417 = "\""; /* x141513 stalin.sc:18372:645459 */ t43421.tag = STRUCTURE_TYPE24753; t43421.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43421.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18372, 645458); out_of_memory_error();} t43421.value.structure_type24753->s0.tag = STRING_TYPE; t43421.value.structure_type24753->s0.value.string_type = t43419; t43421.value.structure_type24753->s1.tag = NULL_TYPE; t43420.tag = STRUCTURE_TYPE24753; t43420.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43420.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18372, 645458); out_of_memory_error();} t43420.value.structure_type24753->s0 = t43418; t43420.value.structure_type24753->s1 = t43421; a35126 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35126==NULL) {backtrace("stalin.sc", 18372, 645458); out_of_memory_error();} a35126->s0.tag = STRING_TYPE; a35126->s0.value.string_type = t43417; a35126->s1 = t43420; /* x272259 */ t43413 = a35126; /* x141615 stalin.sc:18393:646007 */ /* x141613 stalin.sc:18393:646027 */ t43451 = p15415->p15369->p15368->p15355->a26584; /* x141614 stalin.sc:18393:646029 */ t43452 = p15415->p15369->p15368->p15355->a26585; /* x141612 stalin.sc:18393:646008 */ t43414 = f14594(t43451, t43452); /* x141512 stalin.sc:18370:645382 */ t43415.tag = STRUCTURE_TYPE24753; t43415.value.structure_type24753 = t43413; t43416.tag = STRUCTURE_TYPE24753; t43416.value.structure_type24753 = t43414; t43367 = f13540(t43415, t43416); /* x141445 stalin.sc:18349:644450 */ t43368.tag = STRUCTURE_TYPE24753; t43368.value.structure_type24753 = t43366; t43369.tag = STRUCTURE_TYPE24753; t43369.value.structure_type24753 = t43367; t43365 = f13609(t43368, t43369); /* x141444 stalin.sc:18348:644440 */ t43364 = p15415->p15369->p15368; t43348 = f15488(t43364, t43365); /* x141621 stalin.sc:18394:646038 */ /* x141620 stalin.sc:18394:646044 */ t43454 = p15415->p15369->p15368->p15355->a26584; /* x141619 stalin.sc:18394:646039 */ t43453 = p15415->p15369->p15368; t43349 = f15488(t43453, t43454); /* x141622 stalin.sc:18395:646050 */ /* x141427 stalin.sc:18345:644324 */ t43350 = TRUE_TYPE; t43342 = f13672(t43347, t43348, t43349, t43350); /* x141426 stalin.sc:18344:644273 */ /* x141425 stalin.sc:18344:644281 */ t43346 = "MOVE: branching squished to squished"; /* x141424 stalin.sc:18344:644274 */ t43341 = f13634(t43346); /* x141423 stalin.sc:18343:644255 */ t43345.tag = STRUCTURE_TYPE24753; t43345.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43345.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18343, 644254); out_of_memory_error();} t43345.value.structure_type24753->s0 = t43342; t43345.value.structure_type24753->s1.tag = NULL_TYPE; a41878 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41878==NULL) {backtrace("stalin.sc", 18343, 644254); out_of_memory_error();} a41878->s0 = t43341; a41878->s1 = t43345; /* x301624 stalin.sc:14400:506485 */ /* x301623 stalin.sc:14400:506503 */ t43343 = a41878; /* x301622 stalin.sc:14400:506486 */ t43344.tag = STRUCTURE_TYPE24753; t43344.value.structure_type24753 = t43343; return f13492(t43344); l6407: /* x141765 */ /* x141764 */ t43295 = p15399; p15452 = t43295; /* x141763 stalin.sc:18396:646066 */ /* x141762 stalin.sc:18402:646273 */ /* x141727 stalin.sc:18403:646300 */ t43309 = p15452; /* x141728 stalin.sc:18404:646350 */ t43310 = p15452->p15369->p15368->p15355->a26585; /* x141729 stalin.sc:18405:646354 */ t43311 = p15452->p15369->p15368->p15355->a26583; /* x141730 stalin.sc:18406:646358 */ t43312 = p15452->p15369->p15368->p15355->a26584; /* x141761 stalin.sc:18407:646362 */ t43313 = p15452->p15369; /* x141718 stalin.sc:18402:646274 */ t43314 = ((unsigned)t43309)+1; t43315 = ((unsigned)t43313)+1; t43297 = f14696(t43314, t43310, t43311, t43312, t43315); /* x141717 stalin.sc:18397:646091 */ /* x141711 stalin.sc:18397:646095 */ /* x141710 stalin.sc:18397:646099 */ /* x141709 stalin.sc:18398:646164 */ t43301 = p15452->a26592; /* x141708 stalin.sc:18397:646106 */ /* x141696 stalin.sc:18397:646100 */ t43302.tag = NATIVE_PROCEDURE_TYPE20556; t43303 = *((struct w49 *)(&t43301)); t43304 = (struct structure_type24753 *)NULL_TYPE; if (!(f1061(t43302, t43303, t43304)==FALSE_TYPE)) goto l6408; p15453 = p15452; /* x141693 */ /* x141692 stalin.sc:18399:646184 */ /* x141691 stalin.sc:18399:646190 */ t43306 = p15453->a26592; /* x141690 stalin.sc:18399:646185 */ a35457 = t43306; /* x273185 */ /* x273184 */ t43307 = a35457; /* x273183 */ if (!((t43307.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29606]"); structure_ref_error();} t43305 = t43307.value.structure_type24753->s1; /* x268555 stalin.sc:18399:646178 */ if (!((t43305.tag)==NULL_TYPE)) goto l6409; l6408: /* x141713 stalin.sc:18400:646201 */ /* x141712 stalin.sc:18400:646202 */ /* x276731 stalin.sc:14693:514793 */ t43296.tag = STRING_TYPE; t43296.value.string_type = ""; goto l6410; l6409: /* x141716 stalin.sc:18401:646215 */ /* x141715 stalin.sc:18401:646223 */ t43308 = "MOVE: dispatching general to squished"; /* x141714 stalin.sc:18401:646216 */ t43296 = f13634(t43308); l6410: /* x141686 stalin.sc:18396:646067 */ t43300.tag = STRUCTURE_TYPE24753; t43300.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43300.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18396, 646066); out_of_memory_error();} t43300.value.structure_type24753->s0 = t43297; t43300.value.structure_type24753->s1.tag = NULL_TYPE; a41879 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41879==NULL) {backtrace("stalin.sc", 18396, 646066); out_of_memory_error();} a41879->s0 = t43296; a41879->s1 = t43300; /* x301628 stalin.sc:14400:506485 */ /* x301627 stalin.sc:14400:506503 */ t43298 = a41879; /* x301626 stalin.sc:14400:506486 */ t43299.tag = STRUCTURE_TYPE24753; t43299.value.structure_type24753 = t43298; return f13492(t43299); l6365: /* x142314 */ /* x142313 */ t42998 = p15373; p15460 = t42998; /* x142312 stalin.sc:18415:646679 */ /* x141775 stalin.sc:18416:646687 */ /* x141774 stalin.sc:18416:646694 */ t42999 = p15460->p15369->p15368->p15355->a26585; /* x141773 stalin.sc:18416:646688 */ if (f8151(t42999)==FALSE_TYPE) goto l6367; /* x141798 */ /* x141797 */ t43270 = p15460->p15369; p15461 = t43270; /* x141796 stalin.sc:18417:646699 */ /* x141795 stalin.sc:18419:646797 */ /* x141794 stalin.sc:18419:646813 */ t43288 = p15461->p15368->p15355->a26583; /* x141793 stalin.sc:18419:646798 */ t43273 = f15342(t43288); /* x141792 stalin.sc:18418:646743 */ /* x141786 stalin.sc:18418:646749 */ /* x141784 stalin.sc:18418:646756 */ t43284 = p15461->p15368->a26590; /* x141785 stalin.sc:18418:646759 */ t43285 = p15461->a26591; /* x141783 stalin.sc:18418:646750 */ t43281 = f14478(t43284, t43285); /* x141791 stalin.sc:18418:646763 */ /* x141790 stalin.sc:18418:646775 */ /* x141789 stalin.sc:18418:646787 */ t43287 = p15461->p15368->p15355->a26585; /* x141788 stalin.sc:18418:646776 */ t43286 = f8153(t43287); /* x141787 stalin.sc:18418:646764 */ t43282 = f14433(t43286); /* x141782 stalin.sc:18418:646744 */ t43283 = *((struct w49 *)(&t43282)); t43272 = f13637(t43281, t43283); /* x141781 stalin.sc:18417:646716 */ /* x141778 stalin.sc:18417:646728 */ t43278 = p15461->p15368->a26590; /* x141779 stalin.sc:18417:646731 */ /* x141780 stalin.sc:18417:646734 */ t43279 = p15461->a26591; /* x141777 stalin.sc:18417:646717 */ t43280.tag = FALSE_TYPE; t43271 = f15345(t43278, t43280, t43279); /* x141776 stalin.sc:18417:646700 */ t43277.tag = STRUCTURE_TYPE24753; t43277.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43277.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18417, 646699); out_of_memory_error();} t43277.value.structure_type24753->s0 = t43273; t43277.value.structure_type24753->s1.tag = NULL_TYPE; t43276.tag = STRUCTURE_TYPE24753; t43276.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43276.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18417, 646699); out_of_memory_error();} t43276.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t43276.value.structure_type24753->s0.value.structure_type24753 = t43272; t43276.value.structure_type24753->s1 = t43277; a41880 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41880==NULL) {backtrace("stalin.sc", 18417, 646699); out_of_memory_error();} a41880->s0 = t43271; a41880->s1 = t43276; /* x301632 stalin.sc:14400:506485 */ /* x301631 stalin.sc:14400:506503 */ t43274 = a41880; /* x301630 stalin.sc:14400:506486 */ t43275.tag = STRUCTURE_TYPE24753; t43275.value.structure_type24753 = t43274; return f13492(t43275); l6367: /* x142311 */ /* x141801 stalin.sc:18420:646820 */ /* x141800 stalin.sc:18420:646834 */ t43000 = p15460->p15369->p15368->p15355->a26585; /* x141799 stalin.sc:18420:646821 */ if (f8148(t43000)==FALSE_TYPE) goto l6369; /* x141879 */ /* x141878 */ t43209 = p15460->p15369; p15462 = t43209; /* x141877 stalin.sc:18421:646839 */ /* x141876 stalin.sc:18443:647846 */ /* x141875 stalin.sc:18443:647862 */ t43269 = p15462->p15368->p15355->a26583; /* x141874 stalin.sc:18443:647847 */ t43211 = f15342(t43269); /* x141873 stalin.sc:18422:646859 */ /* x141807 stalin.sc:18422:646863 */ /* x141806 stalin.sc:18422:646875 */ /* x141805 stalin.sc:18422:646887 */ t43216 = p15462->p15368->p15355->a26585; /* x141804 stalin.sc:18422:646876 */ t43215 = f8153(t43216); /* x141803 stalin.sc:18422:646864 */ if (f7682(t43215)==FALSE_TYPE) goto l6396; /* x141836 stalin.sc:18432:647440 */ /* x141835 stalin.sc:18434:647495 */ /* x141818 stalin.sc:18434:647501 */ /* x141816 stalin.sc:18434:647508 */ t43255 = p15462->p15368->a26590; /* x141817 stalin.sc:18434:647511 */ t43256 = p15462->a26591; /* x141815 stalin.sc:18434:647502 */ t43253 = f14478(t43255, t43256); /* x141834 stalin.sc:18435:647522 */ /* x141830 stalin.sc:18435:647528 */ /* x141829 stalin.sc:18435:647540 */ /* x141828 stalin.sc:18436:647567 */ /* x141823 stalin.sc:18436:647576 */ t43264 = p15462->p15368->p15355->a26584; /* x141826 stalin.sc:18436:647578 */ /* x141825 stalin.sc:18436:647590 */ t43267 = p15462->p15368->p15355->a26585; /* x141824 stalin.sc:18436:647579 */ t43265 = f8153(t43267); /* x141827 stalin.sc:18436:647593 */ t43266 = p15462->p15368->p15355->a26585; /* x141822 stalin.sc:18436:647568 */ t43263 = f14485(t43264, t43265, t43266); /* x141821 stalin.sc:18435:647541 */ t43261 = f13548(t43263); /* x141820 stalin.sc:18435:647529 */ t43262.tag = STRUCTURE_TYPE24753; t43262.value.structure_type24753 = t43261; t43257 = f14427(t43262); /* x141833 stalin.sc:18437:647604 */ /* x141832 stalin.sc:18437:647614 */ t43268 = a1226; /* x141831 stalin.sc:18437:647605 */ t43258 = f13530(t43268); /* x141819 stalin.sc:18435:647523 */ t43259.tag = STRUCTURE_TYPE24753; t43259.value.structure_type24753 = t43257; t43260.tag = STRING_TYPE; t43260.value.string_type = t43258; t43254 = f13623(t43259, t43260); /* x141814 stalin.sc:18434:647496 */ t43246 = f13637(t43253, t43254); /* x141813 stalin.sc:18433:647465 */ /* x141810 stalin.sc:18433:647477 */ t43250 = p15462->p15368->a26590; /* x141811 stalin.sc:18433:647480 */ /* x141812 stalin.sc:18433:647483 */ t43251 = p15462->a26591; /* x141809 stalin.sc:18433:647466 */ t43252.tag = FALSE_TYPE; t43245 = f15345(t43250, t43252, t43251); /* x141808 stalin.sc:18432:647441 */ t43249.tag = STRUCTURE_TYPE24753; t43249.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43249.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18432, 647440); out_of_memory_error();} t43249.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t43249.value.structure_type24753->s0.value.structure_type24753 = t43246; t43249.value.structure_type24753->s1.tag = NULL_TYPE; a41811 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41811==NULL) {backtrace("stalin.sc", 18432, 647440); out_of_memory_error();} a41811->s0 = t43245; a41811->s1 = t43249; /* x301356 stalin.sc:14400:506485 */ /* x301355 stalin.sc:14400:506503 */ t43247 = a41811; /* x301354 stalin.sc:14400:506486 */ t43248.tag = STRUCTURE_TYPE24753; t43248.value.structure_type24753 = t43247; t43210 = f13492(t43248); goto l6397; l6396: /* x141872 stalin.sc:18438:647643 */ /* x141871 stalin.sc:18441:647767 */ /* x141863 stalin.sc:18441:647773 */ /* x141858 stalin.sc:18441:647782 */ t43237 = p15462->p15368->a26590; /* x141861 stalin.sc:18441:647785 */ /* x141860 stalin.sc:18441:647797 */ t43240 = p15462->p15368->p15355->a26585; /* x141859 stalin.sc:18441:647786 */ t43238 = f8153(t43240); /* x141862 stalin.sc:18441:647800 */ t43239 = p15462->a26591; /* x141857 stalin.sc:18441:647774 */ t43235 = f14485(t43237, t43238, t43239); /* x141870 stalin.sc:18442:647811 */ /* x141865 stalin.sc:18442:647820 */ t43241 = p15462->p15368->p15355->a26584; /* x141868 stalin.sc:18442:647822 */ /* x141867 stalin.sc:18442:647834 */ t43244 = p15462->p15368->p15355->a26585; /* x141866 stalin.sc:18442:647823 */ t43242 = f8153(t43244); /* x141869 stalin.sc:18442:647837 */ t43243 = p15462->p15368->p15355->a26585; /* x141864 stalin.sc:18442:647812 */ t43236 = f14485(t43241, t43242, t43243); /* x141856 stalin.sc:18441:647768 */ t43219 = f13637(t43235, t43236); /* x141855 stalin.sc:18440:647710 */ /* x141849 stalin.sc:18440:647716 */ /* x141847 stalin.sc:18440:647723 */ t43231 = p15462->p15368->a26590; /* x141848 stalin.sc:18440:647726 */ t43232 = p15462->a26591; /* x141846 stalin.sc:18440:647717 */ t43228 = f14478(t43231, t43232); /* x141854 stalin.sc:18440:647730 */ /* x141853 stalin.sc:18440:647742 */ /* x141852 stalin.sc:18440:647754 */ t43234 = p15462->p15368->p15355->a26585; /* x141851 stalin.sc:18440:647743 */ t43233 = f8153(t43234); /* x141850 stalin.sc:18440:647731 */ t43229 = f14433(t43233); /* x141845 stalin.sc:18440:647711 */ t43230 = *((struct w49 *)(&t43229)); t43218 = f13637(t43228, t43230); /* x141844 stalin.sc:18439:647668 */ /* x141839 stalin.sc:18439:647680 */ t43224 = p15462->p15368->a26590; /* x141842 stalin.sc:18439:647683 */ /* x141841 stalin.sc:18439:647695 */ t43227 = p15462->p15368->p15355->a26585; /* x141840 stalin.sc:18439:647684 */ t43225 = f8153(t43227); /* x141843 stalin.sc:18439:647698 */ t43226 = p15462->a26591; /* x141838 stalin.sc:18439:647669 */ t43217 = f15345(t43224, t43225, t43226); /* x141837 stalin.sc:18438:647644 */ t43223.tag = STRUCTURE_TYPE24753; t43223.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43223.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18438, 647643); out_of_memory_error();} t43223.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t43223.value.structure_type24753->s0.value.structure_type24753 = t43219; t43223.value.structure_type24753->s1.tag = NULL_TYPE; t43222.tag = STRUCTURE_TYPE24753; t43222.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43222.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18438, 647643); out_of_memory_error();} t43222.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t43222.value.structure_type24753->s0.value.structure_type24753 = t43218; t43222.value.structure_type24753->s1 = t43223; a41813 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41813==NULL) {backtrace("stalin.sc", 18438, 647643); out_of_memory_error();} a41813->s0 = t43217; a41813->s1 = t43222; /* x301364 stalin.sc:14400:506485 */ /* x301363 stalin.sc:14400:506503 */ t43220 = a41813; /* x301362 stalin.sc:14400:506486 */ t43221.tag = STRUCTURE_TYPE24753; t43221.value.structure_type24753 = t43220; t43210 = f13492(t43221); l6397: /* x141802 stalin.sc:18421:646840 */ t43214.tag = STRUCTURE_TYPE24753; t43214.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43214.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18421, 646839); out_of_memory_error();} t43214.value.structure_type24753->s0 = t43211; t43214.value.structure_type24753->s1.tag = NULL_TYPE; a41812 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41812==NULL) {backtrace("stalin.sc", 18421, 646839); out_of_memory_error();} a41812->s0 = t43210; a41812->s1 = t43214; /* x301360 stalin.sc:14400:506485 */ /* x301359 stalin.sc:14400:506503 */ t43212 = a41812; /* x301358 stalin.sc:14400:506486 */ t43213.tag = STRUCTURE_TYPE24753; t43213.value.structure_type24753 = t43212; return f13492(t43213); l6369: /* x142310 */ /* x141882 stalin.sc:18444:647869 */ /* x141881 stalin.sc:18444:647880 */ t43001 = p15460->p15369->p15368->p15355->a26585; /* x141880 stalin.sc:18444:647870 */ if (f13798(t43001)==FALSE_TYPE) goto l6371; /* x141904 */ /* x141903 */ t43191 = p15460->p15369; p15463 = t43191; /* x141902 stalin.sc:18445:647885 */ /* x141901 stalin.sc:18447:647967 */ /* x141900 stalin.sc:18447:647983 */ t43208 = p15463->p15368->p15355->a26583; /* x141899 stalin.sc:18447:647968 */ t43194 = f15342(t43208); /* x141898 stalin.sc:18446:647929 */ /* x141893 stalin.sc:18446:647935 */ /* x141891 stalin.sc:18446:647942 */ t43204 = p15463->p15368->a26590; /* x141892 stalin.sc:18446:647945 */ t43205 = p15463->a26591; /* x141890 stalin.sc:18446:647936 */ t43202 = f14478(t43204, t43205); /* x141897 stalin.sc:18446:647949 */ /* x141895 stalin.sc:18446:647956 */ t43206 = p15463->p15368->p15355->a26584; /* x141896 stalin.sc:18446:647958 */ t43207 = p15463->p15368->p15355->a26585; /* x141894 stalin.sc:18446:647950 */ t43203 = f14478(t43206, t43207); /* x141889 stalin.sc:18446:647930 */ t43193 = f13637(t43202, t43203); /* x141888 stalin.sc:18445:647902 */ /* x141885 stalin.sc:18445:647914 */ t43199 = p15463->p15368->a26590; /* x141886 stalin.sc:18445:647917 */ /* x141887 stalin.sc:18445:647920 */ t43200 = p15463->a26591; /* x141884 stalin.sc:18445:647903 */ t43201.tag = FALSE_TYPE; t43192 = f15345(t43199, t43201, t43200); /* x141883 stalin.sc:18445:647886 */ t43198.tag = STRUCTURE_TYPE24753; t43198.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43198.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18445, 647885); out_of_memory_error();} t43198.value.structure_type24753->s0 = t43194; t43198.value.structure_type24753->s1.tag = NULL_TYPE; t43197.tag = STRUCTURE_TYPE24753; t43197.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43197.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18445, 647885); out_of_memory_error();} t43197.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t43197.value.structure_type24753->s0.value.structure_type24753 = t43193; t43197.value.structure_type24753->s1 = t43198; a41881 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41881==NULL) {backtrace("stalin.sc", 18445, 647885); out_of_memory_error();} a41881->s0 = t43192; a41881->s1 = t43197; /* x301636 stalin.sc:14400:506485 */ /* x301635 stalin.sc:14400:506503 */ t43195 = a41881; /* x301634 stalin.sc:14400:506486 */ t43196.tag = STRUCTURE_TYPE24753; t43196.value.structure_type24753 = t43195; return f13492(t43196); l6371: /* x142309 */ /* x141907 stalin.sc:18448:647990 */ /* x141906 stalin.sc:18448:648001 */ t43002 = p15460->p15369->p15368->p15355->a26585; /* x141905 stalin.sc:18448:647991 */ if (f13859(t43002)==FALSE_TYPE) goto l6373; /* x142056 */ /* x142055 */ t43082 = p15460; p15464 = t43082; /* x142054 stalin.sc:18449:648006 */ /* x142053 stalin.sc:18470:648867 */ /* x142052 stalin.sc:18470:648883 */ t43190 = p15464->p15369->p15368->p15355->a26583; /* x142051 stalin.sc:18470:648868 */ t43084 = f15342(t43190); /* x142050 stalin.sc:18450:648026 */ /* x141923 stalin.sc:18450:648030 */ /* x141922 stalin.sc:18450:648086 */ t43088 = p15464->a26592; /* x141921 stalin.sc:18450:648037 */ /* x141909 stalin.sc:18450:648031 */ t43089.tag = NATIVE_PROCEDURE_TYPE20544; t43090 = *((struct w49 *)(&t43088)); t43091 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t43089, t43090, t43091)==FALSE_TYPE) goto l6390; /* x141940 stalin.sc:18451:648097 */ /* x141939 stalin.sc:18453:648152 */ /* x141934 stalin.sc:18453:648158 */ /* x141932 stalin.sc:18453:648165 */ t43186 = p15464->p15369->p15368->a26590; /* x141933 stalin.sc:18453:648168 */ t43187 = p15464->p15369->a26591; /* x141931 stalin.sc:18453:648159 */ t43183 = f14478(t43186, t43187); /* x141938 stalin.sc:18453:648172 */ /* x141936 stalin.sc:18453:648194 */ t43188 = p15464->p15369->p15368->p15355->a26584; /* x141937 stalin.sc:18453:648196 */ t43189 = p15464->p15369->p15368->p15355->a26585; /* x141935 stalin.sc:18453:648173 */ t43184 = f14430(t43188, t43189); /* x141930 stalin.sc:18453:648153 */ t43185.tag = STRUCTURE_TYPE24753; t43185.value.structure_type24753 = t43184; t43176 = f13637(t43183, t43185); /* x141929 stalin.sc:18452:648122 */ /* x141926 stalin.sc:18452:648134 */ t43180 = p15464->p15369->p15368->a26590; /* x141927 stalin.sc:18452:648137 */ /* x141928 stalin.sc:18452:648140 */ t43181 = p15464->p15369->a26591; /* x141925 stalin.sc:18452:648123 */ t43182.tag = FALSE_TYPE; t43175 = f15345(t43180, t43182, t43181); /* x141924 stalin.sc:18451:648098 */ t43179.tag = STRUCTURE_TYPE24753; t43179.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43179.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18451, 648097); out_of_memory_error();} t43179.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t43179.value.structure_type24753->s0.value.structure_type24753 = t43176; t43179.value.structure_type24753->s1.tag = NULL_TYPE; a41883 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41883==NULL) {backtrace("stalin.sc", 18451, 648097); out_of_memory_error();} a41883->s0 = t43175; a41883->s1 = t43179; /* x301644 stalin.sc:14400:506485 */ /* x301643 stalin.sc:14400:506503 */ t43177 = a41883; /* x301642 stalin.sc:14400:506486 */ t43178.tag = STRUCTURE_TYPE24753; t43178.value.structure_type24753 = t43177; t43083 = f13492(t43178); goto l6391; l6390: /* x142049 stalin.sc:18454:648208 */ /* x141955 stalin.sc:18454:648212 */ /* x141954 stalin.sc:18454:648267 */ t43092 = p15464->a26592; /* x141953 stalin.sc:18454:648218 */ /* x141941 stalin.sc:18454:648213 */ t43093.tag = NATIVE_PROCEDURE_TYPE20545; t43094 = *((struct w49 *)(&t43092)); t43095 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t43093, t43094, t43095).tag)==FALSE_TYPE) goto l6393; /* x142018 stalin.sc:18455:648275 */ /* x142017 stalin.sc:18457:648349 */ /* x141968 stalin.sc:18457:648355 */ /* x141962 stalin.sc:18457:648361 */ t43130 = p15464->p15369->p15368->p15355->a26584; /* x141967 stalin.sc:18457:648363 */ /* x141965 stalin.sc:18457:648380 */ /* x141964 stalin.sc:18457:648381 */ /* x276375 stalin.sc:16167:562604 */ t43133 = "VALUE_OFFSET"; /* x141966 stalin.sc:18457:648397 */ t43134 = p15464->p15369->p15368->p15355->a26585; /* x141963 stalin.sc:18457:648364 */ t43135.tag = STRING_TYPE; t43135.value.string_type = t43133; t43131 = f14422(t43135, t43134); /* x141961 stalin.sc:18457:648356 */ t43132.tag = STRUCTURE_TYPE24753; t43132.value.structure_type24753 = t43131; t43126 = f13608(t43130, t43132); /* x141998 stalin.sc:18458:648405 */ /* x141997 stalin.sc:18461:648530 */ /* x141995 stalin.sc:18461:648536 */ /* x141990 stalin.sc:18461:648545 */ t43156 = p15464->p15369->p15368->a26590; /* x141993 stalin.sc:18461:648548 */ /* x141992 stalin.sc:18461:648565 */ t43159 = p15464->p15369->p15368->p15355->a26585; /* x141991 stalin.sc:18461:648549 */ t43157 = f13854(t43159); /* x141994 stalin.sc:18461:648568 */ t43158 = p15464->p15369->a26591; /* x141989 stalin.sc:18461:648537 */ t43154 = f14485(t43156, t43157, t43158); /* x141996 stalin.sc:18461:648572 */ t43155 = p15464->p15369->p15368->p15355->a26584; /* x141988 stalin.sc:18461:648531 */ t43138 = f13637(t43154, t43155); /* x141987 stalin.sc:18460:648471 */ /* x141981 stalin.sc:18460:648477 */ /* x141979 stalin.sc:18460:648484 */ t43150 = p15464->p15369->p15368->a26590; /* x141980 stalin.sc:18460:648487 */ t43151 = p15464->p15369->a26591; /* x141978 stalin.sc:18460:648478 */ t43147 = f14478(t43150, t43151); /* x141986 stalin.sc:18460:648491 */ /* x141985 stalin.sc:18460:648503 */ /* x141984 stalin.sc:18460:648520 */ t43153 = p15464->p15369->p15368->p15355->a26585; /* x141983 stalin.sc:18460:648504 */ t43152 = f13854(t43153); /* x141982 stalin.sc:18460:648492 */ t43148 = f14433(t43152); /* x141977 stalin.sc:18460:648472 */ t43149 = *((struct w49 *)(&t43148)); t43137 = f13637(t43147, t43149); /* x141976 stalin.sc:18459:648427 */ /* x141971 stalin.sc:18459:648439 */ t43143 = p15464->p15369->p15368->a26590; /* x141974 stalin.sc:18459:648442 */ /* x141973 stalin.sc:18459:648459 */ t43146 = p15464->p15369->p15368->p15355->a26585; /* x141972 stalin.sc:18459:648443 */ t43144 = f13854(t43146); /* x141975 stalin.sc:18459:648462 */ t43145 = p15464->p15369->a26591; /* x141970 stalin.sc:18459:648428 */ t43136 = f15345(t43143, t43144, t43145); /* x141969 stalin.sc:18458:648406 */ t43142.tag = STRUCTURE_TYPE24753; t43142.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43142.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18458, 648405); out_of_memory_error();} t43142.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t43142.value.structure_type24753->s0.value.structure_type24753 = t43138; t43142.value.structure_type24753->s1.tag = NULL_TYPE; t43141.tag = STRUCTURE_TYPE24753; t43141.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43141.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18458, 648405); out_of_memory_error();} t43141.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t43141.value.structure_type24753->s0.value.structure_type24753 = t43137; t43141.value.structure_type24753->s1 = t43142; a41815 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41815==NULL) {backtrace("stalin.sc", 18458, 648405); out_of_memory_error();} a41815->s0 = t43136; a41815->s1 = t43141; /* x301372 stalin.sc:14400:506485 */ /* x301371 stalin.sc:14400:506503 */ t43139 = a41815; /* x301370 stalin.sc:14400:506486 */ t43140.tag = STRUCTURE_TYPE24753; t43140.value.structure_type24753 = t43139; t43127 = f13492(t43140); /* x142015 stalin.sc:18462:648580 */ /* x142014 stalin.sc:18464:648629 */ /* x142009 stalin.sc:18464:648635 */ /* x142007 stalin.sc:18464:648642 */ t43171 = p15464->p15369->p15368->a26590; /* x142008 stalin.sc:18464:648645 */ t43172 = p15464->p15369->a26591; /* x142006 stalin.sc:18464:648636 */ t43168 = f14478(t43171, t43172); /* x142013 stalin.sc:18464:648649 */ /* x142011 stalin.sc:18464:648671 */ t43173 = p15464->p15369->p15368->p15355->a26584; /* x142012 stalin.sc:18464:648673 */ t43174 = p15464->p15369->p15368->p15355->a26585; /* x142010 stalin.sc:18464:648650 */ t43169 = f14430(t43173, t43174); /* x142005 stalin.sc:18464:648630 */ t43170.tag = STRUCTURE_TYPE24753; t43170.value.structure_type24753 = t43169; t43161 = f13637(t43168, t43170); /* x142004 stalin.sc:18463:648602 */ /* x142001 stalin.sc:18463:648614 */ t43165 = p15464->p15369->p15368->a26590; /* x142002 stalin.sc:18463:648617 */ /* x142003 stalin.sc:18463:648620 */ t43166 = p15464->p15369->a26591; /* x142000 stalin.sc:18463:648603 */ t43167.tag = FALSE_TYPE; t43160 = f15345(t43165, t43167, t43166); /* x141999 stalin.sc:18462:648581 */ t43164.tag = STRUCTURE_TYPE24753; t43164.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43164.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18462, 648580); out_of_memory_error();} t43164.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t43164.value.structure_type24753->s0.value.structure_type24753 = t43161; t43164.value.structure_type24753->s1.tag = NULL_TYPE; a41884 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41884==NULL) {backtrace("stalin.sc", 18462, 648580); out_of_memory_error();} a41884->s0 = t43160; a41884->s1 = t43164; /* x301648 stalin.sc:14400:506485 */ /* x301647 stalin.sc:14400:506503 */ t43162 = a41884; /* x301646 stalin.sc:14400:506486 */ t43163.tag = STRUCTURE_TYPE24753; t43163.value.structure_type24753 = t43162; t43128 = f13492(t43163); /* x142016 stalin.sc:18465:648682 */ /* x141960 stalin.sc:18457:648350 */ t43129 = TRUE_TYPE; t43121 = f13672(t43126, t43127, t43128, t43129); /* x141959 stalin.sc:18456:648297 */ /* x141958 stalin.sc:18456:648305 */ t43125 = "MOVE: branching squeezed to general"; /* x141957 stalin.sc:18456:648298 */ t43120 = f13634(t43125); /* x141956 stalin.sc:18455:648276 */ t43124.tag = STRUCTURE_TYPE24753; t43124.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43124.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18455, 648275); out_of_memory_error();} t43124.value.structure_type24753->s0 = t43121; t43124.value.structure_type24753->s1.tag = NULL_TYPE; a41814 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41814==NULL) {backtrace("stalin.sc", 18455, 648275); out_of_memory_error();} a41814->s0 = t43120; a41814->s1 = t43124; /* x301368 stalin.sc:14400:506485 */ /* x301367 stalin.sc:14400:506503 */ t43122 = a41814; /* x301366 stalin.sc:14400:506486 */ t43123.tag = STRUCTURE_TYPE24753; t43123.value.structure_type24753 = t43122; t43083 = f13492(t43123); goto l6394; l6393: /* x142048 stalin.sc:18466:648691 */ /* x142047 stalin.sc:18469:648816 */ /* x142045 stalin.sc:18469:648822 */ /* x142040 stalin.sc:18469:648831 */ t43116 = p15464->p15369->p15368->a26590; /* x142043 stalin.sc:18469:648834 */ /* x142042 stalin.sc:18469:648851 */ t43119 = p15464->p15369->p15368->p15355->a26585; /* x142041 stalin.sc:18469:648835 */ t43117 = f13854(t43119); /* x142044 stalin.sc:18469:648854 */ t43118 = p15464->p15369->a26591; /* x142039 stalin.sc:18469:648823 */ t43114 = f14485(t43116, t43117, t43118); /* x142046 stalin.sc:18469:648858 */ t43115 = p15464->p15369->p15368->p15355->a26584; /* x142038 stalin.sc:18469:648817 */ t43098 = f13637(t43114, t43115); /* x142037 stalin.sc:18468:648757 */ /* x142031 stalin.sc:18468:648763 */ /* x142029 stalin.sc:18468:648770 */ t43110 = p15464->p15369->p15368->a26590; /* x142030 stalin.sc:18468:648773 */ t43111 = p15464->p15369->a26591; /* x142028 stalin.sc:18468:648764 */ t43107 = f14478(t43110, t43111); /* x142036 stalin.sc:18468:648777 */ /* x142035 stalin.sc:18468:648789 */ /* x142034 stalin.sc:18468:648806 */ t43113 = p15464->p15369->p15368->p15355->a26585; /* x142033 stalin.sc:18468:648790 */ t43112 = f13854(t43113); /* x142032 stalin.sc:18468:648778 */ t43108 = f14433(t43112); /* x142027 stalin.sc:18468:648758 */ t43109 = *((struct w49 *)(&t43108)); t43097 = f13637(t43107, t43109); /* x142026 stalin.sc:18467:648713 */ /* x142021 stalin.sc:18467:648725 */ t43103 = p15464->p15369->p15368->a26590; /* x142024 stalin.sc:18467:648728 */ /* x142023 stalin.sc:18467:648745 */ t43106 = p15464->p15369->p15368->p15355->a26585; /* x142022 stalin.sc:18467:648729 */ t43104 = f13854(t43106); /* x142025 stalin.sc:18467:648748 */ t43105 = p15464->p15369->a26591; /* x142020 stalin.sc:18467:648714 */ t43096 = f15345(t43103, t43104, t43105); /* x142019 stalin.sc:18466:648692 */ t43102.tag = STRUCTURE_TYPE24753; t43102.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43102.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18466, 648691); out_of_memory_error();} t43102.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t43102.value.structure_type24753->s0.value.structure_type24753 = t43098; t43102.value.structure_type24753->s1.tag = NULL_TYPE; t43101.tag = STRUCTURE_TYPE24753; t43101.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43101.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18466, 648691); out_of_memory_error();} t43101.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t43101.value.structure_type24753->s0.value.structure_type24753 = t43097; t43101.value.structure_type24753->s1 = t43102; a41816 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41816==NULL) {backtrace("stalin.sc", 18466, 648691); out_of_memory_error();} a41816->s0 = t43096; a41816->s1 = t43101; /* x301376 stalin.sc:14400:506485 */ /* x301375 stalin.sc:14400:506503 */ t43099 = a41816; /* x301374 stalin.sc:14400:506486 */ t43100.tag = STRUCTURE_TYPE24753; t43100.value.structure_type24753 = t43099; t43083 = f13492(t43100); l6394: l6391: /* x141908 stalin.sc:18449:648007 */ t43087.tag = STRUCTURE_TYPE24753; t43087.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43087.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18449, 648006); out_of_memory_error();} t43087.value.structure_type24753->s0 = t43084; t43087.value.structure_type24753->s1.tag = NULL_TYPE; a41882 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41882==NULL) {backtrace("stalin.sc", 18449, 648006); out_of_memory_error();} a41882->s0 = t43083; a41882->s1 = t43087; /* x301640 stalin.sc:14400:506485 */ /* x301639 stalin.sc:14400:506503 */ t43085 = a41882; /* x301638 stalin.sc:14400:506486 */ t43086.tag = STRUCTURE_TYPE24753; t43086.value.structure_type24753 = t43085; return f13492(t43086); l6373: /* x142308 */ /* x142059 stalin.sc:18471:648890 */ /* x142058 stalin.sc:18471:648901 */ t43003 = p15460->p15369->p15368->p15355->a26585; /* x142057 stalin.sc:18471:648891 */ if (f14024(t43003)==FALSE_TYPE) goto l6375; /* x142171 */ /* x142170 */ t43061 = p15460; p15469 = t43061; /* x142169 stalin.sc:18472:648906 */ /* x142168 stalin.sc:18477:649093 */ /* x142101 stalin.sc:18478:649122 */ t43075 = p15469; /* x142102 stalin.sc:18479:649174 */ t43076 = p15469->p15369->p15368->p15355->a26585; /* x142103 stalin.sc:18480:649180 */ t43077 = p15469->p15369->p15368->p15355->a26583; /* x142104 stalin.sc:18481:649186 */ t43078 = p15469->p15369->p15368->p15355->a26584; /* x142167 stalin.sc:18482:649192 */ t43079 = p15469->p15369; /* x142092 stalin.sc:18477:649094 */ t43080 = (unsigned)t43075; t43081 = (unsigned)t43079; t43063 = f14696(t43080, t43076, t43077, t43078, t43081); /* x142091 stalin.sc:18473:648926 */ /* x142085 stalin.sc:18473:648930 */ /* x142084 stalin.sc:18473:648934 */ /* x142083 stalin.sc:18473:648990 */ t43067 = p15469->a26592; /* x142082 stalin.sc:18473:648941 */ /* x142070 stalin.sc:18473:648935 */ t43068.tag = NATIVE_PROCEDURE_TYPE20540; t43069 = *((struct w49 *)(&t43067)); t43070 = (struct structure_type24753 *)NULL_TYPE; if (!(f1061(t43068, t43069, t43070)==FALSE_TYPE)) goto l6385; p15470 = p15469; /* x142067 */ /* x142066 stalin.sc:18474:649005 */ /* x142065 stalin.sc:18474:649011 */ t43072 = p15470->a26592; /* x142064 stalin.sc:18474:649006 */ a35458 = t43072; /* x273189 */ /* x273188 */ t43073 = a35458; /* x273187 */ if (!((t43073.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29607]"); structure_ref_error();} t43071 = t43073.value.structure_type24753->s1; /* x268553 stalin.sc:18474:648999 */ if (!((t43071.tag)==NULL_TYPE)) goto l6386; l6385: /* x142087 stalin.sc:18475:649024 */ /* x142086 stalin.sc:18475:649025 */ /* x276733 stalin.sc:14693:514793 */ t43062.tag = STRING_TYPE; t43062.value.string_type = ""; goto l6387; l6386: /* x142090 stalin.sc:18476:649040 */ /* x142089 stalin.sc:18476:649048 */ t43074 = "MOVE: dispatching squished to general"; /* x142088 stalin.sc:18476:649041 */ t43062 = f13634(t43074); l6387: /* x142060 stalin.sc:18472:648907 */ t43066.tag = STRUCTURE_TYPE24753; t43066.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43066.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18472, 648906); out_of_memory_error();} t43066.value.structure_type24753->s0 = t43063; t43066.value.structure_type24753->s1.tag = NULL_TYPE; a41885 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41885==NULL) {backtrace("stalin.sc", 18472, 648906); out_of_memory_error();} a41885->s0 = t43062; a41885->s1 = t43066; /* x301652 stalin.sc:14400:506485 */ /* x301651 stalin.sc:14400:506503 */ t43064 = a41885; /* x301650 stalin.sc:14400:506486 */ t43065.tag = STRUCTURE_TYPE24753; t43065.value.structure_type24753 = t43064; return f13492(t43065); l6375: /* x142307 */ /* x142306 */ t43004 = p15460; p15477 = t43004; /* x142305 stalin.sc:18494:649662 */ /* x142175 stalin.sc:18494:649669 */ /* x142173 stalin.sc:18494:649674 */ t43005 = p15477->p15369->p15368->p15355->a26585; /* x142174 stalin.sc:18494:649676 */ t43006 = p15477->p15369->a26591; /* x268551 stalin.sc:18494:649670 */ /* EQ: dispatching general to general */ if (!((t43005.tag)==(t43006.tag))) goto l6377; switch (t43005.tag) {case FIXNUM_TYPE: if (!((t43005.value.fixnum_type)==(t43006.value.fixnum_type))) goto l6377; break; case FLONUM_TYPE: if (!((t43005.value.flonum_type)==(t43006.value.flonum_type))) goto l6377; break; case INPUT_PORT_TYPE: if (!((t43005.value.input_port_type)==(t43006.value.input_port_type))) goto l6377; break; case OUTPUT_PORT_TYPE: if (!((t43005.value.output_port_type)==(t43006.value.output_port_type))) goto l6377; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t43005.value.native_procedure_type15963)==(t43006.value.native_procedure_type15963))) goto l6377; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t43005.value.native_procedure_type19067)==(t43006.value.native_procedure_type19067))) goto l6377; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t43005.value.native_procedure_type19068)==(t43006.value.native_procedure_type19068))) goto l6377; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t43005.value.native_procedure_type22459)==(t43006.value.native_procedure_type22459))) goto l6377; break; case STRUCTURE_TYPE24753: if (!((t43005.value.structure_type24753)==(t43006.value.structure_type24753))) goto l6377; break; case STRUCTURE_TYPE24757: if (!((t43005.value.structure_type24757)==(t43006.value.structure_type24757))) goto l6377; break; case STRUCTURE_TYPE27501: if (!((t43005.value.structure_type27501)==(t43006.value.structure_type27501))) goto l6377; break; case STRUCTURE_TYPE27510: if (!((t43005.value.structure_type27510)==(t43006.value.structure_type27510))) goto l6377; break; case STRUCTURE_TYPE27621: if (!((t43005.value.structure_type27621)==(t43006.value.structure_type27621))) goto l6377; break; case STRUCTURE_TYPE27650: if (!((t43005.value.structure_type27650)==(t43006.value.structure_type27650))) goto l6377; break; case STRUCTURE_TYPE27669: if (!((t43005.value.structure_type27669)==(t43006.value.structure_type27669))) goto l6377; break; case STRUCTURE_TYPE27673: if (!((t43005.value.structure_type27673)==(t43006.value.structure_type27673))) goto l6377; break; case STRUCTURE_TYPE27692: if (!((t43005.value.structure_type27692)==(t43006.value.structure_type27692))) goto l6377; break; case STRUCTURE_TYPE27694: if (!((t43005.value.structure_type27694)==(t43006.value.structure_type27694))) goto l6377; break; case STRUCTURE_TYPE27698: if (!((t43005.value.structure_type27698)==(t43006.value.structure_type27698))) goto l6377; break; case STRUCTURE_TYPE27745: if (!((t43005.value.structure_type27745)==(t43006.value.structure_type27745))) goto l6377; break; case STRUCTURE_TYPE27747: if (!((t43005.value.structure_type27747)==(t43006.value.structure_type27747))) goto l6377; break; case STRUCTURE_TYPE27750: if (!((t43005.value.structure_type27750)==(t43006.value.structure_type27750))) goto l6377; break; case STRUCTURE_TYPE27753: if (!((t43005.value.structure_type27753)==(t43006.value.structure_type27753))) goto l6377; break; case STRUCTURE_TYPE27756: if (!((t43005.value.structure_type27756)==(t43006.value.structure_type27756))) goto l6377; break; case STRUCTURE_TYPE27761: if (!((t43005.value.structure_type27761)==(t43006.value.structure_type27761))) goto l6377; break; case STRUCTURE_TYPE27769: if (!((t43005.value.structure_type27769)==(t43006.value.structure_type27769))) goto l6377; break; case STRUCTURE_TYPE27776: if (!((t43005.value.structure_type27776)==(t43006.value.structure_type27776))) goto l6377; break; case STRUCTURE_TYPE27779: if (!((t43005.value.structure_type27779)==(t43006.value.structure_type27779))) goto l6377; break; case STRUCTURE_TYPE27858: if (!((t43005.value.structure_type27858)==(t43006.value.structure_type27858))) goto l6377; break; case STRING_TYPE: if (!((t43005.value.string_type)==(t43006.value.string_type))) goto l6377; break; case HEADED_VECTOR_TYPE27896: if (!((t43005.value.headed_vector_type27896)==(t43006.value.headed_vector_type27896))) goto l6377; break; case EXTERNAL_SYMBOL_TYPE: if (!((t43005.value.external_symbol_type)==(t43006.value.external_symbol_type))) goto l6377; break; case STRUCTURE_TYPE27908: if (!((t43005.value.structure_type27908)==(t43006.value.structure_type27908))) goto l6377; break; default:;} /* x142180 */ /* x142179 */ t43058 = p15477->p15369->p15368; p15478 = t43058; /* x142178 stalin.sc:18494:649680 */ /* x142177 stalin.sc:18494:649686 */ t43060 = p15478->p15355->a26584; /* x142176 stalin.sc:18494:649681 */ t43059 = p15478; return f15488(t43059, t43060); l6377: /* x142304 */ /* x142191 stalin.sc:18495:649697 */ /* x142181 stalin.sc:18495:649702 */ if (a683==FALSE_TYPE) goto l6379; /* x142189 */ /* x142185 stalin.sc:18495:649716 */ /* x142184 stalin.sc:18495:649731 */ t43009 = p15477->p15369->p15368->p15355->a26585; /* x142183 stalin.sc:18495:649717 */ t43007 = f14154(t43009); /* x142188 stalin.sc:18495:649734 */ /* x142187 stalin.sc:18495:649749 */ t43010 = p15477->p15369->a26591; /* x142186 stalin.sc:18495:649735 */ t43008 = f14154(t43010); /* x268550 stalin.sc:18495:649714 */ switch (t43007.tag) {case FIXNUM_TYPE: switch (t43008.tag) {case FIXNUM_TYPE: if (!((t43007.value.fixnum_type)==(t43008.value.fixnum_type))) goto l6379; break; case FLONUM_TYPE: if (!((t43007.value.fixnum_type)==(t43008.value.flonum_type))) goto l6379; break; default: backtrace_internal("[inside MOVE-GENERAL 15477]"); eql_error();} break; case FLONUM_TYPE: switch (t43008.tag) {case FIXNUM_TYPE: if (!((t43007.value.flonum_type)==(t43008.value.fixnum_type))) goto l6379; break; case FLONUM_TYPE: if (!((t43007.value.flonum_type)==(t43008.value.flonum_type))) goto l6379; break; default: backtrace_internal("[inside MOVE-GENERAL 15477]"); eql_error();} break; default: backtrace_internal("[inside MOVE-GENERAL 15477]"); eql_error();} /* x142199 */ /* x142198 */ t43040 = p15477->p15369; p15479 = t43040; /* x142197 stalin.sc:18496:649762 */ /* x142196 stalin.sc:18496:649768 */ /* x142194 stalin.sc:18496:649784 */ t43044 = p15479->p15368->p15355->a26584; /* x142195 stalin.sc:18496:649786 */ t43045 = p15479->a26591; /* x142193 stalin.sc:18496:649769 */ a25900 = t43044; a25901 = t43045; /* x130174 stalin.sc:16271:566321 */ /* x130173 stalin.sc:16271:566326 */ /* x130169 stalin.sc:16271:566334 */ /* x130167 stalin.sc:16271:566346 */ t43052 = a25901; /* x130168 stalin.sc:16271:566348 */ t43053 = "*"; /* x130166 stalin.sc:16271:566335 */ t43054.tag = STRING_TYPE; t43054.value.string_type = t43053; t43049 = f14414(t43052, t43054); /* x130172 stalin.sc:16271:566353 */ /* x130171 stalin.sc:16271:566358 */ t43055 = a25900; /* x130170 stalin.sc:16271:566354 */ t43056 = t43055; t43057 = (struct structure_type24753 *)NULL_TYPE; t43050 = f13625(t43056, t43057); /* x130165 stalin.sc:16271:566327 */ t43051.tag = STRUCTURE_TYPE24753; t43051.value.structure_type24753 = t43050; t43046 = f13547(t43049, t43051); /* x130164 stalin.sc:16271:566322 */ t43047.tag = STRUCTURE_TYPE24753; t43047.value.structure_type24753 = t43046; t43048 = (struct structure_type24753 *)NULL_TYPE; t43042 = f13617(t43047, t43048); /* x142192 stalin.sc:18496:649763 */ t43041 = p15479->p15368; t43043.tag = STRUCTURE_TYPE24753; t43043.value.structure_type24753 = t43042; return f15488(t43041, t43043); l6379: /* x142303 */ /* x142302 */ t43011 = p15477; p15480 = t43011; /* x142301 stalin.sc:18497:649804 */ /* x142300 stalin.sc:18506:650111 */ /* x142251 stalin.sc:18507:650143 */ t43033 = p15480; /* x142252 stalin.sc:18508:650198 */ t43034 = p15480->p15369->p15368->p15355->a26585; /* x142253 stalin.sc:18509:650207 */ t43035 = p15480->p15369->p15368->p15355->a26583; /* x142254 stalin.sc:18510:650216 */ t43036 = p15480->p15369->p15368->p15355->a26584; /* x142299 stalin.sc:18511:650225 */ t43037 = p15480->p15369; /* x142242 stalin.sc:18506:650112 */ t43038 = ((unsigned)t43033)+2; t43039 = ((unsigned)t43037)+2; t43014 = f14696(t43038, t43034, t43035, t43036, t43039); /* x142241 stalin.sc:18505:650072 */ /* x142236 stalin.sc:18505:650078 */ /* x142234 stalin.sc:18505:650085 */ t43029 = p15480->p15369->p15368->a26590; /* x142235 stalin.sc:18505:650088 */ t43030 = p15480->p15369->a26591; /* x142233 stalin.sc:18505:650079 */ t43027 = f14478(t43029, t43030); /* x142240 stalin.sc:18505:650092 */ /* x142238 stalin.sc:18505:650099 */ t43031 = p15480->p15369->p15368->p15355->a26584; /* x142239 stalin.sc:18505:650101 */ t43032 = p15480->p15369->p15368->p15355->a26585; /* x142237 stalin.sc:18505:650093 */ t43028 = f14478(t43031, t43032); /* x142232 stalin.sc:18505:650073 */ t43013 = f13637(t43027, t43028); /* x142231 stalin.sc:18498:649827 */ /* x142225 stalin.sc:18498:649831 */ /* x142224 stalin.sc:18498:649835 */ /* x142223 stalin.sc:18500:649906 */ t43019 = p15480->a26592; /* x142222 stalin.sc:18498:649842 */ /* x142210 stalin.sc:18498:649836 */ t43020.tag = NATIVE_PROCEDURE_TYPE20484; t43021 = *((struct w49 *)(&t43019)); t43022 = (struct structure_type24753 *)NULL_TYPE; if (!(f1061(t43020, t43021, t43022)==FALSE_TYPE)) goto l6381; p15481 = p15480; /* x142207 */ /* x142206 stalin.sc:18501:649924 */ /* x142205 stalin.sc:18501:649930 */ t43024 = p15481->a26592; /* x142204 stalin.sc:18501:649925 */ a35459 = t43024; /* x273193 */ /* x273192 */ t43025 = a35459; /* x273191 */ if (!((t43025.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29608]"); structure_ref_error();} t43023 = t43025.value.structure_type24753->s1; /* x268549 stalin.sc:18501:649918 */ if (!((t43023.tag)==NULL_TYPE)) goto l6382; l6381: /* x142227 stalin.sc:18502:649946 */ /* x142226 stalin.sc:18502:649947 */ /* x276737 stalin.sc:14693:514793 */ t43012.tag = STRING_TYPE; t43012.value.string_type = ""; goto l6383; l6382: /* x142230 stalin.sc:18503:649965 */ /* x142229 stalin.sc:18503:649973 */ t43026 = "MOVE: dispatching general to general"; /* x142228 stalin.sc:18503:649966 */ t43012 = f13634(t43026); l6383: /* x142200 stalin.sc:18497:649805 */ t43018.tag = STRUCTURE_TYPE24753; t43018.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43018.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18497, 649804); out_of_memory_error();} t43018.value.structure_type24753->s0 = t43014; t43018.value.structure_type24753->s1.tag = NULL_TYPE; t43017.tag = STRUCTURE_TYPE24753; t43017.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43017.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18497, 649804); out_of_memory_error();} t43017.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t43017.value.structure_type24753->s0.value.structure_type24753 = t43013; t43017.value.structure_type24753->s1 = t43018; a41888 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41888==NULL) {backtrace("stalin.sc", 18497, 649804); out_of_memory_error();} a41888->s0 = t43012; a41888->s1 = t43017; /* x301664 stalin.sc:14400:506485 */ /* x301663 stalin.sc:14400:506503 */ t43015 = a41888; /* x301662 stalin.sc:14400:506486 */ t43016.tag = STRUCTURE_TYPE24753; t43016.value.structure_type24753 = t43015; return f13492(t43016);} /* ZERO-VALUE[15345] */ struct w49 f15345(struct w49 a26572, struct w49 a26573, struct w49 a26574) {struct w49 r15345; struct w49 a26575; /* SIZE */ struct w30215 a26576; /* FIXNUM-SIZE */ struct w30215 a26577; /* CHAR-SIZE */ struct structure_type24753 *a41893; /* CS */ struct p15345 *t43963; struct w49 t43964; struct p15345 *t43965; struct w30215 t43966; struct p15347 *t43967; struct w30215 t43968; struct p15347 *t43969; struct w49 t43970; struct w49 t43971; struct w49 t43972; struct w49 t43973; struct w49 t43974; struct w49 t43975; struct structure_type24753 *t43976; struct w49 t43977; struct w49 t43978; struct w12224 t43979; struct w49 t43980; struct p15345 *t43981; struct w30215 t43982; struct w227957 t43983; struct w49 t43984; struct w12224 t43985; struct w49 t43986; struct p15347 *t43987; struct w30215 t43988; struct w227957 t43989; struct w49 t43990; struct w49 t43991; struct w49 t43992; struct w49 t43993; struct w49 t43994; struct structure_type24753 *t43995; unsigned t43996; struct w49 t43997; struct w228463 t43998; struct w12224 t43999; struct w36270 t44000; struct w49 t44001; struct structure_type24753 *t44002; struct w49 t44003; struct w211061 t44004; struct p15345 *e15345; struct p15347 *e15347; struct p15345 *p15346; struct p15345 *p15347; struct p15347 *p15348; struct p15347 *p15349; e15345 = (struct p15345 *)alloca(sizeof(struct p15345)); if (e15345==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e15345->a26572 = a26572; /* x140457 stalin.sc:18096:634953 */ /* x140338 stalin.sc:18096:634957 */ if (a684==FALSE_TYPE) goto l6520; /* x140454 stalin.sc:18099:635121 */ /* x140453 stalin.sc:18099:635134 */ /* x140429 stalin.sc:18100:635147 */ /* x140451 stalin.sc:18101:635156 */ /* x140450 stalin.sc:18102:635174 */ /* x140448 stalin.sc:18103:635192 */ /* x140449 stalin.sc:18105:635262 */ t44003 = a26574; /* x140432 stalin.sc:18102:635175 */ t44004.tag = NATIVE_PROCEDURE_TYPE20433; t43999 = f8172(t44004, t44003); /* x140431 stalin.sc:18101:635161 */ /* x140430 stalin.sc:18101:635157 */ t44000.tag = NATIVE_PROCEDURE_TYPE6839; t44001 = *((struct w49 *)(&t43999)); t44002 = (struct structure_type24753 *)NULL_TYPE; t43995 = f27731(t44000, t44001, t44002); /* x140452 stalin.sc:18108:635365 */ /* x140428 stalin.sc:18099:635135 */ t43996 = NATIVE_PROCEDURE_TYPE416; /* MOVE: branching squeezed to general */ if (t43995>=((struct structure_type24753 *)VALUE_OFFSET)) {t43997.tag = STRUCTURE_TYPE24753; t43997.value.structure_type24753 = t43995;} else t43997.tag = (unsigned)t43995; t43998.tag = FALSE_TYPE; t43964 = f1006(t43996, t43997, t43998); /* x140427 */ t43963 = e15345; p15346 = t43963; a26575 = t43964; /* x140426 */ /* x140425 stalin.sc:18109:635388 */ /* x140423 stalin.sc:18109:635398 */ t43993 = a26575; /* x140424 stalin.sc:18109:635403 */ t43994 = a1233; /* x268600 stalin.sc:18109:635389 */ switch (t43993.tag) {case FIXNUM_TYPE: switch (t43994.tag) {case FIXNUM_TYPE: t43966.tag = FIXNUM_TYPE; t43966.value.fixnum_type = (t43993.value.fixnum_type)/(t43994.value.fixnum_type); break; case FLONUM_TYPE: if ((t43994.value.flonum_type)!=rint(t43994.value.flonum_type)) {backtrace("stalin.sc", 18109, 635388); quotient2_error();} t43966.tag = FLONUM_TYPE; t43966.value.flonum_type = (t43993.value.fixnum_type)/((int)(t43994.value.flonum_type)); break; default: backtrace("stalin.sc", 18109, 635388); quotient2_error();} break; case FLONUM_TYPE: switch (t43994.tag) {case FIXNUM_TYPE: if ((t43993.value.flonum_type)!=rint(t43993.value.flonum_type)) {backtrace("stalin.sc", 18109, 635388); quotient1_error();} t43966.tag = FLONUM_TYPE; t43966.value.flonum_type = ((int)(t43993.value.flonum_type))/(t43994.value.fixnum_type); break; case FLONUM_TYPE: if ((t43993.value.flonum_type)!=rint(t43993.value.flonum_type)) {backtrace("stalin.sc", 18109, 635388); quotient1_error();} if ((t43994.value.flonum_type)!=rint(t43994.value.flonum_type)) {backtrace("stalin.sc", 18109, 635388); quotient2_error();} t43966.tag = FLONUM_TYPE; t43966.value.flonum_type = ((int)(t43993.value.flonum_type))/((int)(t43994.value.flonum_type)); break; default: backtrace("stalin.sc", 18109, 635388); quotient2_error();} break; default: backtrace("stalin.sc", 18109, 635388); quotient1_error();} /* x140421 */ t43965 = p15346; p15347 = t43965; a26576 = t43966; e15347 = (struct p15347 *)alloca(sizeof(struct p15347)); if (e15347==NULL) {backtrace_internal("[inside ZERO-VALUE 15346]"); out_of_memory_error();} e15347->p15345 = p15347; e15347->a26576 = a26576; /* x140420 */ /* x140419 stalin.sc:18110:635435 */ /* x140417 stalin.sc:18110:635446 */ t43991 = a26575; /* x140418 stalin.sc:18110:635451 */ t43992 = a1233; /* x268601 stalin.sc:18110:635436 */ switch (t43991.tag) {case FIXNUM_TYPE: switch (t43992.tag) {case FIXNUM_TYPE: t43968.tag = FIXNUM_TYPE; t43968.value.fixnum_type = (t43991.value.fixnum_type)%(t43992.value.fixnum_type); break; case FLONUM_TYPE: if ((t43992.value.flonum_type)!=rint(t43992.value.flonum_type)) {backtrace("stalin.sc", 18110, 635435); remainder2_error();} t43968.tag = FLONUM_TYPE; t43968.value.flonum_type = (t43991.value.fixnum_type)%((int)(t43992.value.flonum_type)); break; default: backtrace("stalin.sc", 18110, 635435); remainder2_error();} break; case FLONUM_TYPE: switch (t43992.tag) {case FIXNUM_TYPE: if ((t43991.value.flonum_type)!=rint(t43991.value.flonum_type)) {backtrace("stalin.sc", 18110, 635435); remainder1_error();} t43968.tag = FLONUM_TYPE; t43968.value.flonum_type = ((int)(t43991.value.flonum_type))%(t43992.value.fixnum_type); break; case FLONUM_TYPE: if ((t43991.value.flonum_type)!=rint(t43991.value.flonum_type)) {backtrace("stalin.sc", 18110, 635435); remainder1_error();} if ((t43992.value.flonum_type)!=rint(t43992.value.flonum_type)) {backtrace("stalin.sc", 18110, 635435); remainder2_error();} t43968.tag = FLONUM_TYPE; t43968.value.flonum_type = ((int)(t43991.value.flonum_type))%((int)(t43992.value.flonum_type)); break; default: backtrace("stalin.sc", 18110, 635435); remainder2_error();} break; default: backtrace("stalin.sc", 18110, 635435); remainder1_error();} /* x140415 */ t43967 = e15347; p15348 = t43967; a26577 = t43968; /* x140414 */ /* x140413 */ t43969 = p15348; p15349 = t43969; /* x140412 stalin.sc:18112:635523 */ /* x140355 stalin.sc:18112:635527 */ /* x140354 stalin.sc:18112:635531 */ /* x140352 stalin.sc:18112:635536 */ t43970 = a26573; /* x140353 stalin.sc:18112:635538 */ /* x268604 stalin.sc:18112:635532 */ if ((t43970.tag)==FALSE_TYPE) goto l6521; /* x140348 */ /* x140347 stalin.sc:18112:635547 */ /* x140343 stalin.sc:18112:635550 */ t43971 = a26575; /* x140346 stalin.sc:18112:635555 */ /* x140345 stalin.sc:18112:635566 */ t43973 = a26573; /* x140344 stalin.sc:18112:635556 */ t43972 = f14094(t43973); /* x268605 stalin.sc:18112:635548 */ switch (t43971.tag) {case FIXNUM_TYPE: switch (t43972.tag) {case FIXNUM_TYPE: if ((t43971.value.fixnum_type)==(t43972.value.fixnum_type)) goto l6522; break; case FLONUM_TYPE: if ((t43971.value.fixnum_type)==(t43972.value.flonum_type)) goto l6522; break; default: backtrace("stalin.sc", 18112, 635547); eql_error();} break; case FLONUM_TYPE: switch (t43972.tag) {case FIXNUM_TYPE: if ((t43971.value.flonum_type)==(t43972.value.fixnum_type)) goto l6522; break; case FLONUM_TYPE: if ((t43971.value.flonum_type)==(t43972.value.flonum_type)) goto l6522; break; default: backtrace("stalin.sc", 18112, 635547); eql_error();} break; default: backtrace("stalin.sc", 18112, 635547); eql_error();} l6521: /* x140409 stalin.sc:18113:635575 */ /* x140408 stalin.sc:18121:635768 */ /* x140407 stalin.sc:18122:635791 */ /* x140405 stalin.sc:18122:635798 */ t43987 = p15349; /* x140406 stalin.sc:18127:635954 */ t43988 = a26577; /* x140381 stalin.sc:18122:635792 */ t43989.tag = NATIVE_PROCEDURE_TYPE20440; t43989.value.native_procedure_type20440 = t43987; t43990 = *((struct w49 *)(&t43988)); t43985 = f1149(t43989, t43990); /* x140380 stalin.sc:18121:635769 */ t43986 = *((struct w49 *)(&t43985)); t43975 = f13492(t43986); /* x140379 stalin.sc:18114:635596 */ /* x140378 stalin.sc:18115:635619 */ /* x140376 stalin.sc:18115:635626 */ t43981 = p15349->p15345; /* x140377 stalin.sc:18120:635750 */ t43982 = p15349->a26576; /* x140358 stalin.sc:18115:635620 */ t43983.tag = NATIVE_PROCEDURE_TYPE20445; t43983.value.native_procedure_type20445 = t43981; t43984 = *((struct w49 *)(&t43982)); t43979 = f1149(t43983, t43984); /* x140357 stalin.sc:18114:635597 */ t43980 = *((struct w49 *)(&t43979)); t43974 = f13492(t43980); /* x140356 stalin.sc:18113:635576 */ t43978.tag = STRUCTURE_TYPE24753; t43978.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t43978.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18113, 635575); out_of_memory_error();} t43978.value.structure_type24753->s0 = t43975; t43978.value.structure_type24753->s1.tag = NULL_TYPE; a41893 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41893==NULL) {backtrace("stalin.sc", 18113, 635575); out_of_memory_error();} a41893->s0 = t43974; a41893->s1 = t43978; /* x301684 stalin.sc:14400:506485 */ /* x301683 stalin.sc:14400:506503 */ t43976 = a41893; /* x301682 stalin.sc:14400:506486 */ t43977.tag = STRUCTURE_TYPE24753; t43977.value.structure_type24753 = t43976; return f13492(t43977); l6522: /* x140411 stalin.sc:18128:635970 */ /* x140410 stalin.sc:18128:635971 */ /* x276745 stalin.sc:14693:514793 */ r15345.tag = STRING_TYPE; r15345.value.string_type = ""; return r15345; l6520: /* x140456 stalin.sc:18129:635986 */ /* x140455 stalin.sc:18129:635987 */ /* x276747 stalin.sc:14693:514793 */ r15345.tag = STRING_TYPE; r15345.value.string_type = ""; return r15345;} /* COMPILE-RETURN[15342] */ struct w49 f15342(struct w12218 a26569) {struct w49 r15342; struct w12218 a38437; /* S */ struct w12218 a38445; /* S */ struct w12218 a38447; /* S */ struct w12218 a38448; /* S */ struct structure_type24753 *a41921; /* CS */ struct w12218 t44005; struct w49 t44006; struct w12218 t44007; struct w12218 t44008; struct w49 t44009; struct w12218 t44010; struct w12218 t44011; struct w49 t44012; struct structure_type24753 *t44013; struct structure_type24753 *t44014; struct w49 t44015; struct w49 t44016; struct w12218 t44017; struct w49 t44018; struct w49 t44019; struct w12218 t44020; struct w12218 t44021; struct w12218 t44022; struct structure_type24753 *t44023; struct structure_type24753 *t44024; struct w49 t44025; struct w12218 t44026; struct w12218 t44027; struct structure_type24753 *t44028; /* x140335 stalin.sc:18084:634572 */ /* x140302 stalin.sc:18084:634576 */ /* x140285 stalin.sc:18085:634587 */ /* x140284 stalin.sc:18085:634596 */ t44005 = a26569; /* x140283 stalin.sc:18085:634588 */ if (f7030(t44005)==FALSE_TYPE) goto l6525; /* x140300 */ /* x140299 stalin.sc:18086:634609 */ /* x140298 stalin.sc:18086:634631 */ /* x140297 stalin.sc:18086:634651 */ t44007 = a26569; /* x140296 stalin.sc:18086:634632 */ a38448 = t44007; /* x286461 */ /* x286460 */ t44008 = a38448; /* x286459 */ if (!((t44008.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-ENVIRONMENT[5753] 33365]"); structure_ref_error();} t44006 = t44008.value.structure_type27501->s1; /* x140295 stalin.sc:18086:634610 */ if (!(f10495(t44006)==FALSE_TYPE)) goto l6524; /* x140292 */ /* x140291 stalin.sc:18087:634699 */ /* x140290 stalin.sc:18087:634719 */ t44010 = a26569; /* x140289 stalin.sc:18087:634700 */ a38447 = t44010; /* x286457 */ /* x286456 */ t44011 = a38447; /* x286455 */ if (!((t44011.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-ENVIRONMENT[5753] 33364]"); structure_ref_error();} t44009 = t44011.value.structure_type27501->s1; /* x140288 stalin.sc:18087:634659 */ if (f8481(t44009)==FALSE_TYPE) goto l6525; l6524: /* x140332 stalin.sc:18088:634730 */ /* x140331 stalin.sc:18090:634779 */ /* x140321 stalin.sc:18090:634783 */ /* x140320 stalin.sc:18090:634787 */ /* x140319 stalin.sc:18090:634800 */ /* x140318 stalin.sc:18090:634817 */ t44020 = a26569; /* x140317 stalin.sc:18090:634801 */ a38437 = t44020; /* x286417 */ /* x286416 */ t44021 = a38437; /* x286415 */ if (!((t44021.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33354]"); structure_ref_error();} t44019 = t44021.value.structure_type27501->s2; /* x140316 stalin.sc:18090:634788 */ if (!(f8793(t44019)==FALSE_TYPE)) goto l6528; /* x140313 */ /* x140312 stalin.sc:18090:634826 */ /* x140311 stalin.sc:18090:634844 */ t44022 = a26569; /* x140310 stalin.sc:18090:634827 */ if (!(f15338(t44022)==FALSE_TYPE)) goto l6529; l6528: /* x140323 stalin.sc:18091:634852 */ /* x140322 stalin.sc:18091:634853 */ t44028 = (struct structure_type24753 *)NULL_TYPE; t44013 = f13646(t44028); goto l6530; l6529: /* x140330 stalin.sc:18092:634866 */ /* x140329 stalin.sc:18092:634876 */ /* x140328 stalin.sc:18092:634881 */ /* x140327 stalin.sc:18092:634901 */ t44026 = a26569; /* x140326 stalin.sc:18092:634882 */ a38445 = t44026; /* x286449 */ /* x286448 */ t44027 = a38445; /* x286447 */ if (!((t44027.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-ENVIRONMENT[5753] 33362]"); structure_ref_error();} t44025 = t44027.value.structure_type27501->s1; /* x140325 stalin.sc:18092:634877 */ t44023 = f14286(t44025); /* x140324 stalin.sc:18092:634867 */ t44024 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t44024==NULL) {backtrace("stalin.sc", 18092, 634866); out_of_memory_error();} t44024->s0.tag = STRUCTURE_TYPE24753; t44024->s0.value.structure_type24753 = t44023; t44024->s1.tag = NULL_TYPE; t44013 = f13646(t44024); l6530: /* x140306 stalin.sc:18089:634753 */ /* x140305 stalin.sc:18089:634770 */ t44017 = a26569; /* x140304 stalin.sc:18089:634754 */ t44018 = *((struct w49 *)(&t44017)); t44012 = f15328(t44018); /* x140303 stalin.sc:18088:634731 */ t44016.tag = STRUCTURE_TYPE24753; t44016.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t44016.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18088, 634730); out_of_memory_error();} t44016.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t44016.value.structure_type24753->s0.value.structure_type24753 = t44013; t44016.value.structure_type24753->s1.tag = NULL_TYPE; a41921 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41921==NULL) {backtrace("stalin.sc", 18088, 634730); out_of_memory_error();} a41921->s0 = t44012; a41921->s1 = t44016; /* x301796 stalin.sc:14400:506485 */ /* x301795 stalin.sc:14400:506503 */ t44014 = a41921; /* x301794 stalin.sc:14400:506486 */ t44015.tag = STRUCTURE_TYPE24753; t44015.value.structure_type24753 = t44014; return f13492(t44015); l6525: /* x140334 stalin.sc:18093:634913 */ /* x140333 stalin.sc:18093:634914 */ /* x276869 stalin.sc:14693:514793 */ r15342.tag = STRING_TYPE; r15342.value.string_type = ""; return r15342;} /* RESULT-ACCESSED?[15338] */ unsigned f15338(struct w12218 a26567) {struct w49 a36701; /* S */ struct w12218 a38446; /* S */ struct w6852 a39227; /* S */ struct w49 t44029; struct w6852 t44030; struct w6852 t44031; struct w49 t44032; struct w49 t44033; struct w12218 t44034; struct w12218 t44035; struct w12218 t44036; char *t44037; /* x140280 */ /* x140279 stalin.sc:18079:634419 */ /* x140272 stalin.sc:18079:634427 */ /* x140271 stalin.sc:18079:634436 */ t44036 = a26567; /* x140270 stalin.sc:18079:634428 */ if (f7030(t44036)==FALSE_TYPE) goto l6533; /* x140274 */ /* x140273 */ goto l6534; l6533: /* x140278 */ /* x140277 */ /* x140276 stalin.sc:18079:634439 */ /* x140275 stalin.sc:18079:634440 */ /* x296589 QobiScheme.sc:166:5314 */ /* x296588 QobiScheme.sc:166:5321 */ t44037 = "This shouldn\'t happen"; /* x296587 QobiScheme.sc:166:5315 */ stalin_panic(t44037); l6534: /* x140269 */ /* x140268 stalin.sc:18080:634451 */ /* x140267 stalin.sc:18081:634475 */ /* x140266 stalin.sc:18081:634492 */ /* x140265 stalin.sc:18081:634516 */ /* x140264 stalin.sc:18081:634536 */ t44034 = a26567; /* x140263 stalin.sc:18081:634517 */ a38446 = t44034; /* x286453 */ /* x286452 */ t44035 = a38446; /* x286451 */ if (!((t44035.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-ENVIRONMENT[5753] 33363]"); structure_ref_error();} t44032 = t44035.value.structure_type27501->s1; /* x140262 stalin.sc:18081:634493 */ a36701 = t44032; /* x279473 */ /* x279472 */ t44033 = a36701; /* x279471 */ if (!((t44033.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31618]"); structure_ref_error();} t44030 = t44033.value.structure_type27694->s1; /* x140261 stalin.sc:18081:634476 */ a39227 = t44030; /* x289577 */ /* x289576 */ t44031 = a39227; /* x289575 */ if (!((t44031.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34144]"); structure_ref_error();} t44029 = t44031.value.structure_type27698->s15; /* x140260 stalin.sc:18080:634452 */ return f6936(t44029);} /* COMPILE-RESTORE[15328] */ struct w49 f15328(struct w49 a26564) {struct w49 r15328; struct w49 a36638; /* S */ struct w49 a36757; /* OBJ */ struct w49 a38444; /* S */ struct w49 a38452; /* OBJ */ struct structure_type24753 *a41918; /* CS */ struct structure_type24753 *a41920; /* CS */ struct structure_type24753 *a42087; /* CS */ struct w49 t44038; struct w49 t44039; struct w49 t44040; struct w49 t44041; char *t44042; struct w49 t44043; struct w49 t44044; struct w49 t44045; struct w49 t44046; struct w49 t44047; struct w61020 t44048; struct w49 t44049; struct structure_type24753 *t44050; struct w61020 t44051; struct structure_type24753 *t44052; struct w49 t44053; struct w49 t44054; struct w49 t44055; struct w49 t44056; char *t44057; char *t44058; struct w61020 t44059; struct structure_type24753 *t44060; struct structure_type24753 *t44061; char *t44062; struct w49 t44063; struct structure_type24753 *t44064; struct w49 t44065; struct structure_type24753 *t44066; struct structure_type24753 *t44067; struct structure_type24753 *t44068; struct w49 t44069; struct structure_type24753 *t44070; struct structure_type24753 *t44071; struct w49 t44072; struct w49 t44073; struct w49 t44074; struct structure_type24753 *t44075; struct w49 t44076; struct structure_type24753 *t44077; struct structure_type24753 *t44078; char *t44079; struct w49 t44080; struct w49 t44081; struct w61020 t44082; char *t44083; struct w49 t44084; struct w61020 t44085; struct w49 t44086; struct structure_type24753 *t44087; struct structure_type24753 *t44088; struct structure_type24753 *t44089; struct w49 t44090; struct w49 t44091; struct w49 t44092; struct structure_type24753 *t44093; struct w49 t44094; struct structure_type24753 *t44095; struct structure_type24753 *t44096; struct w61020 t44097; struct w49 t44098; struct w49 t44099; struct w61020 t44100; char *t44101; struct w49 t44102; struct w61020 t44103; struct w49 t44104; struct structure_type24753 *t44105; struct w49 t44106; struct structure_type24753 *t44107; struct structure_type24753 *t44108; struct structure_type24753 *t44109; struct structure_type24753 *t44110; struct structure_type24753 *t44111; struct w61020 t44112; struct structure_type24753 *t44113; struct structure_type24753 *t44114; struct w49 t44115; struct w49 t44116; struct w49 t44117; struct w49 t44118; struct w49 t44119; struct w49 t44120; struct w49 t44121; char *t44122; struct w61020 t44123; struct structure_type24753 *t44124; struct structure_type24753 *t44125; struct w49 t44126; struct w49 t44127; struct w49 t44128; struct w49 t44129; struct structure_type24753 *t44130; struct w61020 t44131; struct w49 t44132; struct structure_type24753 *t44133; struct w61020 t44134; struct w61020 t44135; struct w49 t44136; struct w49 t44137; struct structure_type24753 *t44138; struct w49 t44139; struct structure_type24753 *t44140; struct w61020 t44141; struct structure_type24753 *t44142; struct w49 t44143; struct w49 t44144; struct w49 t44145; struct structure_type24753 *t44146; struct w61020 t44147; struct w61020 t44148; struct w49 t44149; struct w49 t44150; struct structure_type24753 *t44151; struct structure_type24753 *t44152; struct w61020 t44153; struct structure_type24753 *t44154; struct w49 t44155; struct w49 t44156; struct w49 t44157; struct structure_type24753 *t44158; struct w61020 t44159; struct w61020 t44160; struct w49 t44161; struct w49 t44162; struct structure_type24753 *t44163; struct structure_type24753 *t44164; struct structure_type24753 *t44165; struct structure_type24753 *t44166; struct structure_type24753 *t44167; char *t44168; struct w49 t44169; char *t44170; char *t44171; unsigned t44172; struct w49 t44173; struct w49 t44174; struct w49 t44175; struct w49 t44176; struct w61020 t44177; unsigned t44178; struct structure_type24753 *t44179; struct w49 t44180; struct structure_type24753 *t44181; struct structure_type24753 *t44182; struct w49 t44183; struct w49 t44184; struct w49 t44185; struct w49 t44186; char *t44187; char *t44188; struct w61020 t44189; struct structure_type24753 *t44190; struct structure_type24753 *t44191; char *t44192; struct w49 t44193; h15328: /* x140257 stalin.sc:18038:633047 */ /* x140070 stalin.sc:18039:633056 */ /* x140069 stalin.sc:18039:633070 */ t44038 = a26564; /* x140068 stalin.sc:18039:633057 */ a36757 = t44038; /* x279697 */ /* x279696 */ t44039 = a36757; /* x279695 */ if (!((t44039.tag)==STRUCTURE_TYPE27694)) goto l6536; /* x140241 */ /* x140240 */ /* x140239 stalin.sc:18040:633078 */ /* x140078 stalin.sc:18040:633082 */ /* x140073 stalin.sc:18040:633087 */ /* x140072 stalin.sc:18040:633100 */ t44046 = a26564; /* x140071 stalin.sc:18040:633088 */ if (f8528(t44046)==FALSE_TYPE) goto l6540; /* x140076 */ /* x140075 stalin.sc:18040:633117 */ t44047 = a26564; /* x140074 stalin.sc:18040:633106 */ if (f8543(t44047)==FALSE_TYPE) goto l6540; /* x140236 stalin.sc:18041:633130 */ /* x140235 stalin.sc:18070:634154 */ /* x140218 stalin.sc:18070:634161 */ if (a675==FALSE_TYPE) goto l6552; /* x140230 */ /* x140229 */ /* x140228 */ /* x140227 stalin.sc:18071:634183 */ /* x140226 stalin.sc:18071:634193 */ t44192 = "Tmk"; /* x140225 stalin.sc:18071:634184 */ t44193.tag = STRING_TYPE; t44193.value.string_type = t44192; f18320(t44193); /* x140224 */ /* x140223 stalin.sc:18072:634227 */ /* x140222 stalin.sc:18072:634255 */ /* x140221 stalin.sc:18072:634256 */ /* x276949 stalin.sc:14555:511005 */ t44188 = "0"; /* x140220 stalin.sc:18072:634236 */ t44187 = "Tmk_lock_release"; /* x140219 stalin.sc:18072:634228 */ t44189.tag = STRING_TYPE; t44189.value.string_type = t44187; t44190 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t44190==NULL) {backtrace("stalin.sc", 18072, 634227); out_of_memory_error();} t44190->s0.tag = STRING_TYPE; t44190->s0.value.string_type = t44188; t44190->s1.tag = NULL_TYPE; t44191 = f13645(t44189, t44190); t44051.tag = STRUCTURE_TYPE24753; t44051.value.structure_type24753 = t44191; goto l6553; l6552: /* x140234 */ /* x140233 */ /* x140232 stalin.sc:18073:634276 */ /* x140231 stalin.sc:18073:634277 */ /* x276817 stalin.sc:14693:514793 */ t44051.tag = STRING_TYPE; t44051.value.string_type = ""; l6553: /* x140217 stalin.sc:18069:634123 */ /* x140213 stalin.sc:18069:634129 */ /* x140212 stalin.sc:18069:634135 */ t44185 = a26564; /* x140211 stalin.sc:18069:634130 */ t44181 = f14321(t44185); /* x140216 stalin.sc:18069:634140 */ /* x140215 stalin.sc:18069:634147 */ t44186 = a26564; /* x140214 stalin.sc:18069:634141 */ t44182 = f14322(t44186); /* x140210 stalin.sc:18069:634124 */ t44183.tag = STRUCTURE_TYPE24753; t44183.value.structure_type24753 = t44181; t44184.tag = STRUCTURE_TYPE24753; t44184.value.structure_type24753 = t44182; t44050 = f13637(t44183, t44184); /* x140209 stalin.sc:18046:633282 */ /* x140098 stalin.sc:18046:633286 */ if (a690==FALSE_TYPE) goto l6546; /* x140206 stalin.sc:18047:633313 */ /* x140138 stalin.sc:18048:633328 */ /* x140137 stalin.sc:18051:633436 */ /* x140122 stalin.sc:18051:633441 */ /* x140121 stalin.sc:18051:633448 */ t44092 = a26564; /* x140120 stalin.sc:18051:633442 */ t44088 = f14322(t44092); /* x140136 stalin.sc:18052:633458 */ /* x140135 stalin.sc:18052:633463 */ /* x140131 stalin.sc:18052:633476 */ /* x140128 stalin.sc:18052:633482 */ /* x140127 stalin.sc:18052:633492 */ t44104 = a26564; /* x140126 stalin.sc:18052:633483 */ t44105 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t44105==NULL) {backtrace("stalin.sc", 18052, 633482); out_of_memory_error();} t44105->s0 = t44104; t44105->s1.tag = NULL_TYPE; t44100 = f14324(t44105); /* x140130 stalin.sc:18052:633497 */ /* x140129 stalin.sc:18052:633498 */ /* x276391 stalin.sc:16070:560270 */ t44101 = "data"; /* x140125 stalin.sc:18052:633477 */ t44102 = *((struct w49 *)(&t44100)); t44103.tag = STRING_TYPE; t44103.value.string_type = t44101; t44096 = f13588(t44102, t44103); /* x140134 stalin.sc:18053:633516 */ /* x140133 stalin.sc:18053:633531 */ t44106 = a26564; /* x140132 stalin.sc:18053:633517 */ t44107 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t44107==NULL) {backtrace("stalin.sc", 18053, 633516); out_of_memory_error();} t44107->s0 = t44106; t44107->s1.tag = NULL_TYPE; t44097 = f14328(t44107); /* x140124 stalin.sc:18052:633464 */ t44098.tag = STRUCTURE_TYPE24753; t44098.value.structure_type24753 = t44096; t44099 = *((struct w49 *)(&t44097)); t44093 = f13540(t44098, t44099); /* x140123 stalin.sc:18052:633459 */ t44094.tag = STRUCTURE_TYPE24753; t44094.value.structure_type24753 = t44093; t44095 = (struct structure_type24753 *)NULL_TYPE; t44089 = f13625(t44094, t44095); /* x140119 stalin.sc:18051:633437 */ t44090.tag = STRUCTURE_TYPE24753; t44090.value.structure_type24753 = t44088; t44091.tag = STRUCTURE_TYPE24753; t44091.value.structure_type24753 = t44089; t44067 = f13604(t44090, t44091); /* x140118 stalin.sc:18049:633349 */ /* x140104 stalin.sc:18049:633354 */ /* x140103 stalin.sc:18049:633361 */ t44074 = a26564; /* x140102 stalin.sc:18049:633355 */ t44070 = f14322(t44074); /* x140117 stalin.sc:18050:633371 */ /* x140116 stalin.sc:18050:633376 */ /* x140113 stalin.sc:18050:633389 */ /* x140110 stalin.sc:18050:633395 */ /* x140109 stalin.sc:18050:633405 */ t44086 = a26564; /* x140108 stalin.sc:18050:633396 */ t44087 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t44087==NULL) {backtrace("stalin.sc", 18050, 633395); out_of_memory_error();} t44087->s0 = t44086; t44087->s1.tag = NULL_TYPE; t44082 = f14324(t44087); /* x140112 stalin.sc:18050:633410 */ /* x140111 stalin.sc:18050:633411 */ /* x276389 stalin.sc:16070:560270 */ t44083 = "data"; /* x140107 stalin.sc:18050:633390 */ t44084 = *((struct w49 *)(&t44082)); t44085.tag = STRING_TYPE; t44085.value.string_type = t44083; t44078 = f13588(t44084, t44085); /* x140115 stalin.sc:18050:633420 */ /* x140114 stalin.sc:18050:633421 */ /* x276947 stalin.sc:14555:511005 */ t44079 = "0"; /* x140106 stalin.sc:18050:633377 */ t44080.tag = STRUCTURE_TYPE24753; t44080.value.structure_type24753 = t44078; t44081.tag = STRING_TYPE; t44081.value.string_type = t44079; t44075 = f13540(t44080, t44081); /* x140105 stalin.sc:18050:633372 */ t44076.tag = STRUCTURE_TYPE24753; t44076.value.structure_type24753 = t44075; t44077 = (struct structure_type24753 *)NULL_TYPE; t44071 = f13625(t44076, t44077); /* x140101 stalin.sc:18049:633350 */ t44072.tag = STRUCTURE_TYPE24753; t44072.value.structure_type24753 = t44070; t44073.tag = STRUCTURE_TYPE24753; t44073.value.structure_type24753 = t44071; t44066 = f13601(t44072, t44073); /* x140100 stalin.sc:18048:633329 */ t44069.tag = STRUCTURE_TYPE24753; t44069.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t44069.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18048, 633328); out_of_memory_error();} t44069.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t44069.value.structure_type24753->s0.value.structure_type24753 = t44067; t44069.value.structure_type24753->s1.tag = NULL_TYPE; t44068 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t44068==NULL) {backtrace("stalin.sc", 18048, 633328); out_of_memory_error();} t44068->s0.tag = STRUCTURE_TYPE24753; t44068->s0.value.structure_type24753 = t44066; t44068->s1 = t44069; t44064 = f13556(t44068); /* x140205 stalin.sc:18054:633546 */ /* x140204 stalin.sc:18067:634057 */ /* x140200 stalin.sc:18067:634065 */ /* x140199 stalin.sc:18067:634066 */ t44179 = (struct structure_type24753 *)NULL_TYPE; t44177 = f14324(t44179); /* x140203 stalin.sc:18067:634076 */ /* x140202 stalin.sc:18067:634099 */ t44180 = a26564; /* x140201 stalin.sc:18067:634077 */ t44178 = f8533(t44180); /* x140198 stalin.sc:18067:634058 */ t44113 = f13760(t44177, t44178); /* x140197 stalin.sc:18062:633904 */ /* x140183 stalin.sc:18062:633908 */ if (a691==FALSE_TYPE) goto l6549; /* x140194 stalin.sc:18063:633931 */ /* x140193 stalin.sc:18064:633946 */ /* x140192 stalin.sc:18064:633956 */ /* x140191 stalin.sc:18065:634010 */ /* x140190 stalin.sc:18065:634028 */ t44175 = a26564; /* x140189 stalin.sc:18065:634011 */ a36638 = t44175; /* x279221 */ /* x279220 */ t44176 = a36638; /* x279219 */ if (!((t44176.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31555]"); structure_ref_error();} t44171 = t44176.value.structure_type27694->s2; /* x140188 stalin.sc:18064:633967 */ t44170 = "Freeing region segment for ~a~%"; /* x140187 stalin.sc:18064:633964 */ /* x140186 stalin.sc:18064:633957 */ t44172 = FALSE_TYPE; t44173.tag = STRING_TYPE; t44173.value.string_type = t44170; t44174.tag = STRUCTURE_TYPE24753; t44174.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t44174.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18064, 633956); out_of_memory_error();} t44174.value.structure_type24753->s0.tag = STRING_TYPE; t44174.value.structure_type24753->s0.value.string_type = t44171; t44174.value.structure_type24753->s1.tag = NULL_TYPE; t44168 = f665(t44172, t44173, t44174); /* x140185 stalin.sc:18064:633947 */ t44169.tag = STRING_TYPE; t44169.value.string_type = t44168; t44165 = f13532(t44169); /* x140184 stalin.sc:18063:633932 */ t44166 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t44166==NULL) {backtrace("stalin.sc", 18063, 633931); out_of_memory_error();} t44166->s0.tag = STRUCTURE_TYPE24753; t44166->s0.value.structure_type24753 = t44165; t44166->s1.tag = NULL_TYPE; t44167 = f13740(t44166); t44112.tag = STRUCTURE_TYPE24753; t44112.value.structure_type24753 = t44167; goto l6550; l6549: /* x140196 stalin.sc:18066:634040 */ /* x140195 stalin.sc:18066:634041 */ /* x276813 stalin.sc:14693:514793 */ t44112.tag = STRING_TYPE; t44112.value.string_type = ""; l6550: /* x140182 stalin.sc:18061:633842 */ /* x140174 stalin.sc:18061:633848 */ /* x140173 stalin.sc:18061:633858 */ t44157 = a26564; /* x140172 stalin.sc:18061:633849 */ t44158 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t44158==NULL) {backtrace("stalin.sc", 18061, 633848); out_of_memory_error();} t44158->s0 = t44157; t44158->s1.tag = NULL_TYPE; t44153 = f14324(t44158); /* x140181 stalin.sc:18061:633863 */ /* x140178 stalin.sc:18061:633869 */ /* x140177 stalin.sc:18061:633879 */ t44162 = a26564; /* x140176 stalin.sc:18061:633870 */ t44163 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t44163==NULL) {backtrace("stalin.sc", 18061, 633869); out_of_memory_error();} t44163->s0 = t44162; t44163->s1.tag = NULL_TYPE; t44159 = f14324(t44163); /* x140180 stalin.sc:18061:633884 */ /* x140179 stalin.sc:18061:633885 */ t44164 = (struct structure_type24753 *)NULL_TYPE; t44160 = f14324(t44164); /* x140175 stalin.sc:18061:633864 */ t44161 = *((struct w49 *)(&t44159)); t44154 = f13588(t44161, t44160); /* x140171 stalin.sc:18061:633843 */ t44155 = *((struct w49 *)(&t44153)); t44156.tag = STRUCTURE_TYPE24753; t44156.value.structure_type24753 = t44154; t44111 = f13637(t44155, t44156); /* x140170 stalin.sc:18060:633770 */ /* x140162 stalin.sc:18060:633776 */ /* x140161 stalin.sc:18060:633791 */ t44145 = a26564; /* x140160 stalin.sc:18060:633777 */ t44146 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t44146==NULL) {backtrace("stalin.sc", 18060, 633776); out_of_memory_error();} t44146->s0 = t44145; t44146->s1.tag = NULL_TYPE; t44141 = f14328(t44146); /* x140169 stalin.sc:18060:633796 */ /* x140166 stalin.sc:18060:633802 */ /* x140165 stalin.sc:18060:633812 */ t44150 = a26564; /* x140164 stalin.sc:18060:633803 */ t44151 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t44151==NULL) {backtrace("stalin.sc", 18060, 633802); out_of_memory_error();} t44151->s0 = t44150; t44151->s1.tag = NULL_TYPE; t44147 = f14324(t44151); /* x140168 stalin.sc:18060:633817 */ /* x140167 stalin.sc:18060:633818 */ t44152 = (struct structure_type24753 *)NULL_TYPE; t44148 = f14328(t44152); /* x140163 stalin.sc:18060:633797 */ t44149 = *((struct w49 *)(&t44147)); t44142 = f13588(t44149, t44148); /* x140159 stalin.sc:18060:633771 */ t44143 = *((struct w49 *)(&t44141)); t44144.tag = STRUCTURE_TYPE24753; t44144.value.structure_type24753 = t44142; t44110 = f13637(t44143, t44144); /* x140158 stalin.sc:18059:633730 */ /* x140154 stalin.sc:18059:633736 */ /* x140153 stalin.sc:18059:633737 */ t44138 = (struct structure_type24753 *)NULL_TYPE; t44134 = f14324(t44138); /* x140157 stalin.sc:18059:633747 */ /* x140156 stalin.sc:18059:633757 */ t44139 = a26564; /* x140155 stalin.sc:18059:633748 */ t44140 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t44140==NULL) {backtrace("stalin.sc", 18059, 633747); out_of_memory_error();} t44140->s0 = t44139; t44140->s1.tag = NULL_TYPE; t44135 = f14324(t44140); /* x140152 stalin.sc:18059:633731 */ t44136 = *((struct w49 *)(&t44134)); t44137 = *((struct w49 *)(&t44135)); t44109 = f13637(t44136, t44137); /* x140151 stalin.sc:18055:633570 */ /* x140150 stalin.sc:18057:633655 */ /* x140149 stalin.sc:18058:633696 */ /* x140148 stalin.sc:18058:633709 */ /* x140147 stalin.sc:18058:633710 */ t44133 = (struct structure_type24753 *)NULL_TYPE; t44131 = f14324(t44133); /* x140146 stalin.sc:18058:633697 */ t44132 = *((struct w49 *)(&t44131)); t44124 = f13516(t44132); /* x140145 stalin.sc:18058:633681 */ /* x140144 stalin.sc:18058:633691 */ t44129 = a26564; /* x140143 stalin.sc:18058:633682 */ t44130 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t44130==NULL) {backtrace("stalin.sc", 18058, 633681); out_of_memory_error();} t44130->s0 = t44129; t44130->s1.tag = NULL_TYPE; t44123 = f14324(t44130); /* x140142 stalin.sc:18058:633672 */ t44122 = "struct"; /* x140141 stalin.sc:18057:633656 */ t44128.tag = STRUCTURE_TYPE24753; t44128.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t44128.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18057, 633655); out_of_memory_error();} t44128.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t44128.value.structure_type24753->s0.value.structure_type24753 = t44124; t44128.value.structure_type24753->s1.tag = NULL_TYPE; t44127.tag = STRUCTURE_TYPE24753; t44127.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t44127.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18057, 633655); out_of_memory_error();} t44127.value.structure_type24753->s0 = *((struct w49 *)(&t44123)); t44127.value.structure_type24753->s1 = t44128; a42087 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42087==NULL) {backtrace("stalin.sc", 18057, 633655); out_of_memory_error();} a42087->s0.tag = STRING_TYPE; a42087->s0.value.string_type = t44122; a42087->s1 = t44127; /* x302460 stalin.sc:14386:505956 */ /* x302459 stalin.sc:14386:505972 */ t44125 = a42087; /* x302458 stalin.sc:14386:505957 */ t44126.tag = STRUCTURE_TYPE24753; t44126.value.structure_type24753 = t44125; t44121 = f13474(t44126); /* x140140 stalin.sc:18055:633571 */ t44108 = f13514(t44121); /* x140139 stalin.sc:18054:633547 */ t44120.tag = STRUCTURE_TYPE24753; t44120.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t44120.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18054, 633546); out_of_memory_error();} t44120.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t44120.value.structure_type24753->s0.value.structure_type24753 = t44113; t44120.value.structure_type24753->s1.tag = NULL_TYPE; t44119.tag = STRUCTURE_TYPE24753; t44119.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t44119.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18054, 633546); out_of_memory_error();} t44119.value.structure_type24753->s0 = *((struct w49 *)(&t44112)); t44119.value.structure_type24753->s1 = t44120; t44118.tag = STRUCTURE_TYPE24753; t44118.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t44118.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18054, 633546); out_of_memory_error();} t44118.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t44118.value.structure_type24753->s0.value.structure_type24753 = t44111; t44118.value.structure_type24753->s1 = t44119; t44117.tag = STRUCTURE_TYPE24753; t44117.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t44117.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18054, 633546); out_of_memory_error();} t44117.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t44117.value.structure_type24753->s0.value.structure_type24753 = t44110; t44117.value.structure_type24753->s1 = t44118; t44116.tag = STRUCTURE_TYPE24753; t44116.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t44116.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18054, 633546); out_of_memory_error();} t44116.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t44116.value.structure_type24753->s0.value.structure_type24753 = t44109; t44116.value.structure_type24753->s1 = t44117; a41920 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41920==NULL) {backtrace("stalin.sc", 18054, 633546); out_of_memory_error();} a41920->s0.tag = STRUCTURE_TYPE24753; a41920->s0.value.structure_type24753 = t44108; a41920->s1 = t44116; /* x301792 stalin.sc:14400:506485 */ /* x301791 stalin.sc:14400:506503 */ t44114 = a41920; /* x301790 stalin.sc:14400:506486 */ t44115.tag = STRUCTURE_TYPE24753; t44115.value.structure_type24753 = t44114; t44065 = f13492(t44115); /* x140099 stalin.sc:18047:633314 */ t44049 = f13670(t44064, t44065); goto l6547; l6546: /* x140208 stalin.sc:18068:634112 */ /* x140207 stalin.sc:18068:634113 */ /* x276815 stalin.sc:14693:514793 */ t44049.tag = STRING_TYPE; t44049.value.string_type = ""; l6547: /* x140097 stalin.sc:18042:633148 */ /* x140080 stalin.sc:18042:633155 */ if (a675==FALSE_TYPE) goto l6543; /* x140092 */ /* x140091 */ /* x140090 */ /* x140089 stalin.sc:18043:633177 */ /* x140088 stalin.sc:18043:633187 */ t44062 = "Tmk"; /* x140087 stalin.sc:18043:633178 */ t44063.tag = STRING_TYPE; t44063.value.string_type = t44062; f18320(t44063); /* x140086 */ /* x140085 stalin.sc:18044:633221 */ /* x140084 stalin.sc:18044:633249 */ /* x140083 stalin.sc:18044:633250 */ /* x276945 stalin.sc:14555:511005 */ t44058 = "0"; /* x140082 stalin.sc:18044:633230 */ t44057 = "Tmk_lock_acquire"; /* x140081 stalin.sc:18044:633222 */ t44059.tag = STRING_TYPE; t44059.value.string_type = t44057; t44060 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t44060==NULL) {backtrace("stalin.sc", 18044, 633221); out_of_memory_error();} t44060->s0.tag = STRING_TYPE; t44060->s0.value.string_type = t44058; t44060->s1.tag = NULL_TYPE; t44061 = f13645(t44059, t44060); t44048.tag = STRUCTURE_TYPE24753; t44048.value.structure_type24753 = t44061; goto l6544; l6543: /* x140096 */ /* x140095 */ /* x140094 stalin.sc:18045:633270 */ /* x140093 stalin.sc:18045:633271 */ /* x276811 stalin.sc:14693:514793 */ t44048.tag = STRING_TYPE; t44048.value.string_type = ""; l6544: /* x140079 stalin.sc:18041:633131 */ t44056.tag = STRUCTURE_TYPE24753; t44056.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t44056.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18041, 633130); out_of_memory_error();} t44056.value.structure_type24753->s0 = *((struct w49 *)(&t44051)); t44056.value.structure_type24753->s1.tag = NULL_TYPE; t44055.tag = STRUCTURE_TYPE24753; t44055.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t44055.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18041, 633130); out_of_memory_error();} t44055.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t44055.value.structure_type24753->s0.value.structure_type24753 = t44050; t44055.value.structure_type24753->s1 = t44056; t44054.tag = STRUCTURE_TYPE24753; t44054.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t44054.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18041, 633130); out_of_memory_error();} t44054.value.structure_type24753->s0 = t44049; t44054.value.structure_type24753->s1 = t44055; a41918 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41918==NULL) {backtrace("stalin.sc", 18041, 633130); out_of_memory_error();} a41918->s0 = *((struct w49 *)(&t44048)); a41918->s1 = t44054; /* x301784 stalin.sc:14400:506485 */ /* x301783 stalin.sc:14400:506503 */ t44052 = a41918; /* x301782 stalin.sc:14400:506486 */ t44053.tag = STRUCTURE_TYPE24753; t44053.value.structure_type24753 = t44052; return f13492(t44053); l6540: /* x140238 stalin.sc:18074:634295 */ /* x140237 stalin.sc:18074:634296 */ /* x276819 stalin.sc:14693:514793 */ r15328.tag = STRING_TYPE; r15328.value.string_type = ""; return r15328; l6536: /* x140256 */ /* x140244 stalin.sc:18075:634309 */ /* x140243 stalin.sc:18075:634318 */ t44040 = a26564; /* x140242 stalin.sc:18075:634310 */ a38452 = t44040; /* x286477 */ /* x286476 */ t44041 = a38452; /* x286475 */ if (!((t44041.tag)==STRUCTURE_TYPE27501)) goto l6538; /* x140251 */ /* x140250 */ /* x140249 stalin.sc:18075:634323 */ /* x140248 stalin.sc:18075:634340 */ /* x140247 stalin.sc:18075:634360 */ t44044 = a26564; /* x140246 stalin.sc:18075:634341 */ a38444 = t44044; /* x286445 */ /* x286444 */ t44045 = a38444; /* x286443 */ if (!((t44045.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-ENVIRONMENT[5753] 33361]"); structure_ref_error();} t44043 = t44045.value.structure_type27501->s1; /* x140245 stalin.sc:18075:634324 */ a26564 = t44043; goto h15328; l6538: /* x140255 */ /* x140254 */ /* x140253 stalin.sc:18076:634375 */ /* x140252 stalin.sc:18076:634376 */ /* x296581 QobiScheme.sc:166:5314 */ /* x296580 QobiScheme.sc:166:5321 */ t44042 = "This shouldn\'t happen"; /* x296579 QobiScheme.sc:166:5315 */ stalin_panic(t44042);} /* RESTORE?[15324] */ unsigned f15324(struct w49 a26563) {struct w49 a19315; /* OBJ */ struct w49 a36747; /* OBJ */ struct w49 a38441; /* S */ struct w49 t44194; struct w49 t44195; struct w49 t44196; struct w49 t44197; char *t44198; struct w49 t44199; struct w49 t44200; struct w49 t44201; struct w49 t44202; struct w49 t44203; h15324: /* x140065 stalin.sc:18028:632484 */ /* x140039 stalin.sc:18028:632491 */ /* x140038 stalin.sc:18028:632505 */ t44194 = a26563; /* x140037 stalin.sc:18028:632492 */ a36747 = t44194; /* x279657 */ /* x279656 */ t44195 = a36747; /* x279655 */ if (!((t44195.tag)==STRUCTURE_TYPE27694)) goto l6555; /* x140049 */ /* x140048 */ /* x140047 stalin.sc:18028:632510 */ /* x140047 stalin.sc:18028:632510 */ /* x140042 stalin.sc:18028:632515 */ /* x140041 stalin.sc:18028:632528 */ t44202 = a26563; /* x140040 stalin.sc:18028:632516 */ if (f8528(t44202)==FALSE_TYPE) goto l6559; /* x140045 */ /* x140044 stalin.sc:18028:632545 */ t44203 = a26563; /* x140043 stalin.sc:18028:632534 */ if (f8543(t44203)==FALSE_TYPE) goto l6559; return TRUE_TYPE; l6559: return FALSE_TYPE; l6555: /* x140064 */ /* x140052 stalin.sc:18029:632560 */ /* x140051 stalin.sc:18029:632569 */ t44196 = a26563; /* x140050 stalin.sc:18029:632561 */ a19315 = t44196; /* x50900 */ /* x50899 */ t44197 = a19315; /* x50898 */ if (!((t44197.tag)==STRUCTURE_TYPE27501)) goto l6557; /* x140059 */ /* x140058 */ /* x140057 stalin.sc:18029:632574 */ /* x140056 stalin.sc:18029:632584 */ /* x140055 stalin.sc:18029:632604 */ t44200 = a26563; /* x140054 stalin.sc:18029:632585 */ a38441 = t44200; /* x286433 */ /* x286432 */ t44201 = a38441; /* x286431 */ if (!((t44201.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-ENVIRONMENT[5753] 33358]"); structure_ref_error();} t44199 = t44201.value.structure_type27501->s1; /* x140053 stalin.sc:18029:632575 */ a26563 = t44199; goto h15324; l6557: /* x140063 */ /* x140062 */ /* x140061 stalin.sc:18030:632624 */ /* x140060 stalin.sc:18030:632625 */ /* x295593 QobiScheme.sc:166:5314 */ /* x295592 QobiScheme.sc:166:5321 */ t44198 = "This shouldn\'t happen"; /* x295591 QobiScheme.sc:166:5315 */ stalin_panic(t44198);} /* [inside COMPILE-ERROR-PROCEDURES 15322] */ struct w49 f15322(struct w49 a26561) {struct w49 a36164; /* PAIR */ struct structure_type24753 *a42097; /* CS */ char *t44204; struct structure_type24753 *t44205; struct structure_type24753 *t44206; struct structure_type24753 *t44207; struct w49 t44208; struct w49 t44209; struct w49 t44210; struct structure_type24753 *t44211; struct w49 t44212; struct structure_type24753 *t44213; struct w49 t44214; struct w49 t44215; struct w49 t44216; struct structure_type24753 *t44217; struct w49 t44218; struct structure_type24753 *t44219; struct w49 t44220; struct w49 t44221; struct w49 t44222; struct w49 t44223; struct w49 t44224; struct w49 t44225; char *t44226; unsigned t44227; struct w49 t44228; struct w49 t44229; char *t44230; struct w49 t44231; /* x140030 */ /* x140029 stalin.sc:18016:632166 */ /* x140028 stalin.sc:18016:632183 */ a748 = TRUE_TYPE; /* x140027 */ /* x140026 stalin.sc:18018:632241 */ /* x140025 stalin.sc:18021:632304 */ /* x140024 stalin.sc:18022:632322 */ /* x140023 stalin.sc:18022:632331 */ /* x140022 stalin.sc:18022:632341 */ /* x140011 stalin.sc:18022:632345 */ /* x140009 stalin.sc:18022:632350 */ /* x140008 stalin.sc:18022:632357 */ t44223 = a26561; /* x140007 stalin.sc:18022:632351 */ t44222 = f26187(t44223); /* x140010 stalin.sc:18022:632364 */ /* x268608 stalin.sc:18022:632346 */ if (!((t44222.tag)==TRUE_TYPE)) goto l6563; /* x140018 stalin.sc:18023:632373 */ /* x140017 stalin.sc:18023:632399 */ t44226 = "is not"; /* x140016 stalin.sc:18023:632384 */ /* x140015 stalin.sc:18023:632392 */ t44231 = a26561; /* x140014 stalin.sc:18023:632385 */ t44225 = f26181(t44231); /* x140013 stalin.sc:18023:632381 */ /* x140012 stalin.sc:18023:632374 */ t44227 = FALSE_TYPE; t44228 = t44225; t44229.tag = STRUCTURE_TYPE24753; t44229.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t44229.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18023, 632373); out_of_memory_error();} t44229.value.structure_type24753->s0.tag = STRING_TYPE; t44229.value.structure_type24753->s0.value.string_type = t44226; t44229.value.structure_type24753->s1.tag = NULL_TYPE; t44230 = f665(t44227, t44228, t44229); t44221.tag = STRING_TYPE; t44221.value.string_type = t44230; goto l6564; l6563: /* x140021 stalin.sc:18024:632414 */ /* x140020 stalin.sc:18024:632422 */ t44224 = a26561; /* x140019 stalin.sc:18024:632415 */ t44221 = f26181(t44224); l6564: /* x140005 stalin.sc:18022:632332 */ t44219 = f13532(t44221); /* x140004 stalin.sc:18022:632323 */ t44220.tag = STRUCTURE_TYPE24753; t44220.value.structure_type24753 = t44219; t44217 = f14365(t44220); /* x140003 stalin.sc:18021:632305 */ t44218.tag = STRUCTURE_TYPE24753; t44218.value.structure_type24753 = t44217; t44206 = f13501(t44218); /* x140002 stalin.sc:18020:632267 */ /* x140001 stalin.sc:18020:632277 */ /* x140000 stalin.sc:18020:632286 */ /* x139999 stalin.sc:18020:632293 */ t44215 = a26561; /* x139998 stalin.sc:18020:632287 */ a36164 = t44215; /* x276013 */ /* x276012 */ t44216 = a36164; /* x276011 */ if (!((t44216.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30313]"); structure_ref_error();} t44214 = t44216.value.structure_type24753->s0; /* x139997 stalin.sc:18020:632278 */ t44211 = f14320(t44214); /* x139996 stalin.sc:18020:632268 */ t44212.tag = STRUCTURE_TYPE24753; t44212.value.structure_type24753 = t44211; t44213 = (struct structure_type24753 *)NULL_TYPE; t44205 = f13641(t44212, t44213); /* x139995 stalin.sc:18019:632258 */ t44204 = "void"; /* x139994 stalin.sc:18018:632242 */ t44210.tag = STRUCTURE_TYPE24753; t44210.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t44210.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18018, 632241); out_of_memory_error();} t44210.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t44210.value.structure_type24753->s0.value.structure_type24753 = t44206; t44210.value.structure_type24753->s1.tag = NULL_TYPE; t44209.tag = STRUCTURE_TYPE24753; t44209.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t44209.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18018, 632241); out_of_memory_error();} t44209.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t44209.value.structure_type24753->s0.value.structure_type24753 = t44205; t44209.value.structure_type24753->s1 = t44210; a42097 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42097==NULL) {backtrace("stalin.sc", 18018, 632241); out_of_memory_error();} a42097->s0.tag = STRING_TYPE; a42097->s0.value.string_type = t44204; a42097->s1 = t44209; /* x302500 stalin.sc:14386:505956 */ /* x302499 stalin.sc:14386:505972 */ t44207 = a42097; /* x302498 stalin.sc:14386:505957 */ t44208.tag = STRUCTURE_TYPE24753; t44208.value.structure_type24753 = t44207; return f13474(t44208);} /* [inside COMPILE-ERROR-PROCEDURE-PROTOTYPES 15319] */ struct w49 f15319(struct w49 a26559) {struct w49 a35654; /* PAIR */ struct structure_type24753 *a41968; /* CS */ char *t44232; struct structure_type24753 *t44233; struct structure_type24753 *t44234; struct w49 t44235; struct w49 t44236; struct structure_type24753 *t44237; struct w49 t44238; struct structure_type24753 *t44239; struct w49 t44240; struct w49 t44241; struct w49 t44242; /* x139985 */ /* x139984 stalin.sc:18007:631894 */ /* x139983 stalin.sc:18007:631911 */ a748 = TRUE_TYPE; /* x139982 */ /* x139981 stalin.sc:18009:631969 */ /* x139980 stalin.sc:18009:631991 */ /* x139979 stalin.sc:18009:632013 */ /* x139978 stalin.sc:18009:632022 */ /* x139977 stalin.sc:18009:632029 */ t44241 = a26559; /* x139976 stalin.sc:18009:632023 */ a35654 = t44241; /* x273973 */ /* x273972 */ t44242 = a35654; /* x273971 */ if (!((t44242.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29803]"); structure_ref_error();} t44240 = t44242.value.structure_type24753->s0; /* x139975 stalin.sc:18009:632014 */ t44237 = f14320(t44240); /* x139974 stalin.sc:18009:631992 */ t44238.tag = STRUCTURE_TYPE24753; t44238.value.structure_type24753 = t44237; t44239 = (struct structure_type24753 *)NULL_TYPE; t44233 = f13643(t44238, t44239); /* x139973 stalin.sc:18009:631984 */ t44232 = "void"; /* x139972 stalin.sc:18009:631970 */ t44236.tag = STRUCTURE_TYPE24753; t44236.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t44236.value.structure_type24753)==NULL) {backtrace("stalin.sc", 18009, 631969); out_of_memory_error();} t44236.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t44236.value.structure_type24753->s0.value.structure_type24753 = t44233; t44236.value.structure_type24753->s1.tag = NULL_TYPE; a41968 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41968==NULL) {backtrace("stalin.sc", 18009, 631969); out_of_memory_error();} a41968->s0.tag = STRING_TYPE; a41968->s0.value.string_type = t44232; a41968->s1 = t44236; /* x301984 stalin.sc:14386:505956 */ /* x301983 stalin.sc:14386:505972 */ t44234 = a41968; /* x301982 stalin.sc:14386:505957 */ t44235.tag = STRUCTURE_TYPE24753; t44235.value.structure_type24753 = t44234; return f13474(t44235);} /* LOOP[15308] */ void f15308(struct w49 a26554) {struct w49 a35853; /* PAIR */ struct w49 a35854; /* PAIR */ struct w49 a35855; /* PAIR */ struct w49 a35856; /* PAIR */ struct w49 a35857; /* PAIR */ struct w49 a35858; /* PAIR */ struct w49 a35859; /* PAIR */ struct w49 a35860; /* PAIR */ struct w49 a35861; /* PAIR */ struct w49 a35862; /* PAIR */ struct w49 a35863; /* PAIR */ struct w49 a35864; /* PAIR */ struct w49 a35865; /* PAIR */ struct w49 a35866; /* PAIR */ struct w49 a35867; /* PAIR */ struct w49 a35868; /* PAIR */ struct w49 a35869; /* PAIR */ struct w49 a35870; /* PAIR */ struct w49 a35871; /* PAIR */ struct w49 a35872; /* PAIR */ struct w49 a35873; /* PAIR */ struct w49 t44243; struct structure_type24753 *t44244; struct w49 t44245; struct w49 t44246; struct w49 t44247; struct w49 t44248; struct w49 t44249; struct w49 t44250; int t44251; int t44252; struct w49 t44253; struct w49 t44254; struct w49 t44255; struct w49 t44256; int t44257; int t44258; struct w49 t44259; struct w49 t44260; struct w49 t44261; struct w49 t44262; struct w49 t44263; struct w49 t44264; struct w49 t44265; struct w49 t44266; struct w49 t44267; char *t44268; struct w49 t44269; struct w49 t44270; struct w49 t44271; struct w49 t44272; struct w49 t44273; struct w49 t44274; struct w49 t44275; struct w49 t44276; struct w49 t44277; struct w49 t44278; struct w49 t44279; char *t44280; struct w49 t44281; struct w49 t44282; struct w49 t44283; struct w49 t44284; struct w49 t44285; struct w49 t44286; struct w49 t44287; struct w49 t44288; struct w49 t44289; int t44290; int t44291; struct w49 t44292; struct w49 t44293; struct w49 t44294; struct w49 t44295; struct w49 t44296; struct w49 t44297; struct w49 t44298; struct w49 t44299; struct w49 t44300; struct w49 t44301; struct w49 t44302; char *t44303; struct w49 t44304; struct w49 t44305; struct w49 t44306; struct w49 t44307; struct w49 t44308; struct w49 t44309; struct w49 t44310; struct w49 t44311; char *t44312; struct w49 t44313; struct w49 t44314; struct w49 t44315; struct w49 t44316; struct w49 t44317; struct w49 t44318; struct w49 t44319; struct w49 t44320; char *t44321; struct w49 t44322; struct w49 t44323; struct w49 t44324; struct w49 t44325; struct w49 t44326; struct w49 t44327; struct w49 t44328; struct w49 t44329; struct w49 t44330; struct w49 t44331; struct w49 t44332; struct w49 t44333; struct w49 t44334; struct structure_type24753 *t44335; struct w49 t44336; struct w49 t44337; struct w49 t44338; struct w49 t44339; struct w49 t44340; struct structure_type24753 *t44341; struct w49 t44342; struct w49 t44343; struct w49 t44344; h15308: /* x139096 */ /* x139095 stalin.sc:17818:622904 */ /* x139081 stalin.sc:17818:622910 */ /* x138921 stalin.sc:17818:622915 */ /* x138920 stalin.sc:17818:622922 */ t44250 = a26554; /* x138919 stalin.sc:17818:622916 */ if (f26209(t44250)==FALSE_TYPE) goto l6569; /* x139079 */ /* x138927 stalin.sc:17819:622932 */ /* x138925 stalin.sc:17819:622935 */ /* x138924 stalin.sc:17819:622943 */ t44253 = a26554; /* x138923 stalin.sc:17819:622936 */ t44251 = f26227(t44253); /* x138926 stalin.sc:17819:622946 */ t44252 = 2; /* x268617 stalin.sc:17819:622933 */ if (!(t44251==t44252)) goto l6569; /* x139077 */ /* x138932 stalin.sc:17820:622956 */ /* x138931 stalin.sc:17820:622963 */ /* x138930 stalin.sc:17820:622970 */ t44255 = a26554; /* x138929 stalin.sc:17820:622964 */ a35873 = t44255; /* x274849 */ /* x274848 */ t44256 = a35873; /* x274847 */ if (!((t44256.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30022]"); structure_ref_error();} t44254 = t44256.value.structure_type24753->s0; /* x138928 stalin.sc:17820:622957 */ if (f26209(t44254)==FALSE_TYPE) goto l6569; /* x139075 */ /* x138940 stalin.sc:17821:622981 */ /* x138938 stalin.sc:17821:622984 */ /* x138937 stalin.sc:17821:622992 */ /* x138936 stalin.sc:17821:622999 */ t44260 = a26554; /* x138935 stalin.sc:17821:622993 */ a35872 = t44260; /* x274845 */ /* x274844 */ t44261 = a35872; /* x274843 */ if (!((t44261.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30021]"); structure_ref_error();} t44259 = t44261.value.structure_type24753->s0; /* x138934 stalin.sc:17821:622985 */ t44257 = f26227(t44259); /* x138939 stalin.sc:17821:623003 */ t44258 = 3; /* x268616 stalin.sc:17821:622982 */ if (!(t44257==t44258)) goto l6569; /* x139073 */ /* x138947 stalin.sc:17822:623013 */ /* x138946 stalin.sc:17822:623022 */ /* x138945 stalin.sc:17822:623029 */ /* x138944 stalin.sc:17822:623036 */ t44265 = a26554; /* x138943 stalin.sc:17822:623030 */ a35871 = t44265; /* x274841 */ /* x274840 */ t44266 = a35871; /* x274839 */ if (!((t44266.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30020]"); structure_ref_error();} t44263 = t44266.value.structure_type24753->s0; /* x138942 stalin.sc:17822:623023 */ a35870 = t44263; /* x274837 */ /* x274836 */ t44264 = a35870; /* x274835 */ if (!((t44264.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30019]"); structure_ref_error();} t44262 = t44264.value.structure_type24753->s0; /* x268615 stalin.sc:17822:623014 */ if (!((t44262.tag)==STRING_TYPE)) goto l6569; /* x139071 */ /* x138955 stalin.sc:17823:623048 */ /* x138954 stalin.sc:17823:623076 */ t44268 = "goto"; /* x138953 stalin.sc:17823:623058 */ /* x138952 stalin.sc:17823:623065 */ /* x138951 stalin.sc:17823:623072 */ t44273 = a26554; /* x138950 stalin.sc:17823:623066 */ a35869 = t44273; /* x274833 */ /* x274832 */ t44274 = a35869; /* x274831 */ if (!((t44274.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30018]"); structure_ref_error();} t44271 = t44274.value.structure_type24753->s0; /* x138949 stalin.sc:17823:623059 */ a35868 = t44271; /* x274829 */ /* x274828 */ t44272 = a35868; /* x274827 */ if (!((t44272.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30017]"); structure_ref_error();} t44267 = t44272.value.structure_type24753->s0; /* x138948 stalin.sc:17823:623049 */ t44269 = t44267; t44270.tag = STRING_TYPE; t44270.value.string_type = t44268; if (f27434(t44269, t44270)==FALSE_TYPE) goto l6569; /* x139069 */ /* x138962 stalin.sc:17824:623091 */ /* x138961 stalin.sc:17824:623100 */ /* x138960 stalin.sc:17824:623108 */ /* x138959 stalin.sc:17824:623115 */ t44277 = a26554; /* x138958 stalin.sc:17824:623109 */ a35867 = t44277; /* x274825 */ /* x274824 */ t44278 = a35867; /* x274823 */ if (!((t44278.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30016]"); structure_ref_error();} t44276 = t44278.value.structure_type24753->s0; /* x138957 stalin.sc:17824:623101 */ t44275 = f26181(t44276); /* x268614 stalin.sc:17824:623092 */ if (!((t44275.tag)==STRING_TYPE)) goto l6569; /* x139067 */ /* x138970 stalin.sc:17825:623127 */ /* x138969 stalin.sc:17825:623156 */ t44280 = " "; /* x138968 stalin.sc:17825:623137 */ /* x138967 stalin.sc:17825:623145 */ /* x138966 stalin.sc:17825:623152 */ t44284 = a26554; /* x138965 stalin.sc:17825:623146 */ a35866 = t44284; /* x274821 */ /* x274820 */ t44285 = a35866; /* x274819 */ if (!((t44285.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30015]"); structure_ref_error();} t44283 = t44285.value.structure_type24753->s0; /* x138964 stalin.sc:17825:623138 */ t44279 = f26181(t44283); /* x138963 stalin.sc:17825:623128 */ t44281 = t44279; t44282.tag = STRING_TYPE; t44282.value.string_type = t44280; if (f27434(t44281, t44282)==FALSE_TYPE) goto l6569; /* x139065 */ /* x138977 stalin.sc:17827:623169 */ /* x138976 stalin.sc:17827:623176 */ /* x138975 stalin.sc:17827:623183 */ /* x138974 stalin.sc:17827:623190 */ t44288 = a26554; /* x138973 stalin.sc:17827:623184 */ a35865 = t44288; /* x274817 */ /* x274816 */ t44289 = a35865; /* x274815 */ if (!((t44289.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30014]"); structure_ref_error();} t44287 = t44289.value.structure_type24753->s0; /* x138972 stalin.sc:17827:623177 */ t44286 = f26187(t44287); /* x138971 stalin.sc:17827:623170 */ if (f26209(t44286)==FALSE_TYPE) goto l6569; /* x139063 */ /* x138987 stalin.sc:17828:623202 */ /* x138985 stalin.sc:17828:623205 */ /* x138984 stalin.sc:17828:623213 */ /* x138983 stalin.sc:17828:623220 */ /* x138982 stalin.sc:17828:623227 */ t44294 = a26554; /* x138981 stalin.sc:17828:623221 */ a35864 = t44294; /* x274813 */ /* x274812 */ t44295 = a35864; /* x274811 */ if (!((t44295.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30013]"); structure_ref_error();} t44293 = t44295.value.structure_type24753->s0; /* x138980 stalin.sc:17828:623214 */ t44292 = f26187(t44293); /* x138979 stalin.sc:17828:623206 */ t44290 = f26227(t44292); /* x138986 stalin.sc:17828:623232 */ t44291 = 2; /* x268613 stalin.sc:17828:623203 */ if (!(t44290==t44291)) goto l6569; /* x139061 */ /* x138996 stalin.sc:17829:623242 */ /* x138995 stalin.sc:17829:623251 */ /* x138994 stalin.sc:17829:623258 */ /* x138993 stalin.sc:17829:623265 */ /* x138992 stalin.sc:17829:623272 */ t44300 = a26554; /* x138991 stalin.sc:17829:623266 */ a35863 = t44300; /* x274809 */ /* x274808 */ t44301 = a35863; /* x274807 */ if (!((t44301.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30012]"); structure_ref_error();} t44299 = t44301.value.structure_type24753->s0; /* x138990 stalin.sc:17829:623259 */ t44297 = f26187(t44299); /* x138989 stalin.sc:17829:623252 */ a35862 = t44297; /* x274805 */ /* x274804 */ t44298 = a35862; /* x274803 */ if (!((t44298.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30011]"); structure_ref_error();} t44296 = t44298.value.structure_type24753->s0; /* x268612 stalin.sc:17829:623243 */ if (!((t44296.tag)==STRING_TYPE)) goto l6569; /* x139059 */ /* x139036 stalin.sc:17830:623285 */ /* x139035 stalin.sc:17830:623289 */ /* x139034 stalin.sc:17830:623325 */ t44303 = "h"; /* x139033 stalin.sc:17830:623299 */ /* x139032 stalin.sc:17830:623306 */ /* x139031 stalin.sc:17830:623313 */ /* x139030 stalin.sc:17830:623320 */ t44309 = a26554; /* x139029 stalin.sc:17830:623314 */ a35861 = t44309; /* x274801 */ /* x274800 */ t44310 = a35861; /* x274799 */ if (!((t44310.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30010]"); structure_ref_error();} t44308 = t44310.value.structure_type24753->s0; /* x139028 stalin.sc:17830:623307 */ t44306 = f26187(t44308); /* x139027 stalin.sc:17830:623300 */ a35860 = t44306; /* x274797 */ /* x274796 */ t44307 = a35860; /* x274795 */ if (!((t44307.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30009]"); structure_ref_error();} t44302 = t44307.value.structure_type24753->s0; /* x139026 stalin.sc:17830:623290 */ t44304 = t44302; t44305.tag = STRING_TYPE; t44305.value.string_type = t44303; if (!(f27434(t44304, t44305)==FALSE_TYPE)) goto l6582; /* x139023 */ /* x139022 stalin.sc:17831:623334 */ /* x139021 stalin.sc:17831:623370 */ t44312 = "l"; /* x139020 stalin.sc:17831:623344 */ /* x139019 stalin.sc:17831:623351 */ /* x139018 stalin.sc:17831:623358 */ /* x139017 stalin.sc:17831:623365 */ t44318 = a26554; /* x139016 stalin.sc:17831:623359 */ a35859 = t44318; /* x274793 */ /* x274792 */ t44319 = a35859; /* x274791 */ if (!((t44319.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30008]"); structure_ref_error();} t44317 = t44319.value.structure_type24753->s0; /* x139015 stalin.sc:17831:623352 */ t44315 = f26187(t44317); /* x139014 stalin.sc:17831:623345 */ a35858 = t44315; /* x274789 */ /* x274788 */ t44316 = a35858; /* x274787 */ if (!((t44316.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30007]"); structure_ref_error();} t44311 = t44316.value.structure_type24753->s0; /* x139013 stalin.sc:17831:623335 */ t44313 = t44311; t44314.tag = STRING_TYPE; t44314.value.string_type = t44312; if (!(f27434(t44313, t44314)==FALSE_TYPE)) goto l6582; /* x139010 */ /* x139009 stalin.sc:17832:623415 */ t44321 = "x"; /* x139008 stalin.sc:17832:623389 */ /* x139007 stalin.sc:17832:623396 */ /* x139006 stalin.sc:17832:623403 */ /* x139005 stalin.sc:17832:623410 */ t44327 = a26554; /* x139004 stalin.sc:17832:623404 */ a35857 = t44327; /* x274785 */ /* x274784 */ t44328 = a35857; /* x274783 */ if (!((t44328.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30006]"); structure_ref_error();} t44326 = t44328.value.structure_type24753->s0; /* x139003 stalin.sc:17832:623397 */ t44324 = f26187(t44326); /* x139002 stalin.sc:17832:623390 */ a35856 = t44324; /* x274781 */ /* x274780 */ t44325 = a35856; /* x274779 */ if (!((t44325.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30005]"); structure_ref_error();} t44320 = t44325.value.structure_type24753->s0; /* x139001 stalin.sc:17832:623380 */ t44322 = t44320; t44323.tag = STRING_TYPE; t44323.value.string_type = t44321; if (f27434(t44322, t44323)==FALSE_TYPE) goto l6569; l6582: /* x139057 */ /* x139045 stalin.sc:17833:623428 */ /* x139044 stalin.sc:17833:623437 */ /* x139043 stalin.sc:17833:623445 */ /* x139042 stalin.sc:17833:623452 */ /* x139041 stalin.sc:17833:623459 */ t44332 = a26554; /* x139040 stalin.sc:17833:623453 */ a35855 = t44332; /* x274777 */ /* x274776 */ t44333 = a35855; /* x274775 */ if (!((t44333.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30004]"); structure_ref_error();} t44331 = t44333.value.structure_type24753->s0; /* x139039 stalin.sc:17833:623446 */ t44330 = f26187(t44331); /* x139038 stalin.sc:17833:623438 */ t44329 = f26181(t44330); /* x268611 stalin.sc:17833:623429 */ if (!((t44329.tag)==STRING_TYPE)) goto l6569; /* x139055 */ /* x139054 stalin.sc:17834:623477 */ /* x139052 stalin.sc:17834:623485 */ /* x139051 stalin.sc:17834:623492 */ /* x139050 stalin.sc:17834:623499 */ t44338 = a26554; /* x139049 stalin.sc:17834:623493 */ a35854 = t44338; /* x274773 */ /* x274772 */ t44339 = a35854; /* x274771 */ if (!((t44339.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30003]"); structure_ref_error();} t44337 = t44339.value.structure_type24753->s0; /* x139048 stalin.sc:17834:623486 */ t44334 = f26187(t44337); /* x139053 stalin.sc:17834:623503 */ t44335 = a26544; /* x139047 stalin.sc:17834:623478 */ /* MOVE: branching squeezed to general */ if (t44335>=((struct structure_type24753 *)VALUE_OFFSET)) {t44336.tag = STRUCTURE_TYPE24753; t44336.value.structure_type24753 = t44335;} else t44336.tag = (unsigned)t44335; if (!((f26353(t44334, t44336).tag)==FALSE_TYPE)) goto l6569; /* x139092 */ /* x139091 */ /* x139090 stalin.sc:17835:623513 */ /* x139089 stalin.sc:17835:623522 */ /* x139087 stalin.sc:17835:623528 */ /* x139086 stalin.sc:17835:623535 */ /* x139085 stalin.sc:17835:623542 */ t44343 = a26554; /* x139084 stalin.sc:17835:623536 */ a35853 = t44343; /* x274769 */ /* x274768 */ t44344 = a35853; /* x274767 */ if (!((t44344.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30002]"); structure_ref_error();} t44342 = t44344.value.structure_type24753->s0; /* x139083 stalin.sc:17835:623529 */ t44340 = f26187(t44342); /* x139088 stalin.sc:17835:623546 */ t44341 = a26544; /* x268609 stalin.sc:17835:623523 */ a26544 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a26544==NULL) {backtrace("stalin.sc", 17835, 623522); out_of_memory_error();} a26544->s0 = t44340; /* MOVE: branching squeezed to general */ if (t44341>=((struct structure_type24753 *)VALUE_OFFSET)) {a26544->s1.tag = STRUCTURE_TYPE24753; a26544->s1.value.structure_type24753 = t44341;} else a26544->s1.tag = (unsigned)t44341; goto l6570; l6569: /* x139094 stalin.sc:17818:622904 */ /* x139093 stalin.sc:17818:622904 */ l6570: /* x138918 */ /* x138917 stalin.sc:17836:623555 */ /* x138900 stalin.sc:17836:623561 */ /* x138893 stalin.sc:17836:623566 */ /* x138892 stalin.sc:17836:623573 */ t44243 = a26554; /* x268621 stalin.sc:17836:623567 */ if (!((t44243.tag)==STRUCTURE_TYPE24753)) goto l6566; /* x138898 */ /* x138897 stalin.sc:17836:623581 */ /* x138896 stalin.sc:17836:623597 */ t44244 = a26554.value.structure_type24753; /* x138895 stalin.sc:17836:623582 */ t44245.tag = STRUCTURE_TYPE24753; t44245.value.structure_type24753 = t44244; if (!(f13410(t44245)==FALSE_TYPE)) goto l6566; /* x138914 */ /* x138913 */ /* x138912 */ /* x138911 stalin.sc:17837:623606 */ /* x138910 stalin.sc:17837:623612 */ /* x138909 stalin.sc:17837:623617 */ t44249 = a26554; /* x268618 stalin.sc:17837:623613 */ if (!((t44249.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17837, 623612); structure_ref_error();} t44248 = t44249.value.structure_type24753->s0; /* x138907 stalin.sc:17837:623607 */ f15308(t44248); /* x138906 */ /* x138905 stalin.sc:17838:623625 */ /* x138904 stalin.sc:17838:623631 */ /* x138903 stalin.sc:17838:623636 */ t44247 = a26554; /* x268619 stalin.sc:17838:623632 */ if (!((t44247.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17838, 623631); structure_ref_error();} t44246 = t44247.value.structure_type24753->s1; /* x138901 stalin.sc:17838:623626 */ a26554 = t44246; goto h15308; l6566: /* x138916 stalin.sc:17836:623555 */ /* x138915 stalin.sc:17836:623555 */ return;} /* LOOP[15297] */ void f15297(struct w49 a26548) {struct w49 a35839; /* PAIR */ struct w49 a35840; /* PAIR */ struct w49 t44345; struct structure_type24753 *t44346; struct w49 t44347; struct w49 t44348; struct w49 t44349; struct w49 t44350; struct w49 t44351; struct w49 t44352; struct structure_type24753 *t44353; struct w49 t44354; struct w49 t44355; struct w49 t44356; struct w49 t44357; struct w49 t44358; struct w49 t44359; struct w49 t44360; struct w49 t44361; struct structure_type24753 *t44362; struct w49 t44363; struct w49 t44364; struct w49 t44365; struct w49 t44366; struct w49 t44367; struct w49 t44368; struct w49 t44369; h15297: /* x138878 stalin.sc:17840:623665 */ /* x138809 stalin.sc:17840:623671 */ /* x138802 stalin.sc:17840:623676 */ /* x138801 stalin.sc:17840:623683 */ t44345 = a26548; /* x268633 stalin.sc:17840:623677 */ if (!((t44345.tag)==STRUCTURE_TYPE24753)) goto l6587; /* x138807 */ /* x138806 stalin.sc:17840:623691 */ /* x138805 stalin.sc:17840:623707 */ t44346 = a26548.value.structure_type24753; /* x138804 stalin.sc:17840:623692 */ t44347.tag = STRUCTURE_TYPE24753; t44347.value.structure_type24753 = t44346; if (!(f13410(t44347)==FALSE_TYPE)) goto l6587; /* x138875 */ /* x138874 */ /* x138873 */ /* x138841 stalin.sc:17841:623716 */ /* x138832 stalin.sc:17841:623722 */ /* x138820 stalin.sc:17841:623727 */ /* x138819 stalin.sc:17841:623737 */ /* x138818 stalin.sc:17841:623742 */ t44351 = a26548; /* x268630 stalin.sc:17841:623738 */ if (!((t44351.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17841, 623737); structure_ref_error();} t44350 = t44351.value.structure_type24753->s0; /* x138816 stalin.sc:17841:623728 */ if (f13457(t44350)==FALSE_TYPE) goto l6590; /* x138830 */ /* x138829 stalin.sc:17841:623751 */ /* x138827 stalin.sc:17841:623759 */ /* x138826 stalin.sc:17841:623766 */ /* x138825 stalin.sc:17841:623771 */ t44357 = a26548; /* x268628 stalin.sc:17841:623767 */ if (!((t44357.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17841, 623766); structure_ref_error();} t44355 = t44357.value.structure_type24753->s0; /* x138823 stalin.sc:17841:623760 */ a35839 = t44355; /* x274713 */ /* x274712 */ t44356 = a35839; /* x274711 */ if (!((t44356.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29988]"); structure_ref_error();} t44352 = t44356.value.structure_type24753->s0; /* x138828 stalin.sc:17841:623775 */ t44353 = a26544; /* x138822 stalin.sc:17841:623752 */ /* MOVE: branching squeezed to general */ if (t44353>=((struct structure_type24753 *)VALUE_OFFSET)) {t44354.tag = STRUCTURE_TYPE24753; t44354.value.structure_type24753 = t44353;} else t44354.tag = (unsigned)t44353; if (!((f26353(t44352, t44354).tag)==FALSE_TYPE)) goto l6590; /* x138838 */ /* x138837 */ /* x138836 stalin.sc:17842:623786 */ /* x138834 stalin.sc:17842:623796 */ t44358 = a26548; /* x138835 stalin.sc:17842:623798 */ /* x268627 stalin.sc:17842:623787 */ if (!((t44358.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17842, 623786); structure_set_error();} t44358.value.structure_type24753->s0.tag = NULL_TYPE; goto l6591; l6590: /* x138840 stalin.sc:17841:623716 */ /* x138839 stalin.sc:17841:623716 */ l6591: /* x138867 stalin.sc:17843:623808 */ /* x138858 stalin.sc:17843:623814 */ /* x138846 stalin.sc:17843:623819 */ /* x138845 stalin.sc:17843:623829 */ /* x138844 stalin.sc:17843:623834 */ t44360 = a26548; /* x268626 stalin.sc:17843:623830 */ if (!((t44360.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17843, 623829); structure_ref_error();} t44359 = t44360.value.structure_type24753->s1; /* x138842 stalin.sc:17843:623820 */ if (f13457(t44359)==FALSE_TYPE) goto l6594; /* x138856 */ /* x138855 stalin.sc:17843:623843 */ /* x138853 stalin.sc:17843:623851 */ /* x138852 stalin.sc:17843:623858 */ /* x138851 stalin.sc:17843:623863 */ t44366 = a26548; /* x268624 stalin.sc:17843:623859 */ if (!((t44366.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17843, 623858); structure_ref_error();} t44364 = t44366.value.structure_type24753->s1; /* x138849 stalin.sc:17843:623852 */ a35840 = t44364; /* x274717 */ /* x274716 */ t44365 = a35840; /* x274715 */ if (!((t44365.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29989]"); structure_ref_error();} t44361 = t44365.value.structure_type24753->s0; /* x138854 stalin.sc:17843:623867 */ t44362 = a26544; /* x138848 stalin.sc:17843:623844 */ /* MOVE: branching squeezed to general */ if (t44362>=((struct structure_type24753 *)VALUE_OFFSET)) {t44363.tag = STRUCTURE_TYPE24753; t44363.value.structure_type24753 = t44362;} else t44363.tag = (unsigned)t44362; if (!((f26353(t44361, t44363).tag)==FALSE_TYPE)) goto l6594; /* x138864 */ /* x138863 */ /* x138862 stalin.sc:17844:623878 */ /* x138860 stalin.sc:17844:623888 */ t44367 = a26548; /* x138861 stalin.sc:17844:623890 */ /* x268623 stalin.sc:17844:623879 */ if (!((t44367.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17844, 623878); structure_set_error();} t44367.value.structure_type24753->s1.tag = NULL_TYPE; goto l6595; l6594: /* x138866 stalin.sc:17843:623808 */ /* x138865 stalin.sc:17843:623808 */ l6595: /* x138872 stalin.sc:17845:623900 */ /* x138871 stalin.sc:17845:623906 */ /* x138870 stalin.sc:17845:623911 */ t44369 = a26548; /* x268622 stalin.sc:17845:623907 */ if (!((t44369.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17845, 623906); structure_ref_error();} t44368 = t44369.value.structure_type24753->s0; /* x138868 stalin.sc:17845:623901 */ f15297(t44368); /* x138815 */ /* x138814 stalin.sc:17846:623919 */ /* x138813 stalin.sc:17846:623925 */ /* x138812 stalin.sc:17846:623930 */ t44349 = a26548; /* x268631 stalin.sc:17846:623926 */ if (!((t44349.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17846, 623925); structure_ref_error();} t44348 = t44349.value.structure_type24753->s1; /* x138810 stalin.sc:17846:623920 */ a26548 = t44348; goto h15297; l6587: /* x138877 stalin.sc:17840:623665 */ /* x138876 stalin.sc:17840:623665 */ return;} /* [inside C:REMOVE-UNUSED-DECLARATIONS! 15290] */ int f15290(char a26541) {int t44370; int t44371; char t44372; char t44373; /* x138781 stalin.sc:17734:619899 */ /* x138777 stalin.sc:17734:619902 */ /* x138776 stalin.sc:17734:619917 */ t44372 = a26541; /* x268638 stalin.sc:17734:619903 */ t44370 = (int)((unsigned char)t44372); /* x138780 stalin.sc:17734:619923 */ /* x138779 stalin.sc:17734:619938 */ t44373 = '0'; /* x268637 stalin.sc:17734:619924 */ t44371 = (int)((unsigned char)t44373); /* x268639 stalin.sc:17734:619900 */ return t44370-t44371;} /* [inside C:REMOVE-UNUSED-DECLARATIONS! 15288] */ int f15288(char a26539) {int t44374; int t44375; char t44376; char t44377; /* x138759 stalin.sc:17741:620102 */ /* x138755 stalin.sc:17741:620105 */ /* x138754 stalin.sc:17741:620120 */ t44376 = a26539; /* x268644 stalin.sc:17741:620106 */ t44374 = (int)((unsigned char)t44376); /* x138758 stalin.sc:17741:620126 */ /* x138757 stalin.sc:17741:620141 */ t44377 = '0'; /* x268643 stalin.sc:17741:620127 */ t44375 = (int)((unsigned char)t44377); /* x268645 stalin.sc:17741:620103 */ return t44374-t44375;} /* [inside C:REMOVE-UNUSED-DECLARATIONS! 15286] */ int f15286(char a26537) {int t44378; int t44379; char t44380; char t44381; /* x138737 stalin.sc:17748:620305 */ /* x138733 stalin.sc:17748:620308 */ /* x138732 stalin.sc:17748:620323 */ t44380 = a26537; /* x268650 stalin.sc:17748:620309 */ t44378 = (int)((unsigned char)t44380); /* x138736 stalin.sc:17748:620329 */ /* x138735 stalin.sc:17748:620344 */ t44381 = '0'; /* x268649 stalin.sc:17748:620330 */ t44379 = (int)((unsigned char)t44381); /* x268651 stalin.sc:17748:620306 */ return t44378-t44379;} /* [inside C:REMOVE-UNUSED-DECLARATIONS! 15284] */ int f15284(char a26535) {int t44382; int t44383; char t44384; char t44385; /* x138715 stalin.sc:17755:620508 */ /* x138711 stalin.sc:17755:620511 */ /* x138710 stalin.sc:17755:620526 */ t44384 = a26535; /* x268656 stalin.sc:17755:620512 */ t44382 = (int)((unsigned char)t44384); /* x138714 stalin.sc:17755:620532 */ /* x138713 stalin.sc:17755:620547 */ t44385 = '0'; /* x268655 stalin.sc:17755:620533 */ t44383 = (int)((unsigned char)t44385); /* x268657 stalin.sc:17755:620509 */ return t44382-t44383;} /* LOOP[15257] */ void f15257(struct w49 a26528) {struct w49 a35833; /* PAIR */ struct w49 a35834; /* PAIR */ struct w49 a35835; /* PAIR */ struct w49 a35836; /* PAIR */ struct w49 a35837; /* PAIR */ struct w49 t44386; struct structure_type24753 *t44387; struct w49 t44388; struct w49 t44389; struct w49 t44390; struct w49 t44391; struct w49 t44392; struct w49 t44393; struct w49 t44394; struct w49 t44395; int t44396; int t44397; struct w49 t44398; struct w49 t44399; struct w49 t44400; struct w49 t44401; struct w49 t44402; struct w49 t44403; struct w49 t44404; struct w49 t44405; struct w49 t44406; struct w49 t44407; char *t44408; struct w49 t44409; struct w49 t44410; struct w49 t44411; struct w49 t44412; struct w49 t44413; struct w49 t44414; char *t44415; struct w49 t44416; struct w49 t44417; struct w49 t44418; struct w49 t44419; struct w49 t44420; struct w49 t44421; char *t44422; struct w49 t44423; struct w49 t44424; struct w49 t44425; struct w49 t44426; struct w49 t44427; struct w49 t44428; char *t44429; struct w49 t44430; struct w49 t44431; struct w49 t44432; struct w49 t44433; struct w49 t44434; struct structure_type27623 *t44435; struct w49 t44436; struct w49 t44437; struct w49 t44438; struct w49 t44439; struct structure_type27623 *t44440; struct w49 t44441; struct w49 t44442; struct w49 t44443; char *t44444; struct structure_type27623 *t44445; struct w49 t44446; struct w49 t44447; struct w49 t44448; struct w49 t44449; struct structure_type27623 *t44450; struct w49 t44451; struct w49 t44452; struct w49 t44453; char *t44454; struct structure_type27623 *t44455; struct w49 t44456; struct w49 t44457; struct w49 t44458; struct w49 t44459; struct structure_type27623 *t44460; struct w49 t44461; struct w49 t44462; struct w49 t44463; char *t44464; struct structure_type27623 *t44465; struct w49 t44466; struct w49 t44467; struct w49 t44468; struct w49 t44469; struct structure_type27623 *t44470; struct w49 t44471; struct w49 t44472; struct w49 t44473; char *t44474; h15257: /* x138694 */ /* x138693 stalin.sc:17761:620711 */ /* x138500 stalin.sc:17761:620717 */ /* x138499 stalin.sc:17761:620733 */ t44393 = a26528; /* x138498 stalin.sc:17761:620718 */ if (f13410(t44393)==FALSE_TYPE) goto l6601; /* x138690 */ /* x138689 */ /* x138688 stalin.sc:17762:620740 */ /* x138533 stalin.sc:17762:620746 */ /* x138505 stalin.sc:17762:620751 */ /* x138504 stalin.sc:17762:620758 */ /* x138503 stalin.sc:17762:620766 */ t44395 = a26528; /* x138502 stalin.sc:17762:620759 */ t44394 = f26181(t44395); /* x138501 stalin.sc:17762:620752 */ if (f26209(t44394)==FALSE_TYPE) goto l6604; /* x138531 */ /* x138513 stalin.sc:17763:620778 */ /* x138511 stalin.sc:17763:620781 */ /* x138510 stalin.sc:17763:620789 */ /* x138509 stalin.sc:17763:620797 */ t44399 = a26528; /* x138508 stalin.sc:17763:620790 */ t44398 = f26181(t44399); /* x138507 stalin.sc:17763:620782 */ t44396 = f26227(t44398); /* x138512 stalin.sc:17763:620801 */ t44397 = 2; /* x268660 stalin.sc:17763:620779 */ if (!(t44396==t44397)) goto l6604; /* x138529 */ /* x138520 stalin.sc:17764:620812 */ /* x138519 stalin.sc:17764:620821 */ /* x138518 stalin.sc:17764:620828 */ /* x138517 stalin.sc:17764:620836 */ t44403 = a26528; /* x138516 stalin.sc:17764:620829 */ t44401 = f26181(t44403); /* x138515 stalin.sc:17764:620822 */ a35837 = t44401; /* x274705 */ /* x274704 */ t44402 = a35837; /* x274703 */ if (!((t44402.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29986]"); structure_ref_error();} t44400 = t44402.value.structure_type24753->s0; /* x268659 stalin.sc:17764:620813 */ if (!((t44400.tag)==STRING_TYPE)) goto l6604; /* x138527 */ /* x138526 stalin.sc:17765:620858 */ /* x138525 stalin.sc:17765:620866 */ /* x138524 stalin.sc:17765:620874 */ t44406 = a26528; /* x138523 stalin.sc:17765:620867 */ t44405 = f26181(t44406); /* x138522 stalin.sc:17765:620859 */ t44404 = f26181(t44405); /* x268658 stalin.sc:17765:620850 */ if (!((t44404.tag)==STRING_TYPE)) goto l6604; /* x138685 */ /* x138684 */ /* x138683 stalin.sc:17766:620885 */ /* x138541 stalin.sc:17766:620892 */ /* x138540 stalin.sc:17766:620921 */ t44408 = "a"; /* x138539 stalin.sc:17766:620902 */ /* x138538 stalin.sc:17766:620909 */ /* x138537 stalin.sc:17766:620917 */ t44413 = a26528; /* x138536 stalin.sc:17766:620910 */ t44411 = f26181(t44413); /* x138535 stalin.sc:17766:620903 */ a35836 = t44411; /* x274701 */ /* x274700 */ t44412 = a35836; /* x274699 */ if (!((t44412.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29985]"); structure_ref_error();} t44407 = t44412.value.structure_type24753->s0; /* x138534 stalin.sc:17766:620893 */ t44409 = t44407; t44410.tag = STRING_TYPE; t44410.value.string_type = t44408; if (f27434(t44409, t44410)==FALSE_TYPE) goto l6610; /* x138569 */ /* x138568 */ /* x138567 */ /* x138566 stalin.sc:17767:620931 */ /* x138559 stalin.sc:17767:620937 */ /* x138553 stalin.sc:17767:620947 */ t44470 = a26515; /* x138558 stalin.sc:17767:620954 */ /* x138557 stalin.sc:17767:620962 */ /* x138556 stalin.sc:17767:620970 */ t44473 = a26528; /* x138555 stalin.sc:17767:620963 */ t44472 = f26181(t44473); /* x138554 stalin.sc:17767:620955 */ t44471 = f26181(t44472); /* x138552 stalin.sc:17767:620938 */ if ((f2288(t44470, t44471).tag)==FALSE_TYPE) goto l6631; /* x138563 */ /* x138562 */ /* x138561 stalin.sc:17767:620975 */ /* x138560 stalin.sc:17767:620976 */ /* x295621 QobiScheme.sc:166:5314 */ /* x295620 QobiScheme.sc:166:5321 */ t44474 = "This shouldn\'t happen"; /* x295619 QobiScheme.sc:166:5315 */ stalin_panic(t44474); goto l6632; l6631: /* x138565 stalin.sc:17767:620931 */ /* x138564 stalin.sc:17767:620931 */ l6632: /* x138551 */ /* x138550 stalin.sc:17768:620991 */ /* x138543 stalin.sc:17768:621002 */ t44465 = a26515; /* x138548 stalin.sc:17768:621009 */ /* x138547 stalin.sc:17768:621017 */ /* x138546 stalin.sc:17768:621025 */ t44469 = a26528; /* x138545 stalin.sc:17768:621018 */ t44468 = f26181(t44469); /* x138544 stalin.sc:17768:621010 */ t44466 = f26181(t44468); /* x138549 stalin.sc:17768:621029 */ t44467 = a26528; /* x138542 stalin.sc:17768:620992 */ f2294(t44465, t44466, t44467); goto l6611; l6610: /* x138682 */ /* x138577 stalin.sc:17769:621038 */ /* x138576 stalin.sc:17769:621067 */ t44415 = "r"; /* x138575 stalin.sc:17769:621048 */ /* x138574 stalin.sc:17769:621055 */ /* x138573 stalin.sc:17769:621063 */ t44420 = a26528; /* x138572 stalin.sc:17769:621056 */ t44418 = f26181(t44420); /* x138571 stalin.sc:17769:621049 */ a35835 = t44418; /* x274697 */ /* x274696 */ t44419 = a35835; /* x274695 */ if (!((t44419.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29984]"); structure_ref_error();} t44414 = t44419.value.structure_type24753->s0; /* x138570 stalin.sc:17769:621039 */ t44416 = t44414; t44417.tag = STRING_TYPE; t44417.value.string_type = t44415; if (f27434(t44416, t44417)==FALSE_TYPE) goto l6613; /* x138605 */ /* x138604 */ /* x138603 */ /* x138602 stalin.sc:17770:621077 */ /* x138595 stalin.sc:17770:621083 */ /* x138589 stalin.sc:17770:621093 */ t44460 = a26514; /* x138594 stalin.sc:17770:621100 */ /* x138593 stalin.sc:17770:621108 */ /* x138592 stalin.sc:17770:621116 */ t44463 = a26528; /* x138591 stalin.sc:17770:621109 */ t44462 = f26181(t44463); /* x138590 stalin.sc:17770:621101 */ t44461 = f26181(t44462); /* x138588 stalin.sc:17770:621084 */ if ((f2288(t44460, t44461).tag)==FALSE_TYPE) goto l6628; /* x138599 */ /* x138598 */ /* x138597 stalin.sc:17770:621121 */ /* x138596 stalin.sc:17770:621122 */ /* x295625 QobiScheme.sc:166:5314 */ /* x295624 QobiScheme.sc:166:5321 */ t44464 = "This shouldn\'t happen"; /* x295623 QobiScheme.sc:166:5315 */ stalin_panic(t44464); goto l6629; l6628: /* x138601 stalin.sc:17770:621077 */ /* x138600 stalin.sc:17770:621077 */ l6629: /* x138587 */ /* x138586 stalin.sc:17771:621137 */ /* x138579 stalin.sc:17771:621148 */ t44455 = a26514; /* x138584 stalin.sc:17771:621155 */ /* x138583 stalin.sc:17771:621163 */ /* x138582 stalin.sc:17771:621171 */ t44459 = a26528; /* x138581 stalin.sc:17771:621164 */ t44458 = f26181(t44459); /* x138580 stalin.sc:17771:621156 */ t44456 = f26181(t44458); /* x138585 stalin.sc:17771:621175 */ t44457 = a26528; /* x138578 stalin.sc:17771:621138 */ f2294(t44455, t44456, t44457); goto l6614; l6613: /* x138681 */ /* x138613 stalin.sc:17772:621184 */ /* x138612 stalin.sc:17772:621213 */ t44422 = "t"; /* x138611 stalin.sc:17772:621194 */ /* x138610 stalin.sc:17772:621201 */ /* x138609 stalin.sc:17772:621209 */ t44427 = a26528; /* x138608 stalin.sc:17772:621202 */ t44425 = f26181(t44427); /* x138607 stalin.sc:17772:621195 */ a35834 = t44425; /* x274693 */ /* x274692 */ t44426 = a35834; /* x274691 */ if (!((t44426.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29983]"); structure_ref_error();} t44421 = t44426.value.structure_type24753->s0; /* x138606 stalin.sc:17772:621185 */ t44423 = t44421; t44424.tag = STRING_TYPE; t44424.value.string_type = t44422; if (f27434(t44423, t44424)==FALSE_TYPE) goto l6616; /* x138641 */ /* x138640 */ /* x138639 */ /* x138638 stalin.sc:17773:621223 */ /* x138631 stalin.sc:17773:621229 */ /* x138625 stalin.sc:17773:621239 */ t44450 = a26513; /* x138630 stalin.sc:17773:621246 */ /* x138629 stalin.sc:17773:621254 */ /* x138628 stalin.sc:17773:621262 */ t44453 = a26528; /* x138627 stalin.sc:17773:621255 */ t44452 = f26181(t44453); /* x138626 stalin.sc:17773:621247 */ t44451 = f26181(t44452); /* x138624 stalin.sc:17773:621230 */ if ((f2288(t44450, t44451).tag)==FALSE_TYPE) goto l6625; /* x138635 */ /* x138634 */ /* x138633 stalin.sc:17773:621267 */ /* x138632 stalin.sc:17773:621268 */ /* x295629 QobiScheme.sc:166:5314 */ /* x295628 QobiScheme.sc:166:5321 */ t44454 = "This shouldn\'t happen"; /* x295627 QobiScheme.sc:166:5315 */ stalin_panic(t44454); goto l6626; l6625: /* x138637 stalin.sc:17773:621223 */ /* x138636 stalin.sc:17773:621223 */ l6626: /* x138623 */ /* x138622 stalin.sc:17774:621283 */ /* x138615 stalin.sc:17774:621294 */ t44445 = a26513; /* x138620 stalin.sc:17774:621301 */ /* x138619 stalin.sc:17774:621309 */ /* x138618 stalin.sc:17774:621317 */ t44449 = a26528; /* x138617 stalin.sc:17774:621310 */ t44448 = f26181(t44449); /* x138616 stalin.sc:17774:621302 */ t44446 = f26181(t44448); /* x138621 stalin.sc:17774:621321 */ t44447 = a26528; /* x138614 stalin.sc:17774:621284 */ f2294(t44445, t44446, t44447); goto l6617; l6616: /* x138680 */ /* x138649 stalin.sc:17775:621330 */ /* x138648 stalin.sc:17775:621359 */ t44429 = "v"; /* x138647 stalin.sc:17775:621340 */ /* x138646 stalin.sc:17775:621347 */ /* x138645 stalin.sc:17775:621355 */ t44434 = a26528; /* x138644 stalin.sc:17775:621348 */ t44432 = f26181(t44434); /* x138643 stalin.sc:17775:621341 */ a35833 = t44432; /* x274689 */ /* x274688 */ t44433 = a35833; /* x274687 */ if (!((t44433.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29982]"); structure_ref_error();} t44428 = t44433.value.structure_type24753->s0; /* x138642 stalin.sc:17775:621331 */ t44430 = t44428; t44431.tag = STRING_TYPE; t44431.value.string_type = t44429; if (f27434(t44430, t44431)==FALSE_TYPE) goto l6619; /* x138677 */ /* x138676 */ /* x138675 */ /* x138674 stalin.sc:17776:621369 */ /* x138667 stalin.sc:17776:621375 */ /* x138661 stalin.sc:17776:621385 */ t44440 = a26512; /* x138666 stalin.sc:17776:621392 */ /* x138665 stalin.sc:17776:621400 */ /* x138664 stalin.sc:17776:621408 */ t44443 = a26528; /* x138663 stalin.sc:17776:621401 */ t44442 = f26181(t44443); /* x138662 stalin.sc:17776:621393 */ t44441 = f26181(t44442); /* x138660 stalin.sc:17776:621376 */ if ((f2288(t44440, t44441).tag)==FALSE_TYPE) goto l6622; /* x138671 */ /* x138670 */ /* x138669 stalin.sc:17776:621413 */ /* x138668 stalin.sc:17776:621414 */ /* x295633 QobiScheme.sc:166:5314 */ /* x295632 QobiScheme.sc:166:5321 */ t44444 = "This shouldn\'t happen"; /* x295631 QobiScheme.sc:166:5315 */ stalin_panic(t44444); goto l6623; l6622: /* x138673 stalin.sc:17776:621369 */ /* x138672 stalin.sc:17776:621369 */ l6623: /* x138659 */ /* x138658 stalin.sc:17777:621429 */ /* x138651 stalin.sc:17777:621440 */ t44435 = a26512; /* x138656 stalin.sc:17777:621447 */ /* x138655 stalin.sc:17777:621455 */ /* x138654 stalin.sc:17777:621463 */ t44439 = a26528; /* x138653 stalin.sc:17777:621456 */ t44438 = f26181(t44439); /* x138652 stalin.sc:17777:621448 */ t44436 = f26181(t44438); /* x138657 stalin.sc:17777:621467 */ t44437 = a26528; /* x138650 stalin.sc:17777:621430 */ f2294(t44435, t44436, t44437); goto l6620; l6619: /* x138679 */ /* x138678 */ l6620: l6617: l6614: l6611: goto l6605; l6604: /* x138687 stalin.sc:17762:620740 */ /* x138686 stalin.sc:17762:620740 */ l6605: goto l6602; l6601: /* x138692 stalin.sc:17761:620711 */ /* x138691 stalin.sc:17761:620711 */ l6602: /* x138497 */ /* x138496 stalin.sc:17778:621477 */ /* x138479 stalin.sc:17778:621483 */ /* x138472 stalin.sc:17778:621488 */ /* x138471 stalin.sc:17778:621495 */ t44386 = a26528; /* x268664 stalin.sc:17778:621489 */ if (!((t44386.tag)==STRUCTURE_TYPE24753)) goto l6598; /* x138477 */ /* x138476 stalin.sc:17778:621503 */ /* x138475 stalin.sc:17778:621519 */ t44387 = a26528.value.structure_type24753; /* x138474 stalin.sc:17778:621504 */ t44388.tag = STRUCTURE_TYPE24753; t44388.value.structure_type24753 = t44387; if (!(f13410(t44388)==FALSE_TYPE)) goto l6598; /* x138493 */ /* x138492 */ /* x138491 */ /* x138490 stalin.sc:17779:621528 */ /* x138489 stalin.sc:17779:621534 */ /* x138488 stalin.sc:17779:621539 */ t44392 = a26528; /* x268661 stalin.sc:17779:621535 */ if (!((t44392.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17779, 621534); structure_ref_error();} t44391 = t44392.value.structure_type24753->s0; /* x138486 stalin.sc:17779:621529 */ f15257(t44391); /* x138485 */ /* x138484 stalin.sc:17780:621547 */ /* x138483 stalin.sc:17780:621553 */ /* x138482 stalin.sc:17780:621558 */ t44390 = a26528; /* x268662 stalin.sc:17780:621554 */ if (!((t44390.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17780, 621553); structure_ref_error();} t44389 = t44390.value.structure_type24753->s1; /* x138480 stalin.sc:17780:621548 */ a26528 = t44389; goto h15257; l6598: /* x138495 stalin.sc:17778:621477 */ /* x138494 stalin.sc:17778:621477 */ return;} /* LOOP[15236] */ void f15236(struct w49 a26519) {struct w49 a26525; /* C */ struct w3467 a33423; /* PAIR */ struct w49 a35824; /* PAIR */ struct w49 a35825; /* PAIR */ struct w49 a35826; /* PAIR */ struct w49 a35827; /* PAIR */ struct w49 a35828; /* PAIR */ struct w49 a35829; /* PAIR */ struct w49 a35830; /* PAIR */ struct w49 a35831; /* PAIR */ struct w49 a35832; /* PAIR */ struct w49 t44475; struct structure_type24753 *t44476; struct w49 t44477; struct w49 t44478; struct w49 t44479; struct w49 t44480; struct w49 t44481; struct w49 t44482; int t44483; int t44484; struct w49 t44485; struct w49 t44486; struct w49 t44487; struct w49 t44488; struct w49 t44489; char *t44490; struct w49 t44491; struct w49 t44492; struct w49 t44493; struct w49 t44494; struct w49 t44495; char *t44496; struct w49 t44497; struct w49 t44498; struct w49 t44499; struct w49 t44500; struct w49 t44501; char *t44502; struct w49 t44503; struct w49 t44504; struct w49 t44505; struct w49 t44506; struct w49 t44507; char *t44508; struct w49 t44509; struct w49 t44510; struct w49 t44511; struct w49 t44512; struct w49 t44513; struct w49 t44514; struct structure_type24753 *t44515; struct w228245 t44516; struct w49 t44517; struct structure_type24753 *t44518; struct w49 t44519; struct w49 t44520; struct w49 t44521; struct w49 t44522; struct w3467 t44523; struct w49 t44524; struct w49 t44525; struct w3467 t44526; struct w49 t44527; char *t44528; struct w49 t44529; struct w49 t44530; struct w49 t44531; struct w49 t44532; struct w49 t44533; char *t44534; struct w49 t44535; struct w49 t44536; struct w49 t44537; struct w49 t44538; struct w49 t44539; char *t44540; struct w49 t44541; struct w49 t44542; struct w49 t44543; struct w49 t44544; struct w49 t44545; char *t44546; struct w49 t44547; struct w49 t44548; struct w49 t44549; struct w49 t44550; char *t44551; struct structure_type27623 *t44552; struct w49 t44553; struct w49 t44554; struct structure_type27623 *t44555; struct w49 t44556; struct w49 t44557; struct structure_type27623 *t44558; struct w49 t44559; struct w49 t44560; struct structure_type27623 *t44561; struct w49 t44562; struct w49 t44563; h15236: /* x138457 */ /* x138456 stalin.sc:17784:621707 */ /* x138373 stalin.sc:17784:621713 */ /* x138300 stalin.sc:17784:621718 */ /* x138299 stalin.sc:17784:621725 */ t44482 = a26519; /* x138298 stalin.sc:17784:621719 */ if (f26209(t44482)==FALSE_TYPE) goto l6637; /* x138371 */ /* x138306 stalin.sc:17785:621735 */ /* x138304 stalin.sc:17785:621738 */ /* x138303 stalin.sc:17785:621746 */ t44485 = a26519; /* x138302 stalin.sc:17785:621739 */ t44483 = f26227(t44485); /* x138305 stalin.sc:17785:621749 */ t44484 = 2; /* x268668 stalin.sc:17785:621736 */ if (!(t44483==t44484)) goto l6637; /* x138369 */ /* x138311 stalin.sc:17786:621759 */ /* x138310 stalin.sc:17786:621768 */ /* x138309 stalin.sc:17786:621775 */ t44487 = a26519; /* x138308 stalin.sc:17786:621769 */ a35832 = t44487; /* x274685 */ /* x274684 */ t44488 = a35832; /* x274683 */ if (!((t44488.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29981]"); structure_ref_error();} t44486 = t44488.value.structure_type24753->s0; /* x268667 stalin.sc:17786:621760 */ if (!((t44486.tag)==STRING_TYPE)) goto l6637; /* x138367 */ /* x138350 stalin.sc:17787:621786 */ /* x138349 stalin.sc:17787:621790 */ /* x138348 stalin.sc:17787:621810 */ t44490 = "a"; /* x138347 stalin.sc:17787:621800 */ /* x138346 stalin.sc:17787:621807 */ t44493 = a26519; /* x138345 stalin.sc:17787:621801 */ a35831 = t44493; /* x274681 */ /* x274680 */ t44494 = a35831; /* x274679 */ if (!((t44494.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29980]"); structure_ref_error();} t44489 = t44494.value.structure_type24753->s0; /* x138344 stalin.sc:17787:621791 */ t44491 = t44489; t44492.tag = STRING_TYPE; t44492.value.string_type = t44490; if (!(f27434(t44491, t44492)==FALSE_TYPE)) goto l6642; /* x138341 */ /* x138340 stalin.sc:17788:621819 */ /* x138339 stalin.sc:17788:621839 */ t44496 = "r"; /* x138338 stalin.sc:17788:621829 */ /* x138337 stalin.sc:17788:621836 */ t44499 = a26519; /* x138336 stalin.sc:17788:621830 */ a35830 = t44499; /* x274677 */ /* x274676 */ t44500 = a35830; /* x274675 */ if (!((t44500.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29979]"); structure_ref_error();} t44495 = t44500.value.structure_type24753->s0; /* x138335 stalin.sc:17788:621820 */ t44497 = t44495; t44498.tag = STRING_TYPE; t44498.value.string_type = t44496; if (!(f27434(t44497, t44498)==FALSE_TYPE)) goto l6642; /* x138332 */ /* x138331 stalin.sc:17789:621848 */ /* x138330 stalin.sc:17789:621868 */ t44502 = "t"; /* x138329 stalin.sc:17789:621858 */ /* x138328 stalin.sc:17789:621865 */ t44505 = a26519; /* x138327 stalin.sc:17789:621859 */ a35829 = t44505; /* x274673 */ /* x274672 */ t44506 = a35829; /* x274671 */ if (!((t44506.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29978]"); structure_ref_error();} t44501 = t44506.value.structure_type24753->s0; /* x138326 stalin.sc:17789:621849 */ t44503 = t44501; t44504.tag = STRING_TYPE; t44504.value.string_type = t44502; if (!(f27434(t44503, t44504)==FALSE_TYPE)) goto l6642; /* x138323 */ /* x138322 stalin.sc:17790:621897 */ t44508 = "v"; /* x138321 stalin.sc:17790:621887 */ /* x138320 stalin.sc:17790:621894 */ t44511 = a26519; /* x138319 stalin.sc:17790:621888 */ a35828 = t44511; /* x274669 */ /* x274668 */ t44512 = a35828; /* x274667 */ if (!((t44512.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29977]"); structure_ref_error();} t44507 = t44512.value.structure_type24753->s0; /* x138318 stalin.sc:17790:621878 */ t44509 = t44507; t44510.tag = STRING_TYPE; t44510.value.string_type = t44508; if (f27434(t44509, t44510)==FALSE_TYPE) goto l6637; l6642: /* x138365 */ /* x138355 stalin.sc:17791:621910 */ /* x138354 stalin.sc:17791:621919 */ /* x138353 stalin.sc:17791:621927 */ t44514 = a26519; /* x138352 stalin.sc:17791:621920 */ t44513 = f26181(t44514); /* x268666 stalin.sc:17791:621911 */ if (!((t44513.tag)==STRING_TYPE)) goto l6637; /* x138363 */ /* x138362 stalin.sc:17792:621959 */ /* x138361 stalin.sc:17792:621973 */ /* x138360 stalin.sc:17792:621981 */ t44520 = a26519; /* x138359 stalin.sc:17792:621974 */ t44519 = f26181(t44520); /* x138358 stalin.sc:17792:621960 */ a34032 = t44519; t44515 = f27579(); /* x138357 stalin.sc:17792:621945 */ /* x138356 stalin.sc:17792:621939 */ t44516.tag = NATIVE_PROCEDURE_TYPE366; /* MOVE: branching squeezed to general */ if (t44515>=((struct structure_type24753 *)VALUE_OFFSET)) {t44517.tag = STRUCTURE_TYPE24753; t44517.value.structure_type24753 = t44515;} else t44517.tag = (unsigned)t44515; t44518 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t44516, t44517, t44518)==FALSE_TYPE) goto l6637; /* x138453 */ /* x138452 */ /* x138451 stalin.sc:17793:621991 */ /* x138450 stalin.sc:17793:622000 */ /* x138392 stalin.sc:17793:622007 */ /* x138391 stalin.sc:17793:622027 */ t44528 = "a"; /* x138390 stalin.sc:17793:622017 */ /* x138389 stalin.sc:17793:622024 */ t44531 = a26519; /* x138388 stalin.sc:17793:622018 */ a35827 = t44531; /* x274665 */ /* x274664 */ t44532 = a35827; /* x274663 */ if (!((t44532.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29976]"); structure_ref_error();} t44527 = t44532.value.structure_type24753->s0; /* x138387 stalin.sc:17793:622008 */ t44529 = t44527; t44530.tag = STRING_TYPE; t44530.value.string_type = t44528; if (f27434(t44529, t44530)==FALSE_TYPE) goto l6651; /* x138400 */ /* x138399 */ /* x138398 stalin.sc:17793:622032 */ /* x138394 stalin.sc:17793:622042 */ t44561 = a26515; /* x138397 stalin.sc:17793:622049 */ /* x138396 stalin.sc:17793:622057 */ t44563 = a26519; /* x138395 stalin.sc:17793:622050 */ t44562 = f26181(t44563); /* x138393 stalin.sc:17793:622033 */ t44521 = f2288(t44561, t44562); goto l6652; l6651: /* x138449 */ /* x138406 stalin.sc:17794:622068 */ /* x138405 stalin.sc:17794:622088 */ t44534 = "r"; /* x138404 stalin.sc:17794:622078 */ /* x138403 stalin.sc:17794:622085 */ t44537 = a26519; /* x138402 stalin.sc:17794:622079 */ a35826 = t44537; /* x274661 */ /* x274660 */ t44538 = a35826; /* x274659 */ if (!((t44538.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29975]"); structure_ref_error();} t44533 = t44538.value.structure_type24753->s0; /* x138401 stalin.sc:17794:622069 */ t44535 = t44533; t44536.tag = STRING_TYPE; t44536.value.string_type = t44534; if (f27434(t44535, t44536)==FALSE_TYPE) goto l6654; /* x138414 */ /* x138413 */ /* x138412 stalin.sc:17794:622093 */ /* x138408 stalin.sc:17794:622103 */ t44558 = a26514; /* x138411 stalin.sc:17794:622110 */ /* x138410 stalin.sc:17794:622118 */ t44560 = a26519; /* x138409 stalin.sc:17794:622111 */ t44559 = f26181(t44560); /* x138407 stalin.sc:17794:622094 */ t44521 = f2288(t44558, t44559); goto l6655; l6654: /* x138448 */ /* x138420 stalin.sc:17795:622129 */ /* x138419 stalin.sc:17795:622149 */ t44540 = "t"; /* x138418 stalin.sc:17795:622139 */ /* x138417 stalin.sc:17795:622146 */ t44543 = a26519; /* x138416 stalin.sc:17795:622140 */ a35825 = t44543; /* x274657 */ /* x274656 */ t44544 = a35825; /* x274655 */ if (!((t44544.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29974]"); structure_ref_error();} t44539 = t44544.value.structure_type24753->s0; /* x138415 stalin.sc:17795:622130 */ t44541 = t44539; t44542.tag = STRING_TYPE; t44542.value.string_type = t44540; if (f27434(t44541, t44542)==FALSE_TYPE) goto l6657; /* x138428 */ /* x138427 */ /* x138426 stalin.sc:17795:622154 */ /* x138422 stalin.sc:17795:622164 */ t44555 = a26513; /* x138425 stalin.sc:17795:622171 */ /* x138424 stalin.sc:17795:622179 */ t44557 = a26519; /* x138423 stalin.sc:17795:622172 */ t44556 = f26181(t44557); /* x138421 stalin.sc:17795:622155 */ t44521 = f2288(t44555, t44556); goto l6658; l6657: /* x138447 */ /* x138434 stalin.sc:17796:622190 */ /* x138433 stalin.sc:17796:622210 */ t44546 = "v"; /* x138432 stalin.sc:17796:622200 */ /* x138431 stalin.sc:17796:622207 */ t44549 = a26519; /* x138430 stalin.sc:17796:622201 */ a35824 = t44549; /* x274653 */ /* x274652 */ t44550 = a35824; /* x274651 */ if (!((t44550.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29973]"); structure_ref_error();} t44545 = t44550.value.structure_type24753->s0; /* x138429 stalin.sc:17796:622191 */ t44547 = t44545; t44548.tag = STRING_TYPE; t44548.value.string_type = t44546; if (f27434(t44547, t44548)==FALSE_TYPE) goto l6660; /* x138442 */ /* x138441 */ /* x138440 stalin.sc:17796:622216 */ /* x138436 stalin.sc:17796:622226 */ t44552 = a26512; /* x138439 stalin.sc:17796:622233 */ /* x138438 stalin.sc:17796:622241 */ t44554 = a26519; /* x138437 stalin.sc:17796:622234 */ t44553 = f26181(t44554); /* x138435 stalin.sc:17796:622217 */ t44521 = f2288(t44552, t44553); goto l6661; l6660: /* x138446 */ /* x138445 */ /* x138444 stalin.sc:17797:622257 */ /* x138443 stalin.sc:17797:622258 */ /* x295617 QobiScheme.sc:166:5314 */ /* x295616 QobiScheme.sc:166:5321 */ t44551 = "This shouldn\'t happen"; /* x295615 QobiScheme.sc:166:5315 */ stalin_panic(t44551); l6661: l6658: l6655: l6652: /* x138386 */ a26525 = t44521; /* x138385 stalin.sc:17798:622276 */ /* x138374 stalin.sc:17798:622282 */ if ((a26525.tag)==FALSE_TYPE) goto l6648; /* x138382 */ /* x138381 */ /* x138380 stalin.sc:17798:622284 */ /* x138378 stalin.sc:17798:622294 */ /* x138377 stalin.sc:17798:622301 */ t44523 = *((struct w3467 *)(&a26525)); /* x138376 stalin.sc:17798:622295 */ a33423 = t44523; /* x243542 */ /* x243541 */ /* x243540 */ /* x243539 */ t44526 = a33423; /* x267459 */ if (!((t44526.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("CDDDR[26191]"); structure_ref_error();} t44525 = t44526.value.structure_type24753->s1; /* x267460 */ if (!((t44525.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("CDDDR[26191]"); structure_ref_error();} t44524 = t44525.value.structure_type24753->s1; /* x267461 */ if (!((t44524.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("CDDDR[26191]"); structure_ref_error();} t44522 = t44524.value.structure_type24753->s1; /* x138379 stalin.sc:17798:622304 */ /* x268665 stalin.sc:17798:622285 */ if (!((t44522.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17798, 622284); structure_set_error();} t44522.value.structure_type24753->s0.tag = TRUE_TYPE; goto l6649; l6648: /* x138384 stalin.sc:17798:622276 */ /* x138383 stalin.sc:17798:622276 */ l6649: goto l6638; l6637: /* x138455 stalin.sc:17784:621707 */ /* x138454 stalin.sc:17784:621707 */ l6638: /* x138297 */ /* x138296 stalin.sc:17799:622314 */ /* x138279 stalin.sc:17799:622320 */ /* x138272 stalin.sc:17799:622325 */ /* x138271 stalin.sc:17799:622332 */ t44475 = a26519; /* x268672 stalin.sc:17799:622326 */ if (!((t44475.tag)==STRUCTURE_TYPE24753)) goto l6634; /* x138277 */ /* x138276 stalin.sc:17799:622340 */ /* x138275 stalin.sc:17799:622356 */ t44476 = a26519.value.structure_type24753; /* x138274 stalin.sc:17799:622341 */ t44477.tag = STRUCTURE_TYPE24753; t44477.value.structure_type24753 = t44476; if (!(f13410(t44477)==FALSE_TYPE)) goto l6634; /* x138293 */ /* x138292 */ /* x138291 */ /* x138290 stalin.sc:17800:622365 */ /* x138289 stalin.sc:17800:622371 */ /* x138288 stalin.sc:17800:622376 */ t44481 = a26519; /* x268669 stalin.sc:17800:622372 */ if (!((t44481.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17800, 622371); structure_ref_error();} t44480 = t44481.value.structure_type24753->s0; /* x138286 stalin.sc:17800:622366 */ f15236(t44480); /* x138285 */ /* x138284 stalin.sc:17801:622384 */ /* x138283 stalin.sc:17801:622390 */ /* x138282 stalin.sc:17801:622395 */ t44479 = a26519; /* x268670 stalin.sc:17801:622391 */ if (!((t44479.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17801, 622390); structure_ref_error();} t44478 = t44479.value.structure_type24753->s1; /* x138280 stalin.sc:17801:622385 */ a26519 = t44478; goto h15236; l6634: /* x138295 stalin.sc:17799:622314 */ /* x138294 stalin.sc:17799:622314 */ return;} /* LOOP[15223] */ void f15223(struct w49 a26508) {struct w49 t44564; struct structure_type24753 *t44565; struct w49 t44566; struct w49 t44567; struct w49 t44568; struct w49 t44569; struct w49 t44570; struct w49 t44571; struct w49 t44572; struct w49 t44573; struct w49 t44574; struct w49 t44575; struct w49 t44576; struct w49 t44577; struct w49 t44578; struct w49 t44579; struct w49 t44580; h15223: /* x138257 stalin.sc:17803:622423 */ /* x138194 stalin.sc:17803:622429 */ /* x138187 stalin.sc:17803:622434 */ /* x138186 stalin.sc:17803:622441 */ t44564 = a26508; /* x268684 stalin.sc:17803:622435 */ if (!((t44564.tag)==STRUCTURE_TYPE24753)) goto l6663; /* x138192 */ /* x138191 stalin.sc:17803:622449 */ /* x138190 stalin.sc:17803:622465 */ t44565 = a26508.value.structure_type24753; /* x138189 stalin.sc:17803:622450 */ t44566.tag = STRUCTURE_TYPE24753; t44566.value.structure_type24753 = t44565; if (!(f13410(t44566)==FALSE_TYPE)) goto l6663; /* x138254 */ /* x138253 */ /* x138252 */ /* x138223 stalin.sc:17804:622473 */ /* x138214 stalin.sc:17804:622479 */ /* x138205 stalin.sc:17804:622484 */ /* x138204 stalin.sc:17804:622500 */ /* x138203 stalin.sc:17804:622505 */ t44570 = a26508; /* x268681 stalin.sc:17804:622501 */ if (!((t44570.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17804, 622500); structure_ref_error();} t44569 = t44570.value.structure_type24753->s0; /* x138201 stalin.sc:17804:622485 */ if (f13410(t44569)==FALSE_TYPE) goto l6666; /* x138212 */ /* x138211 stalin.sc:17804:622514 */ /* x138210 stalin.sc:17804:622522 */ /* x138209 stalin.sc:17804:622527 */ t44572 = a26508; /* x268679 stalin.sc:17804:622523 */ if (!((t44572.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17804, 622522); structure_ref_error();} t44571 = t44572.value.structure_type24753->s0; /* x138207 stalin.sc:17804:622515 */ if (!((f26199(t44571).tag)==FALSE_TYPE)) goto l6666; /* x138220 */ /* x138219 */ /* x138218 stalin.sc:17805:622537 */ /* x138216 stalin.sc:17805:622547 */ t44573 = a26508; /* x138217 stalin.sc:17805:622549 */ /* x268678 stalin.sc:17805:622538 */ if (!((t44573.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17805, 622537); structure_set_error();} t44573.value.structure_type24753->s0.tag = NULL_TYPE; goto l6667; l6666: /* x138222 stalin.sc:17804:622473 */ /* x138221 stalin.sc:17804:622473 */ l6667: /* x138246 stalin.sc:17806:622558 */ /* x138237 stalin.sc:17806:622564 */ /* x138228 stalin.sc:17806:622569 */ /* x138227 stalin.sc:17806:622585 */ /* x138226 stalin.sc:17806:622590 */ t44575 = a26508; /* x268677 stalin.sc:17806:622586 */ if (!((t44575.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17806, 622585); structure_ref_error();} t44574 = t44575.value.structure_type24753->s1; /* x138224 stalin.sc:17806:622570 */ if (f13410(t44574)==FALSE_TYPE) goto l6670; /* x138235 */ /* x138234 stalin.sc:17806:622599 */ /* x138233 stalin.sc:17806:622607 */ /* x138232 stalin.sc:17806:622612 */ t44577 = a26508; /* x268675 stalin.sc:17806:622608 */ if (!((t44577.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17806, 622607); structure_ref_error();} t44576 = t44577.value.structure_type24753->s1; /* x138230 stalin.sc:17806:622600 */ if (!((f26199(t44576).tag)==FALSE_TYPE)) goto l6670; /* x138243 */ /* x138242 */ /* x138241 stalin.sc:17807:622622 */ /* x138239 stalin.sc:17807:622632 */ t44578 = a26508; /* x138240 stalin.sc:17807:622634 */ /* x268674 stalin.sc:17807:622623 */ if (!((t44578.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17807, 622622); structure_set_error();} t44578.value.structure_type24753->s1.tag = NULL_TYPE; goto l6671; l6670: /* x138245 stalin.sc:17806:622558 */ /* x138244 stalin.sc:17806:622558 */ l6671: /* x138251 stalin.sc:17808:622643 */ /* x138250 stalin.sc:17808:622649 */ /* x138249 stalin.sc:17808:622654 */ t44580 = a26508; /* x268673 stalin.sc:17808:622650 */ if (!((t44580.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17808, 622649); structure_ref_error();} t44579 = t44580.value.structure_type24753->s0; /* x138247 stalin.sc:17808:622644 */ f15223(t44579); /* x138200 */ /* x138199 stalin.sc:17809:622661 */ /* x138198 stalin.sc:17809:622667 */ /* x138197 stalin.sc:17809:622672 */ t44568 = a26508; /* x268682 stalin.sc:17809:622668 */ if (!((t44568.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17809, 622667); structure_ref_error();} t44567 = t44568.value.structure_type24753->s1; /* x138195 stalin.sc:17809:622662 */ a26508 = t44567; goto h15223; l6663: /* x138256 stalin.sc:17803:622423 */ /* x138255 stalin.sc:17803:622423 */ return;} /* LOOP[15211] */ void f15211(struct w49 a26501) {struct w49 a25232; /* C */ struct w49 a35819; /* PAIR */ struct w49 a35822; /* PAIR */ struct w49 a35823; /* PAIR */ struct w49 t44581; struct structure_type24753 *t44582; struct w49 t44583; struct w49 t44584; struct w49 t44585; struct w49 t44586; struct w49 t44587; struct w49 t44588; struct w49 t44589; struct w49 t44590; struct w49 t44591; struct w49 t44592; struct w49 t44593; struct w49 t44594; struct w49 t44595; struct w49 t44596; struct w49 t44597; struct w49 t44598; struct w49 t44599; struct w49 t44600; struct w49 t44601; struct w49 t44602; struct structure_type24753 *t44603; h15211: /* x138166 */ /* x138165 stalin.sc:17691:618595 */ /* x138155 stalin.sc:17691:618601 */ /* x138154 stalin.sc:17691:618648 */ t44588 = a26501; /* x138153 stalin.sc:17691:618602 */ a25232 = t44588; /* x121958 stalin.sc:14340:504525 */ /* x121932 stalin.sc:14340:504530 */ /* x121931 stalin.sc:14340:504545 */ t44589 = a25232; /* x121930 stalin.sc:14340:504531 */ if (f13450(t44589)==FALSE_TYPE) goto l6677; /* x121956 */ /* x121941 stalin.sc:14341:504554 */ /* x121940 stalin.sc:14341:504567 */ /* x121939 stalin.sc:14341:504574 */ /* x121938 stalin.sc:14341:504582 */ /* x121937 stalin.sc:14341:504589 */ t44594 = a25232; /* x121936 stalin.sc:14341:504583 */ a35823 = t44594; /* x274649 */ /* x274648 */ t44595 = a35823; /* x274647 */ if (!((t44595.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29972]"); structure_ref_error();} t44593 = t44595.value.structure_type24753->s0; /* x121935 stalin.sc:14341:504575 */ t44591 = f26181(t44593); /* x121934 stalin.sc:14341:504568 */ a35822 = t44591; /* x274645 */ /* x274644 */ t44592 = a35822; /* x274643 */ if (!((t44592.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29971]"); structure_ref_error();} t44590 = t44592.value.structure_type24753->s0; /* x121933 stalin.sc:14341:504555 */ if (f13451(t44590)==FALSE_TYPE) goto l6677; /* x121954 */ /* x121953 stalin.sc:14342:504606 */ /* x121952 stalin.sc:14342:504620 */ /* x121951 stalin.sc:14342:504627 */ /* x121950 stalin.sc:14342:504634 */ /* x121949 stalin.sc:14342:504642 */ /* x121948 stalin.sc:14342:504649 */ t44600 = a25232; /* x121947 stalin.sc:14342:504643 */ a35819 = t44600; /* x274633 */ /* x274632 */ t44601 = a35819; /* x274631 */ if (!((t44601.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29968]"); structure_ref_error();} t44599 = t44601.value.structure_type24753->s0; /* x121946 stalin.sc:14342:504635 */ t44598 = f26181(t44599); /* x121945 stalin.sc:14342:504628 */ t44597 = f26187(t44598); /* x121944 stalin.sc:14342:504621 */ t44596 = f26187(t44597); /* x121943 stalin.sc:14342:504607 */ if (!(f13412(t44596)==FALSE_TYPE)) goto l6677; /* x138162 */ /* x138161 */ /* x138160 stalin.sc:17692:618655 */ /* x138159 stalin.sc:17692:618665 */ /* x138157 stalin.sc:17692:618671 */ t44602 = a26501; /* x138158 stalin.sc:17692:618673 */ t44603 = a26477; /* x268685 stalin.sc:17692:618666 */ a26477 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a26477==NULL) {backtrace("stalin.sc", 17692, 618665); out_of_memory_error();} a26477->s0 = t44602; /* MOVE: branching squeezed to general */ if (t44603>=((struct structure_type24753 *)VALUE_OFFSET)) {a26477->s1.tag = STRUCTURE_TYPE24753; a26477->s1.value.structure_type24753 = t44603;} else a26477->s1.tag = (unsigned)t44603; goto l6678; l6677: /* x138164 stalin.sc:17691:618595 */ /* x138163 stalin.sc:17691:618595 */ l6678: /* x138152 */ /* x138151 stalin.sc:17693:618683 */ /* x138134 stalin.sc:17693:618689 */ /* x138127 stalin.sc:17693:618694 */ /* x138126 stalin.sc:17693:618701 */ t44581 = a26501; /* x268689 stalin.sc:17693:618695 */ if (!((t44581.tag)==STRUCTURE_TYPE24753)) goto l6674; /* x138132 */ /* x138131 stalin.sc:17693:618709 */ /* x138130 stalin.sc:17693:618725 */ t44582 = a26501.value.structure_type24753; /* x138129 stalin.sc:17693:618710 */ t44583.tag = STRUCTURE_TYPE24753; t44583.value.structure_type24753 = t44582; if (!(f13410(t44583)==FALSE_TYPE)) goto l6674; /* x138148 */ /* x138147 */ /* x138146 */ /* x138145 stalin.sc:17694:618734 */ /* x138144 stalin.sc:17694:618740 */ /* x138143 stalin.sc:17694:618745 */ t44587 = a26501; /* x268686 stalin.sc:17694:618741 */ if (!((t44587.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17694, 618740); structure_ref_error();} t44586 = t44587.value.structure_type24753->s0; /* x138141 stalin.sc:17694:618735 */ f15211(t44586); /* x138140 */ /* x138139 stalin.sc:17695:618753 */ /* x138138 stalin.sc:17695:618759 */ /* x138137 stalin.sc:17695:618764 */ t44585 = a26501; /* x268687 stalin.sc:17695:618760 */ if (!((t44585.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17695, 618759); structure_ref_error();} t44584 = t44585.value.structure_type24753->s1; /* x138135 stalin.sc:17695:618754 */ a26501 = t44584; goto h15211; l6674: /* x138150 stalin.sc:17693:618683 */ /* x138149 stalin.sc:17693:618683 */ return;} /* LOOP[15201] */ void f15201(struct w49 a26496) {struct w49 t44604; struct structure_type24753 *t44605; struct w49 t44606; struct w49 t44607; struct w49 t44608; struct w49 t44609; struct w49 t44610; struct w49 t44611; struct w49 t44612; struct structure_type24753 *t44613; h15201: /* x138113 */ /* x138112 stalin.sc:17686:618420 */ /* x138102 stalin.sc:17686:618426 */ /* x138101 stalin.sc:17686:618454 */ t44611 = a26496; /* x138100 stalin.sc:17686:618427 */ if (f13455(t44611)==FALSE_TYPE) goto l6685; /* x138109 */ /* x138108 */ /* x138107 stalin.sc:17686:618457 */ /* x138106 stalin.sc:17686:618467 */ /* x138104 stalin.sc:17686:618473 */ t44612 = a26496; /* x138105 stalin.sc:17686:618475 */ t44613 = a26478; /* x268690 stalin.sc:17686:618468 */ a26478 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a26478==NULL) {backtrace("stalin.sc", 17686, 618467); out_of_memory_error();} a26478->s0 = t44612; /* MOVE: branching squeezed to general */ if (t44613>=((struct structure_type24753 *)VALUE_OFFSET)) {a26478->s1.tag = STRUCTURE_TYPE24753; a26478->s1.value.structure_type24753 = t44613;} else a26478->s1.tag = (unsigned)t44613; goto l6686; l6685: /* x138111 stalin.sc:17686:618420 */ /* x138110 stalin.sc:17686:618420 */ l6686: /* x138099 */ /* x138098 stalin.sc:17687:618485 */ /* x138081 stalin.sc:17687:618491 */ /* x138074 stalin.sc:17687:618496 */ /* x138073 stalin.sc:17687:618503 */ t44604 = a26496; /* x268694 stalin.sc:17687:618497 */ if (!((t44604.tag)==STRUCTURE_TYPE24753)) goto l6682; /* x138079 */ /* x138078 stalin.sc:17687:618511 */ /* x138077 stalin.sc:17687:618527 */ t44605 = a26496.value.structure_type24753; /* x138076 stalin.sc:17687:618512 */ t44606.tag = STRUCTURE_TYPE24753; t44606.value.structure_type24753 = t44605; if (!(f13410(t44606)==FALSE_TYPE)) goto l6682; /* x138095 */ /* x138094 */ /* x138093 */ /* x138092 stalin.sc:17688:618536 */ /* x138091 stalin.sc:17688:618542 */ /* x138090 stalin.sc:17688:618547 */ t44610 = a26496; /* x268691 stalin.sc:17688:618543 */ if (!((t44610.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17688, 618542); structure_ref_error();} t44609 = t44610.value.structure_type24753->s0; /* x138088 stalin.sc:17688:618537 */ f15201(t44609); /* x138087 */ /* x138086 stalin.sc:17689:618555 */ /* x138085 stalin.sc:17689:618561 */ /* x138084 stalin.sc:17689:618566 */ t44608 = a26496; /* x268692 stalin.sc:17689:618562 */ if (!((t44608.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17689, 618561); structure_ref_error();} t44607 = t44608.value.structure_type24753->s1; /* x138082 stalin.sc:17689:618556 */ a26496 = t44607; goto h15201; l6682: /* x138097 stalin.sc:17687:618485 */ /* x138096 stalin.sc:17687:618485 */ return;} /* [inside C:COPY-PROPAGATE! 15198] */ unsigned f15198(struct p15197 *p15198, struct w49 a26493) {struct w49 a25230; /* C */ struct w49 a35808; /* PAIR */ struct w49 a35809; /* PAIR */ struct w49 a35810; /* PAIR */ struct w49 a35811; /* PAIR */ struct w49 a35812; /* PAIR */ struct w49 a35813; /* PAIR */ struct w49 t44614; struct w49 t44615; struct w49 t44616; struct w49 t44617; int t44618; int t44619; struct w49 t44620; struct w49 t44621; struct w49 t44622; struct w49 t44623; struct w49 t44624; struct w49 t44625; struct w49 t44626; char *t44627; struct w49 t44628; struct w49 t44629; struct w49 t44630; struct w49 t44631; struct w49 t44632; struct w49 t44633; struct w49 t44634; struct w49 t44635; struct w49 t44636; struct w49 t44637; struct w49 t44638; struct w49 t44639; struct w49 t44640; struct w49 t44641; struct w49 t44642; struct w49 t44643; /* x138061 stalin.sc:17699:618851 */ /* x138053 stalin.sc:17699:618859 */ /* x138052 stalin.sc:17699:618871 */ /* x138051 stalin.sc:17699:618878 */ /* x138050 stalin.sc:17699:618886 */ /* x138049 stalin.sc:17699:618893 */ t44637 = a26493; /* x138048 stalin.sc:17699:618887 */ a35811 = t44637; /* x274601 */ /* x274600 */ t44638 = a35811; /* x274599 */ if (!((t44638.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29960]"); structure_ref_error();} t44636 = t44638.value.structure_type24753->s0; /* x138047 stalin.sc:17699:618879 */ t44634 = f26181(t44636); /* x138046 stalin.sc:17699:618872 */ a35810 = t44634; /* x274597 */ /* x274596 */ t44635 = a35810; /* x274595 */ if (!((t44635.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29959]"); structure_ref_error();} t44616 = t44635.value.structure_type24753->s0; /* x138045 stalin.sc:17699:618860 */ a25230 = t44616; h13454: /* x121911 stalin.sc:14328:504215 */ /* x121904 stalin.sc:14328:504219 */ /* x121874 stalin.sc:14328:504224 */ /* x121873 stalin.sc:14328:504231 */ t44617 = a25230; /* x121872 stalin.sc:14328:504225 */ if (f26209(t44617)==FALSE_TYPE) goto l6688; /* x121902 */ /* x121880 stalin.sc:14329:504237 */ /* x121878 stalin.sc:14329:504240 */ /* x121877 stalin.sc:14329:504248 */ t44620 = a25230; /* x121876 stalin.sc:14329:504241 */ t44618 = f26227(t44620); /* x121879 stalin.sc:14329:504251 */ t44619 = 3; /* x269084 stalin.sc:14329:504238 */ if (!(t44618==t44619)) goto l6688; /* x121900 */ /* x121885 stalin.sc:14330:504257 */ /* x121884 stalin.sc:14330:504263 */ /* x121883 stalin.sc:14330:504270 */ t44622 = a25230; /* x121882 stalin.sc:14330:504264 */ a35809 = t44622; /* x274593 */ /* x274592 */ t44623 = a35809; /* x274591 */ if (!((t44623.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29958]"); structure_ref_error();} t44621 = t44623.value.structure_type24753->s0; /* x121881 stalin.sc:14330:504258 */ if (f13452(t44621)==FALSE_TYPE) goto l6688; /* x121898 */ /* x121890 stalin.sc:14331:504277 */ /* x121889 stalin.sc:14331:504286 */ /* x121888 stalin.sc:14331:504294 */ t44625 = a25230; /* x121887 stalin.sc:14331:504287 */ t44624 = f26181(t44625); /* x269083 stalin.sc:14331:504278 */ if (!((t44624.tag)==STRING_TYPE)) goto l6688; /* x121896 */ /* x121895 stalin.sc:14332:504322 */ t44627 = "."; /* x121894 stalin.sc:14332:504311 */ /* x121893 stalin.sc:14332:504319 */ t44630 = a25230; /* x121892 stalin.sc:14332:504312 */ t44626 = f26181(t44630); /* x121891 stalin.sc:14332:504302 */ t44628 = t44626; t44629.tag = STRING_TYPE; t44629.value.string_type = t44627; if (f27434(t44628, t44629)==FALSE_TYPE) goto l6688; /* x121909 stalin.sc:14333:504333 */ /* x121908 stalin.sc:14333:504345 */ /* x121907 stalin.sc:14333:504352 */ t44632 = a25230; /* x121906 stalin.sc:14333:504346 */ a35808 = t44632; /* x274589 */ /* x274588 */ t44633 = a35808; /* x274587 */ if (!((t44633.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29957]"); structure_ref_error();} t44631 = t44633.value.structure_type24753->s0; /* x121905 stalin.sc:14333:504334 */ a25230 = t44631; goto h13454; l6688: /* x121910 stalin.sc:14334:504361 */ t44614 = a25230; /* x138060 stalin.sc:17700:618908 */ /* x138059 stalin.sc:17700:618915 */ /* x138058 stalin.sc:17700:618923 */ /* x138057 stalin.sc:17700:618930 */ t44642 = p15198->a26492; /* x138056 stalin.sc:17700:618924 */ a35813 = t44642; /* x274609 */ /* x274608 */ t44643 = a35813; /* x274607 */ if (!((t44643.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29962]"); structure_ref_error();} t44641 = t44643.value.structure_type24753->s0; /* x138055 stalin.sc:17700:618916 */ t44639 = f26181(t44641); /* x138054 stalin.sc:17700:618909 */ a35812 = t44639; /* x274605 */ /* x274604 */ t44640 = a35812; /* x274603 */ if (!((t44640.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29961]"); structure_ref_error();} t44615 = t44640.value.structure_type24753->s0; /* x138044 stalin.sc:17699:618852 */ return f26165(t44614, t44615);} /* LOOP[15178] */ void f15178(struct w49 a26484) {struct w49 a26488; /* C2 */ struct w49 a26490; /* C2 */ struct w3467 a35783; /* PAIR */ struct w3467 a35805; /* PAIR */ struct w49 t44644; struct structure_type24753 *t44645; struct w49 t44646; struct p15178 *t44647; struct p15178 *t44648; struct w49 t44649; struct w49 t44650; struct w49 t44651; struct w49 t44652; struct w49 t44653; struct w12224 t44654; struct w49 t44655; struct w49 t44656; struct w49 t44657; struct w49 t44658; struct p15178 *t44659; struct p15178 *t44660; struct w49 t44661; struct p15178 *t44662; struct w49 t44663; struct w49 t44664; struct w49 t44665; struct w49 t44666; struct w49 t44667; struct w49 t44668; struct w3467 t44669; struct w3467 t44670; struct p15178 *t44671; struct w12224 t44672; struct w227506 t44673; struct w49 t44674; struct p15178 *t44675; struct w49 t44676; struct w49 t44677; struct w49 t44678; struct w49 t44679; struct w12224 t44680; struct w49 t44681; struct w49 t44682; struct w49 t44683; struct w49 t44684; struct p15178 *t44685; struct p15178 *t44686; struct w49 t44687; struct p15178 *t44688; struct w49 t44689; struct w49 t44690; struct w49 t44691; struct w49 t44692; struct w49 t44693; struct w49 t44694; struct w3467 t44695; struct w3467 t44696; struct p15178 *t44697; struct w12224 t44698; struct w227506 t44699; struct w49 t44700; struct p15178 *t44701; struct w49 t44702; struct w49 t44703; struct w49 t44704; struct p15178 *e15178; struct p15178 *p15179; struct p15178 *p15180; struct p15178 *p15181; struct p15178 *p15182; struct p15178 *p15183; struct p15178 *p15184; struct p15178 *p15188; struct p15178 *p15189; struct p15178 *p15190; struct p15178 *p15191; h15178: e15178 = (struct p15178 *)alloca(sizeof(struct p15178)); if (e15178==NULL) {backtrace_internal("[inside C:COPY-PROPAGATE! 15176]"); out_of_memory_error();} e15178->a26484 = a26484; /* x138031 stalin.sc:17704:618989 */ /* x137878 stalin.sc:17704:618995 */ /* x137871 stalin.sc:17704:619000 */ /* x137870 stalin.sc:17704:619007 */ t44644 = e15178->a26484; /* x268710 stalin.sc:17704:619001 */ if (!((t44644.tag)==STRUCTURE_TYPE24753)) goto l6694; /* x137876 */ /* x137875 stalin.sc:17704:619015 */ /* x137874 stalin.sc:17704:619031 */ t44645 = e15178->a26484.value.structure_type24753; /* x137873 stalin.sc:17704:619016 */ t44646.tag = STRUCTURE_TYPE24753; t44646.value.structure_type24753 = t44645; if (!(f13410(t44646)==FALSE_TYPE)) goto l6694; /* x138028 */ /* x138027 */ t44647 = e15178; p15179 = t44647; /* x138026 */ /* x137952 stalin.sc:17705:619041 */ /* x137897 stalin.sc:17706:619054 */ /* x137889 stalin.sc:17706:619059 */ /* x137888 stalin.sc:17706:619087 */ /* x137887 stalin.sc:17706:619092 */ t44652 = p15179->a26484; /* x268707 stalin.sc:17706:619088 */ if (!((t44652.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17706, 619087); structure_ref_error();} t44651 = t44652.value.structure_type24753->s0; /* x137885 stalin.sc:17706:619060 */ if (f13455(t44651)==FALSE_TYPE) goto l6697; /* x137895 */ /* x137893 stalin.sc:17706:619102 */ /* x137892 stalin.sc:17706:619107 */ t44656 = p15179->a26484; /* x268706 stalin.sc:17706:619103 */ if (!((t44656.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17706, 619102); structure_ref_error();} t44653 = t44656.value.structure_type24753->s0; /* x137894 stalin.sc:17706:619110 */ t44654 = a26481; /* x137890 stalin.sc:17706:619097 */ t44655 = *((struct w49 *)(&t44654)); if ((f26351(t44653, t44655).tag)==FALSE_TYPE) goto l6697; /* x137903 */ /* x137902 */ t44675 = p15179; p15181 = t44675; /* x137901 stalin.sc:17707:619123 */ /* x137899 stalin.sc:17707:619133 */ t44676 = p15181->a26484; /* x137900 stalin.sc:17707:619135 */ /* x268705 stalin.sc:17707:619124 */ if (!((t44676.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17707, 619123); structure_set_error();} t44676.value.structure_type24753->s0.tag = NULL_TYPE; goto l6698; l6697: /* x137951 */ /* x137908 stalin.sc:17708:619148 */ /* x137907 stalin.sc:17708:619161 */ /* x137906 stalin.sc:17708:619166 */ t44658 = p15179->a26484; /* x268704 stalin.sc:17708:619162 */ if (!((t44658.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17708, 619161); structure_ref_error();} t44657 = t44658.value.structure_type24753->s0; /* x137904 stalin.sc:17708:619149 */ if (f13451(t44657)==FALSE_TYPE) goto l6701; /* x137948 */ /* x137947 */ t44659 = p15179; p15182 = t44659; /* x137946 stalin.sc:17709:619177 */ /* x137945 stalin.sc:17709:619187 */ /* x137943 stalin.sc:17710:619200 */ t44671 = p15182; /* x137944 stalin.sc:17711:619263 */ t44672 = a26481; /* x137930 stalin.sc:17709:619188 */ t44673.tag = NATIVE_PROCEDURE_TYPE21733; t44673.value.native_procedure_type21733 = t44671; t44674 = *((struct w49 *)(&t44672)); t44661 = f1314(t44673, t44674); /* x137929 */ t44660 = p15182; p15183 = t44660; a26488 = t44661; /* x137928 stalin.sc:17712:619271 */ /* x137909 stalin.sc:17712:619277 */ if ((a26488.tag)==FALSE_TYPE) goto l6704; /* x137925 */ /* x137924 */ t44662 = p15183; p15184 = t44662; /* x137923 stalin.sc:17713:619282 */ /* x137911 stalin.sc:17713:619292 */ t44663 = p15184->a26484; /* x137922 stalin.sc:17713:619294 */ /* x137921 stalin.sc:17714:619328 */ /* x137920 stalin.sc:17714:619335 */ /* x137919 stalin.sc:17714:619342 */ /* x137918 stalin.sc:17714:619350 */ /* x137917 stalin.sc:17714:619357 */ t44669 = *((struct w3467 *)(&a26488)); /* x137916 stalin.sc:17714:619351 */ a35783 = t44669; /* x274489 */ /* x274488 */ t44670 = a35783; /* x274487 */ if (!((t44670.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29932]"); structure_ref_error();} t44668 = t44670.value.structure_type24753->s0; /* x137915 stalin.sc:17714:619343 */ t44667 = f26181(t44668); /* x137914 stalin.sc:17714:619336 */ t44666 = f26187(t44667); /* x137913 stalin.sc:17714:619329 */ t44665 = f26187(t44666); /* x137912 stalin.sc:17713:619295 */ t44664 = f15141(t44665); /* x268703 stalin.sc:17713:619283 */ if (!((t44663.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17713, 619282); structure_set_error();} t44663.value.structure_type24753->s0 = t44664; goto l6705; l6704: /* x137927 stalin.sc:17712:619271 */ /* x137926 stalin.sc:17712:619271 */ l6705: goto l6702; l6701: /* x137950 */ /* x137949 */ l6702: l6698: /* x138020 stalin.sc:17715:619375 */ /* x137965 stalin.sc:17716:619388 */ /* x137957 stalin.sc:17716:619393 */ /* x137956 stalin.sc:17716:619421 */ /* x137955 stalin.sc:17716:619426 */ t44678 = p15179->a26484; /* x268701 stalin.sc:17716:619422 */ if (!((t44678.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17716, 619421); structure_ref_error();} t44677 = t44678.value.structure_type24753->s1; /* x137953 stalin.sc:17716:619394 */ if (f13455(t44677)==FALSE_TYPE) goto l6707; /* x137963 */ /* x137961 stalin.sc:17716:619436 */ /* x137960 stalin.sc:17716:619441 */ t44682 = p15179->a26484; /* x268700 stalin.sc:17716:619437 */ if (!((t44682.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17716, 619436); structure_ref_error();} t44679 = t44682.value.structure_type24753->s1; /* x137962 stalin.sc:17716:619444 */ t44680 = a26481; /* x137958 stalin.sc:17716:619431 */ t44681 = *((struct w49 *)(&t44680)); if ((f26351(t44679, t44681).tag)==FALSE_TYPE) goto l6707; /* x137971 */ /* x137970 */ t44701 = p15179; p15188 = t44701; /* x137969 stalin.sc:17717:619457 */ /* x137967 stalin.sc:17717:619467 */ t44702 = p15188->a26484; /* x137968 stalin.sc:17717:619469 */ /* x268699 stalin.sc:17717:619458 */ if (!((t44702.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17717, 619457); structure_set_error();} t44702.value.structure_type24753->s1.tag = NULL_TYPE; goto l6708; l6707: /* x138019 */ /* x137976 stalin.sc:17718:619482 */ /* x137975 stalin.sc:17718:619495 */ /* x137974 stalin.sc:17718:619500 */ t44684 = p15179->a26484; /* x268698 stalin.sc:17718:619496 */ if (!((t44684.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17718, 619495); structure_ref_error();} t44683 = t44684.value.structure_type24753->s1; /* x137972 stalin.sc:17718:619483 */ if (f13451(t44683)==FALSE_TYPE) goto l6711; /* x138016 */ /* x138015 */ t44685 = p15179; p15189 = t44685; /* x138014 stalin.sc:17719:619511 */ /* x138013 stalin.sc:17719:619521 */ /* x138011 stalin.sc:17720:619534 */ t44697 = p15189; /* x138012 stalin.sc:17721:619597 */ t44698 = a26481; /* x137998 stalin.sc:17719:619522 */ t44699.tag = NATIVE_PROCEDURE_TYPE21696; t44699.value.native_procedure_type21696 = t44697; t44700 = *((struct w49 *)(&t44698)); t44687 = f1314(t44699, t44700); /* x137997 */ t44686 = p15189; p15190 = t44686; a26490 = t44687; /* x137996 stalin.sc:17722:619605 */ /* x137977 stalin.sc:17722:619611 */ if ((a26490.tag)==FALSE_TYPE) goto l6714; /* x137993 */ /* x137992 */ t44688 = p15190; p15191 = t44688; /* x137991 stalin.sc:17723:619616 */ /* x137979 stalin.sc:17723:619626 */ t44689 = p15191->a26484; /* x137990 stalin.sc:17723:619628 */ /* x137989 stalin.sc:17724:619662 */ /* x137988 stalin.sc:17724:619669 */ /* x137987 stalin.sc:17724:619676 */ /* x137986 stalin.sc:17724:619684 */ /* x137985 stalin.sc:17724:619691 */ t44695 = *((struct w3467 *)(&a26490)); /* x137984 stalin.sc:17724:619685 */ a35805 = t44695; /* x274577 */ /* x274576 */ t44696 = a35805; /* x274575 */ if (!((t44696.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29954]"); structure_ref_error();} t44694 = t44696.value.structure_type24753->s0; /* x137983 stalin.sc:17724:619677 */ t44693 = f26181(t44694); /* x137982 stalin.sc:17724:619670 */ t44692 = f26187(t44693); /* x137981 stalin.sc:17724:619663 */ t44691 = f26187(t44692); /* x137980 stalin.sc:17723:619629 */ t44690 = f15141(t44691); /* x268697 stalin.sc:17723:619617 */ if (!((t44689.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17723, 619616); structure_set_error();} t44689.value.structure_type24753->s1 = t44690; goto l6715; l6714: /* x137995 stalin.sc:17722:619605 */ /* x137994 stalin.sc:17722:619605 */ l6715: goto l6712; l6711: /* x138018 */ /* x138017 */ l6712: l6708: /* x138025 stalin.sc:17725:619709 */ /* x138024 stalin.sc:17725:619715 */ /* x138023 stalin.sc:17725:619720 */ t44704 = p15179->a26484; /* x268695 stalin.sc:17725:619716 */ if (!((t44704.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17725, 619715); structure_ref_error();} t44703 = t44704.value.structure_type24753->s0; /* x138021 stalin.sc:17725:619710 */ f15178(t44703); /* x137884 */ t44648 = p15179; p15180 = t44648; /* x137883 stalin.sc:17726:619729 */ /* x137882 stalin.sc:17726:619735 */ /* x137881 stalin.sc:17726:619740 */ t44650 = p15180->a26484; /* x268708 stalin.sc:17726:619736 */ if (!((t44650.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17726, 619735); structure_ref_error();} t44649 = t44650.value.structure_type24753->s1; /* x137879 stalin.sc:17726:619730 */ a26484 = t44649; goto h15178; l6694: /* x138030 stalin.sc:17704:618989 */ /* x138029 stalin.sc:17704:618989 */ return;} /* MAYBE-PARENTHESES-AROUND[15141] */ struct w49 f15141(struct w49 a26445) {struct w49 r15141; struct w49 a35786; /* PAIR */ struct w49 a35787; /* PAIR */ struct w49 a35788; /* PAIR */ struct w49 a35789; /* PAIR */ struct w49 a35790; /* PAIR */ struct w49 a35791; /* PAIR */ struct w49 a35792; /* PAIR */ struct w49 a35793; /* PAIR */ struct w49 a35794; /* PAIR */ struct w49 a35795; /* PAIR */ struct w49 a35796; /* PAIR */ struct w49 a35797; /* PAIR */ struct w49 a35798; /* PAIR */ struct w49 a35799; /* PAIR */ struct w49 a35800; /* PAIR */ struct w49 a35801; /* PAIR */ struct w49 a35802; /* PAIR */ struct w49 a35803; /* PAIR */ struct w49 a35804; /* PAIR */ struct w49 t44705; char *t44706; char *t44707; struct w49 t44708; struct w49 t44709; char *t44710; char *t44711; struct w49 t44712; struct w49 t44713; char *t44714; char *t44715; struct w49 t44716; struct w49 t44717; char *t44718; char *t44719; struct w49 t44720; struct w49 t44721; char *t44722; char *t44723; struct w49 t44724; struct w49 t44725; char *t44726; char *t44727; struct w49 t44728; struct w49 t44729; char *t44730; char *t44731; struct w49 t44732; struct w49 t44733; char *t44734; char *t44735; struct w49 t44736; struct w49 t44737; char *t44738; char *t44739; struct w49 t44740; struct w49 t44741; char *t44742; char *t44743; struct w49 t44744; struct w49 t44745; char *t44746; char *t44747; struct w49 t44748; struct w49 t44749; char *t44750; char *t44751; struct w49 t44752; struct w49 t44753; char *t44754; char *t44755; struct w49 t44756; struct w49 t44757; char *t44758; char *t44759; struct w49 t44760; struct w49 t44761; char *t44762; struct w49 t44763; int t44764; int t44765; struct w49 t44766; struct w49 t44767; struct w49 t44768; struct w49 t44769; struct w49 t44770; char *t44771; struct w49 t44772; struct w49 t44773; struct w49 t44774; struct w49 t44775; struct w49 t44776; struct w49 t44777; struct w49 t44778; struct w49 t44779; struct w49 t44780; char *t44781; struct w49 t44782; struct w49 t44783; struct w49 t44784; struct w49 t44785; int t44786; int t44787; struct w49 t44788; struct w49 t44789; struct w49 t44790; struct w49 t44791; struct w49 t44792; char *t44793; struct w49 t44794; struct w49 t44795; struct w49 t44796; struct w49 t44797; struct w49 t44798; struct w49 t44799; struct w49 t44800; char *t44801; struct w49 t44802; struct w49 t44803; struct w49 t44804; struct w49 t44805; int t44806; int t44807; struct w49 t44808; struct w49 t44809; struct w49 t44810; struct w49 t44811; struct w49 t44812; char *t44813; struct w49 t44814; struct w49 t44815; struct w49 t44816; struct w49 t44817; struct w49 t44818; char *t44819; struct w49 t44820; struct w49 t44821; struct w49 t44822; struct w49 t44823; struct w49 t44824; char *t44825; struct w49 t44826; struct w49 t44827; struct w49 t44828; struct w49 t44829; struct w49 t44830; char *t44831; struct w49 t44832; struct w49 t44833; struct w49 t44834; struct w49 t44835; struct w49 t44836; char *t44837; struct w49 t44838; struct w49 t44839; struct w49 t44840; struct w49 t44841; struct w49 t44842; char *t44843; struct w49 t44844; struct w49 t44845; struct w49 t44846; struct w49 t44847; struct w49 t44848; char *t44849; struct w49 t44850; struct w49 t44851; struct w49 t44852; struct w49 t44853; struct w49 t44854; char *t44855; struct w49 t44856; struct w49 t44857; struct w49 t44858; struct w49 t44859; struct w49 t44860; char *t44861; struct w49 t44862; struct w49 t44863; struct w49 t44864; struct w49 t44865; struct w49 t44866; char *t44867; struct w49 t44868; struct w49 t44869; struct w49 t44870; struct w49 t44871; struct w49 t44872; char *t44873; struct w49 t44874; struct w49 t44875; struct w49 t44876; struct w49 t44877; struct w49 t44878; char *t44879; struct w49 t44880; struct w49 t44881; struct w49 t44882; struct w49 t44883; struct w49 t44884; char *t44885; struct w49 t44886; struct w49 t44887; struct w49 t44888; struct w49 t44889; struct w49 t44890; char *t44891; struct w49 t44892; struct w49 t44893; struct w49 t44894; struct w49 t44895; struct w49 t44896; struct w49 t44897; struct w49 t44898; struct structure_type24753 *t44899; /* x137864 stalin.sc:17632:616957 */ /* x137859 stalin.sc:17632:616961 */ /* x137858 stalin.sc:17632:616965 */ /* x137727 stalin.sc:17632:616970 */ /* x137726 stalin.sc:17632:616979 */ t44705 = a26445; /* x268711 stalin.sc:17632:616971 */ if (!((t44705.tag)==STRING_TYPE)) goto l6718; /* x137856 */ /* x137855 stalin.sc:17633:616993 */ /* x137854 stalin.sc:17633:617005 */ t44707 = "argc"; /* x137853 stalin.sc:17633:617003 */ t44706 = a26445.value.string_type; /* x137852 stalin.sc:17633:616994 */ t44708.tag = STRING_TYPE; t44708.value.string_type = t44706; t44709.tag = STRING_TYPE; t44709.value.string_type = t44707; if (!(f27434(t44708, t44709)==FALSE_TYPE)) goto l6716; /* x137849 */ /* x137848 stalin.sc:17634:617017 */ /* x137847 stalin.sc:17634:617029 */ t44711 = "argv"; /* x137846 stalin.sc:17634:617027 */ t44710 = a26445.value.string_type; /* x137845 stalin.sc:17634:617018 */ t44712.tag = STRING_TYPE; t44712.value.string_type = t44710; t44713.tag = STRING_TYPE; t44713.value.string_type = t44711; if (!(f27434(t44712, t44713)==FALSE_TYPE)) goto l6716; /* x137842 */ /* x137841 stalin.sc:17635:617041 */ /* x137840 stalin.sc:17635:617053 */ t44715 = "\'\\0\'"; /* x137839 stalin.sc:17635:617051 */ t44714 = a26445.value.string_type; /* x137838 stalin.sc:17635:617042 */ t44716.tag = STRING_TYPE; t44716.value.string_type = t44714; t44717.tag = STRING_TYPE; t44717.value.string_type = t44715; if (!(f27434(t44716, t44717)==FALSE_TYPE)) goto l6716; /* x137835 */ /* x137834 stalin.sc:17636:617066 */ /* x137833 stalin.sc:17636:617078 */ t44719 = "NULL"; /* x137832 stalin.sc:17636:617076 */ t44718 = a26445.value.string_type; /* x137831 stalin.sc:17636:617067 */ t44720.tag = STRING_TYPE; t44720.value.string_type = t44718; t44721.tag = STRING_TYPE; t44721.value.string_type = t44719; if (!(f27434(t44720, t44721)==FALSE_TYPE)) goto l6716; /* x137828 */ /* x137827 stalin.sc:17637:617090 */ /* x137826 stalin.sc:17637:617102 */ t44723 = "EOF"; /* x137825 stalin.sc:17637:617100 */ t44722 = a26445.value.string_type; /* x137824 stalin.sc:17637:617091 */ t44724.tag = STRING_TYPE; t44724.value.string_type = t44722; t44725.tag = STRING_TYPE; t44725.value.string_type = t44723; if (!(f27434(t44724, t44725)==FALSE_TYPE)) goto l6716; /* x137821 */ /* x137820 stalin.sc:17638:617113 */ /* x137819 stalin.sc:17638:617125 */ t44727 = "data"; /* x137818 stalin.sc:17638:617123 */ t44726 = a26445.value.string_type; /* x137817 stalin.sc:17638:617114 */ t44728.tag = STRING_TYPE; t44728.value.string_type = t44726; t44729.tag = STRING_TYPE; t44729.value.string_type = t44727; if (!(f27434(t44728, t44729)==FALSE_TYPE)) goto l6716; /* x137814 */ /* x137813 stalin.sc:17639:617137 */ /* x137812 stalin.sc:17639:617149 */ t44731 = "region"; /* x137811 stalin.sc:17639:617147 */ t44730 = a26445.value.string_type; /* x137810 stalin.sc:17639:617138 */ t44732.tag = STRING_TYPE; t44732.value.string_type = t44730; t44733.tag = STRING_TYPE; t44733.value.string_type = t44731; if (!(f27434(t44732, t44733)==FALSE_TYPE)) goto l6716; /* x137807 */ /* x137806 stalin.sc:17640:617163 */ /* x137805 stalin.sc:17640:617175 */ t44735 = "region_size"; /* x137804 stalin.sc:17640:617173 */ t44734 = a26445.value.string_type; /* x137803 stalin.sc:17640:617164 */ t44736.tag = STRING_TYPE; t44736.value.string_type = t44734; t44737.tag = STRING_TYPE; t44737.value.string_type = t44735; if (!(f27434(t44736, t44737)==FALSE_TYPE)) goto l6716; /* x137800 */ /* x137799 stalin.sc:17641:617194 */ /* x137798 stalin.sc:17641:617206 */ t44739 = "stdin"; /* x137797 stalin.sc:17641:617204 */ t44738 = a26445.value.string_type; /* x137796 stalin.sc:17641:617195 */ t44740.tag = STRING_TYPE; t44740.value.string_type = t44738; t44741.tag = STRING_TYPE; t44741.value.string_type = t44739; if (!(f27434(t44740, t44741)==FALSE_TYPE)) goto l6716; /* x137793 */ /* x137792 stalin.sc:17642:617219 */ /* x137791 stalin.sc:17642:617231 */ t44743 = "stdout"; /* x137790 stalin.sc:17642:617229 */ t44742 = a26445.value.string_type; /* x137789 stalin.sc:17642:617220 */ t44744.tag = STRING_TYPE; t44744.value.string_type = t44742; t44745.tag = STRING_TYPE; t44745.value.string_type = t44743; if (!(f27434(t44744, t44745)==FALSE_TYPE)) goto l6716; /* x137786 */ /* x137785 stalin.sc:17643:617245 */ /* x137784 stalin.sc:17643:617257 */ t44747 = "CLOCKS_PER_SEC"; /* x137783 stalin.sc:17643:617255 */ t44746 = a26445.value.string_type; /* x137782 stalin.sc:17643:617246 */ t44748.tag = STRING_TYPE; t44748.value.string_type = t44746; t44749.tag = STRING_TYPE; t44749.value.string_type = t44747; if (!(f27434(t44748, t44749)==FALSE_TYPE)) goto l6716; /* x137779 */ /* x137778 stalin.sc:17644:617279 */ /* x137777 stalin.sc:17644:617291 */ t44751 = "RAND_MAX"; /* x137776 stalin.sc:17644:617289 */ t44750 = a26445.value.string_type; /* x137775 stalin.sc:17644:617280 */ t44752.tag = STRING_TYPE; t44752.value.string_type = t44750; t44753.tag = STRING_TYPE; t44753.value.string_type = t44751; if (!(f27434(t44752, t44753)==FALSE_TYPE)) goto l6716; /* x137772 */ /* x137771 stalin.sc:17645:617307 */ /* x137770 stalin.sc:17645:617319 */ t44755 = "VALUE_OFFSET"; /* x137769 stalin.sc:17645:617317 */ t44754 = a26445.value.string_type; /* x137768 stalin.sc:17645:617308 */ t44756.tag = STRING_TYPE; t44756.value.string_type = t44754; t44757.tag = STRING_TYPE; t44757.value.string_type = t44755; if (!(f27434(t44756, t44757)==FALSE_TYPE)) goto l6716; /* x137765 */ /* x137764 stalin.sc:17646:617339 */ /* x137763 stalin.sc:17646:617351 */ t44759 = "CHAR_OFFSET"; /* x137762 stalin.sc:17646:617349 */ t44758 = a26445.value.string_type; /* x137761 stalin.sc:17646:617340 */ t44760.tag = STRING_TYPE; t44760.value.string_type = t44758; t44761.tag = STRING_TYPE; t44761.value.string_type = t44759; if (!(f27434(t44760, t44761)==FALSE_TYPE)) goto l6716; /* x137758 */ /* x137757 stalin.sc:17647:617386 */ t44762 = a26445.value.string_type; /* x137756 stalin.sc:17647:617371 */ a34656.tag = STRING_TYPE; a34656.value.string_type = t44762; if (!((f28477().tag)==FALSE_TYPE)) goto l6716; l6718: /* x137722 */ /* x137721 stalin.sc:17648:617393 */ /* x137676 stalin.sc:17648:617398 */ /* x137675 stalin.sc:17648:617405 */ t44763 = a26445; /* x137674 stalin.sc:17648:617399 */ if (f26209(t44763)==FALSE_TYPE) goto l6734; /* x137719 */ /* x137682 stalin.sc:17649:617415 */ /* x137680 stalin.sc:17649:617418 */ /* x137679 stalin.sc:17649:617426 */ t44766 = a26445; /* x137678 stalin.sc:17649:617419 */ t44764 = f26227(t44766); /* x137681 stalin.sc:17649:617429 */ t44765 = 3; /* x268715 stalin.sc:17649:617416 */ if (!(t44764==t44765)) goto l6734; /* x137717 */ /* x137687 stalin.sc:17650:617439 */ /* x137686 stalin.sc:17650:617448 */ /* x137685 stalin.sc:17650:617455 */ t44768 = a26445; /* x137684 stalin.sc:17650:617449 */ a35804 = t44768; /* x274573 */ /* x274572 */ t44769 = a35804; /* x274571 */ if (!((t44769.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29953]"); structure_ref_error();} t44767 = t44769.value.structure_type24753->s0; /* x268714 stalin.sc:17650:617440 */ if (!((t44767.tag)==STRING_TYPE)) goto l6734; /* x137715 */ /* x137693 stalin.sc:17651:617466 */ /* x137692 stalin.sc:17651:617486 */ t44771 = "\'"; /* x137691 stalin.sc:17651:617476 */ /* x137690 stalin.sc:17651:617483 */ t44774 = a26445; /* x137689 stalin.sc:17651:617477 */ a35803 = t44774; /* x274569 */ /* x274568 */ t44775 = a35803; /* x274567 */ if (!((t44775.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29952]"); structure_ref_error();} t44770 = t44775.value.structure_type24753->s0; /* x137688 stalin.sc:17651:617467 */ t44772 = t44770; t44773.tag = STRING_TYPE; t44773.value.string_type = t44771; if (f27434(t44772, t44773)==FALSE_TYPE) goto l6734; /* x137713 */ /* x137698 stalin.sc:17652:617498 */ /* x137697 stalin.sc:17652:617507 */ /* x137696 stalin.sc:17652:617515 */ t44777 = a26445; /* x137695 stalin.sc:17652:617508 */ t44776 = f26181(t44777); /* x268713 stalin.sc:17652:617499 */ if (!((t44776.tag)==STRING_TYPE)) goto l6734; /* x137711 */ /* x137703 stalin.sc:17653:617526 */ /* x137702 stalin.sc:17653:617535 */ /* x137701 stalin.sc:17653:617542 */ t44779 = a26445; /* x137700 stalin.sc:17653:617536 */ t44778 = f26187(t44779); /* x268712 stalin.sc:17653:617527 */ if (!((t44778.tag)==STRING_TYPE)) goto l6734; /* x137709 */ /* x137708 stalin.sc:17654:617573 */ t44781 = "\'"; /* x137707 stalin.sc:17654:617563 */ /* x137706 stalin.sc:17654:617570 */ t44784 = a26445; /* x137705 stalin.sc:17654:617564 */ t44780 = f26187(t44784); /* x137704 stalin.sc:17654:617554 */ t44782 = t44780; t44783.tag = STRING_TYPE; t44783.value.string_type = t44781; if (!(f27434(t44782, t44783)==FALSE_TYPE)) goto l6716; l6734: /* x137671 */ /* x137670 stalin.sc:17655:617581 */ /* x137632 stalin.sc:17655:617586 */ /* x137631 stalin.sc:17655:617593 */ t44785 = a26445; /* x137630 stalin.sc:17655:617587 */ if (f26209(t44785)==FALSE_TYPE) goto l6741; /* x137668 */ /* x137638 stalin.sc:17656:617603 */ /* x137636 stalin.sc:17656:617606 */ /* x137635 stalin.sc:17656:617614 */ t44788 = a26445; /* x137634 stalin.sc:17656:617607 */ t44786 = f26227(t44788); /* x137637 stalin.sc:17656:617617 */ t44787 = 3; /* x268718 stalin.sc:17656:617604 */ if (!(t44786==t44787)) goto l6741; /* x137666 */ /* x137643 stalin.sc:17657:617627 */ /* x137642 stalin.sc:17657:617636 */ /* x137641 stalin.sc:17657:617643 */ t44790 = a26445; /* x137640 stalin.sc:17657:617637 */ a35802 = t44790; /* x274565 */ /* x274564 */ t44791 = a35802; /* x274563 */ if (!((t44791.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29951]"); structure_ref_error();} t44789 = t44791.value.structure_type24753->s0; /* x268717 stalin.sc:17657:617628 */ if (!((t44789.tag)==STRING_TYPE)) goto l6741; /* x137664 */ /* x137649 stalin.sc:17658:617654 */ /* x137648 stalin.sc:17658:617674 */ t44793 = "\""; /* x137647 stalin.sc:17658:617664 */ /* x137646 stalin.sc:17658:617671 */ t44796 = a26445; /* x137645 stalin.sc:17658:617665 */ a35801 = t44796; /* x274561 */ /* x274560 */ t44797 = a35801; /* x274559 */ if (!((t44797.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29950]"); structure_ref_error();} t44792 = t44797.value.structure_type24753->s0; /* x137644 stalin.sc:17658:617655 */ t44794 = t44792; t44795.tag = STRING_TYPE; t44795.value.string_type = t44793; if (f27434(t44794, t44795)==FALSE_TYPE) goto l6741; /* x137662 */ /* x137654 stalin.sc:17659:617687 */ /* x137653 stalin.sc:17659:617696 */ /* x137652 stalin.sc:17659:617703 */ t44799 = a26445; /* x137651 stalin.sc:17659:617697 */ t44798 = f26187(t44799); /* x268716 stalin.sc:17659:617688 */ if (!((t44798.tag)==STRING_TYPE)) goto l6741; /* x137660 */ /* x137659 stalin.sc:17660:617734 */ t44801 = "\""; /* x137658 stalin.sc:17660:617724 */ /* x137657 stalin.sc:17660:617731 */ t44804 = a26445; /* x137656 stalin.sc:17660:617725 */ t44800 = f26187(t44804); /* x137655 stalin.sc:17660:617715 */ t44802 = t44800; t44803.tag = STRING_TYPE; t44803.value.string_type = t44801; if (!(f27434(t44802, t44803)==FALSE_TYPE)) goto l6716; l6741: /* x137627 */ /* x137454 stalin.sc:17661:617748 */ /* x137453 stalin.sc:17661:617755 */ t44805 = a26445; /* x137452 stalin.sc:17661:617749 */ if (f26209(t44805)==FALSE_TYPE) goto l6717; /* x137625 */ /* x137460 stalin.sc:17662:617765 */ /* x137458 stalin.sc:17662:617768 */ /* x137457 stalin.sc:17662:617776 */ t44808 = a26445; /* x137456 stalin.sc:17662:617769 */ t44806 = f26227(t44808); /* x137459 stalin.sc:17662:617779 */ t44807 = 2; /* x268721 stalin.sc:17662:617766 */ if (!(t44806==t44807)) goto l6717; /* x137623 */ /* x137465 stalin.sc:17663:617789 */ /* x137464 stalin.sc:17663:617798 */ /* x137463 stalin.sc:17663:617805 */ t44810 = a26445; /* x137462 stalin.sc:17663:617799 */ a35800 = t44810; /* x274557 */ /* x274556 */ t44811 = a35800; /* x274555 */ if (!((t44811.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29949]"); structure_ref_error();} t44809 = t44811.value.structure_type24753->s0; /* x268720 stalin.sc:17663:617790 */ if (!((t44809.tag)==STRING_TYPE)) goto l6717; /* x137621 */ /* x137614 stalin.sc:17664:617816 */ /* x137613 stalin.sc:17664:617820 */ /* x137612 stalin.sc:17664:617840 */ t44813 = "a"; /* x137611 stalin.sc:17664:617830 */ /* x137610 stalin.sc:17664:617837 */ t44816 = a26445; /* x137609 stalin.sc:17664:617831 */ a35799 = t44816; /* x274553 */ /* x274552 */ t44817 = a35799; /* x274551 */ if (!((t44817.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29948]"); structure_ref_error();} t44812 = t44817.value.structure_type24753->s0; /* x137608 stalin.sc:17664:617821 */ t44814 = t44812; t44815.tag = STRING_TYPE; t44815.value.string_type = t44813; if (!(f27434(t44814, t44815)==FALSE_TYPE)) goto l6750; /* x137605 */ /* x137604 stalin.sc:17665:617849 */ /* x137603 stalin.sc:17665:617869 */ t44819 = "e"; /* x137602 stalin.sc:17665:617859 */ /* x137601 stalin.sc:17665:617866 */ t44822 = a26445; /* x137600 stalin.sc:17665:617860 */ a35798 = t44822; /* x274549 */ /* x274548 */ t44823 = a35798; /* x274547 */ if (!((t44823.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29947]"); structure_ref_error();} t44818 = t44823.value.structure_type24753->s0; /* x137599 stalin.sc:17665:617850 */ t44820 = t44818; t44821.tag = STRING_TYPE; t44821.value.string_type = t44819; if (!(f27434(t44820, t44821)==FALSE_TYPE)) goto l6750; /* x137596 */ /* x137595 stalin.sc:17666:617878 */ /* x137594 stalin.sc:17666:617898 */ t44825 = "j"; /* x137593 stalin.sc:17666:617888 */ /* x137592 stalin.sc:17666:617895 */ t44828 = a26445; /* x137591 stalin.sc:17666:617889 */ a35797 = t44828; /* x274545 */ /* x274544 */ t44829 = a35797; /* x274543 */ if (!((t44829.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29946]"); structure_ref_error();} t44824 = t44829.value.structure_type24753->s0; /* x137590 stalin.sc:17666:617879 */ t44826 = t44824; t44827.tag = STRING_TYPE; t44827.value.string_type = t44825; if (!(f27434(t44826, t44827)==FALSE_TYPE)) goto l6750; /* x137587 */ /* x137586 stalin.sc:17667:617907 */ /* x137585 stalin.sc:17667:617927 */ t44831 = "p"; /* x137584 stalin.sc:17667:617917 */ /* x137583 stalin.sc:17667:617924 */ t44834 = a26445; /* x137582 stalin.sc:17667:617918 */ a35796 = t44834; /* x274541 */ /* x274540 */ t44835 = a35796; /* x274539 */ if (!((t44835.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29945]"); structure_ref_error();} t44830 = t44835.value.structure_type24753->s0; /* x137581 stalin.sc:17667:617908 */ t44832 = t44830; t44833.tag = STRING_TYPE; t44833.value.string_type = t44831; if (!(f27434(t44832, t44833)==FALSE_TYPE)) goto l6750; /* x137578 */ /* x137577 stalin.sc:17668:617936 */ /* x137576 stalin.sc:17668:617956 */ t44837 = "q"; /* x137575 stalin.sc:17668:617946 */ /* x137574 stalin.sc:17668:617953 */ t44840 = a26445; /* x137573 stalin.sc:17668:617947 */ a35795 = t44840; /* x274537 */ /* x274536 */ t44841 = a35795; /* x274535 */ if (!((t44841.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29944]"); structure_ref_error();} t44836 = t44841.value.structure_type24753->s0; /* x137572 stalin.sc:17668:617937 */ t44838 = t44836; t44839.tag = STRING_TYPE; t44839.value.string_type = t44837; if (!(f27434(t44838, t44839)==FALSE_TYPE)) goto l6750; /* x137569 */ /* x137568 stalin.sc:17669:617965 */ /* x137567 stalin.sc:17669:617985 */ t44843 = "r"; /* x137566 stalin.sc:17669:617975 */ /* x137565 stalin.sc:17669:617982 */ t44846 = a26445; /* x137564 stalin.sc:17669:617976 */ a35794 = t44846; /* x274533 */ /* x274532 */ t44847 = a35794; /* x274531 */ if (!((t44847.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29943]"); structure_ref_error();} t44842 = t44847.value.structure_type24753->s0; /* x137563 stalin.sc:17669:617966 */ t44844 = t44842; t44845.tag = STRING_TYPE; t44845.value.string_type = t44843; if (!(f27434(t44844, t44845)==FALSE_TYPE)) goto l6750; /* x137560 */ /* x137559 stalin.sc:17670:617994 */ /* x137558 stalin.sc:17670:618014 */ t44849 = "t"; /* x137557 stalin.sc:17670:618004 */ /* x137556 stalin.sc:17670:618011 */ t44852 = a26445; /* x137555 stalin.sc:17670:618005 */ a35793 = t44852; /* x274529 */ /* x274528 */ t44853 = a35793; /* x274527 */ if (!((t44853.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29942]"); structure_ref_error();} t44848 = t44853.value.structure_type24753->s0; /* x137554 stalin.sc:17670:617995 */ t44850 = t44848; t44851.tag = STRING_TYPE; t44851.value.string_type = t44849; if (!(f27434(t44850, t44851)==FALSE_TYPE)) goto l6750; /* x137551 */ /* x137550 stalin.sc:17671:618023 */ /* x137549 stalin.sc:17671:618043 */ t44855 = "v"; /* x137548 stalin.sc:17671:618033 */ /* x137547 stalin.sc:17671:618040 */ t44858 = a26445; /* x137546 stalin.sc:17671:618034 */ a35792 = t44858; /* x274525 */ /* x274524 */ t44859 = a35792; /* x274523 */ if (!((t44859.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29941]"); structure_ref_error();} t44854 = t44859.value.structure_type24753->s0; /* x137545 stalin.sc:17671:618024 */ t44856 = t44854; t44857.tag = STRING_TYPE; t44857.value.string_type = t44855; if (!(f27434(t44856, t44857)==FALSE_TYPE)) goto l6750; /* x137542 */ /* x137541 stalin.sc:17672:618052 */ /* x137540 stalin.sc:17672:618072 */ t44861 = "fp"; /* x137539 stalin.sc:17672:618062 */ /* x137538 stalin.sc:17672:618069 */ t44864 = a26445; /* x137537 stalin.sc:17672:618063 */ a35791 = t44864; /* x274521 */ /* x274520 */ t44865 = a35791; /* x274519 */ if (!((t44865.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29940]"); structure_ref_error();} t44860 = t44865.value.structure_type24753->s0; /* x137536 stalin.sc:17672:618053 */ t44862 = t44860; t44863.tag = STRING_TYPE; t44863.value.string_type = t44861; if (!(f27434(t44862, t44863)==FALSE_TYPE)) goto l6750; /* x137533 */ /* x137532 stalin.sc:17673:618082 */ /* x137531 stalin.sc:17673:618102 */ t44867 = "sfp"; /* x137530 stalin.sc:17673:618092 */ /* x137529 stalin.sc:17673:618099 */ t44870 = a26445; /* x137528 stalin.sc:17673:618093 */ a35790 = t44870; /* x274517 */ /* x274516 */ t44871 = a35790; /* x274515 */ if (!((t44871.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29939]"); structure_ref_error();} t44866 = t44871.value.structure_type24753->s0; /* x137527 stalin.sc:17673:618083 */ t44868 = t44866; t44869.tag = STRING_TYPE; t44869.value.string_type = t44867; if (!(f27434(t44868, t44869)==FALSE_TYPE)) goto l6750; /* x137524 */ /* x137523 stalin.sc:17674:618113 */ /* x137522 stalin.sc:17674:618133 */ t44873 = "region"; /* x137521 stalin.sc:17674:618123 */ /* x137520 stalin.sc:17674:618130 */ t44876 = a26445; /* x137519 stalin.sc:17674:618124 */ a35789 = t44876; /* x274513 */ /* x274512 */ t44877 = a35789; /* x274511 */ if (!((t44877.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29938]"); structure_ref_error();} t44872 = t44877.value.structure_type24753->s0; /* x137518 stalin.sc:17674:618114 */ t44874 = t44872; t44875.tag = STRING_TYPE; t44875.value.string_type = t44873; if (!(f27434(t44874, t44875)==FALSE_TYPE)) goto l6750; /* x137515 */ /* x137514 stalin.sc:17675:618147 */ /* x137513 stalin.sc:17675:618167 */ t44879 = "region_size"; /* x137512 stalin.sc:17675:618157 */ /* x137511 stalin.sc:17675:618164 */ t44882 = a26445; /* x137510 stalin.sc:17675:618158 */ a35788 = t44882; /* x274509 */ /* x274508 */ t44883 = a35788; /* x274507 */ if (!((t44883.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29937]"); structure_ref_error();} t44878 = t44883.value.structure_type24753->s0; /* x137509 stalin.sc:17675:618148 */ t44880 = t44878; t44881.tag = STRING_TYPE; t44881.value.string_type = t44879; if (!(f27434(t44880, t44881)==FALSE_TYPE)) goto l6750; /* x137506 */ /* x137505 stalin.sc:17676:618186 */ /* x137504 stalin.sc:17676:618206 */ t44885 = "initial_region"; /* x137503 stalin.sc:17676:618196 */ /* x137502 stalin.sc:17676:618203 */ t44888 = a26445; /* x137501 stalin.sc:17676:618197 */ a35787 = t44888; /* x274505 */ /* x274504 */ t44889 = a35787; /* x274503 */ if (!((t44889.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29936]"); structure_ref_error();} t44884 = t44889.value.structure_type24753->s0; /* x137500 stalin.sc:17676:618187 */ t44886 = t44884; t44887.tag = STRING_TYPE; t44887.value.string_type = t44885; if (!(f27434(t44886, t44887)==FALSE_TYPE)) goto l6750; /* x137497 */ /* x137496 stalin.sc:17677:618248 */ t44891 = "REGION_SIZE"; /* x137495 stalin.sc:17677:618238 */ /* x137494 stalin.sc:17677:618245 */ t44894 = a26445; /* x137493 stalin.sc:17677:618239 */ a35786 = t44894; /* x274501 */ /* x274500 */ t44895 = a35786; /* x274499 */ if (!((t44895.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29935]"); structure_ref_error();} t44890 = t44895.value.structure_type24753->s0; /* x137492 stalin.sc:17677:618229 */ t44892 = t44890; t44893.tag = STRING_TYPE; t44893.value.string_type = t44891; if (f27434(t44892, t44893)==FALSE_TYPE) goto l6717; l6750: /* x137619 */ /* x137618 stalin.sc:17678:618280 */ /* x137617 stalin.sc:17678:618288 */ t44897 = a26445; /* x137616 stalin.sc:17678:618281 */ t44896 = f26181(t44897); /* x268719 stalin.sc:17678:618272 */ if (!((t44896.tag)==STRING_TYPE)) goto l6717; l6716: /* x137860 stalin.sc:17679:618299 */ return a26445; l6717: /* x137863 stalin.sc:17680:618306 */ /* x137862 stalin.sc:17680:618326 */ t44898 = a26445; /* x137861 stalin.sc:17680:618307 */ t44899 = f13513(t44898); r15141.tag = STRUCTURE_TYPE24753; r15141.value.structure_type24753 = t44899; return r15141;} /* [inside LOOP 15137] */ void f15137(struct w49 a26444) {struct w49 a36695; /* S */ struct w49 a36696; /* S */ struct w6852 a39223; /* S */ struct w6852 a39224; /* S */ struct w49 a39964; /* S */ struct w49 t44900; struct structure_type27501 *t44901; struct w49 t44902; struct w49 t44903; struct w49 t44904; struct w49 t44905; struct w49 t44906; struct w6852 t44907; struct w6852 t44908; struct w49 t44909; struct w49 t44910; struct w6852 t44911; struct w6852 t44912; struct w49 t44913; struct w49 t44914; /* x137431 stalin.sc:17617:616521 */ /* x137409 stalin.sc:17617:616529 */ /* x137408 stalin.sc:17617:616548 */ t44900 = a26444; /* x137407 stalin.sc:17617:616530 */ if (f8585(t44900)==FALSE_TYPE) goto l6765; /* x137411 */ /* x137410 */ return; l6765: /* x137430 */ /* x137429 */ /* x137428 stalin.sc:17618:616558 */ /* x137422 stalin.sc:17619:616587 */ /* x137414 stalin.sc:17620:616611 */ t44903 = a26444; /* x137421 stalin.sc:17621:616615 */ /* x137420 stalin.sc:17622:616639 */ /* x137419 stalin.sc:17622:616656 */ /* x137418 stalin.sc:17622:616680 */ t44909 = a26444; /* x137417 stalin.sc:17622:616657 */ a36695 = t44909; /* x279449 */ /* x279448 */ t44910 = a36695; /* x279447 */ if (!((t44910.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31612]"); structure_ref_error();} t44907 = t44910.value.structure_type27694->s1; /* x137416 stalin.sc:17622:616640 */ a39223 = t44907; /* x289561 */ /* x289560 */ t44908 = a39223; /* x289559 */ if (!((t44908.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34140]"); structure_ref_error();} t44905 = t44908.value.structure_type27698->s15; /* x137415 stalin.sc:17621:616616 */ a39964 = t44905; /* x292525 */ /* x292524 */ t44906 = a39964; /* x292523 */ if (!((t44906.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34881]"); structure_ref_error();} t44904 = t44906.value.structure_type27698->s10; /* x137413 stalin.sc:17619:616588 */ t44901 = f7027(t44903, t44904); /* x137427 stalin.sc:17623:616694 */ /* x137426 stalin.sc:17623:616711 */ /* x137425 stalin.sc:17623:616735 */ t44913 = a26444; /* x137424 stalin.sc:17623:616712 */ a36696 = t44913; /* x279453 */ /* x279452 */ t44914 = a36696; /* x279451 */ if (!((t44914.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31613]"); structure_ref_error();} t44911 = t44914.value.structure_type27694->s1; /* x137423 stalin.sc:17623:616695 */ a39224 = t44911; /* x289565 */ /* x289564 */ t44912 = a39224; /* x289563 */ if (!((t44912.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34141]"); structure_ref_error();} t44902 = t44912.value.structure_type27698->s15; /* x137412 stalin.sc:17618:616559 */ b26412 = t44901; b26413 = t44902; f15067(); return;} /* [inside PROMOTE-EXPRESSION! 15128] */ void f15128(struct w49 a26438, struct w49 a26439) {struct structure_type27501 *t44915; struct w49 t44916; struct w49 t44917; struct w49 t44918; /* x137326 stalin.sc:17602:616031 */ /* x137324 stalin.sc:17602:616052 */ /* x137322 stalin.sc:17602:616076 */ t44917 = a26438; /* x137323 stalin.sc:17602:616078 */ /* x137321 stalin.sc:17602:616053 */ t44918.tag = FALSE_TYPE; t44915 = f7025(t44917, t44918); /* x137325 stalin.sc:17602:616082 */ t44916 = a26439; /* x137320 stalin.sc:17602:616032 */ b26412 = t44915; b26413 = t44916; f15067(); return;} /* [inside PROMOTE-EXPRESSION! 15126] */ void f15126(struct p15122 *p15126, struct w49 a26437) {struct w49 t44919; struct structure_type27501 *t44920; struct structure_type27745 *t44921; struct w49 t44922; struct structure_type24753 *t44923; struct structure_type27650 *t44924; struct w49 t44925; struct w49 t44926; struct structure_type27501 *t44927; struct structure_type27745 *t44928; struct w49 t44929; struct structure_type24753 *t44930; struct structure_type27650 *t44931; struct w49 t44932; /* x137295 stalin.sc:17607:616203 */ /* x137276 stalin.sc:17607:616207 */ /* x137275 stalin.sc:17607:616219 */ t44919 = p15126->p15067->a26413; /* x137274 stalin.sc:17607:616208 */ if (f8944(t44919)==FALSE_TYPE) goto l6767; /* x137285 stalin.sc:17608:616225 */ /* x137278 stalin.sc:17608:616250 */ t44927 = p15126->p15067->a26412; /* x137281 stalin.sc:17608:616252 */ /* x137280 stalin.sc:17608:616270 */ t44932 = p15126->p15067->a26413; /* x137279 stalin.sc:17608:616253 */ t44928 = f8739(t44932); /* x137282 stalin.sc:17608:616273 */ t44929 = a26437; /* x137283 stalin.sc:17608:616276 */ t44930 = p15126->a26434; /* x137284 stalin.sc:17608:616279 */ t44931 = a1675; /* x137277 stalin.sc:17608:616226 */ f15015(t44927, t44928, t44929, t44930, t44931); return; l6767: /* x137294 stalin.sc:17609:616290 */ /* x137287 stalin.sc:17609:616305 */ t44920 = p15126->p15067->a26412; /* x137290 stalin.sc:17609:616307 */ /* x137289 stalin.sc:17609:616325 */ t44926 = p15126->p15067->a26413; /* x137288 stalin.sc:17609:616308 */ t44921 = f8739(t44926); /* x137291 stalin.sc:17609:616328 */ t44922 = a26437; /* x137292 stalin.sc:17609:616331 */ t44923 = p15126->a26434; /* x137293 stalin.sc:17609:616334 */ t44924 = a1675; /* x137286 stalin.sc:17609:616291 */ /* MOVE: branching squeezed to general */ if (t44923>=((struct structure_type24753 *)VALUE_OFFSET)) {t44925.tag = STRUCTURE_TYPE24753; t44925.value.structure_type24753 = t44923;} else t44925.tag = (unsigned)t44923; f15036(t44920, t44921, t44922, t44925, t44924); return;} /* PROMOTE-EXPRESSION![15067] */ void f15067(void) {struct structure_type27501 *a26412 = b26412; /* R */ struct w49 a26413 = b26413; /* X */ char *a26417; /* v */ struct w49 a26427; /* U */ struct w49 a26428; /* E0 */ struct w6852 a26429; /* X0 */ struct w49 a26430; /* X1 */ struct w49 a26431; /* X2 */ struct w49 a26433; /* W0 */ struct structure_type24753 *a26434; /* WS */ struct w11873 a35780; /* PAIR */ struct w11873 a35926; /* PAIR */ struct w49 a36675; /* S */ struct w49 a36857; /* S */ struct w49 a36858; /* S */ struct w49 a38530; /* S */ struct w49 a38533; /* S */ struct w49 a38553; /* S */ struct w49 a38554; /* S */ struct w49 a38624; /* S */ struct w49 a38657; /* S */ struct w49 a38658; /* S */ struct w49 a38887; /* S */ struct w49 a38888; /* S */ struct w49 a38903; /* S */ struct w49 a38904; /* S */ struct w49 a38955; /* S */ struct w49 a38956; /* S */ struct w49 a38957; /* S */ struct w49 a38958; /* S */ struct w49 a39010; /* S */ struct w49 a39064; /* S */ struct w49 a39127; /* S */ struct w49 a39128; /* S */ struct w49 a39129; /* S */ struct w49 a39130; /* S */ struct w49 a39131; /* S */ struct w49 a39132; /* S */ struct w49 a39133; /* S */ struct w6852 a39207; /* S */ struct w49 a39895; /* S */ struct w49 a39918; /* S */ struct w49 a39959; /* S */ struct w49 a39960; /* S */ struct w49 a39962; /* S */ struct w49 a39963; /* S */ struct w49 a40302; /* S */ struct w49 a41650; /* G */ struct w49 a41668; /* G */ struct w49 a41697; /* G */ struct w49 a41736; /* G */ struct p15067 *t44933; struct structure_type27501 *t44934; struct w12218 t44935; struct w49 t44936; struct w211225 t44937; struct w49 t44938; struct w49 t44939; struct w49 t44940; struct w211235 t44941; struct w49 t44942; struct w49 t44943; struct w49 t44944; struct w211235 t44945; struct w49 t44946; struct w49 t44947; struct w49 t44948; struct w49 t44949; struct w49 t44950; struct p15067 *t44951; char *t44952; char *t44953; char *t44954; struct w49 t44955; struct w49 t44956; char *t44957; char *t44958; struct w49 t44959; struct w49 t44960; char *t44961; char *t44962; struct w49 t44963; struct w49 t44964; char *t44965; char *t44966; struct w49 t44967; struct w49 t44968; char *t44969; char *t44970; struct w49 t44971; struct w49 t44972; char *t44973; char *t44974; struct w49 t44975; struct w49 t44976; char *t44977; char *t44978; struct w49 t44979; struct w49 t44980; char *t44981; char *t44982; struct w49 t44983; struct w49 t44984; char *t44985; char *t44986; struct w49 t44987; struct w49 t44988; char *t44989; char *t44990; struct w49 t44991; struct w49 t44992; char *t44993; char *t44994; struct w49 t44995; struct w49 t44996; char *t44997; char *t44998; struct w49 t44999; struct w49 t45000; char *t45001; char *t45002; struct w49 t45003; struct w49 t45004; char *t45005; char *t45006; struct w49 t45007; struct w49 t45008; char *t45009; char *t45010; struct w49 t45011; struct w49 t45012; char *t45013; char *t45014; struct w49 t45015; struct w49 t45016; char *t45017; char *t45018; struct w49 t45019; struct w49 t45020; char *t45021; char *t45022; struct w49 t45023; struct w49 t45024; char *t45025; char *t45026; struct w49 t45027; struct w49 t45028; char *t45029; char *t45030; struct w49 t45031; struct w49 t45032; char *t45033; char *t45034; struct w49 t45035; struct w49 t45036; char *t45037; struct p15067 *t45038; struct structure_type27501 *t45039; struct w12218 t45040; struct w49 t45041; struct structure_type27501 *t45042; struct w12218 t45043; struct w49 t45044; struct p15067 *t45045; struct p15067 *t45046; struct w49 t45047; struct p15067 *t45048; struct structure_type24753 *t45049; struct p15122 *t45050; struct p15122 *t45051; struct w49 t45052; struct w49 t45053; struct p15122 *t45054; struct p15122 *t45055; struct w12224 t45056; struct w36108 t45057; struct w49 t45058; struct structure_type24753 *t45059; unsigned t45060; struct w49 t45061; struct w211061 t45062; struct w49 t45063; struct structure_type27501 *t45064; struct w49 t45065; struct w49 t45066; struct w49 t45067; struct w49 t45068; struct w49 t45069; struct structure_type24753 *t45070; struct w11873 t45071; struct w36108 t45072; struct w49 t45073; struct structure_type24753 *t45074; struct w49 t45075; struct w49 t45076; struct w11873 t45077; struct w36270 t45078; struct w49 t45079; struct structure_type24753 *t45080; struct w49 t45081; struct w49 t45082; struct w49 t45083; struct w49 t45084; struct w49 t45085; struct w49 t45086; struct p15067 *t45087; struct w49 t45088; struct w11873 t45089; struct w11873 t45090; struct w49 t45091; struct w49 t45092; struct p15067 *t45093; struct p15067 *t45094; struct w49 t45095; struct p15067 *t45096; struct w49 t45097; struct p15067 *t45098; struct w6852 t45099; struct p15067 *t45100; struct w49 t45101; struct w49 t45102; struct w49 t45103; struct w49 t45104; struct w49 t45105; struct w49 t45106; struct w49 t45107; struct w49 t45108; struct w49 t45109; struct w11873 t45110; struct w11873 t45111; struct w49 t45112; struct w49 t45113; struct w6852 t45114; struct w6852 t45115; struct w49 t45116; struct w49 t45117; struct w49 t45118; struct structure_type27745 *t45119; struct structure_type27745 *t45120; struct w49 t45121; struct w49 t45122; struct w49 t45123; struct w49 t45124; struct w49 t45125; struct w49 t45126; struct p15067 *t45127; struct w49 t45128; struct w49 t45129; struct w49 t45130; struct w49 t45131; struct w49 t45132; struct w49 t45133; struct w49 t45134; struct structure_type27501 *t45135; struct w12218 t45136; struct structure_type27501 *t45137; struct w12218 t45138; struct p15067 *t45139; struct structure_type27501 *t45140; struct w49 t45141; struct w49 t45142; struct w12218 t45143; struct w49 t45144; struct w49 t45145; struct w49 t45146; struct w49 t45147; struct w49 t45148; struct w49 t45149; struct p15067 *t45150; struct p15067 *t45151; struct structure_type27501 *t45152; struct w12218 t45153; struct w49 t45154; struct p15067 *t45155; struct p15067 *t45156; struct w49 t45157; struct w49 t45158; struct w49 t45159; struct p15067 *t45160; struct structure_type27501 *t45161; struct w49 t45162; struct w49 t45163; struct w49 t45164; struct w49 t45165; struct w49 t45166; struct w49 t45167; struct p15067 *t45168; struct structure_type27501 *t45169; struct w49 t45170; struct w49 t45171; struct w49 t45172; struct p15067 *t45173; struct w49 t45174; struct w49 t45175; struct w49 t45176; struct p15067 *t45177; struct w49 t45178; struct w49 t45179; struct w49 t45180; struct w49 t45181; struct w49 t45182; struct w49 t45183; struct p15067 *t45184; struct structure_type27501 *t45185; struct w49 t45186; struct w49 t45187; struct w49 t45188; struct w49 t45189; struct w49 t45190; struct w49 t45191; struct w49 t45192; struct w49 t45193; struct w49 t45194; struct w49 t45195; struct w49 t45196; struct w49 t45197; struct w49 t45198; struct w49 t45199; struct w49 t45200; struct w49 t45201; struct w49 t45202; struct structure_type27501 *t45203; struct w49 t45204; struct w49 t45205; struct w49 t45206; struct w49 t45207; struct w49 t45208; struct w49 t45209; struct w49 t45210; struct w49 t45211; struct w49 t45212; struct w49 t45213; struct structure_type27501 *t45214; struct p15067 *e15067; struct p15122 *e15122; struct p15067 *p15068; struct p15067 *p15069; struct p15067 *p15070; struct p15067 *p15071; struct p15067 *p15086; struct p15067 *p15087; struct p15067 *p15088; struct p15067 *p15089; struct p15067 *p15090; struct p15067 *p15091; struct p15067 *p15092; struct p15067 *p15094; struct p15067 *p15095; struct p15067 *p15096; struct p15067 *p15098; struct p15067 *p15102; struct p15067 *p15103; struct p15067 *p15104; struct p15067 *p15105; struct p15067 *p15108; struct p15067 *p15109; struct p15067 *p15110; struct p15067 *p15111; struct p15067 *p15112; struct p15067 *p15113; struct p15067 *p15119; struct p15067 *p15120; struct p15067 *p15121; struct p15067 *p15122; struct p15122 *p15123; struct p15122 *p15124; struct p15122 *p15125; h15067: e15067 = (struct p15067 *)GC_malloc(sizeof(struct p15067)); if (e15067==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e15067->a26412 = a26412; e15067->a26413 = a26413; /* x137390 */ /* x137389 stalin.sc:17533:613418 */ /* x137387 stalin.sc:17533:613442 */ t45213 = e15067->a26413; /* x137388 stalin.sc:17533:613444 */ t45214 = e15067->a26412; /* x137386 stalin.sc:17533:613419 */ f5680(t45213, t45214); /* x137385 */ t44933 = e15067; p15068 = t44933; /* x137384 stalin.sc:17534:613448 */ /* x136864 stalin.sc:17534:613452 */ /* x136819 stalin.sc:17534:613457 */ /* x136818 stalin.sc:17534:613462 */ /* x136817 stalin.sc:17534:613475 */ t44934 = p15068->a26412; /* x136816 stalin.sc:17534:613463 */ /* MOVE: branching squeezed to general */ if (t44934>=((struct structure_type27501 *)VALUE_OFFSET)) {t44935.tag = STRUCTURE_TYPE27501; t44935.value.structure_type27501 = t44934;} else t44935.tag = (unsigned)t44934; if (!(f7032(t44935)==FALSE_TYPE)) goto l6769; /* x136862 */ /* x136825 stalin.sc:17535:613482 */ /* x136821 stalin.sc:17535:613492 */ /* x136824 stalin.sc:17535:613506 */ /* x136823 stalin.sc:17535:613527 */ t44938 = p15068->a26413; /* x136822 stalin.sc:17535:613507 */ a39960 = t44938; /* x292509 */ /* x292508 */ t44939 = a39960; /* x292507 */ if (!((t44939.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34877]"); structure_ref_error();} t44936 = t44939.value.structure_type27698->s10; /* x136820 stalin.sc:17535:613483 */ t44937.tag = NATIVE_PROCEDURE_TYPE7432; if (f8146(t44937, t44936)==FALSE_TYPE) goto l6769; /* x136860 */ /* x136831 stalin.sc:17536:613534 */ /* x136827 stalin.sc:17536:613547 */ /* x136830 stalin.sc:17536:613558 */ /* x136829 stalin.sc:17536:613579 */ t44942 = p15068->a26413; /* x136828 stalin.sc:17536:613559 */ a39959 = t44942; /* x292505 */ /* x292504 */ t44943 = a39959; /* x292503 */ if (!((t44943.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34876]"); structure_ref_error();} t44940 = t44943.value.structure_type27698->s10; /* x136826 stalin.sc:17536:613535 */ t44941.tag = NATIVE_PROCEDURE_TYPE7434; if ((f8144(t44941, t44940).tag)==FALSE_TYPE) goto l6769; /* x136858 */ /* x136837 stalin.sc:17537:613586 */ /* x136833 stalin.sc:17537:613599 */ /* x136836 stalin.sc:17537:613611 */ /* x136835 stalin.sc:17537:613632 */ t44946 = p15068->a26413; /* x136834 stalin.sc:17537:613612 */ a39918 = t44946; /* x292341 */ /* x292340 */ t44947 = a39918; /* x292339 */ if (!((t44947.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34835]"); structure_ref_error();} t44944 = t44947.value.structure_type27698->s10; /* x136832 stalin.sc:17537:613587 */ t44945.tag = NATIVE_PROCEDURE_TYPE7433; if ((f8144(t44945, t44944).tag)==FALSE_TYPE) goto l6769; /* x136856 */ /* x136855 stalin.sc:17538:613643 */ /* x136854 stalin.sc:17538:613660 */ t44948 = p15068->a26413; /* x136853 stalin.sc:17538:613644 */ if (!(f15912(t44948)==FALSE_TYPE)) goto l6768; p15069 = p15068; /* x136850 */ /* x136849 stalin.sc:17538:613663 */ /* x136848 stalin.sc:17538:613679 */ t44949 = p15069->a26413; /* x136847 stalin.sc:17538:613664 */ if (!(f15913(t44949)==FALSE_TYPE)) goto l6768; p15070 = p15069; /* x136844 */ /* x136843 stalin.sc:17538:613699 */ t44950 = p15070->a26413; /* x136842 stalin.sc:17538:613683 */ if (f15919(t44950)==FALSE_TYPE) goto l6769; l6768: /* x136867 stalin.sc:17539:613709 */ /* x136866 stalin.sc:17539:613730 */ t45212 = p15068->a26413; /* x136865 stalin.sc:17539:613710 */ b26411 = t45212; f15066(); return; l6769: /* x137383 stalin.sc:17540:613738 */ /* x137382 stalin.sc:17540:613744 */ /* x137381 stalin.sc:17540:613761 */ t45210 = p15068->a26413; /* x137380 stalin.sc:17540:613745 */ a40302 = t45210; /* x293877 */ /* x293876 */ t45211 = a40302; /* x293875 */ if (!((t45211.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35219]"); structure_ref_error();} t44952 = t45211.value.structure_type27698->s0; /* x137379 */ t44951 = p15068; p15071 = t44951; a26417 = t44952; /* x137378 */ /* x136871 */ /* x136869 */ t44953 = a26417; /* x136870 */ t44954 = q68; /* x136868 */ t44955.tag = EXTERNAL_SYMBOL_TYPE; t44955.value.external_symbol_type = t44953; t44956.tag = EXTERNAL_SYMBOL_TYPE; t44956.value.external_symbol_type = t44954; if (f26160(t44955, t44956)==FALSE_TYPE) goto l6777; /* x136874 */ /* x136873 */ /* x136872 stalin.sc:17541:613787 */ return; l6777: /* x137377 */ /* x136878 */ /* x136876 */ t44957 = a26417; /* x136877 */ t44958 = q69; /* x136875 */ t44959.tag = EXTERNAL_SYMBOL_TYPE; t44959.value.external_symbol_type = t44957; t44960.tag = EXTERNAL_SYMBOL_TYPE; t44960.value.external_symbol_type = t44958; if (f26160(t44959, t44960)==FALSE_TYPE) goto l6779; /* x136881 */ /* x136880 */ /* x136879 stalin.sc:17542:613814 */ return; l6779: /* x137376 */ /* x136885 */ /* x136883 */ t44961 = a26417; /* x136884 */ t44962 = q70; /* x136882 */ t44963.tag = EXTERNAL_SYMBOL_TYPE; t44963.value.external_symbol_type = t44961; t44964.tag = EXTERNAL_SYMBOL_TYPE; t44964.value.external_symbol_type = t44962; if (f26160(t44963, t44964)==FALSE_TYPE) goto l6781; /* x136888 */ /* x136887 */ /* x136886 stalin.sc:17543:613842 */ return; l6781: /* x137375 */ /* x136892 */ /* x136890 */ t44965 = a26417; /* x136891 */ t44966 = q71; /* x136889 */ t44967.tag = EXTERNAL_SYMBOL_TYPE; t44967.value.external_symbol_type = t44965; t44968.tag = EXTERNAL_SYMBOL_TYPE; t44968.value.external_symbol_type = t44966; if (f26160(t44967, t44968)==FALSE_TYPE) goto l6783; /* x136895 */ /* x136894 */ /* x136893 stalin.sc:17544:613869 */ return; l6783: /* x137374 */ /* x136899 */ /* x136897 */ t44969 = a26417; /* x136898 */ t44970 = q72; /* x136896 */ t44971.tag = EXTERNAL_SYMBOL_TYPE; t44971.value.external_symbol_type = t44969; t44972.tag = EXTERNAL_SYMBOL_TYPE; t44972.value.external_symbol_type = t44970; if (f26160(t44971, t44972)==FALSE_TYPE) goto l6785; /* x136902 */ /* x136901 */ /* x136900 stalin.sc:17545:613898 */ return; l6785: /* x137373 */ /* x136906 */ /* x136904 */ t44973 = a26417; /* x136905 */ t44974 = q73; /* x136903 */ t44975.tag = EXTERNAL_SYMBOL_TYPE; t44975.value.external_symbol_type = t44973; t44976.tag = EXTERNAL_SYMBOL_TYPE; t44976.value.external_symbol_type = t44974; if (f26160(t44975, t44976)==FALSE_TYPE) goto l6787; /* x136909 */ /* x136908 */ /* x136907 stalin.sc:17546:613927 */ return; l6787: /* x137372 */ /* x136913 */ /* x136911 */ t44977 = a26417; /* x136912 */ t44978 = q74; /* x136910 */ t44979.tag = EXTERNAL_SYMBOL_TYPE; t44979.value.external_symbol_type = t44977; t44980.tag = EXTERNAL_SYMBOL_TYPE; t44980.value.external_symbol_type = t44978; if (f26160(t44979, t44980)==FALSE_TYPE) goto l6789; /* x136916 */ /* x136915 */ /* x136914 stalin.sc:17547:613961 */ return; l6789: /* x137371 */ /* x136920 */ /* x136918 */ t44981 = a26417; /* x136919 */ t44982 = q75; /* x136917 */ t44983.tag = EXTERNAL_SYMBOL_TYPE; t44983.value.external_symbol_type = t44981; t44984.tag = EXTERNAL_SYMBOL_TYPE; t44984.value.external_symbol_type = t44982; if (f26160(t44983, t44984)==FALSE_TYPE) goto l6791; /* x136923 */ /* x136922 */ /* x136921 stalin.sc:17548:613990 */ return; l6791: /* x137370 */ /* x136927 */ /* x136925 */ t44985 = a26417; /* x136926 */ t44986 = q76; /* x136924 */ t44987.tag = EXTERNAL_SYMBOL_TYPE; t44987.value.external_symbol_type = t44985; t44988.tag = EXTERNAL_SYMBOL_TYPE; t44988.value.external_symbol_type = t44986; if (f26160(t44987, t44988)==FALSE_TYPE) goto l6793; /* x136930 */ /* x136929 */ /* x136928 stalin.sc:17549:614019 */ return; l6793: /* x137369 */ /* x136934 */ /* x136932 */ t44989 = a26417; /* x136933 */ t44990 = q50; /* x136931 */ t44991.tag = EXTERNAL_SYMBOL_TYPE; t44991.value.external_symbol_type = t44989; t44992.tag = EXTERNAL_SYMBOL_TYPE; t44992.value.external_symbol_type = t44990; if (f26160(t44991, t44992)==FALSE_TYPE) goto l6795; /* x136937 */ /* x136936 */ /* x136935 stalin.sc:17550:614046 */ return; l6795: /* x137368 */ /* x136941 */ /* x136939 */ t44993 = a26417; /* x136940 */ t44994 = q52; /* x136938 */ t44995.tag = EXTERNAL_SYMBOL_TYPE; t44995.value.external_symbol_type = t44993; t44996.tag = EXTERNAL_SYMBOL_TYPE; t44996.value.external_symbol_type = t44994; if (f26160(t44995, t44996)==FALSE_TYPE) goto l6797; /* x136944 */ /* x136943 */ /* x136942 stalin.sc:17551:614075 */ return; l6797: /* x137367 */ /* x136966 */ /* x136965 */ /* x136963 */ t44997 = a26417; /* x136964 */ t44998 = q39; /* x136962 */ t44999.tag = EXTERNAL_SYMBOL_TYPE; t44999.value.external_symbol_type = t44997; t45000.tag = EXTERNAL_SYMBOL_TYPE; t45000.value.external_symbol_type = t44998; if (!(f26160(t44999, t45000)==FALSE_TYPE)) goto l6798; /* x136959 */ /* x136958 */ /* x136956 */ t45001 = a26417; /* x136957 */ t45002 = q40; /* x136955 */ t45003.tag = EXTERNAL_SYMBOL_TYPE; t45003.value.external_symbol_type = t45001; t45004.tag = EXTERNAL_SYMBOL_TYPE; t45004.value.external_symbol_type = t45002; if (!(f26160(t45003, t45004)==FALSE_TYPE)) goto l6798; /* x136952 */ /* x136950 */ t45005 = a26417; /* x136951 */ t45006 = q41; /* x136949 */ t45007.tag = EXTERNAL_SYMBOL_TYPE; t45007.value.external_symbol_type = t45005; t45008.tag = EXTERNAL_SYMBOL_TYPE; t45008.value.external_symbol_type = t45006; if (f26160(t45007, t45008)==FALSE_TYPE) goto l6799; l6798: /* x136969 */ /* x136968 */ /* x136967 stalin.sc:17552:614135 */ return; l6799: /* x137366 */ /* x136973 */ /* x136971 */ t45009 = a26417; /* x136972 */ t45010 = q42; /* x136970 */ t45011.tag = EXTERNAL_SYMBOL_TYPE; t45011.value.external_symbol_type = t45009; t45012.tag = EXTERNAL_SYMBOL_TYPE; t45012.value.external_symbol_type = t45010; if (f26160(t45011, t45012)==FALSE_TYPE) goto l6803; /* x137025 */ /* x137024 */ t45184 = p15071; p15086 = t45184; /* x137023 stalin.sc:17554:614160 */ /* x137019 stalin.sc:17555:614182 */ /* x137009 stalin.sc:17555:614186 */ /* x136999 stalin.sc:17555:614191 */ /* x136998 stalin.sc:17555:614195 */ /* x136997 stalin.sc:17555:614203 */ /* x136996 stalin.sc:17555:614224 */ t45189 = p15086->a26413; /* x136995 stalin.sc:17555:614204 */ a39130 = t45189; /* x289189 */ /* x289188 */ t45190 = a39130; /* x289187 */ if (!((t45190.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34047]"); structure_ref_error();} t45187 = t45190.value.structure_type27698->s16; /* x136994 stalin.sc:17555:614196 */ a41736 = t45187; /* x301056 stalin.sc:3890:131852 */ /* x301055 stalin.sc:3890:131869 */ t45188 = a41736; /* x301054 stalin.sc:3890:131853 */ if (!(f8204(t45188)==FALSE_TYPE)) goto l6844; p15087 = p15086; /* x136991 */ /* x136990 stalin.sc:17556:614235 */ /* x136989 stalin.sc:17556:614244 */ /* x136988 stalin.sc:17556:614265 */ t45193 = p15087->a26413; /* x136987 stalin.sc:17556:614245 */ a39129 = t45193; /* x289185 */ /* x289184 */ t45194 = a39129; /* x289183 */ if (!((t45194.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34046]"); structure_ref_error();} t45191 = t45194.value.structure_type27698->s16; /* x136986 stalin.sc:17556:614236 */ a41697 = t45191; /* x300900 stalin.sc:3916:132554 */ /* x300899 stalin.sc:3916:132572 */ t45192 = a41697; /* x300898 stalin.sc:3916:132555 */ if (!(f8209(t45192)==FALSE_TYPE)) goto l6844; p15088 = p15087; /* x136983 */ /* x136982 stalin.sc:17557:614286 */ /* x136981 stalin.sc:17557:614307 */ t45197 = p15088->a26413; /* x136980 stalin.sc:17557:614287 */ a39128 = t45197; /* x289181 */ /* x289180 */ t45198 = a39128; /* x289179 */ if (!((t45198.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34045]"); structure_ref_error();} t45195 = t45198.value.structure_type27698->s16; /* x136979 stalin.sc:17557:614277 */ a41650 = t45195; /* x300712 stalin.sc:3965:133896 */ /* x300711 stalin.sc:3965:133915 */ t45196 = a41650; /* x300710 stalin.sc:3965:133897 */ if (f8219(t45196)==FALSE_TYPE) goto l6842; l6844: /* x137007 */ /* x137002 stalin.sc:17558:614315 */ /* x137001 stalin.sc:17558:614338 */ t45199 = p15086->a26413; /* x137000 stalin.sc:17558:614316 */ if (f6984(t45199)==FALSE_TYPE) goto l6842; /* x137005 */ /* x137004 stalin.sc:17559:614355 */ t45200 = p15086->a26413; /* x137003 stalin.sc:17559:614345 */ if (f6967(t45200)==FALSE_TYPE) goto l6842; /* x137017 stalin.sc:17560:614364 */ /* x137015 stalin.sc:17561:614394 */ /* x137014 stalin.sc:17561:614413 */ /* x137013 stalin.sc:17561:614434 */ t45206 = p15086->a26413; /* x137012 stalin.sc:17561:614414 */ a39127 = t45206; /* x289177 */ /* x289176 */ t45207 = a39127; /* x289175 */ if (!((t45207.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34044]"); structure_ref_error();} t45204 = t45207.value.structure_type27698->s16; /* x137011 stalin.sc:17561:614395 */ a36857 = t45204; /* x280097 */ /* x280096 */ t45205 = a36857; /* x280095 */ if (!((t45205.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31774]"); structure_ref_error();} t45201 = t45205.value.structure_type27692->s9; /* x137016 stalin.sc:17561:614438 */ /* x137010 stalin.sc:17560:614365 */ t45202.tag = FALSE_TYPE; t45203 = f7025(t45201, t45202); t45185 = t45203; goto l6843; l6842: /* x137018 stalin.sc:17562:614447 */ t45185 = a1194; l6843: /* x137022 stalin.sc:17563:614459 */ /* x137021 stalin.sc:17563:614478 */ t45208 = p15086->a26413; /* x137020 stalin.sc:17563:614460 */ a39064 = t45208; /* x288925 */ /* x288924 */ t45209 = a39064; /* x288923 */ if (!((t45209.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33981]"); structure_ref_error();} t45186 = t45209.value.structure_type27698->s17; /* x136974 stalin.sc:17554:614161 */ a26412 = t45185; a26413 = t45186; goto h15067; l6803: /* x137365 */ /* x137029 */ /* x137027 */ t45013 = a26417; /* x137028 */ t45014 = q43; /* x137026 */ t45015.tag = EXTERNAL_SYMBOL_TYPE; t45015.value.external_symbol_type = t45013; t45016.tag = EXTERNAL_SYMBOL_TYPE; t45016.value.external_symbol_type = t45014; if (f26160(t45015, t45016)==FALSE_TYPE) goto l6805; /* x137100 */ /* x137099 */ t45150 = p15071; p15089 = t45150; /* x137098 */ /* x137097 stalin.sc:17565:614502 */ /* x137096 stalin.sc:17565:614523 */ /* x137095 stalin.sc:17565:614546 */ t45182 = p15089->a26413; /* x137094 stalin.sc:17565:614524 */ a39010 = t45182; /* x288709 */ /* x288708 */ t45183 = a39010; /* x288707 */ if (!((t45183.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33927]"); structure_ref_error();} t45181 = t45183.value.structure_type27698->s18; /* x137093 stalin.sc:17565:614503 */ b26411 = t45181; f15066(); /* x137092 */ t45151 = p15089; p15090 = t45151; /* x137091 stalin.sc:17566:614557 */ /* x137037 stalin.sc:17566:614564 */ /* x137032 stalin.sc:17566:614569 */ /* x137031 stalin.sc:17566:614582 */ t45152 = p15090->a26412; /* x137030 stalin.sc:17566:614570 */ /* MOVE: branching squeezed to general */ if (t45152>=((struct structure_type27501 *)VALUE_OFFSET)) {t45153.tag = STRUCTURE_TYPE27501; t45153.value.structure_type27501 = t45152;} else t45153.tag = (unsigned)t45152; if (f7032(t45153)==FALSE_TYPE) goto l6832; /* x137035 */ /* x137034 stalin.sc:17566:614602 */ t45154 = p15090->a26413; /* x137033 stalin.sc:17566:614586 */ if (f15912(t45154)==FALSE_TYPE) goto l6832; /* x137054 */ /* x137053 */ t45173 = p15090; p15091 = t45173; /* x137052 stalin.sc:17567:614613 */ /* x137042 stalin.sc:17567:614619 */ /* x137041 stalin.sc:17567:614629 */ /* x137040 stalin.sc:17567:614652 */ t45175 = p15091->a26413; /* x137039 stalin.sc:17567:614630 */ a38956 = t45175; /* x288493 */ /* x288492 */ t45176 = a38956; /* x288491 */ if (!((t45176.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33873]"); structure_ref_error();} t45174 = t45176.value.structure_type27698->s19; /* x137038 stalin.sc:17567:614620 */ if (f6961(t45174)==FALSE_TYPE) goto l6840; /* x137049 */ /* x137048 */ t45177 = p15091; p15092 = t45177; /* x137047 stalin.sc:17568:614664 */ /* x137046 stalin.sc:17568:614685 */ /* x137045 stalin.sc:17568:614708 */ t45179 = p15092->a26413; /* x137044 stalin.sc:17568:614686 */ a38955 = t45179; /* x288489 */ /* x288488 */ t45180 = a38955; /* x288487 */ if (!((t45180.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33872]"); structure_ref_error();} t45178 = t45180.value.structure_type27698->s19; /* x137043 stalin.sc:17568:614665 */ b26411 = t45178; f15066(); return; l6840: /* x137051 stalin.sc:17567:614613 */ /* x137050 stalin.sc:17567:614613 */ return; l6832: /* x137090 */ /* x137089 */ t45155 = p15090; p15094 = t45155; /* x137088 */ /* x137087 stalin.sc:17569:614726 */ /* x137076 stalin.sc:17569:614732 */ /* x137075 stalin.sc:17569:614742 */ /* x137074 stalin.sc:17569:614765 */ t45166 = p15094->a26413; /* x137073 stalin.sc:17569:614743 */ a38958 = t45166; /* x288501 */ /* x288500 */ t45167 = a38958; /* x288499 */ if (!((t45167.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33875]"); structure_ref_error();} t45165 = t45167.value.structure_type27698->s19; /* x137072 stalin.sc:17569:614733 */ if (f6961(t45165)==FALSE_TYPE) goto l6837; /* x137084 */ /* x137083 */ t45168 = p15094; p15098 = t45168; /* x137082 stalin.sc:17570:614775 */ /* x137078 stalin.sc:17570:614796 */ t45169 = p15098->a26412; /* x137081 stalin.sc:17570:614798 */ /* x137080 stalin.sc:17570:614821 */ t45171 = p15098->a26413; /* x137079 stalin.sc:17570:614799 */ a38957 = t45171; /* x288497 */ /* x288496 */ t45172 = a38957; /* x288495 */ if (!((t45172.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33874]"); structure_ref_error();} t45170 = t45172.value.structure_type27698->s19; /* x137077 stalin.sc:17570:614776 */ b26412 = t45169; b26413 = t45170; f15067(); goto l6838; l6837: /* x137086 stalin.sc:17569:614726 */ /* x137085 stalin.sc:17569:614726 */ l6838: /* x137071 */ t45156 = p15094; p15095 = t45156; /* x137070 stalin.sc:17571:614831 */ /* x137059 stalin.sc:17571:614837 */ /* x137058 stalin.sc:17571:614847 */ /* x137057 stalin.sc:17571:614869 */ t45158 = p15095->a26413; /* x137056 stalin.sc:17571:614848 */ a38904 = t45158; /* x288285 */ /* x288284 */ t45159 = a38904; /* x288283 */ if (!((t45159.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33821]"); structure_ref_error();} t45157 = t45159.value.structure_type27698->s20; /* x137055 stalin.sc:17571:614838 */ if (f6961(t45157)==FALSE_TYPE) goto l6835; /* x137067 */ /* x137066 */ t45160 = p15095; p15096 = t45160; /* x137065 stalin.sc:17572:614879 */ /* x137061 stalin.sc:17572:614900 */ t45161 = p15096->a26412; /* x137064 stalin.sc:17572:614902 */ /* x137063 stalin.sc:17572:614924 */ t45163 = p15096->a26413; /* x137062 stalin.sc:17572:614903 */ a38903 = t45163; /* x288281 */ /* x288280 */ t45164 = a38903; /* x288279 */ if (!((t45164.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33820]"); structure_ref_error();} t45162 = t45164.value.structure_type27698->s20; /* x137060 stalin.sc:17572:614880 */ a26412 = t45161; a26413 = t45162; goto h15067; l6835: /* x137069 stalin.sc:17571:614831 */ /* x137068 stalin.sc:17571:614831 */ return; l6805: /* x137364 */ /* x137104 */ /* x137102 */ t45017 = a26417; /* x137103 */ t45018 = q77; /* x137101 */ t45019.tag = EXTERNAL_SYMBOL_TYPE; t45019.value.external_symbol_type = t45017; t45020.tag = EXTERNAL_SYMBOL_TYPE; t45020.value.external_symbol_type = t45018; if (f26160(t45019, t45020)==FALSE_TYPE) goto l6807; /* x137107 */ /* x137106 */ /* x137105 stalin.sc:17573:614961 */ return; l6807: /* x137363 */ /* x137111 */ /* x137109 */ t45021 = a26417; /* x137110 */ t45022 = q78; /* x137108 */ t45023.tag = EXTERNAL_SYMBOL_TYPE; t45023.value.external_symbol_type = t45021; t45024.tag = EXTERNAL_SYMBOL_TYPE; t45024.value.external_symbol_type = t45022; if (f26160(t45023, t45024)==FALSE_TYPE) goto l6809; /* x137114 */ /* x137113 */ /* x137112 stalin.sc:17574:614992 */ return; l6809: /* x137362 */ /* x137118 */ /* x137116 */ t45025 = a26417; /* x137117 */ t45026 = q38; /* x137115 */ t45027.tag = EXTERNAL_SYMBOL_TYPE; t45027.value.external_symbol_type = t45025; t45028.tag = EXTERNAL_SYMBOL_TYPE; t45028.value.external_symbol_type = t45026; if (f26160(t45027, t45028)==FALSE_TYPE) goto l6811; /* x137166 */ /* x137165 */ t45127 = p15071; p15102 = t45127; /* x137164 stalin.sc:17576:615019 */ /* x137148 stalin.sc:17576:615025 */ /* x137123 stalin.sc:17576:615030 */ /* x137122 stalin.sc:17576:615041 */ /* x137121 stalin.sc:17576:615062 */ t45129 = p15102->a26413; /* x137120 stalin.sc:17576:615042 */ a39133 = t45129; /* x289201 */ /* x289200 */ t45130 = a39133; /* x289199 */ if (!((t45130.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34050]"); structure_ref_error();} t45128 = t45130.value.structure_type27698->s16; /* x137119 stalin.sc:17576:615031 */ if (f8229(t45128)==FALSE_TYPE) goto l6827; /* x137146 */ /* x137145 stalin.sc:17577:615074 */ /* x137144 stalin.sc:17577:615079 */ /* x137143 stalin.sc:17577:615088 */ /* x137142 stalin.sc:17577:615109 */ t45133 = p15102->a26413; /* x137141 stalin.sc:17577:615089 */ a39132 = t45133; /* x289197 */ /* x289196 */ t45134 = a39132; /* x289195 */ if (!((t45134.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34049]"); structure_ref_error();} t45131 = t45134.value.structure_type27698->s16; /* x137140 stalin.sc:17577:615080 */ a41668 = t45131; /* x300784 stalin.sc:3942:133266 */ /* x300783 stalin.sc:3942:133284 */ t45132 = a41668; /* x300782 stalin.sc:3942:133267 */ if (f8214(t45132)==FALSE_TYPE) goto l6826; p15103 = p15102; /* x137136 */ /* x137135 stalin.sc:17578:615122 */ /* x137134 stalin.sc:17578:615132 */ t45135 = p15103->a26412; /* x137133 stalin.sc:17578:615123 */ /* MOVE: branching squeezed to general */ if (t45135>=((struct structure_type27501 *)VALUE_OFFSET)) {t45136.tag = STRUCTURE_TYPE27501; t45136.value.structure_type27501 = t45135;} else t45136.tag = (unsigned)t45135; if (!(f7031(t45136)==FALSE_TYPE)) goto l6826; p15104 = p15103; /* x137130 */ /* x137129 stalin.sc:17579:615156 */ t45137 = p15104->a26412; /* x137128 stalin.sc:17579:615144 */ /* MOVE: branching squeezed to general */ if (t45137>=((struct structure_type27501 *)VALUE_OFFSET)) {t45138.tag = STRUCTURE_TYPE27501; t45138.value.structure_type27501 = t45137;} else t45138.tag = (unsigned)t45137; if (f7032(t45138)==FALSE_TYPE) goto l6827; l6826: /* x137161 */ /* x137160 */ t45139 = p15102; p15105 = t45139; /* x137159 stalin.sc:17580:615162 */ /* x137150 stalin.sc:17580:615172 */ t45140 = p15105->a26412; /* x137155 stalin.sc:17581:615178 */ /* x137154 stalin.sc:17581:615197 */ /* x137153 stalin.sc:17581:615218 */ t45146 = p15105->a26413; /* x137152 stalin.sc:17581:615198 */ a39131 = t45146; /* x289193 */ /* x289192 */ t45147 = a39131; /* x289191 */ if (!((t45147.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34048]"); structure_ref_error();} t45144 = t45147.value.structure_type27698->s16; /* x137151 stalin.sc:17581:615179 */ a36858 = t45144; /* x280101 */ /* x280100 */ t45145 = a36858; /* x280099 */ if (!((t45145.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31775]"); structure_ref_error();} t45141 = t45145.value.structure_type27692->s9; /* x137158 stalin.sc:17582:615226 */ /* x137157 stalin.sc:17582:615247 */ t45148 = p15105->a26413; /* x137156 stalin.sc:17582:615227 */ a39962 = t45148; /* x292517 */ /* x292516 */ t45149 = a39962; /* x292515 */ if (!((t45149.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34879]"); structure_ref_error();} t45142 = t45149.value.structure_type27698->s10; /* x137149 stalin.sc:17580:615163 */ /* MOVE: branching squeezed to general */ if (t45140>=((struct structure_type27501 *)VALUE_OFFSET)) {t45143.tag = STRUCTURE_TYPE27501; t45143.value.structure_type27501 = t45140;} else t45143.tag = (unsigned)t45140; f14848(t45143, t45141, t45142); return; l6827: /* x137163 stalin.sc:17576:615019 */ /* x137162 stalin.sc:17576:615019 */ return; l6811: /* x137361 */ /* x137179 */ /* x137178 */ /* x137176 */ t45029 = a26417; /* x137177 */ t45030 = q36; /* x137175 */ t45031.tag = EXTERNAL_SYMBOL_TYPE; t45031.value.external_symbol_type = t45029; t45032.tag = EXTERNAL_SYMBOL_TYPE; t45032.value.external_symbol_type = t45030; if (!(f26160(t45031, t45032)==FALSE_TYPE)) goto l6812; /* x137172 */ /* x137170 */ t45033 = a26417; /* x137171 */ t45034 = q37; /* x137169 */ t45035.tag = EXTERNAL_SYMBOL_TYPE; t45035.value.external_symbol_type = t45033; t45036.tag = EXTERNAL_SYMBOL_TYPE; t45036.value.external_symbol_type = t45034; if (f26160(t45035, t45036)==FALSE_TYPE) goto l6813; l6812: /* x137356 */ /* x137355 */ t45038 = p15071; p15108 = t45038; /* x137354 stalin.sc:17584:615289 */ /* x137187 stalin.sc:17585:615297 */ /* x137182 stalin.sc:17585:615302 */ /* x137181 stalin.sc:17585:615315 */ t45039 = p15108->a26412; /* x137180 stalin.sc:17585:615303 */ /* MOVE: branching squeezed to general */ if (t45039>=((struct structure_type27501 *)VALUE_OFFSET)) {t45040.tag = STRUCTURE_TYPE27501; t45040.value.structure_type27501 = t45039;} else t45040.tag = (unsigned)t45039; if (f7032(t45040)==FALSE_TYPE) goto l6816; /* x137185 */ /* x137184 stalin.sc:17585:615334 */ t45041 = p15108->a26413; /* x137183 stalin.sc:17585:615319 */ if (f15913(t45041)==FALSE_TYPE) goto l6816; /* x137245 */ /* x137244 */ t45093 = p15108; p15109 = t45093; /* x137243 stalin.sc:17586:615340 */ /* x137242 stalin.sc:17586:615350 */ /* x137241 stalin.sc:17586:615362 */ /* x137240 stalin.sc:17586:615383 */ /* x137239 stalin.sc:17586:615402 */ t45125 = p15109->a26413; /* x137238 stalin.sc:17586:615384 */ a38624 = t45125; /* x287165 */ /* x287164 */ t45126 = a38624; /* x287163 */ if (!((t45126.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33541]"); structure_ref_error();} t45123 = t45126.value.structure_type27698->s21; /* x137237 stalin.sc:17586:615363 */ a39895 = t45123; /* x292249 */ /* x292248 */ t45124 = a39895; /* x292247 */ if (!((t45124.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34812]"); structure_ref_error();} t45122 = t45124.value.structure_type27698->s10; /* x137236 stalin.sc:17586:615351 */ t45095 = f8153(t45122); /* x137235 */ t45094 = p15109; p15110 = t45094; a26427 = t45095; /* x137234 */ /* x137233 stalin.sc:17587:615414 */ /* x137229 stalin.sc:17587:615434 */ t45118 = a26427; /* x137232 stalin.sc:17587:615436 */ /* x137231 stalin.sc:17587:615454 */ t45121 = p15110->a26413; /* x137230 stalin.sc:17587:615437 */ t45119 = f8739(t45121); /* x137228 stalin.sc:17587:615415 */ t45120 = t45119; t45097 = f9368(t45118, t45120); /* x137227 */ t45096 = p15110; p15111 = t45096; a26428 = t45097; /* x137226 */ /* x137225 stalin.sc:17588:615465 */ /* x137224 stalin.sc:17588:615489 */ t45116 = a26428; /* x137223 stalin.sc:17588:615466 */ a36675 = t45116; /* x279369 */ /* x279368 */ t45117 = a36675; /* x279367 */ if (!((t45117.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31592]"); structure_ref_error();} t45099 = t45117.value.structure_type27694->s1; /* x137222 */ t45098 = p15111; p15112 = t45098; a26429 = t45099; /* x137221 */ /* x137220 stalin.sc:17589:615500 */ /* x137219 stalin.sc:17589:615517 */ t45114 = a26429; /* x137218 stalin.sc:17589:615501 */ a39207 = t45114; /* x289497 */ /* x289496 */ t45115 = a39207; /* x289495 */ if (!((t45115.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34124]"); structure_ref_error();} t45101 = t45115.value.structure_type27698->s15; /* x137217 */ t45100 = p15112; p15113 = t45100; a26430 = t45101; /* x137216 */ /* x137215 stalin.sc:17590:615528 */ /* x137214 stalin.sc:17590:615535 */ /* x137213 stalin.sc:17590:615557 */ t45112 = p15113->a26413; /* x137212 stalin.sc:17590:615536 */ a38530 = t45112; /* x286789 */ /* x286788 */ t45113 = a38530; /* x286787 */ if (!((t45113.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33447]"); structure_ref_error();} t45110 = t45113.value.structure_type27698->s22; /* x137211 stalin.sc:17590:615529 */ a35780 = t45110; /* x274477 */ /* x274476 */ t45111 = a35780; /* x274475 */ if (!((t45111.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29929]"); structure_ref_error();} t45102 = t45111.value.structure_type24753->s0; /* x137210 */ a26431 = t45102; /* x137209 */ /* x137208 */ /* x137207 */ /* x137206 stalin.sc:17591:615566 */ /* x137205 stalin.sc:17591:615587 */ t45109 = a26431; /* x137204 stalin.sc:17591:615567 */ b26411 = t45109; f15066(); /* x137203 */ /* x137202 stalin.sc:17592:615594 */ /* x137192 stalin.sc:17592:615600 */ /* x137191 stalin.sc:17592:615610 */ /* x137190 stalin.sc:17592:615632 */ t45104 = a26430; /* x137189 stalin.sc:17592:615611 */ a38888 = t45104; /* x288221 */ /* x288220 */ t45105 = a38888; /* x288219 */ if (!((t45105.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33805]"); structure_ref_error();} t45103 = t45105.value.structure_type27698->s20; /* x137188 stalin.sc:17592:615601 */ if (f6961(t45103)==FALSE_TYPE) goto l6825; /* x137199 */ /* x137198 */ /* x137197 stalin.sc:17593:615641 */ /* x137196 stalin.sc:17593:615662 */ /* x137195 stalin.sc:17593:615684 */ t45107 = a26430; /* x137194 stalin.sc:17593:615663 */ a38887 = t45107; /* x288217 */ /* x288216 */ t45108 = a38887; /* x288215 */ if (!((t45108.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33804]"); structure_ref_error();} t45106 = t45108.value.structure_type27698->s20; /* x137193 stalin.sc:17593:615642 */ b26411 = t45106; f15066(); return; l6825: /* x137201 stalin.sc:17592:615594 */ /* x137200 stalin.sc:17592:615594 */ return; l6816: /* x137353 */ /* x137253 stalin.sc:17594:615694 */ /* x137248 stalin.sc:17594:615699 */ /* x137247 stalin.sc:17594:615712 */ t45042 = p15108->a26412; /* x137246 stalin.sc:17594:615700 */ /* MOVE: branching squeezed to general */ if (t45042>=((struct structure_type27501 *)VALUE_OFFSET)) {t45043.tag = STRUCTURE_TYPE27501; t45043.value.structure_type27501 = t45042;} else t45043.tag = (unsigned)t45042; if (f7032(t45043)==FALSE_TYPE) goto l6819; /* x137251 */ /* x137250 stalin.sc:17594:615732 */ t45044 = p15108->a26413; /* x137249 stalin.sc:17594:615716 */ if (f15919(t45044)==FALSE_TYPE) goto l6819; /* x137262 */ /* x137261 */ t45087 = p15108; p15119 = t45087; /* x137260 stalin.sc:17595:615738 */ /* x137259 stalin.sc:17595:615759 */ /* x137258 stalin.sc:17595:615766 */ /* x137257 stalin.sc:17595:615788 */ t45091 = p15119->a26413; /* x137256 stalin.sc:17595:615767 */ a38533 = t45091; /* x286801 */ /* x286800 */ t45092 = a38533; /* x286799 */ if (!((t45092.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33450]"); structure_ref_error();} t45089 = t45092.value.structure_type27698->s22; /* x137255 stalin.sc:17595:615760 */ a35926 = t45089; /* x275061 */ /* x275060 */ t45090 = a35926; /* x275059 */ if (!((t45090.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30075]"); structure_ref_error();} t45088 = t45090.value.structure_type24753->s0; /* x137254 stalin.sc:17595:615739 */ b26411 = t45088; f15066(); return; l6819: /* x137352 */ /* x137351 */ t45045 = p15108; p15120 = t45045; /* x137350 stalin.sc:17597:615803 */ /* x137349 stalin.sc:17597:615814 */ /* x137348 stalin.sc:17597:615835 */ /* x137347 stalin.sc:17597:615854 */ t45085 = p15120->a26413; /* x137346 stalin.sc:17597:615836 */ a38658 = t45085; /* x287301 */ /* x287300 */ t45086 = a38658; /* x287299 */ if (!((t45086.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33575]"); structure_ref_error();} t45083 = t45086.value.structure_type27698->s21; /* x137345 stalin.sc:17597:615815 */ a39963 = t45083; /* x292521 */ /* x292520 */ t45084 = a39963; /* x292519 */ if (!((t45084.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34880]"); structure_ref_error();} t45047 = t45084.value.structure_type27698->s10; /* x137344 */ t45046 = p15120; p15121 = t45046; a26433 = t45047; /* x137343 */ /* x137342 stalin.sc:17598:615865 */ /* x137341 stalin.sc:17598:615890 */ /* x137340 stalin.sc:17598:615912 */ t45081 = p15121->a26413; /* x137339 stalin.sc:17598:615891 */ a38554 = t45081; /* x286885 */ /* x286884 */ t45082 = a38554; /* x286883 */ if (!((t45082.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33471]"); structure_ref_error();} t45077 = t45082.value.structure_type27698->s22; /* x137338 stalin.sc:17598:615870 */ /* x137337 stalin.sc:17598:615866 */ t45078.tag = NATIVE_PROCEDURE_TYPE7945; t45079 = *((struct w49 *)(&t45077)); t45080 = (struct structure_type24753 *)NULL_TYPE; t45049 = f27731(t45078, t45079, t45080); /* x137336 */ t45048 = p15121; p15122 = t45048; a26434 = t45049; e15122 = (struct p15122 *)GC_malloc(sizeof(struct p15122)); if (e15122==NULL) {backtrace_internal("[inside PROMOTE-EXPRESSION! 15121]"); out_of_memory_error();} e15122->p15067 = p15122; e15122->a26434 = a26434; /* x137335 */ /* x137334 */ t45050 = e15122; p15123 = t45050; /* x137333 */ /* x137318 stalin.sc:17599:615921 */ /* x137314 stalin.sc:17600:615946 */ /* x137312 stalin.sc:17600:615970 */ t45066 = a26433; /* x137313 stalin.sc:17600:615973 */ /* x137311 stalin.sc:17600:615947 */ t45067.tag = FALSE_TYPE; t45064 = f7025(t45066, t45067); /* x137317 stalin.sc:17600:615977 */ /* x137316 stalin.sc:17600:615996 */ t45068 = p15123->p15067->a26413; /* x137315 stalin.sc:17600:615978 */ a38657 = t45068; /* x287297 */ /* x287296 */ t45069 = a38657; /* x287295 */ if (!((t45069.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33574]"); structure_ref_error();} t45065 = t45069.value.structure_type27698->s21; /* x137310 stalin.sc:17599:615922 */ b26412 = t45064; b26413 = t45065; f15067(); /* x137332 stalin.sc:17601:616003 */ /* x137331 stalin.sc:17603:616093 */ /* x137330 stalin.sc:17603:616115 */ t45075 = p15123->p15067->a26413; /* x137329 stalin.sc:17603:616094 */ a38553 = t45075; /* x286881 */ /* x286880 */ t45076 = a38553; /* x286879 */ if (!((t45076.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33470]"); structure_ref_error();} t45071 = t45076.value.structure_type27698->s22; /* x137328 stalin.sc:17603:616090 */ t45070 = p15123->a26434; /* x137327 stalin.sc:17602:616017 */ /* x137319 stalin.sc:17601:616004 */ t45072.tag = NATIVE_PROCEDURE_TYPE18712; /* MOVE: branching squeezed to general */ if (t45070>=((struct structure_type24753 *)VALUE_OFFSET)) {t45073.tag = STRUCTURE_TYPE24753; t45073.value.structure_type24753 = t45070;} else t45073.tag = (unsigned)t45070; t45074 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t45074==NULL) {backtrace("stalin.sc", 17601, 616003); out_of_memory_error();} t45074->s0 = *((struct w49 *)(&t45071)); t45074->s1.tag = NULL_TYPE; f27755(t45072, t45073, t45074); /* x137309 */ t45051 = p15123; p15124 = t45051; /* x137308 stalin.sc:17604:616122 */ /* x137272 stalin.sc:17604:616128 */ /* x137265 stalin.sc:17604:616133 */ /* x137264 stalin.sc:17604:616144 */ t45052 = p15124->p15067->a26413; /* x137263 stalin.sc:17604:616134 */ if (f6967(t45052)==FALSE_TYPE) goto l6822; /* x137270 */ /* x137269 stalin.sc:17604:616152 */ /* x137268 stalin.sc:17604:616159 */ t45053 = a26433; /* x137267 stalin.sc:17604:616153 */ if (!(f8147(t45053)==FALSE_TYPE)) goto l6822; /* x137305 */ /* x137304 */ t45054 = p15124; p15125 = t45054; /* x137303 stalin.sc:17605:616169 */ /* x137302 stalin.sc:17610:616349 */ /* x137300 stalin.sc:17610:616363 */ /* x137299 stalin.sc:17610:616381 */ t45063 = p15125->p15067->a26413; /* x137298 stalin.sc:17610:616364 */ t45060 = f7886(t45063); /* x137301 stalin.sc:17610:616384 */ t45061 = a26433; /* x137297 stalin.sc:17610:616350 */ /* MOVE: dispatching squished to general */ if ((t45060&3)==1) {t45062.tag = NATIVE_PROCEDURE_TYPE19878; t45062.value.native_procedure_type19878 = (struct p7873 *)(t45060-1);} else {t45062.tag = NATIVE_PROCEDURE_TYPE19886; t45062.value.native_procedure_type19886 = (struct p7873 *)t45060;} t45056 = f8172(t45062, t45061); /* x137296 stalin.sc:17606:616184 */ t45055 = p15125; /* x137273 stalin.sc:17605:616170 */ t45057.tag = NATIVE_PROCEDURE_TYPE22178; t45057.value.native_procedure_type22178 = t45055; t45058 = *((struct w49 *)(&t45056)); t45059 = (struct structure_type24753 *)NULL_TYPE; f27755(t45057, t45058, t45059); return; l6822: /* x137307 stalin.sc:17604:616122 */ /* x137306 stalin.sc:17604:616122 */ return; l6813: /* x137360 */ /* x137359 */ /* x137358 stalin.sc:17611:616406 */ /* x137357 stalin.sc:17611:616407 */ /* x296497 QobiScheme.sc:166:5314 */ /* x296496 QobiScheme.sc:166:5321 */ t45037 = "This shouldn\'t happen"; /* x296495 QobiScheme.sc:166:5315 */ stalin_panic(t45037);} /* PROMOTE-ANTECEDENT![15066] */ void f15066(void) {struct w49 a26411 = b26411; /* X */ struct w49 a39961; /* S */ struct structure_type27501 *t45215; struct w49 t45216; struct w49 t45217; struct w12563 t45218; struct w12563 t45219; struct w12563 t45220; struct w49 t45221; struct w49 t45222; /* x136812 stalin.sc:17529:613295 */ /* x136810 stalin.sc:17530:613318 */ /* x136806 stalin.sc:17530:613344 */ /* x136805 stalin.sc:17530:613365 */ t45221 = a26411; /* x136804 stalin.sc:17530:613345 */ a39961 = t45221; /* x292513 */ /* x292512 */ t45222 = a39961; /* x292511 */ if (!((t45222.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34878]"); structure_ref_error();} t45217 = t45222.value.structure_type27698->s10; /* x136807 stalin.sc:17530:613368 */ /* x136808 stalin.sc:17530:613371 */ /* x136809 stalin.sc:17530:613374 */ /* x136803 stalin.sc:17530:613319 */ t45218.tag = FALSE_TYPE; t45219.tag = FALSE_TYPE; t45220.tag = FALSE_TYPE; t45215 = f7028(t45217, t45218, t45219, t45220); /* x136811 stalin.sc:17530:613378 */ t45216 = a26411; /* x136802 stalin.sc:17529:613296 */ b26412 = t45215; b26413 = t45216; f15067(); return;} /* PROMOTE-CALL![15036] */ void f15036(struct structure_type27501 *a26396, struct structure_type27745 *a26397, struct w49 a26398, struct w49 a26399, struct structure_type27650 *a26400) {struct w49 a19228; /* S */ struct w49 a26403; /* E0 */ struct w6852 a26404; /* X0 */ struct structure_type24753 *a26405; /* GS */ struct w49 a27267; /* S */ struct structure_type27501 *a27453; /* R */ struct structure_type27745 *a27454; /* Y */ struct w49 a27455; /* U0 */ struct w49 a27456; /* WS */ struct w49 a27464; /* W */ struct w49 a27465; /* U */ struct structure_type27501 *a27513; /* R */ struct w49 a27515; /* U0 */ struct w49 a27519; /* W1 */ struct w49 a27563; /* U0 */ struct w49 a27567; /* W1 */ struct w49 a27568; /* W2 */ struct structure_type27501 *a30607; /* R */ struct structure_type27745 *a30608; /* Y */ struct w49 a30610; /* WS */ struct w49 a30613; /* W1 */ struct w49 a30614; /* W2 */ struct w49 a30618; /* W */ struct w49 a30619; /* U */ struct structure_type27501 *a30730; /* R */ struct structure_type27745 *a30731; /* Y */ struct w49 a30733; /* WS */ struct w49 a30741; /* W */ struct w49 a30742; /* U */ struct structure_type27501 *a30833; /* R */ struct w49 a30839; /* W1 */ struct w49 a30840; /* W2 */ struct w49 a30890; /* W1 */ struct w49 a30891; /* W2 */ struct w49 a30892; /* W3 */ struct structure_type27501 *a31030; /* R */ struct structure_type27745 *a31031; /* Y */ struct w49 a31035; /* W0 */ struct w49 a31036; /* W1 */ struct w49 a31039; /* W */ struct w49 a35738; /* PAIR */ struct w49 a35745; /* PAIR */ struct w49 a35746; /* PAIR */ struct w49 a35747; /* PAIR */ struct w49 a35748; /* PAIR */ struct structure_type27745 *a36406; /* S */ struct structure_type27745 *a36408; /* S */ struct w49 a36669; /* S */ struct w49 a37648; /* S */ struct w49 a37649; /* S */ struct w49 a37818; /* S */ struct w49 a37819; /* S */ struct w49 a37820; /* S */ struct w49 a37864; /* OBJ */ struct w49 a37947; /* OBJ */ struct w49 a38062; /* OBJ */ struct w49 a38181; /* S */ struct w49 a38204; /* OBJ */ struct structure_type27501 *a38402; /* S */ struct structure_type27501 *a38403; /* S */ struct structure_type27501 *a38404; /* S */ struct structure_type27501 *a38405; /* S */ struct w6852 a39201; /* S */ struct w49 a39892; /* S */ struct w49 a39893; /* S */ struct w49 a39894; /* S */ struct w49 a40047; /* S */ struct structure_type24753 *a41827; /* CS */ struct w49 t45223; struct w49 t45224; struct w49 t45225; struct w49 t45226; struct w49 t45227; struct w49 t45228; struct w49 t45229; struct w49 t45230; char *t45231; struct structure_type27745 *t45232; struct w49 t45233; struct w49 t45234; struct structure_type27501 *t45235; struct w49 t45236; struct w49 t45237; struct w12218 t45238; struct w49 t45239; struct w49 t45240; struct w49 t45241; struct w49 t45242; struct w49 t45243; struct w49 t45244; struct w49 t45245; struct structure_type27501 *t45246; struct w49 t45247; struct w49 t45248; struct w49 t45249; struct w49 t45250; struct w49 t45251; struct w49 t45252; struct w49 t45253; struct w49 t45254; struct w12218 t45255; struct w49 t45256; struct w49 t45257; struct w49 t45258; struct w49 t45259; struct w49 t45260; struct w49 t45261; struct w49 t45262; struct w49 t45263; struct w49 t45264; struct w49 t45265; struct structure_type27650 *t45266; struct w211235 t45267; struct w49 t45268; struct structure_type27745 *t45269; char *t45270; struct w6315 t45271; struct w49 t45272; char *t45273; struct w49 t45275; struct w6852 t45276; struct structure_type24753 *t45277; struct w49 t45278; struct structure_type27745 *t45279; struct w49 t45280; struct w49 t45281; struct w49 t45282; struct structure_type27501 *t45283; struct w49 t45284; struct w49 t45285; struct w12218 t45286; struct w49 t45287; struct w49 t45288; struct w49 t45289; struct structure_type27745 *t45290; struct w49 t45291; struct structure_type27650 *t45292; struct structure_type24753 *t45293; struct structure_type27501 *t45294; struct w49 t45295; struct w6852 t45296; struct w6852 t45297; struct w49 t45298; struct structure_type27745 *t45299; struct w49 t45300; struct structure_type27650 *t45301; struct structure_type24753 *t45302; struct w49 t45303; struct structure_type27745 *t45304; struct w49 t45305; struct structure_type27650 *t45306; struct structure_type24753 *t45307; struct w49 t45308; char *t45309; struct w49 t45310; struct w49 t45311; struct w49 t45312; struct w49 t45313; struct structure_type27745 *t45314; struct structure_type27745 *t45315; struct w49 t45316; struct w49 t45317; struct structure_type27745 *t45318; struct structure_type27745 *t45319; struct w49 t45320; struct w228345 t45321; struct w49 t45322; struct structure_type24753 *t45323; unsigned t45324; struct structure_type27501 *t45325; struct structure_type27745 *t45326; struct w49 t45327; struct w49 t45328; struct w49 t45330; struct w49 t45331; struct w49 t45332; struct w49 t45333; struct p17852 *t45334; struct w49 t45335; struct p17853 *t45336; struct structure_type24753 *t45337; struct w49 t45338; struct p17852 *t45339; struct w49 t45340; struct w211257 t45341; struct p17853 *t45342; struct p17853 *t45343; struct w49 t45344; struct w211045 t45345; struct structure_type27745 *t45346; struct w49 t45347; char *t45348; struct structure_type27501 *t45349; struct structure_type27501 *t45350; struct p17796 *t45351; struct w49 t45352; struct w211045 t45353; struct p17776 *t45354; struct w49 t45355; struct w211045 t45356; struct structure_type27501 *t45357; struct w12218 t45358; struct structure_type27501 *t45359; struct w12218 t45360; struct structure_type27501 *t45361; struct w12218 t45362; struct structure_type27501 *t45363; struct w12218 t45364; struct p17726 *t45365; struct p17726 *t45366; struct w49 t45367; struct w49 t45368; struct p17732 *t45369; struct p17732 *t45370; struct w49 t45371; struct w36108 t45372; struct w49 t45373; struct structure_type24753 *t45374; struct p17726 *t45375; struct w49 t45376; struct w211113 t45377; struct structure_type27501 *t45378; struct structure_type27501 *t45379; struct structure_type27501 *t45380; struct w12218 t45381; struct structure_type27501 *t45382; struct w12218 t45383; struct structure_type27501 *t45384; struct w12218 t45385; struct structure_type27501 *t45386; struct w12218 t45387; struct p17660 *t45388; struct p17660 *t45389; struct w49 t45390; struct p17660 *t45391; struct w49 t45392; struct p17666 *t45393; struct p17666 *t45394; struct w49 t45395; struct w211045 t45396; struct p17660 *t45397; struct w49 t45398; struct w211113 t45399; struct structure_type27501 *t45400; struct structure_type27501 *t45401; struct p16427 *t45402; struct w49 t45403; struct w211045 t45404; struct p16411 *t45405; struct w49 t45406; struct w211045 t45407; struct structure_type27501 *t45408; struct w12218 t45409; struct structure_type27501 *t45410; struct w12218 t45411; struct structure_type27501 *t45412; struct w12218 t45413; struct structure_type27501 *t45414; struct w12218 t45415; struct p16379 *t45416; struct p16379 *t45417; struct w49 t45418; struct w49 t45419; struct w49 t45420; struct w11873 t45421; struct structure_type24753 *t45422; struct w49 t45423; struct w36108 t45424; struct w49 t45425; struct structure_type24753 *t45426; struct w49 t45427; struct w49 t45428; struct w49 t45429; int t45430; struct w11873 t45431; struct w49 t45432; struct w49 t45433; struct w49 t45434; struct p16379 *t45435; struct w49 t45436; struct w211113 t45437; struct structure_type27501 *t45438; struct structure_type27501 *t45439; struct w49 t45440; struct w49 t45441; struct w49 t45442; struct w49 t45443; struct structure_type24753 *t45444; struct w49 t45445; struct w49 t45446; struct w49 t45447; struct structure_type27745 *t45448; struct w49 t45449; struct w49 t45450; struct w49 t45451; struct w49 t45452; struct structure_type27745 *t45453; struct structure_type27745 *t45454; int t45455; int t45456; struct w49 t45457; struct w49 t45458; struct w49 t45459; int t45460; int t45461; struct w49 t45462; struct w49 t45463; int t45464; int t45465; struct w49 t45466; struct w49 t45467; struct structure_type27650 *t45468; struct w211235 t45469; struct w49 t45470; char *t45471; struct p16379 *e16379; struct p16411 *e16411; struct p16427 *e16427; struct p17660 *e17660; struct p17666 *e17666; struct p17726 *e17726; struct p17732 *e17732; struct p17776 *e17776; struct p17796 *e17796; struct p17852 *e17852; struct p17853 *e17853; struct p16379 *p16383; struct p16379 *p16384; struct p17660 *p17664; struct p17660 *p17665; struct p17660 *p17666; struct p17666 *p17667; struct p17726 *p17730; struct p17726 *p17731; struct p17732 *p17733; struct p17852 *p17853; struct p17853 *p17854; struct p17853 *p17859; /* x136799 stalin.sc:17479:611552 */ /* x136523 stalin.sc:17480:611561 */ /* x136522 stalin.sc:17480:611588 */ t45223 = a26398; /* x136521 stalin.sc:17480:611562 */ a38204 = t45223; /* x285485 */ /* x285484 */ t45224 = a38204; /* x285483 */ if (!((t45224.tag)==STRUCTURE_TYPE27753)) goto l6849; /* x136608 */ /* x136607 */ /* x136606 */ /* x136605 stalin.sc:17481:611595 */ /* x136598 stalin.sc:17481:611601 */ /* x136596 stalin.sc:17481:611614 */ /* x136597 stalin.sc:17481:611625 */ t45468 = a26400; /* x136595 stalin.sc:17481:611602 */ t45469.tag = NATIVE_PROCEDURE_TYPE7435; /* MOVE: branching squeezed to general */ if (t45468>=((struct structure_type27650 *)VALUE_OFFSET)) {t45470.tag = STRUCTURE_TYPE27650; t45470.value.structure_type27650 = t45468;} else t45470.tag = (unsigned)t45468; if ((f8144(t45469, t45470).tag)==FALSE_TYPE) goto l6914; /* x136602 */ /* x136601 */ /* x136600 stalin.sc:17481:611628 */ /* x136599 stalin.sc:17481:611629 */ /* x295513 QobiScheme.sc:166:5314 */ /* x295512 QobiScheme.sc:166:5321 */ t45471 = "This shouldn\'t happen"; /* x295511 QobiScheme.sc:166:5315 */ stalin_panic(t45471); goto l6915; l6914: /* x136604 stalin.sc:17481:611595 */ /* x136603 stalin.sc:17481:611595 */ l6915: /* x136594 */ /* x136593 stalin.sc:17482:611642 */ /* x136527 stalin.sc:17482:611650 */ /* x136526 stalin.sc:17482:611662 */ t45320 = a26399; /* x136525 stalin.sc:17482:611656 */ /* x136524 stalin.sc:17482:611651 */ t45321.tag = NATIVE_PROCEDURE_TYPE7359; t45322 = t45320; t45323 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t45321, t45322, t45323).tag)==FALSE_TYPE) goto l6877; /* x136529 */ /* x136528 */ return; l6877: /* x136592 */ /* x136591 */ /* x136590 stalin.sc:17483:611670 */ /* x136540 stalin.sc:17486:611795 */ t45325 = a26396; /* x136541 stalin.sc:17486:611797 */ t45326 = a26397; /* x136542 stalin.sc:17486:611799 */ t45327 = a26398; /* x136543 stalin.sc:17486:611802 */ t45328 = a26399; /* x136544 stalin.sc:17486:611805 */ /* x136556 stalin.sc:17487:611812 */ /* x136547 stalin.sc:17487:611816 */ /* x136546 stalin.sc:17487:611828 */ t45448 = a26397; /* x136545 stalin.sc:17487:611817 */ t45449.tag = STRUCTURE_TYPE27745; t45449.value.structure_type27745 = t45448; if (f8944(t45449)==FALSE_TYPE) goto l6902; /* x136554 stalin.sc:17488:611833 */ /* x136553 stalin.sc:17488:611854 */ /* x136552 stalin.sc:17488:611877 */ /* x136551 stalin.sc:17488:611899 */ t45453 = a26397; /* x136550 stalin.sc:17488:611878 */ a36406 = t45453; /* x278293 */ /* x278292 */ t45454 = a36406; /* x278291 */ t45452 = t45454->s0; /* x136549 stalin.sc:17488:611855 */ t45450 = f6994(t45452); /* x136548 stalin.sc:17488:611834 */ a39892 = t45450; /* x292237 */ /* x292236 */ t45451 = a39892; /* x292235 */ if (!((t45451.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34809]"); structure_ref_error();} t45330 = t45451.value.structure_type27698->s10; goto l6903; l6902: /* x136555 stalin.sc:17489:611906 */ t45330.tag = FALSE_TYPE; l6903: /* x136567 stalin.sc:17490:611915 */ /* x136562 stalin.sc:17490:611919 */ /* x136560 stalin.sc:17490:611923 */ /* x136559 stalin.sc:17490:611931 */ t45457 = a26399; /* x136558 stalin.sc:17490:611924 */ t45455 = f26227(t45457); /* x136561 stalin.sc:17490:611935 */ t45456 = 1; /* x268727 stalin.sc:17490:611920 */ if (!(t45455>=t45456)) goto l6905; /* x136565 stalin.sc:17490:611938 */ /* x136564 stalin.sc:17490:611945 */ t45458 = a26399; /* x136563 stalin.sc:17490:611939 */ a35738 = t45458; /* x274309 */ /* x274308 */ t45459 = a35738; /* x274307 */ if (!((t45459.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29887]"); structure_ref_error();} t45331 = t45459.value.structure_type24753->s0; goto l6906; l6905: /* x136566 stalin.sc:17490:611949 */ t45331.tag = FALSE_TYPE; l6906: /* x136578 stalin.sc:17491:611958 */ /* x136573 stalin.sc:17491:611962 */ /* x136571 stalin.sc:17491:611966 */ /* x136570 stalin.sc:17491:611974 */ t45462 = a26399; /* x136569 stalin.sc:17491:611967 */ t45460 = f26227(t45462); /* x136572 stalin.sc:17491:611978 */ t45461 = 2; /* x268726 stalin.sc:17491:611963 */ if (!(t45460>=t45461)) goto l6908; /* x136576 stalin.sc:17491:611981 */ /* x136575 stalin.sc:17491:611989 */ t45463 = a26399; /* x136574 stalin.sc:17491:611982 */ t45332 = f26181(t45463); goto l6909; l6908: /* x136577 stalin.sc:17491:611993 */ t45332.tag = FALSE_TYPE; l6909: /* x136589 stalin.sc:17492:612002 */ /* x136584 stalin.sc:17492:612006 */ /* x136582 stalin.sc:17492:612010 */ /* x136581 stalin.sc:17492:612018 */ t45466 = a26399; /* x136580 stalin.sc:17492:612011 */ t45464 = f26227(t45466); /* x136583 stalin.sc:17492:612022 */ t45465 = 3; /* x268725 stalin.sc:17492:612007 */ if (!(t45464>=t45465)) goto l6911; /* x136587 stalin.sc:17492:612025 */ /* x136586 stalin.sc:17492:612032 */ t45467 = a26399; /* x136585 stalin.sc:17492:612026 */ t45333 = f26187(t45467); goto l6912; l6911: /* x136588 stalin.sc:17492:612036 */ t45333.tag = FALSE_TYPE; l6912: /* x136539 stalin.sc:17483:611671 */ /* x136538 stalin.sc:17484:611707 */ /* x136537 stalin.sc:17484:611712 */ /* x136535 stalin.sc:17484:611718 */ /* x136534 stalin.sc:17484:611749 */ t45446 = a26398; /* x136533 stalin.sc:17484:611719 */ a38181 = t45446; /* x285393 */ /* x285392 */ t45447 = a38181; /* x285391 */ if (!((t45447.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-NAME[5895] 33098]"); structure_ref_error();} t45443 = t45447.value.structure_type27753->s0; /* x136536 stalin.sc:17485:611756 */ t45444 = a789; /* x136532 stalin.sc:17484:611713 */ /* MOVE: branching squeezed to general */ if (t45444>=((struct structure_type24753 *)VALUE_OFFSET)) {t45445.tag = STRUCTURE_TYPE24753; t45445.value.structure_type24753 = t45444;} else t45445.tag = (unsigned)t45444; t45442 = f26354(t45443, t45445); /* x268728 stalin.sc:17484:611708 */ if (!((t45442.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17484, 611707); structure_ref_error();} t45440 = t45442.value.structure_type24753->s1; /* x136530 stalin.sc:17483:611672 */ a27267 = t45440; /* x152954 */ /* x152953 */ t45441 = a27267; /* x152952 */ if (!((t45441.tag)==STRUCTURE_TYPE24757)) {backtrace_internal("PRIMITIVE-PROCEDURE-PROMOTE![16224]"); structure_ref_error();} t45324 = t45441.value.structure_type24757->s5; switch (t45324) {case NATIVE_PROCEDURE_TYPE6021: /* x169249 stalin.sc:24773:856489 */ return; case NATIVE_PROCEDURE_TYPE6028: /* x169019 stalin.sc:24704:854259 */ return; case NATIVE_PROCEDURE_TYPE6034: /* x168846 stalin.sc:24656:852741 */ return; case NATIVE_PROCEDURE_TYPE6040: /* x168803 stalin.sc:24645:852433 */ return; case NATIVE_PROCEDURE_TYPE6046: /* x168770 stalin.sc:24636:852205 */ return; case NATIVE_PROCEDURE_TYPE6052: /* x168737 stalin.sc:24627:851972 */ return; case NATIVE_PROCEDURE_TYPE6058: /* x168686 stalin.sc:24612:851600 */ return; case NATIVE_PROCEDURE_TYPE6064: /* x168630 stalin.sc:24597:851179 */ return; case NATIVE_PROCEDURE_TYPE6070: /* x168574 stalin.sc:24582:850752 */ return; case NATIVE_PROCEDURE_TYPE6076: /* x168518 stalin.sc:24567:850335 */ return; case NATIVE_PROCEDURE_TYPE6082: /* x168483 stalin.sc:24557:850043 */ return; case NATIVE_PROCEDURE_TYPE6088: /* x168401 stalin.sc:24539:849472 */ return; case NATIVE_PROCEDURE_TYPE6094: /* x168328 stalin.sc:24515:848937 */ return; case NATIVE_PROCEDURE_TYPE6100: /* x168289 stalin.sc:24506:848638 */ return; case NATIVE_PROCEDURE_TYPE6106: /* x168256 stalin.sc:24497:848396 */ return; case NATIVE_PROCEDURE_TYPE6112: /* x168206 stalin.sc:24482:848025 */ return; case NATIVE_PROCEDURE_TYPE6118: /* x168166 stalin.sc:24471:847700 */ return; case NATIVE_PROCEDURE_TYPE6124: /* x168057 stalin.sc:24448:846941 */ return; case NATIVE_PROCEDURE_TYPE6130: /* x167980 stalin.sc:24428:846368 */ return; case NATIVE_PROCEDURE_TYPE6136: /* x167896 stalin.sc:24404:845686 */ return; case NATIVE_PROCEDURE_TYPE6142: /* x167819 stalin.sc:24382:845066 */ return; case NATIVE_PROCEDURE_TYPE6148: /* x167640 stalin.sc:24338:843771 */ return; case NATIVE_PROCEDURE_TYPE6154: /* x167459 stalin.sc:24295:842469 */ return; case NATIVE_PROCEDURE_TYPE6160: /* x167424 stalin.sc:24286:842186 */ return; case NATIVE_PROCEDURE_TYPE6166: /* x167359 stalin.sc:24272:841698 */ return; case NATIVE_PROCEDURE_TYPE6172: a31030 = t45325; a31031 = t45326; a31035 = t45330; a31036 = t45331; e17852 = (struct p17852 *)alloca(sizeof(struct p17852)); if (e17852==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17852->a31030 = a31030; e17852->a31031 = a31031; e17852->a31035 = a31035; /* x166859 stalin.sc:24119:836600 */ /* x166858 stalin.sc:24119:836609 */ /* x166857 stalin.sc:24119:836626 */ t45349 = e17852->a31030; /* x166856 stalin.sc:24119:836610 */ a38402 = t45349; /* x286277 */ /* x286276 */ t45350 = a38402; /* x286275 */ if (!(t45350>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33319]"); structure_ref_error();} t45335 = t45350->s2; /* x166855 */ t45334 = e17852; p17853 = t45334; a31039 = t45335; e17853 = (struct p17853 *)alloca(sizeof(struct p17853)); if (e17853==NULL) {backtrace_internal("[inside top level 17852]"); out_of_memory_error();} e17853->p17852 = p17853; e17853->a31039 = a31039; /* x166854 */ /* x166853 stalin.sc:24120:836633 */ /* x166846 stalin.sc:24120:836639 */ /* x166845 stalin.sc:24120:836651 */ t45346 = p17853->a31031; /* x166844 stalin.sc:24120:836640 */ t45347.tag = STRUCTURE_TYPE27745; t45347.value.structure_type27745 = t45346; if (f8944(t45347)==FALSE_TYPE) goto l6882; /* x166850 */ /* x166849 */ /* x166848 stalin.sc:24120:836654 */ /* x166847 stalin.sc:24120:836655 */ /* x295509 QobiScheme.sc:166:5314 */ /* x295508 QobiScheme.sc:166:5321 */ t45348 = "This shouldn\'t happen"; /* x295507 QobiScheme.sc:166:5315 */ stalin_panic(t45348); goto l6883; l6882: /* x166852 stalin.sc:24120:836633 */ /* x166851 stalin.sc:24120:836633 */ l6883: /* x166843 */ t45336 = e17853; p17854 = t45336; /* x166842 stalin.sc:24121:836667 */ /* x166841 stalin.sc:24122:836687 */ /* x166761 stalin.sc:24122:836693 */ /* x166759 stalin.sc:24123:836705 */ t45339 = p17854->p17852; /* x166760 stalin.sc:24142:837289 */ t45340 = a31036; /* x166689 stalin.sc:24122:836694 */ t45341.tag = NATIVE_PROCEDURE_TYPE22304; t45341.value.native_procedure_type22304 = t45339; if ((f8137(t45341, t45340).tag)==FALSE_TYPE) goto l6879; /* x166838 */ /* x166837 */ t45342 = p17854; p17859 = t45342; /* x166836 stalin.sc:24143:837297 */ /* x166834 stalin.sc:24144:837319 */ t45343 = p17859; /* x166835 stalin.sc:24159:837848 */ t45344 = a31036; /* x166762 stalin.sc:24143:837298 */ t45345.tag = NATIVE_PROCEDURE_TYPE22307; t45345.value.native_procedure_type22307 = t45343; f8173(t45345, t45344); goto l6880; l6879: /* x166840 stalin.sc:24122:836687 */ /* x166839 stalin.sc:24122:836687 */ l6880: /* x166688 stalin.sc:24121:836668 */ a41827 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41827==NULL) {backtrace("stalin.sc", 24121, 836667); out_of_memory_error();} a41827->s1.tag = NULL_TYPE; /* x301420 stalin.sc:14400:506485 */ /* x301419 stalin.sc:14400:506503 */ t45337 = a41827; /* x301418 stalin.sc:14400:506486 */ t45338.tag = STRUCTURE_TYPE24753; t45338.value.structure_type24753 = t45337; f13492(t45338); return; case NATIVE_PROCEDURE_TYPE6178: /* x166433 stalin.sc:24060:834686 */ return; case NATIVE_PROCEDURE_TYPE6184: /* x166264 stalin.sc:24027:833516 */ return; case NATIVE_PROCEDURE_TYPE6190: a30890 = t45331; a30891 = t45332; a30892 = t45333; e17796 = (struct p17796 *)alloca(sizeof(struct p17796)); if (e17796==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17796->a30891 = a30891; e17796->a30892 = a30892; /* x166112 stalin.sc:23972:832134 */ /* x166110 stalin.sc:23973:832153 */ t45351 = e17796; /* x166111 stalin.sc:23984:832418 */ t45352 = a30890; /* x166074 stalin.sc:23972:832135 */ t45353.tag = NATIVE_PROCEDURE_TYPE22289; t45353.value.native_procedure_type22289 = t45351; f8173(t45353, t45352); return; case NATIVE_PROCEDURE_TYPE6196: a30833 = t45325; a30839 = t45331; a30840 = t45332; e17776 = (struct p17776 *)alloca(sizeof(struct p17776)); if (e17776==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17776->a30833 = a30833; e17776->a30840 = a30840; /* x165942 stalin.sc:23925:830960 */ /* x165940 stalin.sc:23926:830979 */ t45354 = e17776; /* x165941 stalin.sc:23933:831173 */ t45355 = a30839; /* x165910 stalin.sc:23925:830961 */ t45356.tag = NATIVE_PROCEDURE_TYPE22290; t45356.value.native_procedure_type22290 = t45354; f8173(t45356, t45355); return; case NATIVE_PROCEDURE_TYPE6202: /* x165800 stalin.sc:23895:830069 */ return; case NATIVE_PROCEDURE_TYPE6208: a30730 = t45325; a30731 = t45326; a30733 = t45328; e17726 = (struct p17726 *)alloca(sizeof(struct p17726)); if (e17726==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17726->a30731 = a30731; /* x165612 stalin.sc:23834:828205 */ /* x165562 stalin.sc:23834:828213 */ /* x165561 stalin.sc:23834:828217 */ /* x165560 stalin.sc:23834:828227 */ t45357 = a30730; /* x165559 stalin.sc:23834:828218 */ /* MOVE: branching squeezed to general */ if (t45357>=((struct structure_type27501 *)VALUE_OFFSET)) {t45358.tag = STRUCTURE_TYPE27501; t45358.value.structure_type27501 = t45357;} else t45358.tag = (unsigned)t45357; if (!(f7031(t45358)==FALSE_TYPE)) goto l6884; /* x165556 */ /* x165555 stalin.sc:23835:828236 */ /* x165554 stalin.sc:23835:828249 */ t45359 = a30730; /* x165553 stalin.sc:23835:828237 */ /* MOVE: branching squeezed to general */ if (t45359>=((struct structure_type27501 *)VALUE_OFFSET)) {t45360.tag = STRUCTURE_TYPE27501; t45360.value.structure_type27501 = t45359;} else t45360.tag = (unsigned)t45359; if (!(f7032(t45360)==FALSE_TYPE)) goto l6884; /* x165550 */ /* x165543 stalin.sc:23836:828263 */ /* x165542 stalin.sc:23836:828272 */ t45361 = a30730; /* x165541 stalin.sc:23836:828264 */ /* MOVE: branching squeezed to general */ if (t45361>=((struct structure_type27501 *)VALUE_OFFSET)) {t45362.tag = STRUCTURE_TYPE27501; t45362.value.structure_type27501 = t45361;} else t45362.tag = (unsigned)t45361; if (f7030(t45362)==FALSE_TYPE) goto l6885; /* x165548 */ /* x165547 stalin.sc:23836:828280 */ /* x165546 stalin.sc:23836:828298 */ t45363 = a30730; /* x165545 stalin.sc:23836:828281 */ /* MOVE: branching squeezed to general */ if (t45363>=((struct structure_type27501 *)VALUE_OFFSET)) {t45364.tag = STRUCTURE_TYPE27501; t45364.value.structure_type27501 = t45363;} else t45364.tag = (unsigned)t45363; if (!(f15338(t45364)==FALSE_TYPE)) goto l6885; l6884: /* x165564 */ /* x165563 */ return; l6885: /* x165611 */ /* x165610 */ t45365 = e17726; p17730 = t45365; /* x165609 stalin.sc:23837:828306 */ /* x165608 stalin.sc:23837:828316 */ /* x165607 stalin.sc:23837:828333 */ t45378 = a30730; /* x165606 stalin.sc:23837:828317 */ a38403 = t45378; /* x286281 */ /* x286280 */ t45379 = a38403; /* x286279 */ if (!(t45379>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33320]"); structure_ref_error();} t45367 = t45379->s2; /* x165605 */ t45366 = p17730; p17731 = t45366; a30741 = t45367; /* x165604 */ /* x165603 stalin.sc:23838:828342 */ /* x165601 stalin.sc:23839:828365 */ t45375 = p17731; /* x165602 stalin.sc:23843:828508 */ t45376 = a30741; /* x165587 stalin.sc:23838:828343 */ t45377.tag = NATIVE_PROCEDURE_TYPE22295; t45377.value.native_procedure_type22295 = t45375; t45368 = f8157(t45377, t45376); /* x165586 */ a30742 = t45368; e17732 = (struct p17732 *)alloca(sizeof(struct p17732)); if (e17732==NULL) {backtrace_internal("[inside top level 17731]"); out_of_memory_error();} e17732->a30742 = a30742; /* x165585 */ /* x165584 */ t45369 = e17732; p17733 = t45369; /* x165583 stalin.sc:23844:828516 */ /* x165582 stalin.sc:23851:828703 */ t45371 = a30733; /* x165581 stalin.sc:23844:828526 */ t45370 = p17733; /* x165565 stalin.sc:23844:828517 */ t45372.tag = NATIVE_PROCEDURE_TYPE22298; t45372.value.native_procedure_type22298 = t45370; t45373 = t45371; t45374 = (struct structure_type24753 *)NULL_TYPE; f27755(t45372, t45373, t45374); return; case NATIVE_PROCEDURE_TYPE6214: /* x165312 stalin.sc:23766:826352 */ return; case NATIVE_PROCEDURE_TYPE6220: a30607 = t45325; a30608 = t45326; a30610 = t45328; a30613 = t45331; a30614 = t45332; e17660 = (struct p17660 *)alloca(sizeof(struct p17660)); if (e17660==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e17660->a30608 = a30608; e17660->a30610 = a30610; e17660->a30614 = a30614; /* x165020 stalin.sc:23662:823481 */ /* x164946 stalin.sc:23662:823489 */ /* x164945 stalin.sc:23662:823493 */ /* x164944 stalin.sc:23662:823503 */ t45380 = a30607; /* x164943 stalin.sc:23662:823494 */ /* MOVE: branching squeezed to general */ if (t45380>=((struct structure_type27501 *)VALUE_OFFSET)) {t45381.tag = STRUCTURE_TYPE27501; t45381.value.structure_type27501 = t45380;} else t45381.tag = (unsigned)t45380; if (!(f7031(t45381)==FALSE_TYPE)) goto l6889; /* x164940 */ /* x164939 stalin.sc:23663:823512 */ /* x164938 stalin.sc:23663:823525 */ t45382 = a30607; /* x164937 stalin.sc:23663:823513 */ /* MOVE: branching squeezed to general */ if (t45382>=((struct structure_type27501 *)VALUE_OFFSET)) {t45383.tag = STRUCTURE_TYPE27501; t45383.value.structure_type27501 = t45382;} else t45383.tag = (unsigned)t45382; if (!(f7032(t45383)==FALSE_TYPE)) goto l6889; /* x164934 */ /* x164927 stalin.sc:23664:823539 */ /* x164926 stalin.sc:23664:823548 */ t45384 = a30607; /* x164925 stalin.sc:23664:823540 */ /* MOVE: branching squeezed to general */ if (t45384>=((struct structure_type27501 *)VALUE_OFFSET)) {t45385.tag = STRUCTURE_TYPE27501; t45385.value.structure_type27501 = t45384;} else t45385.tag = (unsigned)t45384; if (f7030(t45385)==FALSE_TYPE) goto l6890; /* x164932 */ /* x164931 stalin.sc:23664:823556 */ /* x164930 stalin.sc:23664:823574 */ t45386 = a30607; /* x164929 stalin.sc:23664:823557 */ /* MOVE: branching squeezed to general */ if (t45386>=((struct structure_type27501 *)VALUE_OFFSET)) {t45387.tag = STRUCTURE_TYPE27501; t45387.value.structure_type27501 = t45386;} else t45387.tag = (unsigned)t45386; if (!(f15338(t45387)==FALSE_TYPE)) goto l6890; l6889: /* x164948 */ /* x164947 */ return; l6890: /* x165019 */ /* x165018 */ t45388 = e17660; p17664 = t45388; /* x165017 stalin.sc:23665:823582 */ /* x165016 stalin.sc:23665:823592 */ /* x165015 stalin.sc:23665:823609 */ t45400 = a30607; /* x165014 stalin.sc:23665:823593 */ a38404 = t45400; /* x286285 */ /* x286284 */ t45401 = a38404; /* x286283 */ if (!(t45401>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33321]"); structure_ref_error();} t45390 = t45401->s2; /* x165013 */ t45389 = p17664; p17665 = t45389; a30618 = t45390; /* x165012 */ /* x165011 stalin.sc:23666:823618 */ /* x165009 stalin.sc:23667:823641 */ t45397 = p17665; /* x165010 stalin.sc:23671:823784 */ t45398 = a30618; /* x164995 stalin.sc:23666:823619 */ t45399.tag = NATIVE_PROCEDURE_TYPE22284; t45399.value.native_procedure_type22284 = t45397; t45392 = f8157(t45399, t45398); /* x164994 */ t45391 = p17665; p17666 = t45391; a30619 = t45392; e17666 = (struct p17666 *)alloca(sizeof(struct p17666)); if (e17666==NULL) {backtrace_internal("[inside top level 17665]"); out_of_memory_error();} e17666->p17660 = p17666; e17666->a30619 = a30619; /* x164993 */ /* x164992 */ t45393 = e17666; p17667 = t45393; /* x164991 stalin.sc:23672:823792 */ /* x164989 stalin.sc:23673:823813 */ t45394 = p17667; /* x164990 stalin.sc:23682:824074 */ t45395 = a30613; /* x164949 stalin.sc:23672:823793 */ t45396.tag = NATIVE_PROCEDURE_TYPE22287; t45396.value.native_procedure_type22287 = t45394; f8173(t45396, t45395); return; case NATIVE_PROCEDURE_TYPE6226: /* x164867 stalin.sc:23639:822704 */ return; case NATIVE_PROCEDURE_TYPE6232: /* x164707 stalin.sc:23594:821567 */ return; case NATIVE_PROCEDURE_TYPE6238: /* x164594 stalin.sc:23562:820735 */ return; case NATIVE_PROCEDURE_TYPE6244: /* x164519 stalin.sc:23541:820160 */ return; case NATIVE_PROCEDURE_TYPE6250: /* x164327 stalin.sc:23500:818960 */ return; case NATIVE_PROCEDURE_TYPE6256: /* x163936 stalin.sc:23386:815942 */ return; case NATIVE_PROCEDURE_TYPE6262: /* x163886 stalin.sc:23374:815432 */ return; case NATIVE_PROCEDURE_TYPE6268: /* x163766 stalin.sc:23346:814621 */ return; case NATIVE_PROCEDURE_TYPE6274: /* x163708 stalin.sc:23329:814189 */ return; case NATIVE_PROCEDURE_TYPE6280: /* x163673 stalin.sc:23320:813925 */ return; case NATIVE_PROCEDURE_TYPE6286: /* x163522 stalin.sc:23290:813014 */ return; case NATIVE_PROCEDURE_TYPE6292: /* x163426 stalin.sc:23269:812404 */ return; case NATIVE_PROCEDURE_TYPE6298: /* x163243 stalin.sc:23230:811245 */ return; case NATIVE_PROCEDURE_TYPE6304: /* x163129 stalin.sc:23183:808961 */ return; case NATIVE_PROCEDURE_TYPE6310: /* x162964 stalin.sc:23119:806649 */ return; case NATIVE_PROCEDURE_TYPE6316: /* x162881 stalin.sc:23095:805924 */ return; case NATIVE_PROCEDURE_TYPE6322: /* x162805 stalin.sc:23060:804375 */ return; case NATIVE_PROCEDURE_TYPE6328: /* x162729 stalin.sc:23025:802821 */ return; case NATIVE_PROCEDURE_TYPE6334: /* x162653 stalin.sc:23003:802205 */ return; case NATIVE_PROCEDURE_TYPE6340: /* x162577 stalin.sc:22981:801589 */ return; case NATIVE_PROCEDURE_TYPE6346: /* x162501 stalin.sc:22959:800973 */ return; case NATIVE_PROCEDURE_TYPE6352: /* x162425 stalin.sc:22924:799410 */ return; case NATIVE_PROCEDURE_TYPE6358: /* x162300 stalin.sc:22896:798599 */ return; case NATIVE_PROCEDURE_TYPE6364: /* x162107 stalin.sc:22856:797440 */ return; case NATIVE_PROCEDURE_TYPE6370: /* x161950 stalin.sc:22824:796477 */ return; case NATIVE_PROCEDURE_TYPE6376: /* x161793 stalin.sc:22791:795526 */ return; case NATIVE_PROCEDURE_TYPE6382: /* x161670 stalin.sc:22763:794597 */ return; case NATIVE_PROCEDURE_TYPE6388: /* x161575 stalin.sc:22739:793768 */ return; case NATIVE_PROCEDURE_TYPE6394: /* x161478 stalin.sc:22715:792941 */ return; case NATIVE_PROCEDURE_TYPE6400: /* x161418 stalin.sc:22700:792441 */ return; case NATIVE_PROCEDURE_TYPE6406: /* x161092 stalin.sc:22630:790536 */ return; case NATIVE_PROCEDURE_TYPE6412: /* x160695 stalin.sc:22551:788249 */ return; case NATIVE_PROCEDURE_TYPE6418: /* x160298 stalin.sc:22471:785897 */ return; case NATIVE_PROCEDURE_TYPE6424: /* x159901 stalin.sc:22391:783536 */ return; case NATIVE_PROCEDURE_TYPE6430: /* x159662 stalin.sc:22342:781874 */ return; case NATIVE_PROCEDURE_TYPE6436: /* x159398 stalin.sc:22283:779427 */ return; case NATIVE_PROCEDURE_TYPE6442: /* x159150 stalin.sc:22238:777839 */ return; case NATIVE_PROCEDURE_TYPE6448: /* x158891 stalin.sc:22190:776186 */ return; case NATIVE_PROCEDURE_TYPE6454: /* x158686 stalin.sc:22146:774615 */ return; case NATIVE_PROCEDURE_TYPE6460: /* x158492 stalin.sc:22105:773112 */ return; case NATIVE_PROCEDURE_TYPE6466: /* x158297 stalin.sc:22070:771916 */ return; case NATIVE_PROCEDURE_TYPE6472: /* x158168 stalin.sc:22042:771115 */ return; case NATIVE_PROCEDURE_TYPE6478: /* x157978 stalin.sc:22008:770148 */ return; case NATIVE_PROCEDURE_TYPE6484: /* x157824 stalin.sc:21980:769359 */ return; case NATIVE_PROCEDURE_TYPE6490: /* x157771 stalin.sc:21970:768993 */ return; case NATIVE_PROCEDURE_TYPE6496: /* x157718 stalin.sc:21960:768628 */ return; case NATIVE_PROCEDURE_TYPE6502: /* x157665 stalin.sc:21950:768264 */ return; case NATIVE_PROCEDURE_TYPE6508: /* x157556 stalin.sc:21930:767600 */ return; case NATIVE_PROCEDURE_TYPE6514: /* x157496 stalin.sc:21915:767137 */ return; case NATIVE_PROCEDURE_TYPE6520: /* x157403 stalin.sc:21897:766556 */ return; case NATIVE_PROCEDURE_TYPE6526: /* x157244 stalin.sc:21868:765709 */ return; case NATIVE_PROCEDURE_TYPE6532: /* x157109 stalin.sc:21845:764894 */ return; case NATIVE_PROCEDURE_TYPE6538: /* x157006 stalin.sc:21827:764258 */ return; case NATIVE_PROCEDURE_TYPE6544: /* x156911 stalin.sc:21803:763578 */ return; case NATIVE_PROCEDURE_TYPE6550: /* x156811 stalin.sc:21775:762845 */ return; case NATIVE_PROCEDURE_TYPE6556: /* x156776 stalin.sc:21765:762555 */ return; case NATIVE_PROCEDURE_TYPE6562: /* x156711 stalin.sc:21752:762110 */ return; case NATIVE_PROCEDURE_TYPE6568: /* x154751 stalin.sc:21298:744432 */ return; case NATIVE_PROCEDURE_TYPE6574: /* x154563 stalin.sc:21254:742775 */ return; case NATIVE_PROCEDURE_TYPE6580: /* x154498 stalin.sc:21241:742323 */ return; case NATIVE_PROCEDURE_TYPE6586: a27563 = t45327; a27567 = t45331; a27568 = t45332; e16427 = (struct p16427 *)alloca(sizeof(struct p16427)); if (e16427==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16427->a27563 = a27563; e16427->a27568 = a27568; /* x154372 stalin.sc:21194:740898 */ /* x154370 stalin.sc:21195:740917 */ t45402 = e16427; /* x154371 stalin.sc:21209:741330 */ t45403 = a27567; /* x154324 stalin.sc:21194:740899 */ t45404.tag = NATIVE_PROCEDURE_TYPE22278; t45404.value.native_procedure_type22278 = t45402; f8173(t45404, t45403); return; case NATIVE_PROCEDURE_TYPE6592: a27513 = t45325; a27515 = t45327; a27519 = t45331; e16411 = (struct p16411 *)alloca(sizeof(struct p16411)); if (e16411==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16411->a27513 = a27513; e16411->a27515 = a27515; /* x154195 stalin.sc:21148:739451 */ /* x154193 stalin.sc:21149:739470 */ t45405 = e16411; /* x154194 stalin.sc:21158:739789 */ t45406 = a27519; /* x154155 stalin.sc:21148:739452 */ t45407.tag = NATIVE_PROCEDURE_TYPE22279; t45407.value.native_procedure_type22279 = t45405; f8173(t45407, t45406); return; case NATIVE_PROCEDURE_TYPE6598: a27453 = t45325; a27454 = t45326; a27455 = t45327; a27456 = t45328; e16379 = (struct p16379 *)alloca(sizeof(struct p16379)); if (e16379==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e16379->a27454 = a27454; e16379->a27455 = a27455; /* x153937 stalin.sc:21074:737172 */ /* x153865 stalin.sc:21074:737180 */ /* x153864 stalin.sc:21074:737184 */ /* x153863 stalin.sc:21074:737194 */ t45408 = a27453; /* x153862 stalin.sc:21074:737185 */ /* MOVE: branching squeezed to general */ if (t45408>=((struct structure_type27501 *)VALUE_OFFSET)) {t45409.tag = STRUCTURE_TYPE27501; t45409.value.structure_type27501 = t45408;} else t45409.tag = (unsigned)t45408; if (!(f7031(t45409)==FALSE_TYPE)) goto l6894; /* x153859 */ /* x153858 stalin.sc:21075:737203 */ /* x153857 stalin.sc:21075:737216 */ t45410 = a27453; /* x153856 stalin.sc:21075:737204 */ /* MOVE: branching squeezed to general */ if (t45410>=((struct structure_type27501 *)VALUE_OFFSET)) {t45411.tag = STRUCTURE_TYPE27501; t45411.value.structure_type27501 = t45410;} else t45411.tag = (unsigned)t45410; if (!(f7032(t45411)==FALSE_TYPE)) goto l6894; /* x153853 */ /* x153846 stalin.sc:21076:737230 */ /* x153845 stalin.sc:21076:737239 */ t45412 = a27453; /* x153844 stalin.sc:21076:737231 */ /* MOVE: branching squeezed to general */ if (t45412>=((struct structure_type27501 *)VALUE_OFFSET)) {t45413.tag = STRUCTURE_TYPE27501; t45413.value.structure_type27501 = t45412;} else t45413.tag = (unsigned)t45412; if (f7030(t45413)==FALSE_TYPE) goto l6895; /* x153851 */ /* x153850 stalin.sc:21076:737247 */ /* x153849 stalin.sc:21076:737265 */ t45414 = a27453; /* x153848 stalin.sc:21076:737248 */ /* MOVE: branching squeezed to general */ if (t45414>=((struct structure_type27501 *)VALUE_OFFSET)) {t45415.tag = STRUCTURE_TYPE27501; t45415.value.structure_type27501 = t45414;} else t45415.tag = (unsigned)t45414; if (!(f15338(t45415)==FALSE_TYPE)) goto l6895; l6894: /* x153867 */ /* x153866 */ return; l6895: /* x153936 */ /* x153935 */ t45416 = e16379; p16383 = t45416; /* x153934 stalin.sc:21077:737273 */ /* x153933 stalin.sc:21077:737283 */ /* x153932 stalin.sc:21077:737300 */ t45438 = a27453; /* x153931 stalin.sc:21077:737284 */ a38405 = t45438; /* x286289 */ /* x286288 */ t45439 = a38405; /* x286287 */ if (!(t45439>=((struct structure_type27501 *)VALUE_OFFSET))) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33322]"); structure_ref_error();} t45418 = t45439->s2; /* x153930 */ t45417 = p16383; p16384 = t45417; a27464 = t45418; /* x153929 */ /* x153928 stalin.sc:21078:737309 */ /* x153926 stalin.sc:21079:737332 */ t45435 = p16384; /* x153927 stalin.sc:21085:737536 */ t45436 = a27464; /* x153906 stalin.sc:21078:737310 */ t45437.tag = NATIVE_PROCEDURE_TYPE22271; t45437.value.native_procedure_type22271 = t45435; t45419 = f8157(t45437, t45436); /* x153905 */ a27465 = t45419; /* x153904 */ /* x153903 */ /* x153902 stalin.sc:21086:737544 */ /* x153870 stalin.sc:21086:737552 */ /* x153869 stalin.sc:21086:737565 */ t45420 = a27465; /* x153868 stalin.sc:21086:737553 */ if (f8793(t45420)==FALSE_TYPE) goto l6900; /* x153872 */ /* x153871 */ return; l6900: /* x153901 */ /* x153900 */ /* x153899 stalin.sc:21087:737572 */ /* x153898 stalin.sc:21093:737785 */ t45423 = a27456; /* x153897 stalin.sc:21092:737734 */ /* x153896 stalin.sc:21092:737745 */ /* x153895 stalin.sc:21092:737753 */ /* x153894 stalin.sc:21092:737775 */ t45433 = a27465; /* x153893 stalin.sc:21092:737754 */ a37649 = t45433; /* x283265 */ /* x283264 */ t45434 = a37649; /* x283263 */ if (!((t45434.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32566]"); structure_ref_error();} t45431 = t45434.value.structure_type27769->s1; /* x153892 stalin.sc:21092:737746 */ t45432 = *((struct w49 *)(&t45431)); t45430 = f26227(t45432); /* x153891 stalin.sc:21092:737735 */ t45422 = f1169(t45430); /* x153890 stalin.sc:21091:737704 */ /* x153889 stalin.sc:21091:737726 */ t45428 = a27465; /* x153888 stalin.sc:21091:737705 */ a37648 = t45428; /* x283261 */ /* x283260 */ t45429 = a37648; /* x283259 */ if (!((t45429.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32565]"); structure_ref_error();} t45421 = t45429.value.structure_type27769->s1; /* x153887 stalin.sc:21088:737587 */ /* x153873 stalin.sc:21087:737573 */ t45424.tag = NATIVE_PROCEDURE_TYPE22275; t45425 = *((struct w49 *)(&t45421)); t45427.tag = STRUCTURE_TYPE24753; t45427.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t45427.value.structure_type24753)==NULL) {backtrace("stalin.sc", 21087, 737572); out_of_memory_error();} t45427.value.structure_type24753->s0 = t45423; t45427.value.structure_type24753->s1.tag = NULL_TYPE; t45426 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t45426==NULL) {backtrace("stalin.sc", 21087, 737572); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t45422>=((struct structure_type24753 *)VALUE_OFFSET)) {t45426->s0.tag = STRUCTURE_TYPE24753; t45426->s0.value.structure_type24753 = t45422;} else t45426->s0.tag = (unsigned)t45422; t45426->s1 = t45427; f27755(t45424, t45425, t45426); return; default: /* x153778 stalin.sc:21055:736518 */ return;} l6849: /* x136798 */ /* x136611 stalin.sc:17493:612046 */ /* x136610 stalin.sc:17493:612070 */ t45225 = a26398; /* x136609 stalin.sc:17493:612047 */ a38062 = t45225; /* x284917 */ /* x284916 */ t45226 = a38062; /* x284915 */ if (!((t45226.tag)==STRUCTURE_TYPE27756)) goto l6851; /* x136712 */ /* x136711 */ /* x136710 stalin.sc:17494:612077 */ /* x136709 stalin.sc:17494:612087 */ /* x136708 stalin.sc:17494:612111 */ /* x136707 stalin.sc:17494:612133 */ t45318 = a26397; /* x136706 stalin.sc:17494:612112 */ a36408 = t45318; /* x278301 */ /* x278300 */ t45319 = a36408; /* x278299 */ t45316 = t45319->s0; /* x136705 stalin.sc:17494:612088 */ a40047 = t45316; /* x292857 */ /* x292856 */ t45317 = a40047; /* x292855 */ if (!((t45317.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34964]"); structure_ref_error();} /* x136704 */ /* x136703 */ /* x136702 stalin.sc:17495:612145 */ /* x136700 stalin.sc:17495:612165 */ t45313 = a26398; /* x136701 stalin.sc:17495:612168 */ t45314 = a26397; /* x136699 stalin.sc:17495:612146 */ t45315 = t45314; t45275 = f9368(t45313, t45315); /* x136698 */ a26403 = t45275; /* x136697 */ /* x136696 stalin.sc:17496:612179 */ /* x136695 stalin.sc:17496:612203 */ t45311 = a26403; /* x136694 stalin.sc:17496:612180 */ a36669 = t45311; /* x279345 */ /* x279344 */ t45312 = a36669; /* x279343 */ if (!((t45312.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31586]"); structure_ref_error();} t45276 = t45312.value.structure_type27694->s1; /* x136693 */ a26404 = t45276; /* x136692 */ /* x136691 stalin.sc:17497:612215 */ /* x136690 stalin.sc:17497:612226 */ t45310 = a26403; /* x136689 stalin.sc:17497:612216 */ t45277 = f8987(t45310); /* x136688 */ a26405 = t45277; /* x136687 */ /* x136686 */ /* x136685 */ /* x136684 stalin.sc:17498:612236 */ /* x136677 stalin.sc:17498:612244 */ /* x136676 stalin.sc:17498:612253 */ t45308 = a26403; /* x136675 stalin.sc:17498:612245 */ if ((f8899(t45308).tag)==FALSE_TYPE) goto l6874; /* x136679 */ /* x136678 */ goto l6875; l6874: /* x136683 */ /* x136682 */ /* x136681 stalin.sc:17498:612257 */ /* x136680 stalin.sc:17498:612258 */ /* x295521 QobiScheme.sc:166:5314 */ /* x295520 QobiScheme.sc:166:5321 */ t45309 = "This shouldn\'t happen"; /* x295519 QobiScheme.sc:166:5315 */ stalin_panic(t45309); l6875: /* x136674 */ /* x136673 stalin.sc:17499:612272 */ /* x136614 stalin.sc:17499:612279 */ /* x136613 stalin.sc:17499:612286 */ t45278 = a26403; /* x136612 stalin.sc:17499:612280 */ if (f8918(t45278)==FALSE_TYPE) goto l6868; /* x136617 */ /* x136616 */ /* x136615 stalin.sc:17499:612290 */ return; l6868: /* x136672 */ /* x136621 stalin.sc:17500:612298 */ /* x136619 stalin.sc:17500:612325 */ t45279 = a26397; /* x136620 stalin.sc:17500:612327 */ t45280 = a26403; /* x136618 stalin.sc:17500:612299 */ t45281.tag = STRUCTURE_TYPE27745; t45281.value.structure_type27745 = t45279; if (f8791(t45281, t45280)==FALSE_TYPE) goto l6870; /* x136630 */ /* x136629 */ /* x136628 stalin.sc:17500:612331 */ /* x136623 stalin.sc:17500:612348 */ t45303 = a26403; /* x136624 stalin.sc:17500:612351 */ t45304 = a26397; /* x136625 stalin.sc:17500:612353 */ t45305 = a26399; /* x136626 stalin.sc:17500:612356 */ t45306 = a26400; /* x136627 stalin.sc:17500:612358 */ t45307 = a26405; /* x136622 stalin.sc:17500:612332 */ f14985(t45303, t45304, t45305, t45306, t45307); return; l6870: /* x136671 */ /* x136633 stalin.sc:17501:612367 */ /* x136632 stalin.sc:17501:612386 */ t45282 = a26403; /* x136631 stalin.sc:17501:612368 */ if (f8585(t45282)==FALSE_TYPE) goto l6872; /* x136650 */ /* x136649 */ /* x136648 */ /* x136647 stalin.sc:17502:612394 */ /* x136642 stalin.sc:17502:612411 */ t45298 = a26403; /* x136643 stalin.sc:17502:612414 */ t45299 = a26397; /* x136644 stalin.sc:17502:612416 */ t45300 = a26399; /* x136645 stalin.sc:17502:612419 */ t45301 = a26400; /* x136646 stalin.sc:17502:612421 */ t45302 = a26405; /* x136641 stalin.sc:17502:612395 */ f14985(t45298, t45299, t45300, t45301, t45302); /* x136640 */ /* x136639 stalin.sc:17503:612429 */ /* x136635 stalin.sc:17503:612450 */ t45294 = a26396; /* x136638 stalin.sc:17503:612452 */ /* x136637 stalin.sc:17503:612469 */ t45296 = a26404; /* x136636 stalin.sc:17503:612453 */ a39201 = t45296; /* x289473 */ /* x289472 */ t45297 = a39201; /* x289471 */ if (!((t45297.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34118]"); structure_ref_error();} t45295 = t45297.value.structure_type27698->s15; /* x136634 stalin.sc:17503:612430 */ b26412 = t45294; b26413 = t45295; f15067(); return; l6872: /* x136670 */ /* x136669 */ /* x136668 */ /* x136667 stalin.sc:17504:612484 */ /* x136662 stalin.sc:17504:612501 */ t45289 = a26403; /* x136663 stalin.sc:17504:612504 */ t45290 = a26397; /* x136664 stalin.sc:17504:612506 */ t45291 = a26399; /* x136665 stalin.sc:17504:612509 */ t45292 = a26400; /* x136666 stalin.sc:17504:612511 */ t45293 = a26405; /* x136661 stalin.sc:17504:612485 */ f14985(t45289, t45290, t45291, t45292, t45293); /* x136660 */ /* x136659 stalin.sc:17505:612517 */ /* x136652 stalin.sc:17505:612527 */ t45283 = a26396; /* x136655 stalin.sc:17505:612529 */ /* x136654 stalin.sc:17505:612546 */ t45287 = a26403; /* x136653 stalin.sc:17505:612530 */ t45284 = f8687(t45287); /* x136658 stalin.sc:17505:612550 */ /* x136657 stalin.sc:17505:612567 */ t45288 = a26403; /* x136656 stalin.sc:17505:612551 */ t45285 = f8687(t45288); /* x136651 stalin.sc:17505:612518 */ /* MOVE: branching squeezed to general */ if (t45283>=((struct structure_type27501 *)VALUE_OFFSET)) {t45286.tag = STRUCTURE_TYPE27501; t45286.value.structure_type27501 = t45283;} else t45286.tag = (unsigned)t45283; f14848(t45286, t45284, t45285); return; l6851: /* x136797 */ /* x136715 stalin.sc:17506:612579 */ /* x136714 stalin.sc:17506:612604 */ t45227 = a26398; /* x136713 stalin.sc:17506:612580 */ a37947 = t45227; /* x284457 */ /* x284456 */ t45228 = a37947; /* x284455 */ if (!((t45228.tag)==STRUCTURE_TYPE27750)) goto l6853; /* x136718 */ /* x136717 */ /* x136716 stalin.sc:17506:612608 */ return; l6853: /* x136796 */ /* x136721 stalin.sc:17507:612615 */ /* x136720 stalin.sc:17507:612635 */ t45229 = a26398; /* x136719 stalin.sc:17507:612616 */ a37864 = t45229; /* x284125 */ /* x284124 */ t45230 = a37864; /* x284123 */ if (!((t45230.tag)==STRUCTURE_TYPE27858)) goto l6855; /* x136791 */ /* x136790 */ /* x136789 */ /* x136778 stalin.sc:17508:612642 */ /* x136769 stalin.sc:17508:612648 */ /* x136767 stalin.sc:17508:612661 */ /* x136768 stalin.sc:17508:612672 */ t45266 = a26400; /* x136766 stalin.sc:17508:612649 */ t45267.tag = NATIVE_PROCEDURE_TYPE7435; /* MOVE: branching squeezed to general */ if (t45266>=((struct structure_type27650 *)VALUE_OFFSET)) {t45268.tag = STRUCTURE_TYPE27650; t45268.value.structure_type27650 = t45266;} else t45268.tag = (unsigned)t45266; if ((f8144(t45267, t45268).tag)==FALSE_TYPE) goto l6862; /* x136775 */ /* x136774 */ /* x136773 stalin.sc:17509:612679 */ /* x136771 stalin.sc:17509:612694 */ t45269 = a26397; /* x136772 stalin.sc:17509:612696 */ t45270 = "APPLY of a continuation is not (yet) implemented"; /* x136770 stalin.sc:17509:612680 */ t45271.tag = STRUCTURE_TYPE27745; t45271.value.structure_type27745 = t45269; f9707(t45271, t45270); goto l6863; l6862: /* x136777 stalin.sc:17508:612642 */ /* x136776 stalin.sc:17508:612642 */ l6863: /* x136788 stalin.sc:17510:612752 */ /* x136781 stalin.sc:17510:612760 */ /* x136780 stalin.sc:17510:612802 */ t45272 = a26398; /* x136779 stalin.sc:17510:612761 */ if (f7374(t45272)==FALSE_TYPE) goto l6865; /* x136783 */ /* x136782 */ goto l6866; l6865: /* x136787 */ /* x136786 */ /* x136785 stalin.sc:17510:612806 */ /* x136784 stalin.sc:17510:612807 */ /* x295525 QobiScheme.sc:166:5314 */ /* x295524 QobiScheme.sc:166:5321 */ t45273 = "This shouldn\'t happen"; /* x295523 QobiScheme.sc:166:5315 */ stalin_panic(t45273); l6866: /* x136765 */ /* x136764 stalin.sc:17511:612820 */ /* x136725 stalin.sc:17511:612824 */ /* x136723 stalin.sc:17511:612831 */ t45232 = a26397; /* x136724 stalin.sc:17511:612833 */ t45233 = a26398; /* x136722 stalin.sc:17511:612825 */ t45234.tag = STRUCTURE_TYPE27745; t45234.value.structure_type27745 = t45232; if (f8792(t45234, t45233)==FALSE_TYPE) goto l6857; /* x136738 stalin.sc:17512:612844 */ /* x136731 stalin.sc:17513:612855 */ /* x136730 stalin.sc:17513:612874 */ /* x136729 stalin.sc:17513:612915 */ t45260 = a26398; /* x136728 stalin.sc:17513:612875 */ a37818 = t45260; /* x283941 */ /* x283940 */ t45261 = a37818; /* x283939 */ if (!((t45261.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32735]"); structure_ref_error();} t45258 = t45261.value.structure_type27858->s0; /* x136727 stalin.sc:17513:612856 */ a19228 = t45258; /* x50577 */ /* x50576 */ t45259 = a19228; /* x50575 */ if (!((t45259.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-RESULT[5679]"); structure_ref_error();} t45255 = t45259.value.structure_type27698->s24; /* x136734 stalin.sc:17514:612921 */ /* x136733 stalin.sc:17514:612928 */ t45262 = a26399; /* x136732 stalin.sc:17514:612922 */ a35745 = t45262; /* x274337 */ /* x274336 */ t45263 = a35745; /* x274335 */ if (!((t45263.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29894]"); structure_ref_error();} t45256 = t45263.value.structure_type24753->s0; /* x136737 stalin.sc:17515:612933 */ /* x136736 stalin.sc:17515:612940 */ t45264 = a26399; /* x136735 stalin.sc:17515:612934 */ a35746 = t45264; /* x274341 */ /* x274340 */ t45265 = a35746; /* x274339 */ if (!((t45265.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29895]"); structure_ref_error();} t45257 = t45265.value.structure_type24753->s0; /* x136726 stalin.sc:17512:612845 */ f14848(t45255, t45256, t45257); return; l6857: /* x136763 stalin.sc:17516:612952 */ /* x136756 stalin.sc:17516:612962 */ /* x136746 stalin.sc:17516:612966 */ /* x136745 stalin.sc:17517:612987 */ /* x136744 stalin.sc:17518:613017 */ /* x136743 stalin.sc:17518:613058 */ t45242 = a26398; /* x136742 stalin.sc:17518:613018 */ a37820 = t45242; /* x283949 */ /* x283948 */ t45243 = a37820; /* x283947 */ if (!((t45243.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32737]"); structure_ref_error();} t45240 = t45243.value.structure_type27858->s0; /* x136741 stalin.sc:17517:612988 */ a39894 = t45240; /* x292245 */ /* x292244 */ t45241 = a39894; /* x292243 */ if (!((t45241.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34811]"); structure_ref_error();} t45239 = t45241.value.structure_type27698->s10; /* x136740 stalin.sc:17516:612967 */ if (f8793(t45239)==FALSE_TYPE) goto l6859; /* x136747 stalin.sc:17519:613071 */ t45235 = a1194; goto l6860; l6859: /* x136755 stalin.sc:17520:613088 */ /* x136753 stalin.sc:17521:613120 */ /* x136752 stalin.sc:17522:613150 */ /* x136751 stalin.sc:17522:613191 */ t45249 = a26398; /* x136750 stalin.sc:17522:613151 */ a37819 = t45249; /* x283945 */ /* x283944 */ t45250 = a37819; /* x283943 */ if (!((t45250.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32736]"); structure_ref_error();} t45247 = t45250.value.structure_type27858->s0; /* x136749 stalin.sc:17521:613121 */ a39893 = t45247; /* x292241 */ /* x292240 */ t45248 = a39893; /* x292239 */ if (!((t45248.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34810]"); structure_ref_error();} t45244 = t45248.value.structure_type27698->s10; /* x136754 stalin.sc:17523:613204 */ /* x136748 stalin.sc:17520:613089 */ t45245.tag = FALSE_TYPE; t45246 = f7025(t45244, t45245); t45235 = t45246; l6860: /* x136759 stalin.sc:17524:613212 */ /* x136758 stalin.sc:17524:613219 */ t45251 = a26399; /* x136757 stalin.sc:17524:613213 */ a35747 = t45251; /* x274345 */ /* x274344 */ t45252 = a35747; /* x274343 */ if (!((t45252.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29896]"); structure_ref_error();} t45236 = t45252.value.structure_type24753->s0; /* x136762 stalin.sc:17525:613226 */ /* x136761 stalin.sc:17525:613233 */ t45253 = a26399; /* x136760 stalin.sc:17525:613227 */ a35748 = t45253; /* x274349 */ /* x274348 */ t45254 = a35748; /* x274347 */ if (!((t45254.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29897]"); structure_ref_error();} t45237 = t45254.value.structure_type24753->s0; /* x136739 stalin.sc:17516:612953 */ /* MOVE: branching squeezed to general */ if (t45235>=((struct structure_type27501 *)VALUE_OFFSET)) {t45238.tag = STRUCTURE_TYPE27501; t45238.value.structure_type27501 = t45235;} else t45238.tag = (unsigned)t45235; f14848(t45238, t45236, t45237); return; l6855: /* x136795 */ /* x136794 */ /* x136793 stalin.sc:17526:613248 */ /* x136792 stalin.sc:17526:613249 */ /* x295529 QobiScheme.sc:166:5314 */ /* x295528 QobiScheme.sc:166:5321 */ t45231 = "This shouldn\'t happen"; /* x295527 QobiScheme.sc:166:5315 */ stalin_panic(t45231);} /* [inside PROMOTE-CONVERTED-CALL! 15030] */ struct w49 f15030(struct p15015 *p15030, struct w49 a26395) {struct w49 t45472; struct structure_type27745 *t45473; /* x136471 stalin.sc:17457:610792 */ /* x136469 stalin.sc:17457:610824 */ t45472 = a26395; /* x136470 stalin.sc:17457:610826 */ t45473 = p15030->a26382; /* x136468 stalin.sc:17457:610793 */ return f15877(t45472, t45473);} /* [inside PROMOTE-CONVERTED-CALL! 15026] */ void f15026(struct p15024 *p15026, struct w49 a26393) {struct structure_type24753 *a35089; /* OBJS */ struct structure_type27501 *t45474; struct structure_type27745 *t45475; struct w49 t45476; struct structure_type24753 *t45477; struct structure_type27650 *t45478; struct w49 t45479; struct structure_type27745 *t45480; char *t45481; struct structure_type27745 *t45482; struct w49 t45483; /* x136407 stalin.sc:17470:611236 */ /* x136397 stalin.sc:17471:611258 */ t45474 = p15026->p15015->a26381; /* x136401 stalin.sc:17471:611260 */ /* x136399 stalin.sc:17471:611280 */ t45480 = p15026->p15015->a26382; /* x136400 stalin.sc:17471:611282 */ t45481 = q67; /* x136398 stalin.sc:17471:611261 */ t45482 = t45480; t45475 = f8743(t45482, t45481); /* x136402 stalin.sc:17471:611306 */ t45476 = a26393; /* x136405 stalin.sc:17471:611309 */ /* x136404 stalin.sc:17471:611315 */ t45483 = p15026->a26390; /* x136403 stalin.sc:17471:611310 */ a35089 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35089==NULL) {backtrace("stalin.sc", 17471, 611309); out_of_memory_error();} a35089->s0 = t45483; a35089->s1.tag = NULL_TYPE; /* x272185 */ t45477 = a35089; /* x136406 stalin.sc:17471:611319 */ t45478 = a1675; /* x136396 stalin.sc:17470:611237 */ t45479.tag = STRUCTURE_TYPE24753; t45479.value.structure_type24753 = t45477; f15036(t45474, t45475, t45476, t45479, t45478); return;} /* [inside PROMOTE-CONVERTED-CALL! 15019] */ void f15019(struct p15015 *p15019, struct w49 a26389) {struct structure_type24753 *a35087; /* OBJS */ struct structure_type24753 *a35730; /* PAIR */ struct structure_type24753 *a35731; /* PAIR */ struct structure_type27501 *t45484; struct structure_type27745 *t45485; struct w49 t45486; struct structure_type24753 *t45487; struct structure_type27650 *t45488; struct structure_type24753 *t45489; struct structure_type27745 *t45490; char *t45491; struct structure_type27745 *t45492; struct w49 t45493; struct w49 t45494; struct w49 t45495; struct structure_type24753 *t45496; struct structure_type24753 *t45497; struct structure_type24753 *t45498; struct structure_type24753 *t45499; /* x136330 stalin.sc:17446:610307 */ /* x136315 stalin.sc:17446:610332 */ t45484 = p15019->a26381; /* x136319 stalin.sc:17446:610334 */ /* x136317 stalin.sc:17446:610354 */ t45490 = p15019->a26382; /* x136318 stalin.sc:17446:610356 */ t45491 = q64; /* x136316 stalin.sc:17446:610335 */ t45492 = t45490; t45485 = f8743(t45492, t45491); /* x136320 stalin.sc:17447:610382 */ t45486 = a26389; /* x136328 stalin.sc:17447:610385 */ /* x136327 stalin.sc:17447:610402 */ /* x136326 stalin.sc:17447:610409 */ t45498 = p15019->a26384; /* x136325 stalin.sc:17447:610403 */ a35731 = t45498; /* x274281 */ /* x274280 */ t45499 = a35731; /* x274279 */ if (!(t45499>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29880]"); structure_ref_error();} t45494 = t45499->s0; /* x136324 stalin.sc:17447:610391 */ /* x136323 stalin.sc:17447:610398 */ t45496 = p15019->a26384; /* x136322 stalin.sc:17447:610392 */ a35730 = t45496; /* x274277 */ /* x274276 */ t45497 = a35730; /* x274275 */ if (!(t45497>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29879]"); structure_ref_error();} t45493 = t45497->s0; /* x136321 stalin.sc:17447:610386 */ t45495.tag = STRUCTURE_TYPE24753; t45495.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t45495.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17447, 610385); out_of_memory_error();} t45495.value.structure_type24753->s0 = t45494; t45495.value.structure_type24753->s1.tag = NULL_TYPE; a35087 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35087==NULL) {backtrace("stalin.sc", 17447, 610385); out_of_memory_error();} a35087->s0 = t45493; a35087->s1 = t45495; /* x272181 */ t45487 = a35087; /* x136329 stalin.sc:17447:610414 */ t45488 = a1675; /* x136314 stalin.sc:17446:610308 */ t45489 = t45487; f15015(t45484, t45485, t45486, t45489, t45488); return;} /* PROMOTE-CONVERTED-CALL![15015] */ void f15015(struct structure_type27501 *a26381, struct structure_type27745 *a26382, struct w49 a26383, struct structure_type24753 *a26384, struct structure_type27650 *a26385) {struct w49 a26390; /* W1 */ struct structure_type24753 *a35088; /* OBJS */ struct structure_type24753 *a35090; /* OBJS */ struct structure_type24753 *a35365; /* PAIR */ struct structure_type24753 *a35366; /* PAIR */ struct structure_type24753 *a35732; /* PAIR */ struct structure_type24753 *a35733; /* PAIR */ struct structure_type24753 *a35734; /* PAIR */ struct structure_type24753 *a35735; /* PAIR */ struct structure_type24753 *a35736; /* PAIR */ struct w49 a37863; /* OBJ */ struct w49 a38060; /* OBJ */ struct p15015 *t45500; struct p7708 *t45501; struct w49 t45502; char *t45503; struct w49 t45504; struct w49 t45505; struct w49 t45506; struct w49 t45507; struct w49 t45508; struct structure_type27745 *t45509; struct structure_type27745 *t45510; struct p10570 *t45511; struct w49 t45512; struct structure_type24753 *t45513; struct structure_type27650 *t45514; struct structure_type27745 *t45515; struct w49 t45516; struct w49 t45517; struct structure_type27745 *t45518; struct p15015 *t45519; struct structure_type27501 *t45520; struct structure_type27745 *t45521; struct w49 t45522; struct w49 t45523; struct structure_type27650 *t45524; struct structure_type24753 *t45525; struct structure_type24753 *t45526; struct p15015 *t45527; struct p15015 *t45528; struct w49 t45529; struct p15024 *t45530; struct p15024 *t45532; struct w12224 t45533; struct w36108 t45534; struct w49 t45535; struct structure_type24753 *t45536; unsigned t45537; struct w49 t45538; struct w211061 t45539; struct structure_type24753 *t45540; struct structure_type27650 *t45541; struct structure_type27745 *t45542; struct w12224 t45543; struct w49 t45544; struct w49 t45545; struct structure_type27745 *t45546; char *t45547; struct structure_type27745 *t45548; struct structure_type24753 *t45549; struct structure_type24753 *t45550; struct p15024 *t45551; struct w49 t45552; struct w211235 t45553; struct structure_type24753 *t45554; struct structure_type24753 *t45555; char *t45556; struct structure_type27501 *t45557; struct structure_type27745 *t45558; struct w49 t45559; struct w49 t45560; struct structure_type27650 *t45561; struct w49 t45562; struct w49 t45563; struct w49 t45564; struct structure_type27501 *t45565; struct structure_type24753 *t45566; struct structure_type24753 *t45567; struct structure_type24753 *t45568; unsigned t45569; struct w49 t45570; struct p15015 *t45571; struct structure_type24753 *t45572; struct w36270 t45573; struct w49 t45574; struct structure_type24753 *t45575; struct w49 t45576; struct structure_type24753 *t45577; struct structure_type24753 *t45578; struct p15015 *t45579; struct structure_type27501 *t45580; struct structure_type27745 *t45581; struct w49 t45582; struct structure_type24753 *t45583; struct structure_type27650 *t45584; struct w49 t45585; struct p15015 *t45586; struct p15015 *t45587; struct p15015 *t45588; struct w12224 t45589; struct w36108 t45590; struct w49 t45591; struct structure_type24753 *t45592; unsigned t45593; struct w49 t45594; struct w211061 t45595; struct structure_type24753 *t45596; struct structure_type27650 *t45597; struct structure_type27745 *t45598; struct w12224 t45599; struct w49 t45600; struct w49 t45601; struct w49 t45602; struct w49 t45603; struct structure_type24753 *t45604; struct structure_type24753 *t45605; struct structure_type24753 *t45606; struct structure_type24753 *t45607; struct structure_type27745 *t45608; char *t45609; struct structure_type27745 *t45610; struct structure_type24753 *t45611; struct w49 t45612; struct structure_type27650 *t45613; struct w211235 t45614; struct w49 t45615; char *t45616; struct w49 t45617; char *t45618; struct w49 t45619; struct w49 t45620; char *t45621; struct p15015 *e15015; struct p15024 *e15024; struct p15015 *p15016; struct p15015 *p15017; struct p15015 *p15018; struct p15015 *p15022; struct p15015 *p15023; struct p15015 *p15024; struct p15024 *p15025; struct p15015 *p15031; e15015 = (struct p15015 *)alloca(sizeof(struct p15015)); if (e15015==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e15015->a26381 = a26381; e15015->a26382 = a26382; e15015->a26384 = a26384; /* x136518 */ /* x136507 stalin.sc:17438:610023 */ /* x136500 stalin.sc:17438:610031 */ /* x136499 stalin.sc:17438:610048 */ t45617 = a26383; /* x136498 stalin.sc:17438:610032 */ if (f7712(t45617)==FALSE_TYPE) goto l6933; /* x136502 */ /* x136501 */ goto l6934; l6933: /* x136506 */ /* x136505 */ /* x136504 stalin.sc:17438:610052 */ /* x136503 stalin.sc:17438:610053 */ /* x295501 QobiScheme.sc:166:5314 */ /* x295500 QobiScheme.sc:166:5321 */ t45618 = "This shouldn\'t happen"; /* x295499 QobiScheme.sc:166:5315 */ stalin_panic(t45618); l6934: /* x136517 stalin.sc:17439:610064 */ /* x136510 stalin.sc:17439:610070 */ /* x136509 stalin.sc:17439:610090 */ t45619 = a26383; /* x136508 stalin.sc:17439:610071 */ a37863 = t45619; /* x284121 */ /* x284120 */ t45620 = a37863; /* x284119 */ if (!((t45620.tag)==STRUCTURE_TYPE27858)) goto l6936; /* x136514 */ /* x136513 */ /* x136512 stalin.sc:17439:610094 */ /* x136511 stalin.sc:17439:610095 */ /* x295505 QobiScheme.sc:166:5314 */ /* x295504 QobiScheme.sc:166:5321 */ t45621 = "This shouldn\'t happen"; /* x295503 QobiScheme.sc:166:5315 */ stalin_panic(t45621); goto l6937; l6936: /* x136516 stalin.sc:17439:610064 */ /* x136515 stalin.sc:17439:610064 */ l6937: /* x136497 */ t45500 = e15015; p15016 = t45500; /* x136496 stalin.sc:17440:610106 */ /* x136312 stalin.sc:17442:610154 */ /* x136311 stalin.sc:17442:610221 */ t45502 = a26383; /* x136310 stalin.sc:17442:610155 */ /* x136309 stalin.sc:17442:610188 */ t45503 = q66; /* x136308 stalin.sc:17442:610156 */ t45504.tag = EXTERNAL_SYMBOL_TYPE; t45504.value.external_symbol_type = t45503; t45501 = f7708(t45504); if (f7709(t45501, t45502)==FALSE_TYPE) goto l6917; /* x136367 */ /* x136366 */ t45586 = p15016; p15017 = t45586; /* x136365 */ /* x136364 stalin.sc:17443:610228 */ /* x136357 stalin.sc:17443:610234 */ /* x136355 stalin.sc:17443:610247 */ /* x136356 stalin.sc:17443:610258 */ t45613 = a26385; /* x136354 stalin.sc:17443:610235 */ t45614.tag = NATIVE_PROCEDURE_TYPE7435; /* MOVE: branching squeezed to general */ if (t45613>=((struct structure_type27650 *)VALUE_OFFSET)) {t45615.tag = STRUCTURE_TYPE27650; t45615.value.structure_type27650 = t45613;} else t45615.tag = (unsigned)t45613; if ((f8144(t45614, t45615).tag)==FALSE_TYPE) goto l6930; /* x136361 */ /* x136360 */ /* x136359 stalin.sc:17443:610261 */ /* x136358 stalin.sc:17443:610262 */ /* x295493 QobiScheme.sc:166:5314 */ /* x295492 QobiScheme.sc:166:5321 */ t45616 = "This shouldn\'t happen"; /* x295491 QobiScheme.sc:166:5315 */ stalin_panic(t45616); goto l6931; l6930: /* x136363 stalin.sc:17443:610228 */ /* x136362 stalin.sc:17443:610228 */ l6931: /* x136353 */ t45587 = p15017; p15018 = t45587; /* x136352 stalin.sc:17444:610275 */ /* x136351 stalin.sc:17448:610427 */ /* x136347 stalin.sc:17449:610446 */ /* x136341 stalin.sc:17449:610469 */ /* x136340 stalin.sc:17449:610486 */ /* x136339 stalin.sc:17449:610493 */ t45606 = p15018->a26384; /* x136338 stalin.sc:17449:610487 */ a35733 = t45606; /* x274289 */ /* x274288 */ t45607 = a35733; /* x274287 */ if (!(t45607>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29882]"); structure_ref_error();} t45602 = t45607->s0; /* x136337 stalin.sc:17449:610475 */ /* x136336 stalin.sc:17449:610482 */ t45604 = p15018->a26384; /* x136335 stalin.sc:17449:610476 */ a35732 = t45604; /* x274285 */ /* x274284 */ t45605 = a35732; /* x274283 */ if (!(t45605>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29881]"); structure_ref_error();} t45601 = t45605->s0; /* x136334 stalin.sc:17449:610470 */ t45603.tag = STRUCTURE_TYPE24753; t45603.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t45603.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17449, 610469); out_of_memory_error();} t45603.value.structure_type24753->s0 = t45602; t45603.value.structure_type24753->s1.tag = NULL_TYPE; a35088 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35088==NULL) {backtrace("stalin.sc", 17449, 610469); out_of_memory_error();} a35088->s0 = t45601; a35088->s1 = t45603; /* x272183 */ t45596 = a35088; /* x136342 stalin.sc:17450:610505 */ t45597 = a1675; /* x136346 stalin.sc:17451:610519 */ /* x136344 stalin.sc:17451:610539 */ t45608 = p15018->a26382; /* x136345 stalin.sc:17451:610541 */ t45609 = q64; /* x136343 stalin.sc:17451:610520 */ t45610 = t45608; t45598 = f8743(t45610, t45609); /* x136333 stalin.sc:17449:610447 */ t45599.tag = STRUCTURE_TYPE24753; t45599.value.structure_type24753 = t45596; /* MOVE: branching squeezed to general */ if (t45597>=((struct structure_type27650 *)VALUE_OFFSET)) {t45600.tag = STRUCTURE_TYPE27650; t45600.value.structure_type27650 = t45597;} else t45600.tag = (unsigned)t45597; t45593 = f7873(t45599, t45600, t45598); /* x136350 stalin.sc:17452:610564 */ /* x136349 stalin.sc:17452:610572 */ t45611 = p15018->a26384; /* x136348 stalin.sc:17452:610565 */ /* MOVE: branching squeezed to general */ if (t45611>=((struct structure_type24753 *)VALUE_OFFSET)) {t45612.tag = STRUCTURE_TYPE24753; t45612.value.structure_type24753 = t45611;} else t45612.tag = (unsigned)t45611; t45594 = f26181(t45612); /* x136332 stalin.sc:17448:610428 */ /* MOVE: dispatching squished to general */ if ((t45593&3)==1) {t45595.tag = NATIVE_PROCEDURE_TYPE19878; t45595.value.native_procedure_type19878 = (struct p7873 *)(t45593-1);} else {t45595.tag = NATIVE_PROCEDURE_TYPE19886; t45595.value.native_procedure_type19886 = (struct p7873 *)t45593;} t45589 = f8172(t45595, t45594); /* x136331 stalin.sc:17445:610289 */ t45588 = p15018; /* x136313 stalin.sc:17444:610276 */ t45590.tag = NATIVE_PROCEDURE_TYPE22329; t45590.value.native_procedure_type22329 = t45588; t45591 = *((struct w49 *)(&t45589)); t45592 = (struct structure_type24753 *)NULL_TYPE; f27755(t45590, t45591, t45592); return; l6917: /* x136495 */ /* x136378 stalin.sc:17453:610582 */ /* x136370 stalin.sc:17453:610587 */ /* x136369 stalin.sc:17453:610611 */ t45505 = a26383; /* x136368 stalin.sc:17453:610588 */ a38060 = t45505; /* x284909 */ /* x284908 */ t45506 = a38060; /* x284907 */ if (!((t45506.tag)==STRUCTURE_TYPE27756)) goto l6919; /* x136376 */ /* x136375 stalin.sc:17453:610627 */ /* x136373 stalin.sc:17453:610647 */ t45508 = a26383; /* x136374 stalin.sc:17453:610650 */ t45509 = p15016->a26382; /* x136372 stalin.sc:17453:610628 */ t45510 = t45509; t45507 = f9368(t45508, t45510); /* x136371 stalin.sc:17453:610616 */ if (f8944(t45507)==FALSE_TYPE) goto l6919; /* x136387 */ /* x136386 */ t45579 = p15016; p15022 = t45579; /* x136385 stalin.sc:17454:610658 */ /* x136380 stalin.sc:17454:610673 */ t45580 = p15022->a26381; /* x136381 stalin.sc:17454:610675 */ t45581 = p15022->a26382; /* x136382 stalin.sc:17454:610677 */ t45582 = a26383; /* x136383 stalin.sc:17454:610680 */ t45583 = p15022->a26384; /* x136384 stalin.sc:17454:610683 */ t45584 = a26385; /* x136379 stalin.sc:17454:610659 */ /* MOVE: branching squeezed to general */ if (t45583>=((struct structure_type24753 *)VALUE_OFFSET)) {t45585.tag = STRUCTURE_TYPE24753; t45585.value.structure_type24753 = t45583;} else t45585.tag = (unsigned)t45583; f15036(t45580, t45581, t45582, t45585, t45584); return; l6919: /* x136494 */ /* x136394 stalin.sc:17455:610690 */ /* x136393 stalin.sc:17455:610734 */ t45512 = a26383; /* x136392 stalin.sc:17455:610691 */ /* x136389 stalin.sc:17455:610726 */ t45513 = p15016->a26384; /* x136390 stalin.sc:17455:610729 */ t45514 = a26385; /* x136391 stalin.sc:17455:610731 */ t45515 = p15016->a26382; /* x136388 stalin.sc:17455:610692 */ /* MOVE: branching squeezed to general */ if (t45513>=((struct structure_type24753 *)VALUE_OFFSET)) {t45516.tag = STRUCTURE_TYPE24753; t45516.value.structure_type24753 = t45513;} else t45516.tag = (unsigned)t45513; /* MOVE: branching squeezed to general */ if (t45514>=((struct structure_type27650 *)VALUE_OFFSET)) {t45517.tag = STRUCTURE_TYPE27650; t45517.value.structure_type27650 = t45514;} else t45517.tag = (unsigned)t45514; t45518 = t45515; t45511 = f10570(t45516, t45517, t45518); if (f10572(t45511, t45512)==FALSE_TYPE) goto l6922; /* x136482 */ /* x136481 */ t45527 = p15016; p15023 = t45527; /* x136480 stalin.sc:17456:610741 */ /* x136479 stalin.sc:17456:610751 */ /* x136466 stalin.sc:17456:610757 */ /* x136478 stalin.sc:17457:610775 */ /* x136477 stalin.sc:17458:610833 */ /* x136476 stalin.sc:17458:610842 */ /* x136475 stalin.sc:17458:610849 */ t45577 = p15023->a26384; /* x136474 stalin.sc:17458:610843 */ a35736 = t45577; /* x274301 */ /* x274300 */ t45578 = a35736; /* x274299 */ if (!(t45578>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29885]"); structure_ref_error();} t45576 = t45578->s0; /* x136473 stalin.sc:17458:610834 */ t45572 = f8162(t45576); /* x136472 stalin.sc:17457:610780 */ t45571 = p15023; /* x136467 stalin.sc:17457:610776 */ t45573.tag = NATIVE_PROCEDURE_TYPE22317; t45573.value.native_procedure_type22317 = t45571; /* MOVE: branching squeezed to general */ if (t45572>=((struct structure_type24753 *)VALUE_OFFSET)) {t45574.tag = STRUCTURE_TYPE24753; t45574.value.structure_type24753 = t45572;} else t45574.tag = (unsigned)t45572; t45575 = (struct structure_type24753 *)NULL_TYPE; t45568 = f27731(t45573, t45574, t45575); /* x136465 stalin.sc:17456:610752 */ t45569 = NATIVE_PROCEDURE_TYPE7349; /* MOVE: branching squeezed to general */ if (t45568>=((struct structure_type24753 *)VALUE_OFFSET)) {t45570.tag = STRUCTURE_TYPE24753; t45570.value.structure_type24753 = t45568;} else t45570.tag = (unsigned)t45568; t45529 = f1583(t45569, t45570); /* x136464 */ t45528 = p15023; p15024 = t45528; a26390 = t45529; e15024 = (struct p15024 *)alloca(sizeof(struct p15024)); if (e15024==NULL) {backtrace_internal("[inside PROMOTE-CONVERTED-CALL! 15023]"); out_of_memory_error();} e15024->p15015 = p15024; e15024->a26390 = a26390; /* x136463 */ /* x136445 stalin.sc:17459:610862 */ /* x136438 stalin.sc:17459:610868 */ /* x136434 stalin.sc:17460:610885 */ t45551 = e15024; /* x136437 stalin.sc:17461:610957 */ /* x136436 stalin.sc:17461:610964 */ t45554 = p15024->a26384; /* x136435 stalin.sc:17461:610958 */ a35735 = t45554; /* x274297 */ /* x274296 */ t45555 = a35735; /* x274295 */ if (!(t45555>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29884]"); structure_ref_error();} t45552 = t45555->s0; /* x136426 stalin.sc:17459:610869 */ t45553.tag = NATIVE_PROCEDURE_TYPE22319; t45553.value.native_procedure_type22319 = t45551; if ((f8144(t45553, t45552).tag)==FALSE_TYPE) goto l6924; /* x136442 */ /* x136441 */ /* x136440 stalin.sc:17462:610974 */ /* x136439 stalin.sc:17462:610975 */ /* x295497 QobiScheme.sc:166:5314 */ /* x295496 QobiScheme.sc:166:5321 */ t45556 = "This shouldn\'t happen"; /* x295495 QobiScheme.sc:166:5315 */ stalin_panic(t45556); goto l6925; l6924: /* x136444 stalin.sc:17459:610862 */ /* x136443 stalin.sc:17459:610862 */ l6925: /* x136462 stalin.sc:17463:610989 */ /* x136455 stalin.sc:17464:611009 */ /* x136449 stalin.sc:17464:611013 */ /* x136448 stalin.sc:17464:611026 */ t45562 = e15024->a26390; /* x136447 stalin.sc:17464:611014 */ if (f8793(t45562)==FALSE_TYPE) goto l6927; /* x136450 stalin.sc:17464:611030 */ t45557 = a1194; goto l6928; l6927: /* x136454 stalin.sc:17464:611040 */ /* x136452 stalin.sc:17464:611064 */ t45563 = e15024->a26390; /* x136453 stalin.sc:17464:611067 */ /* x136451 stalin.sc:17464:611041 */ t45564.tag = FALSE_TYPE; t45565 = f7025(t45563, t45564); t45557 = t45565; l6928: /* x136456 stalin.sc:17465:611077 */ t45558 = p15024->a26382; /* x136457 stalin.sc:17465:611079 */ t45559 = a26383; /* x136460 stalin.sc:17465:611082 */ /* x136459 stalin.sc:17465:611088 */ t45566 = p15024->a26384; /* x136458 stalin.sc:17465:611083 */ a35365 = t45566; /* x272817 */ /* x272816 */ t45567 = a35365; /* x272815 */ if (!(t45567>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CDR[26177] 29514]"); structure_ref_error();} t45560 = t45567->s1; /* x136461 stalin.sc:17465:611092 */ t45561 = a26385; /* x136446 stalin.sc:17463:610990 */ f15036(t45557, t45558, t45559, t45560, t45561); /* x136425 */ t45530 = e15024; p15025 = t45530; /* x136424 stalin.sc:17468:611202 */ /* x136423 stalin.sc:17472:611333 */ /* x136419 stalin.sc:17473:611353 */ /* x136413 stalin.sc:17474:611383 */ /* x136412 stalin.sc:17474:611389 */ t45545 = p15025->a26390; /* x136411 stalin.sc:17474:611384 */ a35090 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35090==NULL) {backtrace("stalin.sc", 17474, 611383); out_of_memory_error();} a35090->s0 = t45545; a35090->s1.tag = NULL_TYPE; /* x272187 */ t45540 = a35090; /* x136414 stalin.sc:17474:611393 */ t45541 = a1675; /* x136418 stalin.sc:17474:611400 */ /* x136416 stalin.sc:17474:611420 */ t45546 = p15025->p15015->a26382; /* x136417 stalin.sc:17474:611422 */ t45547 = q67; /* x136415 stalin.sc:17474:611401 */ t45548 = t45546; t45542 = f8743(t45548, t45547); /* x136410 stalin.sc:17473:611354 */ t45543.tag = STRUCTURE_TYPE24753; t45543.value.structure_type24753 = t45540; /* MOVE: branching squeezed to general */ if (t45541>=((struct structure_type27650 *)VALUE_OFFSET)) {t45544.tag = STRUCTURE_TYPE27650; t45544.value.structure_type27650 = t45541;} else t45544.tag = (unsigned)t45541; t45537 = f7873(t45543, t45544, t45542); /* x136422 stalin.sc:17475:611453 */ /* x136421 stalin.sc:17475:611460 */ t45549 = p15025->p15015->a26384; /* x136420 stalin.sc:17475:611454 */ a35734 = t45549; /* x274293 */ /* x274292 */ t45550 = a35734; /* x274291 */ if (!(t45550>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29883]"); structure_ref_error();} t45538 = t45550->s0; /* x136409 stalin.sc:17472:611334 */ /* MOVE: dispatching squished to general */ if ((t45537&3)==1) {t45539.tag = NATIVE_PROCEDURE_TYPE19878; t45539.value.native_procedure_type19878 = (struct p7873 *)(t45537-1);} else {t45539.tag = NATIVE_PROCEDURE_TYPE19886; t45539.value.native_procedure_type19886 = (struct p7873 *)t45537;} t45533 = f8172(t45539, t45538); /* x136408 stalin.sc:17469:611217 */ t45532 = p15025; /* x136395 stalin.sc:17468:611203 */ t45534.tag = NATIVE_PROCEDURE_TYPE22323; t45534.value.native_procedure_type22323 = t45532; t45535 = *((struct w49 *)(&t45533)); t45536 = (struct structure_type24753 *)NULL_TYPE; f27755(t45534, t45535, t45536); return; l6922: /* x136493 */ /* x136492 */ t45519 = p15016; p15031 = t45519; /* x136491 stalin.sc:17476:611476 */ /* x136484 stalin.sc:17476:611491 */ t45520 = p15031->a26381; /* x136485 stalin.sc:17476:611493 */ t45521 = p15031->a26382; /* x136486 stalin.sc:17476:611495 */ t45522 = a26383; /* x136489 stalin.sc:17476:611498 */ /* x136488 stalin.sc:17476:611504 */ t45525 = p15031->a26384; /* x136487 stalin.sc:17476:611499 */ a35366 = t45525; /* x272821 */ /* x272820 */ t45526 = a35366; /* x272819 */ if (!(t45526>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CDR[26177] 29515]"); structure_ref_error();} t45523 = t45526->s1; /* x136490 stalin.sc:17476:611508 */ t45524 = a26385; /* x136483 stalin.sc:17476:611477 */ f15036(t45520, t45521, t45522, t45523, t45524); return;} /* [inside LOOP 14997] */ void f14997(struct p14991 *p14997, struct w49 a26372) {struct w49 a35368; /* PAIR */ struct w49 a36832; /* S */ struct w49 a41629; /* G */ struct w49 a41683; /* G */ struct w49 a41714; /* G */ struct p14988 *t45622; struct p14985 *t45623; struct w49 t45624; struct w49 t45625; struct w49 t45626; struct w49 t45627; struct w49 t45628; struct w49 t45629; struct w49 t45630; struct w49 t45631; struct w49 t45632; struct w49 t45633; struct w49 t45634; struct w49 t45635; struct p14991 *t45636; struct structure_type27501 *t45637; struct w49 t45638; struct w49 t45639; struct w12218 t45640; struct w49 t45641; struct w49 t45642; struct w49 t45643; struct w49 t45644; struct w49 t45645; struct w49 t45646; struct p14988 *p14998; struct p14991 *p14999; struct p14991 *p15000; struct p14991 *p15001; /* x136177 */ /* x136176 stalin.sc:17419:609333 */ /* x136157 stalin.sc:17419:609339 */ /* x136156 stalin.sc:17419:609343 */ /* x136155 stalin.sc:17419:609351 */ t45630 = p14997->a26369; /* x136154 stalin.sc:17419:609344 */ a41714 = t45630; /* x300968 stalin.sc:3890:131852 */ /* x300967 stalin.sc:3890:131869 */ t45631 = a41714; /* x300966 stalin.sc:3890:131853 */ if (!(f8204(t45631)==FALSE_TYPE)) goto l6938; p14999 = p14997; /* x136151 */ /* x136150 stalin.sc:17419:609354 */ /* x136149 stalin.sc:17419:609363 */ t45632 = p14999->a26369; /* x136148 stalin.sc:17419:609355 */ a41683 = t45632; /* x300844 stalin.sc:3916:132554 */ /* x300843 stalin.sc:3916:132572 */ t45633 = a41683; /* x300842 stalin.sc:3916:132555 */ if (!(f8209(t45633)==FALSE_TYPE)) goto l6938; p15000 = p14999; /* x136145 */ /* x136144 stalin.sc:17419:609376 */ t45634 = p15000->a26369; /* x136143 stalin.sc:17419:609367 */ a41629 = t45634; /* x300628 stalin.sc:3965:133896 */ /* x300627 stalin.sc:3965:133915 */ t45635 = a41629; /* x300626 stalin.sc:3965:133897 */ if (f8219(t45635)==FALSE_TYPE) goto l6939; l6938: /* x136173 */ /* x136172 */ t45636 = p14997; p15001 = t45636; /* x136171 stalin.sc:17420:609383 */ /* x136164 stalin.sc:17421:609397 */ /* x136162 stalin.sc:17421:609421 */ /* x136161 stalin.sc:17421:609440 */ t45643 = p15001->a26369; /* x136160 stalin.sc:17421:609422 */ a36832 = t45643; /* x279997 */ /* x279996 */ t45644 = a36832; /* x279995 */ if (!((t45644.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31749]"); structure_ref_error();} t45641 = t45644.value.structure_type27692->s9; /* x136163 stalin.sc:17421:609443 */ /* x136159 stalin.sc:17421:609398 */ t45642.tag = FALSE_TYPE; t45637 = f7025(t45641, t45642); /* x136167 stalin.sc:17422:609451 */ /* x136166 stalin.sc:17422:609466 */ t45645 = a26372; /* x136165 stalin.sc:17422:609452 */ t45638 = f7923(t45645); /* x136170 stalin.sc:17423:609473 */ /* x136169 stalin.sc:17423:609488 */ t45646 = a26372; /* x136168 stalin.sc:17423:609474 */ t45639 = f7923(t45646); /* x136158 stalin.sc:17420:609384 */ t45640.tag = STRUCTURE_TYPE27501; t45640.value.structure_type27501 = t45637; f14848(t45640, t45638, t45639); goto l6940; l6939: /* x136175 stalin.sc:17419:609333 */ /* x136174 stalin.sc:17419:609333 */ l6940: /* x136138 */ t45622 = p14997->p14988; p14998 = t45622; /* x136137 stalin.sc:17424:609502 */ /* x136130 stalin.sc:17424:609508 */ t45624 = p14998->a26366; /* x136133 stalin.sc:17424:609511 */ /* x136132 stalin.sc:17424:609526 */ t45627 = a26372; /* x136131 stalin.sc:17424:609512 */ t45625 = f7927(t45627); /* x136136 stalin.sc:17424:609529 */ /* x136135 stalin.sc:17424:609535 */ t45628 = p14998->a26368; /* x136134 stalin.sc:17424:609530 */ a35368 = t45628; /* x272829 */ /* x272828 */ t45629 = a35368; /* x272827 */ if (!((t45629.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29517]"); structure_ref_error();} t45626 = t45629.value.structure_type24753->s1; /* x136129 stalin.sc:17424:609503 */ t45623 = p14998->p14985; f14988(t45623, t45624, t45625, t45626); return;} /* LOOP[14988] */ void f14988(struct p14985 *p14988, struct w49 a26366, struct w49 a26367, struct w49 a26368) {char *sfp14988; struct structure_type27501 *a26331; /* R */ struct structure_type27745 *a26332; /* Y */ struct w16638 a26333; /* WS */ struct w49 a26334; /* W */ struct w49 a26337; /* USS */ struct w49 a26338; /* W1 */ struct structure_type24753 *a26339; /* US1 */ struct structure_type24753 *a26340; /* WS1 */ struct w49 a26343; /* WS */ struct w49 a26344; /* US1 */ struct w49 a26345; /* WS1 */ struct w49 a26346; /* W */ struct w49 a26347; /* W1 */ struct w49 a26348; /* U1 */ struct w49 a26349; /* W2 */ struct structure_type27650 *a26352; /* W */ char *a26354; /* v */ struct w49 a26358; /* U1 */ struct w49 a26369; /* G */ struct w16638 a35367; /* PAIR */ struct w16638 a35369; /* PAIR */ struct w49 a35370; /* PAIR */ struct w49 a35371; /* PAIR */ struct w16638 a35372; /* PAIR */ struct w16638 a35373; /* PAIR */ struct w16638 a35374; /* PAIR */ struct w16638 a35375; /* PAIR */ struct w49 a35739; /* PAIR */ struct w49 a35740; /* PAIR */ struct w16638 a35741; /* PAIR */ struct w16638 a35742; /* PAIR */ struct w16638 a35743; /* PAIR */ struct w16638 a35744; /* PAIR */ struct structure_type27745 *a36407; /* S */ struct w49 a36831; /* S */ struct w49 a36833; /* S */ struct w49 a36834; /* S */ struct structure_type27501 *a38406; /* S */ struct w49 a41628; /* G */ struct w49 a41630; /* G */ struct w49 a41631; /* G */ struct w49 a41682; /* G */ struct w49 a41684; /* G */ struct w49 a41685; /* G */ struct w49 a41713; /* G */ struct w49 a41715; /* G */ struct w49 a41716; /* G */ struct w49 t45647; struct p14988 *t45648; struct p14988 *t45649; struct w49 t45650; struct p14991 *t45651; struct w49 t45652; struct w49 t45653; struct w49 t45654; struct w16638 t45655; struct w16638 t45656; struct p14991 *t45657; struct p14988 *t45658; struct p14985 *t45659; struct w49 t45660; struct w49 t45661; struct w49 t45662; struct w16638 t45663; struct w16638 t45664; struct w16638 t45665; struct w16638 t45666; struct w49 t45667; struct w49 t45668; struct w49 t45669; struct w49 t45670; struct w49 t45671; struct w49 t45672; struct p14991 *t45673; struct structure_type27501 *t45674; struct w49 t45675; struct w49 t45676; struct w12218 t45677; struct w49 t45678; struct w49 t45679; struct w49 t45680; struct w49 t45681; struct w16638 t45682; struct w16638 t45683; struct w16638 t45684; struct w16638 t45685; struct p14991 *t45686; struct w49 t45687; struct w49 t45688; struct w49 t45689; struct w49 t45690; struct w49 t45691; struct w49 t45692; struct p14991 *t45693; struct structure_type27501 *t45694; struct structure_type27745 *t45695; struct w16638 t45696; struct w49 t45697; struct structure_type27501 *t45698; struct w12218 t45699; struct structure_type27501 *t45700; struct w12218 t45701; struct w16638 t45702; struct structure_type24753 *t45703; struct w49 t45704; struct w49 t45705; struct w49 t45706; struct w49 t45707; struct w49 t45708; struct structure_type24753 *t45709; struct structure_type24753 *t45710; struct w16638 t45711; struct w16638 t45712; struct w49 t45713; struct w49 t45714; struct structure_type24753 *t45715; struct w49 t45716; struct structure_type24753 *t45717; struct p7720 *t45718; struct w49 t45719; struct w211113 t45720; struct w16638 t45721; struct structure_type24753 *t45722; struct w49 t45723; struct w49 t45724; struct w49 t45725; struct structure_type27745 *t45726; struct structure_type27745 *t45727; struct w12224 t45728; struct structure_type24753 *t45729; struct structure_type24753 *t45730; struct w49 t45731; struct w49 t45732; struct w49 t45733; struct w49 t45734; struct w49 t45735; struct w49 t45736; struct w49 t45737; struct w49 t45738; struct w49 t45739; struct w16638 t45740; struct w16638 t45741; struct w49 t45742; struct w49 t45743; struct w49 t45744; struct w49 t45745; struct w49 t45746; struct structure_type27501 *t45747; struct w12218 t45748; struct structure_type27501 *t45749; struct w12218 t45750; struct w49 t45751; struct structure_type27501 *t45752; struct w49 t45753; struct w49 t45754; struct w12218 t45755; struct w49 t45756; struct w49 t45757; struct w49 t45758; struct structure_type27501 *t45759; struct w49 t45760; struct w49 t45761; struct w12218 t45762; struct w49 t45763; struct w49 t45764; struct w49 t45765; struct structure_type27650 *t45766; struct structure_type27501 *t45767; struct structure_type27650 *t45768; struct structure_type27650 *t45769; struct w12218 t45770; struct w49 t45771; struct w49 t45772; struct w49 t45773; struct w49 t45774; struct structure_type27650 *t45775; unsigned t45776; struct w49 t45777; char *t45778; char *t45779; char *t45780; struct w49 t45781; struct w49 t45782; char *t45783; char *t45784; struct w49 t45785; struct w49 t45786; char *t45787; char *t45788; struct w49 t45789; struct w49 t45790; char *t45791; struct structure_type27650 *t45792; struct w49 t45793; struct structure_type27650 *t45794; struct w49 t45795; struct structure_type27650 *t45796; struct w211225 t45797; struct w49 t45798; struct w49 t45799; struct structure_type24753 *t45800; struct w49 t45801; struct w49 t45802; struct w49 t45803; struct w49 t45804; struct w16638 t45805; struct w16638 t45806; struct w16638 t45807; struct w49 t45808; struct w16638 t45809; struct w36270 t45810; struct w49 t45811; struct structure_type24753 *t45812; struct structure_type27501 *t45813; struct structure_type27501 *t45814; struct w49 t45815; struct w49 t45816; struct w49 t45817; struct w49 t45818; struct w49 t45819; struct w49 t45820; struct w16638 t45821; struct w16638 t45822; struct p14991 *t45823; struct w12224 t45824; struct w36108 t45825; struct w49 t45826; struct structure_type24753 *t45827; struct w49 t45828; struct w211061 t45829; struct w49 t45830; struct w49 t45831; struct w49 t45832; struct w49 t45833; struct w49 t45834; struct w49 t45835; struct p14991 *t45836; struct structure_type27501 *t45837; struct w49 t45838; struct w49 t45839; struct w12218 t45840; struct w49 t45841; struct w49 t45842; struct w49 t45843; struct w49 t45844; struct w16638 t45845; struct w16638 t45846; struct p14988 *e14988; struct p14991 *e14991; struct p14988 *p14990; struct p14988 *p14991; struct p14991 *p14992; struct p14991 *p14993; struct p14991 *p14994; struct p14991 *p14995; struct p14991 *p15003; struct p14991 *p15004; struct p14991 *p15005; struct p14991 *p15006; struct p14991 *p15008; struct p14988 *p15009; struct p14991 *p15010; struct p14991 *p15011; struct p14991 *p15012; sfp14988 = fp14988; h14988: e14988 = (struct p14988 *)alloca(sizeof(struct p14988)); if (e14988==NULL) {backtrace_internal("[inside PROMOTE-GATHER! 14986]"); out_of_memory_error();} e14988->p14985 = p14988; e14988->a26366 = a26366; e14988->a26368 = a26368; /* x136294 stalin.sc:17412:609069 */ /* x136078 stalin.sc:17412:609077 */ /* x136077 stalin.sc:17412:609084 */ t45647 = e14988->a26368; /* x268732 stalin.sc:17412:609078 */ if (!((t45647.tag)==NULL_TYPE)) goto l6944; /* x136080 */ /* x136079 */ while ((sfp14988<(&((region14988->data)[0])))||(sfp14988>(&((region14988->data)[region_size14988])))) {struct region14988 *region; region = region14988; region_size14988 = region14988->region_size; region14988 = region14988->region; GC_free(region);} fp14988 = sfp14988; return; l6944: /* x136293 */ /* x136292 */ t45648 = e14988; p14990 = t45648; /* x136291 stalin.sc:17413:609091 */ /* x136290 stalin.sc:17413:609101 */ /* x136289 stalin.sc:17413:609108 */ t45845 = *((struct w16638 *)(&(p14990->a26368))); /* x136288 stalin.sc:17413:609102 */ a35744 = t45845; /* x274333 */ /* x274332 */ t45846 = a35744; /* x274331 */ if (!((t45846.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29893]"); structure_ref_error();} t45650 = t45846.value.structure_type24753->s0; /* x136287 */ t45649 = p14990; p14991 = t45649; a26369 = t45650; if ((fp14988+sizeof(struct p14991))>(&((region14988->data)[region_size14988]))) {struct region14988 *region; unsigned region_size = REGION_SIZE14988; if (sizeof(struct p14991)>region_size) region_size = sizeof(struct p14991); region = (struct region14988 *)GC_malloc_uncollectable(sizeof(struct region14988)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside LOOP 14990]"); out_of_memory_error();} region->region = region14988; region->region_size = region_size14988; region_size14988 = region_size; region14988 = region; fp14988 = &((region->data)[0]); ALIGN(fp14988);} e14991 = (struct p14991 *)fp14988; fp14988 += sizeof(struct p14991)+((4-(sizeof(struct p14991)%4))&3); e14991->p14988 = p14991; e14991->a26369 = a26369; /* x136286 */ /* x136285 */ t45651 = e14991; p14992 = t45651; /* x136284 stalin.sc:17414:609118 */ /* x136083 stalin.sc:17414:609122 */ /* x136082 stalin.sc:17414:609129 */ t45652 = p14992->p14988->a26366; /* x268731 stalin.sc:17414:609123 */ if (!((t45652.tag)==NULL_TYPE)) goto l6946; /* x136184 stalin.sc:17415:609134 */ /* x136093 stalin.sc:17415:609138 */ /* x136086 stalin.sc:17415:609143 */ /* x136085 stalin.sc:17415:609150 */ t45819 = p14992->p14988->p14985->a26359; /* x136084 stalin.sc:17415:609144 */ if (f8931(t45819)==FALSE_TYPE) goto l6989; /* x136091 */ /* x136090 stalin.sc:17415:609161 */ /* x136089 stalin.sc:17415:609167 */ t45821 = *((struct w16638 *)(&(p14992->p14988->a26368))); /* x136088 stalin.sc:17415:609162 */ a35367 = t45821; /* x272825 */ /* x272824 */ t45822 = a35367; /* x272823 */ if (!((t45822.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29516]"); structure_ref_error();} t45820 = t45822.value.structure_type24753->s1; /* x268730 stalin.sc:17415:609155 */ if (!((t45820.tag)==NULL_TYPE)) goto l6989; /* x136127 stalin.sc:17416:609178 */ /* x136112 stalin.sc:17416:609184 */ /* x136111 stalin.sc:17416:609188 */ /* x136110 stalin.sc:17416:609196 */ t45830 = p14992->a26369; /* x136109 stalin.sc:17416:609189 */ a41713 = t45830; /* x300964 stalin.sc:3890:131852 */ /* x300963 stalin.sc:3890:131869 */ t45831 = a41713; /* x300962 stalin.sc:3890:131853 */ if (!(f8204(t45831)==FALSE_TYPE)) goto l6991; p14993 = p14992; /* x136106 */ /* x136105 stalin.sc:17416:609199 */ /* x136104 stalin.sc:17416:609208 */ t45832 = p14993->a26369; /* x136103 stalin.sc:17416:609200 */ a41682 = t45832; /* x300840 stalin.sc:3916:132554 */ /* x300839 stalin.sc:3916:132572 */ t45833 = a41682; /* x300838 stalin.sc:3916:132555 */ if (!(f8209(t45833)==FALSE_TYPE)) goto l6991; p14994 = p14993; /* x136100 */ /* x136099 stalin.sc:17416:609221 */ t45834 = p14994->a26369; /* x136098 stalin.sc:17416:609212 */ a41628 = t45834; /* x300624 stalin.sc:3965:133896 */ /* x300623 stalin.sc:3965:133915 */ t45835 = a41628; /* x300622 stalin.sc:3965:133897 */ if (f8219(t45835)==FALSE_TYPE) goto l6992; l6991: /* x136124 */ /* x136123 */ t45836 = p14992; p14995 = t45836; /* x136122 stalin.sc:17417:609231 */ /* x136119 stalin.sc:17417:609241 */ /* x136117 stalin.sc:17417:609265 */ /* x136116 stalin.sc:17417:609284 */ t45843 = p14995->a26369; /* x136115 stalin.sc:17417:609266 */ a36831 = t45843; /* x279993 */ /* x279992 */ t45844 = a36831; /* x279991 */ if (!((t45844.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31748]"); structure_ref_error();} t45841 = t45844.value.structure_type27692->s9; /* x136118 stalin.sc:17417:609287 */ /* x136114 stalin.sc:17417:609242 */ t45842.tag = FALSE_TYPE; t45837 = f7025(t45841, t45842); /* x136120 stalin.sc:17417:609291 */ t45838 = a26367; /* x136121 stalin.sc:17417:609293 */ t45839 = a26367; /* x136113 stalin.sc:17417:609232 */ t45840.tag = STRUCTURE_TYPE27501; t45840.value.structure_type27501 = t45837; f14848(t45840, t45838, t45839); while ((sfp14988<(&((region14988->data)[0])))||(sfp14988>(&((region14988->data)[region_size14988])))) {struct region14988 *region; region = region14988; region_size14988 = region14988->region_size; region14988 = region14988->region; GC_free(region);} fp14988 = sfp14988; return; l6992: /* x136126 stalin.sc:17416:609178 */ /* x136125 stalin.sc:17416:609178 */ while ((sfp14988<(&((region14988->data)[0])))||(sfp14988>(&((region14988->data)[region_size14988])))) {struct region14988 *region; region = region14988; region_size14988 = region14988->region_size; region14988 = region14988->region; GC_free(region);} fp14988 = sfp14988; return; l6989: /* x136183 stalin.sc:17418:609302 */ /* x136182 stalin.sc:17425:609549 */ /* x136180 stalin.sc:17425:609563 */ /* x136181 stalin.sc:17425:609574 */ t45828 = a26367; /* x136179 stalin.sc:17425:609550 */ t45829.tag = NATIVE_PROCEDURE_TYPE7413; t45824 = f8172(t45829, t45828); /* x136178 */ t45823 = p14992; /* x136128 stalin.sc:17418:609303 */ t45825.tag = NATIVE_PROCEDURE_TYPE22245; t45825.value.native_procedure_type22245 = t45823; t45826 = *((struct w49 *)(&t45824)); t45827 = (struct structure_type24753 *)NULL_TYPE; f27755(t45825, t45826, t45827); while ((sfp14988<(&((region14988->data)[0])))||(sfp14988>(&((region14988->data)[region_size14988])))) {struct region14988 *region; region = region14988; region_size14988 = region14988->region_size; region14988 = region14988->region; GC_free(region);} fp14988 = sfp14988; return; l6946: /* x136283 stalin.sc:17426:609580 */ /* x136194 stalin.sc:17426:609587 */ /* x136187 stalin.sc:17426:609592 */ /* x136186 stalin.sc:17426:609599 */ t45653 = p14992->p14988->p14985->a26359; /* x136185 stalin.sc:17426:609593 */ if (f8931(t45653)==FALSE_TYPE) goto l6948; /* x136192 */ /* x136191 stalin.sc:17426:609610 */ /* x136190 stalin.sc:17426:609616 */ t45655 = *((struct w16638 *)(&(p14992->p14988->a26368))); /* x136189 stalin.sc:17426:609611 */ a35373 = t45655; /* x272849 */ /* x272848 */ t45656 = a35373; /* x272847 */ if (!((t45656.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29522]"); structure_ref_error();} t45654 = t45656.value.structure_type24753->s1; /* x268729 stalin.sc:17426:609604 */ if (!((t45654.tag)==NULL_TYPE)) goto l6948; /* x136231 */ /* x136230 */ t45686 = p14992; p15003 = t45686; /* x136229 stalin.sc:17427:609630 */ /* x136213 stalin.sc:17427:609636 */ /* x136212 stalin.sc:17427:609640 */ /* x136211 stalin.sc:17427:609648 */ t45687 = p15003->a26369; /* x136210 stalin.sc:17427:609641 */ a41715 = t45687; /* x300972 stalin.sc:3890:131852 */ /* x300971 stalin.sc:3890:131869 */ t45688 = a41715; /* x300970 stalin.sc:3890:131853 */ if (!(f8204(t45688)==FALSE_TYPE)) goto l6955; p15004 = p15003; /* x136207 */ /* x136206 stalin.sc:17427:609651 */ /* x136205 stalin.sc:17427:609660 */ t45689 = p15004->a26369; /* x136204 stalin.sc:17427:609652 */ a41684 = t45689; /* x300848 stalin.sc:3916:132554 */ /* x300847 stalin.sc:3916:132572 */ t45690 = a41684; /* x300846 stalin.sc:3916:132555 */ if (!(f8209(t45690)==FALSE_TYPE)) goto l6955; p15005 = p15004; /* x136201 */ /* x136200 stalin.sc:17427:609673 */ t45691 = p15005->a26369; /* x136199 stalin.sc:17427:609664 */ a41630 = t45691; /* x300632 stalin.sc:3965:133896 */ /* x300631 stalin.sc:3965:133915 */ t45692 = a41630; /* x300630 stalin.sc:3965:133897 */ if (f8219(t45692)==FALSE_TYPE) goto l6956; l6955: /* x136226 */ /* x136225 */ t45693 = p15003; p15006 = t45693; /* x136224 stalin.sc:17428:609679 */ /* x136220 stalin.sc:17429:609698 */ /* x136218 stalin.sc:17429:609722 */ /* x136217 stalin.sc:17429:609741 */ t45817 = p15006->a26369; /* x136216 stalin.sc:17429:609723 */ a36833 = t45817; /* x280001 */ /* x280000 */ t45818 = a36833; /* x279999 */ if (!((t45818.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31750]"); structure_ref_error();} t45815 = t45818.value.structure_type27692->s9; /* x136219 stalin.sc:17429:609744 */ /* x136215 stalin.sc:17429:609699 */ t45816.tag = FALSE_TYPE; t45694 = f7025(t45815, t45816); /* x136221 stalin.sc:17429:609748 */ t45695 = p15006->p14988->p14985->a26360; /* x136222 stalin.sc:17429:609750 */ t45696 = *((struct w16638 *)(&(p15006->p14988->a26366))); /* x136223 stalin.sc:17429:609753 */ t45697 = a26367; /* x136214 stalin.sc:17428:609680 */ a26331 = t45694; a26332 = t45695; a26333 = t45696; a26334 = t45697; /* x136071 stalin.sc:17367:607770 */ /* x135824 stalin.sc:17368:607779 */ /* x135823 stalin.sc:17368:607789 */ t45698 = a26331; /* x135822 stalin.sc:17368:607780 */ t45699.tag = STRUCTURE_TYPE27501; t45699.value.structure_type27501 = t45698; if (f7031(t45699)==FALSE_TYPE) goto l6960; /* x135827 */ /* x135826 */ /* x135825 stalin.sc:17368:607792 */ while ((sfp14988<(&((region14988->data)[0])))||(sfp14988>(&((region14988->data)[region_size14988])))) {struct region14988 *region; region = region14988; region_size14988 = region14988->region_size; region14988 = region14988->region; GC_free(region);} fp14988 = sfp14988; return; l6960: /* x136070 */ /* x135830 stalin.sc:17369:607799 */ /* x135829 stalin.sc:17369:607812 */ t45700 = a26331; /* x135828 stalin.sc:17369:607800 */ t45701.tag = STRUCTURE_TYPE27501; t45701.value.structure_type27501 = t45700; if (f7032(t45701)==FALSE_TYPE) goto l6962; /* x135833 */ /* x135832 */ /* x135831 stalin.sc:17369:607815 */ while ((sfp14988<(&((region14988->data)[0])))||(sfp14988>(&((region14988->data)[region_size14988])))) {struct region14988 *region; region = region14988; region_size14988 = region14988->region_size; region14988 = region14988->region; GC_free(region);} fp14988 = sfp14988; return; l6962: /* x136069 */ /* x135836 stalin.sc:17370:607822 */ /* x135835 stalin.sc:17370:607829 */ t45702 = a26333; /* x268739 stalin.sc:17370:607823 */ /* x136068 */ /* x136067 */ /* x136066 stalin.sc:17372:607862 */ /* x136060 stalin.sc:17372:607878 */ /* x136059 stalin.sc:17372:607891 */ t45809 = a26333; /* x136058 stalin.sc:17372:607883 */ /* x136057 stalin.sc:17372:607879 */ t45810.tag = NATIVE_PROCEDURE_TYPE7353; t45811 = *((struct w49 *)(&t45809)); t45812 = (struct structure_type24753 *)NULL_TYPE; t45703 = f27731(t45810, t45811, t45812); /* x136063 stalin.sc:17373:607907 */ /* x136062 stalin.sc:17373:607924 */ t45813 = a26331; /* x136061 stalin.sc:17373:607908 */ a38406 = t45813; /* x286293 */ /* x286292 */ t45814 = a38406; /* x286291 */ t45704 = t45814->s2; /* x136064 stalin.sc:17374:607940 */ /* x136065 stalin.sc:17375:607957 */ /* x136056 */ /* x136055 */ /* x136054 */ /* x136053 */ /* x136052 */ /* x136051 */ /* x136050 */ /* x135845 */ /* x135844 stalin.sc:17372:607867 */ /* MOVE: branching squeezed to general */ if (t45703>=((struct structure_type24753 *)VALUE_OFFSET)) {a26337.tag = STRUCTURE_TYPE24753; a26337.value.structure_type24753 = t45703;} else a26337.tag = (unsigned)t45703; a26338 = t45704; a26339 = (struct structure_type24753 *)NULL_TYPE; a26340 = (struct structure_type24753 *)NULL_TYPE; h14960: /* x136049 stalin.sc:17376:607967 */ /* x135848 stalin.sc:17376:607971 */ /* x135847 stalin.sc:17376:607978 */ t45705 = a26337; /* x268738 stalin.sc:17376:607972 */ if (!((t45705.tag)==NULL_TYPE)) goto l6965; /* x136018 stalin.sc:17377:607984 */ /* x136014 stalin.sc:17377:607999 */ /* x136013 stalin.sc:17377:608008 */ t45807 = a26333; /* x136012 stalin.sc:17377:608000 */ t45808 = *((struct w49 *)(&t45807)); t45728 = f26331(t45808); /* x136015 stalin.sc:17378:608023 */ t45729 = a26339; /* x136016 stalin.sc:17379:608038 */ t45730 = a26340; /* x136017 stalin.sc:17380:608051 */ t45731 = a26334; /* x136011 */ /* x136010 */ /* x136009 */ /* x136008 */ /* x136007 */ /* x136006 */ /* x136005 */ /* x135850 */ /* x135849 stalin.sc:17377:607989 */ a26343 = *((struct w49 *)(&t45728)); /* MOVE: branching squeezed to general */ if (t45729>=((struct structure_type24753 *)VALUE_OFFSET)) {a26344.tag = STRUCTURE_TYPE24753; a26344.value.structure_type24753 = t45729;} else a26344.tag = (unsigned)t45729; /* MOVE: branching squeezed to general */ if (t45730>=((struct structure_type24753 *)VALUE_OFFSET)) {a26345.tag = STRUCTURE_TYPE24753; a26345.value.structure_type24753 = t45730;} else a26345.tag = (unsigned)t45730; a26346 = t45731; h14963: /* x136004 stalin.sc:17381:608057 */ /* x135853 stalin.sc:17381:608065 */ /* x135852 stalin.sc:17381:608072 */ t45732 = a26343; /* x268737 stalin.sc:17381:608066 */ if (!((t45732.tag)==NULL_TYPE)) goto l6967; /* x135855 */ /* x135854 */ while ((sfp14988<(&((region14988->data)[0])))||(sfp14988>(&((region14988->data)[region_size14988])))) {struct region14988 *region; region = region14988; region_size14988 = region14988->region_size; region14988 = region14988->region; GC_free(region);} fp14988 = sfp14988; return; l6967: /* x136003 */ /* x136002 */ /* x136001 stalin.sc:17382:608079 */ /* x135994 stalin.sc:17384:608126 */ /* x135993 stalin.sc:17384:608133 */ t45801 = a26345; /* x135992 stalin.sc:17384:608127 */ a35739 = t45801; /* x274313 */ /* x274312 */ t45802 = a35739; /* x274311 */ if (!((t45802.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29888]"); structure_ref_error();} t45733 = t45802.value.structure_type24753->s0; /* x135997 stalin.sc:17383:608107 */ /* x135996 stalin.sc:17383:608114 */ t45803 = a26344; /* x135995 stalin.sc:17383:608108 */ a35740 = t45803; /* x274317 */ /* x274316 */ t45804 = a35740; /* x274315 */ if (!((t45804.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29889]"); structure_ref_error();} t45734 = t45804.value.structure_type24753->s0; /* x136000 stalin.sc:17382:608089 */ /* x135999 stalin.sc:17382:608096 */ t45805 = *((struct w16638 *)(&a26343)); /* x135998 stalin.sc:17382:608090 */ a35741 = t45805; /* x274321 */ /* x274320 */ t45806 = a35741; /* x274319 */ if (!((t45806.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29890]"); structure_ref_error();} t45735 = t45806.value.structure_type24753->s0; /* x135991 */ a26347 = t45733; a26348 = t45734; a26349 = t45735; /* x135990 */ /* x135989 stalin.sc:17385:608144 */ /* x135886 stalin.sc:17385:608152 */ /* x135885 stalin.sc:17385:608156 */ /* x135884 stalin.sc:17385:608169 */ t45746 = a26347; /* x135883 stalin.sc:17385:608157 */ if (!(f8793(t45746)==FALSE_TYPE)) goto l6968; /* x135880 */ /* x135873 stalin.sc:17386:608187 */ /* x135872 stalin.sc:17386:608196 */ t45747 = a26331; /* x135871 stalin.sc:17386:608188 */ t45748.tag = STRUCTURE_TYPE27501; t45748.value.structure_type27501 = t45747; if (f7030(t45748)==FALSE_TYPE) goto l6969; /* x135878 */ /* x135877 stalin.sc:17386:608204 */ /* x135876 stalin.sc:17386:608222 */ t45749 = a26331; /* x135875 stalin.sc:17386:608205 */ t45750.tag = STRUCTURE_TYPE27501; t45750.value.structure_type27501 = t45749; if (!(f15338(t45750)==FALSE_TYPE)) goto l6969; l6968: /* x135888 */ /* x135887 */ goto l6970; l6969: /* x135988 */ /* x135987 */ /* x135986 stalin.sc:17387:608233 */ /* x135891 stalin.sc:17388:608246 */ /* x135890 stalin.sc:17388:608259 */ t45751 = a26348; /* x135889 stalin.sc:17388:608247 */ if (f8793(t45751)==FALSE_TYPE) goto l6974; /* x135961 */ /* x135960 */ /* x135959 stalin.sc:17389:608270 */ /* x135958 stalin.sc:17389:608279 */ /* x135957 stalin.sc:17389:608306 */ t45799 = a26348; /* x135956 stalin.sc:17389:608280 */ t45800 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t45800==NULL) {backtrace("stalin.sc", 17389, 608279); out_of_memory_error();} t45800->s0 = t45799; t45800->s1.tag = NULL_TYPE; t45766 = f8098(t45800); /* x135955 */ a26352 = t45766; /* x135954 */ /* x135953 stalin.sc:17390:608320 */ /* x135902 stalin.sc:17391:608349 */ t45775 = a26352; /* x135952 stalin.sc:17392:608353 */ /* x135951 stalin.sc:17392:608359 */ t45778 = a687; /* x135950 */ a26354 = t45778; /* x135949 */ /* x135915 */ /* x135914 */ /* x135912 */ t45779 = a26354; /* x135913 */ t45780 = q15; /* x135911 */ /* MOVE: branching squeezed to general */ if (t45779>=((char *)VALUE_OFFSET)) {t45781.tag = EXTERNAL_SYMBOL_TYPE; t45781.value.external_symbol_type = t45779;} else t45781.tag = (unsigned)t45779; t45782.tag = EXTERNAL_SYMBOL_TYPE; t45782.value.external_symbol_type = t45780; if (!(f26160(t45781, t45782)==FALSE_TYPE)) goto l6976; /* x135908 */ /* x135906 */ t45783 = a26354; /* x135907 */ t45784 = q16; /* x135905 */ /* MOVE: branching squeezed to general */ if (t45783>=((char *)VALUE_OFFSET)) {t45785.tag = EXTERNAL_SYMBOL_TYPE; t45785.value.external_symbol_type = t45783;} else t45785.tag = (unsigned)t45783; t45786.tag = EXTERNAL_SYMBOL_TYPE; t45786.value.external_symbol_type = t45784; if (f26160(t45785, t45786)==FALSE_TYPE) goto l6977; l6976: /* x135918 */ /* x135917 */ /* x135916 stalin.sc:17393:608415 */ t45776 = FALSE_TYPE; goto l6978; l6977: /* x135948 */ /* x135922 */ /* x135920 */ t45787 = a26354; /* x135921 */ t45788 = q17; /* x135919 */ /* MOVE: branching squeezed to general */ if (t45787>=((char *)VALUE_OFFSET)) {t45789.tag = EXTERNAL_SYMBOL_TYPE; t45789.value.external_symbol_type = t45787;} else t45789.tag = (unsigned)t45787; t45790.tag = EXTERNAL_SYMBOL_TYPE; t45790.value.external_symbol_type = t45788; if (f26160(t45789, t45790)==FALSE_TYPE) goto l6981; /* x135943 */ /* x135942 */ /* x135941 stalin.sc:17395:608441 */ /* x135941 stalin.sc:17395:608441 */ /* x135940 stalin.sc:17395:608445 */ /* x135939 stalin.sc:17395:608452 */ t45792 = a26352; /* x135938 stalin.sc:17395:608446 */ t45793.tag = STRUCTURE_TYPE27650; t45793.value.structure_type27650 = t45792; if (!(f8147(t45793)==FALSE_TYPE)) goto l6983; /* x135935 */ /* x135929 stalin.sc:17396:608468 */ /* x135928 stalin.sc:17396:608473 */ /* x135927 stalin.sc:17396:608488 */ t45794 = a26352; /* x135926 stalin.sc:17396:608474 */ t45795.tag = STRUCTURE_TYPE27650; t45795.value.structure_type27650 = t45794; if (!(f8149(t45795)==((struct structure_type27657 *)FALSE_TYPE))) goto l6984; /* x135933 */ /* x135931 stalin.sc:17396:608502 */ /* x135932 stalin.sc:17396:608514 */ t45796 = a26352; /* x135930 stalin.sc:17396:608493 */ t45797.tag = NATIVE_PROCEDURE_TYPE7232; t45798.tag = STRUCTURE_TYPE27650; t45798.value.structure_type27650 = t45796; if (f8146(t45797, t45798)==FALSE_TYPE) goto l6984; l6983: t45776 = TRUE_TYPE; goto l6985; l6984: t45776 = FALSE_TYPE; l6985: goto l6982; l6981: /* x135947 */ /* x135946 */ /* x135945 stalin.sc:17397:608529 */ /* x135944 stalin.sc:17397:608530 */ /* x295517 QobiScheme.sc:166:5314 */ /* x295516 QobiScheme.sc:166:5321 */ t45791 = "This shouldn\'t happen"; /* x295515 QobiScheme.sc:166:5315 */ stalin_panic(t45791); l6982: l6978: /* x135901 stalin.sc:17390:608321 */ t45777.tag = STRUCTURE_TYPE27650; t45777.value.structure_type27650 = t45775; f8133(t45777, t45776); /* x135900 */ /* x135899 stalin.sc:17398:608550 */ /* x135896 stalin.sc:17398:608560 */ /* x135894 stalin.sc:17398:608584 */ t45773 = a26347; /* x135895 stalin.sc:17398:608587 */ /* x135893 stalin.sc:17398:608561 */ t45774.tag = FALSE_TYPE; t45767 = f7025(t45773, t45774); /* x135897 stalin.sc:17398:608591 */ t45768 = a26352; /* x135898 stalin.sc:17398:608593 */ t45769 = a26352; /* x135892 stalin.sc:17398:608551 */ t45770.tag = STRUCTURE_TYPE27501; t45770.value.structure_type27501 = t45767; t45771.tag = STRUCTURE_TYPE27650; t45771.value.structure_type27650 = t45768; t45772.tag = STRUCTURE_TYPE27650; t45772.value.structure_type27650 = t45769; f14848(t45770, t45771, t45772); goto l6975; l6974: /* x135985 */ /* x135984 */ /* x135983 */ /* x135982 stalin.sc:17399:608610 */ /* x135979 stalin.sc:17399:608620 */ /* x135977 stalin.sc:17399:608644 */ /* x135976 stalin.sc:17399:608659 */ t45765 = a26348; /* x135975 stalin.sc:17399:608645 */ t45763 = f7923(t45765); /* x135978 stalin.sc:17399:608663 */ /* x135974 stalin.sc:17399:608621 */ t45764.tag = FALSE_TYPE; t45759 = f7025(t45763, t45764); /* x135980 stalin.sc:17400:608675 */ t45760 = a26349; /* x135981 stalin.sc:17401:608686 */ t45761 = a26349; /* x135973 stalin.sc:17399:608611 */ t45762.tag = STRUCTURE_TYPE27501; t45762.value.structure_type27501 = t45759; f14848(t45762, t45760, t45761); /* x135972 */ /* x135971 stalin.sc:17402:608695 */ /* x135968 stalin.sc:17402:608705 */ /* x135966 stalin.sc:17402:608729 */ /* x135965 stalin.sc:17402:608744 */ t45758 = a26348; /* x135964 stalin.sc:17402:608730 */ t45756 = f7927(t45758); /* x135967 stalin.sc:17402:608748 */ /* x135963 stalin.sc:17402:608706 */ t45757.tag = FALSE_TYPE; t45752 = f7025(t45756, t45757); /* x135969 stalin.sc:17403:608760 */ t45753 = a26346; /* x135970 stalin.sc:17404:608770 */ t45754 = a26346; /* x135962 stalin.sc:17402:608696 */ t45755.tag = STRUCTURE_TYPE27501; t45755.value.structure_type27501 = t45752; f14848(t45755, t45753, t45754); l6975: l6970: /* x135868 */ /* x135867 stalin.sc:17405:608780 */ /* x135859 stalin.sc:17405:608786 */ /* x135858 stalin.sc:17405:608792 */ t45740 = *((struct w16638 *)(&a26343)); /* x135857 stalin.sc:17405:608787 */ a35369 = t45740; /* x272833 */ /* x272832 */ t45741 = a35369; /* x272831 */ if (!((t45741.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29518]"); structure_ref_error();} t45736 = t45741.value.structure_type24753->s1; /* x135862 stalin.sc:17405:608796 */ /* x135861 stalin.sc:17405:608802 */ t45742 = a26344; /* x135860 stalin.sc:17405:608797 */ a35370 = t45742; /* x272837 */ /* x272836 */ t45743 = a35370; /* x272835 */ if (!((t45743.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29519]"); structure_ref_error();} t45737 = t45743.value.structure_type24753->s1; /* x135865 stalin.sc:17405:608807 */ /* x135864 stalin.sc:17405:608813 */ t45744 = a26345; /* x135863 stalin.sc:17405:608808 */ a35371 = t45744; /* x272841 */ /* x272840 */ t45745 = a35371; /* x272839 */ if (!((t45745.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29520]"); structure_ref_error();} t45738 = t45745.value.structure_type24753->s1; /* x135866 stalin.sc:17405:608818 */ t45739 = a26347; /* x135856 stalin.sc:17405:608781 */ a26343 = t45736; a26344 = t45737; a26345 = t45738; a26346 = t45739; goto h14963; l6965: /* x136048 stalin.sc:17406:608826 */ /* x136047 stalin.sc:17406:608836 */ /* x136045 stalin.sc:17407:608858 */ /* x136038 stalin.sc:17407:608871 */ t45721 = *((struct w16638 *)(&a26337)); /* x136041 stalin.sc:17407:608875 */ /* x136040 stalin.sc:17407:608884 */ t45725 = a26334; /* x136039 stalin.sc:17407:608876 */ t45722 = f8162(t45725); /* x136044 stalin.sc:17407:608887 */ /* x136043 stalin.sc:17407:608909 */ t45726 = a26332; /* x136042 stalin.sc:17407:608888 */ a36407 = t45726; /* x278297 */ /* x278296 */ t45727 = a36407; /* x278295 */ t45723 = t45727->s0; /* x136037 stalin.sc:17407:608859 */ t45724 = *((struct w49 *)(&t45721)); t45718 = f7720(t45724, t45722, t45723); /* x136046 stalin.sc:17407:608913 */ t45719 = a26338; /* x136036 stalin.sc:17406:608837 */ t45720.tag = NATIVE_PROCEDURE_TYPE21881; t45720.value.native_procedure_type21881 = t45718; t45706 = f8157(t45720, t45719); /* x136035 */ a26358 = t45706; /* x136034 stalin.sc:17408:608921 */ /* x136022 stalin.sc:17408:608927 */ /* x136021 stalin.sc:17408:608933 */ t45711 = *((struct w16638 *)(&a26337)); /* x136020 stalin.sc:17408:608928 */ a35372 = t45711; /* x272845 */ /* x272844 */ t45712 = a35372; /* x272843 */ if (!((t45712.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29521]"); structure_ref_error();} t45707 = t45712.value.structure_type24753->s1; /* x136025 stalin.sc:17408:608938 */ /* x136024 stalin.sc:17408:608953 */ t45713 = a26358; /* x136023 stalin.sc:17408:608939 */ t45708 = f7927(t45713); /* x136029 stalin.sc:17408:608957 */ /* x136027 stalin.sc:17408:608963 */ t45714 = a26358; /* x136028 stalin.sc:17408:608966 */ t45715 = a26339; /* x268734 stalin.sc:17408:608958 */ t45709 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t45709==NULL) {backtrace("stalin.sc", 17408, 608957); out_of_memory_error();} t45709->s0 = t45714; /* MOVE: branching squeezed to general */ if (t45715>=((struct structure_type24753 *)VALUE_OFFSET)) {t45709->s1.tag = STRUCTURE_TYPE24753; t45709->s1.value.structure_type24753 = t45715;} else t45709->s1.tag = (unsigned)t45715; /* x136033 stalin.sc:17408:608971 */ /* x136031 stalin.sc:17408:608977 */ t45716 = a26338; /* x136032 stalin.sc:17408:608980 */ t45717 = a26340; /* x268733 stalin.sc:17408:608972 */ t45710 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t45710==NULL) {backtrace("stalin.sc", 17408, 608971); out_of_memory_error();} t45710->s0 = t45716; /* MOVE: branching squeezed to general */ if (t45717>=((struct structure_type24753 *)VALUE_OFFSET)) {t45710->s1.tag = STRUCTURE_TYPE24753; t45710->s1.value.structure_type24753 = t45717;} else t45710->s1.tag = (unsigned)t45717; /* x136019 stalin.sc:17408:608922 */ a26337 = t45707; a26338 = t45708; a26339 = t45709; a26340 = t45710; goto h14960; l6956: /* x136228 stalin.sc:17427:609630 */ /* x136227 stalin.sc:17427:609630 */ while ((sfp14988<(&((region14988->data)[0])))||(sfp14988>(&((region14988->data)[region_size14988])))) {struct region14988 *region; region = region14988; region_size14988 = region14988->region_size; region14988 = region14988->region; GC_free(region);} fp14988 = sfp14988; return; l6948: /* x136282 */ /* x136281 */ t45657 = p14992; p15008 = t45657; /* x136280 */ /* x136279 stalin.sc:17430:609771 */ /* x136260 stalin.sc:17430:609777 */ /* x136259 stalin.sc:17430:609781 */ /* x136258 stalin.sc:17430:609789 */ t45667 = p15008->a26369; /* x136257 stalin.sc:17430:609782 */ a41716 = t45667; /* x300976 stalin.sc:3890:131852 */ /* x300975 stalin.sc:3890:131869 */ t45668 = a41716; /* x300974 stalin.sc:3890:131853 */ if (!(f8204(t45668)==FALSE_TYPE)) goto l6950; p15010 = p15008; /* x136254 */ /* x136253 stalin.sc:17430:609792 */ /* x136252 stalin.sc:17430:609801 */ t45669 = p15010->a26369; /* x136251 stalin.sc:17430:609793 */ a41685 = t45669; /* x300852 stalin.sc:3916:132554 */ /* x300851 stalin.sc:3916:132572 */ t45670 = a41685; /* x300850 stalin.sc:3916:132555 */ if (!(f8209(t45670)==FALSE_TYPE)) goto l6950; p15011 = p15010; /* x136248 */ /* x136247 stalin.sc:17430:609814 */ t45671 = p15011->a26369; /* x136246 stalin.sc:17430:609805 */ a41631 = t45671; /* x300636 stalin.sc:3965:133896 */ /* x300635 stalin.sc:3965:133915 */ t45672 = a41631; /* x300634 stalin.sc:3965:133897 */ if (f8219(t45672)==FALSE_TYPE) goto l6951; l6950: /* x136276 */ /* x136275 */ t45673 = p15008; p15012 = t45673; /* x136274 stalin.sc:17431:609825 */ /* x136267 stalin.sc:17432:609843 */ /* x136265 stalin.sc:17432:609867 */ /* x136264 stalin.sc:17432:609886 */ t45680 = p15012->a26369; /* x136263 stalin.sc:17432:609868 */ a36834 = t45680; /* x280005 */ /* x280004 */ t45681 = a36834; /* x280003 */ if (!((t45681.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31751]"); structure_ref_error();} t45678 = t45681.value.structure_type27692->s9; /* x136266 stalin.sc:17432:609889 */ /* x136262 stalin.sc:17432:609844 */ t45679.tag = FALSE_TYPE; t45674 = f7025(t45678, t45679); /* x136270 stalin.sc:17433:609901 */ /* x136269 stalin.sc:17433:609908 */ t45682 = *((struct w16638 *)(&(p15012->p14988->a26366))); /* x136268 stalin.sc:17433:609902 */ a35742 = t45682; /* x274325 */ /* x274324 */ t45683 = a35742; /* x274323 */ if (!((t45683.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29891]"); structure_ref_error();} t45675 = t45683.value.structure_type24753->s0; /* x136273 stalin.sc:17434:609920 */ /* x136272 stalin.sc:17434:609927 */ t45684 = *((struct w16638 *)(&(p15012->p14988->a26366))); /* x136271 stalin.sc:17434:609921 */ a35743 = t45684; /* x274329 */ /* x274328 */ t45685 = a35743; /* x274327 */ if (!((t45685.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29892]"); structure_ref_error();} t45676 = t45685.value.structure_type24753->s0; /* x136261 stalin.sc:17431:609826 */ t45677.tag = STRUCTURE_TYPE27501; t45677.value.structure_type27501 = t45674; f14848(t45677, t45675, t45676); goto l6952; l6951: /* x136278 stalin.sc:17430:609771 */ /* x136277 stalin.sc:17430:609771 */ l6952: /* x136241 */ t45658 = p15008->p14988; p15009 = t45658; /* x136240 stalin.sc:17435:609939 */ /* x136235 stalin.sc:17435:609945 */ /* x136234 stalin.sc:17435:609951 */ t45663 = *((struct w16638 *)(&(p15009->a26366))); /* x136233 stalin.sc:17435:609946 */ a35374 = t45663; /* x272853 */ /* x272852 */ t45664 = a35374; /* x272851 */ if (!((t45664.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29523]"); structure_ref_error();} t45660 = t45664.value.structure_type24753->s1; /* x136236 stalin.sc:17435:609955 */ t45661 = a26367; /* x136239 stalin.sc:17435:609957 */ /* x136238 stalin.sc:17435:609963 */ t45665 = *((struct w16638 *)(&(p15009->a26368))); /* x136237 stalin.sc:17435:609958 */ a35375 = t45665; /* x272857 */ /* x272856 */ t45666 = a35375; /* x272855 */ if (!((t45666.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29524]"); structure_ref_error();} t45662 = t45666.value.structure_type24753->s1; /* x136232 stalin.sc:17435:609940 */ t45659 = p15009->p14985; p14988 = t45659; a26366 = t45660; a26367 = t45661; a26368 = t45662; goto h14988;} /* PROMOTE-GATHER![14985] */ void f14985(struct w49 a26359, struct structure_type27745 *a26360, struct w49 a26361, struct structure_type27650 *a26362, struct structure_type24753 *a26363) {struct p14985 *t45847; struct w49 t45848; struct structure_type27650 *t45849; struct structure_type24753 *t45850; struct w49 t45851; struct w49 t45852; struct p14985 *t45853; struct p14985 *t45854; struct p14985 *e14985; struct p14985 *p14986; struct p14985 *p14987; e14985 = (struct p14985 *)alloca(sizeof(struct p14985)); if (e14985==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e14985->a26359 = a26359; e14985->a26360 = a26360; /* x136305 stalin.sc:17411:609033 */ /* x136302 stalin.sc:17411:609048 */ t45848 = a26361; /* x136303 stalin.sc:17411:609055 */ t45849 = a26362; /* x136304 stalin.sc:17411:609062 */ t45850 = a26363; /* x136301 */ /* x136300 */ /* x136299 */ /* x136298 */ t45853 = e14985; p14986 = t45853; /* x136297 */ /* x136296 */ /* x136295 */ /* x136075 */ t45854 = p14986; p14987 = t45854; /* x136074 stalin.sc:17411:609038 */ t45847 = p14987; /* MOVE: branching squeezed to general */ if (t45849>=((struct structure_type27650 *)VALUE_OFFSET)) {t45851.tag = STRUCTURE_TYPE27650; t45851.value.structure_type27650 = t45849;} else t45851.tag = (unsigned)t45849; /* MOVE: branching squeezed to general */ if (t45850>=((struct structure_type24753 *)VALUE_OFFSET)) {t45852.tag = STRUCTURE_TYPE24753; t45852.value.structure_type24753 = t45850;} else t45852.tag = (unsigned)t45850; f14988(t45847, t45848, t45851, t45852); return;} /* PROMOTE![14848] */ void f14848(struct w12218 a26249, struct w49 a26250, struct w49 a26251) {struct w49 a26253; /* W1 */ struct w12224 a26254; /* US */ struct w12224 a26255; /* US */ struct w49 a26256; /* U1 */ struct w21691 a35472; /* PAIR */ struct w21691 a35473; /* PAIR */ struct w21691 a35474; /* PAIR */ struct w49 a37047; /* S */ struct w49 a37048; /* S */ struct w49 a37049; /* S */ struct w49 a37051; /* S */ struct w49 a37052; /* S */ struct w49 a37053; /* S */ struct w49 a37054; /* S */ struct w49 a37055; /* S */ struct w49 a37056; /* S */ struct w49 a37057; /* S */ struct w49 a37058; /* S */ struct w49 a37059; /* S */ struct w49 a37060; /* S */ struct w49 a37061; /* S */ struct w49 a37062; /* S */ struct w49 a37063; /* S */ struct w49 a37064; /* S */ struct w49 a37065; /* S */ struct w49 a37066; /* S */ struct w49 a37067; /* S */ struct w49 a37068; /* S */ struct w49 a37069; /* S */ struct w49 a37070; /* S */ struct w49 a37071; /* S */ struct w12218 a38430; /* S */ struct w12218 t45855; struct w12218 t45856; struct p14848 *t45857; struct p14848 *t45858; struct w49 t45859; struct p14852 *t45860; struct w12224 t45861; struct p14852 *t45862; struct w12224 t45863; struct p14852 *t45864; struct w12224 t45865; struct p14852 *t45866; struct w49 t45867; struct w49 t45868; struct w49 t45869; struct w49 t45870; struct w49 t45871; struct w49 t45872; struct w49 t45873; struct w49 t45874; struct w49 t45875; struct w49 t45876; struct w49 t45877; struct w49 t45878; struct w49 t45879; struct w49 t45880; struct p14852 *t45881; struct w49 t45882; struct w49 t45883; struct w49 t45884; struct w49 t45885; struct w49 t45886; struct w49 t45887; struct w21691 t45888; struct w228245 t45889; struct w49 t45890; struct structure_type24753 *t45891; struct w49 t45892; struct w21691 t45893; struct w21691 t45894; struct p14852 *t45895; struct p14852 *t45896; struct p14852 *t45897; char *t45898; struct w49 t45899; struct w49 t45900; struct w49 t45901; struct structure_type24753 *t45902; struct w49 t45903; struct w49 t45904; struct w49 t45905; char *t45906; struct w49 t45907; struct structure_type24753 *t45908; struct p14852 *t45909; struct w21691 t45910; struct w228245 t45911; struct w49 t45912; struct structure_type24753 *t45913; struct w49 t45914; struct w21691 t45915; struct w21691 t45916; struct p14852 *t45917; struct p14852 *t45918; struct p14852 *t45919; char *t45920; struct w7121 t45921; struct w7121 t45922; struct w49 t45923; struct structure_type24753 *t45924; struct w49 t45925; struct w49 t45926; struct w49 t45927; struct w49 t45928; struct w49 t45929; char *t45930; struct w7121 t45931; struct w49 t45932; struct structure_type24753 *t45933; struct w49 t45934; struct w49 t45935; struct w49 t45936; unsigned t45937; struct p14852 *t45938; struct w21691 t45939; struct w228245 t45940; struct w49 t45941; struct structure_type24753 *t45942; struct w21691 t45943; struct w228345 t45944; struct w49 t45945; struct structure_type24753 *t45946; struct p14852 *t45947; struct p14852 *t45948; struct p14852 *t45949; char *t45950; struct w7121 t45951; struct w7121 t45952; struct w49 t45953; struct structure_type24753 *t45954; struct w49 t45955; struct w49 t45956; struct w49 t45957; struct w49 t45958; struct w49 t45959; char *t45960; struct w7121 t45961; struct w49 t45962; struct structure_type24753 *t45963; struct w49 t45964; struct w49 t45965; struct w49 t45966; unsigned t45967; struct p14852 *t45968; struct w21691 t45969; struct w228245 t45970; struct w49 t45971; struct structure_type24753 *t45972; struct w49 t45973; struct w21691 t45974; struct w21691 t45975; struct p14852 *t45976; struct p14852 *t45977; struct p14852 *t45978; char *t45979; struct w7121 t45980; struct w7121 t45981; struct w49 t45982; struct structure_type24753 *t45983; struct w49 t45984; struct w49 t45985; struct w49 t45986; struct w49 t45987; struct w49 t45988; char *t45989; struct w7121 t45990; struct w49 t45991; struct structure_type24753 *t45992; struct w49 t45993; struct w49 t45994; struct w49 t45995; unsigned t45996; struct p14852 *t45997; struct p14852 *t45998; struct w21691 t45999; struct w228345 t46000; struct w49 t46001; struct structure_type24753 *t46002; struct w49 t46003; struct w49 t46004; struct w49 t46005; struct w49 t46006; struct w21691 t46007; struct w228345 t46008; struct w49 t46009; struct structure_type24753 *t46010; struct w49 t46011; struct w49 t46012; struct w49 t46013; struct w49 t46014; struct p14852 *t46015; struct w21691 t46016; struct w228245 t46017; struct w49 t46018; struct structure_type24753 *t46019; struct p14852 *t46020; struct p14852 *t46021; struct w21691 t46022; struct w228245 t46023; struct w49 t46024; struct structure_type24753 *t46025; struct p14852 *t46026; struct w21691 t46027; struct w228245 t46028; struct w49 t46029; struct structure_type24753 *t46030; struct w49 t46031; struct w49 t46032; struct w49 t46033; struct w49 t46034; struct w49 t46035; struct w49 t46036; struct p14852 *t46037; struct p14852 *t46038; struct p14852 *t46039; char *t46040; struct w7121 t46041; struct w7121 t46042; struct w49 t46043; struct structure_type24753 *t46044; struct w49 t46045; struct w49 t46046; struct w49 t46047; struct w49 t46048; struct w49 t46049; char *t46050; struct w7121 t46051; struct w49 t46052; struct structure_type24753 *t46053; struct w49 t46054; struct w49 t46055; struct w49 t46056; unsigned t46057; struct p14852 *t46058; struct w49 t46059; struct w49 t46060; struct w49 t46061; struct w49 t46062; struct p14852 *t46063; struct p14852 *t46064; struct p14852 *t46065; char *t46066; struct w7121 t46067; struct w7121 t46068; struct w49 t46069; struct structure_type24753 *t46070; struct w49 t46071; struct w49 t46072; struct w49 t46073; struct w49 t46074; struct w49 t46075; char *t46076; struct w7121 t46077; struct w49 t46078; struct w49 t46079; struct w49 t46080; struct structure_type24753 *t46081; struct w49 t46082; struct w49 t46083; struct w49 t46084; struct w49 t46085; struct w49 t46086; struct w49 t46087; struct w49 t46088; struct w49 t46089; struct w49 t46090; struct p14852 *t46091; struct p14852 *t46092; struct p14852 *t46093; char *t46094; struct w7121 t46095; struct w7121 t46096; struct w49 t46097; struct structure_type24753 *t46098; struct w49 t46099; struct w49 t46100; struct w49 t46101; struct w49 t46102; struct w49 t46103; char *t46104; struct w7121 t46105; struct w49 t46106; struct w49 t46107; struct w49 t46108; struct structure_type24753 *t46109; struct w49 t46110; struct w49 t46111; struct w49 t46112; struct w49 t46113; struct w49 t46114; struct w49 t46115; struct w49 t46116; struct w49 t46117; struct w49 t46118; struct p14852 *t46119; struct w21691 t46120; struct w228245 t46121; struct w49 t46122; struct structure_type24753 *t46123; unsigned t46124; struct w49 t46125; struct w49 t46126; struct w49 t46127; struct w21691 t46128; struct w228345 t46129; struct w49 t46130; struct structure_type24753 *t46131; struct p14852 *t46132; struct p14852 *t46133; struct p14852 *t46134; char *t46135; struct w7121 t46136; struct w7121 t46137; struct w49 t46138; struct structure_type24753 *t46139; struct w49 t46140; struct w49 t46141; struct w49 t46142; struct w49 t46143; struct w49 t46144; char *t46145; struct w7121 t46146; struct w49 t46147; struct structure_type24753 *t46148; struct w49 t46149; struct w49 t46150; struct w49 t46151; unsigned t46152; struct p14852 *t46153; struct p14852 *t46154; struct w49 t46155; struct p14859 *t46156; struct w21691 t46157; struct w228345 t46158; struct w49 t46159; struct structure_type24753 *t46160; struct p14859 *t46161; struct w21691 t46162; struct w228245 t46163; struct w49 t46164; struct structure_type24753 *t46165; struct p14852 *t46166; struct p14852 *t46167; struct p14852 *t46168; char *t46169; struct w7121 t46170; struct w7121 t46171; struct w49 t46172; struct structure_type24753 *t46173; struct w49 t46174; struct w49 t46175; struct w49 t46176; struct w49 t46177; struct w49 t46178; char *t46179; struct w7121 t46180; struct w49 t46181; struct structure_type24753 *t46182; struct w49 t46183; struct w49 t46184; struct w49 t46185; unsigned t46186; struct w49 t46187; struct structure_type24753 *t46188; struct w12224 t46189; struct w49 t46190; struct structure_type24753 *t46191; struct structure_type24753 *t46192; struct w12224 t46193; struct w49 t46194; struct w49 t46195; struct w12218 t46196; struct w12218 t46197; struct p14848 *e14848; struct p14852 *e14852; struct p14859 *e14859; struct p14848 *p14851; struct p14848 *p14852; struct p14852 *p14853; struct p14852 *p14854; struct p14852 *p14855; struct p14852 *p14857; struct p14852 *p14858; struct p14852 *p14859; struct p14852 *p14862; struct p14852 *p14864; struct p14852 *p14865; struct p14852 *p14868; struct p14852 *p14873; struct p14852 *p14875; struct p14852 *p14876; struct p14852 *p14879; struct p14852 *p14880; struct p14852 *p14884; struct p14852 *p14887; struct p14852 *p14893; struct p14852 *p14894; struct p14852 *p14896; struct p14852 *p14897; struct p14852 *p14899; struct p14852 *p14901; struct p14852 *p14902; struct p14852 *p14904; struct p14852 *p14906; struct p14852 *p14907; struct p14852 *p14910; struct p14852 *p14915; struct p14852 *p14917; struct p14852 *p14918; struct p14852 *p14920; struct p14852 *p14925; struct p14852 *p14927; struct p14852 *p14928; struct p14852 *p14931; struct p14852 *p14936; struct p14852 *p14938; struct p14852 *p14939; struct p14852 *p14941; struct p14852 *p14942; struct p14852 *p14948; struct p14852 *p14949; struct p14852 *p14950; e14848 = (struct p14848 *)alloca(sizeof(struct p14848)); if (e14848==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e14848->a26250 = a26250; /* x135819 stalin.sc:17220:601849 */ /* x134949 stalin.sc:17220:601857 */ /* x134948 stalin.sc:17220:601861 */ /* x134947 stalin.sc:17220:601871 */ t45855 = a26249; /* x134946 stalin.sc:17220:601862 */ if (!(f7031(t45855)==FALSE_TYPE)) goto l6995; /* x134943 */ /* x134942 stalin.sc:17220:601887 */ t45856 = a26249; /* x134941 stalin.sc:17220:601875 */ if (f7032(t45856)==FALSE_TYPE) goto l6996; l6995: /* x134951 */ /* x134950 */ return; l6996: /* x135818 */ /* x135817 */ t45857 = e14848; p14851 = t45857; /* x135816 stalin.sc:17221:601893 */ /* x135815 stalin.sc:17221:601904 */ /* x135814 stalin.sc:17221:601921 */ t46196 = a26249; /* x135813 stalin.sc:17221:601905 */ a38430 = t46196; /* x286389 */ /* x286388 */ t46197 = a38430; /* x286387 */ if (!((t46197.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-TYPE-SET[5761] 33347]"); structure_ref_error();} t45859 = t46197.value.structure_type27501->s2; /* x135812 */ t45858 = p14851; p14852 = t45858; a26253 = t45859; e14852 = (struct p14852 *)alloca(sizeof(struct p14852)); if (e14852==NULL) {backtrace_internal("[inside PROMOTE! 14851]"); out_of_memory_error();} e14852->p14848 = p14852; e14852->a26253 = a26253; /* x135811 */ /* x135810 stalin.sc:17222:601931 */ /* x135806 stalin.sc:17222:601946 */ /* x135805 stalin.sc:17222:601955 */ t46194 = p14852->a26250; /* x135804 stalin.sc:17222:601947 */ t46191 = f8162(t46194); /* x135809 stalin.sc:17222:601958 */ /* x135808 stalin.sc:17222:601967 */ t46195 = a26251; /* x135807 stalin.sc:17222:601959 */ t46192 = f8162(t46195); /* x135803 stalin.sc:17222:601932 */ /* MOVE: branching squeezed to general */ if (t46192>=((struct structure_type24753 *)VALUE_OFFSET)) {t46193.tag = STRUCTURE_TYPE24753; t46193.value.structure_type24753 = t46192;} else t46193.tag = (unsigned)t46192; t45861 = f1422(t46191, t46193); /* x135802 */ t45860 = e14852; p14853 = t45860; a26254 = t45861; /* x135801 */ /* x135800 stalin.sc:17228:602255 */ /* x135792 stalin.sc:17228:602259 */ if (a708==FALSE_TYPE) goto l7068; /* x135798 stalin.sc:17228:602273 */ /* x135796 stalin.sc:17228:602288 */ /* x135795 stalin.sc:17228:602297 */ t46190 = p14853->a26253; /* x135794 stalin.sc:17228:602289 */ t46188 = f8162(t46190); /* x135797 stalin.sc:17228:602301 */ t46189 = a26254; /* x135793 stalin.sc:17228:602274 */ t45863 = f1422(t46188, t46189); goto l7069; l7068: /* x135799 stalin.sc:17228:602305 */ t45863 = a26254; l7069: /* x135791 */ t45862 = p14853; p14854 = t45862; a26255 = t45863; /* x135790 */ /* x135789 */ t45864 = p14854; p14855 = t45864; /* x135788 stalin.sc:17229:602314 */ /* x134954 stalin.sc:17229:602322 */ /* x134953 stalin.sc:17229:602329 */ t45865 = a26255; /* x268770 stalin.sc:17229:602323 */ if (!((t45865.tag)==NULL_TYPE)) goto l6999; /* x134956 */ /* x134955 */ return; l6999: /* x135787 */ /* x135786 */ t45866 = p14855; p14857 = t45866; /* x135785 stalin.sc:17230:602337 */ /* x134964 stalin.sc:17231:602349 */ /* x134959 stalin.sc:17231:602354 */ /* x134958 stalin.sc:17231:602364 */ t45867 = p14857->p14848->a26250; /* x134957 stalin.sc:17231:602355 */ if (f14025(t45867)==FALSE_TYPE) goto l7001; /* x134962 */ /* x134961 stalin.sc:17231:602378 */ t45868 = p14857->a26253; /* x134960 stalin.sc:17231:602368 */ if (f13859(t45868)==FALSE_TYPE) goto l7001; /* x135031 */ /* x135030 */ t46153 = p14857; p14858 = t46153; /* x135029 stalin.sc:17232:602389 */ /* x135028 stalin.sc:17232:602399 */ /* x135027 stalin.sc:17232:602416 */ t46187 = p14858->a26253; /* x135026 stalin.sc:17232:602400 */ t46155 = f13854(t46187); /* x135025 */ t46154 = p14858; p14859 = t46154; a26256 = t46155; e14859 = (struct p14859 *)alloca(sizeof(struct p14859)); if (e14859==NULL) {backtrace_internal("[inside PROMOTE! 14858]"); out_of_memory_error();} e14859->p14848 = p14859->p14848; e14859->a26256 = a26256; /* x135024 stalin.sc:17233:602429 */ /* x134984 stalin.sc:17233:602435 */ /* x134972 stalin.sc:17233:602440 */ /* x134971 stalin.sc:17233:602470 */ t46157 = *((struct w21691 *)(&a26255)); /* x134970 stalin.sc:17233:602446 */ t46156 = e14859; /* x134965 stalin.sc:17233:602441 */ t46158.tag = NATIVE_PROCEDURE_TYPE20082; t46158.value.native_procedure_type20082 = t46156; t46159 = *((struct w49 *)(&t46157)); t46160 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t46158, t46159, t46160).tag)==FALSE_TYPE) goto l7064; /* x134982 */ /* x134981 stalin.sc:17234:602483 */ /* x134980 stalin.sc:17234:602514 */ t46162 = *((struct w21691 *)(&a26255)); /* x134979 stalin.sc:17234:602490 */ t46161 = e14859; /* x134974 stalin.sc:17234:602484 */ t46163.tag = NATIVE_PROCEDURE_TYPE20084; t46163.value.native_procedure_type20084 = t46161; t46164 = *((struct w49 *)(&t46162)); t46165 = (struct structure_type24753 *)NULL_TYPE; if (!(f1061(t46163, t46164, t46165)==FALSE_TYPE)) goto l7064; /* x135021 */ /* x135020 */ t46166 = p14859; p14862 = t46166; /* x135019 */ /* x135010 stalin.sc:17235:602521 */ /* x134988 stalin.sc:17235:602527 */ /* x135007 */ /* x135006 */ t46167 = p14862; p14864 = t46167; /* x135005 */ /* x135004 stalin.sc:17236:602545 */ /* x135003 stalin.sc:17236:602592 */ /* x135002 stalin.sc:17236:602608 */ t46183 = p14864->a26253; /* x135001 stalin.sc:17236:602593 */ a37071 = t46183; /* x280953 */ /* x280952 */ t46184 = a37071; /* x280951 */ if (!((t46184.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31988]"); structure_ref_error();} t46180 = t46184.value.structure_type27650->s4; /* x135000 stalin.sc:17236:602553 */ t46179 = "Promoting W~s from squeezed to avoid"; /* x134999 stalin.sc:17236:602546 */ t46181.tag = STRING_TYPE; t46181.value.string_type = t46179; t46182 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t46182==NULL) {backtrace("stalin.sc", 17236, 602545); out_of_memory_error();} t46182->s0 = *((struct w49 *)(&t46180)); t46182->s1.tag = NULL_TYPE; f5365(t46181, t46182); /* x134998 */ t46168 = p14864; p14865 = t46168; /* x134997 stalin.sc:17237:602615 */ /* x134996 stalin.sc:17238:602698 */ /* x134995 stalin.sc:17238:602714 */ t46177 = p14865->a26253; /* x134994 stalin.sc:17238:602699 */ a37070 = t46177; /* x280949 */ /* x280948 */ t46178 = a37070; /* x280947 */ if (!((t46178.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31987]"); structure_ref_error();} t46171 = t46178.value.structure_type27650->s4; /* x134993 stalin.sc:17238:602679 */ /* x134992 stalin.sc:17238:602695 */ t46175 = p14865->p14848->a26250; /* x134991 stalin.sc:17238:602680 */ a37069 = t46175; /* x280945 */ /* x280944 */ t46176 = a37069; /* x280943 */ if (!((t46176.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31986]"); structure_ref_error();} t46170 = t46176.value.structure_type27650->s4; /* x134990 stalin.sc:17237:602623 */ t46169 = " MOVE: branching general (W~s) to squeezed (W~s)"; /* x134989 stalin.sc:17237:602616 */ t46172.tag = STRING_TYPE; t46172.value.string_type = t46169; t46174.tag = STRUCTURE_TYPE24753; t46174.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t46174.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17237, 602615); out_of_memory_error();} t46174.value.structure_type24753->s0 = *((struct w49 *)(&t46171)); t46174.value.structure_type24753->s1.tag = NULL_TYPE; t46173 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t46173==NULL) {backtrace("stalin.sc", 17237, 602615); out_of_memory_error();} t46173->s0 = *((struct w49 *)(&t46170)); t46173->s1 = t46174; f5365(t46172, t46173); /* x135014 stalin.sc:17239:602721 */ /* x135012 stalin.sc:17239:602748 */ t46185 = p14862->a26253; /* x135013 stalin.sc:17239:602751 */ /* x135011 stalin.sc:17239:602722 */ t46186 = FALSE_TYPE; f8123(t46185, t46186); /* x135016 stalin.sc:17240:602756 */ /* x135015 stalin.sc:17240:602757 */ f14026(); /* x135018 stalin.sc:17241:602781 */ /* x135017 stalin.sc:17241:602782 */ f14543(); /* x134987 */ /* x134986 stalin.sc:17242:602811 */ /* x134985 stalin.sc:17242:602826 */ a2038 = TRUE_TYPE; return; l7064: /* x135023 stalin.sc:17233:602429 */ /* x135022 stalin.sc:17233:602429 */ return; l7001: /* x135784 */ /* x135039 stalin.sc:17243:602839 */ /* x135034 stalin.sc:17243:602844 */ /* x135033 stalin.sc:17243:602855 */ t45869 = p14857->p14848->a26250; /* x135032 stalin.sc:17243:602845 */ if (f13859(t45869)==FALSE_TYPE) goto l7004; /* x135037 */ /* x135036 stalin.sc:17243:602869 */ t45870 = p14857->a26253; /* x135035 stalin.sc:17243:602859 */ if (f14024(t45870)==FALSE_TYPE) goto l7004; /* x135127 */ /* x135126 */ t46119 = p14857; p14868 = t46119; /* x135125 stalin.sc:17244:602880 */ /* x135085 stalin.sc:17244:602886 */ /* x135056 stalin.sc:17245:602897 */ /* x135055 stalin.sc:17245:602902 */ /* x135054 stalin.sc:17245:602958 */ t46120 = *((struct w21691 *)(&a26255)); /* x135053 stalin.sc:17245:602909 */ /* x135041 stalin.sc:17245:602903 */ t46121.tag = NATIVE_PROCEDURE_TYPE20068; t46122 = *((struct w49 *)(&t46120)); t46123 = (struct structure_type24753 *)NULL_TYPE; if (!(f1061(t46121, t46122, t46123)==FALSE_TYPE)) goto l7059; /* x135083 */ /* x135066 stalin.sc:17246:602969 */ /* x135065 stalin.sc:17246:602974 */ /* x135064 stalin.sc:17246:602981 */ /* x135062 stalin.sc:17246:602993 */ /* x135061 stalin.sc:17246:603010 */ t46127 = p14868->p14848->a26250; /* x135060 stalin.sc:17246:602994 */ t46125 = f13854(t46127); /* x135063 stalin.sc:17246:603013 */ t46126 = p14868->a26253; /* x135059 stalin.sc:17246:602982 */ t46124 = f14564(t46125, t46126); /* x268764 stalin.sc:17246:602975 */ if (!((t46124&1)==1)) {backtrace("stalin.sc", 17246, 602974); zero_error();} if (((int)(((int)t46124)>>1))==0) goto l7059; /* x135081 */ /* x135080 stalin.sc:17247:603080 */ t46128 = *((struct w21691 *)(&a26255)); /* x135079 stalin.sc:17247:603031 */ /* x135067 stalin.sc:17247:603026 */ t46129.tag = NATIVE_PROCEDURE_TYPE23632; t46130 = *((struct w49 *)(&t46128)); t46131 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t46129, t46130, t46131).tag)==FALSE_TYPE) goto l7059; /* x135122 */ /* x135121 */ t46132 = p14868; p14873 = t46132; /* x135120 */ /* x135111 stalin.sc:17248:603092 */ /* x135089 stalin.sc:17248:603098 */ /* x135108 */ /* x135107 */ t46133 = p14873; p14875 = t46133; /* x135106 */ /* x135105 stalin.sc:17249:603116 */ /* x135104 stalin.sc:17249:603163 */ /* x135103 stalin.sc:17249:603179 */ t46149 = p14875->p14848->a26250; /* x135102 stalin.sc:17249:603164 */ a37049 = t46149; /* x280865 */ /* x280864 */ t46150 = a37049; /* x280863 */ if (!((t46150.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31966]"); structure_ref_error();} t46146 = t46150.value.structure_type27650->s4; /* x135101 stalin.sc:17249:603124 */ t46145 = "Promoting W~s from squeezed to avoid"; /* x135100 stalin.sc:17249:603117 */ t46147.tag = STRING_TYPE; t46147.value.string_type = t46145; t46148 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t46148==NULL) {backtrace("stalin.sc", 17249, 603116); out_of_memory_error();} t46148->s0 = *((struct w49 *)(&t46146)); t46148->s1.tag = NULL_TYPE; f5365(t46147, t46148); /* x135099 */ t46134 = p14875; p14876 = t46134; /* x135098 stalin.sc:17250:603184 */ /* x135097 stalin.sc:17251:603267 */ /* x135096 stalin.sc:17251:603283 */ t46143 = p14876->a26253; /* x135095 stalin.sc:17251:603268 */ a37048 = t46143; /* x280861 */ /* x280860 */ t46144 = a37048; /* x280859 */ if (!((t46144.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31965]"); structure_ref_error();} t46137 = t46144.value.structure_type27650->s4; /* x135094 stalin.sc:17251:603248 */ /* x135093 stalin.sc:17251:603264 */ t46141 = p14876->p14848->a26250; /* x135092 stalin.sc:17251:603249 */ a37047 = t46141; /* x280857 */ /* x280856 */ t46142 = a37047; /* x280855 */ if (!((t46142.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31964]"); structure_ref_error();} t46136 = t46142.value.structure_type27650->s4; /* x135091 stalin.sc:17250:603192 */ t46135 = " MOVE: branching squeezed (W~s) to squished (W~s)"; /* x135090 stalin.sc:17250:603185 */ t46138.tag = STRING_TYPE; t46138.value.string_type = t46135; t46140.tag = STRUCTURE_TYPE24753; t46140.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t46140.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17250, 603184); out_of_memory_error();} t46140.value.structure_type24753->s0 = *((struct w49 *)(&t46137)); t46140.value.structure_type24753->s1.tag = NULL_TYPE; t46139 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t46139==NULL) {backtrace("stalin.sc", 17250, 603184); out_of_memory_error();} t46139->s0 = *((struct w49 *)(&t46136)); t46139->s1 = t46140; f5365(t46138, t46139); /* x135115 stalin.sc:17255:603497 */ /* x135113 stalin.sc:17255:603524 */ t46151 = p14873->p14848->a26250; /* x135114 stalin.sc:17255:603526 */ /* x135112 stalin.sc:17255:603498 */ t46152 = FALSE_TYPE; f8123(t46151, t46152); /* x135117 stalin.sc:17256:603537 */ /* x135116 stalin.sc:17256:603538 */ f14026(); /* x135119 stalin.sc:17257:603568 */ /* x135118 stalin.sc:17257:603569 */ f14543(); /* x135088 */ /* x135087 stalin.sc:17258:603604 */ /* x135086 stalin.sc:17258:603619 */ a2038 = TRUE_TYPE; return; l7059: /* x135124 stalin.sc:17244:602880 */ /* x135123 stalin.sc:17244:602880 */ return; l7004: /* x135783 */ /* x135135 stalin.sc:17259:603631 */ /* x135130 stalin.sc:17259:603636 */ /* x135129 stalin.sc:17259:603647 */ t45871 = p14857->p14848->a26250; /* x135128 stalin.sc:17259:603637 */ if (f14024(t45871)==FALSE_TYPE) goto l7007; /* x135133 */ /* x135132 stalin.sc:17259:603661 */ t45872 = p14857->a26253; /* x135131 stalin.sc:17259:603651 */ if (f14024(t45872)==FALSE_TYPE) goto l7007; /* x135457 */ /* x135456 */ t45997 = p14857; p14879 = t45997; /* x135455 stalin.sc:17260:603672 */ /* x135239 stalin.sc:17260:603678 */ /* x135180 stalin.sc:17261:603689 */ /* x135179 stalin.sc:17261:603693 */ /* x135178 stalin.sc:17265:603834 */ t45999 = *((struct w21691 *)(&a26255)); /* x135177 stalin.sc:17261:603699 */ t45998 = p14879; /* x135150 stalin.sc:17261:603694 */ t46000.tag = NATIVE_PROCEDURE_TYPE20058; t46000.value.native_procedure_type20058 = t45998; t46001 = *((struct w49 *)(&t45999)); t46002 = (struct structure_type24753 *)NULL_TYPE; if (!((f1042(t46000, t46001, t46002).tag)==FALSE_TYPE)) goto l7042; p14880 = p14879; /* x135147 */ /* x135146 stalin.sc:17266:603846 */ /* x135142 stalin.sc:17266:603849 */ /* x135141 stalin.sc:17266:603867 */ t46005 = p14880->p14848->a26250; /* x135140 stalin.sc:17266:603850 */ t46003 = f13917(t46005); /* x135145 stalin.sc:17266:603870 */ /* x135144 stalin.sc:17266:603888 */ t46006 = p14880->a26253; /* x135143 stalin.sc:17266:603871 */ t46004 = f13917(t46006); /* x268762 stalin.sc:17266:603847 */ switch (t46003.tag) {case FIXNUM_TYPE: switch (t46004.tag) {case FIXNUM_TYPE: if ((t46003.value.fixnum_type)==(t46004.value.fixnum_type)) goto l7041; break; case FLONUM_TYPE: if ((t46003.value.fixnum_type)==(t46004.value.flonum_type)) goto l7041; break; default: backtrace("stalin.sc", 17266, 603846); eql_error();} break; case FLONUM_TYPE: switch (t46004.tag) {case FIXNUM_TYPE: if ((t46003.value.flonum_type)==(t46004.value.fixnum_type)) goto l7041; break; case FLONUM_TYPE: if ((t46003.value.flonum_type)==(t46004.value.flonum_type)) goto l7041; break; default: backtrace("stalin.sc", 17266, 603846); eql_error();} break; default: backtrace("stalin.sc", 17266, 603846); eql_error();} l7042: /* x135237 */ /* x135195 stalin.sc:17267:603901 */ /* x135194 stalin.sc:17267:603956 */ t46007 = *((struct w21691 *)(&a26255)); /* x135193 stalin.sc:17267:603907 */ /* x135181 stalin.sc:17267:603902 */ t46008.tag = NATIVE_PROCEDURE_TYPE20060; t46009 = *((struct w49 *)(&t46007)); t46010 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t46008, t46009, t46010).tag)==FALSE_TYPE) goto l7041; /* x135235 */ /* x135234 stalin.sc:17268:603970 */ /* x135233 stalin.sc:17268:603975 */ /* x135229 stalin.sc:17268:603978 */ /* x135228 stalin.sc:17268:603996 */ t46013 = p14879->p14848->a26250; /* x135227 stalin.sc:17268:603979 */ t46011 = f13917(t46013); /* x135232 stalin.sc:17268:603999 */ /* x135231 stalin.sc:17268:604017 */ t46014 = p14879->a26253; /* x135230 stalin.sc:17268:604000 */ t46012 = f13917(t46014); /* x268752 stalin.sc:17268:603976 */ switch (t46011.tag) {case FIXNUM_TYPE: switch (t46012.tag) {case FIXNUM_TYPE: if (!((t46011.value.fixnum_type)==(t46012.value.fixnum_type))) goto l7040; break; case FLONUM_TYPE: if (!((t46011.value.fixnum_type)==(t46012.value.flonum_type))) goto l7040; break; default: backtrace("stalin.sc", 17268, 603975); eql_error();} break; case FLONUM_TYPE: switch (t46012.tag) {case FIXNUM_TYPE: if (!((t46011.value.flonum_type)==(t46012.value.fixnum_type))) goto l7040; break; case FLONUM_TYPE: if (!((t46011.value.flonum_type)==(t46012.value.flonum_type))) goto l7040; break; default: backtrace("stalin.sc", 17268, 603975); eql_error();} break; default: backtrace("stalin.sc", 17268, 603975); eql_error();} p14884 = p14879; /* x135222 */ /* x135221 stalin.sc:17269:604031 */ /* x135220 stalin.sc:17272:604136 */ t46016 = *((struct w21691 *)(&a26255)); /* x135219 stalin.sc:17269:604038 */ t46015 = p14884; /* x135199 stalin.sc:17269:604032 */ t46017.tag = NATIVE_PROCEDURE_TYPE20244; t46017.value.native_procedure_type20244 = t46015; t46018 = *((struct w49 *)(&t46016)); t46019 = (struct structure_type24753 *)NULL_TYPE; if (!(f1061(t46017, t46018, t46019)==FALSE_TYPE)) goto l7041; l7040: /* x135452 */ /* x135451 */ t46020 = p14879; p14887 = t46020; /* x135450 stalin.sc:17273:604150 */ /* x135311 stalin.sc:17274:604158 */ /* x135269 stalin.sc:17275:604166 */ /* x135268 stalin.sc:17279:604284 */ t46022 = *((struct w21691 *)(&a26255)); /* x135267 stalin.sc:17275:604173 */ t46021 = p14887; /* x135240 stalin.sc:17275:604167 */ t46023.tag = NATIVE_PROCEDURE_TYPE20247; t46023.value.native_procedure_type20247 = t46021; t46024 = *((struct w49 *)(&t46022)); t46025 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t46023, t46024, t46025)==FALSE_TYPE) goto l7047; /* x135309 */ /* x135292 stalin.sc:17280:604291 */ /* x135291 stalin.sc:17283:604388 */ t46027 = *((struct w21691 *)(&a26255)); /* x135290 stalin.sc:17280:604298 */ t46026 = p14887; /* x135270 stalin.sc:17280:604292 */ t46028.tag = NATIVE_PROCEDURE_TYPE20252; t46028.value.native_procedure_type20252 = t46026; t46029 = *((struct w49 *)(&t46027)); t46030 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t46028, t46029, t46030)==FALSE_TYPE) goto l7047; /* x135307 */ /* x135300 stalin.sc:17284:604399 */ /* x135296 stalin.sc:17284:604402 */ /* x135295 stalin.sc:17284:604420 */ t46033 = p14887->p14848->a26250; /* x135294 stalin.sc:17284:604403 */ t46031 = f13917(t46033); /* x135299 stalin.sc:17284:604423 */ /* x135298 stalin.sc:17284:604441 */ t46034 = p14887->a26253; /* x135297 stalin.sc:17284:604424 */ t46032 = f13917(t46034); /* x268747 stalin.sc:17284:604400 */ switch (t46031.tag) {case FIXNUM_TYPE: switch (t46032.tag) {case FIXNUM_TYPE: if (!((t46031.value.fixnum_type)>(t46032.value.fixnum_type))) goto l7051; break; case FLONUM_TYPE: if (!((t46031.value.fixnum_type)>(t46032.value.flonum_type))) goto l7051; break; default: backtrace("stalin.sc", 17284, 604399); gt_error();} break; case FLONUM_TYPE: switch (t46032.tag) {case FIXNUM_TYPE: if (!((t46031.value.flonum_type)>(t46032.value.fixnum_type))) goto l7051; break; case FLONUM_TYPE: if (!((t46031.value.flonum_type)>(t46032.value.flonum_type))) goto l7051; break; default: backtrace("stalin.sc", 17284, 604399); gt_error();} break; default: backtrace("stalin.sc", 17284, 604399); gt_error();} /* x135303 stalin.sc:17285:604453 */ /* x135302 stalin.sc:17285:604474 */ t46036 = p14887->a26253; /* x135301 stalin.sc:17285:604454 */ if (f13916(t46036)==FALSE_TYPE) goto l7047; goto l7052; l7051: /* x135306 stalin.sc:17286:604485 */ /* x135305 stalin.sc:17286:604506 */ t46035 = p14887->p14848->a26250; /* x135304 stalin.sc:17286:604486 */ if (f13916(t46035)==FALSE_TYPE) goto l7047; l7052: /* x135412 */ /* x135411 */ t46058 = p14887; p14893 = t46058; /* x135410 stalin.sc:17287:604513 */ /* x135319 stalin.sc:17288:604523 */ /* x135315 stalin.sc:17288:604526 */ /* x135314 stalin.sc:17288:604544 */ t46061 = p14893->p14848->a26250; /* x135313 stalin.sc:17288:604527 */ t46059 = f13917(t46061); /* x135318 stalin.sc:17288:604547 */ /* x135317 stalin.sc:17288:604565 */ t46062 = p14893->a26253; /* x135316 stalin.sc:17288:604548 */ t46060 = f13917(t46062); /* x268746 stalin.sc:17288:604524 */ switch (t46059.tag) {case FIXNUM_TYPE: switch (t46060.tag) {case FIXNUM_TYPE: if (!((t46059.value.fixnum_type)>(t46060.value.fixnum_type))) goto l7055; break; case FLONUM_TYPE: if (!((t46059.value.fixnum_type)>(t46060.value.flonum_type))) goto l7055; break; default: backtrace("stalin.sc", 17288, 604523); gt_error();} break; case FLONUM_TYPE: switch (t46060.tag) {case FIXNUM_TYPE: if (!((t46059.value.flonum_type)>(t46060.value.fixnum_type))) goto l7055; break; case FLONUM_TYPE: if (!((t46059.value.flonum_type)>(t46060.value.flonum_type))) goto l7055; break; default: backtrace("stalin.sc", 17288, 604523); gt_error();} break; default: backtrace("stalin.sc", 17288, 604523); gt_error();} /* x135364 */ /* x135363 */ t46091 = p14893; p14894 = t46091; /* x135362 */ /* x135351 stalin.sc:17289:604574 */ /* x135323 stalin.sc:17289:604580 */ /* x135348 */ /* x135347 */ t46092 = p14894; p14896 = t46092; /* x135346 */ /* x135345 stalin.sc:17290:604601 */ /* x135344 stalin.sc:17293:604722 */ /* x135343 stalin.sc:17293:604740 */ t46115 = p14896->p14848->a26250; /* x135342 stalin.sc:17293:604723 */ t46107 = f13917(t46115); /* x135341 stalin.sc:17292:604694 */ /* x135340 stalin.sc:17292:604712 */ t46114 = p14896->a26253; /* x135339 stalin.sc:17292:604695 */ t46106 = f13917(t46114); /* x135338 stalin.sc:17291:604668 */ /* x135337 stalin.sc:17291:604684 */ t46112 = p14896->a26253; /* x135336 stalin.sc:17291:604669 */ a37053 = t46112; /* x280881 */ /* x280880 */ t46113 = a37053; /* x280879 */ if (!((t46113.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31970]"); structure_ref_error();} t46105 = t46113.value.structure_type27650->s4; /* x135335 stalin.sc:17290:604609 */ t46104 = "Increasing alignment of W~s from ~a to ~a to avoid"; /* x135334 stalin.sc:17290:604602 */ t46108.tag = STRING_TYPE; t46108.value.string_type = t46104; t46111.tag = STRUCTURE_TYPE24753; t46111.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t46111.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17290, 604601); out_of_memory_error();} t46111.value.structure_type24753->s0 = t46107; t46111.value.structure_type24753->s1.tag = NULL_TYPE; t46110.tag = STRUCTURE_TYPE24753; t46110.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t46110.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17290, 604601); out_of_memory_error();} t46110.value.structure_type24753->s0 = t46106; t46110.value.structure_type24753->s1 = t46111; t46109 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t46109==NULL) {backtrace("stalin.sc", 17290, 604601); out_of_memory_error();} t46109->s0 = *((struct w49 *)(&t46105)); t46109->s1 = t46110; f5365(t46108, t46109); /* x135333 */ t46093 = p14896; p14897 = t46093; /* x135332 stalin.sc:17294:604749 */ /* x135331 stalin.sc:17295:604836 */ /* x135330 stalin.sc:17295:604852 */ t46102 = p14897->a26253; /* x135329 stalin.sc:17295:604837 */ a37052 = t46102; /* x280877 */ /* x280876 */ t46103 = a37052; /* x280875 */ if (!((t46103.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31969]"); structure_ref_error();} t46096 = t46103.value.structure_type27650->s4; /* x135328 stalin.sc:17295:604817 */ /* x135327 stalin.sc:17295:604833 */ t46100 = p14897->p14848->a26250; /* x135326 stalin.sc:17295:604818 */ a37051 = t46100; /* x280873 */ /* x280872 */ t46101 = a37051; /* x280871 */ if (!((t46101.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31968]"); structure_ref_error();} t46095 = t46101.value.structure_type27650->s4; /* x135325 stalin.sc:17294:604757 */ t46094 = " MOVE: branching squished (W~s) to squished (W~s)"; /* x135324 stalin.sc:17294:604750 */ t46097.tag = STRING_TYPE; t46097.value.string_type = t46094; t46099.tag = STRUCTURE_TYPE24753; t46099.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t46099.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17294, 604749); out_of_memory_error();} t46099.value.structure_type24753->s0 = *((struct w49 *)(&t46096)); t46099.value.structure_type24753->s1.tag = NULL_TYPE; t46098 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t46098==NULL) {backtrace("stalin.sc", 17294, 604749); out_of_memory_error();} t46098->s0 = *((struct w49 *)(&t46095)); t46098->s1 = t46099; f5365(t46097, t46098); /* x135357 stalin.sc:17296:604862 */ /* x135353 stalin.sc:17296:604895 */ t46116 = p14894->a26253; /* x135356 stalin.sc:17296:604898 */ /* x135355 stalin.sc:17296:604916 */ t46118 = p14894->p14848->a26250; /* x135354 stalin.sc:17296:604899 */ t46117 = f13917(t46118); /* x135352 stalin.sc:17296:604863 */ f6492(t46116, t46117); /* x135359 stalin.sc:17297:604924 */ /* x135358 stalin.sc:17297:604925 */ f14026(); /* x135361 stalin.sc:17298:604952 */ /* x135360 stalin.sc:17298:604953 */ f14543(); /* x135322 */ /* x135321 stalin.sc:17299:604985 */ /* x135320 stalin.sc:17299:605000 */ a2038 = TRUE_TYPE; return; l7055: /* x135409 */ /* x135408 */ t46063 = p14893; p14899 = t46063; /* x135407 */ /* x135396 stalin.sc:17301:605018 */ /* x135368 stalin.sc:17301:605024 */ /* x135393 */ /* x135392 */ t46064 = p14899; p14901 = t46064; /* x135391 */ /* x135390 stalin.sc:17302:605045 */ /* x135389 stalin.sc:17305:605164 */ /* x135388 stalin.sc:17305:605182 */ t46087 = p14901->a26253; /* x135387 stalin.sc:17305:605165 */ t46079 = f13917(t46087); /* x135386 stalin.sc:17304:605137 */ /* x135385 stalin.sc:17304:605155 */ t46086 = p14901->p14848->a26250; /* x135384 stalin.sc:17304:605138 */ t46078 = f13917(t46086); /* x135383 stalin.sc:17303:605112 */ /* x135382 stalin.sc:17303:605128 */ t46084 = p14901->p14848->a26250; /* x135381 stalin.sc:17303:605113 */ a37056 = t46084; /* x280893 */ /* x280892 */ t46085 = a37056; /* x280891 */ if (!((t46085.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31973]"); structure_ref_error();} t46077 = t46085.value.structure_type27650->s4; /* x135380 stalin.sc:17302:605053 */ t46076 = "Increasing alignment of W~s from ~a to ~a to avoid"; /* x135379 stalin.sc:17302:605046 */ t46080.tag = STRING_TYPE; t46080.value.string_type = t46076; t46083.tag = STRUCTURE_TYPE24753; t46083.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t46083.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17302, 605045); out_of_memory_error();} t46083.value.structure_type24753->s0 = t46079; t46083.value.structure_type24753->s1.tag = NULL_TYPE; t46082.tag = STRUCTURE_TYPE24753; t46082.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t46082.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17302, 605045); out_of_memory_error();} t46082.value.structure_type24753->s0 = t46078; t46082.value.structure_type24753->s1 = t46083; t46081 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t46081==NULL) {backtrace("stalin.sc", 17302, 605045); out_of_memory_error();} t46081->s0 = *((struct w49 *)(&t46077)); t46081->s1 = t46082; f5365(t46080, t46081); /* x135378 */ t46065 = p14901; p14902 = t46065; /* x135377 stalin.sc:17306:605192 */ /* x135376 stalin.sc:17307:605279 */ /* x135375 stalin.sc:17307:605295 */ t46074 = p14902->a26253; /* x135374 stalin.sc:17307:605280 */ a37055 = t46074; /* x280889 */ /* x280888 */ t46075 = a37055; /* x280887 */ if (!((t46075.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31972]"); structure_ref_error();} t46068 = t46075.value.structure_type27650->s4; /* x135373 stalin.sc:17307:605260 */ /* x135372 stalin.sc:17307:605276 */ t46072 = p14902->p14848->a26250; /* x135371 stalin.sc:17307:605261 */ a37054 = t46072; /* x280885 */ /* x280884 */ t46073 = a37054; /* x280883 */ if (!((t46073.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31971]"); structure_ref_error();} t46067 = t46073.value.structure_type27650->s4; /* x135370 stalin.sc:17306:605200 */ t46066 = " MOVE: branching squished (W~s) to squished (W~s)"; /* x135369 stalin.sc:17306:605193 */ t46069.tag = STRING_TYPE; t46069.value.string_type = t46066; t46071.tag = STRUCTURE_TYPE24753; t46071.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t46071.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17306, 605192); out_of_memory_error();} t46071.value.structure_type24753->s0 = *((struct w49 *)(&t46068)); t46071.value.structure_type24753->s1.tag = NULL_TYPE; t46070 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t46070==NULL) {backtrace("stalin.sc", 17306, 605192); out_of_memory_error();} t46070->s0 = *((struct w49 *)(&t46067)); t46070->s1 = t46071; f5365(t46069, t46070); /* x135402 stalin.sc:17308:605305 */ /* x135398 stalin.sc:17308:605338 */ t46088 = p14899->p14848->a26250; /* x135401 stalin.sc:17308:605340 */ /* x135400 stalin.sc:17308:605358 */ t46090 = p14899->a26253; /* x135399 stalin.sc:17308:605341 */ t46089 = f13917(t46090); /* x135397 stalin.sc:17308:605306 */ f6492(t46088, t46089); /* x135404 stalin.sc:17309:605367 */ /* x135403 stalin.sc:17309:605368 */ f14026(); /* x135406 stalin.sc:17310:605395 */ /* x135405 stalin.sc:17310:605396 */ f14543(); /* x135367 */ /* x135366 stalin.sc:17311:605428 */ /* x135365 stalin.sc:17311:605443 */ a2038 = TRUE_TYPE; return; l7047: /* x135449 */ /* x135448 */ t46037 = p14887; p14904 = t46037; /* x135447 */ /* x135438 stalin.sc:17313:605459 */ /* x135416 stalin.sc:17313:605465 */ /* x135435 */ /* x135434 */ t46038 = p14904; p14906 = t46038; /* x135433 */ /* x135432 stalin.sc:17314:605484 */ /* x135431 stalin.sc:17314:605531 */ /* x135430 stalin.sc:17314:605547 */ t46054 = p14906->a26253; /* x135429 stalin.sc:17314:605532 */ a37059 = t46054; /* x280905 */ /* x280904 */ t46055 = a37059; /* x280903 */ if (!((t46055.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31976]"); structure_ref_error();} t46051 = t46055.value.structure_type27650->s4; /* x135428 stalin.sc:17314:605492 */ t46050 = "Promoting W~s from squished to avoid"; /* x135427 stalin.sc:17314:605485 */ t46052.tag = STRING_TYPE; t46052.value.string_type = t46050; t46053 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t46053==NULL) {backtrace("stalin.sc", 17314, 605484); out_of_memory_error();} t46053->s0 = *((struct w49 *)(&t46051)); t46053->s1.tag = NULL_TYPE; f5365(t46052, t46053); /* x135426 */ t46039 = p14906; p14907 = t46039; /* x135425 stalin.sc:17315:605555 */ /* x135424 stalin.sc:17316:605640 */ /* x135423 stalin.sc:17316:605656 */ t46048 = p14907->a26253; /* x135422 stalin.sc:17316:605641 */ a37058 = t46048; /* x280901 */ /* x280900 */ t46049 = a37058; /* x280899 */ if (!((t46049.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31975]"); structure_ref_error();} t46042 = t46049.value.structure_type27650->s4; /* x135421 stalin.sc:17316:605621 */ /* x135420 stalin.sc:17316:605637 */ t46046 = p14907->p14848->a26250; /* x135419 stalin.sc:17316:605622 */ a37057 = t46046; /* x280897 */ /* x280896 */ t46047 = a37057; /* x280895 */ if (!((t46047.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31974]"); structure_ref_error();} t46041 = t46047.value.structure_type27650->s4; /* x135418 stalin.sc:17315:605563 */ t46040 = " MOVE: branching squished (W~s) to squished (W~s)"; /* x135417 stalin.sc:17315:605556 */ t46043.tag = STRING_TYPE; t46043.value.string_type = t46040; t46045.tag = STRUCTURE_TYPE24753; t46045.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t46045.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17315, 605555); out_of_memory_error();} t46045.value.structure_type24753->s0 = *((struct w49 *)(&t46042)); t46045.value.structure_type24753->s1.tag = NULL_TYPE; t46044 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t46044==NULL) {backtrace("stalin.sc", 17315, 605555); out_of_memory_error();} t46044->s0 = *((struct w49 *)(&t46041)); t46044->s1 = t46045; f5365(t46043, t46044); /* x135442 stalin.sc:17318:605716 */ /* x135440 stalin.sc:17318:605743 */ t46056 = p14904->a26253; /* x135441 stalin.sc:17318:605746 */ /* x135439 stalin.sc:17318:605717 */ t46057 = FALSE_TYPE; f8128(t46056, t46057); /* x135444 stalin.sc:17319:605752 */ /* x135443 stalin.sc:17319:605753 */ f14026(); /* x135446 stalin.sc:17320:605778 */ /* x135445 stalin.sc:17320:605779 */ f14543(); /* x135415 */ /* x135414 stalin.sc:17321:605809 */ /* x135413 stalin.sc:17321:605824 */ a2038 = TRUE_TYPE; return; l7041: /* x135454 stalin.sc:17260:603672 */ /* x135453 stalin.sc:17260:603672 */ return; l7007: /* x135782 */ /* x135465 stalin.sc:17322:605838 */ /* x135460 stalin.sc:17322:605843 */ /* x135459 stalin.sc:17322:605853 */ t45873 = p14857->p14848->a26250; /* x135458 stalin.sc:17322:605844 */ if (f14025(t45873)==FALSE_TYPE) goto l7010; /* x135463 */ /* x135462 stalin.sc:17322:605867 */ t45874 = p14857->a26253; /* x135461 stalin.sc:17322:605857 */ if (f14024(t45874)==FALSE_TYPE) goto l7010; /* x135532 */ /* x135531 */ t45968 = p14857; p14910 = t45968; /* x135530 stalin.sc:17323:605878 */ /* x135490 stalin.sc:17323:605886 */ /* x135489 stalin.sc:17323:605890 */ /* x135488 stalin.sc:17323:605946 */ t45969 = *((struct w21691 *)(&a26255)); /* x135487 stalin.sc:17323:605897 */ /* x135475 stalin.sc:17323:605891 */ t45970.tag = NATIVE_PROCEDURE_TYPE20090; t45971 = *((struct w49 *)(&t45969)); t45972 = (struct structure_type24753 *)NULL_TYPE; if (!(f1061(t45970, t45971, t45972)==FALSE_TYPE)) goto l7036; /* x135472 */ /* x135471 stalin.sc:17324:605961 */ /* x135470 stalin.sc:17324:605967 */ t45974 = *((struct w21691 *)(&a26255)); /* x135469 stalin.sc:17324:605962 */ a35474 = t45974; /* x273253 */ /* x273252 */ t45975 = a35474; /* x273251 */ if (!((t45975.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29623]"); structure_ref_error();} t45973 = t45975.value.structure_type24753->s1; /* x268745 stalin.sc:17324:605955 */ if (!((t45973.tag)==NULL_TYPE)) goto l7037; l7036: /* x135492 */ /* x135491 */ return; l7037: /* x135529 */ /* x135528 */ t45976 = p14910; p14915 = t45976; /* x135527 */ /* x135518 stalin.sc:17325:605980 */ /* x135496 stalin.sc:17325:605986 */ /* x135515 */ /* x135514 */ t45977 = p14915; p14917 = t45977; /* x135513 */ /* x135512 stalin.sc:17326:606004 */ /* x135511 stalin.sc:17326:606051 */ /* x135510 stalin.sc:17326:606067 */ t45993 = p14917->a26253; /* x135509 stalin.sc:17326:606052 */ a37068 = t45993; /* x280941 */ /* x280940 */ t45994 = a37068; /* x280939 */ if (!((t45994.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31985]"); structure_ref_error();} t45990 = t45994.value.structure_type27650->s4; /* x135508 stalin.sc:17326:606012 */ t45989 = "Promoting W~s from squished to avoid"; /* x135507 stalin.sc:17326:606005 */ t45991.tag = STRING_TYPE; t45991.value.string_type = t45989; t45992 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t45992==NULL) {backtrace("stalin.sc", 17326, 606004); out_of_memory_error();} t45992->s0 = *((struct w49 *)(&t45990)); t45992->s1.tag = NULL_TYPE; f5365(t45991, t45992); /* x135506 */ t45978 = p14917; p14918 = t45978; /* x135505 stalin.sc:17327:606073 */ /* x135504 stalin.sc:17328:606157 */ /* x135503 stalin.sc:17328:606173 */ t45987 = p14918->a26253; /* x135502 stalin.sc:17328:606158 */ a37067 = t45987; /* x280937 */ /* x280936 */ t45988 = a37067; /* x280935 */ if (!((t45988.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31984]"); structure_ref_error();} t45981 = t45988.value.structure_type27650->s4; /* x135501 stalin.sc:17328:606138 */ /* x135500 stalin.sc:17328:606154 */ t45985 = p14918->p14848->a26250; /* x135499 stalin.sc:17328:606139 */ a37066 = t45985; /* x280933 */ /* x280932 */ t45986 = a37066; /* x280931 */ if (!((t45986.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31983]"); structure_ref_error();} t45980 = t45986.value.structure_type27650->s4; /* x135498 stalin.sc:17327:606081 */ t45979 = " MOVE: dispatching general (W~s) to squished (W~s)"; /* x135497 stalin.sc:17327:606074 */ t45982.tag = STRING_TYPE; t45982.value.string_type = t45979; t45984.tag = STRUCTURE_TYPE24753; t45984.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t45984.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17327, 606073); out_of_memory_error();} t45984.value.structure_type24753->s0 = *((struct w49 *)(&t45981)); t45984.value.structure_type24753->s1.tag = NULL_TYPE; t45983 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t45983==NULL) {backtrace("stalin.sc", 17327, 606073); out_of_memory_error();} t45983->s0 = *((struct w49 *)(&t45980)); t45983->s1 = t45984; f5365(t45982, t45983); /* x135522 stalin.sc:17329:606186 */ /* x135520 stalin.sc:17329:606213 */ t45995 = p14915->a26253; /* x135521 stalin.sc:17329:606216 */ /* x135519 stalin.sc:17329:606187 */ t45996 = FALSE_TYPE; f8128(t45995, t45996); /* x135524 stalin.sc:17330:606227 */ /* x135523 stalin.sc:17330:606228 */ f14026(); /* x135526 stalin.sc:17331:606258 */ /* x135525 stalin.sc:17331:606259 */ f14543(); /* x135495 */ /* x135494 stalin.sc:17332:606294 */ /* x135493 stalin.sc:17332:606309 */ a2038 = TRUE_TYPE; return; l7010: /* x135781 */ /* x135540 stalin.sc:17333:606321 */ /* x135535 stalin.sc:17333:606326 */ /* x135534 stalin.sc:17333:606337 */ t45875 = p14857->p14848->a26250; /* x135533 stalin.sc:17333:606327 */ if (f13859(t45875)==FALSE_TYPE) goto l7013; /* x135538 */ /* x135537 stalin.sc:17333:606350 */ t45876 = p14857->a26253; /* x135536 stalin.sc:17333:606341 */ if (f14025(t45876)==FALSE_TYPE) goto l7013; /* x135616 */ /* x135615 */ t45938 = p14857; p14920 = t45938; /* x135614 stalin.sc:17334:606361 */ /* x135574 stalin.sc:17334:606367 */ /* x135557 stalin.sc:17335:606378 */ /* x135556 stalin.sc:17335:606383 */ /* x135555 stalin.sc:17335:606439 */ t45939 = *((struct w21691 *)(&a26255)); /* x135554 stalin.sc:17335:606390 */ /* x135542 stalin.sc:17335:606384 */ t45940.tag = NATIVE_PROCEDURE_TYPE20224; t45941 = *((struct w49 *)(&t45939)); t45942 = (struct structure_type24753 *)NULL_TYPE; if (!(f1061(t45940, t45941, t45942)==FALSE_TYPE)) goto l7033; /* x135572 */ /* x135571 stalin.sc:17336:606505 */ t45943 = *((struct w21691 *)(&a26255)); /* x135570 stalin.sc:17336:606456 */ /* x135558 stalin.sc:17336:606451 */ t45944.tag = NATIVE_PROCEDURE_TYPE20227; t45945 = *((struct w49 *)(&t45943)); t45946 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t45944, t45945, t45946).tag)==FALSE_TYPE) goto l7033; /* x135611 */ /* x135610 */ t45947 = p14920; p14925 = t45947; /* x135609 */ /* x135600 stalin.sc:17337:606517 */ /* x135578 stalin.sc:17337:606523 */ /* x135597 */ /* x135596 */ t45948 = p14925; p14927 = t45948; /* x135595 */ /* x135594 stalin.sc:17338:606541 */ /* x135593 stalin.sc:17338:606588 */ /* x135592 stalin.sc:17338:606604 */ t45964 = p14927->p14848->a26250; /* x135591 stalin.sc:17338:606589 */ a37062 = t45964; /* x280917 */ /* x280916 */ t45965 = a37062; /* x280915 */ if (!((t45965.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31979]"); structure_ref_error();} t45961 = t45965.value.structure_type27650->s4; /* x135590 stalin.sc:17338:606549 */ t45960 = "Promoting W~s from squeezed to avoid"; /* x135589 stalin.sc:17338:606542 */ t45962.tag = STRING_TYPE; t45962.value.string_type = t45960; t45963 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t45963==NULL) {backtrace("stalin.sc", 17338, 606541); out_of_memory_error();} t45963->s0 = *((struct w49 *)(&t45961)); t45963->s1.tag = NULL_TYPE; f5365(t45962, t45963); /* x135588 */ t45949 = p14927; p14928 = t45949; /* x135587 stalin.sc:17339:606609 */ /* x135586 stalin.sc:17340:606691 */ /* x135585 stalin.sc:17340:606707 */ t45958 = p14928->a26253; /* x135584 stalin.sc:17340:606692 */ a37061 = t45958; /* x280913 */ /* x280912 */ t45959 = a37061; /* x280911 */ if (!((t45959.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31978]"); structure_ref_error();} t45952 = t45959.value.structure_type27650->s4; /* x135583 stalin.sc:17340:606672 */ /* x135582 stalin.sc:17340:606688 */ t45956 = p14928->p14848->a26250; /* x135581 stalin.sc:17340:606673 */ a37060 = t45956; /* x280909 */ /* x280908 */ t45957 = a37060; /* x280907 */ if (!((t45957.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31977]"); structure_ref_error();} t45951 = t45957.value.structure_type27650->s4; /* x135580 stalin.sc:17339:606617 */ t45950 = " MOVE: branching squeezed (W~s) to general (W~s)"; /* x135579 stalin.sc:17339:606610 */ t45953.tag = STRING_TYPE; t45953.value.string_type = t45950; t45955.tag = STRUCTURE_TYPE24753; t45955.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t45955.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17339, 606609); out_of_memory_error();} t45955.value.structure_type24753->s0 = *((struct w49 *)(&t45952)); t45955.value.structure_type24753->s1.tag = NULL_TYPE; t45954 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t45954==NULL) {backtrace("stalin.sc", 17339, 606609); out_of_memory_error();} t45954->s0 = *((struct w49 *)(&t45951)); t45954->s1 = t45955; f5365(t45953, t45954); /* x135604 stalin.sc:17341:606720 */ /* x135602 stalin.sc:17341:606747 */ t45966 = p14925->p14848->a26250; /* x135603 stalin.sc:17341:606749 */ /* x135601 stalin.sc:17341:606721 */ t45967 = FALSE_TYPE; f8123(t45966, t45967); /* x135606 stalin.sc:17342:606760 */ /* x135605 stalin.sc:17342:606761 */ f14026(); /* x135608 stalin.sc:17343:606791 */ /* x135607 stalin.sc:17343:606792 */ f14543(); /* x135577 */ /* x135576 stalin.sc:17344:606827 */ /* x135575 stalin.sc:17344:606842 */ a2038 = TRUE_TYPE; return; l7033: /* x135613 stalin.sc:17334:606361 */ /* x135612 stalin.sc:17334:606361 */ return; l7013: /* x135780 */ /* x135624 stalin.sc:17345:606854 */ /* x135619 stalin.sc:17345:606859 */ /* x135618 stalin.sc:17345:606870 */ t45877 = p14857->p14848->a26250; /* x135617 stalin.sc:17345:606860 */ if (f14024(t45877)==FALSE_TYPE) goto l7016; /* x135622 */ /* x135621 stalin.sc:17345:606883 */ t45878 = p14857->a26253; /* x135620 stalin.sc:17345:606874 */ if (f14025(t45878)==FALSE_TYPE) goto l7016; /* x135691 */ /* x135690 */ t45909 = p14857; p14931 = t45909; /* x135689 stalin.sc:17346:606894 */ /* x135649 stalin.sc:17346:606902 */ /* x135648 stalin.sc:17346:606906 */ /* x135647 stalin.sc:17346:606962 */ t45910 = *((struct w21691 *)(&a26255)); /* x135646 stalin.sc:17346:606913 */ /* x135634 stalin.sc:17346:606907 */ t45911.tag = NATIVE_PROCEDURE_TYPE20215; t45912 = *((struct w49 *)(&t45910)); t45913 = (struct structure_type24753 *)NULL_TYPE; if (!(f1061(t45911, t45912, t45913)==FALSE_TYPE)) goto l7028; /* x135631 */ /* x135630 stalin.sc:17347:606977 */ /* x135629 stalin.sc:17347:606983 */ t45915 = *((struct w21691 *)(&a26255)); /* x135628 stalin.sc:17347:606978 */ a35472 = t45915; /* x273245 */ /* x273244 */ t45916 = a35472; /* x273243 */ if (!((t45916.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29621]"); structure_ref_error();} t45914 = t45916.value.structure_type24753->s1; /* x268743 stalin.sc:17347:606971 */ if (!((t45914.tag)==NULL_TYPE)) goto l7029; l7028: /* x135651 */ /* x135650 */ return; l7029: /* x135688 */ /* x135687 */ t45917 = p14931; p14936 = t45917; /* x135686 */ /* x135677 stalin.sc:17348:606996 */ /* x135655 stalin.sc:17348:607002 */ /* x135674 */ /* x135673 */ t45918 = p14936; p14938 = t45918; /* x135672 */ /* x135671 stalin.sc:17349:607020 */ /* x135670 stalin.sc:17349:607067 */ /* x135669 stalin.sc:17349:607083 */ t45934 = p14938->p14848->a26250; /* x135668 stalin.sc:17349:607068 */ a37065 = t45934; /* x280929 */ /* x280928 */ t45935 = a37065; /* x280927 */ if (!((t45935.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31982]"); structure_ref_error();} t45931 = t45935.value.structure_type27650->s4; /* x135667 stalin.sc:17349:607028 */ t45930 = "Promoting W~s from squished to avoid"; /* x135666 stalin.sc:17349:607021 */ t45932.tag = STRING_TYPE; t45932.value.string_type = t45930; t45933 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t45933==NULL) {backtrace("stalin.sc", 17349, 607020); out_of_memory_error();} t45933->s0 = *((struct w49 *)(&t45931)); t45933->s1.tag = NULL_TYPE; f5365(t45932, t45933); /* x135665 */ t45919 = p14938; p14939 = t45919; /* x135664 stalin.sc:17350:607088 */ /* x135663 stalin.sc:17351:607172 */ /* x135662 stalin.sc:17351:607188 */ t45928 = p14939->a26253; /* x135661 stalin.sc:17351:607173 */ a37064 = t45928; /* x280925 */ /* x280924 */ t45929 = a37064; /* x280923 */ if (!((t45929.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31981]"); structure_ref_error();} t45922 = t45929.value.structure_type27650->s4; /* x135660 stalin.sc:17351:607153 */ /* x135659 stalin.sc:17351:607169 */ t45926 = p14939->p14848->a26250; /* x135658 stalin.sc:17351:607154 */ a37063 = t45926; /* x280921 */ /* x280920 */ t45927 = a37063; /* x280919 */ if (!((t45927.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31980]"); structure_ref_error();} t45921 = t45927.value.structure_type27650->s4; /* x135657 stalin.sc:17350:607096 */ t45920 = " MOVE: dispatching squished (W~s) to general (W~s)"; /* x135656 stalin.sc:17350:607089 */ t45923.tag = STRING_TYPE; t45923.value.string_type = t45920; t45925.tag = STRUCTURE_TYPE24753; t45925.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t45925.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17350, 607088); out_of_memory_error();} t45925.value.structure_type24753->s0 = *((struct w49 *)(&t45922)); t45925.value.structure_type24753->s1.tag = NULL_TYPE; t45924 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t45924==NULL) {backtrace("stalin.sc", 17350, 607088); out_of_memory_error();} t45924->s0 = *((struct w49 *)(&t45921)); t45924->s1 = t45925; f5365(t45923, t45924); /* x135681 stalin.sc:17352:607201 */ /* x135679 stalin.sc:17352:607228 */ t45936 = p14936->p14848->a26250; /* x135680 stalin.sc:17352:607230 */ /* x135678 stalin.sc:17352:607202 */ t45937 = FALSE_TYPE; f8128(t45936, t45937); /* x135683 stalin.sc:17353:607241 */ /* x135682 stalin.sc:17353:607242 */ f14026(); /* x135685 stalin.sc:17354:607272 */ /* x135684 stalin.sc:17354:607273 */ f14543(); /* x135654 */ /* x135653 stalin.sc:17355:607308 */ /* x135652 stalin.sc:17355:607323 */ a2038 = TRUE_TYPE; return; l7016: /* x135779 */ /* x135699 stalin.sc:17356:607335 */ /* x135694 stalin.sc:17356:607340 */ /* x135693 stalin.sc:17356:607350 */ t45879 = p14857->p14848->a26250; /* x135692 stalin.sc:17356:607341 */ if (f14025(t45879)==FALSE_TYPE) goto l7019; /* x135697 */ /* x135696 stalin.sc:17356:607363 */ t45880 = p14857->a26253; /* x135695 stalin.sc:17356:607354 */ if (f14025(t45880)==FALSE_TYPE) goto l7019; /* x135776 */ /* x135775 */ t45881 = p14857; p14941 = t45881; /* x135774 stalin.sc:17357:607374 */ /* x135749 stalin.sc:17357:607382 */ /* x135748 stalin.sc:17357:607386 */ /* x135746 stalin.sc:17357:607391 */ t45882 = p14941->p14848->a26250; /* x135747 stalin.sc:17357:607393 */ t45883 = p14941->a26253; /* x268740 stalin.sc:17357:607387 */ /* EQ: dispatching general to general */ if ((t45882.tag)==(t45883.tag)) switch (t45882.tag) {case FIXNUM_TYPE: if ((t45882.value.fixnum_type)==(t45883.value.fixnum_type)) goto l7021; break; case FLONUM_TYPE: if ((t45882.value.flonum_type)==(t45883.value.flonum_type)) goto l7021; break; case INPUT_PORT_TYPE: if ((t45882.value.input_port_type)==(t45883.value.input_port_type)) goto l7021; break; case OUTPUT_PORT_TYPE: if ((t45882.value.output_port_type)==(t45883.value.output_port_type)) goto l7021; break; case NATIVE_PROCEDURE_TYPE15963: if ((t45882.value.native_procedure_type15963)==(t45883.value.native_procedure_type15963)) goto l7021; break; case NATIVE_PROCEDURE_TYPE19067: if ((t45882.value.native_procedure_type19067)==(t45883.value.native_procedure_type19067)) goto l7021; break; case NATIVE_PROCEDURE_TYPE19068: if ((t45882.value.native_procedure_type19068)==(t45883.value.native_procedure_type19068)) goto l7021; break; case NATIVE_PROCEDURE_TYPE22459: if ((t45882.value.native_procedure_type22459)==(t45883.value.native_procedure_type22459)) goto l7021; break; case STRUCTURE_TYPE24753: if ((t45882.value.structure_type24753)==(t45883.value.structure_type24753)) goto l7021; break; case STRUCTURE_TYPE24757: if ((t45882.value.structure_type24757)==(t45883.value.structure_type24757)) goto l7021; break; case STRUCTURE_TYPE27501: if ((t45882.value.structure_type27501)==(t45883.value.structure_type27501)) goto l7021; break; case STRUCTURE_TYPE27510: if ((t45882.value.structure_type27510)==(t45883.value.structure_type27510)) goto l7021; break; case STRUCTURE_TYPE27621: if ((t45882.value.structure_type27621)==(t45883.value.structure_type27621)) goto l7021; break; case STRUCTURE_TYPE27650: if ((t45882.value.structure_type27650)==(t45883.value.structure_type27650)) goto l7021; break; case STRUCTURE_TYPE27669: if ((t45882.value.structure_type27669)==(t45883.value.structure_type27669)) goto l7021; break; case STRUCTURE_TYPE27673: if ((t45882.value.structure_type27673)==(t45883.value.structure_type27673)) goto l7021; break; case STRUCTURE_TYPE27692: if ((t45882.value.structure_type27692)==(t45883.value.structure_type27692)) goto l7021; break; case STRUCTURE_TYPE27694: if ((t45882.value.structure_type27694)==(t45883.value.structure_type27694)) goto l7021; break; case STRUCTURE_TYPE27698: if ((t45882.value.structure_type27698)==(t45883.value.structure_type27698)) goto l7021; break; case STRUCTURE_TYPE27745: if ((t45882.value.structure_type27745)==(t45883.value.structure_type27745)) goto l7021; break; case STRUCTURE_TYPE27747: if ((t45882.value.structure_type27747)==(t45883.value.structure_type27747)) goto l7021; break; case STRUCTURE_TYPE27750: if ((t45882.value.structure_type27750)==(t45883.value.structure_type27750)) goto l7021; break; case STRUCTURE_TYPE27753: if ((t45882.value.structure_type27753)==(t45883.value.structure_type27753)) goto l7021; break; case STRUCTURE_TYPE27756: if ((t45882.value.structure_type27756)==(t45883.value.structure_type27756)) goto l7021; break; case STRUCTURE_TYPE27761: if ((t45882.value.structure_type27761)==(t45883.value.structure_type27761)) goto l7021; break; case STRUCTURE_TYPE27769: if ((t45882.value.structure_type27769)==(t45883.value.structure_type27769)) goto l7021; break; case STRUCTURE_TYPE27776: if ((t45882.value.structure_type27776)==(t45883.value.structure_type27776)) goto l7021; break; case STRUCTURE_TYPE27779: if ((t45882.value.structure_type27779)==(t45883.value.structure_type27779)) goto l7021; break; case STRUCTURE_TYPE27858: if ((t45882.value.structure_type27858)==(t45883.value.structure_type27858)) goto l7021; break; case STRING_TYPE: if ((t45882.value.string_type)==(t45883.value.string_type)) goto l7021; break; case HEADED_VECTOR_TYPE27896: if ((t45882.value.headed_vector_type27896)==(t45883.value.headed_vector_type27896)) goto l7021; break; case EXTERNAL_SYMBOL_TYPE: if ((t45882.value.external_symbol_type)==(t45883.value.external_symbol_type)) goto l7021; break; case STRUCTURE_TYPE27908: if ((t45882.value.structure_type27908)==(t45883.value.structure_type27908)) goto l7021; break; default: goto l7021;} p14942 = p14941; /* x135742 */ /* x135741 stalin.sc:17358:607401 */ /* x135731 stalin.sc:17358:607406 */ if (a683==FALSE_TYPE) goto l7024; /* x135739 */ /* x135735 stalin.sc:17358:607420 */ /* x135734 stalin.sc:17358:607435 */ t45886 = p14942->p14848->a26250; /* x135733 stalin.sc:17358:607421 */ t45884 = f14154(t45886); /* x135738 stalin.sc:17358:607438 */ /* x135737 stalin.sc:17358:607453 */ t45887 = p14942->a26253; /* x135736 stalin.sc:17358:607439 */ t45885 = f14154(t45887); /* x268741 stalin.sc:17358:607418 */ switch (t45884.tag) {case FIXNUM_TYPE: switch (t45885.tag) {case FIXNUM_TYPE: if ((t45884.value.fixnum_type)==(t45885.value.fixnum_type)) goto l7021; break; case FLONUM_TYPE: if ((t45884.value.fixnum_type)==(t45885.value.flonum_type)) goto l7021; break; default: backtrace_internal("[inside PROMOTE! 14942]"); eql_error();} break; case FLONUM_TYPE: switch (t45885.tag) {case FIXNUM_TYPE: if ((t45884.value.flonum_type)==(t45885.value.fixnum_type)) goto l7021; break; case FLONUM_TYPE: if ((t45884.value.flonum_type)==(t45885.value.flonum_type)) goto l7021; break; default: backtrace_internal("[inside PROMOTE! 14942]"); eql_error();} break; default: backtrace_internal("[inside PROMOTE! 14942]"); eql_error();} l7024: /* x135728 */ /* x135727 stalin.sc:17359:607463 */ /* x135726 stalin.sc:17359:607519 */ t45888 = *((struct w21691 *)(&a26255)); /* x135725 stalin.sc:17359:607470 */ /* x135713 stalin.sc:17359:607464 */ t45889.tag = NATIVE_PROCEDURE_TYPE20207; t45890 = *((struct w49 *)(&t45888)); t45891 = (struct structure_type24753 *)NULL_TYPE; if (!(f1061(t45889, t45890, t45891)==FALSE_TYPE)) goto l7021; /* x135710 */ /* x135709 stalin.sc:17360:607534 */ /* x135708 stalin.sc:17360:607540 */ t45893 = *((struct w21691 *)(&a26255)); /* x135707 stalin.sc:17360:607535 */ a35473 = t45893; /* x273249 */ /* x273248 */ t45894 = a35473; /* x273247 */ if (!((t45894.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29622]"); structure_ref_error();} t45892 = t45894.value.structure_type24753->s1; /* x268742 stalin.sc:17360:607528 */ if (!((t45892.tag)==NULL_TYPE)) goto l7022; l7021: /* x135751 */ /* x135750 */ return; l7022: /* x135773 */ /* x135772 */ t45895 = p14941; p14948 = t45895; /* x135771 stalin.sc:17361:607553 */ /* x135752 stalin.sc:17361:607559 */ /* x135768 */ /* x135767 */ t45896 = p14948; p14949 = t45896; /* x135766 */ /* x135765 stalin.sc:17362:607577 */ /* x135764 stalin.sc:17362:607585 */ t45906 = "MOVE: dispatching general to general"; /* x135763 stalin.sc:17362:607578 */ t45907.tag = STRING_TYPE; t45907.value.string_type = t45906; t45908 = (struct structure_type24753 *)NULL_TYPE; f5365(t45907, t45908); /* x135762 */ t45897 = p14949; p14950 = t45897; /* x135761 stalin.sc:17363:607626 */ /* x135760 stalin.sc:17364:607706 */ /* x135759 stalin.sc:17364:607721 */ t45905 = p14950->a26253; /* x135758 stalin.sc:17364:607707 */ t45900 = f14154(t45905); /* x135757 stalin.sc:17364:607688 */ /* x135756 stalin.sc:17364:607703 */ t45904 = p14950->p14848->a26250; /* x135755 stalin.sc:17364:607689 */ t45899 = f14154(t45904); /* x135754 stalin.sc:17363:607634 */ t45898 = " because of mismatched type set sizes ~a vs. ~a"; /* x135753 stalin.sc:17363:607627 */ t45901.tag = STRING_TYPE; t45901.value.string_type = t45898; t45903.tag = STRUCTURE_TYPE24753; t45903.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t45903.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17363, 607626); out_of_memory_error();} t45903.value.structure_type24753->s0 = t45900; t45903.value.structure_type24753->s1.tag = NULL_TYPE; t45902 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t45902==NULL) {backtrace("stalin.sc", 17363, 607626); out_of_memory_error();} t45902->s0 = t45899; t45902->s1 = t45903; f5365(t45901, t45902); return; l7019: /* x135778 */ /* x135777 */ return;} /* LAMBDA-ACCESSOR[14818] */ struct w61020 f14818(struct w49 a26224, struct w49 a26225) {struct w61020 r14818; char *a26226; /* v */ struct w49 a26234; /* E1 */ struct w49 a26237; /* E */ struct structure_type24753 *a26238; /* C */ struct w49 a36748; /* OBJ */ struct w49 a36749; /* OBJ */ struct w49 a38005; /* S */ char *t46198; char *t46199; char *t46200; struct w49 t46201; struct w49 t46202; char *t46203; char *t46204; struct w49 t46205; struct w49 t46206; char *t46207; char *t46208; struct w49 t46209; struct w49 t46210; char *t46211; char *t46212; struct w49 t46213; struct w49 t46214; char *t46215; char *t46216; struct w49 t46217; struct w49 t46218; char *t46219; char *t46220; char *t46221; char *t46222; char *t46223; struct w49 t46224; struct w49 t46225; struct w49 t46226; struct w49 t46227; struct w49 t46228; struct w49 t46229; struct w49 t46230; struct w49 t46231; struct w49 t46232; struct w49 t46233; struct w49 t46234; struct w49 t46235; struct w49 t46236; struct w49 t46237; struct w49 t46238; struct structure_type24753 *t46239; struct w49 t46240; struct w49 t46241; struct w49 t46242; struct structure_type24753 *t46243; struct w49 t46244; struct structure_type24753 *t46245; struct structure_type24753 *t46246; struct w49 t46247; struct w61020 t46248; struct w49 t46249; struct w49 t46250; struct w49 t46251; struct w49 t46252; struct w49 t46253; struct structure_type24753 *t46254; struct w49 t46255; char *t46256; /* x134844 stalin.sc:17189:600755 */ /* x134843 stalin.sc:17189:600761 */ t46198 = a686; /* x134842 */ a26226 = t46198; /* x134841 */ /* x134717 */ /* x134716 */ /* x134714 */ t46199 = a26226; /* x134715 */ t46200 = q18; /* x134713 */ /* MOVE: branching squeezed to general */ if (t46199>=((char *)VALUE_OFFSET)) {t46201.tag = EXTERNAL_SYMBOL_TYPE; t46201.value.external_symbol_type = t46199;} else t46201.tag = (unsigned)t46199; t46202.tag = EXTERNAL_SYMBOL_TYPE; t46202.value.external_symbol_type = t46200; if (!(f26160(t46201, t46202)==FALSE_TYPE)) goto l7070; /* x134710 */ /* x134709 */ /* x134707 */ t46203 = a26226; /* x134708 */ t46204 = q19; /* x134706 */ /* MOVE: branching squeezed to general */ if (t46203>=((char *)VALUE_OFFSET)) {t46205.tag = EXTERNAL_SYMBOL_TYPE; t46205.value.external_symbol_type = t46203;} else t46205.tag = (unsigned)t46203; t46206.tag = EXTERNAL_SYMBOL_TYPE; t46206.value.external_symbol_type = t46204; if (!(f26160(t46205, t46206)==FALSE_TYPE)) goto l7070; /* x134703 */ /* x134702 */ /* x134700 */ t46207 = a26226; /* x134701 */ t46208 = q20; /* x134699 */ /* MOVE: branching squeezed to general */ if (t46207>=((char *)VALUE_OFFSET)) {t46209.tag = EXTERNAL_SYMBOL_TYPE; t46209.value.external_symbol_type = t46207;} else t46209.tag = (unsigned)t46207; t46210.tag = EXTERNAL_SYMBOL_TYPE; t46210.value.external_symbol_type = t46208; if (!(f26160(t46209, t46210)==FALSE_TYPE)) goto l7070; /* x134696 */ /* x134694 */ t46211 = a26226; /* x134695 */ t46212 = q21; /* x134693 */ /* MOVE: branching squeezed to general */ if (t46211>=((char *)VALUE_OFFSET)) {t46213.tag = EXTERNAL_SYMBOL_TYPE; t46213.value.external_symbol_type = t46211;} else t46213.tag = (unsigned)t46211; t46214.tag = EXTERNAL_SYMBOL_TYPE; t46214.value.external_symbol_type = t46212; if (f26160(t46213, t46214)==FALSE_TYPE) goto l7071; l7070: /* x134721 */ /* x134720 */ /* x134719 stalin.sc:17190:600855 */ /* x134718 stalin.sc:17190:600856 */ /* x296141 QobiScheme.sc:166:5314 */ /* x296140 QobiScheme.sc:166:5321 */ t46256 = "This shouldn\'t happen"; /* x296139 QobiScheme.sc:166:5315 */ stalin_panic(t46256); l7071: /* x134840 */ /* x134725 */ /* x134723 */ t46215 = a26226; /* x134724 */ t46216 = q22; /* x134722 */ /* MOVE: branching squeezed to general */ if (t46215>=((char *)VALUE_OFFSET)) {t46217.tag = EXTERNAL_SYMBOL_TYPE; t46217.value.external_symbol_type = t46215;} else t46217.tag = (unsigned)t46215; t46218.tag = EXTERNAL_SYMBOL_TYPE; t46218.value.external_symbol_type = t46216; if (f26160(t46217, t46218)==FALSE_TYPE) goto l7076; /* x134835 */ /* x134834 */ /* x134833 stalin.sc:17192:600881 */ /* x134783 stalin.sc:17192:600885 */ /* x134738 stalin.sc:17192:600890 */ /* x134737 stalin.sc:17192:600894 */ /* x134735 stalin.sc:17192:600899 */ t46220 = a687; /* x134736 stalin.sc:17192:600927 */ t46221 = q15; /* x268778 stalin.sc:17192:600895 */ if (t46220==t46221) goto l7079; /* x134731 */ /* x134729 stalin.sc:17193:600945 */ t46222 = a687; /* x134730 stalin.sc:17193:600973 */ t46223 = q16; /* x268779 stalin.sc:17193:600941 */ if (!(t46222==t46223)) goto l7078; l7079: /* x134781 */ /* x134780 stalin.sc:17194:600998 */ /* x134779 stalin.sc:17194:601003 */ /* x134778 stalin.sc:17194:601017 */ /* x134777 stalin.sc:17194:601057 */ t46226 = a26224; /* x134776 stalin.sc:17194:601018 */ a38005 = t46226; /* x284689 */ /* x284688 */ t46227 = a38005; /* x284687 */ if (!((t46227.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-NARROW-PROTOTYPE[5953] 32922]"); structure_ref_error();} t46224 = t46227.value.structure_type27756->s1; /* x134775 stalin.sc:17194:601004 */ a36749 = t46224; /* x279665 */ /* x279664 */ t46225 = a36749; /* x279663 */ if (!((t46225.tag)==STRUCTURE_TYPE27694)) goto l7077; /* x134771 */ /* x134770 stalin.sc:17195:601064 */ /* x134769 stalin.sc:17195:601069 */ /* x134768 stalin.sc:17195:601088 */ /* x134767 stalin.sc:17195:601106 */ t46229 = a26224; /* x134766 stalin.sc:17195:601089 */ t46228 = f8966(t46229); /* x134765 stalin.sc:17195:601070 */ if (f8526(t46228)==FALSE_TYPE) goto l7077; /* x134761 */ /* x134760 stalin.sc:17196:601113 */ /* x134759 stalin.sc:17196:601118 */ /* x134758 stalin.sc:17196:601132 */ /* x134757 stalin.sc:17196:601150 */ t46232 = a26224; /* x134756 stalin.sc:17196:601133 */ t46230 = f8965(t46232); /* x134755 stalin.sc:17196:601119 */ a36748 = t46230; /* x279661 */ /* x279660 */ t46231 = a36748; /* x279659 */ if (!((t46231.tag)==STRUCTURE_TYPE27694)) goto l7077; /* x134751 */ /* x134750 stalin.sc:17197:601162 */ /* x134749 stalin.sc:17197:601181 */ /* x134748 stalin.sc:17197:601199 */ t46234 = a26224; /* x134747 stalin.sc:17197:601182 */ t46233 = f8965(t46234); /* x134746 stalin.sc:17197:601163 */ if (!(f8526(t46233)==FALSE_TYPE)) goto l7078; l7077: /* x134784 stalin.sc:17198:601213 */ r14818.tag = STRING_TYPE; r14818.value.string_type = "fake"; return r14818; l7078: /* x134832 stalin.sc:17199:601227 */ /* x134831 stalin.sc:17199:601237 */ /* x134830 stalin.sc:17199:601255 */ t46255 = a26224; /* x134829 stalin.sc:17199:601238 */ t46235 = f8965(t46255); /* x134828 */ a26234 = t46235; /* x134827 stalin.sc:17200:601261 */ /* x134788 stalin.sc:17200:601265 */ /* x134786 stalin.sc:17200:601270 */ t46236 = a26225; /* x134787 stalin.sc:17200:601272 */ t46237 = a26234; /* x268773 stalin.sc:17200:601266 */ /* EQ: dispatching general to general */ if (!((t46236.tag)==(t46237.tag))) goto l7085; switch (t46236.tag) {case FIXNUM_TYPE: if (!((t46236.value.fixnum_type)==(t46237.value.fixnum_type))) goto l7085; break; case FLONUM_TYPE: if (!((t46236.value.flonum_type)==(t46237.value.flonum_type))) goto l7085; break; case INPUT_PORT_TYPE: if (!((t46236.value.input_port_type)==(t46237.value.input_port_type))) goto l7085; break; case OUTPUT_PORT_TYPE: if (!((t46236.value.output_port_type)==(t46237.value.output_port_type))) goto l7085; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t46236.value.native_procedure_type15963)==(t46237.value.native_procedure_type15963))) goto l7085; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t46236.value.native_procedure_type19067)==(t46237.value.native_procedure_type19067))) goto l7085; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t46236.value.native_procedure_type19068)==(t46237.value.native_procedure_type19068))) goto l7085; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t46236.value.native_procedure_type22459)==(t46237.value.native_procedure_type22459))) goto l7085; break; case STRUCTURE_TYPE24753: if (!((t46236.value.structure_type24753)==(t46237.value.structure_type24753))) goto l7085; break; case STRUCTURE_TYPE24757: if (!((t46236.value.structure_type24757)==(t46237.value.structure_type24757))) goto l7085; break; case STRUCTURE_TYPE27501: if (!((t46236.value.structure_type27501)==(t46237.value.structure_type27501))) goto l7085; break; case STRUCTURE_TYPE27510: if (!((t46236.value.structure_type27510)==(t46237.value.structure_type27510))) goto l7085; break; case STRUCTURE_TYPE27621: if (!((t46236.value.structure_type27621)==(t46237.value.structure_type27621))) goto l7085; break; case STRUCTURE_TYPE27650: if (!((t46236.value.structure_type27650)==(t46237.value.structure_type27650))) goto l7085; break; case STRUCTURE_TYPE27669: if (!((t46236.value.structure_type27669)==(t46237.value.structure_type27669))) goto l7085; break; case STRUCTURE_TYPE27673: if (!((t46236.value.structure_type27673)==(t46237.value.structure_type27673))) goto l7085; break; case STRUCTURE_TYPE27692: if (!((t46236.value.structure_type27692)==(t46237.value.structure_type27692))) goto l7085; break; case STRUCTURE_TYPE27694: if (!((t46236.value.structure_type27694)==(t46237.value.structure_type27694))) goto l7085; break; case STRUCTURE_TYPE27698: if (!((t46236.value.structure_type27698)==(t46237.value.structure_type27698))) goto l7085; break; case STRUCTURE_TYPE27745: if (!((t46236.value.structure_type27745)==(t46237.value.structure_type27745))) goto l7085; break; case STRUCTURE_TYPE27747: if (!((t46236.value.structure_type27747)==(t46237.value.structure_type27747))) goto l7085; break; case STRUCTURE_TYPE27750: if (!((t46236.value.structure_type27750)==(t46237.value.structure_type27750))) goto l7085; break; case STRUCTURE_TYPE27753: if (!((t46236.value.structure_type27753)==(t46237.value.structure_type27753))) goto l7085; break; case STRUCTURE_TYPE27756: if (!((t46236.value.structure_type27756)==(t46237.value.structure_type27756))) goto l7085; break; case STRUCTURE_TYPE27761: if (!((t46236.value.structure_type27761)==(t46237.value.structure_type27761))) goto l7085; break; case STRUCTURE_TYPE27769: if (!((t46236.value.structure_type27769)==(t46237.value.structure_type27769))) goto l7085; break; case STRUCTURE_TYPE27776: if (!((t46236.value.structure_type27776)==(t46237.value.structure_type27776))) goto l7085; break; case STRUCTURE_TYPE27779: if (!((t46236.value.structure_type27779)==(t46237.value.structure_type27779))) goto l7085; break; case STRUCTURE_TYPE27858: if (!((t46236.value.structure_type27858)==(t46237.value.structure_type27858))) goto l7085; break; case STRING_TYPE: if (!((t46236.value.string_type)==(t46237.value.string_type))) goto l7085; break; case HEADED_VECTOR_TYPE27896: if (!((t46236.value.headed_vector_type27896)==(t46237.value.headed_vector_type27896))) goto l7085; break; case EXTERNAL_SYMBOL_TYPE: if (!((t46236.value.external_symbol_type)==(t46237.value.external_symbol_type))) goto l7085; break; case STRUCTURE_TYPE27908: if (!((t46236.value.structure_type27908)==(t46237.value.structure_type27908))) goto l7085; break; default:;} /* x134791 stalin.sc:17201:601281 */ /* x134790 stalin.sc:17201:601286 */ t46253 = a26225; /* x134789 stalin.sc:17201:601282 */ t46254 = f14275(t46253); r14818.tag = STRUCTURE_TYPE24753; r14818.value.structure_type24753 = t46254; return r14818; l7085: /* x134826 stalin.sc:17202:601294 */ /* x134822 stalin.sc:17202:601308 */ /* x134821 stalin.sc:17202:601326 */ t46251 = a26225; /* x134820 stalin.sc:17202:601309 */ t46238 = f8965(t46251); /* x134825 stalin.sc:17202:601333 */ /* x134824 stalin.sc:17202:601338 */ t46252 = a26225; /* x134823 stalin.sc:17202:601334 */ t46239 = f14281(t46252); /* x134819 */ /* x134818 */ /* x134817 */ /* x134816 */ /* x134815 */ /* x134814 */ /* x134813 */ /* x134793 */ /* x134792 stalin.sc:17202:601299 */ a26237 = t46238; a26238 = t46239; h14832: /* x134812 stalin.sc:17203:601349 */ /* x134797 stalin.sc:17203:601353 */ /* x134795 stalin.sc:17203:601358 */ t46240 = a26237; /* x134796 stalin.sc:17203:601360 */ t46241 = a26234; /* x268772 stalin.sc:17203:601354 */ /* EQ: dispatching general to general */ if (!((t46240.tag)==(t46241.tag))) goto l7087; switch (t46240.tag) {case FIXNUM_TYPE: if (!((t46240.value.fixnum_type)==(t46241.value.fixnum_type))) goto l7087; break; case FLONUM_TYPE: if (!((t46240.value.flonum_type)==(t46241.value.flonum_type))) goto l7087; break; case INPUT_PORT_TYPE: if (!((t46240.value.input_port_type)==(t46241.value.input_port_type))) goto l7087; break; case OUTPUT_PORT_TYPE: if (!((t46240.value.output_port_type)==(t46241.value.output_port_type))) goto l7087; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t46240.value.native_procedure_type15963)==(t46241.value.native_procedure_type15963))) goto l7087; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t46240.value.native_procedure_type19067)==(t46241.value.native_procedure_type19067))) goto l7087; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t46240.value.native_procedure_type19068)==(t46241.value.native_procedure_type19068))) goto l7087; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t46240.value.native_procedure_type22459)==(t46241.value.native_procedure_type22459))) goto l7087; break; case STRUCTURE_TYPE24753: if (!((t46240.value.structure_type24753)==(t46241.value.structure_type24753))) goto l7087; break; case STRUCTURE_TYPE24757: if (!((t46240.value.structure_type24757)==(t46241.value.structure_type24757))) goto l7087; break; case STRUCTURE_TYPE27501: if (!((t46240.value.structure_type27501)==(t46241.value.structure_type27501))) goto l7087; break; case STRUCTURE_TYPE27510: if (!((t46240.value.structure_type27510)==(t46241.value.structure_type27510))) goto l7087; break; case STRUCTURE_TYPE27621: if (!((t46240.value.structure_type27621)==(t46241.value.structure_type27621))) goto l7087; break; case STRUCTURE_TYPE27650: if (!((t46240.value.structure_type27650)==(t46241.value.structure_type27650))) goto l7087; break; case STRUCTURE_TYPE27669: if (!((t46240.value.structure_type27669)==(t46241.value.structure_type27669))) goto l7087; break; case STRUCTURE_TYPE27673: if (!((t46240.value.structure_type27673)==(t46241.value.structure_type27673))) goto l7087; break; case STRUCTURE_TYPE27692: if (!((t46240.value.structure_type27692)==(t46241.value.structure_type27692))) goto l7087; break; case STRUCTURE_TYPE27694: if (!((t46240.value.structure_type27694)==(t46241.value.structure_type27694))) goto l7087; break; case STRUCTURE_TYPE27698: if (!((t46240.value.structure_type27698)==(t46241.value.structure_type27698))) goto l7087; break; case STRUCTURE_TYPE27745: if (!((t46240.value.structure_type27745)==(t46241.value.structure_type27745))) goto l7087; break; case STRUCTURE_TYPE27747: if (!((t46240.value.structure_type27747)==(t46241.value.structure_type27747))) goto l7087; break; case STRUCTURE_TYPE27750: if (!((t46240.value.structure_type27750)==(t46241.value.structure_type27750))) goto l7087; break; case STRUCTURE_TYPE27753: if (!((t46240.value.structure_type27753)==(t46241.value.structure_type27753))) goto l7087; break; case STRUCTURE_TYPE27756: if (!((t46240.value.structure_type27756)==(t46241.value.structure_type27756))) goto l7087; break; case STRUCTURE_TYPE27761: if (!((t46240.value.structure_type27761)==(t46241.value.structure_type27761))) goto l7087; break; case STRUCTURE_TYPE27769: if (!((t46240.value.structure_type27769)==(t46241.value.structure_type27769))) goto l7087; break; case STRUCTURE_TYPE27776: if (!((t46240.value.structure_type27776)==(t46241.value.structure_type27776))) goto l7087; break; case STRUCTURE_TYPE27779: if (!((t46240.value.structure_type27779)==(t46241.value.structure_type27779))) goto l7087; break; case STRUCTURE_TYPE27858: if (!((t46240.value.structure_type27858)==(t46241.value.structure_type27858))) goto l7087; break; case STRING_TYPE: if (!((t46240.value.string_type)==(t46241.value.string_type))) goto l7087; break; case HEADED_VECTOR_TYPE27896: if (!((t46240.value.headed_vector_type27896)==(t46241.value.headed_vector_type27896))) goto l7087; break; case EXTERNAL_SYMBOL_TYPE: if (!((t46240.value.external_symbol_type)==(t46241.value.external_symbol_type))) goto l7087; break; case STRUCTURE_TYPE27908: if (!((t46240.value.structure_type27908)==(t46241.value.structure_type27908))) goto l7087; break; default:;} /* x134798 stalin.sc:17204:601367 */ r14818.tag = STRUCTURE_TYPE24753; r14818.value.structure_type24753 = a26238; return r14818; l7087: /* x134811 stalin.sc:17205:601372 */ /* x134802 stalin.sc:17205:601378 */ /* x134801 stalin.sc:17205:601391 */ t46244 = a26237; /* x134800 stalin.sc:17205:601379 */ t46242 = f8639(t46244); /* x134810 stalin.sc:17205:601394 */ /* x134804 stalin.sc:17205:601400 */ t46245 = a26238; /* x134809 stalin.sc:17205:601402 */ /* x134808 stalin.sc:17205:601407 */ /* x134807 stalin.sc:17205:601420 */ t46250 = a26237; /* x134806 stalin.sc:17205:601408 */ t46249 = f8639(t46250); /* x134805 stalin.sc:17205:601403 */ t46246 = f14281(t46249); /* x134803 stalin.sc:17205:601395 */ t46247.tag = STRUCTURE_TYPE24753; t46247.value.structure_type24753 = t46245; t46248.tag = STRUCTURE_TYPE24753; t46248.value.structure_type24753 = t46246; t46243 = f13588(t46247, t46248); /* x134799 stalin.sc:17205:601373 */ a26237 = t46242; a26238 = t46243; goto h14832; l7076: /* x134839 */ /* x134838 */ /* x134837 stalin.sc:17206:601440 */ /* x134836 stalin.sc:17206:601441 */ /* x296145 QobiScheme.sc:166:5314 */ /* x296144 QobiScheme.sc:166:5321 */ t46219 = "This shouldn\'t happen"; /* x296143 QobiScheme.sc:166:5315 */ stalin_panic(t46219);} /* NUMBER-OF-ACCESSOR-INDIRECTIONS[14785] */ int f14785(struct w49 a26206) {struct w49 a26207; /* E */ struct w49 a26208; /* G */ char *a26209; /* v */ struct w49 a26213; /* E1 */ struct w49 a26216; /* E */ int a26217; /* C */ char *a26218; /* v */ struct w49 a26219; /* E1 */ struct w49 a26222; /* E */ int a26223; /* C */ struct w49 a36871; /* S */ struct w49 a36886; /* S */ struct w49 a36950; /* S */ struct w49 a39186; /* S */ struct w49 a40119; /* S */ struct w49 a41655; /* G */ struct w49 a41673; /* G */ struct w49 a41702; /* G */ struct w49 a41741; /* G */ struct w49 t46257; struct w49 t46258; struct w49 t46259; struct w49 t46260; struct w49 t46261; struct w49 t46262; struct w49 t46263; struct w49 t46264; struct w49 t46265; struct w49 t46266; struct w49 t46267; struct w49 t46268; struct w49 t46269; struct w49 t46270; char *t46271; char *t46272; char *t46273; char *t46274; struct w49 t46275; struct w49 t46276; char *t46277; char *t46278; struct w49 t46279; struct w49 t46280; char *t46281; char *t46282; struct w49 t46283; struct w49 t46284; char *t46285; char *t46286; struct w49 t46287; struct w49 t46288; char *t46289; char *t46290; struct w49 t46291; struct w49 t46292; char *t46293; struct w49 t46294; struct w49 t46295; struct w49 t46296; struct w49 t46297; int t46298; struct w49 t46299; struct w49 t46300; struct w49 t46301; int t46302; struct w49 t46303; int t46304; int t46305; int t46306; int t46307; struct w49 t46308; struct w49 t46309; struct w49 t46310; char *t46311; char *t46312; char *t46313; struct w49 t46314; struct w49 t46315; char *t46316; char *t46317; struct w49 t46318; struct w49 t46319; char *t46320; char *t46321; struct w49 t46322; struct w49 t46323; char *t46324; char *t46325; struct w49 t46326; struct w49 t46327; char *t46328; char *t46329; struct w49 t46330; struct w49 t46331; char *t46332; struct w49 t46333; struct w49 t46334; struct w49 t46335; struct w49 t46336; int t46337; struct w49 t46338; struct w49 t46339; struct w49 t46340; int t46341; struct w49 t46342; int t46343; int t46344; struct w49 t46345; struct w49 t46346; struct w49 t46347; struct w49 t46348; struct w49 t46349; char *t46350; struct w49 t46351; struct w49 t46352; struct w49 t46353; struct w49 t46354; /* x134684 stalin.sc:17156:599806 */ /* x134680 stalin.sc:17157:599850 */ /* x134679 stalin.sc:17157:599874 */ t46351 = a26206; /* x134678 stalin.sc:17157:599851 */ a40119 = t46351; /* x293145 */ /* x293144 */ t46352 = a40119; /* x293143 */ if (!((t46352.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35036]"); structure_ref_error();} t46257 = t46352.value.structure_type27698->s9; /* x134683 stalin.sc:17156:599815 */ /* x134682 stalin.sc:17156:599836 */ t46353 = a26206; /* x134681 stalin.sc:17156:599816 */ a39186 = t46353; /* x289413 */ /* x289412 */ t46354 = a39186; /* x289411 */ if (!((t46354.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34103]"); structure_ref_error();} t46258 = t46354.value.structure_type27698->s16; /* x134677 */ a26207 = t46257; a26208 = t46258; /* x134676 stalin.sc:17158:599881 */ /* x134450 stalin.sc:17158:599888 */ /* x134449 stalin.sc:17158:599893 */ /* x134448 stalin.sc:17158:599904 */ t46259 = a26208; /* x134447 stalin.sc:17158:599894 */ if (!(f8229(t46259)==FALSE_TYPE)) goto l7089; /* x134453 */ /* x134452 */ /* x134451 stalin.sc:17158:599908 */ return 0; l7089: /* x134675 */ /* x134458 stalin.sc:17159:599913 */ /* x134457 stalin.sc:17159:599926 */ /* x134456 stalin.sc:17159:599945 */ t46261 = a26208; /* x134455 stalin.sc:17159:599927 */ a36886 = t46261; /* x280213 */ /* x280212 */ t46262 = a36886; /* x280211 */ if (!((t46262.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31803]"); structure_ref_error();} t46260 = t46262.value.structure_type27692->s9; /* x134454 stalin.sc:17159:599914 */ if (f8793(t46260)==FALSE_TYPE) goto l7091; /* x134461 */ /* x134460 */ /* x134459 stalin.sc:17159:599949 */ return 0; l7091: /* x134674 */ /* x134464 stalin.sc:17160:599954 */ /* x134463 stalin.sc:17160:599962 */ t46263 = a26208; /* x134462 stalin.sc:17160:599955 */ a41741 = t46263; /* x301076 stalin.sc:3890:131852 */ /* x301075 stalin.sc:3890:131869 */ t46264 = a41741; /* x301074 stalin.sc:3890:131853 */ if (f8204(t46264)==FALSE_TYPE) goto l7093; /* x134467 */ /* x134466 */ /* x134465 stalin.sc:17160:599965 */ return 0; l7093: /* x134673 */ /* x134470 stalin.sc:17161:599970 */ /* x134469 stalin.sc:17161:599979 */ t46265 = a26208; /* x134468 stalin.sc:17161:599971 */ a41702 = t46265; /* x300920 stalin.sc:3916:132554 */ /* x300919 stalin.sc:3916:132572 */ t46266 = a41702; /* x300918 stalin.sc:3916:132555 */ if (f8209(t46266)==FALSE_TYPE) goto l7095; /* x134473 */ /* x134472 */ /* x134471 stalin.sc:17161:599982 */ return 0; l7095: /* x134672 */ /* x134476 stalin.sc:17162:599987 */ /* x134475 stalin.sc:17162:599996 */ t46267 = a26208; /* x134474 stalin.sc:17162:599988 */ a41673 = t46267; /* x300804 stalin.sc:3942:133266 */ /* x300803 stalin.sc:3942:133284 */ t46268 = a41673; /* x300802 stalin.sc:3942:133267 */ if (f8214(t46268)==FALSE_TYPE) goto l7097; /* x134572 */ /* x134571 */ /* x134570 stalin.sc:17163:600001 */ /* x134569 stalin.sc:17163:600007 */ t46311 = a686; /* x134568 */ a26209 = t46311; /* x134567 */ /* x134507 */ /* x134506 */ /* x134504 */ t46312 = a26209; /* x134505 */ t46313 = q18; /* x134503 */ /* MOVE: branching squeezed to general */ if (t46312>=((char *)VALUE_OFFSET)) {t46314.tag = EXTERNAL_SYMBOL_TYPE; t46314.value.external_symbol_type = t46312;} else t46314.tag = (unsigned)t46312; t46315.tag = EXTERNAL_SYMBOL_TYPE; t46315.value.external_symbol_type = t46313; if (!(f26160(t46314, t46315)==FALSE_TYPE)) goto l7114; /* x134500 */ /* x134499 */ /* x134497 */ t46316 = a26209; /* x134498 */ t46317 = q19; /* x134496 */ /* MOVE: branching squeezed to general */ if (t46316>=((char *)VALUE_OFFSET)) {t46318.tag = EXTERNAL_SYMBOL_TYPE; t46318.value.external_symbol_type = t46316;} else t46318.tag = (unsigned)t46316; t46319.tag = EXTERNAL_SYMBOL_TYPE; t46319.value.external_symbol_type = t46317; if (!(f26160(t46318, t46319)==FALSE_TYPE)) goto l7114; /* x134493 */ /* x134492 */ /* x134490 */ t46320 = a26209; /* x134491 */ t46321 = q20; /* x134489 */ /* MOVE: branching squeezed to general */ if (t46320>=((char *)VALUE_OFFSET)) {t46322.tag = EXTERNAL_SYMBOL_TYPE; t46322.value.external_symbol_type = t46320;} else t46322.tag = (unsigned)t46320; t46323.tag = EXTERNAL_SYMBOL_TYPE; t46323.value.external_symbol_type = t46321; if (!(f26160(t46322, t46323)==FALSE_TYPE)) goto l7114; /* x134486 */ /* x134484 */ t46324 = a26209; /* x134485 */ t46325 = q21; /* x134483 */ /* MOVE: branching squeezed to general */ if (t46324>=((char *)VALUE_OFFSET)) {t46326.tag = EXTERNAL_SYMBOL_TYPE; t46326.value.external_symbol_type = t46324;} else t46326.tag = (unsigned)t46324; t46327.tag = EXTERNAL_SYMBOL_TYPE; t46327.value.external_symbol_type = t46325; if (f26160(t46326, t46327)==FALSE_TYPE) goto l7115; l7114: /* x134511 */ /* x134510 */ /* x134509 stalin.sc:17165:600106 */ /* x134508 stalin.sc:17165:600107 */ /* x296685 QobiScheme.sc:166:5314 */ /* x296684 QobiScheme.sc:166:5321 */ t46350 = "This shouldn\'t happen"; /* x296683 QobiScheme.sc:166:5315 */ stalin_panic(t46350); l7115: /* x134566 */ /* x134515 */ /* x134513 */ t46328 = a26209; /* x134514 */ t46329 = q22; /* x134512 */ /* MOVE: branching squeezed to general */ if (t46328>=((char *)VALUE_OFFSET)) {t46330.tag = EXTERNAL_SYMBOL_TYPE; t46330.value.external_symbol_type = t46328;} else t46330.tag = (unsigned)t46328; t46331.tag = EXTERNAL_SYMBOL_TYPE; t46331.value.external_symbol_type = t46329; if (f26160(t46330, t46331)==FALSE_TYPE) goto l7120; /* x134561 */ /* x134560 */ /* x134559 stalin.sc:17167:600134 */ /* x134558 stalin.sc:17167:600144 */ /* x134557 stalin.sc:17167:600162 */ /* x134556 stalin.sc:17167:600174 */ /* x134555 stalin.sc:17167:600193 */ t46348 = a26208; /* x134554 stalin.sc:17167:600175 */ a36871 = t46348; /* x280153 */ /* x280152 */ t46349 = a36871; /* x280151 */ if (!((t46349.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31788]"); structure_ref_error();} t46347 = t46349.value.structure_type27692->s9; /* x134553 stalin.sc:17167:600163 */ t46346 = f8153(t46347); /* x134552 stalin.sc:17167:600145 */ t46333 = f8965(t46346); /* x134551 */ a26213 = t46333; /* x134550 stalin.sc:17168:600205 */ /* x134519 stalin.sc:17168:600209 */ /* x134517 stalin.sc:17168:600214 */ t46334 = a26207; /* x134518 stalin.sc:17168:600216 */ t46335 = a26213; /* x268786 stalin.sc:17168:600210 */ /* EQ: dispatching general to general */ if (!((t46334.tag)==(t46335.tag))) goto l7122; switch (t46334.tag) {case FIXNUM_TYPE: if (!((t46334.value.fixnum_type)==(t46335.value.fixnum_type))) goto l7122; break; case FLONUM_TYPE: if (!((t46334.value.flonum_type)==(t46335.value.flonum_type))) goto l7122; break; case INPUT_PORT_TYPE: if (!((t46334.value.input_port_type)==(t46335.value.input_port_type))) goto l7122; break; case OUTPUT_PORT_TYPE: if (!((t46334.value.output_port_type)==(t46335.value.output_port_type))) goto l7122; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t46334.value.native_procedure_type15963)==(t46335.value.native_procedure_type15963))) goto l7122; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t46334.value.native_procedure_type19067)==(t46335.value.native_procedure_type19067))) goto l7122; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t46334.value.native_procedure_type19068)==(t46335.value.native_procedure_type19068))) goto l7122; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t46334.value.native_procedure_type22459)==(t46335.value.native_procedure_type22459))) goto l7122; break; case STRUCTURE_TYPE24753: if (!((t46334.value.structure_type24753)==(t46335.value.structure_type24753))) goto l7122; break; case STRUCTURE_TYPE24757: if (!((t46334.value.structure_type24757)==(t46335.value.structure_type24757))) goto l7122; break; case STRUCTURE_TYPE27501: if (!((t46334.value.structure_type27501)==(t46335.value.structure_type27501))) goto l7122; break; case STRUCTURE_TYPE27510: if (!((t46334.value.structure_type27510)==(t46335.value.structure_type27510))) goto l7122; break; case STRUCTURE_TYPE27621: if (!((t46334.value.structure_type27621)==(t46335.value.structure_type27621))) goto l7122; break; case STRUCTURE_TYPE27650: if (!((t46334.value.structure_type27650)==(t46335.value.structure_type27650))) goto l7122; break; case STRUCTURE_TYPE27669: if (!((t46334.value.structure_type27669)==(t46335.value.structure_type27669))) goto l7122; break; case STRUCTURE_TYPE27673: if (!((t46334.value.structure_type27673)==(t46335.value.structure_type27673))) goto l7122; break; case STRUCTURE_TYPE27692: if (!((t46334.value.structure_type27692)==(t46335.value.structure_type27692))) goto l7122; break; case STRUCTURE_TYPE27694: if (!((t46334.value.structure_type27694)==(t46335.value.structure_type27694))) goto l7122; break; case STRUCTURE_TYPE27698: if (!((t46334.value.structure_type27698)==(t46335.value.structure_type27698))) goto l7122; break; case STRUCTURE_TYPE27745: if (!((t46334.value.structure_type27745)==(t46335.value.structure_type27745))) goto l7122; break; case STRUCTURE_TYPE27747: if (!((t46334.value.structure_type27747)==(t46335.value.structure_type27747))) goto l7122; break; case STRUCTURE_TYPE27750: if (!((t46334.value.structure_type27750)==(t46335.value.structure_type27750))) goto l7122; break; case STRUCTURE_TYPE27753: if (!((t46334.value.structure_type27753)==(t46335.value.structure_type27753))) goto l7122; break; case STRUCTURE_TYPE27756: if (!((t46334.value.structure_type27756)==(t46335.value.structure_type27756))) goto l7122; break; case STRUCTURE_TYPE27761: if (!((t46334.value.structure_type27761)==(t46335.value.structure_type27761))) goto l7122; break; case STRUCTURE_TYPE27769: if (!((t46334.value.structure_type27769)==(t46335.value.structure_type27769))) goto l7122; break; case STRUCTURE_TYPE27776: if (!((t46334.value.structure_type27776)==(t46335.value.structure_type27776))) goto l7122; break; case STRUCTURE_TYPE27779: if (!((t46334.value.structure_type27779)==(t46335.value.structure_type27779))) goto l7122; break; case STRUCTURE_TYPE27858: if (!((t46334.value.structure_type27858)==(t46335.value.structure_type27858))) goto l7122; break; case STRING_TYPE: if (!((t46334.value.string_type)==(t46335.value.string_type))) goto l7122; break; case HEADED_VECTOR_TYPE27896: if (!((t46334.value.headed_vector_type27896)==(t46335.value.headed_vector_type27896))) goto l7122; break; case EXTERNAL_SYMBOL_TYPE: if (!((t46334.value.external_symbol_type)==(t46335.value.external_symbol_type))) goto l7122; break; case STRUCTURE_TYPE27908: if (!((t46334.value.structure_type27908)==(t46335.value.structure_type27908))) goto l7122; break; default:;} /* x134520 stalin.sc:17169:600222 */ return 0; l7122: /* x134549 stalin.sc:17170:600226 */ /* x134547 stalin.sc:17170:600240 */ /* x134546 stalin.sc:17170:600258 */ t46345 = a26207; /* x134545 stalin.sc:17170:600241 */ t46336 = f8965(t46345); /* x134548 stalin.sc:17170:600265 */ t46337 = 0; /* x134544 */ /* x134543 */ /* x134542 */ /* x134541 */ /* x134540 */ /* x134539 */ /* x134538 */ /* x134522 */ /* x134521 stalin.sc:17170:600231 */ a26216 = t46336; a26217 = t46337; h14801: /* x134537 stalin.sc:17171:600272 */ /* x134526 stalin.sc:17171:600276 */ /* x134524 stalin.sc:17171:600281 */ t46338 = a26216; /* x134525 stalin.sc:17171:600283 */ t46339 = a26213; /* x268785 stalin.sc:17171:600277 */ /* EQ: dispatching general to general */ if (!((t46338.tag)==(t46339.tag))) goto l7124; switch (t46338.tag) {case FIXNUM_TYPE: if (!((t46338.value.fixnum_type)==(t46339.value.fixnum_type))) goto l7124; break; case FLONUM_TYPE: if (!((t46338.value.flonum_type)==(t46339.value.flonum_type))) goto l7124; break; case INPUT_PORT_TYPE: if (!((t46338.value.input_port_type)==(t46339.value.input_port_type))) goto l7124; break; case OUTPUT_PORT_TYPE: if (!((t46338.value.output_port_type)==(t46339.value.output_port_type))) goto l7124; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t46338.value.native_procedure_type15963)==(t46339.value.native_procedure_type15963))) goto l7124; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t46338.value.native_procedure_type19067)==(t46339.value.native_procedure_type19067))) goto l7124; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t46338.value.native_procedure_type19068)==(t46339.value.native_procedure_type19068))) goto l7124; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t46338.value.native_procedure_type22459)==(t46339.value.native_procedure_type22459))) goto l7124; break; case STRUCTURE_TYPE24753: if (!((t46338.value.structure_type24753)==(t46339.value.structure_type24753))) goto l7124; break; case STRUCTURE_TYPE24757: if (!((t46338.value.structure_type24757)==(t46339.value.structure_type24757))) goto l7124; break; case STRUCTURE_TYPE27501: if (!((t46338.value.structure_type27501)==(t46339.value.structure_type27501))) goto l7124; break; case STRUCTURE_TYPE27510: if (!((t46338.value.structure_type27510)==(t46339.value.structure_type27510))) goto l7124; break; case STRUCTURE_TYPE27621: if (!((t46338.value.structure_type27621)==(t46339.value.structure_type27621))) goto l7124; break; case STRUCTURE_TYPE27650: if (!((t46338.value.structure_type27650)==(t46339.value.structure_type27650))) goto l7124; break; case STRUCTURE_TYPE27669: if (!((t46338.value.structure_type27669)==(t46339.value.structure_type27669))) goto l7124; break; case STRUCTURE_TYPE27673: if (!((t46338.value.structure_type27673)==(t46339.value.structure_type27673))) goto l7124; break; case STRUCTURE_TYPE27692: if (!((t46338.value.structure_type27692)==(t46339.value.structure_type27692))) goto l7124; break; case STRUCTURE_TYPE27694: if (!((t46338.value.structure_type27694)==(t46339.value.structure_type27694))) goto l7124; break; case STRUCTURE_TYPE27698: if (!((t46338.value.structure_type27698)==(t46339.value.structure_type27698))) goto l7124; break; case STRUCTURE_TYPE27745: if (!((t46338.value.structure_type27745)==(t46339.value.structure_type27745))) goto l7124; break; case STRUCTURE_TYPE27747: if (!((t46338.value.structure_type27747)==(t46339.value.structure_type27747))) goto l7124; break; case STRUCTURE_TYPE27750: if (!((t46338.value.structure_type27750)==(t46339.value.structure_type27750))) goto l7124; break; case STRUCTURE_TYPE27753: if (!((t46338.value.structure_type27753)==(t46339.value.structure_type27753))) goto l7124; break; case STRUCTURE_TYPE27756: if (!((t46338.value.structure_type27756)==(t46339.value.structure_type27756))) goto l7124; break; case STRUCTURE_TYPE27761: if (!((t46338.value.structure_type27761)==(t46339.value.structure_type27761))) goto l7124; break; case STRUCTURE_TYPE27769: if (!((t46338.value.structure_type27769)==(t46339.value.structure_type27769))) goto l7124; break; case STRUCTURE_TYPE27776: if (!((t46338.value.structure_type27776)==(t46339.value.structure_type27776))) goto l7124; break; case STRUCTURE_TYPE27779: if (!((t46338.value.structure_type27779)==(t46339.value.structure_type27779))) goto l7124; break; case STRUCTURE_TYPE27858: if (!((t46338.value.structure_type27858)==(t46339.value.structure_type27858))) goto l7124; break; case STRING_TYPE: if (!((t46338.value.string_type)==(t46339.value.string_type))) goto l7124; break; case HEADED_VECTOR_TYPE27896: if (!((t46338.value.headed_vector_type27896)==(t46339.value.headed_vector_type27896))) goto l7124; break; case EXTERNAL_SYMBOL_TYPE: if (!((t46338.value.external_symbol_type)==(t46339.value.external_symbol_type))) goto l7124; break; case STRUCTURE_TYPE27908: if (!((t46338.value.structure_type27908)==(t46339.value.structure_type27908))) goto l7124; break; default:;} /* x134527 stalin.sc:17171:600287 */ return a26217; l7124: /* x134536 stalin.sc:17171:600289 */ /* x134531 stalin.sc:17171:600295 */ /* x134530 stalin.sc:17171:600308 */ t46342 = a26216; /* x134529 stalin.sc:17171:600296 */ t46340 = f8639(t46342); /* x134535 stalin.sc:17171:600311 */ /* x134533 stalin.sc:17171:600314 */ t46343 = a26217; /* x134534 stalin.sc:17171:600316 */ t46344 = 1; /* x268784 stalin.sc:17171:600312 */ t46341 = t46343+t46344; /* x134528 stalin.sc:17171:600290 */ a26216 = t46340; a26217 = t46341; goto h14801; l7120: /* x134565 */ /* x134564 */ /* x134563 stalin.sc:17172:600334 */ /* x134562 stalin.sc:17172:600335 */ /* x296689 QobiScheme.sc:166:5314 */ /* x296688 QobiScheme.sc:166:5321 */ t46332 = "This shouldn\'t happen"; /* x296687 QobiScheme.sc:166:5315 */ stalin_panic(t46332); l7097: /* x134671 */ /* x134575 stalin.sc:17173:600349 */ /* x134574 stalin.sc:17173:600359 */ t46269 = a26208; /* x134573 stalin.sc:17173:600350 */ a41655 = t46269; /* x300732 stalin.sc:3965:133896 */ /* x300731 stalin.sc:3965:133915 */ t46270 = a41655; /* x300730 stalin.sc:3965:133897 */ if (f8219(t46270)==FALSE_TYPE) goto l7099; /* x134666 */ /* x134665 */ /* x134664 stalin.sc:17174:600364 */ /* x134663 stalin.sc:17174:600370 */ t46272 = a686; /* x134662 */ a26218 = t46272; /* x134661 */ /* x134579 */ /* x134577 */ t46273 = a26218; /* x134578 */ t46274 = q18; /* x134576 */ /* MOVE: branching squeezed to general */ if (t46273>=((char *)VALUE_OFFSET)) {t46275.tag = EXTERNAL_SYMBOL_TYPE; t46275.value.external_symbol_type = t46273;} else t46275.tag = (unsigned)t46273; t46276.tag = EXTERNAL_SYMBOL_TYPE; t46276.value.external_symbol_type = t46274; if (f26160(t46275, t46276)==FALSE_TYPE) goto l7101; /* x134582 */ /* x134581 */ /* x134580 stalin.sc:17175:600416 */ return 0; l7101: /* x134660 */ /* x134586 */ /* x134584 */ t46277 = a26218; /* x134585 */ t46278 = q19; /* x134583 */ /* MOVE: branching squeezed to general */ if (t46277>=((char *)VALUE_OFFSET)) {t46279.tag = EXTERNAL_SYMBOL_TYPE; t46279.value.external_symbol_type = t46277;} else t46279.tag = (unsigned)t46277; t46280.tag = EXTERNAL_SYMBOL_TYPE; t46280.value.external_symbol_type = t46278; if (f26160(t46279, t46280)==FALSE_TYPE) goto l7103; /* x134589 */ /* x134588 */ /* x134587 stalin.sc:17176:600439 */ return 1; l7103: /* x134659 */ /* x134593 */ /* x134591 */ t46281 = a26218; /* x134592 */ t46282 = q20; /* x134590 */ /* MOVE: branching squeezed to general */ if (t46281>=((char *)VALUE_OFFSET)) {t46283.tag = EXTERNAL_SYMBOL_TYPE; t46283.value.external_symbol_type = t46281;} else t46283.tag = (unsigned)t46281; t46284.tag = EXTERNAL_SYMBOL_TYPE; t46284.value.external_symbol_type = t46282; if (f26160(t46283, t46284)==FALSE_TYPE) goto l7105; /* x134596 */ /* x134595 */ /* x134594 stalin.sc:17177:600466 */ return 1; l7105: /* x134658 */ /* x134600 */ /* x134598 */ t46285 = a26218; /* x134599 */ t46286 = q21; /* x134597 */ /* MOVE: branching squeezed to general */ if (t46285>=((char *)VALUE_OFFSET)) {t46287.tag = EXTERNAL_SYMBOL_TYPE; t46287.value.external_symbol_type = t46285;} else t46287.tag = (unsigned)t46285; t46288.tag = EXTERNAL_SYMBOL_TYPE; t46288.value.external_symbol_type = t46286; if (f26160(t46287, t46288)==FALSE_TYPE) goto l7107; /* x134603 */ /* x134602 */ /* x134601 stalin.sc:17178:600492 */ return 1; l7107: /* x134657 */ /* x134607 */ /* x134605 */ t46289 = a26218; /* x134606 */ t46290 = q22; /* x134604 */ /* MOVE: branching squeezed to general */ if (t46289>=((char *)VALUE_OFFSET)) {t46291.tag = EXTERNAL_SYMBOL_TYPE; t46291.value.external_symbol_type = t46289;} else t46291.tag = (unsigned)t46289; t46292.tag = EXTERNAL_SYMBOL_TYPE; t46292.value.external_symbol_type = t46290; if (f26160(t46291, t46292)==FALSE_TYPE) goto l7109; /* x134652 */ /* x134651 */ /* x134650 stalin.sc:17180:600512 */ /* x134649 stalin.sc:17180:600522 */ /* x134648 stalin.sc:17180:600544 */ t46309 = a26208; /* x134647 stalin.sc:17180:600523 */ a36950 = t46309; /* x280469 */ /* x280468 */ t46310 = a36950; /* x280467 */ if (!((t46310.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31867]"); structure_ref_error();} t46294 = t46310.value.structure_type27692->s8; /* x134646 */ a26219 = t46294; /* x134645 stalin.sc:17181:600554 */ /* x134611 stalin.sc:17181:600558 */ /* x134609 stalin.sc:17181:600563 */ t46295 = a26207; /* x134610 stalin.sc:17181:600565 */ t46296 = a26219; /* x268783 stalin.sc:17181:600559 */ /* EQ: dispatching general to general */ if (!((t46295.tag)==(t46296.tag))) goto l7111; switch (t46295.tag) {case FIXNUM_TYPE: if (!((t46295.value.fixnum_type)==(t46296.value.fixnum_type))) goto l7111; break; case FLONUM_TYPE: if (!((t46295.value.flonum_type)==(t46296.value.flonum_type))) goto l7111; break; case INPUT_PORT_TYPE: if (!((t46295.value.input_port_type)==(t46296.value.input_port_type))) goto l7111; break; case OUTPUT_PORT_TYPE: if (!((t46295.value.output_port_type)==(t46296.value.output_port_type))) goto l7111; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t46295.value.native_procedure_type15963)==(t46296.value.native_procedure_type15963))) goto l7111; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t46295.value.native_procedure_type19067)==(t46296.value.native_procedure_type19067))) goto l7111; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t46295.value.native_procedure_type19068)==(t46296.value.native_procedure_type19068))) goto l7111; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t46295.value.native_procedure_type22459)==(t46296.value.native_procedure_type22459))) goto l7111; break; case STRUCTURE_TYPE24753: if (!((t46295.value.structure_type24753)==(t46296.value.structure_type24753))) goto l7111; break; case STRUCTURE_TYPE24757: if (!((t46295.value.structure_type24757)==(t46296.value.structure_type24757))) goto l7111; break; case STRUCTURE_TYPE27501: if (!((t46295.value.structure_type27501)==(t46296.value.structure_type27501))) goto l7111; break; case STRUCTURE_TYPE27510: if (!((t46295.value.structure_type27510)==(t46296.value.structure_type27510))) goto l7111; break; case STRUCTURE_TYPE27621: if (!((t46295.value.structure_type27621)==(t46296.value.structure_type27621))) goto l7111; break; case STRUCTURE_TYPE27650: if (!((t46295.value.structure_type27650)==(t46296.value.structure_type27650))) goto l7111; break; case STRUCTURE_TYPE27669: if (!((t46295.value.structure_type27669)==(t46296.value.structure_type27669))) goto l7111; break; case STRUCTURE_TYPE27673: if (!((t46295.value.structure_type27673)==(t46296.value.structure_type27673))) goto l7111; break; case STRUCTURE_TYPE27692: if (!((t46295.value.structure_type27692)==(t46296.value.structure_type27692))) goto l7111; break; case STRUCTURE_TYPE27694: if (!((t46295.value.structure_type27694)==(t46296.value.structure_type27694))) goto l7111; break; case STRUCTURE_TYPE27698: if (!((t46295.value.structure_type27698)==(t46296.value.structure_type27698))) goto l7111; break; case STRUCTURE_TYPE27745: if (!((t46295.value.structure_type27745)==(t46296.value.structure_type27745))) goto l7111; break; case STRUCTURE_TYPE27747: if (!((t46295.value.structure_type27747)==(t46296.value.structure_type27747))) goto l7111; break; case STRUCTURE_TYPE27750: if (!((t46295.value.structure_type27750)==(t46296.value.structure_type27750))) goto l7111; break; case STRUCTURE_TYPE27753: if (!((t46295.value.structure_type27753)==(t46296.value.structure_type27753))) goto l7111; break; case STRUCTURE_TYPE27756: if (!((t46295.value.structure_type27756)==(t46296.value.structure_type27756))) goto l7111; break; case STRUCTURE_TYPE27761: if (!((t46295.value.structure_type27761)==(t46296.value.structure_type27761))) goto l7111; break; case STRUCTURE_TYPE27769: if (!((t46295.value.structure_type27769)==(t46296.value.structure_type27769))) goto l7111; break; case STRUCTURE_TYPE27776: if (!((t46295.value.structure_type27776)==(t46296.value.structure_type27776))) goto l7111; break; case STRUCTURE_TYPE27779: if (!((t46295.value.structure_type27779)==(t46296.value.structure_type27779))) goto l7111; break; case STRUCTURE_TYPE27858: if (!((t46295.value.structure_type27858)==(t46296.value.structure_type27858))) goto l7111; break; case STRING_TYPE: if (!((t46295.value.string_type)==(t46296.value.string_type))) goto l7111; break; case HEADED_VECTOR_TYPE27896: if (!((t46295.value.headed_vector_type27896)==(t46296.value.headed_vector_type27896))) goto l7111; break; case EXTERNAL_SYMBOL_TYPE: if (!((t46295.value.external_symbol_type)==(t46296.value.external_symbol_type))) goto l7111; break; case STRUCTURE_TYPE27908: if (!((t46295.value.structure_type27908)==(t46296.value.structure_type27908))) goto l7111; break; default:;} /* x134612 stalin.sc:17182:600571 */ return 1; l7111: /* x134644 stalin.sc:17183:600575 */ /* x134642 stalin.sc:17183:600589 */ /* x134641 stalin.sc:17183:600607 */ t46308 = a26207; /* x134640 stalin.sc:17183:600590 */ t46297 = f8965(t46308); /* x134643 stalin.sc:17183:600614 */ t46298 = 0; /* x134639 */ /* x134638 */ /* x134637 */ /* x134636 */ /* x134635 */ /* x134634 */ /* x134633 */ /* x134614 */ /* x134613 stalin.sc:17183:600580 */ a26222 = t46297; a26223 = t46298; h14814: /* x134632 stalin.sc:17184:600621 */ /* x134618 stalin.sc:17184:600625 */ /* x134616 stalin.sc:17184:600630 */ t46299 = a26222; /* x134617 stalin.sc:17184:600632 */ t46300 = a26219; /* x268782 stalin.sc:17184:600626 */ /* EQ: dispatching general to general */ if (!((t46299.tag)==(t46300.tag))) goto l7113; switch (t46299.tag) {case FIXNUM_TYPE: if (!((t46299.value.fixnum_type)==(t46300.value.fixnum_type))) goto l7113; break; case FLONUM_TYPE: if (!((t46299.value.flonum_type)==(t46300.value.flonum_type))) goto l7113; break; case INPUT_PORT_TYPE: if (!((t46299.value.input_port_type)==(t46300.value.input_port_type))) goto l7113; break; case OUTPUT_PORT_TYPE: if (!((t46299.value.output_port_type)==(t46300.value.output_port_type))) goto l7113; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t46299.value.native_procedure_type15963)==(t46300.value.native_procedure_type15963))) goto l7113; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t46299.value.native_procedure_type19067)==(t46300.value.native_procedure_type19067))) goto l7113; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t46299.value.native_procedure_type19068)==(t46300.value.native_procedure_type19068))) goto l7113; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t46299.value.native_procedure_type22459)==(t46300.value.native_procedure_type22459))) goto l7113; break; case STRUCTURE_TYPE24753: if (!((t46299.value.structure_type24753)==(t46300.value.structure_type24753))) goto l7113; break; case STRUCTURE_TYPE24757: if (!((t46299.value.structure_type24757)==(t46300.value.structure_type24757))) goto l7113; break; case STRUCTURE_TYPE27501: if (!((t46299.value.structure_type27501)==(t46300.value.structure_type27501))) goto l7113; break; case STRUCTURE_TYPE27510: if (!((t46299.value.structure_type27510)==(t46300.value.structure_type27510))) goto l7113; break; case STRUCTURE_TYPE27621: if (!((t46299.value.structure_type27621)==(t46300.value.structure_type27621))) goto l7113; break; case STRUCTURE_TYPE27650: if (!((t46299.value.structure_type27650)==(t46300.value.structure_type27650))) goto l7113; break; case STRUCTURE_TYPE27669: if (!((t46299.value.structure_type27669)==(t46300.value.structure_type27669))) goto l7113; break; case STRUCTURE_TYPE27673: if (!((t46299.value.structure_type27673)==(t46300.value.structure_type27673))) goto l7113; break; case STRUCTURE_TYPE27692: if (!((t46299.value.structure_type27692)==(t46300.value.structure_type27692))) goto l7113; break; case STRUCTURE_TYPE27694: if (!((t46299.value.structure_type27694)==(t46300.value.structure_type27694))) goto l7113; break; case STRUCTURE_TYPE27698: if (!((t46299.value.structure_type27698)==(t46300.value.structure_type27698))) goto l7113; break; case STRUCTURE_TYPE27745: if (!((t46299.value.structure_type27745)==(t46300.value.structure_type27745))) goto l7113; break; case STRUCTURE_TYPE27747: if (!((t46299.value.structure_type27747)==(t46300.value.structure_type27747))) goto l7113; break; case STRUCTURE_TYPE27750: if (!((t46299.value.structure_type27750)==(t46300.value.structure_type27750))) goto l7113; break; case STRUCTURE_TYPE27753: if (!((t46299.value.structure_type27753)==(t46300.value.structure_type27753))) goto l7113; break; case STRUCTURE_TYPE27756: if (!((t46299.value.structure_type27756)==(t46300.value.structure_type27756))) goto l7113; break; case STRUCTURE_TYPE27761: if (!((t46299.value.structure_type27761)==(t46300.value.structure_type27761))) goto l7113; break; case STRUCTURE_TYPE27769: if (!((t46299.value.structure_type27769)==(t46300.value.structure_type27769))) goto l7113; break; case STRUCTURE_TYPE27776: if (!((t46299.value.structure_type27776)==(t46300.value.structure_type27776))) goto l7113; break; case STRUCTURE_TYPE27779: if (!((t46299.value.structure_type27779)==(t46300.value.structure_type27779))) goto l7113; break; case STRUCTURE_TYPE27858: if (!((t46299.value.structure_type27858)==(t46300.value.structure_type27858))) goto l7113; break; case STRING_TYPE: if (!((t46299.value.string_type)==(t46300.value.string_type))) goto l7113; break; case HEADED_VECTOR_TYPE27896: if (!((t46299.value.headed_vector_type27896)==(t46300.value.headed_vector_type27896))) goto l7113; break; case EXTERNAL_SYMBOL_TYPE: if (!((t46299.value.external_symbol_type)==(t46300.value.external_symbol_type))) goto l7113; break; case STRUCTURE_TYPE27908: if (!((t46299.value.structure_type27908)==(t46300.value.structure_type27908))) goto l7113; break; default:;} /* x134622 stalin.sc:17184:600636 */ /* x134620 stalin.sc:17184:600639 */ t46306 = a26223; /* x134621 stalin.sc:17184:600641 */ t46307 = 1; /* x268781 stalin.sc:17184:600637 */ return t46306+t46307; l7113: /* x134631 stalin.sc:17184:600644 */ /* x134626 stalin.sc:17184:600650 */ /* x134625 stalin.sc:17184:600663 */ t46303 = a26222; /* x134624 stalin.sc:17184:600651 */ t46301 = f8639(t46303); /* x134630 stalin.sc:17184:600666 */ /* x134628 stalin.sc:17184:600669 */ t46304 = a26223; /* x134629 stalin.sc:17184:600671 */ t46305 = 1; /* x268780 stalin.sc:17184:600667 */ t46302 = t46304+t46305; /* x134623 stalin.sc:17184:600645 */ a26222 = t46301; a26223 = t46302; goto h14814; l7109: /* x134656 */ /* x134655 */ /* x134654 stalin.sc:17185:600689 */ /* x134653 stalin.sc:17185:600690 */ /* x296709 QobiScheme.sc:166:5314 */ /* x296708 QobiScheme.sc:166:5321 */ t46293 = "This shouldn\'t happen"; /* x296707 QobiScheme.sc:166:5315 */ stalin_panic(t46293); l7099: /* x134670 */ /* x134669 */ /* x134668 stalin.sc:17186:600709 */ /* x134667 stalin.sc:17186:600710 */ /* x296713 QobiScheme.sc:166:5314 */ /* x296712 QobiScheme.sc:166:5321 */ t46271 = "This shouldn\'t happen"; /* x296711 QobiScheme.sc:166:5315 */ stalin_panic(t46271);} /* ACCESSOR[14754] */ struct w61020 f14754(struct w49 a26188, struct w49 a26189) {struct w61020 r14754; char *a26190; /* v */ struct w49 a26194; /* E1 */ struct w49 a26197; /* E */ struct structure_type24753 *a26198; /* C */ char *a26199; /* v */ struct w49 a26200; /* E1 */ struct w49 a26203; /* E */ struct structure_type24753 *a26204; /* C */ struct w49 a36864; /* S */ struct w49 a36867; /* S */ struct w49 a36911; /* S */ struct w49 a36912; /* S */ struct w49 a36913; /* S */ struct w49 a36914; /* S */ struct w49 a36915; /* S */ struct w49 a36916; /* S */ struct w49 a36919; /* S */ struct w49 a36965; /* S */ struct w49 a36992; /* S */ struct w49 a37073; /* S */ struct w49 a41654; /* G */ struct w49 a41669; /* G */ struct w49 a41699; /* G */ struct w49 a41738; /* G */ struct w49 t46355; struct w49 t46356; struct w49 t46357; struct w49 t46358; struct w49 t46359; struct w49 t46360; struct w49 t46361; struct w49 t46362; char *t46364; struct w49 t46365; unsigned t46366; struct w7121 t46367; unsigned t46368; struct w49 t46369; struct w49 t46370; struct w49 t46371; struct w49 t46372; struct w49 t46373; struct w49 t46374; struct w49 t46375; struct w49 t46376; struct w49 t46377; struct w49 t46378; struct w49 t46379; struct w49 t46380; char *t46381; char *t46382; char *t46383; struct w49 t46384; struct w49 t46385; char *t46386; char *t46387; struct w49 t46388; struct w49 t46389; char *t46390; char *t46391; struct w49 t46392; struct w49 t46393; char *t46394; char *t46395; struct w49 t46396; struct w49 t46397; char *t46398; char *t46399; struct w49 t46400; struct w49 t46401; char *t46402; struct w49 t46403; struct w49 t46404; struct w49 t46405; struct w49 t46406; struct structure_type24753 *t46407; struct w49 t46408; struct w49 t46409; struct w49 t46410; struct structure_type24753 *t46411; struct w49 t46412; struct structure_type24753 *t46413; struct structure_type24753 *t46414; struct w49 t46415; struct w61020 t46416; struct w49 t46417; struct w49 t46418; struct structure_type24753 *t46419; struct structure_type24753 *t46420; struct w49 t46421; struct w61020 t46422; struct structure_type24753 *t46423; struct w49 t46424; struct w49 t46425; struct w49 t46426; struct structure_type24753 *t46427; struct structure_type24753 *t46428; struct w49 t46429; struct w61020 t46430; struct structure_type24753 *t46431; struct w49 t46432; struct w49 t46433; struct w49 t46434; struct w49 t46435; struct w49 t46436; struct w49 t46437; struct w49 t46438; struct w49 t46439; struct structure_type24753 *t46440; struct structure_type24753 *t46441; struct w49 t46442; struct w61020 t46443; struct structure_type24753 *t46444; struct structure_type24753 *t46445; struct structure_type24753 *t46446; struct w49 t46447; struct w61020 t46448; struct w49 t46449; struct w49 t46450; struct w49 t46451; struct w49 t46452; struct w49 t46453; struct structure_type24753 *t46454; struct structure_type24753 *t46455; struct w49 t46456; struct w61020 t46457; struct structure_type24753 *t46458; struct w49 t46459; struct w49 t46460; struct w49 t46461; struct w49 t46462; struct w49 t46463; struct w49 t46464; struct structure_type24753 *t46465; struct structure_type24753 *t46466; struct w49 t46467; struct w61020 t46468; struct structure_type24753 *t46469; struct structure_type24753 *t46470; struct structure_type24753 *t46471; struct w49 t46472; struct w61020 t46473; struct w49 t46474; struct w49 t46475; struct w49 t46476; struct w49 t46477; struct w49 t46478; struct structure_type24753 *t46479; struct structure_type24753 *t46480; struct w49 t46481; struct w61020 t46482; struct structure_type24753 *t46483; struct w49 t46484; struct w49 t46485; struct structure_type24753 *t46486; struct w49 t46487; struct structure_type24753 *t46488; struct w49 t46489; struct w49 t46490; struct w49 t46491; struct w49 t46492; struct structure_type24753 *t46493; struct structure_type24753 *t46494; struct w49 t46495; struct w61020 t46496; struct w49 t46497; struct w49 t46498; struct structure_type24753 *t46499; struct structure_type24753 *t46500; struct w49 t46501; struct w61020 t46502; struct w49 t46503; struct w49 t46504; struct structure_type24753 *t46505; struct w49 t46506; struct structure_type24753 *t46507; struct w49 t46508; struct w49 t46509; struct w49 t46510; struct w49 t46511; struct structure_type24753 *t46512; struct structure_type24753 *t46513; struct w49 t46514; struct w61020 t46515; struct w49 t46516; struct w49 t46517; struct structure_type24753 *t46518; struct structure_type24753 *t46519; struct w49 t46520; struct w61020 t46521; struct w49 t46522; struct w49 t46523; char *t46524; char *t46525; char *t46526; struct w49 t46527; struct w49 t46528; char *t46529; char *t46530; struct w49 t46531; struct w49 t46532; char *t46533; char *t46534; struct w49 t46535; struct w49 t46536; char *t46537; char *t46538; struct w49 t46539; struct w49 t46540; char *t46541; char *t46542; struct w49 t46543; struct w49 t46544; char *t46545; struct w49 t46546; struct w49 t46547; struct w49 t46548; struct w49 t46549; struct structure_type24753 *t46550; struct w49 t46551; struct w49 t46552; struct w49 t46553; struct structure_type24753 *t46554; struct w49 t46555; struct structure_type24753 *t46556; struct structure_type24753 *t46557; struct w49 t46558; struct w61020 t46559; struct w49 t46560; struct w49 t46561; struct w49 t46562; struct w49 t46563; struct w49 t46564; struct structure_type24753 *t46565; struct w49 t46566; struct w49 t46567; struct w49 t46568; struct w49 t46569; char *t46570; struct w49 t46571; struct structure_type24753 *t46572; struct w49 t46573; struct structure_type24753 *t46574; /* x134443 stalin.sc:17107:598179 */ /* x134084 stalin.sc:17107:598186 */ /* x134083 stalin.sc:17107:598194 */ t46355 = a26188; /* x134082 stalin.sc:17107:598187 */ a41738 = t46355; /* x301064 stalin.sc:3890:131852 */ /* x301063 stalin.sc:3890:131869 */ t46356 = a41738; /* x301062 stalin.sc:3890:131853 */ if (f8204(t46356)==FALSE_TYPE) goto l7126; /* x134089 */ /* x134088 */ /* x134087 stalin.sc:17107:598197 */ /* x134086 stalin.sc:17107:598202 */ t46573 = a26188; /* x134085 stalin.sc:17107:598198 */ t46574 = f14269(t46573); r14754.tag = STRUCTURE_TYPE24753; r14754.value.structure_type24753 = t46574; return r14754; l7126: /* x134442 */ /* x134092 stalin.sc:17108:598214 */ /* x134091 stalin.sc:17108:598223 */ t46357 = a26188; /* x134090 stalin.sc:17108:598215 */ a41699 = t46357; /* x300908 stalin.sc:3916:132554 */ /* x300907 stalin.sc:3916:132572 */ t46358 = a41699; /* x300906 stalin.sc:3916:132555 */ if (f8209(t46358)==FALSE_TYPE) goto l7128; /* x134097 */ /* x134096 */ /* x134095 stalin.sc:17108:598226 */ /* x134094 stalin.sc:17108:598231 */ t46571 = a26188; /* x134093 stalin.sc:17108:598227 */ t46572 = f14269(t46571); r14754.tag = STRUCTURE_TYPE24753; r14754.value.structure_type24753 = t46572; return r14754; l7128: /* x134441 */ /* x134100 stalin.sc:17109:598243 */ /* x134099 stalin.sc:17109:598252 */ t46359 = a26188; /* x134098 stalin.sc:17109:598244 */ a41669 = t46359; /* x300788 stalin.sc:3942:133266 */ /* x300787 stalin.sc:3942:133284 */ t46360 = a41669; /* x300786 stalin.sc:3942:133267 */ if (f8214(t46360)==FALSE_TYPE) goto l7130; /* x134204 */ /* x134203 */ /* x134202 stalin.sc:17110:598256 */ /* x134201 stalin.sc:17110:598262 */ t46524 = a686; /* x134200 */ a26190 = t46524; /* x134199 */ /* x134131 */ /* x134130 */ /* x134128 */ t46525 = a26190; /* x134129 */ t46526 = q18; /* x134127 */ /* MOVE: branching squeezed to general */ if (t46525>=((char *)VALUE_OFFSET)) {t46527.tag = EXTERNAL_SYMBOL_TYPE; t46527.value.external_symbol_type = t46525;} else t46527.tag = (unsigned)t46525; t46528.tag = EXTERNAL_SYMBOL_TYPE; t46528.value.external_symbol_type = t46526; if (!(f26160(t46527, t46528)==FALSE_TYPE)) goto l7157; /* x134124 */ /* x134123 */ /* x134121 */ t46529 = a26190; /* x134122 */ t46530 = q19; /* x134120 */ /* MOVE: branching squeezed to general */ if (t46529>=((char *)VALUE_OFFSET)) {t46531.tag = EXTERNAL_SYMBOL_TYPE; t46531.value.external_symbol_type = t46529;} else t46531.tag = (unsigned)t46529; t46532.tag = EXTERNAL_SYMBOL_TYPE; t46532.value.external_symbol_type = t46530; if (!(f26160(t46531, t46532)==FALSE_TYPE)) goto l7157; /* x134117 */ /* x134116 */ /* x134114 */ t46533 = a26190; /* x134115 */ t46534 = q20; /* x134113 */ /* MOVE: branching squeezed to general */ if (t46533>=((char *)VALUE_OFFSET)) {t46535.tag = EXTERNAL_SYMBOL_TYPE; t46535.value.external_symbol_type = t46533;} else t46535.tag = (unsigned)t46533; t46536.tag = EXTERNAL_SYMBOL_TYPE; t46536.value.external_symbol_type = t46534; if (!(f26160(t46535, t46536)==FALSE_TYPE)) goto l7157; /* x134110 */ /* x134108 */ t46537 = a26190; /* x134109 */ t46538 = q21; /* x134107 */ /* MOVE: branching squeezed to general */ if (t46537>=((char *)VALUE_OFFSET)) {t46539.tag = EXTERNAL_SYMBOL_TYPE; t46539.value.external_symbol_type = t46537;} else t46539.tag = (unsigned)t46537; t46540.tag = EXTERNAL_SYMBOL_TYPE; t46540.value.external_symbol_type = t46538; if (f26160(t46539, t46540)==FALSE_TYPE) goto l7158; l7157: /* x134135 */ /* x134134 */ /* x134133 stalin.sc:17112:598359 */ /* x134132 stalin.sc:17112:598360 */ /* x296553 QobiScheme.sc:166:5314 */ /* x296552 QobiScheme.sc:166:5321 */ t46570 = "This shouldn\'t happen"; /* x296551 QobiScheme.sc:166:5315 */ stalin_panic(t46570); l7158: /* x134198 */ /* x134139 */ /* x134137 */ t46541 = a26190; /* x134138 */ t46542 = q22; /* x134136 */ /* MOVE: branching squeezed to general */ if (t46541>=((char *)VALUE_OFFSET)) {t46543.tag = EXTERNAL_SYMBOL_TYPE; t46543.value.external_symbol_type = t46541;} else t46543.tag = (unsigned)t46541; t46544.tag = EXTERNAL_SYMBOL_TYPE; t46544.value.external_symbol_type = t46542; if (f26160(t46543, t46544)==FALSE_TYPE) goto l7163; /* x134193 */ /* x134192 */ /* x134191 stalin.sc:17114:598385 */ /* x134190 stalin.sc:17114:598395 */ /* x134189 stalin.sc:17114:598413 */ /* x134188 stalin.sc:17114:598425 */ /* x134187 stalin.sc:17114:598444 */ t46568 = a26188; /* x134186 stalin.sc:17114:598426 */ a36864 = t46568; /* x280125 */ /* x280124 */ t46569 = a36864; /* x280123 */ if (!((t46569.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31781]"); structure_ref_error();} t46567 = t46569.value.structure_type27692->s9; /* x134185 stalin.sc:17114:598414 */ t46566 = f8153(t46567); /* x134184 stalin.sc:17114:598396 */ t46546 = f8965(t46566); /* x134183 */ a26194 = t46546; /* x134182 stalin.sc:17115:598455 */ /* x134143 stalin.sc:17115:598459 */ /* x134141 stalin.sc:17115:598464 */ t46547 = a26189; /* x134142 stalin.sc:17115:598466 */ t46548 = a26194; /* x268795 stalin.sc:17115:598460 */ /* EQ: dispatching general to general */ if (!((t46547.tag)==(t46548.tag))) goto l7165; switch (t46547.tag) {case FIXNUM_TYPE: if (!((t46547.value.fixnum_type)==(t46548.value.fixnum_type))) goto l7165; break; case FLONUM_TYPE: if (!((t46547.value.flonum_type)==(t46548.value.flonum_type))) goto l7165; break; case INPUT_PORT_TYPE: if (!((t46547.value.input_port_type)==(t46548.value.input_port_type))) goto l7165; break; case OUTPUT_PORT_TYPE: if (!((t46547.value.output_port_type)==(t46548.value.output_port_type))) goto l7165; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t46547.value.native_procedure_type15963)==(t46548.value.native_procedure_type15963))) goto l7165; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t46547.value.native_procedure_type19067)==(t46548.value.native_procedure_type19067))) goto l7165; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t46547.value.native_procedure_type19068)==(t46548.value.native_procedure_type19068))) goto l7165; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t46547.value.native_procedure_type22459)==(t46548.value.native_procedure_type22459))) goto l7165; break; case STRUCTURE_TYPE24753: if (!((t46547.value.structure_type24753)==(t46548.value.structure_type24753))) goto l7165; break; case STRUCTURE_TYPE24757: if (!((t46547.value.structure_type24757)==(t46548.value.structure_type24757))) goto l7165; break; case STRUCTURE_TYPE27501: if (!((t46547.value.structure_type27501)==(t46548.value.structure_type27501))) goto l7165; break; case STRUCTURE_TYPE27510: if (!((t46547.value.structure_type27510)==(t46548.value.structure_type27510))) goto l7165; break; case STRUCTURE_TYPE27621: if (!((t46547.value.structure_type27621)==(t46548.value.structure_type27621))) goto l7165; break; case STRUCTURE_TYPE27650: if (!((t46547.value.structure_type27650)==(t46548.value.structure_type27650))) goto l7165; break; case STRUCTURE_TYPE27669: if (!((t46547.value.structure_type27669)==(t46548.value.structure_type27669))) goto l7165; break; case STRUCTURE_TYPE27673: if (!((t46547.value.structure_type27673)==(t46548.value.structure_type27673))) goto l7165; break; case STRUCTURE_TYPE27692: if (!((t46547.value.structure_type27692)==(t46548.value.structure_type27692))) goto l7165; break; case STRUCTURE_TYPE27694: if (!((t46547.value.structure_type27694)==(t46548.value.structure_type27694))) goto l7165; break; case STRUCTURE_TYPE27698: if (!((t46547.value.structure_type27698)==(t46548.value.structure_type27698))) goto l7165; break; case STRUCTURE_TYPE27745: if (!((t46547.value.structure_type27745)==(t46548.value.structure_type27745))) goto l7165; break; case STRUCTURE_TYPE27747: if (!((t46547.value.structure_type27747)==(t46548.value.structure_type27747))) goto l7165; break; case STRUCTURE_TYPE27750: if (!((t46547.value.structure_type27750)==(t46548.value.structure_type27750))) goto l7165; break; case STRUCTURE_TYPE27753: if (!((t46547.value.structure_type27753)==(t46548.value.structure_type27753))) goto l7165; break; case STRUCTURE_TYPE27756: if (!((t46547.value.structure_type27756)==(t46548.value.structure_type27756))) goto l7165; break; case STRUCTURE_TYPE27761: if (!((t46547.value.structure_type27761)==(t46548.value.structure_type27761))) goto l7165; break; case STRUCTURE_TYPE27769: if (!((t46547.value.structure_type27769)==(t46548.value.structure_type27769))) goto l7165; break; case STRUCTURE_TYPE27776: if (!((t46547.value.structure_type27776)==(t46548.value.structure_type27776))) goto l7165; break; case STRUCTURE_TYPE27779: if (!((t46547.value.structure_type27779)==(t46548.value.structure_type27779))) goto l7165; break; case STRUCTURE_TYPE27858: if (!((t46547.value.structure_type27858)==(t46548.value.structure_type27858))) goto l7165; break; case STRING_TYPE: if (!((t46547.value.string_type)==(t46548.value.string_type))) goto l7165; break; case HEADED_VECTOR_TYPE27896: if (!((t46547.value.headed_vector_type27896)==(t46548.value.headed_vector_type27896))) goto l7165; break; case EXTERNAL_SYMBOL_TYPE: if (!((t46547.value.external_symbol_type)==(t46548.value.external_symbol_type))) goto l7165; break; case STRUCTURE_TYPE27908: if (!((t46547.value.structure_type27908)==(t46548.value.structure_type27908))) goto l7165; break; default:;} /* x134146 stalin.sc:17116:598478 */ /* x134145 stalin.sc:17116:598483 */ t46564 = a26189; /* x134144 stalin.sc:17116:598479 */ t46565 = f14275(t46564); r14754.tag = STRUCTURE_TYPE24753; r14754.value.structure_type24753 = t46565; return r14754; l7165: /* x134181 stalin.sc:17117:598494 */ /* x134177 stalin.sc:17117:598508 */ /* x134176 stalin.sc:17117:598526 */ t46562 = a26189; /* x134175 stalin.sc:17117:598509 */ t46549 = f8965(t46562); /* x134180 stalin.sc:17117:598533 */ /* x134179 stalin.sc:17117:598538 */ t46563 = a26189; /* x134178 stalin.sc:17117:598534 */ t46550 = f14281(t46563); /* x134174 */ /* x134173 */ /* x134172 */ /* x134171 */ /* x134170 */ /* x134169 */ /* x134168 */ /* x134148 */ /* x134147 stalin.sc:17117:598499 */ a26197 = t46549; a26198 = t46550; h14767: /* x134167 stalin.sc:17118:598545 */ /* x134152 stalin.sc:17118:598549 */ /* x134150 stalin.sc:17118:598554 */ t46551 = a26197; /* x134151 stalin.sc:17118:598556 */ t46552 = a26194; /* x268794 stalin.sc:17118:598550 */ /* EQ: dispatching general to general */ if (!((t46551.tag)==(t46552.tag))) goto l7167; switch (t46551.tag) {case FIXNUM_TYPE: if (!((t46551.value.fixnum_type)==(t46552.value.fixnum_type))) goto l7167; break; case FLONUM_TYPE: if (!((t46551.value.flonum_type)==(t46552.value.flonum_type))) goto l7167; break; case INPUT_PORT_TYPE: if (!((t46551.value.input_port_type)==(t46552.value.input_port_type))) goto l7167; break; case OUTPUT_PORT_TYPE: if (!((t46551.value.output_port_type)==(t46552.value.output_port_type))) goto l7167; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t46551.value.native_procedure_type15963)==(t46552.value.native_procedure_type15963))) goto l7167; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t46551.value.native_procedure_type19067)==(t46552.value.native_procedure_type19067))) goto l7167; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t46551.value.native_procedure_type19068)==(t46552.value.native_procedure_type19068))) goto l7167; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t46551.value.native_procedure_type22459)==(t46552.value.native_procedure_type22459))) goto l7167; break; case STRUCTURE_TYPE24753: if (!((t46551.value.structure_type24753)==(t46552.value.structure_type24753))) goto l7167; break; case STRUCTURE_TYPE24757: if (!((t46551.value.structure_type24757)==(t46552.value.structure_type24757))) goto l7167; break; case STRUCTURE_TYPE27501: if (!((t46551.value.structure_type27501)==(t46552.value.structure_type27501))) goto l7167; break; case STRUCTURE_TYPE27510: if (!((t46551.value.structure_type27510)==(t46552.value.structure_type27510))) goto l7167; break; case STRUCTURE_TYPE27621: if (!((t46551.value.structure_type27621)==(t46552.value.structure_type27621))) goto l7167; break; case STRUCTURE_TYPE27650: if (!((t46551.value.structure_type27650)==(t46552.value.structure_type27650))) goto l7167; break; case STRUCTURE_TYPE27669: if (!((t46551.value.structure_type27669)==(t46552.value.structure_type27669))) goto l7167; break; case STRUCTURE_TYPE27673: if (!((t46551.value.structure_type27673)==(t46552.value.structure_type27673))) goto l7167; break; case STRUCTURE_TYPE27692: if (!((t46551.value.structure_type27692)==(t46552.value.structure_type27692))) goto l7167; break; case STRUCTURE_TYPE27694: if (!((t46551.value.structure_type27694)==(t46552.value.structure_type27694))) goto l7167; break; case STRUCTURE_TYPE27698: if (!((t46551.value.structure_type27698)==(t46552.value.structure_type27698))) goto l7167; break; case STRUCTURE_TYPE27745: if (!((t46551.value.structure_type27745)==(t46552.value.structure_type27745))) goto l7167; break; case STRUCTURE_TYPE27747: if (!((t46551.value.structure_type27747)==(t46552.value.structure_type27747))) goto l7167; break; case STRUCTURE_TYPE27750: if (!((t46551.value.structure_type27750)==(t46552.value.structure_type27750))) goto l7167; break; case STRUCTURE_TYPE27753: if (!((t46551.value.structure_type27753)==(t46552.value.structure_type27753))) goto l7167; break; case STRUCTURE_TYPE27756: if (!((t46551.value.structure_type27756)==(t46552.value.structure_type27756))) goto l7167; break; case STRUCTURE_TYPE27761: if (!((t46551.value.structure_type27761)==(t46552.value.structure_type27761))) goto l7167; break; case STRUCTURE_TYPE27769: if (!((t46551.value.structure_type27769)==(t46552.value.structure_type27769))) goto l7167; break; case STRUCTURE_TYPE27776: if (!((t46551.value.structure_type27776)==(t46552.value.structure_type27776))) goto l7167; break; case STRUCTURE_TYPE27779: if (!((t46551.value.structure_type27779)==(t46552.value.structure_type27779))) goto l7167; break; case STRUCTURE_TYPE27858: if (!((t46551.value.structure_type27858)==(t46552.value.structure_type27858))) goto l7167; break; case STRING_TYPE: if (!((t46551.value.string_type)==(t46552.value.string_type))) goto l7167; break; case HEADED_VECTOR_TYPE27896: if (!((t46551.value.headed_vector_type27896)==(t46552.value.headed_vector_type27896))) goto l7167; break; case EXTERNAL_SYMBOL_TYPE: if (!((t46551.value.external_symbol_type)==(t46552.value.external_symbol_type))) goto l7167; break; case STRUCTURE_TYPE27908: if (!((t46551.value.structure_type27908)==(t46552.value.structure_type27908))) goto l7167; break; default:;} /* x134153 stalin.sc:17119:598566 */ r14754.tag = STRUCTURE_TYPE24753; r14754.value.structure_type24753 = a26198; return r14754; l7167: /* x134166 stalin.sc:17120:598574 */ /* x134157 stalin.sc:17120:598580 */ /* x134156 stalin.sc:17120:598593 */ t46555 = a26197; /* x134155 stalin.sc:17120:598581 */ t46553 = f8639(t46555); /* x134165 stalin.sc:17120:598596 */ /* x134159 stalin.sc:17120:598602 */ t46556 = a26198; /* x134164 stalin.sc:17120:598604 */ /* x134163 stalin.sc:17120:598609 */ /* x134162 stalin.sc:17120:598622 */ t46561 = a26197; /* x134161 stalin.sc:17120:598610 */ t46560 = f8639(t46561); /* x134160 stalin.sc:17120:598605 */ t46557 = f14281(t46560); /* x134158 stalin.sc:17120:598597 */ t46558.tag = STRUCTURE_TYPE24753; t46558.value.structure_type24753 = t46556; t46559.tag = STRUCTURE_TYPE24753; t46559.value.structure_type24753 = t46557; t46554 = f13588(t46558, t46559); /* x134154 stalin.sc:17120:598575 */ a26197 = t46553; a26198 = t46554; goto h14767; l7163: /* x134197 */ /* x134196 */ /* x134195 stalin.sc:17121:598641 */ /* x134194 stalin.sc:17121:598642 */ /* x296557 QobiScheme.sc:166:5314 */ /* x296556 QobiScheme.sc:166:5321 */ t46545 = "This shouldn\'t happen"; /* x296555 QobiScheme.sc:166:5315 */ stalin_panic(t46545); l7130: /* x134440 */ /* x134207 stalin.sc:17122:598662 */ /* x134206 stalin.sc:17122:598672 */ t46361 = a26188; /* x134205 stalin.sc:17122:598663 */ a41654 = t46361; /* x300728 stalin.sc:3965:133896 */ /* x300727 stalin.sc:3965:133915 */ t46362 = a41654; /* x300726 stalin.sc:3965:133897 */ if (f8219(t46362)==FALSE_TYPE) goto l7132; /* x134419 */ /* x134418 */ /* x134417 stalin.sc:17123:598676 */ /* x134416 stalin.sc:17123:598682 */ t46381 = a686; /* x134415 */ a26199 = t46381; /* x134414 */ /* x134211 */ /* x134209 */ t46382 = a26199; /* x134210 */ t46383 = q18; /* x134208 */ /* MOVE: branching squeezed to general */ if (t46382>=((char *)VALUE_OFFSET)) {t46384.tag = EXTERNAL_SYMBOL_TYPE; t46384.value.external_symbol_type = t46382;} else t46384.tag = (unsigned)t46382; t46385.tag = EXTERNAL_SYMBOL_TYPE; t46385.value.external_symbol_type = t46383; if (f26160(t46384, t46385)==FALSE_TYPE) goto l7134; /* x134238 */ /* x134237 */ /* x134236 stalin.sc:17125:598730 */ /* x134235 stalin.sc:17125:598743 */ /* x134218 stalin.sc:17125:598747 */ /* x134216 stalin.sc:17125:598752 */ /* x134215 stalin.sc:17125:598774 */ t46510 = a26188; /* x134214 stalin.sc:17125:598753 */ a36911 = t46510; /* x280313 */ /* x280312 */ t46511 = a36911; /* x280311 */ if (!((t46511.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31828]"); structure_ref_error();} t46508 = t46511.value.structure_type27692->s8; /* x134217 stalin.sc:17125:598777 */ t46509 = a26189; /* x268793 stalin.sc:17125:598748 */ /* EQ: dispatching general to general */ if (!((t46508.tag)==(t46509.tag))) goto l7155; switch (t46508.tag) {case FIXNUM_TYPE: if (!((t46508.value.fixnum_type)==(t46509.value.fixnum_type))) goto l7155; break; case FLONUM_TYPE: if (!((t46508.value.flonum_type)==(t46509.value.flonum_type))) goto l7155; break; case INPUT_PORT_TYPE: if (!((t46508.value.input_port_type)==(t46509.value.input_port_type))) goto l7155; break; case OUTPUT_PORT_TYPE: if (!((t46508.value.output_port_type)==(t46509.value.output_port_type))) goto l7155; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t46508.value.native_procedure_type15963)==(t46509.value.native_procedure_type15963))) goto l7155; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t46508.value.native_procedure_type19067)==(t46509.value.native_procedure_type19067))) goto l7155; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t46508.value.native_procedure_type19068)==(t46509.value.native_procedure_type19068))) goto l7155; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t46508.value.native_procedure_type22459)==(t46509.value.native_procedure_type22459))) goto l7155; break; case STRUCTURE_TYPE24753: if (!((t46508.value.structure_type24753)==(t46509.value.structure_type24753))) goto l7155; break; case STRUCTURE_TYPE24757: if (!((t46508.value.structure_type24757)==(t46509.value.structure_type24757))) goto l7155; break; case STRUCTURE_TYPE27501: if (!((t46508.value.structure_type27501)==(t46509.value.structure_type27501))) goto l7155; break; case STRUCTURE_TYPE27510: if (!((t46508.value.structure_type27510)==(t46509.value.structure_type27510))) goto l7155; break; case STRUCTURE_TYPE27621: if (!((t46508.value.structure_type27621)==(t46509.value.structure_type27621))) goto l7155; break; case STRUCTURE_TYPE27650: if (!((t46508.value.structure_type27650)==(t46509.value.structure_type27650))) goto l7155; break; case STRUCTURE_TYPE27669: if (!((t46508.value.structure_type27669)==(t46509.value.structure_type27669))) goto l7155; break; case STRUCTURE_TYPE27673: if (!((t46508.value.structure_type27673)==(t46509.value.structure_type27673))) goto l7155; break; case STRUCTURE_TYPE27692: if (!((t46508.value.structure_type27692)==(t46509.value.structure_type27692))) goto l7155; break; case STRUCTURE_TYPE27694: if (!((t46508.value.structure_type27694)==(t46509.value.structure_type27694))) goto l7155; break; case STRUCTURE_TYPE27698: if (!((t46508.value.structure_type27698)==(t46509.value.structure_type27698))) goto l7155; break; case STRUCTURE_TYPE27745: if (!((t46508.value.structure_type27745)==(t46509.value.structure_type27745))) goto l7155; break; case STRUCTURE_TYPE27747: if (!((t46508.value.structure_type27747)==(t46509.value.structure_type27747))) goto l7155; break; case STRUCTURE_TYPE27750: if (!((t46508.value.structure_type27750)==(t46509.value.structure_type27750))) goto l7155; break; case STRUCTURE_TYPE27753: if (!((t46508.value.structure_type27753)==(t46509.value.structure_type27753))) goto l7155; break; case STRUCTURE_TYPE27756: if (!((t46508.value.structure_type27756)==(t46509.value.structure_type27756))) goto l7155; break; case STRUCTURE_TYPE27761: if (!((t46508.value.structure_type27761)==(t46509.value.structure_type27761))) goto l7155; break; case STRUCTURE_TYPE27769: if (!((t46508.value.structure_type27769)==(t46509.value.structure_type27769))) goto l7155; break; case STRUCTURE_TYPE27776: if (!((t46508.value.structure_type27776)==(t46509.value.structure_type27776))) goto l7155; break; case STRUCTURE_TYPE27779: if (!((t46508.value.structure_type27779)==(t46509.value.structure_type27779))) goto l7155; break; case STRUCTURE_TYPE27858: if (!((t46508.value.structure_type27858)==(t46509.value.structure_type27858))) goto l7155; break; case STRING_TYPE: if (!((t46508.value.string_type)==(t46509.value.string_type))) goto l7155; break; case HEADED_VECTOR_TYPE27896: if (!((t46508.value.headed_vector_type27896)==(t46509.value.headed_vector_type27896))) goto l7155; break; case EXTERNAL_SYMBOL_TYPE: if (!((t46508.value.external_symbol_type)==(t46509.value.external_symbol_type))) goto l7155; break; case STRUCTURE_TYPE27908: if (!((t46508.value.structure_type27908)==(t46509.value.structure_type27908))) goto l7155; break; default:;} /* x134226 stalin.sc:17126:598786 */ /* x134222 stalin.sc:17126:598791 */ /* x134221 stalin.sc:17126:598796 */ t46522 = a26189; /* x134220 stalin.sc:17126:598792 */ t46518 = f14275(t46522); /* x134225 stalin.sc:17126:598799 */ /* x134224 stalin.sc:17126:598804 */ t46523 = a26188; /* x134223 stalin.sc:17126:598800 */ t46519 = f14269(t46523); /* x134219 stalin.sc:17126:598787 */ t46520.tag = STRUCTURE_TYPE24753; t46520.value.structure_type24753 = t46518; t46521.tag = STRUCTURE_TYPE24753; t46521.value.structure_type24753 = t46519; t46505 = f13585(t46520, t46521); goto l7156; l7155: /* x134234 stalin.sc:17127:598814 */ /* x134230 stalin.sc:17127:598819 */ /* x134229 stalin.sc:17127:598824 */ t46516 = a26189; /* x134228 stalin.sc:17127:598820 */ t46512 = f14281(t46516); /* x134233 stalin.sc:17127:598827 */ /* x134232 stalin.sc:17127:598832 */ t46517 = a26188; /* x134231 stalin.sc:17127:598828 */ t46513 = f14269(t46517); /* x134227 stalin.sc:17127:598815 */ t46514.tag = STRUCTURE_TYPE24753; t46514.value.structure_type24753 = t46512; t46515.tag = STRUCTURE_TYPE24753; t46515.value.structure_type24753 = t46513; t46505 = f13585(t46514, t46515); l7156: /* x134212 stalin.sc:17125:598731 */ t46506.tag = STRUCTURE_TYPE24753; t46506.value.structure_type24753 = t46505; t46507 = f13516(t46506); r14754.tag = STRUCTURE_TYPE24753; r14754.value.structure_type24753 = t46507; return r14754; l7134: /* x134413 */ /* x134242 */ /* x134240 */ t46386 = a26199; /* x134241 */ t46387 = q19; /* x134239 */ /* MOVE: branching squeezed to general */ if (t46386>=((char *)VALUE_OFFSET)) {t46388.tag = EXTERNAL_SYMBOL_TYPE; t46388.value.external_symbol_type = t46386;} else t46388.tag = (unsigned)t46386; t46389.tag = EXTERNAL_SYMBOL_TYPE; t46389.value.external_symbol_type = t46387; if (f26160(t46388, t46389)==FALSE_TYPE) goto l7136; /* x134269 */ /* x134268 */ /* x134267 stalin.sc:17129:598861 */ /* x134266 stalin.sc:17129:598874 */ /* x134249 stalin.sc:17129:598878 */ /* x134247 stalin.sc:17129:598883 */ /* x134246 stalin.sc:17129:598905 */ t46491 = a26188; /* x134245 stalin.sc:17129:598884 */ a36912 = t46491; /* x280317 */ /* x280316 */ t46492 = a36912; /* x280315 */ if (!((t46492.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31829]"); structure_ref_error();} t46489 = t46492.value.structure_type27692->s8; /* x134248 stalin.sc:17129:598908 */ t46490 = a26189; /* x268792 stalin.sc:17129:598879 */ /* EQ: dispatching general to general */ if (!((t46489.tag)==(t46490.tag))) goto l7152; switch (t46489.tag) {case FIXNUM_TYPE: if (!((t46489.value.fixnum_type)==(t46490.value.fixnum_type))) goto l7152; break; case FLONUM_TYPE: if (!((t46489.value.flonum_type)==(t46490.value.flonum_type))) goto l7152; break; case INPUT_PORT_TYPE: if (!((t46489.value.input_port_type)==(t46490.value.input_port_type))) goto l7152; break; case OUTPUT_PORT_TYPE: if (!((t46489.value.output_port_type)==(t46490.value.output_port_type))) goto l7152; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t46489.value.native_procedure_type15963)==(t46490.value.native_procedure_type15963))) goto l7152; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t46489.value.native_procedure_type19067)==(t46490.value.native_procedure_type19067))) goto l7152; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t46489.value.native_procedure_type19068)==(t46490.value.native_procedure_type19068))) goto l7152; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t46489.value.native_procedure_type22459)==(t46490.value.native_procedure_type22459))) goto l7152; break; case STRUCTURE_TYPE24753: if (!((t46489.value.structure_type24753)==(t46490.value.structure_type24753))) goto l7152; break; case STRUCTURE_TYPE24757: if (!((t46489.value.structure_type24757)==(t46490.value.structure_type24757))) goto l7152; break; case STRUCTURE_TYPE27501: if (!((t46489.value.structure_type27501)==(t46490.value.structure_type27501))) goto l7152; break; case STRUCTURE_TYPE27510: if (!((t46489.value.structure_type27510)==(t46490.value.structure_type27510))) goto l7152; break; case STRUCTURE_TYPE27621: if (!((t46489.value.structure_type27621)==(t46490.value.structure_type27621))) goto l7152; break; case STRUCTURE_TYPE27650: if (!((t46489.value.structure_type27650)==(t46490.value.structure_type27650))) goto l7152; break; case STRUCTURE_TYPE27669: if (!((t46489.value.structure_type27669)==(t46490.value.structure_type27669))) goto l7152; break; case STRUCTURE_TYPE27673: if (!((t46489.value.structure_type27673)==(t46490.value.structure_type27673))) goto l7152; break; case STRUCTURE_TYPE27692: if (!((t46489.value.structure_type27692)==(t46490.value.structure_type27692))) goto l7152; break; case STRUCTURE_TYPE27694: if (!((t46489.value.structure_type27694)==(t46490.value.structure_type27694))) goto l7152; break; case STRUCTURE_TYPE27698: if (!((t46489.value.structure_type27698)==(t46490.value.structure_type27698))) goto l7152; break; case STRUCTURE_TYPE27745: if (!((t46489.value.structure_type27745)==(t46490.value.structure_type27745))) goto l7152; break; case STRUCTURE_TYPE27747: if (!((t46489.value.structure_type27747)==(t46490.value.structure_type27747))) goto l7152; break; case STRUCTURE_TYPE27750: if (!((t46489.value.structure_type27750)==(t46490.value.structure_type27750))) goto l7152; break; case STRUCTURE_TYPE27753: if (!((t46489.value.structure_type27753)==(t46490.value.structure_type27753))) goto l7152; break; case STRUCTURE_TYPE27756: if (!((t46489.value.structure_type27756)==(t46490.value.structure_type27756))) goto l7152; break; case STRUCTURE_TYPE27761: if (!((t46489.value.structure_type27761)==(t46490.value.structure_type27761))) goto l7152; break; case STRUCTURE_TYPE27769: if (!((t46489.value.structure_type27769)==(t46490.value.structure_type27769))) goto l7152; break; case STRUCTURE_TYPE27776: if (!((t46489.value.structure_type27776)==(t46490.value.structure_type27776))) goto l7152; break; case STRUCTURE_TYPE27779: if (!((t46489.value.structure_type27779)==(t46490.value.structure_type27779))) goto l7152; break; case STRUCTURE_TYPE27858: if (!((t46489.value.structure_type27858)==(t46490.value.structure_type27858))) goto l7152; break; case STRING_TYPE: if (!((t46489.value.string_type)==(t46490.value.string_type))) goto l7152; break; case HEADED_VECTOR_TYPE27896: if (!((t46489.value.headed_vector_type27896)==(t46490.value.headed_vector_type27896))) goto l7152; break; case EXTERNAL_SYMBOL_TYPE: if (!((t46489.value.external_symbol_type)==(t46490.value.external_symbol_type))) goto l7152; break; case STRUCTURE_TYPE27908: if (!((t46489.value.structure_type27908)==(t46490.value.structure_type27908))) goto l7152; break; default:;} /* x134257 stalin.sc:17130:598917 */ /* x134253 stalin.sc:17130:598923 */ /* x134252 stalin.sc:17130:598928 */ t46503 = a26189; /* x134251 stalin.sc:17130:598924 */ t46499 = f14275(t46503); /* x134256 stalin.sc:17130:598931 */ /* x134255 stalin.sc:17130:598936 */ t46504 = a26188; /* x134254 stalin.sc:17130:598932 */ t46500 = f14269(t46504); /* x134250 stalin.sc:17130:598918 */ t46501.tag = STRUCTURE_TYPE24753; t46501.value.structure_type24753 = t46499; t46502.tag = STRUCTURE_TYPE24753; t46502.value.structure_type24753 = t46500; t46486 = f13588(t46501, t46502); goto l7153; l7152: /* x134265 stalin.sc:17131:598946 */ /* x134261 stalin.sc:17131:598952 */ /* x134260 stalin.sc:17131:598957 */ t46497 = a26189; /* x134259 stalin.sc:17131:598953 */ t46493 = f14281(t46497); /* x134264 stalin.sc:17131:598960 */ /* x134263 stalin.sc:17131:598965 */ t46498 = a26188; /* x134262 stalin.sc:17131:598961 */ t46494 = f14269(t46498); /* x134258 stalin.sc:17131:598947 */ t46495.tag = STRUCTURE_TYPE24753; t46495.value.structure_type24753 = t46493; t46496.tag = STRUCTURE_TYPE24753; t46496.value.structure_type24753 = t46494; t46486 = f13588(t46495, t46496); l7153: /* x134243 stalin.sc:17129:598862 */ t46487.tag = STRUCTURE_TYPE24753; t46487.value.structure_type24753 = t46486; t46488 = f13516(t46487); r14754.tag = STRUCTURE_TYPE24753; r14754.value.structure_type24753 = t46488; return r14754; l7136: /* x134412 */ /* x134273 */ /* x134271 */ t46390 = a26199; /* x134272 */ t46391 = q20; /* x134270 */ /* MOVE: branching squeezed to general */ if (t46390>=((char *)VALUE_OFFSET)) {t46392.tag = EXTERNAL_SYMBOL_TYPE; t46392.value.external_symbol_type = t46390;} else t46392.tag = (unsigned)t46390; t46393.tag = EXTERNAL_SYMBOL_TYPE; t46393.value.external_symbol_type = t46391; if (f26160(t46392, t46393)==FALSE_TYPE) goto l7138; /* x134305 */ /* x134304 */ /* x134303 stalin.sc:17133:598998 */ /* x134279 stalin.sc:17133:599002 */ /* x134277 stalin.sc:17133:599007 */ /* x134276 stalin.sc:17133:599029 */ t46463 = a26188; /* x134275 stalin.sc:17133:599008 */ a36914 = t46463; /* x280325 */ /* x280324 */ t46464 = a36914; /* x280323 */ if (!((t46464.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31831]"); structure_ref_error();} t46461 = t46464.value.structure_type27692->s8; /* x134278 stalin.sc:17133:599032 */ t46462 = a26189; /* x268791 stalin.sc:17133:599003 */ /* EQ: dispatching general to general */ if (!((t46461.tag)==(t46462.tag))) goto l7150; switch (t46461.tag) {case FIXNUM_TYPE: if (!((t46461.value.fixnum_type)==(t46462.value.fixnum_type))) goto l7150; break; case FLONUM_TYPE: if (!((t46461.value.flonum_type)==(t46462.value.flonum_type))) goto l7150; break; case INPUT_PORT_TYPE: if (!((t46461.value.input_port_type)==(t46462.value.input_port_type))) goto l7150; break; case OUTPUT_PORT_TYPE: if (!((t46461.value.output_port_type)==(t46462.value.output_port_type))) goto l7150; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t46461.value.native_procedure_type15963)==(t46462.value.native_procedure_type15963))) goto l7150; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t46461.value.native_procedure_type19067)==(t46462.value.native_procedure_type19067))) goto l7150; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t46461.value.native_procedure_type19068)==(t46462.value.native_procedure_type19068))) goto l7150; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t46461.value.native_procedure_type22459)==(t46462.value.native_procedure_type22459))) goto l7150; break; case STRUCTURE_TYPE24753: if (!((t46461.value.structure_type24753)==(t46462.value.structure_type24753))) goto l7150; break; case STRUCTURE_TYPE24757: if (!((t46461.value.structure_type24757)==(t46462.value.structure_type24757))) goto l7150; break; case STRUCTURE_TYPE27501: if (!((t46461.value.structure_type27501)==(t46462.value.structure_type27501))) goto l7150; break; case STRUCTURE_TYPE27510: if (!((t46461.value.structure_type27510)==(t46462.value.structure_type27510))) goto l7150; break; case STRUCTURE_TYPE27621: if (!((t46461.value.structure_type27621)==(t46462.value.structure_type27621))) goto l7150; break; case STRUCTURE_TYPE27650: if (!((t46461.value.structure_type27650)==(t46462.value.structure_type27650))) goto l7150; break; case STRUCTURE_TYPE27669: if (!((t46461.value.structure_type27669)==(t46462.value.structure_type27669))) goto l7150; break; case STRUCTURE_TYPE27673: if (!((t46461.value.structure_type27673)==(t46462.value.structure_type27673))) goto l7150; break; case STRUCTURE_TYPE27692: if (!((t46461.value.structure_type27692)==(t46462.value.structure_type27692))) goto l7150; break; case STRUCTURE_TYPE27694: if (!((t46461.value.structure_type27694)==(t46462.value.structure_type27694))) goto l7150; break; case STRUCTURE_TYPE27698: if (!((t46461.value.structure_type27698)==(t46462.value.structure_type27698))) goto l7150; break; case STRUCTURE_TYPE27745: if (!((t46461.value.structure_type27745)==(t46462.value.structure_type27745))) goto l7150; break; case STRUCTURE_TYPE27747: if (!((t46461.value.structure_type27747)==(t46462.value.structure_type27747))) goto l7150; break; case STRUCTURE_TYPE27750: if (!((t46461.value.structure_type27750)==(t46462.value.structure_type27750))) goto l7150; break; case STRUCTURE_TYPE27753: if (!((t46461.value.structure_type27753)==(t46462.value.structure_type27753))) goto l7150; break; case STRUCTURE_TYPE27756: if (!((t46461.value.structure_type27756)==(t46462.value.structure_type27756))) goto l7150; break; case STRUCTURE_TYPE27761: if (!((t46461.value.structure_type27761)==(t46462.value.structure_type27761))) goto l7150; break; case STRUCTURE_TYPE27769: if (!((t46461.value.structure_type27769)==(t46462.value.structure_type27769))) goto l7150; break; case STRUCTURE_TYPE27776: if (!((t46461.value.structure_type27776)==(t46462.value.structure_type27776))) goto l7150; break; case STRUCTURE_TYPE27779: if (!((t46461.value.structure_type27779)==(t46462.value.structure_type27779))) goto l7150; break; case STRUCTURE_TYPE27858: if (!((t46461.value.structure_type27858)==(t46462.value.structure_type27858))) goto l7150; break; case STRING_TYPE: if (!((t46461.value.string_type)==(t46462.value.string_type))) goto l7150; break; case HEADED_VECTOR_TYPE27896: if (!((t46461.value.headed_vector_type27896)==(t46462.value.headed_vector_type27896))) goto l7150; break; case EXTERNAL_SYMBOL_TYPE: if (!((t46461.value.external_symbol_type)==(t46462.value.external_symbol_type))) goto l7150; break; case STRUCTURE_TYPE27908: if (!((t46461.value.structure_type27908)==(t46462.value.structure_type27908))) goto l7150; break; default:;} /* x134287 stalin.sc:17134:599042 */ /* x134283 stalin.sc:17134:599048 */ /* x134282 stalin.sc:17134:599053 */ t46484 = a26189; /* x134281 stalin.sc:17134:599049 */ t46479 = f14275(t46484); /* x134286 stalin.sc:17134:599056 */ /* x134285 stalin.sc:17134:599061 */ t46485 = a26188; /* x134284 stalin.sc:17134:599057 */ t46480 = f14269(t46485); /* x134280 stalin.sc:17134:599043 */ t46481.tag = STRUCTURE_TYPE24753; t46481.value.structure_type24753 = t46479; t46482.tag = STRUCTURE_TYPE24753; t46482.value.structure_type24753 = t46480; t46483 = f13588(t46481, t46482); r14754.tag = STRUCTURE_TYPE24753; r14754.value.structure_type24753 = t46483; return r14754; l7150: /* x134302 stalin.sc:17135:599072 */ /* x134298 stalin.sc:17135:599078 */ /* x134292 stalin.sc:17135:599083 */ /* x134291 stalin.sc:17135:599088 */ t46474 = a26189; /* x134290 stalin.sc:17135:599084 */ t46470 = f14281(t46474); /* x134297 stalin.sc:17135:599091 */ /* x134296 stalin.sc:17135:599096 */ /* x134295 stalin.sc:17135:599118 */ t46476 = a26188; /* x134294 stalin.sc:17135:599097 */ a36913 = t46476; /* x280321 */ /* x280320 */ t46477 = a36913; /* x280319 */ if (!((t46477.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31830]"); structure_ref_error();} t46475 = t46477.value.structure_type27692->s8; /* x134293 stalin.sc:17135:599092 */ t46471 = f14275(t46475); /* x134289 stalin.sc:17135:599079 */ t46472.tag = STRUCTURE_TYPE24753; t46472.value.structure_type24753 = t46470; t46473.tag = STRUCTURE_TYPE24753; t46473.value.structure_type24753 = t46471; t46465 = f13585(t46472, t46473); /* x134301 stalin.sc:17135:599123 */ /* x134300 stalin.sc:17135:599128 */ t46478 = a26188; /* x134299 stalin.sc:17135:599124 */ t46466 = f14269(t46478); /* x134288 stalin.sc:17135:599073 */ t46467.tag = STRUCTURE_TYPE24753; t46467.value.structure_type24753 = t46465; t46468.tag = STRUCTURE_TYPE24753; t46468.value.structure_type24753 = t46466; t46469 = f13588(t46467, t46468); r14754.tag = STRUCTURE_TYPE24753; r14754.value.structure_type24753 = t46469; return r14754; l7138: /* x134411 */ /* x134309 */ /* x134307 */ t46394 = a26199; /* x134308 */ t46395 = q21; /* x134306 */ /* MOVE: branching squeezed to general */ if (t46394>=((char *)VALUE_OFFSET)) {t46396.tag = EXTERNAL_SYMBOL_TYPE; t46396.value.external_symbol_type = t46394;} else t46396.tag = (unsigned)t46394; t46397.tag = EXTERNAL_SYMBOL_TYPE; t46397.value.external_symbol_type = t46395; if (f26160(t46396, t46397)==FALSE_TYPE) goto l7140; /* x134341 */ /* x134340 */ /* x134339 stalin.sc:17137:599159 */ /* x134315 stalin.sc:17137:599163 */ /* x134313 stalin.sc:17137:599168 */ /* x134312 stalin.sc:17137:599190 */ t46438 = a26188; /* x134311 stalin.sc:17137:599169 */ a36916 = t46438; /* x280333 */ /* x280332 */ t46439 = a36916; /* x280331 */ if (!((t46439.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31833]"); structure_ref_error();} t46436 = t46439.value.structure_type27692->s8; /* x134314 stalin.sc:17137:599193 */ t46437 = a26189; /* x268790 stalin.sc:17137:599164 */ /* EQ: dispatching general to general */ if (!((t46436.tag)==(t46437.tag))) goto l7148; switch (t46436.tag) {case FIXNUM_TYPE: if (!((t46436.value.fixnum_type)==(t46437.value.fixnum_type))) goto l7148; break; case FLONUM_TYPE: if (!((t46436.value.flonum_type)==(t46437.value.flonum_type))) goto l7148; break; case INPUT_PORT_TYPE: if (!((t46436.value.input_port_type)==(t46437.value.input_port_type))) goto l7148; break; case OUTPUT_PORT_TYPE: if (!((t46436.value.output_port_type)==(t46437.value.output_port_type))) goto l7148; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t46436.value.native_procedure_type15963)==(t46437.value.native_procedure_type15963))) goto l7148; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t46436.value.native_procedure_type19067)==(t46437.value.native_procedure_type19067))) goto l7148; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t46436.value.native_procedure_type19068)==(t46437.value.native_procedure_type19068))) goto l7148; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t46436.value.native_procedure_type22459)==(t46437.value.native_procedure_type22459))) goto l7148; break; case STRUCTURE_TYPE24753: if (!((t46436.value.structure_type24753)==(t46437.value.structure_type24753))) goto l7148; break; case STRUCTURE_TYPE24757: if (!((t46436.value.structure_type24757)==(t46437.value.structure_type24757))) goto l7148; break; case STRUCTURE_TYPE27501: if (!((t46436.value.structure_type27501)==(t46437.value.structure_type27501))) goto l7148; break; case STRUCTURE_TYPE27510: if (!((t46436.value.structure_type27510)==(t46437.value.structure_type27510))) goto l7148; break; case STRUCTURE_TYPE27621: if (!((t46436.value.structure_type27621)==(t46437.value.structure_type27621))) goto l7148; break; case STRUCTURE_TYPE27650: if (!((t46436.value.structure_type27650)==(t46437.value.structure_type27650))) goto l7148; break; case STRUCTURE_TYPE27669: if (!((t46436.value.structure_type27669)==(t46437.value.structure_type27669))) goto l7148; break; case STRUCTURE_TYPE27673: if (!((t46436.value.structure_type27673)==(t46437.value.structure_type27673))) goto l7148; break; case STRUCTURE_TYPE27692: if (!((t46436.value.structure_type27692)==(t46437.value.structure_type27692))) goto l7148; break; case STRUCTURE_TYPE27694: if (!((t46436.value.structure_type27694)==(t46437.value.structure_type27694))) goto l7148; break; case STRUCTURE_TYPE27698: if (!((t46436.value.structure_type27698)==(t46437.value.structure_type27698))) goto l7148; break; case STRUCTURE_TYPE27745: if (!((t46436.value.structure_type27745)==(t46437.value.structure_type27745))) goto l7148; break; case STRUCTURE_TYPE27747: if (!((t46436.value.structure_type27747)==(t46437.value.structure_type27747))) goto l7148; break; case STRUCTURE_TYPE27750: if (!((t46436.value.structure_type27750)==(t46437.value.structure_type27750))) goto l7148; break; case STRUCTURE_TYPE27753: if (!((t46436.value.structure_type27753)==(t46437.value.structure_type27753))) goto l7148; break; case STRUCTURE_TYPE27756: if (!((t46436.value.structure_type27756)==(t46437.value.structure_type27756))) goto l7148; break; case STRUCTURE_TYPE27761: if (!((t46436.value.structure_type27761)==(t46437.value.structure_type27761))) goto l7148; break; case STRUCTURE_TYPE27769: if (!((t46436.value.structure_type27769)==(t46437.value.structure_type27769))) goto l7148; break; case STRUCTURE_TYPE27776: if (!((t46436.value.structure_type27776)==(t46437.value.structure_type27776))) goto l7148; break; case STRUCTURE_TYPE27779: if (!((t46436.value.structure_type27779)==(t46437.value.structure_type27779))) goto l7148; break; case STRUCTURE_TYPE27858: if (!((t46436.value.structure_type27858)==(t46437.value.structure_type27858))) goto l7148; break; case STRING_TYPE: if (!((t46436.value.string_type)==(t46437.value.string_type))) goto l7148; break; case HEADED_VECTOR_TYPE27896: if (!((t46436.value.headed_vector_type27896)==(t46437.value.headed_vector_type27896))) goto l7148; break; case EXTERNAL_SYMBOL_TYPE: if (!((t46436.value.external_symbol_type)==(t46437.value.external_symbol_type))) goto l7148; break; case STRUCTURE_TYPE27908: if (!((t46436.value.structure_type27908)==(t46437.value.structure_type27908))) goto l7148; break; default:;} /* x134323 stalin.sc:17138:599203 */ /* x134319 stalin.sc:17138:599209 */ /* x134318 stalin.sc:17138:599214 */ t46459 = a26189; /* x134317 stalin.sc:17138:599210 */ t46454 = f14275(t46459); /* x134322 stalin.sc:17138:599217 */ /* x134321 stalin.sc:17138:599222 */ t46460 = a26188; /* x134320 stalin.sc:17138:599218 */ t46455 = f14269(t46460); /* x134316 stalin.sc:17138:599204 */ t46456.tag = STRUCTURE_TYPE24753; t46456.value.structure_type24753 = t46454; t46457.tag = STRUCTURE_TYPE24753; t46457.value.structure_type24753 = t46455; t46458 = f13588(t46456, t46457); r14754.tag = STRUCTURE_TYPE24753; r14754.value.structure_type24753 = t46458; return r14754; l7148: /* x134338 stalin.sc:17139:599233 */ /* x134334 stalin.sc:17139:599239 */ /* x134328 stalin.sc:17139:599245 */ /* x134327 stalin.sc:17139:599250 */ t46449 = a26189; /* x134326 stalin.sc:17139:599246 */ t46445 = f14281(t46449); /* x134333 stalin.sc:17139:599253 */ /* x134332 stalin.sc:17139:599258 */ /* x134331 stalin.sc:17139:599280 */ t46451 = a26188; /* x134330 stalin.sc:17139:599259 */ a36915 = t46451; /* x280329 */ /* x280328 */ t46452 = a36915; /* x280327 */ if (!((t46452.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31832]"); structure_ref_error();} t46450 = t46452.value.structure_type27692->s8; /* x134329 stalin.sc:17139:599254 */ t46446 = f14275(t46450); /* x134325 stalin.sc:17139:599240 */ t46447.tag = STRUCTURE_TYPE24753; t46447.value.structure_type24753 = t46445; t46448.tag = STRUCTURE_TYPE24753; t46448.value.structure_type24753 = t46446; t46440 = f13588(t46447, t46448); /* x134337 stalin.sc:17139:599285 */ /* x134336 stalin.sc:17139:599290 */ t46453 = a26188; /* x134335 stalin.sc:17139:599286 */ t46441 = f14269(t46453); /* x134324 stalin.sc:17139:599234 */ t46442.tag = STRUCTURE_TYPE24753; t46442.value.structure_type24753 = t46440; t46443.tag = STRUCTURE_TYPE24753; t46443.value.structure_type24753 = t46441; t46444 = f13588(t46442, t46443); r14754.tag = STRUCTURE_TYPE24753; r14754.value.structure_type24753 = t46444; return r14754; l7140: /* x134410 */ /* x134345 */ /* x134343 */ t46398 = a26199; /* x134344 */ t46399 = q22; /* x134342 */ /* MOVE: branching squeezed to general */ if (t46398>=((char *)VALUE_OFFSET)) {t46400.tag = EXTERNAL_SYMBOL_TYPE; t46400.value.external_symbol_type = t46398;} else t46400.tag = (unsigned)t46398; t46401.tag = EXTERNAL_SYMBOL_TYPE; t46401.value.external_symbol_type = t46399; if (f26160(t46400, t46401)==FALSE_TYPE) goto l7142; /* x134405 */ /* x134404 */ /* x134403 stalin.sc:17141:599311 */ /* x134402 stalin.sc:17141:599321 */ /* x134401 stalin.sc:17141:599343 */ t46434 = a26188; /* x134400 stalin.sc:17141:599322 */ a36919 = t46434; /* x280345 */ /* x280344 */ t46435 = a36919; /* x280343 */ if (!((t46435.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31836]"); structure_ref_error();} t46403 = t46435.value.structure_type27692->s8; /* x134399 */ a26200 = t46403; /* x134398 stalin.sc:17142:599352 */ /* x134349 stalin.sc:17142:599356 */ /* x134347 stalin.sc:17142:599361 */ t46404 = a26189; /* x134348 stalin.sc:17142:599363 */ t46405 = a26200; /* x268789 stalin.sc:17142:599357 */ /* EQ: dispatching general to general */ if (!((t46404.tag)==(t46405.tag))) goto l7144; switch (t46404.tag) {case FIXNUM_TYPE: if (!((t46404.value.fixnum_type)==(t46405.value.fixnum_type))) goto l7144; break; case FLONUM_TYPE: if (!((t46404.value.flonum_type)==(t46405.value.flonum_type))) goto l7144; break; case INPUT_PORT_TYPE: if (!((t46404.value.input_port_type)==(t46405.value.input_port_type))) goto l7144; break; case OUTPUT_PORT_TYPE: if (!((t46404.value.output_port_type)==(t46405.value.output_port_type))) goto l7144; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t46404.value.native_procedure_type15963)==(t46405.value.native_procedure_type15963))) goto l7144; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t46404.value.native_procedure_type19067)==(t46405.value.native_procedure_type19067))) goto l7144; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t46404.value.native_procedure_type19068)==(t46405.value.native_procedure_type19068))) goto l7144; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t46404.value.native_procedure_type22459)==(t46405.value.native_procedure_type22459))) goto l7144; break; case STRUCTURE_TYPE24753: if (!((t46404.value.structure_type24753)==(t46405.value.structure_type24753))) goto l7144; break; case STRUCTURE_TYPE24757: if (!((t46404.value.structure_type24757)==(t46405.value.structure_type24757))) goto l7144; break; case STRUCTURE_TYPE27501: if (!((t46404.value.structure_type27501)==(t46405.value.structure_type27501))) goto l7144; break; case STRUCTURE_TYPE27510: if (!((t46404.value.structure_type27510)==(t46405.value.structure_type27510))) goto l7144; break; case STRUCTURE_TYPE27621: if (!((t46404.value.structure_type27621)==(t46405.value.structure_type27621))) goto l7144; break; case STRUCTURE_TYPE27650: if (!((t46404.value.structure_type27650)==(t46405.value.structure_type27650))) goto l7144; break; case STRUCTURE_TYPE27669: if (!((t46404.value.structure_type27669)==(t46405.value.structure_type27669))) goto l7144; break; case STRUCTURE_TYPE27673: if (!((t46404.value.structure_type27673)==(t46405.value.structure_type27673))) goto l7144; break; case STRUCTURE_TYPE27692: if (!((t46404.value.structure_type27692)==(t46405.value.structure_type27692))) goto l7144; break; case STRUCTURE_TYPE27694: if (!((t46404.value.structure_type27694)==(t46405.value.structure_type27694))) goto l7144; break; case STRUCTURE_TYPE27698: if (!((t46404.value.structure_type27698)==(t46405.value.structure_type27698))) goto l7144; break; case STRUCTURE_TYPE27745: if (!((t46404.value.structure_type27745)==(t46405.value.structure_type27745))) goto l7144; break; case STRUCTURE_TYPE27747: if (!((t46404.value.structure_type27747)==(t46405.value.structure_type27747))) goto l7144; break; case STRUCTURE_TYPE27750: if (!((t46404.value.structure_type27750)==(t46405.value.structure_type27750))) goto l7144; break; case STRUCTURE_TYPE27753: if (!((t46404.value.structure_type27753)==(t46405.value.structure_type27753))) goto l7144; break; case STRUCTURE_TYPE27756: if (!((t46404.value.structure_type27756)==(t46405.value.structure_type27756))) goto l7144; break; case STRUCTURE_TYPE27761: if (!((t46404.value.structure_type27761)==(t46405.value.structure_type27761))) goto l7144; break; case STRUCTURE_TYPE27769: if (!((t46404.value.structure_type27769)==(t46405.value.structure_type27769))) goto l7144; break; case STRUCTURE_TYPE27776: if (!((t46404.value.structure_type27776)==(t46405.value.structure_type27776))) goto l7144; break; case STRUCTURE_TYPE27779: if (!((t46404.value.structure_type27779)==(t46405.value.structure_type27779))) goto l7144; break; case STRUCTURE_TYPE27858: if (!((t46404.value.structure_type27858)==(t46405.value.structure_type27858))) goto l7144; break; case STRING_TYPE: if (!((t46404.value.string_type)==(t46405.value.string_type))) goto l7144; break; case HEADED_VECTOR_TYPE27896: if (!((t46404.value.headed_vector_type27896)==(t46405.value.headed_vector_type27896))) goto l7144; break; case EXTERNAL_SYMBOL_TYPE: if (!((t46404.value.external_symbol_type)==(t46405.value.external_symbol_type))) goto l7144; break; case STRUCTURE_TYPE27908: if (!((t46404.value.structure_type27908)==(t46405.value.structure_type27908))) goto l7144; break; default:;} /* x134357 stalin.sc:17143:599375 */ /* x134353 stalin.sc:17143:599381 */ /* x134352 stalin.sc:17143:599386 */ t46432 = a26189; /* x134351 stalin.sc:17143:599382 */ t46427 = f14275(t46432); /* x134356 stalin.sc:17143:599389 */ /* x134355 stalin.sc:17143:599394 */ t46433 = a26188; /* x134354 stalin.sc:17143:599390 */ t46428 = f14269(t46433); /* x134350 stalin.sc:17143:599376 */ t46429.tag = STRUCTURE_TYPE24753; t46429.value.structure_type24753 = t46427; t46430.tag = STRUCTURE_TYPE24753; t46430.value.structure_type24753 = t46428; t46431 = f13588(t46429, t46430); r14754.tag = STRUCTURE_TYPE24753; r14754.value.structure_type24753 = t46431; return r14754; l7144: /* x134397 stalin.sc:17144:599406 */ /* x134393 stalin.sc:17144:599420 */ /* x134392 stalin.sc:17144:599438 */ t46425 = a26189; /* x134391 stalin.sc:17144:599421 */ t46406 = f8965(t46425); /* x134396 stalin.sc:17144:599445 */ /* x134395 stalin.sc:17144:599450 */ t46426 = a26189; /* x134394 stalin.sc:17144:599446 */ t46407 = f14281(t46426); /* x134390 */ /* x134389 */ /* x134388 */ /* x134387 */ /* x134386 */ /* x134385 */ /* x134384 */ /* x134359 */ /* x134358 stalin.sc:17144:599411 */ a26203 = t46406; a26204 = t46407; h14780: /* x134383 stalin.sc:17145:599457 */ /* x134363 stalin.sc:17145:599461 */ /* x134361 stalin.sc:17145:599466 */ t46408 = a26203; /* x134362 stalin.sc:17145:599468 */ t46409 = a26200; /* x268788 stalin.sc:17145:599462 */ /* EQ: dispatching general to general */ if (!((t46408.tag)==(t46409.tag))) goto l7146; switch (t46408.tag) {case FIXNUM_TYPE: if (!((t46408.value.fixnum_type)==(t46409.value.fixnum_type))) goto l7146; break; case FLONUM_TYPE: if (!((t46408.value.flonum_type)==(t46409.value.flonum_type))) goto l7146; break; case INPUT_PORT_TYPE: if (!((t46408.value.input_port_type)==(t46409.value.input_port_type))) goto l7146; break; case OUTPUT_PORT_TYPE: if (!((t46408.value.output_port_type)==(t46409.value.output_port_type))) goto l7146; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t46408.value.native_procedure_type15963)==(t46409.value.native_procedure_type15963))) goto l7146; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t46408.value.native_procedure_type19067)==(t46409.value.native_procedure_type19067))) goto l7146; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t46408.value.native_procedure_type19068)==(t46409.value.native_procedure_type19068))) goto l7146; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t46408.value.native_procedure_type22459)==(t46409.value.native_procedure_type22459))) goto l7146; break; case STRUCTURE_TYPE24753: if (!((t46408.value.structure_type24753)==(t46409.value.structure_type24753))) goto l7146; break; case STRUCTURE_TYPE24757: if (!((t46408.value.structure_type24757)==(t46409.value.structure_type24757))) goto l7146; break; case STRUCTURE_TYPE27501: if (!((t46408.value.structure_type27501)==(t46409.value.structure_type27501))) goto l7146; break; case STRUCTURE_TYPE27510: if (!((t46408.value.structure_type27510)==(t46409.value.structure_type27510))) goto l7146; break; case STRUCTURE_TYPE27621: if (!((t46408.value.structure_type27621)==(t46409.value.structure_type27621))) goto l7146; break; case STRUCTURE_TYPE27650: if (!((t46408.value.structure_type27650)==(t46409.value.structure_type27650))) goto l7146; break; case STRUCTURE_TYPE27669: if (!((t46408.value.structure_type27669)==(t46409.value.structure_type27669))) goto l7146; break; case STRUCTURE_TYPE27673: if (!((t46408.value.structure_type27673)==(t46409.value.structure_type27673))) goto l7146; break; case STRUCTURE_TYPE27692: if (!((t46408.value.structure_type27692)==(t46409.value.structure_type27692))) goto l7146; break; case STRUCTURE_TYPE27694: if (!((t46408.value.structure_type27694)==(t46409.value.structure_type27694))) goto l7146; break; case STRUCTURE_TYPE27698: if (!((t46408.value.structure_type27698)==(t46409.value.structure_type27698))) goto l7146; break; case STRUCTURE_TYPE27745: if (!((t46408.value.structure_type27745)==(t46409.value.structure_type27745))) goto l7146; break; case STRUCTURE_TYPE27747: if (!((t46408.value.structure_type27747)==(t46409.value.structure_type27747))) goto l7146; break; case STRUCTURE_TYPE27750: if (!((t46408.value.structure_type27750)==(t46409.value.structure_type27750))) goto l7146; break; case STRUCTURE_TYPE27753: if (!((t46408.value.structure_type27753)==(t46409.value.structure_type27753))) goto l7146; break; case STRUCTURE_TYPE27756: if (!((t46408.value.structure_type27756)==(t46409.value.structure_type27756))) goto l7146; break; case STRUCTURE_TYPE27761: if (!((t46408.value.structure_type27761)==(t46409.value.structure_type27761))) goto l7146; break; case STRUCTURE_TYPE27769: if (!((t46408.value.structure_type27769)==(t46409.value.structure_type27769))) goto l7146; break; case STRUCTURE_TYPE27776: if (!((t46408.value.structure_type27776)==(t46409.value.structure_type27776))) goto l7146; break; case STRUCTURE_TYPE27779: if (!((t46408.value.structure_type27779)==(t46409.value.structure_type27779))) goto l7146; break; case STRUCTURE_TYPE27858: if (!((t46408.value.structure_type27858)==(t46409.value.structure_type27858))) goto l7146; break; case STRING_TYPE: if (!((t46408.value.string_type)==(t46409.value.string_type))) goto l7146; break; case HEADED_VECTOR_TYPE27896: if (!((t46408.value.headed_vector_type27896)==(t46409.value.headed_vector_type27896))) goto l7146; break; case EXTERNAL_SYMBOL_TYPE: if (!((t46408.value.external_symbol_type)==(t46409.value.external_symbol_type))) goto l7146; break; case STRUCTURE_TYPE27908: if (!((t46408.value.structure_type27908)==(t46409.value.structure_type27908))) goto l7146; break; default:;} /* x134369 stalin.sc:17146:599478 */ /* x134365 stalin.sc:17146:599484 */ t46419 = a26204; /* x134368 stalin.sc:17146:599486 */ /* x134367 stalin.sc:17146:599491 */ t46424 = a26188; /* x134366 stalin.sc:17146:599487 */ t46420 = f14269(t46424); /* x134364 stalin.sc:17146:599479 */ t46421.tag = STRUCTURE_TYPE24753; t46421.value.structure_type24753 = t46419; t46422.tag = STRUCTURE_TYPE24753; t46422.value.structure_type24753 = t46420; t46423 = f13588(t46421, t46422); r14754.tag = STRUCTURE_TYPE24753; r14754.value.structure_type24753 = t46423; return r14754; l7146: /* x134382 stalin.sc:17147:599501 */ /* x134373 stalin.sc:17147:599507 */ /* x134372 stalin.sc:17147:599520 */ t46412 = a26203; /* x134371 stalin.sc:17147:599508 */ t46410 = f8639(t46412); /* x134381 stalin.sc:17147:599523 */ /* x134375 stalin.sc:17147:599529 */ t46413 = a26204; /* x134380 stalin.sc:17147:599531 */ /* x134379 stalin.sc:17147:599536 */ /* x134378 stalin.sc:17147:599549 */ t46418 = a26203; /* x134377 stalin.sc:17147:599537 */ t46417 = f8639(t46418); /* x134376 stalin.sc:17147:599532 */ t46414 = f14281(t46417); /* x134374 stalin.sc:17147:599524 */ t46415.tag = STRUCTURE_TYPE24753; t46415.value.structure_type24753 = t46413; t46416.tag = STRUCTURE_TYPE24753; t46416.value.structure_type24753 = t46414; t46411 = f13588(t46415, t46416); /* x134370 stalin.sc:17147:599502 */ a26203 = t46410; a26204 = t46411; goto h14780; l7142: /* x134409 */ /* x134408 */ /* x134407 stalin.sc:17148:599568 */ /* x134406 stalin.sc:17148:599569 */ /* x296577 QobiScheme.sc:166:5314 */ /* x296576 QobiScheme.sc:166:5321 */ t46402 = "This shouldn\'t happen"; /* x296575 QobiScheme.sc:166:5315 */ stalin_panic(t46402); l7132: /* x134439 */ /* x134438 */ /* x134437 */ /* x134436 stalin.sc:17149:599594 */ /* x134435 stalin.sc:17152:599704 */ /* x134434 stalin.sc:17152:599720 */ /* x134433 stalin.sc:17152:599739 */ t46379 = a26188; /* x134432 stalin.sc:17152:599721 */ a36867 = t46379; /* x280137 */ /* x280136 */ t46380 = a36867; /* x280135 */ if (!((t46380.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31784]"); structure_ref_error();} t46377 = t46380.value.structure_type27692->s9; /* x134431 stalin.sc:17152:599705 */ a37073 = t46377; /* x280961 */ /* x280960 */ t46378 = a37073; /* x280959 */ if (!((t46378.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31990]"); structure_ref_error();} t46367 = t46378.value.structure_type27650->s4; /* x134430 stalin.sc:17151:599678 */ /* x134429 stalin.sc:17151:599694 */ t46375 = a26188; /* x134428 stalin.sc:17151:599679 */ a36992 = t46375; /* x280637 */ /* x280636 */ t46376 = a36992; /* x280635 */ if (!((t46376.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-INDEX[6565] 31909]"); structure_ref_error();} t46366 = t46376.value.structure_type27692->s6; /* x134427 stalin.sc:17150:599653 */ /* x134426 stalin.sc:17150:599668 */ t46373 = a26188; /* x134425 stalin.sc:17150:599654 */ a36965 = t46373; /* x280529 */ /* x280528 */ t46374 = a36965; /* x280527 */ if (!((t46374.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31882]"); structure_ref_error();} t46365 = t46374.value.structure_type27692->s7; /* x134424 stalin.sc:17149:599605 */ t46364 = "Warning! Variable ~a{~a}:W~s is fake~%"; /* x134423 stalin.sc:17149:599602 */ /* x134422 stalin.sc:17149:599595 */ t46368 = TRUE_TYPE; t46369.tag = STRING_TYPE; t46369.value.string_type = t46364; t46372.tag = STRUCTURE_TYPE24753; t46372.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t46372.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17149, 599594); out_of_memory_error();} t46372.value.structure_type24753->s0 = *((struct w49 *)(&t46367)); t46372.value.structure_type24753->s1.tag = NULL_TYPE; t46371.tag = STRUCTURE_TYPE24753; t46371.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t46371.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17149, 599594); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t46366==FALSE_TYPE) t46371.value.structure_type24753->s0.tag = (unsigned)t46366; else {t46371.value.structure_type24753->s0.tag = FIXNUM_TYPE; t46371.value.structure_type24753->s0.value.fixnum_type = (int)(((int)t46366)>>1);} t46371.value.structure_type24753->s1 = t46372; t46370.tag = STRUCTURE_TYPE24753; t46370.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t46370.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17149, 599594); out_of_memory_error();} t46370.value.structure_type24753->s0 = t46365; t46370.value.structure_type24753->s1 = t46371; f665(t46368, t46369, t46370); /* x134421 */ /* x134420 stalin.sc:17153:599750 */ r14754.tag = STRING_TYPE; r14754.value.string_type = "fake"; return r14754;} /* VALUE-VECTOR-REF[14753] */ struct w60864 f14753(struct w49 a26184, struct w49 a26185, struct w49 a26186, struct w49 a26187) {struct w60864 r14753; struct w49 a26158; /* C1 */ struct w49 a26159; /* U1 */ struct w49 a26160; /* C2 */ struct w49 a37313; /* OBJ */ struct w49 a37410; /* OBJ */ struct w49 a37527; /* OBJ */ struct w49 t46575; struct w49 t46576; struct w49 t46577; struct w49 t46578; struct w49 t46579; struct w49 t46580; struct w49 t46581; struct w49 t46582; struct w49 t46583; struct w49 t46584; char *t46585; struct structure_type24753 *t46586; struct w49 t46587; struct w49 t46588; struct structure_type24753 *t46589; struct w49 t46590; char *t46591; struct w61020 t46592; struct structure_type24753 *t46593; struct w49 t46594; struct w49 t46595; struct structure_type24753 *t46596; struct w49 t46597; char *t46598; struct w61020 t46599; struct structure_type24753 *t46600; struct w49 t46601; struct w49 t46602; struct structure_type24753 *t46603; struct w49 t46604; char *t46605; struct w61020 t46606; struct w49 t46607; struct w49 t46608; struct w49 t46609; /* x134079 stalin.sc:17104:598106 */ /* x134076 stalin.sc:17104:598127 */ /* x134073 stalin.sc:17104:598136 */ t46607 = a26184; /* x134074 stalin.sc:17104:598139 */ t46608 = a26185; /* x134075 stalin.sc:17104:598142 */ t46609 = a26186; /* x134072 stalin.sc:17104:598128 */ t46575 = f14485(t46607, t46608, t46609); /* x134077 stalin.sc:17104:598146 */ t46576 = a26185; /* x134078 stalin.sc:17104:598149 */ t46577 = a26187; /* x134071 stalin.sc:17104:598107 */ a26158 = t46575; a26159 = t46576; a26160 = t46577; /* x133983 stalin.sc:17077:597155 */ /* x133938 stalin.sc:17077:597159 */ /* x133937 stalin.sc:17077:597184 */ t46578 = a26159; /* x133936 stalin.sc:17077:597160 */ if (f7754(t46578)==FALSE_TYPE) goto l7169; /* x133939 stalin.sc:17078:597193 */ r14753.tag = EXTERNAL_SYMBOL_TYPE; r14753.value.external_symbol_type = q207; return r14753; l7169: /* x133982 stalin.sc:17079:597205 */ /* x133942 stalin.sc:17079:597212 */ /* x133941 stalin.sc:17079:597233 */ t46579 = a26159; /* x133940 stalin.sc:17079:597213 */ a37527 = t46579; /* x282777 */ /* x282776 */ t46580 = a37527; /* x282775 */ if (!((t46580.tag)==STRUCTURE_TYPE27761)) goto l7171; /* x133951 */ /* x133950 */ /* x133949 stalin.sc:17079:597237 */ /* x133947 stalin.sc:17079:597250 */ /* x133945 stalin.sc:17079:597256 */ t46604 = a26158; /* x133946 stalin.sc:17079:597259 */ t46605 = "element"; /* x133944 stalin.sc:17079:597251 */ t46606.tag = STRING_TYPE; t46606.value.string_type = t46605; t46600 = f13588(t46604, t46606); /* x133948 stalin.sc:17079:597270 */ t46601 = a26160; /* x133943 stalin.sc:17079:597238 */ t46602.tag = STRUCTURE_TYPE24753; t46602.value.structure_type24753 = t46600; t46603 = f13540(t46602, t46601); r14753.tag = STRUCTURE_TYPE24753; r14753.value.structure_type24753 = t46603; return r14753; l7171: /* x133981 */ /* x133954 stalin.sc:17080:597280 */ /* x133953 stalin.sc:17080:597304 */ t46581 = a26159; /* x133952 stalin.sc:17080:597281 */ a37410 = t46581; /* x282309 */ /* x282308 */ t46582 = a37410; /* x282307 */ if (!((t46582.tag)==STRUCTURE_TYPE27669)) goto l7173; /* x133963 */ /* x133962 */ /* x133961 stalin.sc:17080:597308 */ /* x133959 stalin.sc:17080:597321 */ /* x133957 stalin.sc:17080:597326 */ t46597 = a26158; /* x133958 stalin.sc:17080:597329 */ t46598 = "element"; /* x133956 stalin.sc:17080:597322 */ t46599.tag = STRING_TYPE; t46599.value.string_type = t46598; t46593 = f13585(t46597, t46599); /* x133960 stalin.sc:17080:597340 */ t46594 = a26160; /* x133955 stalin.sc:17080:597309 */ t46595.tag = STRUCTURE_TYPE24753; t46595.value.structure_type24753 = t46593; t46596 = f13540(t46595, t46594); r14753.tag = STRUCTURE_TYPE24753; r14753.value.structure_type24753 = t46596; return r14753; l7173: /* x133980 */ /* x133966 stalin.sc:17081:597350 */ /* x133965 stalin.sc:17081:597374 */ t46583 = a26159; /* x133964 stalin.sc:17081:597351 */ a37313 = t46583; /* x281921 */ /* x281920 */ t46584 = a37313; /* x281919 */ if (!((t46584.tag)==STRUCTURE_TYPE27908)) goto l7175; /* x133975 */ /* x133974 */ /* x133973 stalin.sc:17081:597378 */ /* x133971 stalin.sc:17081:597391 */ /* x133969 stalin.sc:17081:597396 */ t46590 = a26158; /* x133970 stalin.sc:17081:597399 */ t46591 = "element"; /* x133968 stalin.sc:17081:597392 */ t46592.tag = STRING_TYPE; t46592.value.string_type = t46591; t46586 = f13585(t46590, t46592); /* x133972 stalin.sc:17081:597410 */ t46587 = a26160; /* x133967 stalin.sc:17081:597379 */ t46588.tag = STRUCTURE_TYPE24753; t46588.value.structure_type24753 = t46586; t46589 = f13540(t46588, t46587); r14753.tag = STRUCTURE_TYPE24753; r14753.value.structure_type24753 = t46589; return r14753; l7175: /* x133979 */ /* x133978 */ /* x133977 stalin.sc:17082:597425 */ /* x133976 stalin.sc:17082:597426 */ /* x295253 QobiScheme.sc:166:5314 */ /* x295252 QobiScheme.sc:166:5321 */ t46585 = "This shouldn\'t happen"; /* x295251 QobiScheme.sc:166:5315 */ stalin_panic(t46585);} /* VALUE-VECTOR-LENGTH[14751] */ struct w49 f14751(struct w49 a26178, struct w49 a26179, struct w49 a26180) {struct w49 t46610; struct w49 t46611; struct w49 t46612; struct w49 t46613; struct w49 t46614; /* x134058 stalin.sc:17098:597935 */ /* x134056 stalin.sc:17098:597959 */ /* x134053 stalin.sc:17098:597968 */ t46612 = a26178; /* x134054 stalin.sc:17098:597970 */ t46613 = a26179; /* x134055 stalin.sc:17098:597972 */ t46614 = a26180; /* x134052 stalin.sc:17098:597960 */ t46610 = f14485(t46612, t46613, t46614); /* x134057 stalin.sc:17098:597975 */ t46611 = a26179; /* x134051 stalin.sc:17098:597936 */ return f14731(t46610, t46611);} /* VALUE-STRING-REF[14750] */ struct structure_type24753 *f14750(struct w49 a26174, struct w49 a26175, struct w49 a26176, struct w49 a26177) {struct w49 a26152; /* C1 */ struct w49 a26153; /* C2 */ struct w49 t46615; struct w49 t46616; struct w49 t46617; struct w49 t46618; struct w49 t46619; struct w49 t46620; struct w49 t46621; /* x134048 stalin.sc:17096:597853 */ /* x134046 stalin.sc:17096:597874 */ /* x134043 stalin.sc:17096:597883 */ t46619 = a26174; /* x134044 stalin.sc:17096:597886 */ t46620 = a26175; /* x134045 stalin.sc:17096:597889 */ t46621 = a26176; /* x134042 stalin.sc:17096:597875 */ t46615 = f14485(t46619, t46620, t46621); /* x134047 stalin.sc:17096:597893 */ t46616 = a26177; /* x134041 stalin.sc:17096:597854 */ a26152 = t46615; a26153 = t46616; /* x133851 stalin.sc:17055:596410 */ /* x133849 stalin.sc:17055:596423 */ t46617 = a26152; /* x133850 stalin.sc:17055:596426 */ t46618 = a26153; /* x133848 stalin.sc:17055:596411 */ return f13540(t46617, t46618);} /* VALUE-STRING-LENGTH[14749] */ struct structure_type24753 *f14749(struct w49 a26171, struct w49 a26172, struct w49 a26173) {struct w49 a25532; /* C */ struct w49 a26151; /* C */ struct w49 t46622; struct w49 t46623; char *t46624; struct w49 t46625; struct w49 t46626; struct w12224 t46627; char *t46628; struct w49 t46629; struct w49 t46630; struct w49 t46631; struct w49 t46632; /* x134038 stalin.sc:17093:597770 */ /* x134037 stalin.sc:17093:597794 */ /* x134034 stalin.sc:17093:597803 */ t46630 = a26171; /* x134035 stalin.sc:17093:597805 */ t46631 = a26172; /* x134036 stalin.sc:17093:597807 */ t46632 = a26173; /* x134033 stalin.sc:17093:597795 */ t46622 = f14485(t46630, t46631, t46632); /* x134032 stalin.sc:17093:597771 */ a26151 = t46622; /* x133845 stalin.sc:17053:596359 */ /* x133844 stalin.sc:17053:596369 */ t46623 = a26151; /* x133843 stalin.sc:17053:596360 */ a25532 = t46623; /* x124986 */ /* x124985 stalin.sc:15084:526232 */ /* x124984 stalin.sc:15084:526242 */ t46628 = "string"; /* x124983 stalin.sc:15084:526233 */ t46629.tag = STRING_TYPE; t46629.value.string_type = t46628; f18320(t46629); /* x124982 */ /* x124981 stalin.sc:15085:526263 */ /* x124980 stalin.sc:15085:526280 */ t46625 = a25532; /* x124979 stalin.sc:15085:526271 */ t46624 = "strlen"; /* x124978 stalin.sc:15085:526264 */ t46626.tag = STRING_TYPE; t46626.value.string_type = t46624; t46627.tag = STRUCTURE_TYPE24753; t46627.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t46627.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15085, 526263); out_of_memory_error();} t46627.value.structure_type24753->s0 = t46625; t46627.value.structure_type24753->s1.tag = NULL_TYPE; return f13543(t46626, t46627);} /* VALUE-CDR[14748] */ struct w60864 f14748(struct w49 a26168, struct w49 a26169, struct w49 a26170) {struct w60864 r14748; struct w49 a26148; /* C */ struct w49 a26149; /* U */ struct w49 t46633; struct w49 t46634; struct w49 t46635; struct w49 t46636; struct w49 t46637; int t46638; struct w49 t46639; struct w49 t46640; char *t46641; struct w49 t46642; struct w49 t46643; struct w49 t46644; /* x134029 stalin.sc:17091:597671 */ /* x134019 stalin.sc:17091:597675 */ /* x134018 stalin.sc:17091:597688 */ t46633 = a26169; /* x134017 stalin.sc:17091:597676 */ if (f8793(t46633)==FALSE_TYPE) goto l7177; /* x134020 stalin.sc:17091:597691 */ r14748.tag = EXTERNAL_SYMBOL_TYPE; r14748.value.external_symbol_type = q210; return r14748; l7177: /* x134028 stalin.sc:17091:597698 */ /* x134026 stalin.sc:17091:597712 */ /* x134023 stalin.sc:17091:597721 */ t46642 = a26168; /* x134024 stalin.sc:17091:597723 */ t46643 = a26169; /* x134025 stalin.sc:17091:597725 */ t46644 = a26170; /* x134022 stalin.sc:17091:597713 */ t46634 = f14485(t46642, t46643, t46644); /* x134027 stalin.sc:17091:597728 */ t46635 = a26169; /* x134021 stalin.sc:17091:597699 */ a26148 = t46634; a26149 = t46635; /* x133840 */ /* x133839 stalin.sc:17050:596256 */ /* x133832 stalin.sc:17050:596264 */ /* x133831 stalin.sc:17050:596276 */ t46640 = a26149; /* x133830 stalin.sc:17050:596265 */ if (f7719(t46640)==FALSE_TYPE) goto l7179; /* x133834 */ /* x133833 */ goto l7180; l7179: /* x133838 */ /* x133837 */ /* x133836 stalin.sc:17050:596279 */ /* x133835 stalin.sc:17050:596280 */ /* x295261 QobiScheme.sc:166:5314 */ /* x295260 QobiScheme.sc:166:5321 */ t46641 = "This shouldn\'t happen"; /* x295259 QobiScheme.sc:166:5315 */ stalin_panic(t46641); l7180: /* x133829 */ /* x133828 stalin.sc:17051:596291 */ /* x133825 stalin.sc:17051:596315 */ t46636 = a26148; /* x133826 stalin.sc:17051:596317 */ t46637 = a26149; /* x133827 stalin.sc:17051:596319 */ t46638 = 1; /* x133824 stalin.sc:17051:596292 */ t46639.tag = FIXNUM_TYPE; t46639.value.fixnum_type = t46638; return f14714(t46636, t46637, t46639);} /* VALUE-CAR[14747] */ struct w60864 f14747(struct w49 a26165, struct w49 a26166, struct w49 a26167) {struct w60864 r14747; struct w49 a26145; /* C */ struct w49 a26146; /* U */ struct w49 t46645; struct w49 t46646; struct w49 t46647; struct w49 t46648; struct w49 t46649; int t46650; struct w49 t46651; struct w49 t46652; char *t46653; struct w49 t46654; struct w49 t46655; struct w49 t46656; /* x134014 stalin.sc:17088:597581 */ /* x134004 stalin.sc:17088:597585 */ /* x134003 stalin.sc:17088:597598 */ t46645 = a26166; /* x134002 stalin.sc:17088:597586 */ if (f8793(t46645)==FALSE_TYPE) goto l7182; /* x134005 stalin.sc:17088:597601 */ r14747.tag = EXTERNAL_SYMBOL_TYPE; r14747.value.external_symbol_type = q209; return r14747; l7182: /* x134013 stalin.sc:17088:597608 */ /* x134011 stalin.sc:17088:597622 */ /* x134008 stalin.sc:17088:597631 */ t46654 = a26165; /* x134009 stalin.sc:17088:597633 */ t46655 = a26166; /* x134010 stalin.sc:17088:597635 */ t46656 = a26167; /* x134007 stalin.sc:17088:597623 */ t46646 = f14485(t46654, t46655, t46656); /* x134012 stalin.sc:17088:597638 */ t46647 = a26166; /* x134006 stalin.sc:17088:597609 */ a26145 = t46646; a26146 = t46647; /* x133821 */ /* x133820 stalin.sc:17046:596160 */ /* x133813 stalin.sc:17046:596168 */ /* x133812 stalin.sc:17046:596180 */ t46652 = a26146; /* x133811 stalin.sc:17046:596169 */ if (f7719(t46652)==FALSE_TYPE) goto l7184; /* x133815 */ /* x133814 */ goto l7185; l7184: /* x133819 */ /* x133818 */ /* x133817 stalin.sc:17046:596183 */ /* x133816 stalin.sc:17046:596184 */ /* x295257 QobiScheme.sc:166:5314 */ /* x295256 QobiScheme.sc:166:5321 */ t46653 = "This shouldn\'t happen"; /* x295255 QobiScheme.sc:166:5315 */ stalin_panic(t46653); l7185: /* x133810 */ /* x133809 stalin.sc:17047:596195 */ /* x133806 stalin.sc:17047:596219 */ t46648 = a26145; /* x133807 stalin.sc:17047:596221 */ t46649 = a26146; /* x133808 stalin.sc:17047:596223 */ t46650 = 0; /* x133805 stalin.sc:17047:596196 */ t46651.tag = FIXNUM_TYPE; t46651.value.fixnum_type = t46650; return f14714(t46648, t46649, t46651);} /* VALUE-STRUCTURE-REF[14746] */ struct w60864 f14746(struct w49 a26161, struct w49 a26162, struct w49 a26163, struct w49 a26164) {struct w60864 r14746; struct w49 t46657; struct w49 t46658; struct w49 t46659; struct w49 t46660; struct w49 t46661; struct w49 t46662; struct w49 t46663; /* x133999 stalin.sc:17085:597479 */ /* x133988 stalin.sc:17085:597483 */ /* x133987 stalin.sc:17085:597496 */ t46657 = a26162; /* x133986 stalin.sc:17085:597484 */ if (f8793(t46657)==FALSE_TYPE) goto l7187; /* x133989 stalin.sc:17085:597499 */ r14746.tag = EXTERNAL_SYMBOL_TYPE; r14746.value.external_symbol_type = q208; return r14746; l7187: /* x133998 stalin.sc:17085:597506 */ /* x133995 stalin.sc:17085:597530 */ /* x133992 stalin.sc:17085:597539 */ t46661 = a26161; /* x133993 stalin.sc:17085:597541 */ t46662 = a26162; /* x133994 stalin.sc:17085:597543 */ t46663 = a26163; /* x133991 stalin.sc:17085:597531 */ t46658 = f14485(t46661, t46662, t46663); /* x133996 stalin.sc:17085:597546 */ t46659 = a26162; /* x133997 stalin.sc:17085:597548 */ t46660 = a26164; /* x133990 stalin.sc:17085:597507 */ return f14714(t46658, t46659, t46660);} /* VECTOR-LENGTH-ACCESSOR[14731] */ struct w49 f14731(struct w49 a26154, struct w49 a26155) {struct w49 r14731; struct w49 a37324; /* OBJ */ struct w49 a37421; /* OBJ */ struct w49 a37539; /* OBJ */ struct w49 t46664; struct w49 t46665; struct w49 t46666; struct w49 t46667; struct w49 t46668; struct w49 t46669; struct w49 t46670; char *t46671; struct w49 t46672; char *t46673; struct w61020 t46674; struct structure_type24753 *t46675; struct w49 t46676; char *t46677; struct w61020 t46678; struct structure_type24753 *t46679; struct w49 t46680; char *t46681; struct w61020 t46682; struct structure_type24753 *t46683; /* x133892 stalin.sc:17059:596523 */ /* x133856 stalin.sc:17059:596527 */ /* x133855 stalin.sc:17059:596552 */ t46664 = a26155; /* x133854 stalin.sc:17059:596528 */ if (f7754(t46664)==FALSE_TYPE) goto l7189; /* x133857 stalin.sc:17060:596560 */ return a26154; l7189: /* x133891 stalin.sc:17061:596567 */ /* x133860 stalin.sc:17061:596574 */ /* x133859 stalin.sc:17061:596595 */ t46665 = a26155; /* x133858 stalin.sc:17061:596575 */ a37539 = t46665; /* x282825 */ /* x282824 */ t46666 = a37539; /* x282823 */ if (!((t46666.tag)==STRUCTURE_TYPE27761)) goto l7191; /* x133866 */ /* x133865 */ /* x133864 stalin.sc:17061:596598 */ /* x133862 stalin.sc:17061:596604 */ t46680 = a26154; /* x133863 stalin.sc:17061:596606 */ t46681 = "length"; /* x133861 stalin.sc:17061:596599 */ t46682.tag = STRING_TYPE; t46682.value.string_type = t46681; t46683 = f13588(t46680, t46682); r14731.tag = STRUCTURE_TYPE24753; r14731.value.structure_type24753 = t46683; return r14731; l7191: /* x133890 */ /* x133869 stalin.sc:17062:596622 */ /* x133868 stalin.sc:17062:596646 */ t46667 = a26155; /* x133867 stalin.sc:17062:596623 */ a37421 = t46667; /* x282353 */ /* x282352 */ t46668 = a37421; /* x282351 */ if (!((t46668.tag)==STRUCTURE_TYPE27669)) goto l7193; /* x133875 */ /* x133874 */ /* x133873 stalin.sc:17062:596649 */ /* x133871 stalin.sc:17062:596654 */ t46676 = a26154; /* x133872 stalin.sc:17062:596656 */ t46677 = "length"; /* x133870 stalin.sc:17062:596650 */ t46678.tag = STRING_TYPE; t46678.value.string_type = t46677; t46679 = f13585(t46676, t46678); r14731.tag = STRUCTURE_TYPE24753; r14731.value.structure_type24753 = t46679; return r14731; l7193: /* x133889 */ /* x133878 stalin.sc:17063:596672 */ /* x133877 stalin.sc:17063:596696 */ t46669 = a26155; /* x133876 stalin.sc:17063:596673 */ a37324 = t46669; /* x281965 */ /* x281964 */ t46670 = a37324; /* x281963 */ if (!((t46670.tag)==STRUCTURE_TYPE27908)) goto l7195; /* x133884 */ /* x133883 */ /* x133882 stalin.sc:17063:596699 */ /* x133880 stalin.sc:17063:596704 */ t46672 = a26154; /* x133881 stalin.sc:17063:596706 */ t46673 = "length"; /* x133879 stalin.sc:17063:596700 */ t46674.tag = STRING_TYPE; t46674.value.string_type = t46673; t46675 = f13585(t46672, t46674); r14731.tag = STRUCTURE_TYPE24753; r14731.value.structure_type24753 = t46675; return r14731; l7195: /* x133888 */ /* x133887 */ /* x133886 stalin.sc:17064:596727 */ /* x133885 stalin.sc:17064:596728 */ /* x295581 QobiScheme.sc:166:5314 */ /* x295580 QobiScheme.sc:166:5321 */ t46671 = "This shouldn\'t happen"; /* x295579 QobiScheme.sc:166:5315 */ stalin_panic(t46671);} /* STRUCTURE-REF-ACCESSOR[14714] */ struct w60864 f14714(struct w49 a26141, struct w49 a26142, struct w49 a26143) {struct w60864 r14714; struct w49 a37619; /* S */ struct w49 a37620; /* S */ struct w49 t46684; struct w11873 t46685; struct w49 t46686; struct w49 t46687; struct w49 t46688; struct w49 t46689; struct w49 t46690; struct w49 t46691; struct structure_type24753 *t46692; struct w61020 t46693; struct structure_type24753 *t46694; struct w49 t46695; struct w49 t46696; struct structure_type24753 *t46697; struct w61020 t46698; struct structure_type24753 *t46699; struct w49 t46700; struct w49 t46701; struct w30215 t46702; int t46703; int t46704; int t46705; int t46706; struct w11873 t46707; struct w49 t46708; struct w49 t46709; struct w49 t46710; char *t46711; /* x133802 */ /* x133801 stalin.sc:17036:595854 */ /* x133794 stalin.sc:17036:595862 */ /* x133773 stalin.sc:17036:595867 */ /* x133772 stalin.sc:17036:595877 */ t46701 = a26143; /* x268799 stalin.sc:17036:595868 */ switch (t46701.tag) {case FIXNUM_TYPE: break; case FLONUM_TYPE: if (!((t46701.value.flonum_type)==rint(t46701.value.flonum_type))) goto l7201; break; default: goto l7201;} /* x133792 */ /* x133776 stalin.sc:17037:595887 */ /* x133775 stalin.sc:17037:595895 */ t46702 = *((struct w30215 *)(&a26143)); /* x268798 stalin.sc:17037:595888 */ if (!((t46702.tag)==FIXNUM_TYPE)) goto l7201; /* x133790 */ /* x133780 stalin.sc:17038:595905 */ /* x133778 stalin.sc:17038:595909 */ t46703 = a26143.value.fixnum_type; /* x133779 stalin.sc:17038:595911 */ t46704 = 0; /* x268797 stalin.sc:17038:595906 */ if (!(t46703>=t46704)) goto l7201; /* x133788 */ /* x133782 stalin.sc:17039:595924 */ t46705 = a26143.value.fixnum_type; /* x133787 stalin.sc:17039:595926 */ /* x133786 stalin.sc:17039:595934 */ /* x133785 stalin.sc:17039:595956 */ t46709 = a26142; /* x133784 stalin.sc:17039:595935 */ a37620 = t46709; /* x283149 */ /* x283148 */ t46710 = a37620; /* x283147 */ if (!((t46710.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32537]"); structure_ref_error();} t46707 = t46710.value.structure_type27769->s1; /* x133783 stalin.sc:17039:595927 */ t46708 = *((struct w49 *)(&t46707)); t46706 = f26227(t46708); /* x268796 stalin.sc:17039:595922 */ if (!(t46705s1; /* x133743 stalin.sc:17041:596031 */ t46686 = a26143; /* x133739 stalin.sc:17041:595997 */ t46687 = *((struct w49 *)(&t46685)); t46684 = f26338(t46687, t46686); /* x133738 stalin.sc:17041:595984 */ if (f8793(t46684)==FALSE_TYPE) goto l7197; /* x133748 */ /* x133747 */ /* x133746 stalin.sc:17041:596035 */ r14714.tag = EXTERNAL_SYMBOL_TYPE; r14714.value.external_symbol_type = q205; return r14714; l7197: /* x133768 */ /* x133751 stalin.sc:17042:596051 */ /* x133750 stalin.sc:17042:596078 */ t46690 = a26142; /* x133749 stalin.sc:17042:596052 */ if (f7429(t46690)==FALSE_TYPE) goto l7199; /* x133759 */ /* x133758 */ /* x133757 stalin.sc:17042:596081 */ /* x133753 stalin.sc:17042:596086 */ t46696 = a26141; /* x133756 stalin.sc:17042:596088 */ /* x133755 stalin.sc:17042:596093 */ t46700 = a26143; /* x133754 stalin.sc:17042:596089 */ t46697 = f14287(t46700); /* x133752 stalin.sc:17042:596082 */ t46698.tag = STRUCTURE_TYPE24753; t46698.value.structure_type24753 = t46697; t46699 = f13585(t46696, t46698); r14714.tag = STRUCTURE_TYPE24753; r14714.value.structure_type24753 = t46699; return r14714; l7199: /* x133767 */ /* x133766 */ /* x133765 stalin.sc:17043:596111 */ /* x133761 stalin.sc:17043:596117 */ t46691 = a26141; /* x133764 stalin.sc:17043:596119 */ /* x133763 stalin.sc:17043:596124 */ t46695 = a26143; /* x133762 stalin.sc:17043:596120 */ t46692 = f14287(t46695); /* x133760 stalin.sc:17043:596112 */ t46693.tag = STRUCTURE_TYPE24753; t46693.value.structure_type24753 = t46692; t46694 = f13588(t46691, t46693); r14714.tag = STRUCTURE_TYPE24753; r14714.value.structure_type24753 = t46694; return r14714;} /* [inside COMPILE-PREDICATE 14712] */ struct w49 f14712(struct p14711 *p14712) {struct structure_type27501 *t46712; /* x133729 stalin.sc:17033:595763 */ /* x133728 stalin.sc:17033:595776 */ t46712 = p14712->a26136; /* x133727 stalin.sc:17033:595764 */ return f14707(t46712);} /* COMPILE-TIME-TEST[14710] */ struct w49 f14710(struct structure_type27501 *a26133, unsigned a26134) {struct structure_type27501 *t46713; struct structure_type27501 *t46714; /* x133719 stalin.sc:17029:595639 */ /* x133712 stalin.sc:17029:595643 */ if (a26134==FALSE_TYPE) goto l7207; /* x133715 stalin.sc:17029:595646 */ /* x133714 stalin.sc:17029:595659 */ t46714 = a26133; /* x133713 stalin.sc:17029:595647 */ return f14707(t46714); l7207: /* x133718 stalin.sc:17029:595662 */ /* x133717 stalin.sc:17029:595676 */ t46713 = a26133; /* x133716 stalin.sc:17029:595663 */ return f14708(t46713);} /* COMPILE-TEST[14709] */ struct w49 f14709(struct structure_type27501 *a26131, struct structure_type24753 *a26132) {struct structure_type24753 *t46715; struct w49 t46716; struct w49 t46717; unsigned t46718; struct structure_type27501 *t46719; struct structure_type27501 *t46720; /* x133709 stalin.sc:17027:595559 */ /* x133701 stalin.sc:17027:595565 */ t46715 = a26132; /* x133704 stalin.sc:17027:595567 */ /* x133703 stalin.sc:17027:595580 */ t46719 = a26131; /* x133702 stalin.sc:17027:595568 */ t46716 = f14707(t46719); /* x133707 stalin.sc:17027:595583 */ /* x133706 stalin.sc:17027:595597 */ t46720 = a26131; /* x133705 stalin.sc:17027:595584 */ t46717 = f14708(t46720); /* x133708 stalin.sc:17027:595600 */ /* x133700 stalin.sc:17027:595560 */ t46718 = TRUE_TYPE; return f13672(t46715, t46716, t46717, t46718);} /* RETURN-FALSE[14708] */ struct w49 f14708(struct structure_type27501 *a26130) {struct structure_type27501 *t46721; char *t46722; struct w49 t46723; unsigned t46724; /* x133697 stalin.sc:17025:595501 */ /* x133694 stalin.sc:17025:595508 */ t46721 = a26130; /* x133695 stalin.sc:17025:595510 */ t46722 = q204; /* x133696 stalin.sc:17025:595517 */ /* x133693 stalin.sc:17025:595502 */ t46723.tag = EXTERNAL_SYMBOL_TYPE; t46723.value.external_symbol_type = t46722; t46724 = (unsigned)NATIVE_PROCEDURE_TYPE7433; return f15508(t46721, t46723, t46724);} /* RETURN-TRUE[14707] */ struct w49 f14707(struct structure_type27501 *a26129) {struct structure_type27501 *t46725; char *t46726; struct w49 t46727; unsigned t46728; /* x133690 stalin.sc:17023:595446 */ /* x133687 stalin.sc:17023:595453 */ t46725 = a26129; /* x133688 stalin.sc:17023:595455 */ t46726 = q203; /* x133689 stalin.sc:17023:595462 */ /* x133686 stalin.sc:17023:595447 */ t46727.tag = EXTERNAL_SYMBOL_TYPE; t46727.value.external_symbol_type = t46726; t46728 = (unsigned)NATIVE_PROCEDURE_TYPE7434; return f15508(t46725, t46727, t46728);} /* NONERROR-TYPE-SWITCH[14703] */ struct w49 f14703(struct p7717 *a26123, struct w49 a26124, struct structure_type27501 *a26125, struct w49 a26126, unsigned a26127, unsigned a26128) {struct w12224 a35438; /* PAIR */ struct w12224 a35907; /* PAIR */ struct w49 t46729; struct w49 t46730; struct p7717 *t46731; struct w49 t46732; struct w211257 t46733; struct p7717 *t46734; struct w49 t46735; struct w211235 t46736; char *t46737; unsigned t46738; struct structure_type27501 *t46739; struct structure_type27501 *t46740; struct p7717 *t46741; struct w49 t46742; struct w211235 t46743; struct w49 t46744; struct w12224 t46745; struct w12224 t46746; struct p7717 *t46747; struct w49 t46748; struct w211061 t46749; struct w12224 t46750; struct w49 t46751; struct w49 t46752; unsigned t46753; unsigned t46754; struct w155862 t46755; struct p7717 *t46756; struct w49 t46757; struct w211061 t46758; struct structure_type27501 *t46759; struct w12218 t46760; unsigned t46761; struct w49 t46762; struct w12224 t46763; struct w12224 t46764; struct p7717 *t46765; struct w49 t46766; struct w211061 t46767; struct w12224 t46768; struct w49 t46769; struct w49 t46770; unsigned t46771; unsigned t46772; unsigned t46773; struct w155919 t46774; struct w155916 t46775; struct p7717 *t46776; struct w49 t46777; struct w211061 t46778; struct structure_type27501 *t46779; struct w12218 t46780; struct p7717 *t46781; struct w49 t46782; struct w211257 t46783; struct p7717 *t46784; struct w49 t46785; struct w211235 t46786; char *t46787; unsigned t46788; struct structure_type27501 *t46789; struct structure_type27501 *t46790; struct p7717 *t46791; struct w49 t46792; struct w211235 t46793; struct w12224 t46794; struct w49 t46795; struct w49 t46796; unsigned t46797; unsigned t46798; struct w155862 t46799; struct p7717 *t46800; struct w49 t46801; struct w211061 t46802; struct structure_type27501 *t46803; struct w12218 t46804; struct w12224 t46805; struct w49 t46806; struct w49 t46807; unsigned t46808; struct w155862 t46809; struct p7717 *t46810; struct w49 t46811; struct w211061 t46812; struct w12224 t46813; struct w49 t46814; struct w49 t46815; unsigned t46816; unsigned t46817; unsigned t46818; struct w155919 t46819; struct w155916 t46820; struct p7717 *t46821; struct w49 t46822; struct w211061 t46823; struct structure_type27501 *t46824; struct w12218 t46825; struct w12224 t46826; struct w49 t46827; struct w49 t46828; unsigned t46829; unsigned t46830; struct w155919 t46831; struct w155916 t46832; struct p7717 *t46833; struct w49 t46834; struct w211061 t46835; struct p7717 *t46836; struct w49 t46837; struct w211257 t46838; struct p7717 *t46839; struct w49 t46840; struct w211235 t46841; char *t46842; unsigned t46843; struct structure_type27501 *t46844; struct structure_type27501 *t46845; struct p7717 *t46846; struct w49 t46847; struct w211235 t46848; struct w12224 t46849; struct w49 t46850; struct w49 t46851; unsigned t46852; unsigned t46853; struct w155862 t46854; struct p7717 *t46855; struct w49 t46856; struct w211061 t46857; struct structure_type27501 *t46858; struct w12218 t46859; struct w12224 t46860; struct w49 t46861; struct w49 t46862; unsigned t46863; struct w155862 t46864; struct p7717 *t46865; struct w49 t46866; struct w211061 t46867; struct w12224 t46868; struct w49 t46869; struct w49 t46870; unsigned t46871; unsigned t46872; unsigned t46873; struct w155919 t46874; struct w155916 t46875; struct p7717 *t46876; struct w49 t46877; struct w211061 t46878; struct structure_type27501 *t46879; struct w12218 t46880; struct w12224 t46881; struct w49 t46882; struct w49 t46883; unsigned t46884; unsigned t46885; struct w155919 t46886; struct w155916 t46887; struct p7717 *t46888; struct w49 t46889; struct w211061 t46890; struct p16486 *p37504; struct p16486 *p37508; struct p16486 *p37512; struct p14711 *p37523; struct p14711 *p37527; struct p14711 *p37531; /* x133683 stalin.sc:16985:594023 */ /* x133474 stalin.sc:16985:594030 */ /* x133473 stalin.sc:16985:594041 */ t46729 = a26124; /* x133472 stalin.sc:16985:594031 */ if (f13859(t46729)==FALSE_TYPE) goto l7209; /* x133544 */ /* x133543 */ /* x133542 stalin.sc:16986:594045 */ /* x133478 stalin.sc:16986:594049 */ /* x133476 stalin.sc:16986:594058 */ t46836 = a26123; /* x133477 stalin.sc:16986:594060 */ t46837 = a26124; /* x133475 stalin.sc:16986:594050 */ /* MOVE: branching squeezed to general */ if (t46836>=((struct p7717 *)VALUE_OFFSET)) {t46838.tag = NATIVE_PROCEDURE_TYPE15963; t46838.value.native_procedure_type15963 = t46836;} else t46838.tag = (unsigned)t46836; if ((f8137(t46838, t46837).tag)==FALSE_TYPE) goto l7231; /* x133531 stalin.sc:16987:594068 */ /* x133482 stalin.sc:16987:594072 */ /* x133480 stalin.sc:16987:594085 */ t46846 = a26123; /* x133481 stalin.sc:16987:594087 */ t46847 = a26124; /* x133479 stalin.sc:16987:594073 */ /* MOVE: branching squeezed to general */ if (t46846>=((struct p7717 *)VALUE_OFFSET)) {t46848.tag = NATIVE_PROCEDURE_TYPE15963; t46848.value.native_procedure_type15963 = t46846;} else t46848.tag = (unsigned)t46846; if ((f8144(t46848, t46847).tag)==FALSE_TYPE) goto l7235; /* x133507 stalin.sc:16988:594092 */ /* x133483 stalin.sc:16988:594096 */ if (a681==FALSE_TYPE) goto l7239; /* x133493 stalin.sc:16989:594113 */ /* x133488 stalin.sc:16989:594139 */ /* x133486 stalin.sc:16989:594153 */ t46888 = a26123; /* x133487 stalin.sc:16989:594155 */ t46889 = a26124; /* x133485 stalin.sc:16989:594140 */ /* MOVE: branching squeezed to general */ if (t46888>=((struct p7717 *)VALUE_OFFSET)) {t46890.tag = NATIVE_PROCEDURE_TYPE15963; t46890.value.native_procedure_type15963 = t46888;} else t46890.tag = (unsigned)t46888; t46881 = f8172(t46890, t46889); /* x133489 stalin.sc:16989:594158 */ t46882 = a26124; /* x133490 stalin.sc:16989:594160 */ t46883 = a26126; /* x133491 stalin.sc:16989:594163 */ t46884 = a26127; /* x133492 stalin.sc:16989:594166 */ t46885 = a26128; /* x133484 stalin.sc:16989:594114 */ /* MOVE: dispatching squished to general */ if ((t46884&3)==1) {t46886.tag = NATIVE_PROCEDURE_TYPE20851; t46886.value.native_procedure_type20851 = (struct p14711 *)(t46884-1);} else {t46886.tag = NATIVE_PROCEDURE_TYPE20928; t46886.value.native_procedure_type20928 = (struct p16486 *)t46884;} /* MOVE: dispatching squished to general */ if ((t46885&3)==1) {t46887.tag = NATIVE_PROCEDURE_TYPE20850; t46887.value.native_procedure_type20850 = (struct p14711 *)(t46885-1);} else {t46887.tag = NATIVE_PROCEDURE_TYPE20927; t46887.value.native_procedure_type20927 = (struct p16486 *)t46885;} return f14605(t46881, t46882, t46883, t46886, t46887); l7239: /* x133506 stalin.sc:16990:594176 */ /* x133498 stalin.sc:16991:594213 */ /* x133496 stalin.sc:16991:594227 */ t46876 = a26123; /* x133497 stalin.sc:16991:594229 */ t46877 = a26124; /* x133495 stalin.sc:16991:594214 */ /* MOVE: branching squeezed to general */ if (t46876>=((struct p7717 *)VALUE_OFFSET)) {t46878.tag = NATIVE_PROCEDURE_TYPE15963; t46878.value.native_procedure_type15963 = t46876;} else t46878.tag = (unsigned)t46876; t46868 = f8172(t46878, t46877); /* x133499 stalin.sc:16991:594232 */ t46869 = a26124; /* x133500 stalin.sc:16991:594234 */ t46870 = a26126; /* x133501 stalin.sc:16991:594237 */ t46871 = a26127; /* x133502 stalin.sc:16991:594240 */ t46872 = a26128; /* x133505 stalin.sc:16991:594243 */ /* x133504 stalin.sc:16991:594251 */ t46879 = a26125; /* x133503 stalin.sc:16991:594244 */ /* MOVE: branching squeezed to general */ if (t46879>=((struct structure_type27501 *)VALUE_OFFSET)) {t46880.tag = STRUCTURE_TYPE27501; t46880.value.structure_type27501 = t46879;} else t46880.tag = (unsigned)t46879; t46873 = f14689(t46880); /* x133494 stalin.sc:16990:594177 */ /* MOVE: dispatching squished to general */ if ((t46871&3)==1) {t46874.tag = NATIVE_PROCEDURE_TYPE20851; t46874.value.native_procedure_type20851 = (struct p14711 *)(t46871-1);} else {t46874.tag = NATIVE_PROCEDURE_TYPE20928; t46874.value.native_procedure_type20928 = (struct p16486 *)t46871;} /* MOVE: dispatching squished to general */ if ((t46872&3)==1) {t46875.tag = NATIVE_PROCEDURE_TYPE20850; t46875.value.native_procedure_type20850 = (struct p14711 *)(t46872-1);} else {t46875.tag = NATIVE_PROCEDURE_TYPE20927; t46875.value.native_procedure_type20927 = (struct p16486 *)t46872;} return f14621(t46868, t46869, t46870, t46874, t46875, t46873); l7235: /* x133530 stalin.sc:16992:594258 */ /* x133508 stalin.sc:16992:594262 */ if (a681==FALSE_TYPE) goto l7237; /* x133517 stalin.sc:16993:594279 */ /* x133513 stalin.sc:16994:594324 */ /* x133511 stalin.sc:16994:594338 */ t46865 = a26123; /* x133512 stalin.sc:16994:594340 */ t46866 = a26124; /* x133510 stalin.sc:16994:594325 */ /* MOVE: branching squeezed to general */ if (t46865>=((struct p7717 *)VALUE_OFFSET)) {t46867.tag = NATIVE_PROCEDURE_TYPE15963; t46867.value.native_procedure_type15963 = t46865;} else t46867.tag = (unsigned)t46865; t46860 = f8172(t46867, t46866); /* x133514 stalin.sc:16994:594343 */ t46861 = a26124; /* x133515 stalin.sc:16994:594345 */ t46862 = a26126; /* x133516 stalin.sc:16994:594348 */ t46863 = a26127; /* x133509 stalin.sc:16993:594280 */ /* MOVE: dispatching squished to general */ if ((t46863&3)==1) {t46864.tag = NATIVE_PROCEDURE_TYPE20851; t46864.value.native_procedure_type20851 = (struct p14711 *)(t46863-1);} else {t46864.tag = NATIVE_PROCEDURE_TYPE20928; t46864.value.native_procedure_type20928 = (struct p16486 *)t46863;} return f14612(t46860, t46861, t46862, t46864); l7237: /* x133529 stalin.sc:16995:594358 */ /* x133522 stalin.sc:16996:594407 */ /* x133520 stalin.sc:16996:594421 */ t46855 = a26123; /* x133521 stalin.sc:16996:594423 */ t46856 = a26124; /* x133519 stalin.sc:16996:594408 */ /* MOVE: branching squeezed to general */ if (t46855>=((struct p7717 *)VALUE_OFFSET)) {t46857.tag = NATIVE_PROCEDURE_TYPE15963; t46857.value.native_procedure_type15963 = t46855;} else t46857.tag = (unsigned)t46855; t46849 = f8172(t46857, t46856); /* x133523 stalin.sc:16996:594426 */ t46850 = a26124; /* x133524 stalin.sc:16996:594428 */ t46851 = a26126; /* x133525 stalin.sc:16996:594431 */ t46852 = a26127; /* x133528 stalin.sc:16996:594434 */ /* x133527 stalin.sc:16996:594442 */ t46858 = a26125; /* x133526 stalin.sc:16996:594435 */ /* MOVE: branching squeezed to general */ if (t46858>=((struct structure_type27501 *)VALUE_OFFSET)) {t46859.tag = STRUCTURE_TYPE27501; t46859.value.structure_type27501 = t46858;} else t46859.tag = (unsigned)t46858; t46853 = f14689(t46859); /* x133518 stalin.sc:16995:594359 */ /* MOVE: dispatching squished to general */ if ((t46852&3)==1) {t46854.tag = NATIVE_PROCEDURE_TYPE20851; t46854.value.native_procedure_type20851 = (struct p14711 *)(t46852-1);} else {t46854.tag = NATIVE_PROCEDURE_TYPE20928; t46854.value.native_procedure_type20928 = (struct p16486 *)t46852;} return f14627(t46849, t46850, t46851, t46854, t46853); l7231: /* x133541 stalin.sc:16997:594453 */ /* x133535 stalin.sc:16997:594457 */ /* x133533 stalin.sc:16997:594470 */ t46839 = a26123; /* x133534 stalin.sc:16997:594472 */ t46840 = a26124; /* x133532 stalin.sc:16997:594458 */ /* MOVE: branching squeezed to general */ if (t46839>=((struct p7717 *)VALUE_OFFSET)) {t46841.tag = NATIVE_PROCEDURE_TYPE15963; t46841.value.native_procedure_type15963 = t46839;} else t46841.tag = (unsigned)t46839; if ((f8144(t46841, t46840).tag)==FALSE_TYPE) goto l7233; /* x133538 stalin.sc:16997:594475 */ /* x133537 stalin.sc:16997:594479 */ /* x133536 stalin.sc:16997:594476 */ t46843 = a26128; if ((t46843&3)==1) {p37523 = (struct p14711 *)(t46843-1); /* x302886 stalin.sc:17033:595793 */ /* x302885 stalin.sc:17033:595807 */ t46844 = p37523->a26136; /* x302884 stalin.sc:17033:595794 */ return f14708(t46844);} p37504 = (struct p16486 *)t46843; /* x302810 stalin.sc:21738:761657 */ /* x302809 stalin.sc:21738:761670 */ t46845 = p37504->a27722; /* x302808 stalin.sc:21738:761658 */ return f14707(t46845); l7233: /* x133540 stalin.sc:16997:594483 */ /* x133539 stalin.sc:16997:594484 */ /* x295845 QobiScheme.sc:166:5314 */ /* x295844 QobiScheme.sc:166:5321 */ t46842 = "This shouldn\'t happen"; /* x295843 QobiScheme.sc:166:5315 */ stalin_panic(t46842); l7209: /* x133682 */ /* x133547 stalin.sc:16998:594504 */ /* x133546 stalin.sc:16998:594515 */ t46730 = a26124; /* x133545 stalin.sc:16998:594505 */ if (f14024(t46730)==FALSE_TYPE) goto l7211; /* x133617 */ /* x133616 */ /* x133615 stalin.sc:16999:594519 */ /* x133551 stalin.sc:16999:594523 */ /* x133549 stalin.sc:16999:594532 */ t46781 = a26123; /* x133550 stalin.sc:16999:594534 */ t46782 = a26124; /* x133548 stalin.sc:16999:594524 */ /* MOVE: branching squeezed to general */ if (t46781>=((struct p7717 *)VALUE_OFFSET)) {t46783.tag = NATIVE_PROCEDURE_TYPE15963; t46783.value.native_procedure_type15963 = t46781;} else t46783.tag = (unsigned)t46781; if ((f8137(t46783, t46782).tag)==FALSE_TYPE) goto l7221; /* x133604 stalin.sc:17000:594542 */ /* x133555 stalin.sc:17000:594546 */ /* x133553 stalin.sc:17000:594559 */ t46791 = a26123; /* x133554 stalin.sc:17000:594561 */ t46792 = a26124; /* x133552 stalin.sc:17000:594547 */ /* MOVE: branching squeezed to general */ if (t46791>=((struct p7717 *)VALUE_OFFSET)) {t46793.tag = NATIVE_PROCEDURE_TYPE15963; t46793.value.native_procedure_type15963 = t46791;} else t46793.tag = (unsigned)t46791; if ((f8144(t46793, t46792).tag)==FALSE_TYPE) goto l7225; /* x133580 stalin.sc:17001:594566 */ /* x133556 stalin.sc:17001:594570 */ if (a681==FALSE_TYPE) goto l7229; /* x133566 stalin.sc:17002:594587 */ /* x133561 stalin.sc:17002:594613 */ /* x133559 stalin.sc:17002:594627 */ t46833 = a26123; /* x133560 stalin.sc:17002:594629 */ t46834 = a26124; /* x133558 stalin.sc:17002:594614 */ /* MOVE: branching squeezed to general */ if (t46833>=((struct p7717 *)VALUE_OFFSET)) {t46835.tag = NATIVE_PROCEDURE_TYPE15963; t46835.value.native_procedure_type15963 = t46833;} else t46835.tag = (unsigned)t46833; t46826 = f8172(t46835, t46834); /* x133562 stalin.sc:17002:594632 */ t46827 = a26124; /* x133563 stalin.sc:17002:594634 */ t46828 = a26126; /* x133564 stalin.sc:17002:594637 */ t46829 = a26127; /* x133565 stalin.sc:17002:594640 */ t46830 = a26128; /* x133557 stalin.sc:17002:594588 */ /* MOVE: dispatching squished to general */ if ((t46829&3)==1) {t46831.tag = NATIVE_PROCEDURE_TYPE20851; t46831.value.native_procedure_type20851 = (struct p14711 *)(t46829-1);} else {t46831.tag = NATIVE_PROCEDURE_TYPE20928; t46831.value.native_procedure_type20928 = (struct p16486 *)t46829;} /* MOVE: dispatching squished to general */ if ((t46830&3)==1) {t46832.tag = NATIVE_PROCEDURE_TYPE20850; t46832.value.native_procedure_type20850 = (struct p14711 *)(t46830-1);} else {t46832.tag = NATIVE_PROCEDURE_TYPE20927; t46832.value.native_procedure_type20927 = (struct p16486 *)t46830;} return f14630(t46826, t46827, t46828, t46831, t46832); l7229: /* x133579 stalin.sc:17003:594650 */ /* x133571 stalin.sc:17004:594687 */ /* x133569 stalin.sc:17004:594701 */ t46821 = a26123; /* x133570 stalin.sc:17004:594703 */ t46822 = a26124; /* x133568 stalin.sc:17004:594688 */ /* MOVE: branching squeezed to general */ if (t46821>=((struct p7717 *)VALUE_OFFSET)) {t46823.tag = NATIVE_PROCEDURE_TYPE15963; t46823.value.native_procedure_type15963 = t46821;} else t46823.tag = (unsigned)t46821; t46813 = f8172(t46823, t46822); /* x133572 stalin.sc:17004:594706 */ t46814 = a26124; /* x133573 stalin.sc:17004:594708 */ t46815 = a26126; /* x133574 stalin.sc:17004:594711 */ t46816 = a26127; /* x133575 stalin.sc:17004:594714 */ t46817 = a26128; /* x133578 stalin.sc:17004:594717 */ /* x133577 stalin.sc:17004:594725 */ t46824 = a26125; /* x133576 stalin.sc:17004:594718 */ /* MOVE: branching squeezed to general */ if (t46824>=((struct structure_type27501 *)VALUE_OFFSET)) {t46825.tag = STRUCTURE_TYPE27501; t46825.value.structure_type27501 = t46824;} else t46825.tag = (unsigned)t46824; t46818 = f14689(t46825); /* x133567 stalin.sc:17003:594651 */ /* MOVE: dispatching squished to general */ if ((t46816&3)==1) {t46819.tag = NATIVE_PROCEDURE_TYPE20851; t46819.value.native_procedure_type20851 = (struct p14711 *)(t46816-1);} else {t46819.tag = NATIVE_PROCEDURE_TYPE20928; t46819.value.native_procedure_type20928 = (struct p16486 *)t46816;} /* MOVE: dispatching squished to general */ if ((t46817&3)==1) {t46820.tag = NATIVE_PROCEDURE_TYPE20850; t46820.value.native_procedure_type20850 = (struct p14711 *)(t46817-1);} else {t46820.tag = NATIVE_PROCEDURE_TYPE20927; t46820.value.native_procedure_type20927 = (struct p16486 *)t46817;} return f14646(t46813, t46814, t46815, t46819, t46820, t46818); l7225: /* x133603 stalin.sc:17005:594732 */ /* x133581 stalin.sc:17005:594736 */ if (a681==FALSE_TYPE) goto l7227; /* x133590 stalin.sc:17006:594753 */ /* x133586 stalin.sc:17007:594798 */ /* x133584 stalin.sc:17007:594812 */ t46810 = a26123; /* x133585 stalin.sc:17007:594814 */ t46811 = a26124; /* x133583 stalin.sc:17007:594799 */ /* MOVE: branching squeezed to general */ if (t46810>=((struct p7717 *)VALUE_OFFSET)) {t46812.tag = NATIVE_PROCEDURE_TYPE15963; t46812.value.native_procedure_type15963 = t46810;} else t46812.tag = (unsigned)t46810; t46805 = f8172(t46812, t46811); /* x133587 stalin.sc:17007:594817 */ t46806 = a26124; /* x133588 stalin.sc:17007:594819 */ t46807 = a26126; /* x133589 stalin.sc:17007:594822 */ t46808 = a26127; /* x133582 stalin.sc:17006:594754 */ /* MOVE: dispatching squished to general */ if ((t46808&3)==1) {t46809.tag = NATIVE_PROCEDURE_TYPE20851; t46809.value.native_procedure_type20851 = (struct p14711 *)(t46808-1);} else {t46809.tag = NATIVE_PROCEDURE_TYPE20928; t46809.value.native_procedure_type20928 = (struct p16486 *)t46808;} return f14637(t46805, t46806, t46807, t46809); l7227: /* x133602 stalin.sc:17008:594832 */ /* x133595 stalin.sc:17009:594881 */ /* x133593 stalin.sc:17009:594895 */ t46800 = a26123; /* x133594 stalin.sc:17009:594897 */ t46801 = a26124; /* x133592 stalin.sc:17009:594882 */ /* MOVE: branching squeezed to general */ if (t46800>=((struct p7717 *)VALUE_OFFSET)) {t46802.tag = NATIVE_PROCEDURE_TYPE15963; t46802.value.native_procedure_type15963 = t46800;} else t46802.tag = (unsigned)t46800; t46794 = f8172(t46802, t46801); /* x133596 stalin.sc:17009:594900 */ t46795 = a26124; /* x133597 stalin.sc:17009:594902 */ t46796 = a26126; /* x133598 stalin.sc:17009:594905 */ t46797 = a26127; /* x133601 stalin.sc:17009:594908 */ /* x133600 stalin.sc:17009:594916 */ t46803 = a26125; /* x133599 stalin.sc:17009:594909 */ /* MOVE: branching squeezed to general */ if (t46803>=((struct structure_type27501 *)VALUE_OFFSET)) {t46804.tag = STRUCTURE_TYPE27501; t46804.value.structure_type27501 = t46803;} else t46804.tag = (unsigned)t46803; t46798 = f14689(t46804); /* x133591 stalin.sc:17008:594833 */ /* MOVE: dispatching squished to general */ if ((t46797&3)==1) {t46799.tag = NATIVE_PROCEDURE_TYPE20851; t46799.value.native_procedure_type20851 = (struct p14711 *)(t46797-1);} else {t46799.tag = NATIVE_PROCEDURE_TYPE20928; t46799.value.native_procedure_type20928 = (struct p16486 *)t46797;} return f14673(t46794, t46795, t46796, t46799, t46798); l7221: /* x133614 stalin.sc:17010:594927 */ /* x133608 stalin.sc:17010:594931 */ /* x133606 stalin.sc:17010:594944 */ t46784 = a26123; /* x133607 stalin.sc:17010:594946 */ t46785 = a26124; /* x133605 stalin.sc:17010:594932 */ /* MOVE: branching squeezed to general */ if (t46784>=((struct p7717 *)VALUE_OFFSET)) {t46786.tag = NATIVE_PROCEDURE_TYPE15963; t46786.value.native_procedure_type15963 = t46784;} else t46786.tag = (unsigned)t46784; if ((f8144(t46786, t46785).tag)==FALSE_TYPE) goto l7223; /* x133611 stalin.sc:17010:594949 */ /* x133610 stalin.sc:17010:594953 */ /* x133609 stalin.sc:17010:594950 */ t46788 = a26128; if ((t46788&3)==1) {p37527 = (struct p14711 *)(t46788-1); /* x302902 stalin.sc:17033:595793 */ /* x302901 stalin.sc:17033:595807 */ t46789 = p37527->a26136; /* x302900 stalin.sc:17033:595794 */ return f14708(t46789);} p37508 = (struct p16486 *)t46788; /* x302826 stalin.sc:21738:761657 */ /* x302825 stalin.sc:21738:761670 */ t46790 = p37508->a27722; /* x302824 stalin.sc:21738:761658 */ return f14707(t46790); l7223: /* x133613 stalin.sc:17010:594957 */ /* x133612 stalin.sc:17010:594958 */ /* x295849 QobiScheme.sc:166:5314 */ /* x295848 QobiScheme.sc:166:5321 */ t46787 = "This shouldn\'t happen"; /* x295847 QobiScheme.sc:166:5315 */ stalin_panic(t46787); l7211: /* x133681 */ /* x133680 */ /* x133679 stalin.sc:17013:595088 */ /* x133621 stalin.sc:17013:595092 */ /* x133619 stalin.sc:17013:595101 */ t46731 = a26123; /* x133620 stalin.sc:17013:595103 */ t46732 = a26124; /* x133618 stalin.sc:17013:595093 */ /* MOVE: branching squeezed to general */ if (t46731>=((struct p7717 *)VALUE_OFFSET)) {t46733.tag = NATIVE_PROCEDURE_TYPE15963; t46733.value.native_procedure_type15963 = t46731;} else t46733.tag = (unsigned)t46731; if ((f8137(t46733, t46732).tag)==FALSE_TYPE) goto l7213; /* x133668 stalin.sc:17014:595109 */ /* x133625 stalin.sc:17014:595113 */ /* x133623 stalin.sc:17014:595126 */ t46741 = a26123; /* x133624 stalin.sc:17014:595128 */ t46742 = a26124; /* x133622 stalin.sc:17014:595114 */ /* MOVE: branching squeezed to general */ if (t46741>=((struct p7717 *)VALUE_OFFSET)) {t46743.tag = NATIVE_PROCEDURE_TYPE15963; t46743.value.native_procedure_type15963 = t46741;} else t46743.tag = (unsigned)t46741; if ((f8144(t46743, t46742).tag)==FALSE_TYPE) goto l7217; /* x133638 stalin.sc:17015:595138 */ /* x133630 stalin.sc:17016:595167 */ /* x133628 stalin.sc:17016:595181 */ t46776 = a26123; /* x133629 stalin.sc:17016:595183 */ t46777 = a26124; /* x133627 stalin.sc:17016:595168 */ /* MOVE: branching squeezed to general */ if (t46776>=((struct p7717 *)VALUE_OFFSET)) {t46778.tag = NATIVE_PROCEDURE_TYPE15963; t46778.value.native_procedure_type15963 = t46776;} else t46778.tag = (unsigned)t46776; t46768 = f8172(t46778, t46777); /* x133631 stalin.sc:17016:595186 */ t46769 = a26124; /* x133632 stalin.sc:17016:595188 */ t46770 = a26126; /* x133633 stalin.sc:17016:595191 */ t46771 = a26127; /* x133634 stalin.sc:17016:595194 */ t46772 = a26128; /* x133637 stalin.sc:17016:595197 */ /* x133636 stalin.sc:17016:595205 */ t46779 = a26125; /* x133635 stalin.sc:17016:595198 */ /* MOVE: branching squeezed to general */ if (t46779>=((struct structure_type27501 *)VALUE_OFFSET)) {t46780.tag = STRUCTURE_TYPE27501; t46780.value.structure_type27501 = t46779;} else t46780.tag = (unsigned)t46779; t46773 = f14689(t46780); /* x133626 stalin.sc:17015:595139 */ /* MOVE: dispatching squished to general */ if ((t46771&3)==1) {t46774.tag = NATIVE_PROCEDURE_TYPE20851; t46774.value.native_procedure_type20851 = (struct p14711 *)(t46771-1);} else {t46774.tag = NATIVE_PROCEDURE_TYPE20928; t46774.value.native_procedure_type20928 = (struct p16486 *)t46771;} /* MOVE: dispatching squished to general */ if ((t46772&3)==1) {t46775.tag = NATIVE_PROCEDURE_TYPE20850; t46775.value.native_procedure_type20850 = (struct p14711 *)(t46772-1);} else {t46775.tag = NATIVE_PROCEDURE_TYPE20927; t46775.value.native_procedure_type20927 = (struct p16486 *)t46772;} return f14680(t46768, t46769, t46770, t46774, t46775, t46773); l7217: /* x133667 stalin.sc:17017:595216 */ /* x133646 stalin.sc:17017:595220 */ /* x133645 stalin.sc:17017:595227 */ /* x133644 stalin.sc:17017:595233 */ /* x133642 stalin.sc:17017:595247 */ t46747 = a26123; /* x133643 stalin.sc:17017:595249 */ t46748 = a26124; /* x133641 stalin.sc:17017:595234 */ /* MOVE: branching squeezed to general */ if (t46747>=((struct p7717 *)VALUE_OFFSET)) {t46749.tag = NATIVE_PROCEDURE_TYPE15963; t46749.value.native_procedure_type15963 = t46747;} else t46749.tag = (unsigned)t46747; t46745 = f8172(t46749, t46748); /* x133640 stalin.sc:17017:595228 */ a35438 = t46745; /* x273109 */ /* x273108 */ t46746 = a35438; /* x273107 */ if (!((t46746.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29587]"); structure_ref_error();} t46744 = t46746.value.structure_type24753->s1; /* x268800 stalin.sc:17017:595221 */ if (!((t46744.tag)==NULL_TYPE)) goto l7219; /* x133654 stalin.sc:17018:595258 */ /* x133653 stalin.sc:17018:595262 */ /* x133652 stalin.sc:17018:595269 */ /* x133650 stalin.sc:17018:595283 */ t46765 = a26123; /* x133651 stalin.sc:17018:595285 */ t46766 = a26124; /* x133649 stalin.sc:17018:595270 */ /* MOVE: branching squeezed to general */ if (t46765>=((struct p7717 *)VALUE_OFFSET)) {t46767.tag = NATIVE_PROCEDURE_TYPE15963; t46767.value.native_procedure_type15963 = t46765;} else t46767.tag = (unsigned)t46765; t46763 = f8172(t46767, t46766); /* x133648 stalin.sc:17018:595263 */ a35907 = t46763; /* x274985 */ /* x274984 */ t46764 = a35907; /* x274983 */ if (!((t46764.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30056]"); structure_ref_error();} t46762 = t46764.value.structure_type24753->s0; /* x133647 stalin.sc:17018:595259 */ t46761 = a26127; if ((t46761&3)==1) return f14712((struct p14711 *)(t46761-1)); return f16597(((struct p16486 *)t46761), t46762); l7219: /* x133666 stalin.sc:17019:595294 */ /* x133659 stalin.sc:17020:595332 */ /* x133657 stalin.sc:17020:595346 */ t46756 = a26123; /* x133658 stalin.sc:17020:595348 */ t46757 = a26124; /* x133656 stalin.sc:17020:595333 */ /* MOVE: branching squeezed to general */ if (t46756>=((struct p7717 *)VALUE_OFFSET)) {t46758.tag = NATIVE_PROCEDURE_TYPE15963; t46758.value.native_procedure_type15963 = t46756;} else t46758.tag = (unsigned)t46756; t46750 = f8172(t46758, t46757); /* x133660 stalin.sc:17020:595351 */ t46751 = a26124; /* x133661 stalin.sc:17020:595353 */ t46752 = a26126; /* x133662 stalin.sc:17020:595356 */ t46753 = a26127; /* x133665 stalin.sc:17020:595359 */ /* x133664 stalin.sc:17020:595367 */ t46759 = a26125; /* x133663 stalin.sc:17020:595360 */ /* MOVE: branching squeezed to general */ if (t46759>=((struct structure_type27501 *)VALUE_OFFSET)) {t46760.tag = STRUCTURE_TYPE27501; t46760.value.structure_type27501 = t46759;} else t46760.tag = (unsigned)t46759; t46754 = f14689(t46760); /* x133655 stalin.sc:17019:595295 */ /* MOVE: dispatching squished to general */ if ((t46753&3)==1) {t46755.tag = NATIVE_PROCEDURE_TYPE20851; t46755.value.native_procedure_type20851 = (struct p14711 *)(t46753-1);} else {t46755.tag = NATIVE_PROCEDURE_TYPE20928; t46755.value.native_procedure_type20928 = (struct p16486 *)t46753;} return f14687(t46750, t46751, t46752, t46755, t46754); l7213: /* x133678 stalin.sc:17021:595376 */ /* x133672 stalin.sc:17021:595380 */ /* x133670 stalin.sc:17021:595393 */ t46734 = a26123; /* x133671 stalin.sc:17021:595395 */ t46735 = a26124; /* x133669 stalin.sc:17021:595381 */ /* MOVE: branching squeezed to general */ if (t46734>=((struct p7717 *)VALUE_OFFSET)) {t46736.tag = NATIVE_PROCEDURE_TYPE15963; t46736.value.native_procedure_type15963 = t46734;} else t46736.tag = (unsigned)t46734; if ((f8144(t46736, t46735).tag)==FALSE_TYPE) goto l7215; /* x133675 stalin.sc:17021:595398 */ /* x133674 stalin.sc:17021:595402 */ /* x133673 stalin.sc:17021:595399 */ t46738 = a26128; if ((t46738&3)==1) {p37531 = (struct p14711 *)(t46738-1); /* x302918 stalin.sc:17033:595793 */ /* x302917 stalin.sc:17033:595807 */ t46739 = p37531->a26136; /* x302916 stalin.sc:17033:595794 */ return f14708(t46739);} p37512 = (struct p16486 *)t46738; /* x302842 stalin.sc:21738:761657 */ /* x302841 stalin.sc:21738:761670 */ t46740 = p37512->a27722; /* x302840 stalin.sc:21738:761658 */ return f14707(t46740); l7215: /* x133677 stalin.sc:17021:595406 */ /* x133676 stalin.sc:17021:595407 */ /* x295853 QobiScheme.sc:166:5314 */ /* x295852 QobiScheme.sc:166:5321 */ t46737 = "This shouldn\'t happen"; /* x295851 QobiScheme.sc:166:5315 */ stalin_panic(t46737);} /* NONCHECKING-TYPE-SWITCH[14696] */ struct w49 f14696(unsigned a26117, struct w49 a26118, struct w12218 a26119, struct w49 a26120, unsigned a26121) {struct w49 t46891; struct w49 t46892; struct w12224 t46893; struct w49 t46894; struct w49 t46895; unsigned t46896; unsigned t46897; struct w155862 t46898; unsigned t46899; struct w49 t46900; struct w211061 t46901; struct w12218 t46902; struct w12224 t46903; struct w49 t46904; struct w49 t46905; unsigned t46906; unsigned t46907; struct w155862 t46908; unsigned t46909; struct w49 t46910; struct w211061 t46911; struct w12218 t46912; struct w12224 t46913; struct w49 t46914; struct w49 t46915; unsigned t46916; struct w155862 t46917; unsigned t46918; struct w49 t46919; struct w211061 t46920; struct w12224 t46921; struct w49 t46922; struct w49 t46923; unsigned t46924; unsigned t46925; struct w155862 t46926; unsigned t46927; struct w49 t46928; struct w211061 t46929; struct w12218 t46930; struct w12224 t46931; struct w49 t46932; struct w49 t46933; unsigned t46934; struct w155862 t46935; unsigned t46936; struct w49 t46937; struct w211061 t46938; unsigned t46939; struct w49 t46940; struct w211257 t46941; char *t46942; /* x133469 */ /* x133468 stalin.sc:16964:593030 */ /* x133461 stalin.sc:16964:593038 */ /* x133459 stalin.sc:16964:593047 */ t46939 = a26117; /* x133460 stalin.sc:16964:593049 */ t46940 = a26118; /* x133458 stalin.sc:16964:593039 */ /* MOVE: dispatching squished to general */ switch (t46939&3) {case 2: t46941.tag = NATIVE_PROCEDURE_TYPE20287; t46941.value.native_procedure_type20287 = (struct p15370 *)(t46939-2); break; case 0: t46941.tag = NATIVE_PROCEDURE_TYPE20497; t46941.value.native_procedure_type20497 = (struct p15370 *)t46939; break; default: t46941.tag = NATIVE_PROCEDURE_TYPE20553; t46941.value.native_procedure_type20553 = (struct p15370 *)(t46939-1);} if ((f8137(t46941, t46940).tag)==FALSE_TYPE) goto l7249; /* x133463 */ /* x133462 */ goto l7250; l7249: /* x133467 */ /* x133466 */ /* x133465 stalin.sc:16964:593052 */ /* x133464 stalin.sc:16964:593053 */ /* x296065 QobiScheme.sc:166:5314 */ /* x296064 QobiScheme.sc:166:5321 */ t46942 = "This shouldn\'t happen"; /* x296063 QobiScheme.sc:166:5315 */ stalin_panic(t46942); l7250: /* x133457 */ /* x133456 stalin.sc:16965:593064 */ /* x133387 stalin.sc:16965:593071 */ /* x133386 stalin.sc:16965:593082 */ t46891 = a26118; /* x133385 stalin.sc:16965:593072 */ if (f13859(t46891)==FALSE_TYPE) goto l7241; /* x133412 */ /* x133411 */ /* x133410 stalin.sc:16966:593086 */ /* x133388 stalin.sc:16966:593090 */ if (a681==FALSE_TYPE) goto l7247; /* x133397 stalin.sc:16967:593106 */ /* x133393 stalin.sc:16967:593144 */ /* x133391 stalin.sc:16967:593158 */ t46936 = a26117; /* x133392 stalin.sc:16967:593160 */ t46937 = a26118; /* x133390 stalin.sc:16967:593145 */ /* MOVE: dispatching squished to general */ switch (t46936&3) {case 2: t46938.tag = NATIVE_PROCEDURE_TYPE20287; t46938.value.native_procedure_type20287 = (struct p15370 *)(t46936-2); break; case 0: t46938.tag = NATIVE_PROCEDURE_TYPE20497; t46938.value.native_procedure_type20497 = (struct p15370 *)t46936; break; default: t46938.tag = NATIVE_PROCEDURE_TYPE20553; t46938.value.native_procedure_type20553 = (struct p15370 *)(t46936-1);} t46931 = f8172(t46938, t46937); /* x133394 stalin.sc:16967:593163 */ t46932 = a26118; /* x133395 stalin.sc:16967:593165 */ t46933 = a26120; /* x133396 stalin.sc:16967:593168 */ t46934 = a26121; /* x133389 stalin.sc:16967:593107 */ /* MOVE: dispatching squished to general */ switch (t46934&3) {case 2: t46935.tag = NATIVE_PROCEDURE_TYPE20286; t46935.value.native_procedure_type20286 = (struct p15369 *)(t46934-2); break; case 0: t46935.tag = NATIVE_PROCEDURE_TYPE20496; t46935.value.native_procedure_type20496 = (struct p15369 *)t46934; break; default: t46935.tag = NATIVE_PROCEDURE_TYPE20552; t46935.value.native_procedure_type20552 = (struct p15369 *)(t46934-1);} return f14612(t46931, t46932, t46933, t46935); l7247: /* x133409 stalin.sc:16968:593177 */ /* x133402 stalin.sc:16969:593225 */ /* x133400 stalin.sc:16969:593239 */ t46927 = a26117; /* x133401 stalin.sc:16969:593241 */ t46928 = a26118; /* x133399 stalin.sc:16969:593226 */ /* MOVE: dispatching squished to general */ switch (t46927&3) {case 2: t46929.tag = NATIVE_PROCEDURE_TYPE20287; t46929.value.native_procedure_type20287 = (struct p15370 *)(t46927-2); break; case 0: t46929.tag = NATIVE_PROCEDURE_TYPE20497; t46929.value.native_procedure_type20497 = (struct p15370 *)t46927; break; default: t46929.tag = NATIVE_PROCEDURE_TYPE20553; t46929.value.native_procedure_type20553 = (struct p15370 *)(t46927-1);} t46921 = f8172(t46929, t46928); /* x133403 stalin.sc:16969:593244 */ t46922 = a26118; /* x133404 stalin.sc:16969:593246 */ t46923 = a26120; /* x133405 stalin.sc:16969:593249 */ t46924 = a26121; /* x133408 stalin.sc:16969:593252 */ /* x133407 stalin.sc:16969:593260 */ t46930 = a26119; /* x133406 stalin.sc:16969:593253 */ t46925 = f14689(t46930); /* x133398 stalin.sc:16968:593178 */ /* MOVE: dispatching squished to general */ switch (t46924&3) {case 2: t46926.tag = NATIVE_PROCEDURE_TYPE20286; t46926.value.native_procedure_type20286 = (struct p15369 *)(t46924-2); break; case 0: t46926.tag = NATIVE_PROCEDURE_TYPE20496; t46926.value.native_procedure_type20496 = (struct p15369 *)t46924; break; default: t46926.tag = NATIVE_PROCEDURE_TYPE20552; t46926.value.native_procedure_type20552 = (struct p15369 *)(t46924-1);} return f14627(t46921, t46922, t46923, t46926, t46925); l7241: /* x133455 */ /* x133415 stalin.sc:16970:593274 */ /* x133414 stalin.sc:16970:593285 */ t46892 = a26118; /* x133413 stalin.sc:16970:593275 */ if (f14024(t46892)==FALSE_TYPE) goto l7243; /* x133440 */ /* x133439 */ /* x133438 stalin.sc:16971:593289 */ /* x133416 stalin.sc:16971:593293 */ if (a681==FALSE_TYPE) goto l7245; /* x133425 stalin.sc:16972:593309 */ /* x133421 stalin.sc:16972:593347 */ /* x133419 stalin.sc:16972:593361 */ t46918 = a26117; /* x133420 stalin.sc:16972:593363 */ t46919 = a26118; /* x133418 stalin.sc:16972:593348 */ /* MOVE: dispatching squished to general */ switch (t46918&3) {case 2: t46920.tag = NATIVE_PROCEDURE_TYPE20287; t46920.value.native_procedure_type20287 = (struct p15370 *)(t46918-2); break; case 0: t46920.tag = NATIVE_PROCEDURE_TYPE20497; t46920.value.native_procedure_type20497 = (struct p15370 *)t46918; break; default: t46920.tag = NATIVE_PROCEDURE_TYPE20553; t46920.value.native_procedure_type20553 = (struct p15370 *)(t46918-1);} t46913 = f8172(t46920, t46919); /* x133422 stalin.sc:16972:593366 */ t46914 = a26118; /* x133423 stalin.sc:16972:593368 */ t46915 = a26120; /* x133424 stalin.sc:16972:593371 */ t46916 = a26121; /* x133417 stalin.sc:16972:593310 */ /* MOVE: dispatching squished to general */ switch (t46916&3) {case 2: t46917.tag = NATIVE_PROCEDURE_TYPE20286; t46917.value.native_procedure_type20286 = (struct p15369 *)(t46916-2); break; case 0: t46917.tag = NATIVE_PROCEDURE_TYPE20496; t46917.value.native_procedure_type20496 = (struct p15369 *)t46916; break; default: t46917.tag = NATIVE_PROCEDURE_TYPE20552; t46917.value.native_procedure_type20552 = (struct p15369 *)(t46916-1);} return f14637(t46913, t46914, t46915, t46917); l7245: /* x133437 stalin.sc:16973:593380 */ /* x133430 stalin.sc:16974:593428 */ /* x133428 stalin.sc:16974:593442 */ t46909 = a26117; /* x133429 stalin.sc:16974:593444 */ t46910 = a26118; /* x133427 stalin.sc:16974:593429 */ /* MOVE: dispatching squished to general */ switch (t46909&3) {case 2: t46911.tag = NATIVE_PROCEDURE_TYPE20287; t46911.value.native_procedure_type20287 = (struct p15370 *)(t46909-2); break; case 0: t46911.tag = NATIVE_PROCEDURE_TYPE20497; t46911.value.native_procedure_type20497 = (struct p15370 *)t46909; break; default: t46911.tag = NATIVE_PROCEDURE_TYPE20553; t46911.value.native_procedure_type20553 = (struct p15370 *)(t46909-1);} t46903 = f8172(t46911, t46910); /* x133431 stalin.sc:16974:593447 */ t46904 = a26118; /* x133432 stalin.sc:16974:593449 */ t46905 = a26120; /* x133433 stalin.sc:16974:593452 */ t46906 = a26121; /* x133436 stalin.sc:16974:593455 */ /* x133435 stalin.sc:16974:593463 */ t46912 = a26119; /* x133434 stalin.sc:16974:593456 */ t46907 = f14689(t46912); /* x133426 stalin.sc:16973:593381 */ /* MOVE: dispatching squished to general */ switch (t46906&3) {case 2: t46908.tag = NATIVE_PROCEDURE_TYPE20286; t46908.value.native_procedure_type20286 = (struct p15369 *)(t46906-2); break; case 0: t46908.tag = NATIVE_PROCEDURE_TYPE20496; t46908.value.native_procedure_type20496 = (struct p15369 *)t46906; break; default: t46908.tag = NATIVE_PROCEDURE_TYPE20552; t46908.value.native_procedure_type20552 = (struct p15369 *)(t46906-1);} return f14673(t46903, t46904, t46905, t46908, t46907); l7243: /* x133454 */ /* x133453 */ /* x133452 stalin.sc:16976:593545 */ /* x133445 stalin.sc:16977:593585 */ /* x133443 stalin.sc:16977:593599 */ t46899 = a26117; /* x133444 stalin.sc:16977:593601 */ t46900 = a26118; /* x133442 stalin.sc:16977:593586 */ /* MOVE: dispatching squished to general */ switch (t46899&3) {case 2: t46901.tag = NATIVE_PROCEDURE_TYPE20287; t46901.value.native_procedure_type20287 = (struct p15370 *)(t46899-2); break; case 0: t46901.tag = NATIVE_PROCEDURE_TYPE20497; t46901.value.native_procedure_type20497 = (struct p15370 *)t46899; break; default: t46901.tag = NATIVE_PROCEDURE_TYPE20553; t46901.value.native_procedure_type20553 = (struct p15370 *)(t46899-1);} t46893 = f8172(t46901, t46900); /* x133446 stalin.sc:16977:593604 */ t46894 = a26118; /* x133447 stalin.sc:16977:593606 */ t46895 = a26120; /* x133448 stalin.sc:16977:593609 */ t46896 = a26121; /* x133451 stalin.sc:16977:593612 */ /* x133450 stalin.sc:16977:593620 */ t46902 = a26119; /* x133449 stalin.sc:16977:593613 */ t46897 = f14689(t46902); /* x133441 stalin.sc:16976:593546 */ /* MOVE: dispatching squished to general */ switch (t46896&3) {case 2: t46898.tag = NATIVE_PROCEDURE_TYPE20286; t46898.value.native_procedure_type20286 = (struct p15369 *)(t46896-2); break; case 0: t46898.tag = NATIVE_PROCEDURE_TYPE20496; t46898.value.native_procedure_type20496 = (struct p15369 *)t46896; break; default: t46898.tag = NATIVE_PROCEDURE_TYPE20552; t46898.value.native_procedure_type20552 = (struct p15369 *)(t46896-1);} return f14687(t46893, t46894, t46895, t46898, t46897);} /* TYPE-SWITCH[14692] */ struct w49 f14692(void) {struct w49 r14692; unsigned a26111 = b26111; /* M */ struct w49 a26112 = b26112; /* W */ struct structure_type27501 *a26113 = b26113; /* R */ struct w49 a26114 = b26114; /* C1 */ struct w155635 a26115 = b26115; /* C2 */ struct w155624 a26116 = b26116; /* C3 */ struct w12224 a35444; /* PAIR */ struct w12224 a35749; /* PAIR */ struct w49 t46943; struct w49 t46944; unsigned t46945; struct w49 t46946; struct w211257 t46947; unsigned t46948; struct w49 t46949; struct w211235 t46950; char *t46951; struct w155624 t46952; unsigned t46953; struct structure_type24753 *t46954; unsigned t46955; struct structure_type24753 *t46956; unsigned t46957; struct structure_type24753 *t46958; unsigned t46959; struct structure_type24753 *t46960; unsigned t46961; struct structure_type24753 *t46962; char *t46963; char *t46964; unsigned t46965; struct structure_type24753 *t46966; unsigned t46967; struct structure_type24753 *t46968; unsigned t46969; struct structure_type24753 *t46970; unsigned t46971; struct structure_type24753 *t46972; unsigned t46973; struct structure_type24753 *t46974; unsigned t46975; struct structure_type24753 *t46976; unsigned t46977; struct structure_type24753 *t46978; unsigned t46979; struct structure_type24753 *t46980; unsigned t46981; struct structure_type24753 *t46982; unsigned t46983; struct structure_type24753 *t46984; unsigned t46985; struct structure_type24753 *t46986; unsigned t46987; struct structure_type24753 *t46988; unsigned t46989; struct structure_type24753 *t46990; unsigned t46991; struct structure_type24753 *t46992; unsigned t46993; struct structure_type24753 *t46994; unsigned t46995; struct structure_type24753 *t46996; unsigned t46997; struct structure_type24753 *t46998; unsigned t46999; struct structure_type24753 *t47000; unsigned t47001; struct structure_type24753 *t47002; unsigned t47003; struct structure_type24753 *t47004; unsigned t47005; struct structure_type24753 *t47006; unsigned t47007; struct structure_type24753 *t47008; unsigned t47009; struct structure_type24753 *t47010; unsigned t47011; struct structure_type24753 *t47012; unsigned t47013; struct structure_type24753 *t47014; unsigned t47015; struct structure_type24753 *t47016; unsigned t47017; struct structure_type24753 *t47018; unsigned t47019; struct structure_type24753 *t47020; unsigned t47021; struct structure_type24753 *t47022; unsigned t47023; struct structure_type24753 *t47024; unsigned t47025; struct structure_type24753 *t47026; unsigned t47027; struct structure_type24753 *t47028; unsigned t47029; struct structure_type24753 *t47030; unsigned t47031; struct structure_type24753 *t47032; unsigned t47033; struct structure_type24753 *t47034; unsigned t47035; struct structure_type24753 *t47036; unsigned t47037; struct structure_type24753 *t47038; unsigned t47039; struct structure_type24753 *t47040; unsigned t47041; struct structure_type24753 *t47042; unsigned t47043; struct structure_type24753 *t47044; unsigned t47045; struct structure_type24753 *t47046; unsigned t47047; struct structure_type24753 *t47048; unsigned t47049; struct structure_type24753 *t47050; unsigned t47051; struct structure_type24753 *t47052; unsigned t47053; struct structure_type24753 *t47054; unsigned t47055; struct structure_type24753 *t47056; struct structure_type24753 *t47057; unsigned t47058; struct structure_type24753 *t47059; unsigned t47060; struct structure_type24753 *t47061; unsigned t47062; struct structure_type24753 *t47063; unsigned t47064; struct structure_type24753 *t47065; unsigned t47066; struct structure_type24753 *t47067; unsigned t47068; struct structure_type24753 *t47069; unsigned t47070; struct structure_type24753 *t47071; unsigned t47072; struct structure_type24753 *t47073; unsigned t47074; struct structure_type24753 *t47075; unsigned t47076; struct structure_type24753 *t47077; unsigned t47078; struct structure_type24753 *t47079; unsigned t47080; struct structure_type24753 *t47081; unsigned t47082; struct structure_type24753 *t47083; unsigned t47084; struct structure_type24753 *t47085; unsigned t47086; struct structure_type24753 *t47087; unsigned t47088; struct structure_type24753 *t47089; unsigned t47090; struct structure_type24753 *t47091; unsigned t47092; struct structure_type24753 *t47093; unsigned t47094; struct structure_type24753 *t47095; unsigned t47096; struct structure_type24753 *t47097; unsigned t47098; struct structure_type24753 *t47099; unsigned t47100; struct structure_type24753 *t47101; unsigned t47102; struct structure_type24753 *t47103; unsigned t47104; struct structure_type24753 *t47105; unsigned t47106; struct structure_type24753 *t47107; unsigned t47108; struct structure_type24753 *t47109; unsigned t47110; struct structure_type24753 *t47111; unsigned t47112; struct structure_type24753 *t47113; unsigned t47114; struct structure_type24753 *t47115; unsigned t47116; struct structure_type24753 *t47117; unsigned t47118; struct structure_type24753 *t47119; unsigned t47120; struct structure_type24753 *t47121; unsigned t47122; struct structure_type24753 *t47123; unsigned t47124; struct structure_type24753 *t47125; unsigned t47126; struct structure_type24753 *t47127; unsigned t47128; struct structure_type24753 *t47129; unsigned t47130; struct structure_type24753 *t47131; unsigned t47132; struct structure_type24753 *t47133; unsigned t47134; struct structure_type24753 *t47135; unsigned t47136; struct structure_type24753 *t47137; unsigned t47138; struct structure_type24753 *t47139; unsigned t47140; struct structure_type24753 *t47141; unsigned t47142; struct structure_type24753 *t47143; unsigned t47144; struct structure_type24753 *t47145; unsigned t47146; struct structure_type24753 *t47147; unsigned t47148; struct structure_type24753 *t47149; unsigned t47150; struct structure_type24753 *t47151; unsigned t47152; struct structure_type24753 *t47153; unsigned t47154; struct structure_type24753 *t47155; unsigned t47156; struct structure_type24753 *t47157; unsigned t47158; struct structure_type24753 *t47159; unsigned t47160; struct structure_type24753 *t47161; char *t47162; unsigned t47163; struct w49 t47164; struct w211235 t47165; struct w49 t47166; struct w12224 t47167; struct w12224 t47168; unsigned t47169; struct w49 t47170; struct w211061 t47171; struct w12224 t47172; struct w49 t47173; struct w49 t47174; struct w155635 t47175; unsigned t47176; struct w155862 t47177; unsigned t47178; struct w49 t47179; struct w211061 t47180; struct structure_type27501 *t47181; struct w12218 t47182; struct w155635 t47183; struct w49 t47184; struct structure_type24753 *t47185; struct structure_type24753 *t47186; struct w12224 t47187; struct w12224 t47188; unsigned t47189; struct w49 t47190; struct w211061 t47191; struct w12224 t47192; struct w49 t47193; struct w49 t47194; struct w155635 t47195; struct w155624 t47196; unsigned t47197; struct w155919 t47198; struct w155916 t47199; unsigned t47200; struct w49 t47201; struct w211061 t47202; struct structure_type27501 *t47203; struct w12218 t47204; unsigned t47205; struct w49 t47206; struct w211257 t47207; unsigned t47208; struct w49 t47209; struct w211235 t47210; char *t47211; struct w155624 t47212; unsigned t47213; struct structure_type24753 *t47214; unsigned t47215; struct structure_type24753 *t47216; unsigned t47217; struct structure_type24753 *t47218; unsigned t47219; struct structure_type24753 *t47220; unsigned t47221; struct structure_type24753 *t47222; char *t47223; char *t47224; unsigned t47225; struct structure_type24753 *t47226; unsigned t47227; struct structure_type24753 *t47228; unsigned t47229; struct structure_type24753 *t47230; unsigned t47231; struct structure_type24753 *t47232; unsigned t47233; struct structure_type24753 *t47234; unsigned t47235; struct structure_type24753 *t47236; unsigned t47237; struct structure_type24753 *t47238; unsigned t47239; struct structure_type24753 *t47240; unsigned t47241; struct structure_type24753 *t47242; unsigned t47243; struct structure_type24753 *t47244; unsigned t47245; struct structure_type24753 *t47246; unsigned t47247; struct structure_type24753 *t47248; unsigned t47249; struct structure_type24753 *t47250; unsigned t47251; struct structure_type24753 *t47252; unsigned t47253; struct structure_type24753 *t47254; unsigned t47255; struct structure_type24753 *t47256; unsigned t47257; struct structure_type24753 *t47258; unsigned t47259; struct structure_type24753 *t47260; unsigned t47261; struct structure_type24753 *t47262; unsigned t47263; struct structure_type24753 *t47264; unsigned t47265; struct structure_type24753 *t47266; unsigned t47267; struct structure_type24753 *t47268; unsigned t47269; struct structure_type24753 *t47270; unsigned t47271; struct structure_type24753 *t47272; unsigned t47273; struct structure_type24753 *t47274; unsigned t47275; struct structure_type24753 *t47276; unsigned t47277; struct structure_type24753 *t47278; unsigned t47279; struct structure_type24753 *t47280; unsigned t47281; struct structure_type24753 *t47282; unsigned t47283; struct structure_type24753 *t47284; unsigned t47285; struct structure_type24753 *t47286; unsigned t47287; struct structure_type24753 *t47288; unsigned t47289; struct structure_type24753 *t47290; unsigned t47291; struct structure_type24753 *t47292; unsigned t47293; struct structure_type24753 *t47294; unsigned t47295; struct structure_type24753 *t47296; unsigned t47297; struct structure_type24753 *t47298; unsigned t47299; struct structure_type24753 *t47300; unsigned t47301; struct structure_type24753 *t47302; unsigned t47303; struct structure_type24753 *t47304; unsigned t47305; struct structure_type24753 *t47306; unsigned t47307; struct structure_type24753 *t47308; unsigned t47309; struct structure_type24753 *t47310; unsigned t47311; struct structure_type24753 *t47312; unsigned t47313; struct structure_type24753 *t47314; unsigned t47315; struct structure_type24753 *t47316; struct structure_type24753 *t47317; unsigned t47318; struct structure_type24753 *t47319; unsigned t47320; struct structure_type24753 *t47321; unsigned t47322; struct structure_type24753 *t47323; unsigned t47324; struct structure_type24753 *t47325; unsigned t47326; struct structure_type24753 *t47327; unsigned t47328; struct structure_type24753 *t47329; unsigned t47330; struct structure_type24753 *t47331; unsigned t47332; struct structure_type24753 *t47333; unsigned t47334; struct structure_type24753 *t47335; unsigned t47336; struct structure_type24753 *t47337; unsigned t47338; struct structure_type24753 *t47339; unsigned t47340; struct structure_type24753 *t47341; unsigned t47342; struct structure_type24753 *t47343; unsigned t47344; struct structure_type24753 *t47345; unsigned t47346; struct structure_type24753 *t47347; unsigned t47348; struct structure_type24753 *t47349; unsigned t47350; struct structure_type24753 *t47351; unsigned t47352; struct structure_type24753 *t47353; unsigned t47354; struct structure_type24753 *t47355; unsigned t47356; struct structure_type24753 *t47357; unsigned t47358; struct structure_type24753 *t47359; unsigned t47360; struct structure_type24753 *t47361; unsigned t47362; struct structure_type24753 *t47363; unsigned t47364; struct structure_type24753 *t47365; unsigned t47366; struct structure_type24753 *t47367; unsigned t47368; struct structure_type24753 *t47369; unsigned t47370; struct structure_type24753 *t47371; unsigned t47372; struct structure_type24753 *t47373; unsigned t47374; struct structure_type24753 *t47375; unsigned t47376; struct structure_type24753 *t47377; unsigned t47378; struct structure_type24753 *t47379; unsigned t47380; struct structure_type24753 *t47381; unsigned t47382; struct structure_type24753 *t47383; unsigned t47384; struct structure_type24753 *t47385; unsigned t47386; struct structure_type24753 *t47387; unsigned t47388; struct structure_type24753 *t47389; unsigned t47390; struct structure_type24753 *t47391; unsigned t47392; struct structure_type24753 *t47393; unsigned t47394; struct structure_type24753 *t47395; unsigned t47396; struct structure_type24753 *t47397; unsigned t47398; struct structure_type24753 *t47399; unsigned t47400; struct structure_type24753 *t47401; unsigned t47402; struct structure_type24753 *t47403; unsigned t47404; struct structure_type24753 *t47405; unsigned t47406; struct structure_type24753 *t47407; unsigned t47408; struct structure_type24753 *t47409; unsigned t47410; struct structure_type24753 *t47411; unsigned t47412; struct structure_type24753 *t47413; unsigned t47414; struct structure_type24753 *t47415; unsigned t47416; struct structure_type24753 *t47417; unsigned t47418; struct structure_type24753 *t47419; unsigned t47420; struct structure_type24753 *t47421; char *t47422; unsigned t47423; struct w49 t47424; struct w211235 t47425; struct w12224 t47426; struct w49 t47427; struct w49 t47428; struct w155635 t47429; unsigned t47430; struct w155862 t47431; unsigned t47432; struct w49 t47433; struct w211061 t47434; struct structure_type27501 *t47435; struct w12218 t47436; struct w12224 t47437; struct w49 t47438; struct w49 t47439; struct w155635 t47440; struct w155862 t47441; unsigned t47442; struct w49 t47443; struct w211061 t47444; struct w12224 t47445; struct w49 t47446; struct w49 t47447; struct w155635 t47448; struct w155624 t47449; unsigned t47450; struct w155919 t47451; struct w155916 t47452; unsigned t47453; struct w49 t47454; struct w211061 t47455; struct structure_type27501 *t47456; struct w12218 t47457; struct w12224 t47458; struct w49 t47459; struct w49 t47460; struct w155635 t47461; struct w155624 t47462; struct w155919 t47463; struct w155916 t47464; unsigned t47465; struct w49 t47466; struct w211061 t47467; unsigned t47468; struct w49 t47469; struct w211257 t47470; unsigned t47471; struct w49 t47472; struct w211235 t47473; char *t47474; struct w155624 t47475; unsigned t47476; struct structure_type24753 *t47477; unsigned t47478; struct structure_type24753 *t47479; unsigned t47480; struct structure_type24753 *t47481; unsigned t47482; struct structure_type24753 *t47483; unsigned t47484; struct structure_type24753 *t47485; char *t47486; char *t47487; unsigned t47488; struct structure_type24753 *t47489; unsigned t47490; struct structure_type24753 *t47491; unsigned t47492; struct structure_type24753 *t47493; unsigned t47494; struct structure_type24753 *t47495; unsigned t47496; struct structure_type24753 *t47497; unsigned t47498; struct structure_type24753 *t47499; unsigned t47500; struct structure_type24753 *t47501; unsigned t47502; struct structure_type24753 *t47503; unsigned t47504; struct structure_type24753 *t47505; unsigned t47506; struct structure_type24753 *t47507; unsigned t47508; struct structure_type24753 *t47509; unsigned t47510; struct structure_type24753 *t47511; unsigned t47512; struct structure_type24753 *t47513; unsigned t47514; struct structure_type24753 *t47515; unsigned t47516; struct structure_type24753 *t47517; unsigned t47518; struct structure_type24753 *t47519; unsigned t47520; struct structure_type24753 *t47521; unsigned t47522; struct structure_type24753 *t47523; unsigned t47524; struct structure_type24753 *t47525; unsigned t47526; struct structure_type24753 *t47527; unsigned t47528; struct structure_type24753 *t47529; unsigned t47530; struct structure_type24753 *t47531; unsigned t47532; struct structure_type24753 *t47533; unsigned t47534; struct structure_type24753 *t47535; unsigned t47536; struct structure_type24753 *t47537; unsigned t47538; struct structure_type24753 *t47539; unsigned t47540; struct structure_type24753 *t47541; unsigned t47542; struct structure_type24753 *t47543; unsigned t47544; struct structure_type24753 *t47545; unsigned t47546; struct structure_type24753 *t47547; unsigned t47548; struct structure_type24753 *t47549; unsigned t47550; struct structure_type24753 *t47551; unsigned t47552; struct structure_type24753 *t47553; unsigned t47554; struct structure_type24753 *t47555; unsigned t47556; struct structure_type24753 *t47557; unsigned t47558; struct structure_type24753 *t47559; unsigned t47560; struct structure_type24753 *t47561; unsigned t47562; struct structure_type24753 *t47563; unsigned t47564; struct structure_type24753 *t47565; unsigned t47566; struct structure_type24753 *t47567; unsigned t47568; struct structure_type24753 *t47569; unsigned t47570; struct structure_type24753 *t47571; unsigned t47572; struct structure_type24753 *t47573; unsigned t47574; struct structure_type24753 *t47575; unsigned t47576; struct structure_type24753 *t47577; unsigned t47578; struct structure_type24753 *t47579; struct structure_type24753 *t47580; unsigned t47581; struct structure_type24753 *t47582; unsigned t47583; struct structure_type24753 *t47584; unsigned t47585; struct structure_type24753 *t47586; unsigned t47587; struct structure_type24753 *t47588; unsigned t47589; struct structure_type24753 *t47590; unsigned t47591; struct structure_type24753 *t47592; unsigned t47593; struct structure_type24753 *t47594; unsigned t47595; struct structure_type24753 *t47596; unsigned t47597; struct structure_type24753 *t47598; unsigned t47599; struct structure_type24753 *t47600; unsigned t47601; struct structure_type24753 *t47602; unsigned t47603; struct structure_type24753 *t47604; unsigned t47605; struct structure_type24753 *t47606; unsigned t47607; struct structure_type24753 *t47608; unsigned t47609; struct structure_type24753 *t47610; unsigned t47611; struct structure_type24753 *t47612; unsigned t47613; struct structure_type24753 *t47614; unsigned t47615; struct structure_type24753 *t47616; unsigned t47617; struct structure_type24753 *t47618; unsigned t47619; struct structure_type24753 *t47620; unsigned t47621; struct structure_type24753 *t47622; unsigned t47623; struct structure_type24753 *t47624; unsigned t47625; struct structure_type24753 *t47626; unsigned t47627; struct structure_type24753 *t47628; unsigned t47629; struct structure_type24753 *t47630; unsigned t47631; struct structure_type24753 *t47632; unsigned t47633; struct structure_type24753 *t47634; unsigned t47635; struct structure_type24753 *t47636; unsigned t47637; struct structure_type24753 *t47638; unsigned t47639; struct structure_type24753 *t47640; unsigned t47641; struct structure_type24753 *t47642; unsigned t47643; struct structure_type24753 *t47644; unsigned t47645; struct structure_type24753 *t47646; unsigned t47647; struct structure_type24753 *t47648; unsigned t47649; struct structure_type24753 *t47650; unsigned t47651; struct structure_type24753 *t47652; unsigned t47653; struct structure_type24753 *t47654; unsigned t47655; struct structure_type24753 *t47656; unsigned t47657; struct structure_type24753 *t47658; unsigned t47659; struct structure_type24753 *t47660; unsigned t47661; struct structure_type24753 *t47662; unsigned t47663; struct structure_type24753 *t47664; unsigned t47665; struct structure_type24753 *t47666; unsigned t47667; struct structure_type24753 *t47668; unsigned t47669; struct structure_type24753 *t47670; unsigned t47671; struct structure_type24753 *t47672; unsigned t47673; struct structure_type24753 *t47674; unsigned t47675; struct structure_type24753 *t47676; unsigned t47677; struct structure_type24753 *t47678; unsigned t47679; struct structure_type24753 *t47680; unsigned t47681; struct structure_type24753 *t47682; unsigned t47683; struct structure_type24753 *t47684; char *t47685; unsigned t47686; struct w49 t47687; struct w211235 t47688; struct w12224 t47689; struct w49 t47690; struct w49 t47691; struct w155635 t47692; unsigned t47693; struct w155862 t47694; unsigned t47695; struct w49 t47696; struct w211061 t47697; struct structure_type27501 *t47698; struct w12218 t47699; struct w12224 t47700; struct w49 t47701; struct w49 t47702; struct w155635 t47703; struct w155862 t47704; unsigned t47705; struct w49 t47706; struct w211061 t47707; struct w12224 t47708; struct w49 t47709; struct w49 t47710; struct w155635 t47711; struct w155624 t47712; unsigned t47713; struct w155919 t47714; struct w155916 t47715; unsigned t47716; struct w49 t47717; struct w211061 t47718; struct structure_type27501 *t47719; struct w12218 t47720; struct w12224 t47721; struct w49 t47722; struct w49 t47723; struct w155635 t47724; struct w155624 t47725; struct w155919 t47726; struct w155916 t47727; unsigned t47728; struct w49 t47729; struct w211061 t47730; /* x133382 stalin.sc:16919:591167 */ /* x133164 stalin.sc:16919:591174 */ /* x133163 stalin.sc:16919:591185 */ t46943 = a26112; /* x133162 stalin.sc:16919:591175 */ if (f13859(t46943)==FALSE_TYPE) goto l7252; /* x133237 */ /* x133236 */ /* x133235 stalin.sc:16920:591189 */ /* x133168 stalin.sc:16920:591193 */ /* x133166 stalin.sc:16920:591202 */ t47468 = a26111; /* x133167 stalin.sc:16920:591204 */ t47469 = a26112; /* x133165 stalin.sc:16920:591194 */ /* MOVE: dispatching squished to general */ switch (t47468) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7413: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19555: case NATIVE_PROCEDURE_TYPE21067: t47470.tag = (unsigned)t47468; break; default: switch (t47468&3) {case 2: t47470.tag = NATIVE_PROCEDURE_TYPE15963; t47470.value.native_procedure_type15963 = (struct p7717 *)(t47468-2); break; case 0: t47470.tag = NATIVE_PROCEDURE_TYPE19878; t47470.value.native_procedure_type19878 = (struct p7873 *)t47468; break; default: t47470.tag = NATIVE_PROCEDURE_TYPE19886; t47470.value.native_procedure_type19886 = (struct p7873 *)(t47468-1);}} if ((f8137(t47470, t47469).tag)==FALSE_TYPE) goto l7276; /* x133224 stalin.sc:16921:591212 */ /* x133175 stalin.sc:16921:591216 */ /* x133169 stalin.sc:16921:591221 */ if (a703==FALSE_TYPE) goto l7280; /* x133173 */ /* x133171 stalin.sc:16921:591249 */ t47686 = a26111; /* x133172 stalin.sc:16921:591251 */ t47687 = a26112; /* x133170 stalin.sc:16921:591237 */ /* MOVE: dispatching squished to general */ switch (t47686) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7413: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19555: case NATIVE_PROCEDURE_TYPE21067: t47688.tag = (unsigned)t47686; break; default: switch (t47686&3) {case 2: t47688.tag = NATIVE_PROCEDURE_TYPE15963; t47688.value.native_procedure_type15963 = (struct p7717 *)(t47686-2); break; case 0: t47688.tag = NATIVE_PROCEDURE_TYPE19878; t47688.value.native_procedure_type19878 = (struct p7873 *)t47686; break; default: t47688.tag = NATIVE_PROCEDURE_TYPE19886; t47688.value.native_procedure_type19886 = (struct p7873 *)(t47686-1);}} if ((f8144(t47688, t47687).tag)==FALSE_TYPE) goto l7280; /* x133200 stalin.sc:16922:591257 */ /* x133176 stalin.sc:16922:591261 */ if (a681==FALSE_TYPE) goto l7285; /* x133186 stalin.sc:16923:591278 */ /* x133181 stalin.sc:16923:591304 */ /* x133179 stalin.sc:16923:591318 */ t47728 = a26111; /* x133180 stalin.sc:16923:591320 */ t47729 = a26112; /* x133178 stalin.sc:16923:591305 */ /* MOVE: dispatching squished to general */ switch (t47728) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7413: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19555: case NATIVE_PROCEDURE_TYPE21067: t47730.tag = (unsigned)t47728; break; default: switch (t47728&3) {case 2: t47730.tag = NATIVE_PROCEDURE_TYPE15963; t47730.value.native_procedure_type15963 = (struct p7717 *)(t47728-2); break; case 0: t47730.tag = NATIVE_PROCEDURE_TYPE19878; t47730.value.native_procedure_type19878 = (struct p7873 *)t47728; break; default: t47730.tag = NATIVE_PROCEDURE_TYPE19886; t47730.value.native_procedure_type19886 = (struct p7873 *)(t47728-1);}} t47721 = f8172(t47730, t47729); /* x133182 stalin.sc:16923:591323 */ t47722 = a26112; /* x133183 stalin.sc:16923:591325 */ t47723 = a26114; /* x133184 stalin.sc:16923:591328 */ t47724 = a26115; /* x133185 stalin.sc:16923:591331 */ t47725 = a26116; /* x133177 stalin.sc:16923:591279 */ t47726 = *((struct w155919 *)(&t47724)); t47727 = *((struct w155916 *)(&t47725)); return f14605(t47721, t47722, t47723, t47726, t47727); l7285: /* x133199 stalin.sc:16924:591341 */ /* x133191 stalin.sc:16925:591378 */ /* x133189 stalin.sc:16925:591392 */ t47716 = a26111; /* x133190 stalin.sc:16925:591394 */ t47717 = a26112; /* x133188 stalin.sc:16925:591379 */ /* MOVE: dispatching squished to general */ switch (t47716) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7413: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19555: case NATIVE_PROCEDURE_TYPE21067: t47718.tag = (unsigned)t47716; break; default: switch (t47716&3) {case 2: t47718.tag = NATIVE_PROCEDURE_TYPE15963; t47718.value.native_procedure_type15963 = (struct p7717 *)(t47716-2); break; case 0: t47718.tag = NATIVE_PROCEDURE_TYPE19878; t47718.value.native_procedure_type19878 = (struct p7873 *)t47716; break; default: t47718.tag = NATIVE_PROCEDURE_TYPE19886; t47718.value.native_procedure_type19886 = (struct p7873 *)(t47716-1);}} t47708 = f8172(t47718, t47717); /* x133192 stalin.sc:16925:591397 */ t47709 = a26112; /* x133193 stalin.sc:16925:591399 */ t47710 = a26114; /* x133194 stalin.sc:16925:591402 */ t47711 = a26115; /* x133195 stalin.sc:16925:591405 */ t47712 = a26116; /* x133198 stalin.sc:16925:591408 */ /* x133197 stalin.sc:16925:591416 */ t47719 = a26113; /* x133196 stalin.sc:16925:591409 */ /* MOVE: branching squeezed to general */ if (t47719>=((struct structure_type27501 *)VALUE_OFFSET)) {t47720.tag = STRUCTURE_TYPE27501; t47720.value.structure_type27501 = t47719;} else t47720.tag = (unsigned)t47719; t47713 = f14689(t47720); /* x133187 stalin.sc:16924:591342 */ t47714 = *((struct w155919 *)(&t47711)); t47715 = *((struct w155916 *)(&t47712)); return f14621(t47708, t47709, t47710, t47714, t47715, t47713); l7280: /* x133223 stalin.sc:16927:591468 */ /* x133201 stalin.sc:16927:591472 */ if (a681==FALSE_TYPE) goto l7283; /* x133210 stalin.sc:16928:591489 */ /* x133206 stalin.sc:16929:591534 */ /* x133204 stalin.sc:16929:591548 */ t47705 = a26111; /* x133205 stalin.sc:16929:591550 */ t47706 = a26112; /* x133203 stalin.sc:16929:591535 */ /* MOVE: dispatching squished to general */ switch (t47705) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7413: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19555: case NATIVE_PROCEDURE_TYPE21067: t47707.tag = (unsigned)t47705; break; default: switch (t47705&3) {case 2: t47707.tag = NATIVE_PROCEDURE_TYPE15963; t47707.value.native_procedure_type15963 = (struct p7717 *)(t47705-2); break; case 0: t47707.tag = NATIVE_PROCEDURE_TYPE19878; t47707.value.native_procedure_type19878 = (struct p7873 *)t47705; break; default: t47707.tag = NATIVE_PROCEDURE_TYPE19886; t47707.value.native_procedure_type19886 = (struct p7873 *)(t47705-1);}} t47700 = f8172(t47707, t47706); /* x133207 stalin.sc:16929:591553 */ t47701 = a26112; /* x133208 stalin.sc:16929:591555 */ t47702 = a26114; /* x133209 stalin.sc:16929:591558 */ t47703 = a26115; /* x133202 stalin.sc:16928:591490 */ t47704 = *((struct w155862 *)(&t47703)); return f14612(t47700, t47701, t47702, t47704); l7283: /* x133222 stalin.sc:16930:591568 */ /* x133215 stalin.sc:16931:591617 */ /* x133213 stalin.sc:16931:591631 */ t47695 = a26111; /* x133214 stalin.sc:16931:591633 */ t47696 = a26112; /* x133212 stalin.sc:16931:591618 */ /* MOVE: dispatching squished to general */ switch (t47695) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7413: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19555: case NATIVE_PROCEDURE_TYPE21067: t47697.tag = (unsigned)t47695; break; default: switch (t47695&3) {case 2: t47697.tag = NATIVE_PROCEDURE_TYPE15963; t47697.value.native_procedure_type15963 = (struct p7717 *)(t47695-2); break; case 0: t47697.tag = NATIVE_PROCEDURE_TYPE19878; t47697.value.native_procedure_type19878 = (struct p7873 *)t47695; break; default: t47697.tag = NATIVE_PROCEDURE_TYPE19886; t47697.value.native_procedure_type19886 = (struct p7873 *)(t47695-1);}} t47689 = f8172(t47697, t47696); /* x133216 stalin.sc:16931:591636 */ t47690 = a26112; /* x133217 stalin.sc:16931:591638 */ t47691 = a26114; /* x133218 stalin.sc:16931:591641 */ t47692 = a26115; /* x133221 stalin.sc:16931:591644 */ /* x133220 stalin.sc:16931:591652 */ t47698 = a26113; /* x133219 stalin.sc:16931:591645 */ /* MOVE: branching squeezed to general */ if (t47698>=((struct structure_type27501 *)VALUE_OFFSET)) {t47699.tag = STRUCTURE_TYPE27501; t47699.value.structure_type27501 = t47698;} else t47699.tag = (unsigned)t47698; t47693 = f14689(t47699); /* x133211 stalin.sc:16930:591569 */ t47694 = *((struct w155862 *)(&t47692)); return f14627(t47689, t47690, t47691, t47694, t47693); l7276: /* x133234 stalin.sc:16932:591663 */ /* x133228 stalin.sc:16932:591667 */ /* x133226 stalin.sc:16932:591680 */ t47471 = a26111; /* x133227 stalin.sc:16932:591682 */ t47472 = a26112; /* x133225 stalin.sc:16932:591668 */ /* MOVE: dispatching squished to general */ switch (t47471) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7413: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19555: case NATIVE_PROCEDURE_TYPE21067: t47473.tag = (unsigned)t47471; break; default: switch (t47471&3) {case 2: t47473.tag = NATIVE_PROCEDURE_TYPE15963; t47473.value.native_procedure_type15963 = (struct p7717 *)(t47471-2); break; case 0: t47473.tag = NATIVE_PROCEDURE_TYPE19878; t47473.value.native_procedure_type19878 = (struct p7873 *)t47471; break; default: t47473.tag = NATIVE_PROCEDURE_TYPE19886; t47473.value.native_procedure_type19886 = (struct p7873 *)(t47471-1);}} if ((f8144(t47473, t47472).tag)==FALSE_TYPE) goto l7278; /* x133231 stalin.sc:16932:591685 */ /* x133230 stalin.sc:16932:591689 */ /* x133229 stalin.sc:16932:591686 */ t47475 = a26116; switch (t47475.tag) {case NATIVE_PROCEDURE_TYPE20757: t47476 = TRUE_TYPE; t47477 = f16097((t47475.value.native_procedure_type20757), t47476); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47477; return r14692; case NATIVE_PROCEDURE_TYPE20782: t47478 = TRUE_TYPE; t47479 = f15772((t47475.value.native_procedure_type20782), t47478); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47479; return r14692; case NATIVE_PROCEDURE_TYPE20913: t47480 = TRUE_TYPE; t47481 = f16433((t47475.value.native_procedure_type20913), t47480); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47481; return r14692; case NATIVE_PROCEDURE_TYPE20915: t47482 = TRUE_TYPE; t47483 = f16417((t47475.value.native_procedure_type20915), t47482); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47483; return r14692; case NATIVE_PROCEDURE_TYPE20918: t47484 = TRUE_TYPE; t47485 = f16635((t47475.value.native_procedure_type20918), t47484); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47485; return r14692; case NATIVE_PROCEDURE_TYPE21036: /* x298071 stalin.sc:21885:766135 */ /* x298070 stalin.sc:21885:766136 */ /* x303398 QobiScheme.sc:166:5314 */ /* x303397 QobiScheme.sc:166:5321 */ t47486 = "This shouldn\'t happen"; /* x303396 QobiScheme.sc:166:5315 */ stalin_panic(t47486); case NATIVE_PROCEDURE_TYPE21042: /* x298132 stalin.sc:21855:765176 */ /* x298131 stalin.sc:21855:765177 */ /* x303474 QobiScheme.sc:166:5314 */ /* x303473 QobiScheme.sc:166:5321 */ t47487 = "This shouldn\'t happen"; /* x303472 QobiScheme.sc:166:5315 */ stalin_panic(t47487); case NATIVE_PROCEDURE_TYPE21048: t47488 = TRUE_TYPE; t47489 = f16737((t47475.value.native_procedure_type21048), t47488); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47489; return r14692; case NATIVE_PROCEDURE_TYPE21059: t47490 = TRUE_TYPE; t47491 = f15571((t47475.value.native_procedure_type21059), t47490); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47491; return r14692; case NATIVE_PROCEDURE_TYPE21065: t47492 = TRUE_TYPE; t47493 = f16830((t47475.value.native_procedure_type21065), t47492); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47493; return r14692; case NATIVE_PROCEDURE_TYPE21082: t47494 = TRUE_TYPE; t47495 = f16721((t47475.value.native_procedure_type21082), t47494); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47495; return r14692; case NATIVE_PROCEDURE_TYPE21087: t47496 = TRUE_TYPE; t47497 = f16648((t47475.value.native_procedure_type21087), t47496); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47497; return r14692; case NATIVE_PROCEDURE_TYPE21090: t47498 = TRUE_TYPE; t47499 = f16858((t47475.value.native_procedure_type21090), t47498); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47499; return r14692; case NATIVE_PROCEDURE_TYPE21108: t47500 = TRUE_TYPE; t47501 = f15580((t47475.value.native_procedure_type21108), t47500); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47501; return r14692; case NATIVE_PROCEDURE_TYPE21110: t47502 = TRUE_TYPE; t47503 = f16912((t47475.value.native_procedure_type21110), t47502); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47503; return r14692; case NATIVE_PROCEDURE_TYPE21117: t47504 = TRUE_TYPE; t47505 = f16884((t47475.value.native_procedure_type21117), t47504); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47505; return r14692; case NATIVE_PROCEDURE_TYPE21137: t47506 = TRUE_TYPE; t47507 = f16982((t47475.value.native_procedure_type21137), t47506); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47507; return r14692; case NATIVE_PROCEDURE_TYPE21147: t47508 = TRUE_TYPE; t47509 = f17061((t47475.value.native_procedure_type21147), t47508); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47509; return r14692; case NATIVE_PROCEDURE_TYPE21152: t47510 = TRUE_TYPE; t47511 = f17134((t47475.value.native_procedure_type21152), t47510); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47511; return r14692; case NATIVE_PROCEDURE_TYPE21154: t47512 = TRUE_TYPE; t47513 = f17133((t47475.value.native_procedure_type21154), t47512); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47513; return r14692; case NATIVE_PROCEDURE_TYPE21170: t47514 = TRUE_TYPE; t47515 = f17101((t47475.value.native_procedure_type21170), t47514); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47515; return r14692; case NATIVE_PROCEDURE_TYPE21172: t47516 = TRUE_TYPE; t47517 = f17100((t47475.value.native_procedure_type21172), t47516); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47517; return r14692; case NATIVE_PROCEDURE_TYPE21201: t47518 = TRUE_TYPE; t47519 = f17026((t47475.value.native_procedure_type21201), t47518); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47519; return r14692; case NATIVE_PROCEDURE_TYPE21225: t47520 = TRUE_TYPE; t47521 = f16941((t47475.value.native_procedure_type21225), t47520); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47521; return r14692; case NATIVE_PROCEDURE_TYPE21228: t47522 = TRUE_TYPE; t47523 = f16844((t47475.value.native_procedure_type21228), t47522); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47523; return r14692; case NATIVE_PROCEDURE_TYPE21234: t47524 = TRUE_TYPE; t47525 = f17200((t47475.value.native_procedure_type21234), t47524); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47525; return r14692; case NATIVE_PROCEDURE_TYPE21236: t47526 = TRUE_TYPE; t47527 = f17199((t47475.value.native_procedure_type21236), t47526); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47527; return r14692; case NATIVE_PROCEDURE_TYPE21256: t47528 = TRUE_TYPE; t47529 = f17222((t47475.value.native_procedure_type21256), t47528); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47529; return r14692; case NATIVE_PROCEDURE_TYPE21259: t47530 = TRUE_TYPE; t47531 = f17209((t47475.value.native_procedure_type21259), t47530); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47531; return r14692; case NATIVE_PROCEDURE_TYPE21265: t47532 = TRUE_TYPE; t47533 = f17254((t47475.value.native_procedure_type21265), t47532); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47533; return r14692; case NATIVE_PROCEDURE_TYPE21268: t47534 = TRUE_TYPE; t47535 = f17295((t47475.value.native_procedure_type21268), t47534); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47535; return r14692; case NATIVE_PROCEDURE_TYPE21274: t47536 = TRUE_TYPE; t47537 = f17333((t47475.value.native_procedure_type21274), t47536); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47537; return r14692; case NATIVE_PROCEDURE_TYPE21280: t47538 = TRUE_TYPE; t47539 = f17314((t47475.value.native_procedure_type21280), t47538); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47539; return r14692; case NATIVE_PROCEDURE_TYPE21286: t47540 = TRUE_TYPE; t47541 = f17276((t47475.value.native_procedure_type21286), t47540); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47541; return r14692; case NATIVE_PROCEDURE_TYPE21296: t47542 = TRUE_TYPE; t47543 = f17238((t47475.value.native_procedure_type21296), t47542); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47543; return r14692; case NATIVE_PROCEDURE_TYPE21299: t47544 = TRUE_TYPE; t47545 = f17357((t47475.value.native_procedure_type21299), t47544); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47545; return r14692; case NATIVE_PROCEDURE_TYPE21304: t47546 = TRUE_TYPE; t47547 = f17381((t47475.value.native_procedure_type21304), t47546); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47547; return r14692; case NATIVE_PROCEDURE_TYPE21309: t47548 = TRUE_TYPE; t47549 = f17369((t47475.value.native_procedure_type21309), t47548); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47549; return r14692; case NATIVE_PROCEDURE_TYPE21314: t47550 = TRUE_TYPE; t47551 = f17405((t47475.value.native_procedure_type21314), t47550); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47551; return r14692; case NATIVE_PROCEDURE_TYPE21319: t47552 = TRUE_TYPE; t47553 = f17440((t47475.value.native_procedure_type21319), t47552); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47553; return r14692; case NATIVE_PROCEDURE_TYPE21324: t47554 = TRUE_TYPE; t47555 = f17437((t47475.value.native_procedure_type21324), t47554); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47555; return r14692; case NATIVE_PROCEDURE_TYPE21329: t47556 = TRUE_TYPE; t47557 = f17430((t47475.value.native_procedure_type21329), t47556); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47557; return r14692; case NATIVE_PROCEDURE_TYPE21334: t47558 = TRUE_TYPE; t47559 = f17417((t47475.value.native_procedure_type21334), t47558); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47559; return r14692; case NATIVE_PROCEDURE_TYPE21339: t47560 = TRUE_TYPE; t47561 = f17473((t47475.value.native_procedure_type21339), t47560); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47561; return r14692; case NATIVE_PROCEDURE_TYPE21341: t47562 = TRUE_TYPE; t47563 = f17472((t47475.value.native_procedure_type21341), t47562); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47563; return r14692; case NATIVE_PROCEDURE_TYPE21348: t47564 = TRUE_TYPE; t47565 = f17452((t47475.value.native_procedure_type21348), t47564); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47565; return r14692; case NATIVE_PROCEDURE_TYPE21353: t47566 = TRUE_TYPE; t47567 = f17393((t47475.value.native_procedure_type21353), t47566); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47567; return r14692; case NATIVE_PROCEDURE_TYPE21358: t47568 = TRUE_TYPE; t47569 = f17345((t47475.value.native_procedure_type21358), t47568); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47569; return r14692; case NATIVE_PROCEDURE_TYPE21363: t47570 = TRUE_TYPE; t47571 = f17167((t47475.value.native_procedure_type21363), t47570); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47571; return r14692; case NATIVE_PROCEDURE_TYPE21365: t47572 = TRUE_TYPE; t47573 = f17166((t47475.value.native_procedure_type21365), t47572); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47573; return r14692; case NATIVE_PROCEDURE_TYPE21381: t47574 = TRUE_TYPE; t47575 = f17504((t47475.value.native_procedure_type21381), t47574); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47575; return r14692; case NATIVE_PROCEDURE_TYPE21387: t47576 = TRUE_TYPE; t47577 = f17525((t47475.value.native_procedure_type21387), t47576); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47577; return r14692; case NATIVE_PROCEDURE_TYPE21393: t47578 = TRUE_TYPE; t47579 = f17599((t47475.value.native_procedure_type21393), t47578); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47579; return r14692; case NATIVE_PROCEDURE_TYPE21414: t47580 = f19631(); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47580; return r14692; case NATIVE_PROCEDURE_TYPE21896: t47581 = TRUE_TYPE; t47582 = f15815((t47475.value.native_procedure_type21896), t47581); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47582; return r14692; case NATIVE_PROCEDURE_TYPE21903: t47583 = TRUE_TYPE; t47584 = f15805((t47475.value.native_procedure_type21903), t47583); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47584; return r14692; case NATIVE_PROCEDURE_TYPE21944: t47585 = TRUE_TYPE; t47586 = f17628((t47475.value.native_procedure_type21944), t47585); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47586; return r14692; case NATIVE_PROCEDURE_TYPE21946: t47587 = TRUE_TYPE; t47588 = f17627((t47475.value.native_procedure_type21946), t47587); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47588; return r14692; case NATIVE_PROCEDURE_TYPE21948: t47589 = TRUE_TYPE; t47590 = f17613((t47475.value.native_procedure_type21948), t47589); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47590; return r14692; case NATIVE_PROCEDURE_TYPE21952: t47591 = TRUE_TYPE; t47592 = f17579((t47475.value.native_procedure_type21952), t47591); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47592; return r14692; case NATIVE_PROCEDURE_TYPE21956: t47593 = TRUE_TYPE; t47594 = f17576((t47475.value.native_procedure_type21956), t47593); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47594; return r14692; case NATIVE_PROCEDURE_TYPE21961: t47595 = TRUE_TYPE; t47596 = f17569((t47475.value.native_procedure_type21961), t47595); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47596; return r14692; case NATIVE_PROCEDURE_TYPE21963: t47597 = TRUE_TYPE; t47598 = f17568((t47475.value.native_procedure_type21963), t47597); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47598; return r14692; case NATIVE_PROCEDURE_TYPE21966: t47599 = TRUE_TYPE; t47600 = f17564((t47475.value.native_procedure_type21966), t47599); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47600; return r14692; case NATIVE_PROCEDURE_TYPE21968: t47601 = TRUE_TYPE; t47602 = f17563((t47475.value.native_procedure_type21968), t47601); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47602; return r14692; case NATIVE_PROCEDURE_TYPE21971: t47603 = TRUE_TYPE; t47604 = f17559((t47475.value.native_procedure_type21971), t47603); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47604; return r14692; case NATIVE_PROCEDURE_TYPE21973: t47605 = TRUE_TYPE; t47606 = f17558((t47475.value.native_procedure_type21973), t47605); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47606; return r14692; case NATIVE_PROCEDURE_TYPE21975: t47607 = TRUE_TYPE; t47608 = f17534((t47475.value.native_procedure_type21975), t47607); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47608; return r14692; case NATIVE_PROCEDURE_TYPE21978: t47609 = TRUE_TYPE; t47610 = f17718((t47475.value.native_procedure_type21978), t47609); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47610; return r14692; case NATIVE_PROCEDURE_TYPE21982: t47611 = TRUE_TYPE; t47612 = f17716((t47475.value.native_procedure_type21982), t47611); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47612; return r14692; case NATIVE_PROCEDURE_TYPE21984: t47613 = TRUE_TYPE; t47614 = f17715((t47475.value.native_procedure_type21984), t47613); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47614; return r14692; case NATIVE_PROCEDURE_TYPE21997: t47615 = TRUE_TYPE; t47616 = f17693((t47475.value.native_procedure_type21997), t47615); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47616; return r14692; case NATIVE_PROCEDURE_TYPE22000: t47617 = TRUE_TYPE; t47618 = f17682((t47475.value.native_procedure_type22000), t47617); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47618; return r14692; case NATIVE_PROCEDURE_TYPE22003: t47619 = TRUE_TYPE; t47620 = f17679((t47475.value.native_procedure_type22003), t47619); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47620; return r14692; case NATIVE_PROCEDURE_TYPE22006: t47621 = TRUE_TYPE; t47622 = f17676((t47475.value.native_procedure_type22006), t47621); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47622; return r14692; case NATIVE_PROCEDURE_TYPE22008: t47623 = TRUE_TYPE; t47624 = f17761((t47475.value.native_procedure_type22008), t47623); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47624; return r14692; case NATIVE_PROCEDURE_TYPE22010: t47625 = TRUE_TYPE; t47626 = f17807((t47475.value.native_procedure_type22010), t47625); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47626; return r14692; case NATIVE_PROCEDURE_TYPE22012: t47627 = TRUE_TYPE; t47628 = f17806((t47475.value.native_procedure_type22012), t47627); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47628; return r14692; case NATIVE_PROCEDURE_TYPE22014: t47629 = TRUE_TYPE; t47630 = f17787((t47475.value.native_procedure_type22014), t47629); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47630; return r14692; case NATIVE_PROCEDURE_TYPE22016: t47631 = TRUE_TYPE; t47632 = f17786((t47475.value.native_procedure_type22016), t47631); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47632; return r14692; case NATIVE_PROCEDURE_TYPE22037: t47633 = TRUE_TYPE; t47634 = f17841((t47475.value.native_procedure_type22037), t47633); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47634; return r14692; case NATIVE_PROCEDURE_TYPE22064: /* x298229 stalin.sc:19867:695278 */ /* x298228 stalin.sc:19867:695279 */ /* x303528 stalin.sc:14693:514793 */ r14692.tag = STRING_TYPE; r14692.value.string_type = ""; return r14692; case NATIVE_PROCEDURE_TYPE22072: t47635 = TRUE_TYPE; t47636 = f15886((t47475.value.native_procedure_type22072), t47635); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47636; return r14692; case NATIVE_PROCEDURE_TYPE22081: t47637 = TRUE_TYPE; t47638 = f17894((t47475.value.native_procedure_type22081), t47637); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47638; return r14692; case NATIVE_PROCEDURE_TYPE22091: t47639 = TRUE_TYPE; t47640 = f17885((t47475.value.native_procedure_type22091), t47639); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47640; return r14692; case NATIVE_PROCEDURE_TYPE22100: t47641 = TRUE_TYPE; t47642 = f17641((t47475.value.native_procedure_type22100), t47641); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47642; return r14692; case NATIVE_PROCEDURE_TYPE22102: t47643 = TRUE_TYPE; t47644 = f17640((t47475.value.native_procedure_type22102), t47643); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47644; return r14692; case NATIVE_PROCEDURE_TYPE22104: t47645 = TRUE_TYPE; t47646 = f17639((t47475.value.native_procedure_type22104), t47645); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47646; return r14692; case NATIVE_PROCEDURE_TYPE22106: t47647 = TRUE_TYPE; t47648 = f17491((t47475.value.native_procedure_type22106), t47647); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47648; return r14692; case NATIVE_PROCEDURE_TYPE22112: t47649 = TRUE_TYPE; t47650 = f17936((t47475.value.native_procedure_type22112), t47649); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47650; return r14692; case NATIVE_PROCEDURE_TYPE22117: t47651 = TRUE_TYPE; t47652 = f17957((t47475.value.native_procedure_type22117), t47651); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47652; return r14692; case NATIVE_PROCEDURE_TYPE22119: t47653 = TRUE_TYPE; t47654 = f17948((t47475.value.native_procedure_type22119), t47653); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47654; return r14692; case NATIVE_PROCEDURE_TYPE22124: t47655 = TRUE_TYPE; t47656 = f17976((t47475.value.native_procedure_type22124), t47655); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47656; return r14692; case NATIVE_PROCEDURE_TYPE22127: t47657 = TRUE_TYPE; t47658 = f17966((t47475.value.native_procedure_type22127), t47657); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47658; return r14692; case NATIVE_PROCEDURE_TYPE22130: t47659 = TRUE_TYPE; t47660 = f18033((t47475.value.native_procedure_type22130), t47659); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47660; return r14692; case NATIVE_PROCEDURE_TYPE22132: t47661 = TRUE_TYPE; t47662 = f18032((t47475.value.native_procedure_type22132), t47661); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47662; return r14692; case NATIVE_PROCEDURE_TYPE22135: t47663 = TRUE_TYPE; t47664 = f18008((t47475.value.native_procedure_type22135), t47663); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47664; return r14692; case NATIVE_PROCEDURE_TYPE22137: t47665 = TRUE_TYPE; t47666 = f17986((t47475.value.native_procedure_type22137), t47665); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47666; return r14692; case NATIVE_PROCEDURE_TYPE22139: t47667 = TRUE_TYPE; t47668 = f18072((t47475.value.native_procedure_type22139), t47667); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47668; return r14692; case NATIVE_PROCEDURE_TYPE22141: t47669 = TRUE_TYPE; t47670 = f18090((t47475.value.native_procedure_type22141), t47669); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47670; return r14692; case NATIVE_PROCEDURE_TYPE22143: t47671 = TRUE_TYPE; t47672 = f18081((t47475.value.native_procedure_type22143), t47671); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47672; return r14692; case NATIVE_PROCEDURE_TYPE22145: t47673 = TRUE_TYPE; t47674 = f18063((t47475.value.native_procedure_type22145), t47673); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47674; return r14692; case NATIVE_PROCEDURE_TYPE22148: t47675 = TRUE_TYPE; t47676 = f18121((t47475.value.native_procedure_type22148), t47675); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47676; return r14692; case NATIVE_PROCEDURE_TYPE22154: t47677 = TRUE_TYPE; t47678 = f18148((t47475.value.native_procedure_type22154), t47677); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47678; return r14692; case NATIVE_PROCEDURE_TYPE22160: t47679 = TRUE_TYPE; t47680 = f18135((t47475.value.native_procedure_type22160), t47679); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47680; return r14692; case NATIVE_PROCEDURE_TYPE22162: t47681 = TRUE_TYPE; t47682 = f18133((t47475.value.native_procedure_type22162), t47681); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47682; return r14692; case NATIVE_PROCEDURE_TYPE22165: t47683 = TRUE_TYPE; t47684 = f18042((t47475.value.native_procedure_type22165), t47683); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47684; return r14692; default: /* x297732 stalin.sc:23751:825832 */ /* x297731 stalin.sc:23751:825833 */ /* x303254 QobiScheme.sc:166:5314 */ /* x303253 QobiScheme.sc:166:5321 */ t47685 = "This shouldn\'t happen"; /* x303252 QobiScheme.sc:166:5315 */ stalin_panic(t47685);} l7278: /* x133233 stalin.sc:16932:591693 */ /* x133232 stalin.sc:16932:591694 */ /* x295533 QobiScheme.sc:166:5314 */ /* x295532 QobiScheme.sc:166:5321 */ t47474 = "This shouldn\'t happen"; /* x295531 QobiScheme.sc:166:5315 */ stalin_panic(t47474); l7252: /* x133381 */ /* x133240 stalin.sc:16933:591714 */ /* x133239 stalin.sc:16933:591725 */ t46944 = a26112; /* x133238 stalin.sc:16933:591715 */ if (f14024(t46944)==FALSE_TYPE) goto l7254; /* x133313 */ /* x133312 */ /* x133311 stalin.sc:16934:591729 */ /* x133244 stalin.sc:16934:591733 */ /* x133242 stalin.sc:16934:591742 */ t47205 = a26111; /* x133243 stalin.sc:16934:591744 */ t47206 = a26112; /* x133241 stalin.sc:16934:591734 */ /* MOVE: dispatching squished to general */ switch (t47205) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7413: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19555: case NATIVE_PROCEDURE_TYPE21067: t47207.tag = (unsigned)t47205; break; default: switch (t47205&3) {case 2: t47207.tag = NATIVE_PROCEDURE_TYPE15963; t47207.value.native_procedure_type15963 = (struct p7717 *)(t47205-2); break; case 0: t47207.tag = NATIVE_PROCEDURE_TYPE19878; t47207.value.native_procedure_type19878 = (struct p7873 *)t47205; break; default: t47207.tag = NATIVE_PROCEDURE_TYPE19886; t47207.value.native_procedure_type19886 = (struct p7873 *)(t47205-1);}} if ((f8137(t47207, t47206).tag)==FALSE_TYPE) goto l7265; /* x133300 stalin.sc:16935:591752 */ /* x133251 stalin.sc:16935:591756 */ /* x133245 stalin.sc:16935:591761 */ if (a703==FALSE_TYPE) goto l7269; /* x133249 */ /* x133247 stalin.sc:16935:591789 */ t47423 = a26111; /* x133248 stalin.sc:16935:591791 */ t47424 = a26112; /* x133246 stalin.sc:16935:591777 */ /* MOVE: dispatching squished to general */ switch (t47423) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7413: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19555: case NATIVE_PROCEDURE_TYPE21067: t47425.tag = (unsigned)t47423; break; default: switch (t47423&3) {case 2: t47425.tag = NATIVE_PROCEDURE_TYPE15963; t47425.value.native_procedure_type15963 = (struct p7717 *)(t47423-2); break; case 0: t47425.tag = NATIVE_PROCEDURE_TYPE19878; t47425.value.native_procedure_type19878 = (struct p7873 *)t47423; break; default: t47425.tag = NATIVE_PROCEDURE_TYPE19886; t47425.value.native_procedure_type19886 = (struct p7873 *)(t47423-1);}} if ((f8144(t47425, t47424).tag)==FALSE_TYPE) goto l7269; /* x133276 stalin.sc:16936:591797 */ /* x133252 stalin.sc:16936:591801 */ if (a681==FALSE_TYPE) goto l7274; /* x133262 stalin.sc:16937:591818 */ /* x133257 stalin.sc:16937:591844 */ /* x133255 stalin.sc:16937:591858 */ t47465 = a26111; /* x133256 stalin.sc:16937:591860 */ t47466 = a26112; /* x133254 stalin.sc:16937:591845 */ /* MOVE: dispatching squished to general */ switch (t47465) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7413: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19555: case NATIVE_PROCEDURE_TYPE21067: t47467.tag = (unsigned)t47465; break; default: switch (t47465&3) {case 2: t47467.tag = NATIVE_PROCEDURE_TYPE15963; t47467.value.native_procedure_type15963 = (struct p7717 *)(t47465-2); break; case 0: t47467.tag = NATIVE_PROCEDURE_TYPE19878; t47467.value.native_procedure_type19878 = (struct p7873 *)t47465; break; default: t47467.tag = NATIVE_PROCEDURE_TYPE19886; t47467.value.native_procedure_type19886 = (struct p7873 *)(t47465-1);}} t47458 = f8172(t47467, t47466); /* x133258 stalin.sc:16937:591863 */ t47459 = a26112; /* x133259 stalin.sc:16937:591865 */ t47460 = a26114; /* x133260 stalin.sc:16937:591868 */ t47461 = a26115; /* x133261 stalin.sc:16937:591871 */ t47462 = a26116; /* x133253 stalin.sc:16937:591819 */ t47463 = *((struct w155919 *)(&t47461)); t47464 = *((struct w155916 *)(&t47462)); return f14630(t47458, t47459, t47460, t47463, t47464); l7274: /* x133275 stalin.sc:16938:591881 */ /* x133267 stalin.sc:16939:591918 */ /* x133265 stalin.sc:16939:591932 */ t47453 = a26111; /* x133266 stalin.sc:16939:591934 */ t47454 = a26112; /* x133264 stalin.sc:16939:591919 */ /* MOVE: dispatching squished to general */ switch (t47453) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7413: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19555: case NATIVE_PROCEDURE_TYPE21067: t47455.tag = (unsigned)t47453; break; default: switch (t47453&3) {case 2: t47455.tag = NATIVE_PROCEDURE_TYPE15963; t47455.value.native_procedure_type15963 = (struct p7717 *)(t47453-2); break; case 0: t47455.tag = NATIVE_PROCEDURE_TYPE19878; t47455.value.native_procedure_type19878 = (struct p7873 *)t47453; break; default: t47455.tag = NATIVE_PROCEDURE_TYPE19886; t47455.value.native_procedure_type19886 = (struct p7873 *)(t47453-1);}} t47445 = f8172(t47455, t47454); /* x133268 stalin.sc:16939:591937 */ t47446 = a26112; /* x133269 stalin.sc:16939:591939 */ t47447 = a26114; /* x133270 stalin.sc:16939:591942 */ t47448 = a26115; /* x133271 stalin.sc:16939:591945 */ t47449 = a26116; /* x133274 stalin.sc:16939:591948 */ /* x133273 stalin.sc:16939:591956 */ t47456 = a26113; /* x133272 stalin.sc:16939:591949 */ /* MOVE: branching squeezed to general */ if (t47456>=((struct structure_type27501 *)VALUE_OFFSET)) {t47457.tag = STRUCTURE_TYPE27501; t47457.value.structure_type27501 = t47456;} else t47457.tag = (unsigned)t47456; t47450 = f14689(t47457); /* x133263 stalin.sc:16938:591882 */ t47451 = *((struct w155919 *)(&t47448)); t47452 = *((struct w155916 *)(&t47449)); return f14646(t47445, t47446, t47447, t47451, t47452, t47450); l7269: /* x133299 stalin.sc:16941:592008 */ /* x133277 stalin.sc:16941:592012 */ if (a681==FALSE_TYPE) goto l7272; /* x133286 stalin.sc:16942:592029 */ /* x133282 stalin.sc:16943:592074 */ /* x133280 stalin.sc:16943:592088 */ t47442 = a26111; /* x133281 stalin.sc:16943:592090 */ t47443 = a26112; /* x133279 stalin.sc:16943:592075 */ /* MOVE: dispatching squished to general */ switch (t47442) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7413: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19555: case NATIVE_PROCEDURE_TYPE21067: t47444.tag = (unsigned)t47442; break; default: switch (t47442&3) {case 2: t47444.tag = NATIVE_PROCEDURE_TYPE15963; t47444.value.native_procedure_type15963 = (struct p7717 *)(t47442-2); break; case 0: t47444.tag = NATIVE_PROCEDURE_TYPE19878; t47444.value.native_procedure_type19878 = (struct p7873 *)t47442; break; default: t47444.tag = NATIVE_PROCEDURE_TYPE19886; t47444.value.native_procedure_type19886 = (struct p7873 *)(t47442-1);}} t47437 = f8172(t47444, t47443); /* x133283 stalin.sc:16943:592093 */ t47438 = a26112; /* x133284 stalin.sc:16943:592095 */ t47439 = a26114; /* x133285 stalin.sc:16943:592098 */ t47440 = a26115; /* x133278 stalin.sc:16942:592030 */ t47441 = *((struct w155862 *)(&t47440)); return f14637(t47437, t47438, t47439, t47441); l7272: /* x133298 stalin.sc:16944:592108 */ /* x133291 stalin.sc:16945:592157 */ /* x133289 stalin.sc:16945:592171 */ t47432 = a26111; /* x133290 stalin.sc:16945:592173 */ t47433 = a26112; /* x133288 stalin.sc:16945:592158 */ /* MOVE: dispatching squished to general */ switch (t47432) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7413: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19555: case NATIVE_PROCEDURE_TYPE21067: t47434.tag = (unsigned)t47432; break; default: switch (t47432&3) {case 2: t47434.tag = NATIVE_PROCEDURE_TYPE15963; t47434.value.native_procedure_type15963 = (struct p7717 *)(t47432-2); break; case 0: t47434.tag = NATIVE_PROCEDURE_TYPE19878; t47434.value.native_procedure_type19878 = (struct p7873 *)t47432; break; default: t47434.tag = NATIVE_PROCEDURE_TYPE19886; t47434.value.native_procedure_type19886 = (struct p7873 *)(t47432-1);}} t47426 = f8172(t47434, t47433); /* x133292 stalin.sc:16945:592176 */ t47427 = a26112; /* x133293 stalin.sc:16945:592178 */ t47428 = a26114; /* x133294 stalin.sc:16945:592181 */ t47429 = a26115; /* x133297 stalin.sc:16945:592184 */ /* x133296 stalin.sc:16945:592192 */ t47435 = a26113; /* x133295 stalin.sc:16945:592185 */ /* MOVE: branching squeezed to general */ if (t47435>=((struct structure_type27501 *)VALUE_OFFSET)) {t47436.tag = STRUCTURE_TYPE27501; t47436.value.structure_type27501 = t47435;} else t47436.tag = (unsigned)t47435; t47430 = f14689(t47436); /* x133287 stalin.sc:16944:592109 */ t47431 = *((struct w155862 *)(&t47429)); return f14673(t47426, t47427, t47428, t47431, t47430); l7265: /* x133310 stalin.sc:16946:592203 */ /* x133304 stalin.sc:16946:592207 */ /* x133302 stalin.sc:16946:592220 */ t47208 = a26111; /* x133303 stalin.sc:16946:592222 */ t47209 = a26112; /* x133301 stalin.sc:16946:592208 */ /* MOVE: dispatching squished to general */ switch (t47208) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7413: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19555: case NATIVE_PROCEDURE_TYPE21067: t47210.tag = (unsigned)t47208; break; default: switch (t47208&3) {case 2: t47210.tag = NATIVE_PROCEDURE_TYPE15963; t47210.value.native_procedure_type15963 = (struct p7717 *)(t47208-2); break; case 0: t47210.tag = NATIVE_PROCEDURE_TYPE19878; t47210.value.native_procedure_type19878 = (struct p7873 *)t47208; break; default: t47210.tag = NATIVE_PROCEDURE_TYPE19886; t47210.value.native_procedure_type19886 = (struct p7873 *)(t47208-1);}} if ((f8144(t47210, t47209).tag)==FALSE_TYPE) goto l7267; /* x133307 stalin.sc:16946:592225 */ /* x133306 stalin.sc:16946:592229 */ /* x133305 stalin.sc:16946:592226 */ t47212 = a26116; switch (t47212.tag) {case NATIVE_PROCEDURE_TYPE20757: t47213 = TRUE_TYPE; t47214 = f16097((t47212.value.native_procedure_type20757), t47213); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47214; return r14692; case NATIVE_PROCEDURE_TYPE20782: t47215 = TRUE_TYPE; t47216 = f15772((t47212.value.native_procedure_type20782), t47215); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47216; return r14692; case NATIVE_PROCEDURE_TYPE20913: t47217 = TRUE_TYPE; t47218 = f16433((t47212.value.native_procedure_type20913), t47217); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47218; return r14692; case NATIVE_PROCEDURE_TYPE20915: t47219 = TRUE_TYPE; t47220 = f16417((t47212.value.native_procedure_type20915), t47219); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47220; return r14692; case NATIVE_PROCEDURE_TYPE20918: t47221 = TRUE_TYPE; t47222 = f16635((t47212.value.native_procedure_type20918), t47221); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47222; return r14692; case NATIVE_PROCEDURE_TYPE21036: /* x298083 stalin.sc:21885:766135 */ /* x298082 stalin.sc:21885:766136 */ /* x303414 QobiScheme.sc:166:5314 */ /* x303413 QobiScheme.sc:166:5321 */ t47223 = "This shouldn\'t happen"; /* x303412 QobiScheme.sc:166:5315 */ stalin_panic(t47223); case NATIVE_PROCEDURE_TYPE21042: /* x298144 stalin.sc:21855:765176 */ /* x298143 stalin.sc:21855:765177 */ /* x303490 QobiScheme.sc:166:5314 */ /* x303489 QobiScheme.sc:166:5321 */ t47224 = "This shouldn\'t happen"; /* x303488 QobiScheme.sc:166:5315 */ stalin_panic(t47224); case NATIVE_PROCEDURE_TYPE21048: t47225 = TRUE_TYPE; t47226 = f16737((t47212.value.native_procedure_type21048), t47225); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47226; return r14692; case NATIVE_PROCEDURE_TYPE21059: t47227 = TRUE_TYPE; t47228 = f15571((t47212.value.native_procedure_type21059), t47227); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47228; return r14692; case NATIVE_PROCEDURE_TYPE21065: t47229 = TRUE_TYPE; t47230 = f16830((t47212.value.native_procedure_type21065), t47229); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47230; return r14692; case NATIVE_PROCEDURE_TYPE21082: t47231 = TRUE_TYPE; t47232 = f16721((t47212.value.native_procedure_type21082), t47231); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47232; return r14692; case NATIVE_PROCEDURE_TYPE21087: t47233 = TRUE_TYPE; t47234 = f16648((t47212.value.native_procedure_type21087), t47233); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47234; return r14692; case NATIVE_PROCEDURE_TYPE21090: t47235 = TRUE_TYPE; t47236 = f16858((t47212.value.native_procedure_type21090), t47235); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47236; return r14692; case NATIVE_PROCEDURE_TYPE21108: t47237 = TRUE_TYPE; t47238 = f15580((t47212.value.native_procedure_type21108), t47237); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47238; return r14692; case NATIVE_PROCEDURE_TYPE21110: t47239 = TRUE_TYPE; t47240 = f16912((t47212.value.native_procedure_type21110), t47239); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47240; return r14692; case NATIVE_PROCEDURE_TYPE21117: t47241 = TRUE_TYPE; t47242 = f16884((t47212.value.native_procedure_type21117), t47241); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47242; return r14692; case NATIVE_PROCEDURE_TYPE21137: t47243 = TRUE_TYPE; t47244 = f16982((t47212.value.native_procedure_type21137), t47243); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47244; return r14692; case NATIVE_PROCEDURE_TYPE21147: t47245 = TRUE_TYPE; t47246 = f17061((t47212.value.native_procedure_type21147), t47245); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47246; return r14692; case NATIVE_PROCEDURE_TYPE21152: t47247 = TRUE_TYPE; t47248 = f17134((t47212.value.native_procedure_type21152), t47247); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47248; return r14692; case NATIVE_PROCEDURE_TYPE21154: t47249 = TRUE_TYPE; t47250 = f17133((t47212.value.native_procedure_type21154), t47249); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47250; return r14692; case NATIVE_PROCEDURE_TYPE21170: t47251 = TRUE_TYPE; t47252 = f17101((t47212.value.native_procedure_type21170), t47251); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47252; return r14692; case NATIVE_PROCEDURE_TYPE21172: t47253 = TRUE_TYPE; t47254 = f17100((t47212.value.native_procedure_type21172), t47253); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47254; return r14692; case NATIVE_PROCEDURE_TYPE21201: t47255 = TRUE_TYPE; t47256 = f17026((t47212.value.native_procedure_type21201), t47255); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47256; return r14692; case NATIVE_PROCEDURE_TYPE21225: t47257 = TRUE_TYPE; t47258 = f16941((t47212.value.native_procedure_type21225), t47257); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47258; return r14692; case NATIVE_PROCEDURE_TYPE21228: t47259 = TRUE_TYPE; t47260 = f16844((t47212.value.native_procedure_type21228), t47259); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47260; return r14692; case NATIVE_PROCEDURE_TYPE21234: t47261 = TRUE_TYPE; t47262 = f17200((t47212.value.native_procedure_type21234), t47261); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47262; return r14692; case NATIVE_PROCEDURE_TYPE21236: t47263 = TRUE_TYPE; t47264 = f17199((t47212.value.native_procedure_type21236), t47263); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47264; return r14692; case NATIVE_PROCEDURE_TYPE21256: t47265 = TRUE_TYPE; t47266 = f17222((t47212.value.native_procedure_type21256), t47265); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47266; return r14692; case NATIVE_PROCEDURE_TYPE21259: t47267 = TRUE_TYPE; t47268 = f17209((t47212.value.native_procedure_type21259), t47267); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47268; return r14692; case NATIVE_PROCEDURE_TYPE21265: t47269 = TRUE_TYPE; t47270 = f17254((t47212.value.native_procedure_type21265), t47269); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47270; return r14692; case NATIVE_PROCEDURE_TYPE21268: t47271 = TRUE_TYPE; t47272 = f17295((t47212.value.native_procedure_type21268), t47271); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47272; return r14692; case NATIVE_PROCEDURE_TYPE21274: t47273 = TRUE_TYPE; t47274 = f17333((t47212.value.native_procedure_type21274), t47273); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47274; return r14692; case NATIVE_PROCEDURE_TYPE21280: t47275 = TRUE_TYPE; t47276 = f17314((t47212.value.native_procedure_type21280), t47275); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47276; return r14692; case NATIVE_PROCEDURE_TYPE21286: t47277 = TRUE_TYPE; t47278 = f17276((t47212.value.native_procedure_type21286), t47277); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47278; return r14692; case NATIVE_PROCEDURE_TYPE21296: t47279 = TRUE_TYPE; t47280 = f17238((t47212.value.native_procedure_type21296), t47279); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47280; return r14692; case NATIVE_PROCEDURE_TYPE21299: t47281 = TRUE_TYPE; t47282 = f17357((t47212.value.native_procedure_type21299), t47281); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47282; return r14692; case NATIVE_PROCEDURE_TYPE21304: t47283 = TRUE_TYPE; t47284 = f17381((t47212.value.native_procedure_type21304), t47283); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47284; return r14692; case NATIVE_PROCEDURE_TYPE21309: t47285 = TRUE_TYPE; t47286 = f17369((t47212.value.native_procedure_type21309), t47285); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47286; return r14692; case NATIVE_PROCEDURE_TYPE21314: t47287 = TRUE_TYPE; t47288 = f17405((t47212.value.native_procedure_type21314), t47287); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47288; return r14692; case NATIVE_PROCEDURE_TYPE21319: t47289 = TRUE_TYPE; t47290 = f17440((t47212.value.native_procedure_type21319), t47289); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47290; return r14692; case NATIVE_PROCEDURE_TYPE21324: t47291 = TRUE_TYPE; t47292 = f17437((t47212.value.native_procedure_type21324), t47291); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47292; return r14692; case NATIVE_PROCEDURE_TYPE21329: t47293 = TRUE_TYPE; t47294 = f17430((t47212.value.native_procedure_type21329), t47293); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47294; return r14692; case NATIVE_PROCEDURE_TYPE21334: t47295 = TRUE_TYPE; t47296 = f17417((t47212.value.native_procedure_type21334), t47295); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47296; return r14692; case NATIVE_PROCEDURE_TYPE21339: t47297 = TRUE_TYPE; t47298 = f17473((t47212.value.native_procedure_type21339), t47297); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47298; return r14692; case NATIVE_PROCEDURE_TYPE21341: t47299 = TRUE_TYPE; t47300 = f17472((t47212.value.native_procedure_type21341), t47299); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47300; return r14692; case NATIVE_PROCEDURE_TYPE21348: t47301 = TRUE_TYPE; t47302 = f17452((t47212.value.native_procedure_type21348), t47301); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47302; return r14692; case NATIVE_PROCEDURE_TYPE21353: t47303 = TRUE_TYPE; t47304 = f17393((t47212.value.native_procedure_type21353), t47303); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47304; return r14692; case NATIVE_PROCEDURE_TYPE21358: t47305 = TRUE_TYPE; t47306 = f17345((t47212.value.native_procedure_type21358), t47305); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47306; return r14692; case NATIVE_PROCEDURE_TYPE21363: t47307 = TRUE_TYPE; t47308 = f17167((t47212.value.native_procedure_type21363), t47307); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47308; return r14692; case NATIVE_PROCEDURE_TYPE21365: t47309 = TRUE_TYPE; t47310 = f17166((t47212.value.native_procedure_type21365), t47309); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47310; return r14692; case NATIVE_PROCEDURE_TYPE21381: t47311 = TRUE_TYPE; t47312 = f17504((t47212.value.native_procedure_type21381), t47311); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47312; return r14692; case NATIVE_PROCEDURE_TYPE21387: t47313 = TRUE_TYPE; t47314 = f17525((t47212.value.native_procedure_type21387), t47313); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47314; return r14692; case NATIVE_PROCEDURE_TYPE21393: t47315 = TRUE_TYPE; t47316 = f17599((t47212.value.native_procedure_type21393), t47315); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47316; return r14692; case NATIVE_PROCEDURE_TYPE21414: t47317 = f19631(); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47317; return r14692; case NATIVE_PROCEDURE_TYPE21896: t47318 = TRUE_TYPE; t47319 = f15815((t47212.value.native_procedure_type21896), t47318); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47319; return r14692; case NATIVE_PROCEDURE_TYPE21903: t47320 = TRUE_TYPE; t47321 = f15805((t47212.value.native_procedure_type21903), t47320); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47321; return r14692; case NATIVE_PROCEDURE_TYPE21944: t47322 = TRUE_TYPE; t47323 = f17628((t47212.value.native_procedure_type21944), t47322); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47323; return r14692; case NATIVE_PROCEDURE_TYPE21946: t47324 = TRUE_TYPE; t47325 = f17627((t47212.value.native_procedure_type21946), t47324); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47325; return r14692; case NATIVE_PROCEDURE_TYPE21948: t47326 = TRUE_TYPE; t47327 = f17613((t47212.value.native_procedure_type21948), t47326); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47327; return r14692; case NATIVE_PROCEDURE_TYPE21952: t47328 = TRUE_TYPE; t47329 = f17579((t47212.value.native_procedure_type21952), t47328); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47329; return r14692; case NATIVE_PROCEDURE_TYPE21956: t47330 = TRUE_TYPE; t47331 = f17576((t47212.value.native_procedure_type21956), t47330); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47331; return r14692; case NATIVE_PROCEDURE_TYPE21961: t47332 = TRUE_TYPE; t47333 = f17569((t47212.value.native_procedure_type21961), t47332); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47333; return r14692; case NATIVE_PROCEDURE_TYPE21963: t47334 = TRUE_TYPE; t47335 = f17568((t47212.value.native_procedure_type21963), t47334); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47335; return r14692; case NATIVE_PROCEDURE_TYPE21966: t47336 = TRUE_TYPE; t47337 = f17564((t47212.value.native_procedure_type21966), t47336); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47337; return r14692; case NATIVE_PROCEDURE_TYPE21968: t47338 = TRUE_TYPE; t47339 = f17563((t47212.value.native_procedure_type21968), t47338); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47339; return r14692; case NATIVE_PROCEDURE_TYPE21971: t47340 = TRUE_TYPE; t47341 = f17559((t47212.value.native_procedure_type21971), t47340); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47341; return r14692; case NATIVE_PROCEDURE_TYPE21973: t47342 = TRUE_TYPE; t47343 = f17558((t47212.value.native_procedure_type21973), t47342); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47343; return r14692; case NATIVE_PROCEDURE_TYPE21975: t47344 = TRUE_TYPE; t47345 = f17534((t47212.value.native_procedure_type21975), t47344); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47345; return r14692; case NATIVE_PROCEDURE_TYPE21978: t47346 = TRUE_TYPE; t47347 = f17718((t47212.value.native_procedure_type21978), t47346); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47347; return r14692; case NATIVE_PROCEDURE_TYPE21982: t47348 = TRUE_TYPE; t47349 = f17716((t47212.value.native_procedure_type21982), t47348); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47349; return r14692; case NATIVE_PROCEDURE_TYPE21984: t47350 = TRUE_TYPE; t47351 = f17715((t47212.value.native_procedure_type21984), t47350); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47351; return r14692; case NATIVE_PROCEDURE_TYPE21997: t47352 = TRUE_TYPE; t47353 = f17693((t47212.value.native_procedure_type21997), t47352); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47353; return r14692; case NATIVE_PROCEDURE_TYPE22000: t47354 = TRUE_TYPE; t47355 = f17682((t47212.value.native_procedure_type22000), t47354); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47355; return r14692; case NATIVE_PROCEDURE_TYPE22003: t47356 = TRUE_TYPE; t47357 = f17679((t47212.value.native_procedure_type22003), t47356); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47357; return r14692; case NATIVE_PROCEDURE_TYPE22006: t47358 = TRUE_TYPE; t47359 = f17676((t47212.value.native_procedure_type22006), t47358); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47359; return r14692; case NATIVE_PROCEDURE_TYPE22008: t47360 = TRUE_TYPE; t47361 = f17761((t47212.value.native_procedure_type22008), t47360); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47361; return r14692; case NATIVE_PROCEDURE_TYPE22010: t47362 = TRUE_TYPE; t47363 = f17807((t47212.value.native_procedure_type22010), t47362); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47363; return r14692; case NATIVE_PROCEDURE_TYPE22012: t47364 = TRUE_TYPE; t47365 = f17806((t47212.value.native_procedure_type22012), t47364); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47365; return r14692; case NATIVE_PROCEDURE_TYPE22014: t47366 = TRUE_TYPE; t47367 = f17787((t47212.value.native_procedure_type22014), t47366); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47367; return r14692; case NATIVE_PROCEDURE_TYPE22016: t47368 = TRUE_TYPE; t47369 = f17786((t47212.value.native_procedure_type22016), t47368); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47369; return r14692; case NATIVE_PROCEDURE_TYPE22037: t47370 = TRUE_TYPE; t47371 = f17841((t47212.value.native_procedure_type22037), t47370); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47371; return r14692; case NATIVE_PROCEDURE_TYPE22064: /* x298241 stalin.sc:19867:695278 */ /* x298240 stalin.sc:19867:695279 */ /* x303536 stalin.sc:14693:514793 */ r14692.tag = STRING_TYPE; r14692.value.string_type = ""; return r14692; case NATIVE_PROCEDURE_TYPE22072: t47372 = TRUE_TYPE; t47373 = f15886((t47212.value.native_procedure_type22072), t47372); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47373; return r14692; case NATIVE_PROCEDURE_TYPE22081: t47374 = TRUE_TYPE; t47375 = f17894((t47212.value.native_procedure_type22081), t47374); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47375; return r14692; case NATIVE_PROCEDURE_TYPE22091: t47376 = TRUE_TYPE; t47377 = f17885((t47212.value.native_procedure_type22091), t47376); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47377; return r14692; case NATIVE_PROCEDURE_TYPE22100: t47378 = TRUE_TYPE; t47379 = f17641((t47212.value.native_procedure_type22100), t47378); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47379; return r14692; case NATIVE_PROCEDURE_TYPE22102: t47380 = TRUE_TYPE; t47381 = f17640((t47212.value.native_procedure_type22102), t47380); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47381; return r14692; case NATIVE_PROCEDURE_TYPE22104: t47382 = TRUE_TYPE; t47383 = f17639((t47212.value.native_procedure_type22104), t47382); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47383; return r14692; case NATIVE_PROCEDURE_TYPE22106: t47384 = TRUE_TYPE; t47385 = f17491((t47212.value.native_procedure_type22106), t47384); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47385; return r14692; case NATIVE_PROCEDURE_TYPE22112: t47386 = TRUE_TYPE; t47387 = f17936((t47212.value.native_procedure_type22112), t47386); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47387; return r14692; case NATIVE_PROCEDURE_TYPE22117: t47388 = TRUE_TYPE; t47389 = f17957((t47212.value.native_procedure_type22117), t47388); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47389; return r14692; case NATIVE_PROCEDURE_TYPE22119: t47390 = TRUE_TYPE; t47391 = f17948((t47212.value.native_procedure_type22119), t47390); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47391; return r14692; case NATIVE_PROCEDURE_TYPE22124: t47392 = TRUE_TYPE; t47393 = f17976((t47212.value.native_procedure_type22124), t47392); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47393; return r14692; case NATIVE_PROCEDURE_TYPE22127: t47394 = TRUE_TYPE; t47395 = f17966((t47212.value.native_procedure_type22127), t47394); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47395; return r14692; case NATIVE_PROCEDURE_TYPE22130: t47396 = TRUE_TYPE; t47397 = f18033((t47212.value.native_procedure_type22130), t47396); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47397; return r14692; case NATIVE_PROCEDURE_TYPE22132: t47398 = TRUE_TYPE; t47399 = f18032((t47212.value.native_procedure_type22132), t47398); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47399; return r14692; case NATIVE_PROCEDURE_TYPE22135: t47400 = TRUE_TYPE; t47401 = f18008((t47212.value.native_procedure_type22135), t47400); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47401; return r14692; case NATIVE_PROCEDURE_TYPE22137: t47402 = TRUE_TYPE; t47403 = f17986((t47212.value.native_procedure_type22137), t47402); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47403; return r14692; case NATIVE_PROCEDURE_TYPE22139: t47404 = TRUE_TYPE; t47405 = f18072((t47212.value.native_procedure_type22139), t47404); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47405; return r14692; case NATIVE_PROCEDURE_TYPE22141: t47406 = TRUE_TYPE; t47407 = f18090((t47212.value.native_procedure_type22141), t47406); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47407; return r14692; case NATIVE_PROCEDURE_TYPE22143: t47408 = TRUE_TYPE; t47409 = f18081((t47212.value.native_procedure_type22143), t47408); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47409; return r14692; case NATIVE_PROCEDURE_TYPE22145: t47410 = TRUE_TYPE; t47411 = f18063((t47212.value.native_procedure_type22145), t47410); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47411; return r14692; case NATIVE_PROCEDURE_TYPE22148: t47412 = TRUE_TYPE; t47413 = f18121((t47212.value.native_procedure_type22148), t47412); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47413; return r14692; case NATIVE_PROCEDURE_TYPE22154: t47414 = TRUE_TYPE; t47415 = f18148((t47212.value.native_procedure_type22154), t47414); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47415; return r14692; case NATIVE_PROCEDURE_TYPE22160: t47416 = TRUE_TYPE; t47417 = f18135((t47212.value.native_procedure_type22160), t47416); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47417; return r14692; case NATIVE_PROCEDURE_TYPE22162: t47418 = TRUE_TYPE; t47419 = f18133((t47212.value.native_procedure_type22162), t47418); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47419; return r14692; case NATIVE_PROCEDURE_TYPE22165: t47420 = TRUE_TYPE; t47421 = f18042((t47212.value.native_procedure_type22165), t47420); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47421; return r14692; default: /* x297744 stalin.sc:23751:825832 */ /* x297743 stalin.sc:23751:825833 */ /* x303270 QobiScheme.sc:166:5314 */ /* x303269 QobiScheme.sc:166:5321 */ t47422 = "This shouldn\'t happen"; /* x303268 QobiScheme.sc:166:5315 */ stalin_panic(t47422);} l7267: /* x133309 stalin.sc:16946:592233 */ /* x133308 stalin.sc:16946:592234 */ /* x295537 QobiScheme.sc:166:5314 */ /* x295536 QobiScheme.sc:166:5321 */ t47211 = "This shouldn\'t happen"; /* x295535 QobiScheme.sc:166:5315 */ stalin_panic(t47211); l7254: /* x133380 */ /* x133379 */ /* x133378 stalin.sc:16949:592364 */ /* x133317 stalin.sc:16949:592368 */ /* x133315 stalin.sc:16949:592377 */ t46945 = a26111; /* x133316 stalin.sc:16949:592379 */ t46946 = a26112; /* x133314 stalin.sc:16949:592369 */ /* MOVE: dispatching squished to general */ switch (t46945) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7413: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19555: case NATIVE_PROCEDURE_TYPE21067: t46947.tag = (unsigned)t46945; break; default: switch (t46945&3) {case 2: t46947.tag = NATIVE_PROCEDURE_TYPE15963; t46947.value.native_procedure_type15963 = (struct p7717 *)(t46945-2); break; case 0: t46947.tag = NATIVE_PROCEDURE_TYPE19878; t46947.value.native_procedure_type19878 = (struct p7873 *)t46945; break; default: t46947.tag = NATIVE_PROCEDURE_TYPE19886; t46947.value.native_procedure_type19886 = (struct p7873 *)(t46945-1);}} if ((f8137(t46947, t46946).tag)==FALSE_TYPE) goto l7256; /* x133367 stalin.sc:16950:592385 */ /* x133324 stalin.sc:16950:592389 */ /* x133318 stalin.sc:16950:592394 */ if (a703==FALSE_TYPE) goto l7260; /* x133322 */ /* x133320 stalin.sc:16950:592422 */ t47163 = a26111; /* x133321 stalin.sc:16950:592424 */ t47164 = a26112; /* x133319 stalin.sc:16950:592410 */ /* MOVE: dispatching squished to general */ switch (t47163) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7413: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19555: case NATIVE_PROCEDURE_TYPE21067: t47165.tag = (unsigned)t47163; break; default: switch (t47163&3) {case 2: t47165.tag = NATIVE_PROCEDURE_TYPE15963; t47165.value.native_procedure_type15963 = (struct p7717 *)(t47163-2); break; case 0: t47165.tag = NATIVE_PROCEDURE_TYPE19878; t47165.value.native_procedure_type19878 = (struct p7873 *)t47163; break; default: t47165.tag = NATIVE_PROCEDURE_TYPE19886; t47165.value.native_procedure_type19886 = (struct p7873 *)(t47163-1);}} if ((f8144(t47165, t47164).tag)==FALSE_TYPE) goto l7260; /* x133337 stalin.sc:16951:592435 */ /* x133329 stalin.sc:16952:592464 */ /* x133327 stalin.sc:16952:592478 */ t47200 = a26111; /* x133328 stalin.sc:16952:592480 */ t47201 = a26112; /* x133326 stalin.sc:16952:592465 */ /* MOVE: dispatching squished to general */ switch (t47200) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7413: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19555: case NATIVE_PROCEDURE_TYPE21067: t47202.tag = (unsigned)t47200; break; default: switch (t47200&3) {case 2: t47202.tag = NATIVE_PROCEDURE_TYPE15963; t47202.value.native_procedure_type15963 = (struct p7717 *)(t47200-2); break; case 0: t47202.tag = NATIVE_PROCEDURE_TYPE19878; t47202.value.native_procedure_type19878 = (struct p7873 *)t47200; break; default: t47202.tag = NATIVE_PROCEDURE_TYPE19886; t47202.value.native_procedure_type19886 = (struct p7873 *)(t47200-1);}} t47192 = f8172(t47202, t47201); /* x133330 stalin.sc:16952:592483 */ t47193 = a26112; /* x133331 stalin.sc:16952:592485 */ t47194 = a26114; /* x133332 stalin.sc:16952:592488 */ t47195 = a26115; /* x133333 stalin.sc:16952:592491 */ t47196 = a26116; /* x133336 stalin.sc:16952:592494 */ /* x133335 stalin.sc:16952:592502 */ t47203 = a26113; /* x133334 stalin.sc:16952:592495 */ /* MOVE: branching squeezed to general */ if (t47203>=((struct structure_type27501 *)VALUE_OFFSET)) {t47204.tag = STRUCTURE_TYPE27501; t47204.value.structure_type27501 = t47203;} else t47204.tag = (unsigned)t47203; t47197 = f14689(t47204); /* x133325 stalin.sc:16951:592436 */ t47198 = *((struct w155919 *)(&t47195)); t47199 = *((struct w155916 *)(&t47196)); return f14680(t47192, t47193, t47194, t47198, t47199, t47197); l7260: /* x133366 stalin.sc:16954:592563 */ /* x133345 stalin.sc:16954:592567 */ /* x133344 stalin.sc:16954:592574 */ /* x133343 stalin.sc:16954:592580 */ /* x133341 stalin.sc:16954:592594 */ t47169 = a26111; /* x133342 stalin.sc:16954:592596 */ t47170 = a26112; /* x133340 stalin.sc:16954:592581 */ /* MOVE: dispatching squished to general */ switch (t47169) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7413: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19555: case NATIVE_PROCEDURE_TYPE21067: t47171.tag = (unsigned)t47169; break; default: switch (t47169&3) {case 2: t47171.tag = NATIVE_PROCEDURE_TYPE15963; t47171.value.native_procedure_type15963 = (struct p7717 *)(t47169-2); break; case 0: t47171.tag = NATIVE_PROCEDURE_TYPE19878; t47171.value.native_procedure_type19878 = (struct p7873 *)t47169; break; default: t47171.tag = NATIVE_PROCEDURE_TYPE19886; t47171.value.native_procedure_type19886 = (struct p7873 *)(t47169-1);}} t47167 = f8172(t47171, t47170); /* x133339 stalin.sc:16954:592575 */ a35444 = t47167; /* x273133 */ /* x273132 */ t47168 = a35444; /* x273131 */ if (!((t47168.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29593]"); structure_ref_error();} t47166 = t47168.value.structure_type24753->s1; /* x268801 stalin.sc:16954:592568 */ if (!((t47166.tag)==NULL_TYPE)) goto l7263; /* x133353 stalin.sc:16955:592605 */ /* x133352 stalin.sc:16955:592609 */ /* x133351 stalin.sc:16955:592616 */ /* x133349 stalin.sc:16955:592630 */ t47189 = a26111; /* x133350 stalin.sc:16955:592632 */ t47190 = a26112; /* x133348 stalin.sc:16955:592617 */ /* MOVE: dispatching squished to general */ switch (t47189) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7413: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19555: case NATIVE_PROCEDURE_TYPE21067: t47191.tag = (unsigned)t47189; break; default: switch (t47189&3) {case 2: t47191.tag = NATIVE_PROCEDURE_TYPE15963; t47191.value.native_procedure_type15963 = (struct p7717 *)(t47189-2); break; case 0: t47191.tag = NATIVE_PROCEDURE_TYPE19878; t47191.value.native_procedure_type19878 = (struct p7873 *)t47189; break; default: t47191.tag = NATIVE_PROCEDURE_TYPE19886; t47191.value.native_procedure_type19886 = (struct p7873 *)(t47189-1);}} t47187 = f8172(t47191, t47190); /* x133347 stalin.sc:16955:592610 */ a35749 = t47187; /* x274353 */ /* x274352 */ t47188 = a35749; /* x274351 */ if (!((t47188.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29898]"); structure_ref_error();} t47184 = t47188.value.structure_type24753->s0; /* x133346 stalin.sc:16955:592606 */ t47183 = a26115; switch (t47183.tag) {case NATIVE_PROCEDURE_TYPE20758: d16096 = t47183.value.native_procedure_type20758; b27143 = t47184; return f16096(); case NATIVE_PROCEDURE_TYPE20783: d15771 = t47183.value.native_procedure_type20783; b26894 = t47184; return f15771(); case NATIVE_PROCEDURE_TYPE20914: return f16432((t47183.value.native_procedure_type20914), t47184); case NATIVE_PROCEDURE_TYPE20916: return f16416((t47183.value.native_procedure_type20916), t47184); case NATIVE_PROCEDURE_TYPE20919: return f16631((t47183.value.native_procedure_type20919), t47184); case NATIVE_PROCEDURE_TYPE21037: return f16700((t47183.value.native_procedure_type21037), t47184); case NATIVE_PROCEDURE_TYPE21043: return f16678((t47183.value.native_procedure_type21043), t47184); case NATIVE_PROCEDURE_TYPE21049: return f16736((t47183.value.native_procedure_type21049), t47184); case NATIVE_PROCEDURE_TYPE21060: d15570 = t47183.value.native_procedure_type21060; b26729 = t47184; return f15570(); case NATIVE_PROCEDURE_TYPE21066: return f16821((t47183.value.native_procedure_type21066), t47184); case NATIVE_PROCEDURE_TYPE21083: return f16720((t47183.value.native_procedure_type21083), t47184); case NATIVE_PROCEDURE_TYPE21088: return f16646((t47183.value.native_procedure_type21088), t47184); case NATIVE_PROCEDURE_TYPE21091: return f16853((t47183.value.native_procedure_type21091), t47184); case NATIVE_PROCEDURE_TYPE21109: d15579 = t47183.value.native_procedure_type21109; b26749 = t47184; return f15579(); case NATIVE_PROCEDURE_TYPE21111: return f16908((t47183.value.native_procedure_type21111), t47184); case NATIVE_PROCEDURE_TYPE21118: return f16880((t47183.value.native_procedure_type21118), t47184); case NATIVE_PROCEDURE_TYPE21138: return f16981((t47183.value.native_procedure_type21138), t47184); case NATIVE_PROCEDURE_TYPE21148: return f17057((t47183.value.native_procedure_type21148), t47184); case NATIVE_PROCEDURE_TYPE21153: d17117 = t47183.value.native_procedure_type21153; b29067 = t47184; return f17117(); case NATIVE_PROCEDURE_TYPE21155: return f17118((t47183.value.native_procedure_type21155), t47184); case NATIVE_PROCEDURE_TYPE21171: d17084 = t47183.value.native_procedure_type21171; b29016 = t47184; return f17084(); case NATIVE_PROCEDURE_TYPE21173: return f17085((t47183.value.native_procedure_type21173), t47184); case NATIVE_PROCEDURE_TYPE21202: return f17018((t47183.value.native_procedure_type21202), t47184); case NATIVE_PROCEDURE_TYPE21226: return f16940((t47183.value.native_procedure_type21226), t47184); case NATIVE_PROCEDURE_TYPE21229: return f16839((t47183.value.native_procedure_type21229), t47184); case NATIVE_PROCEDURE_TYPE21235: d17183 = t47183.value.native_procedure_type21235; b29169 = t47184; return f17183(); case NATIVE_PROCEDURE_TYPE21237: return f17184((t47183.value.native_procedure_type21237), t47184); case NATIVE_PROCEDURE_TYPE21257: return f17221((t47183.value.native_procedure_type21257), t47184); case NATIVE_PROCEDURE_TYPE21260: return f17208((t47183.value.native_procedure_type21260), t47184); case NATIVE_PROCEDURE_TYPE21266: return f17253((t47183.value.native_procedure_type21266), t47184); case NATIVE_PROCEDURE_TYPE21269: return f17290((t47183.value.native_procedure_type21269), t47184); case NATIVE_PROCEDURE_TYPE21275: return f17328((t47183.value.native_procedure_type21275), t47184); case NATIVE_PROCEDURE_TYPE21281: return f17309((t47183.value.native_procedure_type21281), t47184); case NATIVE_PROCEDURE_TYPE21287: return f17271((t47183.value.native_procedure_type21287), t47184); case NATIVE_PROCEDURE_TYPE21297: return f17237((t47183.value.native_procedure_type21297), t47184); case NATIVE_PROCEDURE_TYPE21300: return f17353((t47183.value.native_procedure_type21300), t47184); case NATIVE_PROCEDURE_TYPE21305: return f17377((t47183.value.native_procedure_type21305), t47184); case NATIVE_PROCEDURE_TYPE21310: return f17365((t47183.value.native_procedure_type21310), t47184); case NATIVE_PROCEDURE_TYPE21315: return f17401((t47183.value.native_procedure_type21315), t47184); case NATIVE_PROCEDURE_TYPE21320: d17431 = t47183.value.native_procedure_type21320; b29911 = t47184; return f17431(); case NATIVE_PROCEDURE_TYPE21325: return f17433((t47183.value.native_procedure_type21325), t47184); case NATIVE_PROCEDURE_TYPE21330: return f17426((t47183.value.native_procedure_type21330), t47184); case NATIVE_PROCEDURE_TYPE21335: return f17413((t47183.value.native_procedure_type21335), t47184); case NATIVE_PROCEDURE_TYPE21340: d17465 = t47183.value.native_procedure_type21340; b30003 = t47184; return f17465(); case NATIVE_PROCEDURE_TYPE21342: return f17466((t47183.value.native_procedure_type21342), t47184); case NATIVE_PROCEDURE_TYPE21349: return f17448((t47183.value.native_procedure_type21349), t47184); case NATIVE_PROCEDURE_TYPE21354: return f17389((t47183.value.native_procedure_type21354), t47184); case NATIVE_PROCEDURE_TYPE21359: return f17341((t47183.value.native_procedure_type21359), t47184); case NATIVE_PROCEDURE_TYPE21364: d17150 = t47183.value.native_procedure_type21364; b29118 = t47184; return f17150(); case NATIVE_PROCEDURE_TYPE21366: return f17151((t47183.value.native_procedure_type21366), t47184); case NATIVE_PROCEDURE_TYPE21382: return f17499((t47183.value.native_procedure_type21382), t47184); case NATIVE_PROCEDURE_TYPE21388: return f17524((t47183.value.native_procedure_type21388), t47184); case NATIVE_PROCEDURE_TYPE21394: d17598 = t47183.value.native_procedure_type21394; b30396 = t47184; return f17598(); case NATIVE_PROCEDURE_TYPE21415: t47185 = f19627(t47184); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47185; return r14692; case NATIVE_PROCEDURE_TYPE21897: return f15811((t47183.value.native_procedure_type21897), t47184); case NATIVE_PROCEDURE_TYPE21904: /* x298301 stalin.sc:19531:682748 */ /* x298300 stalin.sc:19531:682749 */ /* x303576 stalin.sc:14693:514793 */ r14692.tag = STRING_TYPE; r14692.value.string_type = ""; return r14692; case NATIVE_PROCEDURE_TYPE21945: d17625 = t47183.value.native_procedure_type21945; b30489 = t47184; return f17625(); case NATIVE_PROCEDURE_TYPE21947: return f17626((t47183.value.native_procedure_type21947), t47184); case NATIVE_PROCEDURE_TYPE21949: return f17612((t47183.value.native_procedure_type21949), t47184); case NATIVE_PROCEDURE_TYPE21953: d17572 = t47183.value.native_procedure_type21953; b30333 = t47184; return f17572(); case NATIVE_PROCEDURE_TYPE21957: return f17573((t47183.value.native_procedure_type21957), t47184); case NATIVE_PROCEDURE_TYPE21962: d17566 = t47183.value.native_procedure_type21962; return f17566(); case NATIVE_PROCEDURE_TYPE21964: return f17567(t47183.value.native_procedure_type21964); case NATIVE_PROCEDURE_TYPE21967: d17561 = t47183.value.native_procedure_type21967; return f17561(); case NATIVE_PROCEDURE_TYPE21969: return f17562(t47183.value.native_procedure_type21969); case NATIVE_PROCEDURE_TYPE21972: d17556 = t47183.value.native_procedure_type21972; return f17556(); case NATIVE_PROCEDURE_TYPE21974: /* x297867 stalin.sc:23400:816144 */ /* x297866 stalin.sc:23400:816145 */ /* x303352 stalin.sc:14693:514793 */ r14692.tag = STRING_TYPE; r14692.value.string_type = ""; return r14692; case NATIVE_PROCEDURE_TYPE21976: return f17533((t47183.value.native_procedure_type21976), t47184); case NATIVE_PROCEDURE_TYPE21979: d17706 = t47183.value.native_procedure_type21979; b30702 = t47184; return f17706(); case NATIVE_PROCEDURE_TYPE21983: d17708 = t47183.value.native_procedure_type21983; b30704 = t47184; return f17708(); case NATIVE_PROCEDURE_TYPE21985: return f17709((t47183.value.native_procedure_type21985), t47184); case NATIVE_PROCEDURE_TYPE21998: return f17688((t47183.value.native_procedure_type21998), t47184); case NATIVE_PROCEDURE_TYPE22001: return f17681(t47183.value.native_procedure_type22001); case NATIVE_PROCEDURE_TYPE22004: return f17678(t47183.value.native_procedure_type22004); case NATIVE_PROCEDURE_TYPE22007: /* x297804 stalin.sc:23690:824240 */ /* x297803 stalin.sc:23690:824241 */ /* x303318 stalin.sc:14693:514793 */ r14692.tag = STRING_TYPE; r14692.value.string_type = ""; return r14692; case NATIVE_PROCEDURE_TYPE22009: return f17760((t47183.value.native_procedure_type22009), t47184); case NATIVE_PROCEDURE_TYPE22011: d17804 = t47183.value.native_procedure_type22011; b30911 = t47184; return f17804(); case NATIVE_PROCEDURE_TYPE22013: return f17805((t47183.value.native_procedure_type22013), t47184); case NATIVE_PROCEDURE_TYPE22015: d17784 = t47183.value.native_procedure_type22015; b30860 = t47184; return f17784(); case NATIVE_PROCEDURE_TYPE22017: return f17785((t47183.value.native_procedure_type22017), t47184); case NATIVE_PROCEDURE_TYPE22038: d17840 = t47183.value.native_procedure_type22038; b31010 = t47184; return f17840(); case NATIVE_PROCEDURE_TYPE22065: d15900 = t47183.value.native_procedure_type22065; b27021 = t47184; return f15900(); case NATIVE_PROCEDURE_TYPE22073: d15885 = t47183.value.native_procedure_type22073; b27015 = t47184; return f15885(); case NATIVE_PROCEDURE_TYPE22082: d17890 = t47183.value.native_procedure_type22082; b31082 = t47184; return f17890(); case NATIVE_PROCEDURE_TYPE22092: return f17878((t47183.value.native_procedure_type22092), t47184); case NATIVE_PROCEDURE_TYPE22101: d17636 = t47183.value.native_procedure_type22101; b30537 = t47184; return f17636(); case NATIVE_PROCEDURE_TYPE22103: return f17637((t47183.value.native_procedure_type22103), t47184); case NATIVE_PROCEDURE_TYPE22105: return f17638((t47183.value.native_procedure_type22105), t47184); case NATIVE_PROCEDURE_TYPE22107: return f17486((t47183.value.native_procedure_type22107), t47184); case NATIVE_PROCEDURE_TYPE22113: return f17932((t47183.value.native_procedure_type22113), t47184); case NATIVE_PROCEDURE_TYPE22118: return f17956((t47183.value.native_procedure_type22118), t47184); case NATIVE_PROCEDURE_TYPE22120: return f17944((t47183.value.native_procedure_type22120), t47184); case NATIVE_PROCEDURE_TYPE22125: return f17975((t47183.value.native_procedure_type22125), t47184); case NATIVE_PROCEDURE_TYPE22128: return f17965((t47183.value.native_procedure_type22128), t47184); case NATIVE_PROCEDURE_TYPE22131: d18030 = t47183.value.native_procedure_type22131; b31667 = t47184; return f18030(); case NATIVE_PROCEDURE_TYPE22133: return f18031((t47183.value.native_procedure_type22133), t47184); case NATIVE_PROCEDURE_TYPE22136: return f18007((t47183.value.native_procedure_type22136), t47184); case NATIVE_PROCEDURE_TYPE22138: return f17985((t47183.value.native_procedure_type22138), t47184); case NATIVE_PROCEDURE_TYPE22140: return f18071((t47183.value.native_procedure_type22140), t47184); case NATIVE_PROCEDURE_TYPE22142: return f18089((t47183.value.native_procedure_type22142), t47184); case NATIVE_PROCEDURE_TYPE22144: return f18080((t47183.value.native_procedure_type22144), t47184); case NATIVE_PROCEDURE_TYPE22146: return f18062((t47183.value.native_procedure_type22146), t47184); case NATIVE_PROCEDURE_TYPE22149: return f18120((t47183.value.native_procedure_type22149), t47184); case NATIVE_PROCEDURE_TYPE22155: d18147 = t47183.value.native_procedure_type22155; b32201 = t47184; return f18147(); case NATIVE_PROCEDURE_TYPE22161: d18134 = t47183.value.native_procedure_type22161; b32153 = t47184; return f18134(); case NATIVE_PROCEDURE_TYPE22163: d18132 = t47183.value.native_procedure_type22163; b32151 = t47184; return f18132(); case NATIVE_PROCEDURE_TYPE22166: t47186 = f18041((t47183.value.native_procedure_type22166), t47184); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47186; return r14692; default: return f17689(t47183.value.native_procedure_type23298);} l7263: /* x133365 stalin.sc:16956:592641 */ /* x133358 stalin.sc:16957:592679 */ /* x133356 stalin.sc:16957:592693 */ t47178 = a26111; /* x133357 stalin.sc:16957:592695 */ t47179 = a26112; /* x133355 stalin.sc:16957:592680 */ /* MOVE: dispatching squished to general */ switch (t47178) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7413: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19555: case NATIVE_PROCEDURE_TYPE21067: t47180.tag = (unsigned)t47178; break; default: switch (t47178&3) {case 2: t47180.tag = NATIVE_PROCEDURE_TYPE15963; t47180.value.native_procedure_type15963 = (struct p7717 *)(t47178-2); break; case 0: t47180.tag = NATIVE_PROCEDURE_TYPE19878; t47180.value.native_procedure_type19878 = (struct p7873 *)t47178; break; default: t47180.tag = NATIVE_PROCEDURE_TYPE19886; t47180.value.native_procedure_type19886 = (struct p7873 *)(t47178-1);}} t47172 = f8172(t47180, t47179); /* x133359 stalin.sc:16957:592698 */ t47173 = a26112; /* x133360 stalin.sc:16957:592700 */ t47174 = a26114; /* x133361 stalin.sc:16957:592703 */ t47175 = a26115; /* x133364 stalin.sc:16957:592706 */ /* x133363 stalin.sc:16957:592714 */ t47181 = a26113; /* x133362 stalin.sc:16957:592707 */ /* MOVE: branching squeezed to general */ if (t47181>=((struct structure_type27501 *)VALUE_OFFSET)) {t47182.tag = STRUCTURE_TYPE27501; t47182.value.structure_type27501 = t47181;} else t47182.tag = (unsigned)t47181; t47176 = f14689(t47182); /* x133354 stalin.sc:16956:592642 */ t47177 = *((struct w155862 *)(&t47175)); return f14687(t47172, t47173, t47174, t47177, t47176); l7256: /* x133377 stalin.sc:16958:592723 */ /* x133371 stalin.sc:16958:592727 */ /* x133369 stalin.sc:16958:592740 */ t46948 = a26111; /* x133370 stalin.sc:16958:592742 */ t46949 = a26112; /* x133368 stalin.sc:16958:592728 */ /* MOVE: dispatching squished to general */ switch (t46948) {case NATIVE_PROCEDURE_TYPE7404: case NATIVE_PROCEDURE_TYPE7406: case NATIVE_PROCEDURE_TYPE7413: case NATIVE_PROCEDURE_TYPE7418: case NATIVE_PROCEDURE_TYPE7420: case NATIVE_PROCEDURE_TYPE7422: case NATIVE_PROCEDURE_TYPE7423: case NATIVE_PROCEDURE_TYPE7426: case NATIVE_PROCEDURE_TYPE7429: case NATIVE_PROCEDURE_TYPE7430: case NATIVE_PROCEDURE_TYPE7431: case NATIVE_PROCEDURE_TYPE7435: case NATIVE_PROCEDURE_TYPE7822: case NATIVE_PROCEDURE_TYPE19555: case NATIVE_PROCEDURE_TYPE21067: t46950.tag = (unsigned)t46948; break; default: switch (t46948&3) {case 2: t46950.tag = NATIVE_PROCEDURE_TYPE15963; t46950.value.native_procedure_type15963 = (struct p7717 *)(t46948-2); break; case 0: t46950.tag = NATIVE_PROCEDURE_TYPE19878; t46950.value.native_procedure_type19878 = (struct p7873 *)t46948; break; default: t46950.tag = NATIVE_PROCEDURE_TYPE19886; t46950.value.native_procedure_type19886 = (struct p7873 *)(t46948-1);}} if ((f8144(t46950, t46949).tag)==FALSE_TYPE) goto l7258; /* x133374 stalin.sc:16958:592745 */ /* x133373 stalin.sc:16958:592749 */ /* x133372 stalin.sc:16958:592746 */ t46952 = a26116; switch (t46952.tag) {case NATIVE_PROCEDURE_TYPE20757: t46953 = TRUE_TYPE; t46954 = f16097((t46952.value.native_procedure_type20757), t46953); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46954; return r14692; case NATIVE_PROCEDURE_TYPE20782: t46955 = TRUE_TYPE; t46956 = f15772((t46952.value.native_procedure_type20782), t46955); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46956; return r14692; case NATIVE_PROCEDURE_TYPE20913: t46957 = TRUE_TYPE; t46958 = f16433((t46952.value.native_procedure_type20913), t46957); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46958; return r14692; case NATIVE_PROCEDURE_TYPE20915: t46959 = TRUE_TYPE; t46960 = f16417((t46952.value.native_procedure_type20915), t46959); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46960; return r14692; case NATIVE_PROCEDURE_TYPE20918: t46961 = TRUE_TYPE; t46962 = f16635((t46952.value.native_procedure_type20918), t46961); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46962; return r14692; case NATIVE_PROCEDURE_TYPE21036: /* x298095 stalin.sc:21885:766135 */ /* x298094 stalin.sc:21885:766136 */ /* x303430 QobiScheme.sc:166:5314 */ /* x303429 QobiScheme.sc:166:5321 */ t46963 = "This shouldn\'t happen"; /* x303428 QobiScheme.sc:166:5315 */ stalin_panic(t46963); case NATIVE_PROCEDURE_TYPE21042: /* x298156 stalin.sc:21855:765176 */ /* x298155 stalin.sc:21855:765177 */ /* x303506 QobiScheme.sc:166:5314 */ /* x303505 QobiScheme.sc:166:5321 */ t46964 = "This shouldn\'t happen"; /* x303504 QobiScheme.sc:166:5315 */ stalin_panic(t46964); case NATIVE_PROCEDURE_TYPE21048: t46965 = TRUE_TYPE; t46966 = f16737((t46952.value.native_procedure_type21048), t46965); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46966; return r14692; case NATIVE_PROCEDURE_TYPE21059: t46967 = TRUE_TYPE; t46968 = f15571((t46952.value.native_procedure_type21059), t46967); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46968; return r14692; case NATIVE_PROCEDURE_TYPE21065: t46969 = TRUE_TYPE; t46970 = f16830((t46952.value.native_procedure_type21065), t46969); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46970; return r14692; case NATIVE_PROCEDURE_TYPE21082: t46971 = TRUE_TYPE; t46972 = f16721((t46952.value.native_procedure_type21082), t46971); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46972; return r14692; case NATIVE_PROCEDURE_TYPE21087: t46973 = TRUE_TYPE; t46974 = f16648((t46952.value.native_procedure_type21087), t46973); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46974; return r14692; case NATIVE_PROCEDURE_TYPE21090: t46975 = TRUE_TYPE; t46976 = f16858((t46952.value.native_procedure_type21090), t46975); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46976; return r14692; case NATIVE_PROCEDURE_TYPE21108: t46977 = TRUE_TYPE; t46978 = f15580((t46952.value.native_procedure_type21108), t46977); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46978; return r14692; case NATIVE_PROCEDURE_TYPE21110: t46979 = TRUE_TYPE; t46980 = f16912((t46952.value.native_procedure_type21110), t46979); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46980; return r14692; case NATIVE_PROCEDURE_TYPE21117: t46981 = TRUE_TYPE; t46982 = f16884((t46952.value.native_procedure_type21117), t46981); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46982; return r14692; case NATIVE_PROCEDURE_TYPE21137: t46983 = TRUE_TYPE; t46984 = f16982((t46952.value.native_procedure_type21137), t46983); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46984; return r14692; case NATIVE_PROCEDURE_TYPE21147: t46985 = TRUE_TYPE; t46986 = f17061((t46952.value.native_procedure_type21147), t46985); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46986; return r14692; case NATIVE_PROCEDURE_TYPE21152: t46987 = TRUE_TYPE; t46988 = f17134((t46952.value.native_procedure_type21152), t46987); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46988; return r14692; case NATIVE_PROCEDURE_TYPE21154: t46989 = TRUE_TYPE; t46990 = f17133((t46952.value.native_procedure_type21154), t46989); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46990; return r14692; case NATIVE_PROCEDURE_TYPE21170: t46991 = TRUE_TYPE; t46992 = f17101((t46952.value.native_procedure_type21170), t46991); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46992; return r14692; case NATIVE_PROCEDURE_TYPE21172: t46993 = TRUE_TYPE; t46994 = f17100((t46952.value.native_procedure_type21172), t46993); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46994; return r14692; case NATIVE_PROCEDURE_TYPE21201: t46995 = TRUE_TYPE; t46996 = f17026((t46952.value.native_procedure_type21201), t46995); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46996; return r14692; case NATIVE_PROCEDURE_TYPE21225: t46997 = TRUE_TYPE; t46998 = f16941((t46952.value.native_procedure_type21225), t46997); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t46998; return r14692; case NATIVE_PROCEDURE_TYPE21228: t46999 = TRUE_TYPE; t47000 = f16844((t46952.value.native_procedure_type21228), t46999); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47000; return r14692; case NATIVE_PROCEDURE_TYPE21234: t47001 = TRUE_TYPE; t47002 = f17200((t46952.value.native_procedure_type21234), t47001); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47002; return r14692; case NATIVE_PROCEDURE_TYPE21236: t47003 = TRUE_TYPE; t47004 = f17199((t46952.value.native_procedure_type21236), t47003); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47004; return r14692; case NATIVE_PROCEDURE_TYPE21256: t47005 = TRUE_TYPE; t47006 = f17222((t46952.value.native_procedure_type21256), t47005); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47006; return r14692; case NATIVE_PROCEDURE_TYPE21259: t47007 = TRUE_TYPE; t47008 = f17209((t46952.value.native_procedure_type21259), t47007); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47008; return r14692; case NATIVE_PROCEDURE_TYPE21265: t47009 = TRUE_TYPE; t47010 = f17254((t46952.value.native_procedure_type21265), t47009); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47010; return r14692; case NATIVE_PROCEDURE_TYPE21268: t47011 = TRUE_TYPE; t47012 = f17295((t46952.value.native_procedure_type21268), t47011); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47012; return r14692; case NATIVE_PROCEDURE_TYPE21274: t47013 = TRUE_TYPE; t47014 = f17333((t46952.value.native_procedure_type21274), t47013); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47014; return r14692; case NATIVE_PROCEDURE_TYPE21280: t47015 = TRUE_TYPE; t47016 = f17314((t46952.value.native_procedure_type21280), t47015); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47016; return r14692; case NATIVE_PROCEDURE_TYPE21286: t47017 = TRUE_TYPE; t47018 = f17276((t46952.value.native_procedure_type21286), t47017); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47018; return r14692; case NATIVE_PROCEDURE_TYPE21296: t47019 = TRUE_TYPE; t47020 = f17238((t46952.value.native_procedure_type21296), t47019); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47020; return r14692; case NATIVE_PROCEDURE_TYPE21299: t47021 = TRUE_TYPE; t47022 = f17357((t46952.value.native_procedure_type21299), t47021); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47022; return r14692; case NATIVE_PROCEDURE_TYPE21304: t47023 = TRUE_TYPE; t47024 = f17381((t46952.value.native_procedure_type21304), t47023); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47024; return r14692; case NATIVE_PROCEDURE_TYPE21309: t47025 = TRUE_TYPE; t47026 = f17369((t46952.value.native_procedure_type21309), t47025); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47026; return r14692; case NATIVE_PROCEDURE_TYPE21314: t47027 = TRUE_TYPE; t47028 = f17405((t46952.value.native_procedure_type21314), t47027); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47028; return r14692; case NATIVE_PROCEDURE_TYPE21319: t47029 = TRUE_TYPE; t47030 = f17440((t46952.value.native_procedure_type21319), t47029); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47030; return r14692; case NATIVE_PROCEDURE_TYPE21324: t47031 = TRUE_TYPE; t47032 = f17437((t46952.value.native_procedure_type21324), t47031); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47032; return r14692; case NATIVE_PROCEDURE_TYPE21329: t47033 = TRUE_TYPE; t47034 = f17430((t46952.value.native_procedure_type21329), t47033); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47034; return r14692; case NATIVE_PROCEDURE_TYPE21334: t47035 = TRUE_TYPE; t47036 = f17417((t46952.value.native_procedure_type21334), t47035); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47036; return r14692; case NATIVE_PROCEDURE_TYPE21339: t47037 = TRUE_TYPE; t47038 = f17473((t46952.value.native_procedure_type21339), t47037); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47038; return r14692; case NATIVE_PROCEDURE_TYPE21341: t47039 = TRUE_TYPE; t47040 = f17472((t46952.value.native_procedure_type21341), t47039); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47040; return r14692; case NATIVE_PROCEDURE_TYPE21348: t47041 = TRUE_TYPE; t47042 = f17452((t46952.value.native_procedure_type21348), t47041); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47042; return r14692; case NATIVE_PROCEDURE_TYPE21353: t47043 = TRUE_TYPE; t47044 = f17393((t46952.value.native_procedure_type21353), t47043); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47044; return r14692; case NATIVE_PROCEDURE_TYPE21358: t47045 = TRUE_TYPE; t47046 = f17345((t46952.value.native_procedure_type21358), t47045); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47046; return r14692; case NATIVE_PROCEDURE_TYPE21363: t47047 = TRUE_TYPE; t47048 = f17167((t46952.value.native_procedure_type21363), t47047); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47048; return r14692; case NATIVE_PROCEDURE_TYPE21365: t47049 = TRUE_TYPE; t47050 = f17166((t46952.value.native_procedure_type21365), t47049); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47050; return r14692; case NATIVE_PROCEDURE_TYPE21381: t47051 = TRUE_TYPE; t47052 = f17504((t46952.value.native_procedure_type21381), t47051); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47052; return r14692; case NATIVE_PROCEDURE_TYPE21387: t47053 = TRUE_TYPE; t47054 = f17525((t46952.value.native_procedure_type21387), t47053); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47054; return r14692; case NATIVE_PROCEDURE_TYPE21393: t47055 = TRUE_TYPE; t47056 = f17599((t46952.value.native_procedure_type21393), t47055); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47056; return r14692; case NATIVE_PROCEDURE_TYPE21414: t47057 = f19631(); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47057; return r14692; case NATIVE_PROCEDURE_TYPE21896: t47058 = TRUE_TYPE; t47059 = f15815((t46952.value.native_procedure_type21896), t47058); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47059; return r14692; case NATIVE_PROCEDURE_TYPE21903: t47060 = TRUE_TYPE; t47061 = f15805((t46952.value.native_procedure_type21903), t47060); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47061; return r14692; case NATIVE_PROCEDURE_TYPE21944: t47062 = TRUE_TYPE; t47063 = f17628((t46952.value.native_procedure_type21944), t47062); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47063; return r14692; case NATIVE_PROCEDURE_TYPE21946: t47064 = TRUE_TYPE; t47065 = f17627((t46952.value.native_procedure_type21946), t47064); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47065; return r14692; case NATIVE_PROCEDURE_TYPE21948: t47066 = TRUE_TYPE; t47067 = f17613((t46952.value.native_procedure_type21948), t47066); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47067; return r14692; case NATIVE_PROCEDURE_TYPE21952: t47068 = TRUE_TYPE; t47069 = f17579((t46952.value.native_procedure_type21952), t47068); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47069; return r14692; case NATIVE_PROCEDURE_TYPE21956: t47070 = TRUE_TYPE; t47071 = f17576((t46952.value.native_procedure_type21956), t47070); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47071; return r14692; case NATIVE_PROCEDURE_TYPE21961: t47072 = TRUE_TYPE; t47073 = f17569((t46952.value.native_procedure_type21961), t47072); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47073; return r14692; case NATIVE_PROCEDURE_TYPE21963: t47074 = TRUE_TYPE; t47075 = f17568((t46952.value.native_procedure_type21963), t47074); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47075; return r14692; case NATIVE_PROCEDURE_TYPE21966: t47076 = TRUE_TYPE; t47077 = f17564((t46952.value.native_procedure_type21966), t47076); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47077; return r14692; case NATIVE_PROCEDURE_TYPE21968: t47078 = TRUE_TYPE; t47079 = f17563((t46952.value.native_procedure_type21968), t47078); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47079; return r14692; case NATIVE_PROCEDURE_TYPE21971: t47080 = TRUE_TYPE; t47081 = f17559((t46952.value.native_procedure_type21971), t47080); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47081; return r14692; case NATIVE_PROCEDURE_TYPE21973: t47082 = TRUE_TYPE; t47083 = f17558((t46952.value.native_procedure_type21973), t47082); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47083; return r14692; case NATIVE_PROCEDURE_TYPE21975: t47084 = TRUE_TYPE; t47085 = f17534((t46952.value.native_procedure_type21975), t47084); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47085; return r14692; case NATIVE_PROCEDURE_TYPE21978: t47086 = TRUE_TYPE; t47087 = f17718((t46952.value.native_procedure_type21978), t47086); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47087; return r14692; case NATIVE_PROCEDURE_TYPE21982: t47088 = TRUE_TYPE; t47089 = f17716((t46952.value.native_procedure_type21982), t47088); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47089; return r14692; case NATIVE_PROCEDURE_TYPE21984: t47090 = TRUE_TYPE; t47091 = f17715((t46952.value.native_procedure_type21984), t47090); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47091; return r14692; case NATIVE_PROCEDURE_TYPE21997: t47092 = TRUE_TYPE; t47093 = f17693((t46952.value.native_procedure_type21997), t47092); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47093; return r14692; case NATIVE_PROCEDURE_TYPE22000: t47094 = TRUE_TYPE; t47095 = f17682((t46952.value.native_procedure_type22000), t47094); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47095; return r14692; case NATIVE_PROCEDURE_TYPE22003: t47096 = TRUE_TYPE; t47097 = f17679((t46952.value.native_procedure_type22003), t47096); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47097; return r14692; case NATIVE_PROCEDURE_TYPE22006: t47098 = TRUE_TYPE; t47099 = f17676((t46952.value.native_procedure_type22006), t47098); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47099; return r14692; case NATIVE_PROCEDURE_TYPE22008: t47100 = TRUE_TYPE; t47101 = f17761((t46952.value.native_procedure_type22008), t47100); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47101; return r14692; case NATIVE_PROCEDURE_TYPE22010: t47102 = TRUE_TYPE; t47103 = f17807((t46952.value.native_procedure_type22010), t47102); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47103; return r14692; case NATIVE_PROCEDURE_TYPE22012: t47104 = TRUE_TYPE; t47105 = f17806((t46952.value.native_procedure_type22012), t47104); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47105; return r14692; case NATIVE_PROCEDURE_TYPE22014: t47106 = TRUE_TYPE; t47107 = f17787((t46952.value.native_procedure_type22014), t47106); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47107; return r14692; case NATIVE_PROCEDURE_TYPE22016: t47108 = TRUE_TYPE; t47109 = f17786((t46952.value.native_procedure_type22016), t47108); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47109; return r14692; case NATIVE_PROCEDURE_TYPE22037: t47110 = TRUE_TYPE; t47111 = f17841((t46952.value.native_procedure_type22037), t47110); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47111; return r14692; case NATIVE_PROCEDURE_TYPE22064: /* x298253 stalin.sc:19867:695278 */ /* x298252 stalin.sc:19867:695279 */ /* x303544 stalin.sc:14693:514793 */ r14692.tag = STRING_TYPE; r14692.value.string_type = ""; return r14692; case NATIVE_PROCEDURE_TYPE22072: t47112 = TRUE_TYPE; t47113 = f15886((t46952.value.native_procedure_type22072), t47112); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47113; return r14692; case NATIVE_PROCEDURE_TYPE22081: t47114 = TRUE_TYPE; t47115 = f17894((t46952.value.native_procedure_type22081), t47114); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47115; return r14692; case NATIVE_PROCEDURE_TYPE22091: t47116 = TRUE_TYPE; t47117 = f17885((t46952.value.native_procedure_type22091), t47116); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47117; return r14692; case NATIVE_PROCEDURE_TYPE22100: t47118 = TRUE_TYPE; t47119 = f17641((t46952.value.native_procedure_type22100), t47118); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47119; return r14692; case NATIVE_PROCEDURE_TYPE22102: t47120 = TRUE_TYPE; t47121 = f17640((t46952.value.native_procedure_type22102), t47120); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47121; return r14692; case NATIVE_PROCEDURE_TYPE22104: t47122 = TRUE_TYPE; t47123 = f17639((t46952.value.native_procedure_type22104), t47122); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47123; return r14692; case NATIVE_PROCEDURE_TYPE22106: t47124 = TRUE_TYPE; t47125 = f17491((t46952.value.native_procedure_type22106), t47124); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47125; return r14692; case NATIVE_PROCEDURE_TYPE22112: t47126 = TRUE_TYPE; t47127 = f17936((t46952.value.native_procedure_type22112), t47126); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47127; return r14692; case NATIVE_PROCEDURE_TYPE22117: t47128 = TRUE_TYPE; t47129 = f17957((t46952.value.native_procedure_type22117), t47128); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47129; return r14692; case NATIVE_PROCEDURE_TYPE22119: t47130 = TRUE_TYPE; t47131 = f17948((t46952.value.native_procedure_type22119), t47130); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47131; return r14692; case NATIVE_PROCEDURE_TYPE22124: t47132 = TRUE_TYPE; t47133 = f17976((t46952.value.native_procedure_type22124), t47132); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47133; return r14692; case NATIVE_PROCEDURE_TYPE22127: t47134 = TRUE_TYPE; t47135 = f17966((t46952.value.native_procedure_type22127), t47134); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47135; return r14692; case NATIVE_PROCEDURE_TYPE22130: t47136 = TRUE_TYPE; t47137 = f18033((t46952.value.native_procedure_type22130), t47136); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47137; return r14692; case NATIVE_PROCEDURE_TYPE22132: t47138 = TRUE_TYPE; t47139 = f18032((t46952.value.native_procedure_type22132), t47138); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47139; return r14692; case NATIVE_PROCEDURE_TYPE22135: t47140 = TRUE_TYPE; t47141 = f18008((t46952.value.native_procedure_type22135), t47140); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47141; return r14692; case NATIVE_PROCEDURE_TYPE22137: t47142 = TRUE_TYPE; t47143 = f17986((t46952.value.native_procedure_type22137), t47142); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47143; return r14692; case NATIVE_PROCEDURE_TYPE22139: t47144 = TRUE_TYPE; t47145 = f18072((t46952.value.native_procedure_type22139), t47144); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47145; return r14692; case NATIVE_PROCEDURE_TYPE22141: t47146 = TRUE_TYPE; t47147 = f18090((t46952.value.native_procedure_type22141), t47146); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47147; return r14692; case NATIVE_PROCEDURE_TYPE22143: t47148 = TRUE_TYPE; t47149 = f18081((t46952.value.native_procedure_type22143), t47148); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47149; return r14692; case NATIVE_PROCEDURE_TYPE22145: t47150 = TRUE_TYPE; t47151 = f18063((t46952.value.native_procedure_type22145), t47150); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47151; return r14692; case NATIVE_PROCEDURE_TYPE22148: t47152 = TRUE_TYPE; t47153 = f18121((t46952.value.native_procedure_type22148), t47152); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47153; return r14692; case NATIVE_PROCEDURE_TYPE22154: t47154 = TRUE_TYPE; t47155 = f18148((t46952.value.native_procedure_type22154), t47154); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47155; return r14692; case NATIVE_PROCEDURE_TYPE22160: t47156 = TRUE_TYPE; t47157 = f18135((t46952.value.native_procedure_type22160), t47156); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47157; return r14692; case NATIVE_PROCEDURE_TYPE22162: t47158 = TRUE_TYPE; t47159 = f18133((t46952.value.native_procedure_type22162), t47158); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47159; return r14692; case NATIVE_PROCEDURE_TYPE22165: t47160 = TRUE_TYPE; t47161 = f18042((t46952.value.native_procedure_type22165), t47160); r14692.tag = STRUCTURE_TYPE24753; r14692.value.structure_type24753 = t47161; return r14692; default: /* x297756 stalin.sc:23751:825832 */ /* x297755 stalin.sc:23751:825833 */ /* x303286 QobiScheme.sc:166:5314 */ /* x303285 QobiScheme.sc:166:5321 */ t47162 = "This shouldn\'t happen"; /* x303284 QobiScheme.sc:166:5315 */ stalin_panic(t47162);} l7258: /* x133376 stalin.sc:16958:592753 */ /* x133375 stalin.sc:16958:592754 */ /* x295893 QobiScheme.sc:166:5314 */ /* x295892 QobiScheme.sc:166:5321 */ t46951 = "This shouldn\'t happen"; /* x295891 QobiScheme.sc:166:5315 */ stalin_panic(t46951);} /* BREAK?[14689] */ unsigned f14689(struct w12218 a26108) {struct w12218 a19316; /* S */ struct w12218 a20978; /* R */ struct w12218 t47731; char *t47732; char *t47733; struct w12218 t47734; struct w12218 t47735; struct w12218 t47736; struct w12218 t47737; /* x133159 stalin.sc:16910:590691 */ /* x133159 stalin.sc:16910:590691 */ /* x133158 stalin.sc:16910:590695 */ /* x133157 stalin.sc:16910:590706 */ t47731 = a26108; /* x133156 stalin.sc:16910:590696 */ a20978 = t47731; /* x59404 stalin.sc:949:30707 */ /* x59402 stalin.sc:949:30712 */ /* x59401 stalin.sc:949:30725 */ t47734 = a20978; /* x59400 stalin.sc:949:30713 */ a19316 = t47734; /* x50905 */ /* x50904 */ t47735 = a19316; /* x50903 */ if (!((t47735.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("RESULT-KIND[5745]"); structure_ref_error();} t47732 = t47735.value.structure_type27501->s0; /* x59403 stalin.sc:949:30728 */ t47733 = q46; /* x270709 stalin.sc:949:30708 */ if (t47732==t47733) goto l7286; /* x133153 */ /* x133152 stalin.sc:16910:590709 */ /* x133151 stalin.sc:16910:590719 */ t47736 = a26108; /* x133150 stalin.sc:16910:590710 */ if (!(f7031(t47736)==FALSE_TYPE)) goto l7286; /* x133147 */ /* x133146 stalin.sc:16910:590735 */ t47737 = a26108; /* x133145 stalin.sc:16910:590723 */ if (f7032(t47737)==FALSE_TYPE) goto l7287; l7286: return TRUE_TYPE; l7287: return FALSE_TYPE;} /* COMPILE-DEFAULTLESS-TYPE-SWITCH[14687] */ struct w49 f14687(struct w12224 a26102, struct w49 a26103, struct w49 a26104, struct w155862 a26105, unsigned a26106) {struct w12224 a26107; /* US */ struct w12224 t47738; struct w228345 t47739; struct w49 t47740; struct structure_type24753 *t47741; struct w49 t47742; struct structure_type24753 *t47743; struct structure_type24753 *t47744; unsigned t47745; struct w49 t47746; struct w49 t47747; struct w12224 t47748; struct w36270 t47749; struct w49 t47750; struct structure_type24753 *t47751; struct w155862 t47752; struct w12224 t47753; struct w36270 t47754; struct w49 t47755; struct structure_type24753 *t47756; struct w12224 t47757; struct w49 t47758; struct structure_type24753 *t47759; struct structure_type24753 *t47760; struct w49 t47761; unsigned t47762; struct w49 t47763; struct w49 t47764; struct w12224 t47765; struct w36270 t47766; struct w49 t47767; struct structure_type24753 *t47768; struct w155862 t47769; struct w12224 t47770; struct w36270 t47771; struct w49 t47772; struct structure_type24753 *t47773; struct w155862 t47774; struct w49 t47775; struct structure_type24753 *t47776; struct structure_type24753 *t47777; struct w49 t47778; struct w211113 t47779; struct w12224 t47780; unsigned t47781; struct w49 t47782; /* x133138 stalin.sc:16897:590205 */ /* x133095 stalin.sc:16897:590209 */ /* x133094 stalin.sc:16897:590226 */ t47738 = a26102; /* x133093 stalin.sc:16897:590215 */ /* x133092 stalin.sc:16897:590210 */ t47739.tag = NATIVE_PROCEDURE_TYPE7431; t47740 = *((struct w49 *)(&t47738)); t47741 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t47739, t47740, t47741).tag)==FALSE_TYPE) goto l7292; /* x133122 stalin.sc:16898:590235 */ /* x133121 stalin.sc:16898:590245 */ /* x133119 stalin.sc:16898:590256 */ /* x133120 stalin.sc:16898:590267 */ t47780 = a26102; /* x133118 stalin.sc:16898:590246 */ t47781 = NATIVE_PROCEDURE_TYPE7431; t47782 = *((struct w49 *)(&t47780)); t47757 = f1218(t47781, t47782); /* x133117 */ a26107 = t47757; /* x133116 stalin.sc:16899:590279 */ /* x133100 stalin.sc:16899:590289 */ /* x133098 stalin.sc:16899:590296 */ t47763 = a26104; /* x133099 stalin.sc:16899:590299 */ t47764 = a26103; /* x133097 stalin.sc:16899:590290 */ t47758 = f14478(t47763, t47764); /* x133104 stalin.sc:16900:590304 */ /* x133103 stalin.sc:16900:590320 */ t47765 = a26107; /* x133102 stalin.sc:16900:590309 */ /* x133101 stalin.sc:16900:590305 */ t47766.tag = NATIVE_PROCEDURE_TYPE6764; t47767 = *((struct w49 *)(&t47765)); t47768 = (struct structure_type24753 *)NULL_TYPE; t47759 = f27731(t47766, t47767, t47768); /* x133108 stalin.sc:16901:590326 */ /* x133107 stalin.sc:16901:590334 */ t47770 = a26107; /* x133106 stalin.sc:16901:590331 */ t47769 = a26105; /* x133105 stalin.sc:16901:590327 */ t47771 = *((struct w36270 *)(&t47769)); t47772 = *((struct w49 *)(&t47770)); t47773 = (struct structure_type24753 *)NULL_TYPE; t47760 = f27731(t47771, t47772, t47773); /* x133114 stalin.sc:16902:590340 */ /* x133113 stalin.sc:16902:590344 */ /* x133111 stalin.sc:16902:590361 */ /* x133112 stalin.sc:16902:590372 */ t47778 = a26103; /* x133110 stalin.sc:16902:590345 */ t47779.tag = NATIVE_PROCEDURE_TYPE7431; t47775 = f8157(t47779, t47778); /* x133109 stalin.sc:16902:590341 */ t47774 = a26105; switch (t47774.tag) {case NATIVE_PROCEDURE_TYPE20286: t47761 = f15486((t47774.value.native_procedure_type20286), t47775); break; case NATIVE_PROCEDURE_TYPE20496: t47761 = f15475((t47774.value.native_procedure_type20496), t47775); break; case NATIVE_PROCEDURE_TYPE20552: t47761 = f15458((t47774.value.native_procedure_type20552), t47775); break; case NATIVE_PROCEDURE_TYPE20758: d16096 = t47774.value.native_procedure_type20758; b27143 = t47775; t47761 = f16096(); break; case NATIVE_PROCEDURE_TYPE20783: d15771 = t47774.value.native_procedure_type20783; b26894 = t47775; t47761 = f15771(); break; case NATIVE_PROCEDURE_TYPE20851: t47761 = f14712(t47774.value.native_procedure_type20851); break; case NATIVE_PROCEDURE_TYPE20914: t47761 = f16432((t47774.value.native_procedure_type20914), t47775); break; case NATIVE_PROCEDURE_TYPE20916: t47761 = f16416((t47774.value.native_procedure_type20916), t47775); break; case NATIVE_PROCEDURE_TYPE20919: t47761 = f16631((t47774.value.native_procedure_type20919), t47775); break; case NATIVE_PROCEDURE_TYPE20928: t47761 = f16597((t47774.value.native_procedure_type20928), t47775); break; case NATIVE_PROCEDURE_TYPE21037: t47761 = f16700((t47774.value.native_procedure_type21037), t47775); break; case NATIVE_PROCEDURE_TYPE21043: t47761 = f16678((t47774.value.native_procedure_type21043), t47775); break; case NATIVE_PROCEDURE_TYPE21049: t47761 = f16736((t47774.value.native_procedure_type21049), t47775); break; case NATIVE_PROCEDURE_TYPE21060: d15570 = t47774.value.native_procedure_type21060; b26729 = t47775; t47761 = f15570(); break; case NATIVE_PROCEDURE_TYPE21066: t47761 = f16821((t47774.value.native_procedure_type21066), t47775); break; case NATIVE_PROCEDURE_TYPE21083: t47761 = f16720((t47774.value.native_procedure_type21083), t47775); break; case NATIVE_PROCEDURE_TYPE21088: t47761 = f16646((t47774.value.native_procedure_type21088), t47775); break; case NATIVE_PROCEDURE_TYPE21091: t47761 = f16853((t47774.value.native_procedure_type21091), t47775); break; case NATIVE_PROCEDURE_TYPE21109: d15579 = t47774.value.native_procedure_type21109; b26749 = t47775; t47761 = f15579(); break; case NATIVE_PROCEDURE_TYPE21111: t47761 = f16908((t47774.value.native_procedure_type21111), t47775); break; case NATIVE_PROCEDURE_TYPE21118: t47761 = f16880((t47774.value.native_procedure_type21118), t47775); break; case NATIVE_PROCEDURE_TYPE21138: t47761 = f16981((t47774.value.native_procedure_type21138), t47775); break; case NATIVE_PROCEDURE_TYPE21148: t47761 = f17057((t47774.value.native_procedure_type21148), t47775); break; case NATIVE_PROCEDURE_TYPE21153: d17117 = t47774.value.native_procedure_type21153; b29067 = t47775; t47761 = f17117(); break; case NATIVE_PROCEDURE_TYPE21155: t47761 = f17118((t47774.value.native_procedure_type21155), t47775); break; case NATIVE_PROCEDURE_TYPE21171: d17084 = t47774.value.native_procedure_type21171; b29016 = t47775; t47761 = f17084(); break; case NATIVE_PROCEDURE_TYPE21173: t47761 = f17085((t47774.value.native_procedure_type21173), t47775); break; case NATIVE_PROCEDURE_TYPE21202: t47761 = f17018((t47774.value.native_procedure_type21202), t47775); break; case NATIVE_PROCEDURE_TYPE21226: t47761 = f16940((t47774.value.native_procedure_type21226), t47775); break; case NATIVE_PROCEDURE_TYPE21229: t47761 = f16839((t47774.value.native_procedure_type21229), t47775); break; case NATIVE_PROCEDURE_TYPE21235: d17183 = t47774.value.native_procedure_type21235; b29169 = t47775; t47761 = f17183(); break; case NATIVE_PROCEDURE_TYPE21237: t47761 = f17184((t47774.value.native_procedure_type21237), t47775); break; case NATIVE_PROCEDURE_TYPE21257: t47761 = f17221((t47774.value.native_procedure_type21257), t47775); break; case NATIVE_PROCEDURE_TYPE21260: t47761 = f17208((t47774.value.native_procedure_type21260), t47775); break; case NATIVE_PROCEDURE_TYPE21266: t47761 = f17253((t47774.value.native_procedure_type21266), t47775); break; case NATIVE_PROCEDURE_TYPE21269: t47761 = f17290((t47774.value.native_procedure_type21269), t47775); break; case NATIVE_PROCEDURE_TYPE21275: t47761 = f17328((t47774.value.native_procedure_type21275), t47775); break; case NATIVE_PROCEDURE_TYPE21281: t47761 = f17309((t47774.value.native_procedure_type21281), t47775); break; case NATIVE_PROCEDURE_TYPE21287: t47761 = f17271((t47774.value.native_procedure_type21287), t47775); break; case NATIVE_PROCEDURE_TYPE21297: t47761 = f17237((t47774.value.native_procedure_type21297), t47775); break; case NATIVE_PROCEDURE_TYPE21300: t47761 = f17353((t47774.value.native_procedure_type21300), t47775); break; case NATIVE_PROCEDURE_TYPE21305: t47761 = f17377((t47774.value.native_procedure_type21305), t47775); break; case NATIVE_PROCEDURE_TYPE21310: t47761 = f17365((t47774.value.native_procedure_type21310), t47775); break; case NATIVE_PROCEDURE_TYPE21315: t47761 = f17401((t47774.value.native_procedure_type21315), t47775); break; case NATIVE_PROCEDURE_TYPE21320: d17431 = t47774.value.native_procedure_type21320; b29911 = t47775; t47761 = f17431(); break; case NATIVE_PROCEDURE_TYPE21325: t47761 = f17433((t47774.value.native_procedure_type21325), t47775); break; case NATIVE_PROCEDURE_TYPE21330: t47761 = f17426((t47774.value.native_procedure_type21330), t47775); break; case NATIVE_PROCEDURE_TYPE21335: t47761 = f17413((t47774.value.native_procedure_type21335), t47775); break; case NATIVE_PROCEDURE_TYPE21340: d17465 = t47774.value.native_procedure_type21340; b30003 = t47775; t47761 = f17465(); break; case NATIVE_PROCEDURE_TYPE21342: t47761 = f17466((t47774.value.native_procedure_type21342), t47775); break; case NATIVE_PROCEDURE_TYPE21349: t47761 = f17448((t47774.value.native_procedure_type21349), t47775); break; case NATIVE_PROCEDURE_TYPE21354: t47761 = f17389((t47774.value.native_procedure_type21354), t47775); break; case NATIVE_PROCEDURE_TYPE21359: t47761 = f17341((t47774.value.native_procedure_type21359), t47775); break; case NATIVE_PROCEDURE_TYPE21364: d17150 = t47774.value.native_procedure_type21364; b29118 = t47775; t47761 = f17150(); break; case NATIVE_PROCEDURE_TYPE21366: t47761 = f17151((t47774.value.native_procedure_type21366), t47775); break; case NATIVE_PROCEDURE_TYPE21382: t47761 = f17499((t47774.value.native_procedure_type21382), t47775); break; case NATIVE_PROCEDURE_TYPE21388: t47761 = f17524((t47774.value.native_procedure_type21388), t47775); break; case NATIVE_PROCEDURE_TYPE21394: d17598 = t47774.value.native_procedure_type21394; b30396 = t47775; t47761 = f17598(); break; case NATIVE_PROCEDURE_TYPE21415: t47776 = f19627(t47775); t47761.tag = STRUCTURE_TYPE24753; t47761.value.structure_type24753 = t47776; break; case NATIVE_PROCEDURE_TYPE21897: t47761 = f15811((t47774.value.native_procedure_type21897), t47775); break; case NATIVE_PROCEDURE_TYPE21904: /* x298304 stalin.sc:19531:682748 */ /* x298303 stalin.sc:19531:682749 */ /* x303578 stalin.sc:14693:514793 */ t47761.tag = STRING_TYPE; t47761.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21945: d17625 = t47774.value.native_procedure_type21945; b30489 = t47775; t47761 = f17625(); break; case NATIVE_PROCEDURE_TYPE21947: t47761 = f17626((t47774.value.native_procedure_type21947), t47775); break; case NATIVE_PROCEDURE_TYPE21949: t47761 = f17612((t47774.value.native_procedure_type21949), t47775); break; case NATIVE_PROCEDURE_TYPE21953: d17572 = t47774.value.native_procedure_type21953; b30333 = t47775; t47761 = f17572(); break; case NATIVE_PROCEDURE_TYPE21957: t47761 = f17573((t47774.value.native_procedure_type21957), t47775); break; case NATIVE_PROCEDURE_TYPE21962: d17566 = t47774.value.native_procedure_type21962; t47761 = f17566(); break; case NATIVE_PROCEDURE_TYPE21964: t47761 = f17567(t47774.value.native_procedure_type21964); break; case NATIVE_PROCEDURE_TYPE21967: d17561 = t47774.value.native_procedure_type21967; t47761 = f17561(); break; case NATIVE_PROCEDURE_TYPE21969: t47761 = f17562(t47774.value.native_procedure_type21969); break; case NATIVE_PROCEDURE_TYPE21972: d17556 = t47774.value.native_procedure_type21972; t47761 = f17556(); break; case NATIVE_PROCEDURE_TYPE21974: /* x297870 stalin.sc:23400:816144 */ /* x297869 stalin.sc:23400:816145 */ /* x303354 stalin.sc:14693:514793 */ t47761.tag = STRING_TYPE; t47761.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21976: t47761 = f17533((t47774.value.native_procedure_type21976), t47775); break; case NATIVE_PROCEDURE_TYPE21979: d17706 = t47774.value.native_procedure_type21979; b30702 = t47775; t47761 = f17706(); break; case NATIVE_PROCEDURE_TYPE21983: d17708 = t47774.value.native_procedure_type21983; b30704 = t47775; t47761 = f17708(); break; case NATIVE_PROCEDURE_TYPE21985: t47761 = f17709((t47774.value.native_procedure_type21985), t47775); break; case NATIVE_PROCEDURE_TYPE21998: t47761 = f17688((t47774.value.native_procedure_type21998), t47775); break; case NATIVE_PROCEDURE_TYPE22001: t47761 = f17681(t47774.value.native_procedure_type22001); break; case NATIVE_PROCEDURE_TYPE22004: t47761 = f17678(t47774.value.native_procedure_type22004); break; case NATIVE_PROCEDURE_TYPE22007: /* x297807 stalin.sc:23690:824240 */ /* x297806 stalin.sc:23690:824241 */ /* x303320 stalin.sc:14693:514793 */ t47761.tag = STRING_TYPE; t47761.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22009: t47761 = f17760((t47774.value.native_procedure_type22009), t47775); break; case NATIVE_PROCEDURE_TYPE22011: d17804 = t47774.value.native_procedure_type22011; b30911 = t47775; t47761 = f17804(); break; case NATIVE_PROCEDURE_TYPE22013: t47761 = f17805((t47774.value.native_procedure_type22013), t47775); break; case NATIVE_PROCEDURE_TYPE22015: d17784 = t47774.value.native_procedure_type22015; b30860 = t47775; t47761 = f17784(); break; case NATIVE_PROCEDURE_TYPE22017: t47761 = f17785((t47774.value.native_procedure_type22017), t47775); break; case NATIVE_PROCEDURE_TYPE22038: d17840 = t47774.value.native_procedure_type22038; b31010 = t47775; t47761 = f17840(); break; case NATIVE_PROCEDURE_TYPE22065: d15900 = t47774.value.native_procedure_type22065; b27021 = t47775; t47761 = f15900(); break; case NATIVE_PROCEDURE_TYPE22073: d15885 = t47774.value.native_procedure_type22073; b27015 = t47775; t47761 = f15885(); break; case NATIVE_PROCEDURE_TYPE22082: d17890 = t47774.value.native_procedure_type22082; b31082 = t47775; t47761 = f17890(); break; case NATIVE_PROCEDURE_TYPE22092: t47761 = f17878((t47774.value.native_procedure_type22092), t47775); break; case NATIVE_PROCEDURE_TYPE22101: d17636 = t47774.value.native_procedure_type22101; b30537 = t47775; t47761 = f17636(); break; case NATIVE_PROCEDURE_TYPE22103: t47761 = f17637((t47774.value.native_procedure_type22103), t47775); break; case NATIVE_PROCEDURE_TYPE22105: t47761 = f17638((t47774.value.native_procedure_type22105), t47775); break; case NATIVE_PROCEDURE_TYPE22107: t47761 = f17486((t47774.value.native_procedure_type22107), t47775); break; case NATIVE_PROCEDURE_TYPE22113: t47761 = f17932((t47774.value.native_procedure_type22113), t47775); break; case NATIVE_PROCEDURE_TYPE22118: t47761 = f17956((t47774.value.native_procedure_type22118), t47775); break; case NATIVE_PROCEDURE_TYPE22120: t47761 = f17944((t47774.value.native_procedure_type22120), t47775); break; case NATIVE_PROCEDURE_TYPE22125: t47761 = f17975((t47774.value.native_procedure_type22125), t47775); break; case NATIVE_PROCEDURE_TYPE22128: t47761 = f17965((t47774.value.native_procedure_type22128), t47775); break; case NATIVE_PROCEDURE_TYPE22131: d18030 = t47774.value.native_procedure_type22131; b31667 = t47775; t47761 = f18030(); break; case NATIVE_PROCEDURE_TYPE22133: t47761 = f18031((t47774.value.native_procedure_type22133), t47775); break; case NATIVE_PROCEDURE_TYPE22136: t47761 = f18007((t47774.value.native_procedure_type22136), t47775); break; case NATIVE_PROCEDURE_TYPE22138: t47761 = f17985((t47774.value.native_procedure_type22138), t47775); break; case NATIVE_PROCEDURE_TYPE22140: t47761 = f18071((t47774.value.native_procedure_type22140), t47775); break; case NATIVE_PROCEDURE_TYPE22142: t47761 = f18089((t47774.value.native_procedure_type22142), t47775); break; case NATIVE_PROCEDURE_TYPE22144: t47761 = f18080((t47774.value.native_procedure_type22144), t47775); break; case NATIVE_PROCEDURE_TYPE22146: t47761 = f18062((t47774.value.native_procedure_type22146), t47775); break; case NATIVE_PROCEDURE_TYPE22149: t47761 = f18120((t47774.value.native_procedure_type22149), t47775); break; case NATIVE_PROCEDURE_TYPE22155: d18147 = t47774.value.native_procedure_type22155; b32201 = t47775; t47761 = f18147(); break; case NATIVE_PROCEDURE_TYPE22161: d18134 = t47774.value.native_procedure_type22161; b32153 = t47775; t47761 = f18134(); break; case NATIVE_PROCEDURE_TYPE22163: d18132 = t47774.value.native_procedure_type22163; b32151 = t47775; t47761 = f18132(); break; case NATIVE_PROCEDURE_TYPE22166: t47777 = f18041((t47774.value.native_procedure_type22166), t47775); t47761.tag = STRUCTURE_TYPE24753; t47761.value.structure_type24753 = t47777; break; default: t47761 = f17689(t47774.value.native_procedure_type23298);} /* x133115 stalin.sc:16903:590378 */ t47762 = a26106; /* x133096 stalin.sc:16899:590280 */ return f13676(t47758, t47759, t47760, t47761, t47762); l7292: /* x133137 stalin.sc:16904:590388 */ /* x133127 stalin.sc:16904:590410 */ /* x133125 stalin.sc:16904:590417 */ t47746 = a26104; /* x133126 stalin.sc:16904:590420 */ t47747 = a26103; /* x133124 stalin.sc:16904:590411 */ t47742 = f14478(t47746, t47747); /* x133131 stalin.sc:16904:590423 */ /* x133130 stalin.sc:16904:590439 */ t47748 = a26102; /* x133129 stalin.sc:16904:590428 */ /* x133128 stalin.sc:16904:590424 */ t47749.tag = NATIVE_PROCEDURE_TYPE6764; t47750 = *((struct w49 *)(&t47748)); t47751 = (struct structure_type24753 *)NULL_TYPE; t47743 = f27731(t47749, t47750, t47751); /* x133135 stalin.sc:16904:590443 */ /* x133134 stalin.sc:16904:590451 */ t47753 = a26102; /* x133133 stalin.sc:16904:590448 */ t47752 = a26105; /* x133132 stalin.sc:16904:590444 */ t47754 = *((struct w36270 *)(&t47752)); t47755 = *((struct w49 *)(&t47753)); t47756 = (struct structure_type24753 *)NULL_TYPE; t47744 = f27731(t47754, t47755, t47756); /* x133136 stalin.sc:16904:590455 */ t47745 = a26106; /* x133123 stalin.sc:16904:590389 */ return f13687(t47742, t47743, t47744, t47745);} /* C[14685] */ struct w49 f14685(struct p14680 *p14685, struct w49 a26101) {struct w49 r14685; struct w49 t47783; struct w12224 t47784; struct w49 t47785; struct w155916 t47786; unsigned t47787; struct structure_type24753 *t47788; unsigned t47789; struct structure_type24753 *t47790; struct structure_type27501 *t47791; unsigned t47792; struct structure_type24753 *t47793; unsigned t47794; struct structure_type24753 *t47795; unsigned t47796; struct structure_type24753 *t47797; struct structure_type27501 *t47798; char *t47799; char *t47800; unsigned t47801; struct structure_type24753 *t47802; unsigned t47803; struct structure_type24753 *t47804; unsigned t47805; struct structure_type24753 *t47806; unsigned t47807; struct structure_type24753 *t47808; unsigned t47809; struct structure_type24753 *t47810; unsigned t47811; struct structure_type24753 *t47812; unsigned t47813; struct structure_type24753 *t47814; unsigned t47815; struct structure_type24753 *t47816; unsigned t47817; struct structure_type24753 *t47818; unsigned t47819; struct structure_type24753 *t47820; unsigned t47821; struct structure_type24753 *t47822; unsigned t47823; struct structure_type24753 *t47824; unsigned t47825; struct structure_type24753 *t47826; unsigned t47827; struct structure_type24753 *t47828; unsigned t47829; struct structure_type24753 *t47830; unsigned t47831; struct structure_type24753 *t47832; unsigned t47833; struct structure_type24753 *t47834; unsigned t47835; struct structure_type24753 *t47836; unsigned t47837; struct structure_type24753 *t47838; unsigned t47839; struct structure_type24753 *t47840; unsigned t47841; struct structure_type24753 *t47842; unsigned t47843; struct structure_type24753 *t47844; unsigned t47845; struct structure_type24753 *t47846; unsigned t47847; struct structure_type24753 *t47848; unsigned t47849; struct structure_type24753 *t47850; unsigned t47851; struct structure_type24753 *t47852; unsigned t47853; struct structure_type24753 *t47854; unsigned t47855; struct structure_type24753 *t47856; unsigned t47857; struct structure_type24753 *t47858; unsigned t47859; struct structure_type24753 *t47860; unsigned t47861; struct structure_type24753 *t47862; unsigned t47863; struct structure_type24753 *t47864; unsigned t47865; struct structure_type24753 *t47866; unsigned t47867; struct structure_type24753 *t47868; unsigned t47869; struct structure_type24753 *t47870; unsigned t47871; struct structure_type24753 *t47872; unsigned t47873; struct structure_type24753 *t47874; unsigned t47875; struct structure_type24753 *t47876; unsigned t47877; struct structure_type24753 *t47878; unsigned t47879; struct structure_type24753 *t47880; unsigned t47881; struct structure_type24753 *t47882; unsigned t47883; struct structure_type24753 *t47884; unsigned t47885; struct structure_type24753 *t47886; unsigned t47887; struct structure_type24753 *t47888; unsigned t47889; struct structure_type24753 *t47890; unsigned t47891; struct structure_type24753 *t47892; struct structure_type24753 *t47893; unsigned t47894; struct structure_type24753 *t47895; unsigned t47896; struct structure_type24753 *t47897; unsigned t47898; struct structure_type24753 *t47899; unsigned t47900; struct structure_type24753 *t47901; unsigned t47902; struct structure_type24753 *t47903; unsigned t47904; struct structure_type24753 *t47905; unsigned t47906; struct structure_type24753 *t47907; unsigned t47908; struct structure_type24753 *t47909; unsigned t47910; struct structure_type24753 *t47911; unsigned t47912; struct structure_type24753 *t47913; unsigned t47914; struct structure_type24753 *t47915; unsigned t47916; struct structure_type24753 *t47917; unsigned t47918; struct structure_type24753 *t47919; unsigned t47920; struct structure_type24753 *t47921; unsigned t47922; struct structure_type24753 *t47923; unsigned t47924; struct structure_type24753 *t47925; unsigned t47926; struct structure_type24753 *t47927; unsigned t47928; struct structure_type24753 *t47929; unsigned t47930; struct structure_type24753 *t47931; unsigned t47932; struct structure_type24753 *t47933; unsigned t47934; struct structure_type24753 *t47935; unsigned t47936; struct structure_type24753 *t47937; unsigned t47938; struct structure_type24753 *t47939; unsigned t47940; struct structure_type24753 *t47941; unsigned t47942; struct structure_type24753 *t47943; unsigned t47944; struct structure_type24753 *t47945; unsigned t47946; struct structure_type24753 *t47947; unsigned t47948; struct structure_type24753 *t47949; unsigned t47950; struct structure_type24753 *t47951; unsigned t47952; struct structure_type24753 *t47953; unsigned t47954; struct structure_type24753 *t47955; unsigned t47956; struct structure_type24753 *t47957; unsigned t47958; struct structure_type24753 *t47959; unsigned t47960; struct structure_type24753 *t47961; unsigned t47962; struct structure_type24753 *t47963; unsigned t47964; struct structure_type24753 *t47965; unsigned t47966; struct structure_type24753 *t47967; unsigned t47968; struct structure_type24753 *t47969; unsigned t47970; struct structure_type24753 *t47971; unsigned t47972; struct structure_type24753 *t47973; unsigned t47974; struct structure_type24753 *t47975; unsigned t47976; struct structure_type24753 *t47977; unsigned t47978; struct structure_type24753 *t47979; unsigned t47980; struct structure_type24753 *t47981; unsigned t47982; struct structure_type24753 *t47983; unsigned t47984; struct structure_type24753 *t47985; unsigned t47986; struct structure_type24753 *t47987; unsigned t47988; struct structure_type24753 *t47989; unsigned t47990; struct structure_type24753 *t47991; unsigned t47992; struct structure_type24753 *t47993; unsigned t47994; struct structure_type24753 *t47995; unsigned t47996; struct structure_type24753 *t47997; char *t47998; struct w155919 t47999; struct w49 t48000; struct structure_type24753 *t48001; struct structure_type24753 *t48002; struct p16486 *p37511; struct p14711 *p37530; /* x133082 stalin.sc:16876:589490 */ /* x133075 stalin.sc:16876:589494 */ /* x133073 stalin.sc:16876:589500 */ t47783 = a26101; /* x133074 stalin.sc:16876:589502 */ t47784 = p14685->a26091; /* x133072 stalin.sc:16876:589495 */ t47785 = *((struct w49 *)(&t47784)); if ((f26351(t47783, t47785).tag)==FALSE_TYPE) goto l7294; /* x133078 stalin.sc:16876:589506 */ /* x133077 stalin.sc:16876:589510 */ t48000 = a26101; /* x133076 stalin.sc:16876:589507 */ t47999 = p14685->a26094; switch (t47999.tag) {case NATIVE_PROCEDURE_TYPE20758: d16096 = t47999.value.native_procedure_type20758; b27143 = t48000; return f16096(); case NATIVE_PROCEDURE_TYPE20783: d15771 = t47999.value.native_procedure_type20783; b26894 = t48000; return f15771(); case NATIVE_PROCEDURE_TYPE20851: return f14712(t47999.value.native_procedure_type20851); case NATIVE_PROCEDURE_TYPE20914: return f16432((t47999.value.native_procedure_type20914), t48000); case NATIVE_PROCEDURE_TYPE20916: return f16416((t47999.value.native_procedure_type20916), t48000); case NATIVE_PROCEDURE_TYPE20919: return f16631((t47999.value.native_procedure_type20919), t48000); case NATIVE_PROCEDURE_TYPE20928: return f16597((t47999.value.native_procedure_type20928), t48000); case NATIVE_PROCEDURE_TYPE21037: return f16700((t47999.value.native_procedure_type21037), t48000); case NATIVE_PROCEDURE_TYPE21043: return f16678((t47999.value.native_procedure_type21043), t48000); case NATIVE_PROCEDURE_TYPE21049: return f16736((t47999.value.native_procedure_type21049), t48000); case NATIVE_PROCEDURE_TYPE21060: d15570 = t47999.value.native_procedure_type21060; b26729 = t48000; return f15570(); case NATIVE_PROCEDURE_TYPE21066: return f16821((t47999.value.native_procedure_type21066), t48000); case NATIVE_PROCEDURE_TYPE21083: return f16720((t47999.value.native_procedure_type21083), t48000); case NATIVE_PROCEDURE_TYPE21088: return f16646((t47999.value.native_procedure_type21088), t48000); case NATIVE_PROCEDURE_TYPE21091: return f16853((t47999.value.native_procedure_type21091), t48000); case NATIVE_PROCEDURE_TYPE21109: d15579 = t47999.value.native_procedure_type21109; b26749 = t48000; return f15579(); case NATIVE_PROCEDURE_TYPE21111: return f16908((t47999.value.native_procedure_type21111), t48000); case NATIVE_PROCEDURE_TYPE21118: return f16880((t47999.value.native_procedure_type21118), t48000); case NATIVE_PROCEDURE_TYPE21138: return f16981((t47999.value.native_procedure_type21138), t48000); case NATIVE_PROCEDURE_TYPE21148: return f17057((t47999.value.native_procedure_type21148), t48000); case NATIVE_PROCEDURE_TYPE21153: d17117 = t47999.value.native_procedure_type21153; b29067 = t48000; return f17117(); case NATIVE_PROCEDURE_TYPE21155: return f17118((t47999.value.native_procedure_type21155), t48000); case NATIVE_PROCEDURE_TYPE21171: d17084 = t47999.value.native_procedure_type21171; b29016 = t48000; return f17084(); case NATIVE_PROCEDURE_TYPE21173: return f17085((t47999.value.native_procedure_type21173), t48000); case NATIVE_PROCEDURE_TYPE21202: return f17018((t47999.value.native_procedure_type21202), t48000); case NATIVE_PROCEDURE_TYPE21226: return f16940((t47999.value.native_procedure_type21226), t48000); case NATIVE_PROCEDURE_TYPE21229: return f16839((t47999.value.native_procedure_type21229), t48000); case NATIVE_PROCEDURE_TYPE21235: d17183 = t47999.value.native_procedure_type21235; b29169 = t48000; return f17183(); case NATIVE_PROCEDURE_TYPE21237: return f17184((t47999.value.native_procedure_type21237), t48000); case NATIVE_PROCEDURE_TYPE21257: return f17221((t47999.value.native_procedure_type21257), t48000); case NATIVE_PROCEDURE_TYPE21260: return f17208((t47999.value.native_procedure_type21260), t48000); case NATIVE_PROCEDURE_TYPE21266: return f17253((t47999.value.native_procedure_type21266), t48000); case NATIVE_PROCEDURE_TYPE21269: return f17290((t47999.value.native_procedure_type21269), t48000); case NATIVE_PROCEDURE_TYPE21275: return f17328((t47999.value.native_procedure_type21275), t48000); case NATIVE_PROCEDURE_TYPE21281: return f17309((t47999.value.native_procedure_type21281), t48000); case NATIVE_PROCEDURE_TYPE21287: return f17271((t47999.value.native_procedure_type21287), t48000); case NATIVE_PROCEDURE_TYPE21297: return f17237((t47999.value.native_procedure_type21297), t48000); case NATIVE_PROCEDURE_TYPE21300: return f17353((t47999.value.native_procedure_type21300), t48000); case NATIVE_PROCEDURE_TYPE21305: return f17377((t47999.value.native_procedure_type21305), t48000); case NATIVE_PROCEDURE_TYPE21310: return f17365((t47999.value.native_procedure_type21310), t48000); case NATIVE_PROCEDURE_TYPE21315: return f17401((t47999.value.native_procedure_type21315), t48000); case NATIVE_PROCEDURE_TYPE21320: d17431 = t47999.value.native_procedure_type21320; b29911 = t48000; return f17431(); case NATIVE_PROCEDURE_TYPE21325: return f17433((t47999.value.native_procedure_type21325), t48000); case NATIVE_PROCEDURE_TYPE21330: return f17426((t47999.value.native_procedure_type21330), t48000); case NATIVE_PROCEDURE_TYPE21335: return f17413((t47999.value.native_procedure_type21335), t48000); case NATIVE_PROCEDURE_TYPE21340: d17465 = t47999.value.native_procedure_type21340; b30003 = t48000; return f17465(); case NATIVE_PROCEDURE_TYPE21342: return f17466((t47999.value.native_procedure_type21342), t48000); case NATIVE_PROCEDURE_TYPE21349: return f17448((t47999.value.native_procedure_type21349), t48000); case NATIVE_PROCEDURE_TYPE21354: return f17389((t47999.value.native_procedure_type21354), t48000); case NATIVE_PROCEDURE_TYPE21359: return f17341((t47999.value.native_procedure_type21359), t48000); case NATIVE_PROCEDURE_TYPE21364: d17150 = t47999.value.native_procedure_type21364; b29118 = t48000; return f17150(); case NATIVE_PROCEDURE_TYPE21366: return f17151((t47999.value.native_procedure_type21366), t48000); case NATIVE_PROCEDURE_TYPE21382: return f17499((t47999.value.native_procedure_type21382), t48000); case NATIVE_PROCEDURE_TYPE21388: return f17524((t47999.value.native_procedure_type21388), t48000); case NATIVE_PROCEDURE_TYPE21394: d17598 = t47999.value.native_procedure_type21394; b30396 = t48000; return f17598(); case NATIVE_PROCEDURE_TYPE21415: t48001 = f19627(t48000); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t48001; return r14685; case NATIVE_PROCEDURE_TYPE21897: return f15811((t47999.value.native_procedure_type21897), t48000); case NATIVE_PROCEDURE_TYPE21904: /* x298298 stalin.sc:19531:682748 */ /* x298297 stalin.sc:19531:682749 */ /* x303574 stalin.sc:14693:514793 */ r14685.tag = STRING_TYPE; r14685.value.string_type = ""; return r14685; case NATIVE_PROCEDURE_TYPE21945: d17625 = t47999.value.native_procedure_type21945; b30489 = t48000; return f17625(); case NATIVE_PROCEDURE_TYPE21947: return f17626((t47999.value.native_procedure_type21947), t48000); case NATIVE_PROCEDURE_TYPE21949: return f17612((t47999.value.native_procedure_type21949), t48000); case NATIVE_PROCEDURE_TYPE21953: d17572 = t47999.value.native_procedure_type21953; b30333 = t48000; return f17572(); case NATIVE_PROCEDURE_TYPE21957: return f17573((t47999.value.native_procedure_type21957), t48000); case NATIVE_PROCEDURE_TYPE21962: d17566 = t47999.value.native_procedure_type21962; return f17566(); case NATIVE_PROCEDURE_TYPE21964: return f17567(t47999.value.native_procedure_type21964); case NATIVE_PROCEDURE_TYPE21967: d17561 = t47999.value.native_procedure_type21967; return f17561(); case NATIVE_PROCEDURE_TYPE21969: return f17562(t47999.value.native_procedure_type21969); case NATIVE_PROCEDURE_TYPE21972: d17556 = t47999.value.native_procedure_type21972; return f17556(); case NATIVE_PROCEDURE_TYPE21974: /* x297864 stalin.sc:23400:816144 */ /* x297863 stalin.sc:23400:816145 */ /* x303350 stalin.sc:14693:514793 */ r14685.tag = STRING_TYPE; r14685.value.string_type = ""; return r14685; case NATIVE_PROCEDURE_TYPE21976: return f17533((t47999.value.native_procedure_type21976), t48000); case NATIVE_PROCEDURE_TYPE21979: d17706 = t47999.value.native_procedure_type21979; b30702 = t48000; return f17706(); case NATIVE_PROCEDURE_TYPE21983: d17708 = t47999.value.native_procedure_type21983; b30704 = t48000; return f17708(); case NATIVE_PROCEDURE_TYPE21985: return f17709((t47999.value.native_procedure_type21985), t48000); case NATIVE_PROCEDURE_TYPE21998: return f17688((t47999.value.native_procedure_type21998), t48000); case NATIVE_PROCEDURE_TYPE22001: return f17681(t47999.value.native_procedure_type22001); case NATIVE_PROCEDURE_TYPE22004: return f17678(t47999.value.native_procedure_type22004); case NATIVE_PROCEDURE_TYPE22007: /* x297801 stalin.sc:23690:824240 */ /* x297800 stalin.sc:23690:824241 */ /* x303316 stalin.sc:14693:514793 */ r14685.tag = STRING_TYPE; r14685.value.string_type = ""; return r14685; case NATIVE_PROCEDURE_TYPE22009: return f17760((t47999.value.native_procedure_type22009), t48000); case NATIVE_PROCEDURE_TYPE22011: d17804 = t47999.value.native_procedure_type22011; b30911 = t48000; return f17804(); case NATIVE_PROCEDURE_TYPE22013: return f17805((t47999.value.native_procedure_type22013), t48000); case NATIVE_PROCEDURE_TYPE22015: d17784 = t47999.value.native_procedure_type22015; b30860 = t48000; return f17784(); case NATIVE_PROCEDURE_TYPE22017: return f17785((t47999.value.native_procedure_type22017), t48000); case NATIVE_PROCEDURE_TYPE22038: d17840 = t47999.value.native_procedure_type22038; b31010 = t48000; return f17840(); case NATIVE_PROCEDURE_TYPE22065: d15900 = t47999.value.native_procedure_type22065; b27021 = t48000; return f15900(); case NATIVE_PROCEDURE_TYPE22073: d15885 = t47999.value.native_procedure_type22073; b27015 = t48000; return f15885(); case NATIVE_PROCEDURE_TYPE22082: d17890 = t47999.value.native_procedure_type22082; b31082 = t48000; return f17890(); case NATIVE_PROCEDURE_TYPE22092: return f17878((t47999.value.native_procedure_type22092), t48000); case NATIVE_PROCEDURE_TYPE22101: d17636 = t47999.value.native_procedure_type22101; b30537 = t48000; return f17636(); case NATIVE_PROCEDURE_TYPE22103: return f17637((t47999.value.native_procedure_type22103), t48000); case NATIVE_PROCEDURE_TYPE22105: return f17638((t47999.value.native_procedure_type22105), t48000); case NATIVE_PROCEDURE_TYPE22107: return f17486((t47999.value.native_procedure_type22107), t48000); case NATIVE_PROCEDURE_TYPE22113: return f17932((t47999.value.native_procedure_type22113), t48000); case NATIVE_PROCEDURE_TYPE22118: return f17956((t47999.value.native_procedure_type22118), t48000); case NATIVE_PROCEDURE_TYPE22120: return f17944((t47999.value.native_procedure_type22120), t48000); case NATIVE_PROCEDURE_TYPE22125: return f17975((t47999.value.native_procedure_type22125), t48000); case NATIVE_PROCEDURE_TYPE22128: return f17965((t47999.value.native_procedure_type22128), t48000); case NATIVE_PROCEDURE_TYPE22131: d18030 = t47999.value.native_procedure_type22131; b31667 = t48000; return f18030(); case NATIVE_PROCEDURE_TYPE22133: return f18031((t47999.value.native_procedure_type22133), t48000); case NATIVE_PROCEDURE_TYPE22136: return f18007((t47999.value.native_procedure_type22136), t48000); case NATIVE_PROCEDURE_TYPE22138: return f17985((t47999.value.native_procedure_type22138), t48000); case NATIVE_PROCEDURE_TYPE22140: return f18071((t47999.value.native_procedure_type22140), t48000); case NATIVE_PROCEDURE_TYPE22142: return f18089((t47999.value.native_procedure_type22142), t48000); case NATIVE_PROCEDURE_TYPE22144: return f18080((t47999.value.native_procedure_type22144), t48000); case NATIVE_PROCEDURE_TYPE22146: return f18062((t47999.value.native_procedure_type22146), t48000); case NATIVE_PROCEDURE_TYPE22149: return f18120((t47999.value.native_procedure_type22149), t48000); case NATIVE_PROCEDURE_TYPE22155: d18147 = t47999.value.native_procedure_type22155; b32201 = t48000; return f18147(); case NATIVE_PROCEDURE_TYPE22161: d18134 = t47999.value.native_procedure_type22161; b32153 = t48000; return f18134(); case NATIVE_PROCEDURE_TYPE22163: d18132 = t47999.value.native_procedure_type22163; b32151 = t48000; return f18132(); case NATIVE_PROCEDURE_TYPE22166: t48002 = f18041((t47999.value.native_procedure_type22166), t48000); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t48002; return r14685; default: return f17689(t47999.value.native_procedure_type23298);} l7294: /* x133081 stalin.sc:16876:589513 */ /* x133080 stalin.sc:16876:589517 */ /* x133079 stalin.sc:16876:589514 */ t47786 = p14685->a26095; switch (t47786.tag) {case NATIVE_PROCEDURE_TYPE20757: t47787 = FALSE_TYPE; t47788 = f16097((t47786.value.native_procedure_type20757), t47787); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47788; return r14685; case NATIVE_PROCEDURE_TYPE20782: t47789 = FALSE_TYPE; t47790 = f15772((t47786.value.native_procedure_type20782), t47789); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47790; return r14685; case NATIVE_PROCEDURE_TYPE20850: p37530 = t47786.value.native_procedure_type20850; /* x302914 stalin.sc:17033:595793 */ /* x302913 stalin.sc:17033:595807 */ t47791 = p37530->a26136; /* x302912 stalin.sc:17033:595794 */ return f14708(t47791); case NATIVE_PROCEDURE_TYPE20913: t47792 = FALSE_TYPE; t47793 = f16433((t47786.value.native_procedure_type20913), t47792); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47793; return r14685; case NATIVE_PROCEDURE_TYPE20915: t47794 = FALSE_TYPE; t47795 = f16417((t47786.value.native_procedure_type20915), t47794); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47795; return r14685; case NATIVE_PROCEDURE_TYPE20918: t47796 = FALSE_TYPE; t47797 = f16635((t47786.value.native_procedure_type20918), t47796); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47797; return r14685; case NATIVE_PROCEDURE_TYPE20927: p37511 = t47786.value.native_procedure_type20927; /* x302838 stalin.sc:21738:761657 */ /* x302837 stalin.sc:21738:761670 */ t47798 = p37511->a27722; /* x302836 stalin.sc:21738:761658 */ return f14707(t47798); case NATIVE_PROCEDURE_TYPE21036: /* x298092 stalin.sc:21885:766135 */ /* x298091 stalin.sc:21885:766136 */ /* x303426 QobiScheme.sc:166:5314 */ /* x303425 QobiScheme.sc:166:5321 */ t47799 = "This shouldn\'t happen"; /* x303424 QobiScheme.sc:166:5315 */ stalin_panic(t47799); case NATIVE_PROCEDURE_TYPE21042: /* x298153 stalin.sc:21855:765176 */ /* x298152 stalin.sc:21855:765177 */ /* x303502 QobiScheme.sc:166:5314 */ /* x303501 QobiScheme.sc:166:5321 */ t47800 = "This shouldn\'t happen"; /* x303500 QobiScheme.sc:166:5315 */ stalin_panic(t47800); case NATIVE_PROCEDURE_TYPE21048: t47801 = FALSE_TYPE; t47802 = f16737((t47786.value.native_procedure_type21048), t47801); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47802; return r14685; case NATIVE_PROCEDURE_TYPE21059: t47803 = FALSE_TYPE; t47804 = f15571((t47786.value.native_procedure_type21059), t47803); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47804; return r14685; case NATIVE_PROCEDURE_TYPE21065: t47805 = FALSE_TYPE; t47806 = f16830((t47786.value.native_procedure_type21065), t47805); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47806; return r14685; case NATIVE_PROCEDURE_TYPE21082: t47807 = FALSE_TYPE; t47808 = f16721((t47786.value.native_procedure_type21082), t47807); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47808; return r14685; case NATIVE_PROCEDURE_TYPE21087: t47809 = FALSE_TYPE; t47810 = f16648((t47786.value.native_procedure_type21087), t47809); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47810; return r14685; case NATIVE_PROCEDURE_TYPE21090: t47811 = FALSE_TYPE; t47812 = f16858((t47786.value.native_procedure_type21090), t47811); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47812; return r14685; case NATIVE_PROCEDURE_TYPE21108: t47813 = FALSE_TYPE; t47814 = f15580((t47786.value.native_procedure_type21108), t47813); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47814; return r14685; case NATIVE_PROCEDURE_TYPE21110: t47815 = FALSE_TYPE; t47816 = f16912((t47786.value.native_procedure_type21110), t47815); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47816; return r14685; case NATIVE_PROCEDURE_TYPE21117: t47817 = FALSE_TYPE; t47818 = f16884((t47786.value.native_procedure_type21117), t47817); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47818; return r14685; case NATIVE_PROCEDURE_TYPE21137: t47819 = FALSE_TYPE; t47820 = f16982((t47786.value.native_procedure_type21137), t47819); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47820; return r14685; case NATIVE_PROCEDURE_TYPE21147: t47821 = FALSE_TYPE; t47822 = f17061((t47786.value.native_procedure_type21147), t47821); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47822; return r14685; case NATIVE_PROCEDURE_TYPE21152: t47823 = FALSE_TYPE; t47824 = f17134((t47786.value.native_procedure_type21152), t47823); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47824; return r14685; case NATIVE_PROCEDURE_TYPE21154: t47825 = FALSE_TYPE; t47826 = f17133((t47786.value.native_procedure_type21154), t47825); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47826; return r14685; case NATIVE_PROCEDURE_TYPE21170: t47827 = FALSE_TYPE; t47828 = f17101((t47786.value.native_procedure_type21170), t47827); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47828; return r14685; case NATIVE_PROCEDURE_TYPE21172: t47829 = FALSE_TYPE; t47830 = f17100((t47786.value.native_procedure_type21172), t47829); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47830; return r14685; case NATIVE_PROCEDURE_TYPE21201: t47831 = FALSE_TYPE; t47832 = f17026((t47786.value.native_procedure_type21201), t47831); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47832; return r14685; case NATIVE_PROCEDURE_TYPE21225: t47833 = FALSE_TYPE; t47834 = f16941((t47786.value.native_procedure_type21225), t47833); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47834; return r14685; case NATIVE_PROCEDURE_TYPE21228: t47835 = FALSE_TYPE; t47836 = f16844((t47786.value.native_procedure_type21228), t47835); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47836; return r14685; case NATIVE_PROCEDURE_TYPE21234: t47837 = FALSE_TYPE; t47838 = f17200((t47786.value.native_procedure_type21234), t47837); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47838; return r14685; case NATIVE_PROCEDURE_TYPE21236: t47839 = FALSE_TYPE; t47840 = f17199((t47786.value.native_procedure_type21236), t47839); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47840; return r14685; case NATIVE_PROCEDURE_TYPE21256: t47841 = FALSE_TYPE; t47842 = f17222((t47786.value.native_procedure_type21256), t47841); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47842; return r14685; case NATIVE_PROCEDURE_TYPE21259: t47843 = FALSE_TYPE; t47844 = f17209((t47786.value.native_procedure_type21259), t47843); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47844; return r14685; case NATIVE_PROCEDURE_TYPE21265: t47845 = FALSE_TYPE; t47846 = f17254((t47786.value.native_procedure_type21265), t47845); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47846; return r14685; case NATIVE_PROCEDURE_TYPE21268: t47847 = FALSE_TYPE; t47848 = f17295((t47786.value.native_procedure_type21268), t47847); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47848; return r14685; case NATIVE_PROCEDURE_TYPE21274: t47849 = FALSE_TYPE; t47850 = f17333((t47786.value.native_procedure_type21274), t47849); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47850; return r14685; case NATIVE_PROCEDURE_TYPE21280: t47851 = FALSE_TYPE; t47852 = f17314((t47786.value.native_procedure_type21280), t47851); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47852; return r14685; case NATIVE_PROCEDURE_TYPE21286: t47853 = FALSE_TYPE; t47854 = f17276((t47786.value.native_procedure_type21286), t47853); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47854; return r14685; case NATIVE_PROCEDURE_TYPE21296: t47855 = FALSE_TYPE; t47856 = f17238((t47786.value.native_procedure_type21296), t47855); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47856; return r14685; case NATIVE_PROCEDURE_TYPE21299: t47857 = FALSE_TYPE; t47858 = f17357((t47786.value.native_procedure_type21299), t47857); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47858; return r14685; case NATIVE_PROCEDURE_TYPE21304: t47859 = FALSE_TYPE; t47860 = f17381((t47786.value.native_procedure_type21304), t47859); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47860; return r14685; case NATIVE_PROCEDURE_TYPE21309: t47861 = FALSE_TYPE; t47862 = f17369((t47786.value.native_procedure_type21309), t47861); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47862; return r14685; case NATIVE_PROCEDURE_TYPE21314: t47863 = FALSE_TYPE; t47864 = f17405((t47786.value.native_procedure_type21314), t47863); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47864; return r14685; case NATIVE_PROCEDURE_TYPE21319: t47865 = FALSE_TYPE; t47866 = f17440((t47786.value.native_procedure_type21319), t47865); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47866; return r14685; case NATIVE_PROCEDURE_TYPE21324: t47867 = FALSE_TYPE; t47868 = f17437((t47786.value.native_procedure_type21324), t47867); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47868; return r14685; case NATIVE_PROCEDURE_TYPE21329: t47869 = FALSE_TYPE; t47870 = f17430((t47786.value.native_procedure_type21329), t47869); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47870; return r14685; case NATIVE_PROCEDURE_TYPE21334: t47871 = FALSE_TYPE; t47872 = f17417((t47786.value.native_procedure_type21334), t47871); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47872; return r14685; case NATIVE_PROCEDURE_TYPE21339: t47873 = FALSE_TYPE; t47874 = f17473((t47786.value.native_procedure_type21339), t47873); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47874; return r14685; case NATIVE_PROCEDURE_TYPE21341: t47875 = FALSE_TYPE; t47876 = f17472((t47786.value.native_procedure_type21341), t47875); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47876; return r14685; case NATIVE_PROCEDURE_TYPE21348: t47877 = FALSE_TYPE; t47878 = f17452((t47786.value.native_procedure_type21348), t47877); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47878; return r14685; case NATIVE_PROCEDURE_TYPE21353: t47879 = FALSE_TYPE; t47880 = f17393((t47786.value.native_procedure_type21353), t47879); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47880; return r14685; case NATIVE_PROCEDURE_TYPE21358: t47881 = FALSE_TYPE; t47882 = f17345((t47786.value.native_procedure_type21358), t47881); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47882; return r14685; case NATIVE_PROCEDURE_TYPE21363: t47883 = FALSE_TYPE; t47884 = f17167((t47786.value.native_procedure_type21363), t47883); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47884; return r14685; case NATIVE_PROCEDURE_TYPE21365: t47885 = FALSE_TYPE; t47886 = f17166((t47786.value.native_procedure_type21365), t47885); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47886; return r14685; case NATIVE_PROCEDURE_TYPE21381: t47887 = FALSE_TYPE; t47888 = f17504((t47786.value.native_procedure_type21381), t47887); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47888; return r14685; case NATIVE_PROCEDURE_TYPE21387: t47889 = FALSE_TYPE; t47890 = f17525((t47786.value.native_procedure_type21387), t47889); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47890; return r14685; case NATIVE_PROCEDURE_TYPE21393: t47891 = FALSE_TYPE; t47892 = f17599((t47786.value.native_procedure_type21393), t47891); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47892; return r14685; case NATIVE_PROCEDURE_TYPE21414: t47893 = f19631(); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47893; return r14685; case NATIVE_PROCEDURE_TYPE21896: t47894 = FALSE_TYPE; t47895 = f15815((t47786.value.native_procedure_type21896), t47894); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47895; return r14685; case NATIVE_PROCEDURE_TYPE21903: t47896 = FALSE_TYPE; t47897 = f15805((t47786.value.native_procedure_type21903), t47896); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47897; return r14685; case NATIVE_PROCEDURE_TYPE21944: t47898 = FALSE_TYPE; t47899 = f17628((t47786.value.native_procedure_type21944), t47898); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47899; return r14685; case NATIVE_PROCEDURE_TYPE21946: t47900 = FALSE_TYPE; t47901 = f17627((t47786.value.native_procedure_type21946), t47900); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47901; return r14685; case NATIVE_PROCEDURE_TYPE21948: t47902 = FALSE_TYPE; t47903 = f17613((t47786.value.native_procedure_type21948), t47902); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47903; return r14685; case NATIVE_PROCEDURE_TYPE21952: t47904 = FALSE_TYPE; t47905 = f17579((t47786.value.native_procedure_type21952), t47904); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47905; return r14685; case NATIVE_PROCEDURE_TYPE21956: t47906 = FALSE_TYPE; t47907 = f17576((t47786.value.native_procedure_type21956), t47906); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47907; return r14685; case NATIVE_PROCEDURE_TYPE21961: t47908 = FALSE_TYPE; t47909 = f17569((t47786.value.native_procedure_type21961), t47908); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47909; return r14685; case NATIVE_PROCEDURE_TYPE21963: t47910 = FALSE_TYPE; t47911 = f17568((t47786.value.native_procedure_type21963), t47910); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47911; return r14685; case NATIVE_PROCEDURE_TYPE21966: t47912 = FALSE_TYPE; t47913 = f17564((t47786.value.native_procedure_type21966), t47912); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47913; return r14685; case NATIVE_PROCEDURE_TYPE21968: t47914 = FALSE_TYPE; t47915 = f17563((t47786.value.native_procedure_type21968), t47914); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47915; return r14685; case NATIVE_PROCEDURE_TYPE21971: t47916 = FALSE_TYPE; t47917 = f17559((t47786.value.native_procedure_type21971), t47916); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47917; return r14685; case NATIVE_PROCEDURE_TYPE21973: t47918 = FALSE_TYPE; t47919 = f17558((t47786.value.native_procedure_type21973), t47918); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47919; return r14685; case NATIVE_PROCEDURE_TYPE21975: t47920 = FALSE_TYPE; t47921 = f17534((t47786.value.native_procedure_type21975), t47920); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47921; return r14685; case NATIVE_PROCEDURE_TYPE21978: t47922 = FALSE_TYPE; t47923 = f17718((t47786.value.native_procedure_type21978), t47922); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47923; return r14685; case NATIVE_PROCEDURE_TYPE21982: t47924 = FALSE_TYPE; t47925 = f17716((t47786.value.native_procedure_type21982), t47924); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47925; return r14685; case NATIVE_PROCEDURE_TYPE21984: t47926 = FALSE_TYPE; t47927 = f17715((t47786.value.native_procedure_type21984), t47926); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47927; return r14685; case NATIVE_PROCEDURE_TYPE21997: t47928 = FALSE_TYPE; t47929 = f17693((t47786.value.native_procedure_type21997), t47928); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47929; return r14685; case NATIVE_PROCEDURE_TYPE22000: t47930 = FALSE_TYPE; t47931 = f17682((t47786.value.native_procedure_type22000), t47930); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47931; return r14685; case NATIVE_PROCEDURE_TYPE22003: t47932 = FALSE_TYPE; t47933 = f17679((t47786.value.native_procedure_type22003), t47932); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47933; return r14685; case NATIVE_PROCEDURE_TYPE22006: t47934 = FALSE_TYPE; t47935 = f17676((t47786.value.native_procedure_type22006), t47934); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47935; return r14685; case NATIVE_PROCEDURE_TYPE22008: t47936 = FALSE_TYPE; t47937 = f17761((t47786.value.native_procedure_type22008), t47936); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47937; return r14685; case NATIVE_PROCEDURE_TYPE22010: t47938 = FALSE_TYPE; t47939 = f17807((t47786.value.native_procedure_type22010), t47938); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47939; return r14685; case NATIVE_PROCEDURE_TYPE22012: t47940 = FALSE_TYPE; t47941 = f17806((t47786.value.native_procedure_type22012), t47940); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47941; return r14685; case NATIVE_PROCEDURE_TYPE22014: t47942 = FALSE_TYPE; t47943 = f17787((t47786.value.native_procedure_type22014), t47942); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47943; return r14685; case NATIVE_PROCEDURE_TYPE22016: t47944 = FALSE_TYPE; t47945 = f17786((t47786.value.native_procedure_type22016), t47944); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47945; return r14685; case NATIVE_PROCEDURE_TYPE22037: t47946 = FALSE_TYPE; t47947 = f17841((t47786.value.native_procedure_type22037), t47946); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47947; return r14685; case NATIVE_PROCEDURE_TYPE22064: /* x298250 stalin.sc:19867:695278 */ /* x298249 stalin.sc:19867:695279 */ /* x303542 stalin.sc:14693:514793 */ r14685.tag = STRING_TYPE; r14685.value.string_type = ""; return r14685; case NATIVE_PROCEDURE_TYPE22072: t47948 = FALSE_TYPE; t47949 = f15886((t47786.value.native_procedure_type22072), t47948); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47949; return r14685; case NATIVE_PROCEDURE_TYPE22081: t47950 = FALSE_TYPE; t47951 = f17894((t47786.value.native_procedure_type22081), t47950); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47951; return r14685; case NATIVE_PROCEDURE_TYPE22091: t47952 = FALSE_TYPE; t47953 = f17885((t47786.value.native_procedure_type22091), t47952); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47953; return r14685; case NATIVE_PROCEDURE_TYPE22100: t47954 = FALSE_TYPE; t47955 = f17641((t47786.value.native_procedure_type22100), t47954); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47955; return r14685; case NATIVE_PROCEDURE_TYPE22102: t47956 = FALSE_TYPE; t47957 = f17640((t47786.value.native_procedure_type22102), t47956); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47957; return r14685; case NATIVE_PROCEDURE_TYPE22104: t47958 = FALSE_TYPE; t47959 = f17639((t47786.value.native_procedure_type22104), t47958); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47959; return r14685; case NATIVE_PROCEDURE_TYPE22106: t47960 = FALSE_TYPE; t47961 = f17491((t47786.value.native_procedure_type22106), t47960); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47961; return r14685; case NATIVE_PROCEDURE_TYPE22112: t47962 = FALSE_TYPE; t47963 = f17936((t47786.value.native_procedure_type22112), t47962); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47963; return r14685; case NATIVE_PROCEDURE_TYPE22117: t47964 = FALSE_TYPE; t47965 = f17957((t47786.value.native_procedure_type22117), t47964); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47965; return r14685; case NATIVE_PROCEDURE_TYPE22119: t47966 = FALSE_TYPE; t47967 = f17948((t47786.value.native_procedure_type22119), t47966); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47967; return r14685; case NATIVE_PROCEDURE_TYPE22124: t47968 = FALSE_TYPE; t47969 = f17976((t47786.value.native_procedure_type22124), t47968); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47969; return r14685; case NATIVE_PROCEDURE_TYPE22127: t47970 = FALSE_TYPE; t47971 = f17966((t47786.value.native_procedure_type22127), t47970); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47971; return r14685; case NATIVE_PROCEDURE_TYPE22130: t47972 = FALSE_TYPE; t47973 = f18033((t47786.value.native_procedure_type22130), t47972); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47973; return r14685; case NATIVE_PROCEDURE_TYPE22132: t47974 = FALSE_TYPE; t47975 = f18032((t47786.value.native_procedure_type22132), t47974); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47975; return r14685; case NATIVE_PROCEDURE_TYPE22135: t47976 = FALSE_TYPE; t47977 = f18008((t47786.value.native_procedure_type22135), t47976); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47977; return r14685; case NATIVE_PROCEDURE_TYPE22137: t47978 = FALSE_TYPE; t47979 = f17986((t47786.value.native_procedure_type22137), t47978); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47979; return r14685; case NATIVE_PROCEDURE_TYPE22139: t47980 = FALSE_TYPE; t47981 = f18072((t47786.value.native_procedure_type22139), t47980); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47981; return r14685; case NATIVE_PROCEDURE_TYPE22141: t47982 = FALSE_TYPE; t47983 = f18090((t47786.value.native_procedure_type22141), t47982); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47983; return r14685; case NATIVE_PROCEDURE_TYPE22143: t47984 = FALSE_TYPE; t47985 = f18081((t47786.value.native_procedure_type22143), t47984); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47985; return r14685; case NATIVE_PROCEDURE_TYPE22145: t47986 = FALSE_TYPE; t47987 = f18063((t47786.value.native_procedure_type22145), t47986); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47987; return r14685; case NATIVE_PROCEDURE_TYPE22148: t47988 = FALSE_TYPE; t47989 = f18121((t47786.value.native_procedure_type22148), t47988); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47989; return r14685; case NATIVE_PROCEDURE_TYPE22154: t47990 = FALSE_TYPE; t47991 = f18148((t47786.value.native_procedure_type22154), t47990); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47991; return r14685; case NATIVE_PROCEDURE_TYPE22160: t47992 = FALSE_TYPE; t47993 = f18135((t47786.value.native_procedure_type22160), t47992); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47993; return r14685; case NATIVE_PROCEDURE_TYPE22162: t47994 = FALSE_TYPE; t47995 = f18133((t47786.value.native_procedure_type22162), t47994); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47995; return r14685; case NATIVE_PROCEDURE_TYPE22165: t47996 = FALSE_TYPE; t47997 = f18042((t47786.value.native_procedure_type22165), t47996); r14685.tag = STRUCTURE_TYPE24753; r14685.value.structure_type24753 = t47997; return r14685; default: /* x297753 stalin.sc:23751:825832 */ /* x297752 stalin.sc:23751:825833 */ /* x303282 QobiScheme.sc:166:5314 */ /* x303281 QobiScheme.sc:166:5321 */ t47998 = "This shouldn\'t happen"; /* x303280 QobiScheme.sc:166:5315 */ stalin_panic(t47998);}} /* COMPILE-TYPE-SWITCH[14680] */ struct w49 f14680(struct w12224 a26091, struct w49 a26092, struct w49 a26093, struct w155919 a26094, struct w155916 a26095, unsigned a26096) {struct w49 r14680; struct p14680 *a26097; /* C */ struct w12224 a26099; /* US */ struct p14680 *t48003; struct p14680 *t48004; struct w12224 t48005; struct w228245 t48006; struct w49 t48007; struct structure_type24753 *t48008; struct w49 t48009; struct w211235 t48010; struct w12224 t48011; struct w49 t48012; struct w211257 t48013; struct w49 t48014; struct structure_type24753 *t48015; struct structure_type24753 *t48016; unsigned t48017; struct w49 t48018; struct w49 t48019; struct w12224 t48020; struct w36270 t48021; struct w49 t48022; struct structure_type24753 *t48023; struct p14680 *t48024; struct w12224 t48025; struct w36270 t48026; struct w49 t48027; struct structure_type24753 *t48028; struct w49 t48029; struct structure_type24753 *t48030; struct structure_type24753 *t48031; struct w49 t48032; unsigned t48033; struct w49 t48034; struct w49 t48035; struct w12224 t48036; struct w36270 t48037; struct w49 t48038; struct structure_type24753 *t48039; struct p14680 *t48040; struct w12224 t48041; struct w36270 t48042; struct w49 t48043; struct structure_type24753 *t48044; struct p14680 *t48045; struct w49 t48046; struct w49 t48047; struct w211113 t48048; struct w49 t48049; struct w211061 t48050; struct w12224 t48051; struct w228345 t48052; struct w49 t48053; struct structure_type24753 *t48054; struct w155916 t48055; unsigned t48056; struct structure_type24753 *t48057; unsigned t48058; struct structure_type24753 *t48059; struct structure_type27501 *t48060; unsigned t48061; struct structure_type24753 *t48062; unsigned t48063; struct structure_type24753 *t48064; unsigned t48065; struct structure_type24753 *t48066; struct structure_type27501 *t48067; char *t48068; char *t48069; unsigned t48070; struct structure_type24753 *t48071; unsigned t48072; struct structure_type24753 *t48073; unsigned t48074; struct structure_type24753 *t48075; unsigned t48076; struct structure_type24753 *t48077; unsigned t48078; struct structure_type24753 *t48079; unsigned t48080; struct structure_type24753 *t48081; unsigned t48082; struct structure_type24753 *t48083; unsigned t48084; struct structure_type24753 *t48085; unsigned t48086; struct structure_type24753 *t48087; unsigned t48088; struct structure_type24753 *t48089; unsigned t48090; struct structure_type24753 *t48091; unsigned t48092; struct structure_type24753 *t48093; unsigned t48094; struct structure_type24753 *t48095; unsigned t48096; struct structure_type24753 *t48097; unsigned t48098; struct structure_type24753 *t48099; unsigned t48100; struct structure_type24753 *t48101; unsigned t48102; struct structure_type24753 *t48103; unsigned t48104; struct structure_type24753 *t48105; unsigned t48106; struct structure_type24753 *t48107; unsigned t48108; struct structure_type24753 *t48109; unsigned t48110; struct structure_type24753 *t48111; unsigned t48112; struct structure_type24753 *t48113; unsigned t48114; struct structure_type24753 *t48115; unsigned t48116; struct structure_type24753 *t48117; unsigned t48118; struct structure_type24753 *t48119; unsigned t48120; struct structure_type24753 *t48121; unsigned t48122; struct structure_type24753 *t48123; unsigned t48124; struct structure_type24753 *t48125; unsigned t48126; struct structure_type24753 *t48127; unsigned t48128; struct structure_type24753 *t48129; unsigned t48130; struct structure_type24753 *t48131; unsigned t48132; struct structure_type24753 *t48133; unsigned t48134; struct structure_type24753 *t48135; unsigned t48136; struct structure_type24753 *t48137; unsigned t48138; struct structure_type24753 *t48139; unsigned t48140; struct structure_type24753 *t48141; unsigned t48142; struct structure_type24753 *t48143; unsigned t48144; struct structure_type24753 *t48145; unsigned t48146; struct structure_type24753 *t48147; unsigned t48148; struct structure_type24753 *t48149; unsigned t48150; struct structure_type24753 *t48151; unsigned t48152; struct structure_type24753 *t48153; unsigned t48154; struct structure_type24753 *t48155; unsigned t48156; struct structure_type24753 *t48157; unsigned t48158; struct structure_type24753 *t48159; unsigned t48160; struct structure_type24753 *t48161; struct structure_type24753 *t48162; unsigned t48163; struct structure_type24753 *t48164; unsigned t48165; struct structure_type24753 *t48166; unsigned t48167; struct structure_type24753 *t48168; unsigned t48169; struct structure_type24753 *t48170; unsigned t48171; struct structure_type24753 *t48172; unsigned t48173; struct structure_type24753 *t48174; unsigned t48175; struct structure_type24753 *t48176; unsigned t48177; struct structure_type24753 *t48178; unsigned t48179; struct structure_type24753 *t48180; unsigned t48181; struct structure_type24753 *t48182; unsigned t48183; struct structure_type24753 *t48184; unsigned t48185; struct structure_type24753 *t48186; unsigned t48187; struct structure_type24753 *t48188; unsigned t48189; struct structure_type24753 *t48190; unsigned t48191; struct structure_type24753 *t48192; unsigned t48193; struct structure_type24753 *t48194; unsigned t48195; struct structure_type24753 *t48196; unsigned t48197; struct structure_type24753 *t48198; unsigned t48199; struct structure_type24753 *t48200; unsigned t48201; struct structure_type24753 *t48202; unsigned t48203; struct structure_type24753 *t48204; unsigned t48205; struct structure_type24753 *t48206; unsigned t48207; struct structure_type24753 *t48208; unsigned t48209; struct structure_type24753 *t48210; unsigned t48211; struct structure_type24753 *t48212; unsigned t48213; struct structure_type24753 *t48214; unsigned t48215; struct structure_type24753 *t48216; unsigned t48217; struct structure_type24753 *t48218; unsigned t48219; struct structure_type24753 *t48220; unsigned t48221; struct structure_type24753 *t48222; unsigned t48223; struct structure_type24753 *t48224; unsigned t48225; struct structure_type24753 *t48226; unsigned t48227; struct structure_type24753 *t48228; unsigned t48229; struct structure_type24753 *t48230; unsigned t48231; struct structure_type24753 *t48232; unsigned t48233; struct structure_type24753 *t48234; unsigned t48235; struct structure_type24753 *t48236; unsigned t48237; struct structure_type24753 *t48238; unsigned t48239; struct structure_type24753 *t48240; unsigned t48241; struct structure_type24753 *t48242; unsigned t48243; struct structure_type24753 *t48244; unsigned t48245; struct structure_type24753 *t48246; unsigned t48247; struct structure_type24753 *t48248; unsigned t48249; struct structure_type24753 *t48250; unsigned t48251; struct structure_type24753 *t48252; unsigned t48253; struct structure_type24753 *t48254; unsigned t48255; struct structure_type24753 *t48256; unsigned t48257; struct structure_type24753 *t48258; unsigned t48259; struct structure_type24753 *t48260; unsigned t48261; struct structure_type24753 *t48262; unsigned t48263; struct structure_type24753 *t48264; unsigned t48265; struct structure_type24753 *t48266; char *t48267; struct structure_type24753 *t48268; struct w49 t48269; struct w49 t48270; unsigned t48271; struct w49 t48272; char *t48273; struct w49 t48274; struct w49 t48275; struct w49 t48276; struct w155919 t48277; struct w49 t48278; struct structure_type24753 *t48279; struct structure_type24753 *t48280; struct w49 t48281; struct w211113 t48282; struct w155916 t48283; unsigned t48284; struct structure_type24753 *t48285; unsigned t48286; struct structure_type24753 *t48287; struct structure_type27501 *t48288; unsigned t48289; struct structure_type24753 *t48290; unsigned t48291; struct structure_type24753 *t48292; unsigned t48293; struct structure_type24753 *t48294; struct structure_type27501 *t48295; char *t48296; char *t48297; unsigned t48298; struct structure_type24753 *t48299; unsigned t48300; struct structure_type24753 *t48301; unsigned t48302; struct structure_type24753 *t48303; unsigned t48304; struct structure_type24753 *t48305; unsigned t48306; struct structure_type24753 *t48307; unsigned t48308; struct structure_type24753 *t48309; unsigned t48310; struct structure_type24753 *t48311; unsigned t48312; struct structure_type24753 *t48313; unsigned t48314; struct structure_type24753 *t48315; unsigned t48316; struct structure_type24753 *t48317; unsigned t48318; struct structure_type24753 *t48319; unsigned t48320; struct structure_type24753 *t48321; unsigned t48322; struct structure_type24753 *t48323; unsigned t48324; struct structure_type24753 *t48325; unsigned t48326; struct structure_type24753 *t48327; unsigned t48328; struct structure_type24753 *t48329; unsigned t48330; struct structure_type24753 *t48331; unsigned t48332; struct structure_type24753 *t48333; unsigned t48334; struct structure_type24753 *t48335; unsigned t48336; struct structure_type24753 *t48337; unsigned t48338; struct structure_type24753 *t48339; unsigned t48340; struct structure_type24753 *t48341; unsigned t48342; struct structure_type24753 *t48343; unsigned t48344; struct structure_type24753 *t48345; unsigned t48346; struct structure_type24753 *t48347; unsigned t48348; struct structure_type24753 *t48349; unsigned t48350; struct structure_type24753 *t48351; unsigned t48352; struct structure_type24753 *t48353; unsigned t48354; struct structure_type24753 *t48355; unsigned t48356; struct structure_type24753 *t48357; unsigned t48358; struct structure_type24753 *t48359; unsigned t48360; struct structure_type24753 *t48361; unsigned t48362; struct structure_type24753 *t48363; unsigned t48364; struct structure_type24753 *t48365; unsigned t48366; struct structure_type24753 *t48367; unsigned t48368; struct structure_type24753 *t48369; unsigned t48370; struct structure_type24753 *t48371; unsigned t48372; struct structure_type24753 *t48373; unsigned t48374; struct structure_type24753 *t48375; unsigned t48376; struct structure_type24753 *t48377; unsigned t48378; struct structure_type24753 *t48379; unsigned t48380; struct structure_type24753 *t48381; unsigned t48382; struct structure_type24753 *t48383; unsigned t48384; struct structure_type24753 *t48385; unsigned t48386; struct structure_type24753 *t48387; unsigned t48388; struct structure_type24753 *t48389; struct structure_type24753 *t48390; unsigned t48391; struct structure_type24753 *t48392; unsigned t48393; struct structure_type24753 *t48394; unsigned t48395; struct structure_type24753 *t48396; unsigned t48397; struct structure_type24753 *t48398; unsigned t48399; struct structure_type24753 *t48400; unsigned t48401; struct structure_type24753 *t48402; unsigned t48403; struct structure_type24753 *t48404; unsigned t48405; struct structure_type24753 *t48406; unsigned t48407; struct structure_type24753 *t48408; unsigned t48409; struct structure_type24753 *t48410; unsigned t48411; struct structure_type24753 *t48412; unsigned t48413; struct structure_type24753 *t48414; unsigned t48415; struct structure_type24753 *t48416; unsigned t48417; struct structure_type24753 *t48418; unsigned t48419; struct structure_type24753 *t48420; unsigned t48421; struct structure_type24753 *t48422; unsigned t48423; struct structure_type24753 *t48424; unsigned t48425; struct structure_type24753 *t48426; unsigned t48427; struct structure_type24753 *t48428; unsigned t48429; struct structure_type24753 *t48430; unsigned t48431; struct structure_type24753 *t48432; unsigned t48433; struct structure_type24753 *t48434; unsigned t48435; struct structure_type24753 *t48436; unsigned t48437; struct structure_type24753 *t48438; unsigned t48439; struct structure_type24753 *t48440; unsigned t48441; struct structure_type24753 *t48442; unsigned t48443; struct structure_type24753 *t48444; unsigned t48445; struct structure_type24753 *t48446; unsigned t48447; struct structure_type24753 *t48448; unsigned t48449; struct structure_type24753 *t48450; unsigned t48451; struct structure_type24753 *t48452; unsigned t48453; struct structure_type24753 *t48454; unsigned t48455; struct structure_type24753 *t48456; unsigned t48457; struct structure_type24753 *t48458; unsigned t48459; struct structure_type24753 *t48460; unsigned t48461; struct structure_type24753 *t48462; unsigned t48463; struct structure_type24753 *t48464; unsigned t48465; struct structure_type24753 *t48466; unsigned t48467; struct structure_type24753 *t48468; unsigned t48469; struct structure_type24753 *t48470; unsigned t48471; struct structure_type24753 *t48472; unsigned t48473; struct structure_type24753 *t48474; unsigned t48475; struct structure_type24753 *t48476; unsigned t48477; struct structure_type24753 *t48478; unsigned t48479; struct structure_type24753 *t48480; unsigned t48481; struct structure_type24753 *t48482; unsigned t48483; struct structure_type24753 *t48484; unsigned t48485; struct structure_type24753 *t48486; unsigned t48487; struct structure_type24753 *t48488; unsigned t48489; struct structure_type24753 *t48490; unsigned t48491; struct structure_type24753 *t48492; unsigned t48493; struct structure_type24753 *t48494; char *t48495; struct p14680 *e14680; struct p14680 *p14681; struct p14680 *p14682; struct p16486 *p37509; struct p16486 *p37510; struct p14711 *p37528; struct p14711 *p37529; e14680 = (struct p14680 *)alloca(sizeof(struct p14680)); if (e14680==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e14680->a26091 = a26091; e14680->a26094 = a26094; e14680->a26095 = a26095; /* x133089 */ /* x133088 */ /* x133087 */ /* x133086 */ t48003 = e14680; p14681 = t48003; /* x133085 */ /* x133084 */ /* x133083 */ a26097 = p14681; /* x133071 */ t48004 = p14681; p14682 = t48004; /* x133070 stalin.sc:16877:589524 */ /* x132989 stalin.sc:16877:589528 */ /* x132983 stalin.sc:16877:589533 */ /* x132982 stalin.sc:16877:589551 */ t48005 = p14682->a26091; /* x132981 stalin.sc:16877:589540 */ /* x132980 stalin.sc:16877:589534 */ t48006.tag = NATIVE_PROCEDURE_TYPE7431; t48007 = *((struct w49 *)(&t48005)); t48008 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t48006, t48007, t48008)==FALSE_TYPE) goto l7296; /* x132987 */ /* x132985 stalin.sc:16877:589568 */ /* x132986 stalin.sc:16877:589579 */ t48009 = a26092; /* x132984 stalin.sc:16877:589556 */ t48010.tag = NATIVE_PROCEDURE_TYPE7431; if ((f8144(t48010, t48009).tag)==FALSE_TYPE) goto l7296; /* x133017 stalin.sc:16878:589588 */ /* x132993 stalin.sc:16878:589592 */ /* x132992 stalin.sc:16878:589609 */ t48051 = p14682->a26091; /* x132991 stalin.sc:16878:589598 */ /* x132990 stalin.sc:16878:589593 */ t48052.tag = NATIVE_PROCEDURE_TYPE7431; t48053 = *((struct w49 *)(&t48051)); t48054 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t48052, t48053, t48054).tag)==FALSE_TYPE) goto l7301; /* x133013 stalin.sc:16879:589615 */ /* x133002 stalin.sc:16879:589621 */ /* x132999 stalin.sc:16879:589626 */ /* x132997 stalin.sc:16879:589633 */ t48275 = a26093; /* x132998 stalin.sc:16879:589636 */ t48276 = a26092; /* x132996 stalin.sc:16879:589627 */ t48272 = f14478(t48275, t48276); /* x133001 stalin.sc:16879:589639 */ /* x133000 stalin.sc:16879:589640 */ /* x276349 stalin.sc:16169:562645 */ t48273 = "CHAR_OFFSET"; /* x132995 stalin.sc:16879:589622 */ t48274.tag = STRING_TYPE; t48274.value.string_type = t48273; t48268 = f13601(t48272, t48274); /* x133008 stalin.sc:16880:589664 */ /* x133007 stalin.sc:16880:589668 */ /* x133005 stalin.sc:16880:589685 */ /* x133006 stalin.sc:16880:589696 */ t48281 = a26092; /* x133004 stalin.sc:16880:589669 */ t48282.tag = NATIVE_PROCEDURE_TYPE7431; t48278 = f8157(t48282, t48281); /* x133003 stalin.sc:16880:589665 */ t48277 = p14682->a26094; switch (t48277.tag) {case NATIVE_PROCEDURE_TYPE20758: d16096 = t48277.value.native_procedure_type20758; b27143 = t48278; t48269 = f16096(); break; case NATIVE_PROCEDURE_TYPE20783: d15771 = t48277.value.native_procedure_type20783; b26894 = t48278; t48269 = f15771(); break; case NATIVE_PROCEDURE_TYPE20851: t48269 = f14712(t48277.value.native_procedure_type20851); break; case NATIVE_PROCEDURE_TYPE20914: t48269 = f16432((t48277.value.native_procedure_type20914), t48278); break; case NATIVE_PROCEDURE_TYPE20916: t48269 = f16416((t48277.value.native_procedure_type20916), t48278); break; case NATIVE_PROCEDURE_TYPE20919: t48269 = f16631((t48277.value.native_procedure_type20919), t48278); break; case NATIVE_PROCEDURE_TYPE20928: t48269 = f16597((t48277.value.native_procedure_type20928), t48278); break; case NATIVE_PROCEDURE_TYPE21037: t48269 = f16700((t48277.value.native_procedure_type21037), t48278); break; case NATIVE_PROCEDURE_TYPE21043: t48269 = f16678((t48277.value.native_procedure_type21043), t48278); break; case NATIVE_PROCEDURE_TYPE21049: t48269 = f16736((t48277.value.native_procedure_type21049), t48278); break; case NATIVE_PROCEDURE_TYPE21060: d15570 = t48277.value.native_procedure_type21060; b26729 = t48278; t48269 = f15570(); break; case NATIVE_PROCEDURE_TYPE21066: t48269 = f16821((t48277.value.native_procedure_type21066), t48278); break; case NATIVE_PROCEDURE_TYPE21083: t48269 = f16720((t48277.value.native_procedure_type21083), t48278); break; case NATIVE_PROCEDURE_TYPE21088: t48269 = f16646((t48277.value.native_procedure_type21088), t48278); break; case NATIVE_PROCEDURE_TYPE21091: t48269 = f16853((t48277.value.native_procedure_type21091), t48278); break; case NATIVE_PROCEDURE_TYPE21109: d15579 = t48277.value.native_procedure_type21109; b26749 = t48278; t48269 = f15579(); break; case NATIVE_PROCEDURE_TYPE21111: t48269 = f16908((t48277.value.native_procedure_type21111), t48278); break; case NATIVE_PROCEDURE_TYPE21118: t48269 = f16880((t48277.value.native_procedure_type21118), t48278); break; case NATIVE_PROCEDURE_TYPE21138: t48269 = f16981((t48277.value.native_procedure_type21138), t48278); break; case NATIVE_PROCEDURE_TYPE21148: t48269 = f17057((t48277.value.native_procedure_type21148), t48278); break; case NATIVE_PROCEDURE_TYPE21153: d17117 = t48277.value.native_procedure_type21153; b29067 = t48278; t48269 = f17117(); break; case NATIVE_PROCEDURE_TYPE21155: t48269 = f17118((t48277.value.native_procedure_type21155), t48278); break; case NATIVE_PROCEDURE_TYPE21171: d17084 = t48277.value.native_procedure_type21171; b29016 = t48278; t48269 = f17084(); break; case NATIVE_PROCEDURE_TYPE21173: t48269 = f17085((t48277.value.native_procedure_type21173), t48278); break; case NATIVE_PROCEDURE_TYPE21202: t48269 = f17018((t48277.value.native_procedure_type21202), t48278); break; case NATIVE_PROCEDURE_TYPE21226: t48269 = f16940((t48277.value.native_procedure_type21226), t48278); break; case NATIVE_PROCEDURE_TYPE21229: t48269 = f16839((t48277.value.native_procedure_type21229), t48278); break; case NATIVE_PROCEDURE_TYPE21235: d17183 = t48277.value.native_procedure_type21235; b29169 = t48278; t48269 = f17183(); break; case NATIVE_PROCEDURE_TYPE21237: t48269 = f17184((t48277.value.native_procedure_type21237), t48278); break; case NATIVE_PROCEDURE_TYPE21257: t48269 = f17221((t48277.value.native_procedure_type21257), t48278); break; case NATIVE_PROCEDURE_TYPE21260: t48269 = f17208((t48277.value.native_procedure_type21260), t48278); break; case NATIVE_PROCEDURE_TYPE21266: t48269 = f17253((t48277.value.native_procedure_type21266), t48278); break; case NATIVE_PROCEDURE_TYPE21269: t48269 = f17290((t48277.value.native_procedure_type21269), t48278); break; case NATIVE_PROCEDURE_TYPE21275: t48269 = f17328((t48277.value.native_procedure_type21275), t48278); break; case NATIVE_PROCEDURE_TYPE21281: t48269 = f17309((t48277.value.native_procedure_type21281), t48278); break; case NATIVE_PROCEDURE_TYPE21287: t48269 = f17271((t48277.value.native_procedure_type21287), t48278); break; case NATIVE_PROCEDURE_TYPE21297: t48269 = f17237((t48277.value.native_procedure_type21297), t48278); break; case NATIVE_PROCEDURE_TYPE21300: t48269 = f17353((t48277.value.native_procedure_type21300), t48278); break; case NATIVE_PROCEDURE_TYPE21305: t48269 = f17377((t48277.value.native_procedure_type21305), t48278); break; case NATIVE_PROCEDURE_TYPE21310: t48269 = f17365((t48277.value.native_procedure_type21310), t48278); break; case NATIVE_PROCEDURE_TYPE21315: t48269 = f17401((t48277.value.native_procedure_type21315), t48278); break; case NATIVE_PROCEDURE_TYPE21320: d17431 = t48277.value.native_procedure_type21320; b29911 = t48278; t48269 = f17431(); break; case NATIVE_PROCEDURE_TYPE21325: t48269 = f17433((t48277.value.native_procedure_type21325), t48278); break; case NATIVE_PROCEDURE_TYPE21330: t48269 = f17426((t48277.value.native_procedure_type21330), t48278); break; case NATIVE_PROCEDURE_TYPE21335: t48269 = f17413((t48277.value.native_procedure_type21335), t48278); break; case NATIVE_PROCEDURE_TYPE21340: d17465 = t48277.value.native_procedure_type21340; b30003 = t48278; t48269 = f17465(); break; case NATIVE_PROCEDURE_TYPE21342: t48269 = f17466((t48277.value.native_procedure_type21342), t48278); break; case NATIVE_PROCEDURE_TYPE21349: t48269 = f17448((t48277.value.native_procedure_type21349), t48278); break; case NATIVE_PROCEDURE_TYPE21354: t48269 = f17389((t48277.value.native_procedure_type21354), t48278); break; case NATIVE_PROCEDURE_TYPE21359: t48269 = f17341((t48277.value.native_procedure_type21359), t48278); break; case NATIVE_PROCEDURE_TYPE21364: d17150 = t48277.value.native_procedure_type21364; b29118 = t48278; t48269 = f17150(); break; case NATIVE_PROCEDURE_TYPE21366: t48269 = f17151((t48277.value.native_procedure_type21366), t48278); break; case NATIVE_PROCEDURE_TYPE21382: t48269 = f17499((t48277.value.native_procedure_type21382), t48278); break; case NATIVE_PROCEDURE_TYPE21388: t48269 = f17524((t48277.value.native_procedure_type21388), t48278); break; case NATIVE_PROCEDURE_TYPE21394: d17598 = t48277.value.native_procedure_type21394; b30396 = t48278; t48269 = f17598(); break; case NATIVE_PROCEDURE_TYPE21415: t48279 = f19627(t48278); t48269.tag = STRUCTURE_TYPE24753; t48269.value.structure_type24753 = t48279; break; case NATIVE_PROCEDURE_TYPE21897: t48269 = f15811((t48277.value.native_procedure_type21897), t48278); break; case NATIVE_PROCEDURE_TYPE21904: /* x298295 stalin.sc:19531:682748 */ /* x298294 stalin.sc:19531:682749 */ /* x303572 stalin.sc:14693:514793 */ t48269.tag = STRING_TYPE; t48269.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21945: d17625 = t48277.value.native_procedure_type21945; b30489 = t48278; t48269 = f17625(); break; case NATIVE_PROCEDURE_TYPE21947: t48269 = f17626((t48277.value.native_procedure_type21947), t48278); break; case NATIVE_PROCEDURE_TYPE21949: t48269 = f17612((t48277.value.native_procedure_type21949), t48278); break; case NATIVE_PROCEDURE_TYPE21953: d17572 = t48277.value.native_procedure_type21953; b30333 = t48278; t48269 = f17572(); break; case NATIVE_PROCEDURE_TYPE21957: t48269 = f17573((t48277.value.native_procedure_type21957), t48278); break; case NATIVE_PROCEDURE_TYPE21962: d17566 = t48277.value.native_procedure_type21962; t48269 = f17566(); break; case NATIVE_PROCEDURE_TYPE21964: t48269 = f17567(t48277.value.native_procedure_type21964); break; case NATIVE_PROCEDURE_TYPE21967: d17561 = t48277.value.native_procedure_type21967; t48269 = f17561(); break; case NATIVE_PROCEDURE_TYPE21969: t48269 = f17562(t48277.value.native_procedure_type21969); break; case NATIVE_PROCEDURE_TYPE21972: d17556 = t48277.value.native_procedure_type21972; t48269 = f17556(); break; case NATIVE_PROCEDURE_TYPE21974: /* x297861 stalin.sc:23400:816144 */ /* x297860 stalin.sc:23400:816145 */ /* x303348 stalin.sc:14693:514793 */ t48269.tag = STRING_TYPE; t48269.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21976: t48269 = f17533((t48277.value.native_procedure_type21976), t48278); break; case NATIVE_PROCEDURE_TYPE21979: d17706 = t48277.value.native_procedure_type21979; b30702 = t48278; t48269 = f17706(); break; case NATIVE_PROCEDURE_TYPE21983: d17708 = t48277.value.native_procedure_type21983; b30704 = t48278; t48269 = f17708(); break; case NATIVE_PROCEDURE_TYPE21985: t48269 = f17709((t48277.value.native_procedure_type21985), t48278); break; case NATIVE_PROCEDURE_TYPE21998: t48269 = f17688((t48277.value.native_procedure_type21998), t48278); break; case NATIVE_PROCEDURE_TYPE22001: t48269 = f17681(t48277.value.native_procedure_type22001); break; case NATIVE_PROCEDURE_TYPE22004: t48269 = f17678(t48277.value.native_procedure_type22004); break; case NATIVE_PROCEDURE_TYPE22007: /* x297798 stalin.sc:23690:824240 */ /* x297797 stalin.sc:23690:824241 */ /* x303314 stalin.sc:14693:514793 */ t48269.tag = STRING_TYPE; t48269.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22009: t48269 = f17760((t48277.value.native_procedure_type22009), t48278); break; case NATIVE_PROCEDURE_TYPE22011: d17804 = t48277.value.native_procedure_type22011; b30911 = t48278; t48269 = f17804(); break; case NATIVE_PROCEDURE_TYPE22013: t48269 = f17805((t48277.value.native_procedure_type22013), t48278); break; case NATIVE_PROCEDURE_TYPE22015: d17784 = t48277.value.native_procedure_type22015; b30860 = t48278; t48269 = f17784(); break; case NATIVE_PROCEDURE_TYPE22017: t48269 = f17785((t48277.value.native_procedure_type22017), t48278); break; case NATIVE_PROCEDURE_TYPE22038: d17840 = t48277.value.native_procedure_type22038; b31010 = t48278; t48269 = f17840(); break; case NATIVE_PROCEDURE_TYPE22065: d15900 = t48277.value.native_procedure_type22065; b27021 = t48278; t48269 = f15900(); break; case NATIVE_PROCEDURE_TYPE22073: d15885 = t48277.value.native_procedure_type22073; b27015 = t48278; t48269 = f15885(); break; case NATIVE_PROCEDURE_TYPE22082: d17890 = t48277.value.native_procedure_type22082; b31082 = t48278; t48269 = f17890(); break; case NATIVE_PROCEDURE_TYPE22092: t48269 = f17878((t48277.value.native_procedure_type22092), t48278); break; case NATIVE_PROCEDURE_TYPE22101: d17636 = t48277.value.native_procedure_type22101; b30537 = t48278; t48269 = f17636(); break; case NATIVE_PROCEDURE_TYPE22103: t48269 = f17637((t48277.value.native_procedure_type22103), t48278); break; case NATIVE_PROCEDURE_TYPE22105: t48269 = f17638((t48277.value.native_procedure_type22105), t48278); break; case NATIVE_PROCEDURE_TYPE22107: t48269 = f17486((t48277.value.native_procedure_type22107), t48278); break; case NATIVE_PROCEDURE_TYPE22113: t48269 = f17932((t48277.value.native_procedure_type22113), t48278); break; case NATIVE_PROCEDURE_TYPE22118: t48269 = f17956((t48277.value.native_procedure_type22118), t48278); break; case NATIVE_PROCEDURE_TYPE22120: t48269 = f17944((t48277.value.native_procedure_type22120), t48278); break; case NATIVE_PROCEDURE_TYPE22125: t48269 = f17975((t48277.value.native_procedure_type22125), t48278); break; case NATIVE_PROCEDURE_TYPE22128: t48269 = f17965((t48277.value.native_procedure_type22128), t48278); break; case NATIVE_PROCEDURE_TYPE22131: d18030 = t48277.value.native_procedure_type22131; b31667 = t48278; t48269 = f18030(); break; case NATIVE_PROCEDURE_TYPE22133: t48269 = f18031((t48277.value.native_procedure_type22133), t48278); break; case NATIVE_PROCEDURE_TYPE22136: t48269 = f18007((t48277.value.native_procedure_type22136), t48278); break; case NATIVE_PROCEDURE_TYPE22138: t48269 = f17985((t48277.value.native_procedure_type22138), t48278); break; case NATIVE_PROCEDURE_TYPE22140: t48269 = f18071((t48277.value.native_procedure_type22140), t48278); break; case NATIVE_PROCEDURE_TYPE22142: t48269 = f18089((t48277.value.native_procedure_type22142), t48278); break; case NATIVE_PROCEDURE_TYPE22144: t48269 = f18080((t48277.value.native_procedure_type22144), t48278); break; case NATIVE_PROCEDURE_TYPE22146: t48269 = f18062((t48277.value.native_procedure_type22146), t48278); break; case NATIVE_PROCEDURE_TYPE22149: t48269 = f18120((t48277.value.native_procedure_type22149), t48278); break; case NATIVE_PROCEDURE_TYPE22155: d18147 = t48277.value.native_procedure_type22155; b32201 = t48278; t48269 = f18147(); break; case NATIVE_PROCEDURE_TYPE22161: d18134 = t48277.value.native_procedure_type22161; b32153 = t48278; t48269 = f18134(); break; case NATIVE_PROCEDURE_TYPE22163: d18132 = t48277.value.native_procedure_type22163; b32151 = t48278; t48269 = f18132(); break; case NATIVE_PROCEDURE_TYPE22166: t48280 = f18041((t48277.value.native_procedure_type22166), t48278); t48269.tag = STRUCTURE_TYPE24753; t48269.value.structure_type24753 = t48280; break; default: t48269 = f17689(t48277.value.native_procedure_type23298);} /* x133011 stalin.sc:16881:589708 */ /* x133010 stalin.sc:16881:589712 */ /* x133009 stalin.sc:16881:589709 */ t48283 = p14682->a26095; switch (t48283.tag) {case NATIVE_PROCEDURE_TYPE20757: t48284 = FALSE_TYPE; t48285 = f16097((t48283.value.native_procedure_type20757), t48284); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48285; break; case NATIVE_PROCEDURE_TYPE20782: t48286 = FALSE_TYPE; t48287 = f15772((t48283.value.native_procedure_type20782), t48286); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48287; break; case NATIVE_PROCEDURE_TYPE20850: p37528 = t48283.value.native_procedure_type20850; /* x302906 stalin.sc:17033:595793 */ /* x302905 stalin.sc:17033:595807 */ t48288 = p37528->a26136; /* x302904 stalin.sc:17033:595794 */ t48270 = f14708(t48288); break; case NATIVE_PROCEDURE_TYPE20913: t48289 = FALSE_TYPE; t48290 = f16433((t48283.value.native_procedure_type20913), t48289); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48290; break; case NATIVE_PROCEDURE_TYPE20915: t48291 = FALSE_TYPE; t48292 = f16417((t48283.value.native_procedure_type20915), t48291); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48292; break; case NATIVE_PROCEDURE_TYPE20918: t48293 = FALSE_TYPE; t48294 = f16635((t48283.value.native_procedure_type20918), t48293); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48294; break; case NATIVE_PROCEDURE_TYPE20927: p37509 = t48283.value.native_procedure_type20927; /* x302830 stalin.sc:21738:761657 */ /* x302829 stalin.sc:21738:761670 */ t48295 = p37509->a27722; /* x302828 stalin.sc:21738:761658 */ t48270 = f14707(t48295); break; case NATIVE_PROCEDURE_TYPE21036: /* x298086 stalin.sc:21885:766135 */ /* x298085 stalin.sc:21885:766136 */ /* x303418 QobiScheme.sc:166:5314 */ /* x303417 QobiScheme.sc:166:5321 */ t48296 = "This shouldn\'t happen"; /* x303416 QobiScheme.sc:166:5315 */ stalin_panic(t48296); break; case NATIVE_PROCEDURE_TYPE21042: /* x298147 stalin.sc:21855:765176 */ /* x298146 stalin.sc:21855:765177 */ /* x303494 QobiScheme.sc:166:5314 */ /* x303493 QobiScheme.sc:166:5321 */ t48297 = "This shouldn\'t happen"; /* x303492 QobiScheme.sc:166:5315 */ stalin_panic(t48297); break; case NATIVE_PROCEDURE_TYPE21048: t48298 = FALSE_TYPE; t48299 = f16737((t48283.value.native_procedure_type21048), t48298); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48299; break; case NATIVE_PROCEDURE_TYPE21059: t48300 = FALSE_TYPE; t48301 = f15571((t48283.value.native_procedure_type21059), t48300); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48301; break; case NATIVE_PROCEDURE_TYPE21065: t48302 = FALSE_TYPE; t48303 = f16830((t48283.value.native_procedure_type21065), t48302); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48303; break; case NATIVE_PROCEDURE_TYPE21082: t48304 = FALSE_TYPE; t48305 = f16721((t48283.value.native_procedure_type21082), t48304); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48305; break; case NATIVE_PROCEDURE_TYPE21087: t48306 = FALSE_TYPE; t48307 = f16648((t48283.value.native_procedure_type21087), t48306); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48307; break; case NATIVE_PROCEDURE_TYPE21090: t48308 = FALSE_TYPE; t48309 = f16858((t48283.value.native_procedure_type21090), t48308); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48309; break; case NATIVE_PROCEDURE_TYPE21108: t48310 = FALSE_TYPE; t48311 = f15580((t48283.value.native_procedure_type21108), t48310); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48311; break; case NATIVE_PROCEDURE_TYPE21110: t48312 = FALSE_TYPE; t48313 = f16912((t48283.value.native_procedure_type21110), t48312); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48313; break; case NATIVE_PROCEDURE_TYPE21117: t48314 = FALSE_TYPE; t48315 = f16884((t48283.value.native_procedure_type21117), t48314); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48315; break; case NATIVE_PROCEDURE_TYPE21137: t48316 = FALSE_TYPE; t48317 = f16982((t48283.value.native_procedure_type21137), t48316); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48317; break; case NATIVE_PROCEDURE_TYPE21147: t48318 = FALSE_TYPE; t48319 = f17061((t48283.value.native_procedure_type21147), t48318); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48319; break; case NATIVE_PROCEDURE_TYPE21152: t48320 = FALSE_TYPE; t48321 = f17134((t48283.value.native_procedure_type21152), t48320); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48321; break; case NATIVE_PROCEDURE_TYPE21154: t48322 = FALSE_TYPE; t48323 = f17133((t48283.value.native_procedure_type21154), t48322); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48323; break; case NATIVE_PROCEDURE_TYPE21170: t48324 = FALSE_TYPE; t48325 = f17101((t48283.value.native_procedure_type21170), t48324); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48325; break; case NATIVE_PROCEDURE_TYPE21172: t48326 = FALSE_TYPE; t48327 = f17100((t48283.value.native_procedure_type21172), t48326); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48327; break; case NATIVE_PROCEDURE_TYPE21201: t48328 = FALSE_TYPE; t48329 = f17026((t48283.value.native_procedure_type21201), t48328); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48329; break; case NATIVE_PROCEDURE_TYPE21225: t48330 = FALSE_TYPE; t48331 = f16941((t48283.value.native_procedure_type21225), t48330); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48331; break; case NATIVE_PROCEDURE_TYPE21228: t48332 = FALSE_TYPE; t48333 = f16844((t48283.value.native_procedure_type21228), t48332); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48333; break; case NATIVE_PROCEDURE_TYPE21234: t48334 = FALSE_TYPE; t48335 = f17200((t48283.value.native_procedure_type21234), t48334); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48335; break; case NATIVE_PROCEDURE_TYPE21236: t48336 = FALSE_TYPE; t48337 = f17199((t48283.value.native_procedure_type21236), t48336); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48337; break; case NATIVE_PROCEDURE_TYPE21256: t48338 = FALSE_TYPE; t48339 = f17222((t48283.value.native_procedure_type21256), t48338); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48339; break; case NATIVE_PROCEDURE_TYPE21259: t48340 = FALSE_TYPE; t48341 = f17209((t48283.value.native_procedure_type21259), t48340); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48341; break; case NATIVE_PROCEDURE_TYPE21265: t48342 = FALSE_TYPE; t48343 = f17254((t48283.value.native_procedure_type21265), t48342); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48343; break; case NATIVE_PROCEDURE_TYPE21268: t48344 = FALSE_TYPE; t48345 = f17295((t48283.value.native_procedure_type21268), t48344); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48345; break; case NATIVE_PROCEDURE_TYPE21274: t48346 = FALSE_TYPE; t48347 = f17333((t48283.value.native_procedure_type21274), t48346); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48347; break; case NATIVE_PROCEDURE_TYPE21280: t48348 = FALSE_TYPE; t48349 = f17314((t48283.value.native_procedure_type21280), t48348); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48349; break; case NATIVE_PROCEDURE_TYPE21286: t48350 = FALSE_TYPE; t48351 = f17276((t48283.value.native_procedure_type21286), t48350); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48351; break; case NATIVE_PROCEDURE_TYPE21296: t48352 = FALSE_TYPE; t48353 = f17238((t48283.value.native_procedure_type21296), t48352); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48353; break; case NATIVE_PROCEDURE_TYPE21299: t48354 = FALSE_TYPE; t48355 = f17357((t48283.value.native_procedure_type21299), t48354); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48355; break; case NATIVE_PROCEDURE_TYPE21304: t48356 = FALSE_TYPE; t48357 = f17381((t48283.value.native_procedure_type21304), t48356); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48357; break; case NATIVE_PROCEDURE_TYPE21309: t48358 = FALSE_TYPE; t48359 = f17369((t48283.value.native_procedure_type21309), t48358); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48359; break; case NATIVE_PROCEDURE_TYPE21314: t48360 = FALSE_TYPE; t48361 = f17405((t48283.value.native_procedure_type21314), t48360); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48361; break; case NATIVE_PROCEDURE_TYPE21319: t48362 = FALSE_TYPE; t48363 = f17440((t48283.value.native_procedure_type21319), t48362); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48363; break; case NATIVE_PROCEDURE_TYPE21324: t48364 = FALSE_TYPE; t48365 = f17437((t48283.value.native_procedure_type21324), t48364); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48365; break; case NATIVE_PROCEDURE_TYPE21329: t48366 = FALSE_TYPE; t48367 = f17430((t48283.value.native_procedure_type21329), t48366); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48367; break; case NATIVE_PROCEDURE_TYPE21334: t48368 = FALSE_TYPE; t48369 = f17417((t48283.value.native_procedure_type21334), t48368); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48369; break; case NATIVE_PROCEDURE_TYPE21339: t48370 = FALSE_TYPE; t48371 = f17473((t48283.value.native_procedure_type21339), t48370); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48371; break; case NATIVE_PROCEDURE_TYPE21341: t48372 = FALSE_TYPE; t48373 = f17472((t48283.value.native_procedure_type21341), t48372); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48373; break; case NATIVE_PROCEDURE_TYPE21348: t48374 = FALSE_TYPE; t48375 = f17452((t48283.value.native_procedure_type21348), t48374); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48375; break; case NATIVE_PROCEDURE_TYPE21353: t48376 = FALSE_TYPE; t48377 = f17393((t48283.value.native_procedure_type21353), t48376); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48377; break; case NATIVE_PROCEDURE_TYPE21358: t48378 = FALSE_TYPE; t48379 = f17345((t48283.value.native_procedure_type21358), t48378); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48379; break; case NATIVE_PROCEDURE_TYPE21363: t48380 = FALSE_TYPE; t48381 = f17167((t48283.value.native_procedure_type21363), t48380); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48381; break; case NATIVE_PROCEDURE_TYPE21365: t48382 = FALSE_TYPE; t48383 = f17166((t48283.value.native_procedure_type21365), t48382); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48383; break; case NATIVE_PROCEDURE_TYPE21381: t48384 = FALSE_TYPE; t48385 = f17504((t48283.value.native_procedure_type21381), t48384); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48385; break; case NATIVE_PROCEDURE_TYPE21387: t48386 = FALSE_TYPE; t48387 = f17525((t48283.value.native_procedure_type21387), t48386); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48387; break; case NATIVE_PROCEDURE_TYPE21393: t48388 = FALSE_TYPE; t48389 = f17599((t48283.value.native_procedure_type21393), t48388); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48389; break; case NATIVE_PROCEDURE_TYPE21414: t48390 = f19631(); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48390; break; case NATIVE_PROCEDURE_TYPE21896: t48391 = FALSE_TYPE; t48392 = f15815((t48283.value.native_procedure_type21896), t48391); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48392; break; case NATIVE_PROCEDURE_TYPE21903: t48393 = FALSE_TYPE; t48394 = f15805((t48283.value.native_procedure_type21903), t48393); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48394; break; case NATIVE_PROCEDURE_TYPE21944: t48395 = FALSE_TYPE; t48396 = f17628((t48283.value.native_procedure_type21944), t48395); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48396; break; case NATIVE_PROCEDURE_TYPE21946: t48397 = FALSE_TYPE; t48398 = f17627((t48283.value.native_procedure_type21946), t48397); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48398; break; case NATIVE_PROCEDURE_TYPE21948: t48399 = FALSE_TYPE; t48400 = f17613((t48283.value.native_procedure_type21948), t48399); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48400; break; case NATIVE_PROCEDURE_TYPE21952: t48401 = FALSE_TYPE; t48402 = f17579((t48283.value.native_procedure_type21952), t48401); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48402; break; case NATIVE_PROCEDURE_TYPE21956: t48403 = FALSE_TYPE; t48404 = f17576((t48283.value.native_procedure_type21956), t48403); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48404; break; case NATIVE_PROCEDURE_TYPE21961: t48405 = FALSE_TYPE; t48406 = f17569((t48283.value.native_procedure_type21961), t48405); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48406; break; case NATIVE_PROCEDURE_TYPE21963: t48407 = FALSE_TYPE; t48408 = f17568((t48283.value.native_procedure_type21963), t48407); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48408; break; case NATIVE_PROCEDURE_TYPE21966: t48409 = FALSE_TYPE; t48410 = f17564((t48283.value.native_procedure_type21966), t48409); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48410; break; case NATIVE_PROCEDURE_TYPE21968: t48411 = FALSE_TYPE; t48412 = f17563((t48283.value.native_procedure_type21968), t48411); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48412; break; case NATIVE_PROCEDURE_TYPE21971: t48413 = FALSE_TYPE; t48414 = f17559((t48283.value.native_procedure_type21971), t48413); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48414; break; case NATIVE_PROCEDURE_TYPE21973: t48415 = FALSE_TYPE; t48416 = f17558((t48283.value.native_procedure_type21973), t48415); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48416; break; case NATIVE_PROCEDURE_TYPE21975: t48417 = FALSE_TYPE; t48418 = f17534((t48283.value.native_procedure_type21975), t48417); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48418; break; case NATIVE_PROCEDURE_TYPE21978: t48419 = FALSE_TYPE; t48420 = f17718((t48283.value.native_procedure_type21978), t48419); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48420; break; case NATIVE_PROCEDURE_TYPE21982: t48421 = FALSE_TYPE; t48422 = f17716((t48283.value.native_procedure_type21982), t48421); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48422; break; case NATIVE_PROCEDURE_TYPE21984: t48423 = FALSE_TYPE; t48424 = f17715((t48283.value.native_procedure_type21984), t48423); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48424; break; case NATIVE_PROCEDURE_TYPE21997: t48425 = FALSE_TYPE; t48426 = f17693((t48283.value.native_procedure_type21997), t48425); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48426; break; case NATIVE_PROCEDURE_TYPE22000: t48427 = FALSE_TYPE; t48428 = f17682((t48283.value.native_procedure_type22000), t48427); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48428; break; case NATIVE_PROCEDURE_TYPE22003: t48429 = FALSE_TYPE; t48430 = f17679((t48283.value.native_procedure_type22003), t48429); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48430; break; case NATIVE_PROCEDURE_TYPE22006: t48431 = FALSE_TYPE; t48432 = f17676((t48283.value.native_procedure_type22006), t48431); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48432; break; case NATIVE_PROCEDURE_TYPE22008: t48433 = FALSE_TYPE; t48434 = f17761((t48283.value.native_procedure_type22008), t48433); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48434; break; case NATIVE_PROCEDURE_TYPE22010: t48435 = FALSE_TYPE; t48436 = f17807((t48283.value.native_procedure_type22010), t48435); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48436; break; case NATIVE_PROCEDURE_TYPE22012: t48437 = FALSE_TYPE; t48438 = f17806((t48283.value.native_procedure_type22012), t48437); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48438; break; case NATIVE_PROCEDURE_TYPE22014: t48439 = FALSE_TYPE; t48440 = f17787((t48283.value.native_procedure_type22014), t48439); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48440; break; case NATIVE_PROCEDURE_TYPE22016: t48441 = FALSE_TYPE; t48442 = f17786((t48283.value.native_procedure_type22016), t48441); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48442; break; case NATIVE_PROCEDURE_TYPE22037: t48443 = FALSE_TYPE; t48444 = f17841((t48283.value.native_procedure_type22037), t48443); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48444; break; case NATIVE_PROCEDURE_TYPE22064: /* x298244 stalin.sc:19867:695278 */ /* x298243 stalin.sc:19867:695279 */ /* x303538 stalin.sc:14693:514793 */ t48270.tag = STRING_TYPE; t48270.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22072: t48445 = FALSE_TYPE; t48446 = f15886((t48283.value.native_procedure_type22072), t48445); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48446; break; case NATIVE_PROCEDURE_TYPE22081: t48447 = FALSE_TYPE; t48448 = f17894((t48283.value.native_procedure_type22081), t48447); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48448; break; case NATIVE_PROCEDURE_TYPE22091: t48449 = FALSE_TYPE; t48450 = f17885((t48283.value.native_procedure_type22091), t48449); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48450; break; case NATIVE_PROCEDURE_TYPE22100: t48451 = FALSE_TYPE; t48452 = f17641((t48283.value.native_procedure_type22100), t48451); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48452; break; case NATIVE_PROCEDURE_TYPE22102: t48453 = FALSE_TYPE; t48454 = f17640((t48283.value.native_procedure_type22102), t48453); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48454; break; case NATIVE_PROCEDURE_TYPE22104: t48455 = FALSE_TYPE; t48456 = f17639((t48283.value.native_procedure_type22104), t48455); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48456; break; case NATIVE_PROCEDURE_TYPE22106: t48457 = FALSE_TYPE; t48458 = f17491((t48283.value.native_procedure_type22106), t48457); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48458; break; case NATIVE_PROCEDURE_TYPE22112: t48459 = FALSE_TYPE; t48460 = f17936((t48283.value.native_procedure_type22112), t48459); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48460; break; case NATIVE_PROCEDURE_TYPE22117: t48461 = FALSE_TYPE; t48462 = f17957((t48283.value.native_procedure_type22117), t48461); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48462; break; case NATIVE_PROCEDURE_TYPE22119: t48463 = FALSE_TYPE; t48464 = f17948((t48283.value.native_procedure_type22119), t48463); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48464; break; case NATIVE_PROCEDURE_TYPE22124: t48465 = FALSE_TYPE; t48466 = f17976((t48283.value.native_procedure_type22124), t48465); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48466; break; case NATIVE_PROCEDURE_TYPE22127: t48467 = FALSE_TYPE; t48468 = f17966((t48283.value.native_procedure_type22127), t48467); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48468; break; case NATIVE_PROCEDURE_TYPE22130: t48469 = FALSE_TYPE; t48470 = f18033((t48283.value.native_procedure_type22130), t48469); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48470; break; case NATIVE_PROCEDURE_TYPE22132: t48471 = FALSE_TYPE; t48472 = f18032((t48283.value.native_procedure_type22132), t48471); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48472; break; case NATIVE_PROCEDURE_TYPE22135: t48473 = FALSE_TYPE; t48474 = f18008((t48283.value.native_procedure_type22135), t48473); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48474; break; case NATIVE_PROCEDURE_TYPE22137: t48475 = FALSE_TYPE; t48476 = f17986((t48283.value.native_procedure_type22137), t48475); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48476; break; case NATIVE_PROCEDURE_TYPE22139: t48477 = FALSE_TYPE; t48478 = f18072((t48283.value.native_procedure_type22139), t48477); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48478; break; case NATIVE_PROCEDURE_TYPE22141: t48479 = FALSE_TYPE; t48480 = f18090((t48283.value.native_procedure_type22141), t48479); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48480; break; case NATIVE_PROCEDURE_TYPE22143: t48481 = FALSE_TYPE; t48482 = f18081((t48283.value.native_procedure_type22143), t48481); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48482; break; case NATIVE_PROCEDURE_TYPE22145: t48483 = FALSE_TYPE; t48484 = f18063((t48283.value.native_procedure_type22145), t48483); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48484; break; case NATIVE_PROCEDURE_TYPE22148: t48485 = FALSE_TYPE; t48486 = f18121((t48283.value.native_procedure_type22148), t48485); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48486; break; case NATIVE_PROCEDURE_TYPE22154: t48487 = FALSE_TYPE; t48488 = f18148((t48283.value.native_procedure_type22154), t48487); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48488; break; case NATIVE_PROCEDURE_TYPE22160: t48489 = FALSE_TYPE; t48490 = f18135((t48283.value.native_procedure_type22160), t48489); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48490; break; case NATIVE_PROCEDURE_TYPE22162: t48491 = FALSE_TYPE; t48492 = f18133((t48283.value.native_procedure_type22162), t48491); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48492; break; case NATIVE_PROCEDURE_TYPE22165: t48493 = FALSE_TYPE; t48494 = f18042((t48283.value.native_procedure_type22165), t48493); t48270.tag = STRUCTURE_TYPE24753; t48270.value.structure_type24753 = t48494; break; default: /* x297747 stalin.sc:23751:825832 */ /* x297746 stalin.sc:23751:825833 */ /* x303274 QobiScheme.sc:166:5314 */ /* x303273 QobiScheme.sc:166:5321 */ t48495 = "This shouldn\'t happen"; /* x303272 QobiScheme.sc:166:5315 */ stalin_panic(t48495);} /* x133012 stalin.sc:16882:589724 */ /* x132994 stalin.sc:16879:589616 */ t48271 = FALSE_TYPE; return f13672(t48268, t48269, t48270, t48271); l7301: /* x133016 stalin.sc:16883:589730 */ /* x133015 stalin.sc:16883:589734 */ /* x133014 stalin.sc:16883:589731 */ t48055 = p14682->a26095; switch (t48055.tag) {case NATIVE_PROCEDURE_TYPE20757: t48056 = FALSE_TYPE; t48057 = f16097((t48055.value.native_procedure_type20757), t48056); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48057; return r14680; case NATIVE_PROCEDURE_TYPE20782: t48058 = FALSE_TYPE; t48059 = f15772((t48055.value.native_procedure_type20782), t48058); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48059; return r14680; case NATIVE_PROCEDURE_TYPE20850: p37529 = t48055.value.native_procedure_type20850; /* x302910 stalin.sc:17033:595793 */ /* x302909 stalin.sc:17033:595807 */ t48060 = p37529->a26136; /* x302908 stalin.sc:17033:595794 */ return f14708(t48060); case NATIVE_PROCEDURE_TYPE20913: t48061 = FALSE_TYPE; t48062 = f16433((t48055.value.native_procedure_type20913), t48061); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48062; return r14680; case NATIVE_PROCEDURE_TYPE20915: t48063 = FALSE_TYPE; t48064 = f16417((t48055.value.native_procedure_type20915), t48063); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48064; return r14680; case NATIVE_PROCEDURE_TYPE20918: t48065 = FALSE_TYPE; t48066 = f16635((t48055.value.native_procedure_type20918), t48065); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48066; return r14680; case NATIVE_PROCEDURE_TYPE20927: p37510 = t48055.value.native_procedure_type20927; /* x302834 stalin.sc:21738:761657 */ /* x302833 stalin.sc:21738:761670 */ t48067 = p37510->a27722; /* x302832 stalin.sc:21738:761658 */ return f14707(t48067); case NATIVE_PROCEDURE_TYPE21036: /* x298089 stalin.sc:21885:766135 */ /* x298088 stalin.sc:21885:766136 */ /* x303422 QobiScheme.sc:166:5314 */ /* x303421 QobiScheme.sc:166:5321 */ t48068 = "This shouldn\'t happen"; /* x303420 QobiScheme.sc:166:5315 */ stalin_panic(t48068); case NATIVE_PROCEDURE_TYPE21042: /* x298150 stalin.sc:21855:765176 */ /* x298149 stalin.sc:21855:765177 */ /* x303498 QobiScheme.sc:166:5314 */ /* x303497 QobiScheme.sc:166:5321 */ t48069 = "This shouldn\'t happen"; /* x303496 QobiScheme.sc:166:5315 */ stalin_panic(t48069); case NATIVE_PROCEDURE_TYPE21048: t48070 = FALSE_TYPE; t48071 = f16737((t48055.value.native_procedure_type21048), t48070); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48071; return r14680; case NATIVE_PROCEDURE_TYPE21059: t48072 = FALSE_TYPE; t48073 = f15571((t48055.value.native_procedure_type21059), t48072); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48073; return r14680; case NATIVE_PROCEDURE_TYPE21065: t48074 = FALSE_TYPE; t48075 = f16830((t48055.value.native_procedure_type21065), t48074); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48075; return r14680; case NATIVE_PROCEDURE_TYPE21082: t48076 = FALSE_TYPE; t48077 = f16721((t48055.value.native_procedure_type21082), t48076); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48077; return r14680; case NATIVE_PROCEDURE_TYPE21087: t48078 = FALSE_TYPE; t48079 = f16648((t48055.value.native_procedure_type21087), t48078); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48079; return r14680; case NATIVE_PROCEDURE_TYPE21090: t48080 = FALSE_TYPE; t48081 = f16858((t48055.value.native_procedure_type21090), t48080); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48081; return r14680; case NATIVE_PROCEDURE_TYPE21108: t48082 = FALSE_TYPE; t48083 = f15580((t48055.value.native_procedure_type21108), t48082); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48083; return r14680; case NATIVE_PROCEDURE_TYPE21110: t48084 = FALSE_TYPE; t48085 = f16912((t48055.value.native_procedure_type21110), t48084); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48085; return r14680; case NATIVE_PROCEDURE_TYPE21117: t48086 = FALSE_TYPE; t48087 = f16884((t48055.value.native_procedure_type21117), t48086); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48087; return r14680; case NATIVE_PROCEDURE_TYPE21137: t48088 = FALSE_TYPE; t48089 = f16982((t48055.value.native_procedure_type21137), t48088); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48089; return r14680; case NATIVE_PROCEDURE_TYPE21147: t48090 = FALSE_TYPE; t48091 = f17061((t48055.value.native_procedure_type21147), t48090); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48091; return r14680; case NATIVE_PROCEDURE_TYPE21152: t48092 = FALSE_TYPE; t48093 = f17134((t48055.value.native_procedure_type21152), t48092); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48093; return r14680; case NATIVE_PROCEDURE_TYPE21154: t48094 = FALSE_TYPE; t48095 = f17133((t48055.value.native_procedure_type21154), t48094); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48095; return r14680; case NATIVE_PROCEDURE_TYPE21170: t48096 = FALSE_TYPE; t48097 = f17101((t48055.value.native_procedure_type21170), t48096); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48097; return r14680; case NATIVE_PROCEDURE_TYPE21172: t48098 = FALSE_TYPE; t48099 = f17100((t48055.value.native_procedure_type21172), t48098); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48099; return r14680; case NATIVE_PROCEDURE_TYPE21201: t48100 = FALSE_TYPE; t48101 = f17026((t48055.value.native_procedure_type21201), t48100); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48101; return r14680; case NATIVE_PROCEDURE_TYPE21225: t48102 = FALSE_TYPE; t48103 = f16941((t48055.value.native_procedure_type21225), t48102); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48103; return r14680; case NATIVE_PROCEDURE_TYPE21228: t48104 = FALSE_TYPE; t48105 = f16844((t48055.value.native_procedure_type21228), t48104); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48105; return r14680; case NATIVE_PROCEDURE_TYPE21234: t48106 = FALSE_TYPE; t48107 = f17200((t48055.value.native_procedure_type21234), t48106); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48107; return r14680; case NATIVE_PROCEDURE_TYPE21236: t48108 = FALSE_TYPE; t48109 = f17199((t48055.value.native_procedure_type21236), t48108); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48109; return r14680; case NATIVE_PROCEDURE_TYPE21256: t48110 = FALSE_TYPE; t48111 = f17222((t48055.value.native_procedure_type21256), t48110); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48111; return r14680; case NATIVE_PROCEDURE_TYPE21259: t48112 = FALSE_TYPE; t48113 = f17209((t48055.value.native_procedure_type21259), t48112); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48113; return r14680; case NATIVE_PROCEDURE_TYPE21265: t48114 = FALSE_TYPE; t48115 = f17254((t48055.value.native_procedure_type21265), t48114); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48115; return r14680; case NATIVE_PROCEDURE_TYPE21268: t48116 = FALSE_TYPE; t48117 = f17295((t48055.value.native_procedure_type21268), t48116); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48117; return r14680; case NATIVE_PROCEDURE_TYPE21274: t48118 = FALSE_TYPE; t48119 = f17333((t48055.value.native_procedure_type21274), t48118); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48119; return r14680; case NATIVE_PROCEDURE_TYPE21280: t48120 = FALSE_TYPE; t48121 = f17314((t48055.value.native_procedure_type21280), t48120); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48121; return r14680; case NATIVE_PROCEDURE_TYPE21286: t48122 = FALSE_TYPE; t48123 = f17276((t48055.value.native_procedure_type21286), t48122); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48123; return r14680; case NATIVE_PROCEDURE_TYPE21296: t48124 = FALSE_TYPE; t48125 = f17238((t48055.value.native_procedure_type21296), t48124); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48125; return r14680; case NATIVE_PROCEDURE_TYPE21299: t48126 = FALSE_TYPE; t48127 = f17357((t48055.value.native_procedure_type21299), t48126); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48127; return r14680; case NATIVE_PROCEDURE_TYPE21304: t48128 = FALSE_TYPE; t48129 = f17381((t48055.value.native_procedure_type21304), t48128); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48129; return r14680; case NATIVE_PROCEDURE_TYPE21309: t48130 = FALSE_TYPE; t48131 = f17369((t48055.value.native_procedure_type21309), t48130); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48131; return r14680; case NATIVE_PROCEDURE_TYPE21314: t48132 = FALSE_TYPE; t48133 = f17405((t48055.value.native_procedure_type21314), t48132); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48133; return r14680; case NATIVE_PROCEDURE_TYPE21319: t48134 = FALSE_TYPE; t48135 = f17440((t48055.value.native_procedure_type21319), t48134); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48135; return r14680; case NATIVE_PROCEDURE_TYPE21324: t48136 = FALSE_TYPE; t48137 = f17437((t48055.value.native_procedure_type21324), t48136); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48137; return r14680; case NATIVE_PROCEDURE_TYPE21329: t48138 = FALSE_TYPE; t48139 = f17430((t48055.value.native_procedure_type21329), t48138); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48139; return r14680; case NATIVE_PROCEDURE_TYPE21334: t48140 = FALSE_TYPE; t48141 = f17417((t48055.value.native_procedure_type21334), t48140); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48141; return r14680; case NATIVE_PROCEDURE_TYPE21339: t48142 = FALSE_TYPE; t48143 = f17473((t48055.value.native_procedure_type21339), t48142); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48143; return r14680; case NATIVE_PROCEDURE_TYPE21341: t48144 = FALSE_TYPE; t48145 = f17472((t48055.value.native_procedure_type21341), t48144); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48145; return r14680; case NATIVE_PROCEDURE_TYPE21348: t48146 = FALSE_TYPE; t48147 = f17452((t48055.value.native_procedure_type21348), t48146); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48147; return r14680; case NATIVE_PROCEDURE_TYPE21353: t48148 = FALSE_TYPE; t48149 = f17393((t48055.value.native_procedure_type21353), t48148); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48149; return r14680; case NATIVE_PROCEDURE_TYPE21358: t48150 = FALSE_TYPE; t48151 = f17345((t48055.value.native_procedure_type21358), t48150); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48151; return r14680; case NATIVE_PROCEDURE_TYPE21363: t48152 = FALSE_TYPE; t48153 = f17167((t48055.value.native_procedure_type21363), t48152); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48153; return r14680; case NATIVE_PROCEDURE_TYPE21365: t48154 = FALSE_TYPE; t48155 = f17166((t48055.value.native_procedure_type21365), t48154); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48155; return r14680; case NATIVE_PROCEDURE_TYPE21381: t48156 = FALSE_TYPE; t48157 = f17504((t48055.value.native_procedure_type21381), t48156); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48157; return r14680; case NATIVE_PROCEDURE_TYPE21387: t48158 = FALSE_TYPE; t48159 = f17525((t48055.value.native_procedure_type21387), t48158); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48159; return r14680; case NATIVE_PROCEDURE_TYPE21393: t48160 = FALSE_TYPE; t48161 = f17599((t48055.value.native_procedure_type21393), t48160); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48161; return r14680; case NATIVE_PROCEDURE_TYPE21414: t48162 = f19631(); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48162; return r14680; case NATIVE_PROCEDURE_TYPE21896: t48163 = FALSE_TYPE; t48164 = f15815((t48055.value.native_procedure_type21896), t48163); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48164; return r14680; case NATIVE_PROCEDURE_TYPE21903: t48165 = FALSE_TYPE; t48166 = f15805((t48055.value.native_procedure_type21903), t48165); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48166; return r14680; case NATIVE_PROCEDURE_TYPE21944: t48167 = FALSE_TYPE; t48168 = f17628((t48055.value.native_procedure_type21944), t48167); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48168; return r14680; case NATIVE_PROCEDURE_TYPE21946: t48169 = FALSE_TYPE; t48170 = f17627((t48055.value.native_procedure_type21946), t48169); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48170; return r14680; case NATIVE_PROCEDURE_TYPE21948: t48171 = FALSE_TYPE; t48172 = f17613((t48055.value.native_procedure_type21948), t48171); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48172; return r14680; case NATIVE_PROCEDURE_TYPE21952: t48173 = FALSE_TYPE; t48174 = f17579((t48055.value.native_procedure_type21952), t48173); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48174; return r14680; case NATIVE_PROCEDURE_TYPE21956: t48175 = FALSE_TYPE; t48176 = f17576((t48055.value.native_procedure_type21956), t48175); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48176; return r14680; case NATIVE_PROCEDURE_TYPE21961: t48177 = FALSE_TYPE; t48178 = f17569((t48055.value.native_procedure_type21961), t48177); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48178; return r14680; case NATIVE_PROCEDURE_TYPE21963: t48179 = FALSE_TYPE; t48180 = f17568((t48055.value.native_procedure_type21963), t48179); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48180; return r14680; case NATIVE_PROCEDURE_TYPE21966: t48181 = FALSE_TYPE; t48182 = f17564((t48055.value.native_procedure_type21966), t48181); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48182; return r14680; case NATIVE_PROCEDURE_TYPE21968: t48183 = FALSE_TYPE; t48184 = f17563((t48055.value.native_procedure_type21968), t48183); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48184; return r14680; case NATIVE_PROCEDURE_TYPE21971: t48185 = FALSE_TYPE; t48186 = f17559((t48055.value.native_procedure_type21971), t48185); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48186; return r14680; case NATIVE_PROCEDURE_TYPE21973: t48187 = FALSE_TYPE; t48188 = f17558((t48055.value.native_procedure_type21973), t48187); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48188; return r14680; case NATIVE_PROCEDURE_TYPE21975: t48189 = FALSE_TYPE; t48190 = f17534((t48055.value.native_procedure_type21975), t48189); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48190; return r14680; case NATIVE_PROCEDURE_TYPE21978: t48191 = FALSE_TYPE; t48192 = f17718((t48055.value.native_procedure_type21978), t48191); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48192; return r14680; case NATIVE_PROCEDURE_TYPE21982: t48193 = FALSE_TYPE; t48194 = f17716((t48055.value.native_procedure_type21982), t48193); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48194; return r14680; case NATIVE_PROCEDURE_TYPE21984: t48195 = FALSE_TYPE; t48196 = f17715((t48055.value.native_procedure_type21984), t48195); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48196; return r14680; case NATIVE_PROCEDURE_TYPE21997: t48197 = FALSE_TYPE; t48198 = f17693((t48055.value.native_procedure_type21997), t48197); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48198; return r14680; case NATIVE_PROCEDURE_TYPE22000: t48199 = FALSE_TYPE; t48200 = f17682((t48055.value.native_procedure_type22000), t48199); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48200; return r14680; case NATIVE_PROCEDURE_TYPE22003: t48201 = FALSE_TYPE; t48202 = f17679((t48055.value.native_procedure_type22003), t48201); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48202; return r14680; case NATIVE_PROCEDURE_TYPE22006: t48203 = FALSE_TYPE; t48204 = f17676((t48055.value.native_procedure_type22006), t48203); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48204; return r14680; case NATIVE_PROCEDURE_TYPE22008: t48205 = FALSE_TYPE; t48206 = f17761((t48055.value.native_procedure_type22008), t48205); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48206; return r14680; case NATIVE_PROCEDURE_TYPE22010: t48207 = FALSE_TYPE; t48208 = f17807((t48055.value.native_procedure_type22010), t48207); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48208; return r14680; case NATIVE_PROCEDURE_TYPE22012: t48209 = FALSE_TYPE; t48210 = f17806((t48055.value.native_procedure_type22012), t48209); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48210; return r14680; case NATIVE_PROCEDURE_TYPE22014: t48211 = FALSE_TYPE; t48212 = f17787((t48055.value.native_procedure_type22014), t48211); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48212; return r14680; case NATIVE_PROCEDURE_TYPE22016: t48213 = FALSE_TYPE; t48214 = f17786((t48055.value.native_procedure_type22016), t48213); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48214; return r14680; case NATIVE_PROCEDURE_TYPE22037: t48215 = FALSE_TYPE; t48216 = f17841((t48055.value.native_procedure_type22037), t48215); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48216; return r14680; case NATIVE_PROCEDURE_TYPE22064: /* x298247 stalin.sc:19867:695278 */ /* x298246 stalin.sc:19867:695279 */ /* x303540 stalin.sc:14693:514793 */ r14680.tag = STRING_TYPE; r14680.value.string_type = ""; return r14680; case NATIVE_PROCEDURE_TYPE22072: t48217 = FALSE_TYPE; t48218 = f15886((t48055.value.native_procedure_type22072), t48217); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48218; return r14680; case NATIVE_PROCEDURE_TYPE22081: t48219 = FALSE_TYPE; t48220 = f17894((t48055.value.native_procedure_type22081), t48219); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48220; return r14680; case NATIVE_PROCEDURE_TYPE22091: t48221 = FALSE_TYPE; t48222 = f17885((t48055.value.native_procedure_type22091), t48221); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48222; return r14680; case NATIVE_PROCEDURE_TYPE22100: t48223 = FALSE_TYPE; t48224 = f17641((t48055.value.native_procedure_type22100), t48223); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48224; return r14680; case NATIVE_PROCEDURE_TYPE22102: t48225 = FALSE_TYPE; t48226 = f17640((t48055.value.native_procedure_type22102), t48225); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48226; return r14680; case NATIVE_PROCEDURE_TYPE22104: t48227 = FALSE_TYPE; t48228 = f17639((t48055.value.native_procedure_type22104), t48227); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48228; return r14680; case NATIVE_PROCEDURE_TYPE22106: t48229 = FALSE_TYPE; t48230 = f17491((t48055.value.native_procedure_type22106), t48229); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48230; return r14680; case NATIVE_PROCEDURE_TYPE22112: t48231 = FALSE_TYPE; t48232 = f17936((t48055.value.native_procedure_type22112), t48231); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48232; return r14680; case NATIVE_PROCEDURE_TYPE22117: t48233 = FALSE_TYPE; t48234 = f17957((t48055.value.native_procedure_type22117), t48233); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48234; return r14680; case NATIVE_PROCEDURE_TYPE22119: t48235 = FALSE_TYPE; t48236 = f17948((t48055.value.native_procedure_type22119), t48235); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48236; return r14680; case NATIVE_PROCEDURE_TYPE22124: t48237 = FALSE_TYPE; t48238 = f17976((t48055.value.native_procedure_type22124), t48237); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48238; return r14680; case NATIVE_PROCEDURE_TYPE22127: t48239 = FALSE_TYPE; t48240 = f17966((t48055.value.native_procedure_type22127), t48239); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48240; return r14680; case NATIVE_PROCEDURE_TYPE22130: t48241 = FALSE_TYPE; t48242 = f18033((t48055.value.native_procedure_type22130), t48241); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48242; return r14680; case NATIVE_PROCEDURE_TYPE22132: t48243 = FALSE_TYPE; t48244 = f18032((t48055.value.native_procedure_type22132), t48243); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48244; return r14680; case NATIVE_PROCEDURE_TYPE22135: t48245 = FALSE_TYPE; t48246 = f18008((t48055.value.native_procedure_type22135), t48245); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48246; return r14680; case NATIVE_PROCEDURE_TYPE22137: t48247 = FALSE_TYPE; t48248 = f17986((t48055.value.native_procedure_type22137), t48247); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48248; return r14680; case NATIVE_PROCEDURE_TYPE22139: t48249 = FALSE_TYPE; t48250 = f18072((t48055.value.native_procedure_type22139), t48249); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48250; return r14680; case NATIVE_PROCEDURE_TYPE22141: t48251 = FALSE_TYPE; t48252 = f18090((t48055.value.native_procedure_type22141), t48251); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48252; return r14680; case NATIVE_PROCEDURE_TYPE22143: t48253 = FALSE_TYPE; t48254 = f18081((t48055.value.native_procedure_type22143), t48253); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48254; return r14680; case NATIVE_PROCEDURE_TYPE22145: t48255 = FALSE_TYPE; t48256 = f18063((t48055.value.native_procedure_type22145), t48255); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48256; return r14680; case NATIVE_PROCEDURE_TYPE22148: t48257 = FALSE_TYPE; t48258 = f18121((t48055.value.native_procedure_type22148), t48257); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48258; return r14680; case NATIVE_PROCEDURE_TYPE22154: t48259 = FALSE_TYPE; t48260 = f18148((t48055.value.native_procedure_type22154), t48259); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48260; return r14680; case NATIVE_PROCEDURE_TYPE22160: t48261 = FALSE_TYPE; t48262 = f18135((t48055.value.native_procedure_type22160), t48261); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48262; return r14680; case NATIVE_PROCEDURE_TYPE22162: t48263 = FALSE_TYPE; t48264 = f18133((t48055.value.native_procedure_type22162), t48263); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48264; return r14680; case NATIVE_PROCEDURE_TYPE22165: t48265 = FALSE_TYPE; t48266 = f18042((t48055.value.native_procedure_type22165), t48265); r14680.tag = STRUCTURE_TYPE24753; r14680.value.structure_type24753 = t48266; return r14680; default: /* x297750 stalin.sc:23751:825832 */ /* x297749 stalin.sc:23751:825833 */ /* x303278 QobiScheme.sc:166:5314 */ /* x303277 QobiScheme.sc:166:5321 */ t48267 = "This shouldn\'t happen"; /* x303276 QobiScheme.sc:166:5315 */ stalin_panic(t48267);} l7296: /* x133069 stalin.sc:16884:589744 */ /* x133068 stalin.sc:16884:589754 */ /* x133066 stalin.sc:16884:589768 */ /* x133067 stalin.sc:16884:589802 */ t48049 = a26092; /* x133060 stalin.sc:16884:589755 */ t48050.tag = NATIVE_PROCEDURE_TYPE20857; t48011 = f8172(t48050, t48049); /* x133059 */ a26099 = t48011; /* x133058 stalin.sc:16885:589813 */ /* x133021 stalin.sc:16885:589817 */ /* x133019 stalin.sc:16885:589826 */ /* x133020 stalin.sc:16885:589837 */ t48012 = a26092; /* x133018 stalin.sc:16885:589818 */ t48013.tag = NATIVE_PROCEDURE_TYPE7431; if ((f8137(t48013, t48012).tag)==FALSE_TYPE) goto l7299; /* x133042 stalin.sc:16886:589843 */ /* x133026 stalin.sc:16886:589853 */ /* x133024 stalin.sc:16886:589860 */ t48034 = a26093; /* x133025 stalin.sc:16886:589863 */ t48035 = a26092; /* x133023 stalin.sc:16886:589854 */ t48029 = f14478(t48034, t48035); /* x133030 stalin.sc:16887:589872 */ /* x133029 stalin.sc:16887:589888 */ t48036 = a26099; /* x133028 stalin.sc:16887:589877 */ /* x133027 stalin.sc:16887:589873 */ t48037.tag = NATIVE_PROCEDURE_TYPE6764; t48038 = *((struct w49 *)(&t48036)); t48039 = (struct structure_type24753 *)NULL_TYPE; t48030 = f27731(t48037, t48038, t48039); /* x133034 stalin.sc:16888:589898 */ /* x133033 stalin.sc:16888:589905 */ t48041 = a26099; /* x133032 stalin.sc:16888:589903 */ t48040 = a26097; /* x133031 stalin.sc:16888:589899 */ t48042.tag = NATIVE_PROCEDURE_TYPE20855; t48042.value.native_procedure_type20855 = t48040; t48043 = *((struct w49 *)(&t48041)); t48044 = (struct structure_type24753 *)NULL_TYPE; t48031 = f27731(t48042, t48043, t48044); /* x133040 stalin.sc:16889:589915 */ /* x133039 stalin.sc:16889:589918 */ /* x133037 stalin.sc:16889:589935 */ /* x133038 stalin.sc:16889:589946 */ t48047 = a26092; /* x133036 stalin.sc:16889:589919 */ t48048.tag = NATIVE_PROCEDURE_TYPE7431; t48046 = f8157(t48048, t48047); /* x133035 stalin.sc:16889:589916 */ t48045 = a26097; t48032 = f14685(t48045, t48046); /* x133041 stalin.sc:16890:589956 */ t48033 = a26096; /* x133022 stalin.sc:16886:589844 */ return f13676(t48029, t48030, t48031, t48032, t48033); l7299: /* x133057 stalin.sc:16891:589963 */ /* x133047 stalin.sc:16892:589989 */ /* x133045 stalin.sc:16892:589996 */ t48018 = a26093; /* x133046 stalin.sc:16892:589999 */ t48019 = a26092; /* x133044 stalin.sc:16892:589990 */ t48014 = f14478(t48018, t48019); /* x133051 stalin.sc:16892:590002 */ /* x133050 stalin.sc:16892:590018 */ t48020 = a26099; /* x133049 stalin.sc:16892:590007 */ /* x133048 stalin.sc:16892:590003 */ t48021.tag = NATIVE_PROCEDURE_TYPE6764; t48022 = *((struct w49 *)(&t48020)); t48023 = (struct structure_type24753 *)NULL_TYPE; t48015 = f27731(t48021, t48022, t48023); /* x133055 stalin.sc:16892:590022 */ /* x133054 stalin.sc:16892:590029 */ t48025 = a26099; /* x133053 stalin.sc:16892:590027 */ t48024 = a26097; /* x133052 stalin.sc:16892:590023 */ t48026.tag = NATIVE_PROCEDURE_TYPE20855; t48026.value.native_procedure_type20855 = t48024; t48027 = *((struct w49 *)(&t48025)); t48028 = (struct structure_type24753 *)NULL_TYPE; t48016 = f27731(t48026, t48027, t48028); /* x133056 stalin.sc:16892:590033 */ t48017 = a26096; /* x133043 stalin.sc:16891:589964 */ return f13687(t48014, t48015, t48016, t48017);} /* [inside COMPILE-SQUISHED-DEFAULTLESS-TYPE-SWITCH 14676] */ struct w49 f14676(struct p14673 *p14676, struct w49 a26087) {struct w49 r14676; unsigned t48496; struct w49 t48497; struct w49 t48498; struct w12224 t48499; struct w228345 t48500; struct w49 t48501; struct structure_type24753 *t48502; struct w49 t48503; struct w155862 t48504; struct w49 t48505; struct structure_type24753 *t48506; struct structure_type24753 *t48507; struct structure_type24753 *t48508; struct w49 t48509; struct w49 t48510; unsigned t48511; struct w49 t48512; struct structure_type24753 *t48513; struct w49 t48514; char *t48515; struct w49 t48516; struct w49 t48517; struct w155862 t48518; struct w49 t48519; struct structure_type24753 *t48520; char *t48521; char *t48522; char *t48523; struct structure_type24753 *t48524; struct w49 t48525; struct w211113 t48526; struct w155862 t48527; struct w49 t48528; struct structure_type24753 *t48529; struct structure_type24753 *t48530; /* x132928 stalin.sc:16863:589179 */ /* x132904 stalin.sc:16863:589183 */ /* x132891 stalin.sc:16863:589188 */ /* x132890 stalin.sc:16863:589195 */ /* x132888 stalin.sc:16863:589207 */ t48497 = a26087; /* x132889 stalin.sc:16863:589209 */ t48498 = p14676->a26080; /* x132887 stalin.sc:16863:589196 */ t48496 = f14564(t48497, t48498); /* x268805 stalin.sc:16863:589189 */ if (!((t48496&1)==1)) {backtrace("stalin.sc", 16863, 589188); zero_error();} if (!(((int)(((int)t48496)>>1))==0)) goto l7303; /* x132902 */ /* x132895 stalin.sc:16864:589217 */ /* x132894 stalin.sc:16864:589234 */ t48499 = p14676->a26079; /* x132893 stalin.sc:16864:589223 */ /* x132892 stalin.sc:16864:589218 */ t48500.tag = NATIVE_PROCEDURE_TYPE7431; t48501 = *((struct w49 *)(&t48499)); t48502 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t48500, t48501, t48502).tag)==FALSE_TYPE) goto l7303; /* x132900 */ /* x132899 stalin.sc:16865:589247 */ /* x132898 stalin.sc:16865:589259 */ t48503 = a26087; /* x132897 stalin.sc:16865:589248 */ if (!(f7682(t48503)==FALSE_TYPE)) goto l7303; /* x132924 stalin.sc:16866:589270 */ /* x132913 stalin.sc:16866:589276 */ /* x132907 stalin.sc:16866:589281 */ t48512 = p14676->a26081; /* x132912 stalin.sc:16866:589284 */ /* x132910 stalin.sc:16866:589301 */ /* x132909 stalin.sc:16866:589302 */ /* x129559 stalin.sc:16169:562645 */ t48515 = "CHAR_OFFSET"; /* x132911 stalin.sc:16866:589317 */ t48516 = p14676->a26080; /* x132908 stalin.sc:16866:589285 */ t48517.tag = STRING_TYPE; t48517.value.string_type = t48515; t48513 = f14422(t48517, t48516); /* x132906 stalin.sc:16866:589277 */ t48514.tag = STRUCTURE_TYPE24753; t48514.value.structure_type24753 = t48513; t48508 = f13601(t48512, t48514); /* x132919 stalin.sc:16867:589326 */ /* x132918 stalin.sc:16867:589330 */ /* x132916 stalin.sc:16867:589347 */ /* x132917 stalin.sc:16867:589358 */ t48525 = p14676->a26080; /* x132915 stalin.sc:16867:589331 */ t48526.tag = NATIVE_PROCEDURE_TYPE7431; t48519 = f8157(t48526, t48525); /* x132914 stalin.sc:16867:589327 */ t48518 = p14676->a26082; switch (t48518.tag) {case NATIVE_PROCEDURE_TYPE20286: t48509 = f15486((t48518.value.native_procedure_type20286), t48519); break; case NATIVE_PROCEDURE_TYPE20496: t48509 = f15475((t48518.value.native_procedure_type20496), t48519); break; case NATIVE_PROCEDURE_TYPE20552: t48509 = f15458((t48518.value.native_procedure_type20552), t48519); break; case NATIVE_PROCEDURE_TYPE20758: d16096 = t48518.value.native_procedure_type20758; b27143 = t48519; t48509 = f16096(); break; case NATIVE_PROCEDURE_TYPE20783: d15771 = t48518.value.native_procedure_type20783; b26894 = t48519; t48509 = f15771(); break; case NATIVE_PROCEDURE_TYPE20851: t48509 = f14712(t48518.value.native_procedure_type20851); break; case NATIVE_PROCEDURE_TYPE20914: t48509 = f16432((t48518.value.native_procedure_type20914), t48519); break; case NATIVE_PROCEDURE_TYPE20916: t48509 = f16416((t48518.value.native_procedure_type20916), t48519); break; case NATIVE_PROCEDURE_TYPE20919: t48509 = f16631((t48518.value.native_procedure_type20919), t48519); break; case NATIVE_PROCEDURE_TYPE20928: t48509 = f16597((t48518.value.native_procedure_type20928), t48519); break; case NATIVE_PROCEDURE_TYPE21037: t48509 = f16700((t48518.value.native_procedure_type21037), t48519); break; case NATIVE_PROCEDURE_TYPE21043: t48509 = f16678((t48518.value.native_procedure_type21043), t48519); break; case NATIVE_PROCEDURE_TYPE21049: t48509 = f16736((t48518.value.native_procedure_type21049), t48519); break; case NATIVE_PROCEDURE_TYPE21060: d15570 = t48518.value.native_procedure_type21060; b26729 = t48519; t48509 = f15570(); break; case NATIVE_PROCEDURE_TYPE21066: t48509 = f16821((t48518.value.native_procedure_type21066), t48519); break; case NATIVE_PROCEDURE_TYPE21083: t48509 = f16720((t48518.value.native_procedure_type21083), t48519); break; case NATIVE_PROCEDURE_TYPE21088: t48509 = f16646((t48518.value.native_procedure_type21088), t48519); break; case NATIVE_PROCEDURE_TYPE21091: t48509 = f16853((t48518.value.native_procedure_type21091), t48519); break; case NATIVE_PROCEDURE_TYPE21109: d15579 = t48518.value.native_procedure_type21109; b26749 = t48519; t48509 = f15579(); break; case NATIVE_PROCEDURE_TYPE21111: t48509 = f16908((t48518.value.native_procedure_type21111), t48519); break; case NATIVE_PROCEDURE_TYPE21118: t48509 = f16880((t48518.value.native_procedure_type21118), t48519); break; case NATIVE_PROCEDURE_TYPE21138: t48509 = f16981((t48518.value.native_procedure_type21138), t48519); break; case NATIVE_PROCEDURE_TYPE21148: t48509 = f17057((t48518.value.native_procedure_type21148), t48519); break; case NATIVE_PROCEDURE_TYPE21153: d17117 = t48518.value.native_procedure_type21153; b29067 = t48519; t48509 = f17117(); break; case NATIVE_PROCEDURE_TYPE21155: t48509 = f17118((t48518.value.native_procedure_type21155), t48519); break; case NATIVE_PROCEDURE_TYPE21171: d17084 = t48518.value.native_procedure_type21171; b29016 = t48519; t48509 = f17084(); break; case NATIVE_PROCEDURE_TYPE21173: t48509 = f17085((t48518.value.native_procedure_type21173), t48519); break; case NATIVE_PROCEDURE_TYPE21202: t48509 = f17018((t48518.value.native_procedure_type21202), t48519); break; case NATIVE_PROCEDURE_TYPE21226: t48509 = f16940((t48518.value.native_procedure_type21226), t48519); break; case NATIVE_PROCEDURE_TYPE21229: t48509 = f16839((t48518.value.native_procedure_type21229), t48519); break; case NATIVE_PROCEDURE_TYPE21235: d17183 = t48518.value.native_procedure_type21235; b29169 = t48519; t48509 = f17183(); break; case NATIVE_PROCEDURE_TYPE21237: t48509 = f17184((t48518.value.native_procedure_type21237), t48519); break; case NATIVE_PROCEDURE_TYPE21257: t48509 = f17221((t48518.value.native_procedure_type21257), t48519); break; case NATIVE_PROCEDURE_TYPE21260: t48509 = f17208((t48518.value.native_procedure_type21260), t48519); break; case NATIVE_PROCEDURE_TYPE21266: t48509 = f17253((t48518.value.native_procedure_type21266), t48519); break; case NATIVE_PROCEDURE_TYPE21269: t48509 = f17290((t48518.value.native_procedure_type21269), t48519); break; case NATIVE_PROCEDURE_TYPE21275: t48509 = f17328((t48518.value.native_procedure_type21275), t48519); break; case NATIVE_PROCEDURE_TYPE21281: t48509 = f17309((t48518.value.native_procedure_type21281), t48519); break; case NATIVE_PROCEDURE_TYPE21287: t48509 = f17271((t48518.value.native_procedure_type21287), t48519); break; case NATIVE_PROCEDURE_TYPE21297: t48509 = f17237((t48518.value.native_procedure_type21297), t48519); break; case NATIVE_PROCEDURE_TYPE21300: t48509 = f17353((t48518.value.native_procedure_type21300), t48519); break; case NATIVE_PROCEDURE_TYPE21305: t48509 = f17377((t48518.value.native_procedure_type21305), t48519); break; case NATIVE_PROCEDURE_TYPE21310: t48509 = f17365((t48518.value.native_procedure_type21310), t48519); break; case NATIVE_PROCEDURE_TYPE21315: t48509 = f17401((t48518.value.native_procedure_type21315), t48519); break; case NATIVE_PROCEDURE_TYPE21320: d17431 = t48518.value.native_procedure_type21320; b29911 = t48519; t48509 = f17431(); break; case NATIVE_PROCEDURE_TYPE21325: t48509 = f17433((t48518.value.native_procedure_type21325), t48519); break; case NATIVE_PROCEDURE_TYPE21330: t48509 = f17426((t48518.value.native_procedure_type21330), t48519); break; case NATIVE_PROCEDURE_TYPE21335: t48509 = f17413((t48518.value.native_procedure_type21335), t48519); break; case NATIVE_PROCEDURE_TYPE21340: d17465 = t48518.value.native_procedure_type21340; b30003 = t48519; t48509 = f17465(); break; case NATIVE_PROCEDURE_TYPE21342: t48509 = f17466((t48518.value.native_procedure_type21342), t48519); break; case NATIVE_PROCEDURE_TYPE21349: t48509 = f17448((t48518.value.native_procedure_type21349), t48519); break; case NATIVE_PROCEDURE_TYPE21354: t48509 = f17389((t48518.value.native_procedure_type21354), t48519); break; case NATIVE_PROCEDURE_TYPE21359: t48509 = f17341((t48518.value.native_procedure_type21359), t48519); break; case NATIVE_PROCEDURE_TYPE21364: d17150 = t48518.value.native_procedure_type21364; b29118 = t48519; t48509 = f17150(); break; case NATIVE_PROCEDURE_TYPE21366: t48509 = f17151((t48518.value.native_procedure_type21366), t48519); break; case NATIVE_PROCEDURE_TYPE21382: t48509 = f17499((t48518.value.native_procedure_type21382), t48519); break; case NATIVE_PROCEDURE_TYPE21388: t48509 = f17524((t48518.value.native_procedure_type21388), t48519); break; case NATIVE_PROCEDURE_TYPE21394: d17598 = t48518.value.native_procedure_type21394; b30396 = t48519; t48509 = f17598(); break; case NATIVE_PROCEDURE_TYPE21415: t48520 = f19627(t48519); t48509.tag = STRUCTURE_TYPE24753; t48509.value.structure_type24753 = t48520; break; case NATIVE_PROCEDURE_TYPE21897: t48509 = f15811((t48518.value.native_procedure_type21897), t48519); break; case NATIVE_PROCEDURE_TYPE21904: t48521 = f15804(); t48509.tag = STRING_TYPE; t48509.value.string_type = t48521; break; case NATIVE_PROCEDURE_TYPE21945: d17625 = t48518.value.native_procedure_type21945; b30489 = t48519; t48509 = f17625(); break; case NATIVE_PROCEDURE_TYPE21947: t48509 = f17626((t48518.value.native_procedure_type21947), t48519); break; case NATIVE_PROCEDURE_TYPE21949: t48509 = f17612((t48518.value.native_procedure_type21949), t48519); break; case NATIVE_PROCEDURE_TYPE21953: d17572 = t48518.value.native_procedure_type21953; b30333 = t48519; t48509 = f17572(); break; case NATIVE_PROCEDURE_TYPE21957: t48509 = f17573((t48518.value.native_procedure_type21957), t48519); break; case NATIVE_PROCEDURE_TYPE21962: d17566 = t48518.value.native_procedure_type21962; t48509 = f17566(); break; case NATIVE_PROCEDURE_TYPE21964: t48509 = f17567(t48518.value.native_procedure_type21964); break; case NATIVE_PROCEDURE_TYPE21967: d17561 = t48518.value.native_procedure_type21967; t48509 = f17561(); break; case NATIVE_PROCEDURE_TYPE21969: t48509 = f17562(t48518.value.native_procedure_type21969); break; case NATIVE_PROCEDURE_TYPE21972: d17556 = t48518.value.native_procedure_type21972; t48509 = f17556(); break; case NATIVE_PROCEDURE_TYPE21974: t48522 = f17557(); t48509.tag = STRING_TYPE; t48509.value.string_type = t48522; break; case NATIVE_PROCEDURE_TYPE21976: t48509 = f17533((t48518.value.native_procedure_type21976), t48519); break; case NATIVE_PROCEDURE_TYPE21979: d17706 = t48518.value.native_procedure_type21979; b30702 = t48519; t48509 = f17706(); break; case NATIVE_PROCEDURE_TYPE21983: d17708 = t48518.value.native_procedure_type21983; b30704 = t48519; t48509 = f17708(); break; case NATIVE_PROCEDURE_TYPE21985: t48509 = f17709((t48518.value.native_procedure_type21985), t48519); break; case NATIVE_PROCEDURE_TYPE21998: t48509 = f17688((t48518.value.native_procedure_type21998), t48519); break; case NATIVE_PROCEDURE_TYPE22001: t48509 = f17681(t48518.value.native_procedure_type22001); break; case NATIVE_PROCEDURE_TYPE22004: t48509 = f17678(t48518.value.native_procedure_type22004); break; case NATIVE_PROCEDURE_TYPE22007: t48523 = f17675(); t48509.tag = STRING_TYPE; t48509.value.string_type = t48523; break; case NATIVE_PROCEDURE_TYPE22009: t48509 = f17760((t48518.value.native_procedure_type22009), t48519); break; case NATIVE_PROCEDURE_TYPE22011: d17804 = t48518.value.native_procedure_type22011; b30911 = t48519; t48509 = f17804(); break; case NATIVE_PROCEDURE_TYPE22013: t48509 = f17805((t48518.value.native_procedure_type22013), t48519); break; case NATIVE_PROCEDURE_TYPE22015: d17784 = t48518.value.native_procedure_type22015; b30860 = t48519; t48509 = f17784(); break; case NATIVE_PROCEDURE_TYPE22017: t48509 = f17785((t48518.value.native_procedure_type22017), t48519); break; case NATIVE_PROCEDURE_TYPE22038: d17840 = t48518.value.native_procedure_type22038; b31010 = t48519; t48509 = f17840(); break; case NATIVE_PROCEDURE_TYPE22065: d15900 = t48518.value.native_procedure_type22065; b27021 = t48519; t48509 = f15900(); break; case NATIVE_PROCEDURE_TYPE22073: d15885 = t48518.value.native_procedure_type22073; b27015 = t48519; t48509 = f15885(); break; case NATIVE_PROCEDURE_TYPE22082: d17890 = t48518.value.native_procedure_type22082; b31082 = t48519; t48509 = f17890(); break; case NATIVE_PROCEDURE_TYPE22092: t48509 = f17878((t48518.value.native_procedure_type22092), t48519); break; case NATIVE_PROCEDURE_TYPE22101: d17636 = t48518.value.native_procedure_type22101; b30537 = t48519; t48509 = f17636(); break; case NATIVE_PROCEDURE_TYPE22103: t48509 = f17637((t48518.value.native_procedure_type22103), t48519); break; case NATIVE_PROCEDURE_TYPE22105: t48509 = f17638((t48518.value.native_procedure_type22105), t48519); break; case NATIVE_PROCEDURE_TYPE22107: t48509 = f17486((t48518.value.native_procedure_type22107), t48519); break; case NATIVE_PROCEDURE_TYPE22113: t48509 = f17932((t48518.value.native_procedure_type22113), t48519); break; case NATIVE_PROCEDURE_TYPE22118: t48509 = f17956((t48518.value.native_procedure_type22118), t48519); break; case NATIVE_PROCEDURE_TYPE22120: t48509 = f17944((t48518.value.native_procedure_type22120), t48519); break; case NATIVE_PROCEDURE_TYPE22125: t48509 = f17975((t48518.value.native_procedure_type22125), t48519); break; case NATIVE_PROCEDURE_TYPE22128: t48509 = f17965((t48518.value.native_procedure_type22128), t48519); break; case NATIVE_PROCEDURE_TYPE22131: d18030 = t48518.value.native_procedure_type22131; b31667 = t48519; t48509 = f18030(); break; case NATIVE_PROCEDURE_TYPE22133: t48509 = f18031((t48518.value.native_procedure_type22133), t48519); break; case NATIVE_PROCEDURE_TYPE22136: t48509 = f18007((t48518.value.native_procedure_type22136), t48519); break; case NATIVE_PROCEDURE_TYPE22138: t48509 = f17985((t48518.value.native_procedure_type22138), t48519); break; case NATIVE_PROCEDURE_TYPE22140: t48509 = f18071((t48518.value.native_procedure_type22140), t48519); break; case NATIVE_PROCEDURE_TYPE22142: t48509 = f18089((t48518.value.native_procedure_type22142), t48519); break; case NATIVE_PROCEDURE_TYPE22144: t48509 = f18080((t48518.value.native_procedure_type22144), t48519); break; case NATIVE_PROCEDURE_TYPE22146: t48509 = f18062((t48518.value.native_procedure_type22146), t48519); break; case NATIVE_PROCEDURE_TYPE22149: t48509 = f18120((t48518.value.native_procedure_type22149), t48519); break; case NATIVE_PROCEDURE_TYPE22155: d18147 = t48518.value.native_procedure_type22155; b32201 = t48519; t48509 = f18147(); break; case NATIVE_PROCEDURE_TYPE22161: d18134 = t48518.value.native_procedure_type22161; b32153 = t48519; t48509 = f18134(); break; case NATIVE_PROCEDURE_TYPE22163: d18132 = t48518.value.native_procedure_type22163; b32151 = t48519; t48509 = f18132(); break; case NATIVE_PROCEDURE_TYPE22166: t48524 = f18041((t48518.value.native_procedure_type22166), t48519); t48509.tag = STRUCTURE_TYPE24753; t48509.value.structure_type24753 = t48524; break; default: t48509 = f17689(t48518.value.native_procedure_type23298);} /* x132922 stalin.sc:16868:589367 */ /* x132921 stalin.sc:16868:589371 */ t48528 = a26087; /* x132920 stalin.sc:16868:589368 */ t48527 = p14676->a26082; switch (t48527.tag) {case NATIVE_PROCEDURE_TYPE20286: t48510 = f15486((t48527.value.native_procedure_type20286), t48528); break; case NATIVE_PROCEDURE_TYPE20496: t48510 = f15475((t48527.value.native_procedure_type20496), t48528); break; case NATIVE_PROCEDURE_TYPE20552: t48510 = f15458((t48527.value.native_procedure_type20552), t48528); break; case NATIVE_PROCEDURE_TYPE20758: d16096 = t48527.value.native_procedure_type20758; b27143 = t48528; t48510 = f16096(); break; case NATIVE_PROCEDURE_TYPE20783: d15771 = t48527.value.native_procedure_type20783; b26894 = t48528; t48510 = f15771(); break; case NATIVE_PROCEDURE_TYPE20851: t48510 = f14712(t48527.value.native_procedure_type20851); break; case NATIVE_PROCEDURE_TYPE20914: t48510 = f16432((t48527.value.native_procedure_type20914), t48528); break; case NATIVE_PROCEDURE_TYPE20916: t48510 = f16416((t48527.value.native_procedure_type20916), t48528); break; case NATIVE_PROCEDURE_TYPE20919: t48510 = f16631((t48527.value.native_procedure_type20919), t48528); break; case NATIVE_PROCEDURE_TYPE20928: t48510 = f16597((t48527.value.native_procedure_type20928), t48528); break; case NATIVE_PROCEDURE_TYPE21037: t48510 = f16700((t48527.value.native_procedure_type21037), t48528); break; case NATIVE_PROCEDURE_TYPE21043: t48510 = f16678((t48527.value.native_procedure_type21043), t48528); break; case NATIVE_PROCEDURE_TYPE21049: t48510 = f16736((t48527.value.native_procedure_type21049), t48528); break; case NATIVE_PROCEDURE_TYPE21060: d15570 = t48527.value.native_procedure_type21060; b26729 = t48528; t48510 = f15570(); break; case NATIVE_PROCEDURE_TYPE21066: t48510 = f16821((t48527.value.native_procedure_type21066), t48528); break; case NATIVE_PROCEDURE_TYPE21083: t48510 = f16720((t48527.value.native_procedure_type21083), t48528); break; case NATIVE_PROCEDURE_TYPE21088: t48510 = f16646((t48527.value.native_procedure_type21088), t48528); break; case NATIVE_PROCEDURE_TYPE21091: t48510 = f16853((t48527.value.native_procedure_type21091), t48528); break; case NATIVE_PROCEDURE_TYPE21109: d15579 = t48527.value.native_procedure_type21109; b26749 = t48528; t48510 = f15579(); break; case NATIVE_PROCEDURE_TYPE21111: t48510 = f16908((t48527.value.native_procedure_type21111), t48528); break; case NATIVE_PROCEDURE_TYPE21118: t48510 = f16880((t48527.value.native_procedure_type21118), t48528); break; case NATIVE_PROCEDURE_TYPE21138: t48510 = f16981((t48527.value.native_procedure_type21138), t48528); break; case NATIVE_PROCEDURE_TYPE21148: t48510 = f17057((t48527.value.native_procedure_type21148), t48528); break; case NATIVE_PROCEDURE_TYPE21153: d17117 = t48527.value.native_procedure_type21153; b29067 = t48528; t48510 = f17117(); break; case NATIVE_PROCEDURE_TYPE21155: t48510 = f17118((t48527.value.native_procedure_type21155), t48528); break; case NATIVE_PROCEDURE_TYPE21171: d17084 = t48527.value.native_procedure_type21171; b29016 = t48528; t48510 = f17084(); break; case NATIVE_PROCEDURE_TYPE21173: t48510 = f17085((t48527.value.native_procedure_type21173), t48528); break; case NATIVE_PROCEDURE_TYPE21202: t48510 = f17018((t48527.value.native_procedure_type21202), t48528); break; case NATIVE_PROCEDURE_TYPE21226: t48510 = f16940((t48527.value.native_procedure_type21226), t48528); break; case NATIVE_PROCEDURE_TYPE21229: t48510 = f16839((t48527.value.native_procedure_type21229), t48528); break; case NATIVE_PROCEDURE_TYPE21235: d17183 = t48527.value.native_procedure_type21235; b29169 = t48528; t48510 = f17183(); break; case NATIVE_PROCEDURE_TYPE21237: t48510 = f17184((t48527.value.native_procedure_type21237), t48528); break; case NATIVE_PROCEDURE_TYPE21257: t48510 = f17221((t48527.value.native_procedure_type21257), t48528); break; case NATIVE_PROCEDURE_TYPE21260: t48510 = f17208((t48527.value.native_procedure_type21260), t48528); break; case NATIVE_PROCEDURE_TYPE21266: t48510 = f17253((t48527.value.native_procedure_type21266), t48528); break; case NATIVE_PROCEDURE_TYPE21269: t48510 = f17290((t48527.value.native_procedure_type21269), t48528); break; case NATIVE_PROCEDURE_TYPE21275: t48510 = f17328((t48527.value.native_procedure_type21275), t48528); break; case NATIVE_PROCEDURE_TYPE21281: t48510 = f17309((t48527.value.native_procedure_type21281), t48528); break; case NATIVE_PROCEDURE_TYPE21287: t48510 = f17271((t48527.value.native_procedure_type21287), t48528); break; case NATIVE_PROCEDURE_TYPE21297: t48510 = f17237((t48527.value.native_procedure_type21297), t48528); break; case NATIVE_PROCEDURE_TYPE21300: t48510 = f17353((t48527.value.native_procedure_type21300), t48528); break; case NATIVE_PROCEDURE_TYPE21305: t48510 = f17377((t48527.value.native_procedure_type21305), t48528); break; case NATIVE_PROCEDURE_TYPE21310: t48510 = f17365((t48527.value.native_procedure_type21310), t48528); break; case NATIVE_PROCEDURE_TYPE21315: t48510 = f17401((t48527.value.native_procedure_type21315), t48528); break; case NATIVE_PROCEDURE_TYPE21320: d17431 = t48527.value.native_procedure_type21320; b29911 = t48528; t48510 = f17431(); break; case NATIVE_PROCEDURE_TYPE21325: t48510 = f17433((t48527.value.native_procedure_type21325), t48528); break; case NATIVE_PROCEDURE_TYPE21330: t48510 = f17426((t48527.value.native_procedure_type21330), t48528); break; case NATIVE_PROCEDURE_TYPE21335: t48510 = f17413((t48527.value.native_procedure_type21335), t48528); break; case NATIVE_PROCEDURE_TYPE21340: d17465 = t48527.value.native_procedure_type21340; b30003 = t48528; t48510 = f17465(); break; case NATIVE_PROCEDURE_TYPE21342: t48510 = f17466((t48527.value.native_procedure_type21342), t48528); break; case NATIVE_PROCEDURE_TYPE21349: t48510 = f17448((t48527.value.native_procedure_type21349), t48528); break; case NATIVE_PROCEDURE_TYPE21354: t48510 = f17389((t48527.value.native_procedure_type21354), t48528); break; case NATIVE_PROCEDURE_TYPE21359: t48510 = f17341((t48527.value.native_procedure_type21359), t48528); break; case NATIVE_PROCEDURE_TYPE21364: d17150 = t48527.value.native_procedure_type21364; b29118 = t48528; t48510 = f17150(); break; case NATIVE_PROCEDURE_TYPE21366: t48510 = f17151((t48527.value.native_procedure_type21366), t48528); break; case NATIVE_PROCEDURE_TYPE21382: t48510 = f17499((t48527.value.native_procedure_type21382), t48528); break; case NATIVE_PROCEDURE_TYPE21388: t48510 = f17524((t48527.value.native_procedure_type21388), t48528); break; case NATIVE_PROCEDURE_TYPE21394: d17598 = t48527.value.native_procedure_type21394; b30396 = t48528; t48510 = f17598(); break; case NATIVE_PROCEDURE_TYPE21415: t48529 = f19627(t48528); t48510.tag = STRUCTURE_TYPE24753; t48510.value.structure_type24753 = t48529; break; case NATIVE_PROCEDURE_TYPE21897: t48510 = f15811((t48527.value.native_procedure_type21897), t48528); break; case NATIVE_PROCEDURE_TYPE21904: /* x298256 stalin.sc:19531:682748 */ /* x298255 stalin.sc:19531:682749 */ /* x303546 stalin.sc:14693:514793 */ t48510.tag = STRING_TYPE; t48510.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21945: d17625 = t48527.value.native_procedure_type21945; b30489 = t48528; t48510 = f17625(); break; case NATIVE_PROCEDURE_TYPE21947: t48510 = f17626((t48527.value.native_procedure_type21947), t48528); break; case NATIVE_PROCEDURE_TYPE21949: t48510 = f17612((t48527.value.native_procedure_type21949), t48528); break; case NATIVE_PROCEDURE_TYPE21953: d17572 = t48527.value.native_procedure_type21953; b30333 = t48528; t48510 = f17572(); break; case NATIVE_PROCEDURE_TYPE21957: t48510 = f17573((t48527.value.native_procedure_type21957), t48528); break; case NATIVE_PROCEDURE_TYPE21962: d17566 = t48527.value.native_procedure_type21962; t48510 = f17566(); break; case NATIVE_PROCEDURE_TYPE21964: t48510 = f17567(t48527.value.native_procedure_type21964); break; case NATIVE_PROCEDURE_TYPE21967: d17561 = t48527.value.native_procedure_type21967; t48510 = f17561(); break; case NATIVE_PROCEDURE_TYPE21969: t48510 = f17562(t48527.value.native_procedure_type21969); break; case NATIVE_PROCEDURE_TYPE21972: d17556 = t48527.value.native_procedure_type21972; t48510 = f17556(); break; case NATIVE_PROCEDURE_TYPE21974: /* x297822 stalin.sc:23400:816144 */ /* x297821 stalin.sc:23400:816145 */ /* x303322 stalin.sc:14693:514793 */ t48510.tag = STRING_TYPE; t48510.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21976: t48510 = f17533((t48527.value.native_procedure_type21976), t48528); break; case NATIVE_PROCEDURE_TYPE21979: d17706 = t48527.value.native_procedure_type21979; b30702 = t48528; t48510 = f17706(); break; case NATIVE_PROCEDURE_TYPE21983: d17708 = t48527.value.native_procedure_type21983; b30704 = t48528; t48510 = f17708(); break; case NATIVE_PROCEDURE_TYPE21985: t48510 = f17709((t48527.value.native_procedure_type21985), t48528); break; case NATIVE_PROCEDURE_TYPE21998: t48510 = f17688((t48527.value.native_procedure_type21998), t48528); break; case NATIVE_PROCEDURE_TYPE22001: t48510 = f17681(t48527.value.native_procedure_type22001); break; case NATIVE_PROCEDURE_TYPE22004: t48510 = f17678(t48527.value.native_procedure_type22004); break; case NATIVE_PROCEDURE_TYPE22007: /* x297759 stalin.sc:23690:824240 */ /* x297758 stalin.sc:23690:824241 */ /* x303288 stalin.sc:14693:514793 */ t48510.tag = STRING_TYPE; t48510.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22009: t48510 = f17760((t48527.value.native_procedure_type22009), t48528); break; case NATIVE_PROCEDURE_TYPE22011: d17804 = t48527.value.native_procedure_type22011; b30911 = t48528; t48510 = f17804(); break; case NATIVE_PROCEDURE_TYPE22013: t48510 = f17805((t48527.value.native_procedure_type22013), t48528); break; case NATIVE_PROCEDURE_TYPE22015: d17784 = t48527.value.native_procedure_type22015; b30860 = t48528; t48510 = f17784(); break; case NATIVE_PROCEDURE_TYPE22017: t48510 = f17785((t48527.value.native_procedure_type22017), t48528); break; case NATIVE_PROCEDURE_TYPE22038: d17840 = t48527.value.native_procedure_type22038; b31010 = t48528; t48510 = f17840(); break; case NATIVE_PROCEDURE_TYPE22065: d15900 = t48527.value.native_procedure_type22065; b27021 = t48528; t48510 = f15900(); break; case NATIVE_PROCEDURE_TYPE22073: d15885 = t48527.value.native_procedure_type22073; b27015 = t48528; t48510 = f15885(); break; case NATIVE_PROCEDURE_TYPE22082: d17890 = t48527.value.native_procedure_type22082; b31082 = t48528; t48510 = f17890(); break; case NATIVE_PROCEDURE_TYPE22092: t48510 = f17878((t48527.value.native_procedure_type22092), t48528); break; case NATIVE_PROCEDURE_TYPE22101: d17636 = t48527.value.native_procedure_type22101; b30537 = t48528; t48510 = f17636(); break; case NATIVE_PROCEDURE_TYPE22103: t48510 = f17637((t48527.value.native_procedure_type22103), t48528); break; case NATIVE_PROCEDURE_TYPE22105: t48510 = f17638((t48527.value.native_procedure_type22105), t48528); break; case NATIVE_PROCEDURE_TYPE22107: t48510 = f17486((t48527.value.native_procedure_type22107), t48528); break; case NATIVE_PROCEDURE_TYPE22113: t48510 = f17932((t48527.value.native_procedure_type22113), t48528); break; case NATIVE_PROCEDURE_TYPE22118: t48510 = f17956((t48527.value.native_procedure_type22118), t48528); break; case NATIVE_PROCEDURE_TYPE22120: t48510 = f17944((t48527.value.native_procedure_type22120), t48528); break; case NATIVE_PROCEDURE_TYPE22125: t48510 = f17975((t48527.value.native_procedure_type22125), t48528); break; case NATIVE_PROCEDURE_TYPE22128: t48510 = f17965((t48527.value.native_procedure_type22128), t48528); break; case NATIVE_PROCEDURE_TYPE22131: d18030 = t48527.value.native_procedure_type22131; b31667 = t48528; t48510 = f18030(); break; case NATIVE_PROCEDURE_TYPE22133: t48510 = f18031((t48527.value.native_procedure_type22133), t48528); break; case NATIVE_PROCEDURE_TYPE22136: t48510 = f18007((t48527.value.native_procedure_type22136), t48528); break; case NATIVE_PROCEDURE_TYPE22138: t48510 = f17985((t48527.value.native_procedure_type22138), t48528); break; case NATIVE_PROCEDURE_TYPE22140: t48510 = f18071((t48527.value.native_procedure_type22140), t48528); break; case NATIVE_PROCEDURE_TYPE22142: t48510 = f18089((t48527.value.native_procedure_type22142), t48528); break; case NATIVE_PROCEDURE_TYPE22144: t48510 = f18080((t48527.value.native_procedure_type22144), t48528); break; case NATIVE_PROCEDURE_TYPE22146: t48510 = f18062((t48527.value.native_procedure_type22146), t48528); break; case NATIVE_PROCEDURE_TYPE22149: t48510 = f18120((t48527.value.native_procedure_type22149), t48528); break; case NATIVE_PROCEDURE_TYPE22155: d18147 = t48527.value.native_procedure_type22155; b32201 = t48528; t48510 = f18147(); break; case NATIVE_PROCEDURE_TYPE22161: d18134 = t48527.value.native_procedure_type22161; b32153 = t48528; t48510 = f18134(); break; case NATIVE_PROCEDURE_TYPE22163: d18132 = t48527.value.native_procedure_type22163; b32151 = t48528; t48510 = f18132(); break; case NATIVE_PROCEDURE_TYPE22166: t48530 = f18041((t48527.value.native_procedure_type22166), t48528); t48510.tag = STRUCTURE_TYPE24753; t48510.value.structure_type24753 = t48530; break; default: t48510 = f17689(t48527.value.native_procedure_type23298);} /* x132923 stalin.sc:16869:589379 */ /* x132905 stalin.sc:16866:589271 */ t48511 = FALSE_TYPE; return f13672(t48508, t48509, t48510, t48511); l7303: /* x132927 stalin.sc:16870:589389 */ /* x132926 stalin.sc:16870:589393 */ t48505 = a26087; /* x132925 stalin.sc:16870:589390 */ t48504 = p14676->a26082; switch (t48504.tag) {case NATIVE_PROCEDURE_TYPE20286: return f15486((t48504.value.native_procedure_type20286), t48505); case NATIVE_PROCEDURE_TYPE20496: return f15475((t48504.value.native_procedure_type20496), t48505); case NATIVE_PROCEDURE_TYPE20552: return f15458((t48504.value.native_procedure_type20552), t48505); case NATIVE_PROCEDURE_TYPE20758: d16096 = t48504.value.native_procedure_type20758; b27143 = t48505; return f16096(); case NATIVE_PROCEDURE_TYPE20783: d15771 = t48504.value.native_procedure_type20783; b26894 = t48505; return f15771(); case NATIVE_PROCEDURE_TYPE20851: return f14712(t48504.value.native_procedure_type20851); case NATIVE_PROCEDURE_TYPE20914: return f16432((t48504.value.native_procedure_type20914), t48505); case NATIVE_PROCEDURE_TYPE20916: return f16416((t48504.value.native_procedure_type20916), t48505); case NATIVE_PROCEDURE_TYPE20919: return f16631((t48504.value.native_procedure_type20919), t48505); case NATIVE_PROCEDURE_TYPE20928: return f16597((t48504.value.native_procedure_type20928), t48505); case NATIVE_PROCEDURE_TYPE21037: return f16700((t48504.value.native_procedure_type21037), t48505); case NATIVE_PROCEDURE_TYPE21043: return f16678((t48504.value.native_procedure_type21043), t48505); case NATIVE_PROCEDURE_TYPE21049: return f16736((t48504.value.native_procedure_type21049), t48505); case NATIVE_PROCEDURE_TYPE21060: d15570 = t48504.value.native_procedure_type21060; b26729 = t48505; return f15570(); case NATIVE_PROCEDURE_TYPE21066: return f16821((t48504.value.native_procedure_type21066), t48505); case NATIVE_PROCEDURE_TYPE21083: return f16720((t48504.value.native_procedure_type21083), t48505); case NATIVE_PROCEDURE_TYPE21088: return f16646((t48504.value.native_procedure_type21088), t48505); case NATIVE_PROCEDURE_TYPE21091: return f16853((t48504.value.native_procedure_type21091), t48505); case NATIVE_PROCEDURE_TYPE21109: d15579 = t48504.value.native_procedure_type21109; b26749 = t48505; return f15579(); case NATIVE_PROCEDURE_TYPE21111: return f16908((t48504.value.native_procedure_type21111), t48505); case NATIVE_PROCEDURE_TYPE21118: return f16880((t48504.value.native_procedure_type21118), t48505); case NATIVE_PROCEDURE_TYPE21138: return f16981((t48504.value.native_procedure_type21138), t48505); case NATIVE_PROCEDURE_TYPE21148: return f17057((t48504.value.native_procedure_type21148), t48505); case NATIVE_PROCEDURE_TYPE21153: d17117 = t48504.value.native_procedure_type21153; b29067 = t48505; return f17117(); case NATIVE_PROCEDURE_TYPE21155: return f17118((t48504.value.native_procedure_type21155), t48505); case NATIVE_PROCEDURE_TYPE21171: d17084 = t48504.value.native_procedure_type21171; b29016 = t48505; return f17084(); case NATIVE_PROCEDURE_TYPE21173: return f17085((t48504.value.native_procedure_type21173), t48505); case NATIVE_PROCEDURE_TYPE21202: return f17018((t48504.value.native_procedure_type21202), t48505); case NATIVE_PROCEDURE_TYPE21226: return f16940((t48504.value.native_procedure_type21226), t48505); case NATIVE_PROCEDURE_TYPE21229: return f16839((t48504.value.native_procedure_type21229), t48505); case NATIVE_PROCEDURE_TYPE21235: d17183 = t48504.value.native_procedure_type21235; b29169 = t48505; return f17183(); case NATIVE_PROCEDURE_TYPE21237: return f17184((t48504.value.native_procedure_type21237), t48505); case NATIVE_PROCEDURE_TYPE21257: return f17221((t48504.value.native_procedure_type21257), t48505); case NATIVE_PROCEDURE_TYPE21260: return f17208((t48504.value.native_procedure_type21260), t48505); case NATIVE_PROCEDURE_TYPE21266: return f17253((t48504.value.native_procedure_type21266), t48505); case NATIVE_PROCEDURE_TYPE21269: return f17290((t48504.value.native_procedure_type21269), t48505); case NATIVE_PROCEDURE_TYPE21275: return f17328((t48504.value.native_procedure_type21275), t48505); case NATIVE_PROCEDURE_TYPE21281: return f17309((t48504.value.native_procedure_type21281), t48505); case NATIVE_PROCEDURE_TYPE21287: return f17271((t48504.value.native_procedure_type21287), t48505); case NATIVE_PROCEDURE_TYPE21297: return f17237((t48504.value.native_procedure_type21297), t48505); case NATIVE_PROCEDURE_TYPE21300: return f17353((t48504.value.native_procedure_type21300), t48505); case NATIVE_PROCEDURE_TYPE21305: return f17377((t48504.value.native_procedure_type21305), t48505); case NATIVE_PROCEDURE_TYPE21310: return f17365((t48504.value.native_procedure_type21310), t48505); case NATIVE_PROCEDURE_TYPE21315: return f17401((t48504.value.native_procedure_type21315), t48505); case NATIVE_PROCEDURE_TYPE21320: d17431 = t48504.value.native_procedure_type21320; b29911 = t48505; return f17431(); case NATIVE_PROCEDURE_TYPE21325: return f17433((t48504.value.native_procedure_type21325), t48505); case NATIVE_PROCEDURE_TYPE21330: return f17426((t48504.value.native_procedure_type21330), t48505); case NATIVE_PROCEDURE_TYPE21335: return f17413((t48504.value.native_procedure_type21335), t48505); case NATIVE_PROCEDURE_TYPE21340: d17465 = t48504.value.native_procedure_type21340; b30003 = t48505; return f17465(); case NATIVE_PROCEDURE_TYPE21342: return f17466((t48504.value.native_procedure_type21342), t48505); case NATIVE_PROCEDURE_TYPE21349: return f17448((t48504.value.native_procedure_type21349), t48505); case NATIVE_PROCEDURE_TYPE21354: return f17389((t48504.value.native_procedure_type21354), t48505); case NATIVE_PROCEDURE_TYPE21359: return f17341((t48504.value.native_procedure_type21359), t48505); case NATIVE_PROCEDURE_TYPE21364: d17150 = t48504.value.native_procedure_type21364; b29118 = t48505; return f17150(); case NATIVE_PROCEDURE_TYPE21366: return f17151((t48504.value.native_procedure_type21366), t48505); case NATIVE_PROCEDURE_TYPE21382: return f17499((t48504.value.native_procedure_type21382), t48505); case NATIVE_PROCEDURE_TYPE21388: return f17524((t48504.value.native_procedure_type21388), t48505); case NATIVE_PROCEDURE_TYPE21394: d17598 = t48504.value.native_procedure_type21394; b30396 = t48505; return f17598(); case NATIVE_PROCEDURE_TYPE21415: t48506 = f19627(t48505); r14676.tag = STRUCTURE_TYPE24753; r14676.value.structure_type24753 = t48506; return r14676; case NATIVE_PROCEDURE_TYPE21897: return f15811((t48504.value.native_procedure_type21897), t48505); case NATIVE_PROCEDURE_TYPE21904: /* x298259 stalin.sc:19531:682748 */ /* x298258 stalin.sc:19531:682749 */ /* x303548 stalin.sc:14693:514793 */ r14676.tag = STRING_TYPE; r14676.value.string_type = ""; return r14676; case NATIVE_PROCEDURE_TYPE21945: d17625 = t48504.value.native_procedure_type21945; b30489 = t48505; return f17625(); case NATIVE_PROCEDURE_TYPE21947: return f17626((t48504.value.native_procedure_type21947), t48505); case NATIVE_PROCEDURE_TYPE21949: return f17612((t48504.value.native_procedure_type21949), t48505); case NATIVE_PROCEDURE_TYPE21953: d17572 = t48504.value.native_procedure_type21953; b30333 = t48505; return f17572(); case NATIVE_PROCEDURE_TYPE21957: return f17573((t48504.value.native_procedure_type21957), t48505); case NATIVE_PROCEDURE_TYPE21962: d17566 = t48504.value.native_procedure_type21962; return f17566(); case NATIVE_PROCEDURE_TYPE21964: return f17567(t48504.value.native_procedure_type21964); case NATIVE_PROCEDURE_TYPE21967: d17561 = t48504.value.native_procedure_type21967; return f17561(); case NATIVE_PROCEDURE_TYPE21969: return f17562(t48504.value.native_procedure_type21969); case NATIVE_PROCEDURE_TYPE21972: d17556 = t48504.value.native_procedure_type21972; return f17556(); case NATIVE_PROCEDURE_TYPE21974: /* x297825 stalin.sc:23400:816144 */ /* x297824 stalin.sc:23400:816145 */ /* x303324 stalin.sc:14693:514793 */ r14676.tag = STRING_TYPE; r14676.value.string_type = ""; return r14676; case NATIVE_PROCEDURE_TYPE21976: return f17533((t48504.value.native_procedure_type21976), t48505); case NATIVE_PROCEDURE_TYPE21979: d17706 = t48504.value.native_procedure_type21979; b30702 = t48505; return f17706(); case NATIVE_PROCEDURE_TYPE21983: d17708 = t48504.value.native_procedure_type21983; b30704 = t48505; return f17708(); case NATIVE_PROCEDURE_TYPE21985: return f17709((t48504.value.native_procedure_type21985), t48505); case NATIVE_PROCEDURE_TYPE21998: return f17688((t48504.value.native_procedure_type21998), t48505); case NATIVE_PROCEDURE_TYPE22001: return f17681(t48504.value.native_procedure_type22001); case NATIVE_PROCEDURE_TYPE22004: return f17678(t48504.value.native_procedure_type22004); case NATIVE_PROCEDURE_TYPE22007: /* x297762 stalin.sc:23690:824240 */ /* x297761 stalin.sc:23690:824241 */ /* x303290 stalin.sc:14693:514793 */ r14676.tag = STRING_TYPE; r14676.value.string_type = ""; return r14676; case NATIVE_PROCEDURE_TYPE22009: return f17760((t48504.value.native_procedure_type22009), t48505); case NATIVE_PROCEDURE_TYPE22011: d17804 = t48504.value.native_procedure_type22011; b30911 = t48505; return f17804(); case NATIVE_PROCEDURE_TYPE22013: return f17805((t48504.value.native_procedure_type22013), t48505); case NATIVE_PROCEDURE_TYPE22015: d17784 = t48504.value.native_procedure_type22015; b30860 = t48505; return f17784(); case NATIVE_PROCEDURE_TYPE22017: return f17785((t48504.value.native_procedure_type22017), t48505); case NATIVE_PROCEDURE_TYPE22038: d17840 = t48504.value.native_procedure_type22038; b31010 = t48505; return f17840(); case NATIVE_PROCEDURE_TYPE22065: d15900 = t48504.value.native_procedure_type22065; b27021 = t48505; return f15900(); case NATIVE_PROCEDURE_TYPE22073: d15885 = t48504.value.native_procedure_type22073; b27015 = t48505; return f15885(); case NATIVE_PROCEDURE_TYPE22082: d17890 = t48504.value.native_procedure_type22082; b31082 = t48505; return f17890(); case NATIVE_PROCEDURE_TYPE22092: return f17878((t48504.value.native_procedure_type22092), t48505); case NATIVE_PROCEDURE_TYPE22101: d17636 = t48504.value.native_procedure_type22101; b30537 = t48505; return f17636(); case NATIVE_PROCEDURE_TYPE22103: return f17637((t48504.value.native_procedure_type22103), t48505); case NATIVE_PROCEDURE_TYPE22105: return f17638((t48504.value.native_procedure_type22105), t48505); case NATIVE_PROCEDURE_TYPE22107: return f17486((t48504.value.native_procedure_type22107), t48505); case NATIVE_PROCEDURE_TYPE22113: return f17932((t48504.value.native_procedure_type22113), t48505); case NATIVE_PROCEDURE_TYPE22118: return f17956((t48504.value.native_procedure_type22118), t48505); case NATIVE_PROCEDURE_TYPE22120: return f17944((t48504.value.native_procedure_type22120), t48505); case NATIVE_PROCEDURE_TYPE22125: return f17975((t48504.value.native_procedure_type22125), t48505); case NATIVE_PROCEDURE_TYPE22128: return f17965((t48504.value.native_procedure_type22128), t48505); case NATIVE_PROCEDURE_TYPE22131: d18030 = t48504.value.native_procedure_type22131; b31667 = t48505; return f18030(); case NATIVE_PROCEDURE_TYPE22133: return f18031((t48504.value.native_procedure_type22133), t48505); case NATIVE_PROCEDURE_TYPE22136: return f18007((t48504.value.native_procedure_type22136), t48505); case NATIVE_PROCEDURE_TYPE22138: return f17985((t48504.value.native_procedure_type22138), t48505); case NATIVE_PROCEDURE_TYPE22140: return f18071((t48504.value.native_procedure_type22140), t48505); case NATIVE_PROCEDURE_TYPE22142: return f18089((t48504.value.native_procedure_type22142), t48505); case NATIVE_PROCEDURE_TYPE22144: return f18080((t48504.value.native_procedure_type22144), t48505); case NATIVE_PROCEDURE_TYPE22146: return f18062((t48504.value.native_procedure_type22146), t48505); case NATIVE_PROCEDURE_TYPE22149: return f18120((t48504.value.native_procedure_type22149), t48505); case NATIVE_PROCEDURE_TYPE22155: d18147 = t48504.value.native_procedure_type22155; b32201 = t48505; return f18147(); case NATIVE_PROCEDURE_TYPE22161: d18134 = t48504.value.native_procedure_type22161; b32153 = t48505; return f18134(); case NATIVE_PROCEDURE_TYPE22163: d18132 = t48504.value.native_procedure_type22163; b32151 = t48505; return f18132(); case NATIVE_PROCEDURE_TYPE22166: t48507 = f18041((t48504.value.native_procedure_type22166), t48505); r14676.tag = STRUCTURE_TYPE24753; r14676.value.structure_type24753 = t48507; return r14676; default: return f17689(t48504.value.native_procedure_type23298);}} /* [inside COMPILE-SQUISHED-DEFAULTLESS-TYPE-SWITCH 14675] */ char *f14675(struct p14673 *p14675, struct w49 a26086) {unsigned t48531; struct w49 t48532; struct w49 t48533; struct w49 t48534; /* x132881 stalin.sc:16861:589116 */ /* x132880 stalin.sc:16861:589126 */ /* x132878 stalin.sc:16861:589138 */ t48533 = a26086; /* x132879 stalin.sc:16861:589140 */ t48534 = p14675->a26080; /* x132877 stalin.sc:16861:589127 */ t48531 = f14564(t48533, t48534); /* x132876 stalin.sc:16861:589117 */ /* MOVE: dispatching squished to general */ if (t48531==FALSE_TYPE) t48532.tag = (unsigned)t48531; else {t48532.tag = FIXNUM_TYPE; t48532.value.fixnum_type = (int)(((int)t48531)>>1);} return f13530(t48532);} /* COMPILE-SQUISHED-DEFAULTLESS-TYPE-SWITCH[14673] */ struct w49 f14673(struct w12224 a26079, struct w49 a26080, struct w49 a26081, struct w155862 a26082, unsigned a26083) {struct w12224 a26084; /* US2 */ struct w12224 a26085; /* US1 */ struct w12224 t48535; struct w228245 t48536; struct w49 t48537; struct structure_type24753 *t48538; struct p14673 *t48539; struct w12224 t48540; struct w12224 t48541; struct w49 t48542; struct structure_type24753 *t48543; struct structure_type24753 *t48544; struct w49 t48545; unsigned t48546; struct w12224 t48547; struct w36270 t48548; struct w49 t48549; struct structure_type24753 *t48550; struct w155862 t48551; struct w12224 t48552; struct w36270 t48553; struct w49 t48554; struct structure_type24753 *t48555; struct structure_type24753 *t48556; struct structure_type24753 *t48557; struct structure_type24753 *t48558; unsigned t48559; struct w49 t48560; struct w49 t48561; struct w49 t48562; struct p14673 *t48563; struct w12224 t48564; struct w36270 t48565; struct w49 t48566; struct structure_type24753 *t48567; struct p14673 *t48568; struct w12224 t48569; struct w36270 t48570; struct w49 t48571; struct structure_type24753 *t48572; struct p14673 *t48573; struct w12224 t48574; struct w228345 t48575; struct w49 t48576; struct structure_type24753 *t48577; struct w12224 t48578; unsigned t48579; struct w49 t48580; struct w12224 t48581; unsigned t48582; struct w49 t48583; struct w12224 t48584; struct w227671 t48585; struct w49 t48586; struct w49 t48587; struct structure_type24753 *t48588; struct structure_type24753 *t48589; unsigned t48590; struct w12224 t48591; struct w36270 t48592; struct w49 t48593; struct structure_type24753 *t48594; struct w155862 t48595; struct w12224 t48596; struct w36270 t48597; struct w49 t48598; struct structure_type24753 *t48599; struct p14673 *e14673; struct p14673 *p14674; e14673 = (struct p14673 *)alloca(sizeof(struct p14673)); if (e14673==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e14673->a26079 = a26079; e14673->a26080 = a26080; e14673->a26081 = a26081; e14673->a26082 = a26082; /* x132977 stalin.sc:16844:588435 */ /* x132847 stalin.sc:16844:588439 */ /* x132846 stalin.sc:16844:588458 */ t48535 = e14673->a26079; /* x132845 stalin.sc:16844:588446 */ /* x132844 stalin.sc:16844:588440 */ t48536.tag = NATIVE_PROCEDURE_TYPE7232; t48537 = *((struct w49 *)(&t48535)); t48538 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t48536, t48537, t48538)==FALSE_TYPE) goto l7307; /* x132859 stalin.sc:16845:588467 */ /* x132849 stalin.sc:16845:588489 */ t48587 = e14673->a26081; /* x132853 stalin.sc:16845:588492 */ /* x132852 stalin.sc:16845:588508 */ t48591 = e14673->a26079; /* x132851 stalin.sc:16845:588497 */ /* x132850 stalin.sc:16845:588493 */ t48592.tag = NATIVE_PROCEDURE_TYPE6764; t48593 = *((struct w49 *)(&t48591)); t48594 = (struct structure_type24753 *)NULL_TYPE; t48588 = f27731(t48592, t48593, t48594); /* x132857 stalin.sc:16845:588512 */ /* x132856 stalin.sc:16845:588520 */ t48596 = e14673->a26079; /* x132855 stalin.sc:16845:588517 */ t48595 = e14673->a26082; /* x132854 stalin.sc:16845:588513 */ t48597 = *((struct w36270 *)(&t48595)); t48598 = *((struct w49 *)(&t48596)); t48599 = (struct structure_type24753 *)NULL_TYPE; t48589 = f27731(t48597, t48598, t48599); /* x132858 stalin.sc:16845:588524 */ t48590 = a26083; /* x132848 stalin.sc:16845:588468 */ return f13687(t48587, t48588, t48589, t48590); l7307: /* x132976 stalin.sc:16846:588533 */ /* x132971 stalin.sc:16850:588784 */ /* x132951 stalin.sc:16850:588788 */ /* x132950 stalin.sc:16852:588869 */ t48574 = e14673->a26079; /* x132949 stalin.sc:16850:588794 */ t48573 = e14673; /* x132937 stalin.sc:16850:588789 */ t48575.tag = NATIVE_PROCEDURE_TYPE20457; t48575.value.native_procedure_type20457 = t48573; t48576 = *((struct w49 *)(&t48574)); t48577 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t48575, t48576, t48577).tag)==FALSE_TYPE) goto l7309; /* x132966 stalin.sc:16853:588879 */ /* x132964 stalin.sc:16854:588897 */ /* x132965 stalin.sc:16854:588946 */ t48581 = e14673->a26079; /* x132952 stalin.sc:16853:588880 */ t48582 = NATIVE_PROCEDURE_TYPE20458; t48583 = *((struct w49 *)(&t48581)); t48540 = f1218(t48582, t48583); goto l7310; l7309: /* x132970 stalin.sc:16855:588956 */ /* x132968 stalin.sc:16855:588967 */ /* x132969 stalin.sc:16855:588979 */ t48578 = e14673->a26079; /* x132967 stalin.sc:16855:588957 */ t48579 = NATIVE_PROCEDURE_TYPE7232; t48580 = *((struct w49 *)(&t48578)); t48540 = f1218(t48579, t48580); l7310: /* x132975 stalin.sc:16846:588544 */ /* x132973 stalin.sc:16846:588559 */ /* x132974 stalin.sc:16846:588571 */ t48584 = e14673->a26079; /* x132972 stalin.sc:16846:588545 */ t48585.tag = NATIVE_PROCEDURE_TYPE7232; t48586 = *((struct w49 *)(&t48584)); t48541 = f1226(t48585, t48586); /* x132936 */ t48539 = e14673; p14674 = t48539; a26084 = t48540; a26085 = t48541; /* x132935 stalin.sc:16856:588992 */ /* x132861 stalin.sc:16856:589002 */ t48542 = p14674->a26081; /* x132865 stalin.sc:16857:589007 */ /* x132864 stalin.sc:16857:589023 */ t48547 = a26085; /* x132863 stalin.sc:16857:589012 */ /* x132862 stalin.sc:16857:589008 */ t48548.tag = NATIVE_PROCEDURE_TYPE6764; t48549 = *((struct w49 *)(&t48547)); t48550 = (struct structure_type24753 *)NULL_TYPE; t48543 = f27731(t48548, t48549, t48550); /* x132869 stalin.sc:16858:589030 */ /* x132868 stalin.sc:16858:589038 */ t48552 = a26085; /* x132867 stalin.sc:16858:589035 */ t48551 = p14674->a26082; /* x132866 stalin.sc:16858:589031 */ t48553 = *((struct w36270 *)(&t48551)); t48554 = *((struct w49 *)(&t48552)); t48555 = (struct structure_type24753 *)NULL_TYPE; t48544 = f27731(t48553, t48554, t48555); /* x132933 stalin.sc:16859:589045 */ /* x132874 stalin.sc:16860:589070 */ /* x132872 stalin.sc:16860:589090 */ t48561 = p14674->a26081; /* x132873 stalin.sc:16860:589093 */ t48562 = p14674->a26080; /* x132871 stalin.sc:16860:589071 */ t48556 = f14594(t48561, t48562); /* x132884 stalin.sc:16861:589099 */ /* x132883 stalin.sc:16861:589145 */ t48564 = a26084; /* x132882 stalin.sc:16861:589104 */ t48563 = p14674; /* x132875 stalin.sc:16861:589100 */ t48565.tag = NATIVE_PROCEDURE_TYPE20461; t48565.value.native_procedure_type20461 = t48563; t48566 = *((struct w49 *)(&t48564)); t48567 = (struct structure_type24753 *)NULL_TYPE; t48557 = f27731(t48565, t48566, t48567); /* x132931 stalin.sc:16862:589153 */ /* x132930 stalin.sc:16871:589406 */ t48569 = a26084; /* x132929 stalin.sc:16862:589158 */ t48568 = p14674; /* x132885 stalin.sc:16862:589154 */ t48570.tag = NATIVE_PROCEDURE_TYPE20460; t48570.value.native_procedure_type20460 = t48568; t48571 = *((struct w49 *)(&t48569)); t48572 = (struct structure_type24753 *)NULL_TYPE; t48558 = f27731(t48570, t48571, t48572); /* x132932 stalin.sc:16872:589414 */ t48559 = a26083; /* x132870 stalin.sc:16859:589046 */ t48560.tag = STRUCTURE_TYPE24753; t48560.value.structure_type24753 = t48556; t48545 = f13687(t48560, t48557, t48558, t48559); /* x132934 stalin.sc:16873:589420 */ t48546 = a26083; /* x132860 stalin.sc:16856:588993 */ return f13676(t48542, t48543, t48544, t48545, t48546);} /* C[14671] */ struct w49 f14671(struct p14646 *p14671, struct w49 a26078) {struct w49 r14671; struct w49 t48600; struct w12224 t48601; struct w49 t48602; struct w155916 t48603; unsigned t48604; struct structure_type24753 *t48605; unsigned t48606; struct structure_type24753 *t48607; struct structure_type27501 *t48608; unsigned t48609; struct structure_type24753 *t48610; unsigned t48611; struct structure_type24753 *t48612; unsigned t48613; struct structure_type24753 *t48614; struct structure_type27501 *t48615; char *t48616; char *t48617; unsigned t48618; struct structure_type24753 *t48619; unsigned t48620; struct structure_type24753 *t48621; unsigned t48622; struct structure_type24753 *t48623; unsigned t48624; struct structure_type24753 *t48625; unsigned t48626; struct structure_type24753 *t48627; unsigned t48628; struct structure_type24753 *t48629; unsigned t48630; struct structure_type24753 *t48631; unsigned t48632; struct structure_type24753 *t48633; unsigned t48634; struct structure_type24753 *t48635; unsigned t48636; struct structure_type24753 *t48637; unsigned t48638; struct structure_type24753 *t48639; unsigned t48640; struct structure_type24753 *t48641; unsigned t48642; struct structure_type24753 *t48643; unsigned t48644; struct structure_type24753 *t48645; unsigned t48646; struct structure_type24753 *t48647; unsigned t48648; struct structure_type24753 *t48649; unsigned t48650; struct structure_type24753 *t48651; unsigned t48652; struct structure_type24753 *t48653; unsigned t48654; struct structure_type24753 *t48655; unsigned t48656; struct structure_type24753 *t48657; unsigned t48658; struct structure_type24753 *t48659; unsigned t48660; struct structure_type24753 *t48661; unsigned t48662; struct structure_type24753 *t48663; unsigned t48664; struct structure_type24753 *t48665; unsigned t48666; struct structure_type24753 *t48667; unsigned t48668; struct structure_type24753 *t48669; unsigned t48670; struct structure_type24753 *t48671; unsigned t48672; struct structure_type24753 *t48673; unsigned t48674; struct structure_type24753 *t48675; unsigned t48676; struct structure_type24753 *t48677; unsigned t48678; struct structure_type24753 *t48679; unsigned t48680; struct structure_type24753 *t48681; unsigned t48682; struct structure_type24753 *t48683; unsigned t48684; struct structure_type24753 *t48685; unsigned t48686; struct structure_type24753 *t48687; unsigned t48688; struct structure_type24753 *t48689; unsigned t48690; struct structure_type24753 *t48691; unsigned t48692; struct structure_type24753 *t48693; unsigned t48694; struct structure_type24753 *t48695; unsigned t48696; struct structure_type24753 *t48697; unsigned t48698; struct structure_type24753 *t48699; unsigned t48700; struct structure_type24753 *t48701; unsigned t48702; struct structure_type24753 *t48703; unsigned t48704; struct structure_type24753 *t48705; unsigned t48706; struct structure_type24753 *t48707; unsigned t48708; struct structure_type24753 *t48709; struct structure_type24753 *t48710; unsigned t48711; struct structure_type24753 *t48712; unsigned t48713; struct structure_type24753 *t48714; unsigned t48715; struct structure_type24753 *t48716; unsigned t48717; struct structure_type24753 *t48718; unsigned t48719; struct structure_type24753 *t48720; unsigned t48721; struct structure_type24753 *t48722; unsigned t48723; struct structure_type24753 *t48724; unsigned t48725; struct structure_type24753 *t48726; unsigned t48727; struct structure_type24753 *t48728; unsigned t48729; struct structure_type24753 *t48730; unsigned t48731; struct structure_type24753 *t48732; unsigned t48733; struct structure_type24753 *t48734; unsigned t48735; struct structure_type24753 *t48736; unsigned t48737; struct structure_type24753 *t48738; unsigned t48739; struct structure_type24753 *t48740; unsigned t48741; struct structure_type24753 *t48742; unsigned t48743; struct structure_type24753 *t48744; unsigned t48745; struct structure_type24753 *t48746; unsigned t48747; struct structure_type24753 *t48748; unsigned t48749; struct structure_type24753 *t48750; unsigned t48751; struct structure_type24753 *t48752; unsigned t48753; struct structure_type24753 *t48754; unsigned t48755; struct structure_type24753 *t48756; unsigned t48757; struct structure_type24753 *t48758; unsigned t48759; struct structure_type24753 *t48760; unsigned t48761; struct structure_type24753 *t48762; unsigned t48763; struct structure_type24753 *t48764; unsigned t48765; struct structure_type24753 *t48766; unsigned t48767; struct structure_type24753 *t48768; unsigned t48769; struct structure_type24753 *t48770; unsigned t48771; struct structure_type24753 *t48772; unsigned t48773; struct structure_type24753 *t48774; unsigned t48775; struct structure_type24753 *t48776; unsigned t48777; struct structure_type24753 *t48778; unsigned t48779; struct structure_type24753 *t48780; unsigned t48781; struct structure_type24753 *t48782; unsigned t48783; struct structure_type24753 *t48784; unsigned t48785; struct structure_type24753 *t48786; unsigned t48787; struct structure_type24753 *t48788; unsigned t48789; struct structure_type24753 *t48790; unsigned t48791; struct structure_type24753 *t48792; unsigned t48793; struct structure_type24753 *t48794; unsigned t48795; struct structure_type24753 *t48796; unsigned t48797; struct structure_type24753 *t48798; unsigned t48799; struct structure_type24753 *t48800; unsigned t48801; struct structure_type24753 *t48802; unsigned t48803; struct structure_type24753 *t48804; unsigned t48805; struct structure_type24753 *t48806; unsigned t48807; struct structure_type24753 *t48808; unsigned t48809; struct structure_type24753 *t48810; unsigned t48811; struct structure_type24753 *t48812; unsigned t48813; struct structure_type24753 *t48814; char *t48815; struct w155919 t48816; struct w49 t48817; struct structure_type24753 *t48818; struct structure_type24753 *t48819; struct p14711 *p14713; struct p16486 *p16598; /* x132834 stalin.sc:16724:584844 */ /* x132827 stalin.sc:16724:584848 */ /* x132825 stalin.sc:16724:584854 */ t48600 = a26078; /* x132826 stalin.sc:16724:584856 */ t48601 = p14671->a26047; /* x132824 stalin.sc:16724:584849 */ t48602 = *((struct w49 *)(&t48601)); if ((f26351(t48600, t48602).tag)==FALSE_TYPE) goto l7312; /* x132830 stalin.sc:16724:584860 */ /* x132829 stalin.sc:16724:584864 */ t48817 = a26078; /* x132828 stalin.sc:16724:584861 */ t48816 = p14671->a26050; switch (t48816.tag) {case NATIVE_PROCEDURE_TYPE20758: d16096 = t48816.value.native_procedure_type20758; b27143 = t48817; return f16096(); case NATIVE_PROCEDURE_TYPE20783: d15771 = t48816.value.native_procedure_type20783; b26894 = t48817; return f15771(); case NATIVE_PROCEDURE_TYPE20851: return f14712(t48816.value.native_procedure_type20851); case NATIVE_PROCEDURE_TYPE20914: return f16432((t48816.value.native_procedure_type20914), t48817); case NATIVE_PROCEDURE_TYPE20916: return f16416((t48816.value.native_procedure_type20916), t48817); case NATIVE_PROCEDURE_TYPE20919: return f16631((t48816.value.native_procedure_type20919), t48817); case NATIVE_PROCEDURE_TYPE20928: return f16597((t48816.value.native_procedure_type20928), t48817); case NATIVE_PROCEDURE_TYPE21037: return f16700((t48816.value.native_procedure_type21037), t48817); case NATIVE_PROCEDURE_TYPE21043: return f16678((t48816.value.native_procedure_type21043), t48817); case NATIVE_PROCEDURE_TYPE21049: return f16736((t48816.value.native_procedure_type21049), t48817); case NATIVE_PROCEDURE_TYPE21060: d15570 = t48816.value.native_procedure_type21060; b26729 = t48817; return f15570(); case NATIVE_PROCEDURE_TYPE21066: return f16821((t48816.value.native_procedure_type21066), t48817); case NATIVE_PROCEDURE_TYPE21083: return f16720((t48816.value.native_procedure_type21083), t48817); case NATIVE_PROCEDURE_TYPE21088: return f16646((t48816.value.native_procedure_type21088), t48817); case NATIVE_PROCEDURE_TYPE21091: return f16853((t48816.value.native_procedure_type21091), t48817); case NATIVE_PROCEDURE_TYPE21109: d15579 = t48816.value.native_procedure_type21109; b26749 = t48817; return f15579(); case NATIVE_PROCEDURE_TYPE21111: return f16908((t48816.value.native_procedure_type21111), t48817); case NATIVE_PROCEDURE_TYPE21118: return f16880((t48816.value.native_procedure_type21118), t48817); case NATIVE_PROCEDURE_TYPE21138: return f16981((t48816.value.native_procedure_type21138), t48817); case NATIVE_PROCEDURE_TYPE21148: return f17057((t48816.value.native_procedure_type21148), t48817); case NATIVE_PROCEDURE_TYPE21153: d17117 = t48816.value.native_procedure_type21153; b29067 = t48817; return f17117(); case NATIVE_PROCEDURE_TYPE21155: return f17118((t48816.value.native_procedure_type21155), t48817); case NATIVE_PROCEDURE_TYPE21171: d17084 = t48816.value.native_procedure_type21171; b29016 = t48817; return f17084(); case NATIVE_PROCEDURE_TYPE21173: return f17085((t48816.value.native_procedure_type21173), t48817); case NATIVE_PROCEDURE_TYPE21202: return f17018((t48816.value.native_procedure_type21202), t48817); case NATIVE_PROCEDURE_TYPE21226: return f16940((t48816.value.native_procedure_type21226), t48817); case NATIVE_PROCEDURE_TYPE21229: return f16839((t48816.value.native_procedure_type21229), t48817); case NATIVE_PROCEDURE_TYPE21235: d17183 = t48816.value.native_procedure_type21235; b29169 = t48817; return f17183(); case NATIVE_PROCEDURE_TYPE21237: return f17184((t48816.value.native_procedure_type21237), t48817); case NATIVE_PROCEDURE_TYPE21257: return f17221((t48816.value.native_procedure_type21257), t48817); case NATIVE_PROCEDURE_TYPE21260: return f17208((t48816.value.native_procedure_type21260), t48817); case NATIVE_PROCEDURE_TYPE21266: return f17253((t48816.value.native_procedure_type21266), t48817); case NATIVE_PROCEDURE_TYPE21269: return f17290((t48816.value.native_procedure_type21269), t48817); case NATIVE_PROCEDURE_TYPE21275: return f17328((t48816.value.native_procedure_type21275), t48817); case NATIVE_PROCEDURE_TYPE21281: return f17309((t48816.value.native_procedure_type21281), t48817); case NATIVE_PROCEDURE_TYPE21287: return f17271((t48816.value.native_procedure_type21287), t48817); case NATIVE_PROCEDURE_TYPE21297: return f17237((t48816.value.native_procedure_type21297), t48817); case NATIVE_PROCEDURE_TYPE21300: return f17353((t48816.value.native_procedure_type21300), t48817); case NATIVE_PROCEDURE_TYPE21305: return f17377((t48816.value.native_procedure_type21305), t48817); case NATIVE_PROCEDURE_TYPE21310: return f17365((t48816.value.native_procedure_type21310), t48817); case NATIVE_PROCEDURE_TYPE21315: return f17401((t48816.value.native_procedure_type21315), t48817); case NATIVE_PROCEDURE_TYPE21320: d17431 = t48816.value.native_procedure_type21320; b29911 = t48817; return f17431(); case NATIVE_PROCEDURE_TYPE21325: return f17433((t48816.value.native_procedure_type21325), t48817); case NATIVE_PROCEDURE_TYPE21330: return f17426((t48816.value.native_procedure_type21330), t48817); case NATIVE_PROCEDURE_TYPE21335: return f17413((t48816.value.native_procedure_type21335), t48817); case NATIVE_PROCEDURE_TYPE21340: d17465 = t48816.value.native_procedure_type21340; b30003 = t48817; return f17465(); case NATIVE_PROCEDURE_TYPE21342: return f17466((t48816.value.native_procedure_type21342), t48817); case NATIVE_PROCEDURE_TYPE21349: return f17448((t48816.value.native_procedure_type21349), t48817); case NATIVE_PROCEDURE_TYPE21354: return f17389((t48816.value.native_procedure_type21354), t48817); case NATIVE_PROCEDURE_TYPE21359: return f17341((t48816.value.native_procedure_type21359), t48817); case NATIVE_PROCEDURE_TYPE21364: d17150 = t48816.value.native_procedure_type21364; b29118 = t48817; return f17150(); case NATIVE_PROCEDURE_TYPE21366: return f17151((t48816.value.native_procedure_type21366), t48817); case NATIVE_PROCEDURE_TYPE21382: return f17499((t48816.value.native_procedure_type21382), t48817); case NATIVE_PROCEDURE_TYPE21388: return f17524((t48816.value.native_procedure_type21388), t48817); case NATIVE_PROCEDURE_TYPE21394: d17598 = t48816.value.native_procedure_type21394; b30396 = t48817; return f17598(); case NATIVE_PROCEDURE_TYPE21415: t48818 = f19627(t48817); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48818; return r14671; case NATIVE_PROCEDURE_TYPE21897: return f15811((t48816.value.native_procedure_type21897), t48817); case NATIVE_PROCEDURE_TYPE21904: /* x298262 stalin.sc:19531:682748 */ /* x298261 stalin.sc:19531:682749 */ /* x303550 stalin.sc:14693:514793 */ r14671.tag = STRING_TYPE; r14671.value.string_type = ""; return r14671; case NATIVE_PROCEDURE_TYPE21945: d17625 = t48816.value.native_procedure_type21945; b30489 = t48817; return f17625(); case NATIVE_PROCEDURE_TYPE21947: return f17626((t48816.value.native_procedure_type21947), t48817); case NATIVE_PROCEDURE_TYPE21949: return f17612((t48816.value.native_procedure_type21949), t48817); case NATIVE_PROCEDURE_TYPE21953: d17572 = t48816.value.native_procedure_type21953; b30333 = t48817; return f17572(); case NATIVE_PROCEDURE_TYPE21957: return f17573((t48816.value.native_procedure_type21957), t48817); case NATIVE_PROCEDURE_TYPE21962: d17566 = t48816.value.native_procedure_type21962; return f17566(); case NATIVE_PROCEDURE_TYPE21964: return f17567(t48816.value.native_procedure_type21964); case NATIVE_PROCEDURE_TYPE21967: d17561 = t48816.value.native_procedure_type21967; return f17561(); case NATIVE_PROCEDURE_TYPE21969: return f17562(t48816.value.native_procedure_type21969); case NATIVE_PROCEDURE_TYPE21972: d17556 = t48816.value.native_procedure_type21972; return f17556(); case NATIVE_PROCEDURE_TYPE21974: /* x297828 stalin.sc:23400:816144 */ /* x297827 stalin.sc:23400:816145 */ /* x303326 stalin.sc:14693:514793 */ r14671.tag = STRING_TYPE; r14671.value.string_type = ""; return r14671; case NATIVE_PROCEDURE_TYPE21976: return f17533((t48816.value.native_procedure_type21976), t48817); case NATIVE_PROCEDURE_TYPE21979: d17706 = t48816.value.native_procedure_type21979; b30702 = t48817; return f17706(); case NATIVE_PROCEDURE_TYPE21983: d17708 = t48816.value.native_procedure_type21983; b30704 = t48817; return f17708(); case NATIVE_PROCEDURE_TYPE21985: return f17709((t48816.value.native_procedure_type21985), t48817); case NATIVE_PROCEDURE_TYPE21998: return f17688((t48816.value.native_procedure_type21998), t48817); case NATIVE_PROCEDURE_TYPE22001: return f17681(t48816.value.native_procedure_type22001); case NATIVE_PROCEDURE_TYPE22004: return f17678(t48816.value.native_procedure_type22004); case NATIVE_PROCEDURE_TYPE22007: /* x297765 stalin.sc:23690:824240 */ /* x297764 stalin.sc:23690:824241 */ /* x303292 stalin.sc:14693:514793 */ r14671.tag = STRING_TYPE; r14671.value.string_type = ""; return r14671; case NATIVE_PROCEDURE_TYPE22009: return f17760((t48816.value.native_procedure_type22009), t48817); case NATIVE_PROCEDURE_TYPE22011: d17804 = t48816.value.native_procedure_type22011; b30911 = t48817; return f17804(); case NATIVE_PROCEDURE_TYPE22013: return f17805((t48816.value.native_procedure_type22013), t48817); case NATIVE_PROCEDURE_TYPE22015: d17784 = t48816.value.native_procedure_type22015; b30860 = t48817; return f17784(); case NATIVE_PROCEDURE_TYPE22017: return f17785((t48816.value.native_procedure_type22017), t48817); case NATIVE_PROCEDURE_TYPE22038: d17840 = t48816.value.native_procedure_type22038; b31010 = t48817; return f17840(); case NATIVE_PROCEDURE_TYPE22065: d15900 = t48816.value.native_procedure_type22065; b27021 = t48817; return f15900(); case NATIVE_PROCEDURE_TYPE22073: d15885 = t48816.value.native_procedure_type22073; b27015 = t48817; return f15885(); case NATIVE_PROCEDURE_TYPE22082: d17890 = t48816.value.native_procedure_type22082; b31082 = t48817; return f17890(); case NATIVE_PROCEDURE_TYPE22092: return f17878((t48816.value.native_procedure_type22092), t48817); case NATIVE_PROCEDURE_TYPE22101: d17636 = t48816.value.native_procedure_type22101; b30537 = t48817; return f17636(); case NATIVE_PROCEDURE_TYPE22103: return f17637((t48816.value.native_procedure_type22103), t48817); case NATIVE_PROCEDURE_TYPE22105: return f17638((t48816.value.native_procedure_type22105), t48817); case NATIVE_PROCEDURE_TYPE22107: return f17486((t48816.value.native_procedure_type22107), t48817); case NATIVE_PROCEDURE_TYPE22113: return f17932((t48816.value.native_procedure_type22113), t48817); case NATIVE_PROCEDURE_TYPE22118: return f17956((t48816.value.native_procedure_type22118), t48817); case NATIVE_PROCEDURE_TYPE22120: return f17944((t48816.value.native_procedure_type22120), t48817); case NATIVE_PROCEDURE_TYPE22125: return f17975((t48816.value.native_procedure_type22125), t48817); case NATIVE_PROCEDURE_TYPE22128: return f17965((t48816.value.native_procedure_type22128), t48817); case NATIVE_PROCEDURE_TYPE22131: d18030 = t48816.value.native_procedure_type22131; b31667 = t48817; return f18030(); case NATIVE_PROCEDURE_TYPE22133: return f18031((t48816.value.native_procedure_type22133), t48817); case NATIVE_PROCEDURE_TYPE22136: return f18007((t48816.value.native_procedure_type22136), t48817); case NATIVE_PROCEDURE_TYPE22138: return f17985((t48816.value.native_procedure_type22138), t48817); case NATIVE_PROCEDURE_TYPE22140: return f18071((t48816.value.native_procedure_type22140), t48817); case NATIVE_PROCEDURE_TYPE22142: return f18089((t48816.value.native_procedure_type22142), t48817); case NATIVE_PROCEDURE_TYPE22144: return f18080((t48816.value.native_procedure_type22144), t48817); case NATIVE_PROCEDURE_TYPE22146: return f18062((t48816.value.native_procedure_type22146), t48817); case NATIVE_PROCEDURE_TYPE22149: return f18120((t48816.value.native_procedure_type22149), t48817); case NATIVE_PROCEDURE_TYPE22155: d18147 = t48816.value.native_procedure_type22155; b32201 = t48817; return f18147(); case NATIVE_PROCEDURE_TYPE22161: d18134 = t48816.value.native_procedure_type22161; b32153 = t48817; return f18134(); case NATIVE_PROCEDURE_TYPE22163: d18132 = t48816.value.native_procedure_type22163; b32151 = t48817; return f18132(); case NATIVE_PROCEDURE_TYPE22166: t48819 = f18041((t48816.value.native_procedure_type22166), t48817); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48819; return r14671; default: return f17689(t48816.value.native_procedure_type23298);} l7312: /* x132833 stalin.sc:16724:584867 */ /* x132832 stalin.sc:16724:584871 */ /* x132831 stalin.sc:16724:584868 */ t48603 = p14671->a26051; switch (t48603.tag) {case NATIVE_PROCEDURE_TYPE20757: t48604 = FALSE_TYPE; t48605 = f16097((t48603.value.native_procedure_type20757), t48604); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48605; return r14671; case NATIVE_PROCEDURE_TYPE20782: t48606 = FALSE_TYPE; t48607 = f15772((t48603.value.native_procedure_type20782), t48606); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48607; return r14671; case NATIVE_PROCEDURE_TYPE20850: p14713 = t48603.value.native_procedure_type20850; /* x133733 stalin.sc:17033:595793 */ /* x133732 stalin.sc:17033:595807 */ t48608 = p14713->a26136; /* x133731 stalin.sc:17033:595794 */ return f14708(t48608); case NATIVE_PROCEDURE_TYPE20913: t48609 = FALSE_TYPE; t48610 = f16433((t48603.value.native_procedure_type20913), t48609); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48610; return r14671; case NATIVE_PROCEDURE_TYPE20915: t48611 = FALSE_TYPE; t48612 = f16417((t48603.value.native_procedure_type20915), t48611); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48612; return r14671; case NATIVE_PROCEDURE_TYPE20918: t48613 = FALSE_TYPE; t48614 = f16635((t48603.value.native_procedure_type20918), t48613); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48614; return r14671; case NATIVE_PROCEDURE_TYPE20927: p16598 = t48603.value.native_procedure_type20927; /* x156615 stalin.sc:21738:761657 */ /* x156614 stalin.sc:21738:761670 */ t48615 = p16598->a27722; /* x156613 stalin.sc:21738:761658 */ return f14707(t48615); case NATIVE_PROCEDURE_TYPE21036: /* x157328 stalin.sc:21885:766135 */ /* x157327 stalin.sc:21885:766136 */ /* x295793 QobiScheme.sc:166:5314 */ /* x295792 QobiScheme.sc:166:5321 */ t48616 = "This shouldn\'t happen"; /* x295791 QobiScheme.sc:166:5315 */ stalin_panic(t48616); case NATIVE_PROCEDURE_TYPE21042: /* x157150 stalin.sc:21855:765176 */ /* x157149 stalin.sc:21855:765177 */ /* x295789 QobiScheme.sc:166:5314 */ /* x295788 QobiScheme.sc:166:5321 */ t48617 = "This shouldn\'t happen"; /* x295787 QobiScheme.sc:166:5315 */ stalin_panic(t48617); case NATIVE_PROCEDURE_TYPE21048: t48618 = FALSE_TYPE; t48619 = f16737((t48603.value.native_procedure_type21048), t48618); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48619; return r14671; case NATIVE_PROCEDURE_TYPE21059: t48620 = FALSE_TYPE; t48621 = f15571((t48603.value.native_procedure_type21059), t48620); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48621; return r14671; case NATIVE_PROCEDURE_TYPE21065: t48622 = FALSE_TYPE; t48623 = f16830((t48603.value.native_procedure_type21065), t48622); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48623; return r14671; case NATIVE_PROCEDURE_TYPE21082: t48624 = FALSE_TYPE; t48625 = f16721((t48603.value.native_procedure_type21082), t48624); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48625; return r14671; case NATIVE_PROCEDURE_TYPE21087: t48626 = FALSE_TYPE; t48627 = f16648((t48603.value.native_procedure_type21087), t48626); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48627; return r14671; case NATIVE_PROCEDURE_TYPE21090: t48628 = FALSE_TYPE; t48629 = f16858((t48603.value.native_procedure_type21090), t48628); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48629; return r14671; case NATIVE_PROCEDURE_TYPE21108: t48630 = FALSE_TYPE; t48631 = f15580((t48603.value.native_procedure_type21108), t48630); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48631; return r14671; case NATIVE_PROCEDURE_TYPE21110: t48632 = FALSE_TYPE; t48633 = f16912((t48603.value.native_procedure_type21110), t48632); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48633; return r14671; case NATIVE_PROCEDURE_TYPE21117: t48634 = FALSE_TYPE; t48635 = f16884((t48603.value.native_procedure_type21117), t48634); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48635; return r14671; case NATIVE_PROCEDURE_TYPE21137: t48636 = FALSE_TYPE; t48637 = f16982((t48603.value.native_procedure_type21137), t48636); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48637; return r14671; case NATIVE_PROCEDURE_TYPE21147: t48638 = FALSE_TYPE; t48639 = f17061((t48603.value.native_procedure_type21147), t48638); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48639; return r14671; case NATIVE_PROCEDURE_TYPE21152: t48640 = FALSE_TYPE; t48641 = f17134((t48603.value.native_procedure_type21152), t48640); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48641; return r14671; case NATIVE_PROCEDURE_TYPE21154: t48642 = FALSE_TYPE; t48643 = f17133((t48603.value.native_procedure_type21154), t48642); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48643; return r14671; case NATIVE_PROCEDURE_TYPE21170: t48644 = FALSE_TYPE; t48645 = f17101((t48603.value.native_procedure_type21170), t48644); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48645; return r14671; case NATIVE_PROCEDURE_TYPE21172: t48646 = FALSE_TYPE; t48647 = f17100((t48603.value.native_procedure_type21172), t48646); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48647; return r14671; case NATIVE_PROCEDURE_TYPE21201: t48648 = FALSE_TYPE; t48649 = f17026((t48603.value.native_procedure_type21201), t48648); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48649; return r14671; case NATIVE_PROCEDURE_TYPE21225: t48650 = FALSE_TYPE; t48651 = f16941((t48603.value.native_procedure_type21225), t48650); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48651; return r14671; case NATIVE_PROCEDURE_TYPE21228: t48652 = FALSE_TYPE; t48653 = f16844((t48603.value.native_procedure_type21228), t48652); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48653; return r14671; case NATIVE_PROCEDURE_TYPE21234: t48654 = FALSE_TYPE; t48655 = f17200((t48603.value.native_procedure_type21234), t48654); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48655; return r14671; case NATIVE_PROCEDURE_TYPE21236: t48656 = FALSE_TYPE; t48657 = f17199((t48603.value.native_procedure_type21236), t48656); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48657; return r14671; case NATIVE_PROCEDURE_TYPE21256: t48658 = FALSE_TYPE; t48659 = f17222((t48603.value.native_procedure_type21256), t48658); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48659; return r14671; case NATIVE_PROCEDURE_TYPE21259: t48660 = FALSE_TYPE; t48661 = f17209((t48603.value.native_procedure_type21259), t48660); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48661; return r14671; case NATIVE_PROCEDURE_TYPE21265: t48662 = FALSE_TYPE; t48663 = f17254((t48603.value.native_procedure_type21265), t48662); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48663; return r14671; case NATIVE_PROCEDURE_TYPE21268: t48664 = FALSE_TYPE; t48665 = f17295((t48603.value.native_procedure_type21268), t48664); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48665; return r14671; case NATIVE_PROCEDURE_TYPE21274: t48666 = FALSE_TYPE; t48667 = f17333((t48603.value.native_procedure_type21274), t48666); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48667; return r14671; case NATIVE_PROCEDURE_TYPE21280: t48668 = FALSE_TYPE; t48669 = f17314((t48603.value.native_procedure_type21280), t48668); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48669; return r14671; case NATIVE_PROCEDURE_TYPE21286: t48670 = FALSE_TYPE; t48671 = f17276((t48603.value.native_procedure_type21286), t48670); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48671; return r14671; case NATIVE_PROCEDURE_TYPE21296: t48672 = FALSE_TYPE; t48673 = f17238((t48603.value.native_procedure_type21296), t48672); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48673; return r14671; case NATIVE_PROCEDURE_TYPE21299: t48674 = FALSE_TYPE; t48675 = f17357((t48603.value.native_procedure_type21299), t48674); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48675; return r14671; case NATIVE_PROCEDURE_TYPE21304: t48676 = FALSE_TYPE; t48677 = f17381((t48603.value.native_procedure_type21304), t48676); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48677; return r14671; case NATIVE_PROCEDURE_TYPE21309: t48678 = FALSE_TYPE; t48679 = f17369((t48603.value.native_procedure_type21309), t48678); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48679; return r14671; case NATIVE_PROCEDURE_TYPE21314: t48680 = FALSE_TYPE; t48681 = f17405((t48603.value.native_procedure_type21314), t48680); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48681; return r14671; case NATIVE_PROCEDURE_TYPE21319: t48682 = FALSE_TYPE; t48683 = f17440((t48603.value.native_procedure_type21319), t48682); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48683; return r14671; case NATIVE_PROCEDURE_TYPE21324: t48684 = FALSE_TYPE; t48685 = f17437((t48603.value.native_procedure_type21324), t48684); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48685; return r14671; case NATIVE_PROCEDURE_TYPE21329: t48686 = FALSE_TYPE; t48687 = f17430((t48603.value.native_procedure_type21329), t48686); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48687; return r14671; case NATIVE_PROCEDURE_TYPE21334: t48688 = FALSE_TYPE; t48689 = f17417((t48603.value.native_procedure_type21334), t48688); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48689; return r14671; case NATIVE_PROCEDURE_TYPE21339: t48690 = FALSE_TYPE; t48691 = f17473((t48603.value.native_procedure_type21339), t48690); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48691; return r14671; case NATIVE_PROCEDURE_TYPE21341: t48692 = FALSE_TYPE; t48693 = f17472((t48603.value.native_procedure_type21341), t48692); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48693; return r14671; case NATIVE_PROCEDURE_TYPE21348: t48694 = FALSE_TYPE; t48695 = f17452((t48603.value.native_procedure_type21348), t48694); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48695; return r14671; case NATIVE_PROCEDURE_TYPE21353: t48696 = FALSE_TYPE; t48697 = f17393((t48603.value.native_procedure_type21353), t48696); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48697; return r14671; case NATIVE_PROCEDURE_TYPE21358: t48698 = FALSE_TYPE; t48699 = f17345((t48603.value.native_procedure_type21358), t48698); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48699; return r14671; case NATIVE_PROCEDURE_TYPE21363: t48700 = FALSE_TYPE; t48701 = f17167((t48603.value.native_procedure_type21363), t48700); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48701; return r14671; case NATIVE_PROCEDURE_TYPE21365: t48702 = FALSE_TYPE; t48703 = f17166((t48603.value.native_procedure_type21365), t48702); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48703; return r14671; case NATIVE_PROCEDURE_TYPE21381: t48704 = FALSE_TYPE; t48705 = f17504((t48603.value.native_procedure_type21381), t48704); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48705; return r14671; case NATIVE_PROCEDURE_TYPE21387: t48706 = FALSE_TYPE; t48707 = f17525((t48603.value.native_procedure_type21387), t48706); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48707; return r14671; case NATIVE_PROCEDURE_TYPE21393: t48708 = FALSE_TYPE; t48709 = f17599((t48603.value.native_procedure_type21393), t48708); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48709; return r14671; case NATIVE_PROCEDURE_TYPE21414: t48710 = f19631(); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48710; return r14671; case NATIVE_PROCEDURE_TYPE21896: t48711 = FALSE_TYPE; t48712 = f15815((t48603.value.native_procedure_type21896), t48711); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48712; return r14671; case NATIVE_PROCEDURE_TYPE21903: t48713 = FALSE_TYPE; t48714 = f15805((t48603.value.native_procedure_type21903), t48713); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48714; return r14671; case NATIVE_PROCEDURE_TYPE21944: t48715 = FALSE_TYPE; t48716 = f17628((t48603.value.native_procedure_type21944), t48715); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48716; return r14671; case NATIVE_PROCEDURE_TYPE21946: t48717 = FALSE_TYPE; t48718 = f17627((t48603.value.native_procedure_type21946), t48717); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48718; return r14671; case NATIVE_PROCEDURE_TYPE21948: t48719 = FALSE_TYPE; t48720 = f17613((t48603.value.native_procedure_type21948), t48719); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48720; return r14671; case NATIVE_PROCEDURE_TYPE21952: t48721 = FALSE_TYPE; t48722 = f17579((t48603.value.native_procedure_type21952), t48721); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48722; return r14671; case NATIVE_PROCEDURE_TYPE21956: t48723 = FALSE_TYPE; t48724 = f17576((t48603.value.native_procedure_type21956), t48723); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48724; return r14671; case NATIVE_PROCEDURE_TYPE21961: t48725 = FALSE_TYPE; t48726 = f17569((t48603.value.native_procedure_type21961), t48725); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48726; return r14671; case NATIVE_PROCEDURE_TYPE21963: t48727 = FALSE_TYPE; t48728 = f17568((t48603.value.native_procedure_type21963), t48727); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48728; return r14671; case NATIVE_PROCEDURE_TYPE21966: t48729 = FALSE_TYPE; t48730 = f17564((t48603.value.native_procedure_type21966), t48729); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48730; return r14671; case NATIVE_PROCEDURE_TYPE21968: t48731 = FALSE_TYPE; t48732 = f17563((t48603.value.native_procedure_type21968), t48731); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48732; return r14671; case NATIVE_PROCEDURE_TYPE21971: t48733 = FALSE_TYPE; t48734 = f17559((t48603.value.native_procedure_type21971), t48733); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48734; return r14671; case NATIVE_PROCEDURE_TYPE21973: t48735 = FALSE_TYPE; t48736 = f17558((t48603.value.native_procedure_type21973), t48735); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48736; return r14671; case NATIVE_PROCEDURE_TYPE21975: t48737 = FALSE_TYPE; t48738 = f17534((t48603.value.native_procedure_type21975), t48737); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48738; return r14671; case NATIVE_PROCEDURE_TYPE21978: t48739 = FALSE_TYPE; t48740 = f17718((t48603.value.native_procedure_type21978), t48739); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48740; return r14671; case NATIVE_PROCEDURE_TYPE21982: t48741 = FALSE_TYPE; t48742 = f17716((t48603.value.native_procedure_type21982), t48741); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48742; return r14671; case NATIVE_PROCEDURE_TYPE21984: t48743 = FALSE_TYPE; t48744 = f17715((t48603.value.native_procedure_type21984), t48743); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48744; return r14671; case NATIVE_PROCEDURE_TYPE21997: t48745 = FALSE_TYPE; t48746 = f17693((t48603.value.native_procedure_type21997), t48745); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48746; return r14671; case NATIVE_PROCEDURE_TYPE22000: t48747 = FALSE_TYPE; t48748 = f17682((t48603.value.native_procedure_type22000), t48747); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48748; return r14671; case NATIVE_PROCEDURE_TYPE22003: t48749 = FALSE_TYPE; t48750 = f17679((t48603.value.native_procedure_type22003), t48749); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48750; return r14671; case NATIVE_PROCEDURE_TYPE22006: t48751 = FALSE_TYPE; t48752 = f17676((t48603.value.native_procedure_type22006), t48751); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48752; return r14671; case NATIVE_PROCEDURE_TYPE22008: t48753 = FALSE_TYPE; t48754 = f17761((t48603.value.native_procedure_type22008), t48753); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48754; return r14671; case NATIVE_PROCEDURE_TYPE22010: t48755 = FALSE_TYPE; t48756 = f17807((t48603.value.native_procedure_type22010), t48755); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48756; return r14671; case NATIVE_PROCEDURE_TYPE22012: t48757 = FALSE_TYPE; t48758 = f17806((t48603.value.native_procedure_type22012), t48757); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48758; return r14671; case NATIVE_PROCEDURE_TYPE22014: t48759 = FALSE_TYPE; t48760 = f17787((t48603.value.native_procedure_type22014), t48759); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48760; return r14671; case NATIVE_PROCEDURE_TYPE22016: t48761 = FALSE_TYPE; t48762 = f17786((t48603.value.native_procedure_type22016), t48761); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48762; return r14671; case NATIVE_PROCEDURE_TYPE22037: t48763 = FALSE_TYPE; t48764 = f17841((t48603.value.native_procedure_type22037), t48763); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48764; return r14671; case NATIVE_PROCEDURE_TYPE22064: /* x148135 stalin.sc:19867:695278 */ /* x148134 stalin.sc:19867:695279 */ /* x276491 stalin.sc:14693:514793 */ r14671.tag = STRING_TYPE; r14671.value.string_type = ""; return r14671; case NATIVE_PROCEDURE_TYPE22072: t48765 = FALSE_TYPE; t48766 = f15886((t48603.value.native_procedure_type22072), t48765); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48766; return r14671; case NATIVE_PROCEDURE_TYPE22081: t48767 = FALSE_TYPE; t48768 = f17894((t48603.value.native_procedure_type22081), t48767); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48768; return r14671; case NATIVE_PROCEDURE_TYPE22091: t48769 = FALSE_TYPE; t48770 = f17885((t48603.value.native_procedure_type22091), t48769); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48770; return r14671; case NATIVE_PROCEDURE_TYPE22100: t48771 = FALSE_TYPE; t48772 = f17641((t48603.value.native_procedure_type22100), t48771); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48772; return r14671; case NATIVE_PROCEDURE_TYPE22102: t48773 = FALSE_TYPE; t48774 = f17640((t48603.value.native_procedure_type22102), t48773); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48774; return r14671; case NATIVE_PROCEDURE_TYPE22104: t48775 = FALSE_TYPE; t48776 = f17639((t48603.value.native_procedure_type22104), t48775); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48776; return r14671; case NATIVE_PROCEDURE_TYPE22106: t48777 = FALSE_TYPE; t48778 = f17491((t48603.value.native_procedure_type22106), t48777); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48778; return r14671; case NATIVE_PROCEDURE_TYPE22112: t48779 = FALSE_TYPE; t48780 = f17936((t48603.value.native_procedure_type22112), t48779); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48780; return r14671; case NATIVE_PROCEDURE_TYPE22117: t48781 = FALSE_TYPE; t48782 = f17957((t48603.value.native_procedure_type22117), t48781); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48782; return r14671; case NATIVE_PROCEDURE_TYPE22119: t48783 = FALSE_TYPE; t48784 = f17948((t48603.value.native_procedure_type22119), t48783); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48784; return r14671; case NATIVE_PROCEDURE_TYPE22124: t48785 = FALSE_TYPE; t48786 = f17976((t48603.value.native_procedure_type22124), t48785); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48786; return r14671; case NATIVE_PROCEDURE_TYPE22127: t48787 = FALSE_TYPE; t48788 = f17966((t48603.value.native_procedure_type22127), t48787); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48788; return r14671; case NATIVE_PROCEDURE_TYPE22130: t48789 = FALSE_TYPE; t48790 = f18033((t48603.value.native_procedure_type22130), t48789); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48790; return r14671; case NATIVE_PROCEDURE_TYPE22132: t48791 = FALSE_TYPE; t48792 = f18032((t48603.value.native_procedure_type22132), t48791); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48792; return r14671; case NATIVE_PROCEDURE_TYPE22135: t48793 = FALSE_TYPE; t48794 = f18008((t48603.value.native_procedure_type22135), t48793); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48794; return r14671; case NATIVE_PROCEDURE_TYPE22137: t48795 = FALSE_TYPE; t48796 = f17986((t48603.value.native_procedure_type22137), t48795); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48796; return r14671; case NATIVE_PROCEDURE_TYPE22139: t48797 = FALSE_TYPE; t48798 = f18072((t48603.value.native_procedure_type22139), t48797); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48798; return r14671; case NATIVE_PROCEDURE_TYPE22141: t48799 = FALSE_TYPE; t48800 = f18090((t48603.value.native_procedure_type22141), t48799); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48800; return r14671; case NATIVE_PROCEDURE_TYPE22143: t48801 = FALSE_TYPE; t48802 = f18081((t48603.value.native_procedure_type22143), t48801); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48802; return r14671; case NATIVE_PROCEDURE_TYPE22145: t48803 = FALSE_TYPE; t48804 = f18063((t48603.value.native_procedure_type22145), t48803); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48804; return r14671; case NATIVE_PROCEDURE_TYPE22148: t48805 = FALSE_TYPE; t48806 = f18121((t48603.value.native_procedure_type22148), t48805); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48806; return r14671; case NATIVE_PROCEDURE_TYPE22154: t48807 = FALSE_TYPE; t48808 = f18148((t48603.value.native_procedure_type22154), t48807); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48808; return r14671; case NATIVE_PROCEDURE_TYPE22160: t48809 = FALSE_TYPE; t48810 = f18135((t48603.value.native_procedure_type22160), t48809); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48810; return r14671; case NATIVE_PROCEDURE_TYPE22162: t48811 = FALSE_TYPE; t48812 = f18133((t48603.value.native_procedure_type22162), t48811); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48812; return r14671; case NATIVE_PROCEDURE_TYPE22165: t48813 = FALSE_TYPE; t48814 = f18042((t48603.value.native_procedure_type22165), t48813); r14671.tag = STRUCTURE_TYPE24753; r14671.value.structure_type24753 = t48814; return r14671; default: /* x165210 stalin.sc:23751:825832 */ /* x165209 stalin.sc:23751:825833 */ /* x295305 QobiScheme.sc:166:5314 */ /* x295304 QobiScheme.sc:166:5321 */ t48815 = "This shouldn\'t happen"; /* x295303 QobiScheme.sc:166:5315 */ stalin_panic(t48815);}} /* [inside COMPILE-SQUISHED-TYPE-SWITCH 14667] */ struct w49 f14667(struct p14647 *p14667, struct w49 a26074) {unsigned t48820; struct w49 t48821; struct w49 t48822; struct w49 t48823; struct w211257 t48824; struct w49 t48825; struct p14646 *t48826; struct w49 t48827; struct structure_type24753 *t48828; struct w49 t48829; struct w49 t48830; unsigned t48831; struct w49 t48832; struct structure_type24753 *t48833; struct w49 t48834; char *t48835; struct w49 t48836; struct w49 t48837; struct p14646 *t48838; struct w49 t48839; struct w49 t48840; struct w211113 t48841; struct p14646 *t48842; struct w49 t48843; /* x132766 stalin.sc:16829:587998 */ /* x132742 stalin.sc:16829:588002 */ /* x132729 stalin.sc:16829:588007 */ /* x132728 stalin.sc:16829:588014 */ /* x132726 stalin.sc:16829:588026 */ t48821 = a26074; /* x132727 stalin.sc:16829:588028 */ t48822 = p14667->p14646->a26048; /* x132725 stalin.sc:16829:588015 */ t48820 = f14564(t48821, t48822); /* x268811 stalin.sc:16829:588008 */ if (!((t48820&1)==1)) {backtrace("stalin.sc", 16829, 588007); zero_error();} if (!(((int)(((int)t48820)>>1))==0)) goto l7314; /* x132740 */ /* x132733 stalin.sc:16830:588038 */ /* x132731 stalin.sc:16830:588047 */ /* x132732 stalin.sc:16830:588058 */ t48823 = p14667->p14646->a26048; /* x132730 stalin.sc:16830:588039 */ t48824.tag = NATIVE_PROCEDURE_TYPE7431; if ((f8137(t48824, t48823).tag)==FALSE_TYPE) goto l7314; /* x132738 */ /* x132737 stalin.sc:16831:588072 */ /* x132736 stalin.sc:16831:588084 */ t48825 = a26074; /* x132735 stalin.sc:16831:588073 */ if (!(f7682(t48825)==FALSE_TYPE)) goto l7314; /* x132762 stalin.sc:16832:588097 */ /* x132751 stalin.sc:16832:588103 */ /* x132745 stalin.sc:16832:588108 */ t48832 = p14667->p14646->a26049; /* x132750 stalin.sc:16832:588111 */ /* x132748 stalin.sc:16832:588128 */ /* x132747 stalin.sc:16832:588129 */ /* x276329 stalin.sc:16169:562645 */ t48835 = "CHAR_OFFSET"; /* x132749 stalin.sc:16832:588144 */ t48836 = p14667->p14646->a26048; /* x132746 stalin.sc:16832:588112 */ t48837.tag = STRING_TYPE; t48837.value.string_type = t48835; t48833 = f14422(t48837, t48836); /* x132744 stalin.sc:16832:588104 */ t48834.tag = STRUCTURE_TYPE24753; t48834.value.structure_type24753 = t48833; t48828 = f13601(t48832, t48834); /* x132757 stalin.sc:16833:588155 */ /* x132756 stalin.sc:16833:588158 */ /* x132754 stalin.sc:16833:588175 */ /* x132755 stalin.sc:16833:588186 */ t48840 = p14667->p14646->a26048; /* x132753 stalin.sc:16833:588159 */ t48841.tag = NATIVE_PROCEDURE_TYPE7431; t48839 = f8157(t48841, t48840); /* x132752 stalin.sc:16833:588156 */ t48838 = p14667->a26053; t48829 = f14671(t48838, t48839); /* x132760 stalin.sc:16834:588197 */ /* x132759 stalin.sc:16834:588200 */ t48843 = a26074; /* x132758 stalin.sc:16834:588198 */ t48842 = p14667->a26053; t48830 = f14671(t48842, t48843); /* x132761 stalin.sc:16835:588210 */ /* x132743 stalin.sc:16832:588098 */ t48831 = FALSE_TYPE; return f13672(t48828, t48829, t48830, t48831); l7314: /* x132765 stalin.sc:16836:588222 */ /* x132764 stalin.sc:16836:588225 */ t48827 = a26074; /* x132763 stalin.sc:16836:588223 */ t48826 = p14667->a26053; return f14671(t48826, t48827);} /* [inside COMPILE-SQUISHED-TYPE-SWITCH 14666] */ char *f14666(struct p14646 *p14666, struct w49 a26073) {unsigned t48844; struct w49 t48845; struct w49 t48846; struct w49 t48847; /* x132719 stalin.sc:16827:587938 */ /* x132718 stalin.sc:16827:587948 */ /* x132716 stalin.sc:16827:587960 */ t48846 = a26073; /* x132717 stalin.sc:16827:587962 */ t48847 = p14666->a26048; /* x132715 stalin.sc:16827:587949 */ t48844 = f14564(t48846, t48847); /* x132714 stalin.sc:16827:587939 */ /* MOVE: dispatching squished to general */ if (t48844==FALSE_TYPE) t48845.tag = (unsigned)t48844; else {t48845.tag = FIXNUM_TYPE; t48845.value.fixnum_type = (int)(((int)t48844)>>1);} return f13530(t48845);} /* [inside COMPILE-SQUISHED-TYPE-SWITCH 14665] */ struct w49 f14665(struct p14647 *p14665, struct w49 a26072) {unsigned t48848; struct w49 t48849; struct w49 t48850; struct w49 t48851; struct w211257 t48852; struct w49 t48853; struct p14646 *t48854; struct w49 t48855; struct structure_type24753 *t48856; struct w49 t48857; struct w49 t48858; unsigned t48859; struct w49 t48860; struct structure_type24753 *t48861; struct w49 t48862; char *t48863; struct w49 t48864; struct w49 t48865; struct p14646 *t48866; struct w49 t48867; struct w49 t48868; struct w211113 t48869; struct p14646 *t48870; struct w49 t48871; /* x132699 stalin.sc:16814:587597 */ /* x132675 stalin.sc:16814:587601 */ /* x132662 stalin.sc:16814:587606 */ /* x132661 stalin.sc:16814:587613 */ /* x132659 stalin.sc:16814:587625 */ t48849 = a26072; /* x132660 stalin.sc:16814:587627 */ t48850 = p14665->p14646->a26048; /* x132658 stalin.sc:16814:587614 */ t48848 = f14564(t48849, t48850); /* x268813 stalin.sc:16814:587607 */ if (!((t48848&1)==1)) {backtrace("stalin.sc", 16814, 587606); zero_error();} if (!(((int)(((int)t48848)>>1))==0)) goto l7318; /* x132673 */ /* x132666 stalin.sc:16815:587637 */ /* x132664 stalin.sc:16815:587646 */ /* x132665 stalin.sc:16815:587657 */ t48851 = p14665->p14646->a26048; /* x132663 stalin.sc:16815:587638 */ t48852.tag = NATIVE_PROCEDURE_TYPE7431; if ((f8137(t48852, t48851).tag)==FALSE_TYPE) goto l7318; /* x132671 */ /* x132670 stalin.sc:16816:587671 */ /* x132669 stalin.sc:16816:587683 */ t48853 = a26072; /* x132668 stalin.sc:16816:587672 */ if (!(f7682(t48853)==FALSE_TYPE)) goto l7318; /* x132695 stalin.sc:16817:587696 */ /* x132684 stalin.sc:16817:587702 */ /* x132678 stalin.sc:16817:587707 */ t48860 = p14665->p14646->a26049; /* x132683 stalin.sc:16817:587710 */ /* x132681 stalin.sc:16817:587727 */ /* x132680 stalin.sc:16817:587728 */ /* x276331 stalin.sc:16169:562645 */ t48863 = "CHAR_OFFSET"; /* x132682 stalin.sc:16817:587743 */ t48864 = p14665->p14646->a26048; /* x132679 stalin.sc:16817:587711 */ t48865.tag = STRING_TYPE; t48865.value.string_type = t48863; t48861 = f14422(t48865, t48864); /* x132677 stalin.sc:16817:587703 */ t48862.tag = STRUCTURE_TYPE24753; t48862.value.structure_type24753 = t48861; t48856 = f13601(t48860, t48862); /* x132690 stalin.sc:16818:587754 */ /* x132689 stalin.sc:16818:587757 */ /* x132687 stalin.sc:16818:587774 */ /* x132688 stalin.sc:16818:587785 */ t48868 = p14665->p14646->a26048; /* x132686 stalin.sc:16818:587758 */ t48869.tag = NATIVE_PROCEDURE_TYPE7431; t48867 = f8157(t48869, t48868); /* x132685 stalin.sc:16818:587755 */ t48866 = p14665->a26053; t48857 = f14671(t48866, t48867); /* x132693 stalin.sc:16819:587796 */ /* x132692 stalin.sc:16819:587799 */ t48871 = a26072; /* x132691 stalin.sc:16819:587797 */ t48870 = p14665->a26053; t48858 = f14671(t48870, t48871); /* x132694 stalin.sc:16820:587809 */ /* x132676 stalin.sc:16817:587697 */ t48859 = FALSE_TYPE; return f13672(t48856, t48857, t48858, t48859); l7318: /* x132698 stalin.sc:16821:587821 */ /* x132697 stalin.sc:16821:587824 */ t48855 = a26072; /* x132696 stalin.sc:16821:587822 */ t48854 = p14665->a26053; return f14671(t48854, t48855);} /* [inside COMPILE-SQUISHED-TYPE-SWITCH 14664] */ char *f14664(struct p14646 *p14664, struct w49 a26071) {unsigned t48872; struct w49 t48873; struct w49 t48874; struct w49 t48875; /* x132652 stalin.sc:16812:587537 */ /* x132651 stalin.sc:16812:587547 */ /* x132649 stalin.sc:16812:587559 */ t48874 = a26071; /* x132650 stalin.sc:16812:587561 */ t48875 = p14664->a26048; /* x132648 stalin.sc:16812:587548 */ t48872 = f14564(t48874, t48875); /* x132647 stalin.sc:16812:587538 */ /* MOVE: dispatching squished to general */ if (t48872==FALSE_TYPE) t48873.tag = (unsigned)t48872; else {t48873.tag = FIXNUM_TYPE; t48873.value.fixnum_type = (int)(((int)t48872)>>1);} return f13530(t48873);} /* [inside COMPILE-SQUISHED-TYPE-SWITCH 14656] */ struct w49 f14656(struct p14647 *p14656, struct w49 a26062) {unsigned t48876; struct w49 t48877; struct w49 t48878; struct p14646 *t48879; struct w49 t48880; struct w49 t48881; struct w211257 t48882; struct w49 t48883; struct structure_type24753 *t48884; struct w49 t48885; struct w49 t48886; unsigned t48887; struct w49 t48888; struct structure_type24753 *t48889; struct w49 t48890; char *t48891; struct w49 t48892; struct w49 t48893; struct p14646 *t48894; struct w49 t48895; struct w155916 t48896; unsigned t48897; struct structure_type24753 *t48898; unsigned t48899; struct structure_type24753 *t48900; struct structure_type27501 *t48901; unsigned t48902; struct structure_type24753 *t48903; unsigned t48904; struct structure_type24753 *t48905; unsigned t48906; struct structure_type24753 *t48907; struct structure_type27501 *t48908; char *t48909; char *t48910; unsigned t48911; struct structure_type24753 *t48912; unsigned t48913; struct structure_type24753 *t48914; unsigned t48915; struct structure_type24753 *t48916; unsigned t48917; struct structure_type24753 *t48918; unsigned t48919; struct structure_type24753 *t48920; unsigned t48921; struct structure_type24753 *t48922; unsigned t48923; struct structure_type24753 *t48924; unsigned t48925; struct structure_type24753 *t48926; unsigned t48927; struct structure_type24753 *t48928; unsigned t48929; struct structure_type24753 *t48930; unsigned t48931; struct structure_type24753 *t48932; unsigned t48933; struct structure_type24753 *t48934; unsigned t48935; struct structure_type24753 *t48936; unsigned t48937; struct structure_type24753 *t48938; unsigned t48939; struct structure_type24753 *t48940; unsigned t48941; struct structure_type24753 *t48942; unsigned t48943; struct structure_type24753 *t48944; unsigned t48945; struct structure_type24753 *t48946; unsigned t48947; struct structure_type24753 *t48948; unsigned t48949; struct structure_type24753 *t48950; unsigned t48951; struct structure_type24753 *t48952; unsigned t48953; struct structure_type24753 *t48954; unsigned t48955; struct structure_type24753 *t48956; unsigned t48957; struct structure_type24753 *t48958; unsigned t48959; struct structure_type24753 *t48960; unsigned t48961; struct structure_type24753 *t48962; unsigned t48963; struct structure_type24753 *t48964; unsigned t48965; struct structure_type24753 *t48966; unsigned t48967; struct structure_type24753 *t48968; unsigned t48969; struct structure_type24753 *t48970; unsigned t48971; struct structure_type24753 *t48972; unsigned t48973; struct structure_type24753 *t48974; unsigned t48975; struct structure_type24753 *t48976; unsigned t48977; struct structure_type24753 *t48978; unsigned t48979; struct structure_type24753 *t48980; unsigned t48981; struct structure_type24753 *t48982; unsigned t48983; struct structure_type24753 *t48984; unsigned t48985; struct structure_type24753 *t48986; unsigned t48987; struct structure_type24753 *t48988; unsigned t48989; struct structure_type24753 *t48990; unsigned t48991; struct structure_type24753 *t48992; unsigned t48993; struct structure_type24753 *t48994; unsigned t48995; struct structure_type24753 *t48996; unsigned t48997; struct structure_type24753 *t48998; unsigned t48999; struct structure_type24753 *t49000; unsigned t49001; struct structure_type24753 *t49002; struct structure_type24753 *t49003; unsigned t49004; struct structure_type24753 *t49005; unsigned t49006; struct structure_type24753 *t49007; unsigned t49008; struct structure_type24753 *t49009; unsigned t49010; struct structure_type24753 *t49011; unsigned t49012; struct structure_type24753 *t49013; unsigned t49014; struct structure_type24753 *t49015; unsigned t49016; struct structure_type24753 *t49017; unsigned t49018; struct structure_type24753 *t49019; unsigned t49020; struct structure_type24753 *t49021; unsigned t49022; struct structure_type24753 *t49023; unsigned t49024; struct structure_type24753 *t49025; unsigned t49026; struct structure_type24753 *t49027; unsigned t49028; struct structure_type24753 *t49029; unsigned t49030; struct structure_type24753 *t49031; unsigned t49032; struct structure_type24753 *t49033; unsigned t49034; struct structure_type24753 *t49035; unsigned t49036; struct structure_type24753 *t49037; unsigned t49038; struct structure_type24753 *t49039; unsigned t49040; struct structure_type24753 *t49041; unsigned t49042; struct structure_type24753 *t49043; unsigned t49044; struct structure_type24753 *t49045; unsigned t49046; struct structure_type24753 *t49047; unsigned t49048; struct structure_type24753 *t49049; unsigned t49050; struct structure_type24753 *t49051; unsigned t49052; struct structure_type24753 *t49053; unsigned t49054; struct structure_type24753 *t49055; unsigned t49056; struct structure_type24753 *t49057; unsigned t49058; struct structure_type24753 *t49059; unsigned t49060; struct structure_type24753 *t49061; unsigned t49062; struct structure_type24753 *t49063; unsigned t49064; struct structure_type24753 *t49065; unsigned t49066; struct structure_type24753 *t49067; unsigned t49068; struct structure_type24753 *t49069; unsigned t49070; struct structure_type24753 *t49071; unsigned t49072; struct structure_type24753 *t49073; unsigned t49074; struct structure_type24753 *t49075; unsigned t49076; struct structure_type24753 *t49077; unsigned t49078; struct structure_type24753 *t49079; unsigned t49080; struct structure_type24753 *t49081; unsigned t49082; struct structure_type24753 *t49083; unsigned t49084; struct structure_type24753 *t49085; unsigned t49086; struct structure_type24753 *t49087; unsigned t49088; struct structure_type24753 *t49089; unsigned t49090; struct structure_type24753 *t49091; unsigned t49092; struct structure_type24753 *t49093; unsigned t49094; struct structure_type24753 *t49095; unsigned t49096; struct structure_type24753 *t49097; unsigned t49098; struct structure_type24753 *t49099; unsigned t49100; struct structure_type24753 *t49101; unsigned t49102; struct structure_type24753 *t49103; unsigned t49104; struct structure_type24753 *t49105; unsigned t49106; struct structure_type24753 *t49107; char *t49108; struct structure_type24753 *t49109; struct w49 t49110; struct w49 t49111; unsigned t49112; struct w49 t49113; struct structure_type24753 *t49114; struct w49 t49115; char *t49116; struct w49 t49117; struct w49 t49118; struct p14646 *t49119; struct w49 t49120; struct w49 t49121; struct w211113 t49122; struct structure_type24753 *t49123; struct w49 t49124; struct w49 t49125; unsigned t49126; struct w49 t49127; struct structure_type24753 *t49128; struct w49 t49129; char *t49130; struct w49 t49131; struct w49 t49132; struct p14646 *t49133; struct w49 t49134; struct w155916 t49135; unsigned t49136; struct structure_type24753 *t49137; unsigned t49138; struct structure_type24753 *t49139; struct structure_type27501 *t49140; unsigned t49141; struct structure_type24753 *t49142; unsigned t49143; struct structure_type24753 *t49144; unsigned t49145; struct structure_type24753 *t49146; struct structure_type27501 *t49147; char *t49148; char *t49149; unsigned t49150; struct structure_type24753 *t49151; unsigned t49152; struct structure_type24753 *t49153; unsigned t49154; struct structure_type24753 *t49155; unsigned t49156; struct structure_type24753 *t49157; unsigned t49158; struct structure_type24753 *t49159; unsigned t49160; struct structure_type24753 *t49161; unsigned t49162; struct structure_type24753 *t49163; unsigned t49164; struct structure_type24753 *t49165; unsigned t49166; struct structure_type24753 *t49167; unsigned t49168; struct structure_type24753 *t49169; unsigned t49170; struct structure_type24753 *t49171; unsigned t49172; struct structure_type24753 *t49173; unsigned t49174; struct structure_type24753 *t49175; unsigned t49176; struct structure_type24753 *t49177; unsigned t49178; struct structure_type24753 *t49179; unsigned t49180; struct structure_type24753 *t49181; unsigned t49182; struct structure_type24753 *t49183; unsigned t49184; struct structure_type24753 *t49185; unsigned t49186; struct structure_type24753 *t49187; unsigned t49188; struct structure_type24753 *t49189; unsigned t49190; struct structure_type24753 *t49191; unsigned t49192; struct structure_type24753 *t49193; unsigned t49194; struct structure_type24753 *t49195; unsigned t49196; struct structure_type24753 *t49197; unsigned t49198; struct structure_type24753 *t49199; unsigned t49200; struct structure_type24753 *t49201; unsigned t49202; struct structure_type24753 *t49203; unsigned t49204; struct structure_type24753 *t49205; unsigned t49206; struct structure_type24753 *t49207; unsigned t49208; struct structure_type24753 *t49209; unsigned t49210; struct structure_type24753 *t49211; unsigned t49212; struct structure_type24753 *t49213; unsigned t49214; struct structure_type24753 *t49215; unsigned t49216; struct structure_type24753 *t49217; unsigned t49218; struct structure_type24753 *t49219; unsigned t49220; struct structure_type24753 *t49221; unsigned t49222; struct structure_type24753 *t49223; unsigned t49224; struct structure_type24753 *t49225; unsigned t49226; struct structure_type24753 *t49227; unsigned t49228; struct structure_type24753 *t49229; unsigned t49230; struct structure_type24753 *t49231; unsigned t49232; struct structure_type24753 *t49233; unsigned t49234; struct structure_type24753 *t49235; unsigned t49236; struct structure_type24753 *t49237; unsigned t49238; struct structure_type24753 *t49239; unsigned t49240; struct structure_type24753 *t49241; struct structure_type24753 *t49242; unsigned t49243; struct structure_type24753 *t49244; unsigned t49245; struct structure_type24753 *t49246; unsigned t49247; struct structure_type24753 *t49248; unsigned t49249; struct structure_type24753 *t49250; unsigned t49251; struct structure_type24753 *t49252; unsigned t49253; struct structure_type24753 *t49254; unsigned t49255; struct structure_type24753 *t49256; unsigned t49257; struct structure_type24753 *t49258; unsigned t49259; struct structure_type24753 *t49260; unsigned t49261; struct structure_type24753 *t49262; unsigned t49263; struct structure_type24753 *t49264; unsigned t49265; struct structure_type24753 *t49266; unsigned t49267; struct structure_type24753 *t49268; unsigned t49269; struct structure_type24753 *t49270; unsigned t49271; struct structure_type24753 *t49272; unsigned t49273; struct structure_type24753 *t49274; unsigned t49275; struct structure_type24753 *t49276; unsigned t49277; struct structure_type24753 *t49278; unsigned t49279; struct structure_type24753 *t49280; unsigned t49281; struct structure_type24753 *t49282; unsigned t49283; struct structure_type24753 *t49284; unsigned t49285; struct structure_type24753 *t49286; unsigned t49287; struct structure_type24753 *t49288; unsigned t49289; struct structure_type24753 *t49290; unsigned t49291; struct structure_type24753 *t49292; unsigned t49293; struct structure_type24753 *t49294; unsigned t49295; struct structure_type24753 *t49296; unsigned t49297; struct structure_type24753 *t49298; unsigned t49299; struct structure_type24753 *t49300; unsigned t49301; struct structure_type24753 *t49302; unsigned t49303; struct structure_type24753 *t49304; unsigned t49305; struct structure_type24753 *t49306; unsigned t49307; struct structure_type24753 *t49308; unsigned t49309; struct structure_type24753 *t49310; unsigned t49311; struct structure_type24753 *t49312; unsigned t49313; struct structure_type24753 *t49314; unsigned t49315; struct structure_type24753 *t49316; unsigned t49317; struct structure_type24753 *t49318; unsigned t49319; struct structure_type24753 *t49320; unsigned t49321; struct structure_type24753 *t49322; unsigned t49323; struct structure_type24753 *t49324; unsigned t49325; struct structure_type24753 *t49326; unsigned t49327; struct structure_type24753 *t49328; unsigned t49329; struct structure_type24753 *t49330; unsigned t49331; struct structure_type24753 *t49332; unsigned t49333; struct structure_type24753 *t49334; unsigned t49335; struct structure_type24753 *t49336; unsigned t49337; struct structure_type24753 *t49338; unsigned t49339; struct structure_type24753 *t49340; unsigned t49341; struct structure_type24753 *t49342; unsigned t49343; struct structure_type24753 *t49344; unsigned t49345; struct structure_type24753 *t49346; char *t49347; struct p16486 *p37494; struct p16486 *p37495; struct p14711 *p37513; struct p14711 *p37514; /* x132548 stalin.sc:16771:586292 */ /* x132481 stalin.sc:16771:586296 */ /* x132480 stalin.sc:16771:586303 */ /* x132478 stalin.sc:16771:586315 */ t48877 = a26062; /* x132479 stalin.sc:16771:586317 */ t48878 = p14656->p14646->a26048; /* x132477 stalin.sc:16771:586304 */ t48876 = f14564(t48877, t48878); /* x268821 stalin.sc:16771:586297 */ if (!((t48876&1)==1)) {backtrace("stalin.sc", 16771, 586296); zero_error();} if (!(((int)(((int)t48876)>>1))==0)) goto l7322; /* x132544 stalin.sc:16772:586324 */ /* x132492 stalin.sc:16772:586328 */ /* x132485 stalin.sc:16772:586333 */ /* x132483 stalin.sc:16772:586342 */ /* x132484 stalin.sc:16772:586353 */ t48881 = p14656->p14646->a26048; /* x132482 stalin.sc:16772:586334 */ t48882.tag = NATIVE_PROCEDURE_TYPE7431; if ((f8137(t48882, t48881).tag)==FALSE_TYPE) goto l7324; /* x132490 */ /* x132489 stalin.sc:16772:586361 */ /* x132488 stalin.sc:16772:586373 */ t48883 = a26062; /* x132487 stalin.sc:16772:586362 */ if (!(f7682(t48883)==FALSE_TYPE)) goto l7324; /* x132526 stalin.sc:16773:586385 */ /* x132501 stalin.sc:16773:586391 */ /* x132495 stalin.sc:16773:586396 */ t49113 = p14656->p14646->a26049; /* x132500 stalin.sc:16773:586399 */ /* x132498 stalin.sc:16773:586416 */ /* x132497 stalin.sc:16773:586417 */ /* x276333 stalin.sc:16169:562645 */ t49116 = "CHAR_OFFSET"; /* x132499 stalin.sc:16773:586432 */ t49117 = p14656->p14646->a26048; /* x132496 stalin.sc:16773:586400 */ t49118.tag = STRING_TYPE; t49118.value.string_type = t49116; t49114 = f14422(t49118, t49117); /* x132494 stalin.sc:16773:586392 */ t49115.tag = STRUCTURE_TYPE24753; t49115.value.structure_type24753 = t49114; t49109 = f13601(t49113, t49115); /* x132507 stalin.sc:16774:586442 */ /* x132506 stalin.sc:16774:586445 */ /* x132504 stalin.sc:16774:586462 */ /* x132505 stalin.sc:16774:586473 */ t49121 = p14656->p14646->a26048; /* x132503 stalin.sc:16774:586446 */ t49122.tag = NATIVE_PROCEDURE_TYPE7431; t49120 = f8157(t49122, t49121); /* x132502 stalin.sc:16774:586443 */ t49119 = p14656->a26053; t49110 = f14671(t49119, t49120); /* x132524 stalin.sc:16775:586483 */ /* x132516 stalin.sc:16775:586489 */ /* x132510 stalin.sc:16775:586495 */ t49127 = p14656->p14646->a26049; /* x132515 stalin.sc:16775:586498 */ /* x132513 stalin.sc:16775:586515 */ /* x132512 stalin.sc:16775:586516 */ /* x129556 stalin.sc:16167:562604 */ t49130 = "VALUE_OFFSET"; /* x132514 stalin.sc:16775:586532 */ t49131 = p14656->p14646->a26048; /* x132511 stalin.sc:16775:586499 */ t49132.tag = STRING_TYPE; t49132.value.string_type = t49130; t49128 = f14422(t49132, t49131); /* x132509 stalin.sc:16775:586490 */ t49129.tag = STRUCTURE_TYPE24753; t49129.value.structure_type24753 = t49128; t49123 = f13608(t49127, t49129); /* x132519 stalin.sc:16776:586541 */ /* x132518 stalin.sc:16776:586544 */ t49134 = a26062; /* x132517 stalin.sc:16776:586542 */ t49133 = p14656->a26053; t49124 = f14671(t49133, t49134); /* x132522 stalin.sc:16777:586552 */ /* x132521 stalin.sc:16777:586556 */ /* x132520 stalin.sc:16777:586553 */ t49135 = p14656->p14646->a26051; switch (t49135.tag) {case NATIVE_PROCEDURE_TYPE20757: t49136 = FALSE_TYPE; t49137 = f16097((t49135.value.native_procedure_type20757), t49136); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49137; break; case NATIVE_PROCEDURE_TYPE20782: t49138 = FALSE_TYPE; t49139 = f15772((t49135.value.native_procedure_type20782), t49138); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49139; break; case NATIVE_PROCEDURE_TYPE20850: p37513 = t49135.value.native_procedure_type20850; /* x302846 stalin.sc:17033:595793 */ /* x302845 stalin.sc:17033:595807 */ t49140 = p37513->a26136; /* x302844 stalin.sc:17033:595794 */ t49125 = f14708(t49140); break; case NATIVE_PROCEDURE_TYPE20913: t49141 = FALSE_TYPE; t49142 = f16433((t49135.value.native_procedure_type20913), t49141); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49142; break; case NATIVE_PROCEDURE_TYPE20915: t49143 = FALSE_TYPE; t49144 = f16417((t49135.value.native_procedure_type20915), t49143); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49144; break; case NATIVE_PROCEDURE_TYPE20918: t49145 = FALSE_TYPE; t49146 = f16635((t49135.value.native_procedure_type20918), t49145); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49146; break; case NATIVE_PROCEDURE_TYPE20927: p37494 = t49135.value.native_procedure_type20927; /* x302770 stalin.sc:21738:761657 */ /* x302769 stalin.sc:21738:761670 */ t49147 = p37494->a27722; /* x302768 stalin.sc:21738:761658 */ t49125 = f14707(t49147); break; case NATIVE_PROCEDURE_TYPE21036: /* x298041 stalin.sc:21885:766135 */ /* x298040 stalin.sc:21885:766136 */ /* x303358 QobiScheme.sc:166:5314 */ /* x303357 QobiScheme.sc:166:5321 */ t49148 = "This shouldn\'t happen"; /* x303356 QobiScheme.sc:166:5315 */ stalin_panic(t49148); break; case NATIVE_PROCEDURE_TYPE21042: /* x298102 stalin.sc:21855:765176 */ /* x298101 stalin.sc:21855:765177 */ /* x303434 QobiScheme.sc:166:5314 */ /* x303433 QobiScheme.sc:166:5321 */ t49149 = "This shouldn\'t happen"; /* x303432 QobiScheme.sc:166:5315 */ stalin_panic(t49149); break; case NATIVE_PROCEDURE_TYPE21048: t49150 = FALSE_TYPE; t49151 = f16737((t49135.value.native_procedure_type21048), t49150); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49151; break; case NATIVE_PROCEDURE_TYPE21059: t49152 = FALSE_TYPE; t49153 = f15571((t49135.value.native_procedure_type21059), t49152); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49153; break; case NATIVE_PROCEDURE_TYPE21065: t49154 = FALSE_TYPE; t49155 = f16830((t49135.value.native_procedure_type21065), t49154); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49155; break; case NATIVE_PROCEDURE_TYPE21082: t49156 = FALSE_TYPE; t49157 = f16721((t49135.value.native_procedure_type21082), t49156); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49157; break; case NATIVE_PROCEDURE_TYPE21087: t49158 = FALSE_TYPE; t49159 = f16648((t49135.value.native_procedure_type21087), t49158); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49159; break; case NATIVE_PROCEDURE_TYPE21090: t49160 = FALSE_TYPE; t49161 = f16858((t49135.value.native_procedure_type21090), t49160); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49161; break; case NATIVE_PROCEDURE_TYPE21108: t49162 = FALSE_TYPE; t49163 = f15580((t49135.value.native_procedure_type21108), t49162); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49163; break; case NATIVE_PROCEDURE_TYPE21110: t49164 = FALSE_TYPE; t49165 = f16912((t49135.value.native_procedure_type21110), t49164); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49165; break; case NATIVE_PROCEDURE_TYPE21117: t49166 = FALSE_TYPE; t49167 = f16884((t49135.value.native_procedure_type21117), t49166); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49167; break; case NATIVE_PROCEDURE_TYPE21137: t49168 = FALSE_TYPE; t49169 = f16982((t49135.value.native_procedure_type21137), t49168); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49169; break; case NATIVE_PROCEDURE_TYPE21147: t49170 = FALSE_TYPE; t49171 = f17061((t49135.value.native_procedure_type21147), t49170); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49171; break; case NATIVE_PROCEDURE_TYPE21152: t49172 = FALSE_TYPE; t49173 = f17134((t49135.value.native_procedure_type21152), t49172); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49173; break; case NATIVE_PROCEDURE_TYPE21154: t49174 = FALSE_TYPE; t49175 = f17133((t49135.value.native_procedure_type21154), t49174); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49175; break; case NATIVE_PROCEDURE_TYPE21170: t49176 = FALSE_TYPE; t49177 = f17101((t49135.value.native_procedure_type21170), t49176); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49177; break; case NATIVE_PROCEDURE_TYPE21172: t49178 = FALSE_TYPE; t49179 = f17100((t49135.value.native_procedure_type21172), t49178); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49179; break; case NATIVE_PROCEDURE_TYPE21201: t49180 = FALSE_TYPE; t49181 = f17026((t49135.value.native_procedure_type21201), t49180); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49181; break; case NATIVE_PROCEDURE_TYPE21225: t49182 = FALSE_TYPE; t49183 = f16941((t49135.value.native_procedure_type21225), t49182); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49183; break; case NATIVE_PROCEDURE_TYPE21228: t49184 = FALSE_TYPE; t49185 = f16844((t49135.value.native_procedure_type21228), t49184); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49185; break; case NATIVE_PROCEDURE_TYPE21234: t49186 = FALSE_TYPE; t49187 = f17200((t49135.value.native_procedure_type21234), t49186); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49187; break; case NATIVE_PROCEDURE_TYPE21236: t49188 = FALSE_TYPE; t49189 = f17199((t49135.value.native_procedure_type21236), t49188); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49189; break; case NATIVE_PROCEDURE_TYPE21256: t49190 = FALSE_TYPE; t49191 = f17222((t49135.value.native_procedure_type21256), t49190); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49191; break; case NATIVE_PROCEDURE_TYPE21259: t49192 = FALSE_TYPE; t49193 = f17209((t49135.value.native_procedure_type21259), t49192); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49193; break; case NATIVE_PROCEDURE_TYPE21265: t49194 = FALSE_TYPE; t49195 = f17254((t49135.value.native_procedure_type21265), t49194); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49195; break; case NATIVE_PROCEDURE_TYPE21268: t49196 = FALSE_TYPE; t49197 = f17295((t49135.value.native_procedure_type21268), t49196); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49197; break; case NATIVE_PROCEDURE_TYPE21274: t49198 = FALSE_TYPE; t49199 = f17333((t49135.value.native_procedure_type21274), t49198); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49199; break; case NATIVE_PROCEDURE_TYPE21280: t49200 = FALSE_TYPE; t49201 = f17314((t49135.value.native_procedure_type21280), t49200); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49201; break; case NATIVE_PROCEDURE_TYPE21286: t49202 = FALSE_TYPE; t49203 = f17276((t49135.value.native_procedure_type21286), t49202); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49203; break; case NATIVE_PROCEDURE_TYPE21296: t49204 = FALSE_TYPE; t49205 = f17238((t49135.value.native_procedure_type21296), t49204); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49205; break; case NATIVE_PROCEDURE_TYPE21299: t49206 = FALSE_TYPE; t49207 = f17357((t49135.value.native_procedure_type21299), t49206); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49207; break; case NATIVE_PROCEDURE_TYPE21304: t49208 = FALSE_TYPE; t49209 = f17381((t49135.value.native_procedure_type21304), t49208); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49209; break; case NATIVE_PROCEDURE_TYPE21309: t49210 = FALSE_TYPE; t49211 = f17369((t49135.value.native_procedure_type21309), t49210); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49211; break; case NATIVE_PROCEDURE_TYPE21314: t49212 = FALSE_TYPE; t49213 = f17405((t49135.value.native_procedure_type21314), t49212); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49213; break; case NATIVE_PROCEDURE_TYPE21319: t49214 = FALSE_TYPE; t49215 = f17440((t49135.value.native_procedure_type21319), t49214); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49215; break; case NATIVE_PROCEDURE_TYPE21324: t49216 = FALSE_TYPE; t49217 = f17437((t49135.value.native_procedure_type21324), t49216); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49217; break; case NATIVE_PROCEDURE_TYPE21329: t49218 = FALSE_TYPE; t49219 = f17430((t49135.value.native_procedure_type21329), t49218); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49219; break; case NATIVE_PROCEDURE_TYPE21334: t49220 = FALSE_TYPE; t49221 = f17417((t49135.value.native_procedure_type21334), t49220); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49221; break; case NATIVE_PROCEDURE_TYPE21339: t49222 = FALSE_TYPE; t49223 = f17473((t49135.value.native_procedure_type21339), t49222); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49223; break; case NATIVE_PROCEDURE_TYPE21341: t49224 = FALSE_TYPE; t49225 = f17472((t49135.value.native_procedure_type21341), t49224); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49225; break; case NATIVE_PROCEDURE_TYPE21348: t49226 = FALSE_TYPE; t49227 = f17452((t49135.value.native_procedure_type21348), t49226); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49227; break; case NATIVE_PROCEDURE_TYPE21353: t49228 = FALSE_TYPE; t49229 = f17393((t49135.value.native_procedure_type21353), t49228); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49229; break; case NATIVE_PROCEDURE_TYPE21358: t49230 = FALSE_TYPE; t49231 = f17345((t49135.value.native_procedure_type21358), t49230); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49231; break; case NATIVE_PROCEDURE_TYPE21363: t49232 = FALSE_TYPE; t49233 = f17167((t49135.value.native_procedure_type21363), t49232); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49233; break; case NATIVE_PROCEDURE_TYPE21365: t49234 = FALSE_TYPE; t49235 = f17166((t49135.value.native_procedure_type21365), t49234); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49235; break; case NATIVE_PROCEDURE_TYPE21381: t49236 = FALSE_TYPE; t49237 = f17504((t49135.value.native_procedure_type21381), t49236); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49237; break; case NATIVE_PROCEDURE_TYPE21387: t49238 = FALSE_TYPE; t49239 = f17525((t49135.value.native_procedure_type21387), t49238); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49239; break; case NATIVE_PROCEDURE_TYPE21393: t49240 = FALSE_TYPE; t49241 = f17599((t49135.value.native_procedure_type21393), t49240); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49241; break; case NATIVE_PROCEDURE_TYPE21414: t49242 = f19631(); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49242; break; case NATIVE_PROCEDURE_TYPE21896: t49243 = FALSE_TYPE; t49244 = f15815((t49135.value.native_procedure_type21896), t49243); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49244; break; case NATIVE_PROCEDURE_TYPE21903: t49245 = FALSE_TYPE; t49246 = f15805((t49135.value.native_procedure_type21903), t49245); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49246; break; case NATIVE_PROCEDURE_TYPE21944: t49247 = FALSE_TYPE; t49248 = f17628((t49135.value.native_procedure_type21944), t49247); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49248; break; case NATIVE_PROCEDURE_TYPE21946: t49249 = FALSE_TYPE; t49250 = f17627((t49135.value.native_procedure_type21946), t49249); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49250; break; case NATIVE_PROCEDURE_TYPE21948: t49251 = FALSE_TYPE; t49252 = f17613((t49135.value.native_procedure_type21948), t49251); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49252; break; case NATIVE_PROCEDURE_TYPE21952: t49253 = FALSE_TYPE; t49254 = f17579((t49135.value.native_procedure_type21952), t49253); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49254; break; case NATIVE_PROCEDURE_TYPE21956: t49255 = FALSE_TYPE; t49256 = f17576((t49135.value.native_procedure_type21956), t49255); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49256; break; case NATIVE_PROCEDURE_TYPE21961: t49257 = FALSE_TYPE; t49258 = f17569((t49135.value.native_procedure_type21961), t49257); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49258; break; case NATIVE_PROCEDURE_TYPE21963: t49259 = FALSE_TYPE; t49260 = f17568((t49135.value.native_procedure_type21963), t49259); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49260; break; case NATIVE_PROCEDURE_TYPE21966: t49261 = FALSE_TYPE; t49262 = f17564((t49135.value.native_procedure_type21966), t49261); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49262; break; case NATIVE_PROCEDURE_TYPE21968: t49263 = FALSE_TYPE; t49264 = f17563((t49135.value.native_procedure_type21968), t49263); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49264; break; case NATIVE_PROCEDURE_TYPE21971: t49265 = FALSE_TYPE; t49266 = f17559((t49135.value.native_procedure_type21971), t49265); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49266; break; case NATIVE_PROCEDURE_TYPE21973: t49267 = FALSE_TYPE; t49268 = f17558((t49135.value.native_procedure_type21973), t49267); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49268; break; case NATIVE_PROCEDURE_TYPE21975: t49269 = FALSE_TYPE; t49270 = f17534((t49135.value.native_procedure_type21975), t49269); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49270; break; case NATIVE_PROCEDURE_TYPE21978: t49271 = FALSE_TYPE; t49272 = f17718((t49135.value.native_procedure_type21978), t49271); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49272; break; case NATIVE_PROCEDURE_TYPE21982: t49273 = FALSE_TYPE; t49274 = f17716((t49135.value.native_procedure_type21982), t49273); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49274; break; case NATIVE_PROCEDURE_TYPE21984: t49275 = FALSE_TYPE; t49276 = f17715((t49135.value.native_procedure_type21984), t49275); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49276; break; case NATIVE_PROCEDURE_TYPE21997: t49277 = FALSE_TYPE; t49278 = f17693((t49135.value.native_procedure_type21997), t49277); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49278; break; case NATIVE_PROCEDURE_TYPE22000: t49279 = FALSE_TYPE; t49280 = f17682((t49135.value.native_procedure_type22000), t49279); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49280; break; case NATIVE_PROCEDURE_TYPE22003: t49281 = FALSE_TYPE; t49282 = f17679((t49135.value.native_procedure_type22003), t49281); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49282; break; case NATIVE_PROCEDURE_TYPE22006: t49283 = FALSE_TYPE; t49284 = f17676((t49135.value.native_procedure_type22006), t49283); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49284; break; case NATIVE_PROCEDURE_TYPE22008: t49285 = FALSE_TYPE; t49286 = f17761((t49135.value.native_procedure_type22008), t49285); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49286; break; case NATIVE_PROCEDURE_TYPE22010: t49287 = FALSE_TYPE; t49288 = f17807((t49135.value.native_procedure_type22010), t49287); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49288; break; case NATIVE_PROCEDURE_TYPE22012: t49289 = FALSE_TYPE; t49290 = f17806((t49135.value.native_procedure_type22012), t49289); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49290; break; case NATIVE_PROCEDURE_TYPE22014: t49291 = FALSE_TYPE; t49292 = f17787((t49135.value.native_procedure_type22014), t49291); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49292; break; case NATIVE_PROCEDURE_TYPE22016: t49293 = FALSE_TYPE; t49294 = f17786((t49135.value.native_procedure_type22016), t49293); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49294; break; case NATIVE_PROCEDURE_TYPE22037: t49295 = FALSE_TYPE; t49296 = f17841((t49135.value.native_procedure_type22037), t49295); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49296; break; case NATIVE_PROCEDURE_TYPE22064: /* x298199 stalin.sc:19867:695278 */ /* x298198 stalin.sc:19867:695279 */ /* x303508 stalin.sc:14693:514793 */ t49125.tag = STRING_TYPE; t49125.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22072: t49297 = FALSE_TYPE; t49298 = f15886((t49135.value.native_procedure_type22072), t49297); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49298; break; case NATIVE_PROCEDURE_TYPE22081: t49299 = FALSE_TYPE; t49300 = f17894((t49135.value.native_procedure_type22081), t49299); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49300; break; case NATIVE_PROCEDURE_TYPE22091: t49301 = FALSE_TYPE; t49302 = f17885((t49135.value.native_procedure_type22091), t49301); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49302; break; case NATIVE_PROCEDURE_TYPE22100: t49303 = FALSE_TYPE; t49304 = f17641((t49135.value.native_procedure_type22100), t49303); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49304; break; case NATIVE_PROCEDURE_TYPE22102: t49305 = FALSE_TYPE; t49306 = f17640((t49135.value.native_procedure_type22102), t49305); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49306; break; case NATIVE_PROCEDURE_TYPE22104: t49307 = FALSE_TYPE; t49308 = f17639((t49135.value.native_procedure_type22104), t49307); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49308; break; case NATIVE_PROCEDURE_TYPE22106: t49309 = FALSE_TYPE; t49310 = f17491((t49135.value.native_procedure_type22106), t49309); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49310; break; case NATIVE_PROCEDURE_TYPE22112: t49311 = FALSE_TYPE; t49312 = f17936((t49135.value.native_procedure_type22112), t49311); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49312; break; case NATIVE_PROCEDURE_TYPE22117: t49313 = FALSE_TYPE; t49314 = f17957((t49135.value.native_procedure_type22117), t49313); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49314; break; case NATIVE_PROCEDURE_TYPE22119: t49315 = FALSE_TYPE; t49316 = f17948((t49135.value.native_procedure_type22119), t49315); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49316; break; case NATIVE_PROCEDURE_TYPE22124: t49317 = FALSE_TYPE; t49318 = f17976((t49135.value.native_procedure_type22124), t49317); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49318; break; case NATIVE_PROCEDURE_TYPE22127: t49319 = FALSE_TYPE; t49320 = f17966((t49135.value.native_procedure_type22127), t49319); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49320; break; case NATIVE_PROCEDURE_TYPE22130: t49321 = FALSE_TYPE; t49322 = f18033((t49135.value.native_procedure_type22130), t49321); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49322; break; case NATIVE_PROCEDURE_TYPE22132: t49323 = FALSE_TYPE; t49324 = f18032((t49135.value.native_procedure_type22132), t49323); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49324; break; case NATIVE_PROCEDURE_TYPE22135: t49325 = FALSE_TYPE; t49326 = f18008((t49135.value.native_procedure_type22135), t49325); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49326; break; case NATIVE_PROCEDURE_TYPE22137: t49327 = FALSE_TYPE; t49328 = f17986((t49135.value.native_procedure_type22137), t49327); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49328; break; case NATIVE_PROCEDURE_TYPE22139: t49329 = FALSE_TYPE; t49330 = f18072((t49135.value.native_procedure_type22139), t49329); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49330; break; case NATIVE_PROCEDURE_TYPE22141: t49331 = FALSE_TYPE; t49332 = f18090((t49135.value.native_procedure_type22141), t49331); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49332; break; case NATIVE_PROCEDURE_TYPE22143: t49333 = FALSE_TYPE; t49334 = f18081((t49135.value.native_procedure_type22143), t49333); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49334; break; case NATIVE_PROCEDURE_TYPE22145: t49335 = FALSE_TYPE; t49336 = f18063((t49135.value.native_procedure_type22145), t49335); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49336; break; case NATIVE_PROCEDURE_TYPE22148: t49337 = FALSE_TYPE; t49338 = f18121((t49135.value.native_procedure_type22148), t49337); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49338; break; case NATIVE_PROCEDURE_TYPE22154: t49339 = FALSE_TYPE; t49340 = f18148((t49135.value.native_procedure_type22154), t49339); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49340; break; case NATIVE_PROCEDURE_TYPE22160: t49341 = FALSE_TYPE; t49342 = f18135((t49135.value.native_procedure_type22160), t49341); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49342; break; case NATIVE_PROCEDURE_TYPE22162: t49343 = FALSE_TYPE; t49344 = f18133((t49135.value.native_procedure_type22162), t49343); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49344; break; case NATIVE_PROCEDURE_TYPE22165: t49345 = FALSE_TYPE; t49346 = f18042((t49135.value.native_procedure_type22165), t49345); t49125.tag = STRUCTURE_TYPE24753; t49125.value.structure_type24753 = t49346; break; default: /* x297702 stalin.sc:23751:825832 */ /* x297701 stalin.sc:23751:825833 */ /* x303214 QobiScheme.sc:166:5314 */ /* x303213 QobiScheme.sc:166:5321 */ t49347 = "This shouldn\'t happen"; /* x303212 QobiScheme.sc:166:5315 */ stalin_panic(t49347);} /* x132523 stalin.sc:16778:586565 */ /* x132508 stalin.sc:16775:586484 */ t49126 = FALSE_TYPE; t49111 = f13672(t49123, t49124, t49125, t49126); /* x132525 stalin.sc:16779:586575 */ /* x132493 stalin.sc:16773:586386 */ t49112 = FALSE_TYPE; return f13672(t49109, t49110, t49111, t49112); l7324: /* x132543 stalin.sc:16780:586586 */ /* x132535 stalin.sc:16780:586592 */ /* x132529 stalin.sc:16780:586598 */ t48888 = p14656->p14646->a26049; /* x132534 stalin.sc:16780:586601 */ /* x132532 stalin.sc:16780:586618 */ /* x132531 stalin.sc:16780:586619 */ /* x276353 stalin.sc:16167:562604 */ t48891 = "VALUE_OFFSET"; /* x132533 stalin.sc:16780:586635 */ t48892 = p14656->p14646->a26048; /* x132530 stalin.sc:16780:586602 */ t48893.tag = STRING_TYPE; t48893.value.string_type = t48891; t48889 = f14422(t48893, t48892); /* x132528 stalin.sc:16780:586593 */ t48890.tag = STRUCTURE_TYPE24753; t48890.value.structure_type24753 = t48889; t48884 = f13608(t48888, t48890); /* x132538 stalin.sc:16781:586645 */ /* x132537 stalin.sc:16781:586648 */ t48895 = a26062; /* x132536 stalin.sc:16781:586646 */ t48894 = p14656->a26053; t48885 = f14671(t48894, t48895); /* x132541 stalin.sc:16782:586657 */ /* x132540 stalin.sc:16782:586661 */ /* x132539 stalin.sc:16782:586658 */ t48896 = p14656->p14646->a26051; switch (t48896.tag) {case NATIVE_PROCEDURE_TYPE20757: t48897 = FALSE_TYPE; t48898 = f16097((t48896.value.native_procedure_type20757), t48897); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48898; break; case NATIVE_PROCEDURE_TYPE20782: t48899 = FALSE_TYPE; t48900 = f15772((t48896.value.native_procedure_type20782), t48899); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48900; break; case NATIVE_PROCEDURE_TYPE20850: p37514 = t48896.value.native_procedure_type20850; /* x302850 stalin.sc:17033:595793 */ /* x302849 stalin.sc:17033:595807 */ t48901 = p37514->a26136; /* x302848 stalin.sc:17033:595794 */ t48886 = f14708(t48901); break; case NATIVE_PROCEDURE_TYPE20913: t48902 = FALSE_TYPE; t48903 = f16433((t48896.value.native_procedure_type20913), t48902); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48903; break; case NATIVE_PROCEDURE_TYPE20915: t48904 = FALSE_TYPE; t48905 = f16417((t48896.value.native_procedure_type20915), t48904); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48905; break; case NATIVE_PROCEDURE_TYPE20918: t48906 = FALSE_TYPE; t48907 = f16635((t48896.value.native_procedure_type20918), t48906); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48907; break; case NATIVE_PROCEDURE_TYPE20927: p37495 = t48896.value.native_procedure_type20927; /* x302774 stalin.sc:21738:761657 */ /* x302773 stalin.sc:21738:761670 */ t48908 = p37495->a27722; /* x302772 stalin.sc:21738:761658 */ t48886 = f14707(t48908); break; case NATIVE_PROCEDURE_TYPE21036: /* x298044 stalin.sc:21885:766135 */ /* x298043 stalin.sc:21885:766136 */ /* x303362 QobiScheme.sc:166:5314 */ /* x303361 QobiScheme.sc:166:5321 */ t48909 = "This shouldn\'t happen"; /* x303360 QobiScheme.sc:166:5315 */ stalin_panic(t48909); break; case NATIVE_PROCEDURE_TYPE21042: /* x298105 stalin.sc:21855:765176 */ /* x298104 stalin.sc:21855:765177 */ /* x303438 QobiScheme.sc:166:5314 */ /* x303437 QobiScheme.sc:166:5321 */ t48910 = "This shouldn\'t happen"; /* x303436 QobiScheme.sc:166:5315 */ stalin_panic(t48910); break; case NATIVE_PROCEDURE_TYPE21048: t48911 = FALSE_TYPE; t48912 = f16737((t48896.value.native_procedure_type21048), t48911); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48912; break; case NATIVE_PROCEDURE_TYPE21059: t48913 = FALSE_TYPE; t48914 = f15571((t48896.value.native_procedure_type21059), t48913); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48914; break; case NATIVE_PROCEDURE_TYPE21065: t48915 = FALSE_TYPE; t48916 = f16830((t48896.value.native_procedure_type21065), t48915); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48916; break; case NATIVE_PROCEDURE_TYPE21082: t48917 = FALSE_TYPE; t48918 = f16721((t48896.value.native_procedure_type21082), t48917); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48918; break; case NATIVE_PROCEDURE_TYPE21087: t48919 = FALSE_TYPE; t48920 = f16648((t48896.value.native_procedure_type21087), t48919); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48920; break; case NATIVE_PROCEDURE_TYPE21090: t48921 = FALSE_TYPE; t48922 = f16858((t48896.value.native_procedure_type21090), t48921); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48922; break; case NATIVE_PROCEDURE_TYPE21108: t48923 = FALSE_TYPE; t48924 = f15580((t48896.value.native_procedure_type21108), t48923); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48924; break; case NATIVE_PROCEDURE_TYPE21110: t48925 = FALSE_TYPE; t48926 = f16912((t48896.value.native_procedure_type21110), t48925); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48926; break; case NATIVE_PROCEDURE_TYPE21117: t48927 = FALSE_TYPE; t48928 = f16884((t48896.value.native_procedure_type21117), t48927); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48928; break; case NATIVE_PROCEDURE_TYPE21137: t48929 = FALSE_TYPE; t48930 = f16982((t48896.value.native_procedure_type21137), t48929); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48930; break; case NATIVE_PROCEDURE_TYPE21147: t48931 = FALSE_TYPE; t48932 = f17061((t48896.value.native_procedure_type21147), t48931); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48932; break; case NATIVE_PROCEDURE_TYPE21152: t48933 = FALSE_TYPE; t48934 = f17134((t48896.value.native_procedure_type21152), t48933); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48934; break; case NATIVE_PROCEDURE_TYPE21154: t48935 = FALSE_TYPE; t48936 = f17133((t48896.value.native_procedure_type21154), t48935); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48936; break; case NATIVE_PROCEDURE_TYPE21170: t48937 = FALSE_TYPE; t48938 = f17101((t48896.value.native_procedure_type21170), t48937); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48938; break; case NATIVE_PROCEDURE_TYPE21172: t48939 = FALSE_TYPE; t48940 = f17100((t48896.value.native_procedure_type21172), t48939); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48940; break; case NATIVE_PROCEDURE_TYPE21201: t48941 = FALSE_TYPE; t48942 = f17026((t48896.value.native_procedure_type21201), t48941); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48942; break; case NATIVE_PROCEDURE_TYPE21225: t48943 = FALSE_TYPE; t48944 = f16941((t48896.value.native_procedure_type21225), t48943); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48944; break; case NATIVE_PROCEDURE_TYPE21228: t48945 = FALSE_TYPE; t48946 = f16844((t48896.value.native_procedure_type21228), t48945); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48946; break; case NATIVE_PROCEDURE_TYPE21234: t48947 = FALSE_TYPE; t48948 = f17200((t48896.value.native_procedure_type21234), t48947); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48948; break; case NATIVE_PROCEDURE_TYPE21236: t48949 = FALSE_TYPE; t48950 = f17199((t48896.value.native_procedure_type21236), t48949); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48950; break; case NATIVE_PROCEDURE_TYPE21256: t48951 = FALSE_TYPE; t48952 = f17222((t48896.value.native_procedure_type21256), t48951); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48952; break; case NATIVE_PROCEDURE_TYPE21259: t48953 = FALSE_TYPE; t48954 = f17209((t48896.value.native_procedure_type21259), t48953); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48954; break; case NATIVE_PROCEDURE_TYPE21265: t48955 = FALSE_TYPE; t48956 = f17254((t48896.value.native_procedure_type21265), t48955); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48956; break; case NATIVE_PROCEDURE_TYPE21268: t48957 = FALSE_TYPE; t48958 = f17295((t48896.value.native_procedure_type21268), t48957); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48958; break; case NATIVE_PROCEDURE_TYPE21274: t48959 = FALSE_TYPE; t48960 = f17333((t48896.value.native_procedure_type21274), t48959); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48960; break; case NATIVE_PROCEDURE_TYPE21280: t48961 = FALSE_TYPE; t48962 = f17314((t48896.value.native_procedure_type21280), t48961); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48962; break; case NATIVE_PROCEDURE_TYPE21286: t48963 = FALSE_TYPE; t48964 = f17276((t48896.value.native_procedure_type21286), t48963); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48964; break; case NATIVE_PROCEDURE_TYPE21296: t48965 = FALSE_TYPE; t48966 = f17238((t48896.value.native_procedure_type21296), t48965); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48966; break; case NATIVE_PROCEDURE_TYPE21299: t48967 = FALSE_TYPE; t48968 = f17357((t48896.value.native_procedure_type21299), t48967); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48968; break; case NATIVE_PROCEDURE_TYPE21304: t48969 = FALSE_TYPE; t48970 = f17381((t48896.value.native_procedure_type21304), t48969); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48970; break; case NATIVE_PROCEDURE_TYPE21309: t48971 = FALSE_TYPE; t48972 = f17369((t48896.value.native_procedure_type21309), t48971); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48972; break; case NATIVE_PROCEDURE_TYPE21314: t48973 = FALSE_TYPE; t48974 = f17405((t48896.value.native_procedure_type21314), t48973); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48974; break; case NATIVE_PROCEDURE_TYPE21319: t48975 = FALSE_TYPE; t48976 = f17440((t48896.value.native_procedure_type21319), t48975); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48976; break; case NATIVE_PROCEDURE_TYPE21324: t48977 = FALSE_TYPE; t48978 = f17437((t48896.value.native_procedure_type21324), t48977); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48978; break; case NATIVE_PROCEDURE_TYPE21329: t48979 = FALSE_TYPE; t48980 = f17430((t48896.value.native_procedure_type21329), t48979); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48980; break; case NATIVE_PROCEDURE_TYPE21334: t48981 = FALSE_TYPE; t48982 = f17417((t48896.value.native_procedure_type21334), t48981); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48982; break; case NATIVE_PROCEDURE_TYPE21339: t48983 = FALSE_TYPE; t48984 = f17473((t48896.value.native_procedure_type21339), t48983); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48984; break; case NATIVE_PROCEDURE_TYPE21341: t48985 = FALSE_TYPE; t48986 = f17472((t48896.value.native_procedure_type21341), t48985); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48986; break; case NATIVE_PROCEDURE_TYPE21348: t48987 = FALSE_TYPE; t48988 = f17452((t48896.value.native_procedure_type21348), t48987); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48988; break; case NATIVE_PROCEDURE_TYPE21353: t48989 = FALSE_TYPE; t48990 = f17393((t48896.value.native_procedure_type21353), t48989); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48990; break; case NATIVE_PROCEDURE_TYPE21358: t48991 = FALSE_TYPE; t48992 = f17345((t48896.value.native_procedure_type21358), t48991); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48992; break; case NATIVE_PROCEDURE_TYPE21363: t48993 = FALSE_TYPE; t48994 = f17167((t48896.value.native_procedure_type21363), t48993); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48994; break; case NATIVE_PROCEDURE_TYPE21365: t48995 = FALSE_TYPE; t48996 = f17166((t48896.value.native_procedure_type21365), t48995); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48996; break; case NATIVE_PROCEDURE_TYPE21381: t48997 = FALSE_TYPE; t48998 = f17504((t48896.value.native_procedure_type21381), t48997); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t48998; break; case NATIVE_PROCEDURE_TYPE21387: t48999 = FALSE_TYPE; t49000 = f17525((t48896.value.native_procedure_type21387), t48999); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49000; break; case NATIVE_PROCEDURE_TYPE21393: t49001 = FALSE_TYPE; t49002 = f17599((t48896.value.native_procedure_type21393), t49001); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49002; break; case NATIVE_PROCEDURE_TYPE21414: t49003 = f19631(); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49003; break; case NATIVE_PROCEDURE_TYPE21896: t49004 = FALSE_TYPE; t49005 = f15815((t48896.value.native_procedure_type21896), t49004); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49005; break; case NATIVE_PROCEDURE_TYPE21903: t49006 = FALSE_TYPE; t49007 = f15805((t48896.value.native_procedure_type21903), t49006); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49007; break; case NATIVE_PROCEDURE_TYPE21944: t49008 = FALSE_TYPE; t49009 = f17628((t48896.value.native_procedure_type21944), t49008); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49009; break; case NATIVE_PROCEDURE_TYPE21946: t49010 = FALSE_TYPE; t49011 = f17627((t48896.value.native_procedure_type21946), t49010); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49011; break; case NATIVE_PROCEDURE_TYPE21948: t49012 = FALSE_TYPE; t49013 = f17613((t48896.value.native_procedure_type21948), t49012); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49013; break; case NATIVE_PROCEDURE_TYPE21952: t49014 = FALSE_TYPE; t49015 = f17579((t48896.value.native_procedure_type21952), t49014); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49015; break; case NATIVE_PROCEDURE_TYPE21956: t49016 = FALSE_TYPE; t49017 = f17576((t48896.value.native_procedure_type21956), t49016); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49017; break; case NATIVE_PROCEDURE_TYPE21961: t49018 = FALSE_TYPE; t49019 = f17569((t48896.value.native_procedure_type21961), t49018); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49019; break; case NATIVE_PROCEDURE_TYPE21963: t49020 = FALSE_TYPE; t49021 = f17568((t48896.value.native_procedure_type21963), t49020); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49021; break; case NATIVE_PROCEDURE_TYPE21966: t49022 = FALSE_TYPE; t49023 = f17564((t48896.value.native_procedure_type21966), t49022); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49023; break; case NATIVE_PROCEDURE_TYPE21968: t49024 = FALSE_TYPE; t49025 = f17563((t48896.value.native_procedure_type21968), t49024); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49025; break; case NATIVE_PROCEDURE_TYPE21971: t49026 = FALSE_TYPE; t49027 = f17559((t48896.value.native_procedure_type21971), t49026); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49027; break; case NATIVE_PROCEDURE_TYPE21973: t49028 = FALSE_TYPE; t49029 = f17558((t48896.value.native_procedure_type21973), t49028); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49029; break; case NATIVE_PROCEDURE_TYPE21975: t49030 = FALSE_TYPE; t49031 = f17534((t48896.value.native_procedure_type21975), t49030); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49031; break; case NATIVE_PROCEDURE_TYPE21978: t49032 = FALSE_TYPE; t49033 = f17718((t48896.value.native_procedure_type21978), t49032); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49033; break; case NATIVE_PROCEDURE_TYPE21982: t49034 = FALSE_TYPE; t49035 = f17716((t48896.value.native_procedure_type21982), t49034); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49035; break; case NATIVE_PROCEDURE_TYPE21984: t49036 = FALSE_TYPE; t49037 = f17715((t48896.value.native_procedure_type21984), t49036); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49037; break; case NATIVE_PROCEDURE_TYPE21997: t49038 = FALSE_TYPE; t49039 = f17693((t48896.value.native_procedure_type21997), t49038); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49039; break; case NATIVE_PROCEDURE_TYPE22000: t49040 = FALSE_TYPE; t49041 = f17682((t48896.value.native_procedure_type22000), t49040); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49041; break; case NATIVE_PROCEDURE_TYPE22003: t49042 = FALSE_TYPE; t49043 = f17679((t48896.value.native_procedure_type22003), t49042); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49043; break; case NATIVE_PROCEDURE_TYPE22006: t49044 = FALSE_TYPE; t49045 = f17676((t48896.value.native_procedure_type22006), t49044); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49045; break; case NATIVE_PROCEDURE_TYPE22008: t49046 = FALSE_TYPE; t49047 = f17761((t48896.value.native_procedure_type22008), t49046); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49047; break; case NATIVE_PROCEDURE_TYPE22010: t49048 = FALSE_TYPE; t49049 = f17807((t48896.value.native_procedure_type22010), t49048); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49049; break; case NATIVE_PROCEDURE_TYPE22012: t49050 = FALSE_TYPE; t49051 = f17806((t48896.value.native_procedure_type22012), t49050); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49051; break; case NATIVE_PROCEDURE_TYPE22014: t49052 = FALSE_TYPE; t49053 = f17787((t48896.value.native_procedure_type22014), t49052); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49053; break; case NATIVE_PROCEDURE_TYPE22016: t49054 = FALSE_TYPE; t49055 = f17786((t48896.value.native_procedure_type22016), t49054); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49055; break; case NATIVE_PROCEDURE_TYPE22037: t49056 = FALSE_TYPE; t49057 = f17841((t48896.value.native_procedure_type22037), t49056); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49057; break; case NATIVE_PROCEDURE_TYPE22064: /* x298202 stalin.sc:19867:695278 */ /* x298201 stalin.sc:19867:695279 */ /* x303510 stalin.sc:14693:514793 */ t48886.tag = STRING_TYPE; t48886.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22072: t49058 = FALSE_TYPE; t49059 = f15886((t48896.value.native_procedure_type22072), t49058); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49059; break; case NATIVE_PROCEDURE_TYPE22081: t49060 = FALSE_TYPE; t49061 = f17894((t48896.value.native_procedure_type22081), t49060); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49061; break; case NATIVE_PROCEDURE_TYPE22091: t49062 = FALSE_TYPE; t49063 = f17885((t48896.value.native_procedure_type22091), t49062); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49063; break; case NATIVE_PROCEDURE_TYPE22100: t49064 = FALSE_TYPE; t49065 = f17641((t48896.value.native_procedure_type22100), t49064); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49065; break; case NATIVE_PROCEDURE_TYPE22102: t49066 = FALSE_TYPE; t49067 = f17640((t48896.value.native_procedure_type22102), t49066); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49067; break; case NATIVE_PROCEDURE_TYPE22104: t49068 = FALSE_TYPE; t49069 = f17639((t48896.value.native_procedure_type22104), t49068); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49069; break; case NATIVE_PROCEDURE_TYPE22106: t49070 = FALSE_TYPE; t49071 = f17491((t48896.value.native_procedure_type22106), t49070); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49071; break; case NATIVE_PROCEDURE_TYPE22112: t49072 = FALSE_TYPE; t49073 = f17936((t48896.value.native_procedure_type22112), t49072); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49073; break; case NATIVE_PROCEDURE_TYPE22117: t49074 = FALSE_TYPE; t49075 = f17957((t48896.value.native_procedure_type22117), t49074); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49075; break; case NATIVE_PROCEDURE_TYPE22119: t49076 = FALSE_TYPE; t49077 = f17948((t48896.value.native_procedure_type22119), t49076); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49077; break; case NATIVE_PROCEDURE_TYPE22124: t49078 = FALSE_TYPE; t49079 = f17976((t48896.value.native_procedure_type22124), t49078); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49079; break; case NATIVE_PROCEDURE_TYPE22127: t49080 = FALSE_TYPE; t49081 = f17966((t48896.value.native_procedure_type22127), t49080); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49081; break; case NATIVE_PROCEDURE_TYPE22130: t49082 = FALSE_TYPE; t49083 = f18033((t48896.value.native_procedure_type22130), t49082); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49083; break; case NATIVE_PROCEDURE_TYPE22132: t49084 = FALSE_TYPE; t49085 = f18032((t48896.value.native_procedure_type22132), t49084); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49085; break; case NATIVE_PROCEDURE_TYPE22135: t49086 = FALSE_TYPE; t49087 = f18008((t48896.value.native_procedure_type22135), t49086); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49087; break; case NATIVE_PROCEDURE_TYPE22137: t49088 = FALSE_TYPE; t49089 = f17986((t48896.value.native_procedure_type22137), t49088); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49089; break; case NATIVE_PROCEDURE_TYPE22139: t49090 = FALSE_TYPE; t49091 = f18072((t48896.value.native_procedure_type22139), t49090); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49091; break; case NATIVE_PROCEDURE_TYPE22141: t49092 = FALSE_TYPE; t49093 = f18090((t48896.value.native_procedure_type22141), t49092); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49093; break; case NATIVE_PROCEDURE_TYPE22143: t49094 = FALSE_TYPE; t49095 = f18081((t48896.value.native_procedure_type22143), t49094); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49095; break; case NATIVE_PROCEDURE_TYPE22145: t49096 = FALSE_TYPE; t49097 = f18063((t48896.value.native_procedure_type22145), t49096); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49097; break; case NATIVE_PROCEDURE_TYPE22148: t49098 = FALSE_TYPE; t49099 = f18121((t48896.value.native_procedure_type22148), t49098); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49099; break; case NATIVE_PROCEDURE_TYPE22154: t49100 = FALSE_TYPE; t49101 = f18148((t48896.value.native_procedure_type22154), t49100); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49101; break; case NATIVE_PROCEDURE_TYPE22160: t49102 = FALSE_TYPE; t49103 = f18135((t48896.value.native_procedure_type22160), t49102); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49103; break; case NATIVE_PROCEDURE_TYPE22162: t49104 = FALSE_TYPE; t49105 = f18133((t48896.value.native_procedure_type22162), t49104); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49105; break; case NATIVE_PROCEDURE_TYPE22165: t49106 = FALSE_TYPE; t49107 = f18042((t48896.value.native_procedure_type22165), t49106); t48886.tag = STRUCTURE_TYPE24753; t48886.value.structure_type24753 = t49107; break; default: /* x297705 stalin.sc:23751:825832 */ /* x297704 stalin.sc:23751:825833 */ /* x303218 QobiScheme.sc:166:5314 */ /* x303217 QobiScheme.sc:166:5321 */ t49108 = "This shouldn\'t happen"; /* x303216 QobiScheme.sc:166:5315 */ stalin_panic(t49108);} /* x132542 stalin.sc:16783:586671 */ /* x132527 stalin.sc:16780:586587 */ t48887 = FALSE_TYPE; return f13672(t48884, t48885, t48886, t48887); l7322: /* x132547 stalin.sc:16784:586679 */ /* x132546 stalin.sc:16784:586682 */ t48880 = a26062; /* x132545 stalin.sc:16784:586680 */ t48879 = p14656->a26053; return f14671(t48879, t48880);} /* [inside COMPILE-SQUISHED-TYPE-SWITCH 14655] */ char *f14655(struct p14646 *p14655, struct w49 a26061) {unsigned t49348; struct w49 t49349; struct w49 t49350; struct w49 t49351; /* x132471 stalin.sc:16768:586226 */ /* x132470 stalin.sc:16768:586236 */ /* x132468 stalin.sc:16768:586248 */ t49350 = a26061; /* x132469 stalin.sc:16768:586250 */ t49351 = p14655->a26048; /* x132467 stalin.sc:16768:586237 */ t49348 = f14564(t49350, t49351); /* x132466 stalin.sc:16768:586227 */ /* MOVE: dispatching squished to general */ if (t49348==FALSE_TYPE) t49349.tag = (unsigned)t49348; else {t49349.tag = FIXNUM_TYPE; t49349.value.fixnum_type = (int)(((int)t49348)>>1);} return f13530(t49349);} /* [inside COMPILE-SQUISHED-TYPE-SWITCH 14654] */ struct w49 f14654(struct p14647 *p14654, struct w49 a26060) {unsigned t49352; struct w49 t49353; struct w49 t49354; struct p14646 *t49355; struct w49 t49356; struct w49 t49357; struct w211257 t49358; struct w49 t49359; struct structure_type24753 *t49360; struct w49 t49361; struct w49 t49362; unsigned t49363; struct w49 t49364; struct structure_type24753 *t49365; struct w49 t49366; char *t49367; struct w49 t49368; struct w49 t49369; struct p14646 *t49370; struct w49 t49371; struct w155916 t49372; unsigned t49373; struct structure_type24753 *t49374; unsigned t49375; struct structure_type24753 *t49376; struct structure_type27501 *t49377; unsigned t49378; struct structure_type24753 *t49379; unsigned t49380; struct structure_type24753 *t49381; unsigned t49382; struct structure_type24753 *t49383; struct structure_type27501 *t49384; char *t49385; char *t49386; unsigned t49387; struct structure_type24753 *t49388; unsigned t49389; struct structure_type24753 *t49390; unsigned t49391; struct structure_type24753 *t49392; unsigned t49393; struct structure_type24753 *t49394; unsigned t49395; struct structure_type24753 *t49396; unsigned t49397; struct structure_type24753 *t49398; unsigned t49399; struct structure_type24753 *t49400; unsigned t49401; struct structure_type24753 *t49402; unsigned t49403; struct structure_type24753 *t49404; unsigned t49405; struct structure_type24753 *t49406; unsigned t49407; struct structure_type24753 *t49408; unsigned t49409; struct structure_type24753 *t49410; unsigned t49411; struct structure_type24753 *t49412; unsigned t49413; struct structure_type24753 *t49414; unsigned t49415; struct structure_type24753 *t49416; unsigned t49417; struct structure_type24753 *t49418; unsigned t49419; struct structure_type24753 *t49420; unsigned t49421; struct structure_type24753 *t49422; unsigned t49423; struct structure_type24753 *t49424; unsigned t49425; struct structure_type24753 *t49426; unsigned t49427; struct structure_type24753 *t49428; unsigned t49429; struct structure_type24753 *t49430; unsigned t49431; struct structure_type24753 *t49432; unsigned t49433; struct structure_type24753 *t49434; unsigned t49435; struct structure_type24753 *t49436; unsigned t49437; struct structure_type24753 *t49438; unsigned t49439; struct structure_type24753 *t49440; unsigned t49441; struct structure_type24753 *t49442; unsigned t49443; struct structure_type24753 *t49444; unsigned t49445; struct structure_type24753 *t49446; unsigned t49447; struct structure_type24753 *t49448; unsigned t49449; struct structure_type24753 *t49450; unsigned t49451; struct structure_type24753 *t49452; unsigned t49453; struct structure_type24753 *t49454; unsigned t49455; struct structure_type24753 *t49456; unsigned t49457; struct structure_type24753 *t49458; unsigned t49459; struct structure_type24753 *t49460; unsigned t49461; struct structure_type24753 *t49462; unsigned t49463; struct structure_type24753 *t49464; unsigned t49465; struct structure_type24753 *t49466; unsigned t49467; struct structure_type24753 *t49468; unsigned t49469; struct structure_type24753 *t49470; unsigned t49471; struct structure_type24753 *t49472; unsigned t49473; struct structure_type24753 *t49474; unsigned t49475; struct structure_type24753 *t49476; unsigned t49477; struct structure_type24753 *t49478; struct structure_type24753 *t49479; unsigned t49480; struct structure_type24753 *t49481; unsigned t49482; struct structure_type24753 *t49483; unsigned t49484; struct structure_type24753 *t49485; unsigned t49486; struct structure_type24753 *t49487; unsigned t49488; struct structure_type24753 *t49489; unsigned t49490; struct structure_type24753 *t49491; unsigned t49492; struct structure_type24753 *t49493; unsigned t49494; struct structure_type24753 *t49495; unsigned t49496; struct structure_type24753 *t49497; unsigned t49498; struct structure_type24753 *t49499; unsigned t49500; struct structure_type24753 *t49501; unsigned t49502; struct structure_type24753 *t49503; unsigned t49504; struct structure_type24753 *t49505; unsigned t49506; struct structure_type24753 *t49507; unsigned t49508; struct structure_type24753 *t49509; unsigned t49510; struct structure_type24753 *t49511; unsigned t49512; struct structure_type24753 *t49513; unsigned t49514; struct structure_type24753 *t49515; unsigned t49516; struct structure_type24753 *t49517; unsigned t49518; struct structure_type24753 *t49519; unsigned t49520; struct structure_type24753 *t49521; unsigned t49522; struct structure_type24753 *t49523; unsigned t49524; struct structure_type24753 *t49525; unsigned t49526; struct structure_type24753 *t49527; unsigned t49528; struct structure_type24753 *t49529; unsigned t49530; struct structure_type24753 *t49531; unsigned t49532; struct structure_type24753 *t49533; unsigned t49534; struct structure_type24753 *t49535; unsigned t49536; struct structure_type24753 *t49537; unsigned t49538; struct structure_type24753 *t49539; unsigned t49540; struct structure_type24753 *t49541; unsigned t49542; struct structure_type24753 *t49543; unsigned t49544; struct structure_type24753 *t49545; unsigned t49546; struct structure_type24753 *t49547; unsigned t49548; struct structure_type24753 *t49549; unsigned t49550; struct structure_type24753 *t49551; unsigned t49552; struct structure_type24753 *t49553; unsigned t49554; struct structure_type24753 *t49555; unsigned t49556; struct structure_type24753 *t49557; unsigned t49558; struct structure_type24753 *t49559; unsigned t49560; struct structure_type24753 *t49561; unsigned t49562; struct structure_type24753 *t49563; unsigned t49564; struct structure_type24753 *t49565; unsigned t49566; struct structure_type24753 *t49567; unsigned t49568; struct structure_type24753 *t49569; unsigned t49570; struct structure_type24753 *t49571; unsigned t49572; struct structure_type24753 *t49573; unsigned t49574; struct structure_type24753 *t49575; unsigned t49576; struct structure_type24753 *t49577; unsigned t49578; struct structure_type24753 *t49579; unsigned t49580; struct structure_type24753 *t49581; unsigned t49582; struct structure_type24753 *t49583; char *t49584; struct structure_type24753 *t49585; struct w49 t49586; struct w49 t49587; unsigned t49588; struct w49 t49589; struct structure_type24753 *t49590; struct w49 t49591; char *t49592; struct w49 t49593; struct w49 t49594; struct p14646 *t49595; struct w49 t49596; struct w49 t49597; struct w211113 t49598; struct structure_type24753 *t49599; struct w49 t49600; struct w49 t49601; unsigned t49602; struct w49 t49603; struct structure_type24753 *t49604; struct w49 t49605; char *t49606; struct w49 t49607; struct w49 t49608; struct p14646 *t49609; struct w49 t49610; struct w155916 t49611; unsigned t49612; struct structure_type24753 *t49613; unsigned t49614; struct structure_type24753 *t49615; struct structure_type27501 *t49616; unsigned t49617; struct structure_type24753 *t49618; unsigned t49619; struct structure_type24753 *t49620; unsigned t49621; struct structure_type24753 *t49622; struct structure_type27501 *t49623; char *t49624; char *t49625; unsigned t49626; struct structure_type24753 *t49627; unsigned t49628; struct structure_type24753 *t49629; unsigned t49630; struct structure_type24753 *t49631; unsigned t49632; struct structure_type24753 *t49633; unsigned t49634; struct structure_type24753 *t49635; unsigned t49636; struct structure_type24753 *t49637; unsigned t49638; struct structure_type24753 *t49639; unsigned t49640; struct structure_type24753 *t49641; unsigned t49642; struct structure_type24753 *t49643; unsigned t49644; struct structure_type24753 *t49645; unsigned t49646; struct structure_type24753 *t49647; unsigned t49648; struct structure_type24753 *t49649; unsigned t49650; struct structure_type24753 *t49651; unsigned t49652; struct structure_type24753 *t49653; unsigned t49654; struct structure_type24753 *t49655; unsigned t49656; struct structure_type24753 *t49657; unsigned t49658; struct structure_type24753 *t49659; unsigned t49660; struct structure_type24753 *t49661; unsigned t49662; struct structure_type24753 *t49663; unsigned t49664; struct structure_type24753 *t49665; unsigned t49666; struct structure_type24753 *t49667; unsigned t49668; struct structure_type24753 *t49669; unsigned t49670; struct structure_type24753 *t49671; unsigned t49672; struct structure_type24753 *t49673; unsigned t49674; struct structure_type24753 *t49675; unsigned t49676; struct structure_type24753 *t49677; unsigned t49678; struct structure_type24753 *t49679; unsigned t49680; struct structure_type24753 *t49681; unsigned t49682; struct structure_type24753 *t49683; unsigned t49684; struct structure_type24753 *t49685; unsigned t49686; struct structure_type24753 *t49687; unsigned t49688; struct structure_type24753 *t49689; unsigned t49690; struct structure_type24753 *t49691; unsigned t49692; struct structure_type24753 *t49693; unsigned t49694; struct structure_type24753 *t49695; unsigned t49696; struct structure_type24753 *t49697; unsigned t49698; struct structure_type24753 *t49699; unsigned t49700; struct structure_type24753 *t49701; unsigned t49702; struct structure_type24753 *t49703; unsigned t49704; struct structure_type24753 *t49705; unsigned t49706; struct structure_type24753 *t49707; unsigned t49708; struct structure_type24753 *t49709; unsigned t49710; struct structure_type24753 *t49711; unsigned t49712; struct structure_type24753 *t49713; unsigned t49714; struct structure_type24753 *t49715; unsigned t49716; struct structure_type24753 *t49717; struct structure_type24753 *t49718; unsigned t49719; struct structure_type24753 *t49720; unsigned t49721; struct structure_type24753 *t49722; unsigned t49723; struct structure_type24753 *t49724; unsigned t49725; struct structure_type24753 *t49726; unsigned t49727; struct structure_type24753 *t49728; unsigned t49729; struct structure_type24753 *t49730; unsigned t49731; struct structure_type24753 *t49732; unsigned t49733; struct structure_type24753 *t49734; unsigned t49735; struct structure_type24753 *t49736; unsigned t49737; struct structure_type24753 *t49738; unsigned t49739; struct structure_type24753 *t49740; unsigned t49741; struct structure_type24753 *t49742; unsigned t49743; struct structure_type24753 *t49744; unsigned t49745; struct structure_type24753 *t49746; unsigned t49747; struct structure_type24753 *t49748; unsigned t49749; struct structure_type24753 *t49750; unsigned t49751; struct structure_type24753 *t49752; unsigned t49753; struct structure_type24753 *t49754; unsigned t49755; struct structure_type24753 *t49756; unsigned t49757; struct structure_type24753 *t49758; unsigned t49759; struct structure_type24753 *t49760; unsigned t49761; struct structure_type24753 *t49762; unsigned t49763; struct structure_type24753 *t49764; unsigned t49765; struct structure_type24753 *t49766; unsigned t49767; struct structure_type24753 *t49768; unsigned t49769; struct structure_type24753 *t49770; unsigned t49771; struct structure_type24753 *t49772; unsigned t49773; struct structure_type24753 *t49774; unsigned t49775; struct structure_type24753 *t49776; unsigned t49777; struct structure_type24753 *t49778; unsigned t49779; struct structure_type24753 *t49780; unsigned t49781; struct structure_type24753 *t49782; unsigned t49783; struct structure_type24753 *t49784; unsigned t49785; struct structure_type24753 *t49786; unsigned t49787; struct structure_type24753 *t49788; unsigned t49789; struct structure_type24753 *t49790; unsigned t49791; struct structure_type24753 *t49792; unsigned t49793; struct structure_type24753 *t49794; unsigned t49795; struct structure_type24753 *t49796; unsigned t49797; struct structure_type24753 *t49798; unsigned t49799; struct structure_type24753 *t49800; unsigned t49801; struct structure_type24753 *t49802; unsigned t49803; struct structure_type24753 *t49804; unsigned t49805; struct structure_type24753 *t49806; unsigned t49807; struct structure_type24753 *t49808; unsigned t49809; struct structure_type24753 *t49810; unsigned t49811; struct structure_type24753 *t49812; unsigned t49813; struct structure_type24753 *t49814; unsigned t49815; struct structure_type24753 *t49816; unsigned t49817; struct structure_type24753 *t49818; unsigned t49819; struct structure_type24753 *t49820; unsigned t49821; struct structure_type24753 *t49822; char *t49823; struct p16486 *p37496; struct p16486 *p37497; struct p14711 *p37515; struct p14711 *p37516; /* x132451 stalin.sc:16749:585725 */ /* x132384 stalin.sc:16749:585729 */ /* x132383 stalin.sc:16749:585736 */ /* x132381 stalin.sc:16749:585748 */ t49353 = a26060; /* x132382 stalin.sc:16749:585750 */ t49354 = p14654->p14646->a26048; /* x132380 stalin.sc:16749:585737 */ t49352 = f14564(t49353, t49354); /* x268823 stalin.sc:16749:585730 */ if (!((t49352&1)==1)) {backtrace("stalin.sc", 16749, 585729); zero_error();} if (!(((int)(((int)t49352)>>1))==0)) goto l7327; /* x132447 stalin.sc:16750:585757 */ /* x132395 stalin.sc:16750:585761 */ /* x132388 stalin.sc:16750:585766 */ /* x132386 stalin.sc:16750:585775 */ /* x132387 stalin.sc:16750:585786 */ t49357 = p14654->p14646->a26048; /* x132385 stalin.sc:16750:585767 */ t49358.tag = NATIVE_PROCEDURE_TYPE7431; if ((f8137(t49358, t49357).tag)==FALSE_TYPE) goto l7329; /* x132393 */ /* x132392 stalin.sc:16750:585794 */ /* x132391 stalin.sc:16750:585806 */ t49359 = a26060; /* x132390 stalin.sc:16750:585795 */ if (!(f7682(t49359)==FALSE_TYPE)) goto l7329; /* x132429 stalin.sc:16751:585818 */ /* x132404 stalin.sc:16751:585824 */ /* x132398 stalin.sc:16751:585829 */ t49589 = p14654->p14646->a26049; /* x132403 stalin.sc:16751:585832 */ /* x132401 stalin.sc:16751:585849 */ /* x132400 stalin.sc:16751:585850 */ /* x276335 stalin.sc:16169:562645 */ t49592 = "CHAR_OFFSET"; /* x132402 stalin.sc:16751:585865 */ t49593 = p14654->p14646->a26048; /* x132399 stalin.sc:16751:585833 */ t49594.tag = STRING_TYPE; t49594.value.string_type = t49592; t49590 = f14422(t49594, t49593); /* x132397 stalin.sc:16751:585825 */ t49591.tag = STRUCTURE_TYPE24753; t49591.value.structure_type24753 = t49590; t49585 = f13601(t49589, t49591); /* x132410 stalin.sc:16752:585875 */ /* x132409 stalin.sc:16752:585878 */ /* x132407 stalin.sc:16752:585895 */ /* x132408 stalin.sc:16752:585906 */ t49597 = p14654->p14646->a26048; /* x132406 stalin.sc:16752:585879 */ t49598.tag = NATIVE_PROCEDURE_TYPE7431; t49596 = f8157(t49598, t49597); /* x132405 stalin.sc:16752:585876 */ t49595 = p14654->a26053; t49586 = f14671(t49595, t49596); /* x132427 stalin.sc:16753:585916 */ /* x132419 stalin.sc:16753:585922 */ /* x132413 stalin.sc:16753:585928 */ t49603 = p14654->p14646->a26049; /* x132418 stalin.sc:16753:585931 */ /* x132416 stalin.sc:16753:585948 */ /* x132415 stalin.sc:16753:585949 */ /* x276355 stalin.sc:16167:562604 */ t49606 = "VALUE_OFFSET"; /* x132417 stalin.sc:16753:585965 */ t49607 = p14654->p14646->a26048; /* x132414 stalin.sc:16753:585932 */ t49608.tag = STRING_TYPE; t49608.value.string_type = t49606; t49604 = f14422(t49608, t49607); /* x132412 stalin.sc:16753:585923 */ t49605.tag = STRUCTURE_TYPE24753; t49605.value.structure_type24753 = t49604; t49599 = f13608(t49603, t49605); /* x132422 stalin.sc:16754:585974 */ /* x132421 stalin.sc:16754:585977 */ t49610 = a26060; /* x132420 stalin.sc:16754:585975 */ t49609 = p14654->a26053; t49600 = f14671(t49609, t49610); /* x132425 stalin.sc:16755:585985 */ /* x132424 stalin.sc:16755:585989 */ /* x132423 stalin.sc:16755:585986 */ t49611 = p14654->p14646->a26051; switch (t49611.tag) {case NATIVE_PROCEDURE_TYPE20757: t49612 = FALSE_TYPE; t49613 = f16097((t49611.value.native_procedure_type20757), t49612); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49613; break; case NATIVE_PROCEDURE_TYPE20782: t49614 = FALSE_TYPE; t49615 = f15772((t49611.value.native_procedure_type20782), t49614); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49615; break; case NATIVE_PROCEDURE_TYPE20850: p37515 = t49611.value.native_procedure_type20850; /* x302854 stalin.sc:17033:595793 */ /* x302853 stalin.sc:17033:595807 */ t49616 = p37515->a26136; /* x302852 stalin.sc:17033:595794 */ t49601 = f14708(t49616); break; case NATIVE_PROCEDURE_TYPE20913: t49617 = FALSE_TYPE; t49618 = f16433((t49611.value.native_procedure_type20913), t49617); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49618; break; case NATIVE_PROCEDURE_TYPE20915: t49619 = FALSE_TYPE; t49620 = f16417((t49611.value.native_procedure_type20915), t49619); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49620; break; case NATIVE_PROCEDURE_TYPE20918: t49621 = FALSE_TYPE; t49622 = f16635((t49611.value.native_procedure_type20918), t49621); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49622; break; case NATIVE_PROCEDURE_TYPE20927: p37496 = t49611.value.native_procedure_type20927; /* x302778 stalin.sc:21738:761657 */ /* x302777 stalin.sc:21738:761670 */ t49623 = p37496->a27722; /* x302776 stalin.sc:21738:761658 */ t49601 = f14707(t49623); break; case NATIVE_PROCEDURE_TYPE21036: /* x298047 stalin.sc:21885:766135 */ /* x298046 stalin.sc:21885:766136 */ /* x303366 QobiScheme.sc:166:5314 */ /* x303365 QobiScheme.sc:166:5321 */ t49624 = "This shouldn\'t happen"; /* x303364 QobiScheme.sc:166:5315 */ stalin_panic(t49624); break; case NATIVE_PROCEDURE_TYPE21042: /* x298108 stalin.sc:21855:765176 */ /* x298107 stalin.sc:21855:765177 */ /* x303442 QobiScheme.sc:166:5314 */ /* x303441 QobiScheme.sc:166:5321 */ t49625 = "This shouldn\'t happen"; /* x303440 QobiScheme.sc:166:5315 */ stalin_panic(t49625); break; case NATIVE_PROCEDURE_TYPE21048: t49626 = FALSE_TYPE; t49627 = f16737((t49611.value.native_procedure_type21048), t49626); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49627; break; case NATIVE_PROCEDURE_TYPE21059: t49628 = FALSE_TYPE; t49629 = f15571((t49611.value.native_procedure_type21059), t49628); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49629; break; case NATIVE_PROCEDURE_TYPE21065: t49630 = FALSE_TYPE; t49631 = f16830((t49611.value.native_procedure_type21065), t49630); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49631; break; case NATIVE_PROCEDURE_TYPE21082: t49632 = FALSE_TYPE; t49633 = f16721((t49611.value.native_procedure_type21082), t49632); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49633; break; case NATIVE_PROCEDURE_TYPE21087: t49634 = FALSE_TYPE; t49635 = f16648((t49611.value.native_procedure_type21087), t49634); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49635; break; case NATIVE_PROCEDURE_TYPE21090: t49636 = FALSE_TYPE; t49637 = f16858((t49611.value.native_procedure_type21090), t49636); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49637; break; case NATIVE_PROCEDURE_TYPE21108: t49638 = FALSE_TYPE; t49639 = f15580((t49611.value.native_procedure_type21108), t49638); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49639; break; case NATIVE_PROCEDURE_TYPE21110: t49640 = FALSE_TYPE; t49641 = f16912((t49611.value.native_procedure_type21110), t49640); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49641; break; case NATIVE_PROCEDURE_TYPE21117: t49642 = FALSE_TYPE; t49643 = f16884((t49611.value.native_procedure_type21117), t49642); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49643; break; case NATIVE_PROCEDURE_TYPE21137: t49644 = FALSE_TYPE; t49645 = f16982((t49611.value.native_procedure_type21137), t49644); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49645; break; case NATIVE_PROCEDURE_TYPE21147: t49646 = FALSE_TYPE; t49647 = f17061((t49611.value.native_procedure_type21147), t49646); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49647; break; case NATIVE_PROCEDURE_TYPE21152: t49648 = FALSE_TYPE; t49649 = f17134((t49611.value.native_procedure_type21152), t49648); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49649; break; case NATIVE_PROCEDURE_TYPE21154: t49650 = FALSE_TYPE; t49651 = f17133((t49611.value.native_procedure_type21154), t49650); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49651; break; case NATIVE_PROCEDURE_TYPE21170: t49652 = FALSE_TYPE; t49653 = f17101((t49611.value.native_procedure_type21170), t49652); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49653; break; case NATIVE_PROCEDURE_TYPE21172: t49654 = FALSE_TYPE; t49655 = f17100((t49611.value.native_procedure_type21172), t49654); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49655; break; case NATIVE_PROCEDURE_TYPE21201: t49656 = FALSE_TYPE; t49657 = f17026((t49611.value.native_procedure_type21201), t49656); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49657; break; case NATIVE_PROCEDURE_TYPE21225: t49658 = FALSE_TYPE; t49659 = f16941((t49611.value.native_procedure_type21225), t49658); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49659; break; case NATIVE_PROCEDURE_TYPE21228: t49660 = FALSE_TYPE; t49661 = f16844((t49611.value.native_procedure_type21228), t49660); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49661; break; case NATIVE_PROCEDURE_TYPE21234: t49662 = FALSE_TYPE; t49663 = f17200((t49611.value.native_procedure_type21234), t49662); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49663; break; case NATIVE_PROCEDURE_TYPE21236: t49664 = FALSE_TYPE; t49665 = f17199((t49611.value.native_procedure_type21236), t49664); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49665; break; case NATIVE_PROCEDURE_TYPE21256: t49666 = FALSE_TYPE; t49667 = f17222((t49611.value.native_procedure_type21256), t49666); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49667; break; case NATIVE_PROCEDURE_TYPE21259: t49668 = FALSE_TYPE; t49669 = f17209((t49611.value.native_procedure_type21259), t49668); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49669; break; case NATIVE_PROCEDURE_TYPE21265: t49670 = FALSE_TYPE; t49671 = f17254((t49611.value.native_procedure_type21265), t49670); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49671; break; case NATIVE_PROCEDURE_TYPE21268: t49672 = FALSE_TYPE; t49673 = f17295((t49611.value.native_procedure_type21268), t49672); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49673; break; case NATIVE_PROCEDURE_TYPE21274: t49674 = FALSE_TYPE; t49675 = f17333((t49611.value.native_procedure_type21274), t49674); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49675; break; case NATIVE_PROCEDURE_TYPE21280: t49676 = FALSE_TYPE; t49677 = f17314((t49611.value.native_procedure_type21280), t49676); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49677; break; case NATIVE_PROCEDURE_TYPE21286: t49678 = FALSE_TYPE; t49679 = f17276((t49611.value.native_procedure_type21286), t49678); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49679; break; case NATIVE_PROCEDURE_TYPE21296: t49680 = FALSE_TYPE; t49681 = f17238((t49611.value.native_procedure_type21296), t49680); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49681; break; case NATIVE_PROCEDURE_TYPE21299: t49682 = FALSE_TYPE; t49683 = f17357((t49611.value.native_procedure_type21299), t49682); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49683; break; case NATIVE_PROCEDURE_TYPE21304: t49684 = FALSE_TYPE; t49685 = f17381((t49611.value.native_procedure_type21304), t49684); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49685; break; case NATIVE_PROCEDURE_TYPE21309: t49686 = FALSE_TYPE; t49687 = f17369((t49611.value.native_procedure_type21309), t49686); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49687; break; case NATIVE_PROCEDURE_TYPE21314: t49688 = FALSE_TYPE; t49689 = f17405((t49611.value.native_procedure_type21314), t49688); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49689; break; case NATIVE_PROCEDURE_TYPE21319: t49690 = FALSE_TYPE; t49691 = f17440((t49611.value.native_procedure_type21319), t49690); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49691; break; case NATIVE_PROCEDURE_TYPE21324: t49692 = FALSE_TYPE; t49693 = f17437((t49611.value.native_procedure_type21324), t49692); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49693; break; case NATIVE_PROCEDURE_TYPE21329: t49694 = FALSE_TYPE; t49695 = f17430((t49611.value.native_procedure_type21329), t49694); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49695; break; case NATIVE_PROCEDURE_TYPE21334: t49696 = FALSE_TYPE; t49697 = f17417((t49611.value.native_procedure_type21334), t49696); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49697; break; case NATIVE_PROCEDURE_TYPE21339: t49698 = FALSE_TYPE; t49699 = f17473((t49611.value.native_procedure_type21339), t49698); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49699; break; case NATIVE_PROCEDURE_TYPE21341: t49700 = FALSE_TYPE; t49701 = f17472((t49611.value.native_procedure_type21341), t49700); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49701; break; case NATIVE_PROCEDURE_TYPE21348: t49702 = FALSE_TYPE; t49703 = f17452((t49611.value.native_procedure_type21348), t49702); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49703; break; case NATIVE_PROCEDURE_TYPE21353: t49704 = FALSE_TYPE; t49705 = f17393((t49611.value.native_procedure_type21353), t49704); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49705; break; case NATIVE_PROCEDURE_TYPE21358: t49706 = FALSE_TYPE; t49707 = f17345((t49611.value.native_procedure_type21358), t49706); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49707; break; case NATIVE_PROCEDURE_TYPE21363: t49708 = FALSE_TYPE; t49709 = f17167((t49611.value.native_procedure_type21363), t49708); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49709; break; case NATIVE_PROCEDURE_TYPE21365: t49710 = FALSE_TYPE; t49711 = f17166((t49611.value.native_procedure_type21365), t49710); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49711; break; case NATIVE_PROCEDURE_TYPE21381: t49712 = FALSE_TYPE; t49713 = f17504((t49611.value.native_procedure_type21381), t49712); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49713; break; case NATIVE_PROCEDURE_TYPE21387: t49714 = FALSE_TYPE; t49715 = f17525((t49611.value.native_procedure_type21387), t49714); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49715; break; case NATIVE_PROCEDURE_TYPE21393: t49716 = FALSE_TYPE; t49717 = f17599((t49611.value.native_procedure_type21393), t49716); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49717; break; case NATIVE_PROCEDURE_TYPE21414: t49718 = f19631(); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49718; break; case NATIVE_PROCEDURE_TYPE21896: t49719 = FALSE_TYPE; t49720 = f15815((t49611.value.native_procedure_type21896), t49719); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49720; break; case NATIVE_PROCEDURE_TYPE21903: t49721 = FALSE_TYPE; t49722 = f15805((t49611.value.native_procedure_type21903), t49721); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49722; break; case NATIVE_PROCEDURE_TYPE21944: t49723 = FALSE_TYPE; t49724 = f17628((t49611.value.native_procedure_type21944), t49723); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49724; break; case NATIVE_PROCEDURE_TYPE21946: t49725 = FALSE_TYPE; t49726 = f17627((t49611.value.native_procedure_type21946), t49725); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49726; break; case NATIVE_PROCEDURE_TYPE21948: t49727 = FALSE_TYPE; t49728 = f17613((t49611.value.native_procedure_type21948), t49727); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49728; break; case NATIVE_PROCEDURE_TYPE21952: t49729 = FALSE_TYPE; t49730 = f17579((t49611.value.native_procedure_type21952), t49729); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49730; break; case NATIVE_PROCEDURE_TYPE21956: t49731 = FALSE_TYPE; t49732 = f17576((t49611.value.native_procedure_type21956), t49731); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49732; break; case NATIVE_PROCEDURE_TYPE21961: t49733 = FALSE_TYPE; t49734 = f17569((t49611.value.native_procedure_type21961), t49733); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49734; break; case NATIVE_PROCEDURE_TYPE21963: t49735 = FALSE_TYPE; t49736 = f17568((t49611.value.native_procedure_type21963), t49735); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49736; break; case NATIVE_PROCEDURE_TYPE21966: t49737 = FALSE_TYPE; t49738 = f17564((t49611.value.native_procedure_type21966), t49737); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49738; break; case NATIVE_PROCEDURE_TYPE21968: t49739 = FALSE_TYPE; t49740 = f17563((t49611.value.native_procedure_type21968), t49739); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49740; break; case NATIVE_PROCEDURE_TYPE21971: t49741 = FALSE_TYPE; t49742 = f17559((t49611.value.native_procedure_type21971), t49741); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49742; break; case NATIVE_PROCEDURE_TYPE21973: t49743 = FALSE_TYPE; t49744 = f17558((t49611.value.native_procedure_type21973), t49743); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49744; break; case NATIVE_PROCEDURE_TYPE21975: t49745 = FALSE_TYPE; t49746 = f17534((t49611.value.native_procedure_type21975), t49745); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49746; break; case NATIVE_PROCEDURE_TYPE21978: t49747 = FALSE_TYPE; t49748 = f17718((t49611.value.native_procedure_type21978), t49747); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49748; break; case NATIVE_PROCEDURE_TYPE21982: t49749 = FALSE_TYPE; t49750 = f17716((t49611.value.native_procedure_type21982), t49749); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49750; break; case NATIVE_PROCEDURE_TYPE21984: t49751 = FALSE_TYPE; t49752 = f17715((t49611.value.native_procedure_type21984), t49751); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49752; break; case NATIVE_PROCEDURE_TYPE21997: t49753 = FALSE_TYPE; t49754 = f17693((t49611.value.native_procedure_type21997), t49753); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49754; break; case NATIVE_PROCEDURE_TYPE22000: t49755 = FALSE_TYPE; t49756 = f17682((t49611.value.native_procedure_type22000), t49755); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49756; break; case NATIVE_PROCEDURE_TYPE22003: t49757 = FALSE_TYPE; t49758 = f17679((t49611.value.native_procedure_type22003), t49757); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49758; break; case NATIVE_PROCEDURE_TYPE22006: t49759 = FALSE_TYPE; t49760 = f17676((t49611.value.native_procedure_type22006), t49759); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49760; break; case NATIVE_PROCEDURE_TYPE22008: t49761 = FALSE_TYPE; t49762 = f17761((t49611.value.native_procedure_type22008), t49761); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49762; break; case NATIVE_PROCEDURE_TYPE22010: t49763 = FALSE_TYPE; t49764 = f17807((t49611.value.native_procedure_type22010), t49763); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49764; break; case NATIVE_PROCEDURE_TYPE22012: t49765 = FALSE_TYPE; t49766 = f17806((t49611.value.native_procedure_type22012), t49765); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49766; break; case NATIVE_PROCEDURE_TYPE22014: t49767 = FALSE_TYPE; t49768 = f17787((t49611.value.native_procedure_type22014), t49767); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49768; break; case NATIVE_PROCEDURE_TYPE22016: t49769 = FALSE_TYPE; t49770 = f17786((t49611.value.native_procedure_type22016), t49769); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49770; break; case NATIVE_PROCEDURE_TYPE22037: t49771 = FALSE_TYPE; t49772 = f17841((t49611.value.native_procedure_type22037), t49771); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49772; break; case NATIVE_PROCEDURE_TYPE22064: /* x298205 stalin.sc:19867:695278 */ /* x298204 stalin.sc:19867:695279 */ /* x303512 stalin.sc:14693:514793 */ t49601.tag = STRING_TYPE; t49601.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22072: t49773 = FALSE_TYPE; t49774 = f15886((t49611.value.native_procedure_type22072), t49773); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49774; break; case NATIVE_PROCEDURE_TYPE22081: t49775 = FALSE_TYPE; t49776 = f17894((t49611.value.native_procedure_type22081), t49775); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49776; break; case NATIVE_PROCEDURE_TYPE22091: t49777 = FALSE_TYPE; t49778 = f17885((t49611.value.native_procedure_type22091), t49777); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49778; break; case NATIVE_PROCEDURE_TYPE22100: t49779 = FALSE_TYPE; t49780 = f17641((t49611.value.native_procedure_type22100), t49779); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49780; break; case NATIVE_PROCEDURE_TYPE22102: t49781 = FALSE_TYPE; t49782 = f17640((t49611.value.native_procedure_type22102), t49781); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49782; break; case NATIVE_PROCEDURE_TYPE22104: t49783 = FALSE_TYPE; t49784 = f17639((t49611.value.native_procedure_type22104), t49783); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49784; break; case NATIVE_PROCEDURE_TYPE22106: t49785 = FALSE_TYPE; t49786 = f17491((t49611.value.native_procedure_type22106), t49785); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49786; break; case NATIVE_PROCEDURE_TYPE22112: t49787 = FALSE_TYPE; t49788 = f17936((t49611.value.native_procedure_type22112), t49787); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49788; break; case NATIVE_PROCEDURE_TYPE22117: t49789 = FALSE_TYPE; t49790 = f17957((t49611.value.native_procedure_type22117), t49789); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49790; break; case NATIVE_PROCEDURE_TYPE22119: t49791 = FALSE_TYPE; t49792 = f17948((t49611.value.native_procedure_type22119), t49791); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49792; break; case NATIVE_PROCEDURE_TYPE22124: t49793 = FALSE_TYPE; t49794 = f17976((t49611.value.native_procedure_type22124), t49793); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49794; break; case NATIVE_PROCEDURE_TYPE22127: t49795 = FALSE_TYPE; t49796 = f17966((t49611.value.native_procedure_type22127), t49795); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49796; break; case NATIVE_PROCEDURE_TYPE22130: t49797 = FALSE_TYPE; t49798 = f18033((t49611.value.native_procedure_type22130), t49797); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49798; break; case NATIVE_PROCEDURE_TYPE22132: t49799 = FALSE_TYPE; t49800 = f18032((t49611.value.native_procedure_type22132), t49799); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49800; break; case NATIVE_PROCEDURE_TYPE22135: t49801 = FALSE_TYPE; t49802 = f18008((t49611.value.native_procedure_type22135), t49801); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49802; break; case NATIVE_PROCEDURE_TYPE22137: t49803 = FALSE_TYPE; t49804 = f17986((t49611.value.native_procedure_type22137), t49803); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49804; break; case NATIVE_PROCEDURE_TYPE22139: t49805 = FALSE_TYPE; t49806 = f18072((t49611.value.native_procedure_type22139), t49805); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49806; break; case NATIVE_PROCEDURE_TYPE22141: t49807 = FALSE_TYPE; t49808 = f18090((t49611.value.native_procedure_type22141), t49807); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49808; break; case NATIVE_PROCEDURE_TYPE22143: t49809 = FALSE_TYPE; t49810 = f18081((t49611.value.native_procedure_type22143), t49809); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49810; break; case NATIVE_PROCEDURE_TYPE22145: t49811 = FALSE_TYPE; t49812 = f18063((t49611.value.native_procedure_type22145), t49811); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49812; break; case NATIVE_PROCEDURE_TYPE22148: t49813 = FALSE_TYPE; t49814 = f18121((t49611.value.native_procedure_type22148), t49813); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49814; break; case NATIVE_PROCEDURE_TYPE22154: t49815 = FALSE_TYPE; t49816 = f18148((t49611.value.native_procedure_type22154), t49815); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49816; break; case NATIVE_PROCEDURE_TYPE22160: t49817 = FALSE_TYPE; t49818 = f18135((t49611.value.native_procedure_type22160), t49817); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49818; break; case NATIVE_PROCEDURE_TYPE22162: t49819 = FALSE_TYPE; t49820 = f18133((t49611.value.native_procedure_type22162), t49819); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49820; break; case NATIVE_PROCEDURE_TYPE22165: t49821 = FALSE_TYPE; t49822 = f18042((t49611.value.native_procedure_type22165), t49821); t49601.tag = STRUCTURE_TYPE24753; t49601.value.structure_type24753 = t49822; break; default: /* x297708 stalin.sc:23751:825832 */ /* x297707 stalin.sc:23751:825833 */ /* x303222 QobiScheme.sc:166:5314 */ /* x303221 QobiScheme.sc:166:5321 */ t49823 = "This shouldn\'t happen"; /* x303220 QobiScheme.sc:166:5315 */ stalin_panic(t49823);} /* x132426 stalin.sc:16756:585998 */ /* x132411 stalin.sc:16753:585917 */ t49602 = FALSE_TYPE; t49587 = f13672(t49599, t49600, t49601, t49602); /* x132428 stalin.sc:16757:586008 */ /* x132396 stalin.sc:16751:585819 */ t49588 = FALSE_TYPE; return f13672(t49585, t49586, t49587, t49588); l7329: /* x132446 stalin.sc:16758:586019 */ /* x132438 stalin.sc:16758:586025 */ /* x132432 stalin.sc:16758:586031 */ t49364 = p14654->p14646->a26049; /* x132437 stalin.sc:16758:586034 */ /* x132435 stalin.sc:16758:586051 */ /* x132434 stalin.sc:16758:586052 */ /* x276357 stalin.sc:16167:562604 */ t49367 = "VALUE_OFFSET"; /* x132436 stalin.sc:16758:586068 */ t49368 = p14654->p14646->a26048; /* x132433 stalin.sc:16758:586035 */ t49369.tag = STRING_TYPE; t49369.value.string_type = t49367; t49365 = f14422(t49369, t49368); /* x132431 stalin.sc:16758:586026 */ t49366.tag = STRUCTURE_TYPE24753; t49366.value.structure_type24753 = t49365; t49360 = f13608(t49364, t49366); /* x132441 stalin.sc:16759:586078 */ /* x132440 stalin.sc:16759:586081 */ t49371 = a26060; /* x132439 stalin.sc:16759:586079 */ t49370 = p14654->a26053; t49361 = f14671(t49370, t49371); /* x132444 stalin.sc:16760:586090 */ /* x132443 stalin.sc:16760:586094 */ /* x132442 stalin.sc:16760:586091 */ t49372 = p14654->p14646->a26051; switch (t49372.tag) {case NATIVE_PROCEDURE_TYPE20757: t49373 = FALSE_TYPE; t49374 = f16097((t49372.value.native_procedure_type20757), t49373); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49374; break; case NATIVE_PROCEDURE_TYPE20782: t49375 = FALSE_TYPE; t49376 = f15772((t49372.value.native_procedure_type20782), t49375); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49376; break; case NATIVE_PROCEDURE_TYPE20850: p37516 = t49372.value.native_procedure_type20850; /* x302858 stalin.sc:17033:595793 */ /* x302857 stalin.sc:17033:595807 */ t49377 = p37516->a26136; /* x302856 stalin.sc:17033:595794 */ t49362 = f14708(t49377); break; case NATIVE_PROCEDURE_TYPE20913: t49378 = FALSE_TYPE; t49379 = f16433((t49372.value.native_procedure_type20913), t49378); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49379; break; case NATIVE_PROCEDURE_TYPE20915: t49380 = FALSE_TYPE; t49381 = f16417((t49372.value.native_procedure_type20915), t49380); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49381; break; case NATIVE_PROCEDURE_TYPE20918: t49382 = FALSE_TYPE; t49383 = f16635((t49372.value.native_procedure_type20918), t49382); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49383; break; case NATIVE_PROCEDURE_TYPE20927: p37497 = t49372.value.native_procedure_type20927; /* x302782 stalin.sc:21738:761657 */ /* x302781 stalin.sc:21738:761670 */ t49384 = p37497->a27722; /* x302780 stalin.sc:21738:761658 */ t49362 = f14707(t49384); break; case NATIVE_PROCEDURE_TYPE21036: /* x298050 stalin.sc:21885:766135 */ /* x298049 stalin.sc:21885:766136 */ /* x303370 QobiScheme.sc:166:5314 */ /* x303369 QobiScheme.sc:166:5321 */ t49385 = "This shouldn\'t happen"; /* x303368 QobiScheme.sc:166:5315 */ stalin_panic(t49385); break; case NATIVE_PROCEDURE_TYPE21042: /* x298111 stalin.sc:21855:765176 */ /* x298110 stalin.sc:21855:765177 */ /* x303446 QobiScheme.sc:166:5314 */ /* x303445 QobiScheme.sc:166:5321 */ t49386 = "This shouldn\'t happen"; /* x303444 QobiScheme.sc:166:5315 */ stalin_panic(t49386); break; case NATIVE_PROCEDURE_TYPE21048: t49387 = FALSE_TYPE; t49388 = f16737((t49372.value.native_procedure_type21048), t49387); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49388; break; case NATIVE_PROCEDURE_TYPE21059: t49389 = FALSE_TYPE; t49390 = f15571((t49372.value.native_procedure_type21059), t49389); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49390; break; case NATIVE_PROCEDURE_TYPE21065: t49391 = FALSE_TYPE; t49392 = f16830((t49372.value.native_procedure_type21065), t49391); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49392; break; case NATIVE_PROCEDURE_TYPE21082: t49393 = FALSE_TYPE; t49394 = f16721((t49372.value.native_procedure_type21082), t49393); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49394; break; case NATIVE_PROCEDURE_TYPE21087: t49395 = FALSE_TYPE; t49396 = f16648((t49372.value.native_procedure_type21087), t49395); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49396; break; case NATIVE_PROCEDURE_TYPE21090: t49397 = FALSE_TYPE; t49398 = f16858((t49372.value.native_procedure_type21090), t49397); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49398; break; case NATIVE_PROCEDURE_TYPE21108: t49399 = FALSE_TYPE; t49400 = f15580((t49372.value.native_procedure_type21108), t49399); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49400; break; case NATIVE_PROCEDURE_TYPE21110: t49401 = FALSE_TYPE; t49402 = f16912((t49372.value.native_procedure_type21110), t49401); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49402; break; case NATIVE_PROCEDURE_TYPE21117: t49403 = FALSE_TYPE; t49404 = f16884((t49372.value.native_procedure_type21117), t49403); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49404; break; case NATIVE_PROCEDURE_TYPE21137: t49405 = FALSE_TYPE; t49406 = f16982((t49372.value.native_procedure_type21137), t49405); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49406; break; case NATIVE_PROCEDURE_TYPE21147: t49407 = FALSE_TYPE; t49408 = f17061((t49372.value.native_procedure_type21147), t49407); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49408; break; case NATIVE_PROCEDURE_TYPE21152: t49409 = FALSE_TYPE; t49410 = f17134((t49372.value.native_procedure_type21152), t49409); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49410; break; case NATIVE_PROCEDURE_TYPE21154: t49411 = FALSE_TYPE; t49412 = f17133((t49372.value.native_procedure_type21154), t49411); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49412; break; case NATIVE_PROCEDURE_TYPE21170: t49413 = FALSE_TYPE; t49414 = f17101((t49372.value.native_procedure_type21170), t49413); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49414; break; case NATIVE_PROCEDURE_TYPE21172: t49415 = FALSE_TYPE; t49416 = f17100((t49372.value.native_procedure_type21172), t49415); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49416; break; case NATIVE_PROCEDURE_TYPE21201: t49417 = FALSE_TYPE; t49418 = f17026((t49372.value.native_procedure_type21201), t49417); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49418; break; case NATIVE_PROCEDURE_TYPE21225: t49419 = FALSE_TYPE; t49420 = f16941((t49372.value.native_procedure_type21225), t49419); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49420; break; case NATIVE_PROCEDURE_TYPE21228: t49421 = FALSE_TYPE; t49422 = f16844((t49372.value.native_procedure_type21228), t49421); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49422; break; case NATIVE_PROCEDURE_TYPE21234: t49423 = FALSE_TYPE; t49424 = f17200((t49372.value.native_procedure_type21234), t49423); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49424; break; case NATIVE_PROCEDURE_TYPE21236: t49425 = FALSE_TYPE; t49426 = f17199((t49372.value.native_procedure_type21236), t49425); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49426; break; case NATIVE_PROCEDURE_TYPE21256: t49427 = FALSE_TYPE; t49428 = f17222((t49372.value.native_procedure_type21256), t49427); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49428; break; case NATIVE_PROCEDURE_TYPE21259: t49429 = FALSE_TYPE; t49430 = f17209((t49372.value.native_procedure_type21259), t49429); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49430; break; case NATIVE_PROCEDURE_TYPE21265: t49431 = FALSE_TYPE; t49432 = f17254((t49372.value.native_procedure_type21265), t49431); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49432; break; case NATIVE_PROCEDURE_TYPE21268: t49433 = FALSE_TYPE; t49434 = f17295((t49372.value.native_procedure_type21268), t49433); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49434; break; case NATIVE_PROCEDURE_TYPE21274: t49435 = FALSE_TYPE; t49436 = f17333((t49372.value.native_procedure_type21274), t49435); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49436; break; case NATIVE_PROCEDURE_TYPE21280: t49437 = FALSE_TYPE; t49438 = f17314((t49372.value.native_procedure_type21280), t49437); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49438; break; case NATIVE_PROCEDURE_TYPE21286: t49439 = FALSE_TYPE; t49440 = f17276((t49372.value.native_procedure_type21286), t49439); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49440; break; case NATIVE_PROCEDURE_TYPE21296: t49441 = FALSE_TYPE; t49442 = f17238((t49372.value.native_procedure_type21296), t49441); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49442; break; case NATIVE_PROCEDURE_TYPE21299: t49443 = FALSE_TYPE; t49444 = f17357((t49372.value.native_procedure_type21299), t49443); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49444; break; case NATIVE_PROCEDURE_TYPE21304: t49445 = FALSE_TYPE; t49446 = f17381((t49372.value.native_procedure_type21304), t49445); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49446; break; case NATIVE_PROCEDURE_TYPE21309: t49447 = FALSE_TYPE; t49448 = f17369((t49372.value.native_procedure_type21309), t49447); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49448; break; case NATIVE_PROCEDURE_TYPE21314: t49449 = FALSE_TYPE; t49450 = f17405((t49372.value.native_procedure_type21314), t49449); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49450; break; case NATIVE_PROCEDURE_TYPE21319: t49451 = FALSE_TYPE; t49452 = f17440((t49372.value.native_procedure_type21319), t49451); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49452; break; case NATIVE_PROCEDURE_TYPE21324: t49453 = FALSE_TYPE; t49454 = f17437((t49372.value.native_procedure_type21324), t49453); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49454; break; case NATIVE_PROCEDURE_TYPE21329: t49455 = FALSE_TYPE; t49456 = f17430((t49372.value.native_procedure_type21329), t49455); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49456; break; case NATIVE_PROCEDURE_TYPE21334: t49457 = FALSE_TYPE; t49458 = f17417((t49372.value.native_procedure_type21334), t49457); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49458; break; case NATIVE_PROCEDURE_TYPE21339: t49459 = FALSE_TYPE; t49460 = f17473((t49372.value.native_procedure_type21339), t49459); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49460; break; case NATIVE_PROCEDURE_TYPE21341: t49461 = FALSE_TYPE; t49462 = f17472((t49372.value.native_procedure_type21341), t49461); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49462; break; case NATIVE_PROCEDURE_TYPE21348: t49463 = FALSE_TYPE; t49464 = f17452((t49372.value.native_procedure_type21348), t49463); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49464; break; case NATIVE_PROCEDURE_TYPE21353: t49465 = FALSE_TYPE; t49466 = f17393((t49372.value.native_procedure_type21353), t49465); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49466; break; case NATIVE_PROCEDURE_TYPE21358: t49467 = FALSE_TYPE; t49468 = f17345((t49372.value.native_procedure_type21358), t49467); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49468; break; case NATIVE_PROCEDURE_TYPE21363: t49469 = FALSE_TYPE; t49470 = f17167((t49372.value.native_procedure_type21363), t49469); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49470; break; case NATIVE_PROCEDURE_TYPE21365: t49471 = FALSE_TYPE; t49472 = f17166((t49372.value.native_procedure_type21365), t49471); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49472; break; case NATIVE_PROCEDURE_TYPE21381: t49473 = FALSE_TYPE; t49474 = f17504((t49372.value.native_procedure_type21381), t49473); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49474; break; case NATIVE_PROCEDURE_TYPE21387: t49475 = FALSE_TYPE; t49476 = f17525((t49372.value.native_procedure_type21387), t49475); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49476; break; case NATIVE_PROCEDURE_TYPE21393: t49477 = FALSE_TYPE; t49478 = f17599((t49372.value.native_procedure_type21393), t49477); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49478; break; case NATIVE_PROCEDURE_TYPE21414: t49479 = f19631(); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49479; break; case NATIVE_PROCEDURE_TYPE21896: t49480 = FALSE_TYPE; t49481 = f15815((t49372.value.native_procedure_type21896), t49480); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49481; break; case NATIVE_PROCEDURE_TYPE21903: t49482 = FALSE_TYPE; t49483 = f15805((t49372.value.native_procedure_type21903), t49482); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49483; break; case NATIVE_PROCEDURE_TYPE21944: t49484 = FALSE_TYPE; t49485 = f17628((t49372.value.native_procedure_type21944), t49484); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49485; break; case NATIVE_PROCEDURE_TYPE21946: t49486 = FALSE_TYPE; t49487 = f17627((t49372.value.native_procedure_type21946), t49486); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49487; break; case NATIVE_PROCEDURE_TYPE21948: t49488 = FALSE_TYPE; t49489 = f17613((t49372.value.native_procedure_type21948), t49488); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49489; break; case NATIVE_PROCEDURE_TYPE21952: t49490 = FALSE_TYPE; t49491 = f17579((t49372.value.native_procedure_type21952), t49490); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49491; break; case NATIVE_PROCEDURE_TYPE21956: t49492 = FALSE_TYPE; t49493 = f17576((t49372.value.native_procedure_type21956), t49492); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49493; break; case NATIVE_PROCEDURE_TYPE21961: t49494 = FALSE_TYPE; t49495 = f17569((t49372.value.native_procedure_type21961), t49494); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49495; break; case NATIVE_PROCEDURE_TYPE21963: t49496 = FALSE_TYPE; t49497 = f17568((t49372.value.native_procedure_type21963), t49496); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49497; break; case NATIVE_PROCEDURE_TYPE21966: t49498 = FALSE_TYPE; t49499 = f17564((t49372.value.native_procedure_type21966), t49498); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49499; break; case NATIVE_PROCEDURE_TYPE21968: t49500 = FALSE_TYPE; t49501 = f17563((t49372.value.native_procedure_type21968), t49500); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49501; break; case NATIVE_PROCEDURE_TYPE21971: t49502 = FALSE_TYPE; t49503 = f17559((t49372.value.native_procedure_type21971), t49502); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49503; break; case NATIVE_PROCEDURE_TYPE21973: t49504 = FALSE_TYPE; t49505 = f17558((t49372.value.native_procedure_type21973), t49504); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49505; break; case NATIVE_PROCEDURE_TYPE21975: t49506 = FALSE_TYPE; t49507 = f17534((t49372.value.native_procedure_type21975), t49506); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49507; break; case NATIVE_PROCEDURE_TYPE21978: t49508 = FALSE_TYPE; t49509 = f17718((t49372.value.native_procedure_type21978), t49508); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49509; break; case NATIVE_PROCEDURE_TYPE21982: t49510 = FALSE_TYPE; t49511 = f17716((t49372.value.native_procedure_type21982), t49510); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49511; break; case NATIVE_PROCEDURE_TYPE21984: t49512 = FALSE_TYPE; t49513 = f17715((t49372.value.native_procedure_type21984), t49512); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49513; break; case NATIVE_PROCEDURE_TYPE21997: t49514 = FALSE_TYPE; t49515 = f17693((t49372.value.native_procedure_type21997), t49514); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49515; break; case NATIVE_PROCEDURE_TYPE22000: t49516 = FALSE_TYPE; t49517 = f17682((t49372.value.native_procedure_type22000), t49516); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49517; break; case NATIVE_PROCEDURE_TYPE22003: t49518 = FALSE_TYPE; t49519 = f17679((t49372.value.native_procedure_type22003), t49518); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49519; break; case NATIVE_PROCEDURE_TYPE22006: t49520 = FALSE_TYPE; t49521 = f17676((t49372.value.native_procedure_type22006), t49520); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49521; break; case NATIVE_PROCEDURE_TYPE22008: t49522 = FALSE_TYPE; t49523 = f17761((t49372.value.native_procedure_type22008), t49522); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49523; break; case NATIVE_PROCEDURE_TYPE22010: t49524 = FALSE_TYPE; t49525 = f17807((t49372.value.native_procedure_type22010), t49524); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49525; break; case NATIVE_PROCEDURE_TYPE22012: t49526 = FALSE_TYPE; t49527 = f17806((t49372.value.native_procedure_type22012), t49526); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49527; break; case NATIVE_PROCEDURE_TYPE22014: t49528 = FALSE_TYPE; t49529 = f17787((t49372.value.native_procedure_type22014), t49528); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49529; break; case NATIVE_PROCEDURE_TYPE22016: t49530 = FALSE_TYPE; t49531 = f17786((t49372.value.native_procedure_type22016), t49530); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49531; break; case NATIVE_PROCEDURE_TYPE22037: t49532 = FALSE_TYPE; t49533 = f17841((t49372.value.native_procedure_type22037), t49532); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49533; break; case NATIVE_PROCEDURE_TYPE22064: /* x298208 stalin.sc:19867:695278 */ /* x298207 stalin.sc:19867:695279 */ /* x303514 stalin.sc:14693:514793 */ t49362.tag = STRING_TYPE; t49362.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22072: t49534 = FALSE_TYPE; t49535 = f15886((t49372.value.native_procedure_type22072), t49534); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49535; break; case NATIVE_PROCEDURE_TYPE22081: t49536 = FALSE_TYPE; t49537 = f17894((t49372.value.native_procedure_type22081), t49536); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49537; break; case NATIVE_PROCEDURE_TYPE22091: t49538 = FALSE_TYPE; t49539 = f17885((t49372.value.native_procedure_type22091), t49538); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49539; break; case NATIVE_PROCEDURE_TYPE22100: t49540 = FALSE_TYPE; t49541 = f17641((t49372.value.native_procedure_type22100), t49540); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49541; break; case NATIVE_PROCEDURE_TYPE22102: t49542 = FALSE_TYPE; t49543 = f17640((t49372.value.native_procedure_type22102), t49542); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49543; break; case NATIVE_PROCEDURE_TYPE22104: t49544 = FALSE_TYPE; t49545 = f17639((t49372.value.native_procedure_type22104), t49544); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49545; break; case NATIVE_PROCEDURE_TYPE22106: t49546 = FALSE_TYPE; t49547 = f17491((t49372.value.native_procedure_type22106), t49546); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49547; break; case NATIVE_PROCEDURE_TYPE22112: t49548 = FALSE_TYPE; t49549 = f17936((t49372.value.native_procedure_type22112), t49548); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49549; break; case NATIVE_PROCEDURE_TYPE22117: t49550 = FALSE_TYPE; t49551 = f17957((t49372.value.native_procedure_type22117), t49550); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49551; break; case NATIVE_PROCEDURE_TYPE22119: t49552 = FALSE_TYPE; t49553 = f17948((t49372.value.native_procedure_type22119), t49552); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49553; break; case NATIVE_PROCEDURE_TYPE22124: t49554 = FALSE_TYPE; t49555 = f17976((t49372.value.native_procedure_type22124), t49554); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49555; break; case NATIVE_PROCEDURE_TYPE22127: t49556 = FALSE_TYPE; t49557 = f17966((t49372.value.native_procedure_type22127), t49556); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49557; break; case NATIVE_PROCEDURE_TYPE22130: t49558 = FALSE_TYPE; t49559 = f18033((t49372.value.native_procedure_type22130), t49558); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49559; break; case NATIVE_PROCEDURE_TYPE22132: t49560 = FALSE_TYPE; t49561 = f18032((t49372.value.native_procedure_type22132), t49560); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49561; break; case NATIVE_PROCEDURE_TYPE22135: t49562 = FALSE_TYPE; t49563 = f18008((t49372.value.native_procedure_type22135), t49562); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49563; break; case NATIVE_PROCEDURE_TYPE22137: t49564 = FALSE_TYPE; t49565 = f17986((t49372.value.native_procedure_type22137), t49564); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49565; break; case NATIVE_PROCEDURE_TYPE22139: t49566 = FALSE_TYPE; t49567 = f18072((t49372.value.native_procedure_type22139), t49566); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49567; break; case NATIVE_PROCEDURE_TYPE22141: t49568 = FALSE_TYPE; t49569 = f18090((t49372.value.native_procedure_type22141), t49568); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49569; break; case NATIVE_PROCEDURE_TYPE22143: t49570 = FALSE_TYPE; t49571 = f18081((t49372.value.native_procedure_type22143), t49570); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49571; break; case NATIVE_PROCEDURE_TYPE22145: t49572 = FALSE_TYPE; t49573 = f18063((t49372.value.native_procedure_type22145), t49572); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49573; break; case NATIVE_PROCEDURE_TYPE22148: t49574 = FALSE_TYPE; t49575 = f18121((t49372.value.native_procedure_type22148), t49574); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49575; break; case NATIVE_PROCEDURE_TYPE22154: t49576 = FALSE_TYPE; t49577 = f18148((t49372.value.native_procedure_type22154), t49576); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49577; break; case NATIVE_PROCEDURE_TYPE22160: t49578 = FALSE_TYPE; t49579 = f18135((t49372.value.native_procedure_type22160), t49578); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49579; break; case NATIVE_PROCEDURE_TYPE22162: t49580 = FALSE_TYPE; t49581 = f18133((t49372.value.native_procedure_type22162), t49580); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49581; break; case NATIVE_PROCEDURE_TYPE22165: t49582 = FALSE_TYPE; t49583 = f18042((t49372.value.native_procedure_type22165), t49582); t49362.tag = STRUCTURE_TYPE24753; t49362.value.structure_type24753 = t49583; break; default: /* x297711 stalin.sc:23751:825832 */ /* x297710 stalin.sc:23751:825833 */ /* x303226 QobiScheme.sc:166:5314 */ /* x303225 QobiScheme.sc:166:5321 */ t49584 = "This shouldn\'t happen"; /* x303224 QobiScheme.sc:166:5315 */ stalin_panic(t49584);} /* x132445 stalin.sc:16761:586104 */ /* x132430 stalin.sc:16758:586020 */ t49363 = FALSE_TYPE; return f13672(t49360, t49361, t49362, t49363); l7327: /* x132450 stalin.sc:16762:586112 */ /* x132449 stalin.sc:16762:586115 */ t49356 = a26060; /* x132448 stalin.sc:16762:586113 */ t49355 = p14654->a26053; return f14671(t49355, t49356);} /* [inside COMPILE-SQUISHED-TYPE-SWITCH 14653] */ char *f14653(struct p14646 *p14653, struct w49 a26059) {unsigned t49824; struct w49 t49825; struct w49 t49826; struct w49 t49827; /* x132374 stalin.sc:16746:585659 */ /* x132373 stalin.sc:16746:585669 */ /* x132371 stalin.sc:16746:585681 */ t49826 = a26059; /* x132372 stalin.sc:16746:585683 */ t49827 = p14653->a26048; /* x132370 stalin.sc:16746:585670 */ t49824 = f14564(t49826, t49827); /* x132369 stalin.sc:16746:585660 */ /* MOVE: dispatching squished to general */ if (t49824==FALSE_TYPE) t49825.tag = (unsigned)t49824; else {t49825.tag = FIXNUM_TYPE; t49825.value.fixnum_type = (int)(((int)t49824)>>1);} return f13530(t49825);} /* COMPILE-SQUISHED-TYPE-SWITCH[14646] */ struct w49 f14646(struct w12224 a26047, struct w49 a26048, struct w49 a26049, struct w155919 a26050, struct w155916 a26051, unsigned a26052) {struct p14646 *a26053; /* C */ struct w12224 a26055; /* US2 */ struct w12224 a26066; /* US2 */ struct w12224 a26067; /* US1 */ struct p14646 *t49828; struct p14647 *t49829; struct w12224 t49830; struct w228345 t49831; struct w49 t49832; struct structure_type24753 *t49833; struct w49 t49834; struct w211257 t49835; struct p14647 *t49836; struct w12224 t49837; struct w12224 t49838; struct w49 t49839; struct structure_type24753 *t49840; struct structure_type24753 *t49841; struct w49 t49842; unsigned t49843; struct w12224 t49844; struct w36270 t49845; struct w49 t49846; struct structure_type24753 *t49847; struct p14646 *t49848; struct w12224 t49849; struct w36270 t49850; struct w49 t49851; struct structure_type24753 *t49852; struct p14646 *t49853; struct w49 t49854; struct w211257 t49855; struct structure_type24753 *t49856; struct structure_type24753 *t49857; struct structure_type24753 *t49858; unsigned t49859; struct w49 t49860; struct w49 t49861; struct w49 t49862; struct p14646 *t49863; struct w12224 t49864; struct w36270 t49865; struct w49 t49866; struct structure_type24753 *t49867; struct p14647 *t49868; struct w12224 t49869; struct w36270 t49870; struct w49 t49871; struct structure_type24753 *t49872; struct structure_type24753 *t49873; struct structure_type24753 *t49874; struct structure_type24753 *t49875; struct w49 t49876; unsigned t49877; struct w49 t49878; struct w49 t49879; struct w49 t49880; struct p14646 *t49881; struct w12224 t49882; struct w36270 t49883; struct w49 t49884; struct structure_type24753 *t49885; struct p14647 *t49886; struct w12224 t49887; struct w36270 t49888; struct w49 t49889; struct structure_type24753 *t49890; struct w155916 t49891; unsigned t49892; struct structure_type24753 *t49893; unsigned t49894; struct structure_type24753 *t49895; struct structure_type27501 *t49896; unsigned t49897; struct structure_type24753 *t49898; unsigned t49899; struct structure_type24753 *t49900; unsigned t49901; struct structure_type24753 *t49902; struct structure_type27501 *t49903; char *t49904; char *t49905; unsigned t49906; struct structure_type24753 *t49907; unsigned t49908; struct structure_type24753 *t49909; unsigned t49910; struct structure_type24753 *t49911; unsigned t49912; struct structure_type24753 *t49913; unsigned t49914; struct structure_type24753 *t49915; unsigned t49916; struct structure_type24753 *t49917; unsigned t49918; struct structure_type24753 *t49919; unsigned t49920; struct structure_type24753 *t49921; unsigned t49922; struct structure_type24753 *t49923; unsigned t49924; struct structure_type24753 *t49925; unsigned t49926; struct structure_type24753 *t49927; unsigned t49928; struct structure_type24753 *t49929; unsigned t49930; struct structure_type24753 *t49931; unsigned t49932; struct structure_type24753 *t49933; unsigned t49934; struct structure_type24753 *t49935; unsigned t49936; struct structure_type24753 *t49937; unsigned t49938; struct structure_type24753 *t49939; unsigned t49940; struct structure_type24753 *t49941; unsigned t49942; struct structure_type24753 *t49943; unsigned t49944; struct structure_type24753 *t49945; unsigned t49946; struct structure_type24753 *t49947; unsigned t49948; struct structure_type24753 *t49949; unsigned t49950; struct structure_type24753 *t49951; unsigned t49952; struct structure_type24753 *t49953; unsigned t49954; struct structure_type24753 *t49955; unsigned t49956; struct structure_type24753 *t49957; unsigned t49958; struct structure_type24753 *t49959; unsigned t49960; struct structure_type24753 *t49961; unsigned t49962; struct structure_type24753 *t49963; unsigned t49964; struct structure_type24753 *t49965; unsigned t49966; struct structure_type24753 *t49967; unsigned t49968; struct structure_type24753 *t49969; unsigned t49970; struct structure_type24753 *t49971; unsigned t49972; struct structure_type24753 *t49973; unsigned t49974; struct structure_type24753 *t49975; unsigned t49976; struct structure_type24753 *t49977; unsigned t49978; struct structure_type24753 *t49979; unsigned t49980; struct structure_type24753 *t49981; unsigned t49982; struct structure_type24753 *t49983; unsigned t49984; struct structure_type24753 *t49985; unsigned t49986; struct structure_type24753 *t49987; unsigned t49988; struct structure_type24753 *t49989; unsigned t49990; struct structure_type24753 *t49991; unsigned t49992; struct structure_type24753 *t49993; unsigned t49994; struct structure_type24753 *t49995; unsigned t49996; struct structure_type24753 *t49997; struct structure_type24753 *t49998; unsigned t49999; struct structure_type24753 *t50000; unsigned t50001; struct structure_type24753 *t50002; unsigned t50003; struct structure_type24753 *t50004; unsigned t50005; struct structure_type24753 *t50006; unsigned t50007; struct structure_type24753 *t50008; unsigned t50009; struct structure_type24753 *t50010; unsigned t50011; struct structure_type24753 *t50012; unsigned t50013; struct structure_type24753 *t50014; unsigned t50015; struct structure_type24753 *t50016; unsigned t50017; struct structure_type24753 *t50018; unsigned t50019; struct structure_type24753 *t50020; unsigned t50021; struct structure_type24753 *t50022; unsigned t50023; struct structure_type24753 *t50024; unsigned t50025; struct structure_type24753 *t50026; unsigned t50027; struct structure_type24753 *t50028; unsigned t50029; struct structure_type24753 *t50030; unsigned t50031; struct structure_type24753 *t50032; unsigned t50033; struct structure_type24753 *t50034; unsigned t50035; struct structure_type24753 *t50036; unsigned t50037; struct structure_type24753 *t50038; unsigned t50039; struct structure_type24753 *t50040; unsigned t50041; struct structure_type24753 *t50042; unsigned t50043; struct structure_type24753 *t50044; unsigned t50045; struct structure_type24753 *t50046; unsigned t50047; struct structure_type24753 *t50048; unsigned t50049; struct structure_type24753 *t50050; unsigned t50051; struct structure_type24753 *t50052; unsigned t50053; struct structure_type24753 *t50054; unsigned t50055; struct structure_type24753 *t50056; unsigned t50057; struct structure_type24753 *t50058; unsigned t50059; struct structure_type24753 *t50060; unsigned t50061; struct structure_type24753 *t50062; unsigned t50063; struct structure_type24753 *t50064; unsigned t50065; struct structure_type24753 *t50066; unsigned t50067; struct structure_type24753 *t50068; unsigned t50069; struct structure_type24753 *t50070; unsigned t50071; struct structure_type24753 *t50072; unsigned t50073; struct structure_type24753 *t50074; unsigned t50075; struct structure_type24753 *t50076; unsigned t50077; struct structure_type24753 *t50078; unsigned t50079; struct structure_type24753 *t50080; unsigned t50081; struct structure_type24753 *t50082; unsigned t50083; struct structure_type24753 *t50084; unsigned t50085; struct structure_type24753 *t50086; unsigned t50087; struct structure_type24753 *t50088; unsigned t50089; struct structure_type24753 *t50090; unsigned t50091; struct structure_type24753 *t50092; unsigned t50093; struct structure_type24753 *t50094; unsigned t50095; struct structure_type24753 *t50096; unsigned t50097; struct structure_type24753 *t50098; unsigned t50099; struct structure_type24753 *t50100; unsigned t50101; struct structure_type24753 *t50102; char *t50103; struct p14646 *t50104; struct w49 t50105; struct w211257 t50106; struct w49 t50107; struct w211061 t50108; struct w49 t50109; struct w211061 t50110; struct w49 t50111; struct w211061 t50112; struct p14647 *t50113; struct w12224 t50114; struct p14646 *t50115; struct w49 t50116; struct w211257 t50117; struct structure_type24753 *t50118; struct structure_type24753 *t50119; struct structure_type24753 *t50120; unsigned t50121; struct w49 t50122; struct w49 t50123; struct w49 t50124; struct p14646 *t50125; struct w12224 t50126; struct w36270 t50127; struct w49 t50128; struct structure_type24753 *t50129; struct p14647 *t50130; struct w12224 t50131; struct w36270 t50132; struct w49 t50133; struct structure_type24753 *t50134; struct structure_type24753 *t50135; struct structure_type24753 *t50136; struct structure_type24753 *t50137; struct w49 t50138; unsigned t50139; struct w49 t50140; struct w49 t50141; struct w49 t50142; struct p14646 *t50143; struct w12224 t50144; struct w36270 t50145; struct w49 t50146; struct structure_type24753 *t50147; struct p14647 *t50148; struct w12224 t50149; struct w36270 t50150; struct w49 t50151; struct structure_type24753 *t50152; struct w155916 t50153; unsigned t50154; struct structure_type24753 *t50155; unsigned t50156; struct structure_type24753 *t50157; struct structure_type27501 *t50158; unsigned t50159; struct structure_type24753 *t50160; unsigned t50161; struct structure_type24753 *t50162; unsigned t50163; struct structure_type24753 *t50164; struct structure_type27501 *t50165; char *t50166; char *t50167; unsigned t50168; struct structure_type24753 *t50169; unsigned t50170; struct structure_type24753 *t50171; unsigned t50172; struct structure_type24753 *t50173; unsigned t50174; struct structure_type24753 *t50175; unsigned t50176; struct structure_type24753 *t50177; unsigned t50178; struct structure_type24753 *t50179; unsigned t50180; struct structure_type24753 *t50181; unsigned t50182; struct structure_type24753 *t50183; unsigned t50184; struct structure_type24753 *t50185; unsigned t50186; struct structure_type24753 *t50187; unsigned t50188; struct structure_type24753 *t50189; unsigned t50190; struct structure_type24753 *t50191; unsigned t50192; struct structure_type24753 *t50193; unsigned t50194; struct structure_type24753 *t50195; unsigned t50196; struct structure_type24753 *t50197; unsigned t50198; struct structure_type24753 *t50199; unsigned t50200; struct structure_type24753 *t50201; unsigned t50202; struct structure_type24753 *t50203; unsigned t50204; struct structure_type24753 *t50205; unsigned t50206; struct structure_type24753 *t50207; unsigned t50208; struct structure_type24753 *t50209; unsigned t50210; struct structure_type24753 *t50211; unsigned t50212; struct structure_type24753 *t50213; unsigned t50214; struct structure_type24753 *t50215; unsigned t50216; struct structure_type24753 *t50217; unsigned t50218; struct structure_type24753 *t50219; unsigned t50220; struct structure_type24753 *t50221; unsigned t50222; struct structure_type24753 *t50223; unsigned t50224; struct structure_type24753 *t50225; unsigned t50226; struct structure_type24753 *t50227; unsigned t50228; struct structure_type24753 *t50229; unsigned t50230; struct structure_type24753 *t50231; unsigned t50232; struct structure_type24753 *t50233; unsigned t50234; struct structure_type24753 *t50235; unsigned t50236; struct structure_type24753 *t50237; unsigned t50238; struct structure_type24753 *t50239; unsigned t50240; struct structure_type24753 *t50241; unsigned t50242; struct structure_type24753 *t50243; unsigned t50244; struct structure_type24753 *t50245; unsigned t50246; struct structure_type24753 *t50247; unsigned t50248; struct structure_type24753 *t50249; unsigned t50250; struct structure_type24753 *t50251; unsigned t50252; struct structure_type24753 *t50253; unsigned t50254; struct structure_type24753 *t50255; unsigned t50256; struct structure_type24753 *t50257; unsigned t50258; struct structure_type24753 *t50259; struct structure_type24753 *t50260; unsigned t50261; struct structure_type24753 *t50262; unsigned t50263; struct structure_type24753 *t50264; unsigned t50265; struct structure_type24753 *t50266; unsigned t50267; struct structure_type24753 *t50268; unsigned t50269; struct structure_type24753 *t50270; unsigned t50271; struct structure_type24753 *t50272; unsigned t50273; struct structure_type24753 *t50274; unsigned t50275; struct structure_type24753 *t50276; unsigned t50277; struct structure_type24753 *t50278; unsigned t50279; struct structure_type24753 *t50280; unsigned t50281; struct structure_type24753 *t50282; unsigned t50283; struct structure_type24753 *t50284; unsigned t50285; struct structure_type24753 *t50286; unsigned t50287; struct structure_type24753 *t50288; unsigned t50289; struct structure_type24753 *t50290; unsigned t50291; struct structure_type24753 *t50292; unsigned t50293; struct structure_type24753 *t50294; unsigned t50295; struct structure_type24753 *t50296; unsigned t50297; struct structure_type24753 *t50298; unsigned t50299; struct structure_type24753 *t50300; unsigned t50301; struct structure_type24753 *t50302; unsigned t50303; struct structure_type24753 *t50304; unsigned t50305; struct structure_type24753 *t50306; unsigned t50307; struct structure_type24753 *t50308; unsigned t50309; struct structure_type24753 *t50310; unsigned t50311; struct structure_type24753 *t50312; unsigned t50313; struct structure_type24753 *t50314; unsigned t50315; struct structure_type24753 *t50316; unsigned t50317; struct structure_type24753 *t50318; unsigned t50319; struct structure_type24753 *t50320; unsigned t50321; struct structure_type24753 *t50322; unsigned t50323; struct structure_type24753 *t50324; unsigned t50325; struct structure_type24753 *t50326; unsigned t50327; struct structure_type24753 *t50328; unsigned t50329; struct structure_type24753 *t50330; unsigned t50331; struct structure_type24753 *t50332; unsigned t50333; struct structure_type24753 *t50334; unsigned t50335; struct structure_type24753 *t50336; unsigned t50337; struct structure_type24753 *t50338; unsigned t50339; struct structure_type24753 *t50340; unsigned t50341; struct structure_type24753 *t50342; unsigned t50343; struct structure_type24753 *t50344; unsigned t50345; struct structure_type24753 *t50346; unsigned t50347; struct structure_type24753 *t50348; unsigned t50349; struct structure_type24753 *t50350; unsigned t50351; struct structure_type24753 *t50352; unsigned t50353; struct structure_type24753 *t50354; unsigned t50355; struct structure_type24753 *t50356; unsigned t50357; struct structure_type24753 *t50358; unsigned t50359; struct structure_type24753 *t50360; unsigned t50361; struct structure_type24753 *t50362; unsigned t50363; struct structure_type24753 *t50364; char *t50365; struct p14646 *t50366; struct w49 t50367; struct w211257 t50368; struct w49 t50369; struct w211061 t50370; struct w49 t50371; struct w211061 t50372; struct p14646 *e14646; struct p14647 *e14647; struct p14646 *p14647; struct p14647 *p14648; struct p14647 *p14649; struct p14647 *p14660; struct p16486 *p37506; struct p16486 *p37507; struct p14711 *p37525; struct p14711 *p37526; e14646 = (struct p14646 *)alloca(sizeof(struct p14646)); if (e14646==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e14646->a26047 = a26047; e14646->a26048 = a26048; e14646->a26049 = a26049; e14646->a26050 = a26050; e14646->a26051 = a26051; /* x132841 */ /* x132840 */ /* x132839 */ /* x132838 */ t49828 = e14646; p14647 = t49828; e14647 = (struct p14647 *)alloca(sizeof(struct p14647)); if (e14647==NULL) {backtrace_internal("COMPILE-SQUISHED-TYPE-SWITCH[14646]"); out_of_memory_error();} e14647->p14646 = p14647; e14647->a26053 = a26053; /* x132837 */ /* x132836 */ /* x132835 */ e14647->a26053 = p14647; /* x132823 */ t49829 = e14647; p14648 = t49829; /* x132822 stalin.sc:16725:584878 */ /* x132329 stalin.sc:16725:584882 */ /* x132323 stalin.sc:16725:584887 */ /* x132322 stalin.sc:16725:584892 */ /* x132321 stalin.sc:16725:584910 */ t49830 = p14648->p14646->a26047; /* x132320 stalin.sc:16725:584898 */ /* x132319 stalin.sc:16725:584893 */ t49831.tag = NATIVE_PROCEDURE_TYPE7232; t49832 = *((struct w49 *)(&t49830)); t49833 = (struct structure_type24753 *)NULL_TYPE; if (!((f1042(t49831, t49832, t49833).tag)==FALSE_TYPE)) goto l7332; /* x132327 */ /* x132325 stalin.sc:16725:584924 */ /* x132326 stalin.sc:16725:584936 */ t49834 = p14648->p14646->a26048; /* x132324 stalin.sc:16725:584916 */ t49835.tag = NATIVE_PROCEDURE_TYPE7232; if ((f8137(t49835, t49834).tag)==FALSE_TYPE) goto l7332; /* x132597 stalin.sc:16727:585019 */ /* x132596 stalin.sc:16727:585030 */ /* x132570 stalin.sc:16727:585034 */ /* x132568 stalin.sc:16728:585050 */ t50366 = p14648->p14646; /* x132569 stalin.sc:16730:585129 */ t50367 = p14648->p14646->a26048; /* x132556 stalin.sc:16727:585035 */ t50368.tag = NATIVE_PROCEDURE_TYPE20873; t50368.value.native_procedure_type20873 = t50366; if ((f8137(t50368, t50367).tag)==FALSE_TYPE) goto l7343; /* x132586 stalin.sc:16731:585138 */ /* x132584 stalin.sc:16732:585159 */ /* x132585 stalin.sc:16733:585229 */ t50371 = p14648->p14646->a26048; /* x132571 stalin.sc:16731:585139 */ t50372.tag = NATIVE_PROCEDURE_TYPE20875; t50114 = f8172(t50372, t50371); goto l7344; l7343: /* x132595 stalin.sc:16734:585238 */ /* x132593 stalin.sc:16734:585252 */ /* x132594 stalin.sc:16734:585287 */ t50369 = p14648->p14646->a26048; /* x132587 stalin.sc:16734:585239 */ t50370.tag = NATIVE_PROCEDURE_TYPE20874; t50114 = f8172(t50370, t50369); l7344: /* x132555 */ t50113 = p14648; p14649 = t50113; a26055 = t50114; /* x132554 stalin.sc:16737:585412 */ /* x132362 stalin.sc:16737:585416 */ /* x132360 stalin.sc:16737:585425 */ t50115 = p14649->p14646; /* x132361 stalin.sc:16743:585592 */ t50116 = p14649->p14646->a26048; /* x132330 stalin.sc:16737:585417 */ t50117.tag = NATIVE_PROCEDURE_TYPE20877; t50117.value.native_procedure_type20877 = t50115; if ((f8137(t50117, t50116).tag)==FALSE_TYPE) goto l7341; /* x132459 stalin.sc:16744:585598 */ /* x132367 stalin.sc:16745:585612 */ /* x132365 stalin.sc:16745:585632 */ t50141 = p14649->p14646->a26049; /* x132366 stalin.sc:16745:585635 */ t50142 = p14649->p14646->a26048; /* x132364 stalin.sc:16745:585613 */ t50135 = f14594(t50141, t50142); /* x132377 stalin.sc:16746:585642 */ /* x132376 stalin.sc:16746:585688 */ t50144 = a26055; /* x132375 stalin.sc:16746:585647 */ t50143 = p14649->p14646; /* x132368 stalin.sc:16746:585643 */ t50145.tag = NATIVE_PROCEDURE_TYPE20881; t50145.value.native_procedure_type20881 = t50143; t50146 = *((struct w49 *)(&t50144)); t50147 = (struct structure_type24753 *)NULL_TYPE; t50136 = f27731(t50145, t50146, t50147); /* x132454 stalin.sc:16747:585697 */ /* x132453 stalin.sc:16763:586125 */ t50149 = a26055; /* x132452 stalin.sc:16748:585707 */ t50148 = p14649; /* x132378 stalin.sc:16747:585698 */ t50150.tag = NATIVE_PROCEDURE_TYPE20880; t50150.value.native_procedure_type20880 = t50148; t50151 = *((struct w49 *)(&t50149)); t50152 = (struct structure_type24753 *)NULL_TYPE; t50137 = f27731(t50150, t50151, t50152); /* x132457 stalin.sc:16764:586134 */ /* x132456 stalin.sc:16764:586138 */ /* x132455 stalin.sc:16764:586135 */ t50153 = p14649->p14646->a26051; switch (t50153.tag) {case NATIVE_PROCEDURE_TYPE20757: t50154 = FALSE_TYPE; t50155 = f16097((t50153.value.native_procedure_type20757), t50154); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50155; break; case NATIVE_PROCEDURE_TYPE20782: t50156 = FALSE_TYPE; t50157 = f15772((t50153.value.native_procedure_type20782), t50156); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50157; break; case NATIVE_PROCEDURE_TYPE20850: p37525 = t50153.value.native_procedure_type20850; /* x302894 stalin.sc:17033:595793 */ /* x302893 stalin.sc:17033:595807 */ t50158 = p37525->a26136; /* x302892 stalin.sc:17033:595794 */ t50138 = f14708(t50158); break; case NATIVE_PROCEDURE_TYPE20913: t50159 = FALSE_TYPE; t50160 = f16433((t50153.value.native_procedure_type20913), t50159); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50160; break; case NATIVE_PROCEDURE_TYPE20915: t50161 = FALSE_TYPE; t50162 = f16417((t50153.value.native_procedure_type20915), t50161); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50162; break; case NATIVE_PROCEDURE_TYPE20918: t50163 = FALSE_TYPE; t50164 = f16635((t50153.value.native_procedure_type20918), t50163); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50164; break; case NATIVE_PROCEDURE_TYPE20927: p37506 = t50153.value.native_procedure_type20927; /* x302818 stalin.sc:21738:761657 */ /* x302817 stalin.sc:21738:761670 */ t50165 = p37506->a27722; /* x302816 stalin.sc:21738:761658 */ t50138 = f14707(t50165); break; case NATIVE_PROCEDURE_TYPE21036: /* x298077 stalin.sc:21885:766135 */ /* x298076 stalin.sc:21885:766136 */ /* x303406 QobiScheme.sc:166:5314 */ /* x303405 QobiScheme.sc:166:5321 */ t50166 = "This shouldn\'t happen"; /* x303404 QobiScheme.sc:166:5315 */ stalin_panic(t50166); break; case NATIVE_PROCEDURE_TYPE21042: /* x298138 stalin.sc:21855:765176 */ /* x298137 stalin.sc:21855:765177 */ /* x303482 QobiScheme.sc:166:5314 */ /* x303481 QobiScheme.sc:166:5321 */ t50167 = "This shouldn\'t happen"; /* x303480 QobiScheme.sc:166:5315 */ stalin_panic(t50167); break; case NATIVE_PROCEDURE_TYPE21048: t50168 = FALSE_TYPE; t50169 = f16737((t50153.value.native_procedure_type21048), t50168); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50169; break; case NATIVE_PROCEDURE_TYPE21059: t50170 = FALSE_TYPE; t50171 = f15571((t50153.value.native_procedure_type21059), t50170); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50171; break; case NATIVE_PROCEDURE_TYPE21065: t50172 = FALSE_TYPE; t50173 = f16830((t50153.value.native_procedure_type21065), t50172); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50173; break; case NATIVE_PROCEDURE_TYPE21082: t50174 = FALSE_TYPE; t50175 = f16721((t50153.value.native_procedure_type21082), t50174); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50175; break; case NATIVE_PROCEDURE_TYPE21087: t50176 = FALSE_TYPE; t50177 = f16648((t50153.value.native_procedure_type21087), t50176); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50177; break; case NATIVE_PROCEDURE_TYPE21090: t50178 = FALSE_TYPE; t50179 = f16858((t50153.value.native_procedure_type21090), t50178); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50179; break; case NATIVE_PROCEDURE_TYPE21108: t50180 = FALSE_TYPE; t50181 = f15580((t50153.value.native_procedure_type21108), t50180); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50181; break; case NATIVE_PROCEDURE_TYPE21110: t50182 = FALSE_TYPE; t50183 = f16912((t50153.value.native_procedure_type21110), t50182); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50183; break; case NATIVE_PROCEDURE_TYPE21117: t50184 = FALSE_TYPE; t50185 = f16884((t50153.value.native_procedure_type21117), t50184); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50185; break; case NATIVE_PROCEDURE_TYPE21137: t50186 = FALSE_TYPE; t50187 = f16982((t50153.value.native_procedure_type21137), t50186); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50187; break; case NATIVE_PROCEDURE_TYPE21147: t50188 = FALSE_TYPE; t50189 = f17061((t50153.value.native_procedure_type21147), t50188); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50189; break; case NATIVE_PROCEDURE_TYPE21152: t50190 = FALSE_TYPE; t50191 = f17134((t50153.value.native_procedure_type21152), t50190); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50191; break; case NATIVE_PROCEDURE_TYPE21154: t50192 = FALSE_TYPE; t50193 = f17133((t50153.value.native_procedure_type21154), t50192); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50193; break; case NATIVE_PROCEDURE_TYPE21170: t50194 = FALSE_TYPE; t50195 = f17101((t50153.value.native_procedure_type21170), t50194); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50195; break; case NATIVE_PROCEDURE_TYPE21172: t50196 = FALSE_TYPE; t50197 = f17100((t50153.value.native_procedure_type21172), t50196); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50197; break; case NATIVE_PROCEDURE_TYPE21201: t50198 = FALSE_TYPE; t50199 = f17026((t50153.value.native_procedure_type21201), t50198); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50199; break; case NATIVE_PROCEDURE_TYPE21225: t50200 = FALSE_TYPE; t50201 = f16941((t50153.value.native_procedure_type21225), t50200); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50201; break; case NATIVE_PROCEDURE_TYPE21228: t50202 = FALSE_TYPE; t50203 = f16844((t50153.value.native_procedure_type21228), t50202); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50203; break; case NATIVE_PROCEDURE_TYPE21234: t50204 = FALSE_TYPE; t50205 = f17200((t50153.value.native_procedure_type21234), t50204); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50205; break; case NATIVE_PROCEDURE_TYPE21236: t50206 = FALSE_TYPE; t50207 = f17199((t50153.value.native_procedure_type21236), t50206); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50207; break; case NATIVE_PROCEDURE_TYPE21256: t50208 = FALSE_TYPE; t50209 = f17222((t50153.value.native_procedure_type21256), t50208); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50209; break; case NATIVE_PROCEDURE_TYPE21259: t50210 = FALSE_TYPE; t50211 = f17209((t50153.value.native_procedure_type21259), t50210); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50211; break; case NATIVE_PROCEDURE_TYPE21265: t50212 = FALSE_TYPE; t50213 = f17254((t50153.value.native_procedure_type21265), t50212); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50213; break; case NATIVE_PROCEDURE_TYPE21268: t50214 = FALSE_TYPE; t50215 = f17295((t50153.value.native_procedure_type21268), t50214); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50215; break; case NATIVE_PROCEDURE_TYPE21274: t50216 = FALSE_TYPE; t50217 = f17333((t50153.value.native_procedure_type21274), t50216); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50217; break; case NATIVE_PROCEDURE_TYPE21280: t50218 = FALSE_TYPE; t50219 = f17314((t50153.value.native_procedure_type21280), t50218); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50219; break; case NATIVE_PROCEDURE_TYPE21286: t50220 = FALSE_TYPE; t50221 = f17276((t50153.value.native_procedure_type21286), t50220); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50221; break; case NATIVE_PROCEDURE_TYPE21296: t50222 = FALSE_TYPE; t50223 = f17238((t50153.value.native_procedure_type21296), t50222); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50223; break; case NATIVE_PROCEDURE_TYPE21299: t50224 = FALSE_TYPE; t50225 = f17357((t50153.value.native_procedure_type21299), t50224); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50225; break; case NATIVE_PROCEDURE_TYPE21304: t50226 = FALSE_TYPE; t50227 = f17381((t50153.value.native_procedure_type21304), t50226); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50227; break; case NATIVE_PROCEDURE_TYPE21309: t50228 = FALSE_TYPE; t50229 = f17369((t50153.value.native_procedure_type21309), t50228); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50229; break; case NATIVE_PROCEDURE_TYPE21314: t50230 = FALSE_TYPE; t50231 = f17405((t50153.value.native_procedure_type21314), t50230); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50231; break; case NATIVE_PROCEDURE_TYPE21319: t50232 = FALSE_TYPE; t50233 = f17440((t50153.value.native_procedure_type21319), t50232); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50233; break; case NATIVE_PROCEDURE_TYPE21324: t50234 = FALSE_TYPE; t50235 = f17437((t50153.value.native_procedure_type21324), t50234); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50235; break; case NATIVE_PROCEDURE_TYPE21329: t50236 = FALSE_TYPE; t50237 = f17430((t50153.value.native_procedure_type21329), t50236); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50237; break; case NATIVE_PROCEDURE_TYPE21334: t50238 = FALSE_TYPE; t50239 = f17417((t50153.value.native_procedure_type21334), t50238); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50239; break; case NATIVE_PROCEDURE_TYPE21339: t50240 = FALSE_TYPE; t50241 = f17473((t50153.value.native_procedure_type21339), t50240); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50241; break; case NATIVE_PROCEDURE_TYPE21341: t50242 = FALSE_TYPE; t50243 = f17472((t50153.value.native_procedure_type21341), t50242); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50243; break; case NATIVE_PROCEDURE_TYPE21348: t50244 = FALSE_TYPE; t50245 = f17452((t50153.value.native_procedure_type21348), t50244); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50245; break; case NATIVE_PROCEDURE_TYPE21353: t50246 = FALSE_TYPE; t50247 = f17393((t50153.value.native_procedure_type21353), t50246); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50247; break; case NATIVE_PROCEDURE_TYPE21358: t50248 = FALSE_TYPE; t50249 = f17345((t50153.value.native_procedure_type21358), t50248); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50249; break; case NATIVE_PROCEDURE_TYPE21363: t50250 = FALSE_TYPE; t50251 = f17167((t50153.value.native_procedure_type21363), t50250); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50251; break; case NATIVE_PROCEDURE_TYPE21365: t50252 = FALSE_TYPE; t50253 = f17166((t50153.value.native_procedure_type21365), t50252); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50253; break; case NATIVE_PROCEDURE_TYPE21381: t50254 = FALSE_TYPE; t50255 = f17504((t50153.value.native_procedure_type21381), t50254); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50255; break; case NATIVE_PROCEDURE_TYPE21387: t50256 = FALSE_TYPE; t50257 = f17525((t50153.value.native_procedure_type21387), t50256); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50257; break; case NATIVE_PROCEDURE_TYPE21393: t50258 = FALSE_TYPE; t50259 = f17599((t50153.value.native_procedure_type21393), t50258); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50259; break; case NATIVE_PROCEDURE_TYPE21414: t50260 = f19631(); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50260; break; case NATIVE_PROCEDURE_TYPE21896: t50261 = FALSE_TYPE; t50262 = f15815((t50153.value.native_procedure_type21896), t50261); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50262; break; case NATIVE_PROCEDURE_TYPE21903: t50263 = FALSE_TYPE; t50264 = f15805((t50153.value.native_procedure_type21903), t50263); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50264; break; case NATIVE_PROCEDURE_TYPE21944: t50265 = FALSE_TYPE; t50266 = f17628((t50153.value.native_procedure_type21944), t50265); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50266; break; case NATIVE_PROCEDURE_TYPE21946: t50267 = FALSE_TYPE; t50268 = f17627((t50153.value.native_procedure_type21946), t50267); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50268; break; case NATIVE_PROCEDURE_TYPE21948: t50269 = FALSE_TYPE; t50270 = f17613((t50153.value.native_procedure_type21948), t50269); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50270; break; case NATIVE_PROCEDURE_TYPE21952: t50271 = FALSE_TYPE; t50272 = f17579((t50153.value.native_procedure_type21952), t50271); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50272; break; case NATIVE_PROCEDURE_TYPE21956: t50273 = FALSE_TYPE; t50274 = f17576((t50153.value.native_procedure_type21956), t50273); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50274; break; case NATIVE_PROCEDURE_TYPE21961: t50275 = FALSE_TYPE; t50276 = f17569((t50153.value.native_procedure_type21961), t50275); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50276; break; case NATIVE_PROCEDURE_TYPE21963: t50277 = FALSE_TYPE; t50278 = f17568((t50153.value.native_procedure_type21963), t50277); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50278; break; case NATIVE_PROCEDURE_TYPE21966: t50279 = FALSE_TYPE; t50280 = f17564((t50153.value.native_procedure_type21966), t50279); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50280; break; case NATIVE_PROCEDURE_TYPE21968: t50281 = FALSE_TYPE; t50282 = f17563((t50153.value.native_procedure_type21968), t50281); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50282; break; case NATIVE_PROCEDURE_TYPE21971: t50283 = FALSE_TYPE; t50284 = f17559((t50153.value.native_procedure_type21971), t50283); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50284; break; case NATIVE_PROCEDURE_TYPE21973: t50285 = FALSE_TYPE; t50286 = f17558((t50153.value.native_procedure_type21973), t50285); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50286; break; case NATIVE_PROCEDURE_TYPE21975: t50287 = FALSE_TYPE; t50288 = f17534((t50153.value.native_procedure_type21975), t50287); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50288; break; case NATIVE_PROCEDURE_TYPE21978: t50289 = FALSE_TYPE; t50290 = f17718((t50153.value.native_procedure_type21978), t50289); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50290; break; case NATIVE_PROCEDURE_TYPE21982: t50291 = FALSE_TYPE; t50292 = f17716((t50153.value.native_procedure_type21982), t50291); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50292; break; case NATIVE_PROCEDURE_TYPE21984: t50293 = FALSE_TYPE; t50294 = f17715((t50153.value.native_procedure_type21984), t50293); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50294; break; case NATIVE_PROCEDURE_TYPE21997: t50295 = FALSE_TYPE; t50296 = f17693((t50153.value.native_procedure_type21997), t50295); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50296; break; case NATIVE_PROCEDURE_TYPE22000: t50297 = FALSE_TYPE; t50298 = f17682((t50153.value.native_procedure_type22000), t50297); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50298; break; case NATIVE_PROCEDURE_TYPE22003: t50299 = FALSE_TYPE; t50300 = f17679((t50153.value.native_procedure_type22003), t50299); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50300; break; case NATIVE_PROCEDURE_TYPE22006: t50301 = FALSE_TYPE; t50302 = f17676((t50153.value.native_procedure_type22006), t50301); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50302; break; case NATIVE_PROCEDURE_TYPE22008: t50303 = FALSE_TYPE; t50304 = f17761((t50153.value.native_procedure_type22008), t50303); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50304; break; case NATIVE_PROCEDURE_TYPE22010: t50305 = FALSE_TYPE; t50306 = f17807((t50153.value.native_procedure_type22010), t50305); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50306; break; case NATIVE_PROCEDURE_TYPE22012: t50307 = FALSE_TYPE; t50308 = f17806((t50153.value.native_procedure_type22012), t50307); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50308; break; case NATIVE_PROCEDURE_TYPE22014: t50309 = FALSE_TYPE; t50310 = f17787((t50153.value.native_procedure_type22014), t50309); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50310; break; case NATIVE_PROCEDURE_TYPE22016: t50311 = FALSE_TYPE; t50312 = f17786((t50153.value.native_procedure_type22016), t50311); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50312; break; case NATIVE_PROCEDURE_TYPE22037: t50313 = FALSE_TYPE; t50314 = f17841((t50153.value.native_procedure_type22037), t50313); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50314; break; case NATIVE_PROCEDURE_TYPE22064: /* x298235 stalin.sc:19867:695278 */ /* x298234 stalin.sc:19867:695279 */ /* x303532 stalin.sc:14693:514793 */ t50138.tag = STRING_TYPE; t50138.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22072: t50315 = FALSE_TYPE; t50316 = f15886((t50153.value.native_procedure_type22072), t50315); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50316; break; case NATIVE_PROCEDURE_TYPE22081: t50317 = FALSE_TYPE; t50318 = f17894((t50153.value.native_procedure_type22081), t50317); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50318; break; case NATIVE_PROCEDURE_TYPE22091: t50319 = FALSE_TYPE; t50320 = f17885((t50153.value.native_procedure_type22091), t50319); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50320; break; case NATIVE_PROCEDURE_TYPE22100: t50321 = FALSE_TYPE; t50322 = f17641((t50153.value.native_procedure_type22100), t50321); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50322; break; case NATIVE_PROCEDURE_TYPE22102: t50323 = FALSE_TYPE; t50324 = f17640((t50153.value.native_procedure_type22102), t50323); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50324; break; case NATIVE_PROCEDURE_TYPE22104: t50325 = FALSE_TYPE; t50326 = f17639((t50153.value.native_procedure_type22104), t50325); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50326; break; case NATIVE_PROCEDURE_TYPE22106: t50327 = FALSE_TYPE; t50328 = f17491((t50153.value.native_procedure_type22106), t50327); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50328; break; case NATIVE_PROCEDURE_TYPE22112: t50329 = FALSE_TYPE; t50330 = f17936((t50153.value.native_procedure_type22112), t50329); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50330; break; case NATIVE_PROCEDURE_TYPE22117: t50331 = FALSE_TYPE; t50332 = f17957((t50153.value.native_procedure_type22117), t50331); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50332; break; case NATIVE_PROCEDURE_TYPE22119: t50333 = FALSE_TYPE; t50334 = f17948((t50153.value.native_procedure_type22119), t50333); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50334; break; case NATIVE_PROCEDURE_TYPE22124: t50335 = FALSE_TYPE; t50336 = f17976((t50153.value.native_procedure_type22124), t50335); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50336; break; case NATIVE_PROCEDURE_TYPE22127: t50337 = FALSE_TYPE; t50338 = f17966((t50153.value.native_procedure_type22127), t50337); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50338; break; case NATIVE_PROCEDURE_TYPE22130: t50339 = FALSE_TYPE; t50340 = f18033((t50153.value.native_procedure_type22130), t50339); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50340; break; case NATIVE_PROCEDURE_TYPE22132: t50341 = FALSE_TYPE; t50342 = f18032((t50153.value.native_procedure_type22132), t50341); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50342; break; case NATIVE_PROCEDURE_TYPE22135: t50343 = FALSE_TYPE; t50344 = f18008((t50153.value.native_procedure_type22135), t50343); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50344; break; case NATIVE_PROCEDURE_TYPE22137: t50345 = FALSE_TYPE; t50346 = f17986((t50153.value.native_procedure_type22137), t50345); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50346; break; case NATIVE_PROCEDURE_TYPE22139: t50347 = FALSE_TYPE; t50348 = f18072((t50153.value.native_procedure_type22139), t50347); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50348; break; case NATIVE_PROCEDURE_TYPE22141: t50349 = FALSE_TYPE; t50350 = f18090((t50153.value.native_procedure_type22141), t50349); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50350; break; case NATIVE_PROCEDURE_TYPE22143: t50351 = FALSE_TYPE; t50352 = f18081((t50153.value.native_procedure_type22143), t50351); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50352; break; case NATIVE_PROCEDURE_TYPE22145: t50353 = FALSE_TYPE; t50354 = f18063((t50153.value.native_procedure_type22145), t50353); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50354; break; case NATIVE_PROCEDURE_TYPE22148: t50355 = FALSE_TYPE; t50356 = f18121((t50153.value.native_procedure_type22148), t50355); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50356; break; case NATIVE_PROCEDURE_TYPE22154: t50357 = FALSE_TYPE; t50358 = f18148((t50153.value.native_procedure_type22154), t50357); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50358; break; case NATIVE_PROCEDURE_TYPE22160: t50359 = FALSE_TYPE; t50360 = f18135((t50153.value.native_procedure_type22160), t50359); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50360; break; case NATIVE_PROCEDURE_TYPE22162: t50361 = FALSE_TYPE; t50362 = f18133((t50153.value.native_procedure_type22162), t50361); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50362; break; case NATIVE_PROCEDURE_TYPE22165: t50363 = FALSE_TYPE; t50364 = f18042((t50153.value.native_procedure_type22165), t50363); t50138.tag = STRUCTURE_TYPE24753; t50138.value.structure_type24753 = t50364; break; default: /* x297738 stalin.sc:23751:825832 */ /* x297737 stalin.sc:23751:825833 */ /* x303262 QobiScheme.sc:166:5314 */ /* x303261 QobiScheme.sc:166:5321 */ t50365 = "This shouldn\'t happen"; /* x303260 QobiScheme.sc:166:5315 */ stalin_panic(t50365);} /* x132458 stalin.sc:16765:586146 */ t50139 = a26052; /* x132363 stalin.sc:16744:585599 */ t50140.tag = STRUCTURE_TYPE24753; t50140.value.structure_type24753 = t50135; return f13676(t50140, t50136, t50137, t50138, t50139); l7341: /* x132553 stalin.sc:16766:586153 */ /* x132464 stalin.sc:16767:586179 */ /* x132462 stalin.sc:16767:586199 */ t50123 = p14649->p14646->a26049; /* x132463 stalin.sc:16767:586202 */ t50124 = p14649->p14646->a26048; /* x132461 stalin.sc:16767:586180 */ t50118 = f14594(t50123, t50124); /* x132474 stalin.sc:16768:586209 */ /* x132473 stalin.sc:16768:586255 */ t50126 = a26055; /* x132472 stalin.sc:16768:586214 */ t50125 = p14649->p14646; /* x132465 stalin.sc:16768:586210 */ t50127.tag = NATIVE_PROCEDURE_TYPE20879; t50127.value.native_procedure_type20879 = t50125; t50128 = *((struct w49 *)(&t50126)); t50129 = (struct structure_type24753 *)NULL_TYPE; t50119 = f27731(t50127, t50128, t50129); /* x132551 stalin.sc:16769:586264 */ /* x132550 stalin.sc:16785:586692 */ t50131 = a26055; /* x132549 stalin.sc:16770:586274 */ t50130 = p14649; /* x132475 stalin.sc:16769:586265 */ t50132.tag = NATIVE_PROCEDURE_TYPE20878; t50132.value.native_procedure_type20878 = t50130; t50133 = *((struct w49 *)(&t50131)); t50134 = (struct structure_type24753 *)NULL_TYPE; t50120 = f27731(t50132, t50133, t50134); /* x132552 stalin.sc:16786:586701 */ t50121 = a26052; /* x132460 stalin.sc:16766:586154 */ t50122.tag = STRUCTURE_TYPE24753; t50122.value.structure_type24753 = t50118; return f13687(t50122, t50119, t50120, t50121); l7332: /* x132821 stalin.sc:16787:586712 */ /* x132816 stalin.sc:16789:586815 */ /* x132790 stalin.sc:16789:586819 */ /* x132788 stalin.sc:16790:586835 */ t50104 = p14648->p14646; /* x132789 stalin.sc:16792:586914 */ t50105 = p14648->p14646->a26048; /* x132776 stalin.sc:16789:586820 */ t50106.tag = NATIVE_PROCEDURE_TYPE20864; t50106.value.native_procedure_type20864 = t50104; if ((f8137(t50106, t50105).tag)==FALSE_TYPE) goto l7338; /* x132806 stalin.sc:16793:586923 */ /* x132804 stalin.sc:16794:586944 */ /* x132805 stalin.sc:16795:587014 */ t50109 = p14648->p14646->a26048; /* x132791 stalin.sc:16793:586924 */ t50110.tag = NATIVE_PROCEDURE_TYPE20866; t49837 = f8172(t50110, t50109); goto l7339; l7338: /* x132815 stalin.sc:16796:587023 */ /* x132813 stalin.sc:16796:587037 */ /* x132814 stalin.sc:16796:587072 */ t50107 = p14648->p14646->a26048; /* x132807 stalin.sc:16796:587024 */ t50108.tag = NATIVE_PROCEDURE_TYPE20865; t49837 = f8172(t50108, t50107); l7339: /* x132820 stalin.sc:16787:586723 */ /* x132818 stalin.sc:16787:586737 */ /* x132819 stalin.sc:16787:586749 */ t50111 = p14648->p14646->a26048; /* x132817 stalin.sc:16787:586724 */ t50112.tag = NATIVE_PROCEDURE_TYPE7232; t49838 = f8172(t50112, t50111); /* x132775 */ t49836 = p14648; p14660 = t49836; a26066 = t49837; a26067 = t49838; /* x132774 stalin.sc:16797:587084 */ /* x132599 stalin.sc:16798:587101 */ t49839 = p14660->p14646->a26049; /* x132603 stalin.sc:16799:587111 */ /* x132602 stalin.sc:16799:587127 */ t49844 = a26067; /* x132601 stalin.sc:16799:587116 */ /* x132600 stalin.sc:16799:587112 */ t49845.tag = NATIVE_PROCEDURE_TYPE6764; t49846 = *((struct w49 *)(&t49844)); t49847 = (struct structure_type24753 *)NULL_TYPE; t49840 = f27731(t49845, t49846, t49847); /* x132607 stalin.sc:16800:587139 */ /* x132606 stalin.sc:16800:587146 */ t49849 = a26067; /* x132605 stalin.sc:16800:587144 */ t49848 = p14660->a26053; /* x132604 stalin.sc:16800:587140 */ t49850.tag = NATIVE_PROCEDURE_TYPE20862; t49850.value.native_procedure_type20862 = t49848; t49851 = *((struct w49 *)(&t49849)); t49852 = (struct structure_type24753 *)NULL_TYPE; t49841 = f27731(t49850, t49851, t49852); /* x132772 stalin.sc:16803:587288 */ /* x132640 stalin.sc:16803:587292 */ /* x132638 stalin.sc:16803:587301 */ t49853 = p14660->p14646; /* x132639 stalin.sc:16809:587467 */ t49854 = p14660->p14646->a26048; /* x132608 stalin.sc:16803:587293 */ t49855.tag = NATIVE_PROCEDURE_TYPE20868; t49855.value.native_procedure_type20868 = t49853; if ((f8137(t49855, t49854).tag)==FALSE_TYPE) goto l7335; /* x132707 stalin.sc:16810:587474 */ /* x132645 stalin.sc:16811:587489 */ /* x132643 stalin.sc:16811:587509 */ t49879 = p14660->p14646->a26049; /* x132644 stalin.sc:16811:587512 */ t49880 = p14660->p14646->a26048; /* x132642 stalin.sc:16811:587490 */ t49873 = f14594(t49879, t49880); /* x132655 stalin.sc:16812:587520 */ /* x132654 stalin.sc:16812:587566 */ t49882 = a26066; /* x132653 stalin.sc:16812:587525 */ t49881 = p14660->p14646; /* x132646 stalin.sc:16812:587521 */ t49883.tag = NATIVE_PROCEDURE_TYPE20872; t49883.value.native_procedure_type20872 = t49881; t49884 = *((struct w49 *)(&t49882)); t49885 = (struct structure_type24753 *)NULL_TYPE; t49874 = f27731(t49883, t49884, t49885); /* x132702 stalin.sc:16813:587576 */ /* x132701 stalin.sc:16822:587832 */ t49887 = a26066; /* x132700 stalin.sc:16813:587581 */ t49886 = p14660; /* x132656 stalin.sc:16813:587577 */ t49888.tag = NATIVE_PROCEDURE_TYPE20871; t49888.value.native_procedure_type20871 = t49886; t49889 = *((struct w49 *)(&t49887)); t49890 = (struct structure_type24753 *)NULL_TYPE; t49875 = f27731(t49888, t49889, t49890); /* x132705 stalin.sc:16823:587842 */ /* x132704 stalin.sc:16823:587846 */ /* x132703 stalin.sc:16823:587843 */ t49891 = p14660->p14646->a26051; switch (t49891.tag) {case NATIVE_PROCEDURE_TYPE20757: t49892 = FALSE_TYPE; t49893 = f16097((t49891.value.native_procedure_type20757), t49892); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49893; break; case NATIVE_PROCEDURE_TYPE20782: t49894 = FALSE_TYPE; t49895 = f15772((t49891.value.native_procedure_type20782), t49894); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49895; break; case NATIVE_PROCEDURE_TYPE20850: p37526 = t49891.value.native_procedure_type20850; /* x302898 stalin.sc:17033:595793 */ /* x302897 stalin.sc:17033:595807 */ t49896 = p37526->a26136; /* x302896 stalin.sc:17033:595794 */ t49876 = f14708(t49896); break; case NATIVE_PROCEDURE_TYPE20913: t49897 = FALSE_TYPE; t49898 = f16433((t49891.value.native_procedure_type20913), t49897); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49898; break; case NATIVE_PROCEDURE_TYPE20915: t49899 = FALSE_TYPE; t49900 = f16417((t49891.value.native_procedure_type20915), t49899); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49900; break; case NATIVE_PROCEDURE_TYPE20918: t49901 = FALSE_TYPE; t49902 = f16635((t49891.value.native_procedure_type20918), t49901); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49902; break; case NATIVE_PROCEDURE_TYPE20927: p37507 = t49891.value.native_procedure_type20927; /* x302822 stalin.sc:21738:761657 */ /* x302821 stalin.sc:21738:761670 */ t49903 = p37507->a27722; /* x302820 stalin.sc:21738:761658 */ t49876 = f14707(t49903); break; case NATIVE_PROCEDURE_TYPE21036: /* x298080 stalin.sc:21885:766135 */ /* x298079 stalin.sc:21885:766136 */ /* x303410 QobiScheme.sc:166:5314 */ /* x303409 QobiScheme.sc:166:5321 */ t49904 = "This shouldn\'t happen"; /* x303408 QobiScheme.sc:166:5315 */ stalin_panic(t49904); break; case NATIVE_PROCEDURE_TYPE21042: /* x298141 stalin.sc:21855:765176 */ /* x298140 stalin.sc:21855:765177 */ /* x303486 QobiScheme.sc:166:5314 */ /* x303485 QobiScheme.sc:166:5321 */ t49905 = "This shouldn\'t happen"; /* x303484 QobiScheme.sc:166:5315 */ stalin_panic(t49905); break; case NATIVE_PROCEDURE_TYPE21048: t49906 = FALSE_TYPE; t49907 = f16737((t49891.value.native_procedure_type21048), t49906); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49907; break; case NATIVE_PROCEDURE_TYPE21059: t49908 = FALSE_TYPE; t49909 = f15571((t49891.value.native_procedure_type21059), t49908); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49909; break; case NATIVE_PROCEDURE_TYPE21065: t49910 = FALSE_TYPE; t49911 = f16830((t49891.value.native_procedure_type21065), t49910); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49911; break; case NATIVE_PROCEDURE_TYPE21082: t49912 = FALSE_TYPE; t49913 = f16721((t49891.value.native_procedure_type21082), t49912); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49913; break; case NATIVE_PROCEDURE_TYPE21087: t49914 = FALSE_TYPE; t49915 = f16648((t49891.value.native_procedure_type21087), t49914); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49915; break; case NATIVE_PROCEDURE_TYPE21090: t49916 = FALSE_TYPE; t49917 = f16858((t49891.value.native_procedure_type21090), t49916); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49917; break; case NATIVE_PROCEDURE_TYPE21108: t49918 = FALSE_TYPE; t49919 = f15580((t49891.value.native_procedure_type21108), t49918); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49919; break; case NATIVE_PROCEDURE_TYPE21110: t49920 = FALSE_TYPE; t49921 = f16912((t49891.value.native_procedure_type21110), t49920); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49921; break; case NATIVE_PROCEDURE_TYPE21117: t49922 = FALSE_TYPE; t49923 = f16884((t49891.value.native_procedure_type21117), t49922); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49923; break; case NATIVE_PROCEDURE_TYPE21137: t49924 = FALSE_TYPE; t49925 = f16982((t49891.value.native_procedure_type21137), t49924); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49925; break; case NATIVE_PROCEDURE_TYPE21147: t49926 = FALSE_TYPE; t49927 = f17061((t49891.value.native_procedure_type21147), t49926); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49927; break; case NATIVE_PROCEDURE_TYPE21152: t49928 = FALSE_TYPE; t49929 = f17134((t49891.value.native_procedure_type21152), t49928); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49929; break; case NATIVE_PROCEDURE_TYPE21154: t49930 = FALSE_TYPE; t49931 = f17133((t49891.value.native_procedure_type21154), t49930); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49931; break; case NATIVE_PROCEDURE_TYPE21170: t49932 = FALSE_TYPE; t49933 = f17101((t49891.value.native_procedure_type21170), t49932); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49933; break; case NATIVE_PROCEDURE_TYPE21172: t49934 = FALSE_TYPE; t49935 = f17100((t49891.value.native_procedure_type21172), t49934); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49935; break; case NATIVE_PROCEDURE_TYPE21201: t49936 = FALSE_TYPE; t49937 = f17026((t49891.value.native_procedure_type21201), t49936); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49937; break; case NATIVE_PROCEDURE_TYPE21225: t49938 = FALSE_TYPE; t49939 = f16941((t49891.value.native_procedure_type21225), t49938); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49939; break; case NATIVE_PROCEDURE_TYPE21228: t49940 = FALSE_TYPE; t49941 = f16844((t49891.value.native_procedure_type21228), t49940); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49941; break; case NATIVE_PROCEDURE_TYPE21234: t49942 = FALSE_TYPE; t49943 = f17200((t49891.value.native_procedure_type21234), t49942); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49943; break; case NATIVE_PROCEDURE_TYPE21236: t49944 = FALSE_TYPE; t49945 = f17199((t49891.value.native_procedure_type21236), t49944); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49945; break; case NATIVE_PROCEDURE_TYPE21256: t49946 = FALSE_TYPE; t49947 = f17222((t49891.value.native_procedure_type21256), t49946); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49947; break; case NATIVE_PROCEDURE_TYPE21259: t49948 = FALSE_TYPE; t49949 = f17209((t49891.value.native_procedure_type21259), t49948); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49949; break; case NATIVE_PROCEDURE_TYPE21265: t49950 = FALSE_TYPE; t49951 = f17254((t49891.value.native_procedure_type21265), t49950); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49951; break; case NATIVE_PROCEDURE_TYPE21268: t49952 = FALSE_TYPE; t49953 = f17295((t49891.value.native_procedure_type21268), t49952); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49953; break; case NATIVE_PROCEDURE_TYPE21274: t49954 = FALSE_TYPE; t49955 = f17333((t49891.value.native_procedure_type21274), t49954); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49955; break; case NATIVE_PROCEDURE_TYPE21280: t49956 = FALSE_TYPE; t49957 = f17314((t49891.value.native_procedure_type21280), t49956); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49957; break; case NATIVE_PROCEDURE_TYPE21286: t49958 = FALSE_TYPE; t49959 = f17276((t49891.value.native_procedure_type21286), t49958); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49959; break; case NATIVE_PROCEDURE_TYPE21296: t49960 = FALSE_TYPE; t49961 = f17238((t49891.value.native_procedure_type21296), t49960); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49961; break; case NATIVE_PROCEDURE_TYPE21299: t49962 = FALSE_TYPE; t49963 = f17357((t49891.value.native_procedure_type21299), t49962); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49963; break; case NATIVE_PROCEDURE_TYPE21304: t49964 = FALSE_TYPE; t49965 = f17381((t49891.value.native_procedure_type21304), t49964); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49965; break; case NATIVE_PROCEDURE_TYPE21309: t49966 = FALSE_TYPE; t49967 = f17369((t49891.value.native_procedure_type21309), t49966); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49967; break; case NATIVE_PROCEDURE_TYPE21314: t49968 = FALSE_TYPE; t49969 = f17405((t49891.value.native_procedure_type21314), t49968); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49969; break; case NATIVE_PROCEDURE_TYPE21319: t49970 = FALSE_TYPE; t49971 = f17440((t49891.value.native_procedure_type21319), t49970); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49971; break; case NATIVE_PROCEDURE_TYPE21324: t49972 = FALSE_TYPE; t49973 = f17437((t49891.value.native_procedure_type21324), t49972); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49973; break; case NATIVE_PROCEDURE_TYPE21329: t49974 = FALSE_TYPE; t49975 = f17430((t49891.value.native_procedure_type21329), t49974); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49975; break; case NATIVE_PROCEDURE_TYPE21334: t49976 = FALSE_TYPE; t49977 = f17417((t49891.value.native_procedure_type21334), t49976); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49977; break; case NATIVE_PROCEDURE_TYPE21339: t49978 = FALSE_TYPE; t49979 = f17473((t49891.value.native_procedure_type21339), t49978); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49979; break; case NATIVE_PROCEDURE_TYPE21341: t49980 = FALSE_TYPE; t49981 = f17472((t49891.value.native_procedure_type21341), t49980); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49981; break; case NATIVE_PROCEDURE_TYPE21348: t49982 = FALSE_TYPE; t49983 = f17452((t49891.value.native_procedure_type21348), t49982); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49983; break; case NATIVE_PROCEDURE_TYPE21353: t49984 = FALSE_TYPE; t49985 = f17393((t49891.value.native_procedure_type21353), t49984); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49985; break; case NATIVE_PROCEDURE_TYPE21358: t49986 = FALSE_TYPE; t49987 = f17345((t49891.value.native_procedure_type21358), t49986); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49987; break; case NATIVE_PROCEDURE_TYPE21363: t49988 = FALSE_TYPE; t49989 = f17167((t49891.value.native_procedure_type21363), t49988); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49989; break; case NATIVE_PROCEDURE_TYPE21365: t49990 = FALSE_TYPE; t49991 = f17166((t49891.value.native_procedure_type21365), t49990); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49991; break; case NATIVE_PROCEDURE_TYPE21381: t49992 = FALSE_TYPE; t49993 = f17504((t49891.value.native_procedure_type21381), t49992); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49993; break; case NATIVE_PROCEDURE_TYPE21387: t49994 = FALSE_TYPE; t49995 = f17525((t49891.value.native_procedure_type21387), t49994); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49995; break; case NATIVE_PROCEDURE_TYPE21393: t49996 = FALSE_TYPE; t49997 = f17599((t49891.value.native_procedure_type21393), t49996); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49997; break; case NATIVE_PROCEDURE_TYPE21414: t49998 = f19631(); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t49998; break; case NATIVE_PROCEDURE_TYPE21896: t49999 = FALSE_TYPE; t50000 = f15815((t49891.value.native_procedure_type21896), t49999); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50000; break; case NATIVE_PROCEDURE_TYPE21903: t50001 = FALSE_TYPE; t50002 = f15805((t49891.value.native_procedure_type21903), t50001); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50002; break; case NATIVE_PROCEDURE_TYPE21944: t50003 = FALSE_TYPE; t50004 = f17628((t49891.value.native_procedure_type21944), t50003); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50004; break; case NATIVE_PROCEDURE_TYPE21946: t50005 = FALSE_TYPE; t50006 = f17627((t49891.value.native_procedure_type21946), t50005); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50006; break; case NATIVE_PROCEDURE_TYPE21948: t50007 = FALSE_TYPE; t50008 = f17613((t49891.value.native_procedure_type21948), t50007); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50008; break; case NATIVE_PROCEDURE_TYPE21952: t50009 = FALSE_TYPE; t50010 = f17579((t49891.value.native_procedure_type21952), t50009); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50010; break; case NATIVE_PROCEDURE_TYPE21956: t50011 = FALSE_TYPE; t50012 = f17576((t49891.value.native_procedure_type21956), t50011); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50012; break; case NATIVE_PROCEDURE_TYPE21961: t50013 = FALSE_TYPE; t50014 = f17569((t49891.value.native_procedure_type21961), t50013); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50014; break; case NATIVE_PROCEDURE_TYPE21963: t50015 = FALSE_TYPE; t50016 = f17568((t49891.value.native_procedure_type21963), t50015); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50016; break; case NATIVE_PROCEDURE_TYPE21966: t50017 = FALSE_TYPE; t50018 = f17564((t49891.value.native_procedure_type21966), t50017); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50018; break; case NATIVE_PROCEDURE_TYPE21968: t50019 = FALSE_TYPE; t50020 = f17563((t49891.value.native_procedure_type21968), t50019); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50020; break; case NATIVE_PROCEDURE_TYPE21971: t50021 = FALSE_TYPE; t50022 = f17559((t49891.value.native_procedure_type21971), t50021); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50022; break; case NATIVE_PROCEDURE_TYPE21973: t50023 = FALSE_TYPE; t50024 = f17558((t49891.value.native_procedure_type21973), t50023); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50024; break; case NATIVE_PROCEDURE_TYPE21975: t50025 = FALSE_TYPE; t50026 = f17534((t49891.value.native_procedure_type21975), t50025); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50026; break; case NATIVE_PROCEDURE_TYPE21978: t50027 = FALSE_TYPE; t50028 = f17718((t49891.value.native_procedure_type21978), t50027); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50028; break; case NATIVE_PROCEDURE_TYPE21982: t50029 = FALSE_TYPE; t50030 = f17716((t49891.value.native_procedure_type21982), t50029); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50030; break; case NATIVE_PROCEDURE_TYPE21984: t50031 = FALSE_TYPE; t50032 = f17715((t49891.value.native_procedure_type21984), t50031); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50032; break; case NATIVE_PROCEDURE_TYPE21997: t50033 = FALSE_TYPE; t50034 = f17693((t49891.value.native_procedure_type21997), t50033); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50034; break; case NATIVE_PROCEDURE_TYPE22000: t50035 = FALSE_TYPE; t50036 = f17682((t49891.value.native_procedure_type22000), t50035); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50036; break; case NATIVE_PROCEDURE_TYPE22003: t50037 = FALSE_TYPE; t50038 = f17679((t49891.value.native_procedure_type22003), t50037); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50038; break; case NATIVE_PROCEDURE_TYPE22006: t50039 = FALSE_TYPE; t50040 = f17676((t49891.value.native_procedure_type22006), t50039); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50040; break; case NATIVE_PROCEDURE_TYPE22008: t50041 = FALSE_TYPE; t50042 = f17761((t49891.value.native_procedure_type22008), t50041); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50042; break; case NATIVE_PROCEDURE_TYPE22010: t50043 = FALSE_TYPE; t50044 = f17807((t49891.value.native_procedure_type22010), t50043); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50044; break; case NATIVE_PROCEDURE_TYPE22012: t50045 = FALSE_TYPE; t50046 = f17806((t49891.value.native_procedure_type22012), t50045); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50046; break; case NATIVE_PROCEDURE_TYPE22014: t50047 = FALSE_TYPE; t50048 = f17787((t49891.value.native_procedure_type22014), t50047); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50048; break; case NATIVE_PROCEDURE_TYPE22016: t50049 = FALSE_TYPE; t50050 = f17786((t49891.value.native_procedure_type22016), t50049); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50050; break; case NATIVE_PROCEDURE_TYPE22037: t50051 = FALSE_TYPE; t50052 = f17841((t49891.value.native_procedure_type22037), t50051); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50052; break; case NATIVE_PROCEDURE_TYPE22064: /* x298238 stalin.sc:19867:695278 */ /* x298237 stalin.sc:19867:695279 */ /* x303534 stalin.sc:14693:514793 */ t49876.tag = STRING_TYPE; t49876.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22072: t50053 = FALSE_TYPE; t50054 = f15886((t49891.value.native_procedure_type22072), t50053); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50054; break; case NATIVE_PROCEDURE_TYPE22081: t50055 = FALSE_TYPE; t50056 = f17894((t49891.value.native_procedure_type22081), t50055); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50056; break; case NATIVE_PROCEDURE_TYPE22091: t50057 = FALSE_TYPE; t50058 = f17885((t49891.value.native_procedure_type22091), t50057); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50058; break; case NATIVE_PROCEDURE_TYPE22100: t50059 = FALSE_TYPE; t50060 = f17641((t49891.value.native_procedure_type22100), t50059); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50060; break; case NATIVE_PROCEDURE_TYPE22102: t50061 = FALSE_TYPE; t50062 = f17640((t49891.value.native_procedure_type22102), t50061); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50062; break; case NATIVE_PROCEDURE_TYPE22104: t50063 = FALSE_TYPE; t50064 = f17639((t49891.value.native_procedure_type22104), t50063); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50064; break; case NATIVE_PROCEDURE_TYPE22106: t50065 = FALSE_TYPE; t50066 = f17491((t49891.value.native_procedure_type22106), t50065); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50066; break; case NATIVE_PROCEDURE_TYPE22112: t50067 = FALSE_TYPE; t50068 = f17936((t49891.value.native_procedure_type22112), t50067); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50068; break; case NATIVE_PROCEDURE_TYPE22117: t50069 = FALSE_TYPE; t50070 = f17957((t49891.value.native_procedure_type22117), t50069); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50070; break; case NATIVE_PROCEDURE_TYPE22119: t50071 = FALSE_TYPE; t50072 = f17948((t49891.value.native_procedure_type22119), t50071); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50072; break; case NATIVE_PROCEDURE_TYPE22124: t50073 = FALSE_TYPE; t50074 = f17976((t49891.value.native_procedure_type22124), t50073); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50074; break; case NATIVE_PROCEDURE_TYPE22127: t50075 = FALSE_TYPE; t50076 = f17966((t49891.value.native_procedure_type22127), t50075); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50076; break; case NATIVE_PROCEDURE_TYPE22130: t50077 = FALSE_TYPE; t50078 = f18033((t49891.value.native_procedure_type22130), t50077); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50078; break; case NATIVE_PROCEDURE_TYPE22132: t50079 = FALSE_TYPE; t50080 = f18032((t49891.value.native_procedure_type22132), t50079); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50080; break; case NATIVE_PROCEDURE_TYPE22135: t50081 = FALSE_TYPE; t50082 = f18008((t49891.value.native_procedure_type22135), t50081); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50082; break; case NATIVE_PROCEDURE_TYPE22137: t50083 = FALSE_TYPE; t50084 = f17986((t49891.value.native_procedure_type22137), t50083); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50084; break; case NATIVE_PROCEDURE_TYPE22139: t50085 = FALSE_TYPE; t50086 = f18072((t49891.value.native_procedure_type22139), t50085); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50086; break; case NATIVE_PROCEDURE_TYPE22141: t50087 = FALSE_TYPE; t50088 = f18090((t49891.value.native_procedure_type22141), t50087); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50088; break; case NATIVE_PROCEDURE_TYPE22143: t50089 = FALSE_TYPE; t50090 = f18081((t49891.value.native_procedure_type22143), t50089); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50090; break; case NATIVE_PROCEDURE_TYPE22145: t50091 = FALSE_TYPE; t50092 = f18063((t49891.value.native_procedure_type22145), t50091); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50092; break; case NATIVE_PROCEDURE_TYPE22148: t50093 = FALSE_TYPE; t50094 = f18121((t49891.value.native_procedure_type22148), t50093); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50094; break; case NATIVE_PROCEDURE_TYPE22154: t50095 = FALSE_TYPE; t50096 = f18148((t49891.value.native_procedure_type22154), t50095); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50096; break; case NATIVE_PROCEDURE_TYPE22160: t50097 = FALSE_TYPE; t50098 = f18135((t49891.value.native_procedure_type22160), t50097); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50098; break; case NATIVE_PROCEDURE_TYPE22162: t50099 = FALSE_TYPE; t50100 = f18133((t49891.value.native_procedure_type22162), t50099); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50100; break; case NATIVE_PROCEDURE_TYPE22165: t50101 = FALSE_TYPE; t50102 = f18042((t49891.value.native_procedure_type22165), t50101); t49876.tag = STRUCTURE_TYPE24753; t49876.value.structure_type24753 = t50102; break; default: /* x297741 stalin.sc:23751:825832 */ /* x297740 stalin.sc:23751:825833 */ /* x303266 QobiScheme.sc:166:5314 */ /* x303265 QobiScheme.sc:166:5321 */ t50103 = "This shouldn\'t happen"; /* x303264 QobiScheme.sc:166:5315 */ stalin_panic(t50103);} /* x132706 stalin.sc:16824:587855 */ t49877 = a26052; /* x132641 stalin.sc:16810:587475 */ t49878.tag = STRUCTURE_TYPE24753; t49878.value.structure_type24753 = t49873; t49842 = f13676(t49878, t49874, t49875, t49876, t49877); goto l7336; l7335: /* x132771 stalin.sc:16825:587863 */ /* x132712 stalin.sc:16826:587890 */ /* x132710 stalin.sc:16826:587910 */ t49861 = p14660->p14646->a26049; /* x132711 stalin.sc:16826:587913 */ t49862 = p14660->p14646->a26048; /* x132709 stalin.sc:16826:587891 */ t49856 = f14594(t49861, t49862); /* x132722 stalin.sc:16827:587921 */ /* x132721 stalin.sc:16827:587967 */ t49864 = a26066; /* x132720 stalin.sc:16827:587926 */ t49863 = p14660->p14646; /* x132713 stalin.sc:16827:587922 */ t49865.tag = NATIVE_PROCEDURE_TYPE20870; t49865.value.native_procedure_type20870 = t49863; t49866 = *((struct w49 *)(&t49864)); t49867 = (struct structure_type24753 *)NULL_TYPE; t49857 = f27731(t49865, t49866, t49867); /* x132769 stalin.sc:16828:587977 */ /* x132768 stalin.sc:16837:588233 */ t49869 = a26066; /* x132767 stalin.sc:16828:587982 */ t49868 = p14660; /* x132723 stalin.sc:16828:587978 */ t49870.tag = NATIVE_PROCEDURE_TYPE20869; t49870.value.native_procedure_type20869 = t49868; t49871 = *((struct w49 *)(&t49869)); t49872 = (struct structure_type24753 *)NULL_TYPE; t49858 = f27731(t49870, t49871, t49872); /* x132770 stalin.sc:16838:588243 */ t49859 = a26052; /* x132708 stalin.sc:16825:587864 */ t49860.tag = STRUCTURE_TYPE24753; t49860.value.structure_type24753 = t49856; t49842 = f13687(t49860, t49857, t49858, t49859); l7336: /* x132773 stalin.sc:16839:588255 */ t49843 = a26052; /* x132598 stalin.sc:16797:587085 */ return f13676(t49839, t49840, t49841, t49842, t49843);} /* [inside COMPILE-SQUISHED-DEFAULTLESS-TYPE-IF 14645] */ struct structure_type24753 *f14645(struct p14637 *p14645, struct w49 a26046) {struct w49 t50373; struct w49 t50374; struct w49 t50375; /* x132306 stalin.sc:16702:583734 */ /* x132303 stalin.sc:16702:583751 */ t50373 = p14645->a26041; /* x132304 stalin.sc:16702:583754 */ t50374 = a26046; /* x132305 stalin.sc:16702:583756 */ t50375 = p14645->a26040; /* x132302 stalin.sc:16702:583735 */ return f14595(t50373, t50374, t50375);} /* LOOP[14640] */ struct w49 f14640(struct w49 a26045) {struct w49 r14640; struct w16638 a35462; /* PAIR */ struct w16638 a35463; /* PAIR */ struct w49 a35933; /* PAIR */ struct w16638 a35934; /* PAIR */ struct w16638 a35935; /* PAIR */ struct w49 a35936; /* PAIR */ struct w16638 a35937; /* PAIR */ struct w49 t50376; struct w49 t50377; struct w16638 t50378; struct w16638 t50379; struct structure_type24753 *t50380; struct w49 t50381; struct w49 t50382; unsigned t50383; struct structure_type24753 *t50384; struct structure_type24753 *t50385; struct w49 t50386; struct w36270 t50387; struct w49 t50388; struct structure_type24753 *t50389; struct w16638 t50390; struct w16638 t50391; struct w49 t50392; struct w49 t50393; struct w49 t50394; struct w16638 t50395; struct w16638 t50396; struct w49 t50397; struct w16638 t50398; struct w16638 t50399; struct w49 t50400; struct w49 t50401; struct w49 t50402; struct w16638 t50403; struct w16638 t50404; /* x132292 stalin.sc:16705:583810 */ /* x132246 stalin.sc:16705:583817 */ /* x132245 stalin.sc:16705:583824 */ t50376 = a26045; /* x268829 stalin.sc:16705:583818 */ if (!((t50376.tag)==NULL_TYPE)) goto l7346; /* x132250 */ /* x132249 */ /* x132248 stalin.sc:16705:583831 */ /* x132247 stalin.sc:16705:583832 */ /* x276741 stalin.sc:14693:514793 */ r14640.tag = STRING_TYPE; r14640.value.string_type = ""; return r14640; l7346: /* x132291 */ /* x132255 stalin.sc:16706:583843 */ /* x132254 stalin.sc:16706:583850 */ /* x132253 stalin.sc:16706:583856 */ t50378 = *((struct w16638 *)(&a26045)); /* x132252 stalin.sc:16706:583851 */ a35463 = t50378; /* x273209 */ /* x273208 */ t50379 = a35463; /* x273207 */ if (!((t50379.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29612]"); structure_ref_error();} t50377 = t50379.value.structure_type24753->s1; /* x268828 stalin.sc:16706:583844 */ if (!((t50377.tag)==NULL_TYPE)) goto l7348; /* x132264 */ /* x132263 */ /* x132262 stalin.sc:16706:583864 */ /* x132261 stalin.sc:16706:583872 */ /* x132260 stalin.sc:16706:583879 */ /* x132259 stalin.sc:16706:583886 */ t50403 = *((struct w16638 *)(&a26045)); /* x132258 stalin.sc:16706:583880 */ a35934 = t50403; /* x275093 */ /* x275092 */ t50404 = a35934; /* x275091 */ if (!((t50404.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30083]"); structure_ref_error();} t50401 = t50404.value.structure_type24753->s0; /* x132257 stalin.sc:16706:583873 */ a35933 = t50401; /* x275089 */ /* x275088 */ t50402 = a35933; /* x275087 */ if (!((t50402.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30082]"); structure_ref_error();} t50400 = t50402.value.structure_type24753->s0; /* x132256 stalin.sc:16706:583865 */ return f26181(t50400); l7348: /* x132290 */ /* x132289 */ /* x132288 stalin.sc:16707:583903 */ /* x132274 stalin.sc:16707:583909 */ /* x132267 stalin.sc:16707:583916 */ /* x132273 stalin.sc:16707:583929 */ /* x132272 stalin.sc:16707:583940 */ /* x132271 stalin.sc:16707:583947 */ t50390 = *((struct w16638 *)(&a26045)); /* x132270 stalin.sc:16707:583941 */ a35935 = t50390; /* x275097 */ /* x275096 */ t50391 = a35935; /* x275095 */ if (!((t50391.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30084]"); structure_ref_error();} t50386 = t50391.value.structure_type24753->s0; /* x132269 stalin.sc:16707:583934 */ /* x132268 stalin.sc:16707:583930 */ t50387.tag = NATIVE_PROCEDURE_TYPE494; t50388 = t50386; t50389 = (struct structure_type24753 *)NULL_TYPE; t50384 = f27731(t50387, t50388, t50389); /* x268827 stalin.sc:16707:583910 */ t50385 = t50384; t50380 = f13556(t50385); /* x132281 stalin.sc:16708:583962 */ /* x132280 stalin.sc:16708:583970 */ /* x132279 stalin.sc:16708:583977 */ /* x132278 stalin.sc:16708:583984 */ t50395 = *((struct w16638 *)(&a26045)); /* x132277 stalin.sc:16708:583978 */ a35937 = t50395; /* x275105 */ /* x275104 */ t50396 = a35937; /* x275103 */ if (!((t50396.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30086]"); structure_ref_error();} t50393 = t50396.value.structure_type24753->s0; /* x132276 stalin.sc:16708:583971 */ a35936 = t50393; /* x275101 */ /* x275100 */ t50394 = a35936; /* x275099 */ if (!((t50394.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30085]"); structure_ref_error();} t50392 = t50394.value.structure_type24753->s0; /* x132275 stalin.sc:16708:583963 */ t50381 = f26181(t50392); /* x132286 stalin.sc:16709:583999 */ /* x132285 stalin.sc:16709:584005 */ /* x132284 stalin.sc:16709:584011 */ t50398 = *((struct w16638 *)(&a26045)); /* x132283 stalin.sc:16709:584006 */ a35462 = t50398; /* x273205 */ /* x273204 */ t50399 = a35462; /* x273203 */ if (!((t50399.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29611]"); structure_ref_error();} t50397 = t50399.value.structure_type24753->s1; /* x132282 stalin.sc:16709:584000 */ t50382 = f14640(t50397); /* x132287 stalin.sc:16710:584025 */ /* x132265 stalin.sc:16707:583904 */ t50383 = FALSE_TYPE; return f13672(t50380, t50381, t50382, t50383);} /* COMPILE-SQUISHED-DEFAULTLESS-TYPE-IF[14637] */ struct w49 f14637(struct w12224 a26039, struct w49 a26040, struct w49 a26041, struct w155862 a26042) {struct structure_type24753 *t50405; struct w49 t50406; struct structure_type24753 *t50407; struct structure_type24753 *t50408; struct p14637 *t50409; struct w12224 t50410; struct w36270 t50411; struct w49 t50412; struct structure_type24753 *t50413; struct w155862 t50414; struct w12224 t50415; struct w36270 t50416; struct w49 t50417; struct structure_type24753 *t50418; struct p14637 *e14637; e14637 = (struct p14637 *)alloca(sizeof(struct p14637)); if (e14637==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e14637->a26040 = a26040; e14637->a26041 = a26041; /* x132315 stalin.sc:16702:583685 */ /* x132314 stalin.sc:16702:583703 */ /* x132309 stalin.sc:16702:583717 */ /* x132308 stalin.sc:16702:583760 */ t50410 = a26039; /* x132307 stalin.sc:16702:583722 */ t50409 = e14637; /* x132301 stalin.sc:16702:583718 */ t50411.tag = NATIVE_PROCEDURE_TYPE20462; t50411.value.native_procedure_type20462 = t50409; t50412 = *((struct w49 *)(&t50410)); t50413 = (struct structure_type24753 *)NULL_TYPE; t50407 = f27731(t50411, t50412, t50413); /* x132313 stalin.sc:16703:583769 */ /* x132312 stalin.sc:16703:583777 */ t50415 = a26039; /* x132311 stalin.sc:16703:583774 */ t50414 = a26042; /* x132310 stalin.sc:16703:583770 */ t50416 = *((struct w36270 *)(&t50414)); t50417 = *((struct w49 *)(&t50415)); t50418 = (struct structure_type24753 *)NULL_TYPE; t50408 = f27731(t50416, t50417, t50418); /* x132300 stalin.sc:16702:583704 */ t50405 = f13673(t50407, t50408); /* x132299 */ /* x132298 */ /* x132297 */ /* x132296 */ /* x132295 */ /* x132294 */ /* x132293 */ /* x132243 */ /* x132242 stalin.sc:16702:583690 */ /* MOVE: branching squeezed to general */ if (t50405>=((struct structure_type24753 *)VALUE_OFFSET)) {t50406.tag = STRUCTURE_TYPE24753; t50406.value.structure_type24753 = t50405;} else t50406.tag = (unsigned)t50405; return f14640(t50406);} /* [inside COMPILE-SQUISHED-TYPE-IF 14636] */ struct structure_type24753 *f14636(struct p14630 *p14636, struct w49 a26038) {struct w49 t50419; struct w49 t50420; struct w49 t50421; /* x132227 stalin.sc:16690:583284 */ /* x132224 stalin.sc:16690:583301 */ t50419 = p14636->a26031; /* x132225 stalin.sc:16690:583304 */ t50420 = a26038; /* x132226 stalin.sc:16690:583306 */ t50421 = p14636->a26030; /* x132223 stalin.sc:16690:583285 */ return f14595(t50419, t50420, t50421);} /* LOOP[14634] */ struct w49 f14634(struct p14630 *p14634, struct w49 a26037) {struct w49 r14634; struct w16638 a35437; /* PAIR */ struct w16638 a35904; /* PAIR */ struct w49 a35905; /* PAIR */ struct w16638 a35906; /* PAIR */ struct w49 t50422; struct structure_type24753 *t50423; struct w49 t50424; struct w49 t50425; unsigned t50426; struct structure_type24753 *t50427; struct structure_type24753 *t50428; struct w49 t50429; struct w36270 t50430; struct w49 t50431; struct structure_type24753 *t50432; struct w16638 t50433; struct w16638 t50434; struct w49 t50435; struct w49 t50436; struct w49 t50437; struct w16638 t50438; struct w16638 t50439; struct p14630 *t50440; struct w49 t50441; struct w16638 t50442; struct w16638 t50443; struct w155916 t50444; unsigned t50445; struct structure_type24753 *t50446; unsigned t50447; struct structure_type24753 *t50448; struct structure_type27501 *t50449; unsigned t50450; struct structure_type24753 *t50451; unsigned t50452; struct structure_type24753 *t50453; unsigned t50454; struct structure_type24753 *t50455; struct structure_type27501 *t50456; char *t50457; char *t50458; unsigned t50459; struct structure_type24753 *t50460; unsigned t50461; struct structure_type24753 *t50462; unsigned t50463; struct structure_type24753 *t50464; unsigned t50465; struct structure_type24753 *t50466; unsigned t50467; struct structure_type24753 *t50468; unsigned t50469; struct structure_type24753 *t50470; unsigned t50471; struct structure_type24753 *t50472; unsigned t50473; struct structure_type24753 *t50474; unsigned t50475; struct structure_type24753 *t50476; unsigned t50477; struct structure_type24753 *t50478; unsigned t50479; struct structure_type24753 *t50480; unsigned t50481; struct structure_type24753 *t50482; unsigned t50483; struct structure_type24753 *t50484; unsigned t50485; struct structure_type24753 *t50486; unsigned t50487; struct structure_type24753 *t50488; unsigned t50489; struct structure_type24753 *t50490; unsigned t50491; struct structure_type24753 *t50492; unsigned t50493; struct structure_type24753 *t50494; unsigned t50495; struct structure_type24753 *t50496; unsigned t50497; struct structure_type24753 *t50498; unsigned t50499; struct structure_type24753 *t50500; unsigned t50501; struct structure_type24753 *t50502; unsigned t50503; struct structure_type24753 *t50504; unsigned t50505; struct structure_type24753 *t50506; unsigned t50507; struct structure_type24753 *t50508; unsigned t50509; struct structure_type24753 *t50510; unsigned t50511; struct structure_type24753 *t50512; unsigned t50513; struct structure_type24753 *t50514; unsigned t50515; struct structure_type24753 *t50516; unsigned t50517; struct structure_type24753 *t50518; unsigned t50519; struct structure_type24753 *t50520; unsigned t50521; struct structure_type24753 *t50522; unsigned t50523; struct structure_type24753 *t50524; unsigned t50525; struct structure_type24753 *t50526; unsigned t50527; struct structure_type24753 *t50528; unsigned t50529; struct structure_type24753 *t50530; unsigned t50531; struct structure_type24753 *t50532; unsigned t50533; struct structure_type24753 *t50534; unsigned t50535; struct structure_type24753 *t50536; unsigned t50537; struct structure_type24753 *t50538; unsigned t50539; struct structure_type24753 *t50540; unsigned t50541; struct structure_type24753 *t50542; unsigned t50543; struct structure_type24753 *t50544; unsigned t50545; struct structure_type24753 *t50546; unsigned t50547; struct structure_type24753 *t50548; unsigned t50549; struct structure_type24753 *t50550; struct structure_type24753 *t50551; unsigned t50552; struct structure_type24753 *t50553; unsigned t50554; struct structure_type24753 *t50555; unsigned t50556; struct structure_type24753 *t50557; unsigned t50558; struct structure_type24753 *t50559; unsigned t50560; struct structure_type24753 *t50561; unsigned t50562; struct structure_type24753 *t50563; unsigned t50564; struct structure_type24753 *t50565; unsigned t50566; struct structure_type24753 *t50567; unsigned t50568; struct structure_type24753 *t50569; unsigned t50570; struct structure_type24753 *t50571; unsigned t50572; struct structure_type24753 *t50573; unsigned t50574; struct structure_type24753 *t50575; unsigned t50576; struct structure_type24753 *t50577; unsigned t50578; struct structure_type24753 *t50579; unsigned t50580; struct structure_type24753 *t50581; unsigned t50582; struct structure_type24753 *t50583; unsigned t50584; struct structure_type24753 *t50585; unsigned t50586; struct structure_type24753 *t50587; unsigned t50588; struct structure_type24753 *t50589; unsigned t50590; struct structure_type24753 *t50591; unsigned t50592; struct structure_type24753 *t50593; unsigned t50594; struct structure_type24753 *t50595; unsigned t50596; struct structure_type24753 *t50597; unsigned t50598; struct structure_type24753 *t50599; unsigned t50600; struct structure_type24753 *t50601; unsigned t50602; struct structure_type24753 *t50603; unsigned t50604; struct structure_type24753 *t50605; unsigned t50606; struct structure_type24753 *t50607; unsigned t50608; struct structure_type24753 *t50609; unsigned t50610; struct structure_type24753 *t50611; unsigned t50612; struct structure_type24753 *t50613; unsigned t50614; struct structure_type24753 *t50615; unsigned t50616; struct structure_type24753 *t50617; unsigned t50618; struct structure_type24753 *t50619; unsigned t50620; struct structure_type24753 *t50621; unsigned t50622; struct structure_type24753 *t50623; unsigned t50624; struct structure_type24753 *t50625; unsigned t50626; struct structure_type24753 *t50627; unsigned t50628; struct structure_type24753 *t50629; unsigned t50630; struct structure_type24753 *t50631; unsigned t50632; struct structure_type24753 *t50633; unsigned t50634; struct structure_type24753 *t50635; unsigned t50636; struct structure_type24753 *t50637; unsigned t50638; struct structure_type24753 *t50639; unsigned t50640; struct structure_type24753 *t50641; unsigned t50642; struct structure_type24753 *t50643; unsigned t50644; struct structure_type24753 *t50645; unsigned t50646; struct structure_type24753 *t50647; unsigned t50648; struct structure_type24753 *t50649; unsigned t50650; struct structure_type24753 *t50651; unsigned t50652; struct structure_type24753 *t50653; unsigned t50654; struct structure_type24753 *t50655; char *t50656; struct p16486 *p37505; struct p14711 *p37524; /* x132213 stalin.sc:16692:583349 */ /* x132185 stalin.sc:16692:583353 */ /* x132184 stalin.sc:16692:583360 */ t50422 = a26037; /* x268831 stalin.sc:16692:583354 */ if (!((t50422.tag)==NULL_TYPE)) goto l7350; /* x132188 stalin.sc:16693:583374 */ /* x132187 stalin.sc:16693:583378 */ /* x132186 stalin.sc:16693:583375 */ t50444 = p14634->a26033; switch (t50444.tag) {case NATIVE_PROCEDURE_TYPE20757: t50445 = FALSE_TYPE; t50446 = f16097((t50444.value.native_procedure_type20757), t50445); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50446; return r14634; case NATIVE_PROCEDURE_TYPE20782: t50447 = FALSE_TYPE; t50448 = f15772((t50444.value.native_procedure_type20782), t50447); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50448; return r14634; case NATIVE_PROCEDURE_TYPE20850: p37524 = t50444.value.native_procedure_type20850; /* x302890 stalin.sc:17033:595793 */ /* x302889 stalin.sc:17033:595807 */ t50449 = p37524->a26136; /* x302888 stalin.sc:17033:595794 */ return f14708(t50449); case NATIVE_PROCEDURE_TYPE20913: t50450 = FALSE_TYPE; t50451 = f16433((t50444.value.native_procedure_type20913), t50450); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50451; return r14634; case NATIVE_PROCEDURE_TYPE20915: t50452 = FALSE_TYPE; t50453 = f16417((t50444.value.native_procedure_type20915), t50452); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50453; return r14634; case NATIVE_PROCEDURE_TYPE20918: t50454 = FALSE_TYPE; t50455 = f16635((t50444.value.native_procedure_type20918), t50454); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50455; return r14634; case NATIVE_PROCEDURE_TYPE20927: p37505 = t50444.value.native_procedure_type20927; /* x302814 stalin.sc:21738:761657 */ /* x302813 stalin.sc:21738:761670 */ t50456 = p37505->a27722; /* x302812 stalin.sc:21738:761658 */ return f14707(t50456); case NATIVE_PROCEDURE_TYPE21036: /* x298074 stalin.sc:21885:766135 */ /* x298073 stalin.sc:21885:766136 */ /* x303402 QobiScheme.sc:166:5314 */ /* x303401 QobiScheme.sc:166:5321 */ t50457 = "This shouldn\'t happen"; /* x303400 QobiScheme.sc:166:5315 */ stalin_panic(t50457); case NATIVE_PROCEDURE_TYPE21042: /* x298135 stalin.sc:21855:765176 */ /* x298134 stalin.sc:21855:765177 */ /* x303478 QobiScheme.sc:166:5314 */ /* x303477 QobiScheme.sc:166:5321 */ t50458 = "This shouldn\'t happen"; /* x303476 QobiScheme.sc:166:5315 */ stalin_panic(t50458); case NATIVE_PROCEDURE_TYPE21048: t50459 = FALSE_TYPE; t50460 = f16737((t50444.value.native_procedure_type21048), t50459); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50460; return r14634; case NATIVE_PROCEDURE_TYPE21059: t50461 = FALSE_TYPE; t50462 = f15571((t50444.value.native_procedure_type21059), t50461); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50462; return r14634; case NATIVE_PROCEDURE_TYPE21065: t50463 = FALSE_TYPE; t50464 = f16830((t50444.value.native_procedure_type21065), t50463); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50464; return r14634; case NATIVE_PROCEDURE_TYPE21082: t50465 = FALSE_TYPE; t50466 = f16721((t50444.value.native_procedure_type21082), t50465); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50466; return r14634; case NATIVE_PROCEDURE_TYPE21087: t50467 = FALSE_TYPE; t50468 = f16648((t50444.value.native_procedure_type21087), t50467); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50468; return r14634; case NATIVE_PROCEDURE_TYPE21090: t50469 = FALSE_TYPE; t50470 = f16858((t50444.value.native_procedure_type21090), t50469); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50470; return r14634; case NATIVE_PROCEDURE_TYPE21108: t50471 = FALSE_TYPE; t50472 = f15580((t50444.value.native_procedure_type21108), t50471); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50472; return r14634; case NATIVE_PROCEDURE_TYPE21110: t50473 = FALSE_TYPE; t50474 = f16912((t50444.value.native_procedure_type21110), t50473); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50474; return r14634; case NATIVE_PROCEDURE_TYPE21117: t50475 = FALSE_TYPE; t50476 = f16884((t50444.value.native_procedure_type21117), t50475); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50476; return r14634; case NATIVE_PROCEDURE_TYPE21137: t50477 = FALSE_TYPE; t50478 = f16982((t50444.value.native_procedure_type21137), t50477); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50478; return r14634; case NATIVE_PROCEDURE_TYPE21147: t50479 = FALSE_TYPE; t50480 = f17061((t50444.value.native_procedure_type21147), t50479); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50480; return r14634; case NATIVE_PROCEDURE_TYPE21152: t50481 = FALSE_TYPE; t50482 = f17134((t50444.value.native_procedure_type21152), t50481); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50482; return r14634; case NATIVE_PROCEDURE_TYPE21154: t50483 = FALSE_TYPE; t50484 = f17133((t50444.value.native_procedure_type21154), t50483); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50484; return r14634; case NATIVE_PROCEDURE_TYPE21170: t50485 = FALSE_TYPE; t50486 = f17101((t50444.value.native_procedure_type21170), t50485); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50486; return r14634; case NATIVE_PROCEDURE_TYPE21172: t50487 = FALSE_TYPE; t50488 = f17100((t50444.value.native_procedure_type21172), t50487); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50488; return r14634; case NATIVE_PROCEDURE_TYPE21201: t50489 = FALSE_TYPE; t50490 = f17026((t50444.value.native_procedure_type21201), t50489); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50490; return r14634; case NATIVE_PROCEDURE_TYPE21225: t50491 = FALSE_TYPE; t50492 = f16941((t50444.value.native_procedure_type21225), t50491); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50492; return r14634; case NATIVE_PROCEDURE_TYPE21228: t50493 = FALSE_TYPE; t50494 = f16844((t50444.value.native_procedure_type21228), t50493); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50494; return r14634; case NATIVE_PROCEDURE_TYPE21234: t50495 = FALSE_TYPE; t50496 = f17200((t50444.value.native_procedure_type21234), t50495); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50496; return r14634; case NATIVE_PROCEDURE_TYPE21236: t50497 = FALSE_TYPE; t50498 = f17199((t50444.value.native_procedure_type21236), t50497); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50498; return r14634; case NATIVE_PROCEDURE_TYPE21256: t50499 = FALSE_TYPE; t50500 = f17222((t50444.value.native_procedure_type21256), t50499); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50500; return r14634; case NATIVE_PROCEDURE_TYPE21259: t50501 = FALSE_TYPE; t50502 = f17209((t50444.value.native_procedure_type21259), t50501); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50502; return r14634; case NATIVE_PROCEDURE_TYPE21265: t50503 = FALSE_TYPE; t50504 = f17254((t50444.value.native_procedure_type21265), t50503); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50504; return r14634; case NATIVE_PROCEDURE_TYPE21268: t50505 = FALSE_TYPE; t50506 = f17295((t50444.value.native_procedure_type21268), t50505); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50506; return r14634; case NATIVE_PROCEDURE_TYPE21274: t50507 = FALSE_TYPE; t50508 = f17333((t50444.value.native_procedure_type21274), t50507); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50508; return r14634; case NATIVE_PROCEDURE_TYPE21280: t50509 = FALSE_TYPE; t50510 = f17314((t50444.value.native_procedure_type21280), t50509); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50510; return r14634; case NATIVE_PROCEDURE_TYPE21286: t50511 = FALSE_TYPE; t50512 = f17276((t50444.value.native_procedure_type21286), t50511); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50512; return r14634; case NATIVE_PROCEDURE_TYPE21296: t50513 = FALSE_TYPE; t50514 = f17238((t50444.value.native_procedure_type21296), t50513); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50514; return r14634; case NATIVE_PROCEDURE_TYPE21299: t50515 = FALSE_TYPE; t50516 = f17357((t50444.value.native_procedure_type21299), t50515); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50516; return r14634; case NATIVE_PROCEDURE_TYPE21304: t50517 = FALSE_TYPE; t50518 = f17381((t50444.value.native_procedure_type21304), t50517); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50518; return r14634; case NATIVE_PROCEDURE_TYPE21309: t50519 = FALSE_TYPE; t50520 = f17369((t50444.value.native_procedure_type21309), t50519); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50520; return r14634; case NATIVE_PROCEDURE_TYPE21314: t50521 = FALSE_TYPE; t50522 = f17405((t50444.value.native_procedure_type21314), t50521); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50522; return r14634; case NATIVE_PROCEDURE_TYPE21319: t50523 = FALSE_TYPE; t50524 = f17440((t50444.value.native_procedure_type21319), t50523); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50524; return r14634; case NATIVE_PROCEDURE_TYPE21324: t50525 = FALSE_TYPE; t50526 = f17437((t50444.value.native_procedure_type21324), t50525); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50526; return r14634; case NATIVE_PROCEDURE_TYPE21329: t50527 = FALSE_TYPE; t50528 = f17430((t50444.value.native_procedure_type21329), t50527); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50528; return r14634; case NATIVE_PROCEDURE_TYPE21334: t50529 = FALSE_TYPE; t50530 = f17417((t50444.value.native_procedure_type21334), t50529); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50530; return r14634; case NATIVE_PROCEDURE_TYPE21339: t50531 = FALSE_TYPE; t50532 = f17473((t50444.value.native_procedure_type21339), t50531); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50532; return r14634; case NATIVE_PROCEDURE_TYPE21341: t50533 = FALSE_TYPE; t50534 = f17472((t50444.value.native_procedure_type21341), t50533); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50534; return r14634; case NATIVE_PROCEDURE_TYPE21348: t50535 = FALSE_TYPE; t50536 = f17452((t50444.value.native_procedure_type21348), t50535); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50536; return r14634; case NATIVE_PROCEDURE_TYPE21353: t50537 = FALSE_TYPE; t50538 = f17393((t50444.value.native_procedure_type21353), t50537); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50538; return r14634; case NATIVE_PROCEDURE_TYPE21358: t50539 = FALSE_TYPE; t50540 = f17345((t50444.value.native_procedure_type21358), t50539); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50540; return r14634; case NATIVE_PROCEDURE_TYPE21363: t50541 = FALSE_TYPE; t50542 = f17167((t50444.value.native_procedure_type21363), t50541); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50542; return r14634; case NATIVE_PROCEDURE_TYPE21365: t50543 = FALSE_TYPE; t50544 = f17166((t50444.value.native_procedure_type21365), t50543); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50544; return r14634; case NATIVE_PROCEDURE_TYPE21381: t50545 = FALSE_TYPE; t50546 = f17504((t50444.value.native_procedure_type21381), t50545); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50546; return r14634; case NATIVE_PROCEDURE_TYPE21387: t50547 = FALSE_TYPE; t50548 = f17525((t50444.value.native_procedure_type21387), t50547); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50548; return r14634; case NATIVE_PROCEDURE_TYPE21393: t50549 = FALSE_TYPE; t50550 = f17599((t50444.value.native_procedure_type21393), t50549); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50550; return r14634; case NATIVE_PROCEDURE_TYPE21414: t50551 = f19631(); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50551; return r14634; case NATIVE_PROCEDURE_TYPE21896: t50552 = FALSE_TYPE; t50553 = f15815((t50444.value.native_procedure_type21896), t50552); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50553; return r14634; case NATIVE_PROCEDURE_TYPE21903: t50554 = FALSE_TYPE; t50555 = f15805((t50444.value.native_procedure_type21903), t50554); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50555; return r14634; case NATIVE_PROCEDURE_TYPE21944: t50556 = FALSE_TYPE; t50557 = f17628((t50444.value.native_procedure_type21944), t50556); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50557; return r14634; case NATIVE_PROCEDURE_TYPE21946: t50558 = FALSE_TYPE; t50559 = f17627((t50444.value.native_procedure_type21946), t50558); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50559; return r14634; case NATIVE_PROCEDURE_TYPE21948: t50560 = FALSE_TYPE; t50561 = f17613((t50444.value.native_procedure_type21948), t50560); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50561; return r14634; case NATIVE_PROCEDURE_TYPE21952: t50562 = FALSE_TYPE; t50563 = f17579((t50444.value.native_procedure_type21952), t50562); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50563; return r14634; case NATIVE_PROCEDURE_TYPE21956: t50564 = FALSE_TYPE; t50565 = f17576((t50444.value.native_procedure_type21956), t50564); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50565; return r14634; case NATIVE_PROCEDURE_TYPE21961: t50566 = FALSE_TYPE; t50567 = f17569((t50444.value.native_procedure_type21961), t50566); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50567; return r14634; case NATIVE_PROCEDURE_TYPE21963: t50568 = FALSE_TYPE; t50569 = f17568((t50444.value.native_procedure_type21963), t50568); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50569; return r14634; case NATIVE_PROCEDURE_TYPE21966: t50570 = FALSE_TYPE; t50571 = f17564((t50444.value.native_procedure_type21966), t50570); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50571; return r14634; case NATIVE_PROCEDURE_TYPE21968: t50572 = FALSE_TYPE; t50573 = f17563((t50444.value.native_procedure_type21968), t50572); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50573; return r14634; case NATIVE_PROCEDURE_TYPE21971: t50574 = FALSE_TYPE; t50575 = f17559((t50444.value.native_procedure_type21971), t50574); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50575; return r14634; case NATIVE_PROCEDURE_TYPE21973: t50576 = FALSE_TYPE; t50577 = f17558((t50444.value.native_procedure_type21973), t50576); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50577; return r14634; case NATIVE_PROCEDURE_TYPE21975: t50578 = FALSE_TYPE; t50579 = f17534((t50444.value.native_procedure_type21975), t50578); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50579; return r14634; case NATIVE_PROCEDURE_TYPE21978: t50580 = FALSE_TYPE; t50581 = f17718((t50444.value.native_procedure_type21978), t50580); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50581; return r14634; case NATIVE_PROCEDURE_TYPE21982: t50582 = FALSE_TYPE; t50583 = f17716((t50444.value.native_procedure_type21982), t50582); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50583; return r14634; case NATIVE_PROCEDURE_TYPE21984: t50584 = FALSE_TYPE; t50585 = f17715((t50444.value.native_procedure_type21984), t50584); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50585; return r14634; case NATIVE_PROCEDURE_TYPE21997: t50586 = FALSE_TYPE; t50587 = f17693((t50444.value.native_procedure_type21997), t50586); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50587; return r14634; case NATIVE_PROCEDURE_TYPE22000: t50588 = FALSE_TYPE; t50589 = f17682((t50444.value.native_procedure_type22000), t50588); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50589; return r14634; case NATIVE_PROCEDURE_TYPE22003: t50590 = FALSE_TYPE; t50591 = f17679((t50444.value.native_procedure_type22003), t50590); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50591; return r14634; case NATIVE_PROCEDURE_TYPE22006: t50592 = FALSE_TYPE; t50593 = f17676((t50444.value.native_procedure_type22006), t50592); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50593; return r14634; case NATIVE_PROCEDURE_TYPE22008: t50594 = FALSE_TYPE; t50595 = f17761((t50444.value.native_procedure_type22008), t50594); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50595; return r14634; case NATIVE_PROCEDURE_TYPE22010: t50596 = FALSE_TYPE; t50597 = f17807((t50444.value.native_procedure_type22010), t50596); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50597; return r14634; case NATIVE_PROCEDURE_TYPE22012: t50598 = FALSE_TYPE; t50599 = f17806((t50444.value.native_procedure_type22012), t50598); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50599; return r14634; case NATIVE_PROCEDURE_TYPE22014: t50600 = FALSE_TYPE; t50601 = f17787((t50444.value.native_procedure_type22014), t50600); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50601; return r14634; case NATIVE_PROCEDURE_TYPE22016: t50602 = FALSE_TYPE; t50603 = f17786((t50444.value.native_procedure_type22016), t50602); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50603; return r14634; case NATIVE_PROCEDURE_TYPE22037: t50604 = FALSE_TYPE; t50605 = f17841((t50444.value.native_procedure_type22037), t50604); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50605; return r14634; case NATIVE_PROCEDURE_TYPE22064: /* x298232 stalin.sc:19867:695278 */ /* x298231 stalin.sc:19867:695279 */ /* x303530 stalin.sc:14693:514793 */ r14634.tag = STRING_TYPE; r14634.value.string_type = ""; return r14634; case NATIVE_PROCEDURE_TYPE22072: t50606 = FALSE_TYPE; t50607 = f15886((t50444.value.native_procedure_type22072), t50606); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50607; return r14634; case NATIVE_PROCEDURE_TYPE22081: t50608 = FALSE_TYPE; t50609 = f17894((t50444.value.native_procedure_type22081), t50608); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50609; return r14634; case NATIVE_PROCEDURE_TYPE22091: t50610 = FALSE_TYPE; t50611 = f17885((t50444.value.native_procedure_type22091), t50610); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50611; return r14634; case NATIVE_PROCEDURE_TYPE22100: t50612 = FALSE_TYPE; t50613 = f17641((t50444.value.native_procedure_type22100), t50612); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50613; return r14634; case NATIVE_PROCEDURE_TYPE22102: t50614 = FALSE_TYPE; t50615 = f17640((t50444.value.native_procedure_type22102), t50614); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50615; return r14634; case NATIVE_PROCEDURE_TYPE22104: t50616 = FALSE_TYPE; t50617 = f17639((t50444.value.native_procedure_type22104), t50616); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50617; return r14634; case NATIVE_PROCEDURE_TYPE22106: t50618 = FALSE_TYPE; t50619 = f17491((t50444.value.native_procedure_type22106), t50618); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50619; return r14634; case NATIVE_PROCEDURE_TYPE22112: t50620 = FALSE_TYPE; t50621 = f17936((t50444.value.native_procedure_type22112), t50620); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50621; return r14634; case NATIVE_PROCEDURE_TYPE22117: t50622 = FALSE_TYPE; t50623 = f17957((t50444.value.native_procedure_type22117), t50622); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50623; return r14634; case NATIVE_PROCEDURE_TYPE22119: t50624 = FALSE_TYPE; t50625 = f17948((t50444.value.native_procedure_type22119), t50624); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50625; return r14634; case NATIVE_PROCEDURE_TYPE22124: t50626 = FALSE_TYPE; t50627 = f17976((t50444.value.native_procedure_type22124), t50626); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50627; return r14634; case NATIVE_PROCEDURE_TYPE22127: t50628 = FALSE_TYPE; t50629 = f17966((t50444.value.native_procedure_type22127), t50628); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50629; return r14634; case NATIVE_PROCEDURE_TYPE22130: t50630 = FALSE_TYPE; t50631 = f18033((t50444.value.native_procedure_type22130), t50630); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50631; return r14634; case NATIVE_PROCEDURE_TYPE22132: t50632 = FALSE_TYPE; t50633 = f18032((t50444.value.native_procedure_type22132), t50632); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50633; return r14634; case NATIVE_PROCEDURE_TYPE22135: t50634 = FALSE_TYPE; t50635 = f18008((t50444.value.native_procedure_type22135), t50634); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50635; return r14634; case NATIVE_PROCEDURE_TYPE22137: t50636 = FALSE_TYPE; t50637 = f17986((t50444.value.native_procedure_type22137), t50636); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50637; return r14634; case NATIVE_PROCEDURE_TYPE22139: t50638 = FALSE_TYPE; t50639 = f18072((t50444.value.native_procedure_type22139), t50638); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50639; return r14634; case NATIVE_PROCEDURE_TYPE22141: t50640 = FALSE_TYPE; t50641 = f18090((t50444.value.native_procedure_type22141), t50640); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50641; return r14634; case NATIVE_PROCEDURE_TYPE22143: t50642 = FALSE_TYPE; t50643 = f18081((t50444.value.native_procedure_type22143), t50642); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50643; return r14634; case NATIVE_PROCEDURE_TYPE22145: t50644 = FALSE_TYPE; t50645 = f18063((t50444.value.native_procedure_type22145), t50644); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50645; return r14634; case NATIVE_PROCEDURE_TYPE22148: t50646 = FALSE_TYPE; t50647 = f18121((t50444.value.native_procedure_type22148), t50646); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50647; return r14634; case NATIVE_PROCEDURE_TYPE22154: t50648 = FALSE_TYPE; t50649 = f18148((t50444.value.native_procedure_type22154), t50648); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50649; return r14634; case NATIVE_PROCEDURE_TYPE22160: t50650 = FALSE_TYPE; t50651 = f18135((t50444.value.native_procedure_type22160), t50650); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50651; return r14634; case NATIVE_PROCEDURE_TYPE22162: t50652 = FALSE_TYPE; t50653 = f18133((t50444.value.native_procedure_type22162), t50652); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50653; return r14634; case NATIVE_PROCEDURE_TYPE22165: t50654 = FALSE_TYPE; t50655 = f18042((t50444.value.native_procedure_type22165), t50654); r14634.tag = STRUCTURE_TYPE24753; r14634.value.structure_type24753 = t50655; return r14634; default: /* x297735 stalin.sc:23751:825832 */ /* x297734 stalin.sc:23751:825833 */ /* x303258 QobiScheme.sc:166:5314 */ /* x303257 QobiScheme.sc:166:5321 */ t50656 = "This shouldn\'t happen"; /* x303256 QobiScheme.sc:166:5315 */ stalin_panic(t50656);} l7350: /* x132212 stalin.sc:16694:583389 */ /* x132198 stalin.sc:16694:583395 */ /* x132191 stalin.sc:16694:583402 */ /* x132197 stalin.sc:16694:583415 */ /* x132196 stalin.sc:16694:583426 */ /* x132195 stalin.sc:16694:583433 */ t50433 = *((struct w16638 *)(&a26037)); /* x132194 stalin.sc:16694:583427 */ a35904 = t50433; /* x274973 */ /* x274972 */ t50434 = a35904; /* x274971 */ if (!((t50434.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30053]"); structure_ref_error();} t50429 = t50434.value.structure_type24753->s0; /* x132193 stalin.sc:16694:583420 */ /* x132192 stalin.sc:16694:583416 */ t50430.tag = NATIVE_PROCEDURE_TYPE494; t50431 = t50429; t50432 = (struct structure_type24753 *)NULL_TYPE; t50427 = f27731(t50430, t50431, t50432); /* x268830 stalin.sc:16694:583396 */ t50428 = t50427; t50423 = f13556(t50428); /* x132205 stalin.sc:16695:583448 */ /* x132204 stalin.sc:16695:583456 */ /* x132203 stalin.sc:16695:583463 */ /* x132202 stalin.sc:16695:583470 */ t50438 = *((struct w16638 *)(&a26037)); /* x132201 stalin.sc:16695:583464 */ a35906 = t50438; /* x274981 */ /* x274980 */ t50439 = a35906; /* x274979 */ if (!((t50439.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30055]"); structure_ref_error();} t50436 = t50439.value.structure_type24753->s0; /* x132200 stalin.sc:16695:583457 */ a35905 = t50436; /* x274977 */ /* x274976 */ t50437 = a35905; /* x274975 */ if (!((t50437.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30054]"); structure_ref_error();} t50435 = t50437.value.structure_type24753->s0; /* x132199 stalin.sc:16695:583449 */ t50424 = f26181(t50435); /* x132210 stalin.sc:16696:583485 */ /* x132209 stalin.sc:16696:583491 */ /* x132208 stalin.sc:16696:583497 */ t50442 = *((struct w16638 *)(&a26037)); /* x132207 stalin.sc:16696:583492 */ a35437 = t50442; /* x273105 */ /* x273104 */ t50443 = a35437; /* x273103 */ if (!((t50443.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29586]"); structure_ref_error();} t50441 = t50443.value.structure_type24753->s1; /* x132206 stalin.sc:16696:583486 */ t50440 = p14634; t50425 = f14634(t50440, t50441); /* x132211 stalin.sc:16697:583511 */ /* x132189 stalin.sc:16694:583390 */ t50426 = FALSE_TYPE; return f13672(t50423, t50424, t50425, t50426);} /* COMPILE-SQUISHED-TYPE-IF[14630] */ struct w49 f14630(struct w12224 a26029, struct w49 a26030, struct w49 a26031, struct w155919 a26032, struct w155916 a26033) {struct structure_type24753 *a26034; /* CS2 */ struct p14630 *t50657; struct structure_type24753 *t50658; struct p14630 *t50659; struct structure_type24753 *t50660; struct w49 t50661; struct p14630 *t50662; struct p14630 *t50663; struct structure_type24753 *t50664; struct structure_type24753 *t50665; struct p14630 *t50666; struct w12224 t50667; struct w36270 t50668; struct w49 t50669; struct structure_type24753 *t50670; struct w155919 t50671; struct w12224 t50672; struct w36270 t50673; struct w49 t50674; struct structure_type24753 *t50675; struct p14630 *e14630; struct p14630 *p14631; struct p14630 *p14632; struct p14630 *p14633; e14630 = (struct p14630 *)alloca(sizeof(struct p14630)); if (e14630==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e14630->a26030 = a26030; e14630->a26031 = a26031; e14630->a26033 = a26033; /* x132239 stalin.sc:16688:583201 */ /* x132238 stalin.sc:16688:583212 */ /* x132237 stalin.sc:16688:583220 */ t50672 = a26029; /* x132236 stalin.sc:16688:583217 */ t50671 = a26032; /* x132235 stalin.sc:16688:583213 */ t50673 = *((struct w36270 *)(&t50671)); t50674 = *((struct w49 *)(&t50672)); t50675 = (struct structure_type24753 *)NULL_TYPE; t50658 = f27731(t50673, t50674, t50675); /* x132234 */ t50657 = e14630; p14631 = t50657; a26034 = t50658; /* x132233 stalin.sc:16689:583228 */ /* x132232 stalin.sc:16689:583246 */ /* x132230 stalin.sc:16690:583267 */ /* x132229 stalin.sc:16690:583310 */ t50667 = a26029; /* x132228 stalin.sc:16690:583272 */ t50666 = p14631; /* x132222 stalin.sc:16690:583268 */ t50668.tag = NATIVE_PROCEDURE_TYPE20883; t50668.value.native_procedure_type20883 = t50666; t50669 = *((struct w49 *)(&t50667)); t50670 = (struct structure_type24753 *)NULL_TYPE; t50664 = f27731(t50668, t50669, t50670); /* x132231 stalin.sc:16690:583314 */ t50665 = a26034; /* x132221 stalin.sc:16689:583247 */ t50660 = f13673(t50664, t50665); /* x132220 */ /* x132219 */ /* x132218 */ /* x132217 */ t50662 = p14631; p14632 = t50662; /* x132216 */ /* x132215 */ /* x132214 */ /* x132182 */ t50663 = p14632; p14633 = t50663; /* x132181 stalin.sc:16689:583233 */ t50659 = p14633; /* MOVE: branching squeezed to general */ if (t50660>=((struct structure_type24753 *)VALUE_OFFSET)) {t50661.tag = STRUCTURE_TYPE24753; t50661.value.structure_type24753 = t50660;} else t50661.tag = (unsigned)t50660; return f14634(t50659, t50661);} /* COMPILE-SQUEEZED-DEFAULTLESS-TYPE-SWITCH[14627] */ struct w49 f14627(struct w12224 a26022, struct w49 a26023, struct w49 a26024, struct w155862 a26025, unsigned a26026) {struct w12224 a26027; /* US1 */ struct w12224 t50676; struct w12224 t50677; struct w228345 t50678; struct w49 t50679; struct structure_type24753 *t50680; struct w49 t50681; struct w12224 t50682; struct w49 t50683; struct w49 t50684; struct structure_type24753 *t50685; struct structure_type24753 *t50686; struct structure_type24753 *t50687; unsigned t50688; struct w49 t50689; struct w49 t50690; struct w49 t50691; struct w12224 t50692; struct w36270 t50693; struct w49 t50694; struct structure_type24753 *t50695; struct w155862 t50696; struct w12224 t50697; struct w36270 t50698; struct w49 t50699; struct structure_type24753 *t50700; struct structure_type24753 *t50701; struct structure_type24753 *t50702; struct structure_type24753 *t50703; struct w49 t50704; unsigned t50705; struct w49 t50706; struct w49 t50707; struct w49 t50708; struct w12224 t50709; struct w36270 t50710; struct w49 t50711; struct structure_type24753 *t50712; struct w155862 t50713; struct w12224 t50714; struct w36270 t50715; struct w49 t50716; struct structure_type24753 *t50717; struct w12224 t50718; struct w228345 t50719; struct w49 t50720; struct structure_type24753 *t50721; struct w155862 t50722; struct w49 t50723; struct structure_type24753 *t50724; struct structure_type24753 *t50725; struct w49 t50726; struct w49 t50727; struct w12224 t50728; struct w49 t50729; struct w49 t50730; struct w155862 t50731; struct w49 t50732; struct structure_type24753 *t50733; struct structure_type24753 *t50734; struct w49 t50735; struct w211113 t50736; struct structure_type24753 *t50737; struct w49 t50738; struct w49 t50739; unsigned t50740; struct w49 t50741; struct structure_type24753 *t50742; struct w49 t50743; char *t50744; struct w49 t50745; struct w49 t50746; struct w155862 t50747; struct w49 t50748; struct structure_type24753 *t50749; struct structure_type24753 *t50750; struct w49 t50751; struct w211113 t50752; struct w155862 t50753; struct w49 t50754; struct structure_type24753 *t50755; struct structure_type24753 *t50756; struct w49 t50757; struct w12224 t50758; struct w227671 t50759; struct w49 t50760; /* x132178 stalin.sc:16670:582567 */ /* x132177 stalin.sc:16670:582578 */ /* x132175 stalin.sc:16670:582593 */ /* x132176 stalin.sc:16670:582605 */ t50758 = a26022; /* x132174 stalin.sc:16670:582579 */ t50759.tag = NATIVE_PROCEDURE_TYPE7232; t50760 = *((struct w49 *)(&t50758)); t50676 = f1226(t50759, t50760); /* x132173 */ a26027 = t50676; /* x132172 stalin.sc:16671:582613 */ /* x132096 stalin.sc:16671:582617 */ /* x132095 stalin.sc:16671:582621 */ /* x132094 stalin.sc:16671:582638 */ t50677 = a26022; /* x132093 stalin.sc:16671:582627 */ /* x132092 stalin.sc:16671:582622 */ t50678.tag = NATIVE_PROCEDURE_TYPE7431; t50679 = *((struct w49 *)(&t50677)); t50680 = (struct structure_type24753 *)NULL_TYPE; if (!((f1042(t50678, t50679, t50680).tag)==FALSE_TYPE)) goto l7351; /* x132089 */ /* x132087 stalin.sc:16671:582648 */ /* x132086 stalin.sc:16671:582665 */ t50684 = a26023; /* x132085 stalin.sc:16671:582649 */ t50681 = f13854(t50684); /* x132088 stalin.sc:16671:582668 */ t50682 = a26022; /* x132084 stalin.sc:16671:582643 */ t50683 = *((struct w49 *)(&t50682)); if ((f26351(t50681, t50683).tag)==FALSE_TYPE) goto l7352; l7351: /* x132156 stalin.sc:16672:582679 */ /* x132101 stalin.sc:16672:582689 */ /* x132099 stalin.sc:16672:582711 */ t50707 = a26024; /* x132100 stalin.sc:16672:582714 */ t50708 = a26023; /* x132098 stalin.sc:16672:582690 */ t50701 = f14430(t50707, t50708); /* x132105 stalin.sc:16673:582719 */ /* x132104 stalin.sc:16673:582735 */ t50709 = a26027; /* x132103 stalin.sc:16673:582724 */ /* x132102 stalin.sc:16673:582720 */ t50710.tag = NATIVE_PROCEDURE_TYPE6764; t50711 = *((struct w49 *)(&t50709)); t50712 = (struct structure_type24753 *)NULL_TYPE; t50702 = f27731(t50710, t50711, t50712); /* x132109 stalin.sc:16674:582742 */ /* x132108 stalin.sc:16674:582750 */ t50714 = a26027; /* x132107 stalin.sc:16674:582747 */ t50713 = a26025; /* x132106 stalin.sc:16674:582743 */ t50715 = *((struct w36270 *)(&t50713)); t50716 = *((struct w49 *)(&t50714)); t50717 = (struct structure_type24753 *)NULL_TYPE; t50703 = f27731(t50715, t50716, t50717); /* x132154 stalin.sc:16675:582757 */ /* x132113 stalin.sc:16675:582761 */ /* x132112 stalin.sc:16675:582778 */ t50718 = a26022; /* x132111 stalin.sc:16675:582767 */ /* x132110 stalin.sc:16675:582762 */ t50719.tag = NATIVE_PROCEDURE_TYPE7431; t50720 = *((struct w49 *)(&t50718)); t50721 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t50719, t50720, t50721).tag)==FALSE_TYPE) goto l7355; /* x132148 stalin.sc:16676:582788 */ /* x132119 stalin.sc:16676:582792 */ /* x132117 stalin.sc:16676:582798 */ /* x132116 stalin.sc:16676:582815 */ t50730 = a26023; /* x132115 stalin.sc:16676:582799 */ t50727 = f13854(t50730); /* x132118 stalin.sc:16676:582818 */ t50728 = a26022; /* x132114 stalin.sc:16676:582793 */ t50729 = *((struct w49 *)(&t50728)); if ((f26351(t50727, t50729).tag)==FALSE_TYPE) goto l7358; /* x132141 stalin.sc:16677:582825 */ /* x132128 stalin.sc:16677:582831 */ /* x132122 stalin.sc:16677:582836 */ t50741 = a26024; /* x132127 stalin.sc:16677:582839 */ /* x132125 stalin.sc:16677:582856 */ /* x132124 stalin.sc:16677:582857 */ /* x276351 stalin.sc:16169:562645 */ t50744 = "CHAR_OFFSET"; /* x132126 stalin.sc:16677:582872 */ t50745 = a26023; /* x132123 stalin.sc:16677:582840 */ t50746.tag = STRING_TYPE; t50746.value.string_type = t50744; t50742 = f14422(t50746, t50745); /* x132121 stalin.sc:16677:582832 */ t50743.tag = STRUCTURE_TYPE24753; t50743.value.structure_type24753 = t50742; t50737 = f13601(t50741, t50743); /* x132134 stalin.sc:16678:582885 */ /* x132133 stalin.sc:16678:582889 */ /* x132131 stalin.sc:16678:582906 */ /* x132132 stalin.sc:16678:582917 */ t50751 = a26023; /* x132130 stalin.sc:16678:582890 */ t50752.tag = NATIVE_PROCEDURE_TYPE7431; t50748 = f8157(t50752, t50751); /* x132129 stalin.sc:16678:582886 */ t50747 = a26025; switch (t50747.tag) {case NATIVE_PROCEDURE_TYPE20286: t50738 = f15486((t50747.value.native_procedure_type20286), t50748); break; case NATIVE_PROCEDURE_TYPE20496: t50738 = f15475((t50747.value.native_procedure_type20496), t50748); break; case NATIVE_PROCEDURE_TYPE20552: t50738 = f15458((t50747.value.native_procedure_type20552), t50748); break; case NATIVE_PROCEDURE_TYPE20758: d16096 = t50747.value.native_procedure_type20758; b27143 = t50748; t50738 = f16096(); break; case NATIVE_PROCEDURE_TYPE20783: d15771 = t50747.value.native_procedure_type20783; b26894 = t50748; t50738 = f15771(); break; case NATIVE_PROCEDURE_TYPE20851: t50738 = f14712(t50747.value.native_procedure_type20851); break; case NATIVE_PROCEDURE_TYPE20914: t50738 = f16432((t50747.value.native_procedure_type20914), t50748); break; case NATIVE_PROCEDURE_TYPE20916: t50738 = f16416((t50747.value.native_procedure_type20916), t50748); break; case NATIVE_PROCEDURE_TYPE20919: t50738 = f16631((t50747.value.native_procedure_type20919), t50748); break; case NATIVE_PROCEDURE_TYPE20928: t50738 = f16597((t50747.value.native_procedure_type20928), t50748); break; case NATIVE_PROCEDURE_TYPE21037: t50738 = f16700((t50747.value.native_procedure_type21037), t50748); break; case NATIVE_PROCEDURE_TYPE21043: t50738 = f16678((t50747.value.native_procedure_type21043), t50748); break; case NATIVE_PROCEDURE_TYPE21049: t50738 = f16736((t50747.value.native_procedure_type21049), t50748); break; case NATIVE_PROCEDURE_TYPE21060: d15570 = t50747.value.native_procedure_type21060; b26729 = t50748; t50738 = f15570(); break; case NATIVE_PROCEDURE_TYPE21066: t50738 = f16821((t50747.value.native_procedure_type21066), t50748); break; case NATIVE_PROCEDURE_TYPE21083: t50738 = f16720((t50747.value.native_procedure_type21083), t50748); break; case NATIVE_PROCEDURE_TYPE21088: t50738 = f16646((t50747.value.native_procedure_type21088), t50748); break; case NATIVE_PROCEDURE_TYPE21091: t50738 = f16853((t50747.value.native_procedure_type21091), t50748); break; case NATIVE_PROCEDURE_TYPE21109: d15579 = t50747.value.native_procedure_type21109; b26749 = t50748; t50738 = f15579(); break; case NATIVE_PROCEDURE_TYPE21111: t50738 = f16908((t50747.value.native_procedure_type21111), t50748); break; case NATIVE_PROCEDURE_TYPE21118: t50738 = f16880((t50747.value.native_procedure_type21118), t50748); break; case NATIVE_PROCEDURE_TYPE21138: t50738 = f16981((t50747.value.native_procedure_type21138), t50748); break; case NATIVE_PROCEDURE_TYPE21148: t50738 = f17057((t50747.value.native_procedure_type21148), t50748); break; case NATIVE_PROCEDURE_TYPE21153: d17117 = t50747.value.native_procedure_type21153; b29067 = t50748; t50738 = f17117(); break; case NATIVE_PROCEDURE_TYPE21155: t50738 = f17118((t50747.value.native_procedure_type21155), t50748); break; case NATIVE_PROCEDURE_TYPE21171: d17084 = t50747.value.native_procedure_type21171; b29016 = t50748; t50738 = f17084(); break; case NATIVE_PROCEDURE_TYPE21173: t50738 = f17085((t50747.value.native_procedure_type21173), t50748); break; case NATIVE_PROCEDURE_TYPE21202: t50738 = f17018((t50747.value.native_procedure_type21202), t50748); break; case NATIVE_PROCEDURE_TYPE21226: t50738 = f16940((t50747.value.native_procedure_type21226), t50748); break; case NATIVE_PROCEDURE_TYPE21229: t50738 = f16839((t50747.value.native_procedure_type21229), t50748); break; case NATIVE_PROCEDURE_TYPE21235: d17183 = t50747.value.native_procedure_type21235; b29169 = t50748; t50738 = f17183(); break; case NATIVE_PROCEDURE_TYPE21237: t50738 = f17184((t50747.value.native_procedure_type21237), t50748); break; case NATIVE_PROCEDURE_TYPE21257: t50738 = f17221((t50747.value.native_procedure_type21257), t50748); break; case NATIVE_PROCEDURE_TYPE21260: t50738 = f17208((t50747.value.native_procedure_type21260), t50748); break; case NATIVE_PROCEDURE_TYPE21266: t50738 = f17253((t50747.value.native_procedure_type21266), t50748); break; case NATIVE_PROCEDURE_TYPE21269: t50738 = f17290((t50747.value.native_procedure_type21269), t50748); break; case NATIVE_PROCEDURE_TYPE21275: t50738 = f17328((t50747.value.native_procedure_type21275), t50748); break; case NATIVE_PROCEDURE_TYPE21281: t50738 = f17309((t50747.value.native_procedure_type21281), t50748); break; case NATIVE_PROCEDURE_TYPE21287: t50738 = f17271((t50747.value.native_procedure_type21287), t50748); break; case NATIVE_PROCEDURE_TYPE21297: t50738 = f17237((t50747.value.native_procedure_type21297), t50748); break; case NATIVE_PROCEDURE_TYPE21300: t50738 = f17353((t50747.value.native_procedure_type21300), t50748); break; case NATIVE_PROCEDURE_TYPE21305: t50738 = f17377((t50747.value.native_procedure_type21305), t50748); break; case NATIVE_PROCEDURE_TYPE21310: t50738 = f17365((t50747.value.native_procedure_type21310), t50748); break; case NATIVE_PROCEDURE_TYPE21315: t50738 = f17401((t50747.value.native_procedure_type21315), t50748); break; case NATIVE_PROCEDURE_TYPE21320: d17431 = t50747.value.native_procedure_type21320; b29911 = t50748; t50738 = f17431(); break; case NATIVE_PROCEDURE_TYPE21325: t50738 = f17433((t50747.value.native_procedure_type21325), t50748); break; case NATIVE_PROCEDURE_TYPE21330: t50738 = f17426((t50747.value.native_procedure_type21330), t50748); break; case NATIVE_PROCEDURE_TYPE21335: t50738 = f17413((t50747.value.native_procedure_type21335), t50748); break; case NATIVE_PROCEDURE_TYPE21340: d17465 = t50747.value.native_procedure_type21340; b30003 = t50748; t50738 = f17465(); break; case NATIVE_PROCEDURE_TYPE21342: t50738 = f17466((t50747.value.native_procedure_type21342), t50748); break; case NATIVE_PROCEDURE_TYPE21349: t50738 = f17448((t50747.value.native_procedure_type21349), t50748); break; case NATIVE_PROCEDURE_TYPE21354: t50738 = f17389((t50747.value.native_procedure_type21354), t50748); break; case NATIVE_PROCEDURE_TYPE21359: t50738 = f17341((t50747.value.native_procedure_type21359), t50748); break; case NATIVE_PROCEDURE_TYPE21364: d17150 = t50747.value.native_procedure_type21364; b29118 = t50748; t50738 = f17150(); break; case NATIVE_PROCEDURE_TYPE21366: t50738 = f17151((t50747.value.native_procedure_type21366), t50748); break; case NATIVE_PROCEDURE_TYPE21382: t50738 = f17499((t50747.value.native_procedure_type21382), t50748); break; case NATIVE_PROCEDURE_TYPE21388: t50738 = f17524((t50747.value.native_procedure_type21388), t50748); break; case NATIVE_PROCEDURE_TYPE21394: d17598 = t50747.value.native_procedure_type21394; b30396 = t50748; t50738 = f17598(); break; case NATIVE_PROCEDURE_TYPE21415: t50749 = f19627(t50748); t50738.tag = STRUCTURE_TYPE24753; t50738.value.structure_type24753 = t50749; break; case NATIVE_PROCEDURE_TYPE21897: t50738 = f15811((t50747.value.native_procedure_type21897), t50748); break; case NATIVE_PROCEDURE_TYPE21904: /* x298283 stalin.sc:19531:682748 */ /* x298282 stalin.sc:19531:682749 */ /* x303564 stalin.sc:14693:514793 */ t50738.tag = STRING_TYPE; t50738.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21945: d17625 = t50747.value.native_procedure_type21945; b30489 = t50748; t50738 = f17625(); break; case NATIVE_PROCEDURE_TYPE21947: t50738 = f17626((t50747.value.native_procedure_type21947), t50748); break; case NATIVE_PROCEDURE_TYPE21949: t50738 = f17612((t50747.value.native_procedure_type21949), t50748); break; case NATIVE_PROCEDURE_TYPE21953: d17572 = t50747.value.native_procedure_type21953; b30333 = t50748; t50738 = f17572(); break; case NATIVE_PROCEDURE_TYPE21957: t50738 = f17573((t50747.value.native_procedure_type21957), t50748); break; case NATIVE_PROCEDURE_TYPE21962: d17566 = t50747.value.native_procedure_type21962; t50738 = f17566(); break; case NATIVE_PROCEDURE_TYPE21964: t50738 = f17567(t50747.value.native_procedure_type21964); break; case NATIVE_PROCEDURE_TYPE21967: d17561 = t50747.value.native_procedure_type21967; t50738 = f17561(); break; case NATIVE_PROCEDURE_TYPE21969: t50738 = f17562(t50747.value.native_procedure_type21969); break; case NATIVE_PROCEDURE_TYPE21972: d17556 = t50747.value.native_procedure_type21972; t50738 = f17556(); break; case NATIVE_PROCEDURE_TYPE21974: /* x297849 stalin.sc:23400:816144 */ /* x297848 stalin.sc:23400:816145 */ /* x303340 stalin.sc:14693:514793 */ t50738.tag = STRING_TYPE; t50738.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21976: t50738 = f17533((t50747.value.native_procedure_type21976), t50748); break; case NATIVE_PROCEDURE_TYPE21979: d17706 = t50747.value.native_procedure_type21979; b30702 = t50748; t50738 = f17706(); break; case NATIVE_PROCEDURE_TYPE21983: d17708 = t50747.value.native_procedure_type21983; b30704 = t50748; t50738 = f17708(); break; case NATIVE_PROCEDURE_TYPE21985: t50738 = f17709((t50747.value.native_procedure_type21985), t50748); break; case NATIVE_PROCEDURE_TYPE21998: t50738 = f17688((t50747.value.native_procedure_type21998), t50748); break; case NATIVE_PROCEDURE_TYPE22001: t50738 = f17681(t50747.value.native_procedure_type22001); break; case NATIVE_PROCEDURE_TYPE22004: t50738 = f17678(t50747.value.native_procedure_type22004); break; case NATIVE_PROCEDURE_TYPE22007: /* x297786 stalin.sc:23690:824240 */ /* x297785 stalin.sc:23690:824241 */ /* x303306 stalin.sc:14693:514793 */ t50738.tag = STRING_TYPE; t50738.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22009: t50738 = f17760((t50747.value.native_procedure_type22009), t50748); break; case NATIVE_PROCEDURE_TYPE22011: d17804 = t50747.value.native_procedure_type22011; b30911 = t50748; t50738 = f17804(); break; case NATIVE_PROCEDURE_TYPE22013: t50738 = f17805((t50747.value.native_procedure_type22013), t50748); break; case NATIVE_PROCEDURE_TYPE22015: d17784 = t50747.value.native_procedure_type22015; b30860 = t50748; t50738 = f17784(); break; case NATIVE_PROCEDURE_TYPE22017: t50738 = f17785((t50747.value.native_procedure_type22017), t50748); break; case NATIVE_PROCEDURE_TYPE22038: d17840 = t50747.value.native_procedure_type22038; b31010 = t50748; t50738 = f17840(); break; case NATIVE_PROCEDURE_TYPE22065: d15900 = t50747.value.native_procedure_type22065; b27021 = t50748; t50738 = f15900(); break; case NATIVE_PROCEDURE_TYPE22073: d15885 = t50747.value.native_procedure_type22073; b27015 = t50748; t50738 = f15885(); break; case NATIVE_PROCEDURE_TYPE22082: d17890 = t50747.value.native_procedure_type22082; b31082 = t50748; t50738 = f17890(); break; case NATIVE_PROCEDURE_TYPE22092: t50738 = f17878((t50747.value.native_procedure_type22092), t50748); break; case NATIVE_PROCEDURE_TYPE22101: d17636 = t50747.value.native_procedure_type22101; b30537 = t50748; t50738 = f17636(); break; case NATIVE_PROCEDURE_TYPE22103: t50738 = f17637((t50747.value.native_procedure_type22103), t50748); break; case NATIVE_PROCEDURE_TYPE22105: t50738 = f17638((t50747.value.native_procedure_type22105), t50748); break; case NATIVE_PROCEDURE_TYPE22107: t50738 = f17486((t50747.value.native_procedure_type22107), t50748); break; case NATIVE_PROCEDURE_TYPE22113: t50738 = f17932((t50747.value.native_procedure_type22113), t50748); break; case NATIVE_PROCEDURE_TYPE22118: t50738 = f17956((t50747.value.native_procedure_type22118), t50748); break; case NATIVE_PROCEDURE_TYPE22120: t50738 = f17944((t50747.value.native_procedure_type22120), t50748); break; case NATIVE_PROCEDURE_TYPE22125: t50738 = f17975((t50747.value.native_procedure_type22125), t50748); break; case NATIVE_PROCEDURE_TYPE22128: t50738 = f17965((t50747.value.native_procedure_type22128), t50748); break; case NATIVE_PROCEDURE_TYPE22131: d18030 = t50747.value.native_procedure_type22131; b31667 = t50748; t50738 = f18030(); break; case NATIVE_PROCEDURE_TYPE22133: t50738 = f18031((t50747.value.native_procedure_type22133), t50748); break; case NATIVE_PROCEDURE_TYPE22136: t50738 = f18007((t50747.value.native_procedure_type22136), t50748); break; case NATIVE_PROCEDURE_TYPE22138: t50738 = f17985((t50747.value.native_procedure_type22138), t50748); break; case NATIVE_PROCEDURE_TYPE22140: t50738 = f18071((t50747.value.native_procedure_type22140), t50748); break; case NATIVE_PROCEDURE_TYPE22142: t50738 = f18089((t50747.value.native_procedure_type22142), t50748); break; case NATIVE_PROCEDURE_TYPE22144: t50738 = f18080((t50747.value.native_procedure_type22144), t50748); break; case NATIVE_PROCEDURE_TYPE22146: t50738 = f18062((t50747.value.native_procedure_type22146), t50748); break; case NATIVE_PROCEDURE_TYPE22149: t50738 = f18120((t50747.value.native_procedure_type22149), t50748); break; case NATIVE_PROCEDURE_TYPE22155: d18147 = t50747.value.native_procedure_type22155; b32201 = t50748; t50738 = f18147(); break; case NATIVE_PROCEDURE_TYPE22161: d18134 = t50747.value.native_procedure_type22161; b32153 = t50748; t50738 = f18134(); break; case NATIVE_PROCEDURE_TYPE22163: d18132 = t50747.value.native_procedure_type22163; b32151 = t50748; t50738 = f18132(); break; case NATIVE_PROCEDURE_TYPE22166: t50750 = f18041((t50747.value.native_procedure_type22166), t50748); t50738.tag = STRUCTURE_TYPE24753; t50738.value.structure_type24753 = t50750; break; default: t50738 = f17689(t50747.value.native_procedure_type23298);} /* x132139 stalin.sc:16679:582930 */ /* x132138 stalin.sc:16679:582934 */ /* x132137 stalin.sc:16679:582951 */ t50757 = a26023; /* x132136 stalin.sc:16679:582935 */ t50754 = f13854(t50757); /* x132135 stalin.sc:16679:582931 */ t50753 = a26025; switch (t50753.tag) {case NATIVE_PROCEDURE_TYPE20286: t50739 = f15486((t50753.value.native_procedure_type20286), t50754); break; case NATIVE_PROCEDURE_TYPE20496: t50739 = f15475((t50753.value.native_procedure_type20496), t50754); break; case NATIVE_PROCEDURE_TYPE20552: t50739 = f15458((t50753.value.native_procedure_type20552), t50754); break; case NATIVE_PROCEDURE_TYPE20758: d16096 = t50753.value.native_procedure_type20758; b27143 = t50754; t50739 = f16096(); break; case NATIVE_PROCEDURE_TYPE20783: d15771 = t50753.value.native_procedure_type20783; b26894 = t50754; t50739 = f15771(); break; case NATIVE_PROCEDURE_TYPE20851: t50739 = f14712(t50753.value.native_procedure_type20851); break; case NATIVE_PROCEDURE_TYPE20914: t50739 = f16432((t50753.value.native_procedure_type20914), t50754); break; case NATIVE_PROCEDURE_TYPE20916: t50739 = f16416((t50753.value.native_procedure_type20916), t50754); break; case NATIVE_PROCEDURE_TYPE20919: t50739 = f16631((t50753.value.native_procedure_type20919), t50754); break; case NATIVE_PROCEDURE_TYPE20928: t50739 = f16597((t50753.value.native_procedure_type20928), t50754); break; case NATIVE_PROCEDURE_TYPE21037: t50739 = f16700((t50753.value.native_procedure_type21037), t50754); break; case NATIVE_PROCEDURE_TYPE21043: t50739 = f16678((t50753.value.native_procedure_type21043), t50754); break; case NATIVE_PROCEDURE_TYPE21049: t50739 = f16736((t50753.value.native_procedure_type21049), t50754); break; case NATIVE_PROCEDURE_TYPE21060: d15570 = t50753.value.native_procedure_type21060; b26729 = t50754; t50739 = f15570(); break; case NATIVE_PROCEDURE_TYPE21066: t50739 = f16821((t50753.value.native_procedure_type21066), t50754); break; case NATIVE_PROCEDURE_TYPE21083: t50739 = f16720((t50753.value.native_procedure_type21083), t50754); break; case NATIVE_PROCEDURE_TYPE21088: t50739 = f16646((t50753.value.native_procedure_type21088), t50754); break; case NATIVE_PROCEDURE_TYPE21091: t50739 = f16853((t50753.value.native_procedure_type21091), t50754); break; case NATIVE_PROCEDURE_TYPE21109: d15579 = t50753.value.native_procedure_type21109; b26749 = t50754; t50739 = f15579(); break; case NATIVE_PROCEDURE_TYPE21111: t50739 = f16908((t50753.value.native_procedure_type21111), t50754); break; case NATIVE_PROCEDURE_TYPE21118: t50739 = f16880((t50753.value.native_procedure_type21118), t50754); break; case NATIVE_PROCEDURE_TYPE21138: t50739 = f16981((t50753.value.native_procedure_type21138), t50754); break; case NATIVE_PROCEDURE_TYPE21148: t50739 = f17057((t50753.value.native_procedure_type21148), t50754); break; case NATIVE_PROCEDURE_TYPE21153: d17117 = t50753.value.native_procedure_type21153; b29067 = t50754; t50739 = f17117(); break; case NATIVE_PROCEDURE_TYPE21155: t50739 = f17118((t50753.value.native_procedure_type21155), t50754); break; case NATIVE_PROCEDURE_TYPE21171: d17084 = t50753.value.native_procedure_type21171; b29016 = t50754; t50739 = f17084(); break; case NATIVE_PROCEDURE_TYPE21173: t50739 = f17085((t50753.value.native_procedure_type21173), t50754); break; case NATIVE_PROCEDURE_TYPE21202: t50739 = f17018((t50753.value.native_procedure_type21202), t50754); break; case NATIVE_PROCEDURE_TYPE21226: t50739 = f16940((t50753.value.native_procedure_type21226), t50754); break; case NATIVE_PROCEDURE_TYPE21229: t50739 = f16839((t50753.value.native_procedure_type21229), t50754); break; case NATIVE_PROCEDURE_TYPE21235: d17183 = t50753.value.native_procedure_type21235; b29169 = t50754; t50739 = f17183(); break; case NATIVE_PROCEDURE_TYPE21237: t50739 = f17184((t50753.value.native_procedure_type21237), t50754); break; case NATIVE_PROCEDURE_TYPE21257: t50739 = f17221((t50753.value.native_procedure_type21257), t50754); break; case NATIVE_PROCEDURE_TYPE21260: t50739 = f17208((t50753.value.native_procedure_type21260), t50754); break; case NATIVE_PROCEDURE_TYPE21266: t50739 = f17253((t50753.value.native_procedure_type21266), t50754); break; case NATIVE_PROCEDURE_TYPE21269: t50739 = f17290((t50753.value.native_procedure_type21269), t50754); break; case NATIVE_PROCEDURE_TYPE21275: t50739 = f17328((t50753.value.native_procedure_type21275), t50754); break; case NATIVE_PROCEDURE_TYPE21281: t50739 = f17309((t50753.value.native_procedure_type21281), t50754); break; case NATIVE_PROCEDURE_TYPE21287: t50739 = f17271((t50753.value.native_procedure_type21287), t50754); break; case NATIVE_PROCEDURE_TYPE21297: t50739 = f17237((t50753.value.native_procedure_type21297), t50754); break; case NATIVE_PROCEDURE_TYPE21300: t50739 = f17353((t50753.value.native_procedure_type21300), t50754); break; case NATIVE_PROCEDURE_TYPE21305: t50739 = f17377((t50753.value.native_procedure_type21305), t50754); break; case NATIVE_PROCEDURE_TYPE21310: t50739 = f17365((t50753.value.native_procedure_type21310), t50754); break; case NATIVE_PROCEDURE_TYPE21315: t50739 = f17401((t50753.value.native_procedure_type21315), t50754); break; case NATIVE_PROCEDURE_TYPE21320: d17431 = t50753.value.native_procedure_type21320; b29911 = t50754; t50739 = f17431(); break; case NATIVE_PROCEDURE_TYPE21325: t50739 = f17433((t50753.value.native_procedure_type21325), t50754); break; case NATIVE_PROCEDURE_TYPE21330: t50739 = f17426((t50753.value.native_procedure_type21330), t50754); break; case NATIVE_PROCEDURE_TYPE21335: t50739 = f17413((t50753.value.native_procedure_type21335), t50754); break; case NATIVE_PROCEDURE_TYPE21340: d17465 = t50753.value.native_procedure_type21340; b30003 = t50754; t50739 = f17465(); break; case NATIVE_PROCEDURE_TYPE21342: t50739 = f17466((t50753.value.native_procedure_type21342), t50754); break; case NATIVE_PROCEDURE_TYPE21349: t50739 = f17448((t50753.value.native_procedure_type21349), t50754); break; case NATIVE_PROCEDURE_TYPE21354: t50739 = f17389((t50753.value.native_procedure_type21354), t50754); break; case NATIVE_PROCEDURE_TYPE21359: t50739 = f17341((t50753.value.native_procedure_type21359), t50754); break; case NATIVE_PROCEDURE_TYPE21364: d17150 = t50753.value.native_procedure_type21364; b29118 = t50754; t50739 = f17150(); break; case NATIVE_PROCEDURE_TYPE21366: t50739 = f17151((t50753.value.native_procedure_type21366), t50754); break; case NATIVE_PROCEDURE_TYPE21382: t50739 = f17499((t50753.value.native_procedure_type21382), t50754); break; case NATIVE_PROCEDURE_TYPE21388: t50739 = f17524((t50753.value.native_procedure_type21388), t50754); break; case NATIVE_PROCEDURE_TYPE21394: d17598 = t50753.value.native_procedure_type21394; b30396 = t50754; t50739 = f17598(); break; case NATIVE_PROCEDURE_TYPE21415: t50755 = f19627(t50754); t50739.tag = STRUCTURE_TYPE24753; t50739.value.structure_type24753 = t50755; break; case NATIVE_PROCEDURE_TYPE21897: t50739 = f15811((t50753.value.native_procedure_type21897), t50754); break; case NATIVE_PROCEDURE_TYPE21904: /* x298286 stalin.sc:19531:682748 */ /* x298285 stalin.sc:19531:682749 */ /* x303566 stalin.sc:14693:514793 */ t50739.tag = STRING_TYPE; t50739.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21945: d17625 = t50753.value.native_procedure_type21945; b30489 = t50754; t50739 = f17625(); break; case NATIVE_PROCEDURE_TYPE21947: t50739 = f17626((t50753.value.native_procedure_type21947), t50754); break; case NATIVE_PROCEDURE_TYPE21949: t50739 = f17612((t50753.value.native_procedure_type21949), t50754); break; case NATIVE_PROCEDURE_TYPE21953: d17572 = t50753.value.native_procedure_type21953; b30333 = t50754; t50739 = f17572(); break; case NATIVE_PROCEDURE_TYPE21957: t50739 = f17573((t50753.value.native_procedure_type21957), t50754); break; case NATIVE_PROCEDURE_TYPE21962: d17566 = t50753.value.native_procedure_type21962; t50739 = f17566(); break; case NATIVE_PROCEDURE_TYPE21964: t50739 = f17567(t50753.value.native_procedure_type21964); break; case NATIVE_PROCEDURE_TYPE21967: d17561 = t50753.value.native_procedure_type21967; t50739 = f17561(); break; case NATIVE_PROCEDURE_TYPE21969: t50739 = f17562(t50753.value.native_procedure_type21969); break; case NATIVE_PROCEDURE_TYPE21972: d17556 = t50753.value.native_procedure_type21972; t50739 = f17556(); break; case NATIVE_PROCEDURE_TYPE21974: /* x297852 stalin.sc:23400:816144 */ /* x297851 stalin.sc:23400:816145 */ /* x303342 stalin.sc:14693:514793 */ t50739.tag = STRING_TYPE; t50739.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21976: t50739 = f17533((t50753.value.native_procedure_type21976), t50754); break; case NATIVE_PROCEDURE_TYPE21979: d17706 = t50753.value.native_procedure_type21979; b30702 = t50754; t50739 = f17706(); break; case NATIVE_PROCEDURE_TYPE21983: d17708 = t50753.value.native_procedure_type21983; b30704 = t50754; t50739 = f17708(); break; case NATIVE_PROCEDURE_TYPE21985: t50739 = f17709((t50753.value.native_procedure_type21985), t50754); break; case NATIVE_PROCEDURE_TYPE21998: t50739 = f17688((t50753.value.native_procedure_type21998), t50754); break; case NATIVE_PROCEDURE_TYPE22001: t50739 = f17681(t50753.value.native_procedure_type22001); break; case NATIVE_PROCEDURE_TYPE22004: t50739 = f17678(t50753.value.native_procedure_type22004); break; case NATIVE_PROCEDURE_TYPE22007: /* x297789 stalin.sc:23690:824240 */ /* x297788 stalin.sc:23690:824241 */ /* x303308 stalin.sc:14693:514793 */ t50739.tag = STRING_TYPE; t50739.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22009: t50739 = f17760((t50753.value.native_procedure_type22009), t50754); break; case NATIVE_PROCEDURE_TYPE22011: d17804 = t50753.value.native_procedure_type22011; b30911 = t50754; t50739 = f17804(); break; case NATIVE_PROCEDURE_TYPE22013: t50739 = f17805((t50753.value.native_procedure_type22013), t50754); break; case NATIVE_PROCEDURE_TYPE22015: d17784 = t50753.value.native_procedure_type22015; b30860 = t50754; t50739 = f17784(); break; case NATIVE_PROCEDURE_TYPE22017: t50739 = f17785((t50753.value.native_procedure_type22017), t50754); break; case NATIVE_PROCEDURE_TYPE22038: d17840 = t50753.value.native_procedure_type22038; b31010 = t50754; t50739 = f17840(); break; case NATIVE_PROCEDURE_TYPE22065: d15900 = t50753.value.native_procedure_type22065; b27021 = t50754; t50739 = f15900(); break; case NATIVE_PROCEDURE_TYPE22073: d15885 = t50753.value.native_procedure_type22073; b27015 = t50754; t50739 = f15885(); break; case NATIVE_PROCEDURE_TYPE22082: d17890 = t50753.value.native_procedure_type22082; b31082 = t50754; t50739 = f17890(); break; case NATIVE_PROCEDURE_TYPE22092: t50739 = f17878((t50753.value.native_procedure_type22092), t50754); break; case NATIVE_PROCEDURE_TYPE22101: d17636 = t50753.value.native_procedure_type22101; b30537 = t50754; t50739 = f17636(); break; case NATIVE_PROCEDURE_TYPE22103: t50739 = f17637((t50753.value.native_procedure_type22103), t50754); break; case NATIVE_PROCEDURE_TYPE22105: t50739 = f17638((t50753.value.native_procedure_type22105), t50754); break; case NATIVE_PROCEDURE_TYPE22107: t50739 = f17486((t50753.value.native_procedure_type22107), t50754); break; case NATIVE_PROCEDURE_TYPE22113: t50739 = f17932((t50753.value.native_procedure_type22113), t50754); break; case NATIVE_PROCEDURE_TYPE22118: t50739 = f17956((t50753.value.native_procedure_type22118), t50754); break; case NATIVE_PROCEDURE_TYPE22120: t50739 = f17944((t50753.value.native_procedure_type22120), t50754); break; case NATIVE_PROCEDURE_TYPE22125: t50739 = f17975((t50753.value.native_procedure_type22125), t50754); break; case NATIVE_PROCEDURE_TYPE22128: t50739 = f17965((t50753.value.native_procedure_type22128), t50754); break; case NATIVE_PROCEDURE_TYPE22131: d18030 = t50753.value.native_procedure_type22131; b31667 = t50754; t50739 = f18030(); break; case NATIVE_PROCEDURE_TYPE22133: t50739 = f18031((t50753.value.native_procedure_type22133), t50754); break; case NATIVE_PROCEDURE_TYPE22136: t50739 = f18007((t50753.value.native_procedure_type22136), t50754); break; case NATIVE_PROCEDURE_TYPE22138: t50739 = f17985((t50753.value.native_procedure_type22138), t50754); break; case NATIVE_PROCEDURE_TYPE22140: t50739 = f18071((t50753.value.native_procedure_type22140), t50754); break; case NATIVE_PROCEDURE_TYPE22142: t50739 = f18089((t50753.value.native_procedure_type22142), t50754); break; case NATIVE_PROCEDURE_TYPE22144: t50739 = f18080((t50753.value.native_procedure_type22144), t50754); break; case NATIVE_PROCEDURE_TYPE22146: t50739 = f18062((t50753.value.native_procedure_type22146), t50754); break; case NATIVE_PROCEDURE_TYPE22149: t50739 = f18120((t50753.value.native_procedure_type22149), t50754); break; case NATIVE_PROCEDURE_TYPE22155: d18147 = t50753.value.native_procedure_type22155; b32201 = t50754; t50739 = f18147(); break; case NATIVE_PROCEDURE_TYPE22161: d18134 = t50753.value.native_procedure_type22161; b32153 = t50754; t50739 = f18134(); break; case NATIVE_PROCEDURE_TYPE22163: d18132 = t50753.value.native_procedure_type22163; b32151 = t50754; t50739 = f18132(); break; case NATIVE_PROCEDURE_TYPE22166: t50756 = f18041((t50753.value.native_procedure_type22166), t50754); t50739.tag = STRUCTURE_TYPE24753; t50739.value.structure_type24753 = t50756; break; default: t50739 = f17689(t50753.value.native_procedure_type23298);} /* x132140 stalin.sc:16680:582964 */ /* x132120 stalin.sc:16677:582826 */ t50740 = FALSE_TYPE; t50704 = f13672(t50737, t50738, t50739, t50740); goto l7359; l7358: /* x132147 stalin.sc:16681:582971 */ /* x132146 stalin.sc:16681:582975 */ /* x132144 stalin.sc:16681:582992 */ /* x132145 stalin.sc:16681:583003 */ t50735 = a26023; /* x132143 stalin.sc:16681:582976 */ t50736.tag = NATIVE_PROCEDURE_TYPE7431; t50732 = f8157(t50736, t50735); /* x132142 stalin.sc:16681:582972 */ t50731 = a26025; switch (t50731.tag) {case NATIVE_PROCEDURE_TYPE20286: t50704 = f15486((t50731.value.native_procedure_type20286), t50732); break; case NATIVE_PROCEDURE_TYPE20496: t50704 = f15475((t50731.value.native_procedure_type20496), t50732); break; case NATIVE_PROCEDURE_TYPE20552: t50704 = f15458((t50731.value.native_procedure_type20552), t50732); break; case NATIVE_PROCEDURE_TYPE20758: d16096 = t50731.value.native_procedure_type20758; b27143 = t50732; t50704 = f16096(); break; case NATIVE_PROCEDURE_TYPE20783: d15771 = t50731.value.native_procedure_type20783; b26894 = t50732; t50704 = f15771(); break; case NATIVE_PROCEDURE_TYPE20851: t50704 = f14712(t50731.value.native_procedure_type20851); break; case NATIVE_PROCEDURE_TYPE20914: t50704 = f16432((t50731.value.native_procedure_type20914), t50732); break; case NATIVE_PROCEDURE_TYPE20916: t50704 = f16416((t50731.value.native_procedure_type20916), t50732); break; case NATIVE_PROCEDURE_TYPE20919: t50704 = f16631((t50731.value.native_procedure_type20919), t50732); break; case NATIVE_PROCEDURE_TYPE20928: t50704 = f16597((t50731.value.native_procedure_type20928), t50732); break; case NATIVE_PROCEDURE_TYPE21037: t50704 = f16700((t50731.value.native_procedure_type21037), t50732); break; case NATIVE_PROCEDURE_TYPE21043: t50704 = f16678((t50731.value.native_procedure_type21043), t50732); break; case NATIVE_PROCEDURE_TYPE21049: t50704 = f16736((t50731.value.native_procedure_type21049), t50732); break; case NATIVE_PROCEDURE_TYPE21060: d15570 = t50731.value.native_procedure_type21060; b26729 = t50732; t50704 = f15570(); break; case NATIVE_PROCEDURE_TYPE21066: t50704 = f16821((t50731.value.native_procedure_type21066), t50732); break; case NATIVE_PROCEDURE_TYPE21083: t50704 = f16720((t50731.value.native_procedure_type21083), t50732); break; case NATIVE_PROCEDURE_TYPE21088: t50704 = f16646((t50731.value.native_procedure_type21088), t50732); break; case NATIVE_PROCEDURE_TYPE21091: t50704 = f16853((t50731.value.native_procedure_type21091), t50732); break; case NATIVE_PROCEDURE_TYPE21109: d15579 = t50731.value.native_procedure_type21109; b26749 = t50732; t50704 = f15579(); break; case NATIVE_PROCEDURE_TYPE21111: t50704 = f16908((t50731.value.native_procedure_type21111), t50732); break; case NATIVE_PROCEDURE_TYPE21118: t50704 = f16880((t50731.value.native_procedure_type21118), t50732); break; case NATIVE_PROCEDURE_TYPE21138: t50704 = f16981((t50731.value.native_procedure_type21138), t50732); break; case NATIVE_PROCEDURE_TYPE21148: t50704 = f17057((t50731.value.native_procedure_type21148), t50732); break; case NATIVE_PROCEDURE_TYPE21153: d17117 = t50731.value.native_procedure_type21153; b29067 = t50732; t50704 = f17117(); break; case NATIVE_PROCEDURE_TYPE21155: t50704 = f17118((t50731.value.native_procedure_type21155), t50732); break; case NATIVE_PROCEDURE_TYPE21171: d17084 = t50731.value.native_procedure_type21171; b29016 = t50732; t50704 = f17084(); break; case NATIVE_PROCEDURE_TYPE21173: t50704 = f17085((t50731.value.native_procedure_type21173), t50732); break; case NATIVE_PROCEDURE_TYPE21202: t50704 = f17018((t50731.value.native_procedure_type21202), t50732); break; case NATIVE_PROCEDURE_TYPE21226: t50704 = f16940((t50731.value.native_procedure_type21226), t50732); break; case NATIVE_PROCEDURE_TYPE21229: t50704 = f16839((t50731.value.native_procedure_type21229), t50732); break; case NATIVE_PROCEDURE_TYPE21235: d17183 = t50731.value.native_procedure_type21235; b29169 = t50732; t50704 = f17183(); break; case NATIVE_PROCEDURE_TYPE21237: t50704 = f17184((t50731.value.native_procedure_type21237), t50732); break; case NATIVE_PROCEDURE_TYPE21257: t50704 = f17221((t50731.value.native_procedure_type21257), t50732); break; case NATIVE_PROCEDURE_TYPE21260: t50704 = f17208((t50731.value.native_procedure_type21260), t50732); break; case NATIVE_PROCEDURE_TYPE21266: t50704 = f17253((t50731.value.native_procedure_type21266), t50732); break; case NATIVE_PROCEDURE_TYPE21269: t50704 = f17290((t50731.value.native_procedure_type21269), t50732); break; case NATIVE_PROCEDURE_TYPE21275: t50704 = f17328((t50731.value.native_procedure_type21275), t50732); break; case NATIVE_PROCEDURE_TYPE21281: t50704 = f17309((t50731.value.native_procedure_type21281), t50732); break; case NATIVE_PROCEDURE_TYPE21287: t50704 = f17271((t50731.value.native_procedure_type21287), t50732); break; case NATIVE_PROCEDURE_TYPE21297: t50704 = f17237((t50731.value.native_procedure_type21297), t50732); break; case NATIVE_PROCEDURE_TYPE21300: t50704 = f17353((t50731.value.native_procedure_type21300), t50732); break; case NATIVE_PROCEDURE_TYPE21305: t50704 = f17377((t50731.value.native_procedure_type21305), t50732); break; case NATIVE_PROCEDURE_TYPE21310: t50704 = f17365((t50731.value.native_procedure_type21310), t50732); break; case NATIVE_PROCEDURE_TYPE21315: t50704 = f17401((t50731.value.native_procedure_type21315), t50732); break; case NATIVE_PROCEDURE_TYPE21320: d17431 = t50731.value.native_procedure_type21320; b29911 = t50732; t50704 = f17431(); break; case NATIVE_PROCEDURE_TYPE21325: t50704 = f17433((t50731.value.native_procedure_type21325), t50732); break; case NATIVE_PROCEDURE_TYPE21330: t50704 = f17426((t50731.value.native_procedure_type21330), t50732); break; case NATIVE_PROCEDURE_TYPE21335: t50704 = f17413((t50731.value.native_procedure_type21335), t50732); break; case NATIVE_PROCEDURE_TYPE21340: d17465 = t50731.value.native_procedure_type21340; b30003 = t50732; t50704 = f17465(); break; case NATIVE_PROCEDURE_TYPE21342: t50704 = f17466((t50731.value.native_procedure_type21342), t50732); break; case NATIVE_PROCEDURE_TYPE21349: t50704 = f17448((t50731.value.native_procedure_type21349), t50732); break; case NATIVE_PROCEDURE_TYPE21354: t50704 = f17389((t50731.value.native_procedure_type21354), t50732); break; case NATIVE_PROCEDURE_TYPE21359: t50704 = f17341((t50731.value.native_procedure_type21359), t50732); break; case NATIVE_PROCEDURE_TYPE21364: d17150 = t50731.value.native_procedure_type21364; b29118 = t50732; t50704 = f17150(); break; case NATIVE_PROCEDURE_TYPE21366: t50704 = f17151((t50731.value.native_procedure_type21366), t50732); break; case NATIVE_PROCEDURE_TYPE21382: t50704 = f17499((t50731.value.native_procedure_type21382), t50732); break; case NATIVE_PROCEDURE_TYPE21388: t50704 = f17524((t50731.value.native_procedure_type21388), t50732); break; case NATIVE_PROCEDURE_TYPE21394: d17598 = t50731.value.native_procedure_type21394; b30396 = t50732; t50704 = f17598(); break; case NATIVE_PROCEDURE_TYPE21415: t50733 = f19627(t50732); t50704.tag = STRUCTURE_TYPE24753; t50704.value.structure_type24753 = t50733; break; case NATIVE_PROCEDURE_TYPE21897: t50704 = f15811((t50731.value.native_procedure_type21897), t50732); break; case NATIVE_PROCEDURE_TYPE21904: /* x298289 stalin.sc:19531:682748 */ /* x298288 stalin.sc:19531:682749 */ /* x303568 stalin.sc:14693:514793 */ t50704.tag = STRING_TYPE; t50704.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21945: d17625 = t50731.value.native_procedure_type21945; b30489 = t50732; t50704 = f17625(); break; case NATIVE_PROCEDURE_TYPE21947: t50704 = f17626((t50731.value.native_procedure_type21947), t50732); break; case NATIVE_PROCEDURE_TYPE21949: t50704 = f17612((t50731.value.native_procedure_type21949), t50732); break; case NATIVE_PROCEDURE_TYPE21953: d17572 = t50731.value.native_procedure_type21953; b30333 = t50732; t50704 = f17572(); break; case NATIVE_PROCEDURE_TYPE21957: t50704 = f17573((t50731.value.native_procedure_type21957), t50732); break; case NATIVE_PROCEDURE_TYPE21962: d17566 = t50731.value.native_procedure_type21962; t50704 = f17566(); break; case NATIVE_PROCEDURE_TYPE21964: t50704 = f17567(t50731.value.native_procedure_type21964); break; case NATIVE_PROCEDURE_TYPE21967: d17561 = t50731.value.native_procedure_type21967; t50704 = f17561(); break; case NATIVE_PROCEDURE_TYPE21969: t50704 = f17562(t50731.value.native_procedure_type21969); break; case NATIVE_PROCEDURE_TYPE21972: d17556 = t50731.value.native_procedure_type21972; t50704 = f17556(); break; case NATIVE_PROCEDURE_TYPE21974: /* x297855 stalin.sc:23400:816144 */ /* x297854 stalin.sc:23400:816145 */ /* x303344 stalin.sc:14693:514793 */ t50704.tag = STRING_TYPE; t50704.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21976: t50704 = f17533((t50731.value.native_procedure_type21976), t50732); break; case NATIVE_PROCEDURE_TYPE21979: d17706 = t50731.value.native_procedure_type21979; b30702 = t50732; t50704 = f17706(); break; case NATIVE_PROCEDURE_TYPE21983: d17708 = t50731.value.native_procedure_type21983; b30704 = t50732; t50704 = f17708(); break; case NATIVE_PROCEDURE_TYPE21985: t50704 = f17709((t50731.value.native_procedure_type21985), t50732); break; case NATIVE_PROCEDURE_TYPE21998: t50704 = f17688((t50731.value.native_procedure_type21998), t50732); break; case NATIVE_PROCEDURE_TYPE22001: t50704 = f17681(t50731.value.native_procedure_type22001); break; case NATIVE_PROCEDURE_TYPE22004: t50704 = f17678(t50731.value.native_procedure_type22004); break; case NATIVE_PROCEDURE_TYPE22007: /* x297792 stalin.sc:23690:824240 */ /* x297791 stalin.sc:23690:824241 */ /* x303310 stalin.sc:14693:514793 */ t50704.tag = STRING_TYPE; t50704.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22009: t50704 = f17760((t50731.value.native_procedure_type22009), t50732); break; case NATIVE_PROCEDURE_TYPE22011: d17804 = t50731.value.native_procedure_type22011; b30911 = t50732; t50704 = f17804(); break; case NATIVE_PROCEDURE_TYPE22013: t50704 = f17805((t50731.value.native_procedure_type22013), t50732); break; case NATIVE_PROCEDURE_TYPE22015: d17784 = t50731.value.native_procedure_type22015; b30860 = t50732; t50704 = f17784(); break; case NATIVE_PROCEDURE_TYPE22017: t50704 = f17785((t50731.value.native_procedure_type22017), t50732); break; case NATIVE_PROCEDURE_TYPE22038: d17840 = t50731.value.native_procedure_type22038; b31010 = t50732; t50704 = f17840(); break; case NATIVE_PROCEDURE_TYPE22065: d15900 = t50731.value.native_procedure_type22065; b27021 = t50732; t50704 = f15900(); break; case NATIVE_PROCEDURE_TYPE22073: d15885 = t50731.value.native_procedure_type22073; b27015 = t50732; t50704 = f15885(); break; case NATIVE_PROCEDURE_TYPE22082: d17890 = t50731.value.native_procedure_type22082; b31082 = t50732; t50704 = f17890(); break; case NATIVE_PROCEDURE_TYPE22092: t50704 = f17878((t50731.value.native_procedure_type22092), t50732); break; case NATIVE_PROCEDURE_TYPE22101: d17636 = t50731.value.native_procedure_type22101; b30537 = t50732; t50704 = f17636(); break; case NATIVE_PROCEDURE_TYPE22103: t50704 = f17637((t50731.value.native_procedure_type22103), t50732); break; case NATIVE_PROCEDURE_TYPE22105: t50704 = f17638((t50731.value.native_procedure_type22105), t50732); break; case NATIVE_PROCEDURE_TYPE22107: t50704 = f17486((t50731.value.native_procedure_type22107), t50732); break; case NATIVE_PROCEDURE_TYPE22113: t50704 = f17932((t50731.value.native_procedure_type22113), t50732); break; case NATIVE_PROCEDURE_TYPE22118: t50704 = f17956((t50731.value.native_procedure_type22118), t50732); break; case NATIVE_PROCEDURE_TYPE22120: t50704 = f17944((t50731.value.native_procedure_type22120), t50732); break; case NATIVE_PROCEDURE_TYPE22125: t50704 = f17975((t50731.value.native_procedure_type22125), t50732); break; case NATIVE_PROCEDURE_TYPE22128: t50704 = f17965((t50731.value.native_procedure_type22128), t50732); break; case NATIVE_PROCEDURE_TYPE22131: d18030 = t50731.value.native_procedure_type22131; b31667 = t50732; t50704 = f18030(); break; case NATIVE_PROCEDURE_TYPE22133: t50704 = f18031((t50731.value.native_procedure_type22133), t50732); break; case NATIVE_PROCEDURE_TYPE22136: t50704 = f18007((t50731.value.native_procedure_type22136), t50732); break; case NATIVE_PROCEDURE_TYPE22138: t50704 = f17985((t50731.value.native_procedure_type22138), t50732); break; case NATIVE_PROCEDURE_TYPE22140: t50704 = f18071((t50731.value.native_procedure_type22140), t50732); break; case NATIVE_PROCEDURE_TYPE22142: t50704 = f18089((t50731.value.native_procedure_type22142), t50732); break; case NATIVE_PROCEDURE_TYPE22144: t50704 = f18080((t50731.value.native_procedure_type22144), t50732); break; case NATIVE_PROCEDURE_TYPE22146: t50704 = f18062((t50731.value.native_procedure_type22146), t50732); break; case NATIVE_PROCEDURE_TYPE22149: t50704 = f18120((t50731.value.native_procedure_type22149), t50732); break; case NATIVE_PROCEDURE_TYPE22155: d18147 = t50731.value.native_procedure_type22155; b32201 = t50732; t50704 = f18147(); break; case NATIVE_PROCEDURE_TYPE22161: d18134 = t50731.value.native_procedure_type22161; b32153 = t50732; t50704 = f18134(); break; case NATIVE_PROCEDURE_TYPE22163: d18132 = t50731.value.native_procedure_type22163; b32151 = t50732; t50704 = f18132(); break; case NATIVE_PROCEDURE_TYPE22166: t50734 = f18041((t50731.value.native_procedure_type22166), t50732); t50704.tag = STRUCTURE_TYPE24753; t50704.value.structure_type24753 = t50734; break; default: t50704 = f17689(t50731.value.native_procedure_type23298);} l7359: goto l7356; l7355: /* x132153 stalin.sc:16682:583014 */ /* x132152 stalin.sc:16682:583018 */ /* x132151 stalin.sc:16682:583035 */ t50726 = a26023; /* x132150 stalin.sc:16682:583019 */ t50723 = f13854(t50726); /* x132149 stalin.sc:16682:583015 */ t50722 = a26025; switch (t50722.tag) {case NATIVE_PROCEDURE_TYPE20286: t50704 = f15486((t50722.value.native_procedure_type20286), t50723); break; case NATIVE_PROCEDURE_TYPE20496: t50704 = f15475((t50722.value.native_procedure_type20496), t50723); break; case NATIVE_PROCEDURE_TYPE20552: t50704 = f15458((t50722.value.native_procedure_type20552), t50723); break; case NATIVE_PROCEDURE_TYPE20758: d16096 = t50722.value.native_procedure_type20758; b27143 = t50723; t50704 = f16096(); break; case NATIVE_PROCEDURE_TYPE20783: d15771 = t50722.value.native_procedure_type20783; b26894 = t50723; t50704 = f15771(); break; case NATIVE_PROCEDURE_TYPE20851: t50704 = f14712(t50722.value.native_procedure_type20851); break; case NATIVE_PROCEDURE_TYPE20914: t50704 = f16432((t50722.value.native_procedure_type20914), t50723); break; case NATIVE_PROCEDURE_TYPE20916: t50704 = f16416((t50722.value.native_procedure_type20916), t50723); break; case NATIVE_PROCEDURE_TYPE20919: t50704 = f16631((t50722.value.native_procedure_type20919), t50723); break; case NATIVE_PROCEDURE_TYPE20928: t50704 = f16597((t50722.value.native_procedure_type20928), t50723); break; case NATIVE_PROCEDURE_TYPE21037: t50704 = f16700((t50722.value.native_procedure_type21037), t50723); break; case NATIVE_PROCEDURE_TYPE21043: t50704 = f16678((t50722.value.native_procedure_type21043), t50723); break; case NATIVE_PROCEDURE_TYPE21049: t50704 = f16736((t50722.value.native_procedure_type21049), t50723); break; case NATIVE_PROCEDURE_TYPE21060: d15570 = t50722.value.native_procedure_type21060; b26729 = t50723; t50704 = f15570(); break; case NATIVE_PROCEDURE_TYPE21066: t50704 = f16821((t50722.value.native_procedure_type21066), t50723); break; case NATIVE_PROCEDURE_TYPE21083: t50704 = f16720((t50722.value.native_procedure_type21083), t50723); break; case NATIVE_PROCEDURE_TYPE21088: t50704 = f16646((t50722.value.native_procedure_type21088), t50723); break; case NATIVE_PROCEDURE_TYPE21091: t50704 = f16853((t50722.value.native_procedure_type21091), t50723); break; case NATIVE_PROCEDURE_TYPE21109: d15579 = t50722.value.native_procedure_type21109; b26749 = t50723; t50704 = f15579(); break; case NATIVE_PROCEDURE_TYPE21111: t50704 = f16908((t50722.value.native_procedure_type21111), t50723); break; case NATIVE_PROCEDURE_TYPE21118: t50704 = f16880((t50722.value.native_procedure_type21118), t50723); break; case NATIVE_PROCEDURE_TYPE21138: t50704 = f16981((t50722.value.native_procedure_type21138), t50723); break; case NATIVE_PROCEDURE_TYPE21148: t50704 = f17057((t50722.value.native_procedure_type21148), t50723); break; case NATIVE_PROCEDURE_TYPE21153: d17117 = t50722.value.native_procedure_type21153; b29067 = t50723; t50704 = f17117(); break; case NATIVE_PROCEDURE_TYPE21155: t50704 = f17118((t50722.value.native_procedure_type21155), t50723); break; case NATIVE_PROCEDURE_TYPE21171: d17084 = t50722.value.native_procedure_type21171; b29016 = t50723; t50704 = f17084(); break; case NATIVE_PROCEDURE_TYPE21173: t50704 = f17085((t50722.value.native_procedure_type21173), t50723); break; case NATIVE_PROCEDURE_TYPE21202: t50704 = f17018((t50722.value.native_procedure_type21202), t50723); break; case NATIVE_PROCEDURE_TYPE21226: t50704 = f16940((t50722.value.native_procedure_type21226), t50723); break; case NATIVE_PROCEDURE_TYPE21229: t50704 = f16839((t50722.value.native_procedure_type21229), t50723); break; case NATIVE_PROCEDURE_TYPE21235: d17183 = t50722.value.native_procedure_type21235; b29169 = t50723; t50704 = f17183(); break; case NATIVE_PROCEDURE_TYPE21237: t50704 = f17184((t50722.value.native_procedure_type21237), t50723); break; case NATIVE_PROCEDURE_TYPE21257: t50704 = f17221((t50722.value.native_procedure_type21257), t50723); break; case NATIVE_PROCEDURE_TYPE21260: t50704 = f17208((t50722.value.native_procedure_type21260), t50723); break; case NATIVE_PROCEDURE_TYPE21266: t50704 = f17253((t50722.value.native_procedure_type21266), t50723); break; case NATIVE_PROCEDURE_TYPE21269: t50704 = f17290((t50722.value.native_procedure_type21269), t50723); break; case NATIVE_PROCEDURE_TYPE21275: t50704 = f17328((t50722.value.native_procedure_type21275), t50723); break; case NATIVE_PROCEDURE_TYPE21281: t50704 = f17309((t50722.value.native_procedure_type21281), t50723); break; case NATIVE_PROCEDURE_TYPE21287: t50704 = f17271((t50722.value.native_procedure_type21287), t50723); break; case NATIVE_PROCEDURE_TYPE21297: t50704 = f17237((t50722.value.native_procedure_type21297), t50723); break; case NATIVE_PROCEDURE_TYPE21300: t50704 = f17353((t50722.value.native_procedure_type21300), t50723); break; case NATIVE_PROCEDURE_TYPE21305: t50704 = f17377((t50722.value.native_procedure_type21305), t50723); break; case NATIVE_PROCEDURE_TYPE21310: t50704 = f17365((t50722.value.native_procedure_type21310), t50723); break; case NATIVE_PROCEDURE_TYPE21315: t50704 = f17401((t50722.value.native_procedure_type21315), t50723); break; case NATIVE_PROCEDURE_TYPE21320: d17431 = t50722.value.native_procedure_type21320; b29911 = t50723; t50704 = f17431(); break; case NATIVE_PROCEDURE_TYPE21325: t50704 = f17433((t50722.value.native_procedure_type21325), t50723); break; case NATIVE_PROCEDURE_TYPE21330: t50704 = f17426((t50722.value.native_procedure_type21330), t50723); break; case NATIVE_PROCEDURE_TYPE21335: t50704 = f17413((t50722.value.native_procedure_type21335), t50723); break; case NATIVE_PROCEDURE_TYPE21340: d17465 = t50722.value.native_procedure_type21340; b30003 = t50723; t50704 = f17465(); break; case NATIVE_PROCEDURE_TYPE21342: t50704 = f17466((t50722.value.native_procedure_type21342), t50723); break; case NATIVE_PROCEDURE_TYPE21349: t50704 = f17448((t50722.value.native_procedure_type21349), t50723); break; case NATIVE_PROCEDURE_TYPE21354: t50704 = f17389((t50722.value.native_procedure_type21354), t50723); break; case NATIVE_PROCEDURE_TYPE21359: t50704 = f17341((t50722.value.native_procedure_type21359), t50723); break; case NATIVE_PROCEDURE_TYPE21364: d17150 = t50722.value.native_procedure_type21364; b29118 = t50723; t50704 = f17150(); break; case NATIVE_PROCEDURE_TYPE21366: t50704 = f17151((t50722.value.native_procedure_type21366), t50723); break; case NATIVE_PROCEDURE_TYPE21382: t50704 = f17499((t50722.value.native_procedure_type21382), t50723); break; case NATIVE_PROCEDURE_TYPE21388: t50704 = f17524((t50722.value.native_procedure_type21388), t50723); break; case NATIVE_PROCEDURE_TYPE21394: d17598 = t50722.value.native_procedure_type21394; b30396 = t50723; t50704 = f17598(); break; case NATIVE_PROCEDURE_TYPE21415: t50724 = f19627(t50723); t50704.tag = STRUCTURE_TYPE24753; t50704.value.structure_type24753 = t50724; break; case NATIVE_PROCEDURE_TYPE21897: t50704 = f15811((t50722.value.native_procedure_type21897), t50723); break; case NATIVE_PROCEDURE_TYPE21904: /* x298292 stalin.sc:19531:682748 */ /* x298291 stalin.sc:19531:682749 */ /* x303570 stalin.sc:14693:514793 */ t50704.tag = STRING_TYPE; t50704.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21945: d17625 = t50722.value.native_procedure_type21945; b30489 = t50723; t50704 = f17625(); break; case NATIVE_PROCEDURE_TYPE21947: t50704 = f17626((t50722.value.native_procedure_type21947), t50723); break; case NATIVE_PROCEDURE_TYPE21949: t50704 = f17612((t50722.value.native_procedure_type21949), t50723); break; case NATIVE_PROCEDURE_TYPE21953: d17572 = t50722.value.native_procedure_type21953; b30333 = t50723; t50704 = f17572(); break; case NATIVE_PROCEDURE_TYPE21957: t50704 = f17573((t50722.value.native_procedure_type21957), t50723); break; case NATIVE_PROCEDURE_TYPE21962: d17566 = t50722.value.native_procedure_type21962; t50704 = f17566(); break; case NATIVE_PROCEDURE_TYPE21964: t50704 = f17567(t50722.value.native_procedure_type21964); break; case NATIVE_PROCEDURE_TYPE21967: d17561 = t50722.value.native_procedure_type21967; t50704 = f17561(); break; case NATIVE_PROCEDURE_TYPE21969: t50704 = f17562(t50722.value.native_procedure_type21969); break; case NATIVE_PROCEDURE_TYPE21972: d17556 = t50722.value.native_procedure_type21972; t50704 = f17556(); break; case NATIVE_PROCEDURE_TYPE21974: /* x297858 stalin.sc:23400:816144 */ /* x297857 stalin.sc:23400:816145 */ /* x303346 stalin.sc:14693:514793 */ t50704.tag = STRING_TYPE; t50704.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21976: t50704 = f17533((t50722.value.native_procedure_type21976), t50723); break; case NATIVE_PROCEDURE_TYPE21979: d17706 = t50722.value.native_procedure_type21979; b30702 = t50723; t50704 = f17706(); break; case NATIVE_PROCEDURE_TYPE21983: d17708 = t50722.value.native_procedure_type21983; b30704 = t50723; t50704 = f17708(); break; case NATIVE_PROCEDURE_TYPE21985: t50704 = f17709((t50722.value.native_procedure_type21985), t50723); break; case NATIVE_PROCEDURE_TYPE21998: t50704 = f17688((t50722.value.native_procedure_type21998), t50723); break; case NATIVE_PROCEDURE_TYPE22001: t50704 = f17681(t50722.value.native_procedure_type22001); break; case NATIVE_PROCEDURE_TYPE22004: t50704 = f17678(t50722.value.native_procedure_type22004); break; case NATIVE_PROCEDURE_TYPE22007: /* x297795 stalin.sc:23690:824240 */ /* x297794 stalin.sc:23690:824241 */ /* x303312 stalin.sc:14693:514793 */ t50704.tag = STRING_TYPE; t50704.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22009: t50704 = f17760((t50722.value.native_procedure_type22009), t50723); break; case NATIVE_PROCEDURE_TYPE22011: d17804 = t50722.value.native_procedure_type22011; b30911 = t50723; t50704 = f17804(); break; case NATIVE_PROCEDURE_TYPE22013: t50704 = f17805((t50722.value.native_procedure_type22013), t50723); break; case NATIVE_PROCEDURE_TYPE22015: d17784 = t50722.value.native_procedure_type22015; b30860 = t50723; t50704 = f17784(); break; case NATIVE_PROCEDURE_TYPE22017: t50704 = f17785((t50722.value.native_procedure_type22017), t50723); break; case NATIVE_PROCEDURE_TYPE22038: d17840 = t50722.value.native_procedure_type22038; b31010 = t50723; t50704 = f17840(); break; case NATIVE_PROCEDURE_TYPE22065: d15900 = t50722.value.native_procedure_type22065; b27021 = t50723; t50704 = f15900(); break; case NATIVE_PROCEDURE_TYPE22073: d15885 = t50722.value.native_procedure_type22073; b27015 = t50723; t50704 = f15885(); break; case NATIVE_PROCEDURE_TYPE22082: d17890 = t50722.value.native_procedure_type22082; b31082 = t50723; t50704 = f17890(); break; case NATIVE_PROCEDURE_TYPE22092: t50704 = f17878((t50722.value.native_procedure_type22092), t50723); break; case NATIVE_PROCEDURE_TYPE22101: d17636 = t50722.value.native_procedure_type22101; b30537 = t50723; t50704 = f17636(); break; case NATIVE_PROCEDURE_TYPE22103: t50704 = f17637((t50722.value.native_procedure_type22103), t50723); break; case NATIVE_PROCEDURE_TYPE22105: t50704 = f17638((t50722.value.native_procedure_type22105), t50723); break; case NATIVE_PROCEDURE_TYPE22107: t50704 = f17486((t50722.value.native_procedure_type22107), t50723); break; case NATIVE_PROCEDURE_TYPE22113: t50704 = f17932((t50722.value.native_procedure_type22113), t50723); break; case NATIVE_PROCEDURE_TYPE22118: t50704 = f17956((t50722.value.native_procedure_type22118), t50723); break; case NATIVE_PROCEDURE_TYPE22120: t50704 = f17944((t50722.value.native_procedure_type22120), t50723); break; case NATIVE_PROCEDURE_TYPE22125: t50704 = f17975((t50722.value.native_procedure_type22125), t50723); break; case NATIVE_PROCEDURE_TYPE22128: t50704 = f17965((t50722.value.native_procedure_type22128), t50723); break; case NATIVE_PROCEDURE_TYPE22131: d18030 = t50722.value.native_procedure_type22131; b31667 = t50723; t50704 = f18030(); break; case NATIVE_PROCEDURE_TYPE22133: t50704 = f18031((t50722.value.native_procedure_type22133), t50723); break; case NATIVE_PROCEDURE_TYPE22136: t50704 = f18007((t50722.value.native_procedure_type22136), t50723); break; case NATIVE_PROCEDURE_TYPE22138: t50704 = f17985((t50722.value.native_procedure_type22138), t50723); break; case NATIVE_PROCEDURE_TYPE22140: t50704 = f18071((t50722.value.native_procedure_type22140), t50723); break; case NATIVE_PROCEDURE_TYPE22142: t50704 = f18089((t50722.value.native_procedure_type22142), t50723); break; case NATIVE_PROCEDURE_TYPE22144: t50704 = f18080((t50722.value.native_procedure_type22144), t50723); break; case NATIVE_PROCEDURE_TYPE22146: t50704 = f18062((t50722.value.native_procedure_type22146), t50723); break; case NATIVE_PROCEDURE_TYPE22149: t50704 = f18120((t50722.value.native_procedure_type22149), t50723); break; case NATIVE_PROCEDURE_TYPE22155: d18147 = t50722.value.native_procedure_type22155; b32201 = t50723; t50704 = f18147(); break; case NATIVE_PROCEDURE_TYPE22161: d18134 = t50722.value.native_procedure_type22161; b32153 = t50723; t50704 = f18134(); break; case NATIVE_PROCEDURE_TYPE22163: d18132 = t50722.value.native_procedure_type22163; b32151 = t50723; t50704 = f18132(); break; case NATIVE_PROCEDURE_TYPE22166: t50725 = f18041((t50722.value.native_procedure_type22166), t50723); t50704.tag = STRUCTURE_TYPE24753; t50704.value.structure_type24753 = t50725; break; default: t50704 = f17689(t50722.value.native_procedure_type23298);} l7356: /* x132155 stalin.sc:16683:583042 */ t50705 = a26026; /* x132097 stalin.sc:16672:582680 */ t50706.tag = STRUCTURE_TYPE24753; t50706.value.structure_type24753 = t50701; return f13676(t50706, t50702, t50703, t50704, t50705); l7352: /* x132171 stalin.sc:16684:583052 */ /* x132161 stalin.sc:16685:583081 */ /* x132159 stalin.sc:16685:583103 */ t50690 = a26024; /* x132160 stalin.sc:16685:583106 */ t50691 = a26023; /* x132158 stalin.sc:16685:583082 */ t50685 = f14430(t50690, t50691); /* x132165 stalin.sc:16685:583109 */ /* x132164 stalin.sc:16685:583125 */ t50692 = a26027; /* x132163 stalin.sc:16685:583114 */ /* x132162 stalin.sc:16685:583110 */ t50693.tag = NATIVE_PROCEDURE_TYPE6764; t50694 = *((struct w49 *)(&t50692)); t50695 = (struct structure_type24753 *)NULL_TYPE; t50686 = f27731(t50693, t50694, t50695); /* x132169 stalin.sc:16685:583130 */ /* x132168 stalin.sc:16685:583138 */ t50697 = a26027; /* x132167 stalin.sc:16685:583135 */ t50696 = a26025; /* x132166 stalin.sc:16685:583131 */ t50698 = *((struct w36270 *)(&t50696)); t50699 = *((struct w49 *)(&t50697)); t50700 = (struct structure_type24753 *)NULL_TYPE; t50687 = f27731(t50698, t50699, t50700); /* x132170 stalin.sc:16685:583143 */ t50688 = a26026; /* x132157 stalin.sc:16684:583053 */ t50689.tag = STRUCTURE_TYPE24753; t50689.value.structure_type24753 = t50685; return f13687(t50689, t50686, t50687, t50688);} /* C[14625] */ struct w49 f14625(struct p14621 *p14625, struct w49 a26021) {struct w49 r14625; struct w49 t50761; struct w12224 t50762; struct w49 t50763; struct w155916 t50764; unsigned t50765; struct structure_type24753 *t50766; unsigned t50767; struct structure_type24753 *t50768; struct structure_type27501 *t50769; unsigned t50770; struct structure_type24753 *t50771; unsigned t50772; struct structure_type24753 *t50773; unsigned t50774; struct structure_type24753 *t50775; struct structure_type27501 *t50776; char *t50777; char *t50778; unsigned t50779; struct structure_type24753 *t50780; unsigned t50781; struct structure_type24753 *t50782; unsigned t50783; struct structure_type24753 *t50784; unsigned t50785; struct structure_type24753 *t50786; unsigned t50787; struct structure_type24753 *t50788; unsigned t50789; struct structure_type24753 *t50790; unsigned t50791; struct structure_type24753 *t50792; unsigned t50793; struct structure_type24753 *t50794; unsigned t50795; struct structure_type24753 *t50796; unsigned t50797; struct structure_type24753 *t50798; unsigned t50799; struct structure_type24753 *t50800; unsigned t50801; struct structure_type24753 *t50802; unsigned t50803; struct structure_type24753 *t50804; unsigned t50805; struct structure_type24753 *t50806; unsigned t50807; struct structure_type24753 *t50808; unsigned t50809; struct structure_type24753 *t50810; unsigned t50811; struct structure_type24753 *t50812; unsigned t50813; struct structure_type24753 *t50814; unsigned t50815; struct structure_type24753 *t50816; unsigned t50817; struct structure_type24753 *t50818; unsigned t50819; struct structure_type24753 *t50820; unsigned t50821; struct structure_type24753 *t50822; unsigned t50823; struct structure_type24753 *t50824; unsigned t50825; struct structure_type24753 *t50826; unsigned t50827; struct structure_type24753 *t50828; unsigned t50829; struct structure_type24753 *t50830; unsigned t50831; struct structure_type24753 *t50832; unsigned t50833; struct structure_type24753 *t50834; unsigned t50835; struct structure_type24753 *t50836; unsigned t50837; struct structure_type24753 *t50838; unsigned t50839; struct structure_type24753 *t50840; unsigned t50841; struct structure_type24753 *t50842; unsigned t50843; struct structure_type24753 *t50844; unsigned t50845; struct structure_type24753 *t50846; unsigned t50847; struct structure_type24753 *t50848; unsigned t50849; struct structure_type24753 *t50850; unsigned t50851; struct structure_type24753 *t50852; unsigned t50853; struct structure_type24753 *t50854; unsigned t50855; struct structure_type24753 *t50856; unsigned t50857; struct structure_type24753 *t50858; unsigned t50859; struct structure_type24753 *t50860; unsigned t50861; struct structure_type24753 *t50862; unsigned t50863; struct structure_type24753 *t50864; unsigned t50865; struct structure_type24753 *t50866; unsigned t50867; struct structure_type24753 *t50868; unsigned t50869; struct structure_type24753 *t50870; struct structure_type24753 *t50871; unsigned t50872; struct structure_type24753 *t50873; unsigned t50874; struct structure_type24753 *t50875; unsigned t50876; struct structure_type24753 *t50877; unsigned t50878; struct structure_type24753 *t50879; unsigned t50880; struct structure_type24753 *t50881; unsigned t50882; struct structure_type24753 *t50883; unsigned t50884; struct structure_type24753 *t50885; unsigned t50886; struct structure_type24753 *t50887; unsigned t50888; struct structure_type24753 *t50889; unsigned t50890; struct structure_type24753 *t50891; unsigned t50892; struct structure_type24753 *t50893; unsigned t50894; struct structure_type24753 *t50895; unsigned t50896; struct structure_type24753 *t50897; unsigned t50898; struct structure_type24753 *t50899; unsigned t50900; struct structure_type24753 *t50901; unsigned t50902; struct structure_type24753 *t50903; unsigned t50904; struct structure_type24753 *t50905; unsigned t50906; struct structure_type24753 *t50907; unsigned t50908; struct structure_type24753 *t50909; unsigned t50910; struct structure_type24753 *t50911; unsigned t50912; struct structure_type24753 *t50913; unsigned t50914; struct structure_type24753 *t50915; unsigned t50916; struct structure_type24753 *t50917; unsigned t50918; struct structure_type24753 *t50919; unsigned t50920; struct structure_type24753 *t50921; unsigned t50922; struct structure_type24753 *t50923; unsigned t50924; struct structure_type24753 *t50925; unsigned t50926; struct structure_type24753 *t50927; unsigned t50928; struct structure_type24753 *t50929; unsigned t50930; struct structure_type24753 *t50931; unsigned t50932; struct structure_type24753 *t50933; unsigned t50934; struct structure_type24753 *t50935; unsigned t50936; struct structure_type24753 *t50937; unsigned t50938; struct structure_type24753 *t50939; unsigned t50940; struct structure_type24753 *t50941; unsigned t50942; struct structure_type24753 *t50943; unsigned t50944; struct structure_type24753 *t50945; unsigned t50946; struct structure_type24753 *t50947; unsigned t50948; struct structure_type24753 *t50949; unsigned t50950; struct structure_type24753 *t50951; unsigned t50952; struct structure_type24753 *t50953; unsigned t50954; struct structure_type24753 *t50955; unsigned t50956; struct structure_type24753 *t50957; unsigned t50958; struct structure_type24753 *t50959; unsigned t50960; struct structure_type24753 *t50961; unsigned t50962; struct structure_type24753 *t50963; unsigned t50964; struct structure_type24753 *t50965; unsigned t50966; struct structure_type24753 *t50967; unsigned t50968; struct structure_type24753 *t50969; unsigned t50970; struct structure_type24753 *t50971; unsigned t50972; struct structure_type24753 *t50973; unsigned t50974; struct structure_type24753 *t50975; char *t50976; struct w155919 t50977; struct w49 t50978; struct structure_type24753 *t50979; struct structure_type24753 *t50980; struct p16486 *p37503; struct p14711 *p37522; /* x132072 stalin.sc:16634:581405 */ /* x132065 stalin.sc:16634:581409 */ /* x132063 stalin.sc:16634:581415 */ t50761 = a26021; /* x132064 stalin.sc:16634:581417 */ t50762 = p14625->a26012; /* x132062 stalin.sc:16634:581410 */ t50763 = *((struct w49 *)(&t50762)); if ((f26351(t50761, t50763).tag)==FALSE_TYPE) goto l7361; /* x132068 stalin.sc:16634:581421 */ /* x132067 stalin.sc:16634:581425 */ t50978 = a26021; /* x132066 stalin.sc:16634:581422 */ t50977 = p14625->a26015; switch (t50977.tag) {case NATIVE_PROCEDURE_TYPE20758: d16096 = t50977.value.native_procedure_type20758; b27143 = t50978; return f16096(); case NATIVE_PROCEDURE_TYPE20783: d15771 = t50977.value.native_procedure_type20783; b26894 = t50978; return f15771(); case NATIVE_PROCEDURE_TYPE20851: return f14712(t50977.value.native_procedure_type20851); case NATIVE_PROCEDURE_TYPE20914: return f16432((t50977.value.native_procedure_type20914), t50978); case NATIVE_PROCEDURE_TYPE20916: return f16416((t50977.value.native_procedure_type20916), t50978); case NATIVE_PROCEDURE_TYPE20919: return f16631((t50977.value.native_procedure_type20919), t50978); case NATIVE_PROCEDURE_TYPE20928: return f16597((t50977.value.native_procedure_type20928), t50978); case NATIVE_PROCEDURE_TYPE21037: return f16700((t50977.value.native_procedure_type21037), t50978); case NATIVE_PROCEDURE_TYPE21043: return f16678((t50977.value.native_procedure_type21043), t50978); case NATIVE_PROCEDURE_TYPE21049: return f16736((t50977.value.native_procedure_type21049), t50978); case NATIVE_PROCEDURE_TYPE21060: d15570 = t50977.value.native_procedure_type21060; b26729 = t50978; return f15570(); case NATIVE_PROCEDURE_TYPE21066: return f16821((t50977.value.native_procedure_type21066), t50978); case NATIVE_PROCEDURE_TYPE21083: return f16720((t50977.value.native_procedure_type21083), t50978); case NATIVE_PROCEDURE_TYPE21088: return f16646((t50977.value.native_procedure_type21088), t50978); case NATIVE_PROCEDURE_TYPE21091: return f16853((t50977.value.native_procedure_type21091), t50978); case NATIVE_PROCEDURE_TYPE21109: d15579 = t50977.value.native_procedure_type21109; b26749 = t50978; return f15579(); case NATIVE_PROCEDURE_TYPE21111: return f16908((t50977.value.native_procedure_type21111), t50978); case NATIVE_PROCEDURE_TYPE21118: return f16880((t50977.value.native_procedure_type21118), t50978); case NATIVE_PROCEDURE_TYPE21138: return f16981((t50977.value.native_procedure_type21138), t50978); case NATIVE_PROCEDURE_TYPE21148: return f17057((t50977.value.native_procedure_type21148), t50978); case NATIVE_PROCEDURE_TYPE21153: d17117 = t50977.value.native_procedure_type21153; b29067 = t50978; return f17117(); case NATIVE_PROCEDURE_TYPE21155: return f17118((t50977.value.native_procedure_type21155), t50978); case NATIVE_PROCEDURE_TYPE21171: d17084 = t50977.value.native_procedure_type21171; b29016 = t50978; return f17084(); case NATIVE_PROCEDURE_TYPE21173: return f17085((t50977.value.native_procedure_type21173), t50978); case NATIVE_PROCEDURE_TYPE21202: return f17018((t50977.value.native_procedure_type21202), t50978); case NATIVE_PROCEDURE_TYPE21226: return f16940((t50977.value.native_procedure_type21226), t50978); case NATIVE_PROCEDURE_TYPE21229: return f16839((t50977.value.native_procedure_type21229), t50978); case NATIVE_PROCEDURE_TYPE21235: d17183 = t50977.value.native_procedure_type21235; b29169 = t50978; return f17183(); case NATIVE_PROCEDURE_TYPE21237: return f17184((t50977.value.native_procedure_type21237), t50978); case NATIVE_PROCEDURE_TYPE21257: return f17221((t50977.value.native_procedure_type21257), t50978); case NATIVE_PROCEDURE_TYPE21260: return f17208((t50977.value.native_procedure_type21260), t50978); case NATIVE_PROCEDURE_TYPE21266: return f17253((t50977.value.native_procedure_type21266), t50978); case NATIVE_PROCEDURE_TYPE21269: return f17290((t50977.value.native_procedure_type21269), t50978); case NATIVE_PROCEDURE_TYPE21275: return f17328((t50977.value.native_procedure_type21275), t50978); case NATIVE_PROCEDURE_TYPE21281: return f17309((t50977.value.native_procedure_type21281), t50978); case NATIVE_PROCEDURE_TYPE21287: return f17271((t50977.value.native_procedure_type21287), t50978); case NATIVE_PROCEDURE_TYPE21297: return f17237((t50977.value.native_procedure_type21297), t50978); case NATIVE_PROCEDURE_TYPE21300: return f17353((t50977.value.native_procedure_type21300), t50978); case NATIVE_PROCEDURE_TYPE21305: return f17377((t50977.value.native_procedure_type21305), t50978); case NATIVE_PROCEDURE_TYPE21310: return f17365((t50977.value.native_procedure_type21310), t50978); case NATIVE_PROCEDURE_TYPE21315: return f17401((t50977.value.native_procedure_type21315), t50978); case NATIVE_PROCEDURE_TYPE21320: d17431 = t50977.value.native_procedure_type21320; b29911 = t50978; return f17431(); case NATIVE_PROCEDURE_TYPE21325: return f17433((t50977.value.native_procedure_type21325), t50978); case NATIVE_PROCEDURE_TYPE21330: return f17426((t50977.value.native_procedure_type21330), t50978); case NATIVE_PROCEDURE_TYPE21335: return f17413((t50977.value.native_procedure_type21335), t50978); case NATIVE_PROCEDURE_TYPE21340: d17465 = t50977.value.native_procedure_type21340; b30003 = t50978; return f17465(); case NATIVE_PROCEDURE_TYPE21342: return f17466((t50977.value.native_procedure_type21342), t50978); case NATIVE_PROCEDURE_TYPE21349: return f17448((t50977.value.native_procedure_type21349), t50978); case NATIVE_PROCEDURE_TYPE21354: return f17389((t50977.value.native_procedure_type21354), t50978); case NATIVE_PROCEDURE_TYPE21359: return f17341((t50977.value.native_procedure_type21359), t50978); case NATIVE_PROCEDURE_TYPE21364: d17150 = t50977.value.native_procedure_type21364; b29118 = t50978; return f17150(); case NATIVE_PROCEDURE_TYPE21366: return f17151((t50977.value.native_procedure_type21366), t50978); case NATIVE_PROCEDURE_TYPE21382: return f17499((t50977.value.native_procedure_type21382), t50978); case NATIVE_PROCEDURE_TYPE21388: return f17524((t50977.value.native_procedure_type21388), t50978); case NATIVE_PROCEDURE_TYPE21394: d17598 = t50977.value.native_procedure_type21394; b30396 = t50978; return f17598(); case NATIVE_PROCEDURE_TYPE21415: t50979 = f19627(t50978); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50979; return r14625; case NATIVE_PROCEDURE_TYPE21897: return f15811((t50977.value.native_procedure_type21897), t50978); case NATIVE_PROCEDURE_TYPE21904: /* x298280 stalin.sc:19531:682748 */ /* x298279 stalin.sc:19531:682749 */ /* x303562 stalin.sc:14693:514793 */ r14625.tag = STRING_TYPE; r14625.value.string_type = ""; return r14625; case NATIVE_PROCEDURE_TYPE21945: d17625 = t50977.value.native_procedure_type21945; b30489 = t50978; return f17625(); case NATIVE_PROCEDURE_TYPE21947: return f17626((t50977.value.native_procedure_type21947), t50978); case NATIVE_PROCEDURE_TYPE21949: return f17612((t50977.value.native_procedure_type21949), t50978); case NATIVE_PROCEDURE_TYPE21953: d17572 = t50977.value.native_procedure_type21953; b30333 = t50978; return f17572(); case NATIVE_PROCEDURE_TYPE21957: return f17573((t50977.value.native_procedure_type21957), t50978); case NATIVE_PROCEDURE_TYPE21962: d17566 = t50977.value.native_procedure_type21962; return f17566(); case NATIVE_PROCEDURE_TYPE21964: return f17567(t50977.value.native_procedure_type21964); case NATIVE_PROCEDURE_TYPE21967: d17561 = t50977.value.native_procedure_type21967; return f17561(); case NATIVE_PROCEDURE_TYPE21969: return f17562(t50977.value.native_procedure_type21969); case NATIVE_PROCEDURE_TYPE21972: d17556 = t50977.value.native_procedure_type21972; return f17556(); case NATIVE_PROCEDURE_TYPE21974: /* x297846 stalin.sc:23400:816144 */ /* x297845 stalin.sc:23400:816145 */ /* x303338 stalin.sc:14693:514793 */ r14625.tag = STRING_TYPE; r14625.value.string_type = ""; return r14625; case NATIVE_PROCEDURE_TYPE21976: return f17533((t50977.value.native_procedure_type21976), t50978); case NATIVE_PROCEDURE_TYPE21979: d17706 = t50977.value.native_procedure_type21979; b30702 = t50978; return f17706(); case NATIVE_PROCEDURE_TYPE21983: d17708 = t50977.value.native_procedure_type21983; b30704 = t50978; return f17708(); case NATIVE_PROCEDURE_TYPE21985: return f17709((t50977.value.native_procedure_type21985), t50978); case NATIVE_PROCEDURE_TYPE21998: return f17688((t50977.value.native_procedure_type21998), t50978); case NATIVE_PROCEDURE_TYPE22001: return f17681(t50977.value.native_procedure_type22001); case NATIVE_PROCEDURE_TYPE22004: return f17678(t50977.value.native_procedure_type22004); case NATIVE_PROCEDURE_TYPE22007: /* x297783 stalin.sc:23690:824240 */ /* x297782 stalin.sc:23690:824241 */ /* x303304 stalin.sc:14693:514793 */ r14625.tag = STRING_TYPE; r14625.value.string_type = ""; return r14625; case NATIVE_PROCEDURE_TYPE22009: return f17760((t50977.value.native_procedure_type22009), t50978); case NATIVE_PROCEDURE_TYPE22011: d17804 = t50977.value.native_procedure_type22011; b30911 = t50978; return f17804(); case NATIVE_PROCEDURE_TYPE22013: return f17805((t50977.value.native_procedure_type22013), t50978); case NATIVE_PROCEDURE_TYPE22015: d17784 = t50977.value.native_procedure_type22015; b30860 = t50978; return f17784(); case NATIVE_PROCEDURE_TYPE22017: return f17785((t50977.value.native_procedure_type22017), t50978); case NATIVE_PROCEDURE_TYPE22038: d17840 = t50977.value.native_procedure_type22038; b31010 = t50978; return f17840(); case NATIVE_PROCEDURE_TYPE22065: d15900 = t50977.value.native_procedure_type22065; b27021 = t50978; return f15900(); case NATIVE_PROCEDURE_TYPE22073: d15885 = t50977.value.native_procedure_type22073; b27015 = t50978; return f15885(); case NATIVE_PROCEDURE_TYPE22082: d17890 = t50977.value.native_procedure_type22082; b31082 = t50978; return f17890(); case NATIVE_PROCEDURE_TYPE22092: return f17878((t50977.value.native_procedure_type22092), t50978); case NATIVE_PROCEDURE_TYPE22101: d17636 = t50977.value.native_procedure_type22101; b30537 = t50978; return f17636(); case NATIVE_PROCEDURE_TYPE22103: return f17637((t50977.value.native_procedure_type22103), t50978); case NATIVE_PROCEDURE_TYPE22105: return f17638((t50977.value.native_procedure_type22105), t50978); case NATIVE_PROCEDURE_TYPE22107: return f17486((t50977.value.native_procedure_type22107), t50978); case NATIVE_PROCEDURE_TYPE22113: return f17932((t50977.value.native_procedure_type22113), t50978); case NATIVE_PROCEDURE_TYPE22118: return f17956((t50977.value.native_procedure_type22118), t50978); case NATIVE_PROCEDURE_TYPE22120: return f17944((t50977.value.native_procedure_type22120), t50978); case NATIVE_PROCEDURE_TYPE22125: return f17975((t50977.value.native_procedure_type22125), t50978); case NATIVE_PROCEDURE_TYPE22128: return f17965((t50977.value.native_procedure_type22128), t50978); case NATIVE_PROCEDURE_TYPE22131: d18030 = t50977.value.native_procedure_type22131; b31667 = t50978; return f18030(); case NATIVE_PROCEDURE_TYPE22133: return f18031((t50977.value.native_procedure_type22133), t50978); case NATIVE_PROCEDURE_TYPE22136: return f18007((t50977.value.native_procedure_type22136), t50978); case NATIVE_PROCEDURE_TYPE22138: return f17985((t50977.value.native_procedure_type22138), t50978); case NATIVE_PROCEDURE_TYPE22140: return f18071((t50977.value.native_procedure_type22140), t50978); case NATIVE_PROCEDURE_TYPE22142: return f18089((t50977.value.native_procedure_type22142), t50978); case NATIVE_PROCEDURE_TYPE22144: return f18080((t50977.value.native_procedure_type22144), t50978); case NATIVE_PROCEDURE_TYPE22146: return f18062((t50977.value.native_procedure_type22146), t50978); case NATIVE_PROCEDURE_TYPE22149: return f18120((t50977.value.native_procedure_type22149), t50978); case NATIVE_PROCEDURE_TYPE22155: d18147 = t50977.value.native_procedure_type22155; b32201 = t50978; return f18147(); case NATIVE_PROCEDURE_TYPE22161: d18134 = t50977.value.native_procedure_type22161; b32153 = t50978; return f18134(); case NATIVE_PROCEDURE_TYPE22163: d18132 = t50977.value.native_procedure_type22163; b32151 = t50978; return f18132(); case NATIVE_PROCEDURE_TYPE22166: t50980 = f18041((t50977.value.native_procedure_type22166), t50978); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50980; return r14625; default: return f17689(t50977.value.native_procedure_type23298);} l7361: /* x132071 stalin.sc:16634:581428 */ /* x132070 stalin.sc:16634:581432 */ /* x132069 stalin.sc:16634:581429 */ t50764 = p14625->a26016; switch (t50764.tag) {case NATIVE_PROCEDURE_TYPE20757: t50765 = FALSE_TYPE; t50766 = f16097((t50764.value.native_procedure_type20757), t50765); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50766; return r14625; case NATIVE_PROCEDURE_TYPE20782: t50767 = FALSE_TYPE; t50768 = f15772((t50764.value.native_procedure_type20782), t50767); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50768; return r14625; case NATIVE_PROCEDURE_TYPE20850: p37522 = t50764.value.native_procedure_type20850; /* x302882 stalin.sc:17033:595793 */ /* x302881 stalin.sc:17033:595807 */ t50769 = p37522->a26136; /* x302880 stalin.sc:17033:595794 */ return f14708(t50769); case NATIVE_PROCEDURE_TYPE20913: t50770 = FALSE_TYPE; t50771 = f16433((t50764.value.native_procedure_type20913), t50770); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50771; return r14625; case NATIVE_PROCEDURE_TYPE20915: t50772 = FALSE_TYPE; t50773 = f16417((t50764.value.native_procedure_type20915), t50772); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50773; return r14625; case NATIVE_PROCEDURE_TYPE20918: t50774 = FALSE_TYPE; t50775 = f16635((t50764.value.native_procedure_type20918), t50774); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50775; return r14625; case NATIVE_PROCEDURE_TYPE20927: p37503 = t50764.value.native_procedure_type20927; /* x302806 stalin.sc:21738:761657 */ /* x302805 stalin.sc:21738:761670 */ t50776 = p37503->a27722; /* x302804 stalin.sc:21738:761658 */ return f14707(t50776); case NATIVE_PROCEDURE_TYPE21036: /* x298068 stalin.sc:21885:766135 */ /* x298067 stalin.sc:21885:766136 */ /* x303394 QobiScheme.sc:166:5314 */ /* x303393 QobiScheme.sc:166:5321 */ t50777 = "This shouldn\'t happen"; /* x303392 QobiScheme.sc:166:5315 */ stalin_panic(t50777); case NATIVE_PROCEDURE_TYPE21042: /* x298129 stalin.sc:21855:765176 */ /* x298128 stalin.sc:21855:765177 */ /* x303470 QobiScheme.sc:166:5314 */ /* x303469 QobiScheme.sc:166:5321 */ t50778 = "This shouldn\'t happen"; /* x303468 QobiScheme.sc:166:5315 */ stalin_panic(t50778); case NATIVE_PROCEDURE_TYPE21048: t50779 = FALSE_TYPE; t50780 = f16737((t50764.value.native_procedure_type21048), t50779); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50780; return r14625; case NATIVE_PROCEDURE_TYPE21059: t50781 = FALSE_TYPE; t50782 = f15571((t50764.value.native_procedure_type21059), t50781); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50782; return r14625; case NATIVE_PROCEDURE_TYPE21065: t50783 = FALSE_TYPE; t50784 = f16830((t50764.value.native_procedure_type21065), t50783); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50784; return r14625; case NATIVE_PROCEDURE_TYPE21082: t50785 = FALSE_TYPE; t50786 = f16721((t50764.value.native_procedure_type21082), t50785); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50786; return r14625; case NATIVE_PROCEDURE_TYPE21087: t50787 = FALSE_TYPE; t50788 = f16648((t50764.value.native_procedure_type21087), t50787); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50788; return r14625; case NATIVE_PROCEDURE_TYPE21090: t50789 = FALSE_TYPE; t50790 = f16858((t50764.value.native_procedure_type21090), t50789); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50790; return r14625; case NATIVE_PROCEDURE_TYPE21108: t50791 = FALSE_TYPE; t50792 = f15580((t50764.value.native_procedure_type21108), t50791); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50792; return r14625; case NATIVE_PROCEDURE_TYPE21110: t50793 = FALSE_TYPE; t50794 = f16912((t50764.value.native_procedure_type21110), t50793); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50794; return r14625; case NATIVE_PROCEDURE_TYPE21117: t50795 = FALSE_TYPE; t50796 = f16884((t50764.value.native_procedure_type21117), t50795); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50796; return r14625; case NATIVE_PROCEDURE_TYPE21137: t50797 = FALSE_TYPE; t50798 = f16982((t50764.value.native_procedure_type21137), t50797); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50798; return r14625; case NATIVE_PROCEDURE_TYPE21147: t50799 = FALSE_TYPE; t50800 = f17061((t50764.value.native_procedure_type21147), t50799); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50800; return r14625; case NATIVE_PROCEDURE_TYPE21152: t50801 = FALSE_TYPE; t50802 = f17134((t50764.value.native_procedure_type21152), t50801); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50802; return r14625; case NATIVE_PROCEDURE_TYPE21154: t50803 = FALSE_TYPE; t50804 = f17133((t50764.value.native_procedure_type21154), t50803); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50804; return r14625; case NATIVE_PROCEDURE_TYPE21170: t50805 = FALSE_TYPE; t50806 = f17101((t50764.value.native_procedure_type21170), t50805); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50806; return r14625; case NATIVE_PROCEDURE_TYPE21172: t50807 = FALSE_TYPE; t50808 = f17100((t50764.value.native_procedure_type21172), t50807); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50808; return r14625; case NATIVE_PROCEDURE_TYPE21201: t50809 = FALSE_TYPE; t50810 = f17026((t50764.value.native_procedure_type21201), t50809); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50810; return r14625; case NATIVE_PROCEDURE_TYPE21225: t50811 = FALSE_TYPE; t50812 = f16941((t50764.value.native_procedure_type21225), t50811); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50812; return r14625; case NATIVE_PROCEDURE_TYPE21228: t50813 = FALSE_TYPE; t50814 = f16844((t50764.value.native_procedure_type21228), t50813); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50814; return r14625; case NATIVE_PROCEDURE_TYPE21234: t50815 = FALSE_TYPE; t50816 = f17200((t50764.value.native_procedure_type21234), t50815); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50816; return r14625; case NATIVE_PROCEDURE_TYPE21236: t50817 = FALSE_TYPE; t50818 = f17199((t50764.value.native_procedure_type21236), t50817); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50818; return r14625; case NATIVE_PROCEDURE_TYPE21256: t50819 = FALSE_TYPE; t50820 = f17222((t50764.value.native_procedure_type21256), t50819); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50820; return r14625; case NATIVE_PROCEDURE_TYPE21259: t50821 = FALSE_TYPE; t50822 = f17209((t50764.value.native_procedure_type21259), t50821); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50822; return r14625; case NATIVE_PROCEDURE_TYPE21265: t50823 = FALSE_TYPE; t50824 = f17254((t50764.value.native_procedure_type21265), t50823); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50824; return r14625; case NATIVE_PROCEDURE_TYPE21268: t50825 = FALSE_TYPE; t50826 = f17295((t50764.value.native_procedure_type21268), t50825); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50826; return r14625; case NATIVE_PROCEDURE_TYPE21274: t50827 = FALSE_TYPE; t50828 = f17333((t50764.value.native_procedure_type21274), t50827); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50828; return r14625; case NATIVE_PROCEDURE_TYPE21280: t50829 = FALSE_TYPE; t50830 = f17314((t50764.value.native_procedure_type21280), t50829); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50830; return r14625; case NATIVE_PROCEDURE_TYPE21286: t50831 = FALSE_TYPE; t50832 = f17276((t50764.value.native_procedure_type21286), t50831); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50832; return r14625; case NATIVE_PROCEDURE_TYPE21296: t50833 = FALSE_TYPE; t50834 = f17238((t50764.value.native_procedure_type21296), t50833); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50834; return r14625; case NATIVE_PROCEDURE_TYPE21299: t50835 = FALSE_TYPE; t50836 = f17357((t50764.value.native_procedure_type21299), t50835); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50836; return r14625; case NATIVE_PROCEDURE_TYPE21304: t50837 = FALSE_TYPE; t50838 = f17381((t50764.value.native_procedure_type21304), t50837); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50838; return r14625; case NATIVE_PROCEDURE_TYPE21309: t50839 = FALSE_TYPE; t50840 = f17369((t50764.value.native_procedure_type21309), t50839); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50840; return r14625; case NATIVE_PROCEDURE_TYPE21314: t50841 = FALSE_TYPE; t50842 = f17405((t50764.value.native_procedure_type21314), t50841); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50842; return r14625; case NATIVE_PROCEDURE_TYPE21319: t50843 = FALSE_TYPE; t50844 = f17440((t50764.value.native_procedure_type21319), t50843); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50844; return r14625; case NATIVE_PROCEDURE_TYPE21324: t50845 = FALSE_TYPE; t50846 = f17437((t50764.value.native_procedure_type21324), t50845); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50846; return r14625; case NATIVE_PROCEDURE_TYPE21329: t50847 = FALSE_TYPE; t50848 = f17430((t50764.value.native_procedure_type21329), t50847); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50848; return r14625; case NATIVE_PROCEDURE_TYPE21334: t50849 = FALSE_TYPE; t50850 = f17417((t50764.value.native_procedure_type21334), t50849); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50850; return r14625; case NATIVE_PROCEDURE_TYPE21339: t50851 = FALSE_TYPE; t50852 = f17473((t50764.value.native_procedure_type21339), t50851); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50852; return r14625; case NATIVE_PROCEDURE_TYPE21341: t50853 = FALSE_TYPE; t50854 = f17472((t50764.value.native_procedure_type21341), t50853); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50854; return r14625; case NATIVE_PROCEDURE_TYPE21348: t50855 = FALSE_TYPE; t50856 = f17452((t50764.value.native_procedure_type21348), t50855); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50856; return r14625; case NATIVE_PROCEDURE_TYPE21353: t50857 = FALSE_TYPE; t50858 = f17393((t50764.value.native_procedure_type21353), t50857); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50858; return r14625; case NATIVE_PROCEDURE_TYPE21358: t50859 = FALSE_TYPE; t50860 = f17345((t50764.value.native_procedure_type21358), t50859); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50860; return r14625; case NATIVE_PROCEDURE_TYPE21363: t50861 = FALSE_TYPE; t50862 = f17167((t50764.value.native_procedure_type21363), t50861); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50862; return r14625; case NATIVE_PROCEDURE_TYPE21365: t50863 = FALSE_TYPE; t50864 = f17166((t50764.value.native_procedure_type21365), t50863); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50864; return r14625; case NATIVE_PROCEDURE_TYPE21381: t50865 = FALSE_TYPE; t50866 = f17504((t50764.value.native_procedure_type21381), t50865); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50866; return r14625; case NATIVE_PROCEDURE_TYPE21387: t50867 = FALSE_TYPE; t50868 = f17525((t50764.value.native_procedure_type21387), t50867); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50868; return r14625; case NATIVE_PROCEDURE_TYPE21393: t50869 = FALSE_TYPE; t50870 = f17599((t50764.value.native_procedure_type21393), t50869); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50870; return r14625; case NATIVE_PROCEDURE_TYPE21414: t50871 = f19631(); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50871; return r14625; case NATIVE_PROCEDURE_TYPE21896: t50872 = FALSE_TYPE; t50873 = f15815((t50764.value.native_procedure_type21896), t50872); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50873; return r14625; case NATIVE_PROCEDURE_TYPE21903: t50874 = FALSE_TYPE; t50875 = f15805((t50764.value.native_procedure_type21903), t50874); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50875; return r14625; case NATIVE_PROCEDURE_TYPE21944: t50876 = FALSE_TYPE; t50877 = f17628((t50764.value.native_procedure_type21944), t50876); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50877; return r14625; case NATIVE_PROCEDURE_TYPE21946: t50878 = FALSE_TYPE; t50879 = f17627((t50764.value.native_procedure_type21946), t50878); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50879; return r14625; case NATIVE_PROCEDURE_TYPE21948: t50880 = FALSE_TYPE; t50881 = f17613((t50764.value.native_procedure_type21948), t50880); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50881; return r14625; case NATIVE_PROCEDURE_TYPE21952: t50882 = FALSE_TYPE; t50883 = f17579((t50764.value.native_procedure_type21952), t50882); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50883; return r14625; case NATIVE_PROCEDURE_TYPE21956: t50884 = FALSE_TYPE; t50885 = f17576((t50764.value.native_procedure_type21956), t50884); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50885; return r14625; case NATIVE_PROCEDURE_TYPE21961: t50886 = FALSE_TYPE; t50887 = f17569((t50764.value.native_procedure_type21961), t50886); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50887; return r14625; case NATIVE_PROCEDURE_TYPE21963: t50888 = FALSE_TYPE; t50889 = f17568((t50764.value.native_procedure_type21963), t50888); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50889; return r14625; case NATIVE_PROCEDURE_TYPE21966: t50890 = FALSE_TYPE; t50891 = f17564((t50764.value.native_procedure_type21966), t50890); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50891; return r14625; case NATIVE_PROCEDURE_TYPE21968: t50892 = FALSE_TYPE; t50893 = f17563((t50764.value.native_procedure_type21968), t50892); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50893; return r14625; case NATIVE_PROCEDURE_TYPE21971: t50894 = FALSE_TYPE; t50895 = f17559((t50764.value.native_procedure_type21971), t50894); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50895; return r14625; case NATIVE_PROCEDURE_TYPE21973: t50896 = FALSE_TYPE; t50897 = f17558((t50764.value.native_procedure_type21973), t50896); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50897; return r14625; case NATIVE_PROCEDURE_TYPE21975: t50898 = FALSE_TYPE; t50899 = f17534((t50764.value.native_procedure_type21975), t50898); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50899; return r14625; case NATIVE_PROCEDURE_TYPE21978: t50900 = FALSE_TYPE; t50901 = f17718((t50764.value.native_procedure_type21978), t50900); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50901; return r14625; case NATIVE_PROCEDURE_TYPE21982: t50902 = FALSE_TYPE; t50903 = f17716((t50764.value.native_procedure_type21982), t50902); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50903; return r14625; case NATIVE_PROCEDURE_TYPE21984: t50904 = FALSE_TYPE; t50905 = f17715((t50764.value.native_procedure_type21984), t50904); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50905; return r14625; case NATIVE_PROCEDURE_TYPE21997: t50906 = FALSE_TYPE; t50907 = f17693((t50764.value.native_procedure_type21997), t50906); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50907; return r14625; case NATIVE_PROCEDURE_TYPE22000: t50908 = FALSE_TYPE; t50909 = f17682((t50764.value.native_procedure_type22000), t50908); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50909; return r14625; case NATIVE_PROCEDURE_TYPE22003: t50910 = FALSE_TYPE; t50911 = f17679((t50764.value.native_procedure_type22003), t50910); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50911; return r14625; case NATIVE_PROCEDURE_TYPE22006: t50912 = FALSE_TYPE; t50913 = f17676((t50764.value.native_procedure_type22006), t50912); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50913; return r14625; case NATIVE_PROCEDURE_TYPE22008: t50914 = FALSE_TYPE; t50915 = f17761((t50764.value.native_procedure_type22008), t50914); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50915; return r14625; case NATIVE_PROCEDURE_TYPE22010: t50916 = FALSE_TYPE; t50917 = f17807((t50764.value.native_procedure_type22010), t50916); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50917; return r14625; case NATIVE_PROCEDURE_TYPE22012: t50918 = FALSE_TYPE; t50919 = f17806((t50764.value.native_procedure_type22012), t50918); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50919; return r14625; case NATIVE_PROCEDURE_TYPE22014: t50920 = FALSE_TYPE; t50921 = f17787((t50764.value.native_procedure_type22014), t50920); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50921; return r14625; case NATIVE_PROCEDURE_TYPE22016: t50922 = FALSE_TYPE; t50923 = f17786((t50764.value.native_procedure_type22016), t50922); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50923; return r14625; case NATIVE_PROCEDURE_TYPE22037: t50924 = FALSE_TYPE; t50925 = f17841((t50764.value.native_procedure_type22037), t50924); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50925; return r14625; case NATIVE_PROCEDURE_TYPE22064: /* x298226 stalin.sc:19867:695278 */ /* x298225 stalin.sc:19867:695279 */ /* x303526 stalin.sc:14693:514793 */ r14625.tag = STRING_TYPE; r14625.value.string_type = ""; return r14625; case NATIVE_PROCEDURE_TYPE22072: t50926 = FALSE_TYPE; t50927 = f15886((t50764.value.native_procedure_type22072), t50926); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50927; return r14625; case NATIVE_PROCEDURE_TYPE22081: t50928 = FALSE_TYPE; t50929 = f17894((t50764.value.native_procedure_type22081), t50928); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50929; return r14625; case NATIVE_PROCEDURE_TYPE22091: t50930 = FALSE_TYPE; t50931 = f17885((t50764.value.native_procedure_type22091), t50930); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50931; return r14625; case NATIVE_PROCEDURE_TYPE22100: t50932 = FALSE_TYPE; t50933 = f17641((t50764.value.native_procedure_type22100), t50932); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50933; return r14625; case NATIVE_PROCEDURE_TYPE22102: t50934 = FALSE_TYPE; t50935 = f17640((t50764.value.native_procedure_type22102), t50934); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50935; return r14625; case NATIVE_PROCEDURE_TYPE22104: t50936 = FALSE_TYPE; t50937 = f17639((t50764.value.native_procedure_type22104), t50936); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50937; return r14625; case NATIVE_PROCEDURE_TYPE22106: t50938 = FALSE_TYPE; t50939 = f17491((t50764.value.native_procedure_type22106), t50938); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50939; return r14625; case NATIVE_PROCEDURE_TYPE22112: t50940 = FALSE_TYPE; t50941 = f17936((t50764.value.native_procedure_type22112), t50940); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50941; return r14625; case NATIVE_PROCEDURE_TYPE22117: t50942 = FALSE_TYPE; t50943 = f17957((t50764.value.native_procedure_type22117), t50942); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50943; return r14625; case NATIVE_PROCEDURE_TYPE22119: t50944 = FALSE_TYPE; t50945 = f17948((t50764.value.native_procedure_type22119), t50944); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50945; return r14625; case NATIVE_PROCEDURE_TYPE22124: t50946 = FALSE_TYPE; t50947 = f17976((t50764.value.native_procedure_type22124), t50946); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50947; return r14625; case NATIVE_PROCEDURE_TYPE22127: t50948 = FALSE_TYPE; t50949 = f17966((t50764.value.native_procedure_type22127), t50948); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50949; return r14625; case NATIVE_PROCEDURE_TYPE22130: t50950 = FALSE_TYPE; t50951 = f18033((t50764.value.native_procedure_type22130), t50950); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50951; return r14625; case NATIVE_PROCEDURE_TYPE22132: t50952 = FALSE_TYPE; t50953 = f18032((t50764.value.native_procedure_type22132), t50952); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50953; return r14625; case NATIVE_PROCEDURE_TYPE22135: t50954 = FALSE_TYPE; t50955 = f18008((t50764.value.native_procedure_type22135), t50954); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50955; return r14625; case NATIVE_PROCEDURE_TYPE22137: t50956 = FALSE_TYPE; t50957 = f17986((t50764.value.native_procedure_type22137), t50956); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50957; return r14625; case NATIVE_PROCEDURE_TYPE22139: t50958 = FALSE_TYPE; t50959 = f18072((t50764.value.native_procedure_type22139), t50958); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50959; return r14625; case NATIVE_PROCEDURE_TYPE22141: t50960 = FALSE_TYPE; t50961 = f18090((t50764.value.native_procedure_type22141), t50960); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50961; return r14625; case NATIVE_PROCEDURE_TYPE22143: t50962 = FALSE_TYPE; t50963 = f18081((t50764.value.native_procedure_type22143), t50962); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50963; return r14625; case NATIVE_PROCEDURE_TYPE22145: t50964 = FALSE_TYPE; t50965 = f18063((t50764.value.native_procedure_type22145), t50964); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50965; return r14625; case NATIVE_PROCEDURE_TYPE22148: t50966 = FALSE_TYPE; t50967 = f18121((t50764.value.native_procedure_type22148), t50966); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50967; return r14625; case NATIVE_PROCEDURE_TYPE22154: t50968 = FALSE_TYPE; t50969 = f18148((t50764.value.native_procedure_type22154), t50968); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50969; return r14625; case NATIVE_PROCEDURE_TYPE22160: t50970 = FALSE_TYPE; t50971 = f18135((t50764.value.native_procedure_type22160), t50970); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50971; return r14625; case NATIVE_PROCEDURE_TYPE22162: t50972 = FALSE_TYPE; t50973 = f18133((t50764.value.native_procedure_type22162), t50972); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50973; return r14625; case NATIVE_PROCEDURE_TYPE22165: t50974 = FALSE_TYPE; t50975 = f18042((t50764.value.native_procedure_type22165), t50974); r14625.tag = STRUCTURE_TYPE24753; r14625.value.structure_type24753 = t50975; return r14625; default: /* x297729 stalin.sc:23751:825832 */ /* x297728 stalin.sc:23751:825833 */ /* x303250 QobiScheme.sc:166:5314 */ /* x303249 QobiScheme.sc:166:5321 */ t50976 = "This shouldn\'t happen"; /* x303248 QobiScheme.sc:166:5315 */ stalin_panic(t50976);}} /* COMPILE-SQUEEZED-TYPE-SWITCH[14621] */ struct w49 f14621(struct w12224 a26012, struct w49 a26013, struct w49 a26014, struct w155919 a26015, struct w155916 a26016, unsigned a26017) {struct w49 r14621; struct p14621 *a26018; /* C */ struct w12224 a26020; /* US */ struct p14621 *t50981; struct p14621 *t50982; struct w12224 t50983; struct w228345 t50984; struct w49 t50985; struct structure_type24753 *t50986; struct w49 t50987; struct w211257 t50988; struct w12224 t50989; struct structure_type24753 *t50990; struct structure_type24753 *t50991; struct structure_type24753 *t50992; struct w49 t50993; unsigned t50994; struct w49 t50995; struct w49 t50996; struct w49 t50997; struct w12224 t50998; struct w36270 t50999; struct w49 t51000; struct structure_type24753 *t51001; struct p14621 *t51002; struct w12224 t51003; struct w36270 t51004; struct w49 t51005; struct structure_type24753 *t51006; struct w49 t51007; struct w211257 t51008; struct p14621 *t51009; struct w49 t51010; struct w49 t51011; struct structure_type24753 *t51012; struct w49 t51013; struct w49 t51014; unsigned t51015; struct w49 t51016; struct structure_type24753 *t51017; struct w49 t51018; char *t51019; struct w49 t51020; struct w49 t51021; struct p14621 *t51022; struct w49 t51023; struct w49 t51024; struct w211113 t51025; struct p14621 *t51026; struct w49 t51027; struct w49 t51028; struct w49 t51029; struct w211061 t51030; struct w12224 t51031; struct w228345 t51032; struct w49 t51033; struct structure_type24753 *t51034; struct w49 t51035; struct w12224 t51036; struct w49 t51037; struct w49 t51038; struct w155916 t51039; unsigned t51040; struct structure_type24753 *t51041; unsigned t51042; struct structure_type24753 *t51043; struct structure_type27501 *t51044; unsigned t51045; struct structure_type24753 *t51046; unsigned t51047; struct structure_type24753 *t51048; unsigned t51049; struct structure_type24753 *t51050; struct structure_type27501 *t51051; char *t51052; char *t51053; unsigned t51054; struct structure_type24753 *t51055; unsigned t51056; struct structure_type24753 *t51057; unsigned t51058; struct structure_type24753 *t51059; unsigned t51060; struct structure_type24753 *t51061; unsigned t51062; struct structure_type24753 *t51063; unsigned t51064; struct structure_type24753 *t51065; unsigned t51066; struct structure_type24753 *t51067; unsigned t51068; struct structure_type24753 *t51069; unsigned t51070; struct structure_type24753 *t51071; unsigned t51072; struct structure_type24753 *t51073; unsigned t51074; struct structure_type24753 *t51075; unsigned t51076; struct structure_type24753 *t51077; unsigned t51078; struct structure_type24753 *t51079; unsigned t51080; struct structure_type24753 *t51081; unsigned t51082; struct structure_type24753 *t51083; unsigned t51084; struct structure_type24753 *t51085; unsigned t51086; struct structure_type24753 *t51087; unsigned t51088; struct structure_type24753 *t51089; unsigned t51090; struct structure_type24753 *t51091; unsigned t51092; struct structure_type24753 *t51093; unsigned t51094; struct structure_type24753 *t51095; unsigned t51096; struct structure_type24753 *t51097; unsigned t51098; struct structure_type24753 *t51099; unsigned t51100; struct structure_type24753 *t51101; unsigned t51102; struct structure_type24753 *t51103; unsigned t51104; struct structure_type24753 *t51105; unsigned t51106; struct structure_type24753 *t51107; unsigned t51108; struct structure_type24753 *t51109; unsigned t51110; struct structure_type24753 *t51111; unsigned t51112; struct structure_type24753 *t51113; unsigned t51114; struct structure_type24753 *t51115; unsigned t51116; struct structure_type24753 *t51117; unsigned t51118; struct structure_type24753 *t51119; unsigned t51120; struct structure_type24753 *t51121; unsigned t51122; struct structure_type24753 *t51123; unsigned t51124; struct structure_type24753 *t51125; unsigned t51126; struct structure_type24753 *t51127; unsigned t51128; struct structure_type24753 *t51129; unsigned t51130; struct structure_type24753 *t51131; unsigned t51132; struct structure_type24753 *t51133; unsigned t51134; struct structure_type24753 *t51135; unsigned t51136; struct structure_type24753 *t51137; unsigned t51138; struct structure_type24753 *t51139; unsigned t51140; struct structure_type24753 *t51141; unsigned t51142; struct structure_type24753 *t51143; unsigned t51144; struct structure_type24753 *t51145; struct structure_type24753 *t51146; unsigned t51147; struct structure_type24753 *t51148; unsigned t51149; struct structure_type24753 *t51150; unsigned t51151; struct structure_type24753 *t51152; unsigned t51153; struct structure_type24753 *t51154; unsigned t51155; struct structure_type24753 *t51156; unsigned t51157; struct structure_type24753 *t51158; unsigned t51159; struct structure_type24753 *t51160; unsigned t51161; struct structure_type24753 *t51162; unsigned t51163; struct structure_type24753 *t51164; unsigned t51165; struct structure_type24753 *t51166; unsigned t51167; struct structure_type24753 *t51168; unsigned t51169; struct structure_type24753 *t51170; unsigned t51171; struct structure_type24753 *t51172; unsigned t51173; struct structure_type24753 *t51174; unsigned t51175; struct structure_type24753 *t51176; unsigned t51177; struct structure_type24753 *t51178; unsigned t51179; struct structure_type24753 *t51180; unsigned t51181; struct structure_type24753 *t51182; unsigned t51183; struct structure_type24753 *t51184; unsigned t51185; struct structure_type24753 *t51186; unsigned t51187; struct structure_type24753 *t51188; unsigned t51189; struct structure_type24753 *t51190; unsigned t51191; struct structure_type24753 *t51192; unsigned t51193; struct structure_type24753 *t51194; unsigned t51195; struct structure_type24753 *t51196; unsigned t51197; struct structure_type24753 *t51198; unsigned t51199; struct structure_type24753 *t51200; unsigned t51201; struct structure_type24753 *t51202; unsigned t51203; struct structure_type24753 *t51204; unsigned t51205; struct structure_type24753 *t51206; unsigned t51207; struct structure_type24753 *t51208; unsigned t51209; struct structure_type24753 *t51210; unsigned t51211; struct structure_type24753 *t51212; unsigned t51213; struct structure_type24753 *t51214; unsigned t51215; struct structure_type24753 *t51216; unsigned t51217; struct structure_type24753 *t51218; unsigned t51219; struct structure_type24753 *t51220; unsigned t51221; struct structure_type24753 *t51222; unsigned t51223; struct structure_type24753 *t51224; unsigned t51225; struct structure_type24753 *t51226; unsigned t51227; struct structure_type24753 *t51228; unsigned t51229; struct structure_type24753 *t51230; unsigned t51231; struct structure_type24753 *t51232; unsigned t51233; struct structure_type24753 *t51234; unsigned t51235; struct structure_type24753 *t51236; unsigned t51237; struct structure_type24753 *t51238; unsigned t51239; struct structure_type24753 *t51240; unsigned t51241; struct structure_type24753 *t51242; unsigned t51243; struct structure_type24753 *t51244; unsigned t51245; struct structure_type24753 *t51246; unsigned t51247; struct structure_type24753 *t51248; unsigned t51249; struct structure_type24753 *t51250; char *t51251; struct structure_type24753 *t51252; struct w49 t51253; struct w49 t51254; unsigned t51255; struct w49 t51256; struct structure_type24753 *t51257; struct w49 t51258; char *t51259; struct w49 t51260; struct w49 t51261; struct w155919 t51262; struct w49 t51263; struct structure_type24753 *t51264; struct structure_type24753 *t51265; struct w49 t51266; struct w155916 t51267; unsigned t51268; struct structure_type24753 *t51269; unsigned t51270; struct structure_type24753 *t51271; struct structure_type27501 *t51272; unsigned t51273; struct structure_type24753 *t51274; unsigned t51275; struct structure_type24753 *t51276; unsigned t51277; struct structure_type24753 *t51278; struct structure_type27501 *t51279; char *t51280; char *t51281; unsigned t51282; struct structure_type24753 *t51283; unsigned t51284; struct structure_type24753 *t51285; unsigned t51286; struct structure_type24753 *t51287; unsigned t51288; struct structure_type24753 *t51289; unsigned t51290; struct structure_type24753 *t51291; unsigned t51292; struct structure_type24753 *t51293; unsigned t51294; struct structure_type24753 *t51295; unsigned t51296; struct structure_type24753 *t51297; unsigned t51298; struct structure_type24753 *t51299; unsigned t51300; struct structure_type24753 *t51301; unsigned t51302; struct structure_type24753 *t51303; unsigned t51304; struct structure_type24753 *t51305; unsigned t51306; struct structure_type24753 *t51307; unsigned t51308; struct structure_type24753 *t51309; unsigned t51310; struct structure_type24753 *t51311; unsigned t51312; struct structure_type24753 *t51313; unsigned t51314; struct structure_type24753 *t51315; unsigned t51316; struct structure_type24753 *t51317; unsigned t51318; struct structure_type24753 *t51319; unsigned t51320; struct structure_type24753 *t51321; unsigned t51322; struct structure_type24753 *t51323; unsigned t51324; struct structure_type24753 *t51325; unsigned t51326; struct structure_type24753 *t51327; unsigned t51328; struct structure_type24753 *t51329; unsigned t51330; struct structure_type24753 *t51331; unsigned t51332; struct structure_type24753 *t51333; unsigned t51334; struct structure_type24753 *t51335; unsigned t51336; struct structure_type24753 *t51337; unsigned t51338; struct structure_type24753 *t51339; unsigned t51340; struct structure_type24753 *t51341; unsigned t51342; struct structure_type24753 *t51343; unsigned t51344; struct structure_type24753 *t51345; unsigned t51346; struct structure_type24753 *t51347; unsigned t51348; struct structure_type24753 *t51349; unsigned t51350; struct structure_type24753 *t51351; unsigned t51352; struct structure_type24753 *t51353; unsigned t51354; struct structure_type24753 *t51355; unsigned t51356; struct structure_type24753 *t51357; unsigned t51358; struct structure_type24753 *t51359; unsigned t51360; struct structure_type24753 *t51361; unsigned t51362; struct structure_type24753 *t51363; unsigned t51364; struct structure_type24753 *t51365; unsigned t51366; struct structure_type24753 *t51367; unsigned t51368; struct structure_type24753 *t51369; unsigned t51370; struct structure_type24753 *t51371; unsigned t51372; struct structure_type24753 *t51373; struct structure_type24753 *t51374; unsigned t51375; struct structure_type24753 *t51376; unsigned t51377; struct structure_type24753 *t51378; unsigned t51379; struct structure_type24753 *t51380; unsigned t51381; struct structure_type24753 *t51382; unsigned t51383; struct structure_type24753 *t51384; unsigned t51385; struct structure_type24753 *t51386; unsigned t51387; struct structure_type24753 *t51388; unsigned t51389; struct structure_type24753 *t51390; unsigned t51391; struct structure_type24753 *t51392; unsigned t51393; struct structure_type24753 *t51394; unsigned t51395; struct structure_type24753 *t51396; unsigned t51397; struct structure_type24753 *t51398; unsigned t51399; struct structure_type24753 *t51400; unsigned t51401; struct structure_type24753 *t51402; unsigned t51403; struct structure_type24753 *t51404; unsigned t51405; struct structure_type24753 *t51406; unsigned t51407; struct structure_type24753 *t51408; unsigned t51409; struct structure_type24753 *t51410; unsigned t51411; struct structure_type24753 *t51412; unsigned t51413; struct structure_type24753 *t51414; unsigned t51415; struct structure_type24753 *t51416; unsigned t51417; struct structure_type24753 *t51418; unsigned t51419; struct structure_type24753 *t51420; unsigned t51421; struct structure_type24753 *t51422; unsigned t51423; struct structure_type24753 *t51424; unsigned t51425; struct structure_type24753 *t51426; unsigned t51427; struct structure_type24753 *t51428; unsigned t51429; struct structure_type24753 *t51430; unsigned t51431; struct structure_type24753 *t51432; unsigned t51433; struct structure_type24753 *t51434; unsigned t51435; struct structure_type24753 *t51436; unsigned t51437; struct structure_type24753 *t51438; unsigned t51439; struct structure_type24753 *t51440; unsigned t51441; struct structure_type24753 *t51442; unsigned t51443; struct structure_type24753 *t51444; unsigned t51445; struct structure_type24753 *t51446; unsigned t51447; struct structure_type24753 *t51448; unsigned t51449; struct structure_type24753 *t51450; unsigned t51451; struct structure_type24753 *t51452; unsigned t51453; struct structure_type24753 *t51454; unsigned t51455; struct structure_type24753 *t51456; unsigned t51457; struct structure_type24753 *t51458; unsigned t51459; struct structure_type24753 *t51460; unsigned t51461; struct structure_type24753 *t51462; unsigned t51463; struct structure_type24753 *t51464; unsigned t51465; struct structure_type24753 *t51466; unsigned t51467; struct structure_type24753 *t51468; unsigned t51469; struct structure_type24753 *t51470; unsigned t51471; struct structure_type24753 *t51472; unsigned t51473; struct structure_type24753 *t51474; unsigned t51475; struct structure_type24753 *t51476; unsigned t51477; struct structure_type24753 *t51478; char *t51479; struct w49 t51480; struct w12224 t51481; struct w49 t51482; struct w49 t51483; struct structure_type24753 *t51484; struct w49 t51485; struct w49 t51486; unsigned t51487; struct w49 t51488; struct structure_type24753 *t51489; struct w49 t51490; char *t51491; struct w49 t51492; struct w49 t51493; struct w155919 t51494; struct w49 t51495; struct structure_type24753 *t51496; struct structure_type24753 *t51497; struct w49 t51498; struct w211113 t51499; struct w155916 t51500; unsigned t51501; struct structure_type24753 *t51502; unsigned t51503; struct structure_type24753 *t51504; struct structure_type27501 *t51505; unsigned t51506; struct structure_type24753 *t51507; unsigned t51508; struct structure_type24753 *t51509; unsigned t51510; struct structure_type24753 *t51511; struct structure_type27501 *t51512; char *t51513; char *t51514; unsigned t51515; struct structure_type24753 *t51516; unsigned t51517; struct structure_type24753 *t51518; unsigned t51519; struct structure_type24753 *t51520; unsigned t51521; struct structure_type24753 *t51522; unsigned t51523; struct structure_type24753 *t51524; unsigned t51525; struct structure_type24753 *t51526; unsigned t51527; struct structure_type24753 *t51528; unsigned t51529; struct structure_type24753 *t51530; unsigned t51531; struct structure_type24753 *t51532; unsigned t51533; struct structure_type24753 *t51534; unsigned t51535; struct structure_type24753 *t51536; unsigned t51537; struct structure_type24753 *t51538; unsigned t51539; struct structure_type24753 *t51540; unsigned t51541; struct structure_type24753 *t51542; unsigned t51543; struct structure_type24753 *t51544; unsigned t51545; struct structure_type24753 *t51546; unsigned t51547; struct structure_type24753 *t51548; unsigned t51549; struct structure_type24753 *t51550; unsigned t51551; struct structure_type24753 *t51552; unsigned t51553; struct structure_type24753 *t51554; unsigned t51555; struct structure_type24753 *t51556; unsigned t51557; struct structure_type24753 *t51558; unsigned t51559; struct structure_type24753 *t51560; unsigned t51561; struct structure_type24753 *t51562; unsigned t51563; struct structure_type24753 *t51564; unsigned t51565; struct structure_type24753 *t51566; unsigned t51567; struct structure_type24753 *t51568; unsigned t51569; struct structure_type24753 *t51570; unsigned t51571; struct structure_type24753 *t51572; unsigned t51573; struct structure_type24753 *t51574; unsigned t51575; struct structure_type24753 *t51576; unsigned t51577; struct structure_type24753 *t51578; unsigned t51579; struct structure_type24753 *t51580; unsigned t51581; struct structure_type24753 *t51582; unsigned t51583; struct structure_type24753 *t51584; unsigned t51585; struct structure_type24753 *t51586; unsigned t51587; struct structure_type24753 *t51588; unsigned t51589; struct structure_type24753 *t51590; unsigned t51591; struct structure_type24753 *t51592; unsigned t51593; struct structure_type24753 *t51594; unsigned t51595; struct structure_type24753 *t51596; unsigned t51597; struct structure_type24753 *t51598; unsigned t51599; struct structure_type24753 *t51600; unsigned t51601; struct structure_type24753 *t51602; unsigned t51603; struct structure_type24753 *t51604; unsigned t51605; struct structure_type24753 *t51606; struct structure_type24753 *t51607; unsigned t51608; struct structure_type24753 *t51609; unsigned t51610; struct structure_type24753 *t51611; unsigned t51612; struct structure_type24753 *t51613; unsigned t51614; struct structure_type24753 *t51615; unsigned t51616; struct structure_type24753 *t51617; unsigned t51618; struct structure_type24753 *t51619; unsigned t51620; struct structure_type24753 *t51621; unsigned t51622; struct structure_type24753 *t51623; unsigned t51624; struct structure_type24753 *t51625; unsigned t51626; struct structure_type24753 *t51627; unsigned t51628; struct structure_type24753 *t51629; unsigned t51630; struct structure_type24753 *t51631; unsigned t51632; struct structure_type24753 *t51633; unsigned t51634; struct structure_type24753 *t51635; unsigned t51636; struct structure_type24753 *t51637; unsigned t51638; struct structure_type24753 *t51639; unsigned t51640; struct structure_type24753 *t51641; unsigned t51642; struct structure_type24753 *t51643; unsigned t51644; struct structure_type24753 *t51645; unsigned t51646; struct structure_type24753 *t51647; unsigned t51648; struct structure_type24753 *t51649; unsigned t51650; struct structure_type24753 *t51651; unsigned t51652; struct structure_type24753 *t51653; unsigned t51654; struct structure_type24753 *t51655; unsigned t51656; struct structure_type24753 *t51657; unsigned t51658; struct structure_type24753 *t51659; unsigned t51660; struct structure_type24753 *t51661; unsigned t51662; struct structure_type24753 *t51663; unsigned t51664; struct structure_type24753 *t51665; unsigned t51666; struct structure_type24753 *t51667; unsigned t51668; struct structure_type24753 *t51669; unsigned t51670; struct structure_type24753 *t51671; unsigned t51672; struct structure_type24753 *t51673; unsigned t51674; struct structure_type24753 *t51675; unsigned t51676; struct structure_type24753 *t51677; unsigned t51678; struct structure_type24753 *t51679; unsigned t51680; struct structure_type24753 *t51681; unsigned t51682; struct structure_type24753 *t51683; unsigned t51684; struct structure_type24753 *t51685; unsigned t51686; struct structure_type24753 *t51687; unsigned t51688; struct structure_type24753 *t51689; unsigned t51690; struct structure_type24753 *t51691; unsigned t51692; struct structure_type24753 *t51693; unsigned t51694; struct structure_type24753 *t51695; unsigned t51696; struct structure_type24753 *t51697; unsigned t51698; struct structure_type24753 *t51699; unsigned t51700; struct structure_type24753 *t51701; unsigned t51702; struct structure_type24753 *t51703; unsigned t51704; struct structure_type24753 *t51705; unsigned t51706; struct structure_type24753 *t51707; unsigned t51708; struct structure_type24753 *t51709; unsigned t51710; struct structure_type24753 *t51711; char *t51712; struct structure_type24753 *t51713; struct w49 t51714; struct w49 t51715; unsigned t51716; struct w49 t51717; struct structure_type24753 *t51718; struct w49 t51719; char *t51720; struct w49 t51721; struct w49 t51722; struct w155919 t51723; struct w49 t51724; struct structure_type24753 *t51725; struct structure_type24753 *t51726; struct w49 t51727; struct w211113 t51728; struct structure_type24753 *t51729; struct w49 t51730; struct w49 t51731; unsigned t51732; struct w49 t51733; struct structure_type24753 *t51734; struct w49 t51735; char *t51736; struct w49 t51737; struct w49 t51738; struct w155919 t51739; struct w49 t51740; struct structure_type24753 *t51741; struct structure_type24753 *t51742; struct w49 t51743; struct w155916 t51744; unsigned t51745; struct structure_type24753 *t51746; unsigned t51747; struct structure_type24753 *t51748; struct structure_type27501 *t51749; unsigned t51750; struct structure_type24753 *t51751; unsigned t51752; struct structure_type24753 *t51753; unsigned t51754; struct structure_type24753 *t51755; struct structure_type27501 *t51756; char *t51757; char *t51758; unsigned t51759; struct structure_type24753 *t51760; unsigned t51761; struct structure_type24753 *t51762; unsigned t51763; struct structure_type24753 *t51764; unsigned t51765; struct structure_type24753 *t51766; unsigned t51767; struct structure_type24753 *t51768; unsigned t51769; struct structure_type24753 *t51770; unsigned t51771; struct structure_type24753 *t51772; unsigned t51773; struct structure_type24753 *t51774; unsigned t51775; struct structure_type24753 *t51776; unsigned t51777; struct structure_type24753 *t51778; unsigned t51779; struct structure_type24753 *t51780; unsigned t51781; struct structure_type24753 *t51782; unsigned t51783; struct structure_type24753 *t51784; unsigned t51785; struct structure_type24753 *t51786; unsigned t51787; struct structure_type24753 *t51788; unsigned t51789; struct structure_type24753 *t51790; unsigned t51791; struct structure_type24753 *t51792; unsigned t51793; struct structure_type24753 *t51794; unsigned t51795; struct structure_type24753 *t51796; unsigned t51797; struct structure_type24753 *t51798; unsigned t51799; struct structure_type24753 *t51800; unsigned t51801; struct structure_type24753 *t51802; unsigned t51803; struct structure_type24753 *t51804; unsigned t51805; struct structure_type24753 *t51806; unsigned t51807; struct structure_type24753 *t51808; unsigned t51809; struct structure_type24753 *t51810; unsigned t51811; struct structure_type24753 *t51812; unsigned t51813; struct structure_type24753 *t51814; unsigned t51815; struct structure_type24753 *t51816; unsigned t51817; struct structure_type24753 *t51818; unsigned t51819; struct structure_type24753 *t51820; unsigned t51821; struct structure_type24753 *t51822; unsigned t51823; struct structure_type24753 *t51824; unsigned t51825; struct structure_type24753 *t51826; unsigned t51827; struct structure_type24753 *t51828; unsigned t51829; struct structure_type24753 *t51830; unsigned t51831; struct structure_type24753 *t51832; unsigned t51833; struct structure_type24753 *t51834; unsigned t51835; struct structure_type24753 *t51836; unsigned t51837; struct structure_type24753 *t51838; unsigned t51839; struct structure_type24753 *t51840; unsigned t51841; struct structure_type24753 *t51842; unsigned t51843; struct structure_type24753 *t51844; unsigned t51845; struct structure_type24753 *t51846; unsigned t51847; struct structure_type24753 *t51848; unsigned t51849; struct structure_type24753 *t51850; struct structure_type24753 *t51851; unsigned t51852; struct structure_type24753 *t51853; unsigned t51854; struct structure_type24753 *t51855; unsigned t51856; struct structure_type24753 *t51857; unsigned t51858; struct structure_type24753 *t51859; unsigned t51860; struct structure_type24753 *t51861; unsigned t51862; struct structure_type24753 *t51863; unsigned t51864; struct structure_type24753 *t51865; unsigned t51866; struct structure_type24753 *t51867; unsigned t51868; struct structure_type24753 *t51869; unsigned t51870; struct structure_type24753 *t51871; unsigned t51872; struct structure_type24753 *t51873; unsigned t51874; struct structure_type24753 *t51875; unsigned t51876; struct structure_type24753 *t51877; unsigned t51878; struct structure_type24753 *t51879; unsigned t51880; struct structure_type24753 *t51881; unsigned t51882; struct structure_type24753 *t51883; unsigned t51884; struct structure_type24753 *t51885; unsigned t51886; struct structure_type24753 *t51887; unsigned t51888; struct structure_type24753 *t51889; unsigned t51890; struct structure_type24753 *t51891; unsigned t51892; struct structure_type24753 *t51893; unsigned t51894; struct structure_type24753 *t51895; unsigned t51896; struct structure_type24753 *t51897; unsigned t51898; struct structure_type24753 *t51899; unsigned t51900; struct structure_type24753 *t51901; unsigned t51902; struct structure_type24753 *t51903; unsigned t51904; struct structure_type24753 *t51905; unsigned t51906; struct structure_type24753 *t51907; unsigned t51908; struct structure_type24753 *t51909; unsigned t51910; struct structure_type24753 *t51911; unsigned t51912; struct structure_type24753 *t51913; unsigned t51914; struct structure_type24753 *t51915; unsigned t51916; struct structure_type24753 *t51917; unsigned t51918; struct structure_type24753 *t51919; unsigned t51920; struct structure_type24753 *t51921; unsigned t51922; struct structure_type24753 *t51923; unsigned t51924; struct structure_type24753 *t51925; unsigned t51926; struct structure_type24753 *t51927; unsigned t51928; struct structure_type24753 *t51929; unsigned t51930; struct structure_type24753 *t51931; unsigned t51932; struct structure_type24753 *t51933; unsigned t51934; struct structure_type24753 *t51935; unsigned t51936; struct structure_type24753 *t51937; unsigned t51938; struct structure_type24753 *t51939; unsigned t51940; struct structure_type24753 *t51941; unsigned t51942; struct structure_type24753 *t51943; unsigned t51944; struct structure_type24753 *t51945; unsigned t51946; struct structure_type24753 *t51947; unsigned t51948; struct structure_type24753 *t51949; unsigned t51950; struct structure_type24753 *t51951; unsigned t51952; struct structure_type24753 *t51953; unsigned t51954; struct structure_type24753 *t51955; char *t51956; struct p14621 *e14621; struct p14621 *p14622; struct p14621 *p14623; struct p16486 *p37499; struct p16486 *p37500; struct p16486 *p37501; struct p16486 *p37502; struct p14711 *p37518; struct p14711 *p37519; struct p14711 *p37520; struct p14711 *p37521; e14621 = (struct p14621 *)alloca(sizeof(struct p14621)); if (e14621==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e14621->a26012 = a26012; e14621->a26015 = a26015; e14621->a26016 = a26016; /* x132079 */ /* x132078 */ /* x132077 */ /* x132076 */ t50981 = e14621; p14622 = t50981; /* x132075 */ /* x132074 */ /* x132073 */ a26018 = p14622; /* x132061 */ t50982 = p14622; p14623 = t50982; /* x132060 stalin.sc:16635:581439 */ /* x131909 stalin.sc:16635:581443 */ /* x131903 stalin.sc:16635:581448 */ /* x131902 stalin.sc:16635:581453 */ /* x131901 stalin.sc:16635:581471 */ t50983 = p14623->a26012; /* x131900 stalin.sc:16635:581459 */ /* x131899 stalin.sc:16635:581454 */ t50984.tag = NATIVE_PROCEDURE_TYPE7232; t50985 = *((struct w49 *)(&t50983)); t50986 = (struct structure_type24753 *)NULL_TYPE; if (!((f1042(t50984, t50985, t50986).tag)==FALSE_TYPE)) goto l7363; /* x131907 */ /* x131905 stalin.sc:16635:581485 */ /* x131906 stalin.sc:16635:581497 */ t50987 = a26013; /* x131904 stalin.sc:16635:581477 */ t50988.tag = NATIVE_PROCEDURE_TYPE7232; if ((f8137(t50988, t50987).tag)==FALSE_TYPE) goto l7363; /* x132006 stalin.sc:16636:581506 */ /* x131913 stalin.sc:16636:581510 */ /* x131912 stalin.sc:16636:581527 */ t51031 = p14623->a26012; /* x131911 stalin.sc:16636:581516 */ /* x131910 stalin.sc:16636:581511 */ t51032.tag = NATIVE_PROCEDURE_TYPE7431; t51033 = *((struct w49 *)(&t51031)); t51034 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t51032, t51033, t51034).tag)==FALSE_TYPE) goto l7369; /* x131976 stalin.sc:16637:581533 */ /* x131919 stalin.sc:16637:581537 */ /* x131917 stalin.sc:16637:581543 */ /* x131916 stalin.sc:16637:581560 */ t51483 = a26013; /* x131915 stalin.sc:16637:581544 */ t51480 = f13854(t51483); /* x131918 stalin.sc:16637:581563 */ t51481 = p14623->a26012; /* x131914 stalin.sc:16637:581538 */ t51482 = *((struct w49 *)(&t51481)); if ((f26351(t51480, t51482).tag)==FALSE_TYPE) goto l7373; /* x131955 stalin.sc:16638:581573 */ /* x131928 stalin.sc:16638:581579 */ /* x131922 stalin.sc:16638:581584 */ t51717 = a26014; /* x131927 stalin.sc:16638:581587 */ /* x131925 stalin.sc:16638:581604 */ /* x131924 stalin.sc:16638:581605 */ /* x276343 stalin.sc:16169:562645 */ t51720 = "CHAR_OFFSET"; /* x131926 stalin.sc:16638:581620 */ t51721 = a26013; /* x131923 stalin.sc:16638:581588 */ t51722.tag = STRING_TYPE; t51722.value.string_type = t51720; t51718 = f14422(t51722, t51721); /* x131921 stalin.sc:16638:581580 */ t51719.tag = STRUCTURE_TYPE24753; t51719.value.structure_type24753 = t51718; t51713 = f13601(t51717, t51719); /* x131934 stalin.sc:16639:581629 */ /* x131933 stalin.sc:16639:581633 */ /* x131931 stalin.sc:16639:581650 */ /* x131932 stalin.sc:16639:581661 */ t51727 = a26013; /* x131930 stalin.sc:16639:581634 */ t51728.tag = NATIVE_PROCEDURE_TYPE7431; t51724 = f8157(t51728, t51727); /* x131929 stalin.sc:16639:581630 */ t51723 = p14623->a26015; switch (t51723.tag) {case NATIVE_PROCEDURE_TYPE20758: d16096 = t51723.value.native_procedure_type20758; b27143 = t51724; t51714 = f16096(); break; case NATIVE_PROCEDURE_TYPE20783: d15771 = t51723.value.native_procedure_type20783; b26894 = t51724; t51714 = f15771(); break; case NATIVE_PROCEDURE_TYPE20851: t51714 = f14712(t51723.value.native_procedure_type20851); break; case NATIVE_PROCEDURE_TYPE20914: t51714 = f16432((t51723.value.native_procedure_type20914), t51724); break; case NATIVE_PROCEDURE_TYPE20916: t51714 = f16416((t51723.value.native_procedure_type20916), t51724); break; case NATIVE_PROCEDURE_TYPE20919: t51714 = f16631((t51723.value.native_procedure_type20919), t51724); break; case NATIVE_PROCEDURE_TYPE20928: t51714 = f16597((t51723.value.native_procedure_type20928), t51724); break; case NATIVE_PROCEDURE_TYPE21037: t51714 = f16700((t51723.value.native_procedure_type21037), t51724); break; case NATIVE_PROCEDURE_TYPE21043: t51714 = f16678((t51723.value.native_procedure_type21043), t51724); break; case NATIVE_PROCEDURE_TYPE21049: t51714 = f16736((t51723.value.native_procedure_type21049), t51724); break; case NATIVE_PROCEDURE_TYPE21060: d15570 = t51723.value.native_procedure_type21060; b26729 = t51724; t51714 = f15570(); break; case NATIVE_PROCEDURE_TYPE21066: t51714 = f16821((t51723.value.native_procedure_type21066), t51724); break; case NATIVE_PROCEDURE_TYPE21083: t51714 = f16720((t51723.value.native_procedure_type21083), t51724); break; case NATIVE_PROCEDURE_TYPE21088: t51714 = f16646((t51723.value.native_procedure_type21088), t51724); break; case NATIVE_PROCEDURE_TYPE21091: t51714 = f16853((t51723.value.native_procedure_type21091), t51724); break; case NATIVE_PROCEDURE_TYPE21109: d15579 = t51723.value.native_procedure_type21109; b26749 = t51724; t51714 = f15579(); break; case NATIVE_PROCEDURE_TYPE21111: t51714 = f16908((t51723.value.native_procedure_type21111), t51724); break; case NATIVE_PROCEDURE_TYPE21118: t51714 = f16880((t51723.value.native_procedure_type21118), t51724); break; case NATIVE_PROCEDURE_TYPE21138: t51714 = f16981((t51723.value.native_procedure_type21138), t51724); break; case NATIVE_PROCEDURE_TYPE21148: t51714 = f17057((t51723.value.native_procedure_type21148), t51724); break; case NATIVE_PROCEDURE_TYPE21153: d17117 = t51723.value.native_procedure_type21153; b29067 = t51724; t51714 = f17117(); break; case NATIVE_PROCEDURE_TYPE21155: t51714 = f17118((t51723.value.native_procedure_type21155), t51724); break; case NATIVE_PROCEDURE_TYPE21171: d17084 = t51723.value.native_procedure_type21171; b29016 = t51724; t51714 = f17084(); break; case NATIVE_PROCEDURE_TYPE21173: t51714 = f17085((t51723.value.native_procedure_type21173), t51724); break; case NATIVE_PROCEDURE_TYPE21202: t51714 = f17018((t51723.value.native_procedure_type21202), t51724); break; case NATIVE_PROCEDURE_TYPE21226: t51714 = f16940((t51723.value.native_procedure_type21226), t51724); break; case NATIVE_PROCEDURE_TYPE21229: t51714 = f16839((t51723.value.native_procedure_type21229), t51724); break; case NATIVE_PROCEDURE_TYPE21235: d17183 = t51723.value.native_procedure_type21235; b29169 = t51724; t51714 = f17183(); break; case NATIVE_PROCEDURE_TYPE21237: t51714 = f17184((t51723.value.native_procedure_type21237), t51724); break; case NATIVE_PROCEDURE_TYPE21257: t51714 = f17221((t51723.value.native_procedure_type21257), t51724); break; case NATIVE_PROCEDURE_TYPE21260: t51714 = f17208((t51723.value.native_procedure_type21260), t51724); break; case NATIVE_PROCEDURE_TYPE21266: t51714 = f17253((t51723.value.native_procedure_type21266), t51724); break; case NATIVE_PROCEDURE_TYPE21269: t51714 = f17290((t51723.value.native_procedure_type21269), t51724); break; case NATIVE_PROCEDURE_TYPE21275: t51714 = f17328((t51723.value.native_procedure_type21275), t51724); break; case NATIVE_PROCEDURE_TYPE21281: t51714 = f17309((t51723.value.native_procedure_type21281), t51724); break; case NATIVE_PROCEDURE_TYPE21287: t51714 = f17271((t51723.value.native_procedure_type21287), t51724); break; case NATIVE_PROCEDURE_TYPE21297: t51714 = f17237((t51723.value.native_procedure_type21297), t51724); break; case NATIVE_PROCEDURE_TYPE21300: t51714 = f17353((t51723.value.native_procedure_type21300), t51724); break; case NATIVE_PROCEDURE_TYPE21305: t51714 = f17377((t51723.value.native_procedure_type21305), t51724); break; case NATIVE_PROCEDURE_TYPE21310: t51714 = f17365((t51723.value.native_procedure_type21310), t51724); break; case NATIVE_PROCEDURE_TYPE21315: t51714 = f17401((t51723.value.native_procedure_type21315), t51724); break; case NATIVE_PROCEDURE_TYPE21320: d17431 = t51723.value.native_procedure_type21320; b29911 = t51724; t51714 = f17431(); break; case NATIVE_PROCEDURE_TYPE21325: t51714 = f17433((t51723.value.native_procedure_type21325), t51724); break; case NATIVE_PROCEDURE_TYPE21330: t51714 = f17426((t51723.value.native_procedure_type21330), t51724); break; case NATIVE_PROCEDURE_TYPE21335: t51714 = f17413((t51723.value.native_procedure_type21335), t51724); break; case NATIVE_PROCEDURE_TYPE21340: d17465 = t51723.value.native_procedure_type21340; b30003 = t51724; t51714 = f17465(); break; case NATIVE_PROCEDURE_TYPE21342: t51714 = f17466((t51723.value.native_procedure_type21342), t51724); break; case NATIVE_PROCEDURE_TYPE21349: t51714 = f17448((t51723.value.native_procedure_type21349), t51724); break; case NATIVE_PROCEDURE_TYPE21354: t51714 = f17389((t51723.value.native_procedure_type21354), t51724); break; case NATIVE_PROCEDURE_TYPE21359: t51714 = f17341((t51723.value.native_procedure_type21359), t51724); break; case NATIVE_PROCEDURE_TYPE21364: d17150 = t51723.value.native_procedure_type21364; b29118 = t51724; t51714 = f17150(); break; case NATIVE_PROCEDURE_TYPE21366: t51714 = f17151((t51723.value.native_procedure_type21366), t51724); break; case NATIVE_PROCEDURE_TYPE21382: t51714 = f17499((t51723.value.native_procedure_type21382), t51724); break; case NATIVE_PROCEDURE_TYPE21388: t51714 = f17524((t51723.value.native_procedure_type21388), t51724); break; case NATIVE_PROCEDURE_TYPE21394: d17598 = t51723.value.native_procedure_type21394; b30396 = t51724; t51714 = f17598(); break; case NATIVE_PROCEDURE_TYPE21415: t51725 = f19627(t51724); t51714.tag = STRUCTURE_TYPE24753; t51714.value.structure_type24753 = t51725; break; case NATIVE_PROCEDURE_TYPE21897: t51714 = f15811((t51723.value.native_procedure_type21897), t51724); break; case NATIVE_PROCEDURE_TYPE21904: /* x298268 stalin.sc:19531:682748 */ /* x298267 stalin.sc:19531:682749 */ /* x303554 stalin.sc:14693:514793 */ t51714.tag = STRING_TYPE; t51714.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21945: d17625 = t51723.value.native_procedure_type21945; b30489 = t51724; t51714 = f17625(); break; case NATIVE_PROCEDURE_TYPE21947: t51714 = f17626((t51723.value.native_procedure_type21947), t51724); break; case NATIVE_PROCEDURE_TYPE21949: t51714 = f17612((t51723.value.native_procedure_type21949), t51724); break; case NATIVE_PROCEDURE_TYPE21953: d17572 = t51723.value.native_procedure_type21953; b30333 = t51724; t51714 = f17572(); break; case NATIVE_PROCEDURE_TYPE21957: t51714 = f17573((t51723.value.native_procedure_type21957), t51724); break; case NATIVE_PROCEDURE_TYPE21962: d17566 = t51723.value.native_procedure_type21962; t51714 = f17566(); break; case NATIVE_PROCEDURE_TYPE21964: t51714 = f17567(t51723.value.native_procedure_type21964); break; case NATIVE_PROCEDURE_TYPE21967: d17561 = t51723.value.native_procedure_type21967; t51714 = f17561(); break; case NATIVE_PROCEDURE_TYPE21969: t51714 = f17562(t51723.value.native_procedure_type21969); break; case NATIVE_PROCEDURE_TYPE21972: d17556 = t51723.value.native_procedure_type21972; t51714 = f17556(); break; case NATIVE_PROCEDURE_TYPE21974: /* x297834 stalin.sc:23400:816144 */ /* x297833 stalin.sc:23400:816145 */ /* x303330 stalin.sc:14693:514793 */ t51714.tag = STRING_TYPE; t51714.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21976: t51714 = f17533((t51723.value.native_procedure_type21976), t51724); break; case NATIVE_PROCEDURE_TYPE21979: d17706 = t51723.value.native_procedure_type21979; b30702 = t51724; t51714 = f17706(); break; case NATIVE_PROCEDURE_TYPE21983: d17708 = t51723.value.native_procedure_type21983; b30704 = t51724; t51714 = f17708(); break; case NATIVE_PROCEDURE_TYPE21985: t51714 = f17709((t51723.value.native_procedure_type21985), t51724); break; case NATIVE_PROCEDURE_TYPE21998: t51714 = f17688((t51723.value.native_procedure_type21998), t51724); break; case NATIVE_PROCEDURE_TYPE22001: t51714 = f17681(t51723.value.native_procedure_type22001); break; case NATIVE_PROCEDURE_TYPE22004: t51714 = f17678(t51723.value.native_procedure_type22004); break; case NATIVE_PROCEDURE_TYPE22007: /* x297771 stalin.sc:23690:824240 */ /* x297770 stalin.sc:23690:824241 */ /* x303296 stalin.sc:14693:514793 */ t51714.tag = STRING_TYPE; t51714.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22009: t51714 = f17760((t51723.value.native_procedure_type22009), t51724); break; case NATIVE_PROCEDURE_TYPE22011: d17804 = t51723.value.native_procedure_type22011; b30911 = t51724; t51714 = f17804(); break; case NATIVE_PROCEDURE_TYPE22013: t51714 = f17805((t51723.value.native_procedure_type22013), t51724); break; case NATIVE_PROCEDURE_TYPE22015: d17784 = t51723.value.native_procedure_type22015; b30860 = t51724; t51714 = f17784(); break; case NATIVE_PROCEDURE_TYPE22017: t51714 = f17785((t51723.value.native_procedure_type22017), t51724); break; case NATIVE_PROCEDURE_TYPE22038: d17840 = t51723.value.native_procedure_type22038; b31010 = t51724; t51714 = f17840(); break; case NATIVE_PROCEDURE_TYPE22065: d15900 = t51723.value.native_procedure_type22065; b27021 = t51724; t51714 = f15900(); break; case NATIVE_PROCEDURE_TYPE22073: d15885 = t51723.value.native_procedure_type22073; b27015 = t51724; t51714 = f15885(); break; case NATIVE_PROCEDURE_TYPE22082: d17890 = t51723.value.native_procedure_type22082; b31082 = t51724; t51714 = f17890(); break; case NATIVE_PROCEDURE_TYPE22092: t51714 = f17878((t51723.value.native_procedure_type22092), t51724); break; case NATIVE_PROCEDURE_TYPE22101: d17636 = t51723.value.native_procedure_type22101; b30537 = t51724; t51714 = f17636(); break; case NATIVE_PROCEDURE_TYPE22103: t51714 = f17637((t51723.value.native_procedure_type22103), t51724); break; case NATIVE_PROCEDURE_TYPE22105: t51714 = f17638((t51723.value.native_procedure_type22105), t51724); break; case NATIVE_PROCEDURE_TYPE22107: t51714 = f17486((t51723.value.native_procedure_type22107), t51724); break; case NATIVE_PROCEDURE_TYPE22113: t51714 = f17932((t51723.value.native_procedure_type22113), t51724); break; case NATIVE_PROCEDURE_TYPE22118: t51714 = f17956((t51723.value.native_procedure_type22118), t51724); break; case NATIVE_PROCEDURE_TYPE22120: t51714 = f17944((t51723.value.native_procedure_type22120), t51724); break; case NATIVE_PROCEDURE_TYPE22125: t51714 = f17975((t51723.value.native_procedure_type22125), t51724); break; case NATIVE_PROCEDURE_TYPE22128: t51714 = f17965((t51723.value.native_procedure_type22128), t51724); break; case NATIVE_PROCEDURE_TYPE22131: d18030 = t51723.value.native_procedure_type22131; b31667 = t51724; t51714 = f18030(); break; case NATIVE_PROCEDURE_TYPE22133: t51714 = f18031((t51723.value.native_procedure_type22133), t51724); break; case NATIVE_PROCEDURE_TYPE22136: t51714 = f18007((t51723.value.native_procedure_type22136), t51724); break; case NATIVE_PROCEDURE_TYPE22138: t51714 = f17985((t51723.value.native_procedure_type22138), t51724); break; case NATIVE_PROCEDURE_TYPE22140: t51714 = f18071((t51723.value.native_procedure_type22140), t51724); break; case NATIVE_PROCEDURE_TYPE22142: t51714 = f18089((t51723.value.native_procedure_type22142), t51724); break; case NATIVE_PROCEDURE_TYPE22144: t51714 = f18080((t51723.value.native_procedure_type22144), t51724); break; case NATIVE_PROCEDURE_TYPE22146: t51714 = f18062((t51723.value.native_procedure_type22146), t51724); break; case NATIVE_PROCEDURE_TYPE22149: t51714 = f18120((t51723.value.native_procedure_type22149), t51724); break; case NATIVE_PROCEDURE_TYPE22155: d18147 = t51723.value.native_procedure_type22155; b32201 = t51724; t51714 = f18147(); break; case NATIVE_PROCEDURE_TYPE22161: d18134 = t51723.value.native_procedure_type22161; b32153 = t51724; t51714 = f18134(); break; case NATIVE_PROCEDURE_TYPE22163: d18132 = t51723.value.native_procedure_type22163; b32151 = t51724; t51714 = f18132(); break; case NATIVE_PROCEDURE_TYPE22166: t51726 = f18041((t51723.value.native_procedure_type22166), t51724); t51714.tag = STRUCTURE_TYPE24753; t51714.value.structure_type24753 = t51726; break; default: t51714 = f17689(t51723.value.native_procedure_type23298);} /* x131953 stalin.sc:16640:581670 */ /* x131943 stalin.sc:16640:581676 */ /* x131937 stalin.sc:16640:581682 */ t51733 = a26014; /* x131942 stalin.sc:16640:581685 */ /* x131940 stalin.sc:16640:581702 */ /* x131939 stalin.sc:16640:581703 */ /* x276369 stalin.sc:16167:562604 */ t51736 = "VALUE_OFFSET"; /* x131941 stalin.sc:16640:581719 */ t51737 = a26013; /* x131938 stalin.sc:16640:581686 */ t51738.tag = STRING_TYPE; t51738.value.string_type = t51736; t51734 = f14422(t51738, t51737); /* x131936 stalin.sc:16640:581677 */ t51735.tag = STRUCTURE_TYPE24753; t51735.value.structure_type24753 = t51734; t51729 = f13608(t51733, t51735); /* x131948 stalin.sc:16641:581727 */ /* x131947 stalin.sc:16641:581731 */ /* x131946 stalin.sc:16641:581748 */ t51743 = a26013; /* x131945 stalin.sc:16641:581732 */ t51740 = f13854(t51743); /* x131944 stalin.sc:16641:581728 */ t51739 = p14623->a26015; switch (t51739.tag) {case NATIVE_PROCEDURE_TYPE20758: d16096 = t51739.value.native_procedure_type20758; b27143 = t51740; t51730 = f16096(); break; case NATIVE_PROCEDURE_TYPE20783: d15771 = t51739.value.native_procedure_type20783; b26894 = t51740; t51730 = f15771(); break; case NATIVE_PROCEDURE_TYPE20851: t51730 = f14712(t51739.value.native_procedure_type20851); break; case NATIVE_PROCEDURE_TYPE20914: t51730 = f16432((t51739.value.native_procedure_type20914), t51740); break; case NATIVE_PROCEDURE_TYPE20916: t51730 = f16416((t51739.value.native_procedure_type20916), t51740); break; case NATIVE_PROCEDURE_TYPE20919: t51730 = f16631((t51739.value.native_procedure_type20919), t51740); break; case NATIVE_PROCEDURE_TYPE20928: t51730 = f16597((t51739.value.native_procedure_type20928), t51740); break; case NATIVE_PROCEDURE_TYPE21037: t51730 = f16700((t51739.value.native_procedure_type21037), t51740); break; case NATIVE_PROCEDURE_TYPE21043: t51730 = f16678((t51739.value.native_procedure_type21043), t51740); break; case NATIVE_PROCEDURE_TYPE21049: t51730 = f16736((t51739.value.native_procedure_type21049), t51740); break; case NATIVE_PROCEDURE_TYPE21060: d15570 = t51739.value.native_procedure_type21060; b26729 = t51740; t51730 = f15570(); break; case NATIVE_PROCEDURE_TYPE21066: t51730 = f16821((t51739.value.native_procedure_type21066), t51740); break; case NATIVE_PROCEDURE_TYPE21083: t51730 = f16720((t51739.value.native_procedure_type21083), t51740); break; case NATIVE_PROCEDURE_TYPE21088: t51730 = f16646((t51739.value.native_procedure_type21088), t51740); break; case NATIVE_PROCEDURE_TYPE21091: t51730 = f16853((t51739.value.native_procedure_type21091), t51740); break; case NATIVE_PROCEDURE_TYPE21109: d15579 = t51739.value.native_procedure_type21109; b26749 = t51740; t51730 = f15579(); break; case NATIVE_PROCEDURE_TYPE21111: t51730 = f16908((t51739.value.native_procedure_type21111), t51740); break; case NATIVE_PROCEDURE_TYPE21118: t51730 = f16880((t51739.value.native_procedure_type21118), t51740); break; case NATIVE_PROCEDURE_TYPE21138: t51730 = f16981((t51739.value.native_procedure_type21138), t51740); break; case NATIVE_PROCEDURE_TYPE21148: t51730 = f17057((t51739.value.native_procedure_type21148), t51740); break; case NATIVE_PROCEDURE_TYPE21153: d17117 = t51739.value.native_procedure_type21153; b29067 = t51740; t51730 = f17117(); break; case NATIVE_PROCEDURE_TYPE21155: t51730 = f17118((t51739.value.native_procedure_type21155), t51740); break; case NATIVE_PROCEDURE_TYPE21171: d17084 = t51739.value.native_procedure_type21171; b29016 = t51740; t51730 = f17084(); break; case NATIVE_PROCEDURE_TYPE21173: t51730 = f17085((t51739.value.native_procedure_type21173), t51740); break; case NATIVE_PROCEDURE_TYPE21202: t51730 = f17018((t51739.value.native_procedure_type21202), t51740); break; case NATIVE_PROCEDURE_TYPE21226: t51730 = f16940((t51739.value.native_procedure_type21226), t51740); break; case NATIVE_PROCEDURE_TYPE21229: t51730 = f16839((t51739.value.native_procedure_type21229), t51740); break; case NATIVE_PROCEDURE_TYPE21235: d17183 = t51739.value.native_procedure_type21235; b29169 = t51740; t51730 = f17183(); break; case NATIVE_PROCEDURE_TYPE21237: t51730 = f17184((t51739.value.native_procedure_type21237), t51740); break; case NATIVE_PROCEDURE_TYPE21257: t51730 = f17221((t51739.value.native_procedure_type21257), t51740); break; case NATIVE_PROCEDURE_TYPE21260: t51730 = f17208((t51739.value.native_procedure_type21260), t51740); break; case NATIVE_PROCEDURE_TYPE21266: t51730 = f17253((t51739.value.native_procedure_type21266), t51740); break; case NATIVE_PROCEDURE_TYPE21269: t51730 = f17290((t51739.value.native_procedure_type21269), t51740); break; case NATIVE_PROCEDURE_TYPE21275: t51730 = f17328((t51739.value.native_procedure_type21275), t51740); break; case NATIVE_PROCEDURE_TYPE21281: t51730 = f17309((t51739.value.native_procedure_type21281), t51740); break; case NATIVE_PROCEDURE_TYPE21287: t51730 = f17271((t51739.value.native_procedure_type21287), t51740); break; case NATIVE_PROCEDURE_TYPE21297: t51730 = f17237((t51739.value.native_procedure_type21297), t51740); break; case NATIVE_PROCEDURE_TYPE21300: t51730 = f17353((t51739.value.native_procedure_type21300), t51740); break; case NATIVE_PROCEDURE_TYPE21305: t51730 = f17377((t51739.value.native_procedure_type21305), t51740); break; case NATIVE_PROCEDURE_TYPE21310: t51730 = f17365((t51739.value.native_procedure_type21310), t51740); break; case NATIVE_PROCEDURE_TYPE21315: t51730 = f17401((t51739.value.native_procedure_type21315), t51740); break; case NATIVE_PROCEDURE_TYPE21320: d17431 = t51739.value.native_procedure_type21320; b29911 = t51740; t51730 = f17431(); break; case NATIVE_PROCEDURE_TYPE21325: t51730 = f17433((t51739.value.native_procedure_type21325), t51740); break; case NATIVE_PROCEDURE_TYPE21330: t51730 = f17426((t51739.value.native_procedure_type21330), t51740); break; case NATIVE_PROCEDURE_TYPE21335: t51730 = f17413((t51739.value.native_procedure_type21335), t51740); break; case NATIVE_PROCEDURE_TYPE21340: d17465 = t51739.value.native_procedure_type21340; b30003 = t51740; t51730 = f17465(); break; case NATIVE_PROCEDURE_TYPE21342: t51730 = f17466((t51739.value.native_procedure_type21342), t51740); break; case NATIVE_PROCEDURE_TYPE21349: t51730 = f17448((t51739.value.native_procedure_type21349), t51740); break; case NATIVE_PROCEDURE_TYPE21354: t51730 = f17389((t51739.value.native_procedure_type21354), t51740); break; case NATIVE_PROCEDURE_TYPE21359: t51730 = f17341((t51739.value.native_procedure_type21359), t51740); break; case NATIVE_PROCEDURE_TYPE21364: d17150 = t51739.value.native_procedure_type21364; b29118 = t51740; t51730 = f17150(); break; case NATIVE_PROCEDURE_TYPE21366: t51730 = f17151((t51739.value.native_procedure_type21366), t51740); break; case NATIVE_PROCEDURE_TYPE21382: t51730 = f17499((t51739.value.native_procedure_type21382), t51740); break; case NATIVE_PROCEDURE_TYPE21388: t51730 = f17524((t51739.value.native_procedure_type21388), t51740); break; case NATIVE_PROCEDURE_TYPE21394: d17598 = t51739.value.native_procedure_type21394; b30396 = t51740; t51730 = f17598(); break; case NATIVE_PROCEDURE_TYPE21415: t51741 = f19627(t51740); t51730.tag = STRUCTURE_TYPE24753; t51730.value.structure_type24753 = t51741; break; case NATIVE_PROCEDURE_TYPE21897: t51730 = f15811((t51739.value.native_procedure_type21897), t51740); break; case NATIVE_PROCEDURE_TYPE21904: /* x298271 stalin.sc:19531:682748 */ /* x298270 stalin.sc:19531:682749 */ /* x303556 stalin.sc:14693:514793 */ t51730.tag = STRING_TYPE; t51730.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21945: d17625 = t51739.value.native_procedure_type21945; b30489 = t51740; t51730 = f17625(); break; case NATIVE_PROCEDURE_TYPE21947: t51730 = f17626((t51739.value.native_procedure_type21947), t51740); break; case NATIVE_PROCEDURE_TYPE21949: t51730 = f17612((t51739.value.native_procedure_type21949), t51740); break; case NATIVE_PROCEDURE_TYPE21953: d17572 = t51739.value.native_procedure_type21953; b30333 = t51740; t51730 = f17572(); break; case NATIVE_PROCEDURE_TYPE21957: t51730 = f17573((t51739.value.native_procedure_type21957), t51740); break; case NATIVE_PROCEDURE_TYPE21962: d17566 = t51739.value.native_procedure_type21962; t51730 = f17566(); break; case NATIVE_PROCEDURE_TYPE21964: t51730 = f17567(t51739.value.native_procedure_type21964); break; case NATIVE_PROCEDURE_TYPE21967: d17561 = t51739.value.native_procedure_type21967; t51730 = f17561(); break; case NATIVE_PROCEDURE_TYPE21969: t51730 = f17562(t51739.value.native_procedure_type21969); break; case NATIVE_PROCEDURE_TYPE21972: d17556 = t51739.value.native_procedure_type21972; t51730 = f17556(); break; case NATIVE_PROCEDURE_TYPE21974: /* x297837 stalin.sc:23400:816144 */ /* x297836 stalin.sc:23400:816145 */ /* x303332 stalin.sc:14693:514793 */ t51730.tag = STRING_TYPE; t51730.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21976: t51730 = f17533((t51739.value.native_procedure_type21976), t51740); break; case NATIVE_PROCEDURE_TYPE21979: d17706 = t51739.value.native_procedure_type21979; b30702 = t51740; t51730 = f17706(); break; case NATIVE_PROCEDURE_TYPE21983: d17708 = t51739.value.native_procedure_type21983; b30704 = t51740; t51730 = f17708(); break; case NATIVE_PROCEDURE_TYPE21985: t51730 = f17709((t51739.value.native_procedure_type21985), t51740); break; case NATIVE_PROCEDURE_TYPE21998: t51730 = f17688((t51739.value.native_procedure_type21998), t51740); break; case NATIVE_PROCEDURE_TYPE22001: t51730 = f17681(t51739.value.native_procedure_type22001); break; case NATIVE_PROCEDURE_TYPE22004: t51730 = f17678(t51739.value.native_procedure_type22004); break; case NATIVE_PROCEDURE_TYPE22007: /* x297774 stalin.sc:23690:824240 */ /* x297773 stalin.sc:23690:824241 */ /* x303298 stalin.sc:14693:514793 */ t51730.tag = STRING_TYPE; t51730.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22009: t51730 = f17760((t51739.value.native_procedure_type22009), t51740); break; case NATIVE_PROCEDURE_TYPE22011: d17804 = t51739.value.native_procedure_type22011; b30911 = t51740; t51730 = f17804(); break; case NATIVE_PROCEDURE_TYPE22013: t51730 = f17805((t51739.value.native_procedure_type22013), t51740); break; case NATIVE_PROCEDURE_TYPE22015: d17784 = t51739.value.native_procedure_type22015; b30860 = t51740; t51730 = f17784(); break; case NATIVE_PROCEDURE_TYPE22017: t51730 = f17785((t51739.value.native_procedure_type22017), t51740); break; case NATIVE_PROCEDURE_TYPE22038: d17840 = t51739.value.native_procedure_type22038; b31010 = t51740; t51730 = f17840(); break; case NATIVE_PROCEDURE_TYPE22065: d15900 = t51739.value.native_procedure_type22065; b27021 = t51740; t51730 = f15900(); break; case NATIVE_PROCEDURE_TYPE22073: d15885 = t51739.value.native_procedure_type22073; b27015 = t51740; t51730 = f15885(); break; case NATIVE_PROCEDURE_TYPE22082: d17890 = t51739.value.native_procedure_type22082; b31082 = t51740; t51730 = f17890(); break; case NATIVE_PROCEDURE_TYPE22092: t51730 = f17878((t51739.value.native_procedure_type22092), t51740); break; case NATIVE_PROCEDURE_TYPE22101: d17636 = t51739.value.native_procedure_type22101; b30537 = t51740; t51730 = f17636(); break; case NATIVE_PROCEDURE_TYPE22103: t51730 = f17637((t51739.value.native_procedure_type22103), t51740); break; case NATIVE_PROCEDURE_TYPE22105: t51730 = f17638((t51739.value.native_procedure_type22105), t51740); break; case NATIVE_PROCEDURE_TYPE22107: t51730 = f17486((t51739.value.native_procedure_type22107), t51740); break; case NATIVE_PROCEDURE_TYPE22113: t51730 = f17932((t51739.value.native_procedure_type22113), t51740); break; case NATIVE_PROCEDURE_TYPE22118: t51730 = f17956((t51739.value.native_procedure_type22118), t51740); break; case NATIVE_PROCEDURE_TYPE22120: t51730 = f17944((t51739.value.native_procedure_type22120), t51740); break; case NATIVE_PROCEDURE_TYPE22125: t51730 = f17975((t51739.value.native_procedure_type22125), t51740); break; case NATIVE_PROCEDURE_TYPE22128: t51730 = f17965((t51739.value.native_procedure_type22128), t51740); break; case NATIVE_PROCEDURE_TYPE22131: d18030 = t51739.value.native_procedure_type22131; b31667 = t51740; t51730 = f18030(); break; case NATIVE_PROCEDURE_TYPE22133: t51730 = f18031((t51739.value.native_procedure_type22133), t51740); break; case NATIVE_PROCEDURE_TYPE22136: t51730 = f18007((t51739.value.native_procedure_type22136), t51740); break; case NATIVE_PROCEDURE_TYPE22138: t51730 = f17985((t51739.value.native_procedure_type22138), t51740); break; case NATIVE_PROCEDURE_TYPE22140: t51730 = f18071((t51739.value.native_procedure_type22140), t51740); break; case NATIVE_PROCEDURE_TYPE22142: t51730 = f18089((t51739.value.native_procedure_type22142), t51740); break; case NATIVE_PROCEDURE_TYPE22144: t51730 = f18080((t51739.value.native_procedure_type22144), t51740); break; case NATIVE_PROCEDURE_TYPE22146: t51730 = f18062((t51739.value.native_procedure_type22146), t51740); break; case NATIVE_PROCEDURE_TYPE22149: t51730 = f18120((t51739.value.native_procedure_type22149), t51740); break; case NATIVE_PROCEDURE_TYPE22155: d18147 = t51739.value.native_procedure_type22155; b32201 = t51740; t51730 = f18147(); break; case NATIVE_PROCEDURE_TYPE22161: d18134 = t51739.value.native_procedure_type22161; b32153 = t51740; t51730 = f18134(); break; case NATIVE_PROCEDURE_TYPE22163: d18132 = t51739.value.native_procedure_type22163; b32151 = t51740; t51730 = f18132(); break; case NATIVE_PROCEDURE_TYPE22166: t51742 = f18041((t51739.value.native_procedure_type22166), t51740); t51730.tag = STRUCTURE_TYPE24753; t51730.value.structure_type24753 = t51742; break; default: t51730 = f17689(t51739.value.native_procedure_type23298);} /* x131951 stalin.sc:16642:581756 */ /* x131950 stalin.sc:16642:581760 */ /* x131949 stalin.sc:16642:581757 */ t51744 = p14623->a26016; switch (t51744.tag) {case NATIVE_PROCEDURE_TYPE20757: t51745 = FALSE_TYPE; t51746 = f16097((t51744.value.native_procedure_type20757), t51745); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51746; break; case NATIVE_PROCEDURE_TYPE20782: t51747 = FALSE_TYPE; t51748 = f15772((t51744.value.native_procedure_type20782), t51747); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51748; break; case NATIVE_PROCEDURE_TYPE20850: p37518 = t51744.value.native_procedure_type20850; /* x302866 stalin.sc:17033:595793 */ /* x302865 stalin.sc:17033:595807 */ t51749 = p37518->a26136; /* x302864 stalin.sc:17033:595794 */ t51731 = f14708(t51749); break; case NATIVE_PROCEDURE_TYPE20913: t51750 = FALSE_TYPE; t51751 = f16433((t51744.value.native_procedure_type20913), t51750); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51751; break; case NATIVE_PROCEDURE_TYPE20915: t51752 = FALSE_TYPE; t51753 = f16417((t51744.value.native_procedure_type20915), t51752); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51753; break; case NATIVE_PROCEDURE_TYPE20918: t51754 = FALSE_TYPE; t51755 = f16635((t51744.value.native_procedure_type20918), t51754); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51755; break; case NATIVE_PROCEDURE_TYPE20927: p37499 = t51744.value.native_procedure_type20927; /* x302790 stalin.sc:21738:761657 */ /* x302789 stalin.sc:21738:761670 */ t51756 = p37499->a27722; /* x302788 stalin.sc:21738:761658 */ t51731 = f14707(t51756); break; case NATIVE_PROCEDURE_TYPE21036: /* x298056 stalin.sc:21885:766135 */ /* x298055 stalin.sc:21885:766136 */ /* x303378 QobiScheme.sc:166:5314 */ /* x303377 QobiScheme.sc:166:5321 */ t51757 = "This shouldn\'t happen"; /* x303376 QobiScheme.sc:166:5315 */ stalin_panic(t51757); break; case NATIVE_PROCEDURE_TYPE21042: /* x298117 stalin.sc:21855:765176 */ /* x298116 stalin.sc:21855:765177 */ /* x303454 QobiScheme.sc:166:5314 */ /* x303453 QobiScheme.sc:166:5321 */ t51758 = "This shouldn\'t happen"; /* x303452 QobiScheme.sc:166:5315 */ stalin_panic(t51758); break; case NATIVE_PROCEDURE_TYPE21048: t51759 = FALSE_TYPE; t51760 = f16737((t51744.value.native_procedure_type21048), t51759); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51760; break; case NATIVE_PROCEDURE_TYPE21059: t51761 = FALSE_TYPE; t51762 = f15571((t51744.value.native_procedure_type21059), t51761); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51762; break; case NATIVE_PROCEDURE_TYPE21065: t51763 = FALSE_TYPE; t51764 = f16830((t51744.value.native_procedure_type21065), t51763); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51764; break; case NATIVE_PROCEDURE_TYPE21082: t51765 = FALSE_TYPE; t51766 = f16721((t51744.value.native_procedure_type21082), t51765); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51766; break; case NATIVE_PROCEDURE_TYPE21087: t51767 = FALSE_TYPE; t51768 = f16648((t51744.value.native_procedure_type21087), t51767); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51768; break; case NATIVE_PROCEDURE_TYPE21090: t51769 = FALSE_TYPE; t51770 = f16858((t51744.value.native_procedure_type21090), t51769); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51770; break; case NATIVE_PROCEDURE_TYPE21108: t51771 = FALSE_TYPE; t51772 = f15580((t51744.value.native_procedure_type21108), t51771); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51772; break; case NATIVE_PROCEDURE_TYPE21110: t51773 = FALSE_TYPE; t51774 = f16912((t51744.value.native_procedure_type21110), t51773); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51774; break; case NATIVE_PROCEDURE_TYPE21117: t51775 = FALSE_TYPE; t51776 = f16884((t51744.value.native_procedure_type21117), t51775); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51776; break; case NATIVE_PROCEDURE_TYPE21137: t51777 = FALSE_TYPE; t51778 = f16982((t51744.value.native_procedure_type21137), t51777); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51778; break; case NATIVE_PROCEDURE_TYPE21147: t51779 = FALSE_TYPE; t51780 = f17061((t51744.value.native_procedure_type21147), t51779); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51780; break; case NATIVE_PROCEDURE_TYPE21152: t51781 = FALSE_TYPE; t51782 = f17134((t51744.value.native_procedure_type21152), t51781); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51782; break; case NATIVE_PROCEDURE_TYPE21154: t51783 = FALSE_TYPE; t51784 = f17133((t51744.value.native_procedure_type21154), t51783); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51784; break; case NATIVE_PROCEDURE_TYPE21170: t51785 = FALSE_TYPE; t51786 = f17101((t51744.value.native_procedure_type21170), t51785); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51786; break; case NATIVE_PROCEDURE_TYPE21172: t51787 = FALSE_TYPE; t51788 = f17100((t51744.value.native_procedure_type21172), t51787); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51788; break; case NATIVE_PROCEDURE_TYPE21201: t51789 = FALSE_TYPE; t51790 = f17026((t51744.value.native_procedure_type21201), t51789); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51790; break; case NATIVE_PROCEDURE_TYPE21225: t51791 = FALSE_TYPE; t51792 = f16941((t51744.value.native_procedure_type21225), t51791); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51792; break; case NATIVE_PROCEDURE_TYPE21228: t51793 = FALSE_TYPE; t51794 = f16844((t51744.value.native_procedure_type21228), t51793); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51794; break; case NATIVE_PROCEDURE_TYPE21234: t51795 = FALSE_TYPE; t51796 = f17200((t51744.value.native_procedure_type21234), t51795); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51796; break; case NATIVE_PROCEDURE_TYPE21236: t51797 = FALSE_TYPE; t51798 = f17199((t51744.value.native_procedure_type21236), t51797); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51798; break; case NATIVE_PROCEDURE_TYPE21256: t51799 = FALSE_TYPE; t51800 = f17222((t51744.value.native_procedure_type21256), t51799); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51800; break; case NATIVE_PROCEDURE_TYPE21259: t51801 = FALSE_TYPE; t51802 = f17209((t51744.value.native_procedure_type21259), t51801); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51802; break; case NATIVE_PROCEDURE_TYPE21265: t51803 = FALSE_TYPE; t51804 = f17254((t51744.value.native_procedure_type21265), t51803); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51804; break; case NATIVE_PROCEDURE_TYPE21268: t51805 = FALSE_TYPE; t51806 = f17295((t51744.value.native_procedure_type21268), t51805); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51806; break; case NATIVE_PROCEDURE_TYPE21274: t51807 = FALSE_TYPE; t51808 = f17333((t51744.value.native_procedure_type21274), t51807); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51808; break; case NATIVE_PROCEDURE_TYPE21280: t51809 = FALSE_TYPE; t51810 = f17314((t51744.value.native_procedure_type21280), t51809); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51810; break; case NATIVE_PROCEDURE_TYPE21286: t51811 = FALSE_TYPE; t51812 = f17276((t51744.value.native_procedure_type21286), t51811); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51812; break; case NATIVE_PROCEDURE_TYPE21296: t51813 = FALSE_TYPE; t51814 = f17238((t51744.value.native_procedure_type21296), t51813); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51814; break; case NATIVE_PROCEDURE_TYPE21299: t51815 = FALSE_TYPE; t51816 = f17357((t51744.value.native_procedure_type21299), t51815); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51816; break; case NATIVE_PROCEDURE_TYPE21304: t51817 = FALSE_TYPE; t51818 = f17381((t51744.value.native_procedure_type21304), t51817); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51818; break; case NATIVE_PROCEDURE_TYPE21309: t51819 = FALSE_TYPE; t51820 = f17369((t51744.value.native_procedure_type21309), t51819); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51820; break; case NATIVE_PROCEDURE_TYPE21314: t51821 = FALSE_TYPE; t51822 = f17405((t51744.value.native_procedure_type21314), t51821); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51822; break; case NATIVE_PROCEDURE_TYPE21319: t51823 = FALSE_TYPE; t51824 = f17440((t51744.value.native_procedure_type21319), t51823); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51824; break; case NATIVE_PROCEDURE_TYPE21324: t51825 = FALSE_TYPE; t51826 = f17437((t51744.value.native_procedure_type21324), t51825); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51826; break; case NATIVE_PROCEDURE_TYPE21329: t51827 = FALSE_TYPE; t51828 = f17430((t51744.value.native_procedure_type21329), t51827); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51828; break; case NATIVE_PROCEDURE_TYPE21334: t51829 = FALSE_TYPE; t51830 = f17417((t51744.value.native_procedure_type21334), t51829); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51830; break; case NATIVE_PROCEDURE_TYPE21339: t51831 = FALSE_TYPE; t51832 = f17473((t51744.value.native_procedure_type21339), t51831); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51832; break; case NATIVE_PROCEDURE_TYPE21341: t51833 = FALSE_TYPE; t51834 = f17472((t51744.value.native_procedure_type21341), t51833); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51834; break; case NATIVE_PROCEDURE_TYPE21348: t51835 = FALSE_TYPE; t51836 = f17452((t51744.value.native_procedure_type21348), t51835); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51836; break; case NATIVE_PROCEDURE_TYPE21353: t51837 = FALSE_TYPE; t51838 = f17393((t51744.value.native_procedure_type21353), t51837); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51838; break; case NATIVE_PROCEDURE_TYPE21358: t51839 = FALSE_TYPE; t51840 = f17345((t51744.value.native_procedure_type21358), t51839); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51840; break; case NATIVE_PROCEDURE_TYPE21363: t51841 = FALSE_TYPE; t51842 = f17167((t51744.value.native_procedure_type21363), t51841); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51842; break; case NATIVE_PROCEDURE_TYPE21365: t51843 = FALSE_TYPE; t51844 = f17166((t51744.value.native_procedure_type21365), t51843); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51844; break; case NATIVE_PROCEDURE_TYPE21381: t51845 = FALSE_TYPE; t51846 = f17504((t51744.value.native_procedure_type21381), t51845); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51846; break; case NATIVE_PROCEDURE_TYPE21387: t51847 = FALSE_TYPE; t51848 = f17525((t51744.value.native_procedure_type21387), t51847); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51848; break; case NATIVE_PROCEDURE_TYPE21393: t51849 = FALSE_TYPE; t51850 = f17599((t51744.value.native_procedure_type21393), t51849); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51850; break; case NATIVE_PROCEDURE_TYPE21414: t51851 = f19631(); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51851; break; case NATIVE_PROCEDURE_TYPE21896: t51852 = FALSE_TYPE; t51853 = f15815((t51744.value.native_procedure_type21896), t51852); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51853; break; case NATIVE_PROCEDURE_TYPE21903: t51854 = FALSE_TYPE; t51855 = f15805((t51744.value.native_procedure_type21903), t51854); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51855; break; case NATIVE_PROCEDURE_TYPE21944: t51856 = FALSE_TYPE; t51857 = f17628((t51744.value.native_procedure_type21944), t51856); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51857; break; case NATIVE_PROCEDURE_TYPE21946: t51858 = FALSE_TYPE; t51859 = f17627((t51744.value.native_procedure_type21946), t51858); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51859; break; case NATIVE_PROCEDURE_TYPE21948: t51860 = FALSE_TYPE; t51861 = f17613((t51744.value.native_procedure_type21948), t51860); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51861; break; case NATIVE_PROCEDURE_TYPE21952: t51862 = FALSE_TYPE; t51863 = f17579((t51744.value.native_procedure_type21952), t51862); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51863; break; case NATIVE_PROCEDURE_TYPE21956: t51864 = FALSE_TYPE; t51865 = f17576((t51744.value.native_procedure_type21956), t51864); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51865; break; case NATIVE_PROCEDURE_TYPE21961: t51866 = FALSE_TYPE; t51867 = f17569((t51744.value.native_procedure_type21961), t51866); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51867; break; case NATIVE_PROCEDURE_TYPE21963: t51868 = FALSE_TYPE; t51869 = f17568((t51744.value.native_procedure_type21963), t51868); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51869; break; case NATIVE_PROCEDURE_TYPE21966: t51870 = FALSE_TYPE; t51871 = f17564((t51744.value.native_procedure_type21966), t51870); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51871; break; case NATIVE_PROCEDURE_TYPE21968: t51872 = FALSE_TYPE; t51873 = f17563((t51744.value.native_procedure_type21968), t51872); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51873; break; case NATIVE_PROCEDURE_TYPE21971: t51874 = FALSE_TYPE; t51875 = f17559((t51744.value.native_procedure_type21971), t51874); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51875; break; case NATIVE_PROCEDURE_TYPE21973: t51876 = FALSE_TYPE; t51877 = f17558((t51744.value.native_procedure_type21973), t51876); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51877; break; case NATIVE_PROCEDURE_TYPE21975: t51878 = FALSE_TYPE; t51879 = f17534((t51744.value.native_procedure_type21975), t51878); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51879; break; case NATIVE_PROCEDURE_TYPE21978: t51880 = FALSE_TYPE; t51881 = f17718((t51744.value.native_procedure_type21978), t51880); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51881; break; case NATIVE_PROCEDURE_TYPE21982: t51882 = FALSE_TYPE; t51883 = f17716((t51744.value.native_procedure_type21982), t51882); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51883; break; case NATIVE_PROCEDURE_TYPE21984: t51884 = FALSE_TYPE; t51885 = f17715((t51744.value.native_procedure_type21984), t51884); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51885; break; case NATIVE_PROCEDURE_TYPE21997: t51886 = FALSE_TYPE; t51887 = f17693((t51744.value.native_procedure_type21997), t51886); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51887; break; case NATIVE_PROCEDURE_TYPE22000: t51888 = FALSE_TYPE; t51889 = f17682((t51744.value.native_procedure_type22000), t51888); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51889; break; case NATIVE_PROCEDURE_TYPE22003: t51890 = FALSE_TYPE; t51891 = f17679((t51744.value.native_procedure_type22003), t51890); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51891; break; case NATIVE_PROCEDURE_TYPE22006: t51892 = FALSE_TYPE; t51893 = f17676((t51744.value.native_procedure_type22006), t51892); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51893; break; case NATIVE_PROCEDURE_TYPE22008: t51894 = FALSE_TYPE; t51895 = f17761((t51744.value.native_procedure_type22008), t51894); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51895; break; case NATIVE_PROCEDURE_TYPE22010: t51896 = FALSE_TYPE; t51897 = f17807((t51744.value.native_procedure_type22010), t51896); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51897; break; case NATIVE_PROCEDURE_TYPE22012: t51898 = FALSE_TYPE; t51899 = f17806((t51744.value.native_procedure_type22012), t51898); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51899; break; case NATIVE_PROCEDURE_TYPE22014: t51900 = FALSE_TYPE; t51901 = f17787((t51744.value.native_procedure_type22014), t51900); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51901; break; case NATIVE_PROCEDURE_TYPE22016: t51902 = FALSE_TYPE; t51903 = f17786((t51744.value.native_procedure_type22016), t51902); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51903; break; case NATIVE_PROCEDURE_TYPE22037: t51904 = FALSE_TYPE; t51905 = f17841((t51744.value.native_procedure_type22037), t51904); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51905; break; case NATIVE_PROCEDURE_TYPE22064: /* x298214 stalin.sc:19867:695278 */ /* x298213 stalin.sc:19867:695279 */ /* x303518 stalin.sc:14693:514793 */ t51731.tag = STRING_TYPE; t51731.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22072: t51906 = FALSE_TYPE; t51907 = f15886((t51744.value.native_procedure_type22072), t51906); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51907; break; case NATIVE_PROCEDURE_TYPE22081: t51908 = FALSE_TYPE; t51909 = f17894((t51744.value.native_procedure_type22081), t51908); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51909; break; case NATIVE_PROCEDURE_TYPE22091: t51910 = FALSE_TYPE; t51911 = f17885((t51744.value.native_procedure_type22091), t51910); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51911; break; case NATIVE_PROCEDURE_TYPE22100: t51912 = FALSE_TYPE; t51913 = f17641((t51744.value.native_procedure_type22100), t51912); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51913; break; case NATIVE_PROCEDURE_TYPE22102: t51914 = FALSE_TYPE; t51915 = f17640((t51744.value.native_procedure_type22102), t51914); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51915; break; case NATIVE_PROCEDURE_TYPE22104: t51916 = FALSE_TYPE; t51917 = f17639((t51744.value.native_procedure_type22104), t51916); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51917; break; case NATIVE_PROCEDURE_TYPE22106: t51918 = FALSE_TYPE; t51919 = f17491((t51744.value.native_procedure_type22106), t51918); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51919; break; case NATIVE_PROCEDURE_TYPE22112: t51920 = FALSE_TYPE; t51921 = f17936((t51744.value.native_procedure_type22112), t51920); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51921; break; case NATIVE_PROCEDURE_TYPE22117: t51922 = FALSE_TYPE; t51923 = f17957((t51744.value.native_procedure_type22117), t51922); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51923; break; case NATIVE_PROCEDURE_TYPE22119: t51924 = FALSE_TYPE; t51925 = f17948((t51744.value.native_procedure_type22119), t51924); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51925; break; case NATIVE_PROCEDURE_TYPE22124: t51926 = FALSE_TYPE; t51927 = f17976((t51744.value.native_procedure_type22124), t51926); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51927; break; case NATIVE_PROCEDURE_TYPE22127: t51928 = FALSE_TYPE; t51929 = f17966((t51744.value.native_procedure_type22127), t51928); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51929; break; case NATIVE_PROCEDURE_TYPE22130: t51930 = FALSE_TYPE; t51931 = f18033((t51744.value.native_procedure_type22130), t51930); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51931; break; case NATIVE_PROCEDURE_TYPE22132: t51932 = FALSE_TYPE; t51933 = f18032((t51744.value.native_procedure_type22132), t51932); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51933; break; case NATIVE_PROCEDURE_TYPE22135: t51934 = FALSE_TYPE; t51935 = f18008((t51744.value.native_procedure_type22135), t51934); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51935; break; case NATIVE_PROCEDURE_TYPE22137: t51936 = FALSE_TYPE; t51937 = f17986((t51744.value.native_procedure_type22137), t51936); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51937; break; case NATIVE_PROCEDURE_TYPE22139: t51938 = FALSE_TYPE; t51939 = f18072((t51744.value.native_procedure_type22139), t51938); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51939; break; case NATIVE_PROCEDURE_TYPE22141: t51940 = FALSE_TYPE; t51941 = f18090((t51744.value.native_procedure_type22141), t51940); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51941; break; case NATIVE_PROCEDURE_TYPE22143: t51942 = FALSE_TYPE; t51943 = f18081((t51744.value.native_procedure_type22143), t51942); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51943; break; case NATIVE_PROCEDURE_TYPE22145: t51944 = FALSE_TYPE; t51945 = f18063((t51744.value.native_procedure_type22145), t51944); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51945; break; case NATIVE_PROCEDURE_TYPE22148: t51946 = FALSE_TYPE; t51947 = f18121((t51744.value.native_procedure_type22148), t51946); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51947; break; case NATIVE_PROCEDURE_TYPE22154: t51948 = FALSE_TYPE; t51949 = f18148((t51744.value.native_procedure_type22154), t51948); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51949; break; case NATIVE_PROCEDURE_TYPE22160: t51950 = FALSE_TYPE; t51951 = f18135((t51744.value.native_procedure_type22160), t51950); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51951; break; case NATIVE_PROCEDURE_TYPE22162: t51952 = FALSE_TYPE; t51953 = f18133((t51744.value.native_procedure_type22162), t51952); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51953; break; case NATIVE_PROCEDURE_TYPE22165: t51954 = FALSE_TYPE; t51955 = f18042((t51744.value.native_procedure_type22165), t51954); t51731.tag = STRUCTURE_TYPE24753; t51731.value.structure_type24753 = t51955; break; default: /* x297717 stalin.sc:23751:825832 */ /* x297716 stalin.sc:23751:825833 */ /* x303234 QobiScheme.sc:166:5314 */ /* x303233 QobiScheme.sc:166:5321 */ t51956 = "This shouldn\'t happen"; /* x303232 QobiScheme.sc:166:5315 */ stalin_panic(t51956);} /* x131952 stalin.sc:16643:581768 */ /* x131935 stalin.sc:16640:581671 */ t51732 = FALSE_TYPE; t51715 = f13672(t51729, t51730, t51731, t51732); /* x131954 stalin.sc:16644:581777 */ /* x131920 stalin.sc:16638:581574 */ t51716 = FALSE_TYPE; return f13672(t51713, t51714, t51715, t51716); l7373: /* x131975 stalin.sc:16645:581787 */ /* x131964 stalin.sc:16645:581793 */ /* x131958 stalin.sc:16645:581798 */ t51488 = a26014; /* x131963 stalin.sc:16645:581801 */ /* x131961 stalin.sc:16645:581818 */ /* x131960 stalin.sc:16645:581819 */ /* x276345 stalin.sc:16169:562645 */ t51491 = "CHAR_OFFSET"; /* x131962 stalin.sc:16645:581834 */ t51492 = a26013; /* x131959 stalin.sc:16645:581802 */ t51493.tag = STRING_TYPE; t51493.value.string_type = t51491; t51489 = f14422(t51493, t51492); /* x131957 stalin.sc:16645:581794 */ t51490.tag = STRUCTURE_TYPE24753; t51490.value.structure_type24753 = t51489; t51484 = f13601(t51488, t51490); /* x131970 stalin.sc:16646:581843 */ /* x131969 stalin.sc:16646:581847 */ /* x131967 stalin.sc:16646:581864 */ /* x131968 stalin.sc:16646:581875 */ t51498 = a26013; /* x131966 stalin.sc:16646:581848 */ t51499.tag = NATIVE_PROCEDURE_TYPE7431; t51495 = f8157(t51499, t51498); /* x131965 stalin.sc:16646:581844 */ t51494 = p14623->a26015; switch (t51494.tag) {case NATIVE_PROCEDURE_TYPE20758: d16096 = t51494.value.native_procedure_type20758; b27143 = t51495; t51485 = f16096(); break; case NATIVE_PROCEDURE_TYPE20783: d15771 = t51494.value.native_procedure_type20783; b26894 = t51495; t51485 = f15771(); break; case NATIVE_PROCEDURE_TYPE20851: t51485 = f14712(t51494.value.native_procedure_type20851); break; case NATIVE_PROCEDURE_TYPE20914: t51485 = f16432((t51494.value.native_procedure_type20914), t51495); break; case NATIVE_PROCEDURE_TYPE20916: t51485 = f16416((t51494.value.native_procedure_type20916), t51495); break; case NATIVE_PROCEDURE_TYPE20919: t51485 = f16631((t51494.value.native_procedure_type20919), t51495); break; case NATIVE_PROCEDURE_TYPE20928: t51485 = f16597((t51494.value.native_procedure_type20928), t51495); break; case NATIVE_PROCEDURE_TYPE21037: t51485 = f16700((t51494.value.native_procedure_type21037), t51495); break; case NATIVE_PROCEDURE_TYPE21043: t51485 = f16678((t51494.value.native_procedure_type21043), t51495); break; case NATIVE_PROCEDURE_TYPE21049: t51485 = f16736((t51494.value.native_procedure_type21049), t51495); break; case NATIVE_PROCEDURE_TYPE21060: d15570 = t51494.value.native_procedure_type21060; b26729 = t51495; t51485 = f15570(); break; case NATIVE_PROCEDURE_TYPE21066: t51485 = f16821((t51494.value.native_procedure_type21066), t51495); break; case NATIVE_PROCEDURE_TYPE21083: t51485 = f16720((t51494.value.native_procedure_type21083), t51495); break; case NATIVE_PROCEDURE_TYPE21088: t51485 = f16646((t51494.value.native_procedure_type21088), t51495); break; case NATIVE_PROCEDURE_TYPE21091: t51485 = f16853((t51494.value.native_procedure_type21091), t51495); break; case NATIVE_PROCEDURE_TYPE21109: d15579 = t51494.value.native_procedure_type21109; b26749 = t51495; t51485 = f15579(); break; case NATIVE_PROCEDURE_TYPE21111: t51485 = f16908((t51494.value.native_procedure_type21111), t51495); break; case NATIVE_PROCEDURE_TYPE21118: t51485 = f16880((t51494.value.native_procedure_type21118), t51495); break; case NATIVE_PROCEDURE_TYPE21138: t51485 = f16981((t51494.value.native_procedure_type21138), t51495); break; case NATIVE_PROCEDURE_TYPE21148: t51485 = f17057((t51494.value.native_procedure_type21148), t51495); break; case NATIVE_PROCEDURE_TYPE21153: d17117 = t51494.value.native_procedure_type21153; b29067 = t51495; t51485 = f17117(); break; case NATIVE_PROCEDURE_TYPE21155: t51485 = f17118((t51494.value.native_procedure_type21155), t51495); break; case NATIVE_PROCEDURE_TYPE21171: d17084 = t51494.value.native_procedure_type21171; b29016 = t51495; t51485 = f17084(); break; case NATIVE_PROCEDURE_TYPE21173: t51485 = f17085((t51494.value.native_procedure_type21173), t51495); break; case NATIVE_PROCEDURE_TYPE21202: t51485 = f17018((t51494.value.native_procedure_type21202), t51495); break; case NATIVE_PROCEDURE_TYPE21226: t51485 = f16940((t51494.value.native_procedure_type21226), t51495); break; case NATIVE_PROCEDURE_TYPE21229: t51485 = f16839((t51494.value.native_procedure_type21229), t51495); break; case NATIVE_PROCEDURE_TYPE21235: d17183 = t51494.value.native_procedure_type21235; b29169 = t51495; t51485 = f17183(); break; case NATIVE_PROCEDURE_TYPE21237: t51485 = f17184((t51494.value.native_procedure_type21237), t51495); break; case NATIVE_PROCEDURE_TYPE21257: t51485 = f17221((t51494.value.native_procedure_type21257), t51495); break; case NATIVE_PROCEDURE_TYPE21260: t51485 = f17208((t51494.value.native_procedure_type21260), t51495); break; case NATIVE_PROCEDURE_TYPE21266: t51485 = f17253((t51494.value.native_procedure_type21266), t51495); break; case NATIVE_PROCEDURE_TYPE21269: t51485 = f17290((t51494.value.native_procedure_type21269), t51495); break; case NATIVE_PROCEDURE_TYPE21275: t51485 = f17328((t51494.value.native_procedure_type21275), t51495); break; case NATIVE_PROCEDURE_TYPE21281: t51485 = f17309((t51494.value.native_procedure_type21281), t51495); break; case NATIVE_PROCEDURE_TYPE21287: t51485 = f17271((t51494.value.native_procedure_type21287), t51495); break; case NATIVE_PROCEDURE_TYPE21297: t51485 = f17237((t51494.value.native_procedure_type21297), t51495); break; case NATIVE_PROCEDURE_TYPE21300: t51485 = f17353((t51494.value.native_procedure_type21300), t51495); break; case NATIVE_PROCEDURE_TYPE21305: t51485 = f17377((t51494.value.native_procedure_type21305), t51495); break; case NATIVE_PROCEDURE_TYPE21310: t51485 = f17365((t51494.value.native_procedure_type21310), t51495); break; case NATIVE_PROCEDURE_TYPE21315: t51485 = f17401((t51494.value.native_procedure_type21315), t51495); break; case NATIVE_PROCEDURE_TYPE21320: d17431 = t51494.value.native_procedure_type21320; b29911 = t51495; t51485 = f17431(); break; case NATIVE_PROCEDURE_TYPE21325: t51485 = f17433((t51494.value.native_procedure_type21325), t51495); break; case NATIVE_PROCEDURE_TYPE21330: t51485 = f17426((t51494.value.native_procedure_type21330), t51495); break; case NATIVE_PROCEDURE_TYPE21335: t51485 = f17413((t51494.value.native_procedure_type21335), t51495); break; case NATIVE_PROCEDURE_TYPE21340: d17465 = t51494.value.native_procedure_type21340; b30003 = t51495; t51485 = f17465(); break; case NATIVE_PROCEDURE_TYPE21342: t51485 = f17466((t51494.value.native_procedure_type21342), t51495); break; case NATIVE_PROCEDURE_TYPE21349: t51485 = f17448((t51494.value.native_procedure_type21349), t51495); break; case NATIVE_PROCEDURE_TYPE21354: t51485 = f17389((t51494.value.native_procedure_type21354), t51495); break; case NATIVE_PROCEDURE_TYPE21359: t51485 = f17341((t51494.value.native_procedure_type21359), t51495); break; case NATIVE_PROCEDURE_TYPE21364: d17150 = t51494.value.native_procedure_type21364; b29118 = t51495; t51485 = f17150(); break; case NATIVE_PROCEDURE_TYPE21366: t51485 = f17151((t51494.value.native_procedure_type21366), t51495); break; case NATIVE_PROCEDURE_TYPE21382: t51485 = f17499((t51494.value.native_procedure_type21382), t51495); break; case NATIVE_PROCEDURE_TYPE21388: t51485 = f17524((t51494.value.native_procedure_type21388), t51495); break; case NATIVE_PROCEDURE_TYPE21394: d17598 = t51494.value.native_procedure_type21394; b30396 = t51495; t51485 = f17598(); break; case NATIVE_PROCEDURE_TYPE21415: t51496 = f19627(t51495); t51485.tag = STRUCTURE_TYPE24753; t51485.value.structure_type24753 = t51496; break; case NATIVE_PROCEDURE_TYPE21897: t51485 = f15811((t51494.value.native_procedure_type21897), t51495); break; case NATIVE_PROCEDURE_TYPE21904: /* x298274 stalin.sc:19531:682748 */ /* x298273 stalin.sc:19531:682749 */ /* x303558 stalin.sc:14693:514793 */ t51485.tag = STRING_TYPE; t51485.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21945: d17625 = t51494.value.native_procedure_type21945; b30489 = t51495; t51485 = f17625(); break; case NATIVE_PROCEDURE_TYPE21947: t51485 = f17626((t51494.value.native_procedure_type21947), t51495); break; case NATIVE_PROCEDURE_TYPE21949: t51485 = f17612((t51494.value.native_procedure_type21949), t51495); break; case NATIVE_PROCEDURE_TYPE21953: d17572 = t51494.value.native_procedure_type21953; b30333 = t51495; t51485 = f17572(); break; case NATIVE_PROCEDURE_TYPE21957: t51485 = f17573((t51494.value.native_procedure_type21957), t51495); break; case NATIVE_PROCEDURE_TYPE21962: d17566 = t51494.value.native_procedure_type21962; t51485 = f17566(); break; case NATIVE_PROCEDURE_TYPE21964: t51485 = f17567(t51494.value.native_procedure_type21964); break; case NATIVE_PROCEDURE_TYPE21967: d17561 = t51494.value.native_procedure_type21967; t51485 = f17561(); break; case NATIVE_PROCEDURE_TYPE21969: t51485 = f17562(t51494.value.native_procedure_type21969); break; case NATIVE_PROCEDURE_TYPE21972: d17556 = t51494.value.native_procedure_type21972; t51485 = f17556(); break; case NATIVE_PROCEDURE_TYPE21974: /* x297840 stalin.sc:23400:816144 */ /* x297839 stalin.sc:23400:816145 */ /* x303334 stalin.sc:14693:514793 */ t51485.tag = STRING_TYPE; t51485.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21976: t51485 = f17533((t51494.value.native_procedure_type21976), t51495); break; case NATIVE_PROCEDURE_TYPE21979: d17706 = t51494.value.native_procedure_type21979; b30702 = t51495; t51485 = f17706(); break; case NATIVE_PROCEDURE_TYPE21983: d17708 = t51494.value.native_procedure_type21983; b30704 = t51495; t51485 = f17708(); break; case NATIVE_PROCEDURE_TYPE21985: t51485 = f17709((t51494.value.native_procedure_type21985), t51495); break; case NATIVE_PROCEDURE_TYPE21998: t51485 = f17688((t51494.value.native_procedure_type21998), t51495); break; case NATIVE_PROCEDURE_TYPE22001: t51485 = f17681(t51494.value.native_procedure_type22001); break; case NATIVE_PROCEDURE_TYPE22004: t51485 = f17678(t51494.value.native_procedure_type22004); break; case NATIVE_PROCEDURE_TYPE22007: /* x297777 stalin.sc:23690:824240 */ /* x297776 stalin.sc:23690:824241 */ /* x303300 stalin.sc:14693:514793 */ t51485.tag = STRING_TYPE; t51485.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22009: t51485 = f17760((t51494.value.native_procedure_type22009), t51495); break; case NATIVE_PROCEDURE_TYPE22011: d17804 = t51494.value.native_procedure_type22011; b30911 = t51495; t51485 = f17804(); break; case NATIVE_PROCEDURE_TYPE22013: t51485 = f17805((t51494.value.native_procedure_type22013), t51495); break; case NATIVE_PROCEDURE_TYPE22015: d17784 = t51494.value.native_procedure_type22015; b30860 = t51495; t51485 = f17784(); break; case NATIVE_PROCEDURE_TYPE22017: t51485 = f17785((t51494.value.native_procedure_type22017), t51495); break; case NATIVE_PROCEDURE_TYPE22038: d17840 = t51494.value.native_procedure_type22038; b31010 = t51495; t51485 = f17840(); break; case NATIVE_PROCEDURE_TYPE22065: d15900 = t51494.value.native_procedure_type22065; b27021 = t51495; t51485 = f15900(); break; case NATIVE_PROCEDURE_TYPE22073: d15885 = t51494.value.native_procedure_type22073; b27015 = t51495; t51485 = f15885(); break; case NATIVE_PROCEDURE_TYPE22082: d17890 = t51494.value.native_procedure_type22082; b31082 = t51495; t51485 = f17890(); break; case NATIVE_PROCEDURE_TYPE22092: t51485 = f17878((t51494.value.native_procedure_type22092), t51495); break; case NATIVE_PROCEDURE_TYPE22101: d17636 = t51494.value.native_procedure_type22101; b30537 = t51495; t51485 = f17636(); break; case NATIVE_PROCEDURE_TYPE22103: t51485 = f17637((t51494.value.native_procedure_type22103), t51495); break; case NATIVE_PROCEDURE_TYPE22105: t51485 = f17638((t51494.value.native_procedure_type22105), t51495); break; case NATIVE_PROCEDURE_TYPE22107: t51485 = f17486((t51494.value.native_procedure_type22107), t51495); break; case NATIVE_PROCEDURE_TYPE22113: t51485 = f17932((t51494.value.native_procedure_type22113), t51495); break; case NATIVE_PROCEDURE_TYPE22118: t51485 = f17956((t51494.value.native_procedure_type22118), t51495); break; case NATIVE_PROCEDURE_TYPE22120: t51485 = f17944((t51494.value.native_procedure_type22120), t51495); break; case NATIVE_PROCEDURE_TYPE22125: t51485 = f17975((t51494.value.native_procedure_type22125), t51495); break; case NATIVE_PROCEDURE_TYPE22128: t51485 = f17965((t51494.value.native_procedure_type22128), t51495); break; case NATIVE_PROCEDURE_TYPE22131: d18030 = t51494.value.native_procedure_type22131; b31667 = t51495; t51485 = f18030(); break; case NATIVE_PROCEDURE_TYPE22133: t51485 = f18031((t51494.value.native_procedure_type22133), t51495); break; case NATIVE_PROCEDURE_TYPE22136: t51485 = f18007((t51494.value.native_procedure_type22136), t51495); break; case NATIVE_PROCEDURE_TYPE22138: t51485 = f17985((t51494.value.native_procedure_type22138), t51495); break; case NATIVE_PROCEDURE_TYPE22140: t51485 = f18071((t51494.value.native_procedure_type22140), t51495); break; case NATIVE_PROCEDURE_TYPE22142: t51485 = f18089((t51494.value.native_procedure_type22142), t51495); break; case NATIVE_PROCEDURE_TYPE22144: t51485 = f18080((t51494.value.native_procedure_type22144), t51495); break; case NATIVE_PROCEDURE_TYPE22146: t51485 = f18062((t51494.value.native_procedure_type22146), t51495); break; case NATIVE_PROCEDURE_TYPE22149: t51485 = f18120((t51494.value.native_procedure_type22149), t51495); break; case NATIVE_PROCEDURE_TYPE22155: d18147 = t51494.value.native_procedure_type22155; b32201 = t51495; t51485 = f18147(); break; case NATIVE_PROCEDURE_TYPE22161: d18134 = t51494.value.native_procedure_type22161; b32153 = t51495; t51485 = f18134(); break; case NATIVE_PROCEDURE_TYPE22163: d18132 = t51494.value.native_procedure_type22163; b32151 = t51495; t51485 = f18132(); break; case NATIVE_PROCEDURE_TYPE22166: t51497 = f18041((t51494.value.native_procedure_type22166), t51495); t51485.tag = STRUCTURE_TYPE24753; t51485.value.structure_type24753 = t51497; break; default: t51485 = f17689(t51494.value.native_procedure_type23298);} /* x131973 stalin.sc:16647:581884 */ /* x131972 stalin.sc:16647:581888 */ /* x131971 stalin.sc:16647:581885 */ t51500 = p14623->a26016; switch (t51500.tag) {case NATIVE_PROCEDURE_TYPE20757: t51501 = FALSE_TYPE; t51502 = f16097((t51500.value.native_procedure_type20757), t51501); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51502; break; case NATIVE_PROCEDURE_TYPE20782: t51503 = FALSE_TYPE; t51504 = f15772((t51500.value.native_procedure_type20782), t51503); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51504; break; case NATIVE_PROCEDURE_TYPE20850: p37519 = t51500.value.native_procedure_type20850; /* x302870 stalin.sc:17033:595793 */ /* x302869 stalin.sc:17033:595807 */ t51505 = p37519->a26136; /* x302868 stalin.sc:17033:595794 */ t51486 = f14708(t51505); break; case NATIVE_PROCEDURE_TYPE20913: t51506 = FALSE_TYPE; t51507 = f16433((t51500.value.native_procedure_type20913), t51506); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51507; break; case NATIVE_PROCEDURE_TYPE20915: t51508 = FALSE_TYPE; t51509 = f16417((t51500.value.native_procedure_type20915), t51508); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51509; break; case NATIVE_PROCEDURE_TYPE20918: t51510 = FALSE_TYPE; t51511 = f16635((t51500.value.native_procedure_type20918), t51510); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51511; break; case NATIVE_PROCEDURE_TYPE20927: p37500 = t51500.value.native_procedure_type20927; /* x302794 stalin.sc:21738:761657 */ /* x302793 stalin.sc:21738:761670 */ t51512 = p37500->a27722; /* x302792 stalin.sc:21738:761658 */ t51486 = f14707(t51512); break; case NATIVE_PROCEDURE_TYPE21036: /* x298059 stalin.sc:21885:766135 */ /* x298058 stalin.sc:21885:766136 */ /* x303382 QobiScheme.sc:166:5314 */ /* x303381 QobiScheme.sc:166:5321 */ t51513 = "This shouldn\'t happen"; /* x303380 QobiScheme.sc:166:5315 */ stalin_panic(t51513); break; case NATIVE_PROCEDURE_TYPE21042: /* x298120 stalin.sc:21855:765176 */ /* x298119 stalin.sc:21855:765177 */ /* x303458 QobiScheme.sc:166:5314 */ /* x303457 QobiScheme.sc:166:5321 */ t51514 = "This shouldn\'t happen"; /* x303456 QobiScheme.sc:166:5315 */ stalin_panic(t51514); break; case NATIVE_PROCEDURE_TYPE21048: t51515 = FALSE_TYPE; t51516 = f16737((t51500.value.native_procedure_type21048), t51515); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51516; break; case NATIVE_PROCEDURE_TYPE21059: t51517 = FALSE_TYPE; t51518 = f15571((t51500.value.native_procedure_type21059), t51517); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51518; break; case NATIVE_PROCEDURE_TYPE21065: t51519 = FALSE_TYPE; t51520 = f16830((t51500.value.native_procedure_type21065), t51519); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51520; break; case NATIVE_PROCEDURE_TYPE21082: t51521 = FALSE_TYPE; t51522 = f16721((t51500.value.native_procedure_type21082), t51521); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51522; break; case NATIVE_PROCEDURE_TYPE21087: t51523 = FALSE_TYPE; t51524 = f16648((t51500.value.native_procedure_type21087), t51523); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51524; break; case NATIVE_PROCEDURE_TYPE21090: t51525 = FALSE_TYPE; t51526 = f16858((t51500.value.native_procedure_type21090), t51525); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51526; break; case NATIVE_PROCEDURE_TYPE21108: t51527 = FALSE_TYPE; t51528 = f15580((t51500.value.native_procedure_type21108), t51527); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51528; break; case NATIVE_PROCEDURE_TYPE21110: t51529 = FALSE_TYPE; t51530 = f16912((t51500.value.native_procedure_type21110), t51529); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51530; break; case NATIVE_PROCEDURE_TYPE21117: t51531 = FALSE_TYPE; t51532 = f16884((t51500.value.native_procedure_type21117), t51531); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51532; break; case NATIVE_PROCEDURE_TYPE21137: t51533 = FALSE_TYPE; t51534 = f16982((t51500.value.native_procedure_type21137), t51533); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51534; break; case NATIVE_PROCEDURE_TYPE21147: t51535 = FALSE_TYPE; t51536 = f17061((t51500.value.native_procedure_type21147), t51535); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51536; break; case NATIVE_PROCEDURE_TYPE21152: t51537 = FALSE_TYPE; t51538 = f17134((t51500.value.native_procedure_type21152), t51537); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51538; break; case NATIVE_PROCEDURE_TYPE21154: t51539 = FALSE_TYPE; t51540 = f17133((t51500.value.native_procedure_type21154), t51539); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51540; break; case NATIVE_PROCEDURE_TYPE21170: t51541 = FALSE_TYPE; t51542 = f17101((t51500.value.native_procedure_type21170), t51541); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51542; break; case NATIVE_PROCEDURE_TYPE21172: t51543 = FALSE_TYPE; t51544 = f17100((t51500.value.native_procedure_type21172), t51543); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51544; break; case NATIVE_PROCEDURE_TYPE21201: t51545 = FALSE_TYPE; t51546 = f17026((t51500.value.native_procedure_type21201), t51545); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51546; break; case NATIVE_PROCEDURE_TYPE21225: t51547 = FALSE_TYPE; t51548 = f16941((t51500.value.native_procedure_type21225), t51547); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51548; break; case NATIVE_PROCEDURE_TYPE21228: t51549 = FALSE_TYPE; t51550 = f16844((t51500.value.native_procedure_type21228), t51549); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51550; break; case NATIVE_PROCEDURE_TYPE21234: t51551 = FALSE_TYPE; t51552 = f17200((t51500.value.native_procedure_type21234), t51551); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51552; break; case NATIVE_PROCEDURE_TYPE21236: t51553 = FALSE_TYPE; t51554 = f17199((t51500.value.native_procedure_type21236), t51553); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51554; break; case NATIVE_PROCEDURE_TYPE21256: t51555 = FALSE_TYPE; t51556 = f17222((t51500.value.native_procedure_type21256), t51555); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51556; break; case NATIVE_PROCEDURE_TYPE21259: t51557 = FALSE_TYPE; t51558 = f17209((t51500.value.native_procedure_type21259), t51557); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51558; break; case NATIVE_PROCEDURE_TYPE21265: t51559 = FALSE_TYPE; t51560 = f17254((t51500.value.native_procedure_type21265), t51559); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51560; break; case NATIVE_PROCEDURE_TYPE21268: t51561 = FALSE_TYPE; t51562 = f17295((t51500.value.native_procedure_type21268), t51561); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51562; break; case NATIVE_PROCEDURE_TYPE21274: t51563 = FALSE_TYPE; t51564 = f17333((t51500.value.native_procedure_type21274), t51563); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51564; break; case NATIVE_PROCEDURE_TYPE21280: t51565 = FALSE_TYPE; t51566 = f17314((t51500.value.native_procedure_type21280), t51565); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51566; break; case NATIVE_PROCEDURE_TYPE21286: t51567 = FALSE_TYPE; t51568 = f17276((t51500.value.native_procedure_type21286), t51567); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51568; break; case NATIVE_PROCEDURE_TYPE21296: t51569 = FALSE_TYPE; t51570 = f17238((t51500.value.native_procedure_type21296), t51569); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51570; break; case NATIVE_PROCEDURE_TYPE21299: t51571 = FALSE_TYPE; t51572 = f17357((t51500.value.native_procedure_type21299), t51571); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51572; break; case NATIVE_PROCEDURE_TYPE21304: t51573 = FALSE_TYPE; t51574 = f17381((t51500.value.native_procedure_type21304), t51573); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51574; break; case NATIVE_PROCEDURE_TYPE21309: t51575 = FALSE_TYPE; t51576 = f17369((t51500.value.native_procedure_type21309), t51575); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51576; break; case NATIVE_PROCEDURE_TYPE21314: t51577 = FALSE_TYPE; t51578 = f17405((t51500.value.native_procedure_type21314), t51577); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51578; break; case NATIVE_PROCEDURE_TYPE21319: t51579 = FALSE_TYPE; t51580 = f17440((t51500.value.native_procedure_type21319), t51579); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51580; break; case NATIVE_PROCEDURE_TYPE21324: t51581 = FALSE_TYPE; t51582 = f17437((t51500.value.native_procedure_type21324), t51581); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51582; break; case NATIVE_PROCEDURE_TYPE21329: t51583 = FALSE_TYPE; t51584 = f17430((t51500.value.native_procedure_type21329), t51583); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51584; break; case NATIVE_PROCEDURE_TYPE21334: t51585 = FALSE_TYPE; t51586 = f17417((t51500.value.native_procedure_type21334), t51585); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51586; break; case NATIVE_PROCEDURE_TYPE21339: t51587 = FALSE_TYPE; t51588 = f17473((t51500.value.native_procedure_type21339), t51587); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51588; break; case NATIVE_PROCEDURE_TYPE21341: t51589 = FALSE_TYPE; t51590 = f17472((t51500.value.native_procedure_type21341), t51589); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51590; break; case NATIVE_PROCEDURE_TYPE21348: t51591 = FALSE_TYPE; t51592 = f17452((t51500.value.native_procedure_type21348), t51591); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51592; break; case NATIVE_PROCEDURE_TYPE21353: t51593 = FALSE_TYPE; t51594 = f17393((t51500.value.native_procedure_type21353), t51593); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51594; break; case NATIVE_PROCEDURE_TYPE21358: t51595 = FALSE_TYPE; t51596 = f17345((t51500.value.native_procedure_type21358), t51595); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51596; break; case NATIVE_PROCEDURE_TYPE21363: t51597 = FALSE_TYPE; t51598 = f17167((t51500.value.native_procedure_type21363), t51597); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51598; break; case NATIVE_PROCEDURE_TYPE21365: t51599 = FALSE_TYPE; t51600 = f17166((t51500.value.native_procedure_type21365), t51599); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51600; break; case NATIVE_PROCEDURE_TYPE21381: t51601 = FALSE_TYPE; t51602 = f17504((t51500.value.native_procedure_type21381), t51601); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51602; break; case NATIVE_PROCEDURE_TYPE21387: t51603 = FALSE_TYPE; t51604 = f17525((t51500.value.native_procedure_type21387), t51603); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51604; break; case NATIVE_PROCEDURE_TYPE21393: t51605 = FALSE_TYPE; t51606 = f17599((t51500.value.native_procedure_type21393), t51605); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51606; break; case NATIVE_PROCEDURE_TYPE21414: t51607 = f19631(); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51607; break; case NATIVE_PROCEDURE_TYPE21896: t51608 = FALSE_TYPE; t51609 = f15815((t51500.value.native_procedure_type21896), t51608); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51609; break; case NATIVE_PROCEDURE_TYPE21903: t51610 = FALSE_TYPE; t51611 = f15805((t51500.value.native_procedure_type21903), t51610); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51611; break; case NATIVE_PROCEDURE_TYPE21944: t51612 = FALSE_TYPE; t51613 = f17628((t51500.value.native_procedure_type21944), t51612); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51613; break; case NATIVE_PROCEDURE_TYPE21946: t51614 = FALSE_TYPE; t51615 = f17627((t51500.value.native_procedure_type21946), t51614); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51615; break; case NATIVE_PROCEDURE_TYPE21948: t51616 = FALSE_TYPE; t51617 = f17613((t51500.value.native_procedure_type21948), t51616); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51617; break; case NATIVE_PROCEDURE_TYPE21952: t51618 = FALSE_TYPE; t51619 = f17579((t51500.value.native_procedure_type21952), t51618); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51619; break; case NATIVE_PROCEDURE_TYPE21956: t51620 = FALSE_TYPE; t51621 = f17576((t51500.value.native_procedure_type21956), t51620); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51621; break; case NATIVE_PROCEDURE_TYPE21961: t51622 = FALSE_TYPE; t51623 = f17569((t51500.value.native_procedure_type21961), t51622); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51623; break; case NATIVE_PROCEDURE_TYPE21963: t51624 = FALSE_TYPE; t51625 = f17568((t51500.value.native_procedure_type21963), t51624); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51625; break; case NATIVE_PROCEDURE_TYPE21966: t51626 = FALSE_TYPE; t51627 = f17564((t51500.value.native_procedure_type21966), t51626); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51627; break; case NATIVE_PROCEDURE_TYPE21968: t51628 = FALSE_TYPE; t51629 = f17563((t51500.value.native_procedure_type21968), t51628); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51629; break; case NATIVE_PROCEDURE_TYPE21971: t51630 = FALSE_TYPE; t51631 = f17559((t51500.value.native_procedure_type21971), t51630); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51631; break; case NATIVE_PROCEDURE_TYPE21973: t51632 = FALSE_TYPE; t51633 = f17558((t51500.value.native_procedure_type21973), t51632); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51633; break; case NATIVE_PROCEDURE_TYPE21975: t51634 = FALSE_TYPE; t51635 = f17534((t51500.value.native_procedure_type21975), t51634); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51635; break; case NATIVE_PROCEDURE_TYPE21978: t51636 = FALSE_TYPE; t51637 = f17718((t51500.value.native_procedure_type21978), t51636); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51637; break; case NATIVE_PROCEDURE_TYPE21982: t51638 = FALSE_TYPE; t51639 = f17716((t51500.value.native_procedure_type21982), t51638); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51639; break; case NATIVE_PROCEDURE_TYPE21984: t51640 = FALSE_TYPE; t51641 = f17715((t51500.value.native_procedure_type21984), t51640); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51641; break; case NATIVE_PROCEDURE_TYPE21997: t51642 = FALSE_TYPE; t51643 = f17693((t51500.value.native_procedure_type21997), t51642); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51643; break; case NATIVE_PROCEDURE_TYPE22000: t51644 = FALSE_TYPE; t51645 = f17682((t51500.value.native_procedure_type22000), t51644); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51645; break; case NATIVE_PROCEDURE_TYPE22003: t51646 = FALSE_TYPE; t51647 = f17679((t51500.value.native_procedure_type22003), t51646); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51647; break; case NATIVE_PROCEDURE_TYPE22006: t51648 = FALSE_TYPE; t51649 = f17676((t51500.value.native_procedure_type22006), t51648); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51649; break; case NATIVE_PROCEDURE_TYPE22008: t51650 = FALSE_TYPE; t51651 = f17761((t51500.value.native_procedure_type22008), t51650); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51651; break; case NATIVE_PROCEDURE_TYPE22010: t51652 = FALSE_TYPE; t51653 = f17807((t51500.value.native_procedure_type22010), t51652); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51653; break; case NATIVE_PROCEDURE_TYPE22012: t51654 = FALSE_TYPE; t51655 = f17806((t51500.value.native_procedure_type22012), t51654); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51655; break; case NATIVE_PROCEDURE_TYPE22014: t51656 = FALSE_TYPE; t51657 = f17787((t51500.value.native_procedure_type22014), t51656); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51657; break; case NATIVE_PROCEDURE_TYPE22016: t51658 = FALSE_TYPE; t51659 = f17786((t51500.value.native_procedure_type22016), t51658); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51659; break; case NATIVE_PROCEDURE_TYPE22037: t51660 = FALSE_TYPE; t51661 = f17841((t51500.value.native_procedure_type22037), t51660); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51661; break; case NATIVE_PROCEDURE_TYPE22064: /* x298217 stalin.sc:19867:695278 */ /* x298216 stalin.sc:19867:695279 */ /* x303520 stalin.sc:14693:514793 */ t51486.tag = STRING_TYPE; t51486.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22072: t51662 = FALSE_TYPE; t51663 = f15886((t51500.value.native_procedure_type22072), t51662); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51663; break; case NATIVE_PROCEDURE_TYPE22081: t51664 = FALSE_TYPE; t51665 = f17894((t51500.value.native_procedure_type22081), t51664); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51665; break; case NATIVE_PROCEDURE_TYPE22091: t51666 = FALSE_TYPE; t51667 = f17885((t51500.value.native_procedure_type22091), t51666); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51667; break; case NATIVE_PROCEDURE_TYPE22100: t51668 = FALSE_TYPE; t51669 = f17641((t51500.value.native_procedure_type22100), t51668); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51669; break; case NATIVE_PROCEDURE_TYPE22102: t51670 = FALSE_TYPE; t51671 = f17640((t51500.value.native_procedure_type22102), t51670); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51671; break; case NATIVE_PROCEDURE_TYPE22104: t51672 = FALSE_TYPE; t51673 = f17639((t51500.value.native_procedure_type22104), t51672); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51673; break; case NATIVE_PROCEDURE_TYPE22106: t51674 = FALSE_TYPE; t51675 = f17491((t51500.value.native_procedure_type22106), t51674); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51675; break; case NATIVE_PROCEDURE_TYPE22112: t51676 = FALSE_TYPE; t51677 = f17936((t51500.value.native_procedure_type22112), t51676); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51677; break; case NATIVE_PROCEDURE_TYPE22117: t51678 = FALSE_TYPE; t51679 = f17957((t51500.value.native_procedure_type22117), t51678); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51679; break; case NATIVE_PROCEDURE_TYPE22119: t51680 = FALSE_TYPE; t51681 = f17948((t51500.value.native_procedure_type22119), t51680); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51681; break; case NATIVE_PROCEDURE_TYPE22124: t51682 = FALSE_TYPE; t51683 = f17976((t51500.value.native_procedure_type22124), t51682); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51683; break; case NATIVE_PROCEDURE_TYPE22127: t51684 = FALSE_TYPE; t51685 = f17966((t51500.value.native_procedure_type22127), t51684); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51685; break; case NATIVE_PROCEDURE_TYPE22130: t51686 = FALSE_TYPE; t51687 = f18033((t51500.value.native_procedure_type22130), t51686); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51687; break; case NATIVE_PROCEDURE_TYPE22132: t51688 = FALSE_TYPE; t51689 = f18032((t51500.value.native_procedure_type22132), t51688); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51689; break; case NATIVE_PROCEDURE_TYPE22135: t51690 = FALSE_TYPE; t51691 = f18008((t51500.value.native_procedure_type22135), t51690); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51691; break; case NATIVE_PROCEDURE_TYPE22137: t51692 = FALSE_TYPE; t51693 = f17986((t51500.value.native_procedure_type22137), t51692); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51693; break; case NATIVE_PROCEDURE_TYPE22139: t51694 = FALSE_TYPE; t51695 = f18072((t51500.value.native_procedure_type22139), t51694); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51695; break; case NATIVE_PROCEDURE_TYPE22141: t51696 = FALSE_TYPE; t51697 = f18090((t51500.value.native_procedure_type22141), t51696); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51697; break; case NATIVE_PROCEDURE_TYPE22143: t51698 = FALSE_TYPE; t51699 = f18081((t51500.value.native_procedure_type22143), t51698); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51699; break; case NATIVE_PROCEDURE_TYPE22145: t51700 = FALSE_TYPE; t51701 = f18063((t51500.value.native_procedure_type22145), t51700); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51701; break; case NATIVE_PROCEDURE_TYPE22148: t51702 = FALSE_TYPE; t51703 = f18121((t51500.value.native_procedure_type22148), t51702); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51703; break; case NATIVE_PROCEDURE_TYPE22154: t51704 = FALSE_TYPE; t51705 = f18148((t51500.value.native_procedure_type22154), t51704); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51705; break; case NATIVE_PROCEDURE_TYPE22160: t51706 = FALSE_TYPE; t51707 = f18135((t51500.value.native_procedure_type22160), t51706); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51707; break; case NATIVE_PROCEDURE_TYPE22162: t51708 = FALSE_TYPE; t51709 = f18133((t51500.value.native_procedure_type22162), t51708); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51709; break; case NATIVE_PROCEDURE_TYPE22165: t51710 = FALSE_TYPE; t51711 = f18042((t51500.value.native_procedure_type22165), t51710); t51486.tag = STRUCTURE_TYPE24753; t51486.value.structure_type24753 = t51711; break; default: /* x297720 stalin.sc:23751:825832 */ /* x297719 stalin.sc:23751:825833 */ /* x303238 QobiScheme.sc:166:5314 */ /* x303237 QobiScheme.sc:166:5321 */ t51712 = "This shouldn\'t happen"; /* x303236 QobiScheme.sc:166:5315 */ stalin_panic(t51712);} /* x131974 stalin.sc:16648:581897 */ /* x131956 stalin.sc:16645:581788 */ t51487 = FALSE_TYPE; return f13672(t51484, t51485, t51486, t51487); l7369: /* x132005 stalin.sc:16649:581904 */ /* x131982 stalin.sc:16649:581908 */ /* x131980 stalin.sc:16649:581914 */ /* x131979 stalin.sc:16649:581931 */ t51038 = a26013; /* x131978 stalin.sc:16649:581915 */ t51035 = f13854(t51038); /* x131981 stalin.sc:16649:581934 */ t51036 = p14623->a26012; /* x131977 stalin.sc:16649:581909 */ t51037 = *((struct w49 *)(&t51036)); if ((f26351(t51035, t51037).tag)==FALSE_TYPE) goto l7371; /* x132001 stalin.sc:16650:581944 */ /* x131991 stalin.sc:16650:581950 */ /* x131985 stalin.sc:16650:581956 */ t51256 = a26014; /* x131990 stalin.sc:16650:581959 */ /* x131988 stalin.sc:16650:581976 */ /* x131987 stalin.sc:16650:581977 */ /* x276371 stalin.sc:16167:562604 */ t51259 = "VALUE_OFFSET"; /* x131989 stalin.sc:16650:581993 */ t51260 = a26013; /* x131986 stalin.sc:16650:581960 */ t51261.tag = STRING_TYPE; t51261.value.string_type = t51259; t51257 = f14422(t51261, t51260); /* x131984 stalin.sc:16650:581951 */ t51258.tag = STRUCTURE_TYPE24753; t51258.value.structure_type24753 = t51257; t51252 = f13608(t51256, t51258); /* x131996 stalin.sc:16651:582002 */ /* x131995 stalin.sc:16651:582006 */ /* x131994 stalin.sc:16651:582023 */ t51266 = a26013; /* x131993 stalin.sc:16651:582007 */ t51263 = f13854(t51266); /* x131992 stalin.sc:16651:582003 */ t51262 = p14623->a26015; switch (t51262.tag) {case NATIVE_PROCEDURE_TYPE20758: d16096 = t51262.value.native_procedure_type20758; b27143 = t51263; t51253 = f16096(); break; case NATIVE_PROCEDURE_TYPE20783: d15771 = t51262.value.native_procedure_type20783; b26894 = t51263; t51253 = f15771(); break; case NATIVE_PROCEDURE_TYPE20851: t51253 = f14712(t51262.value.native_procedure_type20851); break; case NATIVE_PROCEDURE_TYPE20914: t51253 = f16432((t51262.value.native_procedure_type20914), t51263); break; case NATIVE_PROCEDURE_TYPE20916: t51253 = f16416((t51262.value.native_procedure_type20916), t51263); break; case NATIVE_PROCEDURE_TYPE20919: t51253 = f16631((t51262.value.native_procedure_type20919), t51263); break; case NATIVE_PROCEDURE_TYPE20928: t51253 = f16597((t51262.value.native_procedure_type20928), t51263); break; case NATIVE_PROCEDURE_TYPE21037: t51253 = f16700((t51262.value.native_procedure_type21037), t51263); break; case NATIVE_PROCEDURE_TYPE21043: t51253 = f16678((t51262.value.native_procedure_type21043), t51263); break; case NATIVE_PROCEDURE_TYPE21049: t51253 = f16736((t51262.value.native_procedure_type21049), t51263); break; case NATIVE_PROCEDURE_TYPE21060: d15570 = t51262.value.native_procedure_type21060; b26729 = t51263; t51253 = f15570(); break; case NATIVE_PROCEDURE_TYPE21066: t51253 = f16821((t51262.value.native_procedure_type21066), t51263); break; case NATIVE_PROCEDURE_TYPE21083: t51253 = f16720((t51262.value.native_procedure_type21083), t51263); break; case NATIVE_PROCEDURE_TYPE21088: t51253 = f16646((t51262.value.native_procedure_type21088), t51263); break; case NATIVE_PROCEDURE_TYPE21091: t51253 = f16853((t51262.value.native_procedure_type21091), t51263); break; case NATIVE_PROCEDURE_TYPE21109: d15579 = t51262.value.native_procedure_type21109; b26749 = t51263; t51253 = f15579(); break; case NATIVE_PROCEDURE_TYPE21111: t51253 = f16908((t51262.value.native_procedure_type21111), t51263); break; case NATIVE_PROCEDURE_TYPE21118: t51253 = f16880((t51262.value.native_procedure_type21118), t51263); break; case NATIVE_PROCEDURE_TYPE21138: t51253 = f16981((t51262.value.native_procedure_type21138), t51263); break; case NATIVE_PROCEDURE_TYPE21148: t51253 = f17057((t51262.value.native_procedure_type21148), t51263); break; case NATIVE_PROCEDURE_TYPE21153: d17117 = t51262.value.native_procedure_type21153; b29067 = t51263; t51253 = f17117(); break; case NATIVE_PROCEDURE_TYPE21155: t51253 = f17118((t51262.value.native_procedure_type21155), t51263); break; case NATIVE_PROCEDURE_TYPE21171: d17084 = t51262.value.native_procedure_type21171; b29016 = t51263; t51253 = f17084(); break; case NATIVE_PROCEDURE_TYPE21173: t51253 = f17085((t51262.value.native_procedure_type21173), t51263); break; case NATIVE_PROCEDURE_TYPE21202: t51253 = f17018((t51262.value.native_procedure_type21202), t51263); break; case NATIVE_PROCEDURE_TYPE21226: t51253 = f16940((t51262.value.native_procedure_type21226), t51263); break; case NATIVE_PROCEDURE_TYPE21229: t51253 = f16839((t51262.value.native_procedure_type21229), t51263); break; case NATIVE_PROCEDURE_TYPE21235: d17183 = t51262.value.native_procedure_type21235; b29169 = t51263; t51253 = f17183(); break; case NATIVE_PROCEDURE_TYPE21237: t51253 = f17184((t51262.value.native_procedure_type21237), t51263); break; case NATIVE_PROCEDURE_TYPE21257: t51253 = f17221((t51262.value.native_procedure_type21257), t51263); break; case NATIVE_PROCEDURE_TYPE21260: t51253 = f17208((t51262.value.native_procedure_type21260), t51263); break; case NATIVE_PROCEDURE_TYPE21266: t51253 = f17253((t51262.value.native_procedure_type21266), t51263); break; case NATIVE_PROCEDURE_TYPE21269: t51253 = f17290((t51262.value.native_procedure_type21269), t51263); break; case NATIVE_PROCEDURE_TYPE21275: t51253 = f17328((t51262.value.native_procedure_type21275), t51263); break; case NATIVE_PROCEDURE_TYPE21281: t51253 = f17309((t51262.value.native_procedure_type21281), t51263); break; case NATIVE_PROCEDURE_TYPE21287: t51253 = f17271((t51262.value.native_procedure_type21287), t51263); break; case NATIVE_PROCEDURE_TYPE21297: t51253 = f17237((t51262.value.native_procedure_type21297), t51263); break; case NATIVE_PROCEDURE_TYPE21300: t51253 = f17353((t51262.value.native_procedure_type21300), t51263); break; case NATIVE_PROCEDURE_TYPE21305: t51253 = f17377((t51262.value.native_procedure_type21305), t51263); break; case NATIVE_PROCEDURE_TYPE21310: t51253 = f17365((t51262.value.native_procedure_type21310), t51263); break; case NATIVE_PROCEDURE_TYPE21315: t51253 = f17401((t51262.value.native_procedure_type21315), t51263); break; case NATIVE_PROCEDURE_TYPE21320: d17431 = t51262.value.native_procedure_type21320; b29911 = t51263; t51253 = f17431(); break; case NATIVE_PROCEDURE_TYPE21325: t51253 = f17433((t51262.value.native_procedure_type21325), t51263); break; case NATIVE_PROCEDURE_TYPE21330: t51253 = f17426((t51262.value.native_procedure_type21330), t51263); break; case NATIVE_PROCEDURE_TYPE21335: t51253 = f17413((t51262.value.native_procedure_type21335), t51263); break; case NATIVE_PROCEDURE_TYPE21340: d17465 = t51262.value.native_procedure_type21340; b30003 = t51263; t51253 = f17465(); break; case NATIVE_PROCEDURE_TYPE21342: t51253 = f17466((t51262.value.native_procedure_type21342), t51263); break; case NATIVE_PROCEDURE_TYPE21349: t51253 = f17448((t51262.value.native_procedure_type21349), t51263); break; case NATIVE_PROCEDURE_TYPE21354: t51253 = f17389((t51262.value.native_procedure_type21354), t51263); break; case NATIVE_PROCEDURE_TYPE21359: t51253 = f17341((t51262.value.native_procedure_type21359), t51263); break; case NATIVE_PROCEDURE_TYPE21364: d17150 = t51262.value.native_procedure_type21364; b29118 = t51263; t51253 = f17150(); break; case NATIVE_PROCEDURE_TYPE21366: t51253 = f17151((t51262.value.native_procedure_type21366), t51263); break; case NATIVE_PROCEDURE_TYPE21382: t51253 = f17499((t51262.value.native_procedure_type21382), t51263); break; case NATIVE_PROCEDURE_TYPE21388: t51253 = f17524((t51262.value.native_procedure_type21388), t51263); break; case NATIVE_PROCEDURE_TYPE21394: d17598 = t51262.value.native_procedure_type21394; b30396 = t51263; t51253 = f17598(); break; case NATIVE_PROCEDURE_TYPE21415: t51264 = f19627(t51263); t51253.tag = STRUCTURE_TYPE24753; t51253.value.structure_type24753 = t51264; break; case NATIVE_PROCEDURE_TYPE21897: t51253 = f15811((t51262.value.native_procedure_type21897), t51263); break; case NATIVE_PROCEDURE_TYPE21904: /* x298277 stalin.sc:19531:682748 */ /* x298276 stalin.sc:19531:682749 */ /* x303560 stalin.sc:14693:514793 */ t51253.tag = STRING_TYPE; t51253.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21945: d17625 = t51262.value.native_procedure_type21945; b30489 = t51263; t51253 = f17625(); break; case NATIVE_PROCEDURE_TYPE21947: t51253 = f17626((t51262.value.native_procedure_type21947), t51263); break; case NATIVE_PROCEDURE_TYPE21949: t51253 = f17612((t51262.value.native_procedure_type21949), t51263); break; case NATIVE_PROCEDURE_TYPE21953: d17572 = t51262.value.native_procedure_type21953; b30333 = t51263; t51253 = f17572(); break; case NATIVE_PROCEDURE_TYPE21957: t51253 = f17573((t51262.value.native_procedure_type21957), t51263); break; case NATIVE_PROCEDURE_TYPE21962: d17566 = t51262.value.native_procedure_type21962; t51253 = f17566(); break; case NATIVE_PROCEDURE_TYPE21964: t51253 = f17567(t51262.value.native_procedure_type21964); break; case NATIVE_PROCEDURE_TYPE21967: d17561 = t51262.value.native_procedure_type21967; t51253 = f17561(); break; case NATIVE_PROCEDURE_TYPE21969: t51253 = f17562(t51262.value.native_procedure_type21969); break; case NATIVE_PROCEDURE_TYPE21972: d17556 = t51262.value.native_procedure_type21972; t51253 = f17556(); break; case NATIVE_PROCEDURE_TYPE21974: /* x297843 stalin.sc:23400:816144 */ /* x297842 stalin.sc:23400:816145 */ /* x303336 stalin.sc:14693:514793 */ t51253.tag = STRING_TYPE; t51253.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE21976: t51253 = f17533((t51262.value.native_procedure_type21976), t51263); break; case NATIVE_PROCEDURE_TYPE21979: d17706 = t51262.value.native_procedure_type21979; b30702 = t51263; t51253 = f17706(); break; case NATIVE_PROCEDURE_TYPE21983: d17708 = t51262.value.native_procedure_type21983; b30704 = t51263; t51253 = f17708(); break; case NATIVE_PROCEDURE_TYPE21985: t51253 = f17709((t51262.value.native_procedure_type21985), t51263); break; case NATIVE_PROCEDURE_TYPE21998: t51253 = f17688((t51262.value.native_procedure_type21998), t51263); break; case NATIVE_PROCEDURE_TYPE22001: t51253 = f17681(t51262.value.native_procedure_type22001); break; case NATIVE_PROCEDURE_TYPE22004: t51253 = f17678(t51262.value.native_procedure_type22004); break; case NATIVE_PROCEDURE_TYPE22007: /* x297780 stalin.sc:23690:824240 */ /* x297779 stalin.sc:23690:824241 */ /* x303302 stalin.sc:14693:514793 */ t51253.tag = STRING_TYPE; t51253.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22009: t51253 = f17760((t51262.value.native_procedure_type22009), t51263); break; case NATIVE_PROCEDURE_TYPE22011: d17804 = t51262.value.native_procedure_type22011; b30911 = t51263; t51253 = f17804(); break; case NATIVE_PROCEDURE_TYPE22013: t51253 = f17805((t51262.value.native_procedure_type22013), t51263); break; case NATIVE_PROCEDURE_TYPE22015: d17784 = t51262.value.native_procedure_type22015; b30860 = t51263; t51253 = f17784(); break; case NATIVE_PROCEDURE_TYPE22017: t51253 = f17785((t51262.value.native_procedure_type22017), t51263); break; case NATIVE_PROCEDURE_TYPE22038: d17840 = t51262.value.native_procedure_type22038; b31010 = t51263; t51253 = f17840(); break; case NATIVE_PROCEDURE_TYPE22065: d15900 = t51262.value.native_procedure_type22065; b27021 = t51263; t51253 = f15900(); break; case NATIVE_PROCEDURE_TYPE22073: d15885 = t51262.value.native_procedure_type22073; b27015 = t51263; t51253 = f15885(); break; case NATIVE_PROCEDURE_TYPE22082: d17890 = t51262.value.native_procedure_type22082; b31082 = t51263; t51253 = f17890(); break; case NATIVE_PROCEDURE_TYPE22092: t51253 = f17878((t51262.value.native_procedure_type22092), t51263); break; case NATIVE_PROCEDURE_TYPE22101: d17636 = t51262.value.native_procedure_type22101; b30537 = t51263; t51253 = f17636(); break; case NATIVE_PROCEDURE_TYPE22103: t51253 = f17637((t51262.value.native_procedure_type22103), t51263); break; case NATIVE_PROCEDURE_TYPE22105: t51253 = f17638((t51262.value.native_procedure_type22105), t51263); break; case NATIVE_PROCEDURE_TYPE22107: t51253 = f17486((t51262.value.native_procedure_type22107), t51263); break; case NATIVE_PROCEDURE_TYPE22113: t51253 = f17932((t51262.value.native_procedure_type22113), t51263); break; case NATIVE_PROCEDURE_TYPE22118: t51253 = f17956((t51262.value.native_procedure_type22118), t51263); break; case NATIVE_PROCEDURE_TYPE22120: t51253 = f17944((t51262.value.native_procedure_type22120), t51263); break; case NATIVE_PROCEDURE_TYPE22125: t51253 = f17975((t51262.value.native_procedure_type22125), t51263); break; case NATIVE_PROCEDURE_TYPE22128: t51253 = f17965((t51262.value.native_procedure_type22128), t51263); break; case NATIVE_PROCEDURE_TYPE22131: d18030 = t51262.value.native_procedure_type22131; b31667 = t51263; t51253 = f18030(); break; case NATIVE_PROCEDURE_TYPE22133: t51253 = f18031((t51262.value.native_procedure_type22133), t51263); break; case NATIVE_PROCEDURE_TYPE22136: t51253 = f18007((t51262.value.native_procedure_type22136), t51263); break; case NATIVE_PROCEDURE_TYPE22138: t51253 = f17985((t51262.value.native_procedure_type22138), t51263); break; case NATIVE_PROCEDURE_TYPE22140: t51253 = f18071((t51262.value.native_procedure_type22140), t51263); break; case NATIVE_PROCEDURE_TYPE22142: t51253 = f18089((t51262.value.native_procedure_type22142), t51263); break; case NATIVE_PROCEDURE_TYPE22144: t51253 = f18080((t51262.value.native_procedure_type22144), t51263); break; case NATIVE_PROCEDURE_TYPE22146: t51253 = f18062((t51262.value.native_procedure_type22146), t51263); break; case NATIVE_PROCEDURE_TYPE22149: t51253 = f18120((t51262.value.native_procedure_type22149), t51263); break; case NATIVE_PROCEDURE_TYPE22155: d18147 = t51262.value.native_procedure_type22155; b32201 = t51263; t51253 = f18147(); break; case NATIVE_PROCEDURE_TYPE22161: d18134 = t51262.value.native_procedure_type22161; b32153 = t51263; t51253 = f18134(); break; case NATIVE_PROCEDURE_TYPE22163: d18132 = t51262.value.native_procedure_type22163; b32151 = t51263; t51253 = f18132(); break; case NATIVE_PROCEDURE_TYPE22166: t51265 = f18041((t51262.value.native_procedure_type22166), t51263); t51253.tag = STRUCTURE_TYPE24753; t51253.value.structure_type24753 = t51265; break; default: t51253 = f17689(t51262.value.native_procedure_type23298);} /* x131999 stalin.sc:16652:582032 */ /* x131998 stalin.sc:16652:582036 */ /* x131997 stalin.sc:16652:582033 */ t51267 = p14623->a26016; switch (t51267.tag) {case NATIVE_PROCEDURE_TYPE20757: t51268 = FALSE_TYPE; t51269 = f16097((t51267.value.native_procedure_type20757), t51268); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51269; break; case NATIVE_PROCEDURE_TYPE20782: t51270 = FALSE_TYPE; t51271 = f15772((t51267.value.native_procedure_type20782), t51270); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51271; break; case NATIVE_PROCEDURE_TYPE20850: p37520 = t51267.value.native_procedure_type20850; /* x302874 stalin.sc:17033:595793 */ /* x302873 stalin.sc:17033:595807 */ t51272 = p37520->a26136; /* x302872 stalin.sc:17033:595794 */ t51254 = f14708(t51272); break; case NATIVE_PROCEDURE_TYPE20913: t51273 = FALSE_TYPE; t51274 = f16433((t51267.value.native_procedure_type20913), t51273); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51274; break; case NATIVE_PROCEDURE_TYPE20915: t51275 = FALSE_TYPE; t51276 = f16417((t51267.value.native_procedure_type20915), t51275); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51276; break; case NATIVE_PROCEDURE_TYPE20918: t51277 = FALSE_TYPE; t51278 = f16635((t51267.value.native_procedure_type20918), t51277); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51278; break; case NATIVE_PROCEDURE_TYPE20927: p37501 = t51267.value.native_procedure_type20927; /* x302798 stalin.sc:21738:761657 */ /* x302797 stalin.sc:21738:761670 */ t51279 = p37501->a27722; /* x302796 stalin.sc:21738:761658 */ t51254 = f14707(t51279); break; case NATIVE_PROCEDURE_TYPE21036: /* x298062 stalin.sc:21885:766135 */ /* x298061 stalin.sc:21885:766136 */ /* x303386 QobiScheme.sc:166:5314 */ /* x303385 QobiScheme.sc:166:5321 */ t51280 = "This shouldn\'t happen"; /* x303384 QobiScheme.sc:166:5315 */ stalin_panic(t51280); break; case NATIVE_PROCEDURE_TYPE21042: /* x298123 stalin.sc:21855:765176 */ /* x298122 stalin.sc:21855:765177 */ /* x303462 QobiScheme.sc:166:5314 */ /* x303461 QobiScheme.sc:166:5321 */ t51281 = "This shouldn\'t happen"; /* x303460 QobiScheme.sc:166:5315 */ stalin_panic(t51281); break; case NATIVE_PROCEDURE_TYPE21048: t51282 = FALSE_TYPE; t51283 = f16737((t51267.value.native_procedure_type21048), t51282); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51283; break; case NATIVE_PROCEDURE_TYPE21059: t51284 = FALSE_TYPE; t51285 = f15571((t51267.value.native_procedure_type21059), t51284); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51285; break; case NATIVE_PROCEDURE_TYPE21065: t51286 = FALSE_TYPE; t51287 = f16830((t51267.value.native_procedure_type21065), t51286); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51287; break; case NATIVE_PROCEDURE_TYPE21082: t51288 = FALSE_TYPE; t51289 = f16721((t51267.value.native_procedure_type21082), t51288); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51289; break; case NATIVE_PROCEDURE_TYPE21087: t51290 = FALSE_TYPE; t51291 = f16648((t51267.value.native_procedure_type21087), t51290); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51291; break; case NATIVE_PROCEDURE_TYPE21090: t51292 = FALSE_TYPE; t51293 = f16858((t51267.value.native_procedure_type21090), t51292); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51293; break; case NATIVE_PROCEDURE_TYPE21108: t51294 = FALSE_TYPE; t51295 = f15580((t51267.value.native_procedure_type21108), t51294); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51295; break; case NATIVE_PROCEDURE_TYPE21110: t51296 = FALSE_TYPE; t51297 = f16912((t51267.value.native_procedure_type21110), t51296); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51297; break; case NATIVE_PROCEDURE_TYPE21117: t51298 = FALSE_TYPE; t51299 = f16884((t51267.value.native_procedure_type21117), t51298); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51299; break; case NATIVE_PROCEDURE_TYPE21137: t51300 = FALSE_TYPE; t51301 = f16982((t51267.value.native_procedure_type21137), t51300); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51301; break; case NATIVE_PROCEDURE_TYPE21147: t51302 = FALSE_TYPE; t51303 = f17061((t51267.value.native_procedure_type21147), t51302); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51303; break; case NATIVE_PROCEDURE_TYPE21152: t51304 = FALSE_TYPE; t51305 = f17134((t51267.value.native_procedure_type21152), t51304); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51305; break; case NATIVE_PROCEDURE_TYPE21154: t51306 = FALSE_TYPE; t51307 = f17133((t51267.value.native_procedure_type21154), t51306); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51307; break; case NATIVE_PROCEDURE_TYPE21170: t51308 = FALSE_TYPE; t51309 = f17101((t51267.value.native_procedure_type21170), t51308); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51309; break; case NATIVE_PROCEDURE_TYPE21172: t51310 = FALSE_TYPE; t51311 = f17100((t51267.value.native_procedure_type21172), t51310); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51311; break; case NATIVE_PROCEDURE_TYPE21201: t51312 = FALSE_TYPE; t51313 = f17026((t51267.value.native_procedure_type21201), t51312); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51313; break; case NATIVE_PROCEDURE_TYPE21225: t51314 = FALSE_TYPE; t51315 = f16941((t51267.value.native_procedure_type21225), t51314); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51315; break; case NATIVE_PROCEDURE_TYPE21228: t51316 = FALSE_TYPE; t51317 = f16844((t51267.value.native_procedure_type21228), t51316); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51317; break; case NATIVE_PROCEDURE_TYPE21234: t51318 = FALSE_TYPE; t51319 = f17200((t51267.value.native_procedure_type21234), t51318); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51319; break; case NATIVE_PROCEDURE_TYPE21236: t51320 = FALSE_TYPE; t51321 = f17199((t51267.value.native_procedure_type21236), t51320); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51321; break; case NATIVE_PROCEDURE_TYPE21256: t51322 = FALSE_TYPE; t51323 = f17222((t51267.value.native_procedure_type21256), t51322); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51323; break; case NATIVE_PROCEDURE_TYPE21259: t51324 = FALSE_TYPE; t51325 = f17209((t51267.value.native_procedure_type21259), t51324); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51325; break; case NATIVE_PROCEDURE_TYPE21265: t51326 = FALSE_TYPE; t51327 = f17254((t51267.value.native_procedure_type21265), t51326); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51327; break; case NATIVE_PROCEDURE_TYPE21268: t51328 = FALSE_TYPE; t51329 = f17295((t51267.value.native_procedure_type21268), t51328); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51329; break; case NATIVE_PROCEDURE_TYPE21274: t51330 = FALSE_TYPE; t51331 = f17333((t51267.value.native_procedure_type21274), t51330); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51331; break; case NATIVE_PROCEDURE_TYPE21280: t51332 = FALSE_TYPE; t51333 = f17314((t51267.value.native_procedure_type21280), t51332); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51333; break; case NATIVE_PROCEDURE_TYPE21286: t51334 = FALSE_TYPE; t51335 = f17276((t51267.value.native_procedure_type21286), t51334); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51335; break; case NATIVE_PROCEDURE_TYPE21296: t51336 = FALSE_TYPE; t51337 = f17238((t51267.value.native_procedure_type21296), t51336); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51337; break; case NATIVE_PROCEDURE_TYPE21299: t51338 = FALSE_TYPE; t51339 = f17357((t51267.value.native_procedure_type21299), t51338); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51339; break; case NATIVE_PROCEDURE_TYPE21304: t51340 = FALSE_TYPE; t51341 = f17381((t51267.value.native_procedure_type21304), t51340); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51341; break; case NATIVE_PROCEDURE_TYPE21309: t51342 = FALSE_TYPE; t51343 = f17369((t51267.value.native_procedure_type21309), t51342); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51343; break; case NATIVE_PROCEDURE_TYPE21314: t51344 = FALSE_TYPE; t51345 = f17405((t51267.value.native_procedure_type21314), t51344); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51345; break; case NATIVE_PROCEDURE_TYPE21319: t51346 = FALSE_TYPE; t51347 = f17440((t51267.value.native_procedure_type21319), t51346); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51347; break; case NATIVE_PROCEDURE_TYPE21324: t51348 = FALSE_TYPE; t51349 = f17437((t51267.value.native_procedure_type21324), t51348); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51349; break; case NATIVE_PROCEDURE_TYPE21329: t51350 = FALSE_TYPE; t51351 = f17430((t51267.value.native_procedure_type21329), t51350); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51351; break; case NATIVE_PROCEDURE_TYPE21334: t51352 = FALSE_TYPE; t51353 = f17417((t51267.value.native_procedure_type21334), t51352); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51353; break; case NATIVE_PROCEDURE_TYPE21339: t51354 = FALSE_TYPE; t51355 = f17473((t51267.value.native_procedure_type21339), t51354); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51355; break; case NATIVE_PROCEDURE_TYPE21341: t51356 = FALSE_TYPE; t51357 = f17472((t51267.value.native_procedure_type21341), t51356); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51357; break; case NATIVE_PROCEDURE_TYPE21348: t51358 = FALSE_TYPE; t51359 = f17452((t51267.value.native_procedure_type21348), t51358); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51359; break; case NATIVE_PROCEDURE_TYPE21353: t51360 = FALSE_TYPE; t51361 = f17393((t51267.value.native_procedure_type21353), t51360); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51361; break; case NATIVE_PROCEDURE_TYPE21358: t51362 = FALSE_TYPE; t51363 = f17345((t51267.value.native_procedure_type21358), t51362); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51363; break; case NATIVE_PROCEDURE_TYPE21363: t51364 = FALSE_TYPE; t51365 = f17167((t51267.value.native_procedure_type21363), t51364); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51365; break; case NATIVE_PROCEDURE_TYPE21365: t51366 = FALSE_TYPE; t51367 = f17166((t51267.value.native_procedure_type21365), t51366); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51367; break; case NATIVE_PROCEDURE_TYPE21381: t51368 = FALSE_TYPE; t51369 = f17504((t51267.value.native_procedure_type21381), t51368); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51369; break; case NATIVE_PROCEDURE_TYPE21387: t51370 = FALSE_TYPE; t51371 = f17525((t51267.value.native_procedure_type21387), t51370); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51371; break; case NATIVE_PROCEDURE_TYPE21393: t51372 = FALSE_TYPE; t51373 = f17599((t51267.value.native_procedure_type21393), t51372); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51373; break; case NATIVE_PROCEDURE_TYPE21414: t51374 = f19631(); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51374; break; case NATIVE_PROCEDURE_TYPE21896: t51375 = FALSE_TYPE; t51376 = f15815((t51267.value.native_procedure_type21896), t51375); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51376; break; case NATIVE_PROCEDURE_TYPE21903: t51377 = FALSE_TYPE; t51378 = f15805((t51267.value.native_procedure_type21903), t51377); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51378; break; case NATIVE_PROCEDURE_TYPE21944: t51379 = FALSE_TYPE; t51380 = f17628((t51267.value.native_procedure_type21944), t51379); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51380; break; case NATIVE_PROCEDURE_TYPE21946: t51381 = FALSE_TYPE; t51382 = f17627((t51267.value.native_procedure_type21946), t51381); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51382; break; case NATIVE_PROCEDURE_TYPE21948: t51383 = FALSE_TYPE; t51384 = f17613((t51267.value.native_procedure_type21948), t51383); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51384; break; case NATIVE_PROCEDURE_TYPE21952: t51385 = FALSE_TYPE; t51386 = f17579((t51267.value.native_procedure_type21952), t51385); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51386; break; case NATIVE_PROCEDURE_TYPE21956: t51387 = FALSE_TYPE; t51388 = f17576((t51267.value.native_procedure_type21956), t51387); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51388; break; case NATIVE_PROCEDURE_TYPE21961: t51389 = FALSE_TYPE; t51390 = f17569((t51267.value.native_procedure_type21961), t51389); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51390; break; case NATIVE_PROCEDURE_TYPE21963: t51391 = FALSE_TYPE; t51392 = f17568((t51267.value.native_procedure_type21963), t51391); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51392; break; case NATIVE_PROCEDURE_TYPE21966: t51393 = FALSE_TYPE; t51394 = f17564((t51267.value.native_procedure_type21966), t51393); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51394; break; case NATIVE_PROCEDURE_TYPE21968: t51395 = FALSE_TYPE; t51396 = f17563((t51267.value.native_procedure_type21968), t51395); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51396; break; case NATIVE_PROCEDURE_TYPE21971: t51397 = FALSE_TYPE; t51398 = f17559((t51267.value.native_procedure_type21971), t51397); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51398; break; case NATIVE_PROCEDURE_TYPE21973: t51399 = FALSE_TYPE; t51400 = f17558((t51267.value.native_procedure_type21973), t51399); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51400; break; case NATIVE_PROCEDURE_TYPE21975: t51401 = FALSE_TYPE; t51402 = f17534((t51267.value.native_procedure_type21975), t51401); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51402; break; case NATIVE_PROCEDURE_TYPE21978: t51403 = FALSE_TYPE; t51404 = f17718((t51267.value.native_procedure_type21978), t51403); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51404; break; case NATIVE_PROCEDURE_TYPE21982: t51405 = FALSE_TYPE; t51406 = f17716((t51267.value.native_procedure_type21982), t51405); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51406; break; case NATIVE_PROCEDURE_TYPE21984: t51407 = FALSE_TYPE; t51408 = f17715((t51267.value.native_procedure_type21984), t51407); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51408; break; case NATIVE_PROCEDURE_TYPE21997: t51409 = FALSE_TYPE; t51410 = f17693((t51267.value.native_procedure_type21997), t51409); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51410; break; case NATIVE_PROCEDURE_TYPE22000: t51411 = FALSE_TYPE; t51412 = f17682((t51267.value.native_procedure_type22000), t51411); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51412; break; case NATIVE_PROCEDURE_TYPE22003: t51413 = FALSE_TYPE; t51414 = f17679((t51267.value.native_procedure_type22003), t51413); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51414; break; case NATIVE_PROCEDURE_TYPE22006: t51415 = FALSE_TYPE; t51416 = f17676((t51267.value.native_procedure_type22006), t51415); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51416; break; case NATIVE_PROCEDURE_TYPE22008: t51417 = FALSE_TYPE; t51418 = f17761((t51267.value.native_procedure_type22008), t51417); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51418; break; case NATIVE_PROCEDURE_TYPE22010: t51419 = FALSE_TYPE; t51420 = f17807((t51267.value.native_procedure_type22010), t51419); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51420; break; case NATIVE_PROCEDURE_TYPE22012: t51421 = FALSE_TYPE; t51422 = f17806((t51267.value.native_procedure_type22012), t51421); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51422; break; case NATIVE_PROCEDURE_TYPE22014: t51423 = FALSE_TYPE; t51424 = f17787((t51267.value.native_procedure_type22014), t51423); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51424; break; case NATIVE_PROCEDURE_TYPE22016: t51425 = FALSE_TYPE; t51426 = f17786((t51267.value.native_procedure_type22016), t51425); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51426; break; case NATIVE_PROCEDURE_TYPE22037: t51427 = FALSE_TYPE; t51428 = f17841((t51267.value.native_procedure_type22037), t51427); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51428; break; case NATIVE_PROCEDURE_TYPE22064: /* x298220 stalin.sc:19867:695278 */ /* x298219 stalin.sc:19867:695279 */ /* x303522 stalin.sc:14693:514793 */ t51254.tag = STRING_TYPE; t51254.value.string_type = ""; break; case NATIVE_PROCEDURE_TYPE22072: t51429 = FALSE_TYPE; t51430 = f15886((t51267.value.native_procedure_type22072), t51429); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51430; break; case NATIVE_PROCEDURE_TYPE22081: t51431 = FALSE_TYPE; t51432 = f17894((t51267.value.native_procedure_type22081), t51431); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51432; break; case NATIVE_PROCEDURE_TYPE22091: t51433 = FALSE_TYPE; t51434 = f17885((t51267.value.native_procedure_type22091), t51433); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51434; break; case NATIVE_PROCEDURE_TYPE22100: t51435 = FALSE_TYPE; t51436 = f17641((t51267.value.native_procedure_type22100), t51435); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51436; break; case NATIVE_PROCEDURE_TYPE22102: t51437 = FALSE_TYPE; t51438 = f17640((t51267.value.native_procedure_type22102), t51437); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51438; break; case NATIVE_PROCEDURE_TYPE22104: t51439 = FALSE_TYPE; t51440 = f17639((t51267.value.native_procedure_type22104), t51439); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51440; break; case NATIVE_PROCEDURE_TYPE22106: t51441 = FALSE_TYPE; t51442 = f17491((t51267.value.native_procedure_type22106), t51441); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51442; break; case NATIVE_PROCEDURE_TYPE22112: t51443 = FALSE_TYPE; t51444 = f17936((t51267.value.native_procedure_type22112), t51443); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51444; break; case NATIVE_PROCEDURE_TYPE22117: t51445 = FALSE_TYPE; t51446 = f17957((t51267.value.native_procedure_type22117), t51445); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51446; break; case NATIVE_PROCEDURE_TYPE22119: t51447 = FALSE_TYPE; t51448 = f17948((t51267.value.native_procedure_type22119), t51447); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51448; break; case NATIVE_PROCEDURE_TYPE22124: t51449 = FALSE_TYPE; t51450 = f17976((t51267.value.native_procedure_type22124), t51449); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51450; break; case NATIVE_PROCEDURE_TYPE22127: t51451 = FALSE_TYPE; t51452 = f17966((t51267.value.native_procedure_type22127), t51451); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51452; break; case NATIVE_PROCEDURE_TYPE22130: t51453 = FALSE_TYPE; t51454 = f18033((t51267.value.native_procedure_type22130), t51453); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51454; break; case NATIVE_PROCEDURE_TYPE22132: t51455 = FALSE_TYPE; t51456 = f18032((t51267.value.native_procedure_type22132), t51455); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51456; break; case NATIVE_PROCEDURE_TYPE22135: t51457 = FALSE_TYPE; t51458 = f18008((t51267.value.native_procedure_type22135), t51457); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51458; break; case NATIVE_PROCEDURE_TYPE22137: t51459 = FALSE_TYPE; t51460 = f17986((t51267.value.native_procedure_type22137), t51459); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51460; break; case NATIVE_PROCEDURE_TYPE22139: t51461 = FALSE_TYPE; t51462 = f18072((t51267.value.native_procedure_type22139), t51461); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51462; break; case NATIVE_PROCEDURE_TYPE22141: t51463 = FALSE_TYPE; t51464 = f18090((t51267.value.native_procedure_type22141), t51463); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51464; break; case NATIVE_PROCEDURE_TYPE22143: t51465 = FALSE_TYPE; t51466 = f18081((t51267.value.native_procedure_type22143), t51465); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51466; break; case NATIVE_PROCEDURE_TYPE22145: t51467 = FALSE_TYPE; t51468 = f18063((t51267.value.native_procedure_type22145), t51467); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51468; break; case NATIVE_PROCEDURE_TYPE22148: t51469 = FALSE_TYPE; t51470 = f18121((t51267.value.native_procedure_type22148), t51469); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51470; break; case NATIVE_PROCEDURE_TYPE22154: t51471 = FALSE_TYPE; t51472 = f18148((t51267.value.native_procedure_type22154), t51471); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51472; break; case NATIVE_PROCEDURE_TYPE22160: t51473 = FALSE_TYPE; t51474 = f18135((t51267.value.native_procedure_type22160), t51473); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51474; break; case NATIVE_PROCEDURE_TYPE22162: t51475 = FALSE_TYPE; t51476 = f18133((t51267.value.native_procedure_type22162), t51475); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51476; break; case NATIVE_PROCEDURE_TYPE22165: t51477 = FALSE_TYPE; t51478 = f18042((t51267.value.native_procedure_type22165), t51477); t51254.tag = STRUCTURE_TYPE24753; t51254.value.structure_type24753 = t51478; break; default: /* x297723 stalin.sc:23751:825832 */ /* x297722 stalin.sc:23751:825833 */ /* x303242 QobiScheme.sc:166:5314 */ /* x303241 QobiScheme.sc:166:5321 */ t51479 = "This shouldn\'t happen"; /* x303240 QobiScheme.sc:166:5315 */ stalin_panic(t51479);} /* x132000 stalin.sc:16653:582045 */ /* x131983 stalin.sc:16650:581945 */ t51255 = FALSE_TYPE; return f13672(t51252, t51253, t51254, t51255); l7371: /* x132004 stalin.sc:16654:582055 */ /* x132003 stalin.sc:16654:582059 */ /* x132002 stalin.sc:16654:582056 */ t51039 = p14623->a26016; switch (t51039.tag) {case NATIVE_PROCEDURE_TYPE20757: t51040 = FALSE_TYPE; t51041 = f16097((t51039.value.native_procedure_type20757), t51040); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51041; return r14621; case NATIVE_PROCEDURE_TYPE20782: t51042 = FALSE_TYPE; t51043 = f15772((t51039.value.native_procedure_type20782), t51042); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51043; return r14621; case NATIVE_PROCEDURE_TYPE20850: p37521 = t51039.value.native_procedure_type20850; /* x302878 stalin.sc:17033:595793 */ /* x302877 stalin.sc:17033:595807 */ t51044 = p37521->a26136; /* x302876 stalin.sc:17033:595794 */ return f14708(t51044); case NATIVE_PROCEDURE_TYPE20913: t51045 = FALSE_TYPE; t51046 = f16433((t51039.value.native_procedure_type20913), t51045); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51046; return r14621; case NATIVE_PROCEDURE_TYPE20915: t51047 = FALSE_TYPE; t51048 = f16417((t51039.value.native_procedure_type20915), t51047); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51048; return r14621; case NATIVE_PROCEDURE_TYPE20918: t51049 = FALSE_TYPE; t51050 = f16635((t51039.value.native_procedure_type20918), t51049); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51050; return r14621; case NATIVE_PROCEDURE_TYPE20927: p37502 = t51039.value.native_procedure_type20927; /* x302802 stalin.sc:21738:761657 */ /* x302801 stalin.sc:21738:761670 */ t51051 = p37502->a27722; /* x302800 stalin.sc:21738:761658 */ return f14707(t51051); case NATIVE_PROCEDURE_TYPE21036: /* x298065 stalin.sc:21885:766135 */ /* x298064 stalin.sc:21885:766136 */ /* x303390 QobiScheme.sc:166:5314 */ /* x303389 QobiScheme.sc:166:5321 */ t51052 = "This shouldn\'t happen"; /* x303388 QobiScheme.sc:166:5315 */ stalin_panic(t51052); case NATIVE_PROCEDURE_TYPE21042: /* x298126 stalin.sc:21855:765176 */ /* x298125 stalin.sc:21855:765177 */ /* x303466 QobiScheme.sc:166:5314 */ /* x303465 QobiScheme.sc:166:5321 */ t51053 = "This shouldn\'t happen"; /* x303464 QobiScheme.sc:166:5315 */ stalin_panic(t51053); case NATIVE_PROCEDURE_TYPE21048: t51054 = FALSE_TYPE; t51055 = f16737((t51039.value.native_procedure_type21048), t51054); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51055; return r14621; case NATIVE_PROCEDURE_TYPE21059: t51056 = FALSE_TYPE; t51057 = f15571((t51039.value.native_procedure_type21059), t51056); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51057; return r14621; case NATIVE_PROCEDURE_TYPE21065: t51058 = FALSE_TYPE; t51059 = f16830((t51039.value.native_procedure_type21065), t51058); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51059; return r14621; case NATIVE_PROCEDURE_TYPE21082: t51060 = FALSE_TYPE; t51061 = f16721((t51039.value.native_procedure_type21082), t51060); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51061; return r14621; case NATIVE_PROCEDURE_TYPE21087: t51062 = FALSE_TYPE; t51063 = f16648((t51039.value.native_procedure_type21087), t51062); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51063; return r14621; case NATIVE_PROCEDURE_TYPE21090: t51064 = FALSE_TYPE; t51065 = f16858((t51039.value.native_procedure_type21090), t51064); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51065; return r14621; case NATIVE_PROCEDURE_TYPE21108: t51066 = FALSE_TYPE; t51067 = f15580((t51039.value.native_procedure_type21108), t51066); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51067; return r14621; case NATIVE_PROCEDURE_TYPE21110: t51068 = FALSE_TYPE; t51069 = f16912((t51039.value.native_procedure_type21110), t51068); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51069; return r14621; case NATIVE_PROCEDURE_TYPE21117: t51070 = FALSE_TYPE; t51071 = f16884((t51039.value.native_procedure_type21117), t51070); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51071; return r14621; case NATIVE_PROCEDURE_TYPE21137: t51072 = FALSE_TYPE; t51073 = f16982((t51039.value.native_procedure_type21137), t51072); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51073; return r14621; case NATIVE_PROCEDURE_TYPE21147: t51074 = FALSE_TYPE; t51075 = f17061((t51039.value.native_procedure_type21147), t51074); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51075; return r14621; case NATIVE_PROCEDURE_TYPE21152: t51076 = FALSE_TYPE; t51077 = f17134((t51039.value.native_procedure_type21152), t51076); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51077; return r14621; case NATIVE_PROCEDURE_TYPE21154: t51078 = FALSE_TYPE; t51079 = f17133((t51039.value.native_procedure_type21154), t51078); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51079; return r14621; case NATIVE_PROCEDURE_TYPE21170: t51080 = FALSE_TYPE; t51081 = f17101((t51039.value.native_procedure_type21170), t51080); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51081; return r14621; case NATIVE_PROCEDURE_TYPE21172: t51082 = FALSE_TYPE; t51083 = f17100((t51039.value.native_procedure_type21172), t51082); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51083; return r14621; case NATIVE_PROCEDURE_TYPE21201: t51084 = FALSE_TYPE; t51085 = f17026((t51039.value.native_procedure_type21201), t51084); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51085; return r14621; case NATIVE_PROCEDURE_TYPE21225: t51086 = FALSE_TYPE; t51087 = f16941((t51039.value.native_procedure_type21225), t51086); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51087; return r14621; case NATIVE_PROCEDURE_TYPE21228: t51088 = FALSE_TYPE; t51089 = f16844((t51039.value.native_procedure_type21228), t51088); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51089; return r14621; case NATIVE_PROCEDURE_TYPE21234: t51090 = FALSE_TYPE; t51091 = f17200((t51039.value.native_procedure_type21234), t51090); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51091; return r14621; case NATIVE_PROCEDURE_TYPE21236: t51092 = FALSE_TYPE; t51093 = f17199((t51039.value.native_procedure_type21236), t51092); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51093; return r14621; case NATIVE_PROCEDURE_TYPE21256: t51094 = FALSE_TYPE; t51095 = f17222((t51039.value.native_procedure_type21256), t51094); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51095; return r14621; case NATIVE_PROCEDURE_TYPE21259: t51096 = FALSE_TYPE; t51097 = f17209((t51039.value.native_procedure_type21259), t51096); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51097; return r14621; case NATIVE_PROCEDURE_TYPE21265: t51098 = FALSE_TYPE; t51099 = f17254((t51039.value.native_procedure_type21265), t51098); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51099; return r14621; case NATIVE_PROCEDURE_TYPE21268: t51100 = FALSE_TYPE; t51101 = f17295((t51039.value.native_procedure_type21268), t51100); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51101; return r14621; case NATIVE_PROCEDURE_TYPE21274: t51102 = FALSE_TYPE; t51103 = f17333((t51039.value.native_procedure_type21274), t51102); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51103; return r14621; case NATIVE_PROCEDURE_TYPE21280: t51104 = FALSE_TYPE; t51105 = f17314((t51039.value.native_procedure_type21280), t51104); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51105; return r14621; case NATIVE_PROCEDURE_TYPE21286: t51106 = FALSE_TYPE; t51107 = f17276((t51039.value.native_procedure_type21286), t51106); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51107; return r14621; case NATIVE_PROCEDURE_TYPE21296: t51108 = FALSE_TYPE; t51109 = f17238((t51039.value.native_procedure_type21296), t51108); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51109; return r14621; case NATIVE_PROCEDURE_TYPE21299: t51110 = FALSE_TYPE; t51111 = f17357((t51039.value.native_procedure_type21299), t51110); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51111; return r14621; case NATIVE_PROCEDURE_TYPE21304: t51112 = FALSE_TYPE; t51113 = f17381((t51039.value.native_procedure_type21304), t51112); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51113; return r14621; case NATIVE_PROCEDURE_TYPE21309: t51114 = FALSE_TYPE; t51115 = f17369((t51039.value.native_procedure_type21309), t51114); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51115; return r14621; case NATIVE_PROCEDURE_TYPE21314: t51116 = FALSE_TYPE; t51117 = f17405((t51039.value.native_procedure_type21314), t51116); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51117; return r14621; case NATIVE_PROCEDURE_TYPE21319: t51118 = FALSE_TYPE; t51119 = f17440((t51039.value.native_procedure_type21319), t51118); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51119; return r14621; case NATIVE_PROCEDURE_TYPE21324: t51120 = FALSE_TYPE; t51121 = f17437((t51039.value.native_procedure_type21324), t51120); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51121; return r14621; case NATIVE_PROCEDURE_TYPE21329: t51122 = FALSE_TYPE; t51123 = f17430((t51039.value.native_procedure_type21329), t51122); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51123; return r14621; case NATIVE_PROCEDURE_TYPE21334: t51124 = FALSE_TYPE; t51125 = f17417((t51039.value.native_procedure_type21334), t51124); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51125; return r14621; case NATIVE_PROCEDURE_TYPE21339: t51126 = FALSE_TYPE; t51127 = f17473((t51039.value.native_procedure_type21339), t51126); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51127; return r14621; case NATIVE_PROCEDURE_TYPE21341: t51128 = FALSE_TYPE; t51129 = f17472((t51039.value.native_procedure_type21341), t51128); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51129; return r14621; case NATIVE_PROCEDURE_TYPE21348: t51130 = FALSE_TYPE; t51131 = f17452((t51039.value.native_procedure_type21348), t51130); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51131; return r14621; case NATIVE_PROCEDURE_TYPE21353: t51132 = FALSE_TYPE; t51133 = f17393((t51039.value.native_procedure_type21353), t51132); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51133; return r14621; case NATIVE_PROCEDURE_TYPE21358: t51134 = FALSE_TYPE; t51135 = f17345((t51039.value.native_procedure_type21358), t51134); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51135; return r14621; case NATIVE_PROCEDURE_TYPE21363: t51136 = FALSE_TYPE; t51137 = f17167((t51039.value.native_procedure_type21363), t51136); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51137; return r14621; case NATIVE_PROCEDURE_TYPE21365: t51138 = FALSE_TYPE; t51139 = f17166((t51039.value.native_procedure_type21365), t51138); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51139; return r14621; case NATIVE_PROCEDURE_TYPE21381: t51140 = FALSE_TYPE; t51141 = f17504((t51039.value.native_procedure_type21381), t51140); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51141; return r14621; case NATIVE_PROCEDURE_TYPE21387: t51142 = FALSE_TYPE; t51143 = f17525((t51039.value.native_procedure_type21387), t51142); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51143; return r14621; case NATIVE_PROCEDURE_TYPE21393: t51144 = FALSE_TYPE; t51145 = f17599((t51039.value.native_procedure_type21393), t51144); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51145; return r14621; case NATIVE_PROCEDURE_TYPE21414: t51146 = f19631(); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51146; return r14621; case NATIVE_PROCEDURE_TYPE21896: t51147 = FALSE_TYPE; t51148 = f15815((t51039.value.native_procedure_type21896), t51147); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51148; return r14621; case NATIVE_PROCEDURE_TYPE21903: t51149 = FALSE_TYPE; t51150 = f15805((t51039.value.native_procedure_type21903), t51149); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51150; return r14621; case NATIVE_PROCEDURE_TYPE21944: t51151 = FALSE_TYPE; t51152 = f17628((t51039.value.native_procedure_type21944), t51151); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51152; return r14621; case NATIVE_PROCEDURE_TYPE21946: t51153 = FALSE_TYPE; t51154 = f17627((t51039.value.native_procedure_type21946), t51153); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51154; return r14621; case NATIVE_PROCEDURE_TYPE21948: t51155 = FALSE_TYPE; t51156 = f17613((t51039.value.native_procedure_type21948), t51155); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51156; return r14621; case NATIVE_PROCEDURE_TYPE21952: t51157 = FALSE_TYPE; t51158 = f17579((t51039.value.native_procedure_type21952), t51157); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51158; return r14621; case NATIVE_PROCEDURE_TYPE21956: t51159 = FALSE_TYPE; t51160 = f17576((t51039.value.native_procedure_type21956), t51159); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51160; return r14621; case NATIVE_PROCEDURE_TYPE21961: t51161 = FALSE_TYPE; t51162 = f17569((t51039.value.native_procedure_type21961), t51161); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51162; return r14621; case NATIVE_PROCEDURE_TYPE21963: t51163 = FALSE_TYPE; t51164 = f17568((t51039.value.native_procedure_type21963), t51163); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51164; return r14621; case NATIVE_PROCEDURE_TYPE21966: t51165 = FALSE_TYPE; t51166 = f17564((t51039.value.native_procedure_type21966), t51165); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51166; return r14621; case NATIVE_PROCEDURE_TYPE21968: t51167 = FALSE_TYPE; t51168 = f17563((t51039.value.native_procedure_type21968), t51167); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51168; return r14621; case NATIVE_PROCEDURE_TYPE21971: t51169 = FALSE_TYPE; t51170 = f17559((t51039.value.native_procedure_type21971), t51169); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51170; return r14621; case NATIVE_PROCEDURE_TYPE21973: t51171 = FALSE_TYPE; t51172 = f17558((t51039.value.native_procedure_type21973), t51171); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51172; return r14621; case NATIVE_PROCEDURE_TYPE21975: t51173 = FALSE_TYPE; t51174 = f17534((t51039.value.native_procedure_type21975), t51173); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51174; return r14621; case NATIVE_PROCEDURE_TYPE21978: t51175 = FALSE_TYPE; t51176 = f17718((t51039.value.native_procedure_type21978), t51175); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51176; return r14621; case NATIVE_PROCEDURE_TYPE21982: t51177 = FALSE_TYPE; t51178 = f17716((t51039.value.native_procedure_type21982), t51177); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51178; return r14621; case NATIVE_PROCEDURE_TYPE21984: t51179 = FALSE_TYPE; t51180 = f17715((t51039.value.native_procedure_type21984), t51179); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51180; return r14621; case NATIVE_PROCEDURE_TYPE21997: t51181 = FALSE_TYPE; t51182 = f17693((t51039.value.native_procedure_type21997), t51181); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51182; return r14621; case NATIVE_PROCEDURE_TYPE22000: t51183 = FALSE_TYPE; t51184 = f17682((t51039.value.native_procedure_type22000), t51183); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51184; return r14621; case NATIVE_PROCEDURE_TYPE22003: t51185 = FALSE_TYPE; t51186 = f17679((t51039.value.native_procedure_type22003), t51185); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51186; return r14621; case NATIVE_PROCEDURE_TYPE22006: t51187 = FALSE_TYPE; t51188 = f17676((t51039.value.native_procedure_type22006), t51187); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51188; return r14621; case NATIVE_PROCEDURE_TYPE22008: t51189 = FALSE_TYPE; t51190 = f17761((t51039.value.native_procedure_type22008), t51189); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51190; return r14621; case NATIVE_PROCEDURE_TYPE22010: t51191 = FALSE_TYPE; t51192 = f17807((t51039.value.native_procedure_type22010), t51191); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51192; return r14621; case NATIVE_PROCEDURE_TYPE22012: t51193 = FALSE_TYPE; t51194 = f17806((t51039.value.native_procedure_type22012), t51193); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51194; return r14621; case NATIVE_PROCEDURE_TYPE22014: t51195 = FALSE_TYPE; t51196 = f17787((t51039.value.native_procedure_type22014), t51195); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51196; return r14621; case NATIVE_PROCEDURE_TYPE22016: t51197 = FALSE_TYPE; t51198 = f17786((t51039.value.native_procedure_type22016), t51197); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51198; return r14621; case NATIVE_PROCEDURE_TYPE22037: t51199 = FALSE_TYPE; t51200 = f17841((t51039.value.native_procedure_type22037), t51199); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51200; return r14621; case NATIVE_PROCEDURE_TYPE22064: /* x298223 stalin.sc:19867:695278 */ /* x298222 stalin.sc:19867:695279 */ /* x303524 stalin.sc:14693:514793 */ r14621.tag = STRING_TYPE; r14621.value.string_type = ""; return r14621; case NATIVE_PROCEDURE_TYPE22072: t51201 = FALSE_TYPE; t51202 = f15886((t51039.value.native_procedure_type22072), t51201); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51202; return r14621; case NATIVE_PROCEDURE_TYPE22081: t51203 = FALSE_TYPE; t51204 = f17894((t51039.value.native_procedure_type22081), t51203); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51204; return r14621; case NATIVE_PROCEDURE_TYPE22091: t51205 = FALSE_TYPE; t51206 = f17885((t51039.value.native_procedure_type22091), t51205); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51206; return r14621; case NATIVE_PROCEDURE_TYPE22100: t51207 = FALSE_TYPE; t51208 = f17641((t51039.value.native_procedure_type22100), t51207); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51208; return r14621; case NATIVE_PROCEDURE_TYPE22102: t51209 = FALSE_TYPE; t51210 = f17640((t51039.value.native_procedure_type22102), t51209); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51210; return r14621; case NATIVE_PROCEDURE_TYPE22104: t51211 = FALSE_TYPE; t51212 = f17639((t51039.value.native_procedure_type22104), t51211); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51212; return r14621; case NATIVE_PROCEDURE_TYPE22106: t51213 = FALSE_TYPE; t51214 = f17491((t51039.value.native_procedure_type22106), t51213); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51214; return r14621; case NATIVE_PROCEDURE_TYPE22112: t51215 = FALSE_TYPE; t51216 = f17936((t51039.value.native_procedure_type22112), t51215); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51216; return r14621; case NATIVE_PROCEDURE_TYPE22117: t51217 = FALSE_TYPE; t51218 = f17957((t51039.value.native_procedure_type22117), t51217); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51218; return r14621; case NATIVE_PROCEDURE_TYPE22119: t51219 = FALSE_TYPE; t51220 = f17948((t51039.value.native_procedure_type22119), t51219); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51220; return r14621; case NATIVE_PROCEDURE_TYPE22124: t51221 = FALSE_TYPE; t51222 = f17976((t51039.value.native_procedure_type22124), t51221); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51222; return r14621; case NATIVE_PROCEDURE_TYPE22127: t51223 = FALSE_TYPE; t51224 = f17966((t51039.value.native_procedure_type22127), t51223); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51224; return r14621; case NATIVE_PROCEDURE_TYPE22130: t51225 = FALSE_TYPE; t51226 = f18033((t51039.value.native_procedure_type22130), t51225); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51226; return r14621; case NATIVE_PROCEDURE_TYPE22132: t51227 = FALSE_TYPE; t51228 = f18032((t51039.value.native_procedure_type22132), t51227); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51228; return r14621; case NATIVE_PROCEDURE_TYPE22135: t51229 = FALSE_TYPE; t51230 = f18008((t51039.value.native_procedure_type22135), t51229); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51230; return r14621; case NATIVE_PROCEDURE_TYPE22137: t51231 = FALSE_TYPE; t51232 = f17986((t51039.value.native_procedure_type22137), t51231); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51232; return r14621; case NATIVE_PROCEDURE_TYPE22139: t51233 = FALSE_TYPE; t51234 = f18072((t51039.value.native_procedure_type22139), t51233); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51234; return r14621; case NATIVE_PROCEDURE_TYPE22141: t51235 = FALSE_TYPE; t51236 = f18090((t51039.value.native_procedure_type22141), t51235); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51236; return r14621; case NATIVE_PROCEDURE_TYPE22143: t51237 = FALSE_TYPE; t51238 = f18081((t51039.value.native_procedure_type22143), t51237); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51238; return r14621; case NATIVE_PROCEDURE_TYPE22145: t51239 = FALSE_TYPE; t51240 = f18063((t51039.value.native_procedure_type22145), t51239); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51240; return r14621; case NATIVE_PROCEDURE_TYPE22148: t51241 = FALSE_TYPE; t51242 = f18121((t51039.value.native_procedure_type22148), t51241); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51242; return r14621; case NATIVE_PROCEDURE_TYPE22154: t51243 = FALSE_TYPE; t51244 = f18148((t51039.value.native_procedure_type22154), t51243); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51244; return r14621; case NATIVE_PROCEDURE_TYPE22160: t51245 = FALSE_TYPE; t51246 = f18135((t51039.value.native_procedure_type22160), t51245); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51246; return r14621; case NATIVE_PROCEDURE_TYPE22162: t51247 = FALSE_TYPE; t51248 = f18133((t51039.value.native_procedure_type22162), t51247); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51248; return r14621; case NATIVE_PROCEDURE_TYPE22165: t51249 = FALSE_TYPE; t51250 = f18042((t51039.value.native_procedure_type22165), t51249); r14621.tag = STRUCTURE_TYPE24753; r14621.value.structure_type24753 = t51250; return r14621; default: /* x297726 stalin.sc:23751:825832 */ /* x297725 stalin.sc:23751:825833 */ /* x303246 QobiScheme.sc:166:5314 */ /* x303245 QobiScheme.sc:166:5321 */ t51251 = "This shouldn\'t happen"; /* x303244 QobiScheme.sc:166:5315 */ stalin_panic(t51251);} l7363: /* x132059 stalin.sc:16655:582070 */ /* x132058 stalin.sc:16655:582080 */ /* x132056 stalin.sc:16655:582094 */ /* x132057 stalin.sc:16655:582106 */ t51029 = a26013; /* x132055 stalin.sc:16655:582081 */ t51030.tag = NATIVE_PROCEDURE_TYPE7232; t50989 = f8172(t51030, t51029); /* x132054 */ a26020 = t50989; /* x132053 stalin.sc:16656:582117 */ /* x132011 stalin.sc:16656:582127 */ /* x132009 stalin.sc:16656:582149 */ t50996 = a26014; /* x132010 stalin.sc:16656:582152 */ t50997 = a26013; /* x132008 stalin.sc:16656:582128 */ t50990 = f14430(t50996, t50997); /* x132015 stalin.sc:16657:582157 */ /* x132014 stalin.sc:16657:582173 */ t50998 = a26020; /* x132013 stalin.sc:16657:582162 */ /* x132012 stalin.sc:16657:582158 */ t50999.tag = NATIVE_PROCEDURE_TYPE6764; t51000 = *((struct w49 *)(&t50998)); t51001 = (struct structure_type24753 *)NULL_TYPE; t50991 = f27731(t50999, t51000, t51001); /* x132019 stalin.sc:16658:582179 */ /* x132018 stalin.sc:16658:582186 */ t51003 = a26020; /* x132017 stalin.sc:16658:582184 */ t51002 = a26018; /* x132016 stalin.sc:16658:582180 */ t51004.tag = NATIVE_PROCEDURE_TYPE20891; t51004.value.native_procedure_type20891 = t51002; t51005 = *((struct w49 *)(&t51003)); t51006 = (struct structure_type24753 *)NULL_TYPE; t50992 = f27731(t51004, t51005, t51006); /* x132051 stalin.sc:16659:582192 */ /* x132023 stalin.sc:16659:582196 */ /* x132021 stalin.sc:16659:582205 */ /* x132022 stalin.sc:16659:582216 */ t51007 = a26013; /* x132020 stalin.sc:16659:582197 */ t51008.tag = NATIVE_PROCEDURE_TYPE7431; if ((f8137(t51008, t51007).tag)==FALSE_TYPE) goto l7366; /* x132045 stalin.sc:16660:582225 */ /* x132032 stalin.sc:16660:582231 */ /* x132026 stalin.sc:16660:582236 */ t51016 = a26014; /* x132031 stalin.sc:16660:582239 */ /* x132029 stalin.sc:16660:582256 */ /* x132028 stalin.sc:16660:582257 */ /* x276347 stalin.sc:16169:562645 */ t51019 = "CHAR_OFFSET"; /* x132030 stalin.sc:16660:582272 */ t51020 = a26013; /* x132027 stalin.sc:16660:582240 */ t51021.tag = STRING_TYPE; t51021.value.string_type = t51019; t51017 = f14422(t51021, t51020); /* x132025 stalin.sc:16660:582232 */ t51018.tag = STRUCTURE_TYPE24753; t51018.value.structure_type24753 = t51017; t51012 = f13601(t51016, t51018); /* x132038 stalin.sc:16661:582281 */ /* x132037 stalin.sc:16661:582284 */ /* x132035 stalin.sc:16661:582301 */ /* x132036 stalin.sc:16661:582312 */ t51024 = a26013; /* x132034 stalin.sc:16661:582285 */ t51025.tag = NATIVE_PROCEDURE_TYPE7431; t51023 = f8157(t51025, t51024); /* x132033 stalin.sc:16661:582282 */ t51022 = a26018; t51013 = f14625(t51022, t51023); /* x132043 stalin.sc:16662:582321 */ /* x132042 stalin.sc:16662:582324 */ /* x132041 stalin.sc:16662:582341 */ t51028 = a26013; /* x132040 stalin.sc:16662:582325 */ t51027 = f13854(t51028); /* x132039 stalin.sc:16662:582322 */ t51026 = a26018; t51014 = f14625(t51026, t51027); /* x132044 stalin.sc:16663:582350 */ /* x132024 stalin.sc:16660:582226 */ t51015 = FALSE_TYPE; t50993 = f13672(t51012, t51013, t51014, t51015); goto l7367; l7366: /* x132050 stalin.sc:16664:582360 */ /* x132049 stalin.sc:16664:582363 */ /* x132048 stalin.sc:16664:582380 */ t51011 = a26013; /* x132047 stalin.sc:16664:582364 */ t51010 = f13854(t51011); /* x132046 stalin.sc:16664:582361 */ t51009 = a26018; t50993 = f14625(t51009, t51010); l7367: /* x132052 stalin.sc:16665:582387 */ t50994 = a26017; /* x132007 stalin.sc:16656:582118 */ t50995.tag = STRUCTURE_TYPE24753; t50995.value.structure_type24753 = t50990; return f13676(t50995, t50991, t50992, t50993, t50994);} /* [inside COMPILE-SQUEEZED-DEFAULTLESS-TYPE-IF 14620] */ struct structure_type24753 *f14620(struct p14612 *p14620, struct w49 a26011) {struct w49 t51957; struct w49 t51958; struct w49 t51959; /* x131886 stalin.sc:16623:581032 */ /* x131883 stalin.sc:16623:581050 */ t51957 = p14620->a26006; /* x131884 stalin.sc:16623:581053 */ t51958 = a26011; /* x131885 stalin.sc:16623:581055 */ t51959 = p14620->a26005; /* x131882 stalin.sc:16623:581033 */ return f14536(t51957, t51958, t51959);} /* LOOP[14615] */ struct w49 f14615(struct w49 a26010) {struct w49 r14615; struct w16638 a35460; /* PAIR */ struct w16638 a35461; /* PAIR */ struct w49 a35928; /* PAIR */ struct w16638 a35929; /* PAIR */ struct w16638 a35930; /* PAIR */ struct w49 a35931; /* PAIR */ struct w16638 a35932; /* PAIR */ struct w49 t51960; struct w49 t51961; struct w16638 t51962; struct w16638 t51963; struct structure_type24753 *t51964; struct w49 t51965; struct w49 t51966; unsigned t51967; struct structure_type24753 *t51968; struct structure_type24753 *t51969; struct w49 t51970; struct w36270 t51971; struct w49 t51972; struct structure_type24753 *t51973; struct w16638 t51974; struct w16638 t51975; struct w49 t51976; struct w49 t51977; struct w49 t51978; struct w16638 t51979; struct w16638 t51980; struct w49 t51981; struct w16638 t51982; struct w16638 t51983; struct w49 t51984; struct w49 t51985; struct w49 t51986; struct w16638 t51987; struct w16638 t51988; /* x131872 stalin.sc:16626:581110 */ /* x131826 stalin.sc:16626:581117 */ /* x131825 stalin.sc:16626:581124 */ t51960 = a26010; /* x268835 stalin.sc:16626:581118 */ if (!((t51960.tag)==NULL_TYPE)) goto l7375; /* x131830 */ /* x131829 */ /* x131828 stalin.sc:16626:581131 */ /* x131827 stalin.sc:16626:581132 */ /* x276739 stalin.sc:14693:514793 */ r14615.tag = STRING_TYPE; r14615.value.string_type = ""; return r14615; l7375: /* x131871 */ /* x131835 stalin.sc:16627:581143 */ /* x131834 stalin.sc:16627:581150 */ /* x131833 stalin.sc:16627:581156 */ t51962 = *((struct w16638 *)(&a26010)); /* x131832 stalin.sc:16627:581151 */ a35461 = t51962; /* x273201 */ /* x273200 */ t51963 = a35461; /* x273199 */ if (!((t51963.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29610]"); structure_ref_error();} t51961 = t51963.value.structure_type24753->s1; /* x268834 stalin.sc:16627:581144 */ if (!((t51961.tag)==NULL_TYPE)) goto l7377; /* x131844 */ /* x131843 */ /* x131842 stalin.sc:16627:581164 */ /* x131841 stalin.sc:16627:581172 */ /* x131840 stalin.sc:16627:581179 */ /* x131839 stalin.sc:16627:581186 */ t51987 = *((struct w16638 *)(&a26010)); /* x131838 stalin.sc:16627:581180 */ a35929 = t51987; /* x275073 */ /* x275072 */ t51988 = a35929; /* x275071 */ if (!((t51988.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30078]"); structure_ref_error();} t51985 = t51988.value.structure_type24753->s0; /* x131837 stalin.sc:16627:581173 */ a35928 = t51985; /* x275069 */ /* x275068 */ t51986 = a35928; /* x275067 */ if (!((t51986.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30077]"); structure_ref_error();} t51984 = t51986.value.structure_type24753->s0; /* x131836 stalin.sc:16627:581165 */ return f26181(t51984); l7377: /* x131870 */ /* x131869 */ /* x131868 stalin.sc:16628:581203 */ /* x131854 stalin.sc:16628:581209 */ /* x131847 stalin.sc:16628:581216 */ /* x131853 stalin.sc:16628:581229 */ /* x131852 stalin.sc:16628:581240 */ /* x131851 stalin.sc:16628:581247 */ t51974 = *((struct w16638 *)(&a26010)); /* x131850 stalin.sc:16628:581241 */ a35930 = t51974; /* x275077 */ /* x275076 */ t51975 = a35930; /* x275075 */ if (!((t51975.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30079]"); structure_ref_error();} t51970 = t51975.value.structure_type24753->s0; /* x131849 stalin.sc:16628:581234 */ /* x131848 stalin.sc:16628:581230 */ t51971.tag = NATIVE_PROCEDURE_TYPE494; t51972 = t51970; t51973 = (struct structure_type24753 *)NULL_TYPE; t51968 = f27731(t51971, t51972, t51973); /* x268833 stalin.sc:16628:581210 */ t51969 = t51968; t51964 = f13556(t51969); /* x131861 stalin.sc:16629:581262 */ /* x131860 stalin.sc:16629:581270 */ /* x131859 stalin.sc:16629:581277 */ /* x131858 stalin.sc:16629:581284 */ t51979 = *((struct w16638 *)(&a26010)); /* x131857 stalin.sc:16629:581278 */ a35932 = t51979; /* x275085 */ /* x275084 */ t51980 = a35932; /* x275083 */ if (!((t51980.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30081]"); structure_ref_error();} t51977 = t51980.value.structure_type24753->s0; /* x131856 stalin.sc:16629:581271 */ a35931 = t51977; /* x275081 */ /* x275080 */ t51978 = a35931; /* x275079 */ if (!((t51978.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30080]"); structure_ref_error();} t51976 = t51978.value.structure_type24753->s0; /* x131855 stalin.sc:16629:581263 */ t51965 = f26181(t51976); /* x131866 stalin.sc:16630:581299 */ /* x131865 stalin.sc:16630:581305 */ /* x131864 stalin.sc:16630:581311 */ t51982 = *((struct w16638 *)(&a26010)); /* x131863 stalin.sc:16630:581306 */ a35460 = t51982; /* x273197 */ /* x273196 */ t51983 = a35460; /* x273195 */ if (!((t51983.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29609]"); structure_ref_error();} t51981 = t51983.value.structure_type24753->s1; /* x131862 stalin.sc:16630:581300 */ t51966 = f14615(t51981); /* x131867 stalin.sc:16631:581325 */ /* x131845 stalin.sc:16628:581204 */ t51967 = FALSE_TYPE; return f13672(t51964, t51965, t51966, t51967);} /* COMPILE-SQUEEZED-DEFAULTLESS-TYPE-IF[14612] */ struct w49 f14612(struct w12224 a26004, struct w49 a26005, struct w49 a26006, struct w155862 a26007) {struct structure_type24753 *t51989; struct w49 t51990; struct structure_type24753 *t51991; struct structure_type24753 *t51992; struct p14612 *t51993; struct w12224 t51994; struct w36270 t51995; struct w49 t51996; struct structure_type24753 *t51997; struct w155862 t51998; struct w12224 t51999; struct w36270 t52000; struct w49 t52001; struct structure_type24753 *t52002; struct p14612 *e14612; e14612 = (struct p14612 *)alloca(sizeof(struct p14612)); if (e14612==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e14612->a26005 = a26005; e14612->a26006 = a26006; /* x131895 stalin.sc:16622:580977 */ /* x131894 stalin.sc:16623:581001 */ /* x131889 stalin.sc:16623:581015 */ /* x131888 stalin.sc:16623:581059 */ t51994 = a26004; /* x131887 stalin.sc:16623:581020 */ t51993 = e14612; /* x131881 stalin.sc:16623:581016 */ t51995.tag = NATIVE_PROCEDURE_TYPE20476; t51995.value.native_procedure_type20476 = t51993; t51996 = *((struct w49 *)(&t51994)); t51997 = (struct structure_type24753 *)NULL_TYPE; t51991 = f27731(t51995, t51996, t51997); /* x131893 stalin.sc:16624:581069 */ /* x131892 stalin.sc:16624:581077 */ t51999 = a26004; /* x131891 stalin.sc:16624:581074 */ t51998 = a26007; /* x131890 stalin.sc:16624:581070 */ t52000 = *((struct w36270 *)(&t51998)); t52001 = *((struct w49 *)(&t51999)); t52002 = (struct structure_type24753 *)NULL_TYPE; t51992 = f27731(t52000, t52001, t52002); /* x131880 stalin.sc:16623:581002 */ t51989 = f13673(t51991, t51992); /* x131879 */ /* x131878 */ /* x131877 */ /* x131876 */ /* x131875 */ /* x131874 */ /* x131873 */ /* x131823 */ /* x131822 stalin.sc:16622:580982 */ /* MOVE: branching squeezed to general */ if (t51989>=((struct structure_type24753 *)VALUE_OFFSET)) {t51990.tag = STRUCTURE_TYPE24753; t51990.value.structure_type24753 = t51989;} else t51990.tag = (unsigned)t51989; return f14615(t51990);} /* [inside COMPILE-SQUEEZED-TYPE-IF 14611] */ struct structure_type24753 *f14611(struct p14605 *p14611, struct w49 a26003) {struct w49 t52003; struct w49 t52004; struct w49 t52005; /* x131807 stalin.sc:16610:580575 */ /* x131804 stalin.sc:16610:580593 */ t52003 = p14611->a25996; /* x131805 stalin.sc:16610:580596 */ t52004 = a26003; /* x131806 stalin.sc:16610:580598 */ t52005 = p14611->a25995; /* x131803 stalin.sc:16610:580576 */ return f14536(t52003, t52004, t52005);} /* LOOP[14609] */ struct w49 f14609(struct p14605 *p14609, struct w49 a26002) {struct w49 r14609; struct w16638 a35436; /* PAIR */ struct w16638 a35901; /* PAIR */ struct w49 a35902; /* PAIR */ struct w16638 a35903; /* PAIR */ struct w49 t52006; struct structure_type24753 *t52007; struct w49 t52008; struct w49 t52009; unsigned t52010; struct structure_type24753 *t52011; struct structure_type24753 *t52012; struct w49 t52013; struct w36270 t52014; struct w49 t52015; struct structure_type24753 *t52016; struct w16638 t52017; struct w16638 t52018; struct w49 t52019; struct w49 t52020; struct w49 t52021; struct w16638 t52022; struct w16638 t52023; struct p14605 *t52024; struct w49 t52025; struct w16638 t52026; struct w16638 t52027; struct w155916 t52028; unsigned t52029; struct structure_type24753 *t52030; unsigned t52031; struct structure_type24753 *t52032; struct structure_type27501 *t52033; unsigned t52034; struct structure_type24753 *t52035; unsigned t52036; struct structure_type24753 *t52037; unsigned t52038; struct structure_type24753 *t52039; struct structure_type27501 *t52040; char *t52041; char *t52042; unsigned t52043; struct structure_type24753 *t52044; unsigned t52045; struct structure_type24753 *t52046; unsigned t52047; struct structure_type24753 *t52048; unsigned t52049; struct structure_type24753 *t52050; unsigned t52051; struct structure_type24753 *t52052; unsigned t52053; struct structure_type24753 *t52054; unsigned t52055; struct structure_type24753 *t52056; unsigned t52057; struct structure_type24753 *t52058; unsigned t52059; struct structure_type24753 *t52060; unsigned t52061; struct structure_type24753 *t52062; unsigned t52063; struct structure_type24753 *t52064; unsigned t52065; struct structure_type24753 *t52066; unsigned t52067; struct structure_type24753 *t52068; unsigned t52069; struct structure_type24753 *t52070; unsigned t52071; struct structure_type24753 *t52072; unsigned t52073; struct structure_type24753 *t52074; unsigned t52075; struct structure_type24753 *t52076; unsigned t52077; struct structure_type24753 *t52078; unsigned t52079; struct structure_type24753 *t52080; unsigned t52081; struct structure_type24753 *t52082; unsigned t52083; struct structure_type24753 *t52084; unsigned t52085; struct structure_type24753 *t52086; unsigned t52087; struct structure_type24753 *t52088; unsigned t52089; struct structure_type24753 *t52090; unsigned t52091; struct structure_type24753 *t52092; unsigned t52093; struct structure_type24753 *t52094; unsigned t52095; struct structure_type24753 *t52096; unsigned t52097; struct structure_type24753 *t52098; unsigned t52099; struct structure_type24753 *t52100; unsigned t52101; struct structure_type24753 *t52102; unsigned t52103; struct structure_type24753 *t52104; unsigned t52105; struct structure_type24753 *t52106; unsigned t52107; struct structure_type24753 *t52108; unsigned t52109; struct structure_type24753 *t52110; unsigned t52111; struct structure_type24753 *t52112; unsigned t52113; struct structure_type24753 *t52114; unsigned t52115; struct structure_type24753 *t52116; unsigned t52117; struct structure_type24753 *t52118; unsigned t52119; struct structure_type24753 *t52120; unsigned t52121; struct structure_type24753 *t52122; unsigned t52123; struct structure_type24753 *t52124; unsigned t52125; struct structure_type24753 *t52126; unsigned t52127; struct structure_type24753 *t52128; unsigned t52129; struct structure_type24753 *t52130; unsigned t52131; struct structure_type24753 *t52132; unsigned t52133; struct structure_type24753 *t52134; struct structure_type24753 *t52135; unsigned t52136; struct structure_type24753 *t52137; unsigned t52138; struct structure_type24753 *t52139; unsigned t52140; struct structure_type24753 *t52141; unsigned t52142; struct structure_type24753 *t52143; unsigned t52144; struct structure_type24753 *t52145; unsigned t52146; struct structure_type24753 *t52147; unsigned t52148; struct structure_type24753 *t52149; unsigned t52150; struct structure_type24753 *t52151; unsigned t52152; struct structure_type24753 *t52153; unsigned t52154; struct structure_type24753 *t52155; unsigned t52156; struct structure_type24753 *t52157; unsigned t52158; struct structure_type24753 *t52159; unsigned t52160; struct structure_type24753 *t52161; unsigned t52162; struct structure_type24753 *t52163; unsigned t52164; struct structure_type24753 *t52165; unsigned t52166; struct structure_type24753 *t52167; unsigned t52168; struct structure_type24753 *t52169; unsigned t52170; struct structure_type24753 *t52171; unsigned t52172; struct structure_type24753 *t52173; unsigned t52174; struct structure_type24753 *t52175; unsigned t52176; struct structure_type24753 *t52177; unsigned t52178; struct structure_type24753 *t52179; unsigned t52180; struct structure_type24753 *t52181; unsigned t52182; struct structure_type24753 *t52183; unsigned t52184; struct structure_type24753 *t52185; unsigned t52186; struct structure_type24753 *t52187; unsigned t52188; struct structure_type24753 *t52189; unsigned t52190; struct structure_type24753 *t52191; unsigned t52192; struct structure_type24753 *t52193; unsigned t52194; struct structure_type24753 *t52195; unsigned t52196; struct structure_type24753 *t52197; unsigned t52198; struct structure_type24753 *t52199; unsigned t52200; struct structure_type24753 *t52201; unsigned t52202; struct structure_type24753 *t52203; unsigned t52204; struct structure_type24753 *t52205; unsigned t52206; struct structure_type24753 *t52207; unsigned t52208; struct structure_type24753 *t52209; unsigned t52210; struct structure_type24753 *t52211; unsigned t52212; struct structure_type24753 *t52213; unsigned t52214; struct structure_type24753 *t52215; unsigned t52216; struct structure_type24753 *t52217; unsigned t52218; struct structure_type24753 *t52219; unsigned t52220; struct structure_type24753 *t52221; unsigned t52222; struct structure_type24753 *t52223; unsigned t52224; struct structure_type24753 *t52225; unsigned t52226; struct structure_type24753 *t52227; unsigned t52228; struct structure_type24753 *t52229; unsigned t52230; struct structure_type24753 *t52231; unsigned t52232; struct structure_type24753 *t52233; unsigned t52234; struct structure_type24753 *t52235; unsigned t52236; struct structure_type24753 *t52237; unsigned t52238; struct structure_type24753 *t52239; char *t52240; struct p16486 *p37498; struct p14711 *p37517; /* x131793 stalin.sc:16612:580641 */ /* x131765 stalin.sc:16612:580645 */ /* x131764 stalin.sc:16612:580652 */ t52006 = a26002; /* x268837 stalin.sc:16612:580646 */ if (!((t52006.tag)==NULL_TYPE)) goto l7379; /* x131768 stalin.sc:16613:580666 */ /* x131767 stalin.sc:16613:580670 */ /* x131766 stalin.sc:16613:580667 */ t52028 = p14609->a25998; switch (t52028.tag) {case NATIVE_PROCEDURE_TYPE20757: t52029 = FALSE_TYPE; t52030 = f16097((t52028.value.native_procedure_type20757), t52029); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52030; return r14609; case NATIVE_PROCEDURE_TYPE20782: t52031 = FALSE_TYPE; t52032 = f15772((t52028.value.native_procedure_type20782), t52031); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52032; return r14609; case NATIVE_PROCEDURE_TYPE20850: p37517 = t52028.value.native_procedure_type20850; /* x302862 stalin.sc:17033:595793 */ /* x302861 stalin.sc:17033:595807 */ t52033 = p37517->a26136; /* x302860 stalin.sc:17033:595794 */ return f14708(t52033); case NATIVE_PROCEDURE_TYPE20913: t52034 = FALSE_TYPE; t52035 = f16433((t52028.value.native_procedure_type20913), t52034); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52035; return r14609; case NATIVE_PROCEDURE_TYPE20915: t52036 = FALSE_TYPE; t52037 = f16417((t52028.value.native_procedure_type20915), t52036); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52037; return r14609; case NATIVE_PROCEDURE_TYPE20918: t52038 = FALSE_TYPE; t52039 = f16635((t52028.value.native_procedure_type20918), t52038); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52039; return r14609; case NATIVE_PROCEDURE_TYPE20927: p37498 = t52028.value.native_procedure_type20927; /* x302786 stalin.sc:21738:761657 */ /* x302785 stalin.sc:21738:761670 */ t52040 = p37498->a27722; /* x302784 stalin.sc:21738:761658 */ return f14707(t52040); case NATIVE_PROCEDURE_TYPE21036: /* x298053 stalin.sc:21885:766135 */ /* x298052 stalin.sc:21885:766136 */ /* x303374 QobiScheme.sc:166:5314 */ /* x303373 QobiScheme.sc:166:5321 */ t52041 = "This shouldn\'t happen"; /* x303372 QobiScheme.sc:166:5315 */ stalin_panic(t52041); case NATIVE_PROCEDURE_TYPE21042: /* x298114 stalin.sc:21855:765176 */ /* x298113 stalin.sc:21855:765177 */ /* x303450 QobiScheme.sc:166:5314 */ /* x303449 QobiScheme.sc:166:5321 */ t52042 = "This shouldn\'t happen"; /* x303448 QobiScheme.sc:166:5315 */ stalin_panic(t52042); case NATIVE_PROCEDURE_TYPE21048: t52043 = FALSE_TYPE; t52044 = f16737((t52028.value.native_procedure_type21048), t52043); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52044; return r14609; case NATIVE_PROCEDURE_TYPE21059: t52045 = FALSE_TYPE; t52046 = f15571((t52028.value.native_procedure_type21059), t52045); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52046; return r14609; case NATIVE_PROCEDURE_TYPE21065: t52047 = FALSE_TYPE; t52048 = f16830((t52028.value.native_procedure_type21065), t52047); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52048; return r14609; case NATIVE_PROCEDURE_TYPE21082: t52049 = FALSE_TYPE; t52050 = f16721((t52028.value.native_procedure_type21082), t52049); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52050; return r14609; case NATIVE_PROCEDURE_TYPE21087: t52051 = FALSE_TYPE; t52052 = f16648((t52028.value.native_procedure_type21087), t52051); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52052; return r14609; case NATIVE_PROCEDURE_TYPE21090: t52053 = FALSE_TYPE; t52054 = f16858((t52028.value.native_procedure_type21090), t52053); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52054; return r14609; case NATIVE_PROCEDURE_TYPE21108: t52055 = FALSE_TYPE; t52056 = f15580((t52028.value.native_procedure_type21108), t52055); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52056; return r14609; case NATIVE_PROCEDURE_TYPE21110: t52057 = FALSE_TYPE; t52058 = f16912((t52028.value.native_procedure_type21110), t52057); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52058; return r14609; case NATIVE_PROCEDURE_TYPE21117: t52059 = FALSE_TYPE; t52060 = f16884((t52028.value.native_procedure_type21117), t52059); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52060; return r14609; case NATIVE_PROCEDURE_TYPE21137: t52061 = FALSE_TYPE; t52062 = f16982((t52028.value.native_procedure_type21137), t52061); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52062; return r14609; case NATIVE_PROCEDURE_TYPE21147: t52063 = FALSE_TYPE; t52064 = f17061((t52028.value.native_procedure_type21147), t52063); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52064; return r14609; case NATIVE_PROCEDURE_TYPE21152: t52065 = FALSE_TYPE; t52066 = f17134((t52028.value.native_procedure_type21152), t52065); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52066; return r14609; case NATIVE_PROCEDURE_TYPE21154: t52067 = FALSE_TYPE; t52068 = f17133((t52028.value.native_procedure_type21154), t52067); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52068; return r14609; case NATIVE_PROCEDURE_TYPE21170: t52069 = FALSE_TYPE; t52070 = f17101((t52028.value.native_procedure_type21170), t52069); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52070; return r14609; case NATIVE_PROCEDURE_TYPE21172: t52071 = FALSE_TYPE; t52072 = f17100((t52028.value.native_procedure_type21172), t52071); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52072; return r14609; case NATIVE_PROCEDURE_TYPE21201: t52073 = FALSE_TYPE; t52074 = f17026((t52028.value.native_procedure_type21201), t52073); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52074; return r14609; case NATIVE_PROCEDURE_TYPE21225: t52075 = FALSE_TYPE; t52076 = f16941((t52028.value.native_procedure_type21225), t52075); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52076; return r14609; case NATIVE_PROCEDURE_TYPE21228: t52077 = FALSE_TYPE; t52078 = f16844((t52028.value.native_procedure_type21228), t52077); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52078; return r14609; case NATIVE_PROCEDURE_TYPE21234: t52079 = FALSE_TYPE; t52080 = f17200((t52028.value.native_procedure_type21234), t52079); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52080; return r14609; case NATIVE_PROCEDURE_TYPE21236: t52081 = FALSE_TYPE; t52082 = f17199((t52028.value.native_procedure_type21236), t52081); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52082; return r14609; case NATIVE_PROCEDURE_TYPE21256: t52083 = FALSE_TYPE; t52084 = f17222((t52028.value.native_procedure_type21256), t52083); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52084; return r14609; case NATIVE_PROCEDURE_TYPE21259: t52085 = FALSE_TYPE; t52086 = f17209((t52028.value.native_procedure_type21259), t52085); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52086; return r14609; case NATIVE_PROCEDURE_TYPE21265: t52087 = FALSE_TYPE; t52088 = f17254((t52028.value.native_procedure_type21265), t52087); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52088; return r14609; case NATIVE_PROCEDURE_TYPE21268: t52089 = FALSE_TYPE; t52090 = f17295((t52028.value.native_procedure_type21268), t52089); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52090; return r14609; case NATIVE_PROCEDURE_TYPE21274: t52091 = FALSE_TYPE; t52092 = f17333((t52028.value.native_procedure_type21274), t52091); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52092; return r14609; case NATIVE_PROCEDURE_TYPE21280: t52093 = FALSE_TYPE; t52094 = f17314((t52028.value.native_procedure_type21280), t52093); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52094; return r14609; case NATIVE_PROCEDURE_TYPE21286: t52095 = FALSE_TYPE; t52096 = f17276((t52028.value.native_procedure_type21286), t52095); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52096; return r14609; case NATIVE_PROCEDURE_TYPE21296: t52097 = FALSE_TYPE; t52098 = f17238((t52028.value.native_procedure_type21296), t52097); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52098; return r14609; case NATIVE_PROCEDURE_TYPE21299: t52099 = FALSE_TYPE; t52100 = f17357((t52028.value.native_procedure_type21299), t52099); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52100; return r14609; case NATIVE_PROCEDURE_TYPE21304: t52101 = FALSE_TYPE; t52102 = f17381((t52028.value.native_procedure_type21304), t52101); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52102; return r14609; case NATIVE_PROCEDURE_TYPE21309: t52103 = FALSE_TYPE; t52104 = f17369((t52028.value.native_procedure_type21309), t52103); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52104; return r14609; case NATIVE_PROCEDURE_TYPE21314: t52105 = FALSE_TYPE; t52106 = f17405((t52028.value.native_procedure_type21314), t52105); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52106; return r14609; case NATIVE_PROCEDURE_TYPE21319: t52107 = FALSE_TYPE; t52108 = f17440((t52028.value.native_procedure_type21319), t52107); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52108; return r14609; case NATIVE_PROCEDURE_TYPE21324: t52109 = FALSE_TYPE; t52110 = f17437((t52028.value.native_procedure_type21324), t52109); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52110; return r14609; case NATIVE_PROCEDURE_TYPE21329: t52111 = FALSE_TYPE; t52112 = f17430((t52028.value.native_procedure_type21329), t52111); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52112; return r14609; case NATIVE_PROCEDURE_TYPE21334: t52113 = FALSE_TYPE; t52114 = f17417((t52028.value.native_procedure_type21334), t52113); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52114; return r14609; case NATIVE_PROCEDURE_TYPE21339: t52115 = FALSE_TYPE; t52116 = f17473((t52028.value.native_procedure_type21339), t52115); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52116; return r14609; case NATIVE_PROCEDURE_TYPE21341: t52117 = FALSE_TYPE; t52118 = f17472((t52028.value.native_procedure_type21341), t52117); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52118; return r14609; case NATIVE_PROCEDURE_TYPE21348: t52119 = FALSE_TYPE; t52120 = f17452((t52028.value.native_procedure_type21348), t52119); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52120; return r14609; case NATIVE_PROCEDURE_TYPE21353: t52121 = FALSE_TYPE; t52122 = f17393((t52028.value.native_procedure_type21353), t52121); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52122; return r14609; case NATIVE_PROCEDURE_TYPE21358: t52123 = FALSE_TYPE; t52124 = f17345((t52028.value.native_procedure_type21358), t52123); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52124; return r14609; case NATIVE_PROCEDURE_TYPE21363: t52125 = FALSE_TYPE; t52126 = f17167((t52028.value.native_procedure_type21363), t52125); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52126; return r14609; case NATIVE_PROCEDURE_TYPE21365: t52127 = FALSE_TYPE; t52128 = f17166((t52028.value.native_procedure_type21365), t52127); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52128; return r14609; case NATIVE_PROCEDURE_TYPE21381: t52129 = FALSE_TYPE; t52130 = f17504((t52028.value.native_procedure_type21381), t52129); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52130; return r14609; case NATIVE_PROCEDURE_TYPE21387: t52131 = FALSE_TYPE; t52132 = f17525((t52028.value.native_procedure_type21387), t52131); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52132; return r14609; case NATIVE_PROCEDURE_TYPE21393: t52133 = FALSE_TYPE; t52134 = f17599((t52028.value.native_procedure_type21393), t52133); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52134; return r14609; case NATIVE_PROCEDURE_TYPE21414: t52135 = f19631(); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52135; return r14609; case NATIVE_PROCEDURE_TYPE21896: t52136 = FALSE_TYPE; t52137 = f15815((t52028.value.native_procedure_type21896), t52136); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52137; return r14609; case NATIVE_PROCEDURE_TYPE21903: t52138 = FALSE_TYPE; t52139 = f15805((t52028.value.native_procedure_type21903), t52138); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52139; return r14609; case NATIVE_PROCEDURE_TYPE21944: t52140 = FALSE_TYPE; t52141 = f17628((t52028.value.native_procedure_type21944), t52140); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52141; return r14609; case NATIVE_PROCEDURE_TYPE21946: t52142 = FALSE_TYPE; t52143 = f17627((t52028.value.native_procedure_type21946), t52142); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52143; return r14609; case NATIVE_PROCEDURE_TYPE21948: t52144 = FALSE_TYPE; t52145 = f17613((t52028.value.native_procedure_type21948), t52144); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52145; return r14609; case NATIVE_PROCEDURE_TYPE21952: t52146 = FALSE_TYPE; t52147 = f17579((t52028.value.native_procedure_type21952), t52146); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52147; return r14609; case NATIVE_PROCEDURE_TYPE21956: t52148 = FALSE_TYPE; t52149 = f17576((t52028.value.native_procedure_type21956), t52148); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52149; return r14609; case NATIVE_PROCEDURE_TYPE21961: t52150 = FALSE_TYPE; t52151 = f17569((t52028.value.native_procedure_type21961), t52150); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52151; return r14609; case NATIVE_PROCEDURE_TYPE21963: t52152 = FALSE_TYPE; t52153 = f17568((t52028.value.native_procedure_type21963), t52152); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52153; return r14609; case NATIVE_PROCEDURE_TYPE21966: t52154 = FALSE_TYPE; t52155 = f17564((t52028.value.native_procedure_type21966), t52154); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52155; return r14609; case NATIVE_PROCEDURE_TYPE21968: t52156 = FALSE_TYPE; t52157 = f17563((t52028.value.native_procedure_type21968), t52156); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52157; return r14609; case NATIVE_PROCEDURE_TYPE21971: t52158 = FALSE_TYPE; t52159 = f17559((t52028.value.native_procedure_type21971), t52158); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52159; return r14609; case NATIVE_PROCEDURE_TYPE21973: t52160 = FALSE_TYPE; t52161 = f17558((t52028.value.native_procedure_type21973), t52160); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52161; return r14609; case NATIVE_PROCEDURE_TYPE21975: t52162 = FALSE_TYPE; t52163 = f17534((t52028.value.native_procedure_type21975), t52162); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52163; return r14609; case NATIVE_PROCEDURE_TYPE21978: t52164 = FALSE_TYPE; t52165 = f17718((t52028.value.native_procedure_type21978), t52164); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52165; return r14609; case NATIVE_PROCEDURE_TYPE21982: t52166 = FALSE_TYPE; t52167 = f17716((t52028.value.native_procedure_type21982), t52166); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52167; return r14609; case NATIVE_PROCEDURE_TYPE21984: t52168 = FALSE_TYPE; t52169 = f17715((t52028.value.native_procedure_type21984), t52168); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52169; return r14609; case NATIVE_PROCEDURE_TYPE21997: t52170 = FALSE_TYPE; t52171 = f17693((t52028.value.native_procedure_type21997), t52170); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52171; return r14609; case NATIVE_PROCEDURE_TYPE22000: t52172 = FALSE_TYPE; t52173 = f17682((t52028.value.native_procedure_type22000), t52172); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52173; return r14609; case NATIVE_PROCEDURE_TYPE22003: t52174 = FALSE_TYPE; t52175 = f17679((t52028.value.native_procedure_type22003), t52174); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52175; return r14609; case NATIVE_PROCEDURE_TYPE22006: t52176 = FALSE_TYPE; t52177 = f17676((t52028.value.native_procedure_type22006), t52176); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52177; return r14609; case NATIVE_PROCEDURE_TYPE22008: t52178 = FALSE_TYPE; t52179 = f17761((t52028.value.native_procedure_type22008), t52178); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52179; return r14609; case NATIVE_PROCEDURE_TYPE22010: t52180 = FALSE_TYPE; t52181 = f17807((t52028.value.native_procedure_type22010), t52180); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52181; return r14609; case NATIVE_PROCEDURE_TYPE22012: t52182 = FALSE_TYPE; t52183 = f17806((t52028.value.native_procedure_type22012), t52182); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52183; return r14609; case NATIVE_PROCEDURE_TYPE22014: t52184 = FALSE_TYPE; t52185 = f17787((t52028.value.native_procedure_type22014), t52184); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52185; return r14609; case NATIVE_PROCEDURE_TYPE22016: t52186 = FALSE_TYPE; t52187 = f17786((t52028.value.native_procedure_type22016), t52186); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52187; return r14609; case NATIVE_PROCEDURE_TYPE22037: t52188 = FALSE_TYPE; t52189 = f17841((t52028.value.native_procedure_type22037), t52188); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52189; return r14609; case NATIVE_PROCEDURE_TYPE22064: /* x298211 stalin.sc:19867:695278 */ /* x298210 stalin.sc:19867:695279 */ /* x303516 stalin.sc:14693:514793 */ r14609.tag = STRING_TYPE; r14609.value.string_type = ""; return r14609; case NATIVE_PROCEDURE_TYPE22072: t52190 = FALSE_TYPE; t52191 = f15886((t52028.value.native_procedure_type22072), t52190); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52191; return r14609; case NATIVE_PROCEDURE_TYPE22081: t52192 = FALSE_TYPE; t52193 = f17894((t52028.value.native_procedure_type22081), t52192); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52193; return r14609; case NATIVE_PROCEDURE_TYPE22091: t52194 = FALSE_TYPE; t52195 = f17885((t52028.value.native_procedure_type22091), t52194); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52195; return r14609; case NATIVE_PROCEDURE_TYPE22100: t52196 = FALSE_TYPE; t52197 = f17641((t52028.value.native_procedure_type22100), t52196); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52197; return r14609; case NATIVE_PROCEDURE_TYPE22102: t52198 = FALSE_TYPE; t52199 = f17640((t52028.value.native_procedure_type22102), t52198); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52199; return r14609; case NATIVE_PROCEDURE_TYPE22104: t52200 = FALSE_TYPE; t52201 = f17639((t52028.value.native_procedure_type22104), t52200); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52201; return r14609; case NATIVE_PROCEDURE_TYPE22106: t52202 = FALSE_TYPE; t52203 = f17491((t52028.value.native_procedure_type22106), t52202); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52203; return r14609; case NATIVE_PROCEDURE_TYPE22112: t52204 = FALSE_TYPE; t52205 = f17936((t52028.value.native_procedure_type22112), t52204); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52205; return r14609; case NATIVE_PROCEDURE_TYPE22117: t52206 = FALSE_TYPE; t52207 = f17957((t52028.value.native_procedure_type22117), t52206); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52207; return r14609; case NATIVE_PROCEDURE_TYPE22119: t52208 = FALSE_TYPE; t52209 = f17948((t52028.value.native_procedure_type22119), t52208); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52209; return r14609; case NATIVE_PROCEDURE_TYPE22124: t52210 = FALSE_TYPE; t52211 = f17976((t52028.value.native_procedure_type22124), t52210); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52211; return r14609; case NATIVE_PROCEDURE_TYPE22127: t52212 = FALSE_TYPE; t52213 = f17966((t52028.value.native_procedure_type22127), t52212); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52213; return r14609; case NATIVE_PROCEDURE_TYPE22130: t52214 = FALSE_TYPE; t52215 = f18033((t52028.value.native_procedure_type22130), t52214); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52215; return r14609; case NATIVE_PROCEDURE_TYPE22132: t52216 = FALSE_TYPE; t52217 = f18032((t52028.value.native_procedure_type22132), t52216); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52217; return r14609; case NATIVE_PROCEDURE_TYPE22135: t52218 = FALSE_TYPE; t52219 = f18008((t52028.value.native_procedure_type22135), t52218); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52219; return r14609; case NATIVE_PROCEDURE_TYPE22137: t52220 = FALSE_TYPE; t52221 = f17986((t52028.value.native_procedure_type22137), t52220); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52221; return r14609; case NATIVE_PROCEDURE_TYPE22139: t52222 = FALSE_TYPE; t52223 = f18072((t52028.value.native_procedure_type22139), t52222); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52223; return r14609; case NATIVE_PROCEDURE_TYPE22141: t52224 = FALSE_TYPE; t52225 = f18090((t52028.value.native_procedure_type22141), t52224); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52225; return r14609; case NATIVE_PROCEDURE_TYPE22143: t52226 = FALSE_TYPE; t52227 = f18081((t52028.value.native_procedure_type22143), t52226); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52227; return r14609; case NATIVE_PROCEDURE_TYPE22145: t52228 = FALSE_TYPE; t52229 = f18063((t52028.value.native_procedure_type22145), t52228); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52229; return r14609; case NATIVE_PROCEDURE_TYPE22148: t52230 = FALSE_TYPE; t52231 = f18121((t52028.value.native_procedure_type22148), t52230); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52231; return r14609; case NATIVE_PROCEDURE_TYPE22154: t52232 = FALSE_TYPE; t52233 = f18148((t52028.value.native_procedure_type22154), t52232); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52233; return r14609; case NATIVE_PROCEDURE_TYPE22160: t52234 = FALSE_TYPE; t52235 = f18135((t52028.value.native_procedure_type22160), t52234); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52235; return r14609; case NATIVE_PROCEDURE_TYPE22162: t52236 = FALSE_TYPE; t52237 = f18133((t52028.value.native_procedure_type22162), t52236); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52237; return r14609; case NATIVE_PROCEDURE_TYPE22165: t52238 = FALSE_TYPE; t52239 = f18042((t52028.value.native_procedure_type22165), t52238); r14609.tag = STRUCTURE_TYPE24753; r14609.value.structure_type24753 = t52239; return r14609; default: /* x297714 stalin.sc:23751:825832 */ /* x297713 stalin.sc:23751:825833 */ /* x303230 QobiScheme.sc:166:5314 */ /* x303229 QobiScheme.sc:166:5321 */ t52240 = "This shouldn\'t happen"; /* x303228 QobiScheme.sc:166:5315 */ stalin_panic(t52240);} l7379: /* x131792 stalin.sc:16614:580681 */ /* x131778 stalin.sc:16614:580687 */ /* x131771 stalin.sc:16614:580694 */ /* x131777 stalin.sc:16614:580707 */ /* x131776 stalin.sc:16614:580718 */ /* x131775 stalin.sc:16614:580725 */ t52017 = *((struct w16638 *)(&a26002)); /* x131774 stalin.sc:16614:580719 */ a35901 = t52017; /* x274961 */ /* x274960 */ t52018 = a35901; /* x274959 */ if (!((t52018.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30050]"); structure_ref_error();} t52013 = t52018.value.structure_type24753->s0; /* x131773 stalin.sc:16614:580712 */ /* x131772 stalin.sc:16614:580708 */ t52014.tag = NATIVE_PROCEDURE_TYPE494; t52015 = t52013; t52016 = (struct structure_type24753 *)NULL_TYPE; t52011 = f27731(t52014, t52015, t52016); /* x268836 stalin.sc:16614:580688 */ t52012 = t52011; t52007 = f13556(t52012); /* x131785 stalin.sc:16615:580740 */ /* x131784 stalin.sc:16615:580748 */ /* x131783 stalin.sc:16615:580755 */ /* x131782 stalin.sc:16615:580762 */ t52022 = *((struct w16638 *)(&a26002)); /* x131781 stalin.sc:16615:580756 */ a35903 = t52022; /* x274969 */ /* x274968 */ t52023 = a35903; /* x274967 */ if (!((t52023.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30052]"); structure_ref_error();} t52020 = t52023.value.structure_type24753->s0; /* x131780 stalin.sc:16615:580749 */ a35902 = t52020; /* x274965 */ /* x274964 */ t52021 = a35902; /* x274963 */ if (!((t52021.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30051]"); structure_ref_error();} t52019 = t52021.value.structure_type24753->s0; /* x131779 stalin.sc:16615:580741 */ t52008 = f26181(t52019); /* x131790 stalin.sc:16616:580777 */ /* x131789 stalin.sc:16616:580783 */ /* x131788 stalin.sc:16616:580789 */ t52026 = *((struct w16638 *)(&a26002)); /* x131787 stalin.sc:16616:580784 */ a35436 = t52026; /* x273101 */ /* x273100 */ t52027 = a35436; /* x273099 */ if (!((t52027.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29585]"); structure_ref_error();} t52025 = t52027.value.structure_type24753->s1; /* x131786 stalin.sc:16616:580778 */ t52024 = p14609; t52009 = f14609(t52024, t52025); /* x131791 stalin.sc:16617:580803 */ /* x131769 stalin.sc:16614:580682 */ t52010 = FALSE_TYPE; return f13672(t52007, t52008, t52009, t52010);} /* COMPILE-SQUEEZED-TYPE-IF[14605] */ struct w49 f14605(struct w12224 a25994, struct w49 a25995, struct w49 a25996, struct w155919 a25997, struct w155916 a25998) {struct structure_type24753 *a25999; /* CS2 */ struct p14605 *t52241; struct structure_type24753 *t52242; struct p14605 *t52243; struct structure_type24753 *t52244; struct w49 t52245; struct p14605 *t52246; struct p14605 *t52247; struct structure_type24753 *t52248; struct structure_type24753 *t52249; struct p14605 *t52250; struct w12224 t52251; struct w36270 t52252; struct w49 t52253; struct structure_type24753 *t52254; struct w155919 t52255; struct w12224 t52256; struct w36270 t52257; struct w49 t52258; struct structure_type24753 *t52259; struct p14605 *e14605; struct p14605 *p14606; struct p14605 *p14607; struct p14605 *p14608; e14605 = (struct p14605 *)alloca(sizeof(struct p14605)); if (e14605==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e14605->a25995 = a25995; e14605->a25996 = a25996; e14605->a25998 = a25998; /* x131819 stalin.sc:16608:580492 */ /* x131818 stalin.sc:16608:580503 */ /* x131817 stalin.sc:16608:580511 */ t52256 = a25994; /* x131816 stalin.sc:16608:580508 */ t52255 = a25997; /* x131815 stalin.sc:16608:580504 */ t52257 = *((struct w36270 *)(&t52255)); t52258 = *((struct w49 *)(&t52256)); t52259 = (struct structure_type24753 *)NULL_TYPE; t52242 = f27731(t52257, t52258, t52259); /* x131814 */ t52241 = e14605; p14606 = t52241; a25999 = t52242; /* x131813 stalin.sc:16609:580519 */ /* x131812 stalin.sc:16609:580537 */ /* x131810 stalin.sc:16610:580558 */ /* x131809 stalin.sc:16610:580602 */ t52251 = a25994; /* x131808 stalin.sc:16610:580563 */ t52250 = p14606; /* x131802 stalin.sc:16610:580559 */ t52252.tag = NATIVE_PROCEDURE_TYPE20895; t52252.value.native_procedure_type20895 = t52250; t52253 = *((struct w49 *)(&t52251)); t52254 = (struct structure_type24753 *)NULL_TYPE; t52248 = f27731(t52252, t52253, t52254); /* x131811 stalin.sc:16610:580606 */ t52249 = a25999; /* x131801 stalin.sc:16609:580538 */ t52244 = f13673(t52248, t52249); /* x131800 */ /* x131799 */ /* x131798 */ /* x131797 */ t52246 = p14606; p14607 = t52246; /* x131796 */ /* x131795 */ /* x131794 */ /* x131762 */ t52247 = p14607; p14608 = t52247; /* x131761 stalin.sc:16609:580524 */ t52243 = p14608; /* MOVE: branching squeezed to general */ if (t52244>=((struct structure_type24753 *)VALUE_OFFSET)) {t52245.tag = STRUCTURE_TYPE24753; t52245.value.structure_type24753 = t52244;} else t52245.tag = (unsigned)t52244; return f14609(t52243, t52245);} /* SQUISH-TAG-TEST[14595] */ struct structure_type24753 *f14595(struct w49 a25988, struct w49 a25989, struct w49 a25990) {struct w49 t52260; struct w49 t52261; unsigned t52262; struct w49 t52263; struct w49 t52264; struct w49 t52265; struct w211257 t52266; struct structure_type24753 *t52267; char *t52268; struct w49 t52269; struct w49 t52270; struct w49 t52271; struct w49 t52272; unsigned t52273; struct w49 t52274; struct w49 t52275; struct w49 t52276; struct structure_type24753 *t52277; struct structure_type24753 *t52278; struct structure_type24753 *t52279; struct w49 t52280; struct w49 t52281; char *t52282; struct w49 t52283; struct structure_type24753 *t52284; struct w49 t52285; struct w49 t52286; struct w49 t52287; struct w49 t52288; struct w61020 t52289; struct w49 t52290; struct w49 t52291; struct w49 t52292; char *t52293; struct w49 t52294; struct w49 t52295; struct w49 t52296; struct w49 t52297; char *t52298; /* x131758 */ /* x131757 stalin.sc:16597:579937 */ /* x131750 stalin.sc:16597:579945 */ /* x131745 stalin.sc:16597:579950 */ /* x131743 stalin.sc:16597:579959 */ t52295 = a25989; /* x131744 stalin.sc:16597:579961 */ t52296 = a25990; /* x131742 stalin.sc:16597:579951 */ if (f8033(t52295, t52296)==FALSE_TYPE) goto l7388; /* x131748 */ /* x131747 stalin.sc:16597:579975 */ t52297 = a25990; /* x131746 stalin.sc:16597:579965 */ if (f14024(t52297)==FALSE_TYPE) goto l7388; /* x131752 */ /* x131751 */ goto l7389; l7388: /* x131756 */ /* x131755 */ /* x131754 stalin.sc:16597:579979 */ /* x131753 stalin.sc:16597:579980 */ /* x295981 QobiScheme.sc:166:5314 */ /* x295980 QobiScheme.sc:166:5321 */ t52298 = "This shouldn\'t happen"; /* x295979 QobiScheme.sc:166:5315 */ stalin_panic(t52298); l7389: /* x131741 */ /* x131740 stalin.sc:16598:579991 */ /* x131667 stalin.sc:16598:579998 */ /* x131666 stalin.sc:16598:580010 */ t52260 = a25989; /* x131665 stalin.sc:16598:579999 */ if (f7682(t52260)==FALSE_TYPE) goto l7381; /* x131674 */ /* x131673 */ /* x131672 stalin.sc:16598:580013 */ /* x131669 stalin.sc:16598:580018 */ t52292 = a25988; /* x131671 stalin.sc:16598:580020 */ /* x131670 stalin.sc:16598:580021 */ /* x276339 stalin.sc:16169:562645 */ t52293 = "CHAR_OFFSET"; /* x131668 stalin.sc:16598:580014 */ t52294.tag = STRING_TYPE; t52294.value.string_type = t52293; return f13601(t52292, t52294); l7381: /* x131739 */ /* x131677 stalin.sc:16599:580046 */ /* x131676 stalin.sc:16599:580059 */ t52261 = a25989; /* x131675 stalin.sc:16599:580047 */ if (f8793(t52261)==FALSE_TYPE) goto l7383; /* x131685 */ /* x131684 */ /* x131683 stalin.sc:16599:580062 */ /* x131679 stalin.sc:16599:580068 */ t52288 = a25988; /* x131682 stalin.sc:16599:580070 */ /* x131681 stalin.sc:16599:580082 */ t52291 = a25989; /* x131680 stalin.sc:16599:580071 */ t52289 = f14433(t52291); /* x131678 stalin.sc:16599:580063 */ t52290 = *((struct w49 *)(&t52289)); return f13591(t52288, t52290); l7383: /* x131738 */ /* x131708 stalin.sc:16600:580095 */ /* x131691 stalin.sc:16600:580100 */ /* x131690 stalin.sc:16600:580107 */ /* x131688 stalin.sc:16600:580119 */ t52263 = a25989; /* x131689 stalin.sc:16600:580121 */ t52264 = a25990; /* x131687 stalin.sc:16600:580108 */ t52262 = f14564(t52263, t52264); /* x268838 stalin.sc:16600:580101 */ if (!((t52262&1)==1)) {backtrace("stalin.sc", 16600, 580100); zero_error();} if (!(((int)(((int)t52262)>>1))==0)) goto l7385; /* x131706 */ /* x131704 stalin.sc:16601:580140 */ /* x131705 stalin.sc:16601:580189 */ t52265 = a25990; /* x131692 stalin.sc:16601:580132 */ t52266.tag = NATIVE_PROCEDURE_TYPE23724; if ((f8137(t52266, t52265).tag)==FALSE_TYPE) goto l7385; /* x131723 */ /* x131722 */ /* x131721 stalin.sc:16604:580298 */ /* x131720 stalin.sc:16604:580330 */ /* x131719 stalin.sc:16604:580337 */ /* x131717 stalin.sc:16604:580357 */ t52286 = a25988; /* x131718 stalin.sc:16604:580359 */ t52287 = a25990; /* x131716 stalin.sc:16604:580338 */ t52284 = f14594(t52286, t52287); /* x131715 stalin.sc:16604:580331 */ t52285.tag = STRUCTURE_TYPE24753; t52285.value.structure_type24753 = t52284; t52278 = f13592(t52285); /* x131714 stalin.sc:16604:580304 */ /* x131711 stalin.sc:16604:580310 */ t52281 = a25988; /* x131713 stalin.sc:16604:580312 */ /* x131712 stalin.sc:16604:580313 */ /* x276361 stalin.sc:16167:562604 */ t52282 = "VALUE_OFFSET"; /* x131710 stalin.sc:16604:580305 */ t52283.tag = STRING_TYPE; t52283.value.string_type = t52282; t52277 = f13608(t52281, t52283); /* x131709 stalin.sc:16604:580299 */ t52280.tag = STRUCTURE_TYPE24753; t52280.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52280.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16604, 580298); out_of_memory_error();} t52280.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t52280.value.structure_type24753->s0.value.structure_type24753 = t52278; t52280.value.structure_type24753->s1.tag = NULL_TYPE; t52279 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t52279==NULL) {backtrace("stalin.sc", 16604, 580298); out_of_memory_error();} t52279->s0.tag = STRUCTURE_TYPE24753; t52279->s0.value.structure_type24753 = t52277; t52279->s1 = t52280; return f13564(t52279); l7385: /* x131737 */ /* x131736 */ /* x131735 stalin.sc:16605:580378 */ /* x131728 stalin.sc:16605:580384 */ /* x131726 stalin.sc:16605:580404 */ t52271 = a25988; /* x131727 stalin.sc:16605:580406 */ t52272 = a25990; /* x131725 stalin.sc:16605:580385 */ t52267 = f14594(t52271, t52272); /* x131734 stalin.sc:16605:580409 */ /* x131733 stalin.sc:16605:580419 */ /* x131731 stalin.sc:16605:580431 */ t52275 = a25989; /* x131732 stalin.sc:16605:580433 */ t52276 = a25990; /* x131730 stalin.sc:16605:580420 */ t52273 = f14564(t52275, t52276); /* x131729 stalin.sc:16605:580410 */ /* MOVE: dispatching squished to general */ if (t52273==FALSE_TYPE) t52274.tag = (unsigned)t52273; else {t52274.tag = FIXNUM_TYPE; t52274.value.fixnum_type = (int)(((int)t52273)>>1);} t52268 = f13530(t52274); /* x131724 stalin.sc:16605:580379 */ t52269.tag = STRUCTURE_TYPE24753; t52269.value.structure_type24753 = t52267; t52270.tag = STRING_TYPE; t52270.value.string_type = t52268; return f13591(t52269, t52270);} /* EXTRACT-SQUISH-TAG[14594] */ struct structure_type24753 *f14594(struct w49 a25986, struct w49 a25987) {struct w49 t52299; char *t52300; struct w49 t52301; struct structure_type24753 *t52302; struct w30215 t52303; struct w49 t52304; struct w30215 t52305; int t52306; int t52307; struct w49 t52308; struct w49 t52309; /* x131662 stalin.sc:16594:579847 */ /* x131661 stalin.sc:16594:579854 */ /* x131660 stalin.sc:16594:579864 */ /* x131658 stalin.sc:16594:579867 */ /* x131654 stalin.sc:16594:579873 */ t52307 = 2; /* x131657 stalin.sc:16594:579875 */ /* x131656 stalin.sc:16594:579893 */ t52309 = a25987; /* x131655 stalin.sc:16594:579876 */ t52308 = f13917(t52309); /* x268839 stalin.sc:16594:579868 */ switch (t52308.tag) {case FIXNUM_TYPE: if ((t52308.value.fixnum_type)<0) {t52305.tag = FLONUM_TYPE; t52305.value.flonum_type = pow(t52307, (t52308.value.fixnum_type));} else {t52305.tag = FIXNUM_TYPE; t52305.value.fixnum_type = ipow(t52307, (t52308.value.fixnum_type));} break; case FLONUM_TYPE: t52305.tag = FLONUM_TYPE; t52305.value.flonum_type = pow(t52307, (t52308.value.flonum_type)); break; default: backtrace("stalin.sc", 16594, 579867); expt2_error();} /* x131659 stalin.sc:16594:579897 */ t52306 = 1; /* x268840 stalin.sc:16594:579865 */ if ((t52305.tag)==FIXNUM_TYPE) {t52303.tag = FIXNUM_TYPE; t52303.value.fixnum_type = (t52305.value.fixnum_type)-t52306;} else {t52303.tag = FLONUM_TYPE; t52303.value.flonum_type = (t52305.value.flonum_type)-t52306;} /* x131651 stalin.sc:16594:579855 */ t52304 = *((struct w49 *)(&t52303)); t52300 = f13530(t52304); /* x131650 stalin.sc:16594:579852 */ t52299 = a25986; /* x131649 stalin.sc:16594:579848 */ t52301 = t52299; t52302 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t52302==NULL) {backtrace("stalin.sc", 16594, 579847); out_of_memory_error();} t52302->s0.tag = STRING_TYPE; t52302->s0.value.string_type = t52300; t52302->s1.tag = NULL_TYPE; return f13625(t52301, t52302);} /* STRIP-KNOWN-SQUISH-TAG[14593] */ struct w49 f14593(struct w49 a25983, struct w49 a25984, struct w49 a25985) {struct w49 t52310; char *t52311; struct w49 t52312; struct structure_type24753 *t52313; unsigned t52314; struct w49 t52315; struct w49 t52316; struct w49 t52317; /* x131646 stalin.sc:16591:579775 */ /* x131645 stalin.sc:16591:579782 */ /* x131644 stalin.sc:16591:579792 */ /* x131642 stalin.sc:16591:579804 */ t52316 = a25984; /* x131643 stalin.sc:16591:579806 */ t52317 = a25985; /* x131641 stalin.sc:16591:579793 */ t52314 = f14564(t52316, t52317); /* x131640 stalin.sc:16591:579783 */ /* MOVE: dispatching squished to general */ if (t52314==FALSE_TYPE) t52315.tag = (unsigned)t52314; else {t52315.tag = FIXNUM_TYPE; t52315.value.fixnum_type = (int)(((int)t52314)>>1);} t52311 = f13530(t52315); /* x131639 stalin.sc:16591:579780 */ t52310 = a25983; /* x131638 stalin.sc:16591:579776 */ t52312 = t52310; t52313 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t52313==NULL) {backtrace("stalin.sc", 16591, 579775); out_of_memory_error();} t52313->s0.tag = STRING_TYPE; t52313->s0.value.string_type = t52311; t52313->s1.tag = NULL_TYPE; return f13610(t52312, t52313);} /* STRIP-SQUISH-TAG[14592] */ struct structure_type24753 *f14592(struct w49 a25981, struct w49 a25982) {struct w49 t52318; struct structure_type24753 *t52319; struct w49 t52320; struct structure_type24753 *t52321; char *t52322; struct w49 t52323; struct w30215 t52324; struct w49 t52325; struct w30215 t52326; int t52327; int t52328; struct w49 t52329; struct w49 t52330; /* x131635 stalin.sc:16589:579673 */ /* x131634 stalin.sc:16589:579680 */ /* x131633 stalin.sc:16589:579685 */ /* x131632 stalin.sc:16589:579695 */ /* x131630 stalin.sc:16589:579698 */ /* x131626 stalin.sc:16589:579704 */ t52328 = 2; /* x131629 stalin.sc:16589:579706 */ /* x131628 stalin.sc:16589:579724 */ t52330 = a25982; /* x131627 stalin.sc:16589:579707 */ t52329 = f13917(t52330); /* x268841 stalin.sc:16589:579699 */ switch (t52329.tag) {case FIXNUM_TYPE: if ((t52329.value.fixnum_type)<0) {t52326.tag = FLONUM_TYPE; t52326.value.flonum_type = pow(t52328, (t52329.value.fixnum_type));} else {t52326.tag = FIXNUM_TYPE; t52326.value.fixnum_type = ipow(t52328, (t52329.value.fixnum_type));} break; case FLONUM_TYPE: t52326.tag = FLONUM_TYPE; t52326.value.flonum_type = pow(t52328, (t52329.value.flonum_type)); break; default: backtrace("stalin.sc", 16589, 579698); expt2_error();} /* x131631 stalin.sc:16589:579728 */ t52327 = 1; /* x268842 stalin.sc:16589:579696 */ if ((t52326.tag)==FIXNUM_TYPE) {t52324.tag = FIXNUM_TYPE; t52324.value.fixnum_type = (t52326.value.fixnum_type)-t52327;} else {t52324.tag = FLONUM_TYPE; t52324.value.flonum_type = (t52326.value.flonum_type)-t52327;} /* x131623 stalin.sc:16589:579686 */ t52325 = *((struct w49 *)(&t52324)); t52322 = f13530(t52325); /* x131622 stalin.sc:16589:579681 */ t52323.tag = STRING_TYPE; t52323.value.string_type = t52322; t52319 = f13631(t52323); /* x131621 stalin.sc:16589:579678 */ t52318 = a25981; /* x131620 stalin.sc:16589:579674 */ t52320 = t52318; t52321 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t52321==NULL) {backtrace("stalin.sc", 16589, 579673); out_of_memory_error();} t52321->s0.tag = STRUCTURE_TYPE24753; t52321->s0.value.structure_type24753 = t52319; t52321->s1.tag = NULL_TYPE; return f13625(t52320, t52321);} /* SQUISH[14579] */ struct w49 f14579(struct w49 a25975, struct w49 a25976, struct w49 a25977) {struct w49 t52331; struct w49 t52332; struct w49 t52333; char *t52334; struct w49 t52335; struct w49 t52336; struct w49 t52337; struct w49 t52338; struct w49 t52339; struct structure_type24753 *t52340; struct structure_type24753 *t52341; char *t52342; struct w49 t52343; struct w49 t52344; struct w49 t52345; struct w49 t52346; struct w49 t52347; struct w49 t52348; char *t52349; struct w6315 t52350; unsigned t52351; struct w49 t52352; struct w49 t52353; struct w49 t52354; struct w49 t52355; struct w61020 t52356; struct structure_type24753 *t52357; char *t52358; struct w49 t52359; struct w49 t52360; struct structure_type24753 *t52361; struct w49 t52362; struct w49 t52363; struct w49 t52364; struct w49 t52365; struct w49 t52366; struct w49 t52367; struct w49 t52368; char *t52369; /* x131617 */ /* x131616 stalin.sc:16569:578839 */ /* x131609 stalin.sc:16569:578847 */ /* x131604 stalin.sc:16569:578852 */ /* x131602 stalin.sc:16569:578861 */ t52366 = a25976; /* x131603 stalin.sc:16569:578863 */ t52367 = a25977; /* x131601 stalin.sc:16569:578853 */ if (f8033(t52366, t52367)==FALSE_TYPE) goto l7403; /* x131607 */ /* x131606 stalin.sc:16569:578877 */ t52368 = a25977; /* x131605 stalin.sc:16569:578867 */ if (f14024(t52368)==FALSE_TYPE) goto l7403; /* x131611 */ /* x131610 */ goto l7404; l7403: /* x131615 */ /* x131614 */ /* x131613 stalin.sc:16569:578881 */ /* x131612 stalin.sc:16569:578882 */ /* x295825 QobiScheme.sc:166:5314 */ /* x295824 QobiScheme.sc:166:5321 */ t52369 = "This shouldn\'t happen"; /* x295823 QobiScheme.sc:166:5315 */ stalin_panic(t52369); l7404: /* x131600 */ /* x131599 stalin.sc:16570:578893 */ /* x131523 stalin.sc:16575:579197 */ /* x131522 stalin.sc:16575:579209 */ t52331 = a25976; /* x131521 stalin.sc:16575:579198 */ if (f7682(t52331)==FALSE_TYPE) goto l7392; /* x131536 */ /* x131535 */ /* x131534 stalin.sc:16576:579215 */ /* x131530 stalin.sc:16576:579221 */ /* x131528 stalin.sc:16576:579238 */ /* x131527 stalin.sc:16576:579260 */ t52364 = a25975; /* x131526 stalin.sc:16576:579239 */ t52361 = f13548(t52364); /* x131529 stalin.sc:16576:579263 */ t52362 = a25977; /* x131525 stalin.sc:16576:579222 */ t52363.tag = STRUCTURE_TYPE24753; t52363.value.structure_type24753 = t52361; t52357 = f14422(t52363, t52362); /* x131533 stalin.sc:16577:579268 */ /* x131532 stalin.sc:16577:579278 */ t52365 = a1226; /* x131531 stalin.sc:16577:579269 */ t52358 = f13530(t52365); /* x131524 stalin.sc:16576:579216 */ t52359.tag = STRUCTURE_TYPE24753; t52359.value.structure_type24753 = t52357; t52360.tag = STRING_TYPE; t52360.value.string_type = t52358; return f13623(t52359, t52360); l7392: /* x131598 */ /* x131539 stalin.sc:16578:579302 */ /* x131538 stalin.sc:16578:579315 */ t52332 = a25976; /* x131537 stalin.sc:16578:579303 */ if (f8793(t52332)==FALSE_TYPE) goto l7394; /* x131544 */ /* x131543 */ /* x131542 stalin.sc:16578:579318 */ /* x131541 stalin.sc:16578:579330 */ t52355 = a25976; /* x131540 stalin.sc:16578:579319 */ t52356 = f14433(t52355); return *((struct w49 *)(&t52356)); l7394: /* x131597 */ /* x131596 */ /* x131595 stalin.sc:16580:579345 */ /* x131588 stalin.sc:16580:579350 */ /* x131556 stalin.sc:16581:579359 */ /* x131555 stalin.sc:16581:579363 */ /* x131554 stalin.sc:16581:579377 */ t52336 = a25976; /* x131553 stalin.sc:16581:579364 */ if (!(f7683(t52336)==FALSE_TYPE)) goto l7395; /* x131550 */ /* x131549 stalin.sc:16581:579405 */ t52337 = a25976; /* x131548 stalin.sc:16581:579381 */ if (f7754(t52337)==FALSE_TYPE) goto l7396; l7395: /* x131581 */ /* x131580 */ /* x131579 */ /* x131578 stalin.sc:16582:579412 */ /* x131569 stalin.sc:16582:579418 */ if (a705==FALSE_TYPE) goto l7400; /* x131575 */ /* x131574 */ /* x131573 stalin.sc:16583:579441 */ /* x131571 stalin.sc:16583:579456 */ /* x131572 stalin.sc:16583:579459 */ t52349 = "Safe exact arithmetic is not (yet) implemented"; /* x131570 stalin.sc:16583:579442 */ t52350.tag = FALSE_TYPE; f9707(t52350, t52349); goto l7401; l7400: /* x131577 stalin.sc:16582:579412 */ /* x131576 stalin.sc:16582:579412 */ l7401: /* x131568 */ /* x131567 stalin.sc:16584:579513 */ /* x131561 stalin.sc:16584:579519 */ /* x131559 stalin.sc:16584:579536 */ t52345 = a25975; /* x131560 stalin.sc:16584:579538 */ t52346 = a25977; /* x131558 stalin.sc:16584:579520 */ t52341 = f14422(t52345, t52346); /* x131566 stalin.sc:16584:579541 */ /* x131565 stalin.sc:16584:579551 */ /* x131564 stalin.sc:16584:579569 */ t52348 = a25977; /* x131563 stalin.sc:16584:579552 */ t52347 = f13917(t52348); /* x131562 stalin.sc:16584:579542 */ t52342 = f13530(t52347); /* x131557 stalin.sc:16584:579514 */ t52343.tag = STRUCTURE_TYPE24753; t52343.value.structure_type24753 = t52341; t52344.tag = STRING_TYPE; t52344.value.string_type = t52342; t52333 = f13623(t52343, t52344); goto l7397; l7396: /* x131587 */ /* x131586 */ /* x131585 stalin.sc:16585:579583 */ /* x131583 stalin.sc:16585:579600 */ t52338 = a25975; /* x131584 stalin.sc:16585:579602 */ t52339 = a25977; /* x131582 stalin.sc:16585:579584 */ t52340 = f14422(t52338, t52339); t52333.tag = STRUCTURE_TYPE24753; t52333.value.structure_type24753 = t52340; l7397: /* x131594 stalin.sc:16586:579608 */ /* x131593 stalin.sc:16586:579618 */ /* x131591 stalin.sc:16586:579630 */ t52353 = a25976; /* x131592 stalin.sc:16586:579632 */ t52354 = a25977; /* x131590 stalin.sc:16586:579619 */ t52351 = f14564(t52353, t52354); /* x131589 stalin.sc:16586:579609 */ /* MOVE: dispatching squished to general */ if (t52351==FALSE_TYPE) t52352.tag = (unsigned)t52351; else {t52352.tag = FIXNUM_TYPE; t52352.value.fixnum_type = (int)(((int)t52351)>>1);} t52334 = f13530(t52352); /* x131545 stalin.sc:16580:579346 */ t52335.tag = STRING_TYPE; t52335.value.string_type = t52334; return f13609(t52333, t52335);} /* SQUISH-TAG[14564] */ unsigned f14564(struct w49 a25965, struct w49 a25966) {struct w49 a25968; /* US */ struct p14564 *t52370; struct p14564 *t52371; struct w49 t52372; struct w49 t52373; struct w49 t52374; int t52375; struct w30215 t52376; struct w49 t52377; int t52378; struct w49 t52379; struct w49 t52380; struct w49 t52381; struct w211257 t52382; struct p14564 *t52383; unsigned t52384; int t52385; struct w49 t52386; struct w12224 t52387; struct w49 t52388; struct w49 t52389; struct w211061 t52390; struct p14564 *t52391; struct w49 t52392; struct w49 t52393; struct w12224 t52394; struct w49 t52395; unsigned t52396; unsigned t52397; struct w49 t52398; struct w211061 t52399; struct p14564 *t52400; struct w49 t52401; struct w49 t52402; struct p14564 *t52403; struct structure_type24753 *t52404; struct w227506 t52405; struct w49 t52406; struct w49 t52407; struct w49 t52408; struct w49 t52409; char *t52410; struct p14564 *e14564; struct p14564 *p14565; struct p14564 *p14566; struct p14564 *p14569; struct p14564 *p14570; struct p14564 *p14574; e14564 = (struct p14564 *)alloca(sizeof(struct p14564)); if (e14564==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e14564->a25965 = a25965; /* x131518 */ /* x131517 stalin.sc:16532:577239 */ /* x131510 stalin.sc:16532:577247 */ /* x131505 stalin.sc:16532:577252 */ /* x131503 stalin.sc:16532:577261 */ t52407 = e14564->a25965; /* x131504 stalin.sc:16532:577263 */ t52408 = a25966; /* x131502 stalin.sc:16532:577253 */ if (f8033(t52407, t52408)==FALSE_TYPE) goto l7415; /* x131508 */ /* x131507 stalin.sc:16532:577277 */ t52409 = a25966; /* x131506 stalin.sc:16532:577267 */ if (f14024(t52409)==FALSE_TYPE) goto l7415; /* x131512 */ /* x131511 */ goto l7416; l7415: /* x131516 */ /* x131515 */ /* x131514 stalin.sc:16532:577281 */ /* x131513 stalin.sc:16532:577282 */ /* x296101 QobiScheme.sc:166:5314 */ /* x296100 QobiScheme.sc:166:5321 */ t52410 = "This shouldn\'t happen"; /* x296099 QobiScheme.sc:166:5315 */ stalin_panic(t52410); l7416: /* x131501 */ t52370 = e14564; p14565 = t52370; /* x131500 stalin.sc:16544:578016 */ /* x131499 stalin.sc:16544:578026 */ /* x131497 stalin.sc:16544:578035 */ t52403 = p14565; /* x131498 stalin.sc:16544:578061 */ t52404 = a1200; /* x131492 stalin.sc:16544:578027 */ t52405.tag = NATIVE_PROCEDURE_TYPE23628; t52405.value.native_procedure_type23628 = t52403; /* MOVE: branching squeezed to general */ if (t52404>=((struct structure_type24753 *)VALUE_OFFSET)) {t52406.tag = STRUCTURE_TYPE24753; t52406.value.structure_type24753 = t52404;} else t52406.tag = (unsigned)t52404; t52372 = f1314(t52405, t52406); /* x131491 */ t52371 = p14565; p14566 = t52371; a25968 = t52372; /* x131490 stalin.sc:16545:578072 */ /* x131396 stalin.sc:16545:578079 */ /* x131395 stalin.sc:16545:578091 */ t52373 = p14566->a25965; /* x131394 stalin.sc:16545:578080 */ if (f7682(t52373)==FALSE_TYPE) goto l7407; /* x131399 */ /* x131398 */ /* x131397 stalin.sc:16545:578094 */ return (((unsigned)0)<<1)+1; l7407: /* x131489 */ /* x131402 stalin.sc:16546:578099 */ /* x131401 stalin.sc:16546:578112 */ t52374 = p14566->a25965; /* x131400 stalin.sc:16546:578100 */ if (f8793(t52374)==FALSE_TYPE) goto l7409; /* x131405 */ /* x131404 */ /* x131403 stalin.sc:16546:578115 */ return (((unsigned)0)<<1)+1; l7409: /* x131488 */ /* x131416 stalin.sc:16547:578120 */ /* x131409 stalin.sc:16547:578124 */ /* x131408 stalin.sc:16547:578132 */ t52377 = a25968; /* x131407 stalin.sc:16547:578125 */ t52375 = f26227(t52377); /* x131415 stalin.sc:16547:578136 */ /* x131411 stalin.sc:16547:578142 */ t52378 = 2; /* x131414 stalin.sc:16547:578144 */ /* x131413 stalin.sc:16547:578162 */ t52380 = a25966; /* x131412 stalin.sc:16547:578145 */ t52379 = f13917(t52380); /* x268848 stalin.sc:16547:578137 */ switch (t52379.tag) {case FIXNUM_TYPE: if ((t52379.value.fixnum_type)<0) {t52376.tag = FLONUM_TYPE; t52376.value.flonum_type = pow(t52378, (t52379.value.fixnum_type));} else {t52376.tag = FIXNUM_TYPE; t52376.value.fixnum_type = ipow(t52378, (t52379.value.fixnum_type));} break; case FLONUM_TYPE: t52376.tag = FLONUM_TYPE; t52376.value.flonum_type = pow(t52378, (t52379.value.flonum_type)); break; default: backtrace("stalin.sc", 16547, 578136); expt2_error();} /* x268849 stalin.sc:16547:578121 */ if ((t52376.tag)==FIXNUM_TYPE) {if (!(t52375<=(t52376.value.fixnum_type))) goto l7411;} else if (!(t52375<=(t52376.value.flonum_type))) goto l7411; /* x131422 */ /* x131421 */ t52400 = p14566; p14569 = t52400; /* x131420 stalin.sc:16547:578167 */ /* x131418 stalin.sc:16547:578178 */ t52401 = p14569->a25965; /* x131419 stalin.sc:16547:578180 */ t52402 = a25968; /* x131417 stalin.sc:16547:578168 */ return f1234(t52401, t52402); l7411: /* x131487 */ /* x131426 stalin.sc:16548:578187 */ /* x131424 stalin.sc:16548:578196 */ /* x131425 stalin.sc:16548:578212 */ t52381 = a25966; /* x131423 stalin.sc:16548:578188 */ t52382.tag = NATIVE_PROCEDURE_TYPE6852; if ((f8137(t52382, t52381).tag)==FALSE_TYPE) goto l7413; /* x131462 */ /* x131461 */ t52391 = p14566; p14570 = t52391; /* x131460 stalin.sc:16550:578289 */ /* x131428 stalin.sc:16551:578303 */ t52392 = p14570->a25965; /* x131459 stalin.sc:16552:578308 */ /* x131445 stalin.sc:16552:578314 */ /* x131443 stalin.sc:16553:578331 */ /* x131444 stalin.sc:16554:578396 */ t52398 = a25966; /* x131430 stalin.sc:16552:578315 */ t52399.tag = NATIVE_PROCEDURE_TYPE23640; t52394 = f8172(t52399, t52398); /* x131457 stalin.sc:16555:578401 */ /* x131458 stalin.sc:16559:578603 */ /* x131429 stalin.sc:16552:578309 */ t52395 = *((struct w49 *)(&t52394)); t52396 = NATIVE_PROCEDURE_TYPE23639; t52397 = NATIVE_PROCEDURE_TYPE8092; t52393 = f1581(t52395, t52396, t52397); /* x131427 stalin.sc:16550:578290 */ return f1234(t52392, t52393); l7413: /* x131486 */ /* x131485 */ t52383 = p14566; p14574 = t52383; /* x131484 stalin.sc:16562:578696 */ /* x131482 stalin.sc:16562:578699 */ /* x131465 stalin.sc:16563:578716 */ t52386 = p14574->a25965; /* x131481 stalin.sc:16563:578718 */ /* x131479 stalin.sc:16564:578734 */ /* x131480 stalin.sc:16565:578798 */ t52389 = a25966; /* x131466 stalin.sc:16563:578719 */ t52390.tag = NATIVE_PROCEDURE_TYPE23631; t52387 = f8172(t52390, t52389); /* x131464 stalin.sc:16562:578700 */ t52388 = *((struct w49 *)(&t52387)); t52384 = f1234(t52386, t52388); /* x131483 stalin.sc:16566:578807 */ t52385 = 1; /* x268845 stalin.sc:16562:578697 */ if ((t52384&1)==1) return (((unsigned)(((int)(((int)t52384)>>1))+t52385))<<1)+1; backtrace("stalin.sc", 16562, 578696); plus_error();} /* UNIONQ[14557] */ struct w49 f14557(struct w49 a25963, struct w49 a25964) {struct w49 r14557; struct w16638 a35587; /* PAIR */ struct w16638 a35588; /* PAIR */ struct w16638 a35589; /* PAIR */ struct w16638 a35590; /* PAIR */ struct w16638 a36157; /* PAIR */ struct w16638 a36158; /* PAIR */ struct w16638 a36159; /* PAIR */ struct w16638 a36160; /* PAIR */ struct w16638 a36161; /* PAIR */ struct w16638 a36162; /* PAIR */ struct w16638 a36163; /* PAIR */ struct w49 t52411; struct w49 t52412; struct w49 t52413; struct w49 t52414; struct w16638 t52415; struct w16638 t52416; struct w16638 t52417; struct w16638 t52418; unsigned t52419; unsigned t52420; struct w49 t52421; struct w16638 t52422; struct w16638 t52423; struct w49 t52424; struct w16638 t52425; struct w16638 t52426; struct w49 t52427; struct w49 t52428; struct w16638 t52429; struct w16638 t52430; struct w16638 t52431; struct w49 t52432; struct w49 t52433; struct w16638 t52434; struct w16638 t52435; struct w49 t52436; struct w49 t52437; struct w16638 t52438; struct w16638 t52439; struct w49 t52440; struct w16638 t52441; struct w49 t52442; struct w16638 t52443; struct w16638 t52444; struct w49 t52445; struct w49 t52446; struct w16638 t52447; struct w16638 t52448; struct w49 t52449; struct w49 t52450; struct w16638 t52451; struct w16638 t52452; struct w16638 t52453; struct w16638 t52454; /* x131384 stalin.sc:16493:575861 */ /* x131310 stalin.sc:16493:575868 */ /* x131309 stalin.sc:16493:575875 */ t52411 = a25963; /* x268856 stalin.sc:16493:575869 */ if (!((t52411.tag)==NULL_TYPE)) goto l7419; /* x131313 */ /* x131312 */ /* x131311 stalin.sc:16493:575880 */ return a25964; l7419: /* x131383 */ /* x131316 stalin.sc:16494:575887 */ /* x131315 stalin.sc:16494:575894 */ t52412 = a25964; /* x268855 stalin.sc:16494:575888 */ if (!((t52412.tag)==NULL_TYPE)) goto l7421; /* x131319 */ /* x131318 */ /* x131317 stalin.sc:16494:575899 */ return a25963; l7421: /* x131382 */ /* x131327 stalin.sc:16495:575906 */ /* x131323 stalin.sc:16495:575911 */ /* x131322 stalin.sc:16495:575918 */ t52415 = *((struct w16638 *)(&a25963)); /* x131321 stalin.sc:16495:575912 */ a36162 = t52415; /* x276005 */ /* x276004 */ t52416 = a36162; /* x276003 */ if (!((t52416.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30311]"); structure_ref_error();} t52413 = t52416.value.structure_type24753->s0; /* x131326 stalin.sc:16495:575923 */ /* x131325 stalin.sc:16495:575930 */ t52417 = *((struct w16638 *)(&a25964)); /* x131324 stalin.sc:16495:575924 */ a36163 = t52417; /* x276009 */ /* x276008 */ t52418 = a36163; /* x276007 */ if (!((t52418.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30312]"); structure_ref_error();} t52414 = t52418.value.structure_type24753->s0; /* x268854 stalin.sc:16495:575907 */ /* EQ: dispatching general to general */ if (!((t52413.tag)==(t52414.tag))) goto l7423; switch (t52413.tag) {case FIXNUM_TYPE: if (!((t52413.value.fixnum_type)==(t52414.value.fixnum_type))) goto l7423; break; case FLONUM_TYPE: if (!((t52413.value.flonum_type)==(t52414.value.flonum_type))) goto l7423; break; case INPUT_PORT_TYPE: if (!((t52413.value.input_port_type)==(t52414.value.input_port_type))) goto l7423; break; case OUTPUT_PORT_TYPE: if (!((t52413.value.output_port_type)==(t52414.value.output_port_type))) goto l7423; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t52413.value.native_procedure_type15963)==(t52414.value.native_procedure_type15963))) goto l7423; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t52413.value.native_procedure_type19067)==(t52414.value.native_procedure_type19067))) goto l7423; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t52413.value.native_procedure_type19068)==(t52414.value.native_procedure_type19068))) goto l7423; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t52413.value.native_procedure_type22459)==(t52414.value.native_procedure_type22459))) goto l7423; break; case STRUCTURE_TYPE24753: if (!((t52413.value.structure_type24753)==(t52414.value.structure_type24753))) goto l7423; break; case STRUCTURE_TYPE24757: if (!((t52413.value.structure_type24757)==(t52414.value.structure_type24757))) goto l7423; break; case STRUCTURE_TYPE27501: if (!((t52413.value.structure_type27501)==(t52414.value.structure_type27501))) goto l7423; break; case STRUCTURE_TYPE27510: if (!((t52413.value.structure_type27510)==(t52414.value.structure_type27510))) goto l7423; break; case STRUCTURE_TYPE27621: if (!((t52413.value.structure_type27621)==(t52414.value.structure_type27621))) goto l7423; break; case STRUCTURE_TYPE27650: if (!((t52413.value.structure_type27650)==(t52414.value.structure_type27650))) goto l7423; break; case STRUCTURE_TYPE27669: if (!((t52413.value.structure_type27669)==(t52414.value.structure_type27669))) goto l7423; break; case STRUCTURE_TYPE27673: if (!((t52413.value.structure_type27673)==(t52414.value.structure_type27673))) goto l7423; break; case STRUCTURE_TYPE27692: if (!((t52413.value.structure_type27692)==(t52414.value.structure_type27692))) goto l7423; break; case STRUCTURE_TYPE27694: if (!((t52413.value.structure_type27694)==(t52414.value.structure_type27694))) goto l7423; break; case STRUCTURE_TYPE27698: if (!((t52413.value.structure_type27698)==(t52414.value.structure_type27698))) goto l7423; break; case STRUCTURE_TYPE27745: if (!((t52413.value.structure_type27745)==(t52414.value.structure_type27745))) goto l7423; break; case STRUCTURE_TYPE27747: if (!((t52413.value.structure_type27747)==(t52414.value.structure_type27747))) goto l7423; break; case STRUCTURE_TYPE27750: if (!((t52413.value.structure_type27750)==(t52414.value.structure_type27750))) goto l7423; break; case STRUCTURE_TYPE27753: if (!((t52413.value.structure_type27753)==(t52414.value.structure_type27753))) goto l7423; break; case STRUCTURE_TYPE27756: if (!((t52413.value.structure_type27756)==(t52414.value.structure_type27756))) goto l7423; break; case STRUCTURE_TYPE27761: if (!((t52413.value.structure_type27761)==(t52414.value.structure_type27761))) goto l7423; break; case STRUCTURE_TYPE27769: if (!((t52413.value.structure_type27769)==(t52414.value.structure_type27769))) goto l7423; break; case STRUCTURE_TYPE27776: if (!((t52413.value.structure_type27776)==(t52414.value.structure_type27776))) goto l7423; break; case STRUCTURE_TYPE27779: if (!((t52413.value.structure_type27779)==(t52414.value.structure_type27779))) goto l7423; break; case STRUCTURE_TYPE27858: if (!((t52413.value.structure_type27858)==(t52414.value.structure_type27858))) goto l7423; break; case STRING_TYPE: if (!((t52413.value.string_type)==(t52414.value.string_type))) goto l7423; break; case HEADED_VECTOR_TYPE27896: if (!((t52413.value.headed_vector_type27896)==(t52414.value.headed_vector_type27896))) goto l7423; break; case EXTERNAL_SYMBOL_TYPE: if (!((t52413.value.external_symbol_type)==(t52414.value.external_symbol_type))) goto l7423; break; case STRUCTURE_TYPE27908: if (!((t52413.value.structure_type27908)==(t52414.value.structure_type27908))) goto l7423; break; default:;} /* x131342 */ /* x131341 */ /* x131340 stalin.sc:16496:575938 */ /* x131331 stalin.sc:16496:575944 */ /* x131330 stalin.sc:16496:575951 */ t52447 = *((struct w16638 *)(&a25963)); /* x131329 stalin.sc:16496:575945 */ a36157 = t52447; /* x275985 */ /* x275984 */ t52448 = a36157; /* x275983 */ if (!((t52448.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30306]"); structure_ref_error();} t52445 = t52448.value.structure_type24753->s0; /* x131339 stalin.sc:16496:575956 */ /* x131335 stalin.sc:16496:575964 */ /* x131334 stalin.sc:16496:575970 */ t52451 = *((struct w16638 *)(&a25963)); /* x131333 stalin.sc:16496:575965 */ a35587 = t52451; /* x273705 */ /* x273704 */ t52452 = a35587; /* x273703 */ if (!((t52452.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29736]"); structure_ref_error();} t52449 = t52452.value.structure_type24753->s1; /* x131338 stalin.sc:16496:575975 */ /* x131337 stalin.sc:16496:575981 */ t52453 = *((struct w16638 *)(&a25964)); /* x131336 stalin.sc:16496:575976 */ a35588 = t52453; /* x273709 */ /* x273708 */ t52454 = a35588; /* x273707 */ if (!((t52454.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29737]"); structure_ref_error();} t52450 = t52454.value.structure_type24753->s1; /* x131332 stalin.sc:16496:575957 */ t52446 = f14557(t52449, t52450); /* x268853 stalin.sc:16496:575939 */ r14557.tag = STRUCTURE_TYPE24753; r14557.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r14557.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16496, 575938); out_of_memory_error();} r14557.value.structure_type24753->s0 = t52445; r14557.value.structure_type24753->s1 = t52446; return r14557; l7423: /* x131381 */ /* x131354 stalin.sc:16497:575991 */ /* x131348 stalin.sc:16497:575994 */ /* x131347 stalin.sc:16497:576006 */ /* x131346 stalin.sc:16497:576013 */ t52422 = *((struct w16638 *)(&a25963)); /* x131345 stalin.sc:16497:576007 */ a36160 = t52422; /* x275997 */ /* x275996 */ t52423 = a36160; /* x275995 */ if (!((t52423.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30309]"); structure_ref_error();} t52421 = t52423.value.structure_type24753->s0; /* x131344 stalin.sc:16497:575995 */ t52419 = f7936(t52421); /* x131353 stalin.sc:16497:576019 */ /* x131352 stalin.sc:16497:576031 */ /* x131351 stalin.sc:16497:576038 */ t52425 = *((struct w16638 *)(&a25964)); /* x131350 stalin.sc:16497:576032 */ a36161 = t52425; /* x276001 */ /* x276000 */ t52426 = a36161; /* x275999 */ if (!((t52426.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30310]"); structure_ref_error();} t52424 = t52426.value.structure_type24753->s0; /* x131349 stalin.sc:16497:576020 */ t52420 = f7936(t52424); /* x268852 stalin.sc:16497:575992 */ if (!((t52419&1)==1)) {backtrace("stalin.sc", 16497, 575991); lt_error();} if (!((t52420&1)==1)) {backtrace("stalin.sc", 16497, 575991); lt_error();} if (!(((int)(((int)t52419)>>1))<((int)(((int)t52420)>>1)))) goto l7425; /* x131367 */ /* x131366 */ /* x131365 stalin.sc:16498:576047 */ /* x131358 stalin.sc:16498:576053 */ /* x131357 stalin.sc:16498:576060 */ t52438 = *((struct w16638 *)(&a25963)); /* x131356 stalin.sc:16498:576054 */ a36158 = t52438; /* x275989 */ /* x275988 */ t52439 = a36158; /* x275987 */ if (!((t52439.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30307]"); structure_ref_error();} t52436 = t52439.value.structure_type24753->s0; /* x131364 stalin.sc:16498:576065 */ /* x131362 stalin.sc:16498:576073 */ /* x131361 stalin.sc:16498:576079 */ t52443 = *((struct w16638 *)(&a25963)); /* x131360 stalin.sc:16498:576074 */ a35589 = t52443; /* x273713 */ /* x273712 */ t52444 = a35589; /* x273711 */ if (!((t52444.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29738]"); structure_ref_error();} t52440 = t52444.value.structure_type24753->s1; /* x131363 stalin.sc:16498:576084 */ t52441 = *((struct w16638 *)(&a25964)); /* x131359 stalin.sc:16498:576066 */ t52442 = *((struct w49 *)(&t52441)); t52437 = f14557(t52440, t52442); /* x268851 stalin.sc:16498:576048 */ r14557.tag = STRUCTURE_TYPE24753; r14557.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r14557.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16498, 576047); out_of_memory_error();} r14557.value.structure_type24753->s0 = t52436; r14557.value.structure_type24753->s1 = t52437; return r14557; l7425: /* x131380 */ /* x131379 */ /* x131378 stalin.sc:16499:576098 */ /* x131371 stalin.sc:16499:576104 */ /* x131370 stalin.sc:16499:576111 */ t52429 = *((struct w16638 *)(&a25964)); /* x131369 stalin.sc:16499:576105 */ a36159 = t52429; /* x275993 */ /* x275992 */ t52430 = a36159; /* x275991 */ if (!((t52430.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30308]"); structure_ref_error();} t52427 = t52430.value.structure_type24753->s0; /* x131377 stalin.sc:16499:576116 */ /* x131373 stalin.sc:16499:576124 */ t52431 = *((struct w16638 *)(&a25963)); /* x131376 stalin.sc:16499:576128 */ /* x131375 stalin.sc:16499:576134 */ t52434 = *((struct w16638 *)(&a25964)); /* x131374 stalin.sc:16499:576129 */ a35590 = t52434; /* x273717 */ /* x273716 */ t52435 = a35590; /* x273715 */ if (!((t52435.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29739]"); structure_ref_error();} t52432 = t52435.value.structure_type24753->s1; /* x131372 stalin.sc:16499:576117 */ t52433 = *((struct w49 *)(&t52431)); t52428 = f14557(t52433, t52432); /* x268850 stalin.sc:16499:576099 */ r14557.tag = STRUCTURE_TYPE24753; r14557.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r14557.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16499, 576098); out_of_memory_error();} r14557.value.structure_type24753->s0 = t52427; r14557.value.structure_type24753->s1 = t52428; return r14557;} /* [inside ASSIGN-GLOBAL-SQUISH-TAGS! 14547] */ struct w49 f14547(struct w49 a25951) {struct w49 r14547; struct w49 t52455; struct w228245 t52456; struct w49 t52457; struct structure_type24753 *t52458; struct w49 t52459; unsigned t52460; unsigned t52461; char *t52462; struct w49 t52463; /* x131255 stalin.sc:16510:576482 */ /* x131234 stalin.sc:16510:576486 */ /* x131233 stalin.sc:16516:576728 */ t52455 = a25951; /* x131232 stalin.sc:16510:576493 */ /* x131220 stalin.sc:16510:576487 */ t52456.tag = NATIVE_PROCEDURE_TYPE15179; t52457 = t52455; t52458 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t52456, t52457, t52458)==FALSE_TYPE) goto l7427; /* x131238 stalin.sc:16519:576826 */ /* x131236 stalin.sc:16519:576832 */ t52462 = q202; /* x131237 stalin.sc:16519:576837 */ t52463 = a25951; /* x268857 stalin.sc:16519:576827 */ r14547.tag = STRUCTURE_TYPE24753; r14547.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r14547.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16519, 576826); out_of_memory_error();} r14547.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; r14547.value.structure_type24753->s0.value.external_symbol_type = t52462; r14547.value.structure_type24753->s1 = t52463; return r14547; l7427: /* x131254 stalin.sc:16522:576935 */ /* x131240 stalin.sc:16522:576941 */ t52459 = a25951; /* x131252 stalin.sc:16523:576950 */ /* x131253 stalin.sc:16528:577190 */ /* x131239 stalin.sc:16522:576936 */ t52460 = NATIVE_PROCEDURE_TYPE15180; t52461 = NATIVE_PROCEDURE_TYPE8092; return f1581(t52459, t52460, t52461);} /* ASSIGN-GLOBAL-SQUISH-TAGS![14543] */ void f14543(void) {struct p14552 *a15137; /* P */ struct w12224 a15138; /* X */ struct structure_type24753 *a15143; /* C */ struct structure_type24753 *a15144; /* D */ struct structure_type24753 *a25950; /* USS */ struct w12224 a25957; /* WS */ struct structure_type24753 *t52464; struct structure_type24753 *t52465; struct w36270 t52466; struct w49 t52467; struct structure_type24753 *t52468; struct structure_type24753 *t52469; struct w12224 t52470; struct p14552 *t52471; struct w12224 t52472; struct p1542 *t52473; struct p1542 *t52474; struct p1542 *t52475; struct structure_type24753 *t52476; struct p1542 *t52477; struct structure_type24753 *t52478; int t52479; int t52480; struct structure_type24753 *t52481; struct w49 t52482; struct structure_type24753 *t52483; struct w49 t52484; struct p1542 *t52485; struct structure_type24753 *t52486; struct structure_type24753 *t52487; struct w36270 t52488; struct w49 t52489; struct structure_type24753 *t52490; struct p1542 *t52491; struct p1542 *t52492; struct structure_type24753 *t52493; struct w49 t52494; struct p1542 *t52495; struct p1542 *t52496; struct w12224 t52497; struct w36270 t52498; struct w49 t52499; struct structure_type24753 *t52500; struct w49 t52501; unsigned t52502; struct structure_type24753 *t52503; unsigned t52504; struct w49 t52505; struct w228463 t52506; struct w12224 t52507; struct w36270 t52508; struct w49 t52509; struct structure_type24753 *t52510; struct w21193 t52511; struct w227671 t52512; struct w49 t52513; struct p1542 *e1542; struct p14552 *e14552; struct p1542 *p1543; struct p1542 *p1544; struct p1542 *p1545; struct p1542 *p1546; struct p1542 *p1547; struct p1542 *p1548; /* x131391 */ /* x131390 */ /* x131389 */ /* x131388 */ /* x131387 */ /* x131386 */ /* x131385 */ /* x131307 */ /* x131306 stalin.sc:16500:576145 */ /* x131305 stalin.sc:16501:576164 */ /* x131304 stalin.sc:16501:576175 */ /* x131303 stalin.sc:16501:576185 */ /* x131301 stalin.sc:16501:576200 */ /* x131302 stalin.sc:16501:576210 */ t52511 = a1679; /* x131300 stalin.sc:16501:576186 */ t52512.tag = NATIVE_PROCEDURE_TYPE6845; t52513 = *((struct w49 *)(&t52511)); t52470 = f1226(t52512, t52513); /* x131299 */ a25957 = t52470; e14552 = (struct p14552 *)alloca(sizeof(struct p14552)); if (e14552==NULL) {backtrace_internal("[inside ASSIGN-GLOBAL-SQUISH-TAGS! 14545]"); out_of_memory_error();} e14552->a25957 = a25957; /* x131298 stalin.sc:16502:576223 */ /* x131275 stalin.sc:16503:576251 */ t52471 = e14552; /* x131297 stalin.sc:16506:576346 */ /* x131288 stalin.sc:16506:576357 */ /* x131296 stalin.sc:16507:576416 */ /* x131290 stalin.sc:16507:576424 */ /* x131294 stalin.sc:16507:576431 */ /* x131293 stalin.sc:16507:576444 */ t52507 = e14552->a25957; /* x131292 stalin.sc:16507:576436 */ /* x131291 stalin.sc:16507:576432 */ t52508.tag = NATIVE_PROCEDURE_TYPE7353; t52509 = *((struct w49 *)(&t52507)); t52510 = (struct structure_type24753 *)NULL_TYPE; t52503 = f27731(t52508, t52509, t52510); /* x131295 stalin.sc:16507:576448 */ /* x131289 stalin.sc:16507:576417 */ t52504 = NATIVE_PROCEDURE_TYPE15134; /* MOVE: branching squeezed to general */ if (t52503>=((struct structure_type24753 *)VALUE_OFFSET)) {t52505.tag = STRUCTURE_TYPE24753; t52505.value.structure_type24753 = t52503;} else t52505.tag = (unsigned)t52503; t52506.tag = NULL_TYPE; t52501 = f1006(t52504, t52505, t52506); /* x131276 stalin.sc:16506:576347 */ t52502 = NATIVE_PROCEDURE_TYPE15143; t52472 = f1218(t52502, t52501); /* x131260 stalin.sc:16502:576224 */ a15137 = t52471; a15138 = t52472; e1542 = (struct p1542 *)alloca(sizeof(struct p1542)); if (e1542==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e1542->a15137 = a15137; /* x17638 */ /* x17637 */ /* x17636 */ /* x17635 */ t52473 = e1542; p1543 = t52473; /* x17634 */ /* x17633 */ /* x17632 */ /* x17579 */ t52474 = p1543; p1544 = t52474; /* x17578 QobiScheme.sc:776:22464 */ /* x17577 QobiScheme.sc:776:22478 */ /* x17576 QobiScheme.sc:776:22488 */ t52497 = a15138; /* x17575 QobiScheme.sc:776:22483 */ /* x17574 QobiScheme.sc:776:22479 */ t52498.tag = NATIVE_PROCEDURE_TYPE460; t52499 = *((struct w49 *)(&t52497)); t52500 = (struct structure_type24753 *)NULL_TYPE; t52476 = f27731(t52498, t52499, t52500); /* x17573 */ /* x17572 */ /* x17571 */ /* x17570 */ t52495 = p1544; p1545 = t52495; /* x17569 */ /* x17568 */ /* x17567 */ /* x17530 */ t52496 = p1545; p1546 = t52496; /* x17529 QobiScheme.sc:776:22469 */ t52475 = p1546; p1547 = t52475; a15143 = t52476; h1547: /* x17566 QobiScheme.sc:777:22495 */ /* x17565 QobiScheme.sc:777:22504 */ /* x17564 QobiScheme.sc:778:22546 */ /* x17562 QobiScheme.sc:779:22571 */ t52492 = p1547; /* x17563 QobiScheme.sc:779:22623 */ t52493 = a15143; /* x17552 QobiScheme.sc:778:22547 */ t52491 = p1547; /* MOVE: branching squeezed to general */ if (t52493>=((struct structure_type24753 *)VALUE_OFFSET)) {t52494.tag = STRUCTURE_TYPE24753; t52494.value.structure_type24753 = t52493;} else t52494.tag = (unsigned)t52493; t52487 = f1553(t52491, t52494); /* x17551 QobiScheme.sc:777:22509 */ /* x17545 QobiScheme.sc:777:22505 */ t52488.tag = NATIVE_PROCEDURE_TYPE15175; /* MOVE: branching squeezed to general */ if (t52487>=((struct structure_type24753 *)VALUE_OFFSET)) {t52489.tag = STRUCTURE_TYPE24753; t52489.value.structure_type24753 = t52487;} else t52489.tag = (unsigned)t52487; t52490 = (struct structure_type24753 *)NULL_TYPE; t52478 = f27731(t52488, t52489, t52490); /* x17544 */ t52477 = p1547; p1548 = t52477; a15144 = t52478; /* x17543 QobiScheme.sc:780:22632 */ /* x17538 QobiScheme.sc:780:22636 */ /* x17534 QobiScheme.sc:780:22639 */ /* x17533 QobiScheme.sc:780:22647 */ t52481 = a15144; /* x17532 QobiScheme.sc:780:22640 */ /* MOVE: branching squeezed to general */ if (t52481>=((struct structure_type24753 *)VALUE_OFFSET)) {t52482.tag = STRUCTURE_TYPE24753; t52482.value.structure_type24753 = t52481;} else t52482.tag = (unsigned)t52481; t52479 = f26227(t52482); /* x17537 QobiScheme.sc:780:22650 */ /* x17536 QobiScheme.sc:780:22658 */ t52483 = a15143; /* x17535 QobiScheme.sc:780:22651 */ /* MOVE: branching squeezed to general */ if (t52483>=((struct structure_type24753 *)VALUE_OFFSET)) {t52484.tag = STRUCTURE_TYPE24753; t52484.value.structure_type24753 = t52483;} else t52484.tag = (unsigned)t52483; t52480 = f26227(t52484); /* x270870 QobiScheme.sc:780:22637 */ if (!(t52479==t52480)) goto l7429; /* x17539 QobiScheme.sc:780:22662 */ t52464 = a15144; goto l7430; l7429: /* x17542 QobiScheme.sc:780:22664 */ /* x17541 QobiScheme.sc:780:22670 */ t52486 = a15144; /* x17540 QobiScheme.sc:780:22665 */ t52485 = p1548; p1547 = t52485; a15143 = t52486; goto h1547; l7430: /* x131259 */ a25950 = t52464; /* x131258 stalin.sc:16508:576459 */ /* x131257 stalin.sc:16529:577204 */ t52465 = a25950; /* x131256 stalin.sc:16509:576466 */ /* x131219 stalin.sc:16508:576460 */ t52466.tag = NATIVE_PROCEDURE_TYPE15178; /* MOVE: branching squeezed to general */ if (t52465>=((struct structure_type24753 *)VALUE_OFFSET)) {t52467.tag = STRUCTURE_TYPE24753; t52467.value.structure_type24753 = t52465;} else t52467.tag = (unsigned)t52465; t52468 = (struct structure_type24753 *)NULL_TYPE; t52469 = f27731(t52466, t52467, t52468); a1200 = t52469; return;} /* SQUEEZE-TAG-TEST[14536] */ struct structure_type24753 *f14536(struct w49 a25944, struct w49 a25945, struct w49 a25946) {struct w49 t52514; struct w49 t52515; struct w49 t52516; struct structure_type24753 *t52517; struct w49 t52518; char *t52519; struct w49 t52520; struct w49 t52521; struct w49 t52522; struct structure_type24753 *t52523; struct w49 t52524; struct w61020 t52525; struct w49 t52526; struct w49 t52527; struct w49 t52528; struct w49 t52529; struct structure_type24753 *t52530; struct w49 t52531; char *t52532; struct w49 t52533; struct w49 t52534; struct w49 t52535; struct w49 t52536; struct w49 t52537; char *t52538; /* x131216 */ /* x131215 stalin.sc:16485:575474 */ /* x131208 stalin.sc:16485:575482 */ /* x131203 stalin.sc:16485:575487 */ /* x131201 stalin.sc:16485:575496 */ t52535 = a25945; /* x131202 stalin.sc:16485:575498 */ t52536 = a25946; /* x131200 stalin.sc:16485:575488 */ if (f8033(t52535, t52536)==FALSE_TYPE) goto l7436; /* x131206 */ /* x131205 stalin.sc:16485:575512 */ t52537 = a25946; /* x131204 stalin.sc:16485:575502 */ if (f13859(t52537)==FALSE_TYPE) goto l7436; /* x131210 */ /* x131209 */ goto l7437; l7436: /* x131214 */ /* x131213 */ /* x131212 stalin.sc:16485:575516 */ /* x131211 stalin.sc:16485:575517 */ /* x295977 QobiScheme.sc:166:5314 */ /* x295976 QobiScheme.sc:166:5321 */ t52538 = "This shouldn\'t happen"; /* x295975 QobiScheme.sc:166:5315 */ stalin_panic(t52538); l7437: /* x131199 */ /* x131198 stalin.sc:16486:575528 */ /* x131162 stalin.sc:16486:575535 */ /* x131161 stalin.sc:16486:575547 */ t52514 = a25945; /* x131160 stalin.sc:16486:575536 */ if (f7682(t52514)==FALSE_TYPE) goto l7432; /* x131172 */ /* x131171 */ /* x131170 stalin.sc:16486:575550 */ /* x131164 stalin.sc:16486:575555 */ t52529 = a25944; /* x131169 stalin.sc:16486:575557 */ /* x131167 stalin.sc:16486:575574 */ /* x131166 stalin.sc:16486:575575 */ /* x276337 stalin.sc:16169:562645 */ t52532 = "CHAR_OFFSET"; /* x131168 stalin.sc:16486:575590 */ t52533 = a25946; /* x131165 stalin.sc:16486:575558 */ t52534.tag = STRING_TYPE; t52534.value.string_type = t52532; t52530 = f14422(t52534, t52533); /* x131163 stalin.sc:16486:575551 */ t52531.tag = STRUCTURE_TYPE24753; t52531.value.structure_type24753 = t52530; return f13601(t52529, t52531); l7432: /* x131197 */ /* x131175 stalin.sc:16487:575603 */ /* x131174 stalin.sc:16487:575616 */ t52515 = a25945; /* x131173 stalin.sc:16487:575604 */ if (f8793(t52515)==FALSE_TYPE) goto l7434; /* x131186 */ /* x131185 */ /* x131184 stalin.sc:16487:575619 */ /* x131177 stalin.sc:16487:575625 */ t52522 = a25944; /* x131183 stalin.sc:16487:575627 */ /* x131181 stalin.sc:16487:575644 */ /* x131180 stalin.sc:16487:575656 */ t52528 = a25945; /* x131179 stalin.sc:16487:575645 */ t52525 = f14433(t52528); /* x131182 stalin.sc:16487:575659 */ t52526 = a25946; /* x131178 stalin.sc:16487:575628 */ t52527 = *((struct w49 *)(&t52525)); t52523 = f14422(t52527, t52526); /* x131176 stalin.sc:16487:575620 */ t52524.tag = STRUCTURE_TYPE24753; t52524.value.structure_type24753 = t52523; return f13591(t52522, t52524); l7434: /* x131196 */ /* x131195 */ /* x131194 stalin.sc:16488:575677 */ /* x131188 stalin.sc:16488:575683 */ t52516 = a25944; /* x131193 stalin.sc:16488:575685 */ /* x131191 stalin.sc:16488:575702 */ /* x131190 stalin.sc:16488:575703 */ /* x276359 stalin.sc:16167:562604 */ t52519 = "VALUE_OFFSET"; /* x131192 stalin.sc:16488:575719 */ t52520 = a25946; /* x131189 stalin.sc:16488:575686 */ t52521.tag = STRING_TYPE; t52521.value.string_type = t52519; t52517 = f14422(t52521, t52520); /* x131187 stalin.sc:16488:575678 */ t52518.tag = STRUCTURE_TYPE24753; t52518.value.structure_type24753 = t52517; return f13608(t52516, t52518);} /* SQUEEZE[14529] */ struct w49 f14529(struct w49 a25940, struct w49 a25941, struct w49 a25942) {struct w49 r14529; struct w49 t52539; struct w49 t52540; struct w61020 t52541; struct w49 t52542; struct w49 t52543; struct structure_type24753 *t52544; struct w49 t52545; struct w49 t52546; struct w49 t52547; struct structure_type24753 *t52548; struct structure_type24753 *t52549; char *t52550; struct w49 t52551; struct w49 t52552; struct structure_type24753 *t52553; struct w49 t52554; struct w49 t52555; struct w49 t52556; struct w49 t52557; struct w49 t52558; struct w49 t52559; char *t52560; /* x131157 */ /* x131156 stalin.sc:16468:574697 */ /* x131149 stalin.sc:16468:574705 */ /* x131144 stalin.sc:16468:574710 */ /* x131142 stalin.sc:16468:574719 */ t52557 = a25941; /* x131143 stalin.sc:16468:574721 */ t52558 = a25942; /* x131141 stalin.sc:16468:574711 */ if (f8033(t52557, t52558)==FALSE_TYPE) goto l7444; /* x131147 */ /* x131146 stalin.sc:16468:574735 */ t52559 = a25942; /* x131145 stalin.sc:16468:574725 */ if (f13859(t52559)==FALSE_TYPE) goto l7444; /* x131151 */ /* x131150 */ goto l7445; l7444: /* x131155 */ /* x131154 */ /* x131153 stalin.sc:16468:574739 */ /* x131152 stalin.sc:16468:574740 */ /* x295817 QobiScheme.sc:166:5314 */ /* x295816 QobiScheme.sc:166:5321 */ t52560 = "This shouldn\'t happen"; /* x295815 QobiScheme.sc:166:5315 */ stalin_panic(t52560); l7445: /* x131140 */ /* x131139 stalin.sc:16469:574751 */ /* x131108 stalin.sc:16470:574760 */ /* x131107 stalin.sc:16470:574772 */ t52539 = a25941; /* x131106 stalin.sc:16470:574761 */ if (f7682(t52539)==FALSE_TYPE) goto l7440; /* x131123 */ /* x131122 */ /* x131121 stalin.sc:16478:575260 */ /* x131119 stalin.sc:16478:575277 */ /* x131115 stalin.sc:16478:575283 */ /* x131114 stalin.sc:16478:575300 */ /* x131113 stalin.sc:16478:575322 */ t52555 = a25940; /* x131112 stalin.sc:16478:575301 */ t52553 = f13548(t52555); /* x131111 stalin.sc:16478:575284 */ t52554.tag = STRUCTURE_TYPE24753; t52554.value.structure_type24753 = t52553; t52549 = f14423(t52554); /* x131118 stalin.sc:16479:575331 */ /* x131117 stalin.sc:16479:575341 */ t52556 = a1226; /* x131116 stalin.sc:16479:575332 */ t52550 = f13530(t52556); /* x131110 stalin.sc:16478:575278 */ t52551.tag = STRUCTURE_TYPE24753; t52551.value.structure_type24753 = t52549; t52552.tag = STRING_TYPE; t52552.value.string_type = t52550; t52546 = f13623(t52551, t52552); /* x131120 stalin.sc:16480:575367 */ t52547 = a25942; /* x131109 stalin.sc:16478:575261 */ t52548 = f14422(t52546, t52547); r14529.tag = STRUCTURE_TYPE24753; r14529.value.structure_type24753 = t52548; return r14529; l7440: /* x131138 */ /* x131126 stalin.sc:16481:575374 */ /* x131125 stalin.sc:16481:575387 */ t52540 = a25941; /* x131124 stalin.sc:16481:575375 */ if (f8793(t52540)==FALSE_TYPE) goto l7442; /* x131134 */ /* x131133 */ /* x131132 stalin.sc:16481:575390 */ /* x131130 stalin.sc:16481:575407 */ /* x131129 stalin.sc:16481:575419 */ t52545 = a25941; /* x131128 stalin.sc:16481:575408 */ t52541 = f14433(t52545); /* x131131 stalin.sc:16481:575422 */ t52542 = a25942; /* x131127 stalin.sc:16481:575391 */ t52543 = *((struct w49 *)(&t52541)); t52544 = f14422(t52543, t52542); r14529.tag = STRUCTURE_TYPE24753; r14529.value.structure_type24753 = t52544; return r14529; l7442: /* x131137 */ /* x131136 */ /* x131135 stalin.sc:16482:575434 */ return a25940;} /* C:FOREIGN-TYPE[14506] */ struct w49 f14506(struct w49 a25934, struct w61020 a25935) {struct w49 a25936; /* v */ struct structure_type24753 *a41951; /* CS */ struct structure_type24753 *a41952; /* CS */ struct structure_type24753 *a41953; /* CS */ struct structure_type24753 *a41954; /* CS */ struct structure_type24753 *a41955; /* CS */ struct structure_type24753 *a41956; /* CS */ struct structure_type24753 *a41957; /* CS */ struct structure_type24753 *a41958; /* CS */ struct structure_type24753 *a41959; /* CS */ struct structure_type24753 *a41960; /* CS */ struct structure_type24753 *a41961; /* CS */ struct structure_type24753 *a41962; /* CS */ struct structure_type24753 *a41963; /* CS */ struct structure_type24753 *a41964; /* CS */ struct structure_type24753 *a41965; /* CS */ struct structure_type24753 *a41966; /* CS */ struct structure_type24753 *a41967; /* CS */ struct w49 t52561; struct w49 t52562; char *t52563; struct w49 t52564; struct w49 t52565; char *t52566; struct w49 t52567; struct w49 t52568; char *t52569; struct w49 t52570; struct w49 t52571; char *t52572; struct w49 t52573; struct w49 t52574; char *t52575; struct w49 t52576; struct w49 t52577; char *t52578; struct w49 t52579; struct w49 t52580; char *t52581; struct w49 t52582; struct w49 t52583; char *t52584; struct w49 t52585; struct w49 t52586; char *t52587; struct w49 t52588; struct w49 t52589; char *t52590; struct w49 t52591; struct w49 t52592; char *t52593; struct w49 t52594; struct w49 t52595; char *t52596; struct w49 t52597; struct w49 t52598; char *t52599; struct w49 t52600; struct w49 t52601; char *t52602; struct w49 t52603; struct w49 t52604; char *t52605; struct w49 t52606; struct w49 t52607; char *t52608; struct w49 t52609; struct w49 t52610; char *t52611; struct w49 t52612; struct w49 t52613; char *t52614; struct w49 t52615; struct w49 t52616; char *t52617; struct w49 t52618; char *t52619; char *t52620; struct w61020 t52621; struct structure_type24753 *t52622; struct w49 t52623; struct w49 t52624; char *t52625; struct w61020 t52626; struct structure_type24753 *t52627; struct w49 t52628; struct w49 t52629; char *t52630; struct structure_type24753 *t52631; struct structure_type24753 *t52632; struct w49 t52633; struct w49 t52634; struct w61020 t52635; struct w49 t52636; struct w49 t52637; struct structure_type24753 *t52638; struct structure_type24753 *t52639; struct w49 t52640; struct w49 t52641; struct w61020 t52642; struct w49 t52643; char *t52644; struct w49 t52645; char *t52646; struct structure_type24753 *t52647; struct structure_type24753 *t52648; struct w49 t52649; struct w49 t52650; struct w61020 t52651; struct w49 t52652; char *t52653; char *t52654; struct w61020 t52655; struct structure_type24753 *t52656; struct w49 t52657; struct w49 t52658; struct w49 t52659; char *t52660; struct w61020 t52661; struct structure_type24753 *t52662; struct w49 t52663; struct w49 t52664; char *t52665; struct w61020 t52666; struct structure_type24753 *t52667; struct w49 t52668; struct w49 t52669; char *t52670; char *t52671; struct w61020 t52672; struct structure_type24753 *t52673; struct w49 t52674; struct w49 t52675; struct w49 t52676; char *t52677; struct w61020 t52678; struct structure_type24753 *t52679; struct w49 t52680; struct w49 t52681; char *t52682; struct w61020 t52683; struct structure_type24753 *t52684; struct w49 t52685; struct w49 t52686; char *t52687; struct w61020 t52688; struct structure_type24753 *t52689; struct w49 t52690; struct w49 t52691; char *t52692; char *t52693; struct w61020 t52694; struct structure_type24753 *t52695; struct w49 t52696; struct w49 t52697; struct w49 t52698; char *t52699; struct w61020 t52700; struct structure_type24753 *t52701; struct w49 t52702; struct w49 t52703; char *t52704; char *t52705; struct w61020 t52706; struct structure_type24753 *t52707; struct w49 t52708; struct w49 t52709; struct w49 t52710; char *t52711; char *t52712; struct w61020 t52713; struct structure_type24753 *t52714; struct w49 t52715; struct w49 t52716; struct w49 t52717; char *t52718; struct w61020 t52719; struct structure_type24753 *t52720; struct w49 t52721; struct w49 t52722; /* x131103 stalin.sc:16443:573789 */ /* x131102 stalin.sc:16443:573795 */ t52561 = a25934; /* x131101 */ a25936 = t52561; /* x131100 */ /* x130879 */ /* x130877 */ t52562 = a25936; /* x130878 */ t52563 = q56; /* x130876 */ t52564.tag = EXTERNAL_SYMBOL_TYPE; t52564.value.external_symbol_type = t52563; if (f26160(t52562, t52564)==FALSE_TYPE) goto l7448; /* x130885 */ /* x130884 */ /* x130883 stalin.sc:16444:573807 */ /* x130882 stalin.sc:16444:573829 */ t52719 = a25935; /* x130881 stalin.sc:16444:573822 */ t52718 = "char"; /* x130880 stalin.sc:16444:573808 */ t52722.tag = STRUCTURE_TYPE24753; t52722.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52722.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16444, 573807); out_of_memory_error();} t52722.value.structure_type24753->s0 = *((struct w49 *)(&t52719)); t52722.value.structure_type24753->s1.tag = NULL_TYPE; a41951 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41951==NULL) {backtrace("stalin.sc", 16444, 573807); out_of_memory_error();} a41951->s0.tag = STRING_TYPE; a41951->s0.value.string_type = t52718; a41951->s1 = t52722; /* x301916 stalin.sc:14386:505956 */ /* x301915 stalin.sc:14386:505972 */ t52720 = a41951; /* x301914 stalin.sc:14386:505957 */ t52721.tag = STRUCTURE_TYPE24753; t52721.value.structure_type24753 = t52720; return f13474(t52721); l7448: /* x131099 */ /* x130889 */ /* x130887 */ t52565 = a25936; /* x130888 */ t52566 = q92; /* x130886 */ t52567.tag = EXTERNAL_SYMBOL_TYPE; t52567.value.external_symbol_type = t52566; if (f26160(t52565, t52567)==FALSE_TYPE) goto l7450; /* x130896 */ /* x130895 */ /* x130894 stalin.sc:16445:573850 */ /* x130893 stalin.sc:16445:573881 */ t52713 = a25935; /* x130892 stalin.sc:16445:573874 */ t52712 = "char"; /* x130891 stalin.sc:16445:573865 */ t52711 = "signed"; /* x130890 stalin.sc:16445:573851 */ t52717.tag = STRUCTURE_TYPE24753; t52717.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52717.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16445, 573850); out_of_memory_error();} t52717.value.structure_type24753->s0 = *((struct w49 *)(&t52713)); t52717.value.structure_type24753->s1.tag = NULL_TYPE; t52716.tag = STRUCTURE_TYPE24753; t52716.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52716.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16445, 573850); out_of_memory_error();} t52716.value.structure_type24753->s0.tag = STRING_TYPE; t52716.value.structure_type24753->s0.value.string_type = t52712; t52716.value.structure_type24753->s1 = t52717; a41952 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41952==NULL) {backtrace("stalin.sc", 16445, 573850); out_of_memory_error();} a41952->s0.tag = STRING_TYPE; a41952->s0.value.string_type = t52711; a41952->s1 = t52716; /* x301920 stalin.sc:14386:505956 */ /* x301919 stalin.sc:14386:505972 */ t52714 = a41952; /* x301918 stalin.sc:14386:505957 */ t52715.tag = STRUCTURE_TYPE24753; t52715.value.structure_type24753 = t52714; return f13474(t52715); l7450: /* x131098 */ /* x130900 */ /* x130898 */ t52568 = a25936; /* x130899 */ t52569 = q91; /* x130897 */ t52570.tag = EXTERNAL_SYMBOL_TYPE; t52570.value.external_symbol_type = t52569; if (f26160(t52568, t52570)==FALSE_TYPE) goto l7452; /* x130907 */ /* x130906 */ /* x130905 stalin.sc:16446:573904 */ /* x130904 stalin.sc:16446:573937 */ t52706 = a25935; /* x130903 stalin.sc:16446:573930 */ t52705 = "char"; /* x130902 stalin.sc:16446:573919 */ t52704 = "unsigned"; /* x130901 stalin.sc:16446:573905 */ t52710.tag = STRUCTURE_TYPE24753; t52710.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52710.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16446, 573904); out_of_memory_error();} t52710.value.structure_type24753->s0 = *((struct w49 *)(&t52706)); t52710.value.structure_type24753->s1.tag = NULL_TYPE; t52709.tag = STRUCTURE_TYPE24753; t52709.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52709.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16446, 573904); out_of_memory_error();} t52709.value.structure_type24753->s0.tag = STRING_TYPE; t52709.value.structure_type24753->s0.value.string_type = t52705; t52709.value.structure_type24753->s1 = t52710; a41953 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41953==NULL) {backtrace("stalin.sc", 16446, 573904); out_of_memory_error();} a41953->s0.tag = STRING_TYPE; a41953->s0.value.string_type = t52704; a41953->s1 = t52709; /* x301924 stalin.sc:14386:505956 */ /* x301923 stalin.sc:14386:505972 */ t52707 = a41953; /* x301922 stalin.sc:14386:505957 */ t52708.tag = STRUCTURE_TYPE24753; t52708.value.structure_type24753 = t52707; return f13474(t52708); l7452: /* x131097 */ /* x130911 */ /* x130909 */ t52571 = a25936; /* x130910 */ t52572 = q90; /* x130908 */ t52573.tag = EXTERNAL_SYMBOL_TYPE; t52573.value.external_symbol_type = t52572; if (f26160(t52571, t52573)==FALSE_TYPE) goto l7454; /* x130917 */ /* x130916 */ /* x130915 stalin.sc:16447:573952 */ /* x130914 stalin.sc:16447:573975 */ t52700 = a25935; /* x130913 stalin.sc:16447:573967 */ t52699 = "short"; /* x130912 stalin.sc:16447:573953 */ t52703.tag = STRUCTURE_TYPE24753; t52703.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52703.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16447, 573952); out_of_memory_error();} t52703.value.structure_type24753->s0 = *((struct w49 *)(&t52700)); t52703.value.structure_type24753->s1.tag = NULL_TYPE; a41954 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41954==NULL) {backtrace("stalin.sc", 16447, 573952); out_of_memory_error();} a41954->s0.tag = STRING_TYPE; a41954->s0.value.string_type = t52699; a41954->s1 = t52703; /* x301928 stalin.sc:14386:505956 */ /* x301927 stalin.sc:14386:505972 */ t52701 = a41954; /* x301926 stalin.sc:14386:505957 */ t52702.tag = STRUCTURE_TYPE24753; t52702.value.structure_type24753 = t52701; return f13474(t52702); l7454: /* x131096 */ /* x130921 */ /* x130919 */ t52574 = a25936; /* x130920 */ t52575 = q89; /* x130918 */ t52576.tag = EXTERNAL_SYMBOL_TYPE; t52576.value.external_symbol_type = t52575; if (f26160(t52574, t52576)==FALSE_TYPE) goto l7456; /* x130928 */ /* x130927 */ /* x130926 stalin.sc:16448:573999 */ /* x130925 stalin.sc:16448:574033 */ t52694 = a25935; /* x130924 stalin.sc:16448:574025 */ t52693 = "short"; /* x130923 stalin.sc:16448:574014 */ t52692 = "unsigned"; /* x130922 stalin.sc:16448:574000 */ t52698.tag = STRUCTURE_TYPE24753; t52698.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52698.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16448, 573999); out_of_memory_error();} t52698.value.structure_type24753->s0 = *((struct w49 *)(&t52694)); t52698.value.structure_type24753->s1.tag = NULL_TYPE; t52697.tag = STRUCTURE_TYPE24753; t52697.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52697.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16448, 573999); out_of_memory_error();} t52697.value.structure_type24753->s0.tag = STRING_TYPE; t52697.value.structure_type24753->s0.value.string_type = t52693; t52697.value.structure_type24753->s1 = t52698; a41955 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41955==NULL) {backtrace("stalin.sc", 16448, 573999); out_of_memory_error();} a41955->s0.tag = STRING_TYPE; a41955->s0.value.string_type = t52692; a41955->s1 = t52697; /* x301932 stalin.sc:14386:505956 */ /* x301931 stalin.sc:14386:505972 */ t52695 = a41955; /* x301930 stalin.sc:14386:505957 */ t52696.tag = STRUCTURE_TYPE24753; t52696.value.structure_type24753 = t52695; return f13474(t52696); l7456: /* x131095 */ /* x130932 */ /* x130930 */ t52577 = a25936; /* x130931 */ t52578 = q88; /* x130929 */ t52579.tag = EXTERNAL_SYMBOL_TYPE; t52579.value.external_symbol_type = t52578; if (f26160(t52577, t52579)==FALSE_TYPE) goto l7458; /* x130938 */ /* x130937 */ /* x130936 stalin.sc:16449:574046 */ /* x130935 stalin.sc:16449:574067 */ t52688 = a25935; /* x130934 stalin.sc:16449:574061 */ t52687 = "int"; /* x130933 stalin.sc:16449:574047 */ t52691.tag = STRUCTURE_TYPE24753; t52691.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52691.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16449, 574046); out_of_memory_error();} t52691.value.structure_type24753->s0 = *((struct w49 *)(&t52688)); t52691.value.structure_type24753->s1.tag = NULL_TYPE; a41956 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41956==NULL) {backtrace("stalin.sc", 16449, 574046); out_of_memory_error();} a41956->s0.tag = STRING_TYPE; a41956->s0.value.string_type = t52687; a41956->s1 = t52691; /* x301936 stalin.sc:14386:505956 */ /* x301935 stalin.sc:14386:505972 */ t52689 = a41956; /* x301934 stalin.sc:14386:505957 */ t52690.tag = STRUCTURE_TYPE24753; t52690.value.structure_type24753 = t52689; return f13474(t52690); l7458: /* x131094 */ /* x130942 */ /* x130940 */ t52580 = a25936; /* x130941 */ t52581 = q87; /* x130939 */ t52582.tag = EXTERNAL_SYMBOL_TYPE; t52582.value.external_symbol_type = t52581; if (f26160(t52580, t52582)==FALSE_TYPE) goto l7460; /* x130948 */ /* x130947 */ /* x130946 stalin.sc:16450:574085 */ /* x130945 stalin.sc:16450:574111 */ t52683 = a25935; /* x130944 stalin.sc:16450:574100 */ t52682 = "unsigned"; /* x130943 stalin.sc:16450:574086 */ t52686.tag = STRUCTURE_TYPE24753; t52686.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52686.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16450, 574085); out_of_memory_error();} t52686.value.structure_type24753->s0 = *((struct w49 *)(&t52683)); t52686.value.structure_type24753->s1.tag = NULL_TYPE; a41957 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41957==NULL) {backtrace("stalin.sc", 16450, 574085); out_of_memory_error();} a41957->s0.tag = STRING_TYPE; a41957->s0.value.string_type = t52682; a41957->s1 = t52686; /* x301940 stalin.sc:14386:505956 */ /* x301939 stalin.sc:14386:505972 */ t52684 = a41957; /* x301938 stalin.sc:14386:505957 */ t52685.tag = STRUCTURE_TYPE24753; t52685.value.structure_type24753 = t52684; return f13474(t52685); l7460: /* x131093 */ /* x130952 */ /* x130950 */ t52583 = a25936; /* x130951 */ t52584 = q86; /* x130949 */ t52585.tag = EXTERNAL_SYMBOL_TYPE; t52585.value.external_symbol_type = t52584; if (f26160(t52583, t52585)==FALSE_TYPE) goto l7462; /* x130958 */ /* x130957 */ /* x130956 stalin.sc:16451:574125 */ /* x130955 stalin.sc:16451:574147 */ t52678 = a25935; /* x130954 stalin.sc:16451:574140 */ t52677 = "long"; /* x130953 stalin.sc:16451:574126 */ t52681.tag = STRUCTURE_TYPE24753; t52681.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52681.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16451, 574125); out_of_memory_error();} t52681.value.structure_type24753->s0 = *((struct w49 *)(&t52678)); t52681.value.structure_type24753->s1.tag = NULL_TYPE; a41958 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41958==NULL) {backtrace("stalin.sc", 16451, 574125); out_of_memory_error();} a41958->s0.tag = STRING_TYPE; a41958->s0.value.string_type = t52677; a41958->s1 = t52681; /* x301944 stalin.sc:14386:505956 */ /* x301943 stalin.sc:14386:505972 */ t52679 = a41958; /* x301942 stalin.sc:14386:505957 */ t52680.tag = STRUCTURE_TYPE24753; t52680.value.structure_type24753 = t52679; return f13474(t52680); l7462: /* x131092 */ /* x130962 */ /* x130960 */ t52586 = a25936; /* x130961 */ t52587 = q85; /* x130959 */ t52588.tag = EXTERNAL_SYMBOL_TYPE; t52588.value.external_symbol_type = t52587; if (f26160(t52586, t52588)==FALSE_TYPE) goto l7464; /* x130969 */ /* x130968 */ /* x130967 stalin.sc:16452:574170 */ /* x130966 stalin.sc:16452:574203 */ t52672 = a25935; /* x130965 stalin.sc:16452:574196 */ t52671 = "long"; /* x130964 stalin.sc:16452:574185 */ t52670 = "unsigned"; /* x130963 stalin.sc:16452:574171 */ t52676.tag = STRUCTURE_TYPE24753; t52676.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52676.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16452, 574170); out_of_memory_error();} t52676.value.structure_type24753->s0 = *((struct w49 *)(&t52672)); t52676.value.structure_type24753->s1.tag = NULL_TYPE; t52675.tag = STRUCTURE_TYPE24753; t52675.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52675.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16452, 574170); out_of_memory_error();} t52675.value.structure_type24753->s0.tag = STRING_TYPE; t52675.value.structure_type24753->s0.value.string_type = t52671; t52675.value.structure_type24753->s1 = t52676; a41959 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41959==NULL) {backtrace("stalin.sc", 16452, 574170); out_of_memory_error();} a41959->s0.tag = STRING_TYPE; a41959->s0.value.string_type = t52670; a41959->s1 = t52675; /* x301948 stalin.sc:14386:505956 */ /* x301947 stalin.sc:14386:505972 */ t52673 = a41959; /* x301946 stalin.sc:14386:505957 */ t52674.tag = STRUCTURE_TYPE24753; t52674.value.structure_type24753 = t52673; return f13474(t52674); l7464: /* x131091 */ /* x130973 */ /* x130971 */ t52589 = a25936; /* x130972 */ t52590 = q84; /* x130970 */ t52591.tag = EXTERNAL_SYMBOL_TYPE; t52591.value.external_symbol_type = t52590; if (f26160(t52589, t52591)==FALSE_TYPE) goto l7466; /* x130979 */ /* x130978 */ /* x130977 stalin.sc:16453:574218 */ /* x130976 stalin.sc:16453:574241 */ t52666 = a25935; /* x130975 stalin.sc:16453:574233 */ t52665 = "float"; /* x130974 stalin.sc:16453:574219 */ t52669.tag = STRUCTURE_TYPE24753; t52669.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52669.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16453, 574218); out_of_memory_error();} t52669.value.structure_type24753->s0 = *((struct w49 *)(&t52666)); t52669.value.structure_type24753->s1.tag = NULL_TYPE; a41960 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41960==NULL) {backtrace("stalin.sc", 16453, 574218); out_of_memory_error();} a41960->s0.tag = STRING_TYPE; a41960->s0.value.string_type = t52665; a41960->s1 = t52669; /* x301952 stalin.sc:14386:505956 */ /* x301951 stalin.sc:14386:505972 */ t52667 = a41960; /* x301950 stalin.sc:14386:505957 */ t52668.tag = STRUCTURE_TYPE24753; t52668.value.structure_type24753 = t52667; return f13474(t52668); l7466: /* x131090 */ /* x130983 */ /* x130981 */ t52592 = a25936; /* x130982 */ t52593 = q14; /* x130980 */ t52594.tag = EXTERNAL_SYMBOL_TYPE; t52594.value.external_symbol_type = t52593; if (f26160(t52592, t52594)==FALSE_TYPE) goto l7468; /* x130989 */ /* x130988 */ /* x130987 stalin.sc:16454:574257 */ /* x130986 stalin.sc:16454:574281 */ t52661 = a25935; /* x130985 stalin.sc:16454:574272 */ t52660 = "double"; /* x130984 stalin.sc:16454:574258 */ t52664.tag = STRUCTURE_TYPE24753; t52664.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52664.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16454, 574257); out_of_memory_error();} t52664.value.structure_type24753->s0 = *((struct w49 *)(&t52661)); t52664.value.structure_type24753->s1.tag = NULL_TYPE; a41961 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41961==NULL) {backtrace("stalin.sc", 16454, 574257); out_of_memory_error();} a41961->s0.tag = STRING_TYPE; a41961->s0.value.string_type = t52660; a41961->s1 = t52664; /* x301956 stalin.sc:14386:505956 */ /* x301955 stalin.sc:14386:505972 */ t52662 = a41961; /* x301954 stalin.sc:14386:505957 */ t52663.tag = STRUCTURE_TYPE24753; t52663.value.structure_type24753 = t52662; return f13474(t52663); l7468: /* x131089 */ /* x130993 */ /* x130991 */ t52595 = a25936; /* x130992 */ t52596 = q83; /* x130990 */ t52597.tag = EXTERNAL_SYMBOL_TYPE; t52597.value.external_symbol_type = t52596; if (f26160(t52595, t52597)==FALSE_TYPE) goto l7470; /* x131000 */ /* x130999 */ /* x130998 stalin.sc:16455:574302 */ /* x130997 stalin.sc:16455:574333 */ t52655 = a25935; /* x130996 stalin.sc:16455:574324 */ t52654 = "double"; /* x130995 stalin.sc:16455:574317 */ t52653 = "long"; /* x130994 stalin.sc:16455:574303 */ t52659.tag = STRUCTURE_TYPE24753; t52659.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52659.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16455, 574302); out_of_memory_error();} t52659.value.structure_type24753->s0 = *((struct w49 *)(&t52655)); t52659.value.structure_type24753->s1.tag = NULL_TYPE; t52658.tag = STRUCTURE_TYPE24753; t52658.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52658.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16455, 574302); out_of_memory_error();} t52658.value.structure_type24753->s0.tag = STRING_TYPE; t52658.value.structure_type24753->s0.value.string_type = t52654; t52658.value.structure_type24753->s1 = t52659; a41962 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41962==NULL) {backtrace("stalin.sc", 16455, 574302); out_of_memory_error();} a41962->s0.tag = STRING_TYPE; a41962->s0.value.string_type = t52653; a41962->s1 = t52658; /* x301960 stalin.sc:14386:505956 */ /* x301959 stalin.sc:14386:505972 */ t52656 = a41962; /* x301958 stalin.sc:14386:505957 */ t52657.tag = STRUCTURE_TYPE24753; t52657.value.structure_type24753 = t52656; return f13474(t52657); l7470: /* x131088 */ /* x131004 */ /* x131002 */ t52598 = a25936; /* x131003 */ t52599 = q82; /* x131001 */ t52600.tag = EXTERNAL_SYMBOL_TYPE; t52600.value.external_symbol_type = t52599; if (f26160(t52598, t52600)==FALSE_TYPE) goto l7472; /* x131012 */ /* x131011 */ /* x131010 stalin.sc:16456:574348 */ /* x131009 stalin.sc:16456:574370 */ /* x131008 stalin.sc:16456:574383 */ t52651 = a25935; /* x131007 stalin.sc:16456:574371 */ t52652 = *((struct w49 *)(&t52651)); t52647 = f13516(t52652); /* x131006 stalin.sc:16456:574363 */ t52646 = "char"; /* x131005 stalin.sc:16456:574349 */ t52650.tag = STRUCTURE_TYPE24753; t52650.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52650.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16456, 574348); out_of_memory_error();} t52650.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t52650.value.structure_type24753->s0.value.structure_type24753 = t52647; t52650.value.structure_type24753->s1.tag = NULL_TYPE; a41963 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41963==NULL) {backtrace("stalin.sc", 16456, 574348); out_of_memory_error();} a41963->s0.tag = STRING_TYPE; a41963->s0.value.string_type = t52646; a41963->s1 = t52650; /* x301964 stalin.sc:14386:505956 */ /* x301963 stalin.sc:14386:505972 */ t52648 = a41963; /* x301962 stalin.sc:14386:505957 */ t52649.tag = STRUCTURE_TYPE24753; t52649.value.structure_type24753 = t52648; return f13474(t52649); l7472: /* x131087 */ /* x131034 */ /* x131033 */ /* x131031 */ t52601 = a25936; /* x131032 */ t52602 = q81; /* x131030 */ t52603.tag = EXTERNAL_SYMBOL_TYPE; t52603.value.external_symbol_type = t52602; if (!(f26160(t52601, t52603)==FALSE_TYPE)) goto l7473; /* x131027 */ /* x131026 */ /* x131024 */ t52604 = a25936; /* x131025 */ t52605 = q60; /* x131023 */ t52606.tag = EXTERNAL_SYMBOL_TYPE; t52606.value.external_symbol_type = t52605; if (!(f26160(t52604, t52606)==FALSE_TYPE)) goto l7473; /* x131020 */ /* x131018 */ t52607 = a25936; /* x131019 */ t52608 = q61; /* x131017 */ t52609.tag = EXTERNAL_SYMBOL_TYPE; t52609.value.external_symbol_type = t52608; if (f26160(t52607, t52609)==FALSE_TYPE) goto l7474; l7473: /* x131047 */ /* x131046 */ /* x131045 */ /* x131044 stalin.sc:16458:574425 */ /* x131043 stalin.sc:16458:574435 */ t52644 = "stdio"; /* x131042 stalin.sc:16458:574426 */ t52645.tag = STRING_TYPE; t52645.value.string_type = t52644; f18320(t52645); /* x131041 */ /* x131040 stalin.sc:16459:574455 */ /* x131039 stalin.sc:16459:574477 */ /* x131038 stalin.sc:16459:574490 */ t52642 = a25935; /* x131037 stalin.sc:16459:574478 */ t52643 = *((struct w49 *)(&t52642)); t52638 = f13516(t52643); /* x131036 stalin.sc:16459:574470 */ t52637 = a1245; /* x131035 stalin.sc:16459:574456 */ t52641.tag = STRUCTURE_TYPE24753; t52641.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52641.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16459, 574455); out_of_memory_error();} t52641.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t52641.value.structure_type24753->s0.value.structure_type24753 = t52638; t52641.value.structure_type24753->s1.tag = NULL_TYPE; a41964 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41964==NULL) {backtrace("stalin.sc", 16459, 574455); out_of_memory_error();} a41964->s0 = t52637; a41964->s1 = t52641; /* x301968 stalin.sc:14386:505956 */ /* x301967 stalin.sc:14386:505972 */ t52639 = a41964; /* x301966 stalin.sc:14386:505957 */ t52640.tag = STRUCTURE_TYPE24753; t52640.value.structure_type24753 = t52639; return f13474(t52640); l7474: /* x131086 */ /* x131051 */ /* x131049 */ t52610 = a25936; /* x131050 */ t52611 = q80; /* x131048 */ t52612.tag = EXTERNAL_SYMBOL_TYPE; t52612.value.external_symbol_type = t52611; if (f26160(t52610, t52612)==FALSE_TYPE) goto l7478; /* x131059 */ /* x131058 */ /* x131057 stalin.sc:16460:574506 */ /* x131056 stalin.sc:16460:574528 */ /* x131055 stalin.sc:16460:574541 */ t52635 = a25935; /* x131054 stalin.sc:16460:574529 */ t52636 = *((struct w49 *)(&t52635)); t52631 = f13516(t52636); /* x131053 stalin.sc:16460:574521 */ t52630 = "void"; /* x131052 stalin.sc:16460:574507 */ t52634.tag = STRUCTURE_TYPE24753; t52634.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52634.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16460, 574506); out_of_memory_error();} t52634.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t52634.value.structure_type24753->s0.value.structure_type24753 = t52631; t52634.value.structure_type24753->s1.tag = NULL_TYPE; a41965 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41965==NULL) {backtrace("stalin.sc", 16460, 574506); out_of_memory_error();} a41965->s0.tag = STRING_TYPE; a41965->s0.value.string_type = t52630; a41965->s1 = t52634; /* x301972 stalin.sc:14386:505956 */ /* x301971 stalin.sc:14386:505972 */ t52632 = a41965; /* x301970 stalin.sc:14386:505957 */ t52633.tag = STRUCTURE_TYPE24753; t52633.value.structure_type24753 = t52632; return f13474(t52633); l7478: /* x131085 */ /* x131063 */ /* x131061 */ t52613 = a25936; /* x131062 */ t52614 = q94; /* x131060 */ t52615.tag = EXTERNAL_SYMBOL_TYPE; t52615.value.external_symbol_type = t52614; if (f26160(t52613, t52615)==FALSE_TYPE) goto l7480; /* x131069 */ /* x131068 */ /* x131067 stalin.sc:16461:574556 */ /* x131066 stalin.sc:16461:574578 */ t52626 = a25935; /* x131065 stalin.sc:16461:574571 */ t52625 = "void"; /* x131064 stalin.sc:16461:574557 */ t52629.tag = STRUCTURE_TYPE24753; t52629.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52629.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16461, 574556); out_of_memory_error();} t52629.value.structure_type24753->s0 = *((struct w49 *)(&t52626)); t52629.value.structure_type24753->s1.tag = NULL_TYPE; a41966 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41966==NULL) {backtrace("stalin.sc", 16461, 574556); out_of_memory_error();} a41966->s0.tag = STRING_TYPE; a41966->s0.value.string_type = t52625; a41966->s1 = t52629; /* x301976 stalin.sc:14386:505956 */ /* x301975 stalin.sc:14386:505972 */ t52627 = a41966; /* x301974 stalin.sc:14386:505957 */ t52628.tag = STRUCTURE_TYPE24753; t52628.value.structure_type24753 = t52627; return f13474(t52628); l7480: /* x131084 */ /* x131073 */ /* x131071 */ t52616 = a25936; /* x131072 */ t52617 = q93; /* x131070 */ t52618.tag = EXTERNAL_SYMBOL_TYPE; t52618.value.external_symbol_type = t52617; if (f26160(t52616, t52618)==FALSE_TYPE) goto l7482; /* x131079 */ /* x131078 */ /* x131077 stalin.sc:16462:574597 */ /* x131076 stalin.sc:16462:574619 */ t52621 = a25935; /* x131075 stalin.sc:16462:574612 */ t52620 = "void"; /* x131074 stalin.sc:16462:574598 */ t52624.tag = STRUCTURE_TYPE24753; t52624.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52624.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16462, 574597); out_of_memory_error();} t52624.value.structure_type24753->s0 = *((struct w49 *)(&t52621)); t52624.value.structure_type24753->s1.tag = NULL_TYPE; a41967 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41967==NULL) {backtrace("stalin.sc", 16462, 574597); out_of_memory_error();} a41967->s0.tag = STRING_TYPE; a41967->s0.value.string_type = t52620; a41967->s1 = t52624; /* x301980 stalin.sc:14386:505956 */ /* x301979 stalin.sc:14386:505972 */ t52622 = a41967; /* x301978 stalin.sc:14386:505957 */ t52623.tag = STRUCTURE_TYPE24753; t52623.value.structure_type24753 = t52622; return f13474(t52623); l7482: /* x131083 */ /* x131082 */ /* x131081 stalin.sc:16463:574631 */ /* x131080 stalin.sc:16463:574632 */ /* x295213 QobiScheme.sc:166:5314 */ /* x295212 QobiScheme.sc:166:5321 */ t52619 = "This shouldn\'t happen"; /* x295211 QobiScheme.sc:166:5315 */ stalin_panic(t52619);} /* C:VALUE[14485] */ struct w49 f14485(struct w49 a25926, struct w49 a25927, struct w49 a25928) {struct w49 r14485; char *t52723; char *t52724; char *t52725; char *t52726; struct w49 t52727; struct w49 t52728; struct w49 t52729; struct w49 t52730; struct w49 t52731; struct w49 t52732; struct w49 t52733; struct w49 t52734; struct w49 t52735; char *t52736; struct w61020 t52737; struct structure_type24753 *t52738; struct structure_type24753 *t52739; struct w61020 t52740; struct w49 t52741; struct structure_type24753 *t52742; struct w49 t52743; char *t52744; struct w61020 t52745; struct w49 t52746; struct w49 t52747; struct w49 t52748; struct structure_type24753 *t52749; struct w49 t52750; char *t52751; struct w49 t52752; struct w49 t52753; struct w49 t52754; struct w49 t52755; struct w49 t52756; struct w49 t52757; struct w49 t52758; struct w49 t52759; struct w49 t52760; struct structure_type24753 *t52761; struct w49 t52762; struct w49 t52763; struct w49 t52764; struct w49 t52765; struct w49 t52766; struct structure_type24753 *t52767; struct w49 t52768; char *t52769; struct w49 t52770; struct w49 t52771; struct w49 t52772; struct w49 t52773; struct w49 t52774; struct structure_type24753 *t52775; struct structure_type24753 *t52776; char *t52777; struct w49 t52778; struct w49 t52779; struct w49 t52780; struct w49 t52781; struct w49 t52782; struct w49 t52783; struct w49 t52784; struct structure_type24753 *t52785; struct w49 t52786; char *t52787; struct w49 t52788; struct w49 t52789; struct w49 t52790; struct w49 t52791; struct w49 t52792; struct structure_type24753 *t52793; struct structure_type24753 *t52794; char *t52795; struct w49 t52796; struct w49 t52797; struct w49 t52798; struct w49 t52799; struct w49 t52800; struct w49 t52801; struct structure_type24753 *t52802; struct w49 t52803; char *t52804; struct w49 t52805; struct w49 t52806; struct w49 t52807; struct w49 t52808; struct w49 t52809; char *t52810; char *t52811; struct w49 t52812; struct w49 t52813; char *t52814; char *t52815; char *t52816; char *t52817; struct w49 t52818; char *t52819; /* x130873 */ /* x130872 stalin.sc:16376:570345 */ /* x130865 stalin.sc:16376:570353 */ /* x130840 stalin.sc:16376:570358 */ /* x130838 stalin.sc:16376:570367 */ t52812 = a25927; /* x130839 stalin.sc:16376:570369 */ t52813 = a25928; /* x130837 stalin.sc:16376:570359 */ if (f8033(t52812, t52813)==FALSE_TYPE) goto l7513; /* x130863 */ /* x130862 stalin.sc:16377:570383 */ /* x130860 stalin.sc:16377:570388 */ t52814 = a687; /* x130861 stalin.sc:16377:570416 */ t52815 = q15; /* x268858 stalin.sc:16377:570384 */ if (t52814==t52815) goto l7512; /* x130856 */ /* x130855 stalin.sc:16378:570431 */ /* x130853 stalin.sc:16378:570436 */ t52816 = a687; /* x130854 stalin.sc:16378:570464 */ t52817 = q16; /* x268859 stalin.sc:16378:570432 */ if (t52816==t52817) goto l7512; /* x130849 */ /* x130848 stalin.sc:16379:570488 */ /* x130847 stalin.sc:16379:570501 */ t52818 = a25927; /* x130846 stalin.sc:16379:570489 */ if (!(f8793(t52818)==FALSE_TYPE)) goto l7513; l7512: /* x130867 */ /* x130866 */ goto l7514; l7513: /* x130871 */ /* x130870 */ /* x130869 stalin.sc:16380:570509 */ /* x130868 stalin.sc:16380:570510 */ /* x296013 QobiScheme.sc:166:5314 */ /* x296012 QobiScheme.sc:166:5321 */ t52819 = "This shouldn\'t happen"; /* x296011 QobiScheme.sc:166:5315 */ stalin_panic(t52819); l7514: /* x130836 */ /* x130835 stalin.sc:16381:570521 */ /* x130662 stalin.sc:16382:570530 */ /* x130657 stalin.sc:16382:570535 */ /* x130656 stalin.sc:16382:570539 */ /* x130654 stalin.sc:16382:570544 */ t52723 = a687; /* x130655 stalin.sc:16382:570572 */ t52724 = q15; /* x268861 stalin.sc:16382:570540 */ if (t52723==t52724) goto l7485; /* x130650 */ /* x130648 stalin.sc:16383:570593 */ t52725 = a687; /* x130649 stalin.sc:16383:570621 */ t52726 = q16; /* x268862 stalin.sc:16383:570589 */ if (!(t52725==t52726)) goto l7484; l7485: /* x130660 */ /* x130659 stalin.sc:16384:570651 */ t52727 = a25927; /* x130658 stalin.sc:16384:570639 */ if (f8793(t52727)==FALSE_TYPE) goto l7484; /* x130665 */ /* x130664 */ /* x130663 stalin.sc:16385:570658 */ r14485.tag = STRING_TYPE; r14485.value.string_type = "fake"; return r14485; l7484: /* x130834 */ /* x130668 stalin.sc:16386:570669 */ /* x130667 stalin.sc:16386:570682 */ t52728 = a25928; /* x130666 stalin.sc:16386:570670 */ if (f8793(t52728)==FALSE_TYPE) goto l7488; /* x130672 */ /* x130671 */ /* x130670 stalin.sc:16386:570685 */ /* x130669 stalin.sc:16386:570686 */ /* x295245 QobiScheme.sc:166:5314 */ /* x295244 QobiScheme.sc:166:5321 */ t52811 = "This shouldn\'t happen"; /* x295243 QobiScheme.sc:166:5315 */ stalin_panic(t52811); l7488: /* x130833 */ /* x130675 stalin.sc:16387:570699 */ /* x130674 stalin.sc:16387:570713 */ t52729 = a25928; /* x130673 stalin.sc:16387:570700 */ if (f8148(t52729)==FALSE_TYPE) goto l7490; /* x130678 */ /* x130677 */ /* x130676 stalin.sc:16387:570716 */ return a25926; l7490: /* x130832 */ /* x130681 stalin.sc:16388:570722 */ /* x130680 stalin.sc:16388:570733 */ t52730 = a25928; /* x130679 stalin.sc:16388:570723 */ if (f13798(t52730)==FALSE_TYPE) goto l7492; /* x130707 */ /* x130706 */ /* x130705 */ /* x130704 stalin.sc:16392:570940 */ /* x130697 stalin.sc:16392:570948 */ /* x130696 stalin.sc:16392:570960 */ t52809 = a25927; /* x130695 stalin.sc:16392:570949 */ if (f7682(t52809)==FALSE_TYPE) goto l7510; /* x130699 */ /* x130698 */ goto l7511; l7510: /* x130703 */ /* x130702 */ /* x130701 stalin.sc:16392:570963 */ /* x130700 stalin.sc:16392:570964 */ /* x295249 QobiScheme.sc:166:5314 */ /* x295248 QobiScheme.sc:166:5321 */ t52810 = "This shouldn\'t happen"; /* x295247 QobiScheme.sc:166:5315 */ stalin_panic(t52810); l7511: /* x130694 */ /* x130693 stalin.sc:16396:571170 */ /* x130691 stalin.sc:16396:571183 */ /* x130687 stalin.sc:16396:571189 */ /* x130685 stalin.sc:16396:571196 */ t52806 = a25926; /* x130686 stalin.sc:16396:571198 */ t52807 = a25928; /* x130684 stalin.sc:16396:571190 */ t52803 = f14478(t52806, t52807); /* x130690 stalin.sc:16396:571201 */ /* x130689 stalin.sc:16396:571211 */ t52808 = a1226; /* x130688 stalin.sc:16396:571202 */ t52804 = f13530(t52808); /* x130683 stalin.sc:16396:571184 */ t52805.tag = STRING_TYPE; t52805.value.string_type = t52804; t52800 = f13624(t52803, t52805); /* x130692 stalin.sc:16396:571231 */ t52801 = a25927; /* x130682 stalin.sc:16396:571171 */ t52802 = f14421(t52800, t52801); r14485.tag = STRUCTURE_TYPE24753; r14485.value.structure_type24753 = t52802; return r14485; l7492: /* x130831 */ /* x130710 stalin.sc:16397:571238 */ /* x130709 stalin.sc:16397:571249 */ t52731 = a25928; /* x130708 stalin.sc:16397:571239 */ if (f13859(t52731)==FALSE_TYPE) goto l7494; /* x130728 */ /* x130727 */ /* x130726 stalin.sc:16401:571441 */ /* x130713 stalin.sc:16401:571445 */ /* x130712 stalin.sc:16401:571457 */ t52790 = a25927; /* x130711 stalin.sc:16401:571446 */ if (f7682(t52790)==FALSE_TYPE) goto l7508; /* x130724 stalin.sc:16406:571760 */ /* x130722 stalin.sc:16406:571773 */ /* x130718 stalin.sc:16406:571779 */ /* x130717 stalin.sc:16406:571796 */ t52798 = a25926; /* x130716 stalin.sc:16406:571780 */ t52794 = f14423(t52798); /* x130721 stalin.sc:16406:571799 */ /* x130720 stalin.sc:16406:571809 */ t52799 = a1226; /* x130719 stalin.sc:16406:571800 */ t52795 = f13530(t52799); /* x130715 stalin.sc:16406:571774 */ t52796.tag = STRUCTURE_TYPE24753; t52796.value.structure_type24753 = t52794; t52797.tag = STRING_TYPE; t52797.value.string_type = t52795; t52791 = f13624(t52796, t52797); /* x130723 stalin.sc:16406:571829 */ t52792 = a25927; /* x130714 stalin.sc:16406:571761 */ t52793 = f14421(t52791, t52792); r14485.tag = STRUCTURE_TYPE24753; r14485.value.structure_type24753 = t52793; return r14485; l7508: /* x130725 stalin.sc:16407:571839 */ return a25926; l7494: /* x130830 */ /* x130731 stalin.sc:16408:571846 */ /* x130730 stalin.sc:16408:571857 */ t52732 = a25928; /* x130729 stalin.sc:16408:571847 */ if (f14024(t52732)==FALSE_TYPE) goto l7496; /* x130794 */ /* x130793 */ /* x130792 stalin.sc:16409:571863 */ /* x130734 stalin.sc:16413:572080 */ /* x130733 stalin.sc:16413:572092 */ t52756 = a25927; /* x130732 stalin.sc:16413:572081 */ if (f7682(t52756)==FALSE_TYPE) goto l7502; /* x130745 */ /* x130744 */ /* x130743 stalin.sc:16413:572095 */ /* x130741 stalin.sc:16413:572108 */ /* x130737 stalin.sc:16413:572114 */ t52786 = a25926; /* x130740 stalin.sc:16413:572116 */ /* x130739 stalin.sc:16413:572126 */ t52789 = a1226; /* x130738 stalin.sc:16413:572117 */ t52787 = f13530(t52789); /* x130736 stalin.sc:16413:572109 */ t52788.tag = STRING_TYPE; t52788.value.string_type = t52787; t52783 = f13624(t52786, t52788); /* x130742 stalin.sc:16413:572146 */ t52784 = a25927; /* x130735 stalin.sc:16413:572096 */ t52785 = f14421(t52783, t52784); r14485.tag = STRUCTURE_TYPE24753; r14485.value.structure_type24753 = t52785; return r14485; l7502: /* x130791 */ /* x130748 stalin.sc:16414:572155 */ /* x130747 stalin.sc:16414:572169 */ t52757 = a25927; /* x130746 stalin.sc:16414:572156 */ if (f7683(t52757)==FALSE_TYPE) goto l7504; /* x130763 */ /* x130762 */ /* x130761 stalin.sc:16422:572656 */ /* x130759 stalin.sc:16423:572675 */ /* x130753 stalin.sc:16423:572681 */ /* x130752 stalin.sc:16423:572705 */ t52780 = a25926; /* x130751 stalin.sc:16423:572682 */ t52776 = f14425(t52780); /* x130758 stalin.sc:16423:572708 */ /* x130757 stalin.sc:16423:572718 */ /* x130756 stalin.sc:16423:572736 */ t52782 = a25928; /* x130755 stalin.sc:16423:572719 */ t52781 = f13917(t52782); /* x130754 stalin.sc:16423:572709 */ t52777 = f13530(t52781); /* x130750 stalin.sc:16423:572676 */ t52778.tag = STRUCTURE_TYPE24753; t52778.value.structure_type24753 = t52776; t52779.tag = STRING_TYPE; t52779.value.string_type = t52777; t52773 = f13624(t52778, t52779); /* x130760 stalin.sc:16423:572741 */ t52774 = a25927; /* x130749 stalin.sc:16422:572657 */ t52775 = f14421(t52773, t52774); r14485.tag = STRUCTURE_TYPE24753; r14485.value.structure_type24753 = t52775; return r14485; l7504: /* x130790 */ /* x130766 stalin.sc:16424:572750 */ /* x130765 stalin.sc:16424:572775 */ t52758 = a25927; /* x130764 stalin.sc:16424:572751 */ if (f7754(t52758)==FALSE_TYPE) goto l7506; /* x130779 */ /* x130778 */ /* x130777 stalin.sc:16428:573002 */ /* x130775 stalin.sc:16428:573015 */ /* x130769 stalin.sc:16428:573021 */ t52768 = a25926; /* x130774 stalin.sc:16428:573023 */ /* x130773 stalin.sc:16428:573033 */ /* x130772 stalin.sc:16428:573051 */ t52772 = a25928; /* x130771 stalin.sc:16428:573034 */ t52771 = f13917(t52772); /* x130770 stalin.sc:16428:573024 */ t52769 = f13530(t52771); /* x130768 stalin.sc:16428:573016 */ t52770.tag = STRING_TYPE; t52770.value.string_type = t52769; t52765 = f13624(t52768, t52770); /* x130776 stalin.sc:16428:573056 */ t52766 = a25927; /* x130767 stalin.sc:16428:573003 */ t52767 = f14421(t52765, t52766); r14485.tag = STRUCTURE_TYPE24753; r14485.value.structure_type24753 = t52767; return r14485; l7506: /* x130789 */ /* x130788 */ /* x130787 stalin.sc:16429:573070 */ /* x130785 stalin.sc:16429:573083 */ /* x130782 stalin.sc:16429:573107 */ t52762 = a25926; /* x130783 stalin.sc:16429:573109 */ t52763 = a25927; /* x130784 stalin.sc:16429:573111 */ t52764 = a25928; /* x130781 stalin.sc:16429:573084 */ t52759 = f14593(t52762, t52763, t52764); /* x130786 stalin.sc:16429:573114 */ t52760 = a25927; /* x130780 stalin.sc:16429:573071 */ t52761 = f14421(t52759, t52760); r14485.tag = STRUCTURE_TYPE24753; r14485.value.structure_type24753 = t52761; return r14485; l7496: /* x130829 */ /* x130828 */ /* x130827 stalin.sc:16434:573331 */ /* x130797 stalin.sc:16434:573335 */ /* x130796 stalin.sc:16434:573347 */ t52733 = a25927; /* x130795 stalin.sc:16434:573336 */ if (f7682(t52733)==FALSE_TYPE) goto l7498; /* x130809 stalin.sc:16439:573617 */ /* x130807 stalin.sc:16439:573630 */ /* x130803 stalin.sc:16439:573636 */ /* x130801 stalin.sc:16439:573643 */ t52753 = a25926; /* x130802 stalin.sc:16439:573645 */ t52754 = a25928; /* x130800 stalin.sc:16439:573637 */ t52750 = f14478(t52753, t52754); /* x130806 stalin.sc:16439:573648 */ /* x130805 stalin.sc:16439:573658 */ t52755 = a1226; /* x130804 stalin.sc:16439:573649 */ t52751 = f13530(t52755); /* x130799 stalin.sc:16439:573631 */ t52752.tag = STRING_TYPE; t52752.value.string_type = t52751; t52747 = f13624(t52750, t52752); /* x130808 stalin.sc:16439:573678 */ t52748 = a25927; /* x130798 stalin.sc:16439:573618 */ t52749 = f14421(t52747, t52748); r14485.tag = STRUCTURE_TYPE24753; r14485.value.structure_type24753 = t52749; return r14485; l7498: /* x130826 stalin.sc:16440:573688 */ /* x130812 stalin.sc:16440:573692 */ /* x130811 stalin.sc:16440:573704 */ t52734 = a25928; /* x130810 stalin.sc:16440:573693 */ if (f13801(t52734)==FALSE_TYPE) goto l7500; /* x130821 stalin.sc:16440:573707 */ /* x130817 stalin.sc:16440:573712 */ /* x130815 stalin.sc:16440:573717 */ t52743 = a25926; /* x130816 stalin.sc:16440:573719 */ t52744 = "value"; /* x130814 stalin.sc:16440:573713 */ t52745.tag = STRING_TYPE; t52745.value.string_type = t52744; t52739 = f13585(t52743, t52745); /* x130820 stalin.sc:16440:573728 */ /* x130819 stalin.sc:16440:573733 */ t52746 = a25927; /* x130818 stalin.sc:16440:573729 */ t52740 = f14289(t52746); /* x130813 stalin.sc:16440:573708 */ t52741.tag = STRUCTURE_TYPE24753; t52741.value.structure_type24753 = t52739; t52742 = f13585(t52741, t52740); r14485.tag = STRUCTURE_TYPE24753; r14485.value.structure_type24753 = t52742; return r14485; l7500: /* x130825 stalin.sc:16440:573737 */ /* x130823 stalin.sc:16440:573742 */ t52735 = a25926; /* x130824 stalin.sc:16440:573744 */ t52736 = "value"; /* x130822 stalin.sc:16440:573738 */ t52737.tag = STRING_TYPE; t52737.value.string_type = t52736; t52738 = f13585(t52735, t52737); r14485.tag = STRUCTURE_TYPE24753; r14485.value.structure_type24753 = t52738; return r14485;} /* C:TAG[14478] */ struct w49 f14478(struct w49 a25924, struct w49 a25925) {struct w49 r14478; struct w49 t52820; struct w49 t52821; struct w49 t52822; struct w49 t52823; struct w49 t52824; struct w49 t52825; char *t52826; struct w61020 t52827; struct structure_type24753 *t52828; char *t52829; char *t52830; char *t52831; char *t52832; /* x130642 stalin.sc:16368:570128 */ /* x130600 stalin.sc:16368:570135 */ /* x130599 stalin.sc:16368:570148 */ t52820 = a25925; /* x130598 stalin.sc:16368:570136 */ if (f8793(t52820)==FALSE_TYPE) goto l7519; /* x130604 */ /* x130603 */ /* x130602 stalin.sc:16368:570151 */ /* x130601 stalin.sc:16368:570152 */ /* x296049 QobiScheme.sc:166:5314 */ /* x296048 QobiScheme.sc:166:5321 */ t52832 = "This shouldn\'t happen"; /* x296047 QobiScheme.sc:166:5315 */ stalin_panic(t52832); l7519: /* x130641 */ /* x130607 stalin.sc:16369:570170 */ /* x130606 stalin.sc:16369:570184 */ t52821 = a25925; /* x130605 stalin.sc:16369:570171 */ if (f8148(t52821)==FALSE_TYPE) goto l7521; /* x130611 */ /* x130610 */ /* x130609 stalin.sc:16369:570187 */ /* x130608 stalin.sc:16369:570188 */ /* x296053 QobiScheme.sc:166:5314 */ /* x296052 QobiScheme.sc:166:5321 */ t52831 = "This shouldn\'t happen"; /* x296051 QobiScheme.sc:166:5315 */ stalin_panic(t52831); l7521: /* x130640 */ /* x130614 stalin.sc:16370:570206 */ /* x130613 stalin.sc:16370:570217 */ t52822 = a25925; /* x130612 stalin.sc:16370:570207 */ if (f13798(t52822)==FALSE_TYPE) goto l7523; /* x130617 */ /* x130616 */ /* x130615 stalin.sc:16370:570220 */ return a25924; l7523: /* x130639 */ /* x130620 stalin.sc:16371:570231 */ /* x130619 stalin.sc:16371:570242 */ t52823 = a25925; /* x130618 stalin.sc:16371:570232 */ if (f13859(t52823)==FALSE_TYPE) goto l7525; /* x130624 */ /* x130623 */ /* x130622 stalin.sc:16371:570245 */ /* x130621 stalin.sc:16371:570246 */ /* x296057 QobiScheme.sc:166:5314 */ /* x296056 QobiScheme.sc:166:5321 */ t52830 = "This shouldn\'t happen"; /* x296055 QobiScheme.sc:166:5315 */ stalin_panic(t52830); l7525: /* x130638 */ /* x130627 stalin.sc:16372:570264 */ /* x130626 stalin.sc:16372:570275 */ t52824 = a25925; /* x130625 stalin.sc:16372:570265 */ if (f14024(t52824)==FALSE_TYPE) goto l7527; /* x130631 */ /* x130630 */ /* x130629 stalin.sc:16372:570278 */ /* x130628 stalin.sc:16372:570279 */ /* x296061 QobiScheme.sc:166:5314 */ /* x296060 QobiScheme.sc:166:5321 */ t52829 = "This shouldn\'t happen"; /* x296059 QobiScheme.sc:166:5315 */ stalin_panic(t52829); l7527: /* x130637 */ /* x130636 */ /* x130635 stalin.sc:16373:570302 */ /* x130633 stalin.sc:16373:570307 */ t52825 = a25924; /* x130634 stalin.sc:16373:570309 */ t52826 = "tag"; /* x130632 stalin.sc:16373:570303 */ t52827.tag = STRING_TYPE; t52827.value.string_type = t52826; t52828 = f13585(t52825, t52827); r14478.tag = STRUCTURE_TYPE24753; r14478.value.structure_type24753 = t52828; return r14478;} /* C:TYPE-TAG[14433] */ struct w61020 f14433(struct w49 a25902) {struct w61020 r14433; struct w49 a19402; /* S */ struct w49 a19412; /* S */ struct w49 a19413; /* S */ int a19414; /* X */ struct w49 a19479; /* S */ struct w49 a19480; /* S */ int a19481; /* X */ struct w49 a19536; /* S */ struct w49 a19546; /* S */ struct w49 a19547; /* S */ int a19548; /* X */ struct w49 a19613; /* S */ struct w49 a19614; /* S */ int a19615; /* X */ struct w49 a19702; /* S */ struct w49 a19703; /* S */ int a19704; /* X */ struct w49 a19759; /* S */ struct w49 a19760; /* S */ int a19761; /* X */ struct w49 a19837; /* S */ struct w49 a19838; /* S */ int a19839; /* X */ struct w49 a19927; /* S */ struct w49 a19937; /* S */ struct w49 a19938; /* S */ int a19939; /* X */ struct w49 a20016; /* S */ struct w49 a20026; /* S */ struct w49 a20027; /* S */ int a20028; /* X */ struct w49 a20105; /* S */ struct w49 a20115; /* S */ struct w49 a20116; /* S */ int a20117; /* X */ struct w49 a20182; /* S */ struct w49 a20192; /* S */ struct w49 a20193; /* S */ int a20194; /* X */ struct structure_type24753 *a34864; /* OBJS */ struct structure_type24753 *a34906; /* OBJS */ struct structure_type24753 *a34912; /* OBJS */ struct structure_type24753 *a35127; /* OBJS */ struct structure_type24753 *a35128; /* OBJS */ struct structure_type24753 *a35129; /* OBJS */ struct structure_type24753 *a35130; /* OBJS */ struct structure_type24753 *a35131; /* OBJS */ struct w49 a37327; /* OBJ */ struct w49 a37424; /* OBJ */ struct w49 a37543; /* OBJ */ struct w49 a37683; /* OBJ */ struct w49 a37759; /* OBJ */ struct w49 a37832; /* S */ struct w49 a37833; /* S */ struct w49 a37871; /* OBJ */ struct w49 a37930; /* S */ struct w49 a37951; /* OBJ */ struct w49 a38072; /* OBJ */ struct w49 a38208; /* OBJ */ struct w49 a38271; /* OBJ */ struct w49 a38314; /* OBJ */ struct w49 a40129; /* S */ struct w49 t52833; struct w49 t52834; struct w49 t52835; struct w49 t52836; struct w49 t52837; struct w49 t52838; struct w49 t52839; struct w49 t52840; struct w49 t52841; struct w49 t52842; struct w49 t52843; struct w49 t52844; struct w49 t52845; struct w49 t52846; struct w49 t52847; struct w49 t52848; struct w49 t52849; struct w49 t52850; struct w49 t52851; struct w49 t52852; struct w49 t52853; struct w49 t52854; struct w49 t52855; struct w49 t52856; struct w49 t52857; struct w49 t52858; struct w49 t52859; struct w49 t52860; struct w49 t52861; struct w49 t52862; struct w49 t52863; struct w49 t52864; struct w49 t52865; char *t52866; char *t52867; char *t52868; struct structure_type24753 *t52869; struct structure_type24753 *t52870; struct w49 t52871; unsigned t52872; struct w49 t52873; struct w49 t52874; struct w49 t52875; struct w49 t52876; int t52877; struct w49 t52878; int t52879; int t52880; int t52881; struct w49 t52882; struct w49 t52883; char *t52884; char *t52885; struct w49 t52886; unsigned t52887; struct w49 t52888; struct w49 t52889; struct w49 t52890; struct w49 t52891; int t52892; struct w49 t52893; int t52894; int t52895; int t52896; struct w49 t52897; struct w49 t52898; char *t52899; char *t52900; struct w49 t52901; unsigned t52902; struct w49 t52903; struct w49 t52904; struct w49 t52905; struct w49 t52906; int t52907; struct w49 t52908; int t52909; int t52910; int t52911; struct w49 t52912; struct w49 t52913; char *t52914; char *t52915; struct w49 t52916; unsigned t52917; struct w49 t52918; struct w49 t52919; struct w49 t52920; struct w49 t52921; int t52922; struct w49 t52923; int t52924; int t52925; int t52926; struct w49 t52927; struct w49 t52928; struct w49 t52929; int t52930; struct w49 t52931; int t52932; int t52933; int t52934; struct w49 t52935; struct w49 t52936; struct w49 t52937; struct w49 t52938; char *t52939; char *t52940; struct w49 t52941; unsigned t52942; struct w49 t52943; struct w49 t52944; struct w49 t52945; struct w49 t52946; struct w49 t52947; struct w49 t52948; int t52949; struct w49 t52950; int t52951; int t52952; int t52953; struct w49 t52954; struct w49 t52955; char *t52956; struct w49 t52957; char *t52958; struct w49 t52959; struct w49 t52960; struct w49 t52961; struct w49 t52962; struct w49 t52963; int t52964; struct w49 t52965; int t52966; int t52967; int t52968; struct w49 t52969; struct w49 t52970; char *t52971; char *t52972; struct w49 t52973; unsigned t52974; struct w49 t52975; struct w49 t52976; struct w49 t52977; int t52978; struct w49 t52979; int t52980; int t52981; int t52982; struct w49 t52983; struct w49 t52984; char *t52985; char *t52986; struct w49 t52987; unsigned t52988; struct w49 t52989; struct w49 t52990; struct w49 t52991; struct w49 t52992; int t52993; struct w49 t52994; int t52995; int t52996; int t52997; struct w49 t52998; struct w49 t52999; struct w49 t53000; int t53001; struct w49 t53002; int t53003; int t53004; int t53005; struct w49 t53006; struct w49 t53007; char *t53008; char *t53009; struct w49 t53010; unsigned t53011; struct w49 t53012; struct w49 t53013; struct w49 t53014; struct w49 t53015; int t53016; struct w49 t53017; int t53018; int t53019; int t53020; struct w49 t53021; struct w49 t53022; unsigned t53023; int t53024; unsigned t53025; int t53026; unsigned t53027; int t53028; unsigned t53029; int t53030; unsigned t53031; int t53032; unsigned t53033; int t53034; unsigned t53035; int t53036; char *t53037; unsigned t53038; int t53039; unsigned t53040; int t53041; unsigned t53042; int t53043; /* x130595 stalin.sc:16274:566389 */ /* x130179 stalin.sc:16274:566396 */ /* x130178 stalin.sc:16274:566408 */ t52833 = a25902; /* x130177 stalin.sc:16274:566397 */ if (f7677(t52833)==FALSE_TYPE) goto l7529; /* x130189 */ /* x130188 */ /* x130187 */ /* x130186 stalin.sc:16275:566412 */ /* x130185 stalin.sc:16275:566440 */ /* x130183 stalin.sc:16275:566443 */ t53042 = a1979; /* x130184 stalin.sc:16275:566465 */ t53043 = 1; /* x268883 stalin.sc:16275:566441 */ if (!((t53042&1)==1)) {backtrace("stalin.sc", 16275, 566440); plus_error();} a1979 = (((unsigned)(((int)(((int)t53042)>>1))+t53043))<<1)+1; /* x130181 */ /* x130180 stalin.sc:16276:566470 */ r14433.tag = STRING_TYPE; r14433.value.string_type = "NULL_TYPE"; return r14433; l7529: /* x130594 */ /* x130192 stalin.sc:16277:566491 */ /* x130191 stalin.sc:16277:566503 */ t52834 = a25902; /* x130190 stalin.sc:16277:566492 */ if (f7678(t52834)==FALSE_TYPE) goto l7531; /* x130202 */ /* x130201 */ /* x130200 */ /* x130199 stalin.sc:16278:566507 */ /* x130198 stalin.sc:16278:566535 */ /* x130196 stalin.sc:16278:566538 */ t53040 = a1976; /* x130197 stalin.sc:16278:566560 */ t53041 = 1; /* x268882 stalin.sc:16278:566536 */ if (!((t53040&1)==1)) {backtrace("stalin.sc", 16278, 566535); plus_error();} a1976 = (((unsigned)(((int)(((int)t53040)>>1))+t53041))<<1)+1; /* x130194 */ /* x130193 stalin.sc:16279:566565 */ r14433.tag = STRING_TYPE; r14433.value.string_type = "TRUE_TYPE"; return r14433; l7531: /* x130593 */ /* x130205 stalin.sc:16280:566586 */ /* x130204 stalin.sc:16280:566599 */ t52835 = a25902; /* x130203 stalin.sc:16280:566587 */ if (f7679(t52835)==FALSE_TYPE) goto l7533; /* x130215 */ /* x130214 */ /* x130213 */ /* x130212 stalin.sc:16281:566603 */ /* x130211 stalin.sc:16281:566632 */ /* x130209 stalin.sc:16281:566635 */ t53038 = a1973; /* x130210 stalin.sc:16281:566658 */ t53039 = 1; /* x268881 stalin.sc:16281:566633 */ if (!((t53038&1)==1)) {backtrace("stalin.sc", 16281, 566632); plus_error();} a1973 = (((unsigned)(((int)(((int)t53038)>>1))+t53039))<<1)+1; /* x130207 */ /* x130206 stalin.sc:16282:566663 */ r14433.tag = STRING_TYPE; r14433.value.string_type = "FALSE_TYPE"; return r14433; l7533: /* x130592 */ /* x130218 stalin.sc:16283:566685 */ /* x130217 stalin.sc:16283:566697 */ t52836 = a25902; /* x130216 stalin.sc:16283:566686 */ if (f7682(t52836)==FALSE_TYPE) goto l7535; /* x130222 */ /* x130221 */ /* x130220 stalin.sc:16283:566700 */ /* x130219 stalin.sc:16283:566701 */ /* x295997 QobiScheme.sc:166:5314 */ /* x295996 QobiScheme.sc:166:5321 */ t53037 = "This shouldn\'t happen"; /* x295995 QobiScheme.sc:166:5315 */ stalin_panic(t53037); l7535: /* x130591 */ /* x130225 stalin.sc:16284:566719 */ /* x130224 stalin.sc:16284:566733 */ t52837 = a25902; /* x130223 stalin.sc:16284:566720 */ if (f7683(t52837)==FALSE_TYPE) goto l7537; /* x130235 */ /* x130234 */ /* x130233 */ /* x130232 stalin.sc:16285:566737 */ /* x130231 stalin.sc:16285:566767 */ /* x130229 stalin.sc:16285:566770 */ t53035 = a1967; /* x130230 stalin.sc:16285:566794 */ t53036 = 1; /* x268880 stalin.sc:16285:566768 */ if (!((t53035&1)==1)) {backtrace("stalin.sc", 16285, 566767); plus_error();} a1967 = (((unsigned)(((int)(((int)t53035)>>1))+t53036))<<1)+1; /* x130227 */ /* x130226 stalin.sc:16286:566799 */ r14433.tag = STRING_TYPE; r14433.value.string_type = "FIXNUM_TYPE"; return r14433; l7537: /* x130590 */ /* x130238 stalin.sc:16287:566822 */ /* x130237 stalin.sc:16287:566836 */ t52838 = a25902; /* x130236 stalin.sc:16287:566823 */ if (f7684(t52838)==FALSE_TYPE) goto l7539; /* x130248 */ /* x130247 */ /* x130246 */ /* x130245 stalin.sc:16288:566840 */ /* x130244 stalin.sc:16288:566870 */ /* x130242 stalin.sc:16288:566873 */ t53033 = a1964; /* x130243 stalin.sc:16288:566897 */ t53034 = 1; /* x268879 stalin.sc:16288:566871 */ if (!((t53033&1)==1)) {backtrace("stalin.sc", 16288, 566870); plus_error();} a1964 = (((unsigned)(((int)(((int)t53033)>>1))+t53034))<<1)+1; /* x130240 */ /* x130239 stalin.sc:16289:566902 */ r14433.tag = STRING_TYPE; r14433.value.string_type = "FLONUM_TYPE"; return r14433; l7539: /* x130589 */ /* x130251 stalin.sc:16290:566925 */ /* x130250 stalin.sc:16290:566944 */ t52839 = a25902; /* x130249 stalin.sc:16290:566926 */ if (f7687(t52839)==FALSE_TYPE) goto l7541; /* x130261 */ /* x130260 */ /* x130259 */ /* x130258 stalin.sc:16291:566948 */ /* x130257 stalin.sc:16291:566983 */ /* x130255 stalin.sc:16291:566986 */ t53031 = a1961; /* x130256 stalin.sc:16291:567015 */ t53032 = 1; /* x268878 stalin.sc:16291:566984 */ if (!((t53031&1)==1)) {backtrace("stalin.sc", 16291, 566983); plus_error();} a1961 = (((unsigned)(((int)(((int)t53031)>>1))+t53032))<<1)+1; /* x130253 */ /* x130252 stalin.sc:16292:567020 */ r14433.tag = STRING_TYPE; r14433.value.string_type = "RECTANGULAR_TYPE"; return r14433; l7541: /* x130588 */ /* x130264 stalin.sc:16293:567048 */ /* x130263 stalin.sc:16293:567066 */ t52840 = a25902; /* x130262 stalin.sc:16293:567049 */ if (f7700(t52840)==FALSE_TYPE) goto l7543; /* x130274 */ /* x130273 */ /* x130272 */ /* x130271 stalin.sc:16294:567070 */ /* x130270 stalin.sc:16294:567104 */ /* x130268 stalin.sc:16294:567107 */ t53029 = a1958; /* x130269 stalin.sc:16294:567135 */ t53030 = 1; /* x268877 stalin.sc:16294:567105 */ if (!((t53029&1)==1)) {backtrace("stalin.sc", 16294, 567104); plus_error();} a1958 = (((unsigned)(((int)(((int)t53029)>>1))+t53030))<<1)+1; /* x130266 */ /* x130265 stalin.sc:16295:567140 */ r14433.tag = STRING_TYPE; r14433.value.string_type = "INPUT_PORT_TYPE"; return r14433; l7543: /* x130587 */ /* x130277 stalin.sc:16296:567167 */ /* x130276 stalin.sc:16296:567186 */ t52841 = a25902; /* x130275 stalin.sc:16296:567168 */ if (f7701(t52841)==FALSE_TYPE) goto l7545; /* x130287 */ /* x130286 */ /* x130285 */ /* x130284 stalin.sc:16297:567190 */ /* x130283 stalin.sc:16297:567225 */ /* x130281 stalin.sc:16297:567228 */ t53027 = a1955; /* x130282 stalin.sc:16297:567257 */ t53028 = 1; /* x268876 stalin.sc:16297:567226 */ if (!((t53027&1)==1)) {backtrace("stalin.sc", 16297, 567225); plus_error();} a1955 = (((unsigned)(((int)(((int)t53027)>>1))+t53028))<<1)+1; /* x130279 */ /* x130278 stalin.sc:16298:567262 */ r14433.tag = STRING_TYPE; r14433.value.string_type = "OUTPUT_PORT_TYPE"; return r14433; l7545: /* x130586 */ /* x130290 stalin.sc:16299:567290 */ /* x130289 stalin.sc:16299:567308 */ t52842 = a25902; /* x130288 stalin.sc:16299:567291 */ if (f7702(t52842)==FALSE_TYPE) goto l7547; /* x130300 */ /* x130299 */ /* x130298 */ /* x130297 stalin.sc:16300:567312 */ /* x130296 stalin.sc:16300:567346 */ /* x130294 stalin.sc:16300:567349 */ t53025 = a1952; /* x130295 stalin.sc:16300:567377 */ t53026 = 1; /* x268875 stalin.sc:16300:567347 */ if (!((t53025&1)==1)) {backtrace("stalin.sc", 16300, 567346); plus_error();} a1952 = (((unsigned)(((int)(((int)t53025)>>1))+t53026))<<1)+1; /* x130292 */ /* x130291 stalin.sc:16301:567382 */ r14433.tag = STRING_TYPE; r14433.value.string_type = "EOF_OBJECT_TYPE"; return r14433; l7547: /* x130585 */ /* x130303 stalin.sc:16302:567409 */ /* x130302 stalin.sc:16302:567424 */ t52843 = a25902; /* x130301 stalin.sc:16302:567410 */ if (f7703(t52843)==FALSE_TYPE) goto l7549; /* x130313 */ /* x130312 */ /* x130311 */ /* x130310 stalin.sc:16303:567428 */ /* x130309 stalin.sc:16303:567459 */ /* x130307 stalin.sc:16303:567462 */ t53023 = a1949; /* x130308 stalin.sc:16303:567487 */ t53024 = 1; /* x268874 stalin.sc:16303:567460 */ if (!((t53023&1)==1)) {backtrace("stalin.sc", 16303, 567459); plus_error();} a1949 = (((unsigned)(((int)(((int)t53023)>>1))+t53024))<<1)+1; /* x130305 */ /* x130304 stalin.sc:16304:567492 */ r14433.tag = STRING_TYPE; r14433.value.string_type = "POINTER_TYPE"; return r14433; l7549: /* x130584 */ /* x130316 stalin.sc:16305:567516 */ /* x130315 stalin.sc:16305:567539 */ t52844 = a25902; /* x130314 stalin.sc:16305:567517 */ a38314 = t52844; /* x285925 */ /* x285924 */ t52845 = a38314; /* x285923 */ if (!((t52845.tag)==STRUCTURE_TYPE27776)) goto l7551; /* x130337 */ /* x130336 */ /* x130335 */ /* x130334 stalin.sc:16306:567543 */ /* x130327 stalin.sc:16307:567582 */ t53015 = a25902; /* x130333 stalin.sc:16307:567584 */ /* x130331 stalin.sc:16307:567587 */ /* x130330 stalin.sc:16307:567619 */ t53021 = a25902; /* x130329 stalin.sc:16307:567588 */ a19412 = t53021; /* x51270 */ /* x51269 */ t53022 = a19412; /* x51268 */ if (!((t53022.tag)==STRUCTURE_TYPE27776)) {backtrace_internal("INTERNAL-SYMBOL-TYPE-USE-COUNT[5819]"); structure_ref_error();} t53019 = t53022.value.structure_type27776->s2; /* x130332 stalin.sc:16307:567622 */ t53020 = 1; /* x268873 stalin.sc:16307:567585 */ t53016 = t53019+t53020; /* x130326 stalin.sc:16306:567544 */ a19413 = t53015; a19414 = t53016; /* x51276 */ /* x51274 */ t53017 = a19413; /* x51275 */ t53018 = a19414; /* x51273 */ if (!((t53017.tag)==STRUCTURE_TYPE27776)) {backtrace_internal("SET-INTERNAL-SYMBOL-TYPE-USE-COUNT![5820]"); structure_set_error();} t53017.value.structure_type27776->s2 = t53018; /* x130325 */ /* x130324 stalin.sc:16309:567687 */ /* x130323 stalin.sc:16310:567723 */ /* x130322 stalin.sc:16310:567739 */ /* x130321 stalin.sc:16310:567767 */ t53013 = a25902; /* x130320 stalin.sc:16310:567740 */ a19402 = t53013; /* x51231 */ /* x51230 */ t53014 = a19402; /* x51229 */ if (!((t53014.tag)==STRUCTURE_TYPE27776)) {backtrace_internal("INTERNAL-SYMBOL-TYPE-INDEX[5811]"); structure_ref_error();} t53011 = t53014.value.structure_type27776->s1; /* x130319 stalin.sc:16310:567724 */ /* MOVE: dispatching squished to general */ if (t53011==FALSE_TYPE) t53012.tag = (unsigned)t53011; else {t53012.tag = FIXNUM_TYPE; t53012.value.fixnum_type = (int)(((int)t53011)>>1);} t53009 = f28396(t53012); /* x130318 stalin.sc:16309:567693 */ t53008 = "INTERNAL_SYMBOL_TYPE"; /* x130317 stalin.sc:16309:567688 */ t53010.tag = STRUCTURE_TYPE24753; t53010.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53010.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16309, 567687); out_of_memory_error();} t53010.value.structure_type24753->s0.tag = STRING_TYPE; t53010.value.structure_type24753->s0.value.string_type = t53009; t53010.value.structure_type24753->s1.tag = NULL_TYPE; a34864 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34864==NULL) {backtrace("stalin.sc", 16309, 567687); out_of_memory_error();} a34864->s0.tag = STRING_TYPE; a34864->s0.value.string_type = t53008; a34864->s1 = t53010; /* x271735 */ r14433.tag = STRUCTURE_TYPE24753; r14433.value.structure_type24753 = a34864; return r14433; l7551: /* x130583 */ /* x130340 stalin.sc:16311:567781 */ /* x130339 stalin.sc:16311:567804 */ t52846 = a25902; /* x130338 stalin.sc:16311:567782 */ a38271 = t52846; /* x285753 */ /* x285752 */ t52847 = a38271; /* x285751 */ if (!((t52847.tag)==STRUCTURE_TYPE27779)) goto l7553; /* x130354 */ /* x130353 */ /* x130352 */ /* x130351 stalin.sc:16312:567808 */ /* x130344 stalin.sc:16313:567847 */ t53000 = a25902; /* x130350 stalin.sc:16313:567849 */ /* x130348 stalin.sc:16313:567852 */ /* x130347 stalin.sc:16313:567884 */ t53006 = a25902; /* x130346 stalin.sc:16313:567853 */ a19479 = t53006; /* x51519 */ /* x51518 */ t53007 = a19479; /* x51517 */ if (!((t53007.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("EXTERNAL-SYMBOL-TYPE-USE-COUNT[5869]"); structure_ref_error();} t53004 = t53007.value.structure_type27779->s3; /* x130349 stalin.sc:16313:567887 */ t53005 = 1; /* x268872 stalin.sc:16313:567850 */ t53001 = t53004+t53005; /* x130343 stalin.sc:16312:567809 */ a19480 = t53000; a19481 = t53001; /* x51525 */ /* x51523 */ t53002 = a19480; /* x51524 */ t53003 = a19481; /* x51522 */ if (!((t53002.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("SET-EXTERNAL-SYMBOL-TYPE-USE-COUNT![5870]"); structure_set_error();} t53002.value.structure_type27779->s3 = t53003; /* x130342 */ /* x130341 stalin.sc:16317:568049 */ r14433.tag = STRING_TYPE; r14433.value.string_type = "EXTERNAL_SYMBOL_TYPE"; return r14433; l7553: /* x130582 */ /* x130357 stalin.sc:16318:568081 */ /* x130356 stalin.sc:16318:568108 */ t52848 = a25902; /* x130355 stalin.sc:16318:568082 */ a38208 = t52848; /* x285501 */ /* x285500 */ t52849 = a38208; /* x285499 */ if (!((t52849.tag)==STRUCTURE_TYPE27753)) goto l7555; /* x130378 */ /* x130377 */ /* x130376 */ /* x130375 stalin.sc:16319:568112 */ /* x130368 stalin.sc:16320:568155 */ t52992 = a25902; /* x130374 stalin.sc:16320:568157 */ /* x130372 stalin.sc:16320:568160 */ /* x130371 stalin.sc:16320:568196 */ t52998 = a25902; /* x130370 stalin.sc:16320:568161 */ a19546 = t52998; /* x51768 */ /* x51767 */ t52999 = a19546; /* x51766 */ if (!((t52999.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("PRIMITIVE-PROCEDURE-TYPE-USE-COUNT[5919]"); structure_ref_error();} t52996 = t52999.value.structure_type27753->s3; /* x130373 stalin.sc:16320:568199 */ t52997 = 1; /* x268871 stalin.sc:16320:568158 */ t52993 = t52996+t52997; /* x130367 stalin.sc:16319:568113 */ a19547 = t52992; a19548 = t52993; /* x51774 */ /* x51772 */ t52994 = a19547; /* x51773 */ t52995 = a19548; /* x51771 */ if (!((t52994.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("SET-PRIMITIVE-PROCEDURE-TYPE-USE-COUNT![5920]"); structure_set_error();} t52994.value.structure_type27753->s3 = t52995; /* x130366 */ /* x130365 stalin.sc:16323:568303 */ /* x130364 stalin.sc:16324:568343 */ /* x130363 stalin.sc:16324:568359 */ /* x130362 stalin.sc:16324:568391 */ t52990 = a25902; /* x130361 stalin.sc:16324:568360 */ a19536 = t52990; /* x51729 */ /* x51728 */ t52991 = a19536; /* x51727 */ if (!((t52991.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("PRIMITIVE-PROCEDURE-TYPE-INDEX[5911]"); structure_ref_error();} t52988 = t52991.value.structure_type27753->s2; /* x130360 stalin.sc:16324:568344 */ /* MOVE: dispatching squished to general */ if (t52988==FALSE_TYPE) t52989.tag = (unsigned)t52988; else {t52989.tag = FIXNUM_TYPE; t52989.value.fixnum_type = (int)(((int)t52988)>>1);} t52986 = f28396(t52989); /* x130359 stalin.sc:16323:568309 */ t52985 = "PRIMITIVE_PROCEDURE_TYPE"; /* x130358 stalin.sc:16323:568304 */ t52987.tag = STRUCTURE_TYPE24753; t52987.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52987.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16323, 568303); out_of_memory_error();} t52987.value.structure_type24753->s0.tag = STRING_TYPE; t52987.value.structure_type24753->s0.value.string_type = t52986; t52987.value.structure_type24753->s1.tag = NULL_TYPE; a35127 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35127==NULL) {backtrace("stalin.sc", 16323, 568303); out_of_memory_error();} a35127->s0.tag = STRING_TYPE; a35127->s0.value.string_type = t52985; a35127->s1 = t52987; /* x272261 */ r14433.tag = STRUCTURE_TYPE24753; r14433.value.structure_type24753 = a35127; return r14433; l7555: /* x130581 */ /* x130381 stalin.sc:16325:568405 */ /* x130380 stalin.sc:16325:568429 */ t52850 = a25902; /* x130379 stalin.sc:16325:568406 */ a38072 = t52850; /* x284957 */ /* x284956 */ t52851 = a38072; /* x284955 */ if (!((t52851.tag)==STRUCTURE_TYPE27756)) goto l7557; /* x130402 */ /* x130401 */ /* x130400 */ /* x130399 stalin.sc:16326:568433 */ /* x130392 stalin.sc:16327:568473 */ t52977 = a25902; /* x130398 stalin.sc:16327:568475 */ /* x130396 stalin.sc:16327:568478 */ /* x130395 stalin.sc:16327:568511 */ t52983 = a25902; /* x130394 stalin.sc:16327:568479 */ a19613 = t52983; /* x52017 */ /* x52016 */ t52984 = a19613; /* x52015 */ if (!((t52984.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("NATIVE-PROCEDURE-TYPE-USE-COUNT[5969]"); structure_ref_error();} t52981 = t52984.value.structure_type27756->s3; /* x130397 stalin.sc:16327:568514 */ t52982 = 1; /* x268870 stalin.sc:16327:568476 */ t52978 = t52981+t52982; /* x130391 stalin.sc:16326:568434 */ a19614 = t52977; a19615 = t52978; /* x52023 */ /* x52021 */ t52979 = a19614; /* x52022 */ t52980 = a19615; /* x52020 */ if (!((t52979.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("SET-NATIVE-PROCEDURE-TYPE-USE-COUNT![5970]"); structure_set_error();} t52979.value.structure_type27756->s3 = t52980; /* x130390 */ /* x130389 stalin.sc:16328:568519 */ /* x130388 stalin.sc:16328:568549 */ /* x130387 stalin.sc:16328:568565 */ /* x130386 stalin.sc:16328:568577 */ t52976 = a25902; /* x130385 stalin.sc:16328:568566 */ t52974 = f7936(t52976); /* x130384 stalin.sc:16328:568550 */ /* MOVE: dispatching squished to general */ if (t52974==FALSE_TYPE) t52975.tag = (unsigned)t52974; else {t52975.tag = FIXNUM_TYPE; t52975.value.fixnum_type = (int)(((int)t52974)>>1);} t52972 = f28396(t52975); /* x130383 stalin.sc:16328:568525 */ t52971 = "NATIVE_PROCEDURE_TYPE"; /* x130382 stalin.sc:16328:568520 */ t52973.tag = STRUCTURE_TYPE24753; t52973.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52973.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16328, 568519); out_of_memory_error();} t52973.value.structure_type24753->s0.tag = STRING_TYPE; t52973.value.structure_type24753->s0.value.string_type = t52972; t52973.value.structure_type24753->s1.tag = NULL_TYPE; a35128 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35128==NULL) {backtrace("stalin.sc", 16328, 568519); out_of_memory_error();} a35128->s0.tag = STRING_TYPE; a35128->s0.value.string_type = t52971; a35128->s1 = t52973; /* x272263 */ r14433.tag = STRUCTURE_TYPE24753; r14433.value.structure_type24753 = a35128; return r14433; l7557: /* x130580 */ /* x130405 stalin.sc:16329:568591 */ /* x130404 stalin.sc:16329:568616 */ t52852 = a25902; /* x130403 stalin.sc:16329:568592 */ a37951 = t52852; /* x284473 */ /* x284472 */ t52853 = a37951; /* x284471 */ if (!((t52853.tag)==STRUCTURE_TYPE27750)) goto l7559; /* x130425 */ /* x130424 */ /* x130423 */ /* x130422 stalin.sc:16330:568620 */ /* x130415 stalin.sc:16331:568661 */ t52963 = a25902; /* x130421 stalin.sc:16331:568663 */ /* x130419 stalin.sc:16331:568666 */ /* x130418 stalin.sc:16331:568700 */ t52969 = a25902; /* x130417 stalin.sc:16331:568667 */ a19702 = t52969; /* x52346 */ /* x52345 */ t52970 = a19702; /* x52344 */ if (!((t52970.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("FOREIGN-PROCEDURE-TYPE-USE-COUNT[6035]"); structure_ref_error();} t52967 = t52970.value.structure_type27750->s5; /* x130420 stalin.sc:16331:568703 */ t52968 = 1; /* x268869 stalin.sc:16331:568664 */ t52964 = t52967+t52968; /* x130414 stalin.sc:16330:568621 */ a19703 = t52963; a19704 = t52964; /* x52352 */ /* x52350 */ t52965 = a19703; /* x52351 */ t52966 = a19704; /* x52349 */ if (!((t52965.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("SET-FOREIGN-PROCEDURE-TYPE-USE-COUNT![6036]"); structure_set_error();} t52965.value.structure_type27750->s5 = t52966; /* x130413 */ /* x130412 stalin.sc:16332:568708 */ /* x130411 stalin.sc:16332:568767 */ t52958 = "_TYPE"; /* x130410 stalin.sc:16332:568735 */ /* x130409 stalin.sc:16332:568764 */ t52961 = a25902; /* x130408 stalin.sc:16332:568736 */ a37930 = t52961; /* x284389 */ /* x284388 */ t52962 = a37930; /* x284387 */ if (!((t52962.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-NAME[5995] 32847]"); structure_ref_error();} t52957 = t52962.value.structure_type27750->s0; /* x130407 stalin.sc:16332:568714 */ t52956 = "FOREIGN_PROCEDURE_"; /* x130406 stalin.sc:16332:568709 */ t52960.tag = STRUCTURE_TYPE24753; t52960.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52960.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16332, 568708); out_of_memory_error();} t52960.value.structure_type24753->s0.tag = STRING_TYPE; t52960.value.structure_type24753->s0.value.string_type = t52958; t52960.value.structure_type24753->s1.tag = NULL_TYPE; t52959.tag = STRUCTURE_TYPE24753; t52959.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52959.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16332, 568708); out_of_memory_error();} t52959.value.structure_type24753->s0 = t52957; t52959.value.structure_type24753->s1 = t52960; a35129 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35129==NULL) {backtrace("stalin.sc", 16332, 568708); out_of_memory_error();} a35129->s0.tag = STRING_TYPE; a35129->s0.value.string_type = t52956; a35129->s1 = t52959; /* x272265 */ r14433.tag = STRUCTURE_TYPE24753; r14433.value.structure_type24753 = a35129; return r14433; l7559: /* x130579 */ /* x130428 stalin.sc:16333:568785 */ /* x130427 stalin.sc:16333:568805 */ t52854 = a25902; /* x130426 stalin.sc:16333:568786 */ a37871 = t52854; /* x284153 */ /* x284152 */ t52855 = a37871; /* x284151 */ if (!((t52855.tag)==STRUCTURE_TYPE27858)) goto l7561; /* x130456 */ /* x130455 */ /* x130454 */ /* x130453 stalin.sc:16334:568809 */ /* x130446 stalin.sc:16335:568845 */ t52948 = a25902; /* x130452 stalin.sc:16335:568847 */ /* x130450 stalin.sc:16335:568850 */ /* x130449 stalin.sc:16335:568879 */ t52954 = a25902; /* x130448 stalin.sc:16335:568851 */ a19759 = t52954; /* x52556 */ /* x52555 */ t52955 = a19759; /* x52554 */ if (!((t52955.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("CONTINUATION-TYPE-USE-COUNT[6077]"); structure_ref_error();} t52952 = t52955.value.structure_type27858->s2; /* x130451 stalin.sc:16335:568882 */ t52953 = 1; /* x268868 stalin.sc:16335:568848 */ t52949 = t52952+t52953; /* x130445 stalin.sc:16334:568810 */ a19760 = t52948; a19761 = t52949; /* x52562 */ /* x52560 */ t52950 = a19760; /* x52561 */ t52951 = a19761; /* x52559 */ if (!((t52950.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("SET-CONTINUATION-TYPE-USE-COUNT![6078]"); structure_set_error();} t52950.value.structure_type27858->s2 = t52951; /* x130444 */ /* x130443 stalin.sc:16336:568887 */ /* x130431 stalin.sc:16336:568891 */ /* x130430 stalin.sc:16336:568932 */ t52937 = a25902; /* x130429 stalin.sc:16336:568892 */ a37833 = t52937; /* x284001 */ /* x284000 */ t52938 = a37833; /* x283999 */ if (!((t52938.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32750]"); structure_ref_error();} if ((t52938.value.structure_type27858->s0.tag)==FALSE_TYPE) goto l7573; /* x130441 stalin.sc:16337:568940 */ /* x130440 stalin.sc:16338:568970 */ /* x130439 stalin.sc:16339:568991 */ /* x130438 stalin.sc:16340:569015 */ /* x130437 stalin.sc:16340:569056 */ t52946 = a25902; /* x130436 stalin.sc:16340:569016 */ a37832 = t52946; /* x283997 */ /* x283996 */ t52947 = a37832; /* x283995 */ if (!((t52947.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32749]"); structure_ref_error();} t52944 = t52947.value.structure_type27858->s0; /* x130435 stalin.sc:16339:568992 */ a40129 = t52944; /* x293185 */ /* x293184 */ t52945 = a40129; /* x293183 */ if (!((t52945.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35046]"); structure_ref_error();} t52942 = t52945.value.structure_type27698->s7; /* x130434 stalin.sc:16338:568971 */ /* MOVE: dispatching squished to general */ if (t52942==FALSE_TYPE) t52943.tag = (unsigned)t52942; else {t52943.tag = FIXNUM_TYPE; t52943.value.fixnum_type = (int)(((int)t52942)>>1);} t52940 = f28396(t52943); /* x130433 stalin.sc:16337:568946 */ t52939 = "CONTINUATION_TYPE"; /* x130432 stalin.sc:16337:568941 */ t52941.tag = STRUCTURE_TYPE24753; t52941.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52941.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16337, 568940); out_of_memory_error();} t52941.value.structure_type24753->s0.tag = STRING_TYPE; t52941.value.structure_type24753->s0.value.string_type = t52940; t52941.value.structure_type24753->s1.tag = NULL_TYPE; a35130 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35130==NULL) {backtrace("stalin.sc", 16337, 568940); out_of_memory_error();} a35130->s0.tag = STRING_TYPE; a35130->s0.value.string_type = t52939; a35130->s1 = t52941; /* x272267 */ r14433.tag = STRUCTURE_TYPE24753; r14433.value.structure_type24753 = a35130; return r14433; l7573: /* x130442 stalin.sc:16341:569067 */ r14433.tag = STRING_TYPE; r14433.value.string_type = "TOP_LEVEL_CONTINUATION_TYPE"; return r14433; l7561: /* x130578 */ /* x130459 stalin.sc:16342:569107 */ /* x130458 stalin.sc:16342:569121 */ t52856 = a25902; /* x130457 stalin.sc:16342:569108 */ a37759 = t52856; /* x283705 */ /* x283704 */ t52857 = a37759; /* x283703 */ if (!((t52857.tag)==STRUCTURE_TYPE27673)) goto l7563; /* x130473 */ /* x130472 */ /* x130471 */ /* x130470 stalin.sc:16343:569125 */ /* x130463 stalin.sc:16343:569153 */ t52929 = a25902; /* x130469 stalin.sc:16343:569155 */ /* x130467 stalin.sc:16343:569158 */ /* x130466 stalin.sc:16343:569181 */ t52935 = a25902; /* x130465 stalin.sc:16343:569159 */ a19837 = t52935; /* x52845 */ /* x52844 */ t52936 = a19837; /* x52843 */ if (!((t52936.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("STRING-TYPE-USE-COUNT[6135]"); structure_ref_error();} t52933 = t52936.value.structure_type27673->s3; /* x130468 stalin.sc:16343:569184 */ t52934 = 1; /* x268867 stalin.sc:16343:569156 */ t52930 = t52933+t52934; /* x130462 stalin.sc:16343:569126 */ a19838 = t52929; a19839 = t52930; /* x52851 */ /* x52849 */ t52931 = a19838; /* x52850 */ t52932 = a19839; /* x52848 */ if (!((t52931.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("SET-STRING-TYPE-USE-COUNT![6136]"); structure_set_error();} t52931.value.structure_type27673->s3 = t52932; /* x130461 */ /* x130460 stalin.sc:16346:569284 */ r14433.tag = STRING_TYPE; r14433.value.string_type = "STRING_TYPE"; return r14433; l7563: /* x130577 */ /* x130476 stalin.sc:16347:569307 */ /* x130475 stalin.sc:16347:569324 */ t52858 = a25902; /* x130474 stalin.sc:16347:569308 */ a37683 = t52858; /* x283401 */ /* x283400 */ t52859 = a37683; /* x283399 */ if (!((t52859.tag)==STRUCTURE_TYPE27769)) goto l7565; /* x130497 */ /* x130496 */ /* x130495 */ /* x130494 stalin.sc:16348:569328 */ /* x130487 stalin.sc:16348:569359 */ t52921 = a25902; /* x130493 stalin.sc:16348:569361 */ /* x130491 stalin.sc:16348:569364 */ /* x130490 stalin.sc:16348:569390 */ t52927 = a25902; /* x130489 stalin.sc:16348:569365 */ a19937 = t52927; /* x53214 */ /* x53213 */ t52928 = a19937; /* x53212 */ if (!((t52928.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("STRUCTURE-TYPE-USE-COUNT[6209]"); structure_ref_error();} t52925 = t52928.value.structure_type27769->s5; /* x130492 stalin.sc:16348:569393 */ t52926 = 1; /* x268866 stalin.sc:16348:569362 */ t52922 = t52925+t52926; /* x130486 stalin.sc:16348:569329 */ a19938 = t52921; a19939 = t52922; /* x53220 */ /* x53218 */ t52923 = a19938; /* x53219 */ t52924 = a19939; /* x53217 */ if (!((t52923.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("SET-STRUCTURE-TYPE-USE-COUNT![6210]"); structure_set_error();} t52923.value.structure_type27769->s5 = t52924; /* x130485 */ /* x130484 stalin.sc:16349:569398 */ /* x130483 stalin.sc:16349:569421 */ /* x130482 stalin.sc:16349:569437 */ /* x130481 stalin.sc:16349:569459 */ t52919 = a25902; /* x130480 stalin.sc:16349:569438 */ a19927 = t52919; /* x53175 */ /* x53174 */ t52920 = a19927; /* x53173 */ if (!((t52920.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("STRUCTURE-TYPE-INDEX[6201]"); structure_ref_error();} t52917 = t52920.value.structure_type27769->s4; /* x130479 stalin.sc:16349:569422 */ /* MOVE: dispatching squished to general */ if (t52917==FALSE_TYPE) t52918.tag = (unsigned)t52917; else {t52918.tag = FIXNUM_TYPE; t52918.value.fixnum_type = (int)(((int)t52917)>>1);} t52915 = f28396(t52918); /* x130478 stalin.sc:16349:569404 */ t52914 = "STRUCTURE_TYPE"; /* x130477 stalin.sc:16349:569399 */ t52916.tag = STRUCTURE_TYPE24753; t52916.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52916.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16349, 569398); out_of_memory_error();} t52916.value.structure_type24753->s0.tag = STRING_TYPE; t52916.value.structure_type24753->s0.value.string_type = t52915; t52916.value.structure_type24753->s1.tag = NULL_TYPE; a34912 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34912==NULL) {backtrace("stalin.sc", 16349, 569398); out_of_memory_error();} a34912->s0.tag = STRING_TYPE; a34912->s0.value.string_type = t52914; a34912->s1 = t52916; /* x271831 */ r14433.tag = STRUCTURE_TYPE24753; r14433.value.structure_type24753 = a34912; return r14433; l7565: /* x130576 */ /* x130500 stalin.sc:16350:569473 */ /* x130499 stalin.sc:16350:569494 */ t52860 = a25902; /* x130498 stalin.sc:16350:569474 */ a37543 = t52860; /* x282841 */ /* x282840 */ t52861 = a37543; /* x282839 */ if (!((t52861.tag)==STRUCTURE_TYPE27761)) goto l7567; /* x130521 */ /* x130520 */ /* x130519 */ /* x130518 stalin.sc:16351:569498 */ /* x130511 stalin.sc:16352:569535 */ t52906 = a25902; /* x130517 stalin.sc:16352:569537 */ /* x130515 stalin.sc:16352:569540 */ /* x130514 stalin.sc:16352:569570 */ t52912 = a25902; /* x130513 stalin.sc:16352:569541 */ a20026 = t52912; /* x53543 */ /* x53542 */ t52913 = a20026; /* x53541 */ if (!((t52913.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("HEADED-VECTOR-TYPE-USE-COUNT[6275]"); structure_ref_error();} t52910 = t52913.value.structure_type27761->s4; /* x130516 stalin.sc:16352:569573 */ t52911 = 1; /* x268865 stalin.sc:16352:569538 */ t52907 = t52910+t52911; /* x130510 stalin.sc:16351:569499 */ a20027 = t52906; a20028 = t52907; /* x53549 */ /* x53547 */ t52908 = a20027; /* x53548 */ t52909 = a20028; /* x53546 */ if (!((t52908.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("SET-HEADED-VECTOR-TYPE-USE-COUNT![6276]"); structure_set_error();} t52908.value.structure_type27761->s4 = t52909; /* x130509 */ /* x130508 stalin.sc:16353:569578 */ /* x130507 stalin.sc:16354:569612 */ /* x130506 stalin.sc:16354:569628 */ /* x130505 stalin.sc:16354:569654 */ t52904 = a25902; /* x130504 stalin.sc:16354:569629 */ a20016 = t52904; /* x53504 */ /* x53503 */ t52905 = a20016; /* x53502 */ if (!((t52905.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("HEADED-VECTOR-TYPE-INDEX[6267]"); structure_ref_error();} t52902 = t52905.value.structure_type27761->s3; /* x130503 stalin.sc:16354:569613 */ /* MOVE: dispatching squished to general */ if (t52902==FALSE_TYPE) t52903.tag = (unsigned)t52902; else {t52903.tag = FIXNUM_TYPE; t52903.value.fixnum_type = (int)(((int)t52902)>>1);} t52900 = f28396(t52903); /* x130502 stalin.sc:16353:569584 */ t52899 = "HEADED_VECTOR_TYPE"; /* x130501 stalin.sc:16353:569579 */ t52901.tag = STRUCTURE_TYPE24753; t52901.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52901.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16353, 569578); out_of_memory_error();} t52901.value.structure_type24753->s0.tag = STRING_TYPE; t52901.value.structure_type24753->s0.value.string_type = t52900; t52901.value.structure_type24753->s1.tag = NULL_TYPE; a34906 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34906==NULL) {backtrace("stalin.sc", 16353, 569578); out_of_memory_error();} a34906->s0.tag = STRING_TYPE; a34906->s0.value.string_type = t52899; a34906->s1 = t52901; /* x271819 */ r14433.tag = STRUCTURE_TYPE24753; r14433.value.structure_type24753 = a34906; return r14433; l7567: /* x130575 */ /* x130524 stalin.sc:16355:569668 */ /* x130523 stalin.sc:16355:569692 */ t52862 = a25902; /* x130522 stalin.sc:16355:569669 */ a37424 = t52862; /* x282365 */ /* x282364 */ t52863 = a37424; /* x282363 */ if (!((t52863.tag)==STRUCTURE_TYPE27669)) goto l7569; /* x130545 */ /* x130544 */ /* x130543 */ /* x130542 stalin.sc:16356:569696 */ /* x130535 stalin.sc:16357:569736 */ t52891 = a25902; /* x130541 stalin.sc:16357:569738 */ /* x130539 stalin.sc:16357:569741 */ /* x130538 stalin.sc:16357:569774 */ t52897 = a25902; /* x130537 stalin.sc:16357:569742 */ a20115 = t52897; /* x53872 */ /* x53871 */ t52898 = a20115; /* x53870 */ if (!((t52898.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("NONHEADED-VECTOR-TYPE-USE-COUNT[6341]"); structure_ref_error();} t52895 = t52898.value.structure_type27669->s4; /* x130540 stalin.sc:16357:569777 */ t52896 = 1; /* x268864 stalin.sc:16357:569739 */ t52892 = t52895+t52896; /* x130534 stalin.sc:16356:569697 */ a20116 = t52891; a20117 = t52892; /* x53878 */ /* x53876 */ t52893 = a20116; /* x53877 */ t52894 = a20117; /* x53875 */ if (!((t52893.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("SET-NONHEADED-VECTOR-TYPE-USE-COUNT![6342]"); structure_set_error();} t52893.value.structure_type27669->s4 = t52894; /* x130533 */ /* x130532 stalin.sc:16358:569782 */ /* x130531 stalin.sc:16359:569819 */ /* x130530 stalin.sc:16359:569835 */ /* x130529 stalin.sc:16359:569864 */ t52889 = a25902; /* x130528 stalin.sc:16359:569836 */ a20105 = t52889; /* x53833 */ /* x53832 */ t52890 = a20105; /* x53831 */ if (!((t52890.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("NONHEADED-VECTOR-TYPE-INDEX[6333]"); structure_ref_error();} t52887 = t52890.value.structure_type27669->s3; /* x130527 stalin.sc:16359:569820 */ /* MOVE: dispatching squished to general */ if (t52887==FALSE_TYPE) t52888.tag = (unsigned)t52887; else {t52888.tag = FIXNUM_TYPE; t52888.value.fixnum_type = (int)(((int)t52887)>>1);} t52885 = f28396(t52888); /* x130526 stalin.sc:16358:569788 */ t52884 = "NONHEADED_VECTOR_TYPE"; /* x130525 stalin.sc:16358:569783 */ t52886.tag = STRUCTURE_TYPE24753; t52886.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52886.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16358, 569782); out_of_memory_error();} t52886.value.structure_type24753->s0.tag = STRING_TYPE; t52886.value.structure_type24753->s0.value.string_type = t52885; t52886.value.structure_type24753->s1.tag = NULL_TYPE; a35131 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35131==NULL) {backtrace("stalin.sc", 16358, 569782); out_of_memory_error();} a35131->s0.tag = STRING_TYPE; a35131->s0.value.string_type = t52884; a35131->s1 = t52886; /* x272269 */ r14433.tag = STRUCTURE_TYPE24753; r14433.value.structure_type24753 = a35131; return r14433; l7569: /* x130574 */ /* x130548 stalin.sc:16360:569878 */ /* x130547 stalin.sc:16360:569902 */ t52864 = a25902; /* x130546 stalin.sc:16360:569879 */ a37327 = t52864; /* x281977 */ /* x281976 */ t52865 = a37327; /* x281975 */ if (!((t52865.tag)==STRUCTURE_TYPE27908)) goto l7571; /* x130569 */ /* x130568 */ /* x130567 */ /* x130566 stalin.sc:16361:569906 */ /* x130559 stalin.sc:16362:569946 */ t52876 = a25902; /* x130565 stalin.sc:16362:569948 */ /* x130563 stalin.sc:16362:569951 */ /* x130562 stalin.sc:16362:569984 */ t52882 = a25902; /* x130561 stalin.sc:16362:569952 */ a20192 = t52882; /* x54160 */ /* x54159 */ t52883 = a20192; /* x54158 */ if (!((t52883.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("DISPLACED-VECTOR-TYPE-USE-COUNT[6399]"); structure_ref_error();} t52880 = t52883.value.structure_type27908->s3; /* x130564 stalin.sc:16362:569987 */ t52881 = 1; /* x268863 stalin.sc:16362:569949 */ t52877 = t52880+t52881; /* x130558 stalin.sc:16361:569907 */ a20193 = t52876; a20194 = t52877; /* x54166 */ /* x54164 */ t52878 = a20193; /* x54165 */ t52879 = a20194; /* x54163 */ if (!((t52878.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("SET-DISPLACED-VECTOR-TYPE-USE-COUNT![6400]"); structure_set_error();} t52878.value.structure_type27908->s3 = t52879; /* x130557 */ /* x130556 stalin.sc:16363:569992 */ /* x130555 stalin.sc:16364:570029 */ /* x130554 stalin.sc:16364:570045 */ /* x130553 stalin.sc:16364:570074 */ t52874 = a25902; /* x130552 stalin.sc:16364:570046 */ a20182 = t52874; /* x54121 */ /* x54120 */ t52875 = a20182; /* x54119 */ if (!((t52875.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("DISPLACED-VECTOR-TYPE-INDEX[6391]"); structure_ref_error();} t52872 = t52875.value.structure_type27908->s2; /* x130551 stalin.sc:16364:570030 */ /* MOVE: dispatching squished to general */ if (t52872==FALSE_TYPE) t52873.tag = (unsigned)t52872; else {t52873.tag = FIXNUM_TYPE; t52873.value.fixnum_type = (int)(((int)t52872)>>1);} t52868 = f28396(t52873); /* x130550 stalin.sc:16363:569998 */ t52867 = "DISPLACED_VECTOR_TYPE"; /* x130549 stalin.sc:16363:569993 */ t52871.tag = STRUCTURE_TYPE24753; t52871.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t52871.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16363, 569992); out_of_memory_error();} t52871.value.structure_type24753->s0.tag = STRING_TYPE; t52871.value.structure_type24753->s0.value.string_type = t52868; t52871.value.structure_type24753->s1.tag = NULL_TYPE; t52869 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t52869==NULL) {backtrace("stalin.sc", 16363, 569992); out_of_memory_error();} t52869->s0.tag = STRING_TYPE; t52869->s0.value.string_type = t52867; t52869->s1 = t52871; t52870 = f26218(t52869); r14433.tag = STRUCTURE_TYPE24753; r14433.value.structure_type24753 = t52870; return r14433; l7571: /* x130573 */ /* x130572 */ /* x130571 stalin.sc:16365:570093 */ /* x130570 stalin.sc:16365:570094 */ /* x296001 QobiScheme.sc:166:5314 */ /* x296000 QobiScheme.sc:166:5321 */ t52866 = "This shouldn\'t happen"; /* x295999 QobiScheme.sc:166:5315 */ stalin_panic(t52866);} /* C:SQUEEZED->TAG-CAST[14430] */ struct structure_type24753 *f14430(struct w49 a25897, struct w49 a25898) {struct w49 t53044; struct w49 t53045; struct w49 t53046; struct structure_type24753 *t53047; struct w49 t53048; struct w49 t53049; struct w49 t53050; /* x130161 */ /* x130160 stalin.sc:16264:566073 */ /* x130159 stalin.sc:16264:566091 */ a1202 = TRUE_TYPE; /* x130158 */ /* x130157 stalin.sc:16265:566096 */ /* x130148 stalin.sc:16265:566100 */ /* x130146 stalin.sc:16265:566103 */ /* x130145 stalin.sc:16265:566118 */ t53046 = a25898; /* x130144 stalin.sc:16265:566104 */ t53044 = f14154(t53046); /* x130147 stalin.sc:16265:566121 */ t53045 = a1229; /* x268884 stalin.sc:16265:566101 */ switch (t53044.tag) {case FIXNUM_TYPE: switch (t53045.tag) {case FIXNUM_TYPE: if (!((t53044.value.fixnum_type)==(t53045.value.fixnum_type))) goto l7575; break; case FLONUM_TYPE: if (!((t53044.value.fixnum_type)==(t53045.value.flonum_type))) goto l7575; break; default: backtrace("stalin.sc", 16265, 566100); eql_error();} break; case FLONUM_TYPE: switch (t53045.tag) {case FIXNUM_TYPE: if (!((t53044.value.flonum_type)==(t53045.value.fixnum_type))) goto l7575; break; case FLONUM_TYPE: if (!((t53044.value.flonum_type)==(t53045.value.flonum_type))) goto l7575; break; default: backtrace("stalin.sc", 16265, 566100); eql_error();} break; default: backtrace("stalin.sc", 16265, 566100); eql_error();} /* x130151 stalin.sc:16266:566138 */ /* x130150 stalin.sc:16266:566150 */ t53050 = a25897; /* x130149 stalin.sc:16266:566139 */ return f14427(t53050); l7575: /* x130156 stalin.sc:16269:566256 */ /* x130155 stalin.sc:16269:566268 */ /* x130154 stalin.sc:16269:566285 */ t53049 = a25897; /* x130153 stalin.sc:16269:566269 */ t53047 = f14423(t53049); /* x130152 stalin.sc:16269:566257 */ t53048.tag = STRUCTURE_TYPE24753; t53048.value.structure_type24753 = t53047; return f14427(t53048);} /* C:TAG->SQUEEZED-CAST[14428] */ struct structure_type24753 *f14428(struct w49 a25893, struct w49 a25894, struct w49 a25895) {struct w49 t53051; struct w49 t53052; struct w49 t53053; struct structure_type24753 *t53054; struct w49 t53055; struct w49 t53056; struct w49 t53057; struct w49 t53058; struct w49 t53059; struct w49 t53060; struct w49 t53061; struct w49 t53062; struct w49 t53063; /* x130140 */ /* x130139 stalin.sc:16256:565779 */ /* x130138 stalin.sc:16256:565797 */ a1202 = TRUE_TYPE; /* x130137 */ /* x130136 stalin.sc:16257:565802 */ /* x130119 stalin.sc:16257:565806 */ /* x130117 stalin.sc:16257:565809 */ /* x130116 stalin.sc:16257:565824 */ t53053 = a25895; /* x130115 stalin.sc:16257:565810 */ t53051 = f14154(t53053); /* x130118 stalin.sc:16257:565828 */ t53052 = a1229; /* x268885 stalin.sc:16257:565807 */ switch (t53051.tag) {case FIXNUM_TYPE: switch (t53052.tag) {case FIXNUM_TYPE: if (!((t53051.value.fixnum_type)==(t53052.value.fixnum_type))) goto l7577; break; case FLONUM_TYPE: if (!((t53051.value.fixnum_type)==(t53052.value.flonum_type))) goto l7577; break; default: backtrace("stalin.sc", 16257, 565806); eql_error();} break; case FLONUM_TYPE: switch (t53052.tag) {case FIXNUM_TYPE: if (!((t53051.value.flonum_type)==(t53052.value.fixnum_type))) goto l7577; break; case FLONUM_TYPE: if (!((t53051.value.flonum_type)==(t53052.value.flonum_type))) goto l7577; break; default: backtrace("stalin.sc", 16257, 565806); eql_error();} break; default: backtrace("stalin.sc", 16257, 565806); eql_error();} /* x130126 stalin.sc:16258:565845 */ /* x130124 stalin.sc:16258:565862 */ /* x130122 stalin.sc:16258:565869 */ t53062 = a25893; /* x130123 stalin.sc:16258:565871 */ t53063 = a25894; /* x130121 stalin.sc:16258:565863 */ t53060 = f14478(t53062, t53063); /* x130125 stalin.sc:16258:565875 */ t53061 = a25895; /* x130120 stalin.sc:16258:565846 */ return f14422(t53060, t53061); l7577: /* x130135 stalin.sc:16261:565982 */ /* x130133 stalin.sc:16261:565999 */ /* x130132 stalin.sc:16261:566016 */ /* x130130 stalin.sc:16261:566023 */ t53058 = a25893; /* x130131 stalin.sc:16261:566025 */ t53059 = a25894; /* x130129 stalin.sc:16261:566017 */ t53057 = f14478(t53058, t53059); /* x130128 stalin.sc:16261:566000 */ t53054 = f14423(t53057); /* x130134 stalin.sc:16261:566030 */ t53055 = a25895; /* x130127 stalin.sc:16261:565983 */ t53056.tag = STRUCTURE_TYPE24753; t53056.value.structure_type24753 = t53054; return f14422(t53056, t53055);} /* C:TAG-CAST[14427] */ struct structure_type24753 *f14427(struct w49 a25892) {struct w49 t53064; struct w49 t53065; /* x130111 stalin.sc:16253:565720 */ /* x130109 stalin.sc:16253:565728 */ t53064 = a1248; /* x130110 stalin.sc:16253:565734 */ t53065 = a25892; /* x130108 stalin.sc:16253:565721 */ return f13547(t53064, t53065);} /* C:SIGNED-SQUISHED-CAST[14425] */ struct structure_type24753 *f14425(struct w49 a25890) {struct w49 t53066; struct w49 t53067; /* x130105 */ /* x130104 stalin.sc:16250:565638 */ /* x130103 stalin.sc:16250:565661 */ a1201 = TRUE_TYPE; /* x130102 */ /* x130101 stalin.sc:16251:565666 */ /* x130099 stalin.sc:16251:565674 */ t53066 = a1246; /* x130100 stalin.sc:16251:565692 */ t53067 = a25890; /* x130098 stalin.sc:16251:565667 */ return f13547(t53066, t53067);} /* C:SQUISHED-CAST[14423] */ struct structure_type24753 *f14423(struct w49 a25888) {struct w49 t53068; struct w49 t53069; /* x130095 */ /* x130094 stalin.sc:16246:565550 */ /* x130093 stalin.sc:16246:565573 */ a1201 = TRUE_TYPE; /* x130092 */ /* x130091 stalin.sc:16247:565578 */ /* x130089 stalin.sc:16247:565586 */ t53068 = a1247; /* x130090 stalin.sc:16247:565597 */ t53069 = a25888; /* x130088 stalin.sc:16247:565579 */ return f13547(t53068, t53069);} /* C:TYPE-SET-CAST[14422] */ struct structure_type24753 *f14422(struct w49 a25886, struct w49 a25887) {struct w49 t53070; struct w49 t53071; struct w49 t53072; char *t53073; struct w49 t53074; /* x130085 stalin.sc:16243:565490 */ /* x130083 stalin.sc:16243:565498 */ /* x130081 stalin.sc:16243:565510 */ t53072 = a25887; /* x130082 stalin.sc:16243:565512 */ t53073 = ""; /* x130080 stalin.sc:16243:565499 */ t53074.tag = STRING_TYPE; t53074.value.string_type = t53073; t53070 = f14414(t53072, t53074); /* x130084 stalin.sc:16243:565516 */ t53071 = a25886; /* x130079 stalin.sc:16243:565491 */ return f13547(t53070, t53071);} /* C:TYPE-CAST[14421] */ struct structure_type24753 *f14421(struct w49 a25884, struct w49 a25885) {struct w49 t53075; struct w49 t53076; struct w49 t53077; char *t53078; struct w49 t53079; /* x130076 stalin.sc:16241:565433 */ /* x130074 stalin.sc:16241:565441 */ /* x130072 stalin.sc:16241:565449 */ t53077 = a25885; /* x130073 stalin.sc:16241:565451 */ t53078 = ""; /* x130071 stalin.sc:16241:565442 */ t53079.tag = STRING_TYPE; t53079.value.string_type = t53078; t53075 = f14374(t53077, t53079); /* x130075 stalin.sc:16241:565455 */ t53076 = a25884; /* x130070 stalin.sc:16241:565434 */ return f13547(t53075, t53076);} /* C:TYPE-SET[14414] */ struct w49 f14414(struct w49 a25882, struct w49 a25883) {struct structure_type24753 *a42051; /* CS */ struct structure_type24753 *a42052; /* CS */ struct structure_type24753 *a42094; /* CS */ struct w49 t53080; struct w49 t53081; struct w49 t53082; struct w49 t53083; struct w49 t53084; char *t53085; struct structure_type24753 *t53086; struct w49 t53087; struct structure_type24753 *t53088; struct w49 t53089; struct w49 t53090; struct w49 t53091; struct w49 t53092; struct w49 t53093; struct w49 t53094; struct structure_type24753 *t53095; struct w49 t53096; struct w49 t53097; struct w49 t53098; struct w49 t53099; struct w49 t53100; struct w49 t53101; struct w49 t53102; struct structure_type24753 *t53103; struct w49 t53104; struct w49 t53105; struct w49 t53106; struct w49 t53107; struct w49 t53108; char *t53109; /* x130067 stalin.sc:16234:565116 */ /* x130009 stalin.sc:16234:565123 */ /* x130008 stalin.sc:16234:565136 */ t53080 = a25882; /* x130007 stalin.sc:16234:565124 */ if (f8793(t53080)==FALSE_TYPE) goto l7579; /* x130013 */ /* x130012 */ /* x130011 stalin.sc:16234:565139 */ /* x130010 stalin.sc:16234:565140 */ /* x296617 QobiScheme.sc:166:5314 */ /* x296616 QobiScheme.sc:166:5321 */ t53109 = "This shouldn\'t happen"; /* x296615 QobiScheme.sc:166:5315 */ stalin_panic(t53109); l7579: /* x130066 */ /* x130016 stalin.sc:16235:565158 */ /* x130015 stalin.sc:16235:565172 */ t53081 = a25882; /* x130014 stalin.sc:16235:565159 */ if (f8148(t53081)==FALSE_TYPE) goto l7581; /* x130024 */ /* x130023 */ /* x130022 stalin.sc:16235:565175 */ /* x130020 stalin.sc:16235:565183 */ /* x130019 stalin.sc:16235:565195 */ t53108 = a25882; /* x130018 stalin.sc:16235:565184 */ t53106 = f8153(t53108); /* x130021 stalin.sc:16235:565198 */ t53107 = a25883; /* x130017 stalin.sc:16235:565176 */ return f14374(t53106, t53107); l7581: /* x130065 */ /* x130027 stalin.sc:16236:565210 */ /* x130026 stalin.sc:16236:565221 */ t53082 = a25882; /* x130025 stalin.sc:16236:565211 */ if (f13798(t53082)==FALSE_TYPE) goto l7583; /* x130033 */ /* x130032 */ /* x130031 stalin.sc:16236:565224 */ /* x130030 stalin.sc:16236:565245 */ t53102 = a25883; /* x130029 stalin.sc:16236:565239 */ t53101 = a1248; /* x130028 stalin.sc:16236:565225 */ t53105.tag = STRUCTURE_TYPE24753; t53105.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53105.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16236, 565224); out_of_memory_error();} t53105.value.structure_type24753->s0 = t53102; t53105.value.structure_type24753->s1.tag = NULL_TYPE; a42094 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42094==NULL) {backtrace("stalin.sc", 16236, 565224); out_of_memory_error();} a42094->s0 = t53101; a42094->s1 = t53105; /* x302488 stalin.sc:14386:505956 */ /* x302487 stalin.sc:14386:505972 */ t53103 = a42094; /* x302486 stalin.sc:14386:505957 */ t53104.tag = STRUCTURE_TYPE24753; t53104.value.structure_type24753 = t53103; return f13474(t53104); l7583: /* x130064 */ /* x130036 stalin.sc:16237:565257 */ /* x130035 stalin.sc:16237:565268 */ t53083 = a25882; /* x130034 stalin.sc:16237:565258 */ if (f13859(t53083)==FALSE_TYPE) goto l7585; /* x130044 */ /* x130043 */ /* x130042 stalin.sc:16237:565271 */ /* x130040 stalin.sc:16237:565279 */ /* x130039 stalin.sc:16237:565296 */ t53100 = a25882; /* x130038 stalin.sc:16237:565280 */ t53098 = f13854(t53100); /* x130041 stalin.sc:16237:565299 */ t53099 = a25883; /* x130037 stalin.sc:16237:565272 */ return f14374(t53098, t53099); l7585: /* x130063 */ /* x130047 stalin.sc:16238:565311 */ /* x130046 stalin.sc:16238:565322 */ t53084 = a25882; /* x130045 stalin.sc:16238:565312 */ if (f14024(t53084)==FALSE_TYPE) goto l7587; /* x130053 */ /* x130052 */ /* x130051 stalin.sc:16238:565325 */ /* x130050 stalin.sc:16238:565351 */ t53094 = a25883; /* x130049 stalin.sc:16238:565340 */ t53093 = a1247; /* x130048 stalin.sc:16238:565326 */ t53097.tag = STRUCTURE_TYPE24753; t53097.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53097.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16238, 565325); out_of_memory_error();} t53097.value.structure_type24753->s0 = t53094; t53097.value.structure_type24753->s1.tag = NULL_TYPE; a42051 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42051==NULL) {backtrace("stalin.sc", 16238, 565325); out_of_memory_error();} a42051->s0 = t53093; a42051->s1 = t53097; /* x302316 stalin.sc:14386:505956 */ /* x302315 stalin.sc:14386:505972 */ t53095 = a42051; /* x302314 stalin.sc:14386:505957 */ t53096.tag = STRUCTURE_TYPE24753; t53096.value.structure_type24753 = t53095; return f13474(t53096); l7587: /* x130062 */ /* x130061 */ /* x130060 stalin.sc:16239:565368 */ /* x130059 stalin.sc:16239:565400 */ t53087 = a25883; /* x130058 stalin.sc:16239:565392 */ /* x130057 stalin.sc:16239:565397 */ t53092 = a25882; /* x130056 stalin.sc:16239:565393 */ t53086 = f14317(t53092); /* x130055 stalin.sc:16239:565383 */ t53085 = "struct"; /* x130054 stalin.sc:16239:565369 */ t53091.tag = STRUCTURE_TYPE24753; t53091.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53091.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16239, 565368); out_of_memory_error();} t53091.value.structure_type24753->s0 = t53087; t53091.value.structure_type24753->s1.tag = NULL_TYPE; t53090.tag = STRUCTURE_TYPE24753; t53090.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53090.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16239, 565368); out_of_memory_error();} t53090.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t53090.value.structure_type24753->s0.value.structure_type24753 = t53086; t53090.value.structure_type24753->s1 = t53091; a42052 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42052==NULL) {backtrace("stalin.sc", 16239, 565368); out_of_memory_error();} a42052->s0.tag = STRING_TYPE; a42052->s0.value.string_type = t53085; a42052->s1 = t53090; /* x302320 stalin.sc:14386:505956 */ /* x302319 stalin.sc:14386:505972 */ t53088 = a42052; /* x302318 stalin.sc:14386:505957 */ t53089.tag = STRUCTURE_TYPE24753; t53089.value.structure_type24753 = t53088; return f13474(t53089);} /* C:TYPE&[14410] */ struct w49 f14410(struct w49 a25879, struct w61020 a25880) {struct w49 a37635; /* S */ struct w49 a37680; /* OBJ */ struct structure_type24753 *a42009; /* CS */ char *t53110; struct w61020 t53111; struct w61020 t53112; struct structure_type24753 *t53113; struct w49 t53114; struct w49 t53115; struct w49 t53116; struct w49 t53117; struct w49 t53118; struct w49 t53119; struct w49 t53120; struct w11873 t53121; struct w228245 t53122; struct w49 t53123; struct structure_type24753 *t53124; struct w49 t53125; struct w49 t53126; char *t53127; /* x130004 */ /* x130003 stalin.sc:16227:564904 */ /* x129996 stalin.sc:16227:564912 */ /* x129979 stalin.sc:16227:564917 */ /* x129978 stalin.sc:16227:564934 */ t53118 = a25879; /* x129977 stalin.sc:16227:564918 */ a37680 = t53118; /* x283389 */ /* x283388 */ t53119 = a37680; /* x283387 */ if (!((t53119.tag)==STRUCTURE_TYPE27769)) goto l7589; /* x129994 */ /* x129984 stalin.sc:16228:564944 */ /* x129983 stalin.sc:16228:564949 */ /* x129982 stalin.sc:16228:564976 */ t53120 = a25879; /* x129981 stalin.sc:16228:564950 */ if (!(f7429(t53120)==FALSE_TYPE)) goto l7589; /* x129992 */ /* x129991 stalin.sc:16229:564992 */ /* x129990 stalin.sc:16229:565011 */ /* x129989 stalin.sc:16229:565033 */ t53125 = a25879; /* x129988 stalin.sc:16229:565012 */ a37635 = t53125; /* x283209 */ /* x283208 */ t53126 = a37635; /* x283207 */ if (!((t53126.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32552]"); structure_ref_error();} t53121 = t53126.value.structure_type27769->s1; /* x129987 stalin.sc:16229:564999 */ /* x129986 stalin.sc:16229:564993 */ t53122.tag = NATIVE_PROCEDURE_TYPE7232; t53123 = *((struct w49 *)(&t53121)); t53124 = (struct structure_type24753 *)NULL_TYPE; if (!(f1061(t53122, t53123, t53124)==FALSE_TYPE)) goto l7589; /* x129998 */ /* x129997 */ goto l7590; l7589: /* x130002 */ /* x130001 */ /* x130000 stalin.sc:16230:565041 */ /* x129999 stalin.sc:16230:565042 */ /* x295457 QobiScheme.sc:166:5314 */ /* x295456 QobiScheme.sc:166:5321 */ t53127 = "This shouldn\'t happen"; /* x295455 QobiScheme.sc:166:5315 */ stalin_panic(t53127); l7590: /* x129976 */ /* x129975 stalin.sc:16231:565053 */ /* x129974 stalin.sc:16231:565085 */ t53112 = a25880; /* x129973 stalin.sc:16231:565077 */ /* x129972 stalin.sc:16231:565082 */ t53117 = a25879; /* x129971 stalin.sc:16231:565078 */ t53111 = f14289(t53117); /* x129970 stalin.sc:16231:565068 */ t53110 = "struct"; /* x129969 stalin.sc:16231:565054 */ t53116.tag = STRUCTURE_TYPE24753; t53116.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53116.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16231, 565053); out_of_memory_error();} t53116.value.structure_type24753->s0 = *((struct w49 *)(&t53112)); t53116.value.structure_type24753->s1.tag = NULL_TYPE; t53115.tag = STRUCTURE_TYPE24753; t53115.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53115.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16231, 565053); out_of_memory_error();} t53115.value.structure_type24753->s0 = *((struct w49 *)(&t53111)); t53115.value.structure_type24753->s1 = t53116; a42009 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42009==NULL) {backtrace("stalin.sc", 16231, 565053); out_of_memory_error();} a42009->s0.tag = STRING_TYPE; a42009->s0.value.string_type = t53110; a42009->s1 = t53115; /* x302148 stalin.sc:14386:505956 */ /* x302147 stalin.sc:14386:505972 */ t53113 = a42009; /* x302146 stalin.sc:14386:505957 */ t53114.tag = STRUCTURE_TYPE24753; t53114.value.structure_type24753 = t53113; return f13474(t53114);} /* C:TYPE[14374] */ struct w49 f14374(struct w49 a25865, struct w49 a25866) {struct structure_type24753 *a25247; /* CS */ char *a25869; /* v */ char *a25877; /* v */ struct w49 a36750; /* OBJ */ struct w49 a36751; /* OBJ */ struct w49 a37337; /* OBJ */ struct w49 a37434; /* OBJ */ struct w49 a37550; /* OBJ */ struct w49 a37693; /* OBJ */ struct w49 a37767; /* OBJ */ struct w49 a37888; /* OBJ */ struct w49 a38006; /* S */ struct w49 a38100; /* OBJ */ struct w49 a38278; /* OBJ */ struct structure_type24753 *a41940; /* CS */ struct structure_type24753 *a41941; /* CS */ struct structure_type24753 *a42005; /* CS */ struct structure_type24753 *a42006; /* CS */ struct structure_type24753 *a42010; /* CS */ struct structure_type24753 *a42011; /* CS */ struct structure_type24753 *a42049; /* CS */ struct structure_type24753 *a42053; /* CS */ struct structure_type24753 *a42054; /* CS */ struct structure_type24753 *a42055; /* CS */ struct structure_type24753 *a42056; /* CS */ struct structure_type24753 *a42057; /* CS */ struct structure_type24753 *a42058; /* CS */ struct structure_type24753 *a42059; /* CS */ struct structure_type24753 *a42060; /* CS */ struct structure_type24753 *a42061; /* CS */ struct structure_type24753 *a42062; /* CS */ struct structure_type24753 *a42063; /* CS */ struct structure_type24753 *a42064; /* CS */ struct structure_type24753 *a42065; /* CS */ struct structure_type24753 *a42066; /* CS */ struct structure_type24753 *a42067; /* CS */ struct w49 t53128; struct w49 t53129; struct w49 t53130; struct w49 t53131; struct w49 t53132; struct w49 t53133; struct w49 t53134; struct w49 t53135; struct w49 t53136; struct w49 t53137; struct w49 t53138; struct w49 t53139; struct w49 t53140; struct w49 t53141; struct w49 t53142; struct w49 t53143; struct w49 t53144; struct w49 t53145; struct w49 t53146; struct w49 t53147; struct w49 t53148; struct w49 t53149; struct w49 t53150; char *t53151; char *t53152; char *t53153; struct w49 t53154; struct w49 t53155; char *t53156; char *t53157; struct w49 t53158; struct w49 t53159; char *t53160; char *t53161; struct w49 t53162; struct w49 t53163; char *t53164; char *t53165; struct w49 t53166; struct w49 t53167; struct w49 t53168; struct structure_type24753 *t53169; struct w49 t53170; struct w49 t53171; struct w49 t53172; char *t53173; struct w49 t53174; char *t53175; struct w61020 t53176; struct w49 t53177; struct structure_type24753 *t53178; struct w49 t53179; struct w49 t53180; struct w49 t53181; struct w49 t53182; struct w49 t53183; struct w49 t53184; struct structure_type24753 *t53185; struct w49 t53186; struct w49 t53187; struct w49 t53188; char *t53189; struct w61020 t53190; struct w49 t53191; struct structure_type24753 *t53192; struct w49 t53193; struct w49 t53194; struct w49 t53195; struct w49 t53196; struct w49 t53197; struct w49 t53198; struct structure_type24753 *t53199; struct w49 t53200; struct w49 t53201; struct w49 t53202; char *t53203; struct w61020 t53204; struct structure_type24753 *t53205; struct structure_type24753 *t53206; struct w49 t53207; struct w49 t53208; struct w49 t53209; struct w49 t53210; struct w49 t53211; struct w49 t53212; struct w49 t53213; struct structure_type24753 *t53214; struct w49 t53215; struct w49 t53216; struct w49 t53217; char *t53218; struct w61020 t53219; struct structure_type24753 *t53220; struct structure_type24753 *t53221; struct w49 t53222; struct w49 t53223; struct w49 t53224; struct w49 t53225; struct w49 t53226; char *t53227; struct w61020 t53228; struct w49 t53229; struct structure_type24753 *t53230; struct w49 t53231; struct w49 t53232; struct w49 t53233; struct w49 t53234; struct w49 t53235; struct structure_type24753 *t53236; struct structure_type24753 *t53237; struct w49 t53238; struct w49 t53239; struct w49 t53240; struct w49 t53241; struct structure_type24753 *t53242; struct structure_type24753 *t53243; struct w49 t53244; struct w49 t53245; struct w49 t53246; char *t53247; struct w49 t53248; char *t53249; char *t53250; char *t53251; struct w49 t53252; struct w49 t53253; char *t53254; char *t53255; struct w49 t53256; struct w49 t53257; char *t53258; char *t53259; struct w49 t53260; struct w49 t53261; char *t53262; char *t53263; struct w49 t53264; struct w49 t53265; char *t53266; char *t53267; struct w49 t53268; struct w49 t53269; char *t53270; char *t53271; char *t53272; char *t53273; char *t53274; struct w49 t53275; struct w49 t53276; struct w49 t53277; struct w49 t53278; struct w49 t53279; struct w49 t53280; struct w49 t53281; struct w49 t53282; struct w49 t53283; struct w49 t53284; struct w49 t53285; char *t53286; struct structure_type24753 *t53287; struct structure_type24753 *t53288; struct structure_type24753 *t53289; struct w49 t53290; struct w49 t53291; struct w49 t53292; struct w49 t53293; struct w49 t53294; struct w49 t53295; struct w49 t53296; struct w49 t53297; struct w49 t53298; struct structure_type24753 *t53299; struct w49 t53300; struct w49 t53301; struct w49 t53302; char *t53303; char *t53304; struct structure_type24753 *t53305; struct structure_type24753 *t53306; struct structure_type24753 *t53307; struct w49 t53308; struct w49 t53309; struct w49 t53310; struct w49 t53311; struct w49 t53312; char *t53313; struct structure_type24753 *t53314; struct w49 t53315; struct structure_type24753 *t53316; struct w49 t53317; struct w49 t53318; struct w49 t53319; struct w49 t53320; struct w49 t53321; struct structure_type24753 *t53322; struct structure_type24753 *t53323; struct w49 t53324; struct w49 t53325; struct w49 t53326; char *t53327; struct structure_type24753 *t53328; struct structure_type24753 *t53329; struct w49 t53330; struct w49 t53331; struct w49 t53332; struct w49 t53333; struct structure_type24753 *t53334; struct structure_type24753 *t53335; struct w49 t53336; struct w49 t53337; struct w49 t53338; char *t53339; struct w49 t53340; struct w49 t53341; struct structure_type24753 *t53342; struct structure_type24753 *t53343; struct w49 t53344; struct w49 t53345; struct w49 t53346; char *t53347; struct w49 t53348; char *t53349; char *t53350; struct w49 t53351; struct structure_type24753 *t53352; struct w49 t53353; struct w49 t53354; struct w49 t53355; struct w49 t53356; struct w49 t53357; struct structure_type24753 *t53358; struct w49 t53359; struct w49 t53360; struct w49 t53361; struct w49 t53362; struct structure_type24753 *t53363; struct w49 t53364; struct w49 t53365; struct w49 t53366; struct w49 t53367; struct structure_type24753 *t53368; struct w49 t53369; struct w49 t53370; /* x129966 stalin.sc:16172:562683 */ /* x129564 stalin.sc:16173:562692 */ /* x129563 stalin.sc:16173:562704 */ t53128 = a25865; /* x129562 stalin.sc:16173:562693 */ if (f7682(t53128)==FALSE_TYPE) goto l7594; /* x129570 */ /* x129569 */ /* x129568 stalin.sc:16173:562707 */ /* x129567 stalin.sc:16173:562729 */ t53367 = a25866; /* x129566 stalin.sc:16173:562722 */ t53366 = a1252; /* x129565 stalin.sc:16173:562708 */ t53370.tag = STRUCTURE_TYPE24753; t53370.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53370.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16173, 562707); out_of_memory_error();} t53370.value.structure_type24753->s0 = t53367; t53370.value.structure_type24753->s1.tag = NULL_TYPE; a42053 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42053==NULL) {backtrace("stalin.sc", 16173, 562707); out_of_memory_error();} a42053->s0 = t53366; a42053->s1 = t53370; /* x302324 stalin.sc:14386:505956 */ /* x302323 stalin.sc:14386:505972 */ t53368 = a42053; /* x302322 stalin.sc:14386:505957 */ t53369.tag = STRUCTURE_TYPE24753; t53369.value.structure_type24753 = t53368; return f13474(t53369); l7594: /* x129965 */ /* x129573 stalin.sc:16174:562736 */ /* x129572 stalin.sc:16174:562750 */ t53129 = a25865; /* x129571 stalin.sc:16174:562737 */ if (f7683(t53129)==FALSE_TYPE) goto l7596; /* x129579 */ /* x129578 */ /* x129577 stalin.sc:16174:562753 */ /* x129576 stalin.sc:16174:562777 */ t53362 = a25866; /* x129575 stalin.sc:16174:562768 */ t53361 = a1251; /* x129574 stalin.sc:16174:562754 */ t53365.tag = STRUCTURE_TYPE24753; t53365.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53365.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16174, 562753); out_of_memory_error();} t53365.value.structure_type24753->s0 = t53362; t53365.value.structure_type24753->s1.tag = NULL_TYPE; a42054 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42054==NULL) {backtrace("stalin.sc", 16174, 562753); out_of_memory_error();} a42054->s0 = t53361; a42054->s1 = t53365; /* x302328 stalin.sc:14386:505956 */ /* x302327 stalin.sc:14386:505972 */ t53363 = a42054; /* x302326 stalin.sc:14386:505957 */ t53364.tag = STRUCTURE_TYPE24753; t53364.value.structure_type24753 = t53363; return f13474(t53364); l7596: /* x129964 */ /* x129582 stalin.sc:16175:562784 */ /* x129581 stalin.sc:16175:562798 */ t53130 = a25865; /* x129580 stalin.sc:16175:562785 */ if (f7684(t53130)==FALSE_TYPE) goto l7598; /* x129588 */ /* x129587 */ /* x129586 stalin.sc:16175:562801 */ /* x129585 stalin.sc:16175:562825 */ t53357 = a25866; /* x129584 stalin.sc:16175:562816 */ t53356 = a1250; /* x129583 stalin.sc:16175:562802 */ t53360.tag = STRUCTURE_TYPE24753; t53360.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53360.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16175, 562801); out_of_memory_error();} t53360.value.structure_type24753->s0 = t53357; t53360.value.structure_type24753->s1.tag = NULL_TYPE; a42055 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42055==NULL) {backtrace("stalin.sc", 16175, 562801); out_of_memory_error();} a42055->s0 = t53356; a42055->s1 = t53360; /* x302332 stalin.sc:14386:505956 */ /* x302331 stalin.sc:14386:505972 */ t53358 = a42055; /* x302330 stalin.sc:14386:505957 */ t53359.tag = STRUCTURE_TYPE24753; t53359.value.structure_type24753 = t53358; return f13474(t53359); l7598: /* x129963 */ /* x129591 stalin.sc:16176:562832 */ /* x129590 stalin.sc:16176:562851 */ t53131 = a25865; /* x129589 stalin.sc:16176:562833 */ if (f7687(t53131)==FALSE_TYPE) goto l7600; /* x129598 */ /* x129597 */ /* x129596 stalin.sc:16176:562854 */ /* x129595 stalin.sc:16176:562892 */ t53351 = a25866; /* x129594 stalin.sc:16176:562878 */ t53350 = "rectangular"; /* x129593 stalin.sc:16176:562869 */ t53349 = "struct"; /* x129592 stalin.sc:16176:562855 */ t53355.tag = STRUCTURE_TYPE24753; t53355.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53355.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16176, 562854); out_of_memory_error();} t53355.value.structure_type24753->s0 = t53351; t53355.value.structure_type24753->s1.tag = NULL_TYPE; t53354.tag = STRUCTURE_TYPE24753; t53354.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53354.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16176, 562854); out_of_memory_error();} t53354.value.structure_type24753->s0.tag = STRING_TYPE; t53354.value.structure_type24753->s0.value.string_type = t53350; t53354.value.structure_type24753->s1 = t53355; a42056 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42056==NULL) {backtrace("stalin.sc", 16176, 562854); out_of_memory_error();} a42056->s0.tag = STRING_TYPE; a42056->s0.value.string_type = t53349; a42056->s1 = t53354; /* x302336 stalin.sc:14386:505956 */ /* x302335 stalin.sc:14386:505972 */ t53352 = a42056; /* x302334 stalin.sc:14386:505957 */ t53353.tag = STRUCTURE_TYPE24753; t53353.value.structure_type24753 = t53352; return f13474(t53353); l7600: /* x129962 */ /* x129601 stalin.sc:16177:562899 */ /* x129600 stalin.sc:16177:562917 */ t53132 = a25865; /* x129599 stalin.sc:16177:562900 */ if (f7700(t53132)==FALSE_TYPE) goto l7602; /* x129614 */ /* x129613 */ /* x129612 */ /* x129611 stalin.sc:16178:562923 */ /* x129610 stalin.sc:16178:562933 */ t53347 = "stdio"; /* x129609 stalin.sc:16178:562924 */ t53348.tag = STRING_TYPE; t53348.value.string_type = t53347; f18320(t53348); /* x129608 */ /* x129607 stalin.sc:16179:562953 */ /* x129606 stalin.sc:16179:562975 */ /* x129605 stalin.sc:16179:562988 */ t53346 = a25866; /* x129604 stalin.sc:16179:562976 */ t53342 = f13516(t53346); /* x129603 stalin.sc:16179:562968 */ t53341 = a1245; /* x129602 stalin.sc:16179:562954 */ t53345.tag = STRUCTURE_TYPE24753; t53345.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53345.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16179, 562953); out_of_memory_error();} t53345.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t53345.value.structure_type24753->s0.value.structure_type24753 = t53342; t53345.value.structure_type24753->s1.tag = NULL_TYPE; a42057 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42057==NULL) {backtrace("stalin.sc", 16179, 562953); out_of_memory_error();} a42057->s0 = t53341; a42057->s1 = t53345; /* x302340 stalin.sc:14386:505956 */ /* x302339 stalin.sc:14386:505972 */ t53343 = a42057; /* x302338 stalin.sc:14386:505957 */ t53344.tag = STRUCTURE_TYPE24753; t53344.value.structure_type24753 = t53343; return f13474(t53344); l7602: /* x129961 */ /* x129617 stalin.sc:16180:562996 */ /* x129616 stalin.sc:16180:563015 */ t53133 = a25865; /* x129615 stalin.sc:16180:562997 */ if (f7701(t53133)==FALSE_TYPE) goto l7604; /* x129630 */ /* x129629 */ /* x129628 */ /* x129627 stalin.sc:16181:563021 */ /* x129626 stalin.sc:16181:563031 */ t53339 = "stdio"; /* x129625 stalin.sc:16181:563022 */ t53340.tag = STRING_TYPE; t53340.value.string_type = t53339; f18320(t53340); /* x129624 */ /* x129623 stalin.sc:16182:563051 */ /* x129622 stalin.sc:16182:563073 */ /* x129621 stalin.sc:16182:563086 */ t53338 = a25866; /* x129620 stalin.sc:16182:563074 */ t53334 = f13516(t53338); /* x129619 stalin.sc:16182:563066 */ t53333 = a1245; /* x129618 stalin.sc:16182:563052 */ t53337.tag = STRUCTURE_TYPE24753; t53337.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53337.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16182, 563051); out_of_memory_error();} t53337.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t53337.value.structure_type24753->s0.value.structure_type24753 = t53334; t53337.value.structure_type24753->s1.tag = NULL_TYPE; a42058 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42058==NULL) {backtrace("stalin.sc", 16182, 563051); out_of_memory_error();} a42058->s0 = t53333; a42058->s1 = t53337; /* x302344 stalin.sc:14386:505956 */ /* x302343 stalin.sc:14386:505972 */ t53335 = a42058; /* x302342 stalin.sc:14386:505957 */ t53336.tag = STRUCTURE_TYPE24753; t53336.value.structure_type24753 = t53335; return f13474(t53336); l7604: /* x129960 */ /* x129633 stalin.sc:16183:563094 */ /* x129632 stalin.sc:16183:563109 */ t53134 = a25865; /* x129631 stalin.sc:16183:563095 */ if (f7703(t53134)==FALSE_TYPE) goto l7606; /* x129641 */ /* x129640 */ /* x129639 stalin.sc:16183:563112 */ /* x129638 stalin.sc:16183:563134 */ /* x129637 stalin.sc:16183:563147 */ t53332 = a25866; /* x129636 stalin.sc:16183:563135 */ t53328 = f13516(t53332); /* x129635 stalin.sc:16183:563127 */ t53327 = "void"; /* x129634 stalin.sc:16183:563113 */ t53331.tag = STRUCTURE_TYPE24753; t53331.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53331.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16183, 563112); out_of_memory_error();} t53331.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t53331.value.structure_type24753->s0.value.structure_type24753 = t53328; t53331.value.structure_type24753->s1.tag = NULL_TYPE; a42059 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42059==NULL) {backtrace("stalin.sc", 16183, 563112); out_of_memory_error();} a42059->s0.tag = STRING_TYPE; a42059->s0.value.string_type = t53327; a42059->s1 = t53331; /* x302348 stalin.sc:14386:505956 */ /* x302347 stalin.sc:14386:505972 */ t53329 = a42059; /* x302346 stalin.sc:14386:505957 */ t53330.tag = STRUCTURE_TYPE24753; t53330.value.structure_type24753 = t53329; return f13474(t53330); l7606: /* x129959 */ /* x129644 stalin.sc:16184:563155 */ /* x129643 stalin.sc:16184:563178 */ t53135 = a25865; /* x129642 stalin.sc:16184:563156 */ a38278 = t53135; /* x285781 */ /* x285780 */ t53136 = a38278; /* x285779 */ if (!((t53136.tag)==STRUCTURE_TYPE27779)) goto l7608; /* x129652 */ /* x129651 */ /* x129650 stalin.sc:16184:563181 */ /* x129649 stalin.sc:16184:563203 */ /* x129648 stalin.sc:16184:563216 */ t53326 = a25866; /* x129647 stalin.sc:16184:563204 */ t53322 = f13516(t53326); /* x129646 stalin.sc:16184:563196 */ t53321 = a1252; /* x129645 stalin.sc:16184:563182 */ t53325.tag = STRUCTURE_TYPE24753; t53325.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53325.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16184, 563181); out_of_memory_error();} t53325.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t53325.value.structure_type24753->s0.value.structure_type24753 = t53322; t53325.value.structure_type24753->s1.tag = NULL_TYPE; a41941 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41941==NULL) {backtrace("stalin.sc", 16184, 563181); out_of_memory_error();} a41941->s0 = t53321; a41941->s1 = t53325; /* x301876 stalin.sc:14386:505956 */ /* x301875 stalin.sc:14386:505972 */ t53323 = a41941; /* x301874 stalin.sc:14386:505957 */ t53324.tag = STRUCTURE_TYPE24753; t53324.value.structure_type24753 = t53323; return f13474(t53324); l7608: /* x129958 */ /* x129655 stalin.sc:16185:563224 */ /* x129654 stalin.sc:16185:563248 */ t53137 = a25865; /* x129653 stalin.sc:16185:563225 */ a38100 = t53137; /* x285069 */ /* x285068 */ t53138 = a38100; /* x285067 */ if (!((t53138.tag)==STRUCTURE_TYPE27756)) goto l7610; /* x129796 */ /* x129795 */ /* x129794 stalin.sc:16186:563254 */ /* x129793 stalin.sc:16186:563260 */ t53249 = a686; /* x129792 */ a25869 = t53249; /* x129791 */ /* x129668 */ /* x129667 */ /* x129665 */ t53250 = a25869; /* x129666 */ t53251 = q18; /* x129664 */ /* MOVE: branching squeezed to general */ if (t53250>=((char *)VALUE_OFFSET)) {t53252.tag = EXTERNAL_SYMBOL_TYPE; t53252.value.external_symbol_type = t53250;} else t53252.tag = (unsigned)t53250; t53253.tag = EXTERNAL_SYMBOL_TYPE; t53253.value.external_symbol_type = t53251; if (!(f26160(t53252, t53253)==FALSE_TYPE)) goto l7636; /* x129661 */ /* x129659 */ t53254 = a25869; /* x129660 */ t53255 = q20; /* x129658 */ /* MOVE: branching squeezed to general */ if (t53254>=((char *)VALUE_OFFSET)) {t53256.tag = EXTERNAL_SYMBOL_TYPE; t53256.value.external_symbol_type = t53254;} else t53256.tag = (unsigned)t53254; t53257.tag = EXTERNAL_SYMBOL_TYPE; t53257.value.external_symbol_type = t53255; if (f26160(t53256, t53257)==FALSE_TYPE) goto l7637; l7636: /* x129677 */ /* x129676 */ /* x129675 stalin.sc:16187:563325 */ /* x129674 stalin.sc:16187:563357 */ t53315 = a25866; /* x129673 stalin.sc:16187:563349 */ /* x129672 stalin.sc:16187:563354 */ t53320 = a25865; /* x129671 stalin.sc:16187:563350 */ t53314 = f14281(t53320); /* x129670 stalin.sc:16187:563340 */ t53313 = "struct"; /* x129669 stalin.sc:16187:563326 */ t53319.tag = STRUCTURE_TYPE24753; t53319.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53319.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16187, 563325); out_of_memory_error();} t53319.value.structure_type24753->s0 = t53315; t53319.value.structure_type24753->s1.tag = NULL_TYPE; t53318.tag = STRUCTURE_TYPE24753; t53318.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53318.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16187, 563325); out_of_memory_error();} t53318.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t53318.value.structure_type24753->s0.value.structure_type24753 = t53314; t53318.value.structure_type24753->s1 = t53319; a42060 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42060==NULL) {backtrace("stalin.sc", 16187, 563325); out_of_memory_error();} a42060->s0.tag = STRING_TYPE; a42060->s0.value.string_type = t53313; a42060->s1 = t53318; /* x302352 stalin.sc:14386:505956 */ /* x302351 stalin.sc:14386:505972 */ t53316 = a42060; /* x302350 stalin.sc:14386:505957 */ t53317.tag = STRUCTURE_TYPE24753; t53317.value.structure_type24753 = t53316; return f13474(t53317); l7637: /* x129790 */ /* x129690 */ /* x129689 */ /* x129687 */ t53258 = a25869; /* x129688 */ t53259 = q19; /* x129686 */ /* MOVE: branching squeezed to general */ if (t53258>=((char *)VALUE_OFFSET)) {t53260.tag = EXTERNAL_SYMBOL_TYPE; t53260.value.external_symbol_type = t53258;} else t53260.tag = (unsigned)t53258; t53261.tag = EXTERNAL_SYMBOL_TYPE; t53261.value.external_symbol_type = t53259; if (!(f26160(t53260, t53261)==FALSE_TYPE)) goto l7639; /* x129683 */ /* x129681 */ t53262 = a25869; /* x129682 */ t53263 = q21; /* x129680 */ /* MOVE: branching squeezed to general */ if (t53262>=((char *)VALUE_OFFSET)) {t53264.tag = EXTERNAL_SYMBOL_TYPE; t53264.value.external_symbol_type = t53262;} else t53264.tag = (unsigned)t53262; t53265.tag = EXTERNAL_SYMBOL_TYPE; t53265.value.external_symbol_type = t53263; if (f26160(t53264, t53265)==FALSE_TYPE) goto l7640; l7639: /* x129701 */ /* x129700 */ /* x129699 stalin.sc:16189:563404 */ /* x129698 stalin.sc:16189:563436 */ /* x129697 stalin.sc:16189:563449 */ t53312 = a25866; /* x129696 stalin.sc:16189:563437 */ t53306 = f13516(t53312); /* x129695 stalin.sc:16189:563428 */ /* x129694 stalin.sc:16189:563433 */ t53311 = a25865; /* x129693 stalin.sc:16189:563429 */ t53305 = f14281(t53311); /* x129692 stalin.sc:16189:563419 */ t53304 = "struct"; /* x129691 stalin.sc:16189:563405 */ t53310.tag = STRUCTURE_TYPE24753; t53310.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53310.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16189, 563404); out_of_memory_error();} t53310.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t53310.value.structure_type24753->s0.value.structure_type24753 = t53306; t53310.value.structure_type24753->s1.tag = NULL_TYPE; t53309.tag = STRUCTURE_TYPE24753; t53309.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53309.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16189, 563404); out_of_memory_error();} t53309.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t53309.value.structure_type24753->s0.value.structure_type24753 = t53305; t53309.value.structure_type24753->s1 = t53310; a42061 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42061==NULL) {backtrace("stalin.sc", 16189, 563404); out_of_memory_error();} a42061->s0.tag = STRING_TYPE; a42061->s0.value.string_type = t53304; a42061->s1 = t53309; /* x302356 stalin.sc:14386:505956 */ /* x302355 stalin.sc:14386:505972 */ t53307 = a42061; /* x302354 stalin.sc:14386:505957 */ t53308.tag = STRUCTURE_TYPE24753; t53308.value.structure_type24753 = t53307; return f13474(t53308); l7640: /* x129789 */ /* x129705 */ /* x129703 */ t53266 = a25869; /* x129704 */ t53267 = q22; /* x129702 */ /* MOVE: branching squeezed to general */ if (t53266>=((char *)VALUE_OFFSET)) {t53268.tag = EXTERNAL_SYMBOL_TYPE; t53268.value.external_symbol_type = t53266;} else t53268.tag = (unsigned)t53266; t53269.tag = EXTERNAL_SYMBOL_TYPE; t53269.value.external_symbol_type = t53267; if (f26160(t53268, t53269)==FALSE_TYPE) goto l7643; /* x129784 */ /* x129783 */ /* x129782 stalin.sc:16191:563473 */ /* x129763 stalin.sc:16191:563477 */ /* x129718 stalin.sc:16191:563482 */ /* x129717 stalin.sc:16191:563486 */ /* x129715 stalin.sc:16191:563491 */ t53271 = a687; /* x129716 stalin.sc:16191:563519 */ t53272 = q15; /* x268892 stalin.sc:16191:563487 */ if (t53271==t53272) goto l7646; /* x129711 */ /* x129709 stalin.sc:16192:563539 */ t53273 = a687; /* x129710 stalin.sc:16192:563567 */ t53274 = q16; /* x268893 stalin.sc:16192:563535 */ if (!(t53273==t53274)) goto l7645; l7646: /* x129761 */ /* x129760 stalin.sc:16193:563594 */ /* x129759 stalin.sc:16193:563599 */ /* x129758 stalin.sc:16194:563616 */ /* x129757 stalin.sc:16194:563656 */ t53277 = a25865; /* x129756 stalin.sc:16194:563617 */ a38006 = t53277; /* x284693 */ /* x284692 */ t53278 = a38006; /* x284691 */ if (!((t53278.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-NARROW-PROTOTYPE[5953] 32923]"); structure_ref_error();} t53275 = t53278.value.structure_type27756->s1; /* x129755 stalin.sc:16193:563600 */ a36751 = t53275; /* x279673 */ /* x279672 */ t53276 = a36751; /* x279671 */ if (!((t53276.tag)==STRUCTURE_TYPE27694)) goto l7644; /* x129751 */ /* x129750 stalin.sc:16195:563665 */ /* x129749 stalin.sc:16195:563670 */ /* x129748 stalin.sc:16195:563689 */ /* x129747 stalin.sc:16195:563707 */ t53280 = a25865; /* x129746 stalin.sc:16195:563690 */ t53279 = f8966(t53280); /* x129745 stalin.sc:16195:563671 */ if (f8526(t53279)==FALSE_TYPE) goto l7644; /* x129741 */ /* x129740 stalin.sc:16196:563716 */ /* x129739 stalin.sc:16196:563721 */ /* x129738 stalin.sc:16196:563735 */ /* x129737 stalin.sc:16196:563753 */ t53283 = a25865; /* x129736 stalin.sc:16196:563736 */ t53281 = f8965(t53283); /* x129735 stalin.sc:16196:563722 */ a36750 = t53281; /* x279669 */ /* x279668 */ t53282 = a36750; /* x279667 */ if (!((t53282.tag)==STRUCTURE_TYPE27694)) goto l7644; /* x129731 */ /* x129730 stalin.sc:16197:563767 */ /* x129729 stalin.sc:16197:563786 */ /* x129728 stalin.sc:16197:563804 */ t53285 = a25865; /* x129727 stalin.sc:16197:563787 */ t53284 = f8965(t53285); /* x129726 stalin.sc:16197:563768 */ if (!(f8526(t53284)==FALSE_TYPE)) goto l7645; l7644: /* x129770 stalin.sc:16198:563813 */ /* x129769 stalin.sc:16198:563853 */ t53298 = a25866; /* x129768 stalin.sc:16198:563844 */ t53297 = a1251; /* x129767 stalin.sc:16198:563828 */ /* x129766 stalin.sc:16198:563836 */ t53303 = "fake"; /* x129765 stalin.sc:16198:563829 */ t53296 = f13634(t53303); /* x129764 stalin.sc:16198:563814 */ t53302.tag = STRUCTURE_TYPE24753; t53302.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53302.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16198, 563813); out_of_memory_error();} t53302.value.structure_type24753->s0 = t53298; t53302.value.structure_type24753->s1.tag = NULL_TYPE; t53301.tag = STRUCTURE_TYPE24753; t53301.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53301.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16198, 563813); out_of_memory_error();} t53301.value.structure_type24753->s0 = t53297; t53301.value.structure_type24753->s1 = t53302; a42062 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42062==NULL) {backtrace("stalin.sc", 16198, 563813); out_of_memory_error();} a42062->s0 = t53296; a42062->s1 = t53301; /* x302360 stalin.sc:14386:505956 */ /* x302359 stalin.sc:14386:505972 */ t53299 = a42062; /* x302358 stalin.sc:14386:505957 */ t53300.tag = STRUCTURE_TYPE24753; t53300.value.structure_type24753 = t53299; return f13474(t53300); l7645: /* x129781 stalin.sc:16199:563858 */ /* x129780 stalin.sc:16199:563909 */ /* x129779 stalin.sc:16199:563922 */ t53295 = a25866; /* x129778 stalin.sc:16199:563910 */ t53288 = f13516(t53295); /* x129777 stalin.sc:16199:563882 */ /* x129776 stalin.sc:16199:563887 */ /* x129775 stalin.sc:16199:563905 */ t53294 = a25865; /* x129774 stalin.sc:16199:563888 */ t53293 = f8965(t53294); /* x129773 stalin.sc:16199:563883 */ t53287 = f14281(t53293); /* x129772 stalin.sc:16199:563873 */ t53286 = "struct"; /* x129771 stalin.sc:16199:563859 */ t53292.tag = STRUCTURE_TYPE24753; t53292.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53292.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16199, 563858); out_of_memory_error();} t53292.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t53292.value.structure_type24753->s0.value.structure_type24753 = t53288; t53292.value.structure_type24753->s1.tag = NULL_TYPE; t53291.tag = STRUCTURE_TYPE24753; t53291.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53291.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16199, 563858); out_of_memory_error();} t53291.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t53291.value.structure_type24753->s0.value.structure_type24753 = t53287; t53291.value.structure_type24753->s1 = t53292; a42063 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42063==NULL) {backtrace("stalin.sc", 16199, 563858); out_of_memory_error();} a42063->s0.tag = STRING_TYPE; a42063->s0.value.string_type = t53286; a42063->s1 = t53291; /* x302364 stalin.sc:14386:505956 */ /* x302363 stalin.sc:14386:505972 */ t53289 = a42063; /* x302362 stalin.sc:14386:505957 */ t53290.tag = STRUCTURE_TYPE24753; t53290.value.structure_type24753 = t53289; return f13474(t53290); l7643: /* x129788 */ /* x129787 */ /* x129786 stalin.sc:16200:563938 */ /* x129785 stalin.sc:16200:563939 */ /* x296153 QobiScheme.sc:166:5314 */ /* x296152 QobiScheme.sc:166:5321 */ t53270 = "This shouldn\'t happen"; /* x296151 QobiScheme.sc:166:5315 */ stalin_panic(t53270); l7610: /* x129957 */ /* x129799 stalin.sc:16201:563954 */ /* x129798 stalin.sc:16201:563974 */ t53139 = a25865; /* x129797 stalin.sc:16201:563955 */ a37888 = t53139; /* x284221 */ /* x284220 */ t53140 = a37888; /* x284219 */ if (!((t53140.tag)==STRUCTURE_TYPE27858)) goto l7612; /* x129812 */ /* x129811 */ /* x129810 */ /* x129809 stalin.sc:16202:563980 */ /* x129808 stalin.sc:16202:563990 */ t53247 = "setjmp"; /* x129807 stalin.sc:16202:563981 */ t53248.tag = STRING_TYPE; t53248.value.string_type = t53247; f18320(t53248); /* x129806 */ /* x129805 stalin.sc:16203:564014 */ /* x129804 stalin.sc:16203:564038 */ /* x129803 stalin.sc:16203:564051 */ t53246 = a25866; /* x129802 stalin.sc:16203:564039 */ t53242 = f13516(t53246); /* x129801 stalin.sc:16203:564029 */ t53241 = a1244; /* x129800 stalin.sc:16203:564015 */ t53245.tag = STRUCTURE_TYPE24753; t53245.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53245.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16203, 564014); out_of_memory_error();} t53245.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t53245.value.structure_type24753->s0.value.structure_type24753 = t53242; t53245.value.structure_type24753->s1.tag = NULL_TYPE; a42049 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42049==NULL) {backtrace("stalin.sc", 16203, 564014); out_of_memory_error();} a42049->s0 = t53241; a42049->s1 = t53245; /* x302308 stalin.sc:14386:505956 */ /* x302307 stalin.sc:14386:505972 */ t53243 = a42049; /* x302306 stalin.sc:14386:505957 */ t53244.tag = STRUCTURE_TYPE24753; t53244.value.structure_type24753 = t53243; return f13474(t53244); l7612: /* x129956 */ /* x129815 stalin.sc:16204:564059 */ /* x129814 stalin.sc:16204:564073 */ t53141 = a25865; /* x129813 stalin.sc:16204:564060 */ a37767 = t53141; /* x283737 */ /* x283736 */ t53142 = a37767; /* x283735 */ if (!((t53142.tag)==STRUCTURE_TYPE27673)) goto l7614; /* x129823 */ /* x129822 */ /* x129821 stalin.sc:16204:564076 */ /* x129820 stalin.sc:16204:564098 */ /* x129819 stalin.sc:16204:564111 */ t53240 = a25866; /* x129818 stalin.sc:16204:564099 */ t53236 = f13516(t53240); /* x129817 stalin.sc:16204:564091 */ t53235 = a1252; /* x129816 stalin.sc:16204:564077 */ t53239.tag = STRUCTURE_TYPE24753; t53239.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53239.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16204, 564076); out_of_memory_error();} t53239.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t53239.value.structure_type24753->s0.value.structure_type24753 = t53236; t53239.value.structure_type24753->s1.tag = NULL_TYPE; a42064 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42064==NULL) {backtrace("stalin.sc", 16204, 564076); out_of_memory_error();} a42064->s0 = t53235; a42064->s1 = t53239; /* x302368 stalin.sc:14386:505956 */ /* x302367 stalin.sc:14386:505972 */ t53237 = a42064; /* x302366 stalin.sc:14386:505957 */ t53238.tag = STRUCTURE_TYPE24753; t53238.value.structure_type24753 = t53237; return f13474(t53238); l7614: /* x129955 */ /* x129826 stalin.sc:16205:564119 */ /* x129825 stalin.sc:16205:564136 */ t53143 = a25865; /* x129824 stalin.sc:16205:564120 */ a37693 = t53143; /* x283441 */ /* x283440 */ t53144 = a37693; /* x283439 */ if (!((t53144.tag)==STRUCTURE_TYPE27769)) goto l7616; /* x129848 */ /* x129847 */ /* x129846 stalin.sc:16206:564142 */ /* x129829 stalin.sc:16206:564146 */ /* x129828 stalin.sc:16206:564173 */ t53217 = a25865; /* x129827 stalin.sc:16206:564147 */ if (f7429(t53217)==FALSE_TYPE) goto l7635; /* x129836 stalin.sc:16207:564183 */ /* x129835 stalin.sc:16207:564215 */ t53229 = a25866; /* x129834 stalin.sc:16207:564207 */ /* x129833 stalin.sc:16207:564212 */ t53234 = a25865; /* x129832 stalin.sc:16207:564208 */ t53228 = f14289(t53234); /* x129831 stalin.sc:16207:564198 */ t53227 = "struct"; /* x129830 stalin.sc:16207:564184 */ t53233.tag = STRUCTURE_TYPE24753; t53233.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53233.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16207, 564183); out_of_memory_error();} t53233.value.structure_type24753->s0 = t53229; t53233.value.structure_type24753->s1.tag = NULL_TYPE; t53232.tag = STRUCTURE_TYPE24753; t53232.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53232.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16207, 564183); out_of_memory_error();} t53232.value.structure_type24753->s0 = *((struct w49 *)(&t53228)); t53232.value.structure_type24753->s1 = t53233; a42010 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42010==NULL) {backtrace("stalin.sc", 16207, 564183); out_of_memory_error();} a42010->s0.tag = STRING_TYPE; a42010->s0.value.string_type = t53227; a42010->s1 = t53232; /* x302152 stalin.sc:14386:505956 */ /* x302151 stalin.sc:14386:505972 */ t53230 = a42010; /* x302150 stalin.sc:14386:505957 */ t53231.tag = STRUCTURE_TYPE24753; t53231.value.structure_type24753 = t53230; return f13474(t53231); l7635: /* x129845 stalin.sc:16208:564225 */ /* x129844 stalin.sc:16208:564257 */ /* x129843 stalin.sc:16208:564270 */ t53226 = a25866; /* x129842 stalin.sc:16208:564258 */ t53220 = f13516(t53226); /* x129841 stalin.sc:16208:564249 */ /* x129840 stalin.sc:16208:564254 */ t53225 = a25865; /* x129839 stalin.sc:16208:564250 */ t53219 = f14289(t53225); /* x129838 stalin.sc:16208:564240 */ t53218 = "struct"; /* x129837 stalin.sc:16208:564226 */ t53224.tag = STRUCTURE_TYPE24753; t53224.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53224.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16208, 564225); out_of_memory_error();} t53224.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t53224.value.structure_type24753->s0.value.structure_type24753 = t53220; t53224.value.structure_type24753->s1.tag = NULL_TYPE; t53223.tag = STRUCTURE_TYPE24753; t53223.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53223.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16208, 564225); out_of_memory_error();} t53223.value.structure_type24753->s0 = *((struct w49 *)(&t53219)); t53223.value.structure_type24753->s1 = t53224; a42011 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42011==NULL) {backtrace("stalin.sc", 16208, 564225); out_of_memory_error();} a42011->s0.tag = STRING_TYPE; a42011->s0.value.string_type = t53218; a42011->s1 = t53223; /* x302156 stalin.sc:14386:505956 */ /* x302155 stalin.sc:14386:505972 */ t53221 = a42011; /* x302154 stalin.sc:14386:505957 */ t53222.tag = STRUCTURE_TYPE24753; t53222.value.structure_type24753 = t53221; return f13474(t53222); l7616: /* x129954 */ /* x129851 stalin.sc:16209:564279 */ /* x129850 stalin.sc:16209:564300 */ t53145 = a25865; /* x129849 stalin.sc:16209:564280 */ a37550 = t53145; /* x282869 */ /* x282868 */ t53146 = a37550; /* x282867 */ if (!((t53146.tag)==STRUCTURE_TYPE27761)) goto l7618; /* x129870 */ /* x129869 */ /* x129868 stalin.sc:16210:564306 */ /* x129854 stalin.sc:16210:564310 */ /* x129853 stalin.sc:16210:564335 */ t53202 = a25865; /* x129852 stalin.sc:16210:564311 */ if (f7754(t53202)==FALSE_TYPE) goto l7633; /* x129858 stalin.sc:16211:564345 */ /* x129857 stalin.sc:16211:564369 */ t53213 = a25866; /* x129856 stalin.sc:16211:564360 */ t53212 = a1249; /* x129855 stalin.sc:16211:564346 */ t53216.tag = STRUCTURE_TYPE24753; t53216.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53216.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16211, 564345); out_of_memory_error();} t53216.value.structure_type24753->s0 = t53213; t53216.value.structure_type24753->s1.tag = NULL_TYPE; a42005 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42005==NULL) {backtrace("stalin.sc", 16211, 564345); out_of_memory_error();} a42005->s0 = t53212; a42005->s1 = t53216; /* x302132 stalin.sc:14386:505956 */ /* x302131 stalin.sc:14386:505972 */ t53214 = a42005; /* x302130 stalin.sc:14386:505957 */ t53215.tag = STRUCTURE_TYPE24753; t53215.value.structure_type24753 = t53214; return f13474(t53215); l7633: /* x129867 stalin.sc:16212:564379 */ /* x129866 stalin.sc:16212:564411 */ /* x129865 stalin.sc:16212:564424 */ t53211 = a25866; /* x129864 stalin.sc:16212:564412 */ t53205 = f13516(t53211); /* x129863 stalin.sc:16212:564403 */ /* x129862 stalin.sc:16212:564408 */ t53210 = a25865; /* x129861 stalin.sc:16212:564404 */ t53204 = f14289(t53210); /* x129860 stalin.sc:16212:564394 */ t53203 = "struct"; /* x129859 stalin.sc:16212:564380 */ t53209.tag = STRUCTURE_TYPE24753; t53209.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53209.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16212, 564379); out_of_memory_error();} t53209.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t53209.value.structure_type24753->s0.value.structure_type24753 = t53205; t53209.value.structure_type24753->s1.tag = NULL_TYPE; t53208.tag = STRUCTURE_TYPE24753; t53208.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53208.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16212, 564379); out_of_memory_error();} t53208.value.structure_type24753->s0 = *((struct w49 *)(&t53204)); t53208.value.structure_type24753->s1 = t53209; a42006 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42006==NULL) {backtrace("stalin.sc", 16212, 564379); out_of_memory_error();} a42006->s0.tag = STRING_TYPE; a42006->s0.value.string_type = t53203; a42006->s1 = t53208; /* x302136 stalin.sc:14386:505956 */ /* x302135 stalin.sc:14386:505972 */ t53206 = a42006; /* x302134 stalin.sc:14386:505957 */ t53207.tag = STRUCTURE_TYPE24753; t53207.value.structure_type24753 = t53206; return f13474(t53207); l7618: /* x129953 */ /* x129873 stalin.sc:16213:564433 */ /* x129872 stalin.sc:16213:564457 */ t53147 = a25865; /* x129871 stalin.sc:16213:564434 */ a37434 = t53147; /* x282405 */ /* x282404 */ t53148 = a37434; /* x282403 */ if (!((t53148.tag)==STRUCTURE_TYPE27669)) goto l7620; /* x129890 */ /* x129889 */ /* x129888 stalin.sc:16214:564463 */ /* x129876 stalin.sc:16214:564467 */ /* x129875 stalin.sc:16214:564492 */ t53188 = a25865; /* x129874 stalin.sc:16214:564468 */ if (f7754(t53188)==FALSE_TYPE) goto l7631; /* x129880 stalin.sc:16215:564502 */ /* x129879 stalin.sc:16215:564526 */ t53198 = a25866; /* x129878 stalin.sc:16215:564517 */ t53197 = a1249; /* x129877 stalin.sc:16215:564503 */ t53201.tag = STRUCTURE_TYPE24753; t53201.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53201.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16215, 564502); out_of_memory_error();} t53201.value.structure_type24753->s0 = t53198; t53201.value.structure_type24753->s1.tag = NULL_TYPE; a42065 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42065==NULL) {backtrace("stalin.sc", 16215, 564502); out_of_memory_error();} a42065->s0 = t53197; a42065->s1 = t53201; /* x302372 stalin.sc:14386:505956 */ /* x302371 stalin.sc:14386:505972 */ t53199 = a42065; /* x302370 stalin.sc:14386:505957 */ t53200.tag = STRUCTURE_TYPE24753; t53200.value.structure_type24753 = t53199; return f13474(t53200); l7631: /* x129887 stalin.sc:16216:564536 */ /* x129886 stalin.sc:16216:564568 */ t53191 = a25866; /* x129885 stalin.sc:16216:564560 */ /* x129884 stalin.sc:16216:564565 */ t53196 = a25865; /* x129883 stalin.sc:16216:564561 */ t53190 = f14289(t53196); /* x129882 stalin.sc:16216:564551 */ t53189 = "struct"; /* x129881 stalin.sc:16216:564537 */ t53195.tag = STRUCTURE_TYPE24753; t53195.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53195.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16216, 564536); out_of_memory_error();} t53195.value.structure_type24753->s0 = t53191; t53195.value.structure_type24753->s1.tag = NULL_TYPE; t53194.tag = STRUCTURE_TYPE24753; t53194.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53194.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16216, 564536); out_of_memory_error();} t53194.value.structure_type24753->s0 = *((struct w49 *)(&t53190)); t53194.value.structure_type24753->s1 = t53195; a42066 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42066==NULL) {backtrace("stalin.sc", 16216, 564536); out_of_memory_error();} a42066->s0.tag = STRING_TYPE; a42066->s0.value.string_type = t53189; a42066->s1 = t53194; /* x302376 stalin.sc:14386:505956 */ /* x302375 stalin.sc:14386:505972 */ t53192 = a42066; /* x302374 stalin.sc:14386:505957 */ t53193.tag = STRUCTURE_TYPE24753; t53193.value.structure_type24753 = t53192; return f13474(t53193); l7620: /* x129952 */ /* x129893 stalin.sc:16217:564576 */ /* x129892 stalin.sc:16217:564600 */ t53149 = a25865; /* x129891 stalin.sc:16217:564577 */ a37337 = t53149; /* x282017 */ /* x282016 */ t53150 = a37337; /* x282015 */ if (!((t53150.tag)==STRUCTURE_TYPE27908)) goto l7622; /* x129910 */ /* x129909 */ /* x129908 stalin.sc:16218:564606 */ /* x129896 stalin.sc:16218:564610 */ /* x129895 stalin.sc:16218:564635 */ t53174 = a25865; /* x129894 stalin.sc:16218:564611 */ if (f7754(t53174)==FALSE_TYPE) goto l7629; /* x129900 stalin.sc:16219:564645 */ /* x129899 stalin.sc:16219:564669 */ t53184 = a25866; /* x129898 stalin.sc:16219:564660 */ t53183 = a1249; /* x129897 stalin.sc:16219:564646 */ t53187.tag = STRUCTURE_TYPE24753; t53187.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53187.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16219, 564645); out_of_memory_error();} t53187.value.structure_type24753->s0 = t53184; t53187.value.structure_type24753->s1.tag = NULL_TYPE; a25247 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a25247==NULL) {backtrace("stalin.sc", 16219, 564645); out_of_memory_error();} a25247->s0 = t53183; a25247->s1 = t53187; /* x122208 stalin.sc:14386:505956 */ /* x122207 stalin.sc:14386:505972 */ t53185 = a25247; /* x122206 stalin.sc:14386:505957 */ t53186.tag = STRUCTURE_TYPE24753; t53186.value.structure_type24753 = t53185; return f13474(t53186); l7629: /* x129907 stalin.sc:16220:564679 */ /* x129906 stalin.sc:16220:564711 */ t53177 = a25866; /* x129905 stalin.sc:16220:564703 */ /* x129904 stalin.sc:16220:564708 */ t53182 = a25865; /* x129903 stalin.sc:16220:564704 */ t53176 = f14289(t53182); /* x129902 stalin.sc:16220:564694 */ t53175 = "struct"; /* x129901 stalin.sc:16220:564680 */ t53181.tag = STRUCTURE_TYPE24753; t53181.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53181.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16220, 564679); out_of_memory_error();} t53181.value.structure_type24753->s0 = t53177; t53181.value.structure_type24753->s1.tag = NULL_TYPE; t53180.tag = STRUCTURE_TYPE24753; t53180.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53180.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16220, 564679); out_of_memory_error();} t53180.value.structure_type24753->s0 = *((struct w49 *)(&t53176)); t53180.value.structure_type24753->s1 = t53181; a41940 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41940==NULL) {backtrace("stalin.sc", 16220, 564679); out_of_memory_error();} a41940->s0.tag = STRING_TYPE; a41940->s0.value.string_type = t53175; a41940->s1 = t53180; /* x301872 stalin.sc:14386:505956 */ /* x301871 stalin.sc:14386:505972 */ t53178 = a41940; /* x301870 stalin.sc:14386:505957 */ t53179.tag = STRUCTURE_TYPE24753; t53179.value.structure_type24753 = t53178; return f13474(t53179); l7622: /* x129951 */ /* x129950 */ /* x129949 stalin.sc:16221:564724 */ /* x129948 stalin.sc:16221:564730 */ t53151 = a687; /* x129947 */ a25877 = t53151; /* x129946 */ /* x129923 */ /* x129922 */ /* x129920 */ t53152 = a25877; /* x129921 */ t53153 = q15; /* x129919 */ /* MOVE: branching squeezed to general */ if (t53152>=((char *)VALUE_OFFSET)) {t53154.tag = EXTERNAL_SYMBOL_TYPE; t53154.value.external_symbol_type = t53152;} else t53154.tag = (unsigned)t53152; t53155.tag = EXTERNAL_SYMBOL_TYPE; t53155.value.external_symbol_type = t53153; if (!(f26160(t53154, t53155)==FALSE_TYPE)) goto l7623; /* x129916 */ /* x129914 */ t53156 = a25877; /* x129915 */ t53157 = q16; /* x129913 */ /* MOVE: branching squeezed to general */ if (t53156>=((char *)VALUE_OFFSET)) {t53158.tag = EXTERNAL_SYMBOL_TYPE; t53158.value.external_symbol_type = t53156;} else t53158.tag = (unsigned)t53156; t53159.tag = EXTERNAL_SYMBOL_TYPE; t53159.value.external_symbol_type = t53157; if (f26160(t53158, t53159)==FALSE_TYPE) goto l7624; l7623: /* x129932 */ /* x129931 */ /* x129930 stalin.sc:16222:564785 */ /* x129929 stalin.sc:16222:564825 */ t53168 = a25866; /* x129928 stalin.sc:16222:564816 */ t53167 = a1251; /* x129927 stalin.sc:16222:564800 */ /* x129926 stalin.sc:16222:564808 */ t53173 = "fake"; /* x129925 stalin.sc:16222:564801 */ t53166 = f13634(t53173); /* x129924 stalin.sc:16222:564786 */ t53172.tag = STRUCTURE_TYPE24753; t53172.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53172.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16222, 564785); out_of_memory_error();} t53172.value.structure_type24753->s0 = t53168; t53172.value.structure_type24753->s1.tag = NULL_TYPE; t53171.tag = STRUCTURE_TYPE24753; t53171.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53171.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16222, 564785); out_of_memory_error();} t53171.value.structure_type24753->s0 = t53167; t53171.value.structure_type24753->s1 = t53172; a42067 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42067==NULL) {backtrace("stalin.sc", 16222, 564785); out_of_memory_error();} a42067->s0 = t53166; a42067->s1 = t53171; /* x302380 stalin.sc:14386:505956 */ /* x302379 stalin.sc:14386:505972 */ t53169 = a42067; /* x302378 stalin.sc:14386:505957 */ t53170.tag = STRUCTURE_TYPE24753; t53170.value.structure_type24753 = t53169; return f13474(t53170); l7624: /* x129945 */ /* x129936 */ /* x129934 */ t53160 = a25877; /* x129935 */ t53161 = q17; /* x129933 */ /* MOVE: branching squeezed to general */ if (t53160>=((char *)VALUE_OFFSET)) {t53162.tag = EXTERNAL_SYMBOL_TYPE; t53162.value.external_symbol_type = t53160;} else t53162.tag = (unsigned)t53160; t53163.tag = EXTERNAL_SYMBOL_TYPE; t53163.value.external_symbol_type = t53161; if (f26160(t53162, t53163)==FALSE_TYPE) goto l7627; /* x129940 */ /* x129939 */ /* x129938 stalin.sc:16223:564846 */ /* x129937 stalin.sc:16223:564847 */ /* x296189 QobiScheme.sc:166:5314 */ /* x296188 QobiScheme.sc:166:5321 */ t53165 = "This shouldn\'t happen"; /* x296187 QobiScheme.sc:166:5315 */ stalin_panic(t53165); l7627: /* x129944 */ /* x129943 */ /* x129942 stalin.sc:16224:564865 */ /* x129941 stalin.sc:16224:564866 */ /* x296193 QobiScheme.sc:166:5314 */ /* x296192 QobiScheme.sc:166:5321 */ t53164 = "This shouldn\'t happen"; /* x296191 QobiScheme.sc:166:5315 */ stalin_panic(t53164);} /* C:ALIGN[14371] */ struct w61020 f14371(struct structure_type24753 *a25864) {struct w61020 r14371; struct w29434 t53371; char *t53372; struct structure_type24753 *t53373; struct w61020 t53374; struct structure_type24753 *t53375; struct structure_type24753 *t53376; /* x129553 stalin.sc:16165:562508 */ /* x129546 stalin.sc:16165:562512 */ /* x129545 stalin.sc:16165:562523 */ t53371 = a1225; /* x268894 stalin.sc:16165:562513 */ switch (t53371.tag) {case FALSE_TYPE: backtrace("stalin.sc", 16165, 562512); positive_error(); break; case FIXNUM_TYPE: if (!((t53371.value.fixnum_type)>0)) goto l7652; break; default: if (!((t53371.value.flonum_type)>0.0)) goto l7652;} /* x129550 stalin.sc:16165:562547 */ /* x129549 stalin.sc:16165:562564 */ t53373 = a25864; /* x129548 stalin.sc:16165:562556 */ t53372 = "ALIGN"; /* x129547 stalin.sc:16165:562548 */ t53374.tag = STRING_TYPE; t53374.value.string_type = t53372; t53375 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t53375==NULL) {backtrace("stalin.sc", 16165, 562547); out_of_memory_error();} t53375->s0.tag = STRUCTURE_TYPE24753; t53375->s0.value.structure_type24753 = t53373; t53375->s1.tag = NULL_TYPE; t53376 = f13645(t53374, t53375); r14371.tag = STRUCTURE_TYPE24753; r14371.value.structure_type24753 = t53376; return r14371; l7652: /* x129552 stalin.sc:16165:562567 */ /* x129551 stalin.sc:16165:562568 */ /* x276803 stalin.sc:14693:514793 */ r14371.tag = STRING_TYPE; r14371.value.string_type = ""; return r14371;} /* C:BACKTRACE-INTERNAL[14369] */ struct structure_type24753 *f14369(struct structure_type24753 *a25862) {char *t53377; struct structure_type24753 *t53378; struct w61020 t53379; struct structure_type24753 *t53380; /* x129541 */ /* x129540 stalin.sc:16161:562417 */ /* x129539 stalin.sc:16161:562447 */ a746 = TRUE_TYPE; /* x129538 */ /* x129537 stalin.sc:16162:562452 */ /* x129536 stalin.sc:16162:562482 */ t53378 = a25862; /* x129535 stalin.sc:16162:562461 */ t53377 = "backtrace_internal"; /* x129534 stalin.sc:16162:562453 */ t53379.tag = STRING_TYPE; t53379.value.string_type = t53377; t53380 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t53380==NULL) {backtrace("stalin.sc", 16162, 562452); out_of_memory_error();} t53380->s0.tag = STRUCTURE_TYPE24753; t53380->s0.value.structure_type24753 = t53378; t53380->s1.tag = NULL_TYPE; return f13645(t53379, t53380);} /* C:PANIC[14365] */ struct structure_type24753 *f14365(struct w49 a25856) {char *t53381; struct w49 t53382; struct w61020 t53383; struct structure_type24753 *t53384; /* x129519 */ /* x129518 stalin.sc:16153:562241 */ /* x129517 stalin.sc:16153:562258 */ a748 = TRUE_TYPE; /* x129516 */ /* x129515 stalin.sc:16154:562263 */ /* x129514 stalin.sc:16154:562287 */ t53382 = a25856; /* x129513 stalin.sc:16154:562272 */ t53381 = "stalin_panic"; /* x129512 stalin.sc:16154:562264 */ t53383.tag = STRING_TYPE; t53383.value.string_type = t53381; t53384 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t53384==NULL) {backtrace("stalin.sc", 16154, 562263); out_of_memory_error();} t53384->s0 = t53382; t53384->s1.tag = NULL_TYPE; return f13645(t53383, t53384);} /* C:BIG-REGION-SIZE[14333] */ struct structure_type24753 *f14333(struct w49 a25812) {struct structure_type24753 *a35166; /* OBJS */ struct w49 a36730; /* S */ char *t53385; char *t53386; struct w49 t53387; unsigned t53388; struct w49 t53389; struct w49 t53390; struct w49 t53391; /* x129322 stalin.sc:16088:560744 */ /* x129321 stalin.sc:16088:560764 */ /* x129320 stalin.sc:16088:560780 */ /* x129319 stalin.sc:16088:560799 */ t53390 = a25812; /* x129318 stalin.sc:16088:560781 */ a36730 = t53390; /* x279589 */ /* x279588 */ t53391 = a36730; /* x279587 */ if (!((t53391.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-INDEX[6631] 31647]"); structure_ref_error();} t53388 = t53391.value.structure_type27694->s0; /* x129317 stalin.sc:16088:560765 */ /* MOVE: dispatching squished to general */ if (t53388==FALSE_TYPE) t53389.tag = (unsigned)t53388; else {t53389.tag = FIXNUM_TYPE; t53389.value.fixnum_type = (int)(((int)t53388)>>1);} t53386 = f28396(t53389); /* x129316 stalin.sc:16088:560750 */ t53385 = "REGION_SIZE"; /* x129315 stalin.sc:16088:560745 */ t53387.tag = STRUCTURE_TYPE24753; t53387.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53387.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16088, 560744); out_of_memory_error();} t53387.value.structure_type24753->s0.tag = STRING_TYPE; t53387.value.structure_type24753->s0.value.string_type = t53386; t53387.value.structure_type24753->s1.tag = NULL_TYPE; a35166 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35166==NULL) {backtrace("stalin.sc", 16088, 560744); out_of_memory_error();} a35166->s0.tag = STRING_TYPE; a35166->s0.value.string_type = t53385; a35166->s1 = t53387; /* x272339 */ return a35166;} /* C:INITIAL-REGION[14332] */ struct structure_type24753 *f14332(struct w49 a25811) {struct structure_type24753 *a35165; /* OBJS */ struct w49 a36729; /* S */ char *t53392; char *t53393; struct w49 t53394; unsigned t53395; struct w49 t53396; struct w49 t53397; struct w49 t53398; /* x129312 stalin.sc:16085:560648 */ /* x129311 stalin.sc:16085:560671 */ /* x129310 stalin.sc:16085:560687 */ /* x129309 stalin.sc:16085:560706 */ t53397 = a25811; /* x129308 stalin.sc:16085:560688 */ a36729 = t53397; /* x279585 */ /* x279584 */ t53398 = a36729; /* x279583 */ if (!((t53398.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-INDEX[6631] 31646]"); structure_ref_error();} t53395 = t53398.value.structure_type27694->s0; /* x129307 stalin.sc:16085:560672 */ /* MOVE: dispatching squished to general */ if (t53395==FALSE_TYPE) t53396.tag = (unsigned)t53395; else {t53396.tag = FIXNUM_TYPE; t53396.value.fixnum_type = (int)(((int)t53395)>>1);} t53393 = f28396(t53396); /* x129306 stalin.sc:16085:560654 */ t53392 = "initial_region"; /* x129305 stalin.sc:16085:560649 */ t53394.tag = STRUCTURE_TYPE24753; t53394.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53394.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16085, 560648); out_of_memory_error();} t53394.value.structure_type24753->s0.tag = STRING_TYPE; t53394.value.structure_type24753->s0.value.string_type = t53393; t53394.value.structure_type24753->s1.tag = NULL_TYPE; a35165 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35165==NULL) {backtrace("stalin.sc", 16085, 560648); out_of_memory_error();} a35165->s0.tag = STRING_TYPE; a35165->s0.value.string_type = t53392; a35165->s1 = t53394; /* x272337 */ return a35165;} /* C:REGION-SIZE[14328] */ struct w61020 f14328(struct structure_type24753 *a25809) {struct w61020 r14328; struct structure_type24753 *a35169; /* OBJS */ struct structure_type24753 *a36080; /* PAIR */ struct w49 a36731; /* S */ struct structure_type24753 *t53399; char *t53400; char *t53401; struct w49 t53402; unsigned t53403; struct w49 t53404; struct w49 t53405; struct w49 t53406; struct structure_type24753 *t53407; struct structure_type24753 *t53408; int t53409; int t53410; struct structure_type24753 *t53411; struct w49 t53412; char *t53413; /* x129302 */ /* x129301 stalin.sc:16079:560471 */ /* x129294 stalin.sc:16079:560477 */ /* x129292 stalin.sc:16079:560480 */ /* x129291 stalin.sc:16079:560488 */ t53411 = a25809; /* x129290 stalin.sc:16079:560481 */ /* MOVE: branching squeezed to general */ if (t53411>=((struct structure_type24753 *)VALUE_OFFSET)) {t53412.tag = STRUCTURE_TYPE24753; t53412.value.structure_type24753 = t53411;} else t53412.tag = (unsigned)t53411; t53409 = f26227(t53412); /* x129293 stalin.sc:16079:560492 */ t53410 = 1; /* x268895 stalin.sc:16079:560478 */ if (!(t53409>t53410)) goto l7656; /* x129298 */ /* x129297 */ /* x129296 stalin.sc:16079:560495 */ /* x129295 stalin.sc:16079:560496 */ /* x296473 QobiScheme.sc:166:5314 */ /* x296472 QobiScheme.sc:166:5321 */ t53413 = "This shouldn\'t happen"; /* x296471 QobiScheme.sc:166:5315 */ stalin_panic(t53413); goto l7657; l7656: /* x129300 stalin.sc:16079:560471 */ /* x129299 stalin.sc:16079:560471 */ l7657: /* x129288 */ /* x129287 stalin.sc:16080:560507 */ /* x129275 stalin.sc:16080:560511 */ /* x129274 stalin.sc:16080:560518 */ t53399 = a25809; /* x268896 stalin.sc:16080:560512 */ if (!(((unsigned)t53399)==NULL_TYPE)) goto l7654; /* x129276 stalin.sc:16081:560527 */ r14328.tag = STRING_TYPE; r14328.value.string_type = "region_size"; return r14328; l7654: /* x129286 stalin.sc:16082:560546 */ /* x129285 stalin.sc:16082:560566 */ /* x129284 stalin.sc:16082:560582 */ /* x129283 stalin.sc:16082:560601 */ /* x129282 stalin.sc:16082:560608 */ t53407 = a25809; /* x129281 stalin.sc:16082:560602 */ a36080 = t53407; /* x275677 */ /* x275676 */ t53408 = a36080; /* x275675 */ t53405 = t53408->s0; /* x129280 stalin.sc:16082:560583 */ a36731 = t53405; /* x279593 */ /* x279592 */ t53406 = a36731; /* x279591 */ if (!((t53406.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-INDEX[6631] 31648]"); structure_ref_error();} t53403 = t53406.value.structure_type27694->s0; /* x129279 stalin.sc:16082:560567 */ /* MOVE: dispatching squished to general */ if (t53403==FALSE_TYPE) t53404.tag = (unsigned)t53403; else {t53404.tag = FIXNUM_TYPE; t53404.value.fixnum_type = (int)(((int)t53403)>>1);} t53401 = f28396(t53404); /* x129278 stalin.sc:16082:560552 */ t53400 = "region_size"; /* x129277 stalin.sc:16082:560547 */ t53402.tag = STRUCTURE_TYPE24753; t53402.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53402.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16082, 560546); out_of_memory_error();} t53402.value.structure_type24753->s0.tag = STRING_TYPE; t53402.value.structure_type24753->s0.value.string_type = t53401; t53402.value.structure_type24753->s1.tag = NULL_TYPE; a35169 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35169==NULL) {backtrace("stalin.sc", 16082, 560546); out_of_memory_error();} a35169->s0.tag = STRING_TYPE; a35169->s0.value.string_type = t53400; a35169->s1 = t53402; /* x272345 */ r14328.tag = STRUCTURE_TYPE24753; r14328.value.structure_type24753 = a35169; return r14328;} /* C:REGION[14324] */ struct w61020 f14324(struct structure_type24753 *a25807) {struct w61020 r14324; struct structure_type24753 *a35170; /* OBJS */ struct structure_type24753 *a36081; /* PAIR */ struct w49 a36732; /* S */ struct structure_type24753 *t53414; char *t53415; char *t53416; struct w49 t53417; unsigned t53418; struct w49 t53419; struct w49 t53420; struct w49 t53421; struct structure_type24753 *t53422; struct structure_type24753 *t53423; int t53424; int t53425; struct structure_type24753 *t53426; struct w49 t53427; char *t53428; /* x129270 */ /* x129269 stalin.sc:16073:560304 */ /* x129262 stalin.sc:16073:560310 */ /* x129260 stalin.sc:16073:560313 */ /* x129259 stalin.sc:16073:560321 */ t53426 = a25807; /* x129258 stalin.sc:16073:560314 */ /* MOVE: branching squeezed to general */ if (t53426>=((struct structure_type24753 *)VALUE_OFFSET)) {t53427.tag = STRUCTURE_TYPE24753; t53427.value.structure_type24753 = t53426;} else t53427.tag = (unsigned)t53426; t53424 = f26227(t53427); /* x129261 stalin.sc:16073:560325 */ t53425 = 1; /* x268897 stalin.sc:16073:560311 */ if (!(t53424>t53425)) goto l7661; /* x129266 */ /* x129265 */ /* x129264 stalin.sc:16073:560328 */ /* x129263 stalin.sc:16073:560329 */ /* x296477 QobiScheme.sc:166:5314 */ /* x296476 QobiScheme.sc:166:5321 */ t53428 = "This shouldn\'t happen"; /* x296475 QobiScheme.sc:166:5315 */ stalin_panic(t53428); goto l7662; l7661: /* x129268 stalin.sc:16073:560304 */ /* x129267 stalin.sc:16073:560304 */ l7662: /* x129256 */ /* x129255 stalin.sc:16074:560340 */ /* x129243 stalin.sc:16074:560344 */ /* x129242 stalin.sc:16074:560351 */ t53414 = a25807; /* x268898 stalin.sc:16074:560345 */ if (!(((unsigned)t53414)==NULL_TYPE)) goto l7659; /* x129244 stalin.sc:16075:560360 */ r14324.tag = STRING_TYPE; r14324.value.string_type = "region"; return r14324; l7659: /* x129254 stalin.sc:16076:560374 */ /* x129253 stalin.sc:16076:560389 */ /* x129252 stalin.sc:16076:560405 */ /* x129251 stalin.sc:16076:560424 */ /* x129250 stalin.sc:16076:560431 */ t53422 = a25807; /* x129249 stalin.sc:16076:560425 */ a36081 = t53422; /* x275681 */ /* x275680 */ t53423 = a36081; /* x275679 */ t53420 = t53423->s0; /* x129248 stalin.sc:16076:560406 */ a36732 = t53420; /* x279597 */ /* x279596 */ t53421 = a36732; /* x279595 */ if (!((t53421.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-INDEX[6631] 31649]"); structure_ref_error();} t53418 = t53421.value.structure_type27694->s0; /* x129247 stalin.sc:16076:560390 */ /* MOVE: dispatching squished to general */ if (t53418==FALSE_TYPE) t53419.tag = (unsigned)t53418; else {t53419.tag = FIXNUM_TYPE; t53419.value.fixnum_type = (int)(((int)t53418)>>1);} t53416 = f28396(t53419); /* x129246 stalin.sc:16076:560380 */ t53415 = "region"; /* x129245 stalin.sc:16076:560375 */ t53417.tag = STRUCTURE_TYPE24753; t53417.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53417.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16076, 560374); out_of_memory_error();} t53417.value.structure_type24753->s0.tag = STRING_TYPE; t53417.value.structure_type24753->s0.value.string_type = t53416; t53417.value.structure_type24753->s1.tag = NULL_TYPE; a35170 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35170==NULL) {backtrace("stalin.sc", 16076, 560374); out_of_memory_error();} a35170->s0.tag = STRING_TYPE; a35170->s0.value.string_type = t53415; a35170->s1 = t53417; /* x272347 */ r14324.tag = STRUCTURE_TYPE24753; r14324.value.structure_type24753 = a35170; return r14324;} /* C:SFP[14322] */ struct structure_type24753 *f14322(struct w49 a25806) {struct structure_type24753 *a35172; /* OBJS */ struct w49 a36734; /* S */ char *t53429; char *t53430; struct w49 t53431; unsigned t53432; struct w49 t53433; struct w49 t53434; struct w49 t53435; /* x129235 stalin.sc:16068:560199 */ /* x129234 stalin.sc:16068:560211 */ /* x129233 stalin.sc:16068:560227 */ /* x129232 stalin.sc:16068:560246 */ t53434 = a25806; /* x129231 stalin.sc:16068:560228 */ a36734 = t53434; /* x279605 */ /* x279604 */ t53435 = a36734; /* x279603 */ if (!((t53435.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-INDEX[6631] 31651]"); structure_ref_error();} t53432 = t53435.value.structure_type27694->s0; /* x129230 stalin.sc:16068:560212 */ /* MOVE: dispatching squished to general */ if (t53432==FALSE_TYPE) t53433.tag = (unsigned)t53432; else {t53433.tag = FIXNUM_TYPE; t53433.value.fixnum_type = (int)(((int)t53432)>>1);} t53430 = f28396(t53433); /* x129229 stalin.sc:16068:560205 */ t53429 = "sfp"; /* x129228 stalin.sc:16068:560200 */ t53431.tag = STRUCTURE_TYPE24753; t53431.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53431.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16068, 560199); out_of_memory_error();} t53431.value.structure_type24753->s0.tag = STRING_TYPE; t53431.value.structure_type24753->s0.value.string_type = t53430; t53431.value.structure_type24753->s1.tag = NULL_TYPE; a35172 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35172==NULL) {backtrace("stalin.sc", 16068, 560199); out_of_memory_error();} a35172->s0.tag = STRING_TYPE; a35172->s0.value.string_type = t53429; a35172->s1 = t53431; /* x272351 */ return a35172;} /* C:FP[14321] */ struct structure_type24753 *f14321(struct w49 a25805) {struct structure_type24753 *a35171; /* OBJS */ struct w49 a36733; /* S */ struct structure_type24753 *t53436; struct w49 t53437; char *t53438; char *t53439; struct w49 t53440; unsigned t53441; struct w49 t53442; struct w49 t53443; struct w49 t53444; /* x129225 stalin.sc:16066:560116 */ /* x129224 stalin.sc:16066:560127 */ /* x129223 stalin.sc:16066:560138 */ /* x129222 stalin.sc:16066:560154 */ /* x129221 stalin.sc:16066:560173 */ t53443 = a25805; /* x129220 stalin.sc:16066:560155 */ a36733 = t53443; /* x279601 */ /* x279600 */ t53444 = a36733; /* x279599 */ if (!((t53444.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-INDEX[6631] 31650]"); structure_ref_error();} t53441 = t53444.value.structure_type27694->s0; /* x129219 stalin.sc:16066:560139 */ /* MOVE: dispatching squished to general */ if (t53441==FALSE_TYPE) t53442.tag = (unsigned)t53441; else {t53442.tag = FIXNUM_TYPE; t53442.value.fixnum_type = (int)(((int)t53441)>>1);} t53439 = f28396(t53442); /* x129218 stalin.sc:16066:560133 */ t53438 = "fp"; /* x129217 stalin.sc:16066:560128 */ t53440.tag = STRUCTURE_TYPE24753; t53440.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53440.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16066, 560127); out_of_memory_error();} t53440.value.structure_type24753->s0.tag = STRING_TYPE; t53440.value.structure_type24753->s0.value.string_type = t53439; t53440.value.structure_type24753->s1.tag = NULL_TYPE; a35171 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35171==NULL) {backtrace("stalin.sc", 16066, 560127); out_of_memory_error();} a35171->s0.tag = STRING_TYPE; a35171->s0.value.string_type = t53438; a35171->s1 = t53440; /* x272349 */ t53436 = a35171; /* x129216 stalin.sc:16066:560117 */ t53437.tag = STRUCTURE_TYPE24753; t53437.value.structure_type24753 = t53436; return f13472(t53437);} /* C:ERROR[14320] */ struct structure_type24753 *f14320(struct w49 a25804) {struct structure_type24753 *a35217; /* OBJS */ struct w49 t53445; char *t53446; struct w49 t53447; /* x129213 stalin.sc:16063:560078 */ /* x129212 stalin.sc:16063:560086 */ t53446 = "_error"; /* x129211 stalin.sc:16063:560084 */ t53445 = a25804; /* x129210 stalin.sc:16063:560079 */ t53447.tag = STRUCTURE_TYPE24753; t53447.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53447.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16063, 560078); out_of_memory_error();} t53447.value.structure_type24753->s0.tag = STRING_TYPE; t53447.value.structure_type24753->s0.value.string_type = t53446; t53447.value.structure_type24753->s1.tag = NULL_TYPE; a35217 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35217==NULL) {backtrace("stalin.sc", 16063, 560078); out_of_memory_error();} a35217->s0 = t53445; a35217->s1 = t53447; /* x272441 */ return a35217;} /* C:MUTEX[14319] */ struct structure_type24753 *f14319(struct w49 a25803) {struct structure_type24753 *a35097; /* OBJS */ struct w49 a40124; /* S */ char *t53448; char *t53449; struct w49 t53450; unsigned t53451; struct w49 t53452; struct w49 t53453; struct w49 t53454; /* x129207 stalin.sc:16061:560003 */ /* x129206 stalin.sc:16061:560017 */ /* x129205 stalin.sc:16061:560033 */ /* x129204 stalin.sc:16061:560051 */ t53453 = a25803; /* x129203 stalin.sc:16061:560034 */ a40124 = t53453; /* x293165 */ /* x293164 */ t53454 = a40124; /* x293163 */ if (!((t53454.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35041]"); structure_ref_error();} t53451 = t53454.value.structure_type27698->s7; /* x129202 stalin.sc:16061:560018 */ /* MOVE: dispatching squished to general */ if (t53451==FALSE_TYPE) t53452.tag = (unsigned)t53451; else {t53452.tag = FIXNUM_TYPE; t53452.value.fixnum_type = (int)(((int)t53451)>>1);} t53449 = f28396(t53452); /* x129201 stalin.sc:16061:560009 */ t53448 = "mutex"; /* x129200 stalin.sc:16061:560004 */ t53450.tag = STRUCTURE_TYPE24753; t53450.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53450.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16061, 560003); out_of_memory_error();} t53450.value.structure_type24753->s0.tag = STRING_TYPE; t53450.value.structure_type24753->s0.value.string_type = t53449; t53450.value.structure_type24753->s1.tag = NULL_TYPE; a35097 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35097==NULL) {backtrace("stalin.sc", 16061, 560003); out_of_memory_error();} a35097->s0.tag = STRING_TYPE; a35097->s0.value.string_type = t53448; a35097->s1 = t53450; /* x272201 */ return a35097;} /* C:X[14318] */ struct structure_type24753 *f14318(struct w49 a25802) {struct structure_type24753 *a35123; /* OBJS */ struct w49 a40126; /* S */ char *t53455; char *t53456; struct w49 t53457; unsigned t53458; struct w49 t53459; struct w49 t53460; struct w49 t53461; /* x129197 stalin.sc:16059:559932 */ /* x129196 stalin.sc:16059:559942 */ /* x129195 stalin.sc:16059:559958 */ /* x129194 stalin.sc:16059:559976 */ t53460 = a25802; /* x129193 stalin.sc:16059:559959 */ a40126 = t53460; /* x293173 */ /* x293172 */ t53461 = a40126; /* x293171 */ if (!((t53461.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35043]"); structure_ref_error();} t53458 = t53461.value.structure_type27698->s7; /* x129192 stalin.sc:16059:559943 */ /* MOVE: dispatching squished to general */ if (t53458==FALSE_TYPE) t53459.tag = (unsigned)t53458; else {t53459.tag = FIXNUM_TYPE; t53459.value.fixnum_type = (int)(((int)t53458)>>1);} t53456 = f28396(t53459); /* x129191 stalin.sc:16059:559938 */ t53455 = "x"; /* x129190 stalin.sc:16059:559933 */ t53457.tag = STRUCTURE_TYPE24753; t53457.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53457.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16059, 559932); out_of_memory_error();} t53457.value.structure_type24753->s0.tag = STRING_TYPE; t53457.value.structure_type24753->s0.value.string_type = t53456; t53457.value.structure_type24753->s1.tag = NULL_TYPE; a35123 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35123==NULL) {backtrace("stalin.sc", 16059, 559932); out_of_memory_error();} a35123->s0.tag = STRING_TYPE; a35123->s0.value.string_type = t53455; a35123->s1 = t53457; /* x272253 */ return a35123;} /* C:W[14317] */ struct structure_type24753 *f14317(struct w49 a25801) {struct structure_type24753 *a35138; /* OBJS */ struct w49 a37072; /* S */ char *t53462; char *t53463; struct w49 t53464; struct w7121 t53465; struct w49 t53466; struct w49 t53467; struct w49 t53468; /* x129187 stalin.sc:16057:559867 */ /* x129186 stalin.sc:16057:559877 */ /* x129185 stalin.sc:16057:559893 */ /* x129184 stalin.sc:16057:559909 */ t53467 = a25801; /* x129183 stalin.sc:16057:559894 */ a37072 = t53467; /* x280957 */ /* x280956 */ t53468 = a37072; /* x280955 */ if (!((t53468.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 31989]"); structure_ref_error();} t53465 = t53468.value.structure_type27650->s4; /* x129182 stalin.sc:16057:559878 */ t53466 = *((struct w49 *)(&t53465)); t53463 = f28396(t53466); /* x129181 stalin.sc:16057:559873 */ t53462 = "w"; /* x129180 stalin.sc:16057:559868 */ t53464.tag = STRUCTURE_TYPE24753; t53464.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53464.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16057, 559867); out_of_memory_error();} t53464.value.structure_type24753->s0.tag = STRING_TYPE; t53464.value.structure_type24753->s0.value.string_type = t53463; t53464.value.structure_type24753->s1.tag = NULL_TYPE; a35138 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35138==NULL) {backtrace("stalin.sc", 16057, 559867); out_of_memory_error();} a35138->s0.tag = STRING_TYPE; a35138->s0.value.string_type = t53462; a35138->s1 = t53464; /* x272283 */ return a35138;} /* C:V[14316] */ struct structure_type24753 *f14316(struct w49 a25800) {struct structure_type24753 *a35124; /* OBJS */ struct w49 a40127; /* S */ struct structure_type24753 *t53469; struct w49 t53470; char *t53471; char *t53472; struct w49 t53473; unsigned t53474; struct w49 t53475; struct w49 t53476; struct w49 t53477; /* x129177 stalin.sc:16055:559788 */ /* x129176 stalin.sc:16055:559799 */ /* x129175 stalin.sc:16055:559809 */ /* x129174 stalin.sc:16055:559825 */ /* x129173 stalin.sc:16055:559843 */ t53476 = a25800; /* x129172 stalin.sc:16055:559826 */ a40127 = t53476; /* x293177 */ /* x293176 */ t53477 = a40127; /* x293175 */ if (!((t53477.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35044]"); structure_ref_error();} t53474 = t53477.value.structure_type27698->s7; /* x129171 stalin.sc:16055:559810 */ /* MOVE: dispatching squished to general */ if (t53474==FALSE_TYPE) t53475.tag = (unsigned)t53474; else {t53475.tag = FIXNUM_TYPE; t53475.value.fixnum_type = (int)(((int)t53474)>>1);} t53472 = f28396(t53475); /* x129170 stalin.sc:16055:559805 */ t53471 = "v"; /* x129169 stalin.sc:16055:559800 */ t53473.tag = STRUCTURE_TYPE24753; t53473.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53473.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16055, 559799); out_of_memory_error();} t53473.value.structure_type24753->s0.tag = STRING_TYPE; t53473.value.structure_type24753->s0.value.string_type = t53472; t53473.value.structure_type24753->s1.tag = NULL_TYPE; a35124 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35124==NULL) {backtrace("stalin.sc", 16055, 559799); out_of_memory_error();} a35124->s0.tag = STRING_TYPE; a35124->s0.value.string_type = t53471; a35124->s1 = t53473; /* x272255 */ t53469 = a35124; /* x129168 stalin.sc:16055:559789 */ t53470.tag = STRUCTURE_TYPE24753; t53470.value.structure_type24753 = t53469; return f13472(t53470);} /* C:U[14289] */ struct w61020 f14289(struct w49 a25798) {struct w61020 r14289; struct structure_type24753 *a34862; /* OBJS */ struct structure_type24753 *a34907; /* OBJS */ struct structure_type24753 *a34913; /* OBJS */ struct structure_type24753 *a35136; /* OBJS */ struct structure_type24753 *a35154; /* OBJS */ struct structure_type24753 *a35155; /* OBJS */ struct w49 a37291; /* S */ struct w49 a37336; /* OBJ */ struct w49 a37375; /* S */ struct w49 a37433; /* OBJ */ struct w49 a37478; /* S */ struct w49 a37549; /* OBJ */ struct w49 a37599; /* S */ struct w49 a37692; /* OBJ */ struct w49 a37766; /* OBJ */ struct w49 a37834; /* S */ struct w49 a37839; /* S */ struct w49 a37887; /* OBJ */ struct w49 a37959; /* OBJ */ struct w49 a38099; /* OBJ */ struct w49 a38216; /* OBJ */ struct w49 a38277; /* OBJ */ struct w49 a38318; /* OBJ */ struct w49 a40130; /* S */ struct w49 t53478; struct w49 t53479; struct w49 t53480; struct w49 t53481; struct w49 t53482; struct w49 t53483; struct w49 t53484; struct w49 t53485; struct w49 t53486; struct w49 t53487; struct w49 t53488; struct w49 t53489; struct w49 t53490; struct w49 t53491; struct w49 t53492; struct w49 t53493; struct w49 t53494; struct w49 t53495; struct w49 t53496; struct w49 t53497; struct w49 t53498; struct w49 t53499; struct w49 t53500; struct w49 t53501; struct w49 t53502; struct w49 t53503; struct w49 t53504; struct w49 t53505; struct w49 t53506; struct w49 t53507; struct w49 t53508; struct w49 t53509; struct w49 t53510; char *t53511; char *t53512; char *t53513; struct w49 t53514; unsigned t53515; struct w49 t53516; struct w49 t53517; struct w49 t53518; char *t53519; char *t53520; struct w49 t53521; unsigned t53522; struct w49 t53523; struct w49 t53524; struct w49 t53525; char *t53526; char *t53527; struct w49 t53528; unsigned t53529; struct w49 t53530; struct w49 t53531; struct w49 t53532; char *t53533; char *t53534; struct w49 t53535; unsigned t53536; struct w49 t53537; struct w49 t53538; struct w49 t53539; char *t53540; char *t53541; struct w49 t53542; unsigned t53543; struct w49 t53544; struct w49 t53545; struct w49 t53546; struct w49 t53547; struct w49 t53548; struct w49 t53549; struct w49 t53550; char *t53551; char *t53552; char *t53553; char *t53554; struct w49 t53555; unsigned t53556; struct w49 t53557; struct w49 t53558; char *t53559; char *t53560; char *t53561; char *t53562; char *t53563; char *t53564; char *t53565; /* x129165 stalin.sc:16013:557998 */ /* x128946 stalin.sc:16013:558005 */ /* x128945 stalin.sc:16013:558017 */ t53478 = a25798; /* x128944 stalin.sc:16013:558006 */ if (f7677(t53478)==FALSE_TYPE) goto l7664; /* x128950 */ /* x128949 */ /* x128948 stalin.sc:16013:558020 */ /* x128947 stalin.sc:16013:558021 */ /* x296157 QobiScheme.sc:166:5314 */ /* x296156 QobiScheme.sc:166:5321 */ t53565 = "This shouldn\'t happen"; /* x296155 QobiScheme.sc:166:5315 */ stalin_panic(t53565); l7664: /* x129164 */ /* x128953 stalin.sc:16014:558039 */ /* x128952 stalin.sc:16014:558051 */ t53479 = a25798; /* x128951 stalin.sc:16014:558040 */ if (f7678(t53479)==FALSE_TYPE) goto l7666; /* x128957 */ /* x128956 */ /* x128955 stalin.sc:16014:558054 */ /* x128954 stalin.sc:16014:558055 */ /* x296161 QobiScheme.sc:166:5314 */ /* x296160 QobiScheme.sc:166:5321 */ t53564 = "This shouldn\'t happen"; /* x296159 QobiScheme.sc:166:5315 */ stalin_panic(t53564); l7666: /* x129163 */ /* x128960 stalin.sc:16015:558073 */ /* x128959 stalin.sc:16015:558086 */ t53480 = a25798; /* x128958 stalin.sc:16015:558074 */ if (f7679(t53480)==FALSE_TYPE) goto l7668; /* x128964 */ /* x128963 */ /* x128962 stalin.sc:16015:558089 */ /* x128961 stalin.sc:16015:558090 */ /* x296165 QobiScheme.sc:166:5314 */ /* x296164 QobiScheme.sc:166:5321 */ t53563 = "This shouldn\'t happen"; /* x296163 QobiScheme.sc:166:5315 */ stalin_panic(t53563); l7668: /* x129162 */ /* x128967 stalin.sc:16016:558108 */ /* x128966 stalin.sc:16016:558120 */ t53481 = a25798; /* x128965 stalin.sc:16016:558109 */ if (f7682(t53481)==FALSE_TYPE) goto l7670; /* x128971 */ /* x128970 */ /* x128969 stalin.sc:16016:558123 */ /* x128968 stalin.sc:16016:558124 */ /* x296169 QobiScheme.sc:166:5314 */ /* x296168 QobiScheme.sc:166:5321 */ t53562 = "This shouldn\'t happen"; /* x296167 QobiScheme.sc:166:5315 */ stalin_panic(t53562); l7670: /* x129161 */ /* x128974 stalin.sc:16017:558142 */ /* x128973 stalin.sc:16017:558156 */ t53482 = a25798; /* x128972 stalin.sc:16017:558143 */ if (f7683(t53482)==FALSE_TYPE) goto l7672; /* x128977 */ /* x128976 */ /* x128975 stalin.sc:16017:558159 */ r14289.tag = STRING_TYPE; r14289.value.string_type = "fixnum_type"; return r14289; l7672: /* x129160 */ /* x128980 stalin.sc:16018:558182 */ /* x128979 stalin.sc:16018:558196 */ t53483 = a25798; /* x128978 stalin.sc:16018:558183 */ if (f7684(t53483)==FALSE_TYPE) goto l7674; /* x128983 */ /* x128982 */ /* x128981 stalin.sc:16018:558199 */ r14289.tag = STRING_TYPE; r14289.value.string_type = "flonum_type"; return r14289; l7674: /* x129159 */ /* x128986 stalin.sc:16019:558222 */ /* x128985 stalin.sc:16019:558241 */ t53484 = a25798; /* x128984 stalin.sc:16019:558223 */ if (f7687(t53484)==FALSE_TYPE) goto l7676; /* x128989 */ /* x128988 */ /* x128987 stalin.sc:16019:558244 */ r14289.tag = STRING_TYPE; r14289.value.string_type = "rectangular_type"; return r14289; l7676: /* x129158 */ /* x128992 stalin.sc:16020:558272 */ /* x128991 stalin.sc:16020:558290 */ t53485 = a25798; /* x128990 stalin.sc:16020:558273 */ if (f7700(t53485)==FALSE_TYPE) goto l7678; /* x128995 */ /* x128994 */ /* x128993 stalin.sc:16020:558293 */ r14289.tag = STRING_TYPE; r14289.value.string_type = "input_port_type"; return r14289; l7678: /* x129157 */ /* x128998 stalin.sc:16021:558320 */ /* x128997 stalin.sc:16021:558339 */ t53486 = a25798; /* x128996 stalin.sc:16021:558321 */ if (f7701(t53486)==FALSE_TYPE) goto l7680; /* x129001 */ /* x129000 */ /* x128999 stalin.sc:16021:558342 */ r14289.tag = STRING_TYPE; r14289.value.string_type = "output_port_type"; return r14289; l7680: /* x129156 */ /* x129004 stalin.sc:16022:558370 */ /* x129003 stalin.sc:16022:558388 */ t53487 = a25798; /* x129002 stalin.sc:16022:558371 */ if (f7702(t53487)==FALSE_TYPE) goto l7682; /* x129008 */ /* x129007 */ /* x129006 stalin.sc:16022:558391 */ /* x129005 stalin.sc:16022:558392 */ /* x296173 QobiScheme.sc:166:5314 */ /* x296172 QobiScheme.sc:166:5321 */ t53561 = "This shouldn\'t happen"; /* x296171 QobiScheme.sc:166:5315 */ stalin_panic(t53561); l7682: /* x129155 */ /* x129011 stalin.sc:16023:558410 */ /* x129010 stalin.sc:16023:558425 */ t53488 = a25798; /* x129009 stalin.sc:16023:558411 */ if (f7703(t53488)==FALSE_TYPE) goto l7684; /* x129014 */ /* x129013 */ /* x129012 stalin.sc:16023:558428 */ r14289.tag = STRING_TYPE; r14289.value.string_type = "pointer_type"; return r14289; l7684: /* x129154 */ /* x129017 stalin.sc:16024:558452 */ /* x129016 stalin.sc:16024:558475 */ t53489 = a25798; /* x129015 stalin.sc:16024:558453 */ a38318 = t53489; /* x285941 */ /* x285940 */ t53490 = a38318; /* x285939 */ if (!((t53490.tag)==STRUCTURE_TYPE27776)) goto l7686; /* x129021 */ /* x129020 */ /* x129019 stalin.sc:16024:558478 */ /* x129018 stalin.sc:16024:558479 */ /* x295041 QobiScheme.sc:166:5314 */ /* x295040 QobiScheme.sc:166:5321 */ t53560 = "This shouldn\'t happen"; /* x295039 QobiScheme.sc:166:5315 */ stalin_panic(t53560); l7686: /* x129153 */ /* x129024 stalin.sc:16028:558672 */ /* x129023 stalin.sc:16028:558695 */ t53491 = a25798; /* x129022 stalin.sc:16028:558673 */ a38277 = t53491; /* x285777 */ /* x285776 */ t53492 = a38277; /* x285775 */ if (!((t53492.tag)==STRUCTURE_TYPE27779)) goto l7688; /* x129027 */ /* x129026 */ /* x129025 stalin.sc:16028:558698 */ r14289.tag = STRING_TYPE; r14289.value.string_type = "external_symbol_type"; return r14289; l7688: /* x129152 */ /* x129030 stalin.sc:16029:558730 */ /* x129029 stalin.sc:16029:558757 */ t53493 = a25798; /* x129028 stalin.sc:16029:558731 */ a38216 = t53493; /* x285533 */ /* x285532 */ t53494 = a38216; /* x285531 */ if (!((t53494.tag)==STRUCTURE_TYPE27753)) goto l7690; /* x129034 */ /* x129033 */ /* x129032 stalin.sc:16029:558760 */ /* x129031 stalin.sc:16029:558761 */ /* x296177 QobiScheme.sc:166:5314 */ /* x296176 QobiScheme.sc:166:5321 */ t53559 = "This shouldn\'t happen"; /* x296175 QobiScheme.sc:166:5315 */ stalin_panic(t53559); l7690: /* x129151 */ /* x129037 stalin.sc:16030:558779 */ /* x129036 stalin.sc:16030:558803 */ t53495 = a25798; /* x129035 stalin.sc:16030:558780 */ a38099 = t53495; /* x285065 */ /* x285064 */ t53496 = a38099; /* x285063 */ if (!((t53496.tag)==STRUCTURE_TYPE27756)) goto l7692; /* x129047 */ /* x129046 */ /* x129045 stalin.sc:16031:558807 */ /* x129044 stalin.sc:16031:558837 */ /* x129043 stalin.sc:16031:558853 */ /* x129042 stalin.sc:16031:558865 */ t53558 = a25798; /* x129041 stalin.sc:16031:558854 */ t53556 = f7936(t53558); /* x129040 stalin.sc:16031:558838 */ /* MOVE: dispatching squished to general */ if (t53556==FALSE_TYPE) t53557.tag = (unsigned)t53556; else {t53557.tag = FIXNUM_TYPE; t53557.value.fixnum_type = (int)(((int)t53556)>>1);} t53554 = f28396(t53557); /* x129039 stalin.sc:16031:558813 */ t53553 = "native_procedure_type"; /* x129038 stalin.sc:16031:558808 */ t53555.tag = STRUCTURE_TYPE24753; t53555.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53555.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16031, 558807); out_of_memory_error();} t53555.value.structure_type24753->s0.tag = STRING_TYPE; t53555.value.structure_type24753->s0.value.string_type = t53554; t53555.value.structure_type24753->s1.tag = NULL_TYPE; a35154 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35154==NULL) {backtrace("stalin.sc", 16031, 558807); out_of_memory_error();} a35154->s0.tag = STRING_TYPE; a35154->s0.value.string_type = t53553; a35154->s1 = t53555; /* x272315 */ r14289.tag = STRUCTURE_TYPE24753; r14289.value.structure_type24753 = a35154; return r14289; l7692: /* x129150 */ /* x129050 stalin.sc:16032:558879 */ /* x129049 stalin.sc:16032:558904 */ t53497 = a25798; /* x129048 stalin.sc:16032:558880 */ a37959 = t53497; /* x284505 */ /* x284504 */ t53498 = a37959; /* x284503 */ if (!((t53498.tag)==STRUCTURE_TYPE27750)) goto l7694; /* x129054 */ /* x129053 */ /* x129052 stalin.sc:16032:558907 */ /* x129051 stalin.sc:16032:558908 */ /* x296181 QobiScheme.sc:166:5314 */ /* x296180 QobiScheme.sc:166:5321 */ t53552 = "This shouldn\'t happen"; /* x296179 QobiScheme.sc:166:5315 */ stalin_panic(t53552); l7694: /* x129149 */ /* x129057 stalin.sc:16033:558926 */ /* x129056 stalin.sc:16033:558946 */ t53499 = a25798; /* x129055 stalin.sc:16033:558927 */ a37887 = t53499; /* x284217 */ /* x284216 */ t53500 = a37887; /* x284215 */ if (!((t53500.tag)==STRUCTURE_TYPE27858)) goto l7696; /* x129081 */ /* x129080 */ /* x129079 */ /* x129078 stalin.sc:16034:558950 */ /* x129071 stalin.sc:16034:558958 */ /* x129070 stalin.sc:16034:558999 */ t53549 = a25798; /* x129069 stalin.sc:16034:558959 */ a37839 = t53549; /* x284025 */ /* x284024 */ t53550 = a37839; /* x284023 */ if (!((t53550.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32756]"); structure_ref_error();} if ((t53550.value.structure_type27858->s0.tag)==FALSE_TYPE) goto l7708; /* x129073 */ /* x129072 */ goto l7709; l7708: /* x129077 */ /* x129076 */ /* x129075 stalin.sc:16034:559002 */ /* x129074 stalin.sc:16034:559003 */ /* x296021 QobiScheme.sc:166:5314 */ /* x296020 QobiScheme.sc:166:5321 */ t53551 = "This shouldn\'t happen"; /* x296019 QobiScheme.sc:166:5315 */ stalin_panic(t53551); l7709: /* x129068 */ /* x129067 stalin.sc:16035:559014 */ /* x129066 stalin.sc:16036:559047 */ /* x129065 stalin.sc:16037:559071 */ /* x129064 stalin.sc:16038:559091 */ /* x129063 stalin.sc:16038:559132 */ t53547 = a25798; /* x129062 stalin.sc:16038:559092 */ a37834 = t53547; /* x284005 */ /* x284004 */ t53548 = a37834; /* x284003 */ if (!((t53548.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32751]"); structure_ref_error();} t53545 = t53548.value.structure_type27858->s0; /* x129061 stalin.sc:16037:559072 */ a40130 = t53545; /* x293189 */ /* x293188 */ t53546 = a40130; /* x293187 */ if (!((t53546.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35047]"); structure_ref_error();} t53543 = t53546.value.structure_type27698->s7; /* x129060 stalin.sc:16036:559048 */ /* MOVE: dispatching squished to general */ if (t53543==FALSE_TYPE) t53544.tag = (unsigned)t53543; else {t53544.tag = FIXNUM_TYPE; t53544.value.fixnum_type = (int)(((int)t53543)>>1);} t53541 = f28396(t53544); /* x129059 stalin.sc:16035:559020 */ t53540 = "continuation_type"; /* x129058 stalin.sc:16035:559015 */ t53542.tag = STRUCTURE_TYPE24753; t53542.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53542.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16035, 559014); out_of_memory_error();} t53542.value.structure_type24753->s0.tag = STRING_TYPE; t53542.value.structure_type24753->s0.value.string_type = t53541; t53542.value.structure_type24753->s1.tag = NULL_TYPE; a35136 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35136==NULL) {backtrace("stalin.sc", 16035, 559014); out_of_memory_error();} a35136->s0.tag = STRING_TYPE; a35136->s0.value.string_type = t53540; a35136->s1 = t53542; /* x272279 */ r14289.tag = STRUCTURE_TYPE24753; r14289.value.structure_type24753 = a35136; return r14289; l7696: /* x129148 */ /* x129084 stalin.sc:16041:559254 */ /* x129083 stalin.sc:16041:559268 */ t53501 = a25798; /* x129082 stalin.sc:16041:559255 */ a37766 = t53501; /* x283733 */ /* x283732 */ t53502 = a37766; /* x283731 */ if (!((t53502.tag)==STRUCTURE_TYPE27673)) goto l7698; /* x129087 */ /* x129086 */ /* x129085 stalin.sc:16041:559271 */ r14289.tag = STRING_TYPE; r14289.value.string_type = "string_type"; return r14289; l7698: /* x129147 */ /* x129090 stalin.sc:16042:559294 */ /* x129089 stalin.sc:16042:559311 */ t53503 = a25798; /* x129088 stalin.sc:16042:559295 */ a37692 = t53503; /* x283437 */ /* x283436 */ t53504 = a37692; /* x283435 */ if (!((t53504.tag)==STRUCTURE_TYPE27769)) goto l7700; /* x129100 */ /* x129099 */ /* x129098 stalin.sc:16043:559315 */ /* x129097 stalin.sc:16043:559338 */ /* x129096 stalin.sc:16043:559354 */ /* x129095 stalin.sc:16043:559376 */ t53538 = a25798; /* x129094 stalin.sc:16043:559355 */ a37599 = t53538; /* x283065 */ /* x283064 */ t53539 = a37599; /* x283063 */ if (!((t53539.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-INDEX[6201] 32516]"); structure_ref_error();} t53536 = t53539.value.structure_type27769->s4; /* x129093 stalin.sc:16043:559339 */ /* MOVE: dispatching squished to general */ if (t53536==FALSE_TYPE) t53537.tag = (unsigned)t53536; else {t53537.tag = FIXNUM_TYPE; t53537.value.fixnum_type = (int)(((int)t53536)>>1);} t53534 = f28396(t53537); /* x129092 stalin.sc:16043:559321 */ t53533 = "structure_type"; /* x129091 stalin.sc:16043:559316 */ t53535.tag = STRUCTURE_TYPE24753; t53535.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53535.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16043, 559315); out_of_memory_error();} t53535.value.structure_type24753->s0.tag = STRING_TYPE; t53535.value.structure_type24753->s0.value.string_type = t53534; t53535.value.structure_type24753->s1.tag = NULL_TYPE; a34913 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34913==NULL) {backtrace("stalin.sc", 16043, 559315); out_of_memory_error();} a34913->s0.tag = STRING_TYPE; a34913->s0.value.string_type = t53533; a34913->s1 = t53535; /* x271833 */ r14289.tag = STRUCTURE_TYPE24753; r14289.value.structure_type24753 = a34913; return r14289; l7700: /* x129146 */ /* x129103 stalin.sc:16044:559390 */ /* x129102 stalin.sc:16044:559411 */ t53505 = a25798; /* x129101 stalin.sc:16044:559391 */ a37549 = t53505; /* x282865 */ /* x282864 */ t53506 = a37549; /* x282863 */ if (!((t53506.tag)==STRUCTURE_TYPE27761)) goto l7702; /* x129113 */ /* x129112 */ /* x129111 stalin.sc:16045:559415 */ /* x129110 stalin.sc:16046:559449 */ /* x129109 stalin.sc:16046:559465 */ /* x129108 stalin.sc:16046:559491 */ t53531 = a25798; /* x129107 stalin.sc:16046:559466 */ a37478 = t53531; /* x282581 */ /* x282580 */ t53532 = a37478; /* x282579 */ if (!((t53532.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-INDEX[6267] 32395]"); structure_ref_error();} t53529 = t53532.value.structure_type27761->s3; /* x129106 stalin.sc:16046:559450 */ /* MOVE: dispatching squished to general */ if (t53529==FALSE_TYPE) t53530.tag = (unsigned)t53529; else {t53530.tag = FIXNUM_TYPE; t53530.value.fixnum_type = (int)(((int)t53529)>>1);} t53527 = f28396(t53530); /* x129105 stalin.sc:16045:559421 */ t53526 = "headed_vector_type"; /* x129104 stalin.sc:16045:559416 */ t53528.tag = STRUCTURE_TYPE24753; t53528.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53528.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16045, 559415); out_of_memory_error();} t53528.value.structure_type24753->s0.tag = STRING_TYPE; t53528.value.structure_type24753->s0.value.string_type = t53527; t53528.value.structure_type24753->s1.tag = NULL_TYPE; a34907 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34907==NULL) {backtrace("stalin.sc", 16045, 559415); out_of_memory_error();} a34907->s0.tag = STRING_TYPE; a34907->s0.value.string_type = t53526; a34907->s1 = t53528; /* x271821 */ r14289.tag = STRUCTURE_TYPE24753; r14289.value.structure_type24753 = a34907; return r14289; l7702: /* x129145 */ /* x129116 stalin.sc:16047:559505 */ /* x129115 stalin.sc:16047:559529 */ t53507 = a25798; /* x129114 stalin.sc:16047:559506 */ a37433 = t53507; /* x282401 */ /* x282400 */ t53508 = a37433; /* x282399 */ if (!((t53508.tag)==STRUCTURE_TYPE27669)) goto l7704; /* x129126 */ /* x129125 */ /* x129124 stalin.sc:16048:559533 */ /* x129123 stalin.sc:16049:559570 */ /* x129122 stalin.sc:16049:559586 */ /* x129121 stalin.sc:16049:559615 */ t53524 = a25798; /* x129120 stalin.sc:16049:559587 */ a37375 = t53524; /* x282169 */ /* x282168 */ t53525 = a37375; /* x282167 */ if (!((t53525.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-INDEX[6333] 32292]"); structure_ref_error();} t53522 = t53525.value.structure_type27669->s3; /* x129119 stalin.sc:16049:559571 */ /* MOVE: dispatching squished to general */ if (t53522==FALSE_TYPE) t53523.tag = (unsigned)t53522; else {t53523.tag = FIXNUM_TYPE; t53523.value.fixnum_type = (int)(((int)t53522)>>1);} t53520 = f28396(t53523); /* x129118 stalin.sc:16048:559539 */ t53519 = "nonheaded_vector_type"; /* x129117 stalin.sc:16048:559534 */ t53521.tag = STRUCTURE_TYPE24753; t53521.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53521.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16048, 559533); out_of_memory_error();} t53521.value.structure_type24753->s0.tag = STRING_TYPE; t53521.value.structure_type24753->s0.value.string_type = t53520; t53521.value.structure_type24753->s1.tag = NULL_TYPE; a35155 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35155==NULL) {backtrace("stalin.sc", 16048, 559533); out_of_memory_error();} a35155->s0.tag = STRING_TYPE; a35155->s0.value.string_type = t53519; a35155->s1 = t53521; /* x272317 */ r14289.tag = STRUCTURE_TYPE24753; r14289.value.structure_type24753 = a35155; return r14289; l7704: /* x129144 */ /* x129129 stalin.sc:16050:559629 */ /* x129128 stalin.sc:16050:559653 */ t53509 = a25798; /* x129127 stalin.sc:16050:559630 */ a37336 = t53509; /* x282013 */ /* x282012 */ t53510 = a37336; /* x282011 */ if (!((t53510.tag)==STRUCTURE_TYPE27908)) goto l7706; /* x129139 */ /* x129138 */ /* x129137 stalin.sc:16051:559657 */ /* x129136 stalin.sc:16052:559694 */ /* x129135 stalin.sc:16052:559710 */ /* x129134 stalin.sc:16052:559739 */ t53517 = a25798; /* x129133 stalin.sc:16052:559711 */ a37291 = t53517; /* x281833 */ /* x281832 */ t53518 = a37291; /* x281831 */ if (!((t53518.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-INDEX[6391] 32208]"); structure_ref_error();} t53515 = t53518.value.structure_type27908->s2; /* x129132 stalin.sc:16052:559695 */ /* MOVE: dispatching squished to general */ if (t53515==FALSE_TYPE) t53516.tag = (unsigned)t53515; else {t53516.tag = FIXNUM_TYPE; t53516.value.fixnum_type = (int)(((int)t53515)>>1);} t53513 = f28396(t53516); /* x129131 stalin.sc:16051:559663 */ t53512 = "displaced_vector_type"; /* x129130 stalin.sc:16051:559658 */ t53514.tag = STRUCTURE_TYPE24753; t53514.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53514.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16051, 559657); out_of_memory_error();} t53514.value.structure_type24753->s0.tag = STRING_TYPE; t53514.value.structure_type24753->s0.value.string_type = t53513; t53514.value.structure_type24753->s1.tag = NULL_TYPE; a34862 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34862==NULL) {backtrace("stalin.sc", 16051, 559657); out_of_memory_error();} a34862->s0.tag = STRING_TYPE; a34862->s0.value.string_type = t53512; a34862->s1 = t53514; /* x271731 */ r14289.tag = STRUCTURE_TYPE24753; r14289.value.structure_type24753 = a34862; return r14289; l7706: /* x129143 */ /* x129142 */ /* x129141 stalin.sc:16053:559758 */ /* x129140 stalin.sc:16053:559759 */ /* x296185 QobiScheme.sc:166:5314 */ /* x296184 QobiScheme.sc:166:5321 */ t53511 = "This shouldn\'t happen"; /* x296183 QobiScheme.sc:166:5315 */ stalin_panic(t53511);} /* C:T[14288] */ struct structure_type24753 *f14288(unsigned a25797) {struct structure_type24753 *a35189; /* OBJS */ char *t53566; char *t53567; struct w49 t53568; unsigned t53569; struct w49 t53570; /* x128941 stalin.sc:16010:557949 */ /* x128940 stalin.sc:16010:557959 */ /* x128939 stalin.sc:16010:557975 */ t53569 = a25797; /* x128938 stalin.sc:16010:557960 */ /* MOVE: dispatching squished to general */ if (t53569==FALSE_TYPE) t53570.tag = (unsigned)t53569; else {t53570.tag = FIXNUM_TYPE; t53570.value.fixnum_type = (int)(((int)t53569)>>1);} t53567 = f28396(t53570); /* x128937 stalin.sc:16010:557955 */ t53566 = "t"; /* x128936 stalin.sc:16010:557950 */ t53568.tag = STRUCTURE_TYPE24753; t53568.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53568.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16010, 557949); out_of_memory_error();} t53568.value.structure_type24753->s0.tag = STRING_TYPE; t53568.value.structure_type24753->s0.value.string_type = t53567; t53568.value.structure_type24753->s1.tag = NULL_TYPE; a35189 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35189==NULL) {backtrace("stalin.sc", 16010, 557949); out_of_memory_error();} a35189->s0.tag = STRING_TYPE; a35189->s0.value.string_type = t53566; a35189->s1 = t53568; /* x272385 */ return a35189;} /* C:S[14287] */ struct structure_type24753 *f14287(struct w49 a25796) {struct structure_type24753 *a34914; /* OBJS */ char *t53571; char *t53572; struct w49 t53573; struct w49 t53574; struct w49 t53575; /* x128933 stalin.sc:16008:557901 */ /* x128932 stalin.sc:16008:557911 */ /* x128931 stalin.sc:16008:557927 */ t53574 = a25796; /* x128930 stalin.sc:16008:557912 */ t53575 = t53574; t53572 = f28396(t53575); /* x128929 stalin.sc:16008:557907 */ t53571 = "s"; /* x128928 stalin.sc:16008:557902 */ t53573.tag = STRUCTURE_TYPE24753; t53573.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53573.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16008, 557901); out_of_memory_error();} t53573.value.structure_type24753->s0.tag = STRING_TYPE; t53573.value.structure_type24753->s0.value.string_type = t53572; t53573.value.structure_type24753->s1.tag = NULL_TYPE; a34914 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34914==NULL) {backtrace("stalin.sc", 16008, 557901); out_of_memory_error();} a34914->s0.tag = STRING_TYPE; a34914->s0.value.string_type = t53571; a34914->s1 = t53573; /* x271835 */ return a34914;} /* C:R[14286] */ struct structure_type24753 *f14286(struct w49 a25795) {struct structure_type24753 *a35190; /* OBJS */ struct w49 a36740; /* S */ struct w49 a36758; /* OBJ */ struct w49 t53576; struct w49 t53577; struct w49 t53578; char *t53579; struct w61020 t53580; char *t53581; char *t53582; struct w49 t53583; unsigned t53584; struct w49 t53585; struct w49 t53586; struct w49 t53587; /* x128925 stalin.sc:16004:557783 */ /* x128912 stalin.sc:16004:557787 */ /* x128911 stalin.sc:16004:557801 */ t53576 = a25795; /* x128910 stalin.sc:16004:557788 */ a36758 = t53576; /* x279701 */ /* x279700 */ t53577 = a36758; /* x279699 */ if (!((t53577.tag)==STRUCTURE_TYPE27694)) goto l7711; /* x128920 stalin.sc:16005:557811 */ /* x128919 stalin.sc:16005:557821 */ /* x128918 stalin.sc:16005:557837 */ /* x128917 stalin.sc:16005:557856 */ t53586 = a25795; /* x128916 stalin.sc:16005:557838 */ a36740 = t53586; /* x279629 */ /* x279628 */ t53587 = a36740; /* x279627 */ if (!((t53587.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-INDEX[6631] 31657]"); structure_ref_error();} t53584 = t53587.value.structure_type27694->s0; /* x128915 stalin.sc:16005:557822 */ /* MOVE: dispatching squished to general */ if (t53584==FALSE_TYPE) t53585.tag = (unsigned)t53584; else {t53585.tag = FIXNUM_TYPE; t53585.value.fixnum_type = (int)(((int)t53584)>>1);} t53582 = f28396(t53585); /* x128914 stalin.sc:16005:557817 */ t53581 = "r"; /* x128913 stalin.sc:16005:557812 */ t53583.tag = STRUCTURE_TYPE24753; t53583.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53583.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16005, 557811); out_of_memory_error();} t53583.value.structure_type24753->s0.tag = STRING_TYPE; t53583.value.structure_type24753->s0.value.string_type = t53582; t53583.value.structure_type24753->s1.tag = NULL_TYPE; a35190 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35190==NULL) {backtrace("stalin.sc", 16005, 557811); out_of_memory_error();} a35190->s0.tag = STRING_TYPE; a35190->s0.value.string_type = t53581; a35190->s1 = t53583; /* x272387 */ return a35190; l7711: /* x128924 stalin.sc:16006:557868 */ /* x128922 stalin.sc:16006:557873 */ t53578 = a25795; /* x128923 stalin.sc:16006:557877 */ t53579 = "r"; /* x128921 stalin.sc:16006:557869 */ t53580.tag = STRING_TYPE; t53580.value.string_type = t53579; return f13585(t53578, t53580);} /* C:Q[14285] */ struct structure_type24753 *f14285(unsigned a25794) {struct structure_type24753 *a35179; /* OBJS */ char *t53588; char *t53589; struct w49 t53590; unsigned t53591; struct w49 t53592; /* x128907 stalin.sc:16001:557732 */ /* x128906 stalin.sc:16001:557742 */ /* x128905 stalin.sc:16001:557758 */ t53591 = a25794; /* x128904 stalin.sc:16001:557743 */ /* MOVE: dispatching squished to general */ if (t53591==FALSE_TYPE) t53592.tag = (unsigned)t53591; else {t53592.tag = FIXNUM_TYPE; t53592.value.fixnum_type = (int)(((int)t53591)>>1);} t53589 = f28396(t53592); /* x128903 stalin.sc:16001:557738 */ t53588 = "q"; /* x128902 stalin.sc:16001:557733 */ t53590.tag = STRUCTURE_TYPE24753; t53590.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53590.value.structure_type24753)==NULL) {backtrace("stalin.sc", 16001, 557732); out_of_memory_error();} t53590.value.structure_type24753->s0.tag = STRING_TYPE; t53590.value.structure_type24753->s0.value.string_type = t53589; t53590.value.structure_type24753->s1.tag = NULL_TYPE; a35179 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35179==NULL) {backtrace("stalin.sc", 16001, 557732); out_of_memory_error();} a35179->s0.tag = STRING_TYPE; a35179->s0.value.string_type = t53588; a35179->s1 = t53590; /* x272365 */ return a35179;} /* C:P[14281] */ struct structure_type24753 *f14281(struct w49 a25793) {struct structure_type24753 *a35186; /* OBJS */ struct w49 a36739; /* S */ struct w49 a36756; /* OBJ */ struct w49 a38104; /* OBJ */ struct w49 t53593; struct w49 t53594; struct w49 t53595; struct w49 t53596; char *t53597; char *t53598; char *t53599; struct w49 t53600; unsigned t53601; struct w49 t53602; struct w49 t53603; struct w49 t53604; struct w49 t53605; struct w49 t53606; h14281: /* x128899 stalin.sc:15997:557543 */ /* x128873 stalin.sc:15997:557550 */ /* x128872 stalin.sc:15997:557574 */ t53593 = a25793; /* x128871 stalin.sc:15997:557551 */ a38104 = t53593; /* x285085 */ /* x285084 */ t53594 = a38104; /* x285083 */ if (!((t53594.tag)==STRUCTURE_TYPE27756)) goto l7713; /* x128880 */ /* x128879 */ /* x128878 stalin.sc:15997:557579 */ /* x128877 stalin.sc:15997:557584 */ /* x128876 stalin.sc:15997:557602 */ t53606 = a25793; /* x128875 stalin.sc:15997:557585 */ t53605 = f8966(t53606); /* x128874 stalin.sc:15997:557580 */ a25793 = t53605; goto h14281; l7713: /* x128898 */ /* x128883 stalin.sc:15998:557617 */ /* x128882 stalin.sc:15998:557631 */ t53595 = a25793; /* x128881 stalin.sc:15998:557618 */ a36756 = t53595; /* x279693 */ /* x279692 */ t53596 = a36756; /* x279691 */ if (!((t53596.tag)==STRUCTURE_TYPE27694)) goto l7715; /* x128893 */ /* x128892 */ /* x128891 stalin.sc:15998:557636 */ /* x128890 stalin.sc:15998:557646 */ /* x128889 stalin.sc:15998:557662 */ /* x128888 stalin.sc:15998:557681 */ t53603 = a25793; /* x128887 stalin.sc:15998:557663 */ a36739 = t53603; /* x279625 */ /* x279624 */ t53604 = a36739; /* x279623 */ if (!((t53604.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-INDEX[6631] 31656]"); structure_ref_error();} t53601 = t53604.value.structure_type27694->s0; /* x128886 stalin.sc:15998:557647 */ /* MOVE: dispatching squished to general */ if (t53601==FALSE_TYPE) t53602.tag = (unsigned)t53601; else {t53602.tag = FIXNUM_TYPE; t53602.value.fixnum_type = (int)(((int)t53601)>>1);} t53599 = f28396(t53602); /* x128885 stalin.sc:15998:557642 */ t53598 = "p"; /* x128884 stalin.sc:15998:557637 */ t53600.tag = STRUCTURE_TYPE24753; t53600.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53600.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15998, 557636); out_of_memory_error();} t53600.value.structure_type24753->s0.tag = STRING_TYPE; t53600.value.structure_type24753->s0.value.string_type = t53599; t53600.value.structure_type24753->s1.tag = NULL_TYPE; a35186 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35186==NULL) {backtrace("stalin.sc", 15998, 557636); out_of_memory_error();} a35186->s0.tag = STRING_TYPE; a35186->s0.value.string_type = t53598; a35186->s1 = t53600; /* x272379 */ return a35186; l7715: /* x128897 */ /* x128896 */ /* x128895 stalin.sc:15999:557702 */ /* x128894 stalin.sc:15999:557703 */ /* x296573 QobiScheme.sc:166:5314 */ /* x296572 QobiScheme.sc:166:5321 */ t53597 = "This shouldn\'t happen"; /* x296571 QobiScheme.sc:166:5315 */ stalin_panic(t53597);} /* C:J[14279] */ struct structure_type24753 *f14279(struct w49 a25791) {struct structure_type24753 *a35101; /* OBJS */ struct w49 a40125; /* S */ char *t53607; char *t53608; struct w49 t53609; unsigned t53610; struct w49 t53611; struct w49 t53612; struct w49 t53613; /* x128860 stalin.sc:15990:557296 */ /* x128859 stalin.sc:15990:557306 */ /* x128858 stalin.sc:15990:557322 */ /* x128857 stalin.sc:15990:557340 */ t53612 = a25791; /* x128856 stalin.sc:15990:557323 */ a40125 = t53612; /* x293169 */ /* x293168 */ t53613 = a40125; /* x293167 */ if (!((t53613.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35042]"); structure_ref_error();} t53610 = t53613.value.structure_type27698->s7; /* x128855 stalin.sc:15990:557307 */ /* MOVE: dispatching squished to general */ if (t53610==FALSE_TYPE) t53611.tag = (unsigned)t53610; else {t53611.tag = FIXNUM_TYPE; t53611.value.fixnum_type = (int)(((int)t53610)>>1);} t53608 = f28396(t53611); /* x128854 stalin.sc:15990:557302 */ t53607 = "j"; /* x128853 stalin.sc:15990:557297 */ t53609.tag = STRUCTURE_TYPE24753; t53609.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53609.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15990, 557296); out_of_memory_error();} t53609.value.structure_type24753->s0.tag = STRING_TYPE; t53609.value.structure_type24753->s0.value.string_type = t53608; t53609.value.structure_type24753->s1.tag = NULL_TYPE; a35101 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35101==NULL) {backtrace("stalin.sc", 15990, 557296); out_of_memory_error();} a35101->s0.tag = STRING_TYPE; a35101->s0.value.string_type = t53607; a35101->s1 = t53609; /* x272209 */ return a35101;} /* C:I[14278] */ struct structure_type24753 *f14278(struct w49 a25790) {struct w49 t53614; char *t53615; struct w61020 t53616; /* x128850 stalin.sc:15988:557266 */ /* x128848 stalin.sc:15988:557271 */ t53614 = a25790; /* x128849 stalin.sc:15988:557273 */ t53615 = "i"; /* x128847 stalin.sc:15988:557267 */ t53616.tag = STRING_TYPE; t53616.value.string_type = t53615; return f13585(t53614, t53616);} /* C:H[14277] */ struct structure_type24753 *f14277(struct w49 a25789) {struct structure_type24753 *a35176; /* OBJS */ struct w49 a36737; /* S */ char *t53617; char *t53618; struct w49 t53619; unsigned t53620; struct w49 t53621; struct w49 t53622; struct w49 t53623; /* x128844 stalin.sc:15986:557198 */ /* x128843 stalin.sc:15986:557208 */ /* x128842 stalin.sc:15986:557224 */ /* x128841 stalin.sc:15986:557243 */ t53622 = a25789; /* x128840 stalin.sc:15986:557225 */ a36737 = t53622; /* x279617 */ /* x279616 */ t53623 = a36737; /* x279615 */ if (!((t53623.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-INDEX[6631] 31654]"); structure_ref_error();} t53620 = t53623.value.structure_type27694->s0; /* x128839 stalin.sc:15986:557209 */ /* MOVE: dispatching squished to general */ if (t53620==FALSE_TYPE) t53621.tag = (unsigned)t53620; else {t53621.tag = FIXNUM_TYPE; t53621.value.fixnum_type = (int)(((int)t53620)>>1);} t53618 = f28396(t53621); /* x128838 stalin.sc:15986:557204 */ t53617 = "h"; /* x128837 stalin.sc:15986:557199 */ t53619.tag = STRUCTURE_TYPE24753; t53619.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53619.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15986, 557198); out_of_memory_error();} t53619.value.structure_type24753->s0.tag = STRING_TYPE; t53619.value.structure_type24753->s0.value.string_type = t53618; t53619.value.structure_type24753->s1.tag = NULL_TYPE; a35176 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35176==NULL) {backtrace("stalin.sc", 15986, 557198); out_of_memory_error();} a35176->s0.tag = STRING_TYPE; a35176->s0.value.string_type = t53617; a35176->s1 = t53619; /* x272359 */ return a35176;} /* C:F[14276] */ struct structure_type24753 *f14276(struct w49 a25788) {struct structure_type24753 *a35174; /* OBJS */ struct w49 a36735; /* S */ char *t53624; char *t53625; struct w49 t53626; unsigned t53627; struct w49 t53628; struct w49 t53629; struct w49 t53630; /* x128834 stalin.sc:15984:557130 */ /* x128833 stalin.sc:15984:557140 */ /* x128832 stalin.sc:15984:557156 */ /* x128831 stalin.sc:15984:557175 */ t53629 = a25788; /* x128830 stalin.sc:15984:557157 */ a36735 = t53629; /* x279609 */ /* x279608 */ t53630 = a36735; /* x279607 */ if (!((t53630.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-INDEX[6631] 31652]"); structure_ref_error();} t53627 = t53630.value.structure_type27694->s0; /* x128829 stalin.sc:15984:557141 */ /* MOVE: dispatching squished to general */ if (t53627==FALSE_TYPE) t53628.tag = (unsigned)t53627; else {t53628.tag = FIXNUM_TYPE; t53628.value.fixnum_type = (int)(((int)t53627)>>1);} t53625 = f28396(t53628); /* x128828 stalin.sc:15984:557136 */ t53624 = "f"; /* x128827 stalin.sc:15984:557131 */ t53626.tag = STRUCTURE_TYPE24753; t53626.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53626.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15984, 557130); out_of_memory_error();} t53626.value.structure_type24753->s0.tag = STRING_TYPE; t53626.value.structure_type24753->s0.value.string_type = t53625; t53626.value.structure_type24753->s1.tag = NULL_TYPE; a35174 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35174==NULL) {backtrace("stalin.sc", 15984, 557130); out_of_memory_error();} a35174->s0.tag = STRING_TYPE; a35174->s0.value.string_type = t53624; a35174->s1 = t53626; /* x272355 */ return a35174;} /* C:E[14275] */ struct structure_type24753 *f14275(struct w49 a25787) {struct structure_type24753 *a35183; /* OBJS */ struct w49 a36738; /* S */ char *t53631; char *t53632; struct w49 t53633; unsigned t53634; struct w49 t53635; struct w49 t53636; struct w49 t53637; /* x128824 stalin.sc:15982:557062 */ /* x128823 stalin.sc:15982:557072 */ /* x128822 stalin.sc:15982:557088 */ /* x128821 stalin.sc:15982:557107 */ t53636 = a25787; /* x128820 stalin.sc:15982:557089 */ a36738 = t53636; /* x279621 */ /* x279620 */ t53637 = a36738; /* x279619 */ if (!((t53637.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-INDEX[6631] 31655]"); structure_ref_error();} t53634 = t53637.value.structure_type27694->s0; /* x128819 stalin.sc:15982:557073 */ /* MOVE: dispatching squished to general */ if (t53634==FALSE_TYPE) t53635.tag = (unsigned)t53634; else {t53635.tag = FIXNUM_TYPE; t53635.value.fixnum_type = (int)(((int)t53634)>>1);} t53632 = f28396(t53635); /* x128818 stalin.sc:15982:557068 */ t53631 = "e"; /* x128817 stalin.sc:15982:557063 */ t53633.tag = STRUCTURE_TYPE24753; t53633.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53633.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15982, 557062); out_of_memory_error();} t53633.value.structure_type24753->s0.tag = STRING_TYPE; t53633.value.structure_type24753->s0.value.string_type = t53632; t53633.value.structure_type24753->s1.tag = NULL_TYPE; a35183 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35183==NULL) {backtrace("stalin.sc", 15982, 557062); out_of_memory_error();} a35183->s0.tag = STRING_TYPE; a35183->s0.value.string_type = t53631; a35183->s1 = t53633; /* x272373 */ return a35183;} /* C:D[14274] */ struct structure_type24753 *f14274(struct w49 a25786) {struct structure_type24753 *a35175; /* OBJS */ struct w49 a36736; /* S */ char *t53638; char *t53639; struct w49 t53640; unsigned t53641; struct w49 t53642; struct w49 t53643; struct w49 t53644; /* x128814 stalin.sc:15980:556994 */ /* x128813 stalin.sc:15980:557004 */ /* x128812 stalin.sc:15980:557020 */ /* x128811 stalin.sc:15980:557039 */ t53643 = a25786; /* x128810 stalin.sc:15980:557021 */ a36736 = t53643; /* x279613 */ /* x279612 */ t53644 = a36736; /* x279611 */ if (!((t53644.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-INDEX[6631] 31653]"); structure_ref_error();} t53641 = t53644.value.structure_type27694->s0; /* x128809 stalin.sc:15980:557005 */ /* MOVE: dispatching squished to general */ if (t53641==FALSE_TYPE) t53642.tag = (unsigned)t53641; else {t53642.tag = FIXNUM_TYPE; t53642.value.fixnum_type = (int)(((int)t53641)>>1);} t53639 = f28396(t53642); /* x128808 stalin.sc:15980:557000 */ t53638 = "d"; /* x128807 stalin.sc:15980:556995 */ t53640.tag = STRUCTURE_TYPE24753; t53640.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53640.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15980, 556994); out_of_memory_error();} t53640.value.structure_type24753->s0.tag = STRING_TYPE; t53640.value.structure_type24753->s0.value.string_type = t53639; t53640.value.structure_type24753->s1.tag = NULL_TYPE; a35175 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35175==NULL) {backtrace("stalin.sc", 15980, 556994); out_of_memory_error();} a35175->s0.tag = STRING_TYPE; a35175->s0.value.string_type = t53638; a35175->s1 = t53640; /* x272357 */ return a35175;} /* C:C[14272] */ char *f14272(void) {/* x128804 */ /* x128803 stalin.sc:15977:556954 */ /* x128802 stalin.sc:15977:556967 */ a749 = TRUE_TYPE; /* x128801 */ /* x128800 stalin.sc:15978:556972 */ return "c";} /* C:B[14271] */ struct structure_type24753 *f14271(struct w49 a25784) {struct w49 a20420; /* S */ struct structure_type24753 *a35121; /* OBJS */ char *t53645; char *t53646; struct w49 t53647; unsigned t53648; struct w49 t53649; struct w49 t53650; struct w49 t53651; /* x128797 stalin.sc:15974:556890 */ /* x128796 stalin.sc:15974:556900 */ /* x128795 stalin.sc:15974:556916 */ /* x128794 stalin.sc:15974:556932 */ t53650 = a25784; /* x128793 stalin.sc:15974:556917 */ a20420 = t53650; /* x54992 */ /* x54991 */ t53651 = a20420; /* x54990 */ if (!((t53651.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("VARIABLE-INDEX[6565]"); structure_ref_error();} t53648 = t53651.value.structure_type27692->s6; /* x128792 stalin.sc:15974:556901 */ /* MOVE: dispatching squished to general */ if (t53648==FALSE_TYPE) t53649.tag = (unsigned)t53648; else {t53649.tag = FIXNUM_TYPE; t53649.value.fixnum_type = (int)(((int)t53648)>>1);} t53646 = f28396(t53649); /* x128791 stalin.sc:15974:556896 */ t53645 = "b"; /* x128790 stalin.sc:15974:556891 */ t53647.tag = STRUCTURE_TYPE24753; t53647.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53647.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15974, 556890); out_of_memory_error();} t53647.value.structure_type24753->s0.tag = STRING_TYPE; t53647.value.structure_type24753->s0.value.string_type = t53646; t53647.value.structure_type24753->s1.tag = NULL_TYPE; a35121 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35121==NULL) {backtrace("stalin.sc", 15974, 556890); out_of_memory_error();} a35121->s0.tag = STRING_TYPE; a35121->s0.value.string_type = t53645; a35121->s1 = t53647; /* x272249 */ return a35121;} /* C:A[14269] */ struct structure_type24753 *f14269(struct w49 a25782) {struct structure_type24753 *a35184; /* OBJS */ struct structure_type24753 *a35185; /* OBJS */ struct w49 a36917; /* S */ struct w49 a36990; /* S */ struct w49 a36991; /* S */ struct w49 t53652; struct w49 t53653; struct w49 t53654; struct w49 t53655; char *t53656; char *t53657; struct w49 t53658; unsigned t53659; struct w49 t53660; struct w49 t53661; struct w49 t53662; struct structure_type24753 *t53663; struct w49 t53664; char *t53665; char *t53666; struct w49 t53667; unsigned t53668; struct w49 t53669; struct w49 t53670; struct w49 t53671; /* x128787 stalin.sc:15970:556685 */ /* x128768 stalin.sc:15970:556689 */ /* x128767 stalin.sc:15970:556693 */ /* x128766 stalin.sc:15970:556704 */ t53652 = a25782; /* x128765 stalin.sc:15970:556694 */ if (!(f8236(t53652)==FALSE_TYPE)) goto l7716; /* x128762 */ /* x128761 stalin.sc:15970:556728 */ /* x128760 stalin.sc:15970:556750 */ t53654 = a25782; /* x128759 stalin.sc:15970:556729 */ a36917 = t53654; /* x280337 */ /* x280336 */ t53655 = a36917; /* x280335 */ if (!((t53655.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31834]"); structure_ref_error();} t53653 = t53655.value.structure_type27692->s8; /* x128758 stalin.sc:15970:556708 */ if ((f8590(t53653).tag)==FALSE_TYPE) goto l7717; l7716: /* x128778 stalin.sc:15971:556760 */ /* x128777 stalin.sc:15971:556771 */ /* x128776 stalin.sc:15971:556781 */ /* x128775 stalin.sc:15971:556797 */ /* x128774 stalin.sc:15971:556813 */ t53670 = a25782; /* x128773 stalin.sc:15971:556798 */ a36990 = t53670; /* x280629 */ /* x280628 */ t53671 = a36990; /* x280627 */ if (!((t53671.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-INDEX[6565] 31907]"); structure_ref_error();} t53668 = t53671.value.structure_type27692->s6; /* x128772 stalin.sc:15971:556782 */ /* MOVE: dispatching squished to general */ if (t53668==FALSE_TYPE) t53669.tag = (unsigned)t53668; else {t53669.tag = FIXNUM_TYPE; t53669.value.fixnum_type = (int)(((int)t53668)>>1);} t53666 = f28396(t53669); /* x128771 stalin.sc:15971:556777 */ t53665 = "a"; /* x128770 stalin.sc:15971:556772 */ t53667.tag = STRUCTURE_TYPE24753; t53667.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53667.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15971, 556771); out_of_memory_error();} t53667.value.structure_type24753->s0.tag = STRING_TYPE; t53667.value.structure_type24753->s0.value.string_type = t53666; t53667.value.structure_type24753->s1.tag = NULL_TYPE; a35184 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35184==NULL) {backtrace("stalin.sc", 15971, 556771); out_of_memory_error();} a35184->s0.tag = STRING_TYPE; a35184->s0.value.string_type = t53665; a35184->s1 = t53667; /* x272375 */ t53663 = a35184; /* x128769 stalin.sc:15971:556761 */ t53664.tag = STRUCTURE_TYPE24753; t53664.value.structure_type24753 = t53663; return f13472(t53664); l7717: /* x128786 stalin.sc:15972:556824 */ /* x128785 stalin.sc:15972:556834 */ /* x128784 stalin.sc:15972:556850 */ /* x128783 stalin.sc:15972:556866 */ t53661 = a25782; /* x128782 stalin.sc:15972:556851 */ a36991 = t53661; /* x280633 */ /* x280632 */ t53662 = a36991; /* x280631 */ if (!((t53662.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-INDEX[6565] 31908]"); structure_ref_error();} t53659 = t53662.value.structure_type27692->s6; /* x128781 stalin.sc:15972:556835 */ /* MOVE: dispatching squished to general */ if (t53659==FALSE_TYPE) t53660.tag = (unsigned)t53659; else {t53660.tag = FIXNUM_TYPE; t53660.value.fixnum_type = (int)(((int)t53659)>>1);} t53657 = f28396(t53660); /* x128780 stalin.sc:15972:556830 */ t53656 = "a"; /* x128779 stalin.sc:15972:556825 */ t53658.tag = STRUCTURE_TYPE24753; t53658.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t53658.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15972, 556824); out_of_memory_error();} t53658.value.structure_type24753->s0.tag = STRING_TYPE; t53658.value.structure_type24753->s0.value.string_type = t53657; t53658.value.structure_type24753->s1.tag = NULL_TYPE; a35185 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35185==NULL) {backtrace("stalin.sc", 15972, 556824); out_of_memory_error();} a35185->s0.tag = STRING_TYPE; a35185->s0.value.string_type = t53656; a35185->s1 = t53658; /* x272377 */ return a35185;} /* TYPE-ATOMIC?[14245] */ unsigned f14245(struct w49 a25781) {struct w49 a21240; /* U */ struct w49 a21356; /* U */ struct w49 a21400; /* U */ struct w49 a21440; /* U */ struct w49 a37306; /* S */ struct w49 a37348; /* OBJ */ struct w49 a37369; /* S */ struct w49 a37448; /* OBJ */ struct w49 a37467; /* S */ struct w49 a37564; /* OBJ */ struct w49 a37581; /* S */ struct w49 a37706; /* OBJ */ struct w49 a37780; /* OBJ */ struct w49 a37901; /* OBJ */ struct w49 a37972; /* OBJ */ struct w49 a37993; /* S */ struct w49 a38121; /* OBJ */ struct w49 a38230; /* OBJ */ struct w49 a38256; /* S */ struct w49 a38289; /* OBJ */ struct w49 a38330; /* OBJ */ struct w49 t53672; struct w49 t53673; struct w49 t53674; struct w49 t53675; struct w49 t53676; struct w49 t53677; struct w49 t53678; struct w49 t53679; struct w49 t53680; struct w49 t53681; struct w49 t53682; struct w49 t53683; struct w49 t53684; struct w49 t53685; struct w49 t53686; struct w49 t53687; struct w49 t53688; struct w49 t53689; struct w49 t53690; struct w49 t53691; struct w49 t53692; struct w49 t53693; struct w49 t53694; struct w49 t53695; struct w49 t53696; struct w49 t53697; struct w49 t53698; struct w49 t53699; struct w49 t53700; struct w49 t53701; struct w49 t53702; struct w49 t53703; struct w49 t53704; char *t53705; struct w49 t53706; struct w49 t53707; struct w49 t53708; struct w49 t53709; int t53710; int t53711; int t53712; struct structure_type24753 *t53713; struct w49 t53714; struct w49 t53715; struct w49 t53716; struct w49 t53717; int t53718; int t53719; int t53720; struct structure_type24753 *t53721; struct w49 t53722; struct w49 t53723; struct w49 t53724; struct w49 t53725; int t53726; int t53727; int t53728; struct structure_type24753 *t53729; struct w49 t53730; struct w49 t53731; struct w49 t53732; struct w49 t53733; int t53734; int t53735; int t53736; struct structure_type24753 *t53737; struct w49 t53738; struct w49 t53739; struct w49 t53740; struct w49 t53741; struct w49 t53742; struct w49 t53743; h14245: /* x128753 stalin.sc:15941:555633 */ /* x128582 stalin.sc:15941:555640 */ /* x128581 stalin.sc:15941:555652 */ t53672 = a25781; /* x128580 stalin.sc:15941:555641 */ if (f7677(t53672)==FALSE_TYPE) goto l7720; /* x128585 */ /* x128584 */ /* x128583 stalin.sc:15941:555655 */ return TRUE_TYPE; l7720: /* x128752 */ /* x128588 stalin.sc:15942:555667 */ /* x128587 stalin.sc:15942:555679 */ t53673 = a25781; /* x128586 stalin.sc:15942:555668 */ if (f7678(t53673)==FALSE_TYPE) goto l7722; /* x128591 */ /* x128590 */ /* x128589 stalin.sc:15942:555682 */ return TRUE_TYPE; l7722: /* x128751 */ /* x128594 stalin.sc:15943:555694 */ /* x128593 stalin.sc:15943:555707 */ t53674 = a25781; /* x128592 stalin.sc:15943:555695 */ if (f7679(t53674)==FALSE_TYPE) goto l7724; /* x128597 */ /* x128596 */ /* x128595 stalin.sc:15943:555710 */ return TRUE_TYPE; l7724: /* x128750 */ /* x128600 stalin.sc:15944:555722 */ /* x128599 stalin.sc:15944:555734 */ t53675 = a25781; /* x128598 stalin.sc:15944:555723 */ if (f7682(t53675)==FALSE_TYPE) goto l7726; /* x128603 */ /* x128602 */ /* x128601 stalin.sc:15944:555737 */ return TRUE_TYPE; l7726: /* x128749 */ /* x128606 stalin.sc:15945:555749 */ /* x128605 stalin.sc:15945:555763 */ t53676 = a25781; /* x128604 stalin.sc:15945:555750 */ if (f7683(t53676)==FALSE_TYPE) goto l7728; /* x128609 */ /* x128608 */ /* x128607 stalin.sc:15945:555766 */ return TRUE_TYPE; l7728: /* x128748 */ /* x128612 stalin.sc:15946:555778 */ /* x128611 stalin.sc:15946:555792 */ t53677 = a25781; /* x128610 stalin.sc:15946:555779 */ if (f7684(t53677)==FALSE_TYPE) goto l7730; /* x128615 */ /* x128614 */ /* x128613 stalin.sc:15946:555795 */ return TRUE_TYPE; l7730: /* x128747 */ /* x128618 stalin.sc:15947:555807 */ /* x128617 stalin.sc:15947:555826 */ t53678 = a25781; /* x128616 stalin.sc:15947:555808 */ if (f7687(t53678)==FALSE_TYPE) goto l7732; /* x128621 */ /* x128620 */ /* x128619 stalin.sc:15947:555829 */ return TRUE_TYPE; l7732: /* x128746 */ /* x128624 stalin.sc:15948:555841 */ /* x128623 stalin.sc:15948:555859 */ t53679 = a25781; /* x128622 stalin.sc:15948:555842 */ if (f7700(t53679)==FALSE_TYPE) goto l7734; /* x128627 */ /* x128626 */ /* x128625 stalin.sc:15948:555862 */ return TRUE_TYPE; l7734: /* x128745 */ /* x128630 stalin.sc:15949:555874 */ /* x128629 stalin.sc:15949:555893 */ t53680 = a25781; /* x128628 stalin.sc:15949:555875 */ if (f7701(t53680)==FALSE_TYPE) goto l7736; /* x128633 */ /* x128632 */ /* x128631 stalin.sc:15949:555896 */ return TRUE_TYPE; l7736: /* x128744 */ /* x128636 stalin.sc:15950:555908 */ /* x128635 stalin.sc:15950:555926 */ t53681 = a25781; /* x128634 stalin.sc:15950:555909 */ if (f7702(t53681)==FALSE_TYPE) goto l7738; /* x128639 */ /* x128638 */ /* x128637 stalin.sc:15950:555929 */ return TRUE_TYPE; l7738: /* x128743 */ /* x128642 stalin.sc:15951:555941 */ /* x128641 stalin.sc:15951:555956 */ t53682 = a25781; /* x128640 stalin.sc:15951:555942 */ if (f7703(t53682)==FALSE_TYPE) goto l7740; /* x128645 */ /* x128644 */ /* x128643 stalin.sc:15951:555959 */ return TRUE_TYPE; l7740: /* x128742 */ /* x128648 stalin.sc:15952:555971 */ /* x128647 stalin.sc:15952:555994 */ t53683 = a25781; /* x128646 stalin.sc:15952:555972 */ a38330 = t53683; /* x285989 */ /* x285988 */ t53684 = a38330; /* x285987 */ if (!((t53684.tag)==STRUCTURE_TYPE27776)) goto l7742; /* x128651 */ /* x128650 */ /* x128649 stalin.sc:15952:555997 */ return TRUE_TYPE; l7742: /* x128741 */ /* x128654 stalin.sc:15953:556009 */ /* x128653 stalin.sc:15953:556032 */ t53685 = a25781; /* x128652 stalin.sc:15953:556010 */ a38289 = t53685; /* x285825 */ /* x285824 */ t53686 = a38289; /* x285823 */ if (!((t53686.tag)==STRUCTURE_TYPE27779)) goto l7744; /* x128661 */ /* x128660 */ /* x128659 stalin.sc:15954:556036 */ /* x128658 stalin.sc:15954:556050 */ /* x128657 stalin.sc:15954:556094 */ t53742 = a25781; /* x128656 stalin.sc:15954:556051 */ a38256 = t53742; /* x285693 */ /* x285692 */ t53743 = a38256; /* x285691 */ if (!((t53743.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-DISPLACED-STRING-TYPE[5845] 33173]"); structure_ref_error();} t53741 = t53743.value.structure_type27779->s0; /* x128655 stalin.sc:15954:556037 */ a25781 = t53741; goto h14245; l7744: /* x128740 */ /* x128664 stalin.sc:15955:556107 */ /* x128663 stalin.sc:15955:556134 */ t53687 = a25781; /* x128662 stalin.sc:15955:556108 */ a38230 = t53687; /* x285589 */ /* x285588 */ t53688 = a38230; /* x285587 */ if (!((t53688.tag)==STRUCTURE_TYPE27753)) goto l7746; /* x128667 */ /* x128666 */ /* x128665 stalin.sc:15955:556137 */ return TRUE_TYPE; l7746: /* x128739 */ /* x128670 stalin.sc:15956:556149 */ /* x128669 stalin.sc:15956:556173 */ t53689 = a25781; /* x128668 stalin.sc:15956:556150 */ a38121 = t53689; /* x285153 */ /* x285152 */ t53690 = a38121; /* x285151 */ if (!((t53690.tag)==STRUCTURE_TYPE27756)) goto l7748; /* x128675 */ /* x128674 */ /* x128673 stalin.sc:15956:556176 */ /* x128672 stalin.sc:15956:556207 */ t53733 = a25781; /* x128671 stalin.sc:15956:556177 */ a21240 = t53733; while (region7334!=((struct region7334 *)(&initial_region7334))) {struct region7334 *region; region = region7334; region7334 = region7334->region; GC_free(region);} region_size7334 = REGION_SIZE7334; fp7334 = &((region7334->data)[0]); ALIGN(fp7334); /* x61837 stalin.sc:1544:51431 */ /* x61837 stalin.sc:1544:51431 */ /* x61836 stalin.sc:1544:51436 */ /* x61835 stalin.sc:1544:51443 */ /* x61834 stalin.sc:1544:51487 */ t53736 = 1; /* x61833 stalin.sc:1544:51452 */ /* x61832 stalin.sc:1544:51484 */ t53739 = a21240; /* x61831 stalin.sc:1544:51453 */ a37993 = t53739; /* x284641 */ /* x284640 */ t53740 = a37993; /* x284639 */ if (!((t53740.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32910]"); structure_ref_error();} t53735 = t53740.value.structure_type27756->s5; /* x61830 stalin.sc:1544:51444 */ if ((fp7334+sizeof(struct structure_type24753))>(&((region7334->data)[region_size7334]))) {struct region7334 *region; unsigned region_size = REGION_SIZE7334; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7334 *)GC_malloc_uncollectable(sizeof(struct region7334)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1544, 51443); out_of_memory_error();} region->region = region7334; region_size7334 = region_size; region7334 = region; fp7334 = &((region->data)[0]); ALIGN(fp7334);} t53738.tag = STRUCTURE_TYPE24753; t53738.value.structure_type24753 = (struct structure_type24753 *)fp7334; fp7334 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t53738.value.structure_type24753->s0.tag = FIXNUM_TYPE; t53738.value.structure_type24753->s0.value.fixnum_type = t53736; t53738.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7334+sizeof(struct structure_type24753))>(&((region7334->data)[region_size7334]))) {struct region7334 *region; unsigned region_size = REGION_SIZE7334; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7334 *)GC_malloc_uncollectable(sizeof(struct region7334)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1544, 51443); out_of_memory_error();} region->region = region7334; region_size7334 = region_size; region7334 = region; fp7334 = &((region->data)[0]); ALIGN(fp7334);} t53737 = (struct structure_type24753 *)fp7334; fp7334 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t53737->s0.tag = FIXNUM_TYPE; t53737->s0.value.fixnum_type = t53735; t53737->s1 = t53738; t53734 = f27305(t53737); /* x270611 stalin.sc:1544:51437 */ if (t53734==0) goto l7773; return TRUE_TYPE; l7773: return FALSE_TYPE; l7748: /* x128738 */ /* x128678 stalin.sc:15957:556219 */ /* x128677 stalin.sc:15957:556244 */ t53691 = a25781; /* x128676 stalin.sc:15957:556220 */ a37972 = t53691; /* x284557 */ /* x284556 */ t53692 = a37972; /* x284555 */ if (!((t53692.tag)==STRUCTURE_TYPE27750)) goto l7750; /* x128681 */ /* x128680 */ /* x128679 stalin.sc:15957:556247 */ return TRUE_TYPE; l7750: /* x128737 */ /* x128684 stalin.sc:15958:556259 */ /* x128683 stalin.sc:15958:556279 */ t53693 = a25781; /* x128682 stalin.sc:15958:556260 */ a37901 = t53693; /* x284273 */ /* x284272 */ t53694 = a37901; /* x284271 */ if (!((t53694.tag)==STRUCTURE_TYPE27858)) goto l7752; /* x128687 */ /* x128686 */ /* x128685 stalin.sc:15958:556282 */ return TRUE_TYPE; l7752: /* x128736 */ /* x128690 stalin.sc:15959:556294 */ /* x128689 stalin.sc:15959:556308 */ t53695 = a25781; /* x128688 stalin.sc:15959:556295 */ a37780 = t53695; /* x283789 */ /* x283788 */ t53696 = a37780; /* x283787 */ if (!((t53696.tag)==STRUCTURE_TYPE27673)) goto l7754; /* x128693 */ /* x128692 */ /* x128691 stalin.sc:15959:556311 */ return TRUE_TYPE; l7754: /* x128735 */ /* x128696 stalin.sc:15960:556323 */ /* x128695 stalin.sc:15960:556340 */ t53697 = a25781; /* x128694 stalin.sc:15960:556324 */ a37706 = t53697; /* x283493 */ /* x283492 */ t53698 = a37706; /* x283491 */ if (!((t53698.tag)==STRUCTURE_TYPE27769)) goto l7756; /* x128701 */ /* x128700 */ /* x128699 stalin.sc:15960:556343 */ /* x128698 stalin.sc:15960:556367 */ t53725 = a25781; /* x128697 stalin.sc:15960:556344 */ a21356 = t53725; while (region7479!=((struct region7479 *)(&initial_region7479))) {struct region7479 *region; region = region7479; region7479 = region7479->region; GC_free(region);} region_size7479 = REGION_SIZE7479; fp7479 = &((region7479->data)[0]); ALIGN(fp7479); /* x63142 stalin.sc:1863:61288 */ /* x63142 stalin.sc:1863:61288 */ /* x63141 stalin.sc:1863:61293 */ /* x63140 stalin.sc:1863:61300 */ /* x63139 stalin.sc:1863:61337 */ t53728 = 1; /* x63138 stalin.sc:1863:61309 */ /* x63137 stalin.sc:1863:61334 */ t53731 = a21356; /* x63136 stalin.sc:1863:61310 */ a37581 = t53731; /* x282993 */ /* x282992 */ t53732 = a37581; /* x282991 */ if (!((t53732.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32498]"); structure_ref_error();} t53727 = t53732.value.structure_type27769->s8; /* x63135 stalin.sc:1863:61301 */ if ((fp7479+sizeof(struct structure_type24753))>(&((region7479->data)[region_size7479]))) {struct region7479 *region; unsigned region_size = REGION_SIZE7479; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7479 *)GC_malloc_uncollectable(sizeof(struct region7479)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1863, 61300); out_of_memory_error();} region->region = region7479; region_size7479 = region_size; region7479 = region; fp7479 = &((region->data)[0]); ALIGN(fp7479);} t53730.tag = STRUCTURE_TYPE24753; t53730.value.structure_type24753 = (struct structure_type24753 *)fp7479; fp7479 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t53730.value.structure_type24753->s0.tag = FIXNUM_TYPE; t53730.value.structure_type24753->s0.value.fixnum_type = t53728; t53730.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7479+sizeof(struct structure_type24753))>(&((region7479->data)[region_size7479]))) {struct region7479 *region; unsigned region_size = REGION_SIZE7479; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7479 *)GC_malloc_uncollectable(sizeof(struct region7479)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1863, 61300); out_of_memory_error();} region->region = region7479; region_size7479 = region_size; region7479 = region; fp7479 = &((region->data)[0]); ALIGN(fp7479);} t53729 = (struct structure_type24753 *)fp7479; fp7479 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t53729->s0.tag = FIXNUM_TYPE; t53729->s0.value.fixnum_type = t53727; t53729->s1 = t53730; t53726 = f27305(t53729); /* x270544 stalin.sc:1863:61294 */ if (t53726==0) goto l7770; return TRUE_TYPE; l7770: return FALSE_TYPE; l7756: /* x128734 */ /* x128704 stalin.sc:15961:556379 */ /* x128703 stalin.sc:15961:556400 */ t53699 = a25781; /* x128702 stalin.sc:15961:556380 */ a37564 = t53699; /* x282925 */ /* x282924 */ t53700 = a37564; /* x282923 */ if (!((t53700.tag)==STRUCTURE_TYPE27761)) goto l7758; /* x128709 */ /* x128708 */ /* x128707 stalin.sc:15961:556403 */ /* x128706 stalin.sc:15961:556431 */ t53717 = a25781; /* x128705 stalin.sc:15961:556404 */ a21400 = t53717; while (region7534!=((struct region7534 *)(&initial_region7534))) {struct region7534 *region; region = region7534; region7534 = region7534->region; GC_free(region);} region_size7534 = REGION_SIZE7534; fp7534 = &((region7534->data)[0]); ALIGN(fp7534); /* x63637 stalin.sc:1984:65206 */ /* x63637 stalin.sc:1984:65206 */ /* x63636 stalin.sc:1984:65211 */ /* x63635 stalin.sc:1984:65218 */ /* x63634 stalin.sc:1984:65259 */ t53720 = 1; /* x63633 stalin.sc:1984:65227 */ /* x63632 stalin.sc:1984:65256 */ t53723 = a21400; /* x63631 stalin.sc:1984:65228 */ a37467 = t53723; /* x282537 */ /* x282536 */ t53724 = a37467; /* x282535 */ if (!((t53724.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-BOOLEANS[6299] 32384]"); structure_ref_error();} t53719 = t53724.value.structure_type27761->s7; /* x63630 stalin.sc:1984:65219 */ if ((fp7534+sizeof(struct structure_type24753))>(&((region7534->data)[region_size7534]))) {struct region7534 *region; unsigned region_size = REGION_SIZE7534; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7534 *)GC_malloc_uncollectable(sizeof(struct region7534)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1984, 65218); out_of_memory_error();} region->region = region7534; region_size7534 = region_size; region7534 = region; fp7534 = &((region->data)[0]); ALIGN(fp7534);} t53722.tag = STRUCTURE_TYPE24753; t53722.value.structure_type24753 = (struct structure_type24753 *)fp7534; fp7534 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t53722.value.structure_type24753->s0.tag = FIXNUM_TYPE; t53722.value.structure_type24753->s0.value.fixnum_type = t53720; t53722.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7534+sizeof(struct structure_type24753))>(&((region7534->data)[region_size7534]))) {struct region7534 *region; unsigned region_size = REGION_SIZE7534; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7534 *)GC_malloc_uncollectable(sizeof(struct region7534)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1984, 65218); out_of_memory_error();} region->region = region7534; region_size7534 = region_size; region7534 = region; fp7534 = &((region->data)[0]); ALIGN(fp7534);} t53721 = (struct structure_type24753 *)fp7534; fp7534 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t53721->s0.tag = FIXNUM_TYPE; t53721->s0.value.fixnum_type = t53719; t53721->s1 = t53722; t53718 = f27305(t53721); /* x270517 stalin.sc:1984:65212 */ if (t53718==0) goto l7767; return TRUE_TYPE; l7767: return FALSE_TYPE; l7758: /* x128733 */ /* x128712 stalin.sc:15962:556443 */ /* x128711 stalin.sc:15962:556467 */ t53701 = a25781; /* x128710 stalin.sc:15962:556444 */ a37448 = t53701; /* x282461 */ /* x282460 */ t53702 = a37448; /* x282459 */ if (!((t53702.tag)==STRUCTURE_TYPE27669)) goto l7760; /* x128717 */ /* x128716 */ /* x128715 stalin.sc:15962:556470 */ /* x128714 stalin.sc:15962:556501 */ t53709 = a25781; /* x128713 stalin.sc:15962:556471 */ a21440 = t53709; while (region7584!=((struct region7584 *)(&initial_region7584))) {struct region7584 *region; region = region7584; region7584 = region7584->region; GC_free(region);} region_size7584 = REGION_SIZE7584; fp7584 = &((region7584->data)[0]); ALIGN(fp7584); /* x64087 stalin.sc:2094:68950 */ /* x64087 stalin.sc:2094:68950 */ /* x64086 stalin.sc:2094:68955 */ /* x64085 stalin.sc:2094:68962 */ /* x64084 stalin.sc:2094:69006 */ t53712 = 1; /* x64083 stalin.sc:2094:68971 */ /* x64082 stalin.sc:2094:69003 */ t53715 = a21440; /* x64081 stalin.sc:2094:68972 */ a37369 = t53715; /* x282145 */ /* x282144 */ t53716 = a37369; /* x282143 */ if (!((t53716.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-BOOLEANS[6365] 32286]"); structure_ref_error();} t53711 = t53716.value.structure_type27669->s7; /* x64080 stalin.sc:2094:68963 */ if ((fp7584+sizeof(struct structure_type24753))>(&((region7584->data)[region_size7584]))) {struct region7584 *region; unsigned region_size = REGION_SIZE7584; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7584 *)GC_malloc_uncollectable(sizeof(struct region7584)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 2094, 68962); out_of_memory_error();} region->region = region7584; region_size7584 = region_size; region7584 = region; fp7584 = &((region->data)[0]); ALIGN(fp7584);} t53714.tag = STRUCTURE_TYPE24753; t53714.value.structure_type24753 = (struct structure_type24753 *)fp7584; fp7584 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t53714.value.structure_type24753->s0.tag = FIXNUM_TYPE; t53714.value.structure_type24753->s0.value.fixnum_type = t53712; t53714.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7584+sizeof(struct structure_type24753))>(&((region7584->data)[region_size7584]))) {struct region7584 *region; unsigned region_size = REGION_SIZE7584; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7584 *)GC_malloc_uncollectable(sizeof(struct region7584)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 2094, 68962); out_of_memory_error();} region->region = region7584; region_size7584 = region_size; region7584 = region; fp7584 = &((region->data)[0]); ALIGN(fp7584);} t53713 = (struct structure_type24753 *)fp7584; fp7584 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t53713->s0.tag = FIXNUM_TYPE; t53713->s0.value.fixnum_type = t53711; t53713->s1 = t53714; t53710 = f27305(t53713); /* x270493 stalin.sc:2094:68956 */ if (t53710==0) goto l7764; return TRUE_TYPE; l7764: return FALSE_TYPE; l7760: /* x128732 */ /* x128720 stalin.sc:15963:556513 */ /* x128719 stalin.sc:15963:556537 */ t53703 = a25781; /* x128718 stalin.sc:15963:556514 */ a37348 = t53703; /* x282061 */ /* x282060 */ t53704 = a37348; /* x282059 */ if (!((t53704.tag)==STRUCTURE_TYPE27908)) goto l7762; /* x128727 */ /* x128726 */ /* x128725 stalin.sc:15964:556541 */ /* x128724 stalin.sc:15964:556555 */ /* x128723 stalin.sc:15964:556600 */ t53707 = a25781; /* x128722 stalin.sc:15964:556556 */ a37306 = t53707; /* x281893 */ /* x281892 */ t53708 = a37306; /* x281891 */ if (!((t53708.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-DISPLACED-VECTOR-TYPE[6375] 32223]"); structure_ref_error();} t53706 = t53708.value.structure_type27908->s0; /* x128721 stalin.sc:15964:556542 */ a25781 = t53706; goto h14245; l7762: /* x128731 */ /* x128730 */ /* x128729 stalin.sc:15965:556618 */ /* x128728 stalin.sc:15965:556619 */ /* x297401 QobiScheme.sc:166:5314 */ /* x297400 QobiScheme.sc:166:5321 */ t53705 = "This shouldn\'t happen"; /* x297399 QobiScheme.sc:166:5315 */ stalin_panic(t53705);} /* ENVIRONMENT-ATOMIC?[14226] */ unsigned f14226(struct w49 a25768) {unsigned r14226; char *a25769; /* v */ struct w49 a25776; /* E */ char *t53744; char *t53745; char *t53746; struct w49 t53747; struct w49 t53748; char *t53749; char *t53750; struct w49 t53751; struct w49 t53752; char *t53753; char *t53754; struct w49 t53755; struct w49 t53756; char *t53757; char *t53758; struct w49 t53759; struct w49 t53760; char *t53761; char *t53762; struct w49 t53763; struct w49 t53764; char *t53765; struct w49 t53766; struct structure_type24753 *t53767; struct w228245 t53768; struct w49 t53769; struct structure_type24753 *t53770; struct w49 t53771; struct w49 t53772; struct w3467 t53773; struct w49 t53774; struct w49 t53775; struct w49 t53776; struct w49 t53777; struct w49 t53778; struct structure_type24753 *t53779; struct w228245 t53780; struct w49 t53781; struct structure_type24753 *t53782; struct w49 t53783; char *t53784; struct w6315 t53785; char *t53786; struct w6315 t53787; /* x128577 stalin.sc:15908:554440 */ /* x128576 stalin.sc:15908:554446 */ t53744 = a686; /* x128575 */ a25769 = t53744; /* x128574 */ /* x128430 */ /* x128428 */ t53745 = a25769; /* x128429 */ t53746 = q18; /* x128427 */ /* MOVE: branching squeezed to general */ if (t53745>=((char *)VALUE_OFFSET)) {t53747.tag = EXTERNAL_SYMBOL_TYPE; t53747.value.external_symbol_type = t53745;} else t53747.tag = (unsigned)t53745; t53748.tag = EXTERNAL_SYMBOL_TYPE; t53748.value.external_symbol_type = t53746; if (f26160(t53747, t53748)==FALSE_TYPE) goto l7776; /* x128436 */ /* x128435 */ /* x128434 stalin.sc:15910:554494 */ /* x128432 stalin.sc:15910:554509 */ /* x128433 stalin.sc:15910:554512 */ t53786 = "Immediate flat closures are not (yet) implemented"; /* x128431 stalin.sc:15910:554495 */ t53787.tag = FALSE_TYPE; f9707(t53787, t53786); return r14226; l7776: /* x128573 */ /* x128440 */ /* x128438 */ t53749 = a25769; /* x128439 */ t53750 = q19; /* x128437 */ /* MOVE: branching squeezed to general */ if (t53749>=((char *)VALUE_OFFSET)) {t53751.tag = EXTERNAL_SYMBOL_TYPE; t53751.value.external_symbol_type = t53749;} else t53751.tag = (unsigned)t53749; t53752.tag = EXTERNAL_SYMBOL_TYPE; t53752.value.external_symbol_type = t53750; if (f26160(t53751, t53752)==FALSE_TYPE) goto l7778; /* x128446 */ /* x128445 */ /* x128444 stalin.sc:15912:554588 */ /* x128442 stalin.sc:15912:554603 */ /* x128443 stalin.sc:15912:554606 */ t53784 = "Indirect flat closures are not (yet) implemented"; /* x128441 stalin.sc:15912:554589 */ t53785.tag = FALSE_TYPE; f9707(t53785, t53784); return r14226; l7778: /* x128572 */ /* x128459 */ /* x128458 */ /* x128456 */ t53753 = a25769; /* x128457 */ t53754 = q20; /* x128455 */ /* MOVE: branching squeezed to general */ if (t53753>=((char *)VALUE_OFFSET)) {t53755.tag = EXTERNAL_SYMBOL_TYPE; t53755.value.external_symbol_type = t53753;} else t53755.tag = (unsigned)t53753; t53756.tag = EXTERNAL_SYMBOL_TYPE; t53756.value.external_symbol_type = t53754; if (!(f26160(t53755, t53756)==FALSE_TYPE)) goto l7779; /* x128452 */ /* x128450 */ t53757 = a25769; /* x128451 */ t53758 = q21; /* x128449 */ /* MOVE: branching squeezed to general */ if (t53757>=((char *)VALUE_OFFSET)) {t53759.tag = EXTERNAL_SYMBOL_TYPE; t53759.value.external_symbol_type = t53757;} else t53759.tag = (unsigned)t53757; t53760.tag = EXTERNAL_SYMBOL_TYPE; t53760.value.external_symbol_type = t53758; if (f26160(t53759, t53760)==FALSE_TYPE) goto l7780; l7779: /* x128491 */ /* x128490 */ /* x128489 stalin.sc:15916:554844 */ /* x128488 stalin.sc:15922:555012 */ /* x128487 stalin.sc:15922:555023 */ t53783 = a25768; /* x128486 stalin.sc:15922:555013 */ t53779 = f8987(t53783); /* x128485 stalin.sc:15916:554851 */ /* x128460 stalin.sc:15916:554845 */ t53780.tag = NATIVE_PROCEDURE_TYPE18665; /* MOVE: branching squeezed to general */ if (t53779>=((struct structure_type24753 *)VALUE_OFFSET)) {t53781.tag = STRUCTURE_TYPE24753; t53781.value.structure_type24753 = t53779;} else t53781.tag = (unsigned)t53779; t53782 = (struct structure_type24753 *)NULL_TYPE; return f1061(t53780, t53781, t53782); l7780: /* x128571 */ /* x128495 */ /* x128493 */ t53761 = a25769; /* x128494 */ t53762 = q22; /* x128492 */ /* MOVE: branching squeezed to general */ if (t53761>=((char *)VALUE_OFFSET)) {t53763.tag = EXTERNAL_SYMBOL_TYPE; t53763.value.external_symbol_type = t53761;} else t53763.tag = (unsigned)t53761; t53764.tag = EXTERNAL_SYMBOL_TYPE; t53764.value.external_symbol_type = t53762; if (f26160(t53763, t53764)==FALSE_TYPE) goto l7783; /* x128566 */ /* x128565 */ /* x128564 stalin.sc:15927:555230 */ /* x128563 stalin.sc:15927:555244 */ t53766 = a25768; /* x128562 */ /* x128561 */ /* x128560 */ /* x128559 */ /* x128558 */ /* x128557 */ /* x128556 */ /* x128497 */ /* x128496 stalin.sc:15927:555235 */ a25776 = t53766; h14238: /* x128555 stalin.sc:15928:555252 */ /* x128555 stalin.sc:15928:555252 */ /* x128527 stalin.sc:15928:555257 */ /* x128526 stalin.sc:15934:555440 */ /* x128525 stalin.sc:15934:555451 */ t53771 = a25776; /* x128524 stalin.sc:15934:555441 */ t53767 = f8987(t53771); /* x128523 stalin.sc:15928:555264 */ /* x128498 stalin.sc:15928:555258 */ t53768.tag = NATIVE_PROCEDURE_TYPE18660; /* MOVE: branching squeezed to general */ if (t53767>=((struct structure_type24753 *)VALUE_OFFSET)) {t53769.tag = STRUCTURE_TYPE24753; t53769.value.structure_type24753 = t53767;} else t53769.tag = (unsigned)t53767; t53770 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t53768, t53769, t53770)==FALSE_TYPE) goto l7785; /* x128553 */ /* x128552 stalin.sc:15935:555461 */ /* x128551 stalin.sc:15935:555466 */ /* x128550 stalin.sc:15935:555484 */ t53772 = a25776; /* x128549 stalin.sc:15935:555467 */ if (f8584(t53772)==FALSE_TYPE) goto l7784; /* x128545 */ /* x128538 stalin.sc:15936:555499 */ /* x128537 stalin.sc:15936:555504 */ /* x128536 stalin.sc:15936:555522 */ /* x128535 stalin.sc:15936:555534 */ /* x128534 stalin.sc:15936:555547 */ t53776 = a25776; /* x128533 stalin.sc:15936:555535 */ t53775 = f8639(t53776); /* x128532 stalin.sc:15936:555523 */ t53773 = f8619(t53775); /* x128531 stalin.sc:15936:555505 */ t53774 = *((struct w49 *)(&t53773)); if (!(f13035(t53774)==FALSE_TYPE)) goto l7785; /* x128543 */ /* x128542 stalin.sc:15937:555563 */ /* x128541 stalin.sc:15937:555576 */ t53778 = a25776; /* x128540 stalin.sc:15937:555564 */ t53777 = f8639(t53778); /* x128539 stalin.sc:15937:555558 */ a25776 = t53777; goto h14238; l7784: return TRUE_TYPE; l7785: return FALSE_TYPE; l7783: /* x128570 */ /* x128569 */ /* x128568 stalin.sc:15938:555593 */ /* x128567 stalin.sc:15938:555594 */ /* x296513 QobiScheme.sc:166:5314 */ /* x296512 QobiScheme.sc:166:5321 */ t53765 = "This shouldn\'t happen"; /* x296511 QobiScheme.sc:166:5315 */ stalin_panic(t53765);} /* [inside DETERMINE-WHICH-TYPES-ARE-ATOMIC! 14225] */ void f14225(struct w49 a25767) {struct w49 t53788; unsigned t53789; /* x128420 stalin.sc:15831:552104 */ /* x128418 stalin.sc:15831:552140 */ t53788 = a25767; /* x128419 stalin.sc:15831:552142 */ /* x128417 stalin.sc:15831:552105 */ t53789 = TRUE_TYPE; f7585(t53788, t53789); return;} /* [inside DETERMINE-WHICH-TYPES-ARE-ATOMIC! 14224] */ void f14224(struct w49 a25766) {struct w49 t53790; unsigned t53791; /* x128412 stalin.sc:15829:552014 */ /* x128410 stalin.sc:15829:552047 */ t53790 = a25766; /* x128411 stalin.sc:15829:552049 */ /* x128409 stalin.sc:15829:552015 */ t53791 = TRUE_TYPE; f7535(t53790, t53791); return;} /* [inside DETERMINE-WHICH-TYPES-ARE-ATOMIC! 14223] */ void f14223(struct w49 a25765) {struct w49 t53792; unsigned t53793; /* x128404 stalin.sc:15828:551936 */ /* x128402 stalin.sc:15828:551965 */ t53792 = a25765; /* x128403 stalin.sc:15828:551967 */ /* x128401 stalin.sc:15828:551937 */ t53793 = TRUE_TYPE; f7480(t53792, t53793); return;} /* [inside DETERMINE-WHICH-TYPES-ARE-ATOMIC! 14222] */ void f14222(struct w49 a25764) {struct w49 t53794; unsigned t53795; /* x128396 stalin.sc:15826:551840 */ /* x128394 stalin.sc:15826:551876 */ t53794 = a25764; /* x128395 stalin.sc:15826:551878 */ /* x128393 stalin.sc:15826:551841 */ t53795 = TRUE_TYPE; f7335(t53794, t53795); return;} /* [inside LOOP 14213] */ void f14213(struct w49 a25760) {struct w49 a37405; /* S */ struct w49 t53796; struct w49 t53797; struct w49 t53798; struct w211225 t53799; struct w49 t53800; struct w49 t53801; struct w49 t53802; unsigned t53803; /* x128375 stalin.sc:15896:554069 */ /* x128335 stalin.sc:15896:554075 */ /* x128334 stalin.sc:15896:554089 */ t53796 = a25760; /* x128333 stalin.sc:15896:554076 */ if (f14245(t53796)==FALSE_TYPE) goto l7791; /* x128372 */ /* x128371 */ /* x128370 stalin.sc:15897:554098 */ /* x128357 stalin.sc:15897:554106 */ /* x128356 stalin.sc:15897:554110 */ /* x128355 stalin.sc:15897:554135 */ t53797 = a25760; /* x128354 stalin.sc:15897:554111 */ if (!(f7754(t53797)==FALSE_TYPE)) goto l7792; /* x128351 */ /* x128347 stalin.sc:15899:554157 */ /* x128350 stalin.sc:15901:554237 */ /* x128349 stalin.sc:15901:554268 */ t53800 = a25760; /* x128348 stalin.sc:15901:554238 */ a37405 = t53800; /* x282289 */ /* x282288 */ t53801 = a37405; /* x282287 */ if (!((t53801.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ELEMENT[6309] 32322]"); structure_ref_error();} t53798 = t53801.value.structure_type27669->s0; /* x128338 stalin.sc:15898:554143 */ t53799.tag = NATIVE_PROCEDURE_TYPE15347; if (f8146(t53799, t53798)==FALSE_TYPE) goto l7793; l7792: /* x128359 */ /* x128358 */ return; l7793: /* x128369 */ /* x128368 */ /* x128367 */ /* x128366 stalin.sc:15902:554280 */ /* x128364 stalin.sc:15902:554316 */ t53802 = a25760; /* x128365 stalin.sc:15902:554318 */ /* x128363 stalin.sc:15902:554281 */ t53803 = FALSE_TYPE; f7585(t53802, t53803); /* x128362 */ /* x128361 stalin.sc:15903:554329 */ /* x128360 stalin.sc:15903:554342 */ a25738 = TRUE_TYPE; return; l7791: /* x128374 stalin.sc:15896:554069 */ /* x128373 stalin.sc:15896:554069 */ return;} /* [inside LOOP 14205] */ void f14205(struct w49 a25756) {struct w49 a37522; /* S */ struct w49 t53804; struct w49 t53805; struct w49 t53806; struct w211225 t53807; struct w49 t53808; struct w49 t53809; struct w49 t53810; unsigned t53811; /* x128328 stalin.sc:15885:553734 */ /* x128288 stalin.sc:15885:553740 */ /* x128287 stalin.sc:15885:553754 */ t53804 = a25756; /* x128286 stalin.sc:15885:553741 */ if (f14245(t53804)==FALSE_TYPE) goto l7796; /* x128325 */ /* x128324 */ /* x128323 stalin.sc:15886:553763 */ /* x128310 stalin.sc:15886:553771 */ /* x128309 stalin.sc:15886:553775 */ /* x128308 stalin.sc:15886:553800 */ t53805 = a25756; /* x128307 stalin.sc:15886:553776 */ if (!(f7754(t53805)==FALSE_TYPE)) goto l7797; /* x128304 */ /* x128300 stalin.sc:15888:553822 */ /* x128303 stalin.sc:15890:553902 */ /* x128302 stalin.sc:15890:553930 */ t53808 = a25756; /* x128301 stalin.sc:15890:553903 */ a37522 = t53808; /* x282757 */ /* x282756 */ t53809 = a37522; /* x282755 */ if (!((t53809.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32439]"); structure_ref_error();} t53806 = t53809.value.structure_type27761->s0; /* x128291 stalin.sc:15887:553808 */ t53807.tag = NATIVE_PROCEDURE_TYPE15362; if (f8146(t53807, t53806)==FALSE_TYPE) goto l7798; l7797: /* x128312 */ /* x128311 */ return; l7798: /* x128322 */ /* x128321 */ /* x128320 */ /* x128319 stalin.sc:15891:553942 */ /* x128317 stalin.sc:15891:553975 */ t53810 = a25756; /* x128318 stalin.sc:15891:553977 */ /* x128316 stalin.sc:15891:553943 */ t53811 = FALSE_TYPE; f7535(t53810, t53811); /* x128315 */ /* x128314 stalin.sc:15892:553988 */ /* x128313 stalin.sc:15892:554001 */ a25738 = TRUE_TYPE; return; l7796: /* x128327 stalin.sc:15885:553734 */ /* x128326 stalin.sc:15885:553734 */ return;} /* [inside LOOP 14196] */ void f14196(struct w49 a25751) {struct w49 a37646; /* S */ struct w49 a37647; /* S */ struct w49 t53812; struct w49 t53813; struct w11873 t53814; struct w228245 t53815; struct w49 t53816; struct structure_type24753 *t53817; struct w49 t53818; struct w49 t53819; struct w11873 t53820; struct w228245 t53821; struct w49 t53822; struct structure_type24753 *t53823; struct w49 t53824; struct w49 t53825; struct w49 t53826; unsigned t53827; /* x128281 stalin.sc:15870:553291 */ /* x128231 stalin.sc:15870:553297 */ /* x128230 stalin.sc:15870:553311 */ t53812 = a25751; /* x128229 stalin.sc:15870:553298 */ if (f14245(t53812)==FALSE_TYPE) goto l7801; /* x128278 */ /* x128277 */ /* x128276 stalin.sc:15871:553320 */ /* x128263 stalin.sc:15871:553328 */ /* x128234 stalin.sc:15871:553332 */ /* x128233 stalin.sc:15871:553359 */ t53813 = a25751; /* x128232 stalin.sc:15871:553333 */ if (f7429(t53813)==FALSE_TYPE) goto l7805; /* x128244 stalin.sc:15872:553366 */ /* x128243 stalin.sc:15873:553416 */ /* x128242 stalin.sc:15873:553438 */ t53824 = a25751; /* x128241 stalin.sc:15873:553417 */ a37646 = t53824; /* x283253 */ /* x283252 */ t53825 = a37646; /* x283251 */ if (!((t53825.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32563]"); structure_ref_error();} t53820 = t53825.value.structure_type27769->s1; /* x128240 stalin.sc:15872:553373 */ /* x128235 stalin.sc:15872:553367 */ t53821.tag = NATIVE_PROCEDURE_TYPE22568; t53822 = *((struct w49 *)(&t53820)); t53823 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t53821, t53822, t53823)==FALSE_TYPE) goto l7803; goto l7806; l7805: /* x128262 stalin.sc:15874:553446 */ /* x128261 stalin.sc:15879:553581 */ /* x128260 stalin.sc:15879:553603 */ t53818 = a25751; /* x128259 stalin.sc:15879:553582 */ a37647 = t53818; /* x283257 */ /* x283256 */ t53819 = a37647; /* x283255 */ if (!((t53819.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32564]"); structure_ref_error();} t53814 = t53819.value.structure_type27769->s1; /* x128258 stalin.sc:15874:553453 */ /* x128245 stalin.sc:15874:553447 */ t53815.tag = NATIVE_PROCEDURE_TYPE22567; t53816 = *((struct w49 *)(&t53814)); t53817 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t53815, t53816, t53817)==FALSE_TYPE) goto l7803; l7806: /* x128265 */ /* x128264 */ return; l7803: /* x128275 */ /* x128274 */ /* x128273 */ /* x128272 stalin.sc:15880:553615 */ /* x128270 stalin.sc:15880:553644 */ t53826 = a25751; /* x128271 stalin.sc:15880:553646 */ /* x128269 stalin.sc:15880:553616 */ t53827 = FALSE_TYPE; f7480(t53826, t53827); /* x128268 */ /* x128267 stalin.sc:15881:553657 */ /* x128266 stalin.sc:15881:553670 */ a25738 = TRUE_TYPE; return; l7801: /* x128280 stalin.sc:15870:553291 */ /* x128279 stalin.sc:15870:553291 */ return;} /* [inside LOOP 14178] */ void f14178(struct w49 a25743) {struct w49 a38023; /* S */ struct w49 t53828; struct w49 t53829; struct w12224 t53830; struct w228245 t53831; struct w49 t53832; struct structure_type24753 *t53833; struct w49 t53834; struct w49 t53835; struct w49 t53836; unsigned t53837; /* x128224 stalin.sc:15837:552246 */ /* x128089 stalin.sc:15837:552252 */ /* x128088 stalin.sc:15837:552266 */ t53828 = a25743; /* x128087 stalin.sc:15837:552253 */ if (f14245(t53828)==FALSE_TYPE) goto l7808; /* x128221 */ /* x128220 */ /* x128219 stalin.sc:15838:552275 */ /* x128206 stalin.sc:15838:552283 */ /* x128205 stalin.sc:15839:552295 */ /* x128204 stalin.sc:15839:552308 */ t53829 = a25743; /* x128203 stalin.sc:15839:552296 */ if (!(f8793(t53829)==FALSE_TYPE)) goto l7809; /* x128200 */ /* x128199 stalin.sc:15864:553095 */ /* x128198 stalin.sc:15864:553146 */ t53834 = a25743; /* x128197 stalin.sc:15864:553096 */ a38023 = t53834; /* x284761 */ /* x284760 */ t53835 = a38023; /* x284759 */ if (!((t53835.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-CALL-SITE-ENVIRONMENT-ALIST[5945] 32940]"); structure_ref_error();} t53830 = t53835.value.structure_type27756->s0; /* x128196 stalin.sc:15841:552328 */ /* x128092 stalin.sc:15840:552320 */ t53831.tag = NATIVE_PROCEDURE_TYPE15369; t53832 = *((struct w49 *)(&t53830)); t53833 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t53831, t53832, t53833)==FALSE_TYPE) goto l7810; l7809: /* x128208 */ /* x128207 */ return; l7810: /* x128218 */ /* x128217 */ /* x128216 */ /* x128215 stalin.sc:15865:553158 */ /* x128213 stalin.sc:15865:553194 */ t53836 = a25743; /* x128214 stalin.sc:15865:553196 */ /* x128212 stalin.sc:15865:553159 */ t53837 = FALSE_TYPE; f7335(t53836, t53837); /* x128211 */ /* x128210 stalin.sc:15866:553207 */ /* x128209 stalin.sc:15866:553220 */ a25738 = TRUE_TYPE; return; l7808: /* x128223 stalin.sc:15837:552246 */ /* x128222 stalin.sc:15837:552246 */ return;} /* TYPE-SET-SIZE[14154] */ struct w49 f14154(struct w49 a25724) {struct w49 a21768; /* W */ struct w49 a37031; /* S */ struct w49 t53838; struct w49 t53839; struct w49 t53840; struct w49 t53841; struct w49 t53842; struct w30215 t53843; struct w49 t53844; struct w49 t53845; struct w30215 t53846; struct w30215 t53847; struct w49 t53848; struct w49 t53849; struct w49 t53850; struct structure_type24753 *t53851; unsigned t53852; struct w49 t53853; struct w228463 t53854; struct w12224 t53855; struct w36270 t53856; struct w49 t53857; struct structure_type24753 *t53858; struct w49 t53859; struct w211061 t53860; struct structure_type24753 *t53861; unsigned t53862; struct w49 t53863; struct w228463 t53864; struct w12224 t53865; struct w36270 t53866; struct w49 t53867; struct structure_type24753 *t53868; struct w49 t53869; struct w211061 t53870; struct w49 t53871; struct w49 t53872; struct w49 t53873; int t53874; int t53875; int t53876; struct structure_type24753 *t53877; struct w49 t53878; struct w49 t53879; struct w49 t53880; struct w49 t53881; struct w49 t53882; struct w49 t53883; struct w49 t53884; struct w49 t53885; struct w49 t53886; char *t53887; /* x128072 stalin.sc:15773:549866 */ /* x127942 stalin.sc:15774:549875 */ /* x127941 stalin.sc:15774:549888 */ t53838 = a25724; /* x127940 stalin.sc:15774:549876 */ if (f8793(t53838)==FALSE_TYPE) goto l7813; /* x127946 */ /* x127945 */ /* x127944 stalin.sc:15774:549891 */ /* x127943 stalin.sc:15774:549892 */ /* x296069 QobiScheme.sc:166:5314 */ /* x296068 QobiScheme.sc:166:5321 */ t53887 = "This shouldn\'t happen"; /* x296067 QobiScheme.sc:166:5315 */ stalin_panic(t53887); l7813: /* x128071 */ /* x127949 stalin.sc:15775:549905 */ /* x127948 stalin.sc:15775:549919 */ t53839 = a25724; /* x127947 stalin.sc:15775:549906 */ if (f8148(t53839)==FALSE_TYPE) goto l7815; /* x127971 */ /* x127970 */ /* x127969 stalin.sc:15776:549925 */ /* x127954 stalin.sc:15776:549932 */ /* x127953 stalin.sc:15776:549944 */ /* x127952 stalin.sc:15776:549956 */ t53884 = a25724; /* x127951 stalin.sc:15776:549945 */ t53883 = f8153(t53884); /* x127950 stalin.sc:15776:549933 */ if (f7682(t53883)==FALSE_TYPE) goto l7825; /* x127961 */ /* x127960 */ /* x127959 */ /* x127958 stalin.sc:15777:549963 */ /* x127957 stalin.sc:15777:549982 */ a1211 = TRUE_TYPE; /* x127956 */ /* x127955 stalin.sc:15778:549989 */ return a1234; l7825: /* x127968 */ /* x127967 */ /* x127966 stalin.sc:15779:550010 */ /* x127965 stalin.sc:15779:550021 */ /* x127964 stalin.sc:15779:550033 */ t53886 = a25724; /* x127963 stalin.sc:15779:550022 */ t53885 = f8153(t53886); /* x127962 stalin.sc:15779:550011 */ return f14094(t53885); l7815: /* x128070 */ /* x127974 stalin.sc:15780:550043 */ /* x127973 stalin.sc:15780:550054 */ t53840 = a25724; /* x127972 stalin.sc:15780:550044 */ if (f13798(t53840)==FALSE_TYPE) goto l7817; /* x127981 */ /* x127980 */ /* x127979 */ /* x127978 stalin.sc:15781:550060 */ /* x127977 stalin.sc:15781:550078 */ a1202 = TRUE_TYPE; /* x127976 */ /* x127975 stalin.sc:15782:550085 */ return a1229; l7817: /* x128069 */ /* x127984 stalin.sc:15783:550100 */ /* x127983 stalin.sc:15783:550111 */ t53841 = a25724; /* x127982 stalin.sc:15783:550101 */ if (f13859(t53841)==FALSE_TYPE) goto l7819; /* x127991 */ /* x127990 */ /* x127989 stalin.sc:15783:550114 */ /* x127988 stalin.sc:15783:550125 */ /* x127987 stalin.sc:15783:550142 */ t53882 = a25724; /* x127986 stalin.sc:15783:550126 */ t53881 = f13854(t53882); /* x127985 stalin.sc:15783:550115 */ return f14094(t53881); l7819: /* x128068 */ /* x127994 stalin.sc:15784:550150 */ /* x127993 stalin.sc:15784:550161 */ t53842 = a25724; /* x127992 stalin.sc:15784:550151 */ if (f14024(t53842)==FALSE_TYPE) goto l7821; /* x128001 */ /* x128000 */ /* x127999 */ /* x127998 stalin.sc:15785:550167 */ /* x127997 stalin.sc:15785:550190 */ a1201 = TRUE_TYPE; /* x127996 */ /* x127995 stalin.sc:15786:550197 */ return a1228; l7821: /* x128067 */ /* x128066 */ /* x128065 */ /* x128060 stalin.sc:15788:550225 */ /* x128059 stalin.sc:15788:550243 */ a1202 = TRUE_TYPE; /* x128064 stalin.sc:15789:550250 */ /* x128062 stalin.sc:15789:550271 */ t53872 = a25724; /* x128063 stalin.sc:15789:550273 */ /* x128061 stalin.sc:15789:550251 */ a21768 = t53872; /* x69428 */ /* x69427 stalin.sc:3259:111602 */ /* x69420 stalin.sc:3259:111610 */ /* x69419 stalin.sc:3259:111620 */ /* x270386 stalin.sc:3259:111611 */ /* x69422 */ /* x69421 */ /* x69417 */ while (region8109!=((struct region8109 *)(&initial_region8109))) {struct region8109 *region; region = region8109; region8109 = region8109->region; GC_free(region);} region_size8109 = REGION_SIZE8109; fp8109 = &((region8109->data)[0]); ALIGN(fp8109); /* x69416 stalin.sc:3260:111636 */ /* x69399 stalin.sc:3261:111662 */ t53873 = a21768; /* x69415 stalin.sc:3262:111666 */ /* x69400 stalin.sc:3262:111670 */ /* x69406 stalin.sc:3263:111679 */ /* x69405 stalin.sc:3263:111709 */ t53876 = 32; /* x69404 stalin.sc:3263:111687 */ /* x69403 stalin.sc:3263:111706 */ t53879 = a21768; /* x69402 stalin.sc:3263:111688 */ a37031 = t53879; /* x280793 */ /* x280792 */ t53880 = a37031; /* x280791 */ if (!((t53880.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-BOOLEANS[6507] 31948]"); structure_ref_error();} t53875 = t53880.value.structure_type27650->s5; /* x69401 stalin.sc:3263:111680 */ if ((fp8109+sizeof(struct structure_type24753))>(&((region8109->data)[region_size8109]))) {struct region8109 *region; unsigned region_size = REGION_SIZE8109; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8109 *)GC_malloc_uncollectable(sizeof(struct region8109)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 3263, 111679); out_of_memory_error();} region->region = region8109; region_size8109 = region_size; region8109 = region; fp8109 = &((region->data)[0]); ALIGN(fp8109);} t53878.tag = STRUCTURE_TYPE24753; t53878.value.structure_type24753 = (struct structure_type24753 *)fp8109; fp8109 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t53878.value.structure_type24753->s0.tag = FIXNUM_TYPE; t53878.value.structure_type24753->s0.value.fixnum_type = t53876; t53878.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8109+sizeof(struct structure_type24753))>(&((region8109->data)[region_size8109]))) {struct region8109 *region; unsigned region_size = REGION_SIZE8109; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8109 *)GC_malloc_uncollectable(sizeof(struct region8109)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 3263, 111679); out_of_memory_error();} region->region = region8109; region_size8109 = region_size; region8109 = region; fp8109 = &((region->data)[0]); ALIGN(fp8109);} t53877 = (struct structure_type24753 *)fp8109; fp8109 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t53877->s0.tag = FIXNUM_TYPE; t53877->s0.value.fixnum_type = t53875; t53877->s1 = t53878; t53874 = f27310(t53877); /* x69398 stalin.sc:3260:111637 */ f6508(t53873, t53874); /* x128058 */ /* x128057 stalin.sc:15790:550280 */ /* x128053 stalin.sc:15791:550291 */ /* x128029 stalin.sc:15791:550294 */ /* x128005 stalin.sc:15791:550301 */ t53849 = a1229; /* x128028 stalin.sc:15799:550753 */ /* x128007 stalin.sc:15799:550761 */ /* x128026 stalin.sc:15800:550773 */ /* x128025 stalin.sc:15801:550799 */ /* x128023 stalin.sc:15802:550820 */ /* x128024 stalin.sc:15804:550897 */ t53859 = a25724; /* x128010 stalin.sc:15801:550800 */ t53860.tag = NATIVE_PROCEDURE_TYPE20152; t53855 = f8172(t53860, t53859); /* x128009 stalin.sc:15800:550778 */ /* x128008 stalin.sc:15800:550774 */ t53856.tag = NATIVE_PROCEDURE_TYPE6842; t53857 = *((struct w49 *)(&t53855)); t53858 = (struct structure_type24753 *)NULL_TYPE; t53851 = f27731(t53856, t53857, t53858); /* x128027 stalin.sc:15807:551009 */ /* x128006 stalin.sc:15799:550754 */ t53852 = NATIVE_PROCEDURE_TYPE416; /* MOVE: branching squeezed to general */ if (t53851>=((struct structure_type24753 *)VALUE_OFFSET)) {t53853.tag = STRUCTURE_TYPE24753; t53853.value.structure_type24753 = t53851;} else t53853.tag = (unsigned)t53851; t53854.tag = FALSE_TYPE; t53850 = f1006(t53852, t53853, t53854); /* x128004 stalin.sc:15791:550295 */ t53847 = f14093(t53849, t53850); /* x128052 stalin.sc:15808:551021 */ /* x128031 stalin.sc:15808:551029 */ /* x128050 stalin.sc:15809:551041 */ /* x128049 stalin.sc:15810:551062 */ /* x128047 stalin.sc:15811:551083 */ /* x128048 stalin.sc:15813:551160 */ t53869 = a25724; /* x128034 stalin.sc:15810:551063 */ t53870.tag = NATIVE_PROCEDURE_TYPE20151; t53865 = f8172(t53870, t53869); /* x128033 stalin.sc:15809:551046 */ /* x128032 stalin.sc:15809:551042 */ t53866.tag = NATIVE_PROCEDURE_TYPE6839; t53867 = *((struct w49 *)(&t53865)); t53868 = (struct structure_type24753 *)NULL_TYPE; t53861 = f27731(t53866, t53867, t53868); /* x128051 stalin.sc:15816:551272 */ /* x128030 stalin.sc:15808:551022 */ t53862 = NATIVE_PROCEDURE_TYPE416; /* MOVE: branching squeezed to general */ if (t53861>=((struct structure_type24753 *)VALUE_OFFSET)) {t53863.tag = STRUCTURE_TYPE24753; t53863.value.structure_type24753 = t53861;} else t53863.tag = (unsigned)t53861; t53864.tag = FALSE_TYPE; t53848 = f1006(t53862, t53863, t53864); /* x268911 stalin.sc:15791:550292 */ if ((t53847.tag)==FIXNUM_TYPE) {switch (t53848.tag) {case FIXNUM_TYPE: t53843.tag = FIXNUM_TYPE; t53843.value.fixnum_type = (t53847.value.fixnum_type)+(t53848.value.fixnum_type); break; case FLONUM_TYPE: t53843.tag = FLONUM_TYPE; t53843.value.flonum_type = (t53847.value.fixnum_type)+(t53848.value.flonum_type); break; default: backtrace("stalin.sc", 15791, 550291); plus_error();}} else switch (t53848.tag) {case FIXNUM_TYPE: t53843.tag = FLONUM_TYPE; t53843.value.flonum_type = (t53847.value.flonum_type)+(t53848.value.fixnum_type); break; case FLONUM_TYPE: t53843.tag = FLONUM_TYPE; t53843.value.flonum_type = (t53847.value.flonum_type)+(t53848.value.flonum_type); break; default: backtrace("stalin.sc", 15791, 550291); plus_error();} /* x128056 stalin.sc:15817:551281 */ /* x128055 stalin.sc:15817:551301 */ t53871 = a25724; /* x128054 stalin.sc:15817:551282 */ t53844 = f14079(t53871); /* x128002 stalin.sc:15790:550281 */ t53845 = *((struct w49 *)(&t53843)); t53846 = f14093(t53845, t53844); return *((struct w49 *)(&t53846));} /* TYPE-SIZE[14094] */ struct w49 f14094(struct w49 a25692) {struct w49 r14094; char *a25701; /* v */ struct w30215 a25705; /* S */ int a25706; /* N */ struct w30215 a25716; /* S */ struct w49 a25717; /* WS */ struct w16638 a35356; /* PAIR */ struct w16638 a35705; /* PAIR */ struct w16638 a35706; /* PAIR */ struct w16638 a35707; /* PAIR */ struct w49 a37329; /* OBJ */ struct w49 a37426; /* OBJ */ struct w49 a37545; /* OBJ */ struct w49 a37638; /* S */ struct w49 a37685; /* OBJ */ struct w49 a37761; /* OBJ */ struct w49 a37873; /* OBJ */ struct w49 a38075; /* OBJ */ struct w49 a38273; /* OBJ */ struct w49 t53888; struct w49 t53889; struct w49 t53890; struct w49 t53891; struct w49 t53892; struct w49 t53893; struct w49 t53894; struct w49 t53895; struct w49 t53896; struct w49 t53897; struct w49 t53898; struct w49 t53899; struct w49 t53900; struct w49 t53901; struct w49 t53902; struct w49 t53903; struct w49 t53904; struct w49 t53905; struct w49 t53906; struct w49 t53907; struct w49 t53908; struct w49 t53909; char *t53910; struct w49 t53911; struct w30215 t53912; struct w49 t53913; struct w49 t53914; struct w30215 t53915; struct w30215 t53916; struct w49 t53917; struct w49 t53918; struct w49 t53919; struct w49 t53920; struct w49 t53921; struct w49 t53922; struct w30215 t53923; struct w49 t53924; struct w49 t53925; struct w30215 t53926; struct w30215 t53927; struct w49 t53928; struct w49 t53929; struct w49 t53930; struct w49 t53931; struct w49 t53932; struct w49 t53933; struct w49 t53934; struct w49 t53935; int t53936; struct w11873 t53937; struct w49 t53938; struct w30215 t53939; struct w49 t53940; struct w49 t53941; struct w16638 t53942; struct w16638 t53943; struct w30215 t53944; struct w49 t53945; struct w30215 t53946; struct w49 t53947; struct w49 t53948; struct w49 t53949; struct w16638 t53950; struct w16638 t53951; struct w49 t53952; struct w16638 t53953; struct w16638 t53954; struct w16638 t53955; struct w16638 t53956; struct w30215 t53957; struct w49 t53958; struct w49 t53959; struct w30215 t53960; struct w49 t53961; struct w49 t53962; struct w49 t53963; struct w49 t53964; struct w49 t53965; char *t53966; char *t53967; char *t53968; char *t53969; struct w49 t53970; struct w49 t53971; char *t53972; char *t53973; struct w49 t53974; struct w49 t53975; char *t53976; char *t53977; struct w49 t53978; struct w49 t53979; char *t53980; char *t53981; struct w49 t53982; struct w49 t53983; char *t53984; char *t53985; struct w49 t53986; struct w49 t53987; char *t53988; struct w49 t53989; int t53990; int t53991; int t53992; struct w30215 t53993; int t53994; struct w30215 t53995; struct w49 t53996; struct w30215 t53997; struct w49 t53998; struct w49 t53999; int t54000; int t54001; struct w30215 t54002; struct w49 t54003; struct w49 t54004; struct w30215 t54005; struct w49 t54006; struct w3457 t54007; struct w49 t54008; struct w49 t54009; struct w49 t54010; char *t54011; struct w6315 t54012; struct w49 t54013; char *t54014; struct w30215 t54015; struct w49 t54016; struct w49 t54017; struct w30215 t54018; struct w30215 t54019; struct w49 t54020; struct w49 t54021; struct w49 t54022; struct w49 t54023; /* x127937 stalin.sc:15687:547307 */ /* x127528 stalin.sc:15688:547316 */ /* x127527 stalin.sc:15688:547330 */ t53888 = a25692; /* x127526 stalin.sc:15688:547317 */ if (f7683(t53888)==FALSE_TYPE) goto l7827; /* x127535 */ /* x127534 */ /* x127533 */ /* x127532 stalin.sc:15689:547336 */ /* x127531 stalin.sc:15689:547357 */ a1210 = TRUE_TYPE; /* x127530 */ /* x127529 stalin.sc:15690:547364 */ return a1233; l7827: /* x127936 */ /* x127538 stalin.sc:15691:547382 */ /* x127537 stalin.sc:15691:547396 */ t53889 = a25692; /* x127536 stalin.sc:15691:547383 */ if (f7684(t53889)==FALSE_TYPE) goto l7829; /* x127545 */ /* x127544 */ /* x127543 */ /* x127542 stalin.sc:15692:547402 */ /* x127541 stalin.sc:15692:547423 */ a1209 = TRUE_TYPE; /* x127540 */ /* x127539 stalin.sc:15693:547430 */ return a1232; l7829: /* x127935 */ /* x127548 stalin.sc:15694:547448 */ /* x127547 stalin.sc:15694:547467 */ t53890 = a25692; /* x127546 stalin.sc:15694:547449 */ if (f7687(t53890)==FALSE_TYPE) goto l7831; /* x127566 */ /* x127565 */ /* x127564 */ /* x127563 stalin.sc:15695:547473 */ /* x127562 stalin.sc:15695:547499 */ a1208 = TRUE_TYPE; /* x127561 */ /* x127560 stalin.sc:15697:547562 */ /* x127556 stalin.sc:15697:547569 */ /* x127554 stalin.sc:15697:547572 */ /* x127552 stalin.sc:15697:547579 */ t54021 = a1232; /* x127553 stalin.sc:15697:547593 */ t54022 = a1241; /* x127551 stalin.sc:15697:547573 */ t54019 = f14093(t54021, t54022); /* x127555 stalin.sc:15697:547613 */ t54020 = a1232; /* x268919 stalin.sc:15697:547570 */ if ((t54019.tag)==FIXNUM_TYPE) {switch (t54020.tag) {case FIXNUM_TYPE: t54015.tag = FIXNUM_TYPE; t54015.value.fixnum_type = (t54019.value.fixnum_type)+(t54020.value.fixnum_type); break; case FLONUM_TYPE: t54015.tag = FLONUM_TYPE; t54015.value.flonum_type = (t54019.value.fixnum_type)+(t54020.value.flonum_type); break; default: backtrace("stalin.sc", 15697, 547569); plus_error();}} else switch (t54020.tag) {case FIXNUM_TYPE: t54015.tag = FLONUM_TYPE; t54015.value.flonum_type = (t54019.value.flonum_type)+(t54020.value.fixnum_type); break; case FLONUM_TYPE: t54015.tag = FLONUM_TYPE; t54015.value.flonum_type = (t54019.value.flonum_type)+(t54020.value.flonum_type); break; default: backtrace("stalin.sc", 15697, 547569); plus_error();} /* x127559 stalin.sc:15698:547631 */ /* x127558 stalin.sc:15698:547647 */ t54023 = a25692; /* x127557 stalin.sc:15698:547632 */ t54016 = f14028(t54023); /* x127549 stalin.sc:15697:547563 */ t54017 = *((struct w49 *)(&t54015)); t54018 = f14093(t54017, t54016); return *((struct w49 *)(&t54018)); l7831: /* x127934 */ /* x127569 stalin.sc:15699:547655 */ /* x127568 stalin.sc:15699:547673 */ t53891 = a25692; /* x127567 stalin.sc:15699:547656 */ if (f7700(t53891)==FALSE_TYPE) goto l7833; /* x127576 */ /* x127575 */ /* x127574 */ /* x127573 stalin.sc:15700:547679 */ /* x127572 stalin.sc:15700:547699 */ a1205 = TRUE_TYPE; /* x127571 */ /* x127570 stalin.sc:15701:547706 */ return a1231; l7833: /* x127933 */ /* x127579 stalin.sc:15702:547725 */ /* x127578 stalin.sc:15702:547744 */ t53892 = a25692; /* x127577 stalin.sc:15702:547726 */ if (f7701(t53892)==FALSE_TYPE) goto l7835; /* x127586 */ /* x127585 */ /* x127584 */ /* x127583 stalin.sc:15703:547750 */ /* x127582 stalin.sc:15703:547770 */ a1205 = TRUE_TYPE; /* x127581 */ /* x127580 stalin.sc:15704:547777 */ return a1231; l7835: /* x127932 */ /* x127589 stalin.sc:15705:547796 */ /* x127588 stalin.sc:15705:547811 */ t53893 = a25692; /* x127587 stalin.sc:15705:547797 */ if (f7703(t53893)==FALSE_TYPE) goto l7837; /* x127596 */ /* x127595 */ /* x127594 */ /* x127593 stalin.sc:15706:547817 */ /* x127592 stalin.sc:15706:547837 */ a1207 = TRUE_TYPE; /* x127591 */ /* x127590 stalin.sc:15707:547844 */ return a1231; l7837: /* x127931 */ /* x127599 stalin.sc:15708:547863 */ /* x127598 stalin.sc:15708:547886 */ t53894 = a25692; /* x127597 stalin.sc:15708:547864 */ a38273 = t53894; /* x285761 */ /* x285760 */ t53895 = a38273; /* x285759 */ if (!((t53895.tag)==STRUCTURE_TYPE27779)) goto l7839; /* x127606 */ /* x127605 */ /* x127604 */ /* x127603 stalin.sc:15709:547892 */ /* x127602 stalin.sc:15709:547912 */ a1206 = TRUE_TYPE; /* x127601 */ /* x127600 stalin.sc:15710:547919 */ return a1231; l7839: /* x127930 */ /* x127609 stalin.sc:15711:547938 */ /* x127608 stalin.sc:15711:547962 */ t53896 = a25692; /* x127607 stalin.sc:15711:547939 */ a38075 = t53896; /* x284969 */ /* x284968 */ t53897 = a38075; /* x284967 */ if (!((t53897.tag)==STRUCTURE_TYPE27756)) goto l7841; /* x127725 */ /* x127724 */ /* x127723 */ /* x127722 stalin.sc:15712:547968 */ /* x127715 stalin.sc:15712:547974 */ /* x127714 stalin.sc:15712:547987 */ t54013 = a25692; /* x127713 stalin.sc:15712:547975 */ if (f8793(t54013)==FALSE_TYPE) goto l7881; /* x127719 */ /* x127718 */ /* x127717 stalin.sc:15712:547990 */ /* x127716 stalin.sc:15712:547991 */ /* x296077 QobiScheme.sc:166:5314 */ /* x296076 QobiScheme.sc:166:5321 */ t54014 = "This shouldn\'t happen"; /* x296075 QobiScheme.sc:166:5315 */ stalin_panic(t54014); goto l7882; l7881: /* x127721 stalin.sc:15712:547968 */ /* x127720 stalin.sc:15712:547968 */ l7882: /* x127712 */ /* x127711 stalin.sc:15713:548004 */ /* x127710 stalin.sc:15713:548010 */ t53967 = a686; /* x127709 */ a25701 = t53967; /* x127708 */ /* x127613 */ /* x127611 */ t53968 = a25701; /* x127612 */ t53969 = q18; /* x127610 */ /* MOVE: branching squeezed to general */ if (t53968>=((char *)VALUE_OFFSET)) {t53970.tag = EXTERNAL_SYMBOL_TYPE; t53970.value.external_symbol_type = t53968;} else t53970.tag = (unsigned)t53968; t53971.tag = EXTERNAL_SYMBOL_TYPE; t53971.value.external_symbol_type = t53969; if (f26160(t53970, t53971)==FALSE_TYPE) goto l7871; /* x127619 */ /* x127618 */ /* x127617 stalin.sc:15715:548062 */ /* x127615 stalin.sc:15715:548077 */ /* x127616 stalin.sc:15715:548080 */ t54011 = "Immediate flat closures are not (yet) implemented"; /* x127614 stalin.sc:15715:548063 */ t54012.tag = FALSE_TYPE; f9707(t54012, t54011); return r14094; l7871: /* x127707 */ /* x127623 */ /* x127621 */ t53972 = a25701; /* x127622 */ t53973 = q20; /* x127620 */ /* MOVE: branching squeezed to general */ if (t53972>=((char *)VALUE_OFFSET)) {t53974.tag = EXTERNAL_SYMBOL_TYPE; t53974.value.external_symbol_type = t53972;} else t53974.tag = (unsigned)t53972; t53975.tag = EXTERNAL_SYMBOL_TYPE; t53975.value.external_symbol_type = t53973; if (f26160(t53974, t53975)==FALSE_TYPE) goto l7873; /* x127670 */ /* x127669 */ /* x127668 */ /* x127667 stalin.sc:15717:548164 */ /* x127665 stalin.sc:15717:548198 */ t54010 = a25692; /* x127666 stalin.sc:15717:548200 */ /* x127664 stalin.sc:15717:548165 */ f7300(t54010); /* x127663 */ /* x127662 stalin.sc:15718:548209 */ /* x127656 stalin.sc:15718:548223 */ t53990 = 0; /* x127661 stalin.sc:15718:548229 */ /* x127660 stalin.sc:15718:548237 */ /* x127659 stalin.sc:15718:548248 */ t54009 = a25692; /* x127658 stalin.sc:15718:548238 */ t54007 = f8951(t54009); /* x127657 stalin.sc:15718:548230 */ t54008 = *((struct w49 *)(&t54007)); t53991 = f26227(t54008); /* x127655 */ /* x127654 */ /* x127653 */ /* x127652 */ /* x127651 */ /* x127650 */ /* x127649 */ /* x127625 */ /* x127624 stalin.sc:15718:548214 */ a25705.tag = FIXNUM_TYPE; a25705.value.fixnum_type = t53990; a25706 = t53991; h14117: /* x127648 stalin.sc:15720:548286 */ /* x127628 stalin.sc:15720:548290 */ /* x127627 stalin.sc:15720:548297 */ t53992 = a25706; /* x268918 stalin.sc:15720:548291 */ if (!(t53992==0)) goto l7879; /* x127634 stalin.sc:15721:548303 */ /* x127630 stalin.sc:15721:548310 */ t54002 = a25705; /* x127633 stalin.sc:15721:548312 */ /* x127632 stalin.sc:15721:548328 */ t54006 = a25692; /* x127631 stalin.sc:15721:548313 */ t54003 = f14028(t54006); /* x127629 stalin.sc:15721:548304 */ t54004 = *((struct w49 *)(&t54002)); t54005 = f14093(t54004, t54003); return *((struct w49 *)(&t54005)); l7879: /* x127647 stalin.sc:15722:548335 */ /* x127642 stalin.sc:15722:548341 */ /* x127640 stalin.sc:15722:548344 */ /* x127638 stalin.sc:15722:548351 */ t53997 = a25705; /* x127639 stalin.sc:15722:548353 */ t53998 = a1240; /* x127637 stalin.sc:15722:548345 */ t53999 = *((struct w49 *)(&t53997)); t53995 = f14093(t53999, t53998); /* x127641 stalin.sc:15722:548374 */ t53996 = a1231; /* x268917 stalin.sc:15722:548342 */ if ((t53995.tag)==FIXNUM_TYPE) {switch (t53996.tag) {case FIXNUM_TYPE: t53993.tag = FIXNUM_TYPE; t53993.value.fixnum_type = (t53995.value.fixnum_type)+(t53996.value.fixnum_type); break; case FLONUM_TYPE: t53993.tag = FLONUM_TYPE; t53993.value.flonum_type = (t53995.value.fixnum_type)+(t53996.value.flonum_type); break; default: backtrace("stalin.sc", 15722, 548341); plus_error();}} else switch (t53996.tag) {case FIXNUM_TYPE: t53993.tag = FLONUM_TYPE; t53993.value.flonum_type = (t53995.value.flonum_type)+(t53996.value.fixnum_type); break; case FLONUM_TYPE: t53993.tag = FLONUM_TYPE; t53993.value.flonum_type = (t53995.value.flonum_type)+(t53996.value.flonum_type); break; default: backtrace("stalin.sc", 15722, 548341); plus_error();} /* x127646 stalin.sc:15723:548392 */ /* x127644 stalin.sc:15723:548395 */ t54000 = a25706; /* x127645 stalin.sc:15723:548397 */ t54001 = 1; /* x268916 stalin.sc:15723:548393 */ t53994 = t54000-t54001; /* x127635 stalin.sc:15722:548336 */ a25705 = t53993; a25706 = t53994; goto h14117; l7873: /* x127706 */ /* x127692 */ /* x127691 */ /* x127689 */ t53976 = a25701; /* x127690 */ t53977 = q19; /* x127688 */ /* MOVE: branching squeezed to general */ if (t53976>=((char *)VALUE_OFFSET)) {t53978.tag = EXTERNAL_SYMBOL_TYPE; t53978.value.external_symbol_type = t53976;} else t53978.tag = (unsigned)t53976; t53979.tag = EXTERNAL_SYMBOL_TYPE; t53979.value.external_symbol_type = t53977; if (!(f26160(t53978, t53979)==FALSE_TYPE)) goto l7874; /* x127685 */ /* x127684 */ /* x127682 */ t53980 = a25701; /* x127683 */ t53981 = q21; /* x127681 */ /* MOVE: branching squeezed to general */ if (t53980>=((char *)VALUE_OFFSET)) {t53982.tag = EXTERNAL_SYMBOL_TYPE; t53982.value.external_symbol_type = t53980;} else t53982.tag = (unsigned)t53980; t53983.tag = EXTERNAL_SYMBOL_TYPE; t53983.value.external_symbol_type = t53981; if (!(f26160(t53982, t53983)==FALSE_TYPE)) goto l7874; /* x127678 */ /* x127676 */ t53984 = a25701; /* x127677 */ t53985 = q22; /* x127675 */ /* MOVE: branching squeezed to general */ if (t53984>=((char *)VALUE_OFFSET)) {t53986.tag = EXTERNAL_SYMBOL_TYPE; t53986.value.external_symbol_type = t53984;} else t53986.tag = (unsigned)t53984; t53987.tag = EXTERNAL_SYMBOL_TYPE; t53987.value.external_symbol_type = t53985; if (f26160(t53986, t53987)==FALSE_TYPE) goto l7875; l7874: /* x127701 */ /* x127700 */ /* x127699 */ /* x127698 stalin.sc:15725:548454 */ /* x127696 stalin.sc:15725:548488 */ t53989 = a25692; /* x127697 stalin.sc:15725:548490 */ /* x127695 stalin.sc:15725:548455 */ f7300(t53989); /* x127694 */ /* x127693 stalin.sc:15726:548499 */ return a1231; l7875: /* x127705 */ /* x127704 */ /* x127703 stalin.sc:15727:548525 */ /* x127702 stalin.sc:15727:548526 */ /* x296073 QobiScheme.sc:166:5314 */ /* x296072 QobiScheme.sc:166:5321 */ t53988 = "This shouldn\'t happen"; /* x296071 QobiScheme.sc:166:5315 */ stalin_panic(t53988); l7841: /* x127929 */ /* x127728 stalin.sc:15728:548541 */ /* x127727 stalin.sc:15728:548561 */ t53898 = a25692; /* x127726 stalin.sc:15728:548542 */ a37873 = t53898; /* x284161 */ /* x284160 */ t53899 = a37873; /* x284159 */ if (!((t53899.tag)==STRUCTURE_TYPE27858)) goto l7843; /* x127745 */ /* x127744 */ /* x127743 */ /* x127740 stalin.sc:15729:548567 */ /* x127733 stalin.sc:15729:548573 */ /* x127732 stalin.sc:15729:548586 */ t53965 = a25692; /* x127731 stalin.sc:15729:548574 */ if (f8793(t53965)==FALSE_TYPE) goto l7868; /* x127737 */ /* x127736 */ /* x127735 stalin.sc:15729:548589 */ /* x127734 stalin.sc:15729:548590 */ /* x296037 QobiScheme.sc:166:5314 */ /* x296036 QobiScheme.sc:166:5321 */ t53966 = "This shouldn\'t happen"; /* x296035 QobiScheme.sc:166:5315 */ stalin_panic(t53966); goto l7869; l7868: /* x127739 stalin.sc:15729:548567 */ /* x127738 stalin.sc:15729:548567 */ l7869: /* x127742 stalin.sc:15730:548603 */ /* x127741 stalin.sc:15730:548625 */ a1204 = TRUE_TYPE; /* x127730 */ /* x127729 stalin.sc:15731:548632 */ return a1231; l7843: /* x127928 */ /* x127748 stalin.sc:15732:548651 */ /* x127747 stalin.sc:15732:548665 */ t53900 = a25692; /* x127746 stalin.sc:15732:548652 */ a37761 = t53900; /* x283713 */ /* x283712 */ t53901 = a37761; /* x283711 */ if (!((t53901.tag)==STRUCTURE_TYPE27673)) goto l7845; /* x127755 */ /* x127754 */ /* x127753 */ /* x127752 stalin.sc:15733:548671 */ /* x127751 stalin.sc:15733:548691 */ a1206 = TRUE_TYPE; /* x127750 */ /* x127749 stalin.sc:15734:548698 */ return a1231; l7845: /* x127927 */ /* x127758 stalin.sc:15735:548717 */ /* x127757 stalin.sc:15735:548734 */ t53902 = a25692; /* x127756 stalin.sc:15735:548718 */ a37685 = t53902; /* x283409 */ /* x283408 */ t53903 = a37685; /* x283407 */ if (!((t53903.tag)==STRUCTURE_TYPE27769)) goto l7847; /* x127822 */ /* x127821 */ /* x127820 */ /* x127819 stalin.sc:15736:548740 */ /* x127817 stalin.sc:15736:548767 */ t53964 = a25692; /* x127818 stalin.sc:15736:548769 */ /* x127816 stalin.sc:15736:548741 */ f7445(t53964); /* x127815 */ /* x127814 stalin.sc:15737:548776 */ /* x127761 stalin.sc:15737:548780 */ /* x127760 stalin.sc:15737:548807 */ t53935 = a25692; /* x127759 stalin.sc:15737:548781 */ if (f7429(t53935)==FALSE_TYPE) goto l7861; /* x127812 stalin.sc:15738:548817 */ /* x127808 stalin.sc:15738:548831 */ t53936 = 0; /* x127811 stalin.sc:15738:548838 */ /* x127810 stalin.sc:15738:548860 */ t53962 = a25692; /* x127809 stalin.sc:15738:548839 */ a37638 = t53962; /* x283221 */ /* x283220 */ t53963 = a37638; /* x283219 */ if (!((t53963.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32555]"); structure_ref_error();} t53937 = t53963.value.structure_type27769->s1; /* x127807 */ /* x127806 */ /* x127805 */ /* x127804 */ /* x127803 */ /* x127802 */ /* x127801 */ /* x127763 */ /* x127762 stalin.sc:15738:548822 */ a25716.tag = FIXNUM_TYPE; a25716.value.fixnum_type = t53936; a25717 = *((struct w49 *)(&t53937)); h14136: /* x127800 stalin.sc:15740:548885 */ /* x127766 stalin.sc:15740:548889 */ /* x127765 stalin.sc:15740:548896 */ t53938 = a25717; /* x268915 stalin.sc:15740:548890 */ if (!((t53938.tag)==NULL_TYPE)) goto l7863; /* x127772 stalin.sc:15741:548905 */ /* x127768 stalin.sc:15741:548912 */ t53957 = a25716; /* x127771 stalin.sc:15741:548914 */ /* x127770 stalin.sc:15741:548930 */ t53961 = a25692; /* x127769 stalin.sc:15741:548915 */ t53958 = f14028(t53961); /* x127767 stalin.sc:15741:548906 */ t53959 = *((struct w49 *)(&t53957)); t53960 = f14093(t53959, t53958); return *((struct w49 *)(&t53960)); l7863: /* x127799 stalin.sc:15742:548939 */ /* x127795 stalin.sc:15742:548945 */ /* x127778 stalin.sc:15742:548949 */ /* x127777 stalin.sc:15742:548962 */ /* x127776 stalin.sc:15742:548969 */ t53942 = *((struct w16638 *)(&a25717)); /* x127775 stalin.sc:15742:548963 */ a35707 = t53942; /* x274185 */ /* x274184 */ t53943 = a35707; /* x274183 */ if (!((t53943.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29856]"); structure_ref_error();} t53941 = t53943.value.structure_type24753->s0; /* x127774 stalin.sc:15742:548950 */ if (f8793(t53941)==FALSE_TYPE) goto l7865; /* x127779 stalin.sc:15743:548982 */ t53939 = a25716; goto l7866; l7865: /* x127794 stalin.sc:15744:548992 */ /* x127788 stalin.sc:15744:548995 */ /* x127782 stalin.sc:15744:549002 */ t53946 = a25716; /* x127787 stalin.sc:15744:549004 */ /* x127786 stalin.sc:15744:549024 */ /* x127785 stalin.sc:15744:549031 */ t53950 = *((struct w16638 *)(&a25717)); /* x127784 stalin.sc:15744:549025 */ a35705 = t53950; /* x274177 */ /* x274176 */ t53951 = a35705; /* x274175 */ if (!((t53951.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29854]"); structure_ref_error();} t53949 = t53951.value.structure_type24753->s0; /* x127783 stalin.sc:15744:549005 */ t53947 = f14079(t53949); /* x127781 stalin.sc:15744:548996 */ t53948 = *((struct w49 *)(&t53946)); t53944 = f14093(t53948, t53947); /* x127793 stalin.sc:15745:549041 */ /* x127792 stalin.sc:15745:549056 */ /* x127791 stalin.sc:15745:549063 */ t53953 = *((struct w16638 *)(&a25717)); /* x127790 stalin.sc:15745:549057 */ a35706 = t53953; /* x274181 */ /* x274180 */ t53954 = a35706; /* x274179 */ if (!((t53954.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29855]"); structure_ref_error();} t53952 = t53954.value.structure_type24753->s0; /* x127789 stalin.sc:15745:549042 */ t53945 = f14154(t53952); /* x268914 stalin.sc:15744:548993 */ if ((t53944.tag)==FIXNUM_TYPE) {switch (t53945.tag) {case FIXNUM_TYPE: t53939.tag = FIXNUM_TYPE; t53939.value.fixnum_type = (t53944.value.fixnum_type)+(t53945.value.fixnum_type); break; case FLONUM_TYPE: t53939.tag = FLONUM_TYPE; t53939.value.flonum_type = (t53944.value.fixnum_type)+(t53945.value.flonum_type); break; default: backtrace("stalin.sc", 15744, 548992); plus_error();}} else switch (t53945.tag) {case FIXNUM_TYPE: t53939.tag = FLONUM_TYPE; t53939.value.flonum_type = (t53944.value.flonum_type)+(t53945.value.fixnum_type); break; case FLONUM_TYPE: t53939.tag = FLONUM_TYPE; t53939.value.flonum_type = (t53944.value.flonum_type)+(t53945.value.flonum_type); break; default: backtrace("stalin.sc", 15744, 548992); plus_error();} l7866: /* x127798 stalin.sc:15746:549074 */ /* x127797 stalin.sc:15746:549080 */ t53955 = *((struct w16638 *)(&a25717)); /* x127796 stalin.sc:15746:549075 */ a35356 = t53955; /* x272781 */ /* x272780 */ t53956 = a35356; /* x272779 */ if (!((t53956.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29505]"); structure_ref_error();} t53940 = t53956.value.structure_type24753->s1; /* x127773 stalin.sc:15742:548940 */ a25716 = t53939; a25717 = t53940; goto h14136; l7861: /* x127813 stalin.sc:15747:549094 */ return a1231; l7847: /* x127926 */ /* x127825 stalin.sc:15748:549114 */ /* x127824 stalin.sc:15748:549135 */ t53904 = a25692; /* x127823 stalin.sc:15748:549115 */ a37545 = t53904; /* x282849 */ /* x282848 */ t53905 = a37545; /* x282847 */ if (!((t53905.tag)==STRUCTURE_TYPE27761)) goto l7849; /* x127847 */ /* x127846 */ /* x127845 stalin.sc:15749:549141 */ /* x127828 stalin.sc:15749:549148 */ /* x127827 stalin.sc:15749:549173 */ t53933 = a25692; /* x127826 stalin.sc:15749:549149 */ if (f7754(t53933)==FALSE_TYPE) goto l7859; /* x127835 */ /* x127834 */ /* x127833 */ /* x127832 stalin.sc:15750:549179 */ /* x127831 stalin.sc:15750:549200 */ a1203 = TRUE_TYPE; /* x127830 */ /* x127829 stalin.sc:15751:549207 */ return a1230; l7859: /* x127844 */ /* x127843 */ /* x127842 */ /* x127841 stalin.sc:15752:549230 */ /* x127839 stalin.sc:15752:549261 */ t53934 = a25692; /* x127840 stalin.sc:15752:549263 */ /* x127838 stalin.sc:15752:549231 */ f7495(t53934); /* x127837 */ /* x127836 stalin.sc:15753:549275 */ return a1231; l7849: /* x127925 */ /* x127850 stalin.sc:15754:549296 */ /* x127849 stalin.sc:15754:549320 */ t53906 = a25692; /* x127848 stalin.sc:15754:549297 */ a37426 = t53906; /* x282373 */ /* x282372 */ t53907 = a37426; /* x282371 */ if (!((t53907.tag)==STRUCTURE_TYPE27669)) goto l7851; /* x127883 */ /* x127882 */ /* x127881 stalin.sc:15755:549326 */ /* x127853 stalin.sc:15755:549333 */ /* x127852 stalin.sc:15755:549358 */ t53922 = a25692; /* x127851 stalin.sc:15755:549334 */ if (f7754(t53922)==FALSE_TYPE) goto l7857; /* x127860 */ /* x127859 */ /* x127858 */ /* x127857 stalin.sc:15756:549364 */ /* x127856 stalin.sc:15756:549385 */ a1203 = TRUE_TYPE; /* x127855 */ /* x127854 stalin.sc:15757:549392 */ return a1230; l7857: /* x127880 */ /* x127879 */ /* x127878 */ /* x127877 stalin.sc:15759:549418 */ /* x127875 stalin.sc:15759:549452 */ t53932 = a25692; /* x127876 stalin.sc:15759:549454 */ /* x127874 stalin.sc:15759:549419 */ f7545(t53932); /* x127873 */ /* x127872 stalin.sc:15760:549461 */ /* x127868 stalin.sc:15760:549468 */ /* x127866 stalin.sc:15760:549471 */ /* x127864 stalin.sc:15760:549478 */ t53929 = a1230; /* x127865 stalin.sc:15760:549492 */ t53930 = a1240; /* x127863 stalin.sc:15760:549472 */ t53927 = f14093(t53929, t53930); /* x127867 stalin.sc:15760:549513 */ t53928 = a1231; /* x268913 stalin.sc:15760:549469 */ if ((t53927.tag)==FIXNUM_TYPE) {switch (t53928.tag) {case FIXNUM_TYPE: t53923.tag = FIXNUM_TYPE; t53923.value.fixnum_type = (t53927.value.fixnum_type)+(t53928.value.fixnum_type); break; case FLONUM_TYPE: t53923.tag = FLONUM_TYPE; t53923.value.flonum_type = (t53927.value.fixnum_type)+(t53928.value.flonum_type); break; default: backtrace("stalin.sc", 15760, 549468); plus_error();}} else switch (t53928.tag) {case FIXNUM_TYPE: t53923.tag = FLONUM_TYPE; t53923.value.flonum_type = (t53927.value.flonum_type)+(t53928.value.fixnum_type); break; case FLONUM_TYPE: t53923.tag = FLONUM_TYPE; t53923.value.flonum_type = (t53927.value.flonum_type)+(t53928.value.flonum_type); break; default: backtrace("stalin.sc", 15760, 549468); plus_error();} /* x127871 stalin.sc:15761:549532 */ /* x127870 stalin.sc:15761:549548 */ t53931 = a25692; /* x127869 stalin.sc:15761:549533 */ t53924 = f14028(t53931); /* x127861 stalin.sc:15760:549462 */ t53925 = *((struct w49 *)(&t53923)); t53926 = f14093(t53925, t53924); return *((struct w49 *)(&t53926)); l7851: /* x127924 */ /* x127886 stalin.sc:15762:549558 */ /* x127885 stalin.sc:15762:549582 */ t53908 = a25692; /* x127884 stalin.sc:15762:549559 */ a37329 = t53908; /* x281985 */ /* x281984 */ t53909 = a37329; /* x281983 */ if (!((t53909.tag)==STRUCTURE_TYPE27908)) goto l7853; /* x127919 */ /* x127918 */ /* x127917 stalin.sc:15763:549588 */ /* x127889 stalin.sc:15763:549595 */ /* x127888 stalin.sc:15763:549620 */ t53911 = a25692; /* x127887 stalin.sc:15763:549596 */ if (f7754(t53911)==FALSE_TYPE) goto l7855; /* x127896 */ /* x127895 */ /* x127894 */ /* x127893 stalin.sc:15764:549626 */ /* x127892 stalin.sc:15764:549647 */ a1203 = TRUE_TYPE; /* x127891 */ /* x127890 stalin.sc:15765:549654 */ return a1230; l7855: /* x127916 */ /* x127915 */ /* x127914 */ /* x127913 stalin.sc:15767:549680 */ /* x127911 stalin.sc:15767:549714 */ t53921 = a25692; /* x127912 stalin.sc:15767:549716 */ /* x127910 stalin.sc:15767:549681 */ f7595(t53921); /* x127909 */ /* x127908 stalin.sc:15768:549723 */ /* x127904 stalin.sc:15768:549730 */ /* x127902 stalin.sc:15768:549733 */ /* x127900 stalin.sc:15768:549740 */ t53918 = a1230; /* x127901 stalin.sc:15768:549754 */ t53919 = a1240; /* x127899 stalin.sc:15768:549734 */ t53916 = f14093(t53918, t53919); /* x127903 stalin.sc:15768:549775 */ t53917 = a1231; /* x268912 stalin.sc:15768:549731 */ if ((t53916.tag)==FIXNUM_TYPE) {switch (t53917.tag) {case FIXNUM_TYPE: t53912.tag = FIXNUM_TYPE; t53912.value.fixnum_type = (t53916.value.fixnum_type)+(t53917.value.fixnum_type); break; case FLONUM_TYPE: t53912.tag = FLONUM_TYPE; t53912.value.flonum_type = (t53916.value.fixnum_type)+(t53917.value.flonum_type); break; default: backtrace("stalin.sc", 15768, 549730); plus_error();}} else switch (t53917.tag) {case FIXNUM_TYPE: t53912.tag = FLONUM_TYPE; t53912.value.flonum_type = (t53916.value.flonum_type)+(t53917.value.fixnum_type); break; case FLONUM_TYPE: t53912.tag = FLONUM_TYPE; t53912.value.flonum_type = (t53916.value.flonum_type)+(t53917.value.flonum_type); break; default: backtrace("stalin.sc", 15768, 549730); plus_error();} /* x127907 stalin.sc:15769:549794 */ /* x127906 stalin.sc:15769:549810 */ t53920 = a25692; /* x127905 stalin.sc:15769:549795 */ t53913 = f14028(t53920); /* x127897 stalin.sc:15768:549724 */ t53914 = *((struct w49 *)(&t53912)); t53915 = f14093(t53914, t53913); return *((struct w49 *)(&t53915)); l7853: /* x127923 */ /* x127922 */ /* x127921 stalin.sc:15770:549825 */ /* x127920 stalin.sc:15770:549826 */ /* x296081 QobiScheme.sc:166:5314 */ /* x296080 QobiScheme.sc:166:5321 */ t53910 = "This shouldn\'t happen"; /* x296079 QobiScheme.sc:166:5315 */ stalin_panic(t53910);} /* ALIGN[14093] */ struct w30215 f14093(struct w49 a25690, struct w49 a25691) {struct w30215 r14093; struct w30215 t54024; struct w30215 t54025; struct w30215 t54026; int t54027; struct w49 t54028; struct w30215 t54029; int t54030; struct w49 t54031; struct w30215 t54032; struct w49 t54033; struct w30215 t54034; int t54035; struct w49 t54036; int t54037; struct w49 t54038; /* x127523 stalin.sc:15683:547193 */ /* x127518 stalin.sc:15683:547196 */ /* x127505 stalin.sc:15683:547199 */ /* x127500 stalin.sc:15683:547209 */ t54028 = a25690; /* x127504 stalin.sc:15683:547211 */ /* x127502 stalin.sc:15683:547217 */ t54030 = 2; /* x127503 stalin.sc:15683:547219 */ t54031 = a25691; /* x268924 stalin.sc:15683:547212 */ switch (t54031.tag) {case FIXNUM_TYPE: if ((t54031.value.fixnum_type)<0) {t54029.tag = FLONUM_TYPE; t54029.value.flonum_type = pow(t54030, (t54031.value.fixnum_type));} else {t54029.tag = FIXNUM_TYPE; t54029.value.fixnum_type = ipow(t54030, (t54031.value.fixnum_type));} break; case FLONUM_TYPE: t54029.tag = FLONUM_TYPE; t54029.value.flonum_type = pow(t54030, (t54031.value.flonum_type)); break; default: backtrace("stalin.sc", 15683, 547211); expt2_error();} /* x268925 stalin.sc:15683:547200 */ switch (t54028.tag) {case FIXNUM_TYPE: if ((t54029.tag)==FIXNUM_TYPE) {t54026.tag = FIXNUM_TYPE; t54026.value.fixnum_type = (t54028.value.fixnum_type)/(t54029.value.fixnum_type);} else {if ((t54029.value.flonum_type)!=rint(t54029.value.flonum_type)) {backtrace("stalin.sc", 15683, 547199); quotient2_error();} t54026.tag = FLONUM_TYPE; t54026.value.flonum_type = (t54028.value.fixnum_type)/((int)(t54029.value.flonum_type));} break; case FLONUM_TYPE: if ((t54029.tag)==FIXNUM_TYPE) {if ((t54028.value.flonum_type)!=rint(t54028.value.flonum_type)) {backtrace("stalin.sc", 15683, 547199); quotient1_error();} t54026.tag = FLONUM_TYPE; t54026.value.flonum_type = ((int)(t54028.value.flonum_type))/(t54029.value.fixnum_type);} else {if ((t54028.value.flonum_type)!=rint(t54028.value.flonum_type)) {backtrace("stalin.sc", 15683, 547199); quotient1_error();} if ((t54029.value.flonum_type)!=rint(t54029.value.flonum_type)) {backtrace("stalin.sc", 15683, 547199); quotient2_error();} t54026.tag = FLONUM_TYPE; t54026.value.flonum_type = ((int)(t54028.value.flonum_type))/((int)(t54029.value.flonum_type));} break; default: backtrace("stalin.sc", 15683, 547199); quotient1_error();} /* x127517 stalin.sc:15683:547223 */ /* x127514 stalin.sc:15683:547227 */ /* x127513 stalin.sc:15683:547234 */ /* x127508 stalin.sc:15683:547245 */ t54033 = a25690; /* x127512 stalin.sc:15683:547247 */ /* x127510 stalin.sc:15683:547253 */ t54035 = 2; /* x127511 stalin.sc:15683:547255 */ t54036 = a25691; /* x268921 stalin.sc:15683:547248 */ switch (t54036.tag) {case FIXNUM_TYPE: if ((t54036.value.fixnum_type)<0) {t54034.tag = FLONUM_TYPE; t54034.value.flonum_type = pow(t54035, (t54036.value.fixnum_type));} else {t54034.tag = FIXNUM_TYPE; t54034.value.fixnum_type = ipow(t54035, (t54036.value.fixnum_type));} break; case FLONUM_TYPE: t54034.tag = FLONUM_TYPE; t54034.value.flonum_type = pow(t54035, (t54036.value.flonum_type)); break; default: backtrace("stalin.sc", 15683, 547247); expt2_error();} /* x268922 stalin.sc:15683:547235 */ switch (t54033.tag) {case FIXNUM_TYPE: if ((t54034.tag)==FIXNUM_TYPE) {t54032.tag = FIXNUM_TYPE; t54032.value.fixnum_type = (t54033.value.fixnum_type)%(t54034.value.fixnum_type);} else {if ((t54034.value.flonum_type)!=rint(t54034.value.flonum_type)) {backtrace("stalin.sc", 15683, 547234); remainder2_error();} t54032.tag = FLONUM_TYPE; t54032.value.flonum_type = (t54033.value.fixnum_type)%((int)(t54034.value.flonum_type));} break; case FLONUM_TYPE: if ((t54034.tag)==FIXNUM_TYPE) {if ((t54033.value.flonum_type)!=rint(t54033.value.flonum_type)) {backtrace("stalin.sc", 15683, 547234); remainder1_error();} t54032.tag = FLONUM_TYPE; t54032.value.flonum_type = ((int)(t54033.value.flonum_type))%(t54034.value.fixnum_type);} else {if ((t54033.value.flonum_type)!=rint(t54033.value.flonum_type)) {backtrace("stalin.sc", 15683, 547234); remainder1_error();} if ((t54034.value.flonum_type)!=rint(t54034.value.flonum_type)) {backtrace("stalin.sc", 15683, 547234); remainder2_error();} t54032.tag = FLONUM_TYPE; t54032.value.flonum_type = ((int)(t54033.value.flonum_type))%((int)(t54034.value.flonum_type));} break; default: backtrace("stalin.sc", 15683, 547234); remainder1_error();} /* x268923 stalin.sc:15683:547228 */ if ((t54032.tag)==FIXNUM_TYPE) {if (!((t54032.value.fixnum_type)==0)) goto l7884;} else if (!((t54032.value.flonum_type)==0.0)) goto l7884; /* x127515 stalin.sc:15683:547260 */ t54027 = 0; goto l7885; l7884: /* x127516 stalin.sc:15683:547262 */ t54027 = 1; l7885: /* x268926 stalin.sc:15683:547197 */ if ((t54026.tag)==FIXNUM_TYPE) {t54024.tag = FIXNUM_TYPE; t54024.value.fixnum_type = (t54026.value.fixnum_type)+t54027;} else {t54024.tag = FLONUM_TYPE; t54024.value.flonum_type = (t54026.value.flonum_type)+t54027;} /* x127522 stalin.sc:15684:547270 */ /* x127520 stalin.sc:15684:547276 */ t54037 = 2; /* x127521 stalin.sc:15684:547278 */ t54038 = a25691; /* x268920 stalin.sc:15684:547271 */ switch (t54038.tag) {case FIXNUM_TYPE: if ((t54038.value.fixnum_type)<0) {t54025.tag = FLONUM_TYPE; t54025.value.flonum_type = pow(t54037, (t54038.value.fixnum_type));} else {t54025.tag = FIXNUM_TYPE; t54025.value.fixnum_type = ipow(t54037, (t54038.value.fixnum_type));} break; case FLONUM_TYPE: t54025.tag = FLONUM_TYPE; t54025.value.flonum_type = pow(t54037, (t54038.value.flonum_type)); break; default: backtrace("stalin.sc", 15684, 547270); expt2_error();} /* x268927 stalin.sc:15683:547194 */ if ((t54024.tag)==FIXNUM_TYPE) {if ((t54025.tag)==FIXNUM_TYPE) {r14093.tag = FIXNUM_TYPE; r14093.value.fixnum_type = (t54024.value.fixnum_type)*(t54025.value.fixnum_type); return r14093;} r14093.tag = FLONUM_TYPE; r14093.value.flonum_type = (t54024.value.fixnum_type)*(t54025.value.flonum_type); return r14093;} if ((t54025.tag)==FIXNUM_TYPE) {r14093.tag = FLONUM_TYPE; r14093.value.flonum_type = (t54024.value.flonum_type)*(t54025.value.fixnum_type); return r14093;} r14093.tag = FLONUM_TYPE; r14093.value.flonum_type = (t54024.value.flonum_type)*(t54025.value.flonum_type); return r14093;} /* TYPE-SET-ALIGNMENT[14079] */ struct w49 f14079(struct w49 a25683) {struct w49 r14079; struct w49 a21764; /* W */ struct w49 a37030; /* S */ struct w49 t54039; struct w49 t54040; struct w49 t54041; struct w49 t54042; struct w49 t54043; struct w49 t54044; struct w49 t54045; struct structure_type24753 *t54046; unsigned t54047; struct w49 t54048; struct w228463 t54049; struct w12224 t54050; struct w36270 t54051; struct w49 t54052; struct structure_type24753 *t54053; struct w49 t54054; struct w211061 t54055; struct w49 t54056; struct w49 t54057; int t54058; int t54059; int t54060; struct structure_type24753 *t54061; struct w49 t54062; struct w49 t54063; struct w49 t54064; struct w49 t54065; struct w49 t54066; struct w49 t54067; struct w49 t54068; struct w49 t54069; struct w49 t54070; char *t54071; /* x127494 stalin.sc:15650:546174 */ /* x127394 stalin.sc:15650:546181 */ /* x127393 stalin.sc:15650:546194 */ t54039 = a25683; /* x127392 stalin.sc:15650:546182 */ if (f8793(t54039)==FALSE_TYPE) goto l7887; /* x127398 */ /* x127397 */ /* x127396 stalin.sc:15650:546197 */ /* x127395 stalin.sc:15650:546198 */ /* x296085 QobiScheme.sc:166:5314 */ /* x296084 QobiScheme.sc:166:5321 */ t54071 = "This shouldn\'t happen"; /* x296083 QobiScheme.sc:166:5315 */ stalin_panic(t54071); l7887: /* x127493 */ /* x127401 stalin.sc:15651:546216 */ /* x127400 stalin.sc:15651:546230 */ t54040 = a25683; /* x127399 stalin.sc:15651:546217 */ if (f8148(t54040)==FALSE_TYPE) goto l7889; /* x127423 */ /* x127422 */ /* x127421 stalin.sc:15652:546234 */ /* x127406 stalin.sc:15652:546241 */ /* x127405 stalin.sc:15652:546253 */ /* x127404 stalin.sc:15652:546265 */ t54068 = a25683; /* x127403 stalin.sc:15652:546254 */ t54067 = f8153(t54068); /* x127402 stalin.sc:15652:546242 */ if (f7682(t54067)==FALSE_TYPE) goto l7899; /* x127413 */ /* x127412 */ /* x127411 */ /* x127410 stalin.sc:15653:546277 */ /* x127409 stalin.sc:15653:546301 */ a1224 = TRUE_TYPE; /* x127408 */ /* x127407 stalin.sc:15654:546313 */ return a1243; l7899: /* x127420 */ /* x127419 */ /* x127418 stalin.sc:15655:546344 */ /* x127417 stalin.sc:15655:546360 */ /* x127416 stalin.sc:15655:546372 */ t54070 = a25683; /* x127415 stalin.sc:15655:546361 */ t54069 = f8153(t54070); /* x127414 stalin.sc:15655:546345 */ return f14028(t54069); l7889: /* x127492 */ /* x127426 stalin.sc:15656:546387 */ /* x127425 stalin.sc:15656:546398 */ t54041 = a25683; /* x127424 stalin.sc:15656:546388 */ if (f13798(t54041)==FALSE_TYPE) goto l7891; /* x127433 */ /* x127432 */ /* x127431 */ /* x127430 stalin.sc:15657:546402 */ /* x127429 stalin.sc:15657:546425 */ a1215 = TRUE_TYPE; /* x127428 */ /* x127427 stalin.sc:15658:546430 */ return a1238; l7891: /* x127491 */ /* x127436 stalin.sc:15659:546455 */ /* x127435 stalin.sc:15659:546466 */ t54042 = a25683; /* x127434 stalin.sc:15659:546456 */ if (f13859(t54042)==FALSE_TYPE) goto l7893; /* x127443 */ /* x127442 */ /* x127441 stalin.sc:15659:546469 */ /* x127440 stalin.sc:15659:546485 */ /* x127439 stalin.sc:15659:546502 */ t54066 = a25683; /* x127438 stalin.sc:15659:546486 */ t54065 = f13854(t54066); /* x127437 stalin.sc:15659:546470 */ return f14028(t54065); l7893: /* x127490 */ /* x127446 stalin.sc:15660:546515 */ /* x127445 stalin.sc:15660:546526 */ t54043 = a25683; /* x127444 stalin.sc:15660:546516 */ if (f14024(t54043)==FALSE_TYPE) goto l7895; /* x127453 */ /* x127452 */ /* x127451 */ /* x127450 stalin.sc:15661:546530 */ /* x127449 stalin.sc:15661:546558 */ a1214 = TRUE_TYPE; /* x127448 */ /* x127447 stalin.sc:15662:546563 */ return a1237; l7895: /* x127489 */ /* x127488 */ /* x127487 */ /* x127484 stalin.sc:15663:546598 */ /* x127482 stalin.sc:15663:546624 */ t54056 = a25683; /* x127483 stalin.sc:15663:546626 */ /* x127481 stalin.sc:15663:546599 */ a21764 = t54056; /* x69383 */ /* x69382 stalin.sc:3248:111321 */ /* x69375 stalin.sc:3248:111329 */ /* x69374 stalin.sc:3248:111339 */ /* x270389 stalin.sc:3248:111330 */ /* x69377 */ /* x69376 */ /* x69372 */ while (region8104!=((struct region8104 *)(&initial_region8104))) {struct region8104 *region; region = region8104; region8104 = region8104->region; GC_free(region);} region_size8104 = REGION_SIZE8104; fp8104 = &((region8104->data)[0]); ALIGN(fp8104); /* x69371 stalin.sc:3249:111355 */ /* x69354 stalin.sc:3250:111381 */ t54057 = a21764; /* x69370 stalin.sc:3251:111385 */ /* x69355 stalin.sc:3251:111389 */ /* x69361 stalin.sc:3252:111398 */ /* x69360 stalin.sc:3252:111428 */ t54060 = 64; /* x69359 stalin.sc:3252:111406 */ /* x69358 stalin.sc:3252:111425 */ t54063 = a21764; /* x69357 stalin.sc:3252:111407 */ a37030 = t54063; /* x280789 */ /* x280788 */ t54064 = a37030; /* x280787 */ if (!((t54064.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-BOOLEANS[6507] 31947]"); structure_ref_error();} t54059 = t54064.value.structure_type27650->s5; /* x69356 stalin.sc:3252:111399 */ if ((fp8104+sizeof(struct structure_type24753))>(&((region8104->data)[region_size8104]))) {struct region8104 *region; unsigned region_size = REGION_SIZE8104; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8104 *)GC_malloc_uncollectable(sizeof(struct region8104)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 3252, 111398); out_of_memory_error();} region->region = region8104; region_size8104 = region_size; region8104 = region; fp8104 = &((region->data)[0]); ALIGN(fp8104);} t54062.tag = STRUCTURE_TYPE24753; t54062.value.structure_type24753 = (struct structure_type24753 *)fp8104; fp8104 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t54062.value.structure_type24753->s0.tag = FIXNUM_TYPE; t54062.value.structure_type24753->s0.value.fixnum_type = t54060; t54062.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8104+sizeof(struct structure_type24753))>(&((region8104->data)[region_size8104]))) {struct region8104 *region; unsigned region_size = REGION_SIZE8104; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8104 *)GC_malloc_uncollectable(sizeof(struct region8104)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 3252, 111398); out_of_memory_error();} region->region = region8104; region_size8104 = region_size; region8104 = region; fp8104 = &((region->data)[0]); ALIGN(fp8104);} t54061 = (struct structure_type24753 *)fp8104; fp8104 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t54061->s0.tag = FIXNUM_TYPE; t54061->s0.value.fixnum_type = t54059; t54061->s1 = t54062; t54058 = f27310(t54061); /* x69353 stalin.sc:3249:111356 */ f6508(t54057, t54058); /* x127486 stalin.sc:15664:546636 */ /* x127485 stalin.sc:15664:546659 */ a1215 = TRUE_TYPE; /* x127480 */ /* x127479 stalin.sc:15667:546775 */ /* x127455 stalin.sc:15667:546780 */ t54044 = a1238; /* x127478 stalin.sc:15668:546800 */ /* x127457 stalin.sc:15669:546813 */ /* x127476 stalin.sc:15670:546822 */ /* x127475 stalin.sc:15671:546845 */ /* x127473 stalin.sc:15672:546863 */ /* x127474 stalin.sc:15674:546934 */ t54054 = a25683; /* x127460 stalin.sc:15671:546846 */ t54055.tag = NATIVE_PROCEDURE_TYPE20108; t54050 = f8172(t54055, t54054); /* x127459 stalin.sc:15670:546827 */ /* x127458 stalin.sc:15670:546823 */ t54051.tag = NATIVE_PROCEDURE_TYPE6842; t54052 = *((struct w49 *)(&t54050)); t54053 = (struct structure_type24753 *)NULL_TYPE; t54046 = f27731(t54051, t54052, t54053); /* x127477 stalin.sc:15677:547037 */ /* x127456 stalin.sc:15668:546801 */ t54047 = NATIVE_PROCEDURE_TYPE416; /* MOVE: branching squeezed to general */ if (t54046>=((struct structure_type24753 *)VALUE_OFFSET)) {t54048.tag = STRUCTURE_TYPE24753; t54048.value.structure_type24753 = t54046;} else t54048.tag = (unsigned)t54046; t54049.tag = FALSE_TYPE; t54045 = f1006(t54047, t54048, t54049); /* x268930 stalin.sc:15667:546776 */ switch (t54044.tag) {case FIXNUM_TYPE: switch (t54045.tag) {case FIXNUM_TYPE: r14079.tag = FIXNUM_TYPE; r14079.value.fixnum_type = IMAX((t54044.value.fixnum_type), (t54045.value.fixnum_type)); return r14079; case FLONUM_TYPE: r14079.tag = FLONUM_TYPE; r14079.value.flonum_type = RMAX((t54044.value.fixnum_type), (t54045.value.flonum_type)); return r14079; default: backtrace("stalin.sc", 15667, 546775); max_error();} case FLONUM_TYPE: switch (t54045.tag) {case FIXNUM_TYPE: r14079.tag = FLONUM_TYPE; r14079.value.flonum_type = RMAX((t54044.value.flonum_type), (t54045.value.fixnum_type)); return r14079; case FLONUM_TYPE: r14079.tag = FLONUM_TYPE; r14079.value.flonum_type = RMAX((t54044.value.flonum_type), (t54045.value.flonum_type)); return r14079; default: backtrace("stalin.sc", 15667, 546775); max_error();} default: backtrace("stalin.sc", 15667, 546775); max_error();}} /* TYPE-ALIGNMENT[14028] */ struct w49 f14028(struct w49 a25659) {struct w49 r14028; struct w49 a21205; /* U */ char *a25680; /* v */ struct w49 a37330; /* OBJ */ struct w49 a37427; /* OBJ */ struct w49 a37546; /* OBJ */ struct w49 a37639; /* S */ struct w49 a37686; /* OBJ */ struct w49 a37762; /* OBJ */ struct w49 a37874; /* OBJ */ struct w49 a37989; /* S */ struct w49 a38076; /* OBJ */ struct w49 a38274; /* OBJ */ struct w49 t54072; struct w49 t54073; struct w49 t54074; struct w49 t54075; struct w49 t54076; struct w49 t54077; struct w49 t54078; struct w49 t54079; struct w49 t54080; struct w49 t54081; struct w49 t54082; struct w49 t54083; struct w49 t54084; struct w49 t54085; struct w49 t54086; struct w49 t54087; struct w49 t54088; struct w49 t54089; struct w49 t54090; struct w49 t54091; struct w49 t54092; struct w49 t54093; char *t54094; char *t54095; char *t54096; struct w49 t54097; struct w49 t54098; char *t54099; char *t54100; struct w49 t54101; struct w49 t54102; char *t54103; char *t54104; struct w49 t54105; struct w49 t54106; char *t54107; char *t54108; struct w49 t54109; struct w49 t54110; struct w49 t54111; struct w49 t54112; struct w49 t54113; struct w49 t54114; struct w49 t54115; struct w49 t54116; struct w49 t54117; struct w49 t54118; struct w49 t54119; struct structure_type24753 *t54120; unsigned t54121; struct w49 t54122; struct w228463 t54123; struct w12224 t54124; struct w36270 t54125; struct w49 t54126; struct structure_type24753 *t54127; struct w11873 t54128; unsigned t54129; struct w49 t54130; struct w49 t54131; struct w49 t54132; struct w49 t54133; char *t54134; struct w49 t54135; struct w49 t54136; char *t54137; struct w49 t54138; char *t54139; struct w49 t54140; struct w49 t54141; int t54142; int t54143; int t54144; struct structure_type24753 *t54145; struct w49 t54146; struct w49 t54147; struct w49 t54148; /* x127389 stalin.sc:15569:543400 */ /* x127097 stalin.sc:15570:543409 */ /* x127096 stalin.sc:15570:543423 */ t54072 = a25659; /* x127095 stalin.sc:15570:543410 */ if (f7683(t54072)==FALSE_TYPE) goto l7901; /* x127104 */ /* x127103 */ /* x127102 */ /* x127101 stalin.sc:15571:543429 */ /* x127100 stalin.sc:15571:543455 */ a1223 = TRUE_TYPE; /* x127099 */ /* x127098 stalin.sc:15572:543462 */ return a1242; l7901: /* x127388 */ /* x127107 stalin.sc:15573:543485 */ /* x127106 stalin.sc:15573:543499 */ t54073 = a25659; /* x127105 stalin.sc:15573:543486 */ if (f7684(t54073)==FALSE_TYPE) goto l7903; /* x127114 */ /* x127113 */ /* x127112 */ /* x127111 stalin.sc:15574:543505 */ /* x127110 stalin.sc:15574:543531 */ a1222 = TRUE_TYPE; /* x127109 */ /* x127108 stalin.sc:15575:543538 */ return a1241; l7903: /* x127387 */ /* x127117 stalin.sc:15576:543561 */ /* x127116 stalin.sc:15576:543580 */ t54074 = a25659; /* x127115 stalin.sc:15576:543562 */ if (f7687(t54074)==FALSE_TYPE) goto l7905; /* x127124 */ /* x127123 */ /* x127122 */ /* x127121 stalin.sc:15577:543586 */ /* x127120 stalin.sc:15577:543617 */ a1221 = TRUE_TYPE; /* x127119 */ /* x127118 stalin.sc:15580:543700 */ return a1241; l7905: /* x127386 */ /* x127127 stalin.sc:15581:543723 */ /* x127126 stalin.sc:15581:543741 */ t54075 = a25659; /* x127125 stalin.sc:15581:543724 */ if (f7700(t54075)==FALSE_TYPE) goto l7907; /* x127134 */ /* x127133 */ /* x127132 */ /* x127131 stalin.sc:15582:543747 */ /* x127130 stalin.sc:15582:543772 */ a1218 = TRUE_TYPE; /* x127129 */ /* x127128 stalin.sc:15583:543779 */ return a1240; l7907: /* x127385 */ /* x127137 stalin.sc:15584:543803 */ /* x127136 stalin.sc:15584:543822 */ t54076 = a25659; /* x127135 stalin.sc:15584:543804 */ if (f7701(t54076)==FALSE_TYPE) goto l7909; /* x127144 */ /* x127143 */ /* x127142 */ /* x127141 stalin.sc:15585:543828 */ /* x127140 stalin.sc:15585:543853 */ a1218 = TRUE_TYPE; /* x127139 */ /* x127138 stalin.sc:15586:543860 */ return a1240; l7909: /* x127384 */ /* x127147 stalin.sc:15587:543884 */ /* x127146 stalin.sc:15587:543899 */ t54077 = a25659; /* x127145 stalin.sc:15587:543885 */ if (f7703(t54077)==FALSE_TYPE) goto l7911; /* x127154 */ /* x127153 */ /* x127152 */ /* x127151 stalin.sc:15588:543905 */ /* x127150 stalin.sc:15588:543930 */ a1220 = TRUE_TYPE; /* x127149 */ /* x127148 stalin.sc:15589:543937 */ return a1240; l7911: /* x127383 */ /* x127157 stalin.sc:15590:543961 */ /* x127156 stalin.sc:15590:543984 */ t54078 = a25659; /* x127155 stalin.sc:15590:543962 */ a38274 = t54078; /* x285765 */ /* x285764 */ t54079 = a38274; /* x285763 */ if (!((t54079.tag)==STRUCTURE_TYPE27779)) goto l7913; /* x127164 */ /* x127163 */ /* x127162 */ /* x127161 stalin.sc:15591:543990 */ /* x127160 stalin.sc:15591:544015 */ a1219 = TRUE_TYPE; /* x127159 */ /* x127158 stalin.sc:15592:544022 */ return a1240; l7913: /* x127382 */ /* x127167 stalin.sc:15593:544046 */ /* x127166 stalin.sc:15593:544070 */ t54080 = a25659; /* x127165 stalin.sc:15593:544047 */ a38076 = t54080; /* x284973 */ /* x284972 */ t54081 = a38076; /* x284971 */ if (!((t54081.tag)==STRUCTURE_TYPE27756)) goto l7915; /* x127186 */ /* x127185 */ /* x127184 */ /* x127179 stalin.sc:15594:544076 */ /* x127172 stalin.sc:15594:544082 */ /* x127171 stalin.sc:15594:544095 */ t54138 = a25659; /* x127170 stalin.sc:15594:544083 */ if (f8793(t54138)==FALSE_TYPE) goto l7948; /* x127176 */ /* x127175 */ /* x127174 stalin.sc:15594:544098 */ /* x127173 stalin.sc:15594:544099 */ /* x296089 QobiScheme.sc:166:5314 */ /* x296088 QobiScheme.sc:166:5321 */ t54139 = "This shouldn\'t happen"; /* x296087 QobiScheme.sc:166:5315 */ stalin_panic(t54139); goto l7949; l7948: /* x127178 stalin.sc:15594:544076 */ /* x127177 stalin.sc:15594:544076 */ l7949: /* x127183 stalin.sc:15595:544112 */ /* x127181 stalin.sc:15595:544151 */ t54140 = a25659; /* x127182 stalin.sc:15595:544153 */ /* x127180 stalin.sc:15595:544113 */ a21205 = t54140; /* x61465 */ /* x61464 stalin.sc:1448:48206 */ /* x61457 stalin.sc:1448:48214 */ /* x61456 stalin.sc:1448:48224 */ /* x270633 stalin.sc:1448:48215 */ /* x61459 */ /* x61458 */ /* x61454 */ while (region7291!=((struct region7291 *)(&initial_region7291))) {struct region7291 *region; region = region7291; region7291 = region7291->region; GC_free(region);} region_size7291 = REGION_SIZE7291; fp7291 = &((region7291->data)[0]); ALIGN(fp7291); /* x61453 stalin.sc:1449:48240 */ /* x61436 stalin.sc:1450:48279 */ t54141 = a21205; /* x61452 stalin.sc:1451:48283 */ /* x61437 stalin.sc:1451:48287 */ /* x61443 stalin.sc:1452:48296 */ /* x61442 stalin.sc:1452:48339 */ t54144 = 512; /* x61441 stalin.sc:1452:48304 */ /* x61440 stalin.sc:1452:48336 */ t54147 = a21205; /* x61439 stalin.sc:1452:48305 */ a37989 = t54147; /* x284625 */ /* x284624 */ t54148 = a37989; /* x284623 */ if (!((t54148.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32906]"); structure_ref_error();} t54143 = t54148.value.structure_type27756->s5; /* x61438 stalin.sc:1452:48297 */ if ((fp7291+sizeof(struct structure_type24753))>(&((region7291->data)[region_size7291]))) {struct region7291 *region; unsigned region_size = REGION_SIZE7291; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7291 *)GC_malloc_uncollectable(sizeof(struct region7291)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1452, 48296); out_of_memory_error();} region->region = region7291; region_size7291 = region_size; region7291 = region; fp7291 = &((region->data)[0]); ALIGN(fp7291);} t54146.tag = STRUCTURE_TYPE24753; t54146.value.structure_type24753 = (struct structure_type24753 *)fp7291; fp7291 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t54146.value.structure_type24753->s0.tag = FIXNUM_TYPE; t54146.value.structure_type24753->s0.value.fixnum_type = t54144; t54146.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7291+sizeof(struct structure_type24753))>(&((region7291->data)[region_size7291]))) {struct region7291 *region; unsigned region_size = REGION_SIZE7291; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7291 *)GC_malloc_uncollectable(sizeof(struct region7291)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1452, 48296); out_of_memory_error();} region->region = region7291; region_size7291 = region_size; region7291 = region; fp7291 = &((region->data)[0]); ALIGN(fp7291);} t54145 = (struct structure_type24753 *)fp7291; fp7291 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t54145->s0.tag = FIXNUM_TYPE; t54145->s0.value.fixnum_type = t54143; t54145->s1 = t54146; t54142 = f27310(t54145); /* x61435 stalin.sc:1449:48241 */ f5986(t54141, t54142); /* x127169 */ /* x127168 stalin.sc:15598:544236 */ return a1240; l7915: /* x127381 */ /* x127189 stalin.sc:15599:544260 */ /* x127188 stalin.sc:15599:544280 */ t54082 = a25659; /* x127187 stalin.sc:15599:544261 */ a37874 = t54082; /* x284165 */ /* x284164 */ t54083 = a37874; /* x284163 */ if (!((t54083.tag)==STRUCTURE_TYPE27858)) goto l7917; /* x127206 */ /* x127205 */ /* x127204 */ /* x127201 stalin.sc:15600:544286 */ /* x127194 stalin.sc:15600:544292 */ /* x127193 stalin.sc:15600:544305 */ t54136 = a25659; /* x127192 stalin.sc:15600:544293 */ if (f8793(t54136)==FALSE_TYPE) goto l7945; /* x127198 */ /* x127197 */ /* x127196 stalin.sc:15600:544308 */ /* x127195 stalin.sc:15600:544309 */ /* x296041 QobiScheme.sc:166:5314 */ /* x296040 QobiScheme.sc:166:5321 */ t54137 = "This shouldn\'t happen"; /* x296039 QobiScheme.sc:166:5315 */ stalin_panic(t54137); goto l7946; l7945: /* x127200 stalin.sc:15600:544286 */ /* x127199 stalin.sc:15600:544286 */ l7946: /* x127203 stalin.sc:15601:544322 */ /* x127202 stalin.sc:15601:544349 */ a1217 = TRUE_TYPE; /* x127191 */ /* x127190 stalin.sc:15602:544356 */ return a1240; l7917: /* x127380 */ /* x127209 stalin.sc:15603:544380 */ /* x127208 stalin.sc:15603:544394 */ t54084 = a25659; /* x127207 stalin.sc:15603:544381 */ a37762 = t54084; /* x283717 */ /* x283716 */ t54085 = a37762; /* x283715 */ if (!((t54085.tag)==STRUCTURE_TYPE27673)) goto l7919; /* x127216 */ /* x127215 */ /* x127214 */ /* x127213 stalin.sc:15604:544400 */ /* x127212 stalin.sc:15604:544425 */ a1219 = TRUE_TYPE; /* x127211 */ /* x127210 stalin.sc:15605:544432 */ return a1240; l7919: /* x127379 */ /* x127219 stalin.sc:15606:544456 */ /* x127218 stalin.sc:15606:544473 */ t54086 = a25659; /* x127217 stalin.sc:15606:544457 */ a37686 = t54086; /* x283413 */ /* x283412 */ t54087 = a37686; /* x283411 */ if (!((t54087.tag)==STRUCTURE_TYPE27769)) goto l7921; /* x127255 */ /* x127254 */ /* x127253 */ /* x127248 stalin.sc:15607:544479 */ /* x127241 stalin.sc:15607:544485 */ /* x127240 stalin.sc:15607:544498 */ t54133 = a25659; /* x127239 stalin.sc:15607:544486 */ if (f8793(t54133)==FALSE_TYPE) goto l7942; /* x127245 */ /* x127244 */ /* x127243 stalin.sc:15607:544501 */ /* x127242 stalin.sc:15607:544502 */ /* x295417 QobiScheme.sc:166:5314 */ /* x295416 QobiScheme.sc:166:5321 */ t54134 = "This shouldn\'t happen"; /* x295415 QobiScheme.sc:166:5315 */ stalin_panic(t54134); goto l7943; l7942: /* x127247 stalin.sc:15607:544479 */ /* x127246 stalin.sc:15607:544479 */ l7943: /* x127252 stalin.sc:15608:544515 */ /* x127250 stalin.sc:15608:544547 */ t54135 = a25659; /* x127251 stalin.sc:15608:544549 */ /* x127249 stalin.sc:15608:544516 */ f7435(t54135); /* x127238 */ /* x127237 stalin.sc:15609:544556 */ /* x127222 stalin.sc:15609:544560 */ /* x127221 stalin.sc:15609:544587 */ t54119 = a25659; /* x127220 stalin.sc:15609:544561 */ if (f7429(t54119)==FALSE_TYPE) goto l7940; /* x127235 stalin.sc:15616:545012 */ /* x127224 stalin.sc:15616:545020 */ /* x127233 stalin.sc:15617:545032 */ /* x127232 stalin.sc:15618:545062 */ /* x127228 stalin.sc:15618:545073 */ /* x127231 stalin.sc:15618:545085 */ /* x127230 stalin.sc:15618:545107 */ t54131 = a25659; /* x127229 stalin.sc:15618:545086 */ a37639 = t54131; /* x283225 */ /* x283224 */ t54132 = a37639; /* x283223 */ if (!((t54132.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32556]"); structure_ref_error();} t54128 = t54132.value.structure_type27769->s1; /* x127227 stalin.sc:15618:545063 */ t54129 = NATIVE_PROCEDURE_TYPE7232; t54130 = *((struct w49 *)(&t54128)); t54124 = f1218(t54129, t54130); /* x127226 stalin.sc:15617:545037 */ /* x127225 stalin.sc:15617:545033 */ t54125.tag = NATIVE_PROCEDURE_TYPE6841; t54126 = *((struct w49 *)(&t54124)); t54127 = (struct structure_type24753 *)NULL_TYPE; t54120 = f27731(t54125, t54126, t54127); /* x127234 stalin.sc:15620:545190 */ /* x127223 stalin.sc:15616:545013 */ t54121 = NATIVE_PROCEDURE_TYPE416; /* MOVE: branching squeezed to general */ if (t54120>=((struct structure_type24753 *)VALUE_OFFSET)) {t54122.tag = STRUCTURE_TYPE24753; t54122.value.structure_type24753 = t54120;} else t54122.tag = (unsigned)t54120; t54123.tag = FALSE_TYPE; return f1006(t54121, t54122, t54123); l7940: /* x127236 stalin.sc:15621:545201 */ return a1240; l7921: /* x127378 */ /* x127258 stalin.sc:15622:545226 */ /* x127257 stalin.sc:15622:545247 */ t54088 = a25659; /* x127256 stalin.sc:15622:545227 */ a37546 = t54088; /* x282853 */ /* x282852 */ t54089 = a37546; /* x282851 */ if (!((t54089.tag)==STRUCTURE_TYPE27761)) goto l7923; /* x127280 */ /* x127279 */ /* x127278 stalin.sc:15623:545253 */ /* x127261 stalin.sc:15623:545260 */ /* x127260 stalin.sc:15623:545285 */ t54117 = a25659; /* x127259 stalin.sc:15623:545261 */ if (f7754(t54117)==FALSE_TYPE) goto l7938; /* x127268 */ /* x127267 */ /* x127266 */ /* x127265 stalin.sc:15624:545291 */ /* x127264 stalin.sc:15624:545317 */ a1216 = TRUE_TYPE; /* x127263 */ /* x127262 stalin.sc:15625:545324 */ return a1239; l7938: /* x127277 */ /* x127276 */ /* x127275 */ /* x127274 stalin.sc:15626:545352 */ /* x127272 stalin.sc:15626:545388 */ t54118 = a25659; /* x127273 stalin.sc:15626:545390 */ /* x127271 stalin.sc:15626:545353 */ f7485(t54118); /* x127270 */ /* x127269 stalin.sc:15627:545402 */ return a1240; l7923: /* x127377 */ /* x127283 stalin.sc:15628:545428 */ /* x127282 stalin.sc:15628:545452 */ t54090 = a25659; /* x127281 stalin.sc:15628:545429 */ a37427 = t54090; /* x282377 */ /* x282376 */ t54091 = a37427; /* x282375 */ if (!((t54091.tag)==STRUCTURE_TYPE27669)) goto l7925; /* x127308 */ /* x127307 */ /* x127306 stalin.sc:15629:545458 */ /* x127286 stalin.sc:15629:545465 */ /* x127285 stalin.sc:15629:545490 */ t54113 = a25659; /* x127284 stalin.sc:15629:545466 */ if (f7754(t54113)==FALSE_TYPE) goto l7936; /* x127293 */ /* x127292 */ /* x127291 */ /* x127290 stalin.sc:15630:545496 */ /* x127289 stalin.sc:15630:545522 */ a1216 = TRUE_TYPE; /* x127288 */ /* x127287 stalin.sc:15631:545529 */ return a1239; l7936: /* x127305 */ /* x127304 */ /* x127303 */ /* x127302 stalin.sc:15632:545557 */ /* x127300 stalin.sc:15632:545596 */ t54116 = a25659; /* x127301 stalin.sc:15632:545598 */ /* x127299 stalin.sc:15632:545558 */ f7540(t54116); /* x127298 */ /* x127297 stalin.sc:15634:545647 */ /* x127295 stalin.sc:15634:545652 */ t54114 = a1239; /* x127296 stalin.sc:15634:545671 */ t54115 = a1240; /* x268932 stalin.sc:15634:545648 */ switch (t54114.tag) {case FIXNUM_TYPE: switch (t54115.tag) {case FIXNUM_TYPE: r14028.tag = FIXNUM_TYPE; r14028.value.fixnum_type = IMAX((t54114.value.fixnum_type), (t54115.value.fixnum_type)); return r14028; case FLONUM_TYPE: r14028.tag = FLONUM_TYPE; r14028.value.flonum_type = RMAX((t54114.value.fixnum_type), (t54115.value.flonum_type)); return r14028; default: backtrace("stalin.sc", 15634, 545647); max_error();} case FLONUM_TYPE: switch (t54115.tag) {case FIXNUM_TYPE: r14028.tag = FLONUM_TYPE; r14028.value.flonum_type = RMAX((t54114.value.flonum_type), (t54115.value.fixnum_type)); return r14028; case FLONUM_TYPE: r14028.tag = FLONUM_TYPE; r14028.value.flonum_type = RMAX((t54114.value.flonum_type), (t54115.value.flonum_type)); return r14028; default: backtrace("stalin.sc", 15634, 545647); max_error();} default: backtrace("stalin.sc", 15634, 545647); max_error();} l7925: /* x127376 */ /* x127311 stalin.sc:15635:545698 */ /* x127310 stalin.sc:15635:545722 */ t54092 = a25659; /* x127309 stalin.sc:15635:545699 */ a37330 = t54092; /* x281989 */ /* x281988 */ t54093 = a37330; /* x281987 */ if (!((t54093.tag)==STRUCTURE_TYPE27908)) goto l7927; /* x127336 */ /* x127335 */ /* x127334 stalin.sc:15636:545728 */ /* x127314 stalin.sc:15636:545735 */ /* x127313 stalin.sc:15636:545760 */ t54109 = a25659; /* x127312 stalin.sc:15636:545736 */ if (f7754(t54109)==FALSE_TYPE) goto l7934; /* x127321 */ /* x127320 */ /* x127319 */ /* x127318 stalin.sc:15637:545766 */ /* x127317 stalin.sc:15637:545792 */ a1216 = TRUE_TYPE; /* x127316 */ /* x127315 stalin.sc:15638:545799 */ return a1239; l7934: /* x127333 */ /* x127332 */ /* x127331 */ /* x127330 stalin.sc:15639:545827 */ /* x127328 stalin.sc:15639:545866 */ t54112 = a25659; /* x127329 stalin.sc:15639:545868 */ /* x127327 stalin.sc:15639:545828 */ f7590(t54112); /* x127326 */ /* x127325 stalin.sc:15641:545917 */ /* x127323 stalin.sc:15641:545922 */ t54110 = a1239; /* x127324 stalin.sc:15641:545941 */ t54111 = a1240; /* x268931 stalin.sc:15641:545918 */ switch (t54110.tag) {case FIXNUM_TYPE: switch (t54111.tag) {case FIXNUM_TYPE: r14028.tag = FIXNUM_TYPE; r14028.value.fixnum_type = IMAX((t54110.value.fixnum_type), (t54111.value.fixnum_type)); return r14028; case FLONUM_TYPE: r14028.tag = FLONUM_TYPE; r14028.value.flonum_type = RMAX((t54110.value.fixnum_type), (t54111.value.flonum_type)); return r14028; default: backtrace("stalin.sc", 15641, 545917); max_error();} case FLONUM_TYPE: switch (t54111.tag) {case FIXNUM_TYPE: r14028.tag = FLONUM_TYPE; r14028.value.flonum_type = RMAX((t54110.value.flonum_type), (t54111.value.fixnum_type)); return r14028; case FLONUM_TYPE: r14028.tag = FLONUM_TYPE; r14028.value.flonum_type = RMAX((t54110.value.flonum_type), (t54111.value.flonum_type)); return r14028; default: backtrace("stalin.sc", 15641, 545917); max_error();} default: backtrace("stalin.sc", 15641, 545917); max_error();} l7927: /* x127375 */ /* x127374 */ /* x127373 stalin.sc:15642:545973 */ /* x127372 stalin.sc:15642:545979 */ t54094 = a687; /* x127371 */ a25680 = t54094; /* x127370 */ /* x127349 */ /* x127348 */ /* x127346 */ t54095 = a25680; /* x127347 */ t54096 = q15; /* x127345 */ /* MOVE: branching squeezed to general */ if (t54095>=((char *)VALUE_OFFSET)) {t54097.tag = EXTERNAL_SYMBOL_TYPE; t54097.value.external_symbol_type = t54095;} else t54097.tag = (unsigned)t54095; t54098.tag = EXTERNAL_SYMBOL_TYPE; t54098.value.external_symbol_type = t54096; if (!(f26160(t54097, t54098)==FALSE_TYPE)) goto l7928; /* x127342 */ /* x127340 */ t54099 = a25680; /* x127341 */ t54100 = q16; /* x127339 */ /* MOVE: branching squeezed to general */ if (t54099>=((char *)VALUE_OFFSET)) {t54101.tag = EXTERNAL_SYMBOL_TYPE; t54101.value.external_symbol_type = t54099;} else t54101.tag = (unsigned)t54099; t54102.tag = EXTERNAL_SYMBOL_TYPE; t54102.value.external_symbol_type = t54100; if (f26160(t54101, t54102)==FALSE_TYPE) goto l7929; l7928: /* x127356 */ /* x127355 */ /* x127354 */ /* x127353 stalin.sc:15644:546037 */ /* x127352 stalin.sc:15644:546063 */ a1223 = TRUE_TYPE; /* x127351 */ /* x127350 stalin.sc:15645:546070 */ return a1242; l7929: /* x127369 */ /* x127360 */ /* x127358 */ t54103 = a25680; /* x127359 */ t54104 = q17; /* x127357 */ /* MOVE: branching squeezed to general */ if (t54103>=((char *)VALUE_OFFSET)) {t54105.tag = EXTERNAL_SYMBOL_TYPE; t54105.value.external_symbol_type = t54103;} else t54105.tag = (unsigned)t54103; t54106.tag = EXTERNAL_SYMBOL_TYPE; t54106.value.external_symbol_type = t54104; if (f26160(t54105, t54106)==FALSE_TYPE) goto l7932; /* x127364 */ /* x127363 */ /* x127362 stalin.sc:15646:546107 */ /* x127361 stalin.sc:15646:546108 */ /* x296093 QobiScheme.sc:166:5314 */ /* x296092 QobiScheme.sc:166:5321 */ t54108 = "This shouldn\'t happen"; /* x296091 QobiScheme.sc:166:5315 */ stalin_panic(t54108); l7932: /* x127368 */ /* x127367 */ /* x127366 stalin.sc:15647:546126 */ /* x127365 stalin.sc:15647:546127 */ /* x296097 QobiScheme.sc:166:5314 */ /* x296096 QobiScheme.sc:166:5321 */ t54107 = "This shouldn\'t happen"; /* x296095 QobiScheme.sc:166:5315 */ stalin_panic(t54107);} /* DETERMINE-ALIGNMENTS![14026] */ void f14026(void) {struct w49 t54149; struct w49 t54150; struct w49 t54151; struct structure_type24753 *t54152; int t54153; unsigned t54154; struct w49 t54155; struct w228463 t54156; struct w21193 t54157; struct w36270 t54158; struct w49 t54159; struct structure_type24753 *t54160; struct structure_type24753 *t54161; int t54162; unsigned t54163; struct w49 t54164; struct w228463 t54165; struct w12224 t54166; struct w36270 t54167; struct w49 t54168; struct structure_type24753 *t54169; struct w12224 t54170; unsigned t54171; struct w49 t54172; struct w21193 t54173; unsigned t54174; struct w49 t54175; struct structure_type24753 *t54176; int t54177; unsigned t54178; struct w49 t54179; struct w228463 t54180; struct w12224 t54181; struct w36270 t54182; struct w49 t54183; struct structure_type24753 *t54184; struct w21193 t54185; unsigned t54186; struct w49 t54187; struct structure_type24753 *t54188; int t54189; unsigned t54190; struct w49 t54191; struct w228463 t54192; struct w12224 t54193; struct w36270 t54194; struct w49 t54195; struct structure_type24753 *t54196; struct w21193 t54197; struct w227671 t54198; struct w49 t54199; /* x127092 */ /* x127091 stalin.sc:15544:542621 */ /* x127090 stalin.sc:15546:542700 */ /* x127081 stalin.sc:15546:542708 */ /* x127088 stalin.sc:15546:542712 */ /* x127087 stalin.sc:15546:542734 */ /* x127085 stalin.sc:15546:542749 */ /* x127086 stalin.sc:15546:542759 */ t54197 = a1679; /* x127084 stalin.sc:15546:542735 */ t54198.tag = NATIVE_PROCEDURE_TYPE6845; t54199 = *((struct w49 *)(&t54197)); t54193 = f1226(t54198, t54199); /* x127083 stalin.sc:15546:542717 */ /* x127082 stalin.sc:15546:542713 */ t54194.tag = NATIVE_PROCEDURE_TYPE6849; t54195 = *((struct w49 *)(&t54193)); t54196 = (struct structure_type24753 *)NULL_TYPE; t54188 = f27731(t54194, t54195, t54196); /* x127089 stalin.sc:15546:542766 */ t54189 = 0; /* x127080 stalin.sc:15546:542701 */ t54190 = NATIVE_PROCEDURE_TYPE416; /* MOVE: branching squeezed to general */ if (t54188>=((struct structure_type24753 *)VALUE_OFFSET)) {t54191.tag = STRUCTURE_TYPE24753; t54191.value.structure_type24753 = t54188;} else t54191.tag = (unsigned)t54188; t54192.tag = FIXNUM_TYPE; t54192.value.fixnum_type = t54189; a1226 = f1006(t54190, t54191, t54192); /* x127079 */ /* x127078 stalin.sc:15547:542771 */ /* x127077 stalin.sc:15549:542855 */ /* x127051 stalin.sc:15552:542974 */ /* x127045 stalin.sc:15552:542982 */ /* x127049 stalin.sc:15552:542986 */ /* x127048 stalin.sc:15552:543007 */ t54157 = a1942; /* x127047 stalin.sc:15552:542991 */ /* x127046 stalin.sc:15552:542987 */ t54158.tag = NATIVE_PROCEDURE_TYPE6853; t54159 = *((struct w49 *)(&t54157)); t54160 = (struct structure_type24753 *)NULL_TYPE; t54152 = f27731(t54158, t54159, t54160); /* x127050 stalin.sc:15552:543023 */ t54153 = 0; /* x127044 stalin.sc:15552:542975 */ t54154 = NATIVE_PROCEDURE_TYPE416; /* MOVE: branching squeezed to general */ if (t54152>=((struct structure_type24753 *)VALUE_OFFSET)) {t54155.tag = STRUCTURE_TYPE24753; t54155.value.structure_type24753 = t54152;} else t54155.tag = (unsigned)t54152; t54156.tag = FIXNUM_TYPE; t54156.value.fixnum_type = t54153; t54149 = f1006(t54154, t54155, t54156); /* x127065 stalin.sc:15553:543027 */ /* x127053 stalin.sc:15555:543080 */ /* x127063 stalin.sc:15556:543086 */ /* x127062 stalin.sc:15557:543114 */ /* x127057 stalin.sc:15558:543133 */ /* x127061 stalin.sc:15559:543153 */ /* x127059 stalin.sc:15559:543164 */ /* x127060 stalin.sc:15559:543190 */ t54173 = a1940; /* x127058 stalin.sc:15559:543154 */ t54174 = NATIVE_PROCEDURE_TYPE7506; t54175 = *((struct w49 *)(&t54173)); t54170 = f1218(t54174, t54175); /* x127056 stalin.sc:15557:543115 */ t54171 = NATIVE_PROCEDURE_TYPE7232; t54172 = *((struct w49 *)(&t54170)); t54166 = f1218(t54171, t54172); /* x127055 stalin.sc:15556:543091 */ /* x127054 stalin.sc:15556:543087 */ t54167.tag = NATIVE_PROCEDURE_TYPE6853; t54168 = *((struct w49 *)(&t54166)); t54169 = (struct structure_type24753 *)NULL_TYPE; t54161 = f27731(t54167, t54168, t54169); /* x127064 stalin.sc:15560:543213 */ t54162 = 0; /* x127052 stalin.sc:15553:543028 */ t54163 = NATIVE_PROCEDURE_TYPE416; /* MOVE: branching squeezed to general */ if (t54161>=((struct structure_type24753 *)VALUE_OFFSET)) {t54164.tag = STRUCTURE_TYPE24753; t54164.value.structure_type24753 = t54161;} else t54164.tag = (unsigned)t54161; t54165.tag = FIXNUM_TYPE; t54165.value.fixnum_type = t54162; t54150 = f1006(t54163, t54164, t54165); /* x127076 stalin.sc:15561:543217 */ /* x127067 stalin.sc:15563:543270 */ /* x127074 stalin.sc:15564:543276 */ /* x127073 stalin.sc:15565:543304 */ /* x127071 stalin.sc:15565:543315 */ /* x127072 stalin.sc:15565:543339 */ t54185 = a1939; /* x127070 stalin.sc:15565:543305 */ t54186 = NATIVE_PROCEDURE_TYPE7405; t54187 = *((struct w49 *)(&t54185)); t54181 = f1218(t54186, t54187); /* x127069 stalin.sc:15564:543281 */ /* x127068 stalin.sc:15564:543277 */ t54182.tag = NATIVE_PROCEDURE_TYPE6853; t54183 = *((struct w49 *)(&t54181)); t54184 = (struct structure_type24753 *)NULL_TYPE; t54176 = f27731(t54182, t54183, t54184); /* x127075 stalin.sc:15566:543365 */ t54177 = 0; /* x127066 stalin.sc:15561:543218 */ t54178 = NATIVE_PROCEDURE_TYPE416; /* MOVE: branching squeezed to general */ if (t54176>=((struct structure_type24753 *)VALUE_OFFSET)) {t54179.tag = STRUCTURE_TYPE24753; t54179.value.structure_type24753 = t54176;} else t54179.tag = (unsigned)t54176; t54180.tag = FIXNUM_TYPE; t54180.value.fixnum_type = t54177; t54151 = f1006(t54178, t54179, t54180); /* x268933 stalin.sc:15549:542856 */ switch (t54149.tag) {case FIXNUM_TYPE: switch (t54150.tag) {case FIXNUM_TYPE: switch (t54151.tag) {case FIXNUM_TYPE: a1225.tag = FIXNUM_TYPE; a1225.value.fixnum_type = IMAX(IMAX((t54149.value.fixnum_type), (t54150.value.fixnum_type)), (t54151.value.fixnum_type)); break; case FLONUM_TYPE: a1225.tag = FLONUM_TYPE; a1225.value.flonum_type = RMAX(IMAX((t54149.value.fixnum_type), (t54150.value.fixnum_type)), (t54151.value.flonum_type)); break; default: backtrace("stalin.sc", 15549, 542855); max_error();} break; case FLONUM_TYPE: switch (t54151.tag) {case FIXNUM_TYPE: a1225.tag = FLONUM_TYPE; a1225.value.flonum_type = RMAX(RMAX((t54149.value.fixnum_type), (t54150.value.flonum_type)), (t54151.value.fixnum_type)); break; case FLONUM_TYPE: a1225.tag = FLONUM_TYPE; a1225.value.flonum_type = RMAX(RMAX((t54149.value.fixnum_type), (t54150.value.flonum_type)), (t54151.value.flonum_type)); break; default: backtrace("stalin.sc", 15549, 542855); max_error();} break; default: backtrace("stalin.sc", 15549, 542855); max_error();} break; case FLONUM_TYPE: switch (t54150.tag) {case FIXNUM_TYPE: switch (t54151.tag) {case FIXNUM_TYPE: a1225.tag = FLONUM_TYPE; a1225.value.flonum_type = RMAX(RMAX((t54149.value.flonum_type), (t54150.value.fixnum_type)), (t54151.value.fixnum_type)); break; case FLONUM_TYPE: a1225.tag = FLONUM_TYPE; a1225.value.flonum_type = RMAX(RMAX((t54149.value.flonum_type), (t54150.value.fixnum_type)), (t54151.value.flonum_type)); break; default: backtrace("stalin.sc", 15549, 542855); max_error();} break; case FLONUM_TYPE: switch (t54151.tag) {case FIXNUM_TYPE: a1225.tag = FLONUM_TYPE; a1225.value.flonum_type = RMAX(RMAX((t54149.value.flonum_type), (t54150.value.flonum_type)), (t54151.value.fixnum_type)); break; case FLONUM_TYPE: a1225.tag = FLONUM_TYPE; a1225.value.flonum_type = RMAX(RMAX((t54149.value.flonum_type), (t54150.value.flonum_type)), (t54151.value.flonum_type)); break; default: backtrace("stalin.sc", 15549, 542855); max_error();} break; default: backtrace("stalin.sc", 15549, 542855); max_error();} break; default: backtrace("stalin.sc", 15549, 542855); max_error();} return;} /* GENERAL?[14025] */ unsigned f14025(struct w49 a25657) {struct w49 t54200; struct w49 t54201; struct w49 t54202; struct w49 t54203; struct w49 t54204; /* x127040 stalin.sc:15537:542451 */ /* x127040 stalin.sc:15537:542451 */ /* x127012 stalin.sc:15537:542456 */ /* x127011 stalin.sc:15537:542461 */ /* x127010 stalin.sc:15537:542474 */ t54200 = a25657; /* x127009 stalin.sc:15537:542462 */ if (!(f8793(t54200)==FALSE_TYPE)) goto l7953; /* x127038 */ /* x127017 stalin.sc:15538:542484 */ /* x127016 stalin.sc:15538:542489 */ /* x127015 stalin.sc:15538:542503 */ t54201 = a25657; /* x127014 stalin.sc:15538:542490 */ if (!(f8148(t54201)==FALSE_TYPE)) goto l7953; /* x127036 */ /* x127022 stalin.sc:15539:542513 */ /* x127021 stalin.sc:15539:542518 */ /* x127020 stalin.sc:15539:542529 */ t54202 = a25657; /* x127019 stalin.sc:15539:542519 */ if (!(f13798(t54202)==FALSE_TYPE)) goto l7953; /* x127034 */ /* x127027 stalin.sc:15540:542539 */ /* x127026 stalin.sc:15540:542544 */ /* x127025 stalin.sc:15540:542555 */ t54203 = a25657; /* x127024 stalin.sc:15540:542545 */ if (!(f13859(t54203)==FALSE_TYPE)) goto l7953; /* x127032 */ /* x127031 stalin.sc:15541:542570 */ /* x127030 stalin.sc:15541:542581 */ t54204 = a25657; /* x127029 stalin.sc:15541:542571 */ if (!(f14024(t54204)==FALSE_TYPE)) goto l7953; return TRUE_TYPE; l7953: return FALSE_TYPE;} /* SQUISHED?[14024] */ unsigned f14024(struct w49 a25656) {struct w49 t54205; struct w49 t54206; struct w49 t54207; struct w49 t54208; struct w49 t54209; struct w49 t54210; /* x127005 stalin.sc:15529:542260 */ /* x127005 stalin.sc:15529:542260 */ /* x126972 stalin.sc:15529:542265 */ /* x126971 stalin.sc:15529:542270 */ /* x126970 stalin.sc:15529:542277 */ t54205 = a1228; /* x268943 stalin.sc:15529:542271 */ switch (t54205.tag) {case FIXNUM_TYPE: if ((t54205.value.fixnum_type)==0) goto l7960; break; case FLONUM_TYPE: if ((t54205.value.flonum_type)==0.0) goto l7960; break; case INPUT_PORT_TYPE: if ((t54205.value.input_port_type)==NULL) goto l7960; break; case OUTPUT_PORT_TYPE: if ((t54205.value.output_port_type)==NULL) goto l7960; break; case STRING_TYPE: if ((t54205.value.string_type)==NULL) goto l7960; break; default: backtrace("stalin.sc", 15529, 542270); zero_error();} /* x127003 */ /* x126977 stalin.sc:15530:542301 */ /* x126976 stalin.sc:15530:542306 */ /* x126975 stalin.sc:15530:542319 */ t54206 = a25656; /* x126974 stalin.sc:15530:542307 */ if (!(f8793(t54206)==FALSE_TYPE)) goto l7960; /* x127001 */ /* x126982 stalin.sc:15531:542329 */ /* x126981 stalin.sc:15531:542334 */ /* x126980 stalin.sc:15531:542348 */ t54207 = a25656; /* x126979 stalin.sc:15531:542335 */ if (!(f8148(t54207)==FALSE_TYPE)) goto l7960; /* x126999 */ /* x126987 stalin.sc:15532:542358 */ /* x126986 stalin.sc:15532:542363 */ /* x126985 stalin.sc:15532:542374 */ t54208 = a25656; /* x126984 stalin.sc:15532:542364 */ if (!(f13798(t54208)==FALSE_TYPE)) goto l7960; /* x126997 */ /* x126992 stalin.sc:15533:542384 */ /* x126991 stalin.sc:15533:542389 */ /* x126990 stalin.sc:15533:542400 */ t54209 = a25656; /* x126989 stalin.sc:15533:542390 */ if (!(f13859(t54209)==FALSE_TYPE)) goto l7960; /* x126995 */ /* x126994 stalin.sc:15534:542423 */ t54210 = a25656; /* x126993 stalin.sc:15534:542411 */ if (f13985(t54210)==FALSE_TYPE) goto l7960; return TRUE_TYPE; l7960: return FALSE_TYPE;} /* SQUISHABLE?[13985] */ unsigned f13985(struct w49 a25649) {struct w49 t54211; struct w49 t54212; struct w211045 t54213; /* x126965 */ /* x126962 stalin.sc:15479:540555 */ /* x126960 stalin.sc:15480:540574 */ /* x126961 stalin.sc:15524:542178 */ t54212 = a25649; /* x126704 stalin.sc:15479:540556 */ t54213.tag = NATIVE_PROCEDURE_TYPE15116; f8173(t54213, t54212); /* x126964 stalin.sc:15525:542182 */ /* x126963 stalin.sc:15525:542205 */ a1201 = TRUE_TYPE; /* x126703 */ /* x126702 stalin.sc:15526:542210 */ /* x126701 stalin.sc:15526:542232 */ t54211 = a25649; /* x126700 stalin.sc:15526:542211 */ return f8127(t54211);} /* [inside PRINT-REASONS-WHY-TYPE-SETS-ARE-NOT-SQUISHABLE! 13953] */ void f13953(struct w49 a25627) {struct w49 a37085; /* S */ struct w49 t54214; struct w49 t54215; struct w211257 t54216; struct w49 t54217; struct w211257 t54218; char *t54219; char *t54220; char *t54221; char *t54222; struct w49 t54223; struct w211257 t54224; struct w49 t54225; struct w211257 t54226; struct w49 t54227; struct w211257 t54228; struct w49 t54229; struct w211257 t54230; int t54231; struct w30215 t54232; struct structure_type24753 *t54233; unsigned t54234; struct w227393 t54235; struct w49 t54236; int t54237; struct w49 t54238; struct w49 t54239; char *t54240; int t54241; struct w49 t54242; struct w49 t54243; struct structure_type24753 *t54244; struct w49 t54245; float t54246; float t54247; float t54248; float t54249; int t54250; struct structure_type24753 *t54251; unsigned t54252; struct w227393 t54253; struct w49 t54254; int t54255; struct w49 t54256; char *t54257; struct w7121 t54258; struct w49 t54259; struct structure_type24753 *t54260; struct w49 t54261; struct w49 t54262; struct w49 t54263; struct w211257 t54264; char *t54265; struct w49 t54266; struct structure_type24753 *t54267; struct w49 t54268; struct w211257 t54269; char *t54270; struct w49 t54271; struct structure_type24753 *t54272; char *t54273; char *t54274; char *t54275; char *t54276; struct w49 t54277; struct w211257 t54278; char *t54279; struct w49 t54280; struct structure_type24753 *t54281; struct w49 t54282; struct w211257 t54283; char *t54284; struct w49 t54285; struct structure_type24753 *t54286; struct w49 t54287; struct w211257 t54288; char *t54289; struct w49 t54290; struct structure_type24753 *t54291; struct w49 t54292; struct w211257 t54293; char *t54294; struct w49 t54295; struct structure_type24753 *t54296; /* x126694 stalin.sc:15418:538490 */ /* x126391 stalin.sc:15418:538498 */ /* x126390 stalin.sc:15418:538511 */ t54214 = a25627; /* x126389 stalin.sc:15418:538499 */ if (f13985(t54214)==FALSE_TYPE) goto l7968; /* x126393 */ /* x126392 */ return; l7968: /* x126693 */ /* x126692 */ /* x126691 */ /* x126565 stalin.sc:15419:538518 */ /* x126564 stalin.sc:15420:538580 */ /* x126563 stalin.sc:15420:538596 */ t54261 = a25627; /* x126562 stalin.sc:15420:538581 */ a37085 = t54261; /* x281009 */ /* x281008 */ t54262 = a37085; /* x281007 */ if (!((t54262.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 32002]"); structure_ref_error();} t54258 = t54262.value.structure_type27650->s4; /* x126561 stalin.sc:15420:538531 */ t54257 = "W~a is general case for the following reasons:"; /* x126560 stalin.sc:15419:538519 */ t54259.tag = STRING_TYPE; t54259.value.string_type = t54257; t54260 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t54260==NULL) {backtrace("stalin.sc", 15419, 538518); out_of_memory_error();} t54260->s0 = *((struct w49 *)(&t54258)); t54260->s1.tag = NULL_TYPE; f5365(t54259, t54260); /* x126577 stalin.sc:15421:538604 */ /* x126569 stalin.sc:15421:538610 */ /* x126567 stalin.sc:15421:538619 */ /* x126568 stalin.sc:15421:538632 */ t54263 = a25627; /* x126566 stalin.sc:15421:538611 */ t54264.tag = NATIVE_PROCEDURE_TYPE7429; if ((f8137(t54264, t54263).tag)==FALSE_TYPE) goto l7980; /* x126574 */ /* x126573 */ /* x126572 stalin.sc:15421:538635 */ /* x126571 stalin.sc:15421:538643 */ t54265 = " flonum"; /* x126570 stalin.sc:15421:538636 */ t54266.tag = STRING_TYPE; t54266.value.string_type = t54265; t54267 = (struct structure_type24753 *)NULL_TYPE; f5365(t54266, t54267); goto l7981; l7980: /* x126576 stalin.sc:15421:538604 */ /* x126575 stalin.sc:15421:538604 */ l7981: /* x126589 stalin.sc:15422:538660 */ /* x126581 stalin.sc:15422:538666 */ /* x126579 stalin.sc:15422:538675 */ /* x126580 stalin.sc:15422:538693 */ t54268 = a25627; /* x126578 stalin.sc:15422:538667 */ t54269.tag = NATIVE_PROCEDURE_TYPE7427; if ((f8137(t54269, t54268).tag)==FALSE_TYPE) goto l7983; /* x126586 */ /* x126585 */ /* x126584 stalin.sc:15422:538696 */ /* x126583 stalin.sc:15422:538704 */ t54270 = " rectangular"; /* x126582 stalin.sc:15422:538697 */ t54271.tag = STRING_TYPE; t54271.value.string_type = t54270; t54272 = (struct structure_type24753 *)NULL_TYPE; f5365(t54271, t54272); goto l7984; l7983: /* x126588 stalin.sc:15422:538660 */ /* x126587 stalin.sc:15422:538660 */ l7984: /* x126626 stalin.sc:15423:538726 */ /* x126618 stalin.sc:15423:538732 */ /* x126602 stalin.sc:15423:538737 */ /* x126601 stalin.sc:15423:538741 */ /* x126599 stalin.sc:15423:538746 */ t54273 = a686; /* x126600 stalin.sc:15423:538771 */ t54274 = q18; /* x268948 stalin.sc:15423:538742 */ if (t54273==t54274) goto l7988; /* x126595 */ /* x126593 stalin.sc:15424:538798 */ t54275 = a686; /* x126594 stalin.sc:15424:538823 */ t54276 = q20; /* x268949 stalin.sc:15424:538794 */ if (!(t54275==t54276)) goto l7986; l7988: /* x126616 */ /* x126614 stalin.sc:15426:538863 */ /* x126615 stalin.sc:15428:538936 */ t54277 = a25627; /* x126603 stalin.sc:15425:538853 */ t54278.tag = NATIVE_PROCEDURE_TYPE16343; if ((f8137(t54278, t54277).tag)==FALSE_TYPE) goto l7986; /* x126623 */ /* x126622 */ /* x126621 stalin.sc:15429:538945 */ /* x126620 stalin.sc:15429:538953 */ t54279 = " immediate native procedure"; /* x126619 stalin.sc:15429:538946 */ t54280.tag = STRING_TYPE; t54280.value.string_type = t54279; t54281 = (struct structure_type24753 *)NULL_TYPE; f5365(t54280, t54281); goto l7987; l7986: /* x126625 stalin.sc:15423:538726 */ /* x126624 stalin.sc:15423:538726 */ l7987: /* x126646 stalin.sc:15430:538990 */ /* x126638 stalin.sc:15430:538996 */ /* x126636 stalin.sc:15430:539005 */ /* x126637 stalin.sc:15432:539085 */ t54282 = a25627; /* x126627 stalin.sc:15430:538997 */ t54283.tag = NATIVE_PROCEDURE_TYPE16339; if ((f8137(t54283, t54282).tag)==FALSE_TYPE) goto l7991; /* x126643 */ /* x126642 */ /* x126641 stalin.sc:15433:539093 */ /* x126640 stalin.sc:15433:539101 */ t54284 = " immediate structure"; /* x126639 stalin.sc:15433:539094 */ t54285.tag = STRING_TYPE; t54285.value.string_type = t54284; t54286 = (struct structure_type24753 *)NULL_TYPE; f5365(t54285, t54286); goto l7992; l7991: /* x126645 stalin.sc:15430:538990 */ /* x126644 stalin.sc:15430:538990 */ l7992: /* x126668 stalin.sc:15434:539131 */ /* x126660 stalin.sc:15434:539137 */ /* x126658 stalin.sc:15434:539146 */ /* x126659 stalin.sc:15437:539241 */ t54287 = a25627; /* x126647 stalin.sc:15434:539138 */ t54288.tag = NATIVE_PROCEDURE_TYPE16337; if ((f8137(t54288, t54287).tag)==FALSE_TYPE) goto l7994; /* x126665 */ /* x126664 */ /* x126663 stalin.sc:15438:539249 */ /* x126662 stalin.sc:15438:539257 */ t54289 = " nondegenerate nonheaded vector"; /* x126661 stalin.sc:15438:539250 */ t54290.tag = STRING_TYPE; t54290.value.string_type = t54289; t54291 = (struct structure_type24753 *)NULL_TYPE; f5365(t54290, t54291); goto l7995; l7994: /* x126667 stalin.sc:15434:539131 */ /* x126666 stalin.sc:15434:539131 */ l7995: /* x126690 stalin.sc:15439:539298 */ /* x126682 stalin.sc:15439:539304 */ /* x126680 stalin.sc:15439:539313 */ /* x126681 stalin.sc:15442:539408 */ t54292 = a25627; /* x126669 stalin.sc:15439:539305 */ t54293.tag = NATIVE_PROCEDURE_TYPE16335; if ((f8137(t54293, t54292).tag)==FALSE_TYPE) goto l7997; /* x126687 */ /* x126686 */ /* x126685 stalin.sc:15443:539416 */ /* x126684 stalin.sc:15443:539424 */ t54294 = " nondegenerate displaced vector"; /* x126683 stalin.sc:15443:539417 */ t54295.tag = STRING_TYPE; t54295.value.string_type = t54294; t54296 = (struct structure_type24753 *)NULL_TYPE; f5365(t54295, t54296); goto l7998; l7997: /* x126689 stalin.sc:15439:539298 */ /* x126688 stalin.sc:15439:539298 */ l7998: /* x126559 */ /* x126558 stalin.sc:15444:539465 */ /* x126519 stalin.sc:15444:539471 */ /* x126399 stalin.sc:15445:539480 */ /* x126398 stalin.sc:15445:539485 */ /* x126396 stalin.sc:15445:539494 */ /* x126397 stalin.sc:15445:539507 */ t54215 = a25627; /* x126395 stalin.sc:15445:539486 */ t54216.tag = NATIVE_PROCEDURE_TYPE7429; if (!((f8137(t54216, t54215).tag)==FALSE_TYPE)) goto l7970; /* x126517 */ /* x126405 stalin.sc:15446:539515 */ /* x126404 stalin.sc:15446:539520 */ /* x126402 stalin.sc:15446:539529 */ /* x126403 stalin.sc:15446:539547 */ t54217 = a25627; /* x126401 stalin.sc:15446:539521 */ t54218.tag = NATIVE_PROCEDURE_TYPE7427; if (!((f8137(t54218, t54217).tag)==FALSE_TYPE)) goto l7970; /* x126515 */ /* x126436 stalin.sc:15447:539555 */ /* x126435 stalin.sc:15447:539560 */ /* x126419 stalin.sc:15447:539565 */ /* x126418 stalin.sc:15447:539569 */ /* x126416 stalin.sc:15447:539574 */ t54219 = a686; /* x126417 stalin.sc:15447:539599 */ t54220 = q18; /* x268963 stalin.sc:15447:539570 */ if (t54219==t54220) goto l7974; /* x126412 */ /* x126410 stalin.sc:15448:539625 */ t54221 = a686; /* x126411 stalin.sc:15448:539650 */ t54222 = q20; /* x268964 stalin.sc:15448:539621 */ if (!(t54221==t54222)) goto l7973; l7974: /* x126433 */ /* x126431 stalin.sc:15450:539695 */ /* x126432 stalin.sc:15452:539780 */ t54223 = a25627; /* x126420 stalin.sc:15449:539679 */ t54224.tag = NATIVE_PROCEDURE_TYPE16556; if (!((f8137(t54224, t54223).tag)==FALSE_TYPE)) goto l7970; l7973: /* x126513 */ /* x126450 stalin.sc:15453:539789 */ /* x126449 stalin.sc:15453:539794 */ /* x126447 stalin.sc:15453:539803 */ /* x126448 stalin.sc:15456:539891 */ t54225 = a25627; /* x126438 stalin.sc:15453:539795 */ t54226.tag = NATIVE_PROCEDURE_TYPE16557; if (!((f8137(t54226, t54225).tag)==FALSE_TYPE)) goto l7970; /* x126511 */ /* x126466 stalin.sc:15457:539899 */ /* x126465 stalin.sc:15457:539904 */ /* x126463 stalin.sc:15457:539913 */ /* x126464 stalin.sc:15460:540012 */ t54227 = a25627; /* x126452 stalin.sc:15457:539905 */ t54228.tag = NATIVE_PROCEDURE_TYPE16558; if (!((f8137(t54228, t54227).tag)==FALSE_TYPE)) goto l7970; /* x126509 */ /* x126482 stalin.sc:15461:540020 */ /* x126481 stalin.sc:15461:540025 */ /* x126479 stalin.sc:15461:540034 */ /* x126480 stalin.sc:15464:540133 */ t54229 = a25627; /* x126468 stalin.sc:15461:540026 */ t54230.tag = NATIVE_PROCEDURE_TYPE16559; if (!((f8137(t54230, t54229).tag)==FALSE_TYPE)) goto l7970; /* x126507 */ /* x126500 stalin.sc:15465:540144 */ /* x126496 stalin.sc:15465:540158 */ /* x126499 stalin.sc:15466:540214 */ /* x126498 stalin.sc:15466:540223 */ t54236 = a25627; /* x126497 stalin.sc:15466:540215 */ t54233 = f8162(t54236); /* x126484 stalin.sc:15465:540145 */ t54234 = NATIVE_PROCEDURE_TYPE16560; /* MOVE: branching squeezed to general */ if (t54233>=((struct structure_type24753 *)VALUE_OFFSET)) {t54235.tag = STRUCTURE_TYPE24753; t54235.value.structure_type24753 = t54233;} else t54235.tag = (unsigned)t54233; t54231 = f1370(t54234, t54235); /* x126506 stalin.sc:15467:540234 */ /* x126502 stalin.sc:15467:540240 */ t54237 = 2; /* x126505 stalin.sc:15467:540242 */ /* x126504 stalin.sc:15467:540260 */ t54239 = a25627; /* x126503 stalin.sc:15467:540243 */ t54238 = f13917(t54239); /* x268955 stalin.sc:15467:540235 */ switch (t54238.tag) {case FIXNUM_TYPE: if ((t54238.value.fixnum_type)<0) {t54232.tag = FLONUM_TYPE; t54232.value.flonum_type = pow(t54237, (t54238.value.fixnum_type));} else {t54232.tag = FIXNUM_TYPE; t54232.value.fixnum_type = ipow(t54237, (t54238.value.fixnum_type));} break; case FLONUM_TYPE: t54232.tag = FLONUM_TYPE; t54232.value.flonum_type = pow(t54237, (t54238.value.flonum_type)); break; default: backtrace("stalin.sc", 15467, 540234); expt2_error();} /* x268956 stalin.sc:15465:540142 */ if ((t54232.tag)==FIXNUM_TYPE) {if (!(t54231>(t54232.value.fixnum_type))) goto l7970;} else if (!(t54231>(t54232.value.flonum_type))) goto l7970; /* x126555 */ /* x126554 */ /* x126553 stalin.sc:15468:540271 */ /* x126552 stalin.sc:15475:540495 */ /* x126551 stalin.sc:15475:540513 */ t54256 = a25627; /* x126550 stalin.sc:15475:540496 */ t54242 = f13917(t54256); /* x126549 stalin.sc:15469:540343 */ /* x126548 stalin.sc:15470:540366 */ /* x126547 stalin.sc:15471:540383 */ /* x126543 stalin.sc:15471:540386 */ /* x126542 stalin.sc:15471:540391 */ /* x126538 stalin.sc:15472:540408 */ /* x126541 stalin.sc:15473:540460 */ /* x126540 stalin.sc:15473:540469 */ t54254 = a25627; /* x126539 stalin.sc:15473:540461 */ t54251 = f8162(t54254); /* x126526 stalin.sc:15471:540392 */ t54252 = NATIVE_PROCEDURE_TYPE20241; /* MOVE: branching squeezed to general */ if (t54251>=((struct structure_type24753 *)VALUE_OFFSET)) {t54253.tag = STRUCTURE_TYPE24753; t54253.value.structure_type24753 = t54251;} else t54253.tag = (unsigned)t54251; t54250 = f1370(t54252, t54253); /* x268951 stalin.sc:15471:540387 */ t54248 = log(t54250); /* x126546 stalin.sc:15474:540478 */ /* x126545 stalin.sc:15474:540483 */ t54255 = 2; /* x268950 stalin.sc:15474:540479 */ t54249 = log(t54255); /* x268952 stalin.sc:15471:540384 */ t54247 = t54248/t54249; /* x268953 stalin.sc:15470:540367 */ t54246 = ceil(t54247); /* x268954 stalin.sc:15469:540344 */ t54241 = (int)t54246; /* x126521 stalin.sc:15468:540279 */ t54240 = " insufficient squish tag bits (~s needed ~s available)"; /* x126520 stalin.sc:15468:540272 */ t54243.tag = STRING_TYPE; t54243.value.string_type = t54240; t54245.tag = STRUCTURE_TYPE24753; t54245.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54245.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15468, 540271); out_of_memory_error();} t54245.value.structure_type24753->s0 = t54242; t54245.value.structure_type24753->s1.tag = NULL_TYPE; t54244 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t54244==NULL) {backtrace("stalin.sc", 15468, 540271); out_of_memory_error();} t54244->s0.tag = FIXNUM_TYPE; t54244->s0.value.fixnum_type = t54241; t54244->s1 = t54245; f5365(t54243, t54244); return; l7970: /* x126557 stalin.sc:15444:539465 */ /* x126556 stalin.sc:15444:539465 */ return;} /* [inside DETERMINE-WHICH-TYPE-SETS-ARE-SQUISHABLE! 13951] */ void f13951(struct w49 a25626) {struct w49 t54297; unsigned t54298; /* x126381 stalin.sc:15356:536093 */ /* x126379 stalin.sc:15356:536120 */ t54297 = a25626; /* x126380 stalin.sc:15356:536122 */ /* x126378 stalin.sc:15356:536094 */ t54298 = TRUE_TYPE; f8128(t54297, t54298); return;} /* [inside LOOP 13931] */ void f13931(struct w49 a25614) {char *a25615; /* v */ struct w49 t54299; struct w211257 t54300; struct w49 t54301; struct w211257 t54302; char *t54303; char *t54304; char *t54305; struct w49 t54306; struct w49 t54307; char *t54308; char *t54309; struct w49 t54310; struct w49 t54311; char *t54312; char *t54313; struct w49 t54314; struct w49 t54315; char *t54316; char *t54317; struct w49 t54318; struct w49 t54319; char *t54320; char *t54321; struct w49 t54322; struct w49 t54323; char *t54324; struct w49 t54325; struct w211257 t54326; struct w49 t54327; struct w211257 t54328; struct w49 t54329; struct w211257 t54330; struct w49 t54331; struct w211257 t54332; int t54333; struct w30215 t54334; struct structure_type24753 *t54335; unsigned t54336; struct w227393 t54337; struct w49 t54338; int t54339; struct w49 t54340; struct w49 t54341; struct w49 t54342; struct w49 t54343; unsigned t54344; /* x126360 stalin.sc:15361:536202 */ /* x126339 stalin.sc:15361:536210 */ /* x126185 stalin.sc:15365:536427 */ /* x126184 stalin.sc:15365:536432 */ /* x126182 stalin.sc:15365:536441 */ /* x126183 stalin.sc:15365:536454 */ t54299 = a25614; /* x126181 stalin.sc:15365:536433 */ t54300.tag = NATIVE_PROCEDURE_TYPE7429; if (!((f8137(t54300, t54299).tag)==FALSE_TYPE)) goto l8000; /* x126337 */ /* x126191 stalin.sc:15368:536552 */ /* x126190 stalin.sc:15368:536557 */ /* x126188 stalin.sc:15368:536566 */ /* x126189 stalin.sc:15368:536584 */ t54301 = a25614; /* x126187 stalin.sc:15368:536558 */ t54302.tag = NATIVE_PROCEDURE_TYPE7427; if (!((f8137(t54302, t54301).tag)==FALSE_TYPE)) goto l8000; /* x126335 */ /* x126256 stalin.sc:15369:536595 */ /* x126255 stalin.sc:15369:536601 */ t54303 = a686; /* x126254 */ a25615 = t54303; /* x126253 */ /* x126204 */ /* x126203 */ /* x126201 */ t54304 = a25615; /* x126202 */ t54305 = q18; /* x126200 */ /* MOVE: branching squeezed to general */ if (t54304>=((char *)VALUE_OFFSET)) {t54306.tag = EXTERNAL_SYMBOL_TYPE; t54306.value.external_symbol_type = t54304;} else t54306.tag = (unsigned)t54304; t54307.tag = EXTERNAL_SYMBOL_TYPE; t54307.value.external_symbol_type = t54305; if (!(f26160(t54306, t54307)==FALSE_TYPE)) goto l8004; /* x126197 */ /* x126195 */ t54308 = a25615; /* x126196 */ t54309 = q20; /* x126194 */ /* MOVE: branching squeezed to general */ if (t54308>=((char *)VALUE_OFFSET)) {t54310.tag = EXTERNAL_SYMBOL_TYPE; t54310.value.external_symbol_type = t54308;} else t54310.tag = (unsigned)t54308; t54311.tag = EXTERNAL_SYMBOL_TYPE; t54311.value.external_symbol_type = t54309; if (f26160(t54310, t54311)==FALSE_TYPE) goto l8005; l8004: /* x126222 */ /* x126221 */ /* x126220 stalin.sc:15376:536932 */ /* x126219 stalin.sc:15376:536937 */ /* x126217 stalin.sc:15377:536954 */ /* x126218 stalin.sc:15379:537039 */ t54325 = a25614; /* x126206 stalin.sc:15376:536938 */ t54326.tag = NATIVE_PROCEDURE_TYPE16311; if (!((f8137(t54326, t54325).tag)==FALSE_TYPE)) goto l8000; goto l8006; l8005: /* x126252 */ /* x126244 */ /* x126243 */ /* x126241 */ t54312 = a25615; /* x126242 */ t54313 = q19; /* x126240 */ /* MOVE: branching squeezed to general */ if (t54312>=((char *)VALUE_OFFSET)) {t54314.tag = EXTERNAL_SYMBOL_TYPE; t54314.value.external_symbol_type = t54312;} else t54314.tag = (unsigned)t54312; t54315.tag = EXTERNAL_SYMBOL_TYPE; t54315.value.external_symbol_type = t54313; if (!(f26160(t54314, t54315)==FALSE_TYPE)) goto l8008; /* x126237 */ /* x126236 */ /* x126234 */ t54316 = a25615; /* x126235 */ t54317 = q21; /* x126233 */ /* MOVE: branching squeezed to general */ if (t54316>=((char *)VALUE_OFFSET)) {t54318.tag = EXTERNAL_SYMBOL_TYPE; t54318.value.external_symbol_type = t54316;} else t54318.tag = (unsigned)t54316; t54319.tag = EXTERNAL_SYMBOL_TYPE; t54319.value.external_symbol_type = t54317; if (!(f26160(t54318, t54319)==FALSE_TYPE)) goto l8008; /* x126230 */ /* x126228 */ t54320 = a25615; /* x126229 */ t54321 = q22; /* x126227 */ /* MOVE: branching squeezed to general */ if (t54320>=((char *)VALUE_OFFSET)) {t54322.tag = EXTERNAL_SYMBOL_TYPE; t54322.value.external_symbol_type = t54320;} else t54322.tag = (unsigned)t54320; t54323.tag = EXTERNAL_SYMBOL_TYPE; t54323.value.external_symbol_type = t54321; if (f26160(t54322, t54323)==FALSE_TYPE) goto l8009; l8008: /* x126247 */ /* x126246 */ /* x126245 stalin.sc:15380:537093 */ goto l8010; l8009: /* x126251 */ /* x126250 */ /* x126249 stalin.sc:15381:537111 */ /* x126248 stalin.sc:15381:537112 */ /* x297281 QobiScheme.sc:166:5314 */ /* x297280 QobiScheme.sc:166:5321 */ t54324 = "This shouldn\'t happen"; /* x297279 QobiScheme.sc:166:5315 */ stalin_panic(t54324); l8010: l8006: /* x126333 */ /* x126270 stalin.sc:15387:537433 */ /* x126269 stalin.sc:15387:537438 */ /* x126267 stalin.sc:15387:537447 */ /* x126268 stalin.sc:15390:537537 */ t54327 = a25614; /* x126258 stalin.sc:15387:537439 */ t54328.tag = NATIVE_PROCEDURE_TYPE16305; if (!((f8137(t54328, t54327).tag)==FALSE_TYPE)) goto l8000; /* x126331 */ /* x126286 stalin.sc:15393:537658 */ /* x126285 stalin.sc:15393:537663 */ /* x126283 stalin.sc:15393:537672 */ /* x126284 stalin.sc:15396:537773 */ t54329 = a25614; /* x126272 stalin.sc:15393:537664 */ t54330.tag = NATIVE_PROCEDURE_TYPE16306; if (!((f8137(t54330, t54329).tag)==FALSE_TYPE)) goto l8000; /* x126329 */ /* x126302 stalin.sc:15399:537894 */ /* x126301 stalin.sc:15399:537899 */ /* x126299 stalin.sc:15399:537908 */ /* x126300 stalin.sc:15402:538009 */ t54331 = a25614; /* x126288 stalin.sc:15399:537900 */ t54332.tag = NATIVE_PROCEDURE_TYPE16307; if (!((f8137(t54332, t54331).tag)==FALSE_TYPE)) goto l8000; /* x126327 */ /* x126320 stalin.sc:15404:538072 */ /* x126316 stalin.sc:15405:538091 */ /* x126319 stalin.sc:15406:538145 */ /* x126318 stalin.sc:15406:538154 */ t54338 = a25614; /* x126317 stalin.sc:15406:538146 */ t54335 = f8162(t54338); /* x126304 stalin.sc:15404:538073 */ t54336 = NATIVE_PROCEDURE_TYPE16308; /* MOVE: branching squeezed to general */ if (t54335>=((struct structure_type24753 *)VALUE_OFFSET)) {t54337.tag = STRUCTURE_TYPE24753; t54337.value.structure_type24753 = t54335;} else t54337.tag = (unsigned)t54335; t54333 = f1370(t54336, t54337); /* x126326 stalin.sc:15407:538162 */ /* x126322 stalin.sc:15407:538168 */ t54339 = 2; /* x126325 stalin.sc:15407:538170 */ /* x126324 stalin.sc:15407:538188 */ t54341 = a25614; /* x126323 stalin.sc:15407:538171 */ t54340 = f13917(t54341); /* x268968 stalin.sc:15407:538163 */ switch (t54340.tag) {case FIXNUM_TYPE: if ((t54340.value.fixnum_type)<0) {t54334.tag = FLONUM_TYPE; t54334.value.flonum_type = pow(t54339, (t54340.value.fixnum_type));} else {t54334.tag = FIXNUM_TYPE; t54334.value.fixnum_type = ipow(t54339, (t54340.value.fixnum_type));} break; case FLONUM_TYPE: t54334.tag = FLONUM_TYPE; t54334.value.flonum_type = pow(t54339, (t54340.value.flonum_type)); break; default: backtrace("stalin.sc", 15407, 538162); expt2_error();} /* x268969 stalin.sc:15404:538069 */ if ((t54334.tag)==FIXNUM_TYPE) {if (!(t54333<=(t54334.value.fixnum_type))) goto l8000;} else if (!(t54333<=(t54334.value.flonum_type))) goto l8000; /* x126341 */ /* x126340 */ return; l8000: /* x126359 */ /* x126358 */ /* x126357 stalin.sc:15408:538200 */ /* x126344 stalin.sc:15408:538206 */ /* x126343 stalin.sc:15408:538228 */ t54342 = a25614; /* x126342 stalin.sc:15408:538207 */ if (f8127(t54342)==FALSE_TYPE) goto l8017; /* x126354 */ /* x126353 */ /* x126352 */ /* x126351 stalin.sc:15409:538238 */ /* x126349 stalin.sc:15409:538265 */ t54343 = a25614; /* x126350 stalin.sc:15409:538267 */ /* x126348 stalin.sc:15409:538239 */ t54344 = FALSE_TYPE; f8128(t54343, t54344); /* x126347 */ /* x126346 stalin.sc:15410:538278 */ /* x126345 stalin.sc:15410:538291 */ a25612 = TRUE_TYPE; return; l8017: /* x126356 stalin.sc:15408:538200 */ /* x126355 stalin.sc:15408:538200 */ return;} /* SQUISH-ALIGNMENT[13917] */ struct w49 f13917(struct w49 a25604) {struct w49 r13917; struct w49 a20315; /* S */ struct w49 t54345; struct structure_type24753 *t54346; unsigned t54347; struct w49 t54348; struct w228463 t54349; struct w12224 t54350; struct w36270 t54351; struct w49 t54352; struct structure_type24753 *t54353; struct w49 t54354; struct w211061 t54355; int t54356; struct w49 t54357; struct w49 t54358; struct w211235 t54359; float t54360; float t54361; float t54362; float t54363; float t54364; float t54365; int t54366; struct structure_type24753 *t54367; struct p11483 *t54368; struct w21193 t54369; struct w49 t54370; float t54371; struct w49 t54372; struct w49 t54373; /* x126165 stalin.sc:15315:534056 */ /* x126100 stalin.sc:15315:534060 */ /* x126099 stalin.sc:15315:534081 */ t54345 = a25604; /* x126098 stalin.sc:15315:534061 */ if (f13916(t54345)==FALSE_TYPE) goto l8019; /* x126153 stalin.sc:15323:534616 */ /* x126149 stalin.sc:15323:534621 */ /* x126116 stalin.sc:15323:534625 */ /* x126114 stalin.sc:15323:534638 */ /* x126115 stalin.sc:15323:534687 */ t54358 = a25604; /* x126102 stalin.sc:15323:534626 */ t54359.tag = NATIVE_PROCEDURE_TYPE16298; if ((f8144(t54359, t54358).tag)==FALSE_TYPE) goto l8021; /* x126147 stalin.sc:15324:534697 */ /* x126146 stalin.sc:15325:534721 */ /* x126145 stalin.sc:15326:534732 */ /* x126143 stalin.sc:15326:534735 */ /* x126139 stalin.sc:15326:534738 */ /* x126138 stalin.sc:15326:534743 */ /* x126134 stalin.sc:15327:534760 */ /* x126137 stalin.sc:15334:535015 */ /* x126136 stalin.sc:15334:535024 */ t54370 = a25604; /* x126135 stalin.sc:15334:535016 */ t54367 = f8162(t54370); /* x126122 stalin.sc:15326:534744 */ t54368 = (struct p11483 *)NATIVE_PROCEDURE_TYPE20641; /* MOVE: branching squeezed to general */ if (t54367>=((struct structure_type24753 *)VALUE_OFFSET)) {t54369.tag = STRUCTURE_TYPE24753; t54369.value.structure_type24753 = t54367;} else t54369.tag = (unsigned)t54367; t54366 = f1362(t54368, t54369); /* x268980 stalin.sc:15326:534739 */ t54364 = log(t54366); /* x126142 stalin.sc:15335:535037 */ /* x126141 stalin.sc:15335:535042 */ t54371 = 2.0; /* x268979 stalin.sc:15335:535038 */ t54365 = log(t54371); /* x268981 stalin.sc:15326:534736 */ t54362 = t54364/t54365; /* x126144 stalin.sc:15336:535053 */ t54363 = 1.0e-1; /* x268982 stalin.sc:15326:534733 */ t54361 = t54362+t54363; /* x268983 stalin.sc:15325:534722 */ t54360 = ceil(t54361); /* x268984 stalin.sc:15324:534698 */ t54356 = (int)t54360; goto l8022; l8021: /* x126148 stalin.sc:15337:535067 */ t54356 = 0; l8022: /* x126152 stalin.sc:15338:535073 */ /* x126151 stalin.sc:15338:535101 */ t54372 = a25604; /* x126150 stalin.sc:15338:535074 */ a20315 = t54372; /* x54618 */ /* x54617 */ t54373 = a20315; /* x54616 */ if (!((t54373.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("TYPE-SET-MINIMAL-ALIGNMENT[6491]"); structure_ref_error();} t54357 = t54373.value.structure_type27650->s3; /* x268985 stalin.sc:15323:534617 */ switch (t54357.tag) {case FIXNUM_TYPE: r13917.tag = FIXNUM_TYPE; r13917.value.fixnum_type = IMAX(t54356, (t54357.value.fixnum_type)); return r13917; case FLONUM_TYPE: r13917.tag = FLONUM_TYPE; r13917.value.flonum_type = RMAX(t54356, (t54357.value.flonum_type)); return r13917; default: backtrace("stalin.sc", 15323, 534616); max_error();} l8019: /* x126164 stalin.sc:15347:535691 */ /* x126155 stalin.sc:15347:535699 */ /* x126162 stalin.sc:15348:535709 */ /* x126161 stalin.sc:15348:535730 */ /* x126159 stalin.sc:15348:535744 */ /* x126160 stalin.sc:15348:535760 */ t54354 = a25604; /* x126158 stalin.sc:15348:535731 */ t54355.tag = NATIVE_PROCEDURE_TYPE6852; t54350 = f8172(t54355, t54354); /* x126157 stalin.sc:15348:535714 */ /* x126156 stalin.sc:15348:535710 */ t54351.tag = NATIVE_PROCEDURE_TYPE6853; t54352 = *((struct w49 *)(&t54350)); t54353 = (struct structure_type24753 *)NULL_TYPE; t54346 = f27731(t54351, t54352, t54353); /* x126163 stalin.sc:15350:535826 */ /* x126154 stalin.sc:15347:535692 */ t54347 = NATIVE_PROCEDURE_TYPE415; /* MOVE: branching squeezed to general */ if (t54346>=((struct structure_type24753 *)VALUE_OFFSET)) {t54348.tag = STRUCTURE_TYPE24753; t54348.value.structure_type24753 = t54346;} else t54348.tag = (unsigned)t54346; t54349.tag = FALSE_TYPE; return f1006(t54347, t54348, t54349);} /* NO-POINTER-MEMBERS?[13916] */ unsigned f13916(struct w49 a25603) {struct w49 t54374; struct w211225 t54375; /* x126095 stalin.sc:15312:533991 */ /* x126093 stalin.sc:15312:534001 */ /* x126094 stalin.sc:15312:534021 */ t54374 = a25603; /* x126092 stalin.sc:15312:533992 */ t54375.tag = NATIVE_PROCEDURE_TYPE6851; return f8146(t54375, t54374);} /* POINTER-MEMBER?[13914] */ unsigned f13914(struct w49 a25601) {struct w49 t54376; struct w49 t54377; struct w49 t54378; struct w49 t54379; /* x126082 stalin.sc:15303:533639 */ /* x126082 stalin.sc:15303:533639 */ /* x126061 stalin.sc:15303:533644 */ /* x126060 stalin.sc:15303:533649 */ /* x126059 stalin.sc:15303:533661 */ t54376 = a25601; /* x126058 stalin.sc:15303:533650 */ if (!(f7682(t54376)==FALSE_TYPE)) goto l8024; /* x126080 */ /* x126066 stalin.sc:15304:533671 */ /* x126065 stalin.sc:15304:533676 */ /* x126064 stalin.sc:15304:533689 */ t54377 = a25601; /* x126063 stalin.sc:15304:533677 */ if (!(f8793(t54377)==FALSE_TYPE)) goto l8024; /* x126078 */ /* x126071 stalin.sc:15305:533699 */ /* x126070 stalin.sc:15305:533704 */ /* x126069 stalin.sc:15305:533718 */ t54378 = a25601; /* x126068 stalin.sc:15305:533705 */ if (!(f7683(t54378)==FALSE_TYPE)) goto l8024; /* x126076 */ /* x126075 stalin.sc:15308:533867 */ /* x126074 stalin.sc:15308:533892 */ t54379 = a25601; /* x126073 stalin.sc:15308:533868 */ if (!(f7754(t54379)==FALSE_TYPE)) goto l8024; return TRUE_TYPE; l8024: return FALSE_TYPE;} /* [inside TYPE-ALIGNMENT& 13890] */ struct w49 f13890(struct w49 a25591) {struct w49 a36815; /* S */ struct w49 t54380; struct w49 t54381; struct w49 t54382; /* x125877 stalin.sc:15267:532432 */ /* x125876 stalin.sc:15267:532452 */ /* x125875 stalin.sc:15267:532471 */ t54381 = a25591; /* x125874 stalin.sc:15267:532453 */ a36815 = t54381; /* x279929 */ /* x279928 */ t54382 = a36815; /* x279927 */ if (!((t54382.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31732]"); structure_ref_error();} t54380 = t54382.value.structure_type27692->s9; /* x125873 stalin.sc:15267:532433 */ return f14079(t54380);} /* [inside TYPE-ALIGNMENT& 13889] */ struct w49 f13889(struct w49 a25590) {struct w49 a36817; /* S */ struct w49 t54383; struct w49 t54384; struct w49 t54385; /* x125858 stalin.sc:15260:532204 */ /* x125857 stalin.sc:15260:532224 */ /* x125856 stalin.sc:15260:532243 */ t54384 = a25590; /* x125855 stalin.sc:15260:532225 */ a36817 = t54384; /* x279937 */ /* x279936 */ t54385 = a36817; /* x279935 */ if (!((t54385.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31734]"); structure_ref_error();} t54383 = t54385.value.structure_type27692->s9; /* x125854 stalin.sc:15260:532205 */ return f14079(t54383);} /* TYPE-ALIGNMENT&[13860] */ struct w49 f13860(struct w49 a25572) {struct w49 r13860; struct w49 a21209; /* U */ char *a25579; /* v */ struct w49 a25589; /* E */ struct w49 a36753; /* OBJ */ struct w49 a36754; /* OBJ */ struct w49 a37499; /* S */ struct w49 a37565; /* OBJ */ struct w49 a37642; /* S */ struct w49 a37707; /* OBJ */ struct w49 a37781; /* OBJ */ struct w49 a37902; /* OBJ */ struct w49 a37994; /* S */ struct w49 a38014; /* S */ struct w49 a38124; /* OBJ */ struct w49 a38290; /* OBJ */ struct w49 t54386; struct w49 t54387; struct w49 t54388; struct w49 t54389; struct w49 t54390; struct w49 t54391; struct w49 t54392; struct w49 t54393; struct w49 t54394; struct w49 t54395; struct w49 t54396; struct w49 t54397; struct w49 t54398; struct w49 t54399; struct w49 t54400; char *t54401; struct w49 t54402; struct w49 t54403; struct w49 t54404; struct w49 t54405; struct w49 t54406; struct w49 t54407; char *t54408; struct w49 t54409; struct structure_type24753 *t54410; unsigned t54411; struct w49 t54412; struct w228463 t54413; struct w12224 t54414; struct w36270 t54415; struct w49 t54416; struct structure_type24753 *t54417; struct w11873 t54418; unsigned t54419; struct w49 t54420; struct w49 t54421; struct w49 t54422; struct w49 t54423; char *t54424; struct w49 t54425; char *t54426; struct w49 t54427; struct w49 t54428; char *t54429; char *t54430; char *t54431; char *t54432; struct w49 t54433; struct w49 t54434; char *t54435; char *t54436; struct w49 t54437; struct w49 t54438; char *t54439; char *t54440; struct w49 t54441; struct w49 t54442; char *t54443; char *t54444; struct w49 t54445; struct w49 t54446; char *t54447; char *t54448; struct w49 t54449; struct w49 t54450; char *t54451; char *t54452; char *t54453; char *t54454; char *t54455; struct w49 t54456; struct w49 t54457; struct w49 t54458; struct w49 t54459; struct w49 t54460; struct w49 t54461; struct w49 t54462; struct w49 t54463; struct w49 t54464; struct w49 t54465; struct w49 t54466; struct w49 t54467; struct w49 t54468; struct structure_type24753 *t54469; unsigned t54470; struct w49 t54471; struct w228463 t54472; struct w12224 t54473; struct w36270 t54474; struct w49 t54475; struct structure_type24753 *t54476; struct structure_type24753 *t54477; struct w227671 t54478; struct w49 t54479; struct w49 t54480; struct w49 t54481; struct w49 t54482; struct structure_type24753 *t54483; unsigned t54484; struct w49 t54485; struct w228463 t54486; struct w12224 t54487; struct w36270 t54488; struct w49 t54489; struct structure_type24753 *t54490; struct structure_type24753 *t54491; struct w227671 t54492; struct w49 t54493; struct w49 t54494; struct w49 t54495; struct w49 t54496; struct w49 t54497; int t54498; int t54499; int t54500; struct structure_type24753 *t54501; struct w49 t54502; struct w49 t54503; struct w49 t54504; char *t54505; struct w49 t54506; char *t54507; /* x126054 stalin.sc:15219:530821 */ /* x125690 stalin.sc:15220:530830 */ /* x125689 stalin.sc:15220:530848 */ t54386 = a25572; /* x125688 stalin.sc:15220:530831 */ if (f7700(t54386)==FALSE_TYPE) goto l8030; /* x125697 */ /* x125696 */ /* x125695 */ /* x125694 stalin.sc:15221:530854 */ /* x125693 stalin.sc:15221:530878 */ a1213 = TRUE_TYPE; /* x125692 */ /* x125691 stalin.sc:15222:530885 */ return a1236; l8030: /* x126053 */ /* x125700 stalin.sc:15223:530906 */ /* x125699 stalin.sc:15223:530925 */ t54387 = a25572; /* x125698 stalin.sc:15223:530907 */ if (f7701(t54387)==FALSE_TYPE) goto l8032; /* x125707 */ /* x125706 */ /* x125705 */ /* x125704 stalin.sc:15224:530931 */ /* x125703 stalin.sc:15224:530955 */ a1213 = TRUE_TYPE; /* x125702 */ /* x125701 stalin.sc:15225:530962 */ return a1236; l8032: /* x126052 */ /* x125710 stalin.sc:15226:530983 */ /* x125709 stalin.sc:15226:530998 */ t54388 = a25572; /* x125708 stalin.sc:15226:530984 */ if (f7703(t54388)==FALSE_TYPE) goto l8034; /* x125717 */ /* x125716 */ /* x125715 */ /* x125714 stalin.sc:15229:531091 */ /* x125713 stalin.sc:15229:531115 */ a1224 = TRUE_TYPE; /* x125712 */ /* x125711 stalin.sc:15230:531122 */ return a1243; l8034: /* x126051 */ /* x125720 stalin.sc:15231:531143 */ /* x125719 stalin.sc:15231:531166 */ t54389 = a25572; /* x125718 stalin.sc:15231:531144 */ a38290 = t54389; /* x285829 */ /* x285828 */ t54390 = a38290; /* x285827 */ if (!((t54390.tag)==STRUCTURE_TYPE27779)) goto l8036; /* x125738 */ /* x125737 */ /* x125736 stalin.sc:15232:531172 */ /* x125721 stalin.sc:15232:531179 */ if (a685==FALSE_TYPE) goto l8083; /* x125728 */ /* x125727 */ /* x125726 */ /* x125725 stalin.sc:15233:531199 */ /* x125724 stalin.sc:15233:531225 */ a1223 = TRUE_TYPE; /* x125723 */ /* x125722 stalin.sc:15234:531232 */ return a1242; l8083: /* x125735 */ /* x125734 */ /* x125733 */ /* x125732 stalin.sc:15235:531260 */ /* x125731 stalin.sc:15235:531284 */ a1224 = TRUE_TYPE; /* x125730 */ /* x125729 stalin.sc:15236:531296 */ return a1243; l8036: /* x126050 */ /* x125741 stalin.sc:15237:531319 */ /* x125740 stalin.sc:15237:531343 */ t54391 = a25572; /* x125739 stalin.sc:15237:531320 */ a38124 = t54391; /* x285165 */ /* x285164 */ t54392 = a38124; /* x285163 */ if (!((t54392.tag)==STRUCTURE_TYPE27756)) goto l8038; /* x125927 */ /* x125926 */ /* x125925 */ /* x125924 stalin.sc:15238:531349 */ /* x125917 stalin.sc:15238:531355 */ /* x125916 stalin.sc:15238:531368 */ t54506 = a25572; /* x125915 stalin.sc:15238:531356 */ if (f8793(t54506)==FALSE_TYPE) goto l8080; /* x125921 */ /* x125920 */ /* x125919 stalin.sc:15238:531371 */ /* x125918 stalin.sc:15238:531372 */ /* x296789 QobiScheme.sc:166:5314 */ /* x296788 QobiScheme.sc:166:5321 */ t54507 = "This shouldn\'t happen"; /* x296787 QobiScheme.sc:166:5315 */ stalin_panic(t54507); goto l8081; l8080: /* x125923 stalin.sc:15238:531349 */ /* x125922 stalin.sc:15238:531349 */ l8081: /* x125914 */ /* x125913 stalin.sc:15239:531385 */ /* x125912 stalin.sc:15239:531391 */ t54430 = a686; /* x125911 */ a25579 = t54430; /* x125910 */ /* x125754 */ /* x125753 */ /* x125751 */ t54431 = a25579; /* x125752 */ t54432 = q18; /* x125750 */ /* MOVE: branching squeezed to general */ if (t54431>=((char *)VALUE_OFFSET)) {t54433.tag = EXTERNAL_SYMBOL_TYPE; t54433.value.external_symbol_type = t54431;} else t54433.tag = (unsigned)t54431; t54434.tag = EXTERNAL_SYMBOL_TYPE; t54434.value.external_symbol_type = t54432; if (!(f26160(t54433, t54434)==FALSE_TYPE)) goto l8061; /* x125747 */ /* x125745 */ t54435 = a25579; /* x125746 */ t54436 = q20; /* x125744 */ /* MOVE: branching squeezed to general */ if (t54435>=((char *)VALUE_OFFSET)) {t54437.tag = EXTERNAL_SYMBOL_TYPE; t54437.value.external_symbol_type = t54435;} else t54437.tag = (unsigned)t54435; t54438.tag = EXTERNAL_SYMBOL_TYPE; t54438.value.external_symbol_type = t54436; if (f26160(t54437, t54438)==FALSE_TYPE) goto l8062; l8061: /* x125758 */ /* x125757 */ /* x125756 stalin.sc:15240:531456 */ /* x125755 stalin.sc:15240:531457 */ /* x296777 QobiScheme.sc:166:5314 */ /* x296776 QobiScheme.sc:166:5321 */ t54505 = "This shouldn\'t happen"; /* x296775 QobiScheme.sc:166:5315 */ stalin_panic(t54505); l8062: /* x125909 */ /* x125780 */ /* x125779 */ /* x125777 */ t54439 = a25579; /* x125778 */ t54440 = q19; /* x125776 */ /* MOVE: branching squeezed to general */ if (t54439>=((char *)VALUE_OFFSET)) {t54441.tag = EXTERNAL_SYMBOL_TYPE; t54441.value.external_symbol_type = t54439;} else t54441.tag = (unsigned)t54439; t54442.tag = EXTERNAL_SYMBOL_TYPE; t54442.value.external_symbol_type = t54440; if (!(f26160(t54441, t54442)==FALSE_TYPE)) goto l8064; /* x125773 */ /* x125772 */ /* x125770 */ t54443 = a25579; /* x125771 */ t54444 = q21; /* x125769 */ /* MOVE: branching squeezed to general */ if (t54443>=((char *)VALUE_OFFSET)) {t54445.tag = EXTERNAL_SYMBOL_TYPE; t54445.value.external_symbol_type = t54443;} else t54445.tag = (unsigned)t54443; t54446.tag = EXTERNAL_SYMBOL_TYPE; t54446.value.external_symbol_type = t54444; if (!(f26160(t54445, t54446)==FALSE_TYPE)) goto l8064; /* x125766 */ /* x125764 */ t54447 = a25579; /* x125765 */ t54448 = q22; /* x125763 */ /* MOVE: branching squeezed to general */ if (t54447>=((char *)VALUE_OFFSET)) {t54449.tag = EXTERNAL_SYMBOL_TYPE; t54449.value.external_symbol_type = t54447;} else t54449.tag = (unsigned)t54447; t54450.tag = EXTERNAL_SYMBOL_TYPE; t54450.value.external_symbol_type = t54448; if (f26160(t54449, t54450)==FALSE_TYPE) goto l8065; l8064: /* x125904 */ /* x125903 */ /* x125902 */ /* x125901 stalin.sc:15242:531517 */ /* x125899 stalin.sc:15242:531557 */ t54496 = a25572; /* x125900 stalin.sc:15242:531559 */ /* x125898 stalin.sc:15242:531518 */ a21209 = t54496; /* x61510 */ /* x61509 stalin.sc:1459:48580 */ /* x61502 stalin.sc:1459:48588 */ /* x61501 stalin.sc:1459:48598 */ /* x270630 stalin.sc:1459:48589 */ /* x61504 */ /* x61503 */ /* x61499 */ while (region7296!=((struct region7296 *)(&initial_region7296))) {struct region7296 *region; region = region7296; region7296 = region7296->region; GC_free(region);} region_size7296 = REGION_SIZE7296; fp7296 = &((region7296->data)[0]); ALIGN(fp7296); /* x61498 stalin.sc:1460:48614 */ /* x61481 stalin.sc:1461:48653 */ t54497 = a21209; /* x61497 stalin.sc:1462:48657 */ /* x61482 stalin.sc:1462:48661 */ /* x61488 stalin.sc:1463:48670 */ /* x61487 stalin.sc:1463:48713 */ t54500 = 256; /* x61486 stalin.sc:1463:48678 */ /* x61485 stalin.sc:1463:48710 */ t54503 = a21209; /* x61484 stalin.sc:1463:48679 */ a37994 = t54503; /* x284645 */ /* x284644 */ t54504 = a37994; /* x284643 */ if (!((t54504.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32911]"); structure_ref_error();} t54499 = t54504.value.structure_type27756->s5; /* x61483 stalin.sc:1463:48671 */ if ((fp7296+sizeof(struct structure_type24753))>(&((region7296->data)[region_size7296]))) {struct region7296 *region; unsigned region_size = REGION_SIZE7296; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7296 *)GC_malloc_uncollectable(sizeof(struct region7296)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1463, 48670); out_of_memory_error();} region->region = region7296; region_size7296 = region_size; region7296 = region; fp7296 = &((region->data)[0]); ALIGN(fp7296);} t54502.tag = STRUCTURE_TYPE24753; t54502.value.structure_type24753 = (struct structure_type24753 *)fp7296; fp7296 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t54502.value.structure_type24753->s0.tag = FIXNUM_TYPE; t54502.value.structure_type24753->s0.value.fixnum_type = t54500; t54502.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7296+sizeof(struct structure_type24753))>(&((region7296->data)[region_size7296]))) {struct region7296 *region; unsigned region_size = REGION_SIZE7296; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7296 *)GC_malloc_uncollectable(sizeof(struct region7296)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1463, 48670); out_of_memory_error();} region->region = region7296; region_size7296 = region_size; region7296 = region; fp7296 = &((region->data)[0]); ALIGN(fp7296);} t54501 = (struct structure_type24753 *)fp7296; fp7296 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t54501->s0.tag = FIXNUM_TYPE; t54501->s0.value.fixnum_type = t54499; t54501->s1 = t54502; t54498 = f27310(t54501); /* x61480 stalin.sc:1460:48615 */ f5986(t54497, t54498); /* x125897 */ /* x125896 stalin.sc:15243:531568 */ /* x125838 stalin.sc:15244:531581 */ /* x125793 stalin.sc:15244:531586 */ /* x125792 stalin.sc:15244:531590 */ /* x125790 stalin.sc:15244:531595 */ t54452 = a687; /* x125791 stalin.sc:15244:531623 */ t54453 = q15; /* x268997 stalin.sc:15244:531591 */ if (t54452==t54453) goto l8070; /* x125786 */ /* x125784 stalin.sc:15245:531641 */ t54454 = a687; /* x125785 stalin.sc:15245:531669 */ t54455 = q16; /* x268998 stalin.sc:15245:531637 */ if (!(t54454==t54455)) goto l8069; l8070: /* x125836 */ /* x125835 stalin.sc:15246:531694 */ /* x125834 stalin.sc:15246:531699 */ /* x125833 stalin.sc:15246:531713 */ /* x125832 stalin.sc:15246:531753 */ t54458 = a25572; /* x125831 stalin.sc:15246:531714 */ a38014 = t54458; /* x284725 */ /* x284724 */ t54459 = a38014; /* x284723 */ if (!((t54459.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-NARROW-PROTOTYPE[5953] 32931]"); structure_ref_error();} t54456 = t54459.value.structure_type27756->s1; /* x125830 stalin.sc:15246:531700 */ a36754 = t54456; /* x279685 */ /* x279684 */ t54457 = a36754; /* x279683 */ if (!((t54457.tag)==STRUCTURE_TYPE27694)) goto l8068; /* x125826 */ /* x125825 stalin.sc:15247:531760 */ /* x125824 stalin.sc:15247:531765 */ /* x125823 stalin.sc:15247:531784 */ /* x125822 stalin.sc:15247:531802 */ t54461 = a25572; /* x125821 stalin.sc:15247:531785 */ t54460 = f8966(t54461); /* x125820 stalin.sc:15247:531766 */ if (f8526(t54460)==FALSE_TYPE) goto l8068; /* x125816 */ /* x125815 stalin.sc:15248:531809 */ /* x125814 stalin.sc:15248:531814 */ /* x125813 stalin.sc:15248:531828 */ /* x125812 stalin.sc:15248:531846 */ t54464 = a25572; /* x125811 stalin.sc:15248:531829 */ t54462 = f8965(t54464); /* x125810 stalin.sc:15248:531815 */ a36753 = t54462; /* x279681 */ /* x279680 */ t54463 = a36753; /* x279679 */ if (!((t54463.tag)==STRUCTURE_TYPE27694)) goto l8068; /* x125806 */ /* x125805 stalin.sc:15249:531858 */ /* x125804 stalin.sc:15249:531877 */ /* x125803 stalin.sc:15249:531895 */ t54466 = a25572; /* x125802 stalin.sc:15249:531878 */ t54465 = f8965(t54466); /* x125801 stalin.sc:15249:531859 */ if (!(f8526(t54465)==FALSE_TYPE)) goto l8069; l8068: /* x125845 */ /* x125844 */ /* x125843 */ /* x125842 stalin.sc:15250:531909 */ /* x125841 stalin.sc:15250:531935 */ a1223 = TRUE_TYPE; /* x125840 */ /* x125839 stalin.sc:15251:531946 */ return a1242; l8069: /* x125895 */ /* x125894 */ /* x125893 stalin.sc:15253:531985 */ /* x125892 stalin.sc:15253:531994 */ /* x125891 stalin.sc:15253:532012 */ t54495 = a25572; /* x125890 stalin.sc:15253:531995 */ t54467 = f8965(t54495); /* x125889 */ a25589 = t54467; /* x125888 stalin.sc:15254:532018 */ /* x125848 stalin.sc:15254:532022 */ /* x125847 stalin.sc:15254:532040 */ t54468 = a25589; /* x125846 stalin.sc:15254:532023 */ if (f8584(t54468)==FALSE_TYPE) goto l8076; /* x125869 stalin.sc:15256:532094 */ /* x125850 stalin.sc:15256:532099 */ t54481 = a1240; /* x125868 stalin.sc:15257:532122 */ /* x125852 stalin.sc:15259:532179 */ /* x125866 stalin.sc:15260:532187 */ /* x125865 stalin.sc:15261:532257 */ /* x125861 stalin.sc:15261:532272 */ /* x125864 stalin.sc:15261:532281 */ /* x125863 stalin.sc:15261:532292 */ t54494 = a25589; /* x125862 stalin.sc:15261:532282 */ t54491 = f8987(t54494); /* x125860 stalin.sc:15261:532258 */ t54492.tag = NATIVE_PROCEDURE_TYPE7314; /* MOVE: branching squeezed to general */ if (t54491>=((struct structure_type24753 *)VALUE_OFFSET)) {t54493.tag = STRUCTURE_TYPE24753; t54493.value.structure_type24753 = t54491;} else t54493.tag = (unsigned)t54491; t54487 = f1226(t54492, t54493); /* x125859 stalin.sc:15260:532192 */ /* x125853 stalin.sc:15260:532188 */ t54488.tag = NATIVE_PROCEDURE_TYPE19201; t54489 = *((struct w49 *)(&t54487)); t54490 = (struct structure_type24753 *)NULL_TYPE; t54483 = f27731(t54488, t54489, t54490); /* x125867 stalin.sc:15263:532334 */ /* x125851 stalin.sc:15257:532123 */ t54484 = NATIVE_PROCEDURE_TYPE416; /* MOVE: branching squeezed to general */ if (t54483>=((struct structure_type24753 *)VALUE_OFFSET)) {t54485.tag = STRUCTURE_TYPE24753; t54485.value.structure_type24753 = t54483;} else t54485.tag = (unsigned)t54483; t54486.tag = FALSE_TYPE; t54482 = f1006(t54484, t54485, t54486); /* x268992 stalin.sc:15256:532095 */ switch (t54481.tag) {case FIXNUM_TYPE: switch (t54482.tag) {case FIXNUM_TYPE: r13860.tag = FIXNUM_TYPE; r13860.value.fixnum_type = IMAX((t54481.value.fixnum_type), (t54482.value.fixnum_type)); return r13860; case FLONUM_TYPE: r13860.tag = FLONUM_TYPE; r13860.value.flonum_type = RMAX((t54481.value.fixnum_type), (t54482.value.flonum_type)); return r13860; default: backtrace("stalin.sc", 15256, 532094); max_error();} case FLONUM_TYPE: switch (t54482.tag) {case FIXNUM_TYPE: r13860.tag = FLONUM_TYPE; r13860.value.flonum_type = RMAX((t54481.value.flonum_type), (t54482.value.fixnum_type)); return r13860; case FLONUM_TYPE: r13860.tag = FLONUM_TYPE; r13860.value.flonum_type = RMAX((t54481.value.flonum_type), (t54482.value.flonum_type)); return r13860; default: backtrace("stalin.sc", 15256, 532094); max_error();} default: backtrace("stalin.sc", 15256, 532094); max_error();} l8076: /* x125887 stalin.sc:15264:532344 */ /* x125871 stalin.sc:15266:532405 */ /* x125885 stalin.sc:15267:532415 */ /* x125884 stalin.sc:15268:532480 */ /* x125880 stalin.sc:15268:532495 */ /* x125883 stalin.sc:15268:532504 */ /* x125882 stalin.sc:15268:532515 */ t54480 = a25589; /* x125881 stalin.sc:15268:532505 */ t54477 = f8987(t54480); /* x125879 stalin.sc:15268:532481 */ t54478.tag = NATIVE_PROCEDURE_TYPE7314; /* MOVE: branching squeezed to general */ if (t54477>=((struct structure_type24753 *)VALUE_OFFSET)) {t54479.tag = STRUCTURE_TYPE24753; t54479.value.structure_type24753 = t54477;} else t54479.tag = (unsigned)t54477; t54473 = f1226(t54478, t54479); /* x125878 stalin.sc:15267:532420 */ /* x125872 stalin.sc:15267:532416 */ t54474.tag = NATIVE_PROCEDURE_TYPE19200; t54475 = *((struct w49 *)(&t54473)); t54476 = (struct structure_type24753 *)NULL_TYPE; t54469 = f27731(t54474, t54475, t54476); /* x125886 stalin.sc:15270:532561 */ /* x125870 stalin.sc:15264:532345 */ t54470 = NATIVE_PROCEDURE_TYPE416; /* MOVE: branching squeezed to general */ if (t54469>=((struct structure_type24753 *)VALUE_OFFSET)) {t54471.tag = STRUCTURE_TYPE24753; t54471.value.structure_type24753 = t54469;} else t54471.tag = (unsigned)t54469; t54472.tag = FALSE_TYPE; return f1006(t54470, t54471, t54472); l8065: /* x125908 */ /* x125907 */ /* x125906 stalin.sc:15271:532580 */ /* x125905 stalin.sc:15271:532581 */ /* x296785 QobiScheme.sc:166:5314 */ /* x296784 QobiScheme.sc:166:5321 */ t54451 = "This shouldn\'t happen"; /* x296783 QobiScheme.sc:166:5315 */ stalin_panic(t54451); l8038: /* x126049 */ /* x125930 stalin.sc:15272:532596 */ /* x125929 stalin.sc:15272:532616 */ t54393 = a25572; /* x125928 stalin.sc:15272:532597 */ a37902 = t54393; /* x284277 */ /* x284276 */ t54394 = a37902; /* x284275 */ if (!((t54394.tag)==STRUCTURE_TYPE27858)) goto l8040; /* x125947 */ /* x125946 */ /* x125945 */ /* x125942 stalin.sc:15273:532622 */ /* x125935 stalin.sc:15273:532628 */ /* x125934 stalin.sc:15273:532641 */ t54428 = a25572; /* x125933 stalin.sc:15273:532629 */ if (f8793(t54428)==FALSE_TYPE) goto l8059; /* x125939 */ /* x125938 */ /* x125937 stalin.sc:15273:532644 */ /* x125936 stalin.sc:15273:532645 */ /* x296045 QobiScheme.sc:166:5314 */ /* x296044 QobiScheme.sc:166:5321 */ t54429 = "This shouldn\'t happen"; /* x296043 QobiScheme.sc:166:5315 */ stalin_panic(t54429); goto l8060; l8059: /* x125941 stalin.sc:15273:532622 */ /* x125940 stalin.sc:15273:532622 */ l8060: /* x125944 stalin.sc:15274:532658 */ /* x125943 stalin.sc:15274:532684 */ a1212 = TRUE_TYPE; /* x125932 */ /* x125931 stalin.sc:15275:532691 */ return a1235; l8040: /* x126048 */ /* x125950 stalin.sc:15276:532714 */ /* x125949 stalin.sc:15276:532728 */ t54395 = a25572; /* x125948 stalin.sc:15276:532715 */ a37781 = t54395; /* x283793 */ /* x283792 */ t54396 = a37781; /* x283791 */ if (!((t54396.tag)==STRUCTURE_TYPE27673)) goto l8042; /* x125968 */ /* x125967 */ /* x125966 stalin.sc:15277:532734 */ /* x125951 stalin.sc:15277:532741 */ if (a685==FALSE_TYPE) goto l8057; /* x125958 */ /* x125957 */ /* x125956 */ /* x125955 stalin.sc:15278:532761 */ /* x125954 stalin.sc:15278:532787 */ a1223 = TRUE_TYPE; /* x125953 */ /* x125952 stalin.sc:15279:532794 */ return a1242; l8057: /* x125965 */ /* x125964 */ /* x125963 */ /* x125962 stalin.sc:15280:532822 */ /* x125961 stalin.sc:15280:532846 */ a1224 = TRUE_TYPE; /* x125960 */ /* x125959 stalin.sc:15281:532858 */ return a1243; l8042: /* x126047 */ /* x125971 stalin.sc:15282:532881 */ /* x125970 stalin.sc:15282:532898 */ t54397 = a25572; /* x125969 stalin.sc:15282:532882 */ a37707 = t54397; /* x283497 */ /* x283496 */ t54398 = a37707; /* x283495 */ if (!((t54398.tag)==STRUCTURE_TYPE27769)) goto l8044; /* x126012 */ /* x126011 */ /* x126010 */ /* x125995 stalin.sc:15283:532904 */ /* x125988 stalin.sc:15283:532910 */ /* x125987 stalin.sc:15283:532923 */ t54423 = a25572; /* x125986 stalin.sc:15283:532911 */ if (f8793(t54423)==FALSE_TYPE) goto l8051; /* x125992 */ /* x125991 */ /* x125990 stalin.sc:15283:532926 */ /* x125989 stalin.sc:15283:532927 */ /* x295425 QobiScheme.sc:166:5314 */ /* x295424 QobiScheme.sc:166:5321 */ t54424 = "This shouldn\'t happen"; /* x295423 QobiScheme.sc:166:5315 */ stalin_panic(t54424); goto l8052; l8051: /* x125994 stalin.sc:15283:532904 */ /* x125993 stalin.sc:15283:532904 */ l8052: /* x126005 stalin.sc:15286:533068 */ /* x125998 stalin.sc:15286:533074 */ /* x125997 stalin.sc:15286:533101 */ t54425 = a25572; /* x125996 stalin.sc:15286:533075 */ if (f7429(t54425)==FALSE_TYPE) goto l8054; /* x126002 */ /* x126001 */ /* x126000 stalin.sc:15286:533104 */ /* x125999 stalin.sc:15286:533105 */ /* x295429 QobiScheme.sc:166:5314 */ /* x295428 QobiScheme.sc:166:5321 */ t54426 = "This shouldn\'t happen"; /* x295427 QobiScheme.sc:166:5315 */ stalin_panic(t54426); goto l8055; l8054: /* x126004 stalin.sc:15286:533068 */ /* x126003 stalin.sc:15286:533068 */ l8055: /* x126009 stalin.sc:15287:533118 */ /* x126007 stalin.sc:15287:533151 */ t54427 = a25572; /* x126008 stalin.sc:15287:533153 */ /* x126006 stalin.sc:15287:533119 */ f7440(t54427); /* x125985 */ /* x125984 stalin.sc:15288:533160 */ /* x125973 stalin.sc:15290:533217 */ /* x125982 stalin.sc:15291:533225 */ /* x125981 stalin.sc:15291:533249 */ /* x125977 stalin.sc:15291:533260 */ /* x125980 stalin.sc:15291:533272 */ /* x125979 stalin.sc:15291:533294 */ t54421 = a25572; /* x125978 stalin.sc:15291:533273 */ a37642 = t54421; /* x283237 */ /* x283236 */ t54422 = a37642; /* x283235 */ if (!((t54422.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32559]"); structure_ref_error();} t54418 = t54422.value.structure_type27769->s1; /* x125976 stalin.sc:15291:533250 */ t54419 = NATIVE_PROCEDURE_TYPE7232; t54420 = *((struct w49 *)(&t54418)); t54414 = f1218(t54419, t54420); /* x125975 stalin.sc:15291:533230 */ /* x125974 stalin.sc:15291:533226 */ t54415.tag = NATIVE_PROCEDURE_TYPE6841; t54416 = *((struct w49 *)(&t54414)); t54417 = (struct structure_type24753 *)NULL_TYPE; t54410 = f27731(t54415, t54416, t54417); /* x125983 stalin.sc:15293:533336 */ /* x125972 stalin.sc:15288:533161 */ t54411 = NATIVE_PROCEDURE_TYPE416; /* MOVE: branching squeezed to general */ if (t54410>=((struct structure_type24753 *)VALUE_OFFSET)) {t54412.tag = STRUCTURE_TYPE24753; t54412.value.structure_type24753 = t54410;} else t54412.tag = (unsigned)t54410; t54413.tag = FALSE_TYPE; return f1006(t54411, t54412, t54413); l8044: /* x126046 */ /* x126015 stalin.sc:15294:533344 */ /* x126014 stalin.sc:15294:533365 */ t54399 = a25572; /* x126013 stalin.sc:15294:533345 */ a37565 = t54399; /* x282929 */ /* x282928 */ t54400 = a37565; /* x282927 */ if (!((t54400.tag)==STRUCTURE_TYPE27761)) goto l8046; /* x126041 */ /* x126040 */ /* x126039 */ /* x126034 stalin.sc:15295:533371 */ /* x126027 stalin.sc:15295:533377 */ /* x126026 stalin.sc:15295:533402 */ t54407 = a25572; /* x126025 stalin.sc:15295:533378 */ if (f7754(t54407)==FALSE_TYPE) goto l8048; /* x126031 */ /* x126030 */ /* x126029 stalin.sc:15295:533405 */ /* x126028 stalin.sc:15295:533406 */ /* x295321 QobiScheme.sc:166:5314 */ /* x295320 QobiScheme.sc:166:5321 */ t54408 = "This shouldn\'t happen"; /* x295319 QobiScheme.sc:166:5315 */ stalin_panic(t54408); goto l8049; l8048: /* x126033 stalin.sc:15295:533371 */ /* x126032 stalin.sc:15295:533371 */ l8049: /* x126038 stalin.sc:15296:533419 */ /* x126036 stalin.sc:15296:533456 */ t54409 = a25572; /* x126037 stalin.sc:15296:533458 */ /* x126035 stalin.sc:15296:533420 */ f7490(t54409); /* x126024 */ /* x126023 stalin.sc:15298:533509 */ /* x126017 stalin.sc:15298:533514 */ t54402 = a1239; /* x126022 stalin.sc:15299:533534 */ /* x126021 stalin.sc:15299:533554 */ /* x126020 stalin.sc:15299:533582 */ t54405 = a25572; /* x126019 stalin.sc:15299:533555 */ a37499 = t54405; /* x282665 */ /* x282664 */ t54406 = a37499; /* x282663 */ if (!((t54406.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32416]"); structure_ref_error();} t54404 = t54406.value.structure_type27761->s0; /* x126018 stalin.sc:15299:533535 */ t54403 = f14079(t54404); /* x268991 stalin.sc:15298:533510 */ switch (t54402.tag) {case FIXNUM_TYPE: switch (t54403.tag) {case FIXNUM_TYPE: r13860.tag = FIXNUM_TYPE; r13860.value.fixnum_type = IMAX((t54402.value.fixnum_type), (t54403.value.fixnum_type)); return r13860; case FLONUM_TYPE: r13860.tag = FLONUM_TYPE; r13860.value.flonum_type = RMAX((t54402.value.fixnum_type), (t54403.value.flonum_type)); return r13860; default: backtrace("stalin.sc", 15298, 533509); max_error();} case FLONUM_TYPE: switch (t54403.tag) {case FIXNUM_TYPE: r13860.tag = FLONUM_TYPE; r13860.value.flonum_type = RMAX((t54402.value.flonum_type), (t54403.value.fixnum_type)); return r13860; case FLONUM_TYPE: r13860.tag = FLONUM_TYPE; r13860.value.flonum_type = RMAX((t54402.value.flonum_type), (t54403.value.flonum_type)); return r13860; default: backtrace("stalin.sc", 15298, 533509); max_error();} default: backtrace("stalin.sc", 15298, 533509); max_error();} l8046: /* x126045 */ /* x126044 */ /* x126043 stalin.sc:15300:533596 */ /* x126042 stalin.sc:15300:533597 */ /* x297425 QobiScheme.sc:166:5314 */ /* x297424 QobiScheme.sc:166:5321 */ t54401 = "This shouldn\'t happen"; /* x297423 QobiScheme.sc:166:5315 */ stalin_panic(t54401);} /* SQUEEZED?[13859] */ unsigned f13859(struct w49 a25571) {struct w49 a21779; /* W */ struct w49 a25562; /* W */ struct w49 a37033; /* S */ struct w49 t54508; struct w49 t54509; struct w49 t54510; struct w49 t54511; struct w49 t54512; int t54513; int t54514; int t54515; struct structure_type24753 *t54516; struct w49 t54517; struct w49 t54518; struct w49 t54519; struct w49 t54520; struct w211045 t54521; /* x125685 stalin.sc:15209:530455 */ /* x125685 stalin.sc:15209:530455 */ /* x125659 stalin.sc:15209:530460 */ if (a677==FALSE_TYPE) goto l8085; /* x125683 */ /* x125664 stalin.sc:15210:530477 */ /* x125663 stalin.sc:15210:530482 */ /* x125662 stalin.sc:15210:530495 */ t54508 = a25571; /* x125661 stalin.sc:15210:530483 */ if (!(f8793(t54508)==FALSE_TYPE)) goto l8085; /* x125681 */ /* x125669 stalin.sc:15211:530505 */ /* x125668 stalin.sc:15211:530510 */ /* x125667 stalin.sc:15211:530524 */ t54509 = a25571; /* x125666 stalin.sc:15211:530511 */ if (!(f8148(t54509)==FALSE_TYPE)) goto l8085; /* x125679 */ /* x125674 stalin.sc:15212:530534 */ /* x125673 stalin.sc:15212:530539 */ /* x125672 stalin.sc:15212:530550 */ t54510 = a25571; /* x125671 stalin.sc:15212:530540 */ if (!(f13798(t54510)==FALSE_TYPE)) goto l8085; /* x125677 */ /* x125676 stalin.sc:15213:530573 */ t54511 = a25571; /* x125675 stalin.sc:15213:530561 */ a25562 = t54511; /* x125626 */ /* x125625 stalin.sc:15160:528810 */ /* x125623 stalin.sc:15161:528829 */ /* x125624 stalin.sc:15200:530252 */ t54520 = a25562; /* x125384 stalin.sc:15160:528811 */ t54521.tag = NATIVE_PROCEDURE_TYPE20065; f8173(t54521, t54520); /* x125383 */ /* x125382 stalin.sc:15201:530256 */ /* x125381 stalin.sc:15201:530278 */ t54512 = a25562; /* x125380 stalin.sc:15201:530257 */ a21779 = t54512; while (region8122!=((struct region8122 *)(&initial_region8122))) {struct region8122 *region; region = region8122; region8122 = region8122->region; GC_free(region);} region_size8122 = REGION_SIZE8122; fp8122 = &((region8122->data)[0]); ALIGN(fp8122); /* x69530 stalin.sc:3289:112365 */ /* x69529 stalin.sc:3289:112370 */ /* x69528 stalin.sc:3289:112377 */ /* x69527 stalin.sc:3289:112408 */ t54515 = 4; /* x69526 stalin.sc:3289:112386 */ /* x69525 stalin.sc:3289:112405 */ t54518 = a21779; /* x69524 stalin.sc:3289:112387 */ a37033 = t54518; /* x280801 */ /* x280800 */ t54519 = a37033; /* x280799 */ if (!((t54519.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-BOOLEANS[6507] 31950]"); structure_ref_error();} t54514 = t54519.value.structure_type27650->s5; /* x69523 stalin.sc:3289:112378 */ if ((fp8122+sizeof(struct structure_type24753))>(&((region8122->data)[region_size8122]))) {struct region8122 *region; unsigned region_size = REGION_SIZE8122; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8122 *)GC_malloc_uncollectable(sizeof(struct region8122)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 3289, 112377); out_of_memory_error();} region->region = region8122; region_size8122 = region_size; region8122 = region; fp8122 = &((region->data)[0]); ALIGN(fp8122);} t54517.tag = STRUCTURE_TYPE24753; t54517.value.structure_type24753 = (struct structure_type24753 *)fp8122; fp8122 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t54517.value.structure_type24753->s0.tag = FIXNUM_TYPE; t54517.value.structure_type24753->s0.value.fixnum_type = t54515; t54517.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8122+sizeof(struct structure_type24753))>(&((region8122->data)[region_size8122]))) {struct region8122 *region; unsigned region_size = REGION_SIZE8122; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8122 *)GC_malloc_uncollectable(sizeof(struct region8122)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 3289, 112377); out_of_memory_error();} region->region = region8122; region_size8122 = region_size; region8122 = region; fp8122 = &((region->data)[0]); ALIGN(fp8122);} t54516 = (struct structure_type24753 *)fp8122; fp8122 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t54516->s0.tag = FIXNUM_TYPE; t54516->s0.value.fixnum_type = t54514; t54516->s1 = t54517; t54513 = f27305(t54516); /* x270378 stalin.sc:3289:112371 */ if (t54513==0) goto l8085; return TRUE_TYPE; l8085: return FALSE_TYPE;} /* SQUEEZED-MEMBER[13854] */ struct w49 f13854(struct w49 a25568) {struct w49 t54522; struct w211113 t54523; struct w49 t54524; char *t54525; /* x125656 */ /* x125655 stalin.sc:15204:530312 */ /* x125648 stalin.sc:15204:530320 */ /* x125647 stalin.sc:15204:530331 */ t54524 = a25568; /* x125646 stalin.sc:15204:530321 */ if (f13859(t54524)==FALSE_TYPE) goto l8092; /* x125650 */ /* x125649 */ goto l8093; l8092: /* x125654 */ /* x125653 */ /* x125652 stalin.sc:15204:530334 */ /* x125651 stalin.sc:15204:530335 */ /* x296105 QobiScheme.sc:166:5314 */ /* x296104 QobiScheme.sc:166:5321 */ t54525 = "This shouldn\'t happen"; /* x296103 QobiScheme.sc:166:5315 */ stalin_panic(t54525); l8093: /* x125645 */ /* x125644 stalin.sc:15205:530346 */ /* x125642 stalin.sc:15206:530365 */ /* x125643 stalin.sc:15206:530427 */ t54522 = a25568; /* x125629 stalin.sc:15205:530347 */ t54523.tag = NATIVE_PROCEDURE_TYPE20074; return f8157(t54523, t54522);} /* [inside DETERMINE-WHICH-TYPE-SETS-ARE-SQUEEZABLE! 13816] */ unsigned f13816(struct w49 a25561) {struct w49 t54526; struct w49 t54527; /* x125350 stalin.sc:15154:528634 */ /* x125350 stalin.sc:15154:528634 */ /* x125343 stalin.sc:15154:528639 */ /* x125342 stalin.sc:15154:528644 */ /* x125341 stalin.sc:15154:528656 */ t54526 = a25561; /* x125340 stalin.sc:15154:528645 */ if (!(f7682(t54526)==FALSE_TYPE)) goto l8095; /* x125348 */ /* x125347 stalin.sc:15154:528665 */ /* x125346 stalin.sc:15154:528678 */ t54527 = a25561; /* x125345 stalin.sc:15154:528666 */ if (!(f8793(t54527)==FALSE_TYPE)) goto l8095; return TRUE_TYPE; l8095: return FALSE_TYPE;} /* [inside DETERMINE-WHICH-TYPE-SETS-ARE-SQUEEZABLE! 13805] */ void f13805(struct w49 a25553) {char *a25554; /* v */ struct w49 t54528; unsigned t54529; struct w49 t54530; struct w211257 t54531; struct w49 t54532; struct w211257 t54533; struct w49 t54534; struct w211257 t54535; struct w49 t54536; struct w211257 t54537; char *t54538; char *t54539; char *t54540; struct w49 t54541; struct w49 t54542; char *t54543; char *t54544; struct w49 t54545; struct w49 t54546; char *t54547; char *t54548; struct w49 t54549; struct w49 t54550; char *t54551; char *t54552; struct w49 t54553; struct w49 t54554; char *t54555; char *t54556; struct w49 t54557; struct w49 t54558; char *t54559; struct w49 t54560; struct w211257 t54561; struct w49 t54562; struct w211257 t54563; struct w49 t54564; struct w211257 t54565; struct w49 t54566; struct w211257 t54567; struct w49 t54568; struct w211257 t54569; struct structure_type24753 *t54570; struct w228118 t54571; struct w227393 t54572; struct w49 t54573; /* x125374 stalin.sc:15126:527617 */ /* x125208 stalin.sc:15127:527648 */ t54528 = a25553; /* x125373 stalin.sc:15128:527654 */ /* x125373 stalin.sc:15128:527654 */ /* x125214 stalin.sc:15128:527659 */ /* x125213 stalin.sc:15128:527664 */ /* x125211 stalin.sc:15128:527673 */ /* x125212 stalin.sc:15128:527686 */ t54530 = a25553; /* x125210 stalin.sc:15128:527665 */ t54531.tag = NATIVE_PROCEDURE_TYPE7430; if (!((f8137(t54531, t54530).tag)==FALSE_TYPE)) goto l8099; /* x125371 */ /* x125220 stalin.sc:15129:527692 */ /* x125219 stalin.sc:15129:527697 */ /* x125217 stalin.sc:15129:527706 */ /* x125218 stalin.sc:15129:527719 */ t54532 = a25553; /* x125216 stalin.sc:15129:527698 */ t54533.tag = NATIVE_PROCEDURE_TYPE7429; if (!((f8137(t54533, t54532).tag)==FALSE_TYPE)) goto l8099; /* x125369 */ /* x125226 stalin.sc:15130:527725 */ /* x125225 stalin.sc:15130:527730 */ /* x125223 stalin.sc:15130:527739 */ /* x125224 stalin.sc:15130:527757 */ t54534 = a25553; /* x125222 stalin.sc:15130:527731 */ t54535.tag = NATIVE_PROCEDURE_TYPE7427; if (!((f8137(t54535, t54534).tag)==FALSE_TYPE)) goto l8099; /* x125367 */ /* x125232 stalin.sc:15131:527763 */ /* x125231 stalin.sc:15131:527768 */ /* x125229 stalin.sc:15131:527777 */ /* x125230 stalin.sc:15131:527791 */ t54536 = a25553; /* x125228 stalin.sc:15131:527769 */ t54537.tag = NATIVE_PROCEDURE_TYPE7420; if (!((f8137(t54537, t54536).tag)==FALSE_TYPE)) goto l8099; /* x125365 */ /* x125297 stalin.sc:15132:527797 */ /* x125296 stalin.sc:15132:527803 */ t54538 = a686; /* x125295 */ a25554 = t54538; /* x125294 */ /* x125245 */ /* x125244 */ /* x125242 */ t54539 = a25554; /* x125243 */ t54540 = q18; /* x125241 */ /* MOVE: branching squeezed to general */ if (t54539>=((char *)VALUE_OFFSET)) {t54541.tag = EXTERNAL_SYMBOL_TYPE; t54541.value.external_symbol_type = t54539;} else t54541.tag = (unsigned)t54539; t54542.tag = EXTERNAL_SYMBOL_TYPE; t54542.value.external_symbol_type = t54540; if (!(f26160(t54541, t54542)==FALSE_TYPE)) goto l8106; /* x125238 */ /* x125236 */ t54543 = a25554; /* x125237 */ t54544 = q20; /* x125235 */ /* MOVE: branching squeezed to general */ if (t54543>=((char *)VALUE_OFFSET)) {t54545.tag = EXTERNAL_SYMBOL_TYPE; t54545.value.external_symbol_type = t54543;} else t54545.tag = (unsigned)t54543; t54546.tag = EXTERNAL_SYMBOL_TYPE; t54546.value.external_symbol_type = t54544; if (f26160(t54545, t54546)==FALSE_TYPE) goto l8107; l8106: /* x125263 */ /* x125262 */ /* x125261 stalin.sc:15136:528017 */ /* x125260 stalin.sc:15136:528022 */ /* x125258 stalin.sc:15137:528034 */ /* x125259 stalin.sc:15139:528109 */ t54560 = a25553; /* x125247 stalin.sc:15136:528023 */ t54561.tag = NATIVE_PROCEDURE_TYPE16329; if (!((f8137(t54561, t54560).tag)==FALSE_TYPE)) goto l8099; goto l8108; l8107: /* x125293 */ /* x125285 */ /* x125284 */ /* x125282 */ t54547 = a25554; /* x125283 */ t54548 = q19; /* x125281 */ /* MOVE: branching squeezed to general */ if (t54547>=((char *)VALUE_OFFSET)) {t54549.tag = EXTERNAL_SYMBOL_TYPE; t54549.value.external_symbol_type = t54547;} else t54549.tag = (unsigned)t54547; t54550.tag = EXTERNAL_SYMBOL_TYPE; t54550.value.external_symbol_type = t54548; if (!(f26160(t54549, t54550)==FALSE_TYPE)) goto l8110; /* x125278 */ /* x125277 */ /* x125275 */ t54551 = a25554; /* x125276 */ t54552 = q21; /* x125274 */ /* MOVE: branching squeezed to general */ if (t54551>=((char *)VALUE_OFFSET)) {t54553.tag = EXTERNAL_SYMBOL_TYPE; t54553.value.external_symbol_type = t54551;} else t54553.tag = (unsigned)t54551; t54554.tag = EXTERNAL_SYMBOL_TYPE; t54554.value.external_symbol_type = t54552; if (!(f26160(t54553, t54554)==FALSE_TYPE)) goto l8110; /* x125271 */ /* x125269 */ t54555 = a25554; /* x125270 */ t54556 = q22; /* x125268 */ /* MOVE: branching squeezed to general */ if (t54555>=((char *)VALUE_OFFSET)) {t54557.tag = EXTERNAL_SYMBOL_TYPE; t54557.value.external_symbol_type = t54555;} else t54557.tag = (unsigned)t54555; t54558.tag = EXTERNAL_SYMBOL_TYPE; t54558.value.external_symbol_type = t54556; if (f26160(t54557, t54558)==FALSE_TYPE) goto l8111; l8110: /* x125288 */ /* x125287 */ /* x125286 stalin.sc:15140:528158 */ goto l8112; l8111: /* x125292 */ /* x125291 */ /* x125290 stalin.sc:15141:528171 */ /* x125289 stalin.sc:15141:528172 */ /* x297277 QobiScheme.sc:166:5314 */ /* x297276 QobiScheme.sc:166:5321 */ t54559 = "This shouldn\'t happen"; /* x297275 QobiScheme.sc:166:5315 */ stalin_panic(t54559); l8112: l8108: /* x125363 */ /* x125311 stalin.sc:15144:528311 */ /* x125310 stalin.sc:15144:528316 */ /* x125308 stalin.sc:15144:528325 */ /* x125309 stalin.sc:15147:528414 */ t54562 = a25553; /* x125299 stalin.sc:15144:528317 */ t54563.tag = NATIVE_PROCEDURE_TYPE16318; if (!((f8137(t54563, t54562).tag)==FALSE_TYPE)) goto l8099; /* x125361 */ /* x125325 stalin.sc:15148:528420 */ /* x125324 stalin.sc:15148:528425 */ /* x125322 stalin.sc:15148:528434 */ /* x125323 stalin.sc:15151:528525 */ t54564 = a25553; /* x125313 stalin.sc:15148:528426 */ t54565.tag = NATIVE_PROCEDURE_TYPE16319; if (!((f8137(t54565, t54564).tag)==FALSE_TYPE)) goto l8099; /* x125359 */ /* x125331 stalin.sc:15152:528531 */ /* x125330 stalin.sc:15152:528536 */ /* x125328 stalin.sc:15152:528545 */ /* x125329 stalin.sc:15152:528568 */ t54566 = a25553; /* x125327 stalin.sc:15152:528537 */ t54567.tag = NATIVE_PROCEDURE_TYPE7773; if (!((f8137(t54567, t54566).tag)==FALSE_TYPE)) goto l8099; /* x125357 */ /* x125337 stalin.sc:15153:528574 */ /* x125336 stalin.sc:15153:528579 */ /* x125334 stalin.sc:15153:528588 */ /* x125335 stalin.sc:15153:528611 */ t54568 = a25553; /* x125333 stalin.sc:15153:528580 */ t54569.tag = NATIVE_PROCEDURE_TYPE7756; if (!((f8137(t54569, t54568).tag)==FALSE_TYPE)) goto l8099; /* x125355 */ /* x125354 stalin.sc:15155:528691 */ /* x125353 stalin.sc:15155:528700 */ t54573 = a25553; /* x125352 stalin.sc:15155:528692 */ t54570 = f8162(t54573); /* x125351 stalin.sc:15154:528622 */ /* x125338 stalin.sc:15154:528618 */ t54571.tag = NATIVE_PROCEDURE_TYPE16320; /* MOVE: branching squeezed to general */ if (t54570>=((struct structure_type24753 *)VALUE_OFFSET)) {t54572.tag = STRUCTURE_TYPE24753; t54572.value.structure_type24753 = t54570;} else t54572.tag = (unsigned)t54570; if (f1080(t54571, t54572)==FALSE_TYPE) goto l8099; t54529 = TRUE_TYPE; goto l8100; l8099: t54529 = FALSE_TYPE; l8100: /* x125207 stalin.sc:15126:527618 */ f8123(t54528, t54529); return;} /* HAS-UNION?[13801] */ unsigned f13801(struct w49 a25550) {int t54574; int t54575; struct structure_type24753 *t54576; unsigned t54577; struct w227393 t54578; struct w49 t54579; /* x125203 stalin.sc:15119:527381 */ /* x125201 stalin.sc:15119:527384 */ /* x125197 stalin.sc:15119:527398 */ /* x125200 stalin.sc:15119:527447 */ /* x125199 stalin.sc:15119:527456 */ t54579 = a25550; /* x125198 stalin.sc:15119:527448 */ t54576 = f8162(t54579); /* x125185 stalin.sc:15119:527385 */ t54577 = NATIVE_PROCEDURE_TYPE14937; /* MOVE: branching squeezed to general */ if (t54576>=((struct structure_type24753 *)VALUE_OFFSET)) {t54578.tag = STRUCTURE_TYPE24753; t54578.value.structure_type24753 = t54576;} else t54578.tag = (unsigned)t54576; t54574 = f1370(t54577, t54578); /* x125202 stalin.sc:15120:527464 */ t54575 = 1; /* x269016 stalin.sc:15119:527382 */ if (t54574>t54575) return TRUE_TYPE; else return FALSE_TYPE;} /* TAG-ONLY?[13798] */ unsigned f13798(struct w49 a25547) {struct w49 t54580; struct w211225 t54581; /* x125181 stalin.sc:15116:527293 */ /* x125179 stalin.sc:15116:527303 */ /* x125180 stalin.sc:15116:527352 */ t54580 = a25547; /* x125167 stalin.sc:15116:527294 */ t54581.tag = NATIVE_PROCEDURE_TYPE14938; return f8146(t54581, t54580);} /* [inside C:==STRUCT 13790] */ struct structure_type24753 *f13790(struct p13784 *p13790, struct w49 a25543) {struct structure_type24753 *t54582; struct structure_type24753 *t54583; struct w49 t54584; struct w49 t54585; struct w49 t54586; struct structure_type24753 *t54587; struct w61020 t54588; struct w49 t54589; struct w49 t54590; struct structure_type24753 *t54591; struct w61020 t54592; struct w49 t54593; /* x125066 stalin.sc:15104:526771 */ /* x125059 stalin.sc:15104:526777 */ /* x125055 stalin.sc:15104:526782 */ t54586 = p13790->a25538; /* x125058 stalin.sc:15104:526785 */ /* x125057 stalin.sc:15104:526790 */ t54589 = a25543; /* x125056 stalin.sc:15104:526786 */ t54587 = f14275(t54589); /* x125054 stalin.sc:15104:526778 */ t54588.tag = STRUCTURE_TYPE24753; t54588.value.structure_type24753 = t54587; t54582 = f13585(t54586, t54588); /* x125065 stalin.sc:15104:526794 */ /* x125061 stalin.sc:15104:526799 */ t54590 = p13790->a25539; /* x125064 stalin.sc:15104:526802 */ /* x125063 stalin.sc:15104:526807 */ t54593 = a25543; /* x125062 stalin.sc:15104:526803 */ t54591 = f14275(t54593); /* x125060 stalin.sc:15104:526795 */ t54592.tag = STRUCTURE_TYPE24753; t54592.value.structure_type24753 = t54591; t54583 = f13585(t54590, t54592); /* x125053 stalin.sc:15104:526772 */ t54584.tag = STRUCTURE_TYPE24753; t54584.value.structure_type24753 = t54582; t54585.tag = STRUCTURE_TYPE24753; t54585.value.structure_type24753 = t54583; return f13591(t54584, t54585);} /* C:==STRUCT[13784] */ struct structure_type24753 *f13784(struct w49 a25538, struct w49 a25539, struct w49 a25540) {char *a25541; /* v */ struct w49 a37314; /* OBJ */ struct w49 a37411; /* OBJ */ struct w49 a38042; /* OBJ */ struct w49 t54594; struct w49 t54595; struct w49 t54596; struct w49 t54597; struct w49 t54598; struct w49 t54599; struct w49 t54600; struct w49 t54601; struct p13784 *t54602; struct w49 t54603; struct w49 t54604; struct p13784 *t54605; struct structure_type24753 *t54606; struct structure_type24753 *t54607; struct structure_type24753 *t54608; struct w49 t54609; struct structure_type24753 *t54610; struct structure_type24753 *t54611; struct w49 t54612; struct w49 t54613; struct w49 t54614; char *t54615; struct w61020 t54616; struct w49 t54617; char *t54618; struct w61020 t54619; struct structure_type24753 *t54620; struct structure_type24753 *t54621; struct w49 t54622; struct w49 t54623; struct w49 t54624; char *t54625; struct w61020 t54626; struct w49 t54627; char *t54628; struct w61020 t54629; struct p13784 *t54630; struct p13784 *t54631; char *t54632; char *t54633; char *t54634; struct w49 t54635; struct w49 t54636; char *t54637; char *t54638; struct w49 t54639; struct w49 t54640; char *t54641; char *t54642; struct w49 t54643; struct w49 t54644; char *t54645; char *t54646; struct w49 t54647; struct w49 t54648; char *t54649; char *t54650; struct w49 t54651; struct w49 t54652; char *t54653; struct p13784 *t54654; struct w49 t54655; struct w49 t54656; struct p13784 *t54657; struct structure_type24753 *t54658; struct structure_type24753 *t54659; struct p13784 *t54660; struct w3457 t54661; struct w36270 t54662; struct w49 t54663; struct structure_type24753 *t54664; struct w49 t54665; struct p13784 *t54666; struct structure_type24753 *t54667; struct structure_type24753 *t54668; struct structure_type24753 *t54669; struct w49 t54670; struct structure_type24753 *t54671; struct structure_type24753 *t54672; struct w49 t54673; struct w49 t54674; struct w49 t54675; struct w49 t54676; struct structure_type24753 *t54677; struct structure_type24753 *t54678; struct w49 t54679; struct w49 t54680; struct w49 t54681; struct w49 t54682; struct p13784 *e13784; struct p13784 *p13785; struct p13784 *p13786; struct p13784 *p13787; struct p13784 *p13789; struct p13784 *p13793; struct p13784 *p13796; struct p13784 *p13797; e13784 = (struct p13784 *)alloca(sizeof(struct p13784)); if (e13784==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e13784->a25538 = a25538; e13784->a25539 = a25539; /* x125164 stalin.sc:15098:526508 */ /* x125013 stalin.sc:15098:526515 */ /* x125012 stalin.sc:15098:526534 */ t54594 = a25540; /* x125011 stalin.sc:15098:526516 */ if (f7687(t54594)==FALSE_TYPE) goto l8120; /* x125033 */ /* x125032 */ t54666 = e13784; p13785 = t54666; /* x125031 stalin.sc:15099:526545 */ /* x125030 stalin.sc:15099:526576 */ /* x125026 stalin.sc:15099:526582 */ /* x125025 stalin.sc:15099:526587 */ t54681 = p13785->a25538; /* x125024 stalin.sc:15099:526583 */ t54677 = f14278(t54681); /* x125029 stalin.sc:15099:526591 */ /* x125028 stalin.sc:15099:526596 */ t54682 = p13785->a25539; /* x125027 stalin.sc:15099:526592 */ t54678 = f14278(t54682); /* x125023 stalin.sc:15099:526577 */ t54679.tag = STRUCTURE_TYPE24753; t54679.value.structure_type24753 = t54677; t54680.tag = STRUCTURE_TYPE24753; t54680.value.structure_type24753 = t54678; t54668 = f13591(t54679, t54680); /* x125022 stalin.sc:15099:526551 */ /* x125018 stalin.sc:15099:526557 */ /* x125017 stalin.sc:15099:526562 */ t54675 = p13785->a25538; /* x125016 stalin.sc:15099:526558 */ t54671 = f14286(t54675); /* x125021 stalin.sc:15099:526566 */ /* x125020 stalin.sc:15099:526571 */ t54676 = p13785->a25539; /* x125019 stalin.sc:15099:526567 */ t54672 = f14286(t54676); /* x125015 stalin.sc:15099:526552 */ t54673.tag = STRUCTURE_TYPE24753; t54673.value.structure_type24753 = t54671; t54674.tag = STRUCTURE_TYPE24753; t54674.value.structure_type24753 = t54672; t54667 = f13591(t54673, t54674); /* x125014 stalin.sc:15099:526546 */ t54670.tag = STRUCTURE_TYPE24753; t54670.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54670.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15099, 526545); out_of_memory_error();} t54670.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t54670.value.structure_type24753->s0.value.structure_type24753 = t54668; t54670.value.structure_type24753->s1.tag = NULL_TYPE; t54669 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t54669==NULL) {backtrace("stalin.sc", 15099, 526545); out_of_memory_error();} t54669->s0.tag = STRUCTURE_TYPE24753; t54669->s0.value.structure_type24753 = t54667; t54669->s1 = t54670; return f13564(t54669); l8120: /* x125163 */ /* x125036 stalin.sc:15100:526611 */ /* x125035 stalin.sc:15100:526635 */ t54595 = a25540; /* x125034 stalin.sc:15100:526612 */ a38042 = t54595; /* x284837 */ /* x284836 */ t54596 = a38042; /* x284835 */ if (!((t54596.tag)==STRUCTURE_TYPE27756)) goto l8122; /* x125113 */ /* x125112 */ t54630 = e13784; p13786 = t54630; /* x125111 stalin.sc:15101:526646 */ /* x125110 stalin.sc:15101:526652 */ t54632 = a686; /* x125109 */ t54631 = p13786; p13787 = t54631; a25541 = t54632; /* x125108 */ /* x125049 */ /* x125048 */ /* x125046 */ t54633 = a25541; /* x125047 */ t54634 = q18; /* x125045 */ /* MOVE: branching squeezed to general */ if (t54633>=((char *)VALUE_OFFSET)) {t54635.tag = EXTERNAL_SYMBOL_TYPE; t54635.value.external_symbol_type = t54633;} else t54635.tag = (unsigned)t54633; t54636.tag = EXTERNAL_SYMBOL_TYPE; t54636.value.external_symbol_type = t54634; if (!(f26160(t54635, t54636)==FALSE_TYPE)) goto l8127; /* x125042 */ /* x125040 */ t54637 = a25541; /* x125041 */ t54638 = q20; /* x125039 */ /* MOVE: branching squeezed to general */ if (t54637>=((char *)VALUE_OFFSET)) {t54639.tag = EXTERNAL_SYMBOL_TYPE; t54639.value.external_symbol_type = t54637;} else t54639.tag = (unsigned)t54637; t54640.tag = EXTERNAL_SYMBOL_TYPE; t54640.value.external_symbol_type = t54638; if (f26160(t54639, t54640)==FALSE_TYPE) goto l8128; l8127: /* x125074 */ /* x125073 */ t54657 = p13787; p13789 = t54657; /* x125072 stalin.sc:15103:526732 */ /* x125051 stalin.sc:15103:526739 */ /* x125071 stalin.sc:15104:526754 */ /* x125070 stalin.sc:15105:526821 */ /* x125069 stalin.sc:15105:526832 */ t54665 = a25540; /* x125068 stalin.sc:15105:526822 */ t54661 = f8951(t54665); /* x125067 stalin.sc:15104:526759 */ t54660 = p13789; /* x125052 stalin.sc:15104:526755 */ t54662.tag = NATIVE_PROCEDURE_TYPE23668; t54662.value.native_procedure_type23668 = t54660; t54663 = *((struct w49 *)(&t54661)); t54664 = (struct structure_type24753 *)NULL_TYPE; t54658 = f27731(t54662, t54663, t54664); /* x269018 stalin.sc:15103:526733 */ t54659 = t54658; return f13564(t54659); l8128: /* x125107 */ /* x125096 */ /* x125095 */ /* x125093 */ t54641 = a25541; /* x125094 */ t54642 = q19; /* x125092 */ /* MOVE: branching squeezed to general */ if (t54641>=((char *)VALUE_OFFSET)) {t54643.tag = EXTERNAL_SYMBOL_TYPE; t54643.value.external_symbol_type = t54641;} else t54643.tag = (unsigned)t54641; t54644.tag = EXTERNAL_SYMBOL_TYPE; t54644.value.external_symbol_type = t54642; if (!(f26160(t54643, t54644)==FALSE_TYPE)) goto l8130; /* x125089 */ /* x125088 */ /* x125086 */ t54645 = a25541; /* x125087 */ t54646 = q21; /* x125085 */ /* MOVE: branching squeezed to general */ if (t54645>=((char *)VALUE_OFFSET)) {t54647.tag = EXTERNAL_SYMBOL_TYPE; t54647.value.external_symbol_type = t54645;} else t54647.tag = (unsigned)t54645; t54648.tag = EXTERNAL_SYMBOL_TYPE; t54648.value.external_symbol_type = t54646; if (!(f26160(t54647, t54648)==FALSE_TYPE)) goto l8130; /* x125082 */ /* x125080 */ t54649 = a25541; /* x125081 */ t54650 = q22; /* x125079 */ /* MOVE: branching squeezed to general */ if (t54649>=((char *)VALUE_OFFSET)) {t54651.tag = EXTERNAL_SYMBOL_TYPE; t54651.value.external_symbol_type = t54649;} else t54651.tag = (unsigned)t54649; t54652.tag = EXTERNAL_SYMBOL_TYPE; t54652.value.external_symbol_type = t54650; if (f26160(t54651, t54652)==FALSE_TYPE) goto l8131; l8130: /* x125102 */ /* x125101 */ t54654 = p13787; p13793 = t54654; /* x125100 stalin.sc:15106:526888 */ /* x125098 stalin.sc:15106:526894 */ t54655 = p13793->a25538; /* x125099 stalin.sc:15106:526897 */ t54656 = p13793->a25539; /* x125097 stalin.sc:15106:526889 */ return f13591(t54655, t54656); l8131: /* x125106 */ /* x125105 */ /* x125104 stalin.sc:15107:526917 */ /* x125103 stalin.sc:15107:526918 */ /* x295265 QobiScheme.sc:166:5314 */ /* x295264 QobiScheme.sc:166:5321 */ t54653 = "This shouldn\'t happen"; /* x295263 QobiScheme.sc:166:5315 */ stalin_panic(t54653); l8122: /* x125162 */ /* x125131 stalin.sc:15109:527008 */ /* x125124 stalin.sc:15109:527013 */ /* x125123 stalin.sc:15109:527017 */ /* x125122 stalin.sc:15109:527041 */ t54597 = a25540; /* x125121 stalin.sc:15109:527018 */ a37411 = t54597; /* x282313 */ /* x282312 */ t54598 = a37411; /* x282311 */ if ((t54598.tag)==STRUCTURE_TYPE27669) goto l8125; /* x125118 */ /* x125117 stalin.sc:15109:527068 */ t54599 = a25540; /* x125116 stalin.sc:15109:527045 */ a37314 = t54599; /* x281925 */ /* x281924 */ t54600 = a37314; /* x281923 */ if (!((t54600.tag)==STRUCTURE_TYPE27908)) goto l8124; l8125: /* x125129 */ /* x125128 stalin.sc:15110:527090 */ /* x125127 stalin.sc:15110:527115 */ t54601 = a25540; /* x125126 stalin.sc:15110:527091 */ if (!(f7754(t54601)==FALSE_TYPE)) goto l8124; /* x125155 */ /* x125154 */ t54605 = e13784; p13796 = t54605; /* x125153 stalin.sc:15111:527128 */ /* x125152 stalin.sc:15112:527191 */ /* x125147 stalin.sc:15112:527197 */ /* x125145 stalin.sc:15112:527202 */ t54624 = p13796->a25538; /* x125146 stalin.sc:15112:527205 */ t54625 = "elements"; /* x125144 stalin.sc:15112:527198 */ t54626.tag = STRING_TYPE; t54626.value.string_type = t54625; t54620 = f13585(t54624, t54626); /* x125151 stalin.sc:15112:527217 */ /* x125149 stalin.sc:15112:527222 */ t54627 = p13796->a25539; /* x125150 stalin.sc:15112:527225 */ t54628 = "elements"; /* x125148 stalin.sc:15112:527218 */ t54629.tag = STRING_TYPE; t54629.value.string_type = t54628; t54621 = f13585(t54627, t54629); /* x125143 stalin.sc:15112:527192 */ t54622.tag = STRUCTURE_TYPE24753; t54622.value.structure_type24753 = t54620; t54623.tag = STRUCTURE_TYPE24753; t54623.value.structure_type24753 = t54621; t54607 = f13591(t54622, t54623); /* x125142 stalin.sc:15111:527134 */ /* x125137 stalin.sc:15111:527140 */ /* x125135 stalin.sc:15111:527145 */ t54614 = p13796->a25538; /* x125136 stalin.sc:15111:527148 */ t54615 = "length"; /* x125134 stalin.sc:15111:527141 */ t54616.tag = STRING_TYPE; t54616.value.string_type = t54615; t54610 = f13585(t54614, t54616); /* x125141 stalin.sc:15111:527158 */ /* x125139 stalin.sc:15111:527163 */ t54617 = p13796->a25539; /* x125140 stalin.sc:15111:527166 */ t54618 = "length"; /* x125138 stalin.sc:15111:527159 */ t54619.tag = STRING_TYPE; t54619.value.string_type = t54618; t54611 = f13585(t54617, t54619); /* x125133 stalin.sc:15111:527135 */ t54612.tag = STRUCTURE_TYPE24753; t54612.value.structure_type24753 = t54610; t54613.tag = STRUCTURE_TYPE24753; t54613.value.structure_type24753 = t54611; t54606 = f13591(t54612, t54613); /* x125132 stalin.sc:15111:527129 */ t54609.tag = STRUCTURE_TYPE24753; t54609.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54609.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15111, 527128); out_of_memory_error();} t54609.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t54609.value.structure_type24753->s0.value.structure_type24753 = t54607; t54609.value.structure_type24753->s1.tag = NULL_TYPE; t54608 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t54608==NULL) {backtrace("stalin.sc", 15111, 527128); out_of_memory_error();} t54608->s0.tag = STRUCTURE_TYPE24753; t54608->s0.value.structure_type24753 = t54606; t54608->s1 = t54609; return f13564(t54608); l8124: /* x125161 */ /* x125160 */ t54602 = e13784; p13797 = t54602; /* x125159 stalin.sc:15113:527253 */ /* x125157 stalin.sc:15113:527259 */ t54603 = p13797->a25538; /* x125158 stalin.sc:15113:527262 */ t54604 = p13797->a25539; /* x125156 stalin.sc:15113:527254 */ return f13591(t54603, t54604);} /* C:ASSERT[13782] */ struct structure_type24753 *f13782(struct structure_type24753 *a25536) {char *t54683; struct structure_type24753 *t54684; struct w61020 t54685; struct structure_type24753 *t54686; char *t54687; struct w49 t54688; /* x125008 */ /* x125007 stalin.sc:15092:526377 */ /* x125006 stalin.sc:15092:526387 */ t54687 = "assert"; /* x125005 stalin.sc:15092:526378 */ t54688.tag = STRING_TYPE; t54688.value.string_type = t54687; f18320(t54688); /* x125004 */ /* x125003 stalin.sc:15093:526408 */ /* x125002 stalin.sc:15093:526426 */ t54684 = a25536; /* x125001 stalin.sc:15093:526417 */ t54683 = "assert"; /* x125000 stalin.sc:15093:526409 */ t54685.tag = STRING_TYPE; t54685.value.string_type = t54683; t54686 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t54686==NULL) {backtrace("stalin.sc", 15093, 526408); out_of_memory_error();} t54686->s0.tag = STRUCTURE_TYPE24753; t54686->s0.value.structure_type24753 = t54684; t54686->s1.tag = NULL_TYPE; return f13645(t54685, t54686);} /* C:FREE[13760] */ struct structure_type24753 *f13760(struct w61020 a25521, unsigned a25522) {char *t54689; struct w61020 t54690; struct w61020 t54691; struct structure_type24753 *t54692; char *t54693; struct w49 t54694; char *t54695; struct w61020 t54696; struct w61020 t54697; struct structure_type24753 *t54698; char *t54699; struct w49 t54700; char *t54701; struct w61020 t54702; struct w61020 t54703; struct structure_type24753 *t54704; char *t54705; struct w49 t54706; char *t54707; struct w61020 t54708; struct w61020 t54709; struct structure_type24753 *t54710; char *t54711; struct w49 t54712; /* x124933 stalin.sc:15062:525602 */ /* x124882 stalin.sc:15062:525609 */ if (a675==FALSE_TYPE) goto l8135; /* x124893 */ /* x124892 */ /* x124891 */ /* x124890 stalin.sc:15063:525624 */ /* x124889 stalin.sc:15063:525634 */ t54711 = "Tmk"; /* x124888 stalin.sc:15063:525625 */ t54712.tag = STRING_TYPE; t54712.value.string_type = t54711; f18320(t54712); /* x124887 */ /* x124886 stalin.sc:15064:525653 */ /* x124885 stalin.sc:15064:525673 */ t54708 = a25521; /* x124884 stalin.sc:15064:525662 */ t54707 = "Tmk_free"; /* x124883 stalin.sc:15064:525654 */ t54709.tag = STRING_TYPE; t54709.value.string_type = t54707; t54710 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t54710==NULL) {backtrace("stalin.sc", 15064, 525653); out_of_memory_error();} t54710->s0 = *((struct w49 *)(&t54708)); t54710->s1.tag = NULL_TYPE; return f13645(t54709, t54710); l8135: /* x124932 */ /* x124894 stalin.sc:15065:525685 */ if (a1281==FALSE_TYPE) goto l8137; /* x124920 */ /* x124919 */ /* x124918 stalin.sc:15066:525706 */ /* x124895 stalin.sc:15066:525713 */ if (a25522==FALSE_TYPE) goto l8139; /* x124906 */ /* x124905 */ /* x124904 */ /* x124903 stalin.sc:15066:525716 */ /* x124902 stalin.sc:15066:525726 */ t54705 = "gc"; /* x124901 stalin.sc:15066:525717 */ t54706.tag = STRING_TYPE; t54706.value.string_type = t54705; f18320(t54706); /* x124900 */ /* x124899 stalin.sc:15067:525745 */ /* x124898 stalin.sc:15067:525764 */ t54702 = a25521; /* x124897 stalin.sc:15067:525754 */ t54701 = "GC_free"; /* x124896 stalin.sc:15067:525746 */ t54703.tag = STRING_TYPE; t54703.value.string_type = t54701; t54704 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t54704==NULL) {backtrace("stalin.sc", 15067, 525745); out_of_memory_error();} t54704->s0 = *((struct w49 *)(&t54702)); t54704->s1.tag = NULL_TYPE; return f13645(t54703, t54704); l8139: /* x124917 */ /* x124916 */ /* x124915 */ /* x124914 stalin.sc:15068:525781 */ /* x124913 stalin.sc:15068:525791 */ t54699 = "gc"; /* x124912 stalin.sc:15068:525782 */ t54700.tag = STRING_TYPE; t54700.value.string_type = t54699; f18320(t54700); /* x124911 */ /* x124910 stalin.sc:15069:525812 */ /* x124909 stalin.sc:15069:525831 */ t54696 = a25521; /* x124908 stalin.sc:15069:525821 */ t54695 = "GC_free"; /* x124907 stalin.sc:15069:525813 */ t54697.tag = STRING_TYPE; t54697.value.string_type = t54695; t54698 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t54698==NULL) {backtrace("stalin.sc", 15069, 525812); out_of_memory_error();} t54698->s0 = *((struct w49 *)(&t54696)); t54698->s1.tag = NULL_TYPE; return f13645(t54697, t54698); l8137: /* x124931 */ /* x124930 */ /* x124929 */ /* x124928 stalin.sc:15070:525850 */ /* x124927 stalin.sc:15070:525860 */ t54693 = "malloc"; /* x124926 stalin.sc:15070:525851 */ t54694.tag = STRING_TYPE; t54694.value.string_type = t54693; f18320(t54694); /* x124925 */ /* x124924 stalin.sc:15071:525882 */ /* x124923 stalin.sc:15071:525898 */ t54690 = a25521; /* x124922 stalin.sc:15071:525891 */ t54689 = "free"; /* x124921 stalin.sc:15071:525883 */ t54691.tag = STRING_TYPE; t54691.value.string_type = t54689; t54692 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t54692==NULL) {backtrace("stalin.sc", 15071, 525882); out_of_memory_error();} t54692->s0 = *((struct w49 *)(&t54690)); t54692->s1.tag = NULL_TYPE; return f13645(t54691, t54692);} /* C:PRINTF[13740] */ struct structure_type24753 *f13740(struct structure_type24753 *a25507) {char *t54713; struct structure_type24753 *t54714; struct w61020 t54715; struct structure_type24753 *t54716; char *t54717; struct w49 t54718; /* x124775 */ /* x124774 stalin.sc:15036:524792 */ /* x124773 stalin.sc:15036:524802 */ t54717 = "stdio"; /* x124772 stalin.sc:15036:524793 */ t54718.tag = STRING_TYPE; t54718.value.string_type = t54717; f18320(t54718); /* x124771 */ /* x124770 stalin.sc:15037:524822 */ /* x124767 stalin.sc:15037:524829 */ /* x124768 stalin.sc:15037:524837 */ t54713 = "printf"; /* x124769 stalin.sc:15037:524846 */ t54714 = a25507; /* x269019 stalin.sc:15037:524823 */ t54715.tag = STRING_TYPE; t54715.value.string_type = t54713; t54716 = t54714; return f13645(t54715, t54716);} /* C:GETC[13734] */ struct structure_type24753 *f13734(struct w49 a25499) {struct structure_type24753 *t54719; struct w49 t54720; char *t54721; struct w49 t54722; struct w49 t54723; struct w12224 t54724; char *t54725; struct w49 t54726; /* x124737 */ /* x124736 stalin.sc:15024:524536 */ /* x124735 stalin.sc:15024:524546 */ t54725 = "stdio"; /* x124734 stalin.sc:15024:524537 */ t54726.tag = STRING_TYPE; t54726.value.string_type = t54725; f18320(t54726); /* x124733 */ /* x124732 stalin.sc:15025:524564 */ /* x124731 stalin.sc:15025:524575 */ /* x124730 stalin.sc:15025:524590 */ t54722 = a25499; /* x124729 stalin.sc:15025:524583 */ t54721 = "getc"; /* x124728 stalin.sc:15025:524576 */ t54723.tag = STRING_TYPE; t54723.value.string_type = t54721; t54724.tag = STRUCTURE_TYPE24753; t54724.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54724.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15025, 524575); out_of_memory_error();} t54724.value.structure_type24753->s0 = t54722; t54724.value.structure_type24753->s1.tag = NULL_TYPE; t54719 = f13543(t54723, t54724); /* x124727 stalin.sc:15025:524565 */ t54720.tag = STRUCTURE_TYPE24753; t54720.value.structure_type24753 = t54719; return f13472(t54720);} /* C:FCLOSE[13732] */ struct structure_type24753 *f13732(struct w49 a25497) {struct structure_type24753 *t54727; struct w49 t54728; char *t54729; struct w49 t54730; struct w49 t54731; struct w12224 t54732; char *t54733; struct w49 t54734; /* x124724 */ /* x124723 stalin.sc:15020:524452 */ /* x124722 stalin.sc:15020:524462 */ t54733 = "stdio"; /* x124721 stalin.sc:15020:524453 */ t54734.tag = STRING_TYPE; t54734.value.string_type = t54733; f18320(t54734); /* x124720 */ /* x124719 stalin.sc:15021:524482 */ /* x124718 stalin.sc:15021:524493 */ /* x124717 stalin.sc:15021:524510 */ t54730 = a25497; /* x124716 stalin.sc:15021:524501 */ t54729 = "fclose"; /* x124715 stalin.sc:15021:524494 */ t54731.tag = STRING_TYPE; t54731.value.string_type = t54729; t54732.tag = STRUCTURE_TYPE24753; t54732.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54732.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15021, 524493); out_of_memory_error();} t54732.value.structure_type24753->s0 = t54730; t54732.value.structure_type24753->s1.tag = NULL_TYPE; t54727 = f13543(t54731, t54732); /* x124714 stalin.sc:15021:524483 */ t54728.tag = STRUCTURE_TYPE24753; t54728.value.structure_type24753 = t54727; return f13472(t54728);} /* C:FOPEN[13730] */ struct structure_type24753 *f13730(struct w49 a25494, struct structure_type24753 *a25495) {struct structure_type24753 *t54735; struct w49 t54736; char *t54737; struct w49 t54738; struct structure_type24753 *t54739; struct w49 t54740; struct w12224 t54741; struct w49 t54742; char *t54743; struct w49 t54744; /* x124711 */ /* x124710 stalin.sc:15016:524364 */ /* x124709 stalin.sc:15016:524374 */ t54743 = "stdio"; /* x124708 stalin.sc:15016:524365 */ t54744.tag = STRING_TYPE; t54744.value.string_type = t54743; f18320(t54744); /* x124707 */ /* x124706 stalin.sc:15017:524393 */ /* x124705 stalin.sc:15017:524404 */ /* x124704 stalin.sc:15017:524423 */ t54739 = a25495; /* x124703 stalin.sc:15017:524420 */ t54738 = a25494; /* x124702 stalin.sc:15017:524412 */ t54737 = "fopen"; /* x124701 stalin.sc:15017:524405 */ t54740.tag = STRING_TYPE; t54740.value.string_type = t54737; t54742.tag = STRUCTURE_TYPE24753; t54742.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54742.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15017, 524404); out_of_memory_error();} t54742.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t54742.value.structure_type24753->s0.value.structure_type24753 = t54739; t54742.value.structure_type24753->s1.tag = NULL_TYPE; t54741.tag = STRUCTURE_TYPE24753; t54741.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54741.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15017, 524404); out_of_memory_error();} t54741.value.structure_type24753->s0 = t54738; t54741.value.structure_type24753->s1 = t54742; t54735 = f13543(t54740, t54741); /* x124700 stalin.sc:15017:524394 */ t54736.tag = STRUCTURE_TYPE24753; t54736.value.structure_type24753 = t54735; return f13472(t54736);} /* C:POW[13724] */ struct structure_type24753 *f13724(struct w49 a25486, struct w49 a25487) {char *t54745; struct w49 t54746; struct w49 t54747; struct w49 t54748; struct w12224 t54749; struct w49 t54750; char *t54751; struct w49 t54752; /* x124672 */ /* x124671 stalin.sc:15004:524116 */ /* x124670 stalin.sc:15004:524126 */ t54751 = "math"; /* x124669 stalin.sc:15004:524117 */ t54752.tag = STRING_TYPE; t54752.value.string_type = t54751; f18320(t54752); /* x124668 */ /* x124667 stalin.sc:15005:524142 */ /* x124666 stalin.sc:15005:524159 */ t54747 = a25487; /* x124665 stalin.sc:15005:524156 */ t54746 = a25486; /* x124664 stalin.sc:15005:524150 */ t54745 = "pow"; /* x124663 stalin.sc:15005:524143 */ t54748.tag = STRING_TYPE; t54748.value.string_type = t54745; t54750.tag = STRUCTURE_TYPE24753; t54750.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54750.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15005, 524142); out_of_memory_error();} t54750.value.structure_type24753->s0 = t54747; t54750.value.structure_type24753->s1.tag = NULL_TYPE; t54749.tag = STRUCTURE_TYPE24753; t54749.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54749.value.structure_type24753)==NULL) {backtrace("stalin.sc", 15005, 524142); out_of_memory_error();} t54749.value.structure_type24753->s0 = t54746; t54749.value.structure_type24753->s1 = t54750; return f13543(t54748, t54749);} /* C:CEIL[13702] */ struct structure_type24753 *f13702(struct w49 a25463) {char *t54753; struct w49 t54754; struct w49 t54755; struct w12224 t54756; char *t54757; struct w49 t54758; /* x124549 */ /* x124548 stalin.sc:14960:523380 */ /* x124547 stalin.sc:14960:523390 */ t54757 = "math"; /* x124546 stalin.sc:14960:523381 */ t54758.tag = STRING_TYPE; t54758.value.string_type = t54757; f18320(t54758); /* x124545 */ /* x124544 stalin.sc:14961:523407 */ /* x124543 stalin.sc:14961:523422 */ t54754 = a25463; /* x124542 stalin.sc:14961:523415 */ t54753 = "ceil"; /* x124541 stalin.sc:14961:523408 */ t54755.tag = STRING_TYPE; t54755.value.string_type = t54753; t54756.tag = STRUCTURE_TYPE24753; t54756.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54756.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14961, 523407); out_of_memory_error();} t54756.value.structure_type24753->s0 = t54754; t54756.value.structure_type24753->s1.tag = NULL_TYPE; return f13543(t54755, t54756);} /* C:FLOOR[13700] */ struct structure_type24753 *f13700(struct w49 a25461) {char *t54759; struct w49 t54760; struct w49 t54761; struct w12224 t54762; char *t54763; struct w49 t54764; /* x124538 */ /* x124537 stalin.sc:14956:523311 */ /* x124536 stalin.sc:14956:523321 */ t54763 = "math"; /* x124535 stalin.sc:14956:523312 */ t54764.tag = STRING_TYPE; t54764.value.string_type = t54763; f18320(t54764); /* x124534 */ /* x124533 stalin.sc:14957:523339 */ /* x124532 stalin.sc:14957:523355 */ t54760 = a25461; /* x124531 stalin.sc:14957:523347 */ t54759 = "floor"; /* x124530 stalin.sc:14957:523340 */ t54761.tag = STRING_TYPE; t54761.value.string_type = t54759; t54762.tag = STRUCTURE_TYPE24753; t54762.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54762.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14957, 523339); out_of_memory_error();} t54762.value.structure_type24753->s0 = t54760; t54762.value.structure_type24753->s1.tag = NULL_TYPE; return f13543(t54761, t54762);} /* C:RINT[13698] */ struct structure_type24753 *f13698(struct w49 a25459) {char *t54765; struct w49 t54766; struct w49 t54767; struct w12224 t54768; char *t54769; struct w49 t54770; /* x124527 */ /* x124526 stalin.sc:14952:523243 */ /* x124525 stalin.sc:14952:523253 */ t54769 = "math"; /* x124524 stalin.sc:14952:523244 */ t54770.tag = STRING_TYPE; t54770.value.string_type = t54769; f18320(t54770); /* x124523 */ /* x124522 stalin.sc:14953:523270 */ /* x124521 stalin.sc:14953:523285 */ t54766 = a25459; /* x124520 stalin.sc:14953:523278 */ t54765 = "rint"; /* x124519 stalin.sc:14953:523271 */ t54767.tag = STRING_TYPE; t54767.value.string_type = t54765; t54768.tag = STRUCTURE_TYPE24753; t54768.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54768.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14953, 523270); out_of_memory_error();} t54768.value.structure_type24753->s0 = t54766; t54768.value.structure_type24753->s1.tag = NULL_TYPE; return f13543(t54767, t54768);} /* [inside C:DEFAULTLESS-SWITCH 13696] */ struct structure_type24753 *f13696(struct w49 a25457, struct w49 a25458) {struct structure_type24753 *a35137; /* OBJS */ struct structure_type24753 *a42050; /* CS */ struct structure_type24753 *t54771; struct w49 t54772; struct w49 t54773; struct w49 t54774; char *t54775; struct w49 t54776; struct structure_type24753 *t54777; struct w49 t54778; struct w49 t54779; /* x124507 stalin.sc:14893:521396 */ /* x124506 stalin.sc:14893:521442 */ t54772 = a25458; /* x124505 stalin.sc:14893:521402 */ /* x124504 stalin.sc:14893:521415 */ /* x124503 stalin.sc:14893:521437 */ t54776 = a25457; /* x124502 stalin.sc:14893:521430 */ t54775 = "case"; /* x124501 stalin.sc:14893:521416 */ t54779.tag = STRUCTURE_TYPE24753; t54779.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54779.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14893, 521415); out_of_memory_error();} t54779.value.structure_type24753->s0 = t54776; t54779.value.structure_type24753->s1.tag = NULL_TYPE; a42050 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42050==NULL) {backtrace("stalin.sc", 14893, 521415); out_of_memory_error();} a42050->s0.tag = STRING_TYPE; a42050->s0.value.string_type = t54775; a42050->s1 = t54779; /* x302312 stalin.sc:14386:505956 */ /* x302311 stalin.sc:14386:505972 */ t54777 = a42050; /* x302310 stalin.sc:14386:505957 */ t54778.tag = STRUCTURE_TYPE24753; t54778.value.structure_type24753 = t54777; t54774 = f13474(t54778); /* x124500 stalin.sc:14893:521403 */ t54771 = f13515(t54774); /* x124499 stalin.sc:14893:521397 */ t54773.tag = STRUCTURE_TYPE24753; t54773.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54773.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14893, 521396); out_of_memory_error();} t54773.value.structure_type24753->s0 = t54772; t54773.value.structure_type24753->s1.tag = NULL_TYPE; a35137 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35137==NULL) {backtrace("stalin.sc", 14893, 521396); out_of_memory_error();} a35137->s0.tag = STRUCTURE_TYPE24753; a35137->s0.value.structure_type24753 = t54771; a35137->s1 = t54773; /* x272281 */ return a35137;} /* [inside C:DEFAULTLESS-SWITCH 13691] */ struct w49 f13691(struct p13687 *p13691, struct w49 a25452) {struct w49 a35652; /* PAIR */ struct structure_type24753 *a41749; /* CS */ struct w49 t54780; struct w49 t54781; struct w61020 t54782; struct structure_type24753 *t54783; struct w49 t54784; struct w49 t54785; struct w49 t54786; struct structure_type24753 *t54787; struct w49 t54788; struct w49 t54789; struct w36270 t54790; struct w49 t54791; struct structure_type24753 *t54792; struct w49 t54793; struct w49 t54794; struct w49 t54795; char *t54796; struct w49 t54797; struct structure_type24753 *t54798; /* x124441 stalin.sc:14938:522905 */ /* x124440 stalin.sc:14941:523006 */ /* x124434 stalin.sc:14941:523010 */ if ((p13691->a25448)==FALSE_TYPE) goto l8141; /* x124437 stalin.sc:14941:523013 */ /* x124436 stalin.sc:14941:523030 */ t54796 = "break"; /* x124435 stalin.sc:14941:523014 */ t54797.tag = STRING_TYPE; t54797.value.string_type = t54796; t54798 = f13514(t54797); t54782.tag = STRUCTURE_TYPE24753; t54782.value.structure_type24753 = t54798; goto l8142; l8141: /* x124439 stalin.sc:14941:523039 */ /* x124438 stalin.sc:14941:523040 */ /* x276409 stalin.sc:14693:514793 */ t54782.tag = STRING_TYPE; t54782.value.string_type = ""; l8142: /* x124433 stalin.sc:14940:522975 */ /* x124432 stalin.sc:14940:522983 */ /* x124431 stalin.sc:14940:522990 */ t54794 = a25452; /* x124430 stalin.sc:14940:522984 */ a35652 = t54794; /* x273965 */ /* x273964 */ t54795 = a35652; /* x273963 */ if (!((t54795.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29801]"); structure_ref_error();} t54793 = t54795.value.structure_type24753->s0; /* x124429 stalin.sc:14940:522976 */ t54781 = f26181(t54793); /* x124428 stalin.sc:14939:522930 */ /* x124427 stalin.sc:14939:522948 */ /* x124426 stalin.sc:14939:522959 */ t54789 = a25452; /* x124425 stalin.sc:14939:522953 */ /* x124424 stalin.sc:14939:522949 */ t54790.tag = NATIVE_PROCEDURE_TYPE494; t54791 = t54789; t54792 = (struct structure_type24753 *)NULL_TYPE; t54787 = f27731(t54790, t54791, t54792); /* x124423 stalin.sc:14939:522931 */ /* MOVE: branching squeezed to general */ if (t54787>=((struct structure_type24753 *)VALUE_OFFSET)) {t54788.tag = STRUCTURE_TYPE24753; t54788.value.structure_type24753 = t54787;} else t54788.tag = (unsigned)t54787; t54780 = f13492(t54788); /* x124422 stalin.sc:14938:522906 */ t54786.tag = STRUCTURE_TYPE24753; t54786.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54786.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14938, 522905); out_of_memory_error();} t54786.value.structure_type24753->s0 = *((struct w49 *)(&t54782)); t54786.value.structure_type24753->s1.tag = NULL_TYPE; t54785.tag = STRUCTURE_TYPE24753; t54785.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54785.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14938, 522905); out_of_memory_error();} t54785.value.structure_type24753->s0 = t54781; t54785.value.structure_type24753->s1 = t54786; a41749 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41749==NULL) {backtrace("stalin.sc", 14938, 522905); out_of_memory_error();} a41749->s0 = t54780; a41749->s1 = t54785; /* x301108 stalin.sc:14400:506485 */ /* x301107 stalin.sc:14400:506503 */ t54783 = a41749; /* x301106 stalin.sc:14400:506486 */ t54784.tag = STRUCTURE_TYPE24753; t54784.value.structure_type24753 = t54783; return f13492(t54784);} /* C:DEFAULTLESS-SWITCH[13687] */ struct w49 f13687(struct w49 a25445, struct structure_type24753 *a25446, struct structure_type24753 *a25447, unsigned a25448) {struct structure_type24753 *a25449; /* CASES */ struct w49 a25451; /* THE-CASE */ struct w49 a35467; /* PAIR */ struct w12224 a35468; /* PAIR */ struct structure_type24753 *a35469; /* PAIR */ struct w49 a35956; /* PAIR */ struct structure_type24753 *a35957; /* PAIR */ struct w49 a35958; /* PAIR */ struct w49 a35959; /* PAIR */ struct w49 a35960; /* PAIR */ struct w12224 a35961; /* PAIR */ struct w49 a35962; /* PAIR */ struct w12224 a35963; /* PAIR */ struct w49 a35964; /* PAIR */ struct w49 a35965; /* PAIR */ struct w49 a35966; /* PAIR */ struct w49 a35967; /* PAIR */ struct w12224 a35968; /* PAIR */ struct w49 a35969; /* PAIR */ struct w12224 a35970; /* PAIR */ struct w49 a35971; /* PAIR */ struct w12224 a35972; /* PAIR */ struct w49 a35973; /* PAIR */ struct structure_type24753 *a41894; /* CS */ struct structure_type24753 *a41895; /* CS */ struct structure_type24753 *a41896; /* CS */ struct structure_type24753 *a42048; /* CS */ struct p13687 *t54799; struct structure_type24753 *t54800; struct p13687 *t54801; struct w49 t54802; struct structure_type24753 *t54803; struct structure_type24753 *t54804; struct p13687 *t54805; struct w49 t54806; struct w49 t54807; struct w12224 t54808; struct w12224 t54809; struct w49 t54810; struct structure_type24753 *t54811; struct w49 t54812; struct w49 t54813; struct w49 t54814; struct w49 t54815; struct w12224 t54816; struct w12224 t54817; struct w49 t54818; struct structure_type24753 *t54819; struct w49 t54820; struct w49 t54821; struct structure_type24753 *t54822; struct structure_type24753 *t54823; struct w49 t54824; struct w49 t54825; char *t54826; struct structure_type24753 *t54827; struct structure_type24753 *t54828; struct w49 t54829; struct w49 t54830; struct w49 t54831; struct w49 t54832; struct w49 t54833; struct w49 t54834; struct structure_type24753 *t54835; struct w49 t54836; struct w49 t54837; struct structure_type24753 *t54838; struct w49 t54839; struct p13687 *t54840; struct w12224 t54841; struct w36270 t54842; struct w49 t54843; struct structure_type24753 *t54844; struct w49 t54845; struct structure_type24753 *t54846; struct w49 t54847; struct w49 t54848; struct w49 t54849; struct w49 t54850; struct w49 t54851; struct w49 t54852; struct w49 t54853; struct structure_type24753 *t54854; struct w49 t54855; struct w49 t54856; struct structure_type24753 *t54857; struct w49 t54858; char *t54859; struct w49 t54860; unsigned t54861; struct w49 t54862; struct w49 t54863; struct w49 t54864; struct w49 t54865; struct w49 t54866; struct w49 t54867; struct w49 t54868; struct w49 t54869; struct w49 t54870; struct w12224 t54871; struct w12224 t54872; struct w49 t54873; struct structure_type24753 *t54874; struct w49 t54875; struct w49 t54876; struct w49 t54877; struct w49 t54878; struct w12224 t54879; struct w12224 t54880; struct w49 t54881; struct structure_type24753 *t54882; struct w49 t54883; struct w49 t54884; struct w49 t54885; struct w49 t54886; struct structure_type24753 *t54887; struct w49 t54888; struct w49 t54889; unsigned t54890; struct w49 t54891; struct w49 t54892; struct w49 t54893; struct w49 t54894; struct w49 t54895; struct w49 t54896; struct w49 t54897; struct w49 t54898; struct w49 t54899; struct w12224 t54900; struct w12224 t54901; struct w49 t54902; struct structure_type24753 *t54903; struct w49 t54904; struct w49 t54905; struct w49 t54906; struct w49 t54907; struct w12224 t54908; struct w12224 t54909; struct w49 t54910; struct structure_type24753 *t54911; struct w49 t54912; struct w49 t54913; struct w49 t54914; struct w49 t54915; struct structure_type24753 *t54916; unsigned t54917; struct w49 t54918; struct w49 t54919; struct w49 t54920; struct w49 t54921; struct structure_type24753 *t54922; struct structure_type24753 *t54923; struct structure_type24753 *t54924; char *t54925; struct structure_type24753 *t54926; unsigned t54927; struct w49 t54928; struct structure_type24753 *t54929; struct structure_type24753 *t54930; struct w36270 t54931; struct w49 t54932; struct structure_type24753 *t54933; struct p13687 *e13687; struct p13687 *p13688; struct p13687 *p13689; struct p13687 *p13690; e13687 = (struct p13687 *)alloca(sizeof(struct p13687)); if (e13687==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e13687->a25448 = a25448; /* x124513 stalin.sc:14888:521210 */ /* x124512 stalin.sc:14888:521223 */ /* x124497 stalin.sc:14889:521264 */ /* x124511 stalin.sc:14892:521368 */ /* x124510 stalin.sc:14894:521457 */ t54930 = a25447; /* x124509 stalin.sc:14894:521453 */ t54929 = a25446; /* x124508 stalin.sc:14892:521373 */ /* x124498 stalin.sc:14892:521369 */ t54931.tag = NATIVE_PROCEDURE_TYPE20301; /* MOVE: branching squeezed to general */ if (t54929>=((struct structure_type24753 *)VALUE_OFFSET)) {t54932.tag = STRUCTURE_TYPE24753; t54932.value.structure_type24753 = t54929;} else t54932.tag = (unsigned)t54929; t54933 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t54933==NULL) {backtrace("stalin.sc", 14892, 521368); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t54930>=((struct structure_type24753 *)VALUE_OFFSET)) {t54933->s0.tag = STRUCTURE_TYPE24753; t54933->s0.value.structure_type24753 = t54930;} else t54933->s0.tag = (unsigned)t54930; t54933->s1.tag = NULL_TYPE; t54926 = f27731(t54931, t54932, t54933); /* x124488 stalin.sc:14888:521224 */ t54927 = NATIVE_PROCEDURE_TYPE20302; /* MOVE: branching squeezed to general */ if (t54926>=((struct structure_type24753 *)VALUE_OFFSET)) {t54928.tag = STRUCTURE_TYPE24753; t54928.value.structure_type24753 = t54926;} else t54928.tag = (unsigned)t54926; t54800 = f1536(t54927, t54928); /* x124487 */ t54799 = e13687; p13688 = t54799; a25449 = t54800; /* x124486 */ /* x124485 stalin.sc:14896:521491 */ /* x124478 stalin.sc:14896:521497 */ /* x124477 stalin.sc:14896:521504 */ t54924 = a25449; /* x269020 stalin.sc:14896:521498 */ if (!(((unsigned)t54924)==NULL_TYPE)) goto l8151; /* x124482 */ /* x124481 */ /* x124480 stalin.sc:14896:521511 */ /* x124479 stalin.sc:14896:521512 */ /* x296017 QobiScheme.sc:166:5314 */ /* x296016 QobiScheme.sc:166:5321 */ t54925 = "This shouldn\'t happen"; /* x296015 QobiScheme.sc:166:5315 */ stalin_panic(t54925); goto l8152; l8151: /* x124484 stalin.sc:14896:521491 */ /* x124483 stalin.sc:14896:521491 */ l8152: /* x124475 */ t54801 = p13688; p13689 = t54801; /* x124474 stalin.sc:14897:521524 */ /* x124307 stalin.sc:14897:521528 */ /* x124306 stalin.sc:14897:521535 */ /* x124305 stalin.sc:14897:521541 */ t54803 = a25449; /* x124304 stalin.sc:14897:521536 */ a35469 = t54803; /* x273233 */ /* x273232 */ t54804 = a35469; /* x273231 */ if (!(t54804>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CDR[26177] 29618]"); structure_ref_error();} t54802 = t54804->s1; /* x269024 stalin.sc:14897:521529 */ if (!((t54802.tag)==NULL_TYPE)) goto l8144; /* x124314 stalin.sc:14902:521806 */ /* x124313 stalin.sc:14902:521814 */ /* x124312 stalin.sc:14902:521821 */ /* x124311 stalin.sc:14902:521828 */ t54922 = a25449; /* x124310 stalin.sc:14902:521822 */ a35957 = t54922; /* x275185 */ /* x275184 */ t54923 = a35957; /* x275183 */ if (!(t54923>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 30106]"); structure_ref_error();} t54920 = t54923->s0; /* x124309 stalin.sc:14902:521815 */ a35956 = t54920; /* x275181 */ /* x275180 */ t54921 = a35956; /* x275179 */ if (!((t54921.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30105]"); structure_ref_error();} t54919 = t54921.value.structure_type24753->s0; /* x124308 stalin.sc:14902:521807 */ return f26181(t54919); l8144: /* x124473 stalin.sc:14905:521995 */ /* x124472 stalin.sc:14905:522011 */ /* x124470 stalin.sc:14905:522017 */ /* x124471 stalin.sc:14908:522125 */ t54916 = a25449; /* x124461 stalin.sc:14905:522012 */ t54917 = NATIVE_PROCEDURE_TYPE20426; /* MOVE: branching squeezed to general */ if (t54916>=((struct structure_type24753 *)VALUE_OFFSET)) {t54918.tag = STRUCTURE_TYPE24753; t54918.value.structure_type24753 = t54916;} else t54918.tag = (unsigned)t54916; t54806 = f1583(t54917, t54918); /* x124460 */ t54805 = p13689; p13690 = t54805; a25451 = t54806; /* x124459 stalin.sc:14910:522173 */ /* x124334 stalin.sc:14910:522177 */ /* x124322 stalin.sc:14910:522182 */ /* x124321 stalin.sc:14910:522189 */ /* x124320 stalin.sc:14910:522195 */ /* x124318 stalin.sc:14910:522204 */ t54810 = a25451; /* x124319 stalin.sc:14910:522213 */ t54811 = a25449; /* x124317 stalin.sc:14910:522196 */ /* MOVE: branching squeezed to general */ if (t54811>=((struct structure_type24753 *)VALUE_OFFSET)) {t54812.tag = STRUCTURE_TYPE24753; t54812.value.structure_type24753 = t54811;} else t54812.tag = (unsigned)t54811; t54808 = f1194(t54810, t54812); /* x124316 stalin.sc:14910:522190 */ a35468 = t54808; /* x273229 */ /* x273228 */ t54809 = a35468; /* x273227 */ if (!((t54809.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29617]"); structure_ref_error();} t54807 = t54809.value.structure_type24753->s1; /* x269023 stalin.sc:14910:522183 */ if (!((t54807.tag)==NULL_TYPE)) goto l8146; /* x124332 */ /* x124331 stalin.sc:14911:522231 */ /* x124330 stalin.sc:14911:522237 */ /* x124329 stalin.sc:14911:522244 */ /* x124327 stalin.sc:14911:522253 */ t54818 = a25451; /* x124328 stalin.sc:14911:522262 */ t54819 = a25449; /* x124326 stalin.sc:14911:522245 */ /* MOVE: branching squeezed to general */ if (t54819>=((struct structure_type24753 *)VALUE_OFFSET)) {t54820.tag = STRUCTURE_TYPE24753; t54820.value.structure_type24753 = t54819;} else t54820.tag = (unsigned)t54819; t54816 = f1194(t54818, t54820); /* x124325 stalin.sc:14911:522238 */ a35972 = t54816; /* x275245 */ /* x275244 */ t54817 = a35972; /* x275243 */ if (!((t54817.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30121]"); structure_ref_error();} t54814 = t54817.value.structure_type24753->s0; /* x124324 stalin.sc:14911:522232 */ a35467 = t54814; /* x273225 */ /* x273224 */ t54815 = a35467; /* x273223 */ if (!((t54815.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29616]"); structure_ref_error();} t54813 = t54815.value.structure_type24753->s1; /* x269022 stalin.sc:14911:522225 */ if (!((t54813.tag)==NULL_TYPE)) goto l8146; /* x124410 stalin.sc:14912:522277 */ /* x124335 stalin.sc:14912:522281 */ if ((p13690->a25448)==FALSE_TYPE) goto l8149; /* x124370 stalin.sc:14913:522292 */ /* x124353 stalin.sc:14914:522300 */ /* x124338 stalin.sc:14915:522309 */ t54891 = a25445; /* x124352 stalin.sc:14916:522315 */ /* x124351 stalin.sc:14917:522326 */ /* x124350 stalin.sc:14917:522333 */ /* x124349 stalin.sc:14917:522340 */ /* x124348 stalin.sc:14917:522347 */ /* x124347 stalin.sc:14917:522354 */ /* x124345 stalin.sc:14917:522363 */ t54902 = a25451; /* x124346 stalin.sc:14917:522372 */ t54903 = a25449; /* x124344 stalin.sc:14917:522355 */ /* MOVE: branching squeezed to general */ if (t54903>=((struct structure_type24753 *)VALUE_OFFSET)) {t54904.tag = STRUCTURE_TYPE24753; t54904.value.structure_type24753 = t54903;} else t54904.tag = (unsigned)t54903; t54900 = f1194(t54902, t54904); /* x124343 stalin.sc:14917:522348 */ a35961 = t54900; /* x275201 */ /* x275200 */ t54901 = a35961; /* x275199 */ if (!((t54901.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30110]"); structure_ref_error();} t54898 = t54901.value.structure_type24753->s0; /* x124342 stalin.sc:14917:522341 */ a35960 = t54898; /* x275197 */ /* x275196 */ t54899 = a35960; /* x275195 */ if (!((t54899.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30109]"); structure_ref_error();} t54896 = t54899.value.structure_type24753->s0; /* x124341 stalin.sc:14917:522334 */ a35959 = t54896; /* x275193 */ /* x275192 */ t54897 = a35959; /* x275191 */ if (!((t54897.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30108]"); structure_ref_error();} t54894 = t54897.value.structure_type24753->s0; /* x124340 stalin.sc:14917:522327 */ a35958 = t54894; /* x275189 */ /* x275188 */ t54895 = a35958; /* x275187 */ if (!((t54895.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30107]"); structure_ref_error();} t54893 = t54895.value.structure_type24753->s0; /* x124339 stalin.sc:14916:522316 */ t54892 = f26187(t54893); /* x124337 stalin.sc:14914:522301 */ t54887 = f13591(t54891, t54892); /* x124363 stalin.sc:14918:522387 */ /* x124362 stalin.sc:14918:522395 */ /* x124361 stalin.sc:14918:522402 */ /* x124360 stalin.sc:14918:522409 */ /* x124358 stalin.sc:14918:522418 */ t54910 = a25451; /* x124359 stalin.sc:14918:522427 */ t54911 = a25449; /* x124357 stalin.sc:14918:522410 */ /* MOVE: branching squeezed to general */ if (t54911>=((struct structure_type24753 *)VALUE_OFFSET)) {t54912.tag = STRUCTURE_TYPE24753; t54912.value.structure_type24753 = t54911;} else t54912.tag = (unsigned)t54911; t54908 = f1194(t54910, t54912); /* x124356 stalin.sc:14918:522403 */ a35963 = t54908; /* x275209 */ /* x275208 */ t54909 = a35963; /* x275207 */ if (!((t54909.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30112]"); structure_ref_error();} t54906 = t54909.value.structure_type24753->s0; /* x124355 stalin.sc:14918:522396 */ a35962 = t54906; /* x275205 */ /* x275204 */ t54907 = a35962; /* x275203 */ if (!((t54907.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30111]"); structure_ref_error();} t54905 = t54907.value.structure_type24753->s0; /* x124354 stalin.sc:14918:522388 */ t54888 = f26181(t54905); /* x124368 stalin.sc:14919:522439 */ /* x124367 stalin.sc:14919:522447 */ /* x124366 stalin.sc:14919:522454 */ t54914 = a25451; /* x124365 stalin.sc:14919:522448 */ a35964 = t54914; /* x275213 */ /* x275212 */ t54915 = a35964; /* x275211 */ if (!((t54915.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30113]"); structure_ref_error();} t54913 = t54915.value.structure_type24753->s0; /* x124364 stalin.sc:14919:522440 */ t54889 = f26181(t54913); /* x124369 stalin.sc:14920:522467 */ /* x124336 stalin.sc:14913:522293 */ t54890 = FALSE_TYPE; return f13672(t54887, t54888, t54889, t54890); l8149: /* x124409 stalin.sc:14921:522479 */ /* x124408 stalin.sc:14930:522669 */ /* x124407 stalin.sc:14930:522677 */ /* x124406 stalin.sc:14930:522684 */ t54885 = a25451; /* x124405 stalin.sc:14930:522678 */ a35971 = t54885; /* x275241 */ /* x275240 */ t54886 = a35971; /* x275239 */ if (!((t54886.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30120]"); structure_ref_error();} t54884 = t54886.value.structure_type24753->s0; /* x124404 stalin.sc:14930:522670 */ t54853 = f26181(t54884); /* x124403 stalin.sc:14922:522498 */ /* x124389 stalin.sc:14923:522507 */ /* x124374 stalin.sc:14924:522517 */ t54862 = a25445; /* x124388 stalin.sc:14925:522524 */ /* x124387 stalin.sc:14926:522536 */ /* x124386 stalin.sc:14926:522543 */ /* x124385 stalin.sc:14926:522550 */ /* x124384 stalin.sc:14926:522557 */ /* x124383 stalin.sc:14926:522564 */ /* x124381 stalin.sc:14926:522573 */ t54873 = a25451; /* x124382 stalin.sc:14926:522582 */ t54874 = a25449; /* x124380 stalin.sc:14926:522565 */ /* MOVE: branching squeezed to general */ if (t54874>=((struct structure_type24753 *)VALUE_OFFSET)) {t54875.tag = STRUCTURE_TYPE24753; t54875.value.structure_type24753 = t54874;} else t54875.tag = (unsigned)t54874; t54871 = f1194(t54873, t54875); /* x124379 stalin.sc:14926:522558 */ a35968 = t54871; /* x275229 */ /* x275228 */ t54872 = a35968; /* x275227 */ if (!((t54872.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30117]"); structure_ref_error();} t54869 = t54872.value.structure_type24753->s0; /* x124378 stalin.sc:14926:522551 */ a35967 = t54869; /* x275225 */ /* x275224 */ t54870 = a35967; /* x275223 */ if (!((t54870.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30116]"); structure_ref_error();} t54867 = t54870.value.structure_type24753->s0; /* x124377 stalin.sc:14926:522544 */ a35966 = t54867; /* x275221 */ /* x275220 */ t54868 = a35966; /* x275219 */ if (!((t54868.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30115]"); structure_ref_error();} t54865 = t54868.value.structure_type24753->s0; /* x124376 stalin.sc:14926:522537 */ a35965 = t54865; /* x275217 */ /* x275216 */ t54866 = a35965; /* x275215 */ if (!((t54866.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30114]"); structure_ref_error();} t54864 = t54866.value.structure_type24753->s0; /* x124375 stalin.sc:14925:522525 */ t54863 = f26187(t54864); /* x124373 stalin.sc:14923:522508 */ t54857 = f13591(t54862, t54863); /* x124399 stalin.sc:14927:522598 */ /* x124398 stalin.sc:14927:522606 */ /* x124397 stalin.sc:14927:522613 */ /* x124396 stalin.sc:14927:522620 */ /* x124394 stalin.sc:14927:522629 */ t54881 = a25451; /* x124395 stalin.sc:14927:522638 */ t54882 = a25449; /* x124393 stalin.sc:14927:522621 */ /* MOVE: branching squeezed to general */ if (t54882>=((struct structure_type24753 *)VALUE_OFFSET)) {t54883.tag = STRUCTURE_TYPE24753; t54883.value.structure_type24753 = t54882;} else t54883.tag = (unsigned)t54882; t54879 = f1194(t54881, t54883); /* x124392 stalin.sc:14927:522614 */ a35970 = t54879; /* x275237 */ /* x275236 */ t54880 = a35970; /* x275235 */ if (!((t54880.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30119]"); structure_ref_error();} t54877 = t54880.value.structure_type24753->s0; /* x124391 stalin.sc:14927:522607 */ a35969 = t54877; /* x275233 */ /* x275232 */ t54878 = a35969; /* x275231 */ if (!((t54878.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30118]"); structure_ref_error();} t54876 = t54878.value.structure_type24753->s0; /* x124390 stalin.sc:14927:522599 */ t54858 = f26181(t54876); /* x124401 stalin.sc:14928:522651 */ /* x124400 stalin.sc:14928:522652 */ /* x276749 stalin.sc:14693:514793 */ t54859 = ""; /* x124402 stalin.sc:14929:522663 */ /* x124372 stalin.sc:14922:522499 */ t54860.tag = STRING_TYPE; t54860.value.string_type = t54859; t54861 = FALSE_TYPE; t54852 = f13672(t54857, t54858, t54860, t54861); /* x124371 stalin.sc:14921:522480 */ t54856.tag = STRUCTURE_TYPE24753; t54856.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54856.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14921, 522479); out_of_memory_error();} t54856.value.structure_type24753->s0 = t54853; t54856.value.structure_type24753->s1.tag = NULL_TYPE; a41894 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41894==NULL) {backtrace("stalin.sc", 14921, 522479); out_of_memory_error();} a41894->s0 = t54852; a41894->s1 = t54856; /* x301688 stalin.sc:14400:506485 */ /* x301687 stalin.sc:14400:506503 */ t54854 = a41894; /* x301686 stalin.sc:14400:506486 */ t54855.tag = STRUCTURE_TYPE24753; t54855.value.structure_type24753 = t54854; return f13492(t54855); l8146: /* x124458 stalin.sc:14931:522701 */ /* x124457 stalin.sc:14933:522777 */ /* x124456 stalin.sc:14934:522798 */ /* x124455 stalin.sc:14943:523091 */ /* x124454 stalin.sc:14943:523102 */ /* x124453 stalin.sc:14943:523110 */ /* x124452 stalin.sc:14943:523117 */ t54850 = a25451; /* x124451 stalin.sc:14943:523111 */ a35973 = t54850; /* x275249 */ /* x275248 */ t54851 = a35973; /* x275247 */ if (!((t54851.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30122]"); structure_ref_error();} t54849 = t54851.value.structure_type24753->s0; /* x124450 stalin.sc:14943:523103 */ t54848 = f26181(t54849); /* x124449 stalin.sc:14943:523092 */ t54834 = f13675(t54848); /* x124448 stalin.sc:14935:522822 */ /* x124447 stalin.sc:14936:522848 */ /* x124446 stalin.sc:14942:523057 */ /* x124444 stalin.sc:14942:523066 */ t54845 = a25451; /* x124445 stalin.sc:14942:523075 */ t54846 = a25449; /* x124443 stalin.sc:14942:523058 */ /* MOVE: branching squeezed to general */ if (t54846>=((struct structure_type24753 *)VALUE_OFFSET)) {t54847.tag = STRUCTURE_TYPE24753; t54847.value.structure_type24753 = t54846;} else t54847.tag = (unsigned)t54846; t54841 = f1194(t54845, t54847); /* x124442 stalin.sc:14936:522853 */ t54840 = p13690; /* x124421 stalin.sc:14936:522849 */ t54842.tag = NATIVE_PROCEDURE_TYPE20428; t54842.value.native_procedure_type20428 = t54840; t54843 = *((struct w49 *)(&t54841)); t54844 = (struct structure_type24753 *)NULL_TYPE; t54838 = f27731(t54842, t54843, t54844); /* x124420 stalin.sc:14935:522823 */ /* MOVE: branching squeezed to general */ if (t54838>=((struct structure_type24753 *)VALUE_OFFSET)) {t54839.tag = STRUCTURE_TYPE24753; t54839.value.structure_type24753 = t54838;} else t54839.tag = (unsigned)t54838; t54833 = f13492(t54839); /* x124419 stalin.sc:14934:522799 */ t54837.tag = STRUCTURE_TYPE24753; t54837.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54837.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14934, 522798); out_of_memory_error();} t54837.value.structure_type24753->s0 = t54834; t54837.value.structure_type24753->s1.tag = NULL_TYPE; a41896 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41896==NULL) {backtrace("stalin.sc", 14934, 522798); out_of_memory_error();} a41896->s0 = t54833; a41896->s1 = t54837; /* x301696 stalin.sc:14400:506485 */ /* x301695 stalin.sc:14400:506503 */ t54835 = a41896; /* x301694 stalin.sc:14400:506486 */ t54836.tag = STRUCTURE_TYPE24753; t54836.value.structure_type24753 = t54835; t54832 = f13492(t54836); /* x124418 stalin.sc:14933:522778 */ t54822 = f13501(t54832); /* x124417 stalin.sc:14932:522723 */ /* x124416 stalin.sc:14932:522747 */ /* x124415 stalin.sc:14932:522767 */ t54831 = a25445; /* x124414 stalin.sc:14932:522748 */ t54827 = f13513(t54831); /* x124413 stalin.sc:14932:522738 */ t54826 = "switch"; /* x124412 stalin.sc:14932:522724 */ t54830.tag = STRUCTURE_TYPE24753; t54830.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54830.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14932, 522723); out_of_memory_error();} t54830.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t54830.value.structure_type24753->s0.value.structure_type24753 = t54827; t54830.value.structure_type24753->s1.tag = NULL_TYPE; a42048 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42048==NULL) {backtrace("stalin.sc", 14932, 522723); out_of_memory_error();} a42048->s0.tag = STRING_TYPE; a42048->s0.value.string_type = t54826; a42048->s1 = t54830; /* x302304 stalin.sc:14386:505956 */ /* x302303 stalin.sc:14386:505972 */ t54828 = a42048; /* x302302 stalin.sc:14386:505957 */ t54829.tag = STRUCTURE_TYPE24753; t54829.value.structure_type24753 = t54828; t54821 = f13474(t54829); /* x124411 stalin.sc:14931:522702 */ t54825.tag = STRUCTURE_TYPE24753; t54825.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54825.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14931, 522701); out_of_memory_error();} t54825.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t54825.value.structure_type24753->s0.value.structure_type24753 = t54822; t54825.value.structure_type24753->s1.tag = NULL_TYPE; a41895 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41895==NULL) {backtrace("stalin.sc", 14931, 522701); out_of_memory_error();} a41895->s0 = t54821; a41895->s1 = t54825; /* x301692 stalin.sc:14400:506485 */ /* x301691 stalin.sc:14400:506503 */ t54823 = a41895; /* x301690 stalin.sc:14400:506486 */ t54824.tag = STRUCTURE_TYPE24753; t54824.value.structure_type24753 = t54823; return f13492(t54824);} /* [inside C:SWITCH 13686] */ struct structure_type24753 *f13686(struct w49 a25443, struct w49 a25444) {struct structure_type24753 *a35133; /* OBJS */ struct structure_type24753 *a42045; /* CS */ struct structure_type24753 *t54934; struct w49 t54935; struct w49 t54936; struct w49 t54937; char *t54938; struct w49 t54939; struct structure_type24753 *t54940; struct w49 t54941; struct w49 t54942; /* x124293 stalin.sc:14830:519283 */ /* x124292 stalin.sc:14830:519329 */ t54935 = a25444; /* x124291 stalin.sc:14830:519289 */ /* x124290 stalin.sc:14830:519302 */ /* x124289 stalin.sc:14830:519324 */ t54939 = a25443; /* x124288 stalin.sc:14830:519317 */ t54938 = "case"; /* x124287 stalin.sc:14830:519303 */ t54942.tag = STRUCTURE_TYPE24753; t54942.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54942.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14830, 519302); out_of_memory_error();} t54942.value.structure_type24753->s0 = t54939; t54942.value.structure_type24753->s1.tag = NULL_TYPE; a42045 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42045==NULL) {backtrace("stalin.sc", 14830, 519302); out_of_memory_error();} a42045->s0.tag = STRING_TYPE; a42045->s0.value.string_type = t54938; a42045->s1 = t54942; /* x302292 stalin.sc:14386:505956 */ /* x302291 stalin.sc:14386:505972 */ t54940 = a42045; /* x302290 stalin.sc:14386:505957 */ t54941.tag = STRUCTURE_TYPE24753; t54941.value.structure_type24753 = t54940; t54937 = f13474(t54941); /* x124286 stalin.sc:14830:519290 */ t54934 = f13515(t54937); /* x124285 stalin.sc:14830:519284 */ t54936.tag = STRUCTURE_TYPE24753; t54936.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54936.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14830, 519283); out_of_memory_error();} t54936.value.structure_type24753->s0 = t54935; t54936.value.structure_type24753->s1.tag = NULL_TYPE; a35133 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35133==NULL) {backtrace("stalin.sc", 14830, 519283); out_of_memory_error();} a35133->s0.tag = STRUCTURE_TYPE24753; a35133->s0.value.structure_type24753 = t54934; a35133->s1 = t54936; /* x272273 */ return a35133;} /* [inside C:SWITCH 13680] */ struct w49 f13680(struct p13676 *p13680, struct w49 a25438) {struct w49 a35653; /* PAIR */ struct structure_type24753 *a41750; /* CS */ struct w49 t54943; struct w49 t54944; struct w61020 t54945; struct structure_type24753 *t54946; struct w49 t54947; struct w49 t54948; struct w49 t54949; struct structure_type24753 *t54950; struct w49 t54951; struct w49 t54952; struct w36270 t54953; struct w49 t54954; struct structure_type24753 *t54955; struct w49 t54956; struct w49 t54957; struct w49 t54958; char *t54959; struct w49 t54960; struct structure_type24753 *t54961; /* x124216 stalin.sc:14877:520728 */ /* x124215 stalin.sc:14880:520829 */ /* x124209 stalin.sc:14880:520833 */ if ((p13680->a25434)==FALSE_TYPE) goto l8154; /* x124212 stalin.sc:14880:520836 */ /* x124211 stalin.sc:14880:520853 */ t54959 = "break"; /* x124210 stalin.sc:14880:520837 */ t54960.tag = STRING_TYPE; t54960.value.string_type = t54959; t54961 = f13514(t54960); t54945.tag = STRUCTURE_TYPE24753; t54945.value.structure_type24753 = t54961; goto l8155; l8154: /* x124214 stalin.sc:14880:520862 */ /* x124213 stalin.sc:14880:520863 */ /* x276411 stalin.sc:14693:514793 */ t54945.tag = STRING_TYPE; t54945.value.string_type = ""; l8155: /* x124208 stalin.sc:14879:520798 */ /* x124207 stalin.sc:14879:520806 */ /* x124206 stalin.sc:14879:520813 */ t54957 = a25438; /* x124205 stalin.sc:14879:520807 */ a35653 = t54957; /* x273969 */ /* x273968 */ t54958 = a35653; /* x273967 */ if (!((t54958.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29802]"); structure_ref_error();} t54956 = t54958.value.structure_type24753->s0; /* x124204 stalin.sc:14879:520799 */ t54944 = f26181(t54956); /* x124203 stalin.sc:14878:520753 */ /* x124202 stalin.sc:14878:520771 */ /* x124201 stalin.sc:14878:520782 */ t54952 = a25438; /* x124200 stalin.sc:14878:520776 */ /* x124199 stalin.sc:14878:520772 */ t54953.tag = NATIVE_PROCEDURE_TYPE494; t54954 = t54952; t54955 = (struct structure_type24753 *)NULL_TYPE; t54950 = f27731(t54953, t54954, t54955); /* x124198 stalin.sc:14878:520754 */ /* MOVE: branching squeezed to general */ if (t54950>=((struct structure_type24753 *)VALUE_OFFSET)) {t54951.tag = STRUCTURE_TYPE24753; t54951.value.structure_type24753 = t54950;} else t54951.tag = (unsigned)t54950; t54943 = f13492(t54951); /* x124197 stalin.sc:14877:520729 */ t54949.tag = STRUCTURE_TYPE24753; t54949.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54949.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14877, 520728); out_of_memory_error();} t54949.value.structure_type24753->s0 = *((struct w49 *)(&t54945)); t54949.value.structure_type24753->s1.tag = NULL_TYPE; t54948.tag = STRUCTURE_TYPE24753; t54948.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54948.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14877, 520728); out_of_memory_error();} t54948.value.structure_type24753->s0 = t54944; t54948.value.structure_type24753->s1 = t54949; a41750 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41750==NULL) {backtrace("stalin.sc", 14877, 520728); out_of_memory_error();} a41750->s0 = t54943; a41750->s1 = t54948; /* x301112 stalin.sc:14400:506485 */ /* x301111 stalin.sc:14400:506503 */ t54946 = a41750; /* x301110 stalin.sc:14400:506486 */ t54947.tag = STRUCTURE_TYPE24753; t54947.value.structure_type24753 = t54946; return f13492(t54947);} /* C:SWITCH[13676] */ struct w49 f13676(struct w49 a25430, struct structure_type24753 *a25431, struct structure_type24753 *a25432, struct w49 a25433, unsigned a25434) {struct structure_type24753 *a25435; /* CASES */ struct w49 a25437; /* THE-CASE */ struct structure_type24753 *a35132; /* OBJS */ struct w49 a35464; /* PAIR */ struct w12224 a35465; /* PAIR */ struct structure_type24753 *a35466; /* PAIR */ struct w49 a35938; /* PAIR */ struct structure_type24753 *a35939; /* PAIR */ struct w49 a35940; /* PAIR */ struct w49 a35941; /* PAIR */ struct w49 a35942; /* PAIR */ struct w12224 a35943; /* PAIR */ struct w49 a35944; /* PAIR */ struct w12224 a35945; /* PAIR */ struct w49 a35946; /* PAIR */ struct w49 a35947; /* PAIR */ struct w49 a35948; /* PAIR */ struct w49 a35949; /* PAIR */ struct w12224 a35950; /* PAIR */ struct w49 a35951; /* PAIR */ struct w12224 a35952; /* PAIR */ struct w49 a35953; /* PAIR */ struct w12224 a35954; /* PAIR */ struct w49 a35955; /* PAIR */ struct structure_type24753 *a41889; /* CS */ struct structure_type24753 *a41890; /* CS */ struct structure_type24753 *a41891; /* CS */ struct structure_type24753 *a42044; /* CS */ struct p13676 *t54962; struct structure_type24753 *t54963; struct p13676 *t54964; struct w49 t54965; struct structure_type24753 *t54966; struct structure_type24753 *t54967; struct p13676 *t54968; struct w49 t54969; struct w49 t54970; struct w12224 t54971; struct w12224 t54972; struct w49 t54973; struct structure_type24753 *t54974; struct w49 t54975; struct w49 t54976; struct w49 t54977; struct w49 t54978; struct w12224 t54979; struct w12224 t54980; struct w49 t54981; struct structure_type24753 *t54982; struct w49 t54983; struct w49 t54984; struct structure_type24753 *t54985; struct structure_type24753 *t54986; struct w49 t54987; struct w49 t54988; char *t54989; struct structure_type24753 *t54990; struct structure_type24753 *t54991; struct w49 t54992; struct w49 t54993; struct w49 t54994; struct w49 t54995; struct w49 t54996; struct w49 t54997; struct structure_type24753 *t54998; struct w49 t54999; struct w49 t55000; struct structure_type24753 *t55001; struct w49 t55002; struct p13676 *t55003; struct w12224 t55004; struct w36270 t55005; struct w49 t55006; struct structure_type24753 *t55007; struct w49 t55008; struct structure_type24753 *t55009; struct w49 t55010; struct w49 t55011; struct w49 t55012; struct w49 t55013; struct w49 t55014; struct w49 t55015; struct w49 t55016; struct structure_type24753 *t55017; struct w49 t55018; struct w49 t55019; struct structure_type24753 *t55020; struct w49 t55021; char *t55022; struct w49 t55023; unsigned t55024; struct w49 t55025; struct w49 t55026; struct w49 t55027; struct w49 t55028; struct w49 t55029; struct w49 t55030; struct w49 t55031; struct w49 t55032; struct w49 t55033; struct w12224 t55034; struct w12224 t55035; struct w49 t55036; struct structure_type24753 *t55037; struct w49 t55038; struct w49 t55039; struct w49 t55040; struct w49 t55041; struct w12224 t55042; struct w12224 t55043; struct w49 t55044; struct structure_type24753 *t55045; struct w49 t55046; struct w49 t55047; struct w49 t55048; struct w49 t55049; struct structure_type24753 *t55050; struct w49 t55051; struct w49 t55052; unsigned t55053; struct w49 t55054; struct w49 t55055; struct w49 t55056; struct w49 t55057; struct w49 t55058; struct w49 t55059; struct w49 t55060; struct w49 t55061; struct w49 t55062; struct w12224 t55063; struct w12224 t55064; struct w49 t55065; struct structure_type24753 *t55066; struct w49 t55067; struct w49 t55068; struct w49 t55069; struct w49 t55070; struct w12224 t55071; struct w12224 t55072; struct w49 t55073; struct structure_type24753 *t55074; struct w49 t55075; struct w49 t55076; struct w49 t55077; struct w49 t55078; struct structure_type24753 *t55079; struct w227506 t55080; struct w49 t55081; struct w49 t55082; struct w49 t55083; struct w49 t55084; struct structure_type24753 *t55085; struct structure_type24753 *t55086; struct structure_type24753 *t55087; char *t55088; struct structure_type24753 *t55089; unsigned t55090; struct w49 t55091; struct structure_type24753 *t55092; struct structure_type24753 *t55093; struct structure_type24753 *t55094; struct w49 t55095; struct w49 t55096; char *t55097; struct w49 t55098; struct structure_type24753 *t55099; struct structure_type24753 *t55100; struct w36270 t55101; struct w49 t55102; struct structure_type24753 *t55103; struct p13676 *e13676; struct p13676 *p13677; struct p13676 *p13678; struct p13676 *p13679; e13676 = (struct p13676 *)alloca(sizeof(struct p13676)); if (e13676==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e13676->a25434 = a25434; /* x124300 stalin.sc:14824:519051 */ /* x124299 stalin.sc:14824:519064 */ /* x124276 stalin.sc:14825:519105 */ /* x124298 stalin.sc:14828:519209 */ /* x124283 stalin.sc:14828:519215 */ /* x124282 stalin.sc:14828:519245 */ t55095 = a25433; /* x124281 stalin.sc:14828:519221 */ /* x124280 stalin.sc:14828:519234 */ t55097 = "default"; /* x124279 stalin.sc:14828:519222 */ t55098.tag = STRING_TYPE; t55098.value.string_type = t55097; t55094 = f13515(t55098); /* x124278 stalin.sc:14828:519216 */ t55096.tag = STRUCTURE_TYPE24753; t55096.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55096.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14828, 519215); out_of_memory_error();} t55096.value.structure_type24753->s0 = t55095; t55096.value.structure_type24753->s1.tag = NULL_TYPE; a35132 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35132==NULL) {backtrace("stalin.sc", 14828, 519215); out_of_memory_error();} a35132->s0.tag = STRUCTURE_TYPE24753; a35132->s0.value.structure_type24753 = t55094; a35132->s1 = t55096; /* x272271 */ t55092 = a35132; /* x124297 stalin.sc:14829:519256 */ /* x124296 stalin.sc:14831:519343 */ t55100 = a25432; /* x124295 stalin.sc:14831:519339 */ t55099 = a25431; /* x124294 stalin.sc:14829:519261 */ /* x124284 stalin.sc:14829:519257 */ t55101.tag = NATIVE_PROCEDURE_TYPE20446; /* MOVE: branching squeezed to general */ if (t55099>=((struct structure_type24753 *)VALUE_OFFSET)) {t55102.tag = STRUCTURE_TYPE24753; t55102.value.structure_type24753 = t55099;} else t55102.tag = (unsigned)t55099; t55103 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t55103==NULL) {backtrace("stalin.sc", 14829, 519256); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t55100>=((struct structure_type24753 *)VALUE_OFFSET)) {t55103->s0.tag = STRUCTURE_TYPE24753; t55103->s0.value.structure_type24753 = t55100;} else t55103->s0.tag = (unsigned)t55100; t55103->s1.tag = NULL_TYPE; t55093 = f27731(t55101, t55102, t55103); /* x269025 stalin.sc:14828:519210 */ t55089 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t55089==NULL) {backtrace("stalin.sc", 14828, 519209); out_of_memory_error();} t55089->s0.tag = STRUCTURE_TYPE24753; t55089->s0.value.structure_type24753 = t55092; /* MOVE: branching squeezed to general */ if (t55093>=((struct structure_type24753 *)VALUE_OFFSET)) {t55089->s1.tag = STRUCTURE_TYPE24753; t55089->s1.value.structure_type24753 = t55093;} else t55089->s1.tag = (unsigned)t55093; /* x124267 stalin.sc:14824:519065 */ t55090 = NATIVE_PROCEDURE_TYPE20447; t55091.tag = STRUCTURE_TYPE24753; t55091.value.structure_type24753 = t55089; t54963 = f1536(t55090, t55091); /* x124266 */ t54962 = e13676; p13677 = t54962; a25435 = t54963; /* x124265 */ /* x124264 stalin.sc:14833:519378 */ /* x124257 stalin.sc:14833:519384 */ /* x124256 stalin.sc:14833:519391 */ t55087 = a25435; /* x269026 stalin.sc:14833:519385 */ if (!(((unsigned)t55087)==NULL_TYPE)) goto l8164; /* x124261 */ /* x124260 */ /* x124259 stalin.sc:14833:519398 */ /* x124258 stalin.sc:14833:519399 */ /* x296009 QobiScheme.sc:166:5314 */ /* x296008 QobiScheme.sc:166:5321 */ t55088 = "This shouldn\'t happen"; /* x296007 QobiScheme.sc:166:5315 */ stalin_panic(t55088); goto l8165; l8164: /* x124263 stalin.sc:14833:519378 */ /* x124262 stalin.sc:14833:519378 */ l8165: /* x124254 */ t54964 = p13677; p13678 = t54964; /* x124253 stalin.sc:14834:519411 */ /* x124082 stalin.sc:14834:519415 */ /* x124081 stalin.sc:14834:519422 */ /* x124080 stalin.sc:14834:519428 */ t54966 = a25435; /* x124079 stalin.sc:14834:519423 */ a35466 = t54966; /* x273221 */ /* x273220 */ t54967 = a35466; /* x273219 */ if (!(t54967>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CDR[26177] 29615]"); structure_ref_error();} t54965 = t54967->s1; /* x269029 stalin.sc:14834:519416 */ if (!((t54965.tag)==NULL_TYPE)) goto l8157; /* x124089 stalin.sc:14839:519693 */ /* x124088 stalin.sc:14839:519701 */ /* x124087 stalin.sc:14839:519708 */ /* x124086 stalin.sc:14839:519715 */ t55085 = a25435; /* x124085 stalin.sc:14839:519709 */ a35939 = t55085; /* x275113 */ /* x275112 */ t55086 = a35939; /* x275111 */ if (!(t55086>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 30088]"); structure_ref_error();} t55083 = t55086->s0; /* x124084 stalin.sc:14839:519702 */ a35938 = t55083; /* x275109 */ /* x275108 */ t55084 = a35938; /* x275107 */ if (!((t55084.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30087]"); structure_ref_error();} t55082 = t55084.value.structure_type24753->s0; /* x124083 stalin.sc:14839:519694 */ return f26181(t55082); l8157: /* x124252 stalin.sc:14840:519730 */ /* x124251 stalin.sc:14841:519752 */ /* x124249 stalin.sc:14841:519761 */ /* x124250 stalin.sc:14847:519948 */ t55079 = a25435; /* x124236 stalin.sc:14841:519753 */ t55080.tag = NATIVE_PROCEDURE_TYPE20452; /* MOVE: branching squeezed to general */ if (t55079>=((struct structure_type24753 *)VALUE_OFFSET)) {t55081.tag = STRUCTURE_TYPE24753; t55081.value.structure_type24753 = t55079;} else t55081.tag = (unsigned)t55079; t54969 = f1314(t55080, t55081); /* x124235 */ t54968 = p13678; p13679 = t54968; a25437 = t54969; /* x124234 stalin.sc:14849:519996 */ /* x124109 stalin.sc:14849:520000 */ /* x124097 stalin.sc:14849:520005 */ /* x124096 stalin.sc:14849:520012 */ /* x124095 stalin.sc:14849:520018 */ /* x124093 stalin.sc:14849:520027 */ t54973 = a25437; /* x124094 stalin.sc:14849:520036 */ t54974 = a25435; /* x124092 stalin.sc:14849:520019 */ /* MOVE: branching squeezed to general */ if (t54974>=((struct structure_type24753 *)VALUE_OFFSET)) {t54975.tag = STRUCTURE_TYPE24753; t54975.value.structure_type24753 = t54974;} else t54975.tag = (unsigned)t54974; t54971 = f1194(t54973, t54975); /* x124091 stalin.sc:14849:520013 */ a35465 = t54971; /* x273217 */ /* x273216 */ t54972 = a35465; /* x273215 */ if (!((t54972.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29614]"); structure_ref_error();} t54970 = t54972.value.structure_type24753->s1; /* x269028 stalin.sc:14849:520006 */ if (!((t54970.tag)==NULL_TYPE)) goto l8159; /* x124107 */ /* x124106 stalin.sc:14850:520054 */ /* x124105 stalin.sc:14850:520060 */ /* x124104 stalin.sc:14850:520067 */ /* x124102 stalin.sc:14850:520076 */ t54981 = a25437; /* x124103 stalin.sc:14850:520085 */ t54982 = a25435; /* x124101 stalin.sc:14850:520068 */ /* MOVE: branching squeezed to general */ if (t54982>=((struct structure_type24753 *)VALUE_OFFSET)) {t54983.tag = STRUCTURE_TYPE24753; t54983.value.structure_type24753 = t54982;} else t54983.tag = (unsigned)t54982; t54979 = f1194(t54981, t54983); /* x124100 stalin.sc:14850:520061 */ a35954 = t54979; /* x275173 */ /* x275172 */ t54980 = a35954; /* x275171 */ if (!((t54980.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30103]"); structure_ref_error();} t54977 = t54980.value.structure_type24753->s0; /* x124099 stalin.sc:14850:520055 */ a35464 = t54977; /* x273213 */ /* x273212 */ t54978 = a35464; /* x273211 */ if (!((t54978.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29613]"); structure_ref_error();} t54976 = t54978.value.structure_type24753->s1; /* x269027 stalin.sc:14850:520048 */ if (!((t54976.tag)==NULL_TYPE)) goto l8159; /* x124185 stalin.sc:14851:520100 */ /* x124110 stalin.sc:14851:520104 */ if ((p13679->a25434)==FALSE_TYPE) goto l8162; /* x124145 stalin.sc:14852:520115 */ /* x124128 stalin.sc:14853:520123 */ /* x124113 stalin.sc:14854:520132 */ t55054 = a25430; /* x124127 stalin.sc:14855:520138 */ /* x124126 stalin.sc:14856:520149 */ /* x124125 stalin.sc:14856:520156 */ /* x124124 stalin.sc:14856:520163 */ /* x124123 stalin.sc:14856:520170 */ /* x124122 stalin.sc:14856:520177 */ /* x124120 stalin.sc:14856:520186 */ t55065 = a25437; /* x124121 stalin.sc:14856:520195 */ t55066 = a25435; /* x124119 stalin.sc:14856:520178 */ /* MOVE: branching squeezed to general */ if (t55066>=((struct structure_type24753 *)VALUE_OFFSET)) {t55067.tag = STRUCTURE_TYPE24753; t55067.value.structure_type24753 = t55066;} else t55067.tag = (unsigned)t55066; t55063 = f1194(t55065, t55067); /* x124118 stalin.sc:14856:520171 */ a35943 = t55063; /* x275129 */ /* x275128 */ t55064 = a35943; /* x275127 */ if (!((t55064.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30092]"); structure_ref_error();} t55061 = t55064.value.structure_type24753->s0; /* x124117 stalin.sc:14856:520164 */ a35942 = t55061; /* x275125 */ /* x275124 */ t55062 = a35942; /* x275123 */ if (!((t55062.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30091]"); structure_ref_error();} t55059 = t55062.value.structure_type24753->s0; /* x124116 stalin.sc:14856:520157 */ a35941 = t55059; /* x275121 */ /* x275120 */ t55060 = a35941; /* x275119 */ if (!((t55060.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30090]"); structure_ref_error();} t55057 = t55060.value.structure_type24753->s0; /* x124115 stalin.sc:14856:520150 */ a35940 = t55057; /* x275117 */ /* x275116 */ t55058 = a35940; /* x275115 */ if (!((t55058.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30089]"); structure_ref_error();} t55056 = t55058.value.structure_type24753->s0; /* x124114 stalin.sc:14855:520139 */ t55055 = f26187(t55056); /* x124112 stalin.sc:14853:520124 */ t55050 = f13591(t55054, t55055); /* x124138 stalin.sc:14857:520210 */ /* x124137 stalin.sc:14857:520218 */ /* x124136 stalin.sc:14857:520225 */ /* x124135 stalin.sc:14857:520232 */ /* x124133 stalin.sc:14857:520241 */ t55073 = a25437; /* x124134 stalin.sc:14857:520250 */ t55074 = a25435; /* x124132 stalin.sc:14857:520233 */ /* MOVE: branching squeezed to general */ if (t55074>=((struct structure_type24753 *)VALUE_OFFSET)) {t55075.tag = STRUCTURE_TYPE24753; t55075.value.structure_type24753 = t55074;} else t55075.tag = (unsigned)t55074; t55071 = f1194(t55073, t55075); /* x124131 stalin.sc:14857:520226 */ a35945 = t55071; /* x275137 */ /* x275136 */ t55072 = a35945; /* x275135 */ if (!((t55072.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30094]"); structure_ref_error();} t55069 = t55072.value.structure_type24753->s0; /* x124130 stalin.sc:14857:520219 */ a35944 = t55069; /* x275133 */ /* x275132 */ t55070 = a35944; /* x275131 */ if (!((t55070.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30093]"); structure_ref_error();} t55068 = t55070.value.structure_type24753->s0; /* x124129 stalin.sc:14857:520211 */ t55051 = f26181(t55068); /* x124143 stalin.sc:14858:520262 */ /* x124142 stalin.sc:14858:520270 */ /* x124141 stalin.sc:14858:520277 */ t55077 = a25437; /* x124140 stalin.sc:14858:520271 */ a35946 = t55077; /* x275141 */ /* x275140 */ t55078 = a35946; /* x275139 */ if (!((t55078.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30095]"); structure_ref_error();} t55076 = t55078.value.structure_type24753->s0; /* x124139 stalin.sc:14858:520263 */ t55052 = f26181(t55076); /* x124144 stalin.sc:14859:520290 */ /* x124111 stalin.sc:14852:520116 */ t55053 = FALSE_TYPE; return f13672(t55050, t55051, t55052, t55053); l8162: /* x124184 stalin.sc:14860:520302 */ /* x124183 stalin.sc:14869:520492 */ /* x124182 stalin.sc:14869:520500 */ /* x124181 stalin.sc:14869:520507 */ t55048 = a25437; /* x124180 stalin.sc:14869:520501 */ a35953 = t55048; /* x275169 */ /* x275168 */ t55049 = a35953; /* x275167 */ if (!((t55049.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30102]"); structure_ref_error();} t55047 = t55049.value.structure_type24753->s0; /* x124179 stalin.sc:14869:520493 */ t55016 = f26181(t55047); /* x124178 stalin.sc:14861:520321 */ /* x124164 stalin.sc:14862:520330 */ /* x124149 stalin.sc:14863:520340 */ t55025 = a25430; /* x124163 stalin.sc:14864:520347 */ /* x124162 stalin.sc:14865:520359 */ /* x124161 stalin.sc:14865:520366 */ /* x124160 stalin.sc:14865:520373 */ /* x124159 stalin.sc:14865:520380 */ /* x124158 stalin.sc:14865:520387 */ /* x124156 stalin.sc:14865:520396 */ t55036 = a25437; /* x124157 stalin.sc:14865:520405 */ t55037 = a25435; /* x124155 stalin.sc:14865:520388 */ /* MOVE: branching squeezed to general */ if (t55037>=((struct structure_type24753 *)VALUE_OFFSET)) {t55038.tag = STRUCTURE_TYPE24753; t55038.value.structure_type24753 = t55037;} else t55038.tag = (unsigned)t55037; t55034 = f1194(t55036, t55038); /* x124154 stalin.sc:14865:520381 */ a35950 = t55034; /* x275157 */ /* x275156 */ t55035 = a35950; /* x275155 */ if (!((t55035.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30099]"); structure_ref_error();} t55032 = t55035.value.structure_type24753->s0; /* x124153 stalin.sc:14865:520374 */ a35949 = t55032; /* x275153 */ /* x275152 */ t55033 = a35949; /* x275151 */ if (!((t55033.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30098]"); structure_ref_error();} t55030 = t55033.value.structure_type24753->s0; /* x124152 stalin.sc:14865:520367 */ a35948 = t55030; /* x275149 */ /* x275148 */ t55031 = a35948; /* x275147 */ if (!((t55031.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30097]"); structure_ref_error();} t55028 = t55031.value.structure_type24753->s0; /* x124151 stalin.sc:14865:520360 */ a35947 = t55028; /* x275145 */ /* x275144 */ t55029 = a35947; /* x275143 */ if (!((t55029.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30096]"); structure_ref_error();} t55027 = t55029.value.structure_type24753->s0; /* x124150 stalin.sc:14864:520348 */ t55026 = f26187(t55027); /* x124148 stalin.sc:14862:520331 */ t55020 = f13591(t55025, t55026); /* x124174 stalin.sc:14866:520421 */ /* x124173 stalin.sc:14866:520429 */ /* x124172 stalin.sc:14866:520436 */ /* x124171 stalin.sc:14866:520443 */ /* x124169 stalin.sc:14866:520452 */ t55044 = a25437; /* x124170 stalin.sc:14866:520461 */ t55045 = a25435; /* x124168 stalin.sc:14866:520444 */ /* MOVE: branching squeezed to general */ if (t55045>=((struct structure_type24753 *)VALUE_OFFSET)) {t55046.tag = STRUCTURE_TYPE24753; t55046.value.structure_type24753 = t55045;} else t55046.tag = (unsigned)t55045; t55042 = f1194(t55044, t55046); /* x124167 stalin.sc:14866:520437 */ a35952 = t55042; /* x275165 */ /* x275164 */ t55043 = a35952; /* x275163 */ if (!((t55043.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30101]"); structure_ref_error();} t55040 = t55043.value.structure_type24753->s0; /* x124166 stalin.sc:14866:520430 */ a35951 = t55040; /* x275161 */ /* x275160 */ t55041 = a35951; /* x275159 */ if (!((t55041.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30100]"); structure_ref_error();} t55039 = t55041.value.structure_type24753->s0; /* x124165 stalin.sc:14866:520422 */ t55021 = f26181(t55039); /* x124176 stalin.sc:14867:520474 */ /* x124175 stalin.sc:14867:520475 */ /* x276743 stalin.sc:14693:514793 */ t55022 = ""; /* x124177 stalin.sc:14868:520486 */ /* x124147 stalin.sc:14861:520322 */ t55023.tag = STRING_TYPE; t55023.value.string_type = t55022; t55024 = FALSE_TYPE; t55015 = f13672(t55020, t55021, t55023, t55024); /* x124146 stalin.sc:14860:520303 */ t55019.tag = STRUCTURE_TYPE24753; t55019.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55019.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14860, 520302); out_of_memory_error();} t55019.value.structure_type24753->s0 = t55016; t55019.value.structure_type24753->s1.tag = NULL_TYPE; a41889 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41889==NULL) {backtrace("stalin.sc", 14860, 520302); out_of_memory_error();} a41889->s0 = t55015; a41889->s1 = t55019; /* x301668 stalin.sc:14400:506485 */ /* x301667 stalin.sc:14400:506503 */ t55017 = a41889; /* x301666 stalin.sc:14400:506486 */ t55018.tag = STRUCTURE_TYPE24753; t55018.value.structure_type24753 = t55017; return f13492(t55018); l8159: /* x124233 stalin.sc:14870:520524 */ /* x124232 stalin.sc:14872:520600 */ /* x124231 stalin.sc:14873:520621 */ /* x124230 stalin.sc:14882:520914 */ /* x124229 stalin.sc:14882:520925 */ /* x124228 stalin.sc:14882:520933 */ /* x124227 stalin.sc:14882:520940 */ t55013 = a25437; /* x124226 stalin.sc:14882:520934 */ a35955 = t55013; /* x275177 */ /* x275176 */ t55014 = a35955; /* x275175 */ if (!((t55014.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30104]"); structure_ref_error();} t55012 = t55014.value.structure_type24753->s0; /* x124225 stalin.sc:14882:520926 */ t55011 = f26181(t55012); /* x124224 stalin.sc:14882:520915 */ t54997 = f13675(t55011); /* x124223 stalin.sc:14874:520645 */ /* x124222 stalin.sc:14875:520671 */ /* x124221 stalin.sc:14881:520880 */ /* x124219 stalin.sc:14881:520889 */ t55008 = a25437; /* x124220 stalin.sc:14881:520898 */ t55009 = a25435; /* x124218 stalin.sc:14881:520881 */ /* MOVE: branching squeezed to general */ if (t55009>=((struct structure_type24753 *)VALUE_OFFSET)) {t55010.tag = STRUCTURE_TYPE24753; t55010.value.structure_type24753 = t55009;} else t55010.tag = (unsigned)t55009; t55004 = f1194(t55008, t55010); /* x124217 stalin.sc:14875:520676 */ t55003 = p13679; /* x124196 stalin.sc:14875:520672 */ t55005.tag = NATIVE_PROCEDURE_TYPE20455; t55005.value.native_procedure_type20455 = t55003; t55006 = *((struct w49 *)(&t55004)); t55007 = (struct structure_type24753 *)NULL_TYPE; t55001 = f27731(t55005, t55006, t55007); /* x124195 stalin.sc:14874:520646 */ /* MOVE: branching squeezed to general */ if (t55001>=((struct structure_type24753 *)VALUE_OFFSET)) {t55002.tag = STRUCTURE_TYPE24753; t55002.value.structure_type24753 = t55001;} else t55002.tag = (unsigned)t55001; t54996 = f13492(t55002); /* x124194 stalin.sc:14873:520622 */ t55000.tag = STRUCTURE_TYPE24753; t55000.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55000.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14873, 520621); out_of_memory_error();} t55000.value.structure_type24753->s0 = t54997; t55000.value.structure_type24753->s1.tag = NULL_TYPE; a41891 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41891==NULL) {backtrace("stalin.sc", 14873, 520621); out_of_memory_error();} a41891->s0 = t54996; a41891->s1 = t55000; /* x301676 stalin.sc:14400:506485 */ /* x301675 stalin.sc:14400:506503 */ t54998 = a41891; /* x301674 stalin.sc:14400:506486 */ t54999.tag = STRUCTURE_TYPE24753; t54999.value.structure_type24753 = t54998; t54995 = f13492(t54999); /* x124193 stalin.sc:14872:520601 */ t54985 = f13501(t54995); /* x124192 stalin.sc:14871:520546 */ /* x124191 stalin.sc:14871:520570 */ /* x124190 stalin.sc:14871:520590 */ t54994 = a25430; /* x124189 stalin.sc:14871:520571 */ t54990 = f13513(t54994); /* x124188 stalin.sc:14871:520561 */ t54989 = "switch"; /* x124187 stalin.sc:14871:520547 */ t54993.tag = STRUCTURE_TYPE24753; t54993.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54993.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14871, 520546); out_of_memory_error();} t54993.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t54993.value.structure_type24753->s0.value.structure_type24753 = t54990; t54993.value.structure_type24753->s1.tag = NULL_TYPE; a42044 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42044==NULL) {backtrace("stalin.sc", 14871, 520546); out_of_memory_error();} a42044->s0.tag = STRING_TYPE; a42044->s0.value.string_type = t54989; a42044->s1 = t54993; /* x302288 stalin.sc:14386:505956 */ /* x302287 stalin.sc:14386:505972 */ t54991 = a42044; /* x302286 stalin.sc:14386:505957 */ t54992.tag = STRUCTURE_TYPE24753; t54992.value.structure_type24753 = t54991; t54984 = f13474(t54992); /* x124186 stalin.sc:14870:520525 */ t54988.tag = STRUCTURE_TYPE24753; t54988.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t54988.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14870, 520524); out_of_memory_error();} t54988.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t54988.value.structure_type24753->s0.value.structure_type24753 = t54985; t54988.value.structure_type24753->s1.tag = NULL_TYPE; a41890 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41890==NULL) {backtrace("stalin.sc", 14870, 520524); out_of_memory_error();} a41890->s0 = t54984; a41890->s1 = t54988; /* x301672 stalin.sc:14400:506485 */ /* x301671 stalin.sc:14400:506503 */ t54986 = a41890; /* x301670 stalin.sc:14400:506486 */ t54987.tag = STRUCTURE_TYPE24753; t54987.value.structure_type24753 = t54986; return f13492(t54987);} /* C:DEFAULT[13675] */ struct w49 f13675(struct w49 a25429) {struct structure_type24753 *a41897; /* CS */ struct structure_type24753 *t55104; struct w49 t55105; struct structure_type24753 *t55106; struct w49 t55107; struct w49 t55108; char *t55109; struct w49 t55110; /* x124075 stalin.sc:14821:518968 */ /* x124074 stalin.sc:14821:519009 */ t55105 = a25429; /* x124073 stalin.sc:14821:518985 */ /* x124072 stalin.sc:14821:518998 */ t55109 = "default"; /* x124071 stalin.sc:14821:518986 */ t55110.tag = STRING_TYPE; t55110.value.string_type = t55109; t55104 = f13515(t55110); /* x124070 stalin.sc:14821:518969 */ t55108.tag = STRUCTURE_TYPE24753; t55108.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55108.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14821, 518968); out_of_memory_error();} t55108.value.structure_type24753->s0 = t55105; t55108.value.structure_type24753->s1.tag = NULL_TYPE; a41897 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41897==NULL) {backtrace("stalin.sc", 14821, 518968); out_of_memory_error();} a41897->s0.tag = STRUCTURE_TYPE24753; a41897->s0.value.structure_type24753 = t55104; a41897->s1 = t55108; /* x301700 stalin.sc:14400:506485 */ /* x301699 stalin.sc:14400:506503 */ t55106 = a41897; /* x301698 stalin.sc:14400:506486 */ t55107.tag = STRUCTURE_TYPE24753; t55107.value.structure_type24753 = t55106; return f13492(t55107);} /* EQUATE-CASES[13673] */ struct structure_type24753 *f13673(struct structure_type24753 *a25425, struct structure_type24753 *a25426) {struct structure_type24753 *t55111; unsigned t55112; struct w49 t55113; struct structure_type24753 *t55114; struct structure_type24753 *t55115; struct w36270 t55116; struct w49 t55117; struct structure_type24753 *t55118; /* x124067 stalin.sc:14815:518789 */ /* x124061 stalin.sc:14816:518824 */ /* x124066 stalin.sc:14819:518924 */ /* x124065 stalin.sc:14819:518938 */ t55115 = a25426; /* x124064 stalin.sc:14819:518934 */ t55114 = a25425; /* x124063 stalin.sc:14819:518929 */ /* x124062 stalin.sc:14819:518925 */ t55116.tag = NATIVE_PROCEDURE_TYPE460; /* MOVE: branching squeezed to general */ if (t55114>=((struct structure_type24753 *)VALUE_OFFSET)) {t55117.tag = STRUCTURE_TYPE24753; t55117.value.structure_type24753 = t55114;} else t55117.tag = (unsigned)t55114; t55118 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t55118==NULL) {backtrace("stalin.sc", 14819, 518924); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t55115>=((struct structure_type24753 *)VALUE_OFFSET)) {t55118->s0.tag = STRUCTURE_TYPE24753; t55118->s0.value.structure_type24753 = t55115;} else t55118->s0.tag = (unsigned)t55115; t55118->s1.tag = NULL_TYPE; t55111 = f27731(t55116, t55117, t55118); /* x124052 stalin.sc:14815:518790 */ t55112 = NATIVE_PROCEDURE_TYPE20463; /* MOVE: branching squeezed to general */ if (t55111>=((struct structure_type24753 *)VALUE_OFFSET)) {t55113.tag = STRUCTURE_TYPE24753; t55113.value.structure_type24753 = t55111;} else t55113.tag = (unsigned)t55111; return f1536(t55112, t55113);} /* C:IF[13672] */ struct w49 f13672(struct structure_type24753 *a25421, struct w49 a25422, struct w49 a25423, unsigned a25424) {struct w49 r13672; struct w49 a36035; /* PAIR */ struct w49 a36036; /* PAIR */ struct w49 a36037; /* PAIR */ struct w49 a36038; /* PAIR */ struct w49 a36039; /* PAIR */ struct w49 a36040; /* PAIR */ struct w49 a36041; /* PAIR */ struct w49 a36042; /* PAIR */ struct structure_type24753 *a41902; /* CS */ struct structure_type24753 *a41907; /* CS */ struct structure_type24753 *a41908; /* CS */ struct structure_type24753 *a41909; /* CS */ struct structure_type24753 *a41910; /* CS */ struct structure_type24753 *a42075; /* CS */ struct structure_type24753 *a42076; /* CS */ struct structure_type24753 *a42077; /* CS */ struct structure_type24753 *a42078; /* CS */ struct structure_type24753 *a42079; /* CS */ struct structure_type24753 *a42081; /* CS */ struct w49 t55119; struct w49 t55120; struct w49 t55121; struct w49 t55122; struct w49 t55123; struct w49 t55124; struct w49 t55125; struct w49 t55126; struct w49 t55127; struct w49 t55128; struct w49 t55129; struct w49 t55130; struct w49 t55131; struct w49 t55132; struct w49 t55133; struct w49 t55134; struct w49 t55135; struct w49 t55136; struct w49 t55137; struct w49 t55138; struct w49 t55139; struct w49 t55140; struct structure_type24753 *t55141; struct w49 t55142; struct w49 t55143; struct w49 t55144; struct w49 t55145; char *t55146; struct structure_type24753 *t55147; struct structure_type24753 *t55148; struct w49 t55149; struct w49 t55150; struct structure_type24753 *t55151; struct w49 t55152; char *t55153; struct w49 t55154; struct w49 t55155; struct w49 t55156; struct structure_type24753 *t55157; struct w49 t55158; struct structure_type24753 *t55159; struct w49 t55160; struct w49 t55161; struct w49 t55162; struct w49 t55163; struct w49 t55164; struct structure_type24753 *t55165; struct w49 t55166; struct w49 t55167; struct w49 t55168; struct w49 t55169; struct w49 t55170; struct w49 t55171; struct w49 t55172; struct w49 t55173; struct w49 t55174; struct w49 t55175; struct w49 t55176; struct w49 t55177; struct w49 t55178; struct w49 t55179; struct structure_type24753 *t55180; struct w49 t55181; struct w49 t55182; struct w49 t55183; struct w49 t55184; char *t55185; struct structure_type24753 *t55186; struct structure_type24753 *t55187; struct w49 t55188; struct w49 t55189; struct structure_type24753 *t55190; struct structure_type24753 *t55191; struct w49 t55192; struct w49 t55193; struct w49 t55194; struct w49 t55195; struct structure_type24753 *t55196; struct w49 t55197; struct w49 t55198; struct w49 t55199; struct w49 t55200; char *t55201; struct structure_type24753 *t55202; struct structure_type24753 *t55203; struct w49 t55204; struct w49 t55205; struct structure_type24753 *t55206; struct w49 t55207; struct w49 t55208; struct structure_type24753 *t55209; struct w49 t55210; struct w49 t55211; struct structure_type24753 *t55212; struct w49 t55213; struct w49 t55214; struct w49 t55215; struct w49 t55216; char *t55217; struct structure_type24753 *t55218; struct structure_type24753 *t55219; struct w49 t55220; struct w49 t55221; struct structure_type24753 *t55222; struct w49 t55223; char *t55224; struct w49 t55225; struct w49 t55226; struct w49 t55227; struct w49 t55228; char *t55229; struct structure_type24753 *t55230; struct structure_type24753 *t55231; struct w49 t55232; struct w49 t55233; struct structure_type24753 *t55234; struct w49 t55235; struct w49 t55236; struct w49 t55237; struct w49 t55238; char *t55239; struct structure_type24753 *t55240; struct structure_type24753 *t55241; struct w49 t55242; struct w49 t55243; struct structure_type24753 *t55244; struct structure_type24753 *t55245; struct w49 t55246; struct structure_type24753 *t55247; struct w49 t55248; struct structure_type24753 *t55249; struct structure_type24753 *t55250; struct w49 t55251; struct structure_type24753 *t55252; struct w49 t55253; struct w49 t55254; struct structure_type24753 *t55255; struct w49 t55256; /* x124049 stalin.sc:14775:517408 */ /* x123873 stalin.sc:14775:517412 */ /* x123871 stalin.sc:14775:517422 */ t55119 = a25422; /* x123872 stalin.sc:14775:517425 */ t55120 = a25423; /* x123870 stalin.sc:14775:517413 */ if (f13424(t55119, t55120)==FALSE_TYPE) goto l8167; /* x123882 stalin.sc:14776:517434 */ /* x123874 stalin.sc:14776:517438 */ if (a25424==FALSE_TYPE) goto l8187; /* x123880 stalin.sc:14776:517441 */ /* x123879 stalin.sc:14776:517479 */ t55251 = a25422; /* x123878 stalin.sc:14776:517458 */ /* x123877 stalin.sc:14776:517475 */ t55255 = a25421; /* x123876 stalin.sc:14776:517459 */ t55256.tag = STRUCTURE_TYPE24753; t55256.value.structure_type24753 = t55255; t55250 = f13514(t55256); /* x123875 stalin.sc:14776:517442 */ t55254.tag = STRUCTURE_TYPE24753; t55254.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55254.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14776, 517441); out_of_memory_error();} t55254.value.structure_type24753->s0 = t55251; t55254.value.structure_type24753->s1.tag = NULL_TYPE; a41902 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41902==NULL) {backtrace("stalin.sc", 14776, 517441); out_of_memory_error();} a41902->s0.tag = STRUCTURE_TYPE24753; a41902->s0.value.structure_type24753 = t55250; a41902->s1 = t55254; /* x301720 stalin.sc:14400:506485 */ /* x301719 stalin.sc:14400:506503 */ t55252 = a41902; /* x301718 stalin.sc:14400:506486 */ t55253.tag = STRUCTURE_TYPE24753; t55253.value.structure_type24753 = t55252; return f13492(t55253); l8187: /* x123881 stalin.sc:14776:517483 */ return a25422; l8167: /* x124048 stalin.sc:14777:517492 */ /* x123885 stalin.sc:14777:517496 */ /* x123884 stalin.sc:14777:517505 */ t55121 = a25422; /* x123883 stalin.sc:14777:517497 */ if (f13407(t55121)==FALSE_TYPE) goto l8169; /* x123907 stalin.sc:14778:517511 */ /* x123888 stalin.sc:14778:517515 */ /* x123887 stalin.sc:14778:517524 */ t55236 = a25423; /* x123886 stalin.sc:14778:517516 */ if (f13407(t55236)==FALSE_TYPE) goto l8183; /* x123895 stalin.sc:14779:517534 */ /* x123889 stalin.sc:14779:517538 */ if (a25424==FALSE_TYPE) goto l8185; /* x123892 stalin.sc:14779:517541 */ /* x123891 stalin.sc:14779:517558 */ t55247 = a25421; /* x123890 stalin.sc:14779:517542 */ t55248.tag = STRUCTURE_TYPE24753; t55248.value.structure_type24753 = t55247; t55249 = f13514(t55248); r13672.tag = STRUCTURE_TYPE24753; r13672.value.structure_type24753 = t55249; return r13672; l8185: /* x123894 stalin.sc:14779:517562 */ /* x123893 stalin.sc:14779:517563 */ /* x276791 stalin.sc:14693:514793 */ r13672.tag = STRING_TYPE; r13672.value.string_type = ""; return r13672; l8183: /* x123906 stalin.sc:14781:517637 */ /* x123904 stalin.sc:14781:517647 */ /* x123903 stalin.sc:14781:517667 */ /* x123902 stalin.sc:14781:517672 */ /* x123901 stalin.sc:14781:517692 */ t55245 = a25421; /* x123900 stalin.sc:14781:517673 */ t55246.tag = STRUCTURE_TYPE24753; t55246.value.structure_type24753 = t55245; t55244 = f13513(t55246); /* x123899 stalin.sc:14781:517668 */ t55240 = f13632(t55244); /* x123898 stalin.sc:14781:517662 */ t55239 = "if"; /* x123897 stalin.sc:14781:517648 */ t55243.tag = STRUCTURE_TYPE24753; t55243.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55243.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14781, 517647); out_of_memory_error();} t55243.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55243.value.structure_type24753->s0.value.structure_type24753 = t55240; t55243.value.structure_type24753->s1.tag = NULL_TYPE; a42075 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42075==NULL) {backtrace("stalin.sc", 14781, 517647); out_of_memory_error();} a42075->s0.tag = STRING_TYPE; a42075->s0.value.string_type = t55239; a42075->s1 = t55243; /* x302412 stalin.sc:14386:505956 */ /* x302411 stalin.sc:14386:505972 */ t55241 = a42075; /* x302410 stalin.sc:14386:505957 */ t55242.tag = STRUCTURE_TYPE24753; t55242.value.structure_type24753 = t55241; t55237 = f13474(t55242); /* x123905 stalin.sc:14781:517698 */ t55238 = a25423; /* x123896 stalin.sc:14781:517638 */ return f13660(t55237, t55238); l8169: /* x124047 stalin.sc:14782:517705 */ /* x123910 stalin.sc:14782:517709 */ /* x123909 stalin.sc:14782:517718 */ t55122 = a25423; /* x123908 stalin.sc:14782:517710 */ if (f13407(t55122)==FALSE_TYPE) goto l8171; /* x123919 stalin.sc:14783:517728 */ /* x123917 stalin.sc:14783:517738 */ /* x123916 stalin.sc:14783:517758 */ /* x123915 stalin.sc:14783:517778 */ t55234 = a25421; /* x123914 stalin.sc:14783:517759 */ t55235.tag = STRUCTURE_TYPE24753; t55235.value.structure_type24753 = t55234; t55230 = f13513(t55235); /* x123913 stalin.sc:14783:517753 */ t55229 = "if"; /* x123912 stalin.sc:14783:517739 */ t55233.tag = STRUCTURE_TYPE24753; t55233.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55233.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14783, 517738); out_of_memory_error();} t55233.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55233.value.structure_type24753->s0.value.structure_type24753 = t55230; t55233.value.structure_type24753->s1.tag = NULL_TYPE; a42076 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42076==NULL) {backtrace("stalin.sc", 14783, 517738); out_of_memory_error();} a42076->s0.tag = STRING_TYPE; a42076->s0.value.string_type = t55229; a42076->s1 = t55233; /* x302416 stalin.sc:14386:505956 */ /* x302415 stalin.sc:14386:505972 */ t55231 = a42076; /* x302414 stalin.sc:14386:505957 */ t55232.tag = STRUCTURE_TYPE24753; t55232.value.structure_type24753 = t55231; t55227 = f13474(t55232); /* x123918 stalin.sc:14783:517783 */ t55228 = a25422; /* x123911 stalin.sc:14783:517729 */ return f13660(t55227, t55228); l8171: /* x124046 stalin.sc:14784:517793 */ /* x123922 stalin.sc:14784:517797 */ /* x123921 stalin.sc:14784:517811 */ t55123 = a25422; /* x123920 stalin.sc:14784:517798 */ if (f13415(t55123)==FALSE_TYPE) goto l8173; /* x123955 stalin.sc:14785:517818 */ /* x123925 stalin.sc:14785:517822 */ /* x123924 stalin.sc:14785:517836 */ t55193 = a25423; /* x123923 stalin.sc:14785:517823 */ if (f13415(t55193)==FALSE_TYPE) goto l8181; /* x123942 stalin.sc:14786:517847 */ /* x123941 stalin.sc:14787:517868 */ /* x123940 stalin.sc:14790:517972 */ /* x123938 stalin.sc:14790:517982 */ t55224 = "else"; /* x123939 stalin.sc:14790:517989 */ t55225 = a25423; /* x123937 stalin.sc:14790:517973 */ t55226.tag = STRING_TYPE; t55226.value.string_type = t55224; t55211 = f13660(t55226, t55225); /* x123936 stalin.sc:14788:517894 */ /* x123934 stalin.sc:14789:517914 */ /* x123933 stalin.sc:14789:517934 */ /* x123932 stalin.sc:14789:517954 */ t55222 = a25421; /* x123931 stalin.sc:14789:517935 */ t55223.tag = STRUCTURE_TYPE24753; t55223.value.structure_type24753 = t55222; t55218 = f13513(t55223); /* x123930 stalin.sc:14789:517929 */ t55217 = "if"; /* x123929 stalin.sc:14789:517915 */ t55221.tag = STRUCTURE_TYPE24753; t55221.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55221.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14789, 517914); out_of_memory_error();} t55221.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55221.value.structure_type24753->s0.value.structure_type24753 = t55218; t55221.value.structure_type24753->s1.tag = NULL_TYPE; a42077 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42077==NULL) {backtrace("stalin.sc", 14789, 517914); out_of_memory_error();} a42077->s0.tag = STRING_TYPE; a42077->s0.value.string_type = t55217; a42077->s1 = t55221; /* x302420 stalin.sc:14386:505956 */ /* x302419 stalin.sc:14386:505972 */ t55219 = a42077; /* x302418 stalin.sc:14386:505957 */ t55220.tag = STRUCTURE_TYPE24753; t55220.value.structure_type24753 = t55219; t55215 = f13474(t55220); /* x123935 stalin.sc:14789:517959 */ t55216 = a25422; /* x123928 stalin.sc:14788:517895 */ t55210 = f13650(t55215, t55216); /* x123927 stalin.sc:14787:517869 */ t55214.tag = STRUCTURE_TYPE24753; t55214.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55214.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14787, 517868); out_of_memory_error();} t55214.value.structure_type24753->s0 = t55211; t55214.value.structure_type24753->s1.tag = NULL_TYPE; a41907 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41907==NULL) {backtrace("stalin.sc", 14787, 517868); out_of_memory_error();} a41907->s0 = t55210; a41907->s1 = t55214; /* x301740 stalin.sc:14400:506485 */ /* x301739 stalin.sc:14400:506503 */ t55212 = a41907; /* x301738 stalin.sc:14400:506486 */ t55213.tag = STRUCTURE_TYPE24753; t55213.value.structure_type24753 = t55212; t55208 = f13492(t55213); /* x123926 stalin.sc:14786:517848 */ t55209 = f13473(t55208); r13672.tag = STRUCTURE_TYPE24753; r13672.value.structure_type24753 = t55209; return r13672; l8181: /* x123954 stalin.sc:14791:518002 */ /* x123953 stalin.sc:14794:518110 */ t55195 = a25423; /* x123952 stalin.sc:14792:518027 */ /* x123950 stalin.sc:14793:518053 */ /* x123949 stalin.sc:14793:518073 */ /* x123948 stalin.sc:14793:518093 */ t55206 = a25421; /* x123947 stalin.sc:14793:518074 */ t55207.tag = STRUCTURE_TYPE24753; t55207.value.structure_type24753 = t55206; t55202 = f13513(t55207); /* x123946 stalin.sc:14793:518068 */ t55201 = "if"; /* x123945 stalin.sc:14793:518054 */ t55205.tag = STRUCTURE_TYPE24753; t55205.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55205.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14793, 518053); out_of_memory_error();} t55205.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55205.value.structure_type24753->s0.value.structure_type24753 = t55202; t55205.value.structure_type24753->s1.tag = NULL_TYPE; a42078 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42078==NULL) {backtrace("stalin.sc", 14793, 518053); out_of_memory_error();} a42078->s0.tag = STRING_TYPE; a42078->s0.value.string_type = t55201; a42078->s1 = t55205; /* x302424 stalin.sc:14386:505956 */ /* x302423 stalin.sc:14386:505972 */ t55203 = a42078; /* x302422 stalin.sc:14386:505957 */ t55204.tag = STRUCTURE_TYPE24753; t55204.value.structure_type24753 = t55203; t55199 = f13474(t55204); /* x123951 stalin.sc:14793:518098 */ t55200 = a25422; /* x123944 stalin.sc:14792:518028 */ t55194 = f13650(t55199, t55200); /* x123943 stalin.sc:14791:518003 */ t55198.tag = STRUCTURE_TYPE24753; t55198.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55198.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14791, 518002); out_of_memory_error();} t55198.value.structure_type24753->s0 = t55195; t55198.value.structure_type24753->s1.tag = NULL_TYPE; a41908 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41908==NULL) {backtrace("stalin.sc", 14791, 518002); out_of_memory_error();} a41908->s0 = t55194; a41908->s1 = t55198; /* x301744 stalin.sc:14400:506485 */ /* x301743 stalin.sc:14400:506503 */ t55196 = a41908; /* x301742 stalin.sc:14400:506486 */ t55197.tag = STRUCTURE_TYPE24753; t55197.value.structure_type24753 = t55196; return f13492(t55197); l8173: /* x124045 stalin.sc:14795:518118 */ /* x123958 stalin.sc:14795:518122 */ /* x123957 stalin.sc:14795:518136 */ t55124 = a25423; /* x123956 stalin.sc:14795:518123 */ if (f13415(t55124)==FALSE_TYPE) goto l8175; /* x123972 stalin.sc:14796:518147 */ /* x123971 stalin.sc:14800:518323 */ t55179 = a25422; /* x123970 stalin.sc:14797:518172 */ /* x123968 stalin.sc:14799:518260 */ /* x123967 stalin.sc:14799:518280 */ /* x123966 stalin.sc:14799:518285 */ /* x123965 stalin.sc:14799:518305 */ t55191 = a25421; /* x123964 stalin.sc:14799:518286 */ t55192.tag = STRUCTURE_TYPE24753; t55192.value.structure_type24753 = t55191; t55190 = f13513(t55192); /* x123963 stalin.sc:14799:518281 */ t55186 = f13632(t55190); /* x123962 stalin.sc:14799:518275 */ t55185 = "if"; /* x123961 stalin.sc:14799:518261 */ t55189.tag = STRUCTURE_TYPE24753; t55189.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55189.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14799, 518260); out_of_memory_error();} t55189.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55189.value.structure_type24753->s0.value.structure_type24753 = t55186; t55189.value.structure_type24753->s1.tag = NULL_TYPE; a42079 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42079==NULL) {backtrace("stalin.sc", 14799, 518260); out_of_memory_error();} a42079->s0.tag = STRING_TYPE; a42079->s0.value.string_type = t55185; a42079->s1 = t55189; /* x302428 stalin.sc:14386:505956 */ /* x302427 stalin.sc:14386:505972 */ t55187 = a42079; /* x302426 stalin.sc:14386:505957 */ t55188.tag = STRUCTURE_TYPE24753; t55188.value.structure_type24753 = t55187; t55183 = f13474(t55188); /* x123969 stalin.sc:14799:518311 */ t55184 = a25423; /* x123960 stalin.sc:14797:518173 */ t55178 = f13650(t55183, t55184); /* x123959 stalin.sc:14796:518148 */ t55182.tag = STRUCTURE_TYPE24753; t55182.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55182.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14796, 518147); out_of_memory_error();} t55182.value.structure_type24753->s0 = t55179; t55182.value.structure_type24753->s1.tag = NULL_TYPE; a41909 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41909==NULL) {backtrace("stalin.sc", 14796, 518147); out_of_memory_error();} a41909->s0 = t55178; a41909->s1 = t55182; /* x301748 stalin.sc:14400:506485 */ /* x301747 stalin.sc:14400:506503 */ t55180 = a41909; /* x301746 stalin.sc:14400:506486 */ t55181.tag = STRUCTURE_TYPE24753; t55181.value.structure_type24753 = t55180; return f13492(t55181); l8175: /* x124044 stalin.sc:14801:518334 */ /* x123998 stalin.sc:14801:518338 */ /* x123975 stalin.sc:14801:518343 */ /* x123974 stalin.sc:14801:518358 */ t55125 = a25422; /* x123973 stalin.sc:14801:518344 */ if (f13450(t55125)==FALSE_TYPE) goto l8177; /* x123996 */ /* x123978 stalin.sc:14802:518371 */ /* x123977 stalin.sc:14802:518386 */ t55126 = a25423; /* x123976 stalin.sc:14802:518372 */ if (f13450(t55126)==FALSE_TYPE) goto l8177; /* x123994 */ /* x123986 stalin.sc:14803:518407 */ /* x123985 stalin.sc:14803:518414 */ /* x123984 stalin.sc:14803:518422 */ /* x123983 stalin.sc:14803:518429 */ t55132 = a25422; /* x123982 stalin.sc:14803:518423 */ a36040 = t55132; /* x275517 */ /* x275516 */ t55133 = a36040; /* x275515 */ if (!((t55133.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30189]"); structure_ref_error();} t55131 = t55133.value.structure_type24753->s0; /* x123981 stalin.sc:14803:518415 */ t55129 = f26181(t55131); /* x123980 stalin.sc:14803:518408 */ a36039 = t55129; /* x275513 */ /* x275512 */ t55130 = a36039; /* x275511 */ if (!((t55130.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30188]"); structure_ref_error();} t55127 = t55130.value.structure_type24753->s0; /* x123993 stalin.sc:14804:518445 */ /* x123992 stalin.sc:14804:518452 */ /* x123991 stalin.sc:14804:518460 */ /* x123990 stalin.sc:14804:518467 */ t55137 = a25423; /* x123989 stalin.sc:14804:518461 */ a36042 = t55137; /* x275525 */ /* x275524 */ t55138 = a36042; /* x275523 */ if (!((t55138.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30191]"); structure_ref_error();} t55136 = t55138.value.structure_type24753->s0; /* x123988 stalin.sc:14804:518453 */ t55134 = f26181(t55136); /* x123987 stalin.sc:14804:518446 */ a36041 = t55134; /* x275521 */ /* x275520 */ t55135 = a36041; /* x275519 */ if (!((t55135.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30190]"); structure_ref_error();} t55128 = t55135.value.structure_type24753->s0; /* x123979 stalin.sc:14803:518400 */ if (f26165(t55127, t55128)==FALSE_TYPE) goto l8177; /* x124028 stalin.sc:14805:518479 */ /* x124006 stalin.sc:14805:518485 */ /* x124005 stalin.sc:14805:518492 */ /* x124004 stalin.sc:14805:518500 */ /* x124003 stalin.sc:14805:518507 */ t55163 = a25422; /* x124002 stalin.sc:14805:518501 */ a36036 = t55163; /* x275501 */ /* x275500 */ t55164 = a36036; /* x275499 */ if (!((t55164.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30185]"); structure_ref_error();} t55162 = t55164.value.structure_type24753->s0; /* x124001 stalin.sc:14805:518493 */ t55160 = f26181(t55162); /* x124000 stalin.sc:14805:518486 */ a36035 = t55160; /* x275497 */ /* x275496 */ t55161 = a36035; /* x275495 */ if (!((t55161.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30184]"); structure_ref_error();} t55156 = t55161.value.structure_type24753->s0; /* x124027 stalin.sc:14806:518523 */ /* x124008 stalin.sc:14806:518529 */ t55165 = a25421; /* x124017 stalin.sc:14807:518541 */ /* x124016 stalin.sc:14807:518548 */ /* x124015 stalin.sc:14807:518555 */ /* x124014 stalin.sc:14807:518563 */ /* x124013 stalin.sc:14807:518570 */ t55171 = a25422; /* x124012 stalin.sc:14807:518564 */ a36037 = t55171; /* x275505 */ /* x275504 */ t55172 = a36037; /* x275503 */ if (!((t55172.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30186]"); structure_ref_error();} t55170 = t55172.value.structure_type24753->s0; /* x124011 stalin.sc:14807:518556 */ t55169 = f26181(t55170); /* x124010 stalin.sc:14807:518549 */ t55168 = f26187(t55169); /* x124009 stalin.sc:14807:518542 */ t55166 = f26187(t55168); /* x124026 stalin.sc:14808:518586 */ /* x124025 stalin.sc:14808:518593 */ /* x124024 stalin.sc:14808:518600 */ /* x124023 stalin.sc:14808:518608 */ /* x124022 stalin.sc:14808:518615 */ t55176 = a25423; /* x124021 stalin.sc:14808:518609 */ a36038 = t55176; /* x275509 */ /* x275508 */ t55177 = a36038; /* x275507 */ if (!((t55177.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30187]"); structure_ref_error();} t55175 = t55177.value.structure_type24753->s0; /* x124020 stalin.sc:14808:518601 */ t55174 = f26181(t55175); /* x124019 stalin.sc:14808:518594 */ t55173 = f26187(t55174); /* x124018 stalin.sc:14808:518587 */ t55167 = f26187(t55173); /* x124007 stalin.sc:14806:518524 */ t55157 = f13574(t55165, t55166, t55167); /* x123999 stalin.sc:14805:518480 */ t55158.tag = STRUCTURE_TYPE24753; t55158.value.structure_type24753 = t55157; t55159 = f13637(t55156, t55158); r13672.tag = STRUCTURE_TYPE24753; r13672.value.structure_type24753 = t55159; return r13672; l8177: /* x124043 stalin.sc:14809:518628 */ /* x124042 stalin.sc:14812:518727 */ /* x124040 stalin.sc:14812:518737 */ t55153 = "else"; /* x124041 stalin.sc:14812:518744 */ t55154 = a25423; /* x124039 stalin.sc:14812:518728 */ t55155.tag = STRING_TYPE; t55155.value.string_type = t55153; t55140 = f13660(t55155, t55154); /* x124038 stalin.sc:14810:518650 */ /* x124036 stalin.sc:14811:518673 */ /* x124035 stalin.sc:14811:518693 */ /* x124034 stalin.sc:14811:518713 */ t55151 = a25421; /* x124033 stalin.sc:14811:518694 */ t55152.tag = STRUCTURE_TYPE24753; t55152.value.structure_type24753 = t55151; t55147 = f13513(t55152); /* x124032 stalin.sc:14811:518688 */ t55146 = "if"; /* x124031 stalin.sc:14811:518674 */ t55150.tag = STRUCTURE_TYPE24753; t55150.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55150.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14811, 518673); out_of_memory_error();} t55150.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55150.value.structure_type24753->s0.value.structure_type24753 = t55147; t55150.value.structure_type24753->s1.tag = NULL_TYPE; a42081 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42081==NULL) {backtrace("stalin.sc", 14811, 518673); out_of_memory_error();} a42081->s0.tag = STRING_TYPE; a42081->s0.value.string_type = t55146; a42081->s1 = t55150; /* x302436 stalin.sc:14386:505956 */ /* x302435 stalin.sc:14386:505972 */ t55148 = a42081; /* x302434 stalin.sc:14386:505957 */ t55149.tag = STRUCTURE_TYPE24753; t55149.value.structure_type24753 = t55148; t55144 = f13474(t55149); /* x124037 stalin.sc:14811:518718 */ t55145 = a25422; /* x124030 stalin.sc:14810:518651 */ t55139 = f13650(t55144, t55145); /* x124029 stalin.sc:14809:518629 */ t55143.tag = STRUCTURE_TYPE24753; t55143.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55143.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14809, 518628); out_of_memory_error();} t55143.value.structure_type24753->s0 = t55140; t55143.value.structure_type24753->s1.tag = NULL_TYPE; a41910 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41910==NULL) {backtrace("stalin.sc", 14809, 518628); out_of_memory_error();} a41910->s0 = t55139; a41910->s1 = t55143; /* x301752 stalin.sc:14400:506485 */ /* x301751 stalin.sc:14400:506503 */ t55141 = a41910; /* x301750 stalin.sc:14400:506486 */ t55142.tag = STRUCTURE_TYPE24753; t55142.value.structure_type24753 = t55141; return f13492(t55142);} /* C:FOR[13671] */ struct w49 f13671(struct structure_type24753 *a25417, struct structure_type24753 *a25418, struct structure_type24753 *a25419, struct w49 a25420) {struct structure_type24753 *a42003; /* CS */ struct structure_type24753 *a42004; /* CS */ struct w49 t55257; struct w49 t55258; char *t55259; struct structure_type24753 *t55260; struct structure_type24753 *t55261; struct w49 t55262; struct w49 t55263; struct w49 t55264; struct structure_type24753 *t55265; struct structure_type24753 *t55266; struct w49 t55267; struct structure_type24753 *t55268; struct w49 t55269; struct w49 t55270; struct w49 t55271; struct w49 t55272; struct structure_type24753 *t55273; struct w49 t55274; struct w49 t55275; struct structure_type24753 *t55276; struct w49 t55277; struct structure_type24753 *t55278; struct w49 t55279; /* x123867 stalin.sc:14766:517175 */ /* x123865 stalin.sc:14766:517185 */ /* x123864 stalin.sc:14768:517216 */ /* x123863 stalin.sc:14769:517242 */ /* x123862 stalin.sc:14771:517347 */ /* x123861 stalin.sc:14771:517363 */ t55278 = a25419; /* x123860 stalin.sc:14771:517348 */ t55279.tag = STRUCTURE_TYPE24753; t55279.value.structure_type24753 = t55278; t55267 = f13508(t55279); /* x123859 stalin.sc:14770:517302 */ /* x123858 stalin.sc:14770:517319 */ /* x123857 stalin.sc:14770:517335 */ t55276 = a25418; /* x123856 stalin.sc:14770:517320 */ t55277.tag = STRUCTURE_TYPE24753; t55277.value.structure_type24753 = t55276; t55275 = f13508(t55277); /* x123855 stalin.sc:14770:517303 */ t55266 = f13514(t55275); /* x123854 stalin.sc:14769:517257 */ /* x123853 stalin.sc:14769:517274 */ /* x123852 stalin.sc:14769:517290 */ t55273 = a25417; /* x123851 stalin.sc:14769:517275 */ t55274.tag = STRUCTURE_TYPE24753; t55274.value.structure_type24753 = t55273; t55272 = f13508(t55274); /* x123850 stalin.sc:14769:517258 */ t55265 = f13514(t55272); /* x123849 stalin.sc:14769:517243 */ t55271.tag = STRUCTURE_TYPE24753; t55271.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55271.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14769, 517242); out_of_memory_error();} t55271.value.structure_type24753->s0 = t55267; t55271.value.structure_type24753->s1.tag = NULL_TYPE; t55270.tag = STRUCTURE_TYPE24753; t55270.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55270.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14769, 517242); out_of_memory_error();} t55270.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55270.value.structure_type24753->s0.value.structure_type24753 = t55266; t55270.value.structure_type24753->s1 = t55271; a42004 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42004==NULL) {backtrace("stalin.sc", 14769, 517242); out_of_memory_error();} a42004->s0.tag = STRUCTURE_TYPE24753; a42004->s0.value.structure_type24753 = t55265; a42004->s1 = t55270; /* x302128 stalin.sc:14386:505956 */ /* x302127 stalin.sc:14386:505972 */ t55268 = a42004; /* x302126 stalin.sc:14386:505957 */ t55269.tag = STRUCTURE_TYPE24753; t55269.value.structure_type24753 = t55268; t55264 = f13474(t55269); /* x123848 stalin.sc:14768:517217 */ t55260 = f13513(t55264); /* x123847 stalin.sc:14767:517205 */ t55259 = "for"; /* x123846 stalin.sc:14766:517186 */ t55263.tag = STRUCTURE_TYPE24753; t55263.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55263.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14766, 517185); out_of_memory_error();} t55263.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55263.value.structure_type24753->s0.value.structure_type24753 = t55260; t55263.value.structure_type24753->s1.tag = NULL_TYPE; a42003 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42003==NULL) {backtrace("stalin.sc", 14766, 517185); out_of_memory_error();} a42003->s0.tag = STRING_TYPE; a42003->s0.value.string_type = t55259; a42003->s1 = t55263; /* x302124 stalin.sc:14386:505956 */ /* x302123 stalin.sc:14386:505972 */ t55261 = a42003; /* x302122 stalin.sc:14386:505957 */ t55262.tag = STRUCTURE_TYPE24753; t55262.value.structure_type24753 = t55261; t55257 = f13474(t55262); /* x123866 stalin.sc:14772:517374 */ t55258 = a25420; /* x123845 stalin.sc:14766:517176 */ return f13660(t55257, t55258);} /* C:WHILE[13670] */ struct w49 f13670(struct structure_type24753 *a25415, struct w49 a25416) {struct structure_type24753 *a42086; /* CS */ struct w49 t55280; struct w49 t55281; char *t55282; struct structure_type24753 *t55283; struct structure_type24753 *t55284; struct w49 t55285; struct w49 t55286; struct structure_type24753 *t55287; struct w49 t55288; /* x123842 stalin.sc:14763:517082 */ /* x123840 stalin.sc:14763:517092 */ /* x123839 stalin.sc:14763:517115 */ /* x123838 stalin.sc:14763:517135 */ t55287 = a25415; /* x123837 stalin.sc:14763:517116 */ t55288.tag = STRUCTURE_TYPE24753; t55288.value.structure_type24753 = t55287; t55283 = f13513(t55288); /* x123836 stalin.sc:14763:517107 */ t55282 = "while"; /* x123835 stalin.sc:14763:517093 */ t55286.tag = STRUCTURE_TYPE24753; t55286.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55286.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14763, 517092); out_of_memory_error();} t55286.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55286.value.structure_type24753->s0.value.structure_type24753 = t55283; t55286.value.structure_type24753->s1.tag = NULL_TYPE; a42086 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42086==NULL) {backtrace("stalin.sc", 14763, 517092); out_of_memory_error();} a42086->s0.tag = STRING_TYPE; a42086->s0.value.string_type = t55282; a42086->s1 = t55286; /* x302456 stalin.sc:14386:505956 */ /* x302455 stalin.sc:14386:505972 */ t55284 = a42086; /* x302454 stalin.sc:14386:505957 */ t55285.tag = STRUCTURE_TYPE24753; t55285.value.structure_type24753 = t55284; t55280 = f13474(t55285); /* x123841 stalin.sc:14763:517140 */ t55281 = a25416; /* x123834 stalin.sc:14763:517083 */ return f13660(t55280, t55281);} /* OPERATOR[13660] */ struct w49 f13660(struct w49 a25408, struct w49 a25409) {struct w49 a25412; /* C2 */ struct w49 a36071; /* PAIR */ struct w49 a36072; /* PAIR */ struct w49 a36073; /* PAIR */ struct w49 a36074; /* PAIR */ struct w49 a36075; /* PAIR */ struct w49 a36076; /* PAIR */ struct w49 a36077; /* PAIR */ struct structure_type24753 *a41919; /* CS */ struct structure_type24753 *a42085; /* CS */ struct w49 t55289; struct w49 t55290; struct w49 t55291; struct w49 t55292; int t55293; int t55294; struct w49 t55295; struct w49 t55296; struct w49 t55297; struct w49 t55298; char t55299; struct w49 t55300; char t55301; struct w49 t55302; struct w49 t55303; struct w49 t55304; struct w49 t55305; struct w49 t55306; struct w49 t55307; struct w49 t55308; struct w49 t55309; struct w49 t55310; struct w49 t55311; char *t55312; struct w49 t55313; struct w49 t55314; struct w49 t55315; struct w49 t55316; struct w49 t55317; struct w49 t55318; struct w49 t55319; char *t55320; struct w49 t55321; struct w49 t55322; struct w49 t55323; struct w49 t55324; struct w49 t55325; struct w49 t55326; struct w49 t55327; struct w49 t55328; struct w49 t55329; struct w49 t55330; struct w49 t55331; struct w49 t55332; struct structure_type24753 *t55333; struct w49 t55334; struct w49 t55335; struct w49 t55336; struct structure_type24753 *t55337; struct structure_type24753 *t55338; struct w49 t55339; struct w49 t55340; struct w49 t55341; /* x123831 stalin.sc:14745:516431 */ /* x123820 stalin.sc:14745:516435 */ /* x123819 stalin.sc:14745:516450 */ t55289 = a25409; /* x123818 */ /* x123817 */ /* x123816 */ /* x123815 */ /* x123814 */ /* x123813 */ /* x123812 */ /* x123711 */ /* x123710 stalin.sc:14745:516440 */ a25412 = t55289; h13663: /* x123811 stalin.sc:14746:516461 */ /* x123714 stalin.sc:14747:516475 */ /* x123713 stalin.sc:14747:516489 */ t55290 = a25412; /* x123712 stalin.sc:14747:516476 */ if (f13415(t55290)==FALSE_TYPE) goto l8191; /* x123721 */ /* x123720 */ /* x123719 stalin.sc:14747:516493 */ /* x123718 stalin.sc:14747:516499 */ /* x123717 stalin.sc:14747:516507 */ t55330 = a25412; /* x123716 stalin.sc:14747:516500 */ t55329 = f26181(t55330); /* x123715 stalin.sc:14747:516494 */ a25412 = t55329; goto h13663; goto l8192; l8191: /* x123810 */ /* x123724 stalin.sc:14748:516521 */ /* x123723 stalin.sc:14748:516533 */ t55291 = a25412; /* x123722 stalin.sc:14748:516522 */ if (f13411(t55291)==FALSE_TYPE) goto l8194; /* x123731 */ /* x123730 */ /* x123729 stalin.sc:14748:516537 */ /* x123728 stalin.sc:14748:516543 */ /* x123727 stalin.sc:14748:516551 */ t55328 = a25412; /* x123726 stalin.sc:14748:516544 */ t55327 = f26181(t55328); /* x123725 stalin.sc:14748:516538 */ a25412 = t55327; goto h13663; goto l8195; l8194: /* x123809 */ /* x123808 */ /* x123807 stalin.sc:14751:516698 */ /* x123734 stalin.sc:14751:516703 */ /* x123733 stalin.sc:14751:516710 */ t55292 = a25412; /* x123732 stalin.sc:14751:516704 */ if (f26209(t55292)==FALSE_TYPE) goto l8189; /* x123805 */ /* x123740 stalin.sc:14752:516718 */ /* x123738 stalin.sc:14752:516721 */ /* x123737 stalin.sc:14752:516729 */ t55295 = a25412; /* x123736 stalin.sc:14752:516722 */ t55293 = f26227(t55295); /* x123739 stalin.sc:14752:516733 */ t55294 = 3; /* x269036 stalin.sc:14752:516719 */ if (!(t55293==t55294)) goto l8189; /* x123803 */ /* x123745 stalin.sc:14753:516740 */ /* x123744 stalin.sc:14753:516747 */ /* x123743 stalin.sc:14753:516755 */ t55297 = a25412; /* x123742 stalin.sc:14753:516748 */ t55296 = f26181(t55297); /* x269035 stalin.sc:14753:516741 */ if (!((t55296.tag)s0; /* x123793 stalin.sc:14755:516809 */ if (f26209(t55303)==FALSE_TYPE) goto l8188; /* x123789 */ /* x123788 stalin.sc:14756:516836 */ /* x123787 stalin.sc:14756:516841 */ /* x123786 stalin.sc:14756:516850 */ /* x123785 stalin.sc:14756:516857 */ /* x123784 stalin.sc:14756:516864 */ t55309 = a25412; /* x123783 stalin.sc:14756:516858 */ a36076 = t55309; /* x275661 */ /* x275660 */ t55310 = a36076; /* x275659 */ if (!((t55310.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30225]"); structure_ref_error();} t55307 = t55310.value.structure_type24753->s0; /* x123782 stalin.sc:14756:516851 */ a36075 = t55307; /* x275657 */ /* x275656 */ t55308 = a36075; /* x275655 */ if (!((t55308.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30224]"); structure_ref_error();} t55306 = t55308.value.structure_type24753->s0; /* x269031 stalin.sc:14756:516842 */ if (!((t55306.tag)==STRING_TYPE)) goto l8188; /* x123777 */ /* x123765 stalin.sc:14757:516884 */ /* x123764 stalin.sc:14757:516889 */ /* x123763 stalin.sc:14757:516918 */ t55312 = "if"; /* x123762 stalin.sc:14757:516899 */ /* x123761 stalin.sc:14757:516906 */ /* x123760 stalin.sc:14757:516913 */ t55317 = a25412; /* x123759 stalin.sc:14757:516907 */ a36074 = t55317; /* x275653 */ /* x275652 */ t55318 = a36074; /* x275651 */ if (!((t55318.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30223]"); structure_ref_error();} t55315 = t55318.value.structure_type24753->s0; /* x123758 stalin.sc:14757:516900 */ a36073 = t55315; /* x275649 */ /* x275648 */ t55316 = a36073; /* x275647 */ if (!((t55316.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30222]"); structure_ref_error();} t55311 = t55316.value.structure_type24753->s0; /* x123757 stalin.sc:14757:516890 */ t55313 = t55311; t55314.tag = STRING_TYPE; t55314.value.string_type = t55312; if (!(f27434(t55313, t55314)==FALSE_TYPE)) goto l8189; /* x123775 */ /* x123774 stalin.sc:14758:516936 */ /* x123773 stalin.sc:14758:516965 */ t55320 = "switch"; /* x123772 stalin.sc:14758:516946 */ /* x123771 stalin.sc:14758:516953 */ /* x123770 stalin.sc:14758:516960 */ t55325 = a25412; /* x123769 stalin.sc:14758:516954 */ a36072 = t55325; /* x275645 */ /* x275644 */ t55326 = a36072; /* x275643 */ if (!((t55326.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30221]"); structure_ref_error();} t55323 = t55326.value.structure_type24753->s0; /* x123768 stalin.sc:14758:516947 */ a36071 = t55323; /* x275641 */ /* x275640 */ t55324 = a36071; /* x275639 */ if (!((t55324.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30220]"); structure_ref_error();} t55319 = t55324.value.structure_type24753->s0; /* x123767 stalin.sc:14758:516937 */ t55321 = t55319; t55322.tag = STRING_TYPE; t55322.value.string_type = t55320; if (!(f27434(t55321, t55322)==FALSE_TYPE)) goto l8189; l8195: l8192: l8188: /* x123826 stalin.sc:14759:516987 */ /* x123825 stalin.sc:14759:517007 */ /* x123824 stalin.sc:14759:517022 */ t55341 = a25409; /* x123823 stalin.sc:14759:517008 */ t55337 = f13501(t55341); /* x123822 stalin.sc:14759:517004 */ t55336 = a25408; /* x123821 stalin.sc:14759:516988 */ t55340.tag = STRUCTURE_TYPE24753; t55340.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55340.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14759, 516987); out_of_memory_error();} t55340.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55340.value.structure_type24753->s0.value.structure_type24753 = t55337; t55340.value.structure_type24753->s1.tag = NULL_TYPE; a41919 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41919==NULL) {backtrace("stalin.sc", 14759, 516987); out_of_memory_error();} a41919->s0 = t55336; a41919->s1 = t55340; /* x301788 stalin.sc:14400:506485 */ /* x301787 stalin.sc:14400:506503 */ t55338 = a41919; /* x301786 stalin.sc:14400:506486 */ t55339.tag = STRUCTURE_TYPE24753; t55339.value.structure_type24753 = t55338; return f13492(t55339); l8189: /* x123830 stalin.sc:14760:517032 */ /* x123829 stalin.sc:14760:517050 */ t55332 = a25409; /* x123828 stalin.sc:14760:517047 */ t55331 = a25408; /* x123827 stalin.sc:14760:517033 */ t55335.tag = STRUCTURE_TYPE24753; t55335.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55335.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14760, 517032); out_of_memory_error();} t55335.value.structure_type24753->s0 = t55332; t55335.value.structure_type24753->s1.tag = NULL_TYPE; a42085 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42085==NULL) {backtrace("stalin.sc", 14760, 517032); out_of_memory_error();} a42085->s0 = t55331; a42085->s1 = t55335; /* x302452 stalin.sc:14386:505956 */ /* x302451 stalin.sc:14386:505972 */ t55333 = a42085; /* x302450 stalin.sc:14386:505957 */ t55334.tag = STRUCTURE_TYPE24753; t55334.value.structure_type24753 = t55333; return f13474(t55334);} /* STRICT-OPERATOR[13650] */ struct w49 f13650(struct w49 a25401, struct w49 a25402) {struct w49 a25405; /* C2 */ struct w49 a36059; /* PAIR */ struct w49 a36060; /* PAIR */ struct w49 a36061; /* PAIR */ struct w49 a36062; /* PAIR */ struct w49 a36063; /* PAIR */ struct w49 a36064; /* PAIR */ struct w49 a36065; /* PAIR */ struct structure_type24753 *a41911; /* CS */ struct structure_type24753 *a42080; /* CS */ struct w49 t55342; struct w49 t55343; struct w49 t55344; struct w49 t55345; int t55346; int t55347; struct w49 t55348; struct w49 t55349; struct w49 t55350; struct w49 t55351; char t55352; struct w49 t55353; char t55354; struct w49 t55355; struct w49 t55356; struct w49 t55357; struct w49 t55358; struct w49 t55359; struct w49 t55360; struct w49 t55361; struct w49 t55362; struct w49 t55363; struct w49 t55364; struct w49 t55365; char *t55366; struct w49 t55367; struct w49 t55368; struct w49 t55369; struct w49 t55370; struct w49 t55371; struct w49 t55372; struct w49 t55373; char *t55374; struct w49 t55375; struct w49 t55376; struct w49 t55377; struct w49 t55378; struct w49 t55379; struct w49 t55380; struct w49 t55381; struct w49 t55382; struct w49 t55383; struct w49 t55384; struct w49 t55385; struct w49 t55386; struct structure_type24753 *t55387; struct w49 t55388; struct w49 t55389; struct w49 t55390; struct structure_type24753 *t55391; struct structure_type24753 *t55392; struct w49 t55393; struct w49 t55394; struct w49 t55395; /* x123707 stalin.sc:14727:515786 */ /* x123696 stalin.sc:14727:515790 */ /* x123695 stalin.sc:14727:515805 */ t55342 = a25402; /* x123694 */ /* x123693 */ /* x123692 */ /* x123691 */ /* x123690 */ /* x123689 */ /* x123688 */ /* x123590 */ /* x123589 stalin.sc:14727:515795 */ a25405 = t55342; h13653: /* x123687 stalin.sc:14728:515816 */ /* x123593 stalin.sc:14728:515823 */ /* x123592 stalin.sc:14728:515837 */ t55343 = a25405; /* x123591 stalin.sc:14728:515824 */ if (f13415(t55343)==FALSE_TYPE) goto l8206; /* x123600 */ /* x123599 */ /* x123598 stalin.sc:14728:515841 */ /* x123597 stalin.sc:14728:515847 */ /* x123596 stalin.sc:14728:515855 */ t55384 = a25405; /* x123595 stalin.sc:14728:515848 */ t55383 = f26181(t55384); /* x123594 stalin.sc:14728:515842 */ a25405 = t55383; goto h13653; goto l8207; l8206: /* x123686 */ /* x123603 stalin.sc:14729:515867 */ /* x123602 stalin.sc:14729:515879 */ t55344 = a25405; /* x123601 stalin.sc:14729:515868 */ if (f13411(t55344)==FALSE_TYPE) goto l8209; /* x123610 */ /* x123609 */ /* x123608 stalin.sc:14729:515883 */ /* x123607 stalin.sc:14729:515889 */ /* x123606 stalin.sc:14729:515897 */ t55382 = a25405; /* x123605 stalin.sc:14729:515890 */ t55381 = f26181(t55382); /* x123604 stalin.sc:14729:515884 */ a25405 = t55381; goto h13653; goto l8210; l8209: /* x123685 */ /* x123684 */ /* x123683 stalin.sc:14732:516038 */ /* x123682 stalin.sc:14732:516042 */ /* x123659 stalin.sc:14732:516047 */ /* x123658 stalin.sc:14732:516054 */ t55345 = a25405; /* x123657 stalin.sc:14732:516048 */ if (f26209(t55345)==FALSE_TYPE) goto l8211; /* x123680 */ /* x123665 stalin.sc:14733:516064 */ /* x123663 stalin.sc:14733:516067 */ /* x123662 stalin.sc:14733:516075 */ t55348 = a25405; /* x123661 stalin.sc:14733:516068 */ t55346 = f26227(t55348); /* x123664 stalin.sc:14733:516079 */ t55347 = 3; /* x269038 stalin.sc:14733:516065 */ if (!(t55346==t55347)) goto l8211; /* x123678 */ /* x123670 stalin.sc:14734:516088 */ /* x123669 stalin.sc:14734:516095 */ /* x123668 stalin.sc:14734:516103 */ t55350 = a25405; /* x123667 stalin.sc:14734:516096 */ t55349 = f26181(t55350); /* x269037 stalin.sc:14734:516089 */ if (!((t55349.tag)s0; /* x123616 stalin.sc:14737:516177 */ if (f26209(t55357)==FALSE_TYPE) goto l8204; /* x123650 */ /* x123627 stalin.sc:14738:516201 */ /* x123626 stalin.sc:14738:516210 */ /* x123625 stalin.sc:14738:516217 */ /* x123624 stalin.sc:14738:516224 */ t55363 = a25405; /* x123623 stalin.sc:14738:516218 */ a36064 = t55363; /* x275613 */ /* x275612 */ t55364 = a36064; /* x275611 */ if (!((t55364.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30213]"); structure_ref_error();} t55361 = t55364.value.structure_type24753->s0; /* x123622 stalin.sc:14738:516211 */ a36063 = t55361; /* x275609 */ /* x275608 */ t55362 = a36063; /* x275607 */ if (!((t55362.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30212]"); structure_ref_error();} t55360 = t55362.value.structure_type24753->s0; /* x269039 stalin.sc:14738:516202 */ if (!((t55360.tag)==STRING_TYPE)) goto l8204; /* x123648 */ /* x123647 stalin.sc:14739:516240 */ /* x123646 stalin.sc:14739:516269 */ t55366 = "if"; /* x123645 stalin.sc:14739:516250 */ /* x123644 stalin.sc:14739:516257 */ /* x123643 stalin.sc:14739:516264 */ t55371 = a25405; /* x123642 stalin.sc:14739:516258 */ a36062 = t55371; /* x275605 */ /* x275604 */ t55372 = a36062; /* x275603 */ if (!((t55372.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30211]"); structure_ref_error();} t55369 = t55372.value.structure_type24753->s0; /* x123641 stalin.sc:14739:516251 */ a36061 = t55369; /* x275601 */ /* x275600 */ t55370 = a36061; /* x275599 */ if (!((t55370.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30210]"); structure_ref_error();} t55365 = t55370.value.structure_type24753->s0; /* x123640 stalin.sc:14739:516241 */ t55367 = t55365; t55368.tag = STRING_TYPE; t55368.value.string_type = t55366; if (!(f27434(t55367, t55368)==FALSE_TYPE)) goto l8203; /* x123637 */ /* x123636 stalin.sc:14740:516314 */ t55374 = "switch"; /* x123635 stalin.sc:14740:516295 */ /* x123634 stalin.sc:14740:516302 */ /* x123633 stalin.sc:14740:516309 */ t55379 = a25405; /* x123632 stalin.sc:14740:516303 */ a36060 = t55379; /* x275597 */ /* x275596 */ t55380 = a36060; /* x275595 */ if (!((t55380.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30209]"); structure_ref_error();} t55377 = t55380.value.structure_type24753->s0; /* x123631 stalin.sc:14740:516296 */ a36059 = t55377; /* x275593 */ /* x275592 */ t55378 = a36059; /* x275591 */ if (!((t55378.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30208]"); structure_ref_error();} t55373 = t55378.value.structure_type24753->s0; /* x123630 stalin.sc:14740:516286 */ t55375 = t55373; t55376.tag = STRING_TYPE; t55376.value.string_type = t55374; if (f27434(t55375, t55376)==FALSE_TYPE) goto l8204; l8210: l8207: l8203: /* x123702 stalin.sc:14741:516335 */ /* x123701 stalin.sc:14741:516355 */ /* x123700 stalin.sc:14741:516370 */ t55395 = a25402; /* x123699 stalin.sc:14741:516356 */ t55391 = f13501(t55395); /* x123698 stalin.sc:14741:516352 */ t55390 = a25401; /* x123697 stalin.sc:14741:516336 */ t55394.tag = STRUCTURE_TYPE24753; t55394.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55394.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14741, 516335); out_of_memory_error();} t55394.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55394.value.structure_type24753->s0.value.structure_type24753 = t55391; t55394.value.structure_type24753->s1.tag = NULL_TYPE; a41911 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41911==NULL) {backtrace("stalin.sc", 14741, 516335); out_of_memory_error();} a41911->s0 = t55390; a41911->s1 = t55394; /* x301756 stalin.sc:14400:506485 */ /* x301755 stalin.sc:14400:506503 */ t55392 = a41911; /* x301754 stalin.sc:14400:506486 */ t55393.tag = STRUCTURE_TYPE24753; t55393.value.structure_type24753 = t55392; return f13492(t55393); l8204: /* x123706 stalin.sc:14742:516380 */ /* x123705 stalin.sc:14742:516398 */ t55386 = a25402; /* x123704 stalin.sc:14742:516395 */ t55385 = a25401; /* x123703 stalin.sc:14742:516381 */ t55389.tag = STRUCTURE_TYPE24753; t55389.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55389.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14742, 516380); out_of_memory_error();} t55389.value.structure_type24753->s0 = t55386; t55389.value.structure_type24753->s1.tag = NULL_TYPE; a42080 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42080==NULL) {backtrace("stalin.sc", 14742, 516380); out_of_memory_error();} a42080->s0 = t55385; a42080->s1 = t55389; /* x302432 stalin.sc:14386:505956 */ /* x302431 stalin.sc:14386:505972 */ t55387 = a42080; /* x302430 stalin.sc:14386:505957 */ t55388.tag = STRUCTURE_TYPE24753; t55388.value.structure_type24753 = t55387; return f13474(t55388);} /* C:RETURN[13646] */ struct structure_type24753 *f13646(struct structure_type24753 *a25399) {struct structure_type24753 *a36089; /* PAIR */ struct structure_type24753 *a42092; /* CS */ struct structure_type24753 *t55396; struct w49 t55397; struct w49 t55398; struct structure_type24753 *t55399; char *t55400; struct w49 t55401; struct structure_type24753 *t55402; struct w49 t55403; struct w49 t55404; struct w49 t55405; struct structure_type24753 *t55406; struct structure_type24753 *t55407; int t55408; int t55409; struct structure_type24753 *t55410; struct w49 t55411; char *t55412; /* x123586 */ /* x123585 stalin.sc:14720:515585 */ /* x123578 stalin.sc:14720:515591 */ /* x123576 stalin.sc:14720:515594 */ /* x123575 stalin.sc:14720:515602 */ t55410 = a25399; /* x123574 stalin.sc:14720:515595 */ /* MOVE: branching squeezed to general */ if (t55410>=((struct structure_type24753 *)VALUE_OFFSET)) {t55411.tag = STRUCTURE_TYPE24753; t55411.value.structure_type24753 = t55410;} else t55411.tag = (unsigned)t55410; t55408 = f26227(t55411); /* x123577 stalin.sc:14720:515606 */ t55409 = 1; /* x269040 stalin.sc:14720:515592 */ if (!(t55408>t55409)) goto l8223; /* x123582 */ /* x123581 */ /* x123580 stalin.sc:14720:515609 */ /* x123579 stalin.sc:14720:515610 */ /* x296585 QobiScheme.sc:166:5314 */ /* x296584 QobiScheme.sc:166:5321 */ t55412 = "This shouldn\'t happen"; /* x296583 QobiScheme.sc:166:5315 */ stalin_panic(t55412); goto l8224; l8223: /* x123584 stalin.sc:14720:515585 */ /* x123583 stalin.sc:14720:515585 */ l8224: /* x123572 */ /* x123571 stalin.sc:14721:515621 */ /* x123570 stalin.sc:14722:515636 */ /* x123569 stalin.sc:14722:515653 */ /* x123559 stalin.sc:14722:515657 */ /* x123558 stalin.sc:14722:515664 */ t55399 = a25399; /* x269041 stalin.sc:14722:515658 */ if (!(((unsigned)t55399)==NULL_TYPE)) goto l8220; /* x123560 stalin.sc:14723:515677 */ t55398.tag = STRING_TYPE; t55398.value.string_type = "return"; goto l8221; l8220: /* x123568 stalin.sc:14724:515695 */ /* x123567 stalin.sc:14724:515719 */ /* x123566 stalin.sc:14724:515735 */ /* x123565 stalin.sc:14724:515742 */ t55406 = a25399; /* x123564 stalin.sc:14724:515736 */ a36089 = t55406; /* x275713 */ /* x275712 */ t55407 = a36089; /* x275711 */ t55405 = t55407->s0; /* x123563 stalin.sc:14724:515720 */ t55401 = f13508(t55405); /* x123562 stalin.sc:14724:515710 */ t55400 = "return"; /* x123561 stalin.sc:14724:515696 */ t55404.tag = STRUCTURE_TYPE24753; t55404.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55404.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14724, 515695); out_of_memory_error();} t55404.value.structure_type24753->s0 = t55401; t55404.value.structure_type24753->s1.tag = NULL_TYPE; a42092 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42092==NULL) {backtrace("stalin.sc", 14724, 515695); out_of_memory_error();} a42092->s0.tag = STRING_TYPE; a42092->s0.value.string_type = t55400; a42092->s1 = t55404; /* x302480 stalin.sc:14386:505956 */ /* x302479 stalin.sc:14386:505972 */ t55402 = a42092; /* x302478 stalin.sc:14386:505957 */ t55403.tag = STRUCTURE_TYPE24753; t55403.value.structure_type24753 = t55402; t55398 = f13474(t55403); l8221: /* x123556 stalin.sc:14722:515637 */ t55396 = f13514(t55398); /* x123555 stalin.sc:14721:515622 */ t55397.tag = STRUCTURE_TYPE24753; t55397.value.structure_type24753 = t55396; return f13473(t55397);} /* C:GOSUB[13645] */ struct structure_type24753 *f13645(struct w61020 a25397, struct structure_type24753 *a25398) {struct structure_type24753 *t55413; struct w49 t55414; struct structure_type24753 *t55415; struct w49 t55416; struct w61020 t55417; struct structure_type24753 *t55418; struct w49 t55419; struct w12224 t55420; /* x123552 stalin.sc:14717:515508 */ /* x123551 stalin.sc:14717:515525 */ /* x123550 stalin.sc:14717:515536 */ /* x123547 stalin.sc:14717:515543 */ /* x123548 stalin.sc:14717:515550 */ t55417 = a25397; /* x123549 stalin.sc:14717:515552 */ t55418 = a25398; /* x269042 stalin.sc:14717:515537 */ t55419 = *((struct w49 *)(&t55417)); /* MOVE: branching squeezed to general */ if (t55418>=((struct structure_type24753 *)VALUE_OFFSET)) {t55420.tag = STRUCTURE_TYPE24753; t55420.value.structure_type24753 = t55418;} else t55420.tag = (unsigned)t55418; t55415 = f13543(t55419, t55420); /* x123545 stalin.sc:14717:515526 */ t55416.tag = STRUCTURE_TYPE24753; t55416.value.structure_type24753 = t55415; t55413 = f13472(t55416); /* x123544 stalin.sc:14717:515509 */ t55414.tag = STRUCTURE_TYPE24753; t55414.value.structure_type24753 = t55413; return f13514(t55414);} /* C:NORETURN-PROTOTYPE[13643] */ struct structure_type24753 *f13643(struct w49 a25394, struct structure_type24753 *a25395) {struct structure_type24753 *a41969; /* CS */ struct w49 t55421; struct structure_type24753 *t55422; char *t55423; struct structure_type24753 *t55424; struct w49 t55425; struct w49 t55426; struct w49 t55427; struct structure_type24753 *t55428; struct w49 t55429; struct structure_type24753 *t55430; /* x123541 */ /* x123540 stalin.sc:14714:515389 */ /* x123539 stalin.sc:14714:515409 */ a750 = TRUE_TYPE; /* x123538 */ /* x123537 stalin.sc:14715:515414 */ /* x123536 stalin.sc:14715:515431 */ /* x123535 stalin.sc:14715:515468 */ t55423 = "NORETURN"; /* x123534 stalin.sc:14715:515446 */ /* x123531 stalin.sc:14715:515453 */ /* x123532 stalin.sc:14715:515462 */ t55427 = a25394; /* x123533 stalin.sc:14715:515464 */ t55428 = a25395; /* x269043 stalin.sc:14715:515447 */ t55429 = t55427; t55430 = t55428; t55422 = f13641(t55429, t55430); /* x123529 stalin.sc:14715:515432 */ t55426.tag = STRUCTURE_TYPE24753; t55426.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55426.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14715, 515431); out_of_memory_error();} t55426.value.structure_type24753->s0.tag = STRING_TYPE; t55426.value.structure_type24753->s0.value.string_type = t55423; t55426.value.structure_type24753->s1.tag = NULL_TYPE; a41969 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41969==NULL) {backtrace("stalin.sc", 14715, 515431); out_of_memory_error();} a41969->s0.tag = STRUCTURE_TYPE24753; a41969->s0.value.structure_type24753 = t55422; a41969->s1 = t55426; /* x301988 stalin.sc:14386:505956 */ /* x301987 stalin.sc:14386:505972 */ t55424 = a41969; /* x301986 stalin.sc:14386:505957 */ t55425.tag = STRUCTURE_TYPE24753; t55425.value.structure_type24753 = t55424; t55421 = f13474(t55425); /* x123528 stalin.sc:14715:515415 */ return f13514(t55421);} /* C:PROTOTYPE[13642] */ struct structure_type24753 *f13642(struct w49 a25392, struct structure_type24753 *a25393) {struct structure_type24753 *t55431; struct w49 t55432; struct w49 t55433; struct structure_type24753 *t55434; struct w49 t55435; struct structure_type24753 *t55436; /* x123525 stalin.sc:14711:515308 */ /* x123524 stalin.sc:14711:515325 */ /* x123521 stalin.sc:14711:515332 */ /* x123522 stalin.sc:14711:515341 */ t55433 = a25392; /* x123523 stalin.sc:14711:515343 */ t55434 = a25393; /* x269044 stalin.sc:14711:515326 */ t55435 = t55433; t55436 = t55434; t55431 = f13641(t55435, t55436); /* x123519 stalin.sc:14711:515309 */ t55432.tag = STRUCTURE_TYPE24753; t55432.value.structure_type24753 = t55431; return f13514(t55432);} /* C:HEADER[13641] */ struct structure_type24753 *f13641(struct w49 a25390, struct structure_type24753 *a25391) {struct structure_type24753 *a35173; /* OBJS */ struct structure_type24753 *a35216; /* OBJS */ struct structure_type24753 *t55437; struct w49 t55438; struct structure_type24753 *t55439; struct w49 t55440; struct w49 t55441; struct structure_type24753 *t55442; struct w49 t55443; struct w49 t55444; struct structure_type24753 *t55445; struct w49 t55446; char *t55447; struct w49 t55448; /* x123516 stalin.sc:14707:515164 */ /* x123501 stalin.sc:14707:515168 */ /* x123500 stalin.sc:14707:515175 */ t55437 = a25391; /* x269045 stalin.sc:14707:515169 */ if (!(((unsigned)t55437)==NULL_TYPE)) goto l8226; /* x123507 stalin.sc:14708:515184 */ /* x123506 stalin.sc:14708:515192 */ /* x123505 stalin.sc:14708:515212 */ t55447 = "void"; /* x123504 stalin.sc:14708:515193 */ t55448.tag = STRING_TYPE; t55448.value.string_type = t55447; t55445 = f13513(t55448); /* x123503 stalin.sc:14708:515190 */ t55444 = a25390; /* x123502 stalin.sc:14708:515185 */ t55446.tag = STRUCTURE_TYPE24753; t55446.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55446.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14708, 515184); out_of_memory_error();} t55446.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55446.value.structure_type24753->s0.value.structure_type24753 = t55445; t55446.value.structure_type24753->s1.tag = NULL_TYPE; a35216 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35216==NULL) {backtrace("stalin.sc", 14708, 515184); out_of_memory_error();} a35216->s0 = t55444; a35216->s1 = t55446; /* x272439 */ return a35216; l8226: /* x123515 stalin.sc:14709:515226 */ /* x123514 stalin.sc:14709:515234 */ /* x123513 stalin.sc:14709:515254 */ /* x123512 stalin.sc:14709:515270 */ t55442 = a25391; /* x123511 stalin.sc:14709:515255 */ t55443.tag = STRUCTURE_TYPE24753; t55443.value.structure_type24753 = t55442; t55441 = f13483(t55443); /* x123510 stalin.sc:14709:515235 */ t55439 = f13513(t55441); /* x123509 stalin.sc:14709:515232 */ t55438 = a25390; /* x123508 stalin.sc:14709:515227 */ t55440.tag = STRUCTURE_TYPE24753; t55440.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55440.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14709, 515226); out_of_memory_error();} t55440.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55440.value.structure_type24753->s0.value.structure_type24753 = t55439; t55440.value.structure_type24753->s1.tag = NULL_TYPE; a35173 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35173==NULL) {backtrace("stalin.sc", 14709, 515226); out_of_memory_error();} a35173->s0 = t55438; a35173->s1 = t55440; /* x272353 */ return a35173;} /* C:GOTO[13640] */ struct structure_type24753 *f13640(struct w12563 a25389) {struct structure_type24753 *a42091; /* CS */ struct structure_type24753 *t55449; struct w49 t55450; struct w49 t55451; char *t55452; struct w12563 t55453; struct structure_type24753 *t55454; struct w49 t55455; struct w49 t55456; /* x123496 stalin.sc:14704:515078 */ /* x123495 stalin.sc:14704:515091 */ /* x123494 stalin.sc:14704:515108 */ /* x123493 stalin.sc:14704:515130 */ t55453 = a25389; /* x123492 stalin.sc:14704:515123 */ t55452 = "goto"; /* x123491 stalin.sc:14704:515109 */ t55456.tag = STRUCTURE_TYPE24753; t55456.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55456.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14704, 515108); out_of_memory_error();} t55456.value.structure_type24753->s0 = *((struct w49 *)(&t55453)); t55456.value.structure_type24753->s1.tag = NULL_TYPE; a42091 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42091==NULL) {backtrace("stalin.sc", 14704, 515108); out_of_memory_error();} a42091->s0.tag = STRING_TYPE; a42091->s0.value.string_type = t55452; a42091->s1 = t55456; /* x302476 stalin.sc:14386:505956 */ /* x302475 stalin.sc:14386:505972 */ t55454 = a42091; /* x302474 stalin.sc:14386:505957 */ t55455.tag = STRUCTURE_TYPE24753; t55455.value.structure_type24753 = t55454; t55451 = f13474(t55455); /* x123490 stalin.sc:14704:515092 */ t55449 = f13514(t55451); /* x123489 stalin.sc:14704:515079 */ t55450.tag = STRUCTURE_TYPE24753; t55450.value.structure_type24753 = t55449; return f13473(t55450);} /* C:+=[13638] */ struct structure_type24753 *f13638(struct structure_type24753 *a25386, struct w49 a25387) {struct structure_type24753 *a42073; /* CS */ struct structure_type24753 *t55457; struct w49 t55458; struct w49 t55459; struct w49 t55460; char *t55461; struct w49 t55462; struct structure_type24753 *t55463; struct w49 t55464; struct w49 t55465; struct w49 t55466; struct structure_type24753 *t55467; struct w49 t55468; struct w49 t55469; /* x123481 stalin.sc:14699:514930 */ /* x123480 stalin.sc:14700:514949 */ /* x123479 stalin.sc:14700:514960 */ /* x123478 stalin.sc:14700:515000 */ /* x123477 stalin.sc:14700:515016 */ t55469 = a25387; /* x123476 stalin.sc:14700:515001 */ t55462 = f13508(t55469); /* x123475 stalin.sc:14700:514995 */ t55461 = "+="; /* x123474 stalin.sc:14700:514975 */ /* x123473 stalin.sc:14700:514991 */ t55467 = a25386; /* x123472 stalin.sc:14700:514976 */ t55468.tag = STRUCTURE_TYPE24753; t55468.value.structure_type24753 = t55467; t55460 = f13508(t55468); /* x123471 stalin.sc:14700:514961 */ t55466.tag = STRUCTURE_TYPE24753; t55466.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55466.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14700, 514960); out_of_memory_error();} t55466.value.structure_type24753->s0 = t55462; t55466.value.structure_type24753->s1.tag = NULL_TYPE; t55465.tag = STRUCTURE_TYPE24753; t55465.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55465.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14700, 514960); out_of_memory_error();} t55465.value.structure_type24753->s0.tag = STRING_TYPE; t55465.value.structure_type24753->s0.value.string_type = t55461; t55465.value.structure_type24753->s1 = t55466; a42073 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42073==NULL) {backtrace("stalin.sc", 14700, 514960); out_of_memory_error();} a42073->s0 = t55460; a42073->s1 = t55465; /* x302404 stalin.sc:14386:505956 */ /* x302403 stalin.sc:14386:505972 */ t55463 = a42073; /* x302402 stalin.sc:14386:505957 */ t55464.tag = STRUCTURE_TYPE24753; t55464.value.structure_type24753 = t55463; t55459 = f13474(t55464); /* x123470 stalin.sc:14700:514950 */ t55457 = f13472(t55459); /* x123469 stalin.sc:14699:514931 */ t55458.tag = STRUCTURE_TYPE24753; t55458.value.structure_type24753 = t55457; return f13514(t55458);} /* C::=[13637] */ struct structure_type24753 *f13637(struct w49 a25384, struct w49 a25385) {struct structure_type24753 *t55470; struct w49 t55471; struct w49 t55472; struct w49 t55473; /* x123466 stalin.sc:14695:514819 */ /* x123465 stalin.sc:14695:514836 */ /* x123463 stalin.sc:14695:514841 */ t55472 = a25384; /* x123464 stalin.sc:14695:514844 */ t55473 = a25385; /* x123462 stalin.sc:14695:514837 */ t55470 = f13542(t55472, t55473); /* x123461 stalin.sc:14695:514820 */ t55471.tag = STRUCTURE_TYPE24753; t55471.value.structure_type24753 = t55470; return f13514(t55471);} /* C:DEFINE[13635] */ struct w49 f13635(struct w61020 a25382, char *a25383) {struct structure_type24753 *a42018; /* CS */ char *t55474; struct w61020 t55475; char *t55476; struct structure_type24753 *t55477; struct w49 t55478; struct w49 t55479; struct w49 t55480; /* x123455 stalin.sc:14691:514742 */ /* x123454 stalin.sc:14691:514770 */ t55476 = a25383; /* x123453 stalin.sc:14691:514767 */ t55475 = a25382; /* x123452 stalin.sc:14691:514757 */ t55474 = "#define"; /* x123451 stalin.sc:14691:514743 */ t55480.tag = STRUCTURE_TYPE24753; t55480.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55480.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14691, 514742); out_of_memory_error();} t55480.value.structure_type24753->s0.tag = STRING_TYPE; t55480.value.structure_type24753->s0.value.string_type = t55476; t55480.value.structure_type24753->s1.tag = NULL_TYPE; t55479.tag = STRUCTURE_TYPE24753; t55479.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55479.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14691, 514742); out_of_memory_error();} t55479.value.structure_type24753->s0 = *((struct w49 *)(&t55475)); t55479.value.structure_type24753->s1 = t55480; a42018 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42018==NULL) {backtrace("stalin.sc", 14691, 514742); out_of_memory_error();} a42018->s0.tag = STRING_TYPE; a42018->s0.value.string_type = t55474; a42018->s1 = t55479; /* x302184 stalin.sc:14386:505956 */ /* x302183 stalin.sc:14386:505972 */ t55477 = a42018; /* x302182 stalin.sc:14386:505957 */ t55478.tag = STRUCTURE_TYPE24753; t55478.value.structure_type24753 = t55477; return f13474(t55478);} struct w49 f13634(char *a25381) {struct structure_type24753 *a42095; /* CS */ char *t55481; char *t55482; char *t55483; struct structure_type24753 *t55484; struct w49 t55485; struct w49 t55486; struct w49 t55487; /* x123448 stalin.sc:14689:514687 */ /* x123447 stalin.sc:14689:514709 */ t55483 = "*/"; /* x123446 stalin.sc:14689:514707 */ t55482 = a25381; /* x123445 stalin.sc:14689:514702 */ t55481 = "/*"; /* x123444 stalin.sc:14689:514688 */ t55487.tag = STRUCTURE_TYPE24753; t55487.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55487.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14689, 514687); out_of_memory_error();} t55487.value.structure_type24753->s0.tag = STRING_TYPE; t55487.value.structure_type24753->s0.value.string_type = t55483; t55487.value.structure_type24753->s1.tag = NULL_TYPE; t55486.tag = STRUCTURE_TYPE24753; t55486.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55486.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14689, 514687); out_of_memory_error();} t55486.value.structure_type24753->s0.tag = STRING_TYPE; t55486.value.structure_type24753->s0.value.string_type = t55482; t55486.value.structure_type24753->s1 = t55487; a42095 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42095==NULL) {backtrace("stalin.sc", 14689, 514687); out_of_memory_error();} a42095->s0.tag = STRING_TYPE; a42095->s0.value.string_type = t55481; a42095->s1 = t55486; /* x302492 stalin.sc:14386:505956 */ /* x302491 stalin.sc:14386:505972 */ t55484 = a42095; /* x302490 stalin.sc:14386:505957 */ t55485.tag = STRUCTURE_TYPE24753; t55485.value.structure_type24753 = t55484; return f13474(t55485);} /* C:++[13633] */ struct structure_type24753 *f13633(struct w61020 a25380) {struct structure_type24753 *a35119; /* OBJS */ struct structure_type24753 *t55488; struct w49 t55489; struct structure_type24753 *t55490; struct w49 t55491; struct w61020 t55492; char *t55493; struct w49 t55494; /* x123441 stalin.sc:14685:514589 */ /* x123440 stalin.sc:14685:514609 */ /* x123439 stalin.sc:14685:514620 */ /* x123438 stalin.sc:14685:514628 */ t55493 = "++"; /* x123437 stalin.sc:14685:514626 */ t55492 = a25380; /* x123436 stalin.sc:14685:514621 */ t55494.tag = STRUCTURE_TYPE24753; t55494.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55494.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14685, 514620); out_of_memory_error();} t55494.value.structure_type24753->s0.tag = STRING_TYPE; t55494.value.structure_type24753->s0.value.string_type = t55493; t55494.value.structure_type24753->s1.tag = NULL_TYPE; a35119 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35119==NULL) {backtrace("stalin.sc", 14685, 514620); out_of_memory_error();} a35119->s0 = *((struct w49 *)(&t55492)); a35119->s1 = t55494; /* x272245 */ t55490 = a35119; /* x123435 stalin.sc:14685:514610 */ t55491.tag = STRUCTURE_TYPE24753; t55491.value.structure_type24753 = t55490; t55488 = f13472(t55491); /* x123434 stalin.sc:14685:514590 */ t55489.tag = STRUCTURE_TYPE24753; t55489.value.structure_type24753 = t55488; return f13513(t55489);} /* C:![13632] */ struct structure_type24753 *f13632(struct structure_type24753 *a25379) {char *t55495; struct structure_type24753 *t55496; struct w49 t55497; /* x123431 stalin.sc:14682:514499 */ /* x123429 stalin.sc:14682:514506 */ t55495 = "!"; /* x123430 stalin.sc:14682:514510 */ t55496 = a25379; /* x123428 stalin.sc:14682:514500 */ t55497.tag = STRUCTURE_TYPE24753; t55497.value.structure_type24753 = t55496; return f13572(t55495, t55497);} /* C:~[13631] */ struct structure_type24753 *f13631(struct w49 a25378) {char *t55498; struct w49 t55499; /* x123425 stalin.sc:14680:514467 */ /* x123423 stalin.sc:14680:514474 */ t55498 = "~"; /* x123424 stalin.sc:14680:514478 */ t55499 = a25378; /* x123422 stalin.sc:14680:514468 */ return f13572(t55498, t55499);} /* C:&[13625] */ struct structure_type24753 *f13625(struct w49 a25371, struct structure_type24753 *a25372) {struct structure_type24753 *a36032; /* PAIR */ struct structure_type24753 *t55500; struct w49 t55501; char *t55502; struct w49 t55503; struct structure_type24753 *t55504; struct structure_type24753 *t55505; char *t55506; struct w49 t55507; int t55508; int t55509; struct structure_type24753 *t55510; struct w49 t55511; char *t55512; /* x123399 */ /* x123398 stalin.sc:14671:514163 */ /* x123391 stalin.sc:14671:514169 */ /* x123389 stalin.sc:14671:514172 */ /* x123388 stalin.sc:14671:514180 */ t55510 = a25372; /* x123387 stalin.sc:14671:514173 */ /* MOVE: branching squeezed to general */ if (t55510>=((struct structure_type24753 *)VALUE_OFFSET)) {t55511.tag = STRUCTURE_TYPE24753; t55511.value.structure_type24753 = t55510;} else t55511.tag = (unsigned)t55510; t55508 = f26227(t55511); /* x123390 stalin.sc:14671:514184 */ t55509 = 1; /* x269046 stalin.sc:14671:514170 */ if (!(t55508>t55509)) goto l8230; /* x123395 */ /* x123394 */ /* x123393 stalin.sc:14671:514187 */ /* x123392 stalin.sc:14671:514188 */ /* x297433 QobiScheme.sc:166:5314 */ /* x297432 QobiScheme.sc:166:5321 */ t55512 = "This shouldn\'t happen"; /* x297431 QobiScheme.sc:166:5315 */ stalin_panic(t55512); goto l8231; l8230: /* x123397 stalin.sc:14671:514163 */ /* x123396 stalin.sc:14671:514163 */ l8231: /* x123385 */ /* x123384 stalin.sc:14672:514199 */ /* x123372 stalin.sc:14672:514203 */ /* x123371 stalin.sc:14672:514210 */ t55500 = a25372; /* x269047 stalin.sc:14672:514204 */ if (!(((unsigned)t55500)==NULL_TYPE)) goto l8228; /* x123376 stalin.sc:14672:514214 */ /* x123374 stalin.sc:14672:514221 */ t55506 = "&"; /* x123375 stalin.sc:14672:514225 */ t55507 = a25371; /* x123373 stalin.sc:14672:514215 */ return f13572(t55506, t55507); l8228: /* x123383 stalin.sc:14672:514228 */ /* x123378 stalin.sc:14672:514236 */ t55501 = a25371; /* x123379 stalin.sc:14672:514238 */ t55502 = "&"; /* x123382 stalin.sc:14672:514242 */ /* x123381 stalin.sc:14672:514249 */ t55504 = a25372; /* x123380 stalin.sc:14672:514243 */ a36032 = t55504; /* x275485 */ /* x275484 */ t55505 = a36032; /* x275483 */ t55503 = t55505->s0; /* x123377 stalin.sc:14672:514229 */ return f13573(t55501, t55502, t55503);} /* C:>>[13624] */ struct w49 f13624(struct w49 a25369, struct w49 a25370) {struct w49 r13624; struct w49 t55513; char *t55514; struct w49 t55515; struct w49 t55516; char *t55517; struct w49 t55518; struct structure_type24753 *t55519; /* x123367 stalin.sc:14668:514095 */ /* x123360 stalin.sc:14668:514099 */ /* x123358 stalin.sc:14668:514107 */ t55513 = a25370; /* x123359 stalin.sc:14668:514110 */ t55514 = "0"; /* x123357 stalin.sc:14668:514100 */ t55515.tag = STRING_TYPE; t55515.value.string_type = t55514; if (f26165(t55513, t55515)==FALSE_TYPE) goto l8233; /* x123361 stalin.sc:14668:514115 */ return a25369; l8233: /* x123366 stalin.sc:14668:514118 */ /* x123363 stalin.sc:14668:514126 */ t55516 = a25369; /* x123364 stalin.sc:14668:514129 */ t55517 = ">>"; /* x123365 stalin.sc:14668:514134 */ t55518 = a25370; /* x123362 stalin.sc:14668:514119 */ t55519 = f13573(t55516, t55517, t55518); r13624.tag = STRUCTURE_TYPE24753; r13624.value.structure_type24753 = t55519; return r13624;} /* C:<<[13623] */ struct w49 f13623(struct w49 a25367, struct w49 a25368) {struct w49 r13623; struct w49 t55520; char *t55521; struct w49 t55522; struct w49 t55523; char *t55524; struct w49 t55525; struct structure_type24753 *t55526; /* x123354 stalin.sc:14662:513865 */ /* x123347 stalin.sc:14662:513869 */ /* x123345 stalin.sc:14662:513877 */ t55520 = a25368; /* x123346 stalin.sc:14662:513880 */ t55521 = "0"; /* x123344 stalin.sc:14662:513870 */ t55522.tag = STRING_TYPE; t55522.value.string_type = t55521; if (f26165(t55520, t55522)==FALSE_TYPE) goto l8235; /* x123348 stalin.sc:14662:513885 */ return a25367; l8235: /* x123353 stalin.sc:14662:513888 */ /* x123350 stalin.sc:14662:513896 */ t55523 = a25367; /* x123351 stalin.sc:14662:513899 */ t55524 = "<<"; /* x123352 stalin.sc:14662:513904 */ t55525 = a25368; /* x123349 stalin.sc:14662:513889 */ t55526 = f13573(t55523, t55524, t55525); r13623.tag = STRUCTURE_TYPE24753; r13623.value.structure_type24753 = t55526; return r13623;} /* C:%[13622] */ struct structure_type24753 *f13622(struct w49 a25365, struct w49 a25366) {struct w49 t55527; char *t55528; struct w49 t55529; /* x123341 stalin.sc:14659:513766 */ /* x123338 stalin.sc:14659:513774 */ t55527 = a25365; /* x123339 stalin.sc:14659:513777 */ t55528 = "%"; /* x123340 stalin.sc:14659:513781 */ t55529 = a25366; /* x123337 stalin.sc:14659:513767 */ return f13573(t55527, t55528, t55529);} /* C:/[13621] */ struct structure_type24753 *f13621(struct w49 a25363, struct w49 a25364) {struct w49 t55530; char *t55531; struct w49 t55532; /* x123334 stalin.sc:14654:513620 */ /* x123331 stalin.sc:14654:513628 */ t55530 = a25363; /* x123332 stalin.sc:14654:513631 */ t55531 = "/"; /* x123333 stalin.sc:14654:513635 */ t55532 = a25364; /* x123330 stalin.sc:14654:513621 */ return f13573(t55530, t55531, t55532);} /* C:*[13617] */ struct structure_type24753 *f13617(struct w49 a25360, struct structure_type24753 *a25361) {struct structure_type24753 *a35880; /* PAIR */ struct structure_type24753 *t55533; struct w49 t55534; char *t55535; struct w49 t55536; struct structure_type24753 *t55537; struct structure_type24753 *t55538; char *t55539; struct w49 t55540; int t55541; int t55542; struct structure_type24753 *t55543; struct w49 t55544; char *t55545; /* x123327 */ /* x123326 stalin.sc:14651:513506 */ /* x123319 stalin.sc:14651:513512 */ /* x123317 stalin.sc:14651:513515 */ /* x123316 stalin.sc:14651:513523 */ t55543 = a25361; /* x123315 stalin.sc:14651:513516 */ /* MOVE: branching squeezed to general */ if (t55543>=((struct structure_type24753 *)VALUE_OFFSET)) {t55544.tag = STRUCTURE_TYPE24753; t55544.value.structure_type24753 = t55543;} else t55544.tag = (unsigned)t55543; t55541 = f26227(t55544); /* x123318 stalin.sc:14651:513527 */ t55542 = 1; /* x269048 stalin.sc:14651:513513 */ if (!(t55541>t55542)) goto l8239; /* x123323 */ /* x123322 */ /* x123321 stalin.sc:14651:513530 */ /* x123320 stalin.sc:14651:513531 */ /* x296005 QobiScheme.sc:166:5314 */ /* x296004 QobiScheme.sc:166:5321 */ t55545 = "This shouldn\'t happen"; /* x296003 QobiScheme.sc:166:5315 */ stalin_panic(t55545); goto l8240; l8239: /* x123325 stalin.sc:14651:513506 */ /* x123324 stalin.sc:14651:513506 */ l8240: /* x123313 */ /* x123312 stalin.sc:14652:513542 */ /* x123300 stalin.sc:14652:513546 */ /* x123299 stalin.sc:14652:513553 */ t55533 = a25361; /* x269049 stalin.sc:14652:513547 */ if (!(((unsigned)t55533)==NULL_TYPE)) goto l8237; /* x123304 stalin.sc:14652:513557 */ /* x123302 stalin.sc:14652:513564 */ t55539 = "*"; /* x123303 stalin.sc:14652:513568 */ t55540 = a25360; /* x123301 stalin.sc:14652:513558 */ return f13572(t55539, t55540); l8237: /* x123311 stalin.sc:14652:513571 */ /* x123306 stalin.sc:14652:513579 */ t55534 = a25360; /* x123307 stalin.sc:14652:513581 */ t55535 = "*"; /* x123310 stalin.sc:14652:513585 */ /* x123309 stalin.sc:14652:513592 */ t55537 = a25361; /* x123308 stalin.sc:14652:513586 */ a35880 = t55537; /* x274877 */ /* x274876 */ t55538 = a35880; /* x274875 */ t55536 = t55538->s0; /* x123305 stalin.sc:14652:513572 */ return f13573(t55534, t55535, t55536);} /* C:-[13610] */ struct w49 f13610(struct w49 a25357, struct structure_type24753 *a25358) {struct w49 r13610; struct structure_type24753 *a36033; /* PAIR */ struct structure_type24753 *a36034; /* PAIR */ struct structure_type24753 *t55546; struct w49 t55547; char *t55548; struct w49 t55549; struct structure_type24753 *t55550; struct structure_type24753 *t55551; struct w49 t55552; char *t55553; struct w49 t55554; struct structure_type24753 *t55555; struct structure_type24753 *t55556; struct structure_type24753 *t55557; char *t55558; struct w49 t55559; struct structure_type24753 *t55560; int t55561; int t55562; struct structure_type24753 *t55563; struct w49 t55564; char *t55565; /* x123295 */ /* x123294 stalin.sc:14644:513280 */ /* x123287 stalin.sc:14644:513286 */ /* x123285 stalin.sc:14644:513289 */ /* x123284 stalin.sc:14644:513297 */ t55563 = a25358; /* x123283 stalin.sc:14644:513290 */ /* MOVE: branching squeezed to general */ if (t55563>=((struct structure_type24753 *)VALUE_OFFSET)) {t55564.tag = STRUCTURE_TYPE24753; t55564.value.structure_type24753 = t55563;} else t55564.tag = (unsigned)t55563; t55561 = f26227(t55564); /* x123286 stalin.sc:14644:513301 */ t55562 = 1; /* x269050 stalin.sc:14644:513287 */ if (!(t55561>t55562)) goto l8246; /* x123291 */ /* x123290 */ /* x123289 stalin.sc:14644:513304 */ /* x123288 stalin.sc:14644:513305 */ /* x296273 QobiScheme.sc:166:5314 */ /* x296272 QobiScheme.sc:166:5321 */ t55565 = "This shouldn\'t happen"; /* x296271 QobiScheme.sc:166:5315 */ stalin_panic(t55565); goto l8247; l8246: /* x123293 stalin.sc:14644:513280 */ /* x123292 stalin.sc:14644:513280 */ l8247: /* x123281 */ /* x123280 stalin.sc:14645:513316 */ /* x123254 stalin.sc:14645:513323 */ /* x123253 stalin.sc:14645:513330 */ t55546 = a25358; /* x269051 stalin.sc:14645:513324 */ if (!(((unsigned)t55546)==NULL_TYPE)) goto l8242; /* x123260 */ /* x123259 */ /* x123258 stalin.sc:14645:513334 */ /* x123256 stalin.sc:14645:513341 */ t55558 = "-"; /* x123257 stalin.sc:14645:513345 */ t55559 = a25357; /* x123255 stalin.sc:14645:513335 */ t55560 = f13572(t55558, t55559); r13610.tag = STRUCTURE_TYPE24753; r13610.value.structure_type24753 = t55560; return r13610; l8242: /* x123279 */ /* x123266 stalin.sc:14646:513357 */ /* x123264 stalin.sc:14646:513365 */ /* x123263 stalin.sc:14646:513372 */ t55550 = a25358; /* x123262 stalin.sc:14646:513366 */ a36034 = t55550; /* x275493 */ /* x275492 */ t55551 = a36034; /* x275491 */ t55547 = t55551->s0; /* x123265 stalin.sc:14646:513376 */ t55548 = "0"; /* x123261 stalin.sc:14646:513358 */ t55549.tag = STRING_TYPE; t55549.value.string_type = t55548; if (f26165(t55547, t55549)==FALSE_TYPE) goto l8244; /* x123269 */ /* x123268 */ /* x123267 stalin.sc:14646:513381 */ return a25357; l8244: /* x123278 */ /* x123277 */ /* x123276 stalin.sc:14647:513397 */ /* x123271 stalin.sc:14647:513405 */ t55552 = a25357; /* x123272 stalin.sc:14647:513407 */ t55553 = "-"; /* x123275 stalin.sc:14647:513411 */ /* x123274 stalin.sc:14647:513418 */ t55556 = a25358; /* x123273 stalin.sc:14647:513412 */ a36033 = t55556; /* x275489 */ /* x275488 */ t55557 = a36033; /* x275487 */ t55554 = t55557->s0; /* x123270 stalin.sc:14647:513398 */ t55555 = f13573(t55552, t55553, t55554); r13610.tag = STRUCTURE_TYPE24753; r13610.value.structure_type24753 = t55555; return r13610;} /* C:+[13609] */ struct w49 f13609(struct w49 a25355, struct w49 a25356) {struct w49 r13609; struct w49 t55566; char *t55567; struct w49 t55568; struct w49 t55569; char *t55570; struct w49 t55571; struct structure_type24753 *t55572; /* x123249 stalin.sc:14640:513156 */ /* x123242 stalin.sc:14640:513160 */ /* x123240 stalin.sc:14640:513168 */ t55566 = a25356; /* x123241 stalin.sc:14640:513171 */ t55567 = "0"; /* x123239 stalin.sc:14640:513161 */ t55568.tag = STRING_TYPE; t55568.value.string_type = t55567; if (f26165(t55566, t55568)==FALSE_TYPE) goto l8249; /* x123243 stalin.sc:14640:513176 */ return a25355; l8249: /* x123248 stalin.sc:14640:513179 */ /* x123245 stalin.sc:14640:513187 */ t55569 = a25355; /* x123246 stalin.sc:14640:513190 */ t55570 = "+"; /* x123247 stalin.sc:14640:513194 */ t55571 = a25356; /* x123244 stalin.sc:14640:513180 */ t55572 = f13573(t55569, t55570, t55571); r13609.tag = STRUCTURE_TYPE24753; r13609.value.structure_type24753 = t55572; return r13609;} /* C:>=[13608] */ struct structure_type24753 *f13608(struct w49 a25353, struct w49 a25354) {struct w49 t55573; char *t55574; struct w49 t55575; /* x123236 stalin.sc:14637:513057 */ /* x123233 stalin.sc:14637:513065 */ t55573 = a25353; /* x123234 stalin.sc:14637:513068 */ t55574 = ">="; /* x123235 stalin.sc:14637:513073 */ t55575 = a25354; /* x123232 stalin.sc:14637:513058 */ return f13573(t55573, t55574, t55575);} /* C:>0.0[13606] */ struct structure_type24753 *f13606(struct w49 a25350) {struct w49 t55576; char *t55577; struct w49 t55578; /* x123222 stalin.sc:14633:512975 */ /* x123219 stalin.sc:14633:512980 */ t55576 = a25350; /* x123221 stalin.sc:14633:512982 */ /* x123220 stalin.sc:14633:512983 */ /* x122969 stalin.sc:14558:511097 */ t55577 = "0.0"; /* x123218 stalin.sc:14633:512976 */ t55578.tag = STRING_TYPE; t55578.value.string_type = t55577; return f13604(t55576, t55578);} /* C:>[13604] */ struct structure_type24753 *f13604(struct w49 a25347, struct w49 a25348) {struct w49 t55579; char *t55580; struct w49 t55581; /* x123208 stalin.sc:14629:512902 */ /* x123205 stalin.sc:14629:512910 */ t55579 = a25347; /* x123206 stalin.sc:14629:512913 */ t55580 = ">"; /* x123207 stalin.sc:14629:512917 */ t55581 = a25348; /* x123204 stalin.sc:14629:512903 */ return f13573(t55579, t55580, t55581);} /* C:<0.0[13603] */ struct structure_type24753 *f13603(struct w49 a25346) {struct w49 t55582; char *t55583; struct w49 t55584; /* x123201 stalin.sc:14627:512864 */ /* x123198 stalin.sc:14627:512869 */ t55582 = a25346; /* x123200 stalin.sc:14627:512871 */ /* x123199 stalin.sc:14627:512872 */ /* x276887 stalin.sc:14558:511097 */ t55583 = "0.0"; /* x123197 stalin.sc:14627:512865 */ t55584.tag = STRING_TYPE; t55584.value.string_type = t55583; return f13601(t55582, t55584);} /* C:<0[13602] */ struct structure_type24753 *f13602(struct w49 a25345) {struct w49 t55585; char *t55586; struct w49 t55587; /* x123194 stalin.sc:14625:512829 */ /* x123191 stalin.sc:14625:512834 */ t55585 = a25345; /* x123193 stalin.sc:14625:512836 */ /* x123192 stalin.sc:14625:512837 */ /* x276893 stalin.sc:14555:511005 */ t55586 = "0"; /* x123190 stalin.sc:14625:512830 */ t55587.tag = STRING_TYPE; t55587.value.string_type = t55586; return f13601(t55585, t55587);} /* C:<[13601] */ struct structure_type24753 *f13601(struct w49 a25343, struct w49 a25344) {struct w49 t55588; char *t55589; struct w49 t55590; /* x123187 stalin.sc:14623:512791 */ /* x123184 stalin.sc:14623:512799 */ t55588 = a25343; /* x123185 stalin.sc:14623:512802 */ t55589 = "<"; /* x123186 stalin.sc:14623:512806 */ t55590 = a25344; /* x123183 stalin.sc:14623:512792 */ return f13573(t55588, t55589, t55590);} /* C:!=0.0[13600] */ struct structure_type24753 *f13600(struct structure_type24753 *a25342) {struct structure_type24753 *t55591; char *t55592; struct w49 t55593; struct w61020 t55594; /* x123180 stalin.sc:14621:512752 */ /* x123177 stalin.sc:14621:512758 */ t55591 = a25342; /* x123179 stalin.sc:14621:512760 */ /* x123178 stalin.sc:14621:512761 */ /* x276885 stalin.sc:14558:511097 */ t55592 = "0.0"; /* x123176 stalin.sc:14621:512753 */ t55593.tag = STRUCTURE_TYPE24753; t55593.value.structure_type24753 = t55591; t55594.tag = STRING_TYPE; t55594.value.string_type = t55592; return f13598(t55593, t55594);} /* C:!=0[13599] */ struct structure_type24753 *f13599(struct structure_type24753 *a25341) {struct structure_type24753 *t55595; char *t55596; struct w49 t55597; struct w61020 t55598; /* x123173 stalin.sc:14619:512715 */ /* x123170 stalin.sc:14619:512721 */ t55595 = a25341; /* x123172 stalin.sc:14619:512723 */ /* x123171 stalin.sc:14619:512724 */ /* x276923 stalin.sc:14555:511005 */ t55596 = "0"; /* x123169 stalin.sc:14619:512716 */ t55597.tag = STRUCTURE_TYPE24753; t55597.value.structure_type24753 = t55595; t55598.tag = STRING_TYPE; t55598.value.string_type = t55596; return f13598(t55597, t55598);} /* C:!=[13598] */ struct structure_type24753 *f13598(struct w49 a25339, struct w61020 a25340) {struct w49 t55599; char *t55600; struct w61020 t55601; struct w49 t55602; /* x123166 stalin.sc:14617:512675 */ /* x123163 stalin.sc:14617:512683 */ t55599 = a25339; /* x123164 stalin.sc:14617:512686 */ t55600 = "!="; /* x123165 stalin.sc:14617:512691 */ t55601 = a25340; /* x123162 stalin.sc:14617:512676 */ t55602 = *((struct w49 *)(&t55601)); return f13573(t55599, t55600, t55602);} /* C:==EOF[13597] */ struct structure_type24753 *f13597(struct structure_type24753 *a25338) {struct structure_type24753 *t55603; char *t55604; struct w49 t55605; struct w49 t55606; char *t55607; struct w49 t55608; /* x123159 stalin.sc:14615:512635 */ /* x123156 stalin.sc:14615:512641 */ t55603 = a25338; /* x123158 stalin.sc:14615:512643 */ /* x123157 stalin.sc:14615:512644 */ /* x122997 */ /* x122996 stalin.sc:14577:511558 */ /* x122995 stalin.sc:14577:511568 */ t55607 = "stdio"; /* x122994 stalin.sc:14577:511559 */ t55608.tag = STRING_TYPE; t55608.value.string_type = t55607; f18320(t55608); /* x122993 */ /* x122992 stalin.sc:14578:511585 */ t55604 = "EOF"; /* x123155 stalin.sc:14615:512636 */ t55605.tag = STRUCTURE_TYPE24753; t55605.value.structure_type24753 = t55603; t55606.tag = STRING_TYPE; t55606.value.string_type = t55604; return f13591(t55605, t55606);} /* C:==NULL[13596] */ struct structure_type24753 *f13596(struct w49 a25337) {struct w49 t55609; char *t55610; struct w49 t55611; char *t55612; struct w49 t55613; /* x123152 stalin.sc:14613:512595 */ /* x123149 stalin.sc:14613:512601 */ t55609 = a25337; /* x123151 stalin.sc:14613:512603 */ /* x123150 stalin.sc:14613:512604 */ /* x122989 */ /* x122988 stalin.sc:14573:511503 */ /* x122987 stalin.sc:14573:511513 */ t55612 = "stdlib"; /* x122986 stalin.sc:14573:511504 */ t55613.tag = STRING_TYPE; t55613.value.string_type = t55612; f18320(t55613); /* x122985 */ /* x122984 stalin.sc:14574:511532 */ t55610 = "NULL"; /* x123148 stalin.sc:14613:512596 */ t55611.tag = STRING_TYPE; t55611.value.string_type = t55610; return f13591(t55609, t55611);} /* C:==0.0[13593] */ struct structure_type24753 *f13593(struct w49 a25334) {struct w49 t55614; char *t55615; struct w49 t55616; /* x123134 stalin.sc:14607:512476 */ /* x123131 stalin.sc:14607:512482 */ t55614 = a25334; /* x123133 stalin.sc:14607:512484 */ /* x123132 stalin.sc:14607:512485 */ /* x276889 stalin.sc:14558:511097 */ t55615 = "0.0"; /* x123130 stalin.sc:14607:512477 */ t55616.tag = STRING_TYPE; t55616.value.string_type = t55615; return f13591(t55614, t55616);} /* C:==0[13592] */ struct structure_type24753 *f13592(struct w49 a25333) {struct w49 t55617; char *t55618; struct w49 t55619; /* x123127 stalin.sc:14605:512439 */ /* x123124 stalin.sc:14605:512445 */ t55617 = a25333; /* x123126 stalin.sc:14605:512447 */ /* x123125 stalin.sc:14605:512448 */ /* x276921 stalin.sc:14555:511005 */ t55618 = "0"; /* x123123 stalin.sc:14605:512440 */ t55619.tag = STRING_TYPE; t55619.value.string_type = t55618; return f13591(t55617, t55619);} /* C:==[13591] */ struct structure_type24753 *f13591(struct w49 a25331, struct w49 a25332) {struct w49 t55620; char *t55621; struct w49 t55622; /* x123120 stalin.sc:14603:512399 */ /* x123117 stalin.sc:14603:512407 */ t55620 = a25331; /* x123118 stalin.sc:14603:512410 */ t55621 = "=="; /* x123119 stalin.sc:14603:512415 */ t55622 = a25332; /* x123116 stalin.sc:14603:512400 */ return f13573(t55620, t55621, t55622);} /* C:->[13588] */ struct structure_type24753 *f13588(struct w49 a25327, struct w61020 a25328) {struct w49 a25329; /* C1 */ struct structure_type24753 *t55623; struct w49 t55624; struct w49 t55625; struct w49 t55626; int t55627; int t55628; struct w49 t55629; struct w49 t55630; struct w49 t55631; struct w49 t55632; char *t55633; struct w49 t55634; struct w49 t55635; struct w49 t55636; struct w49 t55637; char *t55638; struct w49 t55639; struct w49 t55640; struct w49 t55641; struct w49 t55642; struct w49 t55643; char *t55644; struct w61020 t55645; struct w49 t55646; struct w49 t55647; char *t55648; struct w61020 t55649; struct w49 t55650; struct w49 t55651; /* x123113 stalin.sc:14592:511995 */ /* x123112 stalin.sc:14593:512008 */ /* x123099 stalin.sc:14593:512012 */ /* x123098 stalin.sc:14593:512022 */ /* x123097 stalin.sc:14593:512031 */ t55642 = a25327; /* x123096 stalin.sc:14593:512023 */ t55625 = f13419(t55642); /* x123095 */ a25329 = t55625; /* x123094 stalin.sc:14596:512172 */ /* x123060 stalin.sc:14596:512177 */ /* x123059 stalin.sc:14596:512184 */ t55626 = a25329; /* x123058 stalin.sc:14596:512178 */ if (f26209(t55626)==FALSE_TYPE) goto l8251; /* x123092 */ /* x123066 stalin.sc:14597:512193 */ /* x123064 stalin.sc:14597:512196 */ /* x123063 stalin.sc:14597:512204 */ t55629 = a25329; /* x123062 stalin.sc:14597:512197 */ t55627 = f26227(t55629); /* x123065 stalin.sc:14597:512208 */ t55628 = 3; /* x269053 stalin.sc:14597:512194 */ if (!(t55627==t55628)) goto l8251; /* x123090 */ /* x123071 stalin.sc:14598:512216 */ /* x123070 stalin.sc:14598:512225 */ /* x123069 stalin.sc:14598:512233 */ t55631 = a25329; /* x123068 stalin.sc:14598:512226 */ t55630 = f26181(t55631); /* x269052 stalin.sc:14598:512217 */ if (!((t55630.tag)==STRING_TYPE)) goto l8251; /* x123088 */ /* x123087 stalin.sc:14599:512247 */ /* x123086 stalin.sc:14599:512269 */ t55633 = "."; /* x123085 stalin.sc:14599:512257 */ /* x123084 stalin.sc:14599:512265 */ t55636 = a25329; /* x123083 stalin.sc:14599:512258 */ t55632 = f26181(t55636); /* x123082 stalin.sc:14599:512248 */ t55634 = t55632; t55635.tag = STRING_TYPE; t55635.value.string_type = t55633; if (!(f27434(t55634, t55635)==FALSE_TYPE)) goto l8250; /* x123079 */ /* x123078 stalin.sc:14599:512296 */ t55638 = "->"; /* x123077 stalin.sc:14599:512284 */ /* x123076 stalin.sc:14599:512292 */ t55641 = a25329; /* x123075 stalin.sc:14599:512285 */ t55637 = f26181(t55641); /* x123074 stalin.sc:14599:512275 */ t55639 = t55637; t55640.tag = STRING_TYPE; t55640.value.string_type = t55638; if (f27434(t55639, t55640)==FALSE_TYPE) goto l8251; l8250: /* x123106 stalin.sc:14600:512311 */ /* x123103 stalin.sc:14600:512319 */ /* x123102 stalin.sc:14600:512335 */ t55651 = a25327; /* x123101 stalin.sc:14600:512320 */ t55647 = f13508(t55651); /* x123104 stalin.sc:14600:512339 */ t55648 = "->"; /* x123105 stalin.sc:14600:512344 */ t55649 = a25328; /* x123100 stalin.sc:14600:512312 */ t55650 = *((struct w49 *)(&t55649)); t55623 = f13573(t55647, t55648, t55650); goto l8252; l8251: /* x123111 stalin.sc:14601:512354 */ /* x123108 stalin.sc:14601:512362 */ t55643 = a25327; /* x123109 stalin.sc:14601:512365 */ t55644 = "->"; /* x123110 stalin.sc:14601:512370 */ t55645 = a25328; /* x123107 stalin.sc:14601:512355 */ t55646 = *((struct w49 *)(&t55645)); t55623 = f13573(t55643, t55644, t55646); l8252: /* x123057 stalin.sc:14592:511996 */ t55624.tag = STRUCTURE_TYPE24753; t55624.value.structure_type24753 = t55623; return f13472(t55624);} /* C:.[13585] */ struct structure_type24753 *f13585(struct w49 a25323, struct w61020 a25324) {struct w49 a25325; /* C1 */ struct w49 t55652; struct w49 t55653; int t55654; int t55655; struct w49 t55656; struct w49 t55657; struct w49 t55658; struct w49 t55659; char *t55660; struct w49 t55661; struct w49 t55662; struct w49 t55663; struct w49 t55664; char *t55665; struct w49 t55666; struct w49 t55667; struct w49 t55668; struct w49 t55669; struct w49 t55670; char *t55671; struct w61020 t55672; struct w49 t55673; struct w49 t55674; char *t55675; struct w61020 t55676; struct w49 t55677; struct w49 t55678; /* x123054 stalin.sc:14581:511614 */ /* x123041 stalin.sc:14581:511618 */ /* x123040 stalin.sc:14581:511628 */ /* x123039 stalin.sc:14581:511637 */ t55669 = a25323; /* x123038 stalin.sc:14581:511629 */ t55652 = f13419(t55669); /* x123037 */ a25325 = t55652; /* x123036 stalin.sc:14584:511775 */ /* x123002 stalin.sc:14584:511780 */ /* x123001 stalin.sc:14584:511787 */ t55653 = a25325; /* x123000 stalin.sc:14584:511781 */ if (f26209(t55653)==FALSE_TYPE) goto l8258; /* x123034 */ /* x123008 stalin.sc:14585:511795 */ /* x123006 stalin.sc:14585:511798 */ /* x123005 stalin.sc:14585:511806 */ t55656 = a25325; /* x123004 stalin.sc:14585:511799 */ t55654 = f26227(t55656); /* x123007 stalin.sc:14585:511810 */ t55655 = 3; /* x269055 stalin.sc:14585:511796 */ if (!(t55654==t55655)) goto l8258; /* x123032 */ /* x123013 stalin.sc:14586:511817 */ /* x123012 stalin.sc:14586:511826 */ /* x123011 stalin.sc:14586:511834 */ t55658 = a25325; /* x123010 stalin.sc:14586:511827 */ t55657 = f26181(t55658); /* x269054 stalin.sc:14586:511818 */ if (!((t55657.tag)==STRING_TYPE)) goto l8258; /* x123030 */ /* x123029 stalin.sc:14587:511847 */ /* x123028 stalin.sc:14587:511869 */ t55660 = "."; /* x123027 stalin.sc:14587:511857 */ /* x123026 stalin.sc:14587:511865 */ t55663 = a25325; /* x123025 stalin.sc:14587:511858 */ t55659 = f26181(t55663); /* x123024 stalin.sc:14587:511848 */ t55661 = t55659; t55662.tag = STRING_TYPE; t55662.value.string_type = t55660; if (!(f27434(t55661, t55662)==FALSE_TYPE)) goto l8257; /* x123021 */ /* x123020 stalin.sc:14587:511896 */ t55665 = "->"; /* x123019 stalin.sc:14587:511884 */ /* x123018 stalin.sc:14587:511892 */ t55668 = a25325; /* x123017 stalin.sc:14587:511885 */ t55664 = f26181(t55668); /* x123016 stalin.sc:14587:511875 */ t55666 = t55664; t55667.tag = STRING_TYPE; t55667.value.string_type = t55665; if (f27434(t55666, t55667)==FALSE_TYPE) goto l8258; l8257: /* x123048 stalin.sc:14588:511910 */ /* x123045 stalin.sc:14588:511918 */ /* x123044 stalin.sc:14588:511934 */ t55678 = a25323; /* x123043 stalin.sc:14588:511919 */ t55674 = f13508(t55678); /* x123046 stalin.sc:14588:511938 */ t55675 = "."; /* x123047 stalin.sc:14588:511942 */ t55676 = a25324; /* x123042 stalin.sc:14588:511911 */ t55677 = *((struct w49 *)(&t55676)); return f13573(t55674, t55675, t55677); l8258: /* x123053 stalin.sc:14589:511951 */ /* x123050 stalin.sc:14589:511959 */ t55670 = a25323; /* x123051 stalin.sc:14589:511962 */ t55671 = "."; /* x123052 stalin.sc:14589:511966 */ t55672 = a25324; /* x123049 stalin.sc:14589:511952 */ t55673 = *((struct w49 *)(&t55672)); return f13573(t55670, t55671, t55673);} /* C:?:[13574] */ struct structure_type24753 *f13574(struct structure_type24753 *a25318, struct w49 a25319, struct w49 a25320) {struct structure_type24753 *a35162; /* OBJS */ struct structure_type24753 *t55679; struct w49 t55680; struct structure_type24753 *t55681; char *t55682; struct w49 t55683; char *t55684; struct w49 t55685; struct w49 t55686; struct w49 t55687; struct w49 t55688; struct w49 t55689; /* x122963 stalin.sc:14552:510864 */ /* x122962 stalin.sc:14552:510884 */ /* x122961 stalin.sc:14552:510904 */ t55685 = a25320; /* x122960 stalin.sc:14552:510900 */ t55684 = ":"; /* x122959 stalin.sc:14552:510897 */ t55683 = a25319; /* x122958 stalin.sc:14552:510893 */ t55682 = "?"; /* x122957 stalin.sc:14552:510890 */ t55681 = a25318; /* x122956 stalin.sc:14552:510885 */ t55689.tag = STRUCTURE_TYPE24753; t55689.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55689.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14552, 510884); out_of_memory_error();} t55689.value.structure_type24753->s0 = t55685; t55689.value.structure_type24753->s1.tag = NULL_TYPE; t55688.tag = STRUCTURE_TYPE24753; t55688.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55688.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14552, 510884); out_of_memory_error();} t55688.value.structure_type24753->s0.tag = STRING_TYPE; t55688.value.structure_type24753->s0.value.string_type = t55684; t55688.value.structure_type24753->s1 = t55689; t55687.tag = STRUCTURE_TYPE24753; t55687.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55687.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14552, 510884); out_of_memory_error();} t55687.value.structure_type24753->s0 = t55683; t55687.value.structure_type24753->s1 = t55688; t55686.tag = STRUCTURE_TYPE24753; t55686.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55686.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14552, 510884); out_of_memory_error();} t55686.value.structure_type24753->s0.tag = STRING_TYPE; t55686.value.structure_type24753->s0.value.string_type = t55682; t55686.value.structure_type24753->s1 = t55687; a35162 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35162==NULL) {backtrace("stalin.sc", 14552, 510884); out_of_memory_error();} a35162->s0.tag = STRUCTURE_TYPE24753; a35162->s0.value.structure_type24753 = t55681; a35162->s1 = t55686; /* x272331 */ t55679 = a35162; /* x122955 stalin.sc:14552:510865 */ t55680.tag = STRUCTURE_TYPE24753; t55680.value.structure_type24753 = t55679; return f13513(t55680);} /* BINARY[13573] */ struct structure_type24753 *f13573(struct w49 a25315, char *a25316, struct w49 a25317) {struct structure_type24753 *a35220; /* OBJS */ struct structure_type24753 *t55690; struct w49 t55691; struct w49 t55692; char *t55693; struct w49 t55694; struct w49 t55695; struct w49 t55696; /* x122952 stalin.sc:14550:510801 */ /* x122951 stalin.sc:14550:510821 */ /* x122950 stalin.sc:14550:510833 */ t55694 = a25317; /* x122949 stalin.sc:14550:510830 */ t55693 = a25316; /* x122948 stalin.sc:14550:510827 */ t55692 = a25315; /* x122947 stalin.sc:14550:510822 */ t55696.tag = STRUCTURE_TYPE24753; t55696.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55696.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14550, 510821); out_of_memory_error();} t55696.value.structure_type24753->s0 = t55694; t55696.value.structure_type24753->s1.tag = NULL_TYPE; t55695.tag = STRUCTURE_TYPE24753; t55695.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55695.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14550, 510821); out_of_memory_error();} t55695.value.structure_type24753->s0.tag = STRING_TYPE; t55695.value.structure_type24753->s0.value.string_type = t55693; t55695.value.structure_type24753->s1 = t55696; a35220 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35220==NULL) {backtrace("stalin.sc", 14550, 510821); out_of_memory_error();} a35220->s0 = t55692; a35220->s1 = t55695; /* x272447 */ t55690 = a35220; /* x122946 stalin.sc:14550:510802 */ t55691.tag = STRUCTURE_TYPE24753; t55691.value.structure_type24753 = t55690; return f13513(t55691);} /* UNARY[13572] */ struct structure_type24753 *f13572(char *a25313, struct w49 a25314) {struct structure_type24753 *a35219; /* OBJS */ struct structure_type24753 *t55697; struct w49 t55698; char *t55699; struct w49 t55700; struct w49 t55701; /* x122943 stalin.sc:14548:510739 */ /* x122942 stalin.sc:14548:510759 */ /* x122941 stalin.sc:14548:510768 */ t55700 = a25314; /* x122940 stalin.sc:14548:510765 */ t55699 = a25313; /* x122939 stalin.sc:14548:510760 */ t55701.tag = STRUCTURE_TYPE24753; t55701.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55701.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14548, 510759); out_of_memory_error();} t55701.value.structure_type24753->s0 = t55700; t55701.value.structure_type24753->s1.tag = NULL_TYPE; a35219 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35219==NULL) {backtrace("stalin.sc", 14548, 510759); out_of_memory_error();} a35219->s0.tag = STRING_TYPE; a35219->s0.value.string_type = t55699; a35219->s1 = t55701; /* x272445 */ t55697 = a35219; /* x122938 stalin.sc:14548:510740 */ t55698.tag = STRUCTURE_TYPE24753; t55698.value.structure_type24753 = t55697; return f13513(t55698);} /* LOOP[13567] */ struct w49 f13567(struct w49 a25312) {struct w49 r13567; struct structure_type24753 *a35122; /* OBJS */ struct w16638 a35434; /* PAIR */ struct w16638 a35435; /* PAIR */ struct w16638 a35896; /* PAIR */ struct w16638 a35897; /* PAIR */ struct w49 t55702; struct w49 t55703; struct w16638 t55704; struct w16638 t55705; struct w49 t55706; char *t55707; struct w49 t55708; struct w49 t55709; struct w49 t55710; struct w16638 t55711; struct w16638 t55712; struct w49 t55713; struct w16638 t55714; struct w16638 t55715; struct w16638 t55716; struct w16638 t55717; char *t55718; /* x122925 stalin.sc:14544:510601 */ /* x122896 stalin.sc:14544:510608 */ /* x122895 stalin.sc:14544:510615 */ t55702 = a25312; /* x269057 stalin.sc:14544:510609 */ if (!((t55702.tag)==NULL_TYPE)) goto l8264; /* x122900 */ /* x122899 */ /* x122898 stalin.sc:14544:510619 */ /* x122897 stalin.sc:14544:510620 */ /* x295833 QobiScheme.sc:166:5314 */ /* x295832 QobiScheme.sc:166:5321 */ t55718 = "This shouldn\'t happen"; /* x295831 QobiScheme.sc:166:5315 */ stalin_panic(t55718); l8264: /* x122924 */ /* x122905 stalin.sc:14545:510633 */ /* x122904 stalin.sc:14545:510640 */ /* x122903 stalin.sc:14545:510646 */ t55704 = *((struct w16638 *)(&a25312)); /* x122902 stalin.sc:14545:510641 */ a35435 = t55704; /* x273097 */ /* x273096 */ t55705 = a35435; /* x273095 */ if (!((t55705.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29584]"); structure_ref_error();} t55703 = t55705.value.structure_type24753->s1; /* x269056 stalin.sc:14545:510634 */ if (!((t55703.tag)==NULL_TYPE)) goto l8266; /* x122910 */ /* x122909 */ /* x122908 stalin.sc:14545:510651 */ /* x122907 stalin.sc:14545:510658 */ t55716 = *((struct w16638 *)(&a25312)); /* x122906 stalin.sc:14545:510652 */ a35896 = t55716; /* x274941 */ /* x274940 */ t55717 = a35896; /* x274939 */ if ((t55717.tag)==STRUCTURE_TYPE24753) return t55717.value.structure_type24753->s0; backtrace_internal("[clone CAR[26176] 30045]"); structure_ref_error(); l8266: /* x122923 */ /* x122922 */ /* x122921 stalin.sc:14546:510671 */ /* x122920 stalin.sc:14546:510693 */ /* x122919 stalin.sc:14546:510699 */ /* x122918 stalin.sc:14546:510705 */ t55714 = *((struct w16638 *)(&a25312)); /* x122917 stalin.sc:14546:510700 */ a35434 = t55714; /* x273093 */ /* x273092 */ t55715 = a35434; /* x273091 */ if (!((t55715.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29583]"); structure_ref_error();} t55713 = t55715.value.structure_type24753->s1; /* x122916 stalin.sc:14546:510694 */ t55708 = f13567(t55713); /* x122915 stalin.sc:14546:510688 */ t55707 = "&&"; /* x122914 stalin.sc:14546:510677 */ /* x122913 stalin.sc:14546:510684 */ t55711 = *((struct w16638 *)(&a25312)); /* x122912 stalin.sc:14546:510678 */ a35897 = t55711; /* x274945 */ /* x274944 */ t55712 = a35897; /* x274943 */ if (!((t55712.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30046]"); structure_ref_error();} t55706 = t55712.value.structure_type24753->s0; /* x122911 stalin.sc:14546:510672 */ t55710.tag = STRUCTURE_TYPE24753; t55710.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55710.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14546, 510671); out_of_memory_error();} t55710.value.structure_type24753->s0 = t55708; t55710.value.structure_type24753->s1.tag = NULL_TYPE; t55709.tag = STRUCTURE_TYPE24753; t55709.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55709.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14546, 510671); out_of_memory_error();} t55709.value.structure_type24753->s0.tag = STRING_TYPE; t55709.value.structure_type24753->s0.value.string_type = t55707; t55709.value.structure_type24753->s1 = t55710; a35122 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35122==NULL) {backtrace("stalin.sc", 14546, 510671); out_of_memory_error();} a35122->s0 = t55706; a35122->s1 = t55709; /* x272251 */ r13567.tag = STRUCTURE_TYPE24753; r13567.value.structure_type24753 = a35122; return r13567;} /* C:&&[13564] */ struct structure_type24753 *f13564(struct structure_type24753 *a25309) {struct w49 t55719; struct structure_type24753 *t55720; struct w49 t55721; /* x122935 stalin.sc:14542:510556 */ /* x122934 stalin.sc:14543:510578 */ /* x122933 stalin.sc:14543:510593 */ t55720 = a25309; /* x122932 */ /* x122931 */ /* x122930 */ /* x122929 */ /* x122928 */ /* x122927 */ /* x122926 */ /* x122893 */ /* x122892 stalin.sc:14543:510583 */ /* MOVE: branching squeezed to general */ if (t55720>=((struct structure_type24753 *)VALUE_OFFSET)) {t55721.tag = STRUCTURE_TYPE24753; t55721.value.structure_type24753 = t55720;} else t55721.tag = (unsigned)t55720; t55719 = f13567(t55721); /* x122891 stalin.sc:14542:510557 */ return f13513(t55719);} /* LOOP[13559] */ struct w49 f13559(struct w49 a25308) {struct w49 r13559; struct structure_type24753 *a35167; /* OBJS */ struct w16638 a35524; /* PAIR */ struct w16638 a35525; /* PAIR */ struct w16638 a36078; /* PAIR */ struct w16638 a36079; /* PAIR */ struct w49 t55722; struct w49 t55723; struct w16638 t55724; struct w16638 t55725; struct w49 t55726; char *t55727; struct w49 t55728; struct w49 t55729; struct w49 t55730; struct w16638 t55731; struct w16638 t55732; struct w49 t55733; struct w16638 t55734; struct w16638 t55735; struct w16638 t55736; struct w16638 t55737; char *t55738; /* x122878 stalin.sc:14537:510419 */ /* x122849 stalin.sc:14537:510426 */ /* x122848 stalin.sc:14537:510433 */ t55722 = a25308; /* x269059 stalin.sc:14537:510427 */ if (!((t55722.tag)==NULL_TYPE)) goto l8268; /* x122853 */ /* x122852 */ /* x122851 stalin.sc:14537:510437 */ /* x122850 stalin.sc:14537:510438 */ /* x296469 QobiScheme.sc:166:5314 */ /* x296468 QobiScheme.sc:166:5321 */ t55738 = "This shouldn\'t happen"; /* x296467 QobiScheme.sc:166:5315 */ stalin_panic(t55738); l8268: /* x122877 */ /* x122858 stalin.sc:14538:510451 */ /* x122857 stalin.sc:14538:510458 */ /* x122856 stalin.sc:14538:510464 */ t55724 = *((struct w16638 *)(&a25308)); /* x122855 stalin.sc:14538:510459 */ a35525 = t55724; /* x273457 */ /* x273456 */ t55725 = a35525; /* x273455 */ if (!((t55725.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29674]"); structure_ref_error();} t55723 = t55725.value.structure_type24753->s1; /* x269058 stalin.sc:14538:510452 */ if (!((t55723.tag)==NULL_TYPE)) goto l8270; /* x122863 */ /* x122862 */ /* x122861 stalin.sc:14538:510469 */ /* x122860 stalin.sc:14538:510476 */ t55736 = *((struct w16638 *)(&a25308)); /* x122859 stalin.sc:14538:510470 */ a36078 = t55736; /* x275669 */ /* x275668 */ t55737 = a36078; /* x275667 */ if ((t55737.tag)==STRUCTURE_TYPE24753) return t55737.value.structure_type24753->s0; backtrace_internal("[clone CAR[26176] 30227]"); structure_ref_error(); l8270: /* x122876 */ /* x122875 */ /* x122874 stalin.sc:14539:510489 */ /* x122873 stalin.sc:14539:510511 */ /* x122872 stalin.sc:14539:510517 */ /* x122871 stalin.sc:14539:510523 */ t55734 = *((struct w16638 *)(&a25308)); /* x122870 stalin.sc:14539:510518 */ a35524 = t55734; /* x273453 */ /* x273452 */ t55735 = a35524; /* x273451 */ if (!((t55735.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29673]"); structure_ref_error();} t55733 = t55735.value.structure_type24753->s1; /* x122869 stalin.sc:14539:510512 */ t55728 = f13559(t55733); /* x122868 stalin.sc:14539:510506 */ t55727 = "||"; /* x122867 stalin.sc:14539:510495 */ /* x122866 stalin.sc:14539:510502 */ t55731 = *((struct w16638 *)(&a25308)); /* x122865 stalin.sc:14539:510496 */ a36079 = t55731; /* x275673 */ /* x275672 */ t55732 = a36079; /* x275671 */ if (!((t55732.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30228]"); structure_ref_error();} t55726 = t55732.value.structure_type24753->s0; /* x122864 stalin.sc:14539:510490 */ t55730.tag = STRUCTURE_TYPE24753; t55730.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55730.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14539, 510489); out_of_memory_error();} t55730.value.structure_type24753->s0 = t55728; t55730.value.structure_type24753->s1.tag = NULL_TYPE; t55729.tag = STRUCTURE_TYPE24753; t55729.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55729.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14539, 510489); out_of_memory_error();} t55729.value.structure_type24753->s0.tag = STRING_TYPE; t55729.value.structure_type24753->s0.value.string_type = t55727; t55729.value.structure_type24753->s1 = t55730; a35167 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35167==NULL) {backtrace("stalin.sc", 14539, 510489); out_of_memory_error();} a35167->s0 = t55726; a35167->s1 = t55729; /* x272341 */ r13559.tag = STRUCTURE_TYPE24753; r13559.value.structure_type24753 = a35167; return r13559;} /* C:BOOLEAN-OR[13556] */ struct structure_type24753 *f13556(struct structure_type24753 *a25305) {struct w49 t55739; struct structure_type24753 *t55740; struct w49 t55741; /* x122888 stalin.sc:14535:510374 */ /* x122887 stalin.sc:14536:510396 */ /* x122886 stalin.sc:14536:510411 */ t55740 = a25305; /* x122885 */ /* x122884 */ /* x122883 */ /* x122882 */ /* x122881 */ /* x122880 */ /* x122879 */ /* x122846 */ /* x122845 stalin.sc:14536:510401 */ /* MOVE: branching squeezed to general */ if (t55740>=((struct structure_type24753 *)VALUE_OFFSET)) {t55741.tag = STRUCTURE_TYPE24753; t55741.value.structure_type24753 = t55740;} else t55741.tag = (unsigned)t55740; t55739 = f13559(t55741); /* x122844 stalin.sc:14535:510375 */ return f13513(t55739);} /* C:FILE*-CAST[13554] */ struct structure_type24753 *f13554(struct w49 a25303) {struct structure_type24753 *a42002; /* CS */ struct w49 t55742; struct w49 t55743; struct w49 t55744; char *t55745; struct structure_type24753 *t55746; struct w49 t55747; struct w49 t55748; char *t55749; struct w49 t55750; /* x122841 */ /* x122840 stalin.sc:14530:510198 */ /* x122839 stalin.sc:14530:510208 */ t55749 = "stdio"; /* x122838 stalin.sc:14530:510199 */ t55750.tag = STRING_TYPE; t55750.value.string_type = t55749; f18320(t55750); /* x122837 */ /* x122836 stalin.sc:14531:510226 */ /* x122834 stalin.sc:14531:510234 */ /* x122833 stalin.sc:14531:510256 */ t55745 = "*"; /* x122832 stalin.sc:14531:510249 */ t55744 = a1245; /* x122831 stalin.sc:14531:510235 */ t55748.tag = STRUCTURE_TYPE24753; t55748.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55748.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14531, 510234); out_of_memory_error();} t55748.value.structure_type24753->s0.tag = STRING_TYPE; t55748.value.structure_type24753->s0.value.string_type = t55745; t55748.value.structure_type24753->s1.tag = NULL_TYPE; a42002 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42002==NULL) {backtrace("stalin.sc", 14531, 510234); out_of_memory_error();} a42002->s0 = t55744; a42002->s1 = t55748; /* x302120 stalin.sc:14386:505956 */ /* x302119 stalin.sc:14386:505972 */ t55746 = a42002; /* x302118 stalin.sc:14386:505957 */ t55747.tag = STRUCTURE_TYPE24753; t55747.value.structure_type24753 = t55746; t55742 = f13474(t55747); /* x122835 stalin.sc:14531:510261 */ t55743 = a25303; /* x122830 stalin.sc:14531:510227 */ return f13547(t55742, t55743);} /* C:CHAR*-CAST[13553] */ struct structure_type24753 *f13553(struct w49 a25302) {struct structure_type24753 *a42047; /* CS */ struct w49 t55751; struct w49 t55752; struct w49 t55753; char *t55754; struct structure_type24753 *t55755; struct w49 t55756; struct w49 t55757; /* x122827 stalin.sc:14527:510132 */ /* x122825 stalin.sc:14527:510140 */ /* x122824 stalin.sc:14527:510162 */ t55754 = "*"; /* x122823 stalin.sc:14527:510155 */ t55753 = a1252; /* x122822 stalin.sc:14527:510141 */ t55757.tag = STRUCTURE_TYPE24753; t55757.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55757.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14527, 510140); out_of_memory_error();} t55757.value.structure_type24753->s0.tag = STRING_TYPE; t55757.value.structure_type24753->s0.value.string_type = t55754; t55757.value.structure_type24753->s1.tag = NULL_TYPE; a42047 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42047==NULL) {backtrace("stalin.sc", 14527, 510140); out_of_memory_error();} a42047->s0 = t55753; a42047->s1 = t55757; /* x302300 stalin.sc:14386:505956 */ /* x302299 stalin.sc:14386:505972 */ t55755 = a42047; /* x302298 stalin.sc:14386:505957 */ t55756.tag = STRUCTURE_TYPE24753; t55756.value.structure_type24753 = t55755; t55751 = f13474(t55756); /* x122826 stalin.sc:14527:510167 */ t55752 = a25302; /* x122821 stalin.sc:14527:510133 */ return f13547(t55751, t55752);} /* C:FIXNUM*-CAST[13552] */ struct structure_type24753 *f13552(struct structure_type24753 *a25301) {struct structure_type24753 *a42046; /* CS */ struct w49 t55758; struct structure_type24753 *t55759; struct w49 t55760; struct w49 t55761; char *t55762; struct structure_type24753 *t55763; struct w49 t55764; struct w49 t55765; /* x122818 stalin.sc:14525:510065 */ /* x122816 stalin.sc:14525:510073 */ /* x122815 stalin.sc:14525:510097 */ t55762 = "*"; /* x122814 stalin.sc:14525:510088 */ t55761 = a1251; /* x122813 stalin.sc:14525:510074 */ t55765.tag = STRUCTURE_TYPE24753; t55765.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55765.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14525, 510073); out_of_memory_error();} t55765.value.structure_type24753->s0.tag = STRING_TYPE; t55765.value.structure_type24753->s0.value.string_type = t55762; t55765.value.structure_type24753->s1.tag = NULL_TYPE; a42046 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42046==NULL) {backtrace("stalin.sc", 14525, 510073); out_of_memory_error();} a42046->s0 = t55761; a42046->s1 = t55765; /* x302296 stalin.sc:14386:505956 */ /* x302295 stalin.sc:14386:505972 */ t55763 = a42046; /* x302294 stalin.sc:14386:505957 */ t55764.tag = STRUCTURE_TYPE24753; t55764.value.structure_type24753 = t55763; t55758 = f13474(t55764); /* x122817 stalin.sc:14525:510102 */ t55759 = a25301; /* x122812 stalin.sc:14525:510066 */ t55760.tag = STRUCTURE_TYPE24753; t55760.value.structure_type24753 = t55759; return f13547(t55758, t55760);} /* C:FLONUM-CAST[13550] */ struct structure_type24753 *f13550(struct w49 a25299) {struct w49 t55766; struct w49 t55767; /* x122800 stalin.sc:14521:509951 */ /* x122798 stalin.sc:14521:509959 */ t55766 = a1250; /* x122799 stalin.sc:14521:509968 */ t55767 = a25299; /* x122797 stalin.sc:14521:509952 */ return f13547(t55766, t55767);} /* C:FIXNUM-CAST[13549] */ struct structure_type24753 *f13549(struct w49 a25298) {struct w49 t55768; struct w49 t55769; /* x122794 stalin.sc:14519:509903 */ /* x122792 stalin.sc:14519:509911 */ t55768 = a1251; /* x122793 stalin.sc:14519:509920 */ t55769 = a25298; /* x122791 stalin.sc:14519:509904 */ return f13547(t55768, t55769);} /* C:UNSIGNED-CHAR-CAST[13548] */ struct structure_type24753 *f13548(struct w49 a25297) {struct structure_type24753 *a42043; /* CS */ struct w49 t55770; struct w49 t55771; char *t55772; char *t55773; struct structure_type24753 *t55774; struct w49 t55775; struct w49 t55776; /* x122788 stalin.sc:14516:509773 */ /* x122786 stalin.sc:14516:509781 */ /* x122785 stalin.sc:14516:509807 */ t55773 = "char"; /* x122784 stalin.sc:14516:509796 */ t55772 = "unsigned"; /* x122783 stalin.sc:14516:509782 */ t55776.tag = STRUCTURE_TYPE24753; t55776.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55776.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14516, 509781); out_of_memory_error();} t55776.value.structure_type24753->s0.tag = STRING_TYPE; t55776.value.structure_type24753->s0.value.string_type = t55773; t55776.value.structure_type24753->s1.tag = NULL_TYPE; a42043 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42043==NULL) {backtrace("stalin.sc", 14516, 509781); out_of_memory_error();} a42043->s0.tag = STRING_TYPE; a42043->s0.value.string_type = t55772; a42043->s1 = t55776; /* x302284 stalin.sc:14386:505956 */ /* x302283 stalin.sc:14386:505972 */ t55774 = a42043; /* x302282 stalin.sc:14386:505957 */ t55775.tag = STRUCTURE_TYPE24753; t55775.value.structure_type24753 = t55774; t55770 = f13474(t55775); /* x122787 stalin.sc:14516:509815 */ t55771 = a25297; /* x122782 stalin.sc:14516:509774 */ return f13547(t55770, t55771);} /* C:CAST[13547] */ struct structure_type24753 *f13547(struct w49 a25295, struct w49 a25296) {struct structure_type24753 *a35164; /* OBJS */ struct structure_type24753 *t55777; struct w49 t55778; struct structure_type24753 *t55779; struct w49 t55780; struct w49 t55781; struct w49 t55782; /* x122779 stalin.sc:14514:509683 */ /* x122778 stalin.sc:14514:509703 */ /* x122777 stalin.sc:14514:509733 */ t55780 = a25296; /* x122776 stalin.sc:14514:509709 */ /* x122775 stalin.sc:14514:509729 */ t55782 = a25295; /* x122774 stalin.sc:14514:509710 */ t55779 = f13513(t55782); /* x122773 stalin.sc:14514:509704 */ t55781.tag = STRUCTURE_TYPE24753; t55781.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55781.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14514, 509703); out_of_memory_error();} t55781.value.structure_type24753->s0 = t55780; t55781.value.structure_type24753->s1.tag = NULL_TYPE; a35164 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35164==NULL) {backtrace("stalin.sc", 14514, 509703); out_of_memory_error();} a35164->s0.tag = STRUCTURE_TYPE24753; a35164->s0.value.structure_type24753 = t55779; a35164->s1 = t55781; /* x272335 */ t55777 = a35164; /* x122772 stalin.sc:14514:509684 */ t55778.tag = STRUCTURE_TYPE24753; t55778.value.structure_type24753 = t55777; return f13513(t55778);} /* C:ALIGNOF[13545] */ struct structure_type24753 *f13545(struct w165970 a25293) {char *a27166; /* C */ char *a27167; /* C */ char *a27168; /* C */ char *a27169; /* C */ char *a27170; /* C */ char *a27171; /* C */ char *a27172; /* C */ char *a27173; /* C */ char *a27174; /* C */ char *a27175; /* C */ char *a27176; /* C */ char *a27177; /* C */ char *a27178; /* C */ char *a27180; /* C */ char *a27185; /* C */ char *a27188; /* C */ char *a27197; /* C */ char *a27198; /* v */ char *a27202; /* C */ char *a27204; /* C */ char *a27206; /* C */ struct structure_type24753 *a35117; /* OBJS */ struct structure_type24753 *a41945; /* CS */ struct structure_type24753 *a41946; /* CS */ struct structure_type24753 *a41947; /* CS */ struct structure_type24753 *a41948; /* CS */ struct structure_type24753 *a42024; /* CS */ struct structure_type24753 *a42025; /* CS */ struct structure_type24753 *a42026; /* CS */ struct structure_type24753 *a42027; /* CS */ struct structure_type24753 *a42028; /* CS */ struct structure_type24753 *a42029; /* CS */ struct structure_type24753 *a42030; /* CS */ struct structure_type24753 *a42031; /* CS */ struct structure_type24753 *a42032; /* CS */ struct structure_type24753 *a42033; /* CS */ struct structure_type24753 *a42034; /* CS */ struct structure_type24753 *a42035; /* CS */ struct structure_type24753 *a42036; /* CS */ struct structure_type24753 *a42037; /* CS */ struct structure_type24753 *a42038; /* CS */ char *t55783; struct structure_type24753 *t55784; char *t55785; struct w49 t55786; struct w12224 t55787; struct w49 t55788; char *t55789; struct structure_type24753 *t55790; struct w49 t55791; struct w49 t55792; struct structure_type24753 *t55793; struct structure_type24753 *t55794; struct structure_type24753 *t55795; struct w49 t55796; struct w49 t55797; struct w49 t55798; char *t55799; char *t55800; struct structure_type24753 *t55801; struct w49 t55802; struct w49 t55803; struct w49 t55804; struct w165970 t55805; char *t55806; struct w49 t55807; char *t55808; struct structure_type24753 *t55809; struct w49 t55810; struct w49 t55811; struct w49 t55812; char *t55813; struct structure_type24753 *t55814; struct w49 t55815; struct w49 t55816; struct w49 t55817; char *t55818; struct structure_type24753 *t55819; struct w49 t55820; struct w49 t55821; struct w49 t55822; char *t55823; struct structure_type24753 *t55824; struct w49 t55825; struct w49 t55826; struct w49 t55827; char *t55828; struct structure_type24753 *t55829; struct w49 t55830; struct w49 t55831; struct w49 t55832; struct structure_type24753 *t55833; struct structure_type24753 *t55834; struct w49 t55835; struct w49 t55836; char *t55837; struct w49 t55838; struct w49 t55839; struct structure_type24753 *t55840; struct structure_type24753 *t55841; struct w49 t55842; struct w49 t55843; char *t55844; struct w49 t55845; struct w49 t55846; struct structure_type24753 *t55847; struct structure_type24753 *t55848; struct w49 t55849; struct w49 t55850; char *t55851; struct w49 t55852; char *t55853; struct structure_type24753 *t55854; struct structure_type24753 *t55855; struct w49 t55856; struct w49 t55857; char *t55858; struct w49 t55859; char *t55860; char *t55861; char *t55862; struct structure_type24753 *t55863; struct w49 t55864; struct w49 t55865; struct w49 t55866; struct w49 t55867; char *t55868; struct structure_type24753 *t55869; struct w49 t55870; struct w49 t55871; struct w49 t55872; char *t55873; struct structure_type24753 *t55874; struct w49 t55875; struct w49 t55876; struct w49 t55877; char *t55878; struct structure_type24753 *t55879; struct w49 t55880; struct w49 t55881; char *t55882; struct structure_type24753 *t55883; char *t55884; struct structure_type24753 *t55885; struct w49 t55886; struct w49 t55887; struct w49 t55888; struct w49 t55889; char *t55890; struct structure_type24753 *t55891; char *t55892; struct structure_type24753 *t55893; struct w49 t55894; struct w49 t55895; struct w49 t55896; struct p16161 *t55897; char *t55898; char *t55899; char *t55900; struct w49 t55901; struct w49 t55902; char *t55903; char *t55904; struct w49 t55905; struct w49 t55906; char *t55907; char *t55908; struct w49 t55909; struct w49 t55910; char *t55911; char *t55912; struct w49 t55913; struct w49 t55914; char *t55915; char *t55916; struct w49 t55917; struct w49 t55918; char *t55919; struct p16161 *t55920; struct w49 t55921; struct w49 t55922; struct p16161 *t55923; struct w49 t55924; char *t55925; char *t55926; struct structure_type24753 *t55927; char *t55928; struct structure_type24753 *t55929; struct w49 t55930; struct w49 t55931; struct w49 t55932; struct w49 t55933; struct w49 t55934; char *t55935; struct w49 t55936; char *t55937; struct w61020 t55938; char *t55939; struct structure_type24753 *t55940; struct w49 t55941; struct w49 t55942; struct w49 t55943; struct w49 t55944; struct w49 t55945; char *t55946; struct w49 t55947; struct w49 t55948; char *t55949; struct w61020 t55950; char *t55951; struct w49 t55952; struct p16144 *p16145; struct p16151 *p16152; struct p16154 *p16156; struct p16161 *p16166; struct p16161 *p16167; struct p16161 *p16171; struct p16161 *p16172; struct p16174 *p16175; struct p16176 *p16177; struct p16178 *p16179; /* x122769 */ /* x122768 stalin.sc:14506:509446 */ /* x122767 stalin.sc:14506:509456 */ t55951 = "stddef"; /* x122766 stalin.sc:14506:509447 */ t55952.tag = STRING_TYPE; t55952.value.string_type = t55951; f18320(t55952); /* x122765 */ /* x122764 stalin.sc:14507:509479 */ /* x122763 stalin.sc:14512:509649 */ t55785 = "probe"; /* x122762 stalin.sc:14508:509500 */ /* x122761 stalin.sc:14509:509523 */ /* x122760 stalin.sc:14510:509540 */ /* x122759 stalin.sc:14511:509614 */ /* x122758 stalin.sc:14511:509631 */ /* x122757 stalin.sc:14511:509634 */ t55806 = "probe"; /* x122756 stalin.sc:14511:509632 */ t55805 = a25293; switch (t55805.tag) {case NATIVE_PROCEDURE_TYPE21478: a27178 = t55806; /* x152008 stalin.sc:20742:726156 */ /* x152007 stalin.sc:20742:726180 */ t55808 = a27178; /* x152006 stalin.sc:20742:726171 */ t55807 = a1244; /* x152005 stalin.sc:20742:726157 */ t55811.tag = STRUCTURE_TYPE24753; t55811.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55811.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20742, 726156); out_of_memory_error();} t55811.value.structure_type24753->s0.tag = STRING_TYPE; t55811.value.structure_type24753->s0.value.string_type = t55808; t55811.value.structure_type24753->s1.tag = NULL_TYPE; a42038 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42038==NULL) {backtrace("stalin.sc", 20742, 726156); out_of_memory_error();} a42038->s0 = t55807; a42038->s1 = t55811; /* x302264 stalin.sc:14386:505956 */ /* x302263 stalin.sc:14386:505972 */ t55809 = a42038; /* x302262 stalin.sc:14386:505957 */ t55810.tag = STRUCTURE_TYPE24753; t55810.value.structure_type24753 = t55809; t55804 = f13474(t55810); break; case NATIVE_PROCEDURE_TYPE21480: a27177 = t55806; /* x151987 stalin.sc:20738:725995 */ /* x151986 stalin.sc:20738:726017 */ t55813 = a27177; /* x151985 stalin.sc:20738:726010 */ t55812 = a1245; /* x151984 stalin.sc:20738:725996 */ t55816.tag = STRUCTURE_TYPE24753; t55816.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55816.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20738, 725995); out_of_memory_error();} t55816.value.structure_type24753->s0.tag = STRING_TYPE; t55816.value.structure_type24753->s0.value.string_type = t55813; t55816.value.structure_type24753->s1.tag = NULL_TYPE; a42035 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42035==NULL) {backtrace("stalin.sc", 20738, 725995); out_of_memory_error();} a42035->s0 = t55812; a42035->s1 = t55816; /* x302252 stalin.sc:14386:505956 */ /* x302251 stalin.sc:14386:505972 */ t55814 = a42035; /* x302250 stalin.sc:14386:505957 */ t55815.tag = STRUCTURE_TYPE24753; t55815.value.structure_type24753 = t55814; t55804 = f13474(t55815); break; case NATIVE_PROCEDURE_TYPE21481: a27176 = t55806; /* x151966 stalin.sc:20734:725828 */ /* x151965 stalin.sc:20734:725854 */ t55818 = a27176; /* x151964 stalin.sc:20734:725843 */ t55817 = a1247; /* x151963 stalin.sc:20734:725829 */ t55821.tag = STRUCTURE_TYPE24753; t55821.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55821.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20734, 725828); out_of_memory_error();} t55821.value.structure_type24753->s0.tag = STRING_TYPE; t55821.value.structure_type24753->s0.value.string_type = t55818; t55821.value.structure_type24753->s1.tag = NULL_TYPE; a42034 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42034==NULL) {backtrace("stalin.sc", 20734, 725828); out_of_memory_error();} a42034->s0 = t55817; a42034->s1 = t55821; /* x302248 stalin.sc:14386:505956 */ /* x302247 stalin.sc:14386:505972 */ t55819 = a42034; /* x302246 stalin.sc:14386:505957 */ t55820.tag = STRUCTURE_TYPE24753; t55820.value.structure_type24753 = t55819; t55804 = f13474(t55820); break; case NATIVE_PROCEDURE_TYPE21482: a27175 = t55806; /* x151945 stalin.sc:20730:725667 */ /* x151944 stalin.sc:20730:725688 */ t55823 = a27175; /* x151943 stalin.sc:20730:725682 */ t55822 = a1248; /* x151942 stalin.sc:20730:725668 */ t55826.tag = STRUCTURE_TYPE24753; t55826.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55826.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20730, 725667); out_of_memory_error();} t55826.value.structure_type24753->s0.tag = STRING_TYPE; t55826.value.structure_type24753->s0.value.string_type = t55823; t55826.value.structure_type24753->s1.tag = NULL_TYPE; a42033 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42033==NULL) {backtrace("stalin.sc", 20730, 725667); out_of_memory_error();} a42033->s0 = t55822; a42033->s1 = t55826; /* x302244 stalin.sc:14386:505956 */ /* x302243 stalin.sc:14386:505972 */ t55824 = a42033; /* x302242 stalin.sc:14386:505957 */ t55825.tag = STRUCTURE_TYPE24753; t55825.value.structure_type24753 = t55824; t55804 = f13474(t55825); break; case NATIVE_PROCEDURE_TYPE21483: a27174 = t55806; /* x151924 stalin.sc:20726:725505 */ /* x151923 stalin.sc:20726:725529 */ t55828 = a27174; /* x151922 stalin.sc:20726:725520 */ t55827 = a1249; /* x151921 stalin.sc:20726:725506 */ t55831.tag = STRUCTURE_TYPE24753; t55831.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55831.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20726, 725505); out_of_memory_error();} t55831.value.structure_type24753->s0.tag = STRING_TYPE; t55831.value.structure_type24753->s0.value.string_type = t55828; t55831.value.structure_type24753->s1.tag = NULL_TYPE; a42032 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42032==NULL) {backtrace("stalin.sc", 20726, 725505); out_of_memory_error();} a42032->s0 = t55827; a42032->s1 = t55831; /* x302240 stalin.sc:14386:505956 */ /* x302239 stalin.sc:14386:505972 */ t55829 = a42032; /* x302238 stalin.sc:14386:505957 */ t55830.tag = STRUCTURE_TYPE24753; t55830.value.structure_type24753 = t55829; t55804 = f13474(t55830); break; case NATIVE_PROCEDURE_TYPE21484: a27173 = t55806; /* x151903 stalin.sc:20722:725325 */ /* x151902 stalin.sc:20722:725349 */ /* x151901 stalin.sc:20722:725362 */ t55837 = a27173; /* x151900 stalin.sc:20722:725350 */ t55838.tag = STRING_TYPE; t55838.value.string_type = t55837; t55833 = f13516(t55838); /* x151899 stalin.sc:20722:725340 */ t55832 = a1244; /* x151898 stalin.sc:20722:725326 */ t55836.tag = STRUCTURE_TYPE24753; t55836.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55836.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20722, 725325); out_of_memory_error();} t55836.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55836.value.structure_type24753->s0.value.structure_type24753 = t55833; t55836.value.structure_type24753->s1.tag = NULL_TYPE; a42031 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42031==NULL) {backtrace("stalin.sc", 20722, 725325); out_of_memory_error();} a42031->s0 = t55832; a42031->s1 = t55836; /* x302236 stalin.sc:14386:505956 */ /* x302235 stalin.sc:14386:505972 */ t55834 = a42031; /* x302234 stalin.sc:14386:505957 */ t55835.tag = STRUCTURE_TYPE24753; t55835.value.structure_type24753 = t55834; t55804 = f13474(t55835); break; case NATIVE_PROCEDURE_TYPE21485: a27172 = t55806; /* x151880 stalin.sc:20717:725137 */ /* x151879 stalin.sc:20717:725159 */ /* x151878 stalin.sc:20717:725172 */ t55844 = a27172; /* x151877 stalin.sc:20717:725160 */ t55845.tag = STRING_TYPE; t55845.value.string_type = t55844; t55840 = f13516(t55845); /* x151876 stalin.sc:20717:725152 */ t55839 = a1245; /* x151875 stalin.sc:20717:725138 */ t55843.tag = STRUCTURE_TYPE24753; t55843.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55843.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20717, 725137); out_of_memory_error();} t55843.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55843.value.structure_type24753->s0.value.structure_type24753 = t55840; t55843.value.structure_type24753->s1.tag = NULL_TYPE; a42030 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42030==NULL) {backtrace("stalin.sc", 20717, 725137); out_of_memory_error();} a42030->s0 = t55839; a42030->s1 = t55843; /* x302232 stalin.sc:14386:505956 */ /* x302231 stalin.sc:14386:505972 */ t55841 = a42030; /* x302230 stalin.sc:14386:505957 */ t55842.tag = STRUCTURE_TYPE24753; t55842.value.structure_type24753 = t55841; t55804 = f13474(t55842); break; case NATIVE_PROCEDURE_TYPE21486: a27171 = t55806; /* x151857 stalin.sc:20712:724951 */ /* x151856 stalin.sc:20712:724973 */ /* x151855 stalin.sc:20712:724986 */ t55851 = a27171; /* x151854 stalin.sc:20712:724974 */ t55852.tag = STRING_TYPE; t55852.value.string_type = t55851; t55847 = f13516(t55852); /* x151853 stalin.sc:20712:724966 */ t55846 = a1252; /* x151852 stalin.sc:20712:724952 */ t55850.tag = STRUCTURE_TYPE24753; t55850.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55850.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20712, 724951); out_of_memory_error();} t55850.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55850.value.structure_type24753->s0.value.structure_type24753 = t55847; t55850.value.structure_type24753->s1.tag = NULL_TYPE; a42029 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42029==NULL) {backtrace("stalin.sc", 20712, 724951); out_of_memory_error();} a42029->s0 = t55846; a42029->s1 = t55850; /* x302228 stalin.sc:14386:505956 */ /* x302227 stalin.sc:14386:505972 */ t55848 = a42029; /* x302226 stalin.sc:14386:505957 */ t55849.tag = STRUCTURE_TYPE24753; t55849.value.structure_type24753 = t55848; t55804 = f13474(t55849); break; case NATIVE_PROCEDURE_TYPE21487: a27170 = t55806; /* x151834 stalin.sc:20707:724765 */ /* x151833 stalin.sc:20707:724787 */ /* x151832 stalin.sc:20707:724800 */ t55858 = a27170; /* x151831 stalin.sc:20707:724788 */ t55859.tag = STRING_TYPE; t55859.value.string_type = t55858; t55854 = f13516(t55859); /* x151830 stalin.sc:20707:724780 */ t55853 = "void"; /* x151829 stalin.sc:20707:724766 */ t55857.tag = STRUCTURE_TYPE24753; t55857.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55857.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20707, 724765); out_of_memory_error();} t55857.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55857.value.structure_type24753->s0.value.structure_type24753 = t55854; t55857.value.structure_type24753->s1.tag = NULL_TYPE; a42028 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42028==NULL) {backtrace("stalin.sc", 20707, 724765); out_of_memory_error();} a42028->s0.tag = STRING_TYPE; a42028->s0.value.string_type = t55853; a42028->s1 = t55857; /* x302224 stalin.sc:14386:505956 */ /* x302223 stalin.sc:14386:505972 */ t55855 = a42028; /* x302222 stalin.sc:14386:505957 */ t55856.tag = STRUCTURE_TYPE24753; t55856.value.structure_type24753 = t55855; t55804 = f13474(t55856); break; case NATIVE_PROCEDURE_TYPE21488: a27169 = t55806; /* x151811 stalin.sc:20702:724578 */ /* x151810 stalin.sc:20702:724616 */ t55862 = a27169; /* x151809 stalin.sc:20702:724602 */ t55861 = "rectangular"; /* x151808 stalin.sc:20702:724593 */ t55860 = "struct"; /* x151807 stalin.sc:20702:724579 */ t55866.tag = STRUCTURE_TYPE24753; t55866.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55866.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20702, 724578); out_of_memory_error();} t55866.value.structure_type24753->s0.tag = STRING_TYPE; t55866.value.structure_type24753->s0.value.string_type = t55862; t55866.value.structure_type24753->s1.tag = NULL_TYPE; t55865.tag = STRUCTURE_TYPE24753; t55865.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55865.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20702, 724578); out_of_memory_error();} t55865.value.structure_type24753->s0.tag = STRING_TYPE; t55865.value.structure_type24753->s0.value.string_type = t55861; t55865.value.structure_type24753->s1 = t55866; a42027 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42027==NULL) {backtrace("stalin.sc", 20702, 724578); out_of_memory_error();} a42027->s0.tag = STRING_TYPE; a42027->s0.value.string_type = t55860; a42027->s1 = t55865; /* x302220 stalin.sc:14386:505956 */ /* x302219 stalin.sc:14386:505972 */ t55863 = a42027; /* x302218 stalin.sc:14386:505957 */ t55864.tag = STRUCTURE_TYPE24753; t55864.value.structure_type24753 = t55863; t55804 = f13474(t55864); break; case NATIVE_PROCEDURE_TYPE21489: a27168 = t55806; /* x151789 stalin.sc:20697:724399 */ /* x151788 stalin.sc:20697:724423 */ t55868 = a27168; /* x151787 stalin.sc:20697:724414 */ t55867 = a1250; /* x151786 stalin.sc:20697:724400 */ t55871.tag = STRUCTURE_TYPE24753; t55871.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55871.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20697, 724399); out_of_memory_error();} t55871.value.structure_type24753->s0.tag = STRING_TYPE; t55871.value.structure_type24753->s0.value.string_type = t55868; t55871.value.structure_type24753->s1.tag = NULL_TYPE; a42026 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42026==NULL) {backtrace("stalin.sc", 20697, 724399); out_of_memory_error();} a42026->s0 = t55867; a42026->s1 = t55871; /* x302216 stalin.sc:14386:505956 */ /* x302215 stalin.sc:14386:505972 */ t55869 = a42026; /* x302214 stalin.sc:14386:505957 */ t55870.tag = STRUCTURE_TYPE24753; t55870.value.structure_type24753 = t55869; t55804 = f13474(t55870); break; case NATIVE_PROCEDURE_TYPE21490: a27167 = t55806; /* x151768 stalin.sc:20693:724234 */ /* x151767 stalin.sc:20693:724258 */ t55873 = a27167; /* x151766 stalin.sc:20693:724249 */ t55872 = a1251; /* x151765 stalin.sc:20693:724235 */ t55876.tag = STRUCTURE_TYPE24753; t55876.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55876.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20693, 724234); out_of_memory_error();} t55876.value.structure_type24753->s0.tag = STRING_TYPE; t55876.value.structure_type24753->s0.value.string_type = t55873; t55876.value.structure_type24753->s1.tag = NULL_TYPE; a42025 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42025==NULL) {backtrace("stalin.sc", 20693, 724234); out_of_memory_error();} a42025->s0 = t55872; a42025->s1 = t55876; /* x302212 stalin.sc:14386:505956 */ /* x302211 stalin.sc:14386:505972 */ t55874 = a42025; /* x302210 stalin.sc:14386:505957 */ t55875.tag = STRUCTURE_TYPE24753; t55875.value.structure_type24753 = t55874; t55804 = f13474(t55875); break; case NATIVE_PROCEDURE_TYPE21491: a27166 = t55806; /* x151747 stalin.sc:20689:724073 */ /* x151746 stalin.sc:20689:724095 */ t55878 = a27166; /* x151745 stalin.sc:20689:724088 */ t55877 = a1252; /* x151744 stalin.sc:20689:724074 */ t55881.tag = STRUCTURE_TYPE24753; t55881.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55881.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20689, 724073); out_of_memory_error();} t55881.value.structure_type24753->s0.tag = STRING_TYPE; t55881.value.structure_type24753->s0.value.string_type = t55878; t55881.value.structure_type24753->s1.tag = NULL_TYPE; a42024 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42024==NULL) {backtrace("stalin.sc", 20689, 724073); out_of_memory_error();} a42024->s0 = t55877; a42024->s1 = t55881; /* x302208 stalin.sc:14386:505956 */ /* x302207 stalin.sc:14386:505972 */ t55879 = a42024; /* x302206 stalin.sc:14386:505957 */ t55880.tag = STRUCTURE_TYPE24753; t55880.value.structure_type24753 = t55879; t55804 = f13474(t55880); break; case NATIVE_PROCEDURE_TYPE23901: p16152 = t55805.value.native_procedure_type23901; a27185 = t55806; /* x152109 stalin.sc:20764:726984 */ /* x152108 stalin.sc:20764:727016 */ t55884 = a27185; /* x152107 stalin.sc:20764:727008 */ /* x152106 stalin.sc:20764:727013 */ t55889 = p16152->a27184; /* x152105 stalin.sc:20764:727009 */ t55883 = f14281(t55889); /* x152104 stalin.sc:20764:726999 */ t55882 = "struct"; /* x152103 stalin.sc:20764:726985 */ t55888.tag = STRUCTURE_TYPE24753; t55888.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55888.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20764, 726984); out_of_memory_error();} t55888.value.structure_type24753->s0.tag = STRING_TYPE; t55888.value.structure_type24753->s0.value.string_type = t55884; t55888.value.structure_type24753->s1.tag = NULL_TYPE; t55887.tag = STRUCTURE_TYPE24753; t55887.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55887.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20764, 726984); out_of_memory_error();} t55887.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55887.value.structure_type24753->s0.value.structure_type24753 = t55883; t55887.value.structure_type24753->s1 = t55888; a41948 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41948==NULL) {backtrace("stalin.sc", 20764, 726984); out_of_memory_error();} a41948->s0.tag = STRING_TYPE; a41948->s0.value.string_type = t55882; a41948->s1 = t55887; /* x301904 stalin.sc:14386:505956 */ /* x301903 stalin.sc:14386:505972 */ t55885 = a41948; /* x301902 stalin.sc:14386:505957 */ t55886.tag = STRUCTURE_TYPE24753; t55886.value.structure_type24753 = t55885; t55804 = f13474(t55886); break; case NATIVE_PROCEDURE_TYPE23903: p16166 = t55805.value.native_procedure_type23903; a27197 = t55806; /* x152372 stalin.sc:20807:728464 */ /* x152371 stalin.sc:20814:728697 */ t55892 = a27197; /* x152370 stalin.sc:20809:728496 */ /* x152369 stalin.sc:20809:728502 */ t55898 = a686; /* x152368 */ t55897 = p16166; p16167 = t55897; a27198 = t55898; /* x152367 */ /* x152327 */ /* x152326 */ /* x152324 */ t55899 = a27198; /* x152325 */ t55900 = q18; /* x152323 */ /* MOVE: branching squeezed to general */ if (t55899>=((char *)VALUE_OFFSET)) {t55901.tag = EXTERNAL_SYMBOL_TYPE; t55901.value.external_symbol_type = t55899;} else t55901.tag = (unsigned)t55899; t55902.tag = EXTERNAL_SYMBOL_TYPE; t55902.value.external_symbol_type = t55900; if (!(f26160(t55901, t55902)==FALSE_TYPE)) goto l8271; /* x152320 */ /* x152318 */ t55903 = a27198; /* x152319 */ t55904 = q20; /* x152317 */ /* MOVE: branching squeezed to general */ if (t55903>=((char *)VALUE_OFFSET)) {t55905.tag = EXTERNAL_SYMBOL_TYPE; t55905.value.external_symbol_type = t55903;} else t55905.tag = (unsigned)t55903; t55906.tag = EXTERNAL_SYMBOL_TYPE; t55906.value.external_symbol_type = t55904; if (f26160(t55905, t55906)==FALSE_TYPE) goto l8272; l8271: /* x152331 */ /* x152330 */ /* x152329 stalin.sc:20810:728568 */ /* x152328 stalin.sc:20810:728569 */ /* x295201 QobiScheme.sc:166:5314 */ /* x295200 QobiScheme.sc:166:5321 */ t55925 = "This shouldn\'t happen"; /* x295199 QobiScheme.sc:166:5315 */ stalin_panic(t55925); goto l8273; l8272: /* x152366 */ /* x152344 */ /* x152343 */ /* x152341 */ t55907 = a27198; /* x152342 */ t55908 = q19; /* x152340 */ /* MOVE: branching squeezed to general */ if (t55907>=((char *)VALUE_OFFSET)) {t55909.tag = EXTERNAL_SYMBOL_TYPE; t55909.value.external_symbol_type = t55907;} else t55909.tag = (unsigned)t55907; t55910.tag = EXTERNAL_SYMBOL_TYPE; t55910.value.external_symbol_type = t55908; if (!(f26160(t55909, t55910)==FALSE_TYPE)) goto l8275; /* x152337 */ /* x152335 */ t55911 = a27198; /* x152336 */ t55912 = q21; /* x152334 */ /* MOVE: branching squeezed to general */ if (t55911>=((char *)VALUE_OFFSET)) {t55913.tag = EXTERNAL_SYMBOL_TYPE; t55913.value.external_symbol_type = t55911;} else t55913.tag = (unsigned)t55911; t55914.tag = EXTERNAL_SYMBOL_TYPE; t55914.value.external_symbol_type = t55912; if (f26160(t55913, t55914)==FALSE_TYPE) goto l8276; l8275: /* x152349 */ /* x152348 */ t55923 = p16167; p16171 = t55923; /* x152347 stalin.sc:20811:728618 */ /* x152346 stalin.sc:20811:728623 */ t55924 = p16171->a27192; /* x152345 stalin.sc:20811:728619 */ t55891 = f14281(t55924); goto l8277; l8276: /* x152365 */ /* x152353 */ /* x152351 */ t55915 = a27198; /* x152352 */ t55916 = q22; /* x152350 */ /* MOVE: branching squeezed to general */ if (t55915>=((char *)VALUE_OFFSET)) {t55917.tag = EXTERNAL_SYMBOL_TYPE; t55917.value.external_symbol_type = t55915;} else t55917.tag = (unsigned)t55915; t55918.tag = EXTERNAL_SYMBOL_TYPE; t55918.value.external_symbol_type = t55916; if (f26160(t55917, t55918)==FALSE_TYPE) goto l8280; /* x152360 */ /* x152359 */ t55920 = p16167; p16172 = t55920; /* x152358 stalin.sc:20812:728642 */ /* x152357 stalin.sc:20812:728647 */ /* x152356 stalin.sc:20812:728665 */ t55922 = p16172->a27192; /* x152355 stalin.sc:20812:728648 */ t55921 = f8965(t55922); /* x152354 stalin.sc:20812:728643 */ t55891 = f14281(t55921); goto l8281; l8280: /* x152364 */ /* x152363 */ /* x152362 stalin.sc:20813:728681 */ /* x152361 stalin.sc:20813:728682 */ /* x295205 QobiScheme.sc:166:5314 */ /* x295204 QobiScheme.sc:166:5321 */ t55919 = "This shouldn\'t happen"; /* x295203 QobiScheme.sc:166:5315 */ stalin_panic(t55919); l8281: l8277: l8273: /* x152314 stalin.sc:20808:728483 */ t55890 = "struct"; /* x152313 stalin.sc:20807:728465 */ t55896.tag = STRUCTURE_TYPE24753; t55896.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55896.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20807, 728464); out_of_memory_error();} t55896.value.structure_type24753->s0.tag = STRING_TYPE; t55896.value.structure_type24753->s0.value.string_type = t55892; t55896.value.structure_type24753->s1.tag = NULL_TYPE; t55895.tag = STRUCTURE_TYPE24753; t55895.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55895.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20807, 728464); out_of_memory_error();} t55895.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55895.value.structure_type24753->s0.value.structure_type24753 = t55891; t55895.value.structure_type24753->s1 = t55896; a41947 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41947==NULL) {backtrace("stalin.sc", 20807, 728464); out_of_memory_error();} a41947->s0.tag = STRING_TYPE; a41947->s0.value.string_type = t55890; a41947->s1 = t55895; /* x301900 stalin.sc:14386:505956 */ /* x301899 stalin.sc:14386:505972 */ t55893 = a41947; /* x301898 stalin.sc:14386:505957 */ t55894.tag = STRUCTURE_TYPE24753; t55894.value.structure_type24753 = t55893; t55804 = f13474(t55894); break; case NATIVE_PROCEDURE_TYPE23916: p16156 = t55805.value.native_procedure_type23916; a27188 = t55806; /* x152168 stalin.sc:20777:727428 */ /* x152167 stalin.sc:20777:727460 */ t55928 = a27188; /* x152166 stalin.sc:20777:727452 */ /* x152165 stalin.sc:20777:727457 */ t55933 = p16156->a27186; /* x152164 stalin.sc:20777:727453 */ t55927 = f14281(t55933); /* x152163 stalin.sc:20777:727443 */ t55926 = "struct"; /* x152162 stalin.sc:20777:727429 */ t55932.tag = STRUCTURE_TYPE24753; t55932.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55932.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20777, 727428); out_of_memory_error();} t55932.value.structure_type24753->s0.tag = STRING_TYPE; t55932.value.structure_type24753->s0.value.string_type = t55928; t55932.value.structure_type24753->s1.tag = NULL_TYPE; t55931.tag = STRUCTURE_TYPE24753; t55931.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55931.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20777, 727428); out_of_memory_error();} t55931.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55931.value.structure_type24753->s0.value.structure_type24753 = t55927; t55931.value.structure_type24753->s1 = t55932; a41946 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41946==NULL) {backtrace("stalin.sc", 20777, 727428); out_of_memory_error();} a41946->s0.tag = STRING_TYPE; a41946->s0.value.string_type = t55926; a41946->s1 = t55931; /* x301896 stalin.sc:14386:505956 */ /* x301895 stalin.sc:14386:505972 */ t55929 = a41946; /* x301894 stalin.sc:14386:505957 */ t55930.tag = STRUCTURE_TYPE24753; t55930.value.structure_type24753 = t55929; t55804 = f13474(t55930); break; case NATIVE_PROCEDURE_TYPE23917: p16145 = t55805.value.native_procedure_type23917; a27180 = t55806; /* x152030 stalin.sc:20747:726331 */ /* x152028 stalin.sc:20747:726339 */ t55934 = p16145->a27179; /* x152029 stalin.sc:20747:726341 */ t55935 = a27180; /* x152027 stalin.sc:20747:726332 */ t55936.tag = STRING_TYPE; t55936.value.string_type = t55935; t55804 = f14374(t55934, t55936); break; case NATIVE_PROCEDURE_TYPE23918: p16177 = t55805.value.native_procedure_type23918; a27204 = t55806; /* x152432 stalin.sc:20826:729135 */ /* x152431 stalin.sc:20826:729167 */ t55939 = a27204; /* x152430 stalin.sc:20826:729159 */ /* x152429 stalin.sc:20826:729164 */ t55944 = p16177->a27203; /* x152428 stalin.sc:20826:729160 */ t55938 = f14289(t55944); /* x152427 stalin.sc:20826:729150 */ t55937 = "struct"; /* x152426 stalin.sc:20826:729136 */ t55943.tag = STRUCTURE_TYPE24753; t55943.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55943.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20826, 729135); out_of_memory_error();} t55943.value.structure_type24753->s0.tag = STRING_TYPE; t55943.value.structure_type24753->s0.value.string_type = t55939; t55943.value.structure_type24753->s1.tag = NULL_TYPE; t55942.tag = STRUCTURE_TYPE24753; t55942.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55942.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20826, 729135); out_of_memory_error();} t55942.value.structure_type24753->s0 = *((struct w49 *)(&t55938)); t55942.value.structure_type24753->s1 = t55943; a41945 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41945==NULL) {backtrace("stalin.sc", 20826, 729135); out_of_memory_error();} a41945->s0.tag = STRING_TYPE; a41945->s0.value.string_type = t55937; a41945->s1 = t55942; /* x301892 stalin.sc:14386:505956 */ /* x301891 stalin.sc:14386:505972 */ t55940 = a41945; /* x301890 stalin.sc:14386:505957 */ t55941.tag = STRUCTURE_TYPE24753; t55941.value.structure_type24753 = t55940; t55804 = f13474(t55941); break; case NATIVE_PROCEDURE_TYPE23919: p16179 = t55805.value.native_procedure_type23919; a27206 = t55806; /* x152460 stalin.sc:20832:729387 */ /* x152458 stalin.sc:20832:729399 */ t55945 = p16179->a27205; /* x152459 stalin.sc:20832:729401 */ t55946 = a27206; /* x152457 stalin.sc:20832:729388 */ t55947.tag = STRING_TYPE; t55947.value.string_type = t55946; t55804 = f14414(t55945, t55947); break; default: p16175 = t55805.value.native_procedure_type23924; a27202 = t55806; /* x152401 stalin.sc:20820:728922 */ /* x152399 stalin.sc:20820:728931 */ t55948 = p16175->a27201; /* x152400 stalin.sc:20820:728933 */ t55949 = a27202; /* x152398 stalin.sc:20820:728923 */ t55950.tag = STRING_TYPE; t55950.value.string_type = t55949; t55804 = f14410(t55948, t55950);} /* x122755 stalin.sc:14511:509615 */ t55794 = f13514(t55804); /* x122754 stalin.sc:14510:509555 */ /* x122753 stalin.sc:14510:509572 */ /* x122752 stalin.sc:14510:509594 */ t55800 = "dummy"; /* x122751 stalin.sc:14510:509587 */ t55799 = "char"; /* x122750 stalin.sc:14510:509573 */ t55803.tag = STRUCTURE_TYPE24753; t55803.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55803.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14510, 509572); out_of_memory_error();} t55803.value.structure_type24753->s0.tag = STRING_TYPE; t55803.value.structure_type24753->s0.value.string_type = t55800; t55803.value.structure_type24753->s1.tag = NULL_TYPE; a42037 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42037==NULL) {backtrace("stalin.sc", 14510, 509572); out_of_memory_error();} a42037->s0.tag = STRING_TYPE; a42037->s0.value.string_type = t55799; a42037->s1 = t55803; /* x302260 stalin.sc:14386:505956 */ /* x302259 stalin.sc:14386:505972 */ t55801 = a42037; /* x302258 stalin.sc:14386:505957 */ t55802.tag = STRUCTURE_TYPE24753; t55802.value.structure_type24753 = t55801; t55798 = f13474(t55802); /* x122749 stalin.sc:14510:509556 */ t55793 = f13514(t55798); /* x122748 stalin.sc:14510:509541 */ t55797.tag = STRUCTURE_TYPE24753; t55797.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55797.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14510, 509540); out_of_memory_error();} t55797.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55797.value.structure_type24753->s0.value.structure_type24753 = t55794; t55797.value.structure_type24753->s1.tag = NULL_TYPE; a42036 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42036==NULL) {backtrace("stalin.sc", 14510, 509540); out_of_memory_error();} a42036->s0.tag = STRUCTURE_TYPE24753; a42036->s0.value.structure_type24753 = t55793; a42036->s1 = t55797; /* x302256 stalin.sc:14386:505956 */ /* x302255 stalin.sc:14386:505972 */ t55795 = a42036; /* x302254 stalin.sc:14386:505957 */ t55796.tag = STRUCTURE_TYPE24753; t55796.value.structure_type24753 = t55795; t55792 = f13474(t55796); /* x122747 stalin.sc:14509:509524 */ t55790 = f13501(t55792); /* x122746 stalin.sc:14508:509506 */ t55789 = "struct"; /* x122745 stalin.sc:14508:509501 */ t55791.tag = STRUCTURE_TYPE24753; t55791.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55791.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14508, 509500); out_of_memory_error();} t55791.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55791.value.structure_type24753->s0.value.structure_type24753 = t55790; t55791.value.structure_type24753->s1.tag = NULL_TYPE; a35117 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35117==NULL) {backtrace("stalin.sc", 14508, 509500); out_of_memory_error();} a35117->s0.tag = STRING_TYPE; a35117->s0.value.string_type = t55789; a35117->s1 = t55791; /* x272241 */ t55784 = a35117; /* x122744 stalin.sc:14507:509487 */ t55783 = "offsetof"; /* x122743 stalin.sc:14507:509480 */ t55786.tag = STRING_TYPE; t55786.value.string_type = t55783; t55788.tag = STRUCTURE_TYPE24753; t55788.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55788.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14507, 509479); out_of_memory_error();} t55788.value.structure_type24753->s0.tag = STRING_TYPE; t55788.value.structure_type24753->s0.value.string_type = t55785; t55788.value.structure_type24753->s1.tag = NULL_TYPE; t55787.tag = STRUCTURE_TYPE24753; t55787.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55787.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14507, 509479); out_of_memory_error();} t55787.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55787.value.structure_type24753->s0.value.structure_type24753 = t55784; t55787.value.structure_type24753->s1 = t55788; return f13543(t55786, t55787);} /* C:SIZEOF[13544] */ struct structure_type24753 *f13544(struct w49 a25292) {char *t55953; struct w49 t55954; struct w49 t55955; struct w12224 t55956; /* x122740 stalin.sc:14503:509401 */ /* x122739 stalin.sc:14503:509418 */ t55954 = a25292; /* x122738 stalin.sc:14503:509409 */ t55953 = "sizeof"; /* x122737 stalin.sc:14503:509402 */ t55955.tag = STRING_TYPE; t55955.value.string_type = t55953; t55956.tag = STRUCTURE_TYPE24753; t55956.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55956.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14503, 509401); out_of_memory_error();} t55956.value.structure_type24753->s0 = t55954; t55956.value.structure_type24753->s1.tag = NULL_TYPE; return f13543(t55955, t55956);} /* C:CALL[13543] */ struct structure_type24753 *f13543(struct w49 a25290, struct w12224 a25291) {struct structure_type24753 *a35218; /* OBJS */ struct w49 t55957; struct structure_type24753 *t55958; struct w49 t55959; struct w49 t55960; struct w12224 t55961; struct w49 t55962; /* x122734 stalin.sc:14501:509328 */ /* x122733 stalin.sc:14501:509336 */ /* x122732 stalin.sc:14501:509356 */ /* x122731 stalin.sc:14501:509372 */ t55961 = a25291; /* x122730 stalin.sc:14501:509357 */ t55962 = *((struct w49 *)(&t55961)); t55960 = f13483(t55962); /* x122729 stalin.sc:14501:509337 */ t55958 = f13513(t55960); /* x122728 stalin.sc:14501:509334 */ t55957 = a25290; /* x122727 stalin.sc:14501:509329 */ t55959.tag = STRUCTURE_TYPE24753; t55959.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55959.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14501, 509328); out_of_memory_error();} t55959.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t55959.value.structure_type24753->s0.value.structure_type24753 = t55958; t55959.value.structure_type24753->s1.tag = NULL_TYPE; a35218 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35218==NULL) {backtrace("stalin.sc", 14501, 509328); out_of_memory_error();} a35218->s0 = t55957; a35218->s1 = t55959; /* x272443 */ return a35218;} /* C:=[13542] */ struct structure_type24753 *f13542(struct w49 a25288, struct w49 a25289) {struct structure_type24753 *a42102; /* CS */ struct structure_type24753 *t55963; struct w49 t55964; struct w49 t55965; struct w49 t55966; char *t55967; struct w49 t55968; struct structure_type24753 *t55969; struct w49 t55970; struct w49 t55971; struct w49 t55972; struct w49 t55973; struct w49 t55974; /* x122724 stalin.sc:14498:509207 */ /* x122723 stalin.sc:14499:509229 */ /* x122722 stalin.sc:14499:509240 */ /* x122721 stalin.sc:14499:509279 */ /* x122720 stalin.sc:14499:509295 */ t55974 = a25289; /* x122719 stalin.sc:14499:509280 */ t55968 = f13508(t55974); /* x122718 stalin.sc:14499:509275 */ t55967 = "="; /* x122717 stalin.sc:14499:509255 */ /* x122716 stalin.sc:14499:509271 */ t55973 = a25288; /* x122715 stalin.sc:14499:509256 */ t55966 = f13508(t55973); /* x122714 stalin.sc:14499:509241 */ t55972.tag = STRUCTURE_TYPE24753; t55972.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55972.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14499, 509240); out_of_memory_error();} t55972.value.structure_type24753->s0 = t55968; t55972.value.structure_type24753->s1.tag = NULL_TYPE; t55971.tag = STRUCTURE_TYPE24753; t55971.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55971.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14499, 509240); out_of_memory_error();} t55971.value.structure_type24753->s0.tag = STRING_TYPE; t55971.value.structure_type24753->s0.value.string_type = t55967; t55971.value.structure_type24753->s1 = t55972; a42102 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42102==NULL) {backtrace("stalin.sc", 14499, 509240); out_of_memory_error();} a42102->s0 = t55966; a42102->s1 = t55971; /* x302520 stalin.sc:14386:505956 */ /* x302519 stalin.sc:14386:505972 */ t55969 = a42102; /* x302518 stalin.sc:14386:505957 */ t55970.tag = STRUCTURE_TYPE24753; t55970.value.structure_type24753 = t55969; t55965 = f13474(t55970); /* x122713 stalin.sc:14499:509230 */ t55963 = f13472(t55965); /* x122712 stalin.sc:14498:509208 */ t55964.tag = STRUCTURE_TYPE24753; t55964.value.structure_type24753 = t55963; return f13513(t55964);} /* C:RAW-SUBSCRIPT[13541] */ struct structure_type24753 *f13541(struct w61020 a25286, struct w61020 a25287) {struct structure_type24753 *a35222; /* OBJS */ struct w61020 t55975; char *t55976; struct w49 t55977; char *t55978; struct w49 t55979; struct w49 t55980; struct w49 t55981; struct w61020 t55982; struct w49 t55983; /* x122709 stalin.sc:14495:509146 */ /* x122708 stalin.sc:14495:509179 */ t55978 = "]"; /* x122707 stalin.sc:14495:509159 */ /* x122706 stalin.sc:14495:509175 */ t55982 = a25287; /* x122705 stalin.sc:14495:509160 */ t55983 = *((struct w49 *)(&t55982)); t55977 = f13508(t55983); /* x122704 stalin.sc:14495:509155 */ t55976 = "["; /* x122703 stalin.sc:14495:509152 */ t55975 = a25286; /* x122702 stalin.sc:14495:509147 */ t55981.tag = STRUCTURE_TYPE24753; t55981.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55981.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14495, 509146); out_of_memory_error();} t55981.value.structure_type24753->s0.tag = STRING_TYPE; t55981.value.structure_type24753->s0.value.string_type = t55978; t55981.value.structure_type24753->s1.tag = NULL_TYPE; t55980.tag = STRUCTURE_TYPE24753; t55980.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55980.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14495, 509146); out_of_memory_error();} t55980.value.structure_type24753->s0 = t55977; t55980.value.structure_type24753->s1 = t55981; t55979.tag = STRUCTURE_TYPE24753; t55979.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55979.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14495, 509146); out_of_memory_error();} t55979.value.structure_type24753->s0.tag = STRING_TYPE; t55979.value.structure_type24753->s0.value.string_type = t55976; t55979.value.structure_type24753->s1 = t55980; a35222 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35222==NULL) {backtrace("stalin.sc", 14495, 509146); out_of_memory_error();} a35222->s0 = *((struct w49 *)(&t55975)); a35222->s1 = t55979; /* x272451 */ return a35222;} /* C:SUBSCRIPT[13540] */ struct structure_type24753 *f13540(struct w49 a25284, struct w49 a25285) {struct structure_type24753 *a35168; /* OBJS */ struct structure_type24753 *t55984; struct w49 t55985; struct structure_type24753 *t55986; struct w49 t55987; struct w49 t55988; char *t55989; struct w49 t55990; char *t55991; struct w49 t55992; struct w49 t55993; struct w49 t55994; struct w49 t55995; /* x122699 stalin.sc:14493:509041 */ /* x122698 stalin.sc:14493:509061 */ /* x122697 stalin.sc:14493:509072 */ /* x122696 stalin.sc:14493:509105 */ t55991 = "]"; /* x122695 stalin.sc:14493:509085 */ /* x122694 stalin.sc:14493:509101 */ t55995 = a25285; /* x122693 stalin.sc:14493:509086 */ t55990 = f13508(t55995); /* x122692 stalin.sc:14493:509081 */ t55989 = "["; /* x122691 stalin.sc:14493:509078 */ t55988 = a25284; /* x122690 stalin.sc:14493:509073 */ t55994.tag = STRUCTURE_TYPE24753; t55994.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55994.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14493, 509072); out_of_memory_error();} t55994.value.structure_type24753->s0.tag = STRING_TYPE; t55994.value.structure_type24753->s0.value.string_type = t55991; t55994.value.structure_type24753->s1.tag = NULL_TYPE; t55993.tag = STRUCTURE_TYPE24753; t55993.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55993.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14493, 509072); out_of_memory_error();} t55993.value.structure_type24753->s0 = t55990; t55993.value.structure_type24753->s1 = t55994; t55992.tag = STRUCTURE_TYPE24753; t55992.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t55992.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14493, 509072); out_of_memory_error();} t55992.value.structure_type24753->s0.tag = STRING_TYPE; t55992.value.structure_type24753->s0.value.string_type = t55989; t55992.value.structure_type24753->s1 = t55993; a35168 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35168==NULL) {backtrace("stalin.sc", 14493, 509072); out_of_memory_error();} a35168->s0 = t55988; a35168->s1 = t55992; /* x272343 */ t55986 = a35168; /* x122689 stalin.sc:14493:509062 */ t55987.tag = STRUCTURE_TYPE24753; t55987.value.structure_type24753 = t55986; t55984 = f13472(t55987); /* x122688 stalin.sc:14493:509042 */ t55985.tag = STRUCTURE_TYPE24753; t55985.value.structure_type24753 = t55984; return f13513(t55985);} /* [inside C:STRING 13538] */ char *f13538(struct w49 a25283) {int t55996; struct w49 t55997; struct w49 t55998; /* x122639 stalin.sc:14484:508737 */ /* x122638 stalin.sc:14484:508753 */ /* x122637 stalin.sc:14484:508768 */ t55998 = a25283; /* x269060 stalin.sc:14484:508754 */ if (!((t55998.tag)>2))); /* x122635 stalin.sc:14484:508738 */ t55997.tag = FIXNUM_TYPE; t55997.value.fixnum_type = t55996; return f28396(t55997);} /* C:STRING[13532] */ struct structure_type24753 *f13532(struct w49 a25280) {struct structure_type24753 *a35221; /* OBJS */ struct structure_type24753 *a35225; /* OBJS */ struct structure_type24753 *a35231; /* OBJS */ struct structure_type24753 *a35232; /* OBJS */ struct structure_type24753 *a35233; /* OBJS */ struct structure_type24753 *a42098; /* CS */ struct structure_type24753 *a42099; /* CS */ struct structure_type24753 *a42100; /* CS */ struct structure_type24753 *a42101; /* CS */ char *t55999; struct structure_type24753 *t56000; char *t56001; struct w49 t56002; struct w49 t56003; struct structure_type24753 *t56004; struct w36270 t56005; struct w49 t56006; struct structure_type24753 *t56007; struct w49 t56008; struct structure_type24753 *t56009; struct w49 t56010; struct structure_type24753 *t56011; struct structure_type24753 *t56012; struct structure_type24753 *t56013; struct w49 t56014; struct w61020 t56015; char *t56016; char *t56017; struct w49 t56018; unsigned t56019; struct w49 t56020; struct w49 t56021; struct w49 t56022; char *t56023; char *t56024; struct w61020 t56025; struct w61020 t56026; struct w49 t56027; struct w49 t56028; struct p14552 *t56029; struct structure_type24753 *t56030; struct w49 t56031; char *t56032; struct structure_type24753 *t56033; struct w49 t56034; struct structure_type24753 *t56035; struct w49 t56036; struct w49 t56037; struct w49 t56038; struct w49 t56039; struct structure_type24753 *t56040; struct structure_type24753 *t56041; struct structure_type24753 *t56042; struct w49 t56043; struct w49 t56044; struct w49 t56045; struct w49 t56046; struct structure_type24753 *t56047; struct structure_type24753 *t56048; struct w49 t56049; struct w49 t56050; char *t56051; char *t56052; struct w61020 t56053; struct w61020 t56054; int t56055; struct w49 t56056; int t56057; int t56058; struct w49 t56059; struct w49 t56060; struct w49 t56061; char *t56062; struct structure_type24753 *t56063; struct w49 t56064; struct w49 t56065; struct structure_type24753 *t56066; struct w49 t56067; struct structure_type24753 *t56068; struct structure_type24753 *t56069; struct w49 t56070; struct w49 t56071; char *t56072; char *t56073; struct w49 t56074; unsigned t56075; struct w49 t56076; struct w49 t56077; struct w49 t56078; struct structure_type24753 *t56079; struct w49 t56080; struct w49 t56081; struct w49 t56082; struct structure_type24753 *t56083; struct structure_type24753 *t56084; struct structure_type24753 *t56085; struct w49 t56086; struct structure_type24753 *t56087; struct w36270 t56088; struct w49 t56089; struct structure_type24753 *t56090; struct w49 t56091; char *t56092; struct w49 t56093; struct structure_type24753 *t56094; struct structure_type24753 *t56095; struct w49 t56096; struct w49 t56097; /* x122685 stalin.sc:14461:508067 */ /* x122560 stalin.sc:14462:508076 */ if (a685==FALSE_TYPE) goto l8283; /* x122672 */ /* x122671 */ /* x122670 */ /* x122669 stalin.sc:14463:508096 */ /* x122585 stalin.sc:14463:508104 */ /* x122582 stalin.sc:14463:508110 */ /* x122583 stalin.sc:14463:508119 */ t56027 = a25280; /* x122584 stalin.sc:14463:508121 */ t56028 = a1199; /* x122581 stalin.sc:14463:508105 */ t56029 = (struct p14552 *)NATIVE_PROCEDURE_TYPE340; if ((f1178(t56029, t56027, t56028).tag)==FALSE_TYPE) goto l8285; /* x122587 */ /* x122586 */ goto l8286; l8285: /* x122668 */ /* x122667 */ /* x122666 */ /* x122665 stalin.sc:14464:508136 */ /* x122664 stalin.sc:14464:508152 */ /* x122663 stalin.sc:14464:508170 */ /* x122662 stalin.sc:14464:508176 */ t56097 = a25280; /* x122661 stalin.sc:14464:508171 */ a35232 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35232==NULL) {backtrace("stalin.sc", 14464, 508170); out_of_memory_error();} a35232->s0 = t56097; a35232->s1.tag = NULL_TYPE; /* x272471 */ t56094 = a35232; /* x122660 stalin.sc:14464:508160 */ t56093 = a1199; /* x122659 stalin.sc:14464:508153 */ t56096.tag = STRUCTURE_TYPE24753; t56096.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56096.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14464, 508152); out_of_memory_error();} t56096.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t56096.value.structure_type24753->s0.value.structure_type24753 = t56094; t56096.value.structure_type24753->s1.tag = NULL_TYPE; t56095 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56095==NULL) {backtrace("stalin.sc", 14464, 508152); out_of_memory_error();} t56095->s0 = t56093; t56095->s1 = t56096; a1199 = f26254(t56095); /* x122658 */ /* x122657 stalin.sc:14465:508185 */ /* x122656 stalin.sc:14467:508270 */ /* x122655 stalin.sc:14468:508293 */ /* x122654 stalin.sc:14478:508550 */ /* x122653 stalin.sc:14479:508567 */ /* x122629 stalin.sc:14479:508572 */ /* x122628 stalin.sc:14480:508592 */ /* x122627 stalin.sc:14480:508608 */ /* x122624 stalin.sc:14480:508619 */ /* x122625 stalin.sc:14480:508628 */ t56077 = a25280; /* x122626 stalin.sc:14480:508630 */ t56078 = a1199; /* x122623 stalin.sc:14480:508609 */ t56075 = f1258(t56077, t56078); /* x122622 stalin.sc:14480:508593 */ /* MOVE: dispatching squished to general */ if (t56075==FALSE_TYPE) t56076.tag = (unsigned)t56075; else {t56076.tag = FIXNUM_TYPE; t56076.value.fixnum_type = (int)(((int)t56075)>>1);} t56073 = f28396(t56076); /* x122621 stalin.sc:14479:508578 */ t56072 = "string"; /* x122620 stalin.sc:14479:508573 */ t56074.tag = STRUCTURE_TYPE24753; t56074.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56074.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14479, 508572); out_of_memory_error();} t56074.value.structure_type24753->s0.tag = STRING_TYPE; t56074.value.structure_type24753->s0.value.string_type = t56073; t56074.value.structure_type24753->s1.tag = NULL_TYPE; a35225 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35225==NULL) {backtrace("stalin.sc", 14479, 508572); out_of_memory_error();} a35225->s0.tag = STRING_TYPE; a35225->s0.value.string_type = t56072; a35225->s1 = t56074; /* x272457 */ t56068 = a35225; /* x122652 stalin.sc:14481:508649 */ /* x122651 stalin.sc:14482:508671 */ /* x122650 stalin.sc:14483:508694 */ /* x122649 stalin.sc:14484:508712 */ /* x122648 stalin.sc:14486:508802 */ /* x122647 stalin.sc:14486:508808 */ /* x122646 stalin.sc:14486:508809 */ /* x276953 stalin.sc:14555:511005 */ t56092 = "0"; /* x122645 stalin.sc:14486:508803 */ a35231 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35231==NULL) {backtrace("stalin.sc", 14486, 508802); out_of_memory_error();} a35231->s0.tag = STRING_TYPE; a35231->s0.value.string_type = t56092; a35231->s1.tag = NULL_TYPE; /* x272469 */ t56084 = a35231; /* x122644 stalin.sc:14484:508720 */ /* x122643 stalin.sc:14485:508781 */ /* x122642 stalin.sc:14485:508795 */ t56091 = a25280; /* x122641 stalin.sc:14485:508782 */ a34032 = t56091; t56087 = f27579(); /* x122640 stalin.sc:14484:508725 */ /* x122634 stalin.sc:14484:508721 */ t56088.tag = NATIVE_PROCEDURE_TYPE15039; /* MOVE: branching squeezed to general */ if (t56087>=((struct structure_type24753 *)VALUE_OFFSET)) {t56089.tag = STRUCTURE_TYPE24753; t56089.value.structure_type24753 = t56087;} else t56089.tag = (unsigned)t56087; t56090 = (struct structure_type24753 *)NULL_TYPE; t56083 = f27731(t56088, t56089, t56090); /* x122633 stalin.sc:14484:508713 */ t56086.tag = STRUCTURE_TYPE24753; t56086.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56086.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14484, 508712); out_of_memory_error();} t56086.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t56086.value.structure_type24753->s0.value.structure_type24753 = t56084; t56086.value.structure_type24753->s1.tag = NULL_TYPE; t56085 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56085==NULL) {backtrace("stalin.sc", 14484, 508712); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t56083>=((struct structure_type24753 *)VALUE_OFFSET)) {t56085->s0.tag = STRUCTURE_TYPE24753; t56085->s0.value.structure_type24753 = t56083;} else t56085->s0.tag = (unsigned)t56083; t56085->s1 = t56086; t56082 = f26254(t56085); /* x122632 stalin.sc:14483:508695 */ t56081 = f13483(t56082); /* x122631 stalin.sc:14482:508672 */ t56079 = f13501(t56081); /* x122630 stalin.sc:14481:508650 */ t56080.tag = STRUCTURE_TYPE24753; t56080.value.structure_type24753 = t56079; t56069 = f13501(t56080); /* x122619 stalin.sc:14479:508568 */ t56070.tag = STRUCTURE_TYPE24753; t56070.value.structure_type24753 = t56068; t56071.tag = STRUCTURE_TYPE24753; t56071.value.structure_type24753 = t56069; t56066 = f13542(t56070, t56071); /* x122618 stalin.sc:14478:508551 */ t56067.tag = STRUCTURE_TYPE24753; t56067.value.structure_type24753 = t56066; t56034 = f13508(t56067); /* x122617 stalin.sc:14470:508330 */ /* x122616 stalin.sc:14471:508346 */ /* x122615 stalin.sc:14477:508490 */ /* x122614 stalin.sc:14477:508507 */ /* x122613 stalin.sc:14477:508531 */ t56062 = "align"; /* x122612 stalin.sc:14477:508522 */ t56061 = a1251; /* x122611 stalin.sc:14477:508508 */ t56065.tag = STRUCTURE_TYPE24753; t56065.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56065.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14477, 508507); out_of_memory_error();} t56065.value.structure_type24753->s0.tag = STRING_TYPE; t56065.value.structure_type24753->s0.value.string_type = t56062; t56065.value.structure_type24753->s1.tag = NULL_TYPE; a42101 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42101==NULL) {backtrace("stalin.sc", 14477, 508507); out_of_memory_error();} a42101->s0 = t56061; a42101->s1 = t56065; /* x302516 stalin.sc:14386:505956 */ /* x302515 stalin.sc:14386:505972 */ t56063 = a42101; /* x302514 stalin.sc:14386:505957 */ t56064.tag = STRUCTURE_TYPE24753; t56064.value.structure_type24753 = t56063; t56060 = f13474(t56064); /* x122610 stalin.sc:14477:508491 */ t56041 = f13514(t56060); /* x122609 stalin.sc:14472:508363 */ /* x122608 stalin.sc:14473:508383 */ /* x122607 stalin.sc:14475:508413 */ /* x122598 stalin.sc:14476:508435 */ t56051 = "string"; /* x122606 stalin.sc:14476:508444 */ /* x122605 stalin.sc:14476:508460 */ /* x122603 stalin.sc:14476:508463 */ /* x122602 stalin.sc:14476:508478 */ t56059 = a25280; /* x269061 stalin.sc:14476:508464 */ if (!((t56059.tag)==STRING_TYPE)) {backtrace("stalin.sc", 14476, 508463); string_length_error();} t56057 = strlen(t56059.value.string_type); /* x122604 stalin.sc:14476:508481 */ t56058 = 1; /* x269062 stalin.sc:14476:508461 */ t56055 = t56057+t56058; /* x122599 stalin.sc:14476:508445 */ t56056.tag = FIXNUM_TYPE; t56056.value.fixnum_type = t56055; t56052 = f28396(t56056); /* x122597 stalin.sc:14475:508414 */ t56053.tag = STRING_TYPE; t56053.value.string_type = t56051; t56054.tag = STRING_TYPE; t56054.value.string_type = t56052; t56047 = f13541(t56053, t56054); /* x122596 stalin.sc:14474:508402 */ t56046 = a1252; /* x122595 stalin.sc:14473:508384 */ t56050.tag = STRUCTURE_TYPE24753; t56050.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56050.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14473, 508383); out_of_memory_error();} t56050.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t56050.value.structure_type24753->s0.value.structure_type24753 = t56047; t56050.value.structure_type24753->s1.tag = NULL_TYPE; a42100 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42100==NULL) {backtrace("stalin.sc", 14473, 508383); out_of_memory_error();} a42100->s0 = t56046; a42100->s1 = t56050; /* x302512 stalin.sc:14386:505956 */ /* x302511 stalin.sc:14386:505972 */ t56048 = a42100; /* x302510 stalin.sc:14386:505957 */ t56049.tag = STRUCTURE_TYPE24753; t56049.value.structure_type24753 = t56048; t56045 = f13474(t56049); /* x122594 stalin.sc:14472:508364 */ t56040 = f13514(t56045); /* x122593 stalin.sc:14471:508347 */ t56044.tag = STRUCTURE_TYPE24753; t56044.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56044.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14471, 508346); out_of_memory_error();} t56044.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t56044.value.structure_type24753->s0.value.structure_type24753 = t56041; t56044.value.structure_type24753->s1.tag = NULL_TYPE; a42099 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42099==NULL) {backtrace("stalin.sc", 14471, 508346); out_of_memory_error();} a42099->s0.tag = STRUCTURE_TYPE24753; a42099->s0.value.structure_type24753 = t56040; a42099->s1 = t56044; /* x302508 stalin.sc:14386:505956 */ /* x302507 stalin.sc:14386:505972 */ t56042 = a42099; /* x302506 stalin.sc:14386:505957 */ t56043.tag = STRUCTURE_TYPE24753; t56043.value.structure_type24753 = t56042; t56039 = f13474(t56043); /* x122592 stalin.sc:14470:508331 */ t56033 = f13501(t56039); /* x122591 stalin.sc:14469:508315 */ t56032 = "union"; /* x122590 stalin.sc:14468:508294 */ t56038.tag = STRUCTURE_TYPE24753; t56038.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56038.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14468, 508293); out_of_memory_error();} t56038.value.structure_type24753->s0 = t56034; t56038.value.structure_type24753->s1.tag = NULL_TYPE; t56037.tag = STRUCTURE_TYPE24753; t56037.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56037.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14468, 508293); out_of_memory_error();} t56037.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t56037.value.structure_type24753->s0.value.structure_type24753 = t56033; t56037.value.structure_type24753->s1 = t56038; a42098 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42098==NULL) {backtrace("stalin.sc", 14468, 508293); out_of_memory_error();} a42098->s0.tag = STRING_TYPE; a42098->s0.value.string_type = t56032; a42098->s1 = t56037; /* x302504 stalin.sc:14386:505956 */ /* x302503 stalin.sc:14386:505972 */ t56035 = a42098; /* x302502 stalin.sc:14386:505957 */ t56036.tag = STRUCTURE_TYPE24753; t56036.value.structure_type24753 = t56035; t56031 = f13474(t56036); /* x122589 stalin.sc:14467:508271 */ t56030 = f13514(t56031); /* x122588 stalin.sc:14465:508186 */ f13460(t56030); l8286: /* x122580 */ /* x122579 stalin.sc:14487:508828 */ /* x122578 stalin.sc:14487:508833 */ /* x122572 stalin.sc:14487:508838 */ /* x122571 stalin.sc:14488:508858 */ /* x122570 stalin.sc:14488:508874 */ /* x122567 stalin.sc:14488:508885 */ /* x122568 stalin.sc:14488:508894 */ t56021 = a25280; /* x122569 stalin.sc:14488:508896 */ t56022 = a1199; /* x122566 stalin.sc:14488:508875 */ t56019 = f1258(t56021, t56022); /* x122565 stalin.sc:14488:508859 */ /* MOVE: dispatching squished to general */ if (t56019==FALSE_TYPE) t56020.tag = (unsigned)t56019; else {t56020.tag = FIXNUM_TYPE; t56020.value.fixnum_type = (int)(((int)t56019)>>1);} t56017 = f28396(t56020); /* x122564 stalin.sc:14487:508844 */ t56016 = "string"; /* x122563 stalin.sc:14487:508839 */ t56018.tag = STRUCTURE_TYPE24753; t56018.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56018.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14487, 508838); out_of_memory_error();} t56018.value.structure_type24753->s0.tag = STRING_TYPE; t56018.value.structure_type24753->s0.value.string_type = t56017; t56018.value.structure_type24753->s1.tag = NULL_TYPE; a35221 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35221==NULL) {backtrace("stalin.sc", 14487, 508838); out_of_memory_error();} a35221->s0.tag = STRING_TYPE; a35221->s0.value.string_type = t56016; a35221->s1 = t56018; /* x272449 */ t56012 = a35221; /* x122577 stalin.sc:14489:508915 */ /* x122574 stalin.sc:14489:508932 */ t56023 = "string"; /* x122576 stalin.sc:14489:508941 */ /* x122575 stalin.sc:14489:508942 */ /* x276951 stalin.sc:14555:511005 */ t56024 = "0"; /* x122573 stalin.sc:14489:508916 */ t56025.tag = STRING_TYPE; t56025.value.string_type = t56023; t56026.tag = STRING_TYPE; t56026.value.string_type = t56024; t56013 = f13541(t56025, t56026); /* x122562 stalin.sc:14487:508834 */ t56014.tag = STRUCTURE_TYPE24753; t56014.value.structure_type24753 = t56012; t56015.tag = STRUCTURE_TYPE24753; t56015.value.structure_type24753 = t56013; t56009 = f13585(t56014, t56015); /* x122561 stalin.sc:14487:508829 */ t56010.tag = STRUCTURE_TYPE24753; t56010.value.structure_type24753 = t56009; t56011 = (struct structure_type24753 *)NULL_TYPE; return f13625(t56010, t56011); l8283: /* x122684 */ /* x122683 */ /* x122682 stalin.sc:14490:508959 */ /* x122681 stalin.sc:14490:509002 */ t56001 = "\""; /* x122680 stalin.sc:14490:508970 */ /* x122679 stalin.sc:14490:508984 */ /* x122678 stalin.sc:14490:508998 */ t56008 = a25280; /* x122677 stalin.sc:14490:508985 */ a34032 = t56008; t56004 = f27579(); /* x122676 stalin.sc:14490:508975 */ /* x122675 stalin.sc:14490:508971 */ t56005.tag = NATIVE_PROCEDURE_TYPE6976; /* MOVE: branching squeezed to general */ if (t56004>=((struct structure_type24753 *)VALUE_OFFSET)) {t56006.tag = STRUCTURE_TYPE24753; t56006.value.structure_type24753 = t56004;} else t56006.tag = (unsigned)t56004; t56007 = (struct structure_type24753 *)NULL_TYPE; t56000 = f27731(t56005, t56006, t56007); /* x122674 stalin.sc:14490:508965 */ t55999 = "\""; /* x122673 stalin.sc:14490:508960 */ t56003.tag = STRUCTURE_TYPE24753; t56003.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56003.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14490, 508959); out_of_memory_error();} t56003.value.structure_type24753->s0.tag = STRING_TYPE; t56003.value.structure_type24753->s0.value.string_type = t56001; t56003.value.structure_type24753->s1.tag = NULL_TYPE; t56002.tag = STRUCTURE_TYPE24753; t56002.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56002.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14490, 508959); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t56000>=((struct structure_type24753 *)VALUE_OFFSET)) {t56002.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t56002.value.structure_type24753->s0.value.structure_type24753 = t56000;} else t56002.value.structure_type24753->s0.tag = (unsigned)t56000; t56002.value.structure_type24753->s1 = t56003; a35233 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35233==NULL) {backtrace("stalin.sc", 14490, 508959); out_of_memory_error();} a35233->s0.tag = STRING_TYPE; a35233->s0.value.string_type = t55999; a35233->s1 = t56002; /* x272473 */ return a35233;} /* C:FIXNUM[13530] */ char *f13530(struct w49 a25278) {struct w49 t56098; struct w49 t56099; /* x122552 stalin.sc:14456:507982 */ /* x122551 stalin.sc:14456:507998 */ t56098 = a25278; /* x122550 stalin.sc:14456:507983 */ t56099 = t56098; return f28396(t56099);} /* C:CHARACTER[13529] */ struct structure_type24753 *f13529(struct w49 a25277) {struct structure_type24753 *a35178; /* OBJS */ char *t56100; char *t56101; char *t56102; struct w49 t56103; struct w49 t56104; struct w49 t56105; /* x122547 stalin.sc:14454:507931 */ /* x122546 stalin.sc:14454:507954 */ t56102 = "\'"; /* x122545 stalin.sc:14454:507941 */ /* x122544 stalin.sc:14454:507951 */ t56105 = a25277; /* x122543 stalin.sc:14454:507942 */ t56101 = f13523(t56105); /* x122542 stalin.sc:14454:507937 */ t56100 = "\'"; /* x122541 stalin.sc:14454:507932 */ t56104.tag = STRUCTURE_TYPE24753; t56104.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56104.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14454, 507931); out_of_memory_error();} t56104.value.structure_type24753->s0.tag = STRING_TYPE; t56104.value.structure_type24753->s0.value.string_type = t56102; t56104.value.structure_type24753->s1.tag = NULL_TYPE; t56103.tag = STRUCTURE_TYPE24753; t56103.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56103.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14454, 507931); out_of_memory_error();} t56103.value.structure_type24753->s0.tag = STRING_TYPE; t56103.value.structure_type24753->s0.value.string_type = t56101; t56103.value.structure_type24753->s1 = t56104; a35178 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35178==NULL) {backtrace("stalin.sc", 14454, 507931); out_of_memory_error();} a35178->s0.tag = STRING_TYPE; a35178->s0.value.string_type = t56100; a35178->s1 = t56103; /* x272363 */ return a35178;} /* C:ESCAPE[13523] */ char *f13523(struct w49 a25276) {char *r13523; struct w49 t56106; char t56107; struct w49 t56108; char t56109; struct w49 t56110; char t56111; struct w49 t56112; char t56113; struct w49 t56114; char t56115; struct w49 t56116; char t56117; struct w49 t56118; char t56119; struct w49 t56120; char t56121; struct w49 t56122; /* x122538 stalin.sc:14448:507752 */ /* x122505 stalin.sc:14448:507759 */ /* x122504 stalin.sc:14448:507769 */ t56107 = '\n'; /* x122503 stalin.sc:14448:507767 */ t56106 = a25276; /* x122502 stalin.sc:14448:507760 */ t56108 = t56106; t56109 = t56107; if (f27342(t56108, t56109)==FALSE_TYPE) goto l8288; /* x122508 */ /* x122507 */ /* x122506 stalin.sc:14448:507780 */ return "\\n"; l8288: /* x122537 */ /* x122512 stalin.sc:14449:507795 */ /* x122511 stalin.sc:14449:507805 */ t56111 = '\''; /* x122510 stalin.sc:14449:507803 */ t56110 = a25276; /* x122509 stalin.sc:14449:507796 */ t56112 = t56110; t56113 = t56111; if (f27342(t56112, t56113)==FALSE_TYPE) goto l8290; /* x122515 */ /* x122514 */ /* x122513 stalin.sc:14449:507810 */ return "\\\'"; l8290: /* x122536 */ /* x122519 stalin.sc:14450:507825 */ /* x122518 stalin.sc:14450:507835 */ t56115 = '\"'; /* x122517 stalin.sc:14450:507833 */ t56114 = a25276; /* x122516 stalin.sc:14450:507826 */ t56116 = t56114; t56117 = t56115; if (f27342(t56116, t56117)==FALSE_TYPE) goto l8292; /* x122522 */ /* x122521 */ /* x122520 stalin.sc:14450:507840 */ return "\\\""; l8292: /* x122535 */ /* x122526 stalin.sc:14451:507856 */ /* x122525 stalin.sc:14451:507866 */ t56119 = '\\'; /* x122524 stalin.sc:14451:507864 */ t56118 = a25276; /* x122523 stalin.sc:14451:507857 */ t56120 = t56118; t56121 = t56119; if (f27342(t56120, t56121)==FALSE_TYPE) goto l8294; /* x122529 */ /* x122528 */ /* x122527 stalin.sc:14451:507871 */ return "\\\\"; l8294: /* x122534 */ /* x122533 */ /* x122532 stalin.sc:14452:507892 */ /* x122531 stalin.sc:14452:507900 */ t56122 = a25276; /* x269063 stalin.sc:14452:507893 */ if (!((t56122.tag)>2); return r13523;} /* C:INITIALIZE-CONSTANTS[13519] */ struct structure_type24753 *f13519(int a25275) {struct structure_type24753 *a35120; /* OBJS */ char *t56123; char *t56124; struct w49 t56125; int t56126; struct w49 t56127; /* x122490 stalin.sc:14439:507601 */ /* x122489 stalin.sc:14439:507630 */ /* x122488 stalin.sc:14439:507646 */ t56126 = a25275; /* x122487 stalin.sc:14439:507631 */ t56127.tag = FIXNUM_TYPE; t56127.value.fixnum_type = t56126; t56124 = f28396(t56127); /* x122486 stalin.sc:14439:507607 */ t56123 = "initialize_constants"; /* x122485 stalin.sc:14439:507602 */ t56125.tag = STRUCTURE_TYPE24753; t56125.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56125.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14439, 507601); out_of_memory_error();} t56125.value.structure_type24753->s0.tag = STRING_TYPE; t56125.value.structure_type24753->s0.value.string_type = t56124; t56125.value.structure_type24753->s1.tag = NULL_TYPE; a35120 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35120==NULL) {backtrace("stalin.sc", 14439, 507601); out_of_memory_error();} a35120->s0.tag = STRING_TYPE; a35120->s0.value.string_type = t56123; a35120->s1 = t56125; /* x272247 */ return a35120;} /* C:DECLARATION[13517] */ struct structure_type24753 *f13517(struct w49 a25271, struct structure_type24753 *a25272, char *a25273) {struct w49 a25274; /* C */ struct structure_type24753 *a35188; /* OBJS */ struct structure_type24753 *a42093; /* CS */ struct w49 t56128; char *t56129; struct w49 t56130; struct w49 t56131; struct w49 t56132; struct w49 t56133; struct w49 t56134; char *t56135; struct w49 t56136; struct structure_type24753 *t56137; struct w49 t56138; struct structure_type24753 *t56139; struct w49 t56140; struct w49 t56141; struct w49 t56142; struct w49 t56143; struct w49 t56144; char *t56145; struct w49 t56146; struct structure_type24753 *t56147; struct w49 t56148; struct w49 t56149; struct structure_type24753 *t56150; struct w49 t56151; struct structure_type24753 *t56152; struct w49 t56153; /* x122482 stalin.sc:14428:507329 */ /* x122481 stalin.sc:14428:507338 */ /* x122476 stalin.sc:14428:507342 */ /* x122475 stalin.sc:14428:507354 */ t56150 = a25272; /* x122474 stalin.sc:14428:507343 */ t56151.tag = STRUCTURE_TYPE24753; t56151.value.structure_type24753 = t56150; if (f13411(t56151)==FALSE_TYPE) goto l8299; /* x122479 stalin.sc:14428:507357 */ /* x122478 stalin.sc:14428:507365 */ t56152 = a25272; /* x122477 stalin.sc:14428:507358 */ t56153.tag = STRUCTURE_TYPE24753; t56153.value.structure_type24753 = t56152; t56128 = f26181(t56153); goto l8300; l8299: /* x122480 stalin.sc:14428:507368 */ t56128.tag = STRUCTURE_TYPE24753; t56128.value.structure_type24753 = a25272; l8300: /* x122473 */ a25274 = t56128; /* x122472 stalin.sc:14429:507375 */ /* x122471 stalin.sc:14434:507527 */ /* x122470 stalin.sc:14431:507400 */ /* x122452 stalin.sc:14431:507404 */ /* x122451 stalin.sc:14431:507413 */ t56135 = a25273; /* x122450 stalin.sc:14431:507405 */ t56136.tag = STRING_TYPE; t56136.value.string_type = t56135; if (f13399(t56136)==FALSE_TYPE) goto l8296; /* x122458 stalin.sc:14432:507422 */ /* x122457 stalin.sc:14432:507439 */ /* x122455 stalin.sc:14432:507451 */ t56148 = a25271; /* x122456 stalin.sc:14432:507453 */ t56149 = a25274; /* x122454 stalin.sc:14432:507440 */ t56146 = f14414(t56148, t56149); /* x122453 stalin.sc:14432:507423 */ t56147 = f13514(t56146); t56131.tag = STRUCTURE_TYPE24753; t56131.value.structure_type24753 = t56147; goto l8297; l8296: /* x122469 stalin.sc:14433:507462 */ /* x122468 stalin.sc:14433:507512 */ /* x122467 stalin.sc:14433:507520 */ t56145 = a25273; /* x122466 stalin.sc:14433:507513 */ t56138 = f13634(t56145); /* x122465 stalin.sc:14433:507477 */ /* x122464 stalin.sc:14433:507494 */ /* x122462 stalin.sc:14433:507506 */ t56143 = a25271; /* x122463 stalin.sc:14433:507508 */ t56144 = a25274; /* x122461 stalin.sc:14433:507495 */ t56142 = f14414(t56143, t56144); /* x122460 stalin.sc:14433:507478 */ t56137 = f13514(t56142); /* x122459 stalin.sc:14433:507463 */ t56141.tag = STRUCTURE_TYPE24753; t56141.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56141.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14433, 507462); out_of_memory_error();} t56141.value.structure_type24753->s0 = t56138; t56141.value.structure_type24753->s1.tag = NULL_TYPE; a42093 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42093==NULL) {backtrace("stalin.sc", 14433, 507462); out_of_memory_error();} a42093->s0.tag = STRUCTURE_TYPE24753; a42093->s0.value.structure_type24753 = t56137; a42093->s1 = t56141; /* x302484 stalin.sc:14386:505956 */ /* x302483 stalin.sc:14386:505972 */ t56139 = a42093; /* x302482 stalin.sc:14386:505957 */ t56140.tag = STRUCTURE_TYPE24753; t56140.value.structure_type24753 = t56139; t56131 = f13474(t56140); l8297: /* x122449 stalin.sc:14430:507397 */ t56130 = a25274; /* x122448 stalin.sc:14429:507381 */ t56129 = q199; /* x122447 stalin.sc:14429:507376 */ t56134.tag = STRUCTURE_TYPE24753; t56134.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56134.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14429, 507375); out_of_memory_error();} t56134.value.structure_type24753->s0.tag = FALSE_TYPE; t56134.value.structure_type24753->s1.tag = NULL_TYPE; t56133.tag = STRUCTURE_TYPE24753; t56133.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56133.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14429, 507375); out_of_memory_error();} t56133.value.structure_type24753->s0 = t56131; t56133.value.structure_type24753->s1 = t56134; t56132.tag = STRUCTURE_TYPE24753; t56132.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56132.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14429, 507375); out_of_memory_error();} t56132.value.structure_type24753->s0 = t56130; t56132.value.structure_type24753->s1 = t56133; a35188 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35188==NULL) {backtrace("stalin.sc", 14429, 507375); out_of_memory_error();} a35188->s0.tag = EXTERNAL_SYMBOL_TYPE; a35188->s0.value.external_symbol_type = t56129; a35188->s1 = t56132; /* x272383 */ return a35188;} /* STAR-BEFORE[13516] */ struct structure_type24753 *f13516(struct w49 a25270) {struct structure_type24753 *a35182; /* OBJS */ char *t56154; struct w49 t56155; struct w49 t56156; /* x122444 stalin.sc:14423:507250 */ /* x122443 stalin.sc:14423:507260 */ t56155 = a25270; /* x122442 stalin.sc:14423:507256 */ t56154 = "*"; /* x122441 stalin.sc:14423:507251 */ t56156.tag = STRUCTURE_TYPE24753; t56156.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56156.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14423, 507250); out_of_memory_error();} t56156.value.structure_type24753->s0 = t56155; t56156.value.structure_type24753->s1.tag = NULL_TYPE; a35182 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35182==NULL) {backtrace("stalin.sc", 14423, 507250); out_of_memory_error();} a35182->s0.tag = STRING_TYPE; a35182->s0.value.string_type = t56154; a35182->s1 = t56156; /* x272371 */ return a35182;} /* COLON-AFTER[13515] */ struct structure_type24753 *f13515(struct w49 a25269) {struct structure_type24753 *a35177; /* OBJS */ struct w49 t56157; char *t56158; struct w49 t56159; /* x122438 stalin.sc:14421:507211 */ /* x122437 stalin.sc:14421:507219 */ t56158 = ":"; /* x122436 stalin.sc:14421:507217 */ t56157 = a25269; /* x122435 stalin.sc:14421:507212 */ t56159.tag = STRUCTURE_TYPE24753; t56159.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56159.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14421, 507211); out_of_memory_error();} t56159.value.structure_type24753->s0.tag = STRING_TYPE; t56159.value.structure_type24753->s0.value.string_type = t56158; t56159.value.structure_type24753->s1.tag = NULL_TYPE; a35177 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35177==NULL) {backtrace("stalin.sc", 14421, 507211); out_of_memory_error();} a35177->s0 = t56157; a35177->s1 = t56159; /* x272361 */ return a35177;} /* SEMICOLON-AFTER[13514] */ struct structure_type24753 *f13514(struct w49 a25268) {struct structure_type24753 *a35227; /* OBJS */ struct w49 t56160; char *t56161; struct w49 t56162; struct w49 t56163; /* x122432 stalin.sc:14419:507155 */ /* x122431 stalin.sc:14419:507180 */ t56161 = ";"; /* x122430 stalin.sc:14419:507161 */ /* x122429 stalin.sc:14419:507177 */ t56163 = a25268; /* x122428 stalin.sc:14419:507162 */ t56160 = f13508(t56163); /* x122427 stalin.sc:14419:507156 */ t56162.tag = STRUCTURE_TYPE24753; t56162.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56162.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14419, 507155); out_of_memory_error();} t56162.value.structure_type24753->s0.tag = STRING_TYPE; t56162.value.structure_type24753->s0.value.string_type = t56161; t56162.value.structure_type24753->s1.tag = NULL_TYPE; a35227 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35227==NULL) {backtrace("stalin.sc", 14419, 507155); out_of_memory_error();} a35227->s0 = t56160; a35227->s1 = t56162; /* x272461 */ return a35227;} /* PARENTHESES-AROUND[13513] */ struct structure_type24753 *f13513(struct w49 a25267) {struct structure_type24753 *a35223; /* OBJS */ char *t56164; struct w49 t56165; char *t56166; struct w49 t56167; struct w49 t56168; struct w49 t56169; /* x122424 stalin.sc:14417:507091 */ /* x122423 stalin.sc:14417:507120 */ t56166 = ")"; /* x122422 stalin.sc:14417:507101 */ /* x122421 stalin.sc:14417:507117 */ t56169 = a25267; /* x122420 stalin.sc:14417:507102 */ t56165 = f13508(t56169); /* x122419 stalin.sc:14417:507097 */ t56164 = "("; /* x122418 stalin.sc:14417:507092 */ t56168.tag = STRUCTURE_TYPE24753; t56168.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56168.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14417, 507091); out_of_memory_error();} t56168.value.structure_type24753->s0.tag = STRING_TYPE; t56168.value.structure_type24753->s0.value.string_type = t56166; t56168.value.structure_type24753->s1.tag = NULL_TYPE; t56167.tag = STRUCTURE_TYPE24753; t56167.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56167.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14417, 507091); out_of_memory_error();} t56167.value.structure_type24753->s0 = t56165; t56167.value.structure_type24753->s1 = t56168; a35223 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35223==NULL) {backtrace("stalin.sc", 14417, 507091); out_of_memory_error();} a35223->s0.tag = STRING_TYPE; a35223->s0.value.string_type = t56164; a35223->s1 = t56167; /* x272453 */ return a35223;} /* UNPARENTHESIZE[13508] */ struct w49 f13508(struct w49 a25266) {struct w49 r13508; struct w49 t56170; struct w49 t56171; struct w49 t56172; struct w49 t56173; struct w49 t56174; struct w49 t56175; struct structure_type24753 *t56176; struct w49 t56177; struct w49 t56178; struct w49 t56179; struct structure_type24753 *t56180; struct w49 t56181; struct w49 t56182; h13508: /* x122415 stalin.sc:14412:506854 */ /* x122378 stalin.sc:14412:506861 */ /* x122377 stalin.sc:14412:506875 */ t56170 = a25266; /* x122376 stalin.sc:14412:506862 */ if (f13415(t56170)==FALSE_TYPE) goto l8302; /* x122387 */ /* x122386 */ /* x122385 stalin.sc:14412:506878 */ /* x122384 stalin.sc:14412:506891 */ /* x122383 stalin.sc:14412:506907 */ /* x122382 stalin.sc:14412:506915 */ t56182 = a25266; /* x122381 stalin.sc:14412:506908 */ t56181 = f26181(t56182); /* x122380 stalin.sc:14412:506892 */ t56179 = f13508(t56181); /* x122379 stalin.sc:14412:506879 */ t56180 = f13473(t56179); r13508.tag = STRUCTURE_TYPE24753; r13508.value.structure_type24753 = t56180; return r13508; l8302: /* x122414 */ /* x122390 stalin.sc:14413:506929 */ /* x122389 stalin.sc:14413:506941 */ t56171 = a25266; /* x122388 stalin.sc:14413:506930 */ if (f13411(t56171)==FALSE_TYPE) goto l8304; /* x122399 */ /* x122398 */ /* x122397 stalin.sc:14413:506944 */ /* x122396 stalin.sc:14413:506955 */ /* x122395 stalin.sc:14413:506971 */ /* x122394 stalin.sc:14413:506979 */ t56178 = a25266; /* x122393 stalin.sc:14413:506972 */ t56177 = f26181(t56178); /* x122392 stalin.sc:14413:506956 */ t56175 = f13508(t56177); /* x122391 stalin.sc:14413:506945 */ t56176 = f13472(t56175); r13508.tag = STRUCTURE_TYPE24753; r13508.value.structure_type24753 = t56176; return r13508; l8304: /* x122413 */ /* x122402 stalin.sc:14414:506993 */ /* x122401 stalin.sc:14414:507009 */ t56172 = a25266; /* x122400 stalin.sc:14414:506994 */ if (f13416(t56172)==FALSE_TYPE) goto l8306; /* x122409 */ /* x122408 */ /* x122407 stalin.sc:14414:507012 */ /* x122406 stalin.sc:14414:507028 */ /* x122405 stalin.sc:14414:507036 */ t56174 = a25266; /* x122404 stalin.sc:14414:507029 */ t56173 = f26181(t56174); /* x122403 stalin.sc:14414:507013 */ a25266 = t56173; goto h13508; l8306: /* x122412 */ /* x122411 */ /* x122410 stalin.sc:14415:507054 */ return a25266;} /* C:ENDS-IN-COLON?[13504] */ unsigned f13504(struct w49 a25263) {struct w49 t56183; struct w49 t56184; struct structure_type24753 *t56185; struct w49 t56186; struct structure_type24753 *t56187; struct w49 t56188; struct structure_type24753 *t56189; struct w49 t56190; char *t56191; char *t56192; struct w49 t56193; struct w49 t56194; /* x122366 stalin.sc:14404:506567 */ /* x122366 stalin.sc:14404:506567 */ /* x122365 stalin.sc:14404:506571 */ /* x122341 stalin.sc:14404:506576 */ /* x122340 stalin.sc:14404:506583 */ t56183 = a25263; /* x269067 stalin.sc:14404:506577 */ if (!((t56183.tag)==STRUCTURE_TYPE24753)) goto l8310; /* x122363 */ /* x122362 stalin.sc:14405:506594 */ /* x122361 stalin.sc:14405:506612 */ /* x122360 stalin.sc:14405:506617 */ t56185 = a25263.value.structure_type24753; /* x269064 stalin.sc:14405:506613 */ t56184 = t56185->s1; /* x122358 stalin.sc:14405:506595 */ if (!(f13504(t56184)==FALSE_TYPE)) goto l8307; /* x122355 */ /* x122348 stalin.sc:14406:506634 */ /* x122347 stalin.sc:14406:506652 */ /* x122346 stalin.sc:14406:506657 */ t56187 = a25263.value.structure_type24753; /* x269066 stalin.sc:14406:506653 */ t56186 = t56187->s0; /* x122344 stalin.sc:14406:506635 */ if (f13504(t56186)==FALSE_TYPE) goto l8310; /* x122353 */ /* x122352 stalin.sc:14406:506670 */ /* x122351 stalin.sc:14406:506675 */ t56189 = a25263.value.structure_type24753; /* x269065 stalin.sc:14406:506671 */ t56188 = t56189->s1; /* x122349 stalin.sc:14406:506662 */ if (!(f13407(t56188)==FALSE_TYPE)) goto l8307; l8310: /* x122336 */ /* x122330 stalin.sc:14407:506693 */ /* x122329 stalin.sc:14407:506702 */ t56190 = a25263; /* x269068 stalin.sc:14407:506694 */ if (!((t56190.tag)==STRING_TYPE)) goto l8308; /* x122334 */ /* x122333 stalin.sc:14407:506717 */ t56192 = ":"; /* x122332 stalin.sc:14407:506715 */ t56191 = a25263.value.string_type; /* x122331 stalin.sc:14407:506706 */ t56193.tag = STRING_TYPE; t56193.value.string_type = t56191; t56194.tag = STRING_TYPE; t56194.value.string_type = t56192; if (f27434(t56193, t56194)==FALSE_TYPE) goto l8308; l8307: return TRUE_TYPE; l8308: return FALSE_TYPE;} /* BRACES-AROUND[13501] */ struct structure_type24753 *f13501(struct w49 a25260) {struct structure_type24753 *a35226; /* OBJS */ char *t56195; struct w49 t56196; char *t56197; struct w49 t56198; struct w49 t56199; struct w49 t56200; struct w49 t56201; struct structure_type24753 *t56202; /* x122373 */ /* x122372 */ /* x122371 */ /* x122370 */ /* x122369 */ /* x122368 */ /* x122367 */ /* x122325 */ /* x122324 stalin.sc:14409:506761 */ /* x122323 stalin.sc:14409:506819 */ t56197 = "}"; /* x122322 stalin.sc:14409:506771 */ /* x122317 stalin.sc:14409:506775 */ /* x122316 stalin.sc:14409:506793 */ t56200 = a25260; /* x122315 stalin.sc:14409:506776 */ if (f13504(t56200)==FALSE_TYPE) goto l8316; /* x122320 stalin.sc:14409:506796 */ /* x122319 stalin.sc:14409:506813 */ t56201 = a25260; /* x122318 stalin.sc:14409:506797 */ t56202 = f13514(t56201); t56196.tag = STRUCTURE_TYPE24753; t56196.value.structure_type24753 = t56202; goto l8317; l8316: /* x122321 stalin.sc:14409:506816 */ t56196 = a25260; l8317: /* x122314 stalin.sc:14409:506767 */ t56195 = "{"; /* x122313 stalin.sc:14409:506762 */ t56199.tag = STRUCTURE_TYPE24753; t56199.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56199.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14409, 506761); out_of_memory_error();} t56199.value.structure_type24753->s0.tag = STRING_TYPE; t56199.value.structure_type24753->s0.value.string_type = t56197; t56199.value.structure_type24753->s1.tag = NULL_TYPE; t56198.tag = STRUCTURE_TYPE24753; t56198.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56198.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14409, 506761); out_of_memory_error();} t56198.value.structure_type24753->s0 = t56196; t56198.value.structure_type24753->s1 = t56199; a35226 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35226==NULL) {backtrace("stalin.sc", 14409, 506761); out_of_memory_error();} a35226->s0.tag = STRING_TYPE; a35226->s0.value.string_type = t56195; a35226->s1 = t56198; /* x272459 */ return a35226;} /* NEWLINES-BETWEEN[13492] */ struct w49 f13492(struct w49 a25254) {struct w49 r13492; struct w49 a25257; /* C1 */ struct w49 a25258; /* C2 */ struct structure_type24753 *a35234; /* OBJS */ struct w16638 a35596; /* PAIR */ struct w16638 a36176; /* PAIR */ struct w49 t56203; struct w49 t56204; struct w49 t56205; struct w49 t56206; struct w49 t56207; struct w49 t56208; char t56209; struct w49 t56210; struct w49 t56211; struct w49 t56212; struct w16638 t56213; struct w16638 t56214; struct w49 t56215; struct w16638 t56216; struct w16638 t56217; /* x122305 */ /* x122304 */ /* x122303 */ /* x122302 */ /* x122301 */ /* x122300 */ /* x122299 */ /* x122277 */ /* x122276 stalin.sc:14398:506375 */ /* x122264 stalin.sc:14398:506379 */ /* x122263 stalin.sc:14398:506386 */ t56203 = a25254; /* x269069 stalin.sc:14398:506380 */ if (!((t56203.tag)==NULL_TYPE)) goto l8319; /* x122265 stalin.sc:14398:506390 */ r13492.tag = STRING_TYPE; r13492.value.string_type = ""; return r13492; l8319: /* x122275 stalin.sc:14398:506393 */ /* x122269 stalin.sc:14398:506410 */ /* x122268 stalin.sc:14398:506417 */ t56213 = *((struct w16638 *)(&a25254)); /* x122267 stalin.sc:14398:506411 */ a36176 = t56213; /* x276061 */ /* x276060 */ t56214 = a36176; /* x276059 */ if (!((t56214.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30325]"); structure_ref_error();} t56204 = t56214.value.structure_type24753->s0; /* x122274 stalin.sc:14398:506421 */ /* x122273 stalin.sc:14398:506439 */ /* x122272 stalin.sc:14398:506445 */ t56216 = *((struct w16638 *)(&a25254)); /* x122271 stalin.sc:14398:506440 */ a35596 = t56216; /* x273741 */ /* x273740 */ t56217 = a35596; /* x273739 */ if (!((t56217.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29745]"); structure_ref_error();} t56215 = t56217.value.structure_type24753->s1; /* x122270 stalin.sc:14398:506422 */ t56205 = f13492(t56215); /* x122266 stalin.sc:14398:506394 */ a25257 = t56204; a25258 = t56205; /* x122298 stalin.sc:14397:506300 */ /* x122280 stalin.sc:14397:506307 */ /* x122279 stalin.sc:14397:506316 */ t56206 = a25257; /* x122278 stalin.sc:14397:506308 */ if (f13399(t56206)==FALSE_TYPE) goto l8321; /* x122283 */ /* x122282 */ /* x122281 stalin.sc:14397:506320 */ return a25258; l8321: /* x122297 */ /* x122286 stalin.sc:14397:506325 */ /* x122285 stalin.sc:14397:506334 */ t56207 = a25258; /* x122284 stalin.sc:14397:506326 */ if (f13399(t56207)==FALSE_TYPE) goto l8323; /* x122289 */ /* x122288 */ /* x122287 stalin.sc:14397:506338 */ return a25257; l8323: /* x122296 */ /* x122295 */ /* x122294 stalin.sc:14397:506348 */ /* x122293 stalin.sc:14397:506367 */ t56210 = a25258; /* x122292 stalin.sc:14397:506357 */ t56209 = '\n'; /* x122291 stalin.sc:14397:506354 */ t56208 = a25257; /* x122290 stalin.sc:14397:506349 */ t56212.tag = STRUCTURE_TYPE24753; t56212.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56212.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14397, 506348); out_of_memory_error();} t56212.value.structure_type24753->s0 = t56210; t56212.value.structure_type24753->s1.tag = NULL_TYPE; t56211.tag = STRUCTURE_TYPE24753; t56211.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56211.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14397, 506348); out_of_memory_error();} t56211.value.structure_type24753->s0.tag = ((unsigned)((unsigned char)t56209))<<2; t56211.value.structure_type24753->s1 = t56212; a35234 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35234==NULL) {backtrace("stalin.sc", 14397, 506348); out_of_memory_error();} a35234->s0 = t56208; a35234->s1 = t56211; /* x272475 */ r13492.tag = STRUCTURE_TYPE24753; r13492.value.structure_type24753 = a35234; return r13492;} /* COMMAS-BETWEEN[13483] */ struct w49 f13483(struct w49 a25248) {struct w49 r13483; struct w49 a25251; /* C1 */ struct w49 a25252; /* C2 */ struct structure_type24753 *a35230; /* OBJS */ struct w16638 a35594; /* PAIR */ struct w16638 a36174; /* PAIR */ struct w49 t56218; struct w49 t56219; struct w49 t56220; struct w49 t56221; struct w49 t56222; struct w49 t56223; char *t56224; struct w49 t56225; struct w49 t56226; struct w49 t56227; struct w16638 t56228; struct w16638 t56229; struct w49 t56230; struct w16638 t56231; struct w16638 t56232; /* x122254 */ /* x122253 */ /* x122252 */ /* x122251 */ /* x122250 */ /* x122249 */ /* x122248 */ /* x122226 */ /* x122225 stalin.sc:14391:506109 */ /* x122213 stalin.sc:14391:506113 */ /* x122212 stalin.sc:14391:506120 */ t56218 = a25248; /* x269070 stalin.sc:14391:506114 */ if (!((t56218.tag)==NULL_TYPE)) goto l8325; /* x122214 stalin.sc:14391:506124 */ r13483.tag = STRING_TYPE; r13483.value.string_type = ""; return r13483; l8325: /* x122224 stalin.sc:14391:506127 */ /* x122218 stalin.sc:14391:506142 */ /* x122217 stalin.sc:14391:506149 */ t56228 = *((struct w16638 *)(&a25248)); /* x122216 stalin.sc:14391:506143 */ a36174 = t56228; /* x276053 */ /* x276052 */ t56229 = a36174; /* x276051 */ if (!((t56229.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30323]"); structure_ref_error();} t56219 = t56229.value.structure_type24753->s0; /* x122223 stalin.sc:14391:506153 */ /* x122222 stalin.sc:14391:506169 */ /* x122221 stalin.sc:14391:506175 */ t56231 = *((struct w16638 *)(&a25248)); /* x122220 stalin.sc:14391:506170 */ a35594 = t56231; /* x273733 */ /* x273732 */ t56232 = a35594; /* x273731 */ if (!((t56232.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29743]"); structure_ref_error();} t56230 = t56232.value.structure_type24753->s1; /* x122219 stalin.sc:14391:506154 */ t56220 = f13483(t56230); /* x122215 stalin.sc:14391:506128 */ a25251 = t56219; a25252 = t56220; /* x122247 stalin.sc:14390:506039 */ /* x122229 stalin.sc:14390:506046 */ /* x122228 stalin.sc:14390:506055 */ t56221 = a25251; /* x122227 stalin.sc:14390:506047 */ if (f13399(t56221)==FALSE_TYPE) goto l8327; /* x122232 */ /* x122231 */ /* x122230 stalin.sc:14390:506059 */ return a25252; l8327: /* x122246 */ /* x122235 stalin.sc:14390:506064 */ /* x122234 stalin.sc:14390:506073 */ t56222 = a25252; /* x122233 stalin.sc:14390:506065 */ if (f13399(t56222)==FALSE_TYPE) goto l8329; /* x122238 */ /* x122237 */ /* x122236 stalin.sc:14390:506077 */ return a25251; l8329: /* x122245 */ /* x122244 */ /* x122243 stalin.sc:14390:506087 */ /* x122242 stalin.sc:14390:506101 */ t56225 = a25252; /* x122241 stalin.sc:14390:506096 */ t56224 = ", "; /* x122240 stalin.sc:14390:506093 */ t56223 = a25251; /* x122239 stalin.sc:14390:506088 */ t56227.tag = STRUCTURE_TYPE24753; t56227.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56227.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14390, 506087); out_of_memory_error();} t56227.value.structure_type24753->s0 = t56225; t56227.value.structure_type24753->s1.tag = NULL_TYPE; t56226.tag = STRUCTURE_TYPE24753; t56226.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56226.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14390, 506087); out_of_memory_error();} t56226.value.structure_type24753->s0.tag = STRING_TYPE; t56226.value.structure_type24753->s0.value.string_type = t56224; t56226.value.structure_type24753->s1 = t56227; a35230 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35230==NULL) {backtrace("stalin.sc", 14390, 506087); out_of_memory_error();} a35230->s0 = t56223; a35230->s1 = t56226; /* x272467 */ r13483.tag = STRUCTURE_TYPE24753; r13483.value.structure_type24753 = a35230; return r13483;} /* SPACES-BETWEEN[13474] */ struct w49 f13474(struct w49 a25242) {struct w49 r13474; struct w49 a25245; /* C1 */ struct w49 a25246; /* C2 */ struct structure_type24753 *a35224; /* OBJS */ struct w16638 a35592; /* PAIR */ struct w16638 a36165; /* PAIR */ struct w49 t56233; struct w49 t56234; struct w49 t56235; struct w49 t56236; struct w49 t56237; struct w49 t56238; char *t56239; struct w49 t56240; struct w49 t56241; struct w49 t56242; struct w16638 t56243; struct w16638 t56244; struct w49 t56245; struct w16638 t56246; struct w16638 t56247; /* x122203 */ /* x122202 */ /* x122201 */ /* x122200 */ /* x122199 */ /* x122198 */ /* x122197 */ /* x122175 */ /* x122174 stalin.sc:14384:505852 */ /* x122162 stalin.sc:14384:505856 */ /* x122161 stalin.sc:14384:505863 */ t56233 = a25242; /* x269071 stalin.sc:14384:505857 */ if (!((t56233.tag)==NULL_TYPE)) goto l8331; /* x122163 stalin.sc:14384:505867 */ r13474.tag = STRING_TYPE; r13474.value.string_type = ""; return r13474; l8331: /* x122173 stalin.sc:14384:505870 */ /* x122167 stalin.sc:14384:505885 */ /* x122166 stalin.sc:14384:505892 */ t56243 = *((struct w16638 *)(&a25242)); /* x122165 stalin.sc:14384:505886 */ a36165 = t56243; /* x276017 */ /* x276016 */ t56244 = a36165; /* x276015 */ if (!((t56244.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30314]"); structure_ref_error();} t56234 = t56244.value.structure_type24753->s0; /* x122172 stalin.sc:14384:505896 */ /* x122171 stalin.sc:14384:505912 */ /* x122170 stalin.sc:14384:505918 */ t56246 = *((struct w16638 *)(&a25242)); /* x122169 stalin.sc:14384:505913 */ a35592 = t56246; /* x273725 */ /* x273724 */ t56247 = a35592; /* x273723 */ if (!((t56247.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29741]"); structure_ref_error();} t56245 = t56247.value.structure_type24753->s1; /* x122168 stalin.sc:14384:505897 */ t56235 = f13474(t56245); /* x122164 stalin.sc:14384:505871 */ a25245 = t56234; a25246 = t56235; /* x122196 stalin.sc:14383:505783 */ /* x122178 stalin.sc:14383:505790 */ /* x122177 stalin.sc:14383:505799 */ t56236 = a25245; /* x122176 stalin.sc:14383:505791 */ if (f13399(t56236)==FALSE_TYPE) goto l8333; /* x122181 */ /* x122180 */ /* x122179 stalin.sc:14383:505803 */ return a25246; l8333: /* x122195 */ /* x122184 stalin.sc:14383:505808 */ /* x122183 stalin.sc:14383:505817 */ t56237 = a25246; /* x122182 stalin.sc:14383:505809 */ if (f13399(t56237)==FALSE_TYPE) goto l8335; /* x122187 */ /* x122186 */ /* x122185 stalin.sc:14383:505821 */ return a25245; l8335: /* x122194 */ /* x122193 */ /* x122192 stalin.sc:14383:505831 */ /* x122191 stalin.sc:14383:505844 */ t56240 = a25246; /* x122190 stalin.sc:14383:505840 */ t56239 = " "; /* x122189 stalin.sc:14383:505837 */ t56238 = a25245; /* x122188 stalin.sc:14383:505832 */ t56242.tag = STRUCTURE_TYPE24753; t56242.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56242.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14383, 505831); out_of_memory_error();} t56242.value.structure_type24753->s0 = t56240; t56242.value.structure_type24753->s1.tag = NULL_TYPE; t56241.tag = STRUCTURE_TYPE24753; t56241.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56241.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14383, 505831); out_of_memory_error();} t56241.value.structure_type24753->s0.tag = STRING_TYPE; t56241.value.structure_type24753->s0.value.string_type = t56239; t56241.value.structure_type24753->s1 = t56242; a35224 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35224==NULL) {backtrace("stalin.sc", 14383, 505831); out_of_memory_error();} a35224->s0 = t56238; a35224->s1 = t56241; /* x272455 */ r13474.tag = STRUCTURE_TYPE24753; r13474.value.structure_type24753 = a35224; return r13474;} /* C:NO-RETURN[13473] */ struct structure_type24753 *f13473(struct w49 a25241) {struct structure_type24753 *a35229; /* OBJS */ char *t56248; struct w49 t56249; struct w49 t56250; /* x122157 stalin.sc:14379:505698 */ /* x122156 stalin.sc:14379:505717 */ t56249 = a25241; /* x122155 stalin.sc:14379:505704 */ t56248 = q201; /* x122154 stalin.sc:14379:505699 */ t56250.tag = STRUCTURE_TYPE24753; t56250.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56250.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14379, 505698); out_of_memory_error();} t56250.value.structure_type24753->s0 = t56249; t56250.value.structure_type24753->s1.tag = NULL_TYPE; a35229 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35229==NULL) {backtrace("stalin.sc", 14379, 505698); out_of_memory_error();} a35229->s0.tag = EXTERNAL_SYMBOL_TYPE; a35229->s0.value.external_symbol_type = t56248; a35229->s1 = t56250; /* x272465 */ return a35229;} /* C:PROTECT[13472] */ struct structure_type24753 *f13472(struct w49 a25240) {struct structure_type24753 *a35228; /* OBJS */ char *t56251; struct w49 t56252; struct w49 t56253; /* x122151 stalin.sc:14377:505652 */ /* x122150 stalin.sc:14377:505669 */ t56252 = a25240; /* x122149 stalin.sc:14377:505658 */ t56251 = q200; /* x122148 stalin.sc:14377:505653 */ t56253.tag = STRUCTURE_TYPE24753; t56253.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56253.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14377, 505652); out_of_memory_error();} t56253.value.structure_type24753->s0 = t56252; t56253.value.structure_type24753->s1.tag = NULL_TYPE; a35228 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35228==NULL) {backtrace("stalin.sc", 14377, 505652); out_of_memory_error();} a35228->s0.tag = EXTERNAL_SYMBOL_TYPE; a35228->s0.value.external_symbol_type = t56251; a35228->s1 = t56253; /* x272463 */ return a35228;} /* OUTSIDE-BODY[13469] */ void f13469(struct structure_type24753 *a25239) {struct structure_type24753 *t56254; struct w49 t56255; struct structure_type24753 *t56256; struct structure_type24753 *t56257; /* x122145 stalin.sc:14375:505561 */ /* x122135 stalin.sc:14375:505569 */ /* x122134 stalin.sc:14375:505578 */ t56254 = a25239; /* x122133 stalin.sc:14375:505570 */ t56255.tag = STRUCTURE_TYPE24753; t56255.value.structure_type24753 = t56254; if (f13399(t56255)==FALSE_TYPE) goto l8337; /* x122137 */ /* x122136 */ return; l8337: /* x122144 */ /* x122143 */ /* x122142 stalin.sc:14375:505581 */ /* x122141 stalin.sc:14375:505602 */ /* x122139 stalin.sc:14375:505608 */ t56256 = a25239; /* x122140 stalin.sc:14375:505610 */ t56257 = a1195; /* x269072 stalin.sc:14375:505603 */ a1195 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a1195==NULL) {backtrace("stalin.sc", 14375, 505602); out_of_memory_error();} a1195->s0.tag = STRUCTURE_TYPE24753; a1195->s0.value.structure_type24753 = t56256; /* MOVE: branching squeezed to general */ if (t56257>=((struct structure_type24753 *)VALUE_OFFSET)) {a1195->s1.tag = STRUCTURE_TYPE24753; a1195->s1.value.structure_type24753 = t56257;} else a1195->s1.tag = (unsigned)t56257; return;} /* INSIDE-MAIN[13463] */ void f13463(struct w49 a25237) {struct w49 a35703; /* PAIR */ struct w49 t56258; struct w49 t56259; int t56260; int t56261; struct w49 t56262; struct w49 t56263; struct w49 t56264; struct w49 t56265; char t56266; struct w49 t56267; char t56268; struct w49 t56269; struct w49 t56270; struct structure_type24753 *t56271; struct w49 t56272; struct w49 t56273; struct w49 t56274; struct w49 t56275; struct w49 t56276; h13463: /* x122130 stalin.sc:14363:505177 */ /* x122077 stalin.sc:14363:505185 */ /* x122076 stalin.sc:14363:505194 */ t56258 = a25237; /* x122075 stalin.sc:14363:505186 */ if (f13399(t56258)==FALSE_TYPE) goto l8339; /* x122079 */ /* x122078 */ return; l8339: /* x122129 */ /* x122128 */ /* x122127 stalin.sc:14366:505316 */ /* x122105 stalin.sc:14366:505323 */ /* x122082 stalin.sc:14366:505328 */ /* x122081 stalin.sc:14366:505335 */ t56259 = a25237; /* x122080 stalin.sc:14366:505329 */ if (f26209(t56259)==FALSE_TYPE) goto l8341; /* x122103 */ /* x122088 stalin.sc:14367:505345 */ /* x122086 stalin.sc:14367:505348 */ /* x122085 stalin.sc:14367:505356 */ t56262 = a25237; /* x122084 stalin.sc:14367:505349 */ t56260 = f26227(t56262); /* x122087 stalin.sc:14367:505359 */ t56261 = 3; /* x269075 stalin.sc:14367:505346 */ if (!(t56260==t56261)) goto l8341; /* x122101 */ /* x122093 stalin.sc:14368:505369 */ /* x122092 stalin.sc:14368:505376 */ /* x122091 stalin.sc:14368:505384 */ t56264 = a25237; /* x122090 stalin.sc:14368:505377 */ t56263 = f26181(t56264); /* x269074 stalin.sc:14368:505370 */ if (!((t56263.tag)s0; /* x122112 stalin.sc:14370:505429 */ f13463(t56274); /* x122111 */ /* x122110 stalin.sc:14371:505454 */ /* x122109 stalin.sc:14371:505467 */ /* x122108 stalin.sc:14371:505474 */ t56273 = a25237; /* x122107 stalin.sc:14371:505468 */ t56272 = f26187(t56273); /* x122106 stalin.sc:14371:505455 */ a25237 = t56272; goto h13463; l8341: /* x122126 */ /* x122125 */ /* x122124 stalin.sc:14372:505486 */ /* x122123 stalin.sc:14372:505506 */ /* x122121 stalin.sc:14372:505512 */ t56270 = a25237; /* x122122 stalin.sc:14372:505514 */ t56271 = a1196; /* x269073 stalin.sc:14372:505507 */ a1196 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a1196==NULL) {backtrace("stalin.sc", 14372, 505506); out_of_memory_error();} a1196->s0 = t56270; /* MOVE: branching squeezed to general */ if (t56271>=((struct structure_type24753 *)VALUE_OFFSET)) {a1196->s1.tag = STRUCTURE_TYPE24753; a1196->s1.value.structure_type24753 = t56271;} else a1196->s1.tag = (unsigned)t56271; return;} /* OUTSIDE-MAIN[13460] */ void f13460(struct structure_type24753 *a25236) {struct structure_type24753 *t56277; struct w49 t56278; struct structure_type24753 *t56279; struct structure_type24753 *t56280; /* x122072 stalin.sc:14360:505083 */ /* x122062 stalin.sc:14360:505091 */ /* x122061 stalin.sc:14360:505100 */ t56277 = a25236; /* x122060 stalin.sc:14360:505092 */ t56278.tag = STRUCTURE_TYPE24753; t56278.value.structure_type24753 = t56277; if (f13399(t56278)==FALSE_TYPE) goto l8346; /* x122064 */ /* x122063 */ return; l8346: /* x122071 */ /* x122070 */ /* x122069 stalin.sc:14360:505103 */ /* x122068 stalin.sc:14360:505124 */ /* x122066 stalin.sc:14360:505130 */ t56279 = a25236; /* x122067 stalin.sc:14360:505132 */ t56280 = a1197; /* x269076 stalin.sc:14360:505125 */ a1197 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a1197==NULL) {backtrace("stalin.sc", 14360, 505124); out_of_memory_error();} a1197->s0.tag = STRUCTURE_TYPE24753; a1197->s0.value.structure_type24753 = t56279; /* MOVE: branching squeezed to general */ if (t56280>=((struct structure_type24753 *)VALUE_OFFSET)) {a1197->s1.tag = STRUCTURE_TYPE24753; a1197->s1.value.structure_type24753 = t56280;} else a1197->s1.tag = (unsigned)t56280; return;} /* C:LABEL?[13457] */ unsigned f13457(struct w49 a25233) {struct w49 a35841; /* PAIR */ struct w49 a35842; /* PAIR */ struct w49 a35843; /* PAIR */ struct w49 a35844; /* PAIR */ struct w49 a35845; /* PAIR */ struct w49 a35846; /* PAIR */ struct w49 a35847; /* PAIR */ struct w49 a35848; /* PAIR */ struct w49 a35849; /* PAIR */ struct w49 a35850; /* PAIR */ struct w49 a35851; /* PAIR */ struct w49 t56281; int t56282; int t56283; struct w49 t56284; struct w49 t56285; struct w49 t56286; struct w49 t56287; int t56288; int t56289; struct w49 t56290; struct w49 t56291; struct w49 t56292; struct w49 t56293; struct w49 t56294; struct w49 t56295; struct w49 t56296; struct w49 t56297; struct w49 t56298; char *t56299; struct w49 t56300; struct w49 t56301; struct w49 t56302; struct w49 t56303; struct w49 t56304; struct w49 t56305; struct w49 t56306; char *t56307; struct w49 t56308; struct w49 t56309; struct w49 t56310; struct w49 t56311; struct w49 t56312; struct w49 t56313; struct w49 t56314; char *t56315; struct w49 t56316; struct w49 t56317; struct w49 t56318; struct w49 t56319; struct w49 t56320; struct w49 t56321; struct w49 t56322; struct w49 t56323; struct w49 t56324; struct w49 t56325; struct w49 t56326; struct w49 t56327; struct w49 t56328; char *t56329; struct w49 t56330; struct w49 t56331; struct w49 t56332; /* x122057 stalin.sc:14345:504682 */ /* x122057 stalin.sc:14345:504682 */ /* x121963 stalin.sc:14345:504687 */ /* x121962 stalin.sc:14345:504694 */ t56281 = a25233; /* x121961 stalin.sc:14345:504688 */ if (f26209(t56281)==FALSE_TYPE) goto l8348; /* x122055 */ /* x121969 stalin.sc:14346:504703 */ /* x121967 stalin.sc:14346:504706 */ /* x121966 stalin.sc:14346:504714 */ t56284 = a25233; /* x121965 stalin.sc:14346:504707 */ t56282 = f26227(t56284); /* x121968 stalin.sc:14346:504717 */ t56283 = 2; /* x269081 stalin.sc:14346:504704 */ if (!(t56282==t56283)) goto l8348; /* x122053 */ /* x121974 stalin.sc:14347:504726 */ /* x121973 stalin.sc:14347:504733 */ /* x121972 stalin.sc:14347:504740 */ t56286 = a25233; /* x121971 stalin.sc:14347:504734 */ a35851 = t56286; /* x274761 */ /* x274760 */ t56287 = a35851; /* x274759 */ if (!((t56287.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30000]"); structure_ref_error();} t56285 = t56287.value.structure_type24753->s0; /* x121970 stalin.sc:14347:504727 */ if (f26209(t56285)==FALSE_TYPE) goto l8348; /* x122051 */ /* x121982 stalin.sc:14348:504750 */ /* x121980 stalin.sc:14348:504753 */ /* x121979 stalin.sc:14348:504761 */ /* x121978 stalin.sc:14348:504768 */ t56291 = a25233; /* x121977 stalin.sc:14348:504762 */ a35850 = t56291; /* x274757 */ /* x274756 */ t56292 = a35850; /* x274755 */ if (!((t56292.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29999]"); structure_ref_error();} t56290 = t56292.value.structure_type24753->s0; /* x121976 stalin.sc:14348:504754 */ t56288 = f26227(t56290); /* x121981 stalin.sc:14348:504772 */ t56289 = 2; /* x269080 stalin.sc:14348:504751 */ if (!(t56288==t56289)) goto l8348; /* x122049 */ /* x121989 stalin.sc:14349:504781 */ /* x121988 stalin.sc:14349:504790 */ /* x121987 stalin.sc:14349:504797 */ /* x121986 stalin.sc:14349:504804 */ t56296 = a25233; /* x121985 stalin.sc:14349:504798 */ a35849 = t56296; /* x274753 */ /* x274752 */ t56297 = a35849; /* x274751 */ if (!((t56297.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29998]"); structure_ref_error();} t56294 = t56297.value.structure_type24753->s0; /* x121984 stalin.sc:14349:504791 */ a35848 = t56294; /* x274749 */ /* x274748 */ t56295 = a35848; /* x274747 */ if (!((t56295.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29997]"); structure_ref_error();} t56293 = t56295.value.structure_type24753->s0; /* x269079 stalin.sc:14349:504782 */ if (!((t56293.tag)==STRING_TYPE)) goto l8348; /* x122047 */ /* x122023 stalin.sc:14350:504815 */ /* x122022 stalin.sc:14350:504819 */ /* x122021 stalin.sc:14350:504847 */ t56299 = "h"; /* x122020 stalin.sc:14350:504829 */ /* x122019 stalin.sc:14350:504836 */ /* x122018 stalin.sc:14350:504843 */ t56304 = a25233; /* x122017 stalin.sc:14350:504837 */ a35847 = t56304; /* x274745 */ /* x274744 */ t56305 = a35847; /* x274743 */ if (!((t56305.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29996]"); structure_ref_error();} t56302 = t56305.value.structure_type24753->s0; /* x122016 stalin.sc:14350:504830 */ a35846 = t56302; /* x274741 */ /* x274740 */ t56303 = a35846; /* x274739 */ if (!((t56303.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29995]"); structure_ref_error();} t56298 = t56303.value.structure_type24753->s0; /* x122015 stalin.sc:14350:504820 */ t56300 = t56298; t56301.tag = STRING_TYPE; t56301.value.string_type = t56299; if (!(f27434(t56300, t56301)==FALSE_TYPE)) goto l8355; /* x122012 */ /* x122011 stalin.sc:14351:504855 */ /* x122010 stalin.sc:14351:504883 */ t56307 = "l"; /* x122009 stalin.sc:14351:504865 */ /* x122008 stalin.sc:14351:504872 */ /* x122007 stalin.sc:14351:504879 */ t56312 = a25233; /* x122006 stalin.sc:14351:504873 */ a35845 = t56312; /* x274737 */ /* x274736 */ t56313 = a35845; /* x274735 */ if (!((t56313.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29994]"); structure_ref_error();} t56310 = t56313.value.structure_type24753->s0; /* x122005 stalin.sc:14351:504866 */ a35844 = t56310; /* x274733 */ /* x274732 */ t56311 = a35844; /* x274731 */ if (!((t56311.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29993]"); structure_ref_error();} t56306 = t56311.value.structure_type24753->s0; /* x122004 stalin.sc:14351:504856 */ t56308 = t56306; t56309.tag = STRING_TYPE; t56309.value.string_type = t56307; if (!(f27434(t56308, t56309)==FALSE_TYPE)) goto l8355; /* x122001 */ /* x122000 stalin.sc:14352:504919 */ t56315 = "x"; /* x121999 stalin.sc:14352:504901 */ /* x121998 stalin.sc:14352:504908 */ /* x121997 stalin.sc:14352:504915 */ t56320 = a25233; /* x121996 stalin.sc:14352:504909 */ a35843 = t56320; /* x274729 */ /* x274728 */ t56321 = a35843; /* x274727 */ if (!((t56321.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29992]"); structure_ref_error();} t56318 = t56321.value.structure_type24753->s0; /* x121995 stalin.sc:14352:504902 */ a35842 = t56318; /* x274725 */ /* x274724 */ t56319 = a35842; /* x274723 */ if (!((t56319.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29991]"); structure_ref_error();} t56314 = t56319.value.structure_type24753->s0; /* x121994 stalin.sc:14352:504892 */ t56316 = t56314; t56317.tag = STRING_TYPE; t56317.value.string_type = t56315; if (f27434(t56316, t56317)==FALSE_TYPE) goto l8348; l8355: /* x122045 */ /* x122030 stalin.sc:14353:504931 */ /* x122029 stalin.sc:14353:504940 */ /* x122028 stalin.sc:14353:504948 */ /* x122027 stalin.sc:14353:504955 */ t56324 = a25233; /* x122026 stalin.sc:14353:504949 */ a35841 = t56324; /* x274721 */ /* x274720 */ t56325 = a35841; /* x274719 */ if (!((t56325.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29990]"); structure_ref_error();} t56323 = t56325.value.structure_type24753->s0; /* x122025 stalin.sc:14353:504941 */ t56322 = f26181(t56323); /* x269078 stalin.sc:14353:504932 */ if (!((t56322.tag)==STRING_TYPE)) goto l8348; /* x122043 */ /* x122035 stalin.sc:14354:504966 */ /* x122034 stalin.sc:14354:504975 */ /* x122033 stalin.sc:14354:504983 */ t56327 = a25233; /* x122032 stalin.sc:14354:504976 */ t56326 = f26181(t56327); /* x269077 stalin.sc:14354:504967 */ if (!((t56326.tag)==STRING_TYPE)) goto l8348; /* x122041 */ /* x122040 stalin.sc:14355:505014 */ t56329 = ":"; /* x122039 stalin.sc:14355:505003 */ /* x122038 stalin.sc:14355:505011 */ t56332 = a25233; /* x122037 stalin.sc:14355:505004 */ t56328 = f26181(t56332); /* x122036 stalin.sc:14355:504994 */ t56330 = t56328; t56331.tag = STRING_TYPE; t56331.value.string_type = t56329; if (f27434(t56330, t56331)==FALSE_TYPE) goto l8348; return TRUE_TYPE; l8348: return FALSE_TYPE;} /* C:ASSIGNMENT-TO-TEMPORARY?[13455] */ unsigned f13455(struct w49 a25231) {struct w49 a35817; /* PAIR */ struct w49 a35818; /* PAIR */ struct w49 t56333; struct w49 t56334; struct w49 t56335; struct w49 t56336; struct w49 t56337; struct w49 t56338; struct w49 t56339; /* x121927 stalin.sc:14337:504406 */ /* x121927 stalin.sc:14337:504406 */ /* x121916 stalin.sc:14337:504411 */ /* x121915 stalin.sc:14337:504426 */ t56333 = a25231; /* x121914 stalin.sc:14337:504412 */ if (f13450(t56333)==FALSE_TYPE) goto l8361; /* x121925 */ /* x121924 stalin.sc:14337:504435 */ /* x121923 stalin.sc:14337:504442 */ /* x121922 stalin.sc:14337:504450 */ /* x121921 stalin.sc:14337:504457 */ t56338 = a25231; /* x121920 stalin.sc:14337:504451 */ a35818 = t56338; /* x274629 */ /* x274628 */ t56339 = a35818; /* x274627 */ if (!((t56339.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29967]"); structure_ref_error();} t56337 = t56339.value.structure_type24753->s0; /* x121919 stalin.sc:14337:504443 */ t56335 = f26181(t56337); /* x121918 stalin.sc:14337:504436 */ a35817 = t56335; /* x274625 */ /* x274624 */ t56336 = a35817; /* x274623 */ if (!((t56336.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29966]"); structure_ref_error();} t56334 = t56336.value.structure_type24753->s0; /* x121917 stalin.sc:14337:504430 */ if (f13452(t56334)==FALSE_TYPE) goto l8361; return TRUE_TYPE; l8361: return FALSE_TYPE;} /* C:T?[13452] */ unsigned f13452(struct w49 a25228) {struct w49 a35814; /* PAIR */ struct w49 a35815; /* PAIR */ struct w49 a35816; /* PAIR */ struct w49 t56340; int t56341; int t56342; struct w49 t56343; struct w49 t56344; struct w49 t56345; struct w49 t56346; struct w49 t56347; char *t56348; struct w49 t56349; struct w49 t56350; struct w49 t56351; struct w49 t56352; struct w49 t56353; struct w49 t56354; struct w49 t56355; int t56356; int t56357; struct w49 t56358; struct w49 t56359; struct w49 t56360; struct w49 t56361; struct w49 t56362; struct w49 t56363; struct w49 t56364; char *t56365; struct w49 t56366; struct w49 t56367; struct w49 t56368; /* x121869 stalin.sc:14316:503959 */ /* x121869 stalin.sc:14316:503959 */ /* x121868 stalin.sc:14316:503963 */ /* x121838 stalin.sc:14316:503968 */ /* x121837 stalin.sc:14316:503975 */ t56340 = a25228; /* x121836 stalin.sc:14316:503969 */ if (f26209(t56340)==FALSE_TYPE) goto l8367; /* x121866 */ /* x121844 stalin.sc:14317:503981 */ /* x121842 stalin.sc:14317:503984 */ /* x121841 stalin.sc:14317:503992 */ t56343 = a25228; /* x121840 stalin.sc:14317:503985 */ t56341 = f26227(t56343); /* x121843 stalin.sc:14317:503995 */ t56342 = 2; /* x269087 stalin.sc:14317:503982 */ if (!(t56341==t56342)) goto l8367; /* x121864 */ /* x121849 stalin.sc:14318:504001 */ /* x121848 stalin.sc:14318:504010 */ /* x121847 stalin.sc:14318:504017 */ t56345 = a25228; /* x121846 stalin.sc:14318:504011 */ a35816 = t56345; /* x274621 */ /* x274620 */ t56346 = a35816; /* x274619 */ if (!((t56346.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29965]"); structure_ref_error();} t56344 = t56346.value.structure_type24753->s0; /* x269086 stalin.sc:14318:504002 */ if (!((t56344.tag)==STRING_TYPE)) goto l8367; /* x121862 */ /* x121855 stalin.sc:14319:504024 */ /* x121854 stalin.sc:14319:504044 */ t56348 = "t"; /* x121853 stalin.sc:14319:504034 */ /* x121852 stalin.sc:14319:504041 */ t56351 = a25228; /* x121851 stalin.sc:14319:504035 */ a35815 = t56351; /* x274617 */ /* x274616 */ t56352 = a35815; /* x274615 */ if (!((t56352.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29964]"); structure_ref_error();} t56347 = t56352.value.structure_type24753->s0; /* x121850 stalin.sc:14319:504025 */ t56349 = t56347; t56350.tag = STRING_TYPE; t56350.value.string_type = t56348; if (f27434(t56349, t56350)==FALSE_TYPE) goto l8367; /* x121860 */ /* x121859 stalin.sc:14320:504061 */ /* x121858 stalin.sc:14320:504069 */ t56354 = a25228; /* x121857 stalin.sc:14320:504062 */ t56353 = f26181(t56354); /* x269085 stalin.sc:14320:504053 */ if ((t56353.tag)==STRING_TYPE) goto l8364; l8367: /* x121833 */ /* x121803 stalin.sc:14321:504084 */ /* x121802 stalin.sc:14321:504091 */ t56355 = a25228; /* x121801 stalin.sc:14321:504085 */ if (f26209(t56355)==FALSE_TYPE) goto l8365; /* x121831 */ /* x121809 stalin.sc:14322:504097 */ /* x121807 stalin.sc:14322:504100 */ /* x121806 stalin.sc:14322:504108 */ t56358 = a25228; /* x121805 stalin.sc:14322:504101 */ t56356 = f26227(t56358); /* x121808 stalin.sc:14322:504111 */ t56357 = 3; /* x269089 stalin.sc:14322:504098 */ if (!(t56356==t56357)) goto l8365; /* x121829 */ /* x121814 stalin.sc:14323:504117 */ /* x121813 stalin.sc:14323:504123 */ /* x121812 stalin.sc:14323:504130 */ t56360 = a25228; /* x121811 stalin.sc:14323:504124 */ a35814 = t56360; /* x274613 */ /* x274612 */ t56361 = a35814; /* x274611 */ if (!((t56361.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29963]"); structure_ref_error();} t56359 = t56361.value.structure_type24753->s0; /* x121810 stalin.sc:14323:504118 */ if (f13452(t56359)==FALSE_TYPE) goto l8365; /* x121827 */ /* x121819 stalin.sc:14324:504137 */ /* x121818 stalin.sc:14324:504146 */ /* x121817 stalin.sc:14324:504154 */ t56363 = a25228; /* x121816 stalin.sc:14324:504147 */ t56362 = f26181(t56363); /* x269088 stalin.sc:14324:504138 */ if (!((t56362.tag)==STRING_TYPE)) goto l8365; /* x121825 */ /* x121824 stalin.sc:14325:504182 */ t56365 = "."; /* x121823 stalin.sc:14325:504171 */ /* x121822 stalin.sc:14325:504179 */ t56368 = a25228; /* x121821 stalin.sc:14325:504172 */ t56364 = f26181(t56368); /* x121820 stalin.sc:14325:504162 */ t56366 = t56364; t56367.tag = STRING_TYPE; t56367.value.string_type = t56365; if (f27434(t56366, t56367)==FALSE_TYPE) goto l8365; l8364: return TRUE_TYPE; l8365: return FALSE_TYPE;} /* C:ATOMIC-T?[13451] */ unsigned f13451(struct w49 a25227) {struct w49 a35820; /* PAIR */ struct w49 a35821; /* PAIR */ struct w49 t56369; int t56370; int t56371; struct w49 t56372; struct w49 t56373; struct w49 t56374; struct w49 t56375; struct w49 t56376; char *t56377; struct w49 t56378; struct w49 t56379; struct w49 t56380; struct w49 t56381; struct w49 t56382; struct w49 t56383; /* x121796 stalin.sc:14309:503816 */ /* x121796 stalin.sc:14309:503816 */ /* x121766 stalin.sc:14309:503821 */ /* x121765 stalin.sc:14309:503828 */ t56369 = a25227; /* x121764 stalin.sc:14309:503822 */ if (f26209(t56369)==FALSE_TYPE) goto l8377; /* x121794 */ /* x121772 stalin.sc:14310:503837 */ /* x121770 stalin.sc:14310:503840 */ /* x121769 stalin.sc:14310:503848 */ t56372 = a25227; /* x121768 stalin.sc:14310:503841 */ t56370 = f26227(t56372); /* x121771 stalin.sc:14310:503851 */ t56371 = 2; /* x269092 stalin.sc:14310:503838 */ if (!(t56370==t56371)) goto l8377; /* x121792 */ /* x121777 stalin.sc:14311:503860 */ /* x121776 stalin.sc:14311:503869 */ /* x121775 stalin.sc:14311:503876 */ t56374 = a25227; /* x121774 stalin.sc:14311:503870 */ a35821 = t56374; /* x274641 */ /* x274640 */ t56375 = a35821; /* x274639 */ if (!((t56375.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29970]"); structure_ref_error();} t56373 = t56375.value.structure_type24753->s0; /* x269091 stalin.sc:14311:503861 */ if (!((t56373.tag)==STRING_TYPE)) goto l8377; /* x121790 */ /* x121783 stalin.sc:14312:503886 */ /* x121782 stalin.sc:14312:503906 */ t56377 = "t"; /* x121781 stalin.sc:14312:503896 */ /* x121780 stalin.sc:14312:503903 */ t56380 = a25227; /* x121779 stalin.sc:14312:503897 */ a35820 = t56380; /* x274637 */ /* x274636 */ t56381 = a35820; /* x274635 */ if (!((t56381.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29969]"); structure_ref_error();} t56376 = t56381.value.structure_type24753->s0; /* x121778 stalin.sc:14312:503887 */ t56378 = t56376; t56379.tag = STRING_TYPE; t56379.value.string_type = t56377; if (f27434(t56378, t56379)==FALSE_TYPE) goto l8377; /* x121788 */ /* x121787 stalin.sc:14313:503926 */ /* x121786 stalin.sc:14313:503934 */ t56383 = a25227; /* x121785 stalin.sc:14313:503927 */ t56382 = f26181(t56383); /* x269090 stalin.sc:14313:503918 */ if (!((t56382.tag)==STRING_TYPE)) goto l8377; return TRUE_TYPE; l8377: return FALSE_TYPE;} /* C:ASSIGNMENT?[13450] */ unsigned f13450(struct w49 a25226) {struct w49 a36043; /* PAIR */ struct w49 a36044; /* PAIR */ struct w49 a36045; /* PAIR */ struct w49 a36046; /* PAIR */ struct w49 a36047; /* PAIR */ struct w49 a36048; /* PAIR */ struct w49 a36049; /* PAIR */ struct w49 a36050; /* PAIR */ struct w49 a36051; /* PAIR */ struct w49 a36052; /* PAIR */ struct w49 a36053; /* PAIR */ struct w49 a36054; /* PAIR */ struct w49 a36055; /* PAIR */ struct w49 a36056; /* PAIR */ struct w49 a36057; /* PAIR */ struct w49 a36058; /* PAIR */ struct w49 t56384; int t56385; int t56386; struct w49 t56387; struct w49 t56388; struct w49 t56389; struct w49 t56390; int t56391; int t56392; struct w49 t56393; struct w49 t56394; struct w49 t56395; struct w49 t56396; char *t56397; struct w49 t56398; struct w49 t56399; struct w49 t56400; struct w49 t56401; struct w49 t56402; struct w49 t56403; struct w49 t56404; struct w49 t56405; int t56406; int t56407; struct w49 t56408; struct w49 t56409; struct w49 t56410; struct w49 t56411; struct w49 t56412; struct w49 t56413; struct w49 t56414; struct w49 t56415; struct w49 t56416; struct w49 t56417; char *t56418; struct w49 t56419; struct w49 t56420; struct w49 t56421; struct w49 t56422; struct w49 t56423; struct w49 t56424; struct w49 t56425; struct w49 t56426; struct w49 t56427; struct w49 t56428; struct w49 t56429; int t56430; int t56431; struct w49 t56432; struct w49 t56433; struct w49 t56434; struct w49 t56435; struct w49 t56436; struct w49 t56437; struct w49 t56438; struct w49 t56439; struct w49 t56440; struct w49 t56441; struct w49 t56442; struct w49 t56443; struct w49 t56444; char *t56445; struct w49 t56446; struct w49 t56447; struct w49 t56448; struct w49 t56449; struct w49 t56450; struct w49 t56451; struct w49 t56452; struct w49 t56453; struct w49 t56454; struct w49 t56455; struct w49 t56456; struct w49 t56457; struct w49 t56458; struct w49 t56459; struct w49 t56460; char *t56461; struct w49 t56462; struct w49 t56463; struct w49 t56464; struct w49 t56465; struct w49 t56466; struct w49 t56467; struct w49 t56468; struct w49 t56469; struct w49 t56470; struct w49 t56471; char *t56472; struct w49 t56473; struct w49 t56474; struct w49 t56475; /* x121761 stalin.sc:14290:503124 */ /* x121761 stalin.sc:14290:503124 */ /* x121588 stalin.sc:14290:503129 */ /* x121587 stalin.sc:14290:503136 */ t56384 = a25226; /* x121586 stalin.sc:14290:503130 */ if (f26209(t56384)==FALSE_TYPE) goto l8384; /* x121759 */ /* x121594 stalin.sc:14291:503145 */ /* x121592 stalin.sc:14291:503148 */ /* x121591 stalin.sc:14291:503156 */ t56387 = a25226; /* x121590 stalin.sc:14291:503149 */ t56385 = f26227(t56387); /* x121593 stalin.sc:14291:503159 */ t56386 = 2; /* x269101 stalin.sc:14291:503146 */ if (!(t56385==t56386)) goto l8384; /* x121757 */ /* x121599 stalin.sc:14292:503168 */ /* x121598 stalin.sc:14292:503175 */ /* x121597 stalin.sc:14292:503182 */ t56389 = a25226; /* x121596 stalin.sc:14292:503176 */ a36058 = t56389; /* x275589 */ /* x275588 */ t56390 = a36058; /* x275587 */ if (!((t56390.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30207]"); structure_ref_error();} t56388 = t56390.value.structure_type24753->s0; /* x121595 stalin.sc:14292:503169 */ if (f26209(t56388)==FALSE_TYPE) goto l8384; /* x121755 */ /* x121607 stalin.sc:14293:503192 */ /* x121605 stalin.sc:14293:503195 */ /* x121604 stalin.sc:14293:503203 */ /* x121603 stalin.sc:14293:503210 */ t56394 = a25226; /* x121602 stalin.sc:14293:503204 */ a36057 = t56394; /* x275585 */ /* x275584 */ t56395 = a36057; /* x275583 */ if (!((t56395.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30206]"); structure_ref_error();} t56393 = t56395.value.structure_type24753->s0; /* x121601 stalin.sc:14293:503196 */ t56391 = f26227(t56393); /* x121606 stalin.sc:14293:503214 */ t56392 = 2; /* x269100 stalin.sc:14293:503193 */ if (!(t56391==t56392)) goto l8384; /* x121753 */ /* x121615 stalin.sc:14294:503223 */ /* x121613 stalin.sc:14294:503228 */ /* x121612 stalin.sc:14294:503235 */ /* x121611 stalin.sc:14294:503242 */ t56400 = a25226; /* x121610 stalin.sc:14294:503236 */ a36056 = t56400; /* x275581 */ /* x275580 */ t56401 = a36056; /* x275579 */ if (!((t56401.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30205]"); structure_ref_error();} t56398 = t56401.value.structure_type24753->s0; /* x121609 stalin.sc:14294:503229 */ a36055 = t56398; /* x275577 */ /* x275576 */ t56399 = a36055; /* x275575 */ if (!((t56399.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30204]"); structure_ref_error();} t56396 = t56399.value.structure_type24753->s0; /* x121614 stalin.sc:14294:503246 */ t56397 = q200; /* x269099 stalin.sc:14294:503224 */ if (!(((t56396.tag)==EXTERNAL_SYMBOL_TYPE)&&((t56396.value.external_symbol_type)==t56397))) goto l8384; /* x121751 */ /* x121622 stalin.sc:14295:503264 */ /* x121621 stalin.sc:14295:503271 */ /* x121620 stalin.sc:14295:503279 */ /* x121619 stalin.sc:14295:503286 */ t56404 = a25226; /* x121618 stalin.sc:14295:503280 */ a36054 = t56404; /* x275573 */ /* x275572 */ t56405 = a36054; /* x275571 */ if (!((t56405.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30203]"); structure_ref_error();} t56403 = t56405.value.structure_type24753->s0; /* x121617 stalin.sc:14295:503272 */ t56402 = f26181(t56403); /* x121616 stalin.sc:14295:503265 */ if (f26209(t56402)==FALSE_TYPE) goto l8384; /* x121749 */ /* x121632 stalin.sc:14296:503297 */ /* x121630 stalin.sc:14296:503300 */ /* x121629 stalin.sc:14296:503308 */ /* x121628 stalin.sc:14296:503316 */ /* x121627 stalin.sc:14296:503323 */ t56410 = a25226; /* x121626 stalin.sc:14296:503317 */ a36053 = t56410; /* x275569 */ /* x275568 */ t56411 = a36053; /* x275567 */ if (!((t56411.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30202]"); structure_ref_error();} t56409 = t56411.value.structure_type24753->s0; /* x121625 stalin.sc:14296:503309 */ t56408 = f26181(t56409); /* x121624 stalin.sc:14296:503301 */ t56406 = f26227(t56408); /* x121631 stalin.sc:14296:503328 */ t56407 = 3; /* x269098 stalin.sc:14296:503298 */ if (!(t56406==t56407)) goto l8384; /* x121747 */ /* x121641 stalin.sc:14297:503337 */ /* x121640 stalin.sc:14297:503346 */ /* x121639 stalin.sc:14297:503354 */ /* x121638 stalin.sc:14297:503362 */ /* x121637 stalin.sc:14297:503369 */ t56415 = a25226; /* x121636 stalin.sc:14297:503363 */ a36052 = t56415; /* x275565 */ /* x275564 */ t56416 = a36052; /* x275563 */ if (!((t56416.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30201]"); structure_ref_error();} t56414 = t56416.value.structure_type24753->s0; /* x121635 stalin.sc:14297:503355 */ t56413 = f26181(t56414); /* x121634 stalin.sc:14297:503347 */ t56412 = f26181(t56413); /* x269097 stalin.sc:14297:503338 */ if (!((t56412.tag)==STRING_TYPE)) goto l8384; /* x121745 */ /* x121651 stalin.sc:14298:503381 */ /* x121650 stalin.sc:14298:503419 */ t56418 = " "; /* x121649 stalin.sc:14298:503391 */ /* x121648 stalin.sc:14298:503399 */ /* x121647 stalin.sc:14298:503407 */ /* x121646 stalin.sc:14298:503414 */ t56423 = a25226; /* x121645 stalin.sc:14298:503408 */ a36051 = t56423; /* x275561 */ /* x275560 */ t56424 = a36051; /* x275559 */ if (!((t56424.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30200]"); structure_ref_error();} t56422 = t56424.value.structure_type24753->s0; /* x121644 stalin.sc:14298:503400 */ t56421 = f26181(t56422); /* x121643 stalin.sc:14298:503392 */ t56417 = f26181(t56421); /* x121642 stalin.sc:14298:503382 */ t56419 = t56417; t56420.tag = STRING_TYPE; t56420.value.string_type = t56418; if (f27434(t56419, t56420)==FALSE_TYPE) goto l8384; /* x121743 */ /* x121660 stalin.sc:14299:503430 */ /* x121659 stalin.sc:14299:503437 */ /* x121658 stalin.sc:14299:503444 */ /* x121657 stalin.sc:14299:503452 */ /* x121656 stalin.sc:14299:503459 */ t56428 = a25226; /* x121655 stalin.sc:14299:503453 */ a36050 = t56428; /* x275557 */ /* x275556 */ t56429 = a36050; /* x275555 */ if (!((t56429.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30199]"); structure_ref_error();} t56427 = t56429.value.structure_type24753->s0; /* x121654 stalin.sc:14299:503445 */ t56426 = f26181(t56427); /* x121653 stalin.sc:14299:503438 */ t56425 = f26187(t56426); /* x121652 stalin.sc:14299:503431 */ if (f26209(t56425)==FALSE_TYPE) goto l8384; /* x121741 */ /* x121672 stalin.sc:14300:503471 */ /* x121670 stalin.sc:14300:503474 */ /* x121669 stalin.sc:14300:503482 */ /* x121668 stalin.sc:14300:503489 */ /* x121667 stalin.sc:14300:503497 */ /* x121666 stalin.sc:14300:503504 */ t56435 = a25226; /* x121665 stalin.sc:14300:503498 */ a36049 = t56435; /* x275553 */ /* x275552 */ t56436 = a36049; /* x275551 */ if (!((t56436.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30198]"); structure_ref_error();} t56434 = t56436.value.structure_type24753->s0; /* x121664 stalin.sc:14300:503490 */ t56433 = f26181(t56434); /* x121663 stalin.sc:14300:503483 */ t56432 = f26187(t56433); /* x121662 stalin.sc:14300:503475 */ t56430 = f26227(t56432); /* x121671 stalin.sc:14300:503510 */ t56431 = 3; /* x269096 stalin.sc:14300:503472 */ if (!(t56430==t56431)) goto l8384; /* x121739 */ /* x121683 stalin.sc:14301:503519 */ /* x121682 stalin.sc:14301:503528 */ /* x121681 stalin.sc:14301:503535 */ /* x121680 stalin.sc:14301:503542 */ /* x121679 stalin.sc:14301:503550 */ /* x121678 stalin.sc:14301:503557 */ t56442 = a25226; /* x121677 stalin.sc:14301:503551 */ a36048 = t56442; /* x275549 */ /* x275548 */ t56443 = a36048; /* x275547 */ if (!((t56443.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30197]"); structure_ref_error();} t56441 = t56443.value.structure_type24753->s0; /* x121676 stalin.sc:14301:503543 */ t56440 = f26181(t56441); /* x121675 stalin.sc:14301:503536 */ t56438 = f26187(t56440); /* x121674 stalin.sc:14301:503529 */ a36047 = t56438; /* x275545 */ /* x275544 */ t56439 = a36047; /* x275543 */ if (!((t56439.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30196]"); structure_ref_error();} t56437 = t56439.value.structure_type24753->s0; /* x269095 stalin.sc:14301:503520 */ if (!((t56437.tag)==STRING_TYPE)) goto l8384; /* x121737 */ /* x121695 stalin.sc:14302:503570 */ /* x121694 stalin.sc:14302:503615 */ t56445 = "="; /* x121693 stalin.sc:14302:503580 */ /* x121692 stalin.sc:14302:503587 */ /* x121691 stalin.sc:14302:503594 */ /* x121690 stalin.sc:14302:503602 */ /* x121689 stalin.sc:14302:503609 */ t56452 = a25226; /* x121688 stalin.sc:14302:503603 */ a36046 = t56452; /* x275541 */ /* x275540 */ t56453 = a36046; /* x275539 */ if (!((t56453.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30195]"); structure_ref_error();} t56451 = t56453.value.structure_type24753->s0; /* x121687 stalin.sc:14302:503595 */ t56450 = f26181(t56451); /* x121686 stalin.sc:14302:503588 */ t56448 = f26187(t56450); /* x121685 stalin.sc:14302:503581 */ a36045 = t56448; /* x275537 */ /* x275536 */ t56449 = a36045; /* x275535 */ if (!((t56449.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30194]"); structure_ref_error();} t56444 = t56449.value.structure_type24753->s0; /* x121684 stalin.sc:14302:503571 */ t56446 = t56444; t56447.tag = STRING_TYPE; t56447.value.string_type = t56445; if (f27434(t56446, t56447)==FALSE_TYPE) goto l8384; /* x121735 */ /* x121706 stalin.sc:14303:503626 */ /* x121705 stalin.sc:14303:503635 */ /* x121704 stalin.sc:14303:503643 */ /* x121703 stalin.sc:14303:503650 */ /* x121702 stalin.sc:14303:503658 */ /* x121701 stalin.sc:14303:503665 */ t56458 = a25226; /* x121700 stalin.sc:14303:503659 */ a36044 = t56458; /* x275533 */ /* x275532 */ t56459 = a36044; /* x275531 */ if (!((t56459.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30193]"); structure_ref_error();} t56457 = t56459.value.structure_type24753->s0; /* x121699 stalin.sc:14303:503651 */ t56456 = f26181(t56457); /* x121698 stalin.sc:14303:503644 */ t56455 = f26187(t56456); /* x121697 stalin.sc:14303:503636 */ t56454 = f26181(t56455); /* x269094 stalin.sc:14303:503627 */ if (!((t56454.tag)==STRING_TYPE)) goto l8384; /* x121733 */ /* x121718 stalin.sc:14304:503678 */ /* x121717 stalin.sc:14304:503724 */ t56461 = " "; /* x121716 stalin.sc:14304:503688 */ /* x121715 stalin.sc:14304:503696 */ /* x121714 stalin.sc:14304:503703 */ /* x121713 stalin.sc:14304:503711 */ /* x121712 stalin.sc:14304:503718 */ t56467 = a25226; /* x121711 stalin.sc:14304:503712 */ a36043 = t56467; /* x275529 */ /* x275528 */ t56468 = a36043; /* x275527 */ if (!((t56468.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30192]"); structure_ref_error();} t56466 = t56468.value.structure_type24753->s0; /* x121710 stalin.sc:14304:503704 */ t56465 = f26181(t56466); /* x121709 stalin.sc:14304:503697 */ t56464 = f26187(t56465); /* x121708 stalin.sc:14304:503689 */ t56460 = f26181(t56464); /* x121707 stalin.sc:14304:503679 */ t56462 = t56460; t56463.tag = STRING_TYPE; t56463.value.string_type = t56461; if (f27434(t56462, t56463)==FALSE_TYPE) goto l8384; /* x121731 */ /* x121723 stalin.sc:14305:503735 */ /* x121722 stalin.sc:14305:503744 */ /* x121721 stalin.sc:14305:503752 */ t56470 = a25226; /* x121720 stalin.sc:14305:503745 */ t56469 = f26181(t56470); /* x269093 stalin.sc:14305:503736 */ if (!((t56469.tag)==STRING_TYPE)) goto l8384; /* x121729 */ /* x121728 stalin.sc:14306:503783 */ t56472 = ";"; /* x121727 stalin.sc:14306:503772 */ /* x121726 stalin.sc:14306:503780 */ t56475 = a25226; /* x121725 stalin.sc:14306:503773 */ t56471 = f26181(t56475); /* x121724 stalin.sc:14306:503763 */ t56473 = t56471; t56474.tag = STRING_TYPE; t56474.value.string_type = t56472; if (f27434(t56473, t56474)==FALSE_TYPE) goto l8384; return TRUE_TYPE; l8384: return FALSE_TYPE;} /* C:MATCH[13427] */ struct structure_type24753 *f13427(struct w49 a25211, struct w49 a25212) {struct w49 a25221; /* VARIABLE */ struct structure_type24753 *a25222; /* VARIABLES */ struct w49 a25224; /* VARIABLES1 */ struct structure_type24753 *a25225; /* VARIABLES2 */ struct structure_type24753 *a35135; /* OBJS */ struct w16638 a35470; /* PAIR */ struct w16638 a35976; /* PAIR */ struct w49 t56476; struct w49 t56477; char t56478; char t56479; struct w49 t56480; char t56481; struct w49 t56482; struct w49 t56483; char *t56484; char *t56485; struct w49 t56486; struct w49 t56487; struct w49 t56488; struct w49 t56489; struct w30215 t56490; struct w30215 t56491; struct w49 t56492; struct w49 t56493; struct w49 t56494; struct w49 t56495; char *t56496; char *t56497; struct w49 t56498; struct w49 t56499; struct w49 t56500; struct w49 t56501; struct w49 t56502; struct w49 t56503; struct w49 t56504; char *t56505; struct w49 t56506; struct w49 t56507; struct w49 t56508; struct w49 t56509; char *t56510; struct w49 t56511; struct w49 t56512; struct w49 t56513; struct w49 t56514; struct w49 t56515; struct w49 t56516; struct w49 t56517; struct w49 t56518; struct w49 t56519; struct w49 t56520; struct w49 t56521; struct w49 t56522; struct w49 t56523; struct w49 t56524; struct w49 t56525; struct structure_type24753 *t56526; struct structure_type24753 *t56527; struct w49 t56528; struct w49 t56529; struct w49 t56530; struct structure_type24753 *t56531; struct w16638 t56532; struct w16638 t56533; struct w49 t56534; struct structure_type24753 *t56535; struct structure_type24753 *t56536; struct w49 t56537; struct structure_type24753 *t56538; struct w49 t56539; struct p13437 *t56540; struct structure_type24753 *t56541; struct w228345 t56542; struct w49 t56543; struct structure_type24753 *t56544; struct p13437 *t56545; struct w49 t56546; struct structure_type24753 *t56547; struct w16638 t56548; struct w16638 t56549; struct w49 t56550; struct w49 t56551; struct w49 t56552; struct w49 t56553; struct w49 t56554; struct w49 t56555; struct w49 t56556; struct w49 t56557; struct structure_type24753 *t56558; struct w49 t56559; struct w49 t56560; struct p13437 *e13437; struct p13437 *p13442; /* x121576 */ /* x121573 */ /* x121572 */ /* x121575 */ /* x121574 */ /* x121571 */ /* x121570 */ /* x121539 */ /* x121538 */ /* x121569 */ /* x121568 */ /* x121499 */ /* x121498 stalin.sc:14267:502427 */ /* x121385 stalin.sc:14267:502434 */ /* x121384 stalin.sc:14267:502438 */ /* x121373 stalin.sc:14267:502443 */ /* x121372 stalin.sc:14267:502450 */ t56476 = a25211; /* x269130 stalin.sc:14267:502444 */ if (!((t56476.tag)>2); /* x121378 stalin.sc:14267:502473 */ t56478 = (char)((a25211.tag)>>2); /* x121377 stalin.sc:14267:502466 */ t56480.tag = ((unsigned)((unsigned char)t56478))<<2; t56481 = t56479; if (!(f27342(t56480, t56481)==FALSE_TYPE)) goto l8402; l8404: /* x121368 */ /* x121367 stalin.sc:14268:502487 */ /* x121356 stalin.sc:14268:502492 */ /* x121355 stalin.sc:14268:502501 */ t56482 = a25211; /* x269132 stalin.sc:14268:502493 */ if (!((t56482.tag)==STRING_TYPE)) goto l8407; /* x121365 */ /* x121359 stalin.sc:14268:502505 */ /* x121358 stalin.sc:14268:502514 */ t56483 = a25212; /* x269131 stalin.sc:14268:502506 */ if (!((t56483.tag)==STRING_TYPE)) goto l8407; /* x121363 */ /* x121362 stalin.sc:14268:502531 */ t56485 = a25212.value.string_type; /* x121361 stalin.sc:14268:502528 */ t56484 = a25211.value.string_type; /* x121360 stalin.sc:14268:502519 */ t56486.tag = STRING_TYPE; t56486.value.string_type = t56484; t56487.tag = STRING_TYPE; t56487.value.string_type = t56485; if (!(f27434(t56486, t56487)==FALSE_TYPE)) goto l8402; l8407: /* x121351 */ /* x121350 stalin.sc:14269:502542 */ /* x121339 stalin.sc:14269:502547 */ /* x121338 stalin.sc:14269:502556 */ t56488 = a25211; /* x269135 stalin.sc:14269:502548 */ switch (t56488.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: break; default: goto l8410;} /* x121348 */ /* x121342 stalin.sc:14269:502560 */ /* x121341 stalin.sc:14269:502569 */ t56489 = a25212; /* x269134 stalin.sc:14269:502561 */ switch (t56489.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: break; default: goto l8410;} /* x121346 */ /* x121344 stalin.sc:14269:502576 */ t56490 = *((struct w30215 *)(&a25211)); /* x121345 stalin.sc:14269:502579 */ t56491 = *((struct w30215 *)(&a25212)); /* x269133 stalin.sc:14269:502574 */ if ((t56490.tag)==FIXNUM_TYPE) {if ((t56491.tag)==FIXNUM_TYPE) {if ((t56490.value.fixnum_type)==(t56491.value.fixnum_type)) goto l8402;} else if ((t56490.value.fixnum_type)==(t56491.value.flonum_type)) goto l8402;} else {if ((t56491.tag)==FIXNUM_TYPE) {if ((t56490.value.flonum_type)==(t56491.value.fixnum_type)) goto l8402;} else if ((t56490.value.flonum_type)==(t56491.value.flonum_type)) goto l8402;} l8410: /* x121334 */ /* x121333 stalin.sc:14270:502590 */ /* x121328 stalin.sc:14270:502595 */ /* x121327 stalin.sc:14270:502602 */ t56492 = a25211; /* x269137 stalin.sc:14270:502596 */ if (!((t56492.tag)==NULL_TYPE)) goto l8413; /* x121331 */ /* x121330 stalin.sc:14270:502613 */ t56493 = a25212; /* x269136 stalin.sc:14270:502607 */ if ((t56493.tag)==NULL_TYPE) goto l8402; l8413: /* x121323 */ /* x121312 stalin.sc:14271:502629 */ /* x121311 stalin.sc:14271:502638 */ t56494 = a25211; /* x269140 stalin.sc:14271:502630 */ if (!((t56494.tag)==EXTERNAL_SYMBOL_TYPE)) goto l8403; /* x121321 */ /* x121315 stalin.sc:14271:502642 */ /* x121314 stalin.sc:14271:502651 */ t56495 = a25212; /* x269139 stalin.sc:14271:502643 */ if (!((t56495.tag)==EXTERNAL_SYMBOL_TYPE)) goto l8403; /* x121319 */ /* x121317 stalin.sc:14271:502660 */ t56496 = a25211.value.external_symbol_type; /* x121318 stalin.sc:14271:502663 */ t56497 = a25212.value.external_symbol_type; /* x269138 stalin.sc:14271:502656 */ if (!(t56496==t56497)) goto l8403; l8402: /* x121388 */ /* x121387 */ /* x121386 stalin.sc:14272:502671 */ return (struct structure_type24753 *)NULL_TYPE; l8403: /* x121497 */ /* x121396 stalin.sc:14273:502678 */ /* x121391 stalin.sc:14273:502683 */ /* x121390 stalin.sc:14273:502690 */ t56498 = a25211; /* x269128 stalin.sc:14273:502684 */ if (!((t56498.tag)==STRUCTURE_TYPE24753)) goto l8418; /* x121394 */ /* x121393 stalin.sc:14273:502701 */ t56499 = a25212; /* x269127 stalin.sc:14273:502695 */ if (!((t56499.tag)==STRUCTURE_TYPE24753)) goto l8418; /* x121493 */ /* x121492 */ /* x121491 stalin.sc:14274:502708 */ /* x121466 stalin.sc:14274:502712 */ /* x121401 stalin.sc:14274:502717 */ /* x121400 stalin.sc:14274:502726 */ /* x121399 stalin.sc:14274:502731 */ t56501 = a25211; /* x269125 stalin.sc:14274:502727 */ if (!((t56501.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 14274, 502726); structure_ref_error();} t56500 = t56501.value.structure_type24753->s0; /* x269126 stalin.sc:14274:502718 */ if (!((t56500.tag)==STRING_TYPE)) goto l8421; /* x121464 */ /* x121406 stalin.sc:14275:502740 */ /* x121405 stalin.sc:14275:502749 */ /* x121404 stalin.sc:14275:502754 */ t56503 = a25212; /* x269123 stalin.sc:14275:502750 */ if (!((t56503.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 14275, 502749); structure_ref_error();} t56502 = t56503.value.structure_type24753->s0; /* x269124 stalin.sc:14275:502741 */ if (!((t56502.tag)==STRING_TYPE)) goto l8421; /* x121462 */ /* x121412 stalin.sc:14276:502763 */ /* x121411 stalin.sc:14276:502782 */ t56505 = "t"; /* x121410 stalin.sc:14276:502773 */ /* x121409 stalin.sc:14276:502778 */ t56508 = a25211; /* x269122 stalin.sc:14276:502774 */ if (!((t56508.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 14276, 502773); structure_ref_error();} t56504 = t56508.value.structure_type24753->s0; /* x121407 stalin.sc:14276:502764 */ t56506 = t56504; t56507.tag = STRING_TYPE; t56507.value.string_type = t56505; if (f27434(t56506, t56507)==FALSE_TYPE) goto l8421; /* x121460 */ /* x121418 stalin.sc:14277:502791 */ /* x121417 stalin.sc:14277:502810 */ t56510 = "t"; /* x121416 stalin.sc:14277:502801 */ /* x121415 stalin.sc:14277:502806 */ t56513 = a25212; /* x269121 stalin.sc:14277:502802 */ if (!((t56513.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 14277, 502801); structure_ref_error();} t56509 = t56513.value.structure_type24753->s0; /* x121413 stalin.sc:14277:502792 */ t56511 = t56509; t56512.tag = STRING_TYPE; t56512.value.string_type = t56510; if (f27434(t56511, t56512)==FALSE_TYPE) goto l8421; /* x121458 */ /* x121423 stalin.sc:14278:502819 */ /* x121422 stalin.sc:14278:502826 */ /* x121421 stalin.sc:14278:502831 */ t56515 = a25211; /* x269119 stalin.sc:14278:502827 */ if (!((t56515.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 14278, 502826); structure_ref_error();} t56514 = t56515.value.structure_type24753->s1; /* x269120 stalin.sc:14278:502820 */ if (!((t56514.tag)==STRUCTURE_TYPE24753)) goto l8421; /* x121456 */ /* x121428 stalin.sc:14279:502840 */ /* x121427 stalin.sc:14279:502847 */ /* x121426 stalin.sc:14279:502852 */ t56517 = a25212; /* x269117 stalin.sc:14279:502848 */ if (!((t56517.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 14279, 502847); structure_ref_error();} t56516 = t56517.value.structure_type24753->s1; /* x269118 stalin.sc:14279:502841 */ if (!((t56516.tag)==STRUCTURE_TYPE24753)) goto l8421; /* x121454 */ /* x121433 stalin.sc:14280:502861 */ /* x121432 stalin.sc:14280:502871 */ /* x121431 stalin.sc:14280:502877 */ t56519 = a25211; /* x121430 stalin.sc:14280:502872 */ t56518 = f26181(t56519); /* x269116 stalin.sc:14280:502862 */ switch (t56518.tag) {case FIXNUM_TYPE: break; case FLONUM_TYPE: if (!((t56518.value.flonum_type)==rint(t56518.value.flonum_type))) goto l8421; break; default: goto l8421;} /* x121452 */ /* x121438 stalin.sc:14281:502886 */ /* x121437 stalin.sc:14281:502896 */ /* x121436 stalin.sc:14281:502902 */ t56521 = a25212; /* x121435 stalin.sc:14281:502897 */ t56520 = f26181(t56521); /* x269115 stalin.sc:14281:502887 */ switch (t56520.tag) {case FIXNUM_TYPE: break; case FLONUM_TYPE: if (!((t56520.value.flonum_type)==rint(t56520.value.flonum_type))) goto l8421; break; default: goto l8421;} /* x121450 */ /* x121443 stalin.sc:14282:502911 */ /* x121442 stalin.sc:14282:502918 */ /* x121441 stalin.sc:14282:502924 */ t56523 = a25211; /* x121440 stalin.sc:14282:502919 */ t56522 = f26183(t56523); /* x269114 stalin.sc:14282:502912 */ if (!((t56522.tag)==NULL_TYPE)) goto l8421; /* x121448 */ /* x121447 stalin.sc:14283:502940 */ /* x121446 stalin.sc:14283:502946 */ t56525 = a25212; /* x121445 stalin.sc:14283:502941 */ t56524 = f26183(t56525); /* x269113 stalin.sc:14283:502934 */ if (!((t56524.tag)==NULL_TYPE)) goto l8421; /* x121472 stalin.sc:14284:502958 */ /* x121471 stalin.sc:14284:502964 */ /* x121469 stalin.sc:14284:502970 */ t56559 = a25211; /* x121470 stalin.sc:14284:502973 */ t56560 = a25212; /* x269112 stalin.sc:14284:502965 */ t56558 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56558==NULL) {backtrace("stalin.sc", 14284, 502964); out_of_memory_error();} t56558->s0 = t56559; t56558->s1 = t56560; /* x121467 stalin.sc:14284:502959 */ a35135 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35135==NULL) {backtrace("stalin.sc", 14284, 502958); out_of_memory_error();} a35135->s0.tag = STRUCTURE_TYPE24753; a35135->s0.value.structure_type24753 = t56558; a35135->s1.tag = NULL_TYPE; /* x272277 */ return a35135; l8421: /* x121490 stalin.sc:14285:502984 */ /* x121481 stalin.sc:14285:502991 */ /* x121477 stalin.sc:14285:503000 */ /* x121476 stalin.sc:14285:503005 */ t56552 = a25211; /* x269111 stalin.sc:14285:503001 */ if (!((t56552.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 14285, 503000); structure_ref_error();} t56550 = t56552.value.structure_type24753->s0; /* x121480 stalin.sc:14285:503009 */ /* x121479 stalin.sc:14285:503014 */ t56553 = a25212; /* x269110 stalin.sc:14285:503010 */ if (!((t56553.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 14285, 503009); structure_ref_error();} t56551 = t56553.value.structure_type24753->s0; /* x121474 stalin.sc:14285:502992 */ t56526 = f13427(t56550, t56551); /* x121489 stalin.sc:14285:503019 */ /* x121485 stalin.sc:14285:503028 */ /* x121484 stalin.sc:14285:503033 */ t56556 = a25211; /* x269109 stalin.sc:14285:503029 */ if (!((t56556.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 14285, 503028); structure_ref_error();} t56554 = t56556.value.structure_type24753->s1; /* x121488 stalin.sc:14285:503037 */ /* x121487 stalin.sc:14285:503042 */ t56557 = a25212; /* x269108 stalin.sc:14285:503038 */ if (!((t56557.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 14285, 503037); structure_ref_error();} t56555 = t56557.value.structure_type24753->s1; /* x121482 stalin.sc:14285:503020 */ t56527 = f13427(t56554, t56555); /* x121473 stalin.sc:14285:502985 */ /* MOVE: branching squeezed to general */ if (t56526>=((struct structure_type24753 *)VALUE_OFFSET)) {a25224.tag = STRUCTURE_TYPE24753; a25224.value.structure_type24753 = t56526;} else a25224.tag = (unsigned)t56526; a25225 = t56527; h13443: /* x121567 stalin.sc:14263:502275 */ /* x121543 stalin.sc:14264:502286 */ /* x121541 stalin.sc:14264:502291 */ t56528 = a25224; /* x121542 stalin.sc:14264:502302 */ /* x269103 stalin.sc:14264:502287 */ if (!((t56528.tag)==FALSE_TYPE)) goto l8432; /* x121546 */ /* x121545 */ /* x121544 stalin.sc:14264:502306 */ return (struct structure_type24753 *)FALSE_TYPE; l8432: /* x121566 */ /* x121549 stalin.sc:14265:502315 */ /* x121548 stalin.sc:14265:502322 */ t56529 = a25224; /* x269102 stalin.sc:14265:502316 */ if (!((t56529.tag)==NULL_TYPE)) goto l8434; /* x121552 */ /* x121551 */ /* x121550 stalin.sc:14265:502334 */ return a25225; l8434: /* x121565 */ /* x121564 */ /* x121563 stalin.sc:14266:502356 */ /* x121556 stalin.sc:14266:502363 */ /* x121555 stalin.sc:14266:502369 */ t56532 = *((struct w16638 *)(&a25224)); /* x121554 stalin.sc:14266:502364 */ a35470 = t56532; /* x273237 */ /* x273236 */ t56533 = a35470; /* x273235 */ if (!((t56533.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29619]"); structure_ref_error();} t56530 = t56533.value.structure_type24753->s1; /* x121562 stalin.sc:14266:502381 */ /* x121560 stalin.sc:14266:502390 */ /* x121559 stalin.sc:14266:502397 */ t56548 = *((struct w16638 *)(&a25224)); /* x121558 stalin.sc:14266:502391 */ a35976 = t56548; /* x275261 */ /* x275260 */ t56549 = a35976; /* x275259 */ if (!((t56549.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30125]"); structure_ref_error();} t56534 = t56549.value.structure_type24753->s0; /* x121561 stalin.sc:14266:502409 */ t56535 = a25225; /* x121557 stalin.sc:14266:502382 */ a25221 = t56534; a25222 = t56535; e13437 = (struct p13437 *)alloca(sizeof(struct p13437)); if (e13437==NULL) {backtrace_internal("[inside C:MATCH 13428]"); out_of_memory_error();} e13437->a25221 = a25221; /* x121537 stalin.sc:14252:501929 */ /* x121503 stalin.sc:14253:501940 */ /* x121501 stalin.sc:14253:501945 */ t56536 = a25222; /* x121502 stalin.sc:14253:501955 */ /* x269107 stalin.sc:14253:501941 */ if (!(t56536==((struct structure_type24753 *)FALSE_TYPE))) goto l8436; /* x121506 */ /* x121505 */ /* x121504 stalin.sc:14253:501959 */ t56531 = (struct structure_type24753 *)FALSE_TYPE; goto l8437; l8436: /* x121536 */ /* x121510 stalin.sc:14254:501968 */ /* x121508 stalin.sc:14254:501976 */ t56537 = e13437->a25221; /* x121509 stalin.sc:14254:501985 */ t56538 = a25222; /* x121507 stalin.sc:14254:501969 */ /* MOVE: branching squeezed to general */ if (t56538>=((struct structure_type24753 *)VALUE_OFFSET)) {t56539.tag = STRUCTURE_TYPE24753; t56539.value.structure_type24753 = t56538;} else t56539.tag = (unsigned)t56538; if ((f26353(t56537, t56539).tag)==FALSE_TYPE) goto l8439; /* x121513 */ /* x121512 */ /* x121511 stalin.sc:14254:501996 */ t56531 = a25222; goto l8440; l8439: /* x121535 */ /* x121525 stalin.sc:14255:502012 */ /* x121524 stalin.sc:14258:502134 */ t56541 = a25222; /* x121523 stalin.sc:14255:502018 */ t56540 = e13437; /* x121514 stalin.sc:14255:502013 */ t56542.tag = NATIVE_PROCEDURE_TYPE20308; t56542.value.native_procedure_type20308 = t56540; /* MOVE: branching squeezed to general */ if (t56541>=((struct structure_type24753 *)VALUE_OFFSET)) {t56543.tag = STRUCTURE_TYPE24753; t56543.value.structure_type24753 = t56541;} else t56543.tag = (unsigned)t56541; t56544 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t56542, t56543, t56544).tag)==FALSE_TYPE) goto l8442; /* x121528 */ /* x121527 */ /* x121526 stalin.sc:14259:502150 */ t56531 = (struct structure_type24753 *)FALSE_TYPE; goto l8443; l8442: /* x121534 */ /* x121533 */ t56545 = e13437; p13442 = t56545; /* x121532 stalin.sc:14260:502164 */ /* x121530 stalin.sc:14260:502170 */ t56546 = p13442->a25221; /* x121531 stalin.sc:14260:502179 */ t56547 = a25222; /* x269104 stalin.sc:14260:502165 */ t56531 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56531==NULL) {backtrace("stalin.sc", 14260, 502164); out_of_memory_error();} t56531->s0 = t56546; /* MOVE: branching squeezed to general */ if (t56547>=((struct structure_type24753 *)VALUE_OFFSET)) {t56531->s1.tag = STRUCTURE_TYPE24753; t56531->s1.value.structure_type24753 = t56547;} else t56531->s1.tag = (unsigned)t56547; l8443: l8440: l8437: /* x121553 stalin.sc:14266:502357 */ a25224 = t56530; a25225 = t56531; goto h13443; l8418: /* x121496 */ /* x121495 */ /* x121494 stalin.sc:14286:503057 */ return (struct structure_type24753 *)FALSE_TYPE;} /* C:MATCH?[13424] */ unsigned f13424(struct w49 a25207, struct w49 a25208) {struct structure_type24753 *t56561; struct w49 t56562; struct w49 t56563; /* x121583 */ /* x121582 */ /* x121581 */ /* x121580 */ /* x121579 */ /* x121578 */ /* x121577 */ /* x121301 */ /* x121300 stalin.sc:14287:503064 */ /* x121300 stalin.sc:14287:503064 */ /* x121299 stalin.sc:14287:503069 */ /* x121297 stalin.sc:14287:503074 */ /* x121295 stalin.sc:14287:503083 */ t56562 = a25207; /* x121296 stalin.sc:14287:503086 */ t56563 = a25208; /* x121294 stalin.sc:14287:503075 */ t56561 = f13427(t56562, t56563); /* x121298 stalin.sc:14287:503090 */ /* x269141 stalin.sc:14287:503070 */ if (t56561==((struct structure_type24753 *)FALSE_TYPE)) goto l8445; return TRUE_TYPE; l8445: return FALSE_TYPE;} /* C:STRIP[13419] */ struct w49 f13419(struct w49 a25206) {struct w49 t56564; struct w49 t56565; struct w49 t56566; struct w49 t56567; struct w49 t56568; struct w49 t56569; struct w49 t56570; struct w49 t56571; struct w49 t56572; h13419: /* x121289 stalin.sc:14243:501640 */ /* x121256 stalin.sc:14243:501647 */ /* x121255 stalin.sc:14243:501661 */ t56564 = a25206; /* x121254 stalin.sc:14243:501648 */ if (f13415(t56564)==FALSE_TYPE) goto l8448; /* x121263 */ /* x121262 */ /* x121261 stalin.sc:14243:501664 */ /* x121260 stalin.sc:14243:501673 */ /* x121259 stalin.sc:14243:501681 */ t56572 = a25206; /* x121258 stalin.sc:14243:501674 */ t56571 = f26181(t56572); /* x121257 stalin.sc:14243:501665 */ a25206 = t56571; goto h13419; l8448: /* x121288 */ /* x121266 stalin.sc:14244:501694 */ /* x121265 stalin.sc:14244:501706 */ t56565 = a25206; /* x121264 stalin.sc:14244:501695 */ if (f13411(t56565)==FALSE_TYPE) goto l8450; /* x121273 */ /* x121272 */ /* x121271 stalin.sc:14244:501709 */ /* x121270 stalin.sc:14244:501718 */ /* x121269 stalin.sc:14244:501726 */ t56570 = a25206; /* x121268 stalin.sc:14244:501719 */ t56569 = f26181(t56570); /* x121267 stalin.sc:14244:501710 */ a25206 = t56569; goto h13419; l8450: /* x121287 */ /* x121276 stalin.sc:14245:501739 */ /* x121275 stalin.sc:14245:501755 */ t56566 = a25206; /* x121274 stalin.sc:14245:501740 */ if (f13416(t56566)==FALSE_TYPE) goto l8452; /* x121283 */ /* x121282 */ /* x121281 stalin.sc:14245:501758 */ /* x121280 stalin.sc:14245:501767 */ /* x121279 stalin.sc:14245:501775 */ t56568 = a25206; /* x121278 stalin.sc:14245:501768 */ t56567 = f26181(t56568); /* x121277 stalin.sc:14245:501759 */ a25206 = t56567; goto h13419; l8452: /* x121286 */ /* x121285 */ /* x121284 stalin.sc:14246:501793 */ return a25206;} /* C:PARENTHESES?[13416] */ unsigned f13416(struct w49 a25203) {struct w49 a36170; /* PAIR */ struct w49 a36171; /* PAIR */ struct w49 t56573; struct w49 t56574; struct w49 t56575; struct w49 t56576; struct w49 t56577; struct w49 t56578; struct w49 t56579; int t56580; int t56581; struct w49 t56582; struct w49 t56583; struct w49 t56584; struct w49 t56585; struct w49 t56586; char *t56587; struct w49 t56588; struct w49 t56589; struct w49 t56590; struct w49 t56591; struct w49 t56592; struct w49 t56593; struct w49 t56594; char *t56595; struct w49 t56596; struct w49 t56597; struct w49 t56598; /* x121251 stalin.sc:14233:501364 */ /* x121251 stalin.sc:14233:501364 */ /* x121250 stalin.sc:14233:501368 */ /* x121243 stalin.sc:14233:501373 */ /* x121242 stalin.sc:14233:501387 */ t56573 = a25203; /* x121241 stalin.sc:14233:501374 */ if (f13415(t56573)==FALSE_TYPE) goto l8456; /* x121248 */ /* x121247 stalin.sc:14233:501406 */ /* x121246 stalin.sc:14233:501414 */ t56575 = a25203; /* x121245 stalin.sc:14233:501407 */ t56574 = f26181(t56575); /* x121244 stalin.sc:14233:501391 */ if (!(f13416(t56574)==FALSE_TYPE)) goto l8453; l8456: /* x121238 */ /* x121237 stalin.sc:14234:501424 */ /* x121230 stalin.sc:14234:501429 */ /* x121229 stalin.sc:14234:501441 */ t56576 = a25203; /* x121228 stalin.sc:14234:501430 */ if (f13411(t56576)==FALSE_TYPE) goto l8458; /* x121235 */ /* x121234 stalin.sc:14234:501460 */ /* x121233 stalin.sc:14234:501468 */ t56578 = a25203; /* x121232 stalin.sc:14234:501461 */ t56577 = f26181(t56578); /* x121231 stalin.sc:14234:501445 */ if (!(f13416(t56577)==FALSE_TYPE)) goto l8453; l8458: /* x121225 */ /* x121187 stalin.sc:14235:501483 */ /* x121186 stalin.sc:14235:501490 */ t56579 = a25203; /* x121185 stalin.sc:14235:501484 */ if (f26209(t56579)==FALSE_TYPE) goto l8454; /* x121223 */ /* x121193 stalin.sc:14236:501496 */ /* x121191 stalin.sc:14236:501499 */ /* x121190 stalin.sc:14236:501507 */ t56582 = a25203; /* x121189 stalin.sc:14236:501500 */ t56580 = f26227(t56582); /* x121192 stalin.sc:14236:501510 */ t56581 = 3; /* x269145 stalin.sc:14236:501497 */ if (!(t56580==t56581)) goto l8454; /* x121221 */ /* x121198 stalin.sc:14237:501516 */ /* x121197 stalin.sc:14237:501525 */ /* x121196 stalin.sc:14237:501532 */ t56584 = a25203; /* x121195 stalin.sc:14237:501526 */ a36171 = t56584; /* x276041 */ /* x276040 */ t56585 = a36171; /* x276039 */ if (!((t56585.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30320]"); structure_ref_error();} t56583 = t56585.value.structure_type24753->s0; /* x269144 stalin.sc:14237:501517 */ if (!((t56583.tag)==STRING_TYPE)) goto l8454; /* x121219 */ /* x121204 stalin.sc:14238:501539 */ /* x121203 stalin.sc:14238:501559 */ t56587 = "("; /* x121202 stalin.sc:14238:501549 */ /* x121201 stalin.sc:14238:501556 */ t56590 = a25203; /* x121200 stalin.sc:14238:501550 */ a36170 = t56590; /* x276037 */ /* x276036 */ t56591 = a36170; /* x276035 */ if (!((t56591.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30319]"); structure_ref_error();} t56586 = t56591.value.structure_type24753->s0; /* x121199 stalin.sc:14238:501540 */ t56588 = t56586; t56589.tag = STRING_TYPE; t56589.value.string_type = t56587; if (f27434(t56588, t56589)==FALSE_TYPE) goto l8454; /* x121217 */ /* x121209 stalin.sc:14239:501567 */ /* x121208 stalin.sc:14239:501576 */ /* x121207 stalin.sc:14239:501583 */ t56593 = a25203; /* x121206 stalin.sc:14239:501577 */ t56592 = f26187(t56593); /* x269143 stalin.sc:14239:501568 */ if (!((t56592.tag)==STRING_TYPE)) goto l8454; /* x121215 */ /* x121214 stalin.sc:14240:501610 */ t56595 = ")"; /* x121213 stalin.sc:14240:501600 */ /* x121212 stalin.sc:14240:501607 */ t56598 = a25203; /* x121211 stalin.sc:14240:501601 */ t56594 = f26187(t56598); /* x121210 stalin.sc:14240:501591 */ t56596 = t56594; t56597.tag = STRING_TYPE; t56597.value.string_type = t56595; if (f27434(t56596, t56597)==FALSE_TYPE) goto l8454; l8453: return TRUE_TYPE; l8454: return FALSE_TYPE;} /* C:NO-RETURN?[13415] */ unsigned f13415(struct w49 a25202) {struct w49 a36173; /* PAIR */ struct w49 t56599; int t56600; int t56601; struct w49 t56602; struct w49 t56603; char *t56604; struct w49 t56605; struct w49 t56606; /* x121178 stalin.sc:14230:501272 */ /* x121178 stalin.sc:14230:501272 */ /* x121162 stalin.sc:14230:501277 */ /* x121161 stalin.sc:14230:501284 */ t56599 = a25202; /* x121160 stalin.sc:14230:501278 */ if (f26209(t56599)==FALSE_TYPE) goto l8466; /* x121176 */ /* x121168 stalin.sc:14230:501287 */ /* x121166 stalin.sc:14230:501290 */ /* x121165 stalin.sc:14230:501298 */ t56602 = a25202; /* x121164 stalin.sc:14230:501291 */ t56600 = f26227(t56602); /* x121167 stalin.sc:14230:501301 */ t56601 = 2; /* x269147 stalin.sc:14230:501288 */ if (!(t56600==t56601)) goto l8466; /* x121174 */ /* x121172 stalin.sc:14230:501309 */ /* x121171 stalin.sc:14230:501316 */ t56605 = a25202; /* x121170 stalin.sc:14230:501310 */ a36173 = t56605; /* x276049 */ /* x276048 */ t56606 = a36173; /* x276047 */ if (!((t56606.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30322]"); structure_ref_error();} t56603 = t56606.value.structure_type24753->s0; /* x121173 stalin.sc:14230:501319 */ t56604 = q201; /* x269146 stalin.sc:14230:501305 */ if (!(((t56603.tag)==EXTERNAL_SYMBOL_TYPE)&&((t56603.value.external_symbol_type)==t56604))) goto l8466; return TRUE_TYPE; l8466: return FALSE_TYPE;} /* C:PROTECTED?[13412] */ unsigned f13412(struct w49 a25199) {struct w49 t56607; char *t56608; struct w49 t56609; struct w49 t56610; struct structure_type24753 *t56611; struct w49 t56612; struct structure_type24753 *t56613; h13412: /* x121157 stalin.sc:14226:501148 */ /* x121157 stalin.sc:14226:501148 */ /* x121156 stalin.sc:14226:501152 */ /* x121154 stalin.sc:14226:501157 */ t56607 = a25199; /* x121155 stalin.sc:14226:501159 */ t56608 = q200; /* x269148 stalin.sc:14226:501153 */ if (((t56607.tag)==EXTERNAL_SYMBOL_TYPE)&&((t56607.value.external_symbol_type)==t56608)) goto l8470; /* x121150 */ /* x121133 stalin.sc:14227:501181 */ /* x121132 stalin.sc:14227:501188 */ t56609 = a25199; /* x269151 stalin.sc:14227:501182 */ if (!((t56609.tag)==STRUCTURE_TYPE24753)) goto l8471; /* x121148 */ /* x121147 stalin.sc:14227:501195 */ /* x121146 stalin.sc:14227:501209 */ /* x121145 stalin.sc:14227:501214 */ t56611 = a25199.value.structure_type24753; /* x269149 stalin.sc:14227:501210 */ t56610 = t56611->s0; /* x121143 stalin.sc:14227:501196 */ if (!(f13412(t56610)==FALSE_TYPE)) goto l8470; /* x121140 */ /* x121139 stalin.sc:14227:501232 */ /* x121138 stalin.sc:14227:501237 */ t56613 = a25199.value.structure_type24753; /* x269150 stalin.sc:14227:501233 */ t56612 = t56613->s1; /* x121136 stalin.sc:14227:501219 */ a25199 = t56612; goto h13412; l8470: return TRUE_TYPE; l8471: return FALSE_TYPE;} /* C:PROTECT?[13411] */ unsigned f13411(struct w49 a25198) {struct w49 a36172; /* PAIR */ struct w49 t56614; int t56615; int t56616; struct w49 t56617; struct w49 t56618; char *t56619; struct w49 t56620; struct w49 t56621; /* x121126 stalin.sc:14223:501060 */ /* x121126 stalin.sc:14223:501060 */ /* x121110 stalin.sc:14223:501065 */ /* x121109 stalin.sc:14223:501072 */ t56614 = a25198; /* x121108 stalin.sc:14223:501066 */ if (f26209(t56614)==FALSE_TYPE) goto l8477; /* x121124 */ /* x121116 stalin.sc:14223:501075 */ /* x121114 stalin.sc:14223:501078 */ /* x121113 stalin.sc:14223:501086 */ t56617 = a25198; /* x121112 stalin.sc:14223:501079 */ t56615 = f26227(t56617); /* x121115 stalin.sc:14223:501089 */ t56616 = 2; /* x269153 stalin.sc:14223:501076 */ if (!(t56615==t56616)) goto l8477; /* x121122 */ /* x121120 stalin.sc:14223:501097 */ /* x121119 stalin.sc:14223:501104 */ t56620 = a25198; /* x121118 stalin.sc:14223:501098 */ a36172 = t56620; /* x276045 */ /* x276044 */ t56621 = a36172; /* x276043 */ if (!((t56621.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30321]"); structure_ref_error();} t56618 = t56621.value.structure_type24753->s0; /* x121121 stalin.sc:14223:501107 */ t56619 = q200; /* x269152 stalin.sc:14223:501093 */ if (!(((t56618.tag)==EXTERNAL_SYMBOL_TYPE)&&((t56618.value.external_symbol_type)==t56619))) goto l8477; return TRUE_TYPE; l8477: return FALSE_TYPE;} /* C:DECLARATION?[13410] */ unsigned f13410(struct w49 a25197) {struct w49 a35852; /* PAIR */ struct w49 t56622; int t56623; int t56624; struct w49 t56625; struct w49 t56626; char *t56627; struct w49 t56628; struct w49 t56629; /* x121105 stalin.sc:14220:500970 */ /* x121105 stalin.sc:14220:500970 */ /* x121089 stalin.sc:14220:500975 */ /* x121088 stalin.sc:14220:500982 */ t56622 = a25197; /* x121087 stalin.sc:14220:500976 */ if (f26209(t56622)==FALSE_TYPE) goto l8482; /* x121103 */ /* x121095 stalin.sc:14220:500985 */ /* x121093 stalin.sc:14220:500988 */ /* x121092 stalin.sc:14220:500996 */ t56625 = a25197; /* x121091 stalin.sc:14220:500989 */ t56623 = f26227(t56625); /* x121094 stalin.sc:14220:500999 */ t56624 = 4; /* x269155 stalin.sc:14220:500986 */ if (!(t56623==t56624)) goto l8482; /* x121101 */ /* x121099 stalin.sc:14220:501007 */ /* x121098 stalin.sc:14220:501014 */ t56628 = a25197; /* x121097 stalin.sc:14220:501008 */ a35852 = t56628; /* x274765 */ /* x274764 */ t56629 = a35852; /* x274763 */ if (!((t56629.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30001]"); structure_ref_error();} t56626 = t56629.value.structure_type24753->s0; /* x121100 stalin.sc:14220:501017 */ t56627 = q199; /* x269154 stalin.sc:14220:501003 */ if (!(((t56626.tag)==EXTERNAL_SYMBOL_TYPE)&&((t56626.value.external_symbol_type)==t56627))) goto l8482; return TRUE_TYPE; l8482: return FALSE_TYPE;} unsigned f13407(struct w49 a25194) {struct w49 a36167; /* PAIR */ struct w49 a36168; /* PAIR */ struct w49 a36169; /* PAIR */ struct w49 t56630; struct w49 t56631; struct w49 t56632; struct structure_type24753 *t56633; struct w49 t56634; struct structure_type24753 *t56635; struct w49 t56636; int t56637; int t56638; struct w49 t56639; struct w49 t56640; struct w49 t56641; struct w49 t56642; struct w49 t56643; char *t56644; struct w49 t56645; struct w49 t56646; struct w49 t56647; struct w49 t56648; struct w49 t56649; struct w49 t56650; struct w49 t56651; char *t56652; struct w49 t56653; struct w49 t56654; struct w49 t56655; struct w49 t56656; struct w49 t56657; int t56658; int t56659; struct w49 t56660; struct w49 t56661; struct w49 t56662; struct w49 t56663; struct w49 t56664; struct w49 t56665; struct w49 t56666; struct w49 t56667; struct w49 t56668; struct w49 t56669; char *t56670; struct w49 t56671; struct w49 t56672; struct w49 t56673; struct w49 t56674; struct w49 t56675; struct w49 t56676; struct w49 t56677; struct w49 t56678; char *t56679; struct w49 t56680; struct w49 t56681; struct w49 t56682; struct w49 t56683; /* x121084 stalin.sc:14203:500497 */ /* x121084 stalin.sc:14203:500497 */ /* x121083 stalin.sc:14203:500501 */ /* x121082 stalin.sc:14203:500516 */ t56630 = a25194; /* x121081 stalin.sc:14203:500502 */ if (!(f13402(t56630)==FALSE_TYPE)) goto l8486; /* x121078 */ /* x121077 stalin.sc:14204:500524 */ /* x121063 stalin.sc:14204:500529 */ /* x121062 stalin.sc:14204:500536 */ t56631 = a25194; /* x269158 stalin.sc:14204:500530 */ if (!((t56631.tag)==STRUCTURE_TYPE24753)) goto l8490; /* x121075 */ /* x121068 stalin.sc:14204:500539 */ /* x121067 stalin.sc:14204:500548 */ /* x121066 stalin.sc:14204:500553 */ t56633 = a25194.value.structure_type24753; /* x269157 stalin.sc:14204:500549 */ t56632 = t56633->s0; /* x121064 stalin.sc:14204:500540 */ if (f13407(t56632)==FALSE_TYPE) goto l8490; /* x121073 */ /* x121072 stalin.sc:14204:500566 */ /* x121071 stalin.sc:14204:500571 */ t56635 = a25194.value.structure_type24753; /* x269156 stalin.sc:14204:500567 */ t56634 = t56635->s1; /* x121069 stalin.sc:14204:500558 */ if (!(f13407(t56634)==FALSE_TYPE)) goto l8486; l8490: /* x121058 */ /* x120956 stalin.sc:14205:500586 */ /* x120955 stalin.sc:14205:500593 */ t56636 = a25194; /* x120954 stalin.sc:14205:500587 */ if (f26209(t56636)==FALSE_TYPE) goto l8487; /* x121056 */ /* x120962 stalin.sc:14206:500599 */ /* x120960 stalin.sc:14206:500602 */ /* x120959 stalin.sc:14206:500610 */ t56639 = a25194; /* x120958 stalin.sc:14206:500603 */ t56637 = f26227(t56639); /* x120961 stalin.sc:14206:500613 */ t56638 = 3; /* x269165 stalin.sc:14206:500600 */ if (!(t56637==t56638)) goto l8487; /* x121054 */ /* x120967 stalin.sc:14207:500619 */ /* x120966 stalin.sc:14207:500628 */ /* x120965 stalin.sc:14207:500635 */ t56641 = a25194; /* x120964 stalin.sc:14207:500629 */ a36169 = t56641; /* x276033 */ /* x276032 */ t56642 = a36169; /* x276031 */ if (!((t56642.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30318]"); structure_ref_error();} t56640 = t56642.value.structure_type24753->s0; /* x269164 stalin.sc:14207:500620 */ if (!((t56640.tag)==STRING_TYPE)) goto l8487; /* x121052 */ /* x120973 stalin.sc:14208:500642 */ /* x120972 stalin.sc:14208:500662 */ t56644 = "/*"; /* x120971 stalin.sc:14208:500652 */ /* x120970 stalin.sc:14208:500659 */ t56647 = a25194; /* x120969 stalin.sc:14208:500653 */ a36168 = t56647; /* x276029 */ /* x276028 */ t56648 = a36168; /* x276027 */ if (!((t56648.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30317]"); structure_ref_error();} t56643 = t56648.value.structure_type24753->s0; /* x120968 stalin.sc:14208:500643 */ t56645 = t56643; t56646.tag = STRING_TYPE; t56646.value.string_type = t56644; if (f27434(t56645, t56646)==FALSE_TYPE) goto l8487; /* x121050 */ /* x120978 stalin.sc:14209:500671 */ /* x120977 stalin.sc:14209:500680 */ /* x120976 stalin.sc:14209:500688 */ t56650 = a25194; /* x120975 stalin.sc:14209:500681 */ t56649 = f26181(t56650); /* x269163 stalin.sc:14209:500672 */ if (!((t56649.tag)==STRING_TYPE)) goto l8487; /* x121048 */ /* x120984 stalin.sc:14210:500695 */ /* x120983 stalin.sc:14210:500716 */ t56652 = " "; /* x120982 stalin.sc:14210:500705 */ /* x120981 stalin.sc:14210:500713 */ t56655 = a25194; /* x120980 stalin.sc:14210:500706 */ t56651 = f26181(t56655); /* x120979 stalin.sc:14210:500696 */ t56653 = t56651; t56654.tag = STRING_TYPE; t56654.value.string_type = t56652; if (f27434(t56653, t56654)==FALSE_TYPE) goto l8487; /* x121046 */ /* x120989 stalin.sc:14211:500724 */ /* x120988 stalin.sc:14211:500731 */ /* x120987 stalin.sc:14211:500738 */ t56657 = a25194; /* x120986 stalin.sc:14211:500732 */ t56656 = f26187(t56657); /* x120985 stalin.sc:14211:500725 */ if (f26209(t56656)==FALSE_TYPE) goto l8487; /* x121044 */ /* x120997 stalin.sc:14212:500745 */ /* x120995 stalin.sc:14212:500748 */ /* x120994 stalin.sc:14212:500756 */ /* x120993 stalin.sc:14212:500763 */ t56661 = a25194; /* x120992 stalin.sc:14212:500757 */ t56660 = f26187(t56661); /* x120991 stalin.sc:14212:500749 */ t56658 = f26227(t56660); /* x120996 stalin.sc:14212:500767 */ t56659 = 3; /* x269162 stalin.sc:14212:500746 */ if (!(t56658==t56659)) goto l8487; /* x121042 */ /* x121004 stalin.sc:14213:500773 */ /* x121003 stalin.sc:14213:500782 */ /* x121002 stalin.sc:14213:500789 */ /* x121001 stalin.sc:14213:500796 */ t56665 = a25194; /* x121000 stalin.sc:14213:500790 */ t56663 = f26187(t56665); /* x120999 stalin.sc:14213:500783 */ a36167 = t56663; /* x276025 */ /* x276024 */ t56664 = a36167; /* x276023 */ if (!((t56664.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30316]"); structure_ref_error();} t56662 = t56664.value.structure_type24753->s0; /* x269161 stalin.sc:14213:500774 */ if (!((t56662.tag)==STRING_TYPE)) goto l8487; /* x121040 */ /* x121011 stalin.sc:14214:500804 */ /* x121010 stalin.sc:14214:500813 */ /* x121009 stalin.sc:14214:500821 */ /* x121008 stalin.sc:14214:500828 */ t56668 = a25194; /* x121007 stalin.sc:14214:500822 */ t56667 = f26187(t56668); /* x121006 stalin.sc:14214:500814 */ t56666 = f26181(t56667); /* x269160 stalin.sc:14214:500805 */ if (!((t56666.tag)==STRING_TYPE)) goto l8487; /* x121038 */ /* x121019 stalin.sc:14215:500836 */ /* x121018 stalin.sc:14215:500865 */ t56670 = " "; /* x121017 stalin.sc:14215:500846 */ /* x121016 stalin.sc:14215:500854 */ /* x121015 stalin.sc:14215:500861 */ t56674 = a25194; /* x121014 stalin.sc:14215:500855 */ t56673 = f26187(t56674); /* x121013 stalin.sc:14215:500847 */ t56669 = f26181(t56673); /* x121012 stalin.sc:14215:500837 */ t56671 = t56669; t56672.tag = STRING_TYPE; t56672.value.string_type = t56670; if (f27434(t56671, t56672)==FALSE_TYPE) goto l8487; /* x121036 */ /* x121026 stalin.sc:14216:500873 */ /* x121025 stalin.sc:14216:500882 */ /* x121024 stalin.sc:14216:500889 */ /* x121023 stalin.sc:14216:500896 */ t56677 = a25194; /* x121022 stalin.sc:14216:500890 */ t56676 = f26187(t56677); /* x121021 stalin.sc:14216:500883 */ t56675 = f26187(t56676); /* x269159 stalin.sc:14216:500874 */ if (!((t56675.tag)==STRING_TYPE)) goto l8487; /* x121034 */ /* x121033 stalin.sc:14217:500932 */ t56679 = "*/"; /* x121032 stalin.sc:14217:500914 */ /* x121031 stalin.sc:14217:500921 */ /* x121030 stalin.sc:14217:500928 */ t56683 = a25194; /* x121029 stalin.sc:14217:500922 */ t56682 = f26187(t56683); /* x121028 stalin.sc:14217:500915 */ t56678 = f26187(t56682); /* x121027 stalin.sc:14217:500905 */ t56680 = t56678; t56681.tag = STRING_TYPE; t56681.value.string_type = t56679; if (f27434(t56680, t56681)==FALSE_TYPE) goto l8487; l8486: return TRUE_TYPE; l8487: return FALSE_TYPE;} /* C:WHITESPACE?[13402] */ unsigned f13402(struct w49 a25189) {struct w49 t56684; struct w49 t56685; struct structure_type24753 *t56686; struct w49 t56687; struct structure_type24753 *t56688; struct w49 t56689; struct w49 t56690; char t56691; char t56692; struct w49 t56693; char t56694; struct w49 t56695; char *t56696; char *t56697; struct w49 t56698; struct w49 t56699; char *t56700; char *t56701; struct w49 t56702; struct w49 t56703; /* x120947 stalin.sc:14197:500287 */ /* x120947 stalin.sc:14197:500287 */ /* x120946 stalin.sc:14197:500291 */ /* x120932 stalin.sc:14197:500296 */ /* x120931 stalin.sc:14197:500303 */ t56684 = a25189; /* x269168 stalin.sc:14197:500297 */ if (!((t56684.tag)==STRUCTURE_TYPE24753)) goto l8508; /* x120944 */ /* x120937 stalin.sc:14197:500306 */ /* x120936 stalin.sc:14197:500321 */ /* x120935 stalin.sc:14197:500326 */ t56686 = a25189.value.structure_type24753; /* x269167 stalin.sc:14197:500322 */ t56685 = t56686->s0; /* x120933 stalin.sc:14197:500307 */ if (f13402(t56685)==FALSE_TYPE) goto l8508; /* x120942 */ /* x120941 stalin.sc:14197:500345 */ /* x120940 stalin.sc:14197:500350 */ t56688 = a25189.value.structure_type24753; /* x269166 stalin.sc:14197:500346 */ t56687 = t56688->s1; /* x120938 stalin.sc:14197:500331 */ if (!(f13402(t56687)==FALSE_TYPE)) goto l8505; l8508: /* x120927 */ /* x120926 stalin.sc:14198:500360 */ /* x120925 stalin.sc:14198:500367 */ t56689 = a25189; /* x269169 stalin.sc:14198:500361 */ if ((t56689.tag)==NULL_TYPE) goto l8505; /* x120921 */ /* x120920 stalin.sc:14199:500375 */ /* x120914 stalin.sc:14199:500380 */ /* x120913 stalin.sc:14199:500387 */ t56690 = a25189; /* x269170 stalin.sc:14199:500381 */ if (!((t56690.tag)>2); /* x120915 stalin.sc:14199:500391 */ t56693.tag = ((unsigned)((unsigned char)t56691))<<2; t56694 = t56692; if (!(f27342(t56693, t56694)==FALSE_TYPE)) goto l8505; l8512: /* x120909 */ /* x120894 stalin.sc:14200:500422 */ /* x120893 stalin.sc:14200:500431 */ t56695 = a25189; /* x269171 stalin.sc:14200:500423 */ if (!((t56695.tag)==STRING_TYPE)) goto l8506; /* x120907 */ /* x120906 stalin.sc:14200:500438 */ /* x120905 stalin.sc:14200:500450 */ t56697 = ""; /* x120904 stalin.sc:14200:500448 */ t56696 = a25189.value.string_type; /* x120903 stalin.sc:14200:500439 */ t56698.tag = STRING_TYPE; t56698.value.string_type = t56696; t56699.tag = STRING_TYPE; t56699.value.string_type = t56697; if (!(f27434(t56698, t56699)==FALSE_TYPE)) goto l8505; /* x120900 */ /* x120899 stalin.sc:14200:500466 */ t56701 = " "; /* x120898 stalin.sc:14200:500464 */ t56700 = a25189.value.string_type; /* x120897 stalin.sc:14200:500455 */ t56702.tag = STRING_TYPE; t56702.value.string_type = t56700; t56703.tag = STRING_TYPE; t56703.value.string_type = t56701; if (f27434(t56702, t56703)==FALSE_TYPE) goto l8506; l8505: return TRUE_TYPE; l8506: return FALSE_TYPE;} /* C:NOOP?[13399] */ unsigned f13399(struct w49 a25186) {struct w49 t56704; struct w49 t56705; struct structure_type24753 *t56706; struct w49 t56707; struct structure_type24753 *t56708; struct w49 t56709; struct w49 t56710; int t56711; char *t56712; /* x120883 stalin.sc:14192:500137 */ /* x120883 stalin.sc:14192:500137 */ /* x120882 stalin.sc:14192:500141 */ /* x120868 stalin.sc:14192:500146 */ /* x120867 stalin.sc:14192:500153 */ t56704 = a25186; /* x269174 stalin.sc:14192:500147 */ if (!((t56704.tag)==STRUCTURE_TYPE24753)) goto l8519; /* x120880 */ /* x120873 stalin.sc:14192:500156 */ /* x120872 stalin.sc:14192:500165 */ /* x120871 stalin.sc:14192:500170 */ t56706 = a25186.value.structure_type24753; /* x269173 stalin.sc:14192:500166 */ t56705 = t56706->s0; /* x120869 stalin.sc:14192:500157 */ if (f13399(t56705)==FALSE_TYPE) goto l8519; /* x120878 */ /* x120877 stalin.sc:14192:500183 */ /* x120876 stalin.sc:14192:500188 */ t56708 = a25186.value.structure_type24753; /* x269172 stalin.sc:14192:500184 */ t56707 = t56708->s1; /* x120874 stalin.sc:14192:500175 */ if (!(f13399(t56707)==FALSE_TYPE)) goto l8516; l8519: /* x120863 */ /* x120862 stalin.sc:14193:500198 */ /* x120861 stalin.sc:14193:500205 */ t56709 = a25186; /* x269175 stalin.sc:14193:500199 */ if ((t56709.tag)==NULL_TYPE) goto l8516; /* x120857 */ /* x120850 stalin.sc:14194:500218 */ /* x120849 stalin.sc:14194:500227 */ t56710 = a25186; /* x269178 stalin.sc:14194:500219 */ if (!((t56710.tag)==STRING_TYPE)) goto l8517; /* x120855 */ /* x120854 stalin.sc:14194:500237 */ /* x120853 stalin.sc:14194:500252 */ t56712 = a25186.value.string_type; /* x269176 stalin.sc:14194:500238 */ t56711 = strlen(t56712); /* x269177 stalin.sc:14194:500231 */ if (!(t56711==0)) goto l8517; l8516: return TRUE_TYPE; l8517: return FALSE_TYPE;} /* PRINT-MAXIMAL-CLONE-RATE[13380] */ void f13380(void) {char *t56713; struct w49 t56714; struct w49 t56715; struct structure_type24753 *t56716; struct structure_type24753 *t56717; int t56718; unsigned t56719; struct w49 t56720; struct w228463 t56721; struct structure_type24753 *t56722; struct w36270 t56723; struct w49 t56724; struct structure_type24753 *t56725; struct structure_type24753 *t56726; struct w49 t56727; struct w12224 t56728; struct w36270 t56729; struct w49 t56730; struct structure_type24753 *t56731; struct w21193 t56732; struct w227671 t56733; struct w49 t56734; /* x120432 stalin.sc:14021:495081 */ /* x120431 stalin.sc:14022:495118 */ /* x120417 stalin.sc:14023:495129 */ /* x120429 stalin.sc:14024:495136 */ /* x120428 stalin.sc:14025:495156 */ /* x120427 stalin.sc:14026:495180 */ /* x120426 stalin.sc:14026:495200 */ /* x120424 stalin.sc:14026:495215 */ /* x120425 stalin.sc:14026:495233 */ t56732 = a1594; /* x120423 stalin.sc:14026:495201 */ t56733.tag = NATIVE_PROCEDURE_TYPE7287; t56734 = *((struct w49 *)(&t56732)); t56728 = f1226(t56733, t56734); /* x120422 stalin.sc:14026:495185 */ /* x120421 stalin.sc:14026:495181 */ t56729.tag = NATIVE_PROCEDURE_TYPE7216; t56730 = *((struct w49 *)(&t56728)); t56731 = (struct structure_type24753 *)NULL_TYPE; t56726 = f27731(t56729, t56730, t56731); /* x120420 stalin.sc:14025:495157 */ /* MOVE: branching squeezed to general */ if (t56726>=((struct structure_type24753 *)VALUE_OFFSET)) {t56727.tag = STRUCTURE_TYPE24753; t56727.value.structure_type24753 = t56726;} else t56727.tag = (unsigned)t56726; t56722 = f1518(t56727); /* x120419 stalin.sc:14024:495141 */ /* x120418 stalin.sc:14024:495137 */ t56723.tag = NATIVE_PROCEDURE_TYPE458; /* MOVE: branching squeezed to general */ if (t56722>=((struct structure_type24753 *)VALUE_OFFSET)) {t56724.tag = STRUCTURE_TYPE24753; t56724.value.structure_type24753 = t56722;} else t56724.tag = (unsigned)t56722; t56725 = (struct structure_type24753 *)NULL_TYPE; t56717 = f27731(t56723, t56724, t56725); /* x120430 stalin.sc:14027:495245 */ t56718 = 0; /* x120416 stalin.sc:14022:495119 */ t56719 = NATIVE_PROCEDURE_TYPE416; /* MOVE: branching squeezed to general */ if (t56717>=((struct structure_type24753 *)VALUE_OFFSET)) {t56720.tag = STRUCTURE_TYPE24753; t56720.value.structure_type24753 = t56717;} else t56720.tag = (unsigned)t56717; t56721.tag = FIXNUM_TYPE; t56721.value.fixnum_type = t56718; t56714 = f1006(t56719, t56720, t56721); /* x120415 stalin.sc:14021:495089 */ t56713 = "Maximal clone rate is ~s"; /* x120414 stalin.sc:14021:495082 */ t56715.tag = STRING_TYPE; t56715.value.string_type = t56713; t56716 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56716==NULL) {backtrace("stalin.sc", 14021, 495081); out_of_memory_error();} t56716->s0 = t56714; t56716->s1.tag = NULL_TYPE; f5365(t56715, t56716); return;} /* PRINT-MAXIMAL-NON-LET-LEXICAL-NESTING-DEPTH[13379] */ void f13379(void) {char *t56735; struct w49 t56736; struct w49 t56737; struct structure_type24753 *t56738; struct structure_type24753 *t56739; int t56740; unsigned t56741; struct w49 t56742; struct w228463 t56743; struct w12224 t56744; struct w36270 t56745; struct w49 t56746; struct structure_type24753 *t56747; struct w21193 t56748; struct w227671 t56749; struct w49 t56750; /* x120411 stalin.sc:14014:494882 */ /* x120410 stalin.sc:14015:494938 */ /* x120401 stalin.sc:14015:494946 */ /* x120408 stalin.sc:14016:494953 */ /* x120407 stalin.sc:14017:494996 */ /* x120405 stalin.sc:14017:495011 */ /* x120406 stalin.sc:14017:495029 */ t56748 = a1594; /* x120404 stalin.sc:14017:494997 */ t56749.tag = NATIVE_PROCEDURE_TYPE7287; t56750 = *((struct w49 *)(&t56748)); t56744 = f1226(t56749, t56750); /* x120403 stalin.sc:14016:494958 */ /* x120402 stalin.sc:14016:494954 */ t56745.tag = NATIVE_PROCEDURE_TYPE7251; t56746 = *((struct w49 *)(&t56744)); t56747 = (struct structure_type24753 *)NULL_TYPE; t56739 = f27731(t56745, t56746, t56747); /* x120409 stalin.sc:14018:495039 */ t56740 = 0; /* x120400 stalin.sc:14015:494939 */ t56741 = NATIVE_PROCEDURE_TYPE416; /* MOVE: branching squeezed to general */ if (t56739>=((struct structure_type24753 *)VALUE_OFFSET)) {t56742.tag = STRUCTURE_TYPE24753; t56742.value.structure_type24753 = t56739;} else t56742.tag = (unsigned)t56739; t56743.tag = FIXNUM_TYPE; t56743.value.fixnum_type = t56740; t56736 = f1006(t56741, t56742, t56743); /* x120399 stalin.sc:14014:494890 */ t56735 = "Maximal non-LET lexical nesting depth is ~s"; /* x120398 stalin.sc:14014:494883 */ t56737.tag = STRING_TYPE; t56737.value.string_type = t56735; t56738 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56738==NULL) {backtrace("stalin.sc", 14014, 494882); out_of_memory_error();} t56738->s0 = t56736; t56738->s1.tag = NULL_TYPE; f5365(t56737, t56738); return;} /* PRINT-NUMBER-OF-CALL-SITES-THAT-DISPATCH-ON-CLONES[13373] */ void f13373(void) {int a25160; /* N */ int t56751; char *t56752; int t56753; char *t56754; struct w49 t56755; struct structure_type24753 *t56756; struct w49 t56757; int t56758; int t56759; struct w21193 t56760; struct p11483 *t56761; /* x120395 stalin.sc:13993:494288 */ /* x120394 stalin.sc:13993:494297 */ /* x120392 stalin.sc:13994:494311 */ /* x120393 stalin.sc:14009:494730 */ t56760 = a2030; /* x120337 stalin.sc:13993:494298 */ t56761 = (struct p11483 *)NATIVE_PROCEDURE_TYPE15642; t56751 = f1362(t56761, t56760); /* x120336 */ a25160 = t56751; /* x120335 stalin.sc:14010:494743 */ /* x120334 stalin.sc:14011:494783 */ /* x120331 stalin.sc:14011:494787 */ /* x120329 stalin.sc:14011:494790 */ t56758 = a25160; /* x120330 stalin.sc:14011:494792 */ t56759 = 1; /* x269181 stalin.sc:14011:494788 */ if (!(t56758==t56759)) goto l8525; /* x120332 stalin.sc:14011:494795 */ t56754 = " dispatches"; goto l8526; l8525: /* x120333 stalin.sc:14011:494809 */ t56754 = "s dispatch"; l8526: /* x120327 stalin.sc:14011:494781 */ t56753 = a25160; /* x120326 stalin.sc:14011:494754 */ t56752 = "~s call site~a on clones"; /* x120325 stalin.sc:14010:494744 */ t56755.tag = STRING_TYPE; t56755.value.string_type = t56752; t56757.tag = STRUCTURE_TYPE24753; t56757.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56757.value.structure_type24753)==NULL) {backtrace("stalin.sc", 14010, 494743); out_of_memory_error();} t56757.value.structure_type24753->s0.tag = STRING_TYPE; t56757.value.structure_type24753->s0.value.string_type = t56754; t56757.value.structure_type24753->s1.tag = NULL_TYPE; t56756 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56756==NULL) {backtrace("stalin.sc", 14010, 494743); out_of_memory_error();} t56756->s0.tag = FIXNUM_TYPE; t56756->s0.value.fixnum_type = t56753; t56756->s1 = t56757; f5365(t56755, t56756); return;} /* [inside PRINT-COUNTS 13273] */ unsigned f13273(struct w49 a25124) {struct w49 t56762; /* x118927 stalin.sc:13615:478413 */ /* x118927 stalin.sc:13615:478413 */ /* x118926 stalin.sc:13615:478418 */ /* x118925 stalin.sc:13615:478426 */ t56762 = a25124; /* x118924 stalin.sc:13615:478419 */ if (!(f13055(t56762)==FALSE_TYPE)) goto l8528; return TRUE_TYPE; l8528: return FALSE_TYPE;} /* [inside PRINT-COUNTS 13272] */ unsigned f13272(struct w49 a25123) {struct w49 t56763; struct w49 t56764; /* x118744 stalin.sc:13582:476951 */ /* x118744 stalin.sc:13582:476951 */ /* x118737 stalin.sc:13582:476956 */ /* x118736 stalin.sc:13582:476965 */ t56763 = a25123; /* x118735 stalin.sc:13582:476957 */ if ((f8899(t56763).tag)==FALSE_TYPE) goto l8531; /* x118742 */ /* x118741 stalin.sc:13582:476973 */ /* x118740 stalin.sc:13582:476980 */ t56764 = a25123; /* x118739 stalin.sc:13582:476974 */ if (!(f8918(t56764)==FALSE_TYPE)) goto l8531; return TRUE_TYPE; l8531: return FALSE_TYPE;} /* [inside PRINT-COUNTS 13270] */ unsigned f13270(struct w49 a25121) {struct w49 t56765; struct w49 t56766; /* x118707 stalin.sc:13573:476668 */ /* x118707 stalin.sc:13573:476668 */ /* x118702 stalin.sc:13573:476673 */ /* x118701 stalin.sc:13573:476682 */ t56765 = a25121; /* x118700 stalin.sc:13573:476674 */ if ((f8899(t56765).tag)==FALSE_TYPE) goto l8535; /* x118705 */ /* x118704 stalin.sc:13573:476692 */ t56766 = a25121; /* x118703 stalin.sc:13573:476686 */ if (f8918(t56766)==FALSE_TYPE) goto l8535; return TRUE_TYPE; l8535: return FALSE_TYPE;} /* [inside PRINT-COUNTS 13268] */ unsigned f13268(struct w49 a25119) {struct w49 t56767; /* x118674 stalin.sc:13565:476409 */ /* x118674 stalin.sc:13565:476409 */ /* x118673 stalin.sc:13565:476414 */ /* x118672 stalin.sc:13565:476423 */ t56767 = a25119; /* x118671 stalin.sc:13565:476415 */ if (!((f8899(t56767).tag)==FALSE_TYPE)) goto l8539; return TRUE_TYPE; l8539: return FALSE_TYPE;} /* [inside PRINT-COUNTS 13267] */ unsigned f13267(struct w49 a25118) {struct w49 t56768; /* x118579 stalin.sc:13621:478681 */ /* x118579 stalin.sc:13621:478681 */ /* x118578 stalin.sc:13621:478686 */ /* x118577 stalin.sc:13621:478693 */ t56768 = a25118; /* x118576 stalin.sc:13621:478687 */ if (!(f8918(t56768)==FALSE_TYPE)) goto l8542; return TRUE_TYPE; l8542: return FALSE_TYPE;} /* PRINT-COUNTS[13265] */ void f13265(void) {char *t56769; char *t56770; char *t56771; struct w49 t56772; struct structure_type24753 *t56773; struct w49 t56774; int t56775; int t56776; struct w21193 t56777; unsigned t56778; struct w227393 t56779; struct w21193 t56780; struct w228118 t56781; struct w227393 t56782; char *t56783; char *t56784; char *t56785; struct w49 t56786; struct structure_type24753 *t56787; struct w49 t56788; int t56789; int t56790; struct w21193 t56791; struct w49 t56792; int t56793; int t56794; struct w21193 t56795; struct w49 t56796; char *t56797; char *t56798; char *t56799; struct w49 t56800; struct structure_type24753 *t56801; struct w49 t56802; int t56803; int t56804; struct w21193 t56805; struct w49 t56806; int t56807; int t56808; struct w21193 t56809; struct w49 t56810; char *t56811; char *t56812; char *t56813; struct w49 t56814; struct structure_type24753 *t56815; struct w49 t56816; int t56817; int t56818; struct w21193 t56819; struct w49 t56820; int t56821; int t56822; struct w21193 t56823; struct w49 t56824; char *t56825; char *t56826; char *t56827; struct w49 t56828; struct structure_type24753 *t56829; struct w49 t56830; int t56831; int t56832; struct w21193 t56833; struct w49 t56834; int t56835; int t56836; struct w21193 t56837; struct w49 t56838; char *t56839; char *t56840; char *t56841; struct w49 t56842; struct structure_type24753 *t56843; struct w49 t56844; int t56845; int t56846; struct w21193 t56847; unsigned t56848; struct w227393 t56849; struct w21193 t56850; struct w228118 t56851; struct w227393 t56852; char *t56853; char *t56854; char *t56855; struct w49 t56856; struct structure_type24753 *t56857; struct w49 t56858; int t56859; int t56860; struct w21193 t56861; struct p11483 *t56862; struct w21193 t56863; struct w228118 t56864; struct w227393 t56865; char *t56866; char *t56867; char *t56868; struct w49 t56869; struct structure_type24753 *t56870; struct w49 t56871; int t56872; int t56873; struct w21193 t56874; struct p11483 *t56875; struct w21193 t56876; struct w228118 t56877; struct w227393 t56878; char *t56879; char *t56880; char *t56881; struct w49 t56882; struct structure_type24753 *t56883; struct w49 t56884; int t56885; int t56886; struct w21193 t56887; struct w49 t56888; int t56889; int t56890; struct w21193 t56891; struct w49 t56892; char *t56893; char *t56894; char *t56895; struct w49 t56896; struct structure_type24753 *t56897; struct w49 t56898; int t56899; int t56900; struct w21193 t56901; struct w49 t56902; int t56903; int t56904; struct w21193 t56905; struct w49 t56906; char *t56907; char *t56908; char *t56909; struct w49 t56910; struct structure_type24753 *t56911; struct w49 t56912; int t56913; int t56914; struct w21193 t56915; struct w49 t56916; int t56917; int t56918; struct w21193 t56919; struct w49 t56920; char *t56921; char *t56922; char *t56923; struct w49 t56924; struct structure_type24753 *t56925; struct w49 t56926; int t56927; int t56928; struct w21193 t56929; struct w49 t56930; int t56931; int t56932; struct w21193 t56933; struct w49 t56934; char *t56935; char *t56936; char *t56937; struct w49 t56938; struct structure_type24753 *t56939; struct w49 t56940; int t56941; int t56942; struct w21193 t56943; struct w49 t56944; int t56945; int t56946; struct w21193 t56947; struct w49 t56948; char *t56949; char *t56950; char *t56951; struct w49 t56952; struct structure_type24753 *t56953; struct w49 t56954; int t56955; int t56956; struct w21193 t56957; struct w49 t56958; int t56959; int t56960; struct w21193 t56961; struct w49 t56962; char *t56963; char *t56964; char *t56965; struct w49 t56966; struct structure_type24753 *t56967; struct w49 t56968; int t56969; int t56970; struct w21193 t56971; struct w49 t56972; int t56973; int t56974; struct w21193 t56975; struct w49 t56976; char *t56977; char *t56978; char *t56979; struct w49 t56980; struct structure_type24753 *t56981; struct w49 t56982; int t56983; int t56984; struct w21193 t56985; struct w49 t56986; int t56987; int t56988; struct w21193 t56989; struct w49 t56990; char *t56991; char *t56992; char *t56993; struct w49 t56994; struct structure_type24753 *t56995; struct w49 t56996; int t56997; int t56998; struct w21193 t56999; struct p11483 *t57000; struct w21193 t57001; struct w228118 t57002; struct w227393 t57003; char *t57004; char *t57005; char *t57006; struct w49 t57007; struct structure_type24753 *t57008; struct w49 t57009; int t57010; int t57011; struct w21193 t57012; unsigned t57013; struct w227393 t57014; struct w21193 t57015; struct w228118 t57016; struct w227393 t57017; char *t57018; char *t57019; char *t57020; struct w49 t57021; struct structure_type24753 *t57022; struct w49 t57023; int t57024; int t57025; struct w21193 t57026; struct p11483 *t57027; struct w21193 t57028; struct w228118 t57029; struct w227393 t57030; /* x118952 */ /* x118605 stalin.sc:13550:475672 */ /* x118604 stalin.sc:13552:475745 */ /* x118601 stalin.sc:13552:475749 */ /* x118599 stalin.sc:13552:475752 */ /* x118598 stalin.sc:13552:475760 */ t56795 = a2031; /* x118597 stalin.sc:13552:475753 */ t56796 = *((struct w49 *)(&t56795)); t56793 = f26227(t56796); /* x118600 stalin.sc:13552:475766 */ t56794 = 1; /* x269197 stalin.sc:13552:475750 */ if (!(t56793==t56794)) goto l8548; /* x118602 stalin.sc:13552:475769 */ t56785 = ""; goto l8549; l8548: /* x118603 stalin.sc:13552:475772 */ t56785 = "s"; l8549: /* x118595 stalin.sc:13551:475700 */ /* x118593 stalin.sc:13551:475726 */ /* x118592 stalin.sc:13551:475734 */ t56791 = a2031; /* x118591 stalin.sc:13551:475727 */ t56792 = *((struct w49 *)(&t56791)); t56789 = f26227(t56792); /* x118594 stalin.sc:13551:475740 */ t56790 = 6; /* x118590 stalin.sc:13551:475701 */ t56784 = f976(t56789, t56790); /* x118589 stalin.sc:13550:475680 */ t56783 = "~a expression~a"; /* x118588 stalin.sc:13550:475673 */ t56786.tag = STRING_TYPE; t56786.value.string_type = t56783; t56788.tag = STRUCTURE_TYPE24753; t56788.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56788.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13550, 475672); out_of_memory_error();} t56788.value.structure_type24753->s0.tag = STRING_TYPE; t56788.value.structure_type24753->s0.value.string_type = t56785; t56788.value.structure_type24753->s1.tag = NULL_TYPE; t56787 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56787==NULL) {backtrace("stalin.sc", 13550, 475672); out_of_memory_error();} t56787->s0.tag = STRING_TYPE; t56787->s0.value.string_type = t56784; t56787->s1 = t56788; f5365(t56786, t56787); /* x118623 stalin.sc:13553:475779 */ /* x118622 stalin.sc:13555:475881 */ /* x118619 stalin.sc:13555:475885 */ /* x118617 stalin.sc:13555:475888 */ /* x118616 stalin.sc:13555:475896 */ t56809 = a1948; /* x118615 stalin.sc:13555:475889 */ t56810 = *((struct w49 *)(&t56809)); t56807 = f26227(t56810); /* x118618 stalin.sc:13555:475921 */ t56808 = 1; /* x269196 stalin.sc:13555:475886 */ if (!(t56807==t56808)) goto l8551; /* x118620 stalin.sc:13555:475924 */ t56799 = ""; goto l8552; l8551: /* x118621 stalin.sc:13555:475927 */ t56799 = "s"; l8552: /* x118613 stalin.sc:13554:475817 */ /* x118611 stalin.sc:13554:475843 */ /* x118610 stalin.sc:13554:475851 */ t56805 = a1948; /* x118609 stalin.sc:13554:475844 */ t56806 = *((struct w49 *)(&t56805)); t56803 = f26227(t56806); /* x118612 stalin.sc:13554:475876 */ t56804 = 6; /* x118608 stalin.sc:13554:475818 */ t56798 = f976(t56803, t56804); /* x118607 stalin.sc:13553:475787 */ t56797 = "~a internal symbol type~a"; /* x118606 stalin.sc:13553:475780 */ t56800.tag = STRING_TYPE; t56800.value.string_type = t56797; t56802.tag = STRUCTURE_TYPE24753; t56802.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56802.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13553, 475779); out_of_memory_error();} t56802.value.structure_type24753->s0.tag = STRING_TYPE; t56802.value.structure_type24753->s0.value.string_type = t56799; t56802.value.structure_type24753->s1.tag = NULL_TYPE; t56801 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56801==NULL) {backtrace("stalin.sc", 13553, 475779); out_of_memory_error();} t56801->s0.tag = STRING_TYPE; t56801->s0.value.string_type = t56798; t56801->s1 = t56802; f5365(t56800, t56801); /* x118641 stalin.sc:13556:475934 */ /* x118640 stalin.sc:13558:476036 */ /* x118637 stalin.sc:13558:476040 */ /* x118635 stalin.sc:13558:476043 */ /* x118634 stalin.sc:13558:476051 */ t56823 = a1947; /* x118633 stalin.sc:13558:476044 */ t56824 = *((struct w49 *)(&t56823)); t56821 = f26227(t56824); /* x118636 stalin.sc:13558:476076 */ t56822 = 1; /* x269195 stalin.sc:13558:476041 */ if (!(t56821==t56822)) goto l8554; /* x118638 stalin.sc:13558:476079 */ t56813 = ""; goto l8555; l8554: /* x118639 stalin.sc:13558:476082 */ t56813 = "s"; l8555: /* x118631 stalin.sc:13557:475972 */ /* x118629 stalin.sc:13557:475998 */ /* x118628 stalin.sc:13557:476006 */ t56819 = a1947; /* x118627 stalin.sc:13557:475999 */ t56820 = *((struct w49 *)(&t56819)); t56817 = f26227(t56820); /* x118630 stalin.sc:13557:476031 */ t56818 = 6; /* x118626 stalin.sc:13557:475973 */ t56812 = f976(t56817, t56818); /* x118625 stalin.sc:13556:475942 */ t56811 = "~a external symbol type~a"; /* x118624 stalin.sc:13556:475935 */ t56814.tag = STRING_TYPE; t56814.value.string_type = t56811; t56816.tag = STRUCTURE_TYPE24753; t56816.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56816.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13556, 475934); out_of_memory_error();} t56816.value.structure_type24753->s0.tag = STRING_TYPE; t56816.value.structure_type24753->s0.value.string_type = t56813; t56816.value.structure_type24753->s1.tag = NULL_TYPE; t56815 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56815==NULL) {backtrace("stalin.sc", 13556, 475934); out_of_memory_error();} t56815->s0.tag = STRING_TYPE; t56815->s0.value.string_type = t56812; t56815->s1 = t56816; f5365(t56814, t56815); /* x118659 stalin.sc:13559:476089 */ /* x118658 stalin.sc:13561:476199 */ /* x118655 stalin.sc:13561:476203 */ /* x118653 stalin.sc:13561:476206 */ /* x118652 stalin.sc:13561:476214 */ t56837 = a1946; /* x118651 stalin.sc:13561:476207 */ t56838 = *((struct w49 *)(&t56837)); t56835 = f26227(t56838); /* x118654 stalin.sc:13561:476243 */ t56836 = 1; /* x269194 stalin.sc:13561:476204 */ if (!(t56835==t56836)) goto l8557; /* x118656 stalin.sc:13561:476246 */ t56827 = ""; goto l8558; l8557: /* x118657 stalin.sc:13561:476249 */ t56827 = "s"; l8558: /* x118649 stalin.sc:13560:476131 */ /* x118647 stalin.sc:13560:476157 */ /* x118646 stalin.sc:13560:476165 */ t56833 = a1946; /* x118645 stalin.sc:13560:476158 */ t56834 = *((struct w49 *)(&t56833)); t56831 = f26227(t56834); /* x118648 stalin.sc:13560:476194 */ t56832 = 6; /* x118644 stalin.sc:13560:476132 */ t56826 = f976(t56831, t56832); /* x118643 stalin.sc:13559:476097 */ t56825 = "~a primitive procedure type~a"; /* x118642 stalin.sc:13559:476090 */ t56828.tag = STRING_TYPE; t56828.value.string_type = t56825; t56830.tag = STRUCTURE_TYPE24753; t56830.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56830.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13559, 476089); out_of_memory_error();} t56830.value.structure_type24753->s0.tag = STRING_TYPE; t56830.value.structure_type24753->s0.value.string_type = t56827; t56830.value.structure_type24753->s1.tag = NULL_TYPE; t56829 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56829==NULL) {backtrace("stalin.sc", 13559, 476089); out_of_memory_error();} t56829->s0.tag = STRING_TYPE; t56829->s0.value.string_type = t56826; t56829->s1 = t56830; f5365(t56828, t56829); /* x118681 stalin.sc:13562:476256 */ /* x118680 stalin.sc:13565:476388 */ /* x118677 stalin.sc:13565:476392 */ /* x118676 stalin.sc:13565:476428 */ t56850 = a1945; /* x118675 stalin.sc:13565:476397 */ /* x118669 stalin.sc:13565:476393 */ t56851.tag = NATIVE_PROCEDURE_TYPE15666; t56852 = *((struct w227393 *)(&t56850)); if (f1080(t56851, t56852)==FALSE_TYPE) goto l8560; /* x118678 stalin.sc:13566:476460 */ t56841 = ""; goto l8561; l8560: /* x118679 stalin.sc:13567:476469 */ t56841 = "s"; l8561: /* x118668 stalin.sc:13563:476306 */ /* x118666 stalin.sc:13564:476335 */ /* x118664 stalin.sc:13564:476349 */ /* x118665 stalin.sc:13564:476357 */ t56847 = a1945; /* x118663 stalin.sc:13564:476336 */ t56848 = NATIVE_PROCEDURE_TYPE7224; t56849 = *((struct w227393 *)(&t56847)); t56845 = f1370(t56848, t56849); /* x118667 stalin.sc:13564:476383 */ t56846 = 6; /* x118662 stalin.sc:13563:476307 */ t56840 = f976(t56845, t56846); /* x118661 stalin.sc:13562:476264 */ t56839 = "~a non-called native procedure type~a"; /* x118660 stalin.sc:13562:476257 */ t56842.tag = STRING_TYPE; t56842.value.string_type = t56839; t56844.tag = STRUCTURE_TYPE24753; t56844.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56844.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13562, 476256); out_of_memory_error();} t56844.value.structure_type24753->s0.tag = STRING_TYPE; t56844.value.structure_type24753->s0.value.string_type = t56841; t56844.value.structure_type24753->s1.tag = NULL_TYPE; t56843 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56843==NULL) {backtrace("stalin.sc", 13562, 476256); out_of_memory_error();} t56843->s0.tag = STRING_TYPE; t56843->s0.value.string_type = t56840; t56843->s1 = t56844; f5365(t56842, t56843); /* x118714 stalin.sc:13568:476476 */ /* x118713 stalin.sc:13573:476647 */ /* x118710 stalin.sc:13573:476651 */ /* x118709 stalin.sc:13574:476701 */ t56863 = a1945; /* x118708 stalin.sc:13573:476656 */ /* x118699 stalin.sc:13573:476652 */ t56864.tag = NATIVE_PROCEDURE_TYPE15664; t56865 = *((struct w227393 *)(&t56863)); if (f1080(t56864, t56865)==FALSE_TYPE) goto l8563; /* x118711 stalin.sc:13575:476733 */ t56855 = ""; goto l8564; l8563: /* x118712 stalin.sc:13576:476742 */ t56855 = "s"; l8564: /* x118698 stalin.sc:13569:476527 */ /* x118696 stalin.sc:13570:476556 */ /* x118694 stalin.sc:13570:476566 */ /* x118695 stalin.sc:13571:476613 */ t56861 = a1945; /* x118685 stalin.sc:13570:476557 */ t56862 = (struct p11483 *)NATIVE_PROCEDURE_TYPE15665; t56859 = f1362(t56862, t56861); /* x118697 stalin.sc:13572:476642 */ t56860 = 6; /* x118684 stalin.sc:13569:476528 */ t56854 = f976(t56859, t56860); /* x118683 stalin.sc:13568:476484 */ t56853 = "~a called noop native procedure type~a"; /* x118682 stalin.sc:13568:476477 */ t56856.tag = STRING_TYPE; t56856.value.string_type = t56853; t56858.tag = STRUCTURE_TYPE24753; t56858.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56858.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13568, 476476); out_of_memory_error();} t56858.value.structure_type24753->s0.tag = STRING_TYPE; t56858.value.structure_type24753->s0.value.string_type = t56855; t56858.value.structure_type24753->s1.tag = NULL_TYPE; t56857 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56857==NULL) {backtrace("stalin.sc", 13568, 476476); out_of_memory_error();} t56857->s0.tag = STRING_TYPE; t56857->s0.value.string_type = t56854; t56857->s1 = t56858; f5365(t56856, t56857); /* x118751 stalin.sc:13577:476749 */ /* x118750 stalin.sc:13582:476930 */ /* x118747 stalin.sc:13582:476934 */ /* x118746 stalin.sc:13583:476990 */ t56876 = a1945; /* x118745 stalin.sc:13582:476939 */ /* x118734 stalin.sc:13582:476935 */ t56877.tag = NATIVE_PROCEDURE_TYPE15662; t56878 = *((struct w227393 *)(&t56876)); if (f1080(t56877, t56878)==FALSE_TYPE) goto l8566; /* x118748 stalin.sc:13584:477022 */ t56868 = ""; goto l8567; l8566: /* x118749 stalin.sc:13585:477031 */ t56868 = "s"; l8567: /* x118733 stalin.sc:13578:476804 */ /* x118731 stalin.sc:13579:476833 */ /* x118729 stalin.sc:13579:476843 */ /* x118730 stalin.sc:13580:476896 */ t56874 = a1945; /* x118718 stalin.sc:13579:476834 */ t56875 = (struct p11483 *)NATIVE_PROCEDURE_TYPE15663; t56872 = f1362(t56875, t56874); /* x118732 stalin.sc:13581:476925 */ t56873 = 6; /* x118717 stalin.sc:13578:476805 */ t56867 = f976(t56872, t56873); /* x118716 stalin.sc:13577:476757 */ t56866 = "~a called non-noop native procedure type~a"; /* x118715 stalin.sc:13577:476750 */ t56869.tag = STRING_TYPE; t56869.value.string_type = t56866; t56871.tag = STRUCTURE_TYPE24753; t56871.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56871.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13577, 476749); out_of_memory_error();} t56871.value.structure_type24753->s0.tag = STRING_TYPE; t56871.value.structure_type24753->s0.value.string_type = t56868; t56871.value.structure_type24753->s1.tag = NULL_TYPE; t56870 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56870==NULL) {backtrace("stalin.sc", 13577, 476749); out_of_memory_error();} t56870->s0.tag = STRING_TYPE; t56870->s0.value.string_type = t56867; t56870->s1 = t56871; f5365(t56869, t56870); /* x118769 stalin.sc:13586:477038 */ /* x118768 stalin.sc:13588:477144 */ /* x118765 stalin.sc:13588:477148 */ /* x118763 stalin.sc:13588:477151 */ /* x118762 stalin.sc:13588:477159 */ t56891 = a1944; /* x118761 stalin.sc:13588:477152 */ t56892 = *((struct w49 *)(&t56891)); t56889 = f26227(t56892); /* x118764 stalin.sc:13588:477186 */ t56890 = 1; /* x269190 stalin.sc:13588:477149 */ if (!(t56889==t56890)) goto l8569; /* x118766 stalin.sc:13588:477189 */ t56881 = ""; goto l8570; l8569: /* x118767 stalin.sc:13588:477192 */ t56881 = "s"; l8570: /* x118759 stalin.sc:13587:477078 */ /* x118757 stalin.sc:13587:477104 */ /* x118756 stalin.sc:13587:477112 */ t56887 = a1944; /* x118755 stalin.sc:13587:477105 */ t56888 = *((struct w49 *)(&t56887)); t56885 = f26227(t56888); /* x118758 stalin.sc:13587:477139 */ t56886 = 6; /* x118754 stalin.sc:13587:477079 */ t56880 = f976(t56885, t56886); /* x118753 stalin.sc:13586:477046 */ t56879 = "~a foreign procedure type~a"; /* x118752 stalin.sc:13586:477039 */ t56882.tag = STRING_TYPE; t56882.value.string_type = t56879; t56884.tag = STRUCTURE_TYPE24753; t56884.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56884.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13586, 477038); out_of_memory_error();} t56884.value.structure_type24753->s0.tag = STRING_TYPE; t56884.value.structure_type24753->s0.value.string_type = t56881; t56884.value.structure_type24753->s1.tag = NULL_TYPE; t56883 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56883==NULL) {backtrace("stalin.sc", 13586, 477038); out_of_memory_error();} t56883->s0.tag = STRING_TYPE; t56883->s0.value.string_type = t56880; t56883->s1 = t56884; f5365(t56882, t56883); /* x118787 stalin.sc:13589:477199 */ /* x118786 stalin.sc:13591:477295 */ /* x118783 stalin.sc:13591:477299 */ /* x118781 stalin.sc:13591:477302 */ /* x118780 stalin.sc:13591:477310 */ t56905 = a1943; /* x118779 stalin.sc:13591:477303 */ t56906 = *((struct w49 *)(&t56905)); t56903 = f26227(t56906); /* x118782 stalin.sc:13591:477332 */ t56904 = 1; /* x269189 stalin.sc:13591:477300 */ if (!(t56903==t56904)) goto l8572; /* x118784 stalin.sc:13591:477335 */ t56895 = ""; goto l8573; l8572: /* x118785 stalin.sc:13591:477338 */ t56895 = "s"; l8573: /* x118777 stalin.sc:13590:477234 */ /* x118775 stalin.sc:13590:477260 */ /* x118774 stalin.sc:13590:477268 */ t56901 = a1943; /* x118773 stalin.sc:13590:477261 */ t56902 = *((struct w49 *)(&t56901)); t56899 = f26227(t56902); /* x118776 stalin.sc:13590:477290 */ t56900 = 6; /* x118772 stalin.sc:13590:477235 */ t56894 = f976(t56899, t56900); /* x118771 stalin.sc:13589:477207 */ t56893 = "~a continuation type~a"; /* x118770 stalin.sc:13589:477200 */ t56896.tag = STRING_TYPE; t56896.value.string_type = t56893; t56898.tag = STRUCTURE_TYPE24753; t56898.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56898.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13589, 477199); out_of_memory_error();} t56898.value.structure_type24753->s0.tag = STRING_TYPE; t56898.value.structure_type24753->s0.value.string_type = t56895; t56898.value.structure_type24753->s1.tag = NULL_TYPE; t56897 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56897==NULL) {backtrace("stalin.sc", 13589, 477199); out_of_memory_error();} t56897->s0.tag = STRING_TYPE; t56897->s0.value.string_type = t56894; t56897->s1 = t56898; f5365(t56896, t56897); /* x118805 stalin.sc:13592:477345 */ /* x118804 stalin.sc:13594:477429 */ /* x118801 stalin.sc:13594:477433 */ /* x118799 stalin.sc:13594:477436 */ /* x118798 stalin.sc:13594:477444 */ t56919 = a1942; /* x118797 stalin.sc:13594:477437 */ t56920 = *((struct w49 *)(&t56919)); t56917 = f26227(t56920); /* x118800 stalin.sc:13594:477460 */ t56918 = 1; /* x269188 stalin.sc:13594:477434 */ if (!(t56917==t56918)) goto l8575; /* x118802 stalin.sc:13594:477463 */ t56909 = ""; goto l8576; l8575: /* x118803 stalin.sc:13594:477466 */ t56909 = "s"; l8576: /* x118795 stalin.sc:13593:477374 */ /* x118793 stalin.sc:13593:477400 */ /* x118792 stalin.sc:13593:477408 */ t56915 = a1942; /* x118791 stalin.sc:13593:477401 */ t56916 = *((struct w49 *)(&t56915)); t56913 = f26227(t56916); /* x118794 stalin.sc:13593:477424 */ t56914 = 6; /* x118790 stalin.sc:13593:477375 */ t56908 = f976(t56913, t56914); /* x118789 stalin.sc:13592:477353 */ t56907 = "~a string type~a"; /* x118788 stalin.sc:13592:477346 */ t56910.tag = STRING_TYPE; t56910.value.string_type = t56907; t56912.tag = STRUCTURE_TYPE24753; t56912.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56912.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13592, 477345); out_of_memory_error();} t56912.value.structure_type24753->s0.tag = STRING_TYPE; t56912.value.structure_type24753->s0.value.string_type = t56909; t56912.value.structure_type24753->s1.tag = NULL_TYPE; t56911 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56911==NULL) {backtrace("stalin.sc", 13592, 477345); out_of_memory_error();} t56911->s0.tag = STRING_TYPE; t56911->s0.value.string_type = t56908; t56911->s1 = t56912; f5365(t56910, t56911); /* x118823 stalin.sc:13595:477473 */ /* x118822 stalin.sc:13597:477563 */ /* x118819 stalin.sc:13597:477567 */ /* x118817 stalin.sc:13597:477570 */ /* x118816 stalin.sc:13597:477578 */ t56933 = a1940; /* x118815 stalin.sc:13597:477571 */ t56934 = *((struct w49 *)(&t56933)); t56931 = f26227(t56934); /* x118818 stalin.sc:13597:477597 */ t56932 = 1; /* x269187 stalin.sc:13597:477568 */ if (!(t56931==t56932)) goto l8578; /* x118820 stalin.sc:13597:477600 */ t56923 = ""; goto l8579; l8578: /* x118821 stalin.sc:13597:477603 */ t56923 = "s"; l8579: /* x118813 stalin.sc:13596:477505 */ /* x118811 stalin.sc:13596:477531 */ /* x118810 stalin.sc:13596:477539 */ t56929 = a1940; /* x118809 stalin.sc:13596:477532 */ t56930 = *((struct w49 *)(&t56929)); t56927 = f26227(t56930); /* x118812 stalin.sc:13596:477558 */ t56928 = 6; /* x118808 stalin.sc:13596:477506 */ t56922 = f976(t56927, t56928); /* x118807 stalin.sc:13595:477481 */ t56921 = "~a structure type~a"; /* x118806 stalin.sc:13595:477474 */ t56924.tag = STRING_TYPE; t56924.value.string_type = t56921; t56926.tag = STRUCTURE_TYPE24753; t56926.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56926.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13595, 477473); out_of_memory_error();} t56926.value.structure_type24753->s0.tag = STRING_TYPE; t56926.value.structure_type24753->s0.value.string_type = t56923; t56926.value.structure_type24753->s1.tag = NULL_TYPE; t56925 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56925==NULL) {backtrace("stalin.sc", 13595, 477473); out_of_memory_error();} t56925->s0.tag = STRING_TYPE; t56925->s0.value.string_type = t56922; t56925->s1 = t56926; f5365(t56924, t56925); /* x118841 stalin.sc:13598:477610 */ /* x118840 stalin.sc:13600:477708 */ /* x118837 stalin.sc:13600:477712 */ /* x118835 stalin.sc:13600:477715 */ /* x118834 stalin.sc:13600:477723 */ t56947 = a1939; /* x118833 stalin.sc:13600:477716 */ t56948 = *((struct w49 *)(&t56947)); t56945 = f26227(t56948); /* x118836 stalin.sc:13600:477746 */ t56946 = 1; /* x269186 stalin.sc:13600:477713 */ if (!(t56945==t56946)) goto l8581; /* x118838 stalin.sc:13600:477749 */ t56937 = ""; goto l8582; l8581: /* x118839 stalin.sc:13600:477752 */ t56937 = "s"; l8582: /* x118831 stalin.sc:13599:477646 */ /* x118829 stalin.sc:13599:477672 */ /* x118828 stalin.sc:13599:477680 */ t56943 = a1939; /* x118827 stalin.sc:13599:477673 */ t56944 = *((struct w49 *)(&t56943)); t56941 = f26227(t56944); /* x118830 stalin.sc:13599:477703 */ t56942 = 6; /* x118826 stalin.sc:13599:477647 */ t56936 = f976(t56941, t56942); /* x118825 stalin.sc:13598:477618 */ t56935 = "~a headed vector type~a"; /* x118824 stalin.sc:13598:477611 */ t56938.tag = STRING_TYPE; t56938.value.string_type = t56935; t56940.tag = STRUCTURE_TYPE24753; t56940.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56940.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13598, 477610); out_of_memory_error();} t56940.value.structure_type24753->s0.tag = STRING_TYPE; t56940.value.structure_type24753->s0.value.string_type = t56937; t56940.value.structure_type24753->s1.tag = NULL_TYPE; t56939 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56939==NULL) {backtrace("stalin.sc", 13598, 477610); out_of_memory_error();} t56939->s0.tag = STRING_TYPE; t56939->s0.value.string_type = t56936; t56939->s1 = t56940; f5365(t56938, t56939); /* x118859 stalin.sc:13601:477759 */ /* x118858 stalin.sc:13603:477863 */ /* x118855 stalin.sc:13603:477867 */ /* x118853 stalin.sc:13603:477870 */ /* x118852 stalin.sc:13603:477878 */ t56961 = a1938; /* x118851 stalin.sc:13603:477871 */ t56962 = *((struct w49 *)(&t56961)); t56959 = f26227(t56962); /* x118854 stalin.sc:13603:477904 */ t56960 = 1; /* x269185 stalin.sc:13603:477868 */ if (!(t56959==t56960)) goto l8584; /* x118856 stalin.sc:13603:477907 */ t56951 = ""; goto l8585; l8584: /* x118857 stalin.sc:13603:477910 */ t56951 = "s"; l8585: /* x118849 stalin.sc:13602:477798 */ /* x118847 stalin.sc:13602:477824 */ /* x118846 stalin.sc:13602:477832 */ t56957 = a1938; /* x118845 stalin.sc:13602:477825 */ t56958 = *((struct w49 *)(&t56957)); t56955 = f26227(t56958); /* x118848 stalin.sc:13602:477858 */ t56956 = 6; /* x118844 stalin.sc:13602:477799 */ t56950 = f976(t56955, t56956); /* x118843 stalin.sc:13601:477767 */ t56949 = "~a nonheaded vector type~a"; /* x118842 stalin.sc:13601:477760 */ t56952.tag = STRING_TYPE; t56952.value.string_type = t56949; t56954.tag = STRUCTURE_TYPE24753; t56954.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56954.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13601, 477759); out_of_memory_error();} t56954.value.structure_type24753->s0.tag = STRING_TYPE; t56954.value.structure_type24753->s0.value.string_type = t56951; t56954.value.structure_type24753->s1.tag = NULL_TYPE; t56953 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56953==NULL) {backtrace("stalin.sc", 13601, 477759); out_of_memory_error();} t56953->s0.tag = STRING_TYPE; t56953->s0.value.string_type = t56950; t56953->s1 = t56954; f5365(t56952, t56953); /* x118877 stalin.sc:13604:477917 */ /* x118876 stalin.sc:13606:478021 */ /* x118873 stalin.sc:13606:478025 */ /* x118871 stalin.sc:13606:478028 */ /* x118870 stalin.sc:13606:478036 */ t56975 = a1936; /* x118869 stalin.sc:13606:478029 */ t56976 = *((struct w49 *)(&t56975)); t56973 = f26227(t56976); /* x118872 stalin.sc:13606:478062 */ t56974 = 1; /* x269184 stalin.sc:13606:478026 */ if (!(t56973==t56974)) goto l8587; /* x118874 stalin.sc:13606:478065 */ t56965 = ""; goto l8588; l8587: /* x118875 stalin.sc:13606:478068 */ t56965 = "s"; l8588: /* x118867 stalin.sc:13605:477956 */ /* x118865 stalin.sc:13605:477982 */ /* x118864 stalin.sc:13605:477990 */ t56971 = a1936; /* x118863 stalin.sc:13605:477983 */ t56972 = *((struct w49 *)(&t56971)); t56969 = f26227(t56972); /* x118866 stalin.sc:13605:478016 */ t56970 = 6; /* x118862 stalin.sc:13605:477957 */ t56964 = f976(t56969, t56970); /* x118861 stalin.sc:13604:477925 */ t56963 = "~a displaced vector type~a"; /* x118860 stalin.sc:13604:477918 */ t56966.tag = STRING_TYPE; t56966.value.string_type = t56963; t56968.tag = STRUCTURE_TYPE24753; t56968.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56968.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13604, 477917); out_of_memory_error();} t56968.value.structure_type24753->s0.tag = STRING_TYPE; t56968.value.structure_type24753->s0.value.string_type = t56965; t56968.value.structure_type24753->s1.tag = NULL_TYPE; t56967 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56967==NULL) {backtrace("stalin.sc", 13604, 477917); out_of_memory_error();} t56967->s0.tag = STRING_TYPE; t56967->s0.value.string_type = t56964; t56967->s1 = t56968; f5365(t56966, t56967); /* x118895 stalin.sc:13607:478075 */ /* x118894 stalin.sc:13609:478146 */ /* x118891 stalin.sc:13609:478150 */ /* x118889 stalin.sc:13609:478153 */ /* x118888 stalin.sc:13609:478161 */ t56989 = a1679; /* x118887 stalin.sc:13609:478154 */ t56990 = *((struct w49 *)(&t56989)); t56987 = f26227(t56990); /* x118890 stalin.sc:13609:478167 */ t56988 = 1; /* x269183 stalin.sc:13609:478151 */ if (!(t56987==t56988)) goto l8590; /* x118892 stalin.sc:13609:478170 */ t56979 = ""; goto l8591; l8590: /* x118893 stalin.sc:13609:478173 */ t56979 = "s"; l8591: /* x118885 stalin.sc:13608:478101 */ /* x118883 stalin.sc:13608:478127 */ /* x118882 stalin.sc:13608:478135 */ t56985 = a1679; /* x118881 stalin.sc:13608:478128 */ t56986 = *((struct w49 *)(&t56985)); t56983 = f26227(t56986); /* x118884 stalin.sc:13608:478141 */ t56984 = 6; /* x118880 stalin.sc:13608:478102 */ t56978 = f976(t56983, t56984); /* x118879 stalin.sc:13607:478083 */ t56977 = "~a type set~a"; /* x118878 stalin.sc:13607:478076 */ t56980.tag = STRING_TYPE; t56980.value.string_type = t56977; t56982.tag = STRUCTURE_TYPE24753; t56982.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56982.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13607, 478075); out_of_memory_error();} t56982.value.structure_type24753->s0.tag = STRING_TYPE; t56982.value.structure_type24753->s0.value.string_type = t56979; t56982.value.structure_type24753->s1.tag = NULL_TYPE; t56981 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56981==NULL) {backtrace("stalin.sc", 13607, 478075); out_of_memory_error();} t56981->s0.tag = STRING_TYPE; t56981->s0.value.string_type = t56978; t56981->s1 = t56982; f5365(t56980, t56981); /* x118912 stalin.sc:13610:478180 */ /* x118911 stalin.sc:13612:478266 */ /* x118908 stalin.sc:13612:478270 */ /* x118907 stalin.sc:13612:478282 */ t57001 = a1633; /* x118906 stalin.sc:13612:478275 */ /* x118905 stalin.sc:13612:478271 */ t57002.tag = NATIVE_PROCEDURE_TYPE7030; t57003 = *((struct w227393 *)(&t57001)); if (f1080(t57002, t57003)==FALSE_TYPE) goto l8593; /* x118909 stalin.sc:13612:478288 */ t56993 = ""; goto l8594; l8593: /* x118910 stalin.sc:13612:478291 */ t56993 = "s"; l8594: /* x118904 stalin.sc:13611:478212 */ /* x118902 stalin.sc:13611:478238 */ /* x118900 stalin.sc:13611:478248 */ /* x118901 stalin.sc:13611:478255 */ t56999 = a1633; /* x118899 stalin.sc:13611:478239 */ t57000 = (struct p11483 *)NATIVE_PROCEDURE_TYPE7030; t56997 = f1362(t57000, t56999); /* x118903 stalin.sc:13611:478261 */ t56998 = 6; /* x118898 stalin.sc:13611:478213 */ t56992 = f976(t56997, t56998); /* x118897 stalin.sc:13610:478188 */ t56991 = "~a hunoz variable~a"; /* x118896 stalin.sc:13610:478181 */ t56994.tag = STRING_TYPE; t56994.value.string_type = t56991; t56996.tag = STRUCTURE_TYPE24753; t56996.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56996.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13610, 478180); out_of_memory_error();} t56996.value.structure_type24753->s0.tag = STRING_TYPE; t56996.value.structure_type24753->s0.value.string_type = t56993; t56996.value.structure_type24753->s1.tag = NULL_TYPE; t56995 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56995==NULL) {backtrace("stalin.sc", 13610, 478180); out_of_memory_error();} t56995->s0.tag = STRING_TYPE; t56995->s0.value.string_type = t56992; t56995->s1 = t56996; f5365(t56994, t56995); /* x118934 stalin.sc:13613:478298 */ /* x118933 stalin.sc:13615:478392 */ /* x118930 stalin.sc:13615:478396 */ /* x118929 stalin.sc:13615:478431 */ t57015 = a1633; /* x118928 stalin.sc:13615:478401 */ /* x118922 stalin.sc:13615:478397 */ t57016.tag = NATIVE_PROCEDURE_TYPE15656; t57017 = *((struct w227393 *)(&t57015)); if (f1080(t57016, t57017)==FALSE_TYPE) goto l8596; /* x118931 stalin.sc:13615:478437 */ t57006 = ""; goto l8597; l8596: /* x118932 stalin.sc:13615:478440 */ t57006 = "s"; l8597: /* x118921 stalin.sc:13614:478334 */ /* x118919 stalin.sc:13614:478360 */ /* x118917 stalin.sc:13614:478374 */ /* x118918 stalin.sc:13614:478381 */ t57012 = a1633; /* x118916 stalin.sc:13614:478361 */ t57013 = NATIVE_PROCEDURE_TYPE7030; t57014 = *((struct w227393 *)(&t57012)); t57010 = f1370(t57013, t57014); /* x118920 stalin.sc:13614:478387 */ t57011 = 6; /* x118915 stalin.sc:13614:478335 */ t57005 = f976(t57010, t57011); /* x118914 stalin.sc:13613:478306 */ t57004 = "~a non-hunoz variable~a"; /* x118913 stalin.sc:13613:478299 */ t57007.tag = STRING_TYPE; t57007.value.string_type = t57004; t57009.tag = STRUCTURE_TYPE24753; t57009.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t57009.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13613, 478298); out_of_memory_error();} t57009.value.structure_type24753->s0.tag = STRING_TYPE; t57009.value.structure_type24753->s0.value.string_type = t57006; t57009.value.structure_type24753->s1.tag = NULL_TYPE; t57008 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t57008==NULL) {backtrace("stalin.sc", 13613, 478298); out_of_memory_error();} t57008->s0.tag = STRING_TYPE; t57008->s0.value.string_type = t57005; t57008->s1 = t57009; f5365(t57007, t57008); /* x118951 stalin.sc:13616:478447 */ /* x118950 stalin.sc:13618:478534 */ /* x118947 stalin.sc:13618:478538 */ /* x118946 stalin.sc:13618:478549 */ t57028 = a1594; /* x118945 stalin.sc:13618:478543 */ /* x118944 stalin.sc:13618:478539 */ t57029.tag = NATIVE_PROCEDURE_TYPE7222; t57030 = *((struct w227393 *)(&t57028)); if (f1080(t57029, t57030)==FALSE_TYPE) goto l8599; /* x118948 stalin.sc:13618:478555 */ t57020 = ""; goto l8600; l8599: /* x118949 stalin.sc:13618:478558 */ t57020 = "s"; l8600: /* x118943 stalin.sc:13617:478481 */ /* x118941 stalin.sc:13617:478507 */ /* x118939 stalin.sc:13617:478517 */ /* x118940 stalin.sc:13617:478523 */ t57026 = a1594; /* x118938 stalin.sc:13617:478508 */ t57027 = (struct p11483 *)NATIVE_PROCEDURE_TYPE7222; t57024 = f1362(t57027, t57026); /* x118942 stalin.sc:13617:478529 */ t57025 = 6; /* x118937 stalin.sc:13617:478482 */ t57019 = f976(t57024, t57025); /* x118936 stalin.sc:13616:478455 */ t57018 = "~a noop environment~a"; /* x118935 stalin.sc:13616:478448 */ t57021.tag = STRING_TYPE; t57021.value.string_type = t57018; t57023.tag = STRUCTURE_TYPE24753; t57023.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t57023.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13616, 478447); out_of_memory_error();} t57023.value.structure_type24753->s0.tag = STRING_TYPE; t57023.value.structure_type24753->s0.value.string_type = t57020; t57023.value.structure_type24753->s1.tag = NULL_TYPE; t57022 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t57022==NULL) {backtrace("stalin.sc", 13616, 478447); out_of_memory_error();} t57022->s0.tag = STRING_TYPE; t57022->s0.value.string_type = t57019; t57022->s1 = t57023; f5365(t57021, t57022); /* x118587 */ /* x118586 stalin.sc:13619:478565 */ /* x118585 stalin.sc:13621:478660 */ /* x118582 stalin.sc:13621:478664 */ /* x118581 stalin.sc:13621:478698 */ t56780 = a1594; /* x118580 stalin.sc:13621:478669 */ /* x118574 stalin.sc:13621:478665 */ t56781.tag = NATIVE_PROCEDURE_TYPE15668; t56782 = *((struct w227393 *)(&t56780)); if (f1080(t56781, t56782)==FALSE_TYPE) goto l8545; /* x118583 stalin.sc:13621:478704 */ t56771 = ""; goto l8546; l8545: /* x118584 stalin.sc:13621:478707 */ t56771 = "s"; l8546: /* x118573 stalin.sc:13620:478603 */ /* x118571 stalin.sc:13620:478629 */ /* x118569 stalin.sc:13620:478643 */ /* x118570 stalin.sc:13620:478649 */ t56777 = a1594; /* x118568 stalin.sc:13620:478630 */ t56778 = NATIVE_PROCEDURE_TYPE7222; t56779 = *((struct w227393 *)(&t56777)); t56775 = f1370(t56778, t56779); /* x118572 stalin.sc:13620:478655 */ t56776 = 6; /* x118567 stalin.sc:13620:478604 */ t56770 = f976(t56775, t56776); /* x118566 stalin.sc:13619:478573 */ t56769 = "~a non-noop environment~a"; /* x118565 stalin.sc:13619:478566 */ t56772.tag = STRING_TYPE; t56772.value.string_type = t56769; t56774.tag = STRUCTURE_TYPE24753; t56774.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t56774.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13619, 478565); out_of_memory_error();} t56774.value.structure_type24753->s0.tag = STRING_TYPE; t56774.value.structure_type24753->s0.value.string_type = t56771; t56774.value.structure_type24753->s1.tag = NULL_TYPE; t56773 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t56773==NULL) {backtrace("stalin.sc", 13619, 478565); out_of_memory_error();} t56773->s0.tag = STRING_TYPE; t56773->s0.value.string_type = t56770; t56773->s1 = t56774; f5365(t56772, t56773); return;} /* UNDECORATE-EXPRESSIONS[13200] */ struct structure_type24753 *f13200(struct w49 a25063) {struct structure_type24753 *r13200; struct structure_type24753 *a35191; /* OBJS */ struct w11873 a36066; /* PAIR */ struct structure_type24753 *a36094; /* PAIR */ struct w49 a38551; /* S */ struct w49 a38562; /* S */ struct w49 a38656; /* S */ struct w49 a38672; /* S */ struct w49 a38673; /* S */ struct w49 a38674; /* S */ struct w49 a38675; /* S */ struct w49 a38676; /* S */ struct w49 a39218; /* S */ struct w49 a39435; /* S */ struct w49 a40320; /* S */ struct w49 a40321; /* S */ char *t57031; char *t57032; struct w49 t57033; struct w49 t57034; int t57035; int t57036; struct w11873 t57037; struct w49 t57038; struct w49 t57039; struct w49 t57040; char *t57041; char *t57042; struct w49 t57043; struct w49 t57044; struct w49 t57045; struct w49 t57046; struct w9296 t57047; char *t57048; struct w49 t57049; struct w49 t57050; struct w49 t57051; struct w49 t57052; int t57053; int t57054; struct structure_type24753 *t57055; struct w49 t57056; struct w49 t57057; struct w49 t57058; struct w49 t57059; struct w49 t57060; struct w49 t57061; struct w49 t57062; struct w49 t57063; struct structure_type24753 *t57064; struct structure_type24753 *t57065; struct w49 t57066; struct w49 t57067; struct w49 t57068; struct w49 t57069; struct w49 t57070; struct w49 t57071; struct structure_type24753 *t57072; struct w49 t57073; struct w11873 t57074; struct w11873 t57075; struct w49 t57076; struct w49 t57077; struct w49 t57078; struct w49 t57079; struct w49 t57080; struct w49 t57081; struct w49 t57082; /* x118163 stalin.sc:13433:471781 */ /* x118141 stalin.sc:13433:471785 */ /* x118076 stalin.sc:13433:471790 */ /* x118074 stalin.sc:13433:471795 */ /* x118073 stalin.sc:13433:471812 */ t57033 = a25063; /* x118072 stalin.sc:13433:471796 */ a40321 = t57033; /* x293953 */ /* x293952 */ t57034 = a40321; /* x293951 */ if (!((t57034.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35238]"); structure_ref_error();} t57031 = t57034.value.structure_type27698->s0; /* x118075 stalin.sc:13433:471815 */ t57032 = q36; /* x269206 stalin.sc:13433:471791 */ if (!(t57031==t57032)) goto l8602; /* x118139 */ /* x118084 stalin.sc:13434:471826 */ /* x118082 stalin.sc:13434:471829 */ /* x118081 stalin.sc:13434:471837 */ /* x118080 stalin.sc:13434:471859 */ t57039 = a25063; /* x118079 stalin.sc:13434:471838 */ a38562 = t57039; /* x286917 */ /* x286916 */ t57040 = a38562; /* x286915 */ if (!((t57040.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33479]"); structure_ref_error();} t57037 = t57040.value.structure_type27698->s22; /* x118078 stalin.sc:13434:471830 */ t57038 = *((struct w49 *)(&t57037)); t57035 = f26227(t57038); /* x118083 stalin.sc:13434:471863 */ t57036 = 1; /* x269205 stalin.sc:13434:471827 */ if (!(t57035==t57036)) goto l8602; /* x118137 */ /* x118092 stalin.sc:13435:471870 */ /* x118090 stalin.sc:13435:471875 */ /* x118089 stalin.sc:13435:471892 */ /* x118088 stalin.sc:13435:471911 */ t57045 = a25063; /* x118087 stalin.sc:13435:471893 */ a38676 = t57045; /* x287373 */ /* x287372 */ t57046 = a38676; /* x287371 */ if (!((t57046.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33593]"); structure_ref_error();} t57043 = t57046.value.structure_type27698->s21; /* x118086 stalin.sc:13435:471876 */ a40320 = t57043; /* x293949 */ /* x293948 */ t57044 = a40320; /* x293947 */ if (!((t57044.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35237]"); structure_ref_error();} t57041 = t57044.value.structure_type27698->s0; /* x118091 stalin.sc:13435:471915 */ t57042 = q39; /* x269204 stalin.sc:13435:471871 */ if (!(t57041==t57042)) goto l8602; /* x118135 */ /* x118103 stalin.sc:13437:471958 */ /* x118102 stalin.sc:13437:471963 */ /* x118099 stalin.sc:13437:471968 */ /* x118098 stalin.sc:13437:471991 */ /* x118097 stalin.sc:13437:472010 */ t57051 = a25063; /* x118096 stalin.sc:13437:471992 */ a38675 = t57051; /* x287369 */ /* x287368 */ t57052 = a38675; /* x287367 */ if (!((t57052.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33592]"); structure_ref_error();} t57049 = t57052.value.structure_type27698->s21; /* x118095 stalin.sc:13437:471969 */ a39435 = t57049; /* x290409 */ /* x290408 */ t57050 = a39435; /* x290407 */ if (!((t57050.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34352]"); structure_ref_error();} t57047 = t57050.value.structure_type27698->s14; /* x118101 stalin.sc:13438:472021 */ /* x118100 stalin.sc:13438:472022 */ /* x277167 stalin.sc:323:8604 */ t57048 = q35; /* x269202 stalin.sc:13437:471964 */ if (((t57047.tag)==EXTERNAL_SYMBOL_TYPE)&&((t57047.value.external_symbol_type)==t57048)) goto l8602; /* x118133 */ /* x118113 stalin.sc:13439:472041 */ /* x118111 stalin.sc:13439:472044 */ /* x118110 stalin.sc:13439:472052 */ /* x118109 stalin.sc:13439:472063 */ /* x118108 stalin.sc:13439:472082 */ t57058 = a25063; /* x118107 stalin.sc:13439:472064 */ a38674 = t57058; /* x287365 */ /* x287364 */ t57059 = a38674; /* x287363 */ if (!((t57059.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33591]"); structure_ref_error();} t57057 = t57059.value.structure_type27698->s21; /* x118106 stalin.sc:13439:472053 */ t57055 = f8987(t57057); /* x118105 stalin.sc:13439:472045 */ /* MOVE: branching squeezed to general */ if (t57055>=((struct structure_type24753 *)VALUE_OFFSET)) {t57056.tag = STRUCTURE_TYPE24753; t57056.value.structure_type24753 = t57055;} else t57056.tag = (unsigned)t57055; t57053 = f26227(t57056); /* x118112 stalin.sc:13439:472087 */ t57054 = 1; /* x269201 stalin.sc:13439:472042 */ if (!(t57053==t57054)) goto l8602; /* x118131 */ /* x118120 stalin.sc:13440:472094 */ /* x118119 stalin.sc:13440:472099 */ /* x118118 stalin.sc:13440:472106 */ /* x118117 stalin.sc:13440:472125 */ t57061 = a25063; /* x118116 stalin.sc:13440:472107 */ a38673 = t57061; /* x287361 */ /* x287360 */ t57062 = a38673; /* x287359 */ if (!((t57062.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33590]"); structure_ref_error();} t57060 = t57062.value.structure_type27698->s21; /* x118115 stalin.sc:13440:472100 */ if (!(f8931(t57060)==FALSE_TYPE)) goto l8602; /* x118129 */ /* x118128 stalin.sc:13441:472142 */ /* x118127 stalin.sc:13441:472149 */ /* x118126 stalin.sc:13441:472160 */ /* x118125 stalin.sc:13441:472179 */ t57067 = a25063; /* x118124 stalin.sc:13441:472161 */ a38672 = t57067; /* x287357 */ /* x287356 */ t57068 = a38672; /* x287355 */ if (!((t57068.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33589]"); structure_ref_error();} t57066 = t57068.value.structure_type27698->s21; /* x118123 stalin.sc:13441:472150 */ t57064 = f8987(t57066); /* x118122 stalin.sc:13441:472143 */ a36094 = t57064; /* x275733 */ /* x275732 */ t57065 = a36094; /* x275731 */ if (!(t57065>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 30243]"); structure_ref_error();} t57063 = t57065->s0; /* x118121 stalin.sc:13441:472135 */ if (f13055(t57063)==FALSE_TYPE) goto l8602; /* x118157 stalin.sc:13442:472192 */ /* x118149 stalin.sc:13442:472198 */ /* x118148 stalin.sc:13442:472210 */ /* x118147 stalin.sc:13442:472217 */ /* x118146 stalin.sc:13442:472239 */ t57076 = a25063; /* x118145 stalin.sc:13442:472218 */ a38551 = t57076; /* x286873 */ /* x286872 */ t57077 = a38551; /* x286871 */ if (!((t57077.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33468]"); structure_ref_error();} t57074 = t57077.value.structure_type27698->s22; /* x118144 stalin.sc:13442:472211 */ a36066 = t57074; /* x275621 */ /* x275620 */ t57075 = a36066; /* x275619 */ if (!((t57075.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30215]"); structure_ref_error();} t57073 = t57075.value.structure_type24753->s0; /* x118143 stalin.sc:13442:472199 */ t57071 = f13160(t57073); /* x118156 stalin.sc:13443:472249 */ /* x118155 stalin.sc:13443:472273 */ /* x118154 stalin.sc:13443:472290 */ /* x118153 stalin.sc:13443:472309 */ t57081 = a25063; /* x118152 stalin.sc:13443:472291 */ a38656 = t57081; /* x287293 */ /* x287292 */ t57082 = a38656; /* x287291 */ if (!((t57082.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33573]"); structure_ref_error();} t57079 = t57082.value.structure_type27698->s21; /* x118151 stalin.sc:13443:472274 */ a39218 = t57079; /* x289541 */ /* x289540 */ t57080 = a39218; /* x289539 */ if (!((t57080.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34135]"); structure_ref_error();} t57078 = t57080.value.structure_type27698->s15; /* x118150 stalin.sc:13443:472250 */ t57072 = f13200(t57078); /* x269199 stalin.sc:13442:472193 */ r13200 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r13200==NULL) {backtrace("stalin.sc", 13442, 472192); out_of_memory_error();} r13200->s0 = t57071; r13200->s1.tag = STRUCTURE_TYPE24753; r13200->s1.value.structure_type24753 = t57072; return r13200; l8602: /* x118162 stalin.sc:13444:472321 */ /* x118161 stalin.sc:13444:472327 */ /* x118160 stalin.sc:13444:472339 */ t57070 = a25063; /* x118159 stalin.sc:13444:472328 */ t57069 = f13160(t57070); /* x118158 stalin.sc:13444:472322 */ a35191 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35191==NULL) {backtrace("stalin.sc", 13444, 472321); out_of_memory_error();} a35191->s0 = t57069; a35191->s1.tag = NULL_TYPE; /* x272389 */ return a35191;} /* UNDECORATE-CONSTANT[13186] */ struct w49 f13186(struct w49 a25061) {struct w49 r13186; char *a25062; /* v */ struct w49 a39563; /* S */ struct w49 a39564; /* S */ struct w49 a39565; /* S */ struct w49 a39566; /* S */ struct w49 a39567; /* S */ struct w49 a39568; /* S */ struct w49 a39569; /* S */ struct w49 a39570; /* S */ struct w49 a39571; /* S */ struct w49 a40301; /* S */ char *t57083; char *t57084; char *t57085; struct w49 t57086; struct w49 t57087; char *t57088; char *t57089; struct w49 t57090; struct w49 t57091; char *t57092; char *t57093; struct w49 t57094; struct w49 t57095; char *t57096; char *t57097; struct w49 t57098; struct w49 t57099; char *t57100; char *t57101; struct w49 t57102; struct w49 t57103; char *t57104; char *t57105; struct w49 t57106; struct w49 t57107; char *t57108; char *t57109; struct w49 t57110; struct w49 t57111; char *t57112; char *t57113; struct w49 t57114; struct w49 t57115; char *t57116; char *t57117; struct w49 t57118; struct w49 t57119; char *t57120; char *t57121; struct w49 t57122; struct w49 t57123; char *t57124; char *t57125; struct w49 t57126; struct w49 t57127; char *t57128; struct w49 t57129; unsigned t57130; struct w49 t57131; struct headed_vector_type27896 *t57132; struct w49 t57133; struct w49 t57134; struct w49 t57135; struct w49 t57136; struct w49 t57137; struct w49 t57138; struct w49 t57139; struct w49 t57140; struct w49 t57141; struct w49 t57142; struct w49 t57143; struct w49 t57144; struct w49 t57145; struct w49 t57146; struct w49 t57147; struct w49 t57148; struct w49 t57149; struct w49 t57150; struct w49 t57151; struct w49 t57152; struct w49 t57153; struct w49 t57154; struct w49 t57155; struct w49 t57156; struct w49 t57157; struct w49 t57158; /* x118068 stalin.sc:13417:471117 */ /* x118067 stalin.sc:13417:471123 */ /* x118066 stalin.sc:13417:471140 */ t57157 = a25061; /* x118065 stalin.sc:13417:471124 */ a40301 = t57157; /* x293873 */ /* x293872 */ t57158 = a40301; /* x293871 */ if (!((t57158.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35218]"); structure_ref_error();} t57083 = t57158.value.structure_type27698->s0; /* x118064 */ a25062 = t57083; /* x118063 */ /* x117943 */ /* x117941 */ t57084 = a25062; /* x117942 */ t57085 = q68; /* x117940 */ t57086.tag = EXTERNAL_SYMBOL_TYPE; t57086.value.external_symbol_type = t57084; t57087.tag = EXTERNAL_SYMBOL_TYPE; t57087.value.external_symbol_type = t57085; if (f26160(t57086, t57087)==FALSE_TYPE) goto l8610; /* x117946 */ /* x117945 */ /* x117944 stalin.sc:13418:471163 */ r13186.tag = NULL_TYPE; return r13186; l8610: /* x118062 */ /* x117950 */ /* x117948 */ t57088 = a25062; /* x117949 */ t57089 = q69; /* x117947 */ t57090.tag = EXTERNAL_SYMBOL_TYPE; t57090.value.external_symbol_type = t57088; t57091.tag = EXTERNAL_SYMBOL_TYPE; t57091.value.external_symbol_type = t57089; if (f26160(t57090, t57091)==FALSE_TYPE) goto l8612; /* x117953 */ /* x117952 */ /* x117951 stalin.sc:13419:471188 */ r13186.tag = TRUE_TYPE; return r13186; l8612: /* x118061 */ /* x117957 */ /* x117955 */ t57092 = a25062; /* x117956 */ t57093 = q70; /* x117954 */ t57094.tag = EXTERNAL_SYMBOL_TYPE; t57094.value.external_symbol_type = t57092; t57095.tag = EXTERNAL_SYMBOL_TYPE; t57095.value.external_symbol_type = t57093; if (f26160(t57094, t57095)==FALSE_TYPE) goto l8614; /* x117960 */ /* x117959 */ /* x117958 stalin.sc:13420:471213 */ r13186.tag = FALSE_TYPE; return r13186; l8614: /* x118060 */ /* x117964 */ /* x117962 */ t57096 = a25062; /* x117963 */ t57097 = q71; /* x117961 */ t57098.tag = EXTERNAL_SYMBOL_TYPE; t57098.value.external_symbol_type = t57096; t57099.tag = EXTERNAL_SYMBOL_TYPE; t57099.value.external_symbol_type = t57097; if (f26160(t57098, t57099)==FALSE_TYPE) goto l8616; /* x117969 */ /* x117968 */ /* x117967 stalin.sc:13421:471237 */ /* x117966 stalin.sc:13421:471258 */ t57155 = a25061; /* x117965 stalin.sc:13421:471238 */ a39563 = t57155; /* x290921 */ /* x290920 */ t57156 = a39563; /* x290919 */ if ((t57156.tag)==STRUCTURE_TYPE27698) return t57156.value.structure_type27698->s12; backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34480]"); structure_ref_error(); l8616: /* x118059 */ /* x117973 */ /* x117971 */ t57100 = a25062; /* x117972 */ t57101 = q72; /* x117970 */ t57102.tag = EXTERNAL_SYMBOL_TYPE; t57102.value.external_symbol_type = t57100; t57103.tag = EXTERNAL_SYMBOL_TYPE; t57103.value.external_symbol_type = t57101; if (f26160(t57102, t57103)==FALSE_TYPE) goto l8618; /* x117978 */ /* x117977 */ /* x117976 stalin.sc:13422:471284 */ /* x117975 stalin.sc:13422:471305 */ t57153 = a25061; /* x117974 stalin.sc:13422:471285 */ a39564 = t57153; /* x290925 */ /* x290924 */ t57154 = a39564; /* x290923 */ if ((t57154.tag)==STRUCTURE_TYPE27698) return t57154.value.structure_type27698->s12; backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34481]"); structure_ref_error(); l8618: /* x118058 */ /* x117982 */ /* x117980 */ t57104 = a25062; /* x117981 */ t57105 = q73; /* x117979 */ t57106.tag = EXTERNAL_SYMBOL_TYPE; t57106.value.external_symbol_type = t57104; t57107.tag = EXTERNAL_SYMBOL_TYPE; t57107.value.external_symbol_type = t57105; if (f26160(t57106, t57107)==FALSE_TYPE) goto l8620; /* x117987 */ /* x117986 */ /* x117985 stalin.sc:13423:471331 */ /* x117984 stalin.sc:13423:471352 */ t57151 = a25061; /* x117983 stalin.sc:13423:471332 */ a39565 = t57151; /* x290929 */ /* x290928 */ t57152 = a39565; /* x290927 */ if ((t57152.tag)==STRUCTURE_TYPE27698) return t57152.value.structure_type27698->s12; backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34482]"); structure_ref_error(); l8620: /* x118057 */ /* x117991 */ /* x117989 */ t57108 = a25062; /* x117990 */ t57109 = q74; /* x117988 */ t57110.tag = EXTERNAL_SYMBOL_TYPE; t57110.value.external_symbol_type = t57108; t57111.tag = EXTERNAL_SYMBOL_TYPE; t57111.value.external_symbol_type = t57109; if (f26160(t57110, t57111)==FALSE_TYPE) goto l8622; /* x117996 */ /* x117995 */ /* x117994 stalin.sc:13424:471383 */ /* x117993 stalin.sc:13424:471404 */ t57149 = a25061; /* x117992 stalin.sc:13424:471384 */ a39566 = t57149; /* x290933 */ /* x290932 */ t57150 = a39566; /* x290931 */ if ((t57150.tag)==STRUCTURE_TYPE27698) return t57150.value.structure_type27698->s12; backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34483]"); structure_ref_error(); l8622: /* x118056 */ /* x118000 */ /* x117998 */ t57112 = a25062; /* x117999 */ t57113 = q75; /* x117997 */ t57114.tag = EXTERNAL_SYMBOL_TYPE; t57114.value.external_symbol_type = t57112; t57115.tag = EXTERNAL_SYMBOL_TYPE; t57115.value.external_symbol_type = t57113; if (f26160(t57114, t57115)==FALSE_TYPE) goto l8624; /* x118005 */ /* x118004 */ /* x118003 stalin.sc:13425:471430 */ /* x118002 stalin.sc:13425:471451 */ t57147 = a25061; /* x118001 stalin.sc:13425:471431 */ a39567 = t57147; /* x290937 */ /* x290936 */ t57148 = a39567; /* x290935 */ if ((t57148.tag)==STRUCTURE_TYPE27698) return t57148.value.structure_type27698->s12; backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34484]"); structure_ref_error(); l8624: /* x118055 */ /* x118009 */ /* x118007 */ t57116 = a25062; /* x118008 */ t57117 = q76; /* x118006 */ t57118.tag = EXTERNAL_SYMBOL_TYPE; t57118.value.external_symbol_type = t57116; t57119.tag = EXTERNAL_SYMBOL_TYPE; t57119.value.external_symbol_type = t57117; if (f26160(t57118, t57119)==FALSE_TYPE) goto l8626; /* x118014 */ /* x118013 */ /* x118012 stalin.sc:13426:471477 */ /* x118011 stalin.sc:13426:471498 */ t57145 = a25061; /* x118010 stalin.sc:13426:471478 */ a39568 = t57145; /* x290941 */ /* x290940 */ t57146 = a39568; /* x290939 */ if ((t57146.tag)==STRUCTURE_TYPE27698) return t57146.value.structure_type27698->s12; backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34485]"); structure_ref_error(); l8626: /* x118054 */ /* x118018 */ /* x118016 */ t57120 = a25062; /* x118017 */ t57121 = q50; /* x118015 */ t57122.tag = EXTERNAL_SYMBOL_TYPE; t57122.value.external_symbol_type = t57120; t57123.tag = EXTERNAL_SYMBOL_TYPE; t57123.value.external_symbol_type = t57121; if (f26160(t57122, t57123)==FALSE_TYPE) goto l8628; /* x118036 */ /* x118035 */ /* x118034 stalin.sc:13428:471526 */ /* x118026 stalin.sc:13428:471532 */ /* x118025 stalin.sc:13428:471553 */ /* x118024 stalin.sc:13428:471558 */ /* x118023 stalin.sc:13428:471579 */ t57139 = a25061; /* x118022 stalin.sc:13428:471559 */ a39569 = t57139; /* x290945 */ /* x290944 */ t57140 = a39569; /* x290943 */ if (!((t57140.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34486]"); structure_ref_error();} t57138 = t57140.value.structure_type27698->s12; /* x269208 stalin.sc:13428:471554 */ if (!((t57138.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 13428, 471553); structure_ref_error();} t57137 = t57138.value.structure_type24753->s0; /* x118020 stalin.sc:13428:471533 */ t57135 = f13186(t57137); /* x118033 stalin.sc:13429:471587 */ /* x118032 stalin.sc:13429:471608 */ /* x118031 stalin.sc:13429:471613 */ /* x118030 stalin.sc:13429:471634 */ t57143 = a25061; /* x118029 stalin.sc:13429:471614 */ a39570 = t57143; /* x290949 */ /* x290948 */ t57144 = a39570; /* x290947 */ if (!((t57144.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34487]"); structure_ref_error();} t57142 = t57144.value.structure_type27698->s12; /* x269207 stalin.sc:13429:471609 */ if (!((t57142.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 13429, 471608); structure_ref_error();} t57141 = t57142.value.structure_type24753->s1; /* x118027 stalin.sc:13429:471588 */ t57136 = f13186(t57141); /* x269209 stalin.sc:13428:471527 */ r13186.tag = STRUCTURE_TYPE24753; r13186.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r13186.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13428, 471526); out_of_memory_error();} r13186.value.structure_type24753->s0 = t57135; r13186.value.structure_type24753->s1 = t57136; return r13186; l8628: /* x118053 */ /* x118040 */ /* x118038 */ t57124 = a25062; /* x118039 */ t57125 = q52; /* x118037 */ t57126.tag = EXTERNAL_SYMBOL_TYPE; t57126.value.external_symbol_type = t57124; t57127.tag = EXTERNAL_SYMBOL_TYPE; t57127.value.external_symbol_type = t57125; if (f26160(t57126, t57127)==FALSE_TYPE) goto l8630; /* x118048 */ /* x118047 */ /* x118046 stalin.sc:13430:471663 */ /* x118045 stalin.sc:13430:471695 */ /* x118044 stalin.sc:13430:471716 */ t57133 = a25061; /* x118043 stalin.sc:13430:471696 */ a39571 = t57133; /* x290953 */ /* x290952 */ t57134 = a39571; /* x290951 */ if (!((t57134.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34488]"); structure_ref_error();} t57129 = t57134.value.structure_type27698->s12; /* x118042 stalin.sc:13430:471675 */ /* x118041 stalin.sc:13430:471664 */ t57130 = (unsigned)NATIVE_PROCEDURE_TYPE17971; t57131 = t57129; t57132 = f1154(t57130, t57131); r13186.tag = HEADED_VECTOR_TYPE27896; r13186.value.headed_vector_type27896 = t57132; return r13186; l8630: /* x118052 */ /* x118051 */ /* x118050 stalin.sc:13431:471730 */ /* x118049 stalin.sc:13431:471731 */ /* x296429 QobiScheme.sc:166:5314 */ /* x296428 QobiScheme.sc:166:5321 */ t57128 = "This shouldn\'t happen"; /* x296427 QobiScheme.sc:166:5315 */ stalin_panic(t57128);} /* UNDECORATE[13160] */ struct w49 f13160(struct w49 a25052) {struct w49 r13160; char *a25057; /* v */ struct w49 a36973; /* S */ struct w49 a36974; /* S */ struct w49 a38563; /* S */ struct w49 a38677; /* S */ struct w49 a38914; /* S */ struct w49 a38968; /* S */ struct w49 a39023; /* S */ struct w49 a39070; /* S */ struct w49 a39155; /* S */ struct w49 a39156; /* S */ struct w49 a39233; /* S */ struct w49 a39557; /* S */ struct w49 a39558; /* S */ struct w49 a39559; /* S */ struct w49 a39560; /* S */ struct w49 a39561; /* S */ struct w49 a39562; /* S */ struct w49 a39586; /* S */ struct w49 a39587; /* S */ struct w49 a40322; /* S */ char *t57159; char *t57160; char *t57161; struct w49 t57162; struct w49 t57163; char *t57164; char *t57165; struct w49 t57166; struct w49 t57167; char *t57168; char *t57169; struct w49 t57170; struct w49 t57171; char *t57172; char *t57173; struct w49 t57174; struct w49 t57175; char *t57176; char *t57177; struct w49 t57178; struct w49 t57179; char *t57180; char *t57181; struct w49 t57182; struct w49 t57183; char *t57184; char *t57185; struct w49 t57186; struct w49 t57187; char *t57188; char *t57189; struct w49 t57190; struct w49 t57191; char *t57192; char *t57193; struct w49 t57194; struct w49 t57195; char *t57196; char *t57197; struct w49 t57198; struct w49 t57199; char *t57200; char *t57201; struct w49 t57202; struct w49 t57203; char *t57204; char *t57205; struct w49 t57206; struct w49 t57207; char *t57208; char *t57209; struct w49 t57210; struct w49 t57211; char *t57212; char *t57213; struct w49 t57214; struct w49 t57215; char *t57216; char *t57217; struct w49 t57218; struct w49 t57219; char *t57220; char *t57221; struct w49 t57222; struct w49 t57223; char *t57224; char *t57225; struct w49 t57226; struct w49 t57227; char *t57228; char *t57229; struct w49 t57230; struct w49 t57231; char *t57232; char *t57233; struct w49 t57234; struct w49 t57235; char *t57236; char *t57237; struct w49 t57238; struct w49 t57239; char *t57240; char *t57241; struct w49 t57242; struct w49 t57243; char *t57244; struct w49 t57245; struct structure_type24753 *t57246; struct w49 t57247; struct w49 t57248; struct w49 t57249; struct w11873 t57250; struct w36270 t57251; struct w49 t57252; struct structure_type24753 *t57253; struct w49 t57254; struct w49 t57255; struct w49 t57256; struct w49 t57257; struct w49 t57258; struct w49 t57259; char *t57260; struct w49 t57261; struct w49 t57262; struct structure_type24753 *t57263; struct w49 t57264; struct structure_type24753 *t57265; struct w49 t57266; struct w49 t57267; struct w49 t57268; char *t57269; struct w49 t57270; struct w49 t57271; struct structure_type24753 *t57272; struct w49 t57273; struct structure_type24753 *t57274; struct w49 t57275; struct w49 t57276; struct w49 t57277; char *t57278; struct structure_type24753 *t57279; struct w49 t57280; struct w49 t57281; struct structure_type24753 *t57282; struct w49 t57283; struct structure_type24753 *t57284; struct w49 t57285; struct w49 t57286; struct w49 t57287; struct w49 t57288; struct w49 t57289; struct structure_type24753 *t57290; struct w49 t57291; struct w49 t57292; struct w49 t57293; struct w49 t57294; struct w49 t57295; struct w49 t57296; struct w49 t57297; struct w49 t57298; struct w49 t57299; char *t57300; struct structure_type24753 *t57301; struct w49 t57302; struct w49 t57303; struct structure_type24753 *t57304; struct w49 t57305; struct structure_type24753 *t57306; struct w49 t57307; struct w49 t57308; struct w49 t57309; struct w49 t57310; struct w49 t57311; struct w49 t57312; struct w49 t57313; struct w49 t57314; struct w49 t57315; struct w49 t57316; struct w49 t57317; char *t57318; struct structure_type24753 *t57319; struct w49 t57320; struct w49 t57321; struct structure_type24753 *t57322; struct w49 t57323; struct w49 t57324; struct w49 t57325; struct structure_type24753 *t57326; struct structure_type24753 *t57327; struct w49 t57328; struct w49 t57329; struct w49 t57330; struct w49 t57331; char *t57332; struct structure_type24753 *t57333; struct w49 t57334; struct w49 t57335; struct structure_type24753 *t57336; struct w49 t57337; struct w49 t57338; struct w49 t57339; struct w49 t57340; char *t57341; struct structure_type24753 *t57342; struct w49 t57343; struct w49 t57344; struct structure_type24753 *t57345; struct w49 t57346; struct w49 t57347; struct w49 t57348; char *t57349; struct structure_type24753 *t57350; struct w49 t57351; struct w49 t57352; struct structure_type24753 *t57353; struct w49 t57354; struct w49 t57355; struct w49 t57356; struct w49 t57357; struct w49 t57358; struct w49 t57359; struct w49 t57360; struct w49 t57361; struct w49 t57362; struct w49 t57363; struct w49 t57364; struct w49 t57365; struct w49 t57366; struct w49 t57367; struct w49 t57370; struct w49 t57371; /* x118172 */ /* x118169 */ /* x118168 */ /* x118171 */ /* x118170 */ /* x118167 */ /* x118166 */ /* x118070 */ /* x118069 */ /* x118165 */ /* x118164 */ /* x117939 */ /* x117938 stalin.sc:13445:472346 */ /* x117937 stalin.sc:13445:472352 */ /* x117936 stalin.sc:13445:472369 */ t57370 = a25052; /* x117935 stalin.sc:13445:472353 */ a40322 = t57370; /* x293957 */ /* x293956 */ t57371 = a40322; /* x293955 */ if (!((t57371.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35239]"); structure_ref_error();} t57159 = t57371.value.structure_type27698->s0; /* x117934 */ a25057 = t57159; /* x117933 */ /* x117629 */ /* x117627 */ t57160 = a25057; /* x117628 */ t57161 = q68; /* x117626 */ t57162.tag = EXTERNAL_SYMBOL_TYPE; t57162.value.external_symbol_type = t57160; t57163.tag = EXTERNAL_SYMBOL_TYPE; t57163.value.external_symbol_type = t57161; if (f26160(t57162, t57163)==FALSE_TYPE) goto l8632; /* x117636 */ /* x117635 */ /* x117634 stalin.sc:13446:472391 */ r13160.tag = STRUCTURE_TYPE24753; r13160.value.structure_type24753 = &t57368; return r13160; l8632: /* x117932 */ /* x117640 */ /* x117638 */ t57164 = a25057; /* x117639 */ t57165 = q69; /* x117637 */ t57166.tag = EXTERNAL_SYMBOL_TYPE; t57166.value.external_symbol_type = t57164; t57167.tag = EXTERNAL_SYMBOL_TYPE; t57167.value.external_symbol_type = t57165; if (f26160(t57166, t57167)==FALSE_TYPE) goto l8634; /* x117643 */ /* x117642 */ /* x117641 stalin.sc:13447:472416 */ r13160.tag = TRUE_TYPE; return r13160; l8634: /* x117931 */ /* x117647 */ /* x117645 */ t57168 = a25057; /* x117646 */ t57169 = q70; /* x117644 */ t57170.tag = EXTERNAL_SYMBOL_TYPE; t57170.value.external_symbol_type = t57168; t57171.tag = EXTERNAL_SYMBOL_TYPE; t57171.value.external_symbol_type = t57169; if (f26160(t57170, t57171)==FALSE_TYPE) goto l8636; /* x117650 */ /* x117649 */ /* x117648 stalin.sc:13448:472440 */ r13160.tag = FALSE_TYPE; return r13160; l8636: /* x117930 */ /* x117654 */ /* x117652 */ t57172 = a25057; /* x117653 */ t57173 = q71; /* x117651 */ t57174.tag = EXTERNAL_SYMBOL_TYPE; t57174.value.external_symbol_type = t57172; t57175.tag = EXTERNAL_SYMBOL_TYPE; t57175.value.external_symbol_type = t57173; if (f26160(t57174, t57175)==FALSE_TYPE) goto l8638; /* x117659 */ /* x117658 */ /* x117657 stalin.sc:13449:472463 */ /* x117656 stalin.sc:13449:472484 */ t57366 = a25052; /* x117655 stalin.sc:13449:472464 */ a39557 = t57366; /* x290897 */ /* x290896 */ t57367 = a39557; /* x290895 */ if ((t57367.tag)==STRUCTURE_TYPE27698) return t57367.value.structure_type27698->s12; backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34474]"); structure_ref_error(); l8638: /* x117929 */ /* x117663 */ /* x117661 */ t57176 = a25057; /* x117662 */ t57177 = q72; /* x117660 */ t57178.tag = EXTERNAL_SYMBOL_TYPE; t57178.value.external_symbol_type = t57176; t57179.tag = EXTERNAL_SYMBOL_TYPE; t57179.value.external_symbol_type = t57177; if (f26160(t57178, t57179)==FALSE_TYPE) goto l8640; /* x117668 */ /* x117667 */ /* x117666 stalin.sc:13450:472509 */ /* x117665 stalin.sc:13450:472530 */ t57364 = a25052; /* x117664 stalin.sc:13450:472510 */ a39558 = t57364; /* x290901 */ /* x290900 */ t57365 = a39558; /* x290899 */ if ((t57365.tag)==STRUCTURE_TYPE27698) return t57365.value.structure_type27698->s12; backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34475]"); structure_ref_error(); l8640: /* x117928 */ /* x117672 */ /* x117670 */ t57180 = a25057; /* x117671 */ t57181 = q73; /* x117669 */ t57182.tag = EXTERNAL_SYMBOL_TYPE; t57182.value.external_symbol_type = t57180; t57183.tag = EXTERNAL_SYMBOL_TYPE; t57183.value.external_symbol_type = t57181; if (f26160(t57182, t57183)==FALSE_TYPE) goto l8642; /* x117677 */ /* x117676 */ /* x117675 stalin.sc:13451:472555 */ /* x117674 stalin.sc:13451:472576 */ t57362 = a25052; /* x117673 stalin.sc:13451:472556 */ a39559 = t57362; /* x290905 */ /* x290904 */ t57363 = a39559; /* x290903 */ if ((t57363.tag)==STRUCTURE_TYPE27698) return t57363.value.structure_type27698->s12; backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34476]"); structure_ref_error(); l8642: /* x117927 */ /* x117681 */ /* x117679 */ t57184 = a25057; /* x117680 */ t57185 = q74; /* x117678 */ t57186.tag = EXTERNAL_SYMBOL_TYPE; t57186.value.external_symbol_type = t57184; t57187.tag = EXTERNAL_SYMBOL_TYPE; t57187.value.external_symbol_type = t57185; if (f26160(t57186, t57187)==FALSE_TYPE) goto l8644; /* x117686 */ /* x117685 */ /* x117684 stalin.sc:13452:472606 */ /* x117683 stalin.sc:13452:472627 */ t57360 = a25052; /* x117682 stalin.sc:13452:472607 */ a39560 = t57360; /* x290909 */ /* x290908 */ t57361 = a39560; /* x290907 */ if ((t57361.tag)==STRUCTURE_TYPE27698) return t57361.value.structure_type27698->s12; backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34477]"); structure_ref_error(); l8644: /* x117926 */ /* x117690 */ /* x117688 */ t57188 = a25057; /* x117689 */ t57189 = q75; /* x117687 */ t57190.tag = EXTERNAL_SYMBOL_TYPE; t57190.value.external_symbol_type = t57188; t57191.tag = EXTERNAL_SYMBOL_TYPE; t57191.value.external_symbol_type = t57189; if (f26160(t57190, t57191)==FALSE_TYPE) goto l8646; /* x117695 */ /* x117694 */ /* x117693 stalin.sc:13453:472652 */ /* x117692 stalin.sc:13453:472673 */ t57358 = a25052; /* x117691 stalin.sc:13453:472653 */ a39561 = t57358; /* x290913 */ /* x290912 */ t57359 = a39561; /* x290911 */ if ((t57359.tag)==STRUCTURE_TYPE27698) return t57359.value.structure_type27698->s12; backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34478]"); structure_ref_error(); l8646: /* x117925 */ /* x117699 */ /* x117697 */ t57192 = a25057; /* x117698 */ t57193 = q76; /* x117696 */ t57194.tag = EXTERNAL_SYMBOL_TYPE; t57194.value.external_symbol_type = t57192; t57195.tag = EXTERNAL_SYMBOL_TYPE; t57195.value.external_symbol_type = t57193; if (f26160(t57194, t57195)==FALSE_TYPE) goto l8648; /* x117710 */ /* x117709 */ /* x117708 stalin.sc:13454:472698 */ /* x117701 */ t57349 = q11; /* x117707 */ /* x117705 stalin.sc:13454:472701 */ /* x117704 stalin.sc:13454:472722 */ t57356 = a25052; /* x117703 stalin.sc:13454:472702 */ a39562 = t57356; /* x290917 */ /* x290916 */ t57357 = a39562; /* x290915 */ if (!((t57357.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34479]"); structure_ref_error();} t57354 = t57357.value.structure_type27698->s12; /* x117706 */ /* x117702 */ t57355.tag = NULL_TYPE; t57350 = f26175(t57354, t57355); /* x117700 */ t57351.tag = EXTERNAL_SYMBOL_TYPE; t57351.value.external_symbol_type = t57349; t57352.tag = STRUCTURE_TYPE24753; t57352.value.structure_type24753 = t57350; t57353 = f26175(t57351, t57352); r13160.tag = STRUCTURE_TYPE24753; r13160.value.structure_type24753 = t57353; return r13160; l8648: /* x117924 */ /* x117714 */ /* x117712 */ t57196 = a25057; /* x117713 */ t57197 = q50; /* x117711 */ t57198.tag = EXTERNAL_SYMBOL_TYPE; t57198.value.external_symbol_type = t57196; t57199.tag = EXTERNAL_SYMBOL_TYPE; t57199.value.external_symbol_type = t57197; if (f26160(t57198, t57199)==FALSE_TYPE) goto l8650; /* x117725 */ /* x117724 */ /* x117723 stalin.sc:13455:472745 */ /* x117716 */ t57341 = q11; /* x117722 */ /* x117720 stalin.sc:13455:472748 */ /* x117719 stalin.sc:13455:472769 */ t57348 = a25052; /* x117718 stalin.sc:13455:472749 */ t57346 = f13186(t57348); /* x117721 */ /* x117717 */ t57347.tag = NULL_TYPE; t57342 = f26175(t57346, t57347); /* x117715 */ t57343.tag = EXTERNAL_SYMBOL_TYPE; t57343.value.external_symbol_type = t57341; t57344.tag = STRUCTURE_TYPE24753; t57344.value.structure_type24753 = t57342; t57345 = f26175(t57343, t57344); r13160.tag = STRUCTURE_TYPE24753; r13160.value.structure_type24753 = t57345; return r13160; l8650: /* x117923 */ /* x117729 */ /* x117727 */ t57200 = a25057; /* x117728 */ t57201 = q52; /* x117726 */ t57202.tag = EXTERNAL_SYMBOL_TYPE; t57202.value.external_symbol_type = t57200; t57203.tag = EXTERNAL_SYMBOL_TYPE; t57203.value.external_symbol_type = t57201; if (f26160(t57202, t57203)==FALSE_TYPE) goto l8652; /* x117734 */ /* x117733 */ /* x117732 stalin.sc:13456:472794 */ /* x117731 stalin.sc:13456:472815 */ t57340 = a25052; /* x117730 stalin.sc:13456:472795 */ return f13186(t57340); l8652: /* x117922 */ /* x117756 */ /* x117755 */ /* x117753 */ t57204 = a25057; /* x117754 */ t57205 = q39; /* x117752 */ t57206.tag = EXTERNAL_SYMBOL_TYPE; t57206.value.external_symbol_type = t57204; t57207.tag = EXTERNAL_SYMBOL_TYPE; t57207.value.external_symbol_type = t57205; if (!(f26160(t57206, t57207)==FALSE_TYPE)) goto l8653; /* x117749 */ /* x117748 */ /* x117746 */ t57208 = a25057; /* x117747 */ t57209 = q40; /* x117745 */ t57210.tag = EXTERNAL_SYMBOL_TYPE; t57210.value.external_symbol_type = t57208; t57211.tag = EXTERNAL_SYMBOL_TYPE; t57211.value.external_symbol_type = t57209; if (!(f26160(t57210, t57211)==FALSE_TYPE)) goto l8653; /* x117742 */ /* x117740 */ t57212 = a25057; /* x117741 */ t57213 = q41; /* x117739 */ t57214.tag = EXTERNAL_SYMBOL_TYPE; t57214.value.external_symbol_type = t57212; t57215.tag = EXTERNAL_SYMBOL_TYPE; t57215.value.external_symbol_type = t57213; if (f26160(t57214, t57215)==FALSE_TYPE) goto l8654; l8653: /* x117787 */ /* x117786 */ /* x117785 stalin.sc:13458:472874 */ /* x117759 stalin.sc:13458:472878 */ /* x117758 stalin.sc:13458:472885 */ t57317 = a25052; /* x117757 stalin.sc:13458:472879 */ if (f8918(t57317)==FALSE_TYPE) goto l8671; /* x117768 stalin.sc:13459:472895 */ /* x117761 */ t57332 = q39; /* x117767 */ /* x117765 stalin.sc:13459:472905 */ /* x117764 stalin.sc:13459:472921 */ t57339 = a25052; /* x117763 stalin.sc:13459:472906 */ t57337 = f13108(t57339); /* x117766 */ /* x117762 */ t57338.tag = NULL_TYPE; t57333 = f26175(t57337, t57338); /* x117760 */ t57334.tag = EXTERNAL_SYMBOL_TYPE; t57334.value.external_symbol_type = t57332; t57335.tag = STRUCTURE_TYPE24753; t57335.value.structure_type24753 = t57333; t57336 = f26175(t57334, t57335); r13160.tag = STRUCTURE_TYPE24753; r13160.value.structure_type24753 = t57336; return r13160; l8671: /* x117784 stalin.sc:13460:472932 */ /* x117770 */ t57318 = q39; /* x117783 */ /* x117774 stalin.sc:13460:472942 */ /* x117773 stalin.sc:13460:472958 */ t57325 = a25052; /* x117772 stalin.sc:13460:472943 */ t57323 = f13108(t57325); /* x117782 */ /* x117781 */ /* x117780 stalin.sc:13461:472965 */ /* x117779 stalin.sc:13461:472989 */ /* x117778 stalin.sc:13461:473006 */ t57330 = a25052; /* x117777 stalin.sc:13461:472990 */ a39233 = t57330; /* x289601 */ /* x289600 */ t57331 = a39233; /* x289599 */ if (!((t57331.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34150]"); structure_ref_error();} t57329 = t57331.value.structure_type27698->s15; /* x117776 stalin.sc:13461:472966 */ t57326 = f13200(t57329); /* x117775 */ t57328.tag = STRUCTURE_TYPE24753; t57328.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t57328.value.structure_type24753)==NULL) {backtrace_internal("[inside UNDECORATE 13177]"); out_of_memory_error();} t57328.value.structure_type24753->s0.tag = NULL_TYPE; t57328.value.structure_type24753->s1.tag = NULL_TYPE; t57327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t57327==NULL) {backtrace_internal("[inside UNDECORATE 13177]"); out_of_memory_error();} t57327->s0.tag = STRUCTURE_TYPE24753; t57327->s0.value.structure_type24753 = t57326; t57327->s1 = t57328; t57324 = f26254(t57327); /* x117771 */ t57319 = f26175(t57323, t57324); /* x117769 */ t57320.tag = EXTERNAL_SYMBOL_TYPE; t57320.value.external_symbol_type = t57318; t57321.tag = STRUCTURE_TYPE24753; t57321.value.structure_type24753 = t57319; t57322 = f26175(t57320, t57321); r13160.tag = STRUCTURE_TYPE24753; r13160.value.structure_type24753 = t57322; return r13160; l8654: /* x117921 */ /* x117791 */ /* x117789 */ t57216 = a25057; /* x117790 */ t57217 = q42; /* x117788 */ t57218.tag = EXTERNAL_SYMBOL_TYPE; t57218.value.external_symbol_type = t57216; t57219.tag = EXTERNAL_SYMBOL_TYPE; t57219.value.external_symbol_type = t57217; if (f26160(t57218, t57219)==FALSE_TYPE) goto l8658; /* x117811 */ /* x117810 */ /* x117809 stalin.sc:13463:473026 */ /* x117793 */ t57300 = q42; /* x117808 */ /* x117799 stalin.sc:13463:473034 */ /* x117798 stalin.sc:13463:473049 */ /* x117797 stalin.sc:13463:473070 */ t57310 = a25052; /* x117796 stalin.sc:13463:473050 */ a39155 = t57310; /* x289289 */ /* x289288 */ t57311 = a39155; /* x289287 */ if (!((t57311.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34072]"); structure_ref_error();} t57308 = t57311.value.structure_type27698->s16; /* x117795 stalin.sc:13463:473035 */ a36973 = t57308; /* x280561 */ /* x280560 */ t57309 = a36973; /* x280559 */ if (!((t57309.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31890]"); structure_ref_error();} t57305 = t57309.value.structure_type27692->s7; /* x117807 */ /* x117805 stalin.sc:13464:473078 */ /* x117804 stalin.sc:13464:473090 */ /* x117803 stalin.sc:13464:473109 */ t57315 = a25052; /* x117802 stalin.sc:13464:473091 */ a39070 = t57315; /* x288949 */ /* x288948 */ t57316 = a39070; /* x288947 */ if (!((t57316.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33987]"); structure_ref_error();} t57314 = t57316.value.structure_type27698->s17; /* x117801 stalin.sc:13464:473079 */ t57312 = f13160(t57314); /* x117806 */ /* x117800 */ t57313.tag = NULL_TYPE; t57306 = f26175(t57312, t57313); /* x117794 */ t57307.tag = STRUCTURE_TYPE24753; t57307.value.structure_type24753 = t57306; t57301 = f26175(t57305, t57307); /* x117792 */ t57302.tag = EXTERNAL_SYMBOL_TYPE; t57302.value.external_symbol_type = t57300; t57303.tag = STRUCTURE_TYPE24753; t57303.value.structure_type24753 = t57301; t57304 = f26175(t57302, t57303); r13160.tag = STRUCTURE_TYPE24753; r13160.value.structure_type24753 = t57304; return r13160; l8658: /* x117920 */ /* x117815 */ /* x117813 */ t57220 = a25057; /* x117814 */ t57221 = q43; /* x117812 */ t57222.tag = EXTERNAL_SYMBOL_TYPE; t57222.value.external_symbol_type = t57220; t57223.tag = EXTERNAL_SYMBOL_TYPE; t57223.value.external_symbol_type = t57221; if (f26160(t57222, t57223)==FALSE_TYPE) goto l8660; /* x117842 */ /* x117841 */ /* x117840 stalin.sc:13466:473126 */ /* x117817 */ t57278 = q43; /* x117839 */ /* x117823 stalin.sc:13466:473132 */ /* x117822 stalin.sc:13466:473144 */ /* x117821 stalin.sc:13466:473167 */ t57287 = a25052; /* x117820 stalin.sc:13466:473145 */ a39023 = t57287; /* x288761 */ /* x288760 */ t57288 = a39023; /* x288759 */ if (!((t57288.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33940]"); structure_ref_error();} t57286 = t57288.value.structure_type27698->s18; /* x117819 stalin.sc:13466:473133 */ t57283 = f13160(t57286); /* x117838 */ /* x117829 stalin.sc:13467:473173 */ /* x117828 stalin.sc:13467:473185 */ /* x117827 stalin.sc:13467:473208 */ t57293 = a25052; /* x117826 stalin.sc:13467:473186 */ a38968 = t57293; /* x288541 */ /* x288540 */ t57294 = a38968; /* x288539 */ if (!((t57294.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33885]"); structure_ref_error();} t57292 = t57294.value.structure_type27698->s19; /* x117825 stalin.sc:13467:473174 */ t57289 = f13160(t57292); /* x117837 */ /* x117835 stalin.sc:13468:473214 */ /* x117834 stalin.sc:13468:473226 */ /* x117833 stalin.sc:13468:473248 */ t57298 = a25052; /* x117832 stalin.sc:13468:473227 */ a38914 = t57298; /* x288325 */ /* x288324 */ t57299 = a38914; /* x288323 */ if (!((t57299.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33831]"); structure_ref_error();} t57297 = t57299.value.structure_type27698->s20; /* x117831 stalin.sc:13468:473215 */ t57295 = f13160(t57297); /* x117836 */ /* x117830 */ t57296.tag = NULL_TYPE; t57290 = f26175(t57295, t57296); /* x117824 */ t57291.tag = STRUCTURE_TYPE24753; t57291.value.structure_type24753 = t57290; t57284 = f26175(t57289, t57291); /* x117818 */ t57285.tag = STRUCTURE_TYPE24753; t57285.value.structure_type24753 = t57284; t57279 = f26175(t57283, t57285); /* x117816 */ t57280.tag = EXTERNAL_SYMBOL_TYPE; t57280.value.external_symbol_type = t57278; t57281.tag = STRUCTURE_TYPE24753; t57281.value.structure_type24753 = t57279; t57282 = f26175(t57280, t57281); r13160.tag = STRUCTURE_TYPE24753; r13160.value.structure_type24753 = t57282; return r13160; l8660: /* x117919 */ /* x117846 */ /* x117844 */ t57224 = a25057; /* x117845 */ t57225 = q77; /* x117843 */ t57226.tag = EXTERNAL_SYMBOL_TYPE; t57226.value.external_symbol_type = t57224; t57227.tag = EXTERNAL_SYMBOL_TYPE; t57227.value.external_symbol_type = t57225; if (f26160(t57226, t57227)==FALSE_TYPE) goto l8662; /* x117857 */ /* x117856 */ /* x117855 stalin.sc:13469:473279 */ /* x117848 */ t57269 = q77; /* x117854 */ /* x117853 */ /* x117852 stalin.sc:13469:473303 */ /* x117851 stalin.sc:13469:473324 */ t57276 = a25052; /* x117850 stalin.sc:13469:473304 */ a39586 = t57276; /* x291013 */ /* x291012 */ t57277 = a39586; /* x291011 */ if (!((t57277.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34503]"); structure_ref_error();} t57273 = t57277.value.structure_type27698->s12; /* x117849 */ t57275.tag = STRUCTURE_TYPE24753; t57275.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t57275.value.structure_type24753)==NULL) {backtrace_internal("[inside UNDECORATE 13180]"); out_of_memory_error();} t57275.value.structure_type24753->s0.tag = NULL_TYPE; t57275.value.structure_type24753->s1.tag = NULL_TYPE; t57274 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t57274==NULL) {backtrace_internal("[inside UNDECORATE 13180]"); out_of_memory_error();} t57274->s0 = t57273; t57274->s1 = t57275; t57270 = f26254(t57274); /* x117847 */ t57271.tag = EXTERNAL_SYMBOL_TYPE; t57271.value.external_symbol_type = t57269; t57272 = f26175(t57271, t57270); r13160.tag = STRUCTURE_TYPE24753; r13160.value.structure_type24753 = t57272; return r13160; l8662: /* x117918 */ /* x117861 */ /* x117859 */ t57228 = a25057; /* x117860 */ t57229 = q78; /* x117858 */ t57230.tag = EXTERNAL_SYMBOL_TYPE; t57230.value.external_symbol_type = t57228; t57231.tag = EXTERNAL_SYMBOL_TYPE; t57231.value.external_symbol_type = t57229; if (f26160(t57230, t57231)==FALSE_TYPE) goto l8664; /* x117872 */ /* x117871 */ /* x117870 stalin.sc:13470:473352 */ /* x117863 */ t57260 = q78; /* x117869 */ /* x117868 */ /* x117867 stalin.sc:13470:473374 */ /* x117866 stalin.sc:13470:473395 */ t57267 = a25052; /* x117865 stalin.sc:13470:473375 */ a39587 = t57267; /* x291017 */ /* x291016 */ t57268 = a39587; /* x291015 */ if (!((t57268.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34504]"); structure_ref_error();} t57264 = t57268.value.structure_type27698->s12; /* x117864 */ t57266.tag = STRUCTURE_TYPE24753; t57266.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t57266.value.structure_type24753)==NULL) {backtrace_internal("[inside UNDECORATE 13181]"); out_of_memory_error();} t57266.value.structure_type24753->s0.tag = NULL_TYPE; t57266.value.structure_type24753->s1.tag = NULL_TYPE; t57265 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t57265==NULL) {backtrace_internal("[inside UNDECORATE 13181]"); out_of_memory_error();} t57265->s0 = t57264; t57265->s1 = t57266; t57261 = f26254(t57265); /* x117862 */ t57262.tag = EXTERNAL_SYMBOL_TYPE; t57262.value.external_symbol_type = t57260; t57263 = f26175(t57262, t57261); r13160.tag = STRUCTURE_TYPE24753; r13160.value.structure_type24753 = t57263; return r13160; l8664: /* x117917 */ /* x117876 */ /* x117874 */ t57232 = a25057; /* x117875 */ t57233 = q38; /* x117873 */ t57234.tag = EXTERNAL_SYMBOL_TYPE; t57234.value.external_symbol_type = t57232; t57235.tag = EXTERNAL_SYMBOL_TYPE; t57235.value.external_symbol_type = t57233; if (f26160(t57234, t57235)==FALSE_TYPE) goto l8666; /* x117883 */ /* x117882 */ /* x117881 stalin.sc:13471:473412 */ /* x117880 stalin.sc:13471:473427 */ /* x117879 stalin.sc:13471:473448 */ t57258 = a25052; /* x117878 stalin.sc:13471:473428 */ a39156 = t57258; /* x289293 */ /* x289292 */ t57259 = a39156; /* x289291 */ if (!((t57259.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34073]"); structure_ref_error();} t57256 = t57259.value.structure_type27698->s16; /* x117877 stalin.sc:13471:473413 */ a36974 = t57256; /* x280565 */ /* x280564 */ t57257 = a36974; /* x280563 */ if ((t57257.tag)==STRUCTURE_TYPE27692) return t57257.value.structure_type27692->s7; backtrace_internal("[clone VARIABLE-NAME[6573] 31891]"); structure_ref_error(); l8666: /* x117916 */ /* x117896 */ /* x117895 */ /* x117893 */ t57236 = a25057; /* x117894 */ t57237 = q36; /* x117892 */ t57238.tag = EXTERNAL_SYMBOL_TYPE; t57238.value.external_symbol_type = t57236; t57239.tag = EXTERNAL_SYMBOL_TYPE; t57239.value.external_symbol_type = t57237; if (!(f26160(t57238, t57239)==FALSE_TYPE)) goto l8667; /* x117889 */ /* x117887 */ t57240 = a25057; /* x117888 */ t57241 = q37; /* x117886 */ t57242.tag = EXTERNAL_SYMBOL_TYPE; t57242.value.external_symbol_type = t57240; t57243.tag = EXTERNAL_SYMBOL_TYPE; t57243.value.external_symbol_type = t57241; if (f26160(t57242, t57243)==FALSE_TYPE) goto l8668; l8667: /* x117911 */ /* x117910 */ /* x117909 stalin.sc:13473:473481 */ /* x117902 stalin.sc:13473:473487 */ /* x117901 stalin.sc:13473:473499 */ /* x117900 stalin.sc:13473:473518 */ t57248 = a25052; /* x117899 stalin.sc:13473:473500 */ a38677 = t57248; /* x287377 */ /* x287376 */ t57249 = a38677; /* x287375 */ if (!((t57249.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33594]"); structure_ref_error();} t57247 = t57249.value.structure_type27698->s21; /* x117898 stalin.sc:13473:473488 */ t57245 = f13160(t57247); /* x117908 stalin.sc:13474:473524 */ /* x117907 stalin.sc:13474:473540 */ /* x117906 stalin.sc:13474:473562 */ t57254 = a25052; /* x117905 stalin.sc:13474:473541 */ a38563 = t57254; /* x286921 */ /* x286920 */ t57255 = a38563; /* x286919 */ if (!((t57255.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33480]"); structure_ref_error();} t57250 = t57255.value.structure_type27698->s22; /* x117904 stalin.sc:13474:473529 */ /* x117903 stalin.sc:13474:473525 */ t57251.tag = NATIVE_PROCEDURE_TYPE7020; t57252 = *((struct w49 *)(&t57250)); t57253 = (struct structure_type24753 *)NULL_TYPE; t57246 = f27731(t57251, t57252, t57253); /* x269210 stalin.sc:13473:473482 */ r13160.tag = STRUCTURE_TYPE24753; r13160.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r13160.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13473, 473481); out_of_memory_error();} r13160.value.structure_type24753->s0 = t57245; /* MOVE: branching squeezed to general */ if (t57246>=((struct structure_type24753 *)VALUE_OFFSET)) {r13160.value.structure_type24753->s1.tag = STRUCTURE_TYPE24753; r13160.value.structure_type24753->s1.value.structure_type24753 = t57246;} else r13160.value.structure_type24753->s1.tag = (unsigned)t57246; return r13160; l8668: /* x117915 */ /* x117914 */ /* x117913 stalin.sc:13475:473576 */ /* x117912 stalin.sc:13475:473577 */ /* x296741 QobiScheme.sc:166:5314 */ /* x296740 QobiScheme.sc:166:5321 */ t57244 = "This shouldn\'t happen"; /* x296739 QobiScheme.sc:166:5315 */ stalin_panic(t57244);} /* EXTERNALIZE-EXPRESSIONS[13157] */ struct structure_type24753 *f13157(struct w49 a25051) {struct structure_type24753 *r13157; struct structure_type24753 *a35192; /* OBJS */ struct w11873 a36093; /* PAIR */ struct structure_type24753 *a36104; /* PAIR */ struct w49 a38561; /* S */ struct w49 a38578; /* S */ struct w49 a38671; /* S */ struct w49 a38700; /* S */ struct w49 a38701; /* S */ struct w49 a38702; /* S */ struct w49 a38703; /* S */ struct w49 a38704; /* S */ struct w49 a39232; /* S */ struct w49 a39439; /* S */ struct w49 a40357; /* S */ struct w49 a40358; /* S */ char *t57372; char *t57373; struct w49 t57374; struct w49 t57375; int t57376; int t57377; struct w11873 t57378; struct w49 t57379; struct w49 t57380; struct w49 t57381; char *t57382; char *t57383; struct w49 t57384; struct w49 t57385; struct w49 t57386; struct w49 t57387; struct w9296 t57388; char *t57389; struct w49 t57390; struct w49 t57391; struct w49 t57392; struct w49 t57393; int t57394; int t57395; struct structure_type24753 *t57396; struct w49 t57397; struct w49 t57398; struct w49 t57399; struct w49 t57400; struct w49 t57401; struct w49 t57402; struct w49 t57403; struct w49 t57404; struct structure_type24753 *t57405; struct structure_type24753 *t57406; struct w49 t57407; struct w49 t57408; struct w49 t57409; struct structure_type24753 *t57410; struct w49 t57411; struct structure_type24753 *t57412; struct structure_type24753 *t57413; struct w49 t57414; struct w11873 t57415; struct w11873 t57416; struct w49 t57417; struct w49 t57418; struct w49 t57419; struct w49 t57420; struct w49 t57421; struct w49 t57422; struct w49 t57423; /* x117614 stalin.sc:13364:468897 */ /* x117592 stalin.sc:13364:468901 */ /* x117527 stalin.sc:13364:468906 */ /* x117525 stalin.sc:13364:468911 */ /* x117524 stalin.sc:13364:468928 */ t57374 = a25051; /* x117523 stalin.sc:13364:468912 */ a40358 = t57374; /* x294101 */ /* x294100 */ t57375 = a40358; /* x294099 */ if (!((t57375.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35275]"); structure_ref_error();} t57372 = t57375.value.structure_type27698->s0; /* x117526 stalin.sc:13364:468931 */ t57373 = q36; /* x269218 stalin.sc:13364:468907 */ if (!(t57372==t57373)) goto l8673; /* x117590 */ /* x117535 stalin.sc:13365:468942 */ /* x117533 stalin.sc:13365:468945 */ /* x117532 stalin.sc:13365:468953 */ /* x117531 stalin.sc:13365:468975 */ t57380 = a25051; /* x117530 stalin.sc:13365:468954 */ a38578 = t57380; /* x286981 */ /* x286980 */ t57381 = a38578; /* x286979 */ if (!((t57381.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33495]"); structure_ref_error();} t57378 = t57381.value.structure_type27698->s22; /* x117529 stalin.sc:13365:468946 */ t57379 = *((struct w49 *)(&t57378)); t57376 = f26227(t57379); /* x117534 stalin.sc:13365:468979 */ t57377 = 1; /* x269217 stalin.sc:13365:468943 */ if (!(t57376==t57377)) goto l8673; /* x117588 */ /* x117543 stalin.sc:13366:468986 */ /* x117541 stalin.sc:13366:468991 */ /* x117540 stalin.sc:13366:469008 */ /* x117539 stalin.sc:13366:469027 */ t57386 = a25051; /* x117538 stalin.sc:13366:469009 */ a38704 = t57386; /* x287485 */ /* x287484 */ t57387 = a38704; /* x287483 */ if (!((t57387.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33621]"); structure_ref_error();} t57384 = t57387.value.structure_type27698->s21; /* x117537 stalin.sc:13366:468992 */ a40357 = t57384; /* x294097 */ /* x294096 */ t57385 = a40357; /* x294095 */ if (!((t57385.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35274]"); structure_ref_error();} t57382 = t57385.value.structure_type27698->s0; /* x117542 stalin.sc:13366:469031 */ t57383 = q39; /* x269216 stalin.sc:13366:468987 */ if (!(t57382==t57383)) goto l8673; /* x117586 */ /* x117554 stalin.sc:13368:469074 */ /* x117553 stalin.sc:13368:469079 */ /* x117550 stalin.sc:13368:469084 */ /* x117549 stalin.sc:13368:469107 */ /* x117548 stalin.sc:13368:469126 */ t57392 = a25051; /* x117547 stalin.sc:13368:469108 */ a38703 = t57392; /* x287481 */ /* x287480 */ t57393 = a38703; /* x287479 */ if (!((t57393.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33620]"); structure_ref_error();} t57390 = t57393.value.structure_type27698->s21; /* x117546 stalin.sc:13368:469085 */ a39439 = t57390; /* x290425 */ /* x290424 */ t57391 = a39439; /* x290423 */ if (!((t57391.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34356]"); structure_ref_error();} t57388 = t57391.value.structure_type27698->s14; /* x117552 stalin.sc:13369:469137 */ /* x117551 stalin.sc:13369:469138 */ /* x277247 stalin.sc:323:8604 */ t57389 = q35; /* x269214 stalin.sc:13368:469080 */ if (((t57388.tag)==EXTERNAL_SYMBOL_TYPE)&&((t57388.value.external_symbol_type)==t57389)) goto l8673; /* x117584 */ /* x117564 stalin.sc:13370:469157 */ /* x117562 stalin.sc:13370:469160 */ /* x117561 stalin.sc:13370:469168 */ /* x117560 stalin.sc:13370:469179 */ /* x117559 stalin.sc:13370:469198 */ t57399 = a25051; /* x117558 stalin.sc:13370:469180 */ a38702 = t57399; /* x287477 */ /* x287476 */ t57400 = a38702; /* x287475 */ if (!((t57400.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33619]"); structure_ref_error();} t57398 = t57400.value.structure_type27698->s21; /* x117557 stalin.sc:13370:469169 */ t57396 = f8987(t57398); /* x117556 stalin.sc:13370:469161 */ /* MOVE: branching squeezed to general */ if (t57396>=((struct structure_type24753 *)VALUE_OFFSET)) {t57397.tag = STRUCTURE_TYPE24753; t57397.value.structure_type24753 = t57396;} else t57397.tag = (unsigned)t57396; t57394 = f26227(t57397); /* x117563 stalin.sc:13370:469203 */ t57395 = 1; /* x269213 stalin.sc:13370:469158 */ if (!(t57394==t57395)) goto l8673; /* x117582 */ /* x117571 stalin.sc:13371:469210 */ /* x117570 stalin.sc:13371:469215 */ /* x117569 stalin.sc:13371:469222 */ /* x117568 stalin.sc:13371:469241 */ t57402 = a25051; /* x117567 stalin.sc:13371:469223 */ a38701 = t57402; /* x287473 */ /* x287472 */ t57403 = a38701; /* x287471 */ if (!((t57403.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33618]"); structure_ref_error();} t57401 = t57403.value.structure_type27698->s21; /* x117566 stalin.sc:13371:469216 */ if (!(f8931(t57401)==FALSE_TYPE)) goto l8673; /* x117580 */ /* x117579 stalin.sc:13372:469258 */ /* x117578 stalin.sc:13372:469265 */ /* x117577 stalin.sc:13372:469276 */ /* x117576 stalin.sc:13372:469295 */ t57408 = a25051; /* x117575 stalin.sc:13372:469277 */ a38700 = t57408; /* x287469 */ /* x287468 */ t57409 = a38700; /* x287467 */ if (!((t57409.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33617]"); structure_ref_error();} t57407 = t57409.value.structure_type27698->s21; /* x117574 stalin.sc:13372:469266 */ t57405 = f8987(t57407); /* x117573 stalin.sc:13372:469259 */ a36104 = t57405; /* x275773 */ /* x275772 */ t57406 = a36104; /* x275771 */ if (!(t57406>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 30253]"); structure_ref_error();} t57404 = t57406->s0; /* x117572 stalin.sc:13372:469251 */ if (f13055(t57404)==FALSE_TYPE) goto l8673; /* x117608 stalin.sc:13373:469308 */ /* x117600 stalin.sc:13373:469314 */ /* x117599 stalin.sc:13373:469338 */ /* x117598 stalin.sc:13373:469345 */ /* x117597 stalin.sc:13373:469367 */ t57417 = a25051; /* x117596 stalin.sc:13373:469346 */ a38561 = t57417; /* x286913 */ /* x286912 */ t57418 = a38561; /* x286911 */ if (!((t57418.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33478]"); structure_ref_error();} t57415 = t57418.value.structure_type27698->s22; /* x117595 stalin.sc:13373:469339 */ a36093 = t57415; /* x275729 */ /* x275728 */ t57416 = a36093; /* x275727 */ if (!((t57416.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30242]"); structure_ref_error();} t57414 = t57416.value.structure_type24753->s0; /* x117594 stalin.sc:13373:469315 */ t57412 = f13116(t57414); /* x117607 stalin.sc:13374:469377 */ /* x117606 stalin.sc:13374:469402 */ /* x117605 stalin.sc:13374:469419 */ /* x117604 stalin.sc:13374:469438 */ t57422 = a25051; /* x117603 stalin.sc:13374:469420 */ a38671 = t57422; /* x287353 */ /* x287352 */ t57423 = a38671; /* x287351 */ if (!((t57423.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33588]"); structure_ref_error();} t57420 = t57423.value.structure_type27698->s21; /* x117602 stalin.sc:13374:469403 */ a39232 = t57420; /* x289597 */ /* x289596 */ t57421 = a39232; /* x289595 */ if (!((t57421.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34149]"); structure_ref_error();} t57419 = t57421.value.structure_type27698->s15; /* x117601 stalin.sc:13374:469378 */ t57413 = f13157(t57419); /* x269211 stalin.sc:13373:469309 */ r13157 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r13157==NULL) {backtrace("stalin.sc", 13373, 469308); out_of_memory_error();} r13157->s0.tag = STRUCTURE_TYPE24753; r13157->s0.value.structure_type24753 = t57412; r13157->s1.tag = STRUCTURE_TYPE24753; r13157->s1.value.structure_type24753 = t57413; return r13157; l8673: /* x117613 stalin.sc:13375:469450 */ /* x117612 stalin.sc:13375:469456 */ /* x117611 stalin.sc:13375:469480 */ t57411 = a25051; /* x117610 stalin.sc:13375:469457 */ t57410 = f13116(t57411); /* x117609 stalin.sc:13375:469451 */ a35192 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35192==NULL) {backtrace("stalin.sc", 13375, 469450); out_of_memory_error();} a35192->s0.tag = STRUCTURE_TYPE24753; a35192->s0.value.structure_type24753 = t57410; a35192->s1.tag = NULL_TYPE; /* x272391 */ return a35192;} /* UNDECORATE-CONSTANT[13143] */ struct w49 f13143(struct w49 a25049) {struct w49 r13143; char *a25050; /* v */ struct w49 a39615; /* S */ struct w49 a39616; /* S */ struct w49 a39617; /* S */ struct w49 a39618; /* S */ struct w49 a39619; /* S */ struct w49 a39620; /* S */ struct w49 a39621; /* S */ struct w49 a39622; /* S */ struct w49 a39623; /* S */ struct w49 a40395; /* S */ char *t57424; char *t57425; char *t57426; struct w49 t57427; struct w49 t57428; char *t57429; char *t57430; struct w49 t57431; struct w49 t57432; char *t57433; char *t57434; struct w49 t57435; struct w49 t57436; char *t57437; char *t57438; struct w49 t57439; struct w49 t57440; char *t57441; char *t57442; struct w49 t57443; struct w49 t57444; char *t57445; char *t57446; struct w49 t57447; struct w49 t57448; char *t57449; char *t57450; struct w49 t57451; struct w49 t57452; char *t57453; char *t57454; struct w49 t57455; struct w49 t57456; char *t57457; char *t57458; struct w49 t57459; struct w49 t57460; char *t57461; char *t57462; struct w49 t57463; struct w49 t57464; char *t57465; char *t57466; struct w49 t57467; struct w49 t57468; char *t57469; struct w49 t57470; unsigned t57471; struct w49 t57472; struct headed_vector_type27896 *t57473; struct w49 t57474; struct w49 t57475; struct w49 t57476; struct w49 t57477; struct w49 t57478; struct w49 t57479; struct w49 t57480; struct w49 t57481; struct w49 t57482; struct w49 t57483; struct w49 t57484; struct w49 t57485; struct w49 t57486; struct w49 t57487; struct w49 t57488; struct w49 t57489; struct w49 t57490; struct w49 t57491; struct w49 t57492; struct w49 t57493; struct w49 t57494; struct w49 t57495; struct w49 t57496; struct w49 t57497; struct w49 t57498; struct w49 t57499; /* x117519 stalin.sc:13348:468232 */ /* x117518 stalin.sc:13348:468238 */ /* x117517 stalin.sc:13348:468255 */ t57498 = a25049; /* x117516 stalin.sc:13348:468239 */ a40395 = t57498; /* x294249 */ /* x294248 */ t57499 = a40395; /* x294247 */ if (!((t57499.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35312]"); structure_ref_error();} t57424 = t57499.value.structure_type27698->s0; /* x117515 */ a25050 = t57424; /* x117514 */ /* x117394 */ /* x117392 */ t57425 = a25050; /* x117393 */ t57426 = q68; /* x117391 */ t57427.tag = EXTERNAL_SYMBOL_TYPE; t57427.value.external_symbol_type = t57425; t57428.tag = EXTERNAL_SYMBOL_TYPE; t57428.value.external_symbol_type = t57426; if (f26160(t57427, t57428)==FALSE_TYPE) goto l8681; /* x117397 */ /* x117396 */ /* x117395 stalin.sc:13349:468278 */ r13143.tag = NULL_TYPE; return r13143; l8681: /* x117513 */ /* x117401 */ /* x117399 */ t57429 = a25050; /* x117400 */ t57430 = q69; /* x117398 */ t57431.tag = EXTERNAL_SYMBOL_TYPE; t57431.value.external_symbol_type = t57429; t57432.tag = EXTERNAL_SYMBOL_TYPE; t57432.value.external_symbol_type = t57430; if (f26160(t57431, t57432)==FALSE_TYPE) goto l8683; /* x117404 */ /* x117403 */ /* x117402 stalin.sc:13350:468303 */ r13143.tag = TRUE_TYPE; return r13143; l8683: /* x117512 */ /* x117408 */ /* x117406 */ t57433 = a25050; /* x117407 */ t57434 = q70; /* x117405 */ t57435.tag = EXTERNAL_SYMBOL_TYPE; t57435.value.external_symbol_type = t57433; t57436.tag = EXTERNAL_SYMBOL_TYPE; t57436.value.external_symbol_type = t57434; if (f26160(t57435, t57436)==FALSE_TYPE) goto l8685; /* x117411 */ /* x117410 */ /* x117409 stalin.sc:13351:468328 */ r13143.tag = FALSE_TYPE; return r13143; l8685: /* x117511 */ /* x117415 */ /* x117413 */ t57437 = a25050; /* x117414 */ t57438 = q71; /* x117412 */ t57439.tag = EXTERNAL_SYMBOL_TYPE; t57439.value.external_symbol_type = t57437; t57440.tag = EXTERNAL_SYMBOL_TYPE; t57440.value.external_symbol_type = t57438; if (f26160(t57439, t57440)==FALSE_TYPE) goto l8687; /* x117420 */ /* x117419 */ /* x117418 stalin.sc:13352:468352 */ /* x117417 stalin.sc:13352:468373 */ t57496 = a25049; /* x117416 stalin.sc:13352:468353 */ a39615 = t57496; /* x291129 */ /* x291128 */ t57497 = a39615; /* x291127 */ if ((t57497.tag)==STRUCTURE_TYPE27698) return t57497.value.structure_type27698->s12; backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34532]"); structure_ref_error(); l8687: /* x117510 */ /* x117424 */ /* x117422 */ t57441 = a25050; /* x117423 */ t57442 = q72; /* x117421 */ t57443.tag = EXTERNAL_SYMBOL_TYPE; t57443.value.external_symbol_type = t57441; t57444.tag = EXTERNAL_SYMBOL_TYPE; t57444.value.external_symbol_type = t57442; if (f26160(t57443, t57444)==FALSE_TYPE) goto l8689; /* x117429 */ /* x117428 */ /* x117427 stalin.sc:13353:468399 */ /* x117426 stalin.sc:13353:468420 */ t57494 = a25049; /* x117425 stalin.sc:13353:468400 */ a39616 = t57494; /* x291133 */ /* x291132 */ t57495 = a39616; /* x291131 */ if ((t57495.tag)==STRUCTURE_TYPE27698) return t57495.value.structure_type27698->s12; backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34533]"); structure_ref_error(); l8689: /* x117509 */ /* x117433 */ /* x117431 */ t57445 = a25050; /* x117432 */ t57446 = q73; /* x117430 */ t57447.tag = EXTERNAL_SYMBOL_TYPE; t57447.value.external_symbol_type = t57445; t57448.tag = EXTERNAL_SYMBOL_TYPE; t57448.value.external_symbol_type = t57446; if (f26160(t57447, t57448)==FALSE_TYPE) goto l8691; /* x117438 */ /* x117437 */ /* x117436 stalin.sc:13354:468446 */ /* x117435 stalin.sc:13354:468467 */ t57492 = a25049; /* x117434 stalin.sc:13354:468447 */ a39617 = t57492; /* x291137 */ /* x291136 */ t57493 = a39617; /* x291135 */ if ((t57493.tag)==STRUCTURE_TYPE27698) return t57493.value.structure_type27698->s12; backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34534]"); structure_ref_error(); l8691: /* x117508 */ /* x117442 */ /* x117440 */ t57449 = a25050; /* x117441 */ t57450 = q74; /* x117439 */ t57451.tag = EXTERNAL_SYMBOL_TYPE; t57451.value.external_symbol_type = t57449; t57452.tag = EXTERNAL_SYMBOL_TYPE; t57452.value.external_symbol_type = t57450; if (f26160(t57451, t57452)==FALSE_TYPE) goto l8693; /* x117447 */ /* x117446 */ /* x117445 stalin.sc:13355:468498 */ /* x117444 stalin.sc:13355:468519 */ t57490 = a25049; /* x117443 stalin.sc:13355:468499 */ a39618 = t57490; /* x291141 */ /* x291140 */ t57491 = a39618; /* x291139 */ if ((t57491.tag)==STRUCTURE_TYPE27698) return t57491.value.structure_type27698->s12; backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34535]"); structure_ref_error(); l8693: /* x117507 */ /* x117451 */ /* x117449 */ t57453 = a25050; /* x117450 */ t57454 = q75; /* x117448 */ t57455.tag = EXTERNAL_SYMBOL_TYPE; t57455.value.external_symbol_type = t57453; t57456.tag = EXTERNAL_SYMBOL_TYPE; t57456.value.external_symbol_type = t57454; if (f26160(t57455, t57456)==FALSE_TYPE) goto l8695; /* x117456 */ /* x117455 */ /* x117454 stalin.sc:13356:468545 */ /* x117453 stalin.sc:13356:468566 */ t57488 = a25049; /* x117452 stalin.sc:13356:468546 */ a39619 = t57488; /* x291145 */ /* x291144 */ t57489 = a39619; /* x291143 */ if ((t57489.tag)==STRUCTURE_TYPE27698) return t57489.value.structure_type27698->s12; backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34536]"); structure_ref_error(); l8695: /* x117506 */ /* x117460 */ /* x117458 */ t57457 = a25050; /* x117459 */ t57458 = q76; /* x117457 */ t57459.tag = EXTERNAL_SYMBOL_TYPE; t57459.value.external_symbol_type = t57457; t57460.tag = EXTERNAL_SYMBOL_TYPE; t57460.value.external_symbol_type = t57458; if (f26160(t57459, t57460)==FALSE_TYPE) goto l8697; /* x117465 */ /* x117464 */ /* x117463 stalin.sc:13357:468592 */ /* x117462 stalin.sc:13357:468613 */ t57486 = a25049; /* x117461 stalin.sc:13357:468593 */ a39620 = t57486; /* x291149 */ /* x291148 */ t57487 = a39620; /* x291147 */ if ((t57487.tag)==STRUCTURE_TYPE27698) return t57487.value.structure_type27698->s12; backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34537]"); structure_ref_error(); l8697: /* x117505 */ /* x117469 */ /* x117467 */ t57461 = a25050; /* x117468 */ t57462 = q50; /* x117466 */ t57463.tag = EXTERNAL_SYMBOL_TYPE; t57463.value.external_symbol_type = t57461; t57464.tag = EXTERNAL_SYMBOL_TYPE; t57464.value.external_symbol_type = t57462; if (f26160(t57463, t57464)==FALSE_TYPE) goto l8699; /* x117487 */ /* x117486 */ /* x117485 stalin.sc:13359:468641 */ /* x117477 stalin.sc:13359:468647 */ /* x117476 stalin.sc:13359:468668 */ /* x117475 stalin.sc:13359:468673 */ /* x117474 stalin.sc:13359:468694 */ t57480 = a25049; /* x117473 stalin.sc:13359:468674 */ a39621 = t57480; /* x291153 */ /* x291152 */ t57481 = a39621; /* x291151 */ if (!((t57481.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34538]"); structure_ref_error();} t57479 = t57481.value.structure_type27698->s12; /* x269220 stalin.sc:13359:468669 */ if (!((t57479.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 13359, 468668); structure_ref_error();} t57478 = t57479.value.structure_type24753->s0; /* x117471 stalin.sc:13359:468648 */ t57476 = f13143(t57478); /* x117484 stalin.sc:13360:468702 */ /* x117483 stalin.sc:13360:468723 */ /* x117482 stalin.sc:13360:468728 */ /* x117481 stalin.sc:13360:468749 */ t57484 = a25049; /* x117480 stalin.sc:13360:468729 */ a39622 = t57484; /* x291157 */ /* x291156 */ t57485 = a39622; /* x291155 */ if (!((t57485.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34539]"); structure_ref_error();} t57483 = t57485.value.structure_type27698->s12; /* x269219 stalin.sc:13360:468724 */ if (!((t57483.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 13360, 468723); structure_ref_error();} t57482 = t57483.value.structure_type24753->s1; /* x117478 stalin.sc:13360:468703 */ t57477 = f13143(t57482); /* x269221 stalin.sc:13359:468642 */ r13143.tag = STRUCTURE_TYPE24753; r13143.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r13143.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13359, 468641); out_of_memory_error();} r13143.value.structure_type24753->s0 = t57476; r13143.value.structure_type24753->s1 = t57477; return r13143; l8699: /* x117504 */ /* x117491 */ /* x117489 */ t57465 = a25050; /* x117490 */ t57466 = q52; /* x117488 */ t57467.tag = EXTERNAL_SYMBOL_TYPE; t57467.value.external_symbol_type = t57465; t57468.tag = EXTERNAL_SYMBOL_TYPE; t57468.value.external_symbol_type = t57466; if (f26160(t57467, t57468)==FALSE_TYPE) goto l8701; /* x117499 */ /* x117498 */ /* x117497 stalin.sc:13361:468778 */ /* x117496 stalin.sc:13361:468810 */ /* x117495 stalin.sc:13361:468831 */ t57474 = a25049; /* x117494 stalin.sc:13361:468811 */ a39623 = t57474; /* x291161 */ /* x291160 */ t57475 = a39623; /* x291159 */ if (!((t57475.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34540]"); structure_ref_error();} t57470 = t57475.value.structure_type27698->s12; /* x117493 stalin.sc:13361:468790 */ /* x117492 stalin.sc:13361:468779 */ t57471 = (unsigned)NATIVE_PROCEDURE_TYPE15306; t57472 = t57470; t57473 = f1154(t57471, t57472); r13143.tag = HEADED_VECTOR_TYPE27896; r13143.value.headed_vector_type27896 = t57473; return r13143; l8701: /* x117503 */ /* x117502 */ /* x117501 stalin.sc:13362:468845 */ /* x117500 stalin.sc:13362:468846 */ /* x297053 QobiScheme.sc:166:5314 */ /* x297052 QobiScheme.sc:166:5321 */ t57469 = "This shouldn\'t happen"; /* x297051 QobiScheme.sc:166:5315 */ stalin_panic(t57469);} /* EXTERNALIZE-EXPRESSION[13116] */ struct structure_type24753 *f13116(struct w49 a25039) {struct w49 a25044; /* X1 */ char *a25045; /* v */ struct w49 a36980; /* S */ struct w49 a36981; /* S */ struct w49 a38603; /* S */ struct w49 a38867; /* S */ struct w49 a38930; /* S */ struct w49 a38985; /* S */ struct w49 a39047; /* S */ struct w49 a39089; /* S */ struct w49 a39181; /* S */ struct w49 a39184; /* S */ struct w49 a39241; /* S */ struct w49 a39609; /* S */ struct w49 a39610; /* S */ struct w49 a39611; /* S */ struct w49 a39612; /* S */ struct w49 a39613; /* S */ struct w49 a39614; /* S */ struct w49 a39624; /* S */ struct w49 a39625; /* S */ struct w49 a40011; /* S */ struct w49 a40411; /* S */ struct w49 t57500; char *t57501; struct structure_type24753 *t57502; struct w49 t57503; struct w49 t57504; struct w49 t57505; struct structure_type24753 *t57506; struct w49 t57507; struct w49 t57508; struct w49 t57509; struct w49 t57510; struct w49 t57511; struct w49 t57512; char *t57513; char *t57514; char *t57515; struct w49 t57516; struct w49 t57517; char *t57518; char *t57519; struct w49 t57520; struct w49 t57521; char *t57522; char *t57523; struct w49 t57524; struct w49 t57525; char *t57526; char *t57527; struct w49 t57528; struct w49 t57529; char *t57530; char *t57531; struct w49 t57532; struct w49 t57533; char *t57534; char *t57535; struct w49 t57536; struct w49 t57537; char *t57538; char *t57539; struct w49 t57540; struct w49 t57541; char *t57542; char *t57543; struct w49 t57544; struct w49 t57545; char *t57546; char *t57547; struct w49 t57548; struct w49 t57549; char *t57550; char *t57551; struct w49 t57552; struct w49 t57553; char *t57554; char *t57555; struct w49 t57556; struct w49 t57557; char *t57558; char *t57559; struct w49 t57560; struct w49 t57561; char *t57562; char *t57563; struct w49 t57564; struct w49 t57565; char *t57566; char *t57567; struct w49 t57568; struct w49 t57569; char *t57570; char *t57571; struct w49 t57572; struct w49 t57573; char *t57574; char *t57575; struct w49 t57576; struct w49 t57577; char *t57578; char *t57579; struct w49 t57580; struct w49 t57581; char *t57582; char *t57583; struct w49 t57584; struct w49 t57585; char *t57586; char *t57587; struct w49 t57588; struct w49 t57589; char *t57590; char *t57591; struct w49 t57592; struct w49 t57593; char *t57594; char *t57595; struct w49 t57596; struct w49 t57597; char *t57598; struct structure_type24753 *t57599; struct structure_type24753 *t57600; struct w49 t57601; struct w49 t57602; struct w49 t57603; struct w11873 t57604; struct w36270 t57605; struct w49 t57606; struct structure_type24753 *t57607; struct w49 t57608; struct w49 t57609; struct w49 t57610; struct w49 t57611; struct w49 t57612; struct w49 t57613; char *t57614; struct w49 t57615; struct w49 t57616; struct structure_type24753 *t57617; struct w49 t57618; struct structure_type24753 *t57619; struct w49 t57620; struct w49 t57621; struct w49 t57622; char *t57623; struct w49 t57624; struct w49 t57625; struct structure_type24753 *t57626; struct w49 t57627; struct structure_type24753 *t57628; struct w49 t57629; struct w49 t57630; struct w49 t57631; char *t57632; struct structure_type24753 *t57633; struct w49 t57634; struct w49 t57635; struct structure_type24753 *t57636; struct structure_type24753 *t57637; struct structure_type24753 *t57638; struct w49 t57639; struct w49 t57640; struct w49 t57641; struct w49 t57642; struct w49 t57643; struct structure_type24753 *t57644; struct structure_type24753 *t57645; struct w49 t57646; struct w49 t57647; struct w49 t57648; struct w49 t57649; struct w49 t57650; struct structure_type24753 *t57651; struct w49 t57652; struct w49 t57653; struct w49 t57654; struct w49 t57655; struct w49 t57656; char *t57657; struct structure_type24753 *t57658; struct w49 t57659; struct w49 t57660; struct structure_type24753 *t57661; struct w49 t57662; struct structure_type24753 *t57663; struct w49 t57664; struct w49 t57665; struct w49 t57666; struct w49 t57667; struct w49 t57668; struct structure_type24753 *t57669; struct w49 t57670; struct w49 t57671; struct w49 t57672; struct w49 t57673; struct w49 t57674; struct w49 t57675; char *t57676; struct structure_type24753 *t57677; struct w49 t57678; struct w49 t57679; struct structure_type24753 *t57680; struct w49 t57681; struct w49 t57682; struct w49 t57683; struct structure_type24753 *t57684; struct structure_type24753 *t57685; struct w49 t57686; struct w49 t57687; struct w49 t57688; struct w49 t57689; char *t57690; struct structure_type24753 *t57691; struct w49 t57692; struct w49 t57693; struct structure_type24753 *t57694; struct w49 t57695; struct w49 t57696; struct w49 t57697; struct w49 t57698; char *t57699; struct structure_type24753 *t57700; struct w49 t57701; struct w49 t57702; struct structure_type24753 *t57703; struct w49 t57704; struct w49 t57705; struct w49 t57706; char *t57707; struct structure_type24753 *t57708; struct w49 t57709; struct w49 t57710; struct structure_type24753 *t57711; struct w49 t57712; struct w49 t57713; struct w49 t57714; struct w49 t57715; struct w49 t57716; struct w49 t57717; struct w49 t57718; struct w49 t57719; struct w49 t57720; struct w49 t57721; struct w49 t57722; struct w49 t57723; struct w49 t57724; struct w49 t57725; struct w49 t57728; struct w49 t57729; /* x117623 */ /* x117620 */ /* x117619 */ /* x117622 */ /* x117621 */ /* x117618 */ /* x117617 */ /* x117521 */ /* x117520 */ /* x117616 */ /* x117615 */ /* x117390 */ /* x117389 stalin.sc:13377:469507 */ /* x117388 stalin.sc:13377:469517 */ /* x117387 stalin.sc:13377:469523 */ /* x117386 stalin.sc:13377:469540 */ t57728 = a25039; /* x117385 stalin.sc:13377:469524 */ a40411 = t57728; /* x294313 */ /* x294312 */ t57729 = a40411; /* x294311 */ if (!((t57729.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35328]"); structure_ref_error();} t57513 = t57729.value.structure_type27698->s0; /* x117384 */ a25045 = t57513; /* x117383 */ /* x117079 */ /* x117077 */ t57514 = a25045; /* x117078 */ t57515 = q68; /* x117076 */ t57516.tag = EXTERNAL_SYMBOL_TYPE; t57516.value.external_symbol_type = t57514; t57517.tag = EXTERNAL_SYMBOL_TYPE; t57517.value.external_symbol_type = t57515; if (f26160(t57516, t57517)==FALSE_TYPE) goto l8704; /* x117086 */ /* x117085 */ /* x117084 stalin.sc:13378:469565 */ t57500.tag = STRUCTURE_TYPE24753; t57500.value.structure_type24753 = &t57726; goto l8705; l8704: /* x117382 */ /* x117090 */ /* x117088 */ t57518 = a25045; /* x117089 */ t57519 = q69; /* x117087 */ t57520.tag = EXTERNAL_SYMBOL_TYPE; t57520.value.external_symbol_type = t57518; t57521.tag = EXTERNAL_SYMBOL_TYPE; t57521.value.external_symbol_type = t57519; if (f26160(t57520, t57521)==FALSE_TYPE) goto l8707; /* x117093 */ /* x117092 */ /* x117091 stalin.sc:13379:469593 */ t57500.tag = TRUE_TYPE; goto l8708; l8707: /* x117381 */ /* x117097 */ /* x117095 */ t57522 = a25045; /* x117096 */ t57523 = q70; /* x117094 */ t57524.tag = EXTERNAL_SYMBOL_TYPE; t57524.value.external_symbol_type = t57522; t57525.tag = EXTERNAL_SYMBOL_TYPE; t57525.value.external_symbol_type = t57523; if (f26160(t57524, t57525)==FALSE_TYPE) goto l8710; /* x117100 */ /* x117099 */ /* x117098 stalin.sc:13380:469620 */ t57500.tag = FALSE_TYPE; goto l8711; l8710: /* x117380 */ /* x117104 */ /* x117102 */ t57526 = a25045; /* x117103 */ t57527 = q71; /* x117101 */ t57528.tag = EXTERNAL_SYMBOL_TYPE; t57528.value.external_symbol_type = t57526; t57529.tag = EXTERNAL_SYMBOL_TYPE; t57529.value.external_symbol_type = t57527; if (f26160(t57528, t57529)==FALSE_TYPE) goto l8713; /* x117109 */ /* x117108 */ /* x117107 stalin.sc:13381:469646 */ /* x117106 stalin.sc:13381:469667 */ t57724 = a25039; /* x117105 stalin.sc:13381:469647 */ a39609 = t57724; /* x291105 */ /* x291104 */ t57725 = a39609; /* x291103 */ if (!((t57725.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34526]"); structure_ref_error();} t57500 = t57725.value.structure_type27698->s12; goto l8714; l8713: /* x117379 */ /* x117113 */ /* x117111 */ t57530 = a25045; /* x117112 */ t57531 = q72; /* x117110 */ t57532.tag = EXTERNAL_SYMBOL_TYPE; t57532.value.external_symbol_type = t57530; t57533.tag = EXTERNAL_SYMBOL_TYPE; t57533.value.external_symbol_type = t57531; if (f26160(t57532, t57533)==FALSE_TYPE) goto l8716; /* x117118 */ /* x117117 */ /* x117116 stalin.sc:13382:469695 */ /* x117115 stalin.sc:13382:469716 */ t57722 = a25039; /* x117114 stalin.sc:13382:469696 */ a39610 = t57722; /* x291109 */ /* x291108 */ t57723 = a39610; /* x291107 */ if (!((t57723.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34527]"); structure_ref_error();} t57500 = t57723.value.structure_type27698->s12; goto l8717; l8716: /* x117378 */ /* x117122 */ /* x117120 */ t57534 = a25045; /* x117121 */ t57535 = q73; /* x117119 */ t57536.tag = EXTERNAL_SYMBOL_TYPE; t57536.value.external_symbol_type = t57534; t57537.tag = EXTERNAL_SYMBOL_TYPE; t57537.value.external_symbol_type = t57535; if (f26160(t57536, t57537)==FALSE_TYPE) goto l8719; /* x117127 */ /* x117126 */ /* x117125 stalin.sc:13383:469744 */ /* x117124 stalin.sc:13383:469765 */ t57720 = a25039; /* x117123 stalin.sc:13383:469745 */ a39611 = t57720; /* x291113 */ /* x291112 */ t57721 = a39611; /* x291111 */ if (!((t57721.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34528]"); structure_ref_error();} t57500 = t57721.value.structure_type27698->s12; goto l8720; l8719: /* x117377 */ /* x117131 */ /* x117129 */ t57538 = a25045; /* x117130 */ t57539 = q74; /* x117128 */ t57540.tag = EXTERNAL_SYMBOL_TYPE; t57540.value.external_symbol_type = t57538; t57541.tag = EXTERNAL_SYMBOL_TYPE; t57541.value.external_symbol_type = t57539; if (f26160(t57540, t57541)==FALSE_TYPE) goto l8722; /* x117136 */ /* x117135 */ /* x117134 stalin.sc:13384:469798 */ /* x117133 stalin.sc:13384:469819 */ t57718 = a25039; /* x117132 stalin.sc:13384:469799 */ a39612 = t57718; /* x291117 */ /* x291116 */ t57719 = a39612; /* x291115 */ if (!((t57719.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34529]"); structure_ref_error();} t57500 = t57719.value.structure_type27698->s12; goto l8723; l8722: /* x117376 */ /* x117140 */ /* x117138 */ t57542 = a25045; /* x117139 */ t57543 = q75; /* x117137 */ t57544.tag = EXTERNAL_SYMBOL_TYPE; t57544.value.external_symbol_type = t57542; t57545.tag = EXTERNAL_SYMBOL_TYPE; t57545.value.external_symbol_type = t57543; if (f26160(t57544, t57545)==FALSE_TYPE) goto l8725; /* x117145 */ /* x117144 */ /* x117143 stalin.sc:13385:469847 */ /* x117142 stalin.sc:13385:469868 */ t57716 = a25039; /* x117141 stalin.sc:13385:469848 */ a39613 = t57716; /* x291121 */ /* x291120 */ t57717 = a39613; /* x291119 */ if (!((t57717.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34530]"); structure_ref_error();} t57500 = t57717.value.structure_type27698->s12; goto l8726; l8725: /* x117375 */ /* x117149 */ /* x117147 */ t57546 = a25045; /* x117148 */ t57547 = q76; /* x117146 */ t57548.tag = EXTERNAL_SYMBOL_TYPE; t57548.value.external_symbol_type = t57546; t57549.tag = EXTERNAL_SYMBOL_TYPE; t57549.value.external_symbol_type = t57547; if (f26160(t57548, t57549)==FALSE_TYPE) goto l8728; /* x117160 */ /* x117159 */ /* x117158 stalin.sc:13386:469896 */ /* x117151 */ t57707 = q11; /* x117157 */ /* x117155 stalin.sc:13386:469899 */ /* x117154 stalin.sc:13386:469920 */ t57714 = a25039; /* x117153 stalin.sc:13386:469900 */ a39614 = t57714; /* x291125 */ /* x291124 */ t57715 = a39614; /* x291123 */ if (!((t57715.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34531]"); structure_ref_error();} t57712 = t57715.value.structure_type27698->s12; /* x117156 */ /* x117152 */ t57713.tag = NULL_TYPE; t57708 = f26175(t57712, t57713); /* x117150 */ t57709.tag = EXTERNAL_SYMBOL_TYPE; t57709.value.external_symbol_type = t57707; t57710.tag = STRUCTURE_TYPE24753; t57710.value.structure_type24753 = t57708; t57711 = f26175(t57709, t57710); t57500.tag = STRUCTURE_TYPE24753; t57500.value.structure_type24753 = t57711; goto l8729; l8728: /* x117374 */ /* x117164 */ /* x117162 */ t57550 = a25045; /* x117163 */ t57551 = q50; /* x117161 */ t57552.tag = EXTERNAL_SYMBOL_TYPE; t57552.value.external_symbol_type = t57550; t57553.tag = EXTERNAL_SYMBOL_TYPE; t57553.value.external_symbol_type = t57551; if (f26160(t57552, t57553)==FALSE_TYPE) goto l8731; /* x117175 */ /* x117174 */ /* x117173 stalin.sc:13387:469946 */ /* x117166 */ t57699 = q11; /* x117172 */ /* x117170 stalin.sc:13387:469949 */ /* x117169 stalin.sc:13387:469970 */ t57706 = a25039; /* x117168 stalin.sc:13387:469950 */ t57704 = f13143(t57706); /* x117171 */ /* x117167 */ t57705.tag = NULL_TYPE; t57700 = f26175(t57704, t57705); /* x117165 */ t57701.tag = EXTERNAL_SYMBOL_TYPE; t57701.value.external_symbol_type = t57699; t57702.tag = STRUCTURE_TYPE24753; t57702.value.structure_type24753 = t57700; t57703 = f26175(t57701, t57702); t57500.tag = STRUCTURE_TYPE24753; t57500.value.structure_type24753 = t57703; goto l8732; l8731: /* x117373 */ /* x117179 */ /* x117177 */ t57554 = a25045; /* x117178 */ t57555 = q52; /* x117176 */ t57556.tag = EXTERNAL_SYMBOL_TYPE; t57556.value.external_symbol_type = t57554; t57557.tag = EXTERNAL_SYMBOL_TYPE; t57557.value.external_symbol_type = t57555; if (f26160(t57556, t57557)==FALSE_TYPE) goto l8734; /* x117184 */ /* x117183 */ /* x117182 stalin.sc:13388:469998 */ /* x117181 stalin.sc:13388:470019 */ t57698 = a25039; /* x117180 stalin.sc:13388:469999 */ t57500 = f13143(t57698); goto l8735; l8734: /* x117372 */ /* x117206 */ /* x117205 */ /* x117203 */ t57558 = a25045; /* x117204 */ t57559 = q39; /* x117202 */ t57560.tag = EXTERNAL_SYMBOL_TYPE; t57560.value.external_symbol_type = t57558; t57561.tag = EXTERNAL_SYMBOL_TYPE; t57561.value.external_symbol_type = t57559; if (!(f26160(t57560, t57561)==FALSE_TYPE)) goto l8736; /* x117199 */ /* x117198 */ /* x117196 */ t57562 = a25045; /* x117197 */ t57563 = q40; /* x117195 */ t57564.tag = EXTERNAL_SYMBOL_TYPE; t57564.value.external_symbol_type = t57562; t57565.tag = EXTERNAL_SYMBOL_TYPE; t57565.value.external_symbol_type = t57563; if (!(f26160(t57564, t57565)==FALSE_TYPE)) goto l8736; /* x117192 */ /* x117190 */ t57566 = a25045; /* x117191 */ t57567 = q41; /* x117189 */ t57568.tag = EXTERNAL_SYMBOL_TYPE; t57568.value.external_symbol_type = t57566; t57569.tag = EXTERNAL_SYMBOL_TYPE; t57569.value.external_symbol_type = t57567; if (f26160(t57568, t57569)==FALSE_TYPE) goto l8737; l8736: /* x117237 */ /* x117236 */ /* x117235 stalin.sc:13390:470084 */ /* x117209 stalin.sc:13390:470088 */ /* x117208 stalin.sc:13390:470095 */ t57675 = a25039; /* x117207 stalin.sc:13390:470089 */ if (f8918(t57675)==FALSE_TYPE) goto l8761; /* x117218 stalin.sc:13391:470101 */ /* x117211 */ t57690 = q39; /* x117217 */ /* x117215 stalin.sc:13391:470111 */ /* x117214 stalin.sc:13391:470127 */ t57697 = a25039; /* x117213 stalin.sc:13391:470112 */ t57695 = f13108(t57697); /* x117216 */ /* x117212 */ t57696.tag = NULL_TYPE; t57691 = f26175(t57695, t57696); /* x117210 */ t57692.tag = EXTERNAL_SYMBOL_TYPE; t57692.value.external_symbol_type = t57690; t57693.tag = STRUCTURE_TYPE24753; t57693.value.structure_type24753 = t57691; t57694 = f26175(t57692, t57693); t57500.tag = STRUCTURE_TYPE24753; t57500.value.structure_type24753 = t57694; goto l8762; l8761: /* x117234 stalin.sc:13392:470134 */ /* x117220 */ t57676 = q39; /* x117233 */ /* x117224 stalin.sc:13392:470144 */ /* x117223 stalin.sc:13392:470160 */ t57683 = a25039; /* x117222 stalin.sc:13392:470145 */ t57681 = f13108(t57683); /* x117232 */ /* x117231 */ /* x117230 stalin.sc:13393:470170 */ /* x117229 stalin.sc:13393:470195 */ /* x117228 stalin.sc:13393:470212 */ t57688 = a25039; /* x117227 stalin.sc:13393:470196 */ a39241 = t57688; /* x289633 */ /* x289632 */ t57689 = a39241; /* x289631 */ if (!((t57689.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34158]"); structure_ref_error();} t57687 = t57689.value.structure_type27698->s15; /* x117226 stalin.sc:13393:470171 */ t57684 = f13157(t57687); /* x117225 */ t57686.tag = STRUCTURE_TYPE24753; t57686.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t57686.value.structure_type24753)==NULL) {backtrace_internal("[inside EXTERNALIZE-EXPRESSION 13134]"); out_of_memory_error();} t57686.value.structure_type24753->s0.tag = NULL_TYPE; t57686.value.structure_type24753->s1.tag = NULL_TYPE; t57685 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t57685==NULL) {backtrace_internal("[inside EXTERNALIZE-EXPRESSION 13134]"); out_of_memory_error();} t57685->s0.tag = STRUCTURE_TYPE24753; t57685->s0.value.structure_type24753 = t57684; t57685->s1 = t57686; t57682 = f26254(t57685); /* x117221 */ t57677 = f26175(t57681, t57682); /* x117219 */ t57678.tag = EXTERNAL_SYMBOL_TYPE; t57678.value.external_symbol_type = t57676; t57679.tag = STRUCTURE_TYPE24753; t57679.value.structure_type24753 = t57677; t57680 = f26175(t57678, t57679); t57500.tag = STRUCTURE_TYPE24753; t57500.value.structure_type24753 = t57680; l8762: goto l8738; l8737: /* x117371 */ /* x117241 */ /* x117239 */ t57570 = a25045; /* x117240 */ t57571 = q42; /* x117238 */ t57572.tag = EXTERNAL_SYMBOL_TYPE; t57572.value.external_symbol_type = t57570; t57573.tag = EXTERNAL_SYMBOL_TYPE; t57573.value.external_symbol_type = t57571; if (f26160(t57572, t57573)==FALSE_TYPE) goto l8742; /* x117261 */ /* x117260 */ /* x117259 stalin.sc:13395:470238 */ /* x117243 */ t57657 = q42; /* x117258 */ /* x117249 stalin.sc:13395:470246 */ /* x117248 stalin.sc:13395:470261 */ /* x117247 stalin.sc:13395:470282 */ t57667 = a25039; /* x117246 stalin.sc:13395:470262 */ a39181 = t57667; /* x289393 */ /* x289392 */ t57668 = a39181; /* x289391 */ if (!((t57668.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34098]"); structure_ref_error();} t57665 = t57668.value.structure_type27698->s16; /* x117245 stalin.sc:13395:470247 */ a36980 = t57665; /* x280589 */ /* x280588 */ t57666 = a36980; /* x280587 */ if (!((t57666.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31897]"); structure_ref_error();} t57662 = t57666.value.structure_type27692->s7; /* x117257 */ /* x117255 stalin.sc:13396:470293 */ /* x117254 stalin.sc:13396:470317 */ /* x117253 stalin.sc:13396:470336 */ t57673 = a25039; /* x117252 stalin.sc:13396:470318 */ a39089 = t57673; /* x289025 */ /* x289024 */ t57674 = a39089; /* x289023 */ if (!((t57674.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 34006]"); structure_ref_error();} t57672 = t57674.value.structure_type27698->s17; /* x117251 stalin.sc:13396:470294 */ t57669 = f13116(t57672); /* x117256 */ /* x117250 */ t57670.tag = STRUCTURE_TYPE24753; t57670.value.structure_type24753 = t57669; t57671.tag = NULL_TYPE; t57663 = f26175(t57670, t57671); /* x117244 */ t57664.tag = STRUCTURE_TYPE24753; t57664.value.structure_type24753 = t57663; t57658 = f26175(t57662, t57664); /* x117242 */ t57659.tag = EXTERNAL_SYMBOL_TYPE; t57659.value.external_symbol_type = t57657; t57660.tag = STRUCTURE_TYPE24753; t57660.value.structure_type24753 = t57658; t57661 = f26175(t57659, t57660); t57500.tag = STRUCTURE_TYPE24753; t57500.value.structure_type24753 = t57661; goto l8743; l8742: /* x117370 */ /* x117265 */ /* x117263 */ t57574 = a25045; /* x117264 */ t57575 = q43; /* x117262 */ t57576.tag = EXTERNAL_SYMBOL_TYPE; t57576.value.external_symbol_type = t57574; t57577.tag = EXTERNAL_SYMBOL_TYPE; t57577.value.external_symbol_type = t57575; if (f26160(t57576, t57577)==FALSE_TYPE) goto l8745; /* x117292 */ /* x117291 */ /* x117290 stalin.sc:13398:470359 */ /* x117267 */ t57632 = q43; /* x117289 */ /* x117273 stalin.sc:13398:470365 */ /* x117272 stalin.sc:13398:470389 */ /* x117271 stalin.sc:13398:470412 */ t57642 = a25039; /* x117270 stalin.sc:13398:470390 */ a39047 = t57642; /* x288857 */ /* x288856 */ t57643 = a39047; /* x288855 */ if (!((t57643.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33964]"); structure_ref_error();} t57641 = t57643.value.structure_type27698->s18; /* x117269 stalin.sc:13398:470366 */ t57637 = f13116(t57641); /* x117288 */ /* x117279 stalin.sc:13399:470421 */ /* x117278 stalin.sc:13399:470445 */ /* x117277 stalin.sc:13399:470468 */ t57649 = a25039; /* x117276 stalin.sc:13399:470446 */ a38985 = t57649; /* x288609 */ /* x288608 */ t57650 = a38985; /* x288607 */ if (!((t57650.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33902]"); structure_ref_error();} t57648 = t57650.value.structure_type27698->s19; /* x117275 stalin.sc:13399:470422 */ t57644 = f13116(t57648); /* x117287 */ /* x117285 stalin.sc:13400:470477 */ /* x117284 stalin.sc:13400:470501 */ /* x117283 stalin.sc:13400:470523 */ t57655 = a25039; /* x117282 stalin.sc:13400:470502 */ a38930 = t57655; /* x288389 */ /* x288388 */ t57656 = a38930; /* x288387 */ if (!((t57656.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33847]"); structure_ref_error();} t57654 = t57656.value.structure_type27698->s20; /* x117281 stalin.sc:13400:470478 */ t57651 = f13116(t57654); /* x117286 */ /* x117280 */ t57652.tag = STRUCTURE_TYPE24753; t57652.value.structure_type24753 = t57651; t57653.tag = NULL_TYPE; t57645 = f26175(t57652, t57653); /* x117274 */ t57646.tag = STRUCTURE_TYPE24753; t57646.value.structure_type24753 = t57644; t57647.tag = STRUCTURE_TYPE24753; t57647.value.structure_type24753 = t57645; t57638 = f26175(t57646, t57647); /* x117268 */ t57639.tag = STRUCTURE_TYPE24753; t57639.value.structure_type24753 = t57637; t57640.tag = STRUCTURE_TYPE24753; t57640.value.structure_type24753 = t57638; t57633 = f26175(t57639, t57640); /* x117266 */ t57634.tag = EXTERNAL_SYMBOL_TYPE; t57634.value.external_symbol_type = t57632; t57635.tag = STRUCTURE_TYPE24753; t57635.value.structure_type24753 = t57633; t57636 = f26175(t57634, t57635); t57500.tag = STRUCTURE_TYPE24753; t57500.value.structure_type24753 = t57636; goto l8746; l8745: /* x117369 */ /* x117296 */ /* x117294 */ t57578 = a25045; /* x117295 */ t57579 = q77; /* x117293 */ t57580.tag = EXTERNAL_SYMBOL_TYPE; t57580.value.external_symbol_type = t57578; t57581.tag = EXTERNAL_SYMBOL_TYPE; t57581.value.external_symbol_type = t57579; if (f26160(t57580, t57581)==FALSE_TYPE) goto l8748; /* x117307 */ /* x117306 */ /* x117305 stalin.sc:13402:470563 */ /* x117298 */ t57623 = q77; /* x117304 */ /* x117303 */ /* x117302 stalin.sc:13402:470587 */ /* x117301 stalin.sc:13402:470608 */ t57630 = a25039; /* x117300 stalin.sc:13402:470588 */ a39624 = t57630; /* x291165 */ /* x291164 */ t57631 = a39624; /* x291163 */ if (!((t57631.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34541]"); structure_ref_error();} t57627 = t57631.value.structure_type27698->s12; /* x117299 */ t57629.tag = STRUCTURE_TYPE24753; t57629.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t57629.value.structure_type24753)==NULL) {backtrace_internal("[inside EXTERNALIZE-EXPRESSION 13137]"); out_of_memory_error();} t57629.value.structure_type24753->s0.tag = NULL_TYPE; t57629.value.structure_type24753->s1.tag = NULL_TYPE; t57628 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t57628==NULL) {backtrace_internal("[inside EXTERNALIZE-EXPRESSION 13137]"); out_of_memory_error();} t57628->s0 = t57627; t57628->s1 = t57629; t57624 = f26254(t57628); /* x117297 */ t57625.tag = EXTERNAL_SYMBOL_TYPE; t57625.value.external_symbol_type = t57623; t57626 = f26175(t57625, t57624); t57500.tag = STRUCTURE_TYPE24753; t57500.value.structure_type24753 = t57626; goto l8749; l8748: /* x117368 */ /* x117311 */ /* x117309 */ t57582 = a25045; /* x117310 */ t57583 = q78; /* x117308 */ t57584.tag = EXTERNAL_SYMBOL_TYPE; t57584.value.external_symbol_type = t57582; t57585.tag = EXTERNAL_SYMBOL_TYPE; t57585.value.external_symbol_type = t57583; if (f26160(t57584, t57585)==FALSE_TYPE) goto l8751; /* x117322 */ /* x117321 */ /* x117320 stalin.sc:13404:470645 */ /* x117313 */ t57614 = q78; /* x117319 */ /* x117318 */ /* x117317 stalin.sc:13404:470667 */ /* x117316 stalin.sc:13404:470688 */ t57621 = a25039; /* x117315 stalin.sc:13404:470668 */ a39625 = t57621; /* x291169 */ /* x291168 */ t57622 = a39625; /* x291167 */ if (!((t57622.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34542]"); structure_ref_error();} t57618 = t57622.value.structure_type27698->s12; /* x117314 */ t57620.tag = STRUCTURE_TYPE24753; t57620.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t57620.value.structure_type24753)==NULL) {backtrace_internal("[inside EXTERNALIZE-EXPRESSION 13138]"); out_of_memory_error();} t57620.value.structure_type24753->s0.tag = NULL_TYPE; t57620.value.structure_type24753->s1.tag = NULL_TYPE; t57619 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t57619==NULL) {backtrace_internal("[inside EXTERNALIZE-EXPRESSION 13138]"); out_of_memory_error();} t57619->s0 = t57618; t57619->s1 = t57620; t57615 = f26254(t57619); /* x117312 */ t57616.tag = EXTERNAL_SYMBOL_TYPE; t57616.value.external_symbol_type = t57614; t57617 = f26175(t57616, t57615); t57500.tag = STRUCTURE_TYPE24753; t57500.value.structure_type24753 = t57617; goto l8752; l8751: /* x117367 */ /* x117326 */ /* x117324 */ t57586 = a25045; /* x117325 */ t57587 = q38; /* x117323 */ t57588.tag = EXTERNAL_SYMBOL_TYPE; t57588.value.external_symbol_type = t57586; t57589.tag = EXTERNAL_SYMBOL_TYPE; t57589.value.external_symbol_type = t57587; if (f26160(t57588, t57589)==FALSE_TYPE) goto l8754; /* x117333 */ /* x117332 */ /* x117331 stalin.sc:13405:470708 */ /* x117330 stalin.sc:13405:470723 */ /* x117329 stalin.sc:13405:470744 */ t57612 = a25039; /* x117328 stalin.sc:13405:470724 */ a39184 = t57612; /* x289405 */ /* x289404 */ t57613 = a39184; /* x289403 */ if (!((t57613.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34101]"); structure_ref_error();} t57610 = t57613.value.structure_type27698->s16; /* x117327 stalin.sc:13405:470709 */ a36981 = t57610; /* x280593 */ /* x280592 */ t57611 = a36981; /* x280591 */ if (!((t57611.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31898]"); structure_ref_error();} t57500 = t57611.value.structure_type27692->s7; goto l8755; l8754: /* x117366 */ /* x117346 */ /* x117345 */ /* x117343 */ t57590 = a25045; /* x117344 */ t57591 = q36; /* x117342 */ t57592.tag = EXTERNAL_SYMBOL_TYPE; t57592.value.external_symbol_type = t57590; t57593.tag = EXTERNAL_SYMBOL_TYPE; t57593.value.external_symbol_type = t57591; if (!(f26160(t57592, t57593)==FALSE_TYPE)) goto l8756; /* x117339 */ /* x117337 */ t57594 = a25045; /* x117338 */ t57595 = q37; /* x117336 */ t57596.tag = EXTERNAL_SYMBOL_TYPE; t57596.value.external_symbol_type = t57594; t57597.tag = EXTERNAL_SYMBOL_TYPE; t57597.value.external_symbol_type = t57595; if (f26160(t57596, t57597)==FALSE_TYPE) goto l8757; l8756: /* x117361 */ /* x117360 */ /* x117359 stalin.sc:13407:470783 */ /* x117352 stalin.sc:13407:470789 */ /* x117351 stalin.sc:13407:470813 */ /* x117350 stalin.sc:13407:470832 */ t57602 = a25039; /* x117349 stalin.sc:13407:470814 */ a38867 = t57602; /* x288137 */ /* x288136 */ t57603 = a38867; /* x288135 */ if (!((t57603.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33784]"); structure_ref_error();} t57601 = t57603.value.structure_type27698->s21; /* x117348 stalin.sc:13407:470790 */ t57599 = f13116(t57601); /* x117358 stalin.sc:13408:470841 */ /* x117357 stalin.sc:13408:470869 */ /* x117356 stalin.sc:13408:470891 */ t57608 = a25039; /* x117355 stalin.sc:13408:470870 */ a38603 = t57608; /* x287081 */ /* x287080 */ t57609 = a38603; /* x287079 */ if (!((t57609.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33520]"); structure_ref_error();} t57604 = t57609.value.structure_type27698->s22; /* x117354 stalin.sc:13408:470846 */ /* x117353 stalin.sc:13408:470842 */ t57605.tag = NATIVE_PROCEDURE_TYPE7021; t57606 = *((struct w49 *)(&t57604)); t57607 = (struct structure_type24753 *)NULL_TYPE; t57600 = f27731(t57605, t57606, t57607); /* x269222 stalin.sc:13407:470784 */ t57500.tag = STRUCTURE_TYPE24753; t57500.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t57500.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13407, 470783); out_of_memory_error();} t57500.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t57500.value.structure_type24753->s0.value.structure_type24753 = t57599; /* MOVE: branching squeezed to general */ if (t57600>=((struct structure_type24753 *)VALUE_OFFSET)) {t57500.value.structure_type24753->s1.tag = STRUCTURE_TYPE24753; t57500.value.structure_type24753->s1.value.structure_type24753 = t57600;} else t57500.value.structure_type24753->s1.tag = (unsigned)t57600; goto l8758; l8757: /* x117365 */ /* x117364 */ /* x117363 stalin.sc:13409:470908 */ /* x117362 stalin.sc:13409:470909 */ /* x297065 QobiScheme.sc:166:5314 */ /* x297064 QobiScheme.sc:166:5321 */ t57598 = "This shouldn\'t happen"; /* x297063 QobiScheme.sc:166:5315 */ stalin_panic(t57598); l8758: l8755: l8752: l8749: l8746: l8743: l8738: l8735: l8732: l8729: l8726: l8723: l8720: l8717: l8714: l8711: l8708: l8705: /* x117075 */ a25044 = t57500; /* x117074 stalin.sc:13410:470924 */ /* x117055 */ t57501 = q198; /* x117073 */ /* x117068 stalin.sc:13410:470931 */ /* x117057 stalin.sc:13410:470935 */ /* x117067 stalin.sc:13412:471002 */ /* x117066 stalin.sc:13412:471024 */ /* x117065 stalin.sc:13412:471045 */ t57509 = a25039; /* x117064 stalin.sc:13412:471025 */ a40011 = t57509; /* x292713 */ /* x292712 */ t57510 = a40011; /* x292711 */ if (!((t57510.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34928]"); structure_ref_error();} t57508 = t57510.value.structure_type27698->s10; /* x117063 stalin.sc:13412:471003 */ t57505 = f13107(t57508); /* x117072 */ /* x117070 stalin.sc:13413:471052 */ t57511 = a25044; /* x117071 */ /* x117069 */ t57512.tag = NULL_TYPE; t57506 = f26175(t57511, t57512); /* x117056 */ t57507.tag = STRUCTURE_TYPE24753; t57507.value.structure_type24753 = t57506; t57502 = f26175(t57505, t57507); /* x117054 */ t57503.tag = EXTERNAL_SYMBOL_TYPE; t57503.value.external_symbol_type = t57501; t57504.tag = STRUCTURE_TYPE24753; t57504.value.structure_type24753 = t57502; return f26175(t57503, t57504);} /* LOOP[13111] */ struct w49 f13111(struct p13108 *p13111, struct w49 a25038) {struct w49 r13111; struct w16638 a35534; /* PAIR */ struct w16638 a35535; /* PAIR */ struct w16638 a36102; /* PAIR */ struct w16638 a36103; /* PAIR */ struct w49 a36976; /* S */ struct w49 a36977; /* S */ struct w49 t57730; struct w49 t57731; struct w16638 t57732; struct w16638 t57733; struct w49 t57734; struct p13108 *t57735; struct w49 t57736; struct w49 t57737; struct w49 t57738; struct w49 t57739; struct w16638 t57740; struct w16638 t57741; struct p13108 *t57742; struct w49 t57743; struct w16638 t57744; struct w16638 t57745; struct w49 t57746; struct w49 t57747; struct w16638 t57748; struct w16638 t57749; struct p13108 *p13114; /* x117039 stalin.sc:13342:468003 */ /* x117003 stalin.sc:13342:468010 */ /* x117002 stalin.sc:13342:468017 */ t57730 = a25038; /* x269225 stalin.sc:13342:468011 */ if (!((t57730.tag)==NULL_TYPE)) goto l8764; /* x117006 */ /* x117005 */ /* x117004 stalin.sc:13342:468021 */ r13111.tag = NULL_TYPE; return r13111; l8764: /* x117038 */ /* x117016 stalin.sc:13343:468032 */ /* x117011 stalin.sc:13343:468037 */ /* x117010 stalin.sc:13343:468044 */ /* x117009 stalin.sc:13343:468050 */ t57732 = *((struct w16638 *)(&a25038)); /* x117008 stalin.sc:13343:468045 */ a35535 = t57732; /* x273497 */ /* x273496 */ t57733 = a35535; /* x273495 */ if (!((t57733.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29684]"); structure_ref_error();} t57731 = t57733.value.structure_type24753->s1; /* x269224 stalin.sc:13343:468038 */ if (!((t57731.tag)==NULL_TYPE)) goto l8766; /* x117014 */ /* x117013 stalin.sc:13343:468062 */ t57734 = p13111->a25035; /* x117012 stalin.sc:13343:468056 */ if (f8931(t57734)==FALSE_TYPE) goto l8766; /* x117023 */ /* x117022 */ /* x117021 stalin.sc:13343:468066 */ /* x117020 stalin.sc:13343:468081 */ /* x117019 stalin.sc:13343:468088 */ t57748 = *((struct w16638 *)(&a25038)); /* x117018 stalin.sc:13343:468082 */ a36102 = t57748; /* x275765 */ /* x275764 */ t57749 = a36102; /* x275763 */ if (!((t57749.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30251]"); structure_ref_error();} t57746 = t57749.value.structure_type24753->s0; /* x117017 stalin.sc:13343:468067 */ a36976 = t57746; /* x280573 */ /* x280572 */ t57747 = a36976; /* x280571 */ if ((t57747.tag)==STRUCTURE_TYPE27692) return t57747.value.structure_type27692->s7; backtrace_internal("[clone VARIABLE-NAME[6573] 31893]"); structure_ref_error(); l8766: /* x117037 */ /* x117036 */ t57735 = p13111; p13114 = t57735; /* x117035 stalin.sc:13344:468105 */ /* x117029 stalin.sc:13344:468111 */ /* x117028 stalin.sc:13344:468126 */ /* x117027 stalin.sc:13344:468133 */ t57740 = *((struct w16638 *)(&a25038)); /* x117026 stalin.sc:13344:468127 */ a36103 = t57740; /* x275769 */ /* x275768 */ t57741 = a36103; /* x275767 */ if (!((t57741.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30252]"); structure_ref_error();} t57738 = t57741.value.structure_type24753->s0; /* x117025 stalin.sc:13344:468112 */ a36977 = t57738; /* x280577 */ /* x280576 */ t57739 = a36977; /* x280575 */ if (!((t57739.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31894]"); structure_ref_error();} t57736 = t57739.value.structure_type27692->s7; /* x117034 stalin.sc:13344:468138 */ /* x117033 stalin.sc:13344:468144 */ /* x117032 stalin.sc:13344:468150 */ t57744 = *((struct w16638 *)(&a25038)); /* x117031 stalin.sc:13344:468145 */ a35534 = t57744; /* x273493 */ /* x273492 */ t57745 = a35534; /* x273491 */ if (!((t57745.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29683]"); structure_ref_error();} t57743 = t57745.value.structure_type24753->s1; /* x117030 stalin.sc:13344:468139 */ t57742 = p13114; t57737 = f13111(t57742, t57743); /* x269223 stalin.sc:13344:468106 */ r13111.tag = STRUCTURE_TYPE24753; r13111.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r13111.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13344, 468105); out_of_memory_error();} r13111.value.structure_type24753->s0 = t57736; r13111.value.structure_type24753->s1 = t57737; return r13111;} /* VARIABLE-NAMES[13108] */ struct w49 f13108(struct w49 a25035) {struct w49 r13108; struct w49 a39437; /* S */ struct w9296 t57750; char *t57751; struct w49 t57752; struct w49 t57753; struct p13108 *t57754; struct structure_type24753 *t57755; struct w49 t57756; struct p13108 *t57757; struct p13108 *t57758; struct w49 t57759; struct p13108 *e13108; struct p13108 *p13109; struct p13108 *p13110; e13108 = (struct p13108 *)alloca(sizeof(struct p13108)); if (e13108==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e13108->a25035 = a25035; /* x117051 stalin.sc:13339:467893 */ /* x116997 stalin.sc:13339:467897 */ /* x116994 stalin.sc:13339:467902 */ /* x116993 stalin.sc:13339:467925 */ t57752 = e13108->a25035; /* x116992 stalin.sc:13339:467903 */ a39437 = t57752; /* x290417 */ /* x290416 */ t57753 = a39437; /* x290415 */ if (!((t57753.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34354]"); structure_ref_error();} t57750 = t57753.value.structure_type27698->s14; /* x116996 stalin.sc:13339:467928 */ /* x116995 stalin.sc:13339:467929 */ /* x277245 stalin.sc:323:8604 */ t57751 = q35; /* x269226 stalin.sc:13339:467898 */ if (!(((t57750.tag)==EXTERNAL_SYMBOL_TYPE)&&((t57750.value.external_symbol_type)==t57751))) goto l8769; /* x116998 stalin.sc:13340:467948 */ r13108.tag = EXTERNAL_SYMBOL_TYPE; r13108.value.external_symbol_type = q35; return r13108; l8769: /* x117050 stalin.sc:13341:467966 */ /* x117049 stalin.sc:13341:467981 */ /* x117048 stalin.sc:13341:467992 */ t57759 = e13108->a25035; /* x117047 stalin.sc:13341:467982 */ t57755 = f8987(t57759); /* x117046 */ /* x117045 */ /* x117044 */ /* x117043 */ t57757 = e13108; p13109 = t57757; /* x117042 */ /* x117041 */ /* x117040 */ /* x117000 */ t57758 = p13109; p13110 = t57758; /* x116999 stalin.sc:13341:467971 */ t57754 = p13110; /* MOVE: branching squeezed to general */ if (t57755>=((struct structure_type24753 *)VALUE_OFFSET)) {t57756.tag = STRUCTURE_TYPE24753; t57756.value.structure_type24753 = t57755;} else t57756.tag = (unsigned)t57755; return f13111(t57754, t57756);} /* EXTERNALIZE-TYPE-SET[13107] */ struct w49 f13107(struct w49 a25034) {struct w49 t57760; struct structure_type24753 *t57761; /* x116988 stalin.sc:13335:467798 */ /* x116986 stalin.sc:13335:467829 */ t57760 = a25034; /* x116987 stalin.sc:13335:467831 */ /* x116985 stalin.sc:13335:467799 */ t57761 = (struct structure_type24753 *)NULL_TYPE; return f13098(t57760, t57761);} /* [inside EXTERNALIZE-TYPE-SET-INTERNAL 13105] */ struct w49 f13105(struct p13098 *p13105, struct w49 a25032) {struct w49 t57762; struct structure_type24753 *t57763; struct structure_type24753 *t57764; struct w49 t57765; struct structure_type24753 *t57766; /* x116962 stalin.sc:13330:467630 */ /* x116957 stalin.sc:13330:467657 */ t57762 = a25032; /* x116961 stalin.sc:13330:467659 */ /* x116959 stalin.sc:13330:467665 */ t57765 = p13105->a25029; /* x116960 stalin.sc:13330:467667 */ t57766 = p13105->a25030; /* x269227 stalin.sc:13330:467660 */ t57763 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t57763==NULL) {backtrace("stalin.sc", 13330, 467659); out_of_memory_error();} t57763->s0 = t57765; /* MOVE: branching squeezed to general */ if (t57766>=((struct structure_type24753 *)VALUE_OFFSET)) {t57763->s1.tag = STRUCTURE_TYPE24753; t57763->s1.value.structure_type24753 = t57766;} else t57763->s1.tag = (unsigned)t57766; /* x116956 stalin.sc:13330:467631 */ t57764 = t57763; return f13063(t57762, t57764);} /* EXTERNALIZE-TYPE-SET-INTERNAL[13098] */ struct w49 f13098(struct w49 a25029, struct structure_type24753 *a25030) {struct w49 r13098; struct w49 a25016; /* W */ struct structure_type24753 *a35700; /* PAIR */ struct structure_type24753 *a35918; /* PAIR */ struct structure_type24753 *a35919; /* PAIR */ struct w49 t57767; struct structure_type24753 *t57768; struct w49 t57769; struct w49 t57770; struct w49 t57771; struct structure_type24753 *t57772; struct w49 t57773; struct w49 t57774; struct w49 t57775; struct w49 t57776; struct w49 t57777; int t57778; int t57779; struct structure_type24753 *t57780; struct w49 t57781; struct w49 t57782; struct w49 t57783; struct structure_type24753 *t57784; struct structure_type24753 *t57785; struct w49 t57786; struct w49 t57787; struct structure_type24753 *t57788; struct w49 t57789; struct w49 t57790; struct w49 t57791; struct w49 t57792; struct w49 t57793; struct structure_type24753 *t57794; struct w49 t57795; struct w49 t57796; struct w49 t57797; struct structure_type24753 *t57798; struct w49 t57799; struct w49 t57800; struct w49 t57801; struct structure_type24753 *t57802; struct structure_type24753 *t57803; struct w49 t57804; struct w49 t57805; struct w49 t57806; struct w49 t57807; struct structure_type24753 *t57808; struct structure_type24753 *t57809; struct w49 t57810; struct p13098 *t57811; char *t57812; struct w49 t57813; struct w49 t57814; struct structure_type24753 *t57815; struct structure_type24753 *t57816; struct structure_type24753 *t57817; struct w49 t57818; struct p13098 *t57819; struct structure_type24753 *t57820; struct w36270 t57821; struct w49 t57822; struct structure_type24753 *t57823; struct w49 t57824; struct p13098 *t57825; char *t57826; struct structure_type24753 *t57827; struct w49 t57828; struct w49 t57829; struct structure_type24753 *t57830; struct w49 t57831; struct w49 t57832; struct w49 t57833; struct structure_type24753 *t57834; struct structure_type24753 *t57835; struct w49 t57836; struct w49 t57837; struct w211113 t57838; struct w49 t57839; struct structure_type24753 *t57840; struct p13098 *t57841; struct w49 t57842; struct structure_type24753 *t57843; struct w49 t57844; struct p13098 *t57845; char *t57846; struct structure_type24753 *t57847; struct w49 t57848; struct w49 t57849; struct structure_type24753 *t57850; int t57851; struct w49 t57852; struct w49 t57853; struct w49 t57854; struct structure_type24753 *t57855; struct w49 t57856; struct p13098 *e13098; struct p13098 *p13099; struct p13098 *p13100; struct p13098 *p13102; struct p13098 *p13103; struct p13098 *p13104; e13098 = (struct p13098 *)alloca(sizeof(struct p13098)); if (e13098==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e13098->a25029 = a25029; e13098->a25030 = a25030; /* x116976 stalin.sc:13320:467185 */ /* x116899 stalin.sc:13320:467192 */ /* x116898 stalin.sc:13320:467196 */ /* x116896 stalin.sc:13320:467202 */ t57767 = e13098->a25029; /* x116897 stalin.sc:13320:467204 */ t57768 = e13098->a25030; /* x116895 stalin.sc:13320:467197 */ /* MOVE: branching squeezed to general */ if (t57768>=((struct structure_type24753 *)VALUE_OFFSET)) {t57769.tag = STRUCTURE_TYPE24753; t57769.value.structure_type24753 = t57768;} else t57769.tag = (unsigned)t57768; if (!((f26351(t57767, t57769).tag)==FALSE_TYPE)) goto l8770; p13099 = e13098; /* x116892 */ /* x116884 stalin.sc:13320:467215 */ /* x116883 stalin.sc:13320:467229 */ t57770 = p13099->a25029; /* x116882 stalin.sc:13320:467216 */ if (f8148(t57770)==FALSE_TYPE) goto l8771; /* x116890 */ /* x116888 stalin.sc:13320:467238 */ /* x116887 stalin.sc:13320:467250 */ t57774 = p13099->a25029; /* x116886 stalin.sc:13320:467239 */ t57771 = f8153(t57774); /* x116889 stalin.sc:13320:467253 */ t57772 = p13099->a25030; /* x116885 stalin.sc:13320:467233 */ /* MOVE: branching squeezed to general */ if (t57772>=((struct structure_type24753 *)VALUE_OFFSET)) {t57773.tag = STRUCTURE_TYPE24753; t57773.value.structure_type24753 = t57772;} else t57773.tag = (unsigned)t57772; if ((f26351(t57771, t57773).tag)==FALSE_TYPE) goto l8771; l8770: /* x116911 */ /* x116910 */ t57845 = e13098; p13100 = t57845; /* x116909 stalin.sc:13321:467262 */ /* x116901 */ t57846 = q188; /* x116908 */ /* x116906 stalin.sc:13321:467268 */ /* x116904 stalin.sc:13321:467272 */ t57854 = p13100->a25029; /* x116905 stalin.sc:13321:467274 */ t57855 = p13100->a25030; /* x116903 stalin.sc:13321:467269 */ /* MOVE: branching squeezed to general */ if (t57855>=((struct structure_type24753 *)VALUE_OFFSET)) {t57856.tag = STRUCTURE_TYPE24753; t57856.value.structure_type24753 = t57855;} else t57856.tag = (unsigned)t57855; t57851 = f13061(t57854, t57856); /* x116907 */ /* x116902 */ t57852.tag = FIXNUM_TYPE; t57852.value.fixnum_type = t57851; t57853.tag = NULL_TYPE; t57847 = f26175(t57852, t57853); /* x116900 */ t57848.tag = EXTERNAL_SYMBOL_TYPE; t57848.value.external_symbol_type = t57846; t57849.tag = STRUCTURE_TYPE24753; t57849.value.structure_type24753 = t57847; t57850 = f26175(t57848, t57849); r13098.tag = STRUCTURE_TYPE24753; r13098.value.structure_type24753 = t57850; return r13098; l8771: /* x116975 */ /* x116914 stalin.sc:13322:467290 */ /* x116913 stalin.sc:13322:467297 */ t57775 = e13098->a25029; /* x116912 stalin.sc:13322:467291 */ if (f8147(t57775)==FALSE_TYPE) goto l8775; /* x116917 */ /* x116916 */ /* x116915 stalin.sc:13322:467300 */ r13098.tag = EXTERNAL_SYMBOL_TYPE; r13098.value.external_symbol_type = q94; return r13098; l8775: /* x116974 */ /* x116920 stalin.sc:13323:467315 */ /* x116919 stalin.sc:13323:467329 */ t57776 = e13098->a25029; /* x116918 stalin.sc:13323:467316 */ if (f8148(t57776)==FALSE_TYPE) goto l8777; /* x116928 */ /* x116927 */ t57841 = e13098; p13102 = t57841; /* x116926 stalin.sc:13323:467332 */ /* x116924 stalin.sc:13323:467359 */ /* x116923 stalin.sc:13323:467371 */ t57844 = p13102->a25029; /* x116922 stalin.sc:13323:467360 */ t57842 = f8153(t57844); /* x116925 stalin.sc:13323:467374 */ t57843 = p13102->a25030; /* x116921 stalin.sc:13323:467333 */ return f13063(t57842, t57843); l8777: /* x116973 */ /* x116931 stalin.sc:13324:467389 */ /* x116930 stalin.sc:13324:467402 */ t57777 = e13098->a25029; /* x116929 stalin.sc:13324:467390 */ a25016 = t57777; /* x116426 stalin.sc:13226:463694 */ /* x116363 stalin.sc:13226:463699 */ /* x116361 stalin.sc:13226:463702 */ /* x116360 stalin.sc:13226:463710 */ /* x116359 stalin.sc:13226:463719 */ t57782 = a25016; /* x116358 stalin.sc:13226:463711 */ t57780 = f8162(t57782); /* x116357 stalin.sc:13226:463703 */ /* MOVE: branching squeezed to general */ if (t57780>=((struct structure_type24753 *)VALUE_OFFSET)) {t57781.tag = STRUCTURE_TYPE24753; t57781.value.structure_type24753 = t57780;} else t57781.tag = (unsigned)t57780; t57778 = f26227(t57781); /* x116362 stalin.sc:13226:463723 */ t57779 = 2; /* x269243 stalin.sc:13226:463700 */ if (!(t57778==t57779)) goto l8779; /* x116424 */ /* x116423 stalin.sc:13227:463736 */ /* x116402 stalin.sc:13227:463741 */ /* x116401 stalin.sc:13227:463753 */ /* x116400 stalin.sc:13227:463760 */ /* x116399 stalin.sc:13227:463769 */ t57786 = a25016; /* x116398 stalin.sc:13227:463761 */ t57784 = f8162(t57786); /* x116397 stalin.sc:13227:463754 */ a35919 = t57784; /* x275033 */ /* x275032 */ t57785 = a35919; /* x275031 */ if (!(t57785>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 30068]"); structure_ref_error();} t57783 = t57785->s0; /* x116396 stalin.sc:13227:463742 */ if (f7677(t57783)==FALSE_TYPE) goto l8781; /* x116421 */ /* x116409 stalin.sc:13228:463782 */ /* x116408 stalin.sc:13228:463794 */ /* x116407 stalin.sc:13228:463802 */ /* x116406 stalin.sc:13228:463811 */ t57790 = a25016; /* x116405 stalin.sc:13228:463803 */ t57788 = f8162(t57790); /* x116404 stalin.sc:13228:463795 */ /* MOVE: branching squeezed to general */ if (t57788>=((struct structure_type24753 *)VALUE_OFFSET)) {t57789.tag = STRUCTURE_TYPE24753; t57789.value.structure_type24753 = t57788;} else t57789.tag = (unsigned)t57788; t57787 = f26181(t57789); /* x116403 stalin.sc:13228:463783 */ if (f7719(t57787)==FALSE_TYPE) goto l8781; /* x116419 */ /* x116417 stalin.sc:13229:463829 */ /* x116416 stalin.sc:13229:463844 */ /* x116415 stalin.sc:13229:463852 */ /* x116414 stalin.sc:13229:463861 */ t57796 = a25016; /* x116413 stalin.sc:13229:463853 */ t57794 = f8162(t57796); /* x116412 stalin.sc:13229:463845 */ /* MOVE: branching squeezed to general */ if (t57794>=((struct structure_type24753 *)VALUE_OFFSET)) {t57795.tag = STRUCTURE_TYPE24753; t57795.value.structure_type24753 = t57794;} else t57795.tag = (unsigned)t57794; t57793 = f26181(t57795); /* x116411 stalin.sc:13229:463830 */ t57791 = f7927(t57793); /* x116418 stalin.sc:13229:463866 */ t57792 = a25016; /* x269241 stalin.sc:13229:463825 */ /* EQ: dispatching general to general */ if ((t57791.tag)==(t57792.tag)) switch (t57791.tag) {case FIXNUM_TYPE: if ((t57791.value.fixnum_type)==(t57792.value.fixnum_type)) goto l8778; break; case FLONUM_TYPE: if ((t57791.value.flonum_type)==(t57792.value.flonum_type)) goto l8778; break; case INPUT_PORT_TYPE: if ((t57791.value.input_port_type)==(t57792.value.input_port_type)) goto l8778; break; case OUTPUT_PORT_TYPE: if ((t57791.value.output_port_type)==(t57792.value.output_port_type)) goto l8778; break; case NATIVE_PROCEDURE_TYPE15963: if ((t57791.value.native_procedure_type15963)==(t57792.value.native_procedure_type15963)) goto l8778; break; case NATIVE_PROCEDURE_TYPE19067: if ((t57791.value.native_procedure_type19067)==(t57792.value.native_procedure_type19067)) goto l8778; break; case NATIVE_PROCEDURE_TYPE19068: if ((t57791.value.native_procedure_type19068)==(t57792.value.native_procedure_type19068)) goto l8778; break; case NATIVE_PROCEDURE_TYPE22459: if ((t57791.value.native_procedure_type22459)==(t57792.value.native_procedure_type22459)) goto l8778; break; case STRUCTURE_TYPE24753: if ((t57791.value.structure_type24753)==(t57792.value.structure_type24753)) goto l8778; break; case STRUCTURE_TYPE24757: if ((t57791.value.structure_type24757)==(t57792.value.structure_type24757)) goto l8778; break; case STRUCTURE_TYPE27501: if ((t57791.value.structure_type27501)==(t57792.value.structure_type27501)) goto l8778; break; case STRUCTURE_TYPE27510: if ((t57791.value.structure_type27510)==(t57792.value.structure_type27510)) goto l8778; break; case STRUCTURE_TYPE27621: if ((t57791.value.structure_type27621)==(t57792.value.structure_type27621)) goto l8778; break; case STRUCTURE_TYPE27650: if ((t57791.value.structure_type27650)==(t57792.value.structure_type27650)) goto l8778; break; case STRUCTURE_TYPE27669: if ((t57791.value.structure_type27669)==(t57792.value.structure_type27669)) goto l8778; break; case STRUCTURE_TYPE27673: if ((t57791.value.structure_type27673)==(t57792.value.structure_type27673)) goto l8778; break; case STRUCTURE_TYPE27692: if ((t57791.value.structure_type27692)==(t57792.value.structure_type27692)) goto l8778; break; case STRUCTURE_TYPE27694: if ((t57791.value.structure_type27694)==(t57792.value.structure_type27694)) goto l8778; break; case STRUCTURE_TYPE27698: if ((t57791.value.structure_type27698)==(t57792.value.structure_type27698)) goto l8778; break; case STRUCTURE_TYPE27745: if ((t57791.value.structure_type27745)==(t57792.value.structure_type27745)) goto l8778; break; case STRUCTURE_TYPE27747: if ((t57791.value.structure_type27747)==(t57792.value.structure_type27747)) goto l8778; break; case STRUCTURE_TYPE27750: if ((t57791.value.structure_type27750)==(t57792.value.structure_type27750)) goto l8778; break; case STRUCTURE_TYPE27753: if ((t57791.value.structure_type27753)==(t57792.value.structure_type27753)) goto l8778; break; case STRUCTURE_TYPE27756: if ((t57791.value.structure_type27756)==(t57792.value.structure_type27756)) goto l8778; break; case STRUCTURE_TYPE27761: if ((t57791.value.structure_type27761)==(t57792.value.structure_type27761)) goto l8778; break; case STRUCTURE_TYPE27769: if ((t57791.value.structure_type27769)==(t57792.value.structure_type27769)) goto l8778; break; case STRUCTURE_TYPE27776: if ((t57791.value.structure_type27776)==(t57792.value.structure_type27776)) goto l8778; break; case STRUCTURE_TYPE27779: if ((t57791.value.structure_type27779)==(t57792.value.structure_type27779)) goto l8778; break; case STRUCTURE_TYPE27858: if ((t57791.value.structure_type27858)==(t57792.value.structure_type27858)) goto l8778; break; case STRING_TYPE: if ((t57791.value.string_type)==(t57792.value.string_type)) goto l8778; break; case HEADED_VECTOR_TYPE27896: if ((t57791.value.headed_vector_type27896)==(t57792.value.headed_vector_type27896)) goto l8778; break; case EXTERNAL_SYMBOL_TYPE: if ((t57791.value.external_symbol_type)==(t57792.value.external_symbol_type)) goto l8778; break; case STRUCTURE_TYPE27908: if ((t57791.value.structure_type27908)==(t57792.value.structure_type27908)) goto l8778; break; default: goto l8778;} l8781: /* x116393 */ /* x116372 stalin.sc:13230:463878 */ /* x116371 stalin.sc:13230:463890 */ /* x116370 stalin.sc:13230:463898 */ /* x116369 stalin.sc:13230:463907 */ t57800 = a25016; /* x116368 stalin.sc:13230:463899 */ t57798 = f8162(t57800); /* x116367 stalin.sc:13230:463891 */ /* MOVE: branching squeezed to general */ if (t57798>=((struct structure_type24753 *)VALUE_OFFSET)) {t57799.tag = STRUCTURE_TYPE24753; t57799.value.structure_type24753 = t57798;} else t57799.tag = (unsigned)t57798; t57797 = f26181(t57799); /* x116366 stalin.sc:13230:463879 */ if (f7677(t57797)==FALSE_TYPE) goto l8779; /* x116391 */ /* x116379 stalin.sc:13231:463920 */ /* x116378 stalin.sc:13231:463932 */ /* x116377 stalin.sc:13231:463939 */ /* x116376 stalin.sc:13231:463948 */ t57804 = a25016; /* x116375 stalin.sc:13231:463940 */ t57802 = f8162(t57804); /* x116374 stalin.sc:13231:463933 */ a35918 = t57802; /* x275029 */ /* x275028 */ t57803 = a35918; /* x275027 */ if (!(t57803>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 30067]"); structure_ref_error();} t57801 = t57803->s0; /* x116373 stalin.sc:13231:463921 */ if (f7719(t57801)==FALSE_TYPE) goto l8779; /* x116389 */ /* x116387 stalin.sc:13232:463966 */ /* x116386 stalin.sc:13232:463981 */ /* x116385 stalin.sc:13232:463988 */ /* x116384 stalin.sc:13232:463997 */ t57810 = a25016; /* x116383 stalin.sc:13232:463989 */ t57808 = f8162(t57810); /* x116382 stalin.sc:13232:463982 */ a35700 = t57808; /* x274157 */ /* x274156 */ t57809 = a35700; /* x274155 */ if (!(t57809>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29849]"); structure_ref_error();} t57807 = t57809->s0; /* x116381 stalin.sc:13232:463967 */ t57805 = f7927(t57807); /* x116388 stalin.sc:13232:464002 */ t57806 = a25016; /* x269242 stalin.sc:13232:463962 */ /* EQ: dispatching general to general */ if (!((t57805.tag)==(t57806.tag))) goto l8779; switch (t57805.tag) {case FIXNUM_TYPE: if (!((t57805.value.fixnum_type)==(t57806.value.fixnum_type))) goto l8779; break; case FLONUM_TYPE: if (!((t57805.value.flonum_type)==(t57806.value.flonum_type))) goto l8779; break; case INPUT_PORT_TYPE: if (!((t57805.value.input_port_type)==(t57806.value.input_port_type))) goto l8779; break; case OUTPUT_PORT_TYPE: if (!((t57805.value.output_port_type)==(t57806.value.output_port_type))) goto l8779; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t57805.value.native_procedure_type15963)==(t57806.value.native_procedure_type15963))) goto l8779; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t57805.value.native_procedure_type19067)==(t57806.value.native_procedure_type19067))) goto l8779; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t57805.value.native_procedure_type19068)==(t57806.value.native_procedure_type19068))) goto l8779; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t57805.value.native_procedure_type22459)==(t57806.value.native_procedure_type22459))) goto l8779; break; case STRUCTURE_TYPE24753: if (!((t57805.value.structure_type24753)==(t57806.value.structure_type24753))) goto l8779; break; case STRUCTURE_TYPE24757: if (!((t57805.value.structure_type24757)==(t57806.value.structure_type24757))) goto l8779; break; case STRUCTURE_TYPE27501: if (!((t57805.value.structure_type27501)==(t57806.value.structure_type27501))) goto l8779; break; case STRUCTURE_TYPE27510: if (!((t57805.value.structure_type27510)==(t57806.value.structure_type27510))) goto l8779; break; case STRUCTURE_TYPE27621: if (!((t57805.value.structure_type27621)==(t57806.value.structure_type27621))) goto l8779; break; case STRUCTURE_TYPE27650: if (!((t57805.value.structure_type27650)==(t57806.value.structure_type27650))) goto l8779; break; case STRUCTURE_TYPE27669: if (!((t57805.value.structure_type27669)==(t57806.value.structure_type27669))) goto l8779; break; case STRUCTURE_TYPE27673: if (!((t57805.value.structure_type27673)==(t57806.value.structure_type27673))) goto l8779; break; case STRUCTURE_TYPE27692: if (!((t57805.value.structure_type27692)==(t57806.value.structure_type27692))) goto l8779; break; case STRUCTURE_TYPE27694: if (!((t57805.value.structure_type27694)==(t57806.value.structure_type27694))) goto l8779; break; case STRUCTURE_TYPE27698: if (!((t57805.value.structure_type27698)==(t57806.value.structure_type27698))) goto l8779; break; case STRUCTURE_TYPE27745: if (!((t57805.value.structure_type27745)==(t57806.value.structure_type27745))) goto l8779; break; case STRUCTURE_TYPE27747: if (!((t57805.value.structure_type27747)==(t57806.value.structure_type27747))) goto l8779; break; case STRUCTURE_TYPE27750: if (!((t57805.value.structure_type27750)==(t57806.value.structure_type27750))) goto l8779; break; case STRUCTURE_TYPE27753: if (!((t57805.value.structure_type27753)==(t57806.value.structure_type27753))) goto l8779; break; case STRUCTURE_TYPE27756: if (!((t57805.value.structure_type27756)==(t57806.value.structure_type27756))) goto l8779; break; case STRUCTURE_TYPE27761: if (!((t57805.value.structure_type27761)==(t57806.value.structure_type27761))) goto l8779; break; case STRUCTURE_TYPE27769: if (!((t57805.value.structure_type27769)==(t57806.value.structure_type27769))) goto l8779; break; case STRUCTURE_TYPE27776: if (!((t57805.value.structure_type27776)==(t57806.value.structure_type27776))) goto l8779; break; case STRUCTURE_TYPE27779: if (!((t57805.value.structure_type27779)==(t57806.value.structure_type27779))) goto l8779; break; case STRUCTURE_TYPE27858: if (!((t57805.value.structure_type27858)==(t57806.value.structure_type27858))) goto l8779; break; case STRING_TYPE: if (!((t57805.value.string_type)==(t57806.value.string_type))) goto l8779; break; case HEADED_VECTOR_TYPE27896: if (!((t57805.value.headed_vector_type27896)==(t57806.value.headed_vector_type27896))) goto l8779; break; case EXTERNAL_SYMBOL_TYPE: if (!((t57805.value.external_symbol_type)==(t57806.value.external_symbol_type))) goto l8779; break; case STRUCTURE_TYPE27908: if (!((t57805.value.structure_type27908)==(t57806.value.structure_type27908))) goto l8779; break; default:;} l8778: /* x116951 */ /* x116950 */ t57825 = e13098; p13103 = t57825; /* x116949 stalin.sc:13326:467465 */ /* x116933 */ t57826 = q196; /* x116948 */ /* x116946 stalin.sc:13326:467474 */ /* x116941 stalin.sc:13327:467509 */ /* x116940 stalin.sc:13327:467524 */ /* x116938 stalin.sc:13327:467541 */ /* x116939 stalin.sc:13327:467557 */ t57837 = p13103->a25029; /* x116937 stalin.sc:13327:467525 */ t57838.tag = NATIVE_PROCEDURE_TYPE7807; t57836 = f8157(t57838, t57837); /* x116936 stalin.sc:13327:467510 */ t57833 = f7923(t57836); /* x116945 stalin.sc:13328:467565 */ /* x116943 stalin.sc:13328:467571 */ t57839 = p13103->a25029; /* x116944 stalin.sc:13328:467573 */ t57840 = p13103->a25030; /* x269228 stalin.sc:13328:467566 */ t57834 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t57834==NULL) {backtrace("stalin.sc", 13328, 467565); out_of_memory_error();} t57834->s0 = t57839; /* MOVE: branching squeezed to general */ if (t57840>=((struct structure_type24753 *)VALUE_OFFSET)) {t57834->s1.tag = STRUCTURE_TYPE24753; t57834->s1.value.structure_type24753 = t57840;} else t57834->s1.tag = (unsigned)t57840; /* x116935 stalin.sc:13326:467475 */ t57835 = t57834; t57831 = f13098(t57833, t57835); /* x116947 */ /* x116934 */ t57832.tag = NULL_TYPE; t57827 = f26175(t57831, t57832); /* x116932 */ t57828.tag = EXTERNAL_SYMBOL_TYPE; t57828.value.external_symbol_type = t57826; t57829.tag = STRUCTURE_TYPE24753; t57829.value.structure_type24753 = t57827; t57830 = f26175(t57828, t57829); r13098.tag = STRUCTURE_TYPE24753; r13098.value.structure_type24753 = t57830; return r13098; l8779: /* x116972 */ /* x116971 */ t57811 = e13098; p13104 = t57811; /* x116970 stalin.sc:13329:467595 */ /* x116953 */ t57812 = q197; /* x116969 */ /* x116968 */ /* x116967 stalin.sc:13329:467605 */ /* x116966 stalin.sc:13331:467682 */ /* x116965 stalin.sc:13331:467691 */ t57824 = p13104->a25029; /* x116964 stalin.sc:13331:467683 */ t57820 = f8162(t57824); /* x116963 stalin.sc:13329:467610 */ t57819 = p13104; /* x116955 stalin.sc:13329:467606 */ t57821.tag = NATIVE_PROCEDURE_TYPE20731; t57821.value.native_procedure_type20731 = t57819; /* MOVE: branching squeezed to general */ if (t57820>=((struct structure_type24753 *)VALUE_OFFSET)) {t57822.tag = STRUCTURE_TYPE24753; t57822.value.structure_type24753 = t57820;} else t57822.tag = (unsigned)t57820; t57823 = (struct structure_type24753 *)NULL_TYPE; t57816 = f27731(t57821, t57822, t57823); /* x116954 */ t57818.tag = STRUCTURE_TYPE24753; t57818.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t57818.value.structure_type24753)==NULL) {backtrace_internal("[inside EXTERNALIZE-TYPE-SET-INTERNAL 13104]"); out_of_memory_error();} t57818.value.structure_type24753->s0.tag = NULL_TYPE; t57818.value.structure_type24753->s1.tag = NULL_TYPE; t57817 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t57817==NULL) {backtrace_internal("[inside EXTERNALIZE-TYPE-SET-INTERNAL 13104]"); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t57816>=((struct structure_type24753 *)VALUE_OFFSET)) {t57817->s0.tag = STRUCTURE_TYPE24753; t57817->s0.value.structure_type24753 = t57816;} else t57817->s0.tag = (unsigned)t57816; t57817->s1 = t57818; t57813 = f26254(t57817); /* x116952 */ t57814.tag = EXTERNAL_SYMBOL_TYPE; t57814.value.external_symbol_type = t57812; t57815 = f26175(t57814, t57813); r13098.tag = STRUCTURE_TYPE24753; r13098.value.structure_type24753 = t57815; return r13098;} /* [inside EXTERNALIZE-TYPE-INTERNAL 13090] */ struct w49 f13090(struct p13063 *p13090, struct w49 a25026) {struct w49 t57857; struct structure_type24753 *t57858; struct structure_type24753 *t57859; struct w49 t57860; struct structure_type24753 *t57861; /* x116727 stalin.sc:13294:466189 */ /* x116716 stalin.sc:13294:466193 */ /* x116726 stalin.sc:13296:466232 */ /* x116721 stalin.sc:13296:466263 */ t57857 = a25026; /* x116725 stalin.sc:13296:466265 */ /* x116723 stalin.sc:13296:466271 */ t57860 = p13090->a25021; /* x116724 stalin.sc:13296:466273 */ t57861 = p13090->a25022; /* x269232 stalin.sc:13296:466266 */ t57858 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t57858==NULL) {backtrace("stalin.sc", 13296, 466265); out_of_memory_error();} t57858->s0 = t57860; /* MOVE: branching squeezed to general */ if (t57861>=((struct structure_type24753 *)VALUE_OFFSET)) {t57858->s1.tag = STRUCTURE_TYPE24753; t57858->s1.value.structure_type24753 = t57861;} else t57858->s1.tag = (unsigned)t57861; /* x116720 stalin.sc:13296:466233 */ t57859 = t57858; return f13098(t57857, t57859);} /* [inside EXTERNALIZE-TYPE-INTERNAL 13088] */ struct w49 f13088(struct p13063 *p13088, struct w49 a25025) {struct w49 t57862; struct structure_type24753 *t57863; struct structure_type24753 *t57864; struct w49 t57865; struct structure_type24753 *t57866; /* x116699 stalin.sc:13290:466050 */ /* x116694 stalin.sc:13290:466081 */ t57862 = a25025; /* x116698 stalin.sc:13290:466083 */ /* x116696 stalin.sc:13290:466089 */ t57865 = p13088->a25021; /* x116697 stalin.sc:13290:466091 */ t57866 = p13088->a25022; /* x269233 stalin.sc:13290:466084 */ t57863 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t57863==NULL) {backtrace("stalin.sc", 13290, 466083); out_of_memory_error();} t57863->s0 = t57865; /* MOVE: branching squeezed to general */ if (t57866>=((struct structure_type24753 *)VALUE_OFFSET)) {t57863->s1.tag = STRUCTURE_TYPE24753; t57863->s1.value.structure_type24753 = t57866;} else t57863->s1.tag = (unsigned)t57866; /* x116693 stalin.sc:13290:466051 */ t57864 = t57863; return f13098(t57862, t57864);} /* EXTERNALIZE-TYPE-INTERNAL[13063] */ struct w49 f13063(struct w49 a25021, struct structure_type24753 *a25022) {struct w49 r13063; struct w49 a25013; /* U */ struct w49 a25027; /* U */ struct structure_type24753 *a35698; /* PAIR */ struct structure_type24753 *a35699; /* PAIR */ struct w49 a37304; /* S */ struct w49 a37326; /* OBJ */ struct w49 a37389; /* S */ struct w49 a37423; /* OBJ */ struct w49 a37496; /* S */ struct w49 a37542; /* OBJ */ struct w49 a37636; /* S */ struct w49 a37662; /* S */ struct w49 a37682; /* OBJ */ struct w49 a37758; /* OBJ */ struct w49 a37830; /* S */ struct w49 a37869; /* OBJ */ struct w49 a37929; /* S */ struct w49 a37950; /* OBJ */ struct w49 a38070; /* OBJ */ struct w49 a38170; /* S */ struct w49 a38171; /* S */ struct w49 a38183; /* S */ struct w49 a38184; /* S */ struct w49 a38207; /* OBJ */ struct w49 a38254; /* S */ struct w49 a38270; /* OBJ */ struct w49 a38304; /* S */ struct w49 a38313; /* OBJ */ struct w49 a40128; /* S */ struct p13063 *t57867; struct p13063 *t57868; struct w49 t57869; struct structure_type24753 *t57870; struct w49 t57871; struct w49 t57872; struct w49 t57873; struct w49 t57874; struct w49 t57875; struct w49 t57876; struct w49 t57877; struct w49 t57878; struct w49 t57879; struct w49 t57880; struct w49 t57881; struct w49 t57882; struct w49 t57883; struct w49 t57884; struct w49 t57885; struct w49 t57886; struct w49 t57887; struct w49 t57888; struct w49 t57889; struct w49 t57890; struct w49 t57891; struct w49 t57892; struct w49 t57893; struct w49 t57894; struct w49 t57895; struct w49 t57896; struct w49 t57897; struct w49 t57898; struct w49 t57899; struct w49 t57900; struct w49 t57901; struct w49 t57902; struct w49 t57903; struct w49 t57904; char *t57905; struct p13063 *t57906; char *t57907; struct structure_type24753 *t57908; struct w49 t57909; struct w49 t57910; struct structure_type24753 *t57911; struct w49 t57912; struct w49 t57913; struct w49 t57914; struct structure_type24753 *t57915; struct structure_type24753 *t57916; struct w49 t57917; struct w49 t57918; struct w49 t57919; struct structure_type24753 *t57920; struct p13063 *t57921; char *t57922; struct structure_type24753 *t57923; struct w49 t57924; struct w49 t57925; struct structure_type24753 *t57926; struct w49 t57927; struct w49 t57928; struct w49 t57929; struct structure_type24753 *t57930; struct structure_type24753 *t57931; struct w49 t57932; struct w49 t57933; struct w49 t57934; struct structure_type24753 *t57935; struct p13063 *t57936; char *t57937; struct structure_type24753 *t57938; struct w49 t57939; struct w49 t57940; struct structure_type24753 *t57941; struct w49 t57942; struct w49 t57943; struct w49 t57944; struct structure_type24753 *t57945; struct structure_type24753 *t57946; struct w49 t57947; struct w49 t57948; struct w49 t57949; struct structure_type24753 *t57950; struct p13063 *t57951; struct w49 t57952; struct w49 t57953; int t57954; int t57955; struct structure_type24753 *t57956; struct w49 t57957; struct w49 t57958; struct w49 t57959; struct w49 t57960; struct structure_type24753 *t57961; struct structure_type24753 *t57962; struct w49 t57963; struct w49 t57964; struct w49 t57965; struct w49 t57966; struct structure_type24753 *t57967; struct w49 t57968; struct w49 t57969; struct w49 t57970; struct w49 t57971; struct structure_type24753 *t57972; struct w49 t57973; struct w49 t57974; struct w49 t57975; struct w49 t57976; struct w49 t57977; struct structure_type24753 *t57978; struct structure_type24753 *t57979; struct w49 t57980; struct w49 t57981; struct w49 t57982; struct w49 t57983; struct w49 t57984; struct w49 t57985; struct w49 t57986; struct w49 t57987; struct w49 t57988; struct w49 t57989; struct p13063 *t57990; struct w49 t57991; struct w49 t57992; struct structure_type24753 *t57993; struct w49 t57994; struct w49 t57995; struct structure_type24753 *t57996; struct structure_type24753 *t57997; struct w49 t57998; struct p13063 *t57999; struct w11873 t58000; struct w36270 t58001; struct w49 t58002; struct structure_type24753 *t58003; struct w49 t58004; struct w49 t58005; struct p13063 *t58006; char *t58007; struct w49 t58008; struct w49 t58009; struct structure_type24753 *t58010; struct structure_type24753 *t58011; struct structure_type24753 *t58012; struct w49 t58013; struct p13063 *t58014; struct structure_type24753 *t58015; struct w36270 t58016; struct w49 t58017; struct structure_type24753 *t58018; struct w49 t58019; struct p13063 *t58020; char *t58021; struct structure_type24753 *t58022; struct w49 t58023; struct w49 t58024; struct structure_type24753 *t58025; struct w49 t58026; struct w49 t58027; struct w49 t58028; struct structure_type24753 *t58029; struct structure_type24753 *t58030; struct w49 t58031; struct w49 t58032; struct structure_type24753 *t58033; struct p13063 *t58034; char *t58035; struct structure_type24753 *t58036; struct w49 t58037; struct w49 t58038; struct structure_type24753 *t58039; unsigned t58040; struct w49 t58041; struct w49 t58042; struct w49 t58043; struct w49 t58044; struct w49 t58045; struct w49 t58046; struct p13063 *t58047; struct w49 t58048; struct w49 t58049; struct p13063 *t58050; char *t58051; struct w49 t58052; struct w49 t58053; struct structure_type24753 *t58054; struct structure_type24753 *t58055; struct structure_type24753 *t58056; struct w49 t58057; struct w11873 t58058; struct w36270 t58059; struct w49 t58060; struct structure_type24753 *t58061; struct w49 t58062; struct p13063 *t58063; struct w49 t58064; struct w49 t58065; struct w49 t58066; struct w49 t58067; struct w49 t58068; struct w49 t58069; struct w49 t58070; struct w49 t58071; struct w49 t58072; struct w49 t58073; struct w49 t58074; struct p13063 *t58075; char *t58076; struct structure_type24753 *t58077; struct w49 t58078; struct w49 t58079; struct structure_type24753 *t58080; struct w49 t58081; struct w49 t58082; struct w49 t58083; struct structure_type24753 *t58084; struct structure_type24753 *t58085; struct w49 t58086; struct w49 t58087; struct w49 t58088; struct structure_type24753 *t58089; struct p13063 *t58090; char *t58091; struct structure_type24753 *t58092; struct w49 t58093; struct w49 t58094; struct structure_type24753 *t58095; struct w49 t58096; struct w49 t58097; struct w49 t58098; struct w49 t58099; struct p13063 *t58100; char *t58101; struct structure_type24753 *t58102; struct w49 t58103; struct w49 t58104; struct structure_type24753 *t58105; int t58106; struct w49 t58107; struct w49 t58108; struct w49 t58109; struct structure_type24753 *t58110; struct w49 t58111; struct p13063 *e13063; struct p13063 *p13064; struct p13063 *p13065; struct p13063 *p13066; struct p13063 *p13078; struct p13063 *p13079; struct p13063 *p13080; struct p13063 *p13081; struct p13063 *p13082; struct p13063 *p13083; struct p13063 *p13085; struct p13063 *p13086; struct p13063 *p13087; struct p13063 *p13089; struct p13063 *p13091; struct p13063 *p13092; struct p13063 *p13093; e13063 = (struct p13063 *)alloca(sizeof(struct p13063)); if (e13063==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e13063->a25021 = a25021; e13063->a25022 = a25022; /* x116877 */ /* x116876 */ /* x116875 */ /* x116874 */ t57867 = e13063; p13064 = t57867; /* x116873 */ /* x116872 */ /* x116871 */ /* x116843 */ t57868 = p13064; p13065 = t57868; /* x116842 stalin.sc:13248:464403 */ /* x116474 stalin.sc:13249:464412 */ /* x116472 stalin.sc:13249:464418 */ t57869 = p13065->a25021; /* x116473 stalin.sc:13249:464420 */ t57870 = p13065->a25022; /* x116471 stalin.sc:13249:464413 */ /* MOVE: branching squeezed to general */ if (t57870>=((struct structure_type24753 *)VALUE_OFFSET)) {t57871.tag = STRUCTURE_TYPE24753; t57871.value.structure_type24753 = t57870;} else t57871.tag = (unsigned)t57870; if ((f26351(t57869, t57871).tag)==FALSE_TYPE) goto l8788; /* x116486 */ /* x116485 */ t58100 = p13065; p13066 = t58100; /* x116484 stalin.sc:13249:464426 */ /* x116476 */ t58101 = q188; /* x116483 */ /* x116481 stalin.sc:13249:464432 */ /* x116479 stalin.sc:13249:464436 */ t58109 = p13066->a25021; /* x116480 stalin.sc:13249:464438 */ t58110 = p13066->a25022; /* x116478 stalin.sc:13249:464433 */ /* MOVE: branching squeezed to general */ if (t58110>=((struct structure_type24753 *)VALUE_OFFSET)) {t58111.tag = STRUCTURE_TYPE24753; t58111.value.structure_type24753 = t58110;} else t58111.tag = (unsigned)t58110; t58106 = f13061(t58109, t58111); /* x116482 */ /* x116477 */ t58107.tag = FIXNUM_TYPE; t58107.value.fixnum_type = t58106; t58108.tag = NULL_TYPE; t58102 = f26175(t58107, t58108); /* x116475 */ t58103.tag = EXTERNAL_SYMBOL_TYPE; t58103.value.external_symbol_type = t58101; t58104.tag = STRUCTURE_TYPE24753; t58104.value.structure_type24753 = t58102; t58105 = f26175(t58103, t58104); r13063.tag = STRUCTURE_TYPE24753; r13063.value.structure_type24753 = t58105; return r13063; l8788: /* x116841 */ /* x116489 stalin.sc:13250:464449 */ /* x116488 stalin.sc:13250:464461 */ t57872 = p13065->a25021; /* x116487 stalin.sc:13250:464450 */ if (f7677(t57872)==FALSE_TYPE) goto l8790; /* x116492 */ /* x116491 */ /* x116490 stalin.sc:13250:464464 */ r13063.tag = EXTERNAL_SYMBOL_TYPE; r13063.value.external_symbol_type = q53; return r13063; l8790: /* x116840 */ /* x116495 stalin.sc:13251:464474 */ /* x116494 stalin.sc:13251:464486 */ t57873 = p13065->a25021; /* x116493 stalin.sc:13251:464475 */ if (f7678(t57873)==FALSE_TYPE) goto l8792; /* x116498 */ /* x116497 */ /* x116496 stalin.sc:13251:464489 */ r13063.tag = EXTERNAL_SYMBOL_TYPE; r13063.value.external_symbol_type = q54; return r13063; l8792: /* x116839 */ /* x116501 stalin.sc:13252:464499 */ /* x116500 stalin.sc:13252:464512 */ t57874 = p13065->a25021; /* x116499 stalin.sc:13252:464500 */ if (f7679(t57874)==FALSE_TYPE) goto l8794; /* x116504 */ /* x116503 */ /* x116502 stalin.sc:13252:464515 */ r13063.tag = EXTERNAL_SYMBOL_TYPE; r13063.value.external_symbol_type = q55; return r13063; l8794: /* x116838 */ /* x116507 stalin.sc:13253:464526 */ /* x116506 stalin.sc:13253:464538 */ t57875 = p13065->a25021; /* x116505 stalin.sc:13253:464527 */ if (f7682(t57875)==FALSE_TYPE) goto l8796; /* x116510 */ /* x116509 */ /* x116508 stalin.sc:13253:464541 */ r13063.tag = EXTERNAL_SYMBOL_TYPE; r13063.value.external_symbol_type = q56; return r13063; l8796: /* x116837 */ /* x116513 stalin.sc:13254:464551 */ /* x116512 stalin.sc:13254:464565 */ t57876 = p13065->a25021; /* x116511 stalin.sc:13254:464552 */ if (f7683(t57876)==FALSE_TYPE) goto l8798; /* x116516 */ /* x116515 */ /* x116514 stalin.sc:13254:464568 */ r13063.tag = EXTERNAL_SYMBOL_TYPE; r13063.value.external_symbol_type = q57; return r13063; l8798: /* x116836 */ /* x116519 stalin.sc:13255:464580 */ /* x116518 stalin.sc:13255:464594 */ t57877 = p13065->a25021; /* x116517 stalin.sc:13255:464581 */ if (f7684(t57877)==FALSE_TYPE) goto l8800; /* x116522 */ /* x116521 */ /* x116520 stalin.sc:13255:464597 */ r13063.tag = EXTERNAL_SYMBOL_TYPE; r13063.value.external_symbol_type = q58; return r13063; l8800: /* x116835 */ /* x116525 stalin.sc:13256:464609 */ /* x116524 stalin.sc:13256:464628 */ t57878 = p13065->a25021; /* x116523 stalin.sc:13256:464610 */ if (f7687(t57878)==FALSE_TYPE) goto l8802; /* x116528 */ /* x116527 */ /* x116526 stalin.sc:13256:464631 */ r13063.tag = EXTERNAL_SYMBOL_TYPE; r13063.value.external_symbol_type = q59; return r13063; l8802: /* x116834 */ /* x116531 stalin.sc:13257:464648 */ /* x116530 stalin.sc:13257:464666 */ t57879 = p13065->a25021; /* x116529 stalin.sc:13257:464649 */ if (f7700(t57879)==FALSE_TYPE) goto l8804; /* x116534 */ /* x116533 */ /* x116532 stalin.sc:13257:464669 */ r13063.tag = EXTERNAL_SYMBOL_TYPE; r13063.value.external_symbol_type = q60; return r13063; l8804: /* x116833 */ /* x116537 stalin.sc:13258:464685 */ /* x116536 stalin.sc:13258:464704 */ t57880 = p13065->a25021; /* x116535 stalin.sc:13258:464686 */ if (f7701(t57880)==FALSE_TYPE) goto l8806; /* x116540 */ /* x116539 */ /* x116538 stalin.sc:13258:464707 */ r13063.tag = EXTERNAL_SYMBOL_TYPE; r13063.value.external_symbol_type = q61; return r13063; l8806: /* x116832 */ /* x116543 stalin.sc:13259:464724 */ /* x116542 stalin.sc:13259:464742 */ t57881 = p13065->a25021; /* x116541 stalin.sc:13259:464725 */ if (f7702(t57881)==FALSE_TYPE) goto l8808; /* x116546 */ /* x116545 */ /* x116544 stalin.sc:13259:464745 */ r13063.tag = EXTERNAL_SYMBOL_TYPE; r13063.value.external_symbol_type = q62; return r13063; l8808: /* x116831 */ /* x116549 stalin.sc:13260:464761 */ /* x116548 stalin.sc:13260:464776 */ t57882 = p13065->a25021; /* x116547 stalin.sc:13260:464762 */ if (f7703(t57882)==FALSE_TYPE) goto l8810; /* x116552 */ /* x116551 */ /* x116550 stalin.sc:13260:464779 */ r13063.tag = EXTERNAL_SYMBOL_TYPE; r13063.value.external_symbol_type = q63; return r13063; l8810: /* x116830 */ /* x116555 stalin.sc:13261:464792 */ /* x116554 stalin.sc:13261:464815 */ t57883 = p13065->a25021; /* x116553 stalin.sc:13261:464793 */ a38313 = t57883; /* x285921 */ /* x285920 */ t57884 = a38313; /* x285919 */ if (!((t57884.tag)==STRUCTURE_TYPE27776)) goto l8812; /* x116566 */ /* x116565 */ t58090 = p13065; p13078 = t58090; /* x116564 stalin.sc:13261:464818 */ /* x116557 */ t58091 = q11; /* x116563 */ /* x116561 stalin.sc:13261:464821 */ /* x116560 stalin.sc:13261:464848 */ t58098 = p13078->a25021; /* x116559 stalin.sc:13261:464822 */ a38304 = t58098; /* x285885 */ /* x285884 */ t58099 = a38304; /* x285883 */ if (!((t58099.tag)==STRUCTURE_TYPE27776)) {backtrace_internal("[clone INTERNAL-SYMBOL-TYPE-NAME[5803] 33221]"); structure_ref_error();} t58096 = t58099.value.structure_type27776->s0; /* x116562 */ /* x116558 */ t58097.tag = NULL_TYPE; t58092 = f26175(t58096, t58097); /* x116556 */ t58093.tag = EXTERNAL_SYMBOL_TYPE; t58093.value.external_symbol_type = t58091; t58094.tag = STRUCTURE_TYPE24753; t58094.value.structure_type24753 = t58092; t58095 = f26175(t58093, t58094); r13063.tag = STRUCTURE_TYPE24753; r13063.value.structure_type24753 = t58095; return r13063; l8812: /* x116829 */ /* x116569 stalin.sc:13262:464855 */ /* x116568 stalin.sc:13262:464878 */ t57885 = p13065->a25021; /* x116567 stalin.sc:13262:464856 */ a38270 = t57885; /* x285749 */ /* x285748 */ t57886 = a38270; /* x285747 */ if (!((t57886.tag)==STRUCTURE_TYPE27779)) goto l8814; /* x116586 */ /* x116585 */ t58075 = p13065; p13079 = t58075; /* x116584 stalin.sc:13264:464955 */ /* x116571 */ t58076 = q189; /* x116583 */ /* x116581 stalin.sc:13265:464979 */ /* x116576 stalin.sc:13265:465006 */ /* x116575 stalin.sc:13265:465050 */ t58086 = p13079->a25021; /* x116574 stalin.sc:13265:465007 */ a38254 = t58086; /* x285685 */ /* x285684 */ t58087 = a38254; /* x285683 */ if (!((t58087.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-DISPLACED-STRING-TYPE[5845] 33171]"); structure_ref_error();} t58083 = t58087.value.structure_type27779->s0; /* x116580 stalin.sc:13266:465058 */ /* x116578 stalin.sc:13266:465064 */ t58088 = p13079->a25021; /* x116579 stalin.sc:13266:465066 */ t58089 = p13079->a25022; /* x269237 stalin.sc:13266:465059 */ t58084 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t58084==NULL) {backtrace("stalin.sc", 13266, 465058); out_of_memory_error();} t58084->s0 = t58088; /* MOVE: branching squeezed to general */ if (t58089>=((struct structure_type24753 *)VALUE_OFFSET)) {t58084->s1.tag = STRUCTURE_TYPE24753; t58084->s1.value.structure_type24753 = t58089;} else t58084->s1.tag = (unsigned)t58089; /* x116573 stalin.sc:13265:464980 */ t58085 = t58084; t58081 = f13063(t58083, t58085); /* x116582 */ /* x116572 */ t58082.tag = NULL_TYPE; t58077 = f26175(t58081, t58082); /* x116570 */ t58078.tag = EXTERNAL_SYMBOL_TYPE; t58078.value.external_symbol_type = t58076; t58079.tag = STRUCTURE_TYPE24753; t58079.value.structure_type24753 = t58077; t58080 = f26175(t58078, t58079); r13063.tag = STRUCTURE_TYPE24753; r13063.value.structure_type24753 = t58080; return r13063; l8814: /* x116828 */ /* x116589 stalin.sc:13267:465078 */ /* x116588 stalin.sc:13267:465105 */ t57887 = p13065->a25021; /* x116587 stalin.sc:13267:465079 */ a38207 = t57887; /* x285497 */ /* x285496 */ t57888 = a38207; /* x285495 */ if (!((t57888.tag)==STRUCTURE_TYPE27753)) goto l8816; /* x116608 */ /* x116607 */ t58063 = p13065; p13080 = t58063; /* x116606 stalin.sc:13268:465111 */ /* x116594 stalin.sc:13268:465115 */ /* x116593 stalin.sc:13268:465122 */ /* x116592 stalin.sc:13268:465158 */ t58065 = p13080->a25021; /* x116591 stalin.sc:13268:465123 */ a38171 = t58065; /* x285353 */ /* x285352 */ t58066 = a38171; /* x285351 */ if (!((t58066.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33088]"); structure_ref_error();} t58064 = t58066.value.structure_type27753->s1; /* x269236 stalin.sc:13268:465116 */ if (!((t58064.tag)==NULL_TYPE)) goto l8849; /* x116597 stalin.sc:13269:465169 */ /* x116596 stalin.sc:13269:465200 */ t58073 = p13080->a25021; /* x116595 stalin.sc:13269:465170 */ a38183 = t58073; /* x285401 */ /* x285400 */ t58074 = a38183; /* x285399 */ if ((t58074.tag)==STRUCTURE_TYPE27753) return t58074.value.structure_type27753->s0; backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-NAME[5895] 33100]"); structure_ref_error(); l8849: /* x116605 stalin.sc:13270:465210 */ /* x116601 stalin.sc:13270:465216 */ /* x116600 stalin.sc:13270:465247 */ t58069 = p13080->a25021; /* x116599 stalin.sc:13270:465217 */ a38184 = t58069; /* x285405 */ /* x285404 */ t58070 = a38184; /* x285403 */ if (!((t58070.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-NAME[5895] 33101]"); structure_ref_error();} t58067 = t58070.value.structure_type27753->s0; /* x116604 stalin.sc:13271:465256 */ /* x116603 stalin.sc:13271:465292 */ t58071 = p13080->a25021; /* x116602 stalin.sc:13271:465257 */ a38170 = t58071; /* x285349 */ /* x285348 */ t58072 = a38170; /* x285347 */ if (!((t58072.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33087]"); structure_ref_error();} t58068 = t58072.value.structure_type27753->s1; /* x269235 stalin.sc:13270:465211 */ r13063.tag = STRUCTURE_TYPE24753; r13063.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r13063.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13270, 465210); out_of_memory_error();} r13063.value.structure_type24753->s0 = t58067; r13063.value.structure_type24753->s1 = t58068; return r13063; l8816: /* x116827 */ /* x116611 stalin.sc:13272:465301 */ /* x116610 stalin.sc:13272:465325 */ t57889 = p13065->a25021; /* x116609 stalin.sc:13272:465302 */ a38070 = t57889; /* x284949 */ /* x284948 */ t57890 = a38070; /* x284947 */ if (!((t57890.tag)==STRUCTURE_TYPE27756)) goto l8818; /* x116625 */ /* x116624 */ t58050 = p13065; p13081 = t58050; /* x116623 stalin.sc:13273:465331 */ /* x116613 */ t58051 = q190; /* x116622 */ /* x116621 */ /* x116620 stalin.sc:13273:465352 */ /* x116619 stalin.sc:13273:465374 */ /* x116618 stalin.sc:13273:465389 */ t58062 = p13081->a25021; /* x116617 stalin.sc:13273:465375 */ t58058 = f8984(t58062); /* x116616 stalin.sc:13273:465357 */ /* x116615 stalin.sc:13273:465353 */ t58059.tag = NATIVE_PROCEDURE_TYPE7695; t58060 = *((struct w49 *)(&t58058)); t58061 = (struct structure_type24753 *)NULL_TYPE; t58055 = f27731(t58059, t58060, t58061); /* x116614 */ t58057.tag = STRUCTURE_TYPE24753; t58057.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t58057.value.structure_type24753)==NULL) {backtrace_internal("[inside EXTERNALIZE-TYPE-INTERNAL 13081]"); out_of_memory_error();} t58057.value.structure_type24753->s0.tag = NULL_TYPE; t58057.value.structure_type24753->s1.tag = NULL_TYPE; t58056 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t58056==NULL) {backtrace_internal("[inside EXTERNALIZE-TYPE-INTERNAL 13081]"); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t58055>=((struct structure_type24753 *)VALUE_OFFSET)) {t58056->s0.tag = STRUCTURE_TYPE24753; t58056->s0.value.structure_type24753 = t58055;} else t58056->s0.tag = (unsigned)t58055; t58056->s1 = t58057; t58052 = f26254(t58056); /* x116612 */ t58053.tag = EXTERNAL_SYMBOL_TYPE; t58053.value.external_symbol_type = t58051; t58054 = f26175(t58053, t58052); r13063.tag = STRUCTURE_TYPE24753; r13063.value.structure_type24753 = t58054; return r13063; l8818: /* x116826 */ /* x116628 stalin.sc:13274:465398 */ /* x116627 stalin.sc:13274:465423 */ t57891 = p13065->a25021; /* x116626 stalin.sc:13274:465399 */ a37950 = t57891; /* x284469 */ /* x284468 */ t57892 = a37950; /* x284467 */ if (!((t57892.tag)==STRUCTURE_TYPE27750)) goto l8820; /* x116633 */ /* x116632 */ t58047 = p13065; p13082 = t58047; /* x116631 stalin.sc:13274:465426 */ /* x116630 stalin.sc:13274:465455 */ t58048 = p13082->a25021; /* x116629 stalin.sc:13274:465427 */ a37929 = t58048; /* x284385 */ /* x284384 */ t58049 = a37929; /* x284383 */ if ((t58049.tag)==STRUCTURE_TYPE27750) return t58049.value.structure_type27750->s0; backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-NAME[5995] 32846]"); structure_ref_error(); l8820: /* x116825 */ /* x116636 stalin.sc:13275:465462 */ /* x116635 stalin.sc:13275:465482 */ t57893 = p13065->a25021; /* x116634 stalin.sc:13275:465463 */ a37869 = t57893; /* x284145 */ /* x284144 */ t57894 = a37869; /* x284143 */ if (!((t57894.tag)==STRUCTURE_TYPE27858)) goto l8822; /* x116649 */ /* x116648 */ t58034 = p13065; p13083 = t58034; /* x116647 stalin.sc:13276:465488 */ /* x116638 */ t58035 = q191; /* x116646 */ /* x116644 stalin.sc:13277:465509 */ /* x116643 stalin.sc:13277:465527 */ /* x116642 stalin.sc:13277:465568 */ t58045 = p13083->a25021; /* x116641 stalin.sc:13277:465528 */ a37830 = t58045; /* x283989 */ /* x283988 */ t58046 = a37830; /* x283987 */ if (!((t58046.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32747]"); structure_ref_error();} t58043 = t58046.value.structure_type27858->s0; /* x116640 stalin.sc:13277:465510 */ a40128 = t58043; /* x293181 */ /* x293180 */ t58044 = a40128; /* x293179 */ if (!((t58044.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-INDEX[5543] 35045]"); structure_ref_error();} t58040 = t58044.value.structure_type27698->s7; /* x116645 */ /* x116639 */ /* MOVE: dispatching squished to general */ if (t58040==FALSE_TYPE) t58041.tag = (unsigned)t58040; else {t58041.tag = FIXNUM_TYPE; t58041.value.fixnum_type = (int)(((int)t58040)>>1);} t58042.tag = NULL_TYPE; t58036 = f26175(t58041, t58042); /* x116637 */ t58037.tag = EXTERNAL_SYMBOL_TYPE; t58037.value.external_symbol_type = t58035; t58038.tag = STRUCTURE_TYPE24753; t58038.value.structure_type24753 = t58036; t58039 = f26175(t58037, t58038); r13063.tag = STRUCTURE_TYPE24753; r13063.value.structure_type24753 = t58039; return r13063; l8822: /* x116824 */ /* x116652 stalin.sc:13279:465648 */ /* x116651 stalin.sc:13279:465662 */ t57895 = p13065->a25021; /* x116650 stalin.sc:13279:465649 */ a37758 = t57895; /* x283701 */ /* x283700 */ t57896 = a37758; /* x283699 */ if (!((t57896.tag)==STRUCTURE_TYPE27673)) goto l8824; /* x116655 */ /* x116654 */ /* x116653 stalin.sc:13279:465665 */ r13063.tag = EXTERNAL_SYMBOL_TYPE; r13063.value.external_symbol_type = q161; return r13063; l8824: /* x116823 */ /* x116658 stalin.sc:13280:465677 */ /* x116657 stalin.sc:13280:465694 */ t57897 = p13065->a25021; /* x116656 stalin.sc:13280:465678 */ a37682 = t57897; /* x283397 */ /* x283396 */ t57898 = a37682; /* x283395 */ if (!((t57898.tag)==STRUCTURE_TYPE27769)) goto l8826; /* x116741 */ /* x116740 */ t57951 = p13065; p13085 = t57951; /* x116739 stalin.sc:13281:465700 */ /* x116661 stalin.sc:13282:465711 */ /* x116660 stalin.sc:13282:465724 */ t57952 = p13085->a25021; /* x116659 stalin.sc:13282:465712 */ a25013 = t57952; /* x116334 stalin.sc:13213:463238 */ /* x116273 stalin.sc:13213:463243 */ /* x116272 stalin.sc:13213:463255 */ t57953 = a25013; /* x116271 stalin.sc:13213:463244 */ if (f7719(t57953)==FALSE_TYPE) goto l8836; /* x116332 */ /* x116283 stalin.sc:13214:463264 */ /* x116281 stalin.sc:13214:463267 */ /* x116280 stalin.sc:13214:463275 */ /* x116279 stalin.sc:13214:463284 */ /* x116278 stalin.sc:13214:463299 */ t57959 = a25013; /* x116277 stalin.sc:13214:463285 */ t57958 = f7927(t57959); /* x116276 stalin.sc:13214:463276 */ t57956 = f8162(t57958); /* x116275 stalin.sc:13214:463268 */ /* MOVE: branching squeezed to general */ if (t57956>=((struct structure_type24753 *)VALUE_OFFSET)) {t57957.tag = STRUCTURE_TYPE24753; t57957.value.structure_type24753 = t57956;} else t57957.tag = (unsigned)t57956; t57954 = f26227(t57957); /* x116282 stalin.sc:13214:463304 */ t57955 = 2; /* x269247 stalin.sc:13214:463265 */ if (!(t57954==t57955)) goto l8836; /* x116330 */ /* x116329 stalin.sc:13215:463317 */ /* x116317 stalin.sc:13215:463322 */ /* x116316 stalin.sc:13215:463334 */ /* x116315 stalin.sc:13215:463341 */ /* x116314 stalin.sc:13215:463350 */ /* x116313 stalin.sc:13215:463365 */ t57964 = a25013; /* x116312 stalin.sc:13215:463351 */ t57963 = f7927(t57964); /* x116311 stalin.sc:13215:463342 */ t57961 = f8162(t57963); /* x116310 stalin.sc:13215:463335 */ a35699 = t57961; /* x274153 */ /* x274152 */ t57962 = a35699; /* x274151 */ if (!(t57962>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29848]"); structure_ref_error();} t57960 = t57962->s0; /* x116309 stalin.sc:13215:463323 */ if (f7677(t57960)==FALSE_TYPE) goto l8839; /* x116327 */ /* x116325 stalin.sc:13216:463384 */ /* x116324 stalin.sc:13216:463392 */ /* x116323 stalin.sc:13216:463401 */ /* x116322 stalin.sc:13216:463416 */ t57970 = a25013; /* x116321 stalin.sc:13216:463402 */ t57969 = f7927(t57970); /* x116320 stalin.sc:13216:463393 */ t57967 = f8162(t57969); /* x116319 stalin.sc:13216:463385 */ /* MOVE: branching squeezed to general */ if (t57967>=((struct structure_type24753 *)VALUE_OFFSET)) {t57968.tag = STRUCTURE_TYPE24753; t57968.value.structure_type24753 = t57967;} else t57968.tag = (unsigned)t57967; t57965 = f26181(t57968); /* x116326 stalin.sc:13216:463421 */ t57966 = a25013; /* x269245 stalin.sc:13216:463380 */ /* EQ: dispatching general to general */ if ((t57965.tag)==(t57966.tag)) switch (t57965.tag) {case FIXNUM_TYPE: if ((t57965.value.fixnum_type)==(t57966.value.fixnum_type)) goto l8835; break; case FLONUM_TYPE: if ((t57965.value.flonum_type)==(t57966.value.flonum_type)) goto l8835; break; case INPUT_PORT_TYPE: if ((t57965.value.input_port_type)==(t57966.value.input_port_type)) goto l8835; break; case OUTPUT_PORT_TYPE: if ((t57965.value.output_port_type)==(t57966.value.output_port_type)) goto l8835; break; case NATIVE_PROCEDURE_TYPE15963: if ((t57965.value.native_procedure_type15963)==(t57966.value.native_procedure_type15963)) goto l8835; break; case NATIVE_PROCEDURE_TYPE19067: if ((t57965.value.native_procedure_type19067)==(t57966.value.native_procedure_type19067)) goto l8835; break; case NATIVE_PROCEDURE_TYPE19068: if ((t57965.value.native_procedure_type19068)==(t57966.value.native_procedure_type19068)) goto l8835; break; case NATIVE_PROCEDURE_TYPE22459: if ((t57965.value.native_procedure_type22459)==(t57966.value.native_procedure_type22459)) goto l8835; break; case STRUCTURE_TYPE24753: if ((t57965.value.structure_type24753)==(t57966.value.structure_type24753)) goto l8835; break; case STRUCTURE_TYPE24757: if ((t57965.value.structure_type24757)==(t57966.value.structure_type24757)) goto l8835; break; case STRUCTURE_TYPE27501: if ((t57965.value.structure_type27501)==(t57966.value.structure_type27501)) goto l8835; break; case STRUCTURE_TYPE27510: if ((t57965.value.structure_type27510)==(t57966.value.structure_type27510)) goto l8835; break; case STRUCTURE_TYPE27621: if ((t57965.value.structure_type27621)==(t57966.value.structure_type27621)) goto l8835; break; case STRUCTURE_TYPE27650: if ((t57965.value.structure_type27650)==(t57966.value.structure_type27650)) goto l8835; break; case STRUCTURE_TYPE27669: if ((t57965.value.structure_type27669)==(t57966.value.structure_type27669)) goto l8835; break; case STRUCTURE_TYPE27673: if ((t57965.value.structure_type27673)==(t57966.value.structure_type27673)) goto l8835; break; case STRUCTURE_TYPE27692: if ((t57965.value.structure_type27692)==(t57966.value.structure_type27692)) goto l8835; break; case STRUCTURE_TYPE27694: if ((t57965.value.structure_type27694)==(t57966.value.structure_type27694)) goto l8835; break; case STRUCTURE_TYPE27698: if ((t57965.value.structure_type27698)==(t57966.value.structure_type27698)) goto l8835; break; case STRUCTURE_TYPE27745: if ((t57965.value.structure_type27745)==(t57966.value.structure_type27745)) goto l8835; break; case STRUCTURE_TYPE27747: if ((t57965.value.structure_type27747)==(t57966.value.structure_type27747)) goto l8835; break; case STRUCTURE_TYPE27750: if ((t57965.value.structure_type27750)==(t57966.value.structure_type27750)) goto l8835; break; case STRUCTURE_TYPE27753: if ((t57965.value.structure_type27753)==(t57966.value.structure_type27753)) goto l8835; break; case STRUCTURE_TYPE27756: if ((t57965.value.structure_type27756)==(t57966.value.structure_type27756)) goto l8835; break; case STRUCTURE_TYPE27761: if ((t57965.value.structure_type27761)==(t57966.value.structure_type27761)) goto l8835; break; case STRUCTURE_TYPE27769: if ((t57965.value.structure_type27769)==(t57966.value.structure_type27769)) goto l8835; break; case STRUCTURE_TYPE27776: if ((t57965.value.structure_type27776)==(t57966.value.structure_type27776)) goto l8835; break; case STRUCTURE_TYPE27779: if ((t57965.value.structure_type27779)==(t57966.value.structure_type27779)) goto l8835; break; case STRUCTURE_TYPE27858: if ((t57965.value.structure_type27858)==(t57966.value.structure_type27858)) goto l8835; break; case STRING_TYPE: if ((t57965.value.string_type)==(t57966.value.string_type)) goto l8835; break; case HEADED_VECTOR_TYPE27896: if ((t57965.value.headed_vector_type27896)==(t57966.value.headed_vector_type27896)) goto l8835; break; case EXTERNAL_SYMBOL_TYPE: if ((t57965.value.external_symbol_type)==(t57966.value.external_symbol_type)) goto l8835; break; case STRUCTURE_TYPE27908: if ((t57965.value.structure_type27908)==(t57966.value.structure_type27908)) goto l8835; break; default: goto l8835;} l8839: /* x116306 */ /* x116294 stalin.sc:13217:463433 */ /* x116293 stalin.sc:13217:463445 */ /* x116292 stalin.sc:13217:463453 */ /* x116291 stalin.sc:13217:463462 */ /* x116290 stalin.sc:13217:463477 */ t57975 = a25013; /* x116289 stalin.sc:13217:463463 */ t57974 = f7927(t57975); /* x116288 stalin.sc:13217:463454 */ t57972 = f8162(t57974); /* x116287 stalin.sc:13217:463446 */ /* MOVE: branching squeezed to general */ if (t57972>=((struct structure_type24753 *)VALUE_OFFSET)) {t57973.tag = STRUCTURE_TYPE24753; t57973.value.structure_type24753 = t57972;} else t57973.tag = (unsigned)t57972; t57971 = f26181(t57973); /* x116286 stalin.sc:13217:463434 */ if (f7677(t57971)==FALSE_TYPE) goto l8836; /* x116304 */ /* x116302 stalin.sc:13218:463496 */ /* x116301 stalin.sc:13218:463503 */ /* x116300 stalin.sc:13218:463512 */ /* x116299 stalin.sc:13218:463527 */ t57981 = a25013; /* x116298 stalin.sc:13218:463513 */ t57980 = f7927(t57981); /* x116297 stalin.sc:13218:463504 */ t57978 = f8162(t57980); /* x116296 stalin.sc:13218:463497 */ a35698 = t57978; /* x274149 */ /* x274148 */ t57979 = a35698; /* x274147 */ if (!(t57979>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29847]"); structure_ref_error();} t57976 = t57979->s0; /* x116303 stalin.sc:13218:463532 */ t57977 = a25013; /* x269246 stalin.sc:13218:463492 */ /* EQ: dispatching general to general */ if (!((t57976.tag)==(t57977.tag))) goto l8836; switch (t57976.tag) {case FIXNUM_TYPE: if (!((t57976.value.fixnum_type)==(t57977.value.fixnum_type))) goto l8836; break; case FLONUM_TYPE: if (!((t57976.value.flonum_type)==(t57977.value.flonum_type))) goto l8836; break; case INPUT_PORT_TYPE: if (!((t57976.value.input_port_type)==(t57977.value.input_port_type))) goto l8836; break; case OUTPUT_PORT_TYPE: if (!((t57976.value.output_port_type)==(t57977.value.output_port_type))) goto l8836; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t57976.value.native_procedure_type15963)==(t57977.value.native_procedure_type15963))) goto l8836; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t57976.value.native_procedure_type19067)==(t57977.value.native_procedure_type19067))) goto l8836; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t57976.value.native_procedure_type19068)==(t57977.value.native_procedure_type19068))) goto l8836; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t57976.value.native_procedure_type22459)==(t57977.value.native_procedure_type22459))) goto l8836; break; case STRUCTURE_TYPE24753: if (!((t57976.value.structure_type24753)==(t57977.value.structure_type24753))) goto l8836; break; case STRUCTURE_TYPE24757: if (!((t57976.value.structure_type24757)==(t57977.value.structure_type24757))) goto l8836; break; case STRUCTURE_TYPE27501: if (!((t57976.value.structure_type27501)==(t57977.value.structure_type27501))) goto l8836; break; case STRUCTURE_TYPE27510: if (!((t57976.value.structure_type27510)==(t57977.value.structure_type27510))) goto l8836; break; case STRUCTURE_TYPE27621: if (!((t57976.value.structure_type27621)==(t57977.value.structure_type27621))) goto l8836; break; case STRUCTURE_TYPE27650: if (!((t57976.value.structure_type27650)==(t57977.value.structure_type27650))) goto l8836; break; case STRUCTURE_TYPE27669: if (!((t57976.value.structure_type27669)==(t57977.value.structure_type27669))) goto l8836; break; case STRUCTURE_TYPE27673: if (!((t57976.value.structure_type27673)==(t57977.value.structure_type27673))) goto l8836; break; case STRUCTURE_TYPE27692: if (!((t57976.value.structure_type27692)==(t57977.value.structure_type27692))) goto l8836; break; case STRUCTURE_TYPE27694: if (!((t57976.value.structure_type27694)==(t57977.value.structure_type27694))) goto l8836; break; case STRUCTURE_TYPE27698: if (!((t57976.value.structure_type27698)==(t57977.value.structure_type27698))) goto l8836; break; case STRUCTURE_TYPE27745: if (!((t57976.value.structure_type27745)==(t57977.value.structure_type27745))) goto l8836; break; case STRUCTURE_TYPE27747: if (!((t57976.value.structure_type27747)==(t57977.value.structure_type27747))) goto l8836; break; case STRUCTURE_TYPE27750: if (!((t57976.value.structure_type27750)==(t57977.value.structure_type27750))) goto l8836; break; case STRUCTURE_TYPE27753: if (!((t57976.value.structure_type27753)==(t57977.value.structure_type27753))) goto l8836; break; case STRUCTURE_TYPE27756: if (!((t57976.value.structure_type27756)==(t57977.value.structure_type27756))) goto l8836; break; case STRUCTURE_TYPE27761: if (!((t57976.value.structure_type27761)==(t57977.value.structure_type27761))) goto l8836; break; case STRUCTURE_TYPE27769: if (!((t57976.value.structure_type27769)==(t57977.value.structure_type27769))) goto l8836; break; case STRUCTURE_TYPE27776: if (!((t57976.value.structure_type27776)==(t57977.value.structure_type27776))) goto l8836; break; case STRUCTURE_TYPE27779: if (!((t57976.value.structure_type27779)==(t57977.value.structure_type27779))) goto l8836; break; case STRUCTURE_TYPE27858: if (!((t57976.value.structure_type27858)==(t57977.value.structure_type27858))) goto l8836; break; case STRING_TYPE: if (!((t57976.value.string_type)==(t57977.value.string_type))) goto l8836; break; case HEADED_VECTOR_TYPE27896: if (!((t57976.value.headed_vector_type27896)==(t57977.value.headed_vector_type27896))) goto l8836; break; case EXTERNAL_SYMBOL_TYPE: if (!((t57976.value.external_symbol_type)==(t57977.value.external_symbol_type))) goto l8836; break; case STRUCTURE_TYPE27908: if (!((t57976.value.structure_type27908)==(t57977.value.structure_type27908))) goto l8836; break; default:;} l8835: /* x116685 */ /* x116684 */ t58020 = p13085; p13086 = t58020; /* x116683 stalin.sc:13284:465795 */ /* x116663 */ t58021 = q192; /* x116682 */ /* x116680 stalin.sc:13284:465804 */ /* x116665 stalin.sc:13284:465808 */ /* x116679 stalin.sc:13286:465865 */ /* x116674 stalin.sc:13287:465901 */ /* x116673 stalin.sc:13287:465916 */ t58031 = p13086->a25021; /* x116672 stalin.sc:13287:465902 */ t58028 = f7923(t58031); /* x116678 stalin.sc:13287:465919 */ /* x116676 stalin.sc:13287:465925 */ t58032 = p13086->a25021; /* x116677 stalin.sc:13287:465927 */ t58033 = p13086->a25022; /* x269234 stalin.sc:13287:465920 */ t58029 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t58029==NULL) {backtrace("stalin.sc", 13287, 465919); out_of_memory_error();} t58029->s0 = t58032; /* MOVE: branching squeezed to general */ if (t58033>=((struct structure_type24753 *)VALUE_OFFSET)) {t58029->s1.tag = STRUCTURE_TYPE24753; t58029->s1.value.structure_type24753 = t58033;} else t58029->s1.tag = (unsigned)t58033; /* x116671 stalin.sc:13286:465866 */ t58030 = t58029; t58026 = f13098(t58028, t58030); /* x116681 */ /* x116664 */ t58027.tag = NULL_TYPE; t58022 = f26175(t58026, t58027); /* x116662 */ t58023.tag = EXTERNAL_SYMBOL_TYPE; t58023.value.external_symbol_type = t58021; t58024.tag = STRUCTURE_TYPE24753; t58024.value.structure_type24753 = t58022; t58025 = f26175(t58023, t58024); r13063.tag = STRUCTURE_TYPE24753; r13063.value.structure_type24753 = t58025; return r13063; l8836: /* x116738 */ /* x116688 stalin.sc:13288:465942 */ /* x116687 stalin.sc:13288:465954 */ t57982 = p13085->a25021; /* x116686 stalin.sc:13288:465943 */ a25027 = t57982; h13095: /* x116870 stalin.sc:13244:464269 */ /* x116869 stalin.sc:13244:464273 */ /* x116868 stalin.sc:13244:464285 */ t57983 = a25027; /* x116867 stalin.sc:13244:464274 */ if (!(f7677(t57983)==FALSE_TYPE)) goto l8842; /* x116864 */ /* x116848 stalin.sc:13245:464299 */ /* x116847 stalin.sc:13245:464311 */ t57984 = a25027; /* x116846 stalin.sc:13245:464300 */ if (f7719(t57984)==FALSE_TYPE) goto l8843; /* x116862 */ /* x116853 stalin.sc:13246:464318 */ /* x116852 stalin.sc:13246:464332 */ /* x116851 stalin.sc:13246:464347 */ t57986 = a25027; /* x116850 stalin.sc:13246:464333 */ t57985 = f7927(t57986); /* x116849 stalin.sc:13246:464319 */ if (f8148(t57985)==FALSE_TYPE) goto l8843; /* x116860 */ /* x116859 stalin.sc:13247:464367 */ /* x116858 stalin.sc:13247:464379 */ /* x116857 stalin.sc:13247:464394 */ t57989 = a25027; /* x116856 stalin.sc:13247:464380 */ t57988 = f7927(t57989); /* x116855 stalin.sc:13247:464368 */ t57987 = f8153(t57988); /* x116854 stalin.sc:13247:464356 */ a25027 = t57987; goto h13095; l8842: /* x116709 */ /* x116708 */ t58006 = p13085; p13087 = t58006; /* x116707 stalin.sc:13290:466024 */ /* x116690 */ t58007 = q1; /* x116706 */ /* x116705 */ /* x116704 stalin.sc:13290:466033 */ /* x116703 stalin.sc:13291:466104 */ /* x116702 stalin.sc:13291:466116 */ t58019 = p13087->a25021; /* x116701 stalin.sc:13291:466105 */ t58015 = f13058(t58019); /* x116700 stalin.sc:13290:466038 */ t58014 = p13087; /* x116692 stalin.sc:13290:466034 */ t58016.tag = NATIVE_PROCEDURE_TYPE22653; t58016.value.native_procedure_type22653 = t58014; /* MOVE: branching squeezed to general */ if (t58015>=((struct structure_type24753 *)VALUE_OFFSET)) {t58017.tag = STRUCTURE_TYPE24753; t58017.value.structure_type24753 = t58015;} else t58017.tag = (unsigned)t58015; t58018 = (struct structure_type24753 *)NULL_TYPE; t58011 = f27731(t58016, t58017, t58018); /* x116691 */ t58013.tag = STRUCTURE_TYPE24753; t58013.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t58013.value.structure_type24753)==NULL) {backtrace_internal("[inside EXTERNALIZE-TYPE-INTERNAL 13087]"); out_of_memory_error();} t58013.value.structure_type24753->s0.tag = NULL_TYPE; t58013.value.structure_type24753->s1.tag = NULL_TYPE; t58012 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t58012==NULL) {backtrace_internal("[inside EXTERNALIZE-TYPE-INTERNAL 13087]"); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t58011>=((struct structure_type24753 *)VALUE_OFFSET)) {t58012->s0.tag = STRUCTURE_TYPE24753; t58012->s0.value.structure_type24753 = t58011;} else t58012->s0.tag = (unsigned)t58011; t58012->s1 = t58013; t58008 = f26254(t58012); /* x116689 */ t58009.tag = EXTERNAL_SYMBOL_TYPE; t58009.value.external_symbol_type = t58007; t58010 = f26175(t58009, t58008); r13063.tag = STRUCTURE_TYPE24753; r13063.value.structure_type24753 = t58010; return r13063; l8843: /* x116737 */ /* x116736 */ t57990 = p13085; p13089 = t57990; /* x116735 stalin.sc:13292:466132 */ /* x116713 stalin.sc:13292:466135 */ /* x116712 stalin.sc:13292:466156 */ t57994 = p13089->a25021; /* x116711 stalin.sc:13292:466136 */ a37662 = t57994; /* x283317 */ /* x283316 */ t57995 = a37662; /* x283315 */ if (!((t57995.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-NAME[6169] 32579]"); structure_ref_error();} t57991 = t57995.value.structure_type27769->s0; /* x116734 */ /* x116733 */ /* x116732 stalin.sc:13293:466166 */ /* x116731 stalin.sc:13297:466287 */ /* x116730 stalin.sc:13297:466309 */ t58004 = p13089->a25021; /* x116729 stalin.sc:13297:466288 */ a37636 = t58004; /* x283213 */ /* x283212 */ t58005 = a37636; /* x283211 */ if (!((t58005.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32553]"); structure_ref_error();} t58000 = t58005.value.structure_type27769->s1; /* x116728 stalin.sc:13293:466171 */ t57999 = p13089; /* x116715 stalin.sc:13293:466167 */ t58001.tag = NATIVE_PROCEDURE_TYPE22651; t58001.value.native_procedure_type22651 = t57999; t58002 = *((struct w49 *)(&t58000)); t58003 = (struct structure_type24753 *)NULL_TYPE; t57996 = f27731(t58001, t58002, t58003); /* x116714 */ t57998.tag = STRUCTURE_TYPE24753; t57998.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t57998.value.structure_type24753)==NULL) {backtrace_internal("[inside EXTERNALIZE-TYPE-INTERNAL 13089]"); out_of_memory_error();} t57998.value.structure_type24753->s0.tag = NULL_TYPE; t57998.value.structure_type24753->s1.tag = NULL_TYPE; t57997 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t57997==NULL) {backtrace_internal("[inside EXTERNALIZE-TYPE-INTERNAL 13089]"); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t57996>=((struct structure_type24753 *)VALUE_OFFSET)) {t57997->s0.tag = STRUCTURE_TYPE24753; t57997->s0.value.structure_type24753 = t57996;} else t57997->s0.tag = (unsigned)t57996; t57997->s1 = t57998; t57992 = f26254(t57997); /* x116710 */ t57993 = f26175(t57991, t57992); r13063.tag = STRUCTURE_TYPE24753; r13063.value.structure_type24753 = t57993; return r13063; l8826: /* x116822 */ /* x116744 stalin.sc:13298:466320 */ /* x116743 stalin.sc:13298:466341 */ t57899 = p13065->a25021; /* x116742 stalin.sc:13298:466321 */ a37542 = t57899; /* x282837 */ /* x282836 */ t57900 = a37542; /* x282835 */ if (!((t57900.tag)==STRUCTURE_TYPE27761)) goto l8828; /* x116768 */ /* x116767 */ t57936 = p13065; p13091 = t57936; /* x116766 stalin.sc:13300:466416 */ /* x116746 */ t57937 = q193; /* x116765 */ /* x116763 stalin.sc:13301:466438 */ /* x116748 stalin.sc:13301:466442 */ /* x116762 stalin.sc:13303:466510 */ /* x116757 stalin.sc:13304:466545 */ /* x116756 stalin.sc:13304:466573 */ t57947 = p13091->a25021; /* x116755 stalin.sc:13304:466546 */ a37496 = t57947; /* x282653 */ /* x282652 */ t57948 = a37496; /* x282651 */ if (!((t57948.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32413]"); structure_ref_error();} t57944 = t57948.value.structure_type27761->s0; /* x116761 stalin.sc:13304:466576 */ /* x116759 stalin.sc:13304:466582 */ t57949 = p13091->a25021; /* x116760 stalin.sc:13304:466584 */ t57950 = p13091->a25022; /* x269231 stalin.sc:13304:466577 */ t57945 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t57945==NULL) {backtrace("stalin.sc", 13304, 466576); out_of_memory_error();} t57945->s0 = t57949; /* MOVE: branching squeezed to general */ if (t57950>=((struct structure_type24753 *)VALUE_OFFSET)) {t57945->s1.tag = STRUCTURE_TYPE24753; t57945->s1.value.structure_type24753 = t57950;} else t57945->s1.tag = (unsigned)t57950; /* x116754 stalin.sc:13303:466511 */ t57946 = t57945; t57942 = f13098(t57944, t57946); /* x116764 */ /* x116747 */ t57943.tag = NULL_TYPE; t57938 = f26175(t57942, t57943); /* x116745 */ t57939.tag = EXTERNAL_SYMBOL_TYPE; t57939.value.external_symbol_type = t57937; t57940.tag = STRUCTURE_TYPE24753; t57940.value.structure_type24753 = t57938; t57941 = f26175(t57939, t57940); r13063.tag = STRUCTURE_TYPE24753; r13063.value.structure_type24753 = t57941; return r13063; l8828: /* x116821 */ /* x116771 stalin.sc:13305:466597 */ /* x116770 stalin.sc:13305:466621 */ t57901 = p13065->a25021; /* x116769 stalin.sc:13305:466598 */ a37423 = t57901; /* x282361 */ /* x282360 */ t57902 = a37423; /* x282359 */ if (!((t57902.tag)==STRUCTURE_TYPE27669)) goto l8830; /* x116795 */ /* x116794 */ t57921 = p13065; p13092 = t57921; /* x116793 stalin.sc:13307:466699 */ /* x116773 */ t57922 = q194; /* x116792 */ /* x116790 stalin.sc:13308:466724 */ /* x116775 stalin.sc:13308:466728 */ /* x116789 stalin.sc:13310:466799 */ /* x116784 stalin.sc:13311:466834 */ /* x116783 stalin.sc:13311:466865 */ t57932 = p13092->a25021; /* x116782 stalin.sc:13311:466835 */ a37389 = t57932; /* x282225 */ /* x282224 */ t57933 = a37389; /* x282223 */ if (!((t57933.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ELEMENT[6309] 32306]"); structure_ref_error();} t57929 = t57933.value.structure_type27669->s0; /* x116788 stalin.sc:13311:466868 */ /* x116786 stalin.sc:13311:466874 */ t57934 = p13092->a25021; /* x116787 stalin.sc:13311:466876 */ t57935 = p13092->a25022; /* x269230 stalin.sc:13311:466869 */ t57930 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t57930==NULL) {backtrace("stalin.sc", 13311, 466868); out_of_memory_error();} t57930->s0 = t57934; /* MOVE: branching squeezed to general */ if (t57935>=((struct structure_type24753 *)VALUE_OFFSET)) {t57930->s1.tag = STRUCTURE_TYPE24753; t57930->s1.value.structure_type24753 = t57935;} else t57930->s1.tag = (unsigned)t57935; /* x116781 stalin.sc:13310:466800 */ t57931 = t57930; t57927 = f13098(t57929, t57931); /* x116791 */ /* x116774 */ t57928.tag = NULL_TYPE; t57923 = f26175(t57927, t57928); /* x116772 */ t57924.tag = EXTERNAL_SYMBOL_TYPE; t57924.value.external_symbol_type = t57922; t57925.tag = STRUCTURE_TYPE24753; t57925.value.structure_type24753 = t57923; t57926 = f26175(t57924, t57925); r13063.tag = STRUCTURE_TYPE24753; r13063.value.structure_type24753 = t57926; return r13063; l8830: /* x116820 */ /* x116798 stalin.sc:13312:466889 */ /* x116797 stalin.sc:13312:466913 */ t57903 = p13065->a25021; /* x116796 stalin.sc:13312:466890 */ a37326 = t57903; /* x281973 */ /* x281972 */ t57904 = a37326; /* x281971 */ if (!((t57904.tag)==STRUCTURE_TYPE27908)) goto l8832; /* x116815 */ /* x116814 */ t57906 = p13065; p13093 = t57906; /* x116813 stalin.sc:13314:466991 */ /* x116800 */ t57907 = q195; /* x116812 */ /* x116810 stalin.sc:13315:467016 */ /* x116805 stalin.sc:13316:467050 */ /* x116804 stalin.sc:13316:467095 */ t57917 = p13093->a25021; /* x116803 stalin.sc:13316:467051 */ a37304 = t57917; /* x281885 */ /* x281884 */ t57918 = a37304; /* x281883 */ if (!((t57918.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-DISPLACED-VECTOR-TYPE[6375] 32221]"); structure_ref_error();} t57914 = t57918.value.structure_type27908->s0; /* x116809 stalin.sc:13316:467098 */ /* x116807 stalin.sc:13316:467104 */ t57919 = p13093->a25021; /* x116808 stalin.sc:13316:467106 */ t57920 = p13093->a25022; /* x269229 stalin.sc:13316:467099 */ t57915 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t57915==NULL) {backtrace("stalin.sc", 13316, 467098); out_of_memory_error();} t57915->s0 = t57919; /* MOVE: branching squeezed to general */ if (t57920>=((struct structure_type24753 *)VALUE_OFFSET)) {t57915->s1.tag = STRUCTURE_TYPE24753; t57915->s1.value.structure_type24753 = t57920;} else t57915->s1.tag = (unsigned)t57920; /* x116802 stalin.sc:13315:467017 */ t57916 = t57915; t57912 = f13063(t57914, t57916); /* x116811 */ /* x116801 */ t57913.tag = NULL_TYPE; t57908 = f26175(t57912, t57913); /* x116799 */ t57909.tag = EXTERNAL_SYMBOL_TYPE; t57909.value.external_symbol_type = t57907; t57910.tag = STRUCTURE_TYPE24753; t57910.value.structure_type24753 = t57908; t57911 = f26175(t57909, t57910); r13063.tag = STRUCTURE_TYPE24753; r13063.value.structure_type24753 = t57911; return r13063; l8832: /* x116819 */ /* x116818 */ /* x116817 stalin.sc:13317:467123 */ /* x116816 stalin.sc:13317:467124 */ /* x295897 QobiScheme.sc:166:5314 */ /* x295896 QobiScheme.sc:166:5321 */ t57905 = "This shouldn\'t happen"; /* x295895 QobiScheme.sc:166:5315 */ stalin_panic(t57905);} /* UP[13061] */ int f13061(struct w49 a25018, struct w49 a25019) {struct w49 a35540; /* PAIR */ struct w49 a36008; /* PAIR */ struct w49 a36109; /* PAIR */ struct w49 a37151; /* OBJ */ struct w49 t58112; struct w49 t58113; struct w49 t58114; struct w49 t58115; struct w49 t58116; struct w49 t58117; struct w49 t58118; struct w49 t58119; struct w49 t58120; struct w49 t58121; struct w49 t58122; struct w49 t58123; int t58124; int t58125; struct w49 t58126; struct w49 t58127; struct w49 t58128; struct w49 t58129; /* x116468 stalin.sc:13235:464033 */ /* x116457 stalin.sc:13235:464037 */ /* x116456 stalin.sc:13235:464041 */ /* x116452 stalin.sc:13235:464046 */ t58112 = a25018; /* x116455 stalin.sc:13235:464050 */ /* x116454 stalin.sc:13235:464057 */ t58114 = a25019; /* x116453 stalin.sc:13235:464051 */ a36109 = t58114; /* x275793 */ /* x275792 */ t58115 = a36109; /* x275791 */ if (!((t58115.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30258]"); structure_ref_error();} t58113 = t58115.value.structure_type24753->s0; /* x269239 stalin.sc:13235:464042 */ /* EQ: dispatching general to general */ if ((t58112.tag)==(t58113.tag)) switch (t58112.tag) {case FIXNUM_TYPE: if ((t58112.value.fixnum_type)==(t58113.value.fixnum_type)) goto l8850; break; case FLONUM_TYPE: if ((t58112.value.flonum_type)==(t58113.value.flonum_type)) goto l8850; break; case INPUT_PORT_TYPE: if ((t58112.value.input_port_type)==(t58113.value.input_port_type)) goto l8850; break; case OUTPUT_PORT_TYPE: if ((t58112.value.output_port_type)==(t58113.value.output_port_type)) goto l8850; break; case NATIVE_PROCEDURE_TYPE15963: if ((t58112.value.native_procedure_type15963)==(t58113.value.native_procedure_type15963)) goto l8850; break; case NATIVE_PROCEDURE_TYPE19067: if ((t58112.value.native_procedure_type19067)==(t58113.value.native_procedure_type19067)) goto l8850; break; case NATIVE_PROCEDURE_TYPE19068: if ((t58112.value.native_procedure_type19068)==(t58113.value.native_procedure_type19068)) goto l8850; break; case NATIVE_PROCEDURE_TYPE22459: if ((t58112.value.native_procedure_type22459)==(t58113.value.native_procedure_type22459)) goto l8850; break; case STRUCTURE_TYPE24753: if ((t58112.value.structure_type24753)==(t58113.value.structure_type24753)) goto l8850; break; case STRUCTURE_TYPE24757: if ((t58112.value.structure_type24757)==(t58113.value.structure_type24757)) goto l8850; break; case STRUCTURE_TYPE27501: if ((t58112.value.structure_type27501)==(t58113.value.structure_type27501)) goto l8850; break; case STRUCTURE_TYPE27510: if ((t58112.value.structure_type27510)==(t58113.value.structure_type27510)) goto l8850; break; case STRUCTURE_TYPE27621: if ((t58112.value.structure_type27621)==(t58113.value.structure_type27621)) goto l8850; break; case STRUCTURE_TYPE27650: if ((t58112.value.structure_type27650)==(t58113.value.structure_type27650)) goto l8850; break; case STRUCTURE_TYPE27669: if ((t58112.value.structure_type27669)==(t58113.value.structure_type27669)) goto l8850; break; case STRUCTURE_TYPE27673: if ((t58112.value.structure_type27673)==(t58113.value.structure_type27673)) goto l8850; break; case STRUCTURE_TYPE27692: if ((t58112.value.structure_type27692)==(t58113.value.structure_type27692)) goto l8850; break; case STRUCTURE_TYPE27694: if ((t58112.value.structure_type27694)==(t58113.value.structure_type27694)) goto l8850; break; case STRUCTURE_TYPE27698: if ((t58112.value.structure_type27698)==(t58113.value.structure_type27698)) goto l8850; break; case STRUCTURE_TYPE27745: if ((t58112.value.structure_type27745)==(t58113.value.structure_type27745)) goto l8850; break; case STRUCTURE_TYPE27747: if ((t58112.value.structure_type27747)==(t58113.value.structure_type27747)) goto l8850; break; case STRUCTURE_TYPE27750: if ((t58112.value.structure_type27750)==(t58113.value.structure_type27750)) goto l8850; break; case STRUCTURE_TYPE27753: if ((t58112.value.structure_type27753)==(t58113.value.structure_type27753)) goto l8850; break; case STRUCTURE_TYPE27756: if ((t58112.value.structure_type27756)==(t58113.value.structure_type27756)) goto l8850; break; case STRUCTURE_TYPE27761: if ((t58112.value.structure_type27761)==(t58113.value.structure_type27761)) goto l8850; break; case STRUCTURE_TYPE27769: if ((t58112.value.structure_type27769)==(t58113.value.structure_type27769)) goto l8850; break; case STRUCTURE_TYPE27776: if ((t58112.value.structure_type27776)==(t58113.value.structure_type27776)) goto l8850; break; case STRUCTURE_TYPE27779: if ((t58112.value.structure_type27779)==(t58113.value.structure_type27779)) goto l8850; break; case STRUCTURE_TYPE27858: if ((t58112.value.structure_type27858)==(t58113.value.structure_type27858)) goto l8850; break; case STRING_TYPE: if ((t58112.value.string_type)==(t58113.value.string_type)) goto l8850; break; case HEADED_VECTOR_TYPE27896: if ((t58112.value.headed_vector_type27896)==(t58113.value.headed_vector_type27896)) goto l8850; break; case EXTERNAL_SYMBOL_TYPE: if ((t58112.value.external_symbol_type)==(t58113.value.external_symbol_type)) goto l8850; break; case STRUCTURE_TYPE27908: if ((t58112.value.structure_type27908)==(t58113.value.structure_type27908)) goto l8850; break; default: goto l8850;} /* x116448 */ /* x116433 stalin.sc:13236:464071 */ /* x116432 stalin.sc:13236:464082 */ t58116 = a25018; /* x116431 stalin.sc:13236:464072 */ a37151 = t58116; /* x281273 */ /* x281272 */ t58117 = a37151; /* x281271 */ if (!((t58117.tag)==STRUCTURE_TYPE27650)) goto l8851; /* x116446 */ /* x116436 stalin.sc:13237:464094 */ /* x116435 stalin.sc:13237:464108 */ t58118 = a25018; /* x116434 stalin.sc:13237:464095 */ if (f8148(t58118)==FALSE_TYPE) goto l8851; /* x116444 */ /* x116440 stalin.sc:13238:464125 */ /* x116439 stalin.sc:13238:464137 */ t58121 = a25018; /* x116438 stalin.sc:13238:464126 */ t58119 = f8153(t58121); /* x116443 stalin.sc:13238:464142 */ /* x116442 stalin.sc:13238:464149 */ t58122 = a25019; /* x116441 stalin.sc:13238:464143 */ a36008 = t58122; /* x275389 */ /* x275388 */ t58123 = a36008; /* x275387 */ if (!((t58123.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30157]"); structure_ref_error();} t58120 = t58123.value.structure_type24753->s0; /* x269240 stalin.sc:13238:464121 */ /* EQ: dispatching general to general */ if (!((t58119.tag)==(t58120.tag))) goto l8851; switch (t58119.tag) {case FIXNUM_TYPE: if (!((t58119.value.fixnum_type)==(t58120.value.fixnum_type))) goto l8851; break; case FLONUM_TYPE: if (!((t58119.value.flonum_type)==(t58120.value.flonum_type))) goto l8851; break; case INPUT_PORT_TYPE: if (!((t58119.value.input_port_type)==(t58120.value.input_port_type))) goto l8851; break; case OUTPUT_PORT_TYPE: if (!((t58119.value.output_port_type)==(t58120.value.output_port_type))) goto l8851; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58119.value.native_procedure_type15963)==(t58120.value.native_procedure_type15963))) goto l8851; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58119.value.native_procedure_type19067)==(t58120.value.native_procedure_type19067))) goto l8851; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58119.value.native_procedure_type19068)==(t58120.value.native_procedure_type19068))) goto l8851; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58119.value.native_procedure_type22459)==(t58120.value.native_procedure_type22459))) goto l8851; break; case STRUCTURE_TYPE24753: if (!((t58119.value.structure_type24753)==(t58120.value.structure_type24753))) goto l8851; break; case STRUCTURE_TYPE24757: if (!((t58119.value.structure_type24757)==(t58120.value.structure_type24757))) goto l8851; break; case STRUCTURE_TYPE27501: if (!((t58119.value.structure_type27501)==(t58120.value.structure_type27501))) goto l8851; break; case STRUCTURE_TYPE27510: if (!((t58119.value.structure_type27510)==(t58120.value.structure_type27510))) goto l8851; break; case STRUCTURE_TYPE27621: if (!((t58119.value.structure_type27621)==(t58120.value.structure_type27621))) goto l8851; break; case STRUCTURE_TYPE27650: if (!((t58119.value.structure_type27650)==(t58120.value.structure_type27650))) goto l8851; break; case STRUCTURE_TYPE27669: if (!((t58119.value.structure_type27669)==(t58120.value.structure_type27669))) goto l8851; break; case STRUCTURE_TYPE27673: if (!((t58119.value.structure_type27673)==(t58120.value.structure_type27673))) goto l8851; break; case STRUCTURE_TYPE27692: if (!((t58119.value.structure_type27692)==(t58120.value.structure_type27692))) goto l8851; break; case STRUCTURE_TYPE27694: if (!((t58119.value.structure_type27694)==(t58120.value.structure_type27694))) goto l8851; break; case STRUCTURE_TYPE27698: if (!((t58119.value.structure_type27698)==(t58120.value.structure_type27698))) goto l8851; break; case STRUCTURE_TYPE27745: if (!((t58119.value.structure_type27745)==(t58120.value.structure_type27745))) goto l8851; break; case STRUCTURE_TYPE27747: if (!((t58119.value.structure_type27747)==(t58120.value.structure_type27747))) goto l8851; break; case STRUCTURE_TYPE27750: if (!((t58119.value.structure_type27750)==(t58120.value.structure_type27750))) goto l8851; break; case STRUCTURE_TYPE27753: if (!((t58119.value.structure_type27753)==(t58120.value.structure_type27753))) goto l8851; break; case STRUCTURE_TYPE27756: if (!((t58119.value.structure_type27756)==(t58120.value.structure_type27756))) goto l8851; break; case STRUCTURE_TYPE27761: if (!((t58119.value.structure_type27761)==(t58120.value.structure_type27761))) goto l8851; break; case STRUCTURE_TYPE27769: if (!((t58119.value.structure_type27769)==(t58120.value.structure_type27769))) goto l8851; break; case STRUCTURE_TYPE27776: if (!((t58119.value.structure_type27776)==(t58120.value.structure_type27776))) goto l8851; break; case STRUCTURE_TYPE27779: if (!((t58119.value.structure_type27779)==(t58120.value.structure_type27779))) goto l8851; break; case STRUCTURE_TYPE27858: if (!((t58119.value.structure_type27858)==(t58120.value.structure_type27858))) goto l8851; break; case STRING_TYPE: if (!((t58119.value.string_type)==(t58120.value.string_type))) goto l8851; break; case HEADED_VECTOR_TYPE27896: if (!((t58119.value.headed_vector_type27896)==(t58120.value.headed_vector_type27896))) goto l8851; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58119.value.external_symbol_type)==(t58120.value.external_symbol_type))) goto l8851; break; case STRUCTURE_TYPE27908: if (!((t58119.value.structure_type27908)==(t58120.value.structure_type27908))) goto l8851; break; default:;} l8850: /* x116458 stalin.sc:13239:464163 */ return 0; l8851: /* x116467 stalin.sc:13240:464170 */ /* x116465 stalin.sc:13240:464173 */ /* x116461 stalin.sc:13240:464177 */ t58126 = a25018; /* x116464 stalin.sc:13240:464181 */ /* x116463 stalin.sc:13240:464187 */ t58128 = a25019; /* x116462 stalin.sc:13240:464182 */ a35540 = t58128; /* x273517 */ /* x273516 */ t58129 = a35540; /* x273515 */ if (!((t58129.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29689]"); structure_ref_error();} t58127 = t58129.value.structure_type24753->s1; /* x116460 stalin.sc:13240:464174 */ t58124 = f13061(t58126, t58127); /* x116466 stalin.sc:13240:464194 */ t58125 = 1; /* x269238 stalin.sc:13240:464171 */ return t58124+t58125;} /* LIST-SLOTS[13058] */ struct structure_type24753 *f13058(struct w49 a25015) {struct structure_type24753 *r13058; struct w49 t58130; struct w49 t58131; struct structure_type24753 *t58132; struct w49 t58133; struct w49 t58134; struct w49 t58135; struct w49 t58136; /* x116353 stalin.sc:13221:463564 */ /* x116339 stalin.sc:13221:463568 */ /* x116338 stalin.sc:13221:463580 */ t58130 = a25015; /* x116337 stalin.sc:13221:463569 */ if (f7677(t58130)==FALSE_TYPE) goto l8856; /* x116340 stalin.sc:13222:463588 */ return (struct structure_type24753 *)NULL_TYPE; l8856: /* x116352 stalin.sc:13223:463597 */ /* x116344 stalin.sc:13223:463603 */ /* x116343 stalin.sc:13223:463618 */ t58133 = a25015; /* x116342 stalin.sc:13223:463604 */ t58131 = f7923(t58133); /* x116351 stalin.sc:13223:463621 */ /* x116350 stalin.sc:13223:463633 */ /* x116349 stalin.sc:13223:463645 */ /* x116348 stalin.sc:13223:463660 */ t58136 = a25015; /* x116347 stalin.sc:13223:463646 */ t58135 = f7927(t58136); /* x116346 stalin.sc:13223:463634 */ t58134 = f8153(t58135); /* x116345 stalin.sc:13223:463622 */ t58132 = f13058(t58134); /* x269244 stalin.sc:13223:463598 */ r13058 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r13058==NULL) {backtrace("stalin.sc", 13223, 463597); out_of_memory_error();} r13058->s0 = t58131; /* MOVE: branching squeezed to general */ if (t58132>=((struct structure_type24753 *)VALUE_OFFSET)) {r13058->s1.tag = STRUCTURE_TYPE24753; r13058->s1.value.structure_type24753 = t58132;} else r13058->s1.tag = (unsigned)t58132; return r13058;} /* HUNOZ?[13055] */ unsigned f13055(struct w49 a25012) {struct w49 a36983; /* S */ char *t58137; char *t58138; struct w49 t58139; struct w49 t58140; struct w49 t58141; struct w49 t58142; struct w49 t58143; /* x116266 stalin.sc:13208:463130 */ /* x116265 stalin.sc:13208:463175 */ t58138 = "hunoz"; /* x116264 stalin.sc:13208:463140 */ /* x116263 stalin.sc:13208:463156 */ /* x116262 stalin.sc:13208:463171 */ t58142 = a25012; /* x116261 stalin.sc:13208:463157 */ a36983 = t58142; /* x280601 */ /* x280600 */ t58143 = a36983; /* x280599 */ if (!((t58143.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31900]"); structure_ref_error();} t58141 = t58143.value.structure_type27692->s7; /* x269248 stalin.sc:13208:463141 */ if (!((t58141.tag)==EXTERNAL_SYMBOL_TYPE)) {backtrace("stalin.sc", 13208, 463140); symbol_string_error();} t58137 = t58141.value.external_symbol_type; /* x116259 stalin.sc:13208:463131 */ t58139.tag = STRING_TYPE; t58139.value.string_type = t58137; t58140.tag = STRING_TYPE; t58140.value.string_type = t58138; return f27434(t58139, t58140);} /* [inside DETERMINE-WHICH-ENVIRONMENTS-HAVE-REGIONS! 13048] */ void f13048(struct w49 a25010) {struct w49 a41055; /* E */ struct w49 a42429; /* OBJ */ struct w49 t58144; struct w49 t58145; struct w49 t58146; struct w49 t58147; struct w49 t58148; struct w49 t58149; struct w49 t58150; struct w49 t58151; struct w49 t58152; unsigned t58153; struct w49 t58154; struct w49 t58155; unsigned t58156; struct w49 t58157; /* x116247 stalin.sc:13188:462421 */ /* x116208 stalin.sc:13188:462428 */ /* x116207 stalin.sc:13188:462448 */ /* x116206 stalin.sc:13188:462453 */ t58147 = a25010; /* x269253 stalin.sc:13188:462449 */ if (!((t58147.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 13188, 462448); structure_ref_error();} t58144 = t58147.value.structure_type24753->s1; /* x116204 stalin.sc:13188:462429 */ a41055 = t58144; /* x298332 stalin.sc:13171:462008 */ /* x298331 stalin.sc:13171:462022 */ t58145 = a41055; /* x298330 stalin.sc:13171:462009 */ a42429 = t58145; /* x303582 */ /* x303581 */ t58146 = a42429; /* x303580 */ if (!((t58146.tag)==STRUCTURE_TYPE27694)) goto l8858; /* x116234 */ /* x116233 */ /* x116232 */ /* x116231 stalin.sc:13189:462466 */ /* x116229 stalin.sc:13189:462496 */ /* x116228 stalin.sc:13189:462501 */ t58157 = a25010; /* x269250 stalin.sc:13189:462497 */ if (!((t58157.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 13189, 462496); structure_ref_error();} t58155 = t58157.value.structure_type24753->s1; /* x116230 stalin.sc:13189:462506 */ /* x116226 stalin.sc:13189:462467 */ t58156 = TRUE_TYPE; f8487(t58155, t58156); /* x116225 */ /* x116224 stalin.sc:13190:462517 */ /* x116213 stalin.sc:13190:462525 */ /* x116212 stalin.sc:13190:462539 */ /* x116211 stalin.sc:13190:462544 */ t58151 = a25010; /* x269252 stalin.sc:13190:462540 */ if (!((t58151.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 13190, 462539); structure_ref_error();} t58150 = t58151.value.structure_type24753->s0; /* x116209 stalin.sc:13190:462526 */ if (f14245(t58150)==FALSE_TYPE) goto l8862; /* x116215 */ /* x116214 */ return; l8862: /* x116223 */ /* x116222 */ /* x116221 stalin.sc:13191:462558 */ /* x116219 stalin.sc:13191:462598 */ /* x116218 stalin.sc:13191:462603 */ t58154 = a25010; /* x269251 stalin.sc:13191:462599 */ if (!((t58154.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 13191, 462598); structure_ref_error();} t58152 = t58154.value.structure_type24753->s1; /* x116220 stalin.sc:13191:462608 */ /* x116216 stalin.sc:13191:462559 */ t58153 = TRUE_TYPE; f8492(t58152, t58153); return; l8858: /* x116246 */ /* x116239 stalin.sc:13192:462621 */ /* x116238 stalin.sc:13192:462639 */ /* x116237 stalin.sc:13192:462644 */ t58149 = a25010; /* x269249 stalin.sc:13192:462640 */ if (!((t58149.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 13192, 462639); structure_ref_error();} t58148 = t58149.value.structure_type24753->s1; /* x116235 stalin.sc:13192:462622 */ if (f13035(t58148)==FALSE_TYPE) goto l8860; /* x116243 */ /* x116242 */ /* x116241 stalin.sc:13193:462657 */ /* x116240 stalin.sc:13193:462683 */ a1281 = TRUE_TYPE; return; l8860: /* x116245 */ /* x116244 */ return;} /* [inside DETERMINE-WHICH-ENVIRONMENTS-HAVE-REGIONS! 13047] */ void f13047(struct w49 a25009) {struct w49 a38486; /* S */ struct w12224 t58158; struct w36108 t58159; struct w49 t58160; struct structure_type24753 *t58161; struct w49 t58162; struct w49 t58163; /* x116252 stalin.sc:13187:462390 */ /* x116251 stalin.sc:13194:462696 */ /* x116250 stalin.sc:13194:462730 */ t58162 = a25009; /* x116249 stalin.sc:13194:462697 */ a38486 = t58162; /* x286613 */ /* x286612 */ t58163 = a38486; /* x286611 */ if (!((t58163.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-ALLOCATION-ALIST[5687] 33403]"); structure_ref_error();} t58158 = t58163.value.structure_type27698->s25; /* x116248 stalin.sc:13187:462400 */ /* x116203 stalin.sc:13187:462391 */ t58159.tag = NATIVE_PROCEDURE_TYPE15312; t58160 = *((struct w49 *)(&t58158)); t58161 = (struct structure_type24753 *)NULL_TYPE; f27755(t58159, t58160, t58161); return;} /* [inside DETERMINE-WHICH-ENVIRONMENTS-HAVE-REGIONS! 13045] */ void f13045(struct w49 a25007) {struct w49 t58164; unsigned t58165; struct w49 t58166; unsigned t58167; /* x116196 */ /* x116195 stalin.sc:13181:462233 */ /* x116193 stalin.sc:13181:462263 */ t58166 = a25007; /* x116194 stalin.sc:13181:462265 */ /* x116192 stalin.sc:13181:462234 */ t58167 = FALSE_TYPE; f8487(t58166, t58167); /* x116191 */ /* x116190 stalin.sc:13182:462274 */ /* x116188 stalin.sc:13182:462314 */ t58164 = a25007; /* x116189 stalin.sc:13182:462316 */ /* x116187 stalin.sc:13182:462275 */ t58165 = FALSE_TYPE; f8492(t58164, t58165); return;} /* [inside DETERMINE-WHICH-ENVIRONMENTS-HAVE-REGIONS! 13038] */ void f13038(struct w49 a25005) {struct w3467 a41061; /* E */ struct w3467 a42435; /* OBJ */ struct w3467 t58168; struct w3467 t58169; struct w3467 t58170; struct w49 t58171; struct w3467 t58172; struct w49 t58173; struct w49 t58174; struct w49 t58175; struct w3467 t58176; struct w49 t58177; unsigned t58178; struct w49 t58179; struct w3467 t58180; struct w49 t58181; unsigned t58182; struct w49 t58183; /* x116181 stalin.sc:13198:462774 */ /* x116144 stalin.sc:13198:462781 */ /* x116143 stalin.sc:13198:462801 */ /* x116142 stalin.sc:13198:462813 */ t58171 = a25005; /* x116141 stalin.sc:13198:462802 */ t58168 = f8619(t58171); /* x116140 stalin.sc:13198:462782 */ a41061 = t58168; /* x298356 stalin.sc:13171:462008 */ /* x298355 stalin.sc:13171:462022 */ t58169 = a41061; /* x298354 stalin.sc:13171:462009 */ a42435 = t58169; /* x303610 */ /* x303609 */ t58170 = a42435; /* x303608 */ if (!((t58170.tag)==STRUCTURE_TYPE27694)) goto l8864; /* x116168 */ /* x116167 */ /* x116166 */ /* x116165 stalin.sc:13199:462820 */ /* x116163 stalin.sc:13199:462850 */ /* x116162 stalin.sc:13199:462862 */ t58183 = a25005; /* x116161 stalin.sc:13199:462851 */ t58180 = f8619(t58183); /* x116164 stalin.sc:13199:462865 */ /* x116160 stalin.sc:13199:462821 */ t58181 = *((struct w49 *)(&t58180)); t58182 = TRUE_TYPE; f8487(t58181, t58182); /* x116159 */ /* x116158 stalin.sc:13200:462872 */ /* x116147 stalin.sc:13200:462880 */ /* x116146 stalin.sc:13200:462901 */ t58175 = a25005; /* x116145 stalin.sc:13200:462881 */ if (f14226(t58175)==FALSE_TYPE) goto l8868; /* x116149 */ /* x116148 */ return; l8868: /* x116157 */ /* x116156 */ /* x116155 stalin.sc:13201:462908 */ /* x116153 stalin.sc:13201:462948 */ /* x116152 stalin.sc:13201:462960 */ t58179 = a25005; /* x116151 stalin.sc:13201:462949 */ t58176 = f8619(t58179); /* x116154 stalin.sc:13201:462963 */ /* x116150 stalin.sc:13201:462909 */ t58177 = *((struct w49 *)(&t58176)); t58178 = TRUE_TYPE; f8492(t58177, t58178); return; l8864: /* x116180 */ /* x116173 stalin.sc:13202:462972 */ /* x116172 stalin.sc:13202:462990 */ /* x116171 stalin.sc:13202:463002 */ t58174 = a25005; /* x116170 stalin.sc:13202:462991 */ t58172 = f8619(t58174); /* x116169 stalin.sc:13202:462973 */ t58173 = *((struct w49 *)(&t58172)); if (f13035(t58173)==FALSE_TYPE) goto l8866; /* x116177 */ /* x116176 */ /* x116175 stalin.sc:13203:463009 */ /* x116174 stalin.sc:13203:463035 */ a1281 = TRUE_TYPE; return; l8866: /* x116179 */ /* x116178 */ return;} /* HEAP-ALLOCATION?[13035] */ unsigned f13035(struct w49 a25001) {struct w49 t58184; char *t58185; /* x116134 stalin.sc:13175:462103 */ /* x116132 stalin.sc:13175:462108 */ t58184 = a25001; /* x116133 stalin.sc:13175:462110 */ t58185 = q187; /* x269254 stalin.sc:13175:462104 */ if (((t58184.tag)==EXTERNAL_SYMBOL_TYPE)&&((t58184.value.external_symbol_type)==t58185)) return TRUE_TYPE; else return FALSE_TYPE;} /* STACK-ALLOCATION?[13034] */ unsigned f13034(struct w49 a25000) {struct w49 t58186; char *t58187; /* x116128 stalin.sc:13173:462057 */ /* x116126 stalin.sc:13173:462062 */ t58186 = a25000; /* x116127 stalin.sc:13173:462064 */ t58187 = q186; /* x269255 stalin.sc:13173:462058 */ if (((t58186.tag)==EXTERNAL_SYMBOL_TYPE)&&((t58186.value.external_symbol_type)==t58187)) return TRUE_TYPE; else return FALSE_TYPE;} /* [inside DETERMINE-WHICH-TYPES-ARE-NEVER-ALLOCATED-ON-THE-HEAP! 13031] */ void f13031(struct w49 a24998) {struct w49 a21373; /* U */ unsigned a21374; /* P? */ int a34860; /* N */ struct w49 a37474; /* S */ struct w49 a37475; /* S */ struct w49 t58188; unsigned t58189; struct w49 t58190; int t58191; int t58192; int t58193; struct structure_type24753 *t58194; struct w49 t58195; struct w49 t58196; struct w49 t58197; int t58198; int t58199; int t58200; int t58201; struct structure_type24753 *t58202; struct w49 t58203; struct w49 t58204; struct w49 t58205; unsigned t58206; struct w49 t58207; /* x116109 stalin.sc:13161:461646 */ /* x116105 stalin.sc:13162:461706 */ t58188 = a24998; /* x116108 stalin.sc:13162:461708 */ /* x116107 stalin.sc:13162:461738 */ t58207 = a24998; /* x116106 stalin.sc:13162:461709 */ t58189 = f13026(t58207); /* x116104 stalin.sc:13161:461647 */ a21373 = t58188; a21374 = t58189; /* x63355 */ /* x63354 stalin.sc:1910:62819 */ /* x63347 stalin.sc:1910:62827 */ /* x63346 stalin.sc:1910:62837 */ t58206 = a21374; /* x270531 stalin.sc:1910:62828 */ /* x63349 */ /* x63348 */ /* x63344 */ while (region7501!=((struct region7501 *)(&initial_region7501))) {struct region7501 *region; region = region7501; region7501 = region7501->region; GC_free(region);} region_size7501 = REGION_SIZE7501; fp7501 = &((region7501->data)[0]); ALIGN(fp7501); /* x63343 stalin.sc:1911:62853 */ /* x63326 stalin.sc:1912:62889 */ t58190 = a21373; /* x63342 stalin.sc:1913:62893 */ /* x63327 stalin.sc:1913:62897 */ if (a21374==FALSE_TYPE) goto l8870; /* x63333 stalin.sc:1914:62906 */ /* x63332 stalin.sc:1914:62946 */ t58201 = 128; /* x63331 stalin.sc:1914:62914 */ /* x63330 stalin.sc:1914:62943 */ t58204 = a21373; /* x63329 stalin.sc:1914:62915 */ a37474 = t58204; /* x282565 */ /* x282564 */ t58205 = a37474; /* x282563 */ if (!((t58205.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-BOOLEANS[6299] 32391]"); structure_ref_error();} t58200 = t58205.value.structure_type27761->s7; /* x63328 stalin.sc:1914:62907 */ if ((fp7501+sizeof(struct structure_type24753))>(&((region7501->data)[region_size7501]))) {struct region7501 *region; unsigned region_size = REGION_SIZE7501; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7501 *)GC_malloc_uncollectable(sizeof(struct region7501)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1914, 62906); out_of_memory_error();} region->region = region7501; region_size7501 = region_size; region7501 = region; fp7501 = &((region->data)[0]); ALIGN(fp7501);} t58203.tag = STRUCTURE_TYPE24753; t58203.value.structure_type24753 = (struct structure_type24753 *)fp7501; fp7501 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t58203.value.structure_type24753->s0.tag = FIXNUM_TYPE; t58203.value.structure_type24753->s0.value.fixnum_type = t58201; t58203.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7501+sizeof(struct structure_type24753))>(&((region7501->data)[region_size7501]))) {struct region7501 *region; unsigned region_size = REGION_SIZE7501; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7501 *)GC_malloc_uncollectable(sizeof(struct region7501)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1914, 62906); out_of_memory_error();} region->region = region7501; region_size7501 = region_size; region7501 = region; fp7501 = &((region->data)[0]); ALIGN(fp7501);} t58202 = (struct structure_type24753 *)fp7501; fp7501 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t58202->s0.tag = FIXNUM_TYPE; t58202->s0.value.fixnum_type = t58200; t58202->s1 = t58203; t58191 = f27310(t58202); goto l8871; l8870: /* x63341 stalin.sc:1915:62957 */ /* x63340 stalin.sc:1915:62998 */ /* x63339 stalin.sc:1915:63007 */ t58198 = 128; /* x63338 stalin.sc:1915:62999 */ a34860 = t58198; /* x271725 */ /* x271724 */ t58199 = a34860; /* x271723 */ t58193 = ~t58199; /* x63337 stalin.sc:1915:62966 */ /* x63336 stalin.sc:1915:62995 */ t58196 = a21373; /* x63335 stalin.sc:1915:62967 */ a37475 = t58196; /* x282569 */ /* x282568 */ t58197 = a37475; /* x282567 */ if (!((t58197.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-BOOLEANS[6299] 32392]"); structure_ref_error();} t58192 = t58197.value.structure_type27761->s7; /* x63334 stalin.sc:1915:62958 */ if ((fp7501+sizeof(struct structure_type24753))>(&((region7501->data)[region_size7501]))) {struct region7501 *region; unsigned region_size = REGION_SIZE7501; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7501 *)GC_malloc_uncollectable(sizeof(struct region7501)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1915, 62957); out_of_memory_error();} region->region = region7501; region_size7501 = region_size; region7501 = region; fp7501 = &((region->data)[0]); ALIGN(fp7501);} t58195.tag = STRUCTURE_TYPE24753; t58195.value.structure_type24753 = (struct structure_type24753 *)fp7501; fp7501 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t58195.value.structure_type24753->s0.tag = FIXNUM_TYPE; t58195.value.structure_type24753->s0.value.fixnum_type = t58193; t58195.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7501+sizeof(struct structure_type24753))>(&((region7501->data)[region_size7501]))) {struct region7501 *region; unsigned region_size = REGION_SIZE7501; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7501 *)GC_malloc_uncollectable(sizeof(struct region7501)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1915, 62957); out_of_memory_error();} region->region = region7501; region_size7501 = region_size; region7501 = region; fp7501 = &((region->data)[0]); ALIGN(fp7501);} t58194 = (struct structure_type24753 *)fp7501; fp7501 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t58194->s0.tag = FIXNUM_TYPE; t58194->s0.value.fixnum_type = t58192; t58194->s1 = t58195; t58191 = f27305(t58194); l8871: /* x63325 stalin.sc:1911:62854 */ f6300(t58190, t58191); return;} /* [inside DETERMINE-WHICH-TYPES-ARE-NEVER-ALLOCATED-ON-THE-HEAP! 13030] */ void f13030(struct w49 a24997) {struct w49 a21333; /* U */ unsigned a21334; /* P? */ int a34859; /* N */ struct w49 a37593; /* S */ struct w49 a37594; /* S */ struct w49 t58208; unsigned t58209; struct w49 t58210; int t58211; int t58212; int t58213; struct structure_type24753 *t58214; struct w49 t58215; struct w49 t58216; struct w49 t58217; int t58218; int t58219; int t58220; int t58221; struct structure_type24753 *t58222; struct w49 t58223; struct w49 t58224; struct w49 t58225; unsigned t58226; struct w49 t58227; /* x116099 stalin.sc:13157:461502 */ /* x116095 stalin.sc:13158:461558 */ t58208 = a24997; /* x116098 stalin.sc:13158:461560 */ /* x116097 stalin.sc:13158:461590 */ t58227 = a24997; /* x116096 stalin.sc:13158:461561 */ t58209 = f13026(t58227); /* x116094 stalin.sc:13157:461503 */ a21333 = t58208; a21334 = t58209; /* x62905 */ /* x62904 stalin.sc:1800:59434 */ /* x62897 stalin.sc:1800:59442 */ /* x62896 stalin.sc:1800:59452 */ t58226 = a21334; /* x270557 stalin.sc:1800:59443 */ /* x62899 */ /* x62898 */ /* x62894 */ while (region7451!=((struct region7451 *)(&initial_region7451))) {struct region7451 *region; region = region7451; region7451 = region7451->region; GC_free(region);} region_size7451 = REGION_SIZE7451; fp7451 = &((region7451->data)[0]); ALIGN(fp7451); /* x62893 stalin.sc:1801:59468 */ /* x62876 stalin.sc:1802:59500 */ t58210 = a21333; /* x62892 stalin.sc:1803:59504 */ /* x62877 stalin.sc:1803:59508 */ if (a21334==FALSE_TYPE) goto l8874; /* x62883 stalin.sc:1804:59517 */ /* x62882 stalin.sc:1804:59553 */ t58221 = 64; /* x62881 stalin.sc:1804:59525 */ /* x62880 stalin.sc:1804:59550 */ t58224 = a21333; /* x62879 stalin.sc:1804:59526 */ a37593 = t58224; /* x283041 */ /* x283040 */ t58225 = a37593; /* x283039 */ if (!((t58225.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32510]"); structure_ref_error();} t58220 = t58225.value.structure_type27769->s8; /* x62878 stalin.sc:1804:59518 */ if ((fp7451+sizeof(struct structure_type24753))>(&((region7451->data)[region_size7451]))) {struct region7451 *region; unsigned region_size = REGION_SIZE7451; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7451 *)GC_malloc_uncollectable(sizeof(struct region7451)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1804, 59517); out_of_memory_error();} region->region = region7451; region_size7451 = region_size; region7451 = region; fp7451 = &((region->data)[0]); ALIGN(fp7451);} t58223.tag = STRUCTURE_TYPE24753; t58223.value.structure_type24753 = (struct structure_type24753 *)fp7451; fp7451 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t58223.value.structure_type24753->s0.tag = FIXNUM_TYPE; t58223.value.structure_type24753->s0.value.fixnum_type = t58221; t58223.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7451+sizeof(struct structure_type24753))>(&((region7451->data)[region_size7451]))) {struct region7451 *region; unsigned region_size = REGION_SIZE7451; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7451 *)GC_malloc_uncollectable(sizeof(struct region7451)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1804, 59517); out_of_memory_error();} region->region = region7451; region_size7451 = region_size; region7451 = region; fp7451 = &((region->data)[0]); ALIGN(fp7451);} t58222 = (struct structure_type24753 *)fp7451; fp7451 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t58222->s0.tag = FIXNUM_TYPE; t58222->s0.value.fixnum_type = t58220; t58222->s1 = t58223; t58211 = f27310(t58222); goto l8875; l8874: /* x62891 stalin.sc:1805:59563 */ /* x62890 stalin.sc:1805:59600 */ /* x62889 stalin.sc:1805:59609 */ t58218 = 64; /* x62888 stalin.sc:1805:59601 */ a34859 = t58218; /* x271721 */ /* x271720 */ t58219 = a34859; /* x271719 */ t58213 = ~t58219; /* x62887 stalin.sc:1805:59572 */ /* x62886 stalin.sc:1805:59597 */ t58216 = a21333; /* x62885 stalin.sc:1805:59573 */ a37594 = t58216; /* x283045 */ /* x283044 */ t58217 = a37594; /* x283043 */ if (!((t58217.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32511]"); structure_ref_error();} t58212 = t58217.value.structure_type27769->s8; /* x62884 stalin.sc:1805:59564 */ if ((fp7451+sizeof(struct structure_type24753))>(&((region7451->data)[region_size7451]))) {struct region7451 *region; unsigned region_size = REGION_SIZE7451; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7451 *)GC_malloc_uncollectable(sizeof(struct region7451)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1805, 59563); out_of_memory_error();} region->region = region7451; region_size7451 = region_size; region7451 = region; fp7451 = &((region->data)[0]); ALIGN(fp7451);} t58215.tag = STRUCTURE_TYPE24753; t58215.value.structure_type24753 = (struct structure_type24753 *)fp7451; fp7451 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t58215.value.structure_type24753->s0.tag = FIXNUM_TYPE; t58215.value.structure_type24753->s0.value.fixnum_type = t58213; t58215.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7451+sizeof(struct structure_type24753))>(&((region7451->data)[region_size7451]))) {struct region7451 *region; unsigned region_size = REGION_SIZE7451; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7451 *)GC_malloc_uncollectable(sizeof(struct region7451)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1805, 59563); out_of_memory_error();} region->region = region7451; region_size7451 = region_size; region7451 = region; fp7451 = &((region->data)[0]); ALIGN(fp7451);} t58214 = (struct structure_type24753 *)fp7451; fp7451 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t58214->s0.tag = FIXNUM_TYPE; t58214->s0.value.fixnum_type = t58212; t58214->s1 = t58215; t58211 = f27305(t58214); l8875: /* x62875 stalin.sc:1801:59469 */ f6234(t58210, t58211); return;} /* [inside DETERMINE-WHICH-TYPES-ARE-NEVER-ALLOCATED-ON-THE-HEAP! 13029] */ void f13029(struct w49 a24996) {struct w49 a21289; /* U */ unsigned a21290; /* P? */ int a34858; /* N */ struct w49 a37725; /* S */ struct w49 a37726; /* S */ struct w49 t58228; unsigned t58229; struct w49 t58230; int t58231; int t58232; int t58233; struct structure_type24753 *t58234; struct w49 t58235; struct w49 t58236; struct w49 t58237; int t58238; int t58239; int t58240; int t58241; struct structure_type24753 *t58242; struct w49 t58243; struct w49 t58244; struct w49 t58245; unsigned t58246; struct w49 t58247; /* x116089 stalin.sc:13153:461364 */ /* x116085 stalin.sc:13154:461417 */ t58228 = a24996; /* x116088 stalin.sc:13154:461419 */ /* x116087 stalin.sc:13154:461449 */ t58247 = a24996; /* x116086 stalin.sc:13154:461420 */ t58229 = f13026(t58247); /* x116084 stalin.sc:13153:461365 */ a21289 = t58228; a21290 = t58229; /* x62410 */ /* x62409 stalin.sc:1679:55871 */ /* x62402 stalin.sc:1679:55879 */ /* x62401 stalin.sc:1679:55889 */ t58246 = a21290; /* x270582 stalin.sc:1679:55880 */ /* x62404 */ /* x62403 */ /* x62399 */ while (region7396!=((struct region7396 *)(&initial_region7396))) {struct region7396 *region; region = region7396; region7396 = region7396->region; GC_free(region);} region_size7396 = REGION_SIZE7396; fp7396 = &((region7396->data)[0]); ALIGN(fp7396); /* x62398 stalin.sc:1680:55905 */ /* x62381 stalin.sc:1681:55934 */ t58230 = a21289; /* x62397 stalin.sc:1682:55938 */ /* x62382 stalin.sc:1682:55942 */ if (a21290==FALSE_TYPE) goto l8878; /* x62388 stalin.sc:1683:55951 */ /* x62387 stalin.sc:1683:55984 */ t58241 = 64; /* x62386 stalin.sc:1683:55959 */ /* x62385 stalin.sc:1683:55981 */ t58244 = a21289; /* x62384 stalin.sc:1683:55960 */ a37725 = t58244; /* x283569 */ /* x283568 */ t58245 = a37725; /* x283567 */ if (!((t58245.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-BOOLEANS[6159] 32642]"); structure_ref_error();} t58240 = t58245.value.structure_type27673->s6; /* x62383 stalin.sc:1683:55952 */ if ((fp7396+sizeof(struct structure_type24753))>(&((region7396->data)[region_size7396]))) {struct region7396 *region; unsigned region_size = REGION_SIZE7396; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7396 *)GC_malloc_uncollectable(sizeof(struct region7396)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1683, 55951); out_of_memory_error();} region->region = region7396; region_size7396 = region_size; region7396 = region; fp7396 = &((region->data)[0]); ALIGN(fp7396);} t58243.tag = STRUCTURE_TYPE24753; t58243.value.structure_type24753 = (struct structure_type24753 *)fp7396; fp7396 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t58243.value.structure_type24753->s0.tag = FIXNUM_TYPE; t58243.value.structure_type24753->s0.value.fixnum_type = t58241; t58243.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7396+sizeof(struct structure_type24753))>(&((region7396->data)[region_size7396]))) {struct region7396 *region; unsigned region_size = REGION_SIZE7396; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7396 *)GC_malloc_uncollectable(sizeof(struct region7396)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1683, 55951); out_of_memory_error();} region->region = region7396; region_size7396 = region_size; region7396 = region; fp7396 = &((region->data)[0]); ALIGN(fp7396);} t58242 = (struct structure_type24753 *)fp7396; fp7396 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t58242->s0.tag = FIXNUM_TYPE; t58242->s0.value.fixnum_type = t58240; t58242->s1 = t58243; t58231 = f27310(t58242); goto l8879; l8878: /* x62396 stalin.sc:1684:55994 */ /* x62395 stalin.sc:1684:56028 */ /* x62394 stalin.sc:1684:56037 */ t58238 = 64; /* x62393 stalin.sc:1684:56029 */ a34858 = t58238; /* x271717 */ /* x271716 */ t58239 = a34858; /* x271715 */ t58233 = ~t58239; /* x62392 stalin.sc:1684:56003 */ /* x62391 stalin.sc:1684:56025 */ t58236 = a21289; /* x62390 stalin.sc:1684:56004 */ a37726 = t58236; /* x283573 */ /* x283572 */ t58237 = a37726; /* x283571 */ if (!((t58237.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-BOOLEANS[6159] 32643]"); structure_ref_error();} t58232 = t58237.value.structure_type27673->s6; /* x62389 stalin.sc:1684:55995 */ if ((fp7396+sizeof(struct structure_type24753))>(&((region7396->data)[region_size7396]))) {struct region7396 *region; unsigned region_size = REGION_SIZE7396; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7396 *)GC_malloc_uncollectable(sizeof(struct region7396)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1684, 55994); out_of_memory_error();} region->region = region7396; region_size7396 = region_size; region7396 = region; fp7396 = &((region->data)[0]); ALIGN(fp7396);} t58235.tag = STRUCTURE_TYPE24753; t58235.value.structure_type24753 = (struct structure_type24753 *)fp7396; fp7396 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t58235.value.structure_type24753->s0.tag = FIXNUM_TYPE; t58235.value.structure_type24753->s0.value.fixnum_type = t58233; t58235.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7396+sizeof(struct structure_type24753))>(&((region7396->data)[region_size7396]))) {struct region7396 *region; unsigned region_size = REGION_SIZE7396; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7396 *)GC_malloc_uncollectable(sizeof(struct region7396)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1684, 55994); out_of_memory_error();} region->region = region7396; region_size7396 = region_size; region7396 = region; fp7396 = &((region->data)[0]); ALIGN(fp7396);} t58234 = (struct structure_type24753 *)fp7396; fp7396 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t58234->s0.tag = FIXNUM_TYPE; t58234->s0.value.fixnum_type = t58232; t58234->s1 = t58235; t58231 = f27305(t58234); l8879: /* x62380 stalin.sc:1680:55906 */ f6160(t58230, t58231); return;} /* NEVER-ALLOCATED-ON-THE-HEAP?[13026] */ unsigned f13026(struct w49 a24993) {struct p13026 *t58248; struct w21193 t58249; struct w228345 t58250; struct w49 t58251; struct structure_type24753 *t58252; struct p13026 *e13026; e13026 = (struct p13026 *)alloca(sizeof(struct p13026)); if (e13026==NULL) {backtrace_internal("[inside DETERMINE-WHICH-TYPES-ARE-NEVER-ALLOCATED-ON-THE-HEAP! 13023]"); out_of_memory_error();} e13026->a24993 = a24993; /* x116080 stalin.sc:13148:461181 */ /* x116080 stalin.sc:13148:461181 */ /* x116079 stalin.sc:13148:461186 */ /* x116078 stalin.sc:13151:461325 */ t58249 = a2030; /* x116077 stalin.sc:13148:461192 */ t58248 = e13026; /* x116060 stalin.sc:13148:461187 */ t58250.tag = NATIVE_PROCEDURE_TYPE15379; t58250.value.native_procedure_type15379 = t58248; t58251 = *((struct w49 *)(&t58249)); t58252 = (struct structure_type24753 *)NULL_TYPE; if (!((f1042(t58250, t58251, t58252).tag)==FALSE_TYPE)) goto l8882; return TRUE_TYPE; l8882: return FALSE_TYPE;} /* [inside DETERMINE-WHICH-TYPES-ARE-NEVER-ALLOCATED-ON-THE-HEAP! 13025] */ void f13025(struct w49 a24992) {struct w49 a21413; /* U */ unsigned a21414; /* P? */ int a34857; /* N */ struct w49 a37371; /* S */ struct w49 a37372; /* S */ struct w49 t58253; unsigned t58254; struct w49 t58255; int t58256; int t58257; int t58258; struct structure_type24753 *t58259; struct w49 t58260; struct w49 t58261; struct w49 t58262; int t58263; int t58264; int t58265; int t58266; struct structure_type24753 *t58267; struct w49 t58268; struct w49 t58269; struct w49 t58270; unsigned t58271; struct w49 t58272; /* x116054 stalin.sc:13165:461798 */ /* x116050 stalin.sc:13166:461861 */ t58253 = a24992; /* x116053 stalin.sc:13166:461863 */ /* x116052 stalin.sc:13166:461893 */ t58272 = a24992; /* x116051 stalin.sc:13166:461864 */ t58254 = f13026(t58272); /* x116049 stalin.sc:13165:461799 */ a21413 = t58253; a21414 = t58254; /* x63805 */ /* x63804 stalin.sc:2020:66443 */ /* x63797 stalin.sc:2020:66451 */ /* x63796 stalin.sc:2020:66461 */ t58271 = a21414; /* x270507 stalin.sc:2020:66452 */ /* x63799 */ /* x63798 */ /* x63794 */ while (region7551!=((struct region7551 *)(&initial_region7551))) {struct region7551 *region; region = region7551; region7551 = region7551->region; GC_free(region);} region_size7551 = REGION_SIZE7551; fp7551 = &((region7551->data)[0]); ALIGN(fp7551); /* x63793 stalin.sc:2021:66477 */ /* x63776 stalin.sc:2022:66516 */ t58255 = a21413; /* x63792 stalin.sc:2023:66520 */ /* x63777 stalin.sc:2023:66524 */ if (a21414==FALSE_TYPE) goto l8885; /* x63783 stalin.sc:2024:66533 */ /* x63782 stalin.sc:2024:66576 */ t58266 = 128; /* x63781 stalin.sc:2024:66541 */ /* x63780 stalin.sc:2024:66573 */ t58269 = a21413; /* x63779 stalin.sc:2024:66542 */ a37371 = t58269; /* x282153 */ /* x282152 */ t58270 = a37371; /* x282151 */ if (!((t58270.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-BOOLEANS[6365] 32288]"); structure_ref_error();} t58265 = t58270.value.structure_type27669->s7; /* x63778 stalin.sc:2024:66534 */ if ((fp7551+sizeof(struct structure_type24753))>(&((region7551->data)[region_size7551]))) {struct region7551 *region; unsigned region_size = REGION_SIZE7551; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7551 *)GC_malloc_uncollectable(sizeof(struct region7551)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 2024, 66533); out_of_memory_error();} region->region = region7551; region_size7551 = region_size; region7551 = region; fp7551 = &((region->data)[0]); ALIGN(fp7551);} t58268.tag = STRUCTURE_TYPE24753; t58268.value.structure_type24753 = (struct structure_type24753 *)fp7551; fp7551 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t58268.value.structure_type24753->s0.tag = FIXNUM_TYPE; t58268.value.structure_type24753->s0.value.fixnum_type = t58266; t58268.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7551+sizeof(struct structure_type24753))>(&((region7551->data)[region_size7551]))) {struct region7551 *region; unsigned region_size = REGION_SIZE7551; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7551 *)GC_malloc_uncollectable(sizeof(struct region7551)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 2024, 66533); out_of_memory_error();} region->region = region7551; region_size7551 = region_size; region7551 = region; fp7551 = &((region->data)[0]); ALIGN(fp7551);} t58267 = (struct structure_type24753 *)fp7551; fp7551 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t58267->s0.tag = FIXNUM_TYPE; t58267->s0.value.fixnum_type = t58265; t58267->s1 = t58268; t58256 = f27310(t58267); goto l8886; l8885: /* x63791 stalin.sc:2025:66587 */ /* x63790 stalin.sc:2025:66631 */ /* x63789 stalin.sc:2025:66640 */ t58263 = 128; /* x63788 stalin.sc:2025:66632 */ a34857 = t58263; /* x271713 */ /* x271712 */ t58264 = a34857; /* x271711 */ t58258 = ~t58264; /* x63787 stalin.sc:2025:66596 */ /* x63786 stalin.sc:2025:66628 */ t58261 = a21413; /* x63785 stalin.sc:2025:66597 */ a37372 = t58261; /* x282157 */ /* x282156 */ t58262 = a37372; /* x282155 */ if (!((t58262.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-BOOLEANS[6365] 32289]"); structure_ref_error();} t58257 = t58262.value.structure_type27669->s7; /* x63784 stalin.sc:2025:66588 */ if ((fp7551+sizeof(struct structure_type24753))>(&((region7551->data)[region_size7551]))) {struct region7551 *region; unsigned region_size = REGION_SIZE7551; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7551 *)GC_malloc_uncollectable(sizeof(struct region7551)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 2025, 66587); out_of_memory_error();} region->region = region7551; region_size7551 = region_size; region7551 = region; fp7551 = &((region->data)[0]); ALIGN(fp7551);} t58260.tag = STRUCTURE_TYPE24753; t58260.value.structure_type24753 = (struct structure_type24753 *)fp7551; fp7551 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t58260.value.structure_type24753->s0.tag = FIXNUM_TYPE; t58260.value.structure_type24753->s0.value.fixnum_type = t58258; t58260.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7551+sizeof(struct structure_type24753))>(&((region7551->data)[region_size7551]))) {struct region7551 *region; unsigned region_size = REGION_SIZE7551; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7551 *)GC_malloc_uncollectable(sizeof(struct region7551)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 2025, 66587); out_of_memory_error();} region->region = region7551; region_size7551 = region_size; region7551 = region; fp7551 = &((region->data)[0]); ALIGN(fp7551);} t58259 = (struct structure_type24753 *)fp7551; fp7551 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t58259->s0.tag = FIXNUM_TYPE; t58259->s0.value.fixnum_type = t58257; t58259->s1 = t58260; t58256 = f27305(t58259); l8886: /* x63775 stalin.sc:2021:66478 */ f6366(t58255, t58256); return;} /* [inside DETERMINE-INDIRECT-STRUCTURE-TYPES! 13018] */ void f13018(struct w49 a24985) {struct w49 a37659; /* S */ struct p13018 *t58273; struct w11873 t58274; struct w228345 t58275; struct w49 t58276; struct structure_type24753 *t58277; struct w49 t58278; struct w49 t58279; struct p13018 *t58280; struct w49 t58281; unsigned t58282; struct p13018 *e13018; struct p13018 *p13020; e13018 = (struct p13018 *)alloca(sizeof(struct p13018)); if (e13018==NULL) {backtrace("stalin.sc", 13139, 460863); out_of_memory_error();} e13018->a24985 = a24985; /* x116042 stalin.sc:13140:460878 */ /* x116033 stalin.sc:13140:460884 */ /* x116032 stalin.sc:13140:460920 */ /* x116031 stalin.sc:13140:460942 */ t58278 = e13018->a24985; /* x116030 stalin.sc:13140:460921 */ a37659 = t58278; /* x283305 */ /* x283304 */ t58279 = a37659; /* x283303 */ if (!((t58279.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32576]"); structure_ref_error();} t58274 = t58279.value.structure_type27769->s1; /* x116029 stalin.sc:13140:460890 */ t58273 = e13018; /* x116024 stalin.sc:13140:460885 */ t58275.tag = NATIVE_PROCEDURE_TYPE15394; t58275.value.native_procedure_type15394 = t58273; t58276 = *((struct w49 *)(&t58274)); t58277 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t58275, t58276, t58277).tag)==FALSE_TYPE) goto l8889; /* x116039 */ /* x116038 */ t58280 = e13018; p13020 = t58280; /* x116037 stalin.sc:13141:460950 */ /* x116035 stalin.sc:13141:460982 */ t58281 = p13020->a24985; /* x116036 stalin.sc:13141:460984 */ /* x116034 stalin.sc:13141:460951 */ t58282 = FALSE_TYPE; f7430(t58281, t58282); return; l8889: /* x116041 stalin.sc:13140:460878 */ /* x116040 stalin.sc:13140:460878 */ return;} /* [inside APPLY-CLOSED-WORLD-ASSUMPTION! 13012] */ void f13012(struct w49 a24984) {struct w49 a36538; /* S */ struct w49 t58283; struct structure_type24753 *t58284; struct w49 t58285; struct structure_type24753 *t58286; struct w49 t58287; struct w36270 t58288; struct w49 t58289; struct structure_type24753 *t58290; struct w49 t58291; struct w49 t58292; /* x115998 stalin.sc:13121:460076 */ /* x115989 stalin.sc:13122:460115 */ t58283 = a24984; /* x115997 stalin.sc:13123:460123 */ /* x115996 stalin.sc:13124:460158 */ /* x115995 stalin.sc:13124:460180 */ /* x115994 stalin.sc:13124:460208 */ t58291 = a24984; /* x115993 stalin.sc:13124:460181 */ a36538 = t58291; /* x278821 */ /* x278820 */ t58292 = a36538; /* x278819 */ if (!((t58292.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-ESCAPING-TYPES[6823] 31455]"); structure_ref_error();} t58287 = t58292.value.structure_type27694->s24; /* x115992 stalin.sc:13124:460163 */ /* x115991 stalin.sc:13124:460159 */ t58288.tag = NATIVE_PROCEDURE_TYPE7039; t58289 = t58287; t58290 = (struct structure_type24753 *)NULL_TYPE; t58286 = f27731(t58288, t58289, t58290); /* x115990 stalin.sc:13123:460124 */ t58284 = f12827(t58286); /* x115988 stalin.sc:13121:460077 */ /* MOVE: branching squeezed to general */ if (t58284>=((struct structure_type24753 *)VALUE_OFFSET)) {t58285.tag = STRUCTURE_TYPE24753; t58285.value.structure_type24753 = t58284;} else t58285.tag = (unsigned)t58284; f6824(t58283, t58285); return;} /* [inside APPLY-CLOSED-WORLD-ASSUMPTION! 13011] */ void f13011(struct w49 a24983) {struct w49 a36890; /* S */ struct w49 t58293; struct w49 t58294; struct w49 t58295; struct w49 t58296; struct w49 t58297; /* x115983 stalin.sc:13118:459967 */ /* x115977 stalin.sc:13118:459991 */ t58293 = a24983; /* x115982 stalin.sc:13118:459993 */ /* x115981 stalin.sc:13118:460015 */ /* x115980 stalin.sc:13118:460034 */ t58296 = a24983; /* x115979 stalin.sc:13118:460016 */ a36890 = t58296; /* x280229 */ /* x280228 */ t58297 = a36890; /* x280227 */ if (!((t58297.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31807]"); structure_ref_error();} t58295 = t58297.value.structure_type27692->s9; /* x115978 stalin.sc:13118:459994 */ t58294 = f12820(t58295); /* x115976 stalin.sc:13118:459968 */ f6590(t58293, t58294); return;} /* [inside APPLY-CLOSED-WORLD-ASSUMPTION! 13010] */ void f13010(struct w49 a24982) {struct w49 a20163; /* S */ struct w49 a20164; /* X */ struct w49 a37311; /* S */ struct w49 t58298; struct w49 t58299; struct w49 t58300; struct w49 t58301; struct w49 t58302; struct w49 t58303; struct w49 t58304; /* x115971 stalin.sc:13113:459786 */ /* x115965 stalin.sc:13114:459840 */ t58298 = a24982; /* x115970 stalin.sc:13114:459842 */ /* x115969 stalin.sc:13114:459860 */ /* x115968 stalin.sc:13114:459905 */ t58303 = a24982; /* x115967 stalin.sc:13114:459861 */ a37311 = t58303; /* x281913 */ /* x281912 */ t58304 = a37311; /* x281911 */ if (!((t58304.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-DISPLACED-VECTOR-TYPE[6375] 32228]"); structure_ref_error();} t58302 = t58304.value.structure_type27908->s0; /* x115966 stalin.sc:13114:459843 */ t58299 = f12784(t58302); /* x115964 stalin.sc:13113:459787 */ a20163 = t58298; a20164 = t58299; /* x54049 */ /* x54047 */ t58300 = a20163; /* x54048 */ t58301 = a20164; /* x54046 */ if ((t58300.tag)==STRUCTURE_TYPE27908) {t58300.value.structure_type27908->s0 = t58301; return;} backtrace_internal("SET-DISPLACED-VECTOR-TYPE-DISPLACED-VECTOR-TYPE![6376]"); structure_set_error();} /* [inside APPLY-CLOSED-WORLD-ASSUMPTION! 13009] */ void f13009(struct w49 a24981) {struct w49 a37403; /* S */ struct w49 t58305; struct w49 t58306; struct w49 t58307; struct w49 t58308; struct w49 t58309; /* x115959 stalin.sc:13108:459625 */ /* x115953 stalin.sc:13109:459667 */ t58305 = a24981; /* x115958 stalin.sc:13109:459669 */ /* x115957 stalin.sc:13109:459691 */ /* x115956 stalin.sc:13109:459722 */ t58308 = a24981; /* x115955 stalin.sc:13109:459692 */ a37403 = t58308; /* x282281 */ /* x282280 */ t58309 = a37403; /* x282279 */ if (!((t58309.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ELEMENT[6309] 32320]"); structure_ref_error();} t58307 = t58309.value.structure_type27669->s0; /* x115954 stalin.sc:13109:459670 */ t58306 = f12820(t58307); /* x115952 stalin.sc:13108:459626 */ f6310(t58305, t58306); return;} /* [inside APPLY-CLOSED-WORLD-ASSUMPTION! 13008] */ void f13008(struct w49 a24980) {struct w49 a37520; /* S */ struct w49 t58310; struct w49 t58311; struct w49 t58312; struct w49 t58313; struct w49 t58314; /* x115947 stalin.sc:13104:459473 */ /* x115941 stalin.sc:13105:459512 */ t58310 = a24980; /* x115946 stalin.sc:13105:459514 */ /* x115945 stalin.sc:13105:459536 */ /* x115944 stalin.sc:13105:459564 */ t58313 = a24980; /* x115943 stalin.sc:13105:459537 */ a37520 = t58313; /* x282749 */ /* x282748 */ t58314 = a37520; /* x282747 */ if (!((t58314.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32437]"); structure_ref_error();} t58312 = t58314.value.structure_type27761->s0; /* x115942 stalin.sc:13105:459515 */ t58311 = f12820(t58312); /* x115940 stalin.sc:13104:459474 */ f6244(t58310, t58311); return;} /* [inside APPLY-CLOSED-WORLD-ASSUMPTION! 13007] */ void f13007(struct w49 a24979) {struct w49 a37657; /* S */ struct w49 t58315; struct structure_type24753 *t58316; struct w12224 t58317; struct w11873 t58318; struct w36270 t58319; struct w49 t58320; struct structure_type24753 *t58321; struct w49 t58322; struct w49 t58323; /* x115935 stalin.sc:13100:459333 */ /* x115928 stalin.sc:13101:459366 */ t58315 = a24979; /* x115934 stalin.sc:13101:459368 */ /* x115933 stalin.sc:13101:459394 */ /* x115932 stalin.sc:13101:459416 */ t58322 = a24979; /* x115931 stalin.sc:13101:459395 */ a37657 = t58322; /* x283297 */ /* x283296 */ t58323 = a37657; /* x283295 */ if (!((t58323.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32574]"); structure_ref_error();} t58318 = t58323.value.structure_type27769->s1; /* x115930 stalin.sc:13101:459373 */ /* x115929 stalin.sc:13101:459369 */ t58319.tag = NATIVE_PROCEDURE_TYPE7038; t58320 = *((struct w49 *)(&t58318)); t58321 = (struct structure_type24753 *)NULL_TYPE; t58316 = f27731(t58319, t58320, t58321); /* x115927 stalin.sc:13100:459334 */ /* MOVE: branching squeezed to general */ if (t58316>=((struct structure_type24753 *)VALUE_OFFSET)) {t58317.tag = STRUCTURE_TYPE24753; t58317.value.structure_type24753 = t58316;} else t58317.tag = (unsigned)t58316; f6178(t58315, t58317); return;} /* [inside APPLY-CLOSED-WORLD-ASSUMPTION! 13006] */ void f13006(struct w49 a24978) {struct w49 a19450; /* S */ struct w49 a19451; /* X */ struct w49 a38261; /* S */ struct w49 t58324; struct w49 t58325; struct w49 t58326; struct w49 t58327; struct w49 t58328; struct w49 t58329; struct w49 t58330; /* x115922 stalin.sc:13096:459155 */ /* x115916 stalin.sc:13097:459208 */ t58324 = a24978; /* x115921 stalin.sc:13097:459210 */ /* x115920 stalin.sc:13097:459228 */ /* x115919 stalin.sc:13097:459272 */ t58329 = a24978; /* x115918 stalin.sc:13097:459229 */ a38261 = t58329; /* x285713 */ /* x285712 */ t58330 = a38261; /* x285711 */ if (!((t58330.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-DISPLACED-STRING-TYPE[5845] 33178]"); structure_ref_error();} t58328 = t58330.value.structure_type27779->s0; /* x115917 stalin.sc:13097:459211 */ t58325 = f12784(t58328); /* x115915 stalin.sc:13096:459156 */ a19450 = t58324; a19451 = t58325; /* x51408 */ /* x51406 */ t58326 = a19450; /* x51407 */ t58327 = a19451; /* x51405 */ if ((t58326.tag)==STRUCTURE_TYPE27779) {t58326.value.structure_type27779->s0 = t58327; return;} backtrace_internal("SET-EXTERNAL-SYMBOL-TYPE-DISPLACED-STRING-TYPE![5846]"); structure_set_error();} /* [inside APPLY-CLOSED-WORLD-ASSUMPTION! 13004] */ void f13004(struct w49 a24975) {struct w49 t58331; struct w49 t58332; struct w49 t58333; struct w49 t58334; /* x115877 stalin.sc:13081:458650 */ /* x115871 stalin.sc:13081:458660 */ t58331 = a24975; /* x115876 stalin.sc:13081:458664 */ /* x115875 stalin.sc:13081:458682 */ /* x115874 stalin.sc:13081:458687 */ t58334 = a24975; /* x269264 stalin.sc:13081:458683 */ if (!((t58334.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 13081, 458682); structure_ref_error();} t58333 = t58334.value.structure_type24753->s0; /* x115872 stalin.sc:13081:458665 */ t58332 = f12784(t58333); /* x269265 stalin.sc:13081:458651 */ if ((t58331.tag)==STRUCTURE_TYPE24753) {t58331.value.structure_type24753->s0 = t58332; return;} backtrace("stalin.sc", 13081, 458650); structure_set_error();} /* [inside APPLY-CLOSED-WORLD-ASSUMPTION! 13000] */ void f13000(struct w49 a24971) {struct w12224 a15111; /* X */ struct w49 a15114; /* X */ struct structure_type24753 *a15115; /* C */ struct w16638 a35344; /* PAIR */ struct w16638 a35345; /* PAIR */ struct w16638 a35677; /* PAIR */ struct w16638 a35678; /* PAIR */ struct w49 a38475; /* S */ struct w49 a38476; /* S */ struct w49 a38483; /* S */ struct w49 a38484; /* S */ struct w49 a40022; /* S */ int t58335; int t58336; struct w12224 t58337; struct w49 t58338; struct w49 t58339; struct w49 t58340; struct w12224 t58341; struct w49 t58342; struct structure_type24753 *t58343; struct w12224 t58344; struct w36270 t58345; struct w49 t58346; struct structure_type24753 *t58347; struct w49 t58348; struct w49 t58349; char *t58350; struct w49 t58351; struct w49 t58352; struct w49 t58353; struct w49 t58354; struct w49 t58355; struct w12224 t58356; struct w36108 t58357; struct w49 t58358; struct structure_type24753 *t58359; struct w49 t58360; struct w49 t58361; struct w49 t58362; struct w12224 t58363; struct w12224 t58364; struct w12224 t58365; struct w49 t58366; struct w49 t58367; struct structure_type24753 *t58368; struct p14552 *t58369; struct w49 t58370; struct w16638 t58371; struct w16638 t58372; struct w49 t58373; struct structure_type24753 *t58374; struct w16638 t58375; struct w16638 t58376; struct w49 t58377; struct structure_type24753 *t58378; struct w16638 t58379; struct w16638 t58380; struct w49 t58381; struct structure_type24753 *t58382; struct w16638 t58383; struct w16638 t58384; struct structure_type24753 *t58385; struct w49 t58386; struct w49 t58387; struct w49 t58388; /* x115910 */ /* x115868 stalin.sc:13080:458547 */ /* x115862 stalin.sc:13080:458573 */ t58351 = a24971; /* x115867 stalin.sc:13080:458575 */ /* x115866 stalin.sc:13080:458597 */ /* x115865 stalin.sc:13080:458618 */ t58354 = a24971; /* x115864 stalin.sc:13080:458598 */ a40022 = t58354; /* x292757 */ /* x292756 */ t58355 = a40022; /* x292755 */ if (!((t58355.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34939]"); structure_ref_error();} t58353 = t58355.value.structure_type27698->s10; /* x115863 stalin.sc:13080:458576 */ t58352 = f12820(t58353); /* x115861 stalin.sc:13080:458548 */ f5568(t58351, t58352); /* x115882 stalin.sc:13081:458626 */ /* x115881 stalin.sc:13082:458701 */ /* x115880 stalin.sc:13082:458735 */ t58360 = a24971; /* x115879 stalin.sc:13082:458702 */ a38483 = t58360; /* x286601 */ /* x286600 */ t58361 = a38483; /* x286599 */ if (!((t58361.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-ALLOCATION-ALIST[5687] 33400]"); structure_ref_error();} t58356 = t58361.value.structure_type27698->s25; /* x115878 stalin.sc:13081:458636 */ /* x115869 stalin.sc:13081:458627 */ t58357.tag = NATIVE_PROCEDURE_TYPE15482; t58358 = *((struct w49 *)(&t58356)); t58359 = (struct structure_type24753 *)NULL_TYPE; f27755(t58357, t58358, t58359); /* x115909 stalin.sc:13083:458742 */ /* x115884 stalin.sc:13084:458785 */ t58362 = a24971; /* x115908 stalin.sc:13085:458791 */ /* x115904 stalin.sc:13086:458816 */ /* x115907 stalin.sc:13088:458910 */ /* x115906 stalin.sc:13088:458944 */ t58387 = a24971; /* x115905 stalin.sc:13088:458911 */ a38484 = t58387; /* x286605 */ /* x286604 */ t58388 = a38484; /* x286603 */ if (!((t58388.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-ALLOCATION-ALIST[5687] 33401]"); structure_ref_error();} t58364 = t58388.value.structure_type27698->s25; /* x115885 stalin.sc:13085:458792 */ a15111 = t58364; /* x17321 QobiScheme.sc:725:20751 */ /* x17319 QobiScheme.sc:725:20765 */ t58365 = a15111; /* x17320 QobiScheme.sc:725:20771 */ /* x17318 */ /* x17317 */ /* x17316 */ /* x17315 */ /* x17314 */ /* x17313 */ /* x17312 */ /* x17273 */ /* x17272 QobiScheme.sc:725:20756 */ a15114 = *((struct w49 *)(&t58365)); a15115 = (struct structure_type24753 *)NULL_TYPE; h1513: /* x17311 QobiScheme.sc:726:20779 */ /* x17276 QobiScheme.sc:726:20786 */ /* x17275 QobiScheme.sc:726:20793 */ t58366 = a15114; /* x270881 QobiScheme.sc:726:20787 */ if (!((t58366.tag)==NULL_TYPE)) goto l8893; /* x17281 */ /* x17280 */ /* x17279 QobiScheme.sc:726:20796 */ /* x17278 QobiScheme.sc:726:20805 */ t58385 = a15115; /* x17277 QobiScheme.sc:726:20797 */ /* MOVE: branching squeezed to general */ if (t58385>=((struct structure_type24753 *)VALUE_OFFSET)) {t58386.tag = STRUCTURE_TYPE24753; t58386.value.structure_type24753 = t58385;} else t58386.tag = (unsigned)t58385; t58363 = f26331(t58386); goto l8894; l8893: /* x17310 */ /* x17288 QobiScheme.sc:727:20811 */ /* x17283 QobiScheme.sc:727:20817 */ /* x17286 QobiScheme.sc:727:20819 */ /* x17285 QobiScheme.sc:727:20826 */ t58371 = *((struct w16638 *)(&a15114)); /* x17284 QobiScheme.sc:727:20820 */ a35678 = t58371; /* x274069 */ /* x274068 */ t58372 = a35678; /* x274067 */ if (!((t58372.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29827]"); structure_ref_error();} t58367 = t58372.value.structure_type24753->s0; /* x17287 QobiScheme.sc:727:20829 */ t58368 = a15115; /* x17282 QobiScheme.sc:727:20812 */ t58369 = (struct p14552 *)NATIVE_PROCEDURE_TYPE15481; /* MOVE: branching squeezed to general */ if (t58368>=((struct structure_type24753 *)VALUE_OFFSET)) {t58370.tag = STRUCTURE_TYPE24753; t58370.value.structure_type24753 = t58368;} else t58370.tag = (unsigned)t58368; if ((f1178(t58369, t58367, t58370).tag)==FALSE_TYPE) goto l8896; /* x17296 */ /* x17295 */ /* x17294 QobiScheme.sc:727:20832 */ /* x17292 QobiScheme.sc:727:20838 */ /* x17291 QobiScheme.sc:727:20844 */ t58383 = *((struct w16638 *)(&a15114)); /* x17290 QobiScheme.sc:727:20839 */ a35344 = t58383; /* x272733 */ /* x272732 */ t58384 = a35344; /* x272731 */ if (!((t58384.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29493]"); structure_ref_error();} t58381 = t58384.value.structure_type24753->s1; /* x17293 QobiScheme.sc:727:20847 */ t58382 = a15115; /* x17289 QobiScheme.sc:727:20833 */ a15114 = t58381; a15115 = t58382; goto h1513; goto l8897; l8896: /* x17309 */ /* x17308 */ /* x17307 QobiScheme.sc:728:20858 */ /* x17300 QobiScheme.sc:728:20864 */ /* x17299 QobiScheme.sc:728:20870 */ t58375 = *((struct w16638 *)(&a15114)); /* x17298 QobiScheme.sc:728:20865 */ a35345 = t58375; /* x272737 */ /* x272736 */ t58376 = a35345; /* x272735 */ if (!((t58376.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29494]"); structure_ref_error();} t58373 = t58376.value.structure_type24753->s1; /* x17306 QobiScheme.sc:728:20873 */ /* x17304 QobiScheme.sc:728:20879 */ /* x17303 QobiScheme.sc:728:20886 */ t58379 = *((struct w16638 *)(&a15114)); /* x17302 QobiScheme.sc:728:20880 */ a35677 = t58379; /* x274065 */ /* x274064 */ t58380 = a35677; /* x274063 */ if (!((t58380.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29826]"); structure_ref_error();} t58377 = t58380.value.structure_type24753->s0; /* x17305 QobiScheme.sc:728:20889 */ t58378 = a15115; /* x270880 QobiScheme.sc:728:20874 */ t58374 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t58374==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 728, 20873); out_of_memory_error();} t58374->s0 = t58377; /* MOVE: branching squeezed to general */ if (t58378>=((struct structure_type24753 *)VALUE_OFFSET)) {t58374->s1.tag = STRUCTURE_TYPE24753; t58374->s1.value.structure_type24753 = t58378;} else t58374->s1.tag = (unsigned)t58378; /* x17297 QobiScheme.sc:728:20859 */ a15114 = t58373; a15115 = t58374; goto h1513; l8897: l8894: /* x115883 stalin.sc:13083:458743 */ f5688(t58362, t58363); /* x115860 */ /* x115859 stalin.sc:13089:458952 */ /* x115852 stalin.sc:13089:458960 */ /* x115841 stalin.sc:13089:458963 */ /* x115840 stalin.sc:13089:458971 */ /* x115839 stalin.sc:13089:459005 */ t58339 = a24971; /* x115838 stalin.sc:13089:458972 */ a38475 = t58339; /* x286569 */ /* x286568 */ t58340 = a38475; /* x286567 */ if (!((t58340.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-ALLOCATION-ALIST[5687] 33392]"); structure_ref_error();} t58337 = t58340.value.structure_type27698->s25; /* x115837 stalin.sc:13089:458964 */ t58338 = *((struct w49 *)(&t58337)); t58335 = f26227(t58338); /* x115851 stalin.sc:13090:459016 */ /* x115850 stalin.sc:13090:459024 */ /* x115849 stalin.sc:13091:459053 */ /* x115848 stalin.sc:13091:459062 */ /* x115847 stalin.sc:13091:459096 */ t58348 = a24971; /* x115846 stalin.sc:13091:459063 */ a38476 = t58348; /* x286573 */ /* x286572 */ t58349 = a38476; /* x286571 */ if (!((t58349.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-ALLOCATION-ALIST[5687] 33393]"); structure_ref_error();} t58344 = t58349.value.structure_type27698->s25; /* x115845 stalin.sc:13091:459058 */ /* x115844 stalin.sc:13091:459054 */ t58345.tag = NATIVE_PROCEDURE_TYPE494; t58346 = *((struct w49 *)(&t58344)); t58347 = (struct structure_type24753 *)NULL_TYPE; t58343 = f27731(t58345, t58346, t58347); /* x115843 stalin.sc:13090:459025 */ t58341 = f1486(t58343); /* x115842 stalin.sc:13090:459017 */ t58342 = *((struct w49 *)(&t58341)); t58336 = f26227(t58342); /* x269266 stalin.sc:13089:458961 */ if (!(t58335==t58336)) goto l8891; /* x115854 */ /* x115853 */ return; l8891: /* x115858 */ /* x115857 */ /* x115856 stalin.sc:13092:459107 */ /* x115855 stalin.sc:13092:459108 */ /* x295413 QobiScheme.sc:166:5314 */ /* x295412 QobiScheme.sc:166:5321 */ t58350 = "This shouldn\'t happen"; /* x295411 QobiScheme.sc:166:5315 */ stalin_panic(t58350);} /* [inside LOOP 12984] */ void f12984(struct w49 a24959) {struct w49 a15783; /* S */ struct structure_type24753 *a15784; /* X */ struct structure_type27623 *a24866; /* TRIE */ struct structure_type24753 *a24867; /* LIST */ struct structure_type24753 *a24868; /* VALUE */ struct w49 a24871; /* TRIE-NODE */ struct w49 a24872; /* LIST */ struct w49 a24873; /* ENTRY */ struct structure_type24753 *a24961; /* US */ struct w16638 a35549; /* PAIR */ struct w16638 a36115; /* PAIR */ struct w16638 a36116; /* PAIR */ struct w49 a37090; /* S */ struct w49 a40545; /* S */ struct w49 a40546; /* S */ struct structure_type27623 *a40550; /* S */ struct structure_type27623 *a40553; /* S */ struct w49 t58389; struct w49 t58390; struct w49 t58391; struct w49 t58392; struct structure_type24753 *t58394; struct structure_type27623 *t58395; struct structure_type24753 *t58396; struct structure_type24753 *t58397; struct structure_type27621 *t58398; struct structure_type24753 *t58399; struct w49 t58400; struct w49 t58401; struct w49 t58402; struct w49 t58403; struct w49 t58404; struct w16638 t58405; struct w16638 t58406; struct w49 t58407; struct structure_type24753 *t58408; struct w49 t58409; struct structure_type24753 *t58410; struct w49 t58411; unsigned t58412; struct w49 t58413; struct w49 t58414; struct w49 t58415; struct structure_type27621 *t58416; struct w16638 t58417; struct w16638 t58418; struct w49 t58419; struct headed_vector_type27896 *t58420; struct structure_type27623 *t58421; struct structure_type27623 *t58422; struct w49 t58423; unsigned t58424; struct w49 t58425; struct w16638 t58426; struct w16638 t58427; struct w49 t58428; struct w49 t58429; struct w49 t58430; struct structure_type24753 *t58431; struct w49 t58432; struct structure_type27623 *t58433; struct structure_type27623 *t58434; struct w49 t58435; struct w49 t58436; struct structure_type27623 *t58437; struct structure_type24753 *t58438; struct w49 t58439; int t58440; int t58441; struct structure_type24753 *t58442; struct w49 t58443; struct w49 t58444; struct w49 t58445; struct structure_type24753 *t58446; struct w49 t58447; struct w49 t58448; char *t58449; struct w7121 t58450; struct w49 t58451; struct structure_type24753 *t58452; struct w49 t58453; struct w49 t58454; struct structure_type24753 *t58455; struct w49 t58456; struct structure_type24753 *t58457; struct structure_type24753 *t58458; struct w36270 t58459; struct w49 t58460; struct structure_type24753 *t58461; struct w49 t58462; /* x115727 stalin.sc:13015:455892 */ /* x115658 stalin.sc:13015:455898 */ /* x115656 stalin.sc:13015:455903 */ /* x115655 stalin.sc:13015:455918 */ t58391 = a24959; /* x115654 stalin.sc:13015:455904 */ a37090 = t58391; /* x281029 */ /* x281028 */ t58392 = a37090; /* x281027 */ if (!((t58392.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LINK[6483] 32007]"); structure_ref_error();} t58389 = t58392.value.structure_type27650->s2; /* x115657 stalin.sc:13015:455921 */ t58390 = a24959; /* x269276 stalin.sc:13015:455899 */ /* EQ: dispatching general to general */ if (!((t58389.tag)==(t58390.tag))) goto l8899; switch (t58389.tag) {case FIXNUM_TYPE: if (!((t58389.value.fixnum_type)==(t58390.value.fixnum_type))) goto l8899; break; case FLONUM_TYPE: if (!((t58389.value.flonum_type)==(t58390.value.flonum_type))) goto l8899; break; case INPUT_PORT_TYPE: if (!((t58389.value.input_port_type)==(t58390.value.input_port_type))) goto l8899; break; case OUTPUT_PORT_TYPE: if (!((t58389.value.output_port_type)==(t58390.value.output_port_type))) goto l8899; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58389.value.native_procedure_type15963)==(t58390.value.native_procedure_type15963))) goto l8899; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58389.value.native_procedure_type19067)==(t58390.value.native_procedure_type19067))) goto l8899; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58389.value.native_procedure_type19068)==(t58390.value.native_procedure_type19068))) goto l8899; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58389.value.native_procedure_type22459)==(t58390.value.native_procedure_type22459))) goto l8899; break; case STRUCTURE_TYPE24753: if (!((t58389.value.structure_type24753)==(t58390.value.structure_type24753))) goto l8899; break; case STRUCTURE_TYPE24757: if (!((t58389.value.structure_type24757)==(t58390.value.structure_type24757))) goto l8899; break; case STRUCTURE_TYPE27501: if (!((t58389.value.structure_type27501)==(t58390.value.structure_type27501))) goto l8899; break; case STRUCTURE_TYPE27510: if (!((t58389.value.structure_type27510)==(t58390.value.structure_type27510))) goto l8899; break; case STRUCTURE_TYPE27621: if (!((t58389.value.structure_type27621)==(t58390.value.structure_type27621))) goto l8899; break; case STRUCTURE_TYPE27650: if (!((t58389.value.structure_type27650)==(t58390.value.structure_type27650))) goto l8899; break; case STRUCTURE_TYPE27669: if (!((t58389.value.structure_type27669)==(t58390.value.structure_type27669))) goto l8899; break; case STRUCTURE_TYPE27673: if (!((t58389.value.structure_type27673)==(t58390.value.structure_type27673))) goto l8899; break; case STRUCTURE_TYPE27692: if (!((t58389.value.structure_type27692)==(t58390.value.structure_type27692))) goto l8899; break; case STRUCTURE_TYPE27694: if (!((t58389.value.structure_type27694)==(t58390.value.structure_type27694))) goto l8899; break; case STRUCTURE_TYPE27698: if (!((t58389.value.structure_type27698)==(t58390.value.structure_type27698))) goto l8899; break; case STRUCTURE_TYPE27745: if (!((t58389.value.structure_type27745)==(t58390.value.structure_type27745))) goto l8899; break; case STRUCTURE_TYPE27747: if (!((t58389.value.structure_type27747)==(t58390.value.structure_type27747))) goto l8899; break; case STRUCTURE_TYPE27750: if (!((t58389.value.structure_type27750)==(t58390.value.structure_type27750))) goto l8899; break; case STRUCTURE_TYPE27753: if (!((t58389.value.structure_type27753)==(t58390.value.structure_type27753))) goto l8899; break; case STRUCTURE_TYPE27756: if (!((t58389.value.structure_type27756)==(t58390.value.structure_type27756))) goto l8899; break; case STRUCTURE_TYPE27761: if (!((t58389.value.structure_type27761)==(t58390.value.structure_type27761))) goto l8899; break; case STRUCTURE_TYPE27769: if (!((t58389.value.structure_type27769)==(t58390.value.structure_type27769))) goto l8899; break; case STRUCTURE_TYPE27776: if (!((t58389.value.structure_type27776)==(t58390.value.structure_type27776))) goto l8899; break; case STRUCTURE_TYPE27779: if (!((t58389.value.structure_type27779)==(t58390.value.structure_type27779))) goto l8899; break; case STRUCTURE_TYPE27858: if (!((t58389.value.structure_type27858)==(t58390.value.structure_type27858))) goto l8899; break; case STRING_TYPE: if (!((t58389.value.string_type)==(t58390.value.string_type))) goto l8899; break; case HEADED_VECTOR_TYPE27896: if (!((t58389.value.headed_vector_type27896)==(t58390.value.headed_vector_type27896))) goto l8899; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58389.value.external_symbol_type)==(t58390.value.external_symbol_type))) goto l8899; break; case STRUCTURE_TYPE27908: if (!((t58389.value.structure_type27908)==(t58390.value.structure_type27908))) goto l8899; break; default:;} /* x115724 */ /* x115723 */ /* x115722 */ /* x115721 stalin.sc:13016:455931 */ /* x115720 stalin.sc:13016:455932 */ f4651(); /* x115719 */ /* x115718 stalin.sc:13017:455977 */ /* x115717 stalin.sc:13017:455987 */ /* x115716 stalin.sc:13018:456019 */ /* x115715 stalin.sc:13018:456041 */ /* x115714 stalin.sc:13018:456050 */ t58462 = a24959; /* x115713 stalin.sc:13018:456042 */ t58458 = f8162(t58462); /* x115712 stalin.sc:13018:456024 */ /* x115711 stalin.sc:13018:456020 */ t58459.tag = NATIVE_PROCEDURE_TYPE7039; /* MOVE: branching squeezed to general */ if (t58458>=((struct structure_type24753 *)VALUE_OFFSET)) {t58460.tag = STRUCTURE_TYPE24753; t58460.value.structure_type24753 = t58458;} else t58460.tag = (unsigned)t58458; t58461 = (struct structure_type24753 *)NULL_TYPE; t58457 = f27731(t58459, t58460, t58461); /* x115710 stalin.sc:13017:455988 */ t58394 = f12827(t58457); /* x115709 */ a24961 = t58394; /* x115708 */ /* x115703 stalin.sc:13027:456569 */ /* x115692 stalin.sc:13027:456575 */ /* x115673 stalin.sc:13027:456580 */ /* x115672 stalin.sc:13027:456595 */ t58439 = a24959; /* x115671 stalin.sc:13027:456581 */ if (f8149(t58439)==((struct structure_type27657 *)FALSE_TYPE)) goto l8906; /* x115690 */ /* x115679 stalin.sc:13028:456603 */ /* x115677 stalin.sc:13028:456606 */ /* x115676 stalin.sc:13028:456614 */ t58442 = a24961; /* x115675 stalin.sc:13028:456607 */ /* MOVE: branching squeezed to general */ if (t58442>=((struct structure_type24753 *)VALUE_OFFSET)) {t58443.tag = STRUCTURE_TYPE24753; t58443.value.structure_type24753 = t58442;} else t58443.tag = (unsigned)t58442; t58440 = f26227(t58443); /* x115678 stalin.sc:13028:456618 */ t58441 = 1; /* x269274 stalin.sc:13028:456604 */ if (!(t58440==t58441)) goto l8906; /* x115688 */ /* x115687 stalin.sc:13029:456639 */ /* x115686 stalin.sc:13029:456657 */ /* x115685 stalin.sc:13029:456664 */ /* x115684 stalin.sc:13029:456673 */ t58448 = a24959; /* x115683 stalin.sc:13029:456665 */ t58446 = f8162(t58448); /* x115682 stalin.sc:13029:456658 */ /* MOVE: branching squeezed to general */ if (t58446>=((struct structure_type24753 *)VALUE_OFFSET)) {t58447.tag = STRUCTURE_TYPE24753; t58447.value.structure_type24753 = t58446;} else t58447.tag = (unsigned)t58446; t58445 = f26176(t58447); /* x115681 stalin.sc:13029:456640 */ t58444 = f12784(t58445); /* x115680 stalin.sc:13029:456627 */ if (f8793(t58444)==FALSE_TYPE) goto l8906; /* x115700 */ /* x115699 */ /* x115698 stalin.sc:13030:456682 */ /* x115697 stalin.sc:13031:456739 */ /* x115696 stalin.sc:13031:456755 */ t58453 = a24959; /* x115695 stalin.sc:13031:456740 */ t58450 = f6499(t58453); /* x115694 stalin.sc:13030:456690 */ t58449 = "Warning! W~a should be fictitious but isn\'t"; /* x115693 stalin.sc:13030:456683 */ t58451.tag = STRING_TYPE; t58451.value.string_type = t58449; t58452 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t58452==NULL) {backtrace("stalin.sc", 13030, 456682); out_of_memory_error();} t58452->s0 = *((struct w49 *)(&t58450)); t58452->s1.tag = NULL_TYPE; f5365(t58451, t58452); goto l8907; l8906: /* x115702 stalin.sc:13027:456569 */ /* x115701 stalin.sc:13027:456569 */ l8907: /* x115707 stalin.sc:13032:456761 */ /* x115705 stalin.sc:13032:456775 */ t58454 = a24959; /* x115706 stalin.sc:13032:456777 */ t58455 = a24961; /* x115704 stalin.sc:13032:456762 */ /* MOVE: branching squeezed to general */ if (t58455>=((struct structure_type24753 *)VALUE_OFFSET)) {t58456.tag = STRUCTURE_TYPE24753; t58456.value.structure_type24753 = t58455;} else t58456.tag = (unsigned)t58455; f8181(t58454, t58456); /* x115670 */ /* x115669 stalin.sc:13033:456782 */ /* x115660 stalin.sc:13033:456793 */ t58395 = a24951; /* x115661 stalin.sc:13033:456798 */ t58396 = a24961; /* x115668 stalin.sc:13033:456801 */ /* x115663 stalin.sc:13033:456807 */ t58435 = a24959; /* x115667 stalin.sc:13033:456809 */ /* x115665 stalin.sc:13033:456819 */ t58437 = a24951; /* x115666 stalin.sc:13033:456824 */ t58438 = a24961; /* x115664 stalin.sc:13033:456810 */ t58436 = f12834(t58437, t58438); /* x269275 stalin.sc:13033:456802 */ t58397 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t58397==NULL) {backtrace("stalin.sc", 13033, 456801); out_of_memory_error();} t58397->s0 = t58435; t58397->s1 = t58436; /* x115659 stalin.sc:13033:456783 */ a24866 = t58395; a24867 = t58396; a24868 = t58397; /* x114757 stalin.sc:12864:450321 */ /* x114755 stalin.sc:12864:450343 */ /* x114754 stalin.sc:12864:450359 */ t58433 = a24866; /* x114753 stalin.sc:12864:450344 */ a40550 = t58433; /* x294933 */ /* x294932 */ t58434 = a40550; /* x294931 */ t58398 = t58434->s4; /* x114756 stalin.sc:12864:450372 */ t58399 = a24867; /* x114752 */ /* x114751 */ /* x114750 */ /* x114749 */ /* x114748 */ /* x114747 */ /* x114746 */ /* x114688 */ /* x114687 stalin.sc:12864:450326 */ a24871.tag = STRUCTURE_TYPE27621; a24871.value.structure_type27621 = t58398; /* MOVE: branching squeezed to general */ if (t58399>=((struct structure_type24753 *)VALUE_OFFSET)) {a24872.tag = STRUCTURE_TYPE24753; a24872.value.structure_type24753 = t58399;} else a24872.tag = (unsigned)t58399; h12842: /* x114745 stalin.sc:12865:450382 */ /* x114691 stalin.sc:12865:450386 */ /* x114690 stalin.sc:12865:450393 */ t58400 = a24872; /* x269324 stalin.sc:12865:450387 */ if (!((t58400.tag)==NULL_TYPE)) goto l8901; /* x114695 stalin.sc:12866:450406 */ /* x114693 stalin.sc:12866:450428 */ t58430 = a24871; /* x114694 stalin.sc:12866:450438 */ t58431 = a24868; /* x114692 stalin.sc:12866:450407 */ t58432.tag = STRUCTURE_TYPE24753; t58432.value.structure_type24753 = t58431; f2279(t58430, t58432); return; l8901: /* x114744 stalin.sc:12867:450452 */ /* x114743 stalin.sc:12867:450465 */ /* x114739 stalin.sc:12867:450471 */ /* x114738 stalin.sc:12867:450478 */ t58426 = *((struct w16638 *)(&a24872)); /* x114737 stalin.sc:12867:450472 */ a36116 = t58426; /* x275821 */ /* x275820 */ t58427 = a36116; /* x275819 */ if (!((t58427.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30265]"); structure_ref_error();} t58423 = t58427.value.structure_type24753->s0; /* x114742 stalin.sc:12867:450484 */ /* x114741 stalin.sc:12867:450501 */ t58428 = a24871; /* x114740 stalin.sc:12867:450485 */ a40546 = t58428; /* x294917 */ /* x294916 */ t58429 = a40546; /* x294915 */ if (!((t58429.tag)==STRUCTURE_TYPE27621)) {backtrace_internal("[clone TRIE-NODE-TABLE[2270] 35488]"); structure_ref_error();} t58424 = t58429.value.structure_type27621->s0; /* x114736 stalin.sc:12867:450466 */ /* MOVE: dispatching squished to general */ if (t58424==NULL_TYPE) t58425.tag = (unsigned)t58424; else {if ((t58424&3)==1) {t58425.tag = STRUCTURE_TYPE24753; t58425.value.structure_type24753 = (struct structure_type24753 *)(t58424-1);} else {t58425.tag = HEADED_VECTOR_TYPE27896; t58425.value.headed_vector_type27896 = (struct headed_vector_type27896 *)t58424;}} t58401 = f26354(t58423, t58425); /* x114735 */ a24873 = t58401; /* x114734 */ /* x114733 stalin.sc:12869:450539 */ /* x114705 stalin.sc:12869:450547 */ if ((a24873.tag)==FALSE_TYPE) goto l8903; /* x114707 */ /* x114706 */ goto l8904; l8903: /* x114732 */ /* x114731 */ /* x114730 */ /* x114729 stalin.sc:12870:450555 */ /* x114728 stalin.sc:12871:450575 */ /* x114721 stalin.sc:12871:450581 */ /* x114720 stalin.sc:12871:450588 */ t58417 = *((struct w16638 *)(&a24872)); /* x114719 stalin.sc:12871:450582 */ a36115 = t58417; /* x275817 */ /* x275816 */ t58418 = a36115; /* x275815 */ if (!((t58418.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30264]"); structure_ref_error();} t58415 = t58418.value.structure_type24753->s0; /* x114727 stalin.sc:12872:450601 */ /* x114723 stalin.sc:12872:450617 */ /* x114726 stalin.sc:12872:450621 */ /* x114725 stalin.sc:12872:450641 */ t58421 = a24866; /* x114724 stalin.sc:12872:450622 */ a40553 = t58421; /* x294945 */ /* x294944 */ t58422 = a40553; /* x294943 */ t58419 = t58422->s3; /* x114722 stalin.sc:12872:450602 */ t58420 = (struct headed_vector_type27896 *)NULL_TYPE; t58416 = f2268(t58420, t58419); /* x269321 stalin.sc:12871:450576 */ a24873.tag = STRUCTURE_TYPE24753; a24873.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a24873.value.structure_type24753)==NULL) {backtrace("stalin.sc", 12871, 450575); out_of_memory_error();} a24873.value.structure_type24753->s0 = t58415; a24873.value.structure_type24753->s1.tag = STRUCTURE_TYPE27621; a24873.value.structure_type24753->s1.value.structure_type27621 = t58416; /* x114717 */ /* x114716 stalin.sc:12873:450652 */ /* x114709 stalin.sc:12874:450677 */ t58407 = a24871; /* x114715 stalin.sc:12874:450687 */ /* x114711 stalin.sc:12874:450693 */ t58411 = a24873; /* x114714 stalin.sc:12874:450699 */ /* x114713 stalin.sc:12874:450716 */ t58413 = a24871; /* x114712 stalin.sc:12874:450700 */ a40545 = t58413; /* x294913 */ /* x294912 */ t58414 = a40545; /* x294911 */ if (!((t58414.tag)==STRUCTURE_TYPE27621)) {backtrace_internal("[clone TRIE-NODE-TABLE[2270] 35487]"); structure_ref_error();} t58412 = t58414.value.structure_type27621->s0; /* x269322 stalin.sc:12874:450688 */ t58408 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t58408==NULL) {backtrace("stalin.sc", 12874, 450687); out_of_memory_error();} t58408->s0 = t58411; /* MOVE: dispatching squished to general */ if (t58412==NULL_TYPE) t58408->s1.tag = (unsigned)t58412; else {if ((t58412&3)==1) {t58408->s1.tag = STRUCTURE_TYPE24753; t58408->s1.value.structure_type24753 = (struct structure_type24753 *)(t58412-1);} else {t58408->s1.tag = HEADED_VECTOR_TYPE27896; t58408->s1.value.headed_vector_type27896 = (struct headed_vector_type27896 *)t58412;}} /* x114708 stalin.sc:12873:450653 */ a15783 = t58407; a15784 = t58408; /* x23258 */ /* x23256 */ t58409 = a15783; /* x23257 */ t58410 = a15784; /* x23255 */ if (!((t58409.tag)==STRUCTURE_TYPE27621)) {backtrace_internal("SET-TRIE-NODE-TABLE![2271]"); structure_set_error();} t58409.value.structure_type27621->s0 = ((unsigned)t58410)+1; l8904: /* x114704 */ /* x114703 stalin.sc:12875:450731 */ /* x114699 stalin.sc:12875:450737 */ /* x114698 stalin.sc:12875:450742 */ t58404 = a24873; /* x269323 stalin.sc:12875:450738 */ if (!((t58404.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 12875, 450737); structure_ref_error();} t58402 = t58404.value.structure_type24753->s1; /* x114702 stalin.sc:12875:450749 */ /* x114701 stalin.sc:12875:450755 */ t58405 = *((struct w16638 *)(&a24872)); /* x114700 stalin.sc:12875:450750 */ a35549 = t58405; /* x273553 */ /* x273552 */ t58406 = a35549; /* x273551 */ if (!((t58406.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29698]"); structure_ref_error();} t58403 = t58406.value.structure_type24753->s1; /* x114696 stalin.sc:12875:450732 */ a24871 = t58402; a24872 = t58403; goto h12842; l8899: /* x115726 stalin.sc:13015:455892 */ /* x115725 stalin.sc:13015:455892 */ return;} /* [inside LOOP 12978] */ void f12978(struct p12975 *p12978, struct w49 a24957) {struct w49 a37083; /* S */ struct w49 a37084; /* S */ unsigned t58463; unsigned t58464; struct w49 t58465; struct w49 t58466; struct p12975 *t58467; char *t58468; struct w7121 t58469; struct w7121 t58470; char *t58471; char *t58472; struct w49 t58473; struct structure_type24753 *t58474; struct w49 t58475; struct w49 t58476; struct w49 t58477; struct w49 t58478; struct w49 t58479; struct w49 t58480; struct w49 t58481; struct w49 t58482; struct w49 t58483; struct p12975 *t58484; struct w49 t58485; struct w49 t58486; struct p12975 *p12979; struct p12975 *p12981; /* x115613 stalin.sc:13043:457076 */ /* x115579 stalin.sc:13044:457090 */ /* x115575 stalin.sc:13044:457095 */ /* x115574 stalin.sc:13044:457108 */ t58465 = p12978->a24956; /* x115573 stalin.sc:13044:457096 */ t58463 = f8793(t58465); /* x115578 stalin.sc:13044:457112 */ /* x115577 stalin.sc:13044:457125 */ t58466 = a24957; /* x115576 stalin.sc:13044:457113 */ t58464 = f8793(t58466); /* x269277 stalin.sc:13044:457091 */ if (!(t58463==t58464)) goto l8911; /* x115589 */ /* x115588 */ t58484 = p12978; p12979 = t58484; /* x115587 */ /* x115586 stalin.sc:13045:457138 */ /* x115584 stalin.sc:13045:457158 */ t58485 = a24957; /* x115585 stalin.sc:13045:457161 */ t58486 = p12979->a24956; /* x115583 stalin.sc:13045:457139 */ f6484(t58485, t58486); /* x115582 */ /* x115581 stalin.sc:13046:457173 */ /* x115580 stalin.sc:13046:457186 */ a24878 = TRUE_TYPE; return; l8911: /* x115612 */ /* x115611 */ t58467 = p12978; p12981 = t58467; /* x115610 stalin.sc:13048:457212 */ /* x115609 stalin.sc:13053:457438 */ /* x115606 stalin.sc:13053:457442 */ /* x115605 stalin.sc:13053:457455 */ t58483 = a24957; /* x115604 stalin.sc:13053:457443 */ if (f8793(t58483)==FALSE_TYPE) goto l8916; /* x115607 stalin.sc:13053:457459 */ t58472 = "fictitious"; goto l8917; l8916: /* x115608 stalin.sc:13053:457472 */ t58472 = "not fictitious"; l8917: /* x115603 stalin.sc:13052:457377 */ /* x115600 stalin.sc:13052:457381 */ /* x115599 stalin.sc:13052:457394 */ t58482 = p12981->a24956; /* x115598 stalin.sc:13052:457382 */ if (f8793(t58482)==FALSE_TYPE) goto l8913; /* x115601 stalin.sc:13052:457398 */ t58471 = "fictitious"; goto l8914; l8913: /* x115602 stalin.sc:13052:457411 */ t58471 = "not fictitious"; l8914: /* x115597 stalin.sc:13051:457348 */ /* x115596 stalin.sc:13051:457364 */ t58480 = a24957; /* x115595 stalin.sc:13051:457349 */ a37084 = t58480; /* x281005 */ /* x281004 */ t58481 = a37084; /* x281003 */ if (!((t58481.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 32001]"); structure_ref_error();} t58470 = t58481.value.structure_type27650->s4; /* x115594 stalin.sc:13050:457319 */ /* x115593 stalin.sc:13050:457335 */ t58478 = p12981->a24956; /* x115592 stalin.sc:13050:457320 */ a37083 = t58478; /* x281001 */ /* x281000 */ t58479 = a37083; /* x280999 */ if (!((t58479.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 32000]"); structure_ref_error();} t58469 = t58479.value.structure_type27650->s4; /* x115591 stalin.sc:13049:457229 */ t58468 = "Warning! Not merging W~s and W~s because the former is ~a and the latter is ~a"; /* x115590 stalin.sc:13048:457213 */ t58473.tag = STRING_TYPE; t58473.value.string_type = t58468; t58477.tag = STRUCTURE_TYPE24753; t58477.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t58477.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13048, 457212); out_of_memory_error();} t58477.value.structure_type24753->s0.tag = STRING_TYPE; t58477.value.structure_type24753->s0.value.string_type = t58472; t58477.value.structure_type24753->s1.tag = NULL_TYPE; t58476.tag = STRUCTURE_TYPE24753; t58476.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t58476.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13048, 457212); out_of_memory_error();} t58476.value.structure_type24753->s0.tag = STRING_TYPE; t58476.value.structure_type24753->s0.value.string_type = t58471; t58476.value.structure_type24753->s1 = t58477; t58475.tag = STRUCTURE_TYPE24753; t58475.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t58475.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13048, 457212); out_of_memory_error();} t58475.value.structure_type24753->s0 = *((struct w49 *)(&t58470)); t58475.value.structure_type24753->s1 = t58476; t58474 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t58474==NULL) {backtrace("stalin.sc", 13048, 457212); out_of_memory_error();} t58474->s0 = *((struct w49 *)(&t58469)); t58474->s1 = t58475; f5365(t58473, t58474); return;} /* [inside LOOP 12971] */ void f12971(struct w49 a24953) {struct w49 a24955; /* WS */ struct w49 a24956; /* W1 */ struct w49 a35548; /* PAIR */ struct w49 a36114; /* PAIR */ struct w49 a37089; /* S */ struct w49 t58487; struct w49 t58488; struct w49 t58489; struct w49 t58490; struct w49 t58492; struct w49 t58493; struct p12975 *t58494; struct w49 t58495; struct w49 t58496; struct p12975 *t58497; struct p12975 *t58498; struct w49 t58499; struct w36108 t58500; struct w49 t58501; struct structure_type24753 *t58502; struct w49 t58503; struct w49 t58504; struct w49 t58505; struct w49 t58506; struct structure_type27623 *t58507; struct structure_type24753 *t58508; struct w49 t58509; struct p12975 *e12975; struct p12975 *p12976; struct p12975 *p12977; /* x115647 stalin.sc:13036:456878 */ /* x115566 stalin.sc:13036:456884 */ /* x115564 stalin.sc:13036:456889 */ /* x115563 stalin.sc:13036:456904 */ t58489 = a24953; /* x115562 stalin.sc:13036:456890 */ a37089 = t58489; /* x281025 */ /* x281024 */ t58490 = a37089; /* x281023 */ if (!((t58490.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LINK[6483] 32006]"); structure_ref_error();} t58487 = t58490.value.structure_type27650->s2; /* x115565 stalin.sc:13036:456907 */ t58488 = a24953; /* x269279 stalin.sc:13036:456885 */ /* EQ: dispatching general to general */ if (!((t58487.tag)==(t58488.tag))) goto l8919; switch (t58487.tag) {case FIXNUM_TYPE: if (!((t58487.value.fixnum_type)==(t58488.value.fixnum_type))) goto l8919; break; case FLONUM_TYPE: if (!((t58487.value.flonum_type)==(t58488.value.flonum_type))) goto l8919; break; case INPUT_PORT_TYPE: if (!((t58487.value.input_port_type)==(t58488.value.input_port_type))) goto l8919; break; case OUTPUT_PORT_TYPE: if (!((t58487.value.output_port_type)==(t58488.value.output_port_type))) goto l8919; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58487.value.native_procedure_type15963)==(t58488.value.native_procedure_type15963))) goto l8919; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58487.value.native_procedure_type19067)==(t58488.value.native_procedure_type19067))) goto l8919; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58487.value.native_procedure_type19068)==(t58488.value.native_procedure_type19068))) goto l8919; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58487.value.native_procedure_type22459)==(t58488.value.native_procedure_type22459))) goto l8919; break; case STRUCTURE_TYPE24753: if (!((t58487.value.structure_type24753)==(t58488.value.structure_type24753))) goto l8919; break; case STRUCTURE_TYPE24757: if (!((t58487.value.structure_type24757)==(t58488.value.structure_type24757))) goto l8919; break; case STRUCTURE_TYPE27501: if (!((t58487.value.structure_type27501)==(t58488.value.structure_type27501))) goto l8919; break; case STRUCTURE_TYPE27510: if (!((t58487.value.structure_type27510)==(t58488.value.structure_type27510))) goto l8919; break; case STRUCTURE_TYPE27621: if (!((t58487.value.structure_type27621)==(t58488.value.structure_type27621))) goto l8919; break; case STRUCTURE_TYPE27650: if (!((t58487.value.structure_type27650)==(t58488.value.structure_type27650))) goto l8919; break; case STRUCTURE_TYPE27669: if (!((t58487.value.structure_type27669)==(t58488.value.structure_type27669))) goto l8919; break; case STRUCTURE_TYPE27673: if (!((t58487.value.structure_type27673)==(t58488.value.structure_type27673))) goto l8919; break; case STRUCTURE_TYPE27692: if (!((t58487.value.structure_type27692)==(t58488.value.structure_type27692))) goto l8919; break; case STRUCTURE_TYPE27694: if (!((t58487.value.structure_type27694)==(t58488.value.structure_type27694))) goto l8919; break; case STRUCTURE_TYPE27698: if (!((t58487.value.structure_type27698)==(t58488.value.structure_type27698))) goto l8919; break; case STRUCTURE_TYPE27745: if (!((t58487.value.structure_type27745)==(t58488.value.structure_type27745))) goto l8919; break; case STRUCTURE_TYPE27747: if (!((t58487.value.structure_type27747)==(t58488.value.structure_type27747))) goto l8919; break; case STRUCTURE_TYPE27750: if (!((t58487.value.structure_type27750)==(t58488.value.structure_type27750))) goto l8919; break; case STRUCTURE_TYPE27753: if (!((t58487.value.structure_type27753)==(t58488.value.structure_type27753))) goto l8919; break; case STRUCTURE_TYPE27756: if (!((t58487.value.structure_type27756)==(t58488.value.structure_type27756))) goto l8919; break; case STRUCTURE_TYPE27761: if (!((t58487.value.structure_type27761)==(t58488.value.structure_type27761))) goto l8919; break; case STRUCTURE_TYPE27769: if (!((t58487.value.structure_type27769)==(t58488.value.structure_type27769))) goto l8919; break; case STRUCTURE_TYPE27776: if (!((t58487.value.structure_type27776)==(t58488.value.structure_type27776))) goto l8919; break; case STRUCTURE_TYPE27779: if (!((t58487.value.structure_type27779)==(t58488.value.structure_type27779))) goto l8919; break; case STRUCTURE_TYPE27858: if (!((t58487.value.structure_type27858)==(t58488.value.structure_type27858))) goto l8919; break; case STRING_TYPE: if (!((t58487.value.string_type)==(t58488.value.string_type))) goto l8919; break; case HEADED_VECTOR_TYPE27896: if (!((t58487.value.headed_vector_type27896)==(t58488.value.headed_vector_type27896))) goto l8919; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58487.value.external_symbol_type)==(t58488.value.external_symbol_type))) goto l8919; break; case STRUCTURE_TYPE27908: if (!((t58487.value.structure_type27908)==(t58488.value.structure_type27908))) goto l8919; break; default:;} /* x115644 */ /* x115643 */ /* x115642 */ /* x115641 stalin.sc:13037:456912 */ /* x115640 stalin.sc:13037:456913 */ f4651(); /* x115639 */ /* x115638 stalin.sc:13038:456952 */ /* x115637 stalin.sc:13038:456963 */ /* x115633 stalin.sc:13038:456973 */ t58507 = a24951; /* x115636 stalin.sc:13038:456978 */ /* x115635 stalin.sc:13038:456987 */ t58509 = a24953; /* x115634 stalin.sc:13038:456979 */ t58508 = f8162(t58509); /* x115632 stalin.sc:13038:456964 */ t58492 = f12834(t58507, t58508); /* x115631 */ a24955 = t58492; /* x115630 */ /* x115629 stalin.sc:13039:457005 */ /* x115628 stalin.sc:13039:457012 */ t58505 = a24955; /* x115627 stalin.sc:13039:457006 */ a36114 = t58505; /* x275813 */ /* x275812 */ t58506 = a36114; /* x275811 */ if (!((t58506.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30263]"); structure_ref_error();} t58493 = t58506.value.structure_type24753->s0; /* x115626 */ a24956 = t58493; e12975 = (struct p12975 *)alloca(sizeof(struct p12975)); if (e12975==NULL) {backtrace_internal("[inside LOOP 12974]"); out_of_memory_error();} e12975->a24956 = a24956; /* x115625 */ /* x115624 */ t58494 = e12975; p12976 = t58494; /* x115623 stalin.sc:13040:457021 */ /* x115570 stalin.sc:13040:457027 */ /* x115568 stalin.sc:13040:457032 */ t58495 = p12976->a24956; /* x115569 stalin.sc:13040:457035 */ t58496 = a24953; /* x269278 stalin.sc:13040:457028 */ /* EQ: dispatching general to general */ if (!((t58495.tag)==(t58496.tag))) goto l8921; switch (t58495.tag) {case FIXNUM_TYPE: if (!((t58495.value.fixnum_type)==(t58496.value.fixnum_type))) goto l8921; break; case FLONUM_TYPE: if (!((t58495.value.flonum_type)==(t58496.value.flonum_type))) goto l8921; break; case INPUT_PORT_TYPE: if (!((t58495.value.input_port_type)==(t58496.value.input_port_type))) goto l8921; break; case OUTPUT_PORT_TYPE: if (!((t58495.value.output_port_type)==(t58496.value.output_port_type))) goto l8921; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58495.value.native_procedure_type15963)==(t58496.value.native_procedure_type15963))) goto l8921; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58495.value.native_procedure_type19067)==(t58496.value.native_procedure_type19067))) goto l8921; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58495.value.native_procedure_type19068)==(t58496.value.native_procedure_type19068))) goto l8921; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58495.value.native_procedure_type22459)==(t58496.value.native_procedure_type22459))) goto l8921; break; case STRUCTURE_TYPE24753: if (!((t58495.value.structure_type24753)==(t58496.value.structure_type24753))) goto l8921; break; case STRUCTURE_TYPE24757: if (!((t58495.value.structure_type24757)==(t58496.value.structure_type24757))) goto l8921; break; case STRUCTURE_TYPE27501: if (!((t58495.value.structure_type27501)==(t58496.value.structure_type27501))) goto l8921; break; case STRUCTURE_TYPE27510: if (!((t58495.value.structure_type27510)==(t58496.value.structure_type27510))) goto l8921; break; case STRUCTURE_TYPE27621: if (!((t58495.value.structure_type27621)==(t58496.value.structure_type27621))) goto l8921; break; case STRUCTURE_TYPE27650: if (!((t58495.value.structure_type27650)==(t58496.value.structure_type27650))) goto l8921; break; case STRUCTURE_TYPE27669: if (!((t58495.value.structure_type27669)==(t58496.value.structure_type27669))) goto l8921; break; case STRUCTURE_TYPE27673: if (!((t58495.value.structure_type27673)==(t58496.value.structure_type27673))) goto l8921; break; case STRUCTURE_TYPE27692: if (!((t58495.value.structure_type27692)==(t58496.value.structure_type27692))) goto l8921; break; case STRUCTURE_TYPE27694: if (!((t58495.value.structure_type27694)==(t58496.value.structure_type27694))) goto l8921; break; case STRUCTURE_TYPE27698: if (!((t58495.value.structure_type27698)==(t58496.value.structure_type27698))) goto l8921; break; case STRUCTURE_TYPE27745: if (!((t58495.value.structure_type27745)==(t58496.value.structure_type27745))) goto l8921; break; case STRUCTURE_TYPE27747: if (!((t58495.value.structure_type27747)==(t58496.value.structure_type27747))) goto l8921; break; case STRUCTURE_TYPE27750: if (!((t58495.value.structure_type27750)==(t58496.value.structure_type27750))) goto l8921; break; case STRUCTURE_TYPE27753: if (!((t58495.value.structure_type27753)==(t58496.value.structure_type27753))) goto l8921; break; case STRUCTURE_TYPE27756: if (!((t58495.value.structure_type27756)==(t58496.value.structure_type27756))) goto l8921; break; case STRUCTURE_TYPE27761: if (!((t58495.value.structure_type27761)==(t58496.value.structure_type27761))) goto l8921; break; case STRUCTURE_TYPE27769: if (!((t58495.value.structure_type27769)==(t58496.value.structure_type27769))) goto l8921; break; case STRUCTURE_TYPE27776: if (!((t58495.value.structure_type27776)==(t58496.value.structure_type27776))) goto l8921; break; case STRUCTURE_TYPE27779: if (!((t58495.value.structure_type27779)==(t58496.value.structure_type27779))) goto l8921; break; case STRUCTURE_TYPE27858: if (!((t58495.value.structure_type27858)==(t58496.value.structure_type27858))) goto l8921; break; case STRING_TYPE: if (!((t58495.value.string_type)==(t58496.value.string_type))) goto l8921; break; case HEADED_VECTOR_TYPE27896: if (!((t58495.value.headed_vector_type27896)==(t58496.value.headed_vector_type27896))) goto l8921; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58495.value.external_symbol_type)==(t58496.value.external_symbol_type))) goto l8921; break; case STRUCTURE_TYPE27908: if (!((t58495.value.structure_type27908)==(t58496.value.structure_type27908))) goto l8921; break; default:;} /* x115620 */ /* x115619 */ t58497 = p12976; p12977 = t58497; /* x115618 stalin.sc:13041:457042 */ /* x115617 stalin.sc:13054:457499 */ /* x115616 stalin.sc:13054:457505 */ t58503 = a24955; /* x115615 stalin.sc:13054:457500 */ a35548 = t58503; /* x273549 */ /* x273548 */ t58504 = a35548; /* x273547 */ if (!((t58504.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29697]"); structure_ref_error();} t58499 = t58504.value.structure_type24753->s1; /* x115614 stalin.sc:13042:457057 */ t58498 = p12977; /* x115571 stalin.sc:13041:457043 */ t58500.tag = NATIVE_PROCEDURE_TYPE16530; t58500.value.native_procedure_type16530 = t58498; t58501 = t58499; t58502 = (struct structure_type24753 *)NULL_TYPE; f27755(t58500, t58501, t58502); return; l8921: /* x115622 stalin.sc:13040:457021 */ /* x115621 stalin.sc:13040:457021 */ return; l8919: /* x115646 stalin.sc:13036:456878 */ /* x115645 stalin.sc:13036:456878 */ return;} /* [inside loop 12959] */ void f12959(struct w49 a24947) {struct w49 a37293; /* S */ struct w49 a37294; /* S */ struct w49 a37299; /* S */ struct w49 a37300; /* S */ struct w49 t58510; struct w49 t58511; struct w49 t58512; struct w49 t58513; struct w49 t58514; struct w49 t58515; struct w49 t58516; struct w49 t58517; struct w49 t58518; struct w49 t58519; struct w49 t58520; struct w49 t58521; struct w49 t58522; struct w49 t58523; struct w49 t58524; struct w49 t58525; struct w49 t58526; struct w49 t58527; struct w49 t58528; struct w49 t58529; struct w49 t58530; struct w49 t58531; /* x115529 stalin.sc:12997:455242 */ /* x115492 stalin.sc:12997:455248 */ /* x115470 stalin.sc:12997:455253 */ /* x115468 stalin.sc:12997:455258 */ /* x115467 stalin.sc:12997:455286 */ t58512 = a24945; /* x115466 stalin.sc:12997:455259 */ a37294 = t58512; /* x281845 */ /* x281844 */ t58513 = a37294; /* x281843 */ if (!((t58513.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-LINK[6383] 32211]"); structure_ref_error();} t58510 = t58513.value.structure_type27908->s1; /* x115469 stalin.sc:12997:455290 */ t58511 = a24945; /* x269282 stalin.sc:12997:455254 */ /* EQ: dispatching general to general */ if (!((t58510.tag)==(t58511.tag))) goto l8923; switch (t58510.tag) {case FIXNUM_TYPE: if (!((t58510.value.fixnum_type)==(t58511.value.fixnum_type))) goto l8923; break; case FLONUM_TYPE: if (!((t58510.value.flonum_type)==(t58511.value.flonum_type))) goto l8923; break; case INPUT_PORT_TYPE: if (!((t58510.value.input_port_type)==(t58511.value.input_port_type))) goto l8923; break; case OUTPUT_PORT_TYPE: if (!((t58510.value.output_port_type)==(t58511.value.output_port_type))) goto l8923; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58510.value.native_procedure_type15963)==(t58511.value.native_procedure_type15963))) goto l8923; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58510.value.native_procedure_type19067)==(t58511.value.native_procedure_type19067))) goto l8923; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58510.value.native_procedure_type19068)==(t58511.value.native_procedure_type19068))) goto l8923; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58510.value.native_procedure_type22459)==(t58511.value.native_procedure_type22459))) goto l8923; break; case STRUCTURE_TYPE24753: if (!((t58510.value.structure_type24753)==(t58511.value.structure_type24753))) goto l8923; break; case STRUCTURE_TYPE24757: if (!((t58510.value.structure_type24757)==(t58511.value.structure_type24757))) goto l8923; break; case STRUCTURE_TYPE27501: if (!((t58510.value.structure_type27501)==(t58511.value.structure_type27501))) goto l8923; break; case STRUCTURE_TYPE27510: if (!((t58510.value.structure_type27510)==(t58511.value.structure_type27510))) goto l8923; break; case STRUCTURE_TYPE27621: if (!((t58510.value.structure_type27621)==(t58511.value.structure_type27621))) goto l8923; break; case STRUCTURE_TYPE27650: if (!((t58510.value.structure_type27650)==(t58511.value.structure_type27650))) goto l8923; break; case STRUCTURE_TYPE27669: if (!((t58510.value.structure_type27669)==(t58511.value.structure_type27669))) goto l8923; break; case STRUCTURE_TYPE27673: if (!((t58510.value.structure_type27673)==(t58511.value.structure_type27673))) goto l8923; break; case STRUCTURE_TYPE27692: if (!((t58510.value.structure_type27692)==(t58511.value.structure_type27692))) goto l8923; break; case STRUCTURE_TYPE27694: if (!((t58510.value.structure_type27694)==(t58511.value.structure_type27694))) goto l8923; break; case STRUCTURE_TYPE27698: if (!((t58510.value.structure_type27698)==(t58511.value.structure_type27698))) goto l8923; break; case STRUCTURE_TYPE27745: if (!((t58510.value.structure_type27745)==(t58511.value.structure_type27745))) goto l8923; break; case STRUCTURE_TYPE27747: if (!((t58510.value.structure_type27747)==(t58511.value.structure_type27747))) goto l8923; break; case STRUCTURE_TYPE27750: if (!((t58510.value.structure_type27750)==(t58511.value.structure_type27750))) goto l8923; break; case STRUCTURE_TYPE27753: if (!((t58510.value.structure_type27753)==(t58511.value.structure_type27753))) goto l8923; break; case STRUCTURE_TYPE27756: if (!((t58510.value.structure_type27756)==(t58511.value.structure_type27756))) goto l8923; break; case STRUCTURE_TYPE27761: if (!((t58510.value.structure_type27761)==(t58511.value.structure_type27761))) goto l8923; break; case STRUCTURE_TYPE27769: if (!((t58510.value.structure_type27769)==(t58511.value.structure_type27769))) goto l8923; break; case STRUCTURE_TYPE27776: if (!((t58510.value.structure_type27776)==(t58511.value.structure_type27776))) goto l8923; break; case STRUCTURE_TYPE27779: if (!((t58510.value.structure_type27779)==(t58511.value.structure_type27779))) goto l8923; break; case STRUCTURE_TYPE27858: if (!((t58510.value.structure_type27858)==(t58511.value.structure_type27858))) goto l8923; break; case STRING_TYPE: if (!((t58510.value.string_type)==(t58511.value.string_type))) goto l8923; break; case HEADED_VECTOR_TYPE27896: if (!((t58510.value.headed_vector_type27896)==(t58511.value.headed_vector_type27896))) goto l8923; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58510.value.external_symbol_type)==(t58511.value.external_symbol_type))) goto l8923; break; case STRUCTURE_TYPE27908: if (!((t58510.value.structure_type27908)==(t58511.value.structure_type27908))) goto l8923; break; default:;} /* x115490 */ /* x115476 stalin.sc:12998:455299 */ /* x115474 stalin.sc:12998:455304 */ /* x115473 stalin.sc:12998:455332 */ t58516 = a24947; /* x115472 stalin.sc:12998:455305 */ a37293 = t58516; /* x281841 */ /* x281840 */ t58517 = a37293; /* x281839 */ if (!((t58517.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-LINK[6383] 32210]"); structure_ref_error();} t58514 = t58517.value.structure_type27908->s1; /* x115475 stalin.sc:12998:455336 */ t58515 = a24947; /* x269281 stalin.sc:12998:455300 */ /* EQ: dispatching general to general */ if (!((t58514.tag)==(t58515.tag))) goto l8923; switch (t58514.tag) {case FIXNUM_TYPE: if (!((t58514.value.fixnum_type)==(t58515.value.fixnum_type))) goto l8923; break; case FLONUM_TYPE: if (!((t58514.value.flonum_type)==(t58515.value.flonum_type))) goto l8923; break; case INPUT_PORT_TYPE: if (!((t58514.value.input_port_type)==(t58515.value.input_port_type))) goto l8923; break; case OUTPUT_PORT_TYPE: if (!((t58514.value.output_port_type)==(t58515.value.output_port_type))) goto l8923; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58514.value.native_procedure_type15963)==(t58515.value.native_procedure_type15963))) goto l8923; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58514.value.native_procedure_type19067)==(t58515.value.native_procedure_type19067))) goto l8923; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58514.value.native_procedure_type19068)==(t58515.value.native_procedure_type19068))) goto l8923; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58514.value.native_procedure_type22459)==(t58515.value.native_procedure_type22459))) goto l8923; break; case STRUCTURE_TYPE24753: if (!((t58514.value.structure_type24753)==(t58515.value.structure_type24753))) goto l8923; break; case STRUCTURE_TYPE24757: if (!((t58514.value.structure_type24757)==(t58515.value.structure_type24757))) goto l8923; break; case STRUCTURE_TYPE27501: if (!((t58514.value.structure_type27501)==(t58515.value.structure_type27501))) goto l8923; break; case STRUCTURE_TYPE27510: if (!((t58514.value.structure_type27510)==(t58515.value.structure_type27510))) goto l8923; break; case STRUCTURE_TYPE27621: if (!((t58514.value.structure_type27621)==(t58515.value.structure_type27621))) goto l8923; break; case STRUCTURE_TYPE27650: if (!((t58514.value.structure_type27650)==(t58515.value.structure_type27650))) goto l8923; break; case STRUCTURE_TYPE27669: if (!((t58514.value.structure_type27669)==(t58515.value.structure_type27669))) goto l8923; break; case STRUCTURE_TYPE27673: if (!((t58514.value.structure_type27673)==(t58515.value.structure_type27673))) goto l8923; break; case STRUCTURE_TYPE27692: if (!((t58514.value.structure_type27692)==(t58515.value.structure_type27692))) goto l8923; break; case STRUCTURE_TYPE27694: if (!((t58514.value.structure_type27694)==(t58515.value.structure_type27694))) goto l8923; break; case STRUCTURE_TYPE27698: if (!((t58514.value.structure_type27698)==(t58515.value.structure_type27698))) goto l8923; break; case STRUCTURE_TYPE27745: if (!((t58514.value.structure_type27745)==(t58515.value.structure_type27745))) goto l8923; break; case STRUCTURE_TYPE27747: if (!((t58514.value.structure_type27747)==(t58515.value.structure_type27747))) goto l8923; break; case STRUCTURE_TYPE27750: if (!((t58514.value.structure_type27750)==(t58515.value.structure_type27750))) goto l8923; break; case STRUCTURE_TYPE27753: if (!((t58514.value.structure_type27753)==(t58515.value.structure_type27753))) goto l8923; break; case STRUCTURE_TYPE27756: if (!((t58514.value.structure_type27756)==(t58515.value.structure_type27756))) goto l8923; break; case STRUCTURE_TYPE27761: if (!((t58514.value.structure_type27761)==(t58515.value.structure_type27761))) goto l8923; break; case STRUCTURE_TYPE27769: if (!((t58514.value.structure_type27769)==(t58515.value.structure_type27769))) goto l8923; break; case STRUCTURE_TYPE27776: if (!((t58514.value.structure_type27776)==(t58515.value.structure_type27776))) goto l8923; break; case STRUCTURE_TYPE27779: if (!((t58514.value.structure_type27779)==(t58515.value.structure_type27779))) goto l8923; break; case STRUCTURE_TYPE27858: if (!((t58514.value.structure_type27858)==(t58515.value.structure_type27858))) goto l8923; break; case STRING_TYPE: if (!((t58514.value.string_type)==(t58515.value.string_type))) goto l8923; break; case HEADED_VECTOR_TYPE27896: if (!((t58514.value.headed_vector_type27896)==(t58515.value.headed_vector_type27896))) goto l8923; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58514.value.external_symbol_type)==(t58515.value.external_symbol_type))) goto l8923; break; case STRUCTURE_TYPE27908: if (!((t58514.value.structure_type27908)==(t58515.value.structure_type27908))) goto l8923; break; default:;} /* x115488 */ /* x115482 stalin.sc:12999:455350 */ /* x115481 stalin.sc:13000:455372 */ /* x115480 stalin.sc:13000:455417 */ t58521 = a24945; /* x115479 stalin.sc:13000:455373 */ a37299 = t58521; /* x281865 */ /* x281864 */ t58522 = a37299; /* x281863 */ if (!((t58522.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-DISPLACED-VECTOR-TYPE[6375] 32216]"); structure_ref_error();} t58520 = t58522.value.structure_type27908->s0; /* x115478 stalin.sc:12999:455351 */ t58518 = f12784(t58520); /* x115487 stalin.sc:13001:455425 */ /* x115486 stalin.sc:13002:455447 */ /* x115485 stalin.sc:13002:455492 */ t58524 = a24947; /* x115484 stalin.sc:13002:455448 */ a37300 = t58524; /* x281869 */ /* x281868 */ t58525 = a37300; /* x281867 */ if (!((t58525.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-DISPLACED-VECTOR-TYPE[6375] 32217]"); structure_ref_error();} t58523 = t58525.value.structure_type27908->s0; /* x115483 stalin.sc:13001:455426 */ t58519 = f12784(t58523); /* x269280 stalin.sc:12999:455346 */ /* EQ: dispatching general to general */ if (!((t58518.tag)==(t58519.tag))) goto l8923; switch (t58518.tag) {case FIXNUM_TYPE: if (!((t58518.value.fixnum_type)==(t58519.value.fixnum_type))) goto l8923; break; case FLONUM_TYPE: if (!((t58518.value.flonum_type)==(t58519.value.flonum_type))) goto l8923; break; case INPUT_PORT_TYPE: if (!((t58518.value.input_port_type)==(t58519.value.input_port_type))) goto l8923; break; case OUTPUT_PORT_TYPE: if (!((t58518.value.output_port_type)==(t58519.value.output_port_type))) goto l8923; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58518.value.native_procedure_type15963)==(t58519.value.native_procedure_type15963))) goto l8923; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58518.value.native_procedure_type19067)==(t58519.value.native_procedure_type19067))) goto l8923; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58518.value.native_procedure_type19068)==(t58519.value.native_procedure_type19068))) goto l8923; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58518.value.native_procedure_type22459)==(t58519.value.native_procedure_type22459))) goto l8923; break; case STRUCTURE_TYPE24753: if (!((t58518.value.structure_type24753)==(t58519.value.structure_type24753))) goto l8923; break; case STRUCTURE_TYPE24757: if (!((t58518.value.structure_type24757)==(t58519.value.structure_type24757))) goto l8923; break; case STRUCTURE_TYPE27501: if (!((t58518.value.structure_type27501)==(t58519.value.structure_type27501))) goto l8923; break; case STRUCTURE_TYPE27510: if (!((t58518.value.structure_type27510)==(t58519.value.structure_type27510))) goto l8923; break; case STRUCTURE_TYPE27621: if (!((t58518.value.structure_type27621)==(t58519.value.structure_type27621))) goto l8923; break; case STRUCTURE_TYPE27650: if (!((t58518.value.structure_type27650)==(t58519.value.structure_type27650))) goto l8923; break; case STRUCTURE_TYPE27669: if (!((t58518.value.structure_type27669)==(t58519.value.structure_type27669))) goto l8923; break; case STRUCTURE_TYPE27673: if (!((t58518.value.structure_type27673)==(t58519.value.structure_type27673))) goto l8923; break; case STRUCTURE_TYPE27692: if (!((t58518.value.structure_type27692)==(t58519.value.structure_type27692))) goto l8923; break; case STRUCTURE_TYPE27694: if (!((t58518.value.structure_type27694)==(t58519.value.structure_type27694))) goto l8923; break; case STRUCTURE_TYPE27698: if (!((t58518.value.structure_type27698)==(t58519.value.structure_type27698))) goto l8923; break; case STRUCTURE_TYPE27745: if (!((t58518.value.structure_type27745)==(t58519.value.structure_type27745))) goto l8923; break; case STRUCTURE_TYPE27747: if (!((t58518.value.structure_type27747)==(t58519.value.structure_type27747))) goto l8923; break; case STRUCTURE_TYPE27750: if (!((t58518.value.structure_type27750)==(t58519.value.structure_type27750))) goto l8923; break; case STRUCTURE_TYPE27753: if (!((t58518.value.structure_type27753)==(t58519.value.structure_type27753))) goto l8923; break; case STRUCTURE_TYPE27756: if (!((t58518.value.structure_type27756)==(t58519.value.structure_type27756))) goto l8923; break; case STRUCTURE_TYPE27761: if (!((t58518.value.structure_type27761)==(t58519.value.structure_type27761))) goto l8923; break; case STRUCTURE_TYPE27769: if (!((t58518.value.structure_type27769)==(t58519.value.structure_type27769))) goto l8923; break; case STRUCTURE_TYPE27776: if (!((t58518.value.structure_type27776)==(t58519.value.structure_type27776))) goto l8923; break; case STRUCTURE_TYPE27779: if (!((t58518.value.structure_type27779)==(t58519.value.structure_type27779))) goto l8923; break; case STRUCTURE_TYPE27858: if (!((t58518.value.structure_type27858)==(t58519.value.structure_type27858))) goto l8923; break; case STRING_TYPE: if (!((t58518.value.string_type)==(t58519.value.string_type))) goto l8923; break; case HEADED_VECTOR_TYPE27896: if (!((t58518.value.headed_vector_type27896)==(t58519.value.headed_vector_type27896))) goto l8923; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58518.value.external_symbol_type)==(t58519.value.external_symbol_type))) goto l8923; break; case STRUCTURE_TYPE27908: if (!((t58518.value.structure_type27908)==(t58519.value.structure_type27908))) goto l8923; break; default:;} /* x115526 */ /* x115525 */ /* x115524 */ /* x115507 stalin.sc:13003:455501 */ /* x115498 stalin.sc:13003:455507 */ /* x115497 stalin.sc:13003:455541 */ t58526 = a24947; /* x115496 stalin.sc:13003:455508 */ if (f7589(t58526)==FALSE_TYPE) goto l8927; /* x115504 */ /* x115503 */ /* x115502 stalin.sc:13004:455548 */ /* x115500 stalin.sc:13004:455587 */ t58527 = a24945; /* x115501 stalin.sc:13004:455590 */ /* x115499 stalin.sc:13004:455549 */ f7590(t58527); goto l8928; l8927: /* x115506 stalin.sc:13003:455501 */ /* x115505 stalin.sc:13003:455501 */ l8928: /* x115519 stalin.sc:13005:455597 */ /* x115510 stalin.sc:13005:455603 */ /* x115509 stalin.sc:13005:455632 */ t58528 = a24947; /* x115508 stalin.sc:13005:455604 */ if (f7594(t58528)==FALSE_TYPE) goto l8930; /* x115516 */ /* x115515 */ /* x115514 stalin.sc:13006:455639 */ /* x115512 stalin.sc:13006:455673 */ t58529 = a24945; /* x115513 stalin.sc:13006:455676 */ /* x115511 stalin.sc:13006:455640 */ f7595(t58529); goto l8931; l8930: /* x115518 stalin.sc:13005:455597 */ /* x115517 stalin.sc:13005:455597 */ l8931: /* x115523 stalin.sc:13007:455683 */ /* x115521 stalin.sc:13007:455716 */ t58530 = a24947; /* x115522 stalin.sc:13007:455719 */ t58531 = a24945; /* x115520 stalin.sc:13007:455684 */ f6384(t58530, t58531); /* x115495 */ /* x115494 stalin.sc:13008:455725 */ /* x115493 stalin.sc:13008:455738 */ a24878 = TRUE_TYPE; return; l8923: /* x115528 stalin.sc:12997:455242 */ /* x115527 stalin.sc:12997:455242 */ return;} /* [inside loop 12940] */ void f12940(struct w49 a24936) {struct w49 a37377; /* S */ struct w49 a37378; /* S */ struct w49 a37382; /* S */ struct w49 a37383; /* S */ struct w49 a37393; /* S */ struct w49 a37394; /* S */ struct w49 t58532; struct w49 t58533; struct w49 t58534; struct w49 t58535; struct w49 t58536; struct w49 t58537; struct w49 t58538; struct w49 t58539; struct w49 t58540; struct w49 t58541; struct w49 t58542; struct w49 t58543; struct w49 t58544; struct w49 t58545; struct w49 t58546; struct w49 t58547; struct w49 t58548; struct w49 t58549; struct w49 t58550; struct w49 t58551; struct w49 t58552; struct w49 t58553; struct w49 t58554; struct w49 t58555; struct w49 t58556; struct w49 t58557; struct w49 t58558; struct w49 t58559; struct w49 t58560; struct w49 t58561; struct w49 t58562; struct w49 t58563; /* x115412 stalin.sc:12973:454317 */ /* x115364 stalin.sc:12973:454323 */ /* x115334 stalin.sc:12973:454328 */ /* x115332 stalin.sc:12973:454333 */ /* x115331 stalin.sc:12973:454361 */ t58534 = a24934; /* x115330 stalin.sc:12973:454334 */ a37378 = t58534; /* x282181 */ /* x282180 */ t58535 = a37378; /* x282179 */ if (!((t58535.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-LINK[6325] 32295]"); structure_ref_error();} t58532 = t58535.value.structure_type27669->s2; /* x115333 stalin.sc:12973:454365 */ t58533 = a24934; /* x269289 stalin.sc:12973:454329 */ /* EQ: dispatching general to general */ if (!((t58532.tag)==(t58533.tag))) goto l8933; switch (t58532.tag) {case FIXNUM_TYPE: if (!((t58532.value.fixnum_type)==(t58533.value.fixnum_type))) goto l8933; break; case FLONUM_TYPE: if (!((t58532.value.flonum_type)==(t58533.value.flonum_type))) goto l8933; break; case INPUT_PORT_TYPE: if (!((t58532.value.input_port_type)==(t58533.value.input_port_type))) goto l8933; break; case OUTPUT_PORT_TYPE: if (!((t58532.value.output_port_type)==(t58533.value.output_port_type))) goto l8933; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58532.value.native_procedure_type15963)==(t58533.value.native_procedure_type15963))) goto l8933; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58532.value.native_procedure_type19067)==(t58533.value.native_procedure_type19067))) goto l8933; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58532.value.native_procedure_type19068)==(t58533.value.native_procedure_type19068))) goto l8933; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58532.value.native_procedure_type22459)==(t58533.value.native_procedure_type22459))) goto l8933; break; case STRUCTURE_TYPE24753: if (!((t58532.value.structure_type24753)==(t58533.value.structure_type24753))) goto l8933; break; case STRUCTURE_TYPE24757: if (!((t58532.value.structure_type24757)==(t58533.value.structure_type24757))) goto l8933; break; case STRUCTURE_TYPE27501: if (!((t58532.value.structure_type27501)==(t58533.value.structure_type27501))) goto l8933; break; case STRUCTURE_TYPE27510: if (!((t58532.value.structure_type27510)==(t58533.value.structure_type27510))) goto l8933; break; case STRUCTURE_TYPE27621: if (!((t58532.value.structure_type27621)==(t58533.value.structure_type27621))) goto l8933; break; case STRUCTURE_TYPE27650: if (!((t58532.value.structure_type27650)==(t58533.value.structure_type27650))) goto l8933; break; case STRUCTURE_TYPE27669: if (!((t58532.value.structure_type27669)==(t58533.value.structure_type27669))) goto l8933; break; case STRUCTURE_TYPE27673: if (!((t58532.value.structure_type27673)==(t58533.value.structure_type27673))) goto l8933; break; case STRUCTURE_TYPE27692: if (!((t58532.value.structure_type27692)==(t58533.value.structure_type27692))) goto l8933; break; case STRUCTURE_TYPE27694: if (!((t58532.value.structure_type27694)==(t58533.value.structure_type27694))) goto l8933; break; case STRUCTURE_TYPE27698: if (!((t58532.value.structure_type27698)==(t58533.value.structure_type27698))) goto l8933; break; case STRUCTURE_TYPE27745: if (!((t58532.value.structure_type27745)==(t58533.value.structure_type27745))) goto l8933; break; case STRUCTURE_TYPE27747: if (!((t58532.value.structure_type27747)==(t58533.value.structure_type27747))) goto l8933; break; case STRUCTURE_TYPE27750: if (!((t58532.value.structure_type27750)==(t58533.value.structure_type27750))) goto l8933; break; case STRUCTURE_TYPE27753: if (!((t58532.value.structure_type27753)==(t58533.value.structure_type27753))) goto l8933; break; case STRUCTURE_TYPE27756: if (!((t58532.value.structure_type27756)==(t58533.value.structure_type27756))) goto l8933; break; case STRUCTURE_TYPE27761: if (!((t58532.value.structure_type27761)==(t58533.value.structure_type27761))) goto l8933; break; case STRUCTURE_TYPE27769: if (!((t58532.value.structure_type27769)==(t58533.value.structure_type27769))) goto l8933; break; case STRUCTURE_TYPE27776: if (!((t58532.value.structure_type27776)==(t58533.value.structure_type27776))) goto l8933; break; case STRUCTURE_TYPE27779: if (!((t58532.value.structure_type27779)==(t58533.value.structure_type27779))) goto l8933; break; case STRUCTURE_TYPE27858: if (!((t58532.value.structure_type27858)==(t58533.value.structure_type27858))) goto l8933; break; case STRING_TYPE: if (!((t58532.value.string_type)==(t58533.value.string_type))) goto l8933; break; case HEADED_VECTOR_TYPE27896: if (!((t58532.value.headed_vector_type27896)==(t58533.value.headed_vector_type27896))) goto l8933; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58532.value.external_symbol_type)==(t58533.value.external_symbol_type))) goto l8933; break; case STRUCTURE_TYPE27908: if (!((t58532.value.structure_type27908)==(t58533.value.structure_type27908))) goto l8933; break; default:;} /* x115362 */ /* x115340 stalin.sc:12974:454374 */ /* x115338 stalin.sc:12974:454379 */ /* x115337 stalin.sc:12974:454407 */ t58538 = a24936; /* x115336 stalin.sc:12974:454380 */ a37377 = t58538; /* x282177 */ /* x282176 */ t58539 = a37377; /* x282175 */ if (!((t58539.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-LINK[6325] 32294]"); structure_ref_error();} t58536 = t58539.value.structure_type27669->s2; /* x115339 stalin.sc:12974:454411 */ t58537 = a24936; /* x269288 stalin.sc:12974:454375 */ /* EQ: dispatching general to general */ if (!((t58536.tag)==(t58537.tag))) goto l8933; switch (t58536.tag) {case FIXNUM_TYPE: if (!((t58536.value.fixnum_type)==(t58537.value.fixnum_type))) goto l8933; break; case FLONUM_TYPE: if (!((t58536.value.flonum_type)==(t58537.value.flonum_type))) goto l8933; break; case INPUT_PORT_TYPE: if (!((t58536.value.input_port_type)==(t58537.value.input_port_type))) goto l8933; break; case OUTPUT_PORT_TYPE: if (!((t58536.value.output_port_type)==(t58537.value.output_port_type))) goto l8933; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58536.value.native_procedure_type15963)==(t58537.value.native_procedure_type15963))) goto l8933; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58536.value.native_procedure_type19067)==(t58537.value.native_procedure_type19067))) goto l8933; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58536.value.native_procedure_type19068)==(t58537.value.native_procedure_type19068))) goto l8933; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58536.value.native_procedure_type22459)==(t58537.value.native_procedure_type22459))) goto l8933; break; case STRUCTURE_TYPE24753: if (!((t58536.value.structure_type24753)==(t58537.value.structure_type24753))) goto l8933; break; case STRUCTURE_TYPE24757: if (!((t58536.value.structure_type24757)==(t58537.value.structure_type24757))) goto l8933; break; case STRUCTURE_TYPE27501: if (!((t58536.value.structure_type27501)==(t58537.value.structure_type27501))) goto l8933; break; case STRUCTURE_TYPE27510: if (!((t58536.value.structure_type27510)==(t58537.value.structure_type27510))) goto l8933; break; case STRUCTURE_TYPE27621: if (!((t58536.value.structure_type27621)==(t58537.value.structure_type27621))) goto l8933; break; case STRUCTURE_TYPE27650: if (!((t58536.value.structure_type27650)==(t58537.value.structure_type27650))) goto l8933; break; case STRUCTURE_TYPE27669: if (!((t58536.value.structure_type27669)==(t58537.value.structure_type27669))) goto l8933; break; case STRUCTURE_TYPE27673: if (!((t58536.value.structure_type27673)==(t58537.value.structure_type27673))) goto l8933; break; case STRUCTURE_TYPE27692: if (!((t58536.value.structure_type27692)==(t58537.value.structure_type27692))) goto l8933; break; case STRUCTURE_TYPE27694: if (!((t58536.value.structure_type27694)==(t58537.value.structure_type27694))) goto l8933; break; case STRUCTURE_TYPE27698: if (!((t58536.value.structure_type27698)==(t58537.value.structure_type27698))) goto l8933; break; case STRUCTURE_TYPE27745: if (!((t58536.value.structure_type27745)==(t58537.value.structure_type27745))) goto l8933; break; case STRUCTURE_TYPE27747: if (!((t58536.value.structure_type27747)==(t58537.value.structure_type27747))) goto l8933; break; case STRUCTURE_TYPE27750: if (!((t58536.value.structure_type27750)==(t58537.value.structure_type27750))) goto l8933; break; case STRUCTURE_TYPE27753: if (!((t58536.value.structure_type27753)==(t58537.value.structure_type27753))) goto l8933; break; case STRUCTURE_TYPE27756: if (!((t58536.value.structure_type27756)==(t58537.value.structure_type27756))) goto l8933; break; case STRUCTURE_TYPE27761: if (!((t58536.value.structure_type27761)==(t58537.value.structure_type27761))) goto l8933; break; case STRUCTURE_TYPE27769: if (!((t58536.value.structure_type27769)==(t58537.value.structure_type27769))) goto l8933; break; case STRUCTURE_TYPE27776: if (!((t58536.value.structure_type27776)==(t58537.value.structure_type27776))) goto l8933; break; case STRUCTURE_TYPE27779: if (!((t58536.value.structure_type27779)==(t58537.value.structure_type27779))) goto l8933; break; case STRUCTURE_TYPE27858: if (!((t58536.value.structure_type27858)==(t58537.value.structure_type27858))) goto l8933; break; case STRING_TYPE: if (!((t58536.value.string_type)==(t58537.value.string_type))) goto l8933; break; case HEADED_VECTOR_TYPE27896: if (!((t58536.value.headed_vector_type27896)==(t58537.value.headed_vector_type27896))) goto l8933; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58536.value.external_symbol_type)==(t58537.value.external_symbol_type))) goto l8933; break; case STRUCTURE_TYPE27908: if (!((t58536.value.structure_type27908)==(t58537.value.structure_type27908))) goto l8933; break; default:;} /* x115360 */ /* x115346 stalin.sc:12975:454420 */ /* x115345 stalin.sc:12975:454425 */ /* x115343 stalin.sc:12975:454430 */ t58540 = a24934; /* x115344 stalin.sc:12975:454433 */ t58541 = a24936; /* x269286 stalin.sc:12975:454426 */ /* EQ: dispatching general to general */ if ((t58540.tag)==(t58541.tag)) switch (t58540.tag) {case FIXNUM_TYPE: if ((t58540.value.fixnum_type)==(t58541.value.fixnum_type)) goto l8933; break; case FLONUM_TYPE: if ((t58540.value.flonum_type)==(t58541.value.flonum_type)) goto l8933; break; case INPUT_PORT_TYPE: if ((t58540.value.input_port_type)==(t58541.value.input_port_type)) goto l8933; break; case OUTPUT_PORT_TYPE: if ((t58540.value.output_port_type)==(t58541.value.output_port_type)) goto l8933; break; case NATIVE_PROCEDURE_TYPE15963: if ((t58540.value.native_procedure_type15963)==(t58541.value.native_procedure_type15963)) goto l8933; break; case NATIVE_PROCEDURE_TYPE19067: if ((t58540.value.native_procedure_type19067)==(t58541.value.native_procedure_type19067)) goto l8933; break; case NATIVE_PROCEDURE_TYPE19068: if ((t58540.value.native_procedure_type19068)==(t58541.value.native_procedure_type19068)) goto l8933; break; case NATIVE_PROCEDURE_TYPE22459: if ((t58540.value.native_procedure_type22459)==(t58541.value.native_procedure_type22459)) goto l8933; break; case STRUCTURE_TYPE24753: if ((t58540.value.structure_type24753)==(t58541.value.structure_type24753)) goto l8933; break; case STRUCTURE_TYPE24757: if ((t58540.value.structure_type24757)==(t58541.value.structure_type24757)) goto l8933; break; case STRUCTURE_TYPE27501: if ((t58540.value.structure_type27501)==(t58541.value.structure_type27501)) goto l8933; break; case STRUCTURE_TYPE27510: if ((t58540.value.structure_type27510)==(t58541.value.structure_type27510)) goto l8933; break; case STRUCTURE_TYPE27621: if ((t58540.value.structure_type27621)==(t58541.value.structure_type27621)) goto l8933; break; case STRUCTURE_TYPE27650: if ((t58540.value.structure_type27650)==(t58541.value.structure_type27650)) goto l8933; break; case STRUCTURE_TYPE27669: if ((t58540.value.structure_type27669)==(t58541.value.structure_type27669)) goto l8933; break; case STRUCTURE_TYPE27673: if ((t58540.value.structure_type27673)==(t58541.value.structure_type27673)) goto l8933; break; case STRUCTURE_TYPE27692: if ((t58540.value.structure_type27692)==(t58541.value.structure_type27692)) goto l8933; break; case STRUCTURE_TYPE27694: if ((t58540.value.structure_type27694)==(t58541.value.structure_type27694)) goto l8933; break; case STRUCTURE_TYPE27698: if ((t58540.value.structure_type27698)==(t58541.value.structure_type27698)) goto l8933; break; case STRUCTURE_TYPE27745: if ((t58540.value.structure_type27745)==(t58541.value.structure_type27745)) goto l8933; break; case STRUCTURE_TYPE27747: if ((t58540.value.structure_type27747)==(t58541.value.structure_type27747)) goto l8933; break; case STRUCTURE_TYPE27750: if ((t58540.value.structure_type27750)==(t58541.value.structure_type27750)) goto l8933; break; case STRUCTURE_TYPE27753: if ((t58540.value.structure_type27753)==(t58541.value.structure_type27753)) goto l8933; break; case STRUCTURE_TYPE27756: if ((t58540.value.structure_type27756)==(t58541.value.structure_type27756)) goto l8933; break; case STRUCTURE_TYPE27761: if ((t58540.value.structure_type27761)==(t58541.value.structure_type27761)) goto l8933; break; case STRUCTURE_TYPE27769: if ((t58540.value.structure_type27769)==(t58541.value.structure_type27769)) goto l8933; break; case STRUCTURE_TYPE27776: if ((t58540.value.structure_type27776)==(t58541.value.structure_type27776)) goto l8933; break; case STRUCTURE_TYPE27779: if ((t58540.value.structure_type27779)==(t58541.value.structure_type27779)) goto l8933; break; case STRUCTURE_TYPE27858: if ((t58540.value.structure_type27858)==(t58541.value.structure_type27858)) goto l8933; break; case STRING_TYPE: if ((t58540.value.string_type)==(t58541.value.string_type)) goto l8933; break; case HEADED_VECTOR_TYPE27896: if ((t58540.value.headed_vector_type27896)==(t58541.value.headed_vector_type27896)) goto l8933; break; case EXTERNAL_SYMBOL_TYPE: if ((t58540.value.external_symbol_type)==(t58541.value.external_symbol_type)) goto l8933; break; case STRUCTURE_TYPE27908: if ((t58540.value.structure_type27908)==(t58541.value.structure_type27908)) goto l8933; break; default: goto l8933;} /* x115358 */ /* x115352 stalin.sc:12976:454448 */ /* x115351 stalin.sc:12977:454474 */ /* x115350 stalin.sc:12977:454505 */ t58545 = a24934; /* x115349 stalin.sc:12977:454475 */ a37393 = t58545; /* x282241 */ /* x282240 */ t58546 = a37393; /* x282239 */ if (!((t58546.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ELEMENT[6309] 32310]"); structure_ref_error();} t58544 = t58546.value.structure_type27669->s0; /* x115348 stalin.sc:12976:454449 */ t58542 = f12820(t58544); /* x115357 stalin.sc:12978:454513 */ /* x115356 stalin.sc:12979:454539 */ /* x115355 stalin.sc:12979:454570 */ t58548 = a24936; /* x115354 stalin.sc:12979:454540 */ a37394 = t58548; /* x282245 */ /* x282244 */ t58549 = a37394; /* x282243 */ if (!((t58549.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ELEMENT[6309] 32311]"); structure_ref_error();} t58547 = t58549.value.structure_type27669->s0; /* x115353 stalin.sc:12978:454514 */ t58543 = f12820(t58547); /* x269285 stalin.sc:12976:454444 */ /* EQ: dispatching general to general */ if (!((t58542.tag)==(t58543.tag))) goto l8933; switch (t58542.tag) {case FIXNUM_TYPE: if (!((t58542.value.fixnum_type)==(t58543.value.fixnum_type))) goto l8933; break; case FLONUM_TYPE: if (!((t58542.value.flonum_type)==(t58543.value.flonum_type))) goto l8933; break; case INPUT_PORT_TYPE: if (!((t58542.value.input_port_type)==(t58543.value.input_port_type))) goto l8933; break; case OUTPUT_PORT_TYPE: if (!((t58542.value.output_port_type)==(t58543.value.output_port_type))) goto l8933; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58542.value.native_procedure_type15963)==(t58543.value.native_procedure_type15963))) goto l8933; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58542.value.native_procedure_type19067)==(t58543.value.native_procedure_type19067))) goto l8933; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58542.value.native_procedure_type19068)==(t58543.value.native_procedure_type19068))) goto l8933; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58542.value.native_procedure_type22459)==(t58543.value.native_procedure_type22459))) goto l8933; break; case STRUCTURE_TYPE24753: if (!((t58542.value.structure_type24753)==(t58543.value.structure_type24753))) goto l8933; break; case STRUCTURE_TYPE24757: if (!((t58542.value.structure_type24757)==(t58543.value.structure_type24757))) goto l8933; break; case STRUCTURE_TYPE27501: if (!((t58542.value.structure_type27501)==(t58543.value.structure_type27501))) goto l8933; break; case STRUCTURE_TYPE27510: if (!((t58542.value.structure_type27510)==(t58543.value.structure_type27510))) goto l8933; break; case STRUCTURE_TYPE27621: if (!((t58542.value.structure_type27621)==(t58543.value.structure_type27621))) goto l8933; break; case STRUCTURE_TYPE27650: if (!((t58542.value.structure_type27650)==(t58543.value.structure_type27650))) goto l8933; break; case STRUCTURE_TYPE27669: if (!((t58542.value.structure_type27669)==(t58543.value.structure_type27669))) goto l8933; break; case STRUCTURE_TYPE27673: if (!((t58542.value.structure_type27673)==(t58543.value.structure_type27673))) goto l8933; break; case STRUCTURE_TYPE27692: if (!((t58542.value.structure_type27692)==(t58543.value.structure_type27692))) goto l8933; break; case STRUCTURE_TYPE27694: if (!((t58542.value.structure_type27694)==(t58543.value.structure_type27694))) goto l8933; break; case STRUCTURE_TYPE27698: if (!((t58542.value.structure_type27698)==(t58543.value.structure_type27698))) goto l8933; break; case STRUCTURE_TYPE27745: if (!((t58542.value.structure_type27745)==(t58543.value.structure_type27745))) goto l8933; break; case STRUCTURE_TYPE27747: if (!((t58542.value.structure_type27747)==(t58543.value.structure_type27747))) goto l8933; break; case STRUCTURE_TYPE27750: if (!((t58542.value.structure_type27750)==(t58543.value.structure_type27750))) goto l8933; break; case STRUCTURE_TYPE27753: if (!((t58542.value.structure_type27753)==(t58543.value.structure_type27753))) goto l8933; break; case STRUCTURE_TYPE27756: if (!((t58542.value.structure_type27756)==(t58543.value.structure_type27756))) goto l8933; break; case STRUCTURE_TYPE27761: if (!((t58542.value.structure_type27761)==(t58543.value.structure_type27761))) goto l8933; break; case STRUCTURE_TYPE27769: if (!((t58542.value.structure_type27769)==(t58543.value.structure_type27769))) goto l8933; break; case STRUCTURE_TYPE27776: if (!((t58542.value.structure_type27776)==(t58543.value.structure_type27776))) goto l8933; break; case STRUCTURE_TYPE27779: if (!((t58542.value.structure_type27779)==(t58543.value.structure_type27779))) goto l8933; break; case STRUCTURE_TYPE27858: if (!((t58542.value.structure_type27858)==(t58543.value.structure_type27858))) goto l8933; break; case STRING_TYPE: if (!((t58542.value.string_type)==(t58543.value.string_type))) goto l8933; break; case HEADED_VECTOR_TYPE27896: if (!((t58542.value.headed_vector_type27896)==(t58543.value.headed_vector_type27896))) goto l8933; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58542.value.external_symbol_type)==(t58543.value.external_symbol_type))) goto l8933; break; case STRUCTURE_TYPE27908: if (!((t58542.value.structure_type27908)==(t58543.value.structure_type27908))) goto l8933; break; default:;} /* x115409 */ /* x115408 */ /* x115407 */ /* x115378 stalin.sc:12980:454579 */ /* x115369 stalin.sc:12981:454633 */ t58550 = a24934; /* x115377 stalin.sc:12982:454639 */ /* x115373 stalin.sc:12982:454647 */ /* x115372 stalin.sc:12982:454693 */ t58554 = a24934; /* x115371 stalin.sc:12982:454648 */ a37382 = t58554; /* x282197 */ /* x282196 */ t58555 = a37382; /* x282195 */ if (!((t58555.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS[6317] 32299]"); structure_ref_error();} t58552 = t58555.value.structure_type27669->s1; /* x115376 stalin.sc:12983:454701 */ /* x115375 stalin.sc:12983:454747 */ t58556 = a24936; /* x115374 stalin.sc:12983:454702 */ a37383 = t58556; /* x282201 */ /* x282200 */ t58557 = a37383; /* x282199 */ if (!((t58557.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS[6317] 32300]"); structure_ref_error();} t58553 = t58557.value.structure_type27669->s1; /* x115370 stalin.sc:12982:454640 */ t58551 = f1390(t58552, t58553); /* x115368 stalin.sc:12980:454580 */ f6318(t58550, t58551); /* x115390 stalin.sc:12984:454755 */ /* x115381 stalin.sc:12984:454761 */ /* x115380 stalin.sc:12984:454795 */ t58558 = a24936; /* x115379 stalin.sc:12984:454762 */ if (f7539(t58558)==FALSE_TYPE) goto l8938; /* x115387 */ /* x115386 */ /* x115385 stalin.sc:12985:454802 */ /* x115383 stalin.sc:12985:454841 */ t58559 = a24934; /* x115384 stalin.sc:12985:454844 */ /* x115382 stalin.sc:12985:454803 */ f7540(t58559); goto l8939; l8938: /* x115389 stalin.sc:12984:454755 */ /* x115388 stalin.sc:12984:454755 */ l8939: /* x115402 stalin.sc:12986:454851 */ /* x115393 stalin.sc:12986:454857 */ /* x115392 stalin.sc:12986:454886 */ t58560 = a24936; /* x115391 stalin.sc:12986:454858 */ if (f7544(t58560)==FALSE_TYPE) goto l8941; /* x115399 */ /* x115398 */ /* x115397 stalin.sc:12987:454893 */ /* x115395 stalin.sc:12987:454927 */ t58561 = a24934; /* x115396 stalin.sc:12987:454930 */ /* x115394 stalin.sc:12987:454894 */ f7545(t58561); goto l8942; l8941: /* x115401 stalin.sc:12986:454851 */ /* x115400 stalin.sc:12986:454851 */ l8942: /* x115406 stalin.sc:12988:454937 */ /* x115404 stalin.sc:12988:454970 */ t58562 = a24936; /* x115405 stalin.sc:12988:454973 */ t58563 = a24934; /* x115403 stalin.sc:12988:454938 */ f6326(t58562, t58563); /* x115367 */ /* x115366 stalin.sc:12989:454979 */ /* x115365 stalin.sc:12989:454992 */ a24878 = TRUE_TYPE; return; l8933: /* x115411 stalin.sc:12973:454317 */ /* x115410 stalin.sc:12973:454317 */ return;} /* [inside loop 12919] */ void f12919(struct w49 a24924) {struct w49 a37480; /* S */ struct w49 a37481; /* S */ struct w49 a37490; /* S */ struct w49 a37491; /* S */ struct w49 a37505; /* S */ struct w49 a37506; /* S */ struct w49 t58564; struct w49 t58565; struct w49 t58566; struct w49 t58567; struct w49 t58568; struct w49 t58569; struct w49 t58570; struct w49 t58571; struct w49 t58572; struct w49 t58573; struct w49 t58574; struct w49 t58575; struct w49 t58576; struct w49 t58577; struct w49 t58578; struct w49 t58579; struct w49 t58580; struct w49 t58581; struct w49 t58582; struct w49 t58583; struct w49 t58584; struct w49 t58585; struct w49 t58586; struct w49 t58587; struct w49 t58588; struct w49 t58589; struct w49 t58590; struct w49 t58591; struct w49 t58592; struct w49 t58593; struct w49 t58594; struct w49 t58595; struct w49 t58596; struct w49 t58597; /* x115276 stalin.sc:12948:453324 */ /* x115216 stalin.sc:12948:453330 */ /* x115186 stalin.sc:12949:453343 */ /* x115184 stalin.sc:12949:453348 */ /* x115183 stalin.sc:12949:453373 */ t58566 = a24922; /* x115182 stalin.sc:12949:453349 */ a37481 = t58566; /* x282593 */ /* x282592 */ t58567 = a37481; /* x282591 */ if (!((t58567.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-LINK[6259] 32398]"); structure_ref_error();} t58564 = t58567.value.structure_type27761->s2; /* x115185 stalin.sc:12949:453377 */ t58565 = a24922; /* x269296 stalin.sc:12949:453344 */ /* EQ: dispatching general to general */ if (!((t58564.tag)==(t58565.tag))) goto l8944; switch (t58564.tag) {case FIXNUM_TYPE: if (!((t58564.value.fixnum_type)==(t58565.value.fixnum_type))) goto l8944; break; case FLONUM_TYPE: if (!((t58564.value.flonum_type)==(t58565.value.flonum_type))) goto l8944; break; case INPUT_PORT_TYPE: if (!((t58564.value.input_port_type)==(t58565.value.input_port_type))) goto l8944; break; case OUTPUT_PORT_TYPE: if (!((t58564.value.output_port_type)==(t58565.value.output_port_type))) goto l8944; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58564.value.native_procedure_type15963)==(t58565.value.native_procedure_type15963))) goto l8944; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58564.value.native_procedure_type19067)==(t58565.value.native_procedure_type19067))) goto l8944; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58564.value.native_procedure_type19068)==(t58565.value.native_procedure_type19068))) goto l8944; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58564.value.native_procedure_type22459)==(t58565.value.native_procedure_type22459))) goto l8944; break; case STRUCTURE_TYPE24753: if (!((t58564.value.structure_type24753)==(t58565.value.structure_type24753))) goto l8944; break; case STRUCTURE_TYPE24757: if (!((t58564.value.structure_type24757)==(t58565.value.structure_type24757))) goto l8944; break; case STRUCTURE_TYPE27501: if (!((t58564.value.structure_type27501)==(t58565.value.structure_type27501))) goto l8944; break; case STRUCTURE_TYPE27510: if (!((t58564.value.structure_type27510)==(t58565.value.structure_type27510))) goto l8944; break; case STRUCTURE_TYPE27621: if (!((t58564.value.structure_type27621)==(t58565.value.structure_type27621))) goto l8944; break; case STRUCTURE_TYPE27650: if (!((t58564.value.structure_type27650)==(t58565.value.structure_type27650))) goto l8944; break; case STRUCTURE_TYPE27669: if (!((t58564.value.structure_type27669)==(t58565.value.structure_type27669))) goto l8944; break; case STRUCTURE_TYPE27673: if (!((t58564.value.structure_type27673)==(t58565.value.structure_type27673))) goto l8944; break; case STRUCTURE_TYPE27692: if (!((t58564.value.structure_type27692)==(t58565.value.structure_type27692))) goto l8944; break; case STRUCTURE_TYPE27694: if (!((t58564.value.structure_type27694)==(t58565.value.structure_type27694))) goto l8944; break; case STRUCTURE_TYPE27698: if (!((t58564.value.structure_type27698)==(t58565.value.structure_type27698))) goto l8944; break; case STRUCTURE_TYPE27745: if (!((t58564.value.structure_type27745)==(t58565.value.structure_type27745))) goto l8944; break; case STRUCTURE_TYPE27747: if (!((t58564.value.structure_type27747)==(t58565.value.structure_type27747))) goto l8944; break; case STRUCTURE_TYPE27750: if (!((t58564.value.structure_type27750)==(t58565.value.structure_type27750))) goto l8944; break; case STRUCTURE_TYPE27753: if (!((t58564.value.structure_type27753)==(t58565.value.structure_type27753))) goto l8944; break; case STRUCTURE_TYPE27756: if (!((t58564.value.structure_type27756)==(t58565.value.structure_type27756))) goto l8944; break; case STRUCTURE_TYPE27761: if (!((t58564.value.structure_type27761)==(t58565.value.structure_type27761))) goto l8944; break; case STRUCTURE_TYPE27769: if (!((t58564.value.structure_type27769)==(t58565.value.structure_type27769))) goto l8944; break; case STRUCTURE_TYPE27776: if (!((t58564.value.structure_type27776)==(t58565.value.structure_type27776))) goto l8944; break; case STRUCTURE_TYPE27779: if (!((t58564.value.structure_type27779)==(t58565.value.structure_type27779))) goto l8944; break; case STRUCTURE_TYPE27858: if (!((t58564.value.structure_type27858)==(t58565.value.structure_type27858))) goto l8944; break; case STRING_TYPE: if (!((t58564.value.string_type)==(t58565.value.string_type))) goto l8944; break; case HEADED_VECTOR_TYPE27896: if (!((t58564.value.headed_vector_type27896)==(t58565.value.headed_vector_type27896))) goto l8944; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58564.value.external_symbol_type)==(t58565.value.external_symbol_type))) goto l8944; break; case STRUCTURE_TYPE27908: if (!((t58564.value.structure_type27908)==(t58565.value.structure_type27908))) goto l8944; break; default:;} /* x115214 */ /* x115192 stalin.sc:12950:453389 */ /* x115190 stalin.sc:12950:453394 */ /* x115189 stalin.sc:12950:453419 */ t58570 = a24924; /* x115188 stalin.sc:12950:453395 */ a37480 = t58570; /* x282589 */ /* x282588 */ t58571 = a37480; /* x282587 */ if (!((t58571.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-LINK[6259] 32397]"); structure_ref_error();} t58568 = t58571.value.structure_type27761->s2; /* x115191 stalin.sc:12950:453423 */ t58569 = a24924; /* x269295 stalin.sc:12950:453390 */ /* EQ: dispatching general to general */ if (!((t58568.tag)==(t58569.tag))) goto l8944; switch (t58568.tag) {case FIXNUM_TYPE: if (!((t58568.value.fixnum_type)==(t58569.value.fixnum_type))) goto l8944; break; case FLONUM_TYPE: if (!((t58568.value.flonum_type)==(t58569.value.flonum_type))) goto l8944; break; case INPUT_PORT_TYPE: if (!((t58568.value.input_port_type)==(t58569.value.input_port_type))) goto l8944; break; case OUTPUT_PORT_TYPE: if (!((t58568.value.output_port_type)==(t58569.value.output_port_type))) goto l8944; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58568.value.native_procedure_type15963)==(t58569.value.native_procedure_type15963))) goto l8944; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58568.value.native_procedure_type19067)==(t58569.value.native_procedure_type19067))) goto l8944; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58568.value.native_procedure_type19068)==(t58569.value.native_procedure_type19068))) goto l8944; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58568.value.native_procedure_type22459)==(t58569.value.native_procedure_type22459))) goto l8944; break; case STRUCTURE_TYPE24753: if (!((t58568.value.structure_type24753)==(t58569.value.structure_type24753))) goto l8944; break; case STRUCTURE_TYPE24757: if (!((t58568.value.structure_type24757)==(t58569.value.structure_type24757))) goto l8944; break; case STRUCTURE_TYPE27501: if (!((t58568.value.structure_type27501)==(t58569.value.structure_type27501))) goto l8944; break; case STRUCTURE_TYPE27510: if (!((t58568.value.structure_type27510)==(t58569.value.structure_type27510))) goto l8944; break; case STRUCTURE_TYPE27621: if (!((t58568.value.structure_type27621)==(t58569.value.structure_type27621))) goto l8944; break; case STRUCTURE_TYPE27650: if (!((t58568.value.structure_type27650)==(t58569.value.structure_type27650))) goto l8944; break; case STRUCTURE_TYPE27669: if (!((t58568.value.structure_type27669)==(t58569.value.structure_type27669))) goto l8944; break; case STRUCTURE_TYPE27673: if (!((t58568.value.structure_type27673)==(t58569.value.structure_type27673))) goto l8944; break; case STRUCTURE_TYPE27692: if (!((t58568.value.structure_type27692)==(t58569.value.structure_type27692))) goto l8944; break; case STRUCTURE_TYPE27694: if (!((t58568.value.structure_type27694)==(t58569.value.structure_type27694))) goto l8944; break; case STRUCTURE_TYPE27698: if (!((t58568.value.structure_type27698)==(t58569.value.structure_type27698))) goto l8944; break; case STRUCTURE_TYPE27745: if (!((t58568.value.structure_type27745)==(t58569.value.structure_type27745))) goto l8944; break; case STRUCTURE_TYPE27747: if (!((t58568.value.structure_type27747)==(t58569.value.structure_type27747))) goto l8944; break; case STRUCTURE_TYPE27750: if (!((t58568.value.structure_type27750)==(t58569.value.structure_type27750))) goto l8944; break; case STRUCTURE_TYPE27753: if (!((t58568.value.structure_type27753)==(t58569.value.structure_type27753))) goto l8944; break; case STRUCTURE_TYPE27756: if (!((t58568.value.structure_type27756)==(t58569.value.structure_type27756))) goto l8944; break; case STRUCTURE_TYPE27761: if (!((t58568.value.structure_type27761)==(t58569.value.structure_type27761))) goto l8944; break; case STRUCTURE_TYPE27769: if (!((t58568.value.structure_type27769)==(t58569.value.structure_type27769))) goto l8944; break; case STRUCTURE_TYPE27776: if (!((t58568.value.structure_type27776)==(t58569.value.structure_type27776))) goto l8944; break; case STRUCTURE_TYPE27779: if (!((t58568.value.structure_type27779)==(t58569.value.structure_type27779))) goto l8944; break; case STRUCTURE_TYPE27858: if (!((t58568.value.structure_type27858)==(t58569.value.structure_type27858))) goto l8944; break; case STRING_TYPE: if (!((t58568.value.string_type)==(t58569.value.string_type))) goto l8944; break; case HEADED_VECTOR_TYPE27896: if (!((t58568.value.headed_vector_type27896)==(t58569.value.headed_vector_type27896))) goto l8944; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58568.value.external_symbol_type)==(t58569.value.external_symbol_type))) goto l8944; break; case STRUCTURE_TYPE27908: if (!((t58568.value.structure_type27908)==(t58569.value.structure_type27908))) goto l8944; break; default:;} /* x115212 */ /* x115198 stalin.sc:12951:453435 */ /* x115197 stalin.sc:12951:453440 */ /* x115195 stalin.sc:12951:453445 */ t58572 = a24922; /* x115196 stalin.sc:12951:453448 */ t58573 = a24924; /* x269293 stalin.sc:12951:453441 */ /* EQ: dispatching general to general */ if ((t58572.tag)==(t58573.tag)) switch (t58572.tag) {case FIXNUM_TYPE: if ((t58572.value.fixnum_type)==(t58573.value.fixnum_type)) goto l8944; break; case FLONUM_TYPE: if ((t58572.value.flonum_type)==(t58573.value.flonum_type)) goto l8944; break; case INPUT_PORT_TYPE: if ((t58572.value.input_port_type)==(t58573.value.input_port_type)) goto l8944; break; case OUTPUT_PORT_TYPE: if ((t58572.value.output_port_type)==(t58573.value.output_port_type)) goto l8944; break; case NATIVE_PROCEDURE_TYPE15963: if ((t58572.value.native_procedure_type15963)==(t58573.value.native_procedure_type15963)) goto l8944; break; case NATIVE_PROCEDURE_TYPE19067: if ((t58572.value.native_procedure_type19067)==(t58573.value.native_procedure_type19067)) goto l8944; break; case NATIVE_PROCEDURE_TYPE19068: if ((t58572.value.native_procedure_type19068)==(t58573.value.native_procedure_type19068)) goto l8944; break; case NATIVE_PROCEDURE_TYPE22459: if ((t58572.value.native_procedure_type22459)==(t58573.value.native_procedure_type22459)) goto l8944; break; case STRUCTURE_TYPE24753: if ((t58572.value.structure_type24753)==(t58573.value.structure_type24753)) goto l8944; break; case STRUCTURE_TYPE24757: if ((t58572.value.structure_type24757)==(t58573.value.structure_type24757)) goto l8944; break; case STRUCTURE_TYPE27501: if ((t58572.value.structure_type27501)==(t58573.value.structure_type27501)) goto l8944; break; case STRUCTURE_TYPE27510: if ((t58572.value.structure_type27510)==(t58573.value.structure_type27510)) goto l8944; break; case STRUCTURE_TYPE27621: if ((t58572.value.structure_type27621)==(t58573.value.structure_type27621)) goto l8944; break; case STRUCTURE_TYPE27650: if ((t58572.value.structure_type27650)==(t58573.value.structure_type27650)) goto l8944; break; case STRUCTURE_TYPE27669: if ((t58572.value.structure_type27669)==(t58573.value.structure_type27669)) goto l8944; break; case STRUCTURE_TYPE27673: if ((t58572.value.structure_type27673)==(t58573.value.structure_type27673)) goto l8944; break; case STRUCTURE_TYPE27692: if ((t58572.value.structure_type27692)==(t58573.value.structure_type27692)) goto l8944; break; case STRUCTURE_TYPE27694: if ((t58572.value.structure_type27694)==(t58573.value.structure_type27694)) goto l8944; break; case STRUCTURE_TYPE27698: if ((t58572.value.structure_type27698)==(t58573.value.structure_type27698)) goto l8944; break; case STRUCTURE_TYPE27745: if ((t58572.value.structure_type27745)==(t58573.value.structure_type27745)) goto l8944; break; case STRUCTURE_TYPE27747: if ((t58572.value.structure_type27747)==(t58573.value.structure_type27747)) goto l8944; break; case STRUCTURE_TYPE27750: if ((t58572.value.structure_type27750)==(t58573.value.structure_type27750)) goto l8944; break; case STRUCTURE_TYPE27753: if ((t58572.value.structure_type27753)==(t58573.value.structure_type27753)) goto l8944; break; case STRUCTURE_TYPE27756: if ((t58572.value.structure_type27756)==(t58573.value.structure_type27756)) goto l8944; break; case STRUCTURE_TYPE27761: if ((t58572.value.structure_type27761)==(t58573.value.structure_type27761)) goto l8944; break; case STRUCTURE_TYPE27769: if ((t58572.value.structure_type27769)==(t58573.value.structure_type27769)) goto l8944; break; case STRUCTURE_TYPE27776: if ((t58572.value.structure_type27776)==(t58573.value.structure_type27776)) goto l8944; break; case STRUCTURE_TYPE27779: if ((t58572.value.structure_type27779)==(t58573.value.structure_type27779)) goto l8944; break; case STRUCTURE_TYPE27858: if ((t58572.value.structure_type27858)==(t58573.value.structure_type27858)) goto l8944; break; case STRING_TYPE: if ((t58572.value.string_type)==(t58573.value.string_type)) goto l8944; break; case HEADED_VECTOR_TYPE27896: if ((t58572.value.headed_vector_type27896)==(t58573.value.headed_vector_type27896)) goto l8944; break; case EXTERNAL_SYMBOL_TYPE: if ((t58572.value.external_symbol_type)==(t58573.value.external_symbol_type)) goto l8944; break; case STRUCTURE_TYPE27908: if ((t58572.value.structure_type27908)==(t58573.value.structure_type27908)) goto l8944; break; default: goto l8944;} /* x115210 */ /* x115204 stalin.sc:12952:453466 */ /* x115203 stalin.sc:12952:453488 */ /* x115202 stalin.sc:12952:453516 */ t58577 = a24922; /* x115201 stalin.sc:12952:453489 */ a37505 = t58577; /* x282689 */ /* x282688 */ t58578 = a37505; /* x282687 */ if (!((t58578.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32422]"); structure_ref_error();} t58576 = t58578.value.structure_type27761->s0; /* x115200 stalin.sc:12952:453467 */ t58574 = f12820(t58576); /* x115209 stalin.sc:12953:453527 */ /* x115208 stalin.sc:12953:453549 */ /* x115207 stalin.sc:12953:453577 */ t58580 = a24924; /* x115206 stalin.sc:12953:453550 */ a37506 = t58580; /* x282693 */ /* x282692 */ t58581 = a37506; /* x282691 */ if (!((t58581.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32423]"); structure_ref_error();} t58579 = t58581.value.structure_type27761->s0; /* x115205 stalin.sc:12953:453528 */ t58575 = f12820(t58579); /* x269292 stalin.sc:12952:453462 */ /* EQ: dispatching general to general */ if (!((t58574.tag)==(t58575.tag))) goto l8944; switch (t58574.tag) {case FIXNUM_TYPE: if (!((t58574.value.fixnum_type)==(t58575.value.fixnum_type))) goto l8944; break; case FLONUM_TYPE: if (!((t58574.value.flonum_type)==(t58575.value.flonum_type))) goto l8944; break; case INPUT_PORT_TYPE: if (!((t58574.value.input_port_type)==(t58575.value.input_port_type))) goto l8944; break; case OUTPUT_PORT_TYPE: if (!((t58574.value.output_port_type)==(t58575.value.output_port_type))) goto l8944; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58574.value.native_procedure_type15963)==(t58575.value.native_procedure_type15963))) goto l8944; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58574.value.native_procedure_type19067)==(t58575.value.native_procedure_type19067))) goto l8944; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58574.value.native_procedure_type19068)==(t58575.value.native_procedure_type19068))) goto l8944; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58574.value.native_procedure_type22459)==(t58575.value.native_procedure_type22459))) goto l8944; break; case STRUCTURE_TYPE24753: if (!((t58574.value.structure_type24753)==(t58575.value.structure_type24753))) goto l8944; break; case STRUCTURE_TYPE24757: if (!((t58574.value.structure_type24757)==(t58575.value.structure_type24757))) goto l8944; break; case STRUCTURE_TYPE27501: if (!((t58574.value.structure_type27501)==(t58575.value.structure_type27501))) goto l8944; break; case STRUCTURE_TYPE27510: if (!((t58574.value.structure_type27510)==(t58575.value.structure_type27510))) goto l8944; break; case STRUCTURE_TYPE27621: if (!((t58574.value.structure_type27621)==(t58575.value.structure_type27621))) goto l8944; break; case STRUCTURE_TYPE27650: if (!((t58574.value.structure_type27650)==(t58575.value.structure_type27650))) goto l8944; break; case STRUCTURE_TYPE27669: if (!((t58574.value.structure_type27669)==(t58575.value.structure_type27669))) goto l8944; break; case STRUCTURE_TYPE27673: if (!((t58574.value.structure_type27673)==(t58575.value.structure_type27673))) goto l8944; break; case STRUCTURE_TYPE27692: if (!((t58574.value.structure_type27692)==(t58575.value.structure_type27692))) goto l8944; break; case STRUCTURE_TYPE27694: if (!((t58574.value.structure_type27694)==(t58575.value.structure_type27694))) goto l8944; break; case STRUCTURE_TYPE27698: if (!((t58574.value.structure_type27698)==(t58575.value.structure_type27698))) goto l8944; break; case STRUCTURE_TYPE27745: if (!((t58574.value.structure_type27745)==(t58575.value.structure_type27745))) goto l8944; break; case STRUCTURE_TYPE27747: if (!((t58574.value.structure_type27747)==(t58575.value.structure_type27747))) goto l8944; break; case STRUCTURE_TYPE27750: if (!((t58574.value.structure_type27750)==(t58575.value.structure_type27750))) goto l8944; break; case STRUCTURE_TYPE27753: if (!((t58574.value.structure_type27753)==(t58575.value.structure_type27753))) goto l8944; break; case STRUCTURE_TYPE27756: if (!((t58574.value.structure_type27756)==(t58575.value.structure_type27756))) goto l8944; break; case STRUCTURE_TYPE27761: if (!((t58574.value.structure_type27761)==(t58575.value.structure_type27761))) goto l8944; break; case STRUCTURE_TYPE27769: if (!((t58574.value.structure_type27769)==(t58575.value.structure_type27769))) goto l8944; break; case STRUCTURE_TYPE27776: if (!((t58574.value.structure_type27776)==(t58575.value.structure_type27776))) goto l8944; break; case STRUCTURE_TYPE27779: if (!((t58574.value.structure_type27779)==(t58575.value.structure_type27779))) goto l8944; break; case STRUCTURE_TYPE27858: if (!((t58574.value.structure_type27858)==(t58575.value.structure_type27858))) goto l8944; break; case STRING_TYPE: if (!((t58574.value.string_type)==(t58575.value.string_type))) goto l8944; break; case HEADED_VECTOR_TYPE27896: if (!((t58574.value.headed_vector_type27896)==(t58575.value.headed_vector_type27896))) goto l8944; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58574.value.external_symbol_type)==(t58575.value.external_symbol_type))) goto l8944; break; case STRUCTURE_TYPE27908: if (!((t58574.value.structure_type27908)==(t58575.value.structure_type27908))) goto l8944; break; default:;} /* x115273 */ /* x115272 */ /* x115271 */ /* x115230 stalin.sc:12954:453586 */ /* x115221 stalin.sc:12955:453637 */ t58582 = a24922; /* x115229 stalin.sc:12956:453643 */ /* x115225 stalin.sc:12956:453651 */ /* x115224 stalin.sc:12956:453694 */ t58586 = a24922; /* x115223 stalin.sc:12956:453652 */ a37490 = t58586; /* x282629 */ /* x282628 */ t58587 = a37490; /* x282627 */ if (!((t58587.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS[6251] 32407]"); structure_ref_error();} t58584 = t58587.value.structure_type27761->s1; /* x115228 stalin.sc:12957:453702 */ /* x115227 stalin.sc:12957:453745 */ t58588 = a24924; /* x115226 stalin.sc:12957:453703 */ a37491 = t58588; /* x282633 */ /* x282632 */ t58589 = a37491; /* x282631 */ if (!((t58589.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS[6251] 32408]"); structure_ref_error();} t58585 = t58589.value.structure_type27761->s1; /* x115222 stalin.sc:12956:453644 */ t58583 = f1390(t58584, t58585); /* x115220 stalin.sc:12954:453587 */ f6252(t58582, t58583); /* x115242 stalin.sc:12958:453753 */ /* x115233 stalin.sc:12958:453759 */ /* x115232 stalin.sc:12958:453790 */ t58590 = a24924; /* x115231 stalin.sc:12958:453760 */ if (f7484(t58590)==FALSE_TYPE) goto l8949; /* x115239 */ /* x115238 */ /* x115237 stalin.sc:12959:453797 */ /* x115235 stalin.sc:12959:453833 */ t58591 = a24922; /* x115236 stalin.sc:12959:453836 */ /* x115234 stalin.sc:12959:453798 */ f7485(t58591); goto l8950; l8949: /* x115241 stalin.sc:12958:453753 */ /* x115240 stalin.sc:12958:453753 */ l8950: /* x115254 stalin.sc:12960:453843 */ /* x115245 stalin.sc:12960:453849 */ /* x115244 stalin.sc:12960:453881 */ t58592 = a24924; /* x115243 stalin.sc:12960:453850 */ if (f7489(t58592)==FALSE_TYPE) goto l8952; /* x115251 */ /* x115250 */ /* x115249 stalin.sc:12961:453888 */ /* x115247 stalin.sc:12961:453925 */ t58593 = a24922; /* x115248 stalin.sc:12961:453928 */ /* x115246 stalin.sc:12961:453889 */ f7490(t58593); goto l8953; l8952: /* x115253 stalin.sc:12960:453843 */ /* x115252 stalin.sc:12960:453843 */ l8953: /* x115266 stalin.sc:12962:453935 */ /* x115257 stalin.sc:12962:453941 */ /* x115256 stalin.sc:12962:453967 */ t58594 = a24924; /* x115255 stalin.sc:12962:453942 */ if (f7494(t58594)==FALSE_TYPE) goto l8955; /* x115263 */ /* x115262 */ /* x115261 stalin.sc:12963:453974 */ /* x115259 stalin.sc:12963:454005 */ t58595 = a24922; /* x115260 stalin.sc:12963:454008 */ /* x115258 stalin.sc:12963:453975 */ f7495(t58595); goto l8956; l8955: /* x115265 stalin.sc:12962:453935 */ /* x115264 stalin.sc:12962:453935 */ l8956: /* x115270 stalin.sc:12964:454015 */ /* x115268 stalin.sc:12964:454045 */ t58596 = a24924; /* x115269 stalin.sc:12964:454048 */ t58597 = a24922; /* x115267 stalin.sc:12964:454016 */ f6260(t58596, t58597); /* x115219 */ /* x115218 stalin.sc:12965:454054 */ /* x115217 stalin.sc:12965:454067 */ a24878 = TRUE_TYPE; return; l8944: /* x115275 stalin.sc:12948:453324 */ /* x115274 stalin.sc:12948:453324 */ return;} /* [inside loop 12895] */ void f12895(struct w49 a24909) {struct w49 a37601; /* S */ struct w49 a37602; /* S */ struct w49 a37607; /* S */ struct w49 a37608; /* S */ struct w49 a37624; /* S */ struct w49 a37625; /* S */ struct w49 a37626; /* S */ struct w49 a37627; /* S */ struct w49 a37660; /* S */ struct w49 a37661; /* S */ struct w49 t58598; struct w49 t58599; struct w49 t58600; struct w49 t58601; struct w49 t58602; struct w49 t58603; struct w49 t58604; struct w49 t58605; struct w49 t58606; struct w49 t58607; struct w49 t58608; struct w49 t58609; struct w49 t58610; struct w49 t58611; struct w49 t58612; struct w49 t58613; int t58614; int t58615; struct w11873 t58616; struct w49 t58617; struct w49 t58618; struct w49 t58619; struct w11873 t58620; struct w49 t58621; struct w49 t58622; struct w49 t58623; struct w11873 t58624; struct w11873 t58625; struct w228245 t58626; struct w49 t58627; struct structure_type24753 *t58628; struct w49 t58629; struct w49 t58630; struct w49 t58631; struct w49 t58632; struct w49 t58633; struct w49 t58634; unsigned t58635; struct w49 t58636; struct w49 t58637; struct w49 t58638; struct w49 t58639; struct w49 t58640; struct w49 t58641; struct w49 t58642; struct w49 t58643; struct w49 t58644; struct w49 t58645; struct w49 t58646; struct w49 t58647; struct w49 t58648; struct w49 t58649; struct w49 t58650; struct w49 t58651; /* x115128 stalin.sc:12917:452140 */ /* x115056 stalin.sc:12917:452146 */ /* x114997 stalin.sc:12917:452151 */ /* x114995 stalin.sc:12917:452156 */ /* x114994 stalin.sc:12917:452177 */ t58600 = a24907; /* x114993 stalin.sc:12917:452157 */ a37602 = t58600; /* x283077 */ /* x283076 */ t58601 = a37602; /* x283075 */ if (!((t58601.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-LINK[6193] 32519]"); structure_ref_error();} t58598 = t58601.value.structure_type27769->s3; /* x114996 stalin.sc:12917:452181 */ t58599 = a24907; /* x269305 stalin.sc:12917:452152 */ /* EQ: dispatching general to general */ if (!((t58598.tag)==(t58599.tag))) goto l8958; switch (t58598.tag) {case FIXNUM_TYPE: if (!((t58598.value.fixnum_type)==(t58599.value.fixnum_type))) goto l8958; break; case FLONUM_TYPE: if (!((t58598.value.flonum_type)==(t58599.value.flonum_type))) goto l8958; break; case INPUT_PORT_TYPE: if (!((t58598.value.input_port_type)==(t58599.value.input_port_type))) goto l8958; break; case OUTPUT_PORT_TYPE: if (!((t58598.value.output_port_type)==(t58599.value.output_port_type))) goto l8958; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58598.value.native_procedure_type15963)==(t58599.value.native_procedure_type15963))) goto l8958; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58598.value.native_procedure_type19067)==(t58599.value.native_procedure_type19067))) goto l8958; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58598.value.native_procedure_type19068)==(t58599.value.native_procedure_type19068))) goto l8958; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58598.value.native_procedure_type22459)==(t58599.value.native_procedure_type22459))) goto l8958; break; case STRUCTURE_TYPE24753: if (!((t58598.value.structure_type24753)==(t58599.value.structure_type24753))) goto l8958; break; case STRUCTURE_TYPE24757: if (!((t58598.value.structure_type24757)==(t58599.value.structure_type24757))) goto l8958; break; case STRUCTURE_TYPE27501: if (!((t58598.value.structure_type27501)==(t58599.value.structure_type27501))) goto l8958; break; case STRUCTURE_TYPE27510: if (!((t58598.value.structure_type27510)==(t58599.value.structure_type27510))) goto l8958; break; case STRUCTURE_TYPE27621: if (!((t58598.value.structure_type27621)==(t58599.value.structure_type27621))) goto l8958; break; case STRUCTURE_TYPE27650: if (!((t58598.value.structure_type27650)==(t58599.value.structure_type27650))) goto l8958; break; case STRUCTURE_TYPE27669: if (!((t58598.value.structure_type27669)==(t58599.value.structure_type27669))) goto l8958; break; case STRUCTURE_TYPE27673: if (!((t58598.value.structure_type27673)==(t58599.value.structure_type27673))) goto l8958; break; case STRUCTURE_TYPE27692: if (!((t58598.value.structure_type27692)==(t58599.value.structure_type27692))) goto l8958; break; case STRUCTURE_TYPE27694: if (!((t58598.value.structure_type27694)==(t58599.value.structure_type27694))) goto l8958; break; case STRUCTURE_TYPE27698: if (!((t58598.value.structure_type27698)==(t58599.value.structure_type27698))) goto l8958; break; case STRUCTURE_TYPE27745: if (!((t58598.value.structure_type27745)==(t58599.value.structure_type27745))) goto l8958; break; case STRUCTURE_TYPE27747: if (!((t58598.value.structure_type27747)==(t58599.value.structure_type27747))) goto l8958; break; case STRUCTURE_TYPE27750: if (!((t58598.value.structure_type27750)==(t58599.value.structure_type27750))) goto l8958; break; case STRUCTURE_TYPE27753: if (!((t58598.value.structure_type27753)==(t58599.value.structure_type27753))) goto l8958; break; case STRUCTURE_TYPE27756: if (!((t58598.value.structure_type27756)==(t58599.value.structure_type27756))) goto l8958; break; case STRUCTURE_TYPE27761: if (!((t58598.value.structure_type27761)==(t58599.value.structure_type27761))) goto l8958; break; case STRUCTURE_TYPE27769: if (!((t58598.value.structure_type27769)==(t58599.value.structure_type27769))) goto l8958; break; case STRUCTURE_TYPE27776: if (!((t58598.value.structure_type27776)==(t58599.value.structure_type27776))) goto l8958; break; case STRUCTURE_TYPE27779: if (!((t58598.value.structure_type27779)==(t58599.value.structure_type27779))) goto l8958; break; case STRUCTURE_TYPE27858: if (!((t58598.value.structure_type27858)==(t58599.value.structure_type27858))) goto l8958; break; case STRING_TYPE: if (!((t58598.value.string_type)==(t58599.value.string_type))) goto l8958; break; case HEADED_VECTOR_TYPE27896: if (!((t58598.value.headed_vector_type27896)==(t58599.value.headed_vector_type27896))) goto l8958; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58598.value.external_symbol_type)==(t58599.value.external_symbol_type))) goto l8958; break; case STRUCTURE_TYPE27908: if (!((t58598.value.structure_type27908)==(t58599.value.structure_type27908))) goto l8958; break; default:;} /* x115054 */ /* x115003 stalin.sc:12918:452190 */ /* x115001 stalin.sc:12918:452195 */ /* x115000 stalin.sc:12918:452216 */ t58604 = a24909; /* x114999 stalin.sc:12918:452196 */ a37601 = t58604; /* x283073 */ /* x283072 */ t58605 = a37601; /* x283071 */ if (!((t58605.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-LINK[6193] 32518]"); structure_ref_error();} t58602 = t58605.value.structure_type27769->s3; /* x115002 stalin.sc:12918:452220 */ t58603 = a24909; /* x269304 stalin.sc:12918:452191 */ /* EQ: dispatching general to general */ if (!((t58602.tag)==(t58603.tag))) goto l8958; switch (t58602.tag) {case FIXNUM_TYPE: if (!((t58602.value.fixnum_type)==(t58603.value.fixnum_type))) goto l8958; break; case FLONUM_TYPE: if (!((t58602.value.flonum_type)==(t58603.value.flonum_type))) goto l8958; break; case INPUT_PORT_TYPE: if (!((t58602.value.input_port_type)==(t58603.value.input_port_type))) goto l8958; break; case OUTPUT_PORT_TYPE: if (!((t58602.value.output_port_type)==(t58603.value.output_port_type))) goto l8958; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58602.value.native_procedure_type15963)==(t58603.value.native_procedure_type15963))) goto l8958; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58602.value.native_procedure_type19067)==(t58603.value.native_procedure_type19067))) goto l8958; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58602.value.native_procedure_type19068)==(t58603.value.native_procedure_type19068))) goto l8958; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58602.value.native_procedure_type22459)==(t58603.value.native_procedure_type22459))) goto l8958; break; case STRUCTURE_TYPE24753: if (!((t58602.value.structure_type24753)==(t58603.value.structure_type24753))) goto l8958; break; case STRUCTURE_TYPE24757: if (!((t58602.value.structure_type24757)==(t58603.value.structure_type24757))) goto l8958; break; case STRUCTURE_TYPE27501: if (!((t58602.value.structure_type27501)==(t58603.value.structure_type27501))) goto l8958; break; case STRUCTURE_TYPE27510: if (!((t58602.value.structure_type27510)==(t58603.value.structure_type27510))) goto l8958; break; case STRUCTURE_TYPE27621: if (!((t58602.value.structure_type27621)==(t58603.value.structure_type27621))) goto l8958; break; case STRUCTURE_TYPE27650: if (!((t58602.value.structure_type27650)==(t58603.value.structure_type27650))) goto l8958; break; case STRUCTURE_TYPE27669: if (!((t58602.value.structure_type27669)==(t58603.value.structure_type27669))) goto l8958; break; case STRUCTURE_TYPE27673: if (!((t58602.value.structure_type27673)==(t58603.value.structure_type27673))) goto l8958; break; case STRUCTURE_TYPE27692: if (!((t58602.value.structure_type27692)==(t58603.value.structure_type27692))) goto l8958; break; case STRUCTURE_TYPE27694: if (!((t58602.value.structure_type27694)==(t58603.value.structure_type27694))) goto l8958; break; case STRUCTURE_TYPE27698: if (!((t58602.value.structure_type27698)==(t58603.value.structure_type27698))) goto l8958; break; case STRUCTURE_TYPE27745: if (!((t58602.value.structure_type27745)==(t58603.value.structure_type27745))) goto l8958; break; case STRUCTURE_TYPE27747: if (!((t58602.value.structure_type27747)==(t58603.value.structure_type27747))) goto l8958; break; case STRUCTURE_TYPE27750: if (!((t58602.value.structure_type27750)==(t58603.value.structure_type27750))) goto l8958; break; case STRUCTURE_TYPE27753: if (!((t58602.value.structure_type27753)==(t58603.value.structure_type27753))) goto l8958; break; case STRUCTURE_TYPE27756: if (!((t58602.value.structure_type27756)==(t58603.value.structure_type27756))) goto l8958; break; case STRUCTURE_TYPE27761: if (!((t58602.value.structure_type27761)==(t58603.value.structure_type27761))) goto l8958; break; case STRUCTURE_TYPE27769: if (!((t58602.value.structure_type27769)==(t58603.value.structure_type27769))) goto l8958; break; case STRUCTURE_TYPE27776: if (!((t58602.value.structure_type27776)==(t58603.value.structure_type27776))) goto l8958; break; case STRUCTURE_TYPE27779: if (!((t58602.value.structure_type27779)==(t58603.value.structure_type27779))) goto l8958; break; case STRUCTURE_TYPE27858: if (!((t58602.value.structure_type27858)==(t58603.value.structure_type27858))) goto l8958; break; case STRING_TYPE: if (!((t58602.value.string_type)==(t58603.value.string_type))) goto l8958; break; case HEADED_VECTOR_TYPE27896: if (!((t58602.value.headed_vector_type27896)==(t58603.value.headed_vector_type27896))) goto l8958; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58602.value.external_symbol_type)==(t58603.value.external_symbol_type))) goto l8958; break; case STRUCTURE_TYPE27908: if (!((t58602.value.structure_type27908)==(t58603.value.structure_type27908))) goto l8958; break; default:;} /* x115052 */ /* x115009 stalin.sc:12919:452229 */ /* x115008 stalin.sc:12919:452234 */ /* x115006 stalin.sc:12919:452239 */ t58606 = a24907; /* x115007 stalin.sc:12919:452242 */ t58607 = a24909; /* x269302 stalin.sc:12919:452235 */ /* EQ: dispatching general to general */ if ((t58606.tag)==(t58607.tag)) switch (t58606.tag) {case FIXNUM_TYPE: if ((t58606.value.fixnum_type)==(t58607.value.fixnum_type)) goto l8958; break; case FLONUM_TYPE: if ((t58606.value.flonum_type)==(t58607.value.flonum_type)) goto l8958; break; case INPUT_PORT_TYPE: if ((t58606.value.input_port_type)==(t58607.value.input_port_type)) goto l8958; break; case OUTPUT_PORT_TYPE: if ((t58606.value.output_port_type)==(t58607.value.output_port_type)) goto l8958; break; case NATIVE_PROCEDURE_TYPE15963: if ((t58606.value.native_procedure_type15963)==(t58607.value.native_procedure_type15963)) goto l8958; break; case NATIVE_PROCEDURE_TYPE19067: if ((t58606.value.native_procedure_type19067)==(t58607.value.native_procedure_type19067)) goto l8958; break; case NATIVE_PROCEDURE_TYPE19068: if ((t58606.value.native_procedure_type19068)==(t58607.value.native_procedure_type19068)) goto l8958; break; case NATIVE_PROCEDURE_TYPE22459: if ((t58606.value.native_procedure_type22459)==(t58607.value.native_procedure_type22459)) goto l8958; break; case STRUCTURE_TYPE24753: if ((t58606.value.structure_type24753)==(t58607.value.structure_type24753)) goto l8958; break; case STRUCTURE_TYPE24757: if ((t58606.value.structure_type24757)==(t58607.value.structure_type24757)) goto l8958; break; case STRUCTURE_TYPE27501: if ((t58606.value.structure_type27501)==(t58607.value.structure_type27501)) goto l8958; break; case STRUCTURE_TYPE27510: if ((t58606.value.structure_type27510)==(t58607.value.structure_type27510)) goto l8958; break; case STRUCTURE_TYPE27621: if ((t58606.value.structure_type27621)==(t58607.value.structure_type27621)) goto l8958; break; case STRUCTURE_TYPE27650: if ((t58606.value.structure_type27650)==(t58607.value.structure_type27650)) goto l8958; break; case STRUCTURE_TYPE27669: if ((t58606.value.structure_type27669)==(t58607.value.structure_type27669)) goto l8958; break; case STRUCTURE_TYPE27673: if ((t58606.value.structure_type27673)==(t58607.value.structure_type27673)) goto l8958; break; case STRUCTURE_TYPE27692: if ((t58606.value.structure_type27692)==(t58607.value.structure_type27692)) goto l8958; break; case STRUCTURE_TYPE27694: if ((t58606.value.structure_type27694)==(t58607.value.structure_type27694)) goto l8958; break; case STRUCTURE_TYPE27698: if ((t58606.value.structure_type27698)==(t58607.value.structure_type27698)) goto l8958; break; case STRUCTURE_TYPE27745: if ((t58606.value.structure_type27745)==(t58607.value.structure_type27745)) goto l8958; break; case STRUCTURE_TYPE27747: if ((t58606.value.structure_type27747)==(t58607.value.structure_type27747)) goto l8958; break; case STRUCTURE_TYPE27750: if ((t58606.value.structure_type27750)==(t58607.value.structure_type27750)) goto l8958; break; case STRUCTURE_TYPE27753: if ((t58606.value.structure_type27753)==(t58607.value.structure_type27753)) goto l8958; break; case STRUCTURE_TYPE27756: if ((t58606.value.structure_type27756)==(t58607.value.structure_type27756)) goto l8958; break; case STRUCTURE_TYPE27761: if ((t58606.value.structure_type27761)==(t58607.value.structure_type27761)) goto l8958; break; case STRUCTURE_TYPE27769: if ((t58606.value.structure_type27769)==(t58607.value.structure_type27769)) goto l8958; break; case STRUCTURE_TYPE27776: if ((t58606.value.structure_type27776)==(t58607.value.structure_type27776)) goto l8958; break; case STRUCTURE_TYPE27779: if ((t58606.value.structure_type27779)==(t58607.value.structure_type27779)) goto l8958; break; case STRUCTURE_TYPE27858: if ((t58606.value.structure_type27858)==(t58607.value.structure_type27858)) goto l8958; break; case STRING_TYPE: if ((t58606.value.string_type)==(t58607.value.string_type)) goto l8958; break; case HEADED_VECTOR_TYPE27896: if ((t58606.value.headed_vector_type27896)==(t58607.value.headed_vector_type27896)) goto l8958; break; case EXTERNAL_SYMBOL_TYPE: if ((t58606.value.external_symbol_type)==(t58607.value.external_symbol_type)) goto l8958; break; case STRUCTURE_TYPE27908: if ((t58606.value.structure_type27908)==(t58607.value.structure_type27908)) goto l8958; break; default: goto l8958;} /* x115050 */ /* x115017 stalin.sc:12920:452252 */ /* x115013 stalin.sc:12920:452257 */ /* x115012 stalin.sc:12920:452278 */ t58610 = a24907; /* x115011 stalin.sc:12920:452258 */ a37660 = t58610; /* x283309 */ /* x283308 */ t58611 = a37660; /* x283307 */ if (!((t58611.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-NAME[6169] 32577]"); structure_ref_error();} t58608 = t58611.value.structure_type27769->s0; /* x115016 stalin.sc:12920:452282 */ /* x115015 stalin.sc:12920:452303 */ t58612 = a24909; /* x115014 stalin.sc:12920:452283 */ a37661 = t58612; /* x283313 */ /* x283312 */ t58613 = a37661; /* x283311 */ if (!((t58613.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-NAME[6169] 32578]"); structure_ref_error();} t58609 = t58613.value.structure_type27769->s0; /* x269301 stalin.sc:12920:452253 */ /* EQ: dispatching general to general */ if (!((t58608.tag)==(t58609.tag))) goto l8958; switch (t58608.tag) {case FIXNUM_TYPE: if (!((t58608.value.fixnum_type)==(t58609.value.fixnum_type))) goto l8958; break; case FLONUM_TYPE: if (!((t58608.value.flonum_type)==(t58609.value.flonum_type))) goto l8958; break; case INPUT_PORT_TYPE: if (!((t58608.value.input_port_type)==(t58609.value.input_port_type))) goto l8958; break; case OUTPUT_PORT_TYPE: if (!((t58608.value.output_port_type)==(t58609.value.output_port_type))) goto l8958; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58608.value.native_procedure_type15963)==(t58609.value.native_procedure_type15963))) goto l8958; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58608.value.native_procedure_type19067)==(t58609.value.native_procedure_type19067))) goto l8958; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58608.value.native_procedure_type19068)==(t58609.value.native_procedure_type19068))) goto l8958; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58608.value.native_procedure_type22459)==(t58609.value.native_procedure_type22459))) goto l8958; break; case STRUCTURE_TYPE24753: if (!((t58608.value.structure_type24753)==(t58609.value.structure_type24753))) goto l8958; break; case STRUCTURE_TYPE24757: if (!((t58608.value.structure_type24757)==(t58609.value.structure_type24757))) goto l8958; break; case STRUCTURE_TYPE27501: if (!((t58608.value.structure_type27501)==(t58609.value.structure_type27501))) goto l8958; break; case STRUCTURE_TYPE27510: if (!((t58608.value.structure_type27510)==(t58609.value.structure_type27510))) goto l8958; break; case STRUCTURE_TYPE27621: if (!((t58608.value.structure_type27621)==(t58609.value.structure_type27621))) goto l8958; break; case STRUCTURE_TYPE27650: if (!((t58608.value.structure_type27650)==(t58609.value.structure_type27650))) goto l8958; break; case STRUCTURE_TYPE27669: if (!((t58608.value.structure_type27669)==(t58609.value.structure_type27669))) goto l8958; break; case STRUCTURE_TYPE27673: if (!((t58608.value.structure_type27673)==(t58609.value.structure_type27673))) goto l8958; break; case STRUCTURE_TYPE27692: if (!((t58608.value.structure_type27692)==(t58609.value.structure_type27692))) goto l8958; break; case STRUCTURE_TYPE27694: if (!((t58608.value.structure_type27694)==(t58609.value.structure_type27694))) goto l8958; break; case STRUCTURE_TYPE27698: if (!((t58608.value.structure_type27698)==(t58609.value.structure_type27698))) goto l8958; break; case STRUCTURE_TYPE27745: if (!((t58608.value.structure_type27745)==(t58609.value.structure_type27745))) goto l8958; break; case STRUCTURE_TYPE27747: if (!((t58608.value.structure_type27747)==(t58609.value.structure_type27747))) goto l8958; break; case STRUCTURE_TYPE27750: if (!((t58608.value.structure_type27750)==(t58609.value.structure_type27750))) goto l8958; break; case STRUCTURE_TYPE27753: if (!((t58608.value.structure_type27753)==(t58609.value.structure_type27753))) goto l8958; break; case STRUCTURE_TYPE27756: if (!((t58608.value.structure_type27756)==(t58609.value.structure_type27756))) goto l8958; break; case STRUCTURE_TYPE27761: if (!((t58608.value.structure_type27761)==(t58609.value.structure_type27761))) goto l8958; break; case STRUCTURE_TYPE27769: if (!((t58608.value.structure_type27769)==(t58609.value.structure_type27769))) goto l8958; break; case STRUCTURE_TYPE27776: if (!((t58608.value.structure_type27776)==(t58609.value.structure_type27776))) goto l8958; break; case STRUCTURE_TYPE27779: if (!((t58608.value.structure_type27779)==(t58609.value.structure_type27779))) goto l8958; break; case STRUCTURE_TYPE27858: if (!((t58608.value.structure_type27858)==(t58609.value.structure_type27858))) goto l8958; break; case STRING_TYPE: if (!((t58608.value.string_type)==(t58609.value.string_type))) goto l8958; break; case HEADED_VECTOR_TYPE27896: if (!((t58608.value.headed_vector_type27896)==(t58609.value.headed_vector_type27896))) goto l8958; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58608.value.external_symbol_type)==(t58609.value.external_symbol_type))) goto l8958; break; case STRUCTURE_TYPE27908: if (!((t58608.value.structure_type27908)==(t58609.value.structure_type27908))) goto l8958; break; default:;} /* x115048 */ /* x115029 stalin.sc:12921:452313 */ /* x115023 stalin.sc:12921:452316 */ /* x115022 stalin.sc:12921:452324 */ /* x115021 stalin.sc:12921:452346 */ t58618 = a24907; /* x115020 stalin.sc:12921:452325 */ a37626 = t58618; /* x283173 */ /* x283172 */ t58619 = a37626; /* x283171 */ if (!((t58619.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32543]"); structure_ref_error();} t58616 = t58619.value.structure_type27769->s1; /* x115019 stalin.sc:12921:452317 */ t58617 = *((struct w49 *)(&t58616)); t58614 = f26227(t58617); /* x115028 stalin.sc:12922:452359 */ /* x115027 stalin.sc:12922:452367 */ /* x115026 stalin.sc:12922:452389 */ t58622 = a24909; /* x115025 stalin.sc:12922:452368 */ a37627 = t58622; /* x283177 */ /* x283176 */ t58623 = a37627; /* x283175 */ if (!((t58623.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32544]"); structure_ref_error();} t58620 = t58623.value.structure_type27769->s1; /* x115024 stalin.sc:12922:452360 */ t58621 = *((struct w49 *)(&t58620)); t58615 = f26227(t58621); /* x269300 stalin.sc:12921:452314 */ if (!(t58614==t58615)) goto l8958; /* x115046 */ /* x115045 stalin.sc:12927:452528 */ /* x115044 stalin.sc:12927:452550 */ t58631 = a24909; /* x115043 stalin.sc:12927:452529 */ a37625 = t58631; /* x283169 */ /* x283168 */ t58632 = a37625; /* x283167 */ if (!((t58632.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32542]"); structure_ref_error();} t58625 = t58632.value.structure_type27769->s1; /* x115042 stalin.sc:12926:452497 */ /* x115041 stalin.sc:12926:452519 */ t58629 = a24907; /* x115040 stalin.sc:12926:452498 */ a37624 = t58629; /* x283165 */ /* x283164 */ t58630 = a37624; /* x283163 */ if (!((t58630.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32541]"); structure_ref_error();} t58624 = t58630.value.structure_type27769->s1; /* x115039 stalin.sc:12923:452407 */ /* x115030 stalin.sc:12923:452401 */ t58626.tag = NATIVE_PROCEDURE_TYPE22690; t58627 = *((struct w49 *)(&t58624)); t58628 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t58628==NULL) {backtrace_internal("[inside loop 12895]"); out_of_memory_error();} t58628->s0 = *((struct w49 *)(&t58625)); t58628->s1.tag = NULL_TYPE; if (f1061(t58626, t58627, t58628)==FALSE_TYPE) goto l8958; /* x115125 */ /* x115124 */ /* x115123 */ /* x115071 stalin.sc:12928:452558 */ /* x115062 stalin.sc:12928:452566 */ /* x115061 stalin.sc:12928:452593 */ t58633 = a24909; /* x115060 stalin.sc:12928:452567 */ if (f7429(t58633)==FALSE_TYPE) goto l8965; /* x115064 */ /* x115063 */ goto l8966; l8965: /* x115070 */ /* x115069 */ /* x115068 stalin.sc:12929:452600 */ /* x115066 stalin.sc:12929:452632 */ t58634 = a24907; /* x115067 stalin.sc:12929:452635 */ /* x115065 stalin.sc:12929:452601 */ t58635 = FALSE_TYPE; f7430(t58634, t58635); l8966: /* x115082 stalin.sc:12930:452642 */ /* x115073 stalin.sc:12931:452689 */ t58636 = a24907; /* x115081 stalin.sc:12932:452695 */ /* x115077 stalin.sc:12932:452703 */ /* x115076 stalin.sc:12932:452742 */ t58640 = a24907; /* x115075 stalin.sc:12932:452704 */ a37607 = t58640; /* x283097 */ /* x283096 */ t58641 = a37607; /* x283095 */ if (!((t58641.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-ALLOCATING-EXPRESSIONS[6185] 32524]"); structure_ref_error();} t58638 = t58641.value.structure_type27769->s2; /* x115080 stalin.sc:12933:452750 */ /* x115079 stalin.sc:12933:452789 */ t58642 = a24909; /* x115078 stalin.sc:12933:452751 */ a37608 = t58642; /* x283101 */ /* x283100 */ t58643 = a37608; /* x283099 */ if (!((t58643.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-ALLOCATING-EXPRESSIONS[6185] 32525]"); structure_ref_error();} t58639 = t58643.value.structure_type27769->s2; /* x115074 stalin.sc:12932:452696 */ t58637 = f1390(t58638, t58639); /* x115072 stalin.sc:12930:452643 */ f6186(t58636, t58637); /* x115094 stalin.sc:12934:452797 */ /* x115085 stalin.sc:12934:452803 */ /* x115084 stalin.sc:12934:452830 */ t58644 = a24909; /* x115083 stalin.sc:12934:452804 */ if (f7434(t58644)==FALSE_TYPE) goto l8968; /* x115091 */ /* x115090 */ /* x115089 stalin.sc:12935:452837 */ /* x115087 stalin.sc:12935:452869 */ t58645 = a24907; /* x115088 stalin.sc:12935:452872 */ /* x115086 stalin.sc:12935:452838 */ f7435(t58645); goto l8969; l8968: /* x115093 stalin.sc:12934:452797 */ /* x115092 stalin.sc:12934:452797 */ l8969: /* x115106 stalin.sc:12936:452879 */ /* x115097 stalin.sc:12936:452885 */ /* x115096 stalin.sc:12936:452913 */ t58646 = a24909; /* x115095 stalin.sc:12936:452886 */ if (f7439(t58646)==FALSE_TYPE) goto l8971; /* x115103 */ /* x115102 */ /* x115101 stalin.sc:12937:452920 */ /* x115099 stalin.sc:12937:452953 */ t58647 = a24907; /* x115100 stalin.sc:12937:452956 */ /* x115098 stalin.sc:12937:452921 */ f7440(t58647); goto l8972; l8971: /* x115105 stalin.sc:12936:452879 */ /* x115104 stalin.sc:12936:452879 */ l8972: /* x115118 stalin.sc:12938:452963 */ /* x115109 stalin.sc:12938:452969 */ /* x115108 stalin.sc:12938:452991 */ t58648 = a24909; /* x115107 stalin.sc:12938:452970 */ if (f7444(t58648)==FALSE_TYPE) goto l8974; /* x115115 */ /* x115114 */ /* x115113 stalin.sc:12938:452995 */ /* x115111 stalin.sc:12938:453022 */ t58649 = a24907; /* x115112 stalin.sc:12938:453025 */ /* x115110 stalin.sc:12938:452996 */ f7445(t58649); goto l8975; l8974: /* x115117 stalin.sc:12938:452963 */ /* x115116 stalin.sc:12938:452963 */ l8975: /* x115122 stalin.sc:12939:453032 */ /* x115120 stalin.sc:12939:453058 */ t58650 = a24909; /* x115121 stalin.sc:12939:453061 */ t58651 = a24907; /* x115119 stalin.sc:12939:453033 */ f6194(t58650, t58651); /* x115059 */ /* x115058 stalin.sc:12940:453067 */ /* x115057 stalin.sc:12940:453080 */ a24878 = TRUE_TYPE; return; l8958: /* x115127 stalin.sc:12917:452140 */ /* x115126 stalin.sc:12917:452140 */ return;} /* [inside loop 12880] */ void f12880(struct w49 a24900) {struct w49 a19807; /* S */ struct w49 a37728; /* S */ struct w49 a37729; /* S */ struct w49 a37733; /* S */ struct w49 t58652; struct w49 t58653; struct w49 t58654; struct w49 t58655; struct w49 t58656; struct w49 t58657; struct w49 t58658; struct w49 t58659; struct w49 t58660; struct w49 t58661; struct w49 t58662; struct w49 t58663; struct w49 t58664; struct w49 t58665; struct w49 t58666; struct w49 t58667; struct w49 t58668; struct w49 t58669; struct w49 t58670; struct w49 t58671; /* x114939 stalin.sc:12901:451609 */ /* x114915 stalin.sc:12901:451615 */ /* x114899 stalin.sc:12901:451620 */ /* x114897 stalin.sc:12901:451625 */ /* x114896 stalin.sc:12901:451643 */ t58654 = a24898; /* x114895 stalin.sc:12901:451626 */ a37729 = t58654; /* x283585 */ /* x283584 */ t58655 = a37729; /* x283583 */ if (!((t58655.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-LINK[6119] 32646]"); structure_ref_error();} t58652 = t58655.value.structure_type27673->s1; /* x114898 stalin.sc:12901:451647 */ t58653 = a24898; /* x269311 stalin.sc:12901:451621 */ /* EQ: dispatching general to general */ if (!((t58652.tag)==(t58653.tag))) goto l8977; switch (t58652.tag) {case FIXNUM_TYPE: if (!((t58652.value.fixnum_type)==(t58653.value.fixnum_type))) goto l8977; break; case FLONUM_TYPE: if (!((t58652.value.flonum_type)==(t58653.value.flonum_type))) goto l8977; break; case INPUT_PORT_TYPE: if (!((t58652.value.input_port_type)==(t58653.value.input_port_type))) goto l8977; break; case OUTPUT_PORT_TYPE: if (!((t58652.value.output_port_type)==(t58653.value.output_port_type))) goto l8977; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58652.value.native_procedure_type15963)==(t58653.value.native_procedure_type15963))) goto l8977; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58652.value.native_procedure_type19067)==(t58653.value.native_procedure_type19067))) goto l8977; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58652.value.native_procedure_type19068)==(t58653.value.native_procedure_type19068))) goto l8977; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58652.value.native_procedure_type22459)==(t58653.value.native_procedure_type22459))) goto l8977; break; case STRUCTURE_TYPE24753: if (!((t58652.value.structure_type24753)==(t58653.value.structure_type24753))) goto l8977; break; case STRUCTURE_TYPE24757: if (!((t58652.value.structure_type24757)==(t58653.value.structure_type24757))) goto l8977; break; case STRUCTURE_TYPE27501: if (!((t58652.value.structure_type27501)==(t58653.value.structure_type27501))) goto l8977; break; case STRUCTURE_TYPE27510: if (!((t58652.value.structure_type27510)==(t58653.value.structure_type27510))) goto l8977; break; case STRUCTURE_TYPE27621: if (!((t58652.value.structure_type27621)==(t58653.value.structure_type27621))) goto l8977; break; case STRUCTURE_TYPE27650: if (!((t58652.value.structure_type27650)==(t58653.value.structure_type27650))) goto l8977; break; case STRUCTURE_TYPE27669: if (!((t58652.value.structure_type27669)==(t58653.value.structure_type27669))) goto l8977; break; case STRUCTURE_TYPE27673: if (!((t58652.value.structure_type27673)==(t58653.value.structure_type27673))) goto l8977; break; case STRUCTURE_TYPE27692: if (!((t58652.value.structure_type27692)==(t58653.value.structure_type27692))) goto l8977; break; case STRUCTURE_TYPE27694: if (!((t58652.value.structure_type27694)==(t58653.value.structure_type27694))) goto l8977; break; case STRUCTURE_TYPE27698: if (!((t58652.value.structure_type27698)==(t58653.value.structure_type27698))) goto l8977; break; case STRUCTURE_TYPE27745: if (!((t58652.value.structure_type27745)==(t58653.value.structure_type27745))) goto l8977; break; case STRUCTURE_TYPE27747: if (!((t58652.value.structure_type27747)==(t58653.value.structure_type27747))) goto l8977; break; case STRUCTURE_TYPE27750: if (!((t58652.value.structure_type27750)==(t58653.value.structure_type27750))) goto l8977; break; case STRUCTURE_TYPE27753: if (!((t58652.value.structure_type27753)==(t58653.value.structure_type27753))) goto l8977; break; case STRUCTURE_TYPE27756: if (!((t58652.value.structure_type27756)==(t58653.value.structure_type27756))) goto l8977; break; case STRUCTURE_TYPE27761: if (!((t58652.value.structure_type27761)==(t58653.value.structure_type27761))) goto l8977; break; case STRUCTURE_TYPE27769: if (!((t58652.value.structure_type27769)==(t58653.value.structure_type27769))) goto l8977; break; case STRUCTURE_TYPE27776: if (!((t58652.value.structure_type27776)==(t58653.value.structure_type27776))) goto l8977; break; case STRUCTURE_TYPE27779: if (!((t58652.value.structure_type27779)==(t58653.value.structure_type27779))) goto l8977; break; case STRUCTURE_TYPE27858: if (!((t58652.value.structure_type27858)==(t58653.value.structure_type27858))) goto l8977; break; case STRING_TYPE: if (!((t58652.value.string_type)==(t58653.value.string_type))) goto l8977; break; case HEADED_VECTOR_TYPE27896: if (!((t58652.value.headed_vector_type27896)==(t58653.value.headed_vector_type27896))) goto l8977; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58652.value.external_symbol_type)==(t58653.value.external_symbol_type))) goto l8977; break; case STRUCTURE_TYPE27908: if (!((t58652.value.structure_type27908)==(t58653.value.structure_type27908))) goto l8977; break; default:;} /* x114913 */ /* x114905 stalin.sc:12902:451656 */ /* x114903 stalin.sc:12902:451661 */ /* x114902 stalin.sc:12902:451679 */ t58658 = a24900; /* x114901 stalin.sc:12902:451662 */ a37728 = t58658; /* x283581 */ /* x283580 */ t58659 = a37728; /* x283579 */ if (!((t58659.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-LINK[6119] 32645]"); structure_ref_error();} t58656 = t58659.value.structure_type27673->s1; /* x114904 stalin.sc:12902:451683 */ t58657 = a24900; /* x269310 stalin.sc:12902:451657 */ /* EQ: dispatching general to general */ if (!((t58656.tag)==(t58657.tag))) goto l8977; switch (t58656.tag) {case FIXNUM_TYPE: if (!((t58656.value.fixnum_type)==(t58657.value.fixnum_type))) goto l8977; break; case FLONUM_TYPE: if (!((t58656.value.flonum_type)==(t58657.value.flonum_type))) goto l8977; break; case INPUT_PORT_TYPE: if (!((t58656.value.input_port_type)==(t58657.value.input_port_type))) goto l8977; break; case OUTPUT_PORT_TYPE: if (!((t58656.value.output_port_type)==(t58657.value.output_port_type))) goto l8977; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58656.value.native_procedure_type15963)==(t58657.value.native_procedure_type15963))) goto l8977; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58656.value.native_procedure_type19067)==(t58657.value.native_procedure_type19067))) goto l8977; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58656.value.native_procedure_type19068)==(t58657.value.native_procedure_type19068))) goto l8977; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58656.value.native_procedure_type22459)==(t58657.value.native_procedure_type22459))) goto l8977; break; case STRUCTURE_TYPE24753: if (!((t58656.value.structure_type24753)==(t58657.value.structure_type24753))) goto l8977; break; case STRUCTURE_TYPE24757: if (!((t58656.value.structure_type24757)==(t58657.value.structure_type24757))) goto l8977; break; case STRUCTURE_TYPE27501: if (!((t58656.value.structure_type27501)==(t58657.value.structure_type27501))) goto l8977; break; case STRUCTURE_TYPE27510: if (!((t58656.value.structure_type27510)==(t58657.value.structure_type27510))) goto l8977; break; case STRUCTURE_TYPE27621: if (!((t58656.value.structure_type27621)==(t58657.value.structure_type27621))) goto l8977; break; case STRUCTURE_TYPE27650: if (!((t58656.value.structure_type27650)==(t58657.value.structure_type27650))) goto l8977; break; case STRUCTURE_TYPE27669: if (!((t58656.value.structure_type27669)==(t58657.value.structure_type27669))) goto l8977; break; case STRUCTURE_TYPE27673: if (!((t58656.value.structure_type27673)==(t58657.value.structure_type27673))) goto l8977; break; case STRUCTURE_TYPE27692: if (!((t58656.value.structure_type27692)==(t58657.value.structure_type27692))) goto l8977; break; case STRUCTURE_TYPE27694: if (!((t58656.value.structure_type27694)==(t58657.value.structure_type27694))) goto l8977; break; case STRUCTURE_TYPE27698: if (!((t58656.value.structure_type27698)==(t58657.value.structure_type27698))) goto l8977; break; case STRUCTURE_TYPE27745: if (!((t58656.value.structure_type27745)==(t58657.value.structure_type27745))) goto l8977; break; case STRUCTURE_TYPE27747: if (!((t58656.value.structure_type27747)==(t58657.value.structure_type27747))) goto l8977; break; case STRUCTURE_TYPE27750: if (!((t58656.value.structure_type27750)==(t58657.value.structure_type27750))) goto l8977; break; case STRUCTURE_TYPE27753: if (!((t58656.value.structure_type27753)==(t58657.value.structure_type27753))) goto l8977; break; case STRUCTURE_TYPE27756: if (!((t58656.value.structure_type27756)==(t58657.value.structure_type27756))) goto l8977; break; case STRUCTURE_TYPE27761: if (!((t58656.value.structure_type27761)==(t58657.value.structure_type27761))) goto l8977; break; case STRUCTURE_TYPE27769: if (!((t58656.value.structure_type27769)==(t58657.value.structure_type27769))) goto l8977; break; case STRUCTURE_TYPE27776: if (!((t58656.value.structure_type27776)==(t58657.value.structure_type27776))) goto l8977; break; case STRUCTURE_TYPE27779: if (!((t58656.value.structure_type27779)==(t58657.value.structure_type27779))) goto l8977; break; case STRUCTURE_TYPE27858: if (!((t58656.value.structure_type27858)==(t58657.value.structure_type27858))) goto l8977; break; case STRING_TYPE: if (!((t58656.value.string_type)==(t58657.value.string_type))) goto l8977; break; case HEADED_VECTOR_TYPE27896: if (!((t58656.value.headed_vector_type27896)==(t58657.value.headed_vector_type27896))) goto l8977; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58656.value.external_symbol_type)==(t58657.value.external_symbol_type))) goto l8977; break; case STRUCTURE_TYPE27908: if (!((t58656.value.structure_type27908)==(t58657.value.structure_type27908))) goto l8977; break; default:;} /* x114911 */ /* x114910 stalin.sc:12903:451697 */ /* x114908 stalin.sc:12903:451702 */ t58660 = a24898; /* x114909 stalin.sc:12903:451705 */ t58661 = a24900; /* x269308 stalin.sc:12903:451698 */ /* EQ: dispatching general to general */ if ((t58660.tag)==(t58661.tag)) switch (t58660.tag) {case FIXNUM_TYPE: if ((t58660.value.fixnum_type)==(t58661.value.fixnum_type)) goto l8977; break; case FLONUM_TYPE: if ((t58660.value.flonum_type)==(t58661.value.flonum_type)) goto l8977; break; case INPUT_PORT_TYPE: if ((t58660.value.input_port_type)==(t58661.value.input_port_type)) goto l8977; break; case OUTPUT_PORT_TYPE: if ((t58660.value.output_port_type)==(t58661.value.output_port_type)) goto l8977; break; case NATIVE_PROCEDURE_TYPE15963: if ((t58660.value.native_procedure_type15963)==(t58661.value.native_procedure_type15963)) goto l8977; break; case NATIVE_PROCEDURE_TYPE19067: if ((t58660.value.native_procedure_type19067)==(t58661.value.native_procedure_type19067)) goto l8977; break; case NATIVE_PROCEDURE_TYPE19068: if ((t58660.value.native_procedure_type19068)==(t58661.value.native_procedure_type19068)) goto l8977; break; case NATIVE_PROCEDURE_TYPE22459: if ((t58660.value.native_procedure_type22459)==(t58661.value.native_procedure_type22459)) goto l8977; break; case STRUCTURE_TYPE24753: if ((t58660.value.structure_type24753)==(t58661.value.structure_type24753)) goto l8977; break; case STRUCTURE_TYPE24757: if ((t58660.value.structure_type24757)==(t58661.value.structure_type24757)) goto l8977; break; case STRUCTURE_TYPE27501: if ((t58660.value.structure_type27501)==(t58661.value.structure_type27501)) goto l8977; break; case STRUCTURE_TYPE27510: if ((t58660.value.structure_type27510)==(t58661.value.structure_type27510)) goto l8977; break; case STRUCTURE_TYPE27621: if ((t58660.value.structure_type27621)==(t58661.value.structure_type27621)) goto l8977; break; case STRUCTURE_TYPE27650: if ((t58660.value.structure_type27650)==(t58661.value.structure_type27650)) goto l8977; break; case STRUCTURE_TYPE27669: if ((t58660.value.structure_type27669)==(t58661.value.structure_type27669)) goto l8977; break; case STRUCTURE_TYPE27673: if ((t58660.value.structure_type27673)==(t58661.value.structure_type27673)) goto l8977; break; case STRUCTURE_TYPE27692: if ((t58660.value.structure_type27692)==(t58661.value.structure_type27692)) goto l8977; break; case STRUCTURE_TYPE27694: if ((t58660.value.structure_type27694)==(t58661.value.structure_type27694)) goto l8977; break; case STRUCTURE_TYPE27698: if ((t58660.value.structure_type27698)==(t58661.value.structure_type27698)) goto l8977; break; case STRUCTURE_TYPE27745: if ((t58660.value.structure_type27745)==(t58661.value.structure_type27745)) goto l8977; break; case STRUCTURE_TYPE27747: if ((t58660.value.structure_type27747)==(t58661.value.structure_type27747)) goto l8977; break; case STRUCTURE_TYPE27750: if ((t58660.value.structure_type27750)==(t58661.value.structure_type27750)) goto l8977; break; case STRUCTURE_TYPE27753: if ((t58660.value.structure_type27753)==(t58661.value.structure_type27753)) goto l8977; break; case STRUCTURE_TYPE27756: if ((t58660.value.structure_type27756)==(t58661.value.structure_type27756)) goto l8977; break; case STRUCTURE_TYPE27761: if ((t58660.value.structure_type27761)==(t58661.value.structure_type27761)) goto l8977; break; case STRUCTURE_TYPE27769: if ((t58660.value.structure_type27769)==(t58661.value.structure_type27769)) goto l8977; break; case STRUCTURE_TYPE27776: if ((t58660.value.structure_type27776)==(t58661.value.structure_type27776)) goto l8977; break; case STRUCTURE_TYPE27779: if ((t58660.value.structure_type27779)==(t58661.value.structure_type27779)) goto l8977; break; case STRUCTURE_TYPE27858: if ((t58660.value.structure_type27858)==(t58661.value.structure_type27858)) goto l8977; break; case STRING_TYPE: if ((t58660.value.string_type)==(t58661.value.string_type)) goto l8977; break; case HEADED_VECTOR_TYPE27896: if ((t58660.value.headed_vector_type27896)==(t58661.value.headed_vector_type27896)) goto l8977; break; case EXTERNAL_SYMBOL_TYPE: if ((t58660.value.external_symbol_type)==(t58661.value.external_symbol_type)) goto l8977; break; case STRUCTURE_TYPE27908: if ((t58660.value.structure_type27908)==(t58661.value.structure_type27908)) goto l8977; break; default: goto l8977;} /* x114936 */ /* x114935 */ /* x114934 */ /* x114929 stalin.sc:12904:451713 */ /* x114920 stalin.sc:12905:451757 */ t58662 = a24898; /* x114928 stalin.sc:12906:451763 */ /* x114924 stalin.sc:12906:451771 */ /* x114923 stalin.sc:12906:451807 */ t58666 = a24898; /* x114922 stalin.sc:12906:451772 */ a19807 = t58666; /* x52728 */ /* x52727 */ t58667 = a19807; /* x52726 */ if (!((t58667.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("STRING-TYPE-ALLOCATING-EXPRESSIONS[6111]"); structure_ref_error();} t58664 = t58667.value.structure_type27673->s0; /* x114927 stalin.sc:12907:451815 */ /* x114926 stalin.sc:12907:451851 */ t58668 = a24900; /* x114925 stalin.sc:12907:451816 */ a37733 = t58668; /* x283601 */ /* x283600 */ t58669 = a37733; /* x283599 */ if (!((t58669.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-ALLOCATING-EXPRESSIONS[6111] 32650]"); structure_ref_error();} t58665 = t58669.value.structure_type27673->s0; /* x114921 stalin.sc:12906:451764 */ t58663 = f1390(t58664, t58665); /* x114919 stalin.sc:12904:451714 */ f6112(t58662, t58663); /* x114933 stalin.sc:12908:451859 */ /* x114931 stalin.sc:12908:451882 */ t58670 = a24900; /* x114932 stalin.sc:12908:451885 */ t58671 = a24898; /* x114930 stalin.sc:12908:451860 */ f6120(t58670, t58671); /* x114918 */ /* x114917 stalin.sc:12909:451891 */ /* x114916 stalin.sc:12909:451904 */ a24878 = TRUE_TYPE; return; l8977: /* x114938 stalin.sc:12901:451609 */ /* x114937 stalin.sc:12901:451609 */ return;} /* [inside loop 12865] */ void f12865(struct w49 a24892) {struct w49 a38245; /* S */ struct w49 a38246; /* S */ struct w49 a38252; /* S */ struct w49 a38253; /* S */ struct w49 t58672; struct w49 t58673; struct w49 t58674; struct w49 t58675; struct w49 t58676; struct w49 t58677; struct w49 t58678; struct w49 t58679; struct w49 t58680; struct w49 t58681; struct w49 t58682; struct w49 t58683; struct w49 t58684; struct w49 t58685; struct w49 t58686; struct w49 t58687; struct w49 t58688; struct w49 t58689; struct w49 t58690; struct w49 t58691; /* x114841 stalin.sc:12885:451047 */ /* x114828 stalin.sc:12885:451053 */ /* x114798 stalin.sc:12885:451058 */ /* x114796 stalin.sc:12885:451063 */ /* x114795 stalin.sc:12885:451090 */ t58674 = a24890; /* x114794 stalin.sc:12885:451064 */ a38246 = t58674; /* x285653 */ /* x285652 */ t58675 = a38246; /* x285651 */ if (!((t58675.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-LINK[5853] 33163]"); structure_ref_error();} t58672 = t58675.value.structure_type27779->s1; /* x114797 stalin.sc:12885:451094 */ t58673 = a24890; /* x269318 stalin.sc:12885:451059 */ /* EQ: dispatching general to general */ if (!((t58672.tag)==(t58673.tag))) goto l8981; switch (t58672.tag) {case FIXNUM_TYPE: if (!((t58672.value.fixnum_type)==(t58673.value.fixnum_type))) goto l8981; break; case FLONUM_TYPE: if (!((t58672.value.flonum_type)==(t58673.value.flonum_type))) goto l8981; break; case INPUT_PORT_TYPE: if (!((t58672.value.input_port_type)==(t58673.value.input_port_type))) goto l8981; break; case OUTPUT_PORT_TYPE: if (!((t58672.value.output_port_type)==(t58673.value.output_port_type))) goto l8981; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58672.value.native_procedure_type15963)==(t58673.value.native_procedure_type15963))) goto l8981; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58672.value.native_procedure_type19067)==(t58673.value.native_procedure_type19067))) goto l8981; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58672.value.native_procedure_type19068)==(t58673.value.native_procedure_type19068))) goto l8981; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58672.value.native_procedure_type22459)==(t58673.value.native_procedure_type22459))) goto l8981; break; case STRUCTURE_TYPE24753: if (!((t58672.value.structure_type24753)==(t58673.value.structure_type24753))) goto l8981; break; case STRUCTURE_TYPE24757: if (!((t58672.value.structure_type24757)==(t58673.value.structure_type24757))) goto l8981; break; case STRUCTURE_TYPE27501: if (!((t58672.value.structure_type27501)==(t58673.value.structure_type27501))) goto l8981; break; case STRUCTURE_TYPE27510: if (!((t58672.value.structure_type27510)==(t58673.value.structure_type27510))) goto l8981; break; case STRUCTURE_TYPE27621: if (!((t58672.value.structure_type27621)==(t58673.value.structure_type27621))) goto l8981; break; case STRUCTURE_TYPE27650: if (!((t58672.value.structure_type27650)==(t58673.value.structure_type27650))) goto l8981; break; case STRUCTURE_TYPE27669: if (!((t58672.value.structure_type27669)==(t58673.value.structure_type27669))) goto l8981; break; case STRUCTURE_TYPE27673: if (!((t58672.value.structure_type27673)==(t58673.value.structure_type27673))) goto l8981; break; case STRUCTURE_TYPE27692: if (!((t58672.value.structure_type27692)==(t58673.value.structure_type27692))) goto l8981; break; case STRUCTURE_TYPE27694: if (!((t58672.value.structure_type27694)==(t58673.value.structure_type27694))) goto l8981; break; case STRUCTURE_TYPE27698: if (!((t58672.value.structure_type27698)==(t58673.value.structure_type27698))) goto l8981; break; case STRUCTURE_TYPE27745: if (!((t58672.value.structure_type27745)==(t58673.value.structure_type27745))) goto l8981; break; case STRUCTURE_TYPE27747: if (!((t58672.value.structure_type27747)==(t58673.value.structure_type27747))) goto l8981; break; case STRUCTURE_TYPE27750: if (!((t58672.value.structure_type27750)==(t58673.value.structure_type27750))) goto l8981; break; case STRUCTURE_TYPE27753: if (!((t58672.value.structure_type27753)==(t58673.value.structure_type27753))) goto l8981; break; case STRUCTURE_TYPE27756: if (!((t58672.value.structure_type27756)==(t58673.value.structure_type27756))) goto l8981; break; case STRUCTURE_TYPE27761: if (!((t58672.value.structure_type27761)==(t58673.value.structure_type27761))) goto l8981; break; case STRUCTURE_TYPE27769: if (!((t58672.value.structure_type27769)==(t58673.value.structure_type27769))) goto l8981; break; case STRUCTURE_TYPE27776: if (!((t58672.value.structure_type27776)==(t58673.value.structure_type27776))) goto l8981; break; case STRUCTURE_TYPE27779: if (!((t58672.value.structure_type27779)==(t58673.value.structure_type27779))) goto l8981; break; case STRUCTURE_TYPE27858: if (!((t58672.value.structure_type27858)==(t58673.value.structure_type27858))) goto l8981; break; case STRING_TYPE: if (!((t58672.value.string_type)==(t58673.value.string_type))) goto l8981; break; case HEADED_VECTOR_TYPE27896: if (!((t58672.value.headed_vector_type27896)==(t58673.value.headed_vector_type27896))) goto l8981; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58672.value.external_symbol_type)==(t58673.value.external_symbol_type))) goto l8981; break; case STRUCTURE_TYPE27908: if (!((t58672.value.structure_type27908)==(t58673.value.structure_type27908))) goto l8981; break; default:;} /* x114826 */ /* x114804 stalin.sc:12886:451103 */ /* x114802 stalin.sc:12886:451108 */ /* x114801 stalin.sc:12886:451135 */ t58678 = a24892; /* x114800 stalin.sc:12886:451109 */ a38245 = t58678; /* x285649 */ /* x285648 */ t58679 = a38245; /* x285647 */ if (!((t58679.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-LINK[5853] 33162]"); structure_ref_error();} t58676 = t58679.value.structure_type27779->s1; /* x114803 stalin.sc:12886:451139 */ t58677 = a24892; /* x269317 stalin.sc:12886:451104 */ /* EQ: dispatching general to general */ if (!((t58676.tag)==(t58677.tag))) goto l8981; switch (t58676.tag) {case FIXNUM_TYPE: if (!((t58676.value.fixnum_type)==(t58677.value.fixnum_type))) goto l8981; break; case FLONUM_TYPE: if (!((t58676.value.flonum_type)==(t58677.value.flonum_type))) goto l8981; break; case INPUT_PORT_TYPE: if (!((t58676.value.input_port_type)==(t58677.value.input_port_type))) goto l8981; break; case OUTPUT_PORT_TYPE: if (!((t58676.value.output_port_type)==(t58677.value.output_port_type))) goto l8981; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58676.value.native_procedure_type15963)==(t58677.value.native_procedure_type15963))) goto l8981; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58676.value.native_procedure_type19067)==(t58677.value.native_procedure_type19067))) goto l8981; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58676.value.native_procedure_type19068)==(t58677.value.native_procedure_type19068))) goto l8981; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58676.value.native_procedure_type22459)==(t58677.value.native_procedure_type22459))) goto l8981; break; case STRUCTURE_TYPE24753: if (!((t58676.value.structure_type24753)==(t58677.value.structure_type24753))) goto l8981; break; case STRUCTURE_TYPE24757: if (!((t58676.value.structure_type24757)==(t58677.value.structure_type24757))) goto l8981; break; case STRUCTURE_TYPE27501: if (!((t58676.value.structure_type27501)==(t58677.value.structure_type27501))) goto l8981; break; case STRUCTURE_TYPE27510: if (!((t58676.value.structure_type27510)==(t58677.value.structure_type27510))) goto l8981; break; case STRUCTURE_TYPE27621: if (!((t58676.value.structure_type27621)==(t58677.value.structure_type27621))) goto l8981; break; case STRUCTURE_TYPE27650: if (!((t58676.value.structure_type27650)==(t58677.value.structure_type27650))) goto l8981; break; case STRUCTURE_TYPE27669: if (!((t58676.value.structure_type27669)==(t58677.value.structure_type27669))) goto l8981; break; case STRUCTURE_TYPE27673: if (!((t58676.value.structure_type27673)==(t58677.value.structure_type27673))) goto l8981; break; case STRUCTURE_TYPE27692: if (!((t58676.value.structure_type27692)==(t58677.value.structure_type27692))) goto l8981; break; case STRUCTURE_TYPE27694: if (!((t58676.value.structure_type27694)==(t58677.value.structure_type27694))) goto l8981; break; case STRUCTURE_TYPE27698: if (!((t58676.value.structure_type27698)==(t58677.value.structure_type27698))) goto l8981; break; case STRUCTURE_TYPE27745: if (!((t58676.value.structure_type27745)==(t58677.value.structure_type27745))) goto l8981; break; case STRUCTURE_TYPE27747: if (!((t58676.value.structure_type27747)==(t58677.value.structure_type27747))) goto l8981; break; case STRUCTURE_TYPE27750: if (!((t58676.value.structure_type27750)==(t58677.value.structure_type27750))) goto l8981; break; case STRUCTURE_TYPE27753: if (!((t58676.value.structure_type27753)==(t58677.value.structure_type27753))) goto l8981; break; case STRUCTURE_TYPE27756: if (!((t58676.value.structure_type27756)==(t58677.value.structure_type27756))) goto l8981; break; case STRUCTURE_TYPE27761: if (!((t58676.value.structure_type27761)==(t58677.value.structure_type27761))) goto l8981; break; case STRUCTURE_TYPE27769: if (!((t58676.value.structure_type27769)==(t58677.value.structure_type27769))) goto l8981; break; case STRUCTURE_TYPE27776: if (!((t58676.value.structure_type27776)==(t58677.value.structure_type27776))) goto l8981; break; case STRUCTURE_TYPE27779: if (!((t58676.value.structure_type27779)==(t58677.value.structure_type27779))) goto l8981; break; case STRUCTURE_TYPE27858: if (!((t58676.value.structure_type27858)==(t58677.value.structure_type27858))) goto l8981; break; case STRING_TYPE: if (!((t58676.value.string_type)==(t58677.value.string_type))) goto l8981; break; case HEADED_VECTOR_TYPE27896: if (!((t58676.value.headed_vector_type27896)==(t58677.value.headed_vector_type27896))) goto l8981; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58676.value.external_symbol_type)==(t58677.value.external_symbol_type))) goto l8981; break; case STRUCTURE_TYPE27908: if (!((t58676.value.structure_type27908)==(t58677.value.structure_type27908))) goto l8981; break; default:;} /* x114824 */ /* x114810 stalin.sc:12887:451148 */ /* x114809 stalin.sc:12887:451153 */ /* x114807 stalin.sc:12887:451158 */ t58680 = a24890; /* x114808 stalin.sc:12887:451161 */ t58681 = a24892; /* x269315 stalin.sc:12887:451154 */ /* EQ: dispatching general to general */ if ((t58680.tag)==(t58681.tag)) switch (t58680.tag) {case FIXNUM_TYPE: if ((t58680.value.fixnum_type)==(t58681.value.fixnum_type)) goto l8981; break; case FLONUM_TYPE: if ((t58680.value.flonum_type)==(t58681.value.flonum_type)) goto l8981; break; case INPUT_PORT_TYPE: if ((t58680.value.input_port_type)==(t58681.value.input_port_type)) goto l8981; break; case OUTPUT_PORT_TYPE: if ((t58680.value.output_port_type)==(t58681.value.output_port_type)) goto l8981; break; case NATIVE_PROCEDURE_TYPE15963: if ((t58680.value.native_procedure_type15963)==(t58681.value.native_procedure_type15963)) goto l8981; break; case NATIVE_PROCEDURE_TYPE19067: if ((t58680.value.native_procedure_type19067)==(t58681.value.native_procedure_type19067)) goto l8981; break; case NATIVE_PROCEDURE_TYPE19068: if ((t58680.value.native_procedure_type19068)==(t58681.value.native_procedure_type19068)) goto l8981; break; case NATIVE_PROCEDURE_TYPE22459: if ((t58680.value.native_procedure_type22459)==(t58681.value.native_procedure_type22459)) goto l8981; break; case STRUCTURE_TYPE24753: if ((t58680.value.structure_type24753)==(t58681.value.structure_type24753)) goto l8981; break; case STRUCTURE_TYPE24757: if ((t58680.value.structure_type24757)==(t58681.value.structure_type24757)) goto l8981; break; case STRUCTURE_TYPE27501: if ((t58680.value.structure_type27501)==(t58681.value.structure_type27501)) goto l8981; break; case STRUCTURE_TYPE27510: if ((t58680.value.structure_type27510)==(t58681.value.structure_type27510)) goto l8981; break; case STRUCTURE_TYPE27621: if ((t58680.value.structure_type27621)==(t58681.value.structure_type27621)) goto l8981; break; case STRUCTURE_TYPE27650: if ((t58680.value.structure_type27650)==(t58681.value.structure_type27650)) goto l8981; break; case STRUCTURE_TYPE27669: if ((t58680.value.structure_type27669)==(t58681.value.structure_type27669)) goto l8981; break; case STRUCTURE_TYPE27673: if ((t58680.value.structure_type27673)==(t58681.value.structure_type27673)) goto l8981; break; case STRUCTURE_TYPE27692: if ((t58680.value.structure_type27692)==(t58681.value.structure_type27692)) goto l8981; break; case STRUCTURE_TYPE27694: if ((t58680.value.structure_type27694)==(t58681.value.structure_type27694)) goto l8981; break; case STRUCTURE_TYPE27698: if ((t58680.value.structure_type27698)==(t58681.value.structure_type27698)) goto l8981; break; case STRUCTURE_TYPE27745: if ((t58680.value.structure_type27745)==(t58681.value.structure_type27745)) goto l8981; break; case STRUCTURE_TYPE27747: if ((t58680.value.structure_type27747)==(t58681.value.structure_type27747)) goto l8981; break; case STRUCTURE_TYPE27750: if ((t58680.value.structure_type27750)==(t58681.value.structure_type27750)) goto l8981; break; case STRUCTURE_TYPE27753: if ((t58680.value.structure_type27753)==(t58681.value.structure_type27753)) goto l8981; break; case STRUCTURE_TYPE27756: if ((t58680.value.structure_type27756)==(t58681.value.structure_type27756)) goto l8981; break; case STRUCTURE_TYPE27761: if ((t58680.value.structure_type27761)==(t58681.value.structure_type27761)) goto l8981; break; case STRUCTURE_TYPE27769: if ((t58680.value.structure_type27769)==(t58681.value.structure_type27769)) goto l8981; break; case STRUCTURE_TYPE27776: if ((t58680.value.structure_type27776)==(t58681.value.structure_type27776)) goto l8981; break; case STRUCTURE_TYPE27779: if ((t58680.value.structure_type27779)==(t58681.value.structure_type27779)) goto l8981; break; case STRUCTURE_TYPE27858: if ((t58680.value.structure_type27858)==(t58681.value.structure_type27858)) goto l8981; break; case STRING_TYPE: if ((t58680.value.string_type)==(t58681.value.string_type)) goto l8981; break; case HEADED_VECTOR_TYPE27896: if ((t58680.value.headed_vector_type27896)==(t58681.value.headed_vector_type27896)) goto l8981; break; case EXTERNAL_SYMBOL_TYPE: if ((t58680.value.external_symbol_type)==(t58681.value.external_symbol_type)) goto l8981; break; case STRUCTURE_TYPE27908: if ((t58680.value.structure_type27908)==(t58681.value.structure_type27908)) goto l8981; break; default: goto l8981;} /* x114822 */ /* x114816 stalin.sc:12888:451176 */ /* x114815 stalin.sc:12889:451198 */ /* x114814 stalin.sc:12889:451242 */ t58685 = a24890; /* x114813 stalin.sc:12889:451199 */ a38252 = t58685; /* x285677 */ /* x285676 */ t58686 = a38252; /* x285675 */ if (!((t58686.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-DISPLACED-STRING-TYPE[5845] 33169]"); structure_ref_error();} t58684 = t58686.value.structure_type27779->s0; /* x114812 stalin.sc:12888:451177 */ t58682 = f12784(t58684); /* x114821 stalin.sc:12890:451250 */ /* x114820 stalin.sc:12891:451272 */ /* x114819 stalin.sc:12891:451316 */ t58688 = a24892; /* x114818 stalin.sc:12891:451273 */ a38253 = t58688; /* x285681 */ /* x285680 */ t58689 = a38253; /* x285679 */ if (!((t58689.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-DISPLACED-STRING-TYPE[5845] 33170]"); structure_ref_error();} t58687 = t58689.value.structure_type27779->s0; /* x114817 stalin.sc:12890:451251 */ t58683 = f12784(t58687); /* x269314 stalin.sc:12888:451172 */ /* EQ: dispatching general to general */ if (!((t58682.tag)==(t58683.tag))) goto l8981; switch (t58682.tag) {case FIXNUM_TYPE: if (!((t58682.value.fixnum_type)==(t58683.value.fixnum_type))) goto l8981; break; case FLONUM_TYPE: if (!((t58682.value.flonum_type)==(t58683.value.flonum_type))) goto l8981; break; case INPUT_PORT_TYPE: if (!((t58682.value.input_port_type)==(t58683.value.input_port_type))) goto l8981; break; case OUTPUT_PORT_TYPE: if (!((t58682.value.output_port_type)==(t58683.value.output_port_type))) goto l8981; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58682.value.native_procedure_type15963)==(t58683.value.native_procedure_type15963))) goto l8981; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58682.value.native_procedure_type19067)==(t58683.value.native_procedure_type19067))) goto l8981; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58682.value.native_procedure_type19068)==(t58683.value.native_procedure_type19068))) goto l8981; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58682.value.native_procedure_type22459)==(t58683.value.native_procedure_type22459))) goto l8981; break; case STRUCTURE_TYPE24753: if (!((t58682.value.structure_type24753)==(t58683.value.structure_type24753))) goto l8981; break; case STRUCTURE_TYPE24757: if (!((t58682.value.structure_type24757)==(t58683.value.structure_type24757))) goto l8981; break; case STRUCTURE_TYPE27501: if (!((t58682.value.structure_type27501)==(t58683.value.structure_type27501))) goto l8981; break; case STRUCTURE_TYPE27510: if (!((t58682.value.structure_type27510)==(t58683.value.structure_type27510))) goto l8981; break; case STRUCTURE_TYPE27621: if (!((t58682.value.structure_type27621)==(t58683.value.structure_type27621))) goto l8981; break; case STRUCTURE_TYPE27650: if (!((t58682.value.structure_type27650)==(t58683.value.structure_type27650))) goto l8981; break; case STRUCTURE_TYPE27669: if (!((t58682.value.structure_type27669)==(t58683.value.structure_type27669))) goto l8981; break; case STRUCTURE_TYPE27673: if (!((t58682.value.structure_type27673)==(t58683.value.structure_type27673))) goto l8981; break; case STRUCTURE_TYPE27692: if (!((t58682.value.structure_type27692)==(t58683.value.structure_type27692))) goto l8981; break; case STRUCTURE_TYPE27694: if (!((t58682.value.structure_type27694)==(t58683.value.structure_type27694))) goto l8981; break; case STRUCTURE_TYPE27698: if (!((t58682.value.structure_type27698)==(t58683.value.structure_type27698))) goto l8981; break; case STRUCTURE_TYPE27745: if (!((t58682.value.structure_type27745)==(t58683.value.structure_type27745))) goto l8981; break; case STRUCTURE_TYPE27747: if (!((t58682.value.structure_type27747)==(t58683.value.structure_type27747))) goto l8981; break; case STRUCTURE_TYPE27750: if (!((t58682.value.structure_type27750)==(t58683.value.structure_type27750))) goto l8981; break; case STRUCTURE_TYPE27753: if (!((t58682.value.structure_type27753)==(t58683.value.structure_type27753))) goto l8981; break; case STRUCTURE_TYPE27756: if (!((t58682.value.structure_type27756)==(t58683.value.structure_type27756))) goto l8981; break; case STRUCTURE_TYPE27761: if (!((t58682.value.structure_type27761)==(t58683.value.structure_type27761))) goto l8981; break; case STRUCTURE_TYPE27769: if (!((t58682.value.structure_type27769)==(t58683.value.structure_type27769))) goto l8981; break; case STRUCTURE_TYPE27776: if (!((t58682.value.structure_type27776)==(t58683.value.structure_type27776))) goto l8981; break; case STRUCTURE_TYPE27779: if (!((t58682.value.structure_type27779)==(t58683.value.structure_type27779))) goto l8981; break; case STRUCTURE_TYPE27858: if (!((t58682.value.structure_type27858)==(t58683.value.structure_type27858))) goto l8981; break; case STRING_TYPE: if (!((t58682.value.string_type)==(t58683.value.string_type))) goto l8981; break; case HEADED_VECTOR_TYPE27896: if (!((t58682.value.headed_vector_type27896)==(t58683.value.headed_vector_type27896))) goto l8981; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58682.value.external_symbol_type)==(t58683.value.external_symbol_type))) goto l8981; break; case STRUCTURE_TYPE27908: if (!((t58682.value.structure_type27908)==(t58683.value.structure_type27908))) goto l8981; break; default:;} /* x114838 */ /* x114837 */ /* x114836 */ /* x114835 stalin.sc:12892:451325 */ /* x114833 stalin.sc:12892:451357 */ t58690 = a24892; /* x114834 stalin.sc:12892:451360 */ t58691 = a24890; /* x114832 stalin.sc:12892:451326 */ f5854(t58690, t58691); /* x114831 */ /* x114830 stalin.sc:12893:451366 */ /* x114829 stalin.sc:12893:451379 */ a24878 = TRUE_TYPE; return; l8981: /* x114840 stalin.sc:12885:451047 */ /* x114839 stalin.sc:12885:451047 */ return;} /* TRIE-REF[12834] */ struct w49 f12834(struct structure_type27623 *a24860, struct structure_type24753 *a24861) {struct w49 a24864; /* TRIE-NODE */ struct w49 a24865; /* LIST */ struct w16638 a35550; /* PAIR */ struct w16638 a36117; /* PAIR */ struct w16638 a36118; /* PAIR */ struct w3467 a40541; /* S */ struct w3467 a40547; /* S */ struct w3467 a40548; /* S */ struct structure_type27623 *a40551; /* S */ struct structure_type27623 *a40554; /* S */ struct structure_type27621 *t58692; struct structure_type24753 *t58693; struct structure_type27623 *t58694; struct structure_type27623 *t58695; struct w49 t58696; struct w49 t58697; struct w49 t58698; struct w49 t58699; unsigned t58700; struct w49 t58701; struct w16638 t58702; struct w16638 t58703; struct w3467 t58704; struct w3467 t58705; struct w49 t58706; struct w49 t58707; unsigned t58708; struct w49 t58709; struct w16638 t58710; struct w16638 t58711; struct w3467 t58712; struct w3467 t58713; struct w16638 t58714; struct w16638 t58715; struct w3467 t58716; struct w3467 t58717; struct structure_type27623 *t58718; struct structure_type27623 *t58719; /* x114684 stalin.sc:12855:449972 */ /* x114682 stalin.sc:12855:449994 */ /* x114681 stalin.sc:12855:450010 */ t58718 = a24860; /* x114680 stalin.sc:12855:449995 */ a40551 = t58718; /* x294937 */ /* x294936 */ t58719 = a40551; /* x294935 */ t58692 = t58719->s4; /* x114683 stalin.sc:12855:450023 */ t58693 = a24861; /* x114679 */ /* x114678 */ /* x114677 */ /* x114676 */ /* x114675 */ /* x114674 */ /* x114673 */ /* x114635 */ /* x114634 stalin.sc:12855:449977 */ a24864.tag = STRUCTURE_TYPE27621; a24864.value.structure_type27621 = t58692; /* MOVE: branching squeezed to general */ if (t58693>=((struct structure_type24753 *)VALUE_OFFSET)) {a24865.tag = STRUCTURE_TYPE24753; a24865.value.structure_type24753 = t58693;} else a24865.tag = (unsigned)t58693; h12837: /* x114672 stalin.sc:12856:450033 */ /* x114636 stalin.sc:12856:450037 */ if ((a24864.tag)==FALSE_TYPE) goto l8986; /* x114668 stalin.sc:12857:450054 */ /* x114639 stalin.sc:12857:450058 */ /* x114638 stalin.sc:12857:450065 */ t58696 = a24865; /* x269326 stalin.sc:12857:450059 */ if (!((t58696.tag)==NULL_TYPE)) goto l8988; /* x114642 stalin.sc:12858:450075 */ /* x114641 stalin.sc:12858:450092 */ t58716 = *((struct w3467 *)(&a24864)); /* x114640 stalin.sc:12858:450076 */ a40541 = t58716; /* x294897 */ /* x294896 */ t58717 = a40541; /* x294895 */ if ((t58717.tag)==STRUCTURE_TYPE27621) return t58717.value.structure_type27621->s1; backtrace_internal("[clone TRIE-NODE-VALUE[2278] 35483]"); structure_ref_error(); l8988: /* x114667 stalin.sc:12859:450107 */ /* x114663 stalin.sc:12859:450113 */ /* x114651 stalin.sc:12859:450118 */ /* x114647 stalin.sc:12859:450124 */ /* x114646 stalin.sc:12859:450131 */ t58702 = *((struct w16638 *)(&a24865)); /* x114645 stalin.sc:12859:450125 */ a36118 = t58702; /* x275829 */ /* x275828 */ t58703 = a36118; /* x275827 */ if (!((t58703.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30267]"); structure_ref_error();} t58699 = t58703.value.structure_type24753->s0; /* x114650 stalin.sc:12859:450137 */ /* x114649 stalin.sc:12859:450154 */ t58704 = *((struct w3467 *)(&a24864)); /* x114648 stalin.sc:12859:450138 */ a40548 = t58704; /* x294925 */ /* x294924 */ t58705 = a40548; /* x294923 */ if (!((t58705.tag)==STRUCTURE_TYPE27621)) {backtrace_internal("[clone TRIE-NODE-TABLE[2270] 35490]"); structure_ref_error();} t58700 = t58705.value.structure_type27621->s0; /* x114644 stalin.sc:12859:450119 */ /* MOVE: dispatching squished to general */ if (t58700==NULL_TYPE) t58701.tag = (unsigned)t58700; else {if ((t58700&3)==1) {t58701.tag = STRUCTURE_TYPE24753; t58701.value.structure_type24753 = (struct structure_type24753 *)(t58700-1);} else {t58701.tag = HEADED_VECTOR_TYPE27896; t58701.value.headed_vector_type27896 = (struct headed_vector_type27896 *)t58700;}} if ((f26354(t58699, t58701).tag)==FALSE_TYPE) goto l8990; /* x114661 */ /* x114660 stalin.sc:12860:450179 */ /* x114656 stalin.sc:12860:450185 */ /* x114655 stalin.sc:12860:450192 */ t58710 = *((struct w16638 *)(&a24865)); /* x114654 stalin.sc:12860:450186 */ a36117 = t58710; /* x275825 */ /* x275824 */ t58711 = a36117; /* x275823 */ if (!((t58711.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30266]"); structure_ref_error();} t58707 = t58711.value.structure_type24753->s0; /* x114659 stalin.sc:12860:450198 */ /* x114658 stalin.sc:12860:450215 */ t58712 = *((struct w3467 *)(&a24864)); /* x114657 stalin.sc:12860:450199 */ a40547 = t58712; /* x294921 */ /* x294920 */ t58713 = a40547; /* x294919 */ if (!((t58713.tag)==STRUCTURE_TYPE27621)) {backtrace_internal("[clone TRIE-NODE-TABLE[2270] 35489]"); structure_ref_error();} t58708 = t58713.value.structure_type27621->s0; /* x114653 stalin.sc:12860:450180 */ /* MOVE: dispatching squished to general */ if (t58708==NULL_TYPE) t58709.tag = (unsigned)t58708; else {if ((t58708&3)==1) {t58709.tag = STRUCTURE_TYPE24753; t58709.value.structure_type24753 = (struct structure_type24753 *)(t58708-1);} else {t58709.tag = HEADED_VECTOR_TYPE27896; t58709.value.headed_vector_type27896 = (struct headed_vector_type27896 *)t58708;}} t58706 = f26354(t58707, t58709); /* x269325 stalin.sc:12860:450175 */ if (!((t58706.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[12837]"); structure_ref_error();} t58697 = t58706.value.structure_type24753->s1; goto l8991; l8990: /* x114662 */ t58697.tag = FALSE_TYPE; l8991: /* x114666 stalin.sc:12861:450232 */ /* x114665 stalin.sc:12861:450238 */ t58714 = *((struct w16638 *)(&a24865)); /* x114664 stalin.sc:12861:450233 */ a35550 = t58714; /* x273557 */ /* x273556 */ t58715 = a35550; /* x273555 */ if (!((t58715.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29699]"); structure_ref_error();} t58698 = t58715.value.structure_type24753->s1; /* x114643 stalin.sc:12859:450108 */ a24864 = t58697; a24865 = t58698; goto h12837; l8986: /* x114671 stalin.sc:12862:450253 */ /* x114670 stalin.sc:12862:450273 */ t58694 = a24860; /* x114669 stalin.sc:12862:450254 */ a40554 = t58694; /* x294949 */ /* x294948 */ t58695 = a40554; /* x294947 */ return t58695->s3;} /* SORTING-REMOVE-DUPLICATESQ[12827] */ struct structure_type24753 *f12827(struct structure_type24753 *a24853) {struct w49 a24856; /* US */ struct structure_type24753 *a24857; /* US1 */ struct w16638 a35551; /* PAIR */ struct w16638 a36119; /* PAIR */ struct structure_type24753 *a36120; /* PAIR */ struct w16638 a36121; /* PAIR */ struct w49 t58720; struct w49 t58721; struct w49 t58722; struct structure_type24753 *t58723; struct w16638 t58724; struct w16638 t58725; struct structure_type24753 *t58726; struct w49 t58727; struct w49 t58728; struct w16638 t58729; struct w16638 t58730; struct structure_type24753 *t58731; struct structure_type24753 *t58732; struct w49 t58733; struct structure_type24753 *t58734; struct w16638 t58735; struct w16638 t58736; struct structure_type24753 *t58737; struct w49 t58738; unsigned t58739; unsigned t58740; /* x114607 stalin.sc:12842:449518 */ /* x114605 stalin.sc:12842:449533 */ /* x114602 stalin.sc:12842:449539 */ t58737 = a24853; /* x114603 stalin.sc:12842:449542 */ /* x114604 stalin.sc:12842:449544 */ /* x114601 stalin.sc:12842:449534 */ /* MOVE: branching squeezed to general */ if (t58737>=((struct structure_type24753 *)VALUE_OFFSET)) {t58738.tag = STRUCTURE_TYPE24753; t58738.value.structure_type24753 = t58737;} else t58738.tag = (unsigned)t58737; t58739 = NATIVE_PROCEDURE_TYPE424; t58740 = NATIVE_PROCEDURE_TYPE7387; t58720 = f1581(t58738, t58739, t58740); /* x114606 stalin.sc:12842:449562 */ /* x114600 */ /* x114599 */ /* x114598 */ /* x114597 */ /* x114596 */ /* x114595 */ /* x114594 */ /* x114560 */ /* x114559 stalin.sc:12842:449523 */ a24856 = t58720; a24857 = (struct structure_type24753 *)NULL_TYPE; h12830: /* x114593 stalin.sc:12843:449571 */ /* x114563 stalin.sc:12843:449575 */ /* x114562 stalin.sc:12843:449582 */ t58721 = a24856; /* x269332 stalin.sc:12843:449576 */ if (!((t58721.tag)==NULL_TYPE)) goto l8993; /* x114564 stalin.sc:12844:449593 */ return a24857; l8993: /* x114592 stalin.sc:12845:449604 */ /* x114568 stalin.sc:12845:449610 */ /* x114567 stalin.sc:12845:449616 */ t58724 = *((struct w16638 *)(&a24856)); /* x114566 stalin.sc:12845:449611 */ a35551 = t58724; /* x273561 */ /* x273560 */ t58725 = a35551; /* x273559 */ if (!((t58725.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29700]"); structure_ref_error();} t58722 = t58725.value.structure_type24753->s1; /* x114591 stalin.sc:12846:449626 */ /* x114583 stalin.sc:12846:449630 */ /* x114573 stalin.sc:12846:449635 */ /* x114572 stalin.sc:12846:449640 */ /* x114571 stalin.sc:12846:449647 */ t58726 = a24857; /* x269330 stalin.sc:12846:449641 */ if (((unsigned)t58726)==NULL_TYPE) goto l8995; /* x114581 */ /* x114577 stalin.sc:12846:449658 */ /* x114576 stalin.sc:12846:449665 */ t58729 = *((struct w16638 *)(&a24856)); /* x114575 stalin.sc:12846:449659 */ a36119 = t58729; /* x275833 */ /* x275832 */ t58730 = a36119; /* x275831 */ if (!((t58730.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30268]"); structure_ref_error();} t58727 = t58730.value.structure_type24753->s0; /* x114580 stalin.sc:12846:449669 */ /* x114579 stalin.sc:12846:449676 */ t58731 = a24857; /* x114578 stalin.sc:12846:449670 */ a36120 = t58731; /* x275837 */ /* x275836 */ t58732 = a36120; /* x275835 */ t58728 = t58732->s0; /* x269329 stalin.sc:12846:449654 */ /* EQ: dispatching general to general */ if (!((t58727.tag)==(t58728.tag))) goto l8995; switch (t58727.tag) {case FIXNUM_TYPE: if (!((t58727.value.fixnum_type)==(t58728.value.fixnum_type))) goto l8995; break; case FLONUM_TYPE: if (!((t58727.value.flonum_type)==(t58728.value.flonum_type))) goto l8995; break; case INPUT_PORT_TYPE: if (!((t58727.value.input_port_type)==(t58728.value.input_port_type))) goto l8995; break; case OUTPUT_PORT_TYPE: if (!((t58727.value.output_port_type)==(t58728.value.output_port_type))) goto l8995; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58727.value.native_procedure_type15963)==(t58728.value.native_procedure_type15963))) goto l8995; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58727.value.native_procedure_type19067)==(t58728.value.native_procedure_type19067))) goto l8995; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58727.value.native_procedure_type19068)==(t58728.value.native_procedure_type19068))) goto l8995; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58727.value.native_procedure_type22459)==(t58728.value.native_procedure_type22459))) goto l8995; break; case STRUCTURE_TYPE24753: if (!((t58727.value.structure_type24753)==(t58728.value.structure_type24753))) goto l8995; break; case STRUCTURE_TYPE24757: if (!((t58727.value.structure_type24757)==(t58728.value.structure_type24757))) goto l8995; break; case STRUCTURE_TYPE27501: if (!((t58727.value.structure_type27501)==(t58728.value.structure_type27501))) goto l8995; break; case STRUCTURE_TYPE27510: if (!((t58727.value.structure_type27510)==(t58728.value.structure_type27510))) goto l8995; break; case STRUCTURE_TYPE27621: if (!((t58727.value.structure_type27621)==(t58728.value.structure_type27621))) goto l8995; break; case STRUCTURE_TYPE27650: if (!((t58727.value.structure_type27650)==(t58728.value.structure_type27650))) goto l8995; break; case STRUCTURE_TYPE27669: if (!((t58727.value.structure_type27669)==(t58728.value.structure_type27669))) goto l8995; break; case STRUCTURE_TYPE27673: if (!((t58727.value.structure_type27673)==(t58728.value.structure_type27673))) goto l8995; break; case STRUCTURE_TYPE27692: if (!((t58727.value.structure_type27692)==(t58728.value.structure_type27692))) goto l8995; break; case STRUCTURE_TYPE27694: if (!((t58727.value.structure_type27694)==(t58728.value.structure_type27694))) goto l8995; break; case STRUCTURE_TYPE27698: if (!((t58727.value.structure_type27698)==(t58728.value.structure_type27698))) goto l8995; break; case STRUCTURE_TYPE27745: if (!((t58727.value.structure_type27745)==(t58728.value.structure_type27745))) goto l8995; break; case STRUCTURE_TYPE27747: if (!((t58727.value.structure_type27747)==(t58728.value.structure_type27747))) goto l8995; break; case STRUCTURE_TYPE27750: if (!((t58727.value.structure_type27750)==(t58728.value.structure_type27750))) goto l8995; break; case STRUCTURE_TYPE27753: if (!((t58727.value.structure_type27753)==(t58728.value.structure_type27753))) goto l8995; break; case STRUCTURE_TYPE27756: if (!((t58727.value.structure_type27756)==(t58728.value.structure_type27756))) goto l8995; break; case STRUCTURE_TYPE27761: if (!((t58727.value.structure_type27761)==(t58728.value.structure_type27761))) goto l8995; break; case STRUCTURE_TYPE27769: if (!((t58727.value.structure_type27769)==(t58728.value.structure_type27769))) goto l8995; break; case STRUCTURE_TYPE27776: if (!((t58727.value.structure_type27776)==(t58728.value.structure_type27776))) goto l8995; break; case STRUCTURE_TYPE27779: if (!((t58727.value.structure_type27779)==(t58728.value.structure_type27779))) goto l8995; break; case STRUCTURE_TYPE27858: if (!((t58727.value.structure_type27858)==(t58728.value.structure_type27858))) goto l8995; break; case STRING_TYPE: if (!((t58727.value.string_type)==(t58728.value.string_type))) goto l8995; break; case HEADED_VECTOR_TYPE27896: if (!((t58727.value.headed_vector_type27896)==(t58728.value.headed_vector_type27896))) goto l8995; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58727.value.external_symbol_type)==(t58728.value.external_symbol_type))) goto l8995; break; case STRUCTURE_TYPE27908: if (!((t58727.value.structure_type27908)==(t58728.value.structure_type27908))) goto l8995; break; default:;} /* x114584 stalin.sc:12847:449686 */ t58723 = a24857; goto l8996; l8995: /* x114590 stalin.sc:12848:449693 */ /* x114588 stalin.sc:12848:449699 */ /* x114587 stalin.sc:12848:449706 */ t58735 = *((struct w16638 *)(&a24856)); /* x114586 stalin.sc:12848:449700 */ a36121 = t58735; /* x275841 */ /* x275840 */ t58736 = a36121; /* x275839 */ if (!((t58736.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30270]"); structure_ref_error();} t58733 = t58736.value.structure_type24753->s0; /* x114589 stalin.sc:12848:449710 */ t58734 = a24857; /* x269328 stalin.sc:12848:449694 */ t58723 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t58723==NULL) {backtrace("stalin.sc", 12848, 449693); out_of_memory_error();} t58723->s0 = t58733; /* MOVE: branching squeezed to general */ if (t58734>=((struct structure_type24753 *)VALUE_OFFSET)) {t58723->s1.tag = STRUCTURE_TYPE24753; t58723->s1.value.structure_type24753 = t58734;} else t58723->s1.tag = (unsigned)t58734; l8996: /* x114565 stalin.sc:12845:449605 */ a24856 = t58722; a24857 = t58723; goto h12830;} /* [inside APPLY-CLOSED-WORLD-ASSUMPTION! 12826] */ void f12826(struct w49 a24852) {struct w49 a20286; /* S */ struct w49 t58741; struct w49 t58742; /* x114554 stalin.sc:13129:460415 */ /* x114552 stalin.sc:13129:460439 */ t58741 = a24852; /* x114553 stalin.sc:13129:460441 */ /* x114551 stalin.sc:13129:460416 */ a20286 = t58741; /* x54507 */ /* x54505 */ t58742 = a20286; /* x54506 */ /* x54504 */ if ((t58742.tag)==STRUCTURE_TYPE27650) {t58742.value.structure_type27650->s0.tag = FALSE_TYPE; return;} backtrace_internal("SET-TYPE-SET-LOCATION![6468]"); structure_set_error();} /* DEREFERENCE-TYPE-SET[12820] */ struct w49 f12820(struct w49 a24822) {struct w49 a20305; /* S */ struct w49 a24823; /* W1 */ struct w49 a37088; /* S */ struct w49 t58743; struct w49 t58744; struct w49 t58745; struct w49 t58746; struct w49 t58747; struct w49 t58748; struct w49 t58749; struct w49 t58750; struct w49 t58751; struct w49 t58752; /* x114547 stalin.sc:12823:448665 */ /* x114531 stalin.sc:12823:448669 */ /* x114529 stalin.sc:12823:448674 */ /* x114528 stalin.sc:12823:448689 */ t58745 = a24822; /* x114527 stalin.sc:12823:448675 */ a37088 = t58745; /* x281021 */ /* x281020 */ t58746 = a37088; /* x281019 */ if (!((t58746.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LINK[6483] 32005]"); structure_ref_error();} t58743 = t58746.value.structure_type27650->s2; /* x114530 stalin.sc:12823:448692 */ t58744 = a24822; /* x269333 stalin.sc:12823:448670 */ /* EQ: dispatching general to general */ if (!((t58743.tag)==(t58744.tag))) goto l8999; switch (t58743.tag) {case FIXNUM_TYPE: if (!((t58743.value.fixnum_type)==(t58744.value.fixnum_type))) goto l8999; break; case FLONUM_TYPE: if (!((t58743.value.flonum_type)==(t58744.value.flonum_type))) goto l8999; break; case INPUT_PORT_TYPE: if (!((t58743.value.input_port_type)==(t58744.value.input_port_type))) goto l8999; break; case OUTPUT_PORT_TYPE: if (!((t58743.value.output_port_type)==(t58744.value.output_port_type))) goto l8999; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58743.value.native_procedure_type15963)==(t58744.value.native_procedure_type15963))) goto l8999; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58743.value.native_procedure_type19067)==(t58744.value.native_procedure_type19067))) goto l8999; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58743.value.native_procedure_type19068)==(t58744.value.native_procedure_type19068))) goto l8999; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58743.value.native_procedure_type22459)==(t58744.value.native_procedure_type22459))) goto l8999; break; case STRUCTURE_TYPE24753: if (!((t58743.value.structure_type24753)==(t58744.value.structure_type24753))) goto l8999; break; case STRUCTURE_TYPE24757: if (!((t58743.value.structure_type24757)==(t58744.value.structure_type24757))) goto l8999; break; case STRUCTURE_TYPE27501: if (!((t58743.value.structure_type27501)==(t58744.value.structure_type27501))) goto l8999; break; case STRUCTURE_TYPE27510: if (!((t58743.value.structure_type27510)==(t58744.value.structure_type27510))) goto l8999; break; case STRUCTURE_TYPE27621: if (!((t58743.value.structure_type27621)==(t58744.value.structure_type27621))) goto l8999; break; case STRUCTURE_TYPE27650: if (!((t58743.value.structure_type27650)==(t58744.value.structure_type27650))) goto l8999; break; case STRUCTURE_TYPE27669: if (!((t58743.value.structure_type27669)==(t58744.value.structure_type27669))) goto l8999; break; case STRUCTURE_TYPE27673: if (!((t58743.value.structure_type27673)==(t58744.value.structure_type27673))) goto l8999; break; case STRUCTURE_TYPE27692: if (!((t58743.value.structure_type27692)==(t58744.value.structure_type27692))) goto l8999; break; case STRUCTURE_TYPE27694: if (!((t58743.value.structure_type27694)==(t58744.value.structure_type27694))) goto l8999; break; case STRUCTURE_TYPE27698: if (!((t58743.value.structure_type27698)==(t58744.value.structure_type27698))) goto l8999; break; case STRUCTURE_TYPE27745: if (!((t58743.value.structure_type27745)==(t58744.value.structure_type27745))) goto l8999; break; case STRUCTURE_TYPE27747: if (!((t58743.value.structure_type27747)==(t58744.value.structure_type27747))) goto l8999; break; case STRUCTURE_TYPE27750: if (!((t58743.value.structure_type27750)==(t58744.value.structure_type27750))) goto l8999; break; case STRUCTURE_TYPE27753: if (!((t58743.value.structure_type27753)==(t58744.value.structure_type27753))) goto l8999; break; case STRUCTURE_TYPE27756: if (!((t58743.value.structure_type27756)==(t58744.value.structure_type27756))) goto l8999; break; case STRUCTURE_TYPE27761: if (!((t58743.value.structure_type27761)==(t58744.value.structure_type27761))) goto l8999; break; case STRUCTURE_TYPE27769: if (!((t58743.value.structure_type27769)==(t58744.value.structure_type27769))) goto l8999; break; case STRUCTURE_TYPE27776: if (!((t58743.value.structure_type27776)==(t58744.value.structure_type27776))) goto l8999; break; case STRUCTURE_TYPE27779: if (!((t58743.value.structure_type27779)==(t58744.value.structure_type27779))) goto l8999; break; case STRUCTURE_TYPE27858: if (!((t58743.value.structure_type27858)==(t58744.value.structure_type27858))) goto l8999; break; case STRING_TYPE: if (!((t58743.value.string_type)==(t58744.value.string_type))) goto l8999; break; case HEADED_VECTOR_TYPE27896: if (!((t58743.value.headed_vector_type27896)==(t58744.value.headed_vector_type27896))) goto l8999; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58743.value.external_symbol_type)==(t58744.value.external_symbol_type))) goto l8999; break; case STRUCTURE_TYPE27908: if (!((t58743.value.structure_type27908)==(t58744.value.structure_type27908))) goto l8999; break; default:;} /* x114532 stalin.sc:12824:448700 */ return a24822; l8999: /* x114546 stalin.sc:12825:448707 */ /* x114545 stalin.sc:12825:448717 */ /* x114544 stalin.sc:12825:448739 */ /* x114543 stalin.sc:12825:448754 */ t58751 = a24822; /* x114542 stalin.sc:12825:448740 */ a20305 = t58751; /* x54579 */ /* x54578 */ t58752 = a20305; /* x54577 */ if (!((t58752.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("TYPE-SET-LINK[6483]"); structure_ref_error();} t58750 = t58752.value.structure_type27650->s2; /* x114541 stalin.sc:12825:448718 */ t58747 = f12820(t58750); /* x114540 */ a24823 = t58747; /* x114539 */ /* x114538 stalin.sc:12826:448766 */ /* x114536 stalin.sc:12826:448786 */ t58748 = a24822; /* x114537 stalin.sc:12826:448788 */ t58749 = a24823; /* x114535 stalin.sc:12826:448767 */ f6484(t58748, t58749); /* x114534 */ /* x114533 stalin.sc:12827:448798 */ return a24823;} /* DEREFERENCE-TYPE[12784] */ struct w49 f12784(struct w49 a24809) {struct w49 a19459; /* S */ struct w49 a19817; /* S */ struct w49 a19917; /* S */ struct w49 a20006; /* S */ struct w49 a20095; /* S */ struct w49 a20172; /* S */ struct w49 a24810; /* U1 */ struct w49 a24812; /* U1 */ struct w49 a24814; /* U1 */ struct w49 a24816; /* U1 */ struct w49 a24818; /* U1 */ struct w49 a24820; /* U1 */ struct w49 a37295; /* S */ struct w49 a37347; /* OBJ */ struct w49 a37379; /* S */ struct w49 a37447; /* OBJ */ struct w49 a37482; /* S */ struct w49 a37563; /* OBJ */ struct w49 a37603; /* S */ struct w49 a37705; /* OBJ */ struct w49 a37730; /* S */ struct w49 a37779; /* OBJ */ struct w49 a37900; /* OBJ */ struct w49 a37971; /* OBJ */ struct w49 a38120; /* OBJ */ struct w49 a38229; /* OBJ */ struct w49 a38247; /* S */ struct w49 a38288; /* OBJ */ struct w49 a38329; /* OBJ */ struct w49 t58753; struct w49 t58754; struct w49 t58755; struct w49 t58756; struct w49 t58757; struct w49 t58758; struct w49 t58759; struct w49 t58760; struct w49 t58761; struct w49 t58762; struct w49 t58763; struct w49 t58764; struct w49 t58765; struct w49 t58766; struct w49 t58767; struct w49 t58768; struct w49 t58769; struct w49 t58770; struct w49 t58771; struct w49 t58772; struct w49 t58773; struct w49 t58774; struct w49 t58775; struct w49 t58776; struct w49 t58777; struct w49 t58778; struct w49 t58779; struct w49 t58780; struct w49 t58781; struct w49 t58782; struct w49 t58783; struct w49 t58784; struct w49 t58785; char *t58786; struct w49 t58787; struct w49 t58788; struct w49 t58789; struct w49 t58790; struct w49 t58791; struct w49 t58792; struct w49 t58793; struct w49 t58794; struct w49 t58795; struct w49 t58796; struct w49 t58797; struct w49 t58798; struct w49 t58799; struct w49 t58800; struct w49 t58801; struct w49 t58802; struct w49 t58803; struct w49 t58804; struct w49 t58805; struct w49 t58806; struct w49 t58807; struct w49 t58808; struct w49 t58809; struct w49 t58810; struct w49 t58811; struct w49 t58812; struct w49 t58813; struct w49 t58814; struct w49 t58815; struct w49 t58816; struct w49 t58817; struct w49 t58818; struct w49 t58819; struct w49 t58820; struct w49 t58821; struct w49 t58822; struct w49 t58823; struct w49 t58824; struct w49 t58825; struct w49 t58826; struct w49 t58827; struct w49 t58828; struct w49 t58829; struct w49 t58830; struct w49 t58831; struct w49 t58832; struct w49 t58833; struct w49 t58834; struct w49 t58835; struct w49 t58836; struct w49 t58837; struct w49 t58838; struct w49 t58839; struct w49 t58840; struct w49 t58841; struct w49 t58842; struct w49 t58843; struct w49 t58844; struct w49 t58845; struct w49 t58846; /* x114523 stalin.sc:12768:446920 */ /* x114242 stalin.sc:12768:446927 */ /* x114241 stalin.sc:12768:446939 */ t58753 = a24809; /* x114240 stalin.sc:12768:446928 */ if (f7677(t58753)==FALSE_TYPE) goto l9001; /* x114245 */ /* x114244 */ /* x114243 stalin.sc:12768:446942 */ return a24809; l9001: /* x114522 */ /* x114248 stalin.sc:12769:446953 */ /* x114247 stalin.sc:12769:446965 */ t58754 = a24809; /* x114246 stalin.sc:12769:446954 */ if (f7678(t58754)==FALSE_TYPE) goto l9003; /* x114251 */ /* x114250 */ /* x114249 stalin.sc:12769:446968 */ return a24809; l9003: /* x114521 */ /* x114254 stalin.sc:12770:446979 */ /* x114253 stalin.sc:12770:446992 */ t58755 = a24809; /* x114252 stalin.sc:12770:446980 */ if (f7679(t58755)==FALSE_TYPE) goto l9005; /* x114257 */ /* x114256 */ /* x114255 stalin.sc:12770:446995 */ return a24809; l9005: /* x114520 */ /* x114260 stalin.sc:12771:447006 */ /* x114259 stalin.sc:12771:447018 */ t58756 = a24809; /* x114258 stalin.sc:12771:447007 */ if (f7682(t58756)==FALSE_TYPE) goto l9007; /* x114263 */ /* x114262 */ /* x114261 stalin.sc:12771:447021 */ return a24809; l9007: /* x114519 */ /* x114266 stalin.sc:12772:447032 */ /* x114265 stalin.sc:12772:447046 */ t58757 = a24809; /* x114264 stalin.sc:12772:447033 */ if (f7683(t58757)==FALSE_TYPE) goto l9009; /* x114269 */ /* x114268 */ /* x114267 stalin.sc:12772:447049 */ return a24809; l9009: /* x114518 */ /* x114272 stalin.sc:12773:447060 */ /* x114271 stalin.sc:12773:447074 */ t58758 = a24809; /* x114270 stalin.sc:12773:447061 */ if (f7684(t58758)==FALSE_TYPE) goto l9011; /* x114275 */ /* x114274 */ /* x114273 stalin.sc:12773:447077 */ return a24809; l9011: /* x114517 */ /* x114278 stalin.sc:12774:447088 */ /* x114277 stalin.sc:12774:447107 */ t58759 = a24809; /* x114276 stalin.sc:12774:447089 */ if (f7687(t58759)==FALSE_TYPE) goto l9013; /* x114281 */ /* x114280 */ /* x114279 stalin.sc:12774:447110 */ return a24809; l9013: /* x114516 */ /* x114284 stalin.sc:12775:447121 */ /* x114283 stalin.sc:12775:447139 */ t58760 = a24809; /* x114282 stalin.sc:12775:447122 */ if (f7700(t58760)==FALSE_TYPE) goto l9015; /* x114287 */ /* x114286 */ /* x114285 stalin.sc:12775:447142 */ return a24809; l9015: /* x114515 */ /* x114290 stalin.sc:12776:447153 */ /* x114289 stalin.sc:12776:447172 */ t58761 = a24809; /* x114288 stalin.sc:12776:447154 */ if (f7701(t58761)==FALSE_TYPE) goto l9017; /* x114293 */ /* x114292 */ /* x114291 stalin.sc:12776:447175 */ return a24809; l9017: /* x114514 */ /* x114296 stalin.sc:12777:447186 */ /* x114295 stalin.sc:12777:447204 */ t58762 = a24809; /* x114294 stalin.sc:12777:447187 */ if (f7702(t58762)==FALSE_TYPE) goto l9019; /* x114299 */ /* x114298 */ /* x114297 stalin.sc:12777:447207 */ return a24809; l9019: /* x114513 */ /* x114302 stalin.sc:12778:447218 */ /* x114301 stalin.sc:12778:447233 */ t58763 = a24809; /* x114300 stalin.sc:12778:447219 */ if (f7703(t58763)==FALSE_TYPE) goto l9021; /* x114305 */ /* x114304 */ /* x114303 stalin.sc:12778:447236 */ return a24809; l9021: /* x114512 */ /* x114308 stalin.sc:12779:447247 */ /* x114307 stalin.sc:12779:447270 */ t58764 = a24809; /* x114306 stalin.sc:12779:447248 */ a38329 = t58764; /* x285985 */ /* x285984 */ t58765 = a38329; /* x285983 */ if (!((t58765.tag)==STRUCTURE_TYPE27776)) goto l9023; /* x114311 */ /* x114310 */ /* x114309 stalin.sc:12779:447273 */ return a24809; l9023: /* x114511 */ /* x114314 stalin.sc:12780:447284 */ /* x114313 stalin.sc:12780:447307 */ t58766 = a24809; /* x114312 stalin.sc:12780:447285 */ a38288 = t58766; /* x285821 */ /* x285820 */ t58767 = a38288; /* x285819 */ if (!((t58767.tag)==STRUCTURE_TYPE27779)) goto l9025; /* x114338 */ /* x114337 */ /* x114336 stalin.sc:12781:447311 */ /* x114320 stalin.sc:12781:447315 */ /* x114318 stalin.sc:12781:447320 */ /* x114317 stalin.sc:12781:447347 */ t58839 = a24809; /* x114316 stalin.sc:12781:447321 */ a38247 = t58839; /* x285657 */ /* x285656 */ t58840 = a38247; /* x285655 */ if (!((t58840.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-LINK[5853] 33164]"); structure_ref_error();} t58837 = t58840.value.structure_type27779->s1; /* x114319 stalin.sc:12781:447350 */ t58838 = a24809; /* x269339 stalin.sc:12781:447316 */ /* EQ: dispatching general to general */ if (!((t58837.tag)==(t58838.tag))) goto l9055; switch (t58837.tag) {case FIXNUM_TYPE: if (!((t58837.value.fixnum_type)==(t58838.value.fixnum_type))) goto l9055; break; case FLONUM_TYPE: if (!((t58837.value.flonum_type)==(t58838.value.flonum_type))) goto l9055; break; case INPUT_PORT_TYPE: if (!((t58837.value.input_port_type)==(t58838.value.input_port_type))) goto l9055; break; case OUTPUT_PORT_TYPE: if (!((t58837.value.output_port_type)==(t58838.value.output_port_type))) goto l9055; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58837.value.native_procedure_type15963)==(t58838.value.native_procedure_type15963))) goto l9055; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58837.value.native_procedure_type19067)==(t58838.value.native_procedure_type19067))) goto l9055; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58837.value.native_procedure_type19068)==(t58838.value.native_procedure_type19068))) goto l9055; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58837.value.native_procedure_type22459)==(t58838.value.native_procedure_type22459))) goto l9055; break; case STRUCTURE_TYPE24753: if (!((t58837.value.structure_type24753)==(t58838.value.structure_type24753))) goto l9055; break; case STRUCTURE_TYPE24757: if (!((t58837.value.structure_type24757)==(t58838.value.structure_type24757))) goto l9055; break; case STRUCTURE_TYPE27501: if (!((t58837.value.structure_type27501)==(t58838.value.structure_type27501))) goto l9055; break; case STRUCTURE_TYPE27510: if (!((t58837.value.structure_type27510)==(t58838.value.structure_type27510))) goto l9055; break; case STRUCTURE_TYPE27621: if (!((t58837.value.structure_type27621)==(t58838.value.structure_type27621))) goto l9055; break; case STRUCTURE_TYPE27650: if (!((t58837.value.structure_type27650)==(t58838.value.structure_type27650))) goto l9055; break; case STRUCTURE_TYPE27669: if (!((t58837.value.structure_type27669)==(t58838.value.structure_type27669))) goto l9055; break; case STRUCTURE_TYPE27673: if (!((t58837.value.structure_type27673)==(t58838.value.structure_type27673))) goto l9055; break; case STRUCTURE_TYPE27692: if (!((t58837.value.structure_type27692)==(t58838.value.structure_type27692))) goto l9055; break; case STRUCTURE_TYPE27694: if (!((t58837.value.structure_type27694)==(t58838.value.structure_type27694))) goto l9055; break; case STRUCTURE_TYPE27698: if (!((t58837.value.structure_type27698)==(t58838.value.structure_type27698))) goto l9055; break; case STRUCTURE_TYPE27745: if (!((t58837.value.structure_type27745)==(t58838.value.structure_type27745))) goto l9055; break; case STRUCTURE_TYPE27747: if (!((t58837.value.structure_type27747)==(t58838.value.structure_type27747))) goto l9055; break; case STRUCTURE_TYPE27750: if (!((t58837.value.structure_type27750)==(t58838.value.structure_type27750))) goto l9055; break; case STRUCTURE_TYPE27753: if (!((t58837.value.structure_type27753)==(t58838.value.structure_type27753))) goto l9055; break; case STRUCTURE_TYPE27756: if (!((t58837.value.structure_type27756)==(t58838.value.structure_type27756))) goto l9055; break; case STRUCTURE_TYPE27761: if (!((t58837.value.structure_type27761)==(t58838.value.structure_type27761))) goto l9055; break; case STRUCTURE_TYPE27769: if (!((t58837.value.structure_type27769)==(t58838.value.structure_type27769))) goto l9055; break; case STRUCTURE_TYPE27776: if (!((t58837.value.structure_type27776)==(t58838.value.structure_type27776))) goto l9055; break; case STRUCTURE_TYPE27779: if (!((t58837.value.structure_type27779)==(t58838.value.structure_type27779))) goto l9055; break; case STRUCTURE_TYPE27858: if (!((t58837.value.structure_type27858)==(t58838.value.structure_type27858))) goto l9055; break; case STRING_TYPE: if (!((t58837.value.string_type)==(t58838.value.string_type))) goto l9055; break; case HEADED_VECTOR_TYPE27896: if (!((t58837.value.headed_vector_type27896)==(t58838.value.headed_vector_type27896))) goto l9055; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58837.value.external_symbol_type)==(t58838.value.external_symbol_type))) goto l9055; break; case STRUCTURE_TYPE27908: if (!((t58837.value.structure_type27908)==(t58838.value.structure_type27908))) goto l9055; break; default:;} /* x114321 stalin.sc:12782:447358 */ return a24809; l9055: /* x114335 stalin.sc:12783:447365 */ /* x114334 stalin.sc:12783:447375 */ /* x114333 stalin.sc:12783:447393 */ /* x114332 stalin.sc:12783:447420 */ t58845 = a24809; /* x114331 stalin.sc:12783:447394 */ a19459 = t58845; /* x51441 */ /* x51440 */ t58846 = a19459; /* x51439 */ if (!((t58846.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("EXTERNAL-SYMBOL-TYPE-LINK[5853]"); structure_ref_error();} t58844 = t58846.value.structure_type27779->s1; /* x114330 stalin.sc:12783:447376 */ t58841 = f12784(t58844); /* x114329 */ a24810 = t58841; /* x114328 */ /* x114327 stalin.sc:12784:447432 */ /* x114325 stalin.sc:12784:447464 */ t58842 = a24809; /* x114326 stalin.sc:12784:447466 */ t58843 = a24810; /* x114324 stalin.sc:12784:447433 */ f5854(t58842, t58843); /* x114323 */ /* x114322 stalin.sc:12785:447476 */ return a24810; l9025: /* x114510 */ /* x114341 stalin.sc:12786:447490 */ /* x114340 stalin.sc:12786:447517 */ t58768 = a24809; /* x114339 stalin.sc:12786:447491 */ a38229 = t58768; /* x285585 */ /* x285584 */ t58769 = a38229; /* x285583 */ if (!((t58769.tag)==STRUCTURE_TYPE27753)) goto l9027; /* x114344 */ /* x114343 */ /* x114342 stalin.sc:12786:447520 */ return a24809; l9027: /* x114509 */ /* x114347 stalin.sc:12787:447531 */ /* x114346 stalin.sc:12787:447555 */ t58770 = a24809; /* x114345 stalin.sc:12787:447532 */ a38120 = t58770; /* x285149 */ /* x285148 */ t58771 = a38120; /* x285147 */ if (!((t58771.tag)==STRUCTURE_TYPE27756)) goto l9029; /* x114350 */ /* x114349 */ /* x114348 stalin.sc:12787:447558 */ return a24809; l9029: /* x114508 */ /* x114353 stalin.sc:12788:447569 */ /* x114352 stalin.sc:12788:447594 */ t58772 = a24809; /* x114351 stalin.sc:12788:447570 */ a37971 = t58772; /* x284553 */ /* x284552 */ t58773 = a37971; /* x284551 */ if (!((t58773.tag)==STRUCTURE_TYPE27750)) goto l9031; /* x114356 */ /* x114355 */ /* x114354 stalin.sc:12788:447597 */ return a24809; l9031: /* x114507 */ /* x114359 stalin.sc:12789:447608 */ /* x114358 stalin.sc:12789:447628 */ t58774 = a24809; /* x114357 stalin.sc:12789:447609 */ a37900 = t58774; /* x284269 */ /* x284268 */ t58775 = a37900; /* x284267 */ if (!((t58775.tag)==STRUCTURE_TYPE27858)) goto l9033; /* x114362 */ /* x114361 */ /* x114360 stalin.sc:12789:447631 */ return a24809; l9033: /* x114506 */ /* x114365 stalin.sc:12790:447642 */ /* x114364 stalin.sc:12790:447656 */ t58776 = a24809; /* x114363 stalin.sc:12790:447643 */ a37779 = t58776; /* x283785 */ /* x283784 */ t58777 = a37779; /* x283783 */ if (!((t58777.tag)==STRUCTURE_TYPE27673)) goto l9035; /* x114389 */ /* x114388 */ /* x114387 stalin.sc:12791:447660 */ /* x114371 stalin.sc:12791:447664 */ /* x114369 stalin.sc:12791:447669 */ /* x114368 stalin.sc:12791:447687 */ t58829 = a24809; /* x114367 stalin.sc:12791:447670 */ a37730 = t58829; /* x283589 */ /* x283588 */ t58830 = a37730; /* x283587 */ if (!((t58830.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-LINK[6119] 32647]"); structure_ref_error();} t58827 = t58830.value.structure_type27673->s1; /* x114370 stalin.sc:12791:447690 */ t58828 = a24809; /* x269338 stalin.sc:12791:447665 */ /* EQ: dispatching general to general */ if (!((t58827.tag)==(t58828.tag))) goto l9053; switch (t58827.tag) {case FIXNUM_TYPE: if (!((t58827.value.fixnum_type)==(t58828.value.fixnum_type))) goto l9053; break; case FLONUM_TYPE: if (!((t58827.value.flonum_type)==(t58828.value.flonum_type))) goto l9053; break; case INPUT_PORT_TYPE: if (!((t58827.value.input_port_type)==(t58828.value.input_port_type))) goto l9053; break; case OUTPUT_PORT_TYPE: if (!((t58827.value.output_port_type)==(t58828.value.output_port_type))) goto l9053; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58827.value.native_procedure_type15963)==(t58828.value.native_procedure_type15963))) goto l9053; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58827.value.native_procedure_type19067)==(t58828.value.native_procedure_type19067))) goto l9053; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58827.value.native_procedure_type19068)==(t58828.value.native_procedure_type19068))) goto l9053; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58827.value.native_procedure_type22459)==(t58828.value.native_procedure_type22459))) goto l9053; break; case STRUCTURE_TYPE24753: if (!((t58827.value.structure_type24753)==(t58828.value.structure_type24753))) goto l9053; break; case STRUCTURE_TYPE24757: if (!((t58827.value.structure_type24757)==(t58828.value.structure_type24757))) goto l9053; break; case STRUCTURE_TYPE27501: if (!((t58827.value.structure_type27501)==(t58828.value.structure_type27501))) goto l9053; break; case STRUCTURE_TYPE27510: if (!((t58827.value.structure_type27510)==(t58828.value.structure_type27510))) goto l9053; break; case STRUCTURE_TYPE27621: if (!((t58827.value.structure_type27621)==(t58828.value.structure_type27621))) goto l9053; break; case STRUCTURE_TYPE27650: if (!((t58827.value.structure_type27650)==(t58828.value.structure_type27650))) goto l9053; break; case STRUCTURE_TYPE27669: if (!((t58827.value.structure_type27669)==(t58828.value.structure_type27669))) goto l9053; break; case STRUCTURE_TYPE27673: if (!((t58827.value.structure_type27673)==(t58828.value.structure_type27673))) goto l9053; break; case STRUCTURE_TYPE27692: if (!((t58827.value.structure_type27692)==(t58828.value.structure_type27692))) goto l9053; break; case STRUCTURE_TYPE27694: if (!((t58827.value.structure_type27694)==(t58828.value.structure_type27694))) goto l9053; break; case STRUCTURE_TYPE27698: if (!((t58827.value.structure_type27698)==(t58828.value.structure_type27698))) goto l9053; break; case STRUCTURE_TYPE27745: if (!((t58827.value.structure_type27745)==(t58828.value.structure_type27745))) goto l9053; break; case STRUCTURE_TYPE27747: if (!((t58827.value.structure_type27747)==(t58828.value.structure_type27747))) goto l9053; break; case STRUCTURE_TYPE27750: if (!((t58827.value.structure_type27750)==(t58828.value.structure_type27750))) goto l9053; break; case STRUCTURE_TYPE27753: if (!((t58827.value.structure_type27753)==(t58828.value.structure_type27753))) goto l9053; break; case STRUCTURE_TYPE27756: if (!((t58827.value.structure_type27756)==(t58828.value.structure_type27756))) goto l9053; break; case STRUCTURE_TYPE27761: if (!((t58827.value.structure_type27761)==(t58828.value.structure_type27761))) goto l9053; break; case STRUCTURE_TYPE27769: if (!((t58827.value.structure_type27769)==(t58828.value.structure_type27769))) goto l9053; break; case STRUCTURE_TYPE27776: if (!((t58827.value.structure_type27776)==(t58828.value.structure_type27776))) goto l9053; break; case STRUCTURE_TYPE27779: if (!((t58827.value.structure_type27779)==(t58828.value.structure_type27779))) goto l9053; break; case STRUCTURE_TYPE27858: if (!((t58827.value.structure_type27858)==(t58828.value.structure_type27858))) goto l9053; break; case STRING_TYPE: if (!((t58827.value.string_type)==(t58828.value.string_type))) goto l9053; break; case HEADED_VECTOR_TYPE27896: if (!((t58827.value.headed_vector_type27896)==(t58828.value.headed_vector_type27896))) goto l9053; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58827.value.external_symbol_type)==(t58828.value.external_symbol_type))) goto l9053; break; case STRUCTURE_TYPE27908: if (!((t58827.value.structure_type27908)==(t58828.value.structure_type27908))) goto l9053; break; default:;} /* x114372 stalin.sc:12792:447698 */ return a24809; l9053: /* x114386 stalin.sc:12793:447705 */ /* x114385 stalin.sc:12793:447715 */ /* x114384 stalin.sc:12793:447733 */ /* x114383 stalin.sc:12793:447751 */ t58835 = a24809; /* x114382 stalin.sc:12793:447734 */ a19817 = t58835; /* x52767 */ /* x52766 */ t58836 = a19817; /* x52765 */ if (!((t58836.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("STRING-TYPE-LINK[6119]"); structure_ref_error();} t58834 = t58836.value.structure_type27673->s1; /* x114381 stalin.sc:12793:447716 */ t58831 = f12784(t58834); /* x114380 */ a24812 = t58831; /* x114379 */ /* x114378 stalin.sc:12794:447763 */ /* x114376 stalin.sc:12794:447786 */ t58832 = a24809; /* x114377 stalin.sc:12794:447788 */ t58833 = a24812; /* x114375 stalin.sc:12794:447764 */ f6120(t58832, t58833); /* x114374 */ /* x114373 stalin.sc:12795:447798 */ return a24812; l9035: /* x114505 */ /* x114392 stalin.sc:12796:447812 */ /* x114391 stalin.sc:12796:447829 */ t58778 = a24809; /* x114390 stalin.sc:12796:447813 */ a37705 = t58778; /* x283489 */ /* x283488 */ t58779 = a37705; /* x283487 */ if (!((t58779.tag)==STRUCTURE_TYPE27769)) goto l9037; /* x114416 */ /* x114415 */ /* x114414 stalin.sc:12797:447833 */ /* x114398 stalin.sc:12797:447837 */ /* x114396 stalin.sc:12797:447842 */ /* x114395 stalin.sc:12797:447863 */ t58819 = a24809; /* x114394 stalin.sc:12797:447843 */ a37603 = t58819; /* x283081 */ /* x283080 */ t58820 = a37603; /* x283079 */ if (!((t58820.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-LINK[6193] 32520]"); structure_ref_error();} t58817 = t58820.value.structure_type27769->s3; /* x114397 stalin.sc:12797:447866 */ t58818 = a24809; /* x269337 stalin.sc:12797:447838 */ /* EQ: dispatching general to general */ if (!((t58817.tag)==(t58818.tag))) goto l9051; switch (t58817.tag) {case FIXNUM_TYPE: if (!((t58817.value.fixnum_type)==(t58818.value.fixnum_type))) goto l9051; break; case FLONUM_TYPE: if (!((t58817.value.flonum_type)==(t58818.value.flonum_type))) goto l9051; break; case INPUT_PORT_TYPE: if (!((t58817.value.input_port_type)==(t58818.value.input_port_type))) goto l9051; break; case OUTPUT_PORT_TYPE: if (!((t58817.value.output_port_type)==(t58818.value.output_port_type))) goto l9051; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58817.value.native_procedure_type15963)==(t58818.value.native_procedure_type15963))) goto l9051; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58817.value.native_procedure_type19067)==(t58818.value.native_procedure_type19067))) goto l9051; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58817.value.native_procedure_type19068)==(t58818.value.native_procedure_type19068))) goto l9051; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58817.value.native_procedure_type22459)==(t58818.value.native_procedure_type22459))) goto l9051; break; case STRUCTURE_TYPE24753: if (!((t58817.value.structure_type24753)==(t58818.value.structure_type24753))) goto l9051; break; case STRUCTURE_TYPE24757: if (!((t58817.value.structure_type24757)==(t58818.value.structure_type24757))) goto l9051; break; case STRUCTURE_TYPE27501: if (!((t58817.value.structure_type27501)==(t58818.value.structure_type27501))) goto l9051; break; case STRUCTURE_TYPE27510: if (!((t58817.value.structure_type27510)==(t58818.value.structure_type27510))) goto l9051; break; case STRUCTURE_TYPE27621: if (!((t58817.value.structure_type27621)==(t58818.value.structure_type27621))) goto l9051; break; case STRUCTURE_TYPE27650: if (!((t58817.value.structure_type27650)==(t58818.value.structure_type27650))) goto l9051; break; case STRUCTURE_TYPE27669: if (!((t58817.value.structure_type27669)==(t58818.value.structure_type27669))) goto l9051; break; case STRUCTURE_TYPE27673: if (!((t58817.value.structure_type27673)==(t58818.value.structure_type27673))) goto l9051; break; case STRUCTURE_TYPE27692: if (!((t58817.value.structure_type27692)==(t58818.value.structure_type27692))) goto l9051; break; case STRUCTURE_TYPE27694: if (!((t58817.value.structure_type27694)==(t58818.value.structure_type27694))) goto l9051; break; case STRUCTURE_TYPE27698: if (!((t58817.value.structure_type27698)==(t58818.value.structure_type27698))) goto l9051; break; case STRUCTURE_TYPE27745: if (!((t58817.value.structure_type27745)==(t58818.value.structure_type27745))) goto l9051; break; case STRUCTURE_TYPE27747: if (!((t58817.value.structure_type27747)==(t58818.value.structure_type27747))) goto l9051; break; case STRUCTURE_TYPE27750: if (!((t58817.value.structure_type27750)==(t58818.value.structure_type27750))) goto l9051; break; case STRUCTURE_TYPE27753: if (!((t58817.value.structure_type27753)==(t58818.value.structure_type27753))) goto l9051; break; case STRUCTURE_TYPE27756: if (!((t58817.value.structure_type27756)==(t58818.value.structure_type27756))) goto l9051; break; case STRUCTURE_TYPE27761: if (!((t58817.value.structure_type27761)==(t58818.value.structure_type27761))) goto l9051; break; case STRUCTURE_TYPE27769: if (!((t58817.value.structure_type27769)==(t58818.value.structure_type27769))) goto l9051; break; case STRUCTURE_TYPE27776: if (!((t58817.value.structure_type27776)==(t58818.value.structure_type27776))) goto l9051; break; case STRUCTURE_TYPE27779: if (!((t58817.value.structure_type27779)==(t58818.value.structure_type27779))) goto l9051; break; case STRUCTURE_TYPE27858: if (!((t58817.value.structure_type27858)==(t58818.value.structure_type27858))) goto l9051; break; case STRING_TYPE: if (!((t58817.value.string_type)==(t58818.value.string_type))) goto l9051; break; case HEADED_VECTOR_TYPE27896: if (!((t58817.value.headed_vector_type27896)==(t58818.value.headed_vector_type27896))) goto l9051; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58817.value.external_symbol_type)==(t58818.value.external_symbol_type))) goto l9051; break; case STRUCTURE_TYPE27908: if (!((t58817.value.structure_type27908)==(t58818.value.structure_type27908))) goto l9051; break; default:;} /* x114399 stalin.sc:12798:447874 */ return a24809; l9051: /* x114413 stalin.sc:12799:447881 */ /* x114412 stalin.sc:12799:447891 */ /* x114411 stalin.sc:12799:447909 */ /* x114410 stalin.sc:12799:447930 */ t58825 = a24809; /* x114409 stalin.sc:12799:447910 */ a19917 = t58825; /* x53136 */ /* x53135 */ t58826 = a19917; /* x53134 */ if (!((t58826.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("STRUCTURE-TYPE-LINK[6193]"); structure_ref_error();} t58824 = t58826.value.structure_type27769->s3; /* x114408 stalin.sc:12799:447892 */ t58821 = f12784(t58824); /* x114407 */ a24814 = t58821; /* x114406 */ /* x114405 stalin.sc:12800:447942 */ /* x114403 stalin.sc:12800:447968 */ t58822 = a24809; /* x114404 stalin.sc:12800:447970 */ t58823 = a24814; /* x114402 stalin.sc:12800:447943 */ f6194(t58822, t58823); /* x114401 */ /* x114400 stalin.sc:12801:447980 */ return a24814; l9037: /* x114504 */ /* x114419 stalin.sc:12802:447994 */ /* x114418 stalin.sc:12802:448015 */ t58780 = a24809; /* x114417 stalin.sc:12802:447995 */ a37563 = t58780; /* x282921 */ /* x282920 */ t58781 = a37563; /* x282919 */ if (!((t58781.tag)==STRUCTURE_TYPE27761)) goto l9039; /* x114443 */ /* x114442 */ /* x114441 stalin.sc:12803:448019 */ /* x114425 stalin.sc:12803:448023 */ /* x114423 stalin.sc:12803:448028 */ /* x114422 stalin.sc:12803:448053 */ t58809 = a24809; /* x114421 stalin.sc:12803:448029 */ a37482 = t58809; /* x282597 */ /* x282596 */ t58810 = a37482; /* x282595 */ if (!((t58810.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-LINK[6259] 32399]"); structure_ref_error();} t58807 = t58810.value.structure_type27761->s2; /* x114424 stalin.sc:12803:448056 */ t58808 = a24809; /* x269336 stalin.sc:12803:448024 */ /* EQ: dispatching general to general */ if (!((t58807.tag)==(t58808.tag))) goto l9049; switch (t58807.tag) {case FIXNUM_TYPE: if (!((t58807.value.fixnum_type)==(t58808.value.fixnum_type))) goto l9049; break; case FLONUM_TYPE: if (!((t58807.value.flonum_type)==(t58808.value.flonum_type))) goto l9049; break; case INPUT_PORT_TYPE: if (!((t58807.value.input_port_type)==(t58808.value.input_port_type))) goto l9049; break; case OUTPUT_PORT_TYPE: if (!((t58807.value.output_port_type)==(t58808.value.output_port_type))) goto l9049; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58807.value.native_procedure_type15963)==(t58808.value.native_procedure_type15963))) goto l9049; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58807.value.native_procedure_type19067)==(t58808.value.native_procedure_type19067))) goto l9049; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58807.value.native_procedure_type19068)==(t58808.value.native_procedure_type19068))) goto l9049; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58807.value.native_procedure_type22459)==(t58808.value.native_procedure_type22459))) goto l9049; break; case STRUCTURE_TYPE24753: if (!((t58807.value.structure_type24753)==(t58808.value.structure_type24753))) goto l9049; break; case STRUCTURE_TYPE24757: if (!((t58807.value.structure_type24757)==(t58808.value.structure_type24757))) goto l9049; break; case STRUCTURE_TYPE27501: if (!((t58807.value.structure_type27501)==(t58808.value.structure_type27501))) goto l9049; break; case STRUCTURE_TYPE27510: if (!((t58807.value.structure_type27510)==(t58808.value.structure_type27510))) goto l9049; break; case STRUCTURE_TYPE27621: if (!((t58807.value.structure_type27621)==(t58808.value.structure_type27621))) goto l9049; break; case STRUCTURE_TYPE27650: if (!((t58807.value.structure_type27650)==(t58808.value.structure_type27650))) goto l9049; break; case STRUCTURE_TYPE27669: if (!((t58807.value.structure_type27669)==(t58808.value.structure_type27669))) goto l9049; break; case STRUCTURE_TYPE27673: if (!((t58807.value.structure_type27673)==(t58808.value.structure_type27673))) goto l9049; break; case STRUCTURE_TYPE27692: if (!((t58807.value.structure_type27692)==(t58808.value.structure_type27692))) goto l9049; break; case STRUCTURE_TYPE27694: if (!((t58807.value.structure_type27694)==(t58808.value.structure_type27694))) goto l9049; break; case STRUCTURE_TYPE27698: if (!((t58807.value.structure_type27698)==(t58808.value.structure_type27698))) goto l9049; break; case STRUCTURE_TYPE27745: if (!((t58807.value.structure_type27745)==(t58808.value.structure_type27745))) goto l9049; break; case STRUCTURE_TYPE27747: if (!((t58807.value.structure_type27747)==(t58808.value.structure_type27747))) goto l9049; break; case STRUCTURE_TYPE27750: if (!((t58807.value.structure_type27750)==(t58808.value.structure_type27750))) goto l9049; break; case STRUCTURE_TYPE27753: if (!((t58807.value.structure_type27753)==(t58808.value.structure_type27753))) goto l9049; break; case STRUCTURE_TYPE27756: if (!((t58807.value.structure_type27756)==(t58808.value.structure_type27756))) goto l9049; break; case STRUCTURE_TYPE27761: if (!((t58807.value.structure_type27761)==(t58808.value.structure_type27761))) goto l9049; break; case STRUCTURE_TYPE27769: if (!((t58807.value.structure_type27769)==(t58808.value.structure_type27769))) goto l9049; break; case STRUCTURE_TYPE27776: if (!((t58807.value.structure_type27776)==(t58808.value.structure_type27776))) goto l9049; break; case STRUCTURE_TYPE27779: if (!((t58807.value.structure_type27779)==(t58808.value.structure_type27779))) goto l9049; break; case STRUCTURE_TYPE27858: if (!((t58807.value.structure_type27858)==(t58808.value.structure_type27858))) goto l9049; break; case STRING_TYPE: if (!((t58807.value.string_type)==(t58808.value.string_type))) goto l9049; break; case HEADED_VECTOR_TYPE27896: if (!((t58807.value.headed_vector_type27896)==(t58808.value.headed_vector_type27896))) goto l9049; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58807.value.external_symbol_type)==(t58808.value.external_symbol_type))) goto l9049; break; case STRUCTURE_TYPE27908: if (!((t58807.value.structure_type27908)==(t58808.value.structure_type27908))) goto l9049; break; default:;} /* x114426 stalin.sc:12804:448064 */ return a24809; l9049: /* x114440 stalin.sc:12805:448071 */ /* x114439 stalin.sc:12805:448081 */ /* x114438 stalin.sc:12805:448099 */ /* x114437 stalin.sc:12805:448124 */ t58815 = a24809; /* x114436 stalin.sc:12805:448100 */ a20006 = t58815; /* x53465 */ /* x53464 */ t58816 = a20006; /* x53463 */ if (!((t58816.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("HEADED-VECTOR-TYPE-LINK[6259]"); structure_ref_error();} t58814 = t58816.value.structure_type27761->s2; /* x114435 stalin.sc:12805:448082 */ t58811 = f12784(t58814); /* x114434 */ a24816 = t58811; /* x114433 */ /* x114432 stalin.sc:12806:448136 */ /* x114430 stalin.sc:12806:448166 */ t58812 = a24809; /* x114431 stalin.sc:12806:448168 */ t58813 = a24816; /* x114429 stalin.sc:12806:448137 */ f6260(t58812, t58813); /* x114428 */ /* x114427 stalin.sc:12807:448178 */ return a24816; l9039: /* x114503 */ /* x114446 stalin.sc:12808:448192 */ /* x114445 stalin.sc:12808:448216 */ t58782 = a24809; /* x114444 stalin.sc:12808:448193 */ a37447 = t58782; /* x282457 */ /* x282456 */ t58783 = a37447; /* x282455 */ if (!((t58783.tag)==STRUCTURE_TYPE27669)) goto l9041; /* x114470 */ /* x114469 */ /* x114468 stalin.sc:12809:448220 */ /* x114452 stalin.sc:12809:448224 */ /* x114450 stalin.sc:12809:448229 */ /* x114449 stalin.sc:12809:448257 */ t58799 = a24809; /* x114448 stalin.sc:12809:448230 */ a37379 = t58799; /* x282185 */ /* x282184 */ t58800 = a37379; /* x282183 */ if (!((t58800.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-LINK[6325] 32296]"); structure_ref_error();} t58797 = t58800.value.structure_type27669->s2; /* x114451 stalin.sc:12809:448260 */ t58798 = a24809; /* x269335 stalin.sc:12809:448225 */ /* EQ: dispatching general to general */ if (!((t58797.tag)==(t58798.tag))) goto l9047; switch (t58797.tag) {case FIXNUM_TYPE: if (!((t58797.value.fixnum_type)==(t58798.value.fixnum_type))) goto l9047; break; case FLONUM_TYPE: if (!((t58797.value.flonum_type)==(t58798.value.flonum_type))) goto l9047; break; case INPUT_PORT_TYPE: if (!((t58797.value.input_port_type)==(t58798.value.input_port_type))) goto l9047; break; case OUTPUT_PORT_TYPE: if (!((t58797.value.output_port_type)==(t58798.value.output_port_type))) goto l9047; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58797.value.native_procedure_type15963)==(t58798.value.native_procedure_type15963))) goto l9047; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58797.value.native_procedure_type19067)==(t58798.value.native_procedure_type19067))) goto l9047; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58797.value.native_procedure_type19068)==(t58798.value.native_procedure_type19068))) goto l9047; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58797.value.native_procedure_type22459)==(t58798.value.native_procedure_type22459))) goto l9047; break; case STRUCTURE_TYPE24753: if (!((t58797.value.structure_type24753)==(t58798.value.structure_type24753))) goto l9047; break; case STRUCTURE_TYPE24757: if (!((t58797.value.structure_type24757)==(t58798.value.structure_type24757))) goto l9047; break; case STRUCTURE_TYPE27501: if (!((t58797.value.structure_type27501)==(t58798.value.structure_type27501))) goto l9047; break; case STRUCTURE_TYPE27510: if (!((t58797.value.structure_type27510)==(t58798.value.structure_type27510))) goto l9047; break; case STRUCTURE_TYPE27621: if (!((t58797.value.structure_type27621)==(t58798.value.structure_type27621))) goto l9047; break; case STRUCTURE_TYPE27650: if (!((t58797.value.structure_type27650)==(t58798.value.structure_type27650))) goto l9047; break; case STRUCTURE_TYPE27669: if (!((t58797.value.structure_type27669)==(t58798.value.structure_type27669))) goto l9047; break; case STRUCTURE_TYPE27673: if (!((t58797.value.structure_type27673)==(t58798.value.structure_type27673))) goto l9047; break; case STRUCTURE_TYPE27692: if (!((t58797.value.structure_type27692)==(t58798.value.structure_type27692))) goto l9047; break; case STRUCTURE_TYPE27694: if (!((t58797.value.structure_type27694)==(t58798.value.structure_type27694))) goto l9047; break; case STRUCTURE_TYPE27698: if (!((t58797.value.structure_type27698)==(t58798.value.structure_type27698))) goto l9047; break; case STRUCTURE_TYPE27745: if (!((t58797.value.structure_type27745)==(t58798.value.structure_type27745))) goto l9047; break; case STRUCTURE_TYPE27747: if (!((t58797.value.structure_type27747)==(t58798.value.structure_type27747))) goto l9047; break; case STRUCTURE_TYPE27750: if (!((t58797.value.structure_type27750)==(t58798.value.structure_type27750))) goto l9047; break; case STRUCTURE_TYPE27753: if (!((t58797.value.structure_type27753)==(t58798.value.structure_type27753))) goto l9047; break; case STRUCTURE_TYPE27756: if (!((t58797.value.structure_type27756)==(t58798.value.structure_type27756))) goto l9047; break; case STRUCTURE_TYPE27761: if (!((t58797.value.structure_type27761)==(t58798.value.structure_type27761))) goto l9047; break; case STRUCTURE_TYPE27769: if (!((t58797.value.structure_type27769)==(t58798.value.structure_type27769))) goto l9047; break; case STRUCTURE_TYPE27776: if (!((t58797.value.structure_type27776)==(t58798.value.structure_type27776))) goto l9047; break; case STRUCTURE_TYPE27779: if (!((t58797.value.structure_type27779)==(t58798.value.structure_type27779))) goto l9047; break; case STRUCTURE_TYPE27858: if (!((t58797.value.structure_type27858)==(t58798.value.structure_type27858))) goto l9047; break; case STRING_TYPE: if (!((t58797.value.string_type)==(t58798.value.string_type))) goto l9047; break; case HEADED_VECTOR_TYPE27896: if (!((t58797.value.headed_vector_type27896)==(t58798.value.headed_vector_type27896))) goto l9047; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58797.value.external_symbol_type)==(t58798.value.external_symbol_type))) goto l9047; break; case STRUCTURE_TYPE27908: if (!((t58797.value.structure_type27908)==(t58798.value.structure_type27908))) goto l9047; break; default:;} /* x114453 stalin.sc:12810:448268 */ return a24809; l9047: /* x114467 stalin.sc:12811:448275 */ /* x114466 stalin.sc:12811:448285 */ /* x114465 stalin.sc:12811:448303 */ /* x114464 stalin.sc:12811:448331 */ t58805 = a24809; /* x114463 stalin.sc:12811:448304 */ a20095 = t58805; /* x53794 */ /* x53793 */ t58806 = a20095; /* x53792 */ if (!((t58806.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("NONHEADED-VECTOR-TYPE-LINK[6325]"); structure_ref_error();} t58804 = t58806.value.structure_type27669->s2; /* x114462 stalin.sc:12811:448286 */ t58801 = f12784(t58804); /* x114461 */ a24818 = t58801; /* x114460 */ /* x114459 stalin.sc:12812:448343 */ /* x114457 stalin.sc:12812:448376 */ t58802 = a24809; /* x114458 stalin.sc:12812:448378 */ t58803 = a24818; /* x114456 stalin.sc:12812:448344 */ f6326(t58802, t58803); /* x114455 */ /* x114454 stalin.sc:12813:448388 */ return a24818; l9041: /* x114502 */ /* x114473 stalin.sc:12814:448402 */ /* x114472 stalin.sc:12814:448426 */ t58784 = a24809; /* x114471 stalin.sc:12814:448403 */ a37347 = t58784; /* x282057 */ /* x282056 */ t58785 = a37347; /* x282055 */ if (!((t58785.tag)==STRUCTURE_TYPE27908)) goto l9043; /* x114497 */ /* x114496 */ /* x114495 stalin.sc:12815:448430 */ /* x114479 stalin.sc:12815:448434 */ /* x114477 stalin.sc:12815:448439 */ /* x114476 stalin.sc:12815:448467 */ t58789 = a24809; /* x114475 stalin.sc:12815:448440 */ a37295 = t58789; /* x281849 */ /* x281848 */ t58790 = a37295; /* x281847 */ if (!((t58790.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-LINK[6383] 32212]"); structure_ref_error();} t58787 = t58790.value.structure_type27908->s1; /* x114478 stalin.sc:12815:448470 */ t58788 = a24809; /* x269334 stalin.sc:12815:448435 */ /* EQ: dispatching general to general */ if (!((t58787.tag)==(t58788.tag))) goto l9045; switch (t58787.tag) {case FIXNUM_TYPE: if (!((t58787.value.fixnum_type)==(t58788.value.fixnum_type))) goto l9045; break; case FLONUM_TYPE: if (!((t58787.value.flonum_type)==(t58788.value.flonum_type))) goto l9045; break; case INPUT_PORT_TYPE: if (!((t58787.value.input_port_type)==(t58788.value.input_port_type))) goto l9045; break; case OUTPUT_PORT_TYPE: if (!((t58787.value.output_port_type)==(t58788.value.output_port_type))) goto l9045; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t58787.value.native_procedure_type15963)==(t58788.value.native_procedure_type15963))) goto l9045; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t58787.value.native_procedure_type19067)==(t58788.value.native_procedure_type19067))) goto l9045; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t58787.value.native_procedure_type19068)==(t58788.value.native_procedure_type19068))) goto l9045; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t58787.value.native_procedure_type22459)==(t58788.value.native_procedure_type22459))) goto l9045; break; case STRUCTURE_TYPE24753: if (!((t58787.value.structure_type24753)==(t58788.value.structure_type24753))) goto l9045; break; case STRUCTURE_TYPE24757: if (!((t58787.value.structure_type24757)==(t58788.value.structure_type24757))) goto l9045; break; case STRUCTURE_TYPE27501: if (!((t58787.value.structure_type27501)==(t58788.value.structure_type27501))) goto l9045; break; case STRUCTURE_TYPE27510: if (!((t58787.value.structure_type27510)==(t58788.value.structure_type27510))) goto l9045; break; case STRUCTURE_TYPE27621: if (!((t58787.value.structure_type27621)==(t58788.value.structure_type27621))) goto l9045; break; case STRUCTURE_TYPE27650: if (!((t58787.value.structure_type27650)==(t58788.value.structure_type27650))) goto l9045; break; case STRUCTURE_TYPE27669: if (!((t58787.value.structure_type27669)==(t58788.value.structure_type27669))) goto l9045; break; case STRUCTURE_TYPE27673: if (!((t58787.value.structure_type27673)==(t58788.value.structure_type27673))) goto l9045; break; case STRUCTURE_TYPE27692: if (!((t58787.value.structure_type27692)==(t58788.value.structure_type27692))) goto l9045; break; case STRUCTURE_TYPE27694: if (!((t58787.value.structure_type27694)==(t58788.value.structure_type27694))) goto l9045; break; case STRUCTURE_TYPE27698: if (!((t58787.value.structure_type27698)==(t58788.value.structure_type27698))) goto l9045; break; case STRUCTURE_TYPE27745: if (!((t58787.value.structure_type27745)==(t58788.value.structure_type27745))) goto l9045; break; case STRUCTURE_TYPE27747: if (!((t58787.value.structure_type27747)==(t58788.value.structure_type27747))) goto l9045; break; case STRUCTURE_TYPE27750: if (!((t58787.value.structure_type27750)==(t58788.value.structure_type27750))) goto l9045; break; case STRUCTURE_TYPE27753: if (!((t58787.value.structure_type27753)==(t58788.value.structure_type27753))) goto l9045; break; case STRUCTURE_TYPE27756: if (!((t58787.value.structure_type27756)==(t58788.value.structure_type27756))) goto l9045; break; case STRUCTURE_TYPE27761: if (!((t58787.value.structure_type27761)==(t58788.value.structure_type27761))) goto l9045; break; case STRUCTURE_TYPE27769: if (!((t58787.value.structure_type27769)==(t58788.value.structure_type27769))) goto l9045; break; case STRUCTURE_TYPE27776: if (!((t58787.value.structure_type27776)==(t58788.value.structure_type27776))) goto l9045; break; case STRUCTURE_TYPE27779: if (!((t58787.value.structure_type27779)==(t58788.value.structure_type27779))) goto l9045; break; case STRUCTURE_TYPE27858: if (!((t58787.value.structure_type27858)==(t58788.value.structure_type27858))) goto l9045; break; case STRING_TYPE: if (!((t58787.value.string_type)==(t58788.value.string_type))) goto l9045; break; case HEADED_VECTOR_TYPE27896: if (!((t58787.value.headed_vector_type27896)==(t58788.value.headed_vector_type27896))) goto l9045; break; case EXTERNAL_SYMBOL_TYPE: if (!((t58787.value.external_symbol_type)==(t58788.value.external_symbol_type))) goto l9045; break; case STRUCTURE_TYPE27908: if (!((t58787.value.structure_type27908)==(t58788.value.structure_type27908))) goto l9045; break; default:;} /* x114480 stalin.sc:12816:448478 */ return a24809; l9045: /* x114494 stalin.sc:12817:448485 */ /* x114493 stalin.sc:12817:448495 */ /* x114492 stalin.sc:12817:448513 */ /* x114491 stalin.sc:12817:448541 */ t58795 = a24809; /* x114490 stalin.sc:12817:448514 */ a20172 = t58795; /* x54082 */ /* x54081 */ t58796 = a20172; /* x54080 */ if (!((t58796.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("DISPLACED-VECTOR-TYPE-LINK[6383]"); structure_ref_error();} t58794 = t58796.value.structure_type27908->s1; /* x114489 stalin.sc:12817:448496 */ t58791 = f12784(t58794); /* x114488 */ a24820 = t58791; /* x114487 */ /* x114486 stalin.sc:12818:448553 */ /* x114484 stalin.sc:12818:448586 */ t58792 = a24809; /* x114485 stalin.sc:12818:448588 */ t58793 = a24820; /* x114483 stalin.sc:12818:448554 */ f6384(t58792, t58793); /* x114482 */ /* x114481 stalin.sc:12819:448598 */ return a24820; l9043: /* x114501 */ /* x114500 */ /* x114499 stalin.sc:12820:448617 */ /* x114498 stalin.sc:12820:448618 */ /* x297397 QobiScheme.sc:166:5314 */ /* x297396 QobiScheme.sc:166:5321 */ t58786 = "This shouldn\'t happen"; /* x297395 QobiScheme.sc:166:5315 */ stalin_panic(t58786);} /* [inside DETERMINE-ALLOCATIONS! 12781] */ unsigned f12781(struct p12777 *p12781, struct w49 a24807) {struct w49 t58847; struct w49 t58848; struct w49 t58849; /* x114185 stalin.sc:12743:446010 */ /* x114182 stalin.sc:12743:446045 */ t58847 = a24807; /* x114183 stalin.sc:12743:446047 */ t58848 = p12781->p12773->a24802; /* x114184 stalin.sc:12743:446049 */ t58849 = p12781->a24804; /* x114181 stalin.sc:12743:446011 */ return f12705(t58847, t58848, t58849);} /* [inside DETERMINE-ALLOCATIONS! 12777] */ void f12777(struct p12773 *p12777, struct w49 a24804) {struct w3467 a24806; /* E */ struct w49 a38482; /* S */ struct w49 a40097; /* S */ struct w49 a40113; /* S */ struct w49 a40447; /* OBJ */ struct w49 t58850; struct w49 t58851; struct p12777 *t58852; struct p12777 *t58853; struct p12777 *t58855; struct w3467 t58856; struct w49 t58857; struct structure_type24753 *t58858; struct w12224 t58859; struct structure_type24753 *t58860; struct w12224 t58861; struct w49 t58862; struct w3467 t58863; struct w3467 t58864; unsigned t58865; struct w3467 t58866; struct w49 t58867; struct w49 t58868; struct w49 t58869; struct w49 t58870; struct w49 t58871; struct p12777 *t58872; struct headed_vector_type27624 *t58873; struct w172645 t58874; struct w49 t58875; unsigned t58876; unsigned t58877; unsigned t58878; struct w49 t58879; struct w49 t58880; struct p12777 *e12777; struct p12777 *p12778; struct p12777 *p12779; struct p12777 *p12780; e12777 = (struct p12777 *)alloca(sizeof(struct p12777)); if (e12777==NULL) {backtrace("stalin.sc", 12735, 445743); out_of_memory_error();} e12777->p12773 = p12777; e12777->a24804 = a24804; /* x114205 stalin.sc:12736:445762 */ /* x114158 stalin.sc:12736:445768 */ /* x114157 stalin.sc:12736:445781 */ t58850 = e12777->a24804; /* x114156 stalin.sc:12736:445769 */ a40447 = t58850; /* x294457 */ /* x294456 */ t58851 = a40447; /* x294455 */ if (!((t58851.tag)==STRUCTURE_TYPE27698)) goto l9057; /* x114202 */ /* x114201 */ t58852 = e12777; p12778 = t58852; /* x114200 */ /* x114199 stalin.sc:12738:445850 */ /* x114193 stalin.sc:12738:445863 */ /* x114194 stalin.sc:12739:445886 */ /* x114195 stalin.sc:12740:445914 */ /* x114198 stalin.sc:12741:445947 */ /* x114197 stalin.sc:12741:445971 */ t58879 = p12778->a24804; /* x114196 stalin.sc:12741:445948 */ a40113 = t58879; /* x293121 */ /* x293120 */ t58880 = a40113; /* x293119 */ if (!((t58880.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35030]"); structure_ref_error();} t58875 = t58880.value.structure_type27698->s9; /* x114191 stalin.sc:12738:445851 */ t58876 = NATIVE_PROCEDURE_TYPE16769; t58877 = NATIVE_PROCEDURE_TYPE7307; t58878 = NATIVE_PROCEDURE_TYPE7306; f11570(t58876, t58877, t58878, t58875); /* x114190 */ t58853 = p12778; p12779 = t58853; /* x114189 stalin.sc:12742:445976 */ /* x114188 stalin.sc:12742:445985 */ /* x114186 stalin.sc:12743:445998 */ t58872 = p12779; /* x114187 stalin.sc:12744:446057 */ t58873 = a24768; /* x114180 stalin.sc:12742:445986 */ t58874.tag = NATIVE_PROCEDURE_TYPE18237; t58874.value.native_procedure_type18237 = t58872; t58856 = f12708(t58874, t58873); /* x114179 */ t58855 = p12779; p12780 = t58855; a24806 = t58856; /* x114178 stalin.sc:12745:446101 */ /* x114160 stalin.sc:12746:446143 */ t58857 = p12780->a24804; /* x114177 stalin.sc:12747:446148 */ /* x114173 stalin.sc:12748:446158 */ /* x114163 stalin.sc:12748:446164 */ t58862 = p12780->p12773->a24802; /* x114172 stalin.sc:12748:446166 */ /* x114165 stalin.sc:12748:446185 */ t58864 = a24806; /* x114171 stalin.sc:12748:446187 */ /* x114167 stalin.sc:12748:446192 */ t58866 = a24806; /* x114170 stalin.sc:12748:446194 */ /* x114169 stalin.sc:12748:446218 */ t58868 = p12780->a24804; /* x114168 stalin.sc:12748:446195 */ a40097 = t58868; /* x293057 */ /* x293056 */ t58869 = a40097; /* x293055 */ if (!((t58869.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35014]"); structure_ref_error();} t58867 = t58869.value.structure_type27698->s9; /* x269342 stalin.sc:12748:446188 */ /* EQ: dispatching general to general */ if ((t58866.tag)==(t58867.tag)) {switch (t58866.tag) {case FIXNUM_TYPE: t58865 = ((t58866.value.fixnum_type)==(t58867.value.fixnum_type))?TRUE_TYPE:FALSE_TYPE; break; case FLONUM_TYPE: t58865 = ((t58866.value.flonum_type)==(t58867.value.flonum_type))?TRUE_TYPE:FALSE_TYPE; break; case INPUT_PORT_TYPE: t58865 = ((t58866.value.input_port_type)==(t58867.value.input_port_type))?TRUE_TYPE:FALSE_TYPE; break; case OUTPUT_PORT_TYPE: t58865 = ((t58866.value.output_port_type)==(t58867.value.output_port_type))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE15963: t58865 = ((t58866.value.native_procedure_type15963)==(t58867.value.native_procedure_type15963))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19067: t58865 = ((t58866.value.native_procedure_type19067)==(t58867.value.native_procedure_type19067))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19068: t58865 = ((t58866.value.native_procedure_type19068)==(t58867.value.native_procedure_type19068))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE22459: t58865 = ((t58866.value.native_procedure_type22459)==(t58867.value.native_procedure_type22459))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24753: t58865 = ((t58866.value.structure_type24753)==(t58867.value.structure_type24753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24757: t58865 = ((t58866.value.structure_type24757)==(t58867.value.structure_type24757))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27501: t58865 = ((t58866.value.structure_type27501)==(t58867.value.structure_type27501))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27510: t58865 = ((t58866.value.structure_type27510)==(t58867.value.structure_type27510))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27621: t58865 = ((t58866.value.structure_type27621)==(t58867.value.structure_type27621))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27650: t58865 = ((t58866.value.structure_type27650)==(t58867.value.structure_type27650))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27669: t58865 = ((t58866.value.structure_type27669)==(t58867.value.structure_type27669))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27673: t58865 = ((t58866.value.structure_type27673)==(t58867.value.structure_type27673))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27692: t58865 = ((t58866.value.structure_type27692)==(t58867.value.structure_type27692))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27694: t58865 = ((t58866.value.structure_type27694)==(t58867.value.structure_type27694))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27698: t58865 = ((t58866.value.structure_type27698)==(t58867.value.structure_type27698))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27745: t58865 = ((t58866.value.structure_type27745)==(t58867.value.structure_type27745))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27747: t58865 = ((t58866.value.structure_type27747)==(t58867.value.structure_type27747))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27750: t58865 = ((t58866.value.structure_type27750)==(t58867.value.structure_type27750))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27753: t58865 = ((t58866.value.structure_type27753)==(t58867.value.structure_type27753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27756: t58865 = ((t58866.value.structure_type27756)==(t58867.value.structure_type27756))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27761: t58865 = ((t58866.value.structure_type27761)==(t58867.value.structure_type27761))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27769: t58865 = ((t58866.value.structure_type27769)==(t58867.value.structure_type27769))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27776: t58865 = ((t58866.value.structure_type27776)==(t58867.value.structure_type27776))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27779: t58865 = ((t58866.value.structure_type27779)==(t58867.value.structure_type27779))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27858: t58865 = ((t58866.value.structure_type27858)==(t58867.value.structure_type27858))?TRUE_TYPE:FALSE_TYPE; break; case STRING_TYPE: t58865 = ((t58866.value.string_type)==(t58867.value.string_type))?TRUE_TYPE:FALSE_TYPE; break; case HEADED_VECTOR_TYPE27896: t58865 = ((t58866.value.headed_vector_type27896)==(t58867.value.headed_vector_type27896))?TRUE_TYPE:FALSE_TYPE; break; case EXTERNAL_SYMBOL_TYPE: t58865 = ((t58866.value.external_symbol_type)==(t58867.value.external_symbol_type))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27908: t58865 = ((t58866.value.structure_type27908)==(t58867.value.structure_type27908))?TRUE_TYPE:FALSE_TYPE; break; default: t58865 = TRUE_TYPE;}} else t58865 = FALSE_TYPE; /* x114164 stalin.sc:12748:446167 */ t58863 = f12719(t58864, t58865); /* x269343 stalin.sc:12748:446159 */ t58860 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t58860==NULL) {backtrace("stalin.sc", 12748, 446158); out_of_memory_error();} t58860->s0 = t58862; t58860->s1 = *((struct w49 *)(&t58863)); /* x114176 stalin.sc:12749:446228 */ /* x114175 stalin.sc:12749:446262 */ t58870 = p12780->a24804; /* x114174 stalin.sc:12749:446229 */ a38482 = t58870; /* x286597 */ /* x286596 */ t58871 = a38482; /* x286595 */ if (!((t58871.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-ALLOCATION-ALIST[5687] 33399]"); structure_ref_error();} t58861 = t58871.value.structure_type27698->s25; /* x269344 stalin.sc:12747:446149 */ t58858 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t58858==NULL) {backtrace("stalin.sc", 12747, 446148); out_of_memory_error();} t58858->s0.tag = STRUCTURE_TYPE24753; t58858->s0.value.structure_type24753 = t58860; t58858->s1 = *((struct w49 *)(&t58861)); /* x114159 stalin.sc:12745:446102 */ t58859.tag = STRUCTURE_TYPE24753; t58859.value.structure_type24753 = t58858; f5688(t58857, t58859); return; l9057: /* x114204 stalin.sc:12736:445762 */ /* x114203 stalin.sc:12736:445762 */ return;} /* [inside DETERMINE-ALLOCATIONS! 12773] */ void f12773(struct w49 a24802) {struct w49 a37388; /* S */ struct w49 t58881; struct p12773 *t58882; struct p12773 *t58883; struct p12773 *t58885; struct w49 t58886; struct w36108 t58887; struct w49 t58888; struct structure_type24753 *t58889; struct w49 t58890; struct w49 t58891; struct p12773 *e12773; struct p12773 *p12775; struct p12773 *p12776; e12773 = (struct p12773 *)alloca(sizeof(struct p12773)); if (e12773==NULL) {backtrace("stalin.sc", 12731, 445626); out_of_memory_error();} e12773->a24802 = a24802; /* x114217 stalin.sc:12732:445642 */ /* x114152 stalin.sc:12732:445650 */ /* x114151 stalin.sc:12732:445675 */ t58881 = e12773->a24802; /* x114150 stalin.sc:12732:445651 */ if (f7754(t58881)==FALSE_TYPE) goto l9059; /* x114154 */ /* x114153 */ return; l9059: /* x114216 */ /* x114215 */ t58882 = e12773; p12775 = t58882; /* x114214 */ /* x114213 stalin.sc:12733:445683 */ /* x114212 stalin.sc:12733:445684 */ f4651(); /* x114211 */ t58883 = p12775; p12776 = t58883; /* x114210 stalin.sc:12734:445727 */ /* x114209 stalin.sc:12750:446276 */ /* x114208 stalin.sc:12750:446322 */ t58890 = p12776->a24802; /* x114207 stalin.sc:12750:446277 */ a37388 = t58890; /* x282221 */ /* x282220 */ t58891 = a37388; /* x282219 */ if (!((t58891.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS[6317] 32305]"); structure_ref_error();} t58886 = t58891.value.structure_type27669->s1; /* x114206 stalin.sc:12735:445743 */ t58885 = p12776; /* x114155 stalin.sc:12734:445728 */ t58887.tag = NATIVE_PROCEDURE_TYPE15579; t58887.value.native_procedure_type15579 = t58885; t58888 = t58886; t58889 = (struct structure_type24753 *)NULL_TYPE; f27755(t58887, t58888, t58889); return;} /* [inside DETERMINE-ALLOCATIONS! 12771] */ unsigned f12771(struct p12766 *p12771, struct w49 a24800) {struct w49 t58892; struct w49 t58893; struct w49 t58894; /* x114115 stalin.sc:12721:445270 */ /* x114112 stalin.sc:12721:445305 */ t58892 = a24800; /* x114113 stalin.sc:12721:445307 */ t58893 = p12771->p12762->a24795; /* x114114 stalin.sc:12721:445309 */ t58894 = p12771->a24797; /* x114111 stalin.sc:12721:445271 */ return f12705(t58892, t58893, t58894);} /* [inside DETERMINE-ALLOCATIONS! 12766] */ void f12766(struct p12762 *p12766, struct w49 a24797) {struct w3467 a24799; /* E */ struct w49 a38474; /* S */ struct w49 a40043; /* S */ struct w49 a40044; /* S */ struct w49 a40272; /* S */ char *t58895; char *t58896; struct w49 t58897; struct w49 t58898; struct p12766 *t58899; struct p12766 *t58900; struct p12766 *t58902; struct w3467 t58903; struct w49 t58904; struct structure_type24753 *t58905; struct w12224 t58906; struct structure_type24753 *t58907; struct w12224 t58908; struct w49 t58909; struct w3467 t58910; struct w3467 t58911; unsigned t58912; struct w3467 t58913; struct w49 t58914; struct w49 t58915; struct w49 t58916; struct w49 t58917; struct w49 t58918; struct p12766 *t58919; struct headed_vector_type27624 *t58920; struct w172645 t58921; struct w49 t58922; unsigned t58923; unsigned t58924; unsigned t58925; struct w49 t58926; struct w49 t58927; struct p12766 *e12766; struct p12766 *p12768; struct p12766 *p12769; struct p12766 *p12770; e12766 = (struct p12766 *)alloca(sizeof(struct p12766)); if (e12766==NULL) {backtrace("stalin.sc", 12713, 444974); out_of_memory_error();} e12766->p12762 = p12766; e12766->a24797 = a24797; /* x114133 stalin.sc:12714:444993 */ /* x114086 stalin.sc:12714:445001 */ /* x114084 stalin.sc:12714:445006 */ /* x114083 stalin.sc:12714:445023 */ t58897 = e12766->a24797; /* x114082 stalin.sc:12714:445007 */ a40272 = t58897; /* x293757 */ /* x293756 */ t58898 = a40272; /* x293755 */ if (!((t58898.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35189]"); structure_ref_error();} t58895 = t58898.value.structure_type27698->s0; /* x114085 stalin.sc:12714:445026 */ t58896 = q52; /* x269348 stalin.sc:12714:445002 */ if (!(t58895==t58896)) goto l9061; /* x114088 */ /* x114087 */ return; l9061: /* x114132 */ /* x114131 */ t58899 = e12766; p12768 = t58899; /* x114130 */ /* x114129 stalin.sc:12716:445110 */ /* x114123 stalin.sc:12716:445123 */ /* x114124 stalin.sc:12717:445146 */ /* x114125 stalin.sc:12718:445174 */ /* x114128 stalin.sc:12719:445207 */ /* x114127 stalin.sc:12719:445231 */ t58926 = p12768->a24797; /* x114126 stalin.sc:12719:445208 */ a40044 = t58926; /* x292845 */ /* x292844 */ t58927 = a40044; /* x292843 */ if (!((t58927.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34961]"); structure_ref_error();} t58922 = t58927.value.structure_type27698->s9; /* x114121 stalin.sc:12716:445111 */ t58923 = NATIVE_PROCEDURE_TYPE23262; t58924 = NATIVE_PROCEDURE_TYPE7307; t58925 = NATIVE_PROCEDURE_TYPE7306; f11570(t58923, t58924, t58925, t58922); /* x114120 */ t58900 = p12768; p12769 = t58900; /* x114119 stalin.sc:12720:445236 */ /* x114118 stalin.sc:12720:445245 */ /* x114116 stalin.sc:12721:445258 */ t58919 = p12769; /* x114117 stalin.sc:12722:445317 */ t58920 = a24768; /* x114110 stalin.sc:12720:445246 */ t58921.tag = NATIVE_PROCEDURE_TYPE23264; t58921.value.native_procedure_type23264 = t58919; t58903 = f12708(t58921, t58920); /* x114109 */ t58902 = p12769; p12770 = t58902; a24799 = t58903; /* x114108 stalin.sc:12723:445361 */ /* x114090 stalin.sc:12724:445403 */ t58904 = p12770->a24797; /* x114107 stalin.sc:12725:445408 */ /* x114103 stalin.sc:12726:445418 */ /* x114093 stalin.sc:12726:445424 */ t58909 = p12770->p12762->a24795; /* x114102 stalin.sc:12726:445426 */ /* x114095 stalin.sc:12726:445445 */ t58911 = a24799; /* x114101 stalin.sc:12726:445447 */ /* x114097 stalin.sc:12726:445452 */ t58913 = a24799; /* x114100 stalin.sc:12726:445454 */ /* x114099 stalin.sc:12726:445478 */ t58915 = p12770->a24797; /* x114098 stalin.sc:12726:445455 */ a40043 = t58915; /* x292841 */ /* x292840 */ t58916 = a40043; /* x292839 */ if (!((t58916.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34960]"); structure_ref_error();} t58914 = t58916.value.structure_type27698->s9; /* x269345 stalin.sc:12726:445448 */ /* EQ: dispatching general to general */ if ((t58913.tag)==(t58914.tag)) {switch (t58913.tag) {case FIXNUM_TYPE: t58912 = ((t58913.value.fixnum_type)==(t58914.value.fixnum_type))?TRUE_TYPE:FALSE_TYPE; break; case FLONUM_TYPE: t58912 = ((t58913.value.flonum_type)==(t58914.value.flonum_type))?TRUE_TYPE:FALSE_TYPE; break; case INPUT_PORT_TYPE: t58912 = ((t58913.value.input_port_type)==(t58914.value.input_port_type))?TRUE_TYPE:FALSE_TYPE; break; case OUTPUT_PORT_TYPE: t58912 = ((t58913.value.output_port_type)==(t58914.value.output_port_type))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE15963: t58912 = ((t58913.value.native_procedure_type15963)==(t58914.value.native_procedure_type15963))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19067: t58912 = ((t58913.value.native_procedure_type19067)==(t58914.value.native_procedure_type19067))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19068: t58912 = ((t58913.value.native_procedure_type19068)==(t58914.value.native_procedure_type19068))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE22459: t58912 = ((t58913.value.native_procedure_type22459)==(t58914.value.native_procedure_type22459))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24753: t58912 = ((t58913.value.structure_type24753)==(t58914.value.structure_type24753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24757: t58912 = ((t58913.value.structure_type24757)==(t58914.value.structure_type24757))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27501: t58912 = ((t58913.value.structure_type27501)==(t58914.value.structure_type27501))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27510: t58912 = ((t58913.value.structure_type27510)==(t58914.value.structure_type27510))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27621: t58912 = ((t58913.value.structure_type27621)==(t58914.value.structure_type27621))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27650: t58912 = ((t58913.value.structure_type27650)==(t58914.value.structure_type27650))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27669: t58912 = ((t58913.value.structure_type27669)==(t58914.value.structure_type27669))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27673: t58912 = ((t58913.value.structure_type27673)==(t58914.value.structure_type27673))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27692: t58912 = ((t58913.value.structure_type27692)==(t58914.value.structure_type27692))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27694: t58912 = ((t58913.value.structure_type27694)==(t58914.value.structure_type27694))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27698: t58912 = ((t58913.value.structure_type27698)==(t58914.value.structure_type27698))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27745: t58912 = ((t58913.value.structure_type27745)==(t58914.value.structure_type27745))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27747: t58912 = ((t58913.value.structure_type27747)==(t58914.value.structure_type27747))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27750: t58912 = ((t58913.value.structure_type27750)==(t58914.value.structure_type27750))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27753: t58912 = ((t58913.value.structure_type27753)==(t58914.value.structure_type27753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27756: t58912 = ((t58913.value.structure_type27756)==(t58914.value.structure_type27756))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27761: t58912 = ((t58913.value.structure_type27761)==(t58914.value.structure_type27761))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27769: t58912 = ((t58913.value.structure_type27769)==(t58914.value.structure_type27769))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27776: t58912 = ((t58913.value.structure_type27776)==(t58914.value.structure_type27776))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27779: t58912 = ((t58913.value.structure_type27779)==(t58914.value.structure_type27779))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27858: t58912 = ((t58913.value.structure_type27858)==(t58914.value.structure_type27858))?TRUE_TYPE:FALSE_TYPE; break; case STRING_TYPE: t58912 = ((t58913.value.string_type)==(t58914.value.string_type))?TRUE_TYPE:FALSE_TYPE; break; case HEADED_VECTOR_TYPE27896: t58912 = ((t58913.value.headed_vector_type27896)==(t58914.value.headed_vector_type27896))?TRUE_TYPE:FALSE_TYPE; break; case EXTERNAL_SYMBOL_TYPE: t58912 = ((t58913.value.external_symbol_type)==(t58914.value.external_symbol_type))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27908: t58912 = ((t58913.value.structure_type27908)==(t58914.value.structure_type27908))?TRUE_TYPE:FALSE_TYPE; break; default: t58912 = TRUE_TYPE;}} else t58912 = FALSE_TYPE; /* x114094 stalin.sc:12726:445427 */ t58910 = f12719(t58911, t58912); /* x269346 stalin.sc:12726:445419 */ t58907 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t58907==NULL) {backtrace("stalin.sc", 12726, 445418); out_of_memory_error();} t58907->s0 = t58909; t58907->s1 = *((struct w49 *)(&t58910)); /* x114106 stalin.sc:12727:445488 */ /* x114105 stalin.sc:12727:445522 */ t58917 = p12770->a24797; /* x114104 stalin.sc:12727:445489 */ a38474 = t58917; /* x286565 */ /* x286564 */ t58918 = a38474; /* x286563 */ if (!((t58918.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-ALLOCATION-ALIST[5687] 33391]"); structure_ref_error();} t58908 = t58918.value.structure_type27698->s25; /* x269347 stalin.sc:12725:445409 */ t58905 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t58905==NULL) {backtrace("stalin.sc", 12725, 445408); out_of_memory_error();} t58905->s0.tag = STRUCTURE_TYPE24753; t58905->s0.value.structure_type24753 = t58907; t58905->s1 = *((struct w49 *)(&t58908)); /* x114089 stalin.sc:12723:445362 */ t58906.tag = STRUCTURE_TYPE24753; t58906.value.structure_type24753 = t58905; f5688(t58904, t58906); return;} /* [inside DETERMINE-ALLOCATIONS! 12762] */ void f12762(struct w49 a24795) {struct w49 a37494; /* S */ struct w49 t58928; struct p12762 *t58929; struct p12762 *t58930; struct p12762 *t58932; struct w49 t58933; struct w36108 t58934; struct w49 t58935; struct structure_type24753 *t58936; struct w49 t58937; struct w49 t58938; struct p12762 *e12762; struct p12762 *p12764; struct p12762 *p12765; e12762 = (struct p12762 *)alloca(sizeof(struct p12762)); if (e12762==NULL) {backtrace("stalin.sc", 12709, 444857); out_of_memory_error();} e12762->a24795 = a24795; /* x114145 stalin.sc:12710:444873 */ /* x114077 stalin.sc:12710:444881 */ /* x114076 stalin.sc:12710:444906 */ t58928 = e12762->a24795; /* x114075 stalin.sc:12710:444882 */ if (f7754(t58928)==FALSE_TYPE) goto l9063; /* x114079 */ /* x114078 */ return; l9063: /* x114144 */ /* x114143 */ t58929 = e12762; p12764 = t58929; /* x114142 */ /* x114141 stalin.sc:12711:444914 */ /* x114140 stalin.sc:12711:444915 */ f4651(); /* x114139 */ t58930 = p12764; p12765 = t58930; /* x114138 stalin.sc:12712:444958 */ /* x114137 stalin.sc:12728:445536 */ /* x114136 stalin.sc:12728:445579 */ t58937 = p12765->a24795; /* x114135 stalin.sc:12728:445537 */ a37494 = t58937; /* x282645 */ /* x282644 */ t58938 = a37494; /* x282643 */ if (!((t58938.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS[6251] 32411]"); structure_ref_error();} t58933 = t58938.value.structure_type27761->s1; /* x114134 stalin.sc:12713:444974 */ t58932 = p12765; /* x114080 stalin.sc:12712:444959 */ t58934.tag = NATIVE_PROCEDURE_TYPE15584; t58934.value.native_procedure_type15584 = t58932; t58935 = t58933; t58936 = (struct structure_type24753 *)NULL_TYPE; f27755(t58934, t58935, t58936); return;} /* [inside DETERMINE-ALLOCATIONS! 12760] */ unsigned f12760(struct p12755 *p12760, struct w49 a24793) {struct w49 t58939; struct w49 t58940; struct w49 t58941; /* x114040 stalin.sc:12699:444509 */ /* x114037 stalin.sc:12699:444544 */ t58939 = a24793; /* x114038 stalin.sc:12699:444546 */ t58940 = p12760->p12751->a24788; /* x114039 stalin.sc:12699:444548 */ t58941 = p12760->a24790; /* x114036 stalin.sc:12699:444510 */ return f12705(t58939, t58940, t58941);} /* [inside DETERMINE-ALLOCATIONS! 12755] */ void f12755(struct p12751 *p12755, struct w49 a24790) {struct w3467 a24792; /* E */ struct w49 a38477; /* S */ struct w49 a40045; /* S */ struct w49 a40046; /* S */ struct w49 a40275; /* S */ char *t58942; char *t58943; struct w49 t58944; struct w49 t58945; struct p12755 *t58946; struct p12755 *t58947; struct p12755 *t58949; struct w3467 t58950; struct w49 t58951; struct structure_type24753 *t58952; struct w12224 t58953; struct structure_type24753 *t58954; struct w12224 t58955; struct w49 t58956; struct w3467 t58957; struct w3467 t58958; unsigned t58959; struct w3467 t58960; struct w49 t58961; struct w49 t58962; struct w49 t58963; struct w49 t58964; struct w49 t58965; struct p12755 *t58966; struct headed_vector_type27624 *t58967; struct w172645 t58968; struct w49 t58969; unsigned t58970; unsigned t58971; unsigned t58972; struct w49 t58973; struct w49 t58974; struct p12755 *e12755; struct p12755 *p12757; struct p12755 *p12758; struct p12755 *p12759; e12755 = (struct p12755 *)alloca(sizeof(struct p12755)); if (e12755==NULL) {backtrace("stalin.sc", 12691, 444215); out_of_memory_error();} e12755->p12751 = p12755; e12755->a24790 = a24790; /* x114058 stalin.sc:12692:444234 */ /* x114011 stalin.sc:12692:444242 */ /* x114009 stalin.sc:12692:444247 */ /* x114008 stalin.sc:12692:444264 */ t58944 = e12755->a24790; /* x114007 stalin.sc:12692:444248 */ a40275 = t58944; /* x293769 */ /* x293768 */ t58945 = a40275; /* x293767 */ if (!((t58945.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35192]"); structure_ref_error();} t58942 = t58945.value.structure_type27698->s0; /* x114010 stalin.sc:12692:444267 */ t58943 = q50; /* x269352 stalin.sc:12692:444243 */ if (!(t58942==t58943)) goto l9065; /* x114013 */ /* x114012 */ return; l9065: /* x114057 */ /* x114056 */ t58946 = e12755; p12757 = t58946; /* x114055 */ /* x114054 stalin.sc:12694:444349 */ /* x114048 stalin.sc:12694:444362 */ /* x114049 stalin.sc:12695:444385 */ /* x114050 stalin.sc:12696:444413 */ /* x114053 stalin.sc:12697:444446 */ /* x114052 stalin.sc:12697:444470 */ t58973 = p12757->a24790; /* x114051 stalin.sc:12697:444447 */ a40046 = t58973; /* x292853 */ /* x292852 */ t58974 = a40046; /* x292851 */ if (!((t58974.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34963]"); structure_ref_error();} t58969 = t58974.value.structure_type27698->s9; /* x114046 stalin.sc:12694:444350 */ t58970 = NATIVE_PROCEDURE_TYPE22699; t58971 = NATIVE_PROCEDURE_TYPE7307; t58972 = NATIVE_PROCEDURE_TYPE7306; f11570(t58970, t58971, t58972, t58969); /* x114045 */ t58947 = p12757; p12758 = t58947; /* x114044 stalin.sc:12698:444475 */ /* x114043 stalin.sc:12698:444484 */ /* x114041 stalin.sc:12699:444497 */ t58966 = p12758; /* x114042 stalin.sc:12700:444556 */ t58967 = a24768; /* x114035 stalin.sc:12698:444485 */ t58968.tag = NATIVE_PROCEDURE_TYPE22701; t58968.value.native_procedure_type22701 = t58966; t58950 = f12708(t58968, t58967); /* x114034 */ t58949 = p12758; p12759 = t58949; a24792 = t58950; /* x114033 stalin.sc:12701:444600 */ /* x114015 stalin.sc:12702:444642 */ t58951 = p12759->a24790; /* x114032 stalin.sc:12703:444647 */ /* x114028 stalin.sc:12704:444657 */ /* x114018 stalin.sc:12704:444663 */ t58956 = p12759->p12751->a24788; /* x114027 stalin.sc:12704:444665 */ /* x114020 stalin.sc:12704:444684 */ t58958 = a24792; /* x114026 stalin.sc:12704:444686 */ /* x114022 stalin.sc:12704:444691 */ t58960 = a24792; /* x114025 stalin.sc:12704:444693 */ /* x114024 stalin.sc:12704:444717 */ t58962 = p12759->a24790; /* x114023 stalin.sc:12704:444694 */ a40045 = t58962; /* x292849 */ /* x292848 */ t58963 = a40045; /* x292847 */ if (!((t58963.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34962]"); structure_ref_error();} t58961 = t58963.value.structure_type27698->s9; /* x269349 stalin.sc:12704:444687 */ /* EQ: dispatching general to general */ if ((t58960.tag)==(t58961.tag)) {switch (t58960.tag) {case FIXNUM_TYPE: t58959 = ((t58960.value.fixnum_type)==(t58961.value.fixnum_type))?TRUE_TYPE:FALSE_TYPE; break; case FLONUM_TYPE: t58959 = ((t58960.value.flonum_type)==(t58961.value.flonum_type))?TRUE_TYPE:FALSE_TYPE; break; case INPUT_PORT_TYPE: t58959 = ((t58960.value.input_port_type)==(t58961.value.input_port_type))?TRUE_TYPE:FALSE_TYPE; break; case OUTPUT_PORT_TYPE: t58959 = ((t58960.value.output_port_type)==(t58961.value.output_port_type))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE15963: t58959 = ((t58960.value.native_procedure_type15963)==(t58961.value.native_procedure_type15963))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19067: t58959 = ((t58960.value.native_procedure_type19067)==(t58961.value.native_procedure_type19067))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19068: t58959 = ((t58960.value.native_procedure_type19068)==(t58961.value.native_procedure_type19068))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE22459: t58959 = ((t58960.value.native_procedure_type22459)==(t58961.value.native_procedure_type22459))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24753: t58959 = ((t58960.value.structure_type24753)==(t58961.value.structure_type24753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24757: t58959 = ((t58960.value.structure_type24757)==(t58961.value.structure_type24757))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27501: t58959 = ((t58960.value.structure_type27501)==(t58961.value.structure_type27501))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27510: t58959 = ((t58960.value.structure_type27510)==(t58961.value.structure_type27510))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27621: t58959 = ((t58960.value.structure_type27621)==(t58961.value.structure_type27621))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27650: t58959 = ((t58960.value.structure_type27650)==(t58961.value.structure_type27650))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27669: t58959 = ((t58960.value.structure_type27669)==(t58961.value.structure_type27669))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27673: t58959 = ((t58960.value.structure_type27673)==(t58961.value.structure_type27673))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27692: t58959 = ((t58960.value.structure_type27692)==(t58961.value.structure_type27692))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27694: t58959 = ((t58960.value.structure_type27694)==(t58961.value.structure_type27694))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27698: t58959 = ((t58960.value.structure_type27698)==(t58961.value.structure_type27698))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27745: t58959 = ((t58960.value.structure_type27745)==(t58961.value.structure_type27745))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27747: t58959 = ((t58960.value.structure_type27747)==(t58961.value.structure_type27747))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27750: t58959 = ((t58960.value.structure_type27750)==(t58961.value.structure_type27750))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27753: t58959 = ((t58960.value.structure_type27753)==(t58961.value.structure_type27753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27756: t58959 = ((t58960.value.structure_type27756)==(t58961.value.structure_type27756))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27761: t58959 = ((t58960.value.structure_type27761)==(t58961.value.structure_type27761))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27769: t58959 = ((t58960.value.structure_type27769)==(t58961.value.structure_type27769))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27776: t58959 = ((t58960.value.structure_type27776)==(t58961.value.structure_type27776))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27779: t58959 = ((t58960.value.structure_type27779)==(t58961.value.structure_type27779))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27858: t58959 = ((t58960.value.structure_type27858)==(t58961.value.structure_type27858))?TRUE_TYPE:FALSE_TYPE; break; case STRING_TYPE: t58959 = ((t58960.value.string_type)==(t58961.value.string_type))?TRUE_TYPE:FALSE_TYPE; break; case HEADED_VECTOR_TYPE27896: t58959 = ((t58960.value.headed_vector_type27896)==(t58961.value.headed_vector_type27896))?TRUE_TYPE:FALSE_TYPE; break; case EXTERNAL_SYMBOL_TYPE: t58959 = ((t58960.value.external_symbol_type)==(t58961.value.external_symbol_type))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27908: t58959 = ((t58960.value.structure_type27908)==(t58961.value.structure_type27908))?TRUE_TYPE:FALSE_TYPE; break; default: t58959 = TRUE_TYPE;}} else t58959 = FALSE_TYPE; /* x114019 stalin.sc:12704:444666 */ t58957 = f12719(t58958, t58959); /* x269350 stalin.sc:12704:444658 */ t58954 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t58954==NULL) {backtrace("stalin.sc", 12704, 444657); out_of_memory_error();} t58954->s0 = t58956; t58954->s1 = *((struct w49 *)(&t58957)); /* x114031 stalin.sc:12705:444727 */ /* x114030 stalin.sc:12705:444761 */ t58964 = p12759->a24790; /* x114029 stalin.sc:12705:444728 */ a38477 = t58964; /* x286577 */ /* x286576 */ t58965 = a38477; /* x286575 */ if (!((t58965.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-ALLOCATION-ALIST[5687] 33394]"); structure_ref_error();} t58955 = t58965.value.structure_type27698->s25; /* x269351 stalin.sc:12703:444648 */ t58952 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t58952==NULL) {backtrace("stalin.sc", 12703, 444647); out_of_memory_error();} t58952->s0.tag = STRUCTURE_TYPE24753; t58952->s0.value.structure_type24753 = t58954; t58952->s1 = *((struct w49 *)(&t58955)); /* x114014 stalin.sc:12701:444601 */ t58953.tag = STRUCTURE_TYPE24753; t58953.value.structure_type24753 = t58952; f5688(t58951, t58953); return;} /* [inside DETERMINE-ALLOCATIONS! 12751] */ void f12751(struct w49 a24788) {struct w49 a37614; /* S */ struct w49 t58975; struct p12751 *t58976; struct p12751 *t58977; struct p12751 *t58979; struct w49 t58980; struct w36108 t58981; struct w49 t58982; struct structure_type24753 *t58983; struct w49 t58984; struct w49 t58985; struct p12751 *e12751; struct p12751 *p12753; struct p12751 *p12754; e12751 = (struct p12751 *)alloca(sizeof(struct p12751)); if (e12751==NULL) {backtrace("stalin.sc", 12685, 443988); out_of_memory_error();} e12751->a24788 = a24788; /* x114070 stalin.sc:12688:444126 */ /* x114002 stalin.sc:12688:444134 */ /* x114001 stalin.sc:12688:444147 */ t58975 = e12751->a24788; /* x114000 stalin.sc:12688:444135 */ if (f8793(t58975)==FALSE_TYPE) goto l9067; /* x114004 */ /* x114003 */ return; l9067: /* x114069 */ /* x114068 */ t58976 = e12751; p12753 = t58976; /* x114067 */ /* x114066 stalin.sc:12689:444155 */ /* x114065 stalin.sc:12689:444156 */ f4651(); /* x114064 */ t58977 = p12753; p12754 = t58977; /* x114063 stalin.sc:12690:444199 */ /* x114062 stalin.sc:12706:444775 */ /* x114061 stalin.sc:12706:444814 */ t58984 = p12754->a24788; /* x114060 stalin.sc:12706:444776 */ a37614 = t58984; /* x283125 */ /* x283124 */ t58985 = a37614; /* x283123 */ if (!((t58985.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-ALLOCATING-EXPRESSIONS[6185] 32531]"); structure_ref_error();} t58980 = t58985.value.structure_type27769->s2; /* x114059 stalin.sc:12691:444215 */ t58979 = p12754; /* x114005 stalin.sc:12690:444200 */ t58981.tag = NATIVE_PROCEDURE_TYPE15589; t58981.value.native_procedure_type15589 = t58979; t58982 = t58980; t58983 = (struct structure_type24753 *)NULL_TYPE; f27755(t58981, t58982, t58983); return;} /* [inside DETERMINE-ALLOCATIONS! 12748] */ unsigned f12748(struct p12742 *p12748, struct w49 a24786) {struct w49 t58986; struct w49 t58987; struct w49 t58988; /* x113963 stalin.sc:12675:443647 */ /* x113960 stalin.sc:12675:443682 */ t58986 = a24786; /* x113961 stalin.sc:12675:443684 */ t58987 = p12748->p12740->a24781; /* x113962 stalin.sc:12675:443686 */ t58988 = p12748->a24783; /* x113959 stalin.sc:12675:443648 */ return f12705(t58986, t58987, t58988);} /* [inside DETERMINE-ALLOCATIONS! 12742] */ void f12742(struct p12740 *p12742, struct w49 a24783) {struct w3467 a24785; /* E */ struct w49 a38481; /* S */ struct w49 a40096; /* S */ struct w49 a40112; /* S */ struct w49 a40397; /* S */ struct w49 a40453; /* OBJ */ struct w49 t58989; struct w49 t58990; struct p12742 *t58991; char *t58992; char *t58993; struct w49 t58994; struct w49 t58995; struct p12742 *t58996; struct p12742 *t58997; struct p12742 *t58999; struct w3467 t59000; struct w49 t59001; struct structure_type24753 *t59002; struct w12224 t59003; struct structure_type24753 *t59004; struct w12224 t59005; struct w49 t59006; struct w3467 t59007; struct w3467 t59008; unsigned t59009; struct w3467 t59010; struct w49 t59011; struct w49 t59012; struct w49 t59013; struct w49 t59014; struct w49 t59015; struct p12742 *t59016; struct headed_vector_type27624 *t59017; struct w172645 t59018; struct w49 t59019; unsigned t59020; unsigned t59021; unsigned t59022; struct w49 t59023; struct w49 t59024; struct p12742 *e12742; struct p12742 *p12743; struct p12742 *p12745; struct p12742 *p12746; struct p12742 *p12747; e12742 = (struct p12742 *)alloca(sizeof(struct p12742)); if (e12742==NULL) {backtrace("stalin.sc", 12666, 443323); out_of_memory_error();} e12742->p12740 = p12742; e12742->a24783 = a24783; /* x113986 stalin.sc:12667:443341 */ /* x113928 stalin.sc:12667:443347 */ /* x113927 stalin.sc:12667:443360 */ t58989 = e12742->a24783; /* x113926 stalin.sc:12667:443348 */ a40453 = t58989; /* x294481 */ /* x294480 */ t58990 = a40453; /* x294479 */ if (!((t58990.tag)==STRUCTURE_TYPE27698)) goto l9069; /* x113983 */ /* x113982 */ t58991 = e12742; p12743 = t58991; /* x113981 stalin.sc:12668:443370 */ /* x113934 stalin.sc:12668:443378 */ /* x113932 stalin.sc:12668:443383 */ /* x113931 stalin.sc:12668:443400 */ t58994 = p12743->a24783; /* x113930 stalin.sc:12668:443384 */ a40397 = t58994; /* x294257 */ /* x294256 */ t58995 = a40397; /* x294255 */ if (!((t58995.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35314]"); structure_ref_error();} t58992 = t58995.value.structure_type27698->s0; /* x113933 stalin.sc:12668:443403 */ t58993 = q75; /* x269356 stalin.sc:12668:443379 */ if (!(t58992==t58993)) goto l9071; /* x113936 */ /* x113935 */ return; l9071: /* x113980 */ /* x113979 */ t58996 = p12743; p12745 = t58996; /* x113978 */ /* x113977 stalin.sc:12670:443487 */ /* x113971 stalin.sc:12670:443500 */ /* x113972 stalin.sc:12671:443523 */ /* x113973 stalin.sc:12672:443551 */ /* x113976 stalin.sc:12673:443584 */ /* x113975 stalin.sc:12673:443608 */ t59023 = p12745->a24783; /* x113974 stalin.sc:12673:443585 */ a40112 = t59023; /* x293117 */ /* x293116 */ t59024 = a40112; /* x293115 */ if (!((t59024.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35029]"); structure_ref_error();} t59019 = t59024.value.structure_type27698->s9; /* x113969 stalin.sc:12670:443488 */ t59020 = NATIVE_PROCEDURE_TYPE17362; t59021 = NATIVE_PROCEDURE_TYPE7307; t59022 = NATIVE_PROCEDURE_TYPE7306; f11570(t59020, t59021, t59022, t59019); /* x113968 */ t58997 = p12745; p12746 = t58997; /* x113967 stalin.sc:12674:443613 */ /* x113966 stalin.sc:12674:443622 */ /* x113964 stalin.sc:12675:443635 */ t59016 = p12746; /* x113965 stalin.sc:12676:443694 */ t59017 = a24768; /* x113958 stalin.sc:12674:443623 */ t59018.tag = NATIVE_PROCEDURE_TYPE18252; t59018.value.native_procedure_type18252 = t59016; t59000 = f12708(t59018, t59017); /* x113957 */ t58999 = p12746; p12747 = t58999; a24785 = t59000; /* x113956 stalin.sc:12677:443738 */ /* x113938 stalin.sc:12678:443780 */ t59001 = p12747->a24783; /* x113955 stalin.sc:12679:443785 */ /* x113951 stalin.sc:12680:443795 */ /* x113941 stalin.sc:12680:443801 */ t59006 = p12747->p12740->a24781; /* x113950 stalin.sc:12680:443803 */ /* x113943 stalin.sc:12680:443822 */ t59008 = a24785; /* x113949 stalin.sc:12680:443824 */ /* x113945 stalin.sc:12680:443829 */ t59010 = a24785; /* x113948 stalin.sc:12680:443831 */ /* x113947 stalin.sc:12680:443855 */ t59012 = p12747->a24783; /* x113946 stalin.sc:12680:443832 */ a40096 = t59012; /* x293053 */ /* x293052 */ t59013 = a40096; /* x293051 */ if (!((t59013.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35013]"); structure_ref_error();} t59011 = t59013.value.structure_type27698->s9; /* x269353 stalin.sc:12680:443825 */ /* EQ: dispatching general to general */ if ((t59010.tag)==(t59011.tag)) {switch (t59010.tag) {case FIXNUM_TYPE: t59009 = ((t59010.value.fixnum_type)==(t59011.value.fixnum_type))?TRUE_TYPE:FALSE_TYPE; break; case FLONUM_TYPE: t59009 = ((t59010.value.flonum_type)==(t59011.value.flonum_type))?TRUE_TYPE:FALSE_TYPE; break; case INPUT_PORT_TYPE: t59009 = ((t59010.value.input_port_type)==(t59011.value.input_port_type))?TRUE_TYPE:FALSE_TYPE; break; case OUTPUT_PORT_TYPE: t59009 = ((t59010.value.output_port_type)==(t59011.value.output_port_type))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE15963: t59009 = ((t59010.value.native_procedure_type15963)==(t59011.value.native_procedure_type15963))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19067: t59009 = ((t59010.value.native_procedure_type19067)==(t59011.value.native_procedure_type19067))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19068: t59009 = ((t59010.value.native_procedure_type19068)==(t59011.value.native_procedure_type19068))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE22459: t59009 = ((t59010.value.native_procedure_type22459)==(t59011.value.native_procedure_type22459))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24753: t59009 = ((t59010.value.structure_type24753)==(t59011.value.structure_type24753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24757: t59009 = ((t59010.value.structure_type24757)==(t59011.value.structure_type24757))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27501: t59009 = ((t59010.value.structure_type27501)==(t59011.value.structure_type27501))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27510: t59009 = ((t59010.value.structure_type27510)==(t59011.value.structure_type27510))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27621: t59009 = ((t59010.value.structure_type27621)==(t59011.value.structure_type27621))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27650: t59009 = ((t59010.value.structure_type27650)==(t59011.value.structure_type27650))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27669: t59009 = ((t59010.value.structure_type27669)==(t59011.value.structure_type27669))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27673: t59009 = ((t59010.value.structure_type27673)==(t59011.value.structure_type27673))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27692: t59009 = ((t59010.value.structure_type27692)==(t59011.value.structure_type27692))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27694: t59009 = ((t59010.value.structure_type27694)==(t59011.value.structure_type27694))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27698: t59009 = ((t59010.value.structure_type27698)==(t59011.value.structure_type27698))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27745: t59009 = ((t59010.value.structure_type27745)==(t59011.value.structure_type27745))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27747: t59009 = ((t59010.value.structure_type27747)==(t59011.value.structure_type27747))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27750: t59009 = ((t59010.value.structure_type27750)==(t59011.value.structure_type27750))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27753: t59009 = ((t59010.value.structure_type27753)==(t59011.value.structure_type27753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27756: t59009 = ((t59010.value.structure_type27756)==(t59011.value.structure_type27756))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27761: t59009 = ((t59010.value.structure_type27761)==(t59011.value.structure_type27761))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27769: t59009 = ((t59010.value.structure_type27769)==(t59011.value.structure_type27769))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27776: t59009 = ((t59010.value.structure_type27776)==(t59011.value.structure_type27776))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27779: t59009 = ((t59010.value.structure_type27779)==(t59011.value.structure_type27779))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27858: t59009 = ((t59010.value.structure_type27858)==(t59011.value.structure_type27858))?TRUE_TYPE:FALSE_TYPE; break; case STRING_TYPE: t59009 = ((t59010.value.string_type)==(t59011.value.string_type))?TRUE_TYPE:FALSE_TYPE; break; case HEADED_VECTOR_TYPE27896: t59009 = ((t59010.value.headed_vector_type27896)==(t59011.value.headed_vector_type27896))?TRUE_TYPE:FALSE_TYPE; break; case EXTERNAL_SYMBOL_TYPE: t59009 = ((t59010.value.external_symbol_type)==(t59011.value.external_symbol_type))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27908: t59009 = ((t59010.value.structure_type27908)==(t59011.value.structure_type27908))?TRUE_TYPE:FALSE_TYPE; break; default: t59009 = TRUE_TYPE;}} else t59009 = FALSE_TYPE; /* x113942 stalin.sc:12680:443804 */ t59007 = f12719(t59008, t59009); /* x269354 stalin.sc:12680:443796 */ t59004 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t59004==NULL) {backtrace("stalin.sc", 12680, 443795); out_of_memory_error();} t59004->s0 = t59006; t59004->s1 = *((struct w49 *)(&t59007)); /* x113954 stalin.sc:12681:443865 */ /* x113953 stalin.sc:12681:443899 */ t59014 = p12747->a24783; /* x113952 stalin.sc:12681:443866 */ a38481 = t59014; /* x286593 */ /* x286592 */ t59015 = a38481; /* x286591 */ if (!((t59015.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-ALLOCATION-ALIST[5687] 33398]"); structure_ref_error();} t59005 = t59015.value.structure_type27698->s25; /* x269355 stalin.sc:12679:443786 */ t59002 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t59002==NULL) {backtrace("stalin.sc", 12679, 443785); out_of_memory_error();} t59002->s0.tag = STRUCTURE_TYPE24753; t59002->s0.value.structure_type24753 = t59004; t59002->s1 = *((struct w49 *)(&t59005)); /* x113937 stalin.sc:12677:443739 */ t59003.tag = STRUCTURE_TYPE24753; t59003.value.structure_type24753 = t59002; f5688(t59001, t59003); return; l9069: /* x113985 stalin.sc:12667:443341 */ /* x113984 stalin.sc:12667:443341 */ return;} /* [inside DETERMINE-ALLOCATIONS! 12740] */ void f12740(struct w49 a24781) {struct w49 a37737; /* S */ struct p12740 *t59025; struct p12740 *t59027; struct w49 t59028; struct w36108 t59029; struct w49 t59030; struct structure_type24753 *t59031; struct w49 t59032; struct w49 t59033; struct p12740 *e12740; struct p12740 *p12741; e12740 = (struct p12740 *)alloca(sizeof(struct p12740)); if (e12740==NULL) {backtrace_internal("[inside DETERMINE-ALLOCATIONS! 12730]"); out_of_memory_error();} e12740->a24781 = a24781; /* x113995 */ /* x113994 stalin.sc:12664:443265 */ /* x113993 stalin.sc:12664:443266 */ f4651(); /* x113992 */ t59025 = e12740; p12741 = t59025; /* x113991 stalin.sc:12665:443308 */ /* x113990 stalin.sc:12682:443913 */ /* x113989 stalin.sc:12682:443949 */ t59032 = p12741->a24781; /* x113988 stalin.sc:12682:443914 */ a37737 = t59032; /* x283617 */ /* x283616 */ t59033 = a37737; /* x283615 */ if (!((t59033.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-ALLOCATING-EXPRESSIONS[6111] 32654]"); structure_ref_error();} t59028 = t59033.value.structure_type27673->s0; /* x113987 stalin.sc:12666:443323 */ t59027 = p12741; /* x113925 stalin.sc:12665:443309 */ t59029.tag = NATIVE_PROCEDURE_TYPE15593; t59029.value.native_procedure_type15593 = t59027; t59030 = t59028; t59031 = (struct structure_type24753 *)NULL_TYPE; f27755(t59029, t59030, t59031); return;} /* [inside DETERMINE-ALLOCATIONS! 12739] */ void f12739(struct w49 a24780) {struct headed_vector_type27624 *t59034; struct w6194 t59035; struct structure_type24753 *t59036; struct w49 t59037; struct w49 t59038; struct structure_type24753 *t59039; struct headed_vector_type27624 *t59040; struct w6194 t59041; struct w49 t59042; /* x113920 stalin.sc:12657:443049 */ /* x113907 stalin.sc:12657:443062 */ t59034 = a24768; /* x113910 stalin.sc:12658:443104 */ /* x113909 stalin.sc:12658:443124 */ t59037 = a24780; /* x113908 stalin.sc:12658:443105 */ t59035 = f8624(t59037); /* x113919 stalin.sc:12659:443130 */ /* x113912 stalin.sc:12659:443136 */ t59038 = a24780; /* x113918 stalin.sc:12659:443138 */ /* x113914 stalin.sc:12659:443150 */ t59040 = a24768; /* x113917 stalin.sc:12660:443198 */ /* x113916 stalin.sc:12660:443218 */ t59042 = a24780; /* x113915 stalin.sc:12660:443199 */ t59041 = f8624(t59042); /* x269357 stalin.sc:12659:443139 */ if (!((t59041.tag)==FIXNUM_TYPE)) {backtrace("stalin.sc", 12659, 443138); vector_ref2_error();} if (((t59041.value.fixnum_type)<0)||((t59041.value.fixnum_type)>=(t59040->length))) {backtrace("stalin.sc", 12659, 443138); vector_ref3_error();} t59039 = (t59040->element)[t59041.value.fixnum_type]; /* x269358 stalin.sc:12659:443131 */ t59036 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t59036==NULL) {backtrace("stalin.sc", 12659, 443130); out_of_memory_error();} t59036->s0 = t59038; /* MOVE: branching squeezed to general */ if (t59039>=((struct structure_type24753 *)VALUE_OFFSET)) {t59036->s1.tag = STRUCTURE_TYPE24753; t59036->s1.value.structure_type24753 = t59039;} else t59036->s1.tag = (unsigned)t59039; /* x269359 stalin.sc:12657:443050 */ if ((t59035.tag)==FIXNUM_TYPE) {if (((t59035.value.fixnum_type)<0)||((t59035.value.fixnum_type)>=(t59034->length))) {backtrace("stalin.sc", 12657, 443049); vector_set3_error();} (t59034->element)[t59035.value.fixnum_type] = t59036; return;} backtrace("stalin.sc", 12657, 443049); vector_set2_error();} /* [inside DETERMINE-ALLOCATIONS! 12736] */ unsigned f12736(struct p12732 *p12736, struct w49 a24778) {struct w49 a24753; /* E1 */ struct w49 a24754; /* E2 */ struct w49 a36693; /* S */ struct w6852 a39221; /* S */ struct w49 t59043; struct w49 t59044; struct w49 t59045; struct w49 t59046; struct w49 t59047; struct w49 t59048; struct w49 t59049; struct w49 t59050; struct w6852 t59051; struct w6852 t59052; struct w49 t59053; struct w49 t59054; struct p12706 *t59055; struct w3457 t59056; struct w228345 t59057; struct w49 t59058; struct structure_type24753 *t59059; struct w49 t59060; struct p12706 *e12706; /* x113880 stalin.sc:12760:446675 */ /* x113878 stalin.sc:12760:446717 */ t59043 = a24778; /* x113879 stalin.sc:12760:446720 */ t59044 = p12736->a24774; /* x113877 stalin.sc:12760:446676 */ a24753 = t59043; a24754 = t59044; e12706 = (struct p12706 *)alloca(sizeof(struct p12706)); if (e12706==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e12706->a24753 = a24753; /* x113676 stalin.sc:12582:439836 */ /* x113676 stalin.sc:12582:439836 */ /* x113631 stalin.sc:12582:439841 */ /* x113630 stalin.sc:12582:439863 */ t59045 = e12706->a24753; /* x113629 stalin.sc:12582:439842 */ if (f8476(t59045)==FALSE_TYPE) goto l9073; /* x113674 */ /* x113636 stalin.sc:12583:439908 */ /* x113635 stalin.sc:12583:439913 */ /* x113634 stalin.sc:12583:439943 */ t59046 = e12706->a24753; /* x113633 stalin.sc:12583:439914 */ if (!(f8553(t59046)==FALSE_TYPE)) goto l9073; /* x113672 */ /* x113646 stalin.sc:12584:439954 */ /* x113645 stalin.sc:12584:439959 */ /* x113640 stalin.sc:12584:439964 */ /* x113639 stalin.sc:12584:439976 */ t59047 = e12706->a24753; /* x113638 stalin.sc:12584:439965 */ if (f8543(t59047)==FALSE_TYPE) goto l9077; /* x113643 */ /* x113642 stalin.sc:12584:440013 */ t59048 = e12706->a24753; /* x113641 stalin.sc:12584:439981 */ if (!(f8558(t59048)==FALSE_TYPE)) goto l9073; l9077: /* x113670 */ /* x113654 stalin.sc:12585:440025 */ /* x113648 stalin.sc:12586:440090 */ t59049 = e12706->a24753; /* x113653 stalin.sc:12586:440093 */ /* x113652 stalin.sc:12586:440110 */ /* x113651 stalin.sc:12586:440134 */ t59053 = a24754; /* x113650 stalin.sc:12586:440111 */ a36693 = t59053; /* x279441 */ /* x279440 */ t59054 = a36693; /* x279439 */ if (!((t59054.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31610]"); structure_ref_error();} t59051 = t59054.value.structure_type27694->s1; /* x113649 stalin.sc:12586:440094 */ a39221 = t59051; /* x289553 */ /* x289552 */ t59052 = a39221; /* x289551 */ if (!((t59052.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34138]"); structure_ref_error();} t59050 = t59052.value.structure_type27698->s15; /* x113647 stalin.sc:12585:440026 */ if ((f12698(t59049, t59050).tag)==FALSE_TYPE) goto l9073; /* x113668 */ /* x113667 stalin.sc:12589:440263 */ /* x113666 stalin.sc:12590:440322 */ /* x113665 stalin.sc:12590:440335 */ t59060 = a24754; /* x113664 stalin.sc:12590:440323 */ t59056 = f8644(t59060); /* x113663 stalin.sc:12589:440269 */ t59055 = e12706; /* x113656 stalin.sc:12589:440264 */ t59057.tag = NATIVE_PROCEDURE_TYPE19162; t59057.value.native_procedure_type19162 = t59055; t59058 = *((struct w49 *)(&t59056)); t59059 = (struct structure_type24753 *)NULL_TYPE; if (!((f1042(t59057, t59058, t59059).tag)==FALSE_TYPE)) goto l9073; return TRUE_TYPE; l9073: return FALSE_TYPE;} /* [inside DETERMINE-ALLOCATIONS! 12732] */ void f12732(struct w49 a24774) {struct w49 a20579; /* S */ struct w3467 a20580; /* X */ struct w3467 a24777; /* E1 */ struct w49 t59061; struct w49 t59062; struct p12732 *t59063; struct p12732 *t59064; struct p12732 *t59067; struct w3467 t59068; struct w49 t59069; struct w3467 t59070; struct w49 t59071; struct w3467 t59072; struct w3467 t59073; unsigned t59074; struct w3467 t59075; struct w49 t59076; struct p12732 *t59077; struct headed_vector_type27624 *t59078; struct w172645 t59079; struct w49 t59080; unsigned t59081; unsigned t59082; unsigned t59083; struct p12732 *e12732; struct p12732 *p12733; struct p12732 *p12734; struct p12732 *p12735; e12732 = (struct p12732 *)alloca(sizeof(struct p12732)); if (e12732==NULL) {backtrace("stalin.sc", 12753, 446372); out_of_memory_error();} e12732->a24774 = a24774; /* x113900 stalin.sc:12754:446388 */ /* x113864 stalin.sc:12754:446394 */ /* x113859 stalin.sc:12754:446399 */ /* x113858 stalin.sc:12754:446404 */ /* x113857 stalin.sc:12754:446411 */ t59061 = e12732->a24774; /* x113856 stalin.sc:12754:446405 */ if (!(f8918(t59061)==FALSE_TYPE)) goto l9081; /* x113862 */ /* x113861 stalin.sc:12754:446429 */ t59062 = e12732->a24774; /* x113860 stalin.sc:12754:446416 */ if (f8563(t59062)==FALSE_TYPE) goto l9081; /* x113897 */ /* x113896 */ t59063 = e12732; p12733 = t59063; /* x113895 */ /* x113887 stalin.sc:12755:446438 */ /* x113886 stalin.sc:12755:446439 */ f4651(); /* x113894 stalin.sc:12757:446551 */ /* x113890 stalin.sc:12758:446570 */ /* x113891 stalin.sc:12758:446586 */ /* x113892 stalin.sc:12758:446607 */ /* x113893 stalin.sc:12758:446633 */ t59080 = p12733->a24774; /* x113888 stalin.sc:12757:446552 */ t59081 = NATIVE_PROCEDURE_TYPE18231; t59082 = NATIVE_PROCEDURE_TYPE7307; t59083 = NATIVE_PROCEDURE_TYPE7306; f11570(t59081, t59082, t59083, t59080); /* x113885 */ t59064 = p12733; p12734 = t59064; /* x113884 stalin.sc:12759:446641 */ /* x113883 stalin.sc:12759:446651 */ /* x113881 stalin.sc:12760:446662 */ t59077 = p12734; /* x113882 stalin.sc:12761:446726 */ t59078 = a24768; /* x113876 stalin.sc:12759:446652 */ t59079.tag = NATIVE_PROCEDURE_TYPE18254; t59079.value.native_procedure_type18254 = t59077; t59068 = f12708(t59079, t59078); /* x113875 */ t59067 = p12734; p12735 = t59067; a24777 = t59068; /* x113874 stalin.sc:12762:446774 */ /* x113866 stalin.sc:12762:446803 */ t59069 = p12735->a24774; /* x113873 stalin.sc:12762:446805 */ /* x113868 stalin.sc:12762:446824 */ t59073 = a24777; /* x113872 stalin.sc:12762:446827 */ /* x113870 stalin.sc:12762:446832 */ t59075 = a24777; /* x113871 stalin.sc:12762:446835 */ t59076 = p12735->a24774; /* x269360 stalin.sc:12762:446828 */ /* EQ: dispatching general to general */ if ((t59075.tag)==(t59076.tag)) {switch (t59075.tag) {case FIXNUM_TYPE: t59074 = ((t59075.value.fixnum_type)==(t59076.value.fixnum_type))?TRUE_TYPE:FALSE_TYPE; break; case FLONUM_TYPE: t59074 = ((t59075.value.flonum_type)==(t59076.value.flonum_type))?TRUE_TYPE:FALSE_TYPE; break; case INPUT_PORT_TYPE: t59074 = ((t59075.value.input_port_type)==(t59076.value.input_port_type))?TRUE_TYPE:FALSE_TYPE; break; case OUTPUT_PORT_TYPE: t59074 = ((t59075.value.output_port_type)==(t59076.value.output_port_type))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE15963: t59074 = ((t59075.value.native_procedure_type15963)==(t59076.value.native_procedure_type15963))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19067: t59074 = ((t59075.value.native_procedure_type19067)==(t59076.value.native_procedure_type19067))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19068: t59074 = ((t59075.value.native_procedure_type19068)==(t59076.value.native_procedure_type19068))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE22459: t59074 = ((t59075.value.native_procedure_type22459)==(t59076.value.native_procedure_type22459))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24753: t59074 = ((t59075.value.structure_type24753)==(t59076.value.structure_type24753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24757: t59074 = ((t59075.value.structure_type24757)==(t59076.value.structure_type24757))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27501: t59074 = ((t59075.value.structure_type27501)==(t59076.value.structure_type27501))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27510: t59074 = ((t59075.value.structure_type27510)==(t59076.value.structure_type27510))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27621: t59074 = ((t59075.value.structure_type27621)==(t59076.value.structure_type27621))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27650: t59074 = ((t59075.value.structure_type27650)==(t59076.value.structure_type27650))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27669: t59074 = ((t59075.value.structure_type27669)==(t59076.value.structure_type27669))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27673: t59074 = ((t59075.value.structure_type27673)==(t59076.value.structure_type27673))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27692: t59074 = ((t59075.value.structure_type27692)==(t59076.value.structure_type27692))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27694: t59074 = ((t59075.value.structure_type27694)==(t59076.value.structure_type27694))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27698: t59074 = ((t59075.value.structure_type27698)==(t59076.value.structure_type27698))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27745: t59074 = ((t59075.value.structure_type27745)==(t59076.value.structure_type27745))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27747: t59074 = ((t59075.value.structure_type27747)==(t59076.value.structure_type27747))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27750: t59074 = ((t59075.value.structure_type27750)==(t59076.value.structure_type27750))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27753: t59074 = ((t59075.value.structure_type27753)==(t59076.value.structure_type27753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27756: t59074 = ((t59075.value.structure_type27756)==(t59076.value.structure_type27756))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27761: t59074 = ((t59075.value.structure_type27761)==(t59076.value.structure_type27761))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27769: t59074 = ((t59075.value.structure_type27769)==(t59076.value.structure_type27769))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27776: t59074 = ((t59075.value.structure_type27776)==(t59076.value.structure_type27776))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27779: t59074 = ((t59075.value.structure_type27779)==(t59076.value.structure_type27779))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27858: t59074 = ((t59075.value.structure_type27858)==(t59076.value.structure_type27858))?TRUE_TYPE:FALSE_TYPE; break; case STRING_TYPE: t59074 = ((t59075.value.string_type)==(t59076.value.string_type))?TRUE_TYPE:FALSE_TYPE; break; case HEADED_VECTOR_TYPE27896: t59074 = ((t59075.value.headed_vector_type27896)==(t59076.value.headed_vector_type27896))?TRUE_TYPE:FALSE_TYPE; break; case EXTERNAL_SYMBOL_TYPE: t59074 = ((t59075.value.external_symbol_type)==(t59076.value.external_symbol_type))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27908: t59074 = ((t59075.value.structure_type27908)==(t59076.value.structure_type27908))?TRUE_TYPE:FALSE_TYPE; break; default: t59074 = TRUE_TYPE;}} else t59074 = FALSE_TYPE; /* x113867 stalin.sc:12762:446806 */ t59070 = f12719(t59073, t59074); /* x113865 stalin.sc:12762:446775 */ a20579 = t59069; a20580 = t59070; /* x55541 */ /* x55539 */ t59071 = a20579; /* x55540 */ t59072 = a20580; /* x55538 */ if ((t59071.tag)==STRUCTURE_TYPE27694) {t59071.value.structure_type27694->s5 = t59072; return;} backtrace_internal("SET-ENVIRONMENT-ALLOCATION![6672]"); structure_set_error(); l9081: /* x113899 stalin.sc:12754:446388 */ /* x113898 stalin.sc:12754:446388 */ return;} /* CHOOSE-ALLOCATION[12719] */ struct w3467 f12719(struct w3467 a24763, unsigned a24764) {struct w3467 r12719; struct w49 a22103; /* E */ struct w49 a24767; /* E */ struct w49 a36467; /* S */ struct w49 a36468; /* S */ struct w49 a36469; /* S */ struct w49 a40082; /* S */ struct w49 a40084; /* S */ struct w49 a40085; /* S */ struct w49 t59084; struct w3467 t59085; struct w49 t59086; struct w49 t59087; struct w3467 t59088; struct w49 t59089; struct w3467 t59090; struct w49 t59091; struct w3467 t59092; struct w49 t59093; struct w49 t59094; struct w49 t59095; struct w49 t59096; struct w49 t59097; struct w49 t59098; struct w49 t59099; struct w49 t59100; struct w3467 t59101; struct w49 t59102; struct w3467 t59103; struct w49 t59104; struct w3467 t59105; struct w49 t59106; struct w49 t59107; struct w49 t59108; struct w49 t59109; struct w49 t59110; struct w49 t59111; struct w49 t59112; struct w49 t59113; struct w49 t59114; struct w49 t59115; struct w49 t59116; struct w49 t59117; struct w49 t59118; struct w49 t59119; struct w49 t59120; struct w3467 t59121; struct w49 t59122; /* x113851 stalin.sc:12604:440807 */ /* x113773 stalin.sc:12605:440816 */ /* x113735 stalin.sc:12605:440821 */ if (a694==FALSE_TYPE) goto l9084; /* x113771 */ /* x113736 stalin.sc:12606:440842 */ if (a24764==FALSE_TYPE) goto l9084; /* x113769 */ /* x113743 stalin.sc:12608:440887 */ /* x113742 stalin.sc:12608:440892 */ /* x113741 stalin.sc:12608:440933 */ /* x113740 stalin.sc:12608:440939 */ t59085 = a24763; /* x113739 stalin.sc:12608:440934 */ t59086 = *((struct w49 *)(&t59085)); t59084 = f8692(t59086); /* x113738 stalin.sc:12608:440893 */ if (!(f8481(t59084)==FALSE_TYPE)) goto l9084; /* x113767 */ /* x113748 stalin.sc:12616:441399 */ /* x113747 stalin.sc:12616:441423 */ /* x113746 stalin.sc:12616:441429 */ t59088 = a24763; /* x113745 stalin.sc:12616:441424 */ t59089 = *((struct w49 *)(&t59088)); t59087 = f8692(t59089); /* x113744 stalin.sc:12616:441400 */ if (f8548(t59087)==FALSE_TYPE) goto l9084; /* x113765 */ /* x113764 stalin.sc:12623:441815 */ /* x113752 stalin.sc:12623:441820 */ /* x113751 stalin.sc:12623:441839 */ t59090 = a24763; /* x113750 stalin.sc:12623:441821 */ t59091 = *((struct w49 *)(&t59090)); if (f8585(t59091)==FALSE_TYPE) goto l9083; /* x113762 */ /* x113755 stalin.sc:12624:441846 */ /* x113754 stalin.sc:12624:441870 */ t59092 = a24763; /* x113753 stalin.sc:12624:441847 */ a22103 = *((struct w49 *)(&t59092)); h8582: /* x73380 stalin.sc:4201:140982 */ /* x73379 stalin.sc:4201:140986 */ /* x73378 stalin.sc:4201:140998 */ t59093 = a22103; /* x73377 stalin.sc:4201:140987 */ if (!(f8538(t59093)==FALSE_TYPE)) goto l9090; /* x73374 */ /* x73363 stalin.sc:4202:141011 */ /* x73362 stalin.sc:4202:141030 */ t59094 = a22103; /* x73361 stalin.sc:4202:141012 */ if (f8585(t59094)==FALSE_TYPE) goto l9083; /* x73372 */ /* x73371 stalin.sc:4204:141064 */ /* x73370 stalin.sc:4205:141093 */ /* x73369 stalin.sc:4205:141115 */ /* x73368 stalin.sc:4205:141133 */ t59100 = a22103; /* x73367 stalin.sc:4205:141116 */ t59098 = f8659(t59100); /* x73366 stalin.sc:4205:141094 */ a36467 = t59098; /* x278537 */ /* x278536 */ t59099 = a36467; /* x278535 */ if (!((t59099.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31384]"); structure_ref_error();} t59096 = t59099.value.structure_type27745->s0; /* x73365 stalin.sc:4204:141065 */ a40082 = t59096; /* x292997 */ /* x292996 */ t59097 = a40082; /* x292995 */ if (!((t59097.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34999]"); structure_ref_error();} t59095 = t59097.value.structure_type27698->s9; /* x73364 stalin.sc:4203:141037 */ a22103 = t59095; goto h8582; l9090: /* x113760 */ /* x113759 stalin.sc:12625:441882 */ /* x113758 stalin.sc:12625:441894 */ t59101 = a24763; /* x113757 stalin.sc:12625:441883 */ t59102 = *((struct w49 *)(&t59101)); if (f8538(t59102)==FALSE_TYPE) goto l9084; l9083: /* x113776 */ /* x113775 */ /* x113774 stalin.sc:12626:441904 */ r12719.tag = EXTERNAL_SYMBOL_TYPE; r12719.value.external_symbol_type = q186; return r12719; l9084: /* x113850 */ /* x113830 stalin.sc:12627:441915 */ /* x113777 stalin.sc:12627:441920 */ if (a692==FALSE_TYPE) goto l9094; /* x113828 */ /* x113823 stalin.sc:12629:441993 */ /* x113822 stalin.sc:12629:441998 */ /* x113781 stalin.sc:12629:442003 */ /* x113780 stalin.sc:12629:442015 */ t59103 = a24763; /* x113779 stalin.sc:12629:442004 */ t59104 = *((struct w49 *)(&t59103)); if (f8543(t59104)==FALSE_TYPE) goto l9096; /* x113820 */ /* x113819 stalin.sc:12630:442036 */ t59105 = a24763; /* x113818 */ /* x113817 */ /* x113816 */ /* x113815 */ /* x113814 */ /* x113813 */ /* x113812 */ /* x113783 */ /* x113782 stalin.sc:12630:442027 */ a24767 = *((struct w49 *)(&t59105)); h12723: /* x113811 stalin.sc:12631:442045 */ /* x113786 stalin.sc:12631:442049 */ /* x113785 stalin.sc:12631:442068 */ t59106 = a24767; /* x113784 stalin.sc:12631:442050 */ if (f8585(t59106)==FALSE_TYPE) goto l9099; /* x113807 stalin.sc:12632:442080 */ /* x113796 stalin.sc:12632:442085 */ /* x113794 stalin.sc:12633:442115 */ /* x113793 stalin.sc:12634:442148 */ /* x113792 stalin.sc:12634:442170 */ /* x113791 stalin.sc:12634:442188 */ t59114 = a24767; /* x113790 stalin.sc:12634:442171 */ t59112 = f8659(t59114); /* x113789 stalin.sc:12634:442149 */ a36469 = t59112; /* x278545 */ /* x278544 */ t59113 = a36469; /* x278543 */ if (!((t59113.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31386]"); structure_ref_error();} t59110 = t59113.value.structure_type27745->s0; /* x113788 stalin.sc:12633:442116 */ a40085 = t59110; /* x293009 */ /* x293008 */ t59111 = a40085; /* x293007 */ if (!((t59111.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35002]"); structure_ref_error();} t59108 = t59111.value.structure_type27698->s9; /* x113795 stalin.sc:12635:442201 */ t59109 = a24767; /* x113787 stalin.sc:12632:442086 */ if ((f11630(t59108, t59109).tag)==FALSE_TYPE) goto l9096; /* x113805 */ /* x113804 stalin.sc:12637:442225 */ /* x113803 stalin.sc:12638:442258 */ /* x113802 stalin.sc:12638:442280 */ /* x113801 stalin.sc:12638:442298 */ t59120 = a24767; /* x113800 stalin.sc:12638:442281 */ t59118 = f8659(t59120); /* x113799 stalin.sc:12638:442259 */ a36468 = t59118; /* x278541 */ /* x278540 */ t59119 = a36468; /* x278539 */ if (!((t59119.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31385]"); structure_ref_error();} t59116 = t59119.value.structure_type27745->s0; /* x113798 stalin.sc:12637:442226 */ a40084 = t59116; /* x293005 */ /* x293004 */ t59117 = a40084; /* x293003 */ if (!((t59117.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35001]"); structure_ref_error();} t59115 = t59117.value.structure_type27698->s9; /* x113797 stalin.sc:12636:442212 */ a24767 = t59115; goto h12723; goto l9100; l9099: /* x113810 stalin.sc:12639:442314 */ /* x113809 stalin.sc:12639:442355 */ t59107 = a24767; /* x113808 stalin.sc:12639:442315 */ if (!(f8481(t59107)==FALSE_TYPE)) goto l9094; l9100: l9096: /* x113826 */ /* x113825 stalin.sc:12646:442773 */ t59121 = a24763; /* x113824 stalin.sc:12646:442750 */ t59122 = *((struct w49 *)(&t59121)); if (f8548(t59122)==FALSE_TYPE) goto l9094; /* x113833 */ /* x113832 */ /* x113831 stalin.sc:12647:442780 */ return a24763; l9094: /* x113849 */ /* x113834 stalin.sc:12648:442786 */ if (a693==FALSE_TYPE) goto l9103; /* x113837 */ /* x113836 */ /* x113835 stalin.sc:12648:442805 */ r12719.tag = EXTERNAL_SYMBOL_TYPE; r12719.value.external_symbol_type = q187; return r12719; l9103: /* x113848 */ /* x113841 stalin.sc:12649:442815 */ /* x113838 stalin.sc:12649:442820 */ if (a694==FALSE_TYPE) goto l9105; /* x113839 */ if (a24764==FALSE_TYPE) goto l9105; /* x113844 */ /* x113843 */ /* x113842 stalin.sc:12649:442844 */ r12719.tag = EXTERNAL_SYMBOL_TYPE; r12719.value.external_symbol_type = q186; return r12719; l9105: /* x113847 */ /* x113846 */ /* x113845 stalin.sc:12650:442860 */ return a24763;} /* MINIMAL[12708] */ struct w3467 f12708(struct w172645 a24756, struct headed_vector_type27624 *a24757) {int a24760; /* I */ struct w49 a24761; /* E */ int t59123; struct w49 t59124; int t59125; int t59126; int t59127; struct w172645 t59128; struct structure_type24753 *t59129; struct w228118 t59130; struct w227393 t59131; struct headed_vector_type27624 *t59132; int t59133; char *t59134; struct w172645 t59135; struct structure_type24753 *t59136; struct w227506 t59137; struct w49 t59138; struct headed_vector_type27624 *t59139; int t59140; int t59141; int t59142; struct headed_vector_type27624 *t59143; /* x113732 stalin.sc:12594:440462 */ /* x113731 stalin.sc:12594:440476 */ /* x113729 stalin.sc:12594:440479 */ /* x113728 stalin.sc:12594:440494 */ t59143 = a24757; /* x269366 stalin.sc:12594:440480 */ t59141 = t59143->length; /* x113730 stalin.sc:12594:440534 */ t59142 = 1; /* x269367 stalin.sc:12594:440477 */ t59123 = t59141-t59142; /* x113725 */ /* x113724 */ /* x113723 */ /* x113722 */ /* x113721 */ /* x113720 */ /* x113719 */ /* x113680 */ /* x113679 stalin.sc:12594:440467 */ a24760 = t59123; h12711: /* x113718 stalin.sc:12596:440561 */ /* x113717 stalin.sc:12596:440570 */ /* x113712 stalin.sc:12596:440579 */ t59135 = a24756; /* x113716 stalin.sc:12596:440581 */ /* x113714 stalin.sc:12596:440593 */ t59139 = a24757; /* x113715 stalin.sc:12596:440632 */ t59140 = a24760; /* x269368 stalin.sc:12596:440582 */ if ((t59140<0)||(t59140>=(t59139->length))) {backtrace("stalin.sc", 12596, 440581); vector_ref3_error();} t59136 = (t59139->element)[t59140]; /* x113711 stalin.sc:12596:440571 */ t59137 = *((struct w227506 *)(&t59135)); /* MOVE: branching squeezed to general */ if (t59136>=((struct structure_type24753 *)VALUE_OFFSET)) {t59138.tag = STRUCTURE_TYPE24753; t59138.value.structure_type24753 = t59136;} else t59138.tag = (unsigned)t59136; t59124 = f1314(t59137, t59138); /* x113710 */ a24761 = t59124; /* x113709 stalin.sc:12597:440641 */ /* x113681 stalin.sc:12597:440648 */ if ((a24761.tag)==FALSE_TYPE) goto l9108; /* x113700 */ /* x113699 */ /* x113698 */ /* x113697 stalin.sc:12598:440653 */ /* x113690 stalin.sc:12598:440661 */ /* x113689 stalin.sc:12598:440668 */ /* x113687 stalin.sc:12598:440680 */ t59132 = a24757; /* x113688 stalin.sc:12598:440719 */ t59133 = a24760; /* x269370 stalin.sc:12598:440669 */ if ((t59133<0)||(t59133>=(t59132->length))) {backtrace("stalin.sc", 12598, 440668); vector_ref3_error();} t59129 = (t59132->element)[t59133]; /* x113685 stalin.sc:12598:440666 */ t59128 = a24756; /* x113684 stalin.sc:12598:440662 */ t59130 = *((struct w228118 *)(&t59128)); /* MOVE: branching squeezed to general */ if (t59129>=((struct structure_type24753 *)VALUE_OFFSET)) {t59131.tag = STRUCTURE_TYPE24753; t59131.value.structure_type24753 = t59129;} else t59131.tag = (unsigned)t59129; if (f1080(t59130, t59131)==FALSE_TYPE) goto l9110; /* x113692 */ /* x113691 */ goto l9111; l9110: /* x113696 */ /* x113695 */ /* x113694 stalin.sc:12599:440727 */ /* x113693 stalin.sc:12599:440728 */ /* x296641 QobiScheme.sc:166:5314 */ /* x296640 QobiScheme.sc:166:5321 */ t59134 = "This shouldn\'t happen"; /* x296639 QobiScheme.sc:166:5315 */ stalin_panic(t59134); l9111: /* x113683 */ /* x113682 stalin.sc:12600:440741 */ return *((struct w3467 *)(&a24761)); l9108: /* x113708 */ /* x113707 */ /* x113706 stalin.sc:12601:440752 */ /* x113705 stalin.sc:12601:440758 */ /* x113703 stalin.sc:12601:440761 */ t59126 = a24760; /* x113704 stalin.sc:12601:440763 */ t59127 = 1; /* x269369 stalin.sc:12601:440759 */ t59125 = t59126-t59127; /* x113701 stalin.sc:12601:440753 */ a24760 = t59125; goto h12711;} /* SAFE-TYPE-ALLOCATION-ENVIRONMENT?[12705] */ unsigned f12705(struct w49 a24750, struct w49 a24751, struct w49 a24752) {struct w49 t59144; struct w49 t59145; struct w49 t59146; struct w49 t59147; struct w49 t59148; struct w49 t59149; struct w49 t59150; struct w49 t59151; /* x113626 stalin.sc:12575:439500 */ /* x113626 stalin.sc:12575:439500 */ /* x113593 stalin.sc:12575:439505 */ /* x113592 stalin.sc:12575:439527 */ t59144 = a24750; /* x113591 stalin.sc:12575:439506 */ if (f8476(t59144)==FALSE_TYPE) goto l9113; /* x113624 */ /* x113598 stalin.sc:12576:439571 */ /* x113597 stalin.sc:12576:439576 */ /* x113596 stalin.sc:12576:439606 */ t59145 = a24750; /* x113595 stalin.sc:12576:439577 */ if (!(f8553(t59145)==FALSE_TYPE)) goto l9113; /* x113622 */ /* x113608 stalin.sc:12577:439616 */ /* x113607 stalin.sc:12577:439621 */ /* x113602 stalin.sc:12577:439626 */ /* x113601 stalin.sc:12577:439638 */ t59146 = a24750; /* x113600 stalin.sc:12577:439627 */ if (f8543(t59146)==FALSE_TYPE) goto l9117; /* x113605 */ /* x113604 stalin.sc:12577:439674 */ t59147 = a24750; /* x113603 stalin.sc:12577:439642 */ if (!(f8558(t59147)==FALSE_TYPE)) goto l9113; l9117: /* x113620 */ /* x113612 stalin.sc:12578:439685 */ /* x113610 stalin.sc:12578:439743 */ t59148 = a24750; /* x113611 stalin.sc:12578:439745 */ t59149 = a24752; /* x113609 stalin.sc:12578:439686 */ if ((f12698(t59148, t59149).tag)==FALSE_TYPE) goto l9113; /* x113618 */ /* x113617 stalin.sc:12579:439759 */ /* x113615 stalin.sc:12579:439769 */ t59150 = a24751; /* x113616 stalin.sc:12579:439771 */ t59151 = a24750; /* x113614 stalin.sc:12579:439760 */ if (!(f8086(t59150, t59151)==FALSE_TYPE)) goto l9113; return TRUE_TYPE; l9113: return FALSE_TYPE;} /* ENVIRONMENT-NECESSARILY-ON-PATH-FROM-ROOT-TO-EXPRESSION?[12698] */ struct w16638 f12698(struct w49 a24744, struct w49 a24745) {struct w49 a20738; /* S */ struct w49 a40083; /* S */ struct w49 t59152; struct w60864 t59153; struct w49 t59154; struct w49 t59155; struct w49 t59156; struct w49 t59157; struct w49 t59158; struct w49 t59159; struct w49 t59160; struct w49 t59161; struct w49 t59162; struct w49 t59163; char *t59164; /* x113588 */ /* x113587 stalin.sc:12567:439210 */ /* x113580 stalin.sc:12567:439216 */ /* x113579 stalin.sc:12567:439220 */ /* x113578 stalin.sc:12567:439228 */ t59159 = a24744; /* x113577 stalin.sc:12567:439221 */ if (!(f8581(t59159)==FALSE_TYPE)) goto l9120; /* x113574 */ /* x113573 stalin.sc:12568:439235 */ /* x113572 stalin.sc:12568:439240 */ /* x113571 stalin.sc:12568:439259 */ t59160 = a24744; /* x113570 stalin.sc:12568:439241 */ if (f8526(t59160)==FALSE_TYPE) goto l9120; /* x113566 */ /* x113565 stalin.sc:12569:439267 */ /* x113564 stalin.sc:12569:439297 */ t59161 = a24744; /* x113563 stalin.sc:12569:439268 */ if (!(f8553(t59161)==FALSE_TYPE)) goto l9120; /* x113560 */ /* x113555 stalin.sc:12570:439309 */ /* x113554 stalin.sc:12570:439321 */ t59162 = a24744; /* x113553 stalin.sc:12570:439310 */ if (f8543(t59162)==FALSE_TYPE) goto l9121; /* x113558 */ /* x113557 stalin.sc:12570:439357 */ t59163 = a24744; /* x113556 stalin.sc:12570:439325 */ if (f8558(t59163)==FALSE_TYPE) goto l9121; l9120: /* x113584 */ /* x113583 */ /* x113582 stalin.sc:12571:439364 */ /* x113581 stalin.sc:12571:439365 */ /* x296449 QobiScheme.sc:166:5314 */ /* x296448 QobiScheme.sc:166:5321 */ t59164 = "This shouldn\'t happen"; /* x296447 QobiScheme.sc:166:5315 */ stalin_panic(t59164); goto l9122; l9121: /* x113586 stalin.sc:12567:439210 */ /* x113585 stalin.sc:12567:439210 */ l9122: /* x113546 */ /* x113545 stalin.sc:12572:439376 */ /* x113541 stalin.sc:12572:439382 */ /* x113540 stalin.sc:12572:439406 */ t59155 = a24745; /* x113539 stalin.sc:12572:439383 */ a40083 = t59155; /* x293001 */ /* x293000 */ t59156 = a40083; /* x292999 */ if (!((t59156.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35000]"); structure_ref_error();} t59152 = t59156.value.structure_type27698->s9; /* x113544 stalin.sc:12572:439409 */ /* x113543 stalin.sc:12572:439443 */ t59157 = a24744; /* x113542 stalin.sc:12572:439410 */ a20738 = t59157; /* x56159 */ /* x56158 */ t59158 = a20738; /* x56157 */ if (!((t59158.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("ENVIRONMENT-BLOCKED-ENVIRONMENTS[6799]"); structure_ref_error();} t59153 = t59158.value.structure_type27694->s21; /* x113538 stalin.sc:12572:439377 */ t59154 = *((struct w49 *)(&t59153)); return f26351(t59152, t59154);} /* [inside DETERMINE-WHICH-ENVIRONMENTS-NEED-TO-PASS-PARAMETERS-GLOBALLY! 12697] */ void f12697(struct w49 a24743) {struct w49 t59165; unsigned t59166; /* x113531 stalin.sc:12555:438765 */ /* x113529 stalin.sc:12555:438811 */ t59165 = a24743; /* x113530 stalin.sc:12555:438813 */ /* x113528 stalin.sc:12555:438766 */ t59166 = FALSE_TYPE; f8482(t59165, t59166); return;} /* [inside DETERMINE-WHICH-ENVIRONMENTS-NEED-TO-PASS-PARAMETERS-GLOBALLY! 12695] */ void f12695(struct w49 a24742) {struct w49 t59167; unsigned t59168; /* x113509 stalin.sc:12560:438914 */ /* x113507 stalin.sc:12560:438960 */ t59167 = a24742; /* x113508 stalin.sc:12560:438962 */ /* x113506 stalin.sc:12560:438915 */ t59168 = TRUE_TYPE; f8482(t59167, t59168); return;} /* [inside DETERMINE-WHICH-ENVIRONMENTS-NEED-TO-PASS-PARAMETERS-GLOBALLY! 12694] */ void f12694(struct w49 a24741) {struct w12224 t59169; struct w36108 t59170; struct w49 t59171; struct structure_type24753 *t59172; struct w49 t59173; /* x113514 stalin.sc:12560:438892 */ /* x113513 stalin.sc:12561:438974 */ /* x113512 stalin.sc:12561:439030 */ t59173 = a24741; /* x113511 stalin.sc:12561:438975 */ t59169 = f8776(t59173); /* x113510 stalin.sc:12560:438902 */ /* x113505 stalin.sc:12560:438893 */ t59170.tag = NATIVE_PROCEDURE_TYPE15605; t59171 = *((struct w49 *)(&t59169)); t59172 = (struct structure_type24753 *)NULL_TYPE; f27755(t59170, t59171, t59172); return;} /* LOOP[12684] */ void f12684(struct w49 a24736) {struct w49 a36553; /* S */ struct w49 a36563; /* S */ struct w49 t59174; struct w3457 t59175; struct w36108 t59176; struct w49 t59177; struct structure_type24753 *t59178; struct w49 t59179; struct w49 t59180; struct w49 t59181; struct w16638 t59182; struct w3457 t59183; struct w36108 t59184; struct w49 t59185; struct structure_type24753 *t59186; struct w49 t59187; struct w49 t59188; /* x113470 stalin.sc:12544:438294 */ /* x113447 stalin.sc:12544:438302 */ /* x113446 stalin.sc:12544:438324 */ t59174 = a24736; /* x113445 stalin.sc:12544:438303 */ if (f8471(t59174)==FALSE_TYPE) goto l9128; /* x113449 */ /* x113448 */ return; l9128: /* x113469 */ /* x113468 */ /* x113467 */ /* x113460 stalin.sc:12545:438334 */ /* x113458 stalin.sc:12545:438361 */ t59181 = a24736; /* x113459 stalin.sc:12545:438364 */ /* x113457 stalin.sc:12545:438335 */ t59182.tag = TRUE_TYPE; f8472(t59181, t59182); /* x113466 stalin.sc:12546:438374 */ /* x113465 stalin.sc:12546:438389 */ /* x113464 stalin.sc:12546:438422 */ t59187 = a24736; /* x113463 stalin.sc:12546:438390 */ a36563 = t59187; /* x278921 */ /* x278920 */ t59188 = a36563; /* x278919 */ if (!((t59188.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLEES[6783] 31480]"); structure_ref_error();} t59183 = t59188.value.structure_type27694->s19; /* x113462 stalin.sc:12546:438384 */ /* x113461 stalin.sc:12546:438375 */ t59184.tag = NATIVE_PROCEDURE_TYPE18918; t59185 = *((struct w49 *)(&t59183)); t59186 = (struct structure_type24753 *)NULL_TYPE; f27755(t59184, t59185, t59186); /* x113456 */ /* x113455 stalin.sc:12547:438433 */ /* x113454 stalin.sc:12547:438448 */ /* x113453 stalin.sc:12547:438485 */ t59179 = a24736; /* x113452 stalin.sc:12547:438449 */ a36553 = t59179; /* x278881 */ /* x278880 */ t59180 = a36553; /* x278879 */ if (!((t59180.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-NON-TAIL-CALLEES[6791] 31470]"); structure_ref_error();} t59175 = t59180.value.structure_type27694->s20; /* x113451 stalin.sc:12547:438443 */ /* x113450 stalin.sc:12547:438434 */ t59176.tag = NATIVE_PROCEDURE_TYPE18918; t59177 = *((struct w49 *)(&t59175)); t59178 = (struct structure_type24753 *)NULL_TYPE; f27755(t59176, t59177, t59178); return;} /* [inside DETERMINE-BLOCKED-ENVIRONMENTS! 12681] */ void f12681(struct w49 a24733) {struct w49 t59189; struct w16638 t59190; /* x113435 stalin.sc:12541:438143 */ /* x113433 stalin.sc:12541:438170 */ t59189 = a24733; /* x113434 stalin.sc:12541:438172 */ /* x113432 stalin.sc:12541:438144 */ t59190.tag = FALSE_TYPE; f8472(t59189, t59190); return;} /* [inside DETERMINE-BLOCKED-ENVIRONMENTS! 12677] */ void f12677(struct w49 a24728) {struct w49 a20739; /* S */ struct structure_type24753 *a20740; /* X */ struct w49 t59192; struct w49 t59193; struct w49 t59194; struct w49 t59195; struct w49 t59196; struct structure_type24753 *t59197; struct w49 t59198; struct structure_type24753 *t59199; struct w49 t59200; struct w12224 t59201; struct w21193 t59202; unsigned t59203; struct w49 t59204; struct w21193 t59205; struct w36108 t59206; struct w49 t59207; struct structure_type24753 *t59208; struct w49 t59209; struct w16638 t59210; struct w49 t59211; struct w21193 t59212; struct w227506 t59213; struct w49 t59214; /* x113497 */ /* x113496 stalin.sc:12537:437925 */ /* x113495 stalin.sc:12537:437926 */ f4651(); /* x113494 */ /* x113493 stalin.sc:12538:437967 */ /* x113419 stalin.sc:12538:437973 */ /* x113400 stalin.sc:12538:437978 */ /* x113399 stalin.sc:12538:437997 */ t59192 = a24728; /* x113398 stalin.sc:12538:437979 */ if (f8526(t59192)==FALSE_TYPE) goto l9130; /* x113417 */ /* x113405 stalin.sc:12539:438007 */ /* x113404 stalin.sc:12539:438012 */ /* x113403 stalin.sc:12539:438042 */ t59193 = a24728; /* x113402 stalin.sc:12539:438013 */ if (!(f8553(t59193)==FALSE_TYPE)) goto l9130; /* x113415 */ /* x113414 stalin.sc:12540:438058 */ /* x113409 stalin.sc:12540:438063 */ /* x113408 stalin.sc:12540:438075 */ t59194 = a24728; /* x113407 stalin.sc:12540:438064 */ if (f8543(t59194)==FALSE_TYPE) goto l9129; /* x113412 */ /* x113411 stalin.sc:12540:438111 */ t59195 = a24728; /* x113410 stalin.sc:12540:438079 */ if (!(f8558(t59195)==FALSE_TYPE)) goto l9130; l9129: /* x113490 */ /* x113489 */ /* x113488 */ /* x113438 stalin.sc:12541:438121 */ /* x113437 stalin.sc:12541:438177 */ t59205 = a1594; /* x113436 stalin.sc:12541:438131 */ /* x113431 stalin.sc:12541:438122 */ t59206.tag = NATIVE_PROCEDURE_TYPE18920; t59207 = *((struct w49 *)(&t59205)); t59208 = (struct structure_type24753 *)NULL_TYPE; f27755(t59206, t59207, t59208); /* x113442 stalin.sc:12542:438187 */ /* x113440 stalin.sc:12542:438214 */ t59209 = a24728; /* x113441 stalin.sc:12542:438216 */ /* x113439 stalin.sc:12542:438188 */ t59210.tag = TRUE_TYPE; f8472(t59209, t59210); /* x113487 stalin.sc:12543:438224 */ /* x113486 stalin.sc:12543:438239 */ /* x113484 stalin.sc:12543:438248 */ /* x113485 stalin.sc:12543:438281 */ t59212 = a1594; /* x113478 stalin.sc:12543:438240 */ t59213.tag = NATIVE_PROCEDURE_TYPE18915; t59214 = *((struct w49 *)(&t59212)); t59211 = f1314(t59213, t59214); /* x113477 */ /* x113476 */ /* x113475 */ /* x113474 */ /* x113473 */ /* x113472 */ /* x113471 */ /* x113444 */ /* x113443 stalin.sc:12543:438229 */ f12684(t59211); /* x113430 */ /* x113429 stalin.sc:12548:438496 */ /* x113421 stalin.sc:12549:438540 */ t59196 = a24728; /* x113428 stalin.sc:12549:438542 */ /* x113423 stalin.sc:12549:438548 */ t59200 = a24728; /* x113427 stalin.sc:12549:438550 */ /* x113425 stalin.sc:12549:438561 */ /* x113426 stalin.sc:12549:438582 */ t59202 = a1594; /* x113424 stalin.sc:12549:438551 */ t59203 = NATIVE_PROCEDURE_TYPE7309; t59204 = *((struct w49 *)(&t59202)); t59201 = f1218(t59203, t59204); /* x269378 stalin.sc:12549:438543 */ t59197 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t59197==NULL) {backtrace("stalin.sc", 12549, 438542); out_of_memory_error();} t59197->s0 = t59200; t59197->s1 = *((struct w49 *)(&t59201)); /* x113420 stalin.sc:12548:438497 */ a20739 = t59196; a20740 = t59197; /* x56165 */ /* x56163 */ t59198 = a20739; /* x56164 */ t59199 = a20740; /* x56162 */ if ((t59198.tag)==STRUCTURE_TYPE27694) {t59198.value.structure_type27694->s21.tag = STRUCTURE_TYPE24753; t59198.value.structure_type27694->s21.value.structure_type24753 = t59199; return;} backtrace_internal("SET-ENVIRONMENT-BLOCKED-ENVIRONMENTS![6800]"); structure_set_error(); l9130: /* x113492 stalin.sc:12538:437967 */ /* x113491 stalin.sc:12538:437967 */ return;} /* [inside DETERMINE-WHICH-ENVIRONMENTS-HAVE-EXTERNAL-CONTINUATION-CALLS! 12668] */ void f12668(struct w49 a24719) {struct w49 a22064; /* E */ struct w16638 a22065; /* P? */ int a34824; /* N */ struct w49 a36511; /* S */ struct w49 a36512; /* S */ struct p12668 *t59215; struct w49 t59218; struct w16638 t59219; struct w49 t59220; int t59221; int t59222; int t59223; struct structure_type24753 *t59224; struct w49 t59225; struct w49 t59226; struct w49 t59227; int t59228; int t59229; int t59230; int t59231; struct structure_type24753 *t59232; struct w49 t59233; struct w49 t59234; struct w49 t59235; struct w16638 t59236; char *t59237; struct p12668 *t59238; struct w12224 t59239; struct w228345 t59240; struct w49 t59241; struct structure_type24753 *t59242; struct w49 t59243; struct w49 t59244; struct p11619 *t59245; unsigned t59246; unsigned t59247; struct p12668 *e12668; struct p12668 *p12669; e12668 = (struct p12668 *)alloca(sizeof(struct p12668)); if (e12668==NULL) {backtrace_internal("DETERMINE-WHICH-ENVIRONMENTS-HAVE-EXTERNAL-CONTINUATION-CALLS![12667]"); out_of_memory_error();} e12668->a24719 = a24719; /* x113391 */ /* x113383 stalin.sc:12495:436729 */ /* x113382 stalin.sc:12495:436730 */ f4651(); /* x113390 stalin.sc:12497:436838 */ /* x113386 stalin.sc:12498:436862 */ /* x113387 stalin.sc:12498:436878 */ /* x113388 stalin.sc:12498:436899 */ /* x113389 stalin.sc:12498:436925 */ t59244 = e12668->a24719; /* x113384 stalin.sc:12497:436839 */ t59245 = (struct p11619 *)NATIVE_PROCEDURE_TYPE15609; t59246 = NATIVE_PROCEDURE_TYPE7307; t59247 = NATIVE_PROCEDURE_TYPE7306; f11559(t59245, t59246, t59247, t59244); /* x113381 */ t59215 = e12668; p12669 = t59215; /* x113380 stalin.sc:12499:436931 */ /* x113295 stalin.sc:12500:436985 */ t59218 = p12669->a24719; /* x113379 stalin.sc:12501:436991 */ /* x113378 stalin.sc:12529:437787 */ /* x113377 stalin.sc:12529:437803 */ t59243 = p12669->a24719; /* x113376 stalin.sc:12529:437788 */ t59239 = f11632(t59243); /* x113375 stalin.sc:12502:437002 */ t59238 = p12669; /* x113296 stalin.sc:12501:436992 */ t59240.tag = NATIVE_PROCEDURE_TYPE18265; t59240.value.native_procedure_type18265 = t59238; t59241 = *((struct w49 *)(&t59239)); t59242 = (struct structure_type24753 *)NULL_TYPE; t59219 = f1042(t59240, t59241, t59242); /* x113294 stalin.sc:12499:436932 */ a22064 = t59218; a22065 = t59219; /* x73008 */ /* x73007 stalin.sc:4127:138652 */ /* x73000 stalin.sc:4127:138660 */ /* x72999 stalin.sc:4127:138670 */ t59236 = a22065; /* x270251 stalin.sc:4127:138661 */ switch (t59236.tag) {case TRUE_TYPE: case FALSE_TYPE: break; default: goto l9138;} /* x73002 */ /* x73001 */ goto l9139; l9138: /* x73006 */ /* x73005 */ /* x73004 stalin.sc:4127:138674 */ /* x73003 stalin.sc:4127:138675 */ /* x296637 QobiScheme.sc:166:5314 */ /* x296636 QobiScheme.sc:166:5321 */ t59237 = "This shouldn\'t happen"; /* x296635 QobiScheme.sc:166:5315 */ stalin_panic(t59237); l9139: /* x72997 */ while (region8518!=((struct region8518 *)(&initial_region8518))) {struct region8518 *region; region = region8518; region8518 = region8518->region; GC_free(region);} region_size8518 = REGION_SIZE8518; fp8518 = &((region8518->data)[0]); ALIGN(fp8518); /* x72996 stalin.sc:4128:138686 */ /* x72979 stalin.sc:4129:138715 */ t59220 = a22064; /* x72995 stalin.sc:4130:138719 */ /* x72980 stalin.sc:4130:138723 */ if ((a22065.tag)==FALSE_TYPE) goto l9135; /* x72986 stalin.sc:4131:138732 */ /* x72985 stalin.sc:4131:138765 */ t59231 = 2; /* x72984 stalin.sc:4131:138740 */ /* x72983 stalin.sc:4131:138762 */ t59234 = a22064; /* x72982 stalin.sc:4131:138741 */ a36511 = t59234; /* x278713 */ /* x278712 */ t59235 = a36511; /* x278711 */ if (!((t59235.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31428]"); structure_ref_error();} t59230 = t59235.value.structure_type27694->s26; /* x72981 stalin.sc:4131:138733 */ if ((fp8518+sizeof(struct structure_type24753))>(&((region8518->data)[region_size8518]))) {struct region8518 *region; unsigned region_size = REGION_SIZE8518; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8518 *)GC_malloc_uncollectable(sizeof(struct region8518)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4131, 138732); out_of_memory_error();} region->region = region8518; region_size8518 = region_size; region8518 = region; fp8518 = &((region->data)[0]); ALIGN(fp8518);} t59233.tag = STRUCTURE_TYPE24753; t59233.value.structure_type24753 = (struct structure_type24753 *)fp8518; fp8518 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t59233.value.structure_type24753->s0.tag = FIXNUM_TYPE; t59233.value.structure_type24753->s0.value.fixnum_type = t59231; t59233.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8518+sizeof(struct structure_type24753))>(&((region8518->data)[region_size8518]))) {struct region8518 *region; unsigned region_size = REGION_SIZE8518; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8518 *)GC_malloc_uncollectable(sizeof(struct region8518)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4131, 138732); out_of_memory_error();} region->region = region8518; region_size8518 = region_size; region8518 = region; fp8518 = &((region->data)[0]); ALIGN(fp8518);} t59232 = (struct structure_type24753 *)fp8518; fp8518 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t59232->s0.tag = FIXNUM_TYPE; t59232->s0.value.fixnum_type = t59230; t59232->s1 = t59233; t59221 = f27310(t59232); goto l9136; l9135: /* x72994 stalin.sc:4132:138774 */ /* x72993 stalin.sc:4132:138808 */ /* x72992 stalin.sc:4132:138817 */ t59228 = 2; /* x72991 stalin.sc:4132:138809 */ a34824 = t59228; /* x271581 */ /* x271580 */ t59229 = a34824; /* x271579 */ t59223 = ~t59229; /* x72990 stalin.sc:4132:138783 */ /* x72989 stalin.sc:4132:138805 */ t59226 = a22064; /* x72988 stalin.sc:4132:138784 */ a36512 = t59226; /* x278717 */ /* x278716 */ t59227 = a36512; /* x278715 */ if (!((t59227.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31429]"); structure_ref_error();} t59222 = t59227.value.structure_type27694->s26; /* x72987 stalin.sc:4132:138775 */ if ((fp8518+sizeof(struct structure_type24753))>(&((region8518->data)[region_size8518]))) {struct region8518 *region; unsigned region_size = REGION_SIZE8518; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8518 *)GC_malloc_uncollectable(sizeof(struct region8518)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4132, 138774); out_of_memory_error();} region->region = region8518; region_size8518 = region_size; region8518 = region; fp8518 = &((region->data)[0]); ALIGN(fp8518);} t59225.tag = STRUCTURE_TYPE24753; t59225.value.structure_type24753 = (struct structure_type24753 *)fp8518; fp8518 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t59225.value.structure_type24753->s0.tag = FIXNUM_TYPE; t59225.value.structure_type24753->s0.value.fixnum_type = t59223; t59225.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8518+sizeof(struct structure_type24753))>(&((region8518->data)[region_size8518]))) {struct region8518 *region; unsigned region_size = REGION_SIZE8518; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8518 *)GC_malloc_uncollectable(sizeof(struct region8518)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4132, 138774); out_of_memory_error();} region->region = region8518; region_size8518 = region_size; region8518 = region; fp8518 = &((region->data)[0]); ALIGN(fp8518);} t59224 = (struct structure_type24753 *)fp8518; fp8518 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t59224->s0.tag = FIXNUM_TYPE; t59224->s0.value.fixnum_type = t59222; t59224->s1 = t59225; t59221 = f27305(t59224); l9136: /* x72978 stalin.sc:4128:138687 */ f6840(t59220, t59221); return;} /* [inside DETERMINE-WHICH-ENVIRONMENTS-HAVE-EXTERNAL-SELF-TAIL-CALLS! 12665] */ void f12665(struct w49 a24717) {struct w49 t59248; struct w16638 t59249; struct p12665 *t59250; struct structure_type24753 *t59251; struct w228345 t59252; struct w49 t59253; struct structure_type24753 *t59254; struct w49 t59255; struct p12665 *e12665; e12665 = (struct p12665 *)alloca(sizeof(struct p12665)); if (e12665==NULL) {backtrace("stalin.sc", 12457, 435311); out_of_memory_error();} e12665->a24717 = a24717; /* x113286 stalin.sc:12458:435328 */ /* x113268 stalin.sc:12459:435361 */ t59248 = e12665->a24717; /* x113285 stalin.sc:12460:435369 */ /* x113284 stalin.sc:12463:435472 */ /* x113283 stalin.sc:12463:435484 */ t59255 = e12665->a24717; /* x113282 stalin.sc:12463:435473 */ t59251 = f8615(t59255); /* x113281 stalin.sc:12460:435375 */ t59250 = e12665; /* x113269 stalin.sc:12460:435370 */ t59252.tag = NATIVE_PROCEDURE_TYPE15621; t59252.value.native_procedure_type15621 = t59250; /* MOVE: branching squeezed to general */ if (t59251>=((struct structure_type24753 *)VALUE_OFFSET)) {t59253.tag = STRUCTURE_TYPE24753; t59253.value.structure_type24753 = t59251;} else t59253.tag = (unsigned)t59251; t59254 = (struct structure_type24753 *)NULL_TYPE; t59249 = f1042(t59252, t59253, t59254); /* x113267 stalin.sc:12458:435329 */ f8472(t59248, t59249); return;} /* [inside DETERMINE-WHICH-ENVIRONMENTS-HAVE-EXTERNAL-SELF-TAIL-CALLS! 12658] */ void f12658(struct w49 a24711) {struct w49 a22060; /* E */ struct w16638 a22061; /* P? */ struct w49 a24714; /* E1 */ struct w16638 a24715; /* v */ int a34821; /* N */ struct w49 a36466; /* S */ struct w49 a36472; /* S */ struct w49 a36501; /* S */ struct w49 a36506; /* S */ struct w49 a40081; /* S */ struct w49 a40088; /* S */ struct w49 t59256; struct w16638 t59257; struct w49 t59258; int t59259; int t59260; int t59261; struct structure_type24753 *t59262; struct w49 t59263; struct w49 t59264; struct w49 t59265; int t59266; int t59267; int t59268; int t59269; struct structure_type24753 *t59270; struct w49 t59271; struct w49 t59272; struct w49 t59273; struct w16638 t59274; char *t59275; struct w49 t59276; struct p12658 *t59277; struct w49 t59278; struct p12661 *t59279; struct w16638 t59280; struct w49 t59281; struct p12658 *t59282; struct w49 t59283; struct w49 t59284; struct w49 t59285; struct w49 t59286; struct w49 t59287; struct w49 t59288; struct w49 t59289; struct p12661 *t59290; struct structure_type24753 *t59291; struct w228345 t59292; struct w49 t59293; struct structure_type24753 *t59294; struct w49 t59295; struct p12658 *t59296; struct p12658 *t59297; struct w49 t59298; struct w49 t59299; struct w49 t59300; struct w49 t59301; struct w49 t59302; struct p12658 *e12658; struct p12661 *e12661; struct p12658 *p12659; struct p12658 *p12660; struct p12658 *p12661; struct p12661 *p12662; e12658 = (struct p12658 *)alloca(sizeof(struct p12658)); if (e12658==NULL) {backtrace("stalin.sc", 12466, 435513); out_of_memory_error();} e12658->a24711 = a24711; /* x113261 stalin.sc:12467:435528 */ /* x113189 stalin.sc:12468:435579 */ t59256 = e12658->a24711; /* x113260 stalin.sc:12469:435585 */ /* x113192 stalin.sc:12469:435590 */ /* x113191 stalin.sc:12469:435609 */ t59276 = e12658->a24711; /* x113190 stalin.sc:12469:435591 */ if (f8585(t59276)==FALSE_TYPE) goto l9147; /* x113258 */ /* x113257 stalin.sc:12470:435630 */ /* x113256 stalin.sc:12471:435659 */ /* x113255 stalin.sc:12471:435681 */ /* x113254 stalin.sc:12471:435699 */ t59302 = e12658->a24711; /* x113253 stalin.sc:12471:435682 */ t59300 = f8659(t59302); /* x113252 stalin.sc:12471:435660 */ a36472 = t59300; /* x278557 */ /* x278556 */ t59301 = a36472; /* x278555 */ if (!((t59301.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31389]"); structure_ref_error();} t59298 = t59301.value.structure_type27745->s0; /* x113251 stalin.sc:12470:435631 */ a40088 = t59298; /* x293021 */ /* x293020 */ t59299 = a40088; /* x293019 */ if (!((t59299.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35005]"); structure_ref_error();} t59278 = t59299.value.structure_type27698->s9; /* x113250 */ /* x113249 */ /* x113248 */ /* x113247 */ t59296 = e12658; p12659 = t59296; /* x113246 */ /* x113245 */ /* x113244 */ /* x113194 */ t59297 = p12659; p12660 = t59297; /* x113193 stalin.sc:12470:435619 */ t59277 = p12660; p12661 = t59277; a24714 = t59278; h12661: e12661 = (struct p12661 *)alloca(sizeof(struct p12661)); if (e12661==NULL) {backtrace_internal("[inside DETERMINE-WHICH-ENVIRONMENTS-HAVE-EXTERNAL-SELF-TAIL-CALLS! 12659]"); out_of_memory_error();} e12661->p12658 = p12661; e12661->a24714 = a24714; /* x113243 stalin.sc:12472:435709 */ /* x113242 stalin.sc:12472:435713 */ /* x113215 stalin.sc:12472:435718 */ /* x113214 stalin.sc:12472:435740 */ t59289 = e12661->a24714; /* x113213 stalin.sc:12472:435719 */ if (f8471(t59289)==FALSE_TYPE) goto l9155; /* x113240 */ /* x113239 stalin.sc:12477:435909 */ /* x113238 stalin.sc:12477:435921 */ t59295 = e12661->a24714; /* x113237 stalin.sc:12477:435910 */ t59291 = f8615(t59295); /* x113236 stalin.sc:12473:435755 */ t59290 = e12661; /* x113216 stalin.sc:12473:435750 */ t59292.tag = NATIVE_PROCEDURE_TYPE18955; t59292.value.native_procedure_type18955 = t59290; /* MOVE: branching squeezed to general */ if (t59291>=((struct structure_type24753 *)VALUE_OFFSET)) {t59293.tag = STRUCTURE_TYPE24753; t59293.value.structure_type24753 = t59291;} else t59293.tag = (unsigned)t59291; t59294 = (struct structure_type24753 *)NULL_TYPE; t59280 = f1042(t59292, t59293, t59294); goto l9156; l9155: /* x113241 */ t59280.tag = FALSE_TYPE; l9156: /* x113212 */ t59279 = e12661; p12662 = t59279; a24715 = t59280; /* x113211 */ /* x113195 */ if ((a24715.tag)==FALSE_TYPE) goto l9150; /* x113196 */ t59257 = a24715; goto l9151; l9150: /* x113210 */ /* x113199 stalin.sc:12478:435939 */ /* x113198 stalin.sc:12478:435958 */ t59281 = p12662->a24714; /* x113197 stalin.sc:12478:435940 */ if (f8585(t59281)==FALSE_TYPE) goto l9153; /* x113208 */ /* x113207 stalin.sc:12479:435974 */ /* x113206 stalin.sc:12480:436004 */ /* x113205 stalin.sc:12480:436026 */ /* x113204 stalin.sc:12480:436044 */ t59288 = p12662->a24714; /* x113203 stalin.sc:12480:436027 */ t59286 = f8659(t59288); /* x113202 stalin.sc:12480:436005 */ a36466 = t59286; /* x278533 */ /* x278532 */ t59287 = a36466; /* x278531 */ if (!((t59287.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31383]"); structure_ref_error();} t59284 = t59287.value.structure_type27745->s0; /* x113201 stalin.sc:12479:435975 */ a40081 = t59284; /* x292993 */ /* x292992 */ t59285 = a40081; /* x292991 */ if (!((t59285.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34998]"); structure_ref_error();} t59283 = t59285.value.structure_type27698->s9; /* x113200 stalin.sc:12479:435968 */ t59282 = p12662->p12658; p12661 = t59282; a24714 = t59283; goto h12661; l9153: /* x113209 */ t59257.tag = FALSE_TYPE; l9151: goto l9148; l9147: /* x113259 */ t59257.tag = FALSE_TYPE; l9148: /* x113188 stalin.sc:12467:435529 */ a22060 = t59256; a22061 = t59257; /* x72963 */ /* x72962 stalin.sc:4116:138304 */ /* x72955 stalin.sc:4116:138312 */ /* x72954 stalin.sc:4116:138322 */ t59274 = a22061; /* x270254 stalin.sc:4116:138313 */ switch (t59274.tag) {case TRUE_TYPE: case FALSE_TYPE: break; default: goto l9144;} /* x72957 */ /* x72956 */ goto l9145; l9144: /* x72961 */ /* x72960 */ /* x72959 stalin.sc:4116:138326 */ /* x72958 stalin.sc:4116:138327 */ /* x296445 QobiScheme.sc:166:5314 */ /* x296444 QobiScheme.sc:166:5321 */ t59275 = "This shouldn\'t happen"; /* x296443 QobiScheme.sc:166:5315 */ stalin_panic(t59275); l9145: /* x72952 */ while (region8513!=((struct region8513 *)(&initial_region8513))) {struct region8513 *region; region = region8513; region8513 = region8513->region; GC_free(region);} region_size8513 = REGION_SIZE8513; fp8513 = &((region8513->data)[0]); ALIGN(fp8513); /* x72951 stalin.sc:4117:138338 */ /* x72934 stalin.sc:4118:138367 */ t59258 = a22060; /* x72950 stalin.sc:4119:138371 */ /* x72935 stalin.sc:4119:138375 */ if ((a22061.tag)==FALSE_TYPE) goto l9141; /* x72941 stalin.sc:4120:138384 */ /* x72940 stalin.sc:4120:138417 */ t59269 = 4; /* x72939 stalin.sc:4120:138392 */ /* x72938 stalin.sc:4120:138414 */ t59272 = a22060; /* x72937 stalin.sc:4120:138393 */ a36501 = t59272; /* x278673 */ /* x278672 */ t59273 = a36501; /* x278671 */ if (!((t59273.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31418]"); structure_ref_error();} t59268 = t59273.value.structure_type27694->s26; /* x72936 stalin.sc:4120:138385 */ if ((fp8513+sizeof(struct structure_type24753))>(&((region8513->data)[region_size8513]))) {struct region8513 *region; unsigned region_size = REGION_SIZE8513; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8513 *)GC_malloc_uncollectable(sizeof(struct region8513)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4120, 138384); out_of_memory_error();} region->region = region8513; region_size8513 = region_size; region8513 = region; fp8513 = &((region->data)[0]); ALIGN(fp8513);} t59271.tag = STRUCTURE_TYPE24753; t59271.value.structure_type24753 = (struct structure_type24753 *)fp8513; fp8513 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t59271.value.structure_type24753->s0.tag = FIXNUM_TYPE; t59271.value.structure_type24753->s0.value.fixnum_type = t59269; t59271.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8513+sizeof(struct structure_type24753))>(&((region8513->data)[region_size8513]))) {struct region8513 *region; unsigned region_size = REGION_SIZE8513; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8513 *)GC_malloc_uncollectable(sizeof(struct region8513)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4120, 138384); out_of_memory_error();} region->region = region8513; region_size8513 = region_size; region8513 = region; fp8513 = &((region->data)[0]); ALIGN(fp8513);} t59270 = (struct structure_type24753 *)fp8513; fp8513 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t59270->s0.tag = FIXNUM_TYPE; t59270->s0.value.fixnum_type = t59268; t59270->s1 = t59271; t59259 = f27310(t59270); goto l9142; l9141: /* x72949 stalin.sc:4121:138426 */ /* x72948 stalin.sc:4121:138460 */ /* x72947 stalin.sc:4121:138469 */ t59266 = 4; /* x72946 stalin.sc:4121:138461 */ a34821 = t59266; /* x271569 */ /* x271568 */ t59267 = a34821; /* x271567 */ t59261 = ~t59267; /* x72945 stalin.sc:4121:138435 */ /* x72944 stalin.sc:4121:138457 */ t59264 = a22060; /* x72943 stalin.sc:4121:138436 */ a36506 = t59264; /* x278693 */ /* x278692 */ t59265 = a36506; /* x278691 */ if (!((t59265.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31423]"); structure_ref_error();} t59260 = t59265.value.structure_type27694->s26; /* x72942 stalin.sc:4121:138427 */ if ((fp8513+sizeof(struct structure_type24753))>(&((region8513->data)[region_size8513]))) {struct region8513 *region; unsigned region_size = REGION_SIZE8513; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8513 *)GC_malloc_uncollectable(sizeof(struct region8513)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4121, 138426); out_of_memory_error();} region->region = region8513; region_size8513 = region_size; region8513 = region; fp8513 = &((region->data)[0]); ALIGN(fp8513);} t59263.tag = STRUCTURE_TYPE24753; t59263.value.structure_type24753 = (struct structure_type24753 *)fp8513; fp8513 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t59263.value.structure_type24753->s0.tag = FIXNUM_TYPE; t59263.value.structure_type24753->s0.value.fixnum_type = t59261; t59263.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8513+sizeof(struct structure_type24753))>(&((region8513->data)[region_size8513]))) {struct region8513 *region; unsigned region_size = REGION_SIZE8513; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8513 *)GC_malloc_uncollectable(sizeof(struct region8513)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4121, 138426); out_of_memory_error();} region->region = region8513; region_size8513 = region_size; region8513 = region; fp8513 = &((region->data)[0]); ALIGN(fp8513);} t59262 = (struct structure_type24753 *)fp8513; fp8513 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t59262->s0.tag = FIXNUM_TYPE; t59262->s0.value.fixnum_type = t59260; t59262->s1 = t59263; t59259 = f27305(t59262); l9142: /* x72933 stalin.sc:4117:138339 */ f6840(t59258, t59259); return;} /* [inside LOOP 12653] */ void f12653(struct w49 a24708) {struct w49 a20589; /* S */ int a20590; /* X */ struct w49 t59303; int t59304; struct w49 t59305; int t59306; /* x113153 stalin.sc:12434:434192 */ /* x113151 stalin.sc:12434:434229 */ t59303 = a24708; /* x113152 stalin.sc:12434:434231 */ t59304 = a24704; /* x113150 stalin.sc:12434:434193 */ a20589 = t59303; a20590 = t59304; /* x55580 */ /* x55578 */ t59305 = a20589; /* x55579 */ t59306 = a20590; /* x55577 */ if ((t59305.tag)==STRUCTURE_TYPE27694) {t59305.value.structure_type27694->s6.tag = FIXNUM_TYPE; t59305.value.structure_type27694->s6.value.fixnum_type = t59306; return;} backtrace_internal("SET-ENVIRONMENT-DISTANCE-FROM-ROOT![6680]"); structure_set_error();} /* [inside LOOP 12631] */ struct structure_type27698 *f12631(struct p12602 *p12631, struct w49 a24695) {struct w49 t59307; struct w49 t59308; /* x112987 stalin.sc:12393:432559 */ /* x112985 stalin.sc:12393:432585 */ t59307 = p12631->a24684; /* x112986 stalin.sc:12393:432587 */ t59308 = a24695; /* x112984 stalin.sc:12393:432560 */ return f6890(t59307, t59308);} /* LOOP[12630] */ struct structure_type27698 *f12630(void) {struct p12602 *p12630 = d12630; struct w49 a24693 = b24693; /* XS1 */ struct structure_type24753 *a24694 = b24694; /* GS */ struct structure_type27692 *a24696; /* G1 */ struct structure_type27698 *a24697; /* X1 */ struct structure_type24753 *a35201; /* OBJS */ struct w12224 a35538; /* PAIR */ struct w16638 a35539; /* PAIR */ struct w16638 a36108; /* PAIR */ struct w49 t59309; struct p12602 *t59310; struct structure_type27692 *t59311; struct structure_type27698 *t59312; struct structure_type27698 *t59313; struct w49 t59314; struct w16638 t59315; struct w16638 t59316; struct w49 t59317; struct structure_type27694 *t59318; struct structure_type24753 *t59319; struct structure_type27698 *t59320; unsigned t59321; struct structure_type27698 *t59322; char *t59323; struct w49 t59324; char *t59325; struct structure_type27692 *t59326; struct p12602 *t59327; struct w49 t59328; struct structure_type24753 *t59329; struct w16638 t59330; struct w16638 t59331; struct structure_type27692 *t59332; struct structure_type24753 *t59333; char *t59334; struct w49 t59335; struct structure_type27698 *t59336; struct structure_type24753 *t59337; struct structure_type24753 *t59338; struct w49 t59339; struct w49 t59340; struct structure_type24753 *t59341; struct w49 t59342; unsigned t59343; struct structure_type24753 *t59344; unsigned t59345; struct p12602 *t59346; struct w49 t59347; struct w36270 t59348; struct w49 t59349; struct structure_type24753 *t59350; struct w12224 t59351; struct w12224 t59352; struct structure_type24753 *t59353; struct w49 t59354; struct p12602 *p12632; /* x113031 stalin.sc:12388:432395 */ /* x112970 stalin.sc:12388:432399 */ /* x112969 stalin.sc:12388:432406 */ t59309 = a24693; /* x269393 stalin.sc:12388:432400 */ if (!((t59309.tag)==NULL_TYPE)) goto l9158; /* x112996 stalin.sc:12389:432413 */ /* x112972 stalin.sc:12390:432450 */ t59335 = p12630->a24684; /* x112978 stalin.sc:12391:432455 */ /* x112974 stalin.sc:12391:432481 */ t59339 = p12630->a24684; /* x112977 stalin.sc:12391:432483 */ /* x112976 stalin.sc:12391:432489 */ t59341 = a24694; /* x112975 stalin.sc:12391:432484 */ /* MOVE: branching squeezed to general */ if (t59341>=((struct structure_type24753 *)VALUE_OFFSET)) {t59342.tag = STRUCTURE_TYPE24753; t59342.value.structure_type24753 = t59341;} else t59342.tag = (unsigned)t59341; t59340 = f960(t59342); /* x112973 stalin.sc:12391:432456 */ t59336 = f6890(t59339, t59340); /* x112995 stalin.sc:12392:432497 */ /* x112982 stalin.sc:12392:432503 */ /* x112981 stalin.sc:12392:432535 */ t59345 = p12630->a24683; /* x112980 stalin.sc:12392:432504 */ t59343 = f12510(t59345); /* x112994 stalin.sc:12393:432542 */ /* x112993 stalin.sc:12394:432598 */ /* x112992 stalin.sc:12394:432604 */ /* x112991 stalin.sc:12394:432613 */ t59353 = a24694; /* x112990 stalin.sc:12394:432605 */ /* MOVE: branching squeezed to general */ if (t59353>=((struct structure_type24753 *)VALUE_OFFSET)) {t59354.tag = STRUCTURE_TYPE24753; t59354.value.structure_type24753 = t59353;} else t59354.tag = (unsigned)t59353; t59351 = f26331(t59354); /* x112989 stalin.sc:12394:432599 */ a35538 = t59351; /* x273509 */ /* x273508 */ t59352 = a35538; /* x273507 */ if (!((t59352.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29687]"); structure_ref_error();} t59347 = t59352.value.structure_type24753->s1; /* x112988 stalin.sc:12393:432547 */ t59346 = p12630; /* x112983 stalin.sc:12393:432543 */ t59348.tag = NATIVE_PROCEDURE_TYPE16993; t59348.value.native_procedure_type16993 = t59346; t59349 = t59347; t59350 = (struct structure_type24753 *)NULL_TYPE; t59344 = f27731(t59348, t59349, t59350); /* x269392 stalin.sc:12392:432498 */ t59337 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t59337==NULL) {backtrace("stalin.sc", 12392, 432497); out_of_memory_error();} /* MOVE: dispatching squished to general */ if ((t59343&3)==1) {t59337->s0.tag = STRUCTURE_TYPE27692; t59337->s0.value.structure_type27692 = (struct structure_type27692 *)(t59343-1);} else {t59337->s0.tag = STRUCTURE_TYPE27698; t59337->s0.value.structure_type27698 = (struct structure_type27698 *)t59343;} /* MOVE: branching squeezed to general */ if (t59344>=((struct structure_type24753 *)VALUE_OFFSET)) {t59337->s1.tag = STRUCTURE_TYPE24753; t59337->s1.value.structure_type24753 = t59344;} else t59337->s1.tag = (unsigned)t59344; /* x112971 stalin.sc:12389:432414 */ t59338 = t59337; return f6884(t59335, t59336, t59338); l9158: /* x113030 stalin.sc:12395:432623 */ /* x113029 stalin.sc:12395:432634 */ /* x113028 stalin.sc:12395:432652 */ t59334 = "x"; /* x113027 stalin.sc:12395:432635 */ t59311 = f12512(t59334); /* x113026 */ t59310 = p12630; p12632 = t59310; a24696 = t59311; /* x113025 */ /* x113024 stalin.sc:12396:432664 */ /* x113007 stalin.sc:12397:432713 */ t59317 = p12632->a24684; /* x113011 stalin.sc:12399:432776 */ /* x113009 stalin.sc:12399:432796 */ /* x113010 stalin.sc:12399:432799 */ t59323 = "continuation"; /* x113008 stalin.sc:12399:432777 */ t59324.tag = FALSE_TYPE; t59325 = t59323; t59318 = f8468(t59324, t59325); /* x113014 stalin.sc:12400:432822 */ /* x113013 stalin.sc:12400:432828 */ t59326 = a24696; /* x113012 stalin.sc:12400:432823 */ a35201 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35201==NULL) {backtrace("stalin.sc", 12400, 432822); out_of_memory_error();} a35201->s0.tag = STRUCTURE_TYPE27692; a35201->s0.value.structure_type27692 = t59326; a35201->s1.tag = NULL_TYPE; /* x272409 */ t59319 = a35201; /* x113023 stalin.sc:12401:432839 */ /* x113018 stalin.sc:12401:432845 */ /* x113017 stalin.sc:12401:432851 */ t59330 = *((struct w16638 *)(&a24693)); /* x113016 stalin.sc:12401:432846 */ a35539 = t59330; /* x273513 */ /* x273512 */ t59331 = a35539; /* x273511 */ if (!((t59331.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29688]"); structure_ref_error();} t59328 = t59331.value.structure_type24753->s1; /* x113022 stalin.sc:12401:432856 */ /* x113020 stalin.sc:12401:432862 */ t59332 = a24696; /* x113021 stalin.sc:12401:432865 */ t59333 = a24694; /* x269391 stalin.sc:12401:432857 */ t59329 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t59329==NULL) {backtrace("stalin.sc", 12401, 432856); out_of_memory_error();} t59329->s0.tag = STRUCTURE_TYPE27692; t59329->s0.value.structure_type27692 = t59332; /* MOVE: branching squeezed to general */ if (t59333>=((struct structure_type24753 *)VALUE_OFFSET)) {t59329->s1.tag = STRUCTURE_TYPE24753; t59329->s1.value.structure_type24753 = t59333;} else t59329->s1.tag = (unsigned)t59333; /* x113015 stalin.sc:12401:432840 */ t59327 = p12632; d12630 = t59327; b24693 = t59328; b24694 = t59329; t59320 = f12630(); /* x113006 stalin.sc:12396:432665 */ t59321 = ((unsigned)t59319)+1; t59322 = t59320; t59312 = f6908(t59317, t59318, t59321, t59322); /* x113005 */ a24697 = t59312; /* x113004 */ /* x113003 */ /* x113002 stalin.sc:12402:432876 */ /* x112998 stalin.sc:12402:432898 */ t59313 = a24697; /* x113001 stalin.sc:12402:432901 */ /* x113000 stalin.sc:12402:432908 */ t59315 = *((struct w16638 *)(&a24693)); /* x112999 stalin.sc:12402:432902 */ a36108 = t59315; /* x275789 */ /* x275788 */ t59316 = a36108; /* x275787 */ if (!((t59316.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30257]"); structure_ref_error();} t59314 = t59316.value.structure_type24753->s0; /* x112997 stalin.sc:12402:432877 */ b24683 = (unsigned)t59313; b24684 = t59314; return f12602();} /* FULLY-CONVERT-TO-CPS[12602] */ struct structure_type27698 *f12602(void) {unsigned a24683 = b24683; /* G/X */ struct w49 a24684 = b24684; /* X */ char *a24685; /* v */ struct structure_type27692 *a24686; /* G */ struct structure_type27692 *a24688; /* G1 */ struct structure_type27692 *a24689; /* G1 */ struct structure_type27692 *a24690; /* G2 */ struct structure_type24753 *a35194; /* OBJS */ struct structure_type24753 *a35195; /* OBJS */ struct structure_type24753 *a35196; /* OBJS */ struct structure_type24753 *a35198; /* OBJS */ struct structure_type24753 *a35199; /* OBJS */ struct w49 a38598; /* S */ struct w49 a38856; /* S */ struct w49 a38924; /* S */ struct w49 a38925; /* S */ struct w49 a38978; /* S */ struct w49 a38979; /* S */ struct w49 a39039; /* S */ struct w49 a39040; /* S */ struct w49 a39081; /* S */ struct w49 a39173; /* S */ struct w49 a39237; /* S */ struct w49 a39436; /* S */ struct w49 a39506; /* S */ struct w49 a40385; /* S */ unsigned a40436; /* OBJ */ struct p12602 *t59355; char *t59356; char *t59357; char *t59358; struct w49 t59359; struct w49 t59360; char *t59361; char *t59362; struct w49 t59363; struct w49 t59364; char *t59365; char *t59366; struct w49 t59367; struct w49 t59368; char *t59369; char *t59370; struct w49 t59371; struct w49 t59372; char *t59373; char *t59374; struct w49 t59375; struct w49 t59376; char *t59377; char *t59378; struct w49 t59379; struct w49 t59380; char *t59381; char *t59382; struct w49 t59383; struct w49 t59384; char *t59385; char *t59386; struct w49 t59387; struct w49 t59388; char *t59389; char *t59390; struct w49 t59391; struct w49 t59392; char *t59393; char *t59394; struct w49 t59395; struct w49 t59396; char *t59397; char *t59398; struct w49 t59399; struct w49 t59400; char *t59401; char *t59402; struct w49 t59403; struct w49 t59404; char *t59405; char *t59406; struct w49 t59407; struct w49 t59408; char *t59409; char *t59410; struct w49 t59411; struct w49 t59412; char *t59413; char *t59414; struct w49 t59415; struct w49 t59416; char *t59417; char *t59418; struct w49 t59419; struct w49 t59420; char *t59421; char *t59422; struct w49 t59423; struct w49 t59424; char *t59425; char *t59426; struct w49 t59427; struct w49 t59428; char *t59429; char *t59430; struct w49 t59431; struct w49 t59432; char *t59433; char *t59434; struct w49 t59435; struct w49 t59436; char *t59437; char *t59438; struct w49 t59439; struct w49 t59440; char *t59441; char *t59442; struct p12602 *t59443; struct p12602 *t59444; struct structure_type24753 *t59445; struct p12602 *t59446; struct p12602 *t59447; struct w49 t59448; struct w11873 t59449; struct w49 t59450; struct w49 t59451; struct w49 t59452; struct w49 t59453; struct p12602 *t59454; unsigned t59455; struct w49 t59456; struct p12602 *t59457; unsigned t59458; struct w49 t59459; struct p12602 *t59460; unsigned t59461; struct w49 t59462; struct p12602 *t59463; struct p12602 *t59464; struct structure_type27692 *t59465; unsigned t59466; unsigned t59467; struct structure_type27698 *t59468; struct w49 t59469; struct w49 t59470; struct structure_type27694 *t59471; struct structure_type24753 *t59472; struct structure_type27698 *t59473; unsigned t59474; struct structure_type27698 *t59475; char *t59476; struct w49 t59477; char *t59478; struct structure_type27692 *t59479; struct w49 t59480; struct structure_type27698 *t59481; struct structure_type27698 *t59482; struct structure_type27698 *t59483; struct w49 t59484; struct w49 t59485; struct w49 t59486; struct w49 t59487; struct structure_type27692 *t59488; struct w49 t59489; unsigned t59490; struct w49 t59491; struct w49 t59492; struct w49 t59493; unsigned t59494; struct w49 t59495; struct w49 t59496; struct w49 t59497; struct w49 t59498; struct w49 t59499; struct p12602 *t59500; struct structure_type27692 *t59501; struct w49 t59502; struct structure_type27698 *t59503; struct structure_type24753 *t59504; struct w49 t59505; struct w12224 t59506; struct w49 t59507; struct structure_type27694 *t59508; struct structure_type24753 *t59509; struct structure_type27698 *t59510; unsigned t59511; struct structure_type27698 *t59512; char *t59513; struct w49 t59514; char *t59515; struct structure_type27692 *t59516; struct structure_type27698 *t59517; struct w49 t59518; struct w49 t59519; struct structure_type27694 *t59520; struct structure_type24753 *t59521; struct structure_type27698 *t59522; unsigned t59523; struct structure_type27698 *t59524; char *t59525; struct w49 t59526; char *t59527; struct structure_type27692 *t59528; struct w49 t59529; struct structure_type27698 *t59530; struct structure_type27698 *t59531; struct structure_type27698 *t59532; struct w49 t59533; struct w49 t59534; struct w49 t59535; struct w49 t59536; struct structure_type27692 *t59537; struct w49 t59538; struct structure_type27692 *t59539; struct w49 t59540; struct w49 t59541; struct w49 t59542; struct structure_type27692 *t59543; struct w49 t59544; struct w49 t59545; struct w49 t59546; struct w49 t59547; struct w49 t59548; unsigned t59549; char *t59550; char *t59551; struct p12602 *t59552; struct p12602 *t59553; struct structure_type27692 *t59554; struct structure_type27698 *t59555; struct w49 t59556; struct w49 t59557; struct structure_type27694 *t59558; struct structure_type24753 *t59559; struct structure_type27698 *t59560; unsigned t59561; struct structure_type27698 *t59562; char *t59563; struct w49 t59564; char *t59565; struct structure_type27692 *t59566; unsigned t59567; struct structure_type27698 *t59568; struct w49 t59569; struct w49 t59570; struct w49 t59571; struct structure_type27698 *t59572; struct w49 t59573; struct w49 t59574; struct w49 t59575; struct w49 t59576; struct structure_type27692 *t59577; struct w49 t59578; struct w49 t59579; struct w49 t59580; char *t59581; char *t59582; struct p12602 *t59583; unsigned t59584; struct w49 t59585; struct w49 t59586; struct p12602 *t59587; struct structure_type27692 *t59588; struct w49 t59589; struct w9140 t59590; struct structure_type24753 *t59591; struct structure_type27698 *t59592; unsigned t59593; struct structure_type27698 *t59594; struct structure_type27698 *t59595; struct w49 t59596; struct w49 t59597; struct structure_type27692 *t59598; struct w9296 t59599; struct w49 t59600; struct w49 t59601; struct structure_type27692 *t59602; struct w49 t59603; struct w49 t59604; struct w49 t59605; char *t59606; struct p12602 *t59607; unsigned t59608; struct w49 t59609; struct p12602 *t59610; unsigned t59611; struct w49 t59612; struct p12602 *t59613; unsigned t59614; struct w49 t59615; struct p12602 *t59616; unsigned t59617; struct w49 t59618; struct p12602 *t59619; unsigned t59620; struct w49 t59621; struct p12602 *t59622; unsigned t59623; struct w49 t59624; struct p12602 *t59625; unsigned t59626; struct w49 t59627; struct p12602 *t59628; unsigned t59629; struct w49 t59630; struct p12602 *t59631; unsigned t59632; struct w49 t59633; struct p12602 *t59634; unsigned t59635; struct w49 t59636; struct p12602 *t59637; unsigned t59638; struct w49 t59639; struct w49 t59640; struct w49 t59641; struct p12602 *e12602; struct p12602 *p12603; struct p12602 *p12604; struct p12602 *p12605; struct p12602 *p12606; struct p12602 *p12607; struct p12602 *p12608; struct p12602 *p12609; struct p12602 *p12610; struct p12602 *p12611; struct p12602 *p12612; struct p12602 *p12613; struct p12602 *p12614; struct p12602 *p12615; struct p12602 *p12616; struct p12602 *p12619; struct p12602 *p12620; struct p12602 *p12621; struct p12602 *p12622; struct p12602 *p12623; struct p12602 *p12624; struct p12602 *p12625; struct p12602 *p12626; struct p12602 *p12627; struct p12602 *p12628; struct p12602 *p12629; h12602: e12602 = (struct p12602 *)GC_malloc(sizeof(struct p12602)); if (e12602==NULL) {backtrace_internal("[inside FULLY-CONVERT-TO-CPS 12599]"); out_of_memory_error();} e12602->a24683 = a24683; e12602->a24684 = a24684; /* x113087 stalin.sc:12304:429382 */ /* x113086 stalin.sc:12304:429388 */ /* x113085 stalin.sc:12304:429405 */ t59640 = e12602->a24684; /* x113084 stalin.sc:12304:429389 */ a40385 = t59640; /* x294209 */ /* x294208 */ t59641 = a40385; /* x294207 */ if (!((t59641.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35302]"); structure_ref_error();} t59356 = t59641.value.structure_type27698->s0; /* x113083 */ t59355 = e12602; p12603 = t59355; a24685 = t59356; /* x113082 */ /* x112628 */ /* x112626 */ t59357 = a24685; /* x112627 */ t59358 = q68; /* x112625 */ t59359.tag = EXTERNAL_SYMBOL_TYPE; t59359.value.external_symbol_type = t59357; t59360.tag = EXTERNAL_SYMBOL_TYPE; t59360.value.external_symbol_type = t59358; if (f26160(t59359, t59360)==FALSE_TYPE) goto l9160; /* x112634 */ /* x112633 */ t59637 = p12603; p12604 = t59637; /* x112632 stalin.sc:12305:429428 */ /* x112630 stalin.sc:12305:429447 */ t59638 = p12604->a24683; /* x112631 stalin.sc:12305:429451 */ t59639 = p12604->a24684; /* x112629 stalin.sc:12305:429429 */ return f12511(t59638, t59639); l9160: /* x113081 */ /* x112638 */ /* x112636 */ t59361 = a24685; /* x112637 */ t59362 = q69; /* x112635 */ t59363.tag = EXTERNAL_SYMBOL_TYPE; t59363.value.external_symbol_type = t59361; t59364.tag = EXTERNAL_SYMBOL_TYPE; t59364.value.external_symbol_type = t59362; if (f26160(t59363, t59364)==FALSE_TYPE) goto l9162; /* x112644 */ /* x112643 */ t59634 = p12603; p12605 = t59634; /* x112642 stalin.sc:12306:429475 */ /* x112640 stalin.sc:12306:429494 */ t59635 = p12605->a24683; /* x112641 stalin.sc:12306:429498 */ t59636 = p12605->a24684; /* x112639 stalin.sc:12306:429476 */ return f12511(t59635, t59636); l9162: /* x113080 */ /* x112648 */ /* x112646 */ t59365 = a24685; /* x112647 */ t59366 = q70; /* x112645 */ t59367.tag = EXTERNAL_SYMBOL_TYPE; t59367.value.external_symbol_type = t59365; t59368.tag = EXTERNAL_SYMBOL_TYPE; t59368.value.external_symbol_type = t59366; if (f26160(t59367, t59368)==FALSE_TYPE) goto l9164; /* x112654 */ /* x112653 */ t59631 = p12603; p12606 = t59631; /* x112652 stalin.sc:12307:429523 */ /* x112650 stalin.sc:12307:429542 */ t59632 = p12606->a24683; /* x112651 stalin.sc:12307:429546 */ t59633 = p12606->a24684; /* x112649 stalin.sc:12307:429524 */ return f12511(t59632, t59633); l9164: /* x113079 */ /* x112658 */ /* x112656 */ t59369 = a24685; /* x112657 */ t59370 = q71; /* x112655 */ t59371.tag = EXTERNAL_SYMBOL_TYPE; t59371.value.external_symbol_type = t59369; t59372.tag = EXTERNAL_SYMBOL_TYPE; t59372.value.external_symbol_type = t59370; if (f26160(t59371, t59372)==FALSE_TYPE) goto l9166; /* x112664 */ /* x112663 */ t59628 = p12603; p12607 = t59628; /* x112662 stalin.sc:12308:429570 */ /* x112660 stalin.sc:12308:429589 */ t59629 = p12607->a24683; /* x112661 stalin.sc:12308:429593 */ t59630 = p12607->a24684; /* x112659 stalin.sc:12308:429571 */ return f12511(t59629, t59630); l9166: /* x113078 */ /* x112668 */ /* x112666 */ t59373 = a24685; /* x112667 */ t59374 = q72; /* x112665 */ t59375.tag = EXTERNAL_SYMBOL_TYPE; t59375.value.external_symbol_type = t59373; t59376.tag = EXTERNAL_SYMBOL_TYPE; t59376.value.external_symbol_type = t59374; if (f26160(t59375, t59376)==FALSE_TYPE) goto l9168; /* x112674 */ /* x112673 */ t59625 = p12603; p12608 = t59625; /* x112672 stalin.sc:12309:429619 */ /* x112670 stalin.sc:12309:429638 */ t59626 = p12608->a24683; /* x112671 stalin.sc:12309:429642 */ t59627 = p12608->a24684; /* x112669 stalin.sc:12309:429620 */ return f12511(t59626, t59627); l9168: /* x113077 */ /* x112678 */ /* x112676 */ t59377 = a24685; /* x112677 */ t59378 = q73; /* x112675 */ t59379.tag = EXTERNAL_SYMBOL_TYPE; t59379.value.external_symbol_type = t59377; t59380.tag = EXTERNAL_SYMBOL_TYPE; t59380.value.external_symbol_type = t59378; if (f26160(t59379, t59380)==FALSE_TYPE) goto l9170; /* x112684 */ /* x112683 */ t59622 = p12603; p12609 = t59622; /* x112682 stalin.sc:12310:429668 */ /* x112680 stalin.sc:12310:429687 */ t59623 = p12609->a24683; /* x112681 stalin.sc:12310:429691 */ t59624 = p12609->a24684; /* x112679 stalin.sc:12310:429669 */ return f12511(t59623, t59624); l9170: /* x113076 */ /* x112688 */ /* x112686 */ t59381 = a24685; /* x112687 */ t59382 = q74; /* x112685 */ t59383.tag = EXTERNAL_SYMBOL_TYPE; t59383.value.external_symbol_type = t59381; t59384.tag = EXTERNAL_SYMBOL_TYPE; t59384.value.external_symbol_type = t59382; if (f26160(t59383, t59384)==FALSE_TYPE) goto l9172; /* x112694 */ /* x112693 */ t59619 = p12603; p12610 = t59619; /* x112692 stalin.sc:12311:429722 */ /* x112690 stalin.sc:12311:429741 */ t59620 = p12610->a24683; /* x112691 stalin.sc:12311:429745 */ t59621 = p12610->a24684; /* x112689 stalin.sc:12311:429723 */ return f12511(t59620, t59621); l9172: /* x113075 */ /* x112698 */ /* x112696 */ t59385 = a24685; /* x112697 */ t59386 = q75; /* x112695 */ t59387.tag = EXTERNAL_SYMBOL_TYPE; t59387.value.external_symbol_type = t59385; t59388.tag = EXTERNAL_SYMBOL_TYPE; t59388.value.external_symbol_type = t59386; if (f26160(t59387, t59388)==FALSE_TYPE) goto l9174; /* x112704 */ /* x112703 */ t59616 = p12603; p12611 = t59616; /* x112702 stalin.sc:12312:429771 */ /* x112700 stalin.sc:12312:429790 */ t59617 = p12611->a24683; /* x112701 stalin.sc:12312:429794 */ t59618 = p12611->a24684; /* x112699 stalin.sc:12312:429772 */ return f12511(t59617, t59618); l9174: /* x113074 */ /* x112708 */ /* x112706 */ t59389 = a24685; /* x112707 */ t59390 = q76; /* x112705 */ t59391.tag = EXTERNAL_SYMBOL_TYPE; t59391.value.external_symbol_type = t59389; t59392.tag = EXTERNAL_SYMBOL_TYPE; t59392.value.external_symbol_type = t59390; if (f26160(t59391, t59392)==FALSE_TYPE) goto l9176; /* x112714 */ /* x112713 */ t59613 = p12603; p12612 = t59613; /* x112712 stalin.sc:12313:429820 */ /* x112710 stalin.sc:12313:429839 */ t59614 = p12612->a24683; /* x112711 stalin.sc:12313:429843 */ t59615 = p12612->a24684; /* x112709 stalin.sc:12313:429821 */ return f12511(t59614, t59615); l9176: /* x113073 */ /* x112718 */ /* x112716 */ t59393 = a24685; /* x112717 */ t59394 = q50; /* x112715 */ t59395.tag = EXTERNAL_SYMBOL_TYPE; t59395.value.external_symbol_type = t59393; t59396.tag = EXTERNAL_SYMBOL_TYPE; t59396.value.external_symbol_type = t59394; if (f26160(t59395, t59396)==FALSE_TYPE) goto l9178; /* x112724 */ /* x112723 */ t59610 = p12603; p12613 = t59610; /* x112722 stalin.sc:12314:429867 */ /* x112720 stalin.sc:12314:429886 */ t59611 = p12613->a24683; /* x112721 stalin.sc:12314:429890 */ t59612 = p12613->a24684; /* x112719 stalin.sc:12314:429868 */ return f12511(t59611, t59612); l9178: /* x113072 */ /* x112728 */ /* x112726 */ t59397 = a24685; /* x112727 */ t59398 = q52; /* x112725 */ t59399.tag = EXTERNAL_SYMBOL_TYPE; t59399.value.external_symbol_type = t59397; t59400.tag = EXTERNAL_SYMBOL_TYPE; t59400.value.external_symbol_type = t59398; if (f26160(t59399, t59400)==FALSE_TYPE) goto l9180; /* x112734 */ /* x112733 */ t59607 = p12603; p12614 = t59607; /* x112732 stalin.sc:12315:429916 */ /* x112730 stalin.sc:12315:429935 */ t59608 = p12614->a24683; /* x112731 stalin.sc:12315:429939 */ t59609 = p12614->a24684; /* x112729 stalin.sc:12315:429917 */ return f12511(t59608, t59609); l9180: /* x113071 */ /* x112738 */ /* x112736 */ t59401 = a24685; /* x112737 */ t59402 = q39; /* x112735 */ t59403.tag = EXTERNAL_SYMBOL_TYPE; t59403.value.external_symbol_type = t59401; t59404.tag = EXTERNAL_SYMBOL_TYPE; t59404.value.external_symbol_type = t59402; if (f26160(t59403, t59404)==FALSE_TYPE) goto l9182; /* x112771 */ /* x112770 */ t59583 = p12603; p12615 = t59583; /* x112769 stalin.sc:12317:429960 */ /* x112740 stalin.sc:12318:429984 */ t59584 = p12615->a24683; /* x112768 stalin.sc:12319:429993 */ /* x112743 stalin.sc:12319:429997 */ /* x112742 stalin.sc:12319:430004 */ t59586 = p12615->a24684; /* x112741 stalin.sc:12319:429998 */ if (f8918(t59586)==FALSE_TYPE) goto l9203; /* x112744 stalin.sc:12320:430009 */ t59585 = p12615->a24684; goto l9204; l9203: /* x112767 stalin.sc:12321:430013 */ /* x112766 stalin.sc:12321:430022 */ /* x112765 stalin.sc:12321:430040 */ t59606 = "c"; /* x112764 stalin.sc:12321:430023 */ t59588 = f12512(t59606); /* x112763 */ t59587 = p12615; p12616 = t59587; a24686 = t59588; /* x112762 stalin.sc:12322:430050 */ /* x112746 stalin.sc:12323:430090 */ t59589 = p12616->a24684; /* x112749 stalin.sc:12324:430096 */ /* x112748 stalin.sc:12324:430127 */ t59596 = p12616->a24684; /* x112747 stalin.sc:12324:430097 */ a39506 = t59596; /* x290693 */ /* x290692 */ t59597 = a39506; /* x290691 */ if (!((t59597.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34423]"); structure_ref_error();} t59590 = t59597.value.structure_type27698->s13; /* x112755 stalin.sc:12325:430134 */ /* x112751 stalin.sc:12325:430140 */ t59598 = a24686; /* x112754 stalin.sc:12325:430142 */ /* x112753 stalin.sc:12325:430165 */ t59600 = p12616->a24684; /* x112752 stalin.sc:12325:430143 */ a39436 = t59600; /* x290413 */ /* x290412 */ t59601 = a39436; /* x290411 */ if (!((t59601.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34353]"); structure_ref_error();} t59599 = t59601.value.structure_type27698->s14; /* x269394 stalin.sc:12325:430135 */ t59591 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t59591==NULL) {backtrace("stalin.sc", 12325, 430134); out_of_memory_error();} t59591->s0.tag = STRUCTURE_TYPE27692; t59591->s0.value.structure_type27692 = t59598; t59591->s1 = *((struct w49 *)(&t59599)); /* x112761 stalin.sc:12326:430173 */ /* x112757 stalin.sc:12326:430195 */ t59602 = a24686; /* x112760 stalin.sc:12326:430197 */ /* x112759 stalin.sc:12326:430214 */ t59604 = p12616->a24684; /* x112758 stalin.sc:12326:430198 */ a39237 = t59604; /* x289617 */ /* x289616 */ t59605 = a39237; /* x289615 */ if (!((t59605.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34154]"); structure_ref_error();} t59603 = t59605.value.structure_type27698->s15; /* x112756 stalin.sc:12326:430174 */ b24683 = ((unsigned)t59602)+1; b24684 = t59603; t59592 = f12602(); /* x112745 stalin.sc:12322:430051 */ t59593 = ((unsigned)t59591)+1; t59594 = t59592; t59595 = f6902(t59589, t59590, t59593, t59594); t59585.tag = STRUCTURE_TYPE27698; t59585.value.structure_type27698 = t59595; l9204: /* x112739 stalin.sc:12317:429961 */ return f12511(t59584, t59585); l9182: /* x113070 */ /* x112784 */ /* x112783 */ /* x112781 */ t59405 = a24685; /* x112782 */ t59406 = q40; /* x112780 */ t59407.tag = EXTERNAL_SYMBOL_TYPE; t59407.value.external_symbol_type = t59405; t59408.tag = EXTERNAL_SYMBOL_TYPE; t59408.value.external_symbol_type = t59406; if (!(f26160(t59407, t59408)==FALSE_TYPE)) goto l9183; /* x112777 */ /* x112775 */ t59409 = a24685; /* x112776 */ t59410 = q41; /* x112774 */ t59411.tag = EXTERNAL_SYMBOL_TYPE; t59411.value.external_symbol_type = t59409; t59412.tag = EXTERNAL_SYMBOL_TYPE; t59412.value.external_symbol_type = t59410; if (f26160(t59411, t59412)==FALSE_TYPE) goto l9184; l9183: /* x112788 */ /* x112787 */ /* x112786 stalin.sc:12327:430269 */ /* x112785 stalin.sc:12327:430270 */ /* x297013 QobiScheme.sc:166:5314 */ /* x297012 QobiScheme.sc:166:5321 */ t59582 = "This shouldn\'t happen"; /* x297011 QobiScheme.sc:166:5315 */ stalin_panic(t59582); l9184: /* x113069 */ /* x112792 */ /* x112790 */ t59413 = a24685; /* x112791 */ t59414 = q42; /* x112789 */ t59415.tag = EXTERNAL_SYMBOL_TYPE; t59415.value.external_symbol_type = t59413; t59416.tag = EXTERNAL_SYMBOL_TYPE; t59416.value.external_symbol_type = t59414; if (f26160(t59415, t59416)==FALSE_TYPE) goto l9187; /* x112827 */ /* x112826 */ t59552 = p12603; p12619 = t59552; /* x112825 stalin.sc:12330:430359 */ /* x112824 stalin.sc:12330:430369 */ /* x112823 stalin.sc:12330:430387 */ t59581 = "x"; /* x112822 stalin.sc:12330:430370 */ t59554 = f12512(t59581); /* x112821 */ t59553 = p12619; p12620 = t59553; a24688 = t59554; /* x112820 stalin.sc:12331:430399 */ /* x112816 stalin.sc:12332:430427 */ /* x112795 stalin.sc:12333:430476 */ t59557 = p12620->a24684; /* x112799 stalin.sc:12335:430539 */ /* x112797 stalin.sc:12335:430559 */ /* x112798 stalin.sc:12335:430562 */ t59563 = "continuation"; /* x112796 stalin.sc:12335:430540 */ t59564.tag = FALSE_TYPE; t59565 = t59563; t59558 = f8468(t59564, t59565); /* x112802 stalin.sc:12336:430585 */ /* x112801 stalin.sc:12336:430591 */ t59566 = a24688; /* x112800 stalin.sc:12336:430586 */ a35194 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35194==NULL) {backtrace("stalin.sc", 12336, 430585); out_of_memory_error();} a35194->s0.tag = STRUCTURE_TYPE27692; a35194->s0.value.structure_type27692 = t59566; a35194->s1.tag = NULL_TYPE; /* x272395 */ t59559 = a35194; /* x112815 stalin.sc:12337:430602 */ /* x112804 stalin.sc:12338:430622 */ t59567 = p12620->a24683; /* x112814 stalin.sc:12339:430627 */ /* x112806 stalin.sc:12340:430653 */ t59570 = p12620->a24684; /* x112809 stalin.sc:12340:430655 */ /* x112808 stalin.sc:12340:430676 */ t59574 = p12620->a24684; /* x112807 stalin.sc:12340:430656 */ a39173 = t59574; /* x289361 */ /* x289360 */ t59575 = a39173; /* x289359 */ if (!((t59575.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34090]"); structure_ref_error();} t59571 = t59575.value.structure_type27698->s16; /* x112813 stalin.sc:12340:430679 */ /* x112811 stalin.sc:12340:430705 */ t59576 = p12620->a24684; /* x112812 stalin.sc:12340:430707 */ t59577 = a24688; /* x112810 stalin.sc:12340:430680 */ t59578.tag = STRUCTURE_TYPE27692; t59578.value.structure_type27692 = t59577; t59572 = f6890(t59576, t59578); /* x112805 stalin.sc:12339:430628 */ t59573.tag = STRUCTURE_TYPE27698; t59573.value.structure_type27698 = t59572; t59568 = f6914(t59570, t59571, t59573); /* x112803 stalin.sc:12337:430603 */ t59569.tag = STRUCTURE_TYPE27698; t59569.value.structure_type27698 = t59568; t59560 = f12511(t59567, t59569); /* x112794 stalin.sc:12332:430428 */ t59561 = ((unsigned)t59559)+1; t59562 = t59560; t59555 = f6908(t59557, t59558, t59561, t59562); /* x112819 stalin.sc:12341:430720 */ /* x112818 stalin.sc:12341:430739 */ t59579 = p12620->a24684; /* x112817 stalin.sc:12341:430721 */ a39081 = t59579; /* x288993 */ /* x288992 */ t59580 = a39081; /* x288991 */ if (!((t59580.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33998]"); structure_ref_error();} t59556 = t59580.value.structure_type27698->s17; /* x112793 stalin.sc:12331:430400 */ a24683 = (unsigned)t59555; a24684 = t59556; goto h12602; l9187: /* x113068 */ /* x112831 */ /* x112829 */ t59417 = a24685; /* x112830 */ t59418 = q43; /* x112828 */ t59419.tag = EXTERNAL_SYMBOL_TYPE; t59419.value.external_symbol_type = t59417; t59420.tag = EXTERNAL_SYMBOL_TYPE; t59420.value.external_symbol_type = t59418; if (f26160(t59419, t59420)==FALSE_TYPE) goto l9189; /* x112931 */ /* x112930 */ t59463 = p12603; p12621 = t59463; /* x112929 stalin.sc:12346:430925 */ /* x112928 stalin.sc:12346:430935 */ /* x112927 stalin.sc:12346:430953 */ t59551 = "x"; /* x112926 stalin.sc:12346:430936 */ t59465 = f12512(t59551); /* x112925 */ t59464 = p12621; p12622 = t59464; a24689 = t59465; /* x112924 stalin.sc:12347:430965 */ /* x112834 stalin.sc:12347:430969 */ /* x112833 stalin.sc:12347:430982 */ t59466 = p12622->a24683; /* x112832 stalin.sc:12347:430970 */ a40436 = t59466; /* x294413 */ /* x294412 */ t59467 = a40436; /* x294411 */ if (!((t59467&3)==0)) goto l9201; /* x112889 stalin.sc:12348:430989 */ /* x112888 stalin.sc:12348:430999 */ /* x112887 stalin.sc:12348:431017 */ t59550 = "x"; /* x112886 stalin.sc:12348:431000 */ t59501 = f12512(t59550); /* x112885 */ t59500 = p12622; p12623 = t59500; a24690 = t59501; /* x112884 stalin.sc:12349:431027 */ /* x112836 stalin.sc:12350:431055 */ t59502 = p12623->a24684; /* x112880 stalin.sc:12351:431061 */ /* x112838 stalin.sc:12352:431108 */ t59507 = p12623->a24684; /* x112842 stalin.sc:12354:431167 */ /* x112840 stalin.sc:12354:431187 */ /* x112841 stalin.sc:12354:431190 */ t59513 = "continuation"; /* x112839 stalin.sc:12354:431168 */ t59514.tag = FALSE_TYPE; t59515 = t59513; t59508 = f8468(t59514, t59515); /* x112845 stalin.sc:12355:431211 */ /* x112844 stalin.sc:12355:431217 */ t59516 = a24690; /* x112843 stalin.sc:12355:431212 */ a35195 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35195==NULL) {backtrace("stalin.sc", 12355, 431211); out_of_memory_error();} a35195->s0.tag = STRUCTURE_TYPE27692; a35195->s0.value.structure_type27692 = t59516; a35195->s1.tag = NULL_TYPE; /* x272397 */ t59509 = a35195; /* x112879 stalin.sc:12356:431226 */ /* x112875 stalin.sc:12357:431254 */ /* x112848 stalin.sc:12358:431303 */ t59519 = p12623->a24684; /* x112852 stalin.sc:12360:431366 */ /* x112850 stalin.sc:12360:431386 */ /* x112851 stalin.sc:12360:431389 */ t59525 = "continuation"; /* x112849 stalin.sc:12360:431367 */ t59526.tag = FALSE_TYPE; t59527 = t59525; t59520 = f8468(t59526, t59527); /* x112855 stalin.sc:12361:431412 */ /* x112854 stalin.sc:12361:431418 */ t59528 = a24689; /* x112853 stalin.sc:12361:431413 */ a35196 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35196==NULL) {backtrace("stalin.sc", 12361, 431412); out_of_memory_error();} a35196->s0.tag = STRUCTURE_TYPE27692; a35196->s0.value.structure_type27692 = t59528; a35196->s1.tag = NULL_TYPE; /* x272399 */ t59521 = a35196; /* x112874 stalin.sc:12362:431429 */ /* x112857 stalin.sc:12363:431459 */ t59529 = p12623->a24684; /* x112861 stalin.sc:12364:431469 */ /* x112859 stalin.sc:12364:431495 */ t59536 = p12623->a24684; /* x112860 stalin.sc:12364:431497 */ t59537 = a24689; /* x112858 stalin.sc:12364:431470 */ t59538.tag = STRUCTURE_TYPE27692; t59538.value.structure_type27692 = t59537; t59530 = f6890(t59536, t59538); /* x112867 stalin.sc:12365:431509 */ /* x112863 stalin.sc:12365:431531 */ t59539 = a24690; /* x112866 stalin.sc:12365:431534 */ /* x112865 stalin.sc:12365:431557 */ t59541 = p12623->a24684; /* x112864 stalin.sc:12365:431535 */ a38978 = t59541; /* x288581 */ /* x288580 */ t59542 = a38978; /* x288579 */ if (!((t59542.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33895]"); structure_ref_error();} t59540 = t59542.value.structure_type27698->s19; /* x112862 stalin.sc:12365:431510 */ b24683 = ((unsigned)t59539)+1; b24684 = t59540; t59531 = f12602(); /* x112873 stalin.sc:12366:431569 */ /* x112869 stalin.sc:12366:431591 */ t59543 = a24690; /* x112872 stalin.sc:12366:431594 */ /* x112871 stalin.sc:12366:431616 */ t59545 = p12623->a24684; /* x112870 stalin.sc:12366:431595 */ a38924 = t59545; /* x288365 */ /* x288364 */ t59546 = a38924; /* x288363 */ if (!((t59546.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33841]"); structure_ref_error();} t59544 = t59546.value.structure_type27698->s20; /* x112868 stalin.sc:12366:431570 */ b24683 = ((unsigned)t59543)+1; b24684 = t59544; t59532 = f12602(); /* x112856 stalin.sc:12362:431430 */ t59533.tag = STRUCTURE_TYPE27698; t59533.value.structure_type27698 = t59530; t59534.tag = STRUCTURE_TYPE27698; t59534.value.structure_type27698 = t59531; t59535.tag = STRUCTURE_TYPE27698; t59535.value.structure_type27698 = t59532; t59522 = f6920(t59529, t59533, t59534, t59535); /* x112847 stalin.sc:12357:431255 */ t59523 = ((unsigned)t59521)+1; t59524 = t59522; t59517 = f6908(t59519, t59520, t59523, t59524); /* x112878 stalin.sc:12367:431628 */ /* x112877 stalin.sc:12367:431651 */ t59547 = p12623->a24684; /* x112876 stalin.sc:12367:431629 */ a39039 = t59547; /* x288825 */ /* x288824 */ t59548 = a39039; /* x288823 */ if (!((t59548.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33956]"); structure_ref_error();} t59518 = t59548.value.structure_type27698->s18; /* x112846 stalin.sc:12356:431227 */ b24683 = (unsigned)t59517; b24684 = t59518; t59510 = f12602(); /* x112837 stalin.sc:12351:431062 */ t59511 = ((unsigned)t59509)+1; t59512 = t59510; t59503 = f6908(t59507, t59508, t59511, t59512); /* x112883 stalin.sc:12368:431660 */ /* x112882 stalin.sc:12368:431666 */ t59549 = p12623->a24683; /* x112881 stalin.sc:12368:431661 */ a35198 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35198==NULL) {backtrace("stalin.sc", 12368, 431660); out_of_memory_error();} /* MOVE: dispatching squished to general */ if ((t59549&3)==1) {a35198->s0.tag = STRUCTURE_TYPE27692; a35198->s0.value.structure_type27692 = (struct structure_type27692 *)(t59549-1);} else {a35198->s0.tag = STRUCTURE_TYPE27698; a35198->s0.value.structure_type27698 = (struct structure_type27698 *)t59549;} a35198->s1.tag = NULL_TYPE; /* x272403 */ t59504 = a35198; /* x112835 stalin.sc:12349:431028 */ t59505.tag = STRUCTURE_TYPE27698; t59505.value.structure_type27698 = t59503; t59506.tag = STRUCTURE_TYPE24753; t59506.value.structure_type24753 = t59504; return f6878(t59502, t59505, t59506); l9201: /* x112923 stalin.sc:12369:431675 */ /* x112919 stalin.sc:12370:431700 */ /* x112892 stalin.sc:12371:431746 */ t59470 = p12622->a24684; /* x112896 stalin.sc:12373:431803 */ /* x112894 stalin.sc:12373:431823 */ /* x112895 stalin.sc:12373:431826 */ t59476 = "continuation"; /* x112893 stalin.sc:12373:431804 */ t59477.tag = FALSE_TYPE; t59478 = t59476; t59471 = f8468(t59477, t59478); /* x112899 stalin.sc:12374:431846 */ /* x112898 stalin.sc:12374:431852 */ t59479 = a24689; /* x112897 stalin.sc:12374:431847 */ a35199 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35199==NULL) {backtrace("stalin.sc", 12374, 431846); out_of_memory_error();} a35199->s0.tag = STRUCTURE_TYPE27692; a35199->s0.value.structure_type27692 = t59479; a35199->s1.tag = NULL_TYPE; /* x272405 */ t59472 = a35199; /* x112918 stalin.sc:12375:431860 */ /* x112901 stalin.sc:12376:431887 */ t59480 = p12622->a24684; /* x112905 stalin.sc:12377:431894 */ /* x112903 stalin.sc:12377:431920 */ t59487 = p12622->a24684; /* x112904 stalin.sc:12377:431922 */ t59488 = a24689; /* x112902 stalin.sc:12377:431895 */ t59489.tag = STRUCTURE_TYPE27692; t59489.value.structure_type27692 = t59488; t59481 = f6890(t59487, t59489); /* x112911 stalin.sc:12378:431931 */ /* x112907 stalin.sc:12378:431953 */ t59490 = p12622->a24683; /* x112910 stalin.sc:12378:431957 */ /* x112909 stalin.sc:12378:431980 */ t59492 = p12622->a24684; /* x112908 stalin.sc:12378:431958 */ a38979 = t59492; /* x288585 */ /* x288584 */ t59493 = a38979; /* x288583 */ if (!((t59493.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33896]"); structure_ref_error();} t59491 = t59493.value.structure_type27698->s19; /* x112906 stalin.sc:12378:431932 */ b24683 = t59490; b24684 = t59491; t59482 = f12602(); /* x112917 stalin.sc:12379:431989 */ /* x112913 stalin.sc:12379:432011 */ t59494 = p12622->a24683; /* x112916 stalin.sc:12379:432015 */ /* x112915 stalin.sc:12379:432037 */ t59496 = p12622->a24684; /* x112914 stalin.sc:12379:432016 */ a38925 = t59496; /* x288369 */ /* x288368 */ t59497 = a38925; /* x288367 */ if (!((t59497.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33842]"); structure_ref_error();} t59495 = t59497.value.structure_type27698->s20; /* x112912 stalin.sc:12379:431990 */ b24683 = t59494; b24684 = t59495; t59483 = f12602(); /* x112900 stalin.sc:12375:431861 */ t59484.tag = STRUCTURE_TYPE27698; t59484.value.structure_type27698 = t59481; t59485.tag = STRUCTURE_TYPE27698; t59485.value.structure_type27698 = t59482; t59486.tag = STRUCTURE_TYPE27698; t59486.value.structure_type27698 = t59483; t59473 = f6920(t59480, t59484, t59485, t59486); /* x112891 stalin.sc:12370:431701 */ t59474 = ((unsigned)t59472)+1; t59475 = t59473; t59468 = f6908(t59470, t59471, t59474, t59475); /* x112922 stalin.sc:12380:432046 */ /* x112921 stalin.sc:12380:432069 */ t59498 = p12622->a24684; /* x112920 stalin.sc:12380:432047 */ a39040 = t59498; /* x288829 */ /* x288828 */ t59499 = a39040; /* x288827 */ if (!((t59499.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33957]"); structure_ref_error();} t59469 = t59499.value.structure_type27698->s18; /* x112890 stalin.sc:12369:431676 */ a24683 = (unsigned)t59468; a24684 = t59469; goto h12602; l9189: /* x113067 */ /* x112935 */ /* x112933 */ t59421 = a24685; /* x112934 */ t59422 = q77; /* x112932 */ t59423.tag = EXTERNAL_SYMBOL_TYPE; t59423.value.external_symbol_type = t59421; t59424.tag = EXTERNAL_SYMBOL_TYPE; t59424.value.external_symbol_type = t59422; if (f26160(t59423, t59424)==FALSE_TYPE) goto l9191; /* x112941 */ /* x112940 */ t59460 = p12603; p12624 = t59460; /* x112939 stalin.sc:12381:432102 */ /* x112937 stalin.sc:12381:432121 */ t59461 = p12624->a24683; /* x112938 stalin.sc:12381:432125 */ t59462 = p12624->a24684; /* x112936 stalin.sc:12381:432103 */ return f12511(t59461, t59462); l9191: /* x113066 */ /* x112945 */ /* x112943 */ t59425 = a24685; /* x112944 */ t59426 = q78; /* x112942 */ t59427.tag = EXTERNAL_SYMBOL_TYPE; t59427.value.external_symbol_type = t59425; t59428.tag = EXTERNAL_SYMBOL_TYPE; t59428.value.external_symbol_type = t59426; if (f26160(t59427, t59428)==FALSE_TYPE) goto l9193; /* x112951 */ /* x112950 */ t59457 = p12603; p12625 = t59457; /* x112949 stalin.sc:12382:432153 */ /* x112947 stalin.sc:12382:432172 */ t59458 = p12625->a24683; /* x112948 stalin.sc:12382:432176 */ t59459 = p12625->a24684; /* x112946 stalin.sc:12382:432154 */ return f12511(t59458, t59459); l9193: /* x113065 */ /* x112955 */ /* x112953 */ t59429 = a24685; /* x112954 */ t59430 = q38; /* x112952 */ t59431.tag = EXTERNAL_SYMBOL_TYPE; t59431.value.external_symbol_type = t59429; t59432.tag = EXTERNAL_SYMBOL_TYPE; t59432.value.external_symbol_type = t59430; if (f26160(t59431, t59432)==FALSE_TYPE) goto l9195; /* x112961 */ /* x112960 */ t59454 = p12603; p12626 = t59454; /* x112959 stalin.sc:12383:432193 */ /* x112957 stalin.sc:12383:432212 */ t59455 = p12626->a24683; /* x112958 stalin.sc:12383:432216 */ t59456 = p12626->a24684; /* x112956 stalin.sc:12383:432194 */ return f12511(t59455, t59456); l9195: /* x113064 */ /* x112965 */ /* x112963 */ t59433 = a24685; /* x112964 */ t59434 = q36; /* x112962 */ t59435.tag = EXTERNAL_SYMBOL_TYPE; t59435.value.external_symbol_type = t59433; t59436.tag = EXTERNAL_SYMBOL_TYPE; t59436.value.external_symbol_type = t59434; if (f26160(t59435, t59436)==FALSE_TYPE) goto l9197; /* x113050 */ /* x113049 */ t59443 = p12603; p12627 = t59443; /* x113048 stalin.sc:12386:432301 */ /* x113046 stalin.sc:12386:432317 */ /* x113042 stalin.sc:12386:432323 */ /* x113041 stalin.sc:12386:432342 */ t59450 = p12627->a24684; /* x113040 stalin.sc:12386:432324 */ a38856 = t59450; /* x288093 */ /* x288092 */ t59451 = a38856; /* x288091 */ if (!((t59451.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33773]"); structure_ref_error();} t59448 = t59451.value.structure_type27698->s21; /* x113045 stalin.sc:12386:432345 */ /* x113044 stalin.sc:12386:432367 */ t59452 = p12627->a24684; /* x113043 stalin.sc:12386:432346 */ a38598 = t59452; /* x287061 */ /* x287060 */ t59453 = a38598; /* x287059 */ if (!((t59453.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33515]"); structure_ref_error();} t59449 = t59453.value.structure_type27698->s22; /* x269390 stalin.sc:12386:432318 */ t59445 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t59445==NULL) {backtrace("stalin.sc", 12386, 432317); out_of_memory_error();} t59445->s0 = t59448; t59445->s1 = *((struct w49 *)(&t59449)); /* x113047 stalin.sc:12387:432384 */ /* x113038 */ /* x113037 */ /* x113036 */ /* x113035 */ t59446 = p12627; p12628 = t59446; /* x113034 */ /* x113033 */ /* x113032 */ /* x112967 */ t59447 = p12628; p12629 = t59447; /* x112966 stalin.sc:12386:432306 */ t59444 = p12629; d12630 = t59444; b24693.tag = STRUCTURE_TYPE24753; b24693.value.structure_type24753 = t59445; b24694 = (struct structure_type24753 *)NULL_TYPE; return f12630(); l9197: /* x113063 */ /* x113054 */ /* x113052 */ t59437 = a24685; /* x113053 */ t59438 = q37; /* x113051 */ t59439.tag = EXTERNAL_SYMBOL_TYPE; t59439.value.external_symbol_type = t59437; t59440.tag = EXTERNAL_SYMBOL_TYPE; t59440.value.external_symbol_type = t59438; if (f26160(t59439, t59440)==FALSE_TYPE) goto l9199; /* x113058 */ /* x113057 */ /* x113056 stalin.sc:12403:432939 */ /* x113055 stalin.sc:12403:432940 */ /* x297017 QobiScheme.sc:166:5314 */ /* x297016 QobiScheme.sc:166:5321 */ t59442 = "This shouldn\'t happen"; /* x297015 QobiScheme.sc:166:5315 */ stalin_panic(t59442); l9199: /* x113062 */ /* x113061 */ /* x113060 stalin.sc:12404:432959 */ /* x113059 stalin.sc:12404:432960 */ /* x297021 QobiScheme.sc:166:5314 */ /* x297020 QobiScheme.sc:166:5321 */ t59441 = "This shouldn\'t happen"; /* x297019 QobiScheme.sc:166:5315 */ stalin_panic(t59441);} /* NONCONVERT-TO-CPS[12566] */ struct w49 f12566(struct w49 a24673) {struct w49 r12566; struct w49 a19118; /* S */ struct w49 a19128; /* S */ struct structure_type27692 *a24675; /* G */ char *a24676; /* v */ struct structure_type27692 *a24677; /* G */ struct structure_type24753 *a34865; /* OBJS */ struct w49 a38494; /* S */ struct w49 a38606; /* S */ struct w49 a38882; /* S */ struct w49 a38937; /* S */ struct w49 a38992; /* S */ struct w49 a39054; /* S */ struct w49 a39092; /* S */ struct w49 a39188; /* S */ struct w49 a39189; /* S */ struct w49 a39190; /* S */ struct w49 a39423; /* S */ struct w49 a39465; /* S */ struct w49 a40230; /* S */ struct w49 t59642; char *t59643; char *t59644; char *t59645; struct w49 t59646; struct w49 t59647; char *t59648; char *t59649; struct w49 t59650; struct w49 t59651; char *t59652; char *t59653; struct w49 t59654; struct w49 t59655; char *t59656; char *t59657; struct w49 t59658; struct w49 t59659; char *t59660; char *t59661; struct w49 t59662; struct w49 t59663; char *t59664; char *t59665; struct w49 t59666; struct w49 t59667; char *t59668; char *t59669; struct w49 t59670; struct w49 t59671; char *t59672; char *t59673; struct w49 t59674; struct w49 t59675; char *t59676; char *t59677; struct w49 t59678; struct w49 t59679; char *t59680; char *t59681; struct w49 t59682; struct w49 t59683; char *t59684; char *t59685; struct w49 t59686; struct w49 t59687; char *t59688; char *t59689; struct w49 t59690; struct w49 t59691; char *t59692; char *t59693; struct w49 t59694; struct w49 t59695; char *t59696; char *t59697; struct w49 t59698; struct w49 t59699; char *t59700; char *t59701; struct w49 t59702; struct w49 t59703; char *t59704; char *t59705; struct w49 t59706; struct w49 t59707; char *t59708; char *t59709; struct w49 t59710; struct w49 t59711; char *t59712; char *t59713; struct w49 t59714; struct w49 t59715; char *t59716; char *t59717; struct w49 t59718; struct w49 t59719; char *t59720; char *t59721; struct w49 t59722; struct w49 t59723; char *t59724; char *t59725; struct w49 t59726; struct w49 t59727; char *t59728; char *t59729; struct w49 t59730; struct w49 t59731; struct structure_type24753 *t59732; struct w12224 t59733; struct structure_type27698 *t59734; struct w49 t59735; struct w49 t59736; struct w49 t59737; struct w11873 t59738; struct w36270 t59739; struct w49 t59740; struct structure_type24753 *t59741; struct w49 t59742; struct w49 t59743; struct w49 t59744; struct w49 t59745; struct w49 t59746; struct w49 t59747; struct structure_type27698 *t59748; struct w49 t59749; struct w49 t59750; struct w49 t59751; struct w49 t59752; struct w49 t59753; struct w49 t59754; struct w49 t59755; struct w49 t59756; struct w49 t59757; struct w49 t59758; struct w49 t59759; struct w49 t59760; struct structure_type27698 *t59761; struct w49 t59762; struct w49 t59763; struct w49 t59764; struct w49 t59765; struct w49 t59766; char *t59767; struct w49 t59768; struct w49 t59769; struct w49 t59770; struct w49 t59771; struct w49 t59772; struct w9140 t59773; struct w9296 t59774; struct w49 t59775; struct structure_type27698 *t59776; struct w49 t59777; struct w49 t59778; struct w49 t59779; struct w49 t59780; struct w49 t59781; struct w49 t59782; struct w49 t59783; struct structure_type27692 *t59784; struct w49 t59785; struct w9140 t59786; struct structure_type24753 *t59787; struct structure_type27698 *t59788; unsigned t59789; struct structure_type27698 *t59790; struct structure_type27698 *t59791; struct w49 t59792; struct w49 t59793; struct structure_type27692 *t59794; struct w9296 t59795; struct w49 t59796; struct w49 t59797; struct structure_type27692 *t59798; struct w49 t59799; struct w49 t59800; struct w49 t59801; char *t59802; struct w49 t59803; struct w49 t59804; struct structure_type27698 *t59805; struct w49 t59806; struct structure_type27698 *t59807; struct structure_type27692 *t59808; struct w49 t59809; struct structure_type27694 *t59810; struct structure_type24753 *t59811; struct structure_type27698 *t59812; unsigned t59813; struct structure_type27698 *t59814; char *t59815; struct w49 t59816; char *t59817; struct structure_type27692 *t59818; struct w49 t59819; struct structure_type27692 *t59820; struct w49 t59821; char *t59822; struct w49 t59823; char *t59824; /* x112584 */ /* x112583 stalin.sc:12244:427336 */ /* x112576 stalin.sc:12244:427342 */ /* x112575 stalin.sc:12244:427379 */ t59823 = a24673; /* x112574 stalin.sc:12244:427343 */ if (f6941(t59823)==FALSE_TYPE) goto l9253; /* x112580 */ /* x112579 */ /* x112578 stalin.sc:12244:427382 */ /* x112577 stalin.sc:12244:427383 */ /* x295173 QobiScheme.sc:166:5314 */ /* x295172 QobiScheme.sc:166:5321 */ t59824 = "This shouldn\'t happen"; /* x295171 QobiScheme.sc:166:5315 */ stalin_panic(t59824); goto l9254; l9253: /* x112582 stalin.sc:12244:427336 */ /* x112581 stalin.sc:12244:427336 */ l9254: /* x112573 */ /* x112572 stalin.sc:12245:427394 */ /* x112276 stalin.sc:12245:427398 */ /* x112275 stalin.sc:12245:427440 */ t59642 = a24673; /* x112274 stalin.sc:12245:427399 */ if (f6946(t59642)==FALSE_TYPE) goto l9206; /* x112298 stalin.sc:12247:427481 */ /* x112296 stalin.sc:12247:427497 */ /* x112295 stalin.sc:12247:427506 */ /* x112294 stalin.sc:12247:427524 */ t59822 = "x"; /* x112293 stalin.sc:12247:427507 */ t59808 = f12512(t59822); /* x112292 */ a24675 = t59808; /* x112291 stalin.sc:12248:427539 */ /* x112279 stalin.sc:12249:427590 */ t59809 = a24673; /* x112283 stalin.sc:12251:427657 */ /* x112281 stalin.sc:12251:427677 */ /* x112282 stalin.sc:12251:427680 */ t59815 = "continuation"; /* x112280 stalin.sc:12251:427658 */ t59816.tag = FALSE_TYPE; t59817 = t59815; t59810 = f8468(t59816, t59817); /* x112286 stalin.sc:12252:427705 */ /* x112285 stalin.sc:12252:427711 */ t59818 = a24675; /* x112284 stalin.sc:12252:427706 */ a34865 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34865==NULL) {backtrace("stalin.sc", 12252, 427705); out_of_memory_error();} a34865->s0.tag = STRUCTURE_TYPE27692; a34865->s0.value.structure_type27692 = t59818; a34865->s1.tag = NULL_TYPE; /* x271737 */ t59811 = a34865; /* x112290 stalin.sc:12253:427723 */ /* x112288 stalin.sc:12253:427749 */ t59819 = a24673; /* x112289 stalin.sc:12253:427751 */ t59820 = a24675; /* x112287 stalin.sc:12253:427724 */ t59821.tag = STRUCTURE_TYPE27692; t59821.value.structure_type27692 = t59820; t59812 = f6890(t59819, t59821); /* x112278 stalin.sc:12248:427540 */ t59813 = ((unsigned)t59811)+1; t59814 = t59812; t59805 = f6908(t59809, t59810, t59813, t59814); /* x112297 stalin.sc:12254:427763 */ t59806 = a24673; /* x112277 stalin.sc:12247:427482 */ b24649 = (unsigned)t59805; b24650 = t59806; t59807 = f12513(); r12566.tag = STRUCTURE_TYPE27698; r12566.value.structure_type27698 = t59807; return r12566; l9206: /* x112571 stalin.sc:12255:427771 */ /* x112570 stalin.sc:12255:427777 */ /* x112569 stalin.sc:12255:427794 */ t59803 = a24673; /* x112568 stalin.sc:12255:427778 */ a40230 = t59803; /* x293589 */ /* x293588 */ t59804 = a40230; /* x293587 */ if (!((t59804.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35147]"); structure_ref_error();} t59643 = t59804.value.structure_type27698->s0; /* x112567 */ a24676 = t59643; /* x112566 */ /* x112302 */ /* x112300 */ t59644 = a24676; /* x112301 */ t59645 = q68; /* x112299 */ t59646.tag = EXTERNAL_SYMBOL_TYPE; t59646.value.external_symbol_type = t59644; t59647.tag = EXTERNAL_SYMBOL_TYPE; t59647.value.external_symbol_type = t59645; if (f26160(t59646, t59647)==FALSE_TYPE) goto l9208; /* x112305 */ /* x112304 */ /* x112303 stalin.sc:12256:427820 */ return a24673; l9208: /* x112565 */ /* x112309 */ /* x112307 */ t59648 = a24676; /* x112308 */ t59649 = q69; /* x112306 */ t59650.tag = EXTERNAL_SYMBOL_TYPE; t59650.value.external_symbol_type = t59648; t59651.tag = EXTERNAL_SYMBOL_TYPE; t59651.value.external_symbol_type = t59649; if (f26160(t59650, t59651)==FALSE_TYPE) goto l9210; /* x112312 */ /* x112311 */ /* x112310 stalin.sc:12257:427846 */ return a24673; l9210: /* x112564 */ /* x112316 */ /* x112314 */ t59652 = a24676; /* x112315 */ t59653 = q70; /* x112313 */ t59654.tag = EXTERNAL_SYMBOL_TYPE; t59654.value.external_symbol_type = t59652; t59655.tag = EXTERNAL_SYMBOL_TYPE; t59655.value.external_symbol_type = t59653; if (f26160(t59654, t59655)==FALSE_TYPE) goto l9212; /* x112319 */ /* x112318 */ /* x112317 stalin.sc:12258:427873 */ return a24673; l9212: /* x112563 */ /* x112323 */ /* x112321 */ t59656 = a24676; /* x112322 */ t59657 = q71; /* x112320 */ t59658.tag = EXTERNAL_SYMBOL_TYPE; t59658.value.external_symbol_type = t59656; t59659.tag = EXTERNAL_SYMBOL_TYPE; t59659.value.external_symbol_type = t59657; if (f26160(t59658, t59659)==FALSE_TYPE) goto l9214; /* x112326 */ /* x112325 */ /* x112324 stalin.sc:12259:427899 */ return a24673; l9214: /* x112562 */ /* x112330 */ /* x112328 */ t59660 = a24676; /* x112329 */ t59661 = q72; /* x112327 */ t59662.tag = EXTERNAL_SYMBOL_TYPE; t59662.value.external_symbol_type = t59660; t59663.tag = EXTERNAL_SYMBOL_TYPE; t59663.value.external_symbol_type = t59661; if (f26160(t59662, t59663)==FALSE_TYPE) goto l9216; /* x112333 */ /* x112332 */ /* x112331 stalin.sc:12260:427927 */ return a24673; l9216: /* x112561 */ /* x112337 */ /* x112335 */ t59664 = a24676; /* x112336 */ t59665 = q73; /* x112334 */ t59666.tag = EXTERNAL_SYMBOL_TYPE; t59666.value.external_symbol_type = t59664; t59667.tag = EXTERNAL_SYMBOL_TYPE; t59667.value.external_symbol_type = t59665; if (f26160(t59666, t59667)==FALSE_TYPE) goto l9218; /* x112340 */ /* x112339 */ /* x112338 stalin.sc:12261:427955 */ return a24673; l9218: /* x112560 */ /* x112344 */ /* x112342 */ t59668 = a24676; /* x112343 */ t59669 = q74; /* x112341 */ t59670.tag = EXTERNAL_SYMBOL_TYPE; t59670.value.external_symbol_type = t59668; t59671.tag = EXTERNAL_SYMBOL_TYPE; t59671.value.external_symbol_type = t59669; if (f26160(t59670, t59671)==FALSE_TYPE) goto l9220; /* x112347 */ /* x112346 */ /* x112345 stalin.sc:12262:427988 */ return a24673; l9220: /* x112559 */ /* x112351 */ /* x112349 */ t59672 = a24676; /* x112350 */ t59673 = q75; /* x112348 */ t59674.tag = EXTERNAL_SYMBOL_TYPE; t59674.value.external_symbol_type = t59672; t59675.tag = EXTERNAL_SYMBOL_TYPE; t59675.value.external_symbol_type = t59673; if (f26160(t59674, t59675)==FALSE_TYPE) goto l9222; /* x112354 */ /* x112353 */ /* x112352 stalin.sc:12263:428016 */ return a24673; l9222: /* x112558 */ /* x112358 */ /* x112356 */ t59676 = a24676; /* x112357 */ t59677 = q76; /* x112355 */ t59678.tag = EXTERNAL_SYMBOL_TYPE; t59678.value.external_symbol_type = t59676; t59679.tag = EXTERNAL_SYMBOL_TYPE; t59679.value.external_symbol_type = t59677; if (f26160(t59678, t59679)==FALSE_TYPE) goto l9224; /* x112361 */ /* x112360 */ /* x112359 stalin.sc:12264:428044 */ return a24673; l9224: /* x112557 */ /* x112365 */ /* x112363 */ t59680 = a24676; /* x112364 */ t59681 = q50; /* x112362 */ t59682.tag = EXTERNAL_SYMBOL_TYPE; t59682.value.external_symbol_type = t59680; t59683.tag = EXTERNAL_SYMBOL_TYPE; t59683.value.external_symbol_type = t59681; if (f26160(t59682, t59683)==FALSE_TYPE) goto l9226; /* x112368 */ /* x112367 */ /* x112366 stalin.sc:12265:428070 */ return a24673; l9226: /* x112556 */ /* x112372 */ /* x112370 */ t59684 = a24676; /* x112371 */ t59685 = q52; /* x112369 */ t59686.tag = EXTERNAL_SYMBOL_TYPE; t59686.value.external_symbol_type = t59684; t59687.tag = EXTERNAL_SYMBOL_TYPE; t59687.value.external_symbol_type = t59685; if (f26160(t59686, t59687)==FALSE_TYPE) goto l9228; /* x112375 */ /* x112374 */ /* x112373 stalin.sc:12266:428098 */ return a24673; l9228: /* x112555 */ /* x112379 */ /* x112377 */ t59688 = a24676; /* x112378 */ t59689 = q39; /* x112376 */ t59690.tag = EXTERNAL_SYMBOL_TYPE; t59690.value.external_symbol_type = t59688; t59691.tag = EXTERNAL_SYMBOL_TYPE; t59691.value.external_symbol_type = t59689; if (f26160(t59690, t59691)==FALSE_TYPE) goto l9230; /* x112435 */ /* x112434 */ /* x112433 stalin.sc:12269:428182 */ /* x112382 stalin.sc:12269:428189 */ /* x112381 stalin.sc:12269:428196 */ t59768 = a24673; /* x112380 stalin.sc:12269:428190 */ if (f8918(t59768)==FALSE_TYPE) goto l9249; /* x112385 */ /* x112384 */ /* x112383 stalin.sc:12269:428199 */ return a24673; l9249: /* x112432 */ /* x112390 stalin.sc:12270:428209 */ /* x112389 stalin.sc:12270:428246 */ /* x112388 stalin.sc:12270:428263 */ t59770 = a24673; /* x112387 stalin.sc:12270:428247 */ a39190 = t59770; /* x289429 */ /* x289428 */ t59771 = a39190; /* x289427 */ if (!((t59771.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34107]"); structure_ref_error();} t59769 = t59771.value.structure_type27698->s15; /* x112386 stalin.sc:12270:428210 */ if (f6941(t59769)==FALSE_TYPE) goto l9251; /* x112415 */ /* x112414 */ /* x112413 stalin.sc:12271:428274 */ /* x112412 stalin.sc:12271:428283 */ /* x112411 stalin.sc:12271:428301 */ t59802 = "c"; /* x112410 stalin.sc:12271:428284 */ t59784 = f12512(t59802); /* x112409 */ a24677 = t59784; /* x112408 stalin.sc:12272:428316 */ /* x112392 stalin.sc:12273:428354 */ t59785 = a24673; /* x112395 stalin.sc:12274:428358 */ /* x112394 stalin.sc:12274:428389 */ t59792 = a24673; /* x112393 stalin.sc:12274:428359 */ a19118 = t59792; /* x50148 */ /* x50147 */ t59793 = a19118; /* x50146 */ if (!((t59793.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-LAMBDA-ENVIRONMENT[5591]"); structure_ref_error();} t59786 = t59793.value.structure_type27698->s13; /* x112401 stalin.sc:12275:428394 */ /* x112397 stalin.sc:12275:428400 */ t59794 = a24677; /* x112400 stalin.sc:12275:428402 */ /* x112399 stalin.sc:12275:428425 */ t59796 = a24673; /* x112398 stalin.sc:12275:428403 */ a19128 = t59796; /* x50187 */ /* x50186 */ t59797 = a19128; /* x50185 */ if (!((t59797.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-PARAMETERS[5599]"); structure_ref_error();} t59795 = t59797.value.structure_type27698->s14; /* x269395 stalin.sc:12275:428395 */ t59787 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t59787==NULL) {backtrace("stalin.sc", 12275, 428394); out_of_memory_error();} t59787->s0.tag = STRUCTURE_TYPE27692; t59787->s0.value.structure_type27692 = t59794; t59787->s1 = *((struct w49 *)(&t59795)); /* x112407 stalin.sc:12276:428431 */ /* x112403 stalin.sc:12276:428447 */ t59798 = a24677; /* x112406 stalin.sc:12276:428449 */ /* x112405 stalin.sc:12276:428466 */ t59800 = a24673; /* x112404 stalin.sc:12276:428450 */ a39188 = t59800; /* x289421 */ /* x289420 */ t59801 = a39188; /* x289419 */ if (!((t59801.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34105]"); structure_ref_error();} t59799 = t59801.value.structure_type27698->s15; /* x112402 stalin.sc:12276:428432 */ b24649 = ((unsigned)t59798)+1; b24650 = t59799; t59788 = f12513(); /* x112391 stalin.sc:12272:428317 */ t59789 = ((unsigned)t59787)+1; t59790 = t59788; t59791 = f6902(t59785, t59786, t59789, t59790); r12566.tag = STRUCTURE_TYPE27698; r12566.value.structure_type27698 = t59791; return r12566; l9251: /* x112431 */ /* x112430 */ /* x112429 stalin.sc:12277:428485 */ /* x112417 stalin.sc:12278:428517 */ t59772 = a24673; /* x112420 stalin.sc:12279:428525 */ /* x112419 stalin.sc:12279:428556 */ t59777 = a24673; /* x112418 stalin.sc:12279:428526 */ a39465 = t59777; /* x290529 */ /* x290528 */ t59778 = a39465; /* x290527 */ if (!((t59778.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34382]"); structure_ref_error();} t59773 = t59778.value.structure_type27698->s13; /* x112423 stalin.sc:12280:428565 */ /* x112422 stalin.sc:12280:428588 */ t59779 = a24673; /* x112421 stalin.sc:12280:428566 */ a39423 = t59779; /* x290361 */ /* x290360 */ t59780 = a39423; /* x290359 */ if (!((t59780.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34340]"); structure_ref_error();} t59774 = t59780.value.structure_type27698->s14; /* x112428 stalin.sc:12281:428597 */ /* x112427 stalin.sc:12281:428616 */ /* x112426 stalin.sc:12281:428633 */ t59782 = a24673; /* x112425 stalin.sc:12281:428617 */ a39189 = t59782; /* x289425 */ /* x289424 */ t59783 = a39189; /* x289423 */ if (!((t59783.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34106]"); structure_ref_error();} t59781 = t59783.value.structure_type27698->s15; /* x112424 stalin.sc:12281:428598 */ t59775 = f12566(t59781); /* x112416 stalin.sc:12277:428486 */ t59776 = f6896(t59772, t59773, t59774, t59775); r12566.tag = STRUCTURE_TYPE27698; r12566.value.structure_type27698 = t59776; return r12566; l9230: /* x112554 */ /* x112448 */ /* x112447 */ /* x112445 */ t59692 = a24676; /* x112446 */ t59693 = q40; /* x112444 */ t59694.tag = EXTERNAL_SYMBOL_TYPE; t59694.value.external_symbol_type = t59692; t59695.tag = EXTERNAL_SYMBOL_TYPE; t59695.value.external_symbol_type = t59693; if (!(f26160(t59694, t59695)==FALSE_TYPE)) goto l9231; /* x112441 */ /* x112439 */ t59696 = a24676; /* x112440 */ t59697 = q41; /* x112438 */ t59698.tag = EXTERNAL_SYMBOL_TYPE; t59698.value.external_symbol_type = t59696; t59699.tag = EXTERNAL_SYMBOL_TYPE; t59699.value.external_symbol_type = t59697; if (f26160(t59698, t59699)==FALSE_TYPE) goto l9232; l9231: /* x112452 */ /* x112451 */ /* x112450 stalin.sc:12282:428690 */ /* x112449 stalin.sc:12282:428691 */ /* x295161 QobiScheme.sc:166:5314 */ /* x295160 QobiScheme.sc:166:5321 */ t59767 = "This shouldn\'t happen"; /* x295159 QobiScheme.sc:166:5315 */ stalin_panic(t59767); l9232: /* x112553 */ /* x112456 */ /* x112454 */ t59700 = a24676; /* x112455 */ t59701 = q42; /* x112453 */ t59702.tag = EXTERNAL_SYMBOL_TYPE; t59702.value.external_symbol_type = t59700; t59703.tag = EXTERNAL_SYMBOL_TYPE; t59703.value.external_symbol_type = t59701; if (f26160(t59702, t59703)==FALSE_TYPE) goto l9235; /* x112469 */ /* x112468 */ /* x112467 stalin.sc:12284:428722 */ /* x112458 stalin.sc:12285:428747 */ t59758 = a24673; /* x112461 stalin.sc:12285:428749 */ /* x112460 stalin.sc:12285:428770 */ t59762 = a24673; /* x112459 stalin.sc:12285:428750 */ a39092 = t59762; /* x289037 */ /* x289036 */ t59763 = a39092; /* x289035 */ if (!((t59763.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34009]"); structure_ref_error();} t59759 = t59763.value.structure_type27698->s16; /* x112466 stalin.sc:12285:428773 */ /* x112465 stalin.sc:12285:428792 */ /* x112464 stalin.sc:12285:428811 */ t59765 = a24673; /* x112463 stalin.sc:12285:428793 */ a39054 = t59765; /* x288885 */ /* x288884 */ t59766 = a39054; /* x288883 */ if (!((t59766.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33971]"); structure_ref_error();} t59764 = t59766.value.structure_type27698->s17; /* x112462 stalin.sc:12285:428774 */ t59760 = f12566(t59764); /* x112457 stalin.sc:12284:428723 */ t59761 = f6914(t59758, t59759, t59760); r12566.tag = STRUCTURE_TYPE27698; r12566.value.structure_type27698 = t59761; return r12566; l9235: /* x112552 */ /* x112473 */ /* x112471 */ t59704 = a24676; /* x112472 */ t59705 = q43; /* x112470 */ t59706.tag = EXTERNAL_SYMBOL_TYPE; t59706.value.external_symbol_type = t59704; t59707.tag = EXTERNAL_SYMBOL_TYPE; t59707.value.external_symbol_type = t59705; if (f26160(t59706, t59707)==FALSE_TYPE) goto l9237; /* x112493 */ /* x112492 */ /* x112491 stalin.sc:12287:428836 */ /* x112475 stalin.sc:12287:428858 */ t59744 = a24673; /* x112480 stalin.sc:12288:428868 */ /* x112479 stalin.sc:12288:428887 */ /* x112478 stalin.sc:12288:428910 */ t59750 = a24673; /* x112477 stalin.sc:12288:428888 */ a38992 = t59750; /* x288637 */ /* x288636 */ t59751 = a38992; /* x288635 */ if (!((t59751.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33909]"); structure_ref_error();} t59749 = t59751.value.structure_type27698->s18; /* x112476 stalin.sc:12288:428869 */ t59745 = f12566(t59749); /* x112485 stalin.sc:12289:428922 */ /* x112484 stalin.sc:12289:428941 */ /* x112483 stalin.sc:12289:428964 */ t59753 = a24673; /* x112482 stalin.sc:12289:428942 */ a38937 = t59753; /* x288417 */ /* x288416 */ t59754 = a38937; /* x288415 */ if (!((t59754.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33854]"); structure_ref_error();} t59752 = t59754.value.structure_type27698->s19; /* x112481 stalin.sc:12289:428923 */ t59746 = f12566(t59752); /* x112490 stalin.sc:12290:428976 */ /* x112489 stalin.sc:12290:428995 */ /* x112488 stalin.sc:12290:429017 */ t59756 = a24673; /* x112487 stalin.sc:12290:428996 */ a38882 = t59756; /* x288197 */ /* x288196 */ t59757 = a38882; /* x288195 */ if (!((t59757.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33799]"); structure_ref_error();} t59755 = t59757.value.structure_type27698->s20; /* x112486 stalin.sc:12290:428977 */ t59747 = f12566(t59755); /* x112474 stalin.sc:12287:428837 */ t59748 = f6920(t59744, t59745, t59746, t59747); r12566.tag = STRUCTURE_TYPE27698; r12566.value.structure_type27698 = t59748; return r12566; l9237: /* x112551 */ /* x112497 */ /* x112495 */ t59708 = a24676; /* x112496 */ t59709 = q77; /* x112494 */ t59710.tag = EXTERNAL_SYMBOL_TYPE; t59710.value.external_symbol_type = t59708; t59711.tag = EXTERNAL_SYMBOL_TYPE; t59711.value.external_symbol_type = t59709; if (f26160(t59710, t59711)==FALSE_TYPE) goto l9239; /* x112500 */ /* x112499 */ /* x112498 stalin.sc:12291:429052 */ return a24673; l9239: /* x112550 */ /* x112504 */ /* x112502 */ t59712 = a24676; /* x112503 */ t59713 = q78; /* x112501 */ t59714.tag = EXTERNAL_SYMBOL_TYPE; t59714.value.external_symbol_type = t59712; t59715.tag = EXTERNAL_SYMBOL_TYPE; t59715.value.external_symbol_type = t59713; if (f26160(t59714, t59715)==FALSE_TYPE) goto l9241; /* x112507 */ /* x112506 */ /* x112505 stalin.sc:12292:429082 */ return a24673; l9241: /* x112549 */ /* x112511 */ /* x112509 */ t59716 = a24676; /* x112510 */ t59717 = q38; /* x112508 */ t59718.tag = EXTERNAL_SYMBOL_TYPE; t59718.value.external_symbol_type = t59716; t59719.tag = EXTERNAL_SYMBOL_TYPE; t59719.value.external_symbol_type = t59717; if (f26160(t59718, t59719)==FALSE_TYPE) goto l9243; /* x112514 */ /* x112513 */ /* x112512 stalin.sc:12293:429101 */ return a24673; l9243: /* x112548 */ /* x112518 */ /* x112516 */ t59720 = a24676; /* x112517 */ t59721 = q36; /* x112515 */ t59722.tag = EXTERNAL_SYMBOL_TYPE; t59722.value.external_symbol_type = t59720; t59723.tag = EXTERNAL_SYMBOL_TYPE; t59723.value.external_symbol_type = t59721; if (f26160(t59722, t59723)==FALSE_TYPE) goto l9245; /* x112534 */ /* x112533 */ /* x112532 stalin.sc:12295:429125 */ /* x112520 stalin.sc:12296:429150 */ t59730 = a24673; /* x112525 stalin.sc:12297:429153 */ /* x112524 stalin.sc:12297:429172 */ /* x112523 stalin.sc:12297:429191 */ t59736 = a24673; /* x112522 stalin.sc:12297:429173 */ a38606 = t59736; /* x287093 */ /* x287092 */ t59737 = a38606; /* x287091 */ if (!((t59737.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33523]"); structure_ref_error();} t59735 = t59737.value.structure_type27698->s21; /* x112521 stalin.sc:12297:429154 */ t59731 = f12566(t59735); /* x112531 stalin.sc:12298:429196 */ /* x112530 stalin.sc:12298:429219 */ /* x112529 stalin.sc:12298:429241 */ t59742 = a24673; /* x112528 stalin.sc:12298:429220 */ a38494 = t59742; /* x286645 */ /* x286644 */ t59743 = a38494; /* x286643 */ if (!((t59743.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33411]"); structure_ref_error();} t59738 = t59743.value.structure_type27698->s22; /* x112527 stalin.sc:12298:429201 */ /* x112526 stalin.sc:12298:429197 */ t59739.tag = NATIVE_PROCEDURE_TYPE7052; t59740 = *((struct w49 *)(&t59738)); t59741 = (struct structure_type24753 *)NULL_TYPE; t59732 = f27731(t59739, t59740, t59741); /* x112519 stalin.sc:12295:429126 */ /* MOVE: branching squeezed to general */ if (t59732>=((struct structure_type24753 *)VALUE_OFFSET)) {t59733.tag = STRUCTURE_TYPE24753; t59733.value.structure_type24753 = t59732;} else t59733.tag = (unsigned)t59732; t59734 = f6878(t59730, t59731, t59733); r12566.tag = STRUCTURE_TYPE27698; r12566.value.structure_type27698 = t59734; return r12566; l9245: /* x112547 */ /* x112538 */ /* x112536 */ t59724 = a24676; /* x112537 */ t59725 = q37; /* x112535 */ t59726.tag = EXTERNAL_SYMBOL_TYPE; t59726.value.external_symbol_type = t59724; t59727.tag = EXTERNAL_SYMBOL_TYPE; t59727.value.external_symbol_type = t59725; if (f26160(t59726, t59727)==FALSE_TYPE) goto l9247; /* x112542 */ /* x112541 */ /* x112540 stalin.sc:12299:429271 */ /* x112539 stalin.sc:12299:429272 */ /* x295165 QobiScheme.sc:166:5314 */ /* x295164 QobiScheme.sc:166:5321 */ t59729 = "This shouldn\'t happen"; /* x295163 QobiScheme.sc:166:5315 */ stalin_panic(t59729); l9247: /* x112546 */ /* x112545 */ /* x112544 stalin.sc:12300:429294 */ /* x112543 stalin.sc:12300:429295 */ /* x295169 QobiScheme.sc:166:5314 */ /* x295168 QobiScheme.sc:166:5321 */ t59728 = "This shouldn\'t happen"; /* x295167 QobiScheme.sc:166:5315 */ stalin_panic(t59728);} /* [inside LOOP 12557] */ struct structure_type27698 *f12557(struct p12513 *p12557, struct w49 a24669) {struct w49 t59825; struct w49 t59826; /* x112133 stalin.sc:12225:426622 */ /* x112131 stalin.sc:12225:426648 */ t59825 = p12557->a24650; /* x112132 stalin.sc:12225:426650 */ t59826 = a24669; /* x112130 stalin.sc:12225:426623 */ return f6890(t59825, t59826);} /* LOOP[12556] */ struct structure_type27698 *f12556(void) {struct p12513 *p12556 = d12556; struct w49 a24667 = b24667; /* XS1 */ struct structure_type24753 *a24668 = b24668; /* GS */ struct structure_type27692 *a24670; /* G1 */ struct structure_type27698 *a24671; /* X1 */ struct structure_type24753 *a34873; /* OBJS */ struct structure_type24753 *a34874; /* OBJS */ struct w12224 a35331; /* PAIR */ struct w16638 a35332; /* PAIR */ struct w16638 a35646; /* PAIR */ struct w16638 a35647; /* PAIR */ struct w16638 a35648; /* PAIR */ struct w16638 a35649; /* PAIR */ struct w49 t59827; struct p12513 *t59828; struct structure_type27692 *t59829; struct p12513 *t59830; struct structure_type27698 *t59831; struct p12513 *t59832; struct w49 t59833; struct w16638 t59834; struct w16638 t59835; struct w49 t59836; struct w16638 t59837; struct w16638 t59838; struct w49 t59839; struct structure_type27698 *t59840; struct structure_type24753 *t59841; struct w49 t59842; struct w12224 t59843; struct w49 t59844; struct w49 t59845; struct w16638 t59846; struct w16638 t59847; struct structure_type27698 *t59848; struct w49 t59849; struct w16638 t59850; struct w16638 t59851; struct w49 t59852; struct structure_type27694 *t59853; struct structure_type24753 *t59854; struct structure_type27698 *t59855; unsigned t59856; struct structure_type27698 *t59857; char *t59858; struct w49 t59859; char *t59860; struct structure_type27692 *t59861; struct p12513 *t59862; struct w49 t59863; struct structure_type24753 *t59864; struct w16638 t59865; struct w16638 t59866; struct structure_type27692 *t59867; struct structure_type24753 *t59868; char *t59869; struct w49 t59870; struct structure_type27698 *t59871; struct structure_type24753 *t59872; struct structure_type24753 *t59873; struct w49 t59874; struct w49 t59875; struct structure_type24753 *t59876; struct w49 t59877; unsigned t59878; struct structure_type24753 *t59879; unsigned t59880; struct p12513 *t59881; struct w49 t59882; struct w36270 t59883; struct w49 t59884; struct structure_type24753 *t59885; struct w12224 t59886; struct w12224 t59887; struct structure_type24753 *t59888; struct w49 t59889; struct p12513 *p12558; struct p12513 *p12559; struct p12513 *p12560; /* x112204 stalin.sc:12220:426453 */ /* x112116 stalin.sc:12220:426457 */ /* x112115 stalin.sc:12220:426464 */ t59827 = a24667; /* x269399 stalin.sc:12220:426458 */ if (!((t59827.tag)==NULL_TYPE)) goto l9256; /* x112142 stalin.sc:12221:426472 */ /* x112118 stalin.sc:12222:426510 */ t59870 = p12556->a24650; /* x112124 stalin.sc:12223:426516 */ /* x112120 stalin.sc:12223:426542 */ t59874 = p12556->a24650; /* x112123 stalin.sc:12223:426544 */ /* x112122 stalin.sc:12223:426550 */ t59876 = a24668; /* x112121 stalin.sc:12223:426545 */ /* MOVE: branching squeezed to general */ if (t59876>=((struct structure_type24753 *)VALUE_OFFSET)) {t59877.tag = STRUCTURE_TYPE24753; t59877.value.structure_type24753 = t59876;} else t59877.tag = (unsigned)t59876; t59875 = f960(t59877); /* x112119 stalin.sc:12223:426517 */ t59871 = f6890(t59874, t59875); /* x112141 stalin.sc:12224:426559 */ /* x112128 stalin.sc:12224:426565 */ /* x112127 stalin.sc:12224:426597 */ t59880 = p12556->a24649; /* x112126 stalin.sc:12224:426566 */ t59878 = f12510(t59880); /* x112140 stalin.sc:12225:426605 */ /* x112139 stalin.sc:12226:426662 */ /* x112138 stalin.sc:12226:426668 */ /* x112137 stalin.sc:12226:426677 */ t59888 = a24668; /* x112136 stalin.sc:12226:426669 */ /* MOVE: branching squeezed to general */ if (t59888>=((struct structure_type24753 *)VALUE_OFFSET)) {t59889.tag = STRUCTURE_TYPE24753; t59889.value.structure_type24753 = t59888;} else t59889.tag = (unsigned)t59888; t59886 = f26331(t59889); /* x112135 stalin.sc:12226:426663 */ a35331 = t59886; /* x272681 */ /* x272680 */ t59887 = a35331; /* x272679 */ if (!((t59887.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29480]"); structure_ref_error();} t59882 = t59887.value.structure_type24753->s1; /* x112134 stalin.sc:12225:426610 */ t59881 = p12556; /* x112129 stalin.sc:12225:426606 */ t59883.tag = NATIVE_PROCEDURE_TYPE24209; t59883.value.native_procedure_type24209 = t59881; t59884 = t59882; t59885 = (struct structure_type24753 *)NULL_TYPE; t59879 = f27731(t59883, t59884, t59885); /* x269398 stalin.sc:12224:426560 */ t59872 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t59872==NULL) {backtrace("stalin.sc", 12224, 426559); out_of_memory_error();} /* MOVE: dispatching squished to general */ if ((t59878&3)==1) {t59872->s0.tag = STRUCTURE_TYPE27692; t59872->s0.value.structure_type27692 = (struct structure_type27692 *)(t59878-1);} else {t59872->s0.tag = STRUCTURE_TYPE27698; t59872->s0.value.structure_type27698 = (struct structure_type27698 *)t59878;} /* MOVE: branching squeezed to general */ if (t59879>=((struct structure_type24753 *)VALUE_OFFSET)) {t59872->s1.tag = STRUCTURE_TYPE24753; t59872->s1.value.structure_type24753 = t59879;} else t59872->s1.tag = (unsigned)t59879; /* x112117 stalin.sc:12221:426473 */ t59873 = t59872; return f6884(t59870, t59871, t59873); l9256: /* x112203 stalin.sc:12227:426688 */ /* x112202 stalin.sc:12227:426699 */ /* x112201 stalin.sc:12227:426717 */ t59869 = "x"; /* x112200 stalin.sc:12227:426700 */ t59829 = f12512(t59869); /* x112199 */ t59828 = p12556; p12558 = t59828; a24670 = t59829; /* x112198 */ /* x112197 stalin.sc:12228:426730 */ /* x112180 stalin.sc:12229:426780 */ t59852 = p12558->a24650; /* x112184 stalin.sc:12231:426845 */ /* x112182 stalin.sc:12231:426865 */ /* x112183 stalin.sc:12231:426868 */ t59858 = "continuation"; /* x112181 stalin.sc:12231:426846 */ t59859.tag = FALSE_TYPE; t59860 = t59858; t59853 = f8468(t59859, t59860); /* x112187 stalin.sc:12232:426892 */ /* x112186 stalin.sc:12232:426898 */ t59861 = a24670; /* x112185 stalin.sc:12232:426893 */ a34874 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34874==NULL) {backtrace("stalin.sc", 12232, 426892); out_of_memory_error();} a34874->s0.tag = STRUCTURE_TYPE27692; a34874->s0.value.structure_type27692 = t59861; a34874->s1.tag = NULL_TYPE; /* x271755 */ t59854 = a34874; /* x112196 stalin.sc:12233:426910 */ /* x112191 stalin.sc:12233:426916 */ /* x112190 stalin.sc:12233:426922 */ t59865 = *((struct w16638 *)(&a24667)); /* x112189 stalin.sc:12233:426917 */ a35332 = t59865; /* x272685 */ /* x272684 */ t59866 = a35332; /* x272683 */ if (!((t59866.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29481]"); structure_ref_error();} t59863 = t59866.value.structure_type24753->s1; /* x112195 stalin.sc:12233:426927 */ /* x112193 stalin.sc:12233:426933 */ t59867 = a24670; /* x112194 stalin.sc:12233:426936 */ t59868 = a24668; /* x269397 stalin.sc:12233:426928 */ t59864 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t59864==NULL) {backtrace("stalin.sc", 12233, 426927); out_of_memory_error();} t59864->s0.tag = STRUCTURE_TYPE27692; t59864->s0.value.structure_type27692 = t59867; /* MOVE: branching squeezed to general */ if (t59868>=((struct structure_type24753 *)VALUE_OFFSET)) {t59864->s1.tag = STRUCTURE_TYPE24753; t59864->s1.value.structure_type24753 = t59868;} else t59864->s1.tag = (unsigned)t59868; /* x112188 stalin.sc:12233:426911 */ t59862 = p12558; d12556 = t59862; b24667 = t59863; b24668 = t59864; t59855 = f12556(); /* x112179 stalin.sc:12228:426731 */ t59856 = ((unsigned)t59854)+1; t59857 = t59855; t59831 = f6908(t59852, t59853, t59856, t59857); /* x112178 */ t59830 = p12558; p12559 = t59830; a24671 = t59831; /* x112177 */ /* x112176 */ t59832 = p12559; p12560 = t59832; /* x112175 stalin.sc:12234:426948 */ /* x112157 stalin.sc:12234:426952 */ /* x112156 stalin.sc:12234:426956 */ /* x112155 stalin.sc:12234:426993 */ /* x112154 stalin.sc:12234:427000 */ t59834 = *((struct w16638 *)(&a24667)); /* x112153 stalin.sc:12234:426994 */ a35649 = t59834; /* x273953 */ /* x273952 */ t59835 = a35649; /* x273951 */ if (!((t59835.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29798]"); structure_ref_error();} t59833 = t59835.value.structure_type24753->s0; /* x112152 stalin.sc:12234:426957 */ if (!(f6941(t59833)==FALSE_TYPE)) goto l9257; /* x112149 */ /* x112148 stalin.sc:12235:427053 */ /* x112147 stalin.sc:12235:427060 */ t59837 = *((struct w16638 *)(&a24667)); /* x112146 stalin.sc:12235:427054 */ a35648 = t59837; /* x273949 */ /* x273948 */ t59838 = a35648; /* x273947 */ if (!((t59838.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29797]"); structure_ref_error();} t59836 = t59838.value.structure_type24753->s0; /* x112145 stalin.sc:12235:427012 */ if (f6946(t59836)==FALSE_TYPE) goto l9258; l9257: /* x112163 stalin.sc:12236:427075 */ /* x112159 stalin.sc:12236:427091 */ t59848 = a24671; /* x112162 stalin.sc:12236:427094 */ /* x112161 stalin.sc:12236:427101 */ t59850 = *((struct w16638 *)(&a24667)); /* x112160 stalin.sc:12236:427095 */ a35646 = t59850; /* x273941 */ /* x273940 */ t59851 = a35646; /* x273939 */ if (!((t59851.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29795]"); structure_ref_error();} t59849 = t59851.value.structure_type24753->s0; /* x112158 stalin.sc:12236:427076 */ b24649 = (unsigned)t59848; b24650 = t59849; return f12513(); l9258: /* x112174 stalin.sc:12237:427115 */ /* x112165 stalin.sc:12238:427141 */ t59839 = p12560->a24650; /* x112166 stalin.sc:12238:427143 */ t59840 = a24671; /* x112173 stalin.sc:12238:427146 */ /* x112172 stalin.sc:12238:427152 */ /* x112171 stalin.sc:12238:427171 */ /* x112170 stalin.sc:12238:427178 */ t59846 = *((struct w16638 *)(&a24667)); /* x112169 stalin.sc:12238:427172 */ a35647 = t59846; /* x273945 */ /* x273944 */ t59847 = a35647; /* x273943 */ if (!((t59847.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29796]"); structure_ref_error();} t59845 = t59847.value.structure_type24753->s0; /* x112168 stalin.sc:12238:427153 */ t59844 = f12566(t59845); /* x112167 stalin.sc:12238:427147 */ a34873 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34873==NULL) {backtrace("stalin.sc", 12238, 427146); out_of_memory_error();} a34873->s0 = t59844; a34873->s1.tag = NULL_TYPE; /* x271753 */ t59841 = a34873; /* x112164 stalin.sc:12237:427116 */ t59842.tag = STRUCTURE_TYPE27698; t59842.value.structure_type27698 = t59840; t59843.tag = STRUCTURE_TYPE24753; t59843.value.structure_type24753 = t59841; return f6878(t59839, t59842, t59843);} /* CONVERT-TO-CPS[12513] */ struct structure_type27698 *f12513(void) {unsigned a24649 = b24649; /* G/X */ struct w49 a24650 = b24650; /* X */ unsigned a18987; /* OBJ */ struct w49 a18988; /* S */ struct w49 a19148; /* S */ struct w49 a19168; /* S */ struct w49 a19178; /* S */ struct w49 a19198; /* S */ char *a24652; /* v */ struct structure_type27692 *a24655; /* G1 */ struct structure_type27692 *a24658; /* G1 */ struct structure_type27692 *a24659; /* G2 */ struct structure_type27692 *a24661; /* G2 */ struct structure_type24753 *a34866; /* OBJS */ struct structure_type24753 *a34867; /* OBJS */ struct structure_type24753 *a34868; /* OBJS */ struct structure_type24753 *a34869; /* OBJS */ struct structure_type24753 *a34870; /* OBJS */ struct structure_type24753 *a34871; /* OBJS */ struct structure_type24753 *a34872; /* OBJS */ struct w49 a38493; /* S */ struct w49 a38876; /* S */ struct w49 a38877; /* S */ struct w49 a38878; /* S */ struct w49 a38879; /* S */ struct w49 a38880; /* S */ struct w49 a38881; /* S */ struct w49 a38932; /* S */ struct w49 a38933; /* S */ struct w49 a38934; /* S */ struct w49 a38935; /* S */ struct w49 a38936; /* S */ struct w49 a38987; /* S */ struct w49 a38988; /* S */ struct w49 a38989; /* S */ struct w49 a38990; /* S */ struct w49 a38991; /* S */ struct w49 a39051; /* S */ struct w49 a39052; /* S */ struct w49 a39053; /* S */ unsigned a40413; /* OBJ */ struct w49 t59890; struct w49 t59891; struct p12513 *t59892; unsigned t59893; struct w49 t59894; struct w49 t59895; struct p12513 *t59896; struct p12513 *t59897; char *t59898; char *t59899; char *t59900; struct w49 t59901; struct w49 t59902; char *t59903; char *t59904; struct w49 t59905; struct w49 t59906; char *t59907; char *t59908; struct w49 t59909; struct w49 t59910; char *t59911; char *t59912; struct w49 t59913; struct w49 t59914; char *t59915; char *t59916; struct w49 t59917; struct w49 t59918; char *t59919; char *t59920; struct w49 t59921; struct w49 t59922; char *t59923; char *t59924; struct w49 t59925; struct w49 t59926; char *t59927; char *t59928; struct w49 t59929; struct w49 t59930; char *t59931; char *t59932; struct w49 t59933; struct w49 t59934; char *t59935; char *t59936; struct w49 t59937; struct w49 t59938; char *t59939; char *t59940; struct w49 t59941; struct w49 t59942; char *t59943; char *t59944; struct w49 t59945; struct w49 t59946; char *t59947; char *t59948; struct w49 t59949; struct w49 t59950; char *t59951; char *t59952; struct w49 t59953; struct w49 t59954; char *t59955; char *t59956; struct w49 t59957; struct w49 t59958; char *t59959; char *t59960; struct w49 t59961; struct w49 t59962; char *t59963; char *t59964; struct w49 t59965; struct w49 t59966; char *t59967; char *t59968; struct w49 t59969; struct w49 t59970; char *t59971; char *t59972; struct w49 t59973; struct w49 t59974; char *t59975; char *t59976; struct w49 t59977; struct w49 t59978; char *t59979; char *t59980; struct w49 t59981; struct w49 t59982; char *t59983; char *t59984; struct p12513 *t59985; struct p12513 *t59986; struct structure_type24753 *t59987; struct p12513 *t59988; struct p12513 *t59989; struct w49 t59990; struct w11873 t59991; struct w49 t59992; struct w49 t59993; struct w49 t59994; struct w49 t59995; char *t59996; char *t59997; char *t59998; struct p12513 *t59999; struct w49 t60000; struct w49 t60001; struct w49 t60002; struct w49 t60003; struct w49 t60004; struct w49 t60005; struct p12513 *t60006; struct p12513 *t60007; unsigned t60008; unsigned t60009; struct w49 t60010; struct w49 t60011; struct structure_type27698 *t60012; struct structure_type27698 *t60013; struct w49 t60014; struct w49 t60015; struct w49 t60016; struct w49 t60017; struct w49 t60018; unsigned t60019; struct w49 t60020; struct w49 t60021; struct w49 t60022; unsigned t60023; struct w49 t60024; struct w49 t60025; struct w49 t60026; struct p12513 *t60027; struct structure_type27692 *t60028; struct w49 t60029; struct structure_type27698 *t60030; struct structure_type24753 *t60031; struct w49 t60032; struct w12224 t60033; struct w49 t60034; struct structure_type27694 *t60035; struct structure_type24753 *t60036; struct structure_type27698 *t60037; unsigned t60038; struct structure_type27698 *t60039; char *t60040; struct w49 t60041; char *t60042; struct structure_type27692 *t60043; struct w49 t60044; struct w49 t60045; struct structure_type27698 *t60046; struct structure_type27698 *t60047; struct w49 t60048; struct w49 t60049; struct w49 t60050; struct w49 t60051; struct w49 t60052; struct structure_type27692 *t60053; struct w49 t60054; struct w49 t60055; struct w49 t60056; struct structure_type27692 *t60057; struct w49 t60058; struct w49 t60059; struct w49 t60060; unsigned t60061; char *t60062; struct w49 t60063; struct w49 t60064; struct w49 t60065; struct w49 t60066; struct w49 t60067; struct w49 t60068; struct w49 t60069; struct w49 t60070; struct w49 t60071; struct w49 t60072; struct w49 t60073; struct w49 t60074; char *t60075; struct p12513 *t60076; struct p12513 *t60077; struct structure_type27692 *t60078; unsigned t60079; unsigned t60080; struct structure_type27698 *t60081; struct w49 t60082; struct w49 t60083; struct structure_type27694 *t60084; struct structure_type24753 *t60085; struct structure_type27698 *t60086; unsigned t60087; struct structure_type27698 *t60088; char *t60089; struct w49 t60090; char *t60091; struct structure_type27692 *t60092; struct w49 t60093; struct structure_type27698 *t60094; struct structure_type27698 *t60095; struct structure_type27698 *t60096; struct w49 t60097; struct w49 t60098; struct w49 t60099; struct w49 t60100; struct structure_type27692 *t60101; struct w49 t60102; unsigned t60103; struct w49 t60104; struct w49 t60105; struct w49 t60106; unsigned t60107; struct w49 t60108; struct w49 t60109; struct w49 t60110; struct w49 t60111; struct w49 t60112; struct p12513 *t60113; struct structure_type27692 *t60114; struct w49 t60115; struct structure_type27698 *t60116; struct structure_type24753 *t60117; struct w49 t60118; struct w12224 t60119; struct w49 t60120; struct structure_type27694 *t60121; struct structure_type24753 *t60122; struct structure_type27698 *t60123; unsigned t60124; struct structure_type27698 *t60125; char *t60126; struct w49 t60127; char *t60128; struct structure_type27692 *t60129; struct structure_type27698 *t60130; struct w49 t60131; struct w49 t60132; struct structure_type27694 *t60133; struct structure_type24753 *t60134; struct structure_type27698 *t60135; unsigned t60136; struct structure_type27698 *t60137; char *t60138; struct w49 t60139; char *t60140; struct structure_type27692 *t60141; struct w49 t60142; struct structure_type27698 *t60143; struct structure_type27698 *t60144; struct structure_type27698 *t60145; struct w49 t60146; struct w49 t60147; struct w49 t60148; struct w49 t60149; struct structure_type27692 *t60150; struct w49 t60151; struct structure_type27692 *t60152; struct w49 t60153; struct w49 t60154; struct w49 t60155; struct structure_type27692 *t60156; struct w49 t60157; struct w49 t60158; struct w49 t60159; struct w49 t60160; struct w49 t60161; unsigned t60162; char *t60163; char *t60164; struct p12513 *t60165; struct p12513 *t60166; struct p12513 *t60167; struct structure_type27692 *t60168; struct structure_type27698 *t60169; struct w49 t60170; struct w49 t60171; struct structure_type27694 *t60172; struct structure_type24753 *t60173; struct structure_type27698 *t60174; unsigned t60175; struct structure_type27698 *t60176; char *t60177; struct w49 t60178; char *t60179; struct structure_type27692 *t60180; unsigned t60181; struct structure_type27698 *t60182; struct w49 t60183; struct w49 t60184; struct w49 t60185; struct structure_type27698 *t60186; struct w49 t60187; struct w49 t60188; struct w49 t60189; struct w49 t60190; struct structure_type27692 *t60191; struct w49 t60192; struct w49 t60193; struct w49 t60194; char *t60195; struct w49 t60196; struct w49 t60197; struct w49 t60198; struct w49 t60199; struct w49 t60200; struct w49 t60201; char *t60202; char *t60203; char *t60204; char *t60205; char *t60206; char *t60207; char *t60208; char *t60209; char *t60210; char *t60211; char *t60212; char *t60213; char *t60214; char *t60215; struct w49 t60216; struct w49 t60217; struct p12513 *e12513; struct p12513 *p12514; struct p12513 *p12515; struct p12513 *p12516; struct p12513 *p12531; struct p12513 *p12532; struct p12513 *p12533; struct p12513 *p12534; struct p12513 *p12537; struct p12513 *p12538; struct p12513 *p12539; struct p12513 *p12540; struct p12513 *p12541; struct p12513 *p12542; struct p12513 *p12543; struct p12513 *p12544; struct p12513 *p12545; struct p12513 *p12546; struct p12513 *p12547; struct p12513 *p12553; struct p12513 *p12554; struct p12513 *p12555; struct p12513 *p12565; h12513: e12513 = (struct p12513 *)GC_malloc(sizeof(struct p12513)); if (e12513==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e12513->a24649 = a24649; e12513->a24650 = a24650; /* x112271 stalin.sc:12106:422336 */ /* x111674 stalin.sc:12107:422345 */ /* x111673 stalin.sc:12107:422349 */ /* x111672 stalin.sc:12107:422386 */ t59890 = e12513->a24650; /* x111671 stalin.sc:12107:422350 */ if (!(f6941(t59890)==FALSE_TYPE)) goto l9260; p12514 = e12513; /* x111668 */ /* x111667 stalin.sc:12108:422438 */ t59891 = p12514->a24650; /* x111666 stalin.sc:12108:422397 */ if (f6946(t59891)==FALSE_TYPE) goto l9261; l9260: /* x112262 */ /* x112261 */ t59896 = e12513; p12515 = t59896; /* x112260 stalin.sc:12109:422445 */ /* x112259 stalin.sc:12109:422451 */ /* x112258 stalin.sc:12109:422468 */ t60216 = p12515->a24650; /* x112257 stalin.sc:12109:422452 */ a18988 = t60216; /* x49641 */ /* x49640 */ t60217 = a18988; /* x49639 */ if (!((t60217.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-KIND[5487]"); structure_ref_error();} t59898 = t60217.value.structure_type27698->s0; /* x112256 */ t59897 = p12515; p12516 = t59897; a24652 = t59898; /* x112255 */ /* x111678 */ /* x111676 */ t59899 = a24652; /* x111677 */ t59900 = q68; /* x111675 */ t59901.tag = EXTERNAL_SYMBOL_TYPE; t59901.value.external_symbol_type = t59899; t59902.tag = EXTERNAL_SYMBOL_TYPE; t59902.value.external_symbol_type = t59900; if (f26160(t59901, t59902)==FALSE_TYPE) goto l9264; /* x111682 */ /* x111681 */ /* x111680 stalin.sc:12110:422492 */ /* x111679 stalin.sc:12110:422493 */ /* x295081 QobiScheme.sc:166:5314 */ /* x295080 QobiScheme.sc:166:5321 */ t60215 = "This shouldn\'t happen"; /* x295079 QobiScheme.sc:166:5315 */ stalin_panic(t60215); l9264: /* x112254 */ /* x111686 */ /* x111684 */ t59903 = a24652; /* x111685 */ t59904 = q69; /* x111683 */ t59905.tag = EXTERNAL_SYMBOL_TYPE; t59905.value.external_symbol_type = t59903; t59906.tag = EXTERNAL_SYMBOL_TYPE; t59906.value.external_symbol_type = t59904; if (f26160(t59905, t59906)==FALSE_TYPE) goto l9266; /* x111690 */ /* x111689 */ /* x111688 stalin.sc:12111:422524 */ /* x111687 stalin.sc:12111:422525 */ /* x295085 QobiScheme.sc:166:5314 */ /* x295084 QobiScheme.sc:166:5321 */ t60214 = "This shouldn\'t happen"; /* x295083 QobiScheme.sc:166:5315 */ stalin_panic(t60214); l9266: /* x112253 */ /* x111694 */ /* x111692 */ t59907 = a24652; /* x111693 */ t59908 = q70; /* x111691 */ t59909.tag = EXTERNAL_SYMBOL_TYPE; t59909.value.external_symbol_type = t59907; t59910.tag = EXTERNAL_SYMBOL_TYPE; t59910.value.external_symbol_type = t59908; if (f26160(t59909, t59910)==FALSE_TYPE) goto l9268; /* x111698 */ /* x111697 */ /* x111696 stalin.sc:12112:422557 */ /* x111695 stalin.sc:12112:422558 */ /* x295089 QobiScheme.sc:166:5314 */ /* x295088 QobiScheme.sc:166:5321 */ t60213 = "This shouldn\'t happen"; /* x295087 QobiScheme.sc:166:5315 */ stalin_panic(t60213); l9268: /* x112252 */ /* x111702 */ /* x111700 */ t59911 = a24652; /* x111701 */ t59912 = q71; /* x111699 */ t59913.tag = EXTERNAL_SYMBOL_TYPE; t59913.value.external_symbol_type = t59911; t59914.tag = EXTERNAL_SYMBOL_TYPE; t59914.value.external_symbol_type = t59912; if (f26160(t59913, t59914)==FALSE_TYPE) goto l9270; /* x111706 */ /* x111705 */ /* x111704 stalin.sc:12113:422589 */ /* x111703 stalin.sc:12113:422590 */ /* x295093 QobiScheme.sc:166:5314 */ /* x295092 QobiScheme.sc:166:5321 */ t60212 = "This shouldn\'t happen"; /* x295091 QobiScheme.sc:166:5315 */ stalin_panic(t60212); l9270: /* x112251 */ /* x111710 */ /* x111708 */ t59915 = a24652; /* x111709 */ t59916 = q72; /* x111707 */ t59917.tag = EXTERNAL_SYMBOL_TYPE; t59917.value.external_symbol_type = t59915; t59918.tag = EXTERNAL_SYMBOL_TYPE; t59918.value.external_symbol_type = t59916; if (f26160(t59917, t59918)==FALSE_TYPE) goto l9272; /* x111714 */ /* x111713 */ /* x111712 stalin.sc:12114:422623 */ /* x111711 stalin.sc:12114:422624 */ /* x295097 QobiScheme.sc:166:5314 */ /* x295096 QobiScheme.sc:166:5321 */ t60211 = "This shouldn\'t happen"; /* x295095 QobiScheme.sc:166:5315 */ stalin_panic(t60211); l9272: /* x112250 */ /* x111718 */ /* x111716 */ t59919 = a24652; /* x111717 */ t59920 = q73; /* x111715 */ t59921.tag = EXTERNAL_SYMBOL_TYPE; t59921.value.external_symbol_type = t59919; t59922.tag = EXTERNAL_SYMBOL_TYPE; t59922.value.external_symbol_type = t59920; if (f26160(t59921, t59922)==FALSE_TYPE) goto l9274; /* x111722 */ /* x111721 */ /* x111720 stalin.sc:12115:422657 */ /* x111719 stalin.sc:12115:422658 */ /* x295101 QobiScheme.sc:166:5314 */ /* x295100 QobiScheme.sc:166:5321 */ t60210 = "This shouldn\'t happen"; /* x295099 QobiScheme.sc:166:5315 */ stalin_panic(t60210); l9274: /* x112249 */ /* x111726 */ /* x111724 */ t59923 = a24652; /* x111725 */ t59924 = q74; /* x111723 */ t59925.tag = EXTERNAL_SYMBOL_TYPE; t59925.value.external_symbol_type = t59923; t59926.tag = EXTERNAL_SYMBOL_TYPE; t59926.value.external_symbol_type = t59924; if (f26160(t59925, t59926)==FALSE_TYPE) goto l9276; /* x111730 */ /* x111729 */ /* x111728 stalin.sc:12116:422696 */ /* x111727 stalin.sc:12116:422697 */ /* x295105 QobiScheme.sc:166:5314 */ /* x295104 QobiScheme.sc:166:5321 */ t60209 = "This shouldn\'t happen"; /* x295103 QobiScheme.sc:166:5315 */ stalin_panic(t60209); l9276: /* x112248 */ /* x111734 */ /* x111732 */ t59927 = a24652; /* x111733 */ t59928 = q75; /* x111731 */ t59929.tag = EXTERNAL_SYMBOL_TYPE; t59929.value.external_symbol_type = t59927; t59930.tag = EXTERNAL_SYMBOL_TYPE; t59930.value.external_symbol_type = t59928; if (f26160(t59929, t59930)==FALSE_TYPE) goto l9278; /* x111738 */ /* x111737 */ /* x111736 stalin.sc:12117:422730 */ /* x111735 stalin.sc:12117:422731 */ /* x295109 QobiScheme.sc:166:5314 */ /* x295108 QobiScheme.sc:166:5321 */ t60208 = "This shouldn\'t happen"; /* x295107 QobiScheme.sc:166:5315 */ stalin_panic(t60208); l9278: /* x112247 */ /* x111742 */ /* x111740 */ t59931 = a24652; /* x111741 */ t59932 = q76; /* x111739 */ t59933.tag = EXTERNAL_SYMBOL_TYPE; t59933.value.external_symbol_type = t59931; t59934.tag = EXTERNAL_SYMBOL_TYPE; t59934.value.external_symbol_type = t59932; if (f26160(t59933, t59934)==FALSE_TYPE) goto l9280; /* x111746 */ /* x111745 */ /* x111744 stalin.sc:12118:422764 */ /* x111743 stalin.sc:12118:422765 */ /* x295113 QobiScheme.sc:166:5314 */ /* x295112 QobiScheme.sc:166:5321 */ t60207 = "This shouldn\'t happen"; /* x295111 QobiScheme.sc:166:5315 */ stalin_panic(t60207); l9280: /* x112246 */ /* x111750 */ /* x111748 */ t59935 = a24652; /* x111749 */ t59936 = q50; /* x111747 */ t59937.tag = EXTERNAL_SYMBOL_TYPE; t59937.value.external_symbol_type = t59935; t59938.tag = EXTERNAL_SYMBOL_TYPE; t59938.value.external_symbol_type = t59936; if (f26160(t59937, t59938)==FALSE_TYPE) goto l9282; /* x111754 */ /* x111753 */ /* x111752 stalin.sc:12119:422796 */ /* x111751 stalin.sc:12119:422797 */ /* x295117 QobiScheme.sc:166:5314 */ /* x295116 QobiScheme.sc:166:5321 */ t60206 = "This shouldn\'t happen"; /* x295115 QobiScheme.sc:166:5315 */ stalin_panic(t60206); l9282: /* x112245 */ /* x111758 */ /* x111756 */ t59939 = a24652; /* x111757 */ t59940 = q52; /* x111755 */ t59941.tag = EXTERNAL_SYMBOL_TYPE; t59941.value.external_symbol_type = t59939; t59942.tag = EXTERNAL_SYMBOL_TYPE; t59942.value.external_symbol_type = t59940; if (f26160(t59941, t59942)==FALSE_TYPE) goto l9284; /* x111762 */ /* x111761 */ /* x111760 stalin.sc:12120:422830 */ /* x111759 stalin.sc:12120:422831 */ /* x295121 QobiScheme.sc:166:5314 */ /* x295120 QobiScheme.sc:166:5321 */ t60205 = "This shouldn\'t happen"; /* x295119 QobiScheme.sc:166:5315 */ stalin_panic(t60205); l9284: /* x112244 */ /* x111766 */ /* x111764 */ t59943 = a24652; /* x111765 */ t59944 = q39; /* x111763 */ t59945.tag = EXTERNAL_SYMBOL_TYPE; t59945.value.external_symbol_type = t59943; t59946.tag = EXTERNAL_SYMBOL_TYPE; t59946.value.external_symbol_type = t59944; if (f26160(t59945, t59946)==FALSE_TYPE) goto l9286; /* x111770 */ /* x111769 */ /* x111768 stalin.sc:12121:422855 */ /* x111767 stalin.sc:12121:422856 */ /* x295125 QobiScheme.sc:166:5314 */ /* x295124 QobiScheme.sc:166:5321 */ t60204 = "This shouldn\'t happen"; /* x295123 QobiScheme.sc:166:5315 */ stalin_panic(t60204); l9286: /* x112243 */ /* x111783 */ /* x111782 */ /* x111780 */ t59947 = a24652; /* x111781 */ t59948 = q40; /* x111779 */ t59949.tag = EXTERNAL_SYMBOL_TYPE; t59949.value.external_symbol_type = t59947; t59950.tag = EXTERNAL_SYMBOL_TYPE; t59950.value.external_symbol_type = t59948; if (!(f26160(t59949, t59950)==FALSE_TYPE)) goto l9287; /* x111776 */ /* x111774 */ t59951 = a24652; /* x111775 */ t59952 = q41; /* x111773 */ t59953.tag = EXTERNAL_SYMBOL_TYPE; t59953.value.external_symbol_type = t59951; t59954.tag = EXTERNAL_SYMBOL_TYPE; t59954.value.external_symbol_type = t59952; if (f26160(t59953, t59954)==FALSE_TYPE) goto l9288; l9287: /* x111787 */ /* x111786 */ /* x111785 stalin.sc:12122:422913 */ /* x111784 stalin.sc:12122:422914 */ /* x295129 QobiScheme.sc:166:5314 */ /* x295128 QobiScheme.sc:166:5321 */ t60203 = "This shouldn\'t happen"; /* x295127 QobiScheme.sc:166:5315 */ stalin_panic(t60203); l9288: /* x112242 */ /* x111791 */ /* x111789 */ t59955 = a24652; /* x111790 */ t59956 = q42; /* x111788 */ t59957.tag = EXTERNAL_SYMBOL_TYPE; t59957.value.external_symbol_type = t59955; t59958.tag = EXTERNAL_SYMBOL_TYPE; t59958.value.external_symbol_type = t59956; if (f26160(t59957, t59958)==FALSE_TYPE) goto l9291; /* x111850 */ /* x111849 */ t60165 = p12516; p12531 = t60165; /* x111848 */ /* x111847 stalin.sc:12125:423006 */ /* x111840 stalin.sc:12125:423014 */ /* x111839 stalin.sc:12125:423018 */ /* x111838 stalin.sc:12125:423055 */ /* x111837 stalin.sc:12125:423074 */ t60197 = p12531->a24650; /* x111836 stalin.sc:12125:423056 */ a39053 = t60197; /* x288881 */ /* x288880 */ t60198 = a39053; /* x288879 */ if (!((t60198.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33970]"); structure_ref_error();} t60196 = t60198.value.structure_type27698->s17; /* x111835 stalin.sc:12125:423019 */ if (!(f6941(t60196)==FALSE_TYPE)) goto l9317; p12534 = p12531; /* x111832 */ /* x111831 stalin.sc:12127:423127 */ /* x111830 stalin.sc:12127:423146 */ t60200 = p12534->a24650; /* x111829 stalin.sc:12127:423128 */ a39052 = t60200; /* x288877 */ /* x288876 */ t60201 = a39052; /* x288875 */ if (!((t60201.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33969]"); structure_ref_error();} t60199 = t60201.value.structure_type27698->s17; /* x111828 stalin.sc:12126:423082 */ if (f6946(t60199)==FALSE_TYPE) goto l9318; l9317: /* x111842 */ /* x111841 */ goto l9319; l9318: /* x111846 */ /* x111845 */ /* x111844 stalin.sc:12128:423157 */ /* x111843 stalin.sc:12128:423158 */ /* x295133 QobiScheme.sc:166:5314 */ /* x295132 QobiScheme.sc:166:5321 */ t60202 = "This shouldn\'t happen"; /* x295131 QobiScheme.sc:166:5315 */ stalin_panic(t60202); l9319: /* x111825 */ t60166 = p12531; p12532 = t60166; /* x111824 stalin.sc:12129:423173 */ /* x111823 stalin.sc:12129:423183 */ /* x111822 stalin.sc:12129:423201 */ t60195 = "x"; /* x111821 stalin.sc:12129:423184 */ t60168 = f12512(t60195); /* x111820 */ t60167 = p12532; p12533 = t60167; a24655 = t60168; /* x111819 stalin.sc:12130:423214 */ /* x111815 stalin.sc:12131:423237 */ /* x111794 stalin.sc:12132:423280 */ t60171 = p12533->a24650; /* x111798 stalin.sc:12134:423331 */ /* x111796 stalin.sc:12134:423351 */ /* x111797 stalin.sc:12134:423354 */ t60177 = "continuation"; /* x111795 stalin.sc:12134:423332 */ t60178.tag = FALSE_TYPE; t60179 = t60177; t60172 = f8468(t60178, t60179); /* x111801 stalin.sc:12135:423371 */ /* x111800 stalin.sc:12135:423377 */ t60180 = a24655; /* x111799 stalin.sc:12135:423372 */ a34866 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34866==NULL) {backtrace("stalin.sc", 12135, 423371); out_of_memory_error();} a34866->s0.tag = STRUCTURE_TYPE27692; a34866->s0.value.structure_type27692 = t60180; a34866->s1.tag = NULL_TYPE; /* x271739 */ t60173 = a34866; /* x111814 stalin.sc:12136:423382 */ /* x111803 stalin.sc:12137:423403 */ t60181 = p12533->a24649; /* x111813 stalin.sc:12138:423409 */ /* x111805 stalin.sc:12139:423436 */ t60184 = p12533->a24650; /* x111808 stalin.sc:12139:423438 */ /* x111807 stalin.sc:12139:423459 */ t60188 = p12533->a24650; /* x111806 stalin.sc:12139:423439 */ a19148 = t60188; /* x50265 */ /* x50264 */ t60189 = a19148; /* x50263 */ if (!((t60189.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-VARIABLE[5615]"); structure_ref_error();} t60185 = t60189.value.structure_type27698->s16; /* x111812 stalin.sc:12139:423462 */ /* x111810 stalin.sc:12139:423488 */ t60190 = p12533->a24650; /* x111811 stalin.sc:12139:423490 */ t60191 = a24655; /* x111809 stalin.sc:12139:423463 */ t60192.tag = STRUCTURE_TYPE27692; t60192.value.structure_type27692 = t60191; t60186 = f6890(t60190, t60192); /* x111804 stalin.sc:12138:423410 */ t60187.tag = STRUCTURE_TYPE27698; t60187.value.structure_type27698 = t60186; t60182 = f6914(t60184, t60185, t60187); /* x111802 stalin.sc:12136:423383 */ t60183.tag = STRUCTURE_TYPE27698; t60183.value.structure_type27698 = t60182; t60174 = f12511(t60181, t60183); /* x111793 stalin.sc:12131:423238 */ t60175 = ((unsigned)t60173)+1; t60176 = t60174; t60169 = f6908(t60171, t60172, t60175, t60176); /* x111818 stalin.sc:12140:423504 */ /* x111817 stalin.sc:12140:423523 */ t60193 = p12533->a24650; /* x111816 stalin.sc:12140:423505 */ a39051 = t60193; /* x288873 */ /* x288872 */ t60194 = a39051; /* x288871 */ if (!((t60194.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33968]"); structure_ref_error();} t60170 = t60194.value.structure_type27698->s17; /* x111792 stalin.sc:12130:423215 */ a24649 = (unsigned)t60169; a24650 = t60170; goto h12513; l9291: /* x112241 */ /* x111854 */ /* x111852 */ t59959 = a24652; /* x111853 */ t59960 = q43; /* x111851 */ t59961.tag = EXTERNAL_SYMBOL_TYPE; t59961.value.external_symbol_type = t59959; t59962.tag = EXTERNAL_SYMBOL_TYPE; t59962.value.external_symbol_type = t59960; if (f26160(t59961, t59962)==FALSE_TYPE) goto l9293; /* x112083 */ /* x112082 */ t59999 = p12516; p12537 = t59999; /* x112081 stalin.sc:12142:423544 */ /* x111869 stalin.sc:12143:423557 */ /* x111868 stalin.sc:12143:423561 */ /* x111867 stalin.sc:12143:423598 */ /* x111866 stalin.sc:12143:423621 */ t60001 = p12537->a24650; /* x111865 stalin.sc:12143:423599 */ a38991 = t60001; /* x288633 */ /* x288632 */ t60002 = a38991; /* x288631 */ if (!((t60002.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33908]"); structure_ref_error();} t60000 = t60002.value.structure_type27698->s18; /* x111864 stalin.sc:12143:423562 */ if (!(f6941(t60000)==FALSE_TYPE)) goto l9304; p12538 = p12537; /* x111861 */ /* x111860 stalin.sc:12145:423676 */ /* x111859 stalin.sc:12145:423699 */ t60004 = p12538->a24650; /* x111858 stalin.sc:12145:423677 */ a38990 = t60004; /* x288629 */ /* x288628 */ t60005 = a38990; /* x288627 */ if (!((t60005.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33907]"); structure_ref_error();} t60003 = t60005.value.structure_type27698->s18; /* x111857 stalin.sc:12144:423630 */ if (f6946(t60003)==FALSE_TYPE) goto l9305; l9304: /* x111969 */ /* x111968 */ t60076 = p12537; p12539 = t60076; /* x111967 stalin.sc:12149:423887 */ /* x111966 stalin.sc:12149:423897 */ /* x111965 stalin.sc:12149:423915 */ t60164 = "x"; /* x111964 stalin.sc:12149:423898 */ t60078 = f12512(t60164); /* x111963 */ t60077 = p12539; p12540 = t60077; a24658 = t60078; /* x111962 stalin.sc:12150:423923 */ /* x111872 stalin.sc:12150:423927 */ /* x111871 stalin.sc:12150:423940 */ t60079 = p12540->a24649; /* x111870 stalin.sc:12150:423928 */ a18987 = t60079; /* x49636 */ /* x49635 */ t60080 = a18987; /* x49634 */ if (!((t60080&3)==0)) goto l9316; /* x111927 stalin.sc:12151:423950 */ /* x111926 stalin.sc:12151:423960 */ /* x111925 stalin.sc:12151:423978 */ t60163 = "x"; /* x111924 stalin.sc:12151:423961 */ t60114 = f12512(t60163); /* x111923 */ t60113 = p12540; p12541 = t60113; a24659 = t60114; /* x111922 stalin.sc:12152:423991 */ /* x111874 stalin.sc:12153:424022 */ t60115 = p12541->a24650; /* x111918 stalin.sc:12154:424031 */ /* x111876 stalin.sc:12155:424081 */ t60120 = p12541->a24650; /* x111880 stalin.sc:12157:424146 */ /* x111878 stalin.sc:12157:424166 */ /* x111879 stalin.sc:12157:424169 */ t60126 = "continuation"; /* x111877 stalin.sc:12157:424147 */ t60127.tag = FALSE_TYPE; t60128 = t60126; t60121 = f8468(t60127, t60128); /* x111883 stalin.sc:12158:424193 */ /* x111882 stalin.sc:12158:424199 */ t60129 = a24659; /* x111881 stalin.sc:12158:424194 */ a34867 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34867==NULL) {backtrace("stalin.sc", 12158, 424193); out_of_memory_error();} a34867->s0.tag = STRUCTURE_TYPE27692; a34867->s0.value.structure_type27692 = t60129; a34867->s1.tag = NULL_TYPE; /* x271741 */ t60122 = a34867; /* x111917 stalin.sc:12159:424211 */ /* x111913 stalin.sc:12159:424227 */ /* x111886 stalin.sc:12160:424273 */ t60132 = p12541->a24650; /* x111890 stalin.sc:12162:424330 */ /* x111888 stalin.sc:12162:424350 */ /* x111889 stalin.sc:12162:424353 */ t60138 = "continuation"; /* x111887 stalin.sc:12162:424331 */ t60139.tag = FALSE_TYPE; t60140 = t60138; t60133 = f8468(t60139, t60140); /* x111893 stalin.sc:12163:424373 */ /* x111892 stalin.sc:12163:424379 */ t60141 = a24658; /* x111891 stalin.sc:12163:424374 */ a34868 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34868==NULL) {backtrace("stalin.sc", 12163, 424373); out_of_memory_error();} a34868->s0.tag = STRUCTURE_TYPE27692; a34868->s0.value.structure_type27692 = t60141; a34868->s1.tag = NULL_TYPE; /* x271743 */ t60134 = a34868; /* x111912 stalin.sc:12164:424387 */ /* x111895 stalin.sc:12165:424414 */ t60142 = p12541->a24650; /* x111899 stalin.sc:12166:424421 */ /* x111897 stalin.sc:12166:424447 */ t60149 = p12541->a24650; /* x111898 stalin.sc:12166:424449 */ t60150 = a24658; /* x111896 stalin.sc:12166:424422 */ t60151.tag = STRUCTURE_TYPE27692; t60151.value.structure_type27692 = t60150; t60143 = f6890(t60149, t60151); /* x111905 stalin.sc:12167:424458 */ /* x111901 stalin.sc:12167:424474 */ t60152 = a24659; /* x111904 stalin.sc:12167:424477 */ /* x111903 stalin.sc:12167:424500 */ t60154 = p12541->a24650; /* x111902 stalin.sc:12167:424478 */ a19178 = t60154; /* x50382 */ /* x50381 */ t60155 = a19178; /* x50380 */ if (!((t60155.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-CONSEQUENT[5639]"); structure_ref_error();} t60153 = t60155.value.structure_type27698->s19; /* x111900 stalin.sc:12167:424459 */ b24649 = ((unsigned)t60152)+1; b24650 = t60153; t60144 = f12513(); /* x111911 stalin.sc:12168:424509 */ /* x111907 stalin.sc:12168:424525 */ t60156 = a24659; /* x111910 stalin.sc:12168:424528 */ /* x111909 stalin.sc:12168:424550 */ t60158 = p12541->a24650; /* x111908 stalin.sc:12168:424529 */ a38876 = t60158; /* x288173 */ /* x288172 */ t60159 = a38876; /* x288171 */ if (!((t60159.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33793]"); structure_ref_error();} t60157 = t60159.value.structure_type27698->s20; /* x111906 stalin.sc:12168:424510 */ b24649 = ((unsigned)t60156)+1; b24650 = t60157; t60145 = f12513(); /* x111894 stalin.sc:12164:424388 */ t60146.tag = STRUCTURE_TYPE27698; t60146.value.structure_type27698 = t60143; t60147.tag = STRUCTURE_TYPE27698; t60147.value.structure_type27698 = t60144; t60148.tag = STRUCTURE_TYPE27698; t60148.value.structure_type27698 = t60145; t60135 = f6920(t60142, t60146, t60147, t60148); /* x111885 stalin.sc:12159:424228 */ t60136 = ((unsigned)t60134)+1; t60137 = t60135; t60130 = f6908(t60132, t60133, t60136, t60137); /* x111916 stalin.sc:12169:424566 */ /* x111915 stalin.sc:12169:424589 */ t60160 = p12541->a24650; /* x111914 stalin.sc:12169:424567 */ a19168 = t60160; /* x50343 */ /* x50342 */ t60161 = a19168; /* x50341 */ if (!((t60161.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-ANTECEDENT[5631]"); structure_ref_error();} t60131 = t60161.value.structure_type27698->s18; /* x111884 stalin.sc:12159:424212 */ b24649 = (unsigned)t60130; b24650 = t60131; t60123 = f12513(); /* x111875 stalin.sc:12154:424032 */ t60124 = ((unsigned)t60122)+1; t60125 = t60123; t60116 = f6908(t60120, t60121, t60124, t60125); /* x111921 stalin.sc:12170:424601 */ /* x111920 stalin.sc:12170:424607 */ t60162 = p12541->a24649; /* x111919 stalin.sc:12170:424602 */ a34869 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34869==NULL) {backtrace("stalin.sc", 12170, 424601); out_of_memory_error();} /* MOVE: dispatching squished to general */ if ((t60162&3)==1) {a34869->s0.tag = STRUCTURE_TYPE27692; a34869->s0.value.structure_type27692 = (struct structure_type27692 *)(t60162-1);} else {a34869->s0.tag = STRUCTURE_TYPE27698; a34869->s0.value.structure_type27698 = (struct structure_type27698 *)t60162;} a34869->s1.tag = NULL_TYPE; /* x271745 */ t60117 = a34869; /* x111873 stalin.sc:12152:423992 */ t60118.tag = STRUCTURE_TYPE27698; t60118.value.structure_type27698 = t60116; t60119.tag = STRUCTURE_TYPE24753; t60119.value.structure_type24753 = t60117; return f6878(t60115, t60118, t60119); l9316: /* x111961 stalin.sc:12171:424619 */ /* x111957 stalin.sc:12171:424635 */ /* x111930 stalin.sc:12172:424685 */ t60083 = p12540->a24650; /* x111934 stalin.sc:12174:424750 */ /* x111932 stalin.sc:12174:424770 */ /* x111933 stalin.sc:12174:424773 */ t60089 = "continuation"; /* x111931 stalin.sc:12174:424751 */ t60090.tag = FALSE_TYPE; t60091 = t60089; t60084 = f8468(t60090, t60091); /* x111937 stalin.sc:12175:424797 */ /* x111936 stalin.sc:12175:424803 */ t60092 = a24658; /* x111935 stalin.sc:12175:424798 */ a34870 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34870==NULL) {backtrace("stalin.sc", 12175, 424797); out_of_memory_error();} a34870->s0.tag = STRUCTURE_TYPE27692; a34870->s0.value.structure_type27692 = t60092; a34870->s1.tag = NULL_TYPE; /* x271747 */ t60085 = a34870; /* x111956 stalin.sc:12176:424815 */ /* x111939 stalin.sc:12177:424846 */ t60093 = p12540->a24650; /* x111943 stalin.sc:12178:424857 */ /* x111941 stalin.sc:12178:424883 */ t60100 = p12540->a24650; /* x111942 stalin.sc:12178:424885 */ t60101 = a24658; /* x111940 stalin.sc:12178:424858 */ t60102.tag = STRUCTURE_TYPE27692; t60102.value.structure_type27692 = t60101; t60094 = f6890(t60100, t60102); /* x111949 stalin.sc:12179:424898 */ /* x111945 stalin.sc:12179:424914 */ t60103 = p12540->a24649; /* x111948 stalin.sc:12179:424918 */ /* x111947 stalin.sc:12179:424941 */ t60105 = p12540->a24650; /* x111946 stalin.sc:12179:424919 */ a38932 = t60105; /* x288397 */ /* x288396 */ t60106 = a38932; /* x288395 */ if (!((t60106.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33849]"); structure_ref_error();} t60104 = t60106.value.structure_type27698->s19; /* x111944 stalin.sc:12179:424899 */ b24649 = t60103; b24650 = t60104; t60095 = f12513(); /* x111955 stalin.sc:12180:424954 */ /* x111951 stalin.sc:12180:424970 */ t60107 = p12540->a24649; /* x111954 stalin.sc:12180:424974 */ /* x111953 stalin.sc:12180:424996 */ t60109 = p12540->a24650; /* x111952 stalin.sc:12180:424975 */ a38877 = t60109; /* x288177 */ /* x288176 */ t60110 = a38877; /* x288175 */ if (!((t60110.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33794]"); structure_ref_error();} t60108 = t60110.value.structure_type27698->s20; /* x111950 stalin.sc:12180:424955 */ b24649 = t60107; b24650 = t60108; t60096 = f12513(); /* x111938 stalin.sc:12176:424816 */ t60097.tag = STRUCTURE_TYPE27698; t60097.value.structure_type27698 = t60094; t60098.tag = STRUCTURE_TYPE27698; t60098.value.structure_type27698 = t60095; t60099.tag = STRUCTURE_TYPE27698; t60099.value.structure_type27698 = t60096; t60086 = f6920(t60093, t60097, t60098, t60099); /* x111929 stalin.sc:12171:424636 */ t60087 = ((unsigned)t60085)+1; t60088 = t60086; t60081 = f6908(t60083, t60084, t60087, t60088); /* x111960 stalin.sc:12181:425009 */ /* x111959 stalin.sc:12181:425032 */ t60111 = p12540->a24650; /* x111958 stalin.sc:12181:425010 */ a38987 = t60111; /* x288617 */ /* x288616 */ t60112 = a38987; /* x288615 */ if (!((t60112.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33904]"); structure_ref_error();} t60082 = t60112.value.structure_type27698->s18; /* x111928 stalin.sc:12171:424620 */ a24649 = (unsigned)t60081; a24650 = t60082; goto h12513; l9305: /* x112080 */ /* x112079 */ t60006 = p12537; p12542 = t60006; /* x112078 */ /* x112077 stalin.sc:12185:425186 */ /* x112070 stalin.sc:12185:425194 */ /* x112069 stalin.sc:12186:425200 */ /* x112068 stalin.sc:12186:425237 */ /* x112067 stalin.sc:12186:425260 */ t60064 = p12542->a24650; /* x112066 stalin.sc:12186:425238 */ a38936 = t60064; /* x288413 */ /* x288412 */ t60065 = a38936; /* x288411 */ if (!((t60065.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33853]"); structure_ref_error();} t60063 = t60065.value.structure_type27698->s19; /* x112065 stalin.sc:12186:425201 */ if (!(f6941(t60063)==FALSE_TYPE)) goto l9309; p12545 = p12542; /* x112062 */ /* x112061 stalin.sc:12187:425266 */ /* x112060 stalin.sc:12188:425311 */ /* x112059 stalin.sc:12188:425334 */ t60067 = p12545->a24650; /* x112058 stalin.sc:12188:425312 */ a38935 = t60067; /* x288409 */ /* x288408 */ t60068 = a38935; /* x288407 */ if (!((t60068.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33852]"); structure_ref_error();} t60066 = t60068.value.structure_type27698->s19; /* x112057 stalin.sc:12187:425267 */ if (!(f6946(t60066)==FALSE_TYPE)) goto l9309; p12546 = p12545; /* x112054 */ /* x112053 stalin.sc:12189:425340 */ /* x112052 stalin.sc:12189:425377 */ /* x112051 stalin.sc:12189:425399 */ t60070 = p12546->a24650; /* x112050 stalin.sc:12189:425378 */ a38881 = t60070; /* x288193 */ /* x288192 */ t60071 = a38881; /* x288191 */ if (!((t60071.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33798]"); structure_ref_error();} t60069 = t60071.value.structure_type27698->s20; /* x112049 stalin.sc:12189:425341 */ if (!(f6941(t60069)==FALSE_TYPE)) goto l9309; p12547 = p12546; /* x112046 */ /* x112045 stalin.sc:12191:425450 */ /* x112044 stalin.sc:12191:425472 */ t60073 = p12547->a24650; /* x112043 stalin.sc:12191:425451 */ a38880 = t60073; /* x288189 */ /* x288188 */ t60074 = a38880; /* x288187 */ if (!((t60074.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33797]"); structure_ref_error();} t60072 = t60074.value.structure_type27698->s20; /* x112042 stalin.sc:12190:425406 */ if (f6946(t60072)==FALSE_TYPE) goto l9310; l9309: /* x112072 */ /* x112071 */ goto l9311; l9310: /* x112076 */ /* x112075 */ /* x112074 stalin.sc:12192:425478 */ /* x112073 stalin.sc:12192:425479 */ /* x295137 QobiScheme.sc:166:5314 */ /* x295136 QobiScheme.sc:166:5321 */ t60075 = "This shouldn\'t happen"; /* x295135 QobiScheme.sc:166:5315 */ stalin_panic(t60075); l9311: /* x112035 */ t60007 = p12542; p12543 = t60007; /* x112034 stalin.sc:12193:425496 */ /* x111972 stalin.sc:12193:425500 */ /* x111971 stalin.sc:12193:425513 */ t60008 = p12543->a24649; /* x111970 stalin.sc:12193:425501 */ a40413 = t60008; /* x294321 */ /* x294320 */ t60009 = a40413; /* x294319 */ if (!((t60009&3)==0)) goto l9308; /* x112013 stalin.sc:12194:425522 */ /* x112012 stalin.sc:12194:425532 */ /* x112011 stalin.sc:12194:425550 */ t60062 = "x"; /* x112010 stalin.sc:12194:425533 */ t60028 = f12512(t60062); /* x112009 */ t60027 = p12543; p12544 = t60027; a24661 = t60028; /* x112008 stalin.sc:12195:425562 */ /* x111974 stalin.sc:12196:425592 */ t60029 = p12544->a24650; /* x112004 stalin.sc:12197:425600 */ /* x111976 stalin.sc:12198:425649 */ t60034 = p12544->a24650; /* x111980 stalin.sc:12200:425712 */ /* x111978 stalin.sc:12200:425732 */ /* x111979 stalin.sc:12200:425735 */ t60040 = "continuation"; /* x111977 stalin.sc:12200:425713 */ t60041.tag = FALSE_TYPE; t60042 = t60040; t60035 = f8468(t60041, t60042); /* x111983 stalin.sc:12201:425758 */ /* x111982 stalin.sc:12201:425764 */ t60043 = a24661; /* x111981 stalin.sc:12201:425759 */ a34871 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34871==NULL) {backtrace("stalin.sc", 12201, 425758); out_of_memory_error();} a34871->s0.tag = STRUCTURE_TYPE27692; a34871->s0.value.structure_type27692 = t60043; a34871->s1.tag = NULL_TYPE; /* x271749 */ t60036 = a34871; /* x112003 stalin.sc:12202:425775 */ /* x111985 stalin.sc:12203:425805 */ t60044 = p12544->a24650; /* x111990 stalin.sc:12204:425815 */ /* x111989 stalin.sc:12204:425834 */ /* x111988 stalin.sc:12204:425857 */ t60051 = p12544->a24650; /* x111987 stalin.sc:12204:425835 */ a38988 = t60051; /* x288621 */ /* x288620 */ t60052 = a38988; /* x288619 */ if (!((t60052.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33905]"); structure_ref_error();} t60050 = t60052.value.structure_type27698->s18; /* x111986 stalin.sc:12204:425816 */ t60045 = f12566(t60050); /* x111996 stalin.sc:12205:425869 */ /* x111992 stalin.sc:12205:425885 */ t60053 = a24661; /* x111995 stalin.sc:12205:425888 */ /* x111994 stalin.sc:12205:425911 */ t60055 = p12544->a24650; /* x111993 stalin.sc:12205:425889 */ a38933 = t60055; /* x288401 */ /* x288400 */ t60056 = a38933; /* x288399 */ if (!((t60056.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33850]"); structure_ref_error();} t60054 = t60056.value.structure_type27698->s19; /* x111991 stalin.sc:12205:425870 */ b24649 = ((unsigned)t60053)+1; b24650 = t60054; t60046 = f12513(); /* x112002 stalin.sc:12206:425923 */ /* x111998 stalin.sc:12206:425939 */ t60057 = a24661; /* x112001 stalin.sc:12206:425942 */ /* x112000 stalin.sc:12206:425964 */ t60059 = p12544->a24650; /* x111999 stalin.sc:12206:425943 */ a38878 = t60059; /* x288181 */ /* x288180 */ t60060 = a38878; /* x288179 */ if (!((t60060.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33795]"); structure_ref_error();} t60058 = t60060.value.structure_type27698->s20; /* x111997 stalin.sc:12206:425924 */ b24649 = ((unsigned)t60057)+1; b24650 = t60058; t60047 = f12513(); /* x111984 stalin.sc:12202:425776 */ t60048.tag = STRUCTURE_TYPE27698; t60048.value.structure_type27698 = t60046; t60049.tag = STRUCTURE_TYPE27698; t60049.value.structure_type27698 = t60047; t60037 = f6920(t60044, t60045, t60048, t60049); /* x111975 stalin.sc:12197:425601 */ t60038 = ((unsigned)t60036)+1; t60039 = t60037; t60030 = f6908(t60034, t60035, t60038, t60039); /* x112007 stalin.sc:12207:425976 */ /* x112006 stalin.sc:12207:425982 */ t60061 = p12544->a24649; /* x112005 stalin.sc:12207:425977 */ a34872 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34872==NULL) {backtrace("stalin.sc", 12207, 425976); out_of_memory_error();} /* MOVE: dispatching squished to general */ if ((t60061&3)==1) {a34872->s0.tag = STRUCTURE_TYPE27692; a34872->s0.value.structure_type27692 = (struct structure_type27692 *)(t60061-1);} else {a34872->s0.tag = STRUCTURE_TYPE27698; a34872->s0.value.structure_type27698 = (struct structure_type27698 *)t60061;} a34872->s1.tag = NULL_TYPE; /* x271751 */ t60031 = a34872; /* x111973 stalin.sc:12195:425563 */ t60032.tag = STRUCTURE_TYPE27698; t60032.value.structure_type27698 = t60030; t60033.tag = STRUCTURE_TYPE24753; t60033.value.structure_type24753 = t60031; return f6878(t60029, t60032, t60033); l9308: /* x112033 stalin.sc:12208:425993 */ /* x112015 stalin.sc:12209:426020 */ t60010 = p12543->a24650; /* x112020 stalin.sc:12210:426027 */ /* x112019 stalin.sc:12210:426046 */ /* x112018 stalin.sc:12210:426069 */ t60017 = p12543->a24650; /* x112017 stalin.sc:12210:426047 */ a38989 = t60017; /* x288625 */ /* x288624 */ t60018 = a38989; /* x288623 */ if (!((t60018.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33906]"); structure_ref_error();} t60016 = t60018.value.structure_type27698->s18; /* x112016 stalin.sc:12210:426028 */ t60011 = f12566(t60016); /* x112026 stalin.sc:12211:426078 */ /* x112022 stalin.sc:12211:426094 */ t60019 = p12543->a24649; /* x112025 stalin.sc:12211:426098 */ /* x112024 stalin.sc:12211:426121 */ t60021 = p12543->a24650; /* x112023 stalin.sc:12211:426099 */ a38934 = t60021; /* x288405 */ /* x288404 */ t60022 = a38934; /* x288403 */ if (!((t60022.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33851]"); structure_ref_error();} t60020 = t60022.value.structure_type27698->s19; /* x112021 stalin.sc:12211:426079 */ b24649 = t60019; b24650 = t60020; t60012 = f12513(); /* x112032 stalin.sc:12212:426130 */ /* x112028 stalin.sc:12212:426146 */ t60023 = p12543->a24649; /* x112031 stalin.sc:12212:426150 */ /* x112030 stalin.sc:12212:426172 */ t60025 = p12543->a24650; /* x112029 stalin.sc:12212:426151 */ a38879 = t60025; /* x288185 */ /* x288184 */ t60026 = a38879; /* x288183 */ if (!((t60026.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33796]"); structure_ref_error();} t60024 = t60026.value.structure_type27698->s20; /* x112027 stalin.sc:12212:426131 */ b24649 = t60023; b24650 = t60024; t60013 = f12513(); /* x112014 stalin.sc:12208:425994 */ t60014.tag = STRUCTURE_TYPE27698; t60014.value.structure_type27698 = t60012; t60015.tag = STRUCTURE_TYPE27698; t60015.value.structure_type27698 = t60013; return f6920(t60010, t60011, t60014, t60015); l9293: /* x112240 */ /* x112087 */ /* x112085 */ t59963 = a24652; /* x112086 */ t59964 = q77; /* x112084 */ t59965.tag = EXTERNAL_SYMBOL_TYPE; t59965.value.external_symbol_type = t59963; t59966.tag = EXTERNAL_SYMBOL_TYPE; t59966.value.external_symbol_type = t59964; if (f26160(t59965, t59966)==FALSE_TYPE) goto l9295; /* x112091 */ /* x112090 */ /* x112089 stalin.sc:12213:426208 */ /* x112088 stalin.sc:12213:426209 */ /* x295141 QobiScheme.sc:166:5314 */ /* x295140 QobiScheme.sc:166:5321 */ t59998 = "This shouldn\'t happen"; /* x295139 QobiScheme.sc:166:5315 */ stalin_panic(t59998); l9295: /* x112239 */ /* x112095 */ /* x112093 */ t59967 = a24652; /* x112094 */ t59968 = q78; /* x112092 */ t59969.tag = EXTERNAL_SYMBOL_TYPE; t59969.value.external_symbol_type = t59967; t59970.tag = EXTERNAL_SYMBOL_TYPE; t59970.value.external_symbol_type = t59968; if (f26160(t59969, t59970)==FALSE_TYPE) goto l9297; /* x112099 */ /* x112098 */ /* x112097 stalin.sc:12214:426244 */ /* x112096 stalin.sc:12214:426245 */ /* x295145 QobiScheme.sc:166:5314 */ /* x295144 QobiScheme.sc:166:5321 */ t59997 = "This shouldn\'t happen"; /* x295143 QobiScheme.sc:166:5315 */ stalin_panic(t59997); l9297: /* x112238 */ /* x112103 */ /* x112101 */ t59971 = a24652; /* x112102 */ t59972 = q38; /* x112100 */ t59973.tag = EXTERNAL_SYMBOL_TYPE; t59973.value.external_symbol_type = t59971; t59974.tag = EXTERNAL_SYMBOL_TYPE; t59974.value.external_symbol_type = t59972; if (f26160(t59973, t59974)==FALSE_TYPE) goto l9299; /* x112107 */ /* x112106 */ /* x112105 stalin.sc:12215:426269 */ /* x112104 stalin.sc:12215:426270 */ /* x295149 QobiScheme.sc:166:5314 */ /* x295148 QobiScheme.sc:166:5321 */ t59996 = "This shouldn\'t happen"; /* x295147 QobiScheme.sc:166:5315 */ stalin_panic(t59996); l9299: /* x112237 */ /* x112111 */ /* x112109 */ t59975 = a24652; /* x112110 */ t59976 = q36; /* x112108 */ t59977.tag = EXTERNAL_SYMBOL_TYPE; t59977.value.external_symbol_type = t59975; t59978.tag = EXTERNAL_SYMBOL_TYPE; t59978.value.external_symbol_type = t59976; if (f26160(t59977, t59978)==FALSE_TYPE) goto l9301; /* x112223 */ /* x112222 */ t59985 = p12516; p12553 = t59985; /* x112221 stalin.sc:12218:426364 */ /* x112219 stalin.sc:12218:426380 */ /* x112215 stalin.sc:12218:426386 */ /* x112214 stalin.sc:12218:426405 */ t59992 = p12553->a24650; /* x112213 stalin.sc:12218:426387 */ a19198 = t59992; /* x50460 */ /* x50459 */ t59993 = a19198; /* x50458 */ if (!((t59993.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-CALLEE[5655]"); structure_ref_error();} t59990 = t59993.value.structure_type27698->s21; /* x112218 stalin.sc:12218:426408 */ /* x112217 stalin.sc:12218:426430 */ t59994 = p12553->a24650; /* x112216 stalin.sc:12218:426409 */ a38493 = t59994; /* x286641 */ /* x286640 */ t59995 = a38493; /* x286639 */ if (!((t59995.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33410]"); structure_ref_error();} t59991 = t59995.value.structure_type27698->s22; /* x269396 stalin.sc:12218:426381 */ t59987 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t59987==NULL) {backtrace("stalin.sc", 12218, 426380); out_of_memory_error();} t59987->s0 = t59990; t59987->s1 = *((struct w49 *)(&t59991)); /* x112220 stalin.sc:12219:426441 */ /* x112211 */ /* x112210 */ /* x112209 */ /* x112208 */ t59988 = p12553; p12554 = t59988; /* x112207 */ /* x112206 */ /* x112205 */ /* x112113 */ t59989 = p12554; p12555 = t59989; /* x112112 stalin.sc:12218:426369 */ t59986 = p12555; d12556 = t59986; b24667.tag = STRUCTURE_TYPE24753; b24667.value.structure_type24753 = t59987; b24668 = (struct structure_type24753 *)NULL_TYPE; return f12556(); l9301: /* x112236 */ /* x112227 */ /* x112225 */ t59979 = a24652; /* x112226 */ t59980 = q37; /* x112224 */ t59981.tag = EXTERNAL_SYMBOL_TYPE; t59981.value.external_symbol_type = t59979; t59982.tag = EXTERNAL_SYMBOL_TYPE; t59982.value.external_symbol_type = t59980; if (f26160(t59981, t59982)==FALSE_TYPE) goto l9303; /* x112231 */ /* x112230 */ /* x112229 stalin.sc:12239:427213 */ /* x112228 stalin.sc:12239:427214 */ /* x295153 QobiScheme.sc:166:5314 */ /* x295152 QobiScheme.sc:166:5321 */ t59984 = "This shouldn\'t happen"; /* x295151 QobiScheme.sc:166:5315 */ stalin_panic(t59984); l9303: /* x112235 */ /* x112234 */ /* x112233 stalin.sc:12240:427234 */ /* x112232 stalin.sc:12240:427235 */ /* x295157 QobiScheme.sc:166:5314 */ /* x295156 QobiScheme.sc:166:5321 */ t59983 = "This shouldn\'t happen"; /* x295155 QobiScheme.sc:166:5315 */ stalin_panic(t59983); l9261: /* x112270 */ /* x112269 */ t59892 = e12513; p12565 = t59892; /* x112268 stalin.sc:12241:427255 */ /* x112264 stalin.sc:12241:427274 */ t59893 = p12565->a24649; /* x112267 stalin.sc:12241:427278 */ /* x112266 stalin.sc:12241:427297 */ t59895 = p12565->a24650; /* x112265 stalin.sc:12241:427279 */ t59894 = f12566(t59895); /* x112263 stalin.sc:12241:427256 */ return f12511(t59893, t59894);} /* STRING->VARIABLE[12512] */ struct structure_type27692 *f12512(char *a24648) {struct structure_type27510 *t60218; struct w49 t60219; char *t60220; struct w49 t60221; char *t60222; /* x111661 stalin.sc:12103:422236 */ /* x111660 stalin.sc:12103:422253 */ /* x111659 stalin.sc:12103:422284 */ /* x111658 stalin.sc:12103:422292 */ t60222 = a24648; /* x111657 stalin.sc:12103:422285 */ t60220 = f5362(t60222); /* x111656 stalin.sc:12103:422254 */ t60221.tag = EXTERNAL_SYMBOL_TYPE; t60221.value.external_symbol_type = t60220; t60218 = f6868(t60221); /* x111655 stalin.sc:12103:422237 */ t60219.tag = STRUCTURE_TYPE27510; t60219.value.structure_type27510 = t60218; return f8188(t60219);} /* CALL-CONTINUATION[12511] */ struct structure_type27698 *f12511(unsigned a24646, struct w49 a24647) {struct structure_type24753 *a35200; /* OBJS */ unsigned t60223; struct structure_type24753 *t60224; struct w49 t60225; struct w49 t60226; struct w12224 t60227; unsigned t60228; struct w49 t60229; /* x111652 stalin.sc:12100:422125 */ /* x111645 stalin.sc:12100:422149 */ /* x111648 stalin.sc:12100:422152 */ /* x111647 stalin.sc:12100:422184 */ t60228 = a24646; /* x111646 stalin.sc:12100:422153 */ t60223 = f12510(t60228); /* x111651 stalin.sc:12100:422189 */ /* x111650 stalin.sc:12100:422195 */ t60229 = a24647; /* x111649 stalin.sc:12100:422190 */ a35200 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35200==NULL) {backtrace("stalin.sc", 12100, 422189); out_of_memory_error();} a35200->s0 = t60229; a35200->s1.tag = NULL_TYPE; /* x272407 */ t60224 = a35200; /* x111644 stalin.sc:12100:422126 */ t60225.tag = FALSE_TYPE; /* MOVE: dispatching squished to general */ if ((t60223&3)==1) {t60226.tag = STRUCTURE_TYPE27692; t60226.value.structure_type27692 = (struct structure_type27692 *)(t60223-1);} else {t60226.tag = STRUCTURE_TYPE27698; t60226.value.structure_type27698 = (struct structure_type27698 *)t60223;} t60227.tag = STRUCTURE_TYPE24753; t60227.value.structure_type24753 = t60224; return f6878(t60225, t60226, t60227);} /* MAYBE-CREATE-ACCESS-EXPRESSION[12510] */ unsigned f12510(unsigned a24645) {unsigned a37024; /* OBJ */ unsigned t60230; unsigned t60231; unsigned t60232; struct w49 t60233; struct w49 t60234; struct structure_type27698 *t60235; /* x111641 stalin.sc:12096:421956 */ /* x111635 stalin.sc:12096:421960 */ /* x111634 stalin.sc:12096:421971 */ t60230 = a24645; /* x111633 stalin.sc:12096:421961 */ a37024 = t60230; /* x280765 */ /* x280764 */ t60231 = a37024; /* x280763 */ if (!((t60231&3)==1)) goto l9322; /* x111639 stalin.sc:12096:421976 */ /* x111637 stalin.sc:12096:422002 */ /* x111638 stalin.sc:12096:422005 */ t60232 = a24645; /* x111636 stalin.sc:12096:421977 */ t60233.tag = FALSE_TYPE; /* MOVE: dispatching squished to general */ if ((t60232&3)==1) {t60234.tag = STRUCTURE_TYPE27692; t60234.value.structure_type27692 = (struct structure_type27692 *)(t60232-1);} else {t60234.tag = STRUCTURE_TYPE27698; t60234.value.structure_type27698 = (struct structure_type27698 *)t60232;} t60235 = f6890(t60233, t60234); return (unsigned)t60235; l9322: /* x111640 stalin.sc:12096:422010 */ return a24645;} /* LOOP[12485] */ struct w16638 f12485(struct p12483 *p12485, struct w49 a24626) {struct w16638 r12485; char *a24627; /* v */ struct w16638 a24628; /* v */ struct w16638 a24629; /* v */ unsigned a24631; /* v */ struct w16638 a24632; /* v */ struct w16638 a24633; /* v */ struct w49 a38566; /* S */ struct w49 a38681; /* S */ struct w49 a38682; /* S */ struct w49 a38884; /* S */ struct w49 a38939; /* S */ struct w49 a38994; /* S */ struct w49 a39056; /* S */ struct w49 a39990; /* S */ struct w49 a40326; /* S */ struct w49 t60236; struct p12485 *t60237; char *t60238; char *t60239; char *t60240; struct w49 t60241; struct w49 t60242; char *t60243; char *t60244; struct w49 t60245; struct w49 t60246; char *t60247; char *t60248; struct w49 t60249; struct w49 t60250; char *t60251; char *t60252; struct w49 t60253; struct w49 t60254; struct p12485 *t60255; struct p12485 *t60256; unsigned t60257; struct p12485 *t60258; struct w16638 t60259; struct p12485 *t60260; struct w16638 t60261; struct p12483 *t60262; struct w11873 t60263; struct w228345 t60264; struct w49 t60265; struct structure_type24753 *t60266; struct w49 t60267; struct w49 t60268; struct p12483 *t60269; struct w49 t60270; struct w49 t60271; struct w49 t60272; struct p12485 *t60273; struct w49 t60274; struct w211257 t60275; struct w49 t60276; struct w49 t60277; struct w49 t60278; struct w49 t60279; struct w49 t60280; struct w49 t60281; struct p12485 *t60282; struct p12485 *t60283; struct w16638 t60284; struct p12485 *t60285; struct w16638 t60286; struct p12483 *t60287; struct w49 t60288; struct w49 t60289; struct w49 t60290; struct p12483 *t60291; struct w49 t60292; struct w49 t60293; struct w49 t60294; struct p12483 *t60295; struct w49 t60296; struct w49 t60297; struct w49 t60298; struct p12485 *t60299; struct p12483 *t60300; struct w49 t60301; struct w49 t60302; struct w49 t60303; struct w49 t60304; struct w49 t60305; struct p12485 *e12485; struct p12485 *p12486; struct p12485 *p12487; struct p12485 *p12488; struct p12485 *p12489; struct p12485 *p12490; struct p12485 *p12492; struct p12485 *p12493; struct p12485 *p12494; struct p12485 *p12495; h12485: e12485 = (struct p12485 *)alloca(sizeof(struct p12485)); if (e12485==NULL) {backtrace_internal("[inside SOME-SUBEXPRESSION-CALLS? 12483]"); out_of_memory_error();} e12485->p12483 = p12485; e12485->a24626 = a24626; /* x111614 stalin.sc:11914:416200 */ /* x111260 stalin.sc:11915:416209 */ /* x111259 stalin.sc:11915:416219 */ t60236 = e12485->a24626; /* x111258 stalin.sc:11915:416210 */ if (f6961(t60236)==FALSE_TYPE) goto l9324; /* x111612 */ /* x111611 stalin.sc:11916:416232 */ /* x111610 stalin.sc:11916:416249 */ t60304 = e12485->a24626; /* x111609 stalin.sc:11916:416233 */ a40326 = t60304; /* x293973 */ /* x293972 */ t60305 = a40326; /* x293971 */ if (!((t60305.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35243]"); structure_ref_error();} t60238 = t60305.value.structure_type27698->s0; /* x111608 */ t60237 = e12485; p12486 = t60237; a24627 = t60238; /* x111607 */ /* x111264 */ /* x111262 */ t60239 = a24627; /* x111263 */ t60240 = q42; /* x111261 */ t60241.tag = EXTERNAL_SYMBOL_TYPE; t60241.value.external_symbol_type = t60239; t60242.tag = EXTERNAL_SYMBOL_TYPE; t60242.value.external_symbol_type = t60240; if (f26160(t60241, t60242)==FALSE_TYPE) goto l9326; /* x111271 */ /* x111270 */ t60299 = p12486; p12487 = t60299; /* x111269 stalin.sc:11917:416265 */ /* x111268 stalin.sc:11917:416271 */ /* x111267 stalin.sc:11917:416290 */ t60302 = p12487->a24626; /* x111266 stalin.sc:11917:416272 */ a39056 = t60302; /* x288893 */ /* x288892 */ t60303 = a39056; /* x288891 */ if (!((t60303.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33973]"); structure_ref_error();} t60301 = t60303.value.structure_type27698->s17; /* x111265 stalin.sc:11917:416266 */ t60300 = p12487->p12483->a24624; p12485 = t60300; a24626 = t60301; goto h12485; l9326: /* x111606 */ /* x111275 */ /* x111273 */ t60243 = a24627; /* x111274 */ t60244 = q43; /* x111272 */ t60245.tag = EXTERNAL_SYMBOL_TYPE; t60245.value.external_symbol_type = t60243; t60246.tag = EXTERNAL_SYMBOL_TYPE; t60246.value.external_symbol_type = t60244; if (f26160(t60245, t60246)==FALSE_TYPE) goto l9328; /* x111302 */ /* x111301 */ t60282 = p12486; p12488 = t60282; /* x111300 stalin.sc:11918:416306 */ /* x111299 stalin.sc:11918:416310 */ /* x111298 stalin.sc:11918:416316 */ /* x111297 stalin.sc:11918:416339 */ t60297 = p12488->a24626; /* x111296 stalin.sc:11918:416317 */ a38994 = t60297; /* x288645 */ /* x288644 */ t60298 = a38994; /* x288643 */ if (!((t60298.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33911]"); structure_ref_error();} t60296 = t60298.value.structure_type27698->s18; /* x111295 stalin.sc:11918:416311 */ t60295 = p12488->p12483->a24624; t60284 = f12485(t60295, t60296); /* x111294 */ t60283 = p12488; p12489 = t60283; a24628 = t60284; /* x111293 */ /* x111276 */ if ((a24628.tag)==FALSE_TYPE) goto l9339; /* x111277 */ return a24628; l9339: /* x111292 */ /* x111291 stalin.sc:11919:416351 */ /* x111290 stalin.sc:11919:416357 */ /* x111289 stalin.sc:11919:416380 */ t60293 = p12489->a24626; /* x111288 stalin.sc:11919:416358 */ a38939 = t60293; /* x288425 */ /* x288424 */ t60294 = a38939; /* x288423 */ if (!((t60294.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33856]"); structure_ref_error();} t60292 = t60294.value.structure_type27698->s19; /* x111287 stalin.sc:11919:416352 */ t60291 = p12489->p12483->a24624; t60286 = f12485(t60291, t60292); /* x111286 */ t60285 = p12489; p12490 = t60285; a24629 = t60286; /* x111285 */ /* x111278 */ if ((a24629.tag)==FALSE_TYPE) goto l9341; /* x111279 */ return a24629; l9341: /* x111284 */ /* x111283 stalin.sc:11920:416398 */ /* x111282 stalin.sc:11920:416420 */ t60289 = p12490->a24626; /* x111281 stalin.sc:11920:416399 */ a38884 = t60289; /* x288205 */ /* x288204 */ t60290 = a38884; /* x288203 */ if (!((t60290.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33801]"); structure_ref_error();} t60288 = t60290.value.structure_type27698->s20; /* x111280 stalin.sc:11920:416393 */ t60287 = p12490->p12483->a24624; p12485 = t60287; a24626 = t60288; goto h12485; l9328: /* x111605 */ /* x111315 */ /* x111314 */ /* x111312 */ t60247 = a24627; /* x111313 */ t60248 = q36; /* x111311 */ t60249.tag = EXTERNAL_SYMBOL_TYPE; t60249.value.external_symbol_type = t60247; t60250.tag = EXTERNAL_SYMBOL_TYPE; t60250.value.external_symbol_type = t60248; if (!(f26160(t60249, t60250)==FALSE_TYPE)) goto l9329; /* x111308 */ /* x111306 */ t60251 = a24627; /* x111307 */ t60252 = q37; /* x111305 */ t60253.tag = EXTERNAL_SYMBOL_TYPE; t60253.value.external_symbol_type = t60251; t60254.tag = EXTERNAL_SYMBOL_TYPE; t60254.value.external_symbol_type = t60252; if (f26160(t60253, t60254)==FALSE_TYPE) goto l9330; l9329: /* x111601 */ /* x111600 */ t60255 = p12486; p12492 = t60255; /* x111599 stalin.sc:11923:416516 */ /* x111598 stalin.sc:11924:416527 */ /* x111596 stalin.sc:11924:416532 */ t60280 = p12492->a24626; /* x111597 stalin.sc:11924:416534 */ t60281 = p12492->p12483->p12482->a24623; /* x269400 stalin.sc:11924:416528 */ /* EQ: dispatching general to general */ if ((t60280.tag)==(t60281.tag)) {switch (t60280.tag) {case FIXNUM_TYPE: t60257 = ((t60280.value.fixnum_type)==(t60281.value.fixnum_type))?TRUE_TYPE:FALSE_TYPE; break; case FLONUM_TYPE: t60257 = ((t60280.value.flonum_type)==(t60281.value.flonum_type))?TRUE_TYPE:FALSE_TYPE; break; case INPUT_PORT_TYPE: t60257 = ((t60280.value.input_port_type)==(t60281.value.input_port_type))?TRUE_TYPE:FALSE_TYPE; break; case OUTPUT_PORT_TYPE: t60257 = ((t60280.value.output_port_type)==(t60281.value.output_port_type))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE15963: t60257 = ((t60280.value.native_procedure_type15963)==(t60281.value.native_procedure_type15963))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19067: t60257 = ((t60280.value.native_procedure_type19067)==(t60281.value.native_procedure_type19067))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19068: t60257 = ((t60280.value.native_procedure_type19068)==(t60281.value.native_procedure_type19068))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE22459: t60257 = ((t60280.value.native_procedure_type22459)==(t60281.value.native_procedure_type22459))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24753: t60257 = ((t60280.value.structure_type24753)==(t60281.value.structure_type24753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24757: t60257 = ((t60280.value.structure_type24757)==(t60281.value.structure_type24757))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27501: t60257 = ((t60280.value.structure_type27501)==(t60281.value.structure_type27501))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27510: t60257 = ((t60280.value.structure_type27510)==(t60281.value.structure_type27510))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27621: t60257 = ((t60280.value.structure_type27621)==(t60281.value.structure_type27621))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27650: t60257 = ((t60280.value.structure_type27650)==(t60281.value.structure_type27650))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27669: t60257 = ((t60280.value.structure_type27669)==(t60281.value.structure_type27669))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27673: t60257 = ((t60280.value.structure_type27673)==(t60281.value.structure_type27673))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27692: t60257 = ((t60280.value.structure_type27692)==(t60281.value.structure_type27692))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27694: t60257 = ((t60280.value.structure_type27694)==(t60281.value.structure_type27694))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27698: t60257 = ((t60280.value.structure_type27698)==(t60281.value.structure_type27698))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27745: t60257 = ((t60280.value.structure_type27745)==(t60281.value.structure_type27745))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27747: t60257 = ((t60280.value.structure_type27747)==(t60281.value.structure_type27747))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27750: t60257 = ((t60280.value.structure_type27750)==(t60281.value.structure_type27750))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27753: t60257 = ((t60280.value.structure_type27753)==(t60281.value.structure_type27753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27756: t60257 = ((t60280.value.structure_type27756)==(t60281.value.structure_type27756))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27761: t60257 = ((t60280.value.structure_type27761)==(t60281.value.structure_type27761))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27769: t60257 = ((t60280.value.structure_type27769)==(t60281.value.structure_type27769))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27776: t60257 = ((t60280.value.structure_type27776)==(t60281.value.structure_type27776))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27779: t60257 = ((t60280.value.structure_type27779)==(t60281.value.structure_type27779))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27858: t60257 = ((t60280.value.structure_type27858)==(t60281.value.structure_type27858))?TRUE_TYPE:FALSE_TYPE; break; case STRING_TYPE: t60257 = ((t60280.value.string_type)==(t60281.value.string_type))?TRUE_TYPE:FALSE_TYPE; break; case HEADED_VECTOR_TYPE27896: t60257 = ((t60280.value.headed_vector_type27896)==(t60281.value.headed_vector_type27896))?TRUE_TYPE:FALSE_TYPE; break; case EXTERNAL_SYMBOL_TYPE: t60257 = ((t60280.value.external_symbol_type)==(t60281.value.external_symbol_type))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27908: t60257 = ((t60280.value.structure_type27908)==(t60281.value.structure_type27908))?TRUE_TYPE:FALSE_TYPE; break; default: t60257 = TRUE_TYPE;}} else t60257 = FALSE_TYPE; /* x111594 */ t60256 = p12492; p12493 = t60256; a24631 = t60257; /* x111593 */ /* x111316 */ if (a24631==FALSE_TYPE) goto l9333; /* x111317 */ r12485.tag = a24631; return r12485; l9333: /* x111592 */ /* x111591 stalin.sc:11925:416545 */ /* x111585 stalin.sc:11926:416555 */ t60273 = p12493; /* x111590 stalin.sc:11997:418632 */ /* x111589 stalin.sc:11997:418653 */ /* x111588 stalin.sc:11997:418672 */ t60278 = p12493->a24626; /* x111587 stalin.sc:11997:418654 */ a38682 = t60278; /* x287397 */ /* x287396 */ t60279 = a38682; /* x287395 */ if (!((t60279.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33599]"); structure_ref_error();} t60276 = t60279.value.structure_type27698->s21; /* x111586 stalin.sc:11997:418633 */ a39990 = t60276; /* x292629 */ /* x292628 */ t60277 = a39990; /* x292627 */ if (!((t60277.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34907]"); structure_ref_error();} t60274 = t60277.value.structure_type27698->s10; /* x111338 stalin.sc:11925:416546 */ t60275.tag = NATIVE_PROCEDURE_TYPE17829; t60275.value.native_procedure_type17829 = t60273; t60259 = f8137(t60275, t60274); /* x111337 */ t60258 = p12493; p12494 = t60258; a24632 = t60259; /* x111336 */ /* x111318 */ if ((a24632.tag)==FALSE_TYPE) goto l9335; /* x111319 */ return a24632; l9335: /* x111335 */ /* x111334 stalin.sc:11998:418684 */ /* x111333 stalin.sc:11998:418690 */ /* x111332 stalin.sc:11998:418709 */ t60271 = p12494->a24626; /* x111331 stalin.sc:11998:418691 */ a38681 = t60271; /* x287393 */ /* x287392 */ t60272 = a38681; /* x287391 */ if (!((t60272.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33598]"); structure_ref_error();} t60270 = t60272.value.structure_type27698->s21; /* x111330 stalin.sc:11998:418685 */ t60269 = p12494->p12483->a24624; t60261 = f12485(t60269, t60270); /* x111329 */ t60260 = p12494; p12495 = t60260; a24633 = t60261; /* x111328 */ /* x111320 */ if ((a24633.tag)==FALSE_TYPE) goto l9337; /* x111321 */ return a24633; l9337: /* x111327 */ /* x111326 stalin.sc:11999:418731 */ /* x111325 stalin.sc:11999:418753 */ t60267 = p12495->a24626; /* x111324 stalin.sc:11999:418732 */ a38566 = t60267; /* x286933 */ /* x286932 */ t60268 = a38566; /* x286931 */ if (!((t60268.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33483]"); structure_ref_error();} t60263 = t60268.value.structure_type27698->s22; /* x111323 stalin.sc:11999:418726 */ t60262 = p12495->p12483->a24624; /* x111322 stalin.sc:11999:418721 */ t60264.tag = NATIVE_PROCEDURE_TYPE17822; t60264.value.native_procedure_type17822 = t60262; t60265 = *((struct w49 *)(&t60263)); t60266 = (struct structure_type24753 *)NULL_TYPE; return f1042(t60264, t60265, t60266); l9330: /* x111604 */ /* x111603 */ /* x111602 stalin.sc:12000:418770 */ r12485.tag = FALSE_TYPE; return r12485; l9324: /* x111613 */ r12485.tag = FALSE_TYPE; return r12485;} /* [inside DETERMINE-WHICH-EXPRESSIONS-NEED-CONVERSION-TO-CPS! 12476] */ struct w12224 f12476(struct w49 a24616) {struct p12476 *t60306; struct w21193 t60307; struct w227671 t60308; struct w49 t60309; struct p12476 *e12476; e12476 = (struct p12476 *)alloca(sizeof(struct p12476)); if (e12476==NULL) {backtrace("stalin.sc", 12037, 419952); out_of_memory_error();} e12476->a24616 = a24616; /* x111163 stalin.sc:12038:419969 */ /* x111161 stalin.sc:12039:419990 */ t60306 = e12476; /* x111162 stalin.sc:12050:420333 */ t60307 = a2030; /* x111129 stalin.sc:12038:419970 */ t60308.tag = NATIVE_PROCEDURE_TYPE17808; t60308.value.native_procedure_type17808 = t60306; t60309 = *((struct w49 *)(&t60307)); return f1226(t60308, t60309);} /* NEEDS-CONVERSION-TO-CPS?[12471] */ struct w16638 f12471(struct w49 a24611) {struct w16638 r12471; struct p12471 *t60310; struct w12224 t60311; struct structure_type24753 *t60312; struct w228345 t60313; struct w49 t60314; struct structure_type24753 *t60315; struct p12471 *t60316; struct w21193 t60317; struct w228345 t60318; struct w49 t60319; struct structure_type24753 *t60320; struct p12471 *e12471; e12471 = (struct p12471 *)alloca(sizeof(struct p12471)); if (e12471==NULL) {backtrace_internal("[inside DETERMINE-WHICH-EXPRESSIONS-NEED-CONVERSION-TO-CPS! 12456]"); out_of_memory_error();} e12471->a24611 = a24611; /* x111117 stalin.sc:12053:420395 */ /* x111107 stalin.sc:12053:420400 */ /* x111106 stalin.sc:12058:420545 */ t60312 = a24599; /* x111105 stalin.sc:12057:420540 */ t60311 = a24598; /* x111104 stalin.sc:12054:420408 */ t60310 = e12471; /* x111085 stalin.sc:12053:420401 */ t60313.tag = NATIVE_PROCEDURE_TYPE17817; t60313.value.native_procedure_type17817 = t60310; t60314 = *((struct w49 *)(&t60311)); t60315 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t60315==NULL) {backtrace("stalin.sc", 12053, 420400); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t60312>=((struct structure_type24753 *)VALUE_OFFSET)) {t60315->s0.tag = STRUCTURE_TYPE24753; t60315->s0.value.structure_type24753 = t60312;} else t60315->s0.tag = (unsigned)t60312; t60315->s1.tag = NULL_TYPE; if ((f1042(t60313, t60314, t60315).tag)==FALSE_TYPE) goto l9343; /* x111115 */ /* x111114 stalin.sc:12059:420596 */ t60317 = a1943; /* x111113 stalin.sc:12059:420557 */ t60316 = e12471; /* x111108 stalin.sc:12059:420552 */ t60318.tag = NATIVE_PROCEDURE_TYPE17818; t60318.value.native_procedure_type17818 = t60316; t60319 = *((struct w49 *)(&t60317)); t60320 = (struct structure_type24753 *)NULL_TYPE; return f1042(t60318, t60319, t60320); l9343: /* x111116 */ r12471.tag = FALSE_TYPE; return r12471;} /* [inside DETERMINE-WHICH-EXPRESSIONS-NEED-CONVERSION-TO-CPS! 12458] */ void f12458(struct w49 a24602) {struct w49 a20916; /* X */ struct w16638 a20917; /* P? */ struct w49 a20920; /* X */ struct w16638 a20921; /* P? */ char *a24604; /* v */ struct w16638 a24605; /* v */ struct w16638 a24606; /* v */ struct w16638 a24608; /* v */ struct w16638 a24609; /* v */ int a33700; /* N */ int a34811; /* N */ struct w49 a38455; /* S */ struct w49 a38456; /* S */ struct w49 a38457; /* S */ struct w49 a38458; /* S */ struct w49 a38495; /* S */ struct w49 a38607; /* S */ struct w49 a38608; /* S */ struct w49 a38883; /* S */ struct w49 a38938; /* S */ struct w49 a38993; /* S */ struct w49 a39055; /* S */ struct w49 a39832; /* S */ struct w49 a40231; /* S */ struct p12458 *t60321; struct w49 t60322; struct w16638 t60323; struct w49 t60324; int t60325; int t60326; int t60327; struct structure_type24753 *t60328; struct w49 t60329; struct w49 t60330; struct w49 t60331; int t60332; int t60333; int t60334; int t60335; struct structure_type24753 *t60336; struct w49 t60337; struct w49 t60338; struct w49 t60339; struct w16638 t60340; char *t60341; struct w49 t60342; struct p12458 *t60343; char *t60344; char *t60345; char *t60346; struct w49 t60347; struct w49 t60348; char *t60349; char *t60350; struct w49 t60351; struct w49 t60352; char *t60353; char *t60354; struct w49 t60355; struct w49 t60356; char *t60357; char *t60358; struct w49 t60359; struct w49 t60360; struct p12458 *t60361; struct p12458 *t60362; struct w16638 t60363; struct p12458 *t60364; struct w16638 t60365; struct p12458 *t60366; struct w49 t60367; struct w211257 t60368; struct w49 t60369; struct w49 t60370; struct w49 t60371; struct w49 t60372; struct w11873 t60373; struct w228345 t60374; struct w49 t60375; struct structure_type24753 *t60376; struct w49 t60377; struct w49 t60378; struct w49 t60379; struct w49 t60380; struct w49 t60381; struct p12458 *t60382; struct p12458 *t60383; struct w16638 t60384; struct p12458 *t60385; struct w16638 t60386; struct w49 t60387; struct w49 t60388; struct w49 t60389; struct w49 t60390; struct w49 t60391; struct w49 t60392; struct w49 t60393; struct w49 t60394; struct w49 t60395; struct p12458 *t60396; struct w49 t60397; struct w49 t60398; struct w49 t60399; struct w49 t60400; struct w49 t60401; struct w49 t60402; struct w16638 t60403; struct w49 t60404; int t60405; int t60406; int t60407; struct structure_type24753 *t60408; struct w49 t60409; struct w49 t60410; struct w49 t60411; int t60412; int t60413; int t60414; int t60415; struct structure_type24753 *t60416; struct w49 t60417; struct w49 t60418; struct w49 t60419; struct w16638 t60420; char *t60421; struct w49 t60422; struct p12458 *e12458; struct p12458 *p12459; struct p12458 *p12460; struct p12458 *p12461; struct p12458 *p12462; struct p12458 *p12463; struct p12458 *p12464; struct p12458 *p12466; struct p12458 *p12467; struct p12458 *p12468; e12458 = (struct p12458 *)alloca(sizeof(struct p12458)); if (e12458==NULL) {backtrace_internal("[inside DETERMINE-WHICH-EXPRESSIONS-NEED-CONVERSION-TO-CPS! 12457]"); out_of_memory_error();} e12458->a24602 = a24602; /* x111080 */ /* x111079 stalin.sc:12062:420651 */ /* x111075 stalin.sc:12062:420693 */ t60402 = e12458->a24602; /* x111078 stalin.sc:12062:420695 */ /* x111077 stalin.sc:12062:420721 */ t60422 = e12458->a24602; /* x111076 stalin.sc:12062:420696 */ t60403 = f12471(t60422); /* x111074 stalin.sc:12062:420652 */ a20916 = t60402; a20917 = t60403; /* x58564 */ /* x58563 stalin.sc:764:24059 */ /* x58556 stalin.sc:764:24067 */ /* x58555 stalin.sc:764:24077 */ t60420 = a20917; /* x270738 stalin.sc:764:24068 */ switch (t60420.tag) {case TRUE_TYPE: case FALSE_TYPE: break; default: goto l9379;} /* x58558 */ /* x58557 */ goto l9380; l9379: /* x58562 */ /* x58561 */ /* x58560 stalin.sc:764:24081 */ /* x58559 stalin.sc:764:24082 */ /* x295185 QobiScheme.sc:166:5314 */ /* x295184 QobiScheme.sc:166:5321 */ t60421 = "This shouldn\'t happen"; /* x295183 QobiScheme.sc:166:5315 */ stalin_panic(t60421); l9380: /* x58553 */ while (region6943!=((struct region6943 *)(&initial_region6943))) {struct region6943 *region; region = region6943; region6943 = region6943->region; GC_free(region);} region_size6943 = REGION_SIZE6943; fp6943 = &((region6943->data)[0]); ALIGN(fp6943); /* x58552 stalin.sc:765:24093 */ /* x58535 stalin.sc:766:24121 */ t60404 = a20916; /* x58551 stalin.sc:767:24125 */ /* x58536 stalin.sc:767:24129 */ if ((a20917.tag)==FALSE_TYPE) goto l9376; /* x58542 stalin.sc:768:24138 */ /* x58541 stalin.sc:768:24170 */ t60415 = 8; /* x58540 stalin.sc:768:24146 */ /* x58539 stalin.sc:768:24167 */ t60418 = a20916; /* x58538 stalin.sc:768:24147 */ a38457 = t60418; /* x286497 */ /* x286496 */ t60419 = a38457; /* x286495 */ if (!((t60419.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BOOLEANS[5735] 33374]"); structure_ref_error();} t60414 = t60419.value.structure_type27698->s31; /* x58537 stalin.sc:768:24139 */ if ((fp6943+sizeof(struct structure_type24753))>(&((region6943->data)[region_size6943]))) {struct region6943 *region; unsigned region_size = REGION_SIZE6943; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region6943 *)GC_malloc_uncollectable(sizeof(struct region6943)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 768, 24138); out_of_memory_error();} region->region = region6943; region_size6943 = region_size; region6943 = region; fp6943 = &((region->data)[0]); ALIGN(fp6943);} t60417.tag = STRUCTURE_TYPE24753; t60417.value.structure_type24753 = (struct structure_type24753 *)fp6943; fp6943 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t60417.value.structure_type24753->s0.tag = FIXNUM_TYPE; t60417.value.structure_type24753->s0.value.fixnum_type = t60415; t60417.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp6943+sizeof(struct structure_type24753))>(&((region6943->data)[region_size6943]))) {struct region6943 *region; unsigned region_size = REGION_SIZE6943; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region6943 *)GC_malloc_uncollectable(sizeof(struct region6943)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 768, 24138); out_of_memory_error();} region->region = region6943; region_size6943 = region_size; region6943 = region; fp6943 = &((region->data)[0]); ALIGN(fp6943);} t60416 = (struct structure_type24753 *)fp6943; fp6943 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t60416->s0.tag = FIXNUM_TYPE; t60416->s0.value.fixnum_type = t60414; t60416->s1 = t60417; t60405 = f27310(t60416); goto l9377; l9376: /* x58550 stalin.sc:769:24179 */ /* x58549 stalin.sc:769:24212 */ /* x58548 stalin.sc:769:24221 */ t60412 = 8; /* x58547 stalin.sc:769:24213 */ a34811 = t60412; /* x271529 */ /* x271528 */ t60413 = a34811; /* x271527 */ t60407 = ~t60413; /* x58546 stalin.sc:769:24188 */ /* x58545 stalin.sc:769:24209 */ t60410 = a20916; /* x58544 stalin.sc:769:24189 */ a38458 = t60410; /* x286501 */ /* x286500 */ t60411 = a38458; /* x286499 */ if (!((t60411.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BOOLEANS[5735] 33375]"); structure_ref_error();} t60406 = t60411.value.structure_type27698->s31; /* x58543 stalin.sc:769:24180 */ if ((fp6943+sizeof(struct structure_type24753))>(&((region6943->data)[region_size6943]))) {struct region6943 *region; unsigned region_size = REGION_SIZE6943; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region6943 *)GC_malloc_uncollectable(sizeof(struct region6943)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 769, 24179); out_of_memory_error();} region->region = region6943; region_size6943 = region_size; region6943 = region; fp6943 = &((region->data)[0]); ALIGN(fp6943);} t60409.tag = STRUCTURE_TYPE24753; t60409.value.structure_type24753 = (struct structure_type24753 *)fp6943; fp6943 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t60409.value.structure_type24753->s0.tag = FIXNUM_TYPE; t60409.value.structure_type24753->s0.value.fixnum_type = t60407; t60409.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp6943+sizeof(struct structure_type24753))>(&((region6943->data)[region_size6943]))) {struct region6943 *region; unsigned region_size = REGION_SIZE6943; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region6943 *)GC_malloc_uncollectable(sizeof(struct region6943)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 769, 24179); out_of_memory_error();} region->region = region6943; region_size6943 = region_size; region6943 = region; fp6943 = &((region->data)[0]); ALIGN(fp6943);} t60408 = (struct structure_type24753 *)fp6943; fp6943 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t60408->s0.tag = FIXNUM_TYPE; t60408->s0.value.fixnum_type = t60406; t60408->s1 = t60409; t60405 = f27305(t60408); l9377: /* x58534 stalin.sc:765:24094 */ f5736(t60404, t60405); /* x111073 */ t60321 = e12458; p12459 = t60321; /* x111072 stalin.sc:12063:420729 */ /* x110931 stalin.sc:12064:420781 */ t60322 = p12459->a24602; /* x111071 stalin.sc:12065:420788 */ /* x110936 stalin.sc:12065:420793 */ /* x110935 stalin.sc:12065:420798 */ /* x110934 stalin.sc:12065:420824 */ t60342 = p12459->a24602; /* x110933 stalin.sc:12065:420799 */ if (!((f12471(t60342).tag)==FALSE_TYPE)) goto l9351; /* x111069 */ /* x111068 stalin.sc:12066:420837 */ /* x111067 stalin.sc:12066:420854 */ t60400 = p12459->a24602; /* x111066 stalin.sc:12066:420838 */ a40231 = t60400; /* x293593 */ /* x293592 */ t60401 = a40231; /* x293591 */ if (!((t60401.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35148]"); structure_ref_error();} t60344 = t60401.value.structure_type27698->s0; /* x111065 */ t60343 = p12459; p12460 = t60343; a24604 = t60344; /* x111064 */ /* x110940 */ /* x110938 */ t60345 = a24604; /* x110939 */ t60346 = q42; /* x110937 */ t60347.tag = EXTERNAL_SYMBOL_TYPE; t60347.value.external_symbol_type = t60345; t60348.tag = EXTERNAL_SYMBOL_TYPE; t60348.value.external_symbol_type = t60346; if (f26160(t60347, t60348)==FALSE_TYPE) goto l9354; /* x110947 */ /* x110946 */ t60396 = p12460; p12461 = t60396; /* x110945 stalin.sc:12067:420869 */ /* x110944 stalin.sc:12067:420895 */ /* x110943 stalin.sc:12067:420914 */ t60398 = p12461->a24602; /* x110942 stalin.sc:12067:420896 */ a39055 = t60398; /* x288889 */ /* x288888 */ t60399 = a39055; /* x288887 */ if (!((t60399.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33972]"); structure_ref_error();} t60397 = t60399.value.structure_type27698->s17; /* x110941 stalin.sc:12067:420870 */ t60323 = f12471(t60397); goto l9355; l9354: /* x111063 */ /* x110951 */ /* x110949 */ t60349 = a24604; /* x110950 */ t60350 = q43; /* x110948 */ t60351.tag = EXTERNAL_SYMBOL_TYPE; t60351.value.external_symbol_type = t60349; t60352.tag = EXTERNAL_SYMBOL_TYPE; t60352.value.external_symbol_type = t60350; if (f26160(t60351, t60352)==FALSE_TYPE) goto l9357; /* x110978 */ /* x110977 */ t60382 = p12460; p12462 = t60382; /* x110976 stalin.sc:12068:420929 */ /* x110975 stalin.sc:12068:420933 */ /* x110974 stalin.sc:12068:420959 */ /* x110973 stalin.sc:12068:420982 */ t60394 = p12462->a24602; /* x110972 stalin.sc:12068:420960 */ a38993 = t60394; /* x288641 */ /* x288640 */ t60395 = a38993; /* x288639 */ if (!((t60395.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33910]"); structure_ref_error();} t60393 = t60395.value.structure_type27698->s18; /* x110971 stalin.sc:12068:420934 */ t60384 = f12471(t60393); /* x110970 */ t60383 = p12462; p12463 = t60383; a24605 = t60384; /* x110969 */ /* x110952 */ if ((a24605.tag)==FALSE_TYPE) goto l9370; /* x110953 */ t60323 = a24605; goto l9371; l9370: /* x110968 */ /* x110967 stalin.sc:12069:420993 */ /* x110966 stalin.sc:12069:421019 */ /* x110965 stalin.sc:12069:421042 */ t60391 = p12463->a24602; /* x110964 stalin.sc:12069:421020 */ a38938 = t60391; /* x288421 */ /* x288420 */ t60392 = a38938; /* x288419 */ if (!((t60392.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33855]"); structure_ref_error();} t60390 = t60392.value.structure_type27698->s19; /* x110963 stalin.sc:12069:420994 */ t60386 = f12471(t60390); /* x110962 */ t60385 = p12463; p12464 = t60385; a24606 = t60386; /* x110961 */ /* x110954 */ if ((a24606.tag)==FALSE_TYPE) goto l9373; /* x110955 */ t60323 = a24606; goto l9374; l9373: /* x110960 */ /* x110959 stalin.sc:12070:421079 */ /* x110958 stalin.sc:12070:421101 */ t60388 = p12464->a24602; /* x110957 stalin.sc:12070:421080 */ a38883 = t60388; /* x288201 */ /* x288200 */ t60389 = a38883; /* x288199 */ if (!((t60389.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33800]"); structure_ref_error();} t60387 = t60389.value.structure_type27698->s20; /* x110956 stalin.sc:12070:421054 */ t60323 = f12471(t60387); l9374: l9371: goto l9358; l9357: /* x111062 */ /* x110991 */ /* x110990 */ /* x110988 */ t60353 = a24604; /* x110989 */ t60354 = q36; /* x110987 */ t60355.tag = EXTERNAL_SYMBOL_TYPE; t60355.value.external_symbol_type = t60353; t60356.tag = EXTERNAL_SYMBOL_TYPE; t60356.value.external_symbol_type = t60354; if (!(f26160(t60355, t60356)==FALSE_TYPE)) goto l9359; /* x110984 */ /* x110982 */ t60357 = a24604; /* x110983 */ t60358 = q37; /* x110981 */ t60359.tag = EXTERNAL_SYMBOL_TYPE; t60359.value.external_symbol_type = t60357; t60360.tag = EXTERNAL_SYMBOL_TYPE; t60360.value.external_symbol_type = t60358; if (f26160(t60359, t60360)==FALSE_TYPE) goto l9360; l9359: /* x111058 */ /* x111057 */ t60361 = p12460; p12466 = t60361; /* x111056 stalin.sc:12072:421139 */ /* x111055 stalin.sc:12072:421143 */ /* x111054 stalin.sc:12072:421169 */ /* x111053 stalin.sc:12072:421188 */ t60380 = p12466->a24602; /* x111052 stalin.sc:12072:421170 */ a38608 = t60380; /* x287101 */ /* x287100 */ t60381 = a38608; /* x287099 */ if (!((t60381.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33525]"); structure_ref_error();} t60379 = t60381.value.structure_type27698->s21; /* x111051 stalin.sc:12072:421144 */ t60363 = f12471(t60379); /* x111050 */ t60362 = p12466; p12467 = t60362; a24608 = t60363; /* x111049 */ /* x110992 */ if ((a24608.tag)==FALSE_TYPE) goto l9364; /* x110993 */ t60323 = a24608; goto l9365; l9364: /* x111048 */ /* x111047 stalin.sc:12073:421194 */ /* x111046 stalin.sc:12073:421225 */ /* x111045 stalin.sc:12073:421247 */ t60377 = p12467->a24602; /* x111044 stalin.sc:12073:421226 */ a38495 = t60377; /* x286649 */ /* x286648 */ t60378 = a38495; /* x286647 */ if (!((t60378.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33412]"); structure_ref_error();} t60373 = t60378.value.structure_type27698->s22; /* x111043 stalin.sc:12073:421200 */ /* x111042 stalin.sc:12073:421195 */ t60374.tag = NATIVE_PROCEDURE_TYPE17814; t60375 = *((struct w49 *)(&t60373)); t60376 = (struct structure_type24753 *)NULL_TYPE; t60365 = f1042(t60374, t60375, t60376); /* x111041 */ t60364 = p12467; p12468 = t60364; a24609 = t60365; /* x111040 */ /* x110994 */ if ((a24609.tag)==FALSE_TYPE) goto l9367; /* x110995 */ t60323 = a24609; goto l9368; l9367: /* x111039 */ /* x111033 stalin.sc:12075:421265 */ t60366 = p12468; /* x111038 stalin.sc:12084:421562 */ /* x111037 stalin.sc:12084:421583 */ /* x111036 stalin.sc:12084:421602 */ t60371 = p12468->a24602; /* x111035 stalin.sc:12084:421584 */ a38607 = t60371; /* x287097 */ /* x287096 */ t60372 = a38607; /* x287095 */ if (!((t60372.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33524]"); structure_ref_error();} t60369 = t60372.value.structure_type27698->s21; /* x111034 stalin.sc:12084:421563 */ a39832 = t60369; /* x291997 */ /* x291996 */ t60370 = a39832; /* x291995 */ if (!((t60370.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34749]"); structure_ref_error();} t60367 = t60370.value.structure_type27698->s10; /* x110996 stalin.sc:12074:421254 */ t60368.tag = NATIVE_PROCEDURE_TYPE24159; t60368.value.native_procedure_type24159 = t60366; t60323 = f8137(t60368, t60367); l9368: l9365: goto l9361; l9360: /* x111061 */ /* x111060 */ /* x111059 stalin.sc:12085:421619 */ t60323.tag = FALSE_TYPE; l9361: l9358: l9355: goto l9352; l9351: /* x111070 */ t60323.tag = FALSE_TYPE; l9352: /* x110930 stalin.sc:12063:420730 */ a20920 = t60322; a20921 = t60323; /* x58609 */ /* x58608 stalin.sc:775:24397 */ /* x58601 stalin.sc:775:24405 */ /* x58600 stalin.sc:775:24415 */ t60340 = a20921; /* x270735 stalin.sc:775:24406 */ switch (t60340.tag) {case TRUE_TYPE: case FALSE_TYPE: break; default: goto l9348;} /* x58603 */ /* x58602 */ goto l9349; l9348: /* x58607 */ /* x58606 */ /* x58605 stalin.sc:775:24419 */ /* x58604 stalin.sc:775:24420 */ /* x295181 QobiScheme.sc:166:5314 */ /* x295180 QobiScheme.sc:166:5321 */ t60341 = "This shouldn\'t happen"; /* x295179 QobiScheme.sc:166:5315 */ stalin_panic(t60341); l9349: /* x58598 */ while (region6948!=((struct region6948 *)(&initial_region6948))) {struct region6948 *region; region = region6948; region6948 = region6948->region; GC_free(region);} region_size6948 = REGION_SIZE6948; fp6948 = &((region6948->data)[0]); ALIGN(fp6948); /* x58597 stalin.sc:776:24431 */ /* x58580 stalin.sc:777:24459 */ t60324 = a20920; /* x58596 stalin.sc:778:24463 */ /* x58581 stalin.sc:778:24467 */ if ((a20921.tag)==FALSE_TYPE) goto l9345; /* x58587 stalin.sc:779:24476 */ /* x58586 stalin.sc:779:24508 */ t60335 = 4; /* x58585 stalin.sc:779:24484 */ /* x58584 stalin.sc:779:24505 */ t60338 = a20920; /* x58583 stalin.sc:779:24485 */ a38455 = t60338; /* x286489 */ /* x286488 */ t60339 = a38455; /* x286487 */ if (!((t60339.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BOOLEANS[5735] 33372]"); structure_ref_error();} t60334 = t60339.value.structure_type27698->s31; /* x58582 stalin.sc:779:24477 */ if ((fp6948+sizeof(struct structure_type24753))>(&((region6948->data)[region_size6948]))) {struct region6948 *region; unsigned region_size = REGION_SIZE6948; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region6948 *)GC_malloc_uncollectable(sizeof(struct region6948)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 779, 24476); out_of_memory_error();} region->region = region6948; region_size6948 = region_size; region6948 = region; fp6948 = &((region->data)[0]); ALIGN(fp6948);} t60337.tag = STRUCTURE_TYPE24753; t60337.value.structure_type24753 = (struct structure_type24753 *)fp6948; fp6948 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t60337.value.structure_type24753->s0.tag = FIXNUM_TYPE; t60337.value.structure_type24753->s0.value.fixnum_type = t60335; t60337.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp6948+sizeof(struct structure_type24753))>(&((region6948->data)[region_size6948]))) {struct region6948 *region; unsigned region_size = REGION_SIZE6948; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region6948 *)GC_malloc_uncollectable(sizeof(struct region6948)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 779, 24476); out_of_memory_error();} region->region = region6948; region_size6948 = region_size; region6948 = region; fp6948 = &((region->data)[0]); ALIGN(fp6948);} t60336 = (struct structure_type24753 *)fp6948; fp6948 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t60336->s0.tag = FIXNUM_TYPE; t60336->s0.value.fixnum_type = t60334; t60336->s1 = t60337; t60325 = f27310(t60336); goto l9346; l9345: /* x58595 stalin.sc:780:24517 */ /* x58594 stalin.sc:780:24550 */ /* x58593 stalin.sc:780:24559 */ t60332 = 4; /* x58592 stalin.sc:780:24551 */ a33700 = t60332; /* x252368 */ /* x252367 */ t60333 = a33700; /* x252366 */ t60327 = ~t60333; /* x58591 stalin.sc:780:24526 */ /* x58590 stalin.sc:780:24547 */ t60330 = a20920; /* x58589 stalin.sc:780:24527 */ a38456 = t60330; /* x286493 */ /* x286492 */ t60331 = a38456; /* x286491 */ if (!((t60331.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BOOLEANS[5735] 33373]"); structure_ref_error();} t60326 = t60331.value.structure_type27698->s31; /* x58588 stalin.sc:780:24518 */ if ((fp6948+sizeof(struct structure_type24753))>(&((region6948->data)[region_size6948]))) {struct region6948 *region; unsigned region_size = REGION_SIZE6948; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region6948 *)GC_malloc_uncollectable(sizeof(struct region6948)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 780, 24517); out_of_memory_error();} region->region = region6948; region_size6948 = region_size; region6948 = region; fp6948 = &((region->data)[0]); ALIGN(fp6948);} t60329.tag = STRUCTURE_TYPE24753; t60329.value.structure_type24753 = (struct structure_type24753 *)fp6948; fp6948 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t60329.value.structure_type24753->s0.tag = FIXNUM_TYPE; t60329.value.structure_type24753->s0.value.fixnum_type = t60327; t60329.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp6948+sizeof(struct structure_type24753))>(&((region6948->data)[region_size6948]))) {struct region6948 *region; unsigned region_size = REGION_SIZE6948; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region6948 *)GC_malloc_uncollectable(sizeof(struct region6948)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 780, 24517); out_of_memory_error();} region->region = region6948; region_size6948 = region_size; region6948 = region; fp6948 = &((region->data)[0]); ALIGN(fp6948);} t60328 = (struct structure_type24753 *)fp6948; fp6948 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t60328->s0.tag = FIXNUM_TYPE; t60328->s0.value.fixnum_type = t60326; t60328->s1 = t60329; t60325 = f27305(t60328); l9346: /* x58579 stalin.sc:776:24432 */ f5736(t60324, t60325); return;} /* [inside UPDATE 12436] */ struct w49 f12436(struct w49 a24586) {struct w49 r12436; struct w12224 a24589; /* ES */ struct w49 a36692; /* S */ struct w6852 a39217; /* S */ struct w49 t60423; struct w49 t60424; struct w12224 t60425; struct w12224 t60426; struct w12224 t60427; struct w49 t60428; struct w49 t60429; struct w49 t60430; struct w49 t60431; struct w3457 t60432; struct w49 t60433; struct w49 t60434; struct w49 t60435; struct w49 t60436; struct w49 t60437; struct w49 t60438; struct w12224 t60439; struct w12224 t60440; unsigned t60441; struct w49 t60442; struct w49 t60443; struct w49 t60444; struct w49 t60445; struct w6852 t60446; struct w6852 t60447; struct w49 t60448; struct w49 t60449; struct w49 t60450; struct w49 t60451; /* x110855 stalin.sc:11816:412774 */ /* x110794 stalin.sc:11817:412782 */ /* x110793 stalin.sc:11817:412786 */ /* x110792 stalin.sc:11817:412793 */ t60423 = a24586; /* x110791 stalin.sc:11817:412787 */ if (!(f8918(t60423)==FALSE_TYPE)) goto l9381; /* x110788 */ /* x110787 stalin.sc:11817:412801 */ /* x110786 stalin.sc:11817:412820 */ t60424 = a24586; /* x110785 stalin.sc:11817:412802 */ if (!(f8526(t60424)==FALSE_TYPE)) goto l9382; l9381: /* x110803 */ /* x110802 */ /* x110801 */ /* x110800 stalin.sc:11818:412827 */ /* x110798 stalin.sc:11818:412857 */ t60450 = a24586; /* x110799 stalin.sc:11818:412859 */ /* x110797 stalin.sc:11818:412828 */ t60451.tag = FALSE_TYPE; f6712(t60450, t60451); /* x110796 */ /* x110795 stalin.sc:11819:412865 */ r12436.tag = NULL_TYPE; return r12436; l9382: /* x110854 */ /* x110853 */ /* x110852 stalin.sc:11821:412879 */ /* x110851 stalin.sc:11821:412889 */ /* x110843 stalin.sc:11822:412904 */ t60443 = a24586; /* x110850 stalin.sc:11822:412906 */ /* x110849 stalin.sc:11822:412912 */ /* x110848 stalin.sc:11822:412929 */ /* x110847 stalin.sc:11822:412953 */ t60448 = a24586; /* x110846 stalin.sc:11822:412930 */ a36692 = t60448; /* x279437 */ /* x279436 */ t60449 = a36692; /* x279435 */ if (!((t60449.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31609]"); structure_ref_error();} t60446 = t60449.value.structure_type27694->s1; /* x110845 stalin.sc:11822:412913 */ a39217 = t60446; /* x289537 */ /* x289536 */ t60447 = a39217; /* x289535 */ if (!((t60447.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34134]"); structure_ref_error();} t60445 = t60447.value.structure_type27698->s15; /* x110844 stalin.sc:11822:412907 */ t60444 = f12409(t60445); /* x110842 stalin.sc:11821:412890 */ t60425 = f1194(t60443, t60444); /* x110841 */ a24589 = t60425; /* x110840 */ /* x110839 stalin.sc:11823:412964 */ /* x110822 stalin.sc:11824:412998 */ t60436 = a24586; /* x110838 stalin.sc:11825:413004 */ /* x110832 stalin.sc:11825:413008 */ /* x110825 stalin.sc:11825:413013 */ /* x110824 stalin.sc:11825:413027 */ t60438 = a24586; /* x110823 stalin.sc:11825:413014 */ if (f8563(t60438)==FALSE_TYPE) goto l9388; /* x110830 */ /* x110829 stalin.sc:11825:413035 */ /* x110828 stalin.sc:11825:413042 */ t60439 = a24589; /* x269405 stalin.sc:11825:413036 */ if ((t60439.tag)==NULL_TYPE) goto l9388; /* x110836 stalin.sc:11826:413056 */ /* x110834 stalin.sc:11826:413062 */ /* x110835 stalin.sc:11826:413073 */ t60440 = a24589; /* x110833 stalin.sc:11826:413057 */ t60441 = NATIVE_PROCEDURE_TYPE7247; t60442 = *((struct w49 *)(&t60440)); t60437 = f1583(t60441, t60442); goto l9389; l9388: /* x110837 stalin.sc:11827:413085 */ t60437.tag = FALSE_TYPE; l9389: /* x110821 stalin.sc:11823:412965 */ f6712(t60436, t60437); /* x110820 */ /* x110819 stalin.sc:11828:413093 */ /* x110805 stalin.sc:11828:413101 */ t60426 = a24589; /* x110818 stalin.sc:11829:413108 */ /* x110808 stalin.sc:11829:413112 */ /* x110807 stalin.sc:11829:413135 */ t60430 = a24586; /* x110806 stalin.sc:11829:413113 */ if ((f8897(t60430).tag)==FALSE_TYPE) goto l9385; /* x110816 stalin.sc:11830:413146 */ /* x110812 stalin.sc:11830:413155 */ /* x110811 stalin.sc:11830:413173 */ t60434 = a24586; /* x110810 stalin.sc:11830:413156 */ t60431 = f8965(t60434); /* x110815 stalin.sc:11830:413176 */ /* x110814 stalin.sc:11830:413187 */ t60435 = a24586; /* x110813 stalin.sc:11830:413177 */ t60432 = f8951(t60435); /* x110809 stalin.sc:11830:413147 */ t60433 = *((struct w49 *)(&t60432)); t60427 = f1194(t60431, t60433); goto l9386; l9385: /* x110817 stalin.sc:11831:413199 */ t60427.tag = NULL_TYPE; l9386: /* x110804 stalin.sc:11828:413094 */ t60428 = *((struct w49 *)(&t60426)); t60429 = *((struct w49 *)(&t60427)); return f1390(t60428, t60429);} /* UPDATE[12435] */ struct w49 f12435(struct w49 a24585) {struct w49 a39510; /* S */ struct structure_type24753 *t60452; unsigned t60453; struct w49 t60454; struct w228463 t60455; struct w11873 t60456; struct w36270 t60457; struct w49 t60458; struct structure_type24753 *t60459; struct w9140 t60460; struct w49 t60461; struct w49 t60462; struct w49 t60463; /* x110864 stalin.sc:11812:412719 */ /* x110780 stalin.sc:11813:412732 */ /* x110862 stalin.sc:11814:412744 */ /* x110861 stalin.sc:11832:413215 */ /* x110860 stalin.sc:11832:413230 */ /* x110859 stalin.sc:11832:413261 */ t60462 = a24585; /* x110858 stalin.sc:11832:413231 */ a39510 = t60462; /* x290709 */ /* x290708 */ t60463 = a39510; /* x290707 */ if (!((t60463.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34427]"); structure_ref_error();} t60460 = t60463.value.structure_type27698->s13; /* x110857 stalin.sc:11832:413216 */ t60461 = *((struct w49 *)(&t60460)); t60456 = f8984(t60461); /* x110856 stalin.sc:11815:412755 */ /* x110781 stalin.sc:11814:412745 */ t60457.tag = NATIVE_PROCEDURE_TYPE16893; t60458 = *((struct w49 *)(&t60456)); t60459 = (struct structure_type24753 *)NULL_TYPE; t60452 = f27731(t60457, t60458, t60459); /* x110863 stalin.sc:11833:413271 */ /* x110779 stalin.sc:11812:412720 */ t60453 = NATIVE_PROCEDURE_TYPE8055; /* MOVE: branching squeezed to general */ if (t60452>=((struct structure_type24753 *)VALUE_OFFSET)) {t60454.tag = STRUCTURE_TYPE24753; t60454.value.structure_type24753 = t60452;} else t60454.tag = (unsigned)t60452; t60455.tag = NULL_TYPE; return f1006(t60453, t60454, t60455);} /* LOOP[12409] */ struct w49 f12409(struct w49 a24581) {struct w49 r12409; char *a24584; /* v */ struct w49 a38599; /* S */ struct w49 a38600; /* S */ struct w49 a38860; /* S */ struct w49 a38861; /* S */ struct w49 a38928; /* S */ struct w49 a38983; /* S */ struct w49 a39044; /* S */ struct w49 a39084; /* S */ struct w49 a40406; /* S */ char *t60464; char *t60465; char *t60466; struct w49 t60467; struct w49 t60468; char *t60469; char *t60470; struct w49 t60471; struct w49 t60472; char *t60473; char *t60474; struct w49 t60475; struct w49 t60476; char *t60477; char *t60478; struct w49 t60479; struct w49 t60480; char *t60481; char *t60482; struct w49 t60483; struct w49 t60484; char *t60485; char *t60486; struct w49 t60487; struct w49 t60488; char *t60489; char *t60490; struct w49 t60491; struct w49 t60492; char *t60493; char *t60494; struct w49 t60495; struct w49 t60496; char *t60497; char *t60498; struct w49 t60499; struct w49 t60500; char *t60501; char *t60502; struct w49 t60503; struct w49 t60504; char *t60505; char *t60506; struct w49 t60507; struct w49 t60508; char *t60509; char *t60510; struct w49 t60511; struct w49 t60512; char *t60513; char *t60514; struct w49 t60515; struct w49 t60516; char *t60517; char *t60518; struct w49 t60519; struct w49 t60520; char *t60521; char *t60522; struct w49 t60523; struct w49 t60524; char *t60525; char *t60526; struct w49 t60527; struct w49 t60528; char *t60529; char *t60530; struct w49 t60531; struct w49 t60532; char *t60533; char *t60534; struct w49 t60535; struct w49 t60536; char *t60537; char *t60538; struct w49 t60539; struct w49 t60540; char *t60541; char *t60542; struct w49 t60543; struct w49 t60544; char *t60545; char *t60546; struct w49 t60547; struct w49 t60548; char *t60549; struct w49 t60550; struct w49 t60551; struct w49 t60552; struct w49 t60553; struct w49 t60554; struct structure_type24753 *t60555; unsigned t60556; struct w49 t60557; struct w228463 t60558; struct w11873 t60559; struct w36270 t60560; struct w49 t60561; struct structure_type24753 *t60562; struct w49 t60563; struct w49 t60564; struct w49 t60565; struct w49 t60566; struct w49 t60567; struct w49 t60568; struct w49 t60569; struct structure_type24753 *t60570; unsigned t60571; struct w49 t60572; struct w228463 t60573; struct w11873 t60574; struct w36270 t60575; struct w49 t60576; struct structure_type24753 *t60577; struct w49 t60578; struct w49 t60579; struct w49 t60580; struct w49 t60581; struct w49 t60582; struct w49 t60583; struct w49 t60584; struct w49 t60585; struct w49 t60586; struct w49 t60587; struct w49 t60588; struct w49 t60589; struct w49 t60590; struct w49 t60591; struct w49 t60592; struct w49 t60593; struct w49 t60594; struct w49 t60595; struct w49 t60596; struct w49 t60597; struct w49 t60598; struct w49 t60599; struct w49 t60600; h12409: /* x110871 */ /* x110870 */ /* x110869 */ /* x110868 */ /* x110867 */ /* x110866 */ /* x110865 */ /* x110778 */ /* x110777 stalin.sc:11834:413280 */ /* x110776 stalin.sc:11834:413286 */ /* x110775 stalin.sc:11834:413303 */ t60599 = a24581; /* x110774 stalin.sc:11834:413287 */ a40406 = t60599; /* x294293 */ /* x294292 */ t60600 = a40406; /* x294291 */ if (!((t60600.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35323]"); structure_ref_error();} t60464 = t60600.value.structure_type27698->s0; /* x110773 */ a24584 = t60464; /* x110772 */ /* x110544 */ /* x110542 */ t60465 = a24584; /* x110543 */ t60466 = q68; /* x110541 */ t60467.tag = EXTERNAL_SYMBOL_TYPE; t60467.value.external_symbol_type = t60465; t60468.tag = EXTERNAL_SYMBOL_TYPE; t60468.value.external_symbol_type = t60466; if (f26160(t60467, t60468)==FALSE_TYPE) goto l9392; /* x110547 */ /* x110546 */ /* x110545 stalin.sc:11835:413327 */ r12409.tag = NULL_TYPE; return r12409; l9392: /* x110771 */ /* x110551 */ /* x110549 */ t60469 = a24584; /* x110550 */ t60470 = q69; /* x110548 */ t60471.tag = EXTERNAL_SYMBOL_TYPE; t60471.value.external_symbol_type = t60469; t60472.tag = EXTERNAL_SYMBOL_TYPE; t60472.value.external_symbol_type = t60470; if (f26160(t60471, t60472)==FALSE_TYPE) goto l9394; /* x110554 */ /* x110553 */ /* x110552 stalin.sc:11836:413353 */ r12409.tag = NULL_TYPE; return r12409; l9394: /* x110770 */ /* x110558 */ /* x110556 */ t60473 = a24584; /* x110557 */ t60474 = q70; /* x110555 */ t60475.tag = EXTERNAL_SYMBOL_TYPE; t60475.value.external_symbol_type = t60473; t60476.tag = EXTERNAL_SYMBOL_TYPE; t60476.value.external_symbol_type = t60474; if (f26160(t60475, t60476)==FALSE_TYPE) goto l9396; /* x110561 */ /* x110560 */ /* x110559 stalin.sc:11837:413380 */ r12409.tag = NULL_TYPE; return r12409; l9396: /* x110769 */ /* x110565 */ /* x110563 */ t60477 = a24584; /* x110564 */ t60478 = q71; /* x110562 */ t60479.tag = EXTERNAL_SYMBOL_TYPE; t60479.value.external_symbol_type = t60477; t60480.tag = EXTERNAL_SYMBOL_TYPE; t60480.value.external_symbol_type = t60478; if (f26160(t60479, t60480)==FALSE_TYPE) goto l9398; /* x110568 */ /* x110567 */ /* x110566 stalin.sc:11838:413406 */ r12409.tag = NULL_TYPE; return r12409; l9398: /* x110768 */ /* x110572 */ /* x110570 */ t60481 = a24584; /* x110571 */ t60482 = q72; /* x110569 */ t60483.tag = EXTERNAL_SYMBOL_TYPE; t60483.value.external_symbol_type = t60481; t60484.tag = EXTERNAL_SYMBOL_TYPE; t60484.value.external_symbol_type = t60482; if (f26160(t60483, t60484)==FALSE_TYPE) goto l9400; /* x110575 */ /* x110574 */ /* x110573 stalin.sc:11839:413434 */ r12409.tag = NULL_TYPE; return r12409; l9400: /* x110767 */ /* x110579 */ /* x110577 */ t60485 = a24584; /* x110578 */ t60486 = q73; /* x110576 */ t60487.tag = EXTERNAL_SYMBOL_TYPE; t60487.value.external_symbol_type = t60485; t60488.tag = EXTERNAL_SYMBOL_TYPE; t60488.value.external_symbol_type = t60486; if (f26160(t60487, t60488)==FALSE_TYPE) goto l9402; /* x110582 */ /* x110581 */ /* x110580 stalin.sc:11840:413462 */ r12409.tag = NULL_TYPE; return r12409; l9402: /* x110766 */ /* x110586 */ /* x110584 */ t60489 = a24584; /* x110585 */ t60490 = q74; /* x110583 */ t60491.tag = EXTERNAL_SYMBOL_TYPE; t60491.value.external_symbol_type = t60489; t60492.tag = EXTERNAL_SYMBOL_TYPE; t60492.value.external_symbol_type = t60490; if (f26160(t60491, t60492)==FALSE_TYPE) goto l9404; /* x110589 */ /* x110588 */ /* x110587 stalin.sc:11841:413495 */ r12409.tag = NULL_TYPE; return r12409; l9404: /* x110765 */ /* x110593 */ /* x110591 */ t60493 = a24584; /* x110592 */ t60494 = q75; /* x110590 */ t60495.tag = EXTERNAL_SYMBOL_TYPE; t60495.value.external_symbol_type = t60493; t60496.tag = EXTERNAL_SYMBOL_TYPE; t60496.value.external_symbol_type = t60494; if (f26160(t60495, t60496)==FALSE_TYPE) goto l9406; /* x110596 */ /* x110595 */ /* x110594 stalin.sc:11842:413523 */ r12409.tag = NULL_TYPE; return r12409; l9406: /* x110764 */ /* x110600 */ /* x110598 */ t60497 = a24584; /* x110599 */ t60498 = q76; /* x110597 */ t60499.tag = EXTERNAL_SYMBOL_TYPE; t60499.value.external_symbol_type = t60497; t60500.tag = EXTERNAL_SYMBOL_TYPE; t60500.value.external_symbol_type = t60498; if (f26160(t60499, t60500)==FALSE_TYPE) goto l9408; /* x110603 */ /* x110602 */ /* x110601 stalin.sc:11843:413551 */ r12409.tag = NULL_TYPE; return r12409; l9408: /* x110763 */ /* x110607 */ /* x110605 */ t60501 = a24584; /* x110606 */ t60502 = q50; /* x110604 */ t60503.tag = EXTERNAL_SYMBOL_TYPE; t60503.value.external_symbol_type = t60501; t60504.tag = EXTERNAL_SYMBOL_TYPE; t60504.value.external_symbol_type = t60502; if (f26160(t60503, t60504)==FALSE_TYPE) goto l9410; /* x110610 */ /* x110609 */ /* x110608 stalin.sc:11844:413577 */ r12409.tag = NULL_TYPE; return r12409; l9410: /* x110762 */ /* x110614 */ /* x110612 */ t60505 = a24584; /* x110613 */ t60506 = q52; /* x110611 */ t60507.tag = EXTERNAL_SYMBOL_TYPE; t60507.value.external_symbol_type = t60505; t60508.tag = EXTERNAL_SYMBOL_TYPE; t60508.value.external_symbol_type = t60506; if (f26160(t60507, t60508)==FALSE_TYPE) goto l9412; /* x110617 */ /* x110616 */ /* x110615 stalin.sc:11845:413605 */ r12409.tag = NULL_TYPE; return r12409; l9412: /* x110761 */ /* x110621 */ /* x110619 */ t60509 = a24584; /* x110620 */ t60510 = q39; /* x110618 */ t60511.tag = EXTERNAL_SYMBOL_TYPE; t60511.value.external_symbol_type = t60509; t60512.tag = EXTERNAL_SYMBOL_TYPE; t60512.value.external_symbol_type = t60510; if (f26160(t60511, t60512)==FALSE_TYPE) goto l9414; /* x110626 */ /* x110625 */ /* x110624 stalin.sc:11846:413624 */ /* x110623 stalin.sc:11846:413632 */ t60598 = a24581; /* x110622 stalin.sc:11846:413625 */ return f12435(t60598); l9414: /* x110760 */ /* x110630 */ /* x110628 */ t60513 = a24584; /* x110629 */ t60514 = q40; /* x110627 */ t60515.tag = EXTERNAL_SYMBOL_TYPE; t60515.value.external_symbol_type = t60513; t60516.tag = EXTERNAL_SYMBOL_TYPE; t60516.value.external_symbol_type = t60514; if (f26160(t60515, t60516)==FALSE_TYPE) goto l9416; /* x110635 */ /* x110634 */ /* x110633 stalin.sc:11847:413660 */ /* x110632 stalin.sc:11847:413668 */ t60597 = a24581; /* x110631 stalin.sc:11847:413661 */ return f12435(t60597); l9416: /* x110759 */ /* x110639 */ /* x110637 */ t60517 = a24584; /* x110638 */ t60518 = q41; /* x110636 */ t60519.tag = EXTERNAL_SYMBOL_TYPE; t60519.value.external_symbol_type = t60517; t60520.tag = EXTERNAL_SYMBOL_TYPE; t60520.value.external_symbol_type = t60518; if (f26160(t60519, t60520)==FALSE_TYPE) goto l9418; /* x110644 */ /* x110643 */ /* x110642 stalin.sc:11848:413702 */ /* x110641 stalin.sc:11848:413710 */ t60596 = a24581; /* x110640 stalin.sc:11848:413703 */ return f12435(t60596); l9418: /* x110758 */ /* x110648 */ /* x110646 */ t60521 = a24584; /* x110647 */ t60522 = q42; /* x110645 */ t60523.tag = EXTERNAL_SYMBOL_TYPE; t60523.value.external_symbol_type = t60521; t60524.tag = EXTERNAL_SYMBOL_TYPE; t60524.value.external_symbol_type = t60522; if (f26160(t60523, t60524)==FALSE_TYPE) goto l9420; /* x110655 */ /* x110654 */ /* x110653 stalin.sc:11849:413726 */ /* x110652 stalin.sc:11849:413732 */ /* x110651 stalin.sc:11849:413751 */ t60594 = a24581; /* x110650 stalin.sc:11849:413733 */ a39084 = t60594; /* x289005 */ /* x289004 */ t60595 = a39084; /* x289003 */ if (!((t60595.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 34001]"); structure_ref_error();} t60593 = t60595.value.structure_type27698->s17; /* x110649 stalin.sc:11849:413727 */ a24581 = t60593; goto h12409; l9420: /* x110757 */ /* x110659 */ /* x110657 */ t60525 = a24584; /* x110658 */ t60526 = q43; /* x110656 */ t60527.tag = EXTERNAL_SYMBOL_TYPE; t60527.value.external_symbol_type = t60525; t60528.tag = EXTERNAL_SYMBOL_TYPE; t60528.value.external_symbol_type = t60526; if (f26160(t60527, t60528)==FALSE_TYPE) goto l9422; /* x110680 */ /* x110679 */ /* x110678 stalin.sc:11850:413766 */ /* x110665 stalin.sc:11850:413774 */ /* x110664 stalin.sc:11850:413780 */ /* x110663 stalin.sc:11850:413803 */ t60583 = a24581; /* x110662 stalin.sc:11850:413781 */ a39044 = t60583; /* x288845 */ /* x288844 */ t60584 = a39044; /* x288843 */ if (!((t60584.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33961]"); structure_ref_error();} t60582 = t60584.value.structure_type27698->s18; /* x110661 stalin.sc:11850:413775 */ t60580 = f12409(t60582); /* x110677 stalin.sc:11851:413811 */ /* x110671 stalin.sc:11851:413819 */ /* x110670 stalin.sc:11851:413825 */ /* x110669 stalin.sc:11851:413848 */ t60588 = a24581; /* x110668 stalin.sc:11851:413826 */ a38983 = t60588; /* x288601 */ /* x288600 */ t60589 = a38983; /* x288599 */ if (!((t60589.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33900]"); structure_ref_error();} t60587 = t60589.value.structure_type27698->s19; /* x110667 stalin.sc:11851:413820 */ t60585 = f12409(t60587); /* x110676 stalin.sc:11852:413857 */ /* x110675 stalin.sc:11852:413863 */ /* x110674 stalin.sc:11852:413885 */ t60591 = a24581; /* x110673 stalin.sc:11852:413864 */ a38928 = t60591; /* x288381 */ /* x288380 */ t60592 = a38928; /* x288379 */ if (!((t60592.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33845]"); structure_ref_error();} t60590 = t60592.value.structure_type27698->s20; /* x110672 stalin.sc:11852:413858 */ t60586 = f12409(t60590); /* x110666 stalin.sc:11851:413812 */ t60581 = f1390(t60585, t60586); /* x110660 stalin.sc:11850:413767 */ return f1390(t60580, t60581); l9422: /* x110756 */ /* x110684 */ /* x110682 */ t60529 = a24584; /* x110683 */ t60530 = q77; /* x110681 */ t60531.tag = EXTERNAL_SYMBOL_TYPE; t60531.value.external_symbol_type = t60529; t60532.tag = EXTERNAL_SYMBOL_TYPE; t60532.value.external_symbol_type = t60530; if (f26160(t60531, t60532)==FALSE_TYPE) goto l9424; /* x110687 */ /* x110686 */ /* x110685 stalin.sc:11853:413919 */ r12409.tag = NULL_TYPE; return r12409; l9424: /* x110755 */ /* x110691 */ /* x110689 */ t60533 = a24584; /* x110690 */ t60534 = q78; /* x110688 */ t60535.tag = EXTERNAL_SYMBOL_TYPE; t60535.value.external_symbol_type = t60533; t60536.tag = EXTERNAL_SYMBOL_TYPE; t60536.value.external_symbol_type = t60534; if (f26160(t60535, t60536)==FALSE_TYPE) goto l9426; /* x110694 */ /* x110693 */ /* x110692 stalin.sc:11854:413949 */ r12409.tag = NULL_TYPE; return r12409; l9426: /* x110754 */ /* x110698 */ /* x110696 */ t60537 = a24584; /* x110697 */ t60538 = q38; /* x110695 */ t60539.tag = EXTERNAL_SYMBOL_TYPE; t60539.value.external_symbol_type = t60537; t60540.tag = EXTERNAL_SYMBOL_TYPE; t60540.value.external_symbol_type = t60538; if (f26160(t60539, t60540)==FALSE_TYPE) goto l9428; /* x110701 */ /* x110700 */ /* x110699 stalin.sc:11855:413968 */ r12409.tag = NULL_TYPE; return r12409; l9428: /* x110753 */ /* x110705 */ /* x110703 */ t60541 = a24584; /* x110704 */ t60542 = q36; /* x110702 */ t60543.tag = EXTERNAL_SYMBOL_TYPE; t60543.value.external_symbol_type = t60541; t60544.tag = EXTERNAL_SYMBOL_TYPE; t60544.value.external_symbol_type = t60542; if (f26160(t60543, t60544)==FALSE_TYPE) goto l9430; /* x110724 */ /* x110723 */ /* x110722 stalin.sc:11856:413985 */ /* x110711 stalin.sc:11856:413993 */ /* x110710 stalin.sc:11856:413999 */ /* x110709 stalin.sc:11856:414018 */ t60568 = a24581; /* x110708 stalin.sc:11856:414000 */ a38860 = t60568; /* x288109 */ /* x288108 */ t60569 = a38860; /* x288107 */ if (!((t60569.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33777]"); structure_ref_error();} t60567 = t60569.value.structure_type27698->s21; /* x110707 stalin.sc:11856:413994 */ t60565 = f12409(t60567); /* x110721 stalin.sc:11857:414028 */ /* x110713 stalin.sc:11857:414036 */ /* x110719 stalin.sc:11857:414043 */ /* x110718 stalin.sc:11857:414053 */ /* x110717 stalin.sc:11857:414075 */ t60578 = a24581; /* x110716 stalin.sc:11857:414054 */ a38599 = t60578; /* x287065 */ /* x287064 */ t60579 = a38599; /* x287063 */ if (!((t60579.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33516]"); structure_ref_error();} t60574 = t60579.value.structure_type27698->s22; /* x110715 stalin.sc:11857:414048 */ /* x110714 stalin.sc:11857:414044 */ t60575.tag = NATIVE_PROCEDURE_TYPE15787; t60576 = *((struct w49 *)(&t60574)); t60577 = (struct structure_type24753 *)NULL_TYPE; t60570 = f27731(t60575, t60576, t60577); /* x110720 stalin.sc:11857:414079 */ /* x110712 stalin.sc:11857:414029 */ t60571 = NATIVE_PROCEDURE_TYPE8055; /* MOVE: branching squeezed to general */ if (t60570>=((struct structure_type24753 *)VALUE_OFFSET)) {t60572.tag = STRUCTURE_TYPE24753; t60572.value.structure_type24753 = t60570;} else t60572.tag = (unsigned)t60570; t60573.tag = NULL_TYPE; t60566 = f1006(t60571, t60572, t60573); /* x110706 stalin.sc:11856:413986 */ return f1390(t60565, t60566); l9430: /* x110752 */ /* x110728 */ /* x110726 */ t60545 = a24584; /* x110727 */ t60546 = q37; /* x110725 */ t60547.tag = EXTERNAL_SYMBOL_TYPE; t60547.value.external_symbol_type = t60545; t60548.tag = EXTERNAL_SYMBOL_TYPE; t60548.value.external_symbol_type = t60546; if (f26160(t60547, t60548)==FALSE_TYPE) goto l9432; /* x110747 */ /* x110746 */ /* x110745 stalin.sc:11859:414113 */ /* x110734 stalin.sc:11859:414121 */ /* x110733 stalin.sc:11859:414127 */ /* x110732 stalin.sc:11859:414146 */ t60553 = a24581; /* x110731 stalin.sc:11859:414128 */ a38861 = t60553; /* x288113 */ /* x288112 */ t60554 = a38861; /* x288111 */ if (!((t60554.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33778]"); structure_ref_error();} t60552 = t60554.value.structure_type27698->s21; /* x110730 stalin.sc:11859:414122 */ t60550 = f12409(t60552); /* x110744 stalin.sc:11860:414156 */ /* x110736 stalin.sc:11860:414164 */ /* x110742 stalin.sc:11860:414171 */ /* x110741 stalin.sc:11860:414181 */ /* x110740 stalin.sc:11860:414203 */ t60563 = a24581; /* x110739 stalin.sc:11860:414182 */ a38600 = t60563; /* x287069 */ /* x287068 */ t60564 = a38600; /* x287067 */ if (!((t60564.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33517]"); structure_ref_error();} t60559 = t60564.value.structure_type27698->s22; /* x110738 stalin.sc:11860:414176 */ /* x110737 stalin.sc:11860:414172 */ t60560.tag = NATIVE_PROCEDURE_TYPE15787; t60561 = *((struct w49 *)(&t60559)); t60562 = (struct structure_type24753 *)NULL_TYPE; t60555 = f27731(t60560, t60561, t60562); /* x110743 stalin.sc:11860:414207 */ /* x110735 stalin.sc:11860:414157 */ t60556 = NATIVE_PROCEDURE_TYPE8055; /* MOVE: branching squeezed to general */ if (t60555>=((struct structure_type24753 *)VALUE_OFFSET)) {t60557.tag = STRUCTURE_TYPE24753; t60557.value.structure_type24753 = t60555;} else t60557.tag = (unsigned)t60555; t60558.tag = NULL_TYPE; t60551 = f1006(t60556, t60557, t60558); /* x110729 stalin.sc:11859:414114 */ return f1390(t60550, t60551); l9432: /* x110751 */ /* x110750 */ /* x110749 stalin.sc:11861:414224 */ /* x110748 stalin.sc:11861:414225 */ /* x297037 QobiScheme.sc:166:5314 */ /* x297036 QobiScheme.sc:166:5321 */ t60549 = "This shouldn\'t happen"; /* x297035 QobiScheme.sc:166:5315 */ stalin_panic(t60549);} /* [inside DETERMINE-PARENTS! 12402] */ void f12402(struct w49 a24576) {struct w49 a24578; /* ES */ struct w49 t60601; struct w49 t60603; struct w49 t60604; struct w49 t60605; struct w49 t60606; struct w49 t60607; struct w16638 t60608; unsigned t60609; struct w49 t60610; struct structure_type24753 *t60611; unsigned t60612; struct w49 t60613; struct w228463 t60614; struct w12224 t60615; struct w36270 t60616; struct w49 t60617; struct structure_type24753 *t60618; struct w11873 t60619; struct w227671 t60620; struct w49 t60621; struct w49 t60622; /* x110535 stalin.sc:11799:412331 */ /* x110497 stalin.sc:11799:412337 */ /* x110496 stalin.sc:11799:412356 */ t60601 = a24576; /* x110495 stalin.sc:11799:412338 */ if (f8526(t60601)==FALSE_TYPE) goto l9434; /* x110532 */ /* x110531 */ /* x110530 */ /* x110529 stalin.sc:11800:412366 */ /* x110528 stalin.sc:11800:412367 */ f4651(); /* x110527 */ /* x110526 stalin.sc:11801:412411 */ /* x110501 stalin.sc:11802:412454 */ /* x110500 stalin.sc:11802:412472 */ t60605 = a24576; /* x110499 stalin.sc:11802:412455 */ t60603 = f8966(t60605); /* x110525 stalin.sc:11803:412483 */ /* x110524 stalin.sc:11803:412493 */ /* x110513 stalin.sc:11803:412501 */ /* x110522 stalin.sc:11804:412513 */ /* x110521 stalin.sc:11805:412538 */ /* x110517 stalin.sc:11805:412553 */ /* x110520 stalin.sc:11806:412582 */ /* x110519 stalin.sc:11806:412597 */ t60622 = a24576; /* x110518 stalin.sc:11806:412583 */ t60619 = f8984(t60622); /* x110516 stalin.sc:11805:412539 */ t60620.tag = NATIVE_PROCEDURE_TYPE7287; t60621 = *((struct w49 *)(&t60619)); t60615 = f1226(t60620, t60621); /* x110515 stalin.sc:11804:412518 */ /* x110514 stalin.sc:11804:412514 */ t60616.tag = NATIVE_PROCEDURE_TYPE7219; t60617 = *((struct w49 *)(&t60615)); t60618 = (struct structure_type24753 *)NULL_TYPE; t60611 = f27731(t60616, t60617, t60618); /* x110523 stalin.sc:11807:412607 */ /* x110512 stalin.sc:11803:412494 */ t60612 = NATIVE_PROCEDURE_TYPE8055; /* MOVE: branching squeezed to general */ if (t60611>=((struct structure_type24753 *)VALUE_OFFSET)) {t60613.tag = STRUCTURE_TYPE24753; t60613.value.structure_type24753 = t60611;} else t60613.tag = (unsigned)t60611; t60614.tag = NULL_TYPE; t60606 = f1006(t60612, t60613, t60614); /* x110511 */ a24578 = t60606; /* x110510 stalin.sc:11808:412616 */ /* x110504 stalin.sc:11808:412620 */ /* x110503 stalin.sc:11808:412627 */ t60607 = a24578; /* x269408 stalin.sc:11808:412621 */ if (!((t60607.tag)==NULL_TYPE)) goto l9436; /* x110505 stalin.sc:11808:412631 */ t60604.tag = FALSE_TYPE; goto l9437; l9436: /* x110509 stalin.sc:11808:412634 */ /* x110507 stalin.sc:11808:412640 */ /* x110508 stalin.sc:11808:412651 */ t60608 = *((struct w16638 *)(&a24578)); /* x110506 stalin.sc:11808:412635 */ t60609 = NATIVE_PROCEDURE_TYPE7247; t60610 = *((struct w49 *)(&t60608)); t60604 = f1583(t60609, t60610); l9437: /* x110498 stalin.sc:11801:412412 */ f6704(t60603, t60604); return; l9434: /* x110534 stalin.sc:11799:412331 */ /* x110533 stalin.sc:11799:412331 */ return;} /* [inside DETERMINE-PARENTS! 12392] */ void f12392(struct w49 a24569) {struct w49 a36761; /* OBJ */ struct w49 t60623; struct w11873 t60625; unsigned t60626; struct w49 t60627; struct w16638 t60628; unsigned t60629; struct w49 t60630; struct w49 t60631; struct w49 t60632; struct w49 t60633; struct w49 t60634; struct w49 t60635; struct w49 t60636; char *t60637; /* x110489 stalin.sc:11864:414268 */ /* x110397 stalin.sc:11864:414274 */ /* x110396 stalin.sc:11864:414293 */ t60623 = a24569; /* x110395 stalin.sc:11864:414275 */ if (f8526(t60623)==FALSE_TYPE) goto l9439; /* x110486 */ /* x110485 */ /* x110484 */ /* x110483 stalin.sc:11865:414301 */ /* x110482 stalin.sc:11865:414302 */ f4651(); /* x110481 */ /* x110480 stalin.sc:11866:414345 */ /* x110473 stalin.sc:11866:414353 */ /* x110441 stalin.sc:11866:414358 */ /* x110437 stalin.sc:11866:414369 */ /* x110440 stalin.sc:11873:414623 */ /* x110439 stalin.sc:11873:414638 */ t60627 = a24569; /* x110438 stalin.sc:11873:414624 */ t60625 = f8984(t60627); /* x110398 stalin.sc:11866:414359 */ t60626 = NATIVE_PROCEDURE_TYPE17926; if (f1183(t60626, t60625)==FALSE_TYPE) goto l9441; /* x110471 */ /* x110451 stalin.sc:11874:414646 */ /* x110445 stalin.sc:11874:414651 */ /* x110444 stalin.sc:11874:414674 */ t60630 = a24569; /* x110443 stalin.sc:11874:414652 */ t60628 = f8897(t60630); /* x110450 stalin.sc:11875:414686 */ /* x110449 stalin.sc:11875:414700 */ /* x110448 stalin.sc:11875:414718 */ t60633 = a24569; /* x110447 stalin.sc:11875:414701 */ t60631 = f8965(t60633); /* x110446 stalin.sc:11875:414687 */ a36761 = t60631; /* x279713 */ /* x279712 */ t60632 = a36761; /* x279711 */ t60629 = ((t60632.tag)==STRUCTURE_TYPE27694)?TRUE_TYPE:FALSE_TYPE; /* x269410 stalin.sc:11874:414647 */ if (!((t60628.tag)==t60629)) goto l9441; /* x110469 */ /* x110468 stalin.sc:11876:414731 */ /* x110467 stalin.sc:11876:414736 */ /* x110466 stalin.sc:11876:414754 */ t60634 = a24569; /* x110465 stalin.sc:11876:414737 */ if (f8584(t60634)==FALSE_TYPE) goto l9440; /* x110461 */ /* x110456 stalin.sc:11877:414771 */ /* x110455 stalin.sc:11877:414794 */ t60635 = a24569; /* x110454 stalin.sc:11877:414772 */ if ((f8897(t60635).tag)==FALSE_TYPE) goto l9441; /* x110459 */ /* x110458 stalin.sc:11877:414811 */ t60636 = a24569; /* x110457 stalin.sc:11877:414798 */ if (f8563(t60636)==FALSE_TYPE) goto l9441; l9440: /* x110475 */ /* x110474 */ return; l9441: /* x110479 */ /* x110478 */ /* x110477 stalin.sc:11878:414823 */ /* x110476 stalin.sc:11878:414824 */ /* x296753 QobiScheme.sc:166:5314 */ /* x296752 QobiScheme.sc:166:5321 */ t60637 = "This shouldn\'t happen"; /* x296751 QobiScheme.sc:166:5315 */ stalin_panic(t60637); l9439: /* x110488 stalin.sc:11864:414268 */ /* x110487 stalin.sc:11864:414268 */ return;} /* [inside DETERMINE-PARENTS! 12386] */ void f12386(struct p12383 *p12386, struct w49 a24566) {struct w49 t60638; struct p12383 *t60639; struct w49 t60640; struct structure_type24753 *t60641; struct structure_type24753 *t60642; struct w49 t60643; struct w3457 t60644; struct w49 t60645; struct p12383 *p12387; /* x110372 stalin.sc:11784:411436 */ /* x110358 stalin.sc:11784:411442 */ /* x110357 stalin.sc:11784:411461 */ t60638 = a24566; /* x110356 stalin.sc:11784:411443 */ if (f8526(t60638)==FALSE_TYPE) goto l9447; /* x110369 */ /* x110368 */ t60639 = p12386; p12387 = t60639; /* x110367 stalin.sc:11785:411467 */ /* x110360 stalin.sc:11785:411497 */ t60640 = a24566; /* x110366 stalin.sc:11785:411500 */ /* x110362 stalin.sc:11785:411506 */ t60643 = p12387->a24564; /* x110365 stalin.sc:11785:411509 */ /* x110364 stalin.sc:11785:411522 */ t60645 = a24566; /* x110363 stalin.sc:11785:411510 */ t60644 = f8644(t60645); /* x269416 stalin.sc:11785:411501 */ t60641 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t60641==NULL) {backtrace("stalin.sc", 11785, 411500); out_of_memory_error();} t60641->s0 = t60643; t60641->s1 = *((struct w49 *)(&t60644)); /* x110359 stalin.sc:11785:411468 */ t60642 = t60641; f6728(t60640, t60642); return; l9447: /* x110371 stalin.sc:11784:411436 */ /* x110370 stalin.sc:11784:411436 */ return;} /* [inside DETERMINE-PARENTS! 12383] */ void f12383(struct w49 a24564) {struct w49 t60646; struct p12383 *t60647; struct p12383 *t60648; struct p12383 *t60650; struct w3457 t60651; struct w36108 t60652; struct w49 t60653; struct structure_type24753 *t60654; struct w49 t60655; struct p12383 *e12383; struct p12383 *p12384; struct p12383 *p12385; e12383 = (struct p12383 *)alloca(sizeof(struct p12383)); if (e12383==NULL) {backtrace("stalin.sc", 11780, 411313); out_of_memory_error();} e12383->a24564 = a24564; /* x110386 stalin.sc:11781:411329 */ /* x110354 stalin.sc:11781:411335 */ /* x110353 stalin.sc:11781:411354 */ t60646 = e12383->a24564; /* x110352 stalin.sc:11781:411336 */ if (f8526(t60646)==FALSE_TYPE) goto l9449; /* x110383 */ /* x110382 */ t60647 = e12383; p12384 = t60647; /* x110381 */ /* x110380 stalin.sc:11782:411362 */ /* x110379 stalin.sc:11782:411363 */ f4651(); /* x110378 */ t60648 = p12384; p12385 = t60648; /* x110377 stalin.sc:11783:411405 */ /* x110376 stalin.sc:11786:411537 */ /* x110375 stalin.sc:11786:411548 */ t60655 = p12385->a24564; /* x110374 stalin.sc:11786:411538 */ t60651 = f8951(t60655); /* x110373 stalin.sc:11783:411415 */ t60650 = p12385; /* x110355 stalin.sc:11783:411406 */ t60652.tag = NATIVE_PROCEDURE_TYPE17861; t60652.value.native_procedure_type17861 = t60650; t60653 = *((struct w49 *)(&t60651)); t60654 = (struct structure_type24753 *)NULL_TYPE; f27755(t60652, t60653, t60654); return; l9449: /* x110385 stalin.sc:11781:411329 */ /* x110384 stalin.sc:11781:411329 */ return;} /* [inside DETERMINE-PARENTS! 12381] */ void f12381(struct w49 a24560) {struct w49 t60656; struct structure_type24753 *t60657; struct w49 t60658; char *t60659; struct w49 t60660; struct w49 t60661; char *t60662; struct w49 t60663; struct w49 t60664; struct structure_type24753 *t60665; /* x110347 */ /* x110337 stalin.sc:11773:411041 */ /* x110334 stalin.sc:11773:411076 */ t60658 = a24560; /* x110336 stalin.sc:11773:411078 */ /* x110335 stalin.sc:11773:411079 */ /* x277529 stalin.sc:323:8604 */ t60659 = q35; /* x110333 stalin.sc:11773:411042 */ t60660.tag = EXTERNAL_SYMBOL_TYPE; t60660.value.external_symbol_type = t60659; f6704(t60658, t60660); /* x110342 stalin.sc:11774:411098 */ /* x110339 stalin.sc:11774:411128 */ t60661 = a24560; /* x110341 stalin.sc:11774:411130 */ /* x110340 stalin.sc:11774:411131 */ /* x277531 stalin.sc:323:8604 */ t60662 = q35; /* x110338 stalin.sc:11774:411099 */ t60663.tag = EXTERNAL_SYMBOL_TYPE; t60663.value.external_symbol_type = t60662; f6712(t60661, t60663); /* x110346 stalin.sc:11775:411150 */ /* x110344 stalin.sc:11775:411180 */ t60664 = a24560; /* x110345 stalin.sc:11775:411182 */ /* x110343 stalin.sc:11775:411151 */ t60665 = (struct structure_type24753 *)NULL_TYPE; f6728(t60664, t60665); /* x110332 */ /* x110331 stalin.sc:11776:411192 */ /* x110329 stalin.sc:11776:411241 */ t60656 = a24560; /* x110330 stalin.sc:11776:411243 */ /* x110328 stalin.sc:11776:411193 */ t60657 = (struct structure_type24753 *)NULL_TYPE; f6736(t60656, t60657); return;} /* [inside DETERMINE-PARENTS! 12368] */ void f12368(struct w49 a24554) {struct w49 a24558; /* E1 */ struct w49 a36471; /* S */ struct w49 a36610; /* S */ struct w49 a40087; /* S */ struct w49 t60666; struct w49 t60668; struct w49 t60669; struct w49 t60670; struct w49 t60671; struct w49 t60672; struct w49 t60673; struct w49 t60674; struct w49 t60675; struct w49 t60676; struct w49 t60677; struct w49 t60678; struct structure_type24753 *t60679; struct structure_type24753 *t60680; struct w49 t60681; struct w3457 t60682; struct w49 t60683; struct w49 t60684; /* x110322 stalin.sc:11881:414874 */ /* x110265 stalin.sc:11881:414880 */ /* x110264 stalin.sc:11881:414899 */ t60666 = a24554; /* x110263 stalin.sc:11881:414881 */ if (f8526(t60666)==FALSE_TYPE) goto l9451; /* x110319 */ /* x110318 */ /* x110317 */ /* x110316 stalin.sc:11882:414908 */ /* x110315 stalin.sc:11882:414909 */ f4651(); /* x110314 */ /* x110313 stalin.sc:11883:414952 */ /* x110312 stalin.sc:11883:414967 */ t60668 = a24554; /* x110311 */ /* x110310 */ /* x110309 */ /* x110308 */ /* x110307 */ /* x110306 */ /* x110305 */ /* x110267 */ /* x110266 stalin.sc:11883:414957 */ a24558 = t60668; h12373: /* x110304 */ /* x110303 stalin.sc:11884:414978 */ /* x110289 stalin.sc:11884:414986 */ /* x110287 stalin.sc:11884:414991 */ t60676 = a24554; /* x110288 stalin.sc:11884:414993 */ t60677 = a24558; /* x269418 stalin.sc:11884:414987 */ /* EQ: dispatching general to general */ if (!((t60676.tag)==(t60677.tag))) goto l9455; switch (t60676.tag) {case FIXNUM_TYPE: if (!((t60676.value.fixnum_type)==(t60677.value.fixnum_type))) goto l9455; break; case FLONUM_TYPE: if (!((t60676.value.flonum_type)==(t60677.value.flonum_type))) goto l9455; break; case INPUT_PORT_TYPE: if (!((t60676.value.input_port_type)==(t60677.value.input_port_type))) goto l9455; break; case OUTPUT_PORT_TYPE: if (!((t60676.value.output_port_type)==(t60677.value.output_port_type))) goto l9455; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t60676.value.native_procedure_type15963)==(t60677.value.native_procedure_type15963))) goto l9455; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t60676.value.native_procedure_type19067)==(t60677.value.native_procedure_type19067))) goto l9455; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t60676.value.native_procedure_type19068)==(t60677.value.native_procedure_type19068))) goto l9455; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t60676.value.native_procedure_type22459)==(t60677.value.native_procedure_type22459))) goto l9455; break; case STRUCTURE_TYPE24753: if (!((t60676.value.structure_type24753)==(t60677.value.structure_type24753))) goto l9455; break; case STRUCTURE_TYPE24757: if (!((t60676.value.structure_type24757)==(t60677.value.structure_type24757))) goto l9455; break; case STRUCTURE_TYPE27501: if (!((t60676.value.structure_type27501)==(t60677.value.structure_type27501))) goto l9455; break; case STRUCTURE_TYPE27510: if (!((t60676.value.structure_type27510)==(t60677.value.structure_type27510))) goto l9455; break; case STRUCTURE_TYPE27621: if (!((t60676.value.structure_type27621)==(t60677.value.structure_type27621))) goto l9455; break; case STRUCTURE_TYPE27650: if (!((t60676.value.structure_type27650)==(t60677.value.structure_type27650))) goto l9455; break; case STRUCTURE_TYPE27669: if (!((t60676.value.structure_type27669)==(t60677.value.structure_type27669))) goto l9455; break; case STRUCTURE_TYPE27673: if (!((t60676.value.structure_type27673)==(t60677.value.structure_type27673))) goto l9455; break; case STRUCTURE_TYPE27692: if (!((t60676.value.structure_type27692)==(t60677.value.structure_type27692))) goto l9455; break; case STRUCTURE_TYPE27694: if (!((t60676.value.structure_type27694)==(t60677.value.structure_type27694))) goto l9455; break; case STRUCTURE_TYPE27698: if (!((t60676.value.structure_type27698)==(t60677.value.structure_type27698))) goto l9455; break; case STRUCTURE_TYPE27745: if (!((t60676.value.structure_type27745)==(t60677.value.structure_type27745))) goto l9455; break; case STRUCTURE_TYPE27747: if (!((t60676.value.structure_type27747)==(t60677.value.structure_type27747))) goto l9455; break; case STRUCTURE_TYPE27750: if (!((t60676.value.structure_type27750)==(t60677.value.structure_type27750))) goto l9455; break; case STRUCTURE_TYPE27753: if (!((t60676.value.structure_type27753)==(t60677.value.structure_type27753))) goto l9455; break; case STRUCTURE_TYPE27756: if (!((t60676.value.structure_type27756)==(t60677.value.structure_type27756))) goto l9455; break; case STRUCTURE_TYPE27761: if (!((t60676.value.structure_type27761)==(t60677.value.structure_type27761))) goto l9455; break; case STRUCTURE_TYPE27769: if (!((t60676.value.structure_type27769)==(t60677.value.structure_type27769))) goto l9455; break; case STRUCTURE_TYPE27776: if (!((t60676.value.structure_type27776)==(t60677.value.structure_type27776))) goto l9455; break; case STRUCTURE_TYPE27779: if (!((t60676.value.structure_type27779)==(t60677.value.structure_type27779))) goto l9455; break; case STRUCTURE_TYPE27858: if (!((t60676.value.structure_type27858)==(t60677.value.structure_type27858))) goto l9455; break; case STRING_TYPE: if (!((t60676.value.string_type)==(t60677.value.string_type))) goto l9455; break; case HEADED_VECTOR_TYPE27896: if (!((t60676.value.headed_vector_type27896)==(t60677.value.headed_vector_type27896))) goto l9455; break; case EXTERNAL_SYMBOL_TYPE: if (!((t60676.value.external_symbol_type)==(t60677.value.external_symbol_type))) goto l9455; break; case STRUCTURE_TYPE27908: if (!((t60676.value.structure_type27908)==(t60677.value.structure_type27908))) goto l9455; break; default:;} /* x110291 */ /* x110290 */ goto l9456; l9455: /* x110302 */ /* x110301 */ /* x110300 stalin.sc:11885:415005 */ /* x110293 stalin.sc:11886:415056 */ t60678 = a24558; /* x110299 stalin.sc:11886:415059 */ /* x110295 stalin.sc:11886:415065 */ t60681 = a24554; /* x110298 stalin.sc:11886:415067 */ /* x110297 stalin.sc:11886:415111 */ t60683 = a24558; /* x110296 stalin.sc:11886:415068 */ a36610 = t60683; /* x279109 */ /* x279108 */ t60684 = a36610; /* x279107 */ if (!((t60684.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-PROPERLY-IN-LINED-ENVIRONMENTS[6735] 31527]"); structure_ref_error();} t60682 = t60684.value.structure_type27694->s13; /* x269417 stalin.sc:11886:415060 */ t60679 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t60679==NULL) {backtrace("stalin.sc", 11886, 415059); out_of_memory_error();} t60679->s0 = t60681; t60679->s1 = *((struct w49 *)(&t60682)); /* x110292 stalin.sc:11885:415006 */ t60680 = t60679; f6736(t60678, t60680); l9456: /* x110285 */ /* x110284 stalin.sc:11887:415125 */ /* x110270 stalin.sc:11887:415131 */ /* x110269 stalin.sc:11887:415150 */ t60669 = a24558; /* x110268 stalin.sc:11887:415132 */ if (f8585(t60669)==FALSE_TYPE) goto l9453; /* x110281 */ /* x110280 */ /* x110279 stalin.sc:11888:415162 */ /* x110278 stalin.sc:11888:415168 */ /* x110277 stalin.sc:11889:415200 */ /* x110276 stalin.sc:11889:415222 */ /* x110275 stalin.sc:11889:415240 */ t60675 = a24558; /* x110274 stalin.sc:11889:415223 */ t60673 = f8659(t60675); /* x110273 stalin.sc:11889:415201 */ a36471 = t60673; /* x278553 */ /* x278552 */ t60674 = a36471; /* x278551 */ if (!((t60674.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31388]"); structure_ref_error();} t60671 = t60674.value.structure_type27745->s0; /* x110272 stalin.sc:11888:415169 */ a40087 = t60671; /* x293017 */ /* x293016 */ t60672 = a40087; /* x293015 */ if (!((t60672.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35004]"); structure_ref_error();} t60670 = t60672.value.structure_type27698->s9; /* x110271 stalin.sc:11888:415163 */ a24558 = t60670; goto h12373; l9453: /* x110283 stalin.sc:11887:415125 */ /* x110282 stalin.sc:11887:415125 */ return; l9451: /* x110321 stalin.sc:11881:414874 */ /* x110320 stalin.sc:11881:414874 */ return;} /* [inside PERFORM-LIGHTWEIGHT-CLOSURE-CONVERSION! 12351] */ void f12351(struct w49 a24534) {struct w49 a20609; /* S */ struct w49 a20610; /* X */ struct w49 a24537; /* E1 */ struct w49 t60685; struct w49 t60686; struct w49 t60687; struct structure_type24753 *t60688; struct w228345 t60689; struct w49 t60690; struct structure_type24753 *t60691; struct w49 t60692; struct w49 t60693; struct w49 t60694; struct w49 t60695; struct w49 t60696; struct w49 t60697; struct w49 t60698; struct w49 t60699; /* x110179 stalin.sc:11735:409696 */ /* x110137 stalin.sc:11735:409702 */ /* x110136 stalin.sc:11735:409721 */ t60685 = a24534; /* x110135 stalin.sc:11735:409703 */ if (f8526(t60685)==FALSE_TYPE) goto l9458; /* x110176 */ /* x110175 */ /* x110174 stalin.sc:11736:409731 */ /* x110173 stalin.sc:11736:409746 */ /* x110172 stalin.sc:11736:409754 */ t60699 = a24534; /* x110171 stalin.sc:11736:409747 */ t60686 = f8682(t60699); /* x110170 */ /* x110169 */ /* x110168 */ /* x110167 */ /* x110166 */ /* x110165 */ /* x110164 */ /* x110139 */ /* x110138 stalin.sc:11736:409736 */ a24537 = t60686; h12355: /* x110163 stalin.sc:11737:409767 */ /* x110153 stalin.sc:11737:409771 */ /* x110152 stalin.sc:11737:409775 */ /* x110151 stalin.sc:11737:409783 */ t60687 = a24537; /* x110150 stalin.sc:11737:409776 */ if (!(f8581(t60687)==FALSE_TYPE)) goto l9459; /* x110147 */ /* x110146 stalin.sc:11737:409803 */ /* x110145 stalin.sc:11737:409814 */ t60692 = a24537; /* x110144 stalin.sc:11737:409804 */ t60688 = f8987(t60692); /* x110143 stalin.sc:11737:409793 */ /* x110142 stalin.sc:11737:409788 */ t60689.tag = NATIVE_PROCEDURE_TYPE7332; /* MOVE: branching squeezed to general */ if (t60688>=((struct structure_type24753 *)VALUE_OFFSET)) {t60690.tag = STRUCTURE_TYPE24753; t60690.value.structure_type24753 = t60688;} else t60690.tag = (unsigned)t60688; t60691 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t60689, t60690, t60691).tag)==FALSE_TYPE) goto l9460; l9459: /* x110157 stalin.sc:11738:409824 */ /* x110155 stalin.sc:11738:409855 */ t60695 = a24534; /* x110156 stalin.sc:11738:409858 */ t60696 = a24537; /* x110154 stalin.sc:11738:409825 */ a20609 = t60695; a20610 = t60696; /* x55658 */ /* x55656 */ t60697 = a20609; /* x55657 */ t60698 = a20610; /* x55655 */ if ((t60697.tag)==STRUCTURE_TYPE27694) {t60697.value.structure_type27694->s8 = t60698; return;} backtrace_internal("SET-ENVIRONMENT-QUICK-PARENT![6696]"); structure_set_error(); l9460: /* x110162 stalin.sc:11739:409866 */ /* x110161 stalin.sc:11739:409872 */ /* x110160 stalin.sc:11739:409880 */ t60694 = a24537; /* x110159 stalin.sc:11739:409873 */ t60693 = f8682(t60694); /* x110158 stalin.sc:11739:409867 */ a24537 = t60693; goto h12355; l9458: /* x110178 stalin.sc:11735:409696 */ /* x110177 stalin.sc:11735:409696 */ return;} /* [inside PERFORM-LIGHTWEIGHT-CLOSURE-CONVERSION! 12348] */ void f12348(struct w49 a24533) {struct w49 t60700; struct w49 t60701; struct w3457 t60702; /* x110130 stalin.sc:11732:409592 */ /* x110121 stalin.sc:11732:409598 */ /* x110120 stalin.sc:11732:409617 */ t60700 = a24533; /* x110119 stalin.sc:11732:409599 */ if (f8526(t60700)==FALSE_TYPE) goto l9463; /* x110127 */ /* x110126 */ /* x110125 stalin.sc:11732:409620 */ /* x110123 stalin.sc:11732:409648 */ t60701 = a24533; /* x110124 stalin.sc:11732:409650 */ /* x110122 stalin.sc:11732:409621 */ t60702.tag = NULL_TYPE; f6720(t60701, t60702); return; l9463: /* x110129 stalin.sc:11732:409592 */ /* x110128 stalin.sc:11732:409592 */ return;} /* [inside PERFORM-LIGHTWEIGHT-CLOSURE-CONVERSION! 12346] */ void f12346(struct w49 a24531) {struct w49 t60703; unsigned t60704; struct w49 t60705; char *t60706; struct w3457 t60707; /* x110114 */ /* x110113 stalin.sc:11728:409466 */ /* x110110 stalin.sc:11728:409494 */ t60705 = a24531; /* x110112 stalin.sc:11728:409496 */ /* x110111 stalin.sc:11728:409497 */ /* x277527 stalin.sc:323:8604 */ t60706 = q35; /* x110109 stalin.sc:11728:409467 */ t60707.tag = EXTERNAL_SYMBOL_TYPE; t60707.value.external_symbol_type = t60706; f6720(t60705, t60707); /* x110108 */ /* x110107 stalin.sc:11729:409516 */ /* x110105 stalin.sc:11729:409547 */ t60703 = a24531; /* x110106 stalin.sc:11729:409549 */ /* x110104 stalin.sc:11729:409517 */ t60704 = FALSE_TYPE; f8522(t60703, t60704); return;} /* [inside PERFORM-LIGHTWEIGHT-CLOSURE-CONVERSION! 12344] */ void f12344(struct w49 a24527) {struct w49 t60708; unsigned t60709; struct w49 t60710; unsigned t60711; struct w49 t60712; unsigned t60713; struct w49 t60714; unsigned t60715; /* x110099 */ /* x110090 stalin.sc:11722:409296 */ /* x110088 stalin.sc:11722:409318 */ t60710 = a24527; /* x110089 stalin.sc:11722:409320 */ /* x110087 stalin.sc:11722:409297 */ t60711 = FALSE_TYPE; f8205(t60710, t60711); /* x110094 stalin.sc:11723:409329 */ /* x110092 stalin.sc:11723:409352 */ t60712 = a24527; /* x110093 stalin.sc:11723:409354 */ /* x110091 stalin.sc:11723:409330 */ t60713 = FALSE_TYPE; f8210(t60712, t60713); /* x110098 stalin.sc:11724:409363 */ /* x110096 stalin.sc:11724:409386 */ t60714 = a24527; /* x110097 stalin.sc:11724:409388 */ /* x110095 stalin.sc:11724:409364 */ t60715 = FALSE_TYPE; f8215(t60714, t60715); /* x110086 */ /* x110085 stalin.sc:11725:409397 */ /* x110083 stalin.sc:11725:409421 */ t60708 = a24527; /* x110084 stalin.sc:11725:409423 */ /* x110082 stalin.sc:11725:409398 */ t60709 = FALSE_TYPE; f8220(t60708, t60709); return;} /* [inside PERFORM-LIGHTWEIGHT-CLOSURE-CONVERSION! 12343] */ void f12343(struct w49 a24526) {struct w49 t60716; unsigned t60717; /* x110077 stalin.sc:11720:409228 */ /* x110075 stalin.sc:11720:409255 */ t60716 = a24526; /* x110076 stalin.sc:11720:409257 */ /* x110074 stalin.sc:11720:409229 */ t60717 = TRUE_TYPE; f8133(t60716, t60717); return;} /* [inside PERFORM-LIGHTWEIGHT-CLOSURE-CONVERSION! 12342] */ void f12342(struct w49 a24525) {struct w49 t60718; unsigned t60719; /* x110069 stalin.sc:11718:409142 */ /* x110067 stalin.sc:11718:409175 */ t60718 = a24525; /* x110068 stalin.sc:11718:409177 */ /* x110066 stalin.sc:11718:409143 */ t60719 = TRUE_TYPE; f7475(t60718, t60719); return;} /* [inside PERFORM-LIGHTWEIGHT-CLOSURE-CONVERSION! 12341] */ void f12341(struct w49 a24524) {struct w49 t60720; unsigned t60721; /* x110061 stalin.sc:11716:409050 */ /* x110059 stalin.sc:11716:409086 */ t60720 = a24524; /* x110060 stalin.sc:11716:409088 */ /* x110058 stalin.sc:11716:409051 */ t60721 = TRUE_TYPE; f7390(t60720, t60721); return;} /* [inside PERFORM-LIGHTWEIGHT-CLOSURE-CONVERSION! 12340] */ void f12340(struct w49 a24523) {struct w49 t60722; unsigned t60723; /* x110053 stalin.sc:11714:408950 */ /* x110051 stalin.sc:11714:408990 */ t60722 = a24523; /* x110052 stalin.sc:11714:408992 */ /* x110050 stalin.sc:11714:408951 */ t60723 = TRUE_TYPE; f7330(t60722, t60723); return;} /* UNIONQ[12328] */ struct w49 f12328(struct w49 a24502, struct w49 a24503) {struct w49 r12328; struct w16638 a35570; /* PAIR */ struct w16638 a35571; /* PAIR */ struct w16638 a35572; /* PAIR */ struct w16638 a35573; /* PAIR */ struct w16638 a36129; /* PAIR */ struct w16638 a36130; /* PAIR */ struct w16638 a36131; /* PAIR */ struct w16638 a36132; /* PAIR */ struct w16638 a36133; /* PAIR */ struct w16638 a36134; /* PAIR */ struct w16638 a36135; /* PAIR */ struct w49 t60724; struct w49 t60725; struct w49 t60726; struct w49 t60727; struct w16638 t60728; struct w16638 t60729; struct w16638 t60730; struct w16638 t60731; unsigned t60732; unsigned t60733; struct w49 t60734; struct w16638 t60735; struct w16638 t60736; struct w49 t60737; struct w16638 t60738; struct w16638 t60739; struct w49 t60740; struct w49 t60741; struct w16638 t60742; struct w16638 t60743; struct w16638 t60744; struct w49 t60745; struct w49 t60746; struct w16638 t60747; struct w16638 t60748; struct w49 t60749; struct w49 t60750; struct w16638 t60751; struct w16638 t60752; struct w49 t60753; struct w16638 t60754; struct w49 t60755; struct w16638 t60756; struct w16638 t60757; struct w49 t60758; struct w49 t60759; struct w16638 t60760; struct w16638 t60761; struct w49 t60762; struct w49 t60763; struct w16638 t60764; struct w16638 t60765; struct w16638 t60766; struct w16638 t60767; /* x110028 stalin.sc:11608:405590 */ /* x109954 stalin.sc:11608:405597 */ /* x109953 stalin.sc:11608:405604 */ t60724 = a24502; /* x269425 stalin.sc:11608:405598 */ if (!((t60724.tag)==NULL_TYPE)) goto l9465; /* x109957 */ /* x109956 */ /* x109955 stalin.sc:11608:405609 */ return a24503; l9465: /* x110027 */ /* x109960 stalin.sc:11609:405616 */ /* x109959 stalin.sc:11609:405623 */ t60725 = a24503; /* x269424 stalin.sc:11609:405617 */ if (!((t60725.tag)==NULL_TYPE)) goto l9467; /* x109963 */ /* x109962 */ /* x109961 stalin.sc:11609:405628 */ return a24502; l9467: /* x110026 */ /* x109971 stalin.sc:11610:405635 */ /* x109967 stalin.sc:11610:405640 */ /* x109966 stalin.sc:11610:405647 */ t60728 = *((struct w16638 *)(&a24502)); /* x109965 stalin.sc:11610:405641 */ a36134 = t60728; /* x275893 */ /* x275892 */ t60729 = a36134; /* x275891 */ if (!((t60729.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30283]"); structure_ref_error();} t60726 = t60729.value.structure_type24753->s0; /* x109970 stalin.sc:11610:405652 */ /* x109969 stalin.sc:11610:405659 */ t60730 = *((struct w16638 *)(&a24503)); /* x109968 stalin.sc:11610:405653 */ a36135 = t60730; /* x275897 */ /* x275896 */ t60731 = a36135; /* x275895 */ if (!((t60731.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30284]"); structure_ref_error();} t60727 = t60731.value.structure_type24753->s0; /* x269423 stalin.sc:11610:405636 */ /* EQ: dispatching general to general */ if (!((t60726.tag)==(t60727.tag))) goto l9469; switch (t60726.tag) {case FIXNUM_TYPE: if (!((t60726.value.fixnum_type)==(t60727.value.fixnum_type))) goto l9469; break; case FLONUM_TYPE: if (!((t60726.value.flonum_type)==(t60727.value.flonum_type))) goto l9469; break; case INPUT_PORT_TYPE: if (!((t60726.value.input_port_type)==(t60727.value.input_port_type))) goto l9469; break; case OUTPUT_PORT_TYPE: if (!((t60726.value.output_port_type)==(t60727.value.output_port_type))) goto l9469; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t60726.value.native_procedure_type15963)==(t60727.value.native_procedure_type15963))) goto l9469; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t60726.value.native_procedure_type19067)==(t60727.value.native_procedure_type19067))) goto l9469; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t60726.value.native_procedure_type19068)==(t60727.value.native_procedure_type19068))) goto l9469; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t60726.value.native_procedure_type22459)==(t60727.value.native_procedure_type22459))) goto l9469; break; case STRUCTURE_TYPE24753: if (!((t60726.value.structure_type24753)==(t60727.value.structure_type24753))) goto l9469; break; case STRUCTURE_TYPE24757: if (!((t60726.value.structure_type24757)==(t60727.value.structure_type24757))) goto l9469; break; case STRUCTURE_TYPE27501: if (!((t60726.value.structure_type27501)==(t60727.value.structure_type27501))) goto l9469; break; case STRUCTURE_TYPE27510: if (!((t60726.value.structure_type27510)==(t60727.value.structure_type27510))) goto l9469; break; case STRUCTURE_TYPE27621: if (!((t60726.value.structure_type27621)==(t60727.value.structure_type27621))) goto l9469; break; case STRUCTURE_TYPE27650: if (!((t60726.value.structure_type27650)==(t60727.value.structure_type27650))) goto l9469; break; case STRUCTURE_TYPE27669: if (!((t60726.value.structure_type27669)==(t60727.value.structure_type27669))) goto l9469; break; case STRUCTURE_TYPE27673: if (!((t60726.value.structure_type27673)==(t60727.value.structure_type27673))) goto l9469; break; case STRUCTURE_TYPE27692: if (!((t60726.value.structure_type27692)==(t60727.value.structure_type27692))) goto l9469; break; case STRUCTURE_TYPE27694: if (!((t60726.value.structure_type27694)==(t60727.value.structure_type27694))) goto l9469; break; case STRUCTURE_TYPE27698: if (!((t60726.value.structure_type27698)==(t60727.value.structure_type27698))) goto l9469; break; case STRUCTURE_TYPE27745: if (!((t60726.value.structure_type27745)==(t60727.value.structure_type27745))) goto l9469; break; case STRUCTURE_TYPE27747: if (!((t60726.value.structure_type27747)==(t60727.value.structure_type27747))) goto l9469; break; case STRUCTURE_TYPE27750: if (!((t60726.value.structure_type27750)==(t60727.value.structure_type27750))) goto l9469; break; case STRUCTURE_TYPE27753: if (!((t60726.value.structure_type27753)==(t60727.value.structure_type27753))) goto l9469; break; case STRUCTURE_TYPE27756: if (!((t60726.value.structure_type27756)==(t60727.value.structure_type27756))) goto l9469; break; case STRUCTURE_TYPE27761: if (!((t60726.value.structure_type27761)==(t60727.value.structure_type27761))) goto l9469; break; case STRUCTURE_TYPE27769: if (!((t60726.value.structure_type27769)==(t60727.value.structure_type27769))) goto l9469; break; case STRUCTURE_TYPE27776: if (!((t60726.value.structure_type27776)==(t60727.value.structure_type27776))) goto l9469; break; case STRUCTURE_TYPE27779: if (!((t60726.value.structure_type27779)==(t60727.value.structure_type27779))) goto l9469; break; case STRUCTURE_TYPE27858: if (!((t60726.value.structure_type27858)==(t60727.value.structure_type27858))) goto l9469; break; case STRING_TYPE: if (!((t60726.value.string_type)==(t60727.value.string_type))) goto l9469; break; case HEADED_VECTOR_TYPE27896: if (!((t60726.value.headed_vector_type27896)==(t60727.value.headed_vector_type27896))) goto l9469; break; case EXTERNAL_SYMBOL_TYPE: if (!((t60726.value.external_symbol_type)==(t60727.value.external_symbol_type))) goto l9469; break; case STRUCTURE_TYPE27908: if (!((t60726.value.structure_type27908)==(t60727.value.structure_type27908))) goto l9469; break; default:;} /* x109986 */ /* x109985 */ /* x109984 stalin.sc:11611:405667 */ /* x109975 stalin.sc:11611:405673 */ /* x109974 stalin.sc:11611:405680 */ t60760 = *((struct w16638 *)(&a24502)); /* x109973 stalin.sc:11611:405674 */ a36129 = t60760; /* x275873 */ /* x275872 */ t60761 = a36129; /* x275871 */ if (!((t60761.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30278]"); structure_ref_error();} t60758 = t60761.value.structure_type24753->s0; /* x109983 stalin.sc:11611:405685 */ /* x109979 stalin.sc:11611:405693 */ /* x109978 stalin.sc:11611:405699 */ t60764 = *((struct w16638 *)(&a24502)); /* x109977 stalin.sc:11611:405694 */ a35570 = t60764; /* x273637 */ /* x273636 */ t60765 = a35570; /* x273635 */ if (!((t60765.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29719]"); structure_ref_error();} t60762 = t60765.value.structure_type24753->s1; /* x109982 stalin.sc:11611:405704 */ /* x109981 stalin.sc:11611:405710 */ t60766 = *((struct w16638 *)(&a24503)); /* x109980 stalin.sc:11611:405705 */ a35571 = t60766; /* x273641 */ /* x273640 */ t60767 = a35571; /* x273639 */ if (!((t60767.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29720]"); structure_ref_error();} t60763 = t60767.value.structure_type24753->s1; /* x109976 stalin.sc:11611:405686 */ t60759 = f12328(t60762, t60763); /* x269422 stalin.sc:11611:405668 */ r12328.tag = STRUCTURE_TYPE24753; r12328.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r12328.value.structure_type24753)==NULL) {backtrace("stalin.sc", 11611, 405667); out_of_memory_error();} r12328.value.structure_type24753->s0 = t60758; r12328.value.structure_type24753->s1 = t60759; return r12328; l9469: /* x110025 */ /* x109998 stalin.sc:11612:405720 */ /* x109992 stalin.sc:11612:405723 */ /* x109991 stalin.sc:11612:405735 */ /* x109990 stalin.sc:11612:405742 */ t60735 = *((struct w16638 *)(&a24502)); /* x109989 stalin.sc:11612:405736 */ a36132 = t60735; /* x275885 */ /* x275884 */ t60736 = a36132; /* x275883 */ if (!((t60736.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30281]"); structure_ref_error();} t60734 = t60736.value.structure_type24753->s0; /* x109988 stalin.sc:11612:405724 */ t60732 = f7936(t60734); /* x109997 stalin.sc:11612:405748 */ /* x109996 stalin.sc:11612:405760 */ /* x109995 stalin.sc:11612:405767 */ t60738 = *((struct w16638 *)(&a24503)); /* x109994 stalin.sc:11612:405761 */ a36133 = t60738; /* x275889 */ /* x275888 */ t60739 = a36133; /* x275887 */ if (!((t60739.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30282]"); structure_ref_error();} t60737 = t60739.value.structure_type24753->s0; /* x109993 stalin.sc:11612:405749 */ t60733 = f7936(t60737); /* x269421 stalin.sc:11612:405721 */ if (!((t60732&1)==1)) {backtrace("stalin.sc", 11612, 405720); lt_error();} if (!((t60733&1)==1)) {backtrace("stalin.sc", 11612, 405720); lt_error();} if (!(((int)(((int)t60732)>>1))<((int)(((int)t60733)>>1)))) goto l9471; /* x110011 */ /* x110010 */ /* x110009 stalin.sc:11613:405776 */ /* x110002 stalin.sc:11613:405782 */ /* x110001 stalin.sc:11613:405789 */ t60751 = *((struct w16638 *)(&a24502)); /* x110000 stalin.sc:11613:405783 */ a36130 = t60751; /* x275877 */ /* x275876 */ t60752 = a36130; /* x275875 */ if (!((t60752.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30279]"); structure_ref_error();} t60749 = t60752.value.structure_type24753->s0; /* x110008 stalin.sc:11613:405794 */ /* x110006 stalin.sc:11613:405802 */ /* x110005 stalin.sc:11613:405808 */ t60756 = *((struct w16638 *)(&a24502)); /* x110004 stalin.sc:11613:405803 */ a35572 = t60756; /* x273645 */ /* x273644 */ t60757 = a35572; /* x273643 */ if (!((t60757.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29721]"); structure_ref_error();} t60753 = t60757.value.structure_type24753->s1; /* x110007 stalin.sc:11613:405813 */ t60754 = *((struct w16638 *)(&a24503)); /* x110003 stalin.sc:11613:405795 */ t60755 = *((struct w49 *)(&t60754)); t60750 = f12328(t60753, t60755); /* x269420 stalin.sc:11613:405777 */ r12328.tag = STRUCTURE_TYPE24753; r12328.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r12328.value.structure_type24753)==NULL) {backtrace("stalin.sc", 11613, 405776); out_of_memory_error();} r12328.value.structure_type24753->s0 = t60749; r12328.value.structure_type24753->s1 = t60750; return r12328; l9471: /* x110024 */ /* x110023 */ /* x110022 stalin.sc:11614:405827 */ /* x110015 stalin.sc:11614:405833 */ /* x110014 stalin.sc:11614:405840 */ t60742 = *((struct w16638 *)(&a24503)); /* x110013 stalin.sc:11614:405834 */ a36131 = t60742; /* x275881 */ /* x275880 */ t60743 = a36131; /* x275879 */ if (!((t60743.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30280]"); structure_ref_error();} t60740 = t60743.value.structure_type24753->s0; /* x110021 stalin.sc:11614:405845 */ /* x110017 stalin.sc:11614:405853 */ t60744 = *((struct w16638 *)(&a24502)); /* x110020 stalin.sc:11614:405857 */ /* x110019 stalin.sc:11614:405863 */ t60747 = *((struct w16638 *)(&a24503)); /* x110018 stalin.sc:11614:405858 */ a35573 = t60747; /* x273649 */ /* x273648 */ t60748 = a35573; /* x273647 */ if (!((t60748.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29722]"); structure_ref_error();} t60745 = t60748.value.structure_type24753->s1; /* x110016 stalin.sc:11614:405846 */ t60746 = *((struct w49 *)(&t60744)); t60741 = f12328(t60746, t60745); /* x269419 stalin.sc:11614:405828 */ r12328.tag = STRUCTURE_TYPE24753; r12328.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r12328.value.structure_type24753)==NULL) {backtrace("stalin.sc", 11614, 405827); out_of_memory_error();} r12328.value.structure_type24753->s0 = t60740; r12328.value.structure_type24753->s1 = t60741; return r12328;} /* SET-EQUALQ?[12326] */ unsigned f12326(struct w49 a24499, struct w49 a24500) {struct w16638 a35500; /* PAIR */ struct w16638 a35501; /* PAIR */ struct w16638 a36006; /* PAIR */ struct w16638 a36007; /* PAIR */ struct w49 t60768; struct w49 t60769; struct w49 t60770; struct w49 t60771; struct w49 t60772; struct w49 t60773; struct w16638 t60774; struct w16638 t60775; struct w16638 t60776; struct w16638 t60777; struct w49 t60778; struct w49 t60779; struct w16638 t60780; struct w16638 t60781; struct w16638 t60782; struct w16638 t60783; h12326: /* x109949 stalin.sc:11601:405331 */ /* x109949 stalin.sc:11601:405331 */ /* x109948 stalin.sc:11601:405335 */ /* x109943 stalin.sc:11601:405340 */ /* x109942 stalin.sc:11601:405347 */ t60768 = a24499; /* x269427 stalin.sc:11601:405341 */ if (!((t60768.tag)==NULL_TYPE)) goto l9475; /* x109946 */ /* x109945 stalin.sc:11601:405359 */ t60769 = a24500; /* x269426 stalin.sc:11601:405353 */ if ((t60769.tag)==NULL_TYPE) goto l9472; l9475: /* x109938 */ /* x109911 stalin.sc:11602:405376 */ /* x109910 stalin.sc:11602:405381 */ /* x109909 stalin.sc:11602:405388 */ t60770 = a24499; /* x269431 stalin.sc:11602:405382 */ if ((t60770.tag)==NULL_TYPE) goto l9473; /* x109936 */ /* x109916 stalin.sc:11603:405398 */ /* x109915 stalin.sc:11603:405403 */ /* x109914 stalin.sc:11603:405410 */ t60771 = a24500; /* x269429 stalin.sc:11603:405404 */ if ((t60771.tag)==NULL_TYPE) goto l9473; /* x109934 */ /* x109924 stalin.sc:11604:405420 */ /* x109920 stalin.sc:11604:405425 */ /* x109919 stalin.sc:11604:405432 */ t60774 = *((struct w16638 *)(&a24499)); /* x109918 stalin.sc:11604:405426 */ a36006 = t60774; /* x275381 */ /* x275380 */ t60775 = a36006; /* x275379 */ if (!((t60775.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30155]"); structure_ref_error();} t60772 = t60775.value.structure_type24753->s0; /* x109923 stalin.sc:11604:405437 */ /* x109922 stalin.sc:11604:405444 */ t60776 = *((struct w16638 *)(&a24500)); /* x109921 stalin.sc:11604:405438 */ a36007 = t60776; /* x275385 */ /* x275384 */ t60777 = a36007; /* x275383 */ if (!((t60777.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30156]"); structure_ref_error();} t60773 = t60777.value.structure_type24753->s0; /* x269428 stalin.sc:11604:405421 */ /* EQ: dispatching general to general */ if (!((t60772.tag)==(t60773.tag))) goto l9473; switch (t60772.tag) {case FIXNUM_TYPE: if (!((t60772.value.fixnum_type)==(t60773.value.fixnum_type))) goto l9473; break; case FLONUM_TYPE: if (!((t60772.value.flonum_type)==(t60773.value.flonum_type))) goto l9473; break; case INPUT_PORT_TYPE: if (!((t60772.value.input_port_type)==(t60773.value.input_port_type))) goto l9473; break; case OUTPUT_PORT_TYPE: if (!((t60772.value.output_port_type)==(t60773.value.output_port_type))) goto l9473; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t60772.value.native_procedure_type15963)==(t60773.value.native_procedure_type15963))) goto l9473; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t60772.value.native_procedure_type19067)==(t60773.value.native_procedure_type19067))) goto l9473; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t60772.value.native_procedure_type19068)==(t60773.value.native_procedure_type19068))) goto l9473; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t60772.value.native_procedure_type22459)==(t60773.value.native_procedure_type22459))) goto l9473; break; case STRUCTURE_TYPE24753: if (!((t60772.value.structure_type24753)==(t60773.value.structure_type24753))) goto l9473; break; case STRUCTURE_TYPE24757: if (!((t60772.value.structure_type24757)==(t60773.value.structure_type24757))) goto l9473; break; case STRUCTURE_TYPE27501: if (!((t60772.value.structure_type27501)==(t60773.value.structure_type27501))) goto l9473; break; case STRUCTURE_TYPE27510: if (!((t60772.value.structure_type27510)==(t60773.value.structure_type27510))) goto l9473; break; case STRUCTURE_TYPE27621: if (!((t60772.value.structure_type27621)==(t60773.value.structure_type27621))) goto l9473; break; case STRUCTURE_TYPE27650: if (!((t60772.value.structure_type27650)==(t60773.value.structure_type27650))) goto l9473; break; case STRUCTURE_TYPE27669: if (!((t60772.value.structure_type27669)==(t60773.value.structure_type27669))) goto l9473; break; case STRUCTURE_TYPE27673: if (!((t60772.value.structure_type27673)==(t60773.value.structure_type27673))) goto l9473; break; case STRUCTURE_TYPE27692: if (!((t60772.value.structure_type27692)==(t60773.value.structure_type27692))) goto l9473; break; case STRUCTURE_TYPE27694: if (!((t60772.value.structure_type27694)==(t60773.value.structure_type27694))) goto l9473; break; case STRUCTURE_TYPE27698: if (!((t60772.value.structure_type27698)==(t60773.value.structure_type27698))) goto l9473; break; case STRUCTURE_TYPE27745: if (!((t60772.value.structure_type27745)==(t60773.value.structure_type27745))) goto l9473; break; case STRUCTURE_TYPE27747: if (!((t60772.value.structure_type27747)==(t60773.value.structure_type27747))) goto l9473; break; case STRUCTURE_TYPE27750: if (!((t60772.value.structure_type27750)==(t60773.value.structure_type27750))) goto l9473; break; case STRUCTURE_TYPE27753: if (!((t60772.value.structure_type27753)==(t60773.value.structure_type27753))) goto l9473; break; case STRUCTURE_TYPE27756: if (!((t60772.value.structure_type27756)==(t60773.value.structure_type27756))) goto l9473; break; case STRUCTURE_TYPE27761: if (!((t60772.value.structure_type27761)==(t60773.value.structure_type27761))) goto l9473; break; case STRUCTURE_TYPE27769: if (!((t60772.value.structure_type27769)==(t60773.value.structure_type27769))) goto l9473; break; case STRUCTURE_TYPE27776: if (!((t60772.value.structure_type27776)==(t60773.value.structure_type27776))) goto l9473; break; case STRUCTURE_TYPE27779: if (!((t60772.value.structure_type27779)==(t60773.value.structure_type27779))) goto l9473; break; case STRUCTURE_TYPE27858: if (!((t60772.value.structure_type27858)==(t60773.value.structure_type27858))) goto l9473; break; case STRING_TYPE: if (!((t60772.value.string_type)==(t60773.value.string_type))) goto l9473; break; case HEADED_VECTOR_TYPE27896: if (!((t60772.value.headed_vector_type27896)==(t60773.value.headed_vector_type27896))) goto l9473; break; case EXTERNAL_SYMBOL_TYPE: if (!((t60772.value.external_symbol_type)==(t60773.value.external_symbol_type))) goto l9473; break; case STRUCTURE_TYPE27908: if (!((t60772.value.structure_type27908)==(t60773.value.structure_type27908))) goto l9473; break; default:;} /* x109932 */ /* x109928 stalin.sc:11605:405467 */ /* x109927 stalin.sc:11605:405473 */ t60780 = *((struct w16638 *)(&a24499)); /* x109926 stalin.sc:11605:405468 */ a35500 = t60780; /* x273357 */ /* x273356 */ t60781 = a35500; /* x273355 */ if (!((t60781.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29649]"); structure_ref_error();} t60778 = t60781.value.structure_type24753->s1; /* x109931 stalin.sc:11605:405478 */ /* x109930 stalin.sc:11605:405484 */ t60782 = *((struct w16638 *)(&a24500)); /* x109929 stalin.sc:11605:405479 */ a35501 = t60782; /* x273361 */ /* x273360 */ t60783 = a35501; /* x273359 */ if (!((t60783.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29650]"); structure_ref_error();} t60779 = t60783.value.structure_type24753->s1; /* x109925 stalin.sc:11605:405455 */ a24499 = t60778; a24500 = t60779; goto h12326; l9472: return TRUE_TYPE; l9473: return FALSE_TYPE;} /* [inside LOOP 12308] */ void f12308(struct w49 a24488) {struct w12224 a24489; /* US */ struct w49 a24493; /* US */ struct w49 a24495; /* US2 */ struct w49 a24496; /* US1 */ struct w49 a35563; /* PAIR */ struct w49 a35564; /* PAIR */ struct w12224 a35565; /* PAIR */ struct w12224 t60784; struct w12224 t60785; struct w49 t60786; struct w12224 t60787; struct w12224 t60788; struct w12224 t60789; struct w49 t60790; struct w49 t60791; struct w49 t60792; struct p12315 *t60793; struct p12315 *t60794; struct w49 t60795; struct w49 t60796; struct w49 t60797; struct w49 t60798; struct w49 t60799; struct w49 t60800; struct w49 t60801; struct w49 t60802; struct w12224 t60803; struct w49 t60804; struct w49 t60805; struct structure_type24753 *t60806; struct w49 t60807; struct w49 t60808; struct w12224 t60809; struct w49 t60810; struct w49 t60811; struct structure_type24753 *t60812; struct w49 t60813; struct p12315 *t60814; struct structure_type24753 *t60815; struct w227506 t60816; struct w49 t60817; struct p12315 *t60818; struct structure_type24753 *t60819; struct w227506 t60820; struct w49 t60821; struct w49 t60822; struct w211061 t60823; struct p12315 *e12315; struct p12315 *p12317; struct p12315 *p12318; /* x109881 stalin.sc:11686:408055 */ /* x109880 stalin.sc:11686:408065 */ /* x109878 stalin.sc:11686:408079 */ /* x109879 stalin.sc:11686:408102 */ t60822 = a24488; /* x109877 stalin.sc:11686:408066 */ t60823.tag = NATIVE_PROCEDURE_TYPE7773; t60784 = f8172(t60823, t60822); /* x109876 */ a24489 = t60784; /* x109875 stalin.sc:11687:408114 */ /* x109797 stalin.sc:11687:408122 */ /* x109796 stalin.sc:11687:408126 */ /* x109795 stalin.sc:11687:408133 */ t60785 = a24489; /* x269436 stalin.sc:11687:408127 */ if ((t60785.tag)==NULL_TYPE) goto l9480; /* x109791 */ /* x109790 stalin.sc:11687:408144 */ /* x109789 stalin.sc:11687:408150 */ t60787 = a24489; /* x109788 stalin.sc:11687:408145 */ a35565 = t60787; /* x273617 */ /* x273616 */ t60788 = a35565; /* x273615 */ if (!((t60788.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29714]"); structure_ref_error();} t60786 = t60788.value.structure_type24753->s1; /* x269437 stalin.sc:11687:408138 */ if (!((t60786.tag)==NULL_TYPE)) goto l9481; l9480: /* x109799 */ /* x109798 */ return; l9481: /* x109874 */ /* x109873 */ /* x109872 stalin.sc:11688:408157 */ /* x109871 */ /* x109870 */ /* x109869 */ /* x109868 */ /* x109867 */ /* x109866 */ /* x109803 */ /* x109802 */ /* x109801 stalin.sc:11688:408166 */ t60789 = a24489; /* x109800 */ a24493 = *((struct w49 *)(&t60789)); h12315: e12315 = (struct p12315 *)alloca(sizeof(struct p12315)); if (e12315==NULL) {backtrace_internal("[inside LOOP 12313]"); out_of_memory_error();} e12315->a24493 = a24493; /* x109865 */ /* x109808 stalin.sc:11688:408182 */ /* x109807 stalin.sc:11688:408189 */ /* x109806 stalin.sc:11688:408195 */ t60791 = e12315->a24493; /* x109805 stalin.sc:11688:408190 */ a35564 = t60791; /* x273613 */ /* x273612 */ t60792 = a35564; /* x273611 */ if (!((t60792.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29713]"); structure_ref_error();} t60790 = t60792.value.structure_type24753->s1; /* x269435 stalin.sc:11688:408183 */ if (!((t60790.tag)==NULL_TYPE)) goto l9484; /* x109810 */ /* x109809 */ return; l9484: /* x109864 */ /* x109863 */ t60793 = e12315; p12317 = t60793; /* x109862 */ /* x109861 stalin.sc:11689:408203 */ /* x109850 stalin.sc:11690:408279 */ /* x109848 stalin.sc:11690:408288 */ t60814 = p12317; /* x109849 stalin.sc:11690:408326 */ t60815 = a24481; /* x109841 stalin.sc:11690:408280 */ t60816.tag = NATIVE_PROCEDURE_TYPE16260; t60816.value.native_procedure_type16260 = t60814; /* MOVE: branching squeezed to general */ if (t60815>=((struct structure_type24753 *)VALUE_OFFSET)) {t60817.tag = STRUCTURE_TYPE24753; t60817.value.structure_type24753 = t60815;} else t60817.tag = (unsigned)t60815; t60798 = f1314(t60816, t60817); /* x109860 stalin.sc:11689:408214 */ /* x109858 stalin.sc:11689:408223 */ t60818 = p12317; /* x109859 stalin.sc:11689:408260 */ t60819 = a24481; /* x109851 stalin.sc:11689:408215 */ t60820.tag = NATIVE_PROCEDURE_TYPE16259; t60820.value.native_procedure_type16259 = t60818; /* MOVE: branching squeezed to general */ if (t60819>=((struct structure_type24753 *)VALUE_OFFSET)) {t60821.tag = STRUCTURE_TYPE24753; t60821.value.structure_type24753 = t60819;} else t60821.tag = (unsigned)t60819; t60799 = f1314(t60820, t60821); /* x109840 */ a24495 = t60798; a24496 = t60799; /* x109839 stalin.sc:11691:408336 */ /* x109820 stalin.sc:11691:408344 */ /* x109818 stalin.sc:11691:408349 */ t60800 = a24496; /* x109819 stalin.sc:11691:408353 */ t60801 = a24495; /* x269434 stalin.sc:11691:408345 */ /* EQ: dispatching general to general */ if (!((t60800.tag)==(t60801.tag))) goto l9486; switch (t60800.tag) {case FIXNUM_TYPE: if (!((t60800.value.fixnum_type)==(t60801.value.fixnum_type))) goto l9486; break; case FLONUM_TYPE: if (!((t60800.value.flonum_type)==(t60801.value.flonum_type))) goto l9486; break; case INPUT_PORT_TYPE: if (!((t60800.value.input_port_type)==(t60801.value.input_port_type))) goto l9486; break; case OUTPUT_PORT_TYPE: if (!((t60800.value.output_port_type)==(t60801.value.output_port_type))) goto l9486; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t60800.value.native_procedure_type15963)==(t60801.value.native_procedure_type15963))) goto l9486; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t60800.value.native_procedure_type19067)==(t60801.value.native_procedure_type19067))) goto l9486; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t60800.value.native_procedure_type19068)==(t60801.value.native_procedure_type19068))) goto l9486; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t60800.value.native_procedure_type22459)==(t60801.value.native_procedure_type22459))) goto l9486; break; case STRUCTURE_TYPE24753: if (!((t60800.value.structure_type24753)==(t60801.value.structure_type24753))) goto l9486; break; case STRUCTURE_TYPE24757: if (!((t60800.value.structure_type24757)==(t60801.value.structure_type24757))) goto l9486; break; case STRUCTURE_TYPE27501: if (!((t60800.value.structure_type27501)==(t60801.value.structure_type27501))) goto l9486; break; case STRUCTURE_TYPE27510: if (!((t60800.value.structure_type27510)==(t60801.value.structure_type27510))) goto l9486; break; case STRUCTURE_TYPE27621: if (!((t60800.value.structure_type27621)==(t60801.value.structure_type27621))) goto l9486; break; case STRUCTURE_TYPE27650: if (!((t60800.value.structure_type27650)==(t60801.value.structure_type27650))) goto l9486; break; case STRUCTURE_TYPE27669: if (!((t60800.value.structure_type27669)==(t60801.value.structure_type27669))) goto l9486; break; case STRUCTURE_TYPE27673: if (!((t60800.value.structure_type27673)==(t60801.value.structure_type27673))) goto l9486; break; case STRUCTURE_TYPE27692: if (!((t60800.value.structure_type27692)==(t60801.value.structure_type27692))) goto l9486; break; case STRUCTURE_TYPE27694: if (!((t60800.value.structure_type27694)==(t60801.value.structure_type27694))) goto l9486; break; case STRUCTURE_TYPE27698: if (!((t60800.value.structure_type27698)==(t60801.value.structure_type27698))) goto l9486; break; case STRUCTURE_TYPE27745: if (!((t60800.value.structure_type27745)==(t60801.value.structure_type27745))) goto l9486; break; case STRUCTURE_TYPE27747: if (!((t60800.value.structure_type27747)==(t60801.value.structure_type27747))) goto l9486; break; case STRUCTURE_TYPE27750: if (!((t60800.value.structure_type27750)==(t60801.value.structure_type27750))) goto l9486; break; case STRUCTURE_TYPE27753: if (!((t60800.value.structure_type27753)==(t60801.value.structure_type27753))) goto l9486; break; case STRUCTURE_TYPE27756: if (!((t60800.value.structure_type27756)==(t60801.value.structure_type27756))) goto l9486; break; case STRUCTURE_TYPE27761: if (!((t60800.value.structure_type27761)==(t60801.value.structure_type27761))) goto l9486; break; case STRUCTURE_TYPE27769: if (!((t60800.value.structure_type27769)==(t60801.value.structure_type27769))) goto l9486; break; case STRUCTURE_TYPE27776: if (!((t60800.value.structure_type27776)==(t60801.value.structure_type27776))) goto l9486; break; case STRUCTURE_TYPE27779: if (!((t60800.value.structure_type27779)==(t60801.value.structure_type27779))) goto l9486; break; case STRUCTURE_TYPE27858: if (!((t60800.value.structure_type27858)==(t60801.value.structure_type27858))) goto l9486; break; case STRING_TYPE: if (!((t60800.value.string_type)==(t60801.value.string_type))) goto l9486; break; case HEADED_VECTOR_TYPE27896: if (!((t60800.value.headed_vector_type27896)==(t60801.value.headed_vector_type27896))) goto l9486; break; case EXTERNAL_SYMBOL_TYPE: if (!((t60800.value.external_symbol_type)==(t60801.value.external_symbol_type))) goto l9486; break; case STRUCTURE_TYPE27908: if (!((t60800.value.structure_type27908)==(t60801.value.structure_type27908))) goto l9486; break; default:;} /* x109822 */ /* x109821 */ goto l9487; l9486: /* x109838 */ /* x109837 */ /* x109836 stalin.sc:11692:408362 */ /* x109835 stalin.sc:11693:408375 */ /* x109827 stalin.sc:11693:408381 */ /* x109826 stalin.sc:11693:408393 */ t60805 = a24495; /* x109825 stalin.sc:11693:408389 */ t60804 = a24496; /* x109824 stalin.sc:11693:408382 */ t60807.tag = STRUCTURE_TYPE24753; t60807.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t60807.value.structure_type24753)==NULL) {backtrace("stalin.sc", 11693, 408381); out_of_memory_error();} t60807.value.structure_type24753->s0 = t60805; t60807.value.structure_type24753->s1.tag = NULL_TYPE; t60806 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t60806==NULL) {backtrace("stalin.sc", 11693, 408381); out_of_memory_error();} t60806->s0 = t60804; t60806->s1 = t60807; t60802 = f26254(t60806); /* x109834 stalin.sc:11693:408398 */ /* x109829 stalin.sc:11693:408407 */ t60808 = a24496; /* x109833 stalin.sc:11693:408411 */ /* x109831 stalin.sc:11693:408420 */ t60811 = a24495; /* x109832 stalin.sc:11693:408424 */ t60812 = a24481; /* x109830 stalin.sc:11693:408412 */ /* MOVE: branching squeezed to general */ if (t60812>=((struct structure_type24753 *)VALUE_OFFSET)) {t60813.tag = STRUCTURE_TYPE24753; t60813.value.structure_type24753 = t60812;} else t60813.tag = (unsigned)t60812; t60809 = f1194(t60811, t60813); /* x109828 stalin.sc:11693:408399 */ t60810 = *((struct w49 *)(&t60809)); t60803 = f1194(t60808, t60810); /* x269433 stalin.sc:11693:408376 */ a24481 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a24481==NULL) {backtrace("stalin.sc", 11693, 408375); out_of_memory_error();} a24481->s0 = t60802; a24481->s1 = *((struct w49 *)(&t60803)); l9487: /* x109816 */ t60794 = p12317; p12318 = t60794; /* x109815 */ /* x109814 stalin.sc:11688:408169 */ /* x109813 stalin.sc:11688:408175 */ t60796 = p12318->a24493; /* x109812 stalin.sc:11688:408170 */ a35563 = t60796; /* x273609 */ /* x273608 */ t60797 = a35563; /* x273607 */ if (!((t60797.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29712]"); structure_ref_error();} t60795 = t60797.value.structure_type24753->s1; /* x109811 */ a24493 = t60795; goto h12315;} /* [inside LOOP 12307] */ struct structure_type24753 *f12307(struct w49 a24487) {struct w49 a37402; /* S */ struct w49 t60824; struct w49 t60825; struct w49 t60826; /* x109773 stalin.sc:11699:408538 */ /* x109772 stalin.sc:11699:408547 */ /* x109771 stalin.sc:11699:408578 */ t60825 = a24487; /* x109770 stalin.sc:11699:408548 */ a37402 = t60825; /* x282277 */ /* x282276 */ t60826 = a37402; /* x282275 */ if (!((t60826.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ELEMENT[6309] 32319]"); structure_ref_error();} t60824 = t60826.value.structure_type27669->s0; /* x109769 stalin.sc:11699:408539 */ return f8162(t60824);} /* [inside LOOP 12303] */ void f12303(struct p12302 *p12303, struct w49 a24485) {struct w49 a37398; /* S */ struct w49 a37401; /* S */ struct structure_type24753 *t60827; struct w49 t60828; struct w49 t60829; struct w49 t60830; struct w49 t60831; struct w49 t60832; struct p12302 *t60833; struct w49 t60834; struct w49 t60835; struct w49 t60836; struct w49 t60837; struct p12302 *p12305; /* x109761 stalin.sc:11704:408639 */ /* x109746 stalin.sc:11704:408647 */ /* x109744 stalin.sc:11704:408660 */ /* x109743 stalin.sc:11704:408669 */ /* x109742 stalin.sc:11704:408700 */ t60831 = a24485; /* x109741 stalin.sc:11704:408670 */ a37401 = t60831; /* x282273 */ /* x282272 */ t60832 = a37401; /* x282271 */ if (!((t60832.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ELEMENT[6309] 32318]"); structure_ref_error();} t60830 = t60832.value.structure_type27669->s0; /* x109740 stalin.sc:11704:408661 */ t60827 = f8162(t60830); /* x109745 stalin.sc:11704:408704 */ t60828 = p12303->a24484; /* x109739 stalin.sc:11704:408648 */ /* MOVE: branching squeezed to general */ if (t60827>=((struct structure_type24753 *)VALUE_OFFSET)) {t60829.tag = STRUCTURE_TYPE24753; t60829.value.structure_type24753 = t60827;} else t60829.tag = (unsigned)t60827; if (f12326(t60829, t60828)==FALSE_TYPE) goto l9489; /* x109748 */ /* x109747 */ return; l9489: /* x109760 */ /* x109759 */ t60833 = p12303; p12305 = t60833; /* x109758 */ /* x109757 stalin.sc:11705:408712 */ /* x109755 stalin.sc:11705:408726 */ /* x109754 stalin.sc:11705:408757 */ t60836 = a24485; /* x109753 stalin.sc:11705:408727 */ a37398 = t60836; /* x282261 */ /* x282260 */ t60837 = a37398; /* x282259 */ if (!((t60837.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ELEMENT[6309] 32315]"); structure_ref_error();} t60834 = t60837.value.structure_type27669->s0; /* x109756 stalin.sc:11705:408760 */ t60835 = p12305->a24484; /* x109752 stalin.sc:11705:408713 */ f8181(t60834, t60835); /* x109751 */ /* x109750 stalin.sc:11706:408768 */ /* x109749 stalin.sc:11706:408781 */ a24437 = TRUE_TYPE; return;} /* [inside LOOP 12301] */ void f12301(struct w49 a24483) {struct w49 a24484; /* US1 */ struct w49 t60838; struct p12302 *t60839; struct w49 t60840; struct w36108 t60841; struct w49 t60842; struct structure_type24753 *t60843; struct structure_type24753 *t60844; unsigned t60845; struct w49 t60846; struct w228463 t60847; struct w49 t60848; struct w36270 t60849; struct w49 t60850; struct structure_type24753 *t60851; struct p12302 *e12302; /* x109779 stalin.sc:11697:408487 */ /* x109778 stalin.sc:11697:408498 */ /* x109767 stalin.sc:11698:408510 */ /* x109776 stalin.sc:11699:408521 */ /* x109775 stalin.sc:11700:408592 */ t60848 = a24483; /* x109774 stalin.sc:11699:408526 */ /* x109768 stalin.sc:11699:408522 */ t60849.tag = NATIVE_PROCEDURE_TYPE15938; t60850 = t60848; t60851 = (struct structure_type24753 *)NULL_TYPE; t60844 = f27731(t60849, t60850, t60851); /* x109777 stalin.sc:11701:408600 */ /* x109766 stalin.sc:11697:408499 */ t60845 = NATIVE_PROCEDURE_TYPE15925; /* MOVE: branching squeezed to general */ if (t60844>=((struct structure_type24753 *)VALUE_OFFSET)) {t60846.tag = STRUCTURE_TYPE24753; t60846.value.structure_type24753 = t60844;} else t60846.tag = (unsigned)t60844; t60847.tag = NULL_TYPE; t60838 = f1006(t60845, t60846, t60847); /* x109765 */ a24484 = t60838; e12302 = (struct p12302 *)alloca(sizeof(struct p12302)); if (e12302==NULL) {backtrace_internal("[inside LOOP 12301]"); out_of_memory_error();} e12302->a24484 = a24484; /* x109764 stalin.sc:11702:408614 */ /* x109763 stalin.sc:11707:408788 */ t60840 = a24483; /* x109762 stalin.sc:11703:408625 */ t60839 = e12302; /* x109738 stalin.sc:11702:408615 */ t60841.tag = NATIVE_PROCEDURE_TYPE15945; t60841.value.native_procedure_type15945 = t60839; t60842 = t60840; t60843 = (struct structure_type24753 *)NULL_TYPE; f27755(t60841, t60842, t60843); return;} /* [inside LOOP 12282] */ void f12282(struct w49 a24470) {struct w12224 a24471; /* US */ struct w49 a24475; /* US */ struct w49 a24477; /* US2 */ struct w49 a24478; /* US1 */ struct w49 a35560; /* PAIR */ struct w49 a35561; /* PAIR */ struct w12224 a35562; /* PAIR */ struct w12224 t60852; struct w12224 t60853; struct w49 t60854; struct w12224 t60855; struct w12224 t60856; struct w12224 t60857; struct w49 t60858; struct w49 t60859; struct w49 t60860; struct p12289 *t60861; struct p12289 *t60862; struct w49 t60863; struct w49 t60864; struct w49 t60865; struct w49 t60866; struct w49 t60867; struct w49 t60868; struct w49 t60869; struct w49 t60870; struct w12224 t60871; struct w49 t60872; struct w49 t60873; struct structure_type24753 *t60874; struct w49 t60875; struct w49 t60876; struct w12224 t60877; struct w49 t60878; struct w49 t60879; struct structure_type24753 *t60880; struct w49 t60881; struct p12289 *t60882; struct structure_type24753 *t60883; struct w227506 t60884; struct w49 t60885; struct p12289 *t60886; struct structure_type24753 *t60887; struct w227506 t60888; struct w49 t60889; struct w49 t60890; struct w211061 t60891; struct p12289 *e12289; struct p12289 *p12291; struct p12289 *p12292; /* x109726 stalin.sc:11660:407228 */ /* x109725 stalin.sc:11660:407238 */ /* x109723 stalin.sc:11660:407252 */ /* x109724 stalin.sc:11660:407272 */ t60890 = a24470; /* x109722 stalin.sc:11660:407239 */ t60891.tag = NATIVE_PROCEDURE_TYPE7790; t60852 = f8172(t60891, t60890); /* x109721 */ a24471 = t60852; /* x109720 stalin.sc:11661:407284 */ /* x109642 stalin.sc:11661:407292 */ /* x109641 stalin.sc:11661:407296 */ /* x109640 stalin.sc:11661:407303 */ t60853 = a24471; /* x269441 stalin.sc:11661:407297 */ if ((t60853.tag)==NULL_TYPE) goto l9490; /* x109636 */ /* x109635 stalin.sc:11661:407314 */ /* x109634 stalin.sc:11661:407320 */ t60855 = a24471; /* x109633 stalin.sc:11661:407315 */ a35562 = t60855; /* x273605 */ /* x273604 */ t60856 = a35562; /* x273603 */ if (!((t60856.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29711]"); structure_ref_error();} t60854 = t60856.value.structure_type24753->s1; /* x269442 stalin.sc:11661:407308 */ if (!((t60854.tag)==NULL_TYPE)) goto l9491; l9490: /* x109644 */ /* x109643 */ return; l9491: /* x109719 */ /* x109718 */ /* x109717 stalin.sc:11662:407327 */ /* x109716 */ /* x109715 */ /* x109714 */ /* x109713 */ /* x109712 */ /* x109711 */ /* x109648 */ /* x109647 */ /* x109646 stalin.sc:11662:407336 */ t60857 = a24471; /* x109645 */ a24475 = *((struct w49 *)(&t60857)); h12289: e12289 = (struct p12289 *)alloca(sizeof(struct p12289)); if (e12289==NULL) {backtrace_internal("[inside LOOP 12287]"); out_of_memory_error();} e12289->a24475 = a24475; /* x109710 */ /* x109653 stalin.sc:11662:407352 */ /* x109652 stalin.sc:11662:407359 */ /* x109651 stalin.sc:11662:407365 */ t60859 = e12289->a24475; /* x109650 stalin.sc:11662:407360 */ a35561 = t60859; /* x273601 */ /* x273600 */ t60860 = a35561; /* x273599 */ if (!((t60860.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29710]"); structure_ref_error();} t60858 = t60860.value.structure_type24753->s1; /* x269440 stalin.sc:11662:407353 */ if (!((t60858.tag)==NULL_TYPE)) goto l9494; /* x109655 */ /* x109654 */ return; l9494: /* x109709 */ /* x109708 */ t60861 = e12289; p12291 = t60861; /* x109707 */ /* x109706 stalin.sc:11663:407373 */ /* x109695 stalin.sc:11664:407449 */ /* x109693 stalin.sc:11664:407458 */ t60882 = p12291; /* x109694 stalin.sc:11664:407496 */ t60883 = a24463; /* x109686 stalin.sc:11664:407450 */ t60884.tag = NATIVE_PROCEDURE_TYPE16275; t60884.value.native_procedure_type16275 = t60882; /* MOVE: branching squeezed to general */ if (t60883>=((struct structure_type24753 *)VALUE_OFFSET)) {t60885.tag = STRUCTURE_TYPE24753; t60885.value.structure_type24753 = t60883;} else t60885.tag = (unsigned)t60883; t60866 = f1314(t60884, t60885); /* x109705 stalin.sc:11663:407384 */ /* x109703 stalin.sc:11663:407393 */ t60886 = p12291; /* x109704 stalin.sc:11663:407430 */ t60887 = a24463; /* x109696 stalin.sc:11663:407385 */ t60888.tag = NATIVE_PROCEDURE_TYPE16274; t60888.value.native_procedure_type16274 = t60886; /* MOVE: branching squeezed to general */ if (t60887>=((struct structure_type24753 *)VALUE_OFFSET)) {t60889.tag = STRUCTURE_TYPE24753; t60889.value.structure_type24753 = t60887;} else t60889.tag = (unsigned)t60887; t60867 = f1314(t60888, t60889); /* x109685 */ a24477 = t60866; a24478 = t60867; /* x109684 stalin.sc:11665:407506 */ /* x109665 stalin.sc:11665:407514 */ /* x109663 stalin.sc:11665:407519 */ t60868 = a24478; /* x109664 stalin.sc:11665:407523 */ t60869 = a24477; /* x269439 stalin.sc:11665:407515 */ /* EQ: dispatching general to general */ if (!((t60868.tag)==(t60869.tag))) goto l9496; switch (t60868.tag) {case FIXNUM_TYPE: if (!((t60868.value.fixnum_type)==(t60869.value.fixnum_type))) goto l9496; break; case FLONUM_TYPE: if (!((t60868.value.flonum_type)==(t60869.value.flonum_type))) goto l9496; break; case INPUT_PORT_TYPE: if (!((t60868.value.input_port_type)==(t60869.value.input_port_type))) goto l9496; break; case OUTPUT_PORT_TYPE: if (!((t60868.value.output_port_type)==(t60869.value.output_port_type))) goto l9496; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t60868.value.native_procedure_type15963)==(t60869.value.native_procedure_type15963))) goto l9496; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t60868.value.native_procedure_type19067)==(t60869.value.native_procedure_type19067))) goto l9496; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t60868.value.native_procedure_type19068)==(t60869.value.native_procedure_type19068))) goto l9496; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t60868.value.native_procedure_type22459)==(t60869.value.native_procedure_type22459))) goto l9496; break; case STRUCTURE_TYPE24753: if (!((t60868.value.structure_type24753)==(t60869.value.structure_type24753))) goto l9496; break; case STRUCTURE_TYPE24757: if (!((t60868.value.structure_type24757)==(t60869.value.structure_type24757))) goto l9496; break; case STRUCTURE_TYPE27501: if (!((t60868.value.structure_type27501)==(t60869.value.structure_type27501))) goto l9496; break; case STRUCTURE_TYPE27510: if (!((t60868.value.structure_type27510)==(t60869.value.structure_type27510))) goto l9496; break; case STRUCTURE_TYPE27621: if (!((t60868.value.structure_type27621)==(t60869.value.structure_type27621))) goto l9496; break; case STRUCTURE_TYPE27650: if (!((t60868.value.structure_type27650)==(t60869.value.structure_type27650))) goto l9496; break; case STRUCTURE_TYPE27669: if (!((t60868.value.structure_type27669)==(t60869.value.structure_type27669))) goto l9496; break; case STRUCTURE_TYPE27673: if (!((t60868.value.structure_type27673)==(t60869.value.structure_type27673))) goto l9496; break; case STRUCTURE_TYPE27692: if (!((t60868.value.structure_type27692)==(t60869.value.structure_type27692))) goto l9496; break; case STRUCTURE_TYPE27694: if (!((t60868.value.structure_type27694)==(t60869.value.structure_type27694))) goto l9496; break; case STRUCTURE_TYPE27698: if (!((t60868.value.structure_type27698)==(t60869.value.structure_type27698))) goto l9496; break; case STRUCTURE_TYPE27745: if (!((t60868.value.structure_type27745)==(t60869.value.structure_type27745))) goto l9496; break; case STRUCTURE_TYPE27747: if (!((t60868.value.structure_type27747)==(t60869.value.structure_type27747))) goto l9496; break; case STRUCTURE_TYPE27750: if (!((t60868.value.structure_type27750)==(t60869.value.structure_type27750))) goto l9496; break; case STRUCTURE_TYPE27753: if (!((t60868.value.structure_type27753)==(t60869.value.structure_type27753))) goto l9496; break; case STRUCTURE_TYPE27756: if (!((t60868.value.structure_type27756)==(t60869.value.structure_type27756))) goto l9496; break; case STRUCTURE_TYPE27761: if (!((t60868.value.structure_type27761)==(t60869.value.structure_type27761))) goto l9496; break; case STRUCTURE_TYPE27769: if (!((t60868.value.structure_type27769)==(t60869.value.structure_type27769))) goto l9496; break; case STRUCTURE_TYPE27776: if (!((t60868.value.structure_type27776)==(t60869.value.structure_type27776))) goto l9496; break; case STRUCTURE_TYPE27779: if (!((t60868.value.structure_type27779)==(t60869.value.structure_type27779))) goto l9496; break; case STRUCTURE_TYPE27858: if (!((t60868.value.structure_type27858)==(t60869.value.structure_type27858))) goto l9496; break; case STRING_TYPE: if (!((t60868.value.string_type)==(t60869.value.string_type))) goto l9496; break; case HEADED_VECTOR_TYPE27896: if (!((t60868.value.headed_vector_type27896)==(t60869.value.headed_vector_type27896))) goto l9496; break; case EXTERNAL_SYMBOL_TYPE: if (!((t60868.value.external_symbol_type)==(t60869.value.external_symbol_type))) goto l9496; break; case STRUCTURE_TYPE27908: if (!((t60868.value.structure_type27908)==(t60869.value.structure_type27908))) goto l9496; break; default:;} /* x109667 */ /* x109666 */ goto l9497; l9496: /* x109683 */ /* x109682 */ /* x109681 stalin.sc:11666:407532 */ /* x109680 stalin.sc:11667:407545 */ /* x109672 stalin.sc:11667:407551 */ /* x109671 stalin.sc:11667:407563 */ t60873 = a24477; /* x109670 stalin.sc:11667:407559 */ t60872 = a24478; /* x109669 stalin.sc:11667:407552 */ t60875.tag = STRUCTURE_TYPE24753; t60875.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t60875.value.structure_type24753)==NULL) {backtrace("stalin.sc", 11667, 407551); out_of_memory_error();} t60875.value.structure_type24753->s0 = t60873; t60875.value.structure_type24753->s1.tag = NULL_TYPE; t60874 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t60874==NULL) {backtrace("stalin.sc", 11667, 407551); out_of_memory_error();} t60874->s0 = t60872; t60874->s1 = t60875; t60870 = f26254(t60874); /* x109679 stalin.sc:11667:407568 */ /* x109674 stalin.sc:11667:407577 */ t60876 = a24478; /* x109678 stalin.sc:11667:407581 */ /* x109676 stalin.sc:11667:407590 */ t60879 = a24477; /* x109677 stalin.sc:11667:407594 */ t60880 = a24463; /* x109675 stalin.sc:11667:407582 */ /* MOVE: branching squeezed to general */ if (t60880>=((struct structure_type24753 *)VALUE_OFFSET)) {t60881.tag = STRUCTURE_TYPE24753; t60881.value.structure_type24753 = t60880;} else t60881.tag = (unsigned)t60880; t60877 = f1194(t60879, t60881); /* x109673 stalin.sc:11667:407569 */ t60878 = *((struct w49 *)(&t60877)); t60871 = f1194(t60876, t60878); /* x269438 stalin.sc:11667:407546 */ a24463 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a24463==NULL) {backtrace("stalin.sc", 11667, 407545); out_of_memory_error();} a24463->s0 = t60870; a24463->s1 = *((struct w49 *)(&t60871)); l9497: /* x109661 */ t60862 = p12291; p12292 = t60862; /* x109660 */ /* x109659 stalin.sc:11662:407339 */ /* x109658 stalin.sc:11662:407345 */ t60864 = p12292->a24475; /* x109657 stalin.sc:11662:407340 */ a35560 = t60864; /* x273597 */ /* x273596 */ t60865 = a35560; /* x273595 */ if (!((t60865.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29709]"); structure_ref_error();} t60863 = t60865.value.structure_type24753->s1; /* x109656 */ a24475 = t60863; goto h12289;} /* [inside LOOP 12281] */ struct structure_type24753 *f12281(struct w49 a24469) {struct w49 a37519; /* S */ struct w49 t60892; struct w49 t60893; struct w49 t60894; /* x109618 stalin.sc:11673:407708 */ /* x109617 stalin.sc:11673:407717 */ /* x109616 stalin.sc:11673:407745 */ t60893 = a24469; /* x109615 stalin.sc:11673:407718 */ a37519 = t60893; /* x282745 */ /* x282744 */ t60894 = a37519; /* x282743 */ if (!((t60894.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32436]"); structure_ref_error();} t60892 = t60894.value.structure_type27761->s0; /* x109614 stalin.sc:11673:407709 */ return f8162(t60892);} /* [inside LOOP 12277] */ void f12277(struct p12276 *p12277, struct w49 a24467) {struct w49 a37504; /* S */ struct w49 a37518; /* S */ struct structure_type24753 *t60895; struct w49 t60896; struct w49 t60897; struct w49 t60898; struct w49 t60899; struct w49 t60900; struct p12276 *t60901; struct w49 t60902; struct w49 t60903; struct w49 t60904; struct w49 t60905; struct p12276 *p12279; /* x109606 stalin.sc:11678:407806 */ /* x109591 stalin.sc:11678:407814 */ /* x109589 stalin.sc:11678:407827 */ /* x109588 stalin.sc:11678:407836 */ /* x109587 stalin.sc:11678:407864 */ t60899 = a24467; /* x109586 stalin.sc:11678:407837 */ a37518 = t60899; /* x282741 */ /* x282740 */ t60900 = a37518; /* x282739 */ if (!((t60900.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32435]"); structure_ref_error();} t60898 = t60900.value.structure_type27761->s0; /* x109585 stalin.sc:11678:407828 */ t60895 = f8162(t60898); /* x109590 stalin.sc:11678:407868 */ t60896 = p12277->a24466; /* x109584 stalin.sc:11678:407815 */ /* MOVE: branching squeezed to general */ if (t60895>=((struct structure_type24753 *)VALUE_OFFSET)) {t60897.tag = STRUCTURE_TYPE24753; t60897.value.structure_type24753 = t60895;} else t60897.tag = (unsigned)t60895; if (f12326(t60897, t60896)==FALSE_TYPE) goto l9499; /* x109593 */ /* x109592 */ return; l9499: /* x109605 */ /* x109604 */ t60901 = p12277; p12279 = t60901; /* x109603 */ /* x109602 stalin.sc:11679:407876 */ /* x109600 stalin.sc:11679:407890 */ /* x109599 stalin.sc:11679:407918 */ t60904 = a24467; /* x109598 stalin.sc:11679:407891 */ a37504 = t60904; /* x282685 */ /* x282684 */ t60905 = a37504; /* x282683 */ if (!((t60905.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32421]"); structure_ref_error();} t60902 = t60905.value.structure_type27761->s0; /* x109601 stalin.sc:11679:407921 */ t60903 = p12279->a24466; /* x109597 stalin.sc:11679:407877 */ f8181(t60902, t60903); /* x109596 */ /* x109595 stalin.sc:11680:407929 */ /* x109594 stalin.sc:11680:407942 */ a24437 = TRUE_TYPE; return;} /* [inside LOOP 12275] */ void f12275(struct w49 a24465) {struct w49 a24466; /* US1 */ struct w49 t60906; struct p12276 *t60907; struct w49 t60908; struct w36108 t60909; struct w49 t60910; struct structure_type24753 *t60911; struct structure_type24753 *t60912; unsigned t60913; struct w49 t60914; struct w228463 t60915; struct w49 t60916; struct w36270 t60917; struct w49 t60918; struct structure_type24753 *t60919; struct p12276 *e12276; /* x109624 stalin.sc:11671:407657 */ /* x109623 stalin.sc:11671:407668 */ /* x109612 stalin.sc:11672:407680 */ /* x109621 stalin.sc:11673:407691 */ /* x109620 stalin.sc:11674:407759 */ t60916 = a24465; /* x109619 stalin.sc:11673:407696 */ /* x109613 stalin.sc:11673:407692 */ t60917.tag = NATIVE_PROCEDURE_TYPE15951; t60918 = t60916; t60919 = (struct structure_type24753 *)NULL_TYPE; t60912 = f27731(t60917, t60918, t60919); /* x109622 stalin.sc:11675:407767 */ /* x109611 stalin.sc:11671:407669 */ t60913 = NATIVE_PROCEDURE_TYPE15925; /* MOVE: branching squeezed to general */ if (t60912>=((struct structure_type24753 *)VALUE_OFFSET)) {t60914.tag = STRUCTURE_TYPE24753; t60914.value.structure_type24753 = t60912;} else t60914.tag = (unsigned)t60912; t60915.tag = NULL_TYPE; t60906 = f1006(t60913, t60914, t60915); /* x109610 */ a24466 = t60906; e12276 = (struct p12276 *)alloca(sizeof(struct p12276)); if (e12276==NULL) {backtrace_internal("[inside LOOP 12275]"); out_of_memory_error();} e12276->a24466 = a24466; /* x109609 stalin.sc:11676:407781 */ /* x109608 stalin.sc:11681:407949 */ t60908 = a24465; /* x109607 stalin.sc:11677:407792 */ t60907 = e12276; /* x109583 stalin.sc:11676:407782 */ t60909.tag = NATIVE_PROCEDURE_TYPE15953; t60909.value.native_procedure_type15953 = t60907; t60910 = t60908; t60911 = (struct structure_type24753 *)NULL_TYPE; f27755(t60909, t60910, t60911); return;} /* [inside LOOP 12256] */ void f12256(struct p12245 *p12256, struct w49 a24452) {struct w12224 a24453; /* US */ struct w49 a24457; /* US */ struct w49 a24459; /* US2 */ struct w49 a24460; /* US1 */ struct w49 a35557; /* PAIR */ struct w49 a35558; /* PAIR */ struct w12224 a35559; /* PAIR */ struct p12245 *t60920; struct w12224 t60921; struct w12224 t60922; struct w49 t60923; struct w12224 t60924; struct w12224 t60925; struct p12245 *t60926; struct p12245 *t60927; struct p12245 *t60928; struct p12245 *t60929; struct w12224 t60930; struct w49 t60931; struct w49 t60932; struct w49 t60933; struct p12263 *t60934; struct p12263 *t60935; struct p12245 *t60936; struct w49 t60937; struct w49 t60938; struct w49 t60939; struct p12245 *t60940; struct w49 t60941; struct w49 t60942; struct w49 t60943; struct w49 t60944; struct p12245 *t60945; struct w49 t60946; struct w12224 t60947; struct w49 t60948; struct w49 t60949; struct structure_type24753 *t60950; struct w49 t60951; struct w49 t60952; struct w12224 t60953; struct w49 t60954; struct w49 t60955; struct structure_type24753 *t60956; struct w49 t60957; struct p12263 *t60958; struct structure_type24753 *t60959; struct w227506 t60960; struct w49 t60961; struct p12263 *t60962; struct structure_type24753 *t60963; struct w227506 t60964; struct w49 t60965; struct p7717 *t60966; struct w49 t60967; struct w211061 t60968; struct w49 t60969; struct p12263 *e12263; struct p12245 *p12257; struct p12245 *p12260; struct p12245 *p12261; struct p12245 *p12262; struct p12245 *p12263; struct p12263 *p12265; struct p12263 *p12266; struct p12245 *p12267; struct p12245 *p12269; /* x109558 stalin.sc:11626:406187 */ /* x109557 stalin.sc:11626:406197 */ /* x109555 stalin.sc:11626:406211 */ /* x109554 stalin.sc:11626:406234 */ t60969 = p12256->p12244->a24441; /* x109553 stalin.sc:11626:406212 */ t60966 = f7717(t60969); /* x109556 stalin.sc:11626:406237 */ t60967 = a24452; /* x109552 stalin.sc:11626:406198 */ t60968.tag = NATIVE_PROCEDURE_TYPE15963; t60968.value.native_procedure_type15963 = t60966; t60921 = f8172(t60968, t60967); /* x109551 */ t60920 = p12256; p12257 = t60920; a24453 = t60921; /* x109550 stalin.sc:11627:406244 */ /* x109472 stalin.sc:11627:406252 */ /* x109471 stalin.sc:11627:406256 */ /* x109470 stalin.sc:11627:406263 */ t60922 = a24453; /* x269446 stalin.sc:11627:406257 */ if ((t60922.tag)==NULL_TYPE) goto l9500; /* x109466 */ /* x109465 stalin.sc:11627:406274 */ /* x109464 stalin.sc:11627:406280 */ t60924 = a24453; /* x109463 stalin.sc:11627:406275 */ a35559 = t60924; /* x273593 */ /* x273592 */ t60925 = a35559; /* x273591 */ if (!((t60925.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29708]"); structure_ref_error();} t60923 = t60925.value.structure_type24753->s1; /* x269447 stalin.sc:11627:406268 */ if (!((t60923.tag)==NULL_TYPE)) goto l9501; l9500: /* x109474 */ /* x109473 */ return; l9501: /* x109549 */ /* x109548 */ t60926 = p12257; p12260 = t60926; /* x109547 stalin.sc:11628:406289 */ /* x109546 */ /* x109545 */ /* x109544 */ t60927 = p12260; p12261 = t60927; /* x109543 */ /* x109542 */ /* x109541 */ /* x109478 */ t60928 = p12261; p12262 = t60928; /* x109477 */ /* x109476 stalin.sc:11628:406298 */ t60930 = a24453; /* x109475 */ t60929 = p12262; p12263 = t60929; a24457 = *((struct w49 *)(&t60930)); h12263: e12263 = (struct p12263 *)alloca(sizeof(struct p12263)); if (e12263==NULL) {backtrace_internal("[inside LOOP 12261]"); out_of_memory_error();} e12263->p12245 = p12263; e12263->a24457 = a24457; /* x109540 */ /* x109483 stalin.sc:11628:406314 */ /* x109482 stalin.sc:11628:406321 */ /* x109481 stalin.sc:11628:406327 */ t60932 = e12263->a24457; /* x109480 stalin.sc:11628:406322 */ a35558 = t60932; /* x273589 */ /* x273588 */ t60933 = a35558; /* x273587 */ if (!((t60933.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29707]"); structure_ref_error();} t60931 = t60933.value.structure_type24753->s1; /* x269445 stalin.sc:11628:406315 */ if (!((t60931.tag)==NULL_TYPE)) goto l9504; /* x109485 */ /* x109484 */ return; l9504: /* x109539 */ /* x109538 */ t60934 = e12263; p12265 = t60934; /* x109537 */ /* x109536 stalin.sc:11629:406337 */ /* x109525 stalin.sc:11630:406408 */ /* x109523 stalin.sc:11630:406417 */ t60958 = p12265; /* x109524 stalin.sc:11630:406455 */ t60959 = p12265->p12245->a24442; /* x109516 stalin.sc:11630:406409 */ t60960.tag = NATIVE_PROCEDURE_TYPE16290; t60960.value.native_procedure_type16290 = t60958; /* MOVE: branching squeezed to general */ if (t60959>=((struct structure_type24753 *)VALUE_OFFSET)) {t60961.tag = STRUCTURE_TYPE24753; t60961.value.structure_type24753 = t60959;} else t60961.tag = (unsigned)t60959; t60941 = f1314(t60960, t60961); /* x109535 stalin.sc:11629:406348 */ /* x109533 stalin.sc:11629:406357 */ t60962 = p12265; /* x109534 stalin.sc:11629:406394 */ t60963 = p12265->p12245->a24442; /* x109526 stalin.sc:11629:406349 */ t60964.tag = NATIVE_PROCEDURE_TYPE16289; t60964.value.native_procedure_type16289 = t60962; /* MOVE: branching squeezed to general */ if (t60963>=((struct structure_type24753 *)VALUE_OFFSET)) {t60965.tag = STRUCTURE_TYPE24753; t60965.value.structure_type24753 = t60963;} else t60965.tag = (unsigned)t60963; t60942 = f1314(t60964, t60965); /* x109515 */ t60940 = p12265->p12245; p12267 = t60940; a24459 = t60941; a24460 = t60942; /* x109514 stalin.sc:11631:406467 */ /* x109495 stalin.sc:11631:406475 */ /* x109493 stalin.sc:11631:406480 */ t60943 = a24460; /* x109494 stalin.sc:11631:406484 */ t60944 = a24459; /* x269444 stalin.sc:11631:406476 */ /* EQ: dispatching general to general */ if (!((t60943.tag)==(t60944.tag))) goto l9506; switch (t60943.tag) {case FIXNUM_TYPE: if (!((t60943.value.fixnum_type)==(t60944.value.fixnum_type))) goto l9506; break; case FLONUM_TYPE: if (!((t60943.value.flonum_type)==(t60944.value.flonum_type))) goto l9506; break; case INPUT_PORT_TYPE: if (!((t60943.value.input_port_type)==(t60944.value.input_port_type))) goto l9506; break; case OUTPUT_PORT_TYPE: if (!((t60943.value.output_port_type)==(t60944.value.output_port_type))) goto l9506; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t60943.value.native_procedure_type15963)==(t60944.value.native_procedure_type15963))) goto l9506; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t60943.value.native_procedure_type19067)==(t60944.value.native_procedure_type19067))) goto l9506; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t60943.value.native_procedure_type19068)==(t60944.value.native_procedure_type19068))) goto l9506; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t60943.value.native_procedure_type22459)==(t60944.value.native_procedure_type22459))) goto l9506; break; case STRUCTURE_TYPE24753: if (!((t60943.value.structure_type24753)==(t60944.value.structure_type24753))) goto l9506; break; case STRUCTURE_TYPE24757: if (!((t60943.value.structure_type24757)==(t60944.value.structure_type24757))) goto l9506; break; case STRUCTURE_TYPE27501: if (!((t60943.value.structure_type27501)==(t60944.value.structure_type27501))) goto l9506; break; case STRUCTURE_TYPE27510: if (!((t60943.value.structure_type27510)==(t60944.value.structure_type27510))) goto l9506; break; case STRUCTURE_TYPE27621: if (!((t60943.value.structure_type27621)==(t60944.value.structure_type27621))) goto l9506; break; case STRUCTURE_TYPE27650: if (!((t60943.value.structure_type27650)==(t60944.value.structure_type27650))) goto l9506; break; case STRUCTURE_TYPE27669: if (!((t60943.value.structure_type27669)==(t60944.value.structure_type27669))) goto l9506; break; case STRUCTURE_TYPE27673: if (!((t60943.value.structure_type27673)==(t60944.value.structure_type27673))) goto l9506; break; case STRUCTURE_TYPE27692: if (!((t60943.value.structure_type27692)==(t60944.value.structure_type27692))) goto l9506; break; case STRUCTURE_TYPE27694: if (!((t60943.value.structure_type27694)==(t60944.value.structure_type27694))) goto l9506; break; case STRUCTURE_TYPE27698: if (!((t60943.value.structure_type27698)==(t60944.value.structure_type27698))) goto l9506; break; case STRUCTURE_TYPE27745: if (!((t60943.value.structure_type27745)==(t60944.value.structure_type27745))) goto l9506; break; case STRUCTURE_TYPE27747: if (!((t60943.value.structure_type27747)==(t60944.value.structure_type27747))) goto l9506; break; case STRUCTURE_TYPE27750: if (!((t60943.value.structure_type27750)==(t60944.value.structure_type27750))) goto l9506; break; case STRUCTURE_TYPE27753: if (!((t60943.value.structure_type27753)==(t60944.value.structure_type27753))) goto l9506; break; case STRUCTURE_TYPE27756: if (!((t60943.value.structure_type27756)==(t60944.value.structure_type27756))) goto l9506; break; case STRUCTURE_TYPE27761: if (!((t60943.value.structure_type27761)==(t60944.value.structure_type27761))) goto l9506; break; case STRUCTURE_TYPE27769: if (!((t60943.value.structure_type27769)==(t60944.value.structure_type27769))) goto l9506; break; case STRUCTURE_TYPE27776: if (!((t60943.value.structure_type27776)==(t60944.value.structure_type27776))) goto l9506; break; case STRUCTURE_TYPE27779: if (!((t60943.value.structure_type27779)==(t60944.value.structure_type27779))) goto l9506; break; case STRUCTURE_TYPE27858: if (!((t60943.value.structure_type27858)==(t60944.value.structure_type27858))) goto l9506; break; case STRING_TYPE: if (!((t60943.value.string_type)==(t60944.value.string_type))) goto l9506; break; case HEADED_VECTOR_TYPE27896: if (!((t60943.value.headed_vector_type27896)==(t60944.value.headed_vector_type27896))) goto l9506; break; case EXTERNAL_SYMBOL_TYPE: if (!((t60943.value.external_symbol_type)==(t60944.value.external_symbol_type))) goto l9506; break; case STRUCTURE_TYPE27908: if (!((t60943.value.structure_type27908)==(t60944.value.structure_type27908))) goto l9506; break; default:;} /* x109497 */ /* x109496 */ goto l9507; l9506: /* x109513 */ /* x109512 */ t60945 = p12267; p12269 = t60945; /* x109511 stalin.sc:11632:406495 */ /* x109510 stalin.sc:11633:406510 */ /* x109502 stalin.sc:11633:406516 */ /* x109501 stalin.sc:11633:406528 */ t60949 = a24459; /* x109500 stalin.sc:11633:406524 */ t60948 = a24460; /* x109499 stalin.sc:11633:406517 */ t60951.tag = STRUCTURE_TYPE24753; t60951.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t60951.value.structure_type24753)==NULL) {backtrace("stalin.sc", 11633, 406516); out_of_memory_error();} t60951.value.structure_type24753->s0 = t60949; t60951.value.structure_type24753->s1.tag = NULL_TYPE; t60950 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t60950==NULL) {backtrace("stalin.sc", 11633, 406516); out_of_memory_error();} t60950->s0 = t60948; t60950->s1 = t60951; t60946 = f26254(t60950); /* x109509 stalin.sc:11634:406537 */ /* x109504 stalin.sc:11634:406546 */ t60952 = a24460; /* x109508 stalin.sc:11634:406550 */ /* x109506 stalin.sc:11634:406559 */ t60955 = a24459; /* x109507 stalin.sc:11634:406563 */ t60956 = p12269->a24442; /* x109505 stalin.sc:11634:406551 */ /* MOVE: branching squeezed to general */ if (t60956>=((struct structure_type24753 *)VALUE_OFFSET)) {t60957.tag = STRUCTURE_TYPE24753; t60957.value.structure_type24753 = t60956;} else t60957.tag = (unsigned)t60956; t60953 = f1194(t60955, t60957); /* x109503 stalin.sc:11634:406538 */ t60954 = *((struct w49 *)(&t60953)); t60947 = f1194(t60952, t60954); /* x269443 stalin.sc:11633:406511 */ p12269->a24442 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p12269->a24442)==NULL) {backtrace("stalin.sc", 11633, 406510); out_of_memory_error();} p12269->a24442->s0 = t60946; p12269->a24442->s1 = *((struct w49 *)(&t60947)); l9507: /* x109491 */ t60935 = p12265; p12266 = t60935; /* x109490 */ /* x109489 stalin.sc:11628:406301 */ /* x109488 stalin.sc:11628:406307 */ t60938 = p12266->a24457; /* x109487 stalin.sc:11628:406302 */ a35557 = t60938; /* x273585 */ /* x273584 */ t60939 = a35557; /* x273583 */ if (!((t60939.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29706]"); structure_ref_error();} t60937 = t60939.value.structure_type24753->s1; /* x109486 */ t60936 = p12266->p12245; p12263 = t60936; a24457 = t60937; goto h12263;} /* [inside LOOP 12255] */ struct structure_type24753 *f12255(struct p12254 *p12255, struct w49 a24451) {struct w49 a37618; /* S */ struct w49 t60970; struct w11873 t60971; int t60972; struct w49 t60973; struct w49 t60974; struct w49 t60975; struct w49 t60976; /* x109439 stalin.sc:11642:406717 */ /* x109438 stalin.sc:11643:406734 */ /* x109436 stalin.sc:11643:406744 */ /* x109435 stalin.sc:11643:406766 */ t60975 = a24451; /* x109434 stalin.sc:11643:406745 */ a37618 = t60975; /* x283141 */ /* x283140 */ t60976 = a37618; /* x283139 */ if (!((t60976.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32535]"); structure_ref_error();} t60971 = t60976.value.structure_type27769->s1; /* x109437 stalin.sc:11643:406769 */ t60972 = p12255->a24450; /* x109433 stalin.sc:11643:406735 */ t60973 = *((struct w49 *)(&t60971)); t60974.tag = FIXNUM_TYPE; t60974.value.fixnum_type = t60972; t60970 = f26338(t60973, t60974); /* x109432 stalin.sc:11642:406718 */ return f8162(t60970);} /* [inside LOOP 12250] */ void f12250(struct w49 a24447, struct w49 a24448) {struct structure_type24753 *t60977; struct w49 t60978; struct w49 t60979; struct w49 t60980; struct w49 t60981; struct w49 t60982; /* x109417 stalin.sc:11649:406915 */ /* x109404 stalin.sc:11649:406923 */ /* x109402 stalin.sc:11649:406936 */ /* x109401 stalin.sc:11649:406945 */ t60980 = a24447; /* x109400 stalin.sc:11649:406937 */ t60977 = f8162(t60980); /* x109403 stalin.sc:11649:406948 */ t60978 = a24448; /* x109399 stalin.sc:11649:406924 */ /* MOVE: branching squeezed to general */ if (t60977>=((struct structure_type24753 *)VALUE_OFFSET)) {t60979.tag = STRUCTURE_TYPE24753; t60979.value.structure_type24753 = t60977;} else t60979.tag = (unsigned)t60977; if (f12326(t60979, t60978)==FALSE_TYPE) goto l9509; /* x109406 */ /* x109405 */ return; l9509: /* x109416 */ /* x109415 */ /* x109414 */ /* x109413 stalin.sc:11650:406956 */ /* x109411 stalin.sc:11650:406970 */ t60981 = a24447; /* x109412 stalin.sc:11650:406972 */ t60982 = a24448; /* x109410 stalin.sc:11650:406957 */ f8181(t60981, t60982); /* x109409 */ /* x109408 stalin.sc:11651:406980 */ /* x109407 stalin.sc:11651:406993 */ a24437 = TRUE_TYPE; return;} /* [inside LOOP 12249] */ void f12249(struct p12248 *p12249, struct w49 a24446) {struct w49 a37644; /* S */ struct w11873 t60983; struct w12224 t60984; struct w36108 t60985; struct w49 t60986; struct structure_type24753 *t60987; struct w49 t60988; struct w49 t60989; /* x109423 stalin.sc:11648:406880 */ /* x109422 stalin.sc:11653:407042 */ t60984 = p12249->a24445; /* x109421 stalin.sc:11652:407008 */ /* x109420 stalin.sc:11652:407030 */ t60988 = a24446; /* x109419 stalin.sc:11652:407009 */ a37644 = t60988; /* x283245 */ /* x283244 */ t60989 = a37644; /* x283243 */ if (!((t60989.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32561]"); structure_ref_error();} t60983 = t60989.value.structure_type27769->s1; /* x109418 stalin.sc:11648:406890 */ /* x109398 stalin.sc:11648:406881 */ t60985.tag = NATIVE_PROCEDURE_TYPE22593; t60986 = *((struct w49 *)(&t60983)); t60987 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t60987==NULL) {backtrace("stalin.sc", 11648, 406880); out_of_memory_error();} t60987->s0 = *((struct w49 *)(&t60984)); t60987->s1.tag = NULL_TYPE; f27755(t60985, t60986, t60987); return;} /* [inside LOOP 12247] */ void f12247(struct w49 a24444) {struct w12224 a24445; /* USS */ struct w49 a36126; /* PAIR */ struct w49 a37655; /* S */ struct p12247 *t60990; struct w12224 t60991; struct p12248 *t60992; struct w49 t60993; struct w36108 t60994; struct w49 t60995; struct structure_type24753 *t60996; struct p12247 *t60997; int t60998; struct w227957 t60999; struct w49 t61000; struct w11873 t61001; struct w49 t61002; struct w49 t61003; struct w49 t61004; struct w49 t61005; struct w49 t61006; struct p12247 *e12247; struct p12248 *e12248; struct p12247 *p12248; e12247 = (struct p12247 *)alloca(sizeof(struct p12247)); if (e12247==NULL) {backtrace("stalin.sc", 11637, 406613); out_of_memory_error();} e12247->a24444 = a24444; /* x109454 stalin.sc:11638:406627 */ /* x109453 stalin.sc:11638:406638 */ /* x109445 stalin.sc:11639:406651 */ t60997 = e12247; /* x109452 stalin.sc:11646:406804 */ /* x109451 stalin.sc:11646:406812 */ /* x109450 stalin.sc:11646:406834 */ /* x109449 stalin.sc:11646:406841 */ t61005 = e12247->a24444; /* x109448 stalin.sc:11646:406835 */ a36126 = t61005; /* x275861 */ /* x275860 */ t61006 = a36126; /* x275859 */ if (!((t61006.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30275]"); structure_ref_error();} t61003 = t61006.value.structure_type24753->s0; /* x109447 stalin.sc:11646:406813 */ a37655 = t61003; /* x283289 */ /* x283288 */ t61004 = a37655; /* x283287 */ if (!((t61004.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32572]"); structure_ref_error();} t61001 = t61004.value.structure_type27769->s1; /* x109446 stalin.sc:11646:406805 */ t61002 = *((struct w49 *)(&t61001)); t60998 = f26227(t61002); /* x109428 stalin.sc:11638:406639 */ t60999.tag = NATIVE_PROCEDURE_TYPE15969; t60999.value.native_procedure_type15969 = t60997; t61000.tag = FIXNUM_TYPE; t61000.value.fixnum_type = t60998; t60991 = f1149(t60999, t61000); /* x109427 */ t60990 = e12247; p12248 = t60990; a24445 = t60991; e12248 = (struct p12248 *)alloca(sizeof(struct p12248)); if (e12248==NULL) {backtrace_internal("[inside LOOP 12247]"); out_of_memory_error();} e12248->a24445 = a24445; /* x109426 stalin.sc:11647:406852 */ /* x109425 stalin.sc:11654:407053 */ t60993 = p12248->a24444; /* x109424 stalin.sc:11647:406862 */ t60992 = e12248; /* x109397 stalin.sc:11647:406853 */ t60994.tag = NATIVE_PROCEDURE_TYPE22592; t60994.value.native_procedure_type22592 = t60992; t60995 = t60993; t60996 = (struct structure_type24753 *)NULL_TYPE; f27755(t60994, t60995, t60996); return;} /* [inside LOOP 12244] */ void f12244(struct w49 a24441) {struct structure_type24753 *a24442; /* USS */ struct p12244 *t61007; struct structure_type24753 *t61008; struct p12245 *t61009; struct structure_type24753 *t61010; struct w36108 t61011; struct w49 t61012; struct structure_type24753 *t61013; struct p12245 *t61014; struct w21193 t61015; struct w36108 t61016; struct w49 t61017; struct structure_type24753 *t61018; struct w12224 t61019; struct w36270 t61020; struct w49 t61021; struct structure_type24753 *t61022; struct p7717 *t61023; struct w21193 t61024; struct w227671 t61025; struct w49 t61026; struct w49 t61027; struct p12244 *e12244; struct p12245 *e12245; struct p12244 *p12245; struct p12245 *p12246; e12244 = (struct p12244 *)alloca(sizeof(struct p12244)); if (e12244==NULL) {backtrace("stalin.sc", 11620, 406021); out_of_memory_error();} e12244->a24441 = a24441; /* x109573 stalin.sc:11622:406061 */ /* x109572 stalin.sc:11622:406072 */ /* x109571 stalin.sc:11622:406082 */ /* x109569 stalin.sc:11622:406097 */ /* x109568 stalin.sc:11622:406120 */ t61027 = e12244->a24441; /* x109567 stalin.sc:11622:406098 */ t61023 = f7717(t61027); /* x109570 stalin.sc:11623:406129 */ t61024 = a1940; /* x109566 stalin.sc:11622:406083 */ t61025.tag = NATIVE_PROCEDURE_TYPE15963; t61025.value.native_procedure_type15963 = t61023; t61026 = *((struct w49 *)(&t61024)); t61019 = f1226(t61025, t61026); /* x109565 stalin.sc:11622:406077 */ /* x109564 stalin.sc:11622:406073 */ t61020.tag = NATIVE_PROCEDURE_TYPE460; t61021 = *((struct w49 *)(&t61019)); t61022 = (struct structure_type24753 *)NULL_TYPE; t61008 = f27731(t61020, t61021, t61022); /* x109563 */ t61007 = e12244; p12245 = t61007; a24442 = t61008; e12245 = (struct p12245 *)alloca(sizeof(struct p12245)); if (e12245==NULL) {backtrace_internal("[inside LOOP 12244]"); out_of_memory_error();} e12245->p12244 = p12245; e12245->a24442 = a24442; /* x109562 */ /* x109561 stalin.sc:11624:406157 */ /* x109560 stalin.sc:11635:406584 */ t61015 = a1679; /* x109559 stalin.sc:11625:406174 */ t61014 = e12245; /* x109459 stalin.sc:11624:406158 */ t61016.tag = NATIVE_PROCEDURE_TYPE15965; t61016.value.native_procedure_type15965 = t61014; t61017 = *((struct w49 *)(&t61015)); t61018 = (struct structure_type24753 *)NULL_TYPE; f27755(t61016, t61017, t61018); /* x109458 */ t61009 = e12245; p12246 = t61009; /* x109457 stalin.sc:11636:406596 */ /* x109456 stalin.sc:11655:407066 */ t61010 = p12246->a24442; /* x109455 stalin.sc:11637:406613 */ /* x109396 stalin.sc:11636:406597 */ t61011.tag = NATIVE_PROCEDURE_TYPE15968; /* MOVE: branching squeezed to general */ if (t61010>=((struct structure_type24753 *)VALUE_OFFSET)) {t61012.tag = STRUCTURE_TYPE24753; t61012.value.structure_type24753 = t61010;} else t61012.tag = (unsigned)t61010; t61013 = (struct structure_type24753 *)NULL_TYPE; f27755(t61011, t61012, t61013); return;} /* [inside DETERMINE-WHICH-ENVIRONMENTS-ARE-REENTRANT! 12227] */ void f12227(struct w49 a24425) {struct w49 a22052; /* E */ struct w16638 a22053; /* P? */ int a34822; /* N */ struct w49 a36507; /* S */ struct w49 a36508; /* S */ struct w49 t61028; struct w49 t61031; struct w16638 t61032; struct w49 t61033; int t61034; int t61035; int t61036; struct structure_type24753 *t61037; struct w49 t61038; struct w49 t61039; struct w49 t61040; int t61041; int t61042; int t61043; int t61044; struct structure_type24753 *t61045; struct w49 t61046; struct w49 t61047; struct w49 t61048; struct w16638 t61049; char *t61050; struct w12224 t61051; struct w228345 t61052; struct w49 t61053; struct structure_type24753 *t61054; struct w49 t61055; struct w49 t61056; unsigned t61057; unsigned t61058; unsigned t61059; /* x109378 stalin.sc:11576:404554 */ /* x109313 stalin.sc:11576:404560 */ /* x109312 stalin.sc:11576:404579 */ t61028 = a24425; /* x109311 stalin.sc:11576:404561 */ if (f8526(t61028)==FALSE_TYPE) goto l9511; /* x109375 */ /* x109374 */ /* x109373 */ /* x109365 stalin.sc:11577:404586 */ /* x109364 stalin.sc:11577:404587 */ f4651(); /* x109372 stalin.sc:11579:404697 */ /* x109368 stalin.sc:11580:404722 */ /* x109369 stalin.sc:11580:404738 */ /* x109370 stalin.sc:11580:404759 */ /* x109371 stalin.sc:11580:404785 */ t61056 = a24425; /* x109366 stalin.sc:11579:404698 */ t61057 = NATIVE_PROCEDURE_TYPE17897; t61058 = NATIVE_PROCEDURE_TYPE7307; t61059 = NATIVE_PROCEDURE_TYPE7306; f11537(t61057, t61058, t61059, t61056); /* x109363 */ /* x109362 stalin.sc:11581:404792 */ /* x109315 stalin.sc:11582:404826 */ t61031 = a24425; /* x109361 stalin.sc:11583:404833 */ /* x109360 stalin.sc:11593:405144 */ /* x109359 stalin.sc:11593:405160 */ t61055 = a24425; /* x109358 stalin.sc:11593:405145 */ t61051 = f11638(t61055); /* x109357 stalin.sc:11584:404845 */ /* x109316 stalin.sc:11583:404834 */ t61052.tag = NATIVE_PROCEDURE_TYPE18212; t61053 = *((struct w49 *)(&t61051)); t61054 = (struct structure_type24753 *)NULL_TYPE; t61032 = f1042(t61052, t61053, t61054); /* x109314 stalin.sc:11581:404793 */ a22052 = t61031; a22053 = t61032; /* x72873 */ /* x72872 stalin.sc:4094:137630 */ /* x72865 stalin.sc:4094:137638 */ /* x72864 stalin.sc:4094:137648 */ t61049 = a22053; /* x270260 stalin.sc:4094:137639 */ switch (t61049.tag) {case TRUE_TYPE: case FALSE_TYPE: break; default: goto l9516;} /* x72867 */ /* x72866 */ goto l9517; l9516: /* x72871 */ /* x72870 */ /* x72869 stalin.sc:4094:137652 */ /* x72868 stalin.sc:4094:137653 */ /* x296625 QobiScheme.sc:166:5314 */ /* x296624 QobiScheme.sc:166:5321 */ t61050 = "This shouldn\'t happen"; /* x296623 QobiScheme.sc:166:5315 */ stalin_panic(t61050); l9517: /* x72862 */ while (region8503!=((struct region8503 *)(&initial_region8503))) {struct region8503 *region; region = region8503; region8503 = region8503->region; GC_free(region);} region_size8503 = REGION_SIZE8503; fp8503 = &((region8503->data)[0]); ALIGN(fp8503); /* x72861 stalin.sc:4095:137664 */ /* x72844 stalin.sc:4096:137693 */ t61033 = a22052; /* x72860 stalin.sc:4097:137697 */ /* x72845 stalin.sc:4097:137701 */ if ((a22053.tag)==FALSE_TYPE) goto l9513; /* x72851 stalin.sc:4098:137710 */ /* x72850 stalin.sc:4098:137743 */ t61044 = 16; /* x72849 stalin.sc:4098:137718 */ /* x72848 stalin.sc:4098:137740 */ t61047 = a22052; /* x72847 stalin.sc:4098:137719 */ a36507 = t61047; /* x278697 */ /* x278696 */ t61048 = a36507; /* x278695 */ if (!((t61048.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31424]"); structure_ref_error();} t61043 = t61048.value.structure_type27694->s26; /* x72846 stalin.sc:4098:137711 */ if ((fp8503+sizeof(struct structure_type24753))>(&((region8503->data)[region_size8503]))) {struct region8503 *region; unsigned region_size = REGION_SIZE8503; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8503 *)GC_malloc_uncollectable(sizeof(struct region8503)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4098, 137710); out_of_memory_error();} region->region = region8503; region_size8503 = region_size; region8503 = region; fp8503 = &((region->data)[0]); ALIGN(fp8503);} t61046.tag = STRUCTURE_TYPE24753; t61046.value.structure_type24753 = (struct structure_type24753 *)fp8503; fp8503 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t61046.value.structure_type24753->s0.tag = FIXNUM_TYPE; t61046.value.structure_type24753->s0.value.fixnum_type = t61044; t61046.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8503+sizeof(struct structure_type24753))>(&((region8503->data)[region_size8503]))) {struct region8503 *region; unsigned region_size = REGION_SIZE8503; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8503 *)GC_malloc_uncollectable(sizeof(struct region8503)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4098, 137710); out_of_memory_error();} region->region = region8503; region_size8503 = region_size; region8503 = region; fp8503 = &((region->data)[0]); ALIGN(fp8503);} t61045 = (struct structure_type24753 *)fp8503; fp8503 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t61045->s0.tag = FIXNUM_TYPE; t61045->s0.value.fixnum_type = t61043; t61045->s1 = t61046; t61034 = f27310(t61045); goto l9514; l9513: /* x72859 stalin.sc:4099:137753 */ /* x72858 stalin.sc:4099:137787 */ /* x72857 stalin.sc:4099:137796 */ t61041 = 16; /* x72856 stalin.sc:4099:137788 */ a34822 = t61041; /* x271573 */ /* x271572 */ t61042 = a34822; /* x271571 */ t61036 = ~t61042; /* x72855 stalin.sc:4099:137762 */ /* x72854 stalin.sc:4099:137784 */ t61039 = a22052; /* x72853 stalin.sc:4099:137763 */ a36508 = t61039; /* x278701 */ /* x278700 */ t61040 = a36508; /* x278699 */ if (!((t61040.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31425]"); structure_ref_error();} t61035 = t61040.value.structure_type27694->s26; /* x72852 stalin.sc:4099:137754 */ if ((fp8503+sizeof(struct structure_type24753))>(&((region8503->data)[region_size8503]))) {struct region8503 *region; unsigned region_size = REGION_SIZE8503; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8503 *)GC_malloc_uncollectable(sizeof(struct region8503)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4099, 137753); out_of_memory_error();} region->region = region8503; region_size8503 = region_size; region8503 = region; fp8503 = &((region->data)[0]); ALIGN(fp8503);} t61038.tag = STRUCTURE_TYPE24753; t61038.value.structure_type24753 = (struct structure_type24753 *)fp8503; fp8503 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t61038.value.structure_type24753->s0.tag = FIXNUM_TYPE; t61038.value.structure_type24753->s0.value.fixnum_type = t61036; t61038.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8503+sizeof(struct structure_type24753))>(&((region8503->data)[region_size8503]))) {struct region8503 *region; unsigned region_size = REGION_SIZE8503; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8503 *)GC_malloc_uncollectable(sizeof(struct region8503)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4099, 137753); out_of_memory_error();} region->region = region8503; region_size8503 = region_size; region8503 = region; fp8503 = &((region->data)[0]); ALIGN(fp8503);} t61037 = (struct structure_type24753 *)fp8503; fp8503 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t61037->s0.tag = FIXNUM_TYPE; t61037->s0.value.fixnum_type = t61035; t61037->s1 = t61038; t61034 = f27305(t61037); l9514: /* x72843 stalin.sc:4095:137665 */ f6840(t61033, t61034); return; l9511: /* x109377 stalin.sc:11576:404554 */ /* x109376 stalin.sc:11576:404554 */ return;} /* [inside DETERMINE-WHICH-ENVIRONMENTS-ARE-RECURSIVE! 12223] */ void f12223(struct w49 a24424) {struct w49 a22048; /* E */ struct w16638 a22049; /* P? */ int a34820; /* N */ struct w49 a36504; /* S */ struct w49 a36510; /* S */ struct w49 t61060; struct w49 t61061; struct w16638 t61062; struct w49 t61063; int t61064; int t61065; int t61066; struct structure_type24753 *t61067; struct w49 t61068; struct w49 t61069; struct w49 t61070; int t61071; int t61072; int t61073; int t61074; struct structure_type24753 *t61075; struct w49 t61076; struct w49 t61077; struct w49 t61078; struct w16638 t61079; char *t61080; struct w49 t61081; struct w49 t61082; /* x109304 stalin.sc:11565:404175 */ /* x109292 stalin.sc:11565:404181 */ /* x109291 stalin.sc:11565:404200 */ t61060 = a24424; /* x109290 stalin.sc:11565:404182 */ if (f8526(t61060)==FALSE_TYPE) goto l9519; /* x109301 */ /* x109300 */ /* x109299 stalin.sc:11566:404209 */ /* x109294 stalin.sc:11566:404238 */ t61061 = a24424; /* x109298 stalin.sc:11566:404240 */ /* x109296 stalin.sc:11566:404257 */ t61081 = a24424; /* x109297 stalin.sc:11566:404259 */ t61082 = a24424; /* x109295 stalin.sc:11566:404241 */ t61062 = f11619(t61081, t61082); /* x109293 stalin.sc:11566:404210 */ a22048 = t61061; a22049 = t61062; /* x72828 */ /* x72827 stalin.sc:4083:137321 */ /* x72820 stalin.sc:4083:137329 */ /* x72819 stalin.sc:4083:137339 */ t61079 = a22049; /* x270263 stalin.sc:4083:137330 */ switch (t61079.tag) {case TRUE_TYPE: case FALSE_TYPE: break; default: goto l9524;} /* x72822 */ /* x72821 */ goto l9525; l9524: /* x72826 */ /* x72825 */ /* x72824 stalin.sc:4083:137343 */ /* x72823 stalin.sc:4083:137344 */ /* x296633 QobiScheme.sc:166:5314 */ /* x296632 QobiScheme.sc:166:5321 */ t61080 = "This shouldn\'t happen"; /* x296631 QobiScheme.sc:166:5315 */ stalin_panic(t61080); l9525: /* x72817 */ while (region8498!=((struct region8498 *)(&initial_region8498))) {struct region8498 *region; region = region8498; region8498 = region8498->region; GC_free(region);} region_size8498 = REGION_SIZE8498; fp8498 = &((region8498->data)[0]); ALIGN(fp8498); /* x72816 stalin.sc:4084:137355 */ /* x72799 stalin.sc:4085:137384 */ t61063 = a22048; /* x72815 stalin.sc:4086:137388 */ /* x72800 stalin.sc:4086:137392 */ if ((a22049.tag)==FALSE_TYPE) goto l9521; /* x72806 stalin.sc:4087:137401 */ /* x72805 stalin.sc:4087:137434 */ t61074 = 32; /* x72804 stalin.sc:4087:137409 */ /* x72803 stalin.sc:4087:137431 */ t61077 = a22048; /* x72802 stalin.sc:4087:137410 */ a36510 = t61077; /* x278709 */ /* x278708 */ t61078 = a36510; /* x278707 */ if (!((t61078.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31427]"); structure_ref_error();} t61073 = t61078.value.structure_type27694->s26; /* x72801 stalin.sc:4087:137402 */ if ((fp8498+sizeof(struct structure_type24753))>(&((region8498->data)[region_size8498]))) {struct region8498 *region; unsigned region_size = REGION_SIZE8498; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8498 *)GC_malloc_uncollectable(sizeof(struct region8498)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4087, 137401); out_of_memory_error();} region->region = region8498; region_size8498 = region_size; region8498 = region; fp8498 = &((region->data)[0]); ALIGN(fp8498);} t61076.tag = STRUCTURE_TYPE24753; t61076.value.structure_type24753 = (struct structure_type24753 *)fp8498; fp8498 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t61076.value.structure_type24753->s0.tag = FIXNUM_TYPE; t61076.value.structure_type24753->s0.value.fixnum_type = t61074; t61076.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8498+sizeof(struct structure_type24753))>(&((region8498->data)[region_size8498]))) {struct region8498 *region; unsigned region_size = REGION_SIZE8498; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8498 *)GC_malloc_uncollectable(sizeof(struct region8498)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4087, 137401); out_of_memory_error();} region->region = region8498; region_size8498 = region_size; region8498 = region; fp8498 = &((region->data)[0]); ALIGN(fp8498);} t61075 = (struct structure_type24753 *)fp8498; fp8498 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t61075->s0.tag = FIXNUM_TYPE; t61075->s0.value.fixnum_type = t61073; t61075->s1 = t61076; t61064 = f27310(t61075); goto l9522; l9521: /* x72814 stalin.sc:4088:137444 */ /* x72813 stalin.sc:4088:137478 */ /* x72812 stalin.sc:4088:137487 */ t61071 = 32; /* x72811 stalin.sc:4088:137479 */ a34820 = t61071; /* x271565 */ /* x271564 */ t61072 = a34820; /* x271563 */ t61066 = ~t61072; /* x72810 stalin.sc:4088:137453 */ /* x72809 stalin.sc:4088:137475 */ t61069 = a22048; /* x72808 stalin.sc:4088:137454 */ a36504 = t61069; /* x278685 */ /* x278684 */ t61070 = a36504; /* x278683 */ if (!((t61070.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31421]"); structure_ref_error();} t61065 = t61070.value.structure_type27694->s26; /* x72807 stalin.sc:4088:137445 */ if ((fp8498+sizeof(struct structure_type24753))>(&((region8498->data)[region_size8498]))) {struct region8498 *region; unsigned region_size = REGION_SIZE8498; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8498 *)GC_malloc_uncollectable(sizeof(struct region8498)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4088, 137444); out_of_memory_error();} region->region = region8498; region_size8498 = region_size; region8498 = region; fp8498 = &((region->data)[0]); ALIGN(fp8498);} t61068.tag = STRUCTURE_TYPE24753; t61068.value.structure_type24753 = (struct structure_type24753 *)fp8498; fp8498 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t61068.value.structure_type24753->s0.tag = FIXNUM_TYPE; t61068.value.structure_type24753->s0.value.fixnum_type = t61066; t61068.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8498+sizeof(struct structure_type24753))>(&((region8498->data)[region_size8498]))) {struct region8498 *region; unsigned region_size = REGION_SIZE8498; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8498 *)GC_malloc_uncollectable(sizeof(struct region8498)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4088, 137444); out_of_memory_error();} region->region = region8498; region_size8498 = region_size; region8498 = region; fp8498 = &((region->data)[0]); ALIGN(fp8498);} t61067 = (struct structure_type24753 *)fp8498; fp8498 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t61067->s0.tag = FIXNUM_TYPE; t61067->s0.value.fixnum_type = t61065; t61067->s1 = t61068; t61064 = f27305(t61067); l9522: /* x72798 stalin.sc:4084:137356 */ f6840(t61063, t61064); return; l9519: /* x109303 stalin.sc:11565:404175 */ /* x109302 stalin.sc:11565:404175 */ return;} /* [inside DETERMINE-WHICH-ENVIRONMENTS-HAVE-UNIQUE-CALL-SITES! 12219] */ void f12219(struct w49 a24423) {struct w49 t61083; struct w49 t61084; struct structure_type24753 *t61085; struct w11873 t61086; struct w49 t61087; /* x109282 stalin.sc:11553:403843 */ /* x109271 stalin.sc:11553:403849 */ /* x109270 stalin.sc:11553:403868 */ t61083 = a24423; /* x109269 stalin.sc:11553:403850 */ if (f8526(t61083)==FALSE_TYPE) goto l9527; /* x109279 */ /* x109278 */ /* x109277 stalin.sc:11554:403877 */ /* x109273 stalin.sc:11554:403920 */ t61084 = a24423; /* x109276 stalin.sc:11554:403922 */ /* x109275 stalin.sc:11554:403934 */ t61087 = a24423; /* x109274 stalin.sc:11554:403923 */ t61085 = f8615(t61087); /* x109272 stalin.sc:11554:403878 */ /* MOVE: branching squeezed to general */ if (t61085>=((struct structure_type24753 *)VALUE_OFFSET)) {t61086.tag = STRUCTURE_TYPE24753; t61086.value.structure_type24753 = t61085;} else t61086.tag = (unsigned)t61085; f6832(t61084, t61086); return; l9527: /* x109281 stalin.sc:11553:403843 */ /* x109280 stalin.sc:11553:403843 */ return;} /* [inside DETERMINE-ESCAPING-TYPES! 12208] */ void f12208(struct w49 a24417) {struct w49 t61088; struct w16638 t61089; /* x109220 stalin.sc:11458:399947 */ /* x109218 stalin.sc:11458:399974 */ t61088 = a24417; /* x109219 stalin.sc:11458:399976 */ /* x109217 stalin.sc:11458:399948 */ t61089.tag = FALSE_TYPE; f8472(t61088, t61089); return;} /* [inside DETERMINE-ESCAPING-TYPES! 12198] */ void f12198(struct p12192 *p12198, struct w49 a24409) {struct w12224 a24414; /* US */ struct w49 a38872; /* S */ struct w49 a39868; /* S */ struct w49 a39917; /* S */ struct w49 a40016; /* S */ struct w49 a40042; /* S */ struct w49 t61090; struct p12198 *t61091; struct w49 t61092; struct w211257 t61093; struct w49 t61094; struct w49 t61095; struct w49 t61096; struct w49 t61097; struct w49 t61098; struct w49 t61099; struct w49 t61100; struct w49 t61101; struct w49 t61102; struct p12198 *t61103; struct p12198 *t61104; struct p12198 *t61106; struct w12224 t61107; struct w12224 t61108; struct p12202 *t61109; struct p12202 *t61110; struct w49 t61111; unsigned t61112; struct w49 t61113; struct w49 t61114; struct w49 t61115; unsigned t61116; struct w49 t61117; struct w49 t61118; struct w49 t61119; struct p12198 *e12198; struct p12202 *e12202; struct p12198 *p12200; struct p12198 *p12201; struct p12198 *p12202; struct p12202 *p12204; e12198 = (struct p12198 *)alloca(sizeof(struct p12198)); if (e12198==NULL) {backtrace("stalin.sc", 11461, 400061); out_of_memory_error();} e12198->p12192 = p12198; e12198->a24409 = a24409; /* x109207 stalin.sc:11462:400079 */ /* x109160 stalin.sc:11462:400085 */ /* x109117 stalin.sc:11462:400090 */ /* x109116 stalin.sc:11462:400101 */ t61090 = e12198->a24409; /* x109115 stalin.sc:11462:400091 */ if (f6967(t61090)==FALSE_TYPE) goto l9529; /* x109158 */ /* x109148 stalin.sc:11463:400107 */ /* x109142 stalin.sc:11464:400120 */ t61091 = e12198; /* x109147 stalin.sc:11469:400324 */ /* x109146 stalin.sc:11469:400345 */ /* x109145 stalin.sc:11469:400364 */ t61096 = e12198->a24409; /* x109144 stalin.sc:11469:400346 */ a38872 = t61096; /* x288157 */ /* x288156 */ t61097 = a38872; /* x288155 */ if (!((t61097.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33789]"); structure_ref_error();} t61094 = t61097.value.structure_type27698->s21; /* x109143 stalin.sc:11469:400325 */ a40016 = t61094; /* x292733 */ /* x292732 */ t61095 = a40016; /* x292731 */ if (!((t61095.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34933]"); structure_ref_error();} t61092 = t61095.value.structure_type27698->s10; /* x109118 stalin.sc:11463:400108 */ t61093.tag = NATIVE_PROCEDURE_TYPE16055; t61093.value.native_procedure_type16055 = t61091; if ((f8137(t61093, t61092).tag)==FALSE_TYPE) goto l9529; /* x109156 */ /* x109150 stalin.sc:11470:400381 */ t61098 = p12198->a24401; /* x109155 stalin.sc:11470:400384 */ /* x109154 stalin.sc:11470:400405 */ /* x109153 stalin.sc:11470:400421 */ t61102 = e12198->a24409; /* x109152 stalin.sc:11470:400406 */ t61100 = f6998(t61102); /* x109151 stalin.sc:11470:400385 */ a39917 = t61100; /* x292337 */ /* x292336 */ t61101 = a39917; /* x292335 */ if (!((t61101.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34834]"); structure_ref_error();} t61099 = t61101.value.structure_type27698->s10; /* x109149 stalin.sc:11470:400373 */ if (f8033(t61098, t61099)==FALSE_TYPE) goto l9529; /* x109204 */ /* x109203 */ t61103 = e12198; p12200 = t61103; /* x109202 */ /* x109190 stalin.sc:11471:400434 */ /* x109189 stalin.sc:11471:400435 */ f4651(); /* x109192 stalin.sc:11479:400972 */ /* x109191 stalin.sc:11479:400973 */ f9014(); /* x109201 stalin.sc:11481:401065 */ /* x109195 stalin.sc:11482:401092 */ /* x109200 stalin.sc:11482:401108 */ /* x109199 stalin.sc:11482:401129 */ /* x109198 stalin.sc:11482:401146 */ t61119 = p12200->a24409; /* x109197 stalin.sc:11482:401130 */ t61117 = f7003(t61119); /* x109196 stalin.sc:11482:401109 */ a39868 = t61117; /* x292141 */ /* x292140 */ t61118 = a39868; /* x292139 */ if (!((t61118.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34785]"); structure_ref_error();} t61115 = t61118.value.structure_type27698->s10; /* x109193 stalin.sc:11481:401066 */ t61116 = NATIVE_PROCEDURE_TYPE23734; f9081(t61116, t61115); /* x109188 */ t61104 = p12200; p12201 = t61104; /* x109187 stalin.sc:11483:401158 */ /* x109186 stalin.sc:11483:401168 */ /* x109185 stalin.sc:11483:401169 */ t61107 = f12116(); /* x109184 */ t61106 = p12201; p12202 = t61106; a24414 = t61107; e12202 = (struct p12202 *)alloca(sizeof(struct p12202)); if (e12202==NULL) {backtrace_internal("[inside DETERMINE-ESCAPING-TYPES! 12201]"); out_of_memory_error();} e12202->p12198 = p12202; e12202->a24414 = a24414; /* x109183 stalin.sc:11484:401196 */ /* x109163 stalin.sc:11484:401204 */ /* x109162 stalin.sc:11484:401211 */ t61108 = e12202->a24414; /* x269451 stalin.sc:11484:401205 */ if (!((t61108.tag)==NULL_TYPE)) goto l9533; /* x109165 */ /* x109164 */ return; l9533: /* x109182 */ /* x109181 */ t61109 = e12202; p12204 = t61109; /* x109180 stalin.sc:11485:401217 */ /* x109176 stalin.sc:11486:401244 */ t61110 = p12204; /* x109179 stalin.sc:11489:401348 */ /* x109178 stalin.sc:11489:401372 */ t61113 = p12204->p12198->a24409; /* x109177 stalin.sc:11489:401349 */ a40042 = t61113; /* x292837 */ /* x292836 */ t61114 = a40042; /* x292835 */ if (!((t61114.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34959]"); structure_ref_error();} t61111 = t61114.value.structure_type27698->s9; /* x109166 stalin.sc:11485:401218 */ t61112 = (unsigned)t61110; f12102(t61112, t61111); return; l9529: /* x109206 stalin.sc:11462:400079 */ /* x109205 stalin.sc:11462:400079 */ return;} /* [inside DETERMINE-ESCAPING-TYPES! 12192] */ void f12192(struct w49 a24401) {struct p12192 *t61120; struct p12192 *t61121; struct w21193 t61122; struct w228345 t61123; struct w49 t61124; struct structure_type24753 *t61125; struct p12192 *t61126; struct p12192 *t61127; struct p12192 *t61129; struct w21193 t61130; struct w36108 t61131; struct w49 t61132; struct structure_type24753 *t61133; struct w21193 t61134; struct w36108 t61135; struct w49 t61136; struct structure_type24753 *t61137; struct w49 t61138; struct p12192 *e12192; struct p12192 *p12193; struct p12192 *p12196; struct p12192 *p12197; e12192 = (struct p12192 *)alloca(sizeof(struct p12192)); if (e12192==NULL) {backtrace_internal("DETERMINE-ESCAPING-TYPES![12117]"); out_of_memory_error();} e12192->a24401 = a24401; /* x109236 */ /* x109235 stalin.sc:11439:399253 */ /* x109234 stalin.sc:11439:399254 */ f9014(); /* x109233 */ t61120 = e12192; p12193 = t61120; /* x109232 stalin.sc:11440:399272 */ /* x109113 stalin.sc:11440:399278 */ /* x109112 stalin.sc:11455:399835 */ t61122 = a2030; /* x109111 stalin.sc:11441:399287 */ t61121 = p12193; /* x109054 stalin.sc:11440:399279 */ t61123.tag = NATIVE_PROCEDURE_TYPE16028; t61123.value.native_procedure_type16028 = t61121; t61124 = *((struct w49 *)(&t61122)); t61125 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t61123, t61124, t61125).tag)==FALSE_TYPE) goto l9535; /* x109229 */ /* x109228 */ t61126 = p12193; p12196 = t61126; /* x109227 */ /* x109213 stalin.sc:11456:399848 */ /* x109212 stalin.sc:11456:399849 */ f4651(); /* x109215 stalin.sc:11457:399891 */ /* x109214 stalin.sc:11457:399892 */ f9027(); /* x109223 stalin.sc:11458:399925 */ /* x109222 stalin.sc:11458:399981 */ t61134 = a1594; /* x109221 stalin.sc:11458:399935 */ /* x109216 stalin.sc:11458:399926 */ t61135.tag = NATIVE_PROCEDURE_TYPE16046; t61136 = *((struct w49 *)(&t61134)); t61137 = (struct structure_type24753 *)NULL_TYPE; f27755(t61135, t61136, t61137); /* x109226 stalin.sc:11459:399991 */ /* x109225 stalin.sc:11459:400038 */ t61138 = p12196->a24401; /* x109224 stalin.sc:11459:399992 */ f12041(t61138); /* x109211 */ t61127 = p12196; p12197 = t61127; /* x109210 stalin.sc:11460:400046 */ /* x109209 stalin.sc:11492:401488 */ t61130 = a2030; /* x109208 stalin.sc:11461:400061 */ t61129 = p12197; /* x109114 stalin.sc:11460:400047 */ t61131.tag = NATIVE_PROCEDURE_TYPE16054; t61131.value.native_procedure_type16054 = t61129; t61132 = *((struct w49 *)(&t61130)); t61133 = (struct structure_type24753 *)NULL_TYPE; f27755(t61131, t61132, t61133); return; l9535: /* x109231 stalin.sc:11440:399272 */ /* x109230 stalin.sc:11440:399272 */ return;} /* [inside DETERMINE-ESCAPING-TYPES! 12184] */ void f12184(struct p12181 *p12184, struct w49 a24396) {struct w49 a36535; /* S */ struct w49 a38638; /* S */ struct w49 a39914; /* S */ struct p12184 *t61139; struct w49 t61140; struct w211257 t61141; struct w49 t61142; struct w49 t61143; struct w49 t61144; struct w49 t61145; struct p12184 *t61146; struct w49 t61147; struct w49 t61148; struct w49 t61149; struct w12224 t61150; struct w49 t61151; struct w49 t61152; struct w49 t61153; struct p12184 *e12184; struct p12184 *p12188; e12184 = (struct p12184 *)alloca(sizeof(struct p12184)); if (e12184==NULL) {backtrace("stalin.sc", 11410, 398103); out_of_memory_error();} e12184->p12181 = p12184; e12184->a24396 = a24396; /* x109015 stalin.sc:11411:398116 */ /* x109001 stalin.sc:11411:398122 */ /* x108995 stalin.sc:11412:398139 */ t61139 = e12184; /* x109000 stalin.sc:11431:398972 */ /* x108999 stalin.sc:11431:398993 */ /* x108998 stalin.sc:11431:399012 */ t61144 = p12184->p12177->a24390; /* x108997 stalin.sc:11431:398994 */ a38638 = t61144; /* x287221 */ /* x287220 */ t61145 = a38638; /* x287219 */ if (!((t61145.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33555]"); structure_ref_error();} t61142 = t61145.value.structure_type27698->s21; /* x108996 stalin.sc:11431:398973 */ a39914 = t61142; /* x292325 */ /* x292324 */ t61143 = a39914; /* x292323 */ if (!((t61143.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34831]"); structure_ref_error();} t61140 = t61143.value.structure_type27698->s10; /* x108957 stalin.sc:11411:398123 */ t61141.tag = NATIVE_PROCEDURE_TYPE20688; t61141.value.native_procedure_type20688 = t61139; if ((f8137(t61141, t61140).tag)==FALSE_TYPE) goto l9537; /* x109012 */ /* x109011 */ t61146 = e12184; p12188 = t61146; /* x109010 stalin.sc:11432:399019 */ /* x109003 stalin.sc:11433:399055 */ t61147 = p12188->a24396; /* x109009 stalin.sc:11433:399057 */ /* x109007 stalin.sc:11433:399065 */ /* x109006 stalin.sc:11433:399093 */ t61152 = p12188->a24396; /* x109005 stalin.sc:11433:399066 */ a36535 = t61152; /* x278809 */ /* x278808 */ t61153 = a36535; /* x278807 */ if (!((t61153.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-ESCAPING-TYPES[6823] 31452]"); structure_ref_error();} t61149 = t61153.value.structure_type27694->s24; /* x109008 stalin.sc:11433:399096 */ t61150 = p12188->p12181->a24395; /* x109004 stalin.sc:11433:399058 */ t61151 = *((struct w49 *)(&t61150)); t61148 = f1390(t61149, t61151); /* x109002 stalin.sc:11432:399020 */ f6824(t61147, t61148); return; l9537: /* x109014 stalin.sc:11411:398116 */ /* x109013 stalin.sc:11411:398116 */ return;} /* [inside DETERMINE-ESCAPING-TYPES! 12177] */ void f12177(struct w49 a24390) {struct w12224 a24395; /* US */ struct w49 a38870; /* S */ struct w49 a39915; /* S */ struct w49 a40014; /* S */ struct w49 a40056; /* S */ struct w49 t61154; struct p12177 *t61155; struct w49 t61156; struct w211257 t61157; struct w49 t61158; struct w49 t61159; struct w49 t61160; struct w49 t61161; struct p12177 *t61162; struct p12177 *t61163; struct p12177 *t61165; struct w12224 t61166; struct w12224 t61167; struct p12181 *t61168; struct p12181 *t61169; struct w12224 t61170; struct w36108 t61171; struct w49 t61172; struct structure_type24753 *t61173; struct w49 t61174; struct w49 t61175; struct w49 t61176; struct w49 t61177; unsigned t61178; struct w49 t61179; struct w49 t61180; struct w49 t61181; struct p12177 *e12177; struct p12181 *e12181; struct p12177 *p12179; struct p12177 *p12180; struct p12177 *p12181; struct p12181 *p12183; e12177 = (struct p12177 *)alloca(sizeof(struct p12177)); if (e12177==NULL) {backtrace("stalin.sc", 11396, 397594); out_of_memory_error();} e12177->a24390 = a24390; /* x109049 stalin.sc:11397:397609 */ /* x108950 stalin.sc:11397:397615 */ /* x108930 stalin.sc:11397:397620 */ /* x108929 stalin.sc:11397:397631 */ t61154 = e12177->a24390; /* x108928 stalin.sc:11397:397621 */ if (f6967(t61154)==FALSE_TYPE) goto l9539; /* x108948 */ /* x108942 stalin.sc:11398:397650 */ t61155 = e12177; /* x108947 stalin.sc:11401:397746 */ /* x108946 stalin.sc:11401:397767 */ /* x108945 stalin.sc:11401:397786 */ t61160 = e12177->a24390; /* x108944 stalin.sc:11401:397768 */ a38870 = t61160; /* x288149 */ /* x288148 */ t61161 = a38870; /* x288147 */ if (!((t61161.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33787]"); structure_ref_error();} t61158 = t61161.value.structure_type27698->s21; /* x108943 stalin.sc:11401:397747 */ a40014 = t61158; /* x292725 */ /* x292724 */ t61159 = a40014; /* x292723 */ if (!((t61159.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34931]"); structure_ref_error();} t61156 = t61159.value.structure_type27698->s10; /* x108931 stalin.sc:11398:397642 */ t61157.tag = NATIVE_PROCEDURE_TYPE16058; t61157.value.native_procedure_type16058 = t61155; if ((f8137(t61157, t61156).tag)==FALSE_TYPE) goto l9539; /* x109046 */ /* x109045 */ t61162 = e12177; p12179 = t61162; /* x109044 */ /* x109032 stalin.sc:11402:397796 */ /* x109031 stalin.sc:11402:397797 */ f4651(); /* x109034 stalin.sc:11403:397839 */ /* x109033 stalin.sc:11403:397840 */ f9014(); /* x109043 stalin.sc:11405:397926 */ /* x109037 stalin.sc:11406:397957 */ /* x109042 stalin.sc:11406:397973 */ /* x109041 stalin.sc:11406:397994 */ /* x109040 stalin.sc:11406:398010 */ t61181 = p12179->a24390; /* x109039 stalin.sc:11406:397995 */ t61179 = f6998(t61181); /* x109038 stalin.sc:11406:397974 */ a39915 = t61179; /* x292329 */ /* x292328 */ t61180 = a39915; /* x292327 */ if (!((t61180.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34832]"); structure_ref_error();} t61177 = t61180.value.structure_type27698->s10; /* x109035 stalin.sc:11405:397927 */ t61178 = NATIVE_PROCEDURE_TYPE20681; f9081(t61178, t61177); /* x109030 */ t61163 = p12179; p12180 = t61163; /* x109029 stalin.sc:11407:398019 */ /* x109028 stalin.sc:11407:398029 */ /* x109027 stalin.sc:11407:398030 */ t61166 = f12116(); /* x109026 */ t61165 = p12180; p12181 = t61165; a24395 = t61166; e12181 = (struct p12181 *)alloca(sizeof(struct p12181)); if (e12181==NULL) {backtrace_internal("[inside DETERMINE-ESCAPING-TYPES! 12180]"); out_of_memory_error();} e12181->p12177 = p12181; e12181->a24395 = a24395; /* x109025 stalin.sc:11408:398061 */ /* x108953 stalin.sc:11408:398069 */ /* x108952 stalin.sc:11408:398076 */ t61167 = e12181->a24395; /* x269452 stalin.sc:11408:398070 */ if (!((t61167.tag)==NULL_TYPE)) goto l9542; /* x108955 */ /* x108954 */ return; l9542: /* x109024 */ /* x109023 */ t61168 = e12181; p12183 = t61168; /* x109022 stalin.sc:11409:398086 */ /* x109021 stalin.sc:11434:399110 */ /* x109020 stalin.sc:11434:399119 */ /* x109019 stalin.sc:11434:399143 */ t61175 = p12183->p12177->a24390; /* x109018 stalin.sc:11434:399120 */ a40056 = t61175; /* x292893 */ /* x292892 */ t61176 = a40056; /* x292891 */ if (!((t61176.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34973]"); structure_ref_error();} t61174 = t61176.value.structure_type27698->s9; /* x109017 stalin.sc:11434:399111 */ t61170 = f11641(t61174); /* x109016 stalin.sc:11410:398103 */ t61169 = p12183; /* x108956 stalin.sc:11409:398087 */ t61171.tag = NATIVE_PROCEDURE_TYPE20687; t61171.value.native_procedure_type20687 = t61169; t61172 = *((struct w49 *)(&t61170)); t61173 = (struct structure_type24753 *)NULL_TYPE; f27755(t61171, t61172, t61173); return; l9539: /* x109048 stalin.sc:11397:397609 */ /* x109047 stalin.sc:11397:397609 */ return;} /* [inside DETERMINE-ESCAPING-TYPES! 12168] */ void f12168(struct p12146 *p12168, struct w49 a24385) {struct w49 a24388; /* E */ struct w49 a36918; /* S */ struct w49 a40090; /* S */ struct p12146 *t61182; struct w49 t61183; struct w49 t61184; struct w49 t61185; struct w49 t61186; struct w49 t61187; struct p12146 *t61188; struct p12146 *t61189; struct p12146 *t61190; struct w49 t61191; struct w49 t61192; struct w49 t61193; struct w49 t61194; struct p12146 *t61195; struct p12146 *t61196; struct w49 t61197; struct w49 t61198; struct p12146 *p12169; struct p12146 *p12170; struct p12146 *p12171; struct p12146 *p12173; struct p12146 *p12174; /* x108912 stalin.sc:11366:396334 */ /* x108911 stalin.sc:11366:396348 */ /* x108910 stalin.sc:11366:396372 */ t61197 = a24385; /* x108909 stalin.sc:11366:396349 */ a40090 = t61197; /* x293029 */ /* x293028 */ t61198 = a40090; /* x293027 */ if (!((t61198.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35007]"); structure_ref_error();} t61183 = t61198.value.structure_type27698->s9; /* x108908 */ /* x108907 */ /* x108906 */ /* x108905 */ t61195 = p12168; p12169 = t61195; /* x108904 */ /* x108903 */ /* x108902 */ /* x108878 */ t61196 = p12169; p12170 = t61196; /* x108877 stalin.sc:11366:396339 */ t61182 = p12170; p12171 = t61182; a24388 = t61183; h12171: /* x108901 stalin.sc:11367:396385 */ /* x108884 stalin.sc:11367:396393 */ /* x108880 stalin.sc:11367:396398 */ t61184 = a24388; /* x108883 stalin.sc:11367:396400 */ /* x108882 stalin.sc:11367:396422 */ t61186 = p12171->a24365; /* x108881 stalin.sc:11367:396401 */ a36918 = t61186; /* x280341 */ /* x280340 */ t61187 = a36918; /* x280339 */ if (!((t61187.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31835]"); structure_ref_error();} t61185 = t61187.value.structure_type27692->s8; /* x269453 stalin.sc:11367:396394 */ /* EQ: dispatching general to general */ if (!((t61184.tag)==(t61185.tag))) goto l9544; switch (t61184.tag) {case FIXNUM_TYPE: if (!((t61184.value.fixnum_type)==(t61185.value.fixnum_type))) goto l9544; break; case FLONUM_TYPE: if (!((t61184.value.flonum_type)==(t61185.value.flonum_type))) goto l9544; break; case INPUT_PORT_TYPE: if (!((t61184.value.input_port_type)==(t61185.value.input_port_type))) goto l9544; break; case OUTPUT_PORT_TYPE: if (!((t61184.value.output_port_type)==(t61185.value.output_port_type))) goto l9544; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t61184.value.native_procedure_type15963)==(t61185.value.native_procedure_type15963))) goto l9544; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t61184.value.native_procedure_type19067)==(t61185.value.native_procedure_type19067))) goto l9544; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t61184.value.native_procedure_type19068)==(t61185.value.native_procedure_type19068))) goto l9544; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t61184.value.native_procedure_type22459)==(t61185.value.native_procedure_type22459))) goto l9544; break; case STRUCTURE_TYPE24753: if (!((t61184.value.structure_type24753)==(t61185.value.structure_type24753))) goto l9544; break; case STRUCTURE_TYPE24757: if (!((t61184.value.structure_type24757)==(t61185.value.structure_type24757))) goto l9544; break; case STRUCTURE_TYPE27501: if (!((t61184.value.structure_type27501)==(t61185.value.structure_type27501))) goto l9544; break; case STRUCTURE_TYPE27510: if (!((t61184.value.structure_type27510)==(t61185.value.structure_type27510))) goto l9544; break; case STRUCTURE_TYPE27621: if (!((t61184.value.structure_type27621)==(t61185.value.structure_type27621))) goto l9544; break; case STRUCTURE_TYPE27650: if (!((t61184.value.structure_type27650)==(t61185.value.structure_type27650))) goto l9544; break; case STRUCTURE_TYPE27669: if (!((t61184.value.structure_type27669)==(t61185.value.structure_type27669))) goto l9544; break; case STRUCTURE_TYPE27673: if (!((t61184.value.structure_type27673)==(t61185.value.structure_type27673))) goto l9544; break; case STRUCTURE_TYPE27692: if (!((t61184.value.structure_type27692)==(t61185.value.structure_type27692))) goto l9544; break; case STRUCTURE_TYPE27694: if (!((t61184.value.structure_type27694)==(t61185.value.structure_type27694))) goto l9544; break; case STRUCTURE_TYPE27698: if (!((t61184.value.structure_type27698)==(t61185.value.structure_type27698))) goto l9544; break; case STRUCTURE_TYPE27745: if (!((t61184.value.structure_type27745)==(t61185.value.structure_type27745))) goto l9544; break; case STRUCTURE_TYPE27747: if (!((t61184.value.structure_type27747)==(t61185.value.structure_type27747))) goto l9544; break; case STRUCTURE_TYPE27750: if (!((t61184.value.structure_type27750)==(t61185.value.structure_type27750))) goto l9544; break; case STRUCTURE_TYPE27753: if (!((t61184.value.structure_type27753)==(t61185.value.structure_type27753))) goto l9544; break; case STRUCTURE_TYPE27756: if (!((t61184.value.structure_type27756)==(t61185.value.structure_type27756))) goto l9544; break; case STRUCTURE_TYPE27761: if (!((t61184.value.structure_type27761)==(t61185.value.structure_type27761))) goto l9544; break; case STRUCTURE_TYPE27769: if (!((t61184.value.structure_type27769)==(t61185.value.structure_type27769))) goto l9544; break; case STRUCTURE_TYPE27776: if (!((t61184.value.structure_type27776)==(t61185.value.structure_type27776))) goto l9544; break; case STRUCTURE_TYPE27779: if (!((t61184.value.structure_type27779)==(t61185.value.structure_type27779))) goto l9544; break; case STRUCTURE_TYPE27858: if (!((t61184.value.structure_type27858)==(t61185.value.structure_type27858))) goto l9544; break; case STRING_TYPE: if (!((t61184.value.string_type)==(t61185.value.string_type))) goto l9544; break; case HEADED_VECTOR_TYPE27896: if (!((t61184.value.headed_vector_type27896)==(t61185.value.headed_vector_type27896))) goto l9544; break; case EXTERNAL_SYMBOL_TYPE: if (!((t61184.value.external_symbol_type)==(t61185.value.external_symbol_type))) goto l9544; break; case STRUCTURE_TYPE27908: if (!((t61184.value.structure_type27908)==(t61185.value.structure_type27908))) goto l9544; break; default:;} /* x108886 */ /* x108885 */ return; l9544: /* x108900 */ /* x108899 */ t61188 = p12171; p12173 = t61188; /* x108898 */ /* x108897 stalin.sc:11368:396427 */ /* x108896 stalin.sc:11368:396474 */ /* x108895 stalin.sc:11368:396492 */ t61194 = a24388; /* x108894 stalin.sc:11368:396475 */ t61193 = f8691(t61194); /* x108893 stalin.sc:11368:396428 */ f12041(t61193); /* x108892 */ t61189 = p12173; p12174 = t61189; /* x108891 stalin.sc:11369:396497 */ /* x108890 stalin.sc:11369:396503 */ /* x108889 stalin.sc:11369:396511 */ t61192 = a24388; /* x108888 stalin.sc:11369:396504 */ t61191 = f8682(t61192); /* x108887 stalin.sc:11369:396498 */ t61190 = p12174; p12171 = t61190; a24388 = t61191; goto h12171;} /* [inside DETERMINE-ESCAPING-TYPES! 12167] */ void f12167(struct w49 a24384) {struct w49 t61199; struct w16638 t61200; /* x108872 stalin.sc:11363:396256 */ /* x108870 stalin.sc:11363:396283 */ t61199 = a24384; /* x108871 stalin.sc:11363:396285 */ /* x108869 stalin.sc:11363:396257 */ t61200.tag = FALSE_TYPE; f8472(t61199, t61200); return;} /* [inside DETERMINE-ESCAPING-TYPES! 12158] */ void f12158(struct w49 a24377) {struct w12224 a24381; /* US */ struct w49 a39066; /* S */ struct w49 a39977; /* S */ struct w49 a40089; /* S */ struct w49 t61201; struct w12224 t61203; struct w12224 t61204; struct p12161 *t61205; struct p12161 *t61206; struct w49 t61207; unsigned t61208; struct w49 t61209; struct w49 t61210; struct w49 t61211; unsigned t61212; struct w49 t61213; struct w49 t61214; struct w49 t61215; struct w49 t61216; struct p12161 *e12161; struct p12161 *p12163; /* x108857 stalin.sc:11373:396574 */ /* x108810 stalin.sc:11373:396580 */ /* x108809 stalin.sc:11373:396591 */ t61201 = a24377; /* x108808 stalin.sc:11373:396581 */ if (f6967(t61201)==FALSE_TYPE) goto l9546; /* x108854 */ /* x108853 */ /* x108852 */ /* x108840 stalin.sc:11374:396601 */ /* x108839 stalin.sc:11374:396602 */ f4651(); /* x108842 stalin.sc:11382:397139 */ /* x108841 stalin.sc:11382:397140 */ f9014(); /* x108851 stalin.sc:11384:397232 */ /* x108845 stalin.sc:11385:397259 */ /* x108850 stalin.sc:11385:397275 */ /* x108849 stalin.sc:11385:397296 */ /* x108848 stalin.sc:11385:397315 */ t61215 = a24377; /* x108847 stalin.sc:11385:397297 */ a39066 = t61215; /* x288933 */ /* x288932 */ t61216 = a39066; /* x288931 */ if (!((t61216.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33983]"); structure_ref_error();} t61213 = t61216.value.structure_type27698->s17; /* x108846 stalin.sc:11385:397276 */ a39977 = t61213; /* x292577 */ /* x292576 */ t61214 = a39977; /* x292575 */ if (!((t61214.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34894]"); structure_ref_error();} t61211 = t61214.value.structure_type27698->s10; /* x108843 stalin.sc:11384:397233 */ t61212 = NATIVE_PROCEDURE_TYPE18417; f9081(t61212, t61211); /* x108838 */ /* x108837 stalin.sc:11386:397327 */ /* x108836 stalin.sc:11386:397337 */ /* x108835 stalin.sc:11386:397338 */ t61203 = f12116(); /* x108834 */ a24381 = t61203; e12161 = (struct p12161 *)alloca(sizeof(struct p12161)); if (e12161==NULL) {backtrace_internal("[inside DETERMINE-ESCAPING-TYPES! 12160]"); out_of_memory_error();} e12161->a24381 = a24381; /* x108833 stalin.sc:11387:397365 */ /* x108813 stalin.sc:11387:397373 */ /* x108812 stalin.sc:11387:397380 */ t61204 = e12161->a24381; /* x269454 stalin.sc:11387:397374 */ if (!((t61204.tag)==NULL_TYPE)) goto l9548; /* x108815 */ /* x108814 */ return; l9548: /* x108832 */ /* x108831 */ t61205 = e12161; p12163 = t61205; /* x108830 stalin.sc:11388:397386 */ /* x108826 stalin.sc:11389:397413 */ t61206 = p12163; /* x108829 stalin.sc:11392:397517 */ /* x108828 stalin.sc:11392:397541 */ t61209 = a24377; /* x108827 stalin.sc:11392:397518 */ a40089 = t61209; /* x293025 */ /* x293024 */ t61210 = a40089; /* x293023 */ if (!((t61210.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35006]"); structure_ref_error();} t61207 = t61210.value.structure_type27698->s9; /* x108816 stalin.sc:11388:397387 */ t61208 = ((unsigned)t61206)+2; f12102(t61208, t61207); return; l9546: /* x108856 stalin.sc:11373:396574 */ /* x108855 stalin.sc:11373:396574 */ return;} /* [inside DETERMINE-ESCAPING-TYPES! 12146] */ void f12146(struct w49 a24365) {struct w49 a36847; /* S */ struct w49 a36848; /* S */ struct w49 a36849; /* S */ struct w49 a36850; /* S */ struct w49 a36888; /* S */ struct w49 a38098; /* OBJ */ struct w49 t61217; struct w49 t61218; struct w49 t61219; struct w49 t61220; struct w49 t61221; struct w49 t61222; struct w49 t61223; struct w49 t61224; struct w49 t61225; struct w49 t61226; struct w49 t61227; struct w49 t61228; struct w49 t61229; struct w49 t61230; struct w49 t61231; struct w49 t61232; struct w49 t61233; struct w49 t61234; struct p12146 *t61235; struct w11873 t61236; struct w228245 t61237; struct w49 t61238; struct structure_type24753 *t61239; struct w49 t61240; struct w49 t61241; struct w49 t61242; struct w49 t61243; struct p12146 *t61244; struct p12146 *t61245; struct w12224 t61246; struct w228345 t61247; struct w49 t61248; struct structure_type24753 *t61249; struct w49 t61250; struct p12146 *t61251; struct p12146 *t61252; struct w12224 t61254; struct w36108 t61255; struct w49 t61256; struct structure_type24753 *t61257; struct w49 t61258; struct w21193 t61259; struct w36108 t61260; struct w49 t61261; struct structure_type24753 *t61262; struct p12146 *t61263; struct w12224 t61264; struct w36108 t61265; struct w49 t61266; struct structure_type24753 *t61267; struct w49 t61268; struct p12146 *e12146; struct p12146 *p12153; struct p12146 *p12154; struct p12146 *p12156; struct p12146 *p12157; e12146 = (struct p12146 *)alloca(sizeof(struct p12146)); if (e12146==NULL) {backtrace("stalin.sc", 11332, 394986); out_of_memory_error();} e12146->a24365 = a24365; /* x108923 stalin.sc:11333:395001 */ /* x108806 stalin.sc:11333:395007 */ /* x108693 stalin.sc:11333:395012 */ /* x108692 stalin.sc:11333:395023 */ t61217 = e12146->a24365; /* x108691 stalin.sc:11333:395013 */ if (f8229(t61217)==FALSE_TYPE) goto l9550; /* x108804 */ /* x108696 stalin.sc:11334:395033 */ /* x108695 stalin.sc:11334:395044 */ t61218 = e12146->a24365; /* x108694 stalin.sc:11334:395034 */ if (f8236(t61218)==FALSE_TYPE) goto l9550; /* x108802 */ /* x108780 stalin.sc:11341:395409 */ /* x108779 stalin.sc:11341:395414 */ /* x108702 stalin.sc:11341:395419 */ /* x108701 stalin.sc:11341:395433 */ /* x108700 stalin.sc:11341:395452 */ t61220 = e12146->a24365; /* x108699 stalin.sc:11341:395434 */ a36888 = t61220; /* x280221 */ /* x280220 */ t61221 = a36888; /* x280219 */ if (!((t61221.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31805]"); structure_ref_error();} t61219 = t61221.value.structure_type27692->s9; /* x108698 stalin.sc:11341:395420 */ if (f8148(t61219)==FALSE_TYPE) goto l9553; /* x108777 */ /* x108709 stalin.sc:11342:395459 */ /* x108708 stalin.sc:11343:395487 */ /* x108707 stalin.sc:11343:395499 */ /* x108706 stalin.sc:11343:395518 */ t61225 = e12146->a24365; /* x108705 stalin.sc:11343:395500 */ a36850 = t61225; /* x280069 */ /* x280068 */ t61226 = a36850; /* x280067 */ if (!((t61226.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31767]"); structure_ref_error();} t61224 = t61226.value.structure_type27692->s9; /* x108704 stalin.sc:11343:395488 */ t61222 = f8153(t61224); /* x108703 stalin.sc:11342:395460 */ a38098 = t61222; /* x285061 */ /* x285060 */ t61223 = a38098; /* x285059 */ if (!((t61223.tag)==STRUCTURE_TYPE27756)) goto l9553; /* x108775 */ /* x108716 stalin.sc:11344:395526 */ /* x108715 stalin.sc:11344:395535 */ /* x108714 stalin.sc:11344:395547 */ /* x108713 stalin.sc:11344:395566 */ t61229 = e12146->a24365; /* x108712 stalin.sc:11344:395548 */ a36849 = t61229; /* x280065 */ /* x280064 */ t61230 = a36849; /* x280063 */ if (!((t61230.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31766]"); structure_ref_error();} t61228 = t61230.value.structure_type27692->s9; /* x108711 stalin.sc:11344:395536 */ t61227 = f8153(t61228); /* x108710 stalin.sc:11344:395527 */ if ((f8899(t61227).tag)==FALSE_TYPE) goto l9553; /* x108773 */ /* x108725 stalin.sc:11345:395574 */ /* x108724 stalin.sc:11345:395579 */ /* x108723 stalin.sc:11345:395586 */ /* x108722 stalin.sc:11345:395598 */ /* x108721 stalin.sc:11345:395617 */ t61233 = e12146->a24365; /* x108720 stalin.sc:11345:395599 */ a36848 = t61233; /* x280061 */ /* x280060 */ t61234 = a36848; /* x280059 */ if (!((t61234.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31765]"); structure_ref_error();} t61232 = t61234.value.structure_type27692->s9; /* x108719 stalin.sc:11345:395587 */ t61231 = f8153(t61232); /* x108718 stalin.sc:11345:395580 */ if (!(f8918(t61231)==FALSE_TYPE)) goto l9553; /* x108771 */ /* x108770 stalin.sc:11354:395913 */ /* x108769 stalin.sc:11354:395928 */ /* x108768 stalin.sc:11354:395940 */ /* x108767 stalin.sc:11354:395959 */ t61242 = e12146->a24365; /* x108766 stalin.sc:11354:395941 */ a36847 = t61242; /* x280057 */ /* x280056 */ t61243 = a36847; /* x280055 */ if (!((t61243.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31764]"); structure_ref_error();} t61241 = t61243.value.structure_type27692->s9; /* x108765 stalin.sc:11354:395929 */ t61240 = f8153(t61241); /* x108764 stalin.sc:11354:395914 */ t61236 = f8984(t61240); /* x108763 stalin.sc:11347:395637 */ t61235 = e12146; /* x108726 stalin.sc:11346:395627 */ t61237.tag = NATIVE_PROCEDURE_TYPE19861; t61237.value.native_procedure_type19861 = t61235; t61238 = *((struct w49 *)(&t61236)); t61239 = (struct structure_type24753 *)NULL_TYPE; if (!(f1061(t61237, t61238, t61239)==FALSE_TYPE)) goto l9550; l9553: /* x108800 */ /* x108799 */ t61244 = e12146; p12153 = t61244; /* x108798 */ /* x108797 stalin.sc:11356:395989 */ /* x108796 stalin.sc:11356:395990 */ f9014(); /* x108795 */ t61245 = p12153; p12154 = t61245; /* x108794 stalin.sc:11357:396013 */ /* x108793 stalin.sc:11360:396134 */ /* x108792 stalin.sc:11360:396147 */ t61250 = p12154->a24365; /* x108791 stalin.sc:11360:396135 */ t61246 = f8244(t61250); /* x108790 stalin.sc:11357:396019 */ /* x108781 stalin.sc:11357:396014 */ t61247.tag = NATIVE_PROCEDURE_TYPE18055; t61248 = *((struct w49 *)(&t61246)); t61249 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t61247, t61248, t61249).tag)==FALSE_TYPE) goto l9550; /* x108920 */ /* x108919 */ t61251 = e12146; p12156 = t61251; /* x108918 */ /* x108865 stalin.sc:11361:396157 */ /* x108864 stalin.sc:11361:396158 */ f4651(); /* x108867 stalin.sc:11362:396200 */ /* x108866 stalin.sc:11362:396201 */ f9027(); /* x108875 stalin.sc:11363:396234 */ /* x108874 stalin.sc:11363:396290 */ t61259 = a1594; /* x108873 stalin.sc:11363:396244 */ /* x108868 stalin.sc:11363:396235 */ t61260.tag = NATIVE_PROCEDURE_TYPE18412; t61261 = *((struct w49 *)(&t61259)); t61262 = (struct structure_type24753 *)NULL_TYPE; f27755(t61260, t61261, t61262); /* x108917 stalin.sc:11364:396300 */ /* x108916 stalin.sc:11370:396523 */ /* x108915 stalin.sc:11370:396533 */ t61268 = p12156->a24365; /* x108914 stalin.sc:11370:396524 */ t61264 = f8243(t61268); /* x108913 stalin.sc:11365:396315 */ t61263 = p12156; /* x108876 stalin.sc:11364:396301 */ t61265.tag = NATIVE_PROCEDURE_TYPE18404; t61265.value.native_procedure_type18404 = t61263; t61266 = *((struct w49 *)(&t61264)); t61267 = (struct structure_type24753 *)NULL_TYPE; f27755(t61265, t61266, t61267); /* x108863 */ t61252 = p12156; p12157 = t61252; /* x108862 stalin.sc:11371:396541 */ /* x108861 stalin.sc:11393:397554 */ /* x108860 stalin.sc:11393:397567 */ t61258 = p12157->a24365; /* x108859 stalin.sc:11393:397555 */ t61254 = f8244(t61258); /* x108858 stalin.sc:11372:396556 */ /* x108807 stalin.sc:11371:396542 */ t61255.tag = NATIVE_PROCEDURE_TYPE18414; t61256 = *((struct w49 *)(&t61254)); t61257 = (struct structure_type24753 *)NULL_TYPE; f27755(t61255, t61256, t61257); return; l9550: /* x108922 stalin.sc:11333:395001 */ /* x108921 stalin.sc:11333:395001 */ return;} /* [inside DETERMINE-ESCAPING-TYPES! 12138] */ void f12138(struct w49 a24359) {struct w49 t61269; struct w49 t61270; struct w49 t61271; struct w49 t61273; struct w12224 t61274; struct w49 t61275; struct w49 t61276; unsigned t61277; struct w49 t61278; struct w49 t61279; struct w49 t61280; /* x108686 stalin.sc:11321:394524 */ /* x108647 stalin.sc:11321:394530 */ /* x108646 stalin.sc:11321:394549 */ t61269 = a24359; /* x108645 stalin.sc:11321:394531 */ if (f8526(t61269)==FALSE_TYPE) goto l9559; /* x108683 */ /* x108682 */ /* x108681 */ /* x108680 stalin.sc:11322:394558 */ /* x108678 stalin.sc:11322:394591 */ t61279 = a24359; /* x108679 stalin.sc:11322:394593 */ /* x108677 stalin.sc:11322:394559 */ t61280.tag = NULL_TYPE; f6824(t61279, t61280); /* x108676 */ /* x108675 stalin.sc:11324:394656 */ /* x108652 stalin.sc:11324:394664 */ /* x108651 stalin.sc:11324:394672 */ /* x108650 stalin.sc:11324:394680 */ t61271 = a24359; /* x108649 stalin.sc:11324:394673 */ t61270 = f8682(t61271); /* x108648 stalin.sc:11324:394665 */ if (f8581(t61270)==FALSE_TYPE) goto l9561; /* x108654 */ /* x108653 */ return; l9561: /* x108674 */ /* x108673 */ /* x108672 */ /* x108662 stalin.sc:11325:394691 */ /* x108661 stalin.sc:11325:394692 */ f4651(); /* x108664 stalin.sc:11326:394736 */ /* x108663 stalin.sc:11326:394737 */ f9014(); /* x108671 stalin.sc:11328:394829 */ /* x108667 stalin.sc:11328:394855 */ /* x108670 stalin.sc:11328:394871 */ /* x108669 stalin.sc:11328:394888 */ t61278 = a24359; /* x108668 stalin.sc:11328:394872 */ t61276 = f8687(t61278); /* x108665 stalin.sc:11328:394830 */ t61277 = NATIVE_PROCEDURE_TYPE18951; f9081(t61277, t61276); /* x108660 */ /* x108659 stalin.sc:11329:394899 */ /* x108656 stalin.sc:11329:394932 */ t61273 = a24359; /* x108658 stalin.sc:11329:394934 */ /* x108657 stalin.sc:11329:394935 */ t61274 = f12116(); /* x108655 stalin.sc:11329:394900 */ t61275 = *((struct w49 *)(&t61274)); f6824(t61273, t61275); return; l9559: /* x108685 stalin.sc:11321:394524 */ /* x108684 stalin.sc:11321:394524 */ return;} /* [inside DETERMINE-ESCAPING-TYPES! 12137] */ void f12137(struct w49 a24358) {struct w49 t61281; char *t61282; struct w49 t61283; /* x108640 stalin.sc:11319:394439 */ /* x108637 stalin.sc:11319:394472 */ t61281 = a24358; /* x108639 stalin.sc:11319:394474 */ /* x108638 stalin.sc:11319:394475 */ /* x277525 stalin.sc:323:8604 */ t61282 = q35; /* x108636 stalin.sc:11319:394440 */ t61283.tag = EXTERNAL_SYMBOL_TYPE; t61283.value.external_symbol_type = t61282; f6824(t61281, t61283); return;} /* [inside DETERMINE-ESCAPING-TYPES! 12135] */ void f12135(struct w49 a24357) {struct w49 t61284; struct w16638 t61285; /* x108610 stalin.sc:11513:402146 */ /* x108608 stalin.sc:11513:402173 */ t61284 = a24357; /* x108609 stalin.sc:11513:402175 */ /* x108607 stalin.sc:11513:402147 */ t61285.tag = FALSE_TYPE; f8472(t61284, t61285); return;} /* [inside DETERMINE-ESCAPING-TYPES! 12125] */ void f12125(struct p12119 *p12125, struct w49 a24349) {struct w12224 a24354; /* US */ struct w49 a38869; /* S */ struct w49 a39866; /* S */ struct w49 a39912; /* S */ struct w49 a40013; /* S */ struct w49 a40041; /* S */ struct w49 t61286; struct p12125 *t61287; struct w49 t61288; struct w211257 t61289; struct w49 t61290; struct w49 t61291; struct w49 t61292; struct w49 t61293; struct w49 t61294; struct w49 t61295; struct w49 t61296; struct w49 t61297; struct w49 t61298; struct p12125 *t61299; struct p12125 *t61300; struct p12125 *t61302; struct w12224 t61303; struct w12224 t61304; struct p12129 *t61305; struct p12129 *t61306; struct w49 t61307; unsigned t61308; struct w49 t61309; struct w49 t61310; struct w49 t61311; unsigned t61312; struct w49 t61313; struct w49 t61314; struct w49 t61315; struct p12125 *e12125; struct p12129 *e12129; struct p12125 *p12127; struct p12125 *p12128; struct p12125 *p12129; struct p12129 *p12131; e12125 = (struct p12125 *)alloca(sizeof(struct p12125)); if (e12125==NULL) {backtrace("stalin.sc", 11516, 402260); out_of_memory_error();} e12125->a24349 = a24349; /* x108597 stalin.sc:11517:402278 */ /* x108550 stalin.sc:11517:402284 */ /* x108518 stalin.sc:11517:402289 */ /* x108517 stalin.sc:11517:402300 */ t61286 = e12125->a24349; /* x108516 stalin.sc:11517:402290 */ if (f6967(t61286)==FALSE_TYPE) goto l9563; /* x108548 */ /* x108538 stalin.sc:11518:402306 */ /* x108532 stalin.sc:11519:402319 */ t61287 = e12125; /* x108537 stalin.sc:11522:402435 */ /* x108536 stalin.sc:11522:402456 */ /* x108535 stalin.sc:11522:402475 */ t61292 = e12125->a24349; /* x108534 stalin.sc:11522:402457 */ a38869 = t61292; /* x288145 */ /* x288144 */ t61293 = a38869; /* x288143 */ if (!((t61293.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33786]"); structure_ref_error();} t61290 = t61293.value.structure_type27698->s21; /* x108533 stalin.sc:11522:402436 */ a40013 = t61290; /* x292721 */ /* x292720 */ t61291 = a40013; /* x292719 */ if (!((t61291.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34930]"); structure_ref_error();} t61288 = t61291.value.structure_type27698->s10; /* x108519 stalin.sc:11518:402307 */ t61289.tag = NATIVE_PROCEDURE_TYPE16072; t61289.value.native_procedure_type16072 = t61287; if ((f8137(t61289, t61288).tag)==FALSE_TYPE) goto l9563; /* x108546 */ /* x108540 stalin.sc:11523:402492 */ t61294 = p12125->a24341; /* x108545 stalin.sc:11523:402495 */ /* x108544 stalin.sc:11523:402516 */ /* x108543 stalin.sc:11523:402532 */ t61298 = e12125->a24349; /* x108542 stalin.sc:11523:402517 */ t61296 = f6998(t61298); /* x108541 stalin.sc:11523:402496 */ a39912 = t61296; /* x292317 */ /* x292316 */ t61297 = a39912; /* x292315 */ if (!((t61297.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34829]"); structure_ref_error();} t61295 = t61297.value.structure_type27698->s10; /* x108539 stalin.sc:11523:402484 */ if (f8033(t61294, t61295)==FALSE_TYPE) goto l9563; /* x108594 */ /* x108593 */ t61299 = e12125; p12127 = t61299; /* x108592 */ /* x108580 stalin.sc:11524:402545 */ /* x108579 stalin.sc:11524:402546 */ f4651(); /* x108582 stalin.sc:11532:403083 */ /* x108581 stalin.sc:11532:403084 */ f9014(); /* x108591 stalin.sc:11534:403176 */ /* x108585 stalin.sc:11535:403203 */ /* x108590 stalin.sc:11535:403219 */ /* x108589 stalin.sc:11535:403240 */ /* x108588 stalin.sc:11535:403256 */ t61315 = p12127->a24349; /* x108587 stalin.sc:11535:403241 */ t61313 = f7008(t61315); /* x108586 stalin.sc:11535:403220 */ a39866 = t61313; /* x292133 */ /* x292132 */ t61314 = a39866; /* x292131 */ if (!((t61314.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34783]"); structure_ref_error();} t61311 = t61314.value.structure_type27698->s10; /* x108583 stalin.sc:11534:403177 */ t61312 = NATIVE_PROCEDURE_TYPE23750; f9081(t61312, t61311); /* x108578 */ t61300 = p12127; p12128 = t61300; /* x108577 stalin.sc:11536:403268 */ /* x108576 stalin.sc:11536:403278 */ /* x108575 stalin.sc:11536:403279 */ t61303 = f12116(); /* x108574 */ t61302 = p12128; p12129 = t61302; a24354 = t61303; e12129 = (struct p12129 *)alloca(sizeof(struct p12129)); if (e12129==NULL) {backtrace_internal("[inside DETERMINE-ESCAPING-TYPES! 12128]"); out_of_memory_error();} e12129->p12125 = p12129; e12129->a24354 = a24354; /* x108573 stalin.sc:11537:403306 */ /* x108553 stalin.sc:11537:403314 */ /* x108552 stalin.sc:11537:403321 */ t61304 = e12129->a24354; /* x269459 stalin.sc:11537:403315 */ if (!((t61304.tag)==NULL_TYPE)) goto l9567; /* x108555 */ /* x108554 */ return; l9567: /* x108572 */ /* x108571 */ t61305 = e12129; p12131 = t61305; /* x108570 stalin.sc:11538:403327 */ /* x108566 stalin.sc:11539:403354 */ t61306 = p12131; /* x108569 stalin.sc:11542:403458 */ /* x108568 stalin.sc:11542:403482 */ t61309 = p12131->p12125->a24349; /* x108567 stalin.sc:11542:403459 */ a40041 = t61309; /* x292833 */ /* x292832 */ t61310 = a40041; /* x292831 */ if (!((t61310.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34958]"); structure_ref_error();} t61307 = t61310.value.structure_type27698->s9; /* x108556 stalin.sc:11538:403328 */ t61308 = ((unsigned)t61306)+1; f12102(t61308, t61307); return; l9563: /* x108596 stalin.sc:11517:402278 */ /* x108595 stalin.sc:11517:402278 */ return;} /* [inside DETERMINE-ESCAPING-TYPES! 12119] */ void f12119(struct w49 a24341) {struct p12119 *t61316; struct p12119 *t61317; struct w21193 t61318; struct w228345 t61319; struct w49 t61320; struct structure_type24753 *t61321; struct p12119 *t61322; struct p12119 *t61323; struct p12119 *t61325; struct w21193 t61326; struct w36108 t61327; struct w49 t61328; struct structure_type24753 *t61329; struct w21193 t61330; struct w36108 t61331; struct w49 t61332; struct structure_type24753 *t61333; struct w49 t61334; struct p12119 *e12119; struct p12119 *p12120; struct p12119 *p12123; struct p12119 *p12124; e12119 = (struct p12119 *)alloca(sizeof(struct p12119)); if (e12119==NULL) {backtrace_internal("[inside DETERMINE-ESCAPING-TYPES! 12118]"); out_of_memory_error();} e12119->a24341 = a24341; /* x108626 */ /* x108625 stalin.sc:11496:401549 */ /* x108624 stalin.sc:11496:401550 */ f9014(); /* x108623 */ t61316 = e12119; p12120 = t61316; /* x108622 stalin.sc:11497:401568 */ /* x108514 stalin.sc:11497:401574 */ /* x108513 stalin.sc:11510:402034 */ t61318 = a2030; /* x108512 stalin.sc:11498:401583 */ t61317 = p12120; /* x108466 stalin.sc:11497:401575 */ t61319.tag = NATIVE_PROCEDURE_TYPE16066; t61319.value.native_procedure_type16066 = t61317; t61320 = *((struct w49 *)(&t61318)); t61321 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t61319, t61320, t61321).tag)==FALSE_TYPE) goto l9569; /* x108619 */ /* x108618 */ t61322 = p12120; p12123 = t61322; /* x108617 */ /* x108603 stalin.sc:11511:402047 */ /* x108602 stalin.sc:11511:402048 */ f4651(); /* x108605 stalin.sc:11512:402090 */ /* x108604 stalin.sc:11512:402091 */ f9027(); /* x108613 stalin.sc:11513:402124 */ /* x108612 stalin.sc:11513:402180 */ t61330 = a1594; /* x108611 stalin.sc:11513:402134 */ /* x108606 stalin.sc:11513:402125 */ t61331.tag = NATIVE_PROCEDURE_TYPE16069; t61332 = *((struct w49 *)(&t61330)); t61333 = (struct structure_type24753 *)NULL_TYPE; f27755(t61331, t61332, t61333); /* x108616 stalin.sc:11514:402190 */ /* x108615 stalin.sc:11514:402237 */ t61334 = p12123->a24341; /* x108614 stalin.sc:11514:402191 */ f12041(t61334); /* x108601 */ t61323 = p12123; p12124 = t61323; /* x108600 stalin.sc:11515:402245 */ /* x108599 stalin.sc:11545:403595 */ t61326 = a2030; /* x108598 stalin.sc:11516:402260 */ t61325 = p12124; /* x108515 stalin.sc:11515:402246 */ t61327.tag = NATIVE_PROCEDURE_TYPE16071; t61327.value.native_procedure_type16071 = t61325; t61328 = *((struct w49 *)(&t61326)); t61329 = (struct structure_type24753 *)NULL_TYPE; f27755(t61327, t61328, t61329); return; l9569: /* x108621 stalin.sc:11497:401568 */ /* x108620 stalin.sc:11497:401568 */ return;} /* IMPORTANT-MARKED-TYPES[12116] */ struct w12224 f12116(void) {struct w49 t61335; unsigned t61336; struct w12224 t61337; struct w12224 t61338; struct w12224 t61339; struct w12224 t61340; struct w12224 t61341; struct w12224 t61342; struct structure_type24753 *t61343; struct w49 t61344; struct w49 t61345; struct w49 t61346; struct w49 t61347; struct w49 t61348; struct w21193 t61349; struct w227671 t61350; struct w49 t61351; struct w21193 t61352; struct w227671 t61353; struct w49 t61354; struct w21193 t61355; struct w227671 t61356; struct w49 t61357; struct w21193 t61358; struct w227671 t61359; struct w49 t61360; struct w21193 t61361; struct w227671 t61362; struct w49 t61363; struct w21193 t61364; struct w227671 t61365; struct w49 t61366; /* x108462 stalin.sc:11308:393933 */ /* x108435 stalin.sc:11309:393946 */ /* x108461 stalin.sc:11310:393972 */ /* x108460 stalin.sc:11316:394305 */ /* x108458 stalin.sc:11316:394320 */ /* x108459 stalin.sc:11316:394350 */ t61364 = a1938; /* x108457 stalin.sc:11316:394306 */ t61365.tag = NATIVE_PROCEDURE_TYPE7456; t61366 = *((struct w49 *)(&t61364)); t61342 = f1226(t61365, t61366); /* x108456 stalin.sc:11315:394237 */ /* x108454 stalin.sc:11315:394252 */ /* x108455 stalin.sc:11315:394279 */ t61361 = a1939; /* x108453 stalin.sc:11315:394238 */ t61362.tag = NATIVE_PROCEDURE_TYPE7473; t61363 = *((struct w49 *)(&t61361)); t61341 = f1226(t61362, t61363); /* x108452 stalin.sc:11314:394177 */ /* x108450 stalin.sc:11314:394192 */ /* x108451 stalin.sc:11314:394215 */ t61358 = a1940; /* x108449 stalin.sc:11314:394178 */ t61359.tag = NATIVE_PROCEDURE_TYPE7494; t61360 = *((struct w49 *)(&t61358)); t61340 = f1226(t61359, t61360); /* x108448 stalin.sc:11313:394123 */ /* x108446 stalin.sc:11313:394138 */ /* x108447 stalin.sc:11313:394158 */ t61355 = a1942; /* x108445 stalin.sc:11313:394124 */ t61356.tag = NATIVE_PROCEDURE_TYPE7510; t61357 = *((struct w49 *)(&t61355)); t61339 = f1226(t61356, t61357); /* x108444 stalin.sc:11312:394057 */ /* x108442 stalin.sc:11312:394072 */ /* x108443 stalin.sc:11312:394098 */ t61352 = a1943; /* x108441 stalin.sc:11312:394058 */ t61353.tag = NATIVE_PROCEDURE_TYPE7522; t61354 = *((struct w49 *)(&t61352)); t61338 = f1226(t61353, t61354); /* x108440 stalin.sc:11311:393983 */ /* x108438 stalin.sc:11311:393998 */ /* x108439 stalin.sc:11311:394028 */ t61349 = a1945; /* x108437 stalin.sc:11311:393984 */ t61350.tag = NATIVE_PROCEDURE_TYPE7544; t61351 = *((struct w49 *)(&t61349)); t61337 = f1226(t61350, t61351); /* x108436 stalin.sc:11310:393973 */ t61348.tag = STRUCTURE_TYPE24753; t61348.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t61348.value.structure_type24753)==NULL) {backtrace("stalin.sc", 11310, 393972); out_of_memory_error();} t61348.value.structure_type24753->s0 = *((struct w49 *)(&t61342)); t61348.value.structure_type24753->s1.tag = NULL_TYPE; t61347.tag = STRUCTURE_TYPE24753; t61347.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t61347.value.structure_type24753)==NULL) {backtrace("stalin.sc", 11310, 393972); out_of_memory_error();} t61347.value.structure_type24753->s0 = *((struct w49 *)(&t61341)); t61347.value.structure_type24753->s1 = t61348; t61346.tag = STRUCTURE_TYPE24753; t61346.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t61346.value.structure_type24753)==NULL) {backtrace("stalin.sc", 11310, 393972); out_of_memory_error();} t61346.value.structure_type24753->s0 = *((struct w49 *)(&t61340)); t61346.value.structure_type24753->s1 = t61347; t61345.tag = STRUCTURE_TYPE24753; t61345.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t61345.value.structure_type24753)==NULL) {backtrace("stalin.sc", 11310, 393972); out_of_memory_error();} t61345.value.structure_type24753->s0 = *((struct w49 *)(&t61339)); t61345.value.structure_type24753->s1 = t61346; t61344.tag = STRUCTURE_TYPE24753; t61344.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t61344.value.structure_type24753)==NULL) {backtrace("stalin.sc", 11310, 393972); out_of_memory_error();} t61344.value.structure_type24753->s0 = *((struct w49 *)(&t61338)); t61344.value.structure_type24753->s1 = t61345; t61343 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t61343==NULL) {backtrace("stalin.sc", 11310, 393972); out_of_memory_error();} t61343->s0 = *((struct w49 *)(&t61337)); t61343->s1 = t61344; t61335 = f26254(t61343); /* x108434 stalin.sc:11308:393934 */ t61336 = NATIVE_PROCEDURE_TYPE7202; return f1218(t61336, t61335);} /* IMPORTANT?[12110] */ unsigned f12110(struct w49 a24330) {struct w49 a37409; /* OBJ */ struct w49 a37526; /* OBJ */ struct w49 a37671; /* OBJ */ struct w49 a37740; /* OBJ */ struct w49 a37847; /* OBJ */ struct w49 a38041; /* OBJ */ struct w49 t61367; struct w49 t61368; struct w49 t61369; struct w49 t61370; struct w49 t61371; struct w49 t61372; struct w49 t61373; struct w49 t61374; struct w49 t61375; struct w49 t61376; struct w49 t61377; struct w49 t61378; struct w49 t61379; /* x108431 stalin.sc:11299:393693 */ /* x108431 stalin.sc:11299:393693 */ /* x108424 stalin.sc:11299:393698 */ /* x108423 stalin.sc:11299:393702 */ /* x108422 stalin.sc:11299:393726 */ t61367 = a24330; /* x108421 stalin.sc:11299:393703 */ a38041 = t61367; /* x284833 */ /* x284832 */ t61368 = a38041; /* x284831 */ if ((t61368.tag)==STRUCTURE_TYPE27756) goto l9573; /* x108418 */ /* x108417 stalin.sc:11300:393732 */ /* x108416 stalin.sc:11300:393752 */ t61369 = a24330; /* x108415 stalin.sc:11300:393733 */ a37847 = t61369; /* x284057 */ /* x284056 */ t61370 = a37847; /* x284055 */ if ((t61370.tag)==STRUCTURE_TYPE27858) goto l9573; /* x108412 */ /* x108411 stalin.sc:11301:393758 */ /* x108410 stalin.sc:11301:393772 */ t61371 = a24330; /* x108409 stalin.sc:11301:393759 */ a37740 = t61371; /* x283629 */ /* x283628 */ t61372 = a37740; /* x283627 */ if ((t61372.tag)==STRUCTURE_TYPE27673) goto l9573; /* x108406 */ /* x108405 stalin.sc:11302:393778 */ /* x108404 stalin.sc:11302:393795 */ t61373 = a24330; /* x108403 stalin.sc:11302:393779 */ a37671 = t61373; /* x283353 */ /* x283352 */ t61374 = a37671; /* x283351 */ if ((t61374.tag)==STRUCTURE_TYPE27769) goto l9573; /* x108400 */ /* x108399 stalin.sc:11303:393801 */ /* x108398 stalin.sc:11303:393822 */ t61375 = a24330; /* x108397 stalin.sc:11303:393802 */ a37526 = t61375; /* x282773 */ /* x282772 */ t61376 = a37526; /* x282771 */ if ((t61376.tag)==STRUCTURE_TYPE27761) goto l9573; /* x108394 */ /* x108393 stalin.sc:11304:393852 */ t61377 = a24330; /* x108392 stalin.sc:11304:393829 */ a37409 = t61377; /* x282305 */ /* x282304 */ t61378 = a37409; /* x282303 */ if (!((t61378.tag)==STRUCTURE_TYPE27669)) goto l9571; l9573: /* x108429 */ /* x108428 stalin.sc:11305:393867 */ /* x108427 stalin.sc:11305:393892 */ t61379 = a24330; /* x108426 stalin.sc:11305:393868 */ if (!(f9390(t61379)==FALSE_TYPE)) goto l9571; return TRUE_TYPE; l9571: return FALSE_TYPE;} /* LOOP[12105] */ void f12105(struct p12103 *p12105, struct w49 a24326) {struct w49 a20768; /* S */ struct w49 a24355; /* E */ struct w49 a24382; /* E */ struct w49 a24415; /* E */ struct w49 a36534; /* S */ struct w49 a36537; /* S */ struct w49 a36573; /* S */ struct w49 a36580; /* S */ struct w49 t61380; struct p12103 *t61381; struct p12103 *t61382; struct p12103 *t61383; struct w3457 t61384; struct w36108 t61385; struct w49 t61386; struct structure_type24753 *t61387; struct w49 t61388; struct w49 t61389; struct w49 t61390; struct w16638 t61391; unsigned t61392; struct w49 t61393; struct w49 t61394; struct w49 t61395; struct w49 t61396; struct w12224 t61397; struct w49 t61398; struct w49 t61399; struct w49 t61400; struct w49 t61401; struct w49 t61402; struct w49 t61403; struct w12224 t61404; struct w49 t61405; struct w49 t61406; struct w49 t61407; struct w49 t61408; struct w49 t61409; struct w49 t61410; struct w12224 t61411; struct w49 t61412; struct w49 t61413; struct w49 t61414; struct p12103 *t61415; struct w3457 t61416; struct w36108 t61417; struct w49 t61418; struct structure_type24753 *t61419; struct w49 t61420; struct w49 t61421; struct p12103 *p12106; struct p12103 *p12107; struct p12129 *p12132; struct p12161 *p12164; struct p12202 *p12205; /* x108370 stalin.sc:11292:393475 */ /* x108344 stalin.sc:11292:393481 */ /* x108343 stalin.sc:11292:393503 */ t61380 = a24326; /* x108342 stalin.sc:11292:393482 */ if (f8471(t61380)==FALSE_TYPE) goto l9580; /* x108367 */ /* x108366 */ t61381 = p12105; p12106 = t61381; /* x108365 */ /* x108355 stalin.sc:11293:393509 */ /* x108353 stalin.sc:11293:393536 */ t61390 = a24326; /* x108354 stalin.sc:11293:393538 */ /* x108352 stalin.sc:11293:393510 */ t61391.tag = FALSE_TYPE; f8472(t61390, t61391); /* x108358 stalin.sc:11294:393545 */ /* x108357 stalin.sc:11294:393548 */ t61393 = a24326; /* x108356 stalin.sc:11294:393546 */ t61392 = p12106->p12102->a24322; switch (t61392&3) {case 2: p12164 = (struct p12161 *)(t61392-2); a24382 = t61393; /* x108825 stalin.sc:11390:397429 */ /* x108818 stalin.sc:11391:397467 */ t61394 = a24382; /* x108824 stalin.sc:11391:397469 */ /* x108822 stalin.sc:11391:397477 */ /* x108821 stalin.sc:11391:397505 */ t61399 = a24382; /* x108820 stalin.sc:11391:397478 */ a36537 = t61399; /* x278817 */ /* x278816 */ t61400 = a36537; /* x278815 */ if (!((t61400.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-ESCAPING-TYPES[6823] 31454]"); structure_ref_error();} t61396 = t61400.value.structure_type27694->s24; /* x108823 stalin.sc:11391:397508 */ t61397 = p12164->a24381; /* x108819 stalin.sc:11391:397470 */ t61398 = *((struct w49 *)(&t61397)); t61395 = f1390(t61396, t61398); /* x108817 stalin.sc:11390:397430 */ f6824(t61394, t61395); break; case 0: p12205 = (struct p12202 *)t61392; a24415 = t61393; /* x109175 stalin.sc:11487:401260 */ /* x109168 stalin.sc:11488:401298 */ t61401 = a24415; /* x109174 stalin.sc:11488:401300 */ /* x109172 stalin.sc:11488:401308 */ /* x109171 stalin.sc:11488:401336 */ t61406 = a24415; /* x109170 stalin.sc:11488:401309 */ a36534 = t61406; /* x278805 */ /* x278804 */ t61407 = a36534; /* x278803 */ if (!((t61407.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-ESCAPING-TYPES[6823] 31451]"); structure_ref_error();} t61403 = t61407.value.structure_type27694->s24; /* x109173 stalin.sc:11488:401339 */ t61404 = p12205->a24414; /* x109169 stalin.sc:11488:401301 */ t61405 = *((struct w49 *)(&t61404)); t61402 = f1390(t61403, t61405); /* x109167 stalin.sc:11487:401261 */ f6824(t61401, t61402); break; default: p12132 = (struct p12129 *)(t61392-1); a24355 = t61393; /* x108565 stalin.sc:11540:403370 */ /* x108558 stalin.sc:11541:403408 */ t61408 = a24355; /* x108564 stalin.sc:11541:403410 */ /* x108562 stalin.sc:11541:403418 */ /* x108561 stalin.sc:11541:403446 */ t61413 = a24355; /* x108560 stalin.sc:11541:403419 */ a20768 = t61413; /* x56276 */ /* x56275 */ t61414 = a20768; /* x56274 */ if (!((t61414.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("ENVIRONMENT-ESCAPING-TYPES[6823]"); structure_ref_error();} t61410 = t61414.value.structure_type27694->s24; /* x108563 stalin.sc:11541:403449 */ t61411 = p12132->a24354; /* x108559 stalin.sc:11541:403411 */ t61412 = *((struct w49 *)(&t61411)); t61409 = f1390(t61410, t61412); /* x108557 stalin.sc:11540:403371 */ f6824(t61408, t61409);} /* x108364 stalin.sc:11295:393554 */ /* x108363 stalin.sc:11295:393569 */ /* x108362 stalin.sc:11295:393602 */ t61420 = a24326; /* x108361 stalin.sc:11295:393570 */ a36580 = t61420; /* x278989 */ /* x278988 */ t61421 = a36580; /* x278987 */ if (!((t61421.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLERS[6767] 31497]"); structure_ref_error();} t61416 = t61421.value.structure_type27694->s17; /* x108360 stalin.sc:11295:393564 */ t61415 = p12106->a24324; /* x108359 stalin.sc:11295:393555 */ t61417.tag = NATIVE_PROCEDURE_TYPE18447; t61417.value.native_procedure_type18447 = t61415; t61418 = *((struct w49 *)(&t61416)); t61419 = (struct structure_type24753 *)NULL_TYPE; f27755(t61417, t61418, t61419); /* x108351 */ t61382 = p12106; p12107 = t61382; /* x108350 stalin.sc:11296:393609 */ /* x108349 stalin.sc:11296:393624 */ /* x108348 stalin.sc:11296:393661 */ t61388 = a24326; /* x108347 stalin.sc:11296:393625 */ a36573 = t61388; /* x278961 */ /* x278960 */ t61389 = a36573; /* x278959 */ if (!((t61389.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-NON-TAIL-CALLERS[6775] 31490]"); structure_ref_error();} t61384 = t61389.value.structure_type27694->s18; /* x108346 stalin.sc:11296:393619 */ t61383 = p12107->a24324; /* x108345 stalin.sc:11296:393610 */ t61385.tag = NATIVE_PROCEDURE_TYPE18447; t61385.value.native_procedure_type18447 = t61383; t61386 = *((struct w49 *)(&t61384)); t61387 = (struct structure_type24753 *)NULL_TYPE; f27755(t61385, t61386, t61387); return; l9580: /* x108369 stalin.sc:11292:393475 */ /* x108368 stalin.sc:11292:393475 */ return;} /* FOR-EACH-MARKED-CALLER[12102] */ void f12102(unsigned a24322, struct w49 a24323) {char *sfp12102; struct p12103 *a24324; /* LOOP */ struct p12103 *t61422; struct w49 t61423; struct p12102 *t61424; struct p12103 *t61425; struct p12102 *e12102; struct p12103 *e12103; struct p12102 *p12103; struct p12103 *p12104; sfp12102 = fp12102; e12102 = (struct p12102 *)alloca(sizeof(struct p12102)); if (e12102==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e12102->a24322 = a24322; /* x108379 stalin.sc:11291:393455 */ /* x108378 stalin.sc:11291:393469 */ t61423 = a24323; /* x108377 */ /* x108376 */ /* x108375 */ /* x108374 */ t61424 = e12102; p12103 = t61424; if ((fp12102+sizeof(struct p12103))>(&((region12102->data)[region_size12102]))) {struct region12102 *region; unsigned region_size = REGION_SIZE12102; if (sizeof(struct p12103)>region_size) region_size = sizeof(struct p12103); region = (struct region12102 *)GC_malloc_uncollectable(sizeof(struct region12102)+(region_size-1)); if (region==NULL) {backtrace_internal("FOR-EACH-MARKED-CALLER[12102]"); out_of_memory_error();} region->region = region12102; region->region_size = region_size12102; region_size12102 = region_size; region12102 = region; fp12102 = &((region->data)[0]); ALIGN(fp12102);} e12103 = (struct p12103 *)fp12102; fp12102 += sizeof(struct p12103)+((4-(sizeof(struct p12103)%4))&3); e12103->p12102 = p12103; e12103->a24324 = a24324; /* x108373 */ /* x108372 */ /* x108371 */ e12103->a24324 = e12103; /* x108341 */ t61425 = e12103; p12104 = t61425; /* x108340 stalin.sc:11291:393460 */ t61422 = p12104->a24324; f12105(t61422, t61423); while ((sfp12102<(&((region12102->data)[0])))||(sfp12102>(&((region12102->data)[region_size12102])))) {struct region12102 *region; region = region12102; region_size12102 = region12102->region_size; region12102 = region12102->region; GC_free(region);} fp12102 = sfp12102; return;} /* LOOP[12096] */ void f12096(struct w49 a24319) {struct w49 a36554; /* S */ struct w49 a36564; /* S */ struct w49 t61426; struct w3457 t61427; struct w36108 t61428; struct w49 t61429; struct structure_type24753 *t61430; struct w49 t61431; struct w49 t61432; struct w49 t61433; struct w16638 t61434; struct w3457 t61435; struct w36108 t61436; struct w49 t61437; struct structure_type24753 *t61438; struct w49 t61439; struct w49 t61440; /* x108317 stalin.sc:11242:391602 */ /* x108294 stalin.sc:11242:391610 */ /* x108293 stalin.sc:11242:391632 */ t61426 = a24319; /* x108292 stalin.sc:11242:391611 */ if (f8471(t61426)==FALSE_TYPE) goto l9582; /* x108296 */ /* x108295 */ return; l9582: /* x108316 */ /* x108315 */ /* x108314 */ /* x108307 stalin.sc:11243:391639 */ /* x108305 stalin.sc:11243:391666 */ t61433 = a24319; /* x108306 stalin.sc:11243:391668 */ /* x108304 stalin.sc:11243:391640 */ t61434.tag = TRUE_TYPE; f8472(t61433, t61434); /* x108313 stalin.sc:11244:391676 */ /* x108312 stalin.sc:11244:391691 */ /* x108311 stalin.sc:11244:391724 */ t61439 = a24319; /* x108310 stalin.sc:11244:391692 */ a36564 = t61439; /* x278925 */ /* x278924 */ t61440 = a36564; /* x278923 */ if (!((t61440.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLEES[6783] 31481]"); structure_ref_error();} t61435 = t61440.value.structure_type27694->s19; /* x108309 stalin.sc:11244:391686 */ /* x108308 stalin.sc:11244:391677 */ t61436.tag = NATIVE_PROCEDURE_TYPE17476; t61437 = *((struct w49 *)(&t61435)); t61438 = (struct structure_type24753 *)NULL_TYPE; f27755(t61436, t61437, t61438); /* x108303 */ /* x108302 stalin.sc:11245:391732 */ /* x108301 stalin.sc:11245:391747 */ /* x108300 stalin.sc:11245:391784 */ t61431 = a24319; /* x108299 stalin.sc:11245:391748 */ a36554 = t61431; /* x278885 */ /* x278884 */ t61432 = a36554; /* x278883 */ if (!((t61432.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-NON-TAIL-CALLEES[6791] 31471]"); structure_ref_error();} t61427 = t61432.value.structure_type27694->s20; /* x108298 stalin.sc:11245:391742 */ /* x108297 stalin.sc:11245:391733 */ t61428.tag = NATIVE_PROCEDURE_TYPE17476; t61429 = *((struct w49 *)(&t61427)); t61430 = (struct structure_type24753 *)NULL_TYPE; f27755(t61428, t61429, t61430); return;} /* [inside INNER 12075] */ void f12075(struct p12057 *p12075, struct w49 a24311) {char *a24312; /* v */ struct w49 a39484; /* S */ struct w49 a39485; /* S */ struct w49 a40295; /* S */ struct p12057 *t61441; char *t61442; char *t61443; char *t61444; struct w49 t61445; struct w49 t61446; char *t61447; char *t61448; struct w49 t61449; struct w49 t61450; char *t61451; char *t61452; struct w49 t61453; struct w49 t61454; struct p12057 *t61455; struct w9140 t61456; struct w49 t61457; struct w49 t61458; struct w49 t61459; struct p12057 *t61460; struct p12057 *t61461; struct w9140 t61462; struct w49 t61463; struct w49 t61464; struct w49 t61465; struct w49 t61466; struct w49 t61467; struct p12057 *p12076; struct p12057 *p12079; struct p12057 *p12080; /* x108178 stalin.sc:11280:393023 */ /* x108177 stalin.sc:11280:393029 */ /* x108176 stalin.sc:11280:393046 */ t61466 = a24311; /* x108175 stalin.sc:11280:393030 */ a40295 = t61466; /* x293849 */ /* x293848 */ t61467 = a40295; /* x293847 */ if (!((t61467.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35212]"); structure_ref_error();} t61442 = t61467.value.structure_type27698->s0; /* x108174 */ t61441 = p12075; p12076 = t61441; a24312 = t61442; /* x108173 */ /* x108153 */ /* x108152 */ /* x108150 */ t61443 = a24312; /* x108151 */ t61444 = q39; /* x108149 */ t61445.tag = EXTERNAL_SYMBOL_TYPE; t61445.value.external_symbol_type = t61443; t61446.tag = EXTERNAL_SYMBOL_TYPE; t61446.value.external_symbol_type = t61444; if (!(f26160(t61445, t61446)==FALSE_TYPE)) goto l9583; /* x108146 */ /* x108145 */ /* x108143 */ t61447 = a24312; /* x108144 */ t61448 = q40; /* x108142 */ t61449.tag = EXTERNAL_SYMBOL_TYPE; t61449.value.external_symbol_type = t61447; t61450.tag = EXTERNAL_SYMBOL_TYPE; t61450.value.external_symbol_type = t61448; if (!(f26160(t61449, t61450)==FALSE_TYPE)) goto l9583; /* x108139 */ /* x108137 */ t61451 = a24312; /* x108138 */ t61452 = q41; /* x108136 */ t61453.tag = EXTERNAL_SYMBOL_TYPE; t61453.value.external_symbol_type = t61451; t61454.tag = EXTERNAL_SYMBOL_TYPE; t61454.value.external_symbol_type = t61452; if (f26160(t61453, t61454)==FALSE_TYPE) goto l9584; l9583: /* x108170 */ /* x108169 */ t61455 = p12076; p12079 = t61455; /* x108168 stalin.sc:11282:393108 */ /* x108158 stalin.sc:11282:393114 */ /* x108157 stalin.sc:11282:393133 */ /* x108156 stalin.sc:11282:393164 */ t61458 = a24311; /* x108155 stalin.sc:11282:393134 */ a39485 = t61458; /* x290609 */ /* x290608 */ t61459 = a39485; /* x290607 */ if (!((t61459.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34402]"); structure_ref_error();} t61456 = t61459.value.structure_type27698->s13; /* x108154 stalin.sc:11282:393115 */ t61457 = *((struct w49 *)(&t61456)); if (f8526(t61457)==FALSE_TYPE) goto l9588; /* x108165 */ /* x108164 */ t61460 = p12079; p12080 = t61460; /* x108163 stalin.sc:11283:393174 */ /* x108162 stalin.sc:11283:393181 */ /* x108161 stalin.sc:11283:393212 */ t61464 = a24311; /* x108160 stalin.sc:11283:393182 */ a39484 = t61464; /* x290605 */ /* x290604 */ t61465 = a39484; /* x290603 */ if (!((t61465.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34401]"); structure_ref_error();} t61462 = t61465.value.structure_type27698->s13; /* x108159 stalin.sc:11283:393175 */ t61461 = p12080; t61463 = *((struct w49 *)(&t61462)); f12073(t61461, t61463); return; l9588: /* x108167 stalin.sc:11282:393108 */ /* x108166 stalin.sc:11282:393108 */ return; l9584: /* x108172 */ /* x108171 */ return;} /* INNER[12073] */ void f12073(struct p12057 *p12073, struct w49 a24309) {struct w49 a36546; /* S */ struct w49 a37117; /* S */ struct p12057 *t61468; struct p12057 *t61469; struct w11873 t61470; struct w36108 t61471; struct w49 t61472; struct structure_type24753 *t61473; struct w49 t61474; struct w49 t61475; struct w49 t61476; struct w3457 t61477; struct w49 t61478; struct w49 t61479; struct w49 t61480; struct w49 t61481; struct w49 t61482; struct w49 t61483; struct p12057 *p12074; /* x108203 */ /* x108202 stalin.sc:11276:392900 */ /* x108192 stalin.sc:11276:392906 */ /* x108188 stalin.sc:11276:392912 */ /* x108187 stalin.sc:11276:392931 */ t61479 = p12073->a24304; /* x108186 stalin.sc:11276:392913 */ a37117 = t61479; /* x281137 */ /* x281136 */ t61480 = a37117; /* x281135 */ if (!((t61480.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32034]"); structure_ref_error();} t61476 = t61480.value.structure_type27650->s0; /* x108191 stalin.sc:11276:392936 */ /* x108190 stalin.sc:11276:392952 */ t61481 = a24309; /* x108189 stalin.sc:11276:392937 */ t61477 = f8629(t61481); /* x108185 stalin.sc:11276:392907 */ t61478 = *((struct w49 *)(&t61477)); if ((f26351(t61476, t61478).tag)==FALSE_TYPE) goto l9590; /* x108199 */ /* x108198 */ /* x108197 stalin.sc:11277:392958 */ /* x108196 stalin.sc:11277:392965 */ /* x108195 stalin.sc:11277:392983 */ t61483 = a24309; /* x108194 stalin.sc:11277:392966 */ t61482 = f8691(t61483); /* x108193 stalin.sc:11277:392959 */ f12057(t61482); goto l9591; l9590: /* x108201 stalin.sc:11276:392900 */ /* x108200 stalin.sc:11276:392900 */ l9591: /* x108184 */ t61468 = p12073; p12074 = t61468; /* x108183 stalin.sc:11278:392996 */ /* x108182 stalin.sc:11284:393222 */ /* x108181 stalin.sc:11284:393247 */ t61474 = a24309; /* x108180 stalin.sc:11284:393223 */ a36546 = t61474; /* x278853 */ /* x278852 */ t61475 = a36546; /* x278851 */ if (!((t61475.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSIONS[6807] 31463]"); structure_ref_error();} t61470 = t61475.value.structure_type27694->s22; /* x108179 stalin.sc:11279:393008 */ t61469 = p12074; /* x108131 stalin.sc:11278:392997 */ t61471.tag = NATIVE_PROCEDURE_TYPE18964; t61471.value.native_procedure_type18964 = t61469; t61472 = *((struct w49 *)(&t61470)); t61473 = (struct structure_type24753 *)NULL_TYPE; f27755(t61471, t61472, t61473); return;} /* OUTER[12057] */ void f12057(struct w49 a24304) {struct w49 a24315; /* E */ struct w49 a36556; /* S */ struct w49 a36567; /* S */ struct w49 a36952; /* S */ struct w49 a37028; /* OBJ */ struct w49 a37124; /* S */ struct w49 a37125; /* S */ struct w49 a37129; /* S */ struct w49 a37130; /* S */ struct w49 a37135; /* S */ struct w49 a37136; /* S */ struct w49 a37137; /* S */ struct w49 a37138; /* S */ struct w49 a37139; /* S */ struct w49 a37152; /* OBJ */ struct w49 a40114; /* S */ struct w49 a40451; /* OBJ */ struct w49 t61484; struct w49 t61485; struct w49 t61486; char *t61487; struct p12057 *t61488; struct w49 t61489; struct p12057 *t61490; struct p12057 *t61491; struct w49 t61492; struct w49 t61493; struct w49 t61494; struct w49 t61495; struct w49 t61496; struct w49 t61497; struct w49 t61498; struct w49 t61499; struct w49 t61500; struct w49 t61501; struct w49 t61502; struct w49 t61503; struct w49 t61504; struct w49 t61505; char *t61506; struct p12057 *t61507; struct w49 t61508; struct w49 t61509; struct w49 t61510; struct p12057 *t61511; struct w49 t61512; struct w49 t61513; struct w49 t61514; struct w49 t61515; struct p12057 *t61516; struct p12057 *t61517; struct w49 t61518; struct p12057 *t61519; struct p12057 *t61520; struct w49 t61521; struct w49 t61522; struct w49 t61523; struct w49 t61524; struct p12057 *t61525; struct w49 t61526; struct w49 t61527; struct w49 t61528; struct p12057 *t61529; struct w49 t61530; struct w3457 t61531; struct w36108 t61532; struct w49 t61533; struct structure_type24753 *t61534; struct w49 t61535; struct w49 t61536; struct w3457 t61537; struct w36108 t61538; struct w49 t61539; struct structure_type24753 *t61540; struct w49 t61541; struct w49 t61542; struct w49 t61543; struct w49 t61544; struct w49 t61545; struct w49 t61546; struct w49 t61547; unsigned t61548; struct p12057 *t61549; struct w49 t61550; struct p12057 *t61551; struct p12057 *t61552; struct w3457 t61553; struct w36108 t61554; struct w49 t61555; struct structure_type24753 *t61556; struct w49 t61557; struct w49 t61558; struct p12057 *e12057; struct p12057 *p12058; struct p12057 *p12060; struct p12057 *p12061; struct p12057 *p12062; struct p12057 *p12064; struct p12057 *p12065; struct p12057 *p12066; struct p12057 *p12067; struct p12057 *p12069; struct p12057 *p12070; struct p12057 *p12071; struct p12057 *p12072; struct p12057 *p12087; h12057: e12057 = (struct p12057 *)alloca(sizeof(struct p12057)); if (e12057==NULL) {backtrace_internal("[inside MARK-REFERENCING-ENVIRONMENTS-PROPER-CALLEES! 12055]"); out_of_memory_error();} e12057->a24304 = a24304; /* x108269 stalin.sc:11260:392256 */ /* x108057 stalin.sc:11260:392263 */ /* x108056 stalin.sc:11260:392270 */ t61484 = e12057->a24304; /* x108055 stalin.sc:11260:392264 */ if (f7755(t61484)==FALSE_TYPE) goto l9593; /* x108079 */ /* x108078 */ t61549 = e12057; p12058 = t61549; /* x108077 stalin.sc:11261:392278 */ /* x108060 stalin.sc:11261:392286 */ /* x108059 stalin.sc:11261:392300 */ t61550 = p12058->a24304; /* x108058 stalin.sc:11261:392287 */ if (f7801(t61550)==FALSE_TYPE) goto l9612; /* x108062 */ /* x108061 */ return; l9612: /* x108076 */ /* x108075 */ t61551 = p12058; p12060 = t61551; /* x108074 */ /* x108073 stalin.sc:11262:392309 */ /* x108071 stalin.sc:11262:392328 */ t61558 = p12060->a24304; /* x108072 stalin.sc:11262:392332 */ /* x108070 stalin.sc:11262:392310 */ f7825(t61558); /* x108069 */ t61552 = p12060; p12061 = t61552; /* x108068 stalin.sc:11263:392340 */ /* x108067 stalin.sc:11263:392356 */ /* x108066 stalin.sc:11263:392400 */ t61557 = p12061->a24304; /* x108065 stalin.sc:11263:392357 */ t61553 = f7984(t61557); /* x108064 stalin.sc:11263:392350 */ /* x108063 stalin.sc:11263:392341 */ t61554.tag = NATIVE_PROCEDURE_TYPE16433; t61555 = *((struct w49 *)(&t61553)); t61556 = (struct structure_type24753 *)NULL_TYPE; f27755(t61554, t61555, t61556); return; l9593: /* x108268 */ /* x108082 stalin.sc:11264:392411 */ /* x108081 stalin.sc:11264:392422 */ t61485 = e12057->a24304; /* x108080 stalin.sc:11264:392412 */ a37152 = t61485; /* x281277 */ /* x281276 */ t61486 = a37152; /* x281275 */ if (!((t61486.tag)==STRUCTURE_TYPE27650)) goto l9595; /* x108263 */ /* x108262 */ t61488 = e12057; p12062 = t61488; /* x108261 stalin.sc:11265:392430 */ /* x108085 stalin.sc:11265:392438 */ /* x108084 stalin.sc:11265:392456 */ t61489 = p12062->a24304; /* x108083 stalin.sc:11265:392439 */ if (f8112(t61489)==FALSE_TYPE) goto l9597; /* x108087 */ /* x108086 */ return; l9597: /* x108260 */ /* x108259 */ t61490 = p12062; p12064 = t61490; /* x108258 */ /* x108257 stalin.sc:11266:392465 */ /* x108255 stalin.sc:11266:392488 */ t61547 = p12064->a24304; /* x108256 stalin.sc:11266:392492 */ /* x108254 stalin.sc:11266:392466 */ t61548 = TRUE_TYPE; f8113(t61547, t61548); /* x108253 */ t61491 = p12064; p12065 = t61491; /* x108252 stalin.sc:11267:392500 */ /* x108092 stalin.sc:11268:392512 */ /* x108091 stalin.sc:11268:392525 */ /* x108090 stalin.sc:11268:392544 */ t61494 = p12065->a24304; /* x108089 stalin.sc:11268:392526 */ a37139 = t61494; /* x281225 */ /* x281224 */ t61495 = a37139; /* x281223 */ if (!((t61495.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32056]"); structure_ref_error();} t61492 = t61495.value.structure_type27650->s0; /* x108088 stalin.sc:11268:392513 */ a40451 = t61492; /* x294473 */ /* x294472 */ t61493 = a40451; /* x294471 */ if (!((t61493.tag)==STRUCTURE_TYPE27698)) goto l9599; /* x108111 */ /* x108110 */ t61525 = p12065; p12066 = t61525; /* x108109 stalin.sc:11269:392556 */ /* x108097 stalin.sc:11269:392562 */ /* x108096 stalin.sc:11269:392572 */ /* x108095 stalin.sc:11269:392591 */ t61527 = p12066->a24304; /* x108094 stalin.sc:11269:392573 */ a37130 = t61527; /* x281189 */ /* x281188 */ t61528 = a37130; /* x281187 */ if (!((t61528.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32047]"); structure_ref_error();} t61526 = t61528.value.structure_type27650->s0; /* x108093 stalin.sc:11269:392563 */ if (f6961(t61526)==FALSE_TYPE) goto l9610; /* x108106 */ /* x108105 */ t61529 = p12066; p12067 = t61529; /* x108104 stalin.sc:11270:392604 */ /* x108103 stalin.sc:11271:392634 */ /* x108102 stalin.sc:11271:392658 */ /* x108101 stalin.sc:11271:392677 */ t61545 = p12067->a24304; /* x108100 stalin.sc:11271:392659 */ a37129 = t61545; /* x281185 */ /* x281184 */ t61546 = a37129; /* x281183 */ if (!((t61546.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32046]"); structure_ref_error();} t61543 = t61546.value.structure_type27650->s0; /* x108099 stalin.sc:11271:392635 */ a40114 = t61543; /* x293125 */ /* x293124 */ t61544 = a40114; /* x293123 */ if (!((t61544.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35031]"); structure_ref_error();} t61530 = t61544.value.structure_type27698->s9; /* x108098 stalin.sc:11270:392605 */ a24315 = t61530; /* x108330 */ /* x108329 */ /* x108328 */ /* x108327 */ /* x108326 */ /* x108319 */ /* x108318 */ /* x108325 stalin.sc:11246:391792 */ /* x108324 stalin.sc:11246:391807 */ /* x108323 stalin.sc:11246:391840 */ t61541 = a24315; /* x108322 stalin.sc:11246:391808 */ a36567 = t61541; /* x278937 */ /* x278936 */ t61542 = a36567; /* x278935 */ if (!((t61542.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLEES[6783] 31484]"); structure_ref_error();} t61537 = t61542.value.structure_type27694->s19; /* x108321 stalin.sc:11246:391802 */ /* x108320 stalin.sc:11246:391793 */ t61538.tag = NATIVE_PROCEDURE_TYPE17476; t61539 = *((struct w49 *)(&t61537)); t61540 = (struct structure_type24753 *)NULL_TYPE; f27755(t61538, t61539, t61540); /* x108291 */ /* x108290 stalin.sc:11247:391846 */ /* x108289 stalin.sc:11247:391861 */ /* x108288 stalin.sc:11247:391898 */ t61535 = a24315; /* x108287 stalin.sc:11247:391862 */ a36556 = t61535; /* x278893 */ /* x278892 */ t61536 = a36556; /* x278891 */ if (!((t61536.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-NON-TAIL-CALLEES[6791] 31473]"); structure_ref_error();} t61531 = t61536.value.structure_type27694->s20; /* x108286 stalin.sc:11247:391856 */ /* x108285 stalin.sc:11247:391847 */ t61532.tag = NATIVE_PROCEDURE_TYPE17476; t61533 = *((struct w49 *)(&t61531)); t61534 = (struct structure_type24753 *)NULL_TYPE; f27755(t61532, t61533, t61534); return; l9610: /* x108108 stalin.sc:11269:392556 */ /* x108107 stalin.sc:11269:392556 */ return; l9599: /* x108251 */ /* x108116 stalin.sc:11272:392692 */ /* x108115 stalin.sc:11272:392703 */ /* x108114 stalin.sc:11272:392722 */ t61498 = p12065->a24304; /* x108113 stalin.sc:11272:392704 */ a37138 = t61498; /* x281221 */ /* x281220 */ t61499 = a37138; /* x281219 */ if (!((t61499.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32055]"); structure_ref_error();} t61496 = t61499.value.structure_type27650->s0; /* x108112 stalin.sc:11272:392693 */ a37028 = t61496; /* x280781 */ /* x280780 */ t61497 = a37028; /* x280779 */ if (!((t61497.tag)==STRUCTURE_TYPE27692)) goto l9601; /* x108223 */ /* x108222 */ t61511 = p12065; p12069 = t61511; /* x108221 stalin.sc:11273:392734 */ /* x108128 stalin.sc:11273:392740 */ /* x108121 stalin.sc:11273:392745 */ /* x108120 stalin.sc:11273:392756 */ /* x108119 stalin.sc:11273:392775 */ t61513 = p12069->a24304; /* x108118 stalin.sc:11273:392757 */ a37125 = t61513; /* x281169 */ /* x281168 */ t61514 = a37125; /* x281167 */ if (!((t61514.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32042]"); structure_ref_error();} t61512 = t61514.value.structure_type27650->s0; /* x108117 stalin.sc:11273:392746 */ if (f8229(t61512)==FALSE_TYPE) goto l9607; /* x108126 */ /* x108125 stalin.sc:11274:392789 */ /* x108124 stalin.sc:11274:392814 */ t61515 = p12069->a24304; /* x108123 stalin.sc:11274:392790 */ if (!(f9390(t61515)==FALSE_TYPE)) goto l9607; /* x108218 */ /* x108217 */ t61516 = p12069; p12070 = t61516; /* x108216 stalin.sc:11275:392828 */ /* x108215 stalin.sc:11275:392843 */ /* x108214 stalin.sc:11275:392865 */ /* x108213 stalin.sc:11275:392884 */ t61523 = p12070->a24304; /* x108212 stalin.sc:11275:392866 */ a37124 = t61523; /* x281165 */ /* x281164 */ t61524 = a37124; /* x281163 */ if (!((t61524.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32041]"); structure_ref_error();} t61521 = t61524.value.structure_type27650->s0; /* x108211 stalin.sc:11275:392844 */ a36952 = t61521; /* x280477 */ /* x280476 */ t61522 = a36952; /* x280475 */ if (!((t61522.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31869]"); structure_ref_error();} t61518 = t61522.value.structure_type27692->s8; /* x108210 */ /* x108209 */ /* x108208 */ /* x108207 */ t61519 = p12070; p12071 = t61519; /* x108206 */ /* x108205 */ /* x108204 */ /* x108130 */ t61520 = p12071; p12072 = t61520; /* x108129 stalin.sc:11275:392833 */ t61517 = p12072; f12073(t61517, t61518); return; l9607: /* x108220 stalin.sc:11273:392734 */ /* x108219 stalin.sc:11273:392734 */ return; l9601: /* x108250 */ /* x108228 stalin.sc:11285:393260 */ /* x108227 stalin.sc:11285:393267 */ /* x108226 stalin.sc:11285:393286 */ t61501 = p12065->a24304; /* x108225 stalin.sc:11285:393268 */ a37137 = t61501; /* x281217 */ /* x281216 */ t61502 = a37137; /* x281215 */ if (!((t61502.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32054]"); structure_ref_error();} t61500 = t61502.value.structure_type27650->s0; /* x108224 stalin.sc:11285:393261 */ if (f7755(t61500)==FALSE_TYPE) goto l9603; /* x108235 */ /* x108234 */ t61507 = p12065; p12087 = t61507; /* x108233 stalin.sc:11285:393292 */ /* x108232 stalin.sc:11285:393299 */ /* x108231 stalin.sc:11285:393318 */ t61509 = p12087->a24304; /* x108230 stalin.sc:11285:393300 */ a37135 = t61509; /* x281209 */ /* x281208 */ t61510 = a37135; /* x281207 */ if (!((t61510.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32052]"); structure_ref_error();} t61508 = t61510.value.structure_type27650->s0; /* x108229 stalin.sc:11285:393293 */ a24304 = t61508; goto h12057; l9603: /* x108249 */ /* x108241 stalin.sc:11286:393331 */ /* x108239 stalin.sc:11286:393336 */ /* x108238 stalin.sc:11286:393355 */ t61504 = p12065->a24304; /* x108237 stalin.sc:11286:393337 */ a37136 = t61504; /* x281213 */ /* x281212 */ t61505 = a37136; /* x281211 */ if (!((t61505.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32053]"); structure_ref_error();} t61503 = t61505.value.structure_type27650->s0; /* x108240 stalin.sc:11286:393360 */ /* x269461 stalin.sc:11286:393332 */ if (!((t61503.tag)==FALSE_TYPE)) goto l9605; /* x108244 */ /* x108243 */ /* x108242 stalin.sc:11286:393364 */ return; l9605: /* x108248 */ /* x108247 */ /* x108246 stalin.sc:11287:393379 */ /* x108245 stalin.sc:11287:393380 */ /* x297193 QobiScheme.sc:166:5314 */ /* x297192 QobiScheme.sc:166:5321 */ t61506 = "This shouldn\'t happen"; /* x297191 QobiScheme.sc:166:5315 */ stalin_panic(t61506); l9595: /* x108267 */ /* x108266 */ /* x108265 stalin.sc:11288:393401 */ /* x108264 stalin.sc:11288:393402 */ /* x297253 QobiScheme.sc:166:5314 */ /* x297252 QobiScheme.sc:166:5321 */ t61487 = "This shouldn\'t happen"; /* x297251 QobiScheme.sc:166:5315 */ stalin_panic(t61487);} /* MARK-REFERENCING-ENVIRONMENTS-PROPER-CALLEES![12041] */ void f12041(struct w49 a24289) {struct w49 a37345; /* OBJ */ struct w49 a37445; /* OBJ */ struct w49 a37561; /* OBJ */ struct w49 a37702; /* OBJ */ struct w49 a37777; /* OBJ */ struct w49 a37898; /* OBJ */ struct w49 a37969; /* OBJ */ struct w49 a38116; /* OBJ */ struct w49 a38227; /* OBJ */ struct w49 a38286; /* OBJ */ struct w49 a38327; /* OBJ */ struct w49 t61559; struct w49 t61560; struct w49 t61561; struct w49 t61562; struct w49 t61563; struct w49 t61564; struct w49 t61565; struct w49 t61566; struct w49 t61567; struct w49 t61568; struct w49 t61569; struct w49 t61570; struct w49 t61571; struct w49 t61572; struct w49 t61573; struct w49 t61574; struct w49 t61575; struct w49 t61576; struct w49 t61577; struct w49 t61578; struct w49 t61579; struct w49 t61580; struct w49 t61581; /* x108337 */ /* x108336 */ /* x108335 */ /* x108334 */ /* x108333 */ /* x108332 */ /* x108331 */ /* x108284 */ /* x108283 stalin.sc:11248:391904 */ /* x108052 stalin.sc:11248:391910 */ /* x108051 stalin.sc:11248:391914 */ /* x108050 stalin.sc:11248:391937 */ t61559 = a24289; /* x108049 stalin.sc:11248:391915 */ a38327 = t61559; /* x285977 */ /* x285976 */ t61560 = a38327; /* x285975 */ if ((t61560.tag)==STRUCTURE_TYPE27776) goto l9613; /* x108046 */ /* x108045 stalin.sc:11249:391944 */ /* x108044 stalin.sc:11249:391967 */ t61561 = a24289; /* x108043 stalin.sc:11249:391945 */ a38286 = t61561; /* x285813 */ /* x285812 */ t61562 = a38286; /* x285811 */ if ((t61562.tag)==STRUCTURE_TYPE27779) goto l9613; /* x108040 */ /* x108039 stalin.sc:11250:391974 */ /* x108038 stalin.sc:11250:392001 */ t61563 = a24289; /* x108037 stalin.sc:11250:391975 */ a38227 = t61563; /* x285577 */ /* x285576 */ t61564 = a38227; /* x285575 */ if ((t61564.tag)==STRUCTURE_TYPE27753) goto l9613; /* x108034 */ /* x108033 stalin.sc:11251:392008 */ /* x108032 stalin.sc:11251:392032 */ t61565 = a24289; /* x108031 stalin.sc:11251:392009 */ a38116 = t61565; /* x285133 */ /* x285132 */ t61566 = a38116; /* x285131 */ if ((t61566.tag)==STRUCTURE_TYPE27756) goto l9613; /* x108028 */ /* x108027 stalin.sc:11252:392039 */ /* x108026 stalin.sc:11252:392064 */ t61567 = a24289; /* x108025 stalin.sc:11252:392040 */ a37969 = t61567; /* x284545 */ /* x284544 */ t61568 = a37969; /* x284543 */ if ((t61568.tag)==STRUCTURE_TYPE27750) goto l9613; /* x108022 */ /* x108021 stalin.sc:11253:392071 */ /* x108020 stalin.sc:11253:392091 */ t61569 = a24289; /* x108019 stalin.sc:11253:392072 */ a37898 = t61569; /* x284261 */ /* x284260 */ t61570 = a37898; /* x284259 */ if ((t61570.tag)==STRUCTURE_TYPE27858) goto l9613; /* x108016 */ /* x108015 stalin.sc:11254:392098 */ /* x108014 stalin.sc:11254:392112 */ t61571 = a24289; /* x108013 stalin.sc:11254:392099 */ a37777 = t61571; /* x283777 */ /* x283776 */ t61572 = a37777; /* x283775 */ if ((t61572.tag)==STRUCTURE_TYPE27673) goto l9613; /* x108010 */ /* x108009 stalin.sc:11255:392119 */ /* x108008 stalin.sc:11255:392136 */ t61573 = a24289; /* x108007 stalin.sc:11255:392120 */ a37702 = t61573; /* x283477 */ /* x283476 */ t61574 = a37702; /* x283475 */ if ((t61574.tag)==STRUCTURE_TYPE27769) goto l9613; /* x108004 */ /* x108003 stalin.sc:11256:392143 */ /* x108002 stalin.sc:11256:392164 */ t61575 = a24289; /* x108001 stalin.sc:11256:392144 */ a37561 = t61575; /* x282913 */ /* x282912 */ t61576 = a37561; /* x282911 */ if ((t61576.tag)==STRUCTURE_TYPE27761) goto l9613; /* x107998 */ /* x107997 stalin.sc:11257:392171 */ /* x107996 stalin.sc:11257:392195 */ t61577 = a24289; /* x107995 stalin.sc:11257:392172 */ a37445 = t61577; /* x282449 */ /* x282448 */ t61578 = a37445; /* x282447 */ if ((t61578.tag)==STRUCTURE_TYPE27669) goto l9613; /* x107992 */ /* x107991 stalin.sc:11258:392226 */ t61579 = a24289; /* x107990 stalin.sc:11258:392203 */ a37345 = t61579; /* x282049 */ /* x282048 */ t61580 = a37345; /* x282047 */ if (!((t61580.tag)==STRUCTURE_TYPE27908)) goto l9614; l9613: /* x108280 */ /* x108279 */ /* x108278 stalin.sc:11259:392232 */ /* x108277 stalin.sc:11259:392249 */ t61581 = a24289; /* x108276 */ /* x108275 */ /* x108274 */ /* x108273 */ /* x108272 */ /* x108271 */ /* x108270 */ /* x108054 */ /* x108053 stalin.sc:11259:392237 */ f12057(t61581); return; l9614: /* x108282 stalin.sc:11248:391904 */ /* x108281 stalin.sc:11248:391904 */ return;} /* [inside INVERT-POINTS-TO-RELATION! 12040] */ void f12040(struct w49 a24288) {struct w49 a38259; /* S */ struct w49 a38260; /* S */ struct w49 t61582; struct structure_type24753 *t61583; struct structure_type24753 *t61584; struct w49 t61585; struct w49 t61586; struct w49 t61587; struct w3457 t61588; struct w49 t61589; struct w49 t61590; struct w49 t61591; /* x107963 stalin.sc:11222:390850 */ /* x107954 stalin.sc:11223:390905 */ /* x107953 stalin.sc:11223:390949 */ t61585 = a24288; /* x107952 stalin.sc:11223:390906 */ a38259 = t61585; /* x285705 */ /* x285704 */ t61586 = a38259; /* x285703 */ if (!((t61586.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-DISPLACED-STRING-TYPE[5845] 33176]"); structure_ref_error();} t61582 = t61586.value.structure_type27779->s0; /* x107962 stalin.sc:11224:390958 */ /* x107956 stalin.sc:11224:390964 */ t61587 = a24288; /* x107961 stalin.sc:11225:390971 */ /* x107960 stalin.sc:11226:391021 */ /* x107959 stalin.sc:11226:391065 */ t61590 = a24288; /* x107958 stalin.sc:11226:391022 */ a38260 = t61590; /* x285709 */ /* x285708 */ t61591 = a38260; /* x285707 */ if (!((t61591.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-DISPLACED-STRING-TYPE[5845] 33177]"); structure_ref_error();} t61589 = t61591.value.structure_type27779->s0; /* x107957 stalin.sc:11225:390972 */ t61588 = f7984(t61589); /* x269463 stalin.sc:11224:390959 */ t61583 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t61583==NULL) {backtrace("stalin.sc", 11224, 390958); out_of_memory_error();} t61583->s0 = t61587; t61583->s1 = *((struct w49 *)(&t61588)); /* x107951 stalin.sc:11222:390851 */ t61584 = t61583; f8008(t61582, t61584); return;} /* [inside INVERT-POINTS-TO-RELATION! 12026] */ void f12026(struct w49 a24276) {struct p12026 *t61592; struct w49 t61593; struct w211045 t61594; struct p12026 *e12026; e12026 = (struct p12026 *)alloca(sizeof(struct p12026)); if (e12026==NULL) {backtrace("stalin.sc", 11203, 390264); out_of_memory_error();} e12026->a24276 = a24276; /* x107946 stalin.sc:11204:390279 */ /* x107944 stalin.sc:11205:390300 */ t61592 = e12026; /* x107945 stalin.sc:11219:390810 */ t61593 = e12026->a24276; /* x107846 stalin.sc:11204:390280 */ t61594.tag = NATIVE_PROCEDURE_TYPE16076; t61594.value.native_procedure_type16076 = t61592; f8173(t61594, t61593); return;} /* [inside INVERT-POINTS-TO-RELATION! 12025] */ void f12025(struct w49 a24275) {struct w49 t61595; struct structure_type24753 *t61596; /* x107841 stalin.sc:11200:390164 */ /* x107839 stalin.sc:11200:390213 */ t61595 = a24275; /* x107840 stalin.sc:11200:390215 */ /* x107838 stalin.sc:11200:390165 */ t61596 = (struct structure_type24753 *)NULL_TYPE; f8008(t61595, t61596); return;} /* [inside INVERT-POINTS-TO-RELATION! 12024] */ void f12024(struct w49 a24274) {struct w49 t61597; struct structure_type24753 *t61598; /* x107833 stalin.sc:11198:390054 */ /* x107831 stalin.sc:11198:390103 */ t61597 = a24274; /* x107832 stalin.sc:11198:390105 */ /* x107830 stalin.sc:11198:390055 */ t61598 = (struct structure_type24753 *)NULL_TYPE; f8008(t61597, t61598); return;} /* [inside INVERT-POINTS-TO-RELATION! 12023] */ void f12023(struct w49 a24273) {struct w49 t61599; struct structure_type24753 *t61600; /* x107825 stalin.sc:11196:389947 */ /* x107823 stalin.sc:11196:389996 */ t61599 = a24273; /* x107824 stalin.sc:11196:389998 */ /* x107822 stalin.sc:11196:389948 */ t61600 = (struct structure_type24753 *)NULL_TYPE; f8008(t61599, t61600); return;} /* [inside INVERT-POINTS-TO-RELATION! 12022] */ void f12022(struct w49 a24272) {struct w49 t61601; struct structure_type24753 *t61602; /* x107817 stalin.sc:11194:389844 */ /* x107815 stalin.sc:11194:389893 */ t61601 = a24272; /* x107816 stalin.sc:11194:389895 */ /* x107814 stalin.sc:11194:389845 */ t61602 = (struct structure_type24753 *)NULL_TYPE; f8008(t61601, t61602); return;} /* [inside INVERT-POINTS-TO-RELATION! 12021] */ void f12021(struct w49 a24271) {struct w49 t61603; struct structure_type24753 *t61604; /* x107809 stalin.sc:11192:389744 */ /* x107807 stalin.sc:11192:389793 */ t61603 = a24271; /* x107808 stalin.sc:11192:389795 */ /* x107806 stalin.sc:11192:389745 */ t61604 = (struct structure_type24753 *)NULL_TYPE; f8008(t61603, t61604); return;} /* [inside INVERT-POINTS-TO-RELATION! 12020] */ void f12020(struct w49 a24270) {struct w49 t61605; struct structure_type24753 *t61606; /* x107801 stalin.sc:11190:389638 */ /* x107799 stalin.sc:11190:389687 */ t61605 = a24270; /* x107800 stalin.sc:11190:389689 */ /* x107798 stalin.sc:11190:389639 */ t61606 = (struct structure_type24753 *)NULL_TYPE; f8008(t61605, t61606); return;} /* [inside INVERT-POINTS-TO-RELATION! 12019] */ void f12019(struct w49 a24269) {struct w49 t61607; struct structure_type24753 *t61608; /* x107793 stalin.sc:11188:389527 */ /* x107791 stalin.sc:11188:389576 */ t61607 = a24269; /* x107792 stalin.sc:11188:389578 */ /* x107790 stalin.sc:11188:389528 */ t61608 = (struct structure_type24753 *)NULL_TYPE; f8008(t61607, t61608); return;} /* [inside INVERT-POINTS-TO-RELATION! 12018] */ void f12018(struct w49 a24268) {struct w49 t61609; struct structure_type24753 *t61610; /* x107785 stalin.sc:11186:389417 */ /* x107783 stalin.sc:11186:389466 */ t61609 = a24268; /* x107784 stalin.sc:11186:389468 */ /* x107782 stalin.sc:11186:389418 */ t61610 = (struct structure_type24753 *)NULL_TYPE; f8008(t61609, t61610); return;} /* [inside INVERT-POINTS-TO-RELATION! 12017] */ void f12017(struct w49 a24267) {struct w49 t61611; struct structure_type24753 *t61612; /* x107777 stalin.sc:11184:389304 */ /* x107775 stalin.sc:11184:389353 */ t61611 = a24267; /* x107776 stalin.sc:11184:389355 */ /* x107774 stalin.sc:11184:389305 */ t61612 = (struct structure_type24753 *)NULL_TYPE; f8008(t61611, t61612); return;} /* [inside INVERT-POINTS-TO-RELATION! 12016] */ void f12016(struct w49 a24266) {struct w49 t61613; struct structure_type24753 *t61614; /* x107769 stalin.sc:11182:389195 */ /* x107767 stalin.sc:11182:389244 */ t61613 = a24266; /* x107768 stalin.sc:11182:389246 */ /* x107766 stalin.sc:11182:389196 */ t61614 = (struct structure_type24753 *)NULL_TYPE; f8008(t61613, t61614); return;} /* [inside INVERT-POINTS-TO-RELATION! 12015] */ void f12015(struct w49 a24265) {struct w49 t61615; struct structure_type24753 *t61616; /* x107761 stalin.sc:11180:389086 */ /* x107759 stalin.sc:11180:389135 */ t61615 = a24265; /* x107760 stalin.sc:11180:389137 */ /* x107758 stalin.sc:11180:389087 */ t61616 = (struct structure_type24753 *)NULL_TYPE; f8008(t61615, t61616); return;} /* [inside INVERT-POINTS-TO-RELATION! 12014] */ void f12014(struct w49 a24264) {struct w49 a37309; /* S */ struct w49 a37310; /* S */ struct w49 t61617; struct structure_type24753 *t61618; struct structure_type24753 *t61619; struct w49 t61620; struct w49 t61621; struct w49 t61622; struct w3457 t61623; struct w49 t61624; struct w49 t61625; struct w49 t61626; /* x107752 stalin.sc:11229:391129 */ /* x107743 stalin.sc:11230:391184 */ /* x107742 stalin.sc:11230:391229 */ t61620 = a24264; /* x107741 stalin.sc:11230:391185 */ a37309 = t61620; /* x281905 */ /* x281904 */ t61621 = a37309; /* x281903 */ if (!((t61621.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-DISPLACED-VECTOR-TYPE[6375] 32226]"); structure_ref_error();} t61617 = t61621.value.structure_type27908->s0; /* x107751 stalin.sc:11231:391238 */ /* x107745 stalin.sc:11231:391244 */ t61622 = a24264; /* x107750 stalin.sc:11232:391251 */ /* x107749 stalin.sc:11233:391301 */ /* x107748 stalin.sc:11233:391346 */ t61625 = a24264; /* x107747 stalin.sc:11233:391302 */ a37310 = t61625; /* x281909 */ /* x281908 */ t61626 = a37310; /* x281907 */ if (!((t61626.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-DISPLACED-VECTOR-TYPE[6375] 32227]"); structure_ref_error();} t61624 = t61626.value.structure_type27908->s0; /* x107746 stalin.sc:11232:391252 */ t61623 = f7984(t61624); /* x269465 stalin.sc:11231:391239 */ t61618 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t61618==NULL) {backtrace("stalin.sc", 11231, 391238); out_of_memory_error();} t61618->s0 = t61622; t61618->s1 = *((struct w49 *)(&t61623)); /* x107740 stalin.sc:11229:391130 */ t61619 = t61618; f8008(t61617, t61619); return;} /* [inside ANNOTATE-ENVIRONMENTS-AND-CONTINUATION-TYPES! 12009] */ void f12009(struct w49 a24250) {struct w49 a36545; /* S */ struct w49 a40073; /* S */ struct w49 a40074; /* S */ struct w49 a40108; /* S */ struct w49 a40117; /* S */ struct w49 t61627; struct w49 t61628; struct w49 t61629; struct w49 t61630; struct w49 t61631; struct w49 t61632; struct w49 t61633; struct w49 t61634; struct structure_type24753 *t61635; struct w11873 t61636; struct w49 t61637; struct w49 t61638; struct w49 t61639; struct w11873 t61640; struct w49 t61641; struct w49 t61642; struct w49 t61643; struct w49 t61644; /* x107732 stalin.sc:11031:383646 */ /* x107714 stalin.sc:11031:383652 */ /* x107698 stalin.sc:11031:383657 */ /* x107697 stalin.sc:11031:383667 */ t61627 = a24250; /* x107696 stalin.sc:11031:383658 */ if (f6961(t61627)==FALSE_TYPE) goto l9626; /* x107712 */ /* x107705 stalin.sc:11032:383679 */ /* x107704 stalin.sc:11032:383684 */ /* x107703 stalin.sc:11032:383692 */ /* x107702 stalin.sc:11032:383716 */ t61629 = a24250; /* x107701 stalin.sc:11032:383693 */ a40117 = t61629; /* x293137 */ /* x293136 */ t61630 = a40117; /* x293135 */ if (!((t61630.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35034]"); structure_ref_error();} t61628 = t61630.value.structure_type27698->s9; /* x107700 stalin.sc:11032:383685 */ if (!(f8581(t61628)==FALSE_TYPE)) goto l9626; /* x107710 */ /* x107709 stalin.sc:11033:383749 */ /* x107708 stalin.sc:11033:383773 */ t61632 = a24250; /* x107707 stalin.sc:11033:383750 */ a40108 = t61632; /* x293101 */ /* x293100 */ t61633 = a40108; /* x293099 */ if (!((t61633.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35025]"); structure_ref_error();} t61631 = t61633.value.structure_type27698->s9; /* x107706 stalin.sc:11033:383731 */ if (f8526(t61631)==FALSE_TYPE) goto l9626; /* x107729 */ /* x107728 */ /* x107727 stalin.sc:11034:383784 */ /* x107718 stalin.sc:11035:383821 */ /* x107717 stalin.sc:11035:383845 */ t61637 = a24250; /* x107716 stalin.sc:11035:383822 */ a40073 = t61637; /* x292961 */ /* x292960 */ t61638 = a40073; /* x292959 */ if (!((t61638.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34990]"); structure_ref_error();} t61634 = t61638.value.structure_type27698->s9; /* x107726 stalin.sc:11036:383855 */ /* x107720 stalin.sc:11036:383861 */ t61639 = a24250; /* x107725 stalin.sc:11036:383863 */ /* x107724 stalin.sc:11036:383888 */ /* x107723 stalin.sc:11036:383912 */ t61643 = a24250; /* x107722 stalin.sc:11036:383889 */ a40074 = t61643; /* x292965 */ /* x292964 */ t61644 = a40074; /* x292963 */ if (!((t61644.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34991]"); structure_ref_error();} t61641 = t61644.value.structure_type27698->s9; /* x107721 stalin.sc:11036:383864 */ a36545 = t61641; /* x278849 */ /* x278848 */ t61642 = a36545; /* x278847 */ if (!((t61642.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSIONS[6807] 31462]"); structure_ref_error();} t61640 = t61642.value.structure_type27694->s22; /* x269466 stalin.sc:11036:383856 */ t61635 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t61635==NULL) {backtrace("stalin.sc", 11036, 383855); out_of_memory_error();} t61635->s0 = t61639; t61635->s1 = *((struct w49 *)(&t61640)); /* x107715 stalin.sc:11034:383785 */ t61636.tag = STRUCTURE_TYPE24753; t61636.value.structure_type24753 = t61635; f6808(t61634, t61636); return; l9626: /* x107731 stalin.sc:11031:383646 */ /* x107730 stalin.sc:11031:383646 */ return;} /* [inside ANNOTATE-ENVIRONMENTS-AND-CONTINUATION-TYPES! 12006] */ void f12006(struct w49 a24249) {struct w49 t61645; struct w49 t61646; struct w3457 t61647; /* x107691 stalin.sc:11028:383529 */ /* x107682 stalin.sc:11028:383535 */ /* x107681 stalin.sc:11028:383547 */ t61645 = a24249; /* x107680 stalin.sc:11028:383536 */ if (f7849(t61645)==FALSE_TYPE) goto l9630; /* x107688 */ /* x107687 */ /* x107686 stalin.sc:11028:383550 */ /* x107684 stalin.sc:11028:383585 */ t61646 = a24249; /* x107685 stalin.sc:11028:383587 */ /* x107683 stalin.sc:11028:383551 */ t61647.tag = NULL_TYPE; f6086(t61646, t61647); return; l9630: /* x107690 stalin.sc:11028:383529 */ /* x107689 stalin.sc:11028:383529 */ return;} /* [inside ANNOTATE-ENVIRONMENTS-AND-CONTINUATION-TYPES! 12005] */ void f12005(struct w49 a24248) {struct w49 t61648; char *t61649; struct w3457 t61650; /* x107675 stalin.sc:11025:383425 */ /* x107672 stalin.sc:11025:383460 */ t61648 = a24248; /* x107674 stalin.sc:11025:383462 */ /* x107673 stalin.sc:11025:383463 */ /* x277523 stalin.sc:323:8604 */ t61649 = q35; /* x107671 stalin.sc:11025:383426 */ t61650.tag = EXTERNAL_SYMBOL_TYPE; t61650.value.external_symbol_type = t61649; f6086(t61648, t61650); return;} /* [inside ANNOTATE-ENVIRONMENTS-AND-CONTINUATION-TYPES! 12001] */ void f12001(struct w49 a24246) {struct w49 t61651; struct w49 t61652; struct w11873 t61653; struct w49 t61654; struct w11873 t61655; /* x107666 stalin.sc:11021:383269 */ /* x107651 stalin.sc:11021:383275 */ /* x107650 stalin.sc:11021:383294 */ t61651 = a24246; /* x107649 stalin.sc:11021:383276 */ if (f8526(t61651)==FALSE_TYPE) goto l9632; /* x107663 */ /* x107662 */ /* x107661 */ /* x107660 stalin.sc:11022:383303 */ /* x107658 stalin.sc:11022:383333 */ t61654 = a24246; /* x107659 stalin.sc:11022:383335 */ /* x107657 stalin.sc:11022:383304 */ t61655.tag = NULL_TYPE; f6808(t61654, t61655); /* x107656 */ /* x107655 stalin.sc:11023:383346 */ /* x107653 stalin.sc:11023:383383 */ t61652 = a24246; /* x107654 stalin.sc:11023:383385 */ /* x107652 stalin.sc:11023:383347 */ t61653.tag = NULL_TYPE; f6816(t61652, t61653); return; l9632: /* x107665 stalin.sc:11021:383269 */ /* x107664 stalin.sc:11021:383269 */ return;} /* [inside ANNOTATE-ENVIRONMENTS-AND-CONTINUATION-TYPES! 11999] */ void f11999(struct w49 a24244) {struct w49 t61656; char *t61657; struct w11873 t61658; struct w49 t61659; char *t61660; struct w11873 t61661; /* x107644 */ /* x107643 stalin.sc:11017:383124 */ /* x107640 stalin.sc:11017:383154 */ t61659 = a24244; /* x107642 stalin.sc:11017:383156 */ /* x107641 stalin.sc:11017:383157 */ /* x277521 stalin.sc:323:8604 */ t61660 = q35; /* x107639 stalin.sc:11017:383125 */ t61661.tag = EXTERNAL_SYMBOL_TYPE; t61661.value.external_symbol_type = t61660; f6808(t61659, t61661); /* x107638 */ /* x107637 stalin.sc:11018:383176 */ /* x107634 stalin.sc:11018:383213 */ t61656 = a24244; /* x107636 stalin.sc:11018:383215 */ /* x107635 stalin.sc:11018:383216 */ /* x277165 stalin.sc:323:8604 */ t61657 = q35; /* x107633 stalin.sc:11018:383177 */ t61658.tag = EXTERNAL_SYMBOL_TYPE; t61658.value.external_symbol_type = t61657; f6816(t61656, t61658); return;} /* [inside ANNOTATE-ENVIRONMENTS-AND-CONTINUATION-TYPES! 11938] */ void f11938(struct w49 a24215) {struct w49 a36539; /* S */ struct w49 a38630; /* S */ struct w49 a38631; /* S */ struct w49 a38632; /* S */ struct w49 a38633; /* S */ struct w49 a38634; /* S */ struct w49 a38635; /* S */ struct w49 a38647; /* S */ struct w49 a38648; /* S */ struct w49 a38649; /* S */ struct w49 a38650; /* S */ struct w49 a38651; /* S */ struct w49 a38652; /* S */ struct w49 a39900; /* S */ struct w49 a39901; /* S */ struct w49 a39902; /* S */ struct w49 a39903; /* S */ struct w49 a39904; /* S */ struct w49 a39905; /* S */ struct w49 a39947; /* S */ struct w49 a39948; /* S */ struct w49 a39949; /* S */ struct w49 a39950; /* S */ struct w49 a39951; /* S */ struct w49 a39952; /* S */ struct w49 a40054; /* S */ struct w49 a40055; /* S */ struct w49 a40107; /* S */ struct w49 a40116; /* S */ struct w49 t61662; struct w49 t61663; struct w49 t61664; struct w49 t61665; struct w49 t61666; struct w49 t61667; struct w49 t61668; struct p11938 *t61669; struct p11938 *t61670; struct p11938 *t61671; struct w49 t61672; struct w211257 t61673; struct w49 t61674; struct w49 t61675; struct w49 t61676; struct w49 t61677; struct p11938 *t61678; struct p11938 *t61679; struct w49 t61680; struct w211045 t61681; struct w49 t61682; struct w49 t61683; struct w49 t61684; struct w49 t61685; struct p11938 *t61686; struct w49 t61687; struct w211257 t61688; struct w49 t61689; struct w49 t61690; struct w49 t61691; struct w49 t61692; struct p11938 *t61693; struct p11938 *t61694; struct p11938 *t61695; struct w49 t61696; struct w211045 t61697; struct w49 t61698; struct w49 t61699; struct w49 t61700; struct w49 t61701; struct w49 t61702; struct structure_type24753 *t61703; struct w11873 t61704; struct w49 t61705; struct w49 t61706; struct w49 t61707; struct w11873 t61708; struct w49 t61709; struct w49 t61710; struct w49 t61711; struct w49 t61712; struct p11938 *t61713; struct w49 t61714; struct w211257 t61715; struct w49 t61716; struct w49 t61717; struct w49 t61718; struct w49 t61719; struct p11938 *t61720; struct p11938 *t61721; struct w49 t61722; struct w211045 t61723; struct w49 t61724; struct w49 t61725; struct w49 t61726; struct w49 t61727; struct p11938 *t61728; struct w49 t61729; struct w211257 t61730; struct w49 t61731; struct w49 t61732; struct w49 t61733; struct w49 t61734; struct p11938 *t61735; struct p11938 *t61736; struct w49 t61737; struct w211045 t61738; struct w49 t61739; struct w49 t61740; struct w49 t61741; struct w49 t61742; struct p11938 *t61743; struct w49 t61744; struct w211257 t61745; struct w49 t61746; struct w49 t61747; struct w49 t61748; struct w49 t61749; struct p11938 *t61750; struct p11938 *t61751; struct w49 t61752; struct w211045 t61753; struct w49 t61754; struct w49 t61755; struct w49 t61756; struct w49 t61757; struct p11938 *t61758; struct w49 t61759; struct w211257 t61760; struct w49 t61761; struct w49 t61762; struct w49 t61763; struct w49 t61764; struct p11938 *t61765; struct p11938 *t61766; struct w49 t61767; struct w211045 t61768; struct w49 t61769; struct w49 t61770; struct w49 t61771; struct w49 t61772; struct p11938 *e11938; struct p11938 *p11939; struct p11938 *p11940; struct p11938 *p11943; struct p11938 *p11952; struct p11938 *p11953; struct p11938 *p11960; struct p11938 *p11970; struct p11938 *p11980; struct p11938 *p11990; e11938 = (struct p11938 *)alloca(sizeof(struct p11938)); if (e11938==NULL) {backtrace("stalin.sc", 11039, 383943); out_of_memory_error();} e11938->a24215 = a24215; /* x107627 stalin.sc:11040:383958 */ /* x107013 stalin.sc:11040:383964 */ /* x106997 stalin.sc:11040:383969 */ /* x106996 stalin.sc:11040:383979 */ t61662 = e11938->a24215; /* x106995 stalin.sc:11040:383970 */ if (f6961(t61662)==FALSE_TYPE) goto l9634; /* x107011 */ /* x107004 stalin.sc:11041:383989 */ /* x107003 stalin.sc:11041:383994 */ /* x107002 stalin.sc:11041:384002 */ /* x107001 stalin.sc:11041:384026 */ t61664 = e11938->a24215; /* x107000 stalin.sc:11041:384003 */ a40116 = t61664; /* x293133 */ /* x293132 */ t61665 = a40116; /* x293131 */ if (!((t61665.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35033]"); structure_ref_error();} t61663 = t61665.value.structure_type27698->s9; /* x106999 stalin.sc:11041:383995 */ if (!(f8581(t61663)==FALSE_TYPE)) goto l9634; /* x107009 */ /* x107008 stalin.sc:11042:384057 */ /* x107007 stalin.sc:11042:384081 */ t61667 = e11938->a24215; /* x107006 stalin.sc:11042:384058 */ a40107 = t61667; /* x293097 */ /* x293096 */ t61668 = a40107; /* x293095 */ if (!((t61668.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35024]"); structure_ref_error();} t61666 = t61668.value.structure_type27698->s9; /* x107005 stalin.sc:11042:384039 */ if (f8526(t61666)==FALSE_TYPE) goto l9634; /* x107624 */ /* x107623 */ t61669 = e11938; p11939 = t61669; /* x107622 */ /* x107193 stalin.sc:11043:384090 */ /* x107139 stalin.sc:11043:384096 */ /* x107133 stalin.sc:11043:384105 */ t61686 = p11939; /* x107138 stalin.sc:11046:384193 */ /* x107137 stalin.sc:11046:384214 */ /* x107136 stalin.sc:11046:384233 */ t61691 = p11939->a24215; /* x107135 stalin.sc:11046:384215 */ a38648 = t61691; /* x287261 */ /* x287260 */ t61692 = a38648; /* x287259 */ if (!((t61692.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33565]"); structure_ref_error();} t61689 = t61692.value.structure_type27698->s21; /* x107134 stalin.sc:11046:384194 */ a39948 = t61689; /* x292461 */ /* x292460 */ t61690 = a39948; /* x292459 */ if (!((t61690.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34865]"); structure_ref_error();} t61687 = t61690.value.structure_type27698->s10; /* x107122 stalin.sc:11043:384097 */ t61688.tag = NATIVE_PROCEDURE_TYPE19135; t61688.value.native_procedure_type19135 = t61686; if ((f8137(t61688, t61687).tag)==FALSE_TYPE) goto l9640; /* x107190 */ /* x107189 */ t61693 = p11939; p11952 = t61693; /* x107188 */ /* x107187 stalin.sc:11047:384243 */ /* x107178 stalin.sc:11048:384286 */ /* x107177 stalin.sc:11048:384310 */ t61705 = p11952->a24215; /* x107176 stalin.sc:11048:384287 */ a40054 = t61705; /* x292885 */ /* x292884 */ t61706 = a40054; /* x292883 */ if (!((t61706.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34971]"); structure_ref_error();} t61702 = t61706.value.structure_type27698->s9; /* x107186 stalin.sc:11049:384319 */ /* x107180 stalin.sc:11049:384325 */ t61707 = p11952->a24215; /* x107185 stalin.sc:11049:384327 */ /* x107184 stalin.sc:11049:384359 */ /* x107183 stalin.sc:11049:384383 */ t61711 = p11952->a24215; /* x107182 stalin.sc:11049:384360 */ a40055 = t61711; /* x292889 */ /* x292888 */ t61712 = a40055; /* x292887 */ if (!((t61712.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34972]"); structure_ref_error();} t61709 = t61712.value.structure_type27698->s9; /* x107181 stalin.sc:11049:384328 */ a36539 = t61709; /* x278825 */ /* x278824 */ t61710 = a36539; /* x278823 */ if (!((t61710.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-CONTINUATION-CALLS[6815] 31456]"); structure_ref_error();} t61708 = t61710.value.structure_type27694->s23; /* x269472 stalin.sc:11049:384320 */ t61703 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t61703==NULL) {backtrace("stalin.sc", 11049, 384319); out_of_memory_error();} t61703->s0 = t61707; t61703->s1 = *((struct w49 *)(&t61708)); /* x107175 stalin.sc:11047:384244 */ t61704.tag = STRUCTURE_TYPE24753; t61704.value.structure_type24753 = t61703; f6816(t61702, t61704); /* x107174 */ t61694 = p11952; p11953 = t61694; /* x107173 stalin.sc:11050:384394 */ /* x107167 stalin.sc:11051:384417 */ t61695 = p11953; /* x107172 stalin.sc:11055:384612 */ /* x107171 stalin.sc:11055:384633 */ /* x107170 stalin.sc:11055:384652 */ t61700 = p11953->a24215; /* x107169 stalin.sc:11055:384634 */ a38631 = t61700; /* x287193 */ /* x287192 */ t61701 = a38631; /* x287191 */ if (!((t61701.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33548]"); structure_ref_error();} t61698 = t61701.value.structure_type27698->s21; /* x107168 stalin.sc:11055:384613 */ a39901 = t61698; /* x292273 */ /* x292272 */ t61699 = a39901; /* x292271 */ if (!((t61699.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34818]"); structure_ref_error();} t61696 = t61699.value.structure_type27698->s10; /* x107140 stalin.sc:11050:384395 */ t61697.tag = NATIVE_PROCEDURE_TYPE20723; t61697.value.native_procedure_type20723 = t61695; f8173(t61697, t61696); goto l9641; l9640: /* x107192 stalin.sc:11043:384090 */ /* x107191 stalin.sc:11043:384090 */ l9641: /* x107300 stalin.sc:11056:384662 */ /* x107233 stalin.sc:11056:384668 */ /* x107227 stalin.sc:11057:384681 */ t61713 = p11939; /* x107232 stalin.sc:11064:384940 */ /* x107231 stalin.sc:11064:384961 */ /* x107230 stalin.sc:11064:384980 */ t61718 = p11939->a24215; /* x107229 stalin.sc:11064:384962 */ a38649 = t61718; /* x287265 */ /* x287264 */ t61719 = a38649; /* x287263 */ if (!((t61719.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33566]"); structure_ref_error();} t61716 = t61719.value.structure_type27698->s21; /* x107228 stalin.sc:11064:384941 */ a39949 = t61716; /* x292465 */ /* x292464 */ t61717 = a39949; /* x292463 */ if (!((t61717.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34866]"); structure_ref_error();} t61714 = t61717.value.structure_type27698->s10; /* x107194 stalin.sc:11056:384669 */ t61715.tag = NATIVE_PROCEDURE_TYPE19133; t61715.value.native_procedure_type19133 = t61713; if ((f8137(t61715, t61714).tag)==FALSE_TYPE) goto l9643; /* x107297 */ /* x107296 */ t61720 = p11939; p11960 = t61720; /* x107295 stalin.sc:11065:384990 */ /* x107289 stalin.sc:11066:385013 */ t61721 = p11960; /* x107294 stalin.sc:11077:385447 */ /* x107293 stalin.sc:11077:385468 */ /* x107292 stalin.sc:11077:385487 */ t61726 = p11960->a24215; /* x107291 stalin.sc:11077:385469 */ a38632 = t61726; /* x287197 */ /* x287196 */ t61727 = a38632; /* x287195 */ if (!((t61727.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33549]"); structure_ref_error();} t61724 = t61727.value.structure_type27698->s21; /* x107290 stalin.sc:11077:385448 */ a39902 = t61724; /* x292277 */ /* x292276 */ t61725 = a39902; /* x292275 */ if (!((t61725.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34819]"); structure_ref_error();} t61722 = t61725.value.structure_type27698->s10; /* x107234 stalin.sc:11065:384991 */ t61723.tag = NATIVE_PROCEDURE_TYPE20720; t61723.value.native_procedure_type20720 = t61721; f8173(t61723, t61722); goto l9644; l9643: /* x107299 stalin.sc:11056:384662 */ /* x107298 stalin.sc:11056:384662 */ l9644: /* x107407 stalin.sc:11078:385497 */ /* x107340 stalin.sc:11078:385503 */ /* x107334 stalin.sc:11079:385516 */ t61728 = p11939; /* x107339 stalin.sc:11091:385858 */ /* x107338 stalin.sc:11091:385879 */ /* x107337 stalin.sc:11091:385898 */ t61733 = p11939->a24215; /* x107336 stalin.sc:11091:385880 */ a38650 = t61733; /* x287269 */ /* x287268 */ t61734 = a38650; /* x287267 */ if (!((t61734.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33567]"); structure_ref_error();} t61731 = t61734.value.structure_type27698->s21; /* x107335 stalin.sc:11091:385859 */ a39950 = t61731; /* x292469 */ /* x292468 */ t61732 = a39950; /* x292467 */ if (!((t61732.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34867]"); structure_ref_error();} t61729 = t61732.value.structure_type27698->s10; /* x107301 stalin.sc:11078:385504 */ t61730.tag = NATIVE_PROCEDURE_TYPE19131; t61730.value.native_procedure_type19131 = t61728; if ((f8137(t61730, t61729).tag)==FALSE_TYPE) goto l9646; /* x107404 */ /* x107403 */ t61735 = p11939; p11970 = t61735; /* x107402 stalin.sc:11092:385908 */ /* x107396 stalin.sc:11093:385931 */ t61736 = p11970; /* x107401 stalin.sc:11108:386429 */ /* x107400 stalin.sc:11108:386450 */ /* x107399 stalin.sc:11108:386469 */ t61741 = p11970->a24215; /* x107398 stalin.sc:11108:386451 */ a38633 = t61741; /* x287201 */ /* x287200 */ t61742 = a38633; /* x287199 */ if (!((t61742.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33550]"); structure_ref_error();} t61739 = t61742.value.structure_type27698->s21; /* x107397 stalin.sc:11108:386430 */ a39903 = t61739; /* x292281 */ /* x292280 */ t61740 = a39903; /* x292279 */ if (!((t61740.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34820]"); structure_ref_error();} t61737 = t61740.value.structure_type27698->s10; /* x107341 stalin.sc:11092:385909 */ t61738.tag = NATIVE_PROCEDURE_TYPE20718; t61738.value.native_procedure_type20718 = t61736; f8173(t61738, t61737); goto l9647; l9646: /* x107406 stalin.sc:11078:385497 */ /* x107405 stalin.sc:11078:385497 */ l9647: /* x107514 stalin.sc:11109:386479 */ /* x107447 stalin.sc:11109:386485 */ /* x107441 stalin.sc:11110:386498 */ t61743 = p11939; /* x107446 stalin.sc:11117:386756 */ /* x107445 stalin.sc:11117:386777 */ /* x107444 stalin.sc:11117:386796 */ t61748 = p11939->a24215; /* x107443 stalin.sc:11117:386778 */ a38651 = t61748; /* x287273 */ /* x287272 */ t61749 = a38651; /* x287271 */ if (!((t61749.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33568]"); structure_ref_error();} t61746 = t61749.value.structure_type27698->s21; /* x107442 stalin.sc:11117:386757 */ a39951 = t61746; /* x292473 */ /* x292472 */ t61747 = a39951; /* x292471 */ if (!((t61747.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34868]"); structure_ref_error();} t61744 = t61747.value.structure_type27698->s10; /* x107408 stalin.sc:11109:386486 */ t61745.tag = NATIVE_PROCEDURE_TYPE19129; t61745.value.native_procedure_type19129 = t61743; if ((f8137(t61745, t61744).tag)==FALSE_TYPE) goto l9649; /* x107511 */ /* x107510 */ t61750 = p11939; p11980 = t61750; /* x107509 stalin.sc:11118:386806 */ /* x107503 stalin.sc:11119:386829 */ t61751 = p11980; /* x107508 stalin.sc:11130:387262 */ /* x107507 stalin.sc:11130:387283 */ /* x107506 stalin.sc:11130:387302 */ t61756 = p11980->a24215; /* x107505 stalin.sc:11130:387284 */ a38634 = t61756; /* x287205 */ /* x287204 */ t61757 = a38634; /* x287203 */ if (!((t61757.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33551]"); structure_ref_error();} t61754 = t61757.value.structure_type27698->s21; /* x107504 stalin.sc:11130:387263 */ a39904 = t61754; /* x292285 */ /* x292284 */ t61755 = a39904; /* x292283 */ if (!((t61755.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34821]"); structure_ref_error();} t61752 = t61755.value.structure_type27698->s10; /* x107448 stalin.sc:11118:386807 */ t61753.tag = NATIVE_PROCEDURE_TYPE20716; t61753.value.native_procedure_type20716 = t61751; f8173(t61753, t61752); goto l9650; l9649: /* x107513 stalin.sc:11109:386479 */ /* x107512 stalin.sc:11109:386479 */ l9650: /* x107621 stalin.sc:11131:387312 */ /* x107554 stalin.sc:11131:387318 */ /* x107548 stalin.sc:11132:387331 */ t61758 = p11939; /* x107553 stalin.sc:11139:387591 */ /* x107552 stalin.sc:11139:387612 */ /* x107551 stalin.sc:11139:387631 */ t61763 = p11939->a24215; /* x107550 stalin.sc:11139:387613 */ a38652 = t61763; /* x287277 */ /* x287276 */ t61764 = a38652; /* x287275 */ if (!((t61764.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33569]"); structure_ref_error();} t61761 = t61764.value.structure_type27698->s21; /* x107549 stalin.sc:11139:387592 */ a39952 = t61761; /* x292477 */ /* x292476 */ t61762 = a39952; /* x292475 */ if (!((t61762.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34869]"); structure_ref_error();} t61759 = t61762.value.structure_type27698->s10; /* x107515 stalin.sc:11131:387319 */ t61760.tag = NATIVE_PROCEDURE_TYPE19127; t61760.value.native_procedure_type19127 = t61758; if ((f8137(t61760, t61759).tag)==FALSE_TYPE) goto l9652; /* x107618 */ /* x107617 */ t61765 = p11939; p11990 = t61765; /* x107616 stalin.sc:11140:387641 */ /* x107610 stalin.sc:11141:387664 */ t61766 = p11990; /* x107615 stalin.sc:11152:388099 */ /* x107614 stalin.sc:11152:388120 */ /* x107613 stalin.sc:11152:388139 */ t61771 = p11990->a24215; /* x107612 stalin.sc:11152:388121 */ a38635 = t61771; /* x287209 */ /* x287208 */ t61772 = a38635; /* x287207 */ if (!((t61772.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33552]"); structure_ref_error();} t61769 = t61772.value.structure_type27698->s21; /* x107611 stalin.sc:11152:388100 */ a39905 = t61769; /* x292289 */ /* x292288 */ t61770 = a39905; /* x292287 */ if (!((t61770.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34822]"); structure_ref_error();} t61767 = t61770.value.structure_type27698->s10; /* x107555 stalin.sc:11140:387642 */ t61768.tag = NATIVE_PROCEDURE_TYPE20714; t61768.value.native_procedure_type20714 = t61766; f8173(t61768, t61767); goto l9653; l9652: /* x107620 stalin.sc:11131:387312 */ /* x107619 stalin.sc:11131:387312 */ l9653: /* x107121 */ t61670 = p11939; p11940 = t61670; /* x107120 stalin.sc:11153:388149 */ /* x107053 stalin.sc:11153:388155 */ /* x107047 stalin.sc:11154:388168 */ t61671 = p11940; /* x107052 stalin.sc:11161:388427 */ /* x107051 stalin.sc:11161:388448 */ /* x107050 stalin.sc:11161:388467 */ t61676 = p11940->a24215; /* x107049 stalin.sc:11161:388449 */ a38647 = t61676; /* x287257 */ /* x287256 */ t61677 = a38647; /* x287255 */ if (!((t61677.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33564]"); structure_ref_error();} t61674 = t61677.value.structure_type27698->s21; /* x107048 stalin.sc:11161:388428 */ a39947 = t61674; /* x292457 */ /* x292456 */ t61675 = a39947; /* x292455 */ if (!((t61675.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34864]"); structure_ref_error();} t61672 = t61675.value.structure_type27698->s10; /* x107014 stalin.sc:11153:388156 */ t61673.tag = NATIVE_PROCEDURE_TYPE19138; t61673.value.native_procedure_type19138 = t61671; if ((f8137(t61673, t61672).tag)==FALSE_TYPE) goto l9638; /* x107117 */ /* x107116 */ t61678 = p11940; p11943 = t61678; /* x107115 stalin.sc:11162:388477 */ /* x107109 stalin.sc:11163:388500 */ t61679 = p11943; /* x107114 stalin.sc:11174:388934 */ /* x107113 stalin.sc:11174:388955 */ /* x107112 stalin.sc:11174:388974 */ t61684 = p11943->a24215; /* x107111 stalin.sc:11174:388956 */ a38630 = t61684; /* x287189 */ /* x287188 */ t61685 = a38630; /* x287187 */ if (!((t61685.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33547]"); structure_ref_error();} t61682 = t61685.value.structure_type27698->s21; /* x107110 stalin.sc:11174:388935 */ a39900 = t61682; /* x292269 */ /* x292268 */ t61683 = a39900; /* x292267 */ if (!((t61683.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34817]"); structure_ref_error();} t61680 = t61683.value.structure_type27698->s10; /* x107054 stalin.sc:11162:388478 */ t61681.tag = NATIVE_PROCEDURE_TYPE20725; t61681.value.native_procedure_type20725 = t61679; f8173(t61681, t61680); return; l9638: /* x107119 stalin.sc:11153:388149 */ /* x107118 stalin.sc:11153:388149 */ return; l9634: /* x107626 stalin.sc:11040:383958 */ /* x107625 stalin.sc:11040:383958 */ return;} /* [inside DETERMINE-FREE-VARIABLES! 11933] */ void f11933(struct w49 a24209) {struct w49 t61773; struct w49 t61774; struct w3457 t61775; /* x106987 stalin.sc:10993:382317 */ /* x106978 stalin.sc:10993:382323 */ /* x106977 stalin.sc:10993:382342 */ t61773 = a24209; /* x106976 stalin.sc:10993:382324 */ if (f8526(t61773)==FALSE_TYPE) goto l9655; /* x106984 */ /* x106983 */ /* x106982 stalin.sc:10993:382345 */ /* x106980 stalin.sc:10993:382378 */ t61774 = a24209; /* x106981 stalin.sc:10993:382380 */ /* x106979 stalin.sc:10993:382346 */ t61775.tag = NULL_TYPE; f6688(t61774, t61775); return; l9655: /* x106986 stalin.sc:10993:382317 */ /* x106985 stalin.sc:10993:382317 */ return;} /* [inside DETERMINE-FREE-VARIABLES! 11932] */ void f11932(struct w49 a24208) {struct w49 t61776; char *t61777; struct w3457 t61778; /* x106971 stalin.sc:10990:382232 */ /* x106968 stalin.sc:10990:382265 */ t61776 = a24208; /* x106970 stalin.sc:10990:382267 */ /* x106969 stalin.sc:10990:382268 */ /* x277519 stalin.sc:323:8604 */ t61777 = q35; /* x106967 stalin.sc:10990:382233 */ t61778.tag = EXTERNAL_SYMBOL_TYPE; t61778.value.external_symbol_type = t61777; f6688(t61776, t61778); return;} /* [inside DETERMINE-FREE-VARIABLES! 11909] */ void f11909(struct w49 a24200) {struct w49 a20598; /* S */ char *a24201; /* v */ struct w49 a24202; /* G */ struct w49 a24203; /* E1 */ struct w49 a24206; /* E */ struct w49 a36612; /* S */ struct w49 a36953; /* S */ struct w49 a39178; /* S */ struct w49 a40099; /* S */ struct w49 a40405; /* S */ char *t61779; char *t61780; char *t61781; struct w49 t61782; struct w49 t61783; char *t61784; char *t61785; struct w49 t61786; struct w49 t61787; char *t61788; struct w49 t61789; struct w49 t61790; struct w49 t61791; struct w49 t61792; struct w49 t61793; struct w49 t61794; struct w49 t61795; struct w49 t61796; struct w49 t61797; struct w49 t61798; struct w49 t61799; struct w49 t61800; struct w49 t61801; struct w49 t61802; struct w3457 t61803; struct w49 t61804; struct w49 t61805; struct w49 t61806; struct w49 t61807; struct structure_type24753 *t61808; struct w3457 t61809; struct w49 t61810; struct w3457 t61811; struct w49 t61812; struct w49 t61813; struct w49 t61814; struct w49 t61815; struct w49 t61816; struct w49 t61817; struct w49 t61818; struct w49 t61819; /* x106961 stalin.sc:10996:382423 */ /* x106879 stalin.sc:10996:382429 */ /* x106878 stalin.sc:10996:382435 */ /* x106877 stalin.sc:10996:382452 */ t61791 = a24200; /* x106876 stalin.sc:10996:382436 */ a40405 = t61791; /* x294289 */ /* x294288 */ t61792 = a40405; /* x294287 */ if (!((t61792.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35322]"); structure_ref_error();} t61779 = t61792.value.structure_type27698->s0; /* x106875 */ a24201 = t61779; /* x106874 */ /* x106854 */ /* x106852 */ t61780 = a24201; /* x106853 */ t61781 = q38; /* x106851 */ t61782.tag = EXTERNAL_SYMBOL_TYPE; t61782.value.external_symbol_type = t61780; t61783.tag = EXTERNAL_SYMBOL_TYPE; t61783.value.external_symbol_type = t61781; if (f26160(t61782, t61783)==FALSE_TYPE) goto l9659; /* x106859 */ /* x106858 */ /* x106857 stalin.sc:10997:382470 */ /* x106856 stalin.sc:10997:382480 */ t61790 = a24200; /* x106855 stalin.sc:10997:382471 */ if (f6961(t61790)==FALSE_TYPE) goto l9657; goto l9660; l9659: /* x106873 */ /* x106863 */ /* x106861 */ t61784 = a24201; /* x106862 */ t61785 = q42; /* x106860 */ t61786.tag = EXTERNAL_SYMBOL_TYPE; t61786.value.external_symbol_type = t61784; t61787.tag = EXTERNAL_SYMBOL_TYPE; t61787.value.external_symbol_type = t61785; if (f26160(t61786, t61787)==FALSE_TYPE) goto l9662; /* x106868 */ /* x106867 */ /* x106866 stalin.sc:10998:382497 */ /* x106865 stalin.sc:10998:382508 */ t61789 = a24200; /* x106864 stalin.sc:10998:382498 */ if (f6967(t61789)==FALSE_TYPE) goto l9657; goto l9663; l9662: /* x106872 */ /* x106871 */ /* x106870 stalin.sc:10999:382523 */ /* x106869 stalin.sc:10999:382524 */ /* x297033 QobiScheme.sc:166:5314 */ /* x297032 QobiScheme.sc:166:5321 */ t61788 = "This shouldn\'t happen"; /* x297031 QobiScheme.sc:166:5315 */ stalin_panic(t61788); l9663: l9660: /* x106958 */ /* x106957 */ /* x106956 stalin.sc:11000:382541 */ /* x106955 stalin.sc:11000:382551 */ /* x106954 stalin.sc:11000:382572 */ t61818 = a24200; /* x106953 stalin.sc:11000:382552 */ a39178 = t61818; /* x289381 */ /* x289380 */ t61819 = a39178; /* x289379 */ if (!((t61819.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34095]"); structure_ref_error();} t61793 = t61819.value.structure_type27698->s16; /* x106952 */ a24202 = t61793; /* x106951 */ /* x106950 stalin.sc:11001:382586 */ /* x106949 stalin.sc:11001:382608 */ t61816 = a24202; /* x106948 stalin.sc:11001:382587 */ a36953 = t61816; /* x280481 */ /* x280480 */ t61817 = a36953; /* x280479 */ if (!((t61817.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31870]"); structure_ref_error();} t61794 = t61817.value.structure_type27692->s8; /* x106947 */ a24203 = t61794; /* x106946 */ /* x106945 */ /* x106944 stalin.sc:11002:382620 */ /* x106882 stalin.sc:11002:382626 */ /* x106881 stalin.sc:11002:382637 */ t61795 = a24202; /* x106880 stalin.sc:11002:382627 */ if (f8229(t61795)==FALSE_TYPE) goto l9665; /* x106941 */ /* x106940 */ /* x106939 stalin.sc:11003:382648 */ /* x106938 stalin.sc:11003:382662 */ /* x106937 stalin.sc:11003:382686 */ t61814 = a24200; /* x106936 stalin.sc:11003:382663 */ a40099 = t61814; /* x293065 */ /* x293064 */ t61815 = a40099; /* x293063 */ if (!((t61815.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35016]"); structure_ref_error();} t61796 = t61815.value.structure_type27698->s9; /* x106935 */ /* x106934 */ /* x106933 */ /* x106932 */ /* x106931 */ /* x106930 */ /* x106929 */ /* x106884 */ /* x106883 stalin.sc:11003:382653 */ a24206 = t61796; h11921: /* x106928 stalin.sc:11004:382693 */ /* x106888 stalin.sc:11004:382701 */ /* x106886 stalin.sc:11004:382706 */ t61797 = a24206; /* x106887 stalin.sc:11004:382708 */ t61798 = a24203; /* x269477 stalin.sc:11004:382702 */ /* EQ: dispatching general to general */ if (!((t61797.tag)==(t61798.tag))) goto l9667; switch (t61797.tag) {case FIXNUM_TYPE: if (!((t61797.value.fixnum_type)==(t61798.value.fixnum_type))) goto l9667; break; case FLONUM_TYPE: if (!((t61797.value.flonum_type)==(t61798.value.flonum_type))) goto l9667; break; case INPUT_PORT_TYPE: if (!((t61797.value.input_port_type)==(t61798.value.input_port_type))) goto l9667; break; case OUTPUT_PORT_TYPE: if (!((t61797.value.output_port_type)==(t61798.value.output_port_type))) goto l9667; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t61797.value.native_procedure_type15963)==(t61798.value.native_procedure_type15963))) goto l9667; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t61797.value.native_procedure_type19067)==(t61798.value.native_procedure_type19067))) goto l9667; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t61797.value.native_procedure_type19068)==(t61798.value.native_procedure_type19068))) goto l9667; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t61797.value.native_procedure_type22459)==(t61798.value.native_procedure_type22459))) goto l9667; break; case STRUCTURE_TYPE24753: if (!((t61797.value.structure_type24753)==(t61798.value.structure_type24753))) goto l9667; break; case STRUCTURE_TYPE24757: if (!((t61797.value.structure_type24757)==(t61798.value.structure_type24757))) goto l9667; break; case STRUCTURE_TYPE27501: if (!((t61797.value.structure_type27501)==(t61798.value.structure_type27501))) goto l9667; break; case STRUCTURE_TYPE27510: if (!((t61797.value.structure_type27510)==(t61798.value.structure_type27510))) goto l9667; break; case STRUCTURE_TYPE27621: if (!((t61797.value.structure_type27621)==(t61798.value.structure_type27621))) goto l9667; break; case STRUCTURE_TYPE27650: if (!((t61797.value.structure_type27650)==(t61798.value.structure_type27650))) goto l9667; break; case STRUCTURE_TYPE27669: if (!((t61797.value.structure_type27669)==(t61798.value.structure_type27669))) goto l9667; break; case STRUCTURE_TYPE27673: if (!((t61797.value.structure_type27673)==(t61798.value.structure_type27673))) goto l9667; break; case STRUCTURE_TYPE27692: if (!((t61797.value.structure_type27692)==(t61798.value.structure_type27692))) goto l9667; break; case STRUCTURE_TYPE27694: if (!((t61797.value.structure_type27694)==(t61798.value.structure_type27694))) goto l9667; break; case STRUCTURE_TYPE27698: if (!((t61797.value.structure_type27698)==(t61798.value.structure_type27698))) goto l9667; break; case STRUCTURE_TYPE27745: if (!((t61797.value.structure_type27745)==(t61798.value.structure_type27745))) goto l9667; break; case STRUCTURE_TYPE27747: if (!((t61797.value.structure_type27747)==(t61798.value.structure_type27747))) goto l9667; break; case STRUCTURE_TYPE27750: if (!((t61797.value.structure_type27750)==(t61798.value.structure_type27750))) goto l9667; break; case STRUCTURE_TYPE27753: if (!((t61797.value.structure_type27753)==(t61798.value.structure_type27753))) goto l9667; break; case STRUCTURE_TYPE27756: if (!((t61797.value.structure_type27756)==(t61798.value.structure_type27756))) goto l9667; break; case STRUCTURE_TYPE27761: if (!((t61797.value.structure_type27761)==(t61798.value.structure_type27761))) goto l9667; break; case STRUCTURE_TYPE27769: if (!((t61797.value.structure_type27769)==(t61798.value.structure_type27769))) goto l9667; break; case STRUCTURE_TYPE27776: if (!((t61797.value.structure_type27776)==(t61798.value.structure_type27776))) goto l9667; break; case STRUCTURE_TYPE27779: if (!((t61797.value.structure_type27779)==(t61798.value.structure_type27779))) goto l9667; break; case STRUCTURE_TYPE27858: if (!((t61797.value.structure_type27858)==(t61798.value.structure_type27858))) goto l9667; break; case STRING_TYPE: if (!((t61797.value.string_type)==(t61798.value.string_type))) goto l9667; break; case HEADED_VECTOR_TYPE27896: if (!((t61797.value.headed_vector_type27896)==(t61798.value.headed_vector_type27896))) goto l9667; break; case EXTERNAL_SYMBOL_TYPE: if (!((t61797.value.external_symbol_type)==(t61798.value.external_symbol_type))) goto l9667; break; case STRUCTURE_TYPE27908: if (!((t61797.value.structure_type27908)==(t61798.value.structure_type27908))) goto l9667; break; default:;} /* x106890 */ /* x106889 */ return; l9667: /* x106927 */ /* x106926 */ /* x106925 */ /* x106924 stalin.sc:11006:382774 */ /* x106899 stalin.sc:11006:382780 */ /* x106898 stalin.sc:11006:382799 */ t61801 = a24206; /* x106897 stalin.sc:11006:382781 */ if (f8526(t61801)==FALSE_TYPE) goto l9669; /* x106921 */ /* x106920 */ /* x106919 stalin.sc:11007:382806 */ /* x106905 stalin.sc:11007:382814 */ /* x106901 stalin.sc:11007:382820 */ t61802 = a24202; /* x106904 stalin.sc:11007:382822 */ /* x106903 stalin.sc:11007:382850 */ t61805 = a24206; /* x106902 stalin.sc:11007:382823 */ a36612 = t61805; /* x279117 */ /* x279116 */ t61806 = a36612; /* x279115 */ if (!((t61806.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-FREE-VARIABLES[6687] 31529]"); structure_ref_error();} t61803 = t61806.value.structure_type27694->s7; /* x106900 stalin.sc:11007:382815 */ t61804 = *((struct w49 *)(&t61803)); if ((f26351(t61802, t61804).tag)==FALSE_TYPE) goto l9672; /* x106907 */ /* x106906 */ goto l9673; l9672: /* x106918 */ /* x106917 */ /* x106916 stalin.sc:11008:382859 */ /* x106909 stalin.sc:11009:382898 */ t61807 = a24206; /* x106915 stalin.sc:11009:382900 */ /* x106911 stalin.sc:11009:382906 */ t61810 = a24202; /* x106914 stalin.sc:11009:382908 */ /* x106913 stalin.sc:11009:382936 */ t61812 = a24206; /* x106912 stalin.sc:11009:382909 */ a20598 = t61812; /* x55613 */ /* x55612 */ t61813 = a20598; /* x55611 */ if (!((t61813.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("ENVIRONMENT-FREE-VARIABLES[6687]"); structure_ref_error();} t61811 = t61813.value.structure_type27694->s7; /* x269476 stalin.sc:11009:382901 */ t61808 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t61808==NULL) {backtrace("stalin.sc", 11009, 382900); out_of_memory_error();} t61808->s0 = t61810; t61808->s1 = *((struct w49 *)(&t61811)); /* x106908 stalin.sc:11008:382860 */ t61809.tag = STRUCTURE_TYPE24753; t61809.value.structure_type24753 = t61808; f6688(t61807, t61809); l9673: goto l9670; l9669: /* x106923 stalin.sc:11006:382774 */ /* x106922 stalin.sc:11006:382774 */ l9670: /* x106896 */ /* x106895 stalin.sc:11010:382946 */ /* x106894 stalin.sc:11010:382952 */ /* x106893 stalin.sc:11010:382960 */ t61800 = a24206; /* x106892 stalin.sc:11010:382953 */ t61799 = f8682(t61800); /* x106891 stalin.sc:11010:382947 */ a24206 = t61799; goto h11921; l9665: /* x106943 stalin.sc:11002:382620 */ /* x106942 stalin.sc:11002:382620 */ return; l9657: /* x106960 stalin.sc:10996:382423 */ /* x106959 stalin.sc:10996:382423 */ return;} /* [inside LOOP 11861] */ void f11861(struct w49 a24188) {char *a24190; /* v */ struct w49 a38592; /* S */ struct w49 a38783; /* S */ struct w49 a38864; /* S */ struct w49 a38896; /* S */ struct w49 a38948; /* S */ struct w49 a39037; /* S */ struct w49 a39038; /* S */ struct w49 a39048; /* S */ struct w49 a39069; /* S */ struct w49 a39154; /* S */ struct w49 a39168; /* S */ struct w49 a39182; /* S */ struct w49 a40005; /* S */ struct w49 a40006; /* S */ struct w49 a40007; /* S */ struct w49 a40020; /* S */ struct w49 a40396; /* S */ struct w49 t61820; char *t61822; char *t61823; char *t61824; struct w49 t61825; struct w49 t61826; char *t61827; char *t61828; struct w49 t61829; struct w49 t61830; char *t61831; char *t61832; struct w49 t61833; struct w49 t61834; char *t61835; char *t61836; struct w49 t61837; struct w49 t61838; char *t61839; char *t61840; struct w49 t61841; struct w49 t61842; char *t61843; char *t61844; struct w49 t61845; struct w49 t61846; char *t61847; char *t61848; struct w49 t61849; struct w49 t61850; char *t61851; char *t61852; struct w49 t61853; struct w49 t61854; char *t61855; char *t61856; struct w49 t61857; struct w49 t61858; char *t61859; char *t61860; struct w49 t61861; struct w49 t61862; char *t61863; char *t61864; struct w49 t61865; struct w49 t61866; char *t61867; char *t61868; struct w49 t61869; struct w49 t61870; char *t61871; char *t61872; struct w49 t61873; struct w49 t61874; char *t61875; char *t61876; struct w49 t61877; struct w49 t61878; char *t61879; char *t61880; struct w49 t61881; struct w49 t61882; char *t61883; char *t61884; struct w49 t61885; struct w49 t61886; char *t61887; char *t61888; struct w49 t61889; struct w49 t61890; char *t61891; char *t61892; struct w49 t61893; struct w49 t61894; char *t61895; char *t61896; struct w49 t61897; struct w49 t61898; char *t61899; char *t61900; struct w49 t61901; struct w49 t61902; char *t61903; char *t61904; struct w49 t61905; struct w49 t61906; char *t61907; struct w49 t61908; struct w49 t61909; struct structure_type27745 *t61910; struct structure_type24753 *t61911; struct structure_type27650 *t61912; unsigned t61913; struct structure_type27745 *t61914; struct w12224 t61915; struct w49 t61916; struct w16638 t61917; struct w49 t61918; struct w49 t61919; struct w49 t61920; struct w49 t61921; struct w49 t61922; struct w11873 t61923; struct w36270 t61924; struct w49 t61925; struct structure_type24753 *t61926; struct w49 t61927; struct w49 t61928; struct w49 t61929; struct w49 t61930; struct w49 t61931; struct w49 t61932; struct w49 t61933; struct w49 t61934; struct w49 t61935; struct w49 t61936; struct w49 t61937; unsigned t61938; struct w49 t61939; struct w49 t61940; struct w49 t61941; struct w49 t61942; struct w211257 t61943; struct w49 t61944; struct w49 t61945; struct w49 t61946; struct w49 t61947; struct w49 t61948; struct w49 t61949; struct w49 t61950; struct w49 t61951; struct w211235 t61952; struct w49 t61953; struct w49 t61954; struct w49 t61955; struct w49 t61956; struct w49 t61957; struct w49 t61958; struct w49 t61959; struct w49 t61960; struct w49 t61961; struct w49 t61962; struct w49 t61963; struct w49 t61964; struct w49 t61965; struct w49 t61966; struct w49 t61967; struct w49 t61968; struct w49 t61969; struct w49 t61970; struct w49 t61971; struct w49 t61972; /* x106825 stalin.sc:10928:380142 */ /* x106509 stalin.sc:10928:380148 */ /* x106508 stalin.sc:10928:380158 */ t61820 = a24188; /* x106507 stalin.sc:10928:380149 */ if (f6961(t61820)==FALSE_TYPE) goto l9675; /* x106822 */ /* x106821 */ /* x106820 stalin.sc:10929:380167 */ /* x106819 stalin.sc:10929:380176 */ /* x106818 stalin.sc:10929:380197 */ t61971 = a24188; /* x106817 stalin.sc:10929:380177 */ a40020 = t61971; /* x292749 */ /* x292748 */ t61972 = a40020; /* x292747 */ if (!((t61972.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34937]"); structure_ref_error();} /* x106816 */ /* x106815 stalin.sc:10930:380209 */ /* x106814 stalin.sc:10930:380215 */ /* x106813 stalin.sc:10930:380232 */ t61969 = a24188; /* x106812 stalin.sc:10930:380216 */ a40396 = t61969; /* x294253 */ /* x294252 */ t61970 = a40396; /* x294251 */ if (!((t61970.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35313]"); structure_ref_error();} t61822 = t61970.value.structure_type27698->s0; /* x106811 */ a24190 = t61822; /* x106810 */ /* x106513 */ /* x106511 */ t61823 = a24190; /* x106512 */ t61824 = q68; /* x106510 */ t61825.tag = EXTERNAL_SYMBOL_TYPE; t61825.value.external_symbol_type = t61823; t61826.tag = EXTERNAL_SYMBOL_TYPE; t61826.value.external_symbol_type = t61824; if (f26160(t61825, t61826)==FALSE_TYPE) goto l9677; /* x106516 */ /* x106515 */ /* x106514 stalin.sc:10931:380253 */ return; l9677: /* x106809 */ /* x106520 */ /* x106518 */ t61827 = a24190; /* x106519 */ t61828 = q69; /* x106517 */ t61829.tag = EXTERNAL_SYMBOL_TYPE; t61829.value.external_symbol_type = t61827; t61830.tag = EXTERNAL_SYMBOL_TYPE; t61830.value.external_symbol_type = t61828; if (f26160(t61829, t61830)==FALSE_TYPE) goto l9679; /* x106523 */ /* x106522 */ /* x106521 stalin.sc:10932:380275 */ return; l9679: /* x106808 */ /* x106527 */ /* x106525 */ t61831 = a24190; /* x106526 */ t61832 = q70; /* x106524 */ t61833.tag = EXTERNAL_SYMBOL_TYPE; t61833.value.external_symbol_type = t61831; t61834.tag = EXTERNAL_SYMBOL_TYPE; t61834.value.external_symbol_type = t61832; if (f26160(t61833, t61834)==FALSE_TYPE) goto l9681; /* x106530 */ /* x106529 */ /* x106528 stalin.sc:10933:380298 */ return; l9681: /* x106807 */ /* x106534 */ /* x106532 */ t61835 = a24190; /* x106533 */ t61836 = q71; /* x106531 */ t61837.tag = EXTERNAL_SYMBOL_TYPE; t61837.value.external_symbol_type = t61835; t61838.tag = EXTERNAL_SYMBOL_TYPE; t61838.value.external_symbol_type = t61836; if (f26160(t61837, t61838)==FALSE_TYPE) goto l9683; /* x106537 */ /* x106536 */ /* x106535 stalin.sc:10934:380320 */ return; l9683: /* x106806 */ /* x106541 */ /* x106539 */ t61839 = a24190; /* x106540 */ t61840 = q72; /* x106538 */ t61841.tag = EXTERNAL_SYMBOL_TYPE; t61841.value.external_symbol_type = t61839; t61842.tag = EXTERNAL_SYMBOL_TYPE; t61842.value.external_symbol_type = t61840; if (f26160(t61841, t61842)==FALSE_TYPE) goto l9685; /* x106544 */ /* x106543 */ /* x106542 stalin.sc:10935:380344 */ return; l9685: /* x106805 */ /* x106548 */ /* x106546 */ t61843 = a24190; /* x106547 */ t61844 = q73; /* x106545 */ t61845.tag = EXTERNAL_SYMBOL_TYPE; t61845.value.external_symbol_type = t61843; t61846.tag = EXTERNAL_SYMBOL_TYPE; t61846.value.external_symbol_type = t61844; if (f26160(t61845, t61846)==FALSE_TYPE) goto l9687; /* x106551 */ /* x106550 */ /* x106549 stalin.sc:10936:380368 */ return; l9687: /* x106804 */ /* x106555 */ /* x106553 */ t61847 = a24190; /* x106554 */ t61848 = q74; /* x106552 */ t61849.tag = EXTERNAL_SYMBOL_TYPE; t61849.value.external_symbol_type = t61847; t61850.tag = EXTERNAL_SYMBOL_TYPE; t61850.value.external_symbol_type = t61848; if (f26160(t61849, t61850)==FALSE_TYPE) goto l9689; /* x106558 */ /* x106557 */ /* x106556 stalin.sc:10937:380397 */ return; l9689: /* x106803 */ /* x106562 */ /* x106560 */ t61851 = a24190; /* x106561 */ t61852 = q75; /* x106559 */ t61853.tag = EXTERNAL_SYMBOL_TYPE; t61853.value.external_symbol_type = t61851; t61854.tag = EXTERNAL_SYMBOL_TYPE; t61854.value.external_symbol_type = t61852; if (f26160(t61853, t61854)==FALSE_TYPE) goto l9691; /* x106565 */ /* x106564 */ /* x106563 stalin.sc:10938:380421 */ return; l9691: /* x106802 */ /* x106569 */ /* x106567 */ t61855 = a24190; /* x106568 */ t61856 = q76; /* x106566 */ t61857.tag = EXTERNAL_SYMBOL_TYPE; t61857.value.external_symbol_type = t61855; t61858.tag = EXTERNAL_SYMBOL_TYPE; t61858.value.external_symbol_type = t61856; if (f26160(t61857, t61858)==FALSE_TYPE) goto l9693; /* x106572 */ /* x106571 */ /* x106570 stalin.sc:10939:380445 */ return; l9693: /* x106801 */ /* x106576 */ /* x106574 */ t61859 = a24190; /* x106575 */ t61860 = q50; /* x106573 */ t61861.tag = EXTERNAL_SYMBOL_TYPE; t61861.value.external_symbol_type = t61859; t61862.tag = EXTERNAL_SYMBOL_TYPE; t61862.value.external_symbol_type = t61860; if (f26160(t61861, t61862)==FALSE_TYPE) goto l9695; /* x106579 */ /* x106578 */ /* x106577 stalin.sc:10940:380467 */ return; l9695: /* x106800 */ /* x106583 */ /* x106581 */ t61863 = a24190; /* x106582 */ t61864 = q52; /* x106580 */ t61865.tag = EXTERNAL_SYMBOL_TYPE; t61865.value.external_symbol_type = t61863; t61866.tag = EXTERNAL_SYMBOL_TYPE; t61866.value.external_symbol_type = t61864; if (f26160(t61865, t61866)==FALSE_TYPE) goto l9697; /* x106586 */ /* x106585 */ /* x106584 stalin.sc:10941:380491 */ return; l9697: /* x106799 */ /* x106608 */ /* x106607 */ /* x106605 */ t61867 = a24190; /* x106606 */ t61868 = q39; /* x106604 */ t61869.tag = EXTERNAL_SYMBOL_TYPE; t61869.value.external_symbol_type = t61867; t61870.tag = EXTERNAL_SYMBOL_TYPE; t61870.value.external_symbol_type = t61868; if (!(f26160(t61869, t61870)==FALSE_TYPE)) goto l9698; /* x106601 */ /* x106600 */ /* x106598 */ t61871 = a24190; /* x106599 */ t61872 = q40; /* x106597 */ t61873.tag = EXTERNAL_SYMBOL_TYPE; t61873.value.external_symbol_type = t61871; t61874.tag = EXTERNAL_SYMBOL_TYPE; t61874.value.external_symbol_type = t61872; if (!(f26160(t61873, t61874)==FALSE_TYPE)) goto l9698; /* x106594 */ /* x106592 */ t61875 = a24190; /* x106593 */ t61876 = q41; /* x106591 */ t61877.tag = EXTERNAL_SYMBOL_TYPE; t61877.value.external_symbol_type = t61875; t61878.tag = EXTERNAL_SYMBOL_TYPE; t61878.value.external_symbol_type = t61876; if (f26160(t61877, t61878)==FALSE_TYPE) goto l9699; l9698: /* x106611 */ /* x106610 */ /* x106609 stalin.sc:10942:380546 */ return; l9699: /* x106798 */ /* x106615 */ /* x106613 */ t61879 = a24190; /* x106614 */ t61880 = q42; /* x106612 */ t61881.tag = EXTERNAL_SYMBOL_TYPE; t61881.value.external_symbol_type = t61879; t61882.tag = EXTERNAL_SYMBOL_TYPE; t61882.value.external_symbol_type = t61880; if (f26160(t61881, t61882)==FALSE_TYPE) goto l9703; /* x106632 */ /* x106631 */ /* x106630 stalin.sc:10946:380657 */ /* x106620 stalin.sc:10946:380663 */ /* x106619 stalin.sc:10946:380683 */ /* x106618 stalin.sc:10946:380704 */ t61964 = a24188; /* x106617 stalin.sc:10946:380684 */ a39182 = t61964; /* x289397 */ /* x289396 */ t61965 = a39182; /* x289395 */ if (!((t61965.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34099]"); structure_ref_error();} t61963 = t61965.value.structure_type27698->s16; /* x106616 stalin.sc:10946:380664 */ if (f8194(t61963)==FALSE_TYPE) goto l9728; /* x106627 */ /* x106626 */ /* x106625 stalin.sc:10947:380711 */ /* x106624 stalin.sc:10947:380740 */ /* x106623 stalin.sc:10947:380759 */ t61967 = a24188; /* x106622 stalin.sc:10947:380741 */ a39069 = t61967; /* x288945 */ /* x288944 */ t61968 = a39069; /* x288943 */ if (!((t61968.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33986]"); structure_ref_error();} t61966 = t61968.value.structure_type27698->s17; /* x106621 stalin.sc:10947:380712 */ f11857(t61966); return; l9728: /* x106629 stalin.sc:10946:380657 */ /* x106628 stalin.sc:10946:380657 */ return; l9703: /* x106797 */ /* x106636 */ /* x106634 */ t61883 = a24190; /* x106635 */ t61884 = q43; /* x106633 */ t61885.tag = EXTERNAL_SYMBOL_TYPE; t61885.value.external_symbol_type = t61883; t61886.tag = EXTERNAL_SYMBOL_TYPE; t61886.value.external_symbol_type = t61884; if (f26160(t61885, t61886)==FALSE_TYPE) goto l9705; /* x106691 */ /* x106690 */ /* x106689 */ /* x106688 stalin.sc:10950:380814 */ /* x106687 stalin.sc:10950:380843 */ /* x106686 stalin.sc:10950:380866 */ t61961 = a24188; /* x106685 stalin.sc:10950:380844 */ a39048 = t61961; /* x288861 */ /* x288860 */ t61962 = a39048; /* x288859 */ if (!((t61962.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33965]"); structure_ref_error();} t61960 = t61962.value.structure_type27698->s18; /* x106684 stalin.sc:10950:380815 */ f11857(t61960); /* x106683 */ /* x106682 stalin.sc:10953:380967 */ /* x106639 stalin.sc:10953:380973 */ /* x106638 stalin.sc:10953:380995 */ t61941 = a24188; /* x106637 stalin.sc:10953:380974 */ if (f6936(t61941)==FALSE_TYPE) goto l9721; /* x106679 */ /* x106678 */ /* x106677 */ /* x106676 stalin.sc:10954:381001 */ /* x106666 stalin.sc:10954:381007 */ /* x106660 stalin.sc:10954:381020 */ /* x106665 stalin.sc:10955:381040 */ /* x106664 stalin.sc:10955:381061 */ /* x106663 stalin.sc:10955:381084 */ t61955 = a24188; /* x106662 stalin.sc:10955:381062 */ a39038 = t61955; /* x288821 */ /* x288820 */ t61956 = a39038; /* x288819 */ if (!((t61956.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33955]"); structure_ref_error();} t61953 = t61956.value.structure_type27698->s18; /* x106661 stalin.sc:10955:381041 */ a40006 = t61953; /* x292693 */ /* x292692 */ t61954 = a40006; /* x292691 */ if (!((t61954.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34923]"); structure_ref_error();} t61951 = t61954.value.structure_type27698->s10; /* x106659 stalin.sc:10954:381008 */ t61952.tag = NATIVE_PROCEDURE_TYPE7433; if ((f8144(t61952, t61951).tag)==FALSE_TYPE) goto l9725; /* x106673 */ /* x106672 */ /* x106671 stalin.sc:10956:381093 */ /* x106670 stalin.sc:10956:381122 */ /* x106669 stalin.sc:10956:381145 */ t61958 = a24188; /* x106668 stalin.sc:10956:381123 */ a38948 = t61958; /* x288461 */ /* x288460 */ t61959 = a38948; /* x288459 */ if (!((t61959.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33865]"); structure_ref_error();} t61957 = t61959.value.structure_type27698->s19; /* x106667 stalin.sc:10956:381094 */ f11857(t61957); goto l9726; l9725: /* x106675 stalin.sc:10954:381001 */ /* x106674 stalin.sc:10954:381001 */ l9726: /* x106658 */ /* x106657 stalin.sc:10957:381153 */ /* x106647 stalin.sc:10957:381159 */ /* x106641 stalin.sc:10957:381168 */ /* x106646 stalin.sc:10958:381184 */ /* x106645 stalin.sc:10958:381205 */ /* x106644 stalin.sc:10958:381228 */ t61946 = a24188; /* x106643 stalin.sc:10958:381206 */ a39037 = t61946; /* x288817 */ /* x288816 */ t61947 = a39037; /* x288815 */ if (!((t61947.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33954]"); structure_ref_error();} t61944 = t61947.value.structure_type27698->s18; /* x106642 stalin.sc:10958:381185 */ a40005 = t61944; /* x292689 */ /* x292688 */ t61945 = a40005; /* x292687 */ if (!((t61945.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34922]"); structure_ref_error();} t61942 = t61945.value.structure_type27698->s10; /* x106640 stalin.sc:10957:381160 */ t61943.tag = NATIVE_PROCEDURE_TYPE7433; if ((f8137(t61943, t61942).tag)==FALSE_TYPE) goto l9723; /* x106654 */ /* x106653 */ /* x106652 stalin.sc:10959:381237 */ /* x106651 stalin.sc:10959:381266 */ /* x106650 stalin.sc:10959:381288 */ t61949 = a24188; /* x106649 stalin.sc:10959:381267 */ a38896 = t61949; /* x288253 */ /* x288252 */ t61950 = a38896; /* x288251 */ if (!((t61950.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33813]"); structure_ref_error();} t61948 = t61950.value.structure_type27698->s20; /* x106648 stalin.sc:10959:381238 */ f11857(t61948); return; l9723: /* x106656 stalin.sc:10957:381153 */ /* x106655 stalin.sc:10957:381153 */ return; l9721: /* x106681 stalin.sc:10953:380967 */ /* x106680 stalin.sc:10953:380967 */ return; l9705: /* x106796 */ /* x106695 */ /* x106693 */ t61887 = a24190; /* x106694 */ t61888 = q77; /* x106692 */ t61889.tag = EXTERNAL_SYMBOL_TYPE; t61889.value.external_symbol_type = t61887; t61890.tag = EXTERNAL_SYMBOL_TYPE; t61890.value.external_symbol_type = t61888; if (f26160(t61889, t61890)==FALSE_TYPE) goto l9707; /* x106698 */ /* x106697 */ /* x106696 stalin.sc:10960:381319 */ return; l9707: /* x106795 */ /* x106702 */ /* x106700 */ t61891 = a24190; /* x106701 */ t61892 = q78; /* x106699 */ t61893.tag = EXTERNAL_SYMBOL_TYPE; t61893.value.external_symbol_type = t61891; t61894.tag = EXTERNAL_SYMBOL_TYPE; t61894.value.external_symbol_type = t61892; if (f26160(t61893, t61894)==FALSE_TYPE) goto l9709; /* x106705 */ /* x106704 */ /* x106703 stalin.sc:10961:381345 */ return; l9709: /* x106794 */ /* x106709 */ /* x106707 */ t61895 = a24190; /* x106708 */ t61896 = q38; /* x106706 */ t61897.tag = EXTERNAL_SYMBOL_TYPE; t61897.value.external_symbol_type = t61895; t61898.tag = EXTERNAL_SYMBOL_TYPE; t61898.value.external_symbol_type = t61896; if (f26160(t61897, t61898)==FALSE_TYPE) goto l9711; /* x106738 */ /* x106737 */ /* x106736 stalin.sc:10963:381362 */ /* x106721 stalin.sc:10963:381368 */ /* x106712 stalin.sc:10963:381373 */ /* x106711 stalin.sc:10963:381395 */ t61933 = a24188; /* x106710 stalin.sc:10963:381374 */ if (f6936(t61933)==FALSE_TYPE) goto l9718; /* x106719 */ /* x106718 stalin.sc:10964:381409 */ /* x106717 stalin.sc:10964:381429 */ /* x106716 stalin.sc:10964:381450 */ t61935 = a24188; /* x106715 stalin.sc:10964:381430 */ a39168 = t61935; /* x289341 */ /* x289340 */ t61936 = a39168; /* x289339 */ if (!((t61936.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34085]"); structure_ref_error();} t61934 = t61936.value.structure_type27698->s16; /* x106714 stalin.sc:10964:381410 */ if (!(f8194(t61934)==FALSE_TYPE)) goto l9718; /* x106733 */ /* x106732 */ /* x106731 */ /* x106730 stalin.sc:10965:381459 */ /* x106728 stalin.sc:10965:381484 */ /* x106727 stalin.sc:10965:381505 */ t61939 = a24188; /* x106726 stalin.sc:10965:381485 */ a39154 = t61939; /* x289285 */ /* x289284 */ t61940 = a39154; /* x289283 */ if (!((t61940.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34071]"); structure_ref_error();} t61937 = t61940.value.structure_type27698->s16; /* x106729 stalin.sc:10965:381508 */ /* x106725 stalin.sc:10965:381460 */ t61938 = TRUE_TYPE; f8195(t61937, t61938); /* x106724 */ /* x106723 stalin.sc:10966:381515 */ /* x106722 stalin.sc:10966:381528 */ a24151 = TRUE_TYPE; return; l9718: /* x106735 stalin.sc:10963:381362 */ /* x106734 stalin.sc:10963:381362 */ return; l9711: /* x106793 */ /* x106751 */ /* x106750 */ /* x106748 */ t61899 = a24190; /* x106749 */ t61900 = q36; /* x106747 */ t61901.tag = EXTERNAL_SYMBOL_TYPE; t61901.value.external_symbol_type = t61899; t61902.tag = EXTERNAL_SYMBOL_TYPE; t61902.value.external_symbol_type = t61900; if (!(f26160(t61901, t61902)==FALSE_TYPE)) goto l9712; /* x106744 */ /* x106742 */ t61903 = a24190; /* x106743 */ t61904 = q37; /* x106741 */ t61905.tag = EXTERNAL_SYMBOL_TYPE; t61905.value.external_symbol_type = t61903; t61906.tag = EXTERNAL_SYMBOL_TYPE; t61906.value.external_symbol_type = t61904; if (f26160(t61905, t61906)==FALSE_TYPE) goto l9713; l9712: /* x106788 */ /* x106787 */ /* x106786 */ /* x106785 stalin.sc:10969:381596 */ /* x106784 stalin.sc:10969:381625 */ /* x106783 stalin.sc:10969:381644 */ t61931 = a24188; /* x106782 stalin.sc:10969:381626 */ a38864 = t61931; /* x288125 */ /* x288124 */ t61932 = a38864; /* x288123 */ if (!((t61932.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33781]"); structure_ref_error();} t61930 = t61932.value.structure_type27698->s21; /* x106781 stalin.sc:10969:381597 */ f11857(t61930); /* x106780 */ /* x106779 stalin.sc:10972:381744 */ /* x106754 stalin.sc:10972:381750 */ /* x106753 stalin.sc:10972:381761 */ t61908 = a24188; /* x106752 stalin.sc:10972:381751 */ if (f6967(t61908)==FALSE_TYPE) goto l9716; /* x106776 */ /* x106775 */ /* x106774 stalin.sc:10973:381767 */ /* x106760 stalin.sc:10974:381796 */ /* x106759 stalin.sc:10974:381817 */ /* x106758 stalin.sc:10974:381836 */ t61920 = a24188; /* x106757 stalin.sc:10974:381818 */ a38783 = t61920; /* x287801 */ /* x287800 */ t61921 = a38783; /* x287799 */ if (!((t61921.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33700]"); structure_ref_error();} t61918 = t61921.value.structure_type27698->s21; /* x106756 stalin.sc:10974:381797 */ a40007 = t61918; /* x292697 */ /* x292696 */ t61919 = a40007; /* x292695 */ if (!((t61919.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34924]"); structure_ref_error();} t61909 = t61919.value.structure_type27698->s10; /* x106763 stalin.sc:10975:381844 */ /* x106762 stalin.sc:10975:381862 */ t61922 = a24188; /* x106761 stalin.sc:10975:381845 */ t61910 = f8739(t61922); /* x106769 stalin.sc:10976:381869 */ /* x106768 stalin.sc:10976:381894 */ /* x106767 stalin.sc:10976:381916 */ t61927 = a24188; /* x106766 stalin.sc:10976:381895 */ a38592 = t61927; /* x287037 */ /* x287036 */ t61928 = a38592; /* x287035 */ if (!((t61928.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33509]"); structure_ref_error();} t61923 = t61928.value.structure_type27698->s22; /* x106765 stalin.sc:10976:381874 */ /* x106764 stalin.sc:10976:381870 */ t61924.tag = NATIVE_PROCEDURE_TYPE7945; t61925 = *((struct w49 *)(&t61923)); t61926 = (struct structure_type24753 *)NULL_TYPE; t61911 = f27731(t61924, t61925, t61926); /* x106770 stalin.sc:10977:381924 */ t61912 = a1675; /* x106773 stalin.sc:10978:381935 */ /* x106772 stalin.sc:10978:381957 */ t61929 = a24188; /* x106771 stalin.sc:10978:381936 */ t61913 = f6936(t61929); /* x106755 stalin.sc:10973:381768 */ t61914 = t61910; /* MOVE: branching squeezed to general */ if (t61911>=((struct structure_type24753 *)VALUE_OFFSET)) {t61915.tag = STRUCTURE_TYPE24753; t61915.value.structure_type24753 = t61911;} else t61915.tag = (unsigned)t61911; /* MOVE: branching squeezed to general */ if (t61912>=((struct structure_type27650 *)VALUE_OFFSET)) {t61916.tag = STRUCTURE_TYPE27650; t61916.value.structure_type27650 = t61912;} else t61916.tag = (unsigned)t61912; t61917.tag = t61913; f11793(t61909, t61914, t61915, t61916, t61917); return; l9716: /* x106778 stalin.sc:10972:381744 */ /* x106777 stalin.sc:10972:381744 */ return; l9713: /* x106792 */ /* x106791 */ /* x106790 stalin.sc:10979:381970 */ /* x106789 stalin.sc:10979:381971 */ /* x297057 QobiScheme.sc:166:5314 */ /* x297056 QobiScheme.sc:166:5321 */ t61907 = "This shouldn\'t happen"; /* x297055 QobiScheme.sc:166:5315 */ stalin_panic(t61907); l9675: /* x106824 stalin.sc:10928:380142 */ /* x106823 stalin.sc:10928:380142 */ return;} /* ASSERT-EXPRESSION-ACCESSED![11857] */ void f11857(struct w49 a24186) {struct w49 t61973; struct w49 t61974; unsigned t61975; /* x106482 stalin.sc:10913:379639 */ /* x106469 stalin.sc:10913:379647 */ /* x106468 stalin.sc:10913:379669 */ t61973 = a24186; /* x106467 stalin.sc:10913:379648 */ if (f6936(t61973)==FALSE_TYPE) goto l9730; /* x106471 */ /* x106470 */ return; l9730: /* x106481 */ /* x106480 */ /* x106479 */ /* x106478 stalin.sc:10914:379677 */ /* x106476 stalin.sc:10914:379704 */ t61974 = a24186; /* x106477 stalin.sc:10914:379706 */ /* x106475 stalin.sc:10914:379678 */ t61975 = TRUE_TYPE; f6937(t61974, t61975); /* x106474 */ /* x106473 stalin.sc:10915:379715 */ /* x106472 stalin.sc:10915:379728 */ a24151 = TRUE_TYPE; return;} /* [inside ASSERT-CALLEE-ACCESSED! 11803] */ void f11803(struct w49 a24168) {struct w49 t61976; /* x105840 stalin.sc:10762:373593 */ /* x105839 stalin.sc:10762:373622 */ t61976 = a24168; /* x105838 stalin.sc:10762:373594 */ f11857(t61976); return;} /* ASSERT-CALLEE-ACCESSED![11793] */ void f11793(struct w49 a24159, struct structure_type27745 *a24160, struct w12224 a24161, struct w49 a24162, struct w16638 a24163) {struct p11793 *t61977; struct w49 t61978; struct w211045 t61979; struct p11793 *e11793; e11793 = (struct p11793 *)alloca(sizeof(struct p11793)); if (e11793==NULL) {backtrace_internal("[inside LOOP 11789]"); out_of_memory_error();} e11793->a24160 = a24160; e11793->a24161 = a24161; e11793->a24162 = a24162; e11793->a24163 = a24163; /* x106464 stalin.sc:10751:373090 */ /* x106462 stalin.sc:10752:373112 */ t61977 = e11793; /* x106463 stalin.sc:10911:379587 */ t61978 = a24159; /* x105785 stalin.sc:10751:373091 */ t61979.tag = NATIVE_PROCEDURE_TYPE16971; t61979.value.native_procedure_type16971 = t61977; f8173(t61979, t61978); return;} /* [inside DETERMINE-WHICH-VARIABLES-ARE-REFERENCED! 11784] */ void f11784(struct w49 a24148) {struct w49 t61980; unsigned t61981; /* x105770 stalin.sc:10747:372963 */ /* x105768 stalin.sc:10747:372988 */ t61980 = a24148; /* x105769 stalin.sc:10747:372990 */ /* x105767 stalin.sc:10747:372964 */ t61981 = FALSE_TYPE; f8200(t61980, t61981); return;} /* [inside DETERMINE-WHICH-VARIABLES-ARE-REFERENCED! 11783] */ void f11783(struct w49 a24147) {struct w49 t61982; unsigned t61983; /* x105762 stalin.sc:10746:372902 */ /* x105760 stalin.sc:10746:372927 */ t61982 = a24147; /* x105761 stalin.sc:10746:372929 */ /* x105759 stalin.sc:10746:372903 */ t61983 = FALSE_TYPE; f8195(t61982, t61983); return;} /* [inside DETERMINE-WHICH-VARIABLES-ARE-REFERENCED! 11782] */ void f11782(struct w49 a24146) {struct w49 t61984; unsigned t61985; /* x105754 stalin.sc:10745:372839 */ /* x105752 stalin.sc:10745:372866 */ t61984 = a24146; /* x105753 stalin.sc:10745:372868 */ /* x105751 stalin.sc:10745:372840 */ t61985 = FALSE_TYPE; f6937(t61984, t61985); return;} /* [inside DETERMINE-WHICH-VARIABLES-ARE-REFERENCED! 11779] */ void f11779(struct w49 a24145) {struct w49 a39169; /* S */ struct w49 t61986; struct w49 t61987; unsigned t61988; struct w49 t61989; struct w49 t61990; /* x105745 stalin.sc:10984:382049 */ /* x105734 stalin.sc:10984:382055 */ /* x105733 stalin.sc:10984:382066 */ t61986 = a24145; /* x105732 stalin.sc:10984:382056 */ if (f6967(t61986)==FALSE_TYPE) goto l9732; /* x105742 */ /* x105741 */ /* x105740 stalin.sc:10984:382069 */ /* x105738 stalin.sc:10984:382094 */ /* x105737 stalin.sc:10984:382115 */ t61989 = a24145; /* x105736 stalin.sc:10984:382095 */ a39169 = t61989; /* x289345 */ /* x289344 */ t61990 = a39169; /* x289343 */ if (!((t61990.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34086]"); structure_ref_error();} t61987 = t61990.value.structure_type27698->s16; /* x105739 stalin.sc:10984:382118 */ /* x105735 stalin.sc:10984:382070 */ t61988 = TRUE_TYPE; f8200(t61987, t61988); return; l9732: /* x105744 stalin.sc:10984:382049 */ /* x105743 stalin.sc:10984:382049 */ return;} /* [inside DETERMINE-WHICH-ENVIRONMENTS-ARE-CALLED-MORE-THAN-ONCE! 11771] */ void f11771(struct w49 a24137) {struct w49 a22056; /* E */ struct w16638 a22057; /* P? */ unsigned a24139; /* v */ int a34823; /* N */ struct w49 a36509; /* S */ struct w49 a36518; /* S */ struct w49 t61991; struct w49 t61993; struct w16638 t61994; struct w49 t61995; int t61996; int t61997; int t61998; struct structure_type24753 *t61999; struct w49 t62000; struct w49 t62001; struct w49 t62002; int t62003; int t62004; int t62005; int t62006; struct structure_type24753 *t62007; struct w49 t62008; struct w49 t62009; struct w49 t62010; struct w16638 t62011; char *t62012; unsigned t62013; struct w12224 t62014; struct w228345 t62015; struct w49 t62016; struct structure_type24753 *t62017; struct w49 t62018; int t62019; int t62020; struct structure_type24753 *t62021; struct w49 t62022; struct w49 t62023; /* x105725 stalin.sc:10733:372457 */ /* x105686 stalin.sc:10733:372463 */ /* x105685 stalin.sc:10733:372482 */ t61991 = a24137; /* x105684 stalin.sc:10733:372464 */ if (f8526(t61991)==FALSE_TYPE) goto l9734; /* x105722 */ /* x105721 */ /* x105720 */ /* x105719 stalin.sc:10734:372491 */ /* x105718 stalin.sc:10734:372492 */ f4651(); /* x105717 */ /* x105716 stalin.sc:10735:372535 */ /* x105688 stalin.sc:10736:372583 */ t61993 = a24137; /* x105715 stalin.sc:10737:372592 */ /* x105714 stalin.sc:10737:372596 */ /* x105712 stalin.sc:10737:372599 */ /* x105711 stalin.sc:10737:372607 */ /* x105710 stalin.sc:10737:372619 */ t62023 = a24137; /* x105709 stalin.sc:10737:372608 */ t62021 = f8615(t62023); /* x105708 stalin.sc:10737:372600 */ /* MOVE: branching squeezed to general */ if (t62021>=((struct structure_type24753 *)VALUE_OFFSET)) {t62022.tag = STRUCTURE_TYPE24753; t62022.value.structure_type24753 = t62021;} else t62022.tag = (unsigned)t62021; t62019 = f26227(t62022); /* x105713 stalin.sc:10737:372623 */ t62020 = 1; /* x269486 stalin.sc:10737:372597 */ t62013 = (t62019>t62020)?TRUE_TYPE:FALSE_TYPE; /* x105706 */ a24139 = t62013; /* x105705 */ /* x105689 */ if (a24139==FALSE_TYPE) goto l9742; /* x105690 */ t61994.tag = a24139; goto l9743; l9742: /* x105704 */ /* x105703 stalin.sc:10739:372682 */ /* x105702 stalin.sc:10739:372698 */ t62018 = a24137; /* x105701 stalin.sc:10739:372683 */ t62014 = f11638(t62018); /* x105700 stalin.sc:10738:372636 */ /* x105691 stalin.sc:10738:372631 */ t62015.tag = NATIVE_PROCEDURE_TYPE17921; t62016 = *((struct w49 *)(&t62014)); t62017 = (struct structure_type24753 *)NULL_TYPE; t61994 = f1042(t62015, t62016, t62017); l9743: /* x105687 stalin.sc:10735:372536 */ a22056 = t61993; a22057 = t61994; /* x72918 */ /* x72917 stalin.sc:4105:137962 */ /* x72910 stalin.sc:4105:137970 */ /* x72909 stalin.sc:4105:137980 */ t62011 = a22057; /* x270257 stalin.sc:4105:137971 */ switch (t62011.tag) {case TRUE_TYPE: case FALSE_TYPE: break; default: goto l9739;} /* x72912 */ /* x72911 */ goto l9740; l9739: /* x72916 */ /* x72915 */ /* x72914 stalin.sc:4105:137984 */ /* x72913 stalin.sc:4105:137985 */ /* x296629 QobiScheme.sc:166:5314 */ /* x296628 QobiScheme.sc:166:5321 */ t62012 = "This shouldn\'t happen"; /* x296627 QobiScheme.sc:166:5315 */ stalin_panic(t62012); l9740: /* x72907 */ while (region8508!=((struct region8508 *)(&initial_region8508))) {struct region8508 *region; region = region8508; region8508 = region8508->region; GC_free(region);} region_size8508 = REGION_SIZE8508; fp8508 = &((region8508->data)[0]); ALIGN(fp8508); /* x72906 stalin.sc:4106:137996 */ /* x72889 stalin.sc:4107:138025 */ t61995 = a22056; /* x72905 stalin.sc:4108:138029 */ /* x72890 stalin.sc:4108:138033 */ if ((a22057.tag)==FALSE_TYPE) goto l9736; /* x72896 stalin.sc:4109:138042 */ /* x72895 stalin.sc:4109:138075 */ t62006 = 8; /* x72894 stalin.sc:4109:138050 */ /* x72893 stalin.sc:4109:138072 */ t62009 = a22056; /* x72892 stalin.sc:4109:138051 */ a36518 = t62009; /* x278741 */ /* x278740 */ t62010 = a36518; /* x278739 */ if (!((t62010.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31435]"); structure_ref_error();} t62005 = t62010.value.structure_type27694->s26; /* x72891 stalin.sc:4109:138043 */ if ((fp8508+sizeof(struct structure_type24753))>(&((region8508->data)[region_size8508]))) {struct region8508 *region; unsigned region_size = REGION_SIZE8508; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8508 *)GC_malloc_uncollectable(sizeof(struct region8508)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4109, 138042); out_of_memory_error();} region->region = region8508; region_size8508 = region_size; region8508 = region; fp8508 = &((region->data)[0]); ALIGN(fp8508);} t62008.tag = STRUCTURE_TYPE24753; t62008.value.structure_type24753 = (struct structure_type24753 *)fp8508; fp8508 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t62008.value.structure_type24753->s0.tag = FIXNUM_TYPE; t62008.value.structure_type24753->s0.value.fixnum_type = t62006; t62008.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8508+sizeof(struct structure_type24753))>(&((region8508->data)[region_size8508]))) {struct region8508 *region; unsigned region_size = REGION_SIZE8508; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8508 *)GC_malloc_uncollectable(sizeof(struct region8508)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4109, 138042); out_of_memory_error();} region->region = region8508; region_size8508 = region_size; region8508 = region; fp8508 = &((region->data)[0]); ALIGN(fp8508);} t62007 = (struct structure_type24753 *)fp8508; fp8508 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t62007->s0.tag = FIXNUM_TYPE; t62007->s0.value.fixnum_type = t62005; t62007->s1 = t62008; t61996 = f27310(t62007); goto l9737; l9736: /* x72904 stalin.sc:4110:138084 */ /* x72903 stalin.sc:4110:138118 */ /* x72902 stalin.sc:4110:138127 */ t62003 = 8; /* x72901 stalin.sc:4110:138119 */ a34823 = t62003; /* x271577 */ /* x271576 */ t62004 = a34823; /* x271575 */ t61998 = ~t62004; /* x72900 stalin.sc:4110:138093 */ /* x72899 stalin.sc:4110:138115 */ t62001 = a22056; /* x72898 stalin.sc:4110:138094 */ a36509 = t62001; /* x278705 */ /* x278704 */ t62002 = a36509; /* x278703 */ if (!((t62002.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31426]"); structure_ref_error();} t61997 = t62002.value.structure_type27694->s26; /* x72897 stalin.sc:4110:138085 */ if ((fp8508+sizeof(struct structure_type24753))>(&((region8508->data)[region_size8508]))) {struct region8508 *region; unsigned region_size = REGION_SIZE8508; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8508 *)GC_malloc_uncollectable(sizeof(struct region8508)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4110, 138084); out_of_memory_error();} region->region = region8508; region_size8508 = region_size; region8508 = region; fp8508 = &((region->data)[0]); ALIGN(fp8508);} t62000.tag = STRUCTURE_TYPE24753; t62000.value.structure_type24753 = (struct structure_type24753 *)fp8508; fp8508 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t62000.value.structure_type24753->s0.tag = FIXNUM_TYPE; t62000.value.structure_type24753->s0.value.fixnum_type = t61998; t62000.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8508+sizeof(struct structure_type24753))>(&((region8508->data)[region_size8508]))) {struct region8508 *region; unsigned region_size = REGION_SIZE8508; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8508 *)GC_malloc_uncollectable(sizeof(struct region8508)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4110, 138084); out_of_memory_error();} region->region = region8508; region_size8508 = region_size; region8508 = region; fp8508 = &((region->data)[0]); ALIGN(fp8508);} t61999 = (struct structure_type24753 *)fp8508; fp8508 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t61999->s0.tag = FIXNUM_TYPE; t61999->s0.value.fixnum_type = t61997; t61999->s1 = t62000; t61996 = f27305(t61999); l9737: /* x72888 stalin.sc:4106:137997 */ f6840(t61995, t61996); return; l9734: /* x105724 stalin.sc:10733:372457 */ /* x105723 stalin.sc:10733:372457 */ return;} /* [inside COMPUTE-CALL-GRAPH! 11764] */ void f11764(struct w49 a24133) {struct w49 t62024; struct w49 t62025; struct w3457 t62026; struct w49 t62027; struct w3457 t62028; struct w49 t62029; struct w3457 t62030; struct w49 t62031; struct w3457 t62032; /* x105670 stalin.sc:10575:366977 */ /* x105647 stalin.sc:10575:366983 */ /* x105646 stalin.sc:10575:367002 */ t62024 = a24133; /* x105645 stalin.sc:10575:366984 */ if (f8526(t62024)==FALSE_TYPE) goto l9745; /* x105667 */ /* x105666 */ /* x105665 */ /* x105656 stalin.sc:10576:367011 */ /* x105654 stalin.sc:10576:367049 */ t62027 = a24133; /* x105655 stalin.sc:10576:367051 */ /* x105653 stalin.sc:10576:367012 */ t62028.tag = NULL_TYPE; f6768(t62027, t62028); /* x105660 stalin.sc:10577:367062 */ /* x105658 stalin.sc:10577:367104 */ t62029 = a24133; /* x105659 stalin.sc:10577:367106 */ /* x105657 stalin.sc:10577:367063 */ t62030.tag = NULL_TYPE; f6776(t62029, t62030); /* x105664 stalin.sc:10578:367117 */ /* x105662 stalin.sc:10578:367155 */ t62031 = a24133; /* x105663 stalin.sc:10578:367157 */ /* x105661 stalin.sc:10578:367118 */ t62032.tag = NULL_TYPE; f6784(t62031, t62032); /* x105652 */ /* x105651 stalin.sc:10579:367168 */ /* x105649 stalin.sc:10579:367210 */ t62025 = a24133; /* x105650 stalin.sc:10579:367212 */ /* x105648 stalin.sc:10579:367169 */ t62026.tag = NULL_TYPE; f6792(t62025, t62026); return; l9745: /* x105669 stalin.sc:10575:366977 */ /* x105668 stalin.sc:10575:366977 */ return;} /* [inside COMPUTE-CALL-GRAPH! 11762] */ void f11762(struct w49 a24129) {struct w49 t62033; char *t62034; struct w3457 t62035; struct w49 t62036; char *t62037; struct w3457 t62038; struct w49 t62039; char *t62040; struct w3457 t62041; struct w49 t62042; char *t62043; struct w3457 t62044; /* x105640 */ /* x105629 stalin.sc:10569:366695 */ /* x105626 stalin.sc:10569:366733 */ t62036 = a24129; /* x105628 stalin.sc:10569:366735 */ /* x105627 stalin.sc:10569:366736 */ /* x277235 stalin.sc:323:8604 */ t62037 = q35; /* x105625 stalin.sc:10569:366696 */ t62038.tag = EXTERNAL_SYMBOL_TYPE; t62038.value.external_symbol_type = t62037; f6768(t62036, t62038); /* x105634 stalin.sc:10570:366755 */ /* x105631 stalin.sc:10570:366797 */ t62039 = a24129; /* x105633 stalin.sc:10570:366799 */ /* x105632 stalin.sc:10570:366800 */ /* x277237 stalin.sc:323:8604 */ t62040 = q35; /* x105630 stalin.sc:10570:366756 */ t62041.tag = EXTERNAL_SYMBOL_TYPE; t62041.value.external_symbol_type = t62040; f6776(t62039, t62041); /* x105639 stalin.sc:10571:366819 */ /* x105636 stalin.sc:10571:366857 */ t62042 = a24129; /* x105638 stalin.sc:10571:366859 */ /* x105637 stalin.sc:10571:366860 */ /* x277239 stalin.sc:323:8604 */ t62043 = q35; /* x105635 stalin.sc:10571:366820 */ t62044.tag = EXTERNAL_SYMBOL_TYPE; t62044.value.external_symbol_type = t62043; f6784(t62042, t62044); /* x105624 */ /* x105623 stalin.sc:10572:366879 */ /* x105620 stalin.sc:10572:366921 */ t62033 = a24129; /* x105622 stalin.sc:10572:366923 */ /* x105621 stalin.sc:10572:366924 */ /* x277163 stalin.sc:323:8604 */ t62034 = q35; /* x105619 stalin.sc:10572:366880 */ t62035.tag = EXTERNAL_SYMBOL_TYPE; t62035.value.external_symbol_type = t62034; f6792(t62033, t62035); return;} /* ASSERT-DIRECTLY-NON-TAIL-CALLS![11758] */ void f11758(struct w49 a24126, struct w49 a24127) {struct w49 a36550; /* S */ struct w49 a36569; /* S */ struct w49 t62045; struct w49 t62046; struct w49 t62047; struct structure_type24753 *t62048; struct w3457 t62049; struct w49 t62050; struct w3457 t62051; struct w49 t62052; struct w49 t62053; struct w49 t62054; struct structure_type24753 *t62055; struct w3457 t62056; struct w49 t62057; struct w3457 t62058; struct w49 t62059; struct w49 t62060; /* x105615 stalin.sc:10562:366400 */ /* x105590 stalin.sc:10562:366408 */ /* x105588 stalin.sc:10562:366434 */ t62045 = a24126; /* x105589 stalin.sc:10562:366437 */ t62046 = a24127; /* x105587 stalin.sc:10562:366409 */ if ((f11631(t62045, t62046).tag)==FALSE_TYPE) goto l9747; /* x105592 */ /* x105591 */ return; l9747: /* x105614 */ /* x105613 */ /* x105612 */ /* x105611 stalin.sc:10563:366444 */ /* x105604 stalin.sc:10564:366490 */ t62054 = a24127; /* x105610 stalin.sc:10564:366493 */ /* x105606 stalin.sc:10564:366499 */ t62057 = a24126; /* x105609 stalin.sc:10564:366502 */ /* x105608 stalin.sc:10564:366539 */ t62059 = a24127; /* x105607 stalin.sc:10564:366503 */ a36569 = t62059; /* x278945 */ /* x278944 */ t62060 = a36569; /* x278943 */ if (!((t62060.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-NON-TAIL-CALLERS[6775] 31486]"); structure_ref_error();} t62058 = t62060.value.structure_type27694->s18; /* x269488 stalin.sc:10564:366494 */ t62055 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t62055==NULL) {backtrace("stalin.sc", 10564, 366493); out_of_memory_error();} t62055->s0 = t62057; t62055->s1 = *((struct w49 *)(&t62058)); /* x105603 stalin.sc:10563:366445 */ t62056.tag = STRUCTURE_TYPE24753; t62056.value.structure_type24753 = t62055; f6776(t62054, t62056); /* x105602 */ /* x105601 stalin.sc:10565:366548 */ /* x105594 stalin.sc:10566:366594 */ t62047 = a24126; /* x105600 stalin.sc:10566:366597 */ /* x105596 stalin.sc:10566:366603 */ t62050 = a24127; /* x105599 stalin.sc:10566:366606 */ /* x105598 stalin.sc:10566:366643 */ t62052 = a24126; /* x105597 stalin.sc:10566:366607 */ a36550 = t62052; /* x278869 */ /* x278868 */ t62053 = a36550; /* x278867 */ if (!((t62053.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-NON-TAIL-CALLEES[6791] 31467]"); structure_ref_error();} t62051 = t62053.value.structure_type27694->s20; /* x269489 stalin.sc:10566:366598 */ t62048 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t62048==NULL) {backtrace("stalin.sc", 10566, 366597); out_of_memory_error();} t62048->s0 = t62050; t62048->s1 = *((struct w49 *)(&t62051)); /* x105593 stalin.sc:10565:366549 */ t62049.tag = STRUCTURE_TYPE24753; t62049.value.structure_type24753 = t62048; f6792(t62047, t62049); return;} /* ASSERT-DIRECTLY-TAIL-CALLS![11754] */ void f11754(struct w49 a24123, struct w49 a24124) {struct w49 a36560; /* S */ struct w49 a36577; /* S */ struct w49 t62061; struct w49 t62062; struct w49 t62063; struct structure_type24753 *t62064; struct w3457 t62065; struct w49 t62066; struct w3457 t62067; struct w49 t62068; struct w49 t62069; struct w49 t62070; struct structure_type24753 *t62071; struct w3457 t62072; struct w49 t62073; struct w3457 t62074; struct w49 t62075; struct w49 t62076; /* x105584 stalin.sc:10556:366118 */ /* x105559 stalin.sc:10556:366126 */ /* x105557 stalin.sc:10556:366148 */ t62061 = a24123; /* x105558 stalin.sc:10556:366151 */ t62062 = a24124; /* x105556 stalin.sc:10556:366127 */ if ((f11630(t62061, t62062).tag)==FALSE_TYPE) goto l9749; /* x105561 */ /* x105560 */ return; l9749: /* x105583 */ /* x105582 */ /* x105581 */ /* x105580 stalin.sc:10557:366158 */ /* x105573 stalin.sc:10558:366200 */ t62070 = a24124; /* x105579 stalin.sc:10558:366203 */ /* x105575 stalin.sc:10558:366209 */ t62073 = a24123; /* x105578 stalin.sc:10558:366212 */ /* x105577 stalin.sc:10558:366245 */ t62075 = a24124; /* x105576 stalin.sc:10558:366213 */ a36577 = t62075; /* x278977 */ /* x278976 */ t62076 = a36577; /* x278975 */ if (!((t62076.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLERS[6767] 31494]"); structure_ref_error();} t62074 = t62076.value.structure_type27694->s17; /* x269490 stalin.sc:10558:366204 */ t62071 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t62071==NULL) {backtrace("stalin.sc", 10558, 366203); out_of_memory_error();} t62071->s0 = t62073; t62071->s1 = *((struct w49 *)(&t62074)); /* x105572 stalin.sc:10557:366159 */ t62072.tag = STRUCTURE_TYPE24753; t62072.value.structure_type24753 = t62071; f6768(t62070, t62072); /* x105571 */ /* x105570 stalin.sc:10559:366254 */ /* x105563 stalin.sc:10560:366296 */ t62063 = a24123; /* x105569 stalin.sc:10560:366299 */ /* x105565 stalin.sc:10560:366305 */ t62066 = a24124; /* x105568 stalin.sc:10560:366308 */ /* x105567 stalin.sc:10560:366341 */ t62068 = a24123; /* x105566 stalin.sc:10560:366309 */ a36560 = t62068; /* x278909 */ /* x278908 */ t62069 = a36560; /* x278907 */ if (!((t62069.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLEES[6783] 31477]"); structure_ref_error();} t62067 = t62069.value.structure_type27694->s19; /* x269491 stalin.sc:10560:366300 */ t62064 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t62064==NULL) {backtrace("stalin.sc", 10560, 366299); out_of_memory_error();} t62064->s0 = t62066; t62064->s1 = *((struct w49 *)(&t62067)); /* x105562 stalin.sc:10559:366255 */ t62065.tag = STRUCTURE_TYPE24753; t62065.value.structure_type24753 = t62064; f6784(t62063, t62065); return;} /* [inside MARK! 11751] */ void f11751(struct p11669 *p11751, struct w49 a24122) {struct p11669 *t62077; struct w49 t62078; unsigned t62079; /* x105509 stalin.sc:10615:368411 */ /* x105507 stalin.sc:10615:368418 */ t62078 = a24122; /* x105508 stalin.sc:10615:368420 */ /* x105506 stalin.sc:10615:368412 */ t62077 = p11751; t62079 = FALSE_TYPE; f11674(t62077, t62078, t62079); return;} /* MARK![11674] */ void f11674(struct p11669 *p11674, struct w49 a24096, unsigned a24097) {char *sfp11736; struct structure_type24753 *a23397; /* WS */ struct structure_type27650 *a23398; /* W */ struct structure_type27745 *a23399; /* Y */ char *a24098; /* v */ struct w49 a38549; /* S */ struct w49 a38564; /* S */ struct w49 a38565; /* S */ struct w49 a38653; /* S */ struct w49 a38654; /* S */ struct w49 a38679; /* S */ struct w49 a38680; /* S */ struct w49 a38893; /* S */ struct w49 a38945; /* S */ struct w49 a39006; /* S */ struct w49 a39007; /* S */ struct w49 a39008; /* S */ struct w49 a39062; /* S */ struct w49 a39906; /* S */ struct w49 a39907; /* S */ struct w49 a39954; /* S */ struct w49 a39955; /* S */ struct w49 a39956; /* S */ struct w49 a39957; /* S */ struct w49 a39989; /* S */ struct w49 a40325; /* S */ struct p11674 *t62080; char *t62081; char *t62082; char *t62083; struct w49 t62084; struct w49 t62085; char *t62086; char *t62087; struct w49 t62088; struct w49 t62089; char *t62090; char *t62091; struct w49 t62092; struct w49 t62093; char *t62094; char *t62095; struct w49 t62096; struct w49 t62097; char *t62098; char *t62099; struct w49 t62100; struct w49 t62101; char *t62102; char *t62103; struct w49 t62104; struct w49 t62105; char *t62106; char *t62107; struct w49 t62108; struct w49 t62109; char *t62110; char *t62111; struct w49 t62112; struct w49 t62113; char *t62114; char *t62115; struct w49 t62116; struct w49 t62117; char *t62118; char *t62119; struct w49 t62120; struct w49 t62121; char *t62122; char *t62123; struct w49 t62124; struct w49 t62125; char *t62126; char *t62127; struct w49 t62128; struct w49 t62129; char *t62130; char *t62131; struct w49 t62132; struct w49 t62133; char *t62134; char *t62135; struct w49 t62136; struct w49 t62137; char *t62138; char *t62139; struct w49 t62140; struct w49 t62141; char *t62142; char *t62143; struct w49 t62144; struct w49 t62145; char *t62146; char *t62147; struct w49 t62148; struct w49 t62149; char *t62150; char *t62151; struct w49 t62152; struct w49 t62153; char *t62154; char *t62155; struct w49 t62156; struct w49 t62157; char *t62158; char *t62159; struct w49 t62160; struct w49 t62161; char *t62162; char *t62163; struct w49 t62164; struct w49 t62165; char *t62166; struct p11674 *t62167; struct p11674 *t62168; struct w49 t62169; struct p11674 *t62170; struct p11674 *t62171; struct p11674 *t62172; struct w49 t62173; struct w211045 t62174; struct w49 t62175; struct w49 t62176; struct w49 t62177; struct w49 t62178; struct w49 t62179; struct p11674 *t62180; struct p11674 *t62181; struct p10583 *t62182; struct w49 t62183; struct w211257 t62184; struct structure_type24753 *t62185; struct structure_type27650 *t62186; struct structure_type27745 *t62187; struct p10583 *t62188; struct structure_type27745 *t62189; struct w49 t62190; char *t62191; struct w11873 t62192; struct w36270 t62193; struct w49 t62194; struct structure_type24753 *t62195; struct w49 t62196; struct w49 t62197; struct w49 t62198; struct w49 t62199; struct w49 t62200; struct w49 t62201; struct w49 t62202; struct p11674 *t62203; struct p11674 *t62204; struct w49 t62205; struct w211045 t62206; struct w49 t62207; struct w49 t62208; struct w49 t62209; struct p10570 *t62210; struct w49 t62211; struct w211257 t62212; struct structure_type24753 *t62213; struct structure_type27650 *t62214; struct structure_type27745 *t62215; struct w49 t62216; struct w49 t62217; struct structure_type27745 *t62218; struct w11873 t62219; struct w36270 t62220; struct w49 t62221; struct structure_type24753 *t62222; struct w49 t62223; struct w49 t62224; struct w49 t62225; struct w49 t62226; struct w49 t62227; struct w49 t62228; struct w49 t62229; struct p11674 *t62230; struct p11674 *t62231; struct w49 t62232; struct w211045 t62233; struct w49 t62234; struct w49 t62235; struct w49 t62236; struct p11669 *t62237; struct w49 t62238; unsigned t62239; struct w49 t62240; struct w49 t62241; struct p11669 *t62242; struct w11873 t62243; struct w36108 t62244; struct w49 t62245; struct structure_type24753 *t62246; struct w49 t62247; struct w49 t62248; struct p11674 *t62249; struct p11674 *t62250; struct w49 t62251; struct w211257 t62252; struct w49 t62253; struct w49 t62254; struct w49 t62255; struct w49 t62256; struct p11674 *t62257; struct p11669 *t62258; struct w49 t62259; unsigned t62260; struct w49 t62261; struct w49 t62262; struct p11669 *t62263; struct w49 t62264; unsigned t62265; struct w49 t62266; struct w49 t62267; struct w49 t62268; struct w211235 t62269; struct w49 t62270; struct w49 t62271; struct w49 t62272; struct w49 t62273; struct p11674 *t62274; struct p11669 *t62275; struct w49 t62276; unsigned t62277; struct w49 t62278; struct w49 t62279; struct p11674 *t62280; struct p11669 *t62281; struct w49 t62282; struct w49 t62283; struct w49 t62284; struct w49 t62285; struct w49 t62286; struct p11674 *e11674; struct p10583 *e10583; struct p10583 *p10584; struct p11674 *p11675; struct p11674 *p11690; struct p11674 *p11691; struct p11674 *p11692; struct p11674 *p11693; struct p11674 *p11695; struct p11674 *p11701; struct p11674 *p11702; struct p11674 *p11703; struct p11674 *p11704; struct p11674 *p11735; struct p11674 *p11736; struct p11674 *p11737; struct p11674 *p11743; h11674: e11674 = (struct p11674 *)alloca(sizeof(struct p11674)); if (e11674==NULL) {backtrace_internal("[inside COMPUTE-CALL-GRAPH! 11670]"); out_of_memory_error();} e11674->p11669 = p11674; e11674->a24096 = a24096; e11674->a24097 = a24097; /* x105544 stalin.sc:10588:367476 */ /* x105543 stalin.sc:10588:367482 */ /* x105542 stalin.sc:10588:367499 */ t62285 = e11674->a24096; /* x105541 stalin.sc:10588:367483 */ a40325 = t62285; /* x293969 */ /* x293968 */ t62286 = a40325; /* x293967 */ if (!((t62286.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35242]"); structure_ref_error();} t62081 = t62286.value.structure_type27698->s0; /* x105540 */ t62080 = e11674; p11675 = t62080; a24098 = t62081; /* x105539 */ /* x104887 */ /* x104885 */ t62082 = a24098; /* x104886 */ t62083 = q68; /* x104884 */ t62084.tag = EXTERNAL_SYMBOL_TYPE; t62084.value.external_symbol_type = t62082; t62085.tag = EXTERNAL_SYMBOL_TYPE; t62085.value.external_symbol_type = t62083; if (f26160(t62084, t62085)==FALSE_TYPE) goto l9751; /* x104890 */ /* x104889 */ /* x104888 stalin.sc:10589:367524 */ return; l9751: /* x105538 */ /* x104894 */ /* x104892 */ t62086 = a24098; /* x104893 */ t62087 = q69; /* x104891 */ t62088.tag = EXTERNAL_SYMBOL_TYPE; t62088.value.external_symbol_type = t62086; t62089.tag = EXTERNAL_SYMBOL_TYPE; t62089.value.external_symbol_type = t62087; if (f26160(t62088, t62089)==FALSE_TYPE) goto l9753; /* x104897 */ /* x104896 */ /* x104895 stalin.sc:10590:367550 */ return; l9753: /* x105537 */ /* x104901 */ /* x104899 */ t62090 = a24098; /* x104900 */ t62091 = q70; /* x104898 */ t62092.tag = EXTERNAL_SYMBOL_TYPE; t62092.value.external_symbol_type = t62090; t62093.tag = EXTERNAL_SYMBOL_TYPE; t62093.value.external_symbol_type = t62091; if (f26160(t62092, t62093)==FALSE_TYPE) goto l9755; /* x104904 */ /* x104903 */ /* x104902 stalin.sc:10591:367577 */ return; l9755: /* x105536 */ /* x104908 */ /* x104906 */ t62094 = a24098; /* x104907 */ t62095 = q71; /* x104905 */ t62096.tag = EXTERNAL_SYMBOL_TYPE; t62096.value.external_symbol_type = t62094; t62097.tag = EXTERNAL_SYMBOL_TYPE; t62097.value.external_symbol_type = t62095; if (f26160(t62096, t62097)==FALSE_TYPE) goto l9757; /* x104911 */ /* x104910 */ /* x104909 stalin.sc:10592:367603 */ return; l9757: /* x105535 */ /* x104915 */ /* x104913 */ t62098 = a24098; /* x104914 */ t62099 = q72; /* x104912 */ t62100.tag = EXTERNAL_SYMBOL_TYPE; t62100.value.external_symbol_type = t62098; t62101.tag = EXTERNAL_SYMBOL_TYPE; t62101.value.external_symbol_type = t62099; if (f26160(t62100, t62101)==FALSE_TYPE) goto l9759; /* x104918 */ /* x104917 */ /* x104916 stalin.sc:10593:367631 */ return; l9759: /* x105534 */ /* x104922 */ /* x104920 */ t62102 = a24098; /* x104921 */ t62103 = q73; /* x104919 */ t62104.tag = EXTERNAL_SYMBOL_TYPE; t62104.value.external_symbol_type = t62102; t62105.tag = EXTERNAL_SYMBOL_TYPE; t62105.value.external_symbol_type = t62103; if (f26160(t62104, t62105)==FALSE_TYPE) goto l9761; /* x104925 */ /* x104924 */ /* x104923 stalin.sc:10594:367659 */ return; l9761: /* x105533 */ /* x104929 */ /* x104927 */ t62106 = a24098; /* x104928 */ t62107 = q74; /* x104926 */ t62108.tag = EXTERNAL_SYMBOL_TYPE; t62108.value.external_symbol_type = t62106; t62109.tag = EXTERNAL_SYMBOL_TYPE; t62109.value.external_symbol_type = t62107; if (f26160(t62108, t62109)==FALSE_TYPE) goto l9763; /* x104932 */ /* x104931 */ /* x104930 stalin.sc:10595:367692 */ return; l9763: /* x105532 */ /* x104936 */ /* x104934 */ t62110 = a24098; /* x104935 */ t62111 = q75; /* x104933 */ t62112.tag = EXTERNAL_SYMBOL_TYPE; t62112.value.external_symbol_type = t62110; t62113.tag = EXTERNAL_SYMBOL_TYPE; t62113.value.external_symbol_type = t62111; if (f26160(t62112, t62113)==FALSE_TYPE) goto l9765; /* x104939 */ /* x104938 */ /* x104937 stalin.sc:10596:367720 */ return; l9765: /* x105531 */ /* x104943 */ /* x104941 */ t62114 = a24098; /* x104942 */ t62115 = q76; /* x104940 */ t62116.tag = EXTERNAL_SYMBOL_TYPE; t62116.value.external_symbol_type = t62114; t62117.tag = EXTERNAL_SYMBOL_TYPE; t62117.value.external_symbol_type = t62115; if (f26160(t62116, t62117)==FALSE_TYPE) goto l9767; /* x104946 */ /* x104945 */ /* x104944 stalin.sc:10597:367748 */ return; l9767: /* x105530 */ /* x104950 */ /* x104948 */ t62118 = a24098; /* x104949 */ t62119 = q50; /* x104947 */ t62120.tag = EXTERNAL_SYMBOL_TYPE; t62120.value.external_symbol_type = t62118; t62121.tag = EXTERNAL_SYMBOL_TYPE; t62121.value.external_symbol_type = t62119; if (f26160(t62120, t62121)==FALSE_TYPE) goto l9769; /* x104953 */ /* x104952 */ /* x104951 stalin.sc:10598:367774 */ return; l9769: /* x105529 */ /* x104957 */ /* x104955 */ t62122 = a24098; /* x104956 */ t62123 = q52; /* x104954 */ t62124.tag = EXTERNAL_SYMBOL_TYPE; t62124.value.external_symbol_type = t62122; t62125.tag = EXTERNAL_SYMBOL_TYPE; t62125.value.external_symbol_type = t62123; if (f26160(t62124, t62125)==FALSE_TYPE) goto l9771; /* x104960 */ /* x104959 */ /* x104958 stalin.sc:10599:367802 */ return; l9771: /* x105528 */ /* x104982 */ /* x104981 */ /* x104979 */ t62126 = a24098; /* x104980 */ t62127 = q39; /* x104978 */ t62128.tag = EXTERNAL_SYMBOL_TYPE; t62128.value.external_symbol_type = t62126; t62129.tag = EXTERNAL_SYMBOL_TYPE; t62129.value.external_symbol_type = t62127; if (!(f26160(t62128, t62129)==FALSE_TYPE)) goto l9772; /* x104975 */ /* x104974 */ /* x104972 */ t62130 = a24098; /* x104973 */ t62131 = q40; /* x104971 */ t62132.tag = EXTERNAL_SYMBOL_TYPE; t62132.value.external_symbol_type = t62130; t62133.tag = EXTERNAL_SYMBOL_TYPE; t62133.value.external_symbol_type = t62131; if (!(f26160(t62132, t62133)==FALSE_TYPE)) goto l9772; /* x104968 */ /* x104966 */ t62134 = a24098; /* x104967 */ t62135 = q41; /* x104965 */ t62136.tag = EXTERNAL_SYMBOL_TYPE; t62136.value.external_symbol_type = t62134; t62137.tag = EXTERNAL_SYMBOL_TYPE; t62137.value.external_symbol_type = t62135; if (f26160(t62136, t62137)==FALSE_TYPE) goto l9773; l9772: /* x104985 */ /* x104984 */ /* x104983 stalin.sc:10600:367861 */ return; l9773: /* x105527 */ /* x104989 */ /* x104987 */ t62138 = a24098; /* x104988 */ t62139 = q42; /* x104986 */ t62140.tag = EXTERNAL_SYMBOL_TYPE; t62140.value.external_symbol_type = t62138; t62141.tag = EXTERNAL_SYMBOL_TYPE; t62141.value.external_symbol_type = t62139; if (f26160(t62140, t62141)==FALSE_TYPE) goto l9777; /* x104997 */ /* x104996 */ t62280 = p11675; p11690 = t62280; /* x104995 stalin.sc:10601:367878 */ /* x104993 stalin.sc:10601:367885 */ /* x104992 stalin.sc:10601:367904 */ t62283 = p11690->a24096; /* x104991 stalin.sc:10601:367886 */ a39062 = t62283; /* x288917 */ /* x288916 */ t62284 = a39062; /* x288915 */ if (!((t62284.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33979]"); structure_ref_error();} t62282 = t62284.value.structure_type27698->s17; /* x104994 stalin.sc:10601:367907 */ /* x104990 stalin.sc:10601:367879 */ t62281 = p11690->p11669; p11674 = t62281; a24096 = t62282; a24097 = FALSE_TYPE; goto h11674; l9777: /* x105526 */ /* x105001 */ /* x104999 */ t62142 = a24098; /* x105000 */ t62143 = q43; /* x104998 */ t62144.tag = EXTERNAL_SYMBOL_TYPE; t62144.value.external_symbol_type = t62142; t62145.tag = EXTERNAL_SYMBOL_TYPE; t62145.value.external_symbol_type = t62143; if (f26160(t62144, t62145)==FALSE_TYPE) goto l9779; /* x105049 */ /* x105048 */ t62249 = p11675; p11691 = t62249; /* x105047 */ /* x105027 stalin.sc:10603:367929 */ /* x105025 stalin.sc:10603:367936 */ /* x105024 stalin.sc:10603:367959 */ t62266 = p11691->a24096; /* x105023 stalin.sc:10603:367937 */ a39007 = t62266; /* x288697 */ /* x288696 */ t62267 = a39007; /* x288695 */ if (!((t62267.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33924]"); structure_ref_error();} t62264 = t62267.value.structure_type27698->s18; /* x105026 stalin.sc:10603:367962 */ /* x105022 stalin.sc:10603:367930 */ t62263 = p11691->p11669; t62265 = FALSE_TYPE; f11674(t62263, t62264, t62265); /* x105046 stalin.sc:10604:367972 */ /* x105035 stalin.sc:10604:367978 */ /* x105029 stalin.sc:10604:367991 */ /* x105034 stalin.sc:10605:368007 */ /* x105033 stalin.sc:10605:368028 */ /* x105032 stalin.sc:10605:368051 */ t62272 = p11691->a24096; /* x105031 stalin.sc:10605:368029 */ a39008 = t62272; /* x288701 */ /* x288700 */ t62273 = a39008; /* x288699 */ if (!((t62273.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33925]"); structure_ref_error();} t62270 = t62273.value.structure_type27698->s18; /* x105030 stalin.sc:10605:368008 */ a39955 = t62270; /* x292489 */ /* x292488 */ t62271 = a39955; /* x292487 */ if (!((t62271.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34872]"); structure_ref_error();} t62268 = t62271.value.structure_type27698->s10; /* x105028 stalin.sc:10604:367979 */ t62269.tag = NATIVE_PROCEDURE_TYPE7433; if ((f8144(t62269, t62268).tag)==FALSE_TYPE) goto l9806; /* x105043 */ /* x105042 */ t62274 = p11691; p11695 = t62274; /* x105041 stalin.sc:10606:368063 */ /* x105039 stalin.sc:10606:368070 */ /* x105038 stalin.sc:10606:368093 */ t62278 = p11695->a24096; /* x105037 stalin.sc:10606:368071 */ a38945 = t62278; /* x288449 */ /* x288448 */ t62279 = a38945; /* x288447 */ if (!((t62279.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33862]"); structure_ref_error();} t62276 = t62279.value.structure_type27698->s19; /* x105040 stalin.sc:10606:368096 */ t62277 = p11695->a24097; /* x105036 stalin.sc:10606:368064 */ t62275 = p11695->p11669; f11674(t62275, t62276, t62277); goto l9807; l9806: /* x105045 stalin.sc:10604:367972 */ /* x105044 stalin.sc:10604:367972 */ l9807: /* x105021 */ t62250 = p11691; p11692 = t62250; /* x105020 stalin.sc:10607:368107 */ /* x105009 stalin.sc:10607:368113 */ /* x105003 stalin.sc:10607:368122 */ /* x105008 stalin.sc:10608:368141 */ /* x105007 stalin.sc:10608:368162 */ /* x105006 stalin.sc:10608:368185 */ t62255 = p11692->a24096; /* x105005 stalin.sc:10608:368163 */ a39006 = t62255; /* x288693 */ /* x288692 */ t62256 = a39006; /* x288691 */ if (!((t62256.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33923]"); structure_ref_error();} t62253 = t62256.value.structure_type27698->s18; /* x105004 stalin.sc:10608:368142 */ a39954 = t62253; /* x292485 */ /* x292484 */ t62254 = a39954; /* x292483 */ if (!((t62254.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34871]"); structure_ref_error();} t62251 = t62254.value.structure_type27698->s10; /* x105002 stalin.sc:10607:368114 */ t62252.tag = NATIVE_PROCEDURE_TYPE7433; if ((f8137(t62252, t62251).tag)==FALSE_TYPE) goto l9804; /* x105017 */ /* x105016 */ t62257 = p11692; p11693 = t62257; /* x105015 stalin.sc:10609:368197 */ /* x105013 stalin.sc:10609:368204 */ /* x105012 stalin.sc:10609:368226 */ t62261 = p11693->a24096; /* x105011 stalin.sc:10609:368205 */ a38893 = t62261; /* x288241 */ /* x288240 */ t62262 = a38893; /* x288239 */ if (!((t62262.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33810]"); structure_ref_error();} t62259 = t62262.value.structure_type27698->s20; /* x105014 stalin.sc:10609:368229 */ t62260 = p11693->a24097; /* x105010 stalin.sc:10609:368198 */ t62258 = p11693->p11669; p11674 = t62258; a24096 = t62259; a24097 = t62260; goto h11674; l9804: /* x105019 stalin.sc:10607:368107 */ /* x105018 stalin.sc:10607:368107 */ return; l9779: /* x105525 */ /* x105053 */ /* x105051 */ t62146 = a24098; /* x105052 */ t62147 = q77; /* x105050 */ t62148.tag = EXTERNAL_SYMBOL_TYPE; t62148.value.external_symbol_type = t62146; t62149.tag = EXTERNAL_SYMBOL_TYPE; t62149.value.external_symbol_type = t62147; if (f26160(t62148, t62149)==FALSE_TYPE) goto l9781; /* x105056 */ /* x105055 */ /* x105054 stalin.sc:10610:368263 */ return; l9781: /* x105524 */ /* x105060 */ /* x105058 */ t62150 = a24098; /* x105059 */ t62151 = q78; /* x105057 */ t62152.tag = EXTERNAL_SYMBOL_TYPE; t62152.value.external_symbol_type = t62150; t62153.tag = EXTERNAL_SYMBOL_TYPE; t62153.value.external_symbol_type = t62151; if (f26160(t62152, t62153)==FALSE_TYPE) goto l9783; /* x105063 */ /* x105062 */ /* x105061 stalin.sc:10611:368293 */ return; l9783: /* x105523 */ /* x105067 */ /* x105065 */ t62154 = a24098; /* x105066 */ t62155 = q38; /* x105064 */ t62156.tag = EXTERNAL_SYMBOL_TYPE; t62156.value.external_symbol_type = t62154; t62157.tag = EXTERNAL_SYMBOL_TYPE; t62157.value.external_symbol_type = t62155; if (f26160(t62156, t62157)==FALSE_TYPE) goto l9785; /* x105070 */ /* x105069 */ /* x105068 stalin.sc:10612:368312 */ return; l9785: /* x105522 */ /* x105083 */ /* x105082 */ /* x105080 */ t62158 = a24098; /* x105081 */ t62159 = q36; /* x105079 */ t62160.tag = EXTERNAL_SYMBOL_TYPE; t62160.value.external_symbol_type = t62158; t62161.tag = EXTERNAL_SYMBOL_TYPE; t62161.value.external_symbol_type = t62159; if (!(f26160(t62160, t62161)==FALSE_TYPE)) goto l9786; /* x105076 */ /* x105074 */ t62162 = a24098; /* x105075 */ t62163 = q37; /* x105073 */ t62164.tag = EXTERNAL_SYMBOL_TYPE; t62164.value.external_symbol_type = t62162; t62165.tag = EXTERNAL_SYMBOL_TYPE; t62165.value.external_symbol_type = t62163; if (f26160(t62164, t62165)==FALSE_TYPE) goto l9787; l9786: /* x105517 */ /* x105516 */ t62167 = p11675; p11701 = t62167; /* x105515 */ /* x105504 stalin.sc:10614:368350 */ /* x105502 stalin.sc:10614:368357 */ /* x105501 stalin.sc:10614:368376 */ t62240 = p11701->a24096; /* x105500 stalin.sc:10614:368358 */ a38680 = t62240; /* x287389 */ /* x287388 */ t62241 = a38680; /* x287387 */ if (!((t62241.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33597]"); structure_ref_error();} t62238 = t62241.value.structure_type27698->s21; /* x105503 stalin.sc:10614:368379 */ /* x105499 stalin.sc:10614:368351 */ t62237 = p11701->p11669; t62239 = FALSE_TYPE; f11674(t62237, t62238, t62239); /* x105514 stalin.sc:10615:368389 */ /* x105513 stalin.sc:10615:368425 */ /* x105512 stalin.sc:10615:368447 */ t62247 = p11701->a24096; /* x105511 stalin.sc:10615:368426 */ a38565 = t62247; /* x286929 */ /* x286928 */ t62248 = a38565; /* x286927 */ if (!((t62248.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33482]"); structure_ref_error();} t62243 = t62248.value.structure_type27698->s22; /* x105510 stalin.sc:10615:368399 */ t62242 = p11701->p11669; /* x105505 stalin.sc:10615:368390 */ t62244.tag = NATIVE_PROCEDURE_TYPE17946; t62244.value.native_procedure_type17946 = t62242; t62245 = *((struct w49 *)(&t62243)); t62246 = (struct structure_type24753 *)NULL_TYPE; f27755(t62244, t62245, t62246); /* x105498 */ t62168 = p11701; p11702 = t62168; /* x105497 stalin.sc:10616:368457 */ /* x105086 stalin.sc:10616:368463 */ /* x105085 stalin.sc:10616:368474 */ t62169 = p11702->a24096; /* x105084 stalin.sc:10616:368464 */ if (f6967(t62169)==FALSE_TYPE) goto l9790; /* x105494 */ /* x105493 */ t62170 = p11702; p11703 = t62170; /* x105492 */ /* x105491 stalin.sc:10617:368484 */ /* x105369 stalin.sc:10617:368490 */ /* x105368 stalin.sc:10617:368502 */ t62179 = p11703->a24096; /* x105367 stalin.sc:10617:368491 */ if (f8944(t62179)==FALSE_TYPE) goto l9792; /* x105488 */ /* x105487 */ t62180 = p11703; p11735 = t62180; /* x105486 */ /* x105485 stalin.sc:10618:368506 */ /* x105448 stalin.sc:10618:368512 */ /* x105442 stalin.sc:10618:368521 */ /* x105437 stalin.sc:10619:368559 */ /* x105436 stalin.sc:10619:368584 */ /* x105435 stalin.sc:10619:368606 */ t62223 = p11735->a24096; /* x105434 stalin.sc:10619:368585 */ a38564 = t62223; /* x286925 */ /* x286924 */ t62224 = a38564; /* x286923 */ if (!((t62224.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33481]"); structure_ref_error();} t62219 = t62224.value.structure_type27698->s22; /* x105433 stalin.sc:10619:368564 */ /* x105432 stalin.sc:10619:368560 */ t62220.tag = NATIVE_PROCEDURE_TYPE7945; t62221 = *((struct w49 *)(&t62219)); t62222 = (struct structure_type24753 *)NULL_TYPE; t62213 = f27731(t62220, t62221, t62222); /* x105438 stalin.sc:10620:368613 */ t62214 = a1675; /* x105441 stalin.sc:10621:368623 */ /* x105440 stalin.sc:10621:368641 */ t62225 = p11735->a24096; /* x105439 stalin.sc:10621:368624 */ t62215 = f8739(t62225); /* x105431 stalin.sc:10618:368522 */ /* MOVE: branching squeezed to general */ if (t62213>=((struct structure_type24753 *)VALUE_OFFSET)) {t62216.tag = STRUCTURE_TYPE24753; t62216.value.structure_type24753 = t62213;} else t62216.tag = (unsigned)t62213; /* MOVE: branching squeezed to general */ if (t62214>=((struct structure_type27650 *)VALUE_OFFSET)) {t62217.tag = STRUCTURE_TYPE27650; t62217.value.structure_type27650 = t62214;} else t62217.tag = (unsigned)t62214; t62218 = t62215; t62210 = f10570(t62216, t62217, t62218); /* x105447 stalin.sc:10622:368654 */ /* x105446 stalin.sc:10622:368675 */ /* x105445 stalin.sc:10622:368694 */ t62228 = p11735->a24096; /* x105444 stalin.sc:10622:368676 */ a38679 = t62228; /* x287385 */ /* x287384 */ t62229 = a38679; /* x287383 */ if (!((t62229.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33596]"); structure_ref_error();} t62226 = t62229.value.structure_type27698->s21; /* x105443 stalin.sc:10622:368655 */ a39989 = t62226; /* x292625 */ /* x292624 */ t62227 = a39989; /* x292623 */ if (!((t62227.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34906]"); structure_ref_error();} t62211 = t62227.value.structure_type27698->s10; /* x105430 stalin.sc:10618:368513 */ t62212.tag = NATIVE_PROCEDURE_TYPE19070; t62212.value.native_procedure_type19070 = t62210; if ((f8137(t62212, t62211).tag)==FALSE_TYPE) goto l9801; /* x105482 */ /* x105481 */ t62230 = p11735; p11743 = t62230; /* x105480 stalin.sc:10623:368701 */ /* x105474 */ t62231 = p11743; /* x105479 stalin.sc:10633:368999 */ /* x105478 stalin.sc:10633:369020 */ /* x105477 stalin.sc:10633:369043 */ t62236 = p11743->a24096; /* x105476 stalin.sc:10633:369021 */ t62234 = f6994(t62236); /* x105475 stalin.sc:10633:369000 */ a39907 = t62234; /* x292297 */ /* x292296 */ t62235 = a39907; /* x292295 */ if (!((t62235.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34824]"); structure_ref_error();} t62232 = t62235.value.structure_type27698->s10; /* x105449 stalin.sc:10623:368702 */ t62233.tag = NATIVE_PROCEDURE_TYPE20709; t62233.value.native_procedure_type20709 = t62231; f8173(t62233, t62232); goto l9802; l9801: /* x105484 stalin.sc:10618:368506 */ /* x105483 stalin.sc:10618:368506 */ l9802: /* x105429 */ t62181 = p11735; p11736 = t62181; sfp11736 = fp11736; /* x105428 stalin.sc:10637:369197 */ /* x105388 stalin.sc:10637:369203 */ /* x105382 stalin.sc:10637:369212 */ /* x105377 stalin.sc:10638:369265 */ /* x105376 stalin.sc:10638:369290 */ /* x105375 stalin.sc:10638:369312 */ t62196 = p11736->a24096; /* x105374 stalin.sc:10638:369291 */ a38549 = t62196; /* x286865 */ /* x286864 */ t62197 = a38549; /* x286863 */ if (!((t62197.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33466]"); structure_ref_error();} t62192 = t62197.value.structure_type27698->s22; /* x105373 stalin.sc:10638:369270 */ /* x105372 stalin.sc:10638:369266 */ t62193.tag = NATIVE_PROCEDURE_TYPE7945; t62194 = *((struct w49 *)(&t62192)); t62195 = (struct structure_type24753 *)NULL_TYPE; t62185 = f27731(t62193, t62194, t62195); /* x105378 stalin.sc:10639:369319 */ t62186 = a1675; /* x105381 stalin.sc:10640:369329 */ /* x105380 stalin.sc:10640:369347 */ t62198 = p11736->a24096; /* x105379 stalin.sc:10640:369330 */ t62187 = f8739(t62198); /* x105371 stalin.sc:10637:369213 */ a23397 = t62185; a23398 = t62186; a23399 = t62187; if ((fp11736+sizeof(struct p10583))>(&((region11736->data)[region_size11736]))) {struct region11736 *region; unsigned region_size = REGION_SIZE11736; if (sizeof(struct p10583)>region_size) region_size = sizeof(struct p10583); region = (struct region11736 *)GC_malloc_uncollectable(sizeof(struct region11736)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region11736; region->region_size = region_size11736; region_size11736 = region_size; region11736 = region; fp11736 = &((region->data)[0]); ALIGN(fp11736);} e10583 = (struct p10583 *)fp11736; fp11736 += sizeof(struct p10583)+((4-(sizeof(struct p10583)%4))&3); e10583->a23397 = a23397; e10583->a23398 = a23398; e10583->a23399 = a23399; /* x96296 */ /* x96295 stalin.sc:8794:299155 */ /* x96288 stalin.sc:8794:299163 */ /* x96287 stalin.sc:8794:299175 */ t62189 = e10583->a23399; /* x96286 stalin.sc:8794:299164 */ t62190.tag = STRUCTURE_TYPE27745; t62190.value.structure_type27745 = t62189; if (f8944(t62190)==FALSE_TYPE) goto l9798; /* x96290 */ /* x96289 */ goto l9799; l9798: /* x96294 */ /* x96293 */ /* x96292 stalin.sc:8794:299178 */ /* x96291 stalin.sc:8794:299179 */ /* x296425 QobiScheme.sc:166:5314 */ /* x296424 QobiScheme.sc:166:5321 */ t62191 = "This shouldn\'t happen"; /* x296423 QobiScheme.sc:166:5315 */ stalin_panic(t62191); l9799: /* x96285 */ t62188 = e10583; p10584 = t62188; /* x96284 stalin.sc:8795:299190 */ t62182 = p10584; /* x105387 stalin.sc:10641:369360 */ /* x105386 stalin.sc:10641:369381 */ /* x105385 stalin.sc:10641:369400 */ t62201 = p11736->a24096; /* x105384 stalin.sc:10641:369382 */ a38654 = t62201; /* x287285 */ /* x287284 */ t62202 = a38654; /* x287283 */ if (!((t62202.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33571]"); structure_ref_error();} t62199 = t62202.value.structure_type27698->s21; /* x105383 stalin.sc:10641:369361 */ a39957 = t62199; /* x292497 */ /* x292496 */ t62200 = a39957; /* x292495 */ if (!((t62200.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34874]"); structure_ref_error();} t62183 = t62200.value.structure_type27698->s10; /* x105370 stalin.sc:10637:369204 */ t62184.tag = NATIVE_PROCEDURE_TYPE19076; t62184.value.native_procedure_type19076 = t62182; if ((f8137(t62184, t62183).tag)==FALSE_TYPE) goto l9795; /* x105425 */ /* x105424 */ t62203 = p11736; p11737 = t62203; /* x105423 stalin.sc:10642:369407 */ /* x105417 */ t62204 = p11737; /* x105422 stalin.sc:10653:369749 */ /* x105421 stalin.sc:10653:369770 */ /* x105420 stalin.sc:10653:369793 */ t62209 = p11737->a24096; /* x105419 stalin.sc:10653:369771 */ t62207 = f6994(t62209); /* x105418 stalin.sc:10653:369750 */ a39906 = t62207; /* x292293 */ /* x292292 */ t62208 = a39906; /* x292291 */ if (!((t62208.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34823]"); structure_ref_error();} t62205 = t62208.value.structure_type27698->s10; /* x105389 stalin.sc:10642:369408 */ t62206.tag = NATIVE_PROCEDURE_TYPE20711; t62206.value.native_procedure_type20711 = t62204; f8173(t62206, t62205); goto l9796; l9795: /* x105427 stalin.sc:10637:369197 */ /* x105426 stalin.sc:10637:369197 */ l9796: while ((sfp11736<(&((region11736->data)[0])))||(sfp11736>(&((region11736->data)[region_size11736])))) {struct region11736 *region; region = region11736; region_size11736 = region11736->region_size; region11736 = region11736->region; GC_free(region);} fp11736 = sfp11736; goto l9793; l9792: /* x105490 stalin.sc:10617:368484 */ /* x105489 stalin.sc:10617:368484 */ l9793: /* x105366 */ t62171 = p11703; p11704 = t62171; /* x105365 stalin.sc:10654:369807 */ /* x105359 stalin.sc:10655:369825 */ t62172 = p11704; /* x105364 stalin.sc:10723:372127 */ /* x105363 stalin.sc:10723:372148 */ /* x105362 stalin.sc:10723:372167 */ t62177 = p11704->a24096; /* x105361 stalin.sc:10723:372149 */ a38653 = t62177; /* x287281 */ /* x287280 */ t62178 = a38653; /* x287279 */ if (!((t62178.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33570]"); structure_ref_error();} t62175 = t62178.value.structure_type27698->s21; /* x105360 stalin.sc:10723:372128 */ a39956 = t62175; /* x292493 */ /* x292492 */ t62176 = a39956; /* x292491 */ if (!((t62176.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34873]"); structure_ref_error();} t62173 = t62176.value.structure_type27698->s10; /* x105087 stalin.sc:10654:369808 */ t62174.tag = NATIVE_PROCEDURE_TYPE19079; t62174.value.native_procedure_type19079 = t62172; f8173(t62174, t62173); return; l9790: /* x105496 stalin.sc:10616:368457 */ /* x105495 stalin.sc:10616:368457 */ return; l9787: /* x105521 */ /* x105520 */ /* x105519 stalin.sc:10724:372185 */ /* x105518 stalin.sc:10724:372186 */ /* x296749 QobiScheme.sc:166:5314 */ /* x296748 QobiScheme.sc:166:5321 */ t62166 = "This shouldn\'t happen"; /* x296747 QobiScheme.sc:166:5315 */ stalin_panic(t62166);} /* [inside COMPUTE-CALL-GRAPH! 11669] */ void f11669(struct w49 a24093) {struct w49 a36704; /* S */ struct w6852 a39234; /* S */ struct p11669 *t62287; struct p11669 *t62288; struct w49 t62289; struct p11669 *t62290; struct p11669 *t62291; struct w49 t62292; unsigned t62293; struct w6852 t62294; struct w6852 t62295; struct w49 t62296; struct w49 t62297; struct p11669 *e11669; struct p11669 *p11670; struct p11669 *p11671; struct p11669 *p11672; e11669 = (struct p11669 *)alloca(sizeof(struct p11669)); if (e11669==NULL) {backtrace_internal("[inside COMPUTE-CALL-GRAPH! 11668]"); out_of_memory_error();} e11669->a24093 = a24093; /* x105551 */ /* x105550 */ /* x105549 */ /* x105548 */ t62287 = e11669; p11670 = t62287; /* x105547 */ /* x105546 */ /* x105545 */ /* x104883 */ t62288 = p11670; p11671 = t62288; /* x104882 stalin.sc:10725:372201 */ /* x104869 stalin.sc:10725:372207 */ /* x104868 stalin.sc:10725:372226 */ t62289 = p11671->a24093; /* x104867 stalin.sc:10725:372208 */ if (f8526(t62289)==FALSE_TYPE) goto l9809; /* x104879 */ /* x104878 */ t62290 = p11671; p11672 = t62290; /* x104877 stalin.sc:10726:372234 */ /* x104875 stalin.sc:10726:372241 */ /* x104874 stalin.sc:10726:372258 */ /* x104873 stalin.sc:10726:372282 */ t62296 = p11672->a24093; /* x104872 stalin.sc:10726:372259 */ a36704 = t62296; /* x279485 */ /* x279484 */ t62297 = a36704; /* x279483 */ if (!((t62297.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31621]"); structure_ref_error();} t62294 = t62297.value.structure_type27694->s1; /* x104871 stalin.sc:10726:372242 */ a39234 = t62294; /* x289605 */ /* x289604 */ t62295 = a39234; /* x289603 */ if (!((t62295.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34151]"); structure_ref_error();} t62292 = t62295.value.structure_type27698->s15; /* x104876 stalin.sc:10726:372287 */ /* x104870 stalin.sc:10726:372235 */ t62291 = p11672; t62293 = TRUE_TYPE; f11674(t62291, t62292, t62293); return; l9809: /* x104881 stalin.sc:10725:372201 */ /* x104880 stalin.sc:10725:372201 */ return;} /* DIRECT-CALLEES[11660] */ struct w49 f11660(struct w49 a24080) {struct w49 a24084; /* E */ struct w49 a36557; /* S */ struct w49 a41064; /* E */ struct w49 a42589; /* S */ struct w3457 t62298; struct w3457 t62299; struct w49 t62300; struct w49 t62301; struct w49 t62302; struct w49 t62303; struct w49 t62304; struct w49 t62305; struct w49 t62306; struct w49 t62307; /* x104833 stalin.sc:10541:365589 */ /* x104829 stalin.sc:10541:365597 */ /* x104828 stalin.sc:10541:365618 */ t62302 = a24080; /* x104827 stalin.sc:10541:365598 */ a41064 = t62302; /* x298368 stalin.sc:10546:365775 */ /* x298367 stalin.sc:10546:365808 */ t62303 = a41064; /* x298366 stalin.sc:10546:365776 */ a42589 = t62303; /* x304238 */ /* x304237 */ t62304 = a42589; /* x304236 */ if (!((t62304.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLEES[6783] 37900]"); structure_ref_error();} t62298 = t62304.value.structure_type27694->s19; /* x104832 stalin.sc:10541:365621 */ /* x104831 stalin.sc:10541:365646 */ t62305 = a24080; /* x104830 stalin.sc:10541:365622 */ a24084 = t62305; /* x104858 stalin.sc:10550:365919 */ /* x104857 stalin.sc:10550:365956 */ t62306 = a24084; /* x104856 stalin.sc:10550:365920 */ a36557 = t62306; /* x278897 */ /* x278896 */ t62307 = a36557; /* x278895 */ if (!((t62307.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-NON-TAIL-CALLEES[6791] 31474]"); structure_ref_error();} t62299 = t62307.value.structure_type27694->s20; /* x104826 stalin.sc:10541:365590 */ t62300 = *((struct w49 *)(&t62298)); t62301 = *((struct w49 *)(&t62299)); return f1390(t62300, t62301);} /* PROPER-TAIL-CALLERS[11650] */ struct w12224 f11650(struct w49 a24070) {struct w49 a24012; /* E */ struct w49 a36583; /* S */ struct w21193 t62309; struct w227671 t62310; struct w49 t62311; struct w49 t62312; struct w3457 t62313; struct w228345 t62314; struct w49 t62315; struct structure_type24753 *t62316; struct w49 t62317; struct w49 t62318; struct w21193 t62319; struct w36108 t62320; struct w49 t62321; struct structure_type24753 *t62322; /* x104778 */ /* x104777 stalin.sc:10520:364923 */ /* x104773 stalin.sc:10521:364950 */ /* x104774 stalin.sc:10521:364966 */ /* x104775 stalin.sc:10521:364987 */ /* x104776 stalin.sc:10521:365013 */ t62312 = a24070; /* x104771 stalin.sc:10520:364924 */ a24012 = t62312; /* x104530 */ /* x104529 */ /* x104528 */ /* x104527 */ /* x104526 */ /* x104517 */ /* x104516 */ /* x104525 stalin.sc:10444:361962 */ /* x104524 stalin.sc:10444:361998 */ t62319 = a1594; /* x104523 stalin.sc:10444:361972 */ /* x104518 stalin.sc:10444:361963 */ t62320.tag = NATIVE_PROCEDURE_TYPE17963; t62321 = *((struct w49 *)(&t62319)); t62322 = (struct structure_type24753 *)NULL_TYPE; f27755(t62320, t62321, t62322); /* x104486 */ /* x104485 stalin.sc:10445:362005 */ /* x104484 stalin.sc:10445:362017 */ /* x104483 stalin.sc:10445:362050 */ t62317 = a24012; /* x104482 stalin.sc:10445:362018 */ a36583 = t62317; /* x279001 */ /* x279000 */ t62318 = a36583; /* x278999 */ if (!((t62318.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLERS[6767] 31500]"); structure_ref_error();} t62313 = t62318.value.structure_type27694->s17; /* x104481 stalin.sc:10445:362011 */ /* x104480 stalin.sc:10445:362006 */ t62314.tag = NATIVE_PROCEDURE_TYPE17964; t62315 = *((struct w49 *)(&t62313)); t62316 = (struct structure_type24753 *)NULL_TYPE; f1042(t62314, t62315, t62316); /* x104770 */ /* x104769 stalin.sc:10522:365017 */ /* x104767 stalin.sc:10522:365032 */ /* x104768 stalin.sc:10522:365053 */ t62309 = a1594; /* x104766 stalin.sc:10522:365018 */ t62310.tag = NATIVE_PROCEDURE_TYPE7309; t62311 = *((struct w49 *)(&t62309)); return f1226(t62310, t62311);} /* PROPER-TAIL-CALLEES[11644] */ struct w12224 f11644(struct w49 a24064) {struct w49 a23990; /* E */ struct w49 a36565; /* S */ struct w21193 t62324; struct w227671 t62325; struct w49 t62326; struct w49 t62327; struct w3457 t62328; struct w228345 t62329; struct w49 t62330; struct structure_type24753 *t62331; struct w49 t62332; struct w49 t62333; struct w21193 t62334; struct w36108 t62335; struct w49 t62336; struct structure_type24753 *t62337; /* x104748 */ /* x104747 stalin.sc:10507:364397 */ /* x104743 stalin.sc:10508:364424 */ /* x104744 stalin.sc:10508:364440 */ /* x104745 stalin.sc:10508:364461 */ /* x104746 stalin.sc:10508:364487 */ t62327 = a24064; /* x104741 stalin.sc:10507:364398 */ a23990 = t62327; /* x104425 */ /* x104424 */ /* x104423 */ /* x104422 */ /* x104421 */ /* x104412 */ /* x104411 */ /* x104420 stalin.sc:10426:361302 */ /* x104419 stalin.sc:10426:361338 */ t62334 = a1594; /* x104418 stalin.sc:10426:361312 */ /* x104413 stalin.sc:10426:361303 */ t62335.tag = NATIVE_PROCEDURE_TYPE18195; t62336 = *((struct w49 *)(&t62334)); t62337 = (struct structure_type24753 *)NULL_TYPE; f27755(t62335, t62336, t62337); /* x104381 */ /* x104380 stalin.sc:10427:361345 */ /* x104379 stalin.sc:10427:361357 */ /* x104378 stalin.sc:10427:361390 */ t62332 = a23990; /* x104377 stalin.sc:10427:361358 */ a36565 = t62332; /* x278929 */ /* x278928 */ t62333 = a36565; /* x278927 */ if (!((t62333.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLEES[6783] 31482]"); structure_ref_error();} t62328 = t62333.value.structure_type27694->s19; /* x104376 stalin.sc:10427:361351 */ /* x104375 stalin.sc:10427:361346 */ t62329.tag = NATIVE_PROCEDURE_TYPE18196; t62330 = *((struct w49 *)(&t62328)); t62331 = (struct structure_type24753 *)NULL_TYPE; f1042(t62329, t62330, t62331); /* x104740 */ /* x104739 stalin.sc:10509:364491 */ /* x104737 stalin.sc:10509:364506 */ /* x104738 stalin.sc:10509:364527 */ t62324 = a1594; /* x104736 stalin.sc:10509:364492 */ t62325.tag = NATIVE_PROCEDURE_TYPE7309; t62326 = *((struct w49 *)(&t62324)); return f1226(t62325, t62326);} /* CALLERS[11641] */ struct w12224 f11641(struct w49 a24061) {struct w21193 t62339; struct w227671 t62340; struct w49 t62341; struct w49 t62342; unsigned t62343; unsigned t62344; unsigned t62345; /* x104733 */ /* x104732 stalin.sc:10501:364107 */ /* x104728 stalin.sc:10501:364120 */ /* x104729 stalin.sc:10501:364136 */ /* x104730 stalin.sc:10501:364157 */ /* x104731 stalin.sc:10501:364183 */ t62342 = a24061; /* x104726 stalin.sc:10501:364108 */ t62343 = NATIVE_PROCEDURE_TYPE20685; t62344 = NATIVE_PROCEDURE_TYPE7309; t62345 = NATIVE_PROCEDURE_TYPE7308; f11570(t62343, t62344, t62345, t62342); /* x104725 */ /* x104724 stalin.sc:10502:364187 */ /* x104722 stalin.sc:10502:364202 */ /* x104723 stalin.sc:10502:364223 */ t62339 = a1594; /* x104721 stalin.sc:10502:364188 */ t62340.tag = NATIVE_PROCEDURE_TYPE7309; t62341 = *((struct w49 *)(&t62339)); return f1226(t62340, t62341);} /* PROPER-CALLERS[11638] */ struct w12224 f11638(struct w49 a24058) {struct w21193 t62347; struct w227671 t62348; struct w49 t62349; struct w49 t62350; struct p11619 *t62351; unsigned t62352; unsigned t62353; /* x104718 */ /* x104717 stalin.sc:10495:363888 */ /* x104713 stalin.sc:10496:363910 */ /* x104714 stalin.sc:10496:363926 */ /* x104715 stalin.sc:10496:363947 */ /* x104716 stalin.sc:10496:363973 */ t62350 = a24058; /* x104711 stalin.sc:10495:363889 */ t62351 = (struct p11619 *)NATIVE_PROCEDURE_TYPE17919; t62352 = NATIVE_PROCEDURE_TYPE7309; t62353 = NATIVE_PROCEDURE_TYPE7308; f11559(t62351, t62352, t62353, t62350); /* x104710 */ /* x104709 stalin.sc:10497:363977 */ /* x104707 stalin.sc:10497:363992 */ /* x104708 stalin.sc:10497:364013 */ t62347 = a1594; /* x104706 stalin.sc:10497:363978 */ t62348.tag = NATIVE_PROCEDURE_TYPE7309; t62349 = *((struct w49 *)(&t62347)); return f1226(t62348, t62349);} /* PROPER-CALLEES[11632] */ struct w12224 f11632(struct w49 a24052) {struct w21193 t62355; struct w227671 t62356; struct w49 t62357; struct w49 t62358; unsigned t62359; unsigned t62360; unsigned t62361; /* x104688 */ /* x104687 stalin.sc:10483:363389 */ /* x104683 stalin.sc:10484:363411 */ /* x104684 stalin.sc:10484:363427 */ /* x104685 stalin.sc:10484:363448 */ /* x104686 stalin.sc:10484:363474 */ t62358 = a24052; /* x104681 stalin.sc:10483:363390 */ t62359 = NATIVE_PROCEDURE_TYPE18263; t62360 = NATIVE_PROCEDURE_TYPE7309; t62361 = NATIVE_PROCEDURE_TYPE7308; f11537(t62359, t62360, t62361, t62358); /* x104680 */ /* x104679 stalin.sc:10485:363478 */ /* x104677 stalin.sc:10485:363493 */ /* x104678 stalin.sc:10485:363514 */ t62355 = a1594; /* x104676 stalin.sc:10485:363479 */ t62356.tag = NATIVE_PROCEDURE_TYPE7309; t62357 = *((struct w49 *)(&t62355)); return f1226(t62356, t62357);} /* DIRECTLY-NON-TAIL-CALLS?[11631] */ struct w16638 f11631(struct w49 a24050, struct w49 a24051) {struct w49 a36570; /* S */ struct w49 t62362; struct w3457 t62363; struct w49 t62364; struct w49 t62365; struct w49 t62366; /* x104673 stalin.sc:10478:363180 */ /* x104669 stalin.sc:10478:363186 */ t62362 = a24050; /* x104672 stalin.sc:10478:363189 */ /* x104671 stalin.sc:10478:363226 */ t62365 = a24051; /* x104670 stalin.sc:10478:363190 */ a36570 = t62365; /* x278949 */ /* x278948 */ t62366 = a36570; /* x278947 */ if (!((t62366.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-NON-TAIL-CALLERS[6775] 31487]"); structure_ref_error();} t62363 = t62366.value.structure_type27694->s18; /* x104668 stalin.sc:10478:363181 */ t62364 = *((struct w49 *)(&t62363)); return f26351(t62362, t62364);} /* DIRECTLY-TAIL-CALLS?[11630] */ struct w16638 f11630(struct w49 a24048, struct w49 a24049) {struct w49 a36581; /* S */ struct w49 t62367; struct w3457 t62368; struct w49 t62369; struct w49 t62370; struct w49 t62371; /* x104665 stalin.sc:10475:363089 */ /* x104661 stalin.sc:10475:363095 */ t62367 = a24048; /* x104664 stalin.sc:10475:363098 */ /* x104663 stalin.sc:10475:363131 */ t62370 = a24049; /* x104662 stalin.sc:10475:363099 */ a36581 = t62370; /* x278993 */ /* x278992 */ t62371 = a36581; /* x278991 */ if (!((t62371.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLERS[6767] 31498]"); structure_ref_error();} t62368 = t62371.value.structure_type27694->s17; /* x104660 stalin.sc:10475:363090 */ t62369 = *((struct w49 *)(&t62368)); return f26351(t62367, t62369);} /* CALLS?[11621] */ struct w16638 f11621(struct w49 a24034, struct w49 a24035) {struct w16638 r11621; unsigned a24036; /* v */ unsigned t62372; struct w49 t62373; struct w49 t62374; struct w49 t62375; struct w49 t62376; /* x104609 stalin.sc:10460:362542 */ /* x104608 stalin.sc:10460:362546 */ /* x104606 stalin.sc:10460:362551 */ t62375 = a24034; /* x104607 stalin.sc:10460:362554 */ t62376 = a24035; /* x269492 stalin.sc:10460:362547 */ /* EQ: dispatching general to general */ if ((t62375.tag)==(t62376.tag)) {switch (t62375.tag) {case FIXNUM_TYPE: t62372 = ((t62375.value.fixnum_type)==(t62376.value.fixnum_type))?TRUE_TYPE:FALSE_TYPE; break; case FLONUM_TYPE: t62372 = ((t62375.value.flonum_type)==(t62376.value.flonum_type))?TRUE_TYPE:FALSE_TYPE; break; case INPUT_PORT_TYPE: t62372 = ((t62375.value.input_port_type)==(t62376.value.input_port_type))?TRUE_TYPE:FALSE_TYPE; break; case OUTPUT_PORT_TYPE: t62372 = ((t62375.value.output_port_type)==(t62376.value.output_port_type))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE15963: t62372 = ((t62375.value.native_procedure_type15963)==(t62376.value.native_procedure_type15963))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19067: t62372 = ((t62375.value.native_procedure_type19067)==(t62376.value.native_procedure_type19067))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19068: t62372 = ((t62375.value.native_procedure_type19068)==(t62376.value.native_procedure_type19068))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE22459: t62372 = ((t62375.value.native_procedure_type22459)==(t62376.value.native_procedure_type22459))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24753: t62372 = ((t62375.value.structure_type24753)==(t62376.value.structure_type24753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24757: t62372 = ((t62375.value.structure_type24757)==(t62376.value.structure_type24757))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27501: t62372 = ((t62375.value.structure_type27501)==(t62376.value.structure_type27501))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27510: t62372 = ((t62375.value.structure_type27510)==(t62376.value.structure_type27510))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27621: t62372 = ((t62375.value.structure_type27621)==(t62376.value.structure_type27621))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27650: t62372 = ((t62375.value.structure_type27650)==(t62376.value.structure_type27650))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27669: t62372 = ((t62375.value.structure_type27669)==(t62376.value.structure_type27669))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27673: t62372 = ((t62375.value.structure_type27673)==(t62376.value.structure_type27673))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27692: t62372 = ((t62375.value.structure_type27692)==(t62376.value.structure_type27692))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27694: t62372 = ((t62375.value.structure_type27694)==(t62376.value.structure_type27694))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27698: t62372 = ((t62375.value.structure_type27698)==(t62376.value.structure_type27698))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27745: t62372 = ((t62375.value.structure_type27745)==(t62376.value.structure_type27745))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27747: t62372 = ((t62375.value.structure_type27747)==(t62376.value.structure_type27747))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27750: t62372 = ((t62375.value.structure_type27750)==(t62376.value.structure_type27750))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27753: t62372 = ((t62375.value.structure_type27753)==(t62376.value.structure_type27753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27756: t62372 = ((t62375.value.structure_type27756)==(t62376.value.structure_type27756))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27761: t62372 = ((t62375.value.structure_type27761)==(t62376.value.structure_type27761))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27769: t62372 = ((t62375.value.structure_type27769)==(t62376.value.structure_type27769))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27776: t62372 = ((t62375.value.structure_type27776)==(t62376.value.structure_type27776))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27779: t62372 = ((t62375.value.structure_type27779)==(t62376.value.structure_type27779))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27858: t62372 = ((t62375.value.structure_type27858)==(t62376.value.structure_type27858))?TRUE_TYPE:FALSE_TYPE; break; case STRING_TYPE: t62372 = ((t62375.value.string_type)==(t62376.value.string_type))?TRUE_TYPE:FALSE_TYPE; break; case HEADED_VECTOR_TYPE27896: t62372 = ((t62375.value.headed_vector_type27896)==(t62376.value.headed_vector_type27896))?TRUE_TYPE:FALSE_TYPE; break; case EXTERNAL_SYMBOL_TYPE: t62372 = ((t62375.value.external_symbol_type)==(t62376.value.external_symbol_type))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27908: t62372 = ((t62375.value.structure_type27908)==(t62376.value.structure_type27908))?TRUE_TYPE:FALSE_TYPE; break; default: t62372 = TRUE_TYPE;}} else t62372 = FALSE_TYPE; /* x104604 */ a24036 = t62372; /* x104603 */ /* x104597 */ if (a24036==FALSE_TYPE) goto l9811; /* x104598 */ r11621.tag = a24036; return r11621; l9811: /* x104602 */ /* x104600 stalin.sc:10460:362575 */ t62373 = a24034; /* x104601 stalin.sc:10460:362578 */ t62374 = a24035; /* x104599 stalin.sc:10460:362559 */ return f11619(t62373, t62374);} /* PROPERLY-CALLS?[11619] */ struct w16638 f11619(struct w49 a24031, struct w49 a24032) {struct p11619 *t62377; struct w49 t62378; struct p11619 *t62379; unsigned t62380; unsigned t62381; struct p11619 *e11619; e11619 = (struct p11619 *)alloca(sizeof(struct p11619)); if (e11619==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e11619->a24031 = a24031; /* x104594 stalin.sc:10457:362420 */ /* x104590 stalin.sc:10458:362442 */ t62377 = e11619; /* x104591 stalin.sc:10458:362466 */ /* x104592 stalin.sc:10458:362487 */ /* x104593 stalin.sc:10458:362513 */ t62378 = a24032; /* x104585 stalin.sc:10457:362421 */ t62379 = t62377; t62380 = NATIVE_PROCEDURE_TYPE7309; t62381 = NATIVE_PROCEDURE_TYPE7308; return f11559(t62379, t62380, t62381, t62378);} /* [inside SOME-PROPER-TAIL-CALLER 11607] */ void f11607(struct w49 a24019) {struct w49 t62382; struct w16638 t62383; /* x104522 stalin.sc:10444:361984 */ /* x104520 stalin.sc:10444:361991 */ t62382 = a24019; /* x104521 stalin.sc:10444:361993 */ /* x104519 stalin.sc:10444:361985 */ t62383.tag = FALSE_TYPE; f8472(t62382, t62383); return;} /* [inside SOME-PROPER-TAIL-CALLEE 11588] */ void f11588(struct w49 a23997) {struct w49 t62384; struct w16638 t62385; /* x104417 stalin.sc:10426:361324 */ /* x104415 stalin.sc:10426:361331 */ t62384 = a23997; /* x104416 stalin.sc:10426:361333 */ /* x104414 stalin.sc:10426:361325 */ t62385.tag = FALSE_TYPE; f8472(t62384, t62385); return;} /* [inside SOME-CALLER 11580] */ void f11580(struct p11570 *p11580, struct w49 a23986) {unsigned t62386; struct w49 t62387; unsigned t62388; struct w16638 t62389; /* x104368 stalin.sc:10411:360778 */ /* x104366 stalin.sc:10411:360785 */ t62387 = a23986; /* x104367 stalin.sc:10411:360787 */ /* x104365 stalin.sc:10411:360779 */ t62386 = p11580->a23977; if (t62386==NATIVE_PROCEDURE_TYPE7306) {t62388 = FALSE_TYPE; f8477(t62387, t62388); return;} t62389.tag = FALSE_TYPE; f8472(t62387, t62389); return;} /* LOOP?[11574] */ struct w16638 f11574(struct p11572 *p11574, struct w49 a23982) {struct w16638 r11574; struct w16638 a23985; /* v */ struct w49 a36574; /* S */ struct w49 a36582; /* S */ unsigned t62390; struct w49 t62391; struct p11572 *t62392; struct p11572 *t62393; struct p11572 *t62394; struct p11572 *t62395; struct w16638 t62396; struct p11572 *t62397; struct w3457 t62398; struct w228345 t62399; struct w49 t62400; struct structure_type24753 *t62401; struct w49 t62402; struct w49 t62403; struct p11572 *t62404; struct w3457 t62405; struct w228345 t62406; struct w49 t62407; struct structure_type24753 *t62408; struct w49 t62409; struct w49 t62410; unsigned t62411; unsigned t62413; struct w49 t62414; unsigned t62415; struct w16638 t62416; struct p11572 *p11575; struct p11572 *p11576; struct p11572 *p11577; struct p11572 *p11578; /* x104353 stalin.sc:10413:360820 */ /* x104318 stalin.sc:10413:360825 */ /* x104317 stalin.sc:10413:360830 */ /* x104316 stalin.sc:10413:360839 */ t62391 = a23982; /* x104315 stalin.sc:10413:360831 */ t62390 = p11574->p11570->a23976; if (t62390==NATIVE_PROCEDURE_TYPE7307) {if (!(f8476(t62391)==FALSE_TYPE)) goto l9813;} else if (!(f8471(t62391)==FALSE_TYPE)) goto l9813; /* x104351 */ /* x104350 */ t62392 = p11574; p11575 = t62392; /* x104349 */ /* x104348 stalin.sc:10414:360857 */ /* x104346 stalin.sc:10414:360864 */ t62414 = a23982; /* x104347 stalin.sc:10414:360866 */ /* x104345 stalin.sc:10414:360858 */ t62413 = p11575->p11570->a23977; if (t62413==NATIVE_PROCEDURE_TYPE7306) {t62415 = TRUE_TYPE; f8477(t62414, t62415);} else {t62416.tag = TRUE_TYPE; f8472(t62414, t62416);} /* x104344 */ t62393 = p11575; p11576 = t62393; /* x104343 stalin.sc:10415:360877 */ /* x104342 stalin.sc:10415:360881 */ /* x104341 stalin.sc:10415:360885 */ /* x104340 stalin.sc:10415:360882 */ t62411 = p11576->p11570->a23975; switch (t62411) {case NATIVE_PROCEDURE_TYPE16769: /* x114192 stalin.sc:12738:445875 */ break; case NATIVE_PROCEDURE_TYPE17362: /* x113970 stalin.sc:12670:443512 */ break; case NATIVE_PROCEDURE_TYPE18231: /* x113889 stalin.sc:12758:446582 */ break; case NATIVE_PROCEDURE_TYPE20685: /* x104727 stalin.sc:10501:364132 */ break; case NATIVE_PROCEDURE_TYPE22699: /* x114047 stalin.sc:12694:444374 */ break; case NATIVE_PROCEDURE_TYPE23262: /* x114122 stalin.sc:12716:445135 */ break; default: /* x71251 stalin.sc:3704:125622 */;} /* x104339 */ t62394 = p11576; p11577 = t62394; /* x104338 */ /* x104319 */ /* x104337 */ /* x104336 stalin.sc:10416:360892 */ /* x104335 stalin.sc:10416:360904 */ /* x104334 stalin.sc:10416:360937 */ t62409 = a23982; /* x104333 stalin.sc:10416:360905 */ a36582 = t62409; /* x278997 */ /* x278996 */ t62410 = a36582; /* x278995 */ if (!((t62410.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLERS[6767] 31499]"); structure_ref_error();} t62405 = t62410.value.structure_type27694->s17; /* x104332 stalin.sc:10416:360898 */ t62404 = p11577->a23980; /* x104331 stalin.sc:10416:360893 */ t62406.tag = NATIVE_PROCEDURE_TYPE17482; t62406.value.native_procedure_type17482 = t62404; t62407 = *((struct w49 *)(&t62405)); t62408 = (struct structure_type24753 *)NULL_TYPE; t62396 = f1042(t62406, t62407, t62408); /* x104330 */ t62395 = p11577; p11578 = t62395; a23985 = t62396; /* x104329 */ /* x104321 */ if ((a23985.tag)==FALSE_TYPE) goto l9816; /* x104322 */ return a23985; l9816: /* x104328 */ /* x104327 stalin.sc:10417:360957 */ /* x104326 stalin.sc:10417:360994 */ t62402 = a23982; /* x104325 stalin.sc:10417:360958 */ a36574 = t62402; /* x278965 */ /* x278964 */ t62403 = a36574; /* x278963 */ if (!((t62403.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-NON-TAIL-CALLERS[6775] 31491]"); structure_ref_error();} t62398 = t62403.value.structure_type27694->s18; /* x104324 stalin.sc:10417:360951 */ t62397 = p11578->a23980; /* x104323 stalin.sc:10417:360946 */ t62399.tag = NATIVE_PROCEDURE_TYPE17482; t62399.value.native_procedure_type17482 = t62397; t62400 = *((struct w49 *)(&t62398)); t62401 = (struct structure_type24753 *)NULL_TYPE; return f1042(t62399, t62400, t62401); l9813: /* x104352 */ r11574.tag = FALSE_TYPE; return r11574;} /* SOME-CALLER[11570] */ void f11570(unsigned a23975, unsigned a23976, unsigned a23977, struct w49 a23978) {char *sfp11571; struct p11572 *a23980; /* LOOP? */ struct p11570 *t62417; struct p11572 *t62418; struct w49 t62419; struct p11570 *t62420; struct p11572 *t62421; struct p11570 *t62422; struct w21193 t62423; struct w36108 t62424; struct w49 t62425; struct structure_type24753 *t62426; struct p11570 *e11570; struct p11572 *e11572; struct p11570 *p11571; struct p11570 *p11572; struct p11572 *p11573; e11570 = (struct p11570 *)alloca(sizeof(struct p11570)); if (e11570==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e11570->a23975 = a23975; e11570->a23976 = a23976; e11570->a23977 = a23977; /* x104372 */ /* x104371 stalin.sc:10411:360756 */ /* x104370 stalin.sc:10411:360792 */ t62423 = a1594; /* x104369 stalin.sc:10411:360766 */ t62422 = e11570; /* x104364 stalin.sc:10411:360757 */ t62424.tag = NATIVE_PROCEDURE_TYPE17478; t62424.value.native_procedure_type17478 = t62422; t62425 = *((struct w49 *)(&t62423)); t62426 = (struct structure_type24753 *)NULL_TYPE; f27755(t62424, t62425, t62426); /* x104363 */ t62417 = e11570; p11571 = t62417; sfp11571 = fp11571; /* x104362 stalin.sc:10412:360799 */ /* x104361 stalin.sc:10412:360814 */ t62419 = a23978; /* x104360 */ /* x104359 */ /* x104358 */ /* x104357 */ t62420 = p11571; p11572 = t62420; if ((fp11571+sizeof(struct p11572))>(&((region11571->data)[region_size11571]))) {struct region11571 *region; unsigned region_size = REGION_SIZE11571; if (sizeof(struct p11572)>region_size) region_size = sizeof(struct p11572); region = (struct region11571 *)GC_malloc_atomic_uncollectable(sizeof(struct region11571)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside SOME-CALLER 11571]"); out_of_memory_error();} region->region = region11571; region->region_size = region_size11571; region_size11571 = region_size; region11571 = region; fp11571 = &((region->data)[0]); ALIGN(fp11571);} e11572 = (struct p11572 *)fp11571; fp11571 += sizeof(struct p11572)+((4-(sizeof(struct p11572)%4))&3); e11572->p11570 = p11572; e11572->a23980 = a23980; /* x104356 */ /* x104355 */ /* x104354 */ e11572->a23980 = e11572; /* x104313 */ t62421 = e11572; p11573 = t62421; /* x104312 stalin.sc:10412:360804 */ t62418 = p11573->a23980; f11574(t62418, t62419); while ((sfp11571<(&((region11571->data)[0])))||(sfp11571>(&((region11571->data)[region_size11571])))) {struct region11571 *region; region = region11571; region_size11571 = region11571->region_size; region11571 = region11571->region; GC_free(region);} fp11571 = sfp11571; return;} /* [inside SOME-PROPER-CALLER 11568] */ void f11568(struct p11559 *p11568, struct w49 a23974) {unsigned t62427; struct w49 t62428; unsigned t62429; struct w16638 t62430; /* x104301 stalin.sc:10405:360545 */ /* x104299 stalin.sc:10405:360552 */ t62428 = a23974; /* x104300 stalin.sc:10405:360554 */ /* x104298 stalin.sc:10405:360546 */ t62427 = p11568->a23964; if (t62427==NATIVE_PROCEDURE_TYPE7306) {t62429 = FALSE_TYPE; f8477(t62428, t62429); return;} t62430.tag = FALSE_TYPE; f8472(t62428, t62430); return;} /* SOME-PROPER-CALLER[11559] */ struct w16638 f11559(struct p11619 *a23962, unsigned a23963, unsigned a23964, struct w49 a23965) {struct p11560 *a23966; /* LOOP? */ struct w16638 a23969; /* v */ struct w49 a36575; /* S */ struct w49 a36584; /* S */ struct p11559 *t62431; struct p11560 *t62432; struct p11560 *t62433; struct w16638 t62434; struct p11560 *t62435; struct w3457 t62436; struct w228345 t62437; struct w49 t62438; struct structure_type24753 *t62439; struct w49 t62440; struct w49 t62441; struct p11560 *t62442; struct w3457 t62443; struct w228345 t62444; struct w49 t62445; struct structure_type24753 *t62446; struct w49 t62447; struct w49 t62448; struct p11559 *t62449; struct w21193 t62450; struct w36108 t62451; struct w49 t62452; struct structure_type24753 *t62453; struct p11559 *e11559; struct p11560 *e11560; struct p11559 *p11560; struct p11560 *p11561; struct p11560 *p11562; e11559 = (struct p11559 *)alloca(sizeof(struct p11559)); if (e11559==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e11559->a23962 = a23962; e11559->a23963 = a23963; e11559->a23964 = a23964; /* x104309 */ /* x104308 */ /* x104307 */ /* x104306 */ t62431 = e11559; p11560 = t62431; e11560 = (struct p11560 *)alloca(sizeof(struct p11560)); if (e11560==NULL) {backtrace_internal("SOME-PROPER-CALLER[11559]"); out_of_memory_error();} e11560->p11559 = p11560; e11560->a23966 = a23966; /* x104305 */ /* x104296 */ /* x104295 */ e11560->a23966 = e11560; /* x104304 stalin.sc:10405:360523 */ /* x104303 stalin.sc:10405:360559 */ t62450 = a1594; /* x104302 stalin.sc:10405:360533 */ t62449 = p11560; /* x104297 stalin.sc:10405:360524 */ t62451.tag = NATIVE_PROCEDURE_TYPE15612; t62451.value.native_procedure_type15612 = t62449; t62452 = *((struct w49 *)(&t62450)); t62453 = (struct structure_type24753 *)NULL_TYPE; f27755(t62451, t62452, t62453); /* x104254 */ t62432 = e11560; p11561 = t62432; /* x104253 stalin.sc:10406:360566 */ /* x104252 stalin.sc:10406:360570 */ /* x104251 stalin.sc:10406:360582 */ /* x104250 stalin.sc:10406:360615 */ t62447 = a23965; /* x104249 stalin.sc:10406:360583 */ a36584 = t62447; /* x279005 */ /* x279004 */ t62448 = a36584; /* x279003 */ if (!((t62448.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLERS[6767] 31501]"); structure_ref_error();} t62443 = t62448.value.structure_type27694->s17; /* x104248 stalin.sc:10406:360576 */ t62442 = p11561->a23966; /* x104247 stalin.sc:10406:360571 */ t62444.tag = NATIVE_PROCEDURE_TYPE15615; t62444.value.native_procedure_type15615 = t62442; t62445 = *((struct w49 *)(&t62443)); t62446 = (struct structure_type24753 *)NULL_TYPE; t62434 = f1042(t62444, t62445, t62446); /* x104246 */ t62433 = p11561; p11562 = t62433; a23969 = t62434; /* x104245 */ /* x104237 */ if ((a23969.tag)==FALSE_TYPE) goto l9818; /* x104238 */ return a23969; l9818: /* x104244 */ /* x104243 stalin.sc:10407:360636 */ /* x104242 stalin.sc:10407:360673 */ t62440 = a23965; /* x104241 stalin.sc:10407:360637 */ a36575 = t62440; /* x278969 */ /* x278968 */ t62441 = a36575; /* x278967 */ if (!((t62441.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-NON-TAIL-CALLERS[6775] 31492]"); structure_ref_error();} t62436 = t62441.value.structure_type27694->s18; /* x104240 stalin.sc:10407:360630 */ t62435 = p11562->a23966; /* x104239 stalin.sc:10407:360625 */ t62437.tag = NATIVE_PROCEDURE_TYPE15615; t62437.value.native_procedure_type15615 = t62435; t62438 = *((struct w49 *)(&t62436)); t62439 = (struct structure_type24753 *)NULL_TYPE; return f1042(t62437, t62438, t62439);} /* [inside SOME-CALLEE 11558] */ void f11558(struct w49 a23961) {struct w49 t62454; struct w16638 t62455; /* x104230 stalin.sc:10388:359948 */ /* x104228 stalin.sc:10388:359955 */ t62454 = a23961; /* x104229 stalin.sc:10388:359957 */ /* x104227 stalin.sc:10388:359949 */ t62455.tag = FALSE_TYPE; f8472(t62454, t62455); return;} /* LOOP?[11552] */ struct w16638 f11552(struct w49 a23957) {struct w16638 r11552; struct w16638 a23960; /* v */ struct w49 a36549; /* S */ struct w49 a36559; /* S */ struct w49 t62456; struct w16638 t62457; struct w3457 t62458; struct w228345 t62459; struct w49 t62460; struct structure_type24753 *t62461; struct w49 t62462; struct w49 t62463; struct w3457 t62464; struct w228345 t62465; struct w49 t62466; struct structure_type24753 *t62467; struct w49 t62468; struct w49 t62469; struct w49 t62471; struct w16638 t62472; /* x104215 stalin.sc:10390:359990 */ /* x104180 stalin.sc:10390:359995 */ /* x104179 stalin.sc:10390:360000 */ /* x104178 stalin.sc:10390:360009 */ t62456 = a23957; /* x104177 stalin.sc:10390:360001 */ if (!(f8471(t62456)==FALSE_TYPE)) goto l9820; /* x104213 */ /* x104212 */ /* x104211 */ /* x104210 stalin.sc:10391:360027 */ /* x104208 stalin.sc:10391:360034 */ t62471 = a23957; /* x104209 stalin.sc:10391:360036 */ /* x104207 stalin.sc:10391:360028 */ t62472.tag = TRUE_TYPE; f8472(t62471, t62472); /* x104206 */ /* x104205 stalin.sc:10392:360047 */ /* x104204 stalin.sc:10392:360051 */ /* x104203 stalin.sc:10392:360055 */ /* x104202 stalin.sc:10392:360052 */ /* x104697 stalin.sc:10489:363633 */ /* x104201 */ /* x104200 */ /* x104181 */ /* x104199 */ /* x104198 stalin.sc:10393:360062 */ /* x104197 stalin.sc:10393:360074 */ /* x104196 stalin.sc:10393:360107 */ t62468 = a23957; /* x104195 stalin.sc:10393:360075 */ a36559 = t62468; /* x278905 */ /* x278904 */ t62469 = a36559; /* x278903 */ if (!((t62469.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLEES[6783] 31476]"); structure_ref_error();} t62464 = t62469.value.structure_type27694->s19; /* x104194 stalin.sc:10393:360068 */ /* x104193 stalin.sc:10393:360063 */ t62465.tag = NATIVE_PROCEDURE_TYPE23888; t62466 = *((struct w49 *)(&t62464)); t62467 = (struct structure_type24753 *)NULL_TYPE; t62457 = f1042(t62465, t62466, t62467); /* x104192 */ a23960 = t62457; /* x104191 */ /* x104183 */ if ((a23960.tag)==FALSE_TYPE) goto l9823; /* x104184 */ return a23960; l9823: /* x104190 */ /* x104189 stalin.sc:10394:360127 */ /* x104188 stalin.sc:10394:360164 */ t62462 = a23957; /* x104187 stalin.sc:10394:360128 */ a36549 = t62462; /* x278865 */ /* x278864 */ t62463 = a36549; /* x278863 */ if (!((t62463.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-NON-TAIL-CALLEES[6791] 31466]"); structure_ref_error();} t62458 = t62463.value.structure_type27694->s20; /* x104186 stalin.sc:10394:360121 */ /* x104185 stalin.sc:10394:360116 */ t62459.tag = NATIVE_PROCEDURE_TYPE23888; t62460 = *((struct w49 *)(&t62458)); t62461 = (struct structure_type24753 *)NULL_TYPE; return f1042(t62459, t62460, t62461); l9820: /* x104214 */ r11552.tag = FALSE_TYPE; return r11552;} /* [inside SOME-PROPER-CALLEE 11546] */ void f11546(struct p11537 *p11546, struct w49 a23949) {unsigned t62473; struct w49 t62474; unsigned t62475; struct w16638 t62476; /* x104163 stalin.sc:10382:359715 */ /* x104161 stalin.sc:10382:359722 */ t62474 = a23949; /* x104162 stalin.sc:10382:359724 */ /* x104160 stalin.sc:10382:359716 */ t62473 = p11546->a23939; if (t62473==NATIVE_PROCEDURE_TYPE7306) {t62475 = FALSE_TYPE; f8477(t62474, t62475); return;} t62476.tag = FALSE_TYPE; f8472(t62474, t62476); return;} /* SOME-PROPER-CALLEE[11537] */ void f11537(unsigned a23937, unsigned a23938, unsigned a23939, struct w49 a23940) {struct p11538 *a23941; /* LOOP? */ struct w16638 a23944; /* v */ struct w49 a36555; /* S */ struct w49 a36566; /* S */ struct p11537 *t62477; struct p11538 *t62478; struct p11538 *t62479; struct w16638 t62480; struct p11538 *t62481; struct w3457 t62482; struct w228345 t62483; struct w49 t62484; struct structure_type24753 *t62485; struct w49 t62486; struct w49 t62487; struct p11538 *t62488; struct w3457 t62489; struct w228345 t62490; struct w49 t62491; struct structure_type24753 *t62492; struct w49 t62493; struct w49 t62494; struct p11537 *t62495; struct w21193 t62496; struct w36108 t62497; struct w49 t62498; struct structure_type24753 *t62499; struct p11537 *e11537; struct p11538 *e11538; struct p11537 *p11538; struct p11538 *p11539; struct p11538 *p11540; e11537 = (struct p11537 *)alloca(sizeof(struct p11537)); if (e11537==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e11537->a23937 = a23937; e11537->a23938 = a23938; e11537->a23939 = a23939; /* x104171 */ /* x104170 */ /* x104169 */ /* x104168 */ t62477 = e11537; p11538 = t62477; e11538 = (struct p11538 *)alloca(sizeof(struct p11538)); if (e11538==NULL) {backtrace_internal("SOME-PROPER-CALLEE[11537]"); out_of_memory_error();} e11538->p11537 = p11538; e11538->a23941 = a23941; /* x104167 */ /* x104158 */ /* x104157 */ e11538->a23941 = e11538; /* x104166 stalin.sc:10382:359693 */ /* x104165 stalin.sc:10382:359729 */ t62496 = a1594; /* x104164 stalin.sc:10382:359703 */ t62495 = p11538; /* x104159 stalin.sc:10382:359694 */ t62497.tag = NATIVE_PROCEDURE_TYPE17900; t62497.value.native_procedure_type17900 = t62495; t62498 = *((struct w49 *)(&t62496)); t62499 = (struct structure_type24753 *)NULL_TYPE; f27755(t62497, t62498, t62499); /* x104116 */ t62478 = e11538; p11539 = t62478; /* x104115 stalin.sc:10383:359736 */ /* x104114 stalin.sc:10383:359740 */ /* x104113 stalin.sc:10383:359752 */ /* x104112 stalin.sc:10383:359785 */ t62493 = a23940; /* x104111 stalin.sc:10383:359753 */ a36566 = t62493; /* x278933 */ /* x278932 */ t62494 = a36566; /* x278931 */ if (!((t62494.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLEES[6783] 31483]"); structure_ref_error();} t62489 = t62494.value.structure_type27694->s19; /* x104110 stalin.sc:10383:359746 */ t62488 = p11539->a23941; /* x104109 stalin.sc:10383:359741 */ t62490.tag = NATIVE_PROCEDURE_TYPE17901; t62490.value.native_procedure_type17901 = t62488; t62491 = *((struct w49 *)(&t62489)); t62492 = (struct structure_type24753 *)NULL_TYPE; t62480 = f1042(t62490, t62491, t62492); /* x104108 */ t62479 = p11539; p11540 = t62479; a23944 = t62480; /* x104107 */ /* x104099 */ if ((a23944.tag)==FALSE_TYPE) goto l9825; /* x104100 */ return; l9825: /* x104106 */ /* x104105 stalin.sc:10384:359806 */ /* x104104 stalin.sc:10384:359843 */ t62486 = a23940; /* x104103 stalin.sc:10384:359807 */ a36555 = t62486; /* x278889 */ /* x278888 */ t62487 = a36555; /* x278887 */ if (!((t62487.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-NON-TAIL-CALLEES[6791] 31472]"); structure_ref_error();} t62482 = t62487.value.structure_type27694->s20; /* x104102 stalin.sc:10384:359800 */ t62481 = p11540->a23941; /* x104101 stalin.sc:10384:359795 */ t62483.tag = NATIVE_PROCEDURE_TYPE17901; t62483.value.native_procedure_type17901 = t62481; t62484 = *((struct w49 *)(&t62482)); t62485 = (struct structure_type24753 *)NULL_TYPE; f1042(t62483, t62484, t62485); return;} /* [inside LOOP 11515] */ void f11515(struct p11499 *p11515, struct w49 a23917) {struct w49 a38018; /* S */ struct w49 t62500; struct w9140 t62501; struct w49 t62502; struct w12224 t62503; struct w49 t62504; struct w49 t62505; struct w49 t62506; struct w49 t62507; /* x103858 */ /* x103843 stalin.sc:10326:357905 */ /* x103811 stalin.sc:10326:357911 */ /* x103842 stalin.sc:10326:357905 */ /* x103841 stalin.sc:10326:357905 */ /* x103845 stalin.sc:10333:358174 */ /* x103844 stalin.sc:10333:358196 */ a2040 = FALSE_TYPE; /* x103857 stalin.sc:10334:358205 */ /* x103853 stalin.sc:10334:358215 */ /* x103848 stalin.sc:10335:358230 */ /* x103849 stalin.sc:10336:358255 */ t62502 = a23917; /* x103852 stalin.sc:10337:358266 */ /* x103851 stalin.sc:10337:358317 */ t62505 = p11515->a23900; /* x103850 stalin.sc:10337:358267 */ a38018 = t62505; /* x284741 */ /* x284740 */ t62506 = a38018; /* x284739 */ if (!((t62506.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-CALL-SITE-ENVIRONMENT-ALIST[5945] 32935]"); structure_ref_error();} t62503 = t62506.value.structure_type27756->s0; /* x103847 stalin.sc:10334:358216 */ t62504 = *((struct w49 *)(&t62503)); t62500 = f1182(t62502, t62504); /* x103856 stalin.sc:10338:358329 */ /* x103855 stalin.sc:10338:358336 */ t62507 = p11515->p11498->a23899; /* x103854 stalin.sc:10338:358330 */ t62501 = f9362(t62507); /* x269513 stalin.sc:10334:358206 */ if (!((t62500.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 10334, 358205); structure_set_error();} t62500.value.structure_type24753->s1 = *((struct w49 *)(&t62501)); /* x103810 */ /* x103809 stalin.sc:10339:358345 */ /* x103808 stalin.sc:10339:358367 */ a2040 = TRUE_TYPE; return;} /* [inside LOOP 11498] */ void f11498(struct w49 a23899) {struct w49 a22417; /* E */ struct w49 a23900; /* U */ struct w12224 a23922; /* YS */ struct w21691 a35514; /* PAIR */ struct w49 a36683; /* S */ struct p11498 *t62508; struct w49 t62509; int t62510; int t62511; struct w30215 t62512; int t62513; struct w49 t62514; struct w6852 t62515; struct w49 t62516; struct structure_type24753 *t62517; struct w49 t62518; struct w49 t62519; struct w49 t62520; struct p11498 *t62521; struct structure_type24753 *t62522; struct w228345 t62523; struct w49 t62524; struct structure_type24753 *t62525; struct w49 t62526; struct p11498 *t62527; struct w49 t62528; char *t62529; char *t62530; struct p11499 *t62531; struct w49 t62532; char *t62533; struct p11499 *t62534; struct w49 t62535; struct w36108 t62536; struct w49 t62537; struct structure_type24753 *t62538; struct w12224 t62539; struct w12224 t62540; struct w21691 t62541; struct w21691 t62542; struct p11499 *t62543; struct structure_type24753 *t62544; struct w227671 t62545; struct w49 t62546; struct w49 t62547; struct w49 t62548; struct p11498 *e11498; struct p11499 *e11499; struct p11498 *p11499; struct p11498 *p11501; struct p11498 *p11502; struct p11498 *p11503; struct p11499 *p11511; struct p11498 *p11522; e11498 = (struct p11498 *)alloca(sizeof(struct p11498)); if (e11498==NULL) {backtrace("stalin.sc", 10272, 355857); out_of_memory_error();} e11498->a23899 = a23899; /* x103923 stalin.sc:10273:355876 */ /* x103922 stalin.sc:10273:355885 */ /* x103921 stalin.sc:10273:355903 */ t62548 = e11498->a23899; /* x103920 stalin.sc:10273:355886 */ t62509 = f8691(t62548); /* x103919 */ t62508 = e11498; p11499 = t62508; a23900 = t62509; e11499 = (struct p11499 *)alloca(sizeof(struct p11499)); if (e11499==NULL) {backtrace_internal("[inside LOOP 11498]"); out_of_memory_error();} e11499->p11498 = p11499; e11499->a23900 = a23900; /* x103918 */ /* x103917 stalin.sc:10274:355909 */ /* x103784 stalin.sc:10275:355918 */ /* x103669 stalin.sc:10276:355927 */ /* x103668 stalin.sc:10276:355931 */ /* x103666 stalin.sc:10276:355934 */ t62510 = a712; /* x103667 stalin.sc:10276:355953 */ t62511 = -1; /* x269516 stalin.sc:10276:355932 */ if (t62510==t62511) goto l9830; p11501 = p11499; /* x103662 */ /* x103660 stalin.sc:10277:355969 */ /* x103659 stalin.sc:10277:355981 */ t62514 = p11501->a23899; /* x103658 stalin.sc:10277:355970 */ a22417 = t62514; /* x77994 stalin.sc:5129:175342 */ /* x77992 stalin.sc:5129:175356 */ /* x77991 stalin.sc:5129:175380 */ t62518 = a22417; /* x77990 stalin.sc:5129:175357 */ a36683 = t62518; /* x279401 */ /* x279400 */ t62519 = a36683; /* x279399 */ if (!((t62519.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31600]"); structure_ref_error();} t62515 = t62519.value.structure_type27694->s1; /* x77993 stalin.sc:5129:175388 */ /* x77989 */ /* x77988 */ /* x77987 */ /* x77986 */ /* x77985 */ /* x77984 */ /* x77983 */ /* x77700 */ /* x77699 stalin.sc:5129:175347 */ t62516 = *((struct w49 *)(&t62515)); t62517 = (struct structure_type24753 *)NULL_TYPE; t62512 = f9146(t62516, t62517); /* x103661 stalin.sc:10277:355984 */ t62513 = a712; /* x269517 stalin.sc:10277:355966 */ if ((t62512.tag)==FIXNUM_TYPE) {if (!((t62512.value.fixnum_type)<=t62513)) goto l9828;} else if (!((t62512.value.flonum_type)<=t62513)) goto l9828; l9830: /* x103782 */ /* x103781 stalin.sc:10290:356680 */ if (!(a711==FALSE_TYPE)) goto l9827; p11502 = p11499; /* x103778 */ /* x103777 stalin.sc:10293:356806 */ /* x103776 stalin.sc:10293:356813 */ t62520 = p11502->a23899; /* x103775 stalin.sc:10293:356807 */ if (!(f8931(t62520)==FALSE_TYPE)) goto l9827; p11503 = p11502; /* x103772 */ /* x103771 stalin.sc:10319:357718 */ /* x103770 stalin.sc:10319:357730 */ t62526 = p11503->a23899; /* x103769 stalin.sc:10319:357719 */ t62522 = f8615(t62526); /* x103768 stalin.sc:10297:356962 */ t62521 = p11503; /* x103674 stalin.sc:10296:356951 */ t62523.tag = NATIVE_PROCEDURE_TYPE19457; t62523.value.native_procedure_type19457 = t62521; /* MOVE: branching squeezed to general */ if (t62522>=((struct structure_type24753 *)VALUE_OFFSET)) {t62524.tag = STRUCTURE_TYPE24753; t62524.value.structure_type24753 = t62522;} else t62524.tag = (unsigned)t62522; t62525 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t62523, t62524, t62525).tag)==FALSE_TYPE) goto l9828; l9827: /* x103910 */ /* x103909 */ t62531 = e11499; p11511 = t62531; /* x103908 */ /* x103802 stalin.sc:10320:357739 */ /* x103788 stalin.sc:10320:357745 */ /* x103801 stalin.sc:10320:357739 */ /* x103800 stalin.sc:10320:357739 */ /* x103806 stalin.sc:10323:357841 */ /* x103804 stalin.sc:10323:357865 */ t62532 = p11511->p11498->a23899; /* x103805 stalin.sc:10323:357867 */ /* x103803 stalin.sc:10323:357842 */ t62533 = (char *)TRUE_TYPE; f6656(t62532, t62533); /* x103907 stalin.sc:10324:357874 */ /* x103906 stalin.sc:10340:358376 */ /* x103905 stalin.sc:10341:358390 */ /* x103901 stalin.sc:10342:358410 */ t62543 = p11511; /* x103904 stalin.sc:10354:358881 */ /* x103903 stalin.sc:10354:358893 */ t62547 = p11511->p11498->a23899; /* x103902 stalin.sc:10354:358882 */ t62544 = f8615(t62547); /* x103869 stalin.sc:10341:358391 */ t62545.tag = NATIVE_PROCEDURE_TYPE19459; t62545.value.native_procedure_type19459 = t62543; /* MOVE: branching squeezed to general */ if (t62544>=((struct structure_type24753 *)VALUE_OFFSET)) {t62546.tag = STRUCTURE_TYPE24753; t62546.value.structure_type24753 = t62544;} else t62546.tag = (unsigned)t62544; t62539 = f1226(t62545, t62546); /* x103868 */ a23922 = t62539; /* x103867 stalin.sc:10356:358972 */ /* x103862 stalin.sc:10356:358976 */ /* x103861 stalin.sc:10356:358983 */ t62540 = a23922; /* x269512 stalin.sc:10356:358977 */ if (!((t62540.tag)==NULL_TYPE)) goto l9836; /* x103863 stalin.sc:10356:358987 */ t62535 = *((struct w49 *)(&a23922)); goto l9837; l9836: /* x103866 stalin.sc:10356:358990 */ /* x103865 stalin.sc:10356:358996 */ t62541 = *((struct w21691 *)(&a23922)); /* x103864 stalin.sc:10356:358991 */ a35514 = t62541; /* x273413 */ /* x273412 */ t62542 = a35514; /* x273411 */ if (!((t62542.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29663]"); structure_ref_error();} t62535 = t62542.value.structure_type24753->s1; l9837: /* x103859 */ t62534 = p11511; /* x103807 stalin.sc:10324:357875 */ t62536.tag = NATIVE_PROCEDURE_TYPE19575; t62536.value.native_procedure_type19575 = t62534; t62537 = t62535; t62538 = (struct structure_type24753 *)NULL_TYPE; f27755(t62536, t62537, t62538); /* x103787 */ /* x103786 stalin.sc:10357:359006 */ /* x103785 stalin.sc:10357:359019 */ a23891 = TRUE_TYPE; goto l9829; l9828: /* x103916 */ /* x103915 */ t62527 = p11499; p11522 = t62527; /* x103914 stalin.sc:10358:359032 */ /* x103912 stalin.sc:10358:359056 */ t62528 = p11522->a23899; /* x103913 stalin.sc:10358:359058 */ t62529 = q185; /* x103911 stalin.sc:10358:359033 */ t62530 = t62529; f6656(t62528, t62530); l9829: /* x103654 */ /* x103653 stalin.sc:10359:359069 */ /* x103652 stalin.sc:10359:359082 */ a23895 = TRUE_TYPE; return;} /* SPLITTABLE-CALL-SITE-COUNT[11483] */ int f11483(struct w49 a23889) {struct p11483 *t62549; struct structure_type24753 *t62550; struct p11483 *t62551; struct w21193 t62552; struct w49 t62553; struct p11483 *e11483; e11483 = (struct p11483 *)alloca(sizeof(struct p11483)); if (e11483==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e11483->a23889 = a23889; /* x103635 stalin.sc:10210:353715 */ /* x103631 stalin.sc:10211:353727 */ t62549 = e11483; /* x103634 stalin.sc:10221:354175 */ /* x103633 stalin.sc:10221:354187 */ t62553 = e11483->a23889; /* x103632 stalin.sc:10221:354176 */ t62550 = f8615(t62553); /* x103597 stalin.sc:10210:353716 */ t62551 = t62549; /* MOVE: branching squeezed to general */ if (t62550>=((struct structure_type24753 *)VALUE_OFFSET)) {t62552.tag = STRUCTURE_TYPE24753; t62552.value.structure_type24753 = t62550;} else t62552.tag = (unsigned)t62550; return f1362(t62551, t62552);} /* [inside CHECK-FOR-CORRUPTION 11463] */ void f11463(struct w49 a23886) {struct w49 t62554; char *t62555; /* x103456 */ /* x103455 stalin.sc:10085:349193 */ /* x103448 stalin.sc:10085:349201 */ /* x103447 stalin.sc:10085:349211 */ t62554 = a23886; /* x103446 stalin.sc:10085:349202 */ if (f6961(t62554)==FALSE_TYPE) goto l9840; /* x103450 */ /* x103449 */ goto l9841; l9840: /* x103454 */ /* x103453 */ /* x103452 stalin.sc:10085:349214 */ /* x103451 stalin.sc:10085:349215 */ /* x296565 QobiScheme.sc:166:5314 */ /* x296564 QobiScheme.sc:166:5321 */ t62555 = "This shouldn\'t happen"; /* x296563 QobiScheme.sc:166:5315 */ stalin_panic(t62555); l9841: /* x103445 */ /* x103444 stalin.sc:10086:349228 */ /* x103437 stalin.sc:10086:349234 */ /* x103429 stalin.sc:10086:349239 */ /* x103443 stalin.sc:10086:349228 */ /* x103442 stalin.sc:10086:349228 */ return;} /* [inside CHECK-FOR-CORRUPTION 11457] */ void f11457(struct w49 a23884) {struct w49 t62556; char *t62557; /* x103422 */ /* x103421 stalin.sc:10081:349056 */ /* x103414 stalin.sc:10081:349064 */ /* x103413 stalin.sc:10081:349074 */ t62556 = a23884; /* x103412 stalin.sc:10081:349065 */ if (f6961(t62556)==FALSE_TYPE) goto l9844; /* x103416 */ /* x103415 */ goto l9845; l9844: /* x103420 */ /* x103419 */ /* x103418 stalin.sc:10081:349077 */ /* x103417 stalin.sc:10081:349078 */ /* x296657 QobiScheme.sc:166:5314 */ /* x296656 QobiScheme.sc:166:5321 */ t62557 = "This shouldn\'t happen"; /* x296655 QobiScheme.sc:166:5315 */ stalin_panic(t62557); l9845: /* x103411 */ /* x103410 stalin.sc:10082:349091 */ /* x103403 stalin.sc:10082:349097 */ /* x103395 stalin.sc:10082:349102 */ /* x103409 stalin.sc:10082:349091 */ /* x103408 stalin.sc:10082:349091 */ return;} /* [inside CHECK-FOR-CORRUPTION 11443] */ void f11443(struct w49 a23882) {struct w49 t62558; char *t62559; /* x103303 */ /* x103302 stalin.sc:10089:349333 */ /* x103295 stalin.sc:10089:349341 */ /* x103294 stalin.sc:10089:349351 */ t62558 = a23882; /* x103293 stalin.sc:10089:349342 */ if (f6961(t62558)==FALSE_TYPE) goto l9848; /* x103297 */ /* x103296 */ goto l9849; l9848: /* x103301 */ /* x103300 */ /* x103299 stalin.sc:10089:349354 */ /* x103298 stalin.sc:10089:349355 */ /* x296569 QobiScheme.sc:166:5314 */ /* x296568 QobiScheme.sc:166:5321 */ t62559 = "This shouldn\'t happen"; /* x296567 QobiScheme.sc:166:5315 */ stalin_panic(t62559); l9849: /* x103292 */ /* x103291 stalin.sc:10090:349368 */ /* x103284 stalin.sc:10090:349374 */ /* x103276 stalin.sc:10090:349379 */ /* x103290 stalin.sc:10090:349368 */ /* x103289 stalin.sc:10090:349368 */ return;} /* [inside CHECK-FOR-CORRUPTION 11441] */ void f11441(struct w49 a23875) {struct w49 a36872; /* S */ struct w12224 t62560; struct w36108 t62561; struct w49 t62562; struct structure_type24753 *t62563; struct w49 t62564; struct w49 t62565; char *t62566; struct w49 t62567; struct w49 t62568; struct w49 t62569; struct w49 t62570; char *t62571; struct w12224 t62572; struct w36108 t62573; struct w49 t62574; struct structure_type24753 *t62575; struct w49 t62576; struct w12224 t62577; struct w36108 t62578; struct w49 t62579; struct structure_type24753 *t62580; struct w49 t62581; /* x103462 */ /* x103324 stalin.sc:10068:348638 */ /* x103317 stalin.sc:10068:348644 */ /* x103310 stalin.sc:10068:348649 */ /* x103315 */ /* x103314 stalin.sc:10068:348657 */ /* x103313 stalin.sc:10068:348673 */ t62565 = a23875; /* x103312 stalin.sc:10068:348658 */ if (!((f8224(t62565).tag)==FALSE_TYPE)) goto l9851; /* x103321 */ /* x103320 */ /* x103319 stalin.sc:10068:348678 */ /* x103318 stalin.sc:10068:348679 */ /* x296701 QobiScheme.sc:166:5314 */ /* x296700 QobiScheme.sc:166:5321 */ t62566 = "This shouldn\'t happen"; /* x296699 QobiScheme.sc:166:5315 */ stalin_panic(t62566); goto l9852; l9851: /* x103323 stalin.sc:10068:348638 */ /* x103322 stalin.sc:10068:348638 */ l9852: /* x103351 stalin.sc:10069:348695 */ /* x103344 stalin.sc:10069:348701 */ /* x103325 stalin.sc:10069:348706 */ /* x103350 stalin.sc:10069:348695 */ /* x103349 stalin.sc:10069:348695 */ /* x103370 stalin.sc:10073:348823 */ /* x103363 stalin.sc:10073:348829 */ /* x103354 stalin.sc:10073:348834 */ /* x103353 stalin.sc:10073:348850 */ t62567 = a23875; /* x103352 stalin.sc:10073:348835 */ if ((f8224(t62567).tag)==FALSE_TYPE) goto l9856; /* x103361 */ /* x103360 stalin.sc:10074:348861 */ /* x103359 stalin.sc:10074:348877 */ /* x103358 stalin.sc:10074:348896 */ t62569 = a23875; /* x103357 stalin.sc:10074:348878 */ a36872 = t62569; /* x280157 */ /* x280156 */ t62570 = a36872; /* x280155 */ if (!((t62570.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31789]"); structure_ref_error();} t62568 = t62570.value.structure_type27692->s9; /* x103356 stalin.sc:10074:348862 */ if (!(f8117(t62568)==FALSE_TYPE)) goto l9856; /* x103367 */ /* x103366 */ /* x103365 stalin.sc:10075:348909 */ /* x103364 stalin.sc:10075:348910 */ /* x296705 QobiScheme.sc:166:5314 */ /* x296704 QobiScheme.sc:166:5321 */ t62571 = "This shouldn\'t happen"; /* x296703 QobiScheme.sc:166:5315 */ stalin_panic(t62571); goto l9857; l9856: /* x103369 stalin.sc:10073:348823 */ /* x103368 stalin.sc:10073:348823 */ l9857: /* x103393 stalin.sc:10076:348926 */ /* x103386 stalin.sc:10076:348932 */ /* x103371 stalin.sc:10076:348937 */ /* x103392 stalin.sc:10076:348926 */ /* x103391 stalin.sc:10076:348926 */ /* x103427 stalin.sc:10080:349031 */ /* x103426 stalin.sc:10083:349148 */ /* x103425 stalin.sc:10083:349158 */ t62576 = a23875; /* x103424 stalin.sc:10083:349149 */ t62572 = f8243(t62576); /* x103423 */ /* x103394 stalin.sc:10080:349032 */ t62573.tag = NATIVE_PROCEDURE_TYPE15402; t62574 = *((struct w49 *)(&t62572)); t62575 = (struct structure_type24753 *)NULL_TYPE; f27755(t62573, t62574, t62575); /* x103461 stalin.sc:10084:349168 */ /* x103460 stalin.sc:10087:349285 */ /* x103459 stalin.sc:10087:349298 */ t62581 = a23875; /* x103458 stalin.sc:10087:349286 */ t62577 = f8244(t62581); /* x103457 */ /* x103428 stalin.sc:10084:349169 */ t62578.tag = NATIVE_PROCEDURE_TYPE15401; t62579 = *((struct w49 *)(&t62577)); t62580 = (struct structure_type24753 *)NULL_TYPE; f27755(t62578, t62579, t62580); /* x103309 */ /* x103308 stalin.sc:10088:349308 */ /* x103307 stalin.sc:10091:349425 */ /* x103306 stalin.sc:10091:349437 */ t62564 = a23875; /* x103305 stalin.sc:10091:349426 */ t62560 = f8245(t62564); /* x103304 */ /* x103275 stalin.sc:10088:349309 */ t62561.tag = NATIVE_PROCEDURE_TYPE18371; t62562 = *((struct w49 *)(&t62560)); t62563 = (struct structure_type24753 *)NULL_TYPE; f27755(t62561, t62562, t62563); return;} /* [inside CHECK-FOR-CORRUPTION 11415] */ void f11415(struct w49 a23863) {struct w49 a37110; /* S */ struct w49 a37111; /* S */ struct w49 a37128; /* S */ struct w49 a37134; /* S */ struct w49 a37141; /* S */ struct w49 a37142; /* S */ struct w49 a37143; /* S */ struct w49 a37144; /* S */ struct w49 a37440; /* OBJ */ struct w49 a37553; /* OBJ */ struct w49 a37696; /* OBJ */ struct w49 a40450; /* OBJ */ struct w49 t62582; struct w211045 t62583; struct w49 t62584; struct w49 t62585; struct w49 t62586; struct w49 t62587; struct w49 t62588; struct w49 t62589; struct w49 t62590; char *t62591; struct w49 t62592; struct w49 t62593; struct w49 t62594; struct w49 t62595; struct w49 t62596; struct w49 t62597; struct w49 t62598; char *t62599; struct w49 t62600; struct w49 t62601; struct w49 t62602; struct w49 t62603; struct w49 t62604; struct w49 t62605; struct w49 t62606; char *t62607; struct w49 t62608; struct w49 t62609; struct w49 t62610; struct w49 t62611; struct w49 t62612; struct w49 t62613; struct w49 t62614; char *t62615; /* x103270 */ /* x103081 stalin.sc:10029:347240 */ /* x103074 stalin.sc:10029:347246 */ /* x103065 stalin.sc:10029:347251 */ /* x103064 stalin.sc:10029:347264 */ /* x103063 stalin.sc:10029:347283 */ t62586 = a23863; /* x103062 stalin.sc:10029:347265 */ a37141 = t62586; /* x281233 */ /* x281232 */ t62587 = a37141; /* x281231 */ if (!((t62587.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32058]"); structure_ref_error();} t62584 = t62587.value.structure_type27650->s0; /* x103061 stalin.sc:10029:347252 */ a40450 = t62584; /* x294469 */ /* x294468 */ t62585 = a40450; /* x294467 */ if (!((t62585.tag)==STRUCTURE_TYPE27698)) goto l9861; /* x103072 */ /* x103071 stalin.sc:10030:347300 */ /* x103070 stalin.sc:10030:347310 */ /* x103069 stalin.sc:10030:347329 */ t62589 = a23863; /* x103068 stalin.sc:10030:347311 */ a37128 = t62589; /* x281181 */ /* x281180 */ t62590 = a37128; /* x281179 */ if (!((t62590.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32045]"); structure_ref_error();} t62588 = t62590.value.structure_type27650->s0; /* x103067 stalin.sc:10030:347301 */ if (!(f6961(t62588)==FALSE_TYPE)) goto l9861; /* x103078 */ /* x103077 */ /* x103076 stalin.sc:10031:347340 */ /* x103075 stalin.sc:10031:347341 */ /* x297005 QobiScheme.sc:166:5314 */ /* x297004 QobiScheme.sc:166:5321 */ t62591 = "This shouldn\'t happen"; /* x297003 QobiScheme.sc:166:5315 */ stalin_panic(t62591); goto l9862; l9861: /* x103080 stalin.sc:10029:347240 */ /* x103079 stalin.sc:10029:347240 */ l9862: /* x103106 stalin.sc:10032:347355 */ /* x103099 stalin.sc:10032:347361 */ /* x103082 stalin.sc:10032:347366 */ /* x103105 stalin.sc:10032:347355 */ /* x103104 stalin.sc:10032:347355 */ /* x103131 stalin.sc:10036:347483 */ /* x103124 stalin.sc:10036:347489 */ /* x103107 stalin.sc:10036:347494 */ /* x103130 stalin.sc:10036:347483 */ /* x103129 stalin.sc:10036:347483 */ /* x103152 stalin.sc:10040:347609 */ /* x103145 stalin.sc:10040:347615 */ /* x103136 stalin.sc:10040:347620 */ /* x103135 stalin.sc:10040:347637 */ /* x103134 stalin.sc:10040:347656 */ t62594 = a23863; /* x103133 stalin.sc:10040:347638 */ a37142 = t62594; /* x281237 */ /* x281236 */ t62595 = a37142; /* x281235 */ if (!((t62595.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32059]"); structure_ref_error();} t62592 = t62595.value.structure_type27650->s0; /* x103132 stalin.sc:10040:347621 */ a37696 = t62592; /* x283453 */ /* x283452 */ t62593 = a37696; /* x283451 */ if (!((t62593.tag)==STRUCTURE_TYPE27769)) goto l9867; /* x103143 */ /* x103142 stalin.sc:10041:347673 */ /* x103141 stalin.sc:10041:347685 */ /* x103140 stalin.sc:10041:347704 */ t62597 = a23863; /* x103139 stalin.sc:10041:347686 */ a37111 = t62597; /* x281113 */ /* x281112 */ t62598 = a37111; /* x281111 */ if (!((t62598.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32028]"); structure_ref_error();} t62596 = t62598.value.structure_type27650->s0; /* x103138 stalin.sc:10041:347674 */ if (!(f7849(t62596)==FALSE_TYPE)) goto l9867; /* x103149 */ /* x103148 */ /* x103147 stalin.sc:10042:347715 */ /* x103146 stalin.sc:10042:347716 */ /* x295421 QobiScheme.sc:166:5314 */ /* x295420 QobiScheme.sc:166:5321 */ t62599 = "This shouldn\'t happen"; /* x295419 QobiScheme.sc:166:5315 */ stalin_panic(t62599); goto l9868; l9867: /* x103151 stalin.sc:10040:347609 */ /* x103150 stalin.sc:10040:347609 */ l9868: /* x103177 stalin.sc:10043:347730 */ /* x103170 stalin.sc:10043:347736 */ /* x103153 stalin.sc:10043:347741 */ /* x103176 stalin.sc:10043:347730 */ /* x103175 stalin.sc:10043:347730 */ /* x103198 stalin.sc:10047:347875 */ /* x103191 stalin.sc:10047:347881 */ /* x103182 stalin.sc:10047:347886 */ /* x103181 stalin.sc:10047:347907 */ /* x103180 stalin.sc:10047:347926 */ t62602 = a23863; /* x103179 stalin.sc:10047:347908 */ a37143 = t62602; /* x281241 */ /* x281240 */ t62603 = a37143; /* x281239 */ if (!((t62603.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32060]"); structure_ref_error();} t62600 = t62603.value.structure_type27650->s0; /* x103178 stalin.sc:10047:347887 */ a37553 = t62600; /* x282881 */ /* x282880 */ t62601 = a37553; /* x282879 */ if (!((t62601.tag)==STRUCTURE_TYPE27761)) goto l9872; /* x103189 */ /* x103188 stalin.sc:10048:347943 */ /* x103187 stalin.sc:10048:347955 */ /* x103186 stalin.sc:10048:347974 */ t62605 = a23863; /* x103185 stalin.sc:10048:347956 */ a37110 = t62605; /* x281109 */ /* x281108 */ t62606 = a37110; /* x281107 */ if (!((t62606.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32027]"); structure_ref_error();} t62604 = t62606.value.structure_type27650->s0; /* x103184 stalin.sc:10048:347944 */ if (!(f7849(t62604)==FALSE_TYPE)) goto l9872; /* x103195 */ /* x103194 */ /* x103193 stalin.sc:10049:347985 */ /* x103192 stalin.sc:10049:347986 */ /* x295317 QobiScheme.sc:166:5314 */ /* x295316 QobiScheme.sc:166:5321 */ t62607 = "This shouldn\'t happen"; /* x295315 QobiScheme.sc:166:5315 */ stalin_panic(t62607); goto l9873; l9872: /* x103197 stalin.sc:10047:347875 */ /* x103196 stalin.sc:10047:347875 */ l9873: /* x103223 stalin.sc:10050:348000 */ /* x103216 stalin.sc:10050:348006 */ /* x103199 stalin.sc:10050:348011 */ /* x103222 stalin.sc:10050:348000 */ /* x103221 stalin.sc:10050:348000 */ /* x103244 stalin.sc:10054:348153 */ /* x103237 stalin.sc:10054:348159 */ /* x103228 stalin.sc:10054:348164 */ /* x103227 stalin.sc:10054:348188 */ /* x103226 stalin.sc:10054:348207 */ t62610 = a23863; /* x103225 stalin.sc:10054:348189 */ a37144 = t62610; /* x281245 */ /* x281244 */ t62611 = a37144; /* x281243 */ if (!((t62611.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32061]"); structure_ref_error();} t62608 = t62611.value.structure_type27650->s0; /* x103224 stalin.sc:10054:348165 */ a37440 = t62608; /* x282429 */ /* x282428 */ t62609 = a37440; /* x282427 */ if (!((t62609.tag)==STRUCTURE_TYPE27669)) goto l9877; /* x103235 */ /* x103234 stalin.sc:10055:348224 */ /* x103233 stalin.sc:10055:348236 */ /* x103232 stalin.sc:10055:348255 */ t62613 = a23863; /* x103231 stalin.sc:10055:348237 */ a37134 = t62613; /* x281205 */ /* x281204 */ t62614 = a37134; /* x281203 */ if (!((t62614.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32051]"); structure_ref_error();} t62612 = t62614.value.structure_type27650->s0; /* x103230 stalin.sc:10055:348225 */ if (!(f7849(t62612)==FALSE_TYPE)) goto l9877; /* x103241 */ /* x103240 */ /* x103239 stalin.sc:10056:348266 */ /* x103238 stalin.sc:10056:348267 */ /* x297093 QobiScheme.sc:166:5314 */ /* x297092 QobiScheme.sc:166:5321 */ t62615 = "This shouldn\'t happen"; /* x297091 QobiScheme.sc:166:5315 */ stalin_panic(t62615); goto l9878; l9877: /* x103243 stalin.sc:10054:348153 */ /* x103242 stalin.sc:10054:348153 */ l9878: /* x103269 stalin.sc:10057:348281 */ /* x103262 stalin.sc:10057:348287 */ /* x103245 stalin.sc:10057:348292 */ /* x103268 stalin.sc:10057:348281 */ /* x103267 stalin.sc:10057:348281 */ /* x103060 */ /* x103059 stalin.sc:10062:348461 */ /* x103057 */ /* x103058 stalin.sc:10065:348595 */ t62582 = a23863; /* x103029 stalin.sc:10062:348462 */ t62583.tag = NATIVE_PROCEDURE_TYPE16630; f8173(t62583, t62582); return;} /* [inside CHECK-FOR-CORRUPTION 11409] */ void f11409(struct w49 a23861) {struct w49 a37312; /* S */ struct w49 t62616; struct w49 t62617; struct w49 t62618; char *t62619; /* x103024 */ /* x103023 stalin.sc:10019:346950 */ /* x103016 stalin.sc:10019:346958 */ /* x103015 stalin.sc:10019:346970 */ /* x103014 stalin.sc:10019:347015 */ t62617 = a23861; /* x103013 stalin.sc:10019:346971 */ a37312 = t62617; /* x281917 */ /* x281916 */ t62618 = a37312; /* x281915 */ if (!((t62618.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-DISPLACED-VECTOR-TYPE[6375] 32229]"); structure_ref_error();} t62616 = t62618.value.structure_type27908->s0; /* x103012 stalin.sc:10019:346959 */ if (f7849(t62616)==FALSE_TYPE) goto l9883; /* x103018 */ /* x103017 */ goto l9884; l9883: /* x103022 */ /* x103021 */ /* x103020 stalin.sc:10020:347024 */ /* x103019 stalin.sc:10020:347025 */ /* x13680 QobiScheme.sc:166:5314 */ /* x13679 QobiScheme.sc:166:5321 */ t62619 = "This shouldn\'t happen"; /* x270985 QobiScheme.sc:166:5315 */ stalin_panic(t62619); l9884: /* x103011 */ /* x103010 stalin.sc:10022:347073 */ /* x103003 stalin.sc:10022:347079 */ /* x102994 stalin.sc:10023:347088 */ /* x103009 stalin.sc:10022:347073 */ /* x103008 stalin.sc:10022:347073 */ return;} /* [inside CHECK-FOR-CORRUPTION 11399] */ void f11399(struct w49 a23859) {struct w49 a40446; /* OBJ */ struct w49 t62620; struct w49 t62621; struct w49 t62622; char *t62623; /* x102952 */ /* x102951 stalin.sc:10013:346706 */ /* x102944 stalin.sc:10013:346712 */ /* x102937 stalin.sc:10013:346717 */ /* x102936 stalin.sc:10013:346730 */ t62620 = a23859; /* x102935 stalin.sc:10013:346718 */ a40446 = t62620; /* x294453 */ /* x294452 */ t62621 = a40446; /* x294451 */ if (!((t62621.tag)==STRUCTURE_TYPE27698)) goto l9887; /* x102942 */ /* x102941 stalin.sc:10013:346738 */ /* x102940 stalin.sc:10013:346748 */ t62622 = a23859; /* x102939 stalin.sc:10013:346739 */ if (!(f6961(t62622)==FALSE_TYPE)) goto l9887; /* x102948 */ /* x102947 */ /* x102946 stalin.sc:10013:346753 */ /* x102945 stalin.sc:10013:346754 */ /* x297001 QobiScheme.sc:166:5314 */ /* x297000 QobiScheme.sc:166:5321 */ t62623 = "This shouldn\'t happen"; /* x296999 QobiScheme.sc:166:5315 */ stalin_panic(t62623); goto l9888; l9887: /* x102950 stalin.sc:10013:346706 */ /* x102949 stalin.sc:10013:346706 */ l9888: /* x102934 */ /* x102933 stalin.sc:10014:346770 */ /* x102926 stalin.sc:10014:346776 */ /* x102913 stalin.sc:10014:346781 */ /* x102932 stalin.sc:10014:346770 */ /* x102931 stalin.sc:10014:346770 */ return;} /* [inside CHECK-FOR-CORRUPTION 11397] */ void f11397(struct w49 a23856) {struct w49 a37386; /* S */ struct w49 a37404; /* S */ struct w49 t62624; struct w36108 t62625; struct w49 t62626; struct structure_type24753 *t62627; struct w49 t62628; struct w49 t62629; struct w49 t62630; struct w49 t62631; struct w49 t62632; char *t62633; /* x102989 */ /* x102970 stalin.sc:10007:346477 */ /* x102963 stalin.sc:10007:346485 */ /* x102962 stalin.sc:10007:346501 */ /* x102961 stalin.sc:10007:346532 */ t62631 = a23856; /* x102960 stalin.sc:10007:346502 */ a37404 = t62631; /* x282285 */ /* x282284 */ t62632 = a37404; /* x282283 */ if (!((t62632.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ELEMENT[6309] 32321]"); structure_ref_error();} t62630 = t62632.value.structure_type27669->s0; /* x102959 stalin.sc:10007:346486 */ if (f8117(t62630)==FALSE_TYPE) goto l9891; /* x102965 */ /* x102964 */ goto l9892; l9891: /* x102969 */ /* x102968 */ /* x102967 stalin.sc:10007:346536 */ /* x102966 stalin.sc:10007:346537 */ /* x297201 QobiScheme.sc:166:5314 */ /* x297200 QobiScheme.sc:166:5321 */ t62633 = "This shouldn\'t happen"; /* x297199 QobiScheme.sc:166:5315 */ stalin_panic(t62633); l9892: /* x102988 stalin.sc:10008:346551 */ /* x102981 stalin.sc:10008:346557 */ /* x102971 stalin.sc:10008:346562 */ /* x102987 stalin.sc:10008:346551 */ /* x102986 stalin.sc:10008:346551 */ /* x102958 */ /* x102957 stalin.sc:10011:346673 */ /* x102956 stalin.sc:10015:346839 */ /* x102955 stalin.sc:10015:346885 */ t62628 = a23856; /* x102954 stalin.sc:10015:346840 */ a37386 = t62628; /* x282213 */ /* x282212 */ t62629 = a37386; /* x282211 */ if (!((t62629.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS[6317] 32303]"); structure_ref_error();} t62624 = t62629.value.structure_type27669->s1; /* x102953 */ /* x102912 stalin.sc:10011:346674 */ t62625.tag = NATIVE_PROCEDURE_TYPE16487; t62626 = t62624; t62627 = (struct structure_type24753 *)NULL_TYPE; f27755(t62625, t62626, t62627); return;} /* [inside CHECK-FOR-CORRUPTION 11387] */ void f11387(struct w49 a23854) {struct w49 a40414; /* OBJ */ struct w49 t62634; struct w49 t62635; struct w49 t62636; char *t62637; /* x102870 */ /* x102869 stalin.sc:10001:346239 */ /* x102862 stalin.sc:10001:346245 */ /* x102855 stalin.sc:10001:346250 */ /* x102854 stalin.sc:10001:346263 */ t62634 = a23854; /* x102853 stalin.sc:10001:346251 */ a40414 = t62634; /* x294325 */ /* x294324 */ t62635 = a40414; /* x294323 */ if (!((t62635.tag)==STRUCTURE_TYPE27698)) goto l9896; /* x102860 */ /* x102859 stalin.sc:10001:346271 */ /* x102858 stalin.sc:10001:346281 */ t62636 = a23854; /* x102857 stalin.sc:10001:346272 */ if (!(f6961(t62636)==FALSE_TYPE)) goto l9896; /* x102866 */ /* x102865 */ /* x102864 stalin.sc:10001:346286 */ /* x102863 stalin.sc:10001:346287 */ /* x295309 QobiScheme.sc:166:5314 */ /* x295308 QobiScheme.sc:166:5321 */ t62637 = "This shouldn\'t happen"; /* x295307 QobiScheme.sc:166:5315 */ stalin_panic(t62637); goto l9897; l9896: /* x102868 stalin.sc:10001:346239 */ /* x102867 stalin.sc:10001:346239 */ l9897: /* x102852 */ /* x102851 stalin.sc:10002:346303 */ /* x102844 stalin.sc:10002:346309 */ /* x102831 stalin.sc:10002:346314 */ /* x102850 stalin.sc:10002:346303 */ /* x102849 stalin.sc:10002:346303 */ return;} /* [inside CHECK-FOR-CORRUPTION 11385] */ void f11385(struct w49 a23851) {struct w49 a37492; /* S */ struct w49 a37521; /* S */ struct w49 t62638; struct w36108 t62639; struct w49 t62640; struct structure_type24753 *t62641; struct w49 t62642; struct w49 t62643; struct w49 t62644; struct w49 t62645; struct w49 t62646; char *t62647; /* x102907 */ /* x102888 stalin.sc:9995:346019 */ /* x102881 stalin.sc:9995:346027 */ /* x102880 stalin.sc:9995:346043 */ /* x102879 stalin.sc:9995:346071 */ t62645 = a23851; /* x102878 stalin.sc:9995:346044 */ a37521 = t62645; /* x282753 */ /* x282752 */ t62646 = a37521; /* x282751 */ if (!((t62646.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32438]"); structure_ref_error();} t62644 = t62646.value.structure_type27761->s0; /* x102877 stalin.sc:9995:346028 */ if (f8117(t62644)==FALSE_TYPE) goto l9900; /* x102883 */ /* x102882 */ goto l9901; l9900: /* x102887 */ /* x102886 */ /* x102885 stalin.sc:9995:346075 */ /* x102884 stalin.sc:9995:346076 */ /* x295313 QobiScheme.sc:166:5314 */ /* x295312 QobiScheme.sc:166:5321 */ t62647 = "This shouldn\'t happen"; /* x295311 QobiScheme.sc:166:5315 */ stalin_panic(t62647); l9901: /* x102906 stalin.sc:9996:346090 */ /* x102899 stalin.sc:9996:346096 */ /* x102889 stalin.sc:9996:346101 */ /* x102905 stalin.sc:9996:346090 */ /* x102904 stalin.sc:9996:346090 */ /* x102876 */ /* x102875 stalin.sc:9999:346206 */ /* x102874 stalin.sc:10003:346372 */ /* x102873 stalin.sc:10003:346415 */ t62642 = a23851; /* x102872 stalin.sc:10003:346373 */ a37492 = t62642; /* x282637 */ /* x282636 */ t62643 = a37492; /* x282635 */ if (!((t62643.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS[6251] 32409]"); structure_ref_error();} t62638 = t62643.value.structure_type27761->s1; /* x102871 */ /* x102830 stalin.sc:9999:346207 */ t62639.tag = NATIVE_PROCEDURE_TYPE23283; t62640 = t62638; t62641 = (struct structure_type24753 *)NULL_TYPE; f27755(t62639, t62640, t62641); return;} /* [inside CHECK-FOR-CORRUPTION 11379] */ void f11379(struct w49 a23849) {struct w49 t62648; char *t62649; /* x102819 */ /* x102818 stalin.sc:9983:345598 */ /* x102811 stalin.sc:9983:345606 */ /* x102810 stalin.sc:9983:345622 */ t62648 = a23849; /* x102809 stalin.sc:9983:345607 */ if (f8117(t62648)==FALSE_TYPE) goto l9905; /* x102813 */ /* x102812 */ goto l9906; l9905: /* x102817 */ /* x102816 */ /* x102815 stalin.sc:9983:345625 */ /* x102814 stalin.sc:9983:345626 */ /* x295437 QobiScheme.sc:166:5314 */ /* x295436 QobiScheme.sc:166:5321 */ t62649 = "This shouldn\'t happen"; /* x295435 QobiScheme.sc:166:5315 */ stalin_panic(t62649); l9906: /* x102808 */ /* x102807 stalin.sc:9984:345644 */ /* x102800 stalin.sc:9984:345650 */ /* x102792 stalin.sc:9984:345655 */ /* x102806 stalin.sc:9984:345644 */ /* x102805 stalin.sc:9984:345644 */ return;} /* [inside CHECK-FOR-CORRUPTION 11373] */ void f11373(struct w49 a23847) {struct w49 a40415; /* OBJ */ struct w49 t62650; struct w49 t62651; struct w49 t62652; char *t62653; /* x102784 */ /* x102783 stalin.sc:9989:345789 */ /* x102776 stalin.sc:9989:345795 */ /* x102769 stalin.sc:9989:345800 */ /* x102768 stalin.sc:9989:345813 */ t62650 = a23847; /* x102767 stalin.sc:9989:345801 */ a40415 = t62650; /* x294329 */ /* x294328 */ t62651 = a40415; /* x294327 */ if (!((t62651.tag)==STRUCTURE_TYPE27698)) goto l9909; /* x102774 */ /* x102773 stalin.sc:9989:345821 */ /* x102772 stalin.sc:9989:345831 */ t62652 = a23847; /* x102771 stalin.sc:9989:345822 */ if (!(f6961(t62652)==FALSE_TYPE)) goto l9909; /* x102780 */ /* x102779 */ /* x102778 stalin.sc:9989:345836 */ /* x102777 stalin.sc:9989:345837 */ /* x295409 QobiScheme.sc:166:5314 */ /* x295408 QobiScheme.sc:166:5321 */ t62653 = "This shouldn\'t happen"; /* x295407 QobiScheme.sc:166:5315 */ stalin_panic(t62653); goto l9910; l9909: /* x102782 stalin.sc:9989:345789 */ /* x102781 stalin.sc:9989:345789 */ l9910: /* x102766 */ /* x102765 stalin.sc:9990:345853 */ /* x102758 stalin.sc:9990:345859 */ /* x102745 stalin.sc:9990:345864 */ /* x102764 stalin.sc:9990:345853 */ /* x102763 stalin.sc:9990:345853 */ return;} /* [inside CHECK-FOR-CORRUPTION 11371] */ void f11371(struct w49 a23845) {struct w49 a37613; /* S */ struct w49 a37658; /* S */ struct w49 t62654; struct w36108 t62655; struct w49 t62656; struct structure_type24753 *t62657; struct w49 t62658; struct w49 t62659; struct w11873 t62660; struct w36108 t62661; struct w49 t62662; struct structure_type24753 *t62663; struct w49 t62664; struct w49 t62665; /* x102825 */ /* x102824 stalin.sc:9982:345568 */ /* x102823 stalin.sc:9985:345699 */ /* x102822 stalin.sc:9985:345721 */ t62664 = a23845; /* x102821 stalin.sc:9985:345700 */ a37658 = t62664; /* x283301 */ /* x283300 */ t62665 = a37658; /* x283299 */ if (!((t62665.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32575]"); structure_ref_error();} t62660 = t62665.value.structure_type27769->s1; /* x102820 */ /* x102791 stalin.sc:9982:345569 */ t62661.tag = NATIVE_PROCEDURE_TYPE15424; t62662 = *((struct w49 *)(&t62660)); t62663 = (struct structure_type24753 *)NULL_TYPE; f27755(t62661, t62662, t62663); /* x102790 */ /* x102789 stalin.sc:9987:345756 */ /* x102788 stalin.sc:9991:345922 */ /* x102787 stalin.sc:9991:345961 */ t62658 = a23845; /* x102786 stalin.sc:9991:345923 */ a37613 = t62658; /* x283121 */ /* x283120 */ t62659 = a37613; /* x283119 */ if (!((t62659.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-ALLOCATING-EXPRESSIONS[6185] 32530]"); structure_ref_error();} t62654 = t62659.value.structure_type27769->s2; /* x102785 */ /* x102744 stalin.sc:9987:345757 */ t62655.tag = NATIVE_PROCEDURE_TYPE22585; t62656 = t62654; t62657 = (struct structure_type24753 *)NULL_TYPE; f27755(t62655, t62656, t62657); return;} /* [inside CHECK-FOR-CORRUPTION 11365] */ void f11365(struct w49 a23843) {struct w49 a40454; /* OBJ */ struct w49 t62666; struct w49 t62667; struct w49 t62668; char *t62669; /* x102734 */ /* x102733 stalin.sc:9976:345344 */ /* x102726 stalin.sc:9976:345350 */ /* x102719 stalin.sc:9976:345355 */ /* x102718 stalin.sc:9976:345368 */ t62666 = a23843; /* x102717 stalin.sc:9976:345356 */ a40454 = t62666; /* x294485 */ /* x294484 */ t62667 = a40454; /* x294483 */ if (!((t62667.tag)==STRUCTURE_TYPE27698)) goto l9914; /* x102724 */ /* x102723 stalin.sc:9976:345376 */ /* x102722 stalin.sc:9976:345386 */ t62668 = a23843; /* x102721 stalin.sc:9976:345377 */ if (!(f6961(t62668)==FALSE_TYPE)) goto l9914; /* x102730 */ /* x102729 */ /* x102728 stalin.sc:9976:345391 */ /* x102727 stalin.sc:9976:345392 */ /* x297009 QobiScheme.sc:166:5314 */ /* x297008 QobiScheme.sc:166:5321 */ t62669 = "This shouldn\'t happen"; /* x297007 QobiScheme.sc:166:5315 */ stalin_panic(t62669); goto l9915; l9914: /* x102732 stalin.sc:9976:345344 */ /* x102731 stalin.sc:9976:345344 */ l9915: /* x102716 */ /* x102715 stalin.sc:9977:345408 */ /* x102708 stalin.sc:9977:345414 */ /* x102695 stalin.sc:9977:345419 */ /* x102714 stalin.sc:9977:345408 */ /* x102713 stalin.sc:9977:345408 */ return;} /* [inside CHECK-FOR-CORRUPTION 11364] */ void f11364(struct w49 a23842) {struct w49 a37738; /* S */ struct w49 t62670; struct w36108 t62671; struct w49 t62672; struct structure_type24753 *t62673; struct w49 t62674; struct w49 t62675; /* x102739 stalin.sc:9974:345311 */ /* x102738 stalin.sc:9978:345477 */ /* x102737 stalin.sc:9978:345513 */ t62674 = a23842; /* x102736 stalin.sc:9978:345478 */ a37738 = t62674; /* x283621 */ /* x283620 */ t62675 = a37738; /* x283619 */ if (!((t62675.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-ALLOCATING-EXPRESSIONS[6111] 32655]"); structure_ref_error();} t62670 = t62675.value.structure_type27673->s0; /* x102735 */ /* x102694 stalin.sc:9974:345312 */ t62671.tag = NATIVE_PROCEDURE_TYPE15428; t62672 = t62670; t62673 = (struct structure_type24753 *)NULL_TYPE; f27755(t62671, t62672, t62673); return;} /* [inside CHECK-FOR-CORRUPTION 11354] */ void f11354(struct w49 a23840) {struct w49 a36443; /* S */ struct w49 t62676; struct w49 t62677; struct w49 t62678; char *t62679; /* x102633 */ /* x102632 stalin.sc:9967:345056 */ /* x102625 stalin.sc:9967:345064 */ /* x102624 stalin.sc:9967:345074 */ /* x102623 stalin.sc:9967:345096 */ t62677 = a23840; /* x102622 stalin.sc:9967:345075 */ a36443 = t62677; /* x278441 */ /* x278440 */ t62678 = a36443; /* x278439 */ if (!((t62678.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31360]"); structure_ref_error();} t62676 = t62678.value.structure_type27745->s0; /* x102621 stalin.sc:9967:345065 */ if (f6961(t62676)==FALSE_TYPE) goto l9919; /* x102627 */ /* x102626 */ goto l9920; l9919: /* x102631 */ /* x102630 */ /* x102629 stalin.sc:9967:345100 */ /* x102628 stalin.sc:9967:345101 */ /* x296033 QobiScheme.sc:166:5314 */ /* x296032 QobiScheme.sc:166:5321 */ t62679 = "This shouldn\'t happen"; /* x296031 QobiScheme.sc:166:5315 */ stalin_panic(t62679); l9920: /* x102620 */ /* x102619 stalin.sc:9968:345118 */ /* x102612 stalin.sc:9968:345124 */ /* x102602 stalin.sc:9968:345129 */ /* x102618 stalin.sc:9968:345118 */ /* x102617 stalin.sc:9968:345118 */ return;} /* [inside CHECK-FOR-CORRUPTION 11350] */ void f11350(struct w49 a23837) {struct w49 a37807; /* S */ struct w49 a37808; /* S */ struct w49 a37836; /* S */ struct w49 a37844; /* S */ struct w49 a40416; /* OBJ */ struct w3457 t62680; char *t62681; struct w49 t62682; struct w49 t62683; struct w3457 t62684; struct w36108 t62685; struct w49 t62686; struct structure_type24753 *t62687; struct w49 t62688; struct w49 t62689; struct w49 t62690; struct w49 t62691; struct w49 t62692; struct w49 t62693; struct w49 t62694; struct w49 t62695; struct w49 t62696; char *t62697; /* x102689 */ /* x102663 stalin.sc:9956:344594 */ /* x102656 stalin.sc:9956:344600 */ /* x102647 stalin.sc:9956:344605 */ /* x102646 stalin.sc:9956:344618 */ /* x102645 stalin.sc:9956:344659 */ t62692 = a23837; /* x102644 stalin.sc:9956:344619 */ a37844 = t62692; /* x284045 */ /* x284044 */ t62693 = a37844; /* x284043 */ if (!((t62693.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32761]"); structure_ref_error();} t62690 = t62693.value.structure_type27858->s0; /* x102643 stalin.sc:9956:344606 */ a40416 = t62690; /* x294333 */ /* x294332 */ t62691 = a40416; /* x294331 */ if (!((t62691.tag)==STRUCTURE_TYPE27698)) goto l9924; /* x102654 */ /* x102653 stalin.sc:9957:344676 */ /* x102652 stalin.sc:9957:344686 */ /* x102651 stalin.sc:9957:344727 */ t62695 = a23837; /* x102650 stalin.sc:9957:344687 */ a37836 = t62695; /* x284013 */ /* x284012 */ t62696 = a37836; /* x284011 */ if (!((t62696.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32753]"); structure_ref_error();} t62694 = t62696.value.structure_type27858->s0; /* x102649 stalin.sc:9957:344677 */ if (!(f6961(t62694)==FALSE_TYPE)) goto l9924; /* x102660 */ /* x102659 */ /* x102658 stalin.sc:9958:344738 */ /* x102657 stalin.sc:9958:344739 */ /* x296029 QobiScheme.sc:166:5314 */ /* x296028 QobiScheme.sc:166:5321 */ t62697 = "This shouldn\'t happen"; /* x296027 QobiScheme.sc:166:5315 */ stalin_panic(t62697); goto l9925; l9924: /* x102662 stalin.sc:9956:344594 */ /* x102661 stalin.sc:9956:344594 */ l9925: /* x102688 stalin.sc:9959:344753 */ /* x102681 stalin.sc:9959:344759 */ /* x102664 stalin.sc:9959:344764 */ /* x102687 stalin.sc:9959:344753 */ /* x102686 stalin.sc:9959:344753 */ /* x102642 */ /* x102641 stalin.sc:9964:344955 */ /* x102598 stalin.sc:9964:344963 */ /* x102595 stalin.sc:9964:344968 */ /* x102594 stalin.sc:9964:344998 */ t62682 = a23837; /* x102593 stalin.sc:9964:344969 */ a37808 = t62682; /* x283901 */ /* x283900 */ t62683 = a37808; /* x283899 */ if (!((t62683.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-CALL-SITES[6085] 32725]"); structure_ref_error();} t62680 = t62683.value.structure_type27858->s3; /* x102597 stalin.sc:9964:345001 */ /* x102596 stalin.sc:9964:345002 */ /* x277145 stalin.sc:323:8604 */ t62681 = q35; /* x269552 stalin.sc:9964:344964 */ if (!(((t62680.tag)==EXTERNAL_SYMBOL_TYPE)&&((t62680.value.external_symbol_type)==t62681))) goto l9922; /* x102600 */ /* x102599 */ return; l9922: /* x102640 */ /* x102639 */ /* x102638 stalin.sc:9965:345021 */ /* x102637 stalin.sc:9969:345195 */ /* x102636 stalin.sc:9969:345225 */ t62688 = a23837; /* x102635 stalin.sc:9969:345196 */ a37807 = t62688; /* x283897 */ /* x283896 */ t62689 = a37807; /* x283895 */ if (!((t62689.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-CALL-SITES[6085] 32724]"); structure_ref_error();} t62684 = t62689.value.structure_type27858->s3; /* x102634 */ /* x102601 stalin.sc:9965:345022 */ t62685.tag = NATIVE_PROCEDURE_TYPE20365; t62686 = *((struct w49 *)(&t62684)); t62687 = (struct structure_type24753 *)NULL_TYPE; f27755(t62685, t62686, t62687); return;} /* [inside CHECK-FOR-CORRUPTION 11332] */ void f11332(struct w49 a23832) {struct w49 a20800; /* OBJ */ struct w49 a36439; /* S */ struct w49 t62698; struct w11873 t62699; struct w49 t62700; struct w49 t62701; struct w49 t62702; struct w49 t62703; char *t62704; struct w49 t62705; struct w49 t62706; struct w49 t62707; struct w49 t62708; struct w49 t62709; struct w49 t62710; struct w49 t62711; char *t62712; struct w49 t62713; struct w49 t62714; char *t62715; /* x102499 */ /* x102432 stalin.sc:9941:344041 */ /* x102425 stalin.sc:9941:344047 */ /* x102414 stalin.sc:9941:344052 */ /* x102413 stalin.sc:9941:344064 */ /* x102412 stalin.sc:9941:344069 */ t62707 = a23832; /* x269568 stalin.sc:9941:344065 */ if (!((t62707.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 9941, 344064); structure_ref_error();} t62705 = t62707.value.structure_type24753->s0; /* x102410 stalin.sc:9941:344053 */ a20800 = t62705; /* x56399 */ /* x56398 */ t62706 = a20800; /* x56397 */ if (!((t62706.tag)==STRUCTURE_TYPE27745)) goto l9931; /* x102423 */ /* x102422 stalin.sc:9942:344083 */ /* x102421 stalin.sc:9942:344093 */ /* x102420 stalin.sc:9942:344115 */ /* x102419 stalin.sc:9942:344120 */ t62711 = a23832; /* x269566 stalin.sc:9942:344116 */ if (!((t62711.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 9942, 344115); structure_ref_error();} t62709 = t62711.value.structure_type24753->s0; /* x102417 stalin.sc:9942:344094 */ a36439 = t62709; /* x278425 */ /* x278424 */ t62710 = a36439; /* x278423 */ if (!((t62710.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31356]"); structure_ref_error();} t62708 = t62710.value.structure_type27745->s0; /* x102416 stalin.sc:9942:344084 */ if (!(f6961(t62708)==FALSE_TYPE)) goto l9931; /* x102429 */ /* x102428 */ /* x102427 stalin.sc:9943:344136 */ /* x102426 stalin.sc:9943:344137 */ /* x295869 QobiScheme.sc:166:5314 */ /* x295868 QobiScheme.sc:166:5321 */ t62712 = "This shouldn\'t happen"; /* x295867 QobiScheme.sc:166:5315 */ stalin_panic(t62712); goto l9932; l9931: /* x102431 stalin.sc:9941:344041 */ /* x102430 stalin.sc:9941:344041 */ l9932: /* x102459 stalin.sc:9944:344153 */ /* x102452 stalin.sc:9944:344159 */ /* x102433 stalin.sc:9944:344164 */ /* x102458 stalin.sc:9944:344153 */ /* x102457 stalin.sc:9944:344153 */ /* x102471 stalin.sc:9948:344273 */ /* x102464 stalin.sc:9948:344281 */ /* x102463 stalin.sc:9948:344290 */ /* x102462 stalin.sc:9948:344295 */ t62714 = a23832; /* x269562 stalin.sc:9948:344291 */ if (!((t62714.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 9948, 344290); structure_ref_error();} t62713 = t62714.value.structure_type24753->s1; /* x102460 stalin.sc:9948:344282 */ if ((f8899(t62713).tag)==FALSE_TYPE) goto l9936; /* x102466 */ /* x102465 */ goto l9937; l9936: /* x102470 */ /* x102469 */ /* x102468 stalin.sc:9948:344301 */ /* x102467 stalin.sc:9948:344302 */ /* x295873 QobiScheme.sc:166:5314 */ /* x295872 QobiScheme.sc:166:5321 */ t62715 = "This shouldn\'t happen"; /* x295871 QobiScheme.sc:166:5315 */ stalin_panic(t62715); l9937: /* x102498 stalin.sc:9949:344318 */ /* x102491 stalin.sc:9949:344324 */ /* x102472 stalin.sc:9949:344329 */ /* x102497 stalin.sc:9949:344318 */ /* x102496 stalin.sc:9949:344318 */ /* x102409 */ /* x102408 stalin.sc:9951:344410 */ /* x102401 stalin.sc:9951:344418 */ /* x102395 stalin.sc:9951:344424 */ /* x102394 stalin.sc:9951:344429 */ t62701 = a23832; /* x269570 stalin.sc:9951:344425 */ if (!((t62701.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 9951, 344424); structure_ref_error();} t62698 = t62701.value.structure_type24753->s1; /* x102400 stalin.sc:9951:344434 */ /* x102399 stalin.sc:9951:344449 */ /* x102398 stalin.sc:9951:344454 */ t62703 = a23832; /* x269569 stalin.sc:9951:344450 */ if (!((t62703.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 9951, 344449); structure_ref_error();} t62702 = t62703.value.structure_type24753->s1; /* x102396 stalin.sc:9951:344435 */ t62699 = f8984(t62702); /* x102392 stalin.sc:9951:344419 */ t62700 = *((struct w49 *)(&t62699)); if ((f26351(t62698, t62700).tag)==FALSE_TYPE) goto l9929; /* x102403 */ /* x102402 */ return; l9929: /* x102407 */ /* x102406 */ /* x102405 stalin.sc:9951:344461 */ /* x102404 stalin.sc:9951:344462 */ /* x295865 QobiScheme.sc:166:5314 */ /* x295864 QobiScheme.sc:166:5321 */ t62704 = "This shouldn\'t happen"; /* x295863 QobiScheme.sc:166:5315 */ stalin_panic(t62704);} /* [inside CHECK-FOR-CORRUPTION 11330] */ void f11330(struct w49 a23828) {struct w49 a36601; /* S */ struct w49 a38008; /* S */ struct w49 a38009; /* S */ struct w49 a38010; /* S */ struct w49 a38016; /* S */ struct w49 a38017; /* S */ struct w49 a38020; /* S */ struct w12224 t62716; struct w36108 t62717; struct w49 t62718; struct structure_type24753 *t62719; struct w49 t62720; struct w49 t62721; struct w49 t62722; struct w49 t62723; struct w49 t62724; struct w49 t62725; struct w49 t62726; struct w49 t62727; struct w49 t62728; struct w49 t62729; struct w49 t62730; struct w49 t62731; char *t62732; struct w49 t62733; struct w49 t62734; struct w49 t62735; struct w49 t62736; struct w49 t62737; char *t62738; /* x102587 */ /* x102529 stalin.sc:9924:343400 */ /* x102522 stalin.sc:9924:343406 */ /* x102508 stalin.sc:9924:343411 */ /* x102507 stalin.sc:9924:343451 */ t62722 = a23828; /* x102506 stalin.sc:9924:343412 */ a38016 = t62722; /* x284733 */ /* x284732 */ t62723 = a38016; /* x284731 */ if (!((t62723.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-NARROW-PROTOTYPE[5953] 32933]"); structure_ref_error();} if ((t62723.value.structure_type27756->s1.tag)==FALSE_TYPE) goto l9940; /* x102520 */ /* x102519 stalin.sc:9925:343467 */ /* x102515 stalin.sc:9925:343472 */ /* x102514 stalin.sc:9926:343507 */ /* x102513 stalin.sc:9926:343547 */ t62728 = a23828; /* x102512 stalin.sc:9926:343508 */ a38008 = t62728; /* x284701 */ /* x284700 */ t62729 = a38008; /* x284699 */ if (!((t62729.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-NARROW-PROTOTYPE[5953] 32925]"); structure_ref_error();} t62726 = t62729.value.structure_type27756->s1; /* x102511 stalin.sc:9925:343473 */ a36601 = t62726; /* x279073 */ /* x279072 */ t62727 = a36601; /* x279071 */ if (!((t62727.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NARROW-PROTOTYPE[6743] 31518]"); structure_ref_error();} t62724 = t62727.value.structure_type27694->s14; /* x102518 stalin.sc:9927:343555 */ /* x102517 stalin.sc:9927:343595 */ t62730 = a23828; /* x102516 stalin.sc:9927:343556 */ a38009 = t62730; /* x284705 */ /* x284704 */ t62731 = a38009; /* x284703 */ if (!((t62731.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-NARROW-PROTOTYPE[5953] 32926]"); structure_ref_error();} t62725 = t62731.value.structure_type27756->s1; /* x269556 stalin.sc:9925:343468 */ /* EQ: dispatching general to general */ if ((t62724.tag)==(t62725.tag)) switch (t62724.tag) {case FIXNUM_TYPE: if ((t62724.value.fixnum_type)==(t62725.value.fixnum_type)) goto l9940; break; case FLONUM_TYPE: if ((t62724.value.flonum_type)==(t62725.value.flonum_type)) goto l9940; break; case INPUT_PORT_TYPE: if ((t62724.value.input_port_type)==(t62725.value.input_port_type)) goto l9940; break; case OUTPUT_PORT_TYPE: if ((t62724.value.output_port_type)==(t62725.value.output_port_type)) goto l9940; break; case NATIVE_PROCEDURE_TYPE15963: if ((t62724.value.native_procedure_type15963)==(t62725.value.native_procedure_type15963)) goto l9940; break; case NATIVE_PROCEDURE_TYPE19067: if ((t62724.value.native_procedure_type19067)==(t62725.value.native_procedure_type19067)) goto l9940; break; case NATIVE_PROCEDURE_TYPE19068: if ((t62724.value.native_procedure_type19068)==(t62725.value.native_procedure_type19068)) goto l9940; break; case NATIVE_PROCEDURE_TYPE22459: if ((t62724.value.native_procedure_type22459)==(t62725.value.native_procedure_type22459)) goto l9940; break; case STRUCTURE_TYPE24753: if ((t62724.value.structure_type24753)==(t62725.value.structure_type24753)) goto l9940; break; case STRUCTURE_TYPE24757: if ((t62724.value.structure_type24757)==(t62725.value.structure_type24757)) goto l9940; break; case STRUCTURE_TYPE27501: if ((t62724.value.structure_type27501)==(t62725.value.structure_type27501)) goto l9940; break; case STRUCTURE_TYPE27510: if ((t62724.value.structure_type27510)==(t62725.value.structure_type27510)) goto l9940; break; case STRUCTURE_TYPE27621: if ((t62724.value.structure_type27621)==(t62725.value.structure_type27621)) goto l9940; break; case STRUCTURE_TYPE27650: if ((t62724.value.structure_type27650)==(t62725.value.structure_type27650)) goto l9940; break; case STRUCTURE_TYPE27669: if ((t62724.value.structure_type27669)==(t62725.value.structure_type27669)) goto l9940; break; case STRUCTURE_TYPE27673: if ((t62724.value.structure_type27673)==(t62725.value.structure_type27673)) goto l9940; break; case STRUCTURE_TYPE27692: if ((t62724.value.structure_type27692)==(t62725.value.structure_type27692)) goto l9940; break; case STRUCTURE_TYPE27694: if ((t62724.value.structure_type27694)==(t62725.value.structure_type27694)) goto l9940; break; case STRUCTURE_TYPE27698: if ((t62724.value.structure_type27698)==(t62725.value.structure_type27698)) goto l9940; break; case STRUCTURE_TYPE27745: if ((t62724.value.structure_type27745)==(t62725.value.structure_type27745)) goto l9940; break; case STRUCTURE_TYPE27747: if ((t62724.value.structure_type27747)==(t62725.value.structure_type27747)) goto l9940; break; case STRUCTURE_TYPE27750: if ((t62724.value.structure_type27750)==(t62725.value.structure_type27750)) goto l9940; break; case STRUCTURE_TYPE27753: if ((t62724.value.structure_type27753)==(t62725.value.structure_type27753)) goto l9940; break; case STRUCTURE_TYPE27756: if ((t62724.value.structure_type27756)==(t62725.value.structure_type27756)) goto l9940; break; case STRUCTURE_TYPE27761: if ((t62724.value.structure_type27761)==(t62725.value.structure_type27761)) goto l9940; break; case STRUCTURE_TYPE27769: if ((t62724.value.structure_type27769)==(t62725.value.structure_type27769)) goto l9940; break; case STRUCTURE_TYPE27776: if ((t62724.value.structure_type27776)==(t62725.value.structure_type27776)) goto l9940; break; case STRUCTURE_TYPE27779: if ((t62724.value.structure_type27779)==(t62725.value.structure_type27779)) goto l9940; break; case STRUCTURE_TYPE27858: if ((t62724.value.structure_type27858)==(t62725.value.structure_type27858)) goto l9940; break; case STRING_TYPE: if ((t62724.value.string_type)==(t62725.value.string_type)) goto l9940; break; case HEADED_VECTOR_TYPE27896: if ((t62724.value.headed_vector_type27896)==(t62725.value.headed_vector_type27896)) goto l9940; break; case EXTERNAL_SYMBOL_TYPE: if ((t62724.value.external_symbol_type)==(t62725.value.external_symbol_type)) goto l9940; break; case STRUCTURE_TYPE27908: if ((t62724.value.structure_type27908)==(t62725.value.structure_type27908)) goto l9940; break; default: goto l9940;} /* x102526 */ /* x102525 */ /* x102524 stalin.sc:9928:343606 */ /* x102523 stalin.sc:9928:343607 */ /* x296765 QobiScheme.sc:166:5314 */ /* x296764 QobiScheme.sc:166:5321 */ t62732 = "This shouldn\'t happen"; /* x296763 QobiScheme.sc:166:5315 */ stalin_panic(t62732); goto l9941; l9940: /* x102528 stalin.sc:9924:343400 */ /* x102527 stalin.sc:9924:343400 */ l9941: /* x102551 stalin.sc:9929:343621 */ /* x102544 stalin.sc:9929:343627 */ /* x102530 stalin.sc:9929:343632 */ /* x102542 */ /* x102533 stalin.sc:9930:343643 */ /* x102532 stalin.sc:9930:343683 */ t62733 = a23828; /* x102531 stalin.sc:9930:343644 */ a38017 = t62733; /* x284737 */ /* x284736 */ t62734 = a38017; /* x284735 */ if (!((t62734.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-NARROW-PROTOTYPE[5953] 32934]"); structure_ref_error();} if ((t62734.value.structure_type27756->s1.tag)==FALSE_TYPE) goto l9944; /* x102540 */ /* x102539 stalin.sc:9931:343699 */ /* x102538 stalin.sc:9931:343708 */ /* x102537 stalin.sc:9931:343748 */ t62736 = a23828; /* x102536 stalin.sc:9931:343709 */ a38010 = t62736; /* x284709 */ /* x284708 */ t62737 = a38010; /* x284707 */ if (!((t62737.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-NARROW-PROTOTYPE[5953] 32927]"); structure_ref_error();} t62735 = t62737.value.structure_type27756->s1; /* x102535 stalin.sc:9931:343700 */ if (!((f8899(t62735).tag)==FALSE_TYPE)) goto l9944; /* x102548 */ /* x102547 */ /* x102546 stalin.sc:9932:343759 */ /* x102545 stalin.sc:9932:343760 */ /* x296769 QobiScheme.sc:166:5314 */ /* x296768 QobiScheme.sc:166:5321 */ t62738 = "This shouldn\'t happen"; /* x296767 QobiScheme.sc:166:5315 */ stalin_panic(t62738); goto l9945; l9944: /* x102550 stalin.sc:9929:343621 */ /* x102549 stalin.sc:9929:343621 */ l9945: /* x102586 stalin.sc:9933:343774 */ /* x102579 stalin.sc:9933:343780 */ /* x102552 stalin.sc:9933:343785 */ /* x102577 */ /* x102553 stalin.sc:9934:343796 */ /* x102585 stalin.sc:9933:343774 */ /* x102584 stalin.sc:9933:343774 */ /* x102505 */ /* x102504 stalin.sc:9939:344006 */ /* x102503 stalin.sc:9952:344478 */ /* x102502 stalin.sc:9952:344529 */ t62720 = a23828; /* x102501 stalin.sc:9952:344479 */ a38020 = t62720; /* x284749 */ /* x284748 */ t62721 = a38020; /* x284747 */ if (!((t62721.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-CALL-SITE-ENVIRONMENT-ALIST[5945] 32937]"); structure_ref_error();} t62716 = t62721.value.structure_type27756->s0; /* x102500 */ /* x102391 stalin.sc:9939:344007 */ t62717.tag = NATIVE_PROCEDURE_TYPE17836; t62718 = *((struct w49 *)(&t62716)); t62719 = (struct structure_type24753 *)NULL_TYPE; f27755(t62717, t62718, t62719); return;} /* [inside CHECK-FOR-CORRUPTION 11324] */ void f11324(struct w49 a23826) {struct w49 a38262; /* S */ struct w49 t62739; struct w49 t62740; struct w49 t62741; char *t62742; /* x102386 */ /* x102385 stalin.sc:9915:343132 */ /* x102378 stalin.sc:9915:343140 */ /* x102377 stalin.sc:9915:343152 */ /* x102376 stalin.sc:9915:343196 */ t62740 = a23826; /* x102375 stalin.sc:9915:343153 */ a38262 = t62740; /* x285717 */ /* x285716 */ t62741 = a38262; /* x285715 */ if (!((t62741.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-DISPLACED-STRING-TYPE[5845] 33179]"); structure_ref_error();} t62739 = t62741.value.structure_type27779->s0; /* x102374 stalin.sc:9915:343141 */ if (f7849(t62739)==FALSE_TYPE) goto l9952; /* x102380 */ /* x102379 */ goto l9953; l9952: /* x102384 */ /* x102383 */ /* x102382 stalin.sc:9916:343205 */ /* x102381 stalin.sc:9916:343206 */ /* x295037 QobiScheme.sc:166:5314 */ /* x295036 QobiScheme.sc:166:5321 */ t62742 = "This shouldn\'t happen"; /* x295035 QobiScheme.sc:166:5315 */ stalin_panic(t62742); l9953: /* x102373 */ /* x102372 stalin.sc:9917:343220 */ /* x102365 stalin.sc:9917:343226 */ /* x102355 stalin.sc:9917:343231 */ /* x102371 stalin.sc:9917:343220 */ /* x102370 stalin.sc:9917:343220 */ return;} /* [inside CHECK-FOR-CORRUPTION 11319] */ void f11319(struct w49 a23825) {struct w49 t62743; char *t62744; /* x102333 stalin.sc:9896:342553 */ /* x102326 stalin.sc:9896:342561 */ /* x102325 stalin.sc:9896:342571 */ t62743 = a23825; /* x102324 stalin.sc:9896:342562 */ if (f6961(t62743)==FALSE_TYPE) goto l9955; /* x102328 */ /* x102327 */ return; l9955: /* x102332 */ /* x102331 */ /* x102330 stalin.sc:9896:342574 */ /* x102329 stalin.sc:9896:342575 */ /* x296997 QobiScheme.sc:166:5314 */ /* x296996 QobiScheme.sc:166:5321 */ t62744 = "This shouldn\'t happen"; /* x296995 QobiScheme.sc:166:5315 */ stalin_panic(t62744);} /* [inside CHECK-FOR-CORRUPTION 11255] */ void f11255(struct w49 a23796) {struct w49 a36767; /* OBJ */ struct w9140 a36770; /* OBJ */ struct w49 a38601; /* S */ struct w49 a38604; /* S */ struct w49 a38865; /* S */ struct w49 a38873; /* S */ struct w49 a39045; /* S */ struct w49 a39049; /* S */ struct w49 a39087; /* S */ struct w49 a39090; /* S */ struct w49 a39502; /* S */ struct w49 a39515; /* S */ struct w49 a39809; /* S */ struct w49 a39828; /* S */ struct w49 a40021; /* S */ struct w49 a40109; /* S */ struct w49 a40118; /* S */ struct w49 a40429; /* OBJ */ struct w49 a40441; /* OBJ */ struct w49 a40442; /* OBJ */ struct w49 a40443; /* OBJ */ struct w49 t62745; struct w49 t62746; struct w49 t62747; struct w49 t62748; struct w49 t62749; struct w49 t62750; struct w49 t62751; struct w49 t62752; char *t62753; struct w49 t62754; struct w49 t62755; struct w49 t62756; struct w49 t62757; char *t62758; struct w49 t62759; struct w49 t62760; struct w49 t62761; struct w49 t62762; struct w49 t62763; struct w49 t62764; struct w49 t62765; struct w49 t62766; char *t62767; struct w9140 t62768; struct w9140 t62769; struct w49 t62770; struct w49 t62771; struct w9140 t62772; struct w49 t62773; struct w49 t62774; struct w49 t62775; char *t62776; struct w49 t62777; struct w49 t62778; struct w49 t62779; struct w49 t62780; struct w49 t62781; struct w49 t62782; struct w49 t62783; struct w49 t62784; char *t62785; struct w49 t62786; struct w49 t62787; struct w49 t62788; struct w49 t62789; struct w49 t62790; struct w49 t62791; struct w49 t62792; struct w49 t62793; char *t62794; struct w49 t62795; struct w49 t62796; struct w49 t62797; struct w49 t62798; struct w49 t62799; struct w49 t62800; struct w49 t62801; struct w49 t62802; char *t62803; struct w11873 t62804; struct w49 t62805; struct w49 t62806; struct w49 t62807; struct w49 t62808; struct w11873 t62809; struct w36108 t62810; struct w49 t62811; struct structure_type24753 *t62812; struct w49 t62813; struct w49 t62814; /* x102350 */ /* x101846 stalin.sc:9822:339959 */ /* x101839 stalin.sc:9822:339965 */ /* x101823 stalin.sc:9822:339970 */ /* x101822 stalin.sc:9822:339980 */ t62745 = a23796; /* x101821 stalin.sc:9822:339971 */ if (f6961(t62745)==FALSE_TYPE) goto l9958; /* x101837 */ /* x101828 stalin.sc:9823:339991 */ /* x101827 stalin.sc:9823:340005 */ /* x101826 stalin.sc:9823:340029 */ t62748 = a23796; /* x101825 stalin.sc:9823:340006 */ a40118 = t62748; /* x293141 */ /* x293140 */ t62749 = a40118; /* x293139 */ if (!((t62749.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35035]"); structure_ref_error();} t62746 = t62749.value.structure_type27698->s9; /* x101824 stalin.sc:9823:339992 */ a36767 = t62746; /* x279737 */ /* x279736 */ t62747 = a36767; /* x279735 */ if (!((t62747.tag)==STRUCTURE_TYPE27694)) goto l9958; /* x101835 */ /* x101834 stalin.sc:9824:340046 */ /* x101833 stalin.sc:9824:340055 */ /* x101832 stalin.sc:9824:340079 */ t62751 = a23796; /* x101831 stalin.sc:9824:340056 */ a40109 = t62751; /* x293105 */ /* x293104 */ t62752 = a40109; /* x293103 */ if (!((t62752.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35026]"); structure_ref_error();} t62750 = t62752.value.structure_type27698->s9; /* x101830 stalin.sc:9824:340047 */ if (!((f8899(t62750).tag)==FALSE_TYPE)) goto l9958; /* x101843 */ /* x101842 */ /* x101841 stalin.sc:9825:340090 */ /* x101840 stalin.sc:9825:340091 */ /* x296909 QobiScheme.sc:166:5314 */ /* x296908 QobiScheme.sc:166:5321 */ t62753 = "This shouldn\'t happen"; /* x296907 QobiScheme.sc:166:5315 */ stalin_panic(t62753); goto l9959; l9958: /* x101845 stalin.sc:9822:339959 */ /* x101844 stalin.sc:9822:339959 */ l9959: /* x101871 stalin.sc:9826:340105 */ /* x101864 stalin.sc:9826:340111 */ /* x101847 stalin.sc:9826:340116 */ /* x101870 stalin.sc:9826:340105 */ /* x101869 stalin.sc:9826:340105 */ /* x101890 stalin.sc:9830:340244 */ /* x101883 stalin.sc:9830:340250 */ /* x101874 stalin.sc:9830:340255 */ /* x101873 stalin.sc:9830:340265 */ t62754 = a23796; /* x101872 stalin.sc:9830:340256 */ if (f6961(t62754)==FALSE_TYPE) goto l9964; /* x101881 */ /* x101880 stalin.sc:9830:340273 */ /* x101879 stalin.sc:9830:340289 */ /* x101878 stalin.sc:9830:340310 */ t62756 = a23796; /* x101877 stalin.sc:9830:340290 */ a40021 = t62756; /* x292753 */ /* x292752 */ t62757 = a40021; /* x292751 */ if (!((t62757.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34938]"); structure_ref_error();} t62755 = t62757.value.structure_type27698->s10; /* x101876 stalin.sc:9830:340274 */ if (!(f8117(t62755)==FALSE_TYPE)) goto l9964; /* x101887 */ /* x101886 */ /* x101885 stalin.sc:9831:340321 */ /* x101884 stalin.sc:9831:340322 */ /* x297061 QobiScheme.sc:166:5314 */ /* x297060 QobiScheme.sc:166:5321 */ t62758 = "This shouldn\'t happen"; /* x297059 QobiScheme.sc:166:5315 */ stalin_panic(t62758); goto l9965; l9964: /* x101889 stalin.sc:9830:340244 */ /* x101888 stalin.sc:9830:340244 */ l9965: /* x101913 stalin.sc:9832:340336 */ /* x101906 stalin.sc:9832:340342 */ /* x101891 stalin.sc:9832:340347 */ /* x101912 stalin.sc:9832:340336 */ /* x101911 stalin.sc:9832:340336 */ /* x101939 stalin.sc:9835:340438 */ /* x101932 stalin.sc:9835:340444 */ /* x101916 stalin.sc:9835:340449 */ /* x101915 stalin.sc:9835:340459 */ t62759 = a23796; /* x101914 stalin.sc:9835:340450 */ if (f6961(t62759)==FALSE_TYPE) goto l9969; /* x101930 */ /* x101921 stalin.sc:9836:340470 */ /* x101920 stalin.sc:9836:340483 */ /* x101919 stalin.sc:9836:340502 */ t62762 = a23796; /* x101918 stalin.sc:9836:340484 */ a39828 = t62762; /* x291981 */ /* x291980 */ t62763 = a39828; /* x291979 */ if (!((t62763.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34745]"); structure_ref_error();} t62760 = t62763.value.structure_type27698->s11; /* x101917 stalin.sc:9836:340471 */ a40429 = t62760; /* x294385 */ /* x294384 */ t62761 = a40429; /* x294383 */ if (!((t62761.tag)==STRUCTURE_TYPE27698)) goto l9969; /* x101928 */ /* x101927 stalin.sc:9837:340519 */ /* x101926 stalin.sc:9837:340529 */ /* x101925 stalin.sc:9837:340548 */ t62765 = a23796; /* x101924 stalin.sc:9837:340530 */ a39809 = t62765; /* x291905 */ /* x291904 */ t62766 = a39809; /* x291903 */ if (!((t62766.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34726]"); structure_ref_error();} t62764 = t62766.value.structure_type27698->s11; /* x101923 stalin.sc:9837:340520 */ if (!(f6961(t62764)==FALSE_TYPE)) goto l9969; /* x101936 */ /* x101935 */ /* x101934 stalin.sc:9838:340559 */ /* x101933 stalin.sc:9838:340560 */ /* x296897 QobiScheme.sc:166:5314 */ /* x296896 QobiScheme.sc:166:5321 */ t62767 = "This shouldn\'t happen"; /* x296895 QobiScheme.sc:166:5315 */ stalin_panic(t62767); goto l9970; l9969: /* x101938 stalin.sc:9835:340438 */ /* x101937 stalin.sc:9835:340438 */ l9970: /* x101964 stalin.sc:9839:340574 */ /* x101957 stalin.sc:9839:340580 */ /* x101940 stalin.sc:9839:340585 */ /* x101963 stalin.sc:9839:340574 */ /* x101962 stalin.sc:9839:340574 */ /* x101988 stalin.sc:9844:340729 */ /* x101981 stalin.sc:9844:340735 */ /* x101965 stalin.sc:9844:340740 */ /* x101979 */ /* x101970 stalin.sc:9845:340751 */ /* x101969 stalin.sc:9845:340765 */ /* x101968 stalin.sc:9845:340796 */ t62770 = a23796; /* x101967 stalin.sc:9845:340766 */ a39515 = t62770; /* x290729 */ /* x290728 */ t62771 = a39515; /* x290727 */ if (!((t62771.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34432]"); structure_ref_error();} t62768 = t62771.value.structure_type27698->s13; /* x101966 stalin.sc:9845:340752 */ a36770 = t62768; /* x279749 */ /* x279748 */ t62769 = a36770; /* x279747 */ if (!((t62769.tag)==STRUCTURE_TYPE27694)) goto l9975; /* x101977 */ /* x101976 stalin.sc:9846:340813 */ /* x101975 stalin.sc:9846:340822 */ /* x101974 stalin.sc:9846:340853 */ t62774 = a23796; /* x101973 stalin.sc:9846:340823 */ a39502 = t62774; /* x290677 */ /* x290676 */ t62775 = a39502; /* x290675 */ if (!((t62775.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34419]"); structure_ref_error();} t62772 = t62775.value.structure_type27698->s13; /* x101972 stalin.sc:9846:340814 */ t62773 = *((struct w49 *)(&t62772)); if (!((f8899(t62773).tag)==FALSE_TYPE)) goto l9975; /* x101985 */ /* x101984 */ /* x101983 stalin.sc:9847:340864 */ /* x101982 stalin.sc:9847:340865 */ /* x296925 QobiScheme.sc:166:5314 */ /* x296924 QobiScheme.sc:166:5321 */ t62776 = "This shouldn\'t happen"; /* x296923 QobiScheme.sc:166:5315 */ stalin_panic(t62776); goto l9976; l9975: /* x101987 stalin.sc:9844:340729 */ /* x101986 stalin.sc:9844:340729 */ l9976: /* x102022 stalin.sc:9848:340879 */ /* x102015 stalin.sc:9848:340885 */ /* x101989 stalin.sc:9848:340890 */ /* x102021 stalin.sc:9848:340879 */ /* x102020 stalin.sc:9848:340879 */ /* x102112 stalin.sc:9853:341088 */ /* x102040 stalin.sc:9853:341094 */ /* x102023 stalin.sc:9853:341099 */ /* x102111 stalin.sc:9853:341088 */ /* x102110 stalin.sc:9853:341088 */ /* x102137 stalin.sc:9864:341467 */ /* x102130 stalin.sc:9864:341473 */ /* x102113 stalin.sc:9864:341478 */ /* x102136 stalin.sc:9864:341467 */ /* x102135 stalin.sc:9864:341467 */ /* x102163 stalin.sc:9868:341597 */ /* x102156 stalin.sc:9868:341603 */ /* x102140 stalin.sc:9868:341608 */ /* x102139 stalin.sc:9868:341618 */ t62777 = a23796; /* x102138 stalin.sc:9868:341609 */ if (f6961(t62777)==FALSE_TYPE) goto l9983; /* x102154 */ /* x102145 stalin.sc:9869:341629 */ /* x102144 stalin.sc:9869:341642 */ /* x102143 stalin.sc:9869:341661 */ t62780 = a23796; /* x102142 stalin.sc:9869:341643 */ a39090 = t62780; /* x289029 */ /* x289028 */ t62781 = a39090; /* x289027 */ if (!((t62781.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 34007]"); structure_ref_error();} t62778 = t62781.value.structure_type27698->s17; /* x102141 stalin.sc:9869:341630 */ a40441 = t62778; /* x294433 */ /* x294432 */ t62779 = a40441; /* x294431 */ if (!((t62779.tag)==STRUCTURE_TYPE27698)) goto l9983; /* x102152 */ /* x102151 stalin.sc:9870:341678 */ /* x102150 stalin.sc:9870:341688 */ /* x102149 stalin.sc:9870:341707 */ t62783 = a23796; /* x102148 stalin.sc:9870:341689 */ a39087 = t62783; /* x289017 */ /* x289016 */ t62784 = a39087; /* x289015 */ if (!((t62784.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 34004]"); structure_ref_error();} t62782 = t62784.value.structure_type27698->s17; /* x102147 stalin.sc:9870:341679 */ if (!(f6961(t62782)==FALSE_TYPE)) goto l9983; /* x102160 */ /* x102159 */ /* x102158 stalin.sc:9871:341718 */ /* x102157 stalin.sc:9871:341719 */ /* x296985 QobiScheme.sc:166:5314 */ /* x296984 QobiScheme.sc:166:5321 */ t62785 = "This shouldn\'t happen"; /* x296983 QobiScheme.sc:166:5315 */ stalin_panic(t62785); goto l9984; l9983: /* x102162 stalin.sc:9868:341597 */ /* x102161 stalin.sc:9868:341597 */ l9984: /* x102188 stalin.sc:9872:341733 */ /* x102181 stalin.sc:9872:341739 */ /* x102164 stalin.sc:9872:341744 */ /* x102187 stalin.sc:9872:341733 */ /* x102186 stalin.sc:9872:341733 */ /* x102214 stalin.sc:9876:341861 */ /* x102207 stalin.sc:9876:341867 */ /* x102191 stalin.sc:9876:341872 */ /* x102190 stalin.sc:9876:341882 */ t62786 = a23796; /* x102189 stalin.sc:9876:341873 */ if (f6961(t62786)==FALSE_TYPE) goto l9989; /* x102205 */ /* x102196 stalin.sc:9877:341893 */ /* x102195 stalin.sc:9877:341906 */ /* x102194 stalin.sc:9877:341929 */ t62789 = a23796; /* x102193 stalin.sc:9877:341907 */ a39049 = t62789; /* x288865 */ /* x288864 */ t62790 = a39049; /* x288863 */ if (!((t62790.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33966]"); structure_ref_error();} t62787 = t62790.value.structure_type27698->s18; /* x102192 stalin.sc:9877:341894 */ a40442 = t62787; /* x294437 */ /* x294436 */ t62788 = a40442; /* x294435 */ if (!((t62788.tag)==STRUCTURE_TYPE27698)) goto l9989; /* x102203 */ /* x102202 stalin.sc:9878:341946 */ /* x102201 stalin.sc:9878:341956 */ /* x102200 stalin.sc:9878:341979 */ t62792 = a23796; /* x102199 stalin.sc:9878:341957 */ a39045 = t62792; /* x288849 */ /* x288848 */ t62793 = a39045; /* x288847 */ if (!((t62793.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33962]"); structure_ref_error();} t62791 = t62793.value.structure_type27698->s18; /* x102198 stalin.sc:9878:341947 */ if (!(f6961(t62791)==FALSE_TYPE)) goto l9989; /* x102211 */ /* x102210 */ /* x102209 stalin.sc:9879:341990 */ /* x102208 stalin.sc:9879:341991 */ /* x296989 QobiScheme.sc:166:5314 */ /* x296988 QobiScheme.sc:166:5321 */ t62794 = "This shouldn\'t happen"; /* x296987 QobiScheme.sc:166:5315 */ stalin_panic(t62794); goto l9990; l9989: /* x102213 stalin.sc:9876:341861 */ /* x102212 stalin.sc:9876:341861 */ l9990: /* x102239 stalin.sc:9880:342005 */ /* x102232 stalin.sc:9880:342011 */ /* x102215 stalin.sc:9880:342016 */ /* x102238 stalin.sc:9880:342005 */ /* x102237 stalin.sc:9880:342005 */ /* x102265 stalin.sc:9886:342198 */ /* x102258 stalin.sc:9886:342204 */ /* x102242 stalin.sc:9886:342209 */ /* x102241 stalin.sc:9886:342219 */ t62795 = a23796; /* x102240 stalin.sc:9886:342210 */ if (f6961(t62795)==FALSE_TYPE) goto l9995; /* x102256 */ /* x102247 stalin.sc:9887:342230 */ /* x102246 stalin.sc:9887:342243 */ /* x102245 stalin.sc:9887:342262 */ t62798 = a23796; /* x102244 stalin.sc:9887:342244 */ a38873 = t62798; /* x288161 */ /* x288160 */ t62799 = a38873; /* x288159 */ if (!((t62799.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33790]"); structure_ref_error();} t62796 = t62799.value.structure_type27698->s21; /* x102243 stalin.sc:9887:342231 */ a40443 = t62796; /* x294441 */ /* x294440 */ t62797 = a40443; /* x294439 */ if (!((t62797.tag)==STRUCTURE_TYPE27698)) goto l9995; /* x102254 */ /* x102253 stalin.sc:9888:342279 */ /* x102252 stalin.sc:9888:342289 */ /* x102251 stalin.sc:9888:342308 */ t62801 = a23796; /* x102250 stalin.sc:9888:342290 */ a38865 = t62801; /* x288129 */ /* x288128 */ t62802 = a38865; /* x288127 */ if (!((t62802.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33782]"); structure_ref_error();} t62800 = t62802.value.structure_type27698->s21; /* x102249 stalin.sc:9888:342280 */ if (!(f6961(t62800)==FALSE_TYPE)) goto l9995; /* x102262 */ /* x102261 */ /* x102260 stalin.sc:9889:342319 */ /* x102259 stalin.sc:9889:342320 */ /* x296993 QobiScheme.sc:166:5314 */ /* x296992 QobiScheme.sc:166:5321 */ t62803 = "This shouldn\'t happen"; /* x296991 QobiScheme.sc:166:5315 */ stalin_panic(t62803); goto l9996; l9995: /* x102264 stalin.sc:9886:342198 */ /* x102263 stalin.sc:9886:342198 */ l9996: /* x102290 stalin.sc:9890:342334 */ /* x102283 stalin.sc:9890:342340 */ /* x102266 stalin.sc:9890:342345 */ /* x102289 stalin.sc:9890:342334 */ /* x102288 stalin.sc:9890:342334 */ /* x102349 stalin.sc:9894:342462 */ /* x102295 stalin.sc:9894:342468 */ /* x102294 stalin.sc:9894:342475 */ /* x102293 stalin.sc:9894:342497 */ t62806 = a23796; /* x102292 stalin.sc:9894:342476 */ a38604 = t62806; /* x287085 */ /* x287084 */ t62807 = a38604; /* x287083 */ if (!((t62807.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33521]"); structure_ref_error();} t62804 = t62807.value.structure_type27698->s22; /* x102291 stalin.sc:9894:342469 */ t62805 = *((struct w49 *)(&t62804)); if (f26209(t62805)==FALSE_TYPE) goto l10001; /* x102346 */ /* x102345 */ /* x102344 */ /* x102343 stalin.sc:9895:342506 */ /* x102322 stalin.sc:9895:342512 */ /* x102321 stalin.sc:9895:342522 */ t62808 = a23796; /* x102320 stalin.sc:9895:342513 */ if (f6961(t62808)==FALSE_TYPE) goto l10005; /* x102340 */ /* x102339 */ /* x102338 stalin.sc:9896:342531 */ /* x102337 stalin.sc:9897:342588 */ /* x102336 stalin.sc:9897:342610 */ t62813 = a23796; /* x102335 stalin.sc:9897:342589 */ a38601 = t62813; /* x287073 */ /* x287072 */ t62814 = a38601; /* x287071 */ if (!((t62814.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33518]"); structure_ref_error();} t62809 = t62814.value.structure_type27698->s22; /* x102334 stalin.sc:9896:342541 */ /* x102323 stalin.sc:9896:342532 */ t62810.tag = NATIVE_PROCEDURE_TYPE16782; t62811 = *((struct w49 *)(&t62809)); t62812 = (struct structure_type24753 *)NULL_TYPE; f27755(t62810, t62811, t62812); goto l10006; l10005: /* x102342 stalin.sc:9895:342506 */ /* x102341 stalin.sc:9895:342506 */ l10006: /* x102319 */ /* x102318 stalin.sc:9898:342620 */ /* x102296 stalin.sc:9898:342626 */ /* x102317 stalin.sc:9898:342620 */ /* x102316 stalin.sc:9898:342620 */ goto l10002; l10001: /* x102348 stalin.sc:9894:342462 */ /* x102347 stalin.sc:9894:342462 */ l10002: /* x101820 */ /* x101819 stalin.sc:9902:342764 */ /* x101750 stalin.sc:9902:342770 */ /* x101818 stalin.sc:9902:342764 */ /* x101817 stalin.sc:9902:342764 */ return;} /* [inside CHECK-FOR-CORRUPTION 11176] */ void f11176(struct w49 a23778) {struct w49 t62815; char *t62816; /* x101249 */ /* x101248 stalin.sc:10199:353338 */ /* x101241 stalin.sc:10199:353346 */ /* x101240 stalin.sc:10199:353356 */ t62815 = a23778; /* x101239 stalin.sc:10199:353347 */ if (f6961(t62815)==FALSE_TYPE) goto l10009; /* x101243 */ /* x101242 */ goto l10010; l10009: /* x101247 */ /* x101246 */ /* x101245 stalin.sc:10199:353359 */ /* x101244 stalin.sc:10199:353360 */ /* x296349 QobiScheme.sc:166:5314 */ /* x296348 QobiScheme.sc:166:5321 */ t62816 = "This shouldn\'t happen"; /* x296347 QobiScheme.sc:166:5315 */ stalin_panic(t62816); l10010: /* x101238 */ /* x101237 stalin.sc:10200:353373 */ /* x101230 stalin.sc:10200:353379 */ /* x101222 stalin.sc:10200:353384 */ /* x101236 stalin.sc:10200:353373 */ /* x101235 stalin.sc:10200:353373 */ return;} /* [inside CHECK-FOR-CORRUPTION 11168] */ void f11168(struct w49 a23776) {struct w49 t62817; char *t62818; /* x101203 */ /* x101202 stalin.sc:10193:353093 */ /* x101195 stalin.sc:10193:353101 */ /* x101194 stalin.sc:10193:353111 */ t62817 = a23776; /* x101193 stalin.sc:10193:353102 */ if (f6961(t62817)==FALSE_TYPE) goto l10013; /* x101197 */ /* x101196 */ goto l10014; l10013: /* x101201 */ /* x101200 */ /* x101199 stalin.sc:10193:353114 */ /* x101198 stalin.sc:10193:353115 */ /* x296345 QobiScheme.sc:166:5314 */ /* x296344 QobiScheme.sc:166:5321 */ t62818 = "This shouldn\'t happen"; /* x296343 QobiScheme.sc:166:5315 */ stalin_panic(t62818); l10014: /* x101192 */ /* x101191 stalin.sc:10194:353128 */ /* x101184 stalin.sc:10194:353134 */ /* x101176 stalin.sc:10194:353139 */ /* x101190 stalin.sc:10194:353128 */ /* x101189 stalin.sc:10194:353128 */ return;} /* [inside CHECK-FOR-CORRUPTION 11160] */ void f11160(struct w49 a23774) {struct w49 t62819; char *t62820; /* x101157 */ /* x101156 stalin.sc:10187:352832 */ /* x101149 stalin.sc:10187:352840 */ /* x101148 stalin.sc:10187:352859 */ t62819 = a23774; /* x101147 stalin.sc:10187:352841 */ if (f8526(t62819)==FALSE_TYPE) goto l10017; /* x101151 */ /* x101150 */ goto l10018; l10017: /* x101155 */ /* x101154 */ /* x101153 stalin.sc:10187:352863 */ /* x101152 stalin.sc:10187:352864 */ /* x296341 QobiScheme.sc:166:5314 */ /* x296340 QobiScheme.sc:166:5321 */ t62820 = "This shouldn\'t happen"; /* x296339 QobiScheme.sc:166:5315 */ stalin_panic(t62820); l10018: /* x101146 */ /* x101145 stalin.sc:10188:352877 */ /* x101138 stalin.sc:10188:352883 */ /* x101130 stalin.sc:10188:352888 */ /* x101144 stalin.sc:10188:352877 */ /* x101143 stalin.sc:10188:352877 */ return;} /* [inside CHECK-FOR-CORRUPTION 11152] */ void f11152(struct w49 a23772) {struct w49 t62821; char *t62822; /* x101111 */ /* x101110 stalin.sc:10181:352562 */ /* x101103 stalin.sc:10181:352570 */ /* x101102 stalin.sc:10181:352589 */ t62821 = a23772; /* x101101 stalin.sc:10181:352571 */ if (f8526(t62821)==FALSE_TYPE) goto l10021; /* x101105 */ /* x101104 */ goto l10022; l10021: /* x101109 */ /* x101108 */ /* x101107 stalin.sc:10181:352593 */ /* x101106 stalin.sc:10181:352594 */ /* x296337 QobiScheme.sc:166:5314 */ /* x296336 QobiScheme.sc:166:5321 */ t62822 = "This shouldn\'t happen"; /* x296335 QobiScheme.sc:166:5315 */ stalin_panic(t62822); l10022: /* x101100 */ /* x101099 stalin.sc:10182:352607 */ /* x101092 stalin.sc:10182:352613 */ /* x101084 stalin.sc:10182:352618 */ /* x101098 stalin.sc:10182:352607 */ /* x101097 stalin.sc:10182:352607 */ return;} /* [inside CHECK-FOR-CORRUPTION 11144] */ void f11144(struct w49 a23770) {struct w49 t62823; char *t62824; /* x101065 */ /* x101064 stalin.sc:10175:352292 */ /* x101057 stalin.sc:10175:352300 */ /* x101056 stalin.sc:10175:352319 */ t62823 = a23770; /* x101055 stalin.sc:10175:352301 */ if (f8526(t62823)==FALSE_TYPE) goto l10025; /* x101059 */ /* x101058 */ goto l10026; l10025: /* x101063 */ /* x101062 */ /* x101061 stalin.sc:10175:352323 */ /* x101060 stalin.sc:10175:352324 */ /* x296333 QobiScheme.sc:166:5314 */ /* x296332 QobiScheme.sc:166:5321 */ t62824 = "This shouldn\'t happen"; /* x296331 QobiScheme.sc:166:5315 */ stalin_panic(t62824); l10026: /* x101054 */ /* x101053 stalin.sc:10176:352337 */ /* x101046 stalin.sc:10176:352343 */ /* x101038 stalin.sc:10176:352348 */ /* x101052 stalin.sc:10176:352337 */ /* x101051 stalin.sc:10176:352337 */ return;} /* [inside CHECK-FOR-CORRUPTION 11136] */ void f11136(struct w49 a23768) {struct w49 t62825; char *t62826; /* x101019 */ /* x101018 stalin.sc:10169:352022 */ /* x101011 stalin.sc:10169:352030 */ /* x101010 stalin.sc:10169:352049 */ t62825 = a23768; /* x101009 stalin.sc:10169:352031 */ if (f8526(t62825)==FALSE_TYPE) goto l10029; /* x101013 */ /* x101012 */ goto l10030; l10029: /* x101017 */ /* x101016 */ /* x101015 stalin.sc:10169:352053 */ /* x101014 stalin.sc:10169:352054 */ /* x296329 QobiScheme.sc:166:5314 */ /* x296328 QobiScheme.sc:166:5321 */ t62826 = "This shouldn\'t happen"; /* x296327 QobiScheme.sc:166:5315 */ stalin_panic(t62826); l10030: /* x101008 */ /* x101007 stalin.sc:10170:352067 */ /* x101000 stalin.sc:10170:352073 */ /* x100992 stalin.sc:10170:352078 */ /* x101006 stalin.sc:10170:352067 */ /* x101005 stalin.sc:10170:352067 */ return;} /* [inside CHECK-FOR-CORRUPTION 11121] */ void f11121(struct w49 a23766) {struct w49 a36599; /* S */ struct w49 t62827; struct w49 t62828; struct w49 t62829; char *t62830; /* x100907 */ /* x100906 stalin.sc:10150:351292 */ /* x100899 stalin.sc:10150:351300 */ /* x100898 stalin.sc:10150:351309 */ /* x100897 stalin.sc:10150:351339 */ t62828 = a23766; /* x100896 stalin.sc:10150:351310 */ a36599 = t62828; /* x279065 */ /* x279064 */ t62829 = a36599; /* x279063 */ if (!((t62829.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NARROW-PROTOTYPE[6743] 31516]"); structure_ref_error();} t62827 = t62829.value.structure_type27694->s14; /* x100895 stalin.sc:10150:351301 */ if ((f8899(t62827).tag)==FALSE_TYPE) goto l10033; /* x100901 */ /* x100900 */ goto l10034; l10033: /* x100905 */ /* x100904 */ /* x100903 stalin.sc:10150:351343 */ /* x100902 stalin.sc:10150:351344 */ /* x296317 QobiScheme.sc:166:5314 */ /* x296316 QobiScheme.sc:166:5321 */ t62830 = "This shouldn\'t happen"; /* x296315 QobiScheme.sc:166:5315 */ stalin_panic(t62830); l10034: /* x100894 */ /* x100893 stalin.sc:10151:351355 */ /* x100886 stalin.sc:10151:351361 */ /* x100867 stalin.sc:10151:351366 */ /* x100892 stalin.sc:10151:351355 */ /* x100891 stalin.sc:10151:351355 */ return;} /* [inside CHECK-FOR-CORRUPTION 11097] */ void f11097(struct w49 a23763) {struct w49 a36455; /* S */ struct w49 t62831; struct w49 t62832; struct w49 t62833; struct w49 t62834; char *t62835; /* x100689 */ /* x100688 stalin.sc:10104:349762 */ /* x100681 stalin.sc:10104:349770 */ /* x100680 stalin.sc:10104:349774 */ /* x100679 stalin.sc:10104:349796 */ t62831 = a23763; /* x100678 stalin.sc:10104:349775 */ if (!(f8751(t62831)==FALSE_TYPE)) goto l10036; /* x100675 */ /* x100674 stalin.sc:10105:349816 */ /* x100673 stalin.sc:10105:349838 */ t62833 = a23763; /* x100672 stalin.sc:10105:349817 */ a36455 = t62833; /* x278489 */ /* x278488 */ t62834 = a36455; /* x278487 */ if (!((t62834.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31372]"); structure_ref_error();} t62832 = t62834.value.structure_type27745->s0; /* x100671 stalin.sc:10105:349807 */ if (f6961(t62832)==FALSE_TYPE) goto l10037; l10036: /* x100683 */ /* x100682 */ goto l10038; l10037: /* x100687 */ /* x100686 */ /* x100685 stalin.sc:10106:349846 */ /* x100684 stalin.sc:10106:349847 */ /* x296265 QobiScheme.sc:166:5314 */ /* x296264 QobiScheme.sc:166:5321 */ t62835 = "This shouldn\'t happen"; /* x296263 QobiScheme.sc:166:5315 */ stalin_panic(t62835); l10038: /* x100668 */ /* x100667 stalin.sc:10107:349859 */ /* x100660 stalin.sc:10107:349865 */ /* x100643 stalin.sc:10107:349870 */ /* x100666 stalin.sc:10107:349859 */ /* x100665 stalin.sc:10107:349859 */ return;} /* [inside CHECK-FOR-CORRUPTION 11088] */ void f11088(struct w49 a23741) {struct w49 a20668; /* S */ struct w49 a20678; /* S */ struct w49 a20688; /* S */ struct w49 a36540; /* S */ struct w49 a36541; /* S */ struct w49 a36543; /* S */ struct w49 a36544; /* S */ struct w49 a36551; /* S */ struct w49 a36552; /* S */ struct w49 a36561; /* S */ struct w49 a36562; /* S */ struct w49 a36571; /* S */ struct w49 a36572; /* S */ struct w49 a36578; /* S */ struct w49 a36579; /* S */ struct w49 a36585; /* S */ struct w49 a36586; /* S */ struct w49 a36590; /* S */ struct w49 a36591; /* S */ struct w49 a36593; /* S */ struct w49 a36594; /* S */ struct w49 a36595; /* S */ struct w49 a36596; /* S */ struct w49 a36597; /* S */ struct w49 a36598; /* S */ struct w49 a36600; /* S */ struct w49 a36684; /* S */ struct w49 a36685; /* S */ struct w49 a36686; /* S */ struct w49 a36687; /* S */ struct w6852 a39943; /* S */ struct w6852 a39944; /* S */ struct w3467 a41058; /* E */ struct w3467 a42432; /* OBJ */ struct w49 t62836; struct w49 t62837; struct w49 t62838; struct w49 t62839; struct w49 t62840; struct w49 t62841; char *t62842; struct w49 t62843; struct w49 t62844; struct w6852 t62845; struct w49 t62846; struct w49 t62847; struct w49 t62848; char *t62849; struct structure_type24753 *t62850; struct w36108 t62851; struct w49 t62852; struct structure_type24753 *t62853; struct w49 t62854; struct w3467 t62855; struct w3467 t62856; struct w3467 t62857; struct w49 t62858; struct w3467 t62859; struct w49 t62860; struct w49 t62861; char *t62862; struct w49 t62863; struct w49 t62864; struct w49 t62865; struct w49 t62866; struct w49 t62867; struct w49 t62868; struct w49 t62869; struct w49 t62870; char *t62871; struct w49 t62872; struct w49 t62873; struct w6852 t62874; struct w6852 t62875; struct w49 t62876; struct w49 t62877; struct w6852 t62878; struct w6852 t62879; struct w49 t62880; struct w49 t62881; struct w49 t62882; struct w49 t62883; char *t62884; struct w49 t62885; struct w49 t62886; struct w49 t62887; struct w49 t62888; struct w11873 t62889; struct w49 t62890; struct w49 t62891; char *t62892; struct w49 t62893; struct w11873 t62894; struct w49 t62895; struct w49 t62896; struct w49 t62897; struct w49 t62898; struct w49 t62899; char *t62900; struct w49 t62901; struct w49 t62902; struct w49 t62903; char *t62904; struct w11873 t62905; struct w36108 t62906; struct w49 t62907; struct structure_type24753 *t62908; struct w49 t62909; struct w49 t62910; struct w49 t62911; struct w49 t62912; struct w49 t62913; struct w49 t62914; struct w49 t62915; struct w49 t62916; struct w49 t62917; struct w49 t62918; char *t62919; struct w49 t62920; struct w49 t62921; struct w49 t62922; char *t62923; struct w3457 t62924; char *t62925; struct w49 t62926; struct w49 t62927; struct w3457 t62928; struct w36108 t62929; struct w49 t62930; struct structure_type24753 *t62931; struct w49 t62932; struct w49 t62933; struct w3457 t62934; char *t62935; struct w49 t62936; struct w49 t62937; struct w3457 t62938; struct w36108 t62939; struct w49 t62940; struct structure_type24753 *t62941; struct w49 t62942; struct w49 t62943; struct w3457 t62944; char *t62945; struct w49 t62946; struct w49 t62947; struct w3457 t62948; struct w36108 t62949; struct w49 t62950; struct structure_type24753 *t62951; struct w49 t62952; struct w49 t62953; struct w3457 t62954; char *t62955; struct w49 t62956; struct w49 t62957; struct w3457 t62958; struct w36108 t62959; struct w49 t62960; struct structure_type24753 *t62961; struct w49 t62962; struct w49 t62963; struct w11873 t62964; char *t62965; struct w49 t62966; struct w49 t62967; struct w11873 t62968; struct w36108 t62969; struct w49 t62970; struct structure_type24753 *t62971; struct w49 t62972; struct w49 t62973; struct w11873 t62974; char *t62975; struct w49 t62976; struct w49 t62977; struct w11873 t62978; struct w36108 t62979; struct w49 t62980; struct structure_type24753 *t62981; struct w49 t62982; struct w49 t62983; /* x101263 stalin.sc:10095:349484 */ /* x100581 stalin.sc:10095:349490 */ /* x100580 stalin.sc:10095:349509 */ t62836 = a23741; /* x100579 stalin.sc:10095:349491 */ if (f8526(t62836)==FALSE_TYPE) goto l10041; /* x101260 */ /* x101259 */ /* x101258 */ /* x100618 stalin.sc:10096:349517 */ /* x100611 stalin.sc:10096:349523 */ /* x100602 stalin.sc:10096:349528 */ /* x100601 stalin.sc:10096:349552 */ t62843 = a23741; /* x100600 stalin.sc:10096:349529 */ a36685 = t62843; /* x279409 */ /* x279408 */ t62844 = a36685; /* x279407 */ if (!((t62844.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31602]"); structure_ref_error();} /* x100609 */ /* x100608 stalin.sc:10097:349562 */ /* x100607 stalin.sc:10097:349572 */ /* x100606 stalin.sc:10097:349596 */ t62847 = a23741; /* x100605 stalin.sc:10097:349573 */ a36684 = t62847; /* x279405 */ /* x279404 */ t62848 = a36684; /* x279403 */ if (!((t62848.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31601]"); structure_ref_error();} t62845 = t62848.value.structure_type27694->s1; /* x100604 stalin.sc:10097:349563 */ t62846 = *((struct w49 *)(&t62845)); if (!(f6961(t62846)==FALSE_TYPE)) goto l10045; /* x100615 */ /* x100614 */ /* x100613 stalin.sc:10098:349608 */ /* x100612 stalin.sc:10098:349609 */ /* x296261 QobiScheme.sc:166:5314 */ /* x296260 QobiScheme.sc:166:5321 */ t62849 = "This shouldn\'t happen"; /* x296259 QobiScheme.sc:166:5315 */ stalin_panic(t62849); goto l10046; l10045: /* x100617 stalin.sc:10096:349517 */ /* x100616 stalin.sc:10096:349517 */ l10046: /* x100641 stalin.sc:10099:349624 */ /* x100634 stalin.sc:10099:349630 */ /* x100619 stalin.sc:10099:349635 */ /* x100640 stalin.sc:10099:349624 */ /* x100639 stalin.sc:10099:349624 */ /* x100694 stalin.sc:10103:349738 */ /* x100693 stalin.sc:10111:349984 */ /* x100692 stalin.sc:10111:349996 */ t62854 = a23741; /* x100691 stalin.sc:10111:349985 */ t62850 = f8615(t62854); /* x100690 */ /* x100642 stalin.sc:10103:349739 */ t62851.tag = NATIVE_PROCEDURE_TYPE19403; /* MOVE: branching squeezed to general */ if (t62850>=((struct structure_type24753 *)VALUE_OFFSET)) {t62852.tag = STRUCTURE_TYPE24753; t62852.value.structure_type24753 = t62850;} else t62852.tag = (unsigned)t62850; t62853 = (struct structure_type24753 *)NULL_TYPE; f27755(t62851, t62852, t62853); /* x100715 stalin.sc:10112:350005 */ /* x100708 stalin.sc:10112:350011 */ /* x100699 stalin.sc:10112:350016 */ /* x100698 stalin.sc:10112:350036 */ /* x100697 stalin.sc:10112:350048 */ t62858 = a23741; /* x100696 stalin.sc:10112:350037 */ t62855 = f8619(t62858); /* x100695 stalin.sc:10112:350017 */ a41058 = t62855; /* x298344 stalin.sc:13171:462008 */ /* x298343 stalin.sc:13171:462022 */ t62856 = a41058; /* x298342 stalin.sc:13171:462009 */ a42432 = t62856; /* x303594 */ /* x303593 */ t62857 = a42432; /* x303592 */ if (!((t62857.tag)==STRUCTURE_TYPE27694)) goto l10050; /* x100706 */ /* x100705 stalin.sc:10113:350059 */ /* x100704 stalin.sc:10113:350068 */ /* x100703 stalin.sc:10113:350080 */ t62861 = a23741; /* x100702 stalin.sc:10113:350069 */ t62859 = f8619(t62861); /* x100701 stalin.sc:10113:350060 */ t62860 = *((struct w49 *)(&t62859)); if (!((f8899(t62860).tag)==FALSE_TYPE)) goto l10050; /* x100712 */ /* x100711 */ /* x100710 stalin.sc:10114:350092 */ /* x100709 stalin.sc:10114:350093 */ /* x296269 QobiScheme.sc:166:5314 */ /* x296268 QobiScheme.sc:166:5321 */ t62862 = "This shouldn\'t happen"; /* x296267 QobiScheme.sc:166:5315 */ stalin_panic(t62862); goto l10051; l10050: /* x100714 stalin.sc:10112:350005 */ /* x100713 stalin.sc:10112:350005 */ l10051: /* x100740 stalin.sc:10115:350108 */ /* x100733 stalin.sc:10115:350114 */ /* x100716 stalin.sc:10115:350119 */ /* x100739 stalin.sc:10115:350108 */ /* x100738 stalin.sc:10115:350108 */ /* x100757 stalin.sc:10126:350466 */ /* x100750 stalin.sc:10126:350474 */ /* x100746 stalin.sc:10126:350479 */ /* x100745 stalin.sc:10127:350514 */ /* x100744 stalin.sc:10127:350544 */ t62867 = a23741; /* x100743 stalin.sc:10127:350515 */ a36593 = t62867; /* x279041 */ /* x279040 */ t62868 = a36593; /* x279039 */ if (!((t62868.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NARROW-PROTOTYPE[6743] 31510]"); structure_ref_error();} t62865 = t62868.value.structure_type27694->s14; /* x100742 stalin.sc:10126:350480 */ a20668 = t62865; /* x55886 */ /* x55885 */ t62866 = a20668; /* x55884 */ if (!((t62866.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("ENVIRONMENT-NARROW-PROTOTYPE[6743]"); structure_ref_error();} t62863 = t62866.value.structure_type27694->s14; /* x100749 stalin.sc:10128:350552 */ /* x100748 stalin.sc:10128:350582 */ t62869 = a23741; /* x100747 stalin.sc:10128:350553 */ a36594 = t62869; /* x279045 */ /* x279044 */ t62870 = a36594; /* x279043 */ if (!((t62870.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NARROW-PROTOTYPE[6743] 31511]"); structure_ref_error();} t62864 = t62870.value.structure_type27694->s14; /* x269628 stalin.sc:10126:350475 */ /* EQ: dispatching general to general */ if (!((t62863.tag)==(t62864.tag))) goto l10055; switch (t62863.tag) {case FIXNUM_TYPE: if (!((t62863.value.fixnum_type)==(t62864.value.fixnum_type))) goto l10055; break; case FLONUM_TYPE: if (!((t62863.value.flonum_type)==(t62864.value.flonum_type))) goto l10055; break; case INPUT_PORT_TYPE: if (!((t62863.value.input_port_type)==(t62864.value.input_port_type))) goto l10055; break; case OUTPUT_PORT_TYPE: if (!((t62863.value.output_port_type)==(t62864.value.output_port_type))) goto l10055; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t62863.value.native_procedure_type15963)==(t62864.value.native_procedure_type15963))) goto l10055; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t62863.value.native_procedure_type19067)==(t62864.value.native_procedure_type19067))) goto l10055; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t62863.value.native_procedure_type19068)==(t62864.value.native_procedure_type19068))) goto l10055; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t62863.value.native_procedure_type22459)==(t62864.value.native_procedure_type22459))) goto l10055; break; case STRUCTURE_TYPE24753: if (!((t62863.value.structure_type24753)==(t62864.value.structure_type24753))) goto l10055; break; case STRUCTURE_TYPE24757: if (!((t62863.value.structure_type24757)==(t62864.value.structure_type24757))) goto l10055; break; case STRUCTURE_TYPE27501: if (!((t62863.value.structure_type27501)==(t62864.value.structure_type27501))) goto l10055; break; case STRUCTURE_TYPE27510: if (!((t62863.value.structure_type27510)==(t62864.value.structure_type27510))) goto l10055; break; case STRUCTURE_TYPE27621: if (!((t62863.value.structure_type27621)==(t62864.value.structure_type27621))) goto l10055; break; case STRUCTURE_TYPE27650: if (!((t62863.value.structure_type27650)==(t62864.value.structure_type27650))) goto l10055; break; case STRUCTURE_TYPE27669: if (!((t62863.value.structure_type27669)==(t62864.value.structure_type27669))) goto l10055; break; case STRUCTURE_TYPE27673: if (!((t62863.value.structure_type27673)==(t62864.value.structure_type27673))) goto l10055; break; case STRUCTURE_TYPE27692: if (!((t62863.value.structure_type27692)==(t62864.value.structure_type27692))) goto l10055; break; case STRUCTURE_TYPE27694: if (!((t62863.value.structure_type27694)==(t62864.value.structure_type27694))) goto l10055; break; case STRUCTURE_TYPE27698: if (!((t62863.value.structure_type27698)==(t62864.value.structure_type27698))) goto l10055; break; case STRUCTURE_TYPE27745: if (!((t62863.value.structure_type27745)==(t62864.value.structure_type27745))) goto l10055; break; case STRUCTURE_TYPE27747: if (!((t62863.value.structure_type27747)==(t62864.value.structure_type27747))) goto l10055; break; case STRUCTURE_TYPE27750: if (!((t62863.value.structure_type27750)==(t62864.value.structure_type27750))) goto l10055; break; case STRUCTURE_TYPE27753: if (!((t62863.value.structure_type27753)==(t62864.value.structure_type27753))) goto l10055; break; case STRUCTURE_TYPE27756: if (!((t62863.value.structure_type27756)==(t62864.value.structure_type27756))) goto l10055; break; case STRUCTURE_TYPE27761: if (!((t62863.value.structure_type27761)==(t62864.value.structure_type27761))) goto l10055; break; case STRUCTURE_TYPE27769: if (!((t62863.value.structure_type27769)==(t62864.value.structure_type27769))) goto l10055; break; case STRUCTURE_TYPE27776: if (!((t62863.value.structure_type27776)==(t62864.value.structure_type27776))) goto l10055; break; case STRUCTURE_TYPE27779: if (!((t62863.value.structure_type27779)==(t62864.value.structure_type27779))) goto l10055; break; case STRUCTURE_TYPE27858: if (!((t62863.value.structure_type27858)==(t62864.value.structure_type27858))) goto l10055; break; case STRING_TYPE: if (!((t62863.value.string_type)==(t62864.value.string_type))) goto l10055; break; case HEADED_VECTOR_TYPE27896: if (!((t62863.value.headed_vector_type27896)==(t62864.value.headed_vector_type27896))) goto l10055; break; case EXTERNAL_SYMBOL_TYPE: if (!((t62863.value.external_symbol_type)==(t62864.value.external_symbol_type))) goto l10055; break; case STRUCTURE_TYPE27908: if (!((t62863.value.structure_type27908)==(t62864.value.structure_type27908))) goto l10055; break; default:;} /* x100752 */ /* x100751 */ goto l10056; l10055: /* x100756 */ /* x100755 */ /* x100754 stalin.sc:10129:350592 */ /* x100753 stalin.sc:10129:350593 */ /* x296297 QobiScheme.sc:166:5314 */ /* x296296 QobiScheme.sc:166:5321 */ t62871 = "This shouldn\'t happen"; /* x296295 QobiScheme.sc:166:5315 */ stalin_panic(t62871); l10056: /* x100778 stalin.sc:10130:350608 */ /* x100771 stalin.sc:10130:350616 */ /* x100763 stalin.sc:10130:350621 */ /* x100762 stalin.sc:10130:350642 */ /* x100761 stalin.sc:10130:350666 */ t62876 = a23741; /* x100760 stalin.sc:10130:350643 */ a36686 = t62876; /* x279413 */ /* x279412 */ t62877 = a36686; /* x279411 */ if (!((t62877.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31603]"); structure_ref_error();} t62874 = t62877.value.structure_type27694->s1; /* x100759 stalin.sc:10130:350622 */ a39943 = t62874; /* x292441 */ /* x292440 */ t62875 = a39943; /* x292439 */ if (!((t62875.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34860]"); structure_ref_error();} t62872 = t62875.value.structure_type27698->s10; /* x100770 stalin.sc:10131:350674 */ /* x100769 stalin.sc:10132:350700 */ /* x100768 stalin.sc:10132:350724 */ /* x100767 stalin.sc:10132:350754 */ t62882 = a23741; /* x100766 stalin.sc:10132:350725 */ a36595 = t62882; /* x279049 */ /* x279048 */ t62883 = a36595; /* x279047 */ if (!((t62883.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NARROW-PROTOTYPE[6743] 31512]"); structure_ref_error();} t62880 = t62883.value.structure_type27694->s14; /* x100765 stalin.sc:10132:350701 */ a36687 = t62880; /* x279417 */ /* x279416 */ t62881 = a36687; /* x279415 */ if (!((t62881.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31604]"); structure_ref_error();} t62878 = t62881.value.structure_type27694->s1; /* x100764 stalin.sc:10131:350675 */ a39944 = t62878; /* x292445 */ /* x292444 */ t62879 = a39944; /* x292443 */ if (!((t62879.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34861]"); structure_ref_error();} t62873 = t62879.value.structure_type27698->s10; /* x269627 stalin.sc:10130:350617 */ /* EQ: dispatching general to general */ if (!((t62872.tag)==(t62873.tag))) goto l10058; switch (t62872.tag) {case FIXNUM_TYPE: if (!((t62872.value.fixnum_type)==(t62873.value.fixnum_type))) goto l10058; break; case FLONUM_TYPE: if (!((t62872.value.flonum_type)==(t62873.value.flonum_type))) goto l10058; break; case INPUT_PORT_TYPE: if (!((t62872.value.input_port_type)==(t62873.value.input_port_type))) goto l10058; break; case OUTPUT_PORT_TYPE: if (!((t62872.value.output_port_type)==(t62873.value.output_port_type))) goto l10058; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t62872.value.native_procedure_type15963)==(t62873.value.native_procedure_type15963))) goto l10058; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t62872.value.native_procedure_type19067)==(t62873.value.native_procedure_type19067))) goto l10058; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t62872.value.native_procedure_type19068)==(t62873.value.native_procedure_type19068))) goto l10058; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t62872.value.native_procedure_type22459)==(t62873.value.native_procedure_type22459))) goto l10058; break; case STRUCTURE_TYPE24753: if (!((t62872.value.structure_type24753)==(t62873.value.structure_type24753))) goto l10058; break; case STRUCTURE_TYPE24757: if (!((t62872.value.structure_type24757)==(t62873.value.structure_type24757))) goto l10058; break; case STRUCTURE_TYPE27501: if (!((t62872.value.structure_type27501)==(t62873.value.structure_type27501))) goto l10058; break; case STRUCTURE_TYPE27510: if (!((t62872.value.structure_type27510)==(t62873.value.structure_type27510))) goto l10058; break; case STRUCTURE_TYPE27621: if (!((t62872.value.structure_type27621)==(t62873.value.structure_type27621))) goto l10058; break; case STRUCTURE_TYPE27650: if (!((t62872.value.structure_type27650)==(t62873.value.structure_type27650))) goto l10058; break; case STRUCTURE_TYPE27669: if (!((t62872.value.structure_type27669)==(t62873.value.structure_type27669))) goto l10058; break; case STRUCTURE_TYPE27673: if (!((t62872.value.structure_type27673)==(t62873.value.structure_type27673))) goto l10058; break; case STRUCTURE_TYPE27692: if (!((t62872.value.structure_type27692)==(t62873.value.structure_type27692))) goto l10058; break; case STRUCTURE_TYPE27694: if (!((t62872.value.structure_type27694)==(t62873.value.structure_type27694))) goto l10058; break; case STRUCTURE_TYPE27698: if (!((t62872.value.structure_type27698)==(t62873.value.structure_type27698))) goto l10058; break; case STRUCTURE_TYPE27745: if (!((t62872.value.structure_type27745)==(t62873.value.structure_type27745))) goto l10058; break; case STRUCTURE_TYPE27747: if (!((t62872.value.structure_type27747)==(t62873.value.structure_type27747))) goto l10058; break; case STRUCTURE_TYPE27750: if (!((t62872.value.structure_type27750)==(t62873.value.structure_type27750))) goto l10058; break; case STRUCTURE_TYPE27753: if (!((t62872.value.structure_type27753)==(t62873.value.structure_type27753))) goto l10058; break; case STRUCTURE_TYPE27756: if (!((t62872.value.structure_type27756)==(t62873.value.structure_type27756))) goto l10058; break; case STRUCTURE_TYPE27761: if (!((t62872.value.structure_type27761)==(t62873.value.structure_type27761))) goto l10058; break; case STRUCTURE_TYPE27769: if (!((t62872.value.structure_type27769)==(t62873.value.structure_type27769))) goto l10058; break; case STRUCTURE_TYPE27776: if (!((t62872.value.structure_type27776)==(t62873.value.structure_type27776))) goto l10058; break; case STRUCTURE_TYPE27779: if (!((t62872.value.structure_type27779)==(t62873.value.structure_type27779))) goto l10058; break; case STRUCTURE_TYPE27858: if (!((t62872.value.structure_type27858)==(t62873.value.structure_type27858))) goto l10058; break; case STRING_TYPE: if (!((t62872.value.string_type)==(t62873.value.string_type))) goto l10058; break; case HEADED_VECTOR_TYPE27896: if (!((t62872.value.headed_vector_type27896)==(t62873.value.headed_vector_type27896))) goto l10058; break; case EXTERNAL_SYMBOL_TYPE: if (!((t62872.value.external_symbol_type)==(t62873.value.external_symbol_type))) goto l10058; break; case STRUCTURE_TYPE27908: if (!((t62872.value.structure_type27908)==(t62873.value.structure_type27908))) goto l10058; break; default:;} /* x100773 */ /* x100772 */ goto l10059; l10058: /* x100777 */ /* x100776 */ /* x100775 stalin.sc:10133:350766 */ /* x100774 stalin.sc:10133:350767 */ /* x296301 QobiScheme.sc:166:5314 */ /* x296300 QobiScheme.sc:166:5321 */ t62884 = "This shouldn\'t happen"; /* x296299 QobiScheme.sc:166:5315 */ stalin_panic(t62884); l10059: /* x100802 stalin.sc:10134:350782 */ /* x100795 stalin.sc:10134:350788 */ /* x100786 stalin.sc:10134:350793 */ /* x100785 stalin.sc:10134:350798 */ /* x100781 stalin.sc:10134:350803 */ t62885 = a23741; /* x100784 stalin.sc:10134:350805 */ /* x100783 stalin.sc:10134:350835 */ t62887 = a23741; /* x100782 stalin.sc:10134:350806 */ a36596 = t62887; /* x279053 */ /* x279052 */ t62888 = a36596; /* x279051 */ if (!((t62888.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NARROW-PROTOTYPE[6743] 31513]"); structure_ref_error();} t62886 = t62888.value.structure_type27694->s14; /* x269625 stalin.sc:10134:350799 */ /* EQ: dispatching general to general */ if ((t62885.tag)==(t62886.tag)) switch (t62885.tag) {case FIXNUM_TYPE: if ((t62885.value.fixnum_type)==(t62886.value.fixnum_type)) goto l10061; break; case FLONUM_TYPE: if ((t62885.value.flonum_type)==(t62886.value.flonum_type)) goto l10061; break; case INPUT_PORT_TYPE: if ((t62885.value.input_port_type)==(t62886.value.input_port_type)) goto l10061; break; case OUTPUT_PORT_TYPE: if ((t62885.value.output_port_type)==(t62886.value.output_port_type)) goto l10061; break; case NATIVE_PROCEDURE_TYPE15963: if ((t62885.value.native_procedure_type15963)==(t62886.value.native_procedure_type15963)) goto l10061; break; case NATIVE_PROCEDURE_TYPE19067: if ((t62885.value.native_procedure_type19067)==(t62886.value.native_procedure_type19067)) goto l10061; break; case NATIVE_PROCEDURE_TYPE19068: if ((t62885.value.native_procedure_type19068)==(t62886.value.native_procedure_type19068)) goto l10061; break; case NATIVE_PROCEDURE_TYPE22459: if ((t62885.value.native_procedure_type22459)==(t62886.value.native_procedure_type22459)) goto l10061; break; case STRUCTURE_TYPE24753: if ((t62885.value.structure_type24753)==(t62886.value.structure_type24753)) goto l10061; break; case STRUCTURE_TYPE24757: if ((t62885.value.structure_type24757)==(t62886.value.structure_type24757)) goto l10061; break; case STRUCTURE_TYPE27501: if ((t62885.value.structure_type27501)==(t62886.value.structure_type27501)) goto l10061; break; case STRUCTURE_TYPE27510: if ((t62885.value.structure_type27510)==(t62886.value.structure_type27510)) goto l10061; break; case STRUCTURE_TYPE27621: if ((t62885.value.structure_type27621)==(t62886.value.structure_type27621)) goto l10061; break; case STRUCTURE_TYPE27650: if ((t62885.value.structure_type27650)==(t62886.value.structure_type27650)) goto l10061; break; case STRUCTURE_TYPE27669: if ((t62885.value.structure_type27669)==(t62886.value.structure_type27669)) goto l10061; break; case STRUCTURE_TYPE27673: if ((t62885.value.structure_type27673)==(t62886.value.structure_type27673)) goto l10061; break; case STRUCTURE_TYPE27692: if ((t62885.value.structure_type27692)==(t62886.value.structure_type27692)) goto l10061; break; case STRUCTURE_TYPE27694: if ((t62885.value.structure_type27694)==(t62886.value.structure_type27694)) goto l10061; break; case STRUCTURE_TYPE27698: if ((t62885.value.structure_type27698)==(t62886.value.structure_type27698)) goto l10061; break; case STRUCTURE_TYPE27745: if ((t62885.value.structure_type27745)==(t62886.value.structure_type27745)) goto l10061; break; case STRUCTURE_TYPE27747: if ((t62885.value.structure_type27747)==(t62886.value.structure_type27747)) goto l10061; break; case STRUCTURE_TYPE27750: if ((t62885.value.structure_type27750)==(t62886.value.structure_type27750)) goto l10061; break; case STRUCTURE_TYPE27753: if ((t62885.value.structure_type27753)==(t62886.value.structure_type27753)) goto l10061; break; case STRUCTURE_TYPE27756: if ((t62885.value.structure_type27756)==(t62886.value.structure_type27756)) goto l10061; break; case STRUCTURE_TYPE27761: if ((t62885.value.structure_type27761)==(t62886.value.structure_type27761)) goto l10061; break; case STRUCTURE_TYPE27769: if ((t62885.value.structure_type27769)==(t62886.value.structure_type27769)) goto l10061; break; case STRUCTURE_TYPE27776: if ((t62885.value.structure_type27776)==(t62886.value.structure_type27776)) goto l10061; break; case STRUCTURE_TYPE27779: if ((t62885.value.structure_type27779)==(t62886.value.structure_type27779)) goto l10061; break; case STRUCTURE_TYPE27858: if ((t62885.value.structure_type27858)==(t62886.value.structure_type27858)) goto l10061; break; case STRING_TYPE: if ((t62885.value.string_type)==(t62886.value.string_type)) goto l10061; break; case HEADED_VECTOR_TYPE27896: if ((t62885.value.headed_vector_type27896)==(t62886.value.headed_vector_type27896)) goto l10061; break; case EXTERNAL_SYMBOL_TYPE: if ((t62885.value.external_symbol_type)==(t62886.value.external_symbol_type)) goto l10061; break; case STRUCTURE_TYPE27908: if ((t62885.value.structure_type27908)==(t62886.value.structure_type27908)) goto l10061; break; default: goto l10061;} /* x100793 */ /* x100792 stalin.sc:10135:350847 */ /* x100791 stalin.sc:10135:350854 */ /* x100790 stalin.sc:10135:350881 */ t62890 = a23741; /* x100789 stalin.sc:10135:350855 */ a20678 = t62890; /* x55925 */ /* x55924 */ t62891 = a20678; /* x55923 */ if (!((t62891.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("ENVIRONMENT-NARROW-CLONES[6751]"); structure_ref_error();} t62889 = t62891.value.structure_type27694->s15; /* x269623 stalin.sc:10135:350848 */ if ((t62889.tag)==NULL_TYPE) goto l10061; /* x100799 */ /* x100798 */ /* x100797 stalin.sc:10136:350893 */ /* x100796 stalin.sc:10136:350894 */ /* x296305 QobiScheme.sc:166:5314 */ /* x296304 QobiScheme.sc:166:5321 */ t62892 = "This shouldn\'t happen"; /* x296303 QobiScheme.sc:166:5315 */ stalin_panic(t62892); goto l10062; l10061: /* x100801 stalin.sc:10134:350782 */ /* x100800 stalin.sc:10134:350782 */ l10062: /* x100817 stalin.sc:10137:350909 */ /* x100810 stalin.sc:10137:350917 */ /* x100804 stalin.sc:10138:350930 */ t62893 = a23741; /* x100809 stalin.sc:10138:350932 */ /* x100808 stalin.sc:10138:350959 */ /* x100807 stalin.sc:10138:350989 */ t62898 = a23741; /* x100806 stalin.sc:10138:350960 */ a36597 = t62898; /* x279057 */ /* x279056 */ t62899 = a36597; /* x279055 */ if (!((t62899.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NARROW-PROTOTYPE[6743] 31514]"); structure_ref_error();} t62896 = t62899.value.structure_type27694->s14; /* x100805 stalin.sc:10138:350933 */ a36590 = t62896; /* x279029 */ /* x279028 */ t62897 = a36590; /* x279027 */ if (!((t62897.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NARROW-CLONES[6751] 31507]"); structure_ref_error();} t62894 = t62897.value.structure_type27694->s15; /* x100803 stalin.sc:10137:350918 */ t62895 = *((struct w49 *)(&t62894)); if ((f26351(t62893, t62895).tag)==FALSE_TYPE) goto l10065; /* x100812 */ /* x100811 */ goto l10066; l10065: /* x100816 */ /* x100815 */ /* x100814 stalin.sc:10139:351000 */ /* x100813 stalin.sc:10139:351001 */ /* x296309 QobiScheme.sc:166:5314 */ /* x296308 QobiScheme.sc:166:5321 */ t62900 = "This shouldn\'t happen"; /* x296307 QobiScheme.sc:166:5315 */ stalin_panic(t62900); l10066: /* x100834 stalin.sc:10140:351016 */ /* x100827 stalin.sc:10140:351022 */ /* x100818 stalin.sc:10140:351027 */ /* x100825 */ /* x100824 stalin.sc:10140:351035 */ /* x100823 stalin.sc:10140:351044 */ /* x100822 stalin.sc:10140:351074 */ t62902 = a23741; /* x100821 stalin.sc:10140:351045 */ a36598 = t62902; /* x279061 */ /* x279060 */ t62903 = a36598; /* x279059 */ if (!((t62903.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NARROW-PROTOTYPE[6743] 31515]"); structure_ref_error();} t62901 = t62903.value.structure_type27694->s14; /* x100820 stalin.sc:10140:351036 */ if (!((f8899(t62901).tag)==FALSE_TYPE)) goto l10068; /* x100831 */ /* x100830 */ /* x100829 stalin.sc:10141:351086 */ /* x100828 stalin.sc:10141:351087 */ /* x296313 QobiScheme.sc:166:5314 */ /* x296312 QobiScheme.sc:166:5321 */ t62904 = "This shouldn\'t happen"; /* x296311 QobiScheme.sc:166:5315 */ stalin_panic(t62904); goto l10069; l10068: /* x100833 stalin.sc:10140:351016 */ /* x100832 stalin.sc:10140:351016 */ l10069: /* x100864 stalin.sc:10142:351102 */ /* x100857 stalin.sc:10142:351108 */ /* x100835 stalin.sc:10142:351113 */ /* x100855 */ /* x100836 stalin.sc:10143:351118 */ /* x100863 stalin.sc:10142:351102 */ /* x100862 stalin.sc:10142:351102 */ /* x100917 stalin.sc:10147:351247 */ /* x100865 stalin.sc:10147:351253 */ /* x100914 */ /* x100913 */ /* x100912 stalin.sc:10148:351262 */ /* x100911 stalin.sc:10155:351500 */ /* x100910 stalin.sc:10155:351527 */ t62909 = a23741; /* x100909 stalin.sc:10155:351501 */ a36591 = t62909; /* x279033 */ /* x279032 */ t62910 = a36591; /* x279031 */ if (!((t62910.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NARROW-CLONES[6751] 31508]"); structure_ref_error();} t62905 = t62910.value.structure_type27694->s15; /* x100908 */ /* x100866 stalin.sc:10148:351263 */ t62906.tag = NATIVE_PROCEDURE_TYPE19296; t62907 = *((struct w49 *)(&t62905)); t62908 = (struct structure_type24753 *)NULL_TYPE; f27755(t62906, t62907, t62908); /* x100934 stalin.sc:10156:351537 */ /* x100927 stalin.sc:10156:351545 */ /* x100923 stalin.sc:10156:351550 */ /* x100922 stalin.sc:10156:351580 */ /* x100921 stalin.sc:10156:351608 */ t62915 = a23741; /* x100920 stalin.sc:10156:351581 */ a20688 = t62915; /* x55964 */ /* x55963 */ t62916 = a20688; /* x55962 */ if (!((t62916.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("ENVIRONMENT-WIDE-PROTOTYPE[6759]"); structure_ref_error();} t62913 = t62916.value.structure_type27694->s16; /* x100919 stalin.sc:10156:351551 */ a36600 = t62913; /* x279069 */ /* x279068 */ t62914 = a36600; /* x279067 */ if (!((t62914.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NARROW-PROTOTYPE[6743] 31517]"); structure_ref_error();} t62911 = t62914.value.structure_type27694->s14; /* x100926 stalin.sc:10157:351616 */ /* x100925 stalin.sc:10157:351644 */ t62917 = a23741; /* x100924 stalin.sc:10157:351617 */ a36585 = t62917; /* x279009 */ /* x279008 */ t62918 = a36585; /* x279007 */ if (!((t62918.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-WIDE-PROTOTYPE[6759] 31502]"); structure_ref_error();} t62912 = t62918.value.structure_type27694->s16; /* x269617 stalin.sc:10156:351546 */ /* EQ: dispatching general to general */ if (!((t62911.tag)==(t62912.tag))) goto l10075; switch (t62911.tag) {case FIXNUM_TYPE: if (!((t62911.value.fixnum_type)==(t62912.value.fixnum_type))) goto l10075; break; case FLONUM_TYPE: if (!((t62911.value.flonum_type)==(t62912.value.flonum_type))) goto l10075; break; case INPUT_PORT_TYPE: if (!((t62911.value.input_port_type)==(t62912.value.input_port_type))) goto l10075; break; case OUTPUT_PORT_TYPE: if (!((t62911.value.output_port_type)==(t62912.value.output_port_type))) goto l10075; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t62911.value.native_procedure_type15963)==(t62912.value.native_procedure_type15963))) goto l10075; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t62911.value.native_procedure_type19067)==(t62912.value.native_procedure_type19067))) goto l10075; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t62911.value.native_procedure_type19068)==(t62912.value.native_procedure_type19068))) goto l10075; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t62911.value.native_procedure_type22459)==(t62912.value.native_procedure_type22459))) goto l10075; break; case STRUCTURE_TYPE24753: if (!((t62911.value.structure_type24753)==(t62912.value.structure_type24753))) goto l10075; break; case STRUCTURE_TYPE24757: if (!((t62911.value.structure_type24757)==(t62912.value.structure_type24757))) goto l10075; break; case STRUCTURE_TYPE27501: if (!((t62911.value.structure_type27501)==(t62912.value.structure_type27501))) goto l10075; break; case STRUCTURE_TYPE27510: if (!((t62911.value.structure_type27510)==(t62912.value.structure_type27510))) goto l10075; break; case STRUCTURE_TYPE27621: if (!((t62911.value.structure_type27621)==(t62912.value.structure_type27621))) goto l10075; break; case STRUCTURE_TYPE27650: if (!((t62911.value.structure_type27650)==(t62912.value.structure_type27650))) goto l10075; break; case STRUCTURE_TYPE27669: if (!((t62911.value.structure_type27669)==(t62912.value.structure_type27669))) goto l10075; break; case STRUCTURE_TYPE27673: if (!((t62911.value.structure_type27673)==(t62912.value.structure_type27673))) goto l10075; break; case STRUCTURE_TYPE27692: if (!((t62911.value.structure_type27692)==(t62912.value.structure_type27692))) goto l10075; break; case STRUCTURE_TYPE27694: if (!((t62911.value.structure_type27694)==(t62912.value.structure_type27694))) goto l10075; break; case STRUCTURE_TYPE27698: if (!((t62911.value.structure_type27698)==(t62912.value.structure_type27698))) goto l10075; break; case STRUCTURE_TYPE27745: if (!((t62911.value.structure_type27745)==(t62912.value.structure_type27745))) goto l10075; break; case STRUCTURE_TYPE27747: if (!((t62911.value.structure_type27747)==(t62912.value.structure_type27747))) goto l10075; break; case STRUCTURE_TYPE27750: if (!((t62911.value.structure_type27750)==(t62912.value.structure_type27750))) goto l10075; break; case STRUCTURE_TYPE27753: if (!((t62911.value.structure_type27753)==(t62912.value.structure_type27753))) goto l10075; break; case STRUCTURE_TYPE27756: if (!((t62911.value.structure_type27756)==(t62912.value.structure_type27756))) goto l10075; break; case STRUCTURE_TYPE27761: if (!((t62911.value.structure_type27761)==(t62912.value.structure_type27761))) goto l10075; break; case STRUCTURE_TYPE27769: if (!((t62911.value.structure_type27769)==(t62912.value.structure_type27769))) goto l10075; break; case STRUCTURE_TYPE27776: if (!((t62911.value.structure_type27776)==(t62912.value.structure_type27776))) goto l10075; break; case STRUCTURE_TYPE27779: if (!((t62911.value.structure_type27779)==(t62912.value.structure_type27779))) goto l10075; break; case STRUCTURE_TYPE27858: if (!((t62911.value.structure_type27858)==(t62912.value.structure_type27858))) goto l10075; break; case STRING_TYPE: if (!((t62911.value.string_type)==(t62912.value.string_type))) goto l10075; break; case HEADED_VECTOR_TYPE27896: if (!((t62911.value.headed_vector_type27896)==(t62912.value.headed_vector_type27896))) goto l10075; break; case EXTERNAL_SYMBOL_TYPE: if (!((t62911.value.external_symbol_type)==(t62912.value.external_symbol_type))) goto l10075; break; case STRUCTURE_TYPE27908: if (!((t62911.value.structure_type27908)==(t62912.value.structure_type27908))) goto l10075; break; default:;} /* x100929 */ /* x100928 */ goto l10076; l10075: /* x100933 */ /* x100932 */ /* x100931 stalin.sc:10158:351654 */ /* x100930 stalin.sc:10158:351655 */ /* x296321 QobiScheme.sc:166:5314 */ /* x296320 QobiScheme.sc:166:5321 */ t62919 = "This shouldn\'t happen"; /* x296319 QobiScheme.sc:166:5315 */ stalin_panic(t62919); l10076: /* x100951 stalin.sc:10159:351670 */ /* x100944 stalin.sc:10159:351676 */ /* x100935 stalin.sc:10159:351681 */ /* x100942 */ /* x100941 stalin.sc:10159:351689 */ /* x100940 stalin.sc:10159:351698 */ /* x100939 stalin.sc:10159:351726 */ t62921 = a23741; /* x100938 stalin.sc:10159:351699 */ a36586 = t62921; /* x279013 */ /* x279012 */ t62922 = a36586; /* x279011 */ if (!((t62922.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-WIDE-PROTOTYPE[6759] 31503]"); structure_ref_error();} t62920 = t62922.value.structure_type27694->s16; /* x100937 stalin.sc:10159:351690 */ if (!((f8899(t62920).tag)==FALSE_TYPE)) goto l10078; /* x100948 */ /* x100947 */ /* x100946 stalin.sc:10160:351738 */ /* x100945 stalin.sc:10160:351739 */ /* x296325 QobiScheme.sc:166:5314 */ /* x296324 QobiScheme.sc:166:5321 */ t62923 = "This shouldn\'t happen"; /* x296323 QobiScheme.sc:166:5315 */ stalin_panic(t62923); goto l10079; l10078: /* x100950 stalin.sc:10159:351670 */ /* x100949 stalin.sc:10159:351670 */ l10079: /* x100981 stalin.sc:10161:351754 */ /* x100974 stalin.sc:10161:351760 */ /* x100952 stalin.sc:10161:351765 */ /* x100972 */ /* x100953 stalin.sc:10162:351770 */ /* x100980 stalin.sc:10161:351754 */ /* x100979 stalin.sc:10161:351754 */ /* x101027 stalin.sc:10167:351926 */ /* x100988 stalin.sc:10167:351934 */ /* x100985 stalin.sc:10167:351939 */ /* x100984 stalin.sc:10167:351972 */ t62926 = a23741; /* x100983 stalin.sc:10167:351940 */ a36579 = t62926; /* x278985 */ /* x278984 */ t62927 = a36579; /* x278983 */ if (!((t62927.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLERS[6767] 31496]"); structure_ref_error();} t62924 = t62927.value.structure_type27694->s17; /* x100987 stalin.sc:10167:351975 */ /* x100986 stalin.sc:10167:351976 */ /* x277151 stalin.sc:323:8604 */ t62925 = q35; /* x269613 stalin.sc:10167:351935 */ if (!(((t62924.tag)==EXTERNAL_SYMBOL_TYPE)&&((t62924.value.external_symbol_type)==t62925))) goto l10084; /* x100990 */ /* x100989 */ goto l10085; l10084: /* x101026 */ /* x101025 */ /* x101024 stalin.sc:10168:351996 */ /* x101023 stalin.sc:10171:352118 */ /* x101022 stalin.sc:10171:352151 */ t62932 = a23741; /* x101021 stalin.sc:10171:352119 */ a36578 = t62932; /* x278981 */ /* x278980 */ t62933 = a36578; /* x278979 */ if (!((t62933.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLERS[6767] 31495]"); structure_ref_error();} t62928 = t62933.value.structure_type27694->s17; /* x101020 */ /* x100991 stalin.sc:10168:351997 */ t62929.tag = NATIVE_PROCEDURE_TYPE19284; t62930 = *((struct w49 *)(&t62928)); t62931 = (struct structure_type24753 *)NULL_TYPE; f27755(t62929, t62930, t62931); l10085: /* x101073 stalin.sc:10173:352192 */ /* x101034 stalin.sc:10173:352200 */ /* x101031 stalin.sc:10173:352205 */ /* x101030 stalin.sc:10173:352242 */ t62936 = a23741; /* x101029 stalin.sc:10173:352206 */ a36572 = t62936; /* x278957 */ /* x278956 */ t62937 = a36572; /* x278955 */ if (!((t62937.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-NON-TAIL-CALLERS[6775] 31489]"); structure_ref_error();} t62934 = t62937.value.structure_type27694->s18; /* x101033 stalin.sc:10173:352245 */ /* x101032 stalin.sc:10173:352246 */ /* x277153 stalin.sc:323:8604 */ t62935 = q35; /* x269611 stalin.sc:10173:352201 */ if (!(((t62934.tag)==EXTERNAL_SYMBOL_TYPE)&&((t62934.value.external_symbol_type)==t62935))) goto l10087; /* x101036 */ /* x101035 */ goto l10088; l10087: /* x101072 */ /* x101071 */ /* x101070 stalin.sc:10174:352266 */ /* x101069 stalin.sc:10177:352388 */ /* x101068 stalin.sc:10177:352425 */ t62942 = a23741; /* x101067 stalin.sc:10177:352389 */ a36571 = t62942; /* x278953 */ /* x278952 */ t62943 = a36571; /* x278951 */ if (!((t62943.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-NON-TAIL-CALLERS[6775] 31488]"); structure_ref_error();} t62938 = t62943.value.structure_type27694->s18; /* x101066 */ /* x101037 stalin.sc:10174:352267 */ t62939.tag = NATIVE_PROCEDURE_TYPE19277; t62940 = *((struct w49 *)(&t62938)); t62941 = (struct structure_type24753 *)NULL_TYPE; f27755(t62939, t62940, t62941); l10088: /* x101119 stalin.sc:10179:352466 */ /* x101080 stalin.sc:10179:352474 */ /* x101077 stalin.sc:10179:352479 */ /* x101076 stalin.sc:10179:352512 */ t62946 = a23741; /* x101075 stalin.sc:10179:352480 */ a36562 = t62946; /* x278917 */ /* x278916 */ t62947 = a36562; /* x278915 */ if (!((t62947.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLEES[6783] 31479]"); structure_ref_error();} t62944 = t62947.value.structure_type27694->s19; /* x101079 stalin.sc:10179:352515 */ /* x101078 stalin.sc:10179:352516 */ /* x277155 stalin.sc:323:8604 */ t62945 = q35; /* x269609 stalin.sc:10179:352475 */ if (!(((t62944.tag)==EXTERNAL_SYMBOL_TYPE)&&((t62944.value.external_symbol_type)==t62945))) goto l10090; /* x101082 */ /* x101081 */ goto l10091; l10090: /* x101118 */ /* x101117 */ /* x101116 stalin.sc:10180:352536 */ /* x101115 stalin.sc:10183:352658 */ /* x101114 stalin.sc:10183:352691 */ t62952 = a23741; /* x101113 stalin.sc:10183:352659 */ a36561 = t62952; /* x278913 */ /* x278912 */ t62953 = a36561; /* x278911 */ if (!((t62953.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLEES[6783] 31478]"); structure_ref_error();} t62948 = t62953.value.structure_type27694->s19; /* x101112 */ /* x101083 stalin.sc:10180:352537 */ t62949.tag = NATIVE_PROCEDURE_TYPE19270; t62950 = *((struct w49 *)(&t62948)); t62951 = (struct structure_type24753 *)NULL_TYPE; f27755(t62949, t62950, t62951); l10091: /* x101165 stalin.sc:10185:352732 */ /* x101126 stalin.sc:10185:352740 */ /* x101123 stalin.sc:10185:352745 */ /* x101122 stalin.sc:10185:352782 */ t62956 = a23741; /* x101121 stalin.sc:10185:352746 */ a36552 = t62956; /* x278877 */ /* x278876 */ t62957 = a36552; /* x278875 */ if (!((t62957.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-NON-TAIL-CALLEES[6791] 31469]"); structure_ref_error();} t62954 = t62957.value.structure_type27694->s20; /* x101125 stalin.sc:10185:352785 */ /* x101124 stalin.sc:10185:352786 */ /* x277157 stalin.sc:323:8604 */ t62955 = q35; /* x269607 stalin.sc:10185:352741 */ if (!(((t62954.tag)==EXTERNAL_SYMBOL_TYPE)&&((t62954.value.external_symbol_type)==t62955))) goto l10093; /* x101128 */ /* x101127 */ goto l10094; l10093: /* x101164 */ /* x101163 */ /* x101162 stalin.sc:10186:352806 */ /* x101161 stalin.sc:10189:352928 */ /* x101160 stalin.sc:10189:352965 */ t62962 = a23741; /* x101159 stalin.sc:10189:352929 */ a36551 = t62962; /* x278873 */ /* x278872 */ t62963 = a36551; /* x278871 */ if (!((t62963.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-NON-TAIL-CALLEES[6791] 31468]"); structure_ref_error();} t62958 = t62963.value.structure_type27694->s20; /* x101158 */ /* x101129 stalin.sc:10186:352807 */ t62959.tag = NATIVE_PROCEDURE_TYPE19263; t62960 = *((struct w49 *)(&t62958)); t62961 = (struct structure_type24753 *)NULL_TYPE; f27755(t62959, t62960, t62961); l10094: /* x101211 stalin.sc:10191:353006 */ /* x101172 stalin.sc:10191:353014 */ /* x101169 stalin.sc:10191:353019 */ /* x101168 stalin.sc:10191:353044 */ t62966 = a23741; /* x101167 stalin.sc:10191:353020 */ a36544 = t62966; /* x278845 */ /* x278844 */ t62967 = a36544; /* x278843 */ if (!((t62967.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSIONS[6807] 31461]"); structure_ref_error();} t62964 = t62967.value.structure_type27694->s22; /* x101171 stalin.sc:10191:353047 */ /* x101170 stalin.sc:10191:353048 */ /* x277159 stalin.sc:323:8604 */ t62965 = q35; /* x269605 stalin.sc:10191:353015 */ if (!(((t62964.tag)==EXTERNAL_SYMBOL_TYPE)&&((t62964.value.external_symbol_type)==t62965))) goto l10096; /* x101174 */ /* x101173 */ goto l10097; l10096: /* x101210 */ /* x101209 */ /* x101208 stalin.sc:10192:353068 */ /* x101207 stalin.sc:10195:353178 */ /* x101206 stalin.sc:10195:353203 */ t62972 = a23741; /* x101205 stalin.sc:10195:353179 */ a36543 = t62972; /* x278841 */ /* x278840 */ t62973 = a36543; /* x278839 */ if (!((t62973.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSIONS[6807] 31460]"); structure_ref_error();} t62968 = t62973.value.structure_type27694->s22; /* x101204 */ /* x101175 stalin.sc:10192:353069 */ t62969.tag = NATIVE_PROCEDURE_TYPE19256; t62970 = *((struct w49 *)(&t62968)); t62971 = (struct structure_type24753 *)NULL_TYPE; f27755(t62969, t62970, t62971); l10097: /* x101257 stalin.sc:10197:353244 */ /* x101218 stalin.sc:10197:353252 */ /* x101215 stalin.sc:10197:353257 */ /* x101214 stalin.sc:10197:353289 */ t62976 = a23741; /* x101213 stalin.sc:10197:353258 */ a36541 = t62976; /* x278833 */ /* x278832 */ t62977 = a36541; /* x278831 */ if (!((t62977.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-CONTINUATION-CALLS[6815] 31458]"); structure_ref_error();} t62974 = t62977.value.structure_type27694->s23; /* x101217 stalin.sc:10197:353292 */ /* x101216 stalin.sc:10197:353293 */ /* x277161 stalin.sc:323:8604 */ t62975 = q35; /* x269603 stalin.sc:10197:353253 */ if (!(((t62974.tag)==EXTERNAL_SYMBOL_TYPE)&&((t62974.value.external_symbol_type)==t62975))) goto l10099; /* x101220 */ /* x101219 */ goto l10100; l10099: /* x101256 */ /* x101255 */ /* x101254 stalin.sc:10198:353313 */ /* x101253 stalin.sc:10201:353423 */ /* x101252 stalin.sc:10201:353455 */ t62982 = a23741; /* x101251 stalin.sc:10201:353424 */ a36540 = t62982; /* x278829 */ /* x278828 */ t62983 = a36540; /* x278827 */ if (!((t62983.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-CONTINUATION-CALLS[6815] 31457]"); structure_ref_error();} t62978 = t62983.value.structure_type27694->s23; /* x101250 */ /* x101221 stalin.sc:10198:353314 */ t62979.tag = NATIVE_PROCEDURE_TYPE19249; t62980 = *((struct w49 *)(&t62978)); t62981 = (struct structure_type24753 *)NULL_TYPE; f27755(t62979, t62980, t62981); l10100: /* x100599 */ /* x100598 stalin.sc:10204:353554 */ /* x100591 stalin.sc:10204:353562 */ /* x100585 stalin.sc:10204:353567 */ /* x100584 stalin.sc:10204:353575 */ t62839 = a23741; /* x100583 stalin.sc:10204:353568 */ t62837 = f8682(t62839); /* x100590 stalin.sc:10204:353578 */ /* x100589 stalin.sc:10204:353586 */ /* x100588 stalin.sc:10204:353604 */ t62841 = a23741; /* x100587 stalin.sc:10204:353587 */ t62840 = f8966(t62841); /* x100586 stalin.sc:10204:353579 */ t62838 = f8682(t62840); /* x269635 stalin.sc:10204:353563 */ /* EQ: dispatching general to general */ if (!((t62837.tag)==(t62838.tag))) goto l10043; switch (t62837.tag) {case FIXNUM_TYPE: if (!((t62837.value.fixnum_type)==(t62838.value.fixnum_type))) goto l10043; break; case FLONUM_TYPE: if (!((t62837.value.flonum_type)==(t62838.value.flonum_type))) goto l10043; break; case INPUT_PORT_TYPE: if (!((t62837.value.input_port_type)==(t62838.value.input_port_type))) goto l10043; break; case OUTPUT_PORT_TYPE: if (!((t62837.value.output_port_type)==(t62838.value.output_port_type))) goto l10043; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t62837.value.native_procedure_type15963)==(t62838.value.native_procedure_type15963))) goto l10043; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t62837.value.native_procedure_type19067)==(t62838.value.native_procedure_type19067))) goto l10043; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t62837.value.native_procedure_type19068)==(t62838.value.native_procedure_type19068))) goto l10043; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t62837.value.native_procedure_type22459)==(t62838.value.native_procedure_type22459))) goto l10043; break; case STRUCTURE_TYPE24753: if (!((t62837.value.structure_type24753)==(t62838.value.structure_type24753))) goto l10043; break; case STRUCTURE_TYPE24757: if (!((t62837.value.structure_type24757)==(t62838.value.structure_type24757))) goto l10043; break; case STRUCTURE_TYPE27501: if (!((t62837.value.structure_type27501)==(t62838.value.structure_type27501))) goto l10043; break; case STRUCTURE_TYPE27510: if (!((t62837.value.structure_type27510)==(t62838.value.structure_type27510))) goto l10043; break; case STRUCTURE_TYPE27621: if (!((t62837.value.structure_type27621)==(t62838.value.structure_type27621))) goto l10043; break; case STRUCTURE_TYPE27650: if (!((t62837.value.structure_type27650)==(t62838.value.structure_type27650))) goto l10043; break; case STRUCTURE_TYPE27669: if (!((t62837.value.structure_type27669)==(t62838.value.structure_type27669))) goto l10043; break; case STRUCTURE_TYPE27673: if (!((t62837.value.structure_type27673)==(t62838.value.structure_type27673))) goto l10043; break; case STRUCTURE_TYPE27692: if (!((t62837.value.structure_type27692)==(t62838.value.structure_type27692))) goto l10043; break; case STRUCTURE_TYPE27694: if (!((t62837.value.structure_type27694)==(t62838.value.structure_type27694))) goto l10043; break; case STRUCTURE_TYPE27698: if (!((t62837.value.structure_type27698)==(t62838.value.structure_type27698))) goto l10043; break; case STRUCTURE_TYPE27745: if (!((t62837.value.structure_type27745)==(t62838.value.structure_type27745))) goto l10043; break; case STRUCTURE_TYPE27747: if (!((t62837.value.structure_type27747)==(t62838.value.structure_type27747))) goto l10043; break; case STRUCTURE_TYPE27750: if (!((t62837.value.structure_type27750)==(t62838.value.structure_type27750))) goto l10043; break; case STRUCTURE_TYPE27753: if (!((t62837.value.structure_type27753)==(t62838.value.structure_type27753))) goto l10043; break; case STRUCTURE_TYPE27756: if (!((t62837.value.structure_type27756)==(t62838.value.structure_type27756))) goto l10043; break; case STRUCTURE_TYPE27761: if (!((t62837.value.structure_type27761)==(t62838.value.structure_type27761))) goto l10043; break; case STRUCTURE_TYPE27769: if (!((t62837.value.structure_type27769)==(t62838.value.structure_type27769))) goto l10043; break; case STRUCTURE_TYPE27776: if (!((t62837.value.structure_type27776)==(t62838.value.structure_type27776))) goto l10043; break; case STRUCTURE_TYPE27779: if (!((t62837.value.structure_type27779)==(t62838.value.structure_type27779))) goto l10043; break; case STRUCTURE_TYPE27858: if (!((t62837.value.structure_type27858)==(t62838.value.structure_type27858))) goto l10043; break; case STRING_TYPE: if (!((t62837.value.string_type)==(t62838.value.string_type))) goto l10043; break; case HEADED_VECTOR_TYPE27896: if (!((t62837.value.headed_vector_type27896)==(t62838.value.headed_vector_type27896))) goto l10043; break; case EXTERNAL_SYMBOL_TYPE: if (!((t62837.value.external_symbol_type)==(t62838.value.external_symbol_type))) goto l10043; break; case STRUCTURE_TYPE27908: if (!((t62837.value.structure_type27908)==(t62838.value.structure_type27908))) goto l10043; break; default:;} /* x100593 */ /* x100592 */ return; l10043: /* x100597 */ /* x100596 */ /* x100595 stalin.sc:10204:353609 */ /* x100594 stalin.sc:10204:353610 */ /* x296257 QobiScheme.sc:166:5314 */ /* x296256 QobiScheme.sc:166:5321 */ t62842 = "This shouldn\'t happen"; /* x296255 QobiScheme.sc:166:5315 */ stalin_panic(t62842); l10041: /* x101262 stalin.sc:10095:349484 */ /* x101261 stalin.sc:10095:349484 */ return;} /* CHECK-FOR-CORRUPTION[11083] */ void f11083(void) {struct w49 a37391; /* S */ struct w49 a37435; /* OBJ */ struct w49 a37768; /* OBJ */ struct w49 a37769; /* OBJ */ struct w21193 t62984; struct w36108 t62985; struct w49 t62986; struct structure_type24753 *t62987; struct w49 t62988; struct w49 t62989; struct structure_type27650 *t62990; struct w49 t62991; struct w49 t62992; struct w49 t62993; struct w49 t62994; struct w49 t62995; struct w49 t62996; struct structure_type27650 *t62997; struct w49 t62998; char *t62999; struct structure_type27650 *t63000; struct w49 t63001; char *t63002; struct w49 t63003; struct structure_type27650 *t63004; struct w49 t63005; char *t63006; struct w49 t63007; struct structure_type27650 *t63008; struct w49 t63009; char *t63010; struct w49 t63011; struct structure_type27650 *t63012; struct w49 t63013; char *t63014; struct w49 t63015; struct structure_type27650 *t63016; struct w49 t63017; char *t63018; struct w49 t63019; struct structure_type27650 *t63020; struct w49 t63021; char *t63022; struct w49 t63023; struct structure_type27650 *t63024; struct w49 t63025; char *t63026; struct w49 t63027; struct w49 t63028; struct structure_type27650 *t63029; struct w49 t63030; char *t63031; struct w49 t63032; struct structure_type27650 *t63033; struct w49 t63034; char *t63035; struct w49 t63036; struct structure_type27650 *t63037; struct w49 t63038; char *t63039; struct w49 t63040; struct structure_type27650 *t63041; struct w49 t63042; char *t63043; struct w21193 t63044; struct w36108 t63045; struct w49 t63046; struct structure_type24753 *t63047; struct w21193 t63048; struct w36108 t63049; struct w49 t63050; struct structure_type24753 *t63051; struct w21193 t63052; struct w36108 t63053; struct w49 t63054; struct structure_type24753 *t63055; struct w21193 t63056; struct w36108 t63057; struct w49 t63058; struct structure_type24753 *t63059; struct w21193 t63060; struct w36108 t63061; struct w49 t63062; struct structure_type24753 *t63063; struct w21193 t63064; struct w36108 t63065; struct w49 t63066; struct structure_type24753 *t63067; struct w21193 t63068; struct w36108 t63069; struct w49 t63070; struct structure_type24753 *t63071; struct w21193 t63072; struct w36108 t63073; struct w49 t63074; struct structure_type24753 *t63075; struct w21193 t63076; struct w36108 t63077; struct w49 t63078; struct structure_type24753 *t63079; struct w21193 t63080; struct w36108 t63081; struct w49 t63082; struct structure_type24753 *t63083; struct w21193 t63084; struct w36108 t63085; struct w49 t63086; struct structure_type24753 *t63087; /* x103594 */ /* x103593 */ /* x103592 */ /* x103591 */ /* x103590 */ /* x103589 */ /* x103588 */ /* x103474 */ /* x103473 stalin.sc:9759:337559 */ /* x103468 stalin.sc:9763:337670 */ /* x103469 stalin.sc:9762:337645 */ /* x103470 stalin.sc:9761:337620 */ /* x103471 stalin.sc:9760:337595 */ /* x103472 stalin.sc:9759:337570 */ /* x103467 */ /* x103466 */ /* x101290 stalin.sc:9764:337685 */ /* x101283 stalin.sc:9764:337693 */ /* x101272 stalin.sc:9765:337702 */ /* x101271 stalin.sc:9765:337726 */ /* x101270 stalin.sc:9765:337738 */ t62990 = a1678; /* x101269 stalin.sc:9765:337727 */ /* MOVE: branching squeezed to general */ if (t62990>=((struct structure_type27650 *)VALUE_OFFSET)) {t62991.tag = STRUCTURE_TYPE27650; t62991.value.structure_type27650 = t62990;} else t62991.tag = (unsigned)t62990; t62988 = f8153(t62991); /* x101268 stalin.sc:9765:337703 */ a37435 = t62988; /* x282409 */ /* x282408 */ t62989 = a37435; /* x282407 */ if (!((t62989.tag)==STRUCTURE_TYPE27669)) goto l10102; /* x101281 */ /* x101280 stalin.sc:9767:337768 */ /* x101279 stalin.sc:9767:337780 */ /* x101278 stalin.sc:9767:337811 */ /* x101277 stalin.sc:9767:337823 */ t62997 = a1678; /* x101276 stalin.sc:9767:337812 */ /* MOVE: branching squeezed to general */ if (t62997>=((struct structure_type27650 *)VALUE_OFFSET)) {t62998.tag = STRUCTURE_TYPE27650; t62998.value.structure_type27650 = t62997;} else t62998.tag = (unsigned)t62997; t62995 = f8153(t62998); /* x101275 stalin.sc:9767:337781 */ a37391 = t62995; /* x282233 */ /* x282232 */ t62996 = a37391; /* x282231 */ if (!((t62996.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ELEMENT[6309] 32308]"); structure_ref_error();} t62994 = t62996.value.structure_type27669->s0; /* x101274 stalin.sc:9767:337769 */ t62992 = f8153(t62994); /* x101273 stalin.sc:9766:337750 */ a37768 = t62992; /* x283741 */ /* x283740 */ t62993 = a37768; /* x283739 */ if (!((t62993.tag)==STRUCTURE_TYPE27673)) goto l10102; /* x101285 */ /* x101284 */ goto l10103; l10102: /* x101289 */ /* x101288 */ /* x101287 stalin.sc:9768:337836 */ /* x101286 stalin.sc:9768:337837 */ /* x296353 QobiScheme.sc:166:5314 */ /* x296352 QobiScheme.sc:166:5321 */ t62999 = "This shouldn\'t happen"; /* x296351 QobiScheme.sc:166:5315 */ stalin_panic(t62999); l10103: /* x101300 stalin.sc:9769:337849 */ /* x101293 stalin.sc:9769:337857 */ /* x101292 stalin.sc:9769:337864 */ t63000 = a1676; /* x101291 stalin.sc:9769:337858 */ /* MOVE: branching squeezed to general */ if (t63000>=((struct structure_type27650 *)VALUE_OFFSET)) {t63001.tag = STRUCTURE_TYPE27650; t63001.value.structure_type27650 = t63000;} else t63001.tag = (unsigned)t63000; if (f8147(t63001)==FALSE_TYPE) goto l10106; /* x101295 */ /* x101294 */ goto l10107; l10106: /* x101299 */ /* x101298 */ /* x101297 stalin.sc:9769:337872 */ /* x101296 stalin.sc:9769:337873 */ /* x295901 QobiScheme.sc:166:5314 */ /* x295900 QobiScheme.sc:166:5321 */ t63002 = "This shouldn\'t happen"; /* x295899 QobiScheme.sc:166:5315 */ stalin_panic(t63002); l10107: /* x101312 stalin.sc:9770:337885 */ /* x101305 stalin.sc:9770:337893 */ /* x101304 stalin.sc:9770:337905 */ /* x101303 stalin.sc:9770:337917 */ t63004 = a1675; /* x101302 stalin.sc:9770:337906 */ /* MOVE: branching squeezed to general */ if (t63004>=((struct structure_type27650 *)VALUE_OFFSET)) {t63005.tag = STRUCTURE_TYPE27650; t63005.value.structure_type27650 = t63004;} else t63005.tag = (unsigned)t63004; t63003 = f8153(t63005); /* x101301 stalin.sc:9770:337894 */ if (f7677(t63003)==FALSE_TYPE) goto l10109; /* x101307 */ /* x101306 */ goto l10110; l10109: /* x101311 */ /* x101310 */ /* x101309 stalin.sc:9770:337926 */ /* x101308 stalin.sc:9770:337927 */ /* x296357 QobiScheme.sc:166:5314 */ /* x296356 QobiScheme.sc:166:5321 */ t63006 = "This shouldn\'t happen"; /* x296355 QobiScheme.sc:166:5315 */ stalin_panic(t63006); l10110: /* x101324 stalin.sc:9771:337939 */ /* x101317 stalin.sc:9771:337947 */ /* x101316 stalin.sc:9771:337965 */ /* x101315 stalin.sc:9771:337977 */ t63008 = a1674; /* x101314 stalin.sc:9771:337966 */ /* MOVE: branching squeezed to general */ if (t63008>=((struct structure_type27650 *)VALUE_OFFSET)) {t63009.tag = STRUCTURE_TYPE27650; t63009.value.structure_type27650 = t63008;} else t63009.tag = (unsigned)t63008; t63007 = f8153(t63009); /* x101313 stalin.sc:9771:337948 */ if (f7700(t63007)==FALSE_TYPE) goto l10112; /* x101319 */ /* x101318 */ goto l10113; l10112: /* x101323 */ /* x101322 */ /* x101321 stalin.sc:9771:337992 */ /* x101320 stalin.sc:9771:337993 */ /* x296361 QobiScheme.sc:166:5314 */ /* x296360 QobiScheme.sc:166:5321 */ t63010 = "This shouldn\'t happen"; /* x296359 QobiScheme.sc:166:5315 */ stalin_panic(t63010); l10113: /* x101336 stalin.sc:9772:338005 */ /* x101329 stalin.sc:9772:338013 */ /* x101328 stalin.sc:9772:338032 */ /* x101327 stalin.sc:9772:338044 */ t63012 = a1673; /* x101326 stalin.sc:9772:338033 */ /* MOVE: branching squeezed to general */ if (t63012>=((struct structure_type27650 *)VALUE_OFFSET)) {t63013.tag = STRUCTURE_TYPE27650; t63013.value.structure_type27650 = t63012;} else t63013.tag = (unsigned)t63012; t63011 = f8153(t63013); /* x101325 stalin.sc:9772:338014 */ if (f7701(t63011)==FALSE_TYPE) goto l10115; /* x101331 */ /* x101330 */ goto l10116; l10115: /* x101335 */ /* x101334 */ /* x101333 stalin.sc:9772:338060 */ /* x101332 stalin.sc:9772:338061 */ /* x296365 QobiScheme.sc:166:5314 */ /* x296364 QobiScheme.sc:166:5321 */ t63014 = "This shouldn\'t happen"; /* x296363 QobiScheme.sc:166:5315 */ stalin_panic(t63014); l10116: /* x101348 stalin.sc:9773:338073 */ /* x101341 stalin.sc:9773:338081 */ /* x101340 stalin.sc:9773:338093 */ /* x101339 stalin.sc:9773:338105 */ t63016 = a1672; /* x101338 stalin.sc:9773:338094 */ /* MOVE: branching squeezed to general */ if (t63016>=((struct structure_type27650 *)VALUE_OFFSET)) {t63017.tag = STRUCTURE_TYPE27650; t63017.value.structure_type27650 = t63016;} else t63017.tag = (unsigned)t63016; t63015 = f8153(t63017); /* x101337 stalin.sc:9773:338082 */ if (f7682(t63015)==FALSE_TYPE) goto l10118; /* x101343 */ /* x101342 */ goto l10119; l10118: /* x101347 */ /* x101346 */ /* x101345 stalin.sc:9773:338131 */ /* x101344 stalin.sc:9773:338132 */ /* x296369 QobiScheme.sc:166:5314 */ /* x296368 QobiScheme.sc:166:5321 */ t63018 = "This shouldn\'t happen"; /* x296367 QobiScheme.sc:166:5315 */ stalin_panic(t63018); l10119: /* x101360 stalin.sc:9774:338144 */ /* x101353 stalin.sc:9774:338152 */ /* x101352 stalin.sc:9774:338166 */ /* x101351 stalin.sc:9774:338178 */ t63020 = a1671; /* x101350 stalin.sc:9774:338167 */ /* MOVE: branching squeezed to general */ if (t63020>=((struct structure_type27650 *)VALUE_OFFSET)) {t63021.tag = STRUCTURE_TYPE27650; t63021.value.structure_type27650 = t63020;} else t63021.tag = (unsigned)t63020; t63019 = f8153(t63021); /* x101349 stalin.sc:9774:338153 */ if (f7683(t63019)==FALSE_TYPE) goto l10121; /* x101355 */ /* x101354 */ goto l10122; l10121: /* x101359 */ /* x101358 */ /* x101357 stalin.sc:9774:338206 */ /* x101356 stalin.sc:9774:338207 */ /* x296373 QobiScheme.sc:166:5314 */ /* x296372 QobiScheme.sc:166:5321 */ t63022 = "This shouldn\'t happen"; /* x296371 QobiScheme.sc:166:5315 */ stalin_panic(t63022); l10122: /* x101372 stalin.sc:9775:338219 */ /* x101365 stalin.sc:9775:338227 */ /* x101364 stalin.sc:9775:338241 */ /* x101363 stalin.sc:9775:338253 */ t63024 = a1670; /* x101362 stalin.sc:9775:338242 */ /* MOVE: branching squeezed to general */ if (t63024>=((struct structure_type27650 *)VALUE_OFFSET)) {t63025.tag = STRUCTURE_TYPE27650; t63025.value.structure_type27650 = t63024;} else t63025.tag = (unsigned)t63024; t63023 = f8153(t63025); /* x101361 stalin.sc:9775:338228 */ if (f7684(t63023)==FALSE_TYPE) goto l10124; /* x101367 */ /* x101366 */ goto l10125; l10124: /* x101371 */ /* x101370 */ /* x101369 stalin.sc:9775:338281 */ /* x101368 stalin.sc:9775:338282 */ /* x296377 QobiScheme.sc:166:5314 */ /* x296376 QobiScheme.sc:166:5321 */ t63026 = "This shouldn\'t happen"; /* x296375 QobiScheme.sc:166:5315 */ stalin_panic(t63026); l10125: /* x101384 stalin.sc:9776:338294 */ /* x101377 stalin.sc:9776:338302 */ /* x101376 stalin.sc:9776:338316 */ /* x101375 stalin.sc:9776:338328 */ t63029 = a1669; /* x101374 stalin.sc:9776:338317 */ /* MOVE: branching squeezed to general */ if (t63029>=((struct structure_type27650 *)VALUE_OFFSET)) {t63030.tag = STRUCTURE_TYPE27650; t63030.value.structure_type27650 = t63029;} else t63030.tag = (unsigned)t63029; t63027 = f8153(t63030); /* x101373 stalin.sc:9776:338303 */ a37769 = t63027; /* x283745 */ /* x283744 */ t63028 = a37769; /* x283743 */ if (!((t63028.tag)==STRUCTURE_TYPE27673)) goto l10127; /* x101379 */ /* x101378 */ goto l10128; l10127: /* x101383 */ /* x101382 */ /* x101381 stalin.sc:9776:338356 */ /* x101380 stalin.sc:9776:338357 */ /* x296381 QobiScheme.sc:166:5314 */ /* x296380 QobiScheme.sc:166:5321 */ t63031 = "This shouldn\'t happen"; /* x296379 QobiScheme.sc:166:5315 */ stalin_panic(t63031); l10128: /* x101396 stalin.sc:9777:338369 */ /* x101389 stalin.sc:9777:338377 */ /* x101388 stalin.sc:9777:338395 */ /* x101387 stalin.sc:9777:338407 */ t63033 = a1668; /* x101386 stalin.sc:9777:338396 */ /* MOVE: branching squeezed to general */ if (t63033>=((struct structure_type27650 *)VALUE_OFFSET)) {t63034.tag = STRUCTURE_TYPE27650; t63034.value.structure_type27650 = t63033;} else t63034.tag = (unsigned)t63033; t63032 = f8153(t63034); /* x101385 stalin.sc:9777:338378 */ if (f7700(t63032)==FALSE_TYPE) goto l10130; /* x101391 */ /* x101390 */ goto l10131; l10130: /* x101395 */ /* x101394 */ /* x101393 stalin.sc:9778:338442 */ /* x101392 stalin.sc:9778:338443 */ /* x296385 QobiScheme.sc:166:5314 */ /* x296384 QobiScheme.sc:166:5321 */ t63035 = "This shouldn\'t happen"; /* x296383 QobiScheme.sc:166:5315 */ stalin_panic(t63035); l10131: /* x101408 stalin.sc:9779:338455 */ /* x101401 stalin.sc:9779:338463 */ /* x101400 stalin.sc:9779:338482 */ /* x101399 stalin.sc:9779:338494 */ t63037 = a1667; /* x101398 stalin.sc:9779:338483 */ /* MOVE: branching squeezed to general */ if (t63037>=((struct structure_type27650 *)VALUE_OFFSET)) {t63038.tag = STRUCTURE_TYPE27650; t63038.value.structure_type27650 = t63037;} else t63038.tag = (unsigned)t63037; t63036 = f8153(t63038); /* x101397 stalin.sc:9779:338464 */ if (f7701(t63036)==FALSE_TYPE) goto l10133; /* x101403 */ /* x101402 */ goto l10134; l10133: /* x101407 */ /* x101406 */ /* x101405 stalin.sc:9780:338530 */ /* x101404 stalin.sc:9780:338531 */ /* x296389 QobiScheme.sc:166:5314 */ /* x296388 QobiScheme.sc:166:5321 */ t63039 = "This shouldn\'t happen"; /* x296387 QobiScheme.sc:166:5315 */ stalin_panic(t63039); l10134: /* x101420 stalin.sc:9781:338543 */ /* x101413 stalin.sc:9781:338551 */ /* x101412 stalin.sc:9781:338566 */ /* x101411 stalin.sc:9781:338578 */ t63041 = a1666; /* x101410 stalin.sc:9781:338567 */ /* MOVE: branching squeezed to general */ if (t63041>=((struct structure_type27650 *)VALUE_OFFSET)) {t63042.tag = STRUCTURE_TYPE27650; t63042.value.structure_type27650 = t63041;} else t63042.tag = (unsigned)t63041; t63040 = f8153(t63042); /* x101409 stalin.sc:9781:338552 */ if (f7703(t63040)==FALSE_TYPE) goto l10136; /* x101415 */ /* x101414 */ goto l10137; l10136: /* x101419 */ /* x101418 */ /* x101417 stalin.sc:9781:338607 */ /* x101416 stalin.sc:9781:338608 */ /* x296393 QobiScheme.sc:166:5314 */ /* x296392 QobiScheme.sc:166:5321 */ t63043 = "This shouldn\'t happen"; /* x296391 QobiScheme.sc:166:5315 */ stalin_panic(t63043); l10137: /* x101748 stalin.sc:9782:338620 */ /* x101421 stalin.sc:9782:338626 */ /* x101747 stalin.sc:9782:338620 */ /* x101746 stalin.sc:9782:338620 */ /* x102353 stalin.sc:9819:339907 */ /* x102352 stalin.sc:9911:343062 */ t63044 = a2031; /* x102351 */ /* x101749 stalin.sc:9819:339908 */ t63045.tag = NATIVE_PROCEDURE_TYPE15440; t63046 = *((struct w49 *)(&t63044)); t63047 = (struct structure_type24753 *)NULL_TYPE; f27755(t63045, t63046, t63047); /* x102389 stalin.sc:9912:343070 */ /* x102388 stalin.sc:9921:343344 */ t63048 = a1947; /* x102387 */ /* x102354 stalin.sc:9912:343071 */ t63049.tag = NATIVE_PROCEDURE_TYPE15437; t63050 = *((struct w49 *)(&t63048)); t63051 = (struct structure_type24753 *)NULL_TYPE; f27755(t63049, t63050, t63051); /* x102590 stalin.sc:9922:343371 */ /* x102589 stalin.sc:9953:344537 */ t63052 = a1945; /* x102588 */ /* x102390 stalin.sc:9922:343372 */ t63053.tag = NATIVE_PROCEDURE_TYPE15433; t63054 = *((struct w49 *)(&t63052)); t63055 = (struct structure_type24753 *)NULL_TYPE; f27755(t63053, t63054, t63055); /* x102692 stalin.sc:9954:344565 */ /* x102691 stalin.sc:9970:345234 */ t63056 = a1943; /* x102690 */ /* x102591 stalin.sc:9954:344566 */ t63057.tag = NATIVE_PROCEDURE_TYPE15429; t63058 = *((struct w49 *)(&t63056)); t63059 = (struct structure_type24753 *)NULL_TYPE; f27755(t63057, t63058, t63059); /* x102742 stalin.sc:9971:345258 */ /* x102741 stalin.sc:9979:345521 */ t63060 = a1942; /* x102740 stalin.sc:9972:345271 */ /* x102693 stalin.sc:9971:345259 */ t63061.tag = NATIVE_PROCEDURE_TYPE15426; t63062 = *((struct w49 *)(&t63060)); t63063 = (struct structure_type24753 *)NULL_TYPE; f27755(t63061, t63062, t63063); /* x102828 stalin.sc:9980:345539 */ /* x102827 stalin.sc:9992:345969 */ t63064 = a1940; /* x102826 */ /* x102743 stalin.sc:9980:345540 */ t63065.tag = NATIVE_PROCEDURE_TYPE15423; t63066 = *((struct w49 *)(&t63064)); t63067 = (struct structure_type24753 *)NULL_TYPE; f27755(t63065, t63066, t63067); /* x102910 stalin.sc:9993:345990 */ /* x102909 stalin.sc:10004:346423 */ t63068 = a1939; /* x102908 */ /* x102829 stalin.sc:9993:345991 */ t63069.tag = NATIVE_PROCEDURE_TYPE15420; t63070 = *((struct w49 *)(&t63068)); t63071 = (struct structure_type24753 *)NULL_TYPE; f27755(t63069, t63070, t63071); /* x102992 stalin.sc:10005:346448 */ /* x102991 stalin.sc:10016:346893 */ t63072 = a1938; /* x102990 */ /* x102911 stalin.sc:10005:346449 */ t63073.tag = NATIVE_PROCEDURE_TYPE15417; t63074 = *((struct w49 *)(&t63072)); t63075 = (struct structure_type24753 *)NULL_TYPE; f27755(t63073, t63074, t63075); /* x103027 stalin.sc:10017:346921 */ /* x103026 stalin.sc:10026:347183 */ t63076 = a1936; /* x103025 */ /* x102993 stalin.sc:10017:346922 */ t63077.tag = NATIVE_PROCEDURE_TYPE15414; t63078 = *((struct w49 *)(&t63076)); t63079 = (struct structure_type24753 *)NULL_TYPE; f27755(t63077, t63078, t63079); /* x103273 stalin.sc:10027:347211 */ /* x103272 stalin.sc:10066:348602 */ t63080 = a1679; /* x103271 */ /* x103028 stalin.sc:10027:347212 */ t63081.tag = NATIVE_PROCEDURE_TYPE15406; t63082 = *((struct w49 *)(&t63080)); t63083 = (struct structure_type24753 *)NULL_TYPE; f27755(t63081, t63082, t63083); /* x103465 stalin.sc:10067:348610 */ /* x103464 stalin.sc:10092:349447 */ t63084 = a1633; /* x103463 */ /* x103274 stalin.sc:10067:348611 */ t63085.tag = NATIVE_PROCEDURE_TYPE15400; t63086 = *((struct w49 *)(&t63084)); t63087 = (struct structure_type24753 *)NULL_TYPE; f27755(t63085, t63086, t63087); /* x101267 */ /* x101266 stalin.sc:10093:349455 */ /* x101265 stalin.sc:10205:353625 */ t62984 = a1594; /* x101264 stalin.sc:10094:349468 */ /* x100578 stalin.sc:10093:349456 */ t62985.tag = NATIVE_PROCEDURE_TYPE19245; t62986 = *((struct w49 *)(&t62984)); t62987 = (struct structure_type24753 *)NULL_TYPE; f27755(t62985, t62986, t62987); return;} /* [inside REMOVE-UNUSED-OBJECTS! 11082] */ void f11082(struct w49 a23708) {struct w49 t63088; struct w12224 t63089; struct w49 t63090; struct w49 t63091; struct w211061 t63092; /* x100571 stalin.sc:9671:334251 */ /* x100566 stalin.sc:9671:334265 */ t63088 = a23708; /* x100570 stalin.sc:9671:334267 */ /* x100568 stalin.sc:9671:334281 */ /* x100569 stalin.sc:9671:334292 */ t63091 = a23708; /* x100567 stalin.sc:9671:334268 */ t63092.tag = NATIVE_PROCEDURE_TYPE7400; t63089 = f8172(t63092, t63091); /* x100565 stalin.sc:9671:334252 */ t63090 = *((struct w49 *)(&t63089)); f8181(t63088, t63090); return;} /* [inside REMOVE-UNUSED-OBJECTS! 11072] */ void f11072(struct w49 a23704) {struct w49 a19594; /* S */ struct w49 a19595; /* X */ struct w49 a38004; /* S */ struct w49 a38022; /* S */ struct w49 t63093; struct w49 t63094; struct w49 t63095; struct w49 t63096; struct w49 t63097; struct w49 t63098; struct w49 t63099; struct w11873 t63100; struct w227506 t63101; struct w49 t63102; struct w49 t63103; struct w49 t63104; struct w12224 t63105; struct w12224 t63106; struct w227671 t63107; struct w49 t63108; struct w49 t63109; struct w49 t63110; /* x100549 */ /* x100548 stalin.sc:9657:333661 */ /* x100517 stalin.sc:9658:333723 */ t63104 = a23704; /* x100547 stalin.sc:9659:333731 */ /* x100543 stalin.sc:9660:333753 */ /* x100546 stalin.sc:9664:333900 */ /* x100545 stalin.sc:9664:333951 */ t63109 = a23704; /* x100544 stalin.sc:9664:333901 */ a38022 = t63109; /* x284757 */ /* x284756 */ t63110 = a38022; /* x284755 */ if (!((t63110.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-CALL-SITE-ENVIRONMENT-ALIST[5945] 32939]"); structure_ref_error();} t63106 = t63110.value.structure_type27756->s0; /* x100518 stalin.sc:9659:333732 */ t63107.tag = NATIVE_PROCEDURE_TYPE15679; t63108 = *((struct w49 *)(&t63106)); t63105 = f1226(t63107, t63108); /* x100516 stalin.sc:9657:333662 */ f5946(t63104, t63105); /* x100515 */ /* x100514 stalin.sc:9665:333961 */ /* x100490 stalin.sc:9665:333967 */ if (a23650==FALSE_TYPE) goto l10140; /* x100511 */ /* x100510 */ /* x100509 stalin.sc:9666:333976 */ /* x100495 stalin.sc:9666:333984 */ /* x100494 stalin.sc:9666:333993 */ /* x100493 stalin.sc:9666:334033 */ t63094 = a23704; /* x100492 stalin.sc:9666:333994 */ a38004 = t63094; /* x284685 */ /* x284684 */ t63095 = a38004; /* x284683 */ if (!((t63095.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-NARROW-PROTOTYPE[5953] 32921]"); structure_ref_error();} t63093 = t63095.value.structure_type27756->s1; /* x100491 stalin.sc:9666:333985 */ if ((f8899(t63093).tag)==FALSE_TYPE) goto l10142; /* x100497 */ /* x100496 */ return; l10142: /* x100508 */ /* x100507 */ /* x100506 stalin.sc:9667:334044 */ /* x100499 stalin.sc:9668:334097 */ t63096 = a23704; /* x100505 stalin.sc:9668:334099 */ /* x100501 stalin.sc:9668:334108 */ /* x100504 stalin.sc:9668:334116 */ /* x100503 stalin.sc:9668:334131 */ t63103 = a23704; /* x100502 stalin.sc:9668:334117 */ t63100 = f8984(t63103); /* x100500 stalin.sc:9668:334100 */ t63101.tag = NATIVE_PROCEDURE_TYPE7224; t63102 = *((struct w49 *)(&t63100)); t63097 = f1314(t63101, t63102); /* x100498 stalin.sc:9667:334045 */ a19594 = t63096; a19595 = t63097; /* x51945 */ /* x51943 */ t63098 = a19594; /* x51944 */ t63099 = a19595; /* x51942 */ if ((t63098.tag)==STRUCTURE_TYPE27756) {t63098.value.structure_type27756->s1 = t63099; return;} backtrace_internal("SET-NATIVE-PROCEDURE-TYPE-NARROW-PROTOTYPE![5954]"); structure_set_error(); l10140: /* x100513 stalin.sc:9665:333961 */ /* x100512 stalin.sc:9665:333961 */ return;} /* [inside REMOVE-UNUSED-OBJECTS! 11061] */ void f11061(struct w49 a23698) {struct w49 a19119; /* S */ char *a19120; /* X */ struct w49 a39511; /* S */ struct w49 a39512; /* S */ struct w49 a40390; /* S */ struct w49 a40391; /* S */ struct w49 a40392; /* S */ struct w49 a40393; /* S */ struct w49 a40394; /* S */ struct w49 a40409; /* S */ char *t63111; char *t63112; struct w49 t63113; struct w49 t63114; char *t63115; char *t63116; struct w49 t63117; struct w49 t63118; char *t63119; char *t63120; struct w49 t63121; struct w49 t63122; struct w9140 t63123; struct w49 t63124; struct w49 t63125; struct w49 t63126; struct w49 t63127; char *t63128; struct w49 t63129; char *t63130; char *t63131; char *t63132; struct w49 t63133; struct w49 t63134; char *t63135; char *t63136; struct w49 t63137; struct w49 t63138; char *t63139; char *t63140; struct w49 t63141; struct w49 t63142; struct w9140 t63143; struct w49 t63144; struct w49 t63145; struct w49 t63146; struct w49 t63147; char *t63148; struct w11873 t63149; /* x100429 */ /* x100428 stalin.sc:9627:332167 */ /* x100418 stalin.sc:9627:332173 */ /* x100409 stalin.sc:9627:332178 */ /* x100408 stalin.sc:9627:332182 */ /* x100406 stalin.sc:9627:332187 */ /* x100405 stalin.sc:9627:332204 */ t63133 = a23698; /* x100404 stalin.sc:9627:332188 */ a40409 = t63133; /* x294305 */ /* x294304 */ t63134 = a40409; /* x294303 */ if (!((t63134.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35326]"); structure_ref_error();} t63131 = t63134.value.structure_type27698->s0; /* x100407 stalin.sc:9627:332207 */ t63132 = q39; /* x269640 stalin.sc:9627:332183 */ if (t63131==t63132) goto l10151; /* x100400 */ /* x100399 stalin.sc:9628:332223 */ /* x100397 stalin.sc:9628:332228 */ /* x100396 stalin.sc:9628:332245 */ t63137 = a23698; /* x100395 stalin.sc:9628:332229 */ a40394 = t63137; /* x294245 */ /* x294244 */ t63138 = a40394; /* x294243 */ if (!((t63138.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35311]"); structure_ref_error();} t63135 = t63138.value.structure_type27698->s0; /* x100398 stalin.sc:9628:332248 */ t63136 = q40; /* x269641 stalin.sc:9628:332224 */ if (t63135==t63136) goto l10151; /* x100391 */ /* x100389 stalin.sc:9629:332279 */ /* x100388 stalin.sc:9629:332296 */ t63141 = a23698; /* x100387 stalin.sc:9629:332280 */ a40393 = t63141; /* x294241 */ /* x294240 */ t63142 = a40393; /* x294239 */ if (!((t63142.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35310]"); structure_ref_error();} t63139 = t63142.value.structure_type27698->s0; /* x100390 stalin.sc:9629:332299 */ t63140 = q41; /* x269642 stalin.sc:9629:332275 */ if (!(t63139==t63140)) goto l10149; l10151: /* x100416 */ /* x100415 stalin.sc:9630:332333 */ /* x100414 stalin.sc:9630:332342 */ /* x100413 stalin.sc:9630:332373 */ t63145 = a23698; /* x100412 stalin.sc:9630:332343 */ a39511 = t63145; /* x290713 */ /* x290712 */ t63146 = a39511; /* x290711 */ if (!((t63146.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34428]"); structure_ref_error();} t63143 = t63146.value.structure_type27698->s13; /* x100411 stalin.sc:9630:332334 */ t63144 = *((struct w49 *)(&t63143)); if (!((f8899(t63144).tag)==FALSE_TYPE)) goto l10149; /* x100425 */ /* x100424 */ /* x100423 stalin.sc:9631:332386 */ /* x100420 stalin.sc:9631:332414 */ t63147 = a23698; /* x100422 stalin.sc:9631:332416 */ /* x100421 stalin.sc:9631:332417 */ /* x277207 stalin.sc:323:8604 */ t63148 = q35; /* x100419 stalin.sc:9631:332387 */ t63149.tag = EXTERNAL_SYMBOL_TYPE; t63149.value.external_symbol_type = t63148; f5600(t63147, t63149); goto l10150; l10149: /* x100427 stalin.sc:9627:332167 */ /* x100426 stalin.sc:9627:332167 */ l10150: /* x100381 */ /* x100380 stalin.sc:9632:332438 */ /* x100370 stalin.sc:9632:332444 */ /* x100361 stalin.sc:9632:332449 */ /* x100360 stalin.sc:9632:332453 */ /* x100358 stalin.sc:9632:332458 */ /* x100357 stalin.sc:9632:332475 */ t63113 = a23698; /* x100356 stalin.sc:9632:332459 */ a40392 = t63113; /* x294237 */ /* x294236 */ t63114 = a40392; /* x294235 */ if (!((t63114.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35309]"); structure_ref_error();} t63111 = t63114.value.structure_type27698->s0; /* x100359 stalin.sc:9632:332478 */ t63112 = q39; /* x269644 stalin.sc:9632:332454 */ if (t63111==t63112) goto l10145; /* x100352 */ /* x100351 stalin.sc:9633:332494 */ /* x100349 stalin.sc:9633:332499 */ /* x100348 stalin.sc:9633:332516 */ t63117 = a23698; /* x100347 stalin.sc:9633:332500 */ a40391 = t63117; /* x294233 */ /* x294232 */ t63118 = a40391; /* x294231 */ if (!((t63118.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35308]"); structure_ref_error();} t63115 = t63118.value.structure_type27698->s0; /* x100350 stalin.sc:9633:332519 */ t63116 = q40; /* x269645 stalin.sc:9633:332495 */ if (t63115==t63116) goto l10145; /* x100343 */ /* x100341 stalin.sc:9634:332550 */ /* x100340 stalin.sc:9634:332567 */ t63121 = a23698; /* x100339 stalin.sc:9634:332551 */ a40390 = t63121; /* x294229 */ /* x294228 */ t63122 = a40390; /* x294227 */ if (!((t63122.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35307]"); structure_ref_error();} t63119 = t63122.value.structure_type27698->s0; /* x100342 stalin.sc:9634:332570 */ t63120 = q41; /* x269646 stalin.sc:9634:332546 */ if (!(t63119==t63120)) goto l10144; l10145: /* x100368 */ /* x100367 stalin.sc:9635:332604 */ /* x100366 stalin.sc:9635:332613 */ /* x100365 stalin.sc:9635:332644 */ t63125 = a23698; /* x100364 stalin.sc:9635:332614 */ a39512 = t63125; /* x290717 */ /* x290716 */ t63126 = a39512; /* x290715 */ if (!((t63126.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34429]"); structure_ref_error();} t63123 = t63126.value.structure_type27698->s13; /* x100363 stalin.sc:9635:332605 */ t63124 = *((struct w49 *)(&t63123)); if (!((f8899(t63124).tag)==FALSE_TYPE)) goto l10144; /* x100377 */ /* x100376 */ /* x100375 stalin.sc:9636:332657 */ /* x100372 stalin.sc:9636:332693 */ t63127 = a23698; /* x100374 stalin.sc:9636:332695 */ /* x100373 stalin.sc:9636:332696 */ /* x277209 stalin.sc:323:8604 */ t63128 = q35; /* x100371 stalin.sc:9636:332658 */ a19119 = t63127; a19120 = t63128; /* x50154 */ /* x50152 */ t63129 = a19119; /* x50153 */ t63130 = a19120; /* x50151 */ if ((t63129.tag)==STRUCTURE_TYPE27698) {t63129.value.structure_type27698->s13.tag = EXTERNAL_SYMBOL_TYPE; t63129.value.structure_type27698->s13.value.external_symbol_type = t63130; return;} backtrace_internal("SET-EXPRESSION-LAMBDA-ENVIRONMENT![5592]"); structure_set_error(); l10144: /* x100379 stalin.sc:9632:332438 */ /* x100378 stalin.sc:9632:332438 */ return;} /* [inside REMOVE-UNUSED-OBJECTS! 11054] */ void f11054(struct w49 a23680) {struct w49 a36542; /* S */ struct w49 t63150; struct w49 t63151; struct w12224 t63152; struct w11873 t63153; struct w11873 t63154; struct w227671 t63155; struct w49 t63156; struct w49 t63157; struct w49 t63158; /* x100277 stalin.sc:9738:336538 */ /* x100263 stalin.sc:9738:336544 */ /* x100262 stalin.sc:9738:336563 */ t63150 = a23680; /* x100261 stalin.sc:9738:336545 */ if (f8526(t63150)==FALSE_TYPE) goto l10155; /* x100274 */ /* x100273 */ /* x100272 stalin.sc:9739:336571 */ /* x100265 stalin.sc:9740:336614 */ t63151 = a23680; /* x100271 stalin.sc:9740:336616 */ /* x100267 stalin.sc:9740:336631 */ /* x100270 stalin.sc:9740:336640 */ /* x100269 stalin.sc:9740:336672 */ t63157 = a23680; /* x100268 stalin.sc:9740:336641 */ a36542 = t63157; /* x278837 */ /* x278836 */ t63158 = a36542; /* x278835 */ if (!((t63158.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-CONTINUATION-CALLS[6815] 31459]"); structure_ref_error();} t63154 = t63158.value.structure_type27694->s23; /* x100266 stalin.sc:9740:336617 */ t63155.tag = NATIVE_PROCEDURE_TYPE7614; t63156 = *((struct w49 *)(&t63154)); t63152 = f1226(t63155, t63156); /* x100264 stalin.sc:9739:336572 */ t63153 = *((struct w11873 *)(&t63152)); f6816(t63151, t63153); return; l10155: /* x100276 stalin.sc:9738:336538 */ /* x100275 stalin.sc:9738:336538 */ return;} /* [inside REMOVE-UNUSED-OBJECTS! 11051] */ void f11051(struct w49 a23679) {struct w49 a36548; /* S */ struct w49 t63159; struct w49 t63160; struct w12224 t63161; struct w11873 t63162; struct w11873 t63163; struct w227671 t63164; struct w49 t63165; struct w49 t63166; struct w49 t63167; /* x100256 stalin.sc:9731:336307 */ /* x100242 stalin.sc:9731:336313 */ /* x100241 stalin.sc:9731:336332 */ t63159 = a23679; /* x100240 stalin.sc:9731:336314 */ if (f8526(t63159)==FALSE_TYPE) goto l10157; /* x100253 */ /* x100252 */ /* x100251 stalin.sc:9732:336342 */ /* x100244 stalin.sc:9733:336380 */ t63160 = a23679; /* x100250 stalin.sc:9733:336382 */ /* x100246 stalin.sc:9733:336397 */ /* x100249 stalin.sc:9733:336406 */ /* x100248 stalin.sc:9733:336431 */ t63166 = a23679; /* x100247 stalin.sc:9733:336407 */ a36548 = t63166; /* x278861 */ /* x278860 */ t63167 = a36548; /* x278859 */ if (!((t63167.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSIONS[6807] 31465]"); structure_ref_error();} t63163 = t63167.value.structure_type27694->s22; /* x100245 stalin.sc:9733:336383 */ t63164.tag = NATIVE_PROCEDURE_TYPE7614; t63165 = *((struct w49 *)(&t63163)); t63161 = f1226(t63164, t63165); /* x100243 stalin.sc:9732:336343 */ t63162 = *((struct w11873 *)(&t63161)); f6808(t63160, t63162); return; l10157: /* x100255 stalin.sc:9731:336307 */ /* x100254 stalin.sc:9731:336307 */ return;} /* [inside REMOVE-UNUSED-OBJECTS! 11049] */ struct w49 f11049(struct w49 a23677) {struct p11049 *t63168; struct w12224 t63169; struct w227506 t63170; struct w49 t63171; struct p11049 *e11049; e11049 = (struct p11049 *)alloca(sizeof(struct p11049)); if (e11049==NULL) {backtrace("stalin.sc", 9722, 336026); out_of_memory_error();} e11049->a23677 = a23677; /* x100228 stalin.sc:9723:336041 */ /* x100226 stalin.sc:9723:336050 */ t63168 = e11049; /* x100227 stalin.sc:9727:336206 */ t63169 = a23676; /* x100209 stalin.sc:9723:336042 */ t63170.tag = NATIVE_PROCEDURE_TYPE15706; t63170.value.native_procedure_type15706 = t63168; t63171 = *((struct w49 *)(&t63169)); return f1314(t63170, t63171);} /* [inside REMOVE-UNUSED-OBJECTS! 11044] */ void f11044(struct w49 a23674) {struct w49 a36607; /* S */ struct w49 t63172; struct w49 t63173; struct w49 t63174; struct w49 t63175; struct w49 t63176; char *t63177; struct w49 t63178; struct w49 t63179; struct w12224 t63180; /* x100201 stalin.sc:9714:335751 */ /* x100185 stalin.sc:9714:335759 */ /* x100181 stalin.sc:9714:335764 */ t63172 = a23674; /* x100184 stalin.sc:9714:335766 */ /* x100183 stalin.sc:9714:335796 */ t63174 = a23674; /* x100182 stalin.sc:9714:335767 */ a36607 = t63174; /* x279097 */ /* x279096 */ t63175 = a36607; /* x279095 */ if (!((t63175.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NARROW-PROTOTYPE[6743] 31524]"); structure_ref_error();} t63173 = t63175.value.structure_type27694->s14; /* x269649 stalin.sc:9714:335760 */ /* EQ: dispatching general to general */ if (!((t63172.tag)==(t63173.tag))) goto l10159; switch (t63172.tag) {case FIXNUM_TYPE: if (!((t63172.value.fixnum_type)==(t63173.value.fixnum_type))) goto l10159; break; case FLONUM_TYPE: if (!((t63172.value.flonum_type)==(t63173.value.flonum_type))) goto l10159; break; case INPUT_PORT_TYPE: if (!((t63172.value.input_port_type)==(t63173.value.input_port_type))) goto l10159; break; case OUTPUT_PORT_TYPE: if (!((t63172.value.output_port_type)==(t63173.value.output_port_type))) goto l10159; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t63172.value.native_procedure_type15963)==(t63173.value.native_procedure_type15963))) goto l10159; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t63172.value.native_procedure_type19067)==(t63173.value.native_procedure_type19067))) goto l10159; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t63172.value.native_procedure_type19068)==(t63173.value.native_procedure_type19068))) goto l10159; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t63172.value.native_procedure_type22459)==(t63173.value.native_procedure_type22459))) goto l10159; break; case STRUCTURE_TYPE24753: if (!((t63172.value.structure_type24753)==(t63173.value.structure_type24753))) goto l10159; break; case STRUCTURE_TYPE24757: if (!((t63172.value.structure_type24757)==(t63173.value.structure_type24757))) goto l10159; break; case STRUCTURE_TYPE27501: if (!((t63172.value.structure_type27501)==(t63173.value.structure_type27501))) goto l10159; break; case STRUCTURE_TYPE27510: if (!((t63172.value.structure_type27510)==(t63173.value.structure_type27510))) goto l10159; break; case STRUCTURE_TYPE27621: if (!((t63172.value.structure_type27621)==(t63173.value.structure_type27621))) goto l10159; break; case STRUCTURE_TYPE27650: if (!((t63172.value.structure_type27650)==(t63173.value.structure_type27650))) goto l10159; break; case STRUCTURE_TYPE27669: if (!((t63172.value.structure_type27669)==(t63173.value.structure_type27669))) goto l10159; break; case STRUCTURE_TYPE27673: if (!((t63172.value.structure_type27673)==(t63173.value.structure_type27673))) goto l10159; break; case STRUCTURE_TYPE27692: if (!((t63172.value.structure_type27692)==(t63173.value.structure_type27692))) goto l10159; break; case STRUCTURE_TYPE27694: if (!((t63172.value.structure_type27694)==(t63173.value.structure_type27694))) goto l10159; break; case STRUCTURE_TYPE27698: if (!((t63172.value.structure_type27698)==(t63173.value.structure_type27698))) goto l10159; break; case STRUCTURE_TYPE27745: if (!((t63172.value.structure_type27745)==(t63173.value.structure_type27745))) goto l10159; break; case STRUCTURE_TYPE27747: if (!((t63172.value.structure_type27747)==(t63173.value.structure_type27747))) goto l10159; break; case STRUCTURE_TYPE27750: if (!((t63172.value.structure_type27750)==(t63173.value.structure_type27750))) goto l10159; break; case STRUCTURE_TYPE27753: if (!((t63172.value.structure_type27753)==(t63173.value.structure_type27753))) goto l10159; break; case STRUCTURE_TYPE27756: if (!((t63172.value.structure_type27756)==(t63173.value.structure_type27756))) goto l10159; break; case STRUCTURE_TYPE27761: if (!((t63172.value.structure_type27761)==(t63173.value.structure_type27761))) goto l10159; break; case STRUCTURE_TYPE27769: if (!((t63172.value.structure_type27769)==(t63173.value.structure_type27769))) goto l10159; break; case STRUCTURE_TYPE27776: if (!((t63172.value.structure_type27776)==(t63173.value.structure_type27776))) goto l10159; break; case STRUCTURE_TYPE27779: if (!((t63172.value.structure_type27779)==(t63173.value.structure_type27779))) goto l10159; break; case STRUCTURE_TYPE27858: if (!((t63172.value.structure_type27858)==(t63173.value.structure_type27858))) goto l10159; break; case STRING_TYPE: if (!((t63172.value.string_type)==(t63173.value.string_type))) goto l10159; break; case HEADED_VECTOR_TYPE27896: if (!((t63172.value.headed_vector_type27896)==(t63173.value.headed_vector_type27896))) goto l10159; break; case EXTERNAL_SYMBOL_TYPE: if (!((t63172.value.external_symbol_type)==(t63173.value.external_symbol_type))) goto l10159; break; case STRUCTURE_TYPE27908: if (!((t63172.value.structure_type27908)==(t63173.value.structure_type27908))) goto l10159; break; default:;} /* x100187 */ /* x100186 */ return; l10159: /* x100200 */ /* x100199 */ /* x100198 */ /* x100197 stalin.sc:9715:335807 */ /* x100195 stalin.sc:9715:335839 */ t63179 = a23674; /* x100196 stalin.sc:9715:335841 */ /* x100194 stalin.sc:9715:335808 */ t63180.tag = NULL_TYPE; f6752(t63179, t63180); /* x100193 */ /* x100192 stalin.sc:9716:335853 */ /* x100189 stalin.sc:9716:335888 */ t63176 = a23674; /* x100191 stalin.sc:9716:335890 */ /* x100190 stalin.sc:9716:335891 */ /* x277205 stalin.sc:323:8604 */ t63177 = q35; /* x100188 stalin.sc:9716:335854 */ t63178.tag = EXTERNAL_SYMBOL_TYPE; t63178.value.external_symbol_type = t63177; f6704(t63176, t63178); return;} /* [inside REMOVE-UNUSED-OBJECTS! 11041] */ void f11041(struct w49 a23673) {struct w49 a36606; /* S */ struct w49 t63181; struct w49 t63182; struct w49 t63183; struct w11873 t63184; struct w228345 t63185; struct w49 t63186; struct structure_type24753 *t63187; struct w49 t63188; struct w49 t63189; struct w49 t63190; struct w11873 t63191; struct w227506 t63192; struct w49 t63193; struct w49 t63194; /* x100175 stalin.sc:9707:335498 */ /* x100161 stalin.sc:9707:335504 */ /* x100153 stalin.sc:9707:335509 */ /* x100152 stalin.sc:9707:335514 */ /* x100151 stalin.sc:9707:335523 */ /* x100150 stalin.sc:9707:335553 */ t63182 = a23673; /* x100149 stalin.sc:9707:335524 */ a36606 = t63182; /* x279093 */ /* x279092 */ t63183 = a36606; /* x279091 */ if (!((t63183.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NARROW-PROTOTYPE[6743] 31523]"); structure_ref_error();} t63181 = t63183.value.structure_type27694->s14; /* x100148 stalin.sc:9707:335515 */ if (!((f8899(t63181).tag)==FALSE_TYPE)) goto l10161; /* x100159 */ /* x100158 stalin.sc:9709:335599 */ /* x100157 stalin.sc:9709:335614 */ t63188 = a23673; /* x100156 stalin.sc:9709:335600 */ t63184 = f8984(t63188); /* x100155 stalin.sc:9709:335591 */ /* x100154 stalin.sc:9709:335586 */ t63185.tag = NATIVE_PROCEDURE_TYPE7224; t63186 = *((struct w49 *)(&t63184)); t63187 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t63185, t63186, t63187).tag)==FALSE_TYPE) goto l10161; /* x100172 */ /* x100171 */ /* x100170 stalin.sc:9710:335626 */ /* x100163 stalin.sc:9711:335669 */ t63189 = a23673; /* x100169 stalin.sc:9711:335671 */ /* x100165 stalin.sc:9711:335680 */ /* x100168 stalin.sc:9711:335688 */ /* x100167 stalin.sc:9711:335703 */ t63194 = a23673; /* x100166 stalin.sc:9711:335689 */ t63191 = f8984(t63194); /* x100164 stalin.sc:9711:335672 */ t63192.tag = NATIVE_PROCEDURE_TYPE7224; t63193 = *((struct w49 *)(&t63191)); t63190 = f1314(t63192, t63193); /* x100162 stalin.sc:9710:335627 */ f6744(t63189, t63190); return; l10161: /* x100174 stalin.sc:9707:335498 */ /* x100173 stalin.sc:9707:335498 */ return;} /* [inside REMOVE-UNUSED-OBJECTS! 11039] */ void f11039(struct w49 a23671) {struct w49 t63195; struct w49 t63196; struct w49 t63197; struct w49 t63198; struct w12224 t63199; struct w11873 t63200; struct w227671 t63201; struct w49 t63202; struct w49 t63203; struct w49 t63204; /* x100142 */ /* x100141 stalin.sc:9702:335288 */ /* x100132 stalin.sc:9703:335327 */ t63198 = a23671; /* x100140 stalin.sc:9703:335329 */ /* x100134 stalin.sc:9703:335344 */ /* x100139 stalin.sc:9703:335352 */ /* x100138 stalin.sc:9703:335367 */ /* x100137 stalin.sc:9703:335385 */ t63204 = a23671; /* x100136 stalin.sc:9703:335368 */ t63203 = f8966(t63204); /* x100135 stalin.sc:9703:335353 */ t63200 = f8984(t63203); /* x100133 stalin.sc:9703:335330 */ t63201.tag = NATIVE_PROCEDURE_TYPE7224; t63202 = *((struct w49 *)(&t63200)); t63199 = f1226(t63201, t63202); /* x100131 stalin.sc:9702:335289 */ f6752(t63198, t63199); /* x100130 */ /* x100129 stalin.sc:9704:335397 */ /* x100125 stalin.sc:9704:335432 */ t63195 = a23671; /* x100128 stalin.sc:9704:335434 */ /* x100127 stalin.sc:9704:335452 */ t63197 = a23671; /* x100126 stalin.sc:9704:335435 */ t63196 = f8965(t63197); /* x100124 stalin.sc:9704:335398 */ f6704(t63195, t63196); return;} /* [inside REMOVE-UNUSED-OBJECTS! 11034] */ void f11034(struct w49 a23668) {struct w49 a19159; /* S */ struct w6852 a19160; /* X */ struct w6852 a23640; /* X1 */ struct w6852 a23641; /* X2 */ char *a23642; /* v */ struct w49 a36717; /* S */ struct w49 a36718; /* S */ struct w49 a38576; /* S */ struct w49 a38577; /* S */ struct w49 a38694; /* S */ struct w49 a38918; /* S */ struct w49 a38972; /* S */ struct w49 a39030; /* S */ struct w49 a39075; /* S */ struct w49 a39236; /* S */ struct w6852 a39770; /* S */ struct w6852 a39771; /* S */ struct w6852 a39772; /* S */ struct w6852 a39773; /* S */ struct w6852 a39774; /* S */ struct w6852 a39775; /* S */ struct w6852 a39776; /* S */ struct w6852 a39777; /* S */ struct w6852 a39778; /* S */ struct w6852 a39779; /* S */ struct w6852 a39780; /* S */ struct w6852 a39781; /* S */ struct w6852 a39782; /* S */ struct w6852 a39783; /* S */ struct w6852 a39784; /* S */ struct w6852 a39785; /* S */ struct w49 a40335; /* S */ struct w49 t63205; struct w49 t63206; struct w49 t63207; struct w49 t63208; struct p11034 *t63209; struct w11873 t63210; struct w228345 t63211; struct w49 t63212; struct structure_type24753 *t63213; struct w49 t63214; struct p11034 *t63215; struct w6852 t63216; struct w6852 t63217; struct p11003 *t63218; char *t63219; char *t63220; char *t63221; struct w49 t63222; struct w49 t63223; char *t63224; char *t63225; struct w49 t63226; struct w49 t63227; char *t63228; char *t63229; struct w49 t63230; struct w49 t63231; char *t63232; char *t63233; struct w49 t63234; struct w49 t63235; char *t63236; char *t63237; struct w49 t63238; struct w49 t63239; char *t63240; char *t63241; struct w49 t63242; struct w49 t63243; char *t63244; char *t63245; struct w49 t63246; struct w49 t63247; char *t63248; struct p11003 *t63249; struct w49 t63250; struct w6852 t63251; struct w49 t63252; struct w49 t63253; struct w6852 t63254; struct w6852 t63255; struct p11003 *t63256; struct w11873 t63257; struct w228118 t63258; struct w227393 t63259; struct w49 t63260; struct w49 t63261; struct w6852 t63262; struct w6852 t63263; char *t63264; struct p11003 *t63265; struct w49 t63266; struct structure_type24753 *t63267; struct w12224 t63268; struct w6852 t63269; struct w6852 t63270; struct p11003 *t63271; struct w11873 t63272; struct w36270 t63273; struct w49 t63274; struct structure_type24753 *t63275; struct w49 t63276; struct w49 t63277; struct w6852 t63278; struct w6852 t63279; struct p11003 *t63280; struct w49 t63281; struct w6852 t63282; struct w6852 t63283; struct w6852 t63284; struct p11003 *t63285; struct w49 t63286; struct w6852 t63287; struct w49 t63288; struct w49 t63289; struct w6852 t63290; struct w6852 t63291; struct w49 t63292; struct w6852 t63293; struct w49 t63294; struct w49 t63295; struct w6852 t63296; struct w6852 t63297; struct w49 t63298; struct w6852 t63299; struct w49 t63300; struct w49 t63301; struct w6852 t63302; struct w6852 t63303; char *t63304; struct p11003 *t63305; struct w49 t63306; struct w6852 t63307; struct w6852 t63308; struct w6852 t63309; struct p11003 *t63310; struct w49 t63311; struct w6852 t63312; struct w6852 t63313; struct w6852 t63314; struct p11003 *t63315; struct w49 t63316; struct w6852 t63317; struct w6852 t63318; struct w6852 t63319; struct p11003 *t63320; struct p11003 *t63321; struct w49 t63322; struct w6852 t63323; struct w49 t63324; struct w6852 t63325; struct w6852 t63326; struct w6852 t63327; struct w49 t63328; struct w6852 t63329; struct w49 t63330; struct w49 t63331; struct w6852 t63332; struct w6852 t63333; char *t63334; struct p11003 *t63335; struct p11003 *t63336; struct w49 t63337; struct w6852 t63338; struct w225099 t63339; struct w6852 t63340; struct w6852 t63341; struct w49 t63342; struct w6852 t63343; struct w49 t63344; struct w49 t63345; struct w6852 t63346; struct w6852 t63347; char *t63348; struct w49 t63349; struct w49 t63350; struct w6852 t63351; struct w6852 t63352; struct w49 t63353; struct w49 t63354; struct w49 t63355; struct w49 t63356; struct p11034 *t63357; struct w11873 t63358; struct w227506 t63359; struct w49 t63360; struct w49 t63361; struct p11034 *e11034; struct p11003 *e11003; struct p11003 *p11004; struct p11003 *p11007; struct p11003 *p11008; struct p11003 *p11011; struct p11003 *p11012; struct p11003 *p11015; struct p11003 *p11016; struct p11003 *p11017; struct p11003 *p11018; struct p11003 *p11021; struct p11003 *p11022; struct p11003 *p11024; struct p11034 *p11036; e11034 = (struct p11034 *)alloca(sizeof(struct p11034)); if (e11034==NULL) {backtrace("stalin.sc", 9683, 334685); out_of_memory_error();} e11034->a23668 = a23668; /* x100119 stalin.sc:9684:334701 */ /* x100084 stalin.sc:9684:334707 */ /* x100052 stalin.sc:9684:334712 */ /* x100050 stalin.sc:9684:334717 */ /* x100049 stalin.sc:9684:334735 */ t63207 = e11034->a23668; /* x100048 stalin.sc:9684:334718 */ t63205 = f8966(t63207); /* x100051 stalin.sc:9684:334738 */ t63206 = e11034->a23668; /* x269654 stalin.sc:9684:334713 */ /* EQ: dispatching general to general */ if (!((t63205.tag)==(t63206.tag))) goto l10164; switch (t63205.tag) {case FIXNUM_TYPE: if (!((t63205.value.fixnum_type)==(t63206.value.fixnum_type))) goto l10164; break; case FLONUM_TYPE: if (!((t63205.value.flonum_type)==(t63206.value.flonum_type))) goto l10164; break; case INPUT_PORT_TYPE: if (!((t63205.value.input_port_type)==(t63206.value.input_port_type))) goto l10164; break; case OUTPUT_PORT_TYPE: if (!((t63205.value.output_port_type)==(t63206.value.output_port_type))) goto l10164; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t63205.value.native_procedure_type15963)==(t63206.value.native_procedure_type15963))) goto l10164; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t63205.value.native_procedure_type19067)==(t63206.value.native_procedure_type19067))) goto l10164; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t63205.value.native_procedure_type19068)==(t63206.value.native_procedure_type19068))) goto l10164; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t63205.value.native_procedure_type22459)==(t63206.value.native_procedure_type22459))) goto l10164; break; case STRUCTURE_TYPE24753: if (!((t63205.value.structure_type24753)==(t63206.value.structure_type24753))) goto l10164; break; case STRUCTURE_TYPE24757: if (!((t63205.value.structure_type24757)==(t63206.value.structure_type24757))) goto l10164; break; case STRUCTURE_TYPE27501: if (!((t63205.value.structure_type27501)==(t63206.value.structure_type27501))) goto l10164; break; case STRUCTURE_TYPE27510: if (!((t63205.value.structure_type27510)==(t63206.value.structure_type27510))) goto l10164; break; case STRUCTURE_TYPE27621: if (!((t63205.value.structure_type27621)==(t63206.value.structure_type27621))) goto l10164; break; case STRUCTURE_TYPE27650: if (!((t63205.value.structure_type27650)==(t63206.value.structure_type27650))) goto l10164; break; case STRUCTURE_TYPE27669: if (!((t63205.value.structure_type27669)==(t63206.value.structure_type27669))) goto l10164; break; case STRUCTURE_TYPE27673: if (!((t63205.value.structure_type27673)==(t63206.value.structure_type27673))) goto l10164; break; case STRUCTURE_TYPE27692: if (!((t63205.value.structure_type27692)==(t63206.value.structure_type27692))) goto l10164; break; case STRUCTURE_TYPE27694: if (!((t63205.value.structure_type27694)==(t63206.value.structure_type27694))) goto l10164; break; case STRUCTURE_TYPE27698: if (!((t63205.value.structure_type27698)==(t63206.value.structure_type27698))) goto l10164; break; case STRUCTURE_TYPE27745: if (!((t63205.value.structure_type27745)==(t63206.value.structure_type27745))) goto l10164; break; case STRUCTURE_TYPE27747: if (!((t63205.value.structure_type27747)==(t63206.value.structure_type27747))) goto l10164; break; case STRUCTURE_TYPE27750: if (!((t63205.value.structure_type27750)==(t63206.value.structure_type27750))) goto l10164; break; case STRUCTURE_TYPE27753: if (!((t63205.value.structure_type27753)==(t63206.value.structure_type27753))) goto l10164; break; case STRUCTURE_TYPE27756: if (!((t63205.value.structure_type27756)==(t63206.value.structure_type27756))) goto l10164; break; case STRUCTURE_TYPE27761: if (!((t63205.value.structure_type27761)==(t63206.value.structure_type27761))) goto l10164; break; case STRUCTURE_TYPE27769: if (!((t63205.value.structure_type27769)==(t63206.value.structure_type27769))) goto l10164; break; case STRUCTURE_TYPE27776: if (!((t63205.value.structure_type27776)==(t63206.value.structure_type27776))) goto l10164; break; case STRUCTURE_TYPE27779: if (!((t63205.value.structure_type27779)==(t63206.value.structure_type27779))) goto l10164; break; case STRUCTURE_TYPE27858: if (!((t63205.value.structure_type27858)==(t63206.value.structure_type27858))) goto l10164; break; case STRING_TYPE: if (!((t63205.value.string_type)==(t63206.value.string_type))) goto l10164; break; case HEADED_VECTOR_TYPE27896: if (!((t63205.value.headed_vector_type27896)==(t63206.value.headed_vector_type27896))) goto l10164; break; case EXTERNAL_SYMBOL_TYPE: if (!((t63205.value.external_symbol_type)==(t63206.value.external_symbol_type))) goto l10164; break; case STRUCTURE_TYPE27908: if (!((t63205.value.structure_type27908)==(t63206.value.structure_type27908))) goto l10164; break; default:;} /* x100082 */ /* x100057 stalin.sc:9685:334749 */ /* x100056 stalin.sc:9685:334754 */ /* x100055 stalin.sc:9685:334763 */ t63208 = e11034->a23668; /* x100054 stalin.sc:9685:334755 */ if (!((f8899(t63208).tag)==FALSE_TYPE)) goto l10164; /* x100080 */ /* x100079 stalin.sc:9691:334942 */ /* x100078 stalin.sc:9691:334957 */ t63214 = e11034->a23668; /* x100077 stalin.sc:9691:334943 */ t63210 = f8984(t63214); /* x100076 stalin.sc:9687:334783 */ t63209 = e11034; /* x100058 stalin.sc:9686:334776 */ t63211.tag = NATIVE_PROCEDURE_TYPE17460; t63211.value.native_procedure_type17460 = t63209; t63212 = *((struct w49 *)(&t63210)); t63213 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t63211, t63212, t63213).tag)==FALSE_TYPE) goto l10164; /* x100116 */ /* x100115 */ t63215 = e11034; p11036 = t63215; /* x100114 stalin.sc:9692:334967 */ /* x100088 stalin.sc:9693:334994 */ /* x100087 stalin.sc:9693:335018 */ t63353 = p11036->a23668; /* x100086 stalin.sc:9693:334995 */ a36717 = t63353; /* x279537 */ /* x279536 */ t63354 = a36717; /* x279535 */ if (!((t63354.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31634]"); structure_ref_error();} t63216 = t63354.value.structure_type27694->s1; /* x100113 stalin.sc:9694:335027 */ /* x100112 stalin.sc:9695:335058 */ /* x100108 stalin.sc:9695:335067 */ t63357 = p11036; /* x100111 stalin.sc:9699:335226 */ /* x100110 stalin.sc:9699:335241 */ t63361 = p11036->a23668; /* x100109 stalin.sc:9699:335227 */ t63358 = f8984(t63361); /* x100090 stalin.sc:9695:335059 */ t63359.tag = NATIVE_PROCEDURE_TYPE17462; t63359.value.native_procedure_type17462 = t63357; t63360 = *((struct w49 *)(&t63358)); t63355 = f1314(t63359, t63360); /* x100089 stalin.sc:9694:335028 */ a36718 = t63355; /* x279541 */ /* x279540 */ t63356 = a36718; /* x279539 */ if (!((t63356.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31635]"); structure_ref_error();} t63217 = t63356.value.structure_type27694->s1; /* x100085 stalin.sc:9692:334968 */ a23640 = t63216; a23641 = t63217; e11003 = (struct p11003 *)alloca(sizeof(struct p11003)); if (e11003==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e11003->a23640 = a23640; e11003->a23641 = a23641; /* x99998 stalin.sc:9592:330640 */ /* x99997 stalin.sc:9592:330646 */ /* x99996 stalin.sc:9592:330663 */ /* x99995 stalin.sc:9592:330682 */ t63351 = e11003->a23640; /* x99994 stalin.sc:9592:330664 */ a39785 = t63351; /* x291809 */ /* x291808 */ t63352 = a39785; /* x291807 */ if (!((t63352.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34702]"); structure_ref_error();} t63349 = t63352.value.structure_type27698->s11; /* x99993 stalin.sc:9592:330647 */ a40335 = t63349; /* x294009 */ /* x294008 */ t63350 = a40335; /* x294007 */ if (!((t63350.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35252]"); structure_ref_error();} t63219 = t63350.value.structure_type27698->s0; /* x99992 */ t63218 = e11003; p11004 = t63218; a23642 = t63219; /* x99991 */ /* x99797 */ /* x99796 */ /* x99794 */ t63220 = a23642; /* x99795 */ t63221 = q39; /* x99793 */ t63222.tag = EXTERNAL_SYMBOL_TYPE; t63222.value.external_symbol_type = t63220; t63223.tag = EXTERNAL_SYMBOL_TYPE; t63223.value.external_symbol_type = t63221; if (!(f26160(t63222, t63223)==FALSE_TYPE)) goto l10167; /* x99790 */ /* x99789 */ /* x99787 */ t63224 = a23642; /* x99788 */ t63225 = q40; /* x99786 */ t63226.tag = EXTERNAL_SYMBOL_TYPE; t63226.value.external_symbol_type = t63224; t63227.tag = EXTERNAL_SYMBOL_TYPE; t63227.value.external_symbol_type = t63225; if (!(f26160(t63226, t63227)==FALSE_TYPE)) goto l10167; /* x99783 */ /* x99781 */ t63228 = a23642; /* x99782 */ t63229 = q41; /* x99780 */ t63230.tag = EXTERNAL_SYMBOL_TYPE; t63230.value.external_symbol_type = t63228; t63231.tag = EXTERNAL_SYMBOL_TYPE; t63231.value.external_symbol_type = t63229; if (f26160(t63230, t63231)==FALSE_TYPE) goto l10168; l10167: /* x99822 */ /* x99821 */ t63335 = p11004; p11007 = t63335; /* x99820 */ /* x99819 stalin.sc:9594:330742 */ /* x99812 stalin.sc:9594:330750 */ /* x99810 stalin.sc:9594:330755 */ /* x99809 stalin.sc:9594:330772 */ /* x99808 stalin.sc:9594:330791 */ t63346 = p11007->a23640; /* x99807 stalin.sc:9594:330773 */ a39771 = t63346; /* x291753 */ /* x291752 */ t63347 = a39771; /* x291751 */ if (!((t63347.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34688]"); structure_ref_error();} t63344 = t63347.value.structure_type27698->s11; /* x99806 stalin.sc:9594:330756 */ a39236 = t63344; /* x289613 */ /* x289612 */ t63345 = a39236; /* x289611 */ if (!((t63345.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34153]"); structure_ref_error();} t63342 = t63345.value.structure_type27698->s15; /* x99811 stalin.sc:9594:330796 */ t63343 = p11007->a23640; /* x269662 stalin.sc:9594:330751 */ /* EQ: dispatching general to general */ if (!((t63342.tag)==(t63343.tag))) goto l10192; switch (t63342.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: case INPUT_PORT_TYPE: case OUTPUT_PORT_TYPE: case NATIVE_PROCEDURE_TYPE15963: case NATIVE_PROCEDURE_TYPE19067: case NATIVE_PROCEDURE_TYPE19068: case NATIVE_PROCEDURE_TYPE22459: case STRUCTURE_TYPE24753: case STRUCTURE_TYPE24757: case STRUCTURE_TYPE27501: case STRUCTURE_TYPE27510: case STRUCTURE_TYPE27621: case STRUCTURE_TYPE27650: case STRUCTURE_TYPE27669: case STRUCTURE_TYPE27673: case STRUCTURE_TYPE27692: case STRUCTURE_TYPE27694: case STRUCTURE_TYPE27745: case STRUCTURE_TYPE27747: case STRUCTURE_TYPE27750: case STRUCTURE_TYPE27753: case STRUCTURE_TYPE27756: case STRUCTURE_TYPE27761: case STRUCTURE_TYPE27769: case STRUCTURE_TYPE27776: case STRUCTURE_TYPE27779: case STRUCTURE_TYPE27858: case STRING_TYPE: case HEADED_VECTOR_TYPE27896: case STRUCTURE_TYPE27908: goto l10192; break; case STRUCTURE_TYPE27698: if (!((t63342.value.structure_type27698)==(t63343.value.structure_type27698))) goto l10192; break; case EXTERNAL_SYMBOL_TYPE: if (!((t63342.value.external_symbol_type)==(t63343.value.external_symbol_type))) goto l10192; break; default:;} /* x99814 */ /* x99813 */ goto l10193; l10192: /* x99818 */ /* x99817 */ /* x99816 stalin.sc:9594:330800 */ /* x99815 stalin.sc:9594:330801 */ /* x296845 QobiScheme.sc:166:5314 */ /* x296844 QobiScheme.sc:166:5321 */ t63348 = "This shouldn\'t happen"; /* x296843 QobiScheme.sc:166:5315 */ stalin_panic(t63348); l10193: /* x99804 */ t63336 = p11007; p11008 = t63336; /* x99803 stalin.sc:9595:330814 */ /* x99801 stalin.sc:9595:330836 */ /* x99800 stalin.sc:9595:330855 */ t63340 = p11008->a23640; /* x99799 stalin.sc:9595:330837 */ a39770 = t63340; /* x291749 */ /* x291748 */ t63341 = a39770; /* x291747 */ if (!((t63341.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34687]"); structure_ref_error();} t63337 = t63341.value.structure_type27698->s11; /* x99802 stalin.sc:9595:330859 */ t63338 = p11008->a23641; /* x99798 stalin.sc:9595:330815 */ t63339 = *((struct w225099 *)(&t63338)); f5608(t63337, t63339); return; l10168: /* x99990 */ /* x99826 */ /* x99824 */ t63232 = a23642; /* x99825 */ t63233 = q42; /* x99823 */ t63234.tag = EXTERNAL_SYMBOL_TYPE; t63234.value.external_symbol_type = t63232; t63235.tag = EXTERNAL_SYMBOL_TYPE; t63235.value.external_symbol_type = t63233; if (f26160(t63234, t63235)==FALSE_TYPE) goto l10172; /* x99851 */ /* x99850 */ t63320 = p11004; p11011 = t63320; /* x99849 */ /* x99848 stalin.sc:9597:330877 */ /* x99841 stalin.sc:9597:330885 */ /* x99839 stalin.sc:9597:330890 */ /* x99838 stalin.sc:9597:330909 */ /* x99837 stalin.sc:9597:330928 */ t63332 = p11011->a23640; /* x99836 stalin.sc:9597:330910 */ a39773 = t63332; /* x291761 */ /* x291760 */ t63333 = a39773; /* x291759 */ if (!((t63333.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34690]"); structure_ref_error();} t63330 = t63333.value.structure_type27698->s11; /* x99835 stalin.sc:9597:330891 */ a39075 = t63330; /* x288969 */ /* x288968 */ t63331 = a39075; /* x288967 */ if (!((t63331.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33992]"); structure_ref_error();} t63328 = t63331.value.structure_type27698->s17; /* x99840 stalin.sc:9597:330933 */ t63329 = p11011->a23640; /* x269661 stalin.sc:9597:330886 */ /* EQ: dispatching general to general */ if (!((t63328.tag)==(t63329.tag))) goto l10189; switch (t63328.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: case INPUT_PORT_TYPE: case OUTPUT_PORT_TYPE: case NATIVE_PROCEDURE_TYPE15963: case NATIVE_PROCEDURE_TYPE19067: case NATIVE_PROCEDURE_TYPE19068: case NATIVE_PROCEDURE_TYPE22459: case STRUCTURE_TYPE24753: case STRUCTURE_TYPE24757: case STRUCTURE_TYPE27501: case STRUCTURE_TYPE27510: case STRUCTURE_TYPE27621: case STRUCTURE_TYPE27650: case STRUCTURE_TYPE27669: case STRUCTURE_TYPE27673: case STRUCTURE_TYPE27692: case STRUCTURE_TYPE27694: case STRUCTURE_TYPE27745: case STRUCTURE_TYPE27747: case STRUCTURE_TYPE27750: case STRUCTURE_TYPE27753: case STRUCTURE_TYPE27756: case STRUCTURE_TYPE27761: case STRUCTURE_TYPE27769: case STRUCTURE_TYPE27776: case STRUCTURE_TYPE27779: case STRUCTURE_TYPE27858: case STRING_TYPE: case HEADED_VECTOR_TYPE27896: case STRUCTURE_TYPE27908: goto l10189; break; case STRUCTURE_TYPE27698: if (!((t63328.value.structure_type27698)==(t63329.value.structure_type27698))) goto l10189; break; case EXTERNAL_SYMBOL_TYPE: if (!((t63328.value.external_symbol_type)==(t63329.value.external_symbol_type))) goto l10189; break; default:;} /* x99843 */ /* x99842 */ goto l10190; l10189: /* x99847 */ /* x99846 */ /* x99845 stalin.sc:9597:330937 */ /* x99844 stalin.sc:9597:330938 */ /* x296849 QobiScheme.sc:166:5314 */ /* x296848 QobiScheme.sc:166:5321 */ t63334 = "This shouldn\'t happen"; /* x296847 QobiScheme.sc:166:5315 */ stalin_panic(t63334); l10190: /* x99833 */ t63321 = p11011; p11012 = t63321; /* x99832 stalin.sc:9598:330951 */ /* x99830 stalin.sc:9598:330975 */ /* x99829 stalin.sc:9598:330994 */ t63326 = p11012->a23640; /* x99828 stalin.sc:9598:330976 */ a39772 = t63326; /* x291757 */ /* x291756 */ t63327 = a39772; /* x291755 */ if (!((t63327.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34689]"); structure_ref_error();} t63322 = t63327.value.structure_type27698->s11; /* x99831 stalin.sc:9598:330998 */ t63323 = p11012->a23641; /* x99827 stalin.sc:9598:330952 */ a19159 = t63322; a19160 = t63323; /* x50310 */ /* x50308 */ t63324 = a19159; /* x50309 */ t63325 = a19160; /* x50307 */ if ((t63324.tag)==STRUCTURE_TYPE27698) {t63324.value.structure_type27698->s17 = *((struct w49 *)(&t63325)); return;} backtrace_internal("SET-EXPRESSION-SOURCE![5624]"); structure_set_error(); l10172: /* x99989 */ /* x99855 */ /* x99853 */ t63236 = a23642; /* x99854 */ t63237 = q43; /* x99852 */ t63238.tag = EXTERNAL_SYMBOL_TYPE; t63238.value.external_symbol_type = t63236; t63239.tag = EXTERNAL_SYMBOL_TYPE; t63239.value.external_symbol_type = t63237; if (f26160(t63238, t63239)==FALSE_TYPE) goto l10174; /* x99912 */ /* x99911 */ t63285 = p11004; p11015 = t63285; /* x99910 stalin.sc:9600:331014 */ /* x99863 stalin.sc:9600:331021 */ /* x99861 stalin.sc:9600:331026 */ /* x99860 stalin.sc:9600:331049 */ /* x99859 stalin.sc:9600:331068 */ t63290 = p11015->a23640; /* x99858 stalin.sc:9600:331050 */ a39779 = t63290; /* x291785 */ /* x291784 */ t63291 = a39779; /* x291783 */ if (!((t63291.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34696]"); structure_ref_error();} t63288 = t63291.value.structure_type27698->s11; /* x99857 stalin.sc:9600:331027 */ a39030 = t63288; /* x288789 */ /* x288788 */ t63289 = a39030; /* x288787 */ if (!((t63289.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33947]"); structure_ref_error();} t63286 = t63289.value.structure_type27698->s18; /* x99862 stalin.sc:9600:331073 */ t63287 = p11015->a23640; /* x269660 stalin.sc:9600:331022 */ /* EQ: dispatching general to general */ if (!((t63286.tag)==(t63287.tag))) goto l10183; switch (t63286.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: case INPUT_PORT_TYPE: case OUTPUT_PORT_TYPE: case NATIVE_PROCEDURE_TYPE15963: case NATIVE_PROCEDURE_TYPE19067: case NATIVE_PROCEDURE_TYPE19068: case NATIVE_PROCEDURE_TYPE22459: case STRUCTURE_TYPE24753: case STRUCTURE_TYPE24757: case STRUCTURE_TYPE27501: case STRUCTURE_TYPE27510: case STRUCTURE_TYPE27621: case STRUCTURE_TYPE27650: case STRUCTURE_TYPE27669: case STRUCTURE_TYPE27673: case STRUCTURE_TYPE27692: case STRUCTURE_TYPE27694: case STRUCTURE_TYPE27745: case STRUCTURE_TYPE27747: case STRUCTURE_TYPE27750: case STRUCTURE_TYPE27753: case STRUCTURE_TYPE27756: case STRUCTURE_TYPE27761: case STRUCTURE_TYPE27769: case STRUCTURE_TYPE27776: case STRUCTURE_TYPE27779: case STRUCTURE_TYPE27858: case STRING_TYPE: case HEADED_VECTOR_TYPE27896: case STRUCTURE_TYPE27908: goto l10183; break; case STRUCTURE_TYPE27698: if (!((t63286.value.structure_type27698)==(t63287.value.structure_type27698))) goto l10183; break; case EXTERNAL_SYMBOL_TYPE: if (!((t63286.value.external_symbol_type)==(t63287.value.external_symbol_type))) goto l10183; break; default:;} /* x99871 */ /* x99870 */ t63315 = p11015; p11016 = t63315; /* x99869 stalin.sc:9601:331080 */ /* x99867 stalin.sc:9601:331108 */ /* x99866 stalin.sc:9601:331127 */ t63318 = p11016->a23640; /* x99865 stalin.sc:9601:331109 */ a39774 = t63318; /* x291765 */ /* x291764 */ t63319 = a39774; /* x291763 */ if (!((t63319.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34691]"); structure_ref_error();} t63316 = t63319.value.structure_type27698->s11; /* x99868 stalin.sc:9601:331131 */ t63317 = p11016->a23641; /* x99864 stalin.sc:9601:331081 */ f5632(t63316, t63317); return; l10183: /* x99909 */ /* x99879 stalin.sc:9602:331139 */ /* x99877 stalin.sc:9602:331144 */ /* x99876 stalin.sc:9602:331167 */ /* x99875 stalin.sc:9602:331186 */ t63296 = p11015->a23640; /* x99874 stalin.sc:9602:331168 */ a39778 = t63296; /* x291781 */ /* x291780 */ t63297 = a39778; /* x291779 */ if (!((t63297.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34695]"); structure_ref_error();} t63294 = t63297.value.structure_type27698->s11; /* x99873 stalin.sc:9602:331145 */ a38972 = t63294; /* x288557 */ /* x288556 */ t63295 = a38972; /* x288555 */ if (!((t63295.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33889]"); structure_ref_error();} t63292 = t63295.value.structure_type27698->s19; /* x99878 stalin.sc:9602:331191 */ t63293 = p11015->a23640; /* x269659 stalin.sc:9602:331140 */ /* EQ: dispatching general to general */ if (!((t63292.tag)==(t63293.tag))) goto l10185; switch (t63292.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: case INPUT_PORT_TYPE: case OUTPUT_PORT_TYPE: case NATIVE_PROCEDURE_TYPE15963: case NATIVE_PROCEDURE_TYPE19067: case NATIVE_PROCEDURE_TYPE19068: case NATIVE_PROCEDURE_TYPE22459: case STRUCTURE_TYPE24753: case STRUCTURE_TYPE24757: case STRUCTURE_TYPE27501: case STRUCTURE_TYPE27510: case STRUCTURE_TYPE27621: case STRUCTURE_TYPE27650: case STRUCTURE_TYPE27669: case STRUCTURE_TYPE27673: case STRUCTURE_TYPE27692: case STRUCTURE_TYPE27694: case STRUCTURE_TYPE27745: case STRUCTURE_TYPE27747: case STRUCTURE_TYPE27750: case STRUCTURE_TYPE27753: case STRUCTURE_TYPE27756: case STRUCTURE_TYPE27761: case STRUCTURE_TYPE27769: case STRUCTURE_TYPE27776: case STRUCTURE_TYPE27779: case STRUCTURE_TYPE27858: case STRING_TYPE: case HEADED_VECTOR_TYPE27896: case STRUCTURE_TYPE27908: goto l10185; break; case STRUCTURE_TYPE27698: if (!((t63292.value.structure_type27698)==(t63293.value.structure_type27698))) goto l10185; break; case EXTERNAL_SYMBOL_TYPE: if (!((t63292.value.external_symbol_type)==(t63293.value.external_symbol_type))) goto l10185; break; default:;} /* x99887 */ /* x99886 */ t63310 = p11015; p11017 = t63310; /* x99885 stalin.sc:9603:331198 */ /* x99883 stalin.sc:9603:331226 */ /* x99882 stalin.sc:9603:331245 */ t63313 = p11017->a23640; /* x99881 stalin.sc:9603:331227 */ a39775 = t63313; /* x291769 */ /* x291768 */ t63314 = a39775; /* x291767 */ if (!((t63314.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34692]"); structure_ref_error();} t63311 = t63314.value.structure_type27698->s11; /* x99884 stalin.sc:9603:331249 */ t63312 = p11017->a23641; /* x99880 stalin.sc:9603:331199 */ f5640(t63311, t63312); return; l10185: /* x99908 */ /* x99895 stalin.sc:9604:331257 */ /* x99893 stalin.sc:9604:331262 */ /* x99892 stalin.sc:9604:331284 */ /* x99891 stalin.sc:9604:331303 */ t63302 = p11015->a23640; /* x99890 stalin.sc:9604:331285 */ a39777 = t63302; /* x291777 */ /* x291776 */ t63303 = a39777; /* x291775 */ if (!((t63303.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34694]"); structure_ref_error();} t63300 = t63303.value.structure_type27698->s11; /* x99889 stalin.sc:9604:331263 */ a38918 = t63300; /* x288341 */ /* x288340 */ t63301 = a38918; /* x288339 */ if (!((t63301.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33835]"); structure_ref_error();} t63298 = t63301.value.structure_type27698->s20; /* x99894 stalin.sc:9604:331308 */ t63299 = p11015->a23640; /* x269658 stalin.sc:9604:331258 */ /* EQ: dispatching general to general */ if (!((t63298.tag)==(t63299.tag))) goto l10187; switch (t63298.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: case INPUT_PORT_TYPE: case OUTPUT_PORT_TYPE: case NATIVE_PROCEDURE_TYPE15963: case NATIVE_PROCEDURE_TYPE19067: case NATIVE_PROCEDURE_TYPE19068: case NATIVE_PROCEDURE_TYPE22459: case STRUCTURE_TYPE24753: case STRUCTURE_TYPE24757: case STRUCTURE_TYPE27501: case STRUCTURE_TYPE27510: case STRUCTURE_TYPE27621: case STRUCTURE_TYPE27650: case STRUCTURE_TYPE27669: case STRUCTURE_TYPE27673: case STRUCTURE_TYPE27692: case STRUCTURE_TYPE27694: case STRUCTURE_TYPE27745: case STRUCTURE_TYPE27747: case STRUCTURE_TYPE27750: case STRUCTURE_TYPE27753: case STRUCTURE_TYPE27756: case STRUCTURE_TYPE27761: case STRUCTURE_TYPE27769: case STRUCTURE_TYPE27776: case STRUCTURE_TYPE27779: case STRUCTURE_TYPE27858: case STRING_TYPE: case HEADED_VECTOR_TYPE27896: case STRUCTURE_TYPE27908: goto l10187; break; case STRUCTURE_TYPE27698: if (!((t63298.value.structure_type27698)==(t63299.value.structure_type27698))) goto l10187; break; case EXTERNAL_SYMBOL_TYPE: if (!((t63298.value.external_symbol_type)==(t63299.value.external_symbol_type))) goto l10187; break; default:;} /* x99903 */ /* x99902 */ t63305 = p11015; p11018 = t63305; /* x99901 stalin.sc:9605:331315 */ /* x99899 stalin.sc:9605:331342 */ /* x99898 stalin.sc:9605:331361 */ t63308 = p11018->a23640; /* x99897 stalin.sc:9605:331343 */ a39776 = t63308; /* x291773 */ /* x291772 */ t63309 = a39776; /* x291771 */ if (!((t63309.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34693]"); structure_ref_error();} t63306 = t63309.value.structure_type27698->s11; /* x99900 stalin.sc:9605:331365 */ t63307 = p11018->a23641; /* x99896 stalin.sc:9605:331316 */ f5648(t63306, t63307); return; l10187: /* x99907 */ /* x99906 */ /* x99905 stalin.sc:9606:331378 */ /* x99904 stalin.sc:9606:331379 */ /* x296853 QobiScheme.sc:166:5314 */ /* x296852 QobiScheme.sc:166:5321 */ t63304 = "This shouldn\'t happen"; /* x296851 QobiScheme.sc:166:5315 */ stalin_panic(t63304); l10174: /* x99988 */ /* x99925 */ /* x99924 */ /* x99922 */ t63240 = a23642; /* x99923 */ t63241 = q36; /* x99921 */ t63242.tag = EXTERNAL_SYMBOL_TYPE; t63242.value.external_symbol_type = t63240; t63243.tag = EXTERNAL_SYMBOL_TYPE; t63243.value.external_symbol_type = t63241; if (!(f26160(t63242, t63243)==FALSE_TYPE)) goto l10175; /* x99918 */ /* x99916 */ t63244 = a23642; /* x99917 */ t63245 = q37; /* x99915 */ t63246.tag = EXTERNAL_SYMBOL_TYPE; t63246.value.external_symbol_type = t63244; t63247.tag = EXTERNAL_SYMBOL_TYPE; t63247.value.external_symbol_type = t63245; if (f26160(t63246, t63247)==FALSE_TYPE) goto l10176; l10175: /* x99983 */ /* x99982 */ t63249 = p11004; p11021 = t63249; /* x99981 stalin.sc:9608:331419 */ /* x99933 stalin.sc:9608:331426 */ /* x99931 stalin.sc:9608:331431 */ /* x99930 stalin.sc:9608:331450 */ /* x99929 stalin.sc:9608:331469 */ t63254 = p11021->a23640; /* x99928 stalin.sc:9608:331451 */ a39784 = t63254; /* x291805 */ /* x291804 */ t63255 = a39784; /* x291803 */ if (!((t63255.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34701]"); structure_ref_error();} t63252 = t63255.value.structure_type27698->s11; /* x99927 stalin.sc:9608:331432 */ a38694 = t63252; /* x287445 */ /* x287444 */ t63253 = a38694; /* x287443 */ if (!((t63253.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33611]"); structure_ref_error();} t63250 = t63253.value.structure_type27698->s21; /* x99932 stalin.sc:9608:331474 */ t63251 = p11021->a23640; /* x269657 stalin.sc:9608:331427 */ /* EQ: dispatching general to general */ if (!((t63250.tag)==(t63251.tag))) goto l10179; switch (t63250.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: case INPUT_PORT_TYPE: case OUTPUT_PORT_TYPE: case NATIVE_PROCEDURE_TYPE15963: case NATIVE_PROCEDURE_TYPE19067: case NATIVE_PROCEDURE_TYPE19068: case NATIVE_PROCEDURE_TYPE22459: case STRUCTURE_TYPE24753: case STRUCTURE_TYPE24757: case STRUCTURE_TYPE27501: case STRUCTURE_TYPE27510: case STRUCTURE_TYPE27621: case STRUCTURE_TYPE27650: case STRUCTURE_TYPE27669: case STRUCTURE_TYPE27673: case STRUCTURE_TYPE27692: case STRUCTURE_TYPE27694: case STRUCTURE_TYPE27745: case STRUCTURE_TYPE27747: case STRUCTURE_TYPE27750: case STRUCTURE_TYPE27753: case STRUCTURE_TYPE27756: case STRUCTURE_TYPE27761: case STRUCTURE_TYPE27769: case STRUCTURE_TYPE27776: case STRUCTURE_TYPE27779: case STRUCTURE_TYPE27858: case STRING_TYPE: case HEADED_VECTOR_TYPE27896: case STRUCTURE_TYPE27908: goto l10179; break; case STRUCTURE_TYPE27698: if (!((t63250.value.structure_type27698)==(t63251.value.structure_type27698))) goto l10179; break; case EXTERNAL_SYMBOL_TYPE: if (!((t63250.value.external_symbol_type)==(t63251.value.external_symbol_type))) goto l10179; break; default:;} /* x99941 */ /* x99940 */ t63280 = p11021; p11022 = t63280; /* x99939 stalin.sc:9609:331481 */ /* x99937 stalin.sc:9609:331505 */ /* x99936 stalin.sc:9609:331524 */ t63283 = p11022->a23640; /* x99935 stalin.sc:9609:331506 */ a39780 = t63283; /* x291789 */ /* x291788 */ t63284 = a39780; /* x291787 */ if (!((t63284.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34697]"); structure_ref_error();} t63281 = t63284.value.structure_type27698->s11; /* x99938 stalin.sc:9609:331528 */ t63282 = p11022->a23641; /* x99934 stalin.sc:9609:331482 */ f5656(t63281, t63282); return; l10179: /* x99980 */ /* x99953 stalin.sc:9610:331536 */ /* x99952 stalin.sc:9611:331575 */ /* x99951 stalin.sc:9611:331597 */ /* x99950 stalin.sc:9611:331616 */ t63262 = p11021->a23640; /* x99949 stalin.sc:9611:331598 */ a39783 = t63262; /* x291801 */ /* x291800 */ t63263 = a39783; /* x291799 */ if (!((t63263.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34700]"); structure_ref_error();} t63260 = t63263.value.structure_type27698->s11; /* x99948 stalin.sc:9611:331576 */ a38577 = t63260; /* x286977 */ /* x286976 */ t63261 = a38577; /* x286975 */ if (!((t63261.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33494]"); structure_ref_error();} t63257 = t63261.value.structure_type27698->s22; /* x99947 stalin.sc:9610:331541 */ t63256 = p11021; /* x99942 stalin.sc:9610:331537 */ t63258.tag = NATIVE_PROCEDURE_TYPE17531; t63258.value.native_procedure_type17531 = t63256; t63259 = *((struct w227393 *)(&t63257)); if (f1080(t63258, t63259)==FALSE_TYPE) goto l10181; /* x99975 */ /* x99974 */ t63265 = p11021; p11024 = t63265; /* x99973 stalin.sc:9612:331625 */ /* x99957 stalin.sc:9613:331656 */ /* x99956 stalin.sc:9613:331675 */ t63269 = p11024->a23640; /* x99955 stalin.sc:9613:331657 */ a39781 = t63269; /* x291793 */ /* x291792 */ t63270 = a39781; /* x291791 */ if (!((t63270.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34698]"); structure_ref_error();} t63266 = t63270.value.structure_type27698->s11; /* x99972 stalin.sc:9614:331683 */ /* x99971 stalin.sc:9615:331727 */ /* x99970 stalin.sc:9615:331749 */ /* x99969 stalin.sc:9615:331768 */ t63278 = p11024->a23640; /* x99968 stalin.sc:9615:331750 */ a39782 = t63278; /* x291797 */ /* x291796 */ t63279 = a39782; /* x291795 */ if (!((t63279.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34699]"); structure_ref_error();} t63276 = t63279.value.structure_type27698->s11; /* x99967 stalin.sc:9615:331728 */ a38576 = t63276; /* x286973 */ /* x286972 */ t63277 = a38576; /* x286971 */ if (!((t63277.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33493]"); structure_ref_error();} t63272 = t63277.value.structure_type27698->s22; /* x99966 stalin.sc:9614:331688 */ t63271 = p11024; /* x99958 stalin.sc:9614:331684 */ t63273.tag = NATIVE_PROCEDURE_TYPE17534; t63273.value.native_procedure_type17534 = t63271; t63274 = *((struct w49 *)(&t63272)); t63275 = (struct structure_type24753 *)NULL_TYPE; t63267 = f27731(t63273, t63274, t63275); /* x99954 stalin.sc:9612:331626 */ /* MOVE: branching squeezed to general */ if (t63267>=((struct structure_type24753 *)VALUE_OFFSET)) {t63268.tag = STRUCTURE_TYPE24753; t63268.value.structure_type24753 = t63267;} else t63268.tag = (unsigned)t63267; f5664(t63266, t63268); return; l10181: /* x99979 */ /* x99978 */ /* x99977 stalin.sc:9616:331784 */ /* x99976 stalin.sc:9616:331785 */ /* x296857 QobiScheme.sc:166:5314 */ /* x296856 QobiScheme.sc:166:5321 */ t63264 = "This shouldn\'t happen"; /* x296855 QobiScheme.sc:166:5315 */ stalin_panic(t63264); l10176: /* x99987 */ /* x99986 */ /* x99985 stalin.sc:9617:331805 */ /* x99984 stalin.sc:9617:331806 */ /* x296861 QobiScheme.sc:166:5314 */ /* x296860 QobiScheme.sc:166:5321 */ t63248 = "This shouldn\'t happen"; /* x296859 QobiScheme.sc:166:5315 */ stalin_panic(t63248); l10164: /* x100118 stalin.sc:9684:334701 */ /* x100117 stalin.sc:9684:334701 */ return;} /* [inside REMOVE-UNUSED-OBJECTS! 11032] */ void f11032(struct w49 a23665) {struct w49 a36798; /* S */ struct w49 a36802; /* S */ struct w49 a36805; /* S */ struct w49 t63362; struct w12224 t63363; struct w12224 t63364; struct w227671 t63365; struct w49 t63366; struct w49 t63367; struct w49 t63368; struct w49 t63369; struct w12224 t63370; struct w12224 t63371; struct w227671 t63372; struct w49 t63373; struct w49 t63374; struct w49 t63375; struct w49 t63376; struct w12224 t63377; struct w12224 t63378; struct w227671 t63379; struct w49 t63380; struct w49 t63381; struct w49 t63382; /* x100042 */ /* x100032 stalin.sc:9675:334393 */ /* x100025 stalin.sc:9676:334424 */ t63369 = a23665; /* x100031 stalin.sc:9676:334426 */ /* x100027 stalin.sc:9676:334441 */ /* x100030 stalin.sc:9676:334450 */ /* x100029 stalin.sc:9676:334469 */ t63374 = a23665; /* x100028 stalin.sc:9676:334451 */ a36805 = t63374; /* x279889 */ /* x279888 */ t63375 = a36805; /* x279887 */ if (!((t63375.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ACCESSES[6597] 31722]"); structure_ref_error();} t63371 = t63375.value.structure_type27692->s10; /* x100026 stalin.sc:9676:334427 */ t63372.tag = NATIVE_PROCEDURE_TYPE7614; t63373 = *((struct w49 *)(&t63371)); t63370 = f1226(t63372, t63373); /* x100024 stalin.sc:9675:334394 */ f6598(t63369, t63370); /* x100041 stalin.sc:9677:334480 */ /* x100034 stalin.sc:9678:334514 */ t63376 = a23665; /* x100040 stalin.sc:9678:334516 */ /* x100036 stalin.sc:9678:334531 */ /* x100039 stalin.sc:9678:334540 */ /* x100038 stalin.sc:9678:334562 */ t63381 = a23665; /* x100037 stalin.sc:9678:334541 */ a36802 = t63381; /* x279877 */ /* x279876 */ t63382 = a36802; /* x279875 */ if (!((t63382.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ASSIGNMENTS[6605] 31719]"); structure_ref_error();} t63378 = t63382.value.structure_type27692->s11; /* x100035 stalin.sc:9678:334517 */ t63379.tag = NATIVE_PROCEDURE_TYPE7614; t63380 = *((struct w49 *)(&t63378)); t63377 = f1226(t63379, t63380); /* x100033 stalin.sc:9677:334481 */ f6606(t63376, t63377); /* x100023 */ /* x100022 stalin.sc:9679:334573 */ /* x100015 stalin.sc:9680:334606 */ t63362 = a23665; /* x100021 stalin.sc:9680:334608 */ /* x100017 stalin.sc:9680:334623 */ /* x100020 stalin.sc:9680:334632 */ /* x100019 stalin.sc:9680:334653 */ t63367 = a23665; /* x100018 stalin.sc:9680:334633 */ a36798 = t63367; /* x279861 */ /* x279860 */ t63368 = a36798; /* x279859 */ if (!((t63368.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-REFERENCES[6613] 31715]"); structure_ref_error();} t63364 = t63368.value.structure_type27692->s12; /* x100016 stalin.sc:9680:334609 */ t63365.tag = NATIVE_PROCEDURE_TYPE7614; t63366 = *((struct w49 *)(&t63364)); t63363 = f1226(t63365, t63366); /* x100014 stalin.sc:9679:334574 */ f6614(t63362, t63363); return;} /* REMOVE-UNUSED-OBJECTS![11028] */ void f11028(void) {struct w21193 t63383; struct w227671 t63384; struct w49 t63385; struct w12224 t63386; struct w21193 t63387; struct w227671 t63388; struct w49 t63389; struct w12224 t63390; struct w21193 t63391; struct w36108 t63392; struct w49 t63393; struct structure_type24753 *t63394; struct w21193 t63395; struct w36108 t63396; struct w49 t63397; struct structure_type24753 *t63398; struct w21193 t63399; struct w36108 t63400; struct w49 t63401; struct structure_type24753 *t63402; struct w21193 t63403; struct w36108 t63404; struct w49 t63405; struct structure_type24753 *t63406; struct w21193 t63407; struct w36108 t63408; struct w49 t63409; struct structure_type24753 *t63410; struct w12224 t63411; struct w12224 t63412; struct structure_type24753 *t63413; struct w36108 t63414; struct w49 t63415; struct structure_type24753 *t63416; struct w12224 t63417; struct w36270 t63418; struct w49 t63419; struct structure_type24753 *t63420; struct w21193 t63421; struct w227671 t63422; struct w49 t63423; struct w21193 t63424; struct w36108 t63425; struct w49 t63426; struct structure_type24753 *t63427; struct w21193 t63428; struct w36108 t63429; struct w49 t63430; struct structure_type24753 *t63431; struct w21193 t63432; struct w227671 t63433; struct w49 t63434; struct w21193 t63435; struct w227671 t63436; struct w49 t63437; struct w12224 t63438; struct w21193 t63439; struct w227671 t63440; struct w49 t63441; struct w12224 t63442; struct w21193 t63443; struct w227671 t63444; struct w49 t63445; struct w12224 t63446; struct w21193 t63447; struct w227671 t63448; struct w49 t63449; struct w12224 t63450; struct w21193 t63451; struct w227671 t63452; struct w49 t63453; struct w12224 t63454; struct w21193 t63455; struct w227671 t63456; struct w49 t63457; struct w12224 t63458; struct w21193 t63459; struct w36108 t63460; struct w49 t63461; struct structure_type24753 *t63462; struct w21193 t63463; struct w227671 t63464; struct w49 t63465; struct w12224 t63466; struct w21193 t63467; struct w227671 t63468; struct w49 t63469; struct w12224 t63470; struct w21193 t63471; struct w227671 t63472; struct w49 t63473; struct w12224 t63474; struct w21193 t63475; struct w227671 t63476; struct w49 t63477; struct w12224 t63478; struct w21193 t63479; struct w227671 t63480; struct w49 t63481; struct w12224 t63482; struct w21193 t63483; struct w227671 t63484; struct w49 t63485; struct w12224 t63486; struct w21193 t63487; struct w227671 t63488; struct w49 t63489; struct w12224 t63490; struct w21193 t63491; struct w227671 t63492; struct w49 t63493; struct w12224 t63494; struct w21193 t63495; struct w227671 t63496; struct w49 t63497; struct w12224 t63498; struct w21193 t63499; struct w227671 t63500; struct w49 t63501; struct w12224 t63502; struct w21193 t63503; struct w36108 t63504; struct w49 t63505; struct structure_type24753 *t63506; struct w21193 t63507; struct w227671 t63508; struct w49 t63509; struct w12224 t63510; struct w21193 t63511; struct w36108 t63512; struct w49 t63513; struct structure_type24753 *t63514; /* x100575 */ /* x100488 stalin.sc:9620:331856 */ /* x100301 stalin.sc:9620:331862 */ if (a23650==FALSE_TYPE) goto l10197; /* x100485 */ /* x100484 */ /* x100483 */ /* x100312 stalin.sc:9621:331867 */ /* x100311 stalin.sc:9621:331878 */ /* x100309 stalin.sc:9621:331893 */ /* x100310 stalin.sc:9621:331902 */ t63439 = a2031; /* x100308 stalin.sc:9621:331879 */ t63440.tag = NATIVE_PROCEDURE_TYPE7614; t63441 = *((struct w49 *)(&t63439)); t63442 = f1226(t63440, t63441); a2031 = *((struct w21193 *)(&t63442)); /* x100317 stalin.sc:9622:331911 */ /* x100316 stalin.sc:9622:331925 */ /* x100314 stalin.sc:9622:331940 */ /* x100315 stalin.sc:9622:331949 */ t63443 = a2030; /* x100313 stalin.sc:9622:331926 */ t63444.tag = NATIVE_PROCEDURE_TYPE7614; t63445 = *((struct w49 *)(&t63443)); t63446 = f1226(t63444, t63445); a2030 = *((struct w21193 *)(&t63446)); /* x100322 stalin.sc:9623:331961 */ /* x100321 stalin.sc:9623:331978 */ /* x100319 stalin.sc:9623:331993 */ /* x100320 stalin.sc:9623:332002 */ t63447 = a2029; /* x100318 stalin.sc:9623:331979 */ t63448.tag = NATIVE_PROCEDURE_TYPE7614; t63449 = *((struct w49 *)(&t63447)); t63450 = f1226(t63448, t63449); a2029 = *((struct w21193 *)(&t63450)); /* x100327 stalin.sc:9624:332017 */ /* x100326 stalin.sc:9624:332037 */ /* x100324 stalin.sc:9624:332052 */ /* x100325 stalin.sc:9624:332061 */ t63451 = a2028; /* x100323 stalin.sc:9624:332038 */ t63452.tag = NATIVE_PROCEDURE_TYPE7614; t63453 = *((struct w49 *)(&t63451)); t63454 = f1226(t63452, t63453); a2028 = *((struct w21193 *)(&t63454)); /* x100332 stalin.sc:9625:332079 */ /* x100331 stalin.sc:9625:332098 */ /* x100329 stalin.sc:9625:332113 */ /* x100330 stalin.sc:9625:332122 */ t63455 = a2027; /* x100328 stalin.sc:9625:332099 */ t63456.tag = NATIVE_PROCEDURE_TYPE7614; t63457 = *((struct w49 *)(&t63455)); t63458 = f1226(t63456, t63457); a2027 = *((struct w21193 *)(&t63458)); /* x100432 stalin.sc:9626:332139 */ /* x100431 stalin.sc:9637:332717 */ t63459 = a2031; /* x100430 */ /* x100333 stalin.sc:9626:332140 */ t63460.tag = NATIVE_PROCEDURE_TYPE15695; t63461 = *((struct w49 *)(&t63459)); t63462 = (struct structure_type24753 *)NULL_TYPE; f27755(t63460, t63461, t63462); /* x100437 stalin.sc:9638:332725 */ /* x100436 stalin.sc:9639:332756 */ /* x100434 stalin.sc:9639:332771 */ /* x100435 stalin.sc:9639:332782 */ t63463 = a1948; /* x100433 stalin.sc:9639:332757 */ t63464.tag = NATIVE_PROCEDURE_TYPE7400; t63465 = *((struct w49 *)(&t63463)); t63466 = f1226(t63464, t63465); a1948 = *((struct w21193 *)(&t63466)); /* x100442 stalin.sc:9640:332810 */ /* x100441 stalin.sc:9641:332841 */ /* x100439 stalin.sc:9641:332856 */ /* x100440 stalin.sc:9641:332867 */ t63467 = a1947; /* x100438 stalin.sc:9641:332842 */ t63468.tag = NATIVE_PROCEDURE_TYPE7400; t63469 = *((struct w49 *)(&t63467)); t63470 = f1226(t63468, t63469); a1947 = *((struct w21193 *)(&t63470)); /* x100447 stalin.sc:9642:332895 */ /* x100446 stalin.sc:9643:332930 */ /* x100444 stalin.sc:9643:332945 */ /* x100445 stalin.sc:9643:332956 */ t63471 = a1946; /* x100443 stalin.sc:9643:332931 */ t63472.tag = NATIVE_PROCEDURE_TYPE7400; t63473 = *((struct w49 *)(&t63471)); t63474 = f1226(t63472, t63473); a1946 = *((struct w21193 *)(&t63474)); /* x100452 stalin.sc:9644:332988 */ /* x100451 stalin.sc:9645:333020 */ /* x100449 stalin.sc:9645:333035 */ /* x100450 stalin.sc:9645:333046 */ t63475 = a1945; /* x100448 stalin.sc:9645:333021 */ t63476.tag = NATIVE_PROCEDURE_TYPE7400; t63477 = *((struct w49 *)(&t63475)); t63478 = f1226(t63476, t63477); a1945 = *((struct w21193 *)(&t63478)); /* x100457 stalin.sc:9646:333075 */ /* x100456 stalin.sc:9647:333108 */ /* x100454 stalin.sc:9647:333123 */ /* x100455 stalin.sc:9647:333134 */ t63479 = a1944; /* x100453 stalin.sc:9647:333109 */ t63480.tag = NATIVE_PROCEDURE_TYPE7400; t63481 = *((struct w49 *)(&t63479)); t63482 = f1226(t63480, t63481); a1944 = *((struct w21193 *)(&t63482)); /* x100462 stalin.sc:9648:333164 */ /* x100461 stalin.sc:9648:333191 */ /* x100459 stalin.sc:9648:333206 */ /* x100460 stalin.sc:9648:333217 */ t63483 = a1943; /* x100458 stalin.sc:9648:333192 */ t63484.tag = NATIVE_PROCEDURE_TYPE7400; t63485 = *((struct w49 *)(&t63483)); t63486 = f1226(t63484, t63485); a1943 = *((struct w21193 *)(&t63486)); /* x100467 stalin.sc:9649:333242 */ /* x100466 stalin.sc:9649:333263 */ /* x100464 stalin.sc:9649:333278 */ /* x100465 stalin.sc:9649:333289 */ t63487 = a1942; /* x100463 stalin.sc:9649:333264 */ t63488.tag = NATIVE_PROCEDURE_TYPE7400; t63489 = *((struct w49 *)(&t63487)); t63490 = f1226(t63488, t63489); a1942 = *((struct w21193 *)(&t63490)); /* x100472 stalin.sc:9650:333308 */ /* x100471 stalin.sc:9650:333332 */ /* x100469 stalin.sc:9650:333347 */ /* x100470 stalin.sc:9650:333358 */ t63491 = a1940; /* x100468 stalin.sc:9650:333333 */ t63492.tag = NATIVE_PROCEDURE_TYPE7400; t63493 = *((struct w49 *)(&t63491)); t63494 = f1226(t63492, t63493); a1940 = *((struct w21193 *)(&t63494)); /* x100477 stalin.sc:9651:333380 */ /* x100476 stalin.sc:9651:333408 */ /* x100474 stalin.sc:9651:333423 */ /* x100475 stalin.sc:9651:333434 */ t63495 = a1939; /* x100473 stalin.sc:9651:333409 */ t63496.tag = NATIVE_PROCEDURE_TYPE7400; t63497 = *((struct w49 *)(&t63495)); t63498 = f1226(t63496, t63497); a1939 = *((struct w21193 *)(&t63498)); /* x100482 stalin.sc:9652:333460 */ /* x100481 stalin.sc:9653:333492 */ /* x100479 stalin.sc:9653:333507 */ /* x100480 stalin.sc:9653:333518 */ t63499 = a1938; /* x100478 stalin.sc:9653:333493 */ t63500.tag = NATIVE_PROCEDURE_TYPE7400; t63501 = *((struct w49 *)(&t63499)); t63502 = f1226(t63500, t63501); a1938 = *((struct w21193 *)(&t63502)); /* x100307 */ /* x100306 stalin.sc:9654:333547 */ /* x100305 stalin.sc:9655:333579 */ /* x100303 stalin.sc:9655:333594 */ /* x100304 stalin.sc:9655:333605 */ t63435 = a1936; /* x100302 stalin.sc:9655:333580 */ t63436.tag = NATIVE_PROCEDURE_TYPE7400; t63437 = *((struct w49 *)(&t63435)); t63438 = f1226(t63436, t63437); a1936 = *((struct w21193 *)(&t63438)); goto l10198; l10197: /* x100487 stalin.sc:9620:331856 */ /* x100486 stalin.sc:9620:331856 */ l10198: /* x100552 stalin.sc:9656:333634 */ /* x100551 stalin.sc:9669:334143 */ t63503 = a1945; /* x100550 */ /* x100489 stalin.sc:9656:333635 */ t63504.tag = NATIVE_PROCEDURE_TYPE15678; t63505 = *((struct w49 *)(&t63503)); t63506 = (struct structure_type24753 *)NULL_TYPE; f27755(t63504, t63505, t63506); /* x100563 stalin.sc:9670:334170 */ /* x100553 stalin.sc:9670:334176 */ if (a23650==FALSE_TYPE) goto l10200; /* x100560 */ /* x100559 */ /* x100558 stalin.sc:9670:334179 */ /* x100557 stalin.sc:9670:334190 */ /* x100555 stalin.sc:9670:334205 */ /* x100556 stalin.sc:9670:334220 */ t63507 = a1679; /* x100554 stalin.sc:9670:334191 */ t63508.tag = NATIVE_PROCEDURE_TYPE7370; t63509 = *((struct w49 *)(&t63507)); t63510 = f1226(t63508, t63509); a1679 = *((struct w21193 *)(&t63510)); goto l10201; l10200: /* x100562 stalin.sc:9670:334170 */ /* x100561 stalin.sc:9670:334170 */ l10201: /* x100574 stalin.sc:9671:334229 */ /* x100573 stalin.sc:9671:334297 */ t63511 = a1679; /* x100572 stalin.sc:9671:334239 */ /* x100564 stalin.sc:9671:334230 */ t63512.tag = NATIVE_PROCEDURE_TYPE15676; t63513 = *((struct w49 *)(&t63511)); t63514 = (struct structure_type24753 *)NULL_TYPE; f27755(t63512, t63513, t63514); /* x100300 */ /* x100299 stalin.sc:9672:334304 */ /* x100001 stalin.sc:9672:334310 */ if (a23650==FALSE_TYPE) goto l10195; /* x100296 */ /* x100295 */ /* x100294 */ /* x100012 stalin.sc:9673:334315 */ /* x100011 stalin.sc:9673:334326 */ /* x100009 stalin.sc:9673:334341 */ /* x100010 stalin.sc:9673:334356 */ t63387 = a1633; /* x100008 stalin.sc:9673:334327 */ t63388.tag = NATIVE_PROCEDURE_TYPE7334; t63389 = *((struct w49 *)(&t63387)); t63390 = f1226(t63388, t63389); a1633 = *((struct w21193 *)(&t63390)); /* x100045 stalin.sc:9674:334365 */ /* x100044 stalin.sc:9681:334664 */ t63391 = a1633; /* x100043 */ /* x100013 stalin.sc:9674:334366 */ t63392.tag = NATIVE_PROCEDURE_TYPE15738; t63393 = *((struct w49 *)(&t63391)); t63394 = (struct structure_type24753 *)NULL_TYPE; f27755(t63392, t63393, t63394); /* x100122 stalin.sc:9682:334672 */ /* x100121 stalin.sc:9700:335252 */ t63395 = a1594; /* x100120 stalin.sc:9683:334685 */ /* x100046 stalin.sc:9682:334673 */ t63396.tag = NATIVE_PROCEDURE_TYPE15737; t63397 = *((struct w49 *)(&t63395)); t63398 = (struct structure_type24753 *)NULL_TYPE; f27755(t63396, t63397, t63398); /* x100145 stalin.sc:9701:335260 */ /* x100144 stalin.sc:9705:335462 */ t63399 = a1594; /* x100143 */ /* x100123 stalin.sc:9701:335261 */ t63400.tag = NATIVE_PROCEDURE_TYPE15735; t63401 = *((struct w49 *)(&t63399)); t63402 = (struct structure_type24753 *)NULL_TYPE; f27755(t63400, t63401, t63402); /* x100178 stalin.sc:9706:335470 */ /* x100177 stalin.sc:9712:335715 */ t63403 = a1594; /* x100176 stalin.sc:9706:335480 */ /* x100146 stalin.sc:9706:335471 */ t63404.tag = NATIVE_PROCEDURE_TYPE15734; t63405 = *((struct w49 *)(&t63403)); t63406 = (struct structure_type24753 *)NULL_TYPE; f27755(t63404, t63405, t63406); /* x100204 stalin.sc:9713:335723 */ /* x100203 stalin.sc:9717:335912 */ t63407 = a1594; /* x100202 stalin.sc:9713:335733 */ /* x100179 stalin.sc:9713:335724 */ t63408.tag = NATIVE_PROCEDURE_TYPE15733; t63409 = *((struct w49 *)(&t63407)); t63410 = (struct structure_type24753 *)NULL_TYPE; f27755(t63408, t63409, t63410); /* x100238 stalin.sc:9718:335920 */ /* x100237 stalin.sc:9718:335930 */ /* x100235 stalin.sc:9718:335945 */ /* x100236 stalin.sc:9718:335953 */ t63421 = a1594; /* x100234 stalin.sc:9718:335931 */ t63422.tag = NATIVE_PROCEDURE_TYPE7224; t63423 = *((struct w49 *)(&t63421)); t63411 = f1226(t63422, t63423); /* x100233 */ a23676 = t63411; /* x100232 stalin.sc:9719:335964 */ /* x100231 stalin.sc:9722:336021 */ /* x100230 stalin.sc:9728:336213 */ t63417 = a23676; /* x100229 stalin.sc:9722:336026 */ /* x100208 stalin.sc:9722:336022 */ t63418.tag = NATIVE_PROCEDURE_TYPE15705; t63419 = *((struct w49 *)(&t63417)); t63420 = (struct structure_type24753 *)NULL_TYPE; t63413 = f27731(t63418, t63419, t63420); /* x100207 stalin.sc:9721:336014 */ t63412 = a23676; /* x100206 stalin.sc:9720:335978 */ /* x100205 stalin.sc:9719:335965 */ t63414.tag = NATIVE_PROCEDURE_TYPE7667; t63415 = *((struct w49 *)(&t63412)); t63416 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t63416==NULL) {backtrace("stalin.sc", 9719, 335964); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t63413>=((struct structure_type24753 *)VALUE_OFFSET)) {t63416->s0.tag = STRUCTURE_TYPE24753; t63416->s0.value.structure_type24753 = t63413;} else t63416->s0.tag = (unsigned)t63413; t63416->s1.tag = NULL_TYPE; f27755(t63414, t63415, t63416); /* x100259 stalin.sc:9730:336279 */ /* x100258 stalin.sc:9734:336443 */ t63424 = a1594; /* x100257 stalin.sc:9730:336289 */ /* x100239 stalin.sc:9730:336280 */ t63425.tag = NATIVE_PROCEDURE_TYPE15703; t63426 = *((struct w49 *)(&t63424)); t63427 = (struct structure_type24753 *)NULL_TYPE; f27755(t63425, t63426, t63427); /* x100280 stalin.sc:9736:336509 */ /* x100279 stalin.sc:9741:336682 */ t63428 = a1594; /* x100278 stalin.sc:9737:336522 */ /* x100260 stalin.sc:9736:336510 */ t63429.tag = NATIVE_PROCEDURE_TYPE15702; t63430 = *((struct w49 *)(&t63428)); t63431 = (struct structure_type24753 *)NULL_TYPE; f27755(t63429, t63430, t63431); /* x100293 stalin.sc:9742:336690 */ /* x100292 stalin.sc:9742:336702 */ /* x100290 stalin.sc:9742:336717 */ /* x100291 stalin.sc:9742:336758 */ t63432 = a1594; /* x100281 stalin.sc:9742:336703 */ t63433.tag = NATIVE_PROCEDURE_TYPE15701; t63434 = *((struct w49 *)(&t63432)); f1226(t63433, t63434); /* x100007 */ /* x100006 stalin.sc:9743:336767 */ /* x100005 stalin.sc:9743:336778 */ /* x100003 stalin.sc:9743:336793 */ /* x100004 stalin.sc:9743:336811 */ t63383 = a1594; /* x100002 stalin.sc:9743:336779 */ t63384.tag = NATIVE_PROCEDURE_TYPE7287; t63385 = *((struct w49 *)(&t63383)); t63386 = f1226(t63384, t63385); a1594 = *((struct w21193 *)(&t63386)); return; l10195: /* x100298 stalin.sc:9672:334304 */ /* x100297 stalin.sc:9672:334304 */ return;} /* [inside REPLACE-EXPRESSION! 11025] */ struct w49 f11025(struct p11003 *p11025, struct w49 a23649) {struct w49 t63515; struct w6852 t63516; /* x99965 stalin.sc:9614:331701 */ /* x99962 stalin.sc:9614:331705 */ /* x99960 stalin.sc:9614:331710 */ t63515 = a23649; /* x99961 stalin.sc:9614:331713 */ t63516 = p11025->a23640; /* x269655 stalin.sc:9614:331706 */ /* EQ: dispatching general to general */ if (!((t63515.tag)==(t63516.tag))) goto l10203; switch (t63515.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: case INPUT_PORT_TYPE: case OUTPUT_PORT_TYPE: case NATIVE_PROCEDURE_TYPE15963: case NATIVE_PROCEDURE_TYPE19067: case NATIVE_PROCEDURE_TYPE19068: case NATIVE_PROCEDURE_TYPE22459: case STRUCTURE_TYPE24753: case STRUCTURE_TYPE24757: case STRUCTURE_TYPE27501: case STRUCTURE_TYPE27510: case STRUCTURE_TYPE27621: case STRUCTURE_TYPE27650: case STRUCTURE_TYPE27669: case STRUCTURE_TYPE27673: case STRUCTURE_TYPE27692: case STRUCTURE_TYPE27694: case STRUCTURE_TYPE27745: case STRUCTURE_TYPE27747: case STRUCTURE_TYPE27750: case STRUCTURE_TYPE27753: case STRUCTURE_TYPE27756: case STRUCTURE_TYPE27761: case STRUCTURE_TYPE27769: case STRUCTURE_TYPE27776: case STRUCTURE_TYPE27779: case STRUCTURE_TYPE27858: case STRING_TYPE: case HEADED_VECTOR_TYPE27896: case STRUCTURE_TYPE27908: goto l10203; break; case STRUCTURE_TYPE27698: if (!((t63515.value.structure_type27698)==(t63516.value.structure_type27698))) goto l10203; break; case EXTERNAL_SYMBOL_TYPE: if (!((t63515.value.external_symbol_type)==(t63516.value.external_symbol_type))) goto l10203; break; default:;} /* x99963 stalin.sc:9614:331717 */ return *((struct w49 *)(&(p11025->a23641))); l10203: /* x99964 stalin.sc:9614:331720 */ return a23649;} /* [inside REPLACE-EXPRESSION! 11023] */ unsigned f11023(struct p11003 *p11023, struct w49 a23648) {struct w49 t63517; struct w6852 t63518; /* x99946 stalin.sc:9610:331554 */ /* x99944 stalin.sc:9610:331559 */ t63517 = a23648; /* x99945 stalin.sc:9610:331562 */ t63518 = p11023->a23640; /* x269656 stalin.sc:9610:331555 */ /* EQ: dispatching general to general */ if (!((t63517.tag)==(t63518.tag))) return FALSE_TYPE; switch (t63517.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: case INPUT_PORT_TYPE: case OUTPUT_PORT_TYPE: case NATIVE_PROCEDURE_TYPE15963: case NATIVE_PROCEDURE_TYPE19067: case NATIVE_PROCEDURE_TYPE19068: case NATIVE_PROCEDURE_TYPE22459: case STRUCTURE_TYPE24753: case STRUCTURE_TYPE24757: case STRUCTURE_TYPE27501: case STRUCTURE_TYPE27510: case STRUCTURE_TYPE27621: case STRUCTURE_TYPE27650: case STRUCTURE_TYPE27669: case STRUCTURE_TYPE27673: case STRUCTURE_TYPE27692: case STRUCTURE_TYPE27694: case STRUCTURE_TYPE27745: case STRUCTURE_TYPE27747: case STRUCTURE_TYPE27750: case STRUCTURE_TYPE27753: case STRUCTURE_TYPE27756: case STRUCTURE_TYPE27761: case STRUCTURE_TYPE27769: case STRUCTURE_TYPE27776: case STRUCTURE_TYPE27779: case STRUCTURE_TYPE27858: case STRING_TYPE: case HEADED_VECTOR_TYPE27896: case STRUCTURE_TYPE27908: return FALSE_TYPE; case STRUCTURE_TYPE27698: if ((t63517.value.structure_type27698)==(t63518.value.structure_type27698)) return TRUE_TYPE; else return FALSE_TYPE; case EXTERNAL_SYMBOL_TYPE: if ((t63517.value.external_symbol_type)==(t63518.value.external_symbol_type)) return TRUE_TYPE; else return FALSE_TYPE; default: return TRUE_TYPE;}} /* [inside LOOP 10998] */ void f10998(struct w49 a23639) {struct w49 t63519; struct w49 t63520; struct w211045 t63521; /* x99754 stalin.sc:9587:330505 */ /* x99745 stalin.sc:9587:330511 */ /* x99744 stalin.sc:9587:330527 */ t63519 = a23639; /* x99743 stalin.sc:9587:330512 */ if (f8117(t63519)==FALSE_TYPE) goto l10205; /* x99751 */ /* x99750 */ /* x99749 stalin.sc:9587:330530 */ /* x99747 stalin.sc:9587:330547 */ /* x99748 stalin.sc:9587:330560 */ t63520 = a23639; /* x99746 stalin.sc:9587:330531 */ t63521.tag = NATIVE_PROCEDURE_TYPE16186; f8173(t63521, t63520); return; l10205: /* x99753 stalin.sc:9587:330505 */ /* x99752 stalin.sc:9587:330505 */ return;} /* [inside LOOP 10995] */ void f10995(struct w49 a23638) {struct w49 a37308; /* S */ struct w49 t63522; struct w49 t63523; struct w49 t63524; struct w49 t63525; /* x99738 stalin.sc:9582:330345 */ /* x99728 stalin.sc:9582:330351 */ /* x99727 stalin.sc:9582:330363 */ t63522 = a23638; /* x99726 stalin.sc:9582:330352 */ if (f7849(t63522)==FALSE_TYPE) goto l10207; /* x99735 */ /* x99734 */ /* x99733 stalin.sc:9583:330374 */ /* x99732 stalin.sc:9583:330388 */ /* x99731 stalin.sc:9583:330433 */ t63524 = a23638; /* x99730 stalin.sc:9583:330389 */ a37308 = t63524; /* x281901 */ /* x281900 */ t63525 = a37308; /* x281899 */ if (!((t63525.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-DISPLACED-VECTOR-TYPE[6375] 32225]"); structure_ref_error();} t63523 = t63525.value.structure_type27908->s0; /* x99729 stalin.sc:9583:330375 */ f10932(t63523); return; l10207: /* x99737 stalin.sc:9582:330345 */ /* x99736 stalin.sc:9582:330345 */ return;} /* [inside LOOP 10989] */ void f10989(struct w49 a23636) {struct w49 a37397; /* S */ struct w49 a37400; /* S */ struct w49 t63526; struct w49 t63527; struct w49 t63528; struct w49 t63529; struct w49 t63530; struct w49 t63531; struct w49 t63532; /* x99721 stalin.sc:9576:330110 */ /* x99696 stalin.sc:9576:330116 */ /* x99695 stalin.sc:9576:330128 */ t63526 = a23636; /* x99694 stalin.sc:9576:330117 */ if (f7849(t63526)==FALSE_TYPE) goto l10209; /* x99718 */ /* x99717 */ /* x99716 stalin.sc:9577:330139 */ /* x99701 stalin.sc:9577:330147 */ /* x99700 stalin.sc:9577:330163 */ /* x99699 stalin.sc:9577:330194 */ t63528 = a23636; /* x99698 stalin.sc:9577:330164 */ a37400 = t63528; /* x282269 */ /* x282268 */ t63529 = a37400; /* x282267 */ if (!((t63529.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ELEMENT[6309] 32317]"); structure_ref_error();} t63527 = t63529.value.structure_type27669->s0; /* x99697 stalin.sc:9577:330148 */ if (f8117(t63527)==FALSE_TYPE) goto l10211; /* x99703 */ /* x99702 */ return; l10211: /* x99715 */ /* x99714 */ /* x99713 */ /* x99712 stalin.sc:9578:330200 */ /* x99710 stalin.sc:9578:330221 */ /* x99709 stalin.sc:9578:330252 */ t63531 = a23636; /* x99708 stalin.sc:9578:330222 */ a37397 = t63531; /* x282257 */ /* x282256 */ t63532 = a37397; /* x282255 */ if (!((t63532.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ELEMENT[6309] 32314]"); structure_ref_error();} t63530 = t63532.value.structure_type27669->s0; /* x99711 stalin.sc:9578:330255 */ /* x99707 stalin.sc:9578:330201 */ f8118(t63530); /* x99706 */ /* x99705 stalin.sc:9579:330261 */ /* x99704 stalin.sc:9579:330274 */ a23615 = TRUE_TYPE; return; l10209: /* x99720 stalin.sc:9576:330110 */ /* x99719 stalin.sc:9576:330110 */ return;} /* [inside LOOP 10983] */ void f10983(struct w49 a23634) {struct w49 a37503; /* S */ struct w49 a37517; /* S */ struct w49 t63533; struct w49 t63534; struct w49 t63535; struct w49 t63536; struct w49 t63537; struct w49 t63538; struct w49 t63539; /* x99689 stalin.sc:9570:329884 */ /* x99664 stalin.sc:9570:329890 */ /* x99663 stalin.sc:9570:329902 */ t63533 = a23634; /* x99662 stalin.sc:9570:329891 */ if (f7849(t63533)==FALSE_TYPE) goto l10213; /* x99686 */ /* x99685 */ /* x99684 stalin.sc:9571:329913 */ /* x99669 stalin.sc:9571:329921 */ /* x99668 stalin.sc:9571:329937 */ /* x99667 stalin.sc:9571:329965 */ t63535 = a23634; /* x99666 stalin.sc:9571:329938 */ a37517 = t63535; /* x282737 */ /* x282736 */ t63536 = a37517; /* x282735 */ if (!((t63536.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32434]"); structure_ref_error();} t63534 = t63536.value.structure_type27761->s0; /* x99665 stalin.sc:9571:329922 */ if (f8117(t63534)==FALSE_TYPE) goto l10215; /* x99671 */ /* x99670 */ return; l10215: /* x99683 */ /* x99682 */ /* x99681 */ /* x99680 stalin.sc:9572:329971 */ /* x99678 stalin.sc:9572:329992 */ /* x99677 stalin.sc:9572:330020 */ t63538 = a23634; /* x99676 stalin.sc:9572:329993 */ a37503 = t63538; /* x282681 */ /* x282680 */ t63539 = a37503; /* x282679 */ if (!((t63539.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32420]"); structure_ref_error();} t63537 = t63539.value.structure_type27761->s0; /* x99679 stalin.sc:9572:330023 */ /* x99675 stalin.sc:9572:329972 */ f8118(t63537); /* x99674 */ /* x99673 stalin.sc:9573:330029 */ /* x99672 stalin.sc:9573:330042 */ a23615 = TRUE_TYPE; return; l10213: /* x99688 stalin.sc:9570:329884 */ /* x99687 stalin.sc:9570:329884 */ return;} /* [inside LOOP 10978] */ void f10978(struct w49 a23632) {struct w49 t63540; struct w49 t63541; /* x99647 stalin.sc:9564:329710 */ /* x99634 stalin.sc:9564:329718 */ /* x99633 stalin.sc:9564:329734 */ t63540 = a23632; /* x99632 stalin.sc:9564:329719 */ if (f8117(t63540)==FALSE_TYPE) goto l10217; /* x99636 */ /* x99635 */ return; l10217: /* x99646 */ /* x99645 */ /* x99644 */ /* x99643 stalin.sc:9565:329743 */ /* x99641 stalin.sc:9565:329764 */ t63541 = a23632; /* x99642 stalin.sc:9565:329766 */ /* x99640 stalin.sc:9565:329744 */ f8118(t63541); /* x99639 */ /* x99638 stalin.sc:9566:329776 */ /* x99637 stalin.sc:9566:329789 */ a23615 = TRUE_TYPE; return;} /* [inside LOOP 10976] */ void f10976(struct w49 a23631) {struct w49 a37654; /* S */ struct w49 t63542; struct w11873 t63543; struct w36108 t63544; struct w49 t63545; struct structure_type24753 *t63546; struct w49 t63547; struct w49 t63548; /* x99657 stalin.sc:9562:329654 */ /* x99630 stalin.sc:9562:329660 */ /* x99629 stalin.sc:9562:329672 */ t63542 = a23631; /* x99628 stalin.sc:9562:329661 */ if (f7849(t63542)==FALSE_TYPE) goto l10219; /* x99654 */ /* x99653 */ /* x99652 stalin.sc:9563:329683 */ /* x99651 stalin.sc:9567:329799 */ /* x99650 stalin.sc:9567:329821 */ t63547 = a23631; /* x99649 stalin.sc:9567:329800 */ a37654 = t63547; /* x283285 */ /* x283284 */ t63548 = a37654; /* x283283 */ if (!((t63548.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32571]"); structure_ref_error();} t63543 = t63548.value.structure_type27769->s1; /* x99648 stalin.sc:9563:329693 */ /* x99631 stalin.sc:9563:329684 */ t63544.tag = NATIVE_PROCEDURE_TYPE16183; t63545 = *((struct w49 *)(&t63543)); t63546 = (struct structure_type24753 *)NULL_TYPE; f27755(t63544, t63545, t63546); return; l10219: /* x99656 stalin.sc:9562:329654 */ /* x99655 stalin.sc:9562:329654 */ return;} /* [inside LOOP 10973] */ void f10973(struct w49 a23630) {struct w49 a38258; /* S */ struct w49 t63549; struct w49 t63550; struct w49 t63551; struct w49 t63552; /* x99623 stalin.sc:9558:329498 */ /* x99613 stalin.sc:9558:329504 */ /* x99612 stalin.sc:9558:329516 */ t63549 = a23630; /* x99611 stalin.sc:9558:329505 */ if (f7849(t63549)==FALSE_TYPE) goto l10221; /* x99620 */ /* x99619 */ /* x99618 stalin.sc:9559:329527 */ /* x99617 stalin.sc:9559:329541 */ /* x99616 stalin.sc:9559:329585 */ t63551 = a23630; /* x99615 stalin.sc:9559:329542 */ a38258 = t63551; /* x285701 */ /* x285700 */ t63552 = a38258; /* x285699 */ if (!((t63552.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-DISPLACED-STRING-TYPE[5845] 33175]"); structure_ref_error();} t63550 = t63552.value.structure_type27779->s0; /* x99614 stalin.sc:9559:329528 */ f10932(t63550); return; l10221: /* x99622 stalin.sc:9558:329498 */ /* x99621 stalin.sc:9558:329498 */ return;} /* ASSERT-USED![10932] */ void f10932(struct w49 a23624) {struct w49 a19432; /* S */ struct w49 a19499; /* S */ struct w49 a19566; /* S */ struct w49 a19722; /* S */ struct w49 a19789; /* S */ struct w49 a19867; /* S */ struct w49 a19967; /* S */ struct w49 a20056; /* S */ struct w49 a20145; /* S */ struct w49 a21165; /* U */ struct w49 a21185; /* U */ struct w49 a21201; /* U */ struct w49 a21261; /* U */ struct w49 a21281; /* U */ struct w49 a21313; /* U */ struct w49 a21349; /* U */ struct w49 a21397; /* U */ struct w49 a21437; /* U */ struct w49 a21473; /* U */ struct w49 a37283; /* S */ struct w49 a37317; /* OBJ */ struct w49 a37414; /* OBJ */ struct w49 a37530; /* OBJ */ struct w49 a37674; /* OBJ */ struct w49 a37743; /* OBJ */ struct w49 a37850; /* OBJ */ struct w49 a37940; /* OBJ */ struct w49 a38045; /* OBJ */ struct w49 a38196; /* OBJ */ struct w49 a38265; /* OBJ */ struct w49 a38308; /* OBJ */ struct w49 t63553; struct w49 t63554; struct w49 t63555; struct w49 t63556; struct w49 t63557; struct w49 t63558; struct w49 t63559; struct w49 t63560; struct w49 t63561; struct w49 t63562; struct w49 t63563; struct w49 t63564; struct w49 t63565; struct w49 t63566; struct w49 t63567; struct w49 t63568; struct w49 t63569; struct w49 t63570; struct w49 t63571; struct w49 t63572; struct w49 t63573; struct w49 t63574; struct w49 t63575; struct w49 t63576; struct w49 t63577; struct w49 t63578; struct w49 t63579; struct w49 t63580; struct w49 t63581; struct w49 t63582; struct w49 t63583; struct w49 t63584; struct w49 t63585; char *t63586; struct w49 t63587; struct w49 t63588; struct w49 t63589; int t63590; int t63591; int t63592; struct structure_type24753 *t63593; struct w49 t63594; struct w49 t63595; struct w49 t63596; struct w49 t63597; struct w49 t63598; struct w49 t63599; int t63600; int t63601; int t63602; struct structure_type24753 *t63603; struct w49 t63604; struct w49 t63605; struct w49 t63606; struct w49 t63607; struct w49 t63608; struct w49 t63609; int t63610; int t63611; int t63612; struct structure_type24753 *t63613; struct w49 t63614; struct w49 t63615; struct w49 t63616; struct w49 t63617; struct w49 t63618; struct w49 t63619; int t63620; int t63621; int t63622; struct structure_type24753 *t63623; struct w49 t63624; struct w49 t63625; struct w49 t63626; struct w49 t63627; struct w49 t63628; int t63629; int t63630; int t63631; struct structure_type24753 *t63632; struct w49 t63633; struct w49 t63634; struct w49 t63635; struct w49 t63636; struct w49 t63637; struct w49 t63638; int t63639; int t63640; int t63641; struct structure_type24753 *t63642; struct w49 t63643; struct w49 t63644; struct w49 t63645; struct w49 t63646; struct w49 t63647; int t63648; int t63649; int t63650; struct structure_type24753 *t63651; struct w49 t63652; struct w49 t63653; struct w49 t63654; struct w49 t63655; unsigned t63656; struct w49 t63657; struct w49 t63658; int t63659; int t63660; int t63661; struct structure_type24753 *t63662; struct w49 t63663; struct w49 t63664; struct w49 t63665; struct w49 t63666; struct w49 t63667; struct w49 t63668; int t63669; int t63670; int t63671; struct structure_type24753 *t63672; struct w49 t63673; struct w49 t63674; struct w49 t63675; struct w49 t63676; struct w49 t63677; int t63678; int t63679; int t63680; struct structure_type24753 *t63681; struct w49 t63682; struct w49 t63683; struct w49 t63684; /* x99607 stalin.sc:9516:327706 */ /* x99340 stalin.sc:9517:327718 */ /* x99339 stalin.sc:9517:327730 */ t63553 = a23624; /* x99338 stalin.sc:9517:327719 */ if (f7677(t63553)==FALSE_TYPE) goto l10223; /* x99344 */ /* x99343 */ /* x99342 stalin.sc:9517:327733 */ /* x99341 stalin.sc:9517:327757 */ return; l10223: /* x99606 */ /* x99347 stalin.sc:9518:327768 */ /* x99346 stalin.sc:9518:327780 */ t63554 = a23624; /* x99345 stalin.sc:9518:327769 */ if (f7678(t63554)==FALSE_TYPE) goto l10225; /* x99351 */ /* x99350 */ /* x99349 stalin.sc:9518:327783 */ /* x99348 stalin.sc:9518:327807 */ return; l10225: /* x99605 */ /* x99354 stalin.sc:9519:327818 */ /* x99353 stalin.sc:9519:327831 */ t63555 = a23624; /* x99352 stalin.sc:9519:327819 */ if (f7679(t63555)==FALSE_TYPE) goto l10227; /* x99358 */ /* x99357 */ /* x99356 stalin.sc:9519:327834 */ /* x99355 stalin.sc:9519:327859 */ return; l10227: /* x99604 */ /* x99361 stalin.sc:9520:327870 */ /* x99360 stalin.sc:9520:327882 */ t63556 = a23624; /* x99359 stalin.sc:9520:327871 */ if (f7682(t63556)==FALSE_TYPE) goto l10229; /* x99365 */ /* x99364 */ /* x99363 stalin.sc:9520:327885 */ /* x99362 stalin.sc:9520:327909 */ a1971 = TRUE_TYPE; return; l10229: /* x99603 */ /* x99368 stalin.sc:9521:327920 */ /* x99367 stalin.sc:9521:327934 */ t63557 = a23624; /* x99366 stalin.sc:9521:327921 */ if (f7683(t63557)==FALSE_TYPE) goto l10231; /* x99372 */ /* x99371 */ /* x99370 stalin.sc:9521:327937 */ /* x99369 stalin.sc:9521:327963 */ return; l10231: /* x99602 */ /* x99375 stalin.sc:9522:327974 */ /* x99374 stalin.sc:9522:327988 */ t63558 = a23624; /* x99373 stalin.sc:9522:327975 */ if (f7684(t63558)==FALSE_TYPE) goto l10233; /* x99379 */ /* x99378 */ /* x99377 stalin.sc:9522:327991 */ /* x99376 stalin.sc:9522:328017 */ return; l10233: /* x99601 */ /* x99382 stalin.sc:9523:328028 */ /* x99381 stalin.sc:9523:328047 */ t63559 = a23624; /* x99380 stalin.sc:9523:328029 */ if (f7687(t63559)==FALSE_TYPE) goto l10235; /* x99386 */ /* x99385 */ /* x99384 stalin.sc:9523:328050 */ /* x99383 stalin.sc:9523:328081 */ return; l10235: /* x99600 */ /* x99389 stalin.sc:9524:328092 */ /* x99388 stalin.sc:9524:328110 */ t63560 = a23624; /* x99387 stalin.sc:9524:328093 */ if (f7700(t63560)==FALSE_TYPE) goto l10237; /* x99393 */ /* x99392 */ /* x99391 stalin.sc:9524:328113 */ /* x99390 stalin.sc:9524:328143 */ return; l10237: /* x99599 */ /* x99396 stalin.sc:9525:328154 */ /* x99395 stalin.sc:9525:328173 */ t63561 = a23624; /* x99394 stalin.sc:9525:328155 */ if (f7701(t63561)==FALSE_TYPE) goto l10239; /* x99400 */ /* x99399 */ /* x99398 stalin.sc:9525:328176 */ /* x99397 stalin.sc:9525:328207 */ return; l10239: /* x99598 */ /* x99403 stalin.sc:9526:328218 */ /* x99402 stalin.sc:9526:328236 */ t63562 = a23624; /* x99401 stalin.sc:9526:328219 */ if (f7702(t63562)==FALSE_TYPE) goto l10241; /* x99407 */ /* x99406 */ /* x99405 stalin.sc:9526:328239 */ /* x99404 stalin.sc:9526:328269 */ return; l10241: /* x99597 */ /* x99410 stalin.sc:9527:328280 */ /* x99409 stalin.sc:9527:328295 */ t63563 = a23624; /* x99408 stalin.sc:9527:328281 */ if (f7703(t63563)==FALSE_TYPE) goto l10243; /* x99414 */ /* x99413 */ /* x99412 stalin.sc:9527:328298 */ /* x99411 stalin.sc:9527:328325 */ return; l10243: /* x99596 */ /* x99417 stalin.sc:9528:328336 */ /* x99416 stalin.sc:9528:328359 */ t63564 = a23624; /* x99415 stalin.sc:9528:328337 */ a38308 = t63564; /* x285901 */ /* x285900 */ t63565 = a38308; /* x285899 */ if (!((t63565.tag)==STRUCTURE_TYPE27776)) goto l10245; /* x99423 */ /* x99422 */ /* x99421 stalin.sc:9528:328362 */ /* x99419 stalin.sc:9528:328395 */ t63676 = a23624; /* x99420 stalin.sc:9528:328397 */ /* x99418 stalin.sc:9528:328363 */ a21165 = t63676; /* x61015 */ /* x61014 stalin.sc:1338:44462 */ /* x61007 stalin.sc:1338:44470 */ /* x61006 stalin.sc:1338:44480 */ /* x270654 stalin.sc:1338:44471 */ /* x61009 */ /* x61008 */ /* x61004 */ /* x61003 stalin.sc:1339:44496 */ /* x60986 stalin.sc:1340:44534 */ t63677 = a21165; /* x61002 stalin.sc:1341:44538 */ /* x60987 stalin.sc:1341:44542 */ /* x60993 stalin.sc:1342:44551 */ /* x60992 stalin.sc:1342:44593 */ t63680 = 1; /* x60991 stalin.sc:1342:44559 */ /* x60990 stalin.sc:1342:44590 */ t63683 = a21165; /* x60989 stalin.sc:1342:44560 */ a19432 = t63683; /* x51348 */ /* x51347 */ t63684 = a19432; /* x51346 */ if (!((t63684.tag)==STRUCTURE_TYPE27776)) {backtrace_internal("INTERNAL-SYMBOL-TYPE-BOOLEANS[5835]"); structure_ref_error();} t63679 = t63684.value.structure_type27776->s4; /* x60988 stalin.sc:1342:44552 */ t63682.tag = STRUCTURE_TYPE24753; t63682.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t63682.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1342, 44551); out_of_memory_error();} t63682.value.structure_type24753->s0.tag = FIXNUM_TYPE; t63682.value.structure_type24753->s0.value.fixnum_type = t63680; t63682.value.structure_type24753->s1.tag = NULL_TYPE; t63681 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t63681==NULL) {backtrace("stalin.sc", 1342, 44551); out_of_memory_error();} t63681->s0.tag = FIXNUM_TYPE; t63681->s0.value.fixnum_type = t63679; t63681->s1 = t63682; t63678 = f27310(t63681); /* x60985 stalin.sc:1339:44497 */ f5836(t63677, t63678); return; l10245: /* x99595 */ /* x99426 stalin.sc:9529:328408 */ /* x99425 stalin.sc:9529:328431 */ t63566 = a23624; /* x99424 stalin.sc:9529:328409 */ a38265 = t63566; /* x285729 */ /* x285728 */ t63567 = a38265; /* x285727 */ if (!((t63567.tag)==STRUCTURE_TYPE27779)) goto l10247; /* x99444 */ /* x99443 */ /* x99442 stalin.sc:9530:328440 */ /* x99429 stalin.sc:9530:328448 */ /* x99428 stalin.sc:9530:328460 */ t63666 = a23624; /* x99427 stalin.sc:9530:328449 */ if (f7849(t63666)==FALSE_TYPE) goto l10293; /* x99431 */ /* x99430 */ return; l10293: /* x99441 */ /* x99440 */ /* x99439 */ /* x99438 stalin.sc:9531:328470 */ /* x99436 stalin.sc:9531:328503 */ t63667 = a23624; /* x99437 stalin.sc:9531:328505 */ /* x99435 stalin.sc:9531:328471 */ a21185 = t63667; /* x61240 */ /* x61239 stalin.sc:1393:46299 */ /* x61232 stalin.sc:1393:46307 */ /* x61231 stalin.sc:1393:46317 */ /* x270644 stalin.sc:1393:46308 */ /* x61234 */ /* x61233 */ /* x61229 */ /* x61228 stalin.sc:1394:46333 */ /* x61211 stalin.sc:1395:46371 */ t63668 = a21185; /* x61227 stalin.sc:1396:46375 */ /* x61212 stalin.sc:1396:46379 */ /* x61218 stalin.sc:1397:46388 */ /* x61217 stalin.sc:1397:46430 */ t63671 = 1; /* x61216 stalin.sc:1397:46396 */ /* x61215 stalin.sc:1397:46427 */ t63674 = a21185; /* x61214 stalin.sc:1397:46397 */ a19499 = t63674; /* x51597 */ /* x51596 */ t63675 = a19499; /* x51595 */ if (!((t63675.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("EXTERNAL-SYMBOL-TYPE-BOOLEANS[5885]"); structure_ref_error();} t63670 = t63675.value.structure_type27779->s5; /* x61213 stalin.sc:1397:46389 */ t63673.tag = STRUCTURE_TYPE24753; t63673.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t63673.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1397, 46388); out_of_memory_error();} t63673.value.structure_type24753->s0.tag = FIXNUM_TYPE; t63673.value.structure_type24753->s0.value.fixnum_type = t63671; t63673.value.structure_type24753->s1.tag = NULL_TYPE; t63672 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t63672==NULL) {backtrace("stalin.sc", 1397, 46388); out_of_memory_error();} t63672->s0.tag = FIXNUM_TYPE; t63672->s0.value.fixnum_type = t63670; t63672->s1 = t63673; t63669 = f27310(t63672); /* x61210 stalin.sc:1394:46334 */ f5886(t63668, t63669); /* x99434 */ /* x99433 stalin.sc:9532:328516 */ /* x99432 stalin.sc:9532:328529 */ a23615 = TRUE_TYPE; return; l10247: /* x99594 */ /* x99447 stalin.sc:9533:328541 */ /* x99446 stalin.sc:9533:328568 */ t63568 = a23624; /* x99445 stalin.sc:9533:328542 */ a38196 = t63568; /* x285453 */ /* x285452 */ t63569 = a38196; /* x285451 */ if (!((t63569.tag)==STRUCTURE_TYPE27753)) goto l10249; /* x99453 */ /* x99452 */ /* x99451 stalin.sc:9533:328571 */ /* x99449 stalin.sc:9533:328608 */ t63657 = a23624; /* x99450 stalin.sc:9533:328610 */ /* x99448 stalin.sc:9533:328572 */ a21201 = t63657; /* x61420 */ /* x61419 stalin.sc:1437:47829 */ /* x61412 stalin.sc:1437:47837 */ /* x61411 stalin.sc:1437:47847 */ /* x270636 stalin.sc:1437:47838 */ /* x61414 */ /* x61413 */ /* x61409 */ /* x61408 stalin.sc:1438:47863 */ /* x61391 stalin.sc:1439:47905 */ t63658 = a21201; /* x61407 stalin.sc:1440:47909 */ /* x61392 stalin.sc:1440:47913 */ /* x61398 stalin.sc:1441:47922 */ /* x61397 stalin.sc:1441:47968 */ t63661 = 1; /* x61396 stalin.sc:1441:47930 */ /* x61395 stalin.sc:1441:47965 */ t63664 = a21201; /* x61394 stalin.sc:1441:47931 */ a19566 = t63664; /* x51846 */ /* x51845 */ t63665 = a19566; /* x51844 */ if (!((t63665.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("PRIMITIVE-PROCEDURE-TYPE-BOOLEANS[5935]"); structure_ref_error();} t63660 = t63665.value.structure_type27753->s5; /* x61393 stalin.sc:1441:47923 */ t63663.tag = STRUCTURE_TYPE24753; t63663.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t63663.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1441, 47922); out_of_memory_error();} t63663.value.structure_type24753->s0.tag = FIXNUM_TYPE; t63663.value.structure_type24753->s0.value.fixnum_type = t63661; t63663.value.structure_type24753->s1.tag = NULL_TYPE; t63662 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t63662==NULL) {backtrace("stalin.sc", 1441, 47922); out_of_memory_error();} t63662->s0.tag = FIXNUM_TYPE; t63662->s0.value.fixnum_type = t63660; t63662->s1 = t63663; t63659 = f27310(t63662); /* x61390 stalin.sc:1438:47864 */ f5936(t63658, t63659); return; l10249: /* x99593 */ /* x99456 stalin.sc:9534:328621 */ /* x99455 stalin.sc:9534:328645 */ t63570 = a23624; /* x99454 stalin.sc:9534:328622 */ a38045 = t63570; /* x284849 */ /* x284848 */ t63571 = a38045; /* x284847 */ if (!((t63571.tag)==STRUCTURE_TYPE27756)) goto l10251; /* x99462 */ /* x99461 */ /* x99460 stalin.sc:9534:328648 */ /* x99458 stalin.sc:9534:328682 */ t63655 = a23624; /* x99459 stalin.sc:9534:328684 */ /* x99457 stalin.sc:9534:328649 */ t63656 = TRUE_TYPE; f7320(t63655, t63656); return; l10251: /* x99592 */ /* x99465 stalin.sc:9535:328695 */ /* x99464 stalin.sc:9535:328720 */ t63572 = a23624; /* x99463 stalin.sc:9535:328696 */ a37940 = t63572; /* x284429 */ /* x284428 */ t63573 = a37940; /* x284427 */ if (!((t63573.tag)==STRUCTURE_TYPE27750)) goto l10253; /* x99471 */ /* x99470 */ /* x99469 stalin.sc:9535:328723 */ /* x99467 stalin.sc:9535:328758 */ t63646 = a23624; /* x99468 stalin.sc:9535:328760 */ /* x99466 stalin.sc:9535:328724 */ a21261 = t63646; /* x62095 */ /* x62094 stalin.sc:1602:53405 */ /* x62087 stalin.sc:1602:53413 */ /* x62086 stalin.sc:1602:53423 */ /* x270599 stalin.sc:1602:53414 */ /* x62089 */ /* x62088 */ /* x62084 */ /* x62083 stalin.sc:1603:53439 */ /* x62066 stalin.sc:1604:53479 */ t63647 = a21261; /* x62082 stalin.sc:1605:53483 */ /* x62067 stalin.sc:1605:53487 */ /* x62073 stalin.sc:1606:53496 */ /* x62072 stalin.sc:1606:53540 */ t63650 = 1; /* x62071 stalin.sc:1606:53504 */ /* x62070 stalin.sc:1606:53537 */ t63653 = a21261; /* x62069 stalin.sc:1606:53505 */ a19722 = t63653; /* x52424 */ /* x52423 */ t63654 = a19722; /* x52422 */ if (!((t63654.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("FOREIGN-PROCEDURE-TYPE-BOOLEANS[6051]"); structure_ref_error();} t63649 = t63654.value.structure_type27750->s7; /* x62068 stalin.sc:1606:53497 */ t63652.tag = STRUCTURE_TYPE24753; t63652.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t63652.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1606, 53496); out_of_memory_error();} t63652.value.structure_type24753->s0.tag = FIXNUM_TYPE; t63652.value.structure_type24753->s0.value.fixnum_type = t63650; t63652.value.structure_type24753->s1.tag = NULL_TYPE; t63651 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t63651==NULL) {backtrace("stalin.sc", 1606, 53496); out_of_memory_error();} t63651->s0.tag = FIXNUM_TYPE; t63651->s0.value.fixnum_type = t63649; t63651->s1 = t63652; t63648 = f27310(t63651); /* x62065 stalin.sc:1603:53440 */ f6052(t63647, t63648); return; l10253: /* x99591 */ /* x99474 stalin.sc:9536:328771 */ /* x99473 stalin.sc:9536:328791 */ t63574 = a23624; /* x99472 stalin.sc:9536:328772 */ a37850 = t63574; /* x284069 */ /* x284068 */ t63575 = a37850; /* x284067 */ if (!((t63575.tag)==STRUCTURE_TYPE27858)) goto l10255; /* x99488 */ /* x99487 */ /* x99486 stalin.sc:9537:328800 */ /* x99477 stalin.sc:9537:328808 */ /* x99476 stalin.sc:9537:328820 */ t63636 = a23624; /* x99475 stalin.sc:9537:328809 */ if (f7849(t63636)==FALSE_TYPE) goto l10285; /* x99479 */ /* x99478 */ return; l10285: /* x99485 */ /* x99484 */ /* x99483 stalin.sc:9538:328830 */ /* x99481 stalin.sc:9538:328860 */ t63637 = a23624; /* x99482 stalin.sc:9538:328862 */ /* x99480 stalin.sc:9538:328831 */ a21281 = t63637; /* x62320 */ /* x62319 stalin.sc:1657:55166 */ /* x62312 stalin.sc:1657:55174 */ /* x62311 stalin.sc:1657:55184 */ /* x270588 stalin.sc:1657:55175 */ /* x62314 */ /* x62313 */ /* x62309 */ /* x62308 stalin.sc:1658:55200 */ /* x62291 stalin.sc:1659:55235 */ t63638 = a21281; /* x62307 stalin.sc:1660:55239 */ /* x62292 stalin.sc:1660:55243 */ /* x62298 stalin.sc:1661:55252 */ /* x62297 stalin.sc:1661:55291 */ t63641 = 2; /* x62296 stalin.sc:1661:55260 */ /* x62295 stalin.sc:1661:55288 */ t63644 = a21281; /* x62294 stalin.sc:1661:55261 */ a19789 = t63644; /* x52673 */ /* x52672 */ t63645 = a19789; /* x52671 */ if (!((t63645.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("CONTINUATION-TYPE-BOOLEANS[6101]"); structure_ref_error();} t63640 = t63645.value.structure_type27858->s5; /* x62293 stalin.sc:1661:55253 */ t63643.tag = STRUCTURE_TYPE24753; t63643.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t63643.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1661, 55252); out_of_memory_error();} t63643.value.structure_type24753->s0.tag = FIXNUM_TYPE; t63643.value.structure_type24753->s0.value.fixnum_type = t63641; t63643.value.structure_type24753->s1.tag = NULL_TYPE; t63642 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t63642==NULL) {backtrace("stalin.sc", 1661, 55252); out_of_memory_error();} t63642->s0.tag = FIXNUM_TYPE; t63642->s0.value.fixnum_type = t63640; t63642->s1 = t63643; t63639 = f27310(t63642); /* x62290 stalin.sc:1658:55201 */ f6102(t63638, t63639); return; l10255: /* x99590 */ /* x99491 stalin.sc:9539:328874 */ /* x99490 stalin.sc:9539:328888 */ t63576 = a23624; /* x99489 stalin.sc:9539:328875 */ a37743 = t63576; /* x283641 */ /* x283640 */ t63577 = a37743; /* x283639 */ if (!((t63577.tag)==STRUCTURE_TYPE27673)) goto l10257; /* x99497 */ /* x99496 */ /* x99495 stalin.sc:9539:328891 */ /* x99493 stalin.sc:9539:328915 */ t63627 = a23624; /* x99494 stalin.sc:9539:328917 */ /* x99492 stalin.sc:9539:328892 */ a21313 = t63627; /* x62680 */ /* x62679 stalin.sc:1745:57767 */ /* x62672 stalin.sc:1745:57775 */ /* x62671 stalin.sc:1745:57785 */ /* x270572 stalin.sc:1745:57776 */ /* x62674 */ /* x62673 */ /* x62669 */ /* x62668 stalin.sc:1746:57801 */ /* x62651 stalin.sc:1747:57830 */ t63628 = a21313; /* x62667 stalin.sc:1748:57834 */ /* x62652 stalin.sc:1748:57838 */ /* x62658 stalin.sc:1749:57847 */ /* x62657 stalin.sc:1749:57880 */ t63631 = 1; /* x62656 stalin.sc:1749:57855 */ /* x62655 stalin.sc:1749:57877 */ t63634 = a21313; /* x62654 stalin.sc:1749:57856 */ a19867 = t63634; /* x52962 */ /* x52961 */ t63635 = a19867; /* x52960 */ if (!((t63635.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("STRING-TYPE-BOOLEANS[6159]"); structure_ref_error();} t63630 = t63635.value.structure_type27673->s6; /* x62653 stalin.sc:1749:57848 */ t63633.tag = STRUCTURE_TYPE24753; t63633.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t63633.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1749, 57847); out_of_memory_error();} t63633.value.structure_type24753->s0.tag = FIXNUM_TYPE; t63633.value.structure_type24753->s0.value.fixnum_type = t63631; t63633.value.structure_type24753->s1.tag = NULL_TYPE; t63632 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t63632==NULL) {backtrace("stalin.sc", 1749, 57847); out_of_memory_error();} t63632->s0.tag = FIXNUM_TYPE; t63632->s0.value.fixnum_type = t63630; t63632->s1 = t63633; t63629 = f27310(t63632); /* x62650 stalin.sc:1746:57802 */ f6160(t63628, t63629); return; l10257: /* x99589 */ /* x99500 stalin.sc:9540:328928 */ /* x99499 stalin.sc:9540:328945 */ t63578 = a23624; /* x99498 stalin.sc:9540:328929 */ a37674 = t63578; /* x283365 */ /* x283364 */ t63579 = a37674; /* x283363 */ if (!((t63579.tag)==STRUCTURE_TYPE27769)) goto l10259; /* x99518 */ /* x99517 */ /* x99516 stalin.sc:9541:328954 */ /* x99503 stalin.sc:9541:328962 */ /* x99502 stalin.sc:9541:328974 */ t63617 = a23624; /* x99501 stalin.sc:9541:328963 */ if (f7849(t63617)==FALSE_TYPE) goto l10279; /* x99505 */ /* x99504 */ return; l10279: /* x99515 */ /* x99514 */ /* x99513 */ /* x99512 stalin.sc:9542:328984 */ /* x99510 stalin.sc:9542:329011 */ t63618 = a23624; /* x99511 stalin.sc:9542:329013 */ /* x99509 stalin.sc:9542:328985 */ a21349 = t63618; /* x63085 */ /* x63084 stalin.sc:1844:60744 */ /* x63077 stalin.sc:1844:60752 */ /* x63076 stalin.sc:1844:60762 */ /* x270549 stalin.sc:1844:60753 */ /* x63079 */ /* x63078 */ /* x63074 */ /* x63073 stalin.sc:1845:60778 */ /* x63056 stalin.sc:1846:60810 */ t63619 = a21349; /* x63072 stalin.sc:1847:60814 */ /* x63057 stalin.sc:1847:60818 */ /* x63063 stalin.sc:1848:60827 */ /* x63062 stalin.sc:1848:60863 */ t63622 = 4; /* x63061 stalin.sc:1848:60835 */ /* x63060 stalin.sc:1848:60860 */ t63625 = a21349; /* x63059 stalin.sc:1848:60836 */ a19967 = t63625; /* x53331 */ /* x53330 */ t63626 = a19967; /* x53329 */ if (!((t63626.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("STRUCTURE-TYPE-BOOLEANS[6233]"); structure_ref_error();} t63621 = t63626.value.structure_type27769->s8; /* x63058 stalin.sc:1848:60828 */ t63624.tag = STRUCTURE_TYPE24753; t63624.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t63624.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1848, 60827); out_of_memory_error();} t63624.value.structure_type24753->s0.tag = FIXNUM_TYPE; t63624.value.structure_type24753->s0.value.fixnum_type = t63622; t63624.value.structure_type24753->s1.tag = NULL_TYPE; t63623 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t63623==NULL) {backtrace("stalin.sc", 1848, 60827); out_of_memory_error();} t63623->s0.tag = FIXNUM_TYPE; t63623->s0.value.fixnum_type = t63621; t63623->s1 = t63624; t63620 = f27310(t63623); /* x63055 stalin.sc:1845:60779 */ f6234(t63619, t63620); /* x99508 */ /* x99507 stalin.sc:9543:329024 */ /* x99506 stalin.sc:9543:329037 */ a23615 = TRUE_TYPE; return; l10259: /* x99588 */ /* x99521 stalin.sc:9544:329049 */ /* x99520 stalin.sc:9544:329070 */ t63580 = a23624; /* x99519 stalin.sc:9544:329050 */ a37530 = t63580; /* x282789 */ /* x282788 */ t63581 = a37530; /* x282787 */ if (!((t63581.tag)==STRUCTURE_TYPE27761)) goto l10261; /* x99539 */ /* x99538 */ /* x99537 stalin.sc:9545:329079 */ /* x99524 stalin.sc:9545:329087 */ /* x99523 stalin.sc:9545:329099 */ t63607 = a23624; /* x99522 stalin.sc:9545:329088 */ if (f7849(t63607)==FALSE_TYPE) goto l10275; /* x99526 */ /* x99525 */ return; l10275: /* x99536 */ /* x99535 */ /* x99534 */ /* x99533 stalin.sc:9546:329109 */ /* x99531 stalin.sc:9546:329140 */ t63608 = a23624; /* x99532 stalin.sc:9546:329142 */ /* x99530 stalin.sc:9546:329110 */ a21397 = t63608; /* x63625 */ /* x63624 stalin.sc:1976:64972 */ /* x63617 stalin.sc:1976:64980 */ /* x63616 stalin.sc:1976:64990 */ /* x270519 stalin.sc:1976:64981 */ /* x63619 */ /* x63618 */ /* x63614 */ /* x63613 stalin.sc:1977:65006 */ /* x63596 stalin.sc:1978:65042 */ t63609 = a21397; /* x63612 stalin.sc:1979:65046 */ /* x63597 stalin.sc:1979:65050 */ /* x63603 stalin.sc:1980:65059 */ /* x63602 stalin.sc:1980:65099 */ t63612 = 2; /* x63601 stalin.sc:1980:65067 */ /* x63600 stalin.sc:1980:65096 */ t63615 = a21397; /* x63599 stalin.sc:1980:65068 */ a20056 = t63615; /* x53660 */ /* x53659 */ t63616 = a20056; /* x53658 */ if (!((t63616.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("HEADED-VECTOR-TYPE-BOOLEANS[6299]"); structure_ref_error();} t63611 = t63616.value.structure_type27761->s7; /* x63598 stalin.sc:1980:65060 */ t63614.tag = STRUCTURE_TYPE24753; t63614.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t63614.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1980, 65059); out_of_memory_error();} t63614.value.structure_type24753->s0.tag = FIXNUM_TYPE; t63614.value.structure_type24753->s0.value.fixnum_type = t63612; t63614.value.structure_type24753->s1.tag = NULL_TYPE; t63613 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t63613==NULL) {backtrace("stalin.sc", 1980, 65059); out_of_memory_error();} t63613->s0.tag = FIXNUM_TYPE; t63613->s0.value.fixnum_type = t63611; t63613->s1 = t63614; t63610 = f27310(t63613); /* x63595 stalin.sc:1977:65007 */ f6300(t63609, t63610); /* x99529 */ /* x99528 stalin.sc:9547:329153 */ /* x99527 stalin.sc:9547:329166 */ a23615 = TRUE_TYPE; return; l10261: /* x99587 */ /* x99542 stalin.sc:9548:329178 */ /* x99541 stalin.sc:9548:329202 */ t63582 = a23624; /* x99540 stalin.sc:9548:329179 */ a37414 = t63582; /* x282325 */ /* x282324 */ t63583 = a37414; /* x282323 */ if (!((t63583.tag)==STRUCTURE_TYPE27669)) goto l10263; /* x99560 */ /* x99559 */ /* x99558 stalin.sc:9549:329211 */ /* x99545 stalin.sc:9549:329219 */ /* x99544 stalin.sc:9549:329231 */ t63597 = a23624; /* x99543 stalin.sc:9549:329220 */ if (f7849(t63597)==FALSE_TYPE) goto l10271; /* x99547 */ /* x99546 */ return; l10271: /* x99557 */ /* x99556 */ /* x99555 */ /* x99554 stalin.sc:9550:329241 */ /* x99552 stalin.sc:9550:329275 */ t63598 = a23624; /* x99553 stalin.sc:9550:329277 */ /* x99551 stalin.sc:9550:329242 */ a21437 = t63598; /* x64075 */ /* x64074 stalin.sc:2086:68704 */ /* x64067 stalin.sc:2086:68712 */ /* x64066 stalin.sc:2086:68722 */ /* x270495 stalin.sc:2086:68713 */ /* x64069 */ /* x64068 */ /* x64064 */ /* x64063 stalin.sc:2087:68738 */ /* x64046 stalin.sc:2088:68777 */ t63599 = a21437; /* x64062 stalin.sc:2089:68781 */ /* x64047 stalin.sc:2089:68785 */ /* x64053 stalin.sc:2090:68794 */ /* x64052 stalin.sc:2090:68837 */ t63602 = 2; /* x64051 stalin.sc:2090:68802 */ /* x64050 stalin.sc:2090:68834 */ t63605 = a21437; /* x64049 stalin.sc:2090:68803 */ a20145 = t63605; /* x53989 */ /* x53988 */ t63606 = a20145; /* x53987 */ if (!((t63606.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("NONHEADED-VECTOR-TYPE-BOOLEANS[6365]"); structure_ref_error();} t63601 = t63606.value.structure_type27669->s7; /* x64048 stalin.sc:2090:68795 */ t63604.tag = STRUCTURE_TYPE24753; t63604.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t63604.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2090, 68794); out_of_memory_error();} t63604.value.structure_type24753->s0.tag = FIXNUM_TYPE; t63604.value.structure_type24753->s0.value.fixnum_type = t63602; t63604.value.structure_type24753->s1.tag = NULL_TYPE; t63603 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t63603==NULL) {backtrace("stalin.sc", 2090, 68794); out_of_memory_error();} t63603->s0.tag = FIXNUM_TYPE; t63603->s0.value.fixnum_type = t63601; t63603->s1 = t63604; t63600 = f27310(t63603); /* x64045 stalin.sc:2087:68739 */ f6366(t63599, t63600); /* x99550 */ /* x99549 stalin.sc:9551:329288 */ /* x99548 stalin.sc:9551:329301 */ a23615 = TRUE_TYPE; return; l10263: /* x99586 */ /* x99563 stalin.sc:9552:329313 */ /* x99562 stalin.sc:9552:329337 */ t63584 = a23624; /* x99561 stalin.sc:9552:329314 */ a37317 = t63584; /* x281937 */ /* x281936 */ t63585 = a37317; /* x281935 */ if (!((t63585.tag)==STRUCTURE_TYPE27908)) goto l10265; /* x99581 */ /* x99580 */ /* x99579 stalin.sc:9553:329346 */ /* x99566 stalin.sc:9553:329354 */ /* x99565 stalin.sc:9553:329366 */ t63587 = a23624; /* x99564 stalin.sc:9553:329355 */ if (f7849(t63587)==FALSE_TYPE) goto l10267; /* x99568 */ /* x99567 */ return; l10267: /* x99578 */ /* x99577 */ /* x99576 */ /* x99575 stalin.sc:9554:329376 */ /* x99573 stalin.sc:9554:329410 */ t63588 = a23624; /* x99574 stalin.sc:9554:329412 */ /* x99572 stalin.sc:9554:329377 */ a21473 = t63588; /* x64480 */ /* x64479 stalin.sc:2185:72049 */ /* x64472 stalin.sc:2185:72057 */ /* x64471 stalin.sc:2185:72067 */ /* x270474 stalin.sc:2185:72058 */ /* x64474 */ /* x64473 */ /* x64469 */ /* x64468 stalin.sc:2186:72083 */ /* x64451 stalin.sc:2187:72122 */ t63589 = a21473; /* x64467 stalin.sc:2188:72126 */ /* x64452 stalin.sc:2188:72130 */ /* x64458 stalin.sc:2189:72139 */ /* x64457 stalin.sc:2189:72182 */ t63592 = 1; /* x64456 stalin.sc:2189:72147 */ /* x64455 stalin.sc:2189:72179 */ t63595 = a21473; /* x64454 stalin.sc:2189:72148 */ a37283 = t63595; /* x281801 */ /* x281800 */ t63596 = a37283; /* x281799 */ if (!((t63596.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-BOOLEANS[6415] 32200]"); structure_ref_error();} t63591 = t63596.value.structure_type27908->s5; /* x64453 stalin.sc:2189:72140 */ t63594.tag = STRUCTURE_TYPE24753; t63594.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t63594.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2189, 72139); out_of_memory_error();} t63594.value.structure_type24753->s0.tag = FIXNUM_TYPE; t63594.value.structure_type24753->s0.value.fixnum_type = t63592; t63594.value.structure_type24753->s1.tag = NULL_TYPE; t63593 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t63593==NULL) {backtrace("stalin.sc", 2189, 72139); out_of_memory_error();} t63593->s0.tag = FIXNUM_TYPE; t63593->s0.value.fixnum_type = t63591; t63593->s1 = t63594; t63590 = f27310(t63593); /* x64450 stalin.sc:2186:72084 */ f6416(t63589, t63590); /* x99571 */ /* x99570 stalin.sc:9555:329423 */ /* x99569 stalin.sc:9555:329436 */ a23615 = TRUE_TYPE; return; l10265: /* x99585 */ /* x99584 */ /* x99583 stalin.sc:9556:329453 */ /* x99582 stalin.sc:9556:329454 */ /* x295281 QobiScheme.sc:166:5314 */ /* x295280 QobiScheme.sc:166:5321 */ t63586 = "This shouldn\'t happen"; /* x295279 QobiScheme.sc:166:5315 */ stalin_panic(t63586);} /* [inside ENUMERATE-CALL-SITES! 10910] */ void f10910(struct w49 a23605) {struct w49 a38645; /* S */ struct w49 a38646; /* S */ struct w49 a39945; /* S */ struct w49 a39946; /* S */ struct w49 a40106; /* S */ struct w49 a40115; /* S */ struct w49 t63685; struct w49 t63686; struct w49 t63687; struct w49 t63688; struct w49 t63689; struct w49 t63690; struct w49 t63691; struct p10910 *t63692; struct p10910 *t63693; struct p10910 *t63694; struct w49 t63695; struct w211257 t63696; struct w49 t63697; struct w49 t63698; struct w49 t63699; struct w49 t63700; struct p10910 *t63701; struct structure_type27745 *t63702; struct structure_type24753 *t63703; struct structure_type27745 *t63704; char *t63705; struct structure_type27745 *t63706; struct w49 t63707; struct structure_type27745 *t63708; struct structure_type24753 *t63709; struct w49 t63710; struct p10910 *t63711; struct w49 t63712; struct w211257 t63713; struct w49 t63714; struct w49 t63715; struct w49 t63716; struct w49 t63717; struct p10910 *t63718; struct structure_type27745 *t63719; struct structure_type24753 *t63720; struct structure_type27745 *t63721; char *t63722; struct structure_type27745 *t63723; struct w49 t63724; struct p10910 *e10910; struct p10910 *p10911; struct p10910 *p10912; struct p10910 *p10914; struct p10910 *p10920; e10910 = (struct p10910 *)alloca(sizeof(struct p10910)); if (e10910==NULL) {backtrace("stalin.sc", 9484, 326580); out_of_memory_error();} e10910->a23605 = a23605; /* x99317 stalin.sc:9485:326595 */ /* x99203 stalin.sc:9485:326601 */ /* x99187 stalin.sc:9485:326606 */ /* x99186 stalin.sc:9485:326617 */ t63685 = e10910->a23605; /* x99185 stalin.sc:9485:326607 */ if (f6967(t63685)==FALSE_TYPE) goto l10299; /* x99201 */ /* x99194 stalin.sc:9486:326627 */ /* x99193 stalin.sc:9486:326632 */ /* x99192 stalin.sc:9486:326640 */ /* x99191 stalin.sc:9486:326664 */ t63687 = e10910->a23605; /* x99190 stalin.sc:9486:326641 */ a40115 = t63687; /* x293129 */ /* x293128 */ t63688 = a40115; /* x293127 */ if (!((t63688.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35032]"); structure_ref_error();} t63686 = t63688.value.structure_type27698->s9; /* x99189 stalin.sc:9486:326633 */ if (!(f8581(t63686)==FALSE_TYPE)) goto l10299; /* x99199 */ /* x99198 stalin.sc:9487:326695 */ /* x99197 stalin.sc:9487:326719 */ t63690 = e10910->a23605; /* x99196 stalin.sc:9487:326696 */ a40106 = t63690; /* x293093 */ /* x293092 */ t63691 = a40106; /* x293091 */ if (!((t63691.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35023]"); structure_ref_error();} t63689 = t63691.value.structure_type27698->s9; /* x99195 stalin.sc:9487:326677 */ if (f8526(t63689)==FALSE_TYPE) goto l10299; /* x99314 */ /* x99313 */ t63692 = e10910; p10911 = t63692; /* x99312 */ /* x99246 stalin.sc:9488:326728 */ /* x99245 stalin.sc:9488:326739 */ /* x99243 stalin.sc:9488:326745 */ /* x99242 stalin.sc:9488:326763 */ t63710 = p10911->a23605; /* x99241 stalin.sc:9488:326746 */ t63708 = f8739(t63710); /* x99244 stalin.sc:9488:326766 */ t63709 = a1524; /* x269664 stalin.sc:9488:326740 */ a1524 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a1524==NULL) {backtrace("stalin.sc", 9488, 326739); out_of_memory_error();} a1524->s0.tag = STRUCTURE_TYPE27745; a1524->s0.value.structure_type27745 = t63708; /* MOVE: branching squeezed to general */ if (t63709>=((struct structure_type24753 *)VALUE_OFFSET)) {a1524->s1.tag = STRUCTURE_TYPE24753; a1524->s1.value.structure_type24753 = t63709;} else a1524->s1.tag = (unsigned)t63709; /* x99311 stalin.sc:9489:326777 */ /* x99296 stalin.sc:9489:326783 */ /* x99290 stalin.sc:9489:326792 */ t63711 = p10911; /* x99295 stalin.sc:9497:327109 */ /* x99294 stalin.sc:9497:327130 */ /* x99293 stalin.sc:9497:327149 */ t63716 = p10911->a23605; /* x99292 stalin.sc:9497:327131 */ a38646 = t63716; /* x287253 */ /* x287252 */ t63717 = a38646; /* x287251 */ if (!((t63717.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33563]"); structure_ref_error();} t63714 = t63717.value.structure_type27698->s21; /* x99291 stalin.sc:9497:327110 */ a39946 = t63714; /* x292453 */ /* x292452 */ t63715 = a39946; /* x292451 */ if (!((t63715.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34863]"); structure_ref_error();} t63712 = t63715.value.structure_type27698->s10; /* x99247 stalin.sc:9489:326784 */ t63713.tag = NATIVE_PROCEDURE_TYPE19141; t63713.value.native_procedure_type19141 = t63711; if ((f8137(t63713, t63712).tag)==FALSE_TYPE) goto l10305; /* x99308 */ /* x99307 */ t63718 = p10911; p10920 = t63718; /* x99306 stalin.sc:9498:327159 */ /* x99305 stalin.sc:9499:327174 */ /* x99303 stalin.sc:9499:327180 */ /* x99301 stalin.sc:9499:327200 */ /* x99300 stalin.sc:9499:327218 */ t63724 = p10920->a23605; /* x99299 stalin.sc:9499:327201 */ t63721 = f8739(t63724); /* x99302 stalin.sc:9499:327221 */ t63722 = q64; /* x99298 stalin.sc:9499:327181 */ t63723 = t63721; t63719 = f8743(t63723, t63722); /* x99304 stalin.sc:9500:327241 */ t63720 = a1524; /* x269663 stalin.sc:9499:327175 */ a1524 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a1524==NULL) {backtrace("stalin.sc", 9499, 327174); out_of_memory_error();} a1524->s0.tag = STRUCTURE_TYPE27745; a1524->s0.value.structure_type27745 = t63719; /* MOVE: branching squeezed to general */ if (t63720>=((struct structure_type24753 *)VALUE_OFFSET)) {a1524->s1.tag = STRUCTURE_TYPE24753; a1524->s1.value.structure_type24753 = t63720;} else a1524->s1.tag = (unsigned)t63720; goto l10306; l10305: /* x99310 stalin.sc:9489:326777 */ /* x99309 stalin.sc:9489:326777 */ l10306: /* x99239 */ t63693 = p10911; p10912 = t63693; /* x99238 stalin.sc:9501:327253 */ /* x99223 stalin.sc:9501:327259 */ /* x99217 stalin.sc:9501:327268 */ t63694 = p10912; /* x99222 stalin.sc:9504:327377 */ /* x99221 stalin.sc:9504:327398 */ /* x99220 stalin.sc:9504:327417 */ t63699 = p10912->a23605; /* x99219 stalin.sc:9504:327399 */ a38645 = t63699; /* x287249 */ /* x287248 */ t63700 = a38645; /* x287247 */ if (!((t63700.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33562]"); structure_ref_error();} t63697 = t63700.value.structure_type27698->s21; /* x99218 stalin.sc:9504:327378 */ a39945 = t63697; /* x292449 */ /* x292448 */ t63698 = a39945; /* x292447 */ if (!((t63698.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34862]"); structure_ref_error();} t63695 = t63698.value.structure_type27698->s10; /* x99204 stalin.sc:9501:327260 */ t63696.tag = NATIVE_PROCEDURE_TYPE19144; t63696.value.native_procedure_type19144 = t63694; if ((f8137(t63696, t63695).tag)==FALSE_TYPE) goto l10303; /* x99235 */ /* x99234 */ t63701 = p10912; p10914 = t63701; /* x99233 stalin.sc:9505:327427 */ /* x99232 stalin.sc:9506:327442 */ /* x99230 stalin.sc:9506:327448 */ /* x99228 stalin.sc:9506:327468 */ /* x99227 stalin.sc:9506:327486 */ t63707 = p10914->a23605; /* x99226 stalin.sc:9506:327469 */ t63704 = f8739(t63707); /* x99229 stalin.sc:9506:327489 */ t63705 = q65; /* x99225 stalin.sc:9506:327449 */ t63706 = t63704; t63702 = f8743(t63706, t63705); /* x99231 stalin.sc:9507:327510 */ t63703 = a1524; /* x269665 stalin.sc:9506:327443 */ a1524 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a1524==NULL) {backtrace("stalin.sc", 9506, 327442); out_of_memory_error();} a1524->s0.tag = STRUCTURE_TYPE27745; a1524->s0.value.structure_type27745 = t63702; /* MOVE: branching squeezed to general */ if (t63703>=((struct structure_type24753 *)VALUE_OFFSET)) {a1524->s1.tag = STRUCTURE_TYPE24753; a1524->s1.value.structure_type24753 = t63703;} else a1524->s1.tag = (unsigned)t63703; return; l10303: /* x99237 stalin.sc:9501:327253 */ /* x99236 stalin.sc:9501:327253 */ return; l10299: /* x99316 stalin.sc:9485:326595 */ /* x99315 stalin.sc:9485:326595 */ return;} /* [inside PERFORM-FLOW-ANALYSIS! 10900] */ void f10900(struct w49 a23595) {struct w49 t63725; struct structure_type27650 *t63726; struct w49 t63727; struct w49 t63728; /* x99132 stalin.sc:9467:326150 */ /* x99128 stalin.sc:9467:326174 */ t63725 = a23595; /* x99131 stalin.sc:9467:326176 */ /* x99130 stalin.sc:9467:326193 */ t63728 = a23595; /* x99129 stalin.sc:9467:326177 */ t63726 = f8092(t63728); /* x99127 stalin.sc:9467:326151 */ t63727.tag = STRUCTURE_TYPE27650; t63727.value.structure_type27650 = t63726; f6590(t63725, t63727); return;} /* [inside PERFORM-FLOW-ANALYSIS! 10899] */ void f10899(struct w49 a23594) {struct w49 t63729; struct structure_type24753 *t63730; /* x99122 stalin.sc:9466:326084 */ /* x99120 stalin.sc:9466:326113 */ t63729 = a23594; /* x99121 stalin.sc:9466:326115 */ /* x99119 stalin.sc:9466:326085 */ t63730 = (struct structure_type24753 *)NULL_TYPE; f6664(t63729, t63730); return;} /* [inside PERFORM-FLOW-ANALYSIS! 10894] */ void f10894(struct w49 a23591) {struct w49 a36714; /* S */ struct w9140 a36768; /* OBJ */ struct w49 a39499; /* S */ struct w49 a39500; /* S */ struct w49 a39501; /* S */ struct w49 a39509; /* S */ struct w6852 a40003; /* S */ struct w49 a40388; /* S */ struct w49 a40389; /* S */ struct w49 a40404; /* S */ char *t63731; char *t63732; struct w49 t63733; struct w49 t63734; char *t63735; char *t63736; struct w49 t63737; struct w49 t63738; char *t63739; char *t63740; struct w49 t63741; struct w49 t63742; struct w9140 t63743; struct w9140 t63744; struct w49 t63745; struct w49 t63746; struct w49 t63747; struct w9140 t63748; struct w9140 t63749; struct w49 t63750; struct w49 t63751; struct w49 t63752; struct w49 t63753; struct w49 t63754; struct w49 t63755; struct w49 t63756; struct w6852 t63757; struct w6852 t63758; struct w49 t63759; struct w49 t63760; struct w9140 t63761; struct w49 t63762; struct w49 t63763; struct w49 t63764; /* x99114 stalin.sc:9454:325549 */ /* x99097 stalin.sc:9454:325555 */ /* x99076 stalin.sc:9454:325560 */ /* x99075 stalin.sc:9454:325564 */ /* x99073 stalin.sc:9454:325569 */ /* x99072 stalin.sc:9454:325586 */ t63733 = a23591; /* x99071 stalin.sc:9454:325570 */ a40404 = t63733; /* x294285 */ /* x294284 */ t63734 = a40404; /* x294283 */ if (!((t63734.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35321]"); structure_ref_error();} t63731 = t63734.value.structure_type27698->s0; /* x99074 stalin.sc:9454:325589 */ t63732 = q39; /* x269669 stalin.sc:9454:325565 */ if (t63731==t63732) goto l10309; /* x99067 */ /* x99066 stalin.sc:9455:325602 */ /* x99064 stalin.sc:9455:325607 */ /* x99063 stalin.sc:9455:325624 */ t63737 = a23591; /* x99062 stalin.sc:9455:325608 */ a40389 = t63737; /* x294225 */ /* x294224 */ t63738 = a40389; /* x294223 */ if (!((t63738.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35306]"); structure_ref_error();} t63735 = t63738.value.structure_type27698->s0; /* x99065 stalin.sc:9455:325627 */ t63736 = q40; /* x269670 stalin.sc:9455:325603 */ if (t63735==t63736) goto l10309; /* x99058 */ /* x99056 stalin.sc:9456:325655 */ /* x99055 stalin.sc:9456:325672 */ t63741 = a23591; /* x99054 stalin.sc:9456:325656 */ a40388 = t63741; /* x294221 */ /* x294220 */ t63742 = a40388; /* x294219 */ if (!((t63742.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35305]"); structure_ref_error();} t63739 = t63742.value.structure_type27698->s0; /* x99057 stalin.sc:9456:325675 */ t63740 = q41; /* x269671 stalin.sc:9456:325651 */ if (!(t63739==t63740)) goto l10308; l10309: /* x99095 */ /* x99081 stalin.sc:9458:325751 */ /* x99080 stalin.sc:9458:325765 */ /* x99079 stalin.sc:9458:325796 */ t63745 = a23591; /* x99078 stalin.sc:9458:325766 */ a39509 = t63745; /* x290705 */ /* x290704 */ t63746 = a39509; /* x290703 */ if (!((t63746.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34426]"); structure_ref_error();} t63743 = t63746.value.structure_type27698->s13; /* x99077 stalin.sc:9458:325752 */ a36768 = t63743; /* x279741 */ /* x279740 */ t63744 = a36768; /* x279739 */ if (!((t63744.tag)==STRUCTURE_TYPE27694)) goto l10308; /* x99093 */ /* x99092 stalin.sc:9459:325812 */ /* x99088 stalin.sc:9459:325817 */ /* x99087 stalin.sc:9459:325835 */ /* x99086 stalin.sc:9459:325866 */ t63751 = a23591; /* x99085 stalin.sc:9459:325836 */ a39500 = t63751; /* x290669 */ /* x290668 */ t63752 = a39500; /* x290667 */ if (!((t63752.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34417]"); structure_ref_error();} t63749 = t63752.value.structure_type27698->s13; /* x99084 stalin.sc:9459:325818 */ t63750 = *((struct w49 *)(&t63749)); t63747 = f8966(t63750); /* x99091 stalin.sc:9460:325873 */ /* x99090 stalin.sc:9460:325904 */ t63753 = a23591; /* x99089 stalin.sc:9460:325874 */ a39501 = t63753; /* x290673 */ /* x290672 */ t63754 = a39501; /* x290671 */ if (!((t63754.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34418]"); structure_ref_error();} t63748 = t63754.value.structure_type27698->s13; /* x269667 stalin.sc:9459:325813 */ /* EQ: dispatching general to general */ if ((t63747.tag)==(t63748.tag)) switch (t63747.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: case INPUT_PORT_TYPE: case OUTPUT_PORT_TYPE: case NATIVE_PROCEDURE_TYPE15963: case NATIVE_PROCEDURE_TYPE19067: case NATIVE_PROCEDURE_TYPE19068: case NATIVE_PROCEDURE_TYPE22459: case STRUCTURE_TYPE24753: case STRUCTURE_TYPE24757: case STRUCTURE_TYPE27501: case STRUCTURE_TYPE27510: case STRUCTURE_TYPE27621: case STRUCTURE_TYPE27650: case STRUCTURE_TYPE27669: case STRUCTURE_TYPE27673: case STRUCTURE_TYPE27692: case STRUCTURE_TYPE27698: case STRUCTURE_TYPE27745: case STRUCTURE_TYPE27747: case STRUCTURE_TYPE27750: case STRUCTURE_TYPE27753: case STRUCTURE_TYPE27756: case STRUCTURE_TYPE27761: case STRUCTURE_TYPE27769: case STRUCTURE_TYPE27776: case STRUCTURE_TYPE27779: case STRUCTURE_TYPE27858: case STRING_TYPE: case HEADED_VECTOR_TYPE27896: case STRUCTURE_TYPE27908: break; case STRUCTURE_TYPE27694: if ((t63747.value.structure_type27694)==(t63748.value.structure_type27694)) goto l10308; break; case EXTERNAL_SYMBOL_TYPE: if ((t63747.value.external_symbol_type)==(t63748.value.external_symbol_type)) goto l10308; break; default: goto l10308;} /* x99111 */ /* x99110 */ /* x99109 stalin.sc:9461:325914 */ /* x99099 stalin.sc:9462:325945 */ t63755 = a23591; /* x99108 stalin.sc:9462:325947 */ /* x99107 stalin.sc:9463:325969 */ /* x99106 stalin.sc:9464:325995 */ /* x99105 stalin.sc:9464:326013 */ /* x99104 stalin.sc:9464:326044 */ t63763 = a23591; /* x99103 stalin.sc:9464:326014 */ a39499 = t63763; /* x290665 */ /* x290664 */ t63764 = a39499; /* x290663 */ if (!((t63764.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34416]"); structure_ref_error();} t63761 = t63764.value.structure_type27698->s13; /* x99102 stalin.sc:9464:325996 */ t63762 = *((struct w49 *)(&t63761)); t63759 = f8966(t63762); /* x99101 stalin.sc:9463:325970 */ a36714 = t63759; /* x279525 */ /* x279524 */ t63760 = a36714; /* x279523 */ if (!((t63760.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31631]"); structure_ref_error();} t63757 = t63760.value.structure_type27694->s1; /* x99100 stalin.sc:9462:325948 */ a40003 = t63757; /* x292681 */ /* x292680 */ t63758 = a40003; /* x292679 */ if (!((t63758.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34920]"); structure_ref_error();} t63756 = t63758.value.structure_type27698->s10; /* x99098 stalin.sc:9461:325915 */ f5568(t63755, t63756); return; l10308: /* x99113 stalin.sc:9454:325549 */ /* x99112 stalin.sc:9454:325549 */ return;} /* [inside PERFORM-FLOW-ANALYSIS! 10888] */ void f10888(struct w49 a23585) {struct w9140 a36764; /* OBJ */ struct w49 a39494; /* S */ struct w49 a39495; /* S */ struct w49 a39508; /* S */ struct w49 a40386; /* S */ struct w49 a40387; /* S */ struct w49 a40403; /* S */ struct w49 t63765; unsigned t63766; char *t63767; char *t63768; struct w49 t63769; struct w49 t63770; char *t63771; char *t63772; struct w49 t63773; struct w49 t63774; char *t63775; char *t63776; struct w49 t63777; struct w49 t63778; struct w9140 t63779; struct w9140 t63780; struct w49 t63781; struct w49 t63782; struct w49 t63783; struct w9140 t63784; struct w9140 t63785; struct w49 t63786; struct w49 t63787; struct w49 t63788; struct w49 t63789; struct w49 t63790; struct w49 t63791; struct structure_type27650 *t63792; struct w49 t63793; struct w49 t63794; struct w49 t63795; unsigned t63796; struct w49 t63797; unsigned t63798; /* x99044 */ /* x99035 stalin.sc:9438:324875 */ /* x99024 stalin.sc:9438:324881 */ /* x99023 stalin.sc:9438:324885 */ /* x99003 stalin.sc:9438:324890 */ /* x99002 stalin.sc:9438:324895 */ /* x99000 stalin.sc:9438:324900 */ /* x98999 stalin.sc:9438:324917 */ t63769 = a23585; /* x98998 stalin.sc:9438:324901 */ a40403 = t63769; /* x294281 */ /* x294280 */ t63770 = a40403; /* x294279 */ if (!((t63770.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35320]"); structure_ref_error();} t63767 = t63770.value.structure_type27698->s0; /* x99001 stalin.sc:9438:324920 */ t63768 = q39; /* x269676 stalin.sc:9438:324896 */ if (t63767==t63768) goto l10316; /* x99021 */ /* x99011 stalin.sc:9439:324934 */ /* x99010 stalin.sc:9439:324939 */ /* x99008 stalin.sc:9439:324944 */ /* x99007 stalin.sc:9439:324961 */ t63773 = a23585; /* x99006 stalin.sc:9439:324945 */ a40387 = t63773; /* x294217 */ /* x294216 */ t63774 = a40387; /* x294215 */ if (!((t63774.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35304]"); structure_ref_error();} t63771 = t63774.value.structure_type27698->s0; /* x99009 stalin.sc:9439:324964 */ t63772 = q40; /* x269674 stalin.sc:9439:324940 */ if (t63771==t63772) goto l10316; /* x99019 */ /* x99018 stalin.sc:9440:324993 */ /* x99016 stalin.sc:9440:324998 */ /* x99015 stalin.sc:9440:325015 */ t63777 = a23585; /* x99014 stalin.sc:9440:324999 */ a40386 = t63777; /* x294213 */ /* x294212 */ t63778 = a40386; /* x294211 */ if (!((t63778.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35303]"); structure_ref_error();} t63775 = t63778.value.structure_type27698->s0; /* x99017 stalin.sc:9440:325018 */ t63776 = q41; /* x269672 stalin.sc:9440:324994 */ if (!(t63775==t63776)) goto l10313; l10316: /* x98993 */ /* x98992 stalin.sc:9442:325093 */ /* x98991 stalin.sc:9442:325098 */ /* x98990 stalin.sc:9442:325112 */ /* x98989 stalin.sc:9442:325143 */ t63781 = a23585; /* x98988 stalin.sc:9442:325113 */ a39508 = t63781; /* x290701 */ /* x290700 */ t63782 = a39508; /* x290699 */ if (!((t63782.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34425]"); structure_ref_error();} t63779 = t63782.value.structure_type27698->s13; /* x98987 stalin.sc:9442:325099 */ a36764 = t63779; /* x279725 */ /* x279724 */ t63780 = a36764; /* x279723 */ if (!((t63780.tag)==STRUCTURE_TYPE27694)) goto l10313; /* x98983 */ /* x98979 stalin.sc:9443:325159 */ /* x98978 stalin.sc:9443:325177 */ /* x98977 stalin.sc:9443:325208 */ t63787 = a23585; /* x98976 stalin.sc:9443:325178 */ a39494 = t63787; /* x290645 */ /* x290644 */ t63788 = a39494; /* x290643 */ if (!((t63788.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34411]"); structure_ref_error();} t63785 = t63788.value.structure_type27698->s13; /* x98975 stalin.sc:9443:325160 */ t63786 = *((struct w49 *)(&t63785)); t63783 = f8966(t63786); /* x98982 stalin.sc:9444:325216 */ /* x98981 stalin.sc:9444:325247 */ t63789 = a23585; /* x98980 stalin.sc:9444:325217 */ a39495 = t63789; /* x290649 */ /* x290648 */ t63790 = a39495; /* x290647 */ if (!((t63790.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34412]"); structure_ref_error();} t63784 = t63790.value.structure_type27698->s13; /* x269679 stalin.sc:9443:325155 */ /* EQ: dispatching general to general */ if (!((t63783.tag)==(t63784.tag))) goto l10314; switch (t63783.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: case INPUT_PORT_TYPE: case OUTPUT_PORT_TYPE: case NATIVE_PROCEDURE_TYPE15963: case NATIVE_PROCEDURE_TYPE19067: case NATIVE_PROCEDURE_TYPE19068: case NATIVE_PROCEDURE_TYPE22459: case STRUCTURE_TYPE24753: case STRUCTURE_TYPE24757: case STRUCTURE_TYPE27501: case STRUCTURE_TYPE27510: case STRUCTURE_TYPE27621: case STRUCTURE_TYPE27650: case STRUCTURE_TYPE27669: case STRUCTURE_TYPE27673: case STRUCTURE_TYPE27692: case STRUCTURE_TYPE27698: case STRUCTURE_TYPE27745: case STRUCTURE_TYPE27747: case STRUCTURE_TYPE27750: case STRUCTURE_TYPE27753: case STRUCTURE_TYPE27756: case STRUCTURE_TYPE27761: case STRUCTURE_TYPE27769: case STRUCTURE_TYPE27776: case STRUCTURE_TYPE27779: case STRUCTURE_TYPE27858: case STRING_TYPE: case HEADED_VECTOR_TYPE27896: case STRUCTURE_TYPE27908: goto l10314; break; case STRUCTURE_TYPE27694: if (!((t63783.value.structure_type27694)==(t63784.value.structure_type27694))) goto l10314; break; case EXTERNAL_SYMBOL_TYPE: if (!((t63783.value.external_symbol_type)==(t63784.value.external_symbol_type))) goto l10314; break; default:;} l10313: /* x99032 */ /* x99031 */ /* x99030 stalin.sc:9445:325256 */ /* x99026 stalin.sc:9445:325282 */ t63791 = a23585; /* x99029 stalin.sc:9445:325284 */ /* x99028 stalin.sc:9445:325301 */ t63794 = a23585; /* x99027 stalin.sc:9445:325285 */ t63792 = f8092(t63794); /* x99025 stalin.sc:9445:325257 */ t63793.tag = STRUCTURE_TYPE27650; t63793.value.structure_type27650 = t63792; f5568(t63791, t63793); goto l10315; l10314: /* x99034 stalin.sc:9438:324875 */ /* x99033 stalin.sc:9438:324875 */ l10315: /* x99039 stalin.sc:9446:325309 */ /* x99037 stalin.sc:9446:325335 */ t63795 = a23585; /* x99038 stalin.sc:9446:325337 */ /* x99036 stalin.sc:9446:325310 */ t63796 = FALSE_TYPE; f6927(t63795, t63796); /* x99043 stalin.sc:9447:325344 */ /* x99041 stalin.sc:9447:325371 */ t63797 = a23585; /* x99042 stalin.sc:9447:325373 */ /* x99040 stalin.sc:9447:325345 */ t63798 = FALSE_TYPE; f6932(t63797, t63798); /* x98969 */ /* x98968 stalin.sc:9448:325380 */ /* x98966 stalin.sc:9448:325406 */ t63765 = a23585; /* x98967 stalin.sc:9448:325408 */ /* x98965 stalin.sc:9448:325381 */ t63766 = FALSE_TYPE; f6957(t63765, t63766); return;} /* RUN-STACK![10877] */ void f10877(void) {struct w49 a19068; /* S */ struct w49 a19108; /* S */ struct w49 a19386; /* NAME */ unsigned a19387; /* INDEX */ int a19388; /* USE-COUNT */ char *a19389; /* TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO */ int a19390; /* BOOLEANS */ struct w49 a19509; /* NAME */ struct w49 a19510; /* ARGUMENTS */ unsigned a19511; /* INDEX */ int a19512; /* USE-COUNT */ char *a19513; /* TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO */ int a19514; /* BOOLEANS */ struct w49 a19577; /* NARROW-PROTOTYPE */ unsigned a19578; /* INDEX */ int a19579; /* USE-COUNT */ char *a19580; /* TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO */ int a19581; /* BOOLEANS */ struct w49 a19643; /* NAME */ struct w49 a19644; /* PARAMETERS */ struct w49 a19645; /* RESULT */ struct w49 a19646; /* INCLUDE */ unsigned a19647; /* INDEX */ int a19648; /* USE-COUNT */ char *a19649; /* TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO */ int a19650; /* BOOLEANS */ struct w49 a20983; /* NAME */ struct structure_type27776 *a20985; /* U */ struct w49 a20988; /* V */ struct w49 a20990; /* v */ struct w49 a21001; /* NAME */ struct w49 a21002; /* ARGUMENTS */ struct structure_type27753 *a21004; /* U */ struct w49 a21010; /* v */ struct w49 a21012; /* E */ struct structure_type27756 *a21015; /* U */ struct w9140 a21020; /* E */ struct w49 a21023; /* v */ struct w49 a21025; /* NAME */ struct w49 a21026; /* PARAMETERS */ struct w49 a21027; /* RESULT */ struct w49 a21028; /* INCLUDE */ struct structure_type27750 *a21030; /* U */ struct w49 a21034; /* FS */ struct w49 a21035; /* F */ struct w49 a21036; /* V0 */ struct w49 a21038; /* v */ struct w49 a23507; /* X */ struct w49 a23509; /* W */ char *a23511; /* v */ struct w49 a23573; /* X */ struct w49 a35533; /* PAIR */ struct w49 a36097; /* PAIR */ struct w49 a36098; /* PAIR */ struct w49 a36865; /* S */ struct w49 a36866; /* S */ struct w49 a36883; /* S */ struct w49 a36884; /* S */ struct w49 a36885; /* S */ struct w49 a38567; /* S */ struct w49 a38568; /* S */ struct w49 a38569; /* S */ struct w49 a38570; /* S */ struct w49 a38571; /* S */ struct w49 a38572; /* S */ struct w49 a38573; /* S */ struct w49 a38574; /* S */ struct w49 a38685; /* S */ struct w49 a38686; /* S */ struct w49 a38687; /* S */ struct w49 a38688; /* S */ struct w49 a38689; /* S */ struct w49 a38690; /* S */ struct w49 a38691; /* S */ struct w49 a38692; /* S */ struct w49 a38894; /* S */ struct w49 a38895; /* S */ struct w49 a38915; /* S */ struct w49 a38916; /* S */ struct w49 a38946; /* S */ struct w49 a38947; /* S */ struct w49 a38969; /* S */ struct w49 a38970; /* S */ struct w49 a39024; /* S */ struct w49 a39025; /* S */ struct w49 a39026; /* S */ struct w49 a39027; /* S */ struct w49 a39028; /* S */ struct w49 a39067; /* S */ struct w49 a39071; /* S */ struct w49 a39072; /* S */ struct w49 a39073; /* S */ struct w49 a39143; /* S */ struct w49 a39144; /* S */ struct w49 a39145; /* S */ struct w49 a39157; /* S */ struct w49 a39158; /* S */ struct w49 a39159; /* S */ struct w49 a39160; /* S */ struct w49 a39490; /* S */ struct w49 a39517; /* S */ struct w49 a39518; /* S */ struct w49 a39519; /* S */ struct w49 a39520; /* S */ struct w49 a39521; /* S */ struct w49 a39522; /* S */ struct w49 a39588; /* S */ struct w49 a39589; /* S */ struct w49 a39590; /* S */ struct w49 a39591; /* S */ struct w49 a39592; /* S */ struct w49 a39593; /* S */ struct w49 a39594; /* S */ struct w49 a39830; /* S */ struct w49 a39831; /* S */ struct w49 a39910; /* S */ struct w49 a39920; /* S */ struct w49 a39993; /* S */ struct w49 a39994; /* S */ struct w49 a39995; /* S */ struct w49 a39996; /* S */ struct w49 a39997; /* S */ struct w49 a39998; /* S */ struct w49 a39999; /* S */ struct w49 a40000; /* S */ struct w49 a40001; /* S */ struct w49 a40002; /* S */ struct w49 a40122; /* S */ struct w49 a40330; /* S */ struct w49 t63799; struct w49 t63800; struct w49 t63801; struct w49 t63802; struct w49 t63803; struct w49 t63804; struct w49 t63805; struct w49 t63806; struct w49 t63807; struct w49 t63808; struct w49 t63809; unsigned t63810; struct w49 t63811; char *t63812; char *t63813; char *t63814; struct w49 t63815; struct w49 t63816; char *t63817; char *t63818; struct w49 t63819; struct w49 t63820; char *t63821; char *t63822; struct w49 t63823; struct w49 t63824; char *t63825; char *t63826; struct w49 t63827; struct w49 t63828; char *t63829; char *t63830; struct w49 t63831; struct w49 t63832; char *t63833; char *t63834; struct w49 t63835; struct w49 t63836; char *t63837; char *t63838; struct w49 t63839; struct w49 t63840; char *t63841; char *t63842; struct w49 t63843; struct w49 t63844; char *t63845; char *t63846; struct w49 t63847; struct w49 t63848; char *t63849; char *t63850; struct w49 t63851; struct w49 t63852; char *t63853; char *t63854; struct w49 t63855; struct w49 t63856; char *t63857; char *t63858; struct w49 t63859; struct w49 t63860; char *t63861; char *t63862; struct w49 t63863; struct w49 t63864; char *t63865; char *t63866; struct w49 t63867; struct w49 t63868; char *t63869; char *t63870; struct w49 t63871; struct w49 t63872; char *t63873; char *t63874; struct w49 t63875; struct w49 t63876; char *t63877; char *t63878; struct w49 t63879; struct w49 t63880; char *t63881; char *t63882; struct w49 t63883; struct w49 t63884; char *t63885; char *t63886; struct w49 t63887; struct w49 t63888; char *t63889; char *t63890; struct w49 t63891; struct w49 t63892; char *t63893; char *t63894; struct w49 t63895; struct w49 t63896; char *t63897; struct w49 t63898; struct p10532 *t63899; struct w49 t63900; struct w211257 t63901; struct structure_type24753 *t63902; struct structure_type27650 *t63903; struct structure_type27745 *t63904; struct w49 t63905; struct w49 t63906; struct structure_type27745 *t63907; struct w11873 t63908; struct w36270 t63909; struct w49 t63910; struct structure_type24753 *t63911; struct w49 t63912; struct w49 t63913; struct w49 t63914; struct w49 t63915; struct w49 t63916; struct w49 t63917; struct w49 t63918; struct w49 t63919; struct structure_type27745 *t63920; struct w49 t63921; struct structure_type24753 *t63922; struct structure_type27650 *t63923; struct structure_type27745 *t63924; struct w49 t63925; struct w49 t63926; struct w49 t63927; struct w49 t63928; struct w49 t63929; struct w49 t63930; struct w49 t63931; struct w11873 t63932; struct w36270 t63933; struct w49 t63934; struct structure_type24753 *t63935; struct w49 t63936; struct w49 t63937; struct p10497 *t63938; struct w49 t63939; struct w211257 t63940; struct structure_type24753 *t63941; struct structure_type27650 *t63942; struct structure_type27745 *t63943; struct w49 t63944; struct w49 t63945; struct w11873 t63946; struct w36270 t63947; struct w49 t63948; struct structure_type24753 *t63949; struct w49 t63950; struct w49 t63951; struct w49 t63952; struct w49 t63953; struct w49 t63954; struct w49 t63955; struct w49 t63956; struct w49 t63957; struct w49 t63958; struct w49 t63959; struct w49 t63960; struct w11873 t63961; struct w36108 t63962; struct w49 t63963; struct structure_type24753 *t63964; struct w49 t63965; struct w49 t63966; struct w49 t63967; struct p10532 *t63968; struct w49 t63969; struct w211257 t63970; struct structure_type24753 *t63971; struct structure_type27650 *t63972; struct structure_type27745 *t63973; struct w49 t63974; struct w49 t63975; struct structure_type27745 *t63976; struct w11873 t63977; struct w36270 t63978; struct w49 t63979; struct structure_type24753 *t63980; struct w49 t63981; struct w49 t63982; struct w49 t63983; struct w49 t63984; struct w49 t63985; struct w49 t63986; struct w49 t63987; struct w49 t63988; struct structure_type27745 *t63989; struct w49 t63990; struct structure_type24753 *t63991; struct structure_type27650 *t63992; struct structure_type27745 *t63993; struct w49 t63994; struct w49 t63995; struct w49 t63996; struct w49 t63997; struct w49 t63998; struct w49 t63999; struct w49 t64000; struct w11873 t64001; struct w36270 t64002; struct w49 t64003; struct structure_type24753 *t64004; struct w49 t64005; struct w49 t64006; struct p10497 *t64007; struct w49 t64008; struct w211257 t64009; struct structure_type24753 *t64010; struct structure_type27650 *t64011; struct structure_type27745 *t64012; struct w49 t64013; struct w49 t64014; struct w11873 t64015; struct w36270 t64016; struct w49 t64017; struct structure_type24753 *t64018; struct w49 t64019; struct w49 t64020; struct w49 t64021; struct w49 t64022; struct w49 t64023; struct w49 t64024; struct w49 t64025; struct w49 t64026; struct w49 t64027; struct w49 t64028; struct w49 t64029; struct w11873 t64030; struct w36108 t64031; struct w49 t64032; struct structure_type24753 *t64033; struct w49 t64034; struct w49 t64035; struct w49 t64036; struct w49 t64037; struct w49 t64038; struct w49 t64039; struct w49 t64040; struct w49 t64041; struct w12224 t64042; struct w49 t64043; struct w49 t64044; struct w49 t64045; struct w49 t64046; struct w49 t64047; struct w49 t64048; struct w49 t64049; struct w49 t64050; struct w49 t64051; struct structure_type24753 *t64052; struct w49 t64053; struct w49 t64054; struct w49 t64055; struct w49 t64056; struct w49 t64057; struct w49 t64058; struct w49 t64059; struct w49 t64060; struct w49 t64061; struct w49 t64062; struct w49 t64063; struct w49 t64064; struct w49 t64065; struct w3467 t64066; struct w49 t64067; struct w49 t64068; struct w49 t64069; struct w49 t64070; struct w49 t64071; struct w49 t64072; struct w49 t64073; struct w49 t64074; struct w49 t64075; struct w49 t64076; struct w49 t64077; struct structure_type27750 *t64078; unsigned t64079; int t64080; struct structure_type27750 *t64081; struct w21193 t64082; struct w49 t64083; struct w49 t64084; struct w49 t64085; struct w49 t64086; unsigned t64087; int t64088; char *t64089; int t64090; struct w49 t64091; struct w49 t64092; struct w49 t64093; struct w49 t64094; unsigned t64095; int t64096; char *t64097; int t64098; char *t64099; struct w21193 t64100; struct w227506 t64101; struct w49 t64102; char *t64103; struct w49 t64104; struct w49 t64105; struct w49 t64106; struct w49 t64107; struct w49 t64108; struct w49 t64109; struct w49 t64110; struct w49 t64111; struct w49 t64112; struct w49 t64113; int t64114; int t64115; struct w49 t64116; struct w49 t64117; struct w49 t64118; struct w49 t64119; struct w49 t64120; struct w49 t64121; struct w49 t64122; struct w49 t64123; struct w49 t64124; struct w3467 t64125; struct w49 t64126; struct w49 t64127; struct w49 t64128; struct w49 t64129; struct w49 t64130; struct w49 t64131; struct w49 t64132; struct structure_type27753 *t64133; unsigned t64134; int t64135; struct structure_type27753 *t64136; struct w21193 t64137; struct w49 t64138; struct w49 t64139; unsigned t64140; int t64141; char *t64142; int t64143; struct w49 t64144; struct w49 t64145; unsigned t64146; int t64147; char *t64148; int t64149; char *t64150; struct w21193 t64151; struct w227506 t64152; struct w49 t64153; char *t64154; struct w49 t64155; struct w49 t64156; struct w49 t64157; struct w49 t64158; struct w49 t64159; struct w49 t64160; struct w49 t64161; struct w49 t64162; struct w49 t64163; struct w49 t64164; struct w49 t64165; struct w49 t64166; struct w49 t64167; struct w49 t64168; struct w49 t64169; struct w49 t64170; struct w49 t64171; struct w49 t64172; struct w49 t64173; struct w49 t64174; struct w49 t64175; struct w49 t64176; struct w49 t64177; struct w211235 t64178; struct w49 t64179; struct w49 t64180; struct w49 t64181; struct w49 t64182; struct w49 t64183; struct w49 t64184; struct w49 t64185; struct w49 t64186; struct w49 t64187; struct w49 t64188; struct w49 t64189; struct w49 t64190; struct w49 t64191; struct w49 t64192; struct w211257 t64193; struct w49 t64194; struct w49 t64195; struct w49 t64196; struct w49 t64197; struct w49 t64198; struct w49 t64199; struct w49 t64200; struct w49 t64201; struct w49 t64202; struct w49 t64203; struct w49 t64204; struct w49 t64205; struct w49 t64206; struct w49 t64207; struct w49 t64208; struct w49 t64209; struct w49 t64210; struct w49 t64211; struct w49 t64212; struct w49 t64213; struct w49 t64214; struct w49 t64215; struct w49 t64216; struct w49 t64217; struct w49 t64218; struct w49 t64219; struct w49 t64220; struct w49 t64221; struct w49 t64222; struct w49 t64223; struct w49 t64224; struct w49 t64225; struct w49 t64226; struct w49 t64227; struct w49 t64228; struct w49 t64229; struct w49 t64230; struct w49 t64231; struct w49 t64232; struct w49 t64233; struct w49 t64234; struct w49 t64235; struct w49 t64236; struct w49 t64237; struct w49 t64238; struct w49 t64239; struct w49 t64240; struct w49 t64241; struct w49 t64242; struct w49 t64243; struct w49 t64244; struct w3467 t64245; struct w49 t64246; struct w49 t64247; struct w9140 t64248; struct w49 t64249; struct w49 t64250; struct w49 t64251; struct structure_type27756 *t64252; struct structure_type27756 *t64253; struct w49 t64254; unsigned t64255; struct structure_type27756 *t64256; struct w49 t64257; unsigned t64258; unsigned t64259; int t64260; struct structure_type27756 *t64261; struct w21193 t64262; struct w49 t64263; unsigned t64264; int t64265; char *t64266; int t64267; struct w49 t64268; unsigned t64269; int t64270; char *t64271; int t64272; char *t64273; struct w49 t64274; struct w49 t64275; struct w49 t64276; char *t64277; struct w21193 t64278; struct w227506 t64279; struct w49 t64280; struct w9140 t64281; struct w49 t64282; char *t64283; struct w49 t64284; struct w49 t64285; struct w49 t64286; struct w49 t64287; struct w49 t64288; struct w49 t64289; struct w49 t64290; struct w49 t64291; unsigned t64292; struct w49 t64293; struct w49 t64294; struct w49 t64295; struct w3467 t64296; struct w49 t64297; struct w49 t64298; struct w49 t64299; struct w49 t64300; struct headed_vector_type27896 *t64301; unsigned t64302; unsigned t64303; struct w49 t64304; unsigned t64305; struct w49 t64306; struct w49 t64307; struct w49 t64308; struct w49 t64309; struct w49 t64310; struct w49 t64311; struct w49 t64312; struct w49 t64313; struct w49 t64314; struct w49 t64315; struct w49 t64316; struct w49 t64317; struct w49 t64318; struct w49 t64319; struct w49 t64320; struct w3467 t64321; struct w49 t64322; struct w49 t64323; struct structure_type24753 *t64324; struct structure_type24753 *t64325; struct w49 t64326; struct w49 t64327; struct w49 t64328; struct w49 t64329; struct w49 t64330; struct w49 t64331; struct w49 t64332; struct w49 t64333; struct w49 t64334; struct w49 t64335; struct w49 t64336; struct w49 t64337; struct w49 t64338; struct w49 t64339; struct w49 t64340; struct w49 t64341; struct w3467 t64342; struct w49 t64343; struct w49 t64344; struct w49 t64345; struct w49 t64346; struct w49 t64347; struct structure_type27776 *t64348; unsigned t64349; int t64350; struct structure_type27776 *t64351; struct w21193 t64352; struct w49 t64353; unsigned t64354; int t64355; char *t64356; int t64357; struct w49 t64358; unsigned t64359; int t64360; char *t64361; int t64362; char *t64363; struct p7704 *t64364; struct w21193 t64365; struct w227506 t64366; struct w49 t64367; struct w49 t64368; char *t64369; struct w49 t64370; struct w49 t64371; struct w49 t64372; struct structure_type27779 *t64373; struct w49 t64374; struct w49 t64375; struct w49 t64376; struct w49 t64377; struct w49 t64378; struct w49 t64379; struct w49 t64380; struct w49 t64381; char *t64382; struct w49 t64383; struct w49 t64384; struct w49 t64385; struct w49 t64386; struct w49 t64387; char *t64388; struct w49 t64389; struct w49 t64390; struct w49 t64391; struct w49 t64392; struct w49 t64393; char *t64394; struct w49 t64395; struct w49 t64396; struct w49 t64397; struct w49 t64398; struct w49 t64399; char *t64400; struct w49 t64401; struct w49 t64402; struct w49 t64403; struct w49 t64404; struct w49 t64405; char *t64406; struct w49 t64407; struct w49 t64408; struct w49 t64409; struct w49 t64410; struct w49 t64411; char *t64412; struct w49 t64413; struct w49 t64414; struct w49 t64415; struct w49 t64416; struct w49 t64417; char *t64418; struct w49 t64419; struct w49 t64420; struct w49 t64421; struct w49 t64422; struct w49 t64423; struct w49 t64424; struct w49 t64425; struct w49 t64426; /* x98954 stalin.sc:9424:324524 */ /* x98953 */ /* x98952 */ /* x98951 */ /* x98950 */ /* x98949 */ /* x98948 */ /* x98947 */ /* x98914 */ /* x98913 stalin.sc:9424:324529 */ h10880: /* x98946 stalin.sc:9425:324539 */ /* x98915 stalin.sc:9425:324545 */ if ((a2025.tag)==FALSE_TYPE) goto l10321; /* x98943 */ /* x98942 */ /* x98941 stalin.sc:9426:324553 */ /* x98940 stalin.sc:9426:324562 */ t63799 = a2025; /* x98939 */ a23573 = t63799; /* x98938 */ /* x98930 stalin.sc:9427:324573 */ /* x98929 stalin.sc:9427:324584 */ /* x98924 stalin.sc:9427:324588 */ /* x98922 stalin.sc:9427:324593 */ /* x98921 stalin.sc:9427:324610 */ t63801 = a23573; /* x98920 stalin.sc:9427:324594 */ a40122 = t63801; /* x293157 */ /* x293156 */ t63802 = a40122; /* x293155 */ if (!((t63802.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LINK[5551] 35039]"); structure_ref_error();} t63800 = t63802.value.structure_type27698->s8; /* x98923 stalin.sc:9427:324613 */ /* x269680 stalin.sc:9427:324589 */ if (!((t63800.tag)==TRUE_TYPE)) goto l10323; /* x98925 stalin.sc:9427:324617 */ a2025.tag = FALSE_TYPE; goto l10324; l10323: /* x98928 stalin.sc:9427:324620 */ /* x98927 stalin.sc:9427:324637 */ t63803 = a23573; /* x98926 stalin.sc:9427:324621 */ a19068 = t63803; /* x49953 */ /* x49952 */ t63804 = a19068; /* x49951 */ if (!((t63804.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-LINK[5551]"); structure_ref_error();} a2025 = t63804.value.structure_type27698->s8; l10324: /* x98934 stalin.sc:9428:324646 */ /* x98932 stalin.sc:9428:324668 */ t63805 = a23573; /* x98933 stalin.sc:9428:324670 */ /* x98931 stalin.sc:9428:324647 */ t63806.tag = FALSE_TYPE; f5552(t63805, t63806); /* x98937 stalin.sc:9429:324678 */ /* x98936 stalin.sc:9429:324686 */ t63807 = a23573; /* x98935 stalin.sc:9429:324679 */ a23507 = t63807; /* x98889 stalin.sc:9214:316093 */ /* x97883 stalin.sc:9214:316099 */ /* x97882 stalin.sc:9214:316120 */ t63808 = a23507; /* x97881 stalin.sc:9214:316100 */ if (f6926(t63808)==FALSE_TYPE) goto l10326; /* x98886 */ /* x98885 */ /* x98884 */ /* x98883 stalin.sc:9215:316125 */ /* x98882 stalin.sc:9215:316134 */ /* x98881 stalin.sc:9215:316155 */ t64425 = a23507; /* x98880 stalin.sc:9215:316135 */ a40002 = t64425; /* x292677 */ /* x292676 */ t64426 = a40002; /* x292675 */ if (!((t64426.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34919]"); structure_ref_error();} t63811 = t64426.value.structure_type27698->s10; /* x98879 */ a23509 = t63811; /* x98878 */ /* x98877 stalin.sc:9216:316163 */ /* x98875 stalin.sc:9216:316184 */ t64424 = a23509; /* x98876 stalin.sc:9216:316186 */ /* x98874 stalin.sc:9216:316164 */ f8118(t64424); /* x98873 */ /* x98872 stalin.sc:9217:316193 */ /* x98871 stalin.sc:9217:316199 */ /* x98870 stalin.sc:9217:316216 */ t64422 = a23507; /* x98869 stalin.sc:9217:316200 */ a40330 = t64422; /* x293989 */ /* x293988 */ t64423 = a40330; /* x293987 */ if (!((t64423.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35247]"); structure_ref_error();} t63812 = t64423.value.structure_type27698->s0; /* x98868 */ a23511 = t63812; /* x98867 */ /* x97892 */ /* x97890 */ t63813 = a23511; /* x97891 */ t63814 = q68; /* x97889 */ t63815.tag = EXTERNAL_SYMBOL_TYPE; t63815.value.external_symbol_type = t63813; t63816.tag = EXTERNAL_SYMBOL_TYPE; t63816.value.external_symbol_type = t63814; if (f26160(t63815, t63816)==FALSE_TYPE) goto l10329; /* x97914 */ /* x97913 */ /* x97912 stalin.sc:9219:316245 */ /* x97895 stalin.sc:9219:316253 */ /* x97894 stalin.sc:9219:316275 */ t64416 = a23507; /* x97893 stalin.sc:9219:316254 */ if (f6931(t64416)==FALSE_TYPE) goto l10521; /* x97897 */ /* x97896 */ goto l10522; l10521: /* x97911 */ /* x97910 */ /* x97909 */ /* x97905 stalin.sc:9220:316284 */ /* x97903 stalin.sc:9220:316300 */ t64418 = a1981; /* x97904 stalin.sc:9220:316307 */ t64419 = a23509; /* x97902 stalin.sc:9220:316285 */ /* MOVE: branching squeezed to general */ if (t64418>=((char *)VALUE_OFFSET)) {t64420.tag = EXTERNAL_SYMBOL_TYPE; t64420.value.external_symbol_type = t64418;} else t64420.tag = (unsigned)t64418; f10604(t64420, t64419); /* x97908 stalin.sc:9221:316316 */ /* x97907 stalin.sc:9221:316335 */ t64421 = a23507; /* x97906 stalin.sc:9221:316317 */ f10619(t64421); /* x97901 */ /* x97900 stalin.sc:9222:316344 */ /* x97899 stalin.sc:9222:316361 */ t64417 = a23507; /* x97898 stalin.sc:9222:316345 */ f10623(t64417); l10522: goto l10330; l10329: /* x98866 */ /* x97918 */ /* x97916 */ t63817 = a23511; /* x97917 */ t63818 = q69; /* x97915 */ t63819.tag = EXTERNAL_SYMBOL_TYPE; t63819.value.external_symbol_type = t63817; t63820.tag = EXTERNAL_SYMBOL_TYPE; t63820.value.external_symbol_type = t63818; if (f26160(t63819, t63820)==FALSE_TYPE) goto l10332; /* x97940 */ /* x97939 */ /* x97938 stalin.sc:9224:316392 */ /* x97921 stalin.sc:9224:316400 */ /* x97920 stalin.sc:9224:316422 */ t64410 = a23507; /* x97919 stalin.sc:9224:316401 */ if (f6931(t64410)==FALSE_TYPE) goto l10518; /* x97923 */ /* x97922 */ goto l10519; l10518: /* x97937 */ /* x97936 */ /* x97935 */ /* x97931 stalin.sc:9225:316431 */ /* x97929 stalin.sc:9225:316447 */ t64412 = a1978; /* x97930 stalin.sc:9225:316454 */ t64413 = a23509; /* x97928 stalin.sc:9225:316432 */ /* MOVE: branching squeezed to general */ if (t64412>=((char *)VALUE_OFFSET)) {t64414.tag = EXTERNAL_SYMBOL_TYPE; t64414.value.external_symbol_type = t64412;} else t64414.tag = (unsigned)t64412; f10604(t64414, t64413); /* x97934 stalin.sc:9226:316463 */ /* x97933 stalin.sc:9226:316482 */ t64415 = a23507; /* x97932 stalin.sc:9226:316464 */ f10619(t64415); /* x97927 */ /* x97926 stalin.sc:9227:316491 */ /* x97925 stalin.sc:9227:316508 */ t64411 = a23507; /* x97924 stalin.sc:9227:316492 */ f10623(t64411); l10519: goto l10333; l10332: /* x98865 */ /* x97944 */ /* x97942 */ t63821 = a23511; /* x97943 */ t63822 = q70; /* x97941 */ t63823.tag = EXTERNAL_SYMBOL_TYPE; t63823.value.external_symbol_type = t63821; t63824.tag = EXTERNAL_SYMBOL_TYPE; t63824.value.external_symbol_type = t63822; if (f26160(t63823, t63824)==FALSE_TYPE) goto l10335; /* x97966 */ /* x97965 */ /* x97964 stalin.sc:9229:316540 */ /* x97947 stalin.sc:9229:316548 */ /* x97946 stalin.sc:9229:316570 */ t64404 = a23507; /* x97945 stalin.sc:9229:316549 */ if (f6931(t64404)==FALSE_TYPE) goto l10515; /* x97949 */ /* x97948 */ goto l10516; l10515: /* x97963 */ /* x97962 */ /* x97961 */ /* x97957 stalin.sc:9230:316579 */ /* x97955 stalin.sc:9230:316595 */ t64406 = a1975; /* x97956 stalin.sc:9230:316603 */ t64407 = a23509; /* x97954 stalin.sc:9230:316580 */ /* MOVE: branching squeezed to general */ if (t64406>=((char *)VALUE_OFFSET)) {t64408.tag = EXTERNAL_SYMBOL_TYPE; t64408.value.external_symbol_type = t64406;} else t64408.tag = (unsigned)t64406; f10604(t64408, t64407); /* x97960 stalin.sc:9231:316612 */ /* x97959 stalin.sc:9231:316631 */ t64409 = a23507; /* x97958 stalin.sc:9231:316613 */ f10619(t64409); /* x97953 */ /* x97952 stalin.sc:9232:316640 */ /* x97951 stalin.sc:9232:316657 */ t64405 = a23507; /* x97950 stalin.sc:9232:316641 */ f10623(t64405); l10516: goto l10336; l10335: /* x98864 */ /* x97970 */ /* x97968 */ t63825 = a23511; /* x97969 */ t63826 = q71; /* x97967 */ t63827.tag = EXTERNAL_SYMBOL_TYPE; t63827.value.external_symbol_type = t63825; t63828.tag = EXTERNAL_SYMBOL_TYPE; t63828.value.external_symbol_type = t63826; if (f26160(t63827, t63828)==FALSE_TYPE) goto l10338; /* x97992 */ /* x97991 */ /* x97990 stalin.sc:9234:316688 */ /* x97973 stalin.sc:9234:316696 */ /* x97972 stalin.sc:9234:316718 */ t64398 = a23507; /* x97971 stalin.sc:9234:316697 */ if (f6931(t64398)==FALSE_TYPE) goto l10512; /* x97975 */ /* x97974 */ goto l10513; l10512: /* x97989 */ /* x97988 */ /* x97987 */ /* x97983 stalin.sc:9235:316727 */ /* x97981 stalin.sc:9235:316743 */ t64400 = a1972; /* x97982 stalin.sc:9235:316750 */ t64401 = a23509; /* x97980 stalin.sc:9235:316728 */ /* MOVE: branching squeezed to general */ if (t64400>=((char *)VALUE_OFFSET)) {t64402.tag = EXTERNAL_SYMBOL_TYPE; t64402.value.external_symbol_type = t64400;} else t64402.tag = (unsigned)t64400; f10604(t64402, t64401); /* x97986 stalin.sc:9236:316759 */ /* x97985 stalin.sc:9236:316778 */ t64403 = a23507; /* x97984 stalin.sc:9236:316760 */ f10619(t64403); /* x97979 */ /* x97978 stalin.sc:9237:316787 */ /* x97977 stalin.sc:9237:316804 */ t64399 = a23507; /* x97976 stalin.sc:9237:316788 */ f10623(t64399); l10513: goto l10339; l10338: /* x98863 */ /* x97996 */ /* x97994 */ t63829 = a23511; /* x97995 */ t63830 = q72; /* x97993 */ t63831.tag = EXTERNAL_SYMBOL_TYPE; t63831.value.external_symbol_type = t63829; t63832.tag = EXTERNAL_SYMBOL_TYPE; t63832.value.external_symbol_type = t63830; if (f26160(t63831, t63832)==FALSE_TYPE) goto l10341; /* x98018 */ /* x98017 */ /* x98016 stalin.sc:9239:316837 */ /* x97999 stalin.sc:9239:316845 */ /* x97998 stalin.sc:9239:316867 */ t64392 = a23507; /* x97997 stalin.sc:9239:316846 */ if (f6931(t64392)==FALSE_TYPE) goto l10509; /* x98001 */ /* x98000 */ goto l10510; l10509: /* x98015 */ /* x98014 */ /* x98013 */ /* x98009 stalin.sc:9240:316876 */ /* x98007 stalin.sc:9240:316892 */ t64394 = a1969; /* x98008 stalin.sc:9240:316901 */ t64395 = a23509; /* x98006 stalin.sc:9240:316877 */ /* MOVE: branching squeezed to general */ if (t64394>=((char *)VALUE_OFFSET)) {t64396.tag = EXTERNAL_SYMBOL_TYPE; t64396.value.external_symbol_type = t64394;} else t64396.tag = (unsigned)t64394; f10604(t64396, t64395); /* x98012 stalin.sc:9241:316910 */ /* x98011 stalin.sc:9241:316929 */ t64397 = a23507; /* x98010 stalin.sc:9241:316911 */ f10619(t64397); /* x98005 */ /* x98004 stalin.sc:9242:316938 */ /* x98003 stalin.sc:9242:316955 */ t64393 = a23507; /* x98002 stalin.sc:9242:316939 */ f10623(t64393); l10510: goto l10342; l10341: /* x98862 */ /* x98022 */ /* x98020 */ t63833 = a23511; /* x98021 */ t63834 = q73; /* x98019 */ t63835.tag = EXTERNAL_SYMBOL_TYPE; t63835.value.external_symbol_type = t63833; t63836.tag = EXTERNAL_SYMBOL_TYPE; t63836.value.external_symbol_type = t63834; if (f26160(t63835, t63836)==FALSE_TYPE) goto l10344; /* x98044 */ /* x98043 */ /* x98042 stalin.sc:9244:316988 */ /* x98025 stalin.sc:9244:316996 */ /* x98024 stalin.sc:9244:317018 */ t64386 = a23507; /* x98023 stalin.sc:9244:316997 */ if (f6931(t64386)==FALSE_TYPE) goto l10506; /* x98027 */ /* x98026 */ goto l10507; l10506: /* x98041 */ /* x98040 */ /* x98039 */ /* x98035 stalin.sc:9245:317027 */ /* x98033 stalin.sc:9245:317043 */ t64388 = a1966; /* x98034 stalin.sc:9245:317052 */ t64389 = a23509; /* x98032 stalin.sc:9245:317028 */ /* MOVE: branching squeezed to general */ if (t64388>=((char *)VALUE_OFFSET)) {t64390.tag = EXTERNAL_SYMBOL_TYPE; t64390.value.external_symbol_type = t64388;} else t64390.tag = (unsigned)t64388; f10604(t64390, t64389); /* x98038 stalin.sc:9246:317061 */ /* x98037 stalin.sc:9246:317080 */ t64391 = a23507; /* x98036 stalin.sc:9246:317062 */ f10619(t64391); /* x98031 */ /* x98030 stalin.sc:9247:317089 */ /* x98029 stalin.sc:9247:317106 */ t64387 = a23507; /* x98028 stalin.sc:9247:317090 */ f10623(t64387); l10507: goto l10345; l10344: /* x98861 */ /* x98048 */ /* x98046 */ t63837 = a23511; /* x98047 */ t63838 = q74; /* x98045 */ t63839.tag = EXTERNAL_SYMBOL_TYPE; t63839.value.external_symbol_type = t63837; t63840.tag = EXTERNAL_SYMBOL_TYPE; t63840.value.external_symbol_type = t63838; if (f26160(t63839, t63840)==FALSE_TYPE) goto l10347; /* x98070 */ /* x98069 */ /* x98068 stalin.sc:9249:317144 */ /* x98051 stalin.sc:9249:317152 */ /* x98050 stalin.sc:9249:317174 */ t64380 = a23507; /* x98049 stalin.sc:9249:317153 */ if (f6931(t64380)==FALSE_TYPE) goto l10503; /* x98053 */ /* x98052 */ goto l10504; l10503: /* x98067 */ /* x98066 */ /* x98065 */ /* x98061 stalin.sc:9250:317183 */ /* x98059 stalin.sc:9250:317199 */ t64382 = a1963; /* x98060 stalin.sc:9250:317213 */ t64383 = a23509; /* x98058 stalin.sc:9250:317184 */ /* MOVE: branching squeezed to general */ if (t64382>=((char *)VALUE_OFFSET)) {t64384.tag = EXTERNAL_SYMBOL_TYPE; t64384.value.external_symbol_type = t64382;} else t64384.tag = (unsigned)t64382; f10604(t64384, t64383); /* x98064 stalin.sc:9251:317222 */ /* x98063 stalin.sc:9251:317241 */ t64385 = a23507; /* x98062 stalin.sc:9251:317223 */ f10619(t64385); /* x98057 */ /* x98056 stalin.sc:9252:317250 */ /* x98055 stalin.sc:9252:317267 */ t64381 = a23507; /* x98054 stalin.sc:9252:317251 */ f10623(t64381); l10504: goto l10348; l10347: /* x98860 */ /* x98074 */ /* x98072 */ t63841 = a23511; /* x98073 */ t63842 = q75; /* x98071 */ t63843.tag = EXTERNAL_SYMBOL_TYPE; t63843.value.external_symbol_type = t63841; t63844.tag = EXTERNAL_SYMBOL_TYPE; t63844.value.external_symbol_type = t63842; if (f26160(t63843, t63844)==FALSE_TYPE) goto l10350; /* x98096 */ /* x98095 */ /* x98094 stalin.sc:9254:317300 */ /* x98077 stalin.sc:9254:317308 */ /* x98076 stalin.sc:9254:317330 */ t64375 = a23507; /* x98075 stalin.sc:9254:317309 */ if (f6931(t64375)==FALSE_TYPE) goto l10500; /* x98079 */ /* x98078 */ goto l10501; l10500: /* x98093 */ /* x98092 */ /* x98091 */ /* x98087 stalin.sc:9255:317339 */ /* x98085 stalin.sc:9255:317355 */ t64377 = a1941; /* x98086 stalin.sc:9255:317379 */ t64378 = a23509; /* x98084 stalin.sc:9255:317340 */ f10604(t64377, t64378); /* x98090 stalin.sc:9256:317388 */ /* x98089 stalin.sc:9256:317407 */ t64379 = a23507; /* x98088 stalin.sc:9256:317389 */ f10619(t64379); /* x98083 */ /* x98082 stalin.sc:9257:317416 */ /* x98081 stalin.sc:9257:317433 */ t64376 = a23507; /* x98080 stalin.sc:9257:317417 */ f10623(t64376); l10501: goto l10351; l10350: /* x98859 */ /* x98100 */ /* x98098 */ t63845 = a23511; /* x98099 */ t63846 = q76; /* x98097 */ t63847.tag = EXTERNAL_SYMBOL_TYPE; t63847.value.external_symbol_type = t63845; t63848.tag = EXTERNAL_SYMBOL_TYPE; t63848.value.external_symbol_type = t63846; if (f26160(t63847, t63848)==FALSE_TYPE) goto l10353; /* x98131 */ /* x98130 */ /* x98129 stalin.sc:9259:317466 */ /* x98103 stalin.sc:9259:317474 */ /* x98102 stalin.sc:9259:317496 */ t64340 = a23507; /* x98101 stalin.sc:9259:317475 */ if (f6931(t64340)==FALSE_TYPE) goto l10485; /* x98105 */ /* x98104 */ goto l10486; l10485: /* x98128 */ /* x98127 */ /* x98126 */ /* x98122 stalin.sc:9260:317505 */ /* x98120 stalin.sc:9260:317521 */ /* x98111 stalin.sc:9260:317525 */ if (a726==FALSE_TYPE) goto l10488; /* x98114 stalin.sc:9261:317563 */ /* x98113 stalin.sc:9261:317582 */ t64372 = a1941; /* x98112 stalin.sc:9261:317564 */ t64373 = f7054(t64372); t64342.tag = STRUCTURE_TYPE27779; t64342.value.structure_type27779 = t64373; goto l10489; l10488: /* x98119 stalin.sc:9262:317612 */ /* x98118 stalin.sc:9262:317631 */ /* x98117 stalin.sc:9262:317652 */ t64370 = a23507; /* x98116 stalin.sc:9262:317632 */ a19108 = t64370; /* x50109 */ /* x50108 */ t64371 = a19108; /* x50107 */ if (!((t64371.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-CONSTANT[5583]"); structure_ref_error();} t64345 = t64371.value.structure_type27698->s12; /* x98115 stalin.sc:9262:317613 */ a20988 = t64345; /* x59593 */ /* x59592 stalin.sc:1020:32798 */ /* x59585 stalin.sc:1020:32804 */ if (a2040==FALSE_TYPE) goto l10497; /* x59589 */ /* x59588 */ /* x59587 stalin.sc:1020:32820 */ /* x59586 stalin.sc:1020:32821 */ /* x295053 QobiScheme.sc:166:5314 */ /* x295052 QobiScheme.sc:166:5321 */ t64369 = "This shouldn\'t happen"; /* x295051 QobiScheme.sc:166:5315 */ stalin_panic(t64369); goto l10498; l10497: /* x59591 stalin.sc:1020:32798 */ /* x59590 stalin.sc:1020:32798 */ l10498: /* x59584 */ /* x59583 stalin.sc:1021:32832 */ /* x59582 stalin.sc:1021:32836 */ /* x59580 stalin.sc:1021:32845 */ /* x59579 stalin.sc:1021:32874 */ t64368 = a20988; /* x59578 stalin.sc:1021:32846 */ t64364 = f7704(t64368); /* x59581 stalin.sc:1021:32877 */ t64365 = a1948; /* x59577 stalin.sc:1021:32837 */ t64366.tag = NATIVE_PROCEDURE_TYPE18572; t64366.value.native_procedure_type18572 = t64364; t64367 = *((struct w49 *)(&t64365)); t64346 = f1314(t64366, t64367); /* x59576 */ a20990 = t64346; /* x59575 */ /* x59570 */ if ((a20990.tag)==FALSE_TYPE) goto l10491; /* x59571 */ t64342 = *((struct w3467 *)(&a20990)); goto l10492; l10491: /* x59574 */ /* x59573 stalin.sc:1022:32936 */ t64347 = a20988; /* x59572 stalin.sc:1022:32908 */ a20983 = t64347; /* x59567 */ /* x59566 stalin.sc:1012:32548 */ /* x59559 stalin.sc:1012:32554 */ if (a2040==FALSE_TYPE) goto l10494; /* x59563 */ /* x59562 */ /* x59561 stalin.sc:1012:32570 */ /* x59560 stalin.sc:1012:32571 */ /* x295049 QobiScheme.sc:166:5314 */ /* x295048 QobiScheme.sc:166:5321 */ t64363 = "This shouldn\'t happen"; /* x295047 QobiScheme.sc:166:5315 */ stalin_panic(t64363); goto l10495; l10494: /* x59565 stalin.sc:1012:32548 */ /* x59564 stalin.sc:1012:32548 */ l10495: /* x59558 */ /* x59557 stalin.sc:1013:32582 */ /* x59556 stalin.sc:1013:32592 */ /* x59550 stalin.sc:1013:32619 */ t64353 = a20983; /* x59551 stalin.sc:1013:32624 */ t64354 = a1982; /* x59552 stalin.sc:1013:32629 */ t64355 = 0; /* x59554 stalin.sc:1013:32631 */ /* x59553 stalin.sc:1013:32632 */ /* x277111 stalin.sc:323:8604 */ t64356 = q35; /* x59555 stalin.sc:1013:32645 */ t64357 = 0; /* x59549 stalin.sc:1013:32593 */ a19386 = t64353; a19387 = t64354; a19388 = t64355; a19389 = t64356; a19390 = t64357; /* x51182 */ /* x51177 */ t64358 = a19386; /* x51178 */ t64359 = a19387; /* x51179 */ t64360 = a19388; /* x51180 */ t64361 = a19389; /* x51181 */ t64362 = a19390; /* x51176 */ t64348 = (struct structure_type27776 *)GC_malloc(sizeof(struct structure_type27776)); if (t64348==NULL) {backtrace_internal("MAKE-INTERNAL-SYMBOL-TYPE[5801]"); out_of_memory_error();} t64348->s0 = t64358; t64348->s1 = t64359; t64348->s2 = t64360; t64348->s3.tag = EXTERNAL_SYMBOL_TYPE; t64348->s3.value.external_symbol_type = t64361; t64348->s4 = t64362; /* x59548 */ a20985 = t64348; /* x59547 */ /* x59546 */ /* x59545 */ /* x59539 stalin.sc:1014:32652 */ /* x59538 stalin.sc:1014:32663 */ /* x59536 stalin.sc:1014:32666 */ t64349 = a1982; /* x59537 stalin.sc:1014:32671 */ t64350 = 1; /* x270705 stalin.sc:1014:32664 */ if (!((t64349&1)==1)) {backtrace("stalin.sc", 1014, 32663); plus_error();} a1982 = (((unsigned)(((int)(((int)t64349)>>1))+t64350))<<1)+1; /* x59544 stalin.sc:1015:32677 */ /* x59543 stalin.sc:1015:32707 */ /* x59541 stalin.sc:1015:32713 */ t64351 = a20985; /* x59542 stalin.sc:1015:32715 */ t64352 = a1948; /* x270704 stalin.sc:1015:32708 */ a1948.tag = STRUCTURE_TYPE24753; a1948.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a1948.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1015, 32707); out_of_memory_error();} a1948.value.structure_type24753->s0.tag = STRUCTURE_TYPE27776; a1948.value.structure_type24753->s0.value.structure_type27776 = t64351; a1948.value.structure_type24753->s1 = *((struct w49 *)(&t64352)); /* x59534 */ /* x59533 stalin.sc:1016:32743 */ t64342.tag = STRUCTURE_TYPE27776; t64342.value.structure_type27776 = a20985; l10492: l10489: /* x98121 stalin.sc:9263:317665 */ t64343 = a23509; /* x98110 stalin.sc:9260:317506 */ t64344 = *((struct w49 *)(&t64342)); f10604(t64344, t64343); /* x98125 stalin.sc:9264:317674 */ /* x98124 stalin.sc:9264:317693 */ t64374 = a23507; /* x98123 stalin.sc:9264:317675 */ f10619(t64374); /* x98109 */ /* x98108 stalin.sc:9265:317702 */ /* x98107 stalin.sc:9265:317719 */ t64341 = a23507; /* x98106 stalin.sc:9265:317703 */ f10623(t64341); l10486: goto l10354; l10353: /* x98858 */ /* x98135 */ /* x98133 */ t63849 = a23511; /* x98134 */ t63850 = q50; /* x98132 */ t63851.tag = EXTERNAL_SYMBOL_TYPE; t63851.value.external_symbol_type = t63849; t63852.tag = EXTERNAL_SYMBOL_TYPE; t63852.value.external_symbol_type = t63850; if (f26160(t63851, t63852)==FALSE_TYPE) goto l10356; /* x98203 */ /* x98202 */ /* x98201 */ /* x98176 stalin.sc:9267:317750 */ /* x98155 stalin.sc:9267:317758 */ /* x98154 stalin.sc:9267:317780 */ t64312 = a23507; /* x98153 stalin.sc:9267:317759 */ if (f6931(t64312)==FALSE_TYPE) goto l10482; /* x98157 */ /* x98156 */ goto l10483; l10482: /* x98175 */ /* x98174 */ /* x98173 */ /* x98172 stalin.sc:9268:317789 */ /* x98171 stalin.sc:9268:317817 */ /* x98170 stalin.sc:9268:317822 */ /* x98169 stalin.sc:9268:317843 */ t64319 = a23507; /* x98168 stalin.sc:9268:317823 */ a39518 = t64319; /* x290741 */ /* x290740 */ t64320 = a39518; /* x290739 */ if (!((t64320.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34435]"); structure_ref_error();} t64318 = t64320.value.structure_type27698->s12; /* x269685 stalin.sc:9268:317818 */ if (!((t64318.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 9268, 317817); structure_ref_error();} t64317 = t64318.value.structure_type24753->s0; /* x98166 stalin.sc:9268:317790 */ f10634(t64317); /* x98165 */ /* x98164 stalin.sc:9269:317854 */ /* x98163 stalin.sc:9269:317882 */ /* x98162 stalin.sc:9269:317887 */ /* x98161 stalin.sc:9269:317908 */ t64315 = a23507; /* x98160 stalin.sc:9269:317888 */ a39517 = t64315; /* x290737 */ /* x290736 */ t64316 = a39517; /* x290735 */ if (!((t64316.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34434]"); structure_ref_error();} t64314 = t64316.value.structure_type27698->s12; /* x269686 stalin.sc:9269:317883 */ if (!((t64314.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 9269, 317882); structure_ref_error();} t64313 = t64314.value.structure_type24753->s1; /* x98158 stalin.sc:9269:317855 */ f10634(t64313); l10483: /* x98200 stalin.sc:9270:317919 */ /* x98198 stalin.sc:9271:317941 */ /* x98187 stalin.sc:9274:318108 */ /* x98186 stalin.sc:9274:318117 */ /* x98185 stalin.sc:9274:318138 */ /* x98184 stalin.sc:9274:318143 */ /* x98183 stalin.sc:9274:318164 */ t64332 = a23507; /* x98182 stalin.sc:9274:318144 */ a39519 = t64332; /* x290745 */ /* x290744 */ t64333 = a39519; /* x290743 */ if (!((t64333.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34436]"); structure_ref_error();} t64331 = t64333.value.structure_type27698->s12; /* x269684 stalin.sc:9274:318139 */ if (!((t64331.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 9274, 318138); structure_ref_error();} t64329 = t64331.value.structure_type24753->s0; /* x98180 stalin.sc:9274:318118 */ a39830 = t64329; /* x291989 */ /* x291988 */ t64330 = a39830; /* x291987 */ if (!((t64330.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34747]"); structure_ref_error();} t64328 = t64330.value.structure_type27698->s10; /* x98179 stalin.sc:9274:318109 */ t64324 = f8162(t64328); /* x98196 stalin.sc:9275:318177 */ /* x98195 stalin.sc:9275:318186 */ /* x98194 stalin.sc:9275:318207 */ /* x98193 stalin.sc:9275:318212 */ /* x98192 stalin.sc:9275:318233 */ t64338 = a23507; /* x98191 stalin.sc:9275:318213 */ a39520 = t64338; /* x290749 */ /* x290748 */ t64339 = a39520; /* x290747 */ if (!((t64339.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34437]"); structure_ref_error();} t64337 = t64339.value.structure_type27698->s12; /* x269683 stalin.sc:9275:318208 */ if (!((t64337.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 9275, 318207); structure_ref_error();} t64335 = t64337.value.structure_type24753->s1; /* x98189 stalin.sc:9275:318187 */ a39831 = t64335; /* x291993 */ /* x291992 */ t64336 = a39831; /* x291991 */ if (!((t64336.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34748]"); structure_ref_error();} t64334 = t64336.value.structure_type27698->s10; /* x98188 stalin.sc:9275:318178 */ t64325 = f8162(t64334); /* x98197 stalin.sc:9276:318246 */ t64326 = a23507; /* x98178 stalin.sc:9271:317942 */ /* MOVE: branching squeezed to general */ if (t64324>=((struct structure_type24753 *)VALUE_OFFSET)) {t64327.tag = STRUCTURE_TYPE24753; t64327.value.structure_type24753 = t64324;} else t64327.tag = (unsigned)t64324; t64321 = f7154(t64327, t64325, t64326); /* x98199 stalin.sc:9277:318255 */ t64322 = a23509; /* x98177 stalin.sc:9270:317920 */ t64323 = *((struct w49 *)(&t64321)); f10604(t64323, t64322); /* x98152 */ /* x98151 stalin.sc:9278:318263 */ /* x98138 stalin.sc:9278:318271 */ /* x98137 stalin.sc:9278:318293 */ t64309 = a23507; /* x98136 stalin.sc:9278:318272 */ if (f6931(t64309)==FALSE_TYPE) goto l10479; /* x98140 */ /* x98139 */ goto l10480; l10479: /* x98150 */ /* x98149 */ /* x98148 */ /* x98147 stalin.sc:9279:318302 */ /* x98146 stalin.sc:9279:318321 */ t64311 = a23507; /* x98145 stalin.sc:9279:318303 */ f10619(t64311); /* x98144 */ /* x98143 stalin.sc:9280:318330 */ /* x98142 stalin.sc:9280:318347 */ t64310 = a23507; /* x98141 stalin.sc:9280:318331 */ f10623(t64310); l10480: goto l10357; l10356: /* x98857 */ /* x98207 */ /* x98205 */ t63853 = a23511; /* x98206 */ t63854 = q52; /* x98204 */ t63855.tag = EXTERNAL_SYMBOL_TYPE; t63855.value.external_symbol_type = t63853; t63856.tag = EXTERNAL_SYMBOL_TYPE; t63856.value.external_symbol_type = t63854; if (f26160(t63855, t63856)==FALSE_TYPE) goto l10359; /* x98262 */ /* x98261 */ /* x98260 */ /* x98238 stalin.sc:9282:318380 */ /* x98227 stalin.sc:9282:318388 */ /* x98226 stalin.sc:9282:318410 */ t64290 = a23507; /* x98225 stalin.sc:9282:318389 */ if (f6931(t64290)==FALSE_TYPE) goto l10476; /* x98229 */ /* x98228 */ goto l10477; l10476: /* x98237 */ /* x98236 */ /* x98235 stalin.sc:9283:318419 */ /* x98234 stalin.sc:9283:318463 */ /* x98233 stalin.sc:9283:318484 */ t64294 = a23507; /* x98232 stalin.sc:9283:318464 */ a39521 = t64294; /* x290753 */ /* x290752 */ t64295 = a39521; /* x290751 */ if (!((t64295.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34438]"); structure_ref_error();} t64291 = t64295.value.structure_type27698->s12; /* x98231 stalin.sc:9283:318436 */ /* x98230 stalin.sc:9283:318420 */ t64292 = (unsigned)NATIVE_PROCEDURE_TYPE7110; t64293 = t64291; f1141(t64292, t64293); l10477: /* x98259 stalin.sc:9284:318494 */ /* x98257 stalin.sc:9285:318516 */ /* x98255 stalin.sc:9288:318692 */ /* x98242 stalin.sc:9289:318708 */ /* x98253 stalin.sc:9290:318716 */ /* x98252 stalin.sc:9291:318783 */ /* x98251 stalin.sc:9291:318804 */ t64307 = a23507; /* x98250 stalin.sc:9291:318784 */ a39522 = t64307; /* x290757 */ /* x290756 */ t64308 = a39522; /* x290755 */ if (!((t64308.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34439]"); structure_ref_error();} t64304 = t64308.value.structure_type27698->s12; /* x98249 stalin.sc:9290:318728 */ /* x98243 stalin.sc:9290:318717 */ t64305 = (unsigned)NATIVE_PROCEDURE_TYPE24314; t64306 = t64304; t64301 = f1154(t64305, t64306); /* x98254 stalin.sc:9292:318809 */ /* x98241 stalin.sc:9288:318693 */ t64302 = NATIVE_PROCEDURE_TYPE8055; t64303 = (unsigned)NULL_TYPE; t64299 = f1019(t64302, t64301, t64303); /* x98256 stalin.sc:9293:318821 */ t64300 = a23507; /* x98240 stalin.sc:9285:318517 */ t64296 = f7166(t64299, t64300); /* x98258 stalin.sc:9294:318830 */ t64297 = a23509; /* x98239 stalin.sc:9284:318495 */ t64298 = *((struct w49 *)(&t64296)); f10604(t64298, t64297); /* x98224 */ /* x98223 stalin.sc:9295:318838 */ /* x98210 stalin.sc:9295:318846 */ /* x98209 stalin.sc:9295:318868 */ t64287 = a23507; /* x98208 stalin.sc:9295:318847 */ if (f6931(t64287)==FALSE_TYPE) goto l10473; /* x98212 */ /* x98211 */ goto l10474; l10473: /* x98222 */ /* x98221 */ /* x98220 */ /* x98219 stalin.sc:9296:318877 */ /* x98218 stalin.sc:9296:318896 */ t64289 = a23507; /* x98217 stalin.sc:9296:318878 */ f10619(t64289); /* x98216 */ /* x98215 stalin.sc:9297:318905 */ /* x98214 stalin.sc:9297:318922 */ t64288 = a23507; /* x98213 stalin.sc:9297:318906 */ f10623(t64288); l10474: goto l10360; l10359: /* x98856 */ /* x98284 */ /* x98283 */ /* x98281 */ t63857 = a23511; /* x98282 */ t63858 = q39; /* x98280 */ t63859.tag = EXTERNAL_SYMBOL_TYPE; t63859.value.external_symbol_type = t63857; t63860.tag = EXTERNAL_SYMBOL_TYPE; t63860.value.external_symbol_type = t63858; if (!(f26160(t63859, t63860)==FALSE_TYPE)) goto l10361; /* x98277 */ /* x98276 */ /* x98274 */ t63861 = a23511; /* x98275 */ t63862 = q40; /* x98273 */ t63863.tag = EXTERNAL_SYMBOL_TYPE; t63863.value.external_symbol_type = t63861; t63864.tag = EXTERNAL_SYMBOL_TYPE; t63864.value.external_symbol_type = t63862; if (!(f26160(t63863, t63864)==FALSE_TYPE)) goto l10361; /* x98270 */ /* x98268 */ t63865 = a23511; /* x98269 */ t63866 = q41; /* x98267 */ t63867.tag = EXTERNAL_SYMBOL_TYPE; t63867.value.external_symbol_type = t63865; t63868.tag = EXTERNAL_SYMBOL_TYPE; t63868.value.external_symbol_type = t63866; if (f26160(t63867, t63868)==FALSE_TYPE) goto l10362; l10361: /* x98310 */ /* x98309 */ /* x98308 stalin.sc:9299:318986 */ /* x98287 stalin.sc:9299:318994 */ /* x98286 stalin.sc:9299:319016 */ t64243 = a23507; /* x98285 stalin.sc:9299:318995 */ if (f6931(t64243)==FALSE_TYPE) goto l10458; /* x98289 */ /* x98288 */ goto l10459; l10458: /* x98307 */ /* x98306 */ /* x98305 */ /* x98301 stalin.sc:9300:319025 */ /* x98299 stalin.sc:9300:319041 */ /* x98298 stalin.sc:9300:319061 */ /* x98297 stalin.sc:9300:319092 */ t64284 = a23507; /* x98296 stalin.sc:9300:319062 */ a39490 = t64284; /* x290629 */ /* x290628 */ t64285 = a39490; /* x290627 */ if (!((t64285.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34407]"); structure_ref_error();} t64248 = t64285.value.structure_type27698->s13; /* x98295 stalin.sc:9300:319042 */ a21020 = t64248; /* x59833 */ /* x59832 stalin.sc:1066:34500 */ /* x59825 stalin.sc:1066:34506 */ if (a2040==FALSE_TYPE) goto l10470; /* x59829 */ /* x59828 */ /* x59827 stalin.sc:1066:34522 */ /* x59826 stalin.sc:1066:34523 */ /* x296801 QobiScheme.sc:166:5314 */ /* x296800 QobiScheme.sc:166:5321 */ t64283 = "This shouldn\'t happen"; /* x296799 QobiScheme.sc:166:5315 */ stalin_panic(t64283); goto l10471; l10470: /* x59831 stalin.sc:1066:34500 */ /* x59830 stalin.sc:1066:34500 */ l10471: /* x59824 */ /* x59823 stalin.sc:1067:34534 */ /* x59822 stalin.sc:1067:34543 */ /* x59821 stalin.sc:1067:34561 */ t64281 = a21020; /* x59820 stalin.sc:1067:34544 */ t64282 = *((struct w49 *)(&t64281)); t64249 = f8966(t64282); /* x59819 */ a21022 = t64249; /* x59818 stalin.sc:1068:34568 */ /* x59817 stalin.sc:1068:34572 */ /* x59815 stalin.sc:1068:34581 */ /* x59816 stalin.sc:1069:34631 */ t64278 = a1945; /* x59808 stalin.sc:1068:34573 */ t64279.tag = NATIVE_PROCEDURE_TYPE17744; t64280 = *((struct w49 *)(&t64278)); t64250 = f1314(t64279, t64280); /* x59807 */ a21023 = t64250; /* x59806 */ /* x59801 */ if ((a21023.tag)==FALSE_TYPE) goto l10461; /* x59802 */ t64245 = *((struct w3467 *)(&a21023)); goto l10462; l10461: /* x59805 */ /* x59804 stalin.sc:1070:34693 */ t64251 = a21022; /* x59803 stalin.sc:1070:34664 */ a21012 = t64251; /* x59798 */ /* x59784 stalin.sc:1056:34123 */ /* x59777 stalin.sc:1056:34129 */ if (a2040==FALSE_TYPE) goto l10464; /* x59781 */ /* x59780 */ /* x59779 stalin.sc:1056:34145 */ /* x59778 stalin.sc:1056:34146 */ /* x296793 QobiScheme.sc:166:5314 */ /* x296792 QobiScheme.sc:166:5321 */ t64273 = "This shouldn\'t happen"; /* x296791 QobiScheme.sc:166:5315 */ stalin_panic(t64273); goto l10465; l10464: /* x59783 stalin.sc:1056:34123 */ /* x59782 stalin.sc:1056:34123 */ l10465: /* x59797 stalin.sc:1057:34157 */ /* x59790 stalin.sc:1057:34165 */ /* x59786 stalin.sc:1057:34170 */ t64274 = a21012; /* x59789 stalin.sc:1057:34172 */ /* x59788 stalin.sc:1057:34190 */ t64276 = a21012; /* x59787 stalin.sc:1057:34173 */ t64275 = f8966(t64276); /* x270697 stalin.sc:1057:34166 */ /* EQ: dispatching general to general */ if (!((t64274.tag)==(t64275.tag))) goto l10467; switch (t64274.tag) {case FIXNUM_TYPE: if (!((t64274.value.fixnum_type)==(t64275.value.fixnum_type))) goto l10467; break; case FLONUM_TYPE: if (!((t64274.value.flonum_type)==(t64275.value.flonum_type))) goto l10467; break; case INPUT_PORT_TYPE: if (!((t64274.value.input_port_type)==(t64275.value.input_port_type))) goto l10467; break; case OUTPUT_PORT_TYPE: if (!((t64274.value.output_port_type)==(t64275.value.output_port_type))) goto l10467; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t64274.value.native_procedure_type15963)==(t64275.value.native_procedure_type15963))) goto l10467; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t64274.value.native_procedure_type19067)==(t64275.value.native_procedure_type19067))) goto l10467; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t64274.value.native_procedure_type19068)==(t64275.value.native_procedure_type19068))) goto l10467; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t64274.value.native_procedure_type22459)==(t64275.value.native_procedure_type22459))) goto l10467; break; case STRUCTURE_TYPE24753: if (!((t64274.value.structure_type24753)==(t64275.value.structure_type24753))) goto l10467; break; case STRUCTURE_TYPE24757: if (!((t64274.value.structure_type24757)==(t64275.value.structure_type24757))) goto l10467; break; case STRUCTURE_TYPE27501: if (!((t64274.value.structure_type27501)==(t64275.value.structure_type27501))) goto l10467; break; case STRUCTURE_TYPE27510: if (!((t64274.value.structure_type27510)==(t64275.value.structure_type27510))) goto l10467; break; case STRUCTURE_TYPE27621: if (!((t64274.value.structure_type27621)==(t64275.value.structure_type27621))) goto l10467; break; case STRUCTURE_TYPE27650: if (!((t64274.value.structure_type27650)==(t64275.value.structure_type27650))) goto l10467; break; case STRUCTURE_TYPE27669: if (!((t64274.value.structure_type27669)==(t64275.value.structure_type27669))) goto l10467; break; case STRUCTURE_TYPE27673: if (!((t64274.value.structure_type27673)==(t64275.value.structure_type27673))) goto l10467; break; case STRUCTURE_TYPE27692: if (!((t64274.value.structure_type27692)==(t64275.value.structure_type27692))) goto l10467; break; case STRUCTURE_TYPE27694: if (!((t64274.value.structure_type27694)==(t64275.value.structure_type27694))) goto l10467; break; case STRUCTURE_TYPE27698: if (!((t64274.value.structure_type27698)==(t64275.value.structure_type27698))) goto l10467; break; case STRUCTURE_TYPE27745: if (!((t64274.value.structure_type27745)==(t64275.value.structure_type27745))) goto l10467; break; case STRUCTURE_TYPE27747: if (!((t64274.value.structure_type27747)==(t64275.value.structure_type27747))) goto l10467; break; case STRUCTURE_TYPE27750: if (!((t64274.value.structure_type27750)==(t64275.value.structure_type27750))) goto l10467; break; case STRUCTURE_TYPE27753: if (!((t64274.value.structure_type27753)==(t64275.value.structure_type27753))) goto l10467; break; case STRUCTURE_TYPE27756: if (!((t64274.value.structure_type27756)==(t64275.value.structure_type27756))) goto l10467; break; case STRUCTURE_TYPE27761: if (!((t64274.value.structure_type27761)==(t64275.value.structure_type27761))) goto l10467; break; case STRUCTURE_TYPE27769: if (!((t64274.value.structure_type27769)==(t64275.value.structure_type27769))) goto l10467; break; case STRUCTURE_TYPE27776: if (!((t64274.value.structure_type27776)==(t64275.value.structure_type27776))) goto l10467; break; case STRUCTURE_TYPE27779: if (!((t64274.value.structure_type27779)==(t64275.value.structure_type27779))) goto l10467; break; case STRUCTURE_TYPE27858: if (!((t64274.value.structure_type27858)==(t64275.value.structure_type27858))) goto l10467; break; case STRING_TYPE: if (!((t64274.value.string_type)==(t64275.value.string_type))) goto l10467; break; case HEADED_VECTOR_TYPE27896: if (!((t64274.value.headed_vector_type27896)==(t64275.value.headed_vector_type27896))) goto l10467; break; case EXTERNAL_SYMBOL_TYPE: if (!((t64274.value.external_symbol_type)==(t64275.value.external_symbol_type))) goto l10467; break; case STRUCTURE_TYPE27908: if (!((t64274.value.structure_type27908)==(t64275.value.structure_type27908))) goto l10467; break; default:;} /* x59792 */ /* x59791 */ goto l10468; l10467: /* x59796 */ /* x59795 */ /* x59794 stalin.sc:1057:34194 */ /* x59793 stalin.sc:1057:34195 */ /* x296797 QobiScheme.sc:166:5314 */ /* x296796 QobiScheme.sc:166:5321 */ t64277 = "This shouldn\'t happen"; /* x296795 QobiScheme.sc:166:5315 */ stalin_panic(t64277); l10468: /* x59776 */ /* x59775 stalin.sc:1058:34206 */ /* x59774 stalin.sc:1058:34216 */ /* x59767 stalin.sc:1058:34244 */ /* x59768 stalin.sc:1058:34248 */ t64263 = a21012; /* x59769 stalin.sc:1058:34250 */ t64264 = a1982; /* x59770 stalin.sc:1058:34255 */ t64265 = 0; /* x59772 stalin.sc:1058:34257 */ /* x59771 stalin.sc:1058:34258 */ /* x277169 stalin.sc:323:8604 */ t64266 = q35; /* x59773 stalin.sc:1058:34271 */ t64267 = 0; /* x59766 stalin.sc:1058:34217 */ a19577 = t64263; a19578 = t64264; a19579 = t64265; a19580 = t64266; a19581 = t64267; /* x51890 */ /* x51884 */ /* x51885 */ t64268 = a19577; /* x51886 */ t64269 = a19578; /* x51887 */ t64270 = a19579; /* x51888 */ t64271 = a19580; /* x51889 */ t64272 = a19581; /* x51883 */ t64252 = (struct structure_type27756 *)GC_malloc(sizeof(struct structure_type27756)); if (t64252==NULL) {backtrace_internal("MAKE-NATIVE-PROCEDURE-TYPE[5943]"); out_of_memory_error();} t64252->s0.tag = NULL_TYPE; t64252->s1 = t64268; t64252->s2 = t64269; t64252->s3 = t64270; t64252->s4.tag = EXTERNAL_SYMBOL_TYPE; t64252->s4.value.external_symbol_type = t64271; t64252->s5 = t64272; /* x59765 */ a21015 = t64252; /* x59764 */ /* x59763 */ /* x59762 */ /* x59747 stalin.sc:1059:34278 */ /* x59745 stalin.sc:1059:34314 */ t64253 = a21015; /* x59746 stalin.sc:1059:34316 */ /* x59744 stalin.sc:1059:34279 */ t64254.tag = STRUCTURE_TYPE27756; t64254.value.structure_type27756 = t64253; t64255 = TRUE_TYPE; f7335(t64254, t64255); /* x59751 stalin.sc:1060:34322 */ /* x59749 stalin.sc:1060:34362 */ t64256 = a21015; /* x59750 stalin.sc:1060:34364 */ /* x59748 stalin.sc:1060:34323 */ t64257.tag = STRUCTURE_TYPE27756; t64257.value.structure_type27756 = t64256; t64258 = TRUE_TYPE; f7330(t64257, t64258); /* x59756 stalin.sc:1061:34370 */ /* x59755 stalin.sc:1061:34381 */ /* x59753 stalin.sc:1061:34384 */ t64259 = a1982; /* x59754 stalin.sc:1061:34389 */ t64260 = 1; /* x270699 stalin.sc:1061:34382 */ if (!((t64259&1)==1)) {backtrace("stalin.sc", 1061, 34381); plus_error();} a1982 = (((unsigned)(((int)(((int)t64259)>>1))+t64260))<<1)+1; /* x59761 stalin.sc:1062:34395 */ /* x59760 stalin.sc:1062:34426 */ /* x59758 stalin.sc:1062:34432 */ t64261 = a21015; /* x59759 stalin.sc:1062:34434 */ t64262 = a1945; /* x270698 stalin.sc:1062:34427 */ a1945.tag = STRUCTURE_TYPE24753; a1945.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a1945.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1062, 34426); out_of_memory_error();} a1945.value.structure_type24753->s0.tag = STRUCTURE_TYPE27756; a1945.value.structure_type24753->s0.value.structure_type27756 = t64261; a1945.value.structure_type24753->s1 = *((struct w49 *)(&t64262)); /* x59743 */ /* x59742 stalin.sc:1063:34463 */ t64245.tag = STRUCTURE_TYPE27756; t64245.value.structure_type27756 = a21015; l10462: /* x98300 stalin.sc:9300:319096 */ t64246 = a23509; /* x98294 stalin.sc:9300:319026 */ t64247 = *((struct w49 *)(&t64245)); f10604(t64247, t64246); /* x98304 stalin.sc:9301:319105 */ /* x98303 stalin.sc:9301:319124 */ t64286 = a23507; /* x98302 stalin.sc:9301:319106 */ f10619(t64286); /* x98293 */ /* x98292 stalin.sc:9302:319133 */ /* x98291 stalin.sc:9302:319150 */ t64244 = a23507; /* x98290 stalin.sc:9302:319134 */ f10623(t64244); l10459: goto l10363; l10362: /* x98855 */ /* x98314 */ /* x98312 */ t63869 = a23511; /* x98313 */ t63870 = q42; /* x98311 */ t63871.tag = EXTERNAL_SYMBOL_TYPE; t63871.value.external_symbol_type = t63869; t63872.tag = EXTERNAL_SYMBOL_TYPE; t63872.value.external_symbol_type = t63870; if (f26160(t63871, t63872)==FALSE_TYPE) goto l10367; /* x98369 */ /* x98368 */ /* x98367 */ /* x98333 stalin.sc:9304:319172 */ /* x98332 stalin.sc:9304:319200 */ /* x98331 stalin.sc:9304:319219 */ t64222 = a23507; /* x98330 stalin.sc:9304:319201 */ a39071 = t64222; /* x288953 */ /* x288952 */ t64223 = a39071; /* x288951 */ if (!((t64223.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33988]"); structure_ref_error();} t64221 = t64223.value.structure_type27698->s17; /* x98329 stalin.sc:9304:319173 */ f10634(t64221); /* x98341 stalin.sc:9305:319228 */ /* x98339 stalin.sc:9305:319249 */ /* x98338 stalin.sc:9305:319268 */ /* x98337 stalin.sc:9305:319289 */ t64227 = a23507; /* x98336 stalin.sc:9305:319269 */ a39157 = t64227; /* x289297 */ /* x289296 */ t64228 = a39157; /* x289295 */ if (!((t64228.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34074]"); structure_ref_error();} t64225 = t64228.value.structure_type27698->s16; /* x98335 stalin.sc:9305:319250 */ a36883 = t64225; /* x280201 */ /* x280200 */ t64226 = a36883; /* x280199 */ if (!((t64226.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31800]"); structure_ref_error();} t64224 = t64226.value.structure_type27692->s9; /* x98340 stalin.sc:9305:319293 */ /* x98334 stalin.sc:9305:319229 */ f8118(t64224); /* x98353 stalin.sc:9306:319302 */ /* x98347 stalin.sc:9306:319318 */ /* x98346 stalin.sc:9306:319339 */ /* x98345 stalin.sc:9306:319358 */ t64233 = a23507; /* x98344 stalin.sc:9306:319340 */ a39072 = t64233; /* x288957 */ /* x288956 */ t64234 = a39072; /* x288955 */ if (!((t64234.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33989]"); structure_ref_error();} t64231 = t64234.value.structure_type27698->s17; /* x98343 stalin.sc:9306:319319 */ a39993 = t64231; /* x292641 */ /* x292640 */ t64232 = a39993; /* x292639 */ if (!((t64232.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34910]"); structure_ref_error();} t64229 = t64232.value.structure_type27698->s10; /* x98352 stalin.sc:9307:319369 */ /* x98351 stalin.sc:9307:319388 */ /* x98350 stalin.sc:9307:319409 */ t64237 = a23507; /* x98349 stalin.sc:9307:319389 */ a39158 = t64237; /* x289301 */ /* x289300 */ t64238 = a39158; /* x289299 */ if (!((t64238.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34075]"); structure_ref_error();} t64235 = t64238.value.structure_type27698->s16; /* x98348 stalin.sc:9307:319370 */ a36884 = t64235; /* x280205 */ /* x280204 */ t64236 = a36884; /* x280203 */ if (!((t64236.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31801]"); structure_ref_error();} t64230 = t64236.value.structure_type27692->s9; /* x98342 stalin.sc:9306:319303 */ f10617(t64229, t64230); /* x98366 stalin.sc:9308:319419 */ /* x98358 stalin.sc:9308:319425 */ /* x98357 stalin.sc:9308:319448 */ /* x98356 stalin.sc:9308:319467 */ t64240 = a23507; /* x98355 stalin.sc:9308:319449 */ a39073 = t64240; /* x288961 */ /* x288960 */ t64241 = a39073; /* x288959 */ if (!((t64241.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33990]"); structure_ref_error();} t64239 = t64241.value.structure_type27698->s17; /* x98354 stalin.sc:9308:319426 */ if (f6951(t64239)==FALSE_TYPE) goto l10455; /* x98363 */ /* x98362 */ /* x98361 stalin.sc:9308:319471 */ /* x98360 stalin.sc:9308:319490 */ t64242 = a23507; /* x98359 stalin.sc:9308:319472 */ f10619(t64242); goto l10456; l10455: /* x98365 stalin.sc:9308:319419 */ /* x98364 stalin.sc:9308:319419 */ l10456: /* x98328 */ /* x98327 stalin.sc:9309:319499 */ /* x98319 stalin.sc:9309:319505 */ /* x98318 stalin.sc:9309:319526 */ /* x98317 stalin.sc:9309:319545 */ t64218 = a23507; /* x98316 stalin.sc:9309:319527 */ a39067 = t64218; /* x288937 */ /* x288936 */ t64219 = a39067; /* x288935 */ if (!((t64219.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33984]"); structure_ref_error();} t64217 = t64219.value.structure_type27698->s17; /* x98315 stalin.sc:9309:319506 */ if (f6956(t64217)==FALSE_TYPE) goto l10452; /* x98324 */ /* x98323 */ /* x98322 stalin.sc:9309:319549 */ /* x98321 stalin.sc:9309:319566 */ t64220 = a23507; /* x98320 stalin.sc:9309:319550 */ f10623(t64220); goto l10453; l10452: /* x98326 stalin.sc:9309:319499 */ /* x98325 stalin.sc:9309:319499 */ l10453: goto l10368; l10367: /* x98854 */ /* x98373 */ /* x98371 */ t63873 = a23511; /* x98372 */ t63874 = q43; /* x98370 */ t63875.tag = EXTERNAL_SYMBOL_TYPE; t63875.value.external_symbol_type = t63873; t63876.tag = EXTERNAL_SYMBOL_TYPE; t63876.value.external_symbol_type = t63874; if (f26160(t63875, t63876)==FALSE_TYPE) goto l10370; /* x98498 */ /* x98497 */ /* x98496 */ /* x98409 stalin.sc:9311:319586 */ /* x98408 stalin.sc:9311:319614 */ /* x98407 stalin.sc:9311:319637 */ t64175 = a23507; /* x98406 stalin.sc:9311:319615 */ a39025 = t64175; /* x288769 */ /* x288768 */ t64176 = a39025; /* x288767 */ if (!((t64176.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33942]"); structure_ref_error();} t64174 = t64176.value.structure_type27698->s18; /* x98405 stalin.sc:9311:319587 */ f10634(t64174); /* x98437 stalin.sc:9312:319646 */ /* x98417 stalin.sc:9312:319652 */ /* x98411 stalin.sc:9312:319665 */ /* x98416 stalin.sc:9313:319680 */ /* x98415 stalin.sc:9313:319701 */ /* x98414 stalin.sc:9313:319724 */ t64181 = a23507; /* x98413 stalin.sc:9313:319702 */ a39026 = t64181; /* x288773 */ /* x288772 */ t64182 = a39026; /* x288771 */ if (!((t64182.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33943]"); structure_ref_error();} t64179 = t64182.value.structure_type27698->s18; /* x98412 stalin.sc:9313:319681 */ a39994 = t64179; /* x292645 */ /* x292644 */ t64180 = a39994; /* x292643 */ if (!((t64180.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34911]"); structure_ref_error();} t64177 = t64180.value.structure_type27698->s10; /* x98410 stalin.sc:9312:319653 */ t64178.tag = NATIVE_PROCEDURE_TYPE7433; if ((f8144(t64178, t64177).tag)==FALSE_TYPE) goto l10441; /* x98434 */ /* x98433 */ /* x98432 */ /* x98431 stalin.sc:9314:319735 */ /* x98430 stalin.sc:9314:319763 */ /* x98429 stalin.sc:9314:319786 */ t64190 = a23507; /* x98428 stalin.sc:9314:319764 */ a38947 = t64190; /* x288457 */ /* x288456 */ t64191 = a38947; /* x288455 */ if (!((t64191.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33864]"); structure_ref_error();} t64189 = t64191.value.structure_type27698->s19; /* x98427 stalin.sc:9314:319736 */ f10634(t64189); /* x98426 */ /* x98425 stalin.sc:9315:319796 */ /* x98423 stalin.sc:9315:319812 */ /* x98422 stalin.sc:9315:319833 */ /* x98421 stalin.sc:9315:319856 */ t64187 = a23507; /* x98420 stalin.sc:9315:319834 */ a38946 = t64187; /* x288453 */ /* x288452 */ t64188 = a38946; /* x288451 */ if (!((t64188.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33863]"); structure_ref_error();} t64185 = t64188.value.structure_type27698->s19; /* x98419 stalin.sc:9315:319813 */ a39920 = t64185; /* x292349 */ /* x292348 */ t64186 = a39920; /* x292347 */ if (!((t64186.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34837]"); structure_ref_error();} t64183 = t64186.value.structure_type27698->s10; /* x98424 stalin.sc:9315:319860 */ t64184 = a23509; /* x98418 stalin.sc:9315:319797 */ f10617(t64183, t64184); goto l10442; l10441: /* x98436 stalin.sc:9312:319646 */ /* x98435 stalin.sc:9312:319646 */ l10442: /* x98465 stalin.sc:9316:319869 */ /* x98445 stalin.sc:9316:319875 */ /* x98439 stalin.sc:9316:319884 */ /* x98444 stalin.sc:9317:319902 */ /* x98443 stalin.sc:9317:319923 */ /* x98442 stalin.sc:9317:319946 */ t64196 = a23507; /* x98441 stalin.sc:9317:319924 */ a39027 = t64196; /* x288777 */ /* x288776 */ t64197 = a39027; /* x288775 */ if (!((t64197.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33944]"); structure_ref_error();} t64194 = t64197.value.structure_type27698->s18; /* x98440 stalin.sc:9317:319903 */ a39995 = t64194; /* x292649 */ /* x292648 */ t64195 = a39995; /* x292647 */ if (!((t64195.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34912]"); structure_ref_error();} t64192 = t64195.value.structure_type27698->s10; /* x98438 stalin.sc:9316:319876 */ t64193.tag = NATIVE_PROCEDURE_TYPE7433; if ((f8137(t64193, t64192).tag)==FALSE_TYPE) goto l10444; /* x98462 */ /* x98461 */ /* x98460 */ /* x98459 stalin.sc:9318:319957 */ /* x98458 stalin.sc:9318:319985 */ /* x98457 stalin.sc:9318:320007 */ t64205 = a23507; /* x98456 stalin.sc:9318:319986 */ a38895 = t64205; /* x288249 */ /* x288248 */ t64206 = a38895; /* x288247 */ if (!((t64206.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33812]"); structure_ref_error();} t64204 = t64206.value.structure_type27698->s20; /* x98455 stalin.sc:9318:319958 */ f10634(t64204); /* x98454 */ /* x98453 stalin.sc:9319:320017 */ /* x98451 stalin.sc:9319:320033 */ /* x98450 stalin.sc:9319:320054 */ /* x98449 stalin.sc:9319:320076 */ t64202 = a23507; /* x98448 stalin.sc:9319:320055 */ a38894 = t64202; /* x288245 */ /* x288244 */ t64203 = a38894; /* x288243 */ if (!((t64203.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33811]"); structure_ref_error();} t64200 = t64203.value.structure_type27698->s20; /* x98447 stalin.sc:9319:320034 */ a39910 = t64200; /* x292309 */ /* x292308 */ t64201 = a39910; /* x292307 */ if (!((t64201.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34827]"); structure_ref_error();} t64198 = t64201.value.structure_type27698->s10; /* x98452 stalin.sc:9319:320080 */ t64199 = a23509; /* x98446 stalin.sc:9319:320018 */ f10617(t64198, t64199); goto l10445; l10444: /* x98464 stalin.sc:9316:319869 */ /* x98463 stalin.sc:9316:319869 */ l10445: /* x98495 stalin.sc:9320:320089 */ /* x98487 stalin.sc:9320:320095 */ /* x98470 stalin.sc:9320:320100 */ /* x98469 stalin.sc:9320:320123 */ /* x98468 stalin.sc:9320:320146 */ t64208 = a23507; /* x98467 stalin.sc:9320:320124 */ a39028 = t64208; /* x288781 */ /* x288780 */ t64209 = a39028; /* x288779 */ if (!((t64209.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33945]"); structure_ref_error();} t64207 = t64209.value.structure_type27698->s18; /* x98466 stalin.sc:9320:320101 */ if (f6951(t64207)==FALSE_TYPE) goto l10447; /* x98485 */ /* x98484 stalin.sc:9321:320156 */ /* x98483 stalin.sc:9321:320179 */ /* x98482 stalin.sc:9321:320202 */ t64211 = a23507; /* x98481 stalin.sc:9321:320180 */ a38970 = t64211; /* x288549 */ /* x288548 */ t64212 = a38970; /* x288547 */ if (!((t64212.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33887]"); structure_ref_error();} t64210 = t64212.value.structure_type27698->s19; /* x98480 stalin.sc:9321:320157 */ if (!(f6951(t64210)==FALSE_TYPE)) goto l10446; /* x98477 */ /* x98476 stalin.sc:9322:320235 */ /* x98475 stalin.sc:9322:320257 */ t64214 = a23507; /* x98474 stalin.sc:9322:320236 */ a38916 = t64214; /* x288333 */ /* x288332 */ t64215 = a38916; /* x288331 */ if (!((t64215.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33833]"); structure_ref_error();} t64213 = t64215.value.structure_type27698->s20; /* x98473 stalin.sc:9322:320213 */ if (f6951(t64213)==FALSE_TYPE) goto l10447; l10446: /* x98492 */ /* x98491 */ /* x98490 stalin.sc:9323:320269 */ /* x98489 stalin.sc:9323:320288 */ t64216 = a23507; /* x98488 stalin.sc:9323:320270 */ f10619(t64216); goto l10448; l10447: /* x98494 stalin.sc:9320:320089 */ /* x98493 stalin.sc:9320:320089 */ l10448: /* x98404 */ /* x98403 stalin.sc:9324:320297 */ /* x98395 stalin.sc:9324:320303 */ /* x98378 stalin.sc:9324:320308 */ /* x98377 stalin.sc:9324:320329 */ /* x98376 stalin.sc:9324:320352 */ t64165 = a23507; /* x98375 stalin.sc:9324:320330 */ a39024 = t64165; /* x288765 */ /* x288764 */ t64166 = a39024; /* x288763 */ if (!((t64166.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33941]"); structure_ref_error();} t64164 = t64166.value.structure_type27698->s18; /* x98374 stalin.sc:9324:320309 */ if (f6956(t64164)==FALSE_TYPE) goto l10436; /* x98393 */ /* x98392 stalin.sc:9325:320362 */ /* x98391 stalin.sc:9325:320383 */ /* x98390 stalin.sc:9325:320406 */ t64168 = a23507; /* x98389 stalin.sc:9325:320384 */ a38969 = t64168; /* x288545 */ /* x288544 */ t64169 = a38969; /* x288543 */ if (!((t64169.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33886]"); structure_ref_error();} t64167 = t64169.value.structure_type27698->s19; /* x98388 stalin.sc:9325:320363 */ if (!(f6956(t64167)==FALSE_TYPE)) goto l10435; /* x98385 */ /* x98384 stalin.sc:9326:320437 */ /* x98383 stalin.sc:9326:320459 */ t64171 = a23507; /* x98382 stalin.sc:9326:320438 */ a38915 = t64171; /* x288329 */ /* x288328 */ t64172 = a38915; /* x288327 */ if (!((t64172.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33832]"); structure_ref_error();} t64170 = t64172.value.structure_type27698->s20; /* x98381 stalin.sc:9326:320417 */ if (f6956(t64170)==FALSE_TYPE) goto l10436; l10435: /* x98400 */ /* x98399 */ /* x98398 stalin.sc:9327:320471 */ /* x98397 stalin.sc:9327:320488 */ t64173 = a23507; /* x98396 stalin.sc:9327:320472 */ f10623(t64173); goto l10437; l10436: /* x98402 stalin.sc:9324:320297 */ /* x98401 stalin.sc:9324:320297 */ l10437: goto l10371; l10370: /* x98853 */ /* x98502 */ /* x98500 */ t63877 = a23511; /* x98501 */ t63878 = q77; /* x98499 */ t63879.tag = EXTERNAL_SYMBOL_TYPE; t63879.value.external_symbol_type = t63877; t63880.tag = EXTERNAL_SYMBOL_TYPE; t63880.value.external_symbol_type = t63878; if (f26160(t63879, t63880)==FALSE_TYPE) goto l10373; /* x98535 */ /* x98534 */ /* x98533 stalin.sc:9329:320525 */ /* x98505 stalin.sc:9329:320533 */ /* x98504 stalin.sc:9329:320555 */ t64123 = a23507; /* x98503 stalin.sc:9329:320534 */ if (f6931(t64123)==FALSE_TYPE) goto l10424; /* x98507 */ /* x98506 */ goto l10425; l10424: /* x98532 */ /* x98531 */ /* x98530 */ /* x98526 stalin.sc:9330:320564 */ /* x98524 stalin.sc:9330:320580 */ /* x98518 stalin.sc:9330:320603 */ /* x98517 stalin.sc:9330:320610 */ /* x98516 stalin.sc:9330:320631 */ t64157 = a23507; /* x98515 stalin.sc:9330:320611 */ a39588 = t64157; /* x291021 */ /* x291020 */ t64158 = a39588; /* x291019 */ if (!((t64158.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34505]"); structure_ref_error();} t64155 = t64158.value.structure_type27698->s12; /* x98514 stalin.sc:9330:320604 */ a36097 = t64155; /* x275745 */ /* x275744 */ t64156 = a36097; /* x275743 */ if (!((t64156.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30246]"); structure_ref_error();} t64128 = t64156.value.structure_type24753->s0; /* x98523 stalin.sc:9331:320645 */ /* x98522 stalin.sc:9331:320651 */ /* x98521 stalin.sc:9331:320672 */ t64161 = a23507; /* x98520 stalin.sc:9331:320652 */ a39589 = t64161; /* x291025 */ /* x291024 */ t64162 = a39589; /* x291023 */ if (!((t64162.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34506]"); structure_ref_error();} t64159 = t64162.value.structure_type27698->s12; /* x98519 stalin.sc:9331:320646 */ a35533 = t64159; /* x273489 */ /* x273488 */ t64160 = a35533; /* x273487 */ if (!((t64160.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29682]"); structure_ref_error();} t64129 = t64160.value.structure_type24753->s1; /* x98513 stalin.sc:9330:320581 */ a21007 = t64128; a21008 = t64129; /* x59739 */ /* x59738 stalin.sc:1048:33827 */ /* x59731 stalin.sc:1048:33833 */ if (a2040==FALSE_TYPE) goto l10433; /* x59735 */ /* x59734 */ /* x59733 stalin.sc:1048:33849 */ /* x59732 stalin.sc:1048:33850 */ /* x296809 QobiScheme.sc:166:5314 */ /* x296808 QobiScheme.sc:166:5321 */ t64154 = "This shouldn\'t happen"; /* x296807 QobiScheme.sc:166:5315 */ stalin_panic(t64154); goto l10434; l10433: /* x59737 stalin.sc:1048:33827 */ /* x59736 stalin.sc:1048:33827 */ l10434: /* x59730 */ /* x59729 stalin.sc:1049:33861 */ /* x59728 stalin.sc:1049:33865 */ /* x59726 stalin.sc:1049:33874 */ /* x59727 stalin.sc:1052:34005 */ t64151 = a1946; /* x59712 stalin.sc:1049:33866 */ t64152.tag = NATIVE_PROCEDURE_TYPE17684; t64153 = *((struct w49 *)(&t64151)); t64130 = f1314(t64152, t64153); /* x59711 */ a21010 = t64130; /* x59710 */ /* x59704 */ if ((a21010.tag)==FALSE_TYPE) goto l10427; /* x59705 */ t64125 = *((struct w3467 *)(&a21010)); goto l10428; l10427: /* x59709 */ /* x59707 stalin.sc:1053:34072 */ t64131 = a21007; /* x59708 stalin.sc:1053:34074 */ t64132 = a21008; /* x59706 stalin.sc:1053:34040 */ a21001 = t64131; a21002 = t64132; /* x59701 */ /* x59700 stalin.sc:1039:33543 */ /* x59693 stalin.sc:1039:33549 */ if (a2040==FALSE_TYPE) goto l10430; /* x59697 */ /* x59696 */ /* x59695 stalin.sc:1039:33565 */ /* x59694 stalin.sc:1039:33566 */ /* x296805 QobiScheme.sc:166:5314 */ /* x296804 QobiScheme.sc:166:5321 */ t64150 = "This shouldn\'t happen"; /* x296803 QobiScheme.sc:166:5315 */ stalin_panic(t64150); goto l10431; l10430: /* x59699 stalin.sc:1039:33543 */ /* x59698 stalin.sc:1039:33543 */ l10431: /* x59692 */ /* x59691 stalin.sc:1040:33577 */ /* x59690 stalin.sc:1040:33587 */ /* x59683 stalin.sc:1041:33623 */ t64138 = a21001; /* x59684 stalin.sc:1041:33628 */ t64139 = a21002; /* x59685 stalin.sc:1041:33638 */ t64140 = a1982; /* x59686 stalin.sc:1041:33643 */ t64141 = 0; /* x59688 stalin.sc:1041:33645 */ /* x59687 stalin.sc:1041:33646 */ /* x277171 stalin.sc:323:8604 */ t64142 = q35; /* x59689 stalin.sc:1041:33659 */ t64143 = 0; /* x59682 stalin.sc:1040:33588 */ a19509 = t64138; a19510 = t64139; a19511 = t64140; a19512 = t64141; a19513 = t64142; a19514 = t64143; /* x51641 */ /* x51635 */ t64144 = a19509; /* x51636 */ t64145 = a19510; /* x51637 */ t64146 = a19511; /* x51638 */ t64147 = a19512; /* x51639 */ t64148 = a19513; /* x51640 */ t64149 = a19514; /* x51634 */ t64133 = (struct structure_type27753 *)GC_malloc(sizeof(struct structure_type27753)); if (t64133==NULL) {backtrace_internal("MAKE-PRIMITIVE-PROCEDURE-TYPE[5893]"); out_of_memory_error();} t64133->s0 = t64144; t64133->s1 = t64145; t64133->s2 = t64146; t64133->s3 = t64147; t64133->s4.tag = EXTERNAL_SYMBOL_TYPE; t64133->s4.value.external_symbol_type = t64148; t64133->s5 = t64149; /* x59681 */ a21004 = t64133; /* x59680 */ /* x59679 */ /* x59678 */ /* x59672 stalin.sc:1042:33666 */ /* x59671 stalin.sc:1042:33677 */ /* x59669 stalin.sc:1042:33680 */ t64134 = a1982; /* x59670 stalin.sc:1042:33685 */ t64135 = 1; /* x270701 stalin.sc:1042:33678 */ if (!((t64134&1)==1)) {backtrace("stalin.sc", 1042, 33677); plus_error();} a1982 = (((unsigned)(((int)(((int)t64134)>>1))+t64135))<<1)+1; /* x59677 stalin.sc:1043:33691 */ /* x59676 stalin.sc:1043:33725 */ /* x59674 stalin.sc:1043:33731 */ t64136 = a21004; /* x59675 stalin.sc:1043:33733 */ t64137 = a1946; /* x270700 stalin.sc:1043:33726 */ a1946.tag = STRUCTURE_TYPE24753; a1946.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a1946.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1043, 33725); out_of_memory_error();} a1946.value.structure_type24753->s0.tag = STRUCTURE_TYPE27753; a1946.value.structure_type24753->s0.value.structure_type27753 = t64136; a1946.value.structure_type24753->s1 = *((struct w49 *)(&t64137)); /* x59667 */ /* x59666 stalin.sc:1044:33765 */ t64125.tag = STRUCTURE_TYPE27753; t64125.value.structure_type27753 = a21004; l10428: /* x98525 stalin.sc:9332:320685 */ t64126 = a23509; /* x98512 stalin.sc:9330:320565 */ t64127 = *((struct w49 *)(&t64125)); f10604(t64127, t64126); /* x98529 stalin.sc:9333:320694 */ /* x98528 stalin.sc:9333:320713 */ t64163 = a23507; /* x98527 stalin.sc:9333:320695 */ f10619(t64163); /* x98511 */ /* x98510 stalin.sc:9334:320722 */ /* x98509 stalin.sc:9334:320739 */ t64124 = a23507; /* x98508 stalin.sc:9334:320723 */ f10623(t64124); l10425: goto l10374; l10373: /* x98852 */ /* x98539 */ /* x98537 */ t63881 = a23511; /* x98538 */ t63882 = q78; /* x98536 */ t63883.tag = EXTERNAL_SYMBOL_TYPE; t63883.value.external_symbol_type = t63881; t63884.tag = EXTERNAL_SYMBOL_TYPE; t63884.value.external_symbol_type = t63882; if (f26160(t63883, t63884)==FALSE_TYPE) goto l10376; /* x98592 */ /* x98591 */ /* x98590 stalin.sc:9336:320774 */ /* x98542 stalin.sc:9336:320782 */ /* x98541 stalin.sc:9336:320804 */ t64064 = a23507; /* x98540 stalin.sc:9336:320783 */ if (f6931(t64064)==FALSE_TYPE) goto l10409; /* x98544 */ /* x98543 */ goto l10410; l10409: /* x98589 */ /* x98588 */ /* x98587 */ /* x98583 stalin.sc:9337:320813 */ /* x98581 stalin.sc:9338:320836 */ /* x98555 stalin.sc:9338:320857 */ /* x98554 stalin.sc:9338:320864 */ /* x98553 stalin.sc:9338:320885 */ t64105 = a23507; /* x98552 stalin.sc:9338:320865 */ a39590 = t64105; /* x291029 */ /* x291028 */ t64106 = a39590; /* x291027 */ if (!((t64106.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34507]"); structure_ref_error();} t64104 = t64106.value.structure_type27698->s12; /* x98551 stalin.sc:9338:320858 */ t64069 = f26187(t64104); /* x98560 stalin.sc:9339:320896 */ /* x98559 stalin.sc:9339:320903 */ /* x98558 stalin.sc:9339:320924 */ t64109 = a23507; /* x98557 stalin.sc:9339:320904 */ a39591 = t64109; /* x291033 */ /* x291032 */ t64110 = a39591; /* x291031 */ if (!((t64110.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34508]"); structure_ref_error();} t64107 = t64110.value.structure_type27698->s12; /* x98556 stalin.sc:9339:320897 */ a36098 = t64107; /* x275749 */ /* x275748 */ t64108 = a36098; /* x275747 */ if (!((t64108.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30247]"); structure_ref_error();} t64070 = t64108.value.structure_type24753->s0; /* x98565 stalin.sc:9340:320935 */ /* x98564 stalin.sc:9340:320943 */ /* x98563 stalin.sc:9340:320964 */ t64112 = a23507; /* x98562 stalin.sc:9340:320944 */ a39592 = t64112; /* x291037 */ /* x291036 */ t64113 = a39592; /* x291035 */ if (!((t64113.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34509]"); structure_ref_error();} t64111 = t64113.value.structure_type27698->s12; /* x98561 stalin.sc:9340:320936 */ t64071 = f26181(t64111); /* x98580 stalin.sc:9341:320975 */ /* x98573 stalin.sc:9341:320980 */ /* x98571 stalin.sc:9341:320983 */ /* x98570 stalin.sc:9341:320991 */ /* x98569 stalin.sc:9341:321012 */ t64117 = a23507; /* x98568 stalin.sc:9341:320992 */ a39594 = t64117; /* x291045 */ /* x291044 */ t64118 = a39594; /* x291043 */ if (!((t64118.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34511]"); structure_ref_error();} t64116 = t64118.value.structure_type27698->s12; /* x98567 stalin.sc:9341:320984 */ t64114 = f26227(t64116); /* x98572 stalin.sc:9341:321016 */ t64115 = 4; /* x269682 stalin.sc:9341:320981 */ if (!(t64114==t64115)) goto l10421; /* x98578 */ /* x98577 stalin.sc:9342:321032 */ /* x98576 stalin.sc:9342:321053 */ t64120 = a23507; /* x98575 stalin.sc:9342:321033 */ a39593 = t64120; /* x291041 */ /* x291040 */ t64121 = a39593; /* x291039 */ if (!((t64121.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34510]"); structure_ref_error();} t64119 = t64121.value.structure_type27698->s12; /* x98574 stalin.sc:9342:321025 */ t64072 = f26199(t64119); goto l10422; l10421: /* x98579 */ t64072.tag = FALSE_TYPE; l10422: /* x98550 stalin.sc:9338:320837 */ a21033 = t64069; a21034 = t64070; a21035 = t64071; a21036 = t64072; /* x59906 */ /* x59905 stalin.sc:1082:35072 */ /* x59898 stalin.sc:1082:35078 */ if (a2040==FALSE_TYPE) goto l10418; /* x59902 */ /* x59901 */ /* x59900 stalin.sc:1082:35094 */ /* x59899 stalin.sc:1082:35095 */ /* x296817 QobiScheme.sc:166:5314 */ /* x296816 QobiScheme.sc:166:5321 */ t64103 = "This shouldn\'t happen"; /* x296815 QobiScheme.sc:166:5315 */ stalin_panic(t64103); goto l10419; l10418: /* x59904 stalin.sc:1082:35072 */ /* x59903 stalin.sc:1082:35072 */ l10419: /* x59897 */ /* x59896 stalin.sc:1083:35106 */ /* x59895 stalin.sc:1083:35110 */ /* x59893 stalin.sc:1083:35119 */ /* x59894 stalin.sc:1084:35184 */ t64100 = a1944; /* x59886 stalin.sc:1083:35111 */ t64101.tag = NATIVE_PROCEDURE_TYPE17649; t64102 = *((struct w49 *)(&t64100)); t64073 = f1314(t64101, t64102); /* x59885 */ a21038 = t64073; /* x59884 */ /* x59876 */ if ((a21038.tag)==FALSE_TYPE) goto l10412; /* x59877 */ t64066 = *((struct w3467 *)(&a21038)); goto l10413; l10412: /* x59883 */ /* x59879 stalin.sc:1085:35247 */ t64074 = a21033; /* x59880 stalin.sc:1085:35249 */ t64075 = a21034; /* x59881 stalin.sc:1085:35252 */ t64076 = a21035; /* x59882 stalin.sc:1085:35254 */ t64077 = a21036; /* x59878 stalin.sc:1085:35217 */ a21025 = t64074; a21026 = t64075; a21027 = t64076; a21028 = t64077; /* x59873 */ /* x59872 stalin.sc:1073:34772 */ /* x59865 stalin.sc:1073:34778 */ if (a2040==FALSE_TYPE) goto l10415; /* x59869 */ /* x59868 */ /* x59867 stalin.sc:1073:34794 */ /* x59866 stalin.sc:1073:34795 */ /* x296813 QobiScheme.sc:166:5314 */ /* x296812 QobiScheme.sc:166:5321 */ t64099 = "This shouldn\'t happen"; /* x296811 QobiScheme.sc:166:5315 */ stalin_panic(t64099); goto l10416; l10415: /* x59871 stalin.sc:1073:34772 */ /* x59870 stalin.sc:1073:34772 */ l10416: /* x59864 */ /* x59863 stalin.sc:1074:34806 */ /* x59862 stalin.sc:1074:34816 */ /* x59853 stalin.sc:1075:34850 */ t64083 = a21025; /* x59854 stalin.sc:1075:34855 */ t64084 = a21026; /* x59855 stalin.sc:1075:34866 */ t64085 = a21027; /* x59856 stalin.sc:1075:34873 */ t64086 = a21028; /* x59857 stalin.sc:1075:34881 */ t64087 = a1982; /* x59858 stalin.sc:1075:34886 */ t64088 = 0; /* x59860 stalin.sc:1075:34888 */ /* x59859 stalin.sc:1075:34889 */ /* x277173 stalin.sc:323:8604 */ t64089 = q35; /* x59861 stalin.sc:1075:34902 */ t64090 = 0; /* x59852 stalin.sc:1074:34817 */ a19643 = t64083; a19644 = t64084; a19645 = t64085; a19646 = t64086; a19647 = t64087; a19648 = t64088; a19649 = t64089; a19650 = t64090; /* x52141 */ /* x52133 */ t64091 = a19643; /* x52134 */ t64092 = a19644; /* x52135 */ t64093 = a19645; /* x52136 */ t64094 = a19646; /* x52137 */ t64095 = a19647; /* x52138 */ t64096 = a19648; /* x52139 */ t64097 = a19649; /* x52140 */ t64098 = a19650; /* x52132 */ t64078 = (struct structure_type27750 *)GC_malloc(sizeof(struct structure_type27750)); if (t64078==NULL) {backtrace_internal("MAKE-FOREIGN-PROCEDURE-TYPE[5993]"); out_of_memory_error();} t64078->s0 = t64091; t64078->s1 = t64092; t64078->s2 = t64093; t64078->s3 = t64094; t64078->s4 = t64095; t64078->s5 = t64096; t64078->s6.tag = EXTERNAL_SYMBOL_TYPE; t64078->s6.value.external_symbol_type = t64097; t64078->s7 = t64098; /* x59851 */ a21030 = t64078; /* x59850 */ /* x59849 */ /* x59848 */ /* x59842 stalin.sc:1076:34909 */ /* x59841 stalin.sc:1076:34920 */ /* x59839 stalin.sc:1076:34923 */ t64079 = a1982; /* x59840 stalin.sc:1076:34928 */ t64080 = 1; /* x270695 stalin.sc:1076:34921 */ if (!((t64079&1)==1)) {backtrace("stalin.sc", 1076, 34920); plus_error();} a1982 = (((unsigned)(((int)(((int)t64079)>>1))+t64080))<<1)+1; /* x59847 stalin.sc:1077:34934 */ /* x59846 stalin.sc:1077:34966 */ /* x59844 stalin.sc:1077:34972 */ t64081 = a21030; /* x59845 stalin.sc:1077:34974 */ t64082 = a1944; /* x270694 stalin.sc:1077:34967 */ a1944.tag = STRUCTURE_TYPE24753; a1944.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a1944.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1077, 34966); out_of_memory_error();} a1944.value.structure_type24753->s0.tag = STRUCTURE_TYPE27750; a1944.value.structure_type24753->s0.value.structure_type27750 = t64081; a1944.value.structure_type24753->s1 = *((struct w49 *)(&t64082)); /* x59837 */ /* x59836 stalin.sc:1078:35004 */ t64066.tag = STRUCTURE_TYPE27750; t64066.value.structure_type27750 = a21030; l10413: /* x98582 stalin.sc:9343:321066 */ t64067 = a23509; /* x98549 stalin.sc:9337:320814 */ t64068 = *((struct w49 *)(&t64066)); f10604(t64068, t64067); /* x98586 stalin.sc:9344:321075 */ /* x98585 stalin.sc:9344:321094 */ t64122 = a23507; /* x98584 stalin.sc:9344:321076 */ f10619(t64122); /* x98548 */ /* x98547 stalin.sc:9345:321103 */ /* x98546 stalin.sc:9345:321120 */ t64065 = a23507; /* x98545 stalin.sc:9345:321104 */ f10623(t64065); l10410: goto l10377; l10376: /* x98851 */ /* x98596 */ /* x98594 */ t63885 = a23511; /* x98595 */ t63886 = q38; /* x98593 */ t63887.tag = EXTERNAL_SYMBOL_TYPE; t63887.value.external_symbol_type = t63885; t63888.tag = EXTERNAL_SYMBOL_TYPE; t63888.value.external_symbol_type = t63886; if (f26160(t63887, t63888)==FALSE_TYPE) goto l10379; /* x98644 */ /* x98643 */ /* x98642 */ /* x98608 stalin.sc:9347:321144 */ /* x98606 stalin.sc:9347:321165 */ /* x98605 stalin.sc:9347:321184 */ /* x98604 stalin.sc:9347:321205 */ t64040 = a23507; /* x98603 stalin.sc:9347:321185 */ a39159 = t64040; /* x289305 */ /* x289304 */ t64041 = a39159; /* x289303 */ if (!((t64041.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34076]"); structure_ref_error();} t64038 = t64041.value.structure_type27698->s16; /* x98602 stalin.sc:9347:321166 */ a36885 = t64038; /* x280209 */ /* x280208 */ t64039 = a36885; /* x280207 */ if (!((t64039.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31802]"); structure_ref_error();} t64037 = t64039.value.structure_type27692->s9; /* x98607 stalin.sc:9347:321209 */ /* x98601 stalin.sc:9347:321145 */ f8118(t64037); /* x98638 stalin.sc:9350:321338 */ /* x98615 stalin.sc:9350:321342 */ /* x98614 stalin.sc:9350:321349 */ /* x98613 stalin.sc:9350:321362 */ /* x98612 stalin.sc:9350:321383 */ t64044 = a23507; /* x98611 stalin.sc:9350:321363 */ a39160 = t64044; /* x289309 */ /* x289308 */ t64045 = a39160; /* x289307 */ if (!((t64045.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34077]"); structure_ref_error();} t64043 = t64045.value.structure_type27698->s16; /* x98610 stalin.sc:9350:321350 */ t64042 = f8244(t64043); /* x269681 stalin.sc:9350:321343 */ if (!((t64042.tag)==NULL_TYPE)) goto l10406; /* x98629 stalin.sc:9351:321390 */ /* x98623 stalin.sc:9352:321419 */ /* x98622 stalin.sc:9352:321428 */ /* x98621 stalin.sc:9352:321447 */ /* x98620 stalin.sc:9352:321468 */ t64059 = a23507; /* x98619 stalin.sc:9352:321448 */ a39143 = t64059; /* x289241 */ /* x289240 */ t64060 = a39143; /* x289239 */ if (!((t64060.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34060]"); structure_ref_error();} t64057 = t64060.value.structure_type27698->s16; /* x98618 stalin.sc:9352:321429 */ a36865 = t64057; /* x280129 */ /* x280128 */ t64058 = a36865; /* x280127 */ if (!((t64058.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31782]"); structure_ref_error();} t64056 = t64058.value.structure_type27692->s9; /* x98617 stalin.sc:9352:321420 */ t64052 = f8162(t64056); /* x98624 stalin.sc:9353:321476 */ t64053 = a23509; /* x98625 stalin.sc:9354:321481 */ t64054 = a23507; /* x98628 stalin.sc:9355:321486 */ /* x98627 stalin.sc:9355:321507 */ t64061 = a23507; /* x98626 stalin.sc:9355:321487 */ a39144 = t64061; /* x289245 */ /* x289244 */ t64062 = a39144; /* x289243 */ if (!((t64062.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34061]"); structure_ref_error();} t64055 = t64062.value.structure_type27698->s16; /* x98616 stalin.sc:9351:321391 */ /* MOVE: branching squeezed to general */ if (t64052>=((struct structure_type24753 *)VALUE_OFFSET)) {b23499.tag = STRUCTURE_TYPE24753; b23499.value.structure_type24753 = t64052;} else b23499.tag = (unsigned)t64052; b23500 = t64053; b23501 = t64054; b23502 = t64055; f10746(); goto l10407; l10406: /* x98637 stalin.sc:9356:321513 */ /* x98635 stalin.sc:9356:321529 */ /* x98634 stalin.sc:9356:321548 */ /* x98633 stalin.sc:9356:321569 */ t64050 = a23507; /* x98632 stalin.sc:9356:321549 */ a39145 = t64050; /* x289249 */ /* x289248 */ t64051 = a39145; /* x289247 */ if (!((t64051.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34062]"); structure_ref_error();} t64048 = t64051.value.structure_type27698->s16; /* x98631 stalin.sc:9356:321530 */ a36866 = t64048; /* x280133 */ /* x280132 */ t64049 = a36866; /* x280131 */ if (!((t64049.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31783]"); structure_ref_error();} t64046 = t64049.value.structure_type27692->s9; /* x98636 stalin.sc:9356:321573 */ t64047 = a23509; /* x98630 stalin.sc:9356:321514 */ f10617(t64046, t64047); l10407: /* x98641 stalin.sc:9357:321582 */ /* x98640 stalin.sc:9357:321601 */ t64063 = a23507; /* x98639 stalin.sc:9357:321583 */ f10619(t64063); /* x98600 */ /* x98599 stalin.sc:9358:321609 */ /* x98598 stalin.sc:9358:321626 */ t64036 = a23507; /* x98597 stalin.sc:9358:321610 */ f10623(t64036); goto l10380; l10379: /* x98850 */ /* x98648 */ /* x98646 */ t63889 = a23511; /* x98647 */ t63890 = q36; /* x98645 */ t63891.tag = EXTERNAL_SYMBOL_TYPE; t63891.value.external_symbol_type = t63889; t63892.tag = EXTERNAL_SYMBOL_TYPE; t63892.value.external_symbol_type = t63890; if (f26160(t63891, t63892)==FALSE_TYPE) goto l10382; /* x98744 */ /* x98743 */ /* x98742 */ /* x98735 stalin.sc:9368:322233 */ /* x98734 stalin.sc:9368:322261 */ /* x98733 stalin.sc:9368:322280 */ t64028 = a23507; /* x98732 stalin.sc:9368:322262 */ a38688 = t64028; /* x287421 */ /* x287420 */ t64029 = a38688; /* x287419 */ if (!((t64029.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33605]"); structure_ref_error();} t64027 = t64029.value.structure_type27698->s21; /* x98731 stalin.sc:9368:322234 */ f10634(t64027); /* x98741 stalin.sc:9369:322289 */ /* x98740 stalin.sc:9369:322326 */ /* x98739 stalin.sc:9369:322348 */ t64034 = a23507; /* x98738 stalin.sc:9369:322327 */ a38570 = t64034; /* x286949 */ /* x286948 */ t64035 = a38570; /* x286947 */ if (!((t64035.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33487]"); structure_ref_error();} t64030 = t64035.value.structure_type27698->s22; /* x98737 stalin.sc:9369:322299 */ /* x98736 stalin.sc:9369:322290 */ t64031.tag = NATIVE_PROCEDURE_TYPE7110; t64032 = *((struct w49 *)(&t64030)); t64033 = (struct structure_type24753 *)NULL_TYPE; f27755(t64031, t64032, t64033); /* x98730 */ /* x98729 stalin.sc:9370:322357 */ /* x98651 stalin.sc:9370:322363 */ /* x98650 stalin.sc:9370:322374 */ t63967 = a23507; /* x98649 stalin.sc:9370:322364 */ if (f6967(t63967)==FALSE_TYPE) goto l10397; /* x98726 */ /* x98725 */ /* x98724 */ /* x98696 stalin.sc:9371:322383 */ /* x98683 stalin.sc:9371:322400 */ /* x98682 stalin.sc:9371:322418 */ t63996 = a23507; /* x98681 stalin.sc:9371:322401 */ t63989 = f8739(t63996); /* x98688 stalin.sc:9372:322430 */ /* x98687 stalin.sc:9372:322451 */ /* x98686 stalin.sc:9372:322470 */ t63999 = a23507; /* x98685 stalin.sc:9372:322452 */ a38686 = t63999; /* x287413 */ /* x287412 */ t64000 = a38686; /* x287411 */ if (!((t64000.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33603]"); structure_ref_error();} t63997 = t64000.value.structure_type27698->s21; /* x98684 stalin.sc:9372:322431 */ a39997 = t63997; /* x292657 */ /* x292656 */ t63998 = a39997; /* x292655 */ if (!((t63998.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34914]"); structure_ref_error();} t63990 = t63998.value.structure_type27698->s10; /* x98694 stalin.sc:9373:322483 */ /* x98693 stalin.sc:9373:322508 */ /* x98692 stalin.sc:9373:322530 */ t64005 = a23507; /* x98691 stalin.sc:9373:322509 */ a38568 = t64005; /* x286941 */ /* x286940 */ t64006 = a38568; /* x286939 */ if (!((t64006.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33485]"); structure_ref_error();} t64001 = t64006.value.structure_type27698->s22; /* x98690 stalin.sc:9373:322488 */ /* x98689 stalin.sc:9373:322484 */ t64002.tag = NATIVE_PROCEDURE_TYPE7945; t64003 = *((struct w49 *)(&t64001)); t64004 = (struct structure_type24753 *)NULL_TYPE; t63991 = f27731(t64002, t64003, t64004); /* x98695 stalin.sc:9374:322543 */ t63992 = a1675; /* x98680 stalin.sc:9371:322384 */ t63993 = t63989; /* MOVE: branching squeezed to general */ if (t63991>=((struct structure_type24753 *)VALUE_OFFSET)) {t63994.tag = STRUCTURE_TYPE24753; t63994.value.structure_type24753 = t63991;} else t63994.tag = (unsigned)t63991; /* MOVE: branching squeezed to general */ if (t63992>=((struct structure_type27650 *)VALUE_OFFSET)) {t63995.tag = STRUCTURE_TYPE27650; t63995.value.structure_type27650 = t63992;} else t63995.tag = (unsigned)t63992; f10641(t63993, t63990, t63994, t63995); /* x98723 stalin.sc:9375:322557 */ /* x98715 stalin.sc:9375:322563 */ /* x98709 stalin.sc:9376:322578 */ /* x98704 stalin.sc:9376:322590 */ /* x98703 stalin.sc:9376:322615 */ /* x98702 stalin.sc:9376:322637 */ t64019 = a23507; /* x98701 stalin.sc:9376:322616 */ a38569 = t64019; /* x286945 */ /* x286944 */ t64020 = a38569; /* x286943 */ if (!((t64020.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33486]"); structure_ref_error();} t64015 = t64020.value.structure_type27698->s22; /* x98700 stalin.sc:9376:322595 */ /* x98699 stalin.sc:9376:322591 */ t64016.tag = NATIVE_PROCEDURE_TYPE7945; t64017 = *((struct w49 *)(&t64015)); t64018 = (struct structure_type24753 *)NULL_TYPE; t64010 = f27731(t64016, t64017, t64018); /* x98705 stalin.sc:9377:322645 */ t64011 = a1675; /* x98708 stalin.sc:9378:322656 */ /* x98707 stalin.sc:9378:322674 */ t64021 = a23507; /* x98706 stalin.sc:9378:322657 */ t64012 = f8739(t64021); /* x98698 stalin.sc:9376:322579 */ /* MOVE: branching squeezed to general */ if (t64010>=((struct structure_type24753 *)VALUE_OFFSET)) {t64013.tag = STRUCTURE_TYPE24753; t64013.value.structure_type24753 = t64010;} else t64013.tag = (unsigned)t64010; /* MOVE: branching squeezed to general */ if (t64011>=((struct structure_type27650 *)VALUE_OFFSET)) {t64014.tag = STRUCTURE_TYPE27650; t64014.value.structure_type27650 = t64011;} else t64014.tag = (unsigned)t64011; t64007 = f10497(t64013, t64014, t64012); /* x98714 stalin.sc:9379:322684 */ /* x98713 stalin.sc:9379:322705 */ /* x98712 stalin.sc:9379:322724 */ t64024 = a23507; /* x98711 stalin.sc:9379:322706 */ a38687 = t64024; /* x287417 */ /* x287416 */ t64025 = a38687; /* x287415 */ if (!((t64025.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33604]"); structure_ref_error();} t64022 = t64025.value.structure_type27698->s21; /* x98710 stalin.sc:9379:322685 */ a39998 = t64022; /* x292661 */ /* x292660 */ t64023 = a39998; /* x292659 */ if (!((t64023.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34915]"); structure_ref_error();} t64008 = t64023.value.structure_type27698->s10; /* x98697 stalin.sc:9375:322564 */ t64009.tag = NATIVE_PROCEDURE_TYPE17625; t64009.value.native_procedure_type17625 = t64007; if ((f8137(t64009, t64008).tag)==FALSE_TYPE) goto l10403; /* x98720 */ /* x98719 */ /* x98718 stalin.sc:9380:322736 */ /* x98717 stalin.sc:9380:322755 */ t64026 = a23507; /* x98716 stalin.sc:9380:322737 */ f10619(t64026); goto l10404; l10403: /* x98722 stalin.sc:9375:322557 */ /* x98721 stalin.sc:9375:322557 */ l10404: /* x98679 */ /* x98678 stalin.sc:9381:322765 */ /* x98670 stalin.sc:9381:322771 */ /* x98664 stalin.sc:9382:322786 */ /* x98659 stalin.sc:9382:322796 */ /* x98658 stalin.sc:9382:322821 */ /* x98657 stalin.sc:9382:322843 */ t63981 = a23507; /* x98656 stalin.sc:9382:322822 */ a38567 = t63981; /* x286937 */ /* x286936 */ t63982 = a38567; /* x286935 */ if (!((t63982.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33484]"); structure_ref_error();} t63977 = t63982.value.structure_type27698->s22; /* x98655 stalin.sc:9382:322801 */ /* x98654 stalin.sc:9382:322797 */ t63978.tag = NATIVE_PROCEDURE_TYPE7945; t63979 = *((struct w49 *)(&t63977)); t63980 = (struct structure_type24753 *)NULL_TYPE; t63971 = f27731(t63978, t63979, t63980); /* x98660 stalin.sc:9383:322856 */ t63972 = a1675; /* x98663 stalin.sc:9384:322872 */ /* x98662 stalin.sc:9384:322890 */ t63983 = a23507; /* x98661 stalin.sc:9384:322873 */ t63973 = f8739(t63983); /* x98653 stalin.sc:9382:322787 */ /* MOVE: branching squeezed to general */ if (t63971>=((struct structure_type24753 *)VALUE_OFFSET)) {t63974.tag = STRUCTURE_TYPE24753; t63974.value.structure_type24753 = t63971;} else t63974.tag = (unsigned)t63971; /* MOVE: branching squeezed to general */ if (t63972>=((struct structure_type27650 *)VALUE_OFFSET)) {t63975.tag = STRUCTURE_TYPE27650; t63975.value.structure_type27650 = t63972;} else t63975.tag = (unsigned)t63972; t63976 = t63973; t63968 = f10532(t63974, t63975, t63976); /* x98669 stalin.sc:9385:322900 */ /* x98668 stalin.sc:9385:322921 */ /* x98667 stalin.sc:9385:322940 */ t63986 = a23507; /* x98666 stalin.sc:9385:322922 */ a38685 = t63986; /* x287409 */ /* x287408 */ t63987 = a38685; /* x287407 */ if (!((t63987.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33602]"); structure_ref_error();} t63984 = t63987.value.structure_type27698->s21; /* x98665 stalin.sc:9385:322901 */ a39996 = t63984; /* x292653 */ /* x292652 */ t63985 = a39996; /* x292651 */ if (!((t63985.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34913]"); structure_ref_error();} t63969 = t63985.value.structure_type27698->s10; /* x98652 stalin.sc:9381:322772 */ t63970.tag = NATIVE_PROCEDURE_TYPE17628; t63970.value.native_procedure_type17628 = t63968; if ((f8137(t63970, t63969).tag)==FALSE_TYPE) goto l10400; /* x98675 */ /* x98674 */ /* x98673 stalin.sc:9386:322952 */ /* x98672 stalin.sc:9386:322969 */ t63988 = a23507; /* x98671 stalin.sc:9386:322953 */ f10623(t63988); goto l10401; l10400: /* x98677 stalin.sc:9381:322765 */ /* x98676 stalin.sc:9381:322765 */ l10401: goto l10398; l10397: /* x98728 stalin.sc:9370:322357 */ /* x98727 stalin.sc:9370:322357 */ l10398: goto l10383; l10382: /* x98849 */ /* x98748 */ /* x98746 */ t63893 = a23511; /* x98747 */ t63894 = q37; /* x98745 */ t63895.tag = EXTERNAL_SYMBOL_TYPE; t63895.value.external_symbol_type = t63893; t63896.tag = EXTERNAL_SYMBOL_TYPE; t63896.value.external_symbol_type = t63894; if (f26160(t63895, t63896)==FALSE_TYPE) goto l10385; /* x98844 */ /* x98843 */ /* x98842 */ /* x98835 stalin.sc:9396:323588 */ /* x98834 stalin.sc:9396:323616 */ /* x98833 stalin.sc:9396:323635 */ t63959 = a23507; /* x98832 stalin.sc:9396:323617 */ a38692 = t63959; /* x287437 */ /* x287436 */ t63960 = a38692; /* x287435 */ if (!((t63960.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33609]"); structure_ref_error();} t63958 = t63960.value.structure_type27698->s21; /* x98831 stalin.sc:9396:323589 */ f10634(t63958); /* x98841 stalin.sc:9397:323644 */ /* x98840 stalin.sc:9397:323681 */ /* x98839 stalin.sc:9397:323703 */ t63965 = a23507; /* x98838 stalin.sc:9397:323682 */ a38574 = t63965; /* x286965 */ /* x286964 */ t63966 = a38574; /* x286963 */ if (!((t63966.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33491]"); structure_ref_error();} t63961 = t63966.value.structure_type27698->s22; /* x98837 stalin.sc:9397:323654 */ /* x98836 stalin.sc:9397:323645 */ t63962.tag = NATIVE_PROCEDURE_TYPE7110; t63963 = *((struct w49 *)(&t63961)); t63964 = (struct structure_type24753 *)NULL_TYPE; f27755(t63962, t63963, t63964); /* x98830 */ /* x98829 stalin.sc:9398:323712 */ /* x98751 stalin.sc:9398:323718 */ /* x98750 stalin.sc:9398:323729 */ t63898 = a23507; /* x98749 stalin.sc:9398:323719 */ if (f6967(t63898)==FALSE_TYPE) goto l10388; /* x98826 */ /* x98825 */ /* x98824 */ /* x98796 stalin.sc:9399:323738 */ /* x98783 stalin.sc:9399:323755 */ /* x98782 stalin.sc:9399:323773 */ t63927 = a23507; /* x98781 stalin.sc:9399:323756 */ t63920 = f8739(t63927); /* x98788 stalin.sc:9400:323785 */ /* x98787 stalin.sc:9400:323806 */ /* x98786 stalin.sc:9400:323825 */ t63930 = a23507; /* x98785 stalin.sc:9400:323807 */ a38690 = t63930; /* x287429 */ /* x287428 */ t63931 = a38690; /* x287427 */ if (!((t63931.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33607]"); structure_ref_error();} t63928 = t63931.value.structure_type27698->s21; /* x98784 stalin.sc:9400:323786 */ a40000 = t63928; /* x292669 */ /* x292668 */ t63929 = a40000; /* x292667 */ if (!((t63929.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34917]"); structure_ref_error();} t63921 = t63929.value.structure_type27698->s10; /* x98794 stalin.sc:9401:323838 */ /* x98793 stalin.sc:9401:323863 */ /* x98792 stalin.sc:9401:323885 */ t63936 = a23507; /* x98791 stalin.sc:9401:323864 */ a38572 = t63936; /* x286957 */ /* x286956 */ t63937 = a38572; /* x286955 */ if (!((t63937.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33489]"); structure_ref_error();} t63932 = t63937.value.structure_type27698->s22; /* x98790 stalin.sc:9401:323843 */ /* x98789 stalin.sc:9401:323839 */ t63933.tag = NATIVE_PROCEDURE_TYPE7945; t63934 = *((struct w49 *)(&t63932)); t63935 = (struct structure_type24753 *)NULL_TYPE; t63922 = f27731(t63933, t63934, t63935); /* x98795 stalin.sc:9402:323898 */ t63923 = a1675; /* x98780 stalin.sc:9399:323739 */ t63924 = t63920; /* MOVE: branching squeezed to general */ if (t63922>=((struct structure_type24753 *)VALUE_OFFSET)) {t63925.tag = STRUCTURE_TYPE24753; t63925.value.structure_type24753 = t63922;} else t63925.tag = (unsigned)t63922; /* MOVE: branching squeezed to general */ if (t63923>=((struct structure_type27650 *)VALUE_OFFSET)) {t63926.tag = STRUCTURE_TYPE27650; t63926.value.structure_type27650 = t63923;} else t63926.tag = (unsigned)t63923; f10641(t63924, t63921, t63925, t63926); /* x98823 stalin.sc:9403:323912 */ /* x98815 stalin.sc:9403:323918 */ /* x98809 stalin.sc:9404:323933 */ /* x98804 stalin.sc:9404:323945 */ /* x98803 stalin.sc:9404:323970 */ /* x98802 stalin.sc:9404:323992 */ t63950 = a23507; /* x98801 stalin.sc:9404:323971 */ a38573 = t63950; /* x286961 */ /* x286960 */ t63951 = a38573; /* x286959 */ if (!((t63951.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33490]"); structure_ref_error();} t63946 = t63951.value.structure_type27698->s22; /* x98800 stalin.sc:9404:323950 */ /* x98799 stalin.sc:9404:323946 */ t63947.tag = NATIVE_PROCEDURE_TYPE7945; t63948 = *((struct w49 *)(&t63946)); t63949 = (struct structure_type24753 *)NULL_TYPE; t63941 = f27731(t63947, t63948, t63949); /* x98805 stalin.sc:9405:324000 */ t63942 = a1675; /* x98808 stalin.sc:9406:324011 */ /* x98807 stalin.sc:9406:324029 */ t63952 = a23507; /* x98806 stalin.sc:9406:324012 */ t63943 = f8739(t63952); /* x98798 stalin.sc:9404:323934 */ /* MOVE: branching squeezed to general */ if (t63941>=((struct structure_type24753 *)VALUE_OFFSET)) {t63944.tag = STRUCTURE_TYPE24753; t63944.value.structure_type24753 = t63941;} else t63944.tag = (unsigned)t63941; /* MOVE: branching squeezed to general */ if (t63942>=((struct structure_type27650 *)VALUE_OFFSET)) {t63945.tag = STRUCTURE_TYPE27650; t63945.value.structure_type27650 = t63942;} else t63945.tag = (unsigned)t63942; t63938 = f10497(t63944, t63945, t63943); /* x98814 stalin.sc:9407:324039 */ /* x98813 stalin.sc:9407:324060 */ /* x98812 stalin.sc:9407:324079 */ t63955 = a23507; /* x98811 stalin.sc:9407:324061 */ a38691 = t63955; /* x287433 */ /* x287432 */ t63956 = a38691; /* x287431 */ if (!((t63956.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33608]"); structure_ref_error();} t63953 = t63956.value.structure_type27698->s21; /* x98810 stalin.sc:9407:324040 */ a40001 = t63953; /* x292673 */ /* x292672 */ t63954 = a40001; /* x292671 */ if (!((t63954.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34918]"); structure_ref_error();} t63939 = t63954.value.structure_type27698->s10; /* x98797 stalin.sc:9403:323919 */ t63940.tag = NATIVE_PROCEDURE_TYPE17625; t63940.value.native_procedure_type17625 = t63938; if ((f8137(t63940, t63939).tag)==FALSE_TYPE) goto l10394; /* x98820 */ /* x98819 */ /* x98818 stalin.sc:9408:324091 */ /* x98817 stalin.sc:9408:324110 */ t63957 = a23507; /* x98816 stalin.sc:9408:324092 */ f10619(t63957); goto l10395; l10394: /* x98822 stalin.sc:9403:323912 */ /* x98821 stalin.sc:9403:323912 */ l10395: /* x98779 */ /* x98778 stalin.sc:9409:324120 */ /* x98770 stalin.sc:9409:324126 */ /* x98764 stalin.sc:9410:324141 */ /* x98759 stalin.sc:9410:324151 */ /* x98758 stalin.sc:9410:324176 */ /* x98757 stalin.sc:9410:324198 */ t63912 = a23507; /* x98756 stalin.sc:9410:324177 */ a38571 = t63912; /* x286953 */ /* x286952 */ t63913 = a38571; /* x286951 */ if (!((t63913.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33488]"); structure_ref_error();} t63908 = t63913.value.structure_type27698->s22; /* x98755 stalin.sc:9410:324156 */ /* x98754 stalin.sc:9410:324152 */ t63909.tag = NATIVE_PROCEDURE_TYPE7945; t63910 = *((struct w49 *)(&t63908)); t63911 = (struct structure_type24753 *)NULL_TYPE; t63902 = f27731(t63909, t63910, t63911); /* x98760 stalin.sc:9411:324211 */ t63903 = a1675; /* x98763 stalin.sc:9412:324227 */ /* x98762 stalin.sc:9412:324245 */ t63914 = a23507; /* x98761 stalin.sc:9412:324228 */ t63904 = f8739(t63914); /* x98753 stalin.sc:9410:324142 */ /* MOVE: branching squeezed to general */ if (t63902>=((struct structure_type24753 *)VALUE_OFFSET)) {t63905.tag = STRUCTURE_TYPE24753; t63905.value.structure_type24753 = t63902;} else t63905.tag = (unsigned)t63902; /* MOVE: branching squeezed to general */ if (t63903>=((struct structure_type27650 *)VALUE_OFFSET)) {t63906.tag = STRUCTURE_TYPE27650; t63906.value.structure_type27650 = t63903;} else t63906.tag = (unsigned)t63903; t63907 = t63904; t63899 = f10532(t63905, t63906, t63907); /* x98769 stalin.sc:9413:324255 */ /* x98768 stalin.sc:9413:324276 */ /* x98767 stalin.sc:9413:324295 */ t63917 = a23507; /* x98766 stalin.sc:9413:324277 */ a38689 = t63917; /* x287425 */ /* x287424 */ t63918 = a38689; /* x287423 */ if (!((t63918.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33606]"); structure_ref_error();} t63915 = t63918.value.structure_type27698->s21; /* x98765 stalin.sc:9413:324256 */ a39999 = t63915; /* x292665 */ /* x292664 */ t63916 = a39999; /* x292663 */ if (!((t63916.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34916]"); structure_ref_error();} t63900 = t63916.value.structure_type27698->s10; /* x98752 stalin.sc:9409:324127 */ t63901.tag = NATIVE_PROCEDURE_TYPE17628; t63901.value.native_procedure_type17628 = t63899; if ((f8137(t63901, t63900).tag)==FALSE_TYPE) goto l10391; /* x98775 */ /* x98774 */ /* x98773 stalin.sc:9414:324307 */ /* x98772 stalin.sc:9414:324324 */ t63919 = a23507; /* x98771 stalin.sc:9414:324308 */ f10623(t63919); goto l10392; l10391: /* x98777 stalin.sc:9409:324120 */ /* x98776 stalin.sc:9409:324120 */ l10392: goto l10389; l10388: /* x98828 stalin.sc:9398:323712 */ /* x98827 stalin.sc:9398:323712 */ l10389: goto l10386; l10385: /* x98848 */ /* x98847 */ /* x98846 stalin.sc:9415:324340 */ /* x98845 stalin.sc:9415:324341 */ /* x296825 QobiScheme.sc:166:5314 */ /* x296824 QobiScheme.sc:166:5321 */ t63897 = "This shouldn\'t happen"; /* x296823 QobiScheme.sc:166:5315 */ stalin_panic(t63897); l10386: l10383: l10380: l10377: l10374: l10371: l10368: l10363: l10360: l10357: l10354: l10351: l10348: l10345: l10342: l10339: l10336: l10333: l10330: /* x97888 */ /* x97887 stalin.sc:9416:324355 */ /* x97885 stalin.sc:9416:324382 */ t63809 = a23507; /* x97886 stalin.sc:9416:324384 */ /* x97884 stalin.sc:9416:324356 */ t63810 = TRUE_TYPE; f6932(t63809, t63810); goto l10327; l10326: /* x98888 stalin.sc:9214:316093 */ /* x98887 stalin.sc:9214:316093 */ l10327: /* x98918 */ /* x98917 stalin.sc:9430:324693 */ /* x98916 stalin.sc:9430:324694 */ goto h10880; l10321: /* x98945 stalin.sc:9425:324539 */ /* x98944 stalin.sc:9425:324539 */ return;} /* PUSH![10873] */ void f10873(struct w49 a23569) {struct w49 a40123; /* S */ struct w49 t64427; struct w49 t64428; struct w49 t64429; struct w49 t64430; /* x98910 stalin.sc:9419:324410 */ /* x98894 stalin.sc:9419:324418 */ /* x98893 stalin.sc:9419:324435 */ t64427 = a23569; /* x98892 stalin.sc:9419:324419 */ a40123 = t64427; /* x293161 */ /* x293160 */ t64428 = a40123; /* x293159 */ if (!((t64428.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LINK[5551] 35040]"); structure_ref_error();} if ((t64428.value.structure_type27698->s8.tag)==FALSE_TYPE) goto l10524; /* x98896 */ /* x98895 */ return; l10524: /* x98909 */ /* x98908 */ /* x98907 */ /* x98906 stalin.sc:9420:324440 */ /* x98901 stalin.sc:9420:324462 */ t64429 = a23569; /* x98905 stalin.sc:9420:324464 */ /* x98902 stalin.sc:9420:324468 */ if ((a2025.tag)==FALSE_TYPE) goto l10526; /* x98903 stalin.sc:9420:324473 */ t64430 = a2025; goto l10527; l10526: /* x98904 stalin.sc:9420:324478 */ t64430.tag = TRUE_TYPE; l10527: /* x98900 stalin.sc:9420:324441 */ f5552(t64429, t64430); /* x98899 */ /* x98898 stalin.sc:9421:324485 */ /* x98897 stalin.sc:9421:324496 */ a2025 = a23569; return;} /* [inside ASSERT-TYPES-IN-CONTEXT! 10752] */ void f10752(struct p10746 *p10752, struct w49 a23506) {struct w49 t64431; struct w49 t64432; /* x97796 stalin.sc:9204:315682 */ /* x97794 stalin.sc:9204:315698 */ t64431 = a23506; /* x97795 stalin.sc:9204:315700 */ t64432 = p10752->a23500; /* x97793 stalin.sc:9204:315683 */ f10604(t64431, t64432); return;} /* ASSERT-TYPES-IN-CONTEXT![10746] */ void f10746(void) {struct w12224 a23499 = b23499; /* US */ struct w49 a23500 = b23500; /* W */ struct w49 a23501 = b23501; /* X */ struct w49 a23502 = b23502; /* G */ char *a23503; /* v */ struct w49 a38913; /* S */ struct w49 a38967; /* S */ struct w49 a39488; /* S */ struct w49 a39747; /* S */ struct w49 a39748; /* S */ struct w49 a39752; /* S */ struct w49 a39753; /* S */ struct w49 a39754; /* S */ struct w49 a39755; /* S */ struct w49 a39756; /* S */ struct w49 a39757; /* S */ struct w49 a40310; /* S */ struct w49 a40418; /* OBJ */ struct w49 t64433; struct w49 t64434; struct w49 t64435; struct w49 t64436; struct p10746 *t64437; struct p10746 *t64438; char *t64439; char *t64440; char *t64441; struct w49 t64442; struct w49 t64443; char *t64444; char *t64445; struct w49 t64446; struct w49 t64447; char *t64448; char *t64449; struct w49 t64450; struct w49 t64451; char *t64452; char *t64453; struct w49 t64454; struct w49 t64455; struct p10746 *t64456; struct w12224 t64457; struct w49 t64458; struct w49 t64459; struct w49 t64460; struct w49 t64461; struct w49 t64462; struct p10746 *t64463; struct w49 t64464; struct w49 t64465; struct w49 t64466; struct w49 t64467; struct w49 t64468; struct w49 t64469; struct w49 t64470; struct w49 t64471; struct w49 t64472; struct w49 t64473; struct w49 t64474; struct w49 t64475; struct p10746 *t64476; struct w12224 t64477; struct w49 t64478; struct w49 t64479; struct w49 t64480; struct w49 t64481; struct w49 t64482; struct p10746 *t64483; struct w12224 t64484; struct w49 t64485; struct w49 t64486; struct w49 t64487; struct p10746 *t64488; struct w12224 t64489; struct w49 t64490; struct w49 t64491; struct w49 t64492; struct p10746 *t64493; struct w9140 t64494; struct w49 t64495; struct w49 t64496; struct w49 t64497; struct w49 t64498; struct w49 t64499; struct p10746 *t64500; struct w12224 t64501; struct w36108 t64502; struct w49 t64503; struct structure_type24753 *t64504; struct w12224 t64505; struct w49 t64506; struct w49 t64507; struct w49 t64508; struct w49 t64509; struct w49 t64510; struct w49 t64511; struct w49 t64512; struct w49 t64513; struct w49 t64514; struct p10746 *e10746; struct p10746 *p10747; struct p10746 *p10748; struct p10746 *p10751; struct p10746 *p10753; struct p10746 *p10754; struct p10746 *p10755; struct p10746 *p10756; struct p10746 *p10757; h10746: e10746 = (struct p10746 *)GC_malloc(sizeof(struct p10746)); if (e10746==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e10746->a23500 = a23500; /* x97878 stalin.sc:9197:315266 */ /* x97754 stalin.sc:9197:315272 */ /* x97753 stalin.sc:9197:315285 */ /* x97752 stalin.sc:9197:315304 */ t64435 = a23501; /* x97751 stalin.sc:9197:315286 */ a39757 = t64435; /* x291697 */ /* x291696 */ t64436 = a39757; /* x291695 */ if (!((t64436.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34674]"); structure_ref_error();} t64433 = t64436.value.structure_type27698->s11; /* x97750 stalin.sc:9197:315273 */ a40418 = t64433; /* x294341 */ /* x294340 */ t64434 = a40418; /* x294339 */ if (!((t64434.tag)==STRUCTURE_TYPE27698)) goto l10529; /* x97875 */ /* x97874 */ t64437 = e10746; p10747 = t64437; /* x97873 stalin.sc:9198:315310 */ /* x97872 stalin.sc:9198:315316 */ /* x97871 stalin.sc:9198:315333 */ /* x97870 stalin.sc:9198:315352 */ t64513 = a23501; /* x97869 stalin.sc:9198:315334 */ a39756 = t64513; /* x291693 */ /* x291692 */ t64514 = a39756; /* x291691 */ if (!((t64514.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34673]"); structure_ref_error();} t64511 = t64514.value.structure_type27698->s11; /* x97868 stalin.sc:9198:315317 */ a40310 = t64511; /* x293909 */ /* x293908 */ t64512 = a40310; /* x293907 */ if (!((t64512.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35227]"); structure_ref_error();} t64439 = t64512.value.structure_type27698->s0; /* x97867 */ t64438 = p10747; p10748 = t64438; a23503 = t64439; /* x97866 */ /* x97776 */ /* x97775 */ /* x97773 */ t64440 = a23503; /* x97774 */ t64441 = q39; /* x97772 */ t64442.tag = EXTERNAL_SYMBOL_TYPE; t64442.value.external_symbol_type = t64440; t64443.tag = EXTERNAL_SYMBOL_TYPE; t64443.value.external_symbol_type = t64441; if (!(f26160(t64442, t64443)==FALSE_TYPE)) goto l10530; /* x97769 */ /* x97768 */ /* x97766 */ t64444 = a23503; /* x97767 */ t64445 = q40; /* x97765 */ t64446.tag = EXTERNAL_SYMBOL_TYPE; t64446.value.external_symbol_type = t64444; t64447.tag = EXTERNAL_SYMBOL_TYPE; t64447.value.external_symbol_type = t64445; if (!(f26160(t64446, t64447)==FALSE_TYPE)) goto l10530; /* x97762 */ /* x97760 */ t64448 = a23503; /* x97761 */ t64449 = q41; /* x97759 */ t64450.tag = EXTERNAL_SYMBOL_TYPE; t64450.value.external_symbol_type = t64448; t64451.tag = EXTERNAL_SYMBOL_TYPE; t64451.value.external_symbol_type = t64449; if (f26160(t64450, t64451)==FALSE_TYPE) goto l10531; l10530: /* x97802 */ /* x97801 */ t64493 = p10748; p10751 = t64493; /* x97800 stalin.sc:9202:315537 */ /* x97783 stalin.sc:9202:315541 */ /* x97782 stalin.sc:9202:315547 */ /* x97781 stalin.sc:9202:315578 */ /* x97780 stalin.sc:9202:315597 */ t64498 = a23501; /* x97779 stalin.sc:9202:315579 */ a39748 = t64498; /* x291661 */ /* x291660 */ t64499 = a39748; /* x291659 */ if (!((t64499.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34665]"); structure_ref_error();} t64496 = t64499.value.structure_type27698->s11; /* x97778 stalin.sc:9202:315548 */ a39488 = t64496; /* x290621 */ /* x290620 */ t64497 = a39488; /* x290619 */ if (!((t64497.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34405]"); structure_ref_error();} t64494 = t64497.value.structure_type27698->s13; /* x97777 stalin.sc:9202:315542 */ t64495 = *((struct w49 *)(&t64494)); if (f8903(t64495)==FALSE_TYPE) goto l10541; /* x97791 stalin.sc:9203:315603 */ /* x97785 stalin.sc:9203:315629 */ t64505 = a23499; /* x97786 stalin.sc:9203:315632 */ t64506 = p10751->a23500; /* x97789 stalin.sc:9203:315634 */ /* x97788 stalin.sc:9203:315653 */ t64509 = a23501; /* x97787 stalin.sc:9203:315635 */ a39747 = t64509; /* x291657 */ /* x291656 */ t64510 = a39747; /* x291655 */ if (!((t64510.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34664]"); structure_ref_error();} t64507 = t64510.value.structure_type27698->s11; /* x97790 stalin.sc:9203:315656 */ t64508 = a23502; /* x97784 stalin.sc:9203:315604 */ a23499 = t64505; a23500 = t64506; a23501 = t64507; a23502 = t64508; goto h10746; l10541: /* x97799 stalin.sc:9204:315660 */ /* x97798 stalin.sc:9204:315704 */ t64501 = a23499; /* x97797 stalin.sc:9204:315670 */ t64500 = p10751; /* x97792 stalin.sc:9204:315661 */ t64502.tag = NATIVE_PROCEDURE_TYPE18402; t64502.value.native_procedure_type18402 = t64500; t64503 = *((struct w49 *)(&t64501)); t64504 = (struct structure_type24753 *)NULL_TYPE; f27755(t64502, t64503, t64504); return; l10531: /* x97865 */ /* x97806 */ /* x97804 */ t64452 = a23503; /* x97805 */ t64453 = q43; /* x97803 */ t64454.tag = EXTERNAL_SYMBOL_TYPE; t64454.value.external_symbol_type = t64452; t64455.tag = EXTERNAL_SYMBOL_TYPE; t64455.value.external_symbol_type = t64453; if (f26160(t64454, t64455)==FALSE_TYPE) goto l10535; /* x97854 */ /* x97853 */ t64463 = p10748; p10753 = t64463; /* x97852 stalin.sc:9206:315723 */ /* x97814 stalin.sc:9206:315730 */ /* x97808 stalin.sc:9206:315735 */ t64464 = a23501; /* x97813 stalin.sc:9206:315737 */ /* x97812 stalin.sc:9206:315760 */ /* x97811 stalin.sc:9206:315779 */ t64468 = a23501; /* x97810 stalin.sc:9206:315761 */ a39754 = t64468; /* x291685 */ /* x291684 */ t64469 = a39754; /* x291683 */ if (!((t64469.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34671]"); structure_ref_error();} t64466 = t64469.value.structure_type27698->s11; /* x97809 stalin.sc:9206:315738 */ a38967 = t64466; /* x288537 */ /* x288536 */ t64467 = a38967; /* x288535 */ if (!((t64467.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33884]"); structure_ref_error();} t64465 = t64467.value.structure_type27698->s19; /* x269688 stalin.sc:9206:315731 */ /* EQ: dispatching general to general */ if (!((t64464.tag)==(t64465.tag))) goto l10537; switch (t64464.tag) {case FIXNUM_TYPE: if (!((t64464.value.fixnum_type)==(t64465.value.fixnum_type))) goto l10537; break; case FLONUM_TYPE: if (!((t64464.value.flonum_type)==(t64465.value.flonum_type))) goto l10537; break; case INPUT_PORT_TYPE: if (!((t64464.value.input_port_type)==(t64465.value.input_port_type))) goto l10537; break; case OUTPUT_PORT_TYPE: if (!((t64464.value.output_port_type)==(t64465.value.output_port_type))) goto l10537; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t64464.value.native_procedure_type15963)==(t64465.value.native_procedure_type15963))) goto l10537; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t64464.value.native_procedure_type19067)==(t64465.value.native_procedure_type19067))) goto l10537; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t64464.value.native_procedure_type19068)==(t64465.value.native_procedure_type19068))) goto l10537; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t64464.value.native_procedure_type22459)==(t64465.value.native_procedure_type22459))) goto l10537; break; case STRUCTURE_TYPE24753: if (!((t64464.value.structure_type24753)==(t64465.value.structure_type24753))) goto l10537; break; case STRUCTURE_TYPE24757: if (!((t64464.value.structure_type24757)==(t64465.value.structure_type24757))) goto l10537; break; case STRUCTURE_TYPE27501: if (!((t64464.value.structure_type27501)==(t64465.value.structure_type27501))) goto l10537; break; case STRUCTURE_TYPE27510: if (!((t64464.value.structure_type27510)==(t64465.value.structure_type27510))) goto l10537; break; case STRUCTURE_TYPE27621: if (!((t64464.value.structure_type27621)==(t64465.value.structure_type27621))) goto l10537; break; case STRUCTURE_TYPE27650: if (!((t64464.value.structure_type27650)==(t64465.value.structure_type27650))) goto l10537; break; case STRUCTURE_TYPE27669: if (!((t64464.value.structure_type27669)==(t64465.value.structure_type27669))) goto l10537; break; case STRUCTURE_TYPE27673: if (!((t64464.value.structure_type27673)==(t64465.value.structure_type27673))) goto l10537; break; case STRUCTURE_TYPE27692: if (!((t64464.value.structure_type27692)==(t64465.value.structure_type27692))) goto l10537; break; case STRUCTURE_TYPE27694: if (!((t64464.value.structure_type27694)==(t64465.value.structure_type27694))) goto l10537; break; case STRUCTURE_TYPE27698: if (!((t64464.value.structure_type27698)==(t64465.value.structure_type27698))) goto l10537; break; case STRUCTURE_TYPE27745: if (!((t64464.value.structure_type27745)==(t64465.value.structure_type27745))) goto l10537; break; case STRUCTURE_TYPE27747: if (!((t64464.value.structure_type27747)==(t64465.value.structure_type27747))) goto l10537; break; case STRUCTURE_TYPE27750: if (!((t64464.value.structure_type27750)==(t64465.value.structure_type27750))) goto l10537; break; case STRUCTURE_TYPE27753: if (!((t64464.value.structure_type27753)==(t64465.value.structure_type27753))) goto l10537; break; case STRUCTURE_TYPE27756: if (!((t64464.value.structure_type27756)==(t64465.value.structure_type27756))) goto l10537; break; case STRUCTURE_TYPE27761: if (!((t64464.value.structure_type27761)==(t64465.value.structure_type27761))) goto l10537; break; case STRUCTURE_TYPE27769: if (!((t64464.value.structure_type27769)==(t64465.value.structure_type27769))) goto l10537; break; case STRUCTURE_TYPE27776: if (!((t64464.value.structure_type27776)==(t64465.value.structure_type27776))) goto l10537; break; case STRUCTURE_TYPE27779: if (!((t64464.value.structure_type27779)==(t64465.value.structure_type27779))) goto l10537; break; case STRUCTURE_TYPE27858: if (!((t64464.value.structure_type27858)==(t64465.value.structure_type27858))) goto l10537; break; case STRING_TYPE: if (!((t64464.value.string_type)==(t64465.value.string_type))) goto l10537; break; case HEADED_VECTOR_TYPE27896: if (!((t64464.value.headed_vector_type27896)==(t64465.value.headed_vector_type27896))) goto l10537; break; case EXTERNAL_SYMBOL_TYPE: if (!((t64464.value.external_symbol_type)==(t64465.value.external_symbol_type))) goto l10537; break; case STRUCTURE_TYPE27908: if (!((t64464.value.structure_type27908)==(t64465.value.structure_type27908))) goto l10537; break; default:;} /* x97823 */ /* x97822 */ t64488 = p10753; p10754 = t64488; /* x97821 stalin.sc:9207:315788 */ /* x97816 stalin.sc:9207:315817 */ t64489 = a23499; /* x97817 stalin.sc:9207:315820 */ t64490 = p10754->a23500; /* x97818 stalin.sc:9207:315822 */ t64491 = a23501; /* x97819 stalin.sc:9207:315824 */ t64492 = a23502; /* x97820 stalin.sc:9207:315826 */ /* x97815 stalin.sc:9207:315789 */ b23478 = t64489; b23479 = t64490; b23480 = t64491; b23481 = t64492; b23482 = TRUE_TYPE; f10716(); return; l10537: /* x97851 */ /* x97831 stalin.sc:9208:315835 */ /* x97825 stalin.sc:9208:315840 */ t64470 = a23501; /* x97830 stalin.sc:9208:315842 */ /* x97829 stalin.sc:9208:315864 */ /* x97828 stalin.sc:9208:315883 */ t64474 = a23501; /* x97827 stalin.sc:9208:315865 */ a39753 = t64474; /* x291681 */ /* x291680 */ t64475 = a39753; /* x291679 */ if (!((t64475.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34670]"); structure_ref_error();} t64472 = t64475.value.structure_type27698->s11; /* x97826 stalin.sc:9208:315843 */ a38913 = t64472; /* x288321 */ /* x288320 */ t64473 = a38913; /* x288319 */ if (!((t64473.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33830]"); structure_ref_error();} t64471 = t64473.value.structure_type27698->s20; /* x269687 stalin.sc:9208:315836 */ /* EQ: dispatching general to general */ if (!((t64470.tag)==(t64471.tag))) goto l10539; switch (t64470.tag) {case FIXNUM_TYPE: if (!((t64470.value.fixnum_type)==(t64471.value.fixnum_type))) goto l10539; break; case FLONUM_TYPE: if (!((t64470.value.flonum_type)==(t64471.value.flonum_type))) goto l10539; break; case INPUT_PORT_TYPE: if (!((t64470.value.input_port_type)==(t64471.value.input_port_type))) goto l10539; break; case OUTPUT_PORT_TYPE: if (!((t64470.value.output_port_type)==(t64471.value.output_port_type))) goto l10539; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t64470.value.native_procedure_type15963)==(t64471.value.native_procedure_type15963))) goto l10539; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t64470.value.native_procedure_type19067)==(t64471.value.native_procedure_type19067))) goto l10539; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t64470.value.native_procedure_type19068)==(t64471.value.native_procedure_type19068))) goto l10539; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t64470.value.native_procedure_type22459)==(t64471.value.native_procedure_type22459))) goto l10539; break; case STRUCTURE_TYPE24753: if (!((t64470.value.structure_type24753)==(t64471.value.structure_type24753))) goto l10539; break; case STRUCTURE_TYPE24757: if (!((t64470.value.structure_type24757)==(t64471.value.structure_type24757))) goto l10539; break; case STRUCTURE_TYPE27501: if (!((t64470.value.structure_type27501)==(t64471.value.structure_type27501))) goto l10539; break; case STRUCTURE_TYPE27510: if (!((t64470.value.structure_type27510)==(t64471.value.structure_type27510))) goto l10539; break; case STRUCTURE_TYPE27621: if (!((t64470.value.structure_type27621)==(t64471.value.structure_type27621))) goto l10539; break; case STRUCTURE_TYPE27650: if (!((t64470.value.structure_type27650)==(t64471.value.structure_type27650))) goto l10539; break; case STRUCTURE_TYPE27669: if (!((t64470.value.structure_type27669)==(t64471.value.structure_type27669))) goto l10539; break; case STRUCTURE_TYPE27673: if (!((t64470.value.structure_type27673)==(t64471.value.structure_type27673))) goto l10539; break; case STRUCTURE_TYPE27692: if (!((t64470.value.structure_type27692)==(t64471.value.structure_type27692))) goto l10539; break; case STRUCTURE_TYPE27694: if (!((t64470.value.structure_type27694)==(t64471.value.structure_type27694))) goto l10539; break; case STRUCTURE_TYPE27698: if (!((t64470.value.structure_type27698)==(t64471.value.structure_type27698))) goto l10539; break; case STRUCTURE_TYPE27745: if (!((t64470.value.structure_type27745)==(t64471.value.structure_type27745))) goto l10539; break; case STRUCTURE_TYPE27747: if (!((t64470.value.structure_type27747)==(t64471.value.structure_type27747))) goto l10539; break; case STRUCTURE_TYPE27750: if (!((t64470.value.structure_type27750)==(t64471.value.structure_type27750))) goto l10539; break; case STRUCTURE_TYPE27753: if (!((t64470.value.structure_type27753)==(t64471.value.structure_type27753))) goto l10539; break; case STRUCTURE_TYPE27756: if (!((t64470.value.structure_type27756)==(t64471.value.structure_type27756))) goto l10539; break; case STRUCTURE_TYPE27761: if (!((t64470.value.structure_type27761)==(t64471.value.structure_type27761))) goto l10539; break; case STRUCTURE_TYPE27769: if (!((t64470.value.structure_type27769)==(t64471.value.structure_type27769))) goto l10539; break; case STRUCTURE_TYPE27776: if (!((t64470.value.structure_type27776)==(t64471.value.structure_type27776))) goto l10539; break; case STRUCTURE_TYPE27779: if (!((t64470.value.structure_type27779)==(t64471.value.structure_type27779))) goto l10539; break; case STRUCTURE_TYPE27858: if (!((t64470.value.structure_type27858)==(t64471.value.structure_type27858))) goto l10539; break; case STRING_TYPE: if (!((t64470.value.string_type)==(t64471.value.string_type))) goto l10539; break; case HEADED_VECTOR_TYPE27896: if (!((t64470.value.headed_vector_type27896)==(t64471.value.headed_vector_type27896))) goto l10539; break; case EXTERNAL_SYMBOL_TYPE: if (!((t64470.value.external_symbol_type)==(t64471.value.external_symbol_type))) goto l10539; break; case STRUCTURE_TYPE27908: if (!((t64470.value.structure_type27908)==(t64471.value.structure_type27908))) goto l10539; break; default:;} /* x97840 */ /* x97839 */ t64483 = p10753; p10755 = t64483; /* x97838 stalin.sc:9209:315892 */ /* x97833 stalin.sc:9209:315921 */ t64484 = a23499; /* x97834 stalin.sc:9209:315924 */ t64485 = p10755->a23500; /* x97835 stalin.sc:9209:315926 */ t64486 = a23501; /* x97836 stalin.sc:9209:315928 */ t64487 = a23502; /* x97837 stalin.sc:9209:315930 */ /* x97832 stalin.sc:9209:315893 */ b23478 = t64484; b23479 = t64485; b23480 = t64486; b23481 = t64487; b23482 = FALSE_TYPE; f10716(); return; l10539: /* x97850 */ /* x97849 */ t64476 = p10753; p10756 = t64476; /* x97848 stalin.sc:9210:315944 */ /* x97842 stalin.sc:9210:315970 */ t64477 = a23499; /* x97843 stalin.sc:9210:315973 */ t64478 = p10756->a23500; /* x97846 stalin.sc:9210:315975 */ /* x97845 stalin.sc:9210:315994 */ t64481 = a23501; /* x97844 stalin.sc:9210:315976 */ a39752 = t64481; /* x291677 */ /* x291676 */ t64482 = a39752; /* x291675 */ if (!((t64482.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34669]"); structure_ref_error();} t64479 = t64482.value.structure_type27698->s11; /* x97847 stalin.sc:9210:315997 */ t64480 = a23502; /* x97841 stalin.sc:9210:315945 */ a23499 = t64477; a23500 = t64478; a23501 = t64479; a23502 = t64480; goto h10746; l10535: /* x97864 */ /* x97863 */ t64456 = p10748; p10757 = t64456; /* x97862 stalin.sc:9211:316012 */ /* x97856 stalin.sc:9211:316038 */ t64457 = a23499; /* x97857 stalin.sc:9211:316041 */ t64458 = p10757->a23500; /* x97860 stalin.sc:9211:316043 */ /* x97859 stalin.sc:9211:316062 */ t64461 = a23501; /* x97858 stalin.sc:9211:316044 */ a39755 = t64461; /* x291689 */ /* x291688 */ t64462 = a39755; /* x291687 */ if (!((t64462.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34672]"); structure_ref_error();} t64459 = t64462.value.structure_type27698->s11; /* x97861 stalin.sc:9211:316065 */ t64460 = a23502; /* x97855 stalin.sc:9211:316013 */ a23499 = t64457; a23500 = t64458; a23501 = t64459; a23502 = t64460; goto h10746; l10529: /* x97877 stalin.sc:9197:315266 */ /* x97876 stalin.sc:9197:315266 */ return;} /* ASSERT-TYPES-IN-IF-CONTEXT![10716] */ void f10716(void) {struct w12224 a23478 = b23478; /* US */ struct w49 a23479 = b23479; /* W */ struct w49 a23480 = b23480; /* X */ struct w49 a23481 = b23481; /* G */ unsigned a23482 = b23482; /* P? */ char *sfp10724; struct w49 a23483; /* X1 */ struct w49 a23485; /* X2 */ struct w11873 a35925; /* PAIR */ struct w11873 a36088; /* PAIR */ struct w49 a38532; /* S */ struct w49 a38555; /* S */ struct w49 a38556; /* S */ struct w49 a38636; /* S */ struct w49 a38660; /* S */ struct w49 a38661; /* S */ struct w49 a38662; /* S */ struct w49 a39022; /* S */ struct w49 a39142; /* S */ struct w49 a39729; /* S */ struct w49 a39749; /* S */ struct w49 a39750; /* S */ struct w49 a39751; /* S */ struct w49 a39908; /* S */ struct w49 a39978; /* S */ struct w49 a39979; /* S */ struct w49 a39980; /* S */ struct w49 a40285; /* S */ struct w49 a40307; /* S */ struct w49 a40308; /* S */ struct w49 a40309; /* S */ struct p10716 *t64515; struct w49 t64516; char *t64517; char *t64518; struct w49 t64519; struct w49 t64520; char *t64521; char *t64522; struct w49 t64523; struct w49 t64524; struct p10716 *t64525; struct w12224 t64526; struct w49 t64527; struct w49 t64528; struct w49 t64529; struct w49 t64530; struct w49 t64531; struct p10717 *t64532; struct w12224 t64533; struct w49 t64534; struct w49 t64535; struct w49 t64536; struct w49 t64537; struct w49 t64538; struct w49 t64539; struct w49 t64540; unsigned t64541; struct w12224 t64542; struct w227671 t64543; struct w49 t64544; struct w49 t64545; struct w49 t64546; struct p10717 *t64547; struct w49 t64548; int t64549; int t64550; struct w11873 t64551; struct w49 t64552; struct w49 t64553; struct w49 t64554; char *t64555; char *t64556; struct w49 t64557; struct w49 t64558; struct w11873 t64559; struct w11873 t64560; struct w49 t64561; struct w49 t64562; struct p10717 *t64563; struct p10717 *t64564; struct w49 t64565; struct w211045 t64566; struct w49 t64567; struct w49 t64568; struct w49 t64569; struct w49 t64570; struct p10717 *t64571; struct p10717 *t64572; struct p7708 *t64573; struct w49 t64574; struct w211235 t64575; char *t64576; struct w49 t64577; struct w49 t64578; struct w49 t64579; struct w49 t64580; struct w49 t64581; struct p10716 *t64582; struct w12224 t64583; struct w49 t64584; struct w49 t64585; struct w49 t64586; struct w49 t64587; struct w49 t64588; struct p7708 *t64589; struct w49 t64590; struct w211257 t64591; char *t64592; struct w49 t64593; struct w49 t64594; struct w49 t64595; struct w49 t64596; struct w49 t64597; struct p10717 *t64598; struct p10716 *t64599; struct w49 t64600; char *t64601; char *t64602; struct w49 t64603; struct w49 t64604; struct p10724 *t64605; struct p10724 *t64606; struct w49 t64607; struct w211045 t64608; struct w49 t64609; struct w49 t64610; struct w49 t64611; struct w49 t64612; struct w11873 t64613; struct w11873 t64614; struct w49 t64615; struct w49 t64616; struct w49 t64617; struct w49 t64618; struct w49 t64619; struct w49 t64620; struct p10716 *e10716; struct p10717 *e10717; struct p10724 *e10724; struct p10716 *p10717; struct p10717 *p10718; struct p10717 *p10719; struct p10717 *p10720; struct p10716 *p10721; struct p10717 *p10723; struct p10716 *p10724; struct p10724 *p10725; struct p10717 *p10735; struct p10717 *p10743; struct p10716 *p10745; e10716 = (struct p10716 *)GC_malloc(sizeof(struct p10716)); if (e10716==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e10716->a23478 = a23478; e10716->a23479 = a23479; e10716->a23480 = a23480; e10716->a23481 = a23481; e10716->a23482 = a23482; /* x97747 stalin.sc:9108:311938 */ /* x97746 stalin.sc:9108:311948 */ /* x97745 stalin.sc:9108:311971 */ /* x97744 stalin.sc:9108:311990 */ t64619 = e10716->a23480; /* x97743 stalin.sc:9108:311972 */ a39751 = t64619; /* x291673 */ /* x291672 */ t64620 = a39751; /* x291671 */ if (!((t64620.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34668]"); structure_ref_error();} t64617 = t64620.value.structure_type27698->s11; /* x97742 stalin.sc:9108:311949 */ a39022 = t64617; /* x288757 */ /* x288756 */ t64618 = a39022; /* x288755 */ if (!((t64618.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33939]"); structure_ref_error();} t64516 = t64618.value.structure_type27698->s18; /* x97741 */ t64515 = e10716; p10717 = t64515; a23483 = t64516; e10717 = (struct p10717 *)GC_malloc(sizeof(struct p10717)); if (e10717==NULL) {backtrace_internal("ASSERT-TYPES-IN-IF-CONTEXT![10716]"); out_of_memory_error();} e10717->p10716 = p10717; e10717->a23483 = a23483; /* x97740 stalin.sc:9111:312145 */ /* x97351 stalin.sc:9112:312155 */ /* x97349 stalin.sc:9112:312160 */ /* x97348 stalin.sc:9112:312177 */ t64519 = e10717->a23483; /* x97347 stalin.sc:9112:312161 */ a40309 = t64519; /* x293905 */ /* x293904 */ t64520 = a40309; /* x293903 */ if (!((t64520.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35226]"); structure_ref_error();} t64517 = t64520.value.structure_type27698->s0; /* x97350 stalin.sc:9112:312181 */ t64518 = q36; /* x269704 stalin.sc:9112:312156 */ if (!(t64517==t64518)) goto l10543; /* x97693 */ /* x97692 */ t64547 = e10717; p10718 = t64547; /* x97691 stalin.sc:9113:312192 */ /* x97378 stalin.sc:9114:312204 */ /* x97356 stalin.sc:9114:312209 */ /* x97355 stalin.sc:9114:312214 */ /* x97354 stalin.sc:9114:312226 */ t64548 = p10718->a23483; /* x97353 stalin.sc:9114:312215 */ if (!(f8944(t64548)==FALSE_TYPE)) goto l10553; /* x97376 */ /* x97364 stalin.sc:9115:312235 */ /* x97362 stalin.sc:9115:312238 */ /* x97361 stalin.sc:9115:312246 */ /* x97360 stalin.sc:9115:312268 */ t64553 = p10718->a23483; /* x97359 stalin.sc:9115:312247 */ a38556 = t64553; /* x286893 */ /* x286892 */ t64554 = a38556; /* x286891 */ if (!((t64554.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33473]"); structure_ref_error();} t64551 = t64554.value.structure_type27698->s22; /* x97358 stalin.sc:9115:312239 */ t64552 = *((struct w49 *)(&t64551)); t64549 = f26227(t64552); /* x97363 stalin.sc:9115:312273 */ t64550 = 1; /* x269702 stalin.sc:9115:312236 */ if (!(t64549==t64550)) goto l10553; /* x97374 */ /* x97372 stalin.sc:9116:312285 */ /* x97371 stalin.sc:9116:312302 */ /* x97370 stalin.sc:9116:312309 */ /* x97369 stalin.sc:9116:312331 */ t64561 = p10718->a23483; /* x97368 stalin.sc:9116:312310 */ a38555 = t64561; /* x286889 */ /* x286888 */ t64562 = a38555; /* x286887 */ if (!((t64562.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33472]"); structure_ref_error();} t64559 = t64562.value.structure_type27698->s22; /* x97367 stalin.sc:9116:312303 */ a36088 = t64559; /* x275709 */ /* x275708 */ t64560 = a36088; /* x275707 */ if (!((t64560.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30237]"); structure_ref_error();} t64557 = t64560.value.structure_type24753->s0; /* x97366 stalin.sc:9116:312286 */ a40307 = t64557; /* x293897 */ /* x293896 */ t64558 = a40307; /* x293895 */ if (!((t64558.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35224]"); structure_ref_error();} t64555 = t64558.value.structure_type27698->s0; /* x97373 stalin.sc:9116:312337 */ t64556 = q36; /* x269701 stalin.sc:9116:312281 */ if (!(t64555==t64556)) goto l10553; /* x97563 */ /* x97562 */ t64571 = p10718; p10719 = t64571; /* x97561 */ /* x97560 stalin.sc:9117:312351 */ /* x97412 stalin.sc:9117:312357 */ /* x97406 stalin.sc:9117:312366 */ /* x97405 stalin.sc:9117:312399 */ t64592 = q102; /* x97404 stalin.sc:9117:312367 */ t64593.tag = EXTERNAL_SYMBOL_TYPE; t64593.value.external_symbol_type = t64592; t64589 = f7708(t64593); /* x97411 stalin.sc:9118:312412 */ /* x97410 stalin.sc:9118:312433 */ /* x97409 stalin.sc:9118:312452 */ t64596 = p10719->a23483; /* x97408 stalin.sc:9118:312434 */ a38661 = t64596; /* x287313 */ /* x287312 */ t64597 = a38661; /* x287311 */ if (!((t64597.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33578]"); structure_ref_error();} t64594 = t64597.value.structure_type27698->s21; /* x97407 stalin.sc:9118:312413 */ a39979 = t64594; /* x292585 */ /* x292584 */ t64595 = a39979; /* x292583 */ if (!((t64595.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34896]"); structure_ref_error();} t64590 = t64595.value.structure_type27698->s10; /* x97403 stalin.sc:9117:312358 */ t64591.tag = NATIVE_PROCEDURE_TYPE17685; t64591.value.native_procedure_type17685 = t64589; if ((f8137(t64591, t64590).tag)==FALSE_TYPE) goto l10559; /* x97557 */ /* x97556 */ t64598 = p10719; p10723 = t64598; /* x97555 stalin.sc:9119:312465 */ /* x97554 stalin.sc:9119:312475 */ /* x97553 stalin.sc:9119:312482 */ /* x97552 stalin.sc:9119:312504 */ t64615 = p10723->a23483; /* x97551 stalin.sc:9119:312483 */ a38532 = t64615; /* x286797 */ /* x286796 */ t64616 = a38532; /* x286795 */ if (!((t64616.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33449]"); structure_ref_error();} t64613 = t64616.value.structure_type27698->s22; /* x97550 stalin.sc:9119:312476 */ a35925 = t64613; /* x275057 */ /* x275056 */ t64614 = a35925; /* x275055 */ if (!((t64614.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30074]"); structure_ref_error();} t64600 = t64614.value.structure_type24753->s0; /* x97549 */ t64599 = p10723->p10716; p10724 = t64599; a23485 = t64600; sfp10724 = fp10724; if ((fp10724+sizeof(struct p10724))>(&((region10724->data)[region_size10724]))) {struct region10724 *region; unsigned region_size = REGION_SIZE10724; if (sizeof(struct p10724)>region_size) region_size = sizeof(struct p10724); region = (struct region10724 *)GC_malloc_uncollectable(sizeof(struct region10724)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside ASSERT-TYPES-IN-IF-CONTEXT! 10723]"); out_of_memory_error();} region->region = region10724; region->region_size = region_size10724; region_size10724 = region_size; region10724 = region; fp10724 = &((region->data)[0]); ALIGN(fp10724);} e10724 = (struct p10724 *)fp10724; fp10724 += sizeof(struct p10724)+((4-(sizeof(struct p10724)%4))&3); e10724->p10716 = p10724; e10724->a23485 = a23485; /* x97548 stalin.sc:9120:312512 */ /* x97418 stalin.sc:9120:312518 */ /* x97416 stalin.sc:9120:312523 */ /* x97415 stalin.sc:9120:312540 */ t64603 = e10724->a23485; /* x97414 stalin.sc:9120:312524 */ a40285 = t64603; /* x293809 */ /* x293808 */ t64604 = a40285; /* x293807 */ if (!((t64604.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35202]"); structure_ref_error();} t64601 = t64604.value.structure_type27698->s0; /* x97417 stalin.sc:9120:312544 */ t64602 = q36; /* x269700 stalin.sc:9120:312519 */ if (!(t64601==t64602)) goto l10562; /* x97545 */ /* x97544 */ t64605 = e10724; p10725 = t64605; /* x97543 stalin.sc:9121:312553 */ /* x97537 stalin.sc:9122:312573 */ t64606 = p10725; /* x97542 stalin.sc:9151:313597 */ /* x97541 stalin.sc:9151:313618 */ /* x97540 stalin.sc:9151:313637 */ t64611 = p10725->a23485; /* x97539 stalin.sc:9151:313619 */ a38636 = t64611; /* x287213 */ /* x287212 */ t64612 = a38636; /* x287211 */ if (!((t64612.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33553]"); structure_ref_error();} t64609 = t64612.value.structure_type27698->s21; /* x97538 stalin.sc:9151:313598 */ a39908 = t64609; /* x292301 */ /* x292300 */ t64610 = a39908; /* x292299 */ if (!((t64610.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34825]"); structure_ref_error();} t64607 = t64610.value.structure_type27698->s10; /* x97419 stalin.sc:9121:312554 */ t64608.tag = NATIVE_PROCEDURE_TYPE20707; t64608.value.native_procedure_type20707 = t64606; f8173(t64608, t64607); goto l10563; l10562: /* x97547 stalin.sc:9120:312512 */ /* x97546 stalin.sc:9120:312512 */ l10563: while ((sfp10724<(&((region10724->data)[0])))||(sfp10724>(&((region10724->data)[region_size10724])))) {struct region10724 *region; region = region10724; region_size10724 = region10724->region_size; region10724 = region10724->region; GC_free(region);} fp10724 = sfp10724; goto l10560; l10559: /* x97559 stalin.sc:9117:312351 */ /* x97558 stalin.sc:9117:312351 */ l10560: /* x97402 */ t64572 = p10719; p10720 = t64572; /* x97401 stalin.sc:9152:313652 */ /* x97388 stalin.sc:9152:313658 */ /* x97382 stalin.sc:9152:313671 */ /* x97381 stalin.sc:9152:313704 */ t64576 = q102; /* x97380 stalin.sc:9152:313672 */ t64577.tag = EXTERNAL_SYMBOL_TYPE; t64577.value.external_symbol_type = t64576; t64573 = f7708(t64577); /* x97387 stalin.sc:9153:313714 */ /* x97386 stalin.sc:9153:313735 */ /* x97385 stalin.sc:9153:313754 */ t64580 = p10720->a23483; /* x97384 stalin.sc:9153:313736 */ a38660 = t64580; /* x287309 */ /* x287308 */ t64581 = a38660; /* x287307 */ if (!((t64581.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33577]"); structure_ref_error();} t64578 = t64581.value.structure_type27698->s21; /* x97383 stalin.sc:9153:313715 */ a39978 = t64578; /* x292581 */ /* x292580 */ t64579 = a39978; /* x292579 */ if (!((t64579.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34895]"); structure_ref_error();} t64574 = t64579.value.structure_type27698->s10; /* x97379 stalin.sc:9152:313659 */ t64575.tag = NATIVE_PROCEDURE_TYPE17685; t64575.value.native_procedure_type17685 = t64573; if ((f8144(t64575, t64574).tag)==FALSE_TYPE) goto l10557; /* x97398 */ /* x97397 */ t64582 = p10720->p10716; p10721 = t64582; /* x97396 stalin.sc:9154:313767 */ /* x97390 stalin.sc:9154:313793 */ t64583 = p10721->a23478; /* x97391 stalin.sc:9154:313796 */ t64584 = p10721->a23479; /* x97394 stalin.sc:9154:313798 */ /* x97393 stalin.sc:9154:313817 */ t64587 = p10721->a23480; /* x97392 stalin.sc:9154:313799 */ a39729 = t64587; /* x291585 */ /* x291584 */ t64588 = a39729; /* x291583 */ if (!((t64588.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34646]"); structure_ref_error();} t64585 = t64588.value.structure_type27698->s11; /* x97395 stalin.sc:9154:313820 */ t64586 = p10721->a23481; /* x97389 stalin.sc:9154:313768 */ b23499 = t64583; b23500 = t64584; b23501 = t64585; b23502 = t64586; f10746(); return; l10557: /* x97400 stalin.sc:9152:313652 */ /* x97399 stalin.sc:9152:313652 */ return; l10553: /* x97690 */ /* x97689 */ t64563 = p10718; p10735 = t64563; /* x97688 stalin.sc:9156:313842 */ /* x97682 stalin.sc:9157:313866 */ t64564 = p10735; /* x97687 stalin.sc:9186:314873 */ /* x97686 stalin.sc:9186:314894 */ /* x97685 stalin.sc:9186:314913 */ t64569 = p10735->a23483; /* x97684 stalin.sc:9186:314895 */ a38662 = t64569; /* x287317 */ /* x287316 */ t64570 = a38662; /* x287315 */ if (!((t64570.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33579]"); structure_ref_error();} t64567 = t64570.value.structure_type27698->s21; /* x97683 stalin.sc:9186:314874 */ a39980 = t64567; /* x292589 */ /* x292588 */ t64568 = a39980; /* x292587 */ if (!((t64568.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34897]"); structure_ref_error();} t64565 = t64568.value.structure_type27698->s10; /* x97564 stalin.sc:9156:313843 */ t64566.tag = NATIVE_PROCEDURE_TYPE18394; t64566.value.native_procedure_type18394 = t64564; f8173(t64566, t64565); return; l10543: /* x97739 */ /* x97699 stalin.sc:9187:314926 */ /* x97697 stalin.sc:9187:314931 */ /* x97696 stalin.sc:9187:314948 */ t64523 = e10717->a23483; /* x97695 stalin.sc:9187:314932 */ a40308 = t64523; /* x293901 */ /* x293900 */ t64524 = a40308; /* x293899 */ if (!((t64524.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35225]"); structure_ref_error();} t64521 = t64524.value.structure_type27698->s0; /* x97698 stalin.sc:9187:314952 */ t64522 = q38; /* x269691 stalin.sc:9187:314927 */ if (!(t64521==t64522)) goto l10545; /* x97728 */ /* x97727 */ t64532 = e10717; p10743 = t64532; /* x97726 stalin.sc:9188:314965 */ /* x97720 stalin.sc:9189:314996 */ /* x97706 stalin.sc:9189:315000 */ /* x97704 stalin.sc:9189:315005 */ /* x97703 stalin.sc:9189:315026 */ t64539 = p10743->a23483; /* x97702 stalin.sc:9189:315006 */ a39142 = t64539; /* x289237 */ /* x289236 */ t64540 = a39142; /* x289235 */ if (!((t64540.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34059]"); structure_ref_error();} t64537 = t64540.value.structure_type27698->s16; /* x97705 stalin.sc:9189:315030 */ t64538 = p10743->p10716->a23481; /* x269690 stalin.sc:9189:315001 */ /* EQ: dispatching general to general */ if (!((t64537.tag)==(t64538.tag))) goto l10547; switch (t64537.tag) {case FIXNUM_TYPE: if (!((t64537.value.fixnum_type)==(t64538.value.fixnum_type))) goto l10547; break; case FLONUM_TYPE: if (!((t64537.value.flonum_type)==(t64538.value.flonum_type))) goto l10547; break; case INPUT_PORT_TYPE: if (!((t64537.value.input_port_type)==(t64538.value.input_port_type))) goto l10547; break; case OUTPUT_PORT_TYPE: if (!((t64537.value.output_port_type)==(t64538.value.output_port_type))) goto l10547; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t64537.value.native_procedure_type15963)==(t64538.value.native_procedure_type15963))) goto l10547; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t64537.value.native_procedure_type19067)==(t64538.value.native_procedure_type19067))) goto l10547; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t64537.value.native_procedure_type19068)==(t64538.value.native_procedure_type19068))) goto l10547; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t64537.value.native_procedure_type22459)==(t64538.value.native_procedure_type22459))) goto l10547; break; case STRUCTURE_TYPE24753: if (!((t64537.value.structure_type24753)==(t64538.value.structure_type24753))) goto l10547; break; case STRUCTURE_TYPE24757: if (!((t64537.value.structure_type24757)==(t64538.value.structure_type24757))) goto l10547; break; case STRUCTURE_TYPE27501: if (!((t64537.value.structure_type27501)==(t64538.value.structure_type27501))) goto l10547; break; case STRUCTURE_TYPE27510: if (!((t64537.value.structure_type27510)==(t64538.value.structure_type27510))) goto l10547; break; case STRUCTURE_TYPE27621: if (!((t64537.value.structure_type27621)==(t64538.value.structure_type27621))) goto l10547; break; case STRUCTURE_TYPE27650: if (!((t64537.value.structure_type27650)==(t64538.value.structure_type27650))) goto l10547; break; case STRUCTURE_TYPE27669: if (!((t64537.value.structure_type27669)==(t64538.value.structure_type27669))) goto l10547; break; case STRUCTURE_TYPE27673: if (!((t64537.value.structure_type27673)==(t64538.value.structure_type27673))) goto l10547; break; case STRUCTURE_TYPE27692: if (!((t64537.value.structure_type27692)==(t64538.value.structure_type27692))) goto l10547; break; case STRUCTURE_TYPE27694: if (!((t64537.value.structure_type27694)==(t64538.value.structure_type27694))) goto l10547; break; case STRUCTURE_TYPE27698: if (!((t64537.value.structure_type27698)==(t64538.value.structure_type27698))) goto l10547; break; case STRUCTURE_TYPE27745: if (!((t64537.value.structure_type27745)==(t64538.value.structure_type27745))) goto l10547; break; case STRUCTURE_TYPE27747: if (!((t64537.value.structure_type27747)==(t64538.value.structure_type27747))) goto l10547; break; case STRUCTURE_TYPE27750: if (!((t64537.value.structure_type27750)==(t64538.value.structure_type27750))) goto l10547; break; case STRUCTURE_TYPE27753: if (!((t64537.value.structure_type27753)==(t64538.value.structure_type27753))) goto l10547; break; case STRUCTURE_TYPE27756: if (!((t64537.value.structure_type27756)==(t64538.value.structure_type27756))) goto l10547; break; case STRUCTURE_TYPE27761: if (!((t64537.value.structure_type27761)==(t64538.value.structure_type27761))) goto l10547; break; case STRUCTURE_TYPE27769: if (!((t64537.value.structure_type27769)==(t64538.value.structure_type27769))) goto l10547; break; case STRUCTURE_TYPE27776: if (!((t64537.value.structure_type27776)==(t64538.value.structure_type27776))) goto l10547; break; case STRUCTURE_TYPE27779: if (!((t64537.value.structure_type27779)==(t64538.value.structure_type27779))) goto l10547; break; case STRUCTURE_TYPE27858: if (!((t64537.value.structure_type27858)==(t64538.value.structure_type27858))) goto l10547; break; case STRING_TYPE: if (!((t64537.value.string_type)==(t64538.value.string_type))) goto l10547; break; case HEADED_VECTOR_TYPE27896: if (!((t64537.value.headed_vector_type27896)==(t64538.value.headed_vector_type27896))) goto l10547; break; case EXTERNAL_SYMBOL_TYPE: if (!((t64537.value.external_symbol_type)==(t64538.value.external_symbol_type))) goto l10547; break; case STRUCTURE_TYPE27908: if (!((t64537.value.structure_type27908)==(t64538.value.structure_type27908))) goto l10547; break; default:;} /* x97718 stalin.sc:9190:315035 */ /* x97716 stalin.sc:9190:315050 */ /* x97708 stalin.sc:9190:315054 */ if ((p10743->p10716->a23482)==FALSE_TYPE) goto l10550; /* x97714 stalin.sc:9190:315057 */ t64541 = NATIVE_PROCEDURE_TYPE18400; goto l10551; l10550: /* x97715 stalin.sc:9190:315092 */ t64541 = NATIVE_PROCEDURE_TYPE7433; l10551: /* x97717 stalin.sc:9191:315108 */ t64542 = p10743->p10716->a23478; /* x97707 stalin.sc:9190:315036 */ t64543.tag = t64541; t64544 = *((struct w49 *)(&t64542)); t64533 = f1226(t64543, t64544); goto l10548; l10547: /* x97719 stalin.sc:9192:315114 */ t64533 = p10743->p10716->a23478; l10548: /* x97721 stalin.sc:9193:315123 */ t64534 = p10743->p10716->a23479; /* x97724 stalin.sc:9193:315125 */ /* x97723 stalin.sc:9193:315144 */ t64545 = p10743->p10716->a23480; /* x97722 stalin.sc:9193:315126 */ a39749 = t64545; /* x291665 */ /* x291664 */ t64546 = a39749; /* x291663 */ if (!((t64546.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34666]"); structure_ref_error();} t64535 = t64546.value.structure_type27698->s11; /* x97725 stalin.sc:9193:315147 */ t64536 = p10743->p10716->a23481; /* x97700 stalin.sc:9188:314966 */ b23499 = t64533; b23500 = t64534; b23501 = t64535; b23502 = t64536; f10746(); return; l10545: /* x97738 */ /* x97737 */ t64525 = p10717; p10745 = t64525; /* x97736 stalin.sc:9194:315160 */ /* x97730 stalin.sc:9194:315186 */ t64526 = p10745->a23478; /* x97731 stalin.sc:9194:315189 */ t64527 = p10745->a23479; /* x97734 stalin.sc:9194:315191 */ /* x97733 stalin.sc:9194:315210 */ t64530 = p10745->a23480; /* x97732 stalin.sc:9194:315192 */ a39750 = t64530; /* x291669 */ /* x291668 */ t64531 = a39750; /* x291667 */ if (!((t64531.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34667]"); structure_ref_error();} t64528 = t64531.value.structure_type27698->s11; /* x97735 stalin.sc:9194:315213 */ t64529 = p10745->a23481; /* x97729 stalin.sc:9194:315161 */ b23499 = t64526; b23500 = t64527; b23501 = t64528; b23502 = t64529; f10746(); return;} /* LOOP[10680] */ void f10680(struct p10663 *p10680, struct w49 a23458, struct w49 a23459, struct w49 a23460) {struct w16638 a35359; /* PAIR */ struct w16638 a35360; /* PAIR */ struct w16638 a35361; /* PAIR */ struct w16638 a35695; /* PAIR */ struct w16638 a35710; /* PAIR */ struct w16638 a35711; /* PAIR */ struct w16638 a35714; /* PAIR */ struct w16638 a35715; /* PAIR */ struct w16638 a35716; /* PAIR */ struct structure_type27745 *a36398; /* S */ struct w49 a36824; /* S */ struct w49 a36825; /* S */ struct w49 a36826; /* S */ struct w49 a36829; /* S */ struct w49 a36830; /* S */ struct w49 t64621; struct p10680 *t64622; struct w49 t64623; struct w16638 t64624; struct w16638 t64625; struct w49 t64626; struct w49 t64627; struct p10680 *t64628; struct p10680 *t64629; struct p10663 *t64630; struct w49 t64631; struct w49 t64632; struct w49 t64633; struct w16638 t64634; struct w16638 t64635; struct w16638 t64636; struct w16638 t64637; struct w49 t64638; struct w49 t64639; struct w49 t64640; struct w16638 t64641; struct w16638 t64642; struct w49 t64643; struct w49 t64644; struct w16638 t64645; struct w16638 t64646; struct w49 t64647; struct w49 t64648; struct w16638 t64649; struct w16638 t64650; struct p10680 *t64651; struct p10680 *t64652; struct w49 t64653; struct w211045 t64654; struct p10680 *t64655; struct p10680 *t64656; struct w49 t64657; struct w3467 t64658; struct w49 t64659; struct w49 t64660; struct structure_type24753 *t64661; struct structure_type24753 *t64662; struct w49 t64663; struct w49 t64664; struct w16638 t64665; struct w36270 t64666; struct w49 t64667; struct structure_type24753 *t64668; struct w49 t64669; struct structure_type27745 *t64670; struct structure_type27745 *t64671; struct w49 t64672; struct w49 t64673; struct w16638 t64674; struct w16638 t64675; struct w49 t64676; struct w49 t64677; struct w49 t64678; struct w49 t64679; struct w16638 t64680; struct w16638 t64681; struct w49 t64682; struct w49 t64683; struct w49 t64684; struct w16638 t64685; struct w16638 t64686; struct p10680 *e10680; struct p10680 *p10682; struct p10680 *p10683; struct p10680 *p10684; struct p10680 *p10685; struct p10680 *p10690; struct p10680 *p10691; h10680: e10680 = (struct p10680 *)alloca(sizeof(struct p10680)); if (e10680==NULL) {backtrace_internal("[inside PROPAGATE-CALL! 10678]"); out_of_memory_error();} e10680->p10663 = p10680; e10680->a23458 = a23458; e10680->a23460 = a23460; /* x97124 stalin.sc:9021:307802 */ /* x96971 stalin.sc:9021:307810 */ /* x96970 stalin.sc:9021:307817 */ t64621 = e10680->a23460; /* x269711 stalin.sc:9021:307811 */ if (!((t64621.tag)==NULL_TYPE)) goto l10565; /* x96973 */ /* x96972 */ return; l10565: /* x97123 */ /* x97122 */ t64622 = e10680; p10682 = t64622; /* x97121 stalin.sc:9022:307823 */ /* x96983 stalin.sc:9023:307833 */ /* x96978 stalin.sc:9023:307838 */ /* x96977 stalin.sc:9023:307845 */ /* x96976 stalin.sc:9023:307851 */ t64624 = *((struct w16638 *)(&(p10682->a23460))); /* x96975 stalin.sc:9023:307846 */ a35361 = t64624; /* x272801 */ /* x272800 */ t64625 = a35361; /* x272799 */ if (!((t64625.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29510]"); structure_ref_error();} t64623 = t64625.value.structure_type24753->s1; /* x269710 stalin.sc:9023:307839 */ if (!((t64623.tag)==NULL_TYPE)) goto l10567; /* x96981 */ /* x96980 stalin.sc:9023:307863 */ t64626 = p10682->p10663->a23450; /* x96979 stalin.sc:9023:307857 */ if (f8931(t64626)==FALSE_TYPE) goto l10567; /* x97026 */ /* x97025 */ t64655 = p10682; p10683 = t64655; /* x97024 */ /* x97023 stalin.sc:9024:307871 */ /* x97021 stalin.sc:9024:307892 */ /* x97020 stalin.sc:9024:307911 */ /* x97019 stalin.sc:9024:307918 */ t64685 = *((struct w16638 *)(&(p10683->a23460))); /* x97018 stalin.sc:9024:307912 */ a35711 = t64685; /* x274201 */ /* x274200 */ t64686 = a35711; /* x274199 */ if (!((t64686.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29860]"); structure_ref_error();} t64683 = t64686.value.structure_type24753->s0; /* x97017 stalin.sc:9024:307893 */ a36826 = t64683; /* x279973 */ /* x279972 */ t64684 = a36826; /* x279971 */ if (!((t64684.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31743]"); structure_ref_error();} t64682 = t64684.value.structure_type27692->s9; /* x97022 stalin.sc:9024:307923 */ /* x97016 stalin.sc:9024:307872 */ f8118(t64682); /* x97015 */ t64656 = p10683; p10684 = t64656; /* x97014 stalin.sc:9025:307931 */ /* x96986 stalin.sc:9025:307935 */ /* x96985 stalin.sc:9025:307942 */ t64657 = p10684->a23458; /* x269709 stalin.sc:9025:307936 */ if (!((t64657.tag)==NULL_TYPE)) goto l10572; /* x96994 stalin.sc:9026:307954 */ /* x96988 stalin.sc:9026:307970 */ t64676 = a23459; /* x96993 stalin.sc:9026:307972 */ /* x96992 stalin.sc:9026:307991 */ /* x96991 stalin.sc:9026:307998 */ t64680 = *((struct w16638 *)(&(p10684->a23460))); /* x96990 stalin.sc:9026:307992 */ a35695 = t64680; /* x274137 */ /* x274136 */ t64681 = a35695; /* x274135 */ if (!((t64681.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29844]"); structure_ref_error();} t64678 = t64681.value.structure_type24753->s0; /* x96989 stalin.sc:9026:307973 */ a36824 = t64678; /* x279965 */ /* x279964 */ t64679 = a36824; /* x279963 */ if (!((t64679.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31741]"); structure_ref_error();} t64677 = t64679.value.structure_type27692->s9; /* x96987 stalin.sc:9026:307955 */ f10617(t64676, t64677); return; l10572: /* x97013 stalin.sc:9033:308360 */ /* x97007 stalin.sc:9033:308376 */ /* x97000 stalin.sc:9033:308385 */ /* x96999 stalin.sc:9033:308398 */ t64665 = *((struct w16638 *)(&(p10684->a23458))); /* x96998 stalin.sc:9033:308390 */ /* x96997 stalin.sc:9033:308386 */ t64666.tag = NATIVE_PROCEDURE_TYPE7353; t64667 = *((struct w49 *)(&t64665)); t64668 = (struct structure_type24753 *)NULL_TYPE; t64661 = f27731(t64666, t64667, t64668); /* x97003 stalin.sc:9034:308407 */ /* x97002 stalin.sc:9034:308416 */ t64669 = a23459; /* x97001 stalin.sc:9034:308408 */ t64662 = f8162(t64669); /* x97006 stalin.sc:9035:308424 */ /* x97005 stalin.sc:9035:308446 */ t64670 = p10684->p10663->p10641->a23435; /* x97004 stalin.sc:9035:308425 */ a36398 = t64670; /* x278261 */ /* x278260 */ t64671 = a36398; /* x278259 */ if (!(t64671>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31315]"); structure_ref_error();} t64663 = t64671->s0; /* x96996 stalin.sc:9033:308377 */ /* MOVE: branching squeezed to general */ if (t64661>=((struct structure_type24753 *)VALUE_OFFSET)) {t64664.tag = STRUCTURE_TYPE24753; t64664.value.structure_type24753 = t64661;} else t64664.tag = (unsigned)t64661; t64658 = f7155(t64664, t64662, t64663); /* x97012 stalin.sc:9036:308460 */ /* x97011 stalin.sc:9036:308479 */ /* x97010 stalin.sc:9036:308486 */ t64674 = *((struct w16638 *)(&(p10684->a23460))); /* x97009 stalin.sc:9036:308480 */ a35710 = t64674; /* x274197 */ /* x274196 */ t64675 = a35710; /* x274195 */ if (!((t64675.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29859]"); structure_ref_error();} t64672 = t64675.value.structure_type24753->s0; /* x97008 stalin.sc:9036:308461 */ a36825 = t64672; /* x279969 */ /* x279968 */ t64673 = a36825; /* x279967 */ if (!((t64673.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31742]"); structure_ref_error();} t64659 = t64673.value.structure_type27692->s9; /* x96995 stalin.sc:9033:308361 */ t64660 = *((struct w49 *)(&t64658)); f10604(t64660, t64659); return; l10567: /* x97120 */ /* x97029 stalin.sc:9037:308498 */ /* x97028 stalin.sc:9037:308505 */ t64627 = p10682->a23458; /* x269708 stalin.sc:9037:308499 */ if (!((t64627.tag)==NULL_TYPE)) goto l10570; /* x97088 */ /* x97087 */ t64651 = p10682; p10685 = t64651; /* x97086 stalin.sc:9038:308513 */ /* x97084 stalin.sc:9039:308535 */ t64652 = p10685; /* x97085 stalin.sc:9047:308863 */ t64653 = a23459; /* x97030 stalin.sc:9038:308514 */ t64654.tag = NATIVE_PROCEDURE_TYPE22542; t64654.value.native_procedure_type22542 = t64652; f8173(t64654, t64653); return; l10570: /* x97119 */ /* x97118 */ t64628 = p10682; p10690 = t64628; /* x97117 */ /* x97106 stalin.sc:9048:308876 */ /* x97104 stalin.sc:9048:308897 */ /* x97103 stalin.sc:9048:308916 */ /* x97102 stalin.sc:9048:308923 */ t64641 = *((struct w16638 *)(&(p10690->a23460))); /* x97101 stalin.sc:9048:308917 */ a35714 = t64641; /* x274213 */ /* x274212 */ t64642 = a35714; /* x274211 */ if (!((t64642.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29863]"); structure_ref_error();} t64639 = t64642.value.structure_type24753->s0; /* x97100 stalin.sc:9048:308898 */ a36829 = t64639; /* x279985 */ /* x279984 */ t64640 = a36829; /* x279983 */ if (!((t64640.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31746]"); structure_ref_error();} t64638 = t64640.value.structure_type27692->s9; /* x97105 stalin.sc:9048:308928 */ /* x97099 stalin.sc:9048:308877 */ f8118(t64638); /* x97116 stalin.sc:9049:308934 */ /* x97110 stalin.sc:9049:308950 */ /* x97109 stalin.sc:9049:308957 */ t64645 = *((struct w16638 *)(&(p10690->a23458))); /* x97108 stalin.sc:9049:308951 */ a35715 = t64645; /* x274217 */ /* x274216 */ t64646 = a35715; /* x274215 */ if (!((t64646.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29864]"); structure_ref_error();} t64643 = t64646.value.structure_type24753->s0; /* x97115 stalin.sc:9049:308961 */ /* x97114 stalin.sc:9049:308980 */ /* x97113 stalin.sc:9049:308987 */ t64649 = *((struct w16638 *)(&(p10690->a23460))); /* x97112 stalin.sc:9049:308981 */ a35716 = t64649; /* x274221 */ /* x274220 */ t64650 = a35716; /* x274219 */ if (!((t64650.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29865]"); structure_ref_error();} t64647 = t64650.value.structure_type24753->s0; /* x97111 stalin.sc:9049:308962 */ a36830 = t64647; /* x279989 */ /* x279988 */ t64648 = a36830; /* x279987 */ if (!((t64648.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31747]"); structure_ref_error();} t64644 = t64648.value.structure_type27692->s9; /* x97107 stalin.sc:9049:308935 */ f10617(t64643, t64644); /* x97098 */ t64629 = p10690; p10691 = t64629; /* x97097 stalin.sc:9050:308995 */ /* x97092 stalin.sc:9050:309001 */ /* x97091 stalin.sc:9050:309007 */ t64634 = *((struct w16638 *)(&(p10691->a23458))); /* x97090 stalin.sc:9050:309002 */ a35359 = t64634; /* x272793 */ /* x272792 */ t64635 = a35359; /* x272791 */ if (!((t64635.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29508]"); structure_ref_error();} t64631 = t64635.value.structure_type24753->s1; /* x97093 stalin.sc:9050:309011 */ t64632 = a23459; /* x97096 stalin.sc:9050:309013 */ /* x97095 stalin.sc:9050:309019 */ t64636 = *((struct w16638 *)(&(p10691->a23460))); /* x97094 stalin.sc:9050:309014 */ a35360 = t64636; /* x272797 */ /* x272796 */ t64637 = a35360; /* x272795 */ if (!((t64637.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29509]"); structure_ref_error();} t64633 = t64637.value.structure_type24753->s1; /* x97089 stalin.sc:9050:308996 */ t64630 = p10691->p10663; p10680 = t64630; a23458 = t64631; a23459 = t64632; a23460 = t64633; goto h10680;} /* [inside PROPAGATE-CALL! 10658] */ void f10658(struct p10641 *p10658, struct w49 a23448) {struct structure_type27745 *a36393; /* S */ struct w49 a39875; /* S */ struct w49 t64687; struct w49 t64688; struct w49 t64689; struct w49 t64690; struct structure_type27745 *t64691; struct structure_type27745 *t64692; /* x96801 stalin.sc:8986:306267 */ /* x96795 stalin.sc:8987:306289 */ t64687 = a23448; /* x96800 stalin.sc:8987:306291 */ /* x96799 stalin.sc:8987:306312 */ /* x96798 stalin.sc:8987:306334 */ t64691 = p10658->a23435; /* x96797 stalin.sc:8987:306313 */ a36393 = t64691; /* x278241 */ /* x278240 */ t64692 = a36393; /* x278239 */ if (!(t64692>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31310]"); structure_ref_error();} t64689 = t64692->s0; /* x96796 stalin.sc:8987:306292 */ a39875 = t64689; /* x292169 */ /* x292168 */ t64690 = a39875; /* x292167 */ if (!((t64690.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34792]"); structure_ref_error();} t64688 = t64690.value.structure_type27698->s10; /* x96794 stalin.sc:8986:306268 */ f10604(t64687, t64688); return;} /* [inside PROPAGATE-CALL! 10657] */ void f10657(struct p10646 *p10657, struct w49 a23447) {struct structure_type24753 *a34909; /* OBJS */ struct structure_type27745 *t64693; struct w49 t64694; struct structure_type24753 *t64695; struct structure_type27650 *t64696; struct structure_type27745 *t64697; struct w49 t64698; struct w49 t64699; struct structure_type27745 *t64700; char *t64701; struct structure_type27650 *t64702; struct w49 t64703; struct structure_type24753 *t64704; /* x96792 stalin.sc:8979:305963 */ /* x96784 stalin.sc:8980:305986 */ /* x96782 stalin.sc:8980:306006 */ t64700 = p10657->p10641->a23435; /* x96783 stalin.sc:8980:306008 */ t64701 = q67; /* x96781 stalin.sc:8980:305987 */ t64693 = f8743(t64700, t64701); /* x96785 stalin.sc:8981:306038 */ t64694 = p10657->a23442; /* x96790 stalin.sc:8981:306041 */ /* x96789 stalin.sc:8981:306047 */ /* x96788 stalin.sc:8981:306074 */ t64703 = a23447; /* x96787 stalin.sc:8981:306048 */ t64704 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t64704==NULL) {backtrace("stalin.sc", 8981, 306047); out_of_memory_error();} t64704->s0 = t64703; t64704->s1.tag = NULL_TYPE; t64702 = f8098(t64704); /* x96786 stalin.sc:8981:306042 */ a34909 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34909==NULL) {backtrace("stalin.sc", 8981, 306041); out_of_memory_error();} a34909->s0.tag = STRUCTURE_TYPE27650; a34909->s0.value.structure_type27650 = t64702; a34909->s1.tag = NULL_TYPE; /* x271825 */ t64695 = a34909; /* x96791 stalin.sc:8981:306078 */ t64696 = a1675; /* x96780 stalin.sc:8979:305964 */ t64697 = t64693; t64698.tag = STRUCTURE_TYPE24753; t64698.value.structure_type24753 = t64695; /* MOVE: branching squeezed to general */ if (t64696>=((struct structure_type27650 *)VALUE_OFFSET)) {t64699.tag = STRUCTURE_TYPE27650; t64699.value.structure_type27650 = t64696;} else t64699.tag = (unsigned)t64696; f10641(t64697, t64694, t64698, t64699); return;} /* [inside PROPAGATE-CALL! 10651] */ void f10651(struct p10650 *p10651, struct p7717 *a23445) {struct w49 a35687; /* PAIR */ struct w49 a35688; /* PAIR */ struct p10650 *t64705; struct p7717 *t64706; struct w49 t64707; struct w211235 t64708; struct w49 t64709; struct w49 t64710; struct p10650 *t64711; unsigned t64712; char *t64713; struct w49 t64714; struct w49 t64715; struct p7717 *t64716; struct w49 t64717; struct w211257 t64718; struct w49 t64719; struct w49 t64720; struct p10650 *t64721; unsigned t64722; char *t64723; struct w49 t64724; struct w49 t64725; struct p10650 *p10652; struct p10650 *p10653; struct p10650 *p10655; /* x96769 */ /* x96768 stalin.sc:8994:306553 */ /* x96760 stalin.sc:8994:306559 */ /* x96756 stalin.sc:8994:306568 */ t64716 = a23445; /* x96759 stalin.sc:8994:306570 */ /* x96758 stalin.sc:8994:306577 */ t64719 = p10651->p10646->a23441; /* x96757 stalin.sc:8994:306571 */ a35688 = t64719; /* x274109 */ /* x274108 */ t64720 = a35688; /* x274107 */ if (!((t64720.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29837]"); structure_ref_error();} t64717 = t64720.value.structure_type24753->s0; /* x96755 stalin.sc:8994:306560 */ /* MOVE: branching squeezed to general */ if (t64716>=((struct p7717 *)VALUE_OFFSET)) {t64718.tag = NATIVE_PROCEDURE_TYPE15963; t64718.value.native_procedure_type15963 = t64716;} else t64718.tag = (unsigned)t64716; if ((f8137(t64718, t64717).tag)==FALSE_TYPE) goto l10576; /* x96765 */ /* x96764 */ t64721 = p10651; p10655 = t64721; /* x96763 stalin.sc:8994:306582 */ /* x96762 stalin.sc:8994:306601 */ t64723 = a1978; /* x96761 stalin.sc:8994:306583 */ t64722 = p10655->a23444; if ((t64722&3)==1) {/* MOVE: branching squeezed to general */ if (t64723>=((char *)VALUE_OFFSET)) {t64724.tag = EXTERNAL_SYMBOL_TYPE; t64724.value.external_symbol_type = t64723;} else t64724.tag = (unsigned)t64723; f10658(((struct p10641 *)(t64722-1)), t64724);} else {/* MOVE: branching squeezed to general */ if (t64723>=((char *)VALUE_OFFSET)) {t64725.tag = EXTERNAL_SYMBOL_TYPE; t64725.value.external_symbol_type = t64723;} else t64725.tag = (unsigned)t64723; f10657(((struct p10646 *)t64722), t64725);} goto l10577; l10576: /* x96767 stalin.sc:8994:306553 */ /* x96766 stalin.sc:8994:306553 */ l10577: /* x96754 */ t64705 = p10651; p10652 = t64705; /* x96753 stalin.sc:8995:306614 */ /* x96745 stalin.sc:8995:306620 */ /* x96741 stalin.sc:8995:306633 */ t64706 = a23445; /* x96744 stalin.sc:8995:306635 */ /* x96743 stalin.sc:8995:306642 */ t64709 = p10652->p10646->a23441; /* x96742 stalin.sc:8995:306636 */ a35687 = t64709; /* x274105 */ /* x274104 */ t64710 = a35687; /* x274103 */ if (!((t64710.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29836]"); structure_ref_error();} t64707 = t64710.value.structure_type24753->s0; /* x96740 stalin.sc:8995:306621 */ /* MOVE: branching squeezed to general */ if (t64706>=((struct p7717 *)VALUE_OFFSET)) {t64708.tag = NATIVE_PROCEDURE_TYPE15963; t64708.value.native_procedure_type15963 = t64706;} else t64708.tag = (unsigned)t64706; if ((f8144(t64708, t64707).tag)==FALSE_TYPE) goto l10574; /* x96750 */ /* x96749 */ t64711 = p10652; p10653 = t64711; /* x96748 stalin.sc:8995:306647 */ /* x96747 stalin.sc:8995:306666 */ t64713 = a1975; /* x96746 stalin.sc:8995:306648 */ t64712 = p10653->a23444; if ((t64712&3)==1) {/* MOVE: branching squeezed to general */ if (t64713>=((char *)VALUE_OFFSET)) {t64714.tag = EXTERNAL_SYMBOL_TYPE; t64714.value.external_symbol_type = t64713;} else t64714.tag = (unsigned)t64713; f10658(((struct p10641 *)(t64712-1)), t64714); return;} /* MOVE: branching squeezed to general */ if (t64713>=((char *)VALUE_OFFSET)) {t64715.tag = EXTERNAL_SYMBOL_TYPE; t64715.value.external_symbol_type = t64713;} else t64715.tag = (unsigned)t64713; f10657(((struct p10646 *)t64712), t64715); return; l10574: /* x96752 stalin.sc:8995:306614 */ /* x96751 stalin.sc:8995:306614 */ return;} /* PROPAGATE-CALL![10641] */ void f10641(struct structure_type27745 *a23435, struct w49 a23436, struct w49 a23437, struct w49 a23438) {struct p10641 *t64726; struct w49 t64727; struct w211045 t64728; struct p10641 *e10641; e10641 = (struct p10641 *)alloca(sizeof(struct p10641)); if (e10641==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e10641->a23435 = a23435; e10641->a23437 = a23437; e10641->a23438 = a23438; /* x97343 stalin.sc:8965:305419 */ /* x97341 stalin.sc:8966:305438 */ t64726 = e10641; /* x97342 stalin.sc:9104:311861 */ t64727 = a23436; /* x96684 stalin.sc:8965:305420 */ t64728.tag = NATIVE_PROCEDURE_TYPE16818; t64728.value.native_procedure_type16818 = t64726; f8173(t64728, t64727); return;} /* [inside ASSERT-EXPRESSION-REACHED! 10640] */ void f10640(struct w49 a23434) {struct w49 a36705; /* S */ struct w6852 t64729; struct w49 t64730; unsigned t64731; struct w49 t64732; struct w49 t64733; /* x96663 stalin.sc:8956:305088 */ /* x96661 stalin.sc:8956:305114 */ /* x96660 stalin.sc:8956:305138 */ t64732 = a23434; /* x96659 stalin.sc:8956:305115 */ a36705 = t64732; /* x279489 */ /* x279488 */ t64733 = a36705; /* x279487 */ if (!((t64733.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31622]"); structure_ref_error();} t64729 = t64733.value.structure_type27694->s1; /* x96662 stalin.sc:8956:305141 */ /* x96658 stalin.sc:8956:305089 */ t64730 = *((struct w49 *)(&t64729)); t64731 = TRUE_TYPE; f6927(t64730, t64731); return;} /* ASSERT-EXPRESSION-REACHED![10634] */ void f10634(struct w49 a23429) {struct w9140 a36763; /* OBJ */ struct w49 a39493; /* S */ struct w49 a39507; /* S */ struct w49 a40368; /* S */ struct w49 a40369; /* S */ struct w49 a40370; /* S */ struct w49 t64734; struct w49 t64735; char *t64736; char *t64737; struct w49 t64738; struct w49 t64739; char *t64740; char *t64741; struct w49 t64742; struct w49 t64743; char *t64744; char *t64745; struct w49 t64746; struct w49 t64747; struct w9140 t64748; struct w9140 t64749; struct w49 t64750; struct w49 t64751; struct w49 t64752; unsigned t64753; struct w11873 t64754; struct w36108 t64755; struct w49 t64756; struct structure_type24753 *t64757; struct w9140 t64758; struct w49 t64759; struct w49 t64760; struct w49 t64761; /* x96681 stalin.sc:8945:304498 */ /* x96615 stalin.sc:8945:304506 */ /* x96614 stalin.sc:8945:304527 */ t64734 = a23429; /* x96613 stalin.sc:8945:304507 */ if (f6926(t64734)==FALSE_TYPE) goto l10579; /* x96617 */ /* x96616 */ return; l10579: /* x96680 */ /* x96679 */ /* x96678 */ /* x96675 stalin.sc:8946:304532 */ /* x96656 stalin.sc:8946:304536 */ /* x96649 stalin.sc:8946:304541 */ /* x96648 stalin.sc:8946:304545 */ /* x96646 stalin.sc:8946:304550 */ /* x96645 stalin.sc:8946:304567 */ t64738 = a23429; /* x96644 stalin.sc:8946:304551 */ a40370 = t64738; /* x294149 */ /* x294148 */ t64739 = a40370; /* x294147 */ if (!((t64739.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35287]"); structure_ref_error();} t64736 = t64739.value.structure_type27698->s0; /* x96647 stalin.sc:8946:304570 */ t64737 = q39; /* x269716 stalin.sc:8946:304546 */ if (t64736==t64737) goto l10583; /* x96640 */ /* x96639 stalin.sc:8947:304587 */ /* x96637 stalin.sc:8947:304592 */ /* x96636 stalin.sc:8947:304609 */ t64742 = a23429; /* x96635 stalin.sc:8947:304593 */ a40369 = t64742; /* x294145 */ /* x294144 */ t64743 = a40369; /* x294143 */ if (!((t64743.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35286]"); structure_ref_error();} t64740 = t64743.value.structure_type27698->s0; /* x96638 stalin.sc:8947:304612 */ t64741 = q40; /* x269717 stalin.sc:8947:304588 */ if (t64740==t64741) goto l10583; /* x96631 */ /* x96629 stalin.sc:8948:304644 */ /* x96628 stalin.sc:8948:304661 */ t64746 = a23429; /* x96627 stalin.sc:8948:304645 */ a40368 = t64746; /* x294141 */ /* x294140 */ t64747 = a40368; /* x294139 */ if (!((t64747.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35285]"); structure_ref_error();} t64744 = t64747.value.structure_type27698->s0; /* x96630 stalin.sc:8948:304664 */ t64745 = q41; /* x269718 stalin.sc:8948:304640 */ if (!(t64744==t64745)) goto l10581; l10583: /* x96654 */ /* x96653 stalin.sc:8950:304748 */ /* x96652 stalin.sc:8950:304779 */ t64750 = a23429; /* x96651 stalin.sc:8950:304749 */ a39507 = t64750; /* x290697 */ /* x290696 */ t64751 = a39507; /* x290695 */ if (!((t64751.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34424]"); structure_ref_error();} t64748 = t64751.value.structure_type27698->s13; /* x96650 stalin.sc:8950:304735 */ a36763 = t64748; /* x279721 */ /* x279720 */ t64749 = a36763; /* x279719 */ if (!((t64749.tag)==STRUCTURE_TYPE27694)) goto l10581; /* x96670 stalin.sc:8955:305059 */ /* x96669 stalin.sc:8957:305153 */ /* x96668 stalin.sc:8957:305168 */ /* x96667 stalin.sc:8957:305199 */ t64760 = a23429; /* x96666 stalin.sc:8957:305169 */ a39493 = t64760; /* x290641 */ /* x290640 */ t64761 = a39493; /* x290639 */ if (!((t64761.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34410]"); structure_ref_error();} t64758 = t64761.value.structure_type27698->s13; /* x96665 stalin.sc:8957:305154 */ t64759 = *((struct w49 *)(&t64758)); t64754 = f8984(t64759); /* x96664 stalin.sc:8956:305076 */ /* x96657 stalin.sc:8955:305060 */ t64755.tag = NATIVE_PROCEDURE_TYPE17597; t64756 = *((struct w49 *)(&t64754)); t64757 = (struct structure_type24753 *)NULL_TYPE; f27755(t64755, t64756, t64757); goto l10582; l10581: /* x96674 stalin.sc:8958:305210 */ /* x96672 stalin.sc:8958:305236 */ t64752 = a23429; /* x96673 stalin.sc:8958:305238 */ /* x96671 stalin.sc:8958:305211 */ t64753 = TRUE_TYPE; f6927(t64752, t64753); l10582: /* x96677 stalin.sc:8959:305245 */ /* x96676 stalin.sc:8959:305260 */ a2038 = TRUE_TYPE; /* x96621 */ /* x96620 stalin.sc:8962:305369 */ /* x96619 stalin.sc:8962:305376 */ t64735 = a23429; /* x96618 stalin.sc:8962:305370 */ f10873(t64735); return;} /* [inside ASSERT-RETURNS! 10628] */ void f10628(struct w49 a23428) {struct w49 a36478; /* S */ struct w49 t64762; struct w49 t64763; struct w49 t64764; struct w49 t64765; /* x96534 stalin.sc:8941:304314 */ /* x96524 stalin.sc:8941:304322 */ /* x96523 stalin.sc:8941:304344 */ t64762 = a23428; /* x96522 stalin.sc:8941:304323 */ if (f8751(t64762)==FALSE_TYPE) goto l10587; /* x96526 */ /* x96525 */ return; l10587: /* x96533 */ /* x96532 */ /* x96531 stalin.sc:8941:304347 */ /* x96530 stalin.sc:8941:304354 */ /* x96529 stalin.sc:8941:304376 */ t64764 = a23428; /* x96528 stalin.sc:8941:304355 */ a36478 = t64764; /* x278581 */ /* x278580 */ t64765 = a36478; /* x278579 */ if (!((t64765.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31395]"); structure_ref_error();} t64763 = t64765.value.structure_type27745->s0; /* x96527 stalin.sc:8941:304348 */ f10873(t64763); return;} /* ASSERT-RETURNS![10623] */ void f10623(struct w49 a23424) {struct w9140 a36762; /* OBJ */ struct w49 a39491; /* S */ struct w49 a39492; /* S */ struct w49 a39760; /* S */ struct w49 a39761; /* S */ struct w49 a39762; /* S */ struct w49 a39763; /* S */ struct w49 a39764; /* S */ struct w49 a39765; /* S */ struct w49 a39766; /* S */ struct w49 a39767; /* S */ struct w49 a40327; /* S */ struct w49 a40328; /* S */ struct w49 a40329; /* S */ struct w49 a40423; /* OBJ */ struct w49 a40424; /* OBJ */ struct w49 t64766; struct w49 t64767; struct w49 t64768; struct w49 t64769; struct w49 t64770; struct w9140 t64771; struct w9140 t64772; struct w49 t64773; struct w49 t64774; struct w49 t64775; struct w49 t64776; struct structure_type24753 *t64777; struct w36108 t64778; struct w49 t64779; struct structure_type24753 *t64780; struct w9140 t64781; struct w49 t64782; struct w49 t64783; struct w49 t64784; struct w49 t64785; struct w49 t64786; struct w49 t64787; unsigned t64788; struct w49 t64789; struct w49 t64790; struct w49 t64791; struct w49 t64792; char *t64793; char *t64794; struct w49 t64795; struct w49 t64796; struct w49 t64797; struct w49 t64798; char *t64799; char *t64800; struct w49 t64801; struct w49 t64802; struct w49 t64803; struct w49 t64804; char *t64805; char *t64806; struct w49 t64807; struct w49 t64808; struct w49 t64809; struct w49 t64810; struct w49 t64811; struct w49 t64812; struct w49 t64813; /* x96610 stalin.sc:8920:303489 */ /* x96504 stalin.sc:8920:303497 */ /* x96503 stalin.sc:8920:303518 */ t64766 = a23424; /* x96502 stalin.sc:8920:303498 */ if (f6956(t64766)==FALSE_TYPE) goto l10589; /* x96506 */ /* x96505 */ return; l10589: /* x96609 */ /* x96608 */ /* x96607 */ /* x96553 stalin.sc:8921:303523 */ /* x96551 stalin.sc:8921:303549 */ t64787 = a23424; /* x96552 stalin.sc:8921:303551 */ /* x96550 stalin.sc:8921:303524 */ t64788 = TRUE_TYPE; f6957(t64787, t64788); /* x96555 stalin.sc:8922:303557 */ /* x96554 stalin.sc:8922:303572 */ a2038 = TRUE_TYPE; /* x96606 stalin.sc:8926:303700 */ /* x96596 stalin.sc:8926:303706 */ /* x96560 stalin.sc:8927:303713 */ /* x96559 stalin.sc:8927:303726 */ /* x96558 stalin.sc:8927:303745 */ t64791 = a23424; /* x96557 stalin.sc:8927:303727 */ a39767 = t64791; /* x291737 */ /* x291736 */ t64792 = a39767; /* x291735 */ if (!((t64792.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34684]"); structure_ref_error();} t64789 = t64792.value.structure_type27698->s11; /* x96556 stalin.sc:8927:303714 */ a40424 = t64789; /* x294365 */ /* x294364 */ t64790 = a40424; /* x294363 */ if (!((t64790.tag)==STRUCTURE_TYPE27698)) goto l10594; /* x96594 */ /* x96570 stalin.sc:8928:303751 */ /* x96569 stalin.sc:8928:303756 */ /* x96567 stalin.sc:8928:303761 */ /* x96566 stalin.sc:8928:303778 */ /* x96565 stalin.sc:8928:303797 */ t64797 = a23424; /* x96564 stalin.sc:8928:303779 */ a39766 = t64797; /* x291733 */ /* x291732 */ t64798 = a39766; /* x291731 */ if (!((t64798.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34683]"); structure_ref_error();} t64795 = t64798.value.structure_type27698->s11; /* x96563 stalin.sc:8928:303762 */ a40329 = t64795; /* x293985 */ /* x293984 */ t64796 = a40329; /* x293983 */ if (!((t64796.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35246]"); structure_ref_error();} t64793 = t64796.value.structure_type27698->s0; /* x96568 stalin.sc:8928:303801 */ t64794 = q39; /* x269723 stalin.sc:8928:303757 */ if (t64793==t64794) goto l10594; /* x96592 */ /* x96580 stalin.sc:8929:303813 */ /* x96579 stalin.sc:8929:303818 */ /* x96577 stalin.sc:8929:303823 */ /* x96576 stalin.sc:8929:303840 */ /* x96575 stalin.sc:8929:303859 */ t64803 = a23424; /* x96574 stalin.sc:8929:303841 */ a39765 = t64803; /* x291729 */ /* x291728 */ t64804 = a39765; /* x291727 */ if (!((t64804.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34682]"); structure_ref_error();} t64801 = t64804.value.structure_type27698->s11; /* x96573 stalin.sc:8929:303824 */ a40328 = t64801; /* x293981 */ /* x293980 */ t64802 = a40328; /* x293979 */ if (!((t64802.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35245]"); structure_ref_error();} t64799 = t64802.value.structure_type27698->s0; /* x96578 stalin.sc:8929:303863 */ t64800 = q40; /* x269721 stalin.sc:8929:303819 */ if (t64799==t64800) goto l10594; /* x96590 */ /* x96589 stalin.sc:8930:303890 */ /* x96587 stalin.sc:8930:303895 */ /* x96586 stalin.sc:8930:303912 */ /* x96585 stalin.sc:8930:303931 */ t64809 = a23424; /* x96584 stalin.sc:8930:303913 */ a39764 = t64809; /* x291725 */ /* x291724 */ t64810 = a39764; /* x291723 */ if (!((t64810.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34681]"); structure_ref_error();} t64807 = t64810.value.structure_type27698->s11; /* x96583 stalin.sc:8930:303896 */ a40327 = t64807; /* x293977 */ /* x293976 */ t64808 = a40327; /* x293975 */ if (!((t64808.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35244]"); structure_ref_error();} t64805 = t64808.value.structure_type27698->s0; /* x96588 stalin.sc:8931:303940 */ t64806 = q41; /* x269719 stalin.sc:8930:303891 */ if (t64805==t64806) goto l10594; /* x96603 */ /* x96602 */ /* x96601 stalin.sc:8932:303970 */ /* x96600 stalin.sc:8932:303977 */ /* x96599 stalin.sc:8932:303996 */ t64812 = a23424; /* x96598 stalin.sc:8932:303978 */ a39763 = t64812; /* x291721 */ /* x291720 */ t64813 = a39763; /* x291719 */ if (!((t64813.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34680]"); structure_ref_error();} t64811 = t64813.value.structure_type27698->s11; /* x96597 stalin.sc:8932:303971 */ f10873(t64811); goto l10595; l10594: /* x96605 stalin.sc:8926:303700 */ /* x96604 stalin.sc:8926:303700 */ l10595: /* x96549 */ /* x96548 stalin.sc:8935:304108 */ /* x96520 stalin.sc:8935:304114 */ /* x96511 stalin.sc:8935:304119 */ /* x96510 stalin.sc:8935:304132 */ /* x96509 stalin.sc:8935:304151 */ t64769 = a23424; /* x96508 stalin.sc:8935:304133 */ a39762 = t64769; /* x291717 */ /* x291716 */ t64770 = a39762; /* x291715 */ if (!((t64770.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34679]"); structure_ref_error();} t64767 = t64770.value.structure_type27698->s11; /* x96507 stalin.sc:8935:304120 */ a40423 = t64767; /* x294361 */ /* x294360 */ t64768 = a40423; /* x294359 */ if (!((t64768.tag)==STRUCTURE_TYPE27698)) goto l10591; /* x96518 */ /* x96517 stalin.sc:8938:304224 */ /* x96516 stalin.sc:8938:304255 */ /* x96515 stalin.sc:8938:304274 */ t64775 = a23424; /* x96514 stalin.sc:8938:304256 */ a39761 = t64775; /* x291713 */ /* x291712 */ t64776 = a39761; /* x291711 */ if (!((t64776.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34678]"); structure_ref_error();} t64773 = t64776.value.structure_type27698->s11; /* x96513 stalin.sc:8938:304225 */ a39492 = t64773; /* x290637 */ /* x290636 */ t64774 = a39492; /* x290635 */ if (!((t64774.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34409]"); structure_ref_error();} t64771 = t64774.value.structure_type27698->s13; /* x96512 stalin.sc:8937:304204 */ a36762 = t64771; /* x279717 */ /* x279716 */ t64772 = a36762; /* x279715 */ if (!((t64772.tag)==STRUCTURE_TYPE27694)) goto l10591; /* x96545 */ /* x96544 */ /* x96543 stalin.sc:8939:304283 */ /* x96542 stalin.sc:8942:304386 */ /* x96541 stalin.sc:8942:304398 */ /* x96540 stalin.sc:8942:304429 */ /* x96539 stalin.sc:8942:304448 */ t64785 = a23424; /* x96538 stalin.sc:8942:304430 */ a39760 = t64785; /* x291709 */ /* x291708 */ t64786 = a39760; /* x291707 */ if (!((t64786.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34677]"); structure_ref_error();} t64783 = t64786.value.structure_type27698->s11; /* x96537 stalin.sc:8942:304399 */ a39491 = t64783; /* x290633 */ /* x290632 */ t64784 = a39491; /* x290631 */ if (!((t64784.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34408]"); structure_ref_error();} t64781 = t64784.value.structure_type27698->s13; /* x96536 stalin.sc:8942:304387 */ t64782 = *((struct w49 *)(&t64781)); t64777 = f8615(t64782); /* x96535 stalin.sc:8940:304297 */ /* x96521 stalin.sc:8939:304284 */ t64778.tag = NATIVE_PROCEDURE_TYPE17730; /* MOVE: branching squeezed to general */ if (t64777>=((struct structure_type24753 *)VALUE_OFFSET)) {t64779.tag = STRUCTURE_TYPE24753; t64779.value.structure_type24753 = t64777;} else t64779.tag = (unsigned)t64777; t64780 = (struct structure_type24753 *)NULL_TYPE; f27755(t64778, t64779, t64780); return; l10591: /* x96547 stalin.sc:8935:304108 */ /* x96546 stalin.sc:8935:304108 */ return;} /* ASSERT-CONTINUES![10619] */ void f10619(struct w49 a23422) {struct w49 a20924; /* X */ struct w49 a38461; /* S */ struct w49 t64814; struct w49 t64815; struct w49 t64816; int t64817; int t64818; int t64819; struct structure_type24753 *t64820; struct w49 t64821; struct w49 t64822; struct w49 t64823; /* x96499 stalin.sc:8915:303366 */ /* x96486 stalin.sc:8915:303374 */ /* x96485 stalin.sc:8915:303397 */ t64814 = a23422; /* x96484 stalin.sc:8915:303375 */ if (f6951(t64814)==FALSE_TYPE) goto l10600; /* x96488 */ /* x96487 */ return; l10600: /* x96498 */ /* x96497 */ /* x96496 */ /* x96495 stalin.sc:8916:303402 */ /* x96493 stalin.sc:8916:303430 */ t64815 = a23422; /* x96494 stalin.sc:8916:303432 */ /* x96492 stalin.sc:8916:303403 */ a20924 = t64815; /* x58654 */ /* x58653 stalin.sc:786:24697 */ /* x58646 stalin.sc:786:24705 */ /* x58645 stalin.sc:786:24715 */ /* x270732 stalin.sc:786:24706 */ /* x58648 */ /* x58647 */ /* x58643 */ /* x58642 stalin.sc:787:24731 */ /* x58625 stalin.sc:788:24759 */ t64816 = a20924; /* x58641 stalin.sc:789:24763 */ /* x58626 stalin.sc:789:24767 */ /* x58632 stalin.sc:790:24776 */ /* x58631 stalin.sc:790:24808 */ t64819 = 2; /* x58630 stalin.sc:790:24784 */ /* x58629 stalin.sc:790:24805 */ t64822 = a20924; /* x58628 stalin.sc:790:24785 */ a38461 = t64822; /* x286513 */ /* x286512 */ t64823 = a38461; /* x286511 */ if (!((t64823.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BOOLEANS[5735] 33378]"); structure_ref_error();} t64818 = t64823.value.structure_type27698->s31; /* x58627 stalin.sc:790:24777 */ t64821.tag = STRUCTURE_TYPE24753; t64821.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t64821.value.structure_type24753)==NULL) {backtrace("stalin.sc", 790, 24776); out_of_memory_error();} t64821.value.structure_type24753->s0.tag = FIXNUM_TYPE; t64821.value.structure_type24753->s0.value.fixnum_type = t64819; t64821.value.structure_type24753->s1.tag = NULL_TYPE; t64820 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t64820==NULL) {backtrace("stalin.sc", 790, 24776); out_of_memory_error();} t64820->s0.tag = FIXNUM_TYPE; t64820->s0.value.fixnum_type = t64818; t64820->s1 = t64821; t64817 = f27310(t64820); /* x58624 stalin.sc:787:24732 */ f5736(t64816, t64817); /* x96491 */ /* x96490 stalin.sc:8917:303438 */ /* x96489 stalin.sc:8917:303453 */ a2038 = TRUE_TYPE; return;} /* ASSERT-SUBSET![10617] */ void f10617(struct w49 a23419, struct w49 a23420) {struct p10617 *t64824; struct w49 t64825; struct w211045 t64826; struct p10617 *e10617; e10617 = (struct p10617 *)alloca(sizeof(struct p10617)); if (e10617==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e10617->a23420 = a23420; /* x96481 stalin.sc:8912:303275 */ /* x96479 stalin.sc:8912:303292 */ t64824 = e10617; /* x96480 stalin.sc:8912:303329 */ t64825 = a23419; /* x96474 stalin.sc:8912:303276 */ t64826.tag = NATIVE_PROCEDURE_TYPE18108; t64826.value.native_procedure_type18108 = t64824; f8173(t64826, t64825); return;} /* [inside ASSERT-MEMBER! 10613] */ void f10613(struct w49 a23418) {struct w49 a36484; /* S */ struct w49 t64827; struct w49 t64828; struct w49 t64829; struct w49 t64830; /* x96451 stalin.sc:8902:302820 */ /* x96441 stalin.sc:8902:302828 */ /* x96440 stalin.sc:8902:302850 */ t64827 = a23418; /* x96439 stalin.sc:8902:302829 */ if (f8751(t64827)==FALSE_TYPE) goto l10604; /* x96443 */ /* x96442 */ return; l10604: /* x96450 */ /* x96449 */ /* x96448 stalin.sc:8902:302853 */ /* x96447 stalin.sc:8902:302860 */ /* x96446 stalin.sc:8902:302882 */ t64829 = a23418; /* x96445 stalin.sc:8902:302861 */ a36484 = t64829; /* x278605 */ /* x278604 */ t64830 = a36484; /* x278603 */ if (!((t64830.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31401]"); structure_ref_error();} t64828 = t64830.value.structure_type27745->s0; /* x96444 stalin.sc:8902:302854 */ f10873(t64828); return;} /* ASSERT-MEMBER![10604] */ void f10604(struct w49 a23412, struct w49 a23413) {struct w9140 a36765; /* OBJ */ struct w49 a37011; /* OBJ */ struct w49 a37107; /* S */ struct w49 a37108; /* S */ struct w49 a37109; /* S */ struct w49 a37118; /* S */ struct w49 a37119; /* S */ struct w49 a37120; /* S */ struct w49 a37121; /* S */ struct w49 a37122; /* S */ struct w49 a37123; /* S */ struct w49 a37126; /* S */ struct w49 a37127; /* S */ struct w49 a37131; /* S */ struct w49 a37132; /* S */ struct w49 a37133; /* S */ struct w49 a37140; /* S */ struct w49 a39497; /* S */ struct w49 a39498; /* S */ struct w49 a39789; /* S */ struct w49 a39790; /* S */ struct w49 a39791; /* S */ struct w49 a39792; /* S */ struct w49 a39793; /* S */ struct w49 a39794; /* S */ struct w49 a39819; /* S */ struct w49 a39820; /* S */ struct w49 a40338; /* S */ struct w49 a40339; /* S */ struct w49 a40340; /* S */ struct w49 a40427; /* OBJ */ struct w49 a40428; /* OBJ */ struct w49 a40448; /* OBJ */ struct w49 a40449; /* OBJ */ struct w49 t64831; struct w49 t64832; struct w49 t64833; struct w49 t64834; struct w49 t64835; struct w49 t64836; struct w49 t64837; struct w49 t64838; struct w12224 t64839; struct w36108 t64840; struct w49 t64841; struct structure_type24753 *t64842; struct w49 t64843; struct w49 t64844; struct w49 t64845; struct w49 t64846; struct w49 t64847; struct w49 t64848; struct w49 t64849; struct w49 t64850; struct w49 t64851; struct w49 t64852; struct w49 t64853; struct w49 t64854; struct w49 t64855; struct w49 t64856; struct w49 t64857; struct w49 t64858; struct w49 t64859; char *t64860; char *t64861; struct w49 t64862; struct w49 t64863; struct w49 t64864; struct w49 t64865; struct w49 t64866; struct w49 t64867; char *t64868; char *t64869; struct w49 t64870; struct w49 t64871; struct w49 t64872; struct w49 t64873; struct w49 t64874; struct w49 t64875; char *t64876; char *t64877; struct w49 t64878; struct w49 t64879; struct w49 t64880; struct w49 t64881; struct w49 t64882; struct w49 t64883; struct w49 t64884; struct w49 t64885; struct w49 t64886; struct w49 t64887; struct w49 t64888; struct w49 t64889; struct w49 t64890; struct w49 t64891; struct w49 t64892; struct w49 t64893; struct w49 t64894; struct w49 t64895; struct w49 t64896; struct w49 t64897; struct w49 t64898; struct w49 t64899; struct w49 t64900; struct w9140 t64901; struct w9140 t64902; struct w49 t64903; struct w49 t64904; struct w49 t64905; struct w49 t64906; struct w49 t64907; struct w49 t64908; struct structure_type24753 *t64909; struct w36108 t64910; struct w49 t64911; struct structure_type24753 *t64912; struct w9140 t64913; struct w49 t64914; struct w49 t64915; struct w49 t64916; struct w49 t64917; struct w49 t64918; struct w49 t64919; struct w49 t64920; /* x96471 stalin.sc:8874:301684 */ /* x96302 stalin.sc:8874:301692 */ /* x96300 stalin.sc:8874:301701 */ t64831 = a23412; /* x96301 stalin.sc:8874:301703 */ t64832 = a23413; /* x96299 stalin.sc:8874:301693 */ if (f8033(t64831, t64832)==FALSE_TYPE) goto l10606; /* x96304 */ /* x96303 */ return; l10606: /* x96470 */ /* x96469 */ /* x96468 */ /* x96332 stalin.sc:8875:301708 */ /* x96330 stalin.sc:8875:301724 */ t64846 = a23412; /* x96331 stalin.sc:8875:301726 */ t64847 = a23413; /* x96329 stalin.sc:8875:301709 */ a21648 = t64846; f8040(t64847); /* x96334 stalin.sc:8876:301731 */ /* x96333 stalin.sc:8876:301746 */ a2038 = TRUE_TYPE; /* x96407 stalin.sc:8880:301893 */ /* x96395 stalin.sc:8880:301899 */ /* x96337 stalin.sc:8881:301906 */ /* x96336 stalin.sc:8881:301925 */ t64848 = a23413; /* x96335 stalin.sc:8881:301907 */ a37132 = t64848; /* x281197 */ /* x281196 */ t64849 = a37132; /* x281195 */ if (!((t64849.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32049]"); structure_ref_error();} if ((t64849.value.structure_type27650->s0.tag)==FALSE_TYPE) goto l10611; /* x96393 */ /* x96342 stalin.sc:8882:301930 */ /* x96341 stalin.sc:8882:301943 */ /* x96340 stalin.sc:8882:301962 */ t64852 = a23413; /* x96339 stalin.sc:8882:301944 */ a37131 = t64852; /* x281193 */ /* x281192 */ t64853 = a37131; /* x281191 */ if (!((t64853.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32048]"); structure_ref_error();} t64850 = t64853.value.structure_type27650->s0; /* x96338 stalin.sc:8882:301931 */ a40448 = t64850; /* x294461 */ /* x294460 */ t64851 = a40448; /* x294459 */ if (!((t64851.tag)==STRUCTURE_TYPE27698)) goto l10611; /* x96391 */ /* x96349 stalin.sc:8883:301968 */ /* x96348 stalin.sc:8883:301981 */ /* x96347 stalin.sc:8883:302000 */ /* x96346 stalin.sc:8883:302019 */ t64858 = a23413; /* x96345 stalin.sc:8883:302001 */ a37126 = t64858; /* x281173 */ /* x281172 */ t64859 = a37126; /* x281171 */ if (!((t64859.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32043]"); structure_ref_error();} t64856 = t64859.value.structure_type27650->s0; /* x96344 stalin.sc:8883:301982 */ a39819 = t64856; /* x291945 */ /* x291944 */ t64857 = a39819; /* x291943 */ if (!((t64857.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34736]"); structure_ref_error();} t64854 = t64857.value.structure_type27698->s11; /* x96343 stalin.sc:8883:301969 */ a40427 = t64854; /* x294377 */ /* x294376 */ t64855 = a40427; /* x294375 */ if (!((t64855.tag)==STRUCTURE_TYPE27698)) goto l10611; /* x96389 */ /* x96361 stalin.sc:8884:302026 */ /* x96360 stalin.sc:8884:302031 */ /* x96358 stalin.sc:8884:302036 */ /* x96357 stalin.sc:8884:302053 */ /* x96356 stalin.sc:8884:302072 */ /* x96355 stalin.sc:8884:302091 */ t64866 = a23413; /* x96354 stalin.sc:8884:302073 */ a37121 = t64866; /* x281153 */ /* x281152 */ t64867 = a37121; /* x281151 */ if (!((t64867.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32038]"); structure_ref_error();} t64864 = t64867.value.structure_type27650->s0; /* x96353 stalin.sc:8884:302054 */ a39792 = t64864; /* x291837 */ /* x291836 */ t64865 = a39792; /* x291835 */ if (!((t64865.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34709]"); structure_ref_error();} t64862 = t64865.value.structure_type27698->s11; /* x96352 stalin.sc:8884:302037 */ a40340 = t64862; /* x294029 */ /* x294028 */ t64863 = a40340; /* x294027 */ if (!((t64863.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35257]"); structure_ref_error();} t64860 = t64863.value.structure_type27698->s0; /* x96359 stalin.sc:8885:302101 */ t64861 = q39; /* x269729 stalin.sc:8884:302032 */ if (t64860==t64861) goto l10611; /* x96387 */ /* x96373 stalin.sc:8886:302113 */ /* x96372 stalin.sc:8886:302118 */ /* x96370 stalin.sc:8886:302123 */ /* x96369 stalin.sc:8886:302140 */ /* x96368 stalin.sc:8886:302159 */ /* x96367 stalin.sc:8886:302178 */ t64874 = a23413; /* x96366 stalin.sc:8886:302160 */ a37120 = t64874; /* x281149 */ /* x281148 */ t64875 = a37120; /* x281147 */ if (!((t64875.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32037]"); structure_ref_error();} t64872 = t64875.value.structure_type27650->s0; /* x96365 stalin.sc:8886:302141 */ a39791 = t64872; /* x291833 */ /* x291832 */ t64873 = a39791; /* x291831 */ if (!((t64873.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34708]"); structure_ref_error();} t64870 = t64873.value.structure_type27698->s11; /* x96364 stalin.sc:8886:302124 */ a40339 = t64870; /* x294025 */ /* x294024 */ t64871 = a40339; /* x294023 */ if (!((t64871.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35256]"); structure_ref_error();} t64868 = t64871.value.structure_type27698->s0; /* x96371 stalin.sc:8887:302188 */ t64869 = q40; /* x269727 stalin.sc:8886:302119 */ if (t64868==t64869) goto l10611; /* x96385 */ /* x96384 stalin.sc:8888:302215 */ /* x96382 stalin.sc:8888:302220 */ /* x96381 stalin.sc:8888:302237 */ /* x96380 stalin.sc:8888:302256 */ /* x96379 stalin.sc:8888:302275 */ t64882 = a23413; /* x96378 stalin.sc:8888:302257 */ a37119 = t64882; /* x281145 */ /* x281144 */ t64883 = a37119; /* x281143 */ if (!((t64883.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32036]"); structure_ref_error();} t64880 = t64883.value.structure_type27650->s0; /* x96377 stalin.sc:8888:302238 */ a39790 = t64880; /* x291829 */ /* x291828 */ t64881 = a39790; /* x291827 */ if (!((t64881.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34707]"); structure_ref_error();} t64878 = t64881.value.structure_type27698->s11; /* x96376 stalin.sc:8888:302221 */ a40338 = t64878; /* x294021 */ /* x294020 */ t64879 = a40338; /* x294019 */ if (!((t64879.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35255]"); structure_ref_error();} t64876 = t64879.value.structure_type27698->s0; /* x96383 stalin.sc:8889:302285 */ t64877 = q41; /* x269725 stalin.sc:8888:302216 */ if (t64876==t64877) goto l10611; /* x96404 */ /* x96403 */ /* x96402 stalin.sc:8890:302315 */ /* x96401 stalin.sc:8890:302322 */ /* x96400 stalin.sc:8890:302341 */ /* x96399 stalin.sc:8890:302360 */ t64887 = a23413; /* x96398 stalin.sc:8890:302342 */ a37118 = t64887; /* x281141 */ /* x281140 */ t64888 = a37118; /* x281139 */ if (!((t64888.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32035]"); structure_ref_error();} t64885 = t64888.value.structure_type27650->s0; /* x96397 stalin.sc:8890:302323 */ a39789 = t64885; /* x291825 */ /* x291824 */ t64886 = a39789; /* x291823 */ if (!((t64886.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34706]"); structure_ref_error();} t64884 = t64886.value.structure_type27698->s11; /* x96396 stalin.sc:8890:302316 */ f10873(t64884); goto l10612; l10611: /* x96406 stalin.sc:8880:301893 */ /* x96405 stalin.sc:8880:301893 */ l10612: /* x96467 stalin.sc:8894:302504 */ /* x96437 stalin.sc:8894:302510 */ /* x96410 stalin.sc:8894:302515 */ /* x96409 stalin.sc:8894:302534 */ t64889 = a23413; /* x96408 stalin.sc:8894:302516 */ a37140 = t64889; /* x281229 */ /* x281228 */ t64890 = a37140; /* x281227 */ if (!((t64890.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32057]"); structure_ref_error();} if ((t64890.value.structure_type27650->s0.tag)==FALSE_TYPE) goto l10619; /* x96435 */ /* x96415 stalin.sc:8895:302543 */ /* x96414 stalin.sc:8895:302556 */ /* x96413 stalin.sc:8895:302575 */ t64893 = a23413; /* x96412 stalin.sc:8895:302557 */ a37133 = t64893; /* x281201 */ /* x281200 */ t64894 = a37133; /* x281199 */ if (!((t64894.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32050]"); structure_ref_error();} t64891 = t64894.value.structure_type27650->s0; /* x96411 stalin.sc:8895:302544 */ a40449 = t64891; /* x294465 */ /* x294464 */ t64892 = a40449; /* x294463 */ if (!((t64892.tag)==STRUCTURE_TYPE27698)) goto l10619; /* x96433 */ /* x96422 stalin.sc:8896:302585 */ /* x96421 stalin.sc:8896:302598 */ /* x96420 stalin.sc:8896:302617 */ /* x96419 stalin.sc:8896:302636 */ t64899 = a23413; /* x96418 stalin.sc:8896:302618 */ a37127 = t64899; /* x281177 */ /* x281176 */ t64900 = a37127; /* x281175 */ if (!((t64900.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32044]"); structure_ref_error();} t64897 = t64900.value.structure_type27650->s0; /* x96417 stalin.sc:8896:302599 */ a39820 = t64897; /* x291949 */ /* x291948 */ t64898 = a39820; /* x291947 */ if (!((t64898.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34737]"); structure_ref_error();} t64895 = t64898.value.structure_type27698->s11; /* x96416 stalin.sc:8896:302586 */ a40428 = t64895; /* x294381 */ /* x294380 */ t64896 = a40428; /* x294379 */ if (!((t64896.tag)==STRUCTURE_TYPE27698)) goto l10619; /* x96431 */ /* x96430 stalin.sc:8898:302703 */ /* x96429 stalin.sc:8899:302741 */ /* x96428 stalin.sc:8899:302760 */ /* x96427 stalin.sc:8899:302779 */ t64907 = a23413; /* x96426 stalin.sc:8899:302761 */ a37123 = t64907; /* x281161 */ /* x281160 */ t64908 = a37123; /* x281159 */ if (!((t64908.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32040]"); structure_ref_error();} t64905 = t64908.value.structure_type27650->s0; /* x96425 stalin.sc:8899:302742 */ a39794 = t64905; /* x291845 */ /* x291844 */ t64906 = a39794; /* x291843 */ if (!((t64906.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34711]"); structure_ref_error();} t64903 = t64906.value.structure_type27698->s11; /* x96424 stalin.sc:8898:302704 */ a39498 = t64903; /* x290661 */ /* x290660 */ t64904 = a39498; /* x290659 */ if (!((t64904.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34415]"); structure_ref_error();} t64901 = t64904.value.structure_type27698->s13; /* x96423 stalin.sc:8898:302690 */ a36765 = t64901; /* x279729 */ /* x279728 */ t64902 = a36765; /* x279727 */ if (!((t64902.tag)==STRUCTURE_TYPE27694)) goto l10619; /* x96464 */ /* x96463 */ /* x96462 stalin.sc:8900:302789 */ /* x96461 stalin.sc:8903:302892 */ /* x96460 stalin.sc:8903:302904 */ /* x96459 stalin.sc:8904:302938 */ /* x96458 stalin.sc:8904:302957 */ /* x96457 stalin.sc:8904:302976 */ t64919 = a23413; /* x96456 stalin.sc:8904:302958 */ a37122 = t64919; /* x281157 */ /* x281156 */ t64920 = a37122; /* x281155 */ if (!((t64920.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32039]"); structure_ref_error();} t64917 = t64920.value.structure_type27650->s0; /* x96455 stalin.sc:8904:302939 */ a39793 = t64917; /* x291841 */ /* x291840 */ t64918 = a39793; /* x291839 */ if (!((t64918.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34710]"); structure_ref_error();} t64915 = t64918.value.structure_type27698->s11; /* x96454 stalin.sc:8903:302905 */ a39497 = t64915; /* x290657 */ /* x290656 */ t64916 = a39497; /* x290655 */ if (!((t64916.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34414]"); structure_ref_error();} t64913 = t64916.value.structure_type27698->s13; /* x96453 stalin.sc:8903:302893 */ t64914 = *((struct w49 *)(&t64913)); t64909 = f8615(t64914); /* x96452 stalin.sc:8901:302803 */ /* x96438 stalin.sc:8900:302790 */ t64910.tag = NATIVE_PROCEDURE_TYPE17505; /* MOVE: branching squeezed to general */ if (t64909>=((struct structure_type24753 *)VALUE_OFFSET)) {t64911.tag = STRUCTURE_TYPE24753; t64911.value.structure_type24753 = t64909;} else t64911.tag = (unsigned)t64909; t64912 = (struct structure_type24753 *)NULL_TYPE; f27755(t64910, t64911, t64912); goto l10620; l10619: /* x96466 stalin.sc:8894:302504 */ /* x96465 stalin.sc:8894:302504 */ l10620: /* x96328 */ /* x96327 stalin.sc:8908:303118 */ /* x96314 stalin.sc:8908:303124 */ /* x96307 stalin.sc:8908:303129 */ /* x96306 stalin.sc:8908:303148 */ t64833 = a23413; /* x96305 stalin.sc:8908:303130 */ a37109 = t64833; /* x281105 */ /* x281104 */ t64834 = a37109; /* x281103 */ if (!((t64834.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32026]"); structure_ref_error();} if ((t64834.value.structure_type27650->s0.tag)==FALSE_TYPE) goto l10608; /* x96312 */ /* x96311 stalin.sc:8908:303162 */ /* x96310 stalin.sc:8908:303181 */ t64837 = a23413; /* x96309 stalin.sc:8908:303163 */ a37108 = t64837; /* x281101 */ /* x281100 */ t64838 = a37108; /* x281099 */ if (!((t64838.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32025]"); structure_ref_error();} t64835 = t64838.value.structure_type27650->s0; /* x96308 stalin.sc:8908:303152 */ a37011 = t64835; /* x280713 */ /* x280712 */ t64836 = a37011; /* x280711 */ if (!((t64836.tag)==STRUCTURE_TYPE27692)) goto l10608; /* x96324 */ /* x96323 */ /* x96322 stalin.sc:8909:303189 */ /* x96321 stalin.sc:8909:303205 */ /* x96320 stalin.sc:8909:303215 */ /* x96319 stalin.sc:8909:303234 */ t64844 = a23413; /* x96318 stalin.sc:8909:303216 */ a37107 = t64844; /* x281097 */ /* x281096 */ t64845 = a37107; /* x281095 */ if (!((t64845.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32024]"); structure_ref_error();} t64843 = t64845.value.structure_type27650->s0; /* x96317 stalin.sc:8909:303206 */ t64839 = f8243(t64843); /* x96316 stalin.sc:8909:303199 */ /* x96315 stalin.sc:8909:303190 */ t64840.tag = NATIVE_PROCEDURE_TYPE7105; t64841 = *((struct w49 *)(&t64839)); t64842 = (struct structure_type24753 *)NULL_TYPE; f27755(t64840, t64841, t64842); return; l10608: /* x96326 stalin.sc:8908:303118 */ /* x96325 stalin.sc:8908:303118 */ return;} /* [inside NEEDS-IMPLICIT-CONTINUATION-CALL? 10572] */ unsigned f10572(struct p10570 *p10572, struct w49 a23394) {struct w49 a37955; /* OBJ */ struct w49 a38084; /* OBJ */ struct w49 a38212; /* OBJ */ unsigned t64921; struct w49 t64922; struct w49 t64923; struct w49 t64924; struct structure_type27745 *t64925; struct w49 t64926; struct w49 t64927; struct p7708 *t64928; struct w49 t64929; char *t64930; struct w49 t64931; struct p7708 *t64932; struct w49 t64933; char *t64934; struct w49 t64935; struct p7708 *t64936; struct w49 t64937; char *t64938; struct w49 t64939; struct p7708 *t64940; struct w49 t64941; char *t64942; struct w49 t64943; struct p7708 *t64944; struct w49 t64945; char *t64946; struct w49 t64947; struct p10570 *t64948; struct structure_type27745 *t64949; char *t64950; struct w6315 t64951; struct p10570 *t64952; struct structure_type27745 *t64953; char *t64954; struct w6315 t64955; struct w49 t64956; struct w49 t64957; struct w49 t64958; struct w49 t64959; struct structure_type27745 *t64960; struct w49 t64961; struct w49 t64962; struct structure_type27745 *t64963; struct w49 t64964; struct w49 t64965; struct structure_type27745 *t64966; struct w49 t64967; struct w49 t64968; struct w49 t64969; struct p10570 *p10573; struct p10570 *p10578; struct p10570 *p10579; /* x95939 stalin.sc:8753:297184 */ /* x95939 stalin.sc:8753:297184 */ /* x95829 stalin.sc:8754:297192 */ /* x95828 stalin.sc:8754:297230 */ t64922 = a23394; /* x95827 stalin.sc:8754:297193 */ /* x95824 stalin.sc:8754:297222 */ t64923 = p10572->a23390; /* x95825 stalin.sc:8754:297225 */ t64924 = p10572->a23391; /* x95826 stalin.sc:8754:297227 */ t64925 = p10572->a23392; /* x95823 stalin.sc:8754:297194 */ t64921 = f7892(t64923, t64924, t64925); if ((t64921&3)==1) {if ((f7905(((struct p7892 *)(t64921-1)), t64922).tag)==FALSE_TYPE) goto l10625;} else if ((f7893(((struct p7892 *)t64921), t64922).tag)==FALSE_TYPE) goto l10625; /* x95937 */ /* x95936 stalin.sc:8758:297408 */ /* x95880 stalin.sc:8759:297414 */ /* x95879 stalin.sc:8759:297441 */ t64926 = a23394; /* x95878 stalin.sc:8759:297415 */ a38212 = t64926; /* x285517 */ /* x285516 */ t64927 = a38212; /* x285515 */ if (!((t64927.tag)==STRUCTURE_TYPE27753)) goto l10628; /* x95934 */ /* x95885 stalin.sc:8763:297554 */ /* x95884 stalin.sc:8763:297596 */ t64929 = a23394; /* x95883 stalin.sc:8763:297555 */ /* x95882 stalin.sc:8763:297588 */ t64930 = q79; /* x95881 stalin.sc:8763:297556 */ t64931.tag = EXTERNAL_SYMBOL_TYPE; t64931.value.external_symbol_type = t64930; t64928 = f7708(t64931); if (f7709(t64928, t64929)==FALSE_TYPE) goto l10631; /* x95888 */ /* x95887 */ /* x95886 stalin.sc:8763:297599 */ goto l10632; l10631: /* x95933 */ /* x95893 stalin.sc:8766:297731 */ /* x95892 stalin.sc:8766:297798 */ t64933 = a23394; /* x95891 stalin.sc:8766:297732 */ /* x95890 stalin.sc:8766:297765 */ t64934 = q66; /* x95889 stalin.sc:8766:297733 */ t64935.tag = EXTERNAL_SYMBOL_TYPE; t64935.value.external_symbol_type = t64934; t64932 = f7708(t64935); if (f7709(t64932, t64933)==FALSE_TYPE) goto l10634; /* x95896 */ /* x95895 */ /* x95894 stalin.sc:8767:297804 */ goto l10635; l10634: /* x95932 */ /* x95901 stalin.sc:8770:297920 */ /* x95900 stalin.sc:8770:297962 */ t64937 = a23394; /* x95899 stalin.sc:8770:297921 */ /* x95898 stalin.sc:8770:297954 */ t64938 = q179; /* x95897 stalin.sc:8770:297922 */ t64939.tag = EXTERNAL_SYMBOL_TYPE; t64939.value.external_symbol_type = t64938; t64936 = f7708(t64939); if (f7709(t64936, t64937)==FALSE_TYPE) goto l10637; /* x95904 */ /* x95903 */ /* x95902 stalin.sc:8770:297965 */ goto l10638; l10637: /* x95931 */ /* x95909 stalin.sc:8772:298024 */ /* x95908 stalin.sc:8772:298065 */ t64941 = a23394; /* x95907 stalin.sc:8772:298025 */ /* x95906 stalin.sc:8772:298058 */ t64942 = q45; /* x95905 stalin.sc:8772:298026 */ t64943.tag = EXTERNAL_SYMBOL_TYPE; t64943.value.external_symbol_type = t64942; t64940 = f7708(t64943); if (f7709(t64940, t64941)==FALSE_TYPE) goto l10640; /* x95915 */ /* x95914 */ t64952 = p10572; p10578 = t64952; /* x95913 stalin.sc:8773:298071 */ /* x95911 stalin.sc:8773:298086 */ t64953 = p10578->a23392; /* x95912 stalin.sc:8773:298088 */ t64954 = "unimplemented"; /* x95910 stalin.sc:8773:298072 */ /* MOVE: branching squeezed to general */ if (t64953>=((struct structure_type27745 *)VALUE_OFFSET)) {t64955.tag = STRUCTURE_TYPE27745; t64955.value.structure_type27745 = t64953;} else t64955.tag = (unsigned)t64953; f9707(t64955, t64954); goto l10641; l10640: /* x95930 */ /* x95920 stalin.sc:8775:298162 */ /* x95919 stalin.sc:8775:298204 */ t64945 = a23394; /* x95918 stalin.sc:8775:298163 */ /* x95917 stalin.sc:8775:298196 */ t64946 = q44; /* x95916 stalin.sc:8775:298164 */ t64947.tag = EXTERNAL_SYMBOL_TYPE; t64947.value.external_symbol_type = t64946; t64944 = f7708(t64947); if (f7709(t64944, t64945)==FALSE_TYPE) goto l10643; /* x95926 */ /* x95925 */ t64948 = p10572; p10579 = t64948; /* x95924 stalin.sc:8776:298210 */ /* x95922 stalin.sc:8776:298225 */ t64949 = p10579->a23392; /* x95923 stalin.sc:8776:298227 */ t64950 = "unimplemented"; /* x95921 stalin.sc:8776:298211 */ /* MOVE: branching squeezed to general */ if (t64949>=((struct structure_type27745 *)VALUE_OFFSET)) {t64951.tag = STRUCTURE_TYPE27745; t64951.value.structure_type27745 = t64949;} else t64951.tag = (unsigned)t64949; f9707(t64951, t64950); goto l10644; l10643: /* x95929 */ /* x95928 */ /* x95927 stalin.sc:8781:298495 */ goto l10624; l10644: l10641: l10638: l10635: l10632: l10628: p10573 = p10572; /* x95875 */ /* x95874 stalin.sc:8782:298508 */ /* x95846 stalin.sc:8782:298513 */ /* x95845 stalin.sc:8782:298537 */ t64956 = a23394; /* x95844 stalin.sc:8782:298514 */ a38084 = t64956; /* x285005 */ /* x285004 */ t64957 = a38084; /* x285003 */ if (!((t64957.tag)==STRUCTURE_TYPE27756)) goto l10645; /* x95872 */ /* x95854 stalin.sc:8785:298681 */ /* x95853 stalin.sc:8785:298686 */ /* x95852 stalin.sc:8785:298698 */ /* x95850 stalin.sc:8785:298718 */ t64959 = a23394; /* x95851 stalin.sc:8785:298720 */ t64960 = p10573->a23392; /* x95849 stalin.sc:8785:298699 */ t64958 = f9368(t64959, t64960); /* x95848 stalin.sc:8785:298687 */ if (!(f8944(t64958)==FALSE_TYPE)) goto l10645; /* x95870 */ /* x95862 stalin.sc:8789:298898 */ /* x95861 stalin.sc:8789:298903 */ /* x95860 stalin.sc:8789:298928 */ /* x95858 stalin.sc:8789:298948 */ t64962 = a23394; /* x95859 stalin.sc:8789:298950 */ t64963 = p10573->a23392; /* x95857 stalin.sc:8789:298929 */ t64961 = f9368(t64962, t64963); /* x95856 stalin.sc:8789:298904 */ if (!(f8592(t64961)==FALSE_TYPE)) goto l10645; /* x95868 */ /* x95867 stalin.sc:8790:298984 */ /* x95865 stalin.sc:8790:299004 */ t64965 = a23394; /* x95866 stalin.sc:8790:299006 */ t64966 = p10573->a23392; /* x95864 stalin.sc:8790:298985 */ t64964 = f9368(t64965, t64966); /* x95863 stalin.sc:8790:298961 */ if (!(f10489(t64964)==FALSE_TYPE)) goto l10624; l10645: /* x95841 */ /* x95836 stalin.sc:8791:299023 */ /* x95835 stalin.sc:8791:299048 */ t64967 = a23394; /* x95834 stalin.sc:8791:299024 */ a37955 = t64967; /* x284489 */ /* x284488 */ t64968 = a37955; /* x284487 */ if (!((t64968.tag)==STRUCTURE_TYPE27750)) goto l10625; /* x95839 */ /* x95838 stalin.sc:8791:299079 */ t64969 = a23394; /* x95837 stalin.sc:8791:299052 */ if (f9870(t64969)==FALSE_TYPE) goto l10625; l10624: return TRUE_TYPE; l10625: return FALSE_TYPE;} /* NEEDS-IMPLICIT-CONTINUATION-CALL?[10570] */ struct p10570 *f10570(struct w49 a23390, struct w49 a23391, struct structure_type27745 *a23392) {struct p10570 *t64970; struct structure_type27745 *t64971; struct w49 t64972; char *t64973; struct p10570 *e10570; struct p10570 *p10571; e10570 = (struct p10570 *)GC_malloc(sizeof(struct p10570)); if (e10570==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e10570->a23390 = a23390; e10570->a23391 = a23391; e10570->a23392 = a23392; /* x95952 */ /* x95951 stalin.sc:8751:297135 */ /* x95944 stalin.sc:8751:297143 */ /* x95943 stalin.sc:8751:297155 */ t64971 = e10570->a23392; /* x95942 stalin.sc:8751:297144 */ /* MOVE: branching squeezed to general */ if (t64971>=((struct structure_type27745 *)VALUE_OFFSET)) {t64972.tag = STRUCTURE_TYPE27745; t64972.value.structure_type27745 = t64971;} else t64972.tag = (unsigned)t64971; if (f8944(t64972)==FALSE_TYPE) goto l10651; /* x95946 */ /* x95945 */ goto l10652; l10651: /* x95950 */ /* x95949 */ /* x95948 stalin.sc:8751:297158 */ /* x95947 stalin.sc:8751:297159 */ /* x296745 QobiScheme.sc:166:5314 */ /* x296744 QobiScheme.sc:166:5321 */ t64973 = "This shouldn\'t happen"; /* x296743 QobiScheme.sc:166:5315 */ stalin_panic(t64973); l10652: /* x95941 */ t64970 = e10570; p10571 = t64970; /* x95940 stalin.sc:8752:297170 */ return p10571;} /* [inside RETURNS? 10533] */ struct w16638 f10533(struct p10532 *p10533, struct w49 a23369) {struct w16638 r10533; struct w16638 a23370; /* v */ struct w16638 a23371; /* v */ unsigned a23372; /* v */ unsigned a23373; /* v */ unsigned a23374; /* v */ unsigned a23375; /* v */ unsigned a23376; /* v */ struct w16638 a23379; /* v */ struct w16638 a23381; /* v */ struct w16638 a23382; /* v */ unsigned a23389; /* v */ struct structure_type24753 *a35112; /* OBJS */ struct structure_type24753 *a35142; /* OBJS */ struct structure_type24753 *a35145; /* OBJS */ struct structure_type24753 *a35146; /* OBJS */ struct w49 a35448; /* PAIR */ struct w16638 a35449; /* PAIR */ struct w16638 a35450; /* PAIR */ struct w49 a35482; /* PAIR */ struct w16638 a35483; /* PAIR */ struct w16638 a35484; /* PAIR */ struct w16638 a35485; /* PAIR */ struct w49 a35486; /* PAIR */ struct w16638 a35487; /* PAIR */ struct w16638 a35488; /* PAIR */ struct w49 a35779; /* PAIR */ struct w16638 a35922; /* PAIR */ struct w16638 a35923; /* PAIR */ struct w49 a35988; /* PAIR */ struct w16638 a35989; /* PAIR */ struct w16638 a35990; /* PAIR */ struct w16638 a35993; /* PAIR */ struct w16638 a35994; /* PAIR */ struct w16638 a35995; /* PAIR */ struct w49 a35996; /* PAIR */ struct structure_type27745 *a36448; /* S */ struct w49 a37956; /* OBJ */ struct w49 a38085; /* OBJ */ struct w49 a38213; /* OBJ */ unsigned t64974; struct w49 t64975; struct w49 t64976; struct w49 t64977; struct structure_type27745 *t64978; struct p10532 *t64979; struct w16638 t64980; struct p10532 *t64981; struct w16638 t64982; struct w49 t64983; struct w49 t64984; struct w49 t64985; struct p10532 *t64986; unsigned t64987; struct p10532 *t64988; struct w49 t64989; struct w211257 t64990; struct structure_type24753 *t64991; struct structure_type27650 *t64992; struct structure_type27745 *t64993; struct w49 t64994; struct w49 t64995; struct structure_type27745 *t64996; struct structure_type27650 *t64997; struct structure_type27745 *t64998; char *t64999; struct w49 t65000; struct w49 t65001; struct structure_type27745 *t65002; struct w49 t65003; struct w49 t65004; struct w49 t65005; struct w49 t65006; struct w49 t65007; struct structure_type27745 *t65008; struct p10532 *t65009; unsigned t65010; struct p10532 *t65011; unsigned t65012; struct p10532 *t65013; unsigned t65014; struct p10532 *t65015; unsigned t65016; struct p10532 *t65017; struct w49 t65018; struct w211257 t65019; struct structure_type24753 *t65020; struct structure_type27650 *t65021; struct structure_type27745 *t65022; struct w49 t65023; struct w49 t65024; struct structure_type27745 *t65025; struct structure_type27650 *t65026; struct structure_type27745 *t65027; char *t65028; struct w49 t65029; struct w49 t65030; struct w49 t65031; struct w49 t65032; struct structure_type27745 *t65033; struct w49 t65034; struct w49 t65035; struct structure_type27745 *t65036; struct w49 t65037; struct w49 t65038; struct structure_type27745 *t65039; struct structure_type27745 *t65040; struct w49 t65041; struct w49 t65042; struct w49 t65043; struct p7708 *t65044; struct w49 t65045; char *t65046; struct w49 t65047; struct p7708 *t65048; struct w49 t65049; char *t65050; struct w49 t65051; struct p7708 *t65052; struct w49 t65053; char *t65054; struct w49 t65055; struct p7708 *t65056; struct w49 t65057; char *t65058; struct w49 t65059; struct p7708 *t65060; struct w49 t65061; char *t65062; struct w49 t65063; struct p10532 *t65064; struct p10532 *t65065; unsigned t65066; struct p10532 *t65067; struct w49 t65068; struct w211257 t65069; struct structure_type24753 *t65070; struct structure_type27650 *t65071; struct structure_type27745 *t65072; struct w49 t65073; struct w49 t65074; struct structure_type27745 *t65075; struct structure_type27650 *t65076; struct structure_type27745 *t65077; char *t65078; struct w49 t65079; struct w49 t65080; struct structure_type27745 *t65081; struct w49 t65082; struct p10532 *t65083; struct structure_type27745 *t65084; struct w49 t65085; struct p10532 *t65086; struct structure_type27745 *t65087; char *t65088; struct w6315 t65089; struct p10532 *t65090; struct structure_type27745 *t65091; struct w49 t65092; struct p10532 *t65093; struct structure_type27745 *t65094; char *t65095; struct w6315 t65096; struct p10532 *t65097; struct p10532 *t65098; struct w16638 t65099; struct p10532 *t65100; struct w21193 t65101; struct w228345 t65102; struct w49 t65103; struct structure_type24753 *t65104; struct structure_type27745 *t65105; struct w49 t65106; struct w49 t65107; struct p10532 *t65108; struct w49 t65109; struct w211257 t65110; struct structure_type24753 *t65111; struct w49 t65112; struct structure_type27745 *t65113; struct w49 t65114; struct structure_type27745 *t65115; struct structure_type27650 *t65116; struct structure_type27858 *t65117; struct structure_type24753 *t65118; struct w49 t65119; struct structure_type27745 *t65120; struct structure_type27745 *t65121; struct structure_type27745 *t65122; char *t65123; struct w16638 t65124; struct w16638 t65125; struct p10532 *t65126; struct w49 t65127; struct w211257 t65128; struct w49 t65129; struct w49 t65130; struct w16638 t65131; struct w16638 t65132; struct p10532 *t65133; struct p10532 *t65134; struct w49 t65135; struct w211257 t65136; struct structure_type24753 *t65137; struct w49 t65138; struct structure_type27745 *t65139; struct w49 t65140; struct structure_type27745 *t65141; struct w49 t65142; struct structure_type24753 *t65143; struct w16638 t65144; struct w16638 t65145; struct w49 t65146; struct w49 t65147; struct w16638 t65148; struct w16638 t65149; struct w49 t65150; struct w49 t65151; struct w16638 t65152; struct w16638 t65153; struct structure_type27745 *t65154; char *t65155; struct w16638 t65156; struct w49 t65157; struct p10532 *t65158; struct p10532 *t65159; struct w49 t65160; struct w211257 t65161; struct p10532 *t65162; struct p10532 *t65163; struct w49 t65164; struct w211257 t65165; struct p10532 *t65166; struct structure_type27745 *t65167; struct w49 t65168; struct w49 t65169; struct p10532 *t65170; struct w16638 t65171; struct p10532 *t65172; struct w49 t65173; struct w211257 t65174; struct w49 t65175; struct w49 t65176; struct structure_type27745 *t65177; struct structure_type27745 *t65178; struct w16638 t65179; struct w16638 t65180; struct structure_type27745 *t65181; char *t65182; struct w16638 t65183; struct w16638 t65184; struct w49 t65185; struct w211257 t65186; struct p10532 *t65187; struct w49 t65188; struct w211257 t65189; struct w12224 t65190; struct w49 t65191; struct structure_type27745 *t65192; struct w49 t65193; struct structure_type27745 *t65194; struct w49 t65195; struct w16638 t65196; struct w16638 t65197; struct w16638 t65198; struct w49 t65199; struct structure_type27745 *t65200; char *t65201; struct w16638 t65202; struct w16638 t65203; struct p10532 *t65204; struct w49 t65205; struct w211257 t65206; struct w49 t65207; struct w49 t65208; struct w16638 t65209; struct w16638 t65210; struct p10532 *t65211; struct p10532 *t65212; struct w16638 t65213; struct p10532 *t65214; struct w49 t65215; struct w211257 t65216; struct structure_type24753 *t65217; struct w49 t65218; struct structure_type27745 *t65219; struct w49 t65220; struct structure_type27745 *t65221; struct w49 t65222; struct w49 t65223; struct w16638 t65224; struct w16638 t65225; struct w49 t65226; struct w49 t65227; struct w16638 t65228; struct w16638 t65229; struct structure_type27745 *t65230; char *t65231; struct w16638 t65232; struct w49 t65233; struct w49 t65234; struct w211257 t65235; struct p10532 *t65236; struct w49 t65237; struct w211257 t65238; struct structure_type24753 *t65239; struct w49 t65240; struct structure_type27745 *t65241; struct w49 t65242; struct structure_type27745 *t65243; struct w49 t65244; struct w12224 t65245; struct w16638 t65246; struct w16638 t65247; struct w49 t65248; struct w49 t65249; struct w49 t65250; struct w16638 t65251; struct w16638 t65252; struct w16638 t65253; struct w49 t65254; struct structure_type27745 *t65255; char *t65256; struct w16638 t65257; struct w49 t65258; struct p10532 *t65259; struct p10532 *t65260; struct w49 t65261; struct w211257 t65262; struct p10532 *t65263; struct p10532 *t65264; struct w49 t65265; struct w211257 t65266; struct p10532 *p10534; struct p10532 *p10535; struct p10532 *p10536; struct p10532 *p10537; struct p10532 *p10538; struct p10532 *p10539; struct p10532 *p10540; struct p10532 *p10541; struct p10532 *p10542; struct p10532 *p10544; struct p10532 *p10546; struct p10532 *p10547; struct p10532 *p10549; struct p10532 *p10550; struct p10532 *p10551; struct p10532 *p10553; struct p10532 *p10555; struct p10532 *p10557; struct p10532 *p10560; struct p10532 *p10562; struct p10532 *p10564; struct p10532 *p10566; struct p10532 *p10568; struct p10532 *p10569; /* x95819 stalin.sc:8595:292517 */ /* x95185 stalin.sc:8596:292525 */ /* x95184 stalin.sc:8596:292563 */ t64975 = a23369; /* x95183 stalin.sc:8596:292526 */ /* x95180 stalin.sc:8596:292555 */ t64976 = p10533->a23366; /* x95181 stalin.sc:8596:292558 */ t64977 = p10533->a23367; /* x95182 stalin.sc:8596:292560 */ t64978 = p10533->a23368; /* x95179 stalin.sc:8596:292527 */ t64974 = f7892(t64976, t64977, t64978); if ((t64974&3)==1) {if ((f7905(((struct p7892 *)(t64974-1)), t64975).tag)==FALSE_TYPE) goto l10654;} else if ((f7893(((struct p7892 *)t64974), t64975).tag)==FALSE_TYPE) goto l10654; /* x95817 */ /* x95816 stalin.sc:8598:292629 */ /* x95305 stalin.sc:8599:292635 */ /* x95304 stalin.sc:8599:292662 */ t65042 = a23369; /* x95303 stalin.sc:8599:292636 */ a38213 = t65042; /* x285521 */ /* x285520 */ t65043 = a38213; /* x285519 */ if (!((t65043.tag)==STRUCTURE_TYPE27753)) goto l10693; /* x95814 */ /* x95310 stalin.sc:8601:292675 */ /* x95309 stalin.sc:8601:292717 */ t65045 = a23369; /* x95308 stalin.sc:8601:292676 */ /* x95307 stalin.sc:8601:292709 */ t65046 = q79; /* x95306 stalin.sc:8601:292677 */ t65047.tag = EXTERNAL_SYMBOL_TYPE; t65047.value.external_symbol_type = t65046; t65044 = f7708(t65047); if (f7709(t65044, t65045)==FALSE_TYPE) goto l10696; /* x95526 */ /* x95525 */ t65166 = p10533; p10541 = t65166; /* x95524 stalin.sc:8602:292723 */ /* x95313 stalin.sc:8603:292736 */ /* x95312 stalin.sc:8603:292748 */ t65167 = p10541->a23368; /* x95311 stalin.sc:8603:292737 */ /* MOVE: branching squeezed to general */ if (t65167>=((struct structure_type27745 *)VALUE_OFFSET)) {t65168.tag = STRUCTURE_TYPE27745; t65168.value.structure_type27745 = t65167;} else t65168.tag = (unsigned)t65167; if (f8944(t65168)==FALSE_TYPE) goto l10738; /* x95448 stalin.sc:8604:292759 */ /* x95316 stalin.sc:8605:292768 */ /* x95315 stalin.sc:8605:292775 */ t65207 = p10541->a23366; /* x269751 stalin.sc:8605:292769 */ if (!((t65207.tag)==NULL_TYPE)) goto l10750; /* x95352 */ /* x95351 */ t65263 = p10541; p10542 = t65263; /* x95350 stalin.sc:8606:292782 */ /* x95348 stalin.sc:8607:292795 */ t65264 = p10542; /* x95349 stalin.sc:8614:293056 */ t65265 = p10542->a23367; /* x95317 stalin.sc:8606:292783 */ t65266.tag = NATIVE_PROCEDURE_TYPE19980; t65266.value.native_procedure_type19980 = t65264; t64980 = f8137(t65266, t65265); goto l10751; l10750: /* x95447 */ /* x95357 stalin.sc:8615:293063 */ /* x95356 stalin.sc:8615:293070 */ /* x95355 stalin.sc:8615:293076 */ t65209 = *((struct w16638 *)(&(p10541->a23366))); /* x95354 stalin.sc:8615:293071 */ a35484 = t65209; /* x273293 */ /* x273292 */ t65210 = a35484; /* x273291 */ if (!((t65210.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29633]"); structure_ref_error();} t65208 = t65210.value.structure_type24753->s1; /* x269750 stalin.sc:8615:293064 */ if (!((t65208.tag)==NULL_TYPE)) goto l10753; /* x95385 */ /* x95384 */ t65259 = p10541; p10544 = t65259; /* x95383 stalin.sc:8616:293084 */ /* x95381 stalin.sc:8617:293097 */ t65260 = p10544; /* x95382 stalin.sc:8624:293304 */ t65261 = p10544->a23367; /* x95358 stalin.sc:8616:293085 */ t65262.tag = NATIVE_PROCEDURE_TYPE19978; t65262.value.native_procedure_type19978 = t65260; t64980 = f8137(t65262, t65261); goto l10754; l10753: /* x95446 */ /* x95445 */ t65211 = p10541; p10546 = t65211; /* x95444 stalin.sc:8626:293319 */ /* x95443 stalin.sc:8626:293323 */ /* x95415 stalin.sc:8626:293328 */ /* x95413 stalin.sc:8626:293337 */ /* x95414 stalin.sc:8626:293348 */ t65234 = p10546->a23367; /* x95412 stalin.sc:8626:293329 */ t65235.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8137(t65235, t65234).tag)==FALSE_TYPE) goto l10759; /* x95441 */ /* x95437 stalin.sc:8628:293371 */ /* x95429 stalin.sc:8629:293388 */ /* x95421 stalin.sc:8629:293394 */ /* x95420 stalin.sc:8629:293401 */ t65246 = *((struct w16638 *)(&(p10546->a23366))); /* x95419 stalin.sc:8629:293395 */ a35922 = t65246; /* x275045 */ /* x275044 */ t65247 = a35922; /* x275043 */ if (!((t65247.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30071]"); structure_ref_error();} t65244 = t65247.value.structure_type24753->s0; /* x95428 stalin.sc:8629:293405 */ /* x95427 stalin.sc:8629:293415 */ /* x95426 stalin.sc:8629:293421 */ /* x95425 stalin.sc:8629:293427 */ t65251 = *((struct w16638 *)(&(p10546->a23366))); /* x95424 stalin.sc:8629:293422 */ a35449 = t65251; /* x273153 */ /* x273152 */ t65252 = a35449; /* x273151 */ if (!((t65252.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29598]"); structure_ref_error();} t65249 = t65252.value.structure_type24753->s1; /* x95423 stalin.sc:8629:293416 */ a35448 = t65249; /* x273149 */ /* x273148 */ t65250 = a35448; /* x273147 */ if (!((t65250.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29597]"); structure_ref_error();} t65248 = t65250.value.structure_type24753->s1; /* x95422 stalin.sc:8629:293406 */ t65245 = f1005(t65248); /* x269748 stalin.sc:8629:293389 */ t65239 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t65239==NULL) {backtrace("stalin.sc", 8629, 293388); out_of_memory_error();} t65239->s0 = t65244; t65239->s1 = *((struct w49 *)(&t65245)); /* x95432 stalin.sc:8630:293441 */ /* x95431 stalin.sc:8630:293447 */ t65253 = *((struct w16638 *)(&(p10546->a23366))); /* x95430 stalin.sc:8630:293442 */ t65254 = *((struct w49 *)(&t65253)); t65240 = f960(t65254); /* x95436 stalin.sc:8631:293458 */ /* x95434 stalin.sc:8631:293478 */ t65255 = p10546->a23368; /* x95435 stalin.sc:8631:293480 */ t65256 = q64; /* x95433 stalin.sc:8631:293459 */ t65241 = f8743(t65255, t65256); /* x95417 stalin.sc:8628:293372 */ t65242.tag = STRUCTURE_TYPE24753; t65242.value.structure_type24753 = t65239; t65243 = t65241; t65236 = f10532(t65242, t65240, t65243); /* x95440 stalin.sc:8632:293504 */ /* x95439 stalin.sc:8632:293512 */ t65257 = *((struct w16638 *)(&(p10546->a23366))); /* x95438 stalin.sc:8632:293505 */ t65258 = *((struct w49 *)(&t65257)); t65237 = f26181(t65258); /* x95416 stalin.sc:8627:293357 */ t65238.tag = NATIVE_PROCEDURE_TYPE17628; t65238.value.native_procedure_type17628 = t65236; t65213 = f8137(t65238, t65237); goto l10760; l10759: /* x95442 */ t65213.tag = FALSE_TYPE; l10760: /* x95411 */ t65212 = p10546; p10547 = t65212; a23379 = t65213; /* x95410 */ /* x95386 */ if ((a23379.tag)==FALSE_TYPE) goto l10756; /* x95387 */ t64980 = a23379; goto l10757; l10756: /* x95409 */ /* x95405 stalin.sc:8633:293534 */ /* x95399 stalin.sc:8633:293544 */ /* x95393 stalin.sc:8633:293550 */ /* x95392 stalin.sc:8633:293557 */ t65224 = *((struct w16638 *)(&(p10547->a23366))); /* x95391 stalin.sc:8633:293551 */ a35989 = t65224; /* x275313 */ /* x275312 */ t65225 = a35989; /* x275311 */ if (!((t65225.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30138]"); structure_ref_error();} t65222 = t65225.value.structure_type24753->s0; /* x95398 stalin.sc:8633:293561 */ /* x95397 stalin.sc:8633:293567 */ /* x95396 stalin.sc:8633:293573 */ t65228 = *((struct w16638 *)(&(p10547->a23366))); /* x95395 stalin.sc:8633:293568 */ a35483 = t65228; /* x273289 */ /* x273288 */ t65229 = a35483; /* x273287 */ if (!((t65229.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29632]"); structure_ref_error();} t65226 = t65229.value.structure_type24753->s1; /* x95394 stalin.sc:8633:293562 */ a35482 = t65226; /* x273285 */ /* x273284 */ t65227 = a35482; /* x273283 */ if (!((t65227.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29631]"); structure_ref_error();} t65223 = t65227.value.structure_type24753->s1; /* x269749 stalin.sc:8633:293545 */ t65217 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t65217==NULL) {backtrace("stalin.sc", 8633, 293544); out_of_memory_error();} t65217->s0 = t65222; t65217->s1 = t65223; /* x95400 stalin.sc:8634:293584 */ t65218 = p10547->a23367; /* x95404 stalin.sc:8635:293591 */ /* x95402 stalin.sc:8635:293611 */ t65230 = p10547->a23368; /* x95403 stalin.sc:8635:293613 */ t65231 = q64; /* x95401 stalin.sc:8635:293592 */ t65219 = f8743(t65230, t65231); /* x95389 stalin.sc:8633:293535 */ t65220.tag = STRUCTURE_TYPE24753; t65220.value.structure_type24753 = t65217; t65221 = t65219; t65214 = f10532(t65220, t65218, t65221); /* x95408 stalin.sc:8636:293640 */ /* x95407 stalin.sc:8636:293648 */ t65232 = *((struct w16638 *)(&(p10547->a23366))); /* x95406 stalin.sc:8636:293641 */ t65233 = *((struct w49 *)(&t65232)); t65215 = f26181(t65233); /* x95388 stalin.sc:8633:293526 */ t65216.tag = NATIVE_PROCEDURE_TYPE17628; t65216.value.native_procedure_type17628 = t65214; t64980 = f8137(t65216, t65215); l10757: l10754: l10751: goto l10739; l10738: /* x95523 stalin.sc:8637:293664 */ /* x95451 stalin.sc:8637:293668 */ /* x95450 stalin.sc:8637:293675 */ t65169 = p10541->a23366; /* x269747 stalin.sc:8637:293669 */ if (!((t65169.tag)==NULL_TYPE)) goto l10741; /* x95477 stalin.sc:8638:293684 */ /* x95475 stalin.sc:8639:293699 */ t65204 = p10541; /* x95476 stalin.sc:8646:293904 */ t65205 = p10541->a23367; /* x95452 stalin.sc:8638:293685 */ t65206.tag = NATIVE_PROCEDURE_TYPE19974; t65206.value.native_procedure_type19974 = t65204; t64980 = f8137(t65206, t65205); goto l10742; l10741: /* x95522 stalin.sc:8647:293912 */ /* x95521 stalin.sc:8647:293916 */ /* x95500 stalin.sc:8647:293921 */ /* x95498 stalin.sc:8647:293930 */ /* x95499 stalin.sc:8647:293941 */ t65185 = p10541->a23367; /* x95497 stalin.sc:8647:293922 */ t65186.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8137(t65186, t65185).tag)==FALSE_TYPE) goto l10747; /* x95519 */ /* x95515 stalin.sc:8649:293968 */ /* x95507 stalin.sc:8649:293978 */ /* x95506 stalin.sc:8649:293988 */ /* x95505 stalin.sc:8649:293994 */ t65196 = *((struct w16638 *)(&(p10541->a23366))); /* x95504 stalin.sc:8649:293989 */ a35450 = t65196; /* x273157 */ /* x273156 */ t65197 = a35450; /* x273155 */ if (!((t65197.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29599]"); structure_ref_error();} t65195 = t65197.value.structure_type24753->s1; /* x95503 stalin.sc:8649:293979 */ t65190 = f1005(t65195); /* x95510 stalin.sc:8650:294010 */ /* x95509 stalin.sc:8650:294016 */ t65198 = *((struct w16638 *)(&(p10541->a23366))); /* x95508 stalin.sc:8650:294011 */ t65199 = *((struct w49 *)(&t65198)); t65191 = f960(t65199); /* x95514 stalin.sc:8651:294031 */ /* x95512 stalin.sc:8651:294051 */ t65200 = p10541->a23368; /* x95513 stalin.sc:8651:294053 */ t65201 = q64; /* x95511 stalin.sc:8651:294032 */ t65192 = f8743(t65200, t65201); /* x95502 stalin.sc:8649:293969 */ t65193 = *((struct w49 *)(&t65190)); t65194 = t65192; t65187 = f10532(t65193, t65191, t65194); /* x95518 stalin.sc:8652:294079 */ /* x95517 stalin.sc:8652:294086 */ t65202 = *((struct w16638 *)(&(p10541->a23366))); /* x95516 stalin.sc:8652:294080 */ a35923 = t65202; /* x275049 */ /* x275048 */ t65203 = a35923; /* x275047 */ if (!((t65203.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30072]"); structure_ref_error();} t65188 = t65203.value.structure_type24753->s0; /* x95501 stalin.sc:8648:293952 */ t65189.tag = NATIVE_PROCEDURE_TYPE17628; t65189.value.native_procedure_type17628 = t65187; t65171 = f8137(t65189, t65188); goto l10748; l10747: /* x95520 */ t65171.tag = FALSE_TYPE; l10748: /* x95496 */ t65170 = p10541; p10549 = t65170; a23381 = t65171; /* x95495 */ /* x95478 */ if ((a23381.tag)==FALSE_TYPE) goto l10744; /* x95479 */ t64980 = a23381; goto l10745; l10744: /* x95494 */ /* x95490 stalin.sc:8654:294113 */ /* x95484 stalin.sc:8655:294127 */ /* x95483 stalin.sc:8655:294133 */ t65179 = *((struct w16638 *)(&(p10549->a23366))); /* x95482 stalin.sc:8655:294128 */ a35485 = t65179; /* x273297 */ /* x273296 */ t65180 = a35485; /* x273295 */ if (!((t65180.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29634]"); structure_ref_error();} t65175 = t65180.value.structure_type24753->s1; /* x95485 stalin.sc:8655:294137 */ t65176 = p10549->a23367; /* x95489 stalin.sc:8655:294139 */ /* x95487 stalin.sc:8655:294159 */ t65181 = p10549->a23368; /* x95488 stalin.sc:8655:294161 */ t65182 = q64; /* x95486 stalin.sc:8655:294140 */ t65177 = f8743(t65181, t65182); /* x95481 stalin.sc:8654:294114 */ t65178 = t65177; t65172 = f10532(t65175, t65176, t65178); /* x95493 stalin.sc:8656:294182 */ /* x95492 stalin.sc:8656:294189 */ t65183 = *((struct w16638 *)(&(p10549->a23366))); /* x95491 stalin.sc:8656:294183 */ a35990 = t65183; /* x275317 */ /* x275316 */ t65184 = a35990; /* x275315 */ if (!((t65184.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30139]"); structure_ref_error();} t65173 = t65184.value.structure_type24753->s0; /* x95480 stalin.sc:8653:294102 */ t65174.tag = NATIVE_PROCEDURE_TYPE17628; t65174.value.native_procedure_type17628 = t65172; t64980 = f8137(t65174, t65173); l10745: l10742: l10739: goto l10697; l10696: /* x95813 */ /* x95531 stalin.sc:8657:294202 */ /* x95530 stalin.sc:8657:294269 */ t65049 = a23369; /* x95529 stalin.sc:8657:294203 */ /* x95528 stalin.sc:8657:294236 */ t65050 = q66; /* x95527 stalin.sc:8657:294204 */ t65051.tag = EXTERNAL_SYMBOL_TYPE; t65051.value.external_symbol_type = t65050; t65048 = f7708(t65051); if (f7709(t65048, t65049)==FALSE_TYPE) goto l10699; /* x95730 */ /* x95729 */ t65097 = p10533; p10550 = t65097; /* x95728 stalin.sc:8658:294275 */ /* x95727 stalin.sc:8659:294288 */ /* x95554 stalin.sc:8659:294292 */ /* x95553 stalin.sc:8659:294304 */ t65105 = p10550->a23368; /* x95552 stalin.sc:8659:294293 */ /* MOVE: branching squeezed to general */ if (t65105>=((struct structure_type27745 *)VALUE_OFFSET)) {t65106.tag = STRUCTURE_TYPE27745; t65106.value.structure_type27745 = t65105;} else t65106.tag = (unsigned)t65105; if (f8944(t65106)==FALSE_TYPE) goto l10726; /* x95667 stalin.sc:8660:294312 */ /* x95557 stalin.sc:8661:294325 */ /* x95556 stalin.sc:8661:294332 */ t65129 = p10550->a23366; /* x269746 stalin.sc:8661:294326 */ if (!((t65129.tag)==NULL_TYPE)) goto l10732; /* x95596 */ /* x95595 */ t65162 = p10550; p10553 = t65162; /* x95594 stalin.sc:8662:294343 */ /* x95592 stalin.sc:8663:294360 */ t65163 = p10553; /* x95593 stalin.sc:8671:294646 */ t65164 = p10553->a23367; /* x95558 stalin.sc:8662:294344 */ t65165.tag = NATIVE_PROCEDURE_TYPE19969; t65165.value.native_procedure_type19969 = t65163; t65099 = f8137(t65165, t65164); goto l10733; l10732: /* x95666 */ /* x95601 stalin.sc:8672:294657 */ /* x95600 stalin.sc:8672:294664 */ /* x95599 stalin.sc:8672:294670 */ t65131 = *((struct w16638 *)(&(p10550->a23366))); /* x95598 stalin.sc:8672:294665 */ a35488 = t65131; /* x273309 */ /* x273308 */ t65132 = a35488; /* x273307 */ if (!((t65132.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29637]"); structure_ref_error();} t65130 = t65132.value.structure_type24753->s1; /* x269745 stalin.sc:8672:294658 */ if (!((t65130.tag)==NULL_TYPE)) goto l10735; /* x95636 */ /* x95635 */ t65158 = p10550; p10555 = t65158; /* x95634 stalin.sc:8673:294682 */ /* x95632 stalin.sc:8674:294699 */ t65159 = p10555; /* x95633 stalin.sc:8681:294934 */ t65160 = p10555->a23367; /* x95602 stalin.sc:8673:294683 */ t65161.tag = NATIVE_PROCEDURE_TYPE19967; t65161.value.native_procedure_type19967 = t65159; t65099 = f8137(t65161, t65160); goto l10736; l10735: /* x95665 */ /* x95664 */ t65133 = p10550; p10557 = t65133; /* x95663 stalin.sc:8683:294957 */ /* x95659 stalin.sc:8684:294974 */ /* x95653 stalin.sc:8685:294993 */ /* x95642 stalin.sc:8685:294999 */ /* x95641 stalin.sc:8685:295006 */ t65144 = *((struct w16638 *)(&(p10557->a23366))); /* x95640 stalin.sc:8685:295000 */ a35993 = t65144; /* x275329 */ /* x275328 */ t65145 = a35993; /* x275327 */ if (!((t65145.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30142]"); structure_ref_error();} t65142 = t65145.value.structure_type24753->s0; /* x95652 stalin.sc:8685:295010 */ /* x95646 stalin.sc:8685:295016 */ /* x95645 stalin.sc:8685:295023 */ t65148 = *((struct w16638 *)(&(p10557->a23366))); /* x95644 stalin.sc:8685:295017 */ a35994 = t65148; /* x275333 */ /* x275332 */ t65149 = a35994; /* x275331 */ if (!((t65149.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30143]"); structure_ref_error();} t65146 = t65149.value.structure_type24753->s0; /* x95651 stalin.sc:8685:295027 */ /* x95650 stalin.sc:8685:295033 */ /* x95649 stalin.sc:8685:295039 */ t65152 = *((struct w16638 *)(&(p10557->a23366))); /* x95648 stalin.sc:8685:295034 */ a35487 = t65152; /* x273305 */ /* x273304 */ t65153 = a35487; /* x273303 */ if (!((t65153.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29636]"); structure_ref_error();} t65150 = t65153.value.structure_type24753->s1; /* x95647 stalin.sc:8685:295028 */ a35486 = t65150; /* x273301 */ /* x273300 */ t65151 = a35486; /* x273299 */ if (!((t65151.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29635]"); structure_ref_error();} t65147 = t65151.value.structure_type24753->s1; /* x269743 stalin.sc:8685:295011 */ t65143 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t65143==NULL) {backtrace("stalin.sc", 8685, 295010); out_of_memory_error();} t65143->s0 = t65146; t65143->s1 = t65147; /* x269744 stalin.sc:8685:294994 */ t65137 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t65137==NULL) {backtrace("stalin.sc", 8685, 294993); out_of_memory_error();} t65137->s0 = t65142; t65137->s1.tag = STRUCTURE_TYPE24753; t65137->s1.value.structure_type24753 = t65143; /* x95654 stalin.sc:8686:295055 */ t65138 = p10557->a23367; /* x95658 stalin.sc:8687:295066 */ /* x95656 stalin.sc:8687:295086 */ t65154 = p10557->a23368; /* x95657 stalin.sc:8687:295088 */ t65155 = q64; /* x95655 stalin.sc:8687:295067 */ t65139 = f8743(t65154, t65155); /* x95638 stalin.sc:8684:294975 */ t65140.tag = STRUCTURE_TYPE24753; t65140.value.structure_type24753 = t65137; t65141 = t65139; t65134 = f10532(t65140, t65138, t65141); /* x95662 stalin.sc:8688:295114 */ /* x95661 stalin.sc:8688:295122 */ t65156 = *((struct w16638 *)(&(p10557->a23366))); /* x95660 stalin.sc:8688:295115 */ t65157 = *((struct w49 *)(&t65156)); t65135 = f26181(t65157); /* x95637 stalin.sc:8683:294958 */ t65136.tag = NATIVE_PROCEDURE_TYPE17628; t65136.value.native_procedure_type17628 = t65134; t65099 = f8137(t65136, t65135); l10736: l10733: goto l10727; l10726: /* x95726 stalin.sc:8689:295134 */ /* x95670 stalin.sc:8689:295138 */ /* x95669 stalin.sc:8689:295145 */ t65107 = p10550->a23366; /* x269742 stalin.sc:8689:295139 */ if (!((t65107.tag)==NULL_TYPE)) goto l10729; /* x95704 stalin.sc:8690:295158 */ /* x95702 stalin.sc:8691:295170 */ t65126 = p10550; /* x95703 stalin.sc:8701:295448 */ t65127 = p10550->a23367; /* x95671 stalin.sc:8690:295159 */ t65128.tag = NATIVE_PROCEDURE_TYPE19964; t65128.value.native_procedure_type19964 = t65126; t65099 = f8137(t65128, t65127); goto l10730; l10729: /* x95725 stalin.sc:8702:295460 */ /* x95721 stalin.sc:8703:295472 */ /* x95715 stalin.sc:8704:295486 */ /* x95714 stalin.sc:8704:295492 */ /* x95713 stalin.sc:8705:295523 */ /* x95712 stalin.sc:8705:295539 */ /* x95711 stalin.sc:8705:295561 */ t65120 = p10550->a23368; /* x95710 stalin.sc:8705:295540 */ a36448 = t65120; /* x278461 */ /* x278460 */ t65121 = a36448; /* x278459 */ if (!(t65121>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31365]"); structure_ref_error();} t65119 = t65121->s0; /* x95709 stalin.sc:8705:295524 */ t65117 = f7110(t65119); /* x95708 stalin.sc:8704:295493 */ t65118 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t65118==NULL) {backtrace("stalin.sc", 8704, 295492); out_of_memory_error();} t65118->s0.tag = STRUCTURE_TYPE27858; t65118->s0.value.structure_type27858 = t65117; t65118->s1.tag = NULL_TYPE; t65116 = f8098(t65118); /* x95707 stalin.sc:8704:295487 */ a35145 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35145==NULL) {backtrace("stalin.sc", 8704, 295486); out_of_memory_error();} a35145->s0.tag = STRUCTURE_TYPE27650; a35145->s0.value.structure_type27650 = t65116; a35145->s1.tag = NULL_TYPE; /* x272297 */ t65111 = a35145; /* x95716 stalin.sc:8706:295571 */ t65112 = p10550->a23367; /* x95720 stalin.sc:8707:295577 */ /* x95718 stalin.sc:8707:295597 */ t65122 = p10550->a23368; /* x95719 stalin.sc:8707:295599 */ t65123 = q64; /* x95717 stalin.sc:8707:295578 */ t65113 = f8743(t65122, t65123); /* x95706 stalin.sc:8703:295473 */ t65114.tag = STRUCTURE_TYPE24753; t65114.value.structure_type24753 = t65111; t65115 = t65113; t65108 = f10532(t65114, t65112, t65115); /* x95724 stalin.sc:8708:295620 */ /* x95723 stalin.sc:8708:295627 */ t65124 = *((struct w16638 *)(&(p10550->a23366))); /* x95722 stalin.sc:8708:295621 */ a35995 = t65124; /* x275337 */ /* x275336 */ t65125 = a35995; /* x275335 */ if (!((t65125.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30144]"); structure_ref_error();} t65109 = t65125.value.structure_type24753->s0; /* x95705 stalin.sc:8702:295461 */ t65110.tag = NATIVE_PROCEDURE_TYPE17628; t65110.value.native_procedure_type17628 = t65108; t65099 = f8137(t65110, t65109); l10730: l10727: /* x95551 */ t65098 = p10550; p10551 = t65098; a23382 = t65099; /* x95550 */ /* x95532 */ if ((a23382.tag)==FALSE_TYPE) goto l10723; /* x95533 */ t64980 = a23382; goto l10724; l10723: /* x95549 */ /* x95548 stalin.sc:8712:295786 */ t65101 = a1943; /* x95547 stalin.sc:8709:295648 */ t65100 = p10551; /* x95534 stalin.sc:8709:295643 */ t65102.tag = NATIVE_PROCEDURE_TYPE19971; t65102.value.native_procedure_type19971 = t65100; t65103 = *((struct w49 *)(&t65101)); t65104 = (struct structure_type24753 *)NULL_TYPE; t64980 = f1042(t65102, t65103, t65104); l10724: goto l10700; l10699: /* x95812 */ /* x95735 stalin.sc:8713:295814 */ /* x95734 stalin.sc:8713:295856 */ t65053 = a23369; /* x95733 stalin.sc:8713:295815 */ /* x95732 stalin.sc:8713:295848 */ t65054 = q179; /* x95731 stalin.sc:8713:295816 */ t65055.tag = EXTERNAL_SYMBOL_TYPE; t65055.value.external_symbol_type = t65054; t65052 = f7708(t65055); if (f7709(t65052, t65053)==FALSE_TYPE) goto l10702; /* x95738 */ /* x95737 */ /* x95736 stalin.sc:8713:295859 */ t64980.tag = FALSE_TYPE; goto l10703; l10702: /* x95811 */ /* x95743 stalin.sc:8714:295866 */ /* x95742 stalin.sc:8714:295907 */ t65057 = a23369; /* x95741 stalin.sc:8714:295867 */ /* x95740 stalin.sc:8714:295900 */ t65058 = q45; /* x95739 stalin.sc:8714:295868 */ t65059.tag = EXTERNAL_SYMBOL_TYPE; t65059.value.external_symbol_type = t65058; t65056 = f7708(t65059); if (f7709(t65056, t65057)==FALSE_TYPE) goto l10705; /* x95760 */ /* x95759 */ t65090 = p10533; p10560 = t65090; /* x95758 */ /* x95757 stalin.sc:8716:295966 */ /* x95748 stalin.sc:8716:295972 */ /* x95747 stalin.sc:8716:295984 */ t65091 = p10560->a23368; /* x95746 stalin.sc:8716:295973 */ /* MOVE: branching squeezed to general */ if (t65091>=((struct structure_type27745 *)VALUE_OFFSET)) {t65092.tag = STRUCTURE_TYPE27745; t65092.value.structure_type27745 = t65091;} else t65092.tag = (unsigned)t65091; if (f8944(t65092)==FALSE_TYPE) goto l10720; /* x95754 */ /* x95753 */ t65093 = p10560; p10562 = t65093; /* x95752 stalin.sc:8716:295987 */ /* x95750 stalin.sc:8716:296002 */ t65094 = p10562->a23368; /* x95751 stalin.sc:8716:296004 */ t65095 = "unimplemented"; /* x95749 stalin.sc:8716:295988 */ /* MOVE: branching squeezed to general */ if (t65094>=((struct structure_type27745 *)VALUE_OFFSET)) {t65096.tag = STRUCTURE_TYPE27745; t65096.value.structure_type27745 = t65094;} else t65096.tag = (unsigned)t65094; f9707(t65096, t65095); goto l10721; l10720: /* x95756 stalin.sc:8716:295966 */ /* x95755 stalin.sc:8716:295966 */ l10721: /* x95745 */ /* x95744 stalin.sc:8718:296069 */ t64980.tag = TRUE_TYPE; goto l10706; l10705: /* x95810 */ /* x95765 stalin.sc:8719:296076 */ /* x95764 stalin.sc:8719:296118 */ t65061 = a23369; /* x95763 stalin.sc:8719:296077 */ /* x95762 stalin.sc:8719:296110 */ t65062 = q44; /* x95761 stalin.sc:8719:296078 */ t65063.tag = EXTERNAL_SYMBOL_TYPE; t65063.value.external_symbol_type = t65062; t65060 = f7708(t65063); if (f7709(t65060, t65061)==FALSE_TYPE) goto l10708; /* x95782 */ /* x95781 */ t65083 = p10533; p10564 = t65083; /* x95780 */ /* x95779 stalin.sc:8721:296178 */ /* x95770 stalin.sc:8721:296184 */ /* x95769 stalin.sc:8721:296196 */ t65084 = p10564->a23368; /* x95768 stalin.sc:8721:296185 */ /* MOVE: branching squeezed to general */ if (t65084>=((struct structure_type27745 *)VALUE_OFFSET)) {t65085.tag = STRUCTURE_TYPE27745; t65085.value.structure_type27745 = t65084;} else t65085.tag = (unsigned)t65084; if (f8944(t65085)==FALSE_TYPE) goto l10717; /* x95776 */ /* x95775 */ t65086 = p10564; p10566 = t65086; /* x95774 stalin.sc:8721:296199 */ /* x95772 stalin.sc:8721:296214 */ t65087 = p10566->a23368; /* x95773 stalin.sc:8721:296216 */ t65088 = "unimplemented"; /* x95771 stalin.sc:8721:296200 */ /* MOVE: branching squeezed to general */ if (t65087>=((struct structure_type27745 *)VALUE_OFFSET)) {t65089.tag = STRUCTURE_TYPE27745; t65089.value.structure_type27745 = t65087;} else t65089.tag = (unsigned)t65087; f9707(t65089, t65088); goto l10718; l10717: /* x95778 stalin.sc:8721:296178 */ /* x95777 stalin.sc:8721:296178 */ l10718: /* x95767 */ /* x95766 stalin.sc:8723:296282 */ t64980.tag = TRUE_TYPE; goto l10709; l10708: /* x95809 */ /* x95808 */ t65064 = p10533; p10568 = t65064; /* x95807 stalin.sc:8724:296294 */ /* x95806 stalin.sc:8724:296298 */ /* x95806 stalin.sc:8724:296298 */ /* x95805 stalin.sc:8724:296303 */ /* x95804 stalin.sc:8724:296315 */ t65081 = p10568->a23368; /* x95803 stalin.sc:8724:296304 */ /* MOVE: branching squeezed to general */ if (t65081>=((struct structure_type27745 *)VALUE_OFFSET)) {t65082.tag = STRUCTURE_TYPE27745; t65082.value.structure_type27745 = t65081;} else t65082.tag = (unsigned)t65081; if (!(f8944(t65082)==FALSE_TYPE)) goto l10714; t65066 = TRUE_TYPE; goto l10715; l10714: t65066 = FALSE_TYPE; l10715: /* x95801 */ t65065 = p10568; p10569 = t65065; a23389 = t65066; /* x95800 */ /* x95783 */ if (a23389==FALSE_TYPE) goto l10711; /* x95784 */ t64980.tag = a23389; goto l10712; l10711: /* x95799 */ /* x95795 stalin.sc:8726:296339 */ /* x95789 stalin.sc:8726:296349 */ /* x95788 stalin.sc:8726:296355 */ t65076 = a1676; /* x95787 stalin.sc:8726:296350 */ a35146 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35146==NULL) {backtrace("stalin.sc", 8726, 296349); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t65076>=((struct structure_type27650 *)VALUE_OFFSET)) {a35146->s0.tag = STRUCTURE_TYPE27650; a35146->s0.value.structure_type27650 = t65076;} else a35146->s0.tag = (unsigned)t65076; a35146->s1.tag = NULL_TYPE; /* x272299 */ t65070 = a35146; /* x95790 stalin.sc:8727:296372 */ t65071 = a1675; /* x95794 stalin.sc:8728:296388 */ /* x95792 stalin.sc:8728:296408 */ t65077 = p10569->a23368; /* x95793 stalin.sc:8728:296410 */ t65078 = q67; /* x95791 stalin.sc:8728:296389 */ t65072 = f8743(t65077, t65078); /* x95786 stalin.sc:8726:296340 */ t65073.tag = STRUCTURE_TYPE24753; t65073.value.structure_type24753 = t65070; /* MOVE: branching squeezed to general */ if (t65071>=((struct structure_type27650 *)VALUE_OFFSET)) {t65074.tag = STRUCTURE_TYPE27650; t65074.value.structure_type27650 = t65071;} else t65074.tag = (unsigned)t65071; t65075 = t65072; t65067 = f10532(t65073, t65074, t65075); /* x95798 stalin.sc:8729:296441 */ /* x95797 stalin.sc:8729:296448 */ t65079 = p10569->a23366; /* x95796 stalin.sc:8729:296442 */ a35996 = t65079; /* x275341 */ /* x275340 */ t65080 = a35996; /* x275339 */ if (!((t65080.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30145]"); structure_ref_error();} t65068 = t65080.value.structure_type24753->s0; /* x95785 stalin.sc:8725:296325 */ t65069.tag = NATIVE_PROCEDURE_TYPE17628; t65069.value.native_procedure_type17628 = t65067; t64980 = f8137(t65069, t65068); l10712: l10709: l10706: l10703: l10700: l10697: goto l10694; l10693: /* x95815 */ t64980.tag = FALSE_TYPE; l10694: /* x95302 */ t64979 = p10533; p10534 = t64979; a23370 = t64980; /* x95301 */ /* x95186 */ if ((a23370.tag)==FALSE_TYPE) goto l10656; /* x95187 */ return a23370; l10656: /* x95300 */ /* x95299 stalin.sc:8730:296464 */ /* x95229 stalin.sc:8730:296469 */ /* x95228 stalin.sc:8730:296493 */ t65004 = a23369; /* x95227 stalin.sc:8730:296470 */ a38085 = t65004; /* x285009 */ /* x285008 */ t65005 = a38085; /* x285007 */ if (!((t65005.tag)==STRUCTURE_TYPE27756)) goto l10669; /* x95297 */ /* x95235 stalin.sc:8731:296501 */ /* x95234 stalin.sc:8731:296523 */ /* x95232 stalin.sc:8731:296543 */ t65007 = a23369; /* x95233 stalin.sc:8731:296545 */ t65008 = p10534->a23368; /* x95231 stalin.sc:8731:296524 */ t65006 = f9368(t65007, t65008); /* x95230 stalin.sc:8731:296502 */ if (f10495(t65006)==FALSE_TYPE) goto l10672; /* x95295 */ /* x95294 stalin.sc:8732:296558 */ /* x95294 stalin.sc:8732:296558 */ /* x95293 stalin.sc:8732:296563 */ /* x95292 stalin.sc:8732:296575 */ t65040 = p10534->a23368; /* x95291 stalin.sc:8732:296564 */ /* MOVE: branching squeezed to general */ if (t65040>=((struct structure_type27745 *)VALUE_OFFSET)) {t65041.tag = STRUCTURE_TYPE27745; t65041.value.structure_type27745 = t65040;} else t65041.tag = (unsigned)t65040; if (!(f8944(t65041)==FALSE_TYPE)) goto l10690; t65010 = TRUE_TYPE; goto l10691; l10690: t65010 = FALSE_TYPE; l10691: /* x95289 */ t65009 = p10534; p10537 = t65009; a23373 = t65010; /* x95288 */ /* x95236 */ if (a23373==FALSE_TYPE) goto l10675; /* x95237 */ t64982.tag = a23373; goto l10676; l10675: /* x95287 */ /* x95286 stalin.sc:8733:296581 */ /* x95285 stalin.sc:8733:296593 */ /* x95283 stalin.sc:8733:296613 */ t65038 = a23369; /* x95284 stalin.sc:8733:296615 */ t65039 = p10537->a23368; /* x95282 stalin.sc:8733:296594 */ t65037 = f9368(t65038, t65039); /* x95281 stalin.sc:8733:296582 */ t65012 = f8944(t65037); /* x95280 */ t65011 = p10537; p10538 = t65011; a23374 = t65012; /* x95279 */ /* x95238 */ if (a23374==FALSE_TYPE) goto l10678; /* x95239 */ t64982.tag = a23374; goto l10679; l10678: /* x95278 */ /* x95277 stalin.sc:8734:296621 */ /* x95276 stalin.sc:8734:296646 */ /* x95274 stalin.sc:8734:296666 */ t65035 = a23369; /* x95275 stalin.sc:8734:296668 */ t65036 = p10538->a23368; /* x95273 stalin.sc:8734:296647 */ t65034 = f9368(t65035, t65036); /* x95272 stalin.sc:8734:296622 */ t65014 = f8592(t65034); /* x95271 */ t65013 = p10538; p10539 = t65013; a23375 = t65014; /* x95270 */ /* x95240 */ if (a23375==FALSE_TYPE) goto l10681; /* x95241 */ t64982.tag = a23375; goto l10682; l10681: /* x95269 */ /* x95268 stalin.sc:8735:296674 */ /* x95268 stalin.sc:8735:296674 */ /* x95267 stalin.sc:8735:296679 */ /* x95266 stalin.sc:8735:296703 */ /* x95264 stalin.sc:8735:296723 */ t65032 = a23369; /* x95265 stalin.sc:8735:296725 */ t65033 = p10539->a23368; /* x95263 stalin.sc:8735:296704 */ t65031 = f9368(t65032, t65033); /* x95262 stalin.sc:8735:296680 */ if (!(f10489(t65031)==FALSE_TYPE)) goto l10687; t65016 = TRUE_TYPE; goto l10688; l10687: t65016 = FALSE_TYPE; l10688: /* x95260 */ t65015 = p10539; p10540 = t65015; a23376 = t65016; /* x95259 */ /* x95242 */ if (a23376==FALSE_TYPE) goto l10684; /* x95243 */ t64982.tag = a23376; goto l10685; l10684: /* x95258 */ /* x95254 stalin.sc:8737:296744 */ /* x95248 stalin.sc:8737:296754 */ /* x95247 stalin.sc:8737:296760 */ t65026 = a1676; /* x95246 stalin.sc:8737:296755 */ a35112 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35112==NULL) {backtrace("stalin.sc", 8737, 296754); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t65026>=((struct structure_type27650 *)VALUE_OFFSET)) {a35112->s0.tag = STRUCTURE_TYPE27650; a35112->s0.value.structure_type27650 = t65026;} else a35112->s0.tag = (unsigned)t65026; a35112->s1.tag = NULL_TYPE; /* x272231 */ t65020 = a35112; /* x95249 stalin.sc:8738:296774 */ t65021 = a1675; /* x95253 stalin.sc:8739:296787 */ /* x95251 stalin.sc:8739:296807 */ t65027 = p10540->a23368; /* x95252 stalin.sc:8739:296809 */ t65028 = q67; /* x95250 stalin.sc:8739:296788 */ t65022 = f8743(t65027, t65028); /* x95245 stalin.sc:8737:296745 */ t65023.tag = STRUCTURE_TYPE24753; t65023.value.structure_type24753 = t65020; /* MOVE: branching squeezed to general */ if (t65021>=((struct structure_type27650 *)VALUE_OFFSET)) {t65024.tag = STRUCTURE_TYPE27650; t65024.value.structure_type27650 = t65021;} else t65024.tag = (unsigned)t65021; t65025 = t65022; t65017 = f10532(t65023, t65024, t65025); /* x95257 stalin.sc:8740:296837 */ /* x95256 stalin.sc:8740:296844 */ t65029 = p10540->a23366; /* x95255 stalin.sc:8740:296838 */ a35779 = t65029; /* x274473 */ /* x274472 */ t65030 = a35779; /* x274471 */ if (!((t65030.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29928]"); structure_ref_error();} t65018 = t65030.value.structure_type24753->s0; /* x95244 stalin.sc:8736:296733 */ t65019.tag = NATIVE_PROCEDURE_TYPE17628; t65019.value.native_procedure_type17628 = t65017; t64982 = f8137(t65019, t65018); l10685: l10682: l10679: l10676: goto l10673; l10672: /* x95296 */ t64982.tag = FALSE_TYPE; l10673: goto l10670; l10669: /* x95298 */ t64982.tag = FALSE_TYPE; l10670: /* x95226 */ t64981 = p10534; p10535 = t64981; a23371 = t64982; /* x95225 */ /* x95188 */ if ((a23371.tag)==FALSE_TYPE) goto l10658; /* x95189 */ return a23371; l10658: /* x95224 */ /* x95192 stalin.sc:8741:296863 */ /* x95191 stalin.sc:8741:296888 */ t64983 = a23369; /* x95190 stalin.sc:8741:296864 */ a37956 = t64983; /* x284493 */ /* x284492 */ t64984 = a37956; /* x284491 */ if (!((t64984.tag)==STRUCTURE_TYPE27750)) goto l10660; /* x95222 */ /* x95195 stalin.sc:8742:296896 */ /* x95194 stalin.sc:8742:296924 */ t64985 = a23369; /* x95193 stalin.sc:8742:296897 */ if (f9870(t64985)==FALSE_TYPE) goto l10662; /* x95220 */ /* x95219 stalin.sc:8743:296936 */ /* x95219 stalin.sc:8743:296936 */ /* x95218 stalin.sc:8743:296941 */ /* x95217 stalin.sc:8743:296953 */ t65002 = p10535->a23368; /* x95216 stalin.sc:8743:296942 */ /* MOVE: branching squeezed to general */ if (t65002>=((struct structure_type27745 *)VALUE_OFFSET)) {t65003.tag = STRUCTURE_TYPE27745; t65003.value.structure_type27745 = t65002;} else t65003.tag = (unsigned)t65002; if (!(f8944(t65003)==FALSE_TYPE)) goto l10666; t64987 = TRUE_TYPE; goto l10667; l10666: t64987 = FALSE_TYPE; l10667: /* x95214 */ t64986 = p10535; p10536 = t64986; a23372 = t64987; /* x95213 */ /* x95196 */ if (a23372==FALSE_TYPE) goto l10664; /* x95197 */ r10533.tag = a23372; return r10533; l10664: /* x95212 */ /* x95208 stalin.sc:8745:296971 */ /* x95202 stalin.sc:8745:296981 */ /* x95201 stalin.sc:8745:296987 */ t64997 = a1676; /* x95200 stalin.sc:8745:296982 */ a35142 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35142==NULL) {backtrace("stalin.sc", 8745, 296981); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t64997>=((struct structure_type27650 *)VALUE_OFFSET)) {a35142->s0.tag = STRUCTURE_TYPE27650; a35142->s0.value.structure_type27650 = t64997;} else a35142->s0.tag = (unsigned)t64997; a35142->s1.tag = NULL_TYPE; /* x272291 */ t64991 = a35142; /* x95203 stalin.sc:8746:297001 */ t64992 = a1675; /* x95207 stalin.sc:8747:297014 */ /* x95205 stalin.sc:8747:297034 */ t64998 = p10536->a23368; /* x95206 stalin.sc:8747:297036 */ t64999 = q67; /* x95204 stalin.sc:8747:297015 */ t64993 = f8743(t64998, t64999); /* x95199 stalin.sc:8745:296972 */ t64994.tag = STRUCTURE_TYPE24753; t64994.value.structure_type24753 = t64991; /* MOVE: branching squeezed to general */ if (t64992>=((struct structure_type27650 *)VALUE_OFFSET)) {t64995.tag = STRUCTURE_TYPE27650; t64995.value.structure_type27650 = t64992;} else t64995.tag = (unsigned)t64992; t64996 = t64993; t64988 = f10532(t64994, t64995, t64996); /* x95211 stalin.sc:8748:297064 */ /* x95210 stalin.sc:8748:297071 */ t65000 = p10536->a23366; /* x95209 stalin.sc:8748:297065 */ a35988 = t65000; /* x275309 */ /* x275308 */ t65001 = a35988; /* x275307 */ if (!((t65001.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30137]"); structure_ref_error();} t64989 = t65001.value.structure_type24753->s0; /* x95198 stalin.sc:8744:296960 */ t64990.tag = NATIVE_PROCEDURE_TYPE17628; t64990.value.native_procedure_type17628 = t64988; return f8137(t64990, t64989); l10662: /* x95221 */ r10533.tag = FALSE_TYPE; return r10533; l10660: /* x95223 */ r10533.tag = FALSE_TYPE; return r10533; l10654: /* x95818 */ r10533.tag = FALSE_TYPE; return r10533;} /* RETURNS?[10532] */ struct p10532 *f10532(struct w49 a23366, struct w49 a23367, struct structure_type27745 *a23368) {struct p10532 *e10532; e10532 = (struct p10532 *)GC_malloc(sizeof(struct p10532)); if (e10532==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e10532->a23366 = a23366; e10532->a23367 = a23367; e10532->a23368 = a23368; /* x95820 stalin.sc:8594:292503 */ return e10532;} /* CONTINUES?[10497] */ struct p10497 *f10497(struct w49 a23347, struct w49 a23348, struct structure_type27745 *a23349) {struct p10497 *t65267; struct structure_type27745 *t65268; struct w49 t65269; char *t65270; struct p10497 *e10497; struct p10497 *p10498; e10497 = (struct p10497 *)GC_malloc(sizeof(struct p10497)); if (e10497==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e10497->a23347 = a23347; e10497->a23348 = a23348; e10497->a23349 = a23349; /* x95176 */ /* x95175 stalin.sc:8454:288354 */ /* x95168 stalin.sc:8454:288360 */ /* x95167 stalin.sc:8454:288394 */ t65268 = e10497->a23349; /* x95166 stalin.sc:8454:288361 */ t65269.tag = STRUCTURE_TYPE27745; t65269.value.structure_type27745 = t65268; if (f8755(t65269)==FALSE_TYPE) goto l10762; /* x95172 */ /* x95171 */ /* x95170 stalin.sc:8454:288397 */ /* x95169 stalin.sc:8454:288398 */ /* x296821 QobiScheme.sc:166:5314 */ /* x296820 QobiScheme.sc:166:5321 */ t65270 = "This shouldn\'t happen"; /* x296819 QobiScheme.sc:166:5315 */ stalin_panic(t65270); goto l10763; l10762: /* x95174 stalin.sc:8454:288354 */ /* x95173 stalin.sc:8454:288354 */ l10763: /* x95165 */ t65267 = e10497; p10498 = t65267; /* x95164 stalin.sc:8455:288409 */ return p10498;} /* ENVIRONMENT-RETURNS?[10495] */ unsigned f10495(struct w49 a23345) {struct w49 a36702; /* S */ struct w6852 a39228; /* S */ struct w49 t65271; struct w49 t65272; struct w6852 t65273; struct w6852 t65274; struct w49 t65275; struct w49 t65276; /* x94613 stalin.sc:8450:288236 */ /* x94613 stalin.sc:8450:288236 */ /* x94612 stalin.sc:8450:288240 */ /* x94611 stalin.sc:8450:288247 */ t65271 = a23345; /* x94610 stalin.sc:8450:288241 */ if (!(f8918(t65271)==FALSE_TYPE)) goto l10764; /* x94607 */ /* x94606 stalin.sc:8451:288276 */ /* x94605 stalin.sc:8451:288293 */ /* x94604 stalin.sc:8451:288317 */ t65275 = a23345; /* x94603 stalin.sc:8451:288294 */ a36702 = t65275; /* x279477 */ /* x279476 */ t65276 = a36702; /* x279475 */ if (!((t65276.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31619]"); structure_ref_error();} t65273 = t65276.value.structure_type27694->s1; /* x94602 stalin.sc:8451:288277 */ a39228 = t65273; /* x289581 */ /* x289580 */ t65274 = a39228; /* x289579 */ if (!((t65274.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34145]"); structure_ref_error();} t65272 = t65274.value.structure_type27698->s15; /* x94601 stalin.sc:8451:288256 */ if (f6956(t65272)==FALSE_TYPE) goto l10765; l10764: return TRUE_TYPE; l10765: return FALSE_TYPE;} /* ENVIRONMENT-CONTINUES?[10489] */ unsigned f10489(struct w49 a23341) {struct w49 a36673; /* S */ struct w6852 a39206; /* S */ struct w49 t65277; struct w49 t65278; struct w6852 t65279; struct w6852 t65280; struct w49 t65281; struct w49 t65282; struct w49 t65283; struct w49 t65284; char *t65285; /* x94596 */ /* x94595 stalin.sc:8445:288045 */ /* x94588 stalin.sc:8445:288051 */ /* x94587 stalin.sc:8445:288055 */ /* x94586 stalin.sc:8445:288067 */ t65283 = a23341; /* x94585 stalin.sc:8445:288056 */ if (!(f8944(t65283)==FALSE_TYPE)) goto l10772; /* x94582 */ /* x94581 stalin.sc:8445:288095 */ t65284 = a23341; /* x94580 stalin.sc:8445:288071 */ if (f8592(t65284)==FALSE_TYPE) goto l10773; l10772: /* x94592 */ /* x94591 */ /* x94590 stalin.sc:8445:288099 */ /* x94589 stalin.sc:8445:288100 */ /* x295597 QobiScheme.sc:166:5314 */ /* x295596 QobiScheme.sc:166:5321 */ t65285 = "This shouldn\'t happen"; /* x295595 QobiScheme.sc:166:5315 */ stalin_panic(t65285); goto l10774; l10773: /* x94594 stalin.sc:8445:288045 */ /* x94593 stalin.sc:8445:288045 */ l10774: /* x94577 */ /* x94576 stalin.sc:8446:288111 */ /* x94576 stalin.sc:8446:288111 */ /* x94575 stalin.sc:8446:288115 */ /* x94574 stalin.sc:8446:288122 */ t65277 = a23341; /* x94573 stalin.sc:8446:288116 */ if (!(f8918(t65277)==FALSE_TYPE)) goto l10768; /* x94570 */ /* x94569 stalin.sc:8447:288153 */ /* x94568 stalin.sc:8447:288170 */ /* x94567 stalin.sc:8447:288194 */ t65281 = a23341; /* x94566 stalin.sc:8447:288171 */ a36673 = t65281; /* x279361 */ /* x279360 */ t65282 = a36673; /* x279359 */ if (!((t65282.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31590]"); structure_ref_error();} t65279 = t65282.value.structure_type27694->s1; /* x94565 stalin.sc:8447:288154 */ a39206 = t65279; /* x289493 */ /* x289492 */ t65280 = a39206; /* x289491 */ if (!((t65280.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34123]"); structure_ref_error();} t65278 = t65280.value.structure_type27698->s15; /* x94564 stalin.sc:8447:288131 */ if (f6951(t65278)==FALSE_TYPE) goto l10769; l10768: return TRUE_TYPE; l10769: return FALSE_TYPE;} /* [inside ANNOTATE-VARIABLES-WITH-THEIR-REFERENCES! 10487] */ void f10487(struct w49 a23338) {struct w49 t65286; struct w12224 t65287; struct w49 t65288; struct w12224 t65289; struct w49 t65290; struct w12224 t65291; /* x94555 */ /* x94550 stalin.sc:8391:285946 */ /* x94548 stalin.sc:8391:285970 */ t65288 = a23338; /* x94549 stalin.sc:8391:285972 */ /* x94547 stalin.sc:8391:285947 */ t65289.tag = NULL_TYPE; f6598(t65288, t65289); /* x94554 stalin.sc:8392:285982 */ /* x94552 stalin.sc:8392:286009 */ t65290 = a23338; /* x94553 stalin.sc:8392:286011 */ /* x94551 stalin.sc:8392:285983 */ t65291.tag = NULL_TYPE; f6606(t65290, t65291); /* x94546 */ /* x94545 stalin.sc:8393:286021 */ /* x94543 stalin.sc:8393:286047 */ t65286 = a23338; /* x94544 stalin.sc:8393:286049 */ /* x94542 stalin.sc:8393:286022 */ t65287.tag = NULL_TYPE; f6614(t65286, t65287); return;} /* [inside ANNOTATE-VARIABLES-WITH-THEIR-REFERENCES! 10461] */ void f10461(struct w49 a23331) {char *a23332; /* v */ struct w49 a36797; /* S */ struct w49 a36799; /* S */ struct w49 a36801; /* S */ struct w49 a36804; /* S */ struct w49 a39124; /* S */ struct w49 a39125; /* S */ struct w49 a39126; /* S */ struct w49 a39151; /* S */ struct w49 a39174; /* S */ struct w49 a39175; /* S */ struct w49 a39176; /* S */ struct w49 a39177; /* S */ struct w49 a40402; /* S */ char *t65292; char *t65293; char *t65294; struct w49 t65295; struct w49 t65296; char *t65297; char *t65298; struct w49 t65299; struct w49 t65300; char *t65301; char *t65302; struct w49 t65303; struct w49 t65304; char *t65305; char *t65306; struct w49 t65307; struct w49 t65308; char *t65309; char *t65310; struct w49 t65311; struct w49 t65312; char *t65313; char *t65314; struct w49 t65315; struct w49 t65316; char *t65317; char *t65318; struct w49 t65319; struct w49 t65320; char *t65321; char *t65322; struct w49 t65323; struct w49 t65324; char *t65325; char *t65326; struct w49 t65327; struct w49 t65328; char *t65329; char *t65330; struct w49 t65331; struct w49 t65332; char *t65333; char *t65334; struct w49 t65335; struct w49 t65336; char *t65337; char *t65338; struct w49 t65339; struct w49 t65340; char *t65341; char *t65342; struct w49 t65343; struct w49 t65344; char *t65345; char *t65346; struct w49 t65347; struct w49 t65348; char *t65349; char *t65350; struct w49 t65351; struct w49 t65352; char *t65353; char *t65354; struct w49 t65355; struct w49 t65356; char *t65357; char *t65358; struct w49 t65359; struct w49 t65360; char *t65361; char *t65362; struct w49 t65363; struct w49 t65364; char *t65365; char *t65366; struct w49 t65367; struct w49 t65368; char *t65369; char *t65370; struct w49 t65371; struct w49 t65372; char *t65373; char *t65374; struct w49 t65375; struct w49 t65376; char *t65377; struct w49 t65378; struct structure_type24753 *t65379; struct w12224 t65380; struct w49 t65381; struct w49 t65382; struct w49 t65383; struct w12224 t65384; struct w49 t65385; struct w49 t65386; struct w49 t65387; struct w49 t65388; struct w49 t65389; struct structure_type24753 *t65390; struct w12224 t65391; struct w49 t65392; struct w49 t65393; struct w49 t65394; struct w12224 t65395; struct w49 t65396; struct w49 t65397; struct w49 t65398; struct w49 t65399; struct w49 t65400; struct structure_type24753 *t65401; struct w12224 t65402; struct w49 t65403; struct w49 t65404; struct w49 t65405; struct w12224 t65406; struct w49 t65407; struct w49 t65408; struct w49 t65409; struct w49 t65410; struct w49 t65411; struct structure_type24753 *t65412; struct w12224 t65413; struct w49 t65414; struct w49 t65415; struct w49 t65416; struct w12224 t65417; struct w49 t65418; struct w49 t65419; struct w49 t65420; struct w49 t65421; struct w49 t65422; struct w49 t65423; /* x94536 stalin.sc:8396:286093 */ /* x94535 stalin.sc:8396:286099 */ /* x94534 stalin.sc:8396:286116 */ t65422 = a23331; /* x94533 stalin.sc:8396:286100 */ a40402 = t65422; /* x294277 */ /* x294276 */ t65423 = a40402; /* x294275 */ if (!((t65423.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35319]"); structure_ref_error();} t65292 = t65423.value.structure_type27698->s0; /* x94532 */ a23332 = t65292; /* x94531 */ /* x94306 */ /* x94304 */ t65293 = a23332; /* x94305 */ t65294 = q68; /* x94303 */ t65295.tag = EXTERNAL_SYMBOL_TYPE; t65295.value.external_symbol_type = t65293; t65296.tag = EXTERNAL_SYMBOL_TYPE; t65296.value.external_symbol_type = t65294; if (f26160(t65295, t65296)==FALSE_TYPE) goto l10777; /* x94309 */ /* x94308 */ /* x94307 stalin.sc:8397:286142 */ return; l10777: /* x94530 */ /* x94313 */ /* x94311 */ t65297 = a23332; /* x94312 */ t65298 = q69; /* x94310 */ t65299.tag = EXTERNAL_SYMBOL_TYPE; t65299.value.external_symbol_type = t65297; t65300.tag = EXTERNAL_SYMBOL_TYPE; t65300.value.external_symbol_type = t65298; if (f26160(t65299, t65300)==FALSE_TYPE) goto l10779; /* x94316 */ /* x94315 */ /* x94314 stalin.sc:8398:286169 */ return; l10779: /* x94529 */ /* x94320 */ /* x94318 */ t65301 = a23332; /* x94319 */ t65302 = q70; /* x94317 */ t65303.tag = EXTERNAL_SYMBOL_TYPE; t65303.value.external_symbol_type = t65301; t65304.tag = EXTERNAL_SYMBOL_TYPE; t65304.value.external_symbol_type = t65302; if (f26160(t65303, t65304)==FALSE_TYPE) goto l10781; /* x94323 */ /* x94322 */ /* x94321 stalin.sc:8399:286197 */ return; l10781: /* x94528 */ /* x94327 */ /* x94325 */ t65305 = a23332; /* x94326 */ t65306 = q71; /* x94324 */ t65307.tag = EXTERNAL_SYMBOL_TYPE; t65307.value.external_symbol_type = t65305; t65308.tag = EXTERNAL_SYMBOL_TYPE; t65308.value.external_symbol_type = t65306; if (f26160(t65307, t65308)==FALSE_TYPE) goto l10783; /* x94330 */ /* x94329 */ /* x94328 stalin.sc:8400:286224 */ return; l10783: /* x94527 */ /* x94334 */ /* x94332 */ t65309 = a23332; /* x94333 */ t65310 = q72; /* x94331 */ t65311.tag = EXTERNAL_SYMBOL_TYPE; t65311.value.external_symbol_type = t65309; t65312.tag = EXTERNAL_SYMBOL_TYPE; t65312.value.external_symbol_type = t65310; if (f26160(t65311, t65312)==FALSE_TYPE) goto l10785; /* x94337 */ /* x94336 */ /* x94335 stalin.sc:8401:286253 */ return; l10785: /* x94526 */ /* x94341 */ /* x94339 */ t65313 = a23332; /* x94340 */ t65314 = q73; /* x94338 */ t65315.tag = EXTERNAL_SYMBOL_TYPE; t65315.value.external_symbol_type = t65313; t65316.tag = EXTERNAL_SYMBOL_TYPE; t65316.value.external_symbol_type = t65314; if (f26160(t65315, t65316)==FALSE_TYPE) goto l10787; /* x94344 */ /* x94343 */ /* x94342 stalin.sc:8402:286282 */ return; l10787: /* x94525 */ /* x94348 */ /* x94346 */ t65317 = a23332; /* x94347 */ t65318 = q74; /* x94345 */ t65319.tag = EXTERNAL_SYMBOL_TYPE; t65319.value.external_symbol_type = t65317; t65320.tag = EXTERNAL_SYMBOL_TYPE; t65320.value.external_symbol_type = t65318; if (f26160(t65319, t65320)==FALSE_TYPE) goto l10789; /* x94351 */ /* x94350 */ /* x94349 stalin.sc:8403:286316 */ return; l10789: /* x94524 */ /* x94355 */ /* x94353 */ t65321 = a23332; /* x94354 */ t65322 = q75; /* x94352 */ t65323.tag = EXTERNAL_SYMBOL_TYPE; t65323.value.external_symbol_type = t65321; t65324.tag = EXTERNAL_SYMBOL_TYPE; t65324.value.external_symbol_type = t65322; if (f26160(t65323, t65324)==FALSE_TYPE) goto l10791; /* x94358 */ /* x94357 */ /* x94356 stalin.sc:8404:286345 */ return; l10791: /* x94523 */ /* x94362 */ /* x94360 */ t65325 = a23332; /* x94361 */ t65326 = q76; /* x94359 */ t65327.tag = EXTERNAL_SYMBOL_TYPE; t65327.value.external_symbol_type = t65325; t65328.tag = EXTERNAL_SYMBOL_TYPE; t65328.value.external_symbol_type = t65326; if (f26160(t65327, t65328)==FALSE_TYPE) goto l10793; /* x94365 */ /* x94364 */ /* x94363 stalin.sc:8405:286374 */ return; l10793: /* x94522 */ /* x94369 */ /* x94367 */ t65329 = a23332; /* x94368 */ t65330 = q50; /* x94366 */ t65331.tag = EXTERNAL_SYMBOL_TYPE; t65331.value.external_symbol_type = t65329; t65332.tag = EXTERNAL_SYMBOL_TYPE; t65332.value.external_symbol_type = t65330; if (f26160(t65331, t65332)==FALSE_TYPE) goto l10795; /* x94372 */ /* x94371 */ /* x94370 stalin.sc:8406:286401 */ return; l10795: /* x94521 */ /* x94376 */ /* x94374 */ t65333 = a23332; /* x94375 */ t65334 = q52; /* x94373 */ t65335.tag = EXTERNAL_SYMBOL_TYPE; t65335.value.external_symbol_type = t65333; t65336.tag = EXTERNAL_SYMBOL_TYPE; t65336.value.external_symbol_type = t65334; if (f26160(t65335, t65336)==FALSE_TYPE) goto l10797; /* x94379 */ /* x94378 */ /* x94377 stalin.sc:8407:286430 */ return; l10797: /* x94520 */ /* x94401 */ /* x94400 */ /* x94398 */ t65337 = a23332; /* x94399 */ t65338 = q39; /* x94397 */ t65339.tag = EXTERNAL_SYMBOL_TYPE; t65339.value.external_symbol_type = t65337; t65340.tag = EXTERNAL_SYMBOL_TYPE; t65340.value.external_symbol_type = t65338; if (!(f26160(t65339, t65340)==FALSE_TYPE)) goto l10798; /* x94394 */ /* x94393 */ /* x94391 */ t65341 = a23332; /* x94392 */ t65342 = q40; /* x94390 */ t65343.tag = EXTERNAL_SYMBOL_TYPE; t65343.value.external_symbol_type = t65341; t65344.tag = EXTERNAL_SYMBOL_TYPE; t65344.value.external_symbol_type = t65342; if (!(f26160(t65343, t65344)==FALSE_TYPE)) goto l10798; /* x94387 */ /* x94385 */ t65345 = a23332; /* x94386 */ t65346 = q41; /* x94384 */ t65347.tag = EXTERNAL_SYMBOL_TYPE; t65347.value.external_symbol_type = t65345; t65348.tag = EXTERNAL_SYMBOL_TYPE; t65348.value.external_symbol_type = t65346; if (f26160(t65347, t65348)==FALSE_TYPE) goto l10799; l10798: /* x94404 */ /* x94403 */ /* x94402 stalin.sc:8408:286490 */ return; l10799: /* x94519 */ /* x94408 */ /* x94406 */ t65349 = a23332; /* x94407 */ t65350 = q42; /* x94405 */ t65351.tag = EXTERNAL_SYMBOL_TYPE; t65351.value.external_symbol_type = t65349; t65352.tag = EXTERNAL_SYMBOL_TYPE; t65352.value.external_symbol_type = t65350; if (f26160(t65351, t65352)==FALSE_TYPE) goto l10803; /* x94438 */ /* x94437 */ /* x94436 */ /* x94435 stalin.sc:8410:286515 */ /* x94426 stalin.sc:8411:286550 */ /* x94425 stalin.sc:8411:286571 */ t65414 = a23331; /* x94424 stalin.sc:8411:286551 */ a39174 = t65414; /* x289365 */ /* x289364 */ t65415 = a39174; /* x289363 */ if (!((t65415.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34091]"); structure_ref_error();} t65411 = t65415.value.structure_type27698->s16; /* x94434 stalin.sc:8412:286582 */ /* x94428 stalin.sc:8412:286588 */ t65416 = a23331; /* x94433 stalin.sc:8412:286590 */ /* x94432 stalin.sc:8412:286612 */ /* x94431 stalin.sc:8412:286633 */ t65420 = a23331; /* x94430 stalin.sc:8412:286613 */ a39175 = t65420; /* x289369 */ /* x289368 */ t65421 = a39175; /* x289367 */ if (!((t65421.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34092]"); structure_ref_error();} t65418 = t65421.value.structure_type27698->s16; /* x94429 stalin.sc:8412:286591 */ a36801 = t65418; /* x279873 */ /* x279872 */ t65419 = a36801; /* x279871 */ if (!((t65419.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ASSIGNMENTS[6605] 31718]"); structure_ref_error();} t65417 = t65419.value.structure_type27692->s11; /* x269769 stalin.sc:8412:286583 */ t65412 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t65412==NULL) {backtrace("stalin.sc", 8412, 286582); out_of_memory_error();} t65412->s0 = t65416; t65412->s1 = *((struct w49 *)(&t65417)); /* x94423 stalin.sc:8410:286516 */ t65413.tag = STRUCTURE_TYPE24753; t65413.value.structure_type24753 = t65412; f6606(t65411, t65413); /* x94422 */ /* x94421 stalin.sc:8413:286646 */ /* x94412 stalin.sc:8414:286680 */ /* x94411 stalin.sc:8414:286701 */ t65403 = a23331; /* x94410 stalin.sc:8414:286681 */ a39124 = t65403; /* x289165 */ /* x289164 */ t65404 = a39124; /* x289163 */ if (!((t65404.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34041]"); structure_ref_error();} t65400 = t65404.value.structure_type27698->s16; /* x94420 stalin.sc:8415:286712 */ /* x94414 stalin.sc:8415:286718 */ t65405 = a23331; /* x94419 stalin.sc:8415:286720 */ /* x94418 stalin.sc:8415:286741 */ /* x94417 stalin.sc:8415:286762 */ t65409 = a23331; /* x94416 stalin.sc:8415:286742 */ a39125 = t65409; /* x289169 */ /* x289168 */ t65410 = a39125; /* x289167 */ if (!((t65410.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34042]"); structure_ref_error();} t65407 = t65410.value.structure_type27698->s16; /* x94415 stalin.sc:8415:286721 */ a36797 = t65407; /* x279857 */ /* x279856 */ t65408 = a36797; /* x279855 */ if (!((t65408.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-REFERENCES[6613] 31714]"); structure_ref_error();} t65406 = t65408.value.structure_type27692->s12; /* x269770 stalin.sc:8415:286713 */ t65401 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t65401==NULL) {backtrace("stalin.sc", 8415, 286712); out_of_memory_error();} t65401->s0 = t65405; t65401->s1 = *((struct w49 *)(&t65406)); /* x94409 stalin.sc:8413:286647 */ t65402.tag = STRUCTURE_TYPE24753; t65402.value.structure_type24753 = t65401; f6614(t65400, t65402); return; l10803: /* x94518 */ /* x94442 */ /* x94440 */ t65353 = a23332; /* x94441 */ t65354 = q43; /* x94439 */ t65355.tag = EXTERNAL_SYMBOL_TYPE; t65355.value.external_symbol_type = t65353; t65356.tag = EXTERNAL_SYMBOL_TYPE; t65356.value.external_symbol_type = t65354; if (f26160(t65355, t65356)==FALSE_TYPE) goto l10805; /* x94445 */ /* x94444 */ /* x94443 stalin.sc:8416:286781 */ return; l10805: /* x94517 */ /* x94449 */ /* x94447 */ t65357 = a23332; /* x94448 */ t65358 = q77; /* x94446 */ t65359.tag = EXTERNAL_SYMBOL_TYPE; t65359.value.external_symbol_type = t65357; t65360.tag = EXTERNAL_SYMBOL_TYPE; t65360.value.external_symbol_type = t65358; if (f26160(t65359, t65360)==FALSE_TYPE) goto l10807; /* x94452 */ /* x94451 */ /* x94450 stalin.sc:8417:286814 */ return; l10807: /* x94516 */ /* x94456 */ /* x94454 */ t65361 = a23332; /* x94455 */ t65362 = q78; /* x94453 */ t65363.tag = EXTERNAL_SYMBOL_TYPE; t65363.value.external_symbol_type = t65361; t65364.tag = EXTERNAL_SYMBOL_TYPE; t65364.value.external_symbol_type = t65362; if (f26160(t65363, t65364)==FALSE_TYPE) goto l10809; /* x94459 */ /* x94458 */ /* x94457 stalin.sc:8418:286845 */ return; l10809: /* x94515 */ /* x94463 */ /* x94461 */ t65365 = a23332; /* x94462 */ t65366 = q38; /* x94460 */ t65367.tag = EXTERNAL_SYMBOL_TYPE; t65367.value.external_symbol_type = t65365; t65368.tag = EXTERNAL_SYMBOL_TYPE; t65368.value.external_symbol_type = t65366; if (f26160(t65367, t65368)==FALSE_TYPE) goto l10811; /* x94493 */ /* x94492 */ /* x94491 */ /* x94490 stalin.sc:8420:286872 */ /* x94481 stalin.sc:8421:286904 */ /* x94480 stalin.sc:8421:286925 */ t65392 = a23331; /* x94479 stalin.sc:8421:286905 */ a39176 = t65392; /* x289373 */ /* x289372 */ t65393 = a39176; /* x289371 */ if (!((t65393.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34093]"); structure_ref_error();} t65389 = t65393.value.structure_type27698->s16; /* x94489 stalin.sc:8422:286936 */ /* x94483 stalin.sc:8422:286942 */ t65394 = a23331; /* x94488 stalin.sc:8422:286944 */ /* x94487 stalin.sc:8422:286963 */ /* x94486 stalin.sc:8422:286984 */ t65398 = a23331; /* x94485 stalin.sc:8422:286964 */ a39177 = t65398; /* x289377 */ /* x289376 */ t65399 = a39177; /* x289375 */ if (!((t65399.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34094]"); structure_ref_error();} t65396 = t65399.value.structure_type27698->s16; /* x94484 stalin.sc:8422:286945 */ a36804 = t65396; /* x279885 */ /* x279884 */ t65397 = a36804; /* x279883 */ if (!((t65397.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ACCESSES[6597] 31721]"); structure_ref_error();} t65395 = t65397.value.structure_type27692->s10; /* x269767 stalin.sc:8422:286937 */ t65390 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t65390==NULL) {backtrace("stalin.sc", 8422, 286936); out_of_memory_error();} t65390->s0 = t65394; t65390->s1 = *((struct w49 *)(&t65395)); /* x94478 stalin.sc:8420:286873 */ t65391.tag = STRUCTURE_TYPE24753; t65391.value.structure_type24753 = t65390; f6598(t65389, t65391); /* x94477 */ /* x94476 stalin.sc:8423:286997 */ /* x94467 stalin.sc:8424:287031 */ /* x94466 stalin.sc:8424:287052 */ t65381 = a23331; /* x94465 stalin.sc:8424:287032 */ a39126 = t65381; /* x289173 */ /* x289172 */ t65382 = a39126; /* x289171 */ if (!((t65382.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34043]"); structure_ref_error();} t65378 = t65382.value.structure_type27698->s16; /* x94475 stalin.sc:8425:287063 */ /* x94469 stalin.sc:8425:287069 */ t65383 = a23331; /* x94474 stalin.sc:8425:287071 */ /* x94473 stalin.sc:8425:287092 */ /* x94472 stalin.sc:8425:287113 */ t65387 = a23331; /* x94471 stalin.sc:8425:287093 */ a39151 = t65387; /* x289273 */ /* x289272 */ t65388 = a39151; /* x289271 */ if (!((t65388.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34068]"); structure_ref_error();} t65385 = t65388.value.structure_type27698->s16; /* x94470 stalin.sc:8425:287072 */ a36799 = t65385; /* x279865 */ /* x279864 */ t65386 = a36799; /* x279863 */ if (!((t65386.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-REFERENCES[6613] 31716]"); structure_ref_error();} t65384 = t65386.value.structure_type27692->s12; /* x269768 stalin.sc:8425:287064 */ t65379 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t65379==NULL) {backtrace("stalin.sc", 8425, 287063); out_of_memory_error();} t65379->s0 = t65383; t65379->s1 = *((struct w49 *)(&t65384)); /* x94464 stalin.sc:8423:286998 */ t65380.tag = STRUCTURE_TYPE24753; t65380.value.structure_type24753 = t65379; f6614(t65378, t65380); return; l10811: /* x94514 */ /* x94506 */ /* x94505 */ /* x94503 */ t65369 = a23332; /* x94504 */ t65370 = q36; /* x94502 */ t65371.tag = EXTERNAL_SYMBOL_TYPE; t65371.value.external_symbol_type = t65369; t65372.tag = EXTERNAL_SYMBOL_TYPE; t65372.value.external_symbol_type = t65370; if (!(f26160(t65371, t65372)==FALSE_TYPE)) goto l10812; /* x94499 */ /* x94497 */ t65373 = a23332; /* x94498 */ t65374 = q37; /* x94496 */ t65375.tag = EXTERNAL_SYMBOL_TYPE; t65375.value.external_symbol_type = t65373; t65376.tag = EXTERNAL_SYMBOL_TYPE; t65376.value.external_symbol_type = t65374; if (f26160(t65375, t65376)==FALSE_TYPE) goto l10813; l10812: /* x94509 */ /* x94508 */ /* x94507 stalin.sc:8426:287149 */ return; l10813: /* x94513 */ /* x94512 */ /* x94511 stalin.sc:8427:287165 */ /* x94510 stalin.sc:8427:287166 */ /* x297029 QobiScheme.sc:166:5314 */ /* x297028 QobiScheme.sc:166:5321 */ t65377 = "This shouldn\'t happen"; /* x297027 QobiScheme.sc:166:5315 */ stalin_panic(t65377);} /* [inside ANNOTATE-EXPRESSIONS-WITH-THEIR-ENVIRONMENTS! 10458] */ void f10458(struct w49 a23329) {struct w49 t65424; char *t65425; struct w49 t65426; /* x94287 stalin.sc:8381:285561 */ /* x94284 stalin.sc:8381:285590 */ t65424 = a23329; /* x94286 stalin.sc:8381:285592 */ /* x94285 stalin.sc:8381:285593 */ /* x277503 stalin.sc:323:8604 */ t65425 = q35; /* x94283 stalin.sc:8381:285562 */ t65426.tag = EXTERNAL_SYMBOL_TYPE; t65426.value.external_symbol_type = t65425; f5560(t65424, t65426); return;} /* ANNOTATE-EXPRESSIONS-WITH-THEIR-ENVIRONMENTS![10453] */ void f10453(void) {struct w21193 t65427; struct w228345 t65428; struct w49 t65429; struct structure_type24753 *t65430; char *t65431; struct w21193 t65432; struct w36108 t65433; struct w49 t65434; struct structure_type24753 *t65435; struct w49 t65436; struct w49 t65437; struct w21193 t65438; struct w36108 t65439; struct w49 t65440; struct structure_type24753 *t65441; /* x94299 */ /* x94290 stalin.sc:8381:285539 */ /* x94289 stalin.sc:8381:285608 */ t65432 = a2031; /* x94288 stalin.sc:8381:285549 */ /* x94282 stalin.sc:8381:285540 */ t65433.tag = NATIVE_PROCEDURE_TYPE16674; t65434 = *((struct w49 *)(&t65432)); t65435 = (struct structure_type24753 *)NULL_TYPE; f27755(t65433, t65434, t65435); /* x94294 stalin.sc:8382:285615 */ /* x94292 stalin.sc:8382:285644 */ t65436 = a2026; /* x94293 stalin.sc:8382:285648 */ /* x94291 stalin.sc:8382:285616 */ t65437.tag = FALSE_TYPE; f5560(t65436, t65437); /* x94298 stalin.sc:8383:285653 */ /* x94297 stalin.sc:8383:285720 */ t65438 = a1594; /* x94296 stalin.sc:8383:285663 */ /* x94295 stalin.sc:8383:285654 */ t65439.tag = NATIVE_PROCEDURE_TYPE7123; t65440 = *((struct w49 *)(&t65438)); t65441 = (struct structure_type24753 *)NULL_TYPE; f27755(t65439, t65440, t65441); /* x94281 */ /* x94280 stalin.sc:8384:285727 */ /* x94273 stalin.sc:8384:285733 */ /* x94272 stalin.sc:8384:285799 */ t65427 = a2031; /* x94271 stalin.sc:8384:285739 */ /* x94263 stalin.sc:8384:285734 */ t65428.tag = NATIVE_PROCEDURE_TYPE17562; t65429 = *((struct w49 *)(&t65427)); t65430 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t65428, t65429, t65430).tag)==FALSE_TYPE) goto l10816; /* x94277 */ /* x94276 */ /* x94275 stalin.sc:8385:285807 */ /* x94274 stalin.sc:8385:285808 */ /* x296837 QobiScheme.sc:166:5314 */ /* x296836 QobiScheme.sc:166:5321 */ t65431 = "This shouldn\'t happen"; /* x296835 QobiScheme.sc:166:5315 */ stalin_panic(t65431); l10816: /* x94279 stalin.sc:8384:285727 */ /* x94278 stalin.sc:8384:285727 */ return;} /* LOOP[10411] */ void f10411(struct p10409 *p10411, struct w49 a23308) {char *a23311; /* v */ struct w49 a38575; /* S */ struct w49 a38693; /* S */ struct w49 a38917; /* S */ struct w49 a38971; /* S */ struct w49 a39029; /* S */ struct w49 a39074; /* S */ struct w49 a39552; /* S */ struct w49 a39595; /* S */ struct w49 a39596; /* S */ struct w49 a40103; /* S */ struct w49 a40331; /* S */ struct p10409 *t65442; struct p10409 *t65443; char *t65444; char *t65445; char *t65446; struct w49 t65447; struct w49 t65448; char *t65449; char *t65450; struct w49 t65451; struct w49 t65452; char *t65453; char *t65454; struct w49 t65455; struct w49 t65456; char *t65457; char *t65458; struct w49 t65459; struct w49 t65460; char *t65461; char *t65462; struct w49 t65463; struct w49 t65464; char *t65465; char *t65466; struct w49 t65467; struct w49 t65468; char *t65469; char *t65470; struct w49 t65471; struct w49 t65472; char *t65473; char *t65474; struct w49 t65475; struct w49 t65476; char *t65477; char *t65478; struct w49 t65479; struct w49 t65480; char *t65481; char *t65482; struct w49 t65483; struct w49 t65484; char *t65485; char *t65486; struct w49 t65487; struct w49 t65488; char *t65489; char *t65490; struct w49 t65491; struct w49 t65492; char *t65493; char *t65494; struct w49 t65495; struct w49 t65496; char *t65497; char *t65498; struct w49 t65499; struct w49 t65500; char *t65501; char *t65502; struct w49 t65503; struct w49 t65504; char *t65505; char *t65506; struct w49 t65507; struct w49 t65508; char *t65509; char *t65510; struct w49 t65511; struct w49 t65512; char *t65513; char *t65514; struct w49 t65515; struct w49 t65516; char *t65517; char *t65518; struct w49 t65519; struct w49 t65520; char *t65521; char *t65522; struct w49 t65523; struct w49 t65524; char *t65525; char *t65526; struct w49 t65527; struct w49 t65528; char *t65529; struct p10409 *t65530; struct p10409 *t65531; struct p10409 *t65532; struct w11873 t65533; struct w36108 t65534; struct w49 t65535; struct structure_type24753 *t65536; struct w49 t65537; struct w49 t65538; struct p10409 *t65539; struct w49 t65540; struct w49 t65541; struct w49 t65542; struct p10409 *t65543; struct p10409 *t65544; struct p10409 *t65545; struct w49 t65546; struct w49 t65547; struct w49 t65548; struct p10409 *t65549; struct w49 t65550; struct w49 t65551; struct w49 t65552; struct p10409 *t65553; struct w49 t65554; struct w49 t65555; struct w49 t65556; struct p10409 *t65557; struct p10409 *t65558; struct w49 t65559; struct w49 t65560; struct w49 t65561; struct p10409 *t65562; struct p10409 *t65563; struct w49 t65564; unsigned t65565; struct w49 t65566; struct w49 t65567; struct w49 t65568; struct p10409 *t65569; struct p10409 *t65570; struct p10409 *t65571; struct w49 t65572; struct w49 t65573; struct w49 t65574; struct w49 t65575; struct p10409 *t65576; struct w49 t65577; struct w49 t65578; struct w49 t65579; struct w49 t65580; struct w49 t65581; struct w49 t65582; struct w49 t65583; char *t65584; struct w49 t65585; struct w49 t65586; char *t65587; struct w49 t65588; struct w49 t65589; struct p10409 *p10412; struct p10409 *p10413; struct p10409 *p10423; struct p10409 *p10424; struct p10409 *p10425; struct p10409 *p10429; struct p10409 *p10430; struct p10409 *p10431; struct p10409 *p10436; struct p10409 *p10437; h10411: /* x94154 */ /* x94149 stalin.sc:8350:284496 */ /* x94142 stalin.sc:8350:284504 */ /* x94139 stalin.sc:8350:284509 */ /* x94138 stalin.sc:8350:284533 */ t65585 = a23308; /* x94137 stalin.sc:8350:284510 */ a40103 = t65585; /* x293081 */ /* x293080 */ t65586 = a40103; /* x293079 */ if (!((t65586.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35020]"); structure_ref_error();} t65583 = t65586.value.structure_type27698->s9; /* x94141 stalin.sc:8350:284536 */ /* x94140 stalin.sc:8350:284537 */ /* x277199 stalin.sc:323:8604 */ t65584 = q35; /* x269777 stalin.sc:8350:284505 */ if (!(((t65583.tag)==EXTERNAL_SYMBOL_TYPE)&&((t65583.value.external_symbol_type)==t65584))) goto l10857; /* x94144 */ /* x94143 */ goto l10858; l10857: /* x94148 */ /* x94147 */ /* x94146 stalin.sc:8350:284551 */ /* x94145 stalin.sc:8350:284552 */ /* x296833 QobiScheme.sc:166:5314 */ /* x296832 QobiScheme.sc:166:5321 */ t65587 = "This shouldn\'t happen"; /* x296831 QobiScheme.sc:166:5315 */ stalin_panic(t65587); l10858: /* x94153 stalin.sc:8351:284565 */ /* x94151 stalin.sc:8351:284594 */ t65588 = a23308; /* x94152 stalin.sc:8351:284596 */ t65589 = p10411->p10405->a23304; /* x94150 stalin.sc:8351:284566 */ f5560(t65588, t65589); /* x94135 */ t65442 = p10411; p10412 = t65442; /* x94134 stalin.sc:8352:284602 */ /* x94133 stalin.sc:8352:284608 */ /* x94132 stalin.sc:8352:284625 */ t65581 = a23308; /* x94131 stalin.sc:8352:284609 */ a40331 = t65581; /* x293993 */ /* x293992 */ t65582 = a40331; /* x293991 */ if (!((t65582.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35248]"); structure_ref_error();} t65444 = t65582.value.structure_type27698->s0; /* x94130 */ t65443 = p10412; p10413 = t65443; a23311 = t65444; /* x94129 */ /* x93906 */ /* x93904 */ t65445 = a23311; /* x93905 */ t65446 = q68; /* x93903 */ t65447.tag = EXTERNAL_SYMBOL_TYPE; t65447.value.external_symbol_type = t65445; t65448.tag = EXTERNAL_SYMBOL_TYPE; t65448.value.external_symbol_type = t65446; if (f26160(t65447, t65448)==FALSE_TYPE) goto l10818; /* x93909 */ /* x93908 */ /* x93907 stalin.sc:8353:284649 */ return; l10818: /* x94128 */ /* x93913 */ /* x93911 */ t65449 = a23311; /* x93912 */ t65450 = q69; /* x93910 */ t65451.tag = EXTERNAL_SYMBOL_TYPE; t65451.value.external_symbol_type = t65449; t65452.tag = EXTERNAL_SYMBOL_TYPE; t65452.value.external_symbol_type = t65450; if (f26160(t65451, t65452)==FALSE_TYPE) goto l10820; /* x93916 */ /* x93915 */ /* x93914 stalin.sc:8354:284674 */ return; l10820: /* x94127 */ /* x93920 */ /* x93918 */ t65453 = a23311; /* x93919 */ t65454 = q70; /* x93917 */ t65455.tag = EXTERNAL_SYMBOL_TYPE; t65455.value.external_symbol_type = t65453; t65456.tag = EXTERNAL_SYMBOL_TYPE; t65456.value.external_symbol_type = t65454; if (f26160(t65455, t65456)==FALSE_TYPE) goto l10822; /* x93923 */ /* x93922 */ /* x93921 stalin.sc:8355:284700 */ return; l10822: /* x94126 */ /* x93927 */ /* x93925 */ t65457 = a23311; /* x93926 */ t65458 = q71; /* x93924 */ t65459.tag = EXTERNAL_SYMBOL_TYPE; t65459.value.external_symbol_type = t65457; t65460.tag = EXTERNAL_SYMBOL_TYPE; t65460.value.external_symbol_type = t65458; if (f26160(t65459, t65460)==FALSE_TYPE) goto l10824; /* x93930 */ /* x93929 */ /* x93928 stalin.sc:8356:284725 */ return; l10824: /* x94125 */ /* x93934 */ /* x93932 */ t65461 = a23311; /* x93933 */ t65462 = q72; /* x93931 */ t65463.tag = EXTERNAL_SYMBOL_TYPE; t65463.value.external_symbol_type = t65461; t65464.tag = EXTERNAL_SYMBOL_TYPE; t65464.value.external_symbol_type = t65462; if (f26160(t65463, t65464)==FALSE_TYPE) goto l10826; /* x93937 */ /* x93936 */ /* x93935 stalin.sc:8357:284752 */ return; l10826: /* x94124 */ /* x93941 */ /* x93939 */ t65465 = a23311; /* x93940 */ t65466 = q73; /* x93938 */ t65467.tag = EXTERNAL_SYMBOL_TYPE; t65467.value.external_symbol_type = t65465; t65468.tag = EXTERNAL_SYMBOL_TYPE; t65468.value.external_symbol_type = t65466; if (f26160(t65467, t65468)==FALSE_TYPE) goto l10828; /* x93944 */ /* x93943 */ /* x93942 stalin.sc:8358:284779 */ return; l10828: /* x94123 */ /* x93948 */ /* x93946 */ t65469 = a23311; /* x93947 */ t65470 = q74; /* x93945 */ t65471.tag = EXTERNAL_SYMBOL_TYPE; t65471.value.external_symbol_type = t65469; t65472.tag = EXTERNAL_SYMBOL_TYPE; t65472.value.external_symbol_type = t65470; if (f26160(t65471, t65472)==FALSE_TYPE) goto l10830; /* x93951 */ /* x93950 */ /* x93949 stalin.sc:8359:284811 */ return; l10830: /* x94122 */ /* x93955 */ /* x93953 */ t65473 = a23311; /* x93954 */ t65474 = q75; /* x93952 */ t65475.tag = EXTERNAL_SYMBOL_TYPE; t65475.value.external_symbol_type = t65473; t65476.tag = EXTERNAL_SYMBOL_TYPE; t65476.value.external_symbol_type = t65474; if (f26160(t65475, t65476)==FALSE_TYPE) goto l10832; /* x93958 */ /* x93957 */ /* x93956 stalin.sc:8360:284838 */ return; l10832: /* x94121 */ /* x93962 */ /* x93960 */ t65477 = a23311; /* x93961 */ t65478 = q76; /* x93959 */ t65479.tag = EXTERNAL_SYMBOL_TYPE; t65479.value.external_symbol_type = t65477; t65480.tag = EXTERNAL_SYMBOL_TYPE; t65480.value.external_symbol_type = t65478; if (f26160(t65479, t65480)==FALSE_TYPE) goto l10834; /* x93965 */ /* x93964 */ /* x93963 stalin.sc:8361:284865 */ return; l10834: /* x94120 */ /* x93969 */ /* x93967 */ t65481 = a23311; /* x93968 */ t65482 = q50; /* x93966 */ t65483.tag = EXTERNAL_SYMBOL_TYPE; t65483.value.external_symbol_type = t65481; t65484.tag = EXTERNAL_SYMBOL_TYPE; t65484.value.external_symbol_type = t65482; if (f26160(t65483, t65484)==FALSE_TYPE) goto l10836; /* x93987 */ /* x93986 */ t65569 = p10413; p10423 = t65569; /* x93985 */ /* x93984 stalin.sc:8363:284895 */ /* x93983 stalin.sc:8363:284901 */ /* x93982 stalin.sc:8363:284906 */ /* x93981 stalin.sc:8363:284927 */ t65579 = a23308; /* x93980 stalin.sc:8363:284907 */ a39595 = t65579; /* x291049 */ /* x291048 */ t65580 = a39595; /* x291047 */ if (!((t65580.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34512]"); structure_ref_error();} t65578 = t65580.value.structure_type27698->s12; /* x269778 stalin.sc:8363:284902 */ if (!((t65578.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 8363, 284901); structure_ref_error();} t65577 = t65578.value.structure_type24753->s0; /* x93978 stalin.sc:8363:284896 */ t65576 = p10423->a23306; f10411(t65576, t65577); /* x93977 */ t65570 = p10423; p10424 = t65570; /* x93976 stalin.sc:8364:284937 */ /* x93975 stalin.sc:8364:284943 */ /* x93974 stalin.sc:8364:284948 */ /* x93973 stalin.sc:8364:284969 */ t65574 = a23308; /* x93972 stalin.sc:8364:284949 */ a39552 = t65574; /* x290877 */ /* x290876 */ t65575 = a39552; /* x290875 */ if (!((t65575.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34469]"); structure_ref_error();} t65573 = t65575.value.structure_type27698->s12; /* x269779 stalin.sc:8364:284944 */ if (!((t65573.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 8364, 284943); structure_ref_error();} t65572 = t65573.value.structure_type24753->s1; /* x93970 stalin.sc:8364:284938 */ t65571 = p10424->a23306; p10411 = t65571; a23308 = t65572; goto h10411; l10836: /* x94119 */ /* x93991 */ /* x93989 */ t65485 = a23311; /* x93990 */ t65486 = q52; /* x93988 */ t65487.tag = EXTERNAL_SYMBOL_TYPE; t65487.value.external_symbol_type = t65485; t65488.tag = EXTERNAL_SYMBOL_TYPE; t65488.value.external_symbol_type = t65486; if (f26160(t65487, t65488)==FALSE_TYPE) goto l10838; /* x93999 */ /* x93998 */ t65562 = p10413; p10425 = t65562; /* x93997 stalin.sc:8365:284998 */ /* x93996 stalin.sc:8365:285020 */ /* x93995 stalin.sc:8365:285041 */ t65567 = a23308; /* x93994 stalin.sc:8365:285021 */ a39596 = t65567; /* x291053 */ /* x291052 */ t65568 = a39596; /* x291051 */ if (!((t65568.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34513]"); structure_ref_error();} t65564 = t65568.value.structure_type27698->s12; /* x93993 stalin.sc:8365:285015 */ t65563 = p10425->a23306; /* x93992 stalin.sc:8365:284999 */ t65565 = (unsigned)t65563; t65566 = t65564; f1141(t65565, t65566); return; l10838: /* x94118 */ /* x94021 */ /* x94020 */ /* x94018 */ t65489 = a23311; /* x94019 */ t65490 = q39; /* x94017 */ t65491.tag = EXTERNAL_SYMBOL_TYPE; t65491.value.external_symbol_type = t65489; t65492.tag = EXTERNAL_SYMBOL_TYPE; t65492.value.external_symbol_type = t65490; if (!(f26160(t65491, t65492)==FALSE_TYPE)) goto l10839; /* x94014 */ /* x94013 */ /* x94011 */ t65493 = a23311; /* x94012 */ t65494 = q40; /* x94010 */ t65495.tag = EXTERNAL_SYMBOL_TYPE; t65495.value.external_symbol_type = t65493; t65496.tag = EXTERNAL_SYMBOL_TYPE; t65496.value.external_symbol_type = t65494; if (!(f26160(t65495, t65496)==FALSE_TYPE)) goto l10839; /* x94007 */ /* x94005 */ t65497 = a23311; /* x94006 */ t65498 = q41; /* x94004 */ t65499.tag = EXTERNAL_SYMBOL_TYPE; t65499.value.external_symbol_type = t65497; t65500.tag = EXTERNAL_SYMBOL_TYPE; t65500.value.external_symbol_type = t65498; if (f26160(t65499, t65500)==FALSE_TYPE) goto l10840; l10839: /* x94024 */ /* x94023 */ /* x94022 stalin.sc:8366:285100 */ return; l10840: /* x94117 */ /* x94028 */ /* x94026 */ t65501 = a23311; /* x94027 */ t65502 = q42; /* x94025 */ t65503.tag = EXTERNAL_SYMBOL_TYPE; t65503.value.external_symbol_type = t65501; t65504.tag = EXTERNAL_SYMBOL_TYPE; t65504.value.external_symbol_type = t65502; if (f26160(t65503, t65504)==FALSE_TYPE) goto l10844; /* x94035 */ /* x94034 */ t65557 = p10413; p10429 = t65557; /* x94033 stalin.sc:8367:285116 */ /* x94032 stalin.sc:8367:285122 */ /* x94031 stalin.sc:8367:285141 */ t65560 = a23308; /* x94030 stalin.sc:8367:285123 */ a39074 = t65560; /* x288965 */ /* x288964 */ t65561 = a39074; /* x288963 */ if (!((t65561.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33991]"); structure_ref_error();} t65559 = t65561.value.structure_type27698->s17; /* x94029 stalin.sc:8367:285117 */ t65558 = p10429->a23306; p10411 = t65558; a23308 = t65559; goto h10411; l10844: /* x94116 */ /* x94039 */ /* x94037 */ t65505 = a23311; /* x94038 */ t65506 = q43; /* x94036 */ t65507.tag = EXTERNAL_SYMBOL_TYPE; t65507.value.external_symbol_type = t65505; t65508.tag = EXTERNAL_SYMBOL_TYPE; t65508.value.external_symbol_type = t65506; if (f26160(t65507, t65508)==FALSE_TYPE) goto l10846; /* x94058 */ /* x94057 */ t65543 = p10413; p10430 = t65543; /* x94056 */ /* x94050 stalin.sc:8369:285161 */ /* x94049 stalin.sc:8369:285167 */ /* x94048 stalin.sc:8369:285190 */ t65551 = a23308; /* x94047 stalin.sc:8369:285168 */ a39029 = t65551; /* x288785 */ /* x288784 */ t65552 = a39029; /* x288783 */ if (!((t65552.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33946]"); structure_ref_error();} t65550 = t65552.value.structure_type27698->s18; /* x94046 stalin.sc:8369:285162 */ t65549 = p10430->a23306; f10411(t65549, t65550); /* x94055 stalin.sc:8370:285199 */ /* x94054 stalin.sc:8370:285205 */ /* x94053 stalin.sc:8370:285228 */ t65555 = a23308; /* x94052 stalin.sc:8370:285206 */ a38971 = t65555; /* x288553 */ /* x288552 */ t65556 = a38971; /* x288551 */ if (!((t65556.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33888]"); structure_ref_error();} t65554 = t65556.value.structure_type27698->s19; /* x94051 stalin.sc:8370:285200 */ t65553 = p10430->a23306; f10411(t65553, t65554); /* x94045 */ t65544 = p10430; p10431 = t65544; /* x94044 stalin.sc:8371:285237 */ /* x94043 stalin.sc:8371:285243 */ /* x94042 stalin.sc:8371:285265 */ t65547 = a23308; /* x94041 stalin.sc:8371:285244 */ a38917 = t65547; /* x288337 */ /* x288336 */ t65548 = a38917; /* x288335 */ if (!((t65548.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33834]"); structure_ref_error();} t65546 = t65548.value.structure_type27698->s20; /* x94040 stalin.sc:8371:285238 */ t65545 = p10431->a23306; p10411 = t65545; a23308 = t65546; goto h10411; l10846: /* x94115 */ /* x94062 */ /* x94060 */ t65509 = a23311; /* x94061 */ t65510 = q77; /* x94059 */ t65511.tag = EXTERNAL_SYMBOL_TYPE; t65511.value.external_symbol_type = t65509; t65512.tag = EXTERNAL_SYMBOL_TYPE; t65512.value.external_symbol_type = t65510; if (f26160(t65511, t65512)==FALSE_TYPE) goto l10848; /* x94065 */ /* x94064 */ /* x94063 stalin.sc:8372:285297 */ return; l10848: /* x94114 */ /* x94069 */ /* x94067 */ t65513 = a23311; /* x94068 */ t65514 = q78; /* x94066 */ t65515.tag = EXTERNAL_SYMBOL_TYPE; t65515.value.external_symbol_type = t65513; t65516.tag = EXTERNAL_SYMBOL_TYPE; t65516.value.external_symbol_type = t65514; if (f26160(t65515, t65516)==FALSE_TYPE) goto l10850; /* x94072 */ /* x94071 */ /* x94070 stalin.sc:8373:285326 */ return; l10850: /* x94113 */ /* x94076 */ /* x94074 */ t65517 = a23311; /* x94075 */ t65518 = q38; /* x94073 */ t65519.tag = EXTERNAL_SYMBOL_TYPE; t65519.value.external_symbol_type = t65517; t65520.tag = EXTERNAL_SYMBOL_TYPE; t65520.value.external_symbol_type = t65518; if (f26160(t65519, t65520)==FALSE_TYPE) goto l10852; /* x94079 */ /* x94078 */ /* x94077 stalin.sc:8374:285344 */ return; l10852: /* x94112 */ /* x94092 */ /* x94091 */ /* x94089 */ t65521 = a23311; /* x94090 */ t65522 = q36; /* x94088 */ t65523.tag = EXTERNAL_SYMBOL_TYPE; t65523.value.external_symbol_type = t65521; t65524.tag = EXTERNAL_SYMBOL_TYPE; t65524.value.external_symbol_type = t65522; if (!(f26160(t65523, t65524)==FALSE_TYPE)) goto l10853; /* x94085 */ /* x94083 */ t65525 = a23311; /* x94084 */ t65526 = q37; /* x94082 */ t65527.tag = EXTERNAL_SYMBOL_TYPE; t65527.value.external_symbol_type = t65525; t65528.tag = EXTERNAL_SYMBOL_TYPE; t65528.value.external_symbol_type = t65526; if (f26160(t65527, t65528)==FALSE_TYPE) goto l10854; l10853: /* x94107 */ /* x94106 */ t65530 = p10413; p10436 = t65530; /* x94105 */ /* x94104 stalin.sc:8376:285380 */ /* x94103 stalin.sc:8376:285386 */ /* x94102 stalin.sc:8376:285405 */ t65541 = a23308; /* x94101 stalin.sc:8376:285387 */ a38693 = t65541; /* x287441 */ /* x287440 */ t65542 = a38693; /* x287439 */ if (!((t65542.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33610]"); structure_ref_error();} t65540 = t65542.value.structure_type27698->s21; /* x94100 stalin.sc:8376:285381 */ t65539 = p10436->a23306; f10411(t65539, t65540); /* x94099 */ t65531 = p10436; p10437 = t65531; /* x94098 stalin.sc:8377:285414 */ /* x94097 stalin.sc:8377:285429 */ /* x94096 stalin.sc:8377:285451 */ t65537 = a23308; /* x94095 stalin.sc:8377:285430 */ a38575 = t65537; /* x286969 */ /* x286968 */ t65538 = a38575; /* x286967 */ if (!((t65538.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33492]"); structure_ref_error();} t65533 = t65538.value.structure_type27698->s22; /* x94094 stalin.sc:8377:285424 */ t65532 = p10437->a23306; /* x94093 stalin.sc:8377:285415 */ t65534.tag = NATIVE_PROCEDURE_TYPE17469; t65534.value.native_procedure_type17469 = t65532; t65535 = *((struct w49 *)(&t65533)); t65536 = (struct structure_type24753 *)NULL_TYPE; f27755(t65534, t65535, t65536); return; l10854: /* x94111 */ /* x94110 */ /* x94109 stalin.sc:8378:285466 */ /* x94108 stalin.sc:8378:285467 */ /* x296829 QobiScheme.sc:166:5314 */ /* x296828 QobiScheme.sc:166:5321 */ t65529 = "This shouldn\'t happen"; /* x296827 QobiScheme.sc:166:5315 */ stalin_panic(t65529);} /* ANNOTATE-ENVIRONMENT-EXPRESSIONS-WITH-THEIR-ENVIRONMENT![10405] */ void f10405(struct w49 a23304) {char *sfp10408; struct p10409 *a23306; /* LOOP */ struct w49 a23322; /* X */ struct w49 a36706; /* S */ struct w49 a36707; /* S */ struct w49 a36715; /* S */ struct w49 a36716; /* S */ struct w6852 a39235; /* S */ struct w49 a39496; /* S */ struct w49 a39768; /* S */ struct w6852 a39769; /* S */ struct w6852 a40105; /* S */ struct w49 a40332; /* S */ struct w49 a40333; /* S */ struct w49 a40334; /* S */ struct p10405 *t65590; struct w49 t65591; struct p10405 *t65592; struct p10409 *t65593; struct w49 t65594; struct p10405 *t65595; struct p10409 *t65596; struct w6852 t65597; struct w6852 t65598; struct w49 t65599; struct w49 t65600; struct w49 t65601; struct w49 t65602; struct w49 t65603; struct p10405 *t65604; struct p10405 *t65605; struct w6852 t65606; struct w9140 t65607; struct w49 t65608; struct w49 t65609; struct w49 t65610; struct w49 t65611; struct w49 t65612; char *t65613; char *t65614; struct w49 t65615; struct w49 t65616; char *t65617; char *t65618; struct w49 t65619; struct w49 t65620; char *t65621; char *t65622; struct w49 t65623; struct w49 t65624; struct w49 t65625; struct w49 t65626; struct w49 t65627; struct w49 t65628; struct w49 t65629; struct w6852 t65630; struct w6852 t65631; struct w49 t65632; struct w49 t65633; struct w49 t65634; struct w49 t65635; char *t65636; struct w6852 t65637; struct w6852 t65638; struct w49 t65639; struct w49 t65640; char *t65641; struct p10405 *e10405; struct p10409 *e10409; struct p10405 *p10406; struct p10405 *p10408; struct p10405 *p10409; struct p10409 *p10410; struct p10405 *p10443; struct p10405 *p10444; e10405 = (struct p10405 *)alloca(sizeof(struct p10405)); if (e10405==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e10405->a23304 = a23304; /* x94260 */ /* x94259 stalin.sc:8335:283900 */ /* x94177 stalin.sc:8335:283908 */ /* x94173 stalin.sc:8335:283913 */ t65601 = e10405->a23304; /* x94176 stalin.sc:8335:283915 */ /* x94175 stalin.sc:8335:283933 */ t65603 = e10405->a23304; /* x94174 stalin.sc:8335:283916 */ t65602 = f8966(t65603); /* x269776 stalin.sc:8335:283909 */ /* EQ: dispatching general to general */ if (!((t65601.tag)==(t65602.tag))) goto l10862; switch (t65601.tag) {case FIXNUM_TYPE: if (!((t65601.value.fixnum_type)==(t65602.value.fixnum_type))) goto l10862; break; case FLONUM_TYPE: if (!((t65601.value.flonum_type)==(t65602.value.flonum_type))) goto l10862; break; case INPUT_PORT_TYPE: if (!((t65601.value.input_port_type)==(t65602.value.input_port_type))) goto l10862; break; case OUTPUT_PORT_TYPE: if (!((t65601.value.output_port_type)==(t65602.value.output_port_type))) goto l10862; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t65601.value.native_procedure_type15963)==(t65602.value.native_procedure_type15963))) goto l10862; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t65601.value.native_procedure_type19067)==(t65602.value.native_procedure_type19067))) goto l10862; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t65601.value.native_procedure_type19068)==(t65602.value.native_procedure_type19068))) goto l10862; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t65601.value.native_procedure_type22459)==(t65602.value.native_procedure_type22459))) goto l10862; break; case STRUCTURE_TYPE24753: if (!((t65601.value.structure_type24753)==(t65602.value.structure_type24753))) goto l10862; break; case STRUCTURE_TYPE24757: if (!((t65601.value.structure_type24757)==(t65602.value.structure_type24757))) goto l10862; break; case STRUCTURE_TYPE27501: if (!((t65601.value.structure_type27501)==(t65602.value.structure_type27501))) goto l10862; break; case STRUCTURE_TYPE27510: if (!((t65601.value.structure_type27510)==(t65602.value.structure_type27510))) goto l10862; break; case STRUCTURE_TYPE27621: if (!((t65601.value.structure_type27621)==(t65602.value.structure_type27621))) goto l10862; break; case STRUCTURE_TYPE27650: if (!((t65601.value.structure_type27650)==(t65602.value.structure_type27650))) goto l10862; break; case STRUCTURE_TYPE27669: if (!((t65601.value.structure_type27669)==(t65602.value.structure_type27669))) goto l10862; break; case STRUCTURE_TYPE27673: if (!((t65601.value.structure_type27673)==(t65602.value.structure_type27673))) goto l10862; break; case STRUCTURE_TYPE27692: if (!((t65601.value.structure_type27692)==(t65602.value.structure_type27692))) goto l10862; break; case STRUCTURE_TYPE27694: if (!((t65601.value.structure_type27694)==(t65602.value.structure_type27694))) goto l10862; break; case STRUCTURE_TYPE27698: if (!((t65601.value.structure_type27698)==(t65602.value.structure_type27698))) goto l10862; break; case STRUCTURE_TYPE27745: if (!((t65601.value.structure_type27745)==(t65602.value.structure_type27745))) goto l10862; break; case STRUCTURE_TYPE27747: if (!((t65601.value.structure_type27747)==(t65602.value.structure_type27747))) goto l10862; break; case STRUCTURE_TYPE27750: if (!((t65601.value.structure_type27750)==(t65602.value.structure_type27750))) goto l10862; break; case STRUCTURE_TYPE27753: if (!((t65601.value.structure_type27753)==(t65602.value.structure_type27753))) goto l10862; break; case STRUCTURE_TYPE27756: if (!((t65601.value.structure_type27756)==(t65602.value.structure_type27756))) goto l10862; break; case STRUCTURE_TYPE27761: if (!((t65601.value.structure_type27761)==(t65602.value.structure_type27761))) goto l10862; break; case STRUCTURE_TYPE27769: if (!((t65601.value.structure_type27769)==(t65602.value.structure_type27769))) goto l10862; break; case STRUCTURE_TYPE27776: if (!((t65601.value.structure_type27776)==(t65602.value.structure_type27776))) goto l10862; break; case STRUCTURE_TYPE27779: if (!((t65601.value.structure_type27779)==(t65602.value.structure_type27779))) goto l10862; break; case STRUCTURE_TYPE27858: if (!((t65601.value.structure_type27858)==(t65602.value.structure_type27858))) goto l10862; break; case STRING_TYPE: if (!((t65601.value.string_type)==(t65602.value.string_type))) goto l10862; break; case HEADED_VECTOR_TYPE27896: if (!((t65601.value.headed_vector_type27896)==(t65602.value.headed_vector_type27896))) goto l10862; break; case EXTERNAL_SYMBOL_TYPE: if (!((t65601.value.external_symbol_type)==(t65602.value.external_symbol_type))) goto l10862; break; case STRUCTURE_TYPE27908: if (!((t65601.value.structure_type27908)==(t65602.value.structure_type27908))) goto l10862; break; default:;} /* x94179 */ /* x94178 */ goto l10863; l10862: /* x94258 */ /* x94257 */ t65604 = e10405; p10443 = t65604; /* x94256 */ /* x94255 stalin.sc:8336:283939 */ /* x94248 stalin.sc:8336:283947 */ /* x94245 stalin.sc:8336:283952 */ /* x94244 stalin.sc:8336:283976 */ /* x94243 stalin.sc:8336:284000 */ t65639 = p10443->a23304; /* x94242 stalin.sc:8336:283977 */ a36716 = t65639; /* x279533 */ /* x279532 */ t65640 = a36716; /* x279531 */ if (!((t65640.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31633]"); structure_ref_error();} t65637 = t65640.value.structure_type27694->s1; /* x94241 stalin.sc:8336:283953 */ a40105 = t65637; /* x293089 */ /* x293088 */ t65638 = a40105; /* x293087 */ if (!((t65638.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35022]"); structure_ref_error();} t65635 = t65638.value.structure_type27698->s9; /* x94247 stalin.sc:8337:284012 */ /* x94246 stalin.sc:8337:284013 */ /* x277203 stalin.sc:323:8604 */ t65636 = q35; /* x269772 stalin.sc:8336:283948 */ if (!(((t65635.tag)==EXTERNAL_SYMBOL_TYPE)&&((t65635.value.external_symbol_type)==t65636))) goto l10870; /* x94250 */ /* x94249 */ goto l10871; l10870: /* x94254 */ /* x94253 */ /* x94252 stalin.sc:8338:284030 */ /* x94251 stalin.sc:8338:284031 */ /* x296841 QobiScheme.sc:166:5314 */ /* x296840 QobiScheme.sc:166:5321 */ t65641 = "This shouldn\'t happen"; /* x296839 QobiScheme.sc:166:5315 */ stalin_panic(t65641); l10871: /* x94239 */ t65605 = p10443; p10444 = t65605; /* x94238 stalin.sc:8339:284043 */ /* x94183 stalin.sc:8340:284075 */ /* x94182 stalin.sc:8340:284099 */ t65610 = p10444->a23304; /* x94181 stalin.sc:8340:284076 */ a36706 = t65610; /* x279493 */ /* x279492 */ t65611 = a36706; /* x279491 */ if (!((t65611.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31623]"); structure_ref_error();} t65606 = t65611.value.structure_type27694->s1; /* x94237 stalin.sc:8341:284105 */ /* x94236 stalin.sc:8341:284119 */ /* x94235 stalin.sc:8342:284142 */ /* x94234 stalin.sc:8342:284166 */ /* x94233 stalin.sc:8342:284184 */ t65634 = p10444->a23304; /* x94232 stalin.sc:8342:284167 */ t65632 = f8966(t65634); /* x94231 stalin.sc:8342:284143 */ a36707 = t65632; /* x279497 */ /* x279496 */ t65633 = a36707; /* x279495 */ if (!((t65633.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31624]"); structure_ref_error();} t65630 = t65633.value.structure_type27694->s1; /* x94230 stalin.sc:8341:284120 */ a39769 = t65630; /* x291745 */ /* x291744 */ t65631 = a39769; /* x291743 */ if (!((t65631.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34686]"); structure_ref_error();} t65612 = t65631.value.structure_type27698->s11; /* x94229 */ /* x94228 */ /* x94227 */ /* x94226 */ /* x94225 */ /* x94224 */ /* x94223 */ /* x94185 */ /* x94184 stalin.sc:8341:284110 */ a23322 = t65612; h10447: /* x94222 stalin.sc:8343:284195 */ /* x94213 stalin.sc:8343:284199 */ /* x94212 stalin.sc:8343:284203 */ /* x94210 stalin.sc:8343:284208 */ /* x94209 stalin.sc:8343:284225 */ t65615 = a23322; /* x94208 stalin.sc:8343:284209 */ a40334 = t65615; /* x294005 */ /* x294004 */ t65616 = a40334; /* x294003 */ if (!((t65616.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35251]"); structure_ref_error();} t65613 = t65616.value.structure_type27698->s0; /* x94211 stalin.sc:8343:284228 */ t65614 = q39; /* x269773 stalin.sc:8343:284204 */ if (t65613==t65614) goto l10864; /* x94204 */ /* x94203 stalin.sc:8344:284242 */ /* x94201 stalin.sc:8344:284247 */ /* x94200 stalin.sc:8344:284264 */ t65619 = a23322; /* x94199 stalin.sc:8344:284248 */ a40333 = t65619; /* x294001 */ /* x294000 */ t65620 = a40333; /* x293999 */ if (!((t65620.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35250]"); structure_ref_error();} t65617 = t65620.value.structure_type27698->s0; /* x94202 stalin.sc:8344:284267 */ t65618 = q40; /* x269774 stalin.sc:8344:284243 */ if (t65617==t65618) goto l10864; /* x94195 */ /* x94193 stalin.sc:8345:284296 */ /* x94192 stalin.sc:8345:284313 */ t65623 = a23322; /* x94191 stalin.sc:8345:284297 */ a40332 = t65623; /* x293997 */ /* x293996 */ t65624 = a40332; /* x293995 */ if (!((t65624.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35249]"); structure_ref_error();} t65621 = t65624.value.structure_type27698->s0; /* x94194 stalin.sc:8345:284316 */ t65622 = q41; /* x269775 stalin.sc:8345:284292 */ if (!(t65621==t65622)) goto l10865; l10864: /* x94216 stalin.sc:8346:284343 */ /* x94215 stalin.sc:8346:284374 */ t65628 = a23322; /* x94214 stalin.sc:8346:284344 */ a39496 = t65628; /* x290653 */ /* x290652 */ t65629 = a39496; /* x290651 */ if (!((t65629.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34413]"); structure_ref_error();} t65607 = t65629.value.structure_type27698->s13; goto l10866; l10865: /* x94221 stalin.sc:8347:284378 */ /* x94220 stalin.sc:8347:284384 */ /* x94219 stalin.sc:8347:284403 */ t65626 = a23322; /* x94218 stalin.sc:8347:284385 */ a39768 = t65626; /* x291741 */ /* x291740 */ t65627 = a39768; /* x291739 */ if (!((t65627.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34685]"); structure_ref_error();} t65625 = t65627.value.structure_type27698->s11; /* x94217 stalin.sc:8347:284379 */ a23322 = t65625; goto h10447; l10866: /* x94180 stalin.sc:8339:284044 */ t65608 = *((struct w49 *)(&t65606)); t65609 = *((struct w49 *)(&t65607)); f5560(t65608, t65609); l10863: /* x94171 */ t65590 = e10405; p10406 = t65590; /* x94170 stalin.sc:8348:284412 */ /* x93898 stalin.sc:8348:284420 */ /* x93897 stalin.sc:8348:284427 */ t65591 = p10406->a23304; /* x93896 stalin.sc:8348:284421 */ if (f8918(t65591)==FALSE_TYPE) goto l10860; /* x93900 */ /* x93899 */ return; l10860: /* x94169 */ /* x94168 */ t65592 = p10406; p10408 = t65592; sfp10408 = fp10408; /* x94167 stalin.sc:8349:284432 */ /* x94166 stalin.sc:8349:284446 */ /* x94165 stalin.sc:8349:284463 */ /* x94164 stalin.sc:8349:284487 */ t65599 = p10408->a23304; /* x94163 stalin.sc:8349:284464 */ a36715 = t65599; /* x279529 */ /* x279528 */ t65600 = a36715; /* x279527 */ if (!((t65600.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31632]"); structure_ref_error();} t65597 = t65600.value.structure_type27694->s1; /* x94162 stalin.sc:8349:284447 */ a39235 = t65597; /* x289609 */ /* x289608 */ t65598 = a39235; /* x289607 */ if (!((t65598.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34152]"); structure_ref_error();} t65594 = t65598.value.structure_type27698->s15; /* x94161 */ /* x94160 */ /* x94159 */ /* x94158 */ t65595 = p10408; p10409 = t65595; if ((fp10408+sizeof(struct p10409))>(&((region10408->data)[region_size10408]))) {struct region10408 *region; unsigned region_size = REGION_SIZE10408; if (sizeof(struct p10409)>region_size) region_size = sizeof(struct p10409); region = (struct region10408 *)GC_malloc_uncollectable(sizeof(struct region10408)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside ANNOTATE-ENVIRONMENT-EXPRESSIONS-WITH-THEIR-ENVIRONMENT! 10408]"); out_of_memory_error();} region->region = region10408; region->region_size = region_size10408; region_size10408 = region_size; region10408 = region; fp10408 = &((region->data)[0]); ALIGN(fp10408);} e10409 = (struct p10409 *)fp10408; fp10408 += sizeof(struct p10409)+((4-(sizeof(struct p10409)%4))&3); e10409->p10405 = p10409; e10409->a23306 = a23306; /* x94157 */ /* x94156 */ /* x94155 */ e10409->a23306 = e10409; /* x93902 */ t65596 = e10409; p10410 = t65596; /* x93901 stalin.sc:8349:284437 */ t65593 = p10410->a23306; f10411(t65593, t65594); while ((sfp10408<(&((region10408->data)[0])))||(sfp10408>(&((region10408->data)[region_size10408])))) {struct region10408 *region; region = region10408; region_size10408 = region10408->region_size; region10408 = region10408->region; GC_free(region);} fp10408 = sfp10408; return;} /* [inside ANNOTATE-VARIABLES-WITH-THEIR-ENVIRONMENTS! 10404] */ void f10404(struct w49 a23303) {struct w49 t65642; char *t65643; struct w49 t65644; /* x93885 stalin.sc:8327:283565 */ /* x93882 stalin.sc:8327:283592 */ t65642 = a23303; /* x93884 stalin.sc:8327:283594 */ /* x93883 stalin.sc:8327:283595 */ /* x277501 stalin.sc:323:8604 */ t65643 = q35; /* x93881 stalin.sc:8327:283566 */ t65644.tag = EXTERNAL_SYMBOL_TYPE; t65644.value.external_symbol_type = t65643; f6582(t65642, t65644); return;} /* ANNOTATE-VARIABLES-WITH-THEIR-ENVIRONMENTS![10399] */ void f10399(void) {struct w21193 t65645; struct w228345 t65646; struct w49 t65647; struct structure_type24753 *t65648; char *t65649; struct w21193 t65650; struct w36108 t65651; struct w49 t65652; struct structure_type24753 *t65653; struct w21193 t65654; struct w36108 t65655; struct w49 t65656; struct structure_type24753 *t65657; /* x93893 */ /* x93888 stalin.sc:8327:283543 */ /* x93887 stalin.sc:8327:283610 */ t65650 = a1633; /* x93886 stalin.sc:8327:283553 */ /* x93880 stalin.sc:8327:283544 */ t65651.tag = NATIVE_PROCEDURE_TYPE16677; t65652 = *((struct w49 *)(&t65650)); t65653 = (struct structure_type24753 *)NULL_TYPE; f27755(t65651, t65652, t65653); /* x93892 stalin.sc:8328:283617 */ /* x93891 stalin.sc:8328:283682 */ t65654 = a1594; /* x93890 stalin.sc:8328:283627 */ /* x93889 stalin.sc:8328:283618 */ t65655.tag = NATIVE_PROCEDURE_TYPE7125; t65656 = *((struct w49 *)(&t65654)); t65657 = (struct structure_type24753 *)NULL_TYPE; f27755(t65655, t65656, t65657); /* x93879 */ /* x93878 stalin.sc:8329:283689 */ /* x93871 stalin.sc:8329:283695 */ /* x93870 stalin.sc:8329:283759 */ t65645 = a1633; /* x93869 stalin.sc:8329:283701 */ /* x93861 stalin.sc:8329:283696 */ t65646.tag = NATIVE_PROCEDURE_TYPE16680; t65647 = *((struct w49 *)(&t65645)); t65648 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t65646, t65647, t65648).tag)==FALSE_TYPE) goto l10873; /* x93875 */ /* x93874 */ /* x93873 stalin.sc:8330:283767 */ /* x93872 stalin.sc:8330:283768 */ /* x297085 QobiScheme.sc:166:5314 */ /* x297084 QobiScheme.sc:166:5321 */ t65649 = "This shouldn\'t happen"; /* x297083 QobiScheme.sc:166:5315 */ stalin_panic(t65649); l10873: /* x93877 stalin.sc:8329:283689 */ /* x93876 stalin.sc:8329:283689 */ return;} /* [inside ANNOTATE-ENVIRONMENT-VARIABLES-WITH-THEIR-ENVIRONMENT! 10395] */ void f10395(struct p10394 *p10395, struct w49 a23298) {struct w49 a36951; /* S */ struct p10394 *t65658; struct w49 t65659; struct w49 t65660; struct w49 t65661; char *t65662; struct w49 t65663; struct w49 t65664; char *t65665; struct p10394 *p10396; /* x93853 */ /* x93852 stalin.sc:8322:283365 */ /* x93845 stalin.sc:8322:283373 */ /* x93842 stalin.sc:8322:283378 */ /* x93841 stalin.sc:8322:283400 */ t65663 = a23298; /* x93840 stalin.sc:8322:283379 */ a36951 = t65663; /* x280473 */ /* x280472 */ t65664 = a36951; /* x280471 */ if (!((t65664.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31868]"); structure_ref_error();} t65661 = t65664.value.structure_type27692->s8; /* x93844 stalin.sc:8322:283403 */ /* x93843 stalin.sc:8322:283404 */ /* x277273 stalin.sc:323:8604 */ t65662 = q35; /* x269781 stalin.sc:8322:283374 */ if (!(((t65661.tag)==EXTERNAL_SYMBOL_TYPE)&&((t65661.value.external_symbol_type)==t65662))) goto l10875; /* x93847 */ /* x93846 */ goto l10876; l10875: /* x93851 */ /* x93850 */ /* x93849 stalin.sc:8322:283418 */ /* x93848 stalin.sc:8322:283419 */ /* x296693 QobiScheme.sc:166:5314 */ /* x296692 QobiScheme.sc:166:5321 */ t65665 = "This shouldn\'t happen"; /* x296691 QobiScheme.sc:166:5315 */ stalin_panic(t65665); l10876: /* x93838 */ t65658 = p10395; p10396 = t65658; /* x93837 stalin.sc:8323:283434 */ /* x93835 stalin.sc:8323:283461 */ t65659 = a23298; /* x93836 stalin.sc:8323:283463 */ t65660 = p10396->a23297; /* x93834 stalin.sc:8323:283435 */ f6582(t65659, t65660); return;} /* ANNOTATE-ENVIRONMENT-VARIABLES-WITH-THEIR-ENVIRONMENT![10394] */ void f10394(struct w49 a23297) {struct p10394 *t65666; struct structure_type24753 *t65667; struct w36108 t65668; struct w49 t65669; struct structure_type24753 *t65670; struct w49 t65671; struct p10394 *e10394; e10394 = (struct p10394 *)alloca(sizeof(struct p10394)); if (e10394==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e10394->a23297 = a23297; /* x93858 stalin.sc:8321:283338 */ /* x93857 stalin.sc:8324:283471 */ /* x93856 stalin.sc:8324:283482 */ t65671 = e10394->a23297; /* x93855 stalin.sc:8324:283472 */ t65667 = f8987(t65671); /* x93854 */ t65666 = e10394; /* x93833 stalin.sc:8321:283339 */ t65668.tag = NATIVE_PROCEDURE_TYPE16676; t65668.value.native_procedure_type16676 = t65666; /* MOVE: branching squeezed to general */ if (t65667>=((struct structure_type24753 *)VALUE_OFFSET)) {t65669.tag = STRUCTURE_TYPE24753; t65669.value.structure_type24753 = t65667;} else t65669.tag = (unsigned)t65667; t65670 = (struct structure_type24753 *)NULL_TYPE; f27755(t65668, t65669, t65670); return;} /* [inside IN-LINE-FIRST-ORDER-CALLS-TO-PRIMITIVE-PROCEDURES! 10384] */ void f10384(struct w49 a23292) {struct w49 a36982; /* S */ struct w49 a38919; /* S */ struct w49 a38973; /* S */ struct w49 a39031; /* S */ struct w49 a39185; /* S */ struct w49 a39795; /* S */ struct w49 a39796; /* S */ struct w49 a39797; /* S */ struct w49 a39798; /* S */ struct w49 a39799; /* S */ struct w49 a39800; /* S */ struct w49 a39801; /* S */ struct w49 a39821; /* S */ struct w49 a39822; /* S */ struct w49 a40341; /* S */ struct w49 a40342; /* S */ struct w49 a40343; /* S */ struct w49 a40344; /* S */ struct w49 a40345; /* S */ unsigned t65672; struct w49 t65673; struct structure_type27698 *t65674; struct w6852 t65675; struct w6852 t65676; struct w6852 t65677; struct w6852 t65678; char *t65679; char *t65680; struct w49 t65681; struct w49 t65682; struct w49 t65683; struct w49 t65684; char *t65685; char *t65686; struct w49 t65687; struct w49 t65688; struct w49 t65689; struct w49 t65690; char *t65691; char *t65692; struct w49 t65693; struct w49 t65694; struct w49 t65695; struct w49 t65696; struct w49 t65697; struct w49 t65698; struct w49 t65699; struct w49 t65700; struct w49 t65701; struct w49 t65702; char *t65703; char *t65704; struct w49 t65705; struct w49 t65706; struct w49 t65707; struct w49 t65708; struct w49 t65709; struct w49 t65710; struct w49 t65711; struct w49 t65712; struct w49 t65713; struct w49 t65714; char *t65715; char *t65716; struct w49 t65717; struct w49 t65718; struct w49 t65719; struct w49 t65720; struct w49 t65721; struct w49 t65722; struct w49 t65723; struct w49 t65724; struct w49 t65725; struct w49 t65726; char *t65727; struct w49 t65728; struct w49 t65729; char *t65730; struct w49 t65731; struct w49 t65732; struct w49 t65733; struct w49 t65734; struct structure_type24753 *t65735; struct w49 t65736; struct w49 t65737; struct w49 t65738; struct w49 t65739; struct w49 t65740; /* x93713 stalin.sc:8295:282259 */ /* x93698 stalin.sc:8308:282895 */ /* x93697 stalin.sc:8308:282914 */ t65728 = a23292; /* x93696 stalin.sc:8308:282896 */ a39822 = t65728; /* x291957 */ /* x291956 */ t65729 = a39822; /* x291955 */ if (!((t65729.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34739]"); structure_ref_error();} t65673 = t65729.value.structure_type27698->s11; /* x93712 stalin.sc:8309:282922 */ /* x93700 stalin.sc:8309:282941 */ t65730 = q77; /* x93701 stalin.sc:8310:282965 */ t65731 = a23292; /* x93711 stalin.sc:8311:282970 */ /* x93710 stalin.sc:8311:282975 */ /* x93708 stalin.sc:8311:282981 */ /* x93707 stalin.sc:8311:282996 */ /* x93706 stalin.sc:8311:283017 */ t65739 = a23292; /* x93705 stalin.sc:8311:282997 */ a39185 = t65739; /* x289409 */ /* x289408 */ t65740 = a39185; /* x289407 */ if (!((t65740.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34102]"); structure_ref_error();} t65737 = t65740.value.structure_type27698->s16; /* x93704 stalin.sc:8311:282982 */ a36982 = t65737; /* x280597 */ /* x280596 */ t65738 = a36982; /* x280595 */ if (!((t65738.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31899]"); structure_ref_error();} t65734 = t65738.value.structure_type27692->s7; /* x93709 stalin.sc:8312:283028 */ t65735 = a1389; /* x93703 stalin.sc:8311:282976 */ t65736.tag = STRUCTURE_TYPE24753; t65736.value.structure_type24753 = t65735; t65733 = f26354(t65734, t65736); /* x269786 stalin.sc:8311:282971 */ if (!((t65733.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 8311, 282970); structure_ref_error();} t65732 = t65733.value.structure_type24753->s1; /* x93699 stalin.sc:8309:282923 */ t65674 = f6872(t65730, t65731, t65732); /* x93695 stalin.sc:8295:282260 */ /* x93621 stalin.sc:8295:282267 */ /* x93620 stalin.sc:8295:282271 */ /* x93618 stalin.sc:8295:282276 */ /* x93617 stalin.sc:8295:282293 */ /* x93616 stalin.sc:8295:282312 */ t65683 = a23292; /* x93615 stalin.sc:8295:282294 */ a39821 = t65683; /* x291953 */ /* x291952 */ t65684 = a39821; /* x291951 */ if (!((t65684.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34738]"); structure_ref_error();} t65681 = t65684.value.structure_type27698->s11; /* x93614 stalin.sc:8295:282277 */ a40345 = t65681; /* x294049 */ /* x294048 */ t65682 = a40345; /* x294047 */ if (!((t65682.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35262]"); structure_ref_error();} t65679 = t65682.value.structure_type27698->s0; /* x93619 stalin.sc:8295:282316 */ t65680 = q36; /* x269793 stalin.sc:8295:282272 */ if (t65679==t65680) goto l10877; /* x93610 */ /* x93608 stalin.sc:8296:282330 */ /* x93607 stalin.sc:8296:282347 */ /* x93606 stalin.sc:8296:282366 */ t65689 = a23292; /* x93605 stalin.sc:8296:282348 */ a39801 = t65689; /* x291873 */ /* x291872 */ t65690 = a39801; /* x291871 */ if (!((t65690.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34718]"); structure_ref_error();} t65687 = t65690.value.structure_type27698->s11; /* x93604 stalin.sc:8296:282331 */ a40344 = t65687; /* x294045 */ /* x294044 */ t65688 = a40344; /* x294043 */ if (!((t65688.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35261]"); structure_ref_error();} t65685 = t65688.value.structure_type27698->s0; /* x93609 stalin.sc:8296:282370 */ t65686 = q37; /* x269794 stalin.sc:8296:282326 */ if (!(t65685==t65686)) goto l10878; l10877: /* x93624 */ /* x93623 */ /* x93622 stalin.sc:8297:282393 */ t65672 = NATIVE_PROCEDURE_TYPE7924; goto l10879; l10878: /* x93694 */ /* x93642 stalin.sc:8298:282422 */ /* x93632 stalin.sc:8298:282427 */ /* x93630 stalin.sc:8298:282432 */ /* x93629 stalin.sc:8298:282449 */ /* x93628 stalin.sc:8298:282468 */ t65695 = a23292; /* x93627 stalin.sc:8298:282450 */ a39800 = t65695; /* x291869 */ /* x291868 */ t65696 = a39800; /* x291867 */ if (!((t65696.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34717]"); structure_ref_error();} t65693 = t65696.value.structure_type27698->s11; /* x93626 stalin.sc:8298:282433 */ a40343 = t65693; /* x294041 */ /* x294040 */ t65694 = a40343; /* x294039 */ if (!((t65694.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35260]"); structure_ref_error();} t65691 = t65694.value.structure_type27698->s0; /* x93631 stalin.sc:8298:282472 */ t65692 = q43; /* x269792 stalin.sc:8298:282428 */ if (!(t65691==t65692)) goto l10882; /* x93640 */ /* x93634 stalin.sc:8299:282485 */ t65697 = a23292; /* x93639 stalin.sc:8299:282487 */ /* x93638 stalin.sc:8299:282510 */ /* x93637 stalin.sc:8299:282529 */ t65701 = a23292; /* x93636 stalin.sc:8299:282511 */ a39795 = t65701; /* x291849 */ /* x291848 */ t65702 = a39795; /* x291847 */ if (!((t65702.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34712]"); structure_ref_error();} t65699 = t65702.value.structure_type27698->s11; /* x93635 stalin.sc:8299:282488 */ a39031 = t65699; /* x288793 */ /* x288792 */ t65700 = a39031; /* x288791 */ if (!((t65700.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33948]"); structure_ref_error();} t65698 = t65700.value.structure_type27698->s18; /* x269791 stalin.sc:8299:282481 */ /* EQ: dispatching general to general */ if (!((t65697.tag)==(t65698.tag))) goto l10882; switch (t65697.tag) {case FIXNUM_TYPE: if (!((t65697.value.fixnum_type)==(t65698.value.fixnum_type))) goto l10882; break; case FLONUM_TYPE: if (!((t65697.value.flonum_type)==(t65698.value.flonum_type))) goto l10882; break; case INPUT_PORT_TYPE: if (!((t65697.value.input_port_type)==(t65698.value.input_port_type))) goto l10882; break; case OUTPUT_PORT_TYPE: if (!((t65697.value.output_port_type)==(t65698.value.output_port_type))) goto l10882; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t65697.value.native_procedure_type15963)==(t65698.value.native_procedure_type15963))) goto l10882; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t65697.value.native_procedure_type19067)==(t65698.value.native_procedure_type19067))) goto l10882; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t65697.value.native_procedure_type19068)==(t65698.value.native_procedure_type19068))) goto l10882; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t65697.value.native_procedure_type22459)==(t65698.value.native_procedure_type22459))) goto l10882; break; case STRUCTURE_TYPE24753: if (!((t65697.value.structure_type24753)==(t65698.value.structure_type24753))) goto l10882; break; case STRUCTURE_TYPE24757: if (!((t65697.value.structure_type24757)==(t65698.value.structure_type24757))) goto l10882; break; case STRUCTURE_TYPE27501: if (!((t65697.value.structure_type27501)==(t65698.value.structure_type27501))) goto l10882; break; case STRUCTURE_TYPE27510: if (!((t65697.value.structure_type27510)==(t65698.value.structure_type27510))) goto l10882; break; case STRUCTURE_TYPE27621: if (!((t65697.value.structure_type27621)==(t65698.value.structure_type27621))) goto l10882; break; case STRUCTURE_TYPE27650: if (!((t65697.value.structure_type27650)==(t65698.value.structure_type27650))) goto l10882; break; case STRUCTURE_TYPE27669: if (!((t65697.value.structure_type27669)==(t65698.value.structure_type27669))) goto l10882; break; case STRUCTURE_TYPE27673: if (!((t65697.value.structure_type27673)==(t65698.value.structure_type27673))) goto l10882; break; case STRUCTURE_TYPE27692: if (!((t65697.value.structure_type27692)==(t65698.value.structure_type27692))) goto l10882; break; case STRUCTURE_TYPE27694: if (!((t65697.value.structure_type27694)==(t65698.value.structure_type27694))) goto l10882; break; case STRUCTURE_TYPE27698: if (!((t65697.value.structure_type27698)==(t65698.value.structure_type27698))) goto l10882; break; case STRUCTURE_TYPE27745: if (!((t65697.value.structure_type27745)==(t65698.value.structure_type27745))) goto l10882; break; case STRUCTURE_TYPE27747: if (!((t65697.value.structure_type27747)==(t65698.value.structure_type27747))) goto l10882; break; case STRUCTURE_TYPE27750: if (!((t65697.value.structure_type27750)==(t65698.value.structure_type27750))) goto l10882; break; case STRUCTURE_TYPE27753: if (!((t65697.value.structure_type27753)==(t65698.value.structure_type27753))) goto l10882; break; case STRUCTURE_TYPE27756: if (!((t65697.value.structure_type27756)==(t65698.value.structure_type27756))) goto l10882; break; case STRUCTURE_TYPE27761: if (!((t65697.value.structure_type27761)==(t65698.value.structure_type27761))) goto l10882; break; case STRUCTURE_TYPE27769: if (!((t65697.value.structure_type27769)==(t65698.value.structure_type27769))) goto l10882; break; case STRUCTURE_TYPE27776: if (!((t65697.value.structure_type27776)==(t65698.value.structure_type27776))) goto l10882; break; case STRUCTURE_TYPE27779: if (!((t65697.value.structure_type27779)==(t65698.value.structure_type27779))) goto l10882; break; case STRUCTURE_TYPE27858: if (!((t65697.value.structure_type27858)==(t65698.value.structure_type27858))) goto l10882; break; case STRING_TYPE: if (!((t65697.value.string_type)==(t65698.value.string_type))) goto l10882; break; case HEADED_VECTOR_TYPE27896: if (!((t65697.value.headed_vector_type27896)==(t65698.value.headed_vector_type27896))) goto l10882; break; case EXTERNAL_SYMBOL_TYPE: if (!((t65697.value.external_symbol_type)==(t65698.value.external_symbol_type))) goto l10882; break; case STRUCTURE_TYPE27908: if (!((t65697.value.structure_type27908)==(t65698.value.structure_type27908))) goto l10882; break; default:;} /* x93645 */ /* x93644 */ /* x93643 stalin.sc:8300:282540 */ t65672 = NATIVE_PROCEDURE_TYPE7930; goto l10883; l10882: /* x93693 */ /* x93663 stalin.sc:8301:282573 */ /* x93653 stalin.sc:8301:282578 */ /* x93651 stalin.sc:8301:282583 */ /* x93650 stalin.sc:8301:282600 */ /* x93649 stalin.sc:8301:282619 */ t65707 = a23292; /* x93648 stalin.sc:8301:282601 */ a39799 = t65707; /* x291865 */ /* x291864 */ t65708 = a39799; /* x291863 */ if (!((t65708.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34716]"); structure_ref_error();} t65705 = t65708.value.structure_type27698->s11; /* x93647 stalin.sc:8301:282584 */ a40342 = t65705; /* x294037 */ /* x294036 */ t65706 = a40342; /* x294035 */ if (!((t65706.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35259]"); structure_ref_error();} t65703 = t65706.value.structure_type27698->s0; /* x93652 stalin.sc:8301:282623 */ t65704 = q43; /* x269790 stalin.sc:8301:282579 */ if (!(t65703==t65704)) goto l10886; /* x93661 */ /* x93655 stalin.sc:8302:282636 */ t65709 = a23292; /* x93660 stalin.sc:8302:282638 */ /* x93659 stalin.sc:8302:282661 */ /* x93658 stalin.sc:8302:282680 */ t65713 = a23292; /* x93657 stalin.sc:8302:282662 */ a39796 = t65713; /* x291853 */ /* x291852 */ t65714 = a39796; /* x291851 */ if (!((t65714.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34713]"); structure_ref_error();} t65711 = t65714.value.structure_type27698->s11; /* x93656 stalin.sc:8302:282639 */ a38973 = t65711; /* x288561 */ /* x288560 */ t65712 = a38973; /* x288559 */ if (!((t65712.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33890]"); structure_ref_error();} t65710 = t65712.value.structure_type27698->s19; /* x269789 stalin.sc:8302:282632 */ /* EQ: dispatching general to general */ if (!((t65709.tag)==(t65710.tag))) goto l10886; switch (t65709.tag) {case FIXNUM_TYPE: if (!((t65709.value.fixnum_type)==(t65710.value.fixnum_type))) goto l10886; break; case FLONUM_TYPE: if (!((t65709.value.flonum_type)==(t65710.value.flonum_type))) goto l10886; break; case INPUT_PORT_TYPE: if (!((t65709.value.input_port_type)==(t65710.value.input_port_type))) goto l10886; break; case OUTPUT_PORT_TYPE: if (!((t65709.value.output_port_type)==(t65710.value.output_port_type))) goto l10886; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t65709.value.native_procedure_type15963)==(t65710.value.native_procedure_type15963))) goto l10886; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t65709.value.native_procedure_type19067)==(t65710.value.native_procedure_type19067))) goto l10886; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t65709.value.native_procedure_type19068)==(t65710.value.native_procedure_type19068))) goto l10886; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t65709.value.native_procedure_type22459)==(t65710.value.native_procedure_type22459))) goto l10886; break; case STRUCTURE_TYPE24753: if (!((t65709.value.structure_type24753)==(t65710.value.structure_type24753))) goto l10886; break; case STRUCTURE_TYPE24757: if (!((t65709.value.structure_type24757)==(t65710.value.structure_type24757))) goto l10886; break; case STRUCTURE_TYPE27501: if (!((t65709.value.structure_type27501)==(t65710.value.structure_type27501))) goto l10886; break; case STRUCTURE_TYPE27510: if (!((t65709.value.structure_type27510)==(t65710.value.structure_type27510))) goto l10886; break; case STRUCTURE_TYPE27621: if (!((t65709.value.structure_type27621)==(t65710.value.structure_type27621))) goto l10886; break; case STRUCTURE_TYPE27650: if (!((t65709.value.structure_type27650)==(t65710.value.structure_type27650))) goto l10886; break; case STRUCTURE_TYPE27669: if (!((t65709.value.structure_type27669)==(t65710.value.structure_type27669))) goto l10886; break; case STRUCTURE_TYPE27673: if (!((t65709.value.structure_type27673)==(t65710.value.structure_type27673))) goto l10886; break; case STRUCTURE_TYPE27692: if (!((t65709.value.structure_type27692)==(t65710.value.structure_type27692))) goto l10886; break; case STRUCTURE_TYPE27694: if (!((t65709.value.structure_type27694)==(t65710.value.structure_type27694))) goto l10886; break; case STRUCTURE_TYPE27698: if (!((t65709.value.structure_type27698)==(t65710.value.structure_type27698))) goto l10886; break; case STRUCTURE_TYPE27745: if (!((t65709.value.structure_type27745)==(t65710.value.structure_type27745))) goto l10886; break; case STRUCTURE_TYPE27747: if (!((t65709.value.structure_type27747)==(t65710.value.structure_type27747))) goto l10886; break; case STRUCTURE_TYPE27750: if (!((t65709.value.structure_type27750)==(t65710.value.structure_type27750))) goto l10886; break; case STRUCTURE_TYPE27753: if (!((t65709.value.structure_type27753)==(t65710.value.structure_type27753))) goto l10886; break; case STRUCTURE_TYPE27756: if (!((t65709.value.structure_type27756)==(t65710.value.structure_type27756))) goto l10886; break; case STRUCTURE_TYPE27761: if (!((t65709.value.structure_type27761)==(t65710.value.structure_type27761))) goto l10886; break; case STRUCTURE_TYPE27769: if (!((t65709.value.structure_type27769)==(t65710.value.structure_type27769))) goto l10886; break; case STRUCTURE_TYPE27776: if (!((t65709.value.structure_type27776)==(t65710.value.structure_type27776))) goto l10886; break; case STRUCTURE_TYPE27779: if (!((t65709.value.structure_type27779)==(t65710.value.structure_type27779))) goto l10886; break; case STRUCTURE_TYPE27858: if (!((t65709.value.structure_type27858)==(t65710.value.structure_type27858))) goto l10886; break; case STRING_TYPE: if (!((t65709.value.string_type)==(t65710.value.string_type))) goto l10886; break; case HEADED_VECTOR_TYPE27896: if (!((t65709.value.headed_vector_type27896)==(t65710.value.headed_vector_type27896))) goto l10886; break; case EXTERNAL_SYMBOL_TYPE: if (!((t65709.value.external_symbol_type)==(t65710.value.external_symbol_type))) goto l10886; break; case STRUCTURE_TYPE27908: if (!((t65709.value.structure_type27908)==(t65710.value.structure_type27908))) goto l10886; break; default:;} /* x93666 */ /* x93665 */ /* x93664 stalin.sc:8303:282691 */ t65672 = NATIVE_PROCEDURE_TYPE7928; goto l10887; l10886: /* x93692 */ /* x93684 stalin.sc:8304:282724 */ /* x93674 stalin.sc:8304:282729 */ /* x93672 stalin.sc:8304:282734 */ /* x93671 stalin.sc:8304:282751 */ /* x93670 stalin.sc:8304:282770 */ t65719 = a23292; /* x93669 stalin.sc:8304:282752 */ a39798 = t65719; /* x291861 */ /* x291860 */ t65720 = a39798; /* x291859 */ if (!((t65720.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34715]"); structure_ref_error();} t65717 = t65720.value.structure_type27698->s11; /* x93668 stalin.sc:8304:282735 */ a40341 = t65717; /* x294033 */ /* x294032 */ t65718 = a40341; /* x294031 */ if (!((t65718.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35258]"); structure_ref_error();} t65715 = t65718.value.structure_type27698->s0; /* x93673 stalin.sc:8304:282774 */ t65716 = q43; /* x269788 stalin.sc:8304:282730 */ if (!(t65715==t65716)) goto l10890; /* x93682 */ /* x93676 stalin.sc:8305:282787 */ t65721 = a23292; /* x93681 stalin.sc:8305:282789 */ /* x93680 stalin.sc:8305:282811 */ /* x93679 stalin.sc:8305:282830 */ t65725 = a23292; /* x93678 stalin.sc:8305:282812 */ a39797 = t65725; /* x291857 */ /* x291856 */ t65726 = a39797; /* x291855 */ if (!((t65726.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34714]"); structure_ref_error();} t65723 = t65726.value.structure_type27698->s11; /* x93677 stalin.sc:8305:282790 */ a38919 = t65723; /* x288345 */ /* x288344 */ t65724 = a38919; /* x288343 */ if (!((t65724.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33836]"); structure_ref_error();} t65722 = t65724.value.structure_type27698->s20; /* x269787 stalin.sc:8305:282783 */ /* EQ: dispatching general to general */ if (!((t65721.tag)==(t65722.tag))) goto l10890; switch (t65721.tag) {case FIXNUM_TYPE: if (!((t65721.value.fixnum_type)==(t65722.value.fixnum_type))) goto l10890; break; case FLONUM_TYPE: if (!((t65721.value.flonum_type)==(t65722.value.flonum_type))) goto l10890; break; case INPUT_PORT_TYPE: if (!((t65721.value.input_port_type)==(t65722.value.input_port_type))) goto l10890; break; case OUTPUT_PORT_TYPE: if (!((t65721.value.output_port_type)==(t65722.value.output_port_type))) goto l10890; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t65721.value.native_procedure_type15963)==(t65722.value.native_procedure_type15963))) goto l10890; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t65721.value.native_procedure_type19067)==(t65722.value.native_procedure_type19067))) goto l10890; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t65721.value.native_procedure_type19068)==(t65722.value.native_procedure_type19068))) goto l10890; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t65721.value.native_procedure_type22459)==(t65722.value.native_procedure_type22459))) goto l10890; break; case STRUCTURE_TYPE24753: if (!((t65721.value.structure_type24753)==(t65722.value.structure_type24753))) goto l10890; break; case STRUCTURE_TYPE24757: if (!((t65721.value.structure_type24757)==(t65722.value.structure_type24757))) goto l10890; break; case STRUCTURE_TYPE27501: if (!((t65721.value.structure_type27501)==(t65722.value.structure_type27501))) goto l10890; break; case STRUCTURE_TYPE27510: if (!((t65721.value.structure_type27510)==(t65722.value.structure_type27510))) goto l10890; break; case STRUCTURE_TYPE27621: if (!((t65721.value.structure_type27621)==(t65722.value.structure_type27621))) goto l10890; break; case STRUCTURE_TYPE27650: if (!((t65721.value.structure_type27650)==(t65722.value.structure_type27650))) goto l10890; break; case STRUCTURE_TYPE27669: if (!((t65721.value.structure_type27669)==(t65722.value.structure_type27669))) goto l10890; break; case STRUCTURE_TYPE27673: if (!((t65721.value.structure_type27673)==(t65722.value.structure_type27673))) goto l10890; break; case STRUCTURE_TYPE27692: if (!((t65721.value.structure_type27692)==(t65722.value.structure_type27692))) goto l10890; break; case STRUCTURE_TYPE27694: if (!((t65721.value.structure_type27694)==(t65722.value.structure_type27694))) goto l10890; break; case STRUCTURE_TYPE27698: if (!((t65721.value.structure_type27698)==(t65722.value.structure_type27698))) goto l10890; break; case STRUCTURE_TYPE27745: if (!((t65721.value.structure_type27745)==(t65722.value.structure_type27745))) goto l10890; break; case STRUCTURE_TYPE27747: if (!((t65721.value.structure_type27747)==(t65722.value.structure_type27747))) goto l10890; break; case STRUCTURE_TYPE27750: if (!((t65721.value.structure_type27750)==(t65722.value.structure_type27750))) goto l10890; break; case STRUCTURE_TYPE27753: if (!((t65721.value.structure_type27753)==(t65722.value.structure_type27753))) goto l10890; break; case STRUCTURE_TYPE27756: if (!((t65721.value.structure_type27756)==(t65722.value.structure_type27756))) goto l10890; break; case STRUCTURE_TYPE27761: if (!((t65721.value.structure_type27761)==(t65722.value.structure_type27761))) goto l10890; break; case STRUCTURE_TYPE27769: if (!((t65721.value.structure_type27769)==(t65722.value.structure_type27769))) goto l10890; break; case STRUCTURE_TYPE27776: if (!((t65721.value.structure_type27776)==(t65722.value.structure_type27776))) goto l10890; break; case STRUCTURE_TYPE27779: if (!((t65721.value.structure_type27779)==(t65722.value.structure_type27779))) goto l10890; break; case STRUCTURE_TYPE27858: if (!((t65721.value.structure_type27858)==(t65722.value.structure_type27858))) goto l10890; break; case STRING_TYPE: if (!((t65721.value.string_type)==(t65722.value.string_type))) goto l10890; break; case HEADED_VECTOR_TYPE27896: if (!((t65721.value.headed_vector_type27896)==(t65722.value.headed_vector_type27896))) goto l10890; break; case EXTERNAL_SYMBOL_TYPE: if (!((t65721.value.external_symbol_type)==(t65722.value.external_symbol_type))) goto l10890; break; case STRUCTURE_TYPE27908: if (!((t65721.value.structure_type27908)==(t65722.value.structure_type27908))) goto l10890; break; default:;} /* x93687 */ /* x93686 */ /* x93685 stalin.sc:8306:282841 */ t65672 = NATIVE_PROCEDURE_TYPE7926; goto l10891; l10890: /* x93691 */ /* x93690 */ /* x93689 stalin.sc:8307:282878 */ /* x93688 stalin.sc:8307:282879 */ /* x296893 QobiScheme.sc:166:5314 */ /* x296892 QobiScheme.sc:166:5321 */ t65727 = "This shouldn\'t happen"; /* x296891 QobiScheme.sc:166:5315 */ stalin_panic(t65727); l10891: l10887: l10883: l10879: switch (t65672) {case NATIVE_PROCEDURE_TYPE7924: t65675.tag = STRUCTURE_TYPE27698; t65675.value.structure_type27698 = t65674; f5656(t65673, t65675); return; case NATIVE_PROCEDURE_TYPE7926: t65676.tag = STRUCTURE_TYPE27698; t65676.value.structure_type27698 = t65674; f5648(t65673, t65676); return; case NATIVE_PROCEDURE_TYPE7928: t65677.tag = STRUCTURE_TYPE27698; t65677.value.structure_type27698 = t65674; f5640(t65673, t65677); return; default: t65678.tag = STRUCTURE_TYPE27698; t65678.value.structure_type27698 = t65674; f5632(t65673, t65678); return;}} /* [inside LOOP 10364] */ void f10364(struct p10316 *p10364, struct w49 a23276) {struct w49 a19098; /* S */ struct w49 t65741; struct w49 t65742; char *t65743; struct w49 t65744; struct w49 t65745; char *t65746; struct w49 t65747; struct w49 t65748; /* x92842 */ /* x92837 stalin.sc:8136:277804 */ /* x92830 stalin.sc:8136:277812 */ /* x92827 stalin.sc:8136:277817 */ /* x92826 stalin.sc:8136:277836 */ t65744 = a23276; /* x92825 stalin.sc:8136:277818 */ a19098 = t65744; /* x50070 */ /* x50069 */ t65745 = a19098; /* x50068 */ if (!((t65745.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-PARENT[5575]"); structure_ref_error();} t65742 = t65745.value.structure_type27698->s11; /* x92829 stalin.sc:8136:277840 */ /* x92828 stalin.sc:8136:277841 */ /* x277113 stalin.sc:323:8604 */ t65743 = q35; /* x269806 stalin.sc:8136:277813 */ if (!(((t65742.tag)==EXTERNAL_SYMBOL_TYPE)&&((t65742.value.external_symbol_type)==t65743))) goto l10894; /* x92832 */ /* x92831 */ goto l10895; l10894: /* x92836 */ /* x92835 */ /* x92834 stalin.sc:8136:277855 */ /* x92833 stalin.sc:8136:277856 */ /* x295073 QobiScheme.sc:166:5314 */ /* x295072 QobiScheme.sc:166:5321 */ t65746 = "This shouldn\'t happen"; /* x295071 QobiScheme.sc:166:5315 */ stalin_panic(t65746); l10895: /* x92841 stalin.sc:8137:277874 */ /* x92839 stalin.sc:8137:277898 */ t65747 = a23276; /* x92840 stalin.sc:8137:277901 */ t65748 = p10364->a23248; /* x92838 stalin.sc:8137:277875 */ f5576(t65747, t65748); /* x92823 */ /* x92822 stalin.sc:8138:277912 */ /* x92821 stalin.sc:8138:277918 */ t65741 = a23276; /* x92820 stalin.sc:8138:277913 */ f10316(t65741); return;} /* LOOP[10316] */ void f10316(struct w49 a23248) {struct w49 a19138; /* S */ struct w49 a19158; /* S */ struct w49 a19188; /* S */ struct w49 a19208; /* S */ char *a23249; /* v */ struct w49 a38857; /* S */ struct w49 a38858; /* S */ struct w49 a38859; /* S */ struct w49 a38926; /* S */ struct w49 a38927; /* S */ struct w49 a38980; /* S */ struct w49 a38981; /* S */ struct w49 a38982; /* S */ struct w49 a39041; /* S */ struct w49 a39042; /* S */ struct w49 a39043; /* S */ struct w49 a39082; /* S */ struct w49 a39083; /* S */ struct w49 a39239; /* S */ struct w49 a39240; /* S */ struct w49 a39556; /* S */ struct w49 a39603; /* S */ struct w49 a39604; /* S */ struct w49 a39605; /* S */ struct w49 a39606; /* S */ struct w49 a39607; /* S */ struct w49 a39608; /* S */ struct w49 a39738; /* S */ struct w49 a39739; /* S */ struct w49 a39812; /* S */ struct w49 a39814; /* S */ struct w49 a39815; /* S */ struct w49 a39816; /* S */ struct w49 a39817; /* S */ struct w49 a39818; /* S */ struct w49 a40401; /* S */ struct p10316 *t65749; char *t65750; char *t65751; char *t65752; struct w49 t65753; struct w49 t65754; char *t65755; char *t65756; struct w49 t65757; struct w49 t65758; char *t65759; char *t65760; struct w49 t65761; struct w49 t65762; char *t65763; char *t65764; struct w49 t65765; struct w49 t65766; char *t65767; char *t65768; struct w49 t65769; struct w49 t65770; char *t65771; char *t65772; struct w49 t65773; struct w49 t65774; char *t65775; char *t65776; struct w49 t65777; struct w49 t65778; char *t65779; char *t65780; struct w49 t65781; struct w49 t65782; char *t65783; char *t65784; struct w49 t65785; struct w49 t65786; char *t65787; char *t65788; struct w49 t65789; struct w49 t65790; char *t65791; char *t65792; struct w49 t65793; struct w49 t65794; char *t65795; char *t65796; struct w49 t65797; struct w49 t65798; char *t65799; char *t65800; struct w49 t65801; struct w49 t65802; char *t65803; char *t65804; struct w49 t65805; struct w49 t65806; char *t65807; char *t65808; struct w49 t65809; struct w49 t65810; char *t65811; char *t65812; struct w49 t65813; struct w49 t65814; char *t65815; char *t65816; struct w49 t65817; struct w49 t65818; char *t65819; char *t65820; struct w49 t65821; struct w49 t65822; char *t65823; char *t65824; struct w49 t65825; struct w49 t65826; char *t65827; char *t65828; struct w49 t65829; struct w49 t65830; char *t65831; char *t65832; struct w49 t65833; struct w49 t65834; char *t65835; struct p10316 *t65836; struct p10316 *t65837; struct p10316 *t65838; struct w11873 t65839; struct w36108 t65840; struct w49 t65841; struct structure_type24753 *t65842; struct w49 t65843; struct w49 t65844; struct w49 t65845; char *t65846; struct w49 t65847; struct w49 t65848; struct w49 t65849; struct w49 t65850; char *t65851; struct w49 t65852; struct w49 t65853; struct w49 t65854; struct w49 t65855; struct w49 t65856; struct w49 t65857; struct w49 t65858; struct p10316 *t65859; struct p10316 *t65860; struct w49 t65861; struct w49 t65862; struct w49 t65863; struct w49 t65864; char *t65865; struct w49 t65866; struct w49 t65867; struct w49 t65868; struct w49 t65869; char *t65870; struct w49 t65871; struct w49 t65872; struct w49 t65873; struct w49 t65874; struct w49 t65875; char *t65876; struct w49 t65877; struct w49 t65878; struct w49 t65879; struct w49 t65880; char *t65881; struct w49 t65882; struct w49 t65883; struct w49 t65884; struct w49 t65885; struct w49 t65886; char *t65887; struct w49 t65888; struct w49 t65889; struct w49 t65890; struct w49 t65891; char *t65892; struct w49 t65893; struct w49 t65894; struct w49 t65895; struct w49 t65896; struct w49 t65897; struct w49 t65898; struct w49 t65899; struct w49 t65900; struct w49 t65901; struct w49 t65902; struct p10316 *t65903; struct p10316 *t65904; struct w49 t65905; struct w49 t65906; struct w49 t65907; struct w49 t65908; char *t65909; struct w49 t65910; struct w49 t65911; struct w49 t65912; struct w49 t65913; char *t65914; struct w49 t65915; struct w49 t65916; struct w49 t65917; struct w49 t65918; struct p10316 *t65919; struct w49 t65920; struct p10316 *t65921; struct p10316 *t65922; struct w49 t65923; struct w49 t65924; struct w49 t65925; struct w49 t65926; char *t65927; struct w49 t65928; struct w49 t65929; struct w49 t65930; struct w49 t65931; char *t65932; struct w49 t65933; struct w49 t65934; struct w49 t65935; struct w49 t65936; struct p10316 *t65937; struct p10316 *t65938; struct w49 t65939; unsigned t65940; struct w49 t65941; struct w49 t65942; struct w49 t65943; struct p10316 *t65944; struct p10316 *t65945; struct w49 t65946; struct w49 t65947; struct w49 t65948; struct w49 t65949; struct w49 t65950; char *t65951; struct w49 t65952; struct w49 t65953; struct w49 t65954; struct w49 t65955; struct w49 t65956; char *t65957; struct w49 t65958; struct w49 t65959; struct w49 t65960; struct w49 t65961; struct w49 t65962; struct w49 t65963; char *t65964; struct w49 t65965; struct w49 t65966; struct w49 t65967; struct w49 t65968; struct w49 t65969; char *t65970; struct w49 t65971; struct w49 t65972; struct w49 t65973; struct w49 t65974; struct w49 t65975; struct w49 t65976; struct w49 t65977; struct w49 t65978; struct w49 t65979; struct w49 t65980; struct w49 t65981; struct p10316 *e10316; struct p10316 *p10317; struct p10316 *p10327; struct p10316 *p10328; struct p10316 *p10333; struct p10316 *p10340; struct p10316 *p10342; struct p10316 *p10343; struct p10316 *p10346; struct p10316 *p10347; struct p10316 *p10350; struct p10316 *p10351; struct p10316 *p10362; struct p10316 *p10363; h10316: e10316 = (struct p10316 *)alloca(sizeof(struct p10316)); if (e10316==NULL) {backtrace_internal("[inside ANNOTATE-EXPRESSIONS-WITH-THEIR-PARENTS! 10314]"); out_of_memory_error();} e10316->a23248 = a23248; /* x92905 stalin.sc:8075:275584 */ /* x92904 stalin.sc:8075:275590 */ /* x92903 stalin.sc:8075:275607 */ t65980 = e10316->a23248; /* x92902 stalin.sc:8075:275591 */ a40401 = t65980; /* x294273 */ /* x294272 */ t65981 = a40401; /* x294271 */ if (!((t65981.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35318]"); structure_ref_error();} t65750 = t65981.value.structure_type27698->s0; /* x92901 */ t65749 = e10316; p10317 = t65749; a23249 = t65750; /* x92900 */ /* x92431 */ /* x92429 */ t65751 = a23249; /* x92430 */ t65752 = q68; /* x92428 */ t65753.tag = EXTERNAL_SYMBOL_TYPE; t65753.value.external_symbol_type = t65751; t65754.tag = EXTERNAL_SYMBOL_TYPE; t65754.value.external_symbol_type = t65752; if (f26160(t65753, t65754)==FALSE_TYPE) goto l10897; /* x92434 */ /* x92433 */ /* x92432 stalin.sc:8076:275630 */ return; l10897: /* x92899 */ /* x92438 */ /* x92436 */ t65755 = a23249; /* x92437 */ t65756 = q69; /* x92435 */ t65757.tag = EXTERNAL_SYMBOL_TYPE; t65757.value.external_symbol_type = t65755; t65758.tag = EXTERNAL_SYMBOL_TYPE; t65758.value.external_symbol_type = t65756; if (f26160(t65757, t65758)==FALSE_TYPE) goto l10899; /* x92441 */ /* x92440 */ /* x92439 stalin.sc:8077:275654 */ return; l10899: /* x92898 */ /* x92445 */ /* x92443 */ t65759 = a23249; /* x92444 */ t65760 = q70; /* x92442 */ t65761.tag = EXTERNAL_SYMBOL_TYPE; t65761.value.external_symbol_type = t65759; t65762.tag = EXTERNAL_SYMBOL_TYPE; t65762.value.external_symbol_type = t65760; if (f26160(t65761, t65762)==FALSE_TYPE) goto l10901; /* x92448 */ /* x92447 */ /* x92446 stalin.sc:8078:275679 */ return; l10901: /* x92897 */ /* x92452 */ /* x92450 */ t65763 = a23249; /* x92451 */ t65764 = q71; /* x92449 */ t65765.tag = EXTERNAL_SYMBOL_TYPE; t65765.value.external_symbol_type = t65763; t65766.tag = EXTERNAL_SYMBOL_TYPE; t65766.value.external_symbol_type = t65764; if (f26160(t65765, t65766)==FALSE_TYPE) goto l10903; /* x92455 */ /* x92454 */ /* x92453 stalin.sc:8079:275703 */ return; l10903: /* x92896 */ /* x92459 */ /* x92457 */ t65767 = a23249; /* x92458 */ t65768 = q72; /* x92456 */ t65769.tag = EXTERNAL_SYMBOL_TYPE; t65769.value.external_symbol_type = t65767; t65770.tag = EXTERNAL_SYMBOL_TYPE; t65770.value.external_symbol_type = t65768; if (f26160(t65769, t65770)==FALSE_TYPE) goto l10905; /* x92462 */ /* x92461 */ /* x92460 stalin.sc:8080:275729 */ return; l10905: /* x92895 */ /* x92466 */ /* x92464 */ t65771 = a23249; /* x92465 */ t65772 = q73; /* x92463 */ t65773.tag = EXTERNAL_SYMBOL_TYPE; t65773.value.external_symbol_type = t65771; t65774.tag = EXTERNAL_SYMBOL_TYPE; t65774.value.external_symbol_type = t65772; if (f26160(t65773, t65774)==FALSE_TYPE) goto l10907; /* x92469 */ /* x92468 */ /* x92467 stalin.sc:8081:275755 */ return; l10907: /* x92894 */ /* x92473 */ /* x92471 */ t65775 = a23249; /* x92472 */ t65776 = q74; /* x92470 */ t65777.tag = EXTERNAL_SYMBOL_TYPE; t65777.value.external_symbol_type = t65775; t65778.tag = EXTERNAL_SYMBOL_TYPE; t65778.value.external_symbol_type = t65776; if (f26160(t65777, t65778)==FALSE_TYPE) goto l10909; /* x92476 */ /* x92475 */ /* x92474 stalin.sc:8082:275786 */ return; l10909: /* x92893 */ /* x92480 */ /* x92478 */ t65779 = a23249; /* x92479 */ t65780 = q75; /* x92477 */ t65781.tag = EXTERNAL_SYMBOL_TYPE; t65781.value.external_symbol_type = t65779; t65782.tag = EXTERNAL_SYMBOL_TYPE; t65782.value.external_symbol_type = t65780; if (f26160(t65781, t65782)==FALSE_TYPE) goto l10911; /* x92483 */ /* x92482 */ /* x92481 stalin.sc:8083:275812 */ return; l10911: /* x92892 */ /* x92487 */ /* x92485 */ t65783 = a23249; /* x92486 */ t65784 = q76; /* x92484 */ t65785.tag = EXTERNAL_SYMBOL_TYPE; t65785.value.external_symbol_type = t65783; t65786.tag = EXTERNAL_SYMBOL_TYPE; t65786.value.external_symbol_type = t65784; if (f26160(t65785, t65786)==FALSE_TYPE) goto l10913; /* x92490 */ /* x92489 */ /* x92488 stalin.sc:8084:275838 */ return; l10913: /* x92891 */ /* x92494 */ /* x92492 */ t65787 = a23249; /* x92493 */ t65788 = q50; /* x92491 */ t65789.tag = EXTERNAL_SYMBOL_TYPE; t65789.value.external_symbol_type = t65787; t65790.tag = EXTERNAL_SYMBOL_TYPE; t65790.value.external_symbol_type = t65788; if (f26160(t65789, t65790)==FALSE_TYPE) goto l10915; /* x92564 */ /* x92563 */ t65944 = p10317; p10327 = t65944; /* x92562 */ /* x92520 stalin.sc:8086:275866 */ /* x92513 stalin.sc:8086:275874 */ /* x92510 stalin.sc:8086:275879 */ /* x92509 stalin.sc:8086:275898 */ /* x92508 stalin.sc:8086:275903 */ /* x92507 stalin.sc:8086:275924 */ t65955 = p10327->a23248; /* x92506 stalin.sc:8086:275904 */ a39603 = t65955; /* x291081 */ /* x291080 */ t65956 = a39603; /* x291079 */ if (!((t65956.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34520]"); structure_ref_error();} t65954 = t65956.value.structure_type27698->s12; /* x269818 stalin.sc:8086:275899 */ if (!((t65954.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 8086, 275898); structure_ref_error();} t65952 = t65954.value.structure_type24753->s0; /* x92504 stalin.sc:8086:275880 */ a39738 = t65952; /* x291621 */ /* x291620 */ t65953 = a39738; /* x291619 */ if (!((t65953.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34655]"); structure_ref_error();} t65950 = t65953.value.structure_type27698->s11; /* x92512 stalin.sc:8087:275932 */ /* x92511 stalin.sc:8087:275933 */ /* x277399 stalin.sc:323:8604 */ t65951 = q35; /* x269819 stalin.sc:8086:275875 */ if (!(((t65950.tag)==EXTERNAL_SYMBOL_TYPE)&&((t65950.value.external_symbol_type)==t65951))) goto l10956; /* x92515 */ /* x92514 */ goto l10957; l10956: /* x92519 */ /* x92518 */ /* x92517 stalin.sc:8088:275952 */ /* x92516 stalin.sc:8088:275953 */ /* x296405 QobiScheme.sc:166:5314 */ /* x296404 QobiScheme.sc:166:5321 */ t65957 = "This shouldn\'t happen"; /* x296403 QobiScheme.sc:166:5315 */ stalin_panic(t65957); l10957: /* x92528 stalin.sc:8089:275967 */ /* x92526 stalin.sc:8089:275991 */ /* x92525 stalin.sc:8089:275996 */ /* x92524 stalin.sc:8089:276017 */ t65961 = p10327->a23248; /* x92523 stalin.sc:8089:275997 */ a39604 = t65961; /* x291085 */ /* x291084 */ t65962 = a39604; /* x291083 */ if (!((t65962.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34521]"); structure_ref_error();} t65960 = t65962.value.structure_type27698->s12; /* x269817 stalin.sc:8089:275992 */ if (!((t65960.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 8089, 275991); structure_ref_error();} t65958 = t65960.value.structure_type24753->s0; /* x92527 stalin.sc:8089:276021 */ t65959 = p10327->a23248; /* x92521 stalin.sc:8089:275968 */ f5576(t65958, t65959); /* x92546 stalin.sc:8090:276028 */ /* x92539 stalin.sc:8090:276036 */ /* x92536 stalin.sc:8090:276041 */ /* x92535 stalin.sc:8090:276060 */ /* x92534 stalin.sc:8090:276065 */ /* x92533 stalin.sc:8090:276086 */ t65968 = p10327->a23248; /* x92532 stalin.sc:8090:276066 */ a39605 = t65968; /* x291089 */ /* x291088 */ t65969 = a39605; /* x291087 */ if (!((t65969.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34522]"); structure_ref_error();} t65967 = t65969.value.structure_type27698->s12; /* x269815 stalin.sc:8090:276061 */ if (!((t65967.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 8090, 276060); structure_ref_error();} t65965 = t65967.value.structure_type24753->s1; /* x92530 stalin.sc:8090:276042 */ a39739 = t65965; /* x291625 */ /* x291624 */ t65966 = a39739; /* x291623 */ if (!((t65966.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34656]"); structure_ref_error();} t65963 = t65966.value.structure_type27698->s11; /* x92538 stalin.sc:8091:276094 */ /* x92537 stalin.sc:8091:276095 */ /* x277401 stalin.sc:323:8604 */ t65964 = q35; /* x269816 stalin.sc:8090:276037 */ if (!(((t65963.tag)==EXTERNAL_SYMBOL_TYPE)&&((t65963.value.external_symbol_type)==t65964))) goto l10959; /* x92541 */ /* x92540 */ goto l10960; l10959: /* x92545 */ /* x92544 */ /* x92543 stalin.sc:8092:276114 */ /* x92542 stalin.sc:8092:276115 */ /* x296409 QobiScheme.sc:166:5314 */ /* x296408 QobiScheme.sc:166:5321 */ t65970 = "This shouldn\'t happen"; /* x296407 QobiScheme.sc:166:5315 */ stalin_panic(t65970); l10960: /* x92554 stalin.sc:8093:276129 */ /* x92552 stalin.sc:8093:276153 */ /* x92551 stalin.sc:8093:276158 */ /* x92550 stalin.sc:8093:276179 */ t65974 = p10327->a23248; /* x92549 stalin.sc:8093:276159 */ a39606 = t65974; /* x291093 */ /* x291092 */ t65975 = a39606; /* x291091 */ if (!((t65975.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34523]"); structure_ref_error();} t65973 = t65975.value.structure_type27698->s12; /* x269814 stalin.sc:8093:276154 */ if (!((t65973.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 8093, 276153); structure_ref_error();} t65971 = t65973.value.structure_type24753->s1; /* x92553 stalin.sc:8093:276183 */ t65972 = p10327->a23248; /* x92547 stalin.sc:8093:276130 */ f5576(t65971, t65972); /* x92561 stalin.sc:8094:276190 */ /* x92560 stalin.sc:8094:276196 */ /* x92559 stalin.sc:8094:276201 */ /* x92558 stalin.sc:8094:276222 */ t65978 = p10327->a23248; /* x92557 stalin.sc:8094:276202 */ a39607 = t65978; /* x291097 */ /* x291096 */ t65979 = a39607; /* x291095 */ if (!((t65979.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34524]"); structure_ref_error();} t65977 = t65979.value.structure_type27698->s12; /* x269813 stalin.sc:8094:276197 */ if (!((t65977.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 8094, 276196); structure_ref_error();} t65976 = t65977.value.structure_type24753->s0; /* x92555 stalin.sc:8094:276191 */ f10316(t65976); /* x92502 */ t65945 = p10327; p10328 = t65945; /* x92501 stalin.sc:8095:276231 */ /* x92500 stalin.sc:8095:276237 */ /* x92499 stalin.sc:8095:276242 */ /* x92498 stalin.sc:8095:276263 */ t65948 = p10328->a23248; /* x92497 stalin.sc:8095:276243 */ a39556 = t65948; /* x290893 */ /* x290892 */ t65949 = a39556; /* x290891 */ if (!((t65949.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34473]"); structure_ref_error();} t65947 = t65949.value.structure_type27698->s12; /* x269820 stalin.sc:8095:276238 */ if (!((t65947.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 8095, 276237); structure_ref_error();} t65946 = t65947.value.structure_type24753->s1; /* x92495 stalin.sc:8095:276232 */ a23248 = t65946; goto h10316; l10915: /* x92890 */ /* x92568 */ /* x92566 */ t65791 = a23249; /* x92567 */ t65792 = q52; /* x92565 */ t65793.tag = EXTERNAL_SYMBOL_TYPE; t65793.value.external_symbol_type = t65791; t65794.tag = EXTERNAL_SYMBOL_TYPE; t65794.value.external_symbol_type = t65792; if (f26160(t65793, t65794)==FALSE_TYPE) goto l10917; /* x92599 */ /* x92598 */ t65937 = p10317; p10333 = t65937; /* x92597 stalin.sc:8097:276295 */ /* x92596 stalin.sc:8102:276456 */ /* x92595 stalin.sc:8102:276477 */ t65942 = p10333->a23248; /* x92594 stalin.sc:8102:276457 */ a39608 = t65942; /* x291101 */ /* x291100 */ t65943 = a39608; /* x291099 */ if (!((t65943.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34525]"); structure_ref_error();} t65939 = t65943.value.structure_type27698->s12; /* x92593 */ t65938 = p10333; /* x92569 stalin.sc:8097:276296 */ t65940 = ((unsigned)t65938)+2; t65941 = t65939; f1141(t65940, t65941); return; l10917: /* x92889 */ /* x92621 */ /* x92620 */ /* x92618 */ t65795 = a23249; /* x92619 */ t65796 = q39; /* x92617 */ t65797.tag = EXTERNAL_SYMBOL_TYPE; t65797.value.external_symbol_type = t65795; t65798.tag = EXTERNAL_SYMBOL_TYPE; t65798.value.external_symbol_type = t65796; if (!(f26160(t65797, t65798)==FALSE_TYPE)) goto l10918; /* x92614 */ /* x92613 */ /* x92611 */ t65799 = a23249; /* x92612 */ t65800 = q40; /* x92610 */ t65801.tag = EXTERNAL_SYMBOL_TYPE; t65801.value.external_symbol_type = t65799; t65802.tag = EXTERNAL_SYMBOL_TYPE; t65802.value.external_symbol_type = t65800; if (!(f26160(t65801, t65802)==FALSE_TYPE)) goto l10918; /* x92607 */ /* x92605 */ t65803 = a23249; /* x92606 */ t65804 = q41; /* x92604 */ t65805.tag = EXTERNAL_SYMBOL_TYPE; t65805.value.external_symbol_type = t65803; t65806.tag = EXTERNAL_SYMBOL_TYPE; t65806.value.external_symbol_type = t65804; if (f26160(t65805, t65806)==FALSE_TYPE) goto l10919; l10918: /* x92660 */ /* x92659 */ t65919 = p10317; p10340 = t65919; /* x92658 stalin.sc:8104:276539 */ /* x92624 stalin.sc:8104:276547 */ /* x92623 stalin.sc:8104:276554 */ t65920 = p10340->a23248; /* x92622 stalin.sc:8104:276548 */ if (f8918(t65920)==FALSE_TYPE) goto l10951; /* x92626 */ /* x92625 */ return; l10951: /* x92657 */ /* x92656 */ t65921 = p10340; p10342 = t65921; /* x92655 */ /* x92648 stalin.sc:8105:276562 */ /* x92641 stalin.sc:8105:276570 */ /* x92638 stalin.sc:8105:276575 */ /* x92637 stalin.sc:8105:276594 */ /* x92636 stalin.sc:8105:276611 */ t65930 = p10342->a23248; /* x92635 stalin.sc:8105:276595 */ a39239 = t65930; /* x289625 */ /* x289624 */ t65931 = a39239; /* x289623 */ if (!((t65931.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34156]"); structure_ref_error();} t65928 = t65931.value.structure_type27698->s15; /* x92634 stalin.sc:8105:276576 */ a39812 = t65928; /* x291917 */ /* x291916 */ t65929 = a39812; /* x291915 */ if (!((t65929.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34729]"); structure_ref_error();} t65926 = t65929.value.structure_type27698->s11; /* x92640 stalin.sc:8105:276615 */ /* x92639 stalin.sc:8105:276616 */ /* x277243 stalin.sc:323:8604 */ t65927 = q35; /* x269811 stalin.sc:8105:276571 */ if (!(((t65926.tag)==EXTERNAL_SYMBOL_TYPE)&&((t65926.value.external_symbol_type)==t65927))) goto l10953; /* x92643 */ /* x92642 */ goto l10954; l10953: /* x92647 */ /* x92646 */ /* x92645 stalin.sc:8106:276636 */ /* x92644 stalin.sc:8106:276637 */ /* x296865 QobiScheme.sc:166:5314 */ /* x296864 QobiScheme.sc:166:5321 */ t65932 = "This shouldn\'t happen"; /* x296863 QobiScheme.sc:166:5315 */ stalin_panic(t65932); l10954: /* x92654 stalin.sc:8107:276652 */ /* x92652 stalin.sc:8107:276676 */ /* x92651 stalin.sc:8107:276693 */ t65935 = p10342->a23248; /* x92650 stalin.sc:8107:276677 */ a39240 = t65935; /* x289629 */ /* x289628 */ t65936 = a39240; /* x289627 */ if (!((t65936.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34157]"); structure_ref_error();} t65933 = t65936.value.structure_type27698->s15; /* x92653 stalin.sc:8107:276696 */ t65934 = p10342->a23248; /* x92649 stalin.sc:8107:276653 */ f5576(t65933, t65934); /* x92632 */ t65922 = p10342; p10343 = t65922; /* x92631 stalin.sc:8108:276704 */ /* x92630 stalin.sc:8108:276710 */ /* x92629 stalin.sc:8108:276727 */ t65924 = p10343->a23248; /* x92628 stalin.sc:8108:276711 */ a19138 = t65924; /* x50226 */ /* x50225 */ t65925 = a19138; /* x50224 */ if (!((t65925.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-BODY[5607]"); structure_ref_error();} t65923 = t65925.value.structure_type27698->s15; /* x92627 stalin.sc:8108:276705 */ a23248 = t65923; goto h10316; l10919: /* x92888 */ /* x92664 */ /* x92662 */ t65807 = a23249; /* x92663 */ t65808 = q42; /* x92661 */ t65809.tag = EXTERNAL_SYMBOL_TYPE; t65809.value.external_symbol_type = t65807; t65810.tag = EXTERNAL_SYMBOL_TYPE; t65810.value.external_symbol_type = t65808; if (f26160(t65809, t65810)==FALSE_TYPE) goto l10923; /* x92695 */ /* x92694 */ t65903 = p10317; p10346 = t65903; /* x92693 */ /* x92686 stalin.sc:8110:276748 */ /* x92679 stalin.sc:8110:276756 */ /* x92676 stalin.sc:8110:276761 */ /* x92675 stalin.sc:8110:276780 */ /* x92674 stalin.sc:8110:276799 */ t65912 = p10346->a23248; /* x92673 stalin.sc:8110:276781 */ a39082 = t65912; /* x288997 */ /* x288996 */ t65913 = a39082; /* x288995 */ if (!((t65913.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33999]"); structure_ref_error();} t65910 = t65913.value.structure_type27698->s17; /* x92672 stalin.sc:8110:276762 */ a39814 = t65910; /* x291925 */ /* x291924 */ t65911 = a39814; /* x291923 */ if (!((t65911.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34731]"); structure_ref_error();} t65908 = t65911.value.structure_type27698->s11; /* x92678 stalin.sc:8110:276803 */ /* x92677 stalin.sc:8110:276804 */ /* x277405 stalin.sc:323:8604 */ t65909 = q35; /* x269810 stalin.sc:8110:276757 */ if (!(((t65908.tag)==EXTERNAL_SYMBOL_TYPE)&&((t65908.value.external_symbol_type)==t65909))) goto l10948; /* x92681 */ /* x92680 */ goto l10949; l10948: /* x92685 */ /* x92684 */ /* x92683 stalin.sc:8111:276823 */ /* x92682 stalin.sc:8111:276824 */ /* x296873 QobiScheme.sc:166:5314 */ /* x296872 QobiScheme.sc:166:5321 */ t65914 = "This shouldn\'t happen"; /* x296871 QobiScheme.sc:166:5315 */ stalin_panic(t65914); l10949: /* x92692 stalin.sc:8112:276838 */ /* x92690 stalin.sc:8112:276862 */ /* x92689 stalin.sc:8112:276881 */ t65917 = p10346->a23248; /* x92688 stalin.sc:8112:276863 */ a39083 = t65917; /* x289001 */ /* x289000 */ t65918 = a39083; /* x288999 */ if (!((t65918.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 34000]"); structure_ref_error();} t65915 = t65918.value.structure_type27698->s17; /* x92691 stalin.sc:8112:276884 */ t65916 = p10346->a23248; /* x92687 stalin.sc:8112:276839 */ f5576(t65915, t65916); /* x92670 */ t65904 = p10346; p10347 = t65904; /* x92669 stalin.sc:8113:276891 */ /* x92668 stalin.sc:8113:276897 */ /* x92667 stalin.sc:8113:276916 */ t65906 = p10347->a23248; /* x92666 stalin.sc:8113:276898 */ a19158 = t65906; /* x50304 */ /* x50303 */ t65907 = a19158; /* x50302 */ if (!((t65907.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-SOURCE[5623]"); structure_ref_error();} t65905 = t65907.value.structure_type27698->s17; /* x92665 stalin.sc:8113:276892 */ a23248 = t65905; goto h10316; l10923: /* x92887 */ /* x92699 */ /* x92697 */ t65811 = a23249; /* x92698 */ t65812 = q43; /* x92696 */ t65813.tag = EXTERNAL_SYMBOL_TYPE; t65813.value.external_symbol_type = t65811; t65814.tag = EXTERNAL_SYMBOL_TYPE; t65814.value.external_symbol_type = t65812; if (f26160(t65813, t65814)==FALSE_TYPE) goto l10925; /* x92784 */ /* x92783 */ t65859 = p10317; p10350 = t65859; /* x92782 */ /* x92721 stalin.sc:8115:276934 */ /* x92714 stalin.sc:8115:276942 */ /* x92711 stalin.sc:8115:276947 */ /* x92710 stalin.sc:8115:276966 */ /* x92709 stalin.sc:8115:276989 */ t65868 = p10350->a23248; /* x92708 stalin.sc:8115:276967 */ a39041 = t65868; /* x288833 */ /* x288832 */ t65869 = a39041; /* x288831 */ if (!((t65869.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33958]"); structure_ref_error();} t65866 = t65869.value.structure_type27698->s18; /* x92707 stalin.sc:8115:276948 */ a39815 = t65866; /* x291929 */ /* x291928 */ t65867 = a39815; /* x291927 */ if (!((t65867.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34732]"); structure_ref_error();} t65864 = t65867.value.structure_type27698->s11; /* x92713 stalin.sc:8115:276993 */ /* x92712 stalin.sc:8115:276994 */ /* x277407 stalin.sc:323:8604 */ t65865 = q35; /* x269809 stalin.sc:8115:276943 */ if (!(((t65864.tag)==EXTERNAL_SYMBOL_TYPE)&&((t65864.value.external_symbol_type)==t65865))) goto l10939; /* x92716 */ /* x92715 */ goto l10940; l10939: /* x92720 */ /* x92719 */ /* x92718 stalin.sc:8116:277013 */ /* x92717 stalin.sc:8116:277014 */ /* x296877 QobiScheme.sc:166:5314 */ /* x296876 QobiScheme.sc:166:5321 */ t65870 = "This shouldn\'t happen"; /* x296875 QobiScheme.sc:166:5315 */ stalin_panic(t65870); l10940: /* x92727 stalin.sc:8117:277028 */ /* x92725 stalin.sc:8117:277052 */ /* x92724 stalin.sc:8117:277075 */ t65873 = p10350->a23248; /* x92723 stalin.sc:8117:277053 */ a39042 = t65873; /* x288837 */ /* x288836 */ t65874 = a39042; /* x288835 */ if (!((t65874.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33959]"); structure_ref_error();} t65871 = t65874.value.structure_type27698->s18; /* x92726 stalin.sc:8117:277078 */ t65872 = p10350->a23248; /* x92722 stalin.sc:8117:277029 */ f5576(t65871, t65872); /* x92743 stalin.sc:8118:277085 */ /* x92736 stalin.sc:8118:277093 */ /* x92733 stalin.sc:8118:277098 */ /* x92732 stalin.sc:8118:277117 */ /* x92731 stalin.sc:8118:277140 */ t65879 = p10350->a23248; /* x92730 stalin.sc:8118:277118 */ a38980 = t65879; /* x288589 */ /* x288588 */ t65880 = a38980; /* x288587 */ if (!((t65880.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33897]"); structure_ref_error();} t65877 = t65880.value.structure_type27698->s19; /* x92729 stalin.sc:8118:277099 */ a39816 = t65877; /* x291933 */ /* x291932 */ t65878 = a39816; /* x291931 */ if (!((t65878.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34733]"); structure_ref_error();} t65875 = t65878.value.structure_type27698->s11; /* x92735 stalin.sc:8118:277144 */ /* x92734 stalin.sc:8118:277145 */ /* x277409 stalin.sc:323:8604 */ t65876 = q35; /* x269808 stalin.sc:8118:277094 */ if (!(((t65875.tag)==EXTERNAL_SYMBOL_TYPE)&&((t65875.value.external_symbol_type)==t65876))) goto l10942; /* x92738 */ /* x92737 */ goto l10943; l10942: /* x92742 */ /* x92741 */ /* x92740 stalin.sc:8119:277164 */ /* x92739 stalin.sc:8119:277165 */ /* x296881 QobiScheme.sc:166:5314 */ /* x296880 QobiScheme.sc:166:5321 */ t65881 = "This shouldn\'t happen"; /* x296879 QobiScheme.sc:166:5315 */ stalin_panic(t65881); l10943: /* x92749 stalin.sc:8120:277179 */ /* x92747 stalin.sc:8120:277203 */ /* x92746 stalin.sc:8120:277226 */ t65884 = p10350->a23248; /* x92745 stalin.sc:8120:277204 */ a38981 = t65884; /* x288593 */ /* x288592 */ t65885 = a38981; /* x288591 */ if (!((t65885.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33898]"); structure_ref_error();} t65882 = t65885.value.structure_type27698->s19; /* x92748 stalin.sc:8120:277229 */ t65883 = p10350->a23248; /* x92744 stalin.sc:8120:277180 */ f5576(t65882, t65883); /* x92765 stalin.sc:8121:277236 */ /* x92758 stalin.sc:8121:277244 */ /* x92755 stalin.sc:8121:277249 */ /* x92754 stalin.sc:8121:277268 */ /* x92753 stalin.sc:8121:277290 */ t65890 = p10350->a23248; /* x92752 stalin.sc:8121:277269 */ a38926 = t65890; /* x288373 */ /* x288372 */ t65891 = a38926; /* x288371 */ if (!((t65891.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33843]"); structure_ref_error();} t65888 = t65891.value.structure_type27698->s20; /* x92751 stalin.sc:8121:277250 */ a39817 = t65888; /* x291937 */ /* x291936 */ t65889 = a39817; /* x291935 */ if (!((t65889.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34734]"); structure_ref_error();} t65886 = t65889.value.structure_type27698->s11; /* x92757 stalin.sc:8121:277294 */ /* x92756 stalin.sc:8121:277295 */ /* x277411 stalin.sc:323:8604 */ t65887 = q35; /* x269807 stalin.sc:8121:277245 */ if (!(((t65886.tag)==EXTERNAL_SYMBOL_TYPE)&&((t65886.value.external_symbol_type)==t65887))) goto l10945; /* x92760 */ /* x92759 */ goto l10946; l10945: /* x92764 */ /* x92763 */ /* x92762 stalin.sc:8122:277314 */ /* x92761 stalin.sc:8122:277315 */ /* x296885 QobiScheme.sc:166:5314 */ /* x296884 QobiScheme.sc:166:5321 */ t65892 = "This shouldn\'t happen"; /* x296883 QobiScheme.sc:166:5315 */ stalin_panic(t65892); l10946: /* x92771 stalin.sc:8123:277329 */ /* x92769 stalin.sc:8123:277353 */ /* x92768 stalin.sc:8123:277375 */ t65895 = p10350->a23248; /* x92767 stalin.sc:8123:277354 */ a38927 = t65895; /* x288377 */ /* x288376 */ t65896 = a38927; /* x288375 */ if (!((t65896.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33844]"); structure_ref_error();} t65893 = t65896.value.structure_type27698->s20; /* x92770 stalin.sc:8123:277378 */ t65894 = p10350->a23248; /* x92766 stalin.sc:8123:277330 */ f5576(t65893, t65894); /* x92776 stalin.sc:8124:277385 */ /* x92775 stalin.sc:8124:277391 */ /* x92774 stalin.sc:8124:277414 */ t65898 = p10350->a23248; /* x92773 stalin.sc:8124:277392 */ a39043 = t65898; /* x288841 */ /* x288840 */ t65899 = a39043; /* x288839 */ if (!((t65899.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33960]"); structure_ref_error();} t65897 = t65899.value.structure_type27698->s18; /* x92772 stalin.sc:8124:277386 */ f10316(t65897); /* x92781 stalin.sc:8125:277422 */ /* x92780 stalin.sc:8125:277428 */ /* x92779 stalin.sc:8125:277451 */ t65901 = p10350->a23248; /* x92778 stalin.sc:8125:277429 */ a38982 = t65901; /* x288597 */ /* x288596 */ t65902 = a38982; /* x288595 */ if (!((t65902.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33899]"); structure_ref_error();} t65900 = t65902.value.structure_type27698->s19; /* x92777 stalin.sc:8125:277423 */ f10316(t65900); /* x92705 */ t65860 = p10350; p10351 = t65860; /* x92704 stalin.sc:8126:277459 */ /* x92703 stalin.sc:8126:277465 */ /* x92702 stalin.sc:8126:277487 */ t65862 = p10351->a23248; /* x92701 stalin.sc:8126:277466 */ a19188 = t65862; /* x50421 */ /* x50420 */ t65863 = a19188; /* x50419 */ if (!((t65863.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-ALTERNATE[5647]"); structure_ref_error();} t65861 = t65863.value.structure_type27698->s20; /* x92700 stalin.sc:8126:277460 */ a23248 = t65861; goto h10316; l10925: /* x92886 */ /* x92788 */ /* x92786 */ t65815 = a23249; /* x92787 */ t65816 = q77; /* x92785 */ t65817.tag = EXTERNAL_SYMBOL_TYPE; t65817.value.external_symbol_type = t65815; t65818.tag = EXTERNAL_SYMBOL_TYPE; t65818.value.external_symbol_type = t65816; if (f26160(t65817, t65818)==FALSE_TYPE) goto l10927; /* x92791 */ /* x92790 */ /* x92789 stalin.sc:8127:277518 */ return; l10927: /* x92885 */ /* x92795 */ /* x92793 */ t65819 = a23249; /* x92794 */ t65820 = q78; /* x92792 */ t65821.tag = EXTERNAL_SYMBOL_TYPE; t65821.value.external_symbol_type = t65819; t65822.tag = EXTERNAL_SYMBOL_TYPE; t65822.value.external_symbol_type = t65820; if (f26160(t65821, t65822)==FALSE_TYPE) goto l10929; /* x92798 */ /* x92797 */ /* x92796 stalin.sc:8128:277546 */ return; l10929: /* x92884 */ /* x92802 */ /* x92800 */ t65823 = a23249; /* x92801 */ t65824 = q38; /* x92799 */ t65825.tag = EXTERNAL_SYMBOL_TYPE; t65825.value.external_symbol_type = t65823; t65826.tag = EXTERNAL_SYMBOL_TYPE; t65826.value.external_symbol_type = t65824; if (f26160(t65825, t65826)==FALSE_TYPE) goto l10931; /* x92805 */ /* x92804 */ /* x92803 stalin.sc:8129:277563 */ return; l10931: /* x92883 */ /* x92818 */ /* x92817 */ /* x92815 */ t65827 = a23249; /* x92816 */ t65828 = q36; /* x92814 */ t65829.tag = EXTERNAL_SYMBOL_TYPE; t65829.value.external_symbol_type = t65827; t65830.tag = EXTERNAL_SYMBOL_TYPE; t65830.value.external_symbol_type = t65828; if (!(f26160(t65829, t65830)==FALSE_TYPE)) goto l10932; /* x92811 */ /* x92809 */ t65831 = a23249; /* x92810 */ t65832 = q37; /* x92808 */ t65833.tag = EXTERNAL_SYMBOL_TYPE; t65833.value.external_symbol_type = t65831; t65834.tag = EXTERNAL_SYMBOL_TYPE; t65834.value.external_symbol_type = t65832; if (f26160(t65833, t65834)==FALSE_TYPE) goto l10933; l10932: /* x92878 */ /* x92877 */ t65836 = p10317; p10362 = t65836; /* x92876 */ /* x92864 stalin.sc:8131:277597 */ /* x92857 stalin.sc:8131:277605 */ /* x92854 stalin.sc:8131:277610 */ /* x92853 stalin.sc:8131:277629 */ /* x92852 stalin.sc:8131:277648 */ t65849 = p10362->a23248; /* x92851 stalin.sc:8131:277630 */ a38857 = t65849; /* x288097 */ /* x288096 */ t65850 = a38857; /* x288095 */ if (!((t65850.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33774]"); structure_ref_error();} t65847 = t65850.value.structure_type27698->s21; /* x92850 stalin.sc:8131:277611 */ a39818 = t65847; /* x291941 */ /* x291940 */ t65848 = a39818; /* x291939 */ if (!((t65848.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34735]"); structure_ref_error();} t65845 = t65848.value.structure_type27698->s11; /* x92856 stalin.sc:8131:277652 */ /* x92855 stalin.sc:8131:277653 */ /* x277413 stalin.sc:323:8604 */ t65846 = q35; /* x269805 stalin.sc:8131:277606 */ if (!(((t65845.tag)==EXTERNAL_SYMBOL_TYPE)&&((t65845.value.external_symbol_type)==t65846))) goto l10936; /* x92859 */ /* x92858 */ goto l10937; l10936: /* x92863 */ /* x92862 */ /* x92861 stalin.sc:8132:277672 */ /* x92860 stalin.sc:8132:277673 */ /* x296889 QobiScheme.sc:166:5314 */ /* x296888 QobiScheme.sc:166:5321 */ t65851 = "This shouldn\'t happen"; /* x296887 QobiScheme.sc:166:5315 */ stalin_panic(t65851); l10937: /* x92870 stalin.sc:8133:277687 */ /* x92868 stalin.sc:8133:277711 */ /* x92867 stalin.sc:8133:277730 */ t65854 = p10362->a23248; /* x92866 stalin.sc:8133:277712 */ a38858 = t65854; /* x288101 */ /* x288100 */ t65855 = a38858; /* x288099 */ if (!((t65855.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33775]"); structure_ref_error();} t65852 = t65855.value.structure_type27698->s21; /* x92869 stalin.sc:8133:277733 */ t65853 = p10362->a23248; /* x92865 stalin.sc:8133:277688 */ f5576(t65852, t65853); /* x92875 stalin.sc:8134:277740 */ /* x92874 stalin.sc:8134:277746 */ /* x92873 stalin.sc:8134:277765 */ t65857 = p10362->a23248; /* x92872 stalin.sc:8134:277747 */ a38859 = t65857; /* x288105 */ /* x288104 */ t65858 = a38859; /* x288103 */ if (!((t65858.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33776]"); structure_ref_error();} t65856 = t65858.value.structure_type27698->s21; /* x92871 stalin.sc:8134:277741 */ f10316(t65856); /* x92848 */ t65837 = p10362; p10363 = t65837; /* x92847 stalin.sc:8135:277773 */ /* x92846 stalin.sc:8139:277930 */ /* x92845 stalin.sc:8139:277952 */ t65843 = p10363->a23248; /* x92844 stalin.sc:8139:277931 */ a19208 = t65843; /* x50499 */ /* x50498 */ t65844 = a19208; /* x50497 */ if (!((t65844.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-ARGUMENTS[5663]"); structure_ref_error();} t65839 = t65844.value.structure_type27698->s22; /* x92843 */ t65838 = p10363; /* x92819 stalin.sc:8135:277774 */ t65840.tag = NATIVE_PROCEDURE_TYPE24279; t65840.value.native_procedure_type24279 = t65838; t65841 = *((struct w49 *)(&t65839)); t65842 = (struct structure_type24753 *)NULL_TYPE; f27755(t65840, t65841, t65842); return; l10933: /* x92882 */ /* x92881 */ /* x92880 stalin.sc:8140:277966 */ /* x92879 stalin.sc:8140:277967 */ /* x297025 QobiScheme.sc:166:5314 */ /* x297024 QobiScheme.sc:166:5321 */ t65835 = "This shouldn\'t happen"; /* x297023 QobiScheme.sc:166:5315 */ stalin_panic(t65835);} /* [inside ANNOTATE-EXPRESSIONS-WITH-THEIR-PARENTS! 10313] */ void f10313(struct w49 a23245) {struct w49 t65982; char *t65983; struct w49 t65984; /* x92418 stalin.sc:8072:275480 */ /* x92415 stalin.sc:8072:275504 */ t65982 = a23245; /* x92417 stalin.sc:8072:275506 */ /* x92416 stalin.sc:8072:275507 */ /* x277489 stalin.sc:323:8604 */ t65983 = q35; /* x92414 stalin.sc:8072:275481 */ t65984.tag = EXTERNAL_SYMBOL_TYPE; t65984.value.external_symbol_type = t65983; f5576(t65982, t65984); return;} /* ANNOTATE-EXPRESSIONS-WITH-THEIR-PARENTS![10310] */ void f10310(void) {struct w21193 t65985; unsigned t65986; struct w49 t65987; struct w12224 t65988; struct w21193 t65989; struct w36108 t65990; struct w49 t65991; struct structure_type24753 *t65992; struct w49 t65993; struct w49 t65994; struct w49 t65995; struct w21193 t65996; unsigned t65997; struct w49 t65998; struct w12224 t65999; struct w21193 t66000; unsigned t66001; struct w49 t66002; struct w12224 t66003; struct w21193 t66004; unsigned t66005; struct w49 t66006; struct w12224 t66007; struct w21193 t66008; unsigned t66009; struct w49 t66010; struct w12224 t66011; /* x92963 */ /* x92421 stalin.sc:8072:275458 */ /* x92420 stalin.sc:8072:275522 */ t65989 = a2031; /* x92419 stalin.sc:8072:275468 */ /* x92413 stalin.sc:8072:275459 */ t65990.tag = NATIVE_PROCEDURE_TYPE16693; t65991 = *((struct w49 *)(&t65989)); t65992 = (struct structure_type24753 *)NULL_TYPE; f27755(t65990, t65991, t65992); /* x92425 stalin.sc:8073:275529 */ /* x92423 stalin.sc:8073:275553 */ t65993 = a2026; /* x92424 stalin.sc:8073:275557 */ /* x92422 stalin.sc:8073:275530 */ t65994.tag = FALSE_TYPE; f5576(t65993, t65994); /* x92914 stalin.sc:8074:275562 */ /* x92913 stalin.sc:8074:275576 */ t65995 = a2026; /* x92912 */ /* x92911 */ /* x92910 */ /* x92909 */ /* x92908 */ /* x92907 */ /* x92906 */ /* x92427 */ /* x92426 stalin.sc:8074:275567 */ f10316(t65995); /* x92926 stalin.sc:8143:278090 */ /* x92925 stalin.sc:8144:278108 */ /* x92923 stalin.sc:8144:278119 */ /* x92924 stalin.sc:8144:278174 */ t65996 = a2031; /* x92915 stalin.sc:8144:278109 */ t65997 = NATIVE_PROCEDURE_TYPE16686; t65998 = *((struct w49 *)(&t65996)); t65999 = f1218(t65997, t65998); a2031 = *((struct w21193 *)(&t65999)); /* x92938 stalin.sc:8145:278182 */ /* x92937 stalin.sc:8146:278203 */ /* x92935 stalin.sc:8146:278214 */ /* x92936 stalin.sc:8147:278273 */ t66000 = a2030; /* x92927 stalin.sc:8146:278204 */ t66001 = NATIVE_PROCEDURE_TYPE16685; t66002 = *((struct w49 *)(&t66000)); t66003 = f1218(t66001, t66002); a2030 = *((struct w21193 *)(&t66003)); /* x92950 stalin.sc:8148:278284 */ /* x92949 stalin.sc:8149:278308 */ /* x92947 stalin.sc:8149:278319 */ /* x92948 stalin.sc:8150:278378 */ t66004 = a2029; /* x92939 stalin.sc:8149:278309 */ t66005 = NATIVE_PROCEDURE_TYPE16684; t66006 = *((struct w49 *)(&t66004)); t66007 = f1218(t66005, t66006); a2029 = *((struct w21193 *)(&t66007)); /* x92962 stalin.sc:8151:278392 */ /* x92961 stalin.sc:8152:278419 */ /* x92959 stalin.sc:8152:278430 */ /* x92960 stalin.sc:8153:278489 */ t66008 = a2028; /* x92951 stalin.sc:8152:278420 */ t66009 = NATIVE_PROCEDURE_TYPE16683; t66010 = *((struct w49 *)(&t66008)); t66011 = f1218(t66009, t66010); a2028 = *((struct w21193 *)(&t66011)); /* x92412 */ /* x92411 stalin.sc:8154:278506 */ /* x92410 stalin.sc:8155:278532 */ /* x92408 stalin.sc:8155:278543 */ /* x92409 stalin.sc:8156:278602 */ t65985 = a2027; /* x92400 stalin.sc:8155:278533 */ t65986 = NATIVE_PROCEDURE_TYPE17796; t65987 = *((struct w49 *)(&t65985)); t65988 = f1218(t65986, t65987); a2027 = *((struct w21193 *)(&t65988)); return;} /* [inside FAST-TREE-SHAKE! 10308] */ unsigned f10308(struct p10307 *p10308, struct w49 a23236) {struct w49 a39170; /* S */ struct w49 a39171; /* S */ struct w49 a40371; /* S */ char *t66012; char *t66013; struct w49 t66014; struct w49 t66015; struct w49 t66016; struct w49 t66017; struct w49 t66018; struct w49 t66019; struct w49 t66020; struct w49 t66021; /* x92310 stalin.sc:7678:263082 */ /* x92310 stalin.sc:7678:263082 */ /* x92300 stalin.sc:7678:263087 */ /* x92298 stalin.sc:7678:263092 */ /* x92297 stalin.sc:7678:263109 */ t66014 = a23236; /* x92296 stalin.sc:7678:263093 */ a40371 = t66014; /* x294153 */ /* x294152 */ t66015 = a40371; /* x294151 */ if (!((t66015.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35288]"); structure_ref_error();} t66012 = t66015.value.structure_type27698->s0; /* x92299 stalin.sc:7678:263113 */ t66013 = q42; /* x269824 stalin.sc:7678:263088 */ if (!(t66012==t66013)) goto l10962; /* x92308 */ /* x92304 stalin.sc:7679:263129 */ /* x92303 stalin.sc:7679:263150 */ t66018 = p10308->a23235; /* x92302 stalin.sc:7679:263130 */ a39170 = t66018; /* x289349 */ /* x289348 */ t66019 = a39170; /* x289347 */ if (!((t66019.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34087]"); structure_ref_error();} t66016 = t66019.value.structure_type27698->s16; /* x92307 stalin.sc:7680:263162 */ /* x92306 stalin.sc:7680:263183 */ t66020 = a23236; /* x92305 stalin.sc:7680:263163 */ a39171 = t66020; /* x289353 */ /* x289352 */ t66021 = a39171; /* x289351 */ if (!((t66021.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34088]"); structure_ref_error();} t66017 = t66021.value.structure_type27698->s16; /* x269823 stalin.sc:7679:263125 */ /* EQ: dispatching general to general */ if (!((t66016.tag)==(t66017.tag))) goto l10962; switch (t66016.tag) {case FIXNUM_TYPE: if (!((t66016.value.fixnum_type)==(t66017.value.fixnum_type))) goto l10962; break; case FLONUM_TYPE: if (!((t66016.value.flonum_type)==(t66017.value.flonum_type))) goto l10962; break; case INPUT_PORT_TYPE: if (!((t66016.value.input_port_type)==(t66017.value.input_port_type))) goto l10962; break; case OUTPUT_PORT_TYPE: if (!((t66016.value.output_port_type)==(t66017.value.output_port_type))) goto l10962; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t66016.value.native_procedure_type15963)==(t66017.value.native_procedure_type15963))) goto l10962; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t66016.value.native_procedure_type19067)==(t66017.value.native_procedure_type19067))) goto l10962; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t66016.value.native_procedure_type19068)==(t66017.value.native_procedure_type19068))) goto l10962; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t66016.value.native_procedure_type22459)==(t66017.value.native_procedure_type22459))) goto l10962; break; case STRUCTURE_TYPE24753: if (!((t66016.value.structure_type24753)==(t66017.value.structure_type24753))) goto l10962; break; case STRUCTURE_TYPE24757: if (!((t66016.value.structure_type24757)==(t66017.value.structure_type24757))) goto l10962; break; case STRUCTURE_TYPE27501: if (!((t66016.value.structure_type27501)==(t66017.value.structure_type27501))) goto l10962; break; case STRUCTURE_TYPE27510: if (!((t66016.value.structure_type27510)==(t66017.value.structure_type27510))) goto l10962; break; case STRUCTURE_TYPE27621: if (!((t66016.value.structure_type27621)==(t66017.value.structure_type27621))) goto l10962; break; case STRUCTURE_TYPE27650: if (!((t66016.value.structure_type27650)==(t66017.value.structure_type27650))) goto l10962; break; case STRUCTURE_TYPE27669: if (!((t66016.value.structure_type27669)==(t66017.value.structure_type27669))) goto l10962; break; case STRUCTURE_TYPE27673: if (!((t66016.value.structure_type27673)==(t66017.value.structure_type27673))) goto l10962; break; case STRUCTURE_TYPE27692: if (!((t66016.value.structure_type27692)==(t66017.value.structure_type27692))) goto l10962; break; case STRUCTURE_TYPE27694: if (!((t66016.value.structure_type27694)==(t66017.value.structure_type27694))) goto l10962; break; case STRUCTURE_TYPE27698: if (!((t66016.value.structure_type27698)==(t66017.value.structure_type27698))) goto l10962; break; case STRUCTURE_TYPE27745: if (!((t66016.value.structure_type27745)==(t66017.value.structure_type27745))) goto l10962; break; case STRUCTURE_TYPE27747: if (!((t66016.value.structure_type27747)==(t66017.value.structure_type27747))) goto l10962; break; case STRUCTURE_TYPE27750: if (!((t66016.value.structure_type27750)==(t66017.value.structure_type27750))) goto l10962; break; case STRUCTURE_TYPE27753: if (!((t66016.value.structure_type27753)==(t66017.value.structure_type27753))) goto l10962; break; case STRUCTURE_TYPE27756: if (!((t66016.value.structure_type27756)==(t66017.value.structure_type27756))) goto l10962; break; case STRUCTURE_TYPE27761: if (!((t66016.value.structure_type27761)==(t66017.value.structure_type27761))) goto l10962; break; case STRUCTURE_TYPE27769: if (!((t66016.value.structure_type27769)==(t66017.value.structure_type27769))) goto l10962; break; case STRUCTURE_TYPE27776: if (!((t66016.value.structure_type27776)==(t66017.value.structure_type27776))) goto l10962; break; case STRUCTURE_TYPE27779: if (!((t66016.value.structure_type27779)==(t66017.value.structure_type27779))) goto l10962; break; case STRUCTURE_TYPE27858: if (!((t66016.value.structure_type27858)==(t66017.value.structure_type27858))) goto l10962; break; case STRING_TYPE: if (!((t66016.value.string_type)==(t66017.value.string_type))) goto l10962; break; case HEADED_VECTOR_TYPE27896: if (!((t66016.value.headed_vector_type27896)==(t66017.value.headed_vector_type27896))) goto l10962; break; case EXTERNAL_SYMBOL_TYPE: if (!((t66016.value.external_symbol_type)==(t66017.value.external_symbol_type))) goto l10962; break; case STRUCTURE_TYPE27908: if (!((t66016.value.structure_type27908)==(t66017.value.structure_type27908))) goto l10962; break; default:;} return TRUE_TYPE; l10962: return FALSE_TYPE;} /* LOOP[10255] */ void f10255(struct w49 a23216) {char *a23219; /* v */ struct w49 a23226; /* GS */ struct structure_type24753 *a35522; /* PAIR */ struct structure_type24753 *a36069; /* PAIR */ struct structure_type24753 *a36091; /* PAIR */ struct w16611 a37023; /* OBJ */ struct w49 a38589; /* S */ struct w49 a38782; /* S */ struct w49 a38923; /* S */ struct w49 a38977; /* S */ struct w49 a39036; /* S */ struct w49 a39079; /* S */ struct w49 a39166; /* S */ struct w49 a39167; /* S */ struct w49 a39332; /* S */ struct w49 a39333; /* S */ struct w49 a39448; /* S */ struct w49 a39555; /* S */ struct w49 a39601; /* S */ struct w49 a39602; /* S */ struct w49 a40367; /* S */ char *t66022; char *t66023; char *t66024; struct w49 t66025; struct w49 t66026; char *t66027; char *t66028; struct w49 t66029; struct w49 t66030; char *t66031; char *t66032; struct w49 t66033; struct w49 t66034; char *t66035; char *t66036; struct w49 t66037; struct w49 t66038; char *t66039; char *t66040; struct w49 t66041; struct w49 t66042; char *t66043; char *t66044; struct w49 t66045; struct w49 t66046; char *t66047; char *t66048; struct w49 t66049; struct w49 t66050; char *t66051; char *t66052; struct w49 t66053; struct w49 t66054; char *t66055; char *t66056; struct w49 t66057; struct w49 t66058; char *t66059; char *t66060; struct w49 t66061; struct w49 t66062; char *t66063; char *t66064; struct w49 t66065; struct w49 t66066; char *t66067; char *t66068; struct w49 t66069; struct w49 t66070; char *t66071; char *t66072; struct w49 t66073; struct w49 t66074; char *t66075; char *t66076; struct w49 t66077; struct w49 t66078; char *t66079; char *t66080; struct w49 t66081; struct w49 t66082; char *t66083; char *t66084; struct w49 t66085; struct w49 t66086; char *t66087; char *t66088; struct w49 t66089; struct w49 t66090; char *t66091; char *t66092; struct w49 t66093; struct w49 t66094; char *t66095; char *t66096; struct w49 t66097; struct w49 t66098; char *t66099; char *t66100; struct w49 t66101; struct w49 t66102; char *t66103; char *t66104; struct w49 t66105; struct w49 t66106; char *t66107; struct w11873 t66108; struct w36108 t66109; struct w49 t66110; struct structure_type24753 *t66111; struct w49 t66112; struct w49 t66113; struct w49 t66114; struct w49 t66115; struct w49 t66116; struct w49 t66117; struct w21193 t66118; struct w49 t66119; struct w49 t66120; struct w49 t66121; char *t66122; struct w49 t66123; struct w49 t66124; struct w49 t66125; struct w49 t66126; struct w49 t66127; struct w49 t66128; struct w49 t66129; struct w49 t66130; struct w49 t66131; struct w49 t66132; struct w49 t66133; struct w49 t66134; struct w49 t66135; struct w21193 t66136; struct w49 t66137; struct w49 t66138; struct w49 t66139; char *t66140; struct w49 t66141; struct w49 t66142; struct w49 t66143; struct w49 t66144; struct w49 t66145; struct w9296 t66146; struct w49 t66147; struct w16611 t66148; struct w16611 t66149; struct w16611 t66150; struct w49 t66151; unsigned t66152; struct w16611 t66153; struct w21193 t66154; struct w49 t66155; struct w49 t66156; char *t66157; struct w49 t66158; struct structure_type24753 *t66159; struct structure_type24753 *t66160; struct w49 t66161; struct w21193 t66162; struct w49 t66163; struct structure_type24753 *t66164; struct structure_type24753 *t66165; char *t66166; struct w49 t66167; unsigned t66168; struct structure_type24753 *t66169; struct structure_type24753 *t66170; struct w49 t66171; struct w49 t66172; struct w49 t66173; unsigned t66174; struct w49 t66175; struct w49 t66176; struct w49 t66177; struct w49 t66178; struct w49 t66179; struct w49 t66180; struct w49 t66181; struct w49 t66182; struct w49 t66183; struct w49 t66184; struct w49 t66185; struct w49 t66186; struct w49 t66187; struct w49 t66188; struct w21193 t66189; struct w49 t66190; char *t66191; struct w49 t66192; unsigned t66193; h10255: /* x92253 */ /* x92248 stalin.sc:8025:273804 */ /* x92241 stalin.sc:8025:273812 */ /* x92239 stalin.sc:8025:273818 */ t66188 = a23216; /* x92240 stalin.sc:8025:273820 */ t66189 = a2031; /* x92238 stalin.sc:8025:273813 */ t66190 = *((struct w49 *)(&t66189)); if ((f26351(t66188, t66190).tag)==FALSE_TYPE) goto l11024; /* x92243 */ /* x92242 */ goto l11025; l11024: /* x92247 */ /* x92246 */ /* x92245 stalin.sc:8025:273826 */ /* x92244 stalin.sc:8025:273827 */ /* x296977 QobiScheme.sc:166:5314 */ /* x296976 QobiScheme.sc:166:5321 */ t66191 = "This shouldn\'t happen"; /* x296975 QobiScheme.sc:166:5315 */ stalin_panic(t66191); l11025: /* x92252 stalin.sc:8026:273841 */ /* x92250 stalin.sc:8026:273868 */ t66192 = a23216; /* x92251 stalin.sc:8026:273870 */ /* x92249 stalin.sc:8026:273842 */ t66193 = TRUE_TYPE; f6937(t66192, t66193); /* x92237 */ /* x92236 stalin.sc:8027:273878 */ /* x92235 stalin.sc:8027:273884 */ /* x92234 stalin.sc:8027:273901 */ t66186 = a23216; /* x92233 stalin.sc:8027:273885 */ a40367 = t66186; /* x294137 */ /* x294136 */ t66187 = a40367; /* x294135 */ if (!((t66187.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35284]"); structure_ref_error();} t66022 = t66187.value.structure_type27698->s0; /* x92232 */ a23219 = t66022; /* x92231 */ /* x91897 */ /* x91895 */ t66023 = a23219; /* x91896 */ t66024 = q68; /* x91894 */ t66025.tag = EXTERNAL_SYMBOL_TYPE; t66025.value.external_symbol_type = t66023; t66026.tag = EXTERNAL_SYMBOL_TYPE; t66026.value.external_symbol_type = t66024; if (f26160(t66025, t66026)==FALSE_TYPE) goto l10966; /* x91900 */ /* x91899 */ /* x91898 stalin.sc:8028:273926 */ return; l10966: /* x92230 */ /* x91904 */ /* x91902 */ t66027 = a23219; /* x91903 */ t66028 = q69; /* x91901 */ t66029.tag = EXTERNAL_SYMBOL_TYPE; t66029.value.external_symbol_type = t66027; t66030.tag = EXTERNAL_SYMBOL_TYPE; t66030.value.external_symbol_type = t66028; if (f26160(t66029, t66030)==FALSE_TYPE) goto l10968; /* x91907 */ /* x91906 */ /* x91905 stalin.sc:8029:273952 */ return; l10968: /* x92229 */ /* x91911 */ /* x91909 */ t66031 = a23219; /* x91910 */ t66032 = q70; /* x91908 */ t66033.tag = EXTERNAL_SYMBOL_TYPE; t66033.value.external_symbol_type = t66031; t66034.tag = EXTERNAL_SYMBOL_TYPE; t66034.value.external_symbol_type = t66032; if (f26160(t66033, t66034)==FALSE_TYPE) goto l10970; /* x91914 */ /* x91913 */ /* x91912 stalin.sc:8030:273979 */ return; l10970: /* x92228 */ /* x91918 */ /* x91916 */ t66035 = a23219; /* x91917 */ t66036 = q71; /* x91915 */ t66037.tag = EXTERNAL_SYMBOL_TYPE; t66037.value.external_symbol_type = t66035; t66038.tag = EXTERNAL_SYMBOL_TYPE; t66038.value.external_symbol_type = t66036; if (f26160(t66037, t66038)==FALSE_TYPE) goto l10972; /* x91921 */ /* x91920 */ /* x91919 stalin.sc:8031:274005 */ return; l10972: /* x92227 */ /* x91925 */ /* x91923 */ t66039 = a23219; /* x91924 */ t66040 = q72; /* x91922 */ t66041.tag = EXTERNAL_SYMBOL_TYPE; t66041.value.external_symbol_type = t66039; t66042.tag = EXTERNAL_SYMBOL_TYPE; t66042.value.external_symbol_type = t66040; if (f26160(t66041, t66042)==FALSE_TYPE) goto l10974; /* x91928 */ /* x91927 */ /* x91926 stalin.sc:8032:274033 */ return; l10974: /* x92226 */ /* x91932 */ /* x91930 */ t66043 = a23219; /* x91931 */ t66044 = q73; /* x91929 */ t66045.tag = EXTERNAL_SYMBOL_TYPE; t66045.value.external_symbol_type = t66043; t66046.tag = EXTERNAL_SYMBOL_TYPE; t66046.value.external_symbol_type = t66044; if (f26160(t66045, t66046)==FALSE_TYPE) goto l10976; /* x91935 */ /* x91934 */ /* x91933 stalin.sc:8033:274061 */ return; l10976: /* x92225 */ /* x91939 */ /* x91937 */ t66047 = a23219; /* x91938 */ t66048 = q74; /* x91936 */ t66049.tag = EXTERNAL_SYMBOL_TYPE; t66049.value.external_symbol_type = t66047; t66050.tag = EXTERNAL_SYMBOL_TYPE; t66050.value.external_symbol_type = t66048; if (f26160(t66049, t66050)==FALSE_TYPE) goto l10978; /* x91942 */ /* x91941 */ /* x91940 stalin.sc:8034:274094 */ return; l10978: /* x92224 */ /* x91946 */ /* x91944 */ t66051 = a23219; /* x91945 */ t66052 = q75; /* x91943 */ t66053.tag = EXTERNAL_SYMBOL_TYPE; t66053.value.external_symbol_type = t66051; t66054.tag = EXTERNAL_SYMBOL_TYPE; t66054.value.external_symbol_type = t66052; if (f26160(t66053, t66054)==FALSE_TYPE) goto l10980; /* x91949 */ /* x91948 */ /* x91947 stalin.sc:8035:274122 */ return; l10980: /* x92223 */ /* x91953 */ /* x91951 */ t66055 = a23219; /* x91952 */ t66056 = q76; /* x91950 */ t66057.tag = EXTERNAL_SYMBOL_TYPE; t66057.value.external_symbol_type = t66055; t66058.tag = EXTERNAL_SYMBOL_TYPE; t66058.value.external_symbol_type = t66056; if (f26160(t66057, t66058)==FALSE_TYPE) goto l10982; /* x91956 */ /* x91955 */ /* x91954 stalin.sc:8036:274150 */ return; l10982: /* x92222 */ /* x91960 */ /* x91958 */ t66059 = a23219; /* x91959 */ t66060 = q50; /* x91957 */ t66061.tag = EXTERNAL_SYMBOL_TYPE; t66061.value.external_symbol_type = t66059; t66062.tag = EXTERNAL_SYMBOL_TYPE; t66062.value.external_symbol_type = t66060; if (f26160(t66061, t66062)==FALSE_TYPE) goto l10984; /* x91978 */ /* x91977 */ /* x91976 */ /* x91975 stalin.sc:8038:274182 */ /* x91974 stalin.sc:8038:274188 */ /* x91973 stalin.sc:8038:274193 */ /* x91972 stalin.sc:8038:274214 */ t66184 = a23216; /* x91971 stalin.sc:8038:274194 */ a39601 = t66184; /* x291073 */ /* x291072 */ t66185 = a39601; /* x291071 */ if (!((t66185.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34518]"); structure_ref_error();} t66183 = t66185.value.structure_type27698->s12; /* x269828 stalin.sc:8038:274189 */ if (!((t66183.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 8038, 274188); structure_ref_error();} t66182 = t66183.value.structure_type24753->s0; /* x91969 stalin.sc:8038:274183 */ f10255(t66182); /* x91968 */ /* x91967 stalin.sc:8039:274225 */ /* x91966 stalin.sc:8039:274231 */ /* x91965 stalin.sc:8039:274236 */ /* x91964 stalin.sc:8039:274257 */ t66180 = a23216; /* x91963 stalin.sc:8039:274237 */ a39555 = t66180; /* x290889 */ /* x290888 */ t66181 = a39555; /* x290887 */ if (!((t66181.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34472]"); structure_ref_error();} t66179 = t66181.value.structure_type27698->s12; /* x269829 stalin.sc:8039:274232 */ if (!((t66179.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 8039, 274231); structure_ref_error();} t66178 = t66179.value.structure_type24753->s1; /* x91961 stalin.sc:8039:274226 */ a23216 = t66178; goto h10255; l10984: /* x92221 */ /* x91982 */ /* x91980 */ t66063 = a23219; /* x91981 */ t66064 = q52; /* x91979 */ t66065.tag = EXTERNAL_SYMBOL_TYPE; t66065.value.external_symbol_type = t66063; t66066.tag = EXTERNAL_SYMBOL_TYPE; t66066.value.external_symbol_type = t66064; if (f26160(t66065, t66066)==FALSE_TYPE) goto l10986; /* x91990 */ /* x91989 */ /* x91988 stalin.sc:8040:274287 */ /* x91987 stalin.sc:8040:274309 */ /* x91986 stalin.sc:8040:274330 */ t66176 = a23216; /* x91985 stalin.sc:8040:274310 */ a39602 = t66176; /* x291077 */ /* x291076 */ t66177 = a39602; /* x291075 */ if (!((t66177.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34519]"); structure_ref_error();} t66173 = t66177.value.structure_type27698->s12; /* x91984 stalin.sc:8040:274304 */ /* x91983 stalin.sc:8040:274288 */ t66174 = (unsigned)NATIVE_PROCEDURE_TYPE17077; t66175 = t66173; f1141(t66174, t66175); return; l10986: /* x92220 */ /* x92012 */ /* x92011 */ /* x92009 */ t66067 = a23219; /* x92010 */ t66068 = q39; /* x92008 */ t66069.tag = EXTERNAL_SYMBOL_TYPE; t66069.value.external_symbol_type = t66067; t66070.tag = EXTERNAL_SYMBOL_TYPE; t66070.value.external_symbol_type = t66068; if (!(f26160(t66069, t66070)==FALSE_TYPE)) goto l10987; /* x92005 */ /* x92004 */ /* x92002 */ t66071 = a23219; /* x92003 */ t66072 = q40; /* x92001 */ t66073.tag = EXTERNAL_SYMBOL_TYPE; t66073.value.external_symbol_type = t66071; t66074.tag = EXTERNAL_SYMBOL_TYPE; t66074.value.external_symbol_type = t66072; if (!(f26160(t66073, t66074)==FALSE_TYPE)) goto l10987; /* x91998 */ /* x91996 */ t66075 = a23219; /* x91997 */ t66076 = q41; /* x91995 */ t66077.tag = EXTERNAL_SYMBOL_TYPE; t66077.value.external_symbol_type = t66075; t66078.tag = EXTERNAL_SYMBOL_TYPE; t66078.value.external_symbol_type = t66076; if (f26160(t66077, t66078)==FALSE_TYPE) goto l10988; l10987: /* x92099 */ /* x92098 */ /* x92097 */ /* x92096 stalin.sc:8042:274396 */ /* x92095 stalin.sc:8042:274411 */ /* x92094 stalin.sc:8042:274434 */ t66171 = a23216; /* x92093 stalin.sc:8042:274412 */ a39448 = t66171; /* x290461 */ /* x290460 */ t66172 = a39448; /* x290459 */ if (!((t66172.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34365]"); structure_ref_error();} t66146 = t66172.value.structure_type27698->s14; /* x92092 */ /* x92091 */ /* x92090 */ /* x92089 */ /* x92088 */ /* x92087 */ /* x92086 */ /* x92028 */ /* x92027 stalin.sc:8042:274401 */ a23226 = *((struct w49 *)(&t66146)); h10278: /* x92085 stalin.sc:8043:274446 */ /* x92031 stalin.sc:8043:274453 */ /* x92030 stalin.sc:8043:274460 */ t66147 = a23226; /* x269827 stalin.sc:8043:274454 */ if (!((t66147.tag)==STRUCTURE_TYPE24753)) goto l11012; /* x92059 */ /* x92058 */ /* x92057 */ /* x92050 stalin.sc:8044:274471 */ /* x92043 stalin.sc:8044:274479 */ /* x92041 stalin.sc:8044:274485 */ /* x92040 stalin.sc:8044:274492 */ t66164 = a23226.value.structure_type24753; /* x92039 stalin.sc:8044:274486 */ a36069 = t66164; /* x275633 */ /* x275632 */ t66165 = a36069; /* x275631 */ t66161 = t66165->s0; /* x92042 stalin.sc:8044:274496 */ t66162 = a1633; /* x92038 stalin.sc:8044:274480 */ t66163 = *((struct w49 *)(&t66162)); if ((f26351(t66161, t66163).tag)==FALSE_TYPE) goto l11021; /* x92045 */ /* x92044 */ goto l11022; l11021: /* x92049 */ /* x92048 */ /* x92047 stalin.sc:8044:274502 */ /* x92046 stalin.sc:8044:274503 */ /* x296437 QobiScheme.sc:166:5314 */ /* x296436 QobiScheme.sc:166:5321 */ t66166 = "This shouldn\'t happen"; /* x296435 QobiScheme.sc:166:5315 */ stalin_panic(t66166); l11022: /* x92056 stalin.sc:8045:274520 */ /* x92054 stalin.sc:8045:274545 */ /* x92053 stalin.sc:8045:274552 */ t66169 = a23226.value.structure_type24753; /* x92052 stalin.sc:8045:274546 */ a36091 = t66169; /* x275721 */ /* x275720 */ t66170 = a36091; /* x275719 */ t66167 = t66170->s0; /* x92055 stalin.sc:8045:274556 */ /* x92051 stalin.sc:8045:274521 */ t66168 = TRUE_TYPE; f8195(t66167, t66168); /* x92037 */ /* x92036 stalin.sc:8046:274567 */ /* x92035 stalin.sc:8046:274573 */ /* x92034 stalin.sc:8046:274579 */ t66159 = a23226.value.structure_type24753; /* x92033 stalin.sc:8046:274574 */ a35522 = t66159; /* x273445 */ /* x273444 */ t66160 = a35522; /* x273443 */ t66158 = t66160->s1; /* x92032 stalin.sc:8046:274568 */ a23226 = t66158; goto h10278; goto l11013; l11012: /* x92084 */ /* x92062 stalin.sc:8047:274592 */ /* x92061 stalin.sc:8047:274603 */ t66148 = *((struct w16611 *)(&a23226)); /* x92060 stalin.sc:8047:274593 */ a37023 = t66148; /* x280761 */ /* x280760 */ t66149 = a37023; /* x280759 */ if (!((t66149.tag)==STRUCTURE_TYPE27692)) goto l11015; /* x92081 */ /* x92080 */ /* x92079 */ /* x92078 stalin.sc:8048:274614 */ /* x92071 stalin.sc:8048:274622 */ /* x92069 stalin.sc:8048:274628 */ t66153 = *((struct w16611 *)(&a23226)); /* x92070 stalin.sc:8048:274631 */ t66154 = a1633; /* x92068 stalin.sc:8048:274623 */ t66155 = *((struct w49 *)(&t66153)); t66156 = *((struct w49 *)(&t66154)); if ((f26351(t66155, t66156).tag)==FALSE_TYPE) goto l11018; /* x92073 */ /* x92072 */ goto l11019; l11018: /* x92077 */ /* x92076 */ /* x92075 stalin.sc:8048:274637 */ /* x92074 stalin.sc:8048:274638 */ /* x296961 QobiScheme.sc:166:5314 */ /* x296960 QobiScheme.sc:166:5321 */ t66157 = "This shouldn\'t happen"; /* x296959 QobiScheme.sc:166:5315 */ stalin_panic(t66157); l11019: /* x92067 */ /* x92066 stalin.sc:8049:274655 */ /* x92064 stalin.sc:8049:274680 */ t66150 = *((struct w16611 *)(&a23226)); /* x92065 stalin.sc:8049:274683 */ /* x92063 stalin.sc:8049:274656 */ t66151 = *((struct w49 *)(&t66150)); t66152 = TRUE_TYPE; f8195(t66151, t66152); goto l11016; l11015: /* x92083 */ /* x92082 */ l11016: l11013: /* x92026 */ /* x92025 stalin.sc:8050:274696 */ /* x92015 stalin.sc:8050:274702 */ /* x92014 stalin.sc:8050:274719 */ t66141 = a23216; /* x92013 stalin.sc:8050:274703 */ a39333 = t66141; /* x290001 */ /* x290000 */ t66142 = a39333; /* x289999 */ if (!((t66142.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34250]"); structure_ref_error();} if ((t66142.value.structure_type27698->s15.tag)==FALSE_TYPE) goto l11010; /* x92022 */ /* x92021 */ /* x92020 stalin.sc:8050:274722 */ /* x92019 stalin.sc:8050:274728 */ /* x92018 stalin.sc:8050:274745 */ t66144 = a23216; /* x92017 stalin.sc:8050:274729 */ a39332 = t66144; /* x289997 */ /* x289996 */ t66145 = a39332; /* x289995 */ if (!((t66145.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34249]"); structure_ref_error();} t66143 = t66145.value.structure_type27698->s15; /* x92016 stalin.sc:8050:274723 */ a23216 = t66143; goto h10255; l11010: /* x92024 stalin.sc:8050:274696 */ /* x92023 stalin.sc:8050:274696 */ return; l10988: /* x92219 */ /* x92103 */ /* x92101 */ t66079 = a23219; /* x92102 */ t66080 = q42; /* x92100 */ t66081.tag = EXTERNAL_SYMBOL_TYPE; t66081.value.external_symbol_type = t66079; t66082.tag = EXTERNAL_SYMBOL_TYPE; t66082.value.external_symbol_type = t66080; if (f26160(t66081, t66082)==FALSE_TYPE) goto l10992; /* x92125 */ /* x92124 */ /* x92123 */ /* x92122 stalin.sc:8052:274770 */ /* x92115 stalin.sc:8052:274778 */ /* x92113 stalin.sc:8052:274784 */ /* x92112 stalin.sc:8052:274805 */ t66138 = a23216; /* x92111 stalin.sc:8052:274785 */ a39166 = t66138; /* x289333 */ /* x289332 */ t66139 = a39166; /* x289331 */ if (!((t66139.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34083]"); structure_ref_error();} t66135 = t66139.value.structure_type27698->s16; /* x92114 stalin.sc:8052:274808 */ t66136 = a1633; /* x92110 stalin.sc:8052:274779 */ t66137 = *((struct w49 *)(&t66136)); if ((f26351(t66135, t66137).tag)==FALSE_TYPE) goto l11007; /* x92117 */ /* x92116 */ goto l11008; l11007: /* x92121 */ /* x92120 */ /* x92119 stalin.sc:8052:274814 */ /* x92118 stalin.sc:8052:274815 */ /* x296965 QobiScheme.sc:166:5314 */ /* x296964 QobiScheme.sc:166:5321 */ t66140 = "This shouldn\'t happen"; /* x296963 QobiScheme.sc:166:5315 */ stalin_panic(t66140); l11008: /* x92109 */ /* x92108 stalin.sc:8053:274831 */ /* x92107 stalin.sc:8053:274837 */ /* x92106 stalin.sc:8053:274856 */ t66133 = a23216; /* x92105 stalin.sc:8053:274838 */ a39079 = t66133; /* x288985 */ /* x288984 */ t66134 = a39079; /* x288983 */ if (!((t66134.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33996]"); structure_ref_error();} t66132 = t66134.value.structure_type27698->s17; /* x92104 stalin.sc:8053:274832 */ a23216 = t66132; goto h10255; l10992: /* x92218 */ /* x92129 */ /* x92127 */ t66083 = a23219; /* x92128 */ t66084 = q43; /* x92126 */ t66085.tag = EXTERNAL_SYMBOL_TYPE; t66085.value.external_symbol_type = t66083; t66086.tag = EXTERNAL_SYMBOL_TYPE; t66086.value.external_symbol_type = t66084; if (f26160(t66085, t66086)==FALSE_TYPE) goto l10994; /* x92148 */ /* x92147 */ /* x92146 */ /* x92140 stalin.sc:8055:274878 */ /* x92139 stalin.sc:8055:274884 */ /* x92138 stalin.sc:8055:274907 */ t66127 = a23216; /* x92137 stalin.sc:8055:274885 */ a39036 = t66127; /* x288813 */ /* x288812 */ t66128 = a39036; /* x288811 */ if (!((t66128.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33953]"); structure_ref_error();} t66126 = t66128.value.structure_type27698->s18; /* x92136 stalin.sc:8055:274879 */ f10255(t66126); /* x92145 stalin.sc:8056:274917 */ /* x92144 stalin.sc:8056:274923 */ /* x92143 stalin.sc:8056:274946 */ t66130 = a23216; /* x92142 stalin.sc:8056:274924 */ a38977 = t66130; /* x288577 */ /* x288576 */ t66131 = a38977; /* x288575 */ if (!((t66131.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33894]"); structure_ref_error();} t66129 = t66131.value.structure_type27698->s19; /* x92141 stalin.sc:8056:274918 */ f10255(t66129); /* x92135 */ /* x92134 stalin.sc:8057:274956 */ /* x92133 stalin.sc:8057:274962 */ /* x92132 stalin.sc:8057:274984 */ t66124 = a23216; /* x92131 stalin.sc:8057:274963 */ a38923 = t66124; /* x288361 */ /* x288360 */ t66125 = a38923; /* x288359 */ if (!((t66125.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33840]"); structure_ref_error();} t66123 = t66125.value.structure_type27698->s20; /* x92130 stalin.sc:8057:274957 */ a23216 = t66123; goto h10255; l10994: /* x92217 */ /* x92152 */ /* x92150 */ t66087 = a23219; /* x92151 */ t66088 = q77; /* x92149 */ t66089.tag = EXTERNAL_SYMBOL_TYPE; t66089.value.external_symbol_type = t66087; t66090.tag = EXTERNAL_SYMBOL_TYPE; t66090.value.external_symbol_type = t66088; if (f26160(t66089, t66090)==FALSE_TYPE) goto l10996; /* x92155 */ /* x92154 */ /* x92153 stalin.sc:8058:275017 */ return; l10996: /* x92216 */ /* x92159 */ /* x92157 */ t66091 = a23219; /* x92158 */ t66092 = q78; /* x92156 */ t66093.tag = EXTERNAL_SYMBOL_TYPE; t66093.value.external_symbol_type = t66091; t66094.tag = EXTERNAL_SYMBOL_TYPE; t66094.value.external_symbol_type = t66092; if (f26160(t66093, t66094)==FALSE_TYPE) goto l10998; /* x92162 */ /* x92161 */ /* x92160 stalin.sc:8059:275047 */ return; l10998: /* x92215 */ /* x92166 */ /* x92164 */ t66095 = a23219; /* x92165 */ t66096 = q38; /* x92163 */ t66097.tag = EXTERNAL_SYMBOL_TYPE; t66097.value.external_symbol_type = t66095; t66098.tag = EXTERNAL_SYMBOL_TYPE; t66098.value.external_symbol_type = t66096; if (f26160(t66097, t66098)==FALSE_TYPE) goto l11000; /* x92181 */ /* x92180 */ /* x92179 stalin.sc:8060:275066 */ /* x92172 stalin.sc:8060:275074 */ /* x92170 stalin.sc:8060:275080 */ /* x92169 stalin.sc:8060:275101 */ t66120 = a23216; /* x92168 stalin.sc:8060:275081 */ a39167 = t66120; /* x289337 */ /* x289336 */ t66121 = a39167; /* x289335 */ if (!((t66121.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34084]"); structure_ref_error();} t66117 = t66121.value.structure_type27698->s16; /* x92171 stalin.sc:8060:275104 */ t66118 = a1633; /* x92167 stalin.sc:8060:275075 */ t66119 = *((struct w49 *)(&t66118)); if ((f26351(t66117, t66119).tag)==FALSE_TYPE) goto l11005; /* x92174 */ /* x92173 */ return; l11005: /* x92178 */ /* x92177 */ /* x92176 stalin.sc:8060:275110 */ /* x92175 stalin.sc:8060:275111 */ /* x296969 QobiScheme.sc:166:5314 */ /* x296968 QobiScheme.sc:166:5321 */ t66122 = "This shouldn\'t happen"; /* x296967 QobiScheme.sc:166:5315 */ stalin_panic(t66122); l11000: /* x92214 */ /* x92194 */ /* x92193 */ /* x92191 */ t66099 = a23219; /* x92192 */ t66100 = q36; /* x92190 */ t66101.tag = EXTERNAL_SYMBOL_TYPE; t66101.value.external_symbol_type = t66099; t66102.tag = EXTERNAL_SYMBOL_TYPE; t66102.value.external_symbol_type = t66100; if (!(f26160(t66101, t66102)==FALSE_TYPE)) goto l11001; /* x92187 */ /* x92185 */ t66103 = a23219; /* x92186 */ t66104 = q37; /* x92184 */ t66105.tag = EXTERNAL_SYMBOL_TYPE; t66105.value.external_symbol_type = t66103; t66106.tag = EXTERNAL_SYMBOL_TYPE; t66106.value.external_symbol_type = t66104; if (f26160(t66105, t66106)==FALSE_TYPE) goto l11002; l11001: /* x92209 */ /* x92208 */ /* x92207 */ /* x92206 stalin.sc:8062:275156 */ /* x92205 stalin.sc:8062:275162 */ /* x92204 stalin.sc:8062:275181 */ t66115 = a23216; /* x92203 stalin.sc:8062:275163 */ a38782 = t66115; /* x287797 */ /* x287796 */ t66116 = a38782; /* x287795 */ if (!((t66116.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33699]"); structure_ref_error();} t66114 = t66116.value.structure_type27698->s21; /* x92202 stalin.sc:8062:275157 */ f10255(t66114); /* x92201 */ /* x92200 stalin.sc:8063:275191 */ /* x92199 stalin.sc:8063:275206 */ /* x92198 stalin.sc:8063:275228 */ t66112 = a23216; /* x92197 stalin.sc:8063:275207 */ a38589 = t66112; /* x287025 */ /* x287024 */ t66113 = a38589; /* x287023 */ if (!((t66113.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33506]"); structure_ref_error();} t66108 = t66113.value.structure_type27698->s22; /* x92196 stalin.sc:8063:275201 */ /* x92195 stalin.sc:8063:275192 */ t66109.tag = NATIVE_PROCEDURE_TYPE17077; t66110 = *((struct w49 *)(&t66108)); t66111 = (struct structure_type24753 *)NULL_TYPE; f27755(t66109, t66110, t66111); return; l11002: /* x92213 */ /* x92212 */ /* x92211 stalin.sc:8064:275244 */ /* x92210 stalin.sc:8064:275245 */ /* x296973 QobiScheme.sc:166:5314 */ /* x296972 QobiScheme.sc:166:5321 */ t66107 = "This shouldn\'t happen"; /* x296971 QobiScheme.sc:166:5315 */ stalin_panic(t66107);} /* [inside FAST-TREE-SHAKE! 10252] */ void f10252(struct w49 a23213) {struct w49 t66194; unsigned t66195; /* x91888 stalin.sc:8023:273737 */ /* x91886 stalin.sc:8023:273764 */ t66194 = a23213; /* x91887 stalin.sc:8023:273766 */ /* x91885 stalin.sc:8023:273738 */ t66195 = FALSE_TYPE; f6937(t66194, t66195); return;} /* [inside FAST-TREE-SHAKE! 10251] */ void f10251(struct w49 a23212) {struct w49 t66196; unsigned t66197; /* x91880 stalin.sc:8022:273674 */ /* x91878 stalin.sc:8022:273699 */ t66196 = a23212; /* x91879 stalin.sc:8022:273701 */ /* x91877 stalin.sc:8022:273675 */ t66197 = FALSE_TYPE; f8195(t66196, t66197); return;} /* [inside FAST-TREE-SHAKE! 10249] */ void f10249(struct w49 a23210) {struct w49 t66198; unsigned t66199; /* x91688 stalin.sc:7948:271475 */ /* x91686 stalin.sc:7948:271500 */ t66198 = a23210; /* x91687 stalin.sc:7948:271502 */ /* x91685 stalin.sc:7948:271476 */ t66199 = FALSE_TYPE; f8195(t66198, t66199); return;} /* LOOP[10207] */ void f10207(struct w49 a23195) {char *a23197; /* v */ struct w49 a23204; /* GS */ struct structure_type24753 *a35521; /* PAIR */ struct structure_type24753 *a36068; /* PAIR */ struct w16611 a37022; /* OBJ */ struct w49 a38582; /* S */ struct w49 a38715; /* S */ struct w49 a38922; /* S */ struct w49 a38976; /* S */ struct w49 a39035; /* S */ struct w49 a39078; /* S */ struct w49 a39255; /* S */ struct w49 a39256; /* S */ struct w49 a39442; /* S */ struct w49 a39554; /* S */ struct w49 a39599; /* S */ struct w49 a39600; /* S */ struct w49 a40366; /* S */ char *t66200; char *t66201; char *t66202; struct w49 t66203; struct w49 t66204; char *t66205; char *t66206; struct w49 t66207; struct w49 t66208; char *t66209; char *t66210; struct w49 t66211; struct w49 t66212; char *t66213; char *t66214; struct w49 t66215; struct w49 t66216; char *t66217; char *t66218; struct w49 t66219; struct w49 t66220; char *t66221; char *t66222; struct w49 t66223; struct w49 t66224; char *t66225; char *t66226; struct w49 t66227; struct w49 t66228; char *t66229; char *t66230; struct w49 t66231; struct w49 t66232; char *t66233; char *t66234; struct w49 t66235; struct w49 t66236; char *t66237; char *t66238; struct w49 t66239; struct w49 t66240; char *t66241; char *t66242; struct w49 t66243; struct w49 t66244; char *t66245; char *t66246; struct w49 t66247; struct w49 t66248; char *t66249; char *t66250; struct w49 t66251; struct w49 t66252; char *t66253; char *t66254; struct w49 t66255; struct w49 t66256; char *t66257; char *t66258; struct w49 t66259; struct w49 t66260; char *t66261; char *t66262; struct w49 t66263; struct w49 t66264; char *t66265; char *t66266; struct w49 t66267; struct w49 t66268; char *t66269; char *t66270; struct w49 t66271; struct w49 t66272; char *t66273; char *t66274; struct w49 t66275; struct w49 t66276; char *t66277; char *t66278; struct w49 t66279; struct w49 t66280; char *t66281; char *t66282; struct w49 t66283; struct w49 t66284; char *t66285; struct w11873 t66286; struct w36108 t66287; struct w49 t66288; struct structure_type24753 *t66289; struct w49 t66290; struct w49 t66291; struct w49 t66292; struct w49 t66293; struct w49 t66294; struct w49 t66295; struct w49 t66296; struct w49 t66297; struct w49 t66298; struct w49 t66299; struct w49 t66300; struct w49 t66301; struct w49 t66302; struct w49 t66303; struct w49 t66304; struct w49 t66305; struct w49 t66306; struct w49 t66307; struct w49 t66308; struct w49 t66309; struct w49 t66310; struct w49 t66311; struct w9296 t66312; struct w49 t66313; struct w16611 t66314; struct w16611 t66315; struct w16611 t66316; struct w49 t66317; unsigned t66318; struct w49 t66319; struct structure_type24753 *t66320; struct structure_type24753 *t66321; struct w49 t66322; unsigned t66323; struct structure_type24753 *t66324; struct structure_type24753 *t66325; struct w49 t66326; struct w49 t66327; struct w49 t66328; unsigned t66329; struct w49 t66330; struct w49 t66331; struct w49 t66332; struct w49 t66333; struct w49 t66334; struct w49 t66335; struct w49 t66336; struct w49 t66337; struct w49 t66338; struct w49 t66339; struct w49 t66340; struct w49 t66341; struct w49 t66342; struct w49 t66343; unsigned t66344; h10207: /* x91456 */ /* x91455 stalin.sc:7826:267850 */ /* x91453 stalin.sc:7826:267877 */ t66343 = a23195; /* x91454 stalin.sc:7826:267879 */ /* x91452 stalin.sc:7826:267851 */ t66344 = FALSE_TYPE; f6937(t66343, t66344); /* x91451 */ /* x91450 stalin.sc:7827:267889 */ /* x91449 stalin.sc:7827:267895 */ /* x91448 stalin.sc:7827:267912 */ t66341 = a23195; /* x91447 stalin.sc:7827:267896 */ a40366 = t66341; /* x294133 */ /* x294132 */ t66342 = a40366; /* x294131 */ if (!((t66342.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35283]"); structure_ref_error();} t66200 = t66342.value.structure_type27698->s0; /* x91446 */ a23197 = t66200; /* x91445 */ /* x91164 */ /* x91162 */ t66201 = a23197; /* x91163 */ t66202 = q68; /* x91161 */ t66203.tag = EXTERNAL_SYMBOL_TYPE; t66203.value.external_symbol_type = t66201; t66204.tag = EXTERNAL_SYMBOL_TYPE; t66204.value.external_symbol_type = t66202; if (f26160(t66203, t66204)==FALSE_TYPE) goto l11027; /* x91167 */ /* x91166 */ /* x91165 stalin.sc:7828:267939 */ return; l11027: /* x91444 */ /* x91171 */ /* x91169 */ t66205 = a23197; /* x91170 */ t66206 = q69; /* x91168 */ t66207.tag = EXTERNAL_SYMBOL_TYPE; t66207.value.external_symbol_type = t66205; t66208.tag = EXTERNAL_SYMBOL_TYPE; t66208.value.external_symbol_type = t66206; if (f26160(t66207, t66208)==FALSE_TYPE) goto l11029; /* x91174 */ /* x91173 */ /* x91172 stalin.sc:7829:267967 */ return; l11029: /* x91443 */ /* x91178 */ /* x91176 */ t66209 = a23197; /* x91177 */ t66210 = q70; /* x91175 */ t66211.tag = EXTERNAL_SYMBOL_TYPE; t66211.value.external_symbol_type = t66209; t66212.tag = EXTERNAL_SYMBOL_TYPE; t66212.value.external_symbol_type = t66210; if (f26160(t66211, t66212)==FALSE_TYPE) goto l11031; /* x91181 */ /* x91180 */ /* x91179 stalin.sc:7830:267996 */ return; l11031: /* x91442 */ /* x91185 */ /* x91183 */ t66213 = a23197; /* x91184 */ t66214 = q71; /* x91182 */ t66215.tag = EXTERNAL_SYMBOL_TYPE; t66215.value.external_symbol_type = t66213; t66216.tag = EXTERNAL_SYMBOL_TYPE; t66216.value.external_symbol_type = t66214; if (f26160(t66215, t66216)==FALSE_TYPE) goto l11033; /* x91188 */ /* x91187 */ /* x91186 stalin.sc:7831:268024 */ return; l11033: /* x91441 */ /* x91192 */ /* x91190 */ t66217 = a23197; /* x91191 */ t66218 = q72; /* x91189 */ t66219.tag = EXTERNAL_SYMBOL_TYPE; t66219.value.external_symbol_type = t66217; t66220.tag = EXTERNAL_SYMBOL_TYPE; t66220.value.external_symbol_type = t66218; if (f26160(t66219, t66220)==FALSE_TYPE) goto l11035; /* x91195 */ /* x91194 */ /* x91193 stalin.sc:7832:268054 */ return; l11035: /* x91440 */ /* x91199 */ /* x91197 */ t66221 = a23197; /* x91198 */ t66222 = q73; /* x91196 */ t66223.tag = EXTERNAL_SYMBOL_TYPE; t66223.value.external_symbol_type = t66221; t66224.tag = EXTERNAL_SYMBOL_TYPE; t66224.value.external_symbol_type = t66222; if (f26160(t66223, t66224)==FALSE_TYPE) goto l11037; /* x91202 */ /* x91201 */ /* x91200 stalin.sc:7833:268084 */ return; l11037: /* x91439 */ /* x91206 */ /* x91204 */ t66225 = a23197; /* x91205 */ t66226 = q74; /* x91203 */ t66227.tag = EXTERNAL_SYMBOL_TYPE; t66227.value.external_symbol_type = t66225; t66228.tag = EXTERNAL_SYMBOL_TYPE; t66228.value.external_symbol_type = t66226; if (f26160(t66227, t66228)==FALSE_TYPE) goto l11039; /* x91209 */ /* x91208 */ /* x91207 stalin.sc:7834:268119 */ return; l11039: /* x91438 */ /* x91213 */ /* x91211 */ t66229 = a23197; /* x91212 */ t66230 = q75; /* x91210 */ t66231.tag = EXTERNAL_SYMBOL_TYPE; t66231.value.external_symbol_type = t66229; t66232.tag = EXTERNAL_SYMBOL_TYPE; t66232.value.external_symbol_type = t66230; if (f26160(t66231, t66232)==FALSE_TYPE) goto l11041; /* x91216 */ /* x91215 */ /* x91214 stalin.sc:7835:268149 */ return; l11041: /* x91437 */ /* x91220 */ /* x91218 */ t66233 = a23197; /* x91219 */ t66234 = q76; /* x91217 */ t66235.tag = EXTERNAL_SYMBOL_TYPE; t66235.value.external_symbol_type = t66233; t66236.tag = EXTERNAL_SYMBOL_TYPE; t66236.value.external_symbol_type = t66234; if (f26160(t66235, t66236)==FALSE_TYPE) goto l11043; /* x91223 */ /* x91222 */ /* x91221 stalin.sc:7836:268179 */ return; l11043: /* x91436 */ /* x91227 */ /* x91225 */ t66237 = a23197; /* x91226 */ t66238 = q50; /* x91224 */ t66239.tag = EXTERNAL_SYMBOL_TYPE; t66239.value.external_symbol_type = t66237; t66240.tag = EXTERNAL_SYMBOL_TYPE; t66240.value.external_symbol_type = t66238; if (f26160(t66239, t66240)==FALSE_TYPE) goto l11045; /* x91245 */ /* x91244 */ /* x91243 */ /* x91242 stalin.sc:7838:268208 */ /* x91241 stalin.sc:7838:268214 */ /* x91240 stalin.sc:7838:268219 */ /* x91239 stalin.sc:7838:268240 */ t66339 = a23195; /* x91238 stalin.sc:7838:268220 */ a39599 = t66339; /* x291065 */ /* x291064 */ t66340 = a39599; /* x291063 */ if (!((t66340.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34516]"); structure_ref_error();} t66338 = t66340.value.structure_type27698->s12; /* x269831 stalin.sc:7838:268215 */ if (!((t66338.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 7838, 268214); structure_ref_error();} t66337 = t66338.value.structure_type24753->s0; /* x91236 stalin.sc:7838:268209 */ f10207(t66337); /* x91235 */ /* x91234 stalin.sc:7839:268246 */ /* x91233 stalin.sc:7839:268252 */ /* x91232 stalin.sc:7839:268257 */ /* x91231 stalin.sc:7839:268278 */ t66335 = a23195; /* x91230 stalin.sc:7839:268258 */ a39554 = t66335; /* x290885 */ /* x290884 */ t66336 = a39554; /* x290883 */ if (!((t66336.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34471]"); structure_ref_error();} t66334 = t66336.value.structure_type27698->s12; /* x269832 stalin.sc:7839:268253 */ if (!((t66334.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 7839, 268252); structure_ref_error();} t66333 = t66334.value.structure_type24753->s1; /* x91228 stalin.sc:7839:268247 */ a23195 = t66333; goto h10207; l11045: /* x91435 */ /* x91249 */ /* x91247 */ t66241 = a23197; /* x91248 */ t66242 = q52; /* x91246 */ t66243.tag = EXTERNAL_SYMBOL_TYPE; t66243.value.external_symbol_type = t66241; t66244.tag = EXTERNAL_SYMBOL_TYPE; t66244.value.external_symbol_type = t66242; if (f26160(t66243, t66244)==FALSE_TYPE) goto l11047; /* x91257 */ /* x91256 */ /* x91255 stalin.sc:7840:268310 */ /* x91254 stalin.sc:7840:268332 */ /* x91253 stalin.sc:7840:268353 */ t66331 = a23195; /* x91252 stalin.sc:7840:268333 */ a39600 = t66331; /* x291069 */ /* x291068 */ t66332 = a39600; /* x291067 */ if (!((t66332.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34517]"); structure_ref_error();} t66328 = t66332.value.structure_type27698->s12; /* x91251 stalin.sc:7840:268327 */ /* x91250 stalin.sc:7840:268311 */ t66329 = (unsigned)NATIVE_PROCEDURE_TYPE17212; t66330 = t66328; f1141(t66329, t66330); return; l11047: /* x91434 */ /* x91279 */ /* x91278 */ /* x91276 */ t66245 = a23197; /* x91277 */ t66246 = q39; /* x91275 */ t66247.tag = EXTERNAL_SYMBOL_TYPE; t66247.value.external_symbol_type = t66245; t66248.tag = EXTERNAL_SYMBOL_TYPE; t66248.value.external_symbol_type = t66246; if (!(f26160(t66247, t66248)==FALSE_TYPE)) goto l11048; /* x91272 */ /* x91271 */ /* x91269 */ t66249 = a23197; /* x91270 */ t66250 = q40; /* x91268 */ t66251.tag = EXTERNAL_SYMBOL_TYPE; t66251.value.external_symbol_type = t66249; t66252.tag = EXTERNAL_SYMBOL_TYPE; t66252.value.external_symbol_type = t66250; if (!(f26160(t66251, t66252)==FALSE_TYPE)) goto l11048; /* x91265 */ /* x91263 */ t66253 = a23197; /* x91264 */ t66254 = q41; /* x91262 */ t66255.tag = EXTERNAL_SYMBOL_TYPE; t66255.value.external_symbol_type = t66253; t66256.tag = EXTERNAL_SYMBOL_TYPE; t66256.value.external_symbol_type = t66254; if (f26160(t66255, t66256)==FALSE_TYPE) goto l11049; l11048: /* x91340 */ /* x91339 */ /* x91338 */ /* x91337 stalin.sc:7842:268416 */ /* x91336 stalin.sc:7842:268431 */ /* x91335 stalin.sc:7842:268454 */ t66326 = a23195; /* x91334 stalin.sc:7842:268432 */ a39442 = t66326; /* x290437 */ /* x290436 */ t66327 = a39442; /* x290435 */ if (!((t66327.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34359]"); structure_ref_error();} t66312 = t66327.value.structure_type27698->s14; /* x91333 */ /* x91332 */ /* x91331 */ /* x91330 */ /* x91329 */ /* x91328 */ /* x91327 */ /* x91295 */ /* x91294 stalin.sc:7842:268421 */ a23204 = *((struct w49 *)(&t66312)); h10230: /* x91326 stalin.sc:7843:268461 */ /* x91298 stalin.sc:7843:268468 */ /* x91297 stalin.sc:7843:268475 */ t66313 = a23204; /* x269830 stalin.sc:7843:268469 */ if (!((t66313.tag)==STRUCTURE_TYPE24753)) goto l11068; /* x91313 */ /* x91312 */ /* x91311 */ /* x91310 stalin.sc:7844:268481 */ /* x91308 stalin.sc:7844:268506 */ /* x91307 stalin.sc:7844:268513 */ t66324 = a23204.value.structure_type24753; /* x91306 stalin.sc:7844:268507 */ a36068 = t66324; /* x275629 */ /* x275628 */ t66325 = a36068; /* x275627 */ t66322 = t66325->s0; /* x91309 stalin.sc:7844:268517 */ /* x91305 stalin.sc:7844:268482 */ t66323 = FALSE_TYPE; f8195(t66322, t66323); /* x91304 */ /* x91303 stalin.sc:7845:268523 */ /* x91302 stalin.sc:7845:268529 */ /* x91301 stalin.sc:7845:268535 */ t66320 = a23204.value.structure_type24753; /* x91300 stalin.sc:7845:268530 */ a35521 = t66320; /* x273441 */ /* x273440 */ t66321 = a35521; /* x273439 */ t66319 = t66321->s1; /* x91299 stalin.sc:7845:268524 */ a23204 = t66319; goto h10230; goto l11069; l11068: /* x91325 */ /* x91316 stalin.sc:7846:268550 */ /* x91315 stalin.sc:7846:268561 */ t66314 = *((struct w16611 *)(&a23204)); /* x91314 stalin.sc:7846:268551 */ a37022 = t66314; /* x280757 */ /* x280756 */ t66315 = a37022; /* x280755 */ if (!((t66315.tag)==STRUCTURE_TYPE27692)) goto l11071; /* x91322 */ /* x91321 */ /* x91320 stalin.sc:7846:268565 */ /* x91318 stalin.sc:7846:268590 */ t66316 = *((struct w16611 *)(&a23204)); /* x91319 stalin.sc:7846:268593 */ /* x91317 stalin.sc:7846:268566 */ t66317 = *((struct w49 *)(&t66316)); t66318 = FALSE_TYPE; f8195(t66317, t66318); goto l11072; l11071: /* x91324 */ /* x91323 */ l11072: l11069: /* x91293 */ /* x91292 stalin.sc:7847:268601 */ /* x91282 stalin.sc:7847:268607 */ /* x91281 stalin.sc:7847:268624 */ t66307 = a23195; /* x91280 stalin.sc:7847:268608 */ a39256 = t66307; /* x289693 */ /* x289692 */ t66308 = a39256; /* x289691 */ if (!((t66308.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34173]"); structure_ref_error();} if ((t66308.value.structure_type27698->s15.tag)==FALSE_TYPE) goto l11066; /* x91289 */ /* x91288 */ /* x91287 stalin.sc:7847:268627 */ /* x91286 stalin.sc:7847:268633 */ /* x91285 stalin.sc:7847:268650 */ t66310 = a23195; /* x91284 stalin.sc:7847:268634 */ a39255 = t66310; /* x289689 */ /* x289688 */ t66311 = a39255; /* x289687 */ if (!((t66311.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34172]"); structure_ref_error();} t66309 = t66311.value.structure_type27698->s15; /* x91283 stalin.sc:7847:268628 */ a23195 = t66309; goto h10207; l11066: /* x91291 stalin.sc:7847:268601 */ /* x91290 stalin.sc:7847:268601 */ return; l11049: /* x91433 */ /* x91344 */ /* x91342 */ t66257 = a23197; /* x91343 */ t66258 = q42; /* x91341 */ t66259.tag = EXTERNAL_SYMBOL_TYPE; t66259.value.external_symbol_type = t66257; t66260.tag = EXTERNAL_SYMBOL_TYPE; t66260.value.external_symbol_type = t66258; if (f26160(t66259, t66260)==FALSE_TYPE) goto l11053; /* x91351 */ /* x91350 */ /* x91349 stalin.sc:7848:268671 */ /* x91348 stalin.sc:7848:268677 */ /* x91347 stalin.sc:7848:268696 */ t66305 = a23195; /* x91346 stalin.sc:7848:268678 */ a39078 = t66305; /* x288981 */ /* x288980 */ t66306 = a39078; /* x288979 */ if (!((t66306.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33995]"); structure_ref_error();} t66304 = t66306.value.structure_type27698->s17; /* x91345 stalin.sc:7848:268672 */ a23195 = t66304; goto h10207; l11053: /* x91432 */ /* x91355 */ /* x91353 */ t66261 = a23197; /* x91354 */ t66262 = q43; /* x91352 */ t66263.tag = EXTERNAL_SYMBOL_TYPE; t66263.value.external_symbol_type = t66261; t66264.tag = EXTERNAL_SYMBOL_TYPE; t66264.value.external_symbol_type = t66262; if (f26160(t66263, t66264)==FALSE_TYPE) goto l11055; /* x91374 */ /* x91373 */ /* x91372 */ /* x91366 stalin.sc:7850:268715 */ /* x91365 stalin.sc:7850:268721 */ /* x91364 stalin.sc:7850:268744 */ t66299 = a23195; /* x91363 stalin.sc:7850:268722 */ a39035 = t66299; /* x288809 */ /* x288808 */ t66300 = a39035; /* x288807 */ if (!((t66300.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33952]"); structure_ref_error();} t66298 = t66300.value.structure_type27698->s18; /* x91362 stalin.sc:7850:268716 */ f10207(t66298); /* x91371 stalin.sc:7851:268749 */ /* x91370 stalin.sc:7851:268755 */ /* x91369 stalin.sc:7851:268778 */ t66302 = a23195; /* x91368 stalin.sc:7851:268756 */ a38976 = t66302; /* x288573 */ /* x288572 */ t66303 = a38976; /* x288571 */ if (!((t66303.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33893]"); structure_ref_error();} t66301 = t66303.value.structure_type27698->s19; /* x91367 stalin.sc:7851:268750 */ f10207(t66301); /* x91361 */ /* x91360 stalin.sc:7852:268783 */ /* x91359 stalin.sc:7852:268789 */ /* x91358 stalin.sc:7852:268811 */ t66296 = a23195; /* x91357 stalin.sc:7852:268790 */ a38922 = t66296; /* x288357 */ /* x288356 */ t66297 = a38922; /* x288355 */ if (!((t66297.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33839]"); structure_ref_error();} t66295 = t66297.value.structure_type27698->s20; /* x91356 stalin.sc:7852:268784 */ a23195 = t66295; goto h10207; l11055: /* x91431 */ /* x91378 */ /* x91376 */ t66265 = a23197; /* x91377 */ t66266 = q77; /* x91375 */ t66267.tag = EXTERNAL_SYMBOL_TYPE; t66267.value.external_symbol_type = t66265; t66268.tag = EXTERNAL_SYMBOL_TYPE; t66268.value.external_symbol_type = t66266; if (f26160(t66267, t66268)==FALSE_TYPE) goto l11057; /* x91381 */ /* x91380 */ /* x91379 stalin.sc:7853:268846 */ return; l11057: /* x91430 */ /* x91385 */ /* x91383 */ t66269 = a23197; /* x91384 */ t66270 = q78; /* x91382 */ t66271.tag = EXTERNAL_SYMBOL_TYPE; t66271.value.external_symbol_type = t66269; t66272.tag = EXTERNAL_SYMBOL_TYPE; t66272.value.external_symbol_type = t66270; if (f26160(t66271, t66272)==FALSE_TYPE) goto l11059; /* x91388 */ /* x91387 */ /* x91386 stalin.sc:7854:268878 */ return; l11059: /* x91429 */ /* x91392 */ /* x91390 */ t66273 = a23197; /* x91391 */ t66274 = q38; /* x91389 */ t66275.tag = EXTERNAL_SYMBOL_TYPE; t66275.value.external_symbol_type = t66273; t66276.tag = EXTERNAL_SYMBOL_TYPE; t66276.value.external_symbol_type = t66274; if (f26160(t66275, t66276)==FALSE_TYPE) goto l11061; /* x91395 */ /* x91394 */ /* x91393 stalin.sc:7855:268899 */ return; l11061: /* x91428 */ /* x91408 */ /* x91407 */ /* x91405 */ t66277 = a23197; /* x91406 */ t66278 = q36; /* x91404 */ t66279.tag = EXTERNAL_SYMBOL_TYPE; t66279.value.external_symbol_type = t66277; t66280.tag = EXTERNAL_SYMBOL_TYPE; t66280.value.external_symbol_type = t66278; if (!(f26160(t66279, t66280)==FALSE_TYPE)) goto l11062; /* x91401 */ /* x91399 */ t66281 = a23197; /* x91400 */ t66282 = q37; /* x91398 */ t66283.tag = EXTERNAL_SYMBOL_TYPE; t66283.value.external_symbol_type = t66281; t66284.tag = EXTERNAL_SYMBOL_TYPE; t66284.value.external_symbol_type = t66282; if (f26160(t66283, t66284)==FALSE_TYPE) goto l11063; l11062: /* x91423 */ /* x91422 */ /* x91421 */ /* x91420 stalin.sc:7857:268934 */ /* x91419 stalin.sc:7857:268940 */ /* x91418 stalin.sc:7857:268959 */ t66293 = a23195; /* x91417 stalin.sc:7857:268941 */ a38715 = t66293; /* x287529 */ /* x287528 */ t66294 = a38715; /* x287527 */ if (!((t66294.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33632]"); structure_ref_error();} t66292 = t66294.value.structure_type27698->s21; /* x91416 stalin.sc:7857:268935 */ f10207(t66292); /* x91415 */ /* x91414 stalin.sc:7858:268964 */ /* x91413 stalin.sc:7858:268979 */ /* x91412 stalin.sc:7858:269001 */ t66290 = a23195; /* x91411 stalin.sc:7858:268980 */ a38582 = t66290; /* x286997 */ /* x286996 */ t66291 = a38582; /* x286995 */ if (!((t66291.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33499]"); structure_ref_error();} t66286 = t66291.value.structure_type27698->s22; /* x91410 stalin.sc:7858:268974 */ /* x91409 stalin.sc:7858:268965 */ t66287.tag = NATIVE_PROCEDURE_TYPE17212; t66288 = *((struct w49 *)(&t66286)); t66289 = (struct structure_type24753 *)NULL_TYPE; f27755(t66287, t66288, t66289); return; l11063: /* x91427 */ /* x91426 */ /* x91425 stalin.sc:7859:269019 */ /* x91424 stalin.sc:7859:269020 */ /* x296957 QobiScheme.sc:166:5314 */ /* x296956 QobiScheme.sc:166:5321 */ t66285 = "This shouldn\'t happen"; /* x296955 QobiScheme.sc:166:5315 */ stalin_panic(t66285);} /* [inside FAST-TREE-SHAKE! 10204] */ void f10204(struct w49 a23192) {struct w49 t66345; /* x91465 stalin.sc:7825:267826 */ /* x91464 stalin.sc:7825:267840 */ t66345 = a23192; /* x91463 */ /* x91462 */ /* x91461 */ /* x91460 */ /* x91459 */ /* x91458 */ /* x91457 */ /* x91160 */ /* x91159 stalin.sc:7825:267831 */ f10207(t66345); return;} /* LOOP[10159] */ void f10159(struct w49 a23176) {char *a23178; /* v */ struct w49 a23185; /* GS */ struct structure_type24753 *a35523; /* PAIR */ struct structure_type24753 *a36070; /* PAIR */ struct w16611 a37019; /* OBJ */ struct w49 a38552; /* S */ struct w49 a38668; /* S */ struct w49 a38902; /* S */ struct w49 a38954; /* S */ struct w49 a39009; /* S */ struct w49 a39063; /* S */ struct w49 a39122; /* S */ struct w49 a39123; /* S */ struct w49 a39153; /* S */ struct w49 a39219; /* S */ struct w49 a39220; /* S */ struct w49 a39434; /* S */ struct w49 a39551; /* S */ struct w49 a39572; /* S */ struct w49 a39573; /* S */ struct w49 a40318; /* S */ char *t66346; char *t66347; char *t66348; struct w49 t66349; struct w49 t66350; char *t66351; char *t66352; struct w49 t66353; struct w49 t66354; char *t66355; char *t66356; struct w49 t66357; struct w49 t66358; char *t66359; char *t66360; struct w49 t66361; struct w49 t66362; char *t66363; char *t66364; struct w49 t66365; struct w49 t66366; char *t66367; char *t66368; struct w49 t66369; struct w49 t66370; char *t66371; char *t66372; struct w49 t66373; struct w49 t66374; char *t66375; char *t66376; struct w49 t66377; struct w49 t66378; char *t66379; char *t66380; struct w49 t66381; struct w49 t66382; char *t66383; char *t66384; struct w49 t66385; struct w49 t66386; char *t66387; char *t66388; struct w49 t66389; struct w49 t66390; char *t66391; char *t66392; struct w49 t66393; struct w49 t66394; char *t66395; char *t66396; struct w49 t66397; struct w49 t66398; char *t66399; char *t66400; struct w49 t66401; struct w49 t66402; char *t66403; char *t66404; struct w49 t66405; struct w49 t66406; char *t66407; char *t66408; struct w49 t66409; struct w49 t66410; char *t66411; char *t66412; struct w49 t66413; struct w49 t66414; char *t66415; char *t66416; struct w49 t66417; struct w49 t66418; char *t66419; char *t66420; struct w49 t66421; struct w49 t66422; char *t66423; char *t66424; struct w49 t66425; struct w49 t66426; char *t66427; char *t66428; struct w49 t66429; struct w49 t66430; char *t66431; struct w11873 t66432; struct w36108 t66433; struct w49 t66434; struct structure_type24753 *t66435; struct w49 t66436; struct w49 t66437; struct w49 t66438; struct w49 t66439; struct w49 t66440; struct w49 t66441; struct w9296 t66442; struct w49 t66443; struct w49 t66444; struct w49 t66445; struct w49 t66446; struct w49 t66447; struct w49 t66448; struct w49 t66449; unsigned t66450; struct w49 t66451; struct w49 t66452; struct w49 t66453; struct w49 t66454; struct w49 t66455; struct w49 t66456; struct w49 t66457; struct w49 t66458; struct w49 t66459; struct w49 t66460; struct w49 t66461; struct w49 t66462; struct w49 t66463; struct w49 t66464; struct w49 t66465; struct w49 t66466; struct w49 t66467; struct w49 t66468; struct w49 t66469; struct w9296 t66470; struct w49 t66471; struct w16611 t66472; struct w16611 t66473; struct w16611 t66474; struct w49 t66475; unsigned t66476; struct w49 t66477; struct structure_type24753 *t66478; struct structure_type24753 *t66479; struct w49 t66480; unsigned t66481; struct structure_type24753 *t66482; struct structure_type24753 *t66483; struct w49 t66484; struct w49 t66485; struct w49 t66486; unsigned t66487; struct w49 t66488; struct w49 t66489; struct w49 t66490; struct w49 t66491; struct w49 t66492; struct w49 t66493; struct w49 t66494; struct w49 t66495; struct w49 t66496; struct w49 t66497; struct w49 t66498; struct w49 t66499; struct w49 t66500; struct w49 t66501; unsigned t66502; h10159: /* x91087 */ /* x91086 stalin.sc:7765:265850 */ /* x91084 stalin.sc:7765:265877 */ t66501 = a23176; /* x91085 stalin.sc:7765:265879 */ /* x91083 stalin.sc:7765:265851 */ t66502 = TRUE_TYPE; f6937(t66501, t66502); /* x91082 */ /* x91081 stalin.sc:7766:265885 */ /* x91080 stalin.sc:7766:265891 */ /* x91079 stalin.sc:7766:265908 */ t66499 = a23176; /* x91078 stalin.sc:7766:265892 */ a40318 = t66499; /* x293941 */ /* x293940 */ t66500 = a40318; /* x293939 */ if (!((t66500.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35235]"); structure_ref_error();} t66346 = t66500.value.structure_type27698->s0; /* x91077 */ a23178 = t66346; /* x91076 */ /* x90766 */ /* x90764 */ t66347 = a23178; /* x90765 */ t66348 = q68; /* x90763 */ t66349.tag = EXTERNAL_SYMBOL_TYPE; t66349.value.external_symbol_type = t66347; t66350.tag = EXTERNAL_SYMBOL_TYPE; t66350.value.external_symbol_type = t66348; if (f26160(t66349, t66350)==FALSE_TYPE) goto l11074; /* x90769 */ /* x90768 */ /* x90767 stalin.sc:7767:265931 */ return; l11074: /* x91075 */ /* x90773 */ /* x90771 */ t66351 = a23178; /* x90772 */ t66352 = q69; /* x90770 */ t66353.tag = EXTERNAL_SYMBOL_TYPE; t66353.value.external_symbol_type = t66351; t66354.tag = EXTERNAL_SYMBOL_TYPE; t66354.value.external_symbol_type = t66352; if (f26160(t66353, t66354)==FALSE_TYPE) goto l11076; /* x90776 */ /* x90775 */ /* x90774 stalin.sc:7768:265955 */ return; l11076: /* x91074 */ /* x90780 */ /* x90778 */ t66355 = a23178; /* x90779 */ t66356 = q70; /* x90777 */ t66357.tag = EXTERNAL_SYMBOL_TYPE; t66357.value.external_symbol_type = t66355; t66358.tag = EXTERNAL_SYMBOL_TYPE; t66358.value.external_symbol_type = t66356; if (f26160(t66357, t66358)==FALSE_TYPE) goto l11078; /* x90783 */ /* x90782 */ /* x90781 stalin.sc:7769:265980 */ return; l11078: /* x91073 */ /* x90787 */ /* x90785 */ t66359 = a23178; /* x90786 */ t66360 = q71; /* x90784 */ t66361.tag = EXTERNAL_SYMBOL_TYPE; t66361.value.external_symbol_type = t66359; t66362.tag = EXTERNAL_SYMBOL_TYPE; t66362.value.external_symbol_type = t66360; if (f26160(t66361, t66362)==FALSE_TYPE) goto l11080; /* x90790 */ /* x90789 */ /* x90788 stalin.sc:7770:266004 */ return; l11080: /* x91072 */ /* x90794 */ /* x90792 */ t66363 = a23178; /* x90793 */ t66364 = q72; /* x90791 */ t66365.tag = EXTERNAL_SYMBOL_TYPE; t66365.value.external_symbol_type = t66363; t66366.tag = EXTERNAL_SYMBOL_TYPE; t66366.value.external_symbol_type = t66364; if (f26160(t66365, t66366)==FALSE_TYPE) goto l11082; /* x90797 */ /* x90796 */ /* x90795 stalin.sc:7771:266030 */ return; l11082: /* x91071 */ /* x90801 */ /* x90799 */ t66367 = a23178; /* x90800 */ t66368 = q73; /* x90798 */ t66369.tag = EXTERNAL_SYMBOL_TYPE; t66369.value.external_symbol_type = t66367; t66370.tag = EXTERNAL_SYMBOL_TYPE; t66370.value.external_symbol_type = t66368; if (f26160(t66369, t66370)==FALSE_TYPE) goto l11084; /* x90804 */ /* x90803 */ /* x90802 stalin.sc:7772:266056 */ return; l11084: /* x91070 */ /* x90808 */ /* x90806 */ t66371 = a23178; /* x90807 */ t66372 = q74; /* x90805 */ t66373.tag = EXTERNAL_SYMBOL_TYPE; t66373.value.external_symbol_type = t66371; t66374.tag = EXTERNAL_SYMBOL_TYPE; t66374.value.external_symbol_type = t66372; if (f26160(t66373, t66374)==FALSE_TYPE) goto l11086; /* x90811 */ /* x90810 */ /* x90809 stalin.sc:7773:266087 */ return; l11086: /* x91069 */ /* x90815 */ /* x90813 */ t66375 = a23178; /* x90814 */ t66376 = q75; /* x90812 */ t66377.tag = EXTERNAL_SYMBOL_TYPE; t66377.value.external_symbol_type = t66375; t66378.tag = EXTERNAL_SYMBOL_TYPE; t66378.value.external_symbol_type = t66376; if (f26160(t66377, t66378)==FALSE_TYPE) goto l11088; /* x90818 */ /* x90817 */ /* x90816 stalin.sc:7774:266113 */ return; l11088: /* x91068 */ /* x90822 */ /* x90820 */ t66379 = a23178; /* x90821 */ t66380 = q76; /* x90819 */ t66381.tag = EXTERNAL_SYMBOL_TYPE; t66381.value.external_symbol_type = t66379; t66382.tag = EXTERNAL_SYMBOL_TYPE; t66382.value.external_symbol_type = t66380; if (f26160(t66381, t66382)==FALSE_TYPE) goto l11090; /* x90825 */ /* x90824 */ /* x90823 stalin.sc:7775:266139 */ return; l11090: /* x91067 */ /* x90829 */ /* x90827 */ t66383 = a23178; /* x90828 */ t66384 = q50; /* x90826 */ t66385.tag = EXTERNAL_SYMBOL_TYPE; t66385.value.external_symbol_type = t66383; t66386.tag = EXTERNAL_SYMBOL_TYPE; t66386.value.external_symbol_type = t66384; if (f26160(t66385, t66386)==FALSE_TYPE) goto l11092; /* x90847 */ /* x90846 */ /* x90845 */ /* x90844 stalin.sc:7777:266167 */ /* x90843 stalin.sc:7777:266173 */ /* x90842 stalin.sc:7777:266178 */ /* x90841 stalin.sc:7777:266199 */ t66497 = a23176; /* x90840 stalin.sc:7777:266179 */ a39572 = t66497; /* x290957 */ /* x290956 */ t66498 = a39572; /* x290955 */ if (!((t66498.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34489]"); structure_ref_error();} t66496 = t66498.value.structure_type27698->s12; /* x269835 stalin.sc:7777:266174 */ if (!((t66496.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 7777, 266173); structure_ref_error();} t66495 = t66496.value.structure_type24753->s0; /* x90838 stalin.sc:7777:266168 */ f10159(t66495); /* x90837 */ /* x90836 stalin.sc:7778:266208 */ /* x90835 stalin.sc:7778:266214 */ /* x90834 stalin.sc:7778:266219 */ /* x90833 stalin.sc:7778:266240 */ t66493 = a23176; /* x90832 stalin.sc:7778:266220 */ a39551 = t66493; /* x290873 */ /* x290872 */ t66494 = a39551; /* x290871 */ if (!((t66494.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34468]"); structure_ref_error();} t66492 = t66494.value.structure_type27698->s12; /* x269836 stalin.sc:7778:266215 */ if (!((t66492.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 7778, 266214); structure_ref_error();} t66491 = t66492.value.structure_type24753->s1; /* x90830 stalin.sc:7778:266209 */ a23176 = t66491; goto h10159; l11092: /* x91066 */ /* x90851 */ /* x90849 */ t66387 = a23178; /* x90850 */ t66388 = q52; /* x90848 */ t66389.tag = EXTERNAL_SYMBOL_TYPE; t66389.value.external_symbol_type = t66387; t66390.tag = EXTERNAL_SYMBOL_TYPE; t66390.value.external_symbol_type = t66388; if (f26160(t66389, t66390)==FALSE_TYPE) goto l11094; /* x90859 */ /* x90858 */ /* x90857 stalin.sc:7779:266268 */ /* x90856 stalin.sc:7779:266290 */ /* x90855 stalin.sc:7779:266311 */ t66489 = a23176; /* x90854 stalin.sc:7779:266291 */ a39573 = t66489; /* x290961 */ /* x290960 */ t66490 = a39573; /* x290959 */ if (!((t66490.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34490]"); structure_ref_error();} t66486 = t66490.value.structure_type27698->s12; /* x90853 stalin.sc:7779:266285 */ /* x90852 stalin.sc:7779:266269 */ t66487 = (unsigned)NATIVE_PROCEDURE_TYPE18028; t66488 = t66486; f1141(t66487, t66488); return; l11094: /* x91065 */ /* x90881 */ /* x90880 */ /* x90878 */ t66391 = a23178; /* x90879 */ t66392 = q39; /* x90877 */ t66393.tag = EXTERNAL_SYMBOL_TYPE; t66393.value.external_symbol_type = t66391; t66394.tag = EXTERNAL_SYMBOL_TYPE; t66394.value.external_symbol_type = t66392; if (!(f26160(t66393, t66394)==FALSE_TYPE)) goto l11095; /* x90874 */ /* x90873 */ /* x90871 */ t66395 = a23178; /* x90872 */ t66396 = q40; /* x90870 */ t66397.tag = EXTERNAL_SYMBOL_TYPE; t66397.value.external_symbol_type = t66395; t66398.tag = EXTERNAL_SYMBOL_TYPE; t66398.value.external_symbol_type = t66396; if (!(f26160(t66397, t66398)==FALSE_TYPE)) goto l11095; /* x90867 */ /* x90865 */ t66399 = a23178; /* x90866 */ t66400 = q41; /* x90864 */ t66401.tag = EXTERNAL_SYMBOL_TYPE; t66401.value.external_symbol_type = t66399; t66402.tag = EXTERNAL_SYMBOL_TYPE; t66402.value.external_symbol_type = t66400; if (f26160(t66401, t66402)==FALSE_TYPE) goto l11096; l11095: /* x90942 */ /* x90941 */ /* x90940 */ /* x90939 stalin.sc:7781:266373 */ /* x90938 stalin.sc:7781:266388 */ /* x90937 stalin.sc:7781:266411 */ t66484 = a23176; /* x90936 stalin.sc:7781:266389 */ a39434 = t66484; /* x290405 */ /* x290404 */ t66485 = a39434; /* x290403 */ if (!((t66485.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34351]"); structure_ref_error();} t66470 = t66485.value.structure_type27698->s14; /* x90935 */ /* x90934 */ /* x90933 */ /* x90932 */ /* x90931 */ /* x90930 */ /* x90929 */ /* x90897 */ /* x90896 stalin.sc:7781:266378 */ a23185 = *((struct w49 *)(&t66470)); h10182: /* x90928 stalin.sc:7782:266421 */ /* x90900 stalin.sc:7782:266428 */ /* x90899 stalin.sc:7782:266435 */ t66471 = a23185; /* x269834 stalin.sc:7782:266429 */ if (!((t66471.tag)==STRUCTURE_TYPE24753)) goto l11118; /* x90915 */ /* x90914 */ /* x90913 */ /* x90912 stalin.sc:7783:266444 */ /* x90910 stalin.sc:7783:266469 */ /* x90909 stalin.sc:7783:266476 */ t66482 = a23185.value.structure_type24753; /* x90908 stalin.sc:7783:266470 */ a36070 = t66482; /* x275637 */ /* x275636 */ t66483 = a36070; /* x275635 */ t66480 = t66483->s0; /* x90911 stalin.sc:7783:266480 */ /* x90907 stalin.sc:7783:266445 */ t66481 = TRUE_TYPE; f8195(t66480, t66481); /* x90906 */ /* x90905 stalin.sc:7784:266489 */ /* x90904 stalin.sc:7784:266495 */ /* x90903 stalin.sc:7784:266501 */ t66478 = a23185.value.structure_type24753; /* x90902 stalin.sc:7784:266496 */ a35523 = t66478; /* x273449 */ /* x273448 */ t66479 = a35523; /* x273447 */ t66477 = t66479->s1; /* x90901 stalin.sc:7784:266490 */ a23185 = t66477; goto h10182; goto l11119; l11118: /* x90927 */ /* x90918 stalin.sc:7785:266512 */ /* x90917 stalin.sc:7785:266523 */ t66472 = *((struct w16611 *)(&a23185)); /* x90916 stalin.sc:7785:266513 */ a37019 = t66472; /* x280745 */ /* x280744 */ t66473 = a37019; /* x280743 */ if (!((t66473.tag)==STRUCTURE_TYPE27692)) goto l11121; /* x90924 */ /* x90923 */ /* x90922 stalin.sc:7785:266527 */ /* x90920 stalin.sc:7785:266552 */ t66474 = *((struct w16611 *)(&a23185)); /* x90921 stalin.sc:7785:266555 */ /* x90919 stalin.sc:7785:266528 */ t66475 = *((struct w49 *)(&t66474)); t66476 = TRUE_TYPE; f8195(t66475, t66476); goto l11122; l11121: /* x90926 */ /* x90925 */ l11122: l11119: /* x90895 */ /* x90894 stalin.sc:7786:266566 */ /* x90884 stalin.sc:7786:266572 */ /* x90883 stalin.sc:7786:266589 */ t66465 = a23176; /* x90882 stalin.sc:7786:266573 */ a39220 = t66465; /* x289549 */ /* x289548 */ t66466 = a39220; /* x289547 */ if (!((t66466.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34137]"); structure_ref_error();} if ((t66466.value.structure_type27698->s15.tag)==FALSE_TYPE) goto l11116; /* x90891 */ /* x90890 */ /* x90889 stalin.sc:7786:266592 */ /* x90888 stalin.sc:7786:266598 */ /* x90887 stalin.sc:7786:266615 */ t66468 = a23176; /* x90886 stalin.sc:7786:266599 */ a39219 = t66468; /* x289545 */ /* x289544 */ t66469 = a39219; /* x289543 */ if (!((t66469.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34136]"); structure_ref_error();} t66467 = t66469.value.structure_type27698->s15; /* x90885 stalin.sc:7786:266593 */ a23176 = t66467; goto h10159; l11116: /* x90893 stalin.sc:7786:266566 */ /* x90892 stalin.sc:7786:266566 */ return; l11096: /* x91064 */ /* x90946 */ /* x90944 */ t66403 = a23178; /* x90945 */ t66404 = q42; /* x90943 */ t66405.tag = EXTERNAL_SYMBOL_TYPE; t66405.value.external_symbol_type = t66403; t66406.tag = EXTERNAL_SYMBOL_TYPE; t66406.value.external_symbol_type = t66404; if (f26160(t66405, t66406)==FALSE_TYPE) goto l11100; /* x90953 */ /* x90952 */ /* x90951 stalin.sc:7787:266632 */ /* x90950 stalin.sc:7787:266638 */ /* x90949 stalin.sc:7787:266657 */ t66463 = a23176; /* x90948 stalin.sc:7787:266639 */ a39063 = t66463; /* x288921 */ /* x288920 */ t66464 = a39063; /* x288919 */ if (!((t66464.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33980]"); structure_ref_error();} t66462 = t66464.value.structure_type27698->s17; /* x90947 stalin.sc:7787:266633 */ a23176 = t66462; goto h10159; l11100: /* x91063 */ /* x90957 */ /* x90955 */ t66407 = a23178; /* x90956 */ t66408 = q43; /* x90954 */ t66409.tag = EXTERNAL_SYMBOL_TYPE; t66409.value.external_symbol_type = t66407; t66410.tag = EXTERNAL_SYMBOL_TYPE; t66410.value.external_symbol_type = t66408; if (f26160(t66409, t66410)==FALSE_TYPE) goto l11102; /* x90976 */ /* x90975 */ /* x90974 */ /* x90968 stalin.sc:7789:266675 */ /* x90967 stalin.sc:7789:266681 */ /* x90966 stalin.sc:7789:266704 */ t66457 = a23176; /* x90965 stalin.sc:7789:266682 */ a39009 = t66457; /* x288705 */ /* x288704 */ t66458 = a39009; /* x288703 */ if (!((t66458.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33926]"); structure_ref_error();} t66456 = t66458.value.structure_type27698->s18; /* x90964 stalin.sc:7789:266676 */ f10159(t66456); /* x90973 stalin.sc:7790:266712 */ /* x90972 stalin.sc:7790:266718 */ /* x90971 stalin.sc:7790:266741 */ t66460 = a23176; /* x90970 stalin.sc:7790:266719 */ a38954 = t66460; /* x288485 */ /* x288484 */ t66461 = a38954; /* x288483 */ if (!((t66461.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33871]"); structure_ref_error();} t66459 = t66461.value.structure_type27698->s19; /* x90969 stalin.sc:7790:266713 */ f10159(t66459); /* x90963 */ /* x90962 stalin.sc:7791:266749 */ /* x90961 stalin.sc:7791:266755 */ /* x90960 stalin.sc:7791:266777 */ t66454 = a23176; /* x90959 stalin.sc:7791:266756 */ a38902 = t66454; /* x288277 */ /* x288276 */ t66455 = a38902; /* x288275 */ if (!((t66455.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33819]"); structure_ref_error();} t66453 = t66455.value.structure_type27698->s20; /* x90958 stalin.sc:7791:266750 */ a23176 = t66453; goto h10159; l11102: /* x91062 */ /* x90980 */ /* x90978 */ t66411 = a23178; /* x90979 */ t66412 = q77; /* x90977 */ t66413.tag = EXTERNAL_SYMBOL_TYPE; t66413.value.external_symbol_type = t66411; t66414.tag = EXTERNAL_SYMBOL_TYPE; t66414.value.external_symbol_type = t66412; if (f26160(t66413, t66414)==FALSE_TYPE) goto l11104; /* x90983 */ /* x90982 */ /* x90981 stalin.sc:7792:266808 */ return; l11104: /* x91061 */ /* x90987 */ /* x90985 */ t66415 = a23178; /* x90986 */ t66416 = q78; /* x90984 */ t66417.tag = EXTERNAL_SYMBOL_TYPE; t66417.value.external_symbol_type = t66415; t66418.tag = EXTERNAL_SYMBOL_TYPE; t66418.value.external_symbol_type = t66416; if (f26160(t66417, t66418)==FALSE_TYPE) goto l11106; /* x90990 */ /* x90989 */ /* x90988 stalin.sc:7793:266836 */ return; l11106: /* x91060 */ /* x90994 */ /* x90992 */ t66419 = a23178; /* x90993 */ t66420 = q38; /* x90991 */ t66421.tag = EXTERNAL_SYMBOL_TYPE; t66421.value.external_symbol_type = t66419; t66422.tag = EXTERNAL_SYMBOL_TYPE; t66422.value.external_symbol_type = t66420; if (f26160(t66421, t66422)==FALSE_TYPE) goto l11108; /* x91026 */ /* x91025 */ /* x91024 stalin.sc:7795:266857 */ /* x91009 stalin.sc:7795:266863 */ /* x91000 stalin.sc:7795:266868 */ /* x90998 stalin.sc:7795:266874 */ /* x90997 stalin.sc:7795:266895 */ t66444 = a23176; /* x90996 stalin.sc:7795:266875 */ a39153 = t66444; /* x289281 */ /* x289280 */ t66445 = a39153; /* x289279 */ if (!((t66445.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34070]"); structure_ref_error();} t66441 = t66445.value.structure_type27698->s16; /* x90999 stalin.sc:7795:266898 */ t66442 = a23109; /* x90995 stalin.sc:7795:266869 */ t66443 = *((struct w49 *)(&t66442)); if ((f26351(t66441, t66443).tag)==FALSE_TYPE) goto l11113; /* x91007 */ /* x91006 stalin.sc:7796:266915 */ /* x91005 stalin.sc:7796:266935 */ /* x91004 stalin.sc:7796:266956 */ t66447 = a23176; /* x91003 stalin.sc:7796:266936 */ a39123 = t66447; /* x289161 */ /* x289160 */ t66448 = a39123; /* x289159 */ if (!((t66448.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34040]"); structure_ref_error();} t66446 = t66448.value.structure_type27698->s16; /* x91002 stalin.sc:7796:266916 */ if (!(f8194(t66446)==FALSE_TYPE)) goto l11113; /* x91021 */ /* x91020 */ /* x91019 */ /* x91018 stalin.sc:7797:266967 */ /* x91016 stalin.sc:7797:266992 */ /* x91015 stalin.sc:7797:267013 */ t66451 = a23176; /* x91014 stalin.sc:7797:266993 */ a39122 = t66451; /* x289157 */ /* x289156 */ t66452 = a39122; /* x289155 */ if (!((t66452.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34039]"); structure_ref_error();} t66449 = t66452.value.structure_type27698->s16; /* x91017 stalin.sc:7797:267016 */ /* x91013 stalin.sc:7797:266968 */ t66450 = TRUE_TYPE; f8195(t66449, t66450); /* x91012 */ /* x91011 stalin.sc:7798:267025 */ /* x91010 stalin.sc:7798:267038 */ a23171 = TRUE_TYPE; return; l11113: /* x91023 stalin.sc:7795:266857 */ /* x91022 stalin.sc:7795:266857 */ return; l11108: /* x91059 */ /* x91039 */ /* x91038 */ /* x91036 */ t66423 = a23178; /* x91037 */ t66424 = q36; /* x91035 */ t66425.tag = EXTERNAL_SYMBOL_TYPE; t66425.value.external_symbol_type = t66423; t66426.tag = EXTERNAL_SYMBOL_TYPE; t66426.value.external_symbol_type = t66424; if (!(f26160(t66425, t66426)==FALSE_TYPE)) goto l11109; /* x91032 */ /* x91030 */ t66427 = a23178; /* x91031 */ t66428 = q37; /* x91029 */ t66429.tag = EXTERNAL_SYMBOL_TYPE; t66429.value.external_symbol_type = t66427; t66430.tag = EXTERNAL_SYMBOL_TYPE; t66430.value.external_symbol_type = t66428; if (f26160(t66429, t66430)==FALSE_TYPE) goto l11110; l11109: /* x91054 */ /* x91053 */ /* x91052 */ /* x91051 stalin.sc:7800:267074 */ /* x91050 stalin.sc:7800:267080 */ /* x91049 stalin.sc:7800:267099 */ t66439 = a23176; /* x91048 stalin.sc:7800:267081 */ a38668 = t66439; /* x287341 */ /* x287340 */ t66440 = a38668; /* x287339 */ if (!((t66440.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33585]"); structure_ref_error();} t66438 = t66440.value.structure_type27698->s21; /* x91047 stalin.sc:7800:267075 */ f10159(t66438); /* x91046 */ /* x91045 stalin.sc:7801:267107 */ /* x91044 stalin.sc:7801:267122 */ /* x91043 stalin.sc:7801:267144 */ t66436 = a23176; /* x91042 stalin.sc:7801:267123 */ a38552 = t66436; /* x286877 */ /* x286876 */ t66437 = a38552; /* x286875 */ if (!((t66437.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33469]"); structure_ref_error();} t66432 = t66437.value.structure_type27698->s22; /* x91041 stalin.sc:7801:267117 */ /* x91040 stalin.sc:7801:267108 */ t66433.tag = NATIVE_PROCEDURE_TYPE18028; t66434 = *((struct w49 *)(&t66432)); t66435 = (struct structure_type24753 *)NULL_TYPE; f27755(t66433, t66434, t66435); return; l11110: /* x91058 */ /* x91057 */ /* x91056 stalin.sc:7802:267158 */ /* x91055 stalin.sc:7802:267159 */ /* x296717 QobiScheme.sc:166:5314 */ /* x296716 QobiScheme.sc:166:5321 */ t66431 = "This shouldn\'t happen"; /* x296715 QobiScheme.sc:166:5315 */ stalin_panic(t66431);} /* [inside LOOP 10155] */ void f10155(struct w49 a23173) {struct w49 a39165; /* S */ struct w49 t66503; struct w49 t66504; struct w49 t66505; struct w49 t66506; /* x91101 stalin.sc:7763:265778 */ /* x90760 stalin.sc:7763:265784 */ /* x90759 stalin.sc:7763:265804 */ /* x90758 stalin.sc:7763:265825 */ t66504 = a23173; /* x90757 stalin.sc:7763:265805 */ a39165 = t66504; /* x289329 */ /* x289328 */ t66505 = a39165; /* x289327 */ if (!((t66505.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34082]"); structure_ref_error();} t66503 = t66505.value.structure_type27698->s16; /* x90756 stalin.sc:7763:265785 */ if (f8194(t66503)==FALSE_TYPE) goto l11124; /* x91098 */ /* x91097 */ /* x91096 stalin.sc:7764:265830 */ /* x91095 stalin.sc:7764:265844 */ t66506 = a23173; /* x91094 */ /* x91093 */ /* x91092 */ /* x91091 */ /* x91090 */ /* x91089 */ /* x91088 */ /* x90762 */ /* x90761 stalin.sc:7764:265835 */ f10159(t66506); return; l11124: /* x91100 stalin.sc:7763:265778 */ /* x91099 stalin.sc:7763:265778 */ return;} /* LOOP[10117] */ void f10117(struct w49 a23161) {char *a23162; /* v */ struct w49 a38581; /* S */ struct w49 a38706; /* S */ struct w49 a38921; /* S */ struct w49 a38975; /* S */ struct w49 a39034; /* S */ struct w49 a39077; /* S */ struct w49 a39163; /* S */ struct w49 a39164; /* S */ struct w49 a39245; /* S */ struct w49 a39246; /* S */ struct w49 a40365; /* S */ char *t66507; char *t66508; char *t66509; struct w49 t66510; struct w49 t66511; char *t66512; char *t66513; struct w49 t66514; struct w49 t66515; char *t66516; char *t66517; struct w49 t66518; struct w49 t66519; char *t66520; char *t66521; struct w49 t66522; struct w49 t66523; char *t66524; char *t66525; struct w49 t66526; struct w49 t66527; char *t66528; char *t66529; struct w49 t66530; struct w49 t66531; char *t66532; char *t66533; struct w49 t66534; struct w49 t66535; char *t66536; char *t66537; struct w49 t66538; struct w49 t66539; char *t66540; char *t66541; struct w49 t66542; struct w49 t66543; char *t66544; char *t66545; struct w49 t66546; struct w49 t66547; char *t66548; char *t66549; struct w49 t66550; struct w49 t66551; char *t66552; char *t66553; struct w49 t66554; struct w49 t66555; char *t66556; char *t66557; struct w49 t66558; struct w49 t66559; char *t66560; char *t66561; struct w49 t66562; struct w49 t66563; char *t66564; char *t66565; struct w49 t66566; struct w49 t66567; char *t66568; char *t66569; struct w49 t66570; struct w49 t66571; char *t66572; char *t66573; struct w49 t66574; struct w49 t66575; char *t66576; char *t66577; struct w49 t66578; struct w49 t66579; char *t66580; char *t66581; struct w49 t66582; struct w49 t66583; char *t66584; char *t66585; struct w49 t66586; struct w49 t66587; char *t66588; char *t66589; struct w49 t66590; struct w49 t66591; char *t66592; struct w11873 t66593; struct w36108 t66594; struct w49 t66595; struct structure_type24753 *t66596; struct w49 t66597; struct w49 t66598; struct w49 t66599; struct w49 t66600; struct w49 t66601; struct w49 t66602; struct w9296 t66603; struct w49 t66604; struct w49 t66605; struct w49 t66606; struct w49 t66607; unsigned t66608; struct w49 t66609; struct w49 t66610; struct w49 t66611; struct w49 t66612; struct w49 t66613; struct w49 t66614; struct w49 t66615; struct w49 t66616; struct w49 t66617; struct w49 t66618; struct w49 t66619; struct w49 t66620; struct w49 t66621; struct w49 t66622; struct w49 t66623; struct w49 t66624; struct w49 t66625; struct w49 t66626; struct w49 t66627; struct w49 t66628; struct w49 t66629; h10117: /* x90731 stalin.sc:7730:264831 */ /* x90730 stalin.sc:7730:264837 */ /* x90729 stalin.sc:7730:264854 */ t66628 = a23161; /* x90728 stalin.sc:7730:264838 */ a40365 = t66628; /* x294129 */ /* x294128 */ t66629 = a40365; /* x294127 */ if (!((t66629.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35282]"); structure_ref_error();} t66507 = t66629.value.structure_type27698->s0; /* x90727 */ a23162 = t66507; /* x90726 */ /* x90495 */ /* x90493 */ t66508 = a23162; /* x90494 */ t66509 = q68; /* x90492 */ t66510.tag = EXTERNAL_SYMBOL_TYPE; t66510.value.external_symbol_type = t66508; t66511.tag = EXTERNAL_SYMBOL_TYPE; t66511.value.external_symbol_type = t66509; if (f26160(t66510, t66511)==FALSE_TYPE) goto l11126; /* x90498 */ /* x90497 */ /* x90496 stalin.sc:7731:264876 */ return; l11126: /* x90725 */ /* x90502 */ /* x90500 */ t66512 = a23162; /* x90501 */ t66513 = q69; /* x90499 */ t66514.tag = EXTERNAL_SYMBOL_TYPE; t66514.value.external_symbol_type = t66512; t66515.tag = EXTERNAL_SYMBOL_TYPE; t66515.value.external_symbol_type = t66513; if (f26160(t66514, t66515)==FALSE_TYPE) goto l11128; /* x90505 */ /* x90504 */ /* x90503 stalin.sc:7732:264899 */ return; l11128: /* x90724 */ /* x90509 */ /* x90507 */ t66516 = a23162; /* x90508 */ t66517 = q70; /* x90506 */ t66518.tag = EXTERNAL_SYMBOL_TYPE; t66518.value.external_symbol_type = t66516; t66519.tag = EXTERNAL_SYMBOL_TYPE; t66519.value.external_symbol_type = t66517; if (f26160(t66518, t66519)==FALSE_TYPE) goto l11130; /* x90512 */ /* x90511 */ /* x90510 stalin.sc:7733:264923 */ return; l11130: /* x90723 */ /* x90516 */ /* x90514 */ t66520 = a23162; /* x90515 */ t66521 = q71; /* x90513 */ t66522.tag = EXTERNAL_SYMBOL_TYPE; t66522.value.external_symbol_type = t66520; t66523.tag = EXTERNAL_SYMBOL_TYPE; t66523.value.external_symbol_type = t66521; if (f26160(t66522, t66523)==FALSE_TYPE) goto l11132; /* x90519 */ /* x90518 */ /* x90517 stalin.sc:7734:264946 */ return; l11132: /* x90722 */ /* x90523 */ /* x90521 */ t66524 = a23162; /* x90522 */ t66525 = q72; /* x90520 */ t66526.tag = EXTERNAL_SYMBOL_TYPE; t66526.value.external_symbol_type = t66524; t66527.tag = EXTERNAL_SYMBOL_TYPE; t66527.value.external_symbol_type = t66525; if (f26160(t66526, t66527)==FALSE_TYPE) goto l11134; /* x90526 */ /* x90525 */ /* x90524 stalin.sc:7735:264971 */ return; l11134: /* x90721 */ /* x90530 */ /* x90528 */ t66528 = a23162; /* x90529 */ t66529 = q73; /* x90527 */ t66530.tag = EXTERNAL_SYMBOL_TYPE; t66530.value.external_symbol_type = t66528; t66531.tag = EXTERNAL_SYMBOL_TYPE; t66531.value.external_symbol_type = t66529; if (f26160(t66530, t66531)==FALSE_TYPE) goto l11136; /* x90533 */ /* x90532 */ /* x90531 stalin.sc:7736:264996 */ return; l11136: /* x90720 */ /* x90537 */ /* x90535 */ t66532 = a23162; /* x90536 */ t66533 = q74; /* x90534 */ t66534.tag = EXTERNAL_SYMBOL_TYPE; t66534.value.external_symbol_type = t66532; t66535.tag = EXTERNAL_SYMBOL_TYPE; t66535.value.external_symbol_type = t66533; if (f26160(t66534, t66535)==FALSE_TYPE) goto l11138; /* x90540 */ /* x90539 */ /* x90538 stalin.sc:7737:265026 */ return; l11138: /* x90719 */ /* x90544 */ /* x90542 */ t66536 = a23162; /* x90543 */ t66537 = q75; /* x90541 */ t66538.tag = EXTERNAL_SYMBOL_TYPE; t66538.value.external_symbol_type = t66536; t66539.tag = EXTERNAL_SYMBOL_TYPE; t66539.value.external_symbol_type = t66537; if (f26160(t66538, t66539)==FALSE_TYPE) goto l11140; /* x90547 */ /* x90546 */ /* x90545 stalin.sc:7738:265051 */ return; l11140: /* x90718 */ /* x90551 */ /* x90549 */ t66540 = a23162; /* x90550 */ t66541 = q76; /* x90548 */ t66542.tag = EXTERNAL_SYMBOL_TYPE; t66542.value.external_symbol_type = t66540; t66543.tag = EXTERNAL_SYMBOL_TYPE; t66543.value.external_symbol_type = t66541; if (f26160(t66542, t66543)==FALSE_TYPE) goto l11142; /* x90554 */ /* x90553 */ /* x90552 stalin.sc:7739:265076 */ return; l11142: /* x90717 */ /* x90558 */ /* x90556 */ t66544 = a23162; /* x90557 */ t66545 = q50; /* x90555 */ t66546.tag = EXTERNAL_SYMBOL_TYPE; t66546.value.external_symbol_type = t66544; t66547.tag = EXTERNAL_SYMBOL_TYPE; t66547.value.external_symbol_type = t66545; if (f26160(t66546, t66547)==FALSE_TYPE) goto l11144; /* x90561 */ /* x90560 */ /* x90559 stalin.sc:7740:265099 */ return; l11144: /* x90716 */ /* x90565 */ /* x90563 */ t66548 = a23162; /* x90564 */ t66549 = q52; /* x90562 */ t66550.tag = EXTERNAL_SYMBOL_TYPE; t66550.value.external_symbol_type = t66548; t66551.tag = EXTERNAL_SYMBOL_TYPE; t66551.value.external_symbol_type = t66549; if (f26160(t66550, t66551)==FALSE_TYPE) goto l11146; /* x90568 */ /* x90567 */ /* x90566 stalin.sc:7741:265124 */ return; l11146: /* x90715 */ /* x90590 */ /* x90589 */ /* x90587 */ t66552 = a23162; /* x90588 */ t66553 = q39; /* x90586 */ t66554.tag = EXTERNAL_SYMBOL_TYPE; t66554.value.external_symbol_type = t66552; t66555.tag = EXTERNAL_SYMBOL_TYPE; t66555.value.external_symbol_type = t66553; if (!(f26160(t66554, t66555)==FALSE_TYPE)) goto l11147; /* x90583 */ /* x90582 */ /* x90580 */ t66556 = a23162; /* x90581 */ t66557 = q40; /* x90579 */ t66558.tag = EXTERNAL_SYMBOL_TYPE; t66558.value.external_symbol_type = t66556; t66559.tag = EXTERNAL_SYMBOL_TYPE; t66559.value.external_symbol_type = t66557; if (!(f26160(t66558, t66559)==FALSE_TYPE)) goto l11147; /* x90576 */ /* x90574 */ t66560 = a23162; /* x90575 */ t66561 = q41; /* x90573 */ t66562.tag = EXTERNAL_SYMBOL_TYPE; t66562.value.external_symbol_type = t66560; t66563.tag = EXTERNAL_SYMBOL_TYPE; t66563.value.external_symbol_type = t66561; if (f26160(t66562, t66563)==FALSE_TYPE) goto l11148; l11147: /* x90605 */ /* x90604 */ /* x90603 stalin.sc:7743:265183 */ /* x90593 stalin.sc:7743:265189 */ /* x90592 stalin.sc:7743:265206 */ t66623 = a23161; /* x90591 stalin.sc:7743:265190 */ a39246 = t66623; /* x289653 */ /* x289652 */ t66624 = a39246; /* x289651 */ if (!((t66624.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34163]"); structure_ref_error();} if ((t66624.value.structure_type27698->s15.tag)==FALSE_TYPE) goto l11167; /* x90600 */ /* x90599 */ /* x90598 stalin.sc:7743:265209 */ /* x90597 stalin.sc:7743:265215 */ /* x90596 stalin.sc:7743:265232 */ t66626 = a23161; /* x90595 stalin.sc:7743:265216 */ a39245 = t66626; /* x289649 */ /* x289648 */ t66627 = a39245; /* x289647 */ if (!((t66627.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34162]"); structure_ref_error();} t66625 = t66627.value.structure_type27698->s15; /* x90594 stalin.sc:7743:265210 */ a23161 = t66625; goto h10117; l11167: /* x90602 stalin.sc:7743:265183 */ /* x90601 stalin.sc:7743:265183 */ return; l11148: /* x90714 */ /* x90609 */ /* x90607 */ t66564 = a23162; /* x90608 */ t66565 = q42; /* x90606 */ t66566.tag = EXTERNAL_SYMBOL_TYPE; t66566.value.external_symbol_type = t66564; t66567.tag = EXTERNAL_SYMBOL_TYPE; t66567.value.external_symbol_type = t66565; if (f26160(t66566, t66567)==FALSE_TYPE) goto l11152; /* x90616 */ /* x90615 */ /* x90614 stalin.sc:7744:265248 */ /* x90613 stalin.sc:7744:265254 */ /* x90612 stalin.sc:7744:265273 */ t66621 = a23161; /* x90611 stalin.sc:7744:265255 */ a39077 = t66621; /* x288977 */ /* x288976 */ t66622 = a39077; /* x288975 */ if (!((t66622.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33994]"); structure_ref_error();} t66620 = t66622.value.structure_type27698->s17; /* x90610 stalin.sc:7744:265249 */ a23161 = t66620; goto h10117; l11152: /* x90713 */ /* x90620 */ /* x90618 */ t66568 = a23162; /* x90619 */ t66569 = q43; /* x90617 */ t66570.tag = EXTERNAL_SYMBOL_TYPE; t66570.value.external_symbol_type = t66568; t66571.tag = EXTERNAL_SYMBOL_TYPE; t66571.value.external_symbol_type = t66569; if (f26160(t66570, t66571)==FALSE_TYPE) goto l11154; /* x90639 */ /* x90638 */ /* x90637 */ /* x90631 stalin.sc:7746:265289 */ /* x90630 stalin.sc:7746:265295 */ /* x90629 stalin.sc:7746:265318 */ t66615 = a23161; /* x90628 stalin.sc:7746:265296 */ a39034 = t66615; /* x288805 */ /* x288804 */ t66616 = a39034; /* x288803 */ if (!((t66616.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33951]"); structure_ref_error();} t66614 = t66616.value.structure_type27698->s18; /* x90627 stalin.sc:7746:265290 */ f10117(t66614); /* x90636 stalin.sc:7747:265325 */ /* x90635 stalin.sc:7747:265331 */ /* x90634 stalin.sc:7747:265354 */ t66618 = a23161; /* x90633 stalin.sc:7747:265332 */ a38975 = t66618; /* x288569 */ /* x288568 */ t66619 = a38975; /* x288567 */ if (!((t66619.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33892]"); structure_ref_error();} t66617 = t66619.value.structure_type27698->s19; /* x90632 stalin.sc:7747:265326 */ f10117(t66617); /* x90626 */ /* x90625 stalin.sc:7748:265361 */ /* x90624 stalin.sc:7748:265367 */ /* x90623 stalin.sc:7748:265389 */ t66612 = a23161; /* x90622 stalin.sc:7748:265368 */ a38921 = t66612; /* x288353 */ /* x288352 */ t66613 = a38921; /* x288351 */ if (!((t66613.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33838]"); structure_ref_error();} t66611 = t66613.value.structure_type27698->s20; /* x90621 stalin.sc:7748:265362 */ a23161 = t66611; goto h10117; l11154: /* x90712 */ /* x90643 */ /* x90641 */ t66572 = a23162; /* x90642 */ t66573 = q77; /* x90640 */ t66574.tag = EXTERNAL_SYMBOL_TYPE; t66574.value.external_symbol_type = t66572; t66575.tag = EXTERNAL_SYMBOL_TYPE; t66575.value.external_symbol_type = t66573; if (f26160(t66574, t66575)==FALSE_TYPE) goto l11156; /* x90646 */ /* x90645 */ /* x90644 stalin.sc:7749:265419 */ return; l11156: /* x90711 */ /* x90650 */ /* x90648 */ t66576 = a23162; /* x90649 */ t66577 = q78; /* x90647 */ t66578.tag = EXTERNAL_SYMBOL_TYPE; t66578.value.external_symbol_type = t66576; t66579.tag = EXTERNAL_SYMBOL_TYPE; t66579.value.external_symbol_type = t66577; if (f26160(t66578, t66579)==FALSE_TYPE) goto l11158; /* x90653 */ /* x90652 */ /* x90651 stalin.sc:7750:265446 */ return; l11158: /* x90710 */ /* x90657 */ /* x90655 */ t66580 = a23162; /* x90656 */ t66581 = q38; /* x90654 */ t66582.tag = EXTERNAL_SYMBOL_TYPE; t66582.value.external_symbol_type = t66580; t66583.tag = EXTERNAL_SYMBOL_TYPE; t66583.value.external_symbol_type = t66581; if (f26160(t66582, t66583)==FALSE_TYPE) goto l11160; /* x90676 */ /* x90675 */ /* x90674 stalin.sc:7752:265465 */ /* x90663 stalin.sc:7752:265471 */ /* x90661 stalin.sc:7752:265477 */ /* x90660 stalin.sc:7752:265498 */ t66605 = a23161; /* x90659 stalin.sc:7752:265478 */ a39164 = t66605; /* x289325 */ /* x289324 */ t66606 = a39164; /* x289323 */ if (!((t66606.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34081]"); structure_ref_error();} t66602 = t66606.value.structure_type27698->s16; /* x90662 stalin.sc:7752:265501 */ t66603 = a23109; /* x90658 stalin.sc:7752:265472 */ t66604 = *((struct w49 *)(&t66603)); if ((f26351(t66602, t66604).tag)==FALSE_TYPE) goto l11165; /* x90671 */ /* x90670 */ /* x90669 stalin.sc:7753:265509 */ /* x90667 stalin.sc:7753:265534 */ /* x90666 stalin.sc:7753:265555 */ t66609 = a23161; /* x90665 stalin.sc:7753:265535 */ a39163 = t66609; /* x289321 */ /* x289320 */ t66610 = a39163; /* x289319 */ if (!((t66610.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34080]"); structure_ref_error();} t66607 = t66610.value.structure_type27698->s16; /* x90668 stalin.sc:7753:265558 */ /* x90664 stalin.sc:7753:265510 */ t66608 = TRUE_TYPE; f8195(t66607, t66608); return; l11165: /* x90673 stalin.sc:7752:265465 */ /* x90672 stalin.sc:7752:265465 */ return; l11160: /* x90709 */ /* x90689 */ /* x90688 */ /* x90686 */ t66584 = a23162; /* x90687 */ t66585 = q36; /* x90685 */ t66586.tag = EXTERNAL_SYMBOL_TYPE; t66586.value.external_symbol_type = t66584; t66587.tag = EXTERNAL_SYMBOL_TYPE; t66587.value.external_symbol_type = t66585; if (!(f26160(t66586, t66587)==FALSE_TYPE)) goto l11161; /* x90682 */ /* x90680 */ t66588 = a23162; /* x90681 */ t66589 = q37; /* x90679 */ t66590.tag = EXTERNAL_SYMBOL_TYPE; t66590.value.external_symbol_type = t66588; t66591.tag = EXTERNAL_SYMBOL_TYPE; t66591.value.external_symbol_type = t66589; if (f26160(t66590, t66591)==FALSE_TYPE) goto l11162; l11161: /* x90704 */ /* x90703 */ /* x90702 */ /* x90701 stalin.sc:7755:265592 */ /* x90700 stalin.sc:7755:265598 */ /* x90699 stalin.sc:7755:265617 */ t66600 = a23161; /* x90698 stalin.sc:7755:265599 */ a38706 = t66600; /* x287493 */ /* x287492 */ t66601 = a38706; /* x287491 */ if (!((t66601.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33623]"); structure_ref_error();} t66599 = t66601.value.structure_type27698->s21; /* x90697 stalin.sc:7755:265593 */ f10117(t66599); /* x90696 */ /* x90695 stalin.sc:7756:265624 */ /* x90694 stalin.sc:7756:265639 */ /* x90693 stalin.sc:7756:265661 */ t66597 = a23161; /* x90692 stalin.sc:7756:265640 */ a38581 = t66597; /* x286993 */ /* x286992 */ t66598 = a38581; /* x286991 */ if (!((t66598.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33498]"); structure_ref_error();} t66593 = t66598.value.structure_type27698->s22; /* x90691 stalin.sc:7756:265634 */ /* x90690 stalin.sc:7756:265625 */ t66594.tag = NATIVE_PROCEDURE_TYPE17260; t66595 = *((struct w49 *)(&t66593)); t66596 = (struct structure_type24753 *)NULL_TYPE; f27755(t66594, t66595, t66596); return; l11162: /* x90708 */ /* x90707 */ /* x90706 stalin.sc:7757:265674 */ /* x90705 stalin.sc:7757:265675 */ /* x296953 QobiScheme.sc:166:5314 */ /* x296952 QobiScheme.sc:166:5321 */ t66592 = "This shouldn\'t happen"; /* x296951 QobiScheme.sc:166:5315 */ stalin_panic(t66592);} /* [inside FAST-TREE-SHAKE! 10114] */ void f10114(struct w49 a23158) {struct w49 t66630; /* x90740 stalin.sc:7729:264805 */ /* x90739 stalin.sc:7729:264819 */ t66630 = a23158; /* x90738 */ /* x90737 */ /* x90736 */ /* x90735 */ /* x90734 */ /* x90733 */ /* x90732 */ /* x90491 */ /* x90490 stalin.sc:7729:264810 */ f10117(t66630); return;} /* [inside FAST-TREE-SHAKE! 10110] */ void f10110(struct w49 a23156) {struct p10110 *t66631; struct w12224 t66632; struct w228345 t66633; struct w49 t66634; struct structure_type24753 *t66635; struct p10110 *t66636; struct w49 t66637; unsigned t66638; struct p10110 *e10110; struct p10110 *p10112; e10110 = (struct p10110 *)alloca(sizeof(struct p10110)); if (e10110==NULL) {backtrace("stalin.sc", 7724, 264641); out_of_memory_error();} e10110->a23156 = a23156; /* x90485 stalin.sc:7725:264660 */ /* x90476 stalin.sc:7725:264666 */ /* x90475 stalin.sc:7725:264717 */ t66632 = a23111; /* x90474 stalin.sc:7725:264672 */ t66631 = e10110; /* x90467 stalin.sc:7725:264667 */ t66633.tag = NATIVE_PROCEDURE_TYPE17291; t66633.value.native_procedure_type17291 = t66631; t66634 = *((struct w49 *)(&t66632)); t66635 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t66633, t66634, t66635).tag)==FALSE_TYPE) goto l11169; /* x90482 */ /* x90481 */ t66636 = e10110; p10112 = t66636; /* x90480 stalin.sc:7726:264730 */ /* x90478 stalin.sc:7726:264755 */ t66637 = p10112->a23156; /* x90479 stalin.sc:7726:264757 */ /* x90477 stalin.sc:7726:264731 */ t66638 = FALSE_TYPE; f8195(t66637, t66638); return; l11169: /* x90484 stalin.sc:7725:264660 */ /* x90483 stalin.sc:7725:264660 */ return;} /* LOOP[10070] */ void f10070(struct w49 a23141) {char *a23143; /* v */ struct w49 a23150; /* GS */ struct structure_type24753 *a35520; /* PAIR */ struct structure_type24753 *a36067; /* PAIR */ struct w16611 a37021; /* OBJ */ struct w49 a38580; /* S */ struct w49 a38705; /* S */ struct w49 a38920; /* S */ struct w49 a38974; /* S */ struct w49 a39033; /* S */ struct w49 a39076; /* S */ struct w49 a39243; /* S */ struct w49 a39244; /* S */ struct w49 a39440; /* S */ struct w49 a39553; /* S */ struct w49 a39597; /* S */ struct w49 a39598; /* S */ struct w49 a40364; /* S */ char *t66639; char *t66640; char *t66641; struct w49 t66642; struct w49 t66643; char *t66644; char *t66645; struct w49 t66646; struct w49 t66647; char *t66648; char *t66649; struct w49 t66650; struct w49 t66651; char *t66652; char *t66653; struct w49 t66654; struct w49 t66655; char *t66656; char *t66657; struct w49 t66658; struct w49 t66659; char *t66660; char *t66661; struct w49 t66662; struct w49 t66663; char *t66664; char *t66665; struct w49 t66666; struct w49 t66667; char *t66668; char *t66669; struct w49 t66670; struct w49 t66671; char *t66672; char *t66673; struct w49 t66674; struct w49 t66675; char *t66676; char *t66677; struct w49 t66678; struct w49 t66679; char *t66680; char *t66681; struct w49 t66682; struct w49 t66683; char *t66684; char *t66685; struct w49 t66686; struct w49 t66687; char *t66688; char *t66689; struct w49 t66690; struct w49 t66691; char *t66692; char *t66693; struct w49 t66694; struct w49 t66695; char *t66696; char *t66697; struct w49 t66698; struct w49 t66699; char *t66700; char *t66701; struct w49 t66702; struct w49 t66703; char *t66704; char *t66705; struct w49 t66706; struct w49 t66707; char *t66708; char *t66709; struct w49 t66710; struct w49 t66711; char *t66712; char *t66713; struct w49 t66714; struct w49 t66715; char *t66716; char *t66717; struct w49 t66718; struct w49 t66719; char *t66720; char *t66721; struct w49 t66722; struct w49 t66723; char *t66724; struct w11873 t66725; struct w36108 t66726; struct w49 t66727; struct structure_type24753 *t66728; struct w49 t66729; struct w49 t66730; struct w49 t66731; struct w49 t66732; struct w49 t66733; struct w49 t66734; struct w49 t66735; struct w49 t66736; struct w49 t66737; struct w49 t66738; struct w49 t66739; struct w49 t66740; struct w49 t66741; struct w49 t66742; struct w49 t66743; struct w49 t66744; struct w49 t66745; struct w49 t66746; struct w49 t66747; struct w49 t66748; struct w49 t66749; struct w49 t66750; struct w9296 t66751; struct w49 t66752; struct w16611 t66753; struct w16611 t66754; struct w16611 t66755; struct w49 t66756; unsigned t66757; struct w49 t66758; struct structure_type24753 *t66759; struct structure_type24753 *t66760; struct w49 t66761; unsigned t66762; struct structure_type24753 *t66763; struct structure_type24753 *t66764; struct w49 t66765; struct w49 t66766; struct w49 t66767; unsigned t66768; struct w49 t66769; struct w49 t66770; struct w49 t66771; struct w49 t66772; struct w49 t66773; struct w49 t66774; struct w49 t66775; struct w49 t66776; struct w49 t66777; struct w49 t66778; struct w49 t66779; struct w49 t66780; struct w49 t66781; struct w49 t66782; unsigned t66783; h10070: /* x90453 */ /* x90452 stalin.sc:7689:263436 */ /* x90450 stalin.sc:7689:263463 */ t66782 = a23141; /* x90451 stalin.sc:7689:263465 */ /* x90449 stalin.sc:7689:263437 */ t66783 = FALSE_TYPE; f6937(t66782, t66783); /* x90448 */ /* x90447 stalin.sc:7690:263475 */ /* x90446 stalin.sc:7690:263481 */ /* x90445 stalin.sc:7690:263498 */ t66780 = a23141; /* x90444 stalin.sc:7690:263482 */ a40364 = t66780; /* x294125 */ /* x294124 */ t66781 = a40364; /* x294123 */ if (!((t66781.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35281]"); structure_ref_error();} t66639 = t66781.value.structure_type27698->s0; /* x90443 */ a23143 = t66639; /* x90442 */ /* x90161 */ /* x90159 */ t66640 = a23143; /* x90160 */ t66641 = q68; /* x90158 */ t66642.tag = EXTERNAL_SYMBOL_TYPE; t66642.value.external_symbol_type = t66640; t66643.tag = EXTERNAL_SYMBOL_TYPE; t66643.value.external_symbol_type = t66641; if (f26160(t66642, t66643)==FALSE_TYPE) goto l11171; /* x90164 */ /* x90163 */ /* x90162 stalin.sc:7691:263525 */ return; l11171: /* x90441 */ /* x90168 */ /* x90166 */ t66644 = a23143; /* x90167 */ t66645 = q69; /* x90165 */ t66646.tag = EXTERNAL_SYMBOL_TYPE; t66646.value.external_symbol_type = t66644; t66647.tag = EXTERNAL_SYMBOL_TYPE; t66647.value.external_symbol_type = t66645; if (f26160(t66646, t66647)==FALSE_TYPE) goto l11173; /* x90171 */ /* x90170 */ /* x90169 stalin.sc:7692:263553 */ return; l11173: /* x90440 */ /* x90175 */ /* x90173 */ t66648 = a23143; /* x90174 */ t66649 = q70; /* x90172 */ t66650.tag = EXTERNAL_SYMBOL_TYPE; t66650.value.external_symbol_type = t66648; t66651.tag = EXTERNAL_SYMBOL_TYPE; t66651.value.external_symbol_type = t66649; if (f26160(t66650, t66651)==FALSE_TYPE) goto l11175; /* x90178 */ /* x90177 */ /* x90176 stalin.sc:7693:263582 */ return; l11175: /* x90439 */ /* x90182 */ /* x90180 */ t66652 = a23143; /* x90181 */ t66653 = q71; /* x90179 */ t66654.tag = EXTERNAL_SYMBOL_TYPE; t66654.value.external_symbol_type = t66652; t66655.tag = EXTERNAL_SYMBOL_TYPE; t66655.value.external_symbol_type = t66653; if (f26160(t66654, t66655)==FALSE_TYPE) goto l11177; /* x90185 */ /* x90184 */ /* x90183 stalin.sc:7694:263610 */ return; l11177: /* x90438 */ /* x90189 */ /* x90187 */ t66656 = a23143; /* x90188 */ t66657 = q72; /* x90186 */ t66658.tag = EXTERNAL_SYMBOL_TYPE; t66658.value.external_symbol_type = t66656; t66659.tag = EXTERNAL_SYMBOL_TYPE; t66659.value.external_symbol_type = t66657; if (f26160(t66658, t66659)==FALSE_TYPE) goto l11179; /* x90192 */ /* x90191 */ /* x90190 stalin.sc:7695:263640 */ return; l11179: /* x90437 */ /* x90196 */ /* x90194 */ t66660 = a23143; /* x90195 */ t66661 = q73; /* x90193 */ t66662.tag = EXTERNAL_SYMBOL_TYPE; t66662.value.external_symbol_type = t66660; t66663.tag = EXTERNAL_SYMBOL_TYPE; t66663.value.external_symbol_type = t66661; if (f26160(t66662, t66663)==FALSE_TYPE) goto l11181; /* x90199 */ /* x90198 */ /* x90197 stalin.sc:7696:263670 */ return; l11181: /* x90436 */ /* x90203 */ /* x90201 */ t66664 = a23143; /* x90202 */ t66665 = q74; /* x90200 */ t66666.tag = EXTERNAL_SYMBOL_TYPE; t66666.value.external_symbol_type = t66664; t66667.tag = EXTERNAL_SYMBOL_TYPE; t66667.value.external_symbol_type = t66665; if (f26160(t66666, t66667)==FALSE_TYPE) goto l11183; /* x90206 */ /* x90205 */ /* x90204 stalin.sc:7697:263705 */ return; l11183: /* x90435 */ /* x90210 */ /* x90208 */ t66668 = a23143; /* x90209 */ t66669 = q75; /* x90207 */ t66670.tag = EXTERNAL_SYMBOL_TYPE; t66670.value.external_symbol_type = t66668; t66671.tag = EXTERNAL_SYMBOL_TYPE; t66671.value.external_symbol_type = t66669; if (f26160(t66670, t66671)==FALSE_TYPE) goto l11185; /* x90213 */ /* x90212 */ /* x90211 stalin.sc:7698:263735 */ return; l11185: /* x90434 */ /* x90217 */ /* x90215 */ t66672 = a23143; /* x90216 */ t66673 = q76; /* x90214 */ t66674.tag = EXTERNAL_SYMBOL_TYPE; t66674.value.external_symbol_type = t66672; t66675.tag = EXTERNAL_SYMBOL_TYPE; t66675.value.external_symbol_type = t66673; if (f26160(t66674, t66675)==FALSE_TYPE) goto l11187; /* x90220 */ /* x90219 */ /* x90218 stalin.sc:7699:263765 */ return; l11187: /* x90433 */ /* x90224 */ /* x90222 */ t66676 = a23143; /* x90223 */ t66677 = q50; /* x90221 */ t66678.tag = EXTERNAL_SYMBOL_TYPE; t66678.value.external_symbol_type = t66676; t66679.tag = EXTERNAL_SYMBOL_TYPE; t66679.value.external_symbol_type = t66677; if (f26160(t66678, t66679)==FALSE_TYPE) goto l11189; /* x90242 */ /* x90241 */ /* x90240 */ /* x90239 stalin.sc:7701:263794 */ /* x90238 stalin.sc:7701:263800 */ /* x90237 stalin.sc:7701:263805 */ /* x90236 stalin.sc:7701:263826 */ t66778 = a23141; /* x90235 stalin.sc:7701:263806 */ a39597 = t66778; /* x291057 */ /* x291056 */ t66779 = a39597; /* x291055 */ if (!((t66779.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34514]"); structure_ref_error();} t66777 = t66779.value.structure_type27698->s12; /* x269839 stalin.sc:7701:263801 */ if (!((t66777.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 7701, 263800); structure_ref_error();} t66776 = t66777.value.structure_type24753->s0; /* x90233 stalin.sc:7701:263795 */ f10070(t66776); /* x90232 */ /* x90231 stalin.sc:7702:263832 */ /* x90230 stalin.sc:7702:263838 */ /* x90229 stalin.sc:7702:263843 */ /* x90228 stalin.sc:7702:263864 */ t66774 = a23141; /* x90227 stalin.sc:7702:263844 */ a39553 = t66774; /* x290881 */ /* x290880 */ t66775 = a39553; /* x290879 */ if (!((t66775.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34470]"); structure_ref_error();} t66773 = t66775.value.structure_type27698->s12; /* x269840 stalin.sc:7702:263839 */ if (!((t66773.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 7702, 263838); structure_ref_error();} t66772 = t66773.value.structure_type24753->s1; /* x90225 stalin.sc:7702:263833 */ a23141 = t66772; goto h10070; l11189: /* x90432 */ /* x90246 */ /* x90244 */ t66680 = a23143; /* x90245 */ t66681 = q52; /* x90243 */ t66682.tag = EXTERNAL_SYMBOL_TYPE; t66682.value.external_symbol_type = t66680; t66683.tag = EXTERNAL_SYMBOL_TYPE; t66683.value.external_symbol_type = t66681; if (f26160(t66682, t66683)==FALSE_TYPE) goto l11191; /* x90254 */ /* x90253 */ /* x90252 stalin.sc:7703:263896 */ /* x90251 stalin.sc:7703:263918 */ /* x90250 stalin.sc:7703:263939 */ t66770 = a23141; /* x90249 stalin.sc:7703:263919 */ a39598 = t66770; /* x291061 */ /* x291060 */ t66771 = a39598; /* x291059 */ if (!((t66771.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34515]"); structure_ref_error();} t66767 = t66771.value.structure_type27698->s12; /* x90248 stalin.sc:7703:263913 */ /* x90247 stalin.sc:7703:263897 */ t66768 = (unsigned)NATIVE_PROCEDURE_TYPE17297; t66769 = t66767; f1141(t66768, t66769); return; l11191: /* x90431 */ /* x90276 */ /* x90275 */ /* x90273 */ t66684 = a23143; /* x90274 */ t66685 = q39; /* x90272 */ t66686.tag = EXTERNAL_SYMBOL_TYPE; t66686.value.external_symbol_type = t66684; t66687.tag = EXTERNAL_SYMBOL_TYPE; t66687.value.external_symbol_type = t66685; if (!(f26160(t66686, t66687)==FALSE_TYPE)) goto l11192; /* x90269 */ /* x90268 */ /* x90266 */ t66688 = a23143; /* x90267 */ t66689 = q40; /* x90265 */ t66690.tag = EXTERNAL_SYMBOL_TYPE; t66690.value.external_symbol_type = t66688; t66691.tag = EXTERNAL_SYMBOL_TYPE; t66691.value.external_symbol_type = t66689; if (!(f26160(t66690, t66691)==FALSE_TYPE)) goto l11192; /* x90262 */ /* x90260 */ t66692 = a23143; /* x90261 */ t66693 = q41; /* x90259 */ t66694.tag = EXTERNAL_SYMBOL_TYPE; t66694.value.external_symbol_type = t66692; t66695.tag = EXTERNAL_SYMBOL_TYPE; t66695.value.external_symbol_type = t66693; if (f26160(t66694, t66695)==FALSE_TYPE) goto l11193; l11192: /* x90337 */ /* x90336 */ /* x90335 */ /* x90334 stalin.sc:7705:264002 */ /* x90333 stalin.sc:7705:264017 */ /* x90332 stalin.sc:7705:264040 */ t66765 = a23141; /* x90331 stalin.sc:7705:264018 */ a39440 = t66765; /* x290429 */ /* x290428 */ t66766 = a39440; /* x290427 */ if (!((t66766.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34357]"); structure_ref_error();} t66751 = t66766.value.structure_type27698->s14; /* x90330 */ /* x90329 */ /* x90328 */ /* x90327 */ /* x90326 */ /* x90325 */ /* x90324 */ /* x90292 */ /* x90291 stalin.sc:7705:264007 */ a23150 = *((struct w49 *)(&t66751)); h10093: /* x90323 stalin.sc:7706:264047 */ /* x90295 stalin.sc:7706:264054 */ /* x90294 stalin.sc:7706:264061 */ t66752 = a23150; /* x269838 stalin.sc:7706:264055 */ if (!((t66752.tag)==STRUCTURE_TYPE24753)) goto l11212; /* x90310 */ /* x90309 */ /* x90308 */ /* x90307 stalin.sc:7707:264067 */ /* x90305 stalin.sc:7707:264092 */ /* x90304 stalin.sc:7707:264099 */ t66763 = a23150.value.structure_type24753; /* x90303 stalin.sc:7707:264093 */ a36067 = t66763; /* x275625 */ /* x275624 */ t66764 = a36067; /* x275623 */ t66761 = t66764->s0; /* x90306 stalin.sc:7707:264103 */ /* x90302 stalin.sc:7707:264068 */ t66762 = FALSE_TYPE; f8195(t66761, t66762); /* x90301 */ /* x90300 stalin.sc:7708:264109 */ /* x90299 stalin.sc:7708:264115 */ /* x90298 stalin.sc:7708:264121 */ t66759 = a23150.value.structure_type24753; /* x90297 stalin.sc:7708:264116 */ a35520 = t66759; /* x273437 */ /* x273436 */ t66760 = a35520; /* x273435 */ t66758 = t66760->s1; /* x90296 stalin.sc:7708:264110 */ a23150 = t66758; goto h10093; goto l11213; l11212: /* x90322 */ /* x90313 stalin.sc:7709:264136 */ /* x90312 stalin.sc:7709:264147 */ t66753 = *((struct w16611 *)(&a23150)); /* x90311 stalin.sc:7709:264137 */ a37021 = t66753; /* x280753 */ /* x280752 */ t66754 = a37021; /* x280751 */ if (!((t66754.tag)==STRUCTURE_TYPE27692)) goto l11215; /* x90319 */ /* x90318 */ /* x90317 stalin.sc:7709:264151 */ /* x90315 stalin.sc:7709:264176 */ t66755 = *((struct w16611 *)(&a23150)); /* x90316 stalin.sc:7709:264179 */ /* x90314 stalin.sc:7709:264152 */ t66756 = *((struct w49 *)(&t66755)); t66757 = FALSE_TYPE; f8195(t66756, t66757); goto l11216; l11215: /* x90321 */ /* x90320 */ l11216: l11213: /* x90290 */ /* x90289 stalin.sc:7710:264187 */ /* x90279 stalin.sc:7710:264193 */ /* x90278 stalin.sc:7710:264210 */ t66746 = a23141; /* x90277 stalin.sc:7710:264194 */ a39244 = t66746; /* x289645 */ /* x289644 */ t66747 = a39244; /* x289643 */ if (!((t66747.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34161]"); structure_ref_error();} if ((t66747.value.structure_type27698->s15.tag)==FALSE_TYPE) goto l11210; /* x90286 */ /* x90285 */ /* x90284 stalin.sc:7710:264213 */ /* x90283 stalin.sc:7710:264219 */ /* x90282 stalin.sc:7710:264236 */ t66749 = a23141; /* x90281 stalin.sc:7710:264220 */ a39243 = t66749; /* x289641 */ /* x289640 */ t66750 = a39243; /* x289639 */ if (!((t66750.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34160]"); structure_ref_error();} t66748 = t66750.value.structure_type27698->s15; /* x90280 stalin.sc:7710:264214 */ a23141 = t66748; goto h10070; l11210: /* x90288 stalin.sc:7710:264187 */ /* x90287 stalin.sc:7710:264187 */ return; l11193: /* x90430 */ /* x90341 */ /* x90339 */ t66696 = a23143; /* x90340 */ t66697 = q42; /* x90338 */ t66698.tag = EXTERNAL_SYMBOL_TYPE; t66698.value.external_symbol_type = t66696; t66699.tag = EXTERNAL_SYMBOL_TYPE; t66699.value.external_symbol_type = t66697; if (f26160(t66698, t66699)==FALSE_TYPE) goto l11197; /* x90348 */ /* x90347 */ /* x90346 stalin.sc:7711:264257 */ /* x90345 stalin.sc:7711:264263 */ /* x90344 stalin.sc:7711:264282 */ t66744 = a23141; /* x90343 stalin.sc:7711:264264 */ a39076 = t66744; /* x288973 */ /* x288972 */ t66745 = a39076; /* x288971 */ if (!((t66745.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33993]"); structure_ref_error();} t66743 = t66745.value.structure_type27698->s17; /* x90342 stalin.sc:7711:264258 */ a23141 = t66743; goto h10070; l11197: /* x90429 */ /* x90352 */ /* x90350 */ t66700 = a23143; /* x90351 */ t66701 = q43; /* x90349 */ t66702.tag = EXTERNAL_SYMBOL_TYPE; t66702.value.external_symbol_type = t66700; t66703.tag = EXTERNAL_SYMBOL_TYPE; t66703.value.external_symbol_type = t66701; if (f26160(t66702, t66703)==FALSE_TYPE) goto l11199; /* x90371 */ /* x90370 */ /* x90369 */ /* x90363 stalin.sc:7713:264301 */ /* x90362 stalin.sc:7713:264307 */ /* x90361 stalin.sc:7713:264330 */ t66738 = a23141; /* x90360 stalin.sc:7713:264308 */ a39033 = t66738; /* x288801 */ /* x288800 */ t66739 = a39033; /* x288799 */ if (!((t66739.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33950]"); structure_ref_error();} t66737 = t66739.value.structure_type27698->s18; /* x90359 stalin.sc:7713:264302 */ f10070(t66737); /* x90368 stalin.sc:7714:264335 */ /* x90367 stalin.sc:7714:264341 */ /* x90366 stalin.sc:7714:264364 */ t66741 = a23141; /* x90365 stalin.sc:7714:264342 */ a38974 = t66741; /* x288565 */ /* x288564 */ t66742 = a38974; /* x288563 */ if (!((t66742.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33891]"); structure_ref_error();} t66740 = t66742.value.structure_type27698->s19; /* x90364 stalin.sc:7714:264336 */ f10070(t66740); /* x90358 */ /* x90357 stalin.sc:7715:264369 */ /* x90356 stalin.sc:7715:264375 */ /* x90355 stalin.sc:7715:264397 */ t66735 = a23141; /* x90354 stalin.sc:7715:264376 */ a38920 = t66735; /* x288349 */ /* x288348 */ t66736 = a38920; /* x288347 */ if (!((t66736.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33837]"); structure_ref_error();} t66734 = t66736.value.structure_type27698->s20; /* x90353 stalin.sc:7715:264370 */ a23141 = t66734; goto h10070; l11199: /* x90428 */ /* x90375 */ /* x90373 */ t66704 = a23143; /* x90374 */ t66705 = q77; /* x90372 */ t66706.tag = EXTERNAL_SYMBOL_TYPE; t66706.value.external_symbol_type = t66704; t66707.tag = EXTERNAL_SYMBOL_TYPE; t66707.value.external_symbol_type = t66705; if (f26160(t66706, t66707)==FALSE_TYPE) goto l11201; /* x90378 */ /* x90377 */ /* x90376 stalin.sc:7716:264432 */ return; l11201: /* x90427 */ /* x90382 */ /* x90380 */ t66708 = a23143; /* x90381 */ t66709 = q78; /* x90379 */ t66710.tag = EXTERNAL_SYMBOL_TYPE; t66710.value.external_symbol_type = t66708; t66711.tag = EXTERNAL_SYMBOL_TYPE; t66711.value.external_symbol_type = t66709; if (f26160(t66710, t66711)==FALSE_TYPE) goto l11203; /* x90385 */ /* x90384 */ /* x90383 stalin.sc:7717:264464 */ return; l11203: /* x90426 */ /* x90389 */ /* x90387 */ t66712 = a23143; /* x90388 */ t66713 = q38; /* x90386 */ t66714.tag = EXTERNAL_SYMBOL_TYPE; t66714.value.external_symbol_type = t66712; t66715.tag = EXTERNAL_SYMBOL_TYPE; t66715.value.external_symbol_type = t66713; if (f26160(t66714, t66715)==FALSE_TYPE) goto l11205; /* x90392 */ /* x90391 */ /* x90390 stalin.sc:7718:264485 */ return; l11205: /* x90425 */ /* x90405 */ /* x90404 */ /* x90402 */ t66716 = a23143; /* x90403 */ t66717 = q36; /* x90401 */ t66718.tag = EXTERNAL_SYMBOL_TYPE; t66718.value.external_symbol_type = t66716; t66719.tag = EXTERNAL_SYMBOL_TYPE; t66719.value.external_symbol_type = t66717; if (!(f26160(t66718, t66719)==FALSE_TYPE)) goto l11206; /* x90398 */ /* x90396 */ t66720 = a23143; /* x90397 */ t66721 = q37; /* x90395 */ t66722.tag = EXTERNAL_SYMBOL_TYPE; t66722.value.external_symbol_type = t66720; t66723.tag = EXTERNAL_SYMBOL_TYPE; t66723.value.external_symbol_type = t66721; if (f26160(t66722, t66723)==FALSE_TYPE) goto l11207; l11206: /* x90420 */ /* x90419 */ /* x90418 */ /* x90417 stalin.sc:7720:264520 */ /* x90416 stalin.sc:7720:264526 */ /* x90415 stalin.sc:7720:264545 */ t66732 = a23141; /* x90414 stalin.sc:7720:264527 */ a38705 = t66732; /* x287489 */ /* x287488 */ t66733 = a38705; /* x287487 */ if (!((t66733.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33622]"); structure_ref_error();} t66731 = t66733.value.structure_type27698->s21; /* x90413 stalin.sc:7720:264521 */ f10070(t66731); /* x90412 */ /* x90411 stalin.sc:7721:264550 */ /* x90410 stalin.sc:7721:264565 */ /* x90409 stalin.sc:7721:264587 */ t66729 = a23141; /* x90408 stalin.sc:7721:264566 */ a38580 = t66729; /* x286989 */ /* x286988 */ t66730 = a38580; /* x286987 */ if (!((t66730.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33497]"); structure_ref_error();} t66725 = t66730.value.structure_type27698->s22; /* x90407 stalin.sc:7721:264560 */ /* x90406 stalin.sc:7721:264551 */ t66726.tag = NATIVE_PROCEDURE_TYPE17297; t66727 = *((struct w49 *)(&t66725)); t66728 = (struct structure_type24753 *)NULL_TYPE; f27755(t66726, t66727, t66728); return; l11207: /* x90424 */ /* x90423 */ /* x90422 stalin.sc:7722:264605 */ /* x90421 stalin.sc:7722:264606 */ /* x296949 QobiScheme.sc:166:5314 */ /* x296948 QobiScheme.sc:166:5321 */ t66724 = "This shouldn\'t happen"; /* x296947 QobiScheme.sc:166:5315 */ stalin_panic(t66724);} /* [inside FAST-TREE-SHAKE! 10067] */ void f10067(struct w49 a23138) {struct w49 t66784; /* x90462 stalin.sc:7688:263412 */ /* x90461 stalin.sc:7688:263426 */ t66784 = a23138; /* x90460 */ /* x90459 */ /* x90458 */ /* x90457 */ /* x90456 */ /* x90455 */ /* x90454 */ /* x90157 */ /* x90156 stalin.sc:7688:263417 */ f10070(t66784); return;} /* [inside FAST-TREE-SHAKE! 10066] */ void f10066(struct w49 a23137) {struct w49 t66785; unsigned t66786; /* x90151 stalin.sc:7685:263340 */ /* x90149 stalin.sc:7685:263365 */ t66785 = a23137; /* x90150 stalin.sc:7685:263367 */ /* x90148 stalin.sc:7685:263341 */ t66786 = TRUE_TYPE; f8195(t66785, t66786); return;} /* [inside FAST-TREE-SHAKE! 10065] */ void f10065(struct w49 a23136) {struct w49 t66787; unsigned t66788; /* x90143 stalin.sc:7684:263275 */ /* x90141 stalin.sc:7684:263302 */ t66787 = a23136; /* x90142 stalin.sc:7684:263304 */ /* x90140 stalin.sc:7684:263276 */ t66788 = TRUE_TYPE; f6937(t66787, t66788); return;} /* MACROEXPAND-CONSTANT[10026] */ struct structure_type27698 *f10026(struct p9977 *p10026, struct w49 a23101) {struct p9977 *a22934; /* P */ struct w49 a22935; /* S */ struct w49 a23102; /* Q */ struct w49 a41068; /* S */ struct w49 a41069; /* S */ struct w49 a42425; /* S */ struct w49 a42426; /* S */ struct p9977 *t66789; struct w49 t66790; struct w49 t66791; struct w49 t66792; struct w49 t66793; struct w49 t66794; struct w49 t66795; struct w49 t66796; struct w49 t66797; struct w49 t66798; struct w49 t66799; struct w49 t66800; struct w49 t66801; struct w49 t66802; struct w49 t66803; struct w49 t66804; struct w49 t66805; char *t66806; struct p9977 *t66807; char *t66808; struct w49 t66809; struct headed_vector_type27896 *t66810; struct w49 t66811; struct p9977 *t66812; struct w49 t66813; struct p9977 *t66814; struct w49 t66815; unsigned t66816; struct w49 t66817; struct w49 t66818; struct w49 t66819; struct w49 t66820; struct p9977 *t66821; char *t66822; struct w49 t66823; struct structure_type24753 *t66824; struct w49 t66825; struct structure_type27698 *t66826; struct structure_type27698 *t66827; struct p9977 *t66828; struct w49 t66829; struct w49 t66830; struct p9977 *t66831; struct w49 t66832; struct w49 t66833; struct p9976 *t66834; char *t66835; struct w49 t66836; struct w49 t66837; struct p9976 *t66838; char *t66839; struct w49 t66840; struct w49 t66841; struct p9976 *t66842; struct p9976 *t66843; char *t66844; struct w49 t66845; struct w49 t66846; struct w49 t66847; char *t66848; struct p9976 *t66849; struct p9976 *t66850; char *t66851; struct w49 t66852; struct w49 t66853; struct w49 t66854; char *t66855; struct p9976 *t66856; struct p9976 *t66857; char *t66858; struct w49 t66859; struct w49 t66860; struct w49 t66861; char *t66862; struct p9976 *t66863; char *t66864; struct w49 t66865; struct w49 t66866; struct p9976 *t66867; char *t66868; struct w49 t66869; struct w49 t66870; struct p9976 *t66871; char *t66872; struct w49 t66873; struct w49 t66874; struct p9976 *t66875; char *t66876; struct w49 t66877; struct w49 t66878; struct p9976 *t66879; char *t66880; struct w49 t66881; struct w49 t66882; struct w49 t66883; struct w49 t66884; struct w49 t66885; struct p9977 *p10027; struct p9976 *p10028; struct p9976 *p10029; struct p9976 *p10030; struct p9976 *p10031; struct p9976 *p10032; struct p9976 *p10033; struct p9976 *p10034; struct p9976 *p10037; struct p9976 *p10038; struct p9976 *p10041; struct p9976 *p10042; struct p9976 *p10045; struct p9976 *p10046; struct p9977 *p10047; struct p9977 *p10048; /* x89588 stalin.sc:7347:252542 */ /* x89587 stalin.sc:7347:252551 */ /* x89586 stalin.sc:7347:252561 */ t66883 = a23101; /* x89585 stalin.sc:7347:252552 */ a41069 = t66883; /* x298388 stalin.sc:6937:240340 */ /* x298387 stalin.sc:6937:240360 */ t66884 = a41069; /* x298386 stalin.sc:6937:240341 */ a42425 = t66884; /* x303198 */ /* x303197 */ t66885 = a42425; /* x303196 */ if (!((t66885.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37601]"); structure_ref_error();} t66790 = t66885.value.structure_type27510->s9; /* x89584 */ t66789 = p10026; p10027 = t66789; a23102 = t66790; /* x89583 stalin.sc:7348:252571 */ /* x89393 stalin.sc:7349:252583 */ /* x89392 stalin.sc:7349:252593 */ t66791 = a23101; /* x89391 stalin.sc:7349:252584 */ if (f9739(t66791)==FALSE_TYPE) goto l11218; /* x89400 */ /* x89399 */ t66879 = p10027->p9976; p10028 = t66879; /* x89398 stalin.sc:7349:252597 */ /* x89395 stalin.sc:7349:252616 */ t66880 = q68; /* x89396 stalin.sc:7349:252631 */ t66881 = p10028->a23075; /* x89397 stalin.sc:7349:252633 */ /* x89394 stalin.sc:7349:252598 */ t66882.tag = FALSE_TYPE; return f6872(t66880, t66881, t66882); l11218: /* x89582 */ /* x89404 stalin.sc:7350:252644 */ /* x89402 stalin.sc:7350:252652 */ t66792 = a23101; /* x89403 stalin.sc:7350:252655 */ /* x89401 stalin.sc:7350:252645 */ t66793.tag = TRUE_TYPE; if (f9745(t66792, t66793)==FALSE_TYPE) goto l11220; /* x89411 */ /* x89410 */ t66875 = p10027->p9976; p10029 = t66875; /* x89409 stalin.sc:7350:252659 */ /* x89406 stalin.sc:7350:252678 */ t66876 = q69; /* x89407 stalin.sc:7350:252693 */ t66877 = p10029->a23075; /* x89408 stalin.sc:7350:252695 */ /* x89405 stalin.sc:7350:252660 */ t66878.tag = FALSE_TYPE; return f6872(t66876, t66877, t66878); l11220: /* x89581 */ /* x89415 stalin.sc:7351:252706 */ /* x89413 stalin.sc:7351:252714 */ t66794 = a23101; /* x89414 stalin.sc:7351:252717 */ /* x89412 stalin.sc:7351:252707 */ t66795.tag = FALSE_TYPE; if (f9745(t66794, t66795)==FALSE_TYPE) goto l11222; /* x89422 */ /* x89421 */ t66871 = p10027->p9976; p10030 = t66871; /* x89420 stalin.sc:7351:252721 */ /* x89417 stalin.sc:7351:252740 */ t66872 = q70; /* x89418 stalin.sc:7351:252756 */ t66873 = p10030->a23075; /* x89419 stalin.sc:7351:252758 */ /* x89416 stalin.sc:7351:252722 */ t66874.tag = FALSE_TYPE; return f6872(t66872, t66873, t66874); l11222: /* x89580 */ /* x89425 stalin.sc:7352:252769 */ /* x89424 stalin.sc:7352:252779 */ t66796 = a23101; /* x89423 stalin.sc:7352:252770 */ if (f9744(t66796)==FALSE_TYPE) goto l11224; /* x89432 */ /* x89431 */ t66867 = p10027->p9976; p10031 = t66867; /* x89430 stalin.sc:7352:252783 */ /* x89427 stalin.sc:7352:252802 */ t66868 = q71; /* x89428 stalin.sc:7352:252817 */ t66869 = p10031->a23075; /* x89429 stalin.sc:7352:252819 */ t66870 = a23102; /* x89426 stalin.sc:7352:252784 */ return f6872(t66868, t66869, t66870); l11224: /* x89579 */ /* x89440 stalin.sc:7353:252829 */ /* x89435 stalin.sc:7353:252834 */ /* x89434 stalin.sc:7353:252847 */ t66797 = a23101; /* x89433 stalin.sc:7353:252835 */ if (f9746(t66797)==FALSE_TYPE) goto l11226; /* x89438 */ /* x89437 stalin.sc:7353:252862 */ t66798 = a23101; /* x89436 stalin.sc:7353:252852 */ if (f9750(t66798)==FALSE_TYPE) goto l11226; /* x89447 */ /* x89446 */ t66863 = p10027->p9976; p10032 = t66863; /* x89445 stalin.sc:7354:252873 */ /* x89442 stalin.sc:7354:252892 */ t66864 = q72; /* x89443 stalin.sc:7354:252909 */ t66865 = p10032->a23075; /* x89444 stalin.sc:7354:252911 */ t66866 = a23102; /* x89441 stalin.sc:7354:252874 */ return f6872(t66864, t66865, t66866); l11226: /* x89578 */ /* x89450 stalin.sc:7355:252921 */ /* x89449 stalin.sc:7355:252935 */ t66799 = a23101; /* x89448 stalin.sc:7355:252922 */ if (f9747(t66799)==FALSE_TYPE) goto l11229; /* x89469 */ /* x89468 */ t66856 = p10027->p9976; p10033 = t66856; /* x89467 */ /* x89466 stalin.sc:7356:252945 */ /* x89459 stalin.sc:7356:252951 */ /* x89458 stalin.sc:7356:252962 */ t66861 = a23101; /* x89457 stalin.sc:7356:252952 */ if (f9750(t66861)==FALSE_TYPE) goto l11249; /* x89463 */ /* x89462 */ /* x89461 stalin.sc:7356:252966 */ /* x89460 stalin.sc:7356:252967 */ /* x295025 QobiScheme.sc:166:5314 */ /* x295024 QobiScheme.sc:166:5321 */ t66862 = "This shouldn\'t happen"; /* x295023 QobiScheme.sc:166:5315 */ stalin_panic(t66862); goto l11250; l11249: /* x89465 stalin.sc:7356:252945 */ /* x89464 stalin.sc:7356:252945 */ l11250: /* x89456 */ t66857 = p10033; p10034 = t66857; /* x89455 stalin.sc:7357:252983 */ /* x89452 stalin.sc:7357:253002 */ t66858 = q73; /* x89453 stalin.sc:7357:253019 */ t66859 = p10034->a23075; /* x89454 stalin.sc:7357:253021 */ t66860 = a23102; /* x89451 stalin.sc:7357:252984 */ return f6872(t66858, t66859, t66860); l11229: /* x89577 */ /* x89472 stalin.sc:7358:253031 */ /* x89471 stalin.sc:7358:253041 */ t66800 = a23101; /* x89470 stalin.sc:7358:253032 */ if (f9748(t66800)==FALSE_TYPE) goto l11231; /* x89491 */ /* x89490 */ t66849 = p10027->p9976; p10037 = t66849; /* x89489 */ /* x89488 stalin.sc:7359:253051 */ /* x89481 stalin.sc:7359:253057 */ /* x89480 stalin.sc:7359:253068 */ t66854 = a23101; /* x89479 stalin.sc:7359:253058 */ if (f9750(t66854)==FALSE_TYPE) goto l11246; /* x89485 */ /* x89484 */ /* x89483 stalin.sc:7359:253072 */ /* x89482 stalin.sc:7359:253073 */ /* x295029 QobiScheme.sc:166:5314 */ /* x295028 QobiScheme.sc:166:5321 */ t66855 = "This shouldn\'t happen"; /* x295027 QobiScheme.sc:166:5315 */ stalin_panic(t66855); goto l11247; l11246: /* x89487 stalin.sc:7359:253051 */ /* x89486 stalin.sc:7359:253051 */ l11247: /* x89478 */ t66850 = p10037; p10038 = t66850; /* x89477 stalin.sc:7360:253089 */ /* x89474 stalin.sc:7360:253108 */ t66851 = q73; /* x89475 stalin.sc:7360:253125 */ t66852 = p10038->a23075; /* x89476 stalin.sc:7360:253127 */ t66853 = a23102; /* x89473 stalin.sc:7360:253090 */ return f6872(t66851, t66852, t66853); l11231: /* x89576 */ /* x89494 stalin.sc:7361:253137 */ /* x89493 stalin.sc:7361:253150 */ t66801 = a23101; /* x89492 stalin.sc:7361:253138 */ if (f9749(t66801)==FALSE_TYPE) goto l11233; /* x89513 */ /* x89512 */ t66842 = p10027->p9976; p10041 = t66842; /* x89511 */ /* x89510 stalin.sc:7362:253160 */ /* x89503 stalin.sc:7362:253166 */ /* x89502 stalin.sc:7362:253177 */ t66847 = a23101; /* x89501 stalin.sc:7362:253167 */ if (f9750(t66847)==FALSE_TYPE) goto l11243; /* x89507 */ /* x89506 */ /* x89505 stalin.sc:7362:253181 */ /* x89504 stalin.sc:7362:253182 */ /* x295033 QobiScheme.sc:166:5314 */ /* x295032 QobiScheme.sc:166:5321 */ t66848 = "This shouldn\'t happen"; /* x295031 QobiScheme.sc:166:5315 */ stalin_panic(t66848); goto l11244; l11243: /* x89509 stalin.sc:7362:253160 */ /* x89508 stalin.sc:7362:253160 */ l11244: /* x89500 */ t66843 = p10041; p10042 = t66843; /* x89499 stalin.sc:7366:253384 */ /* x89496 stalin.sc:7366:253403 */ t66844 = q74; /* x89497 stalin.sc:7366:253425 */ t66845 = p10042->a23075; /* x89498 stalin.sc:7366:253427 */ t66846 = a23102; /* x89495 stalin.sc:7366:253385 */ return f6872(t66844, t66845, t66846); l11233: /* x89575 */ /* x89516 stalin.sc:7367:253437 */ /* x89515 stalin.sc:7367:253449 */ t66802 = a23101; /* x89514 stalin.sc:7367:253438 */ if (f9742(t66802)==FALSE_TYPE) goto l11235; /* x89523 */ /* x89522 */ t66838 = p10027->p9976; p10045 = t66838; /* x89521 stalin.sc:7367:253453 */ /* x89518 stalin.sc:7367:253472 */ t66839 = q75; /* x89519 stalin.sc:7367:253489 */ t66840 = p10045->a23075; /* x89520 stalin.sc:7367:253491 */ t66841 = a23102; /* x89517 stalin.sc:7367:253454 */ return f6872(t66839, t66840, t66841); l11235: /* x89574 */ /* x89526 stalin.sc:7368:253501 */ /* x89525 stalin.sc:7368:253513 */ t66803 = a23101; /* x89524 stalin.sc:7368:253502 */ if (f9741(t66803)==FALSE_TYPE) goto l11237; /* x89533 */ /* x89532 */ t66834 = p10027->p9976; p10046 = t66834; /* x89531 stalin.sc:7368:253517 */ /* x89528 stalin.sc:7368:253536 */ t66835 = q76; /* x89529 stalin.sc:7368:253553 */ t66836 = p10046->a23075; /* x89530 stalin.sc:7368:253555 */ t66837 = a23102; /* x89527 stalin.sc:7368:253518 */ return f6872(t66835, t66836, t66837); l11237: /* x89573 */ /* x89536 stalin.sc:7369:253565 */ /* x89535 stalin.sc:7369:253575 */ t66804 = a23101; /* x89534 stalin.sc:7369:253566 */ if (f9740(t66804)==FALSE_TYPE) goto l11239; /* x89554 */ /* x89553 */ t66821 = p10027; p10047 = t66821; /* x89552 stalin.sc:7370:253585 */ /* x89538 stalin.sc:7370:253604 */ t66822 = q50; /* x89539 stalin.sc:7370:253619 */ t66823 = p10047->p9976->a23075; /* x89551 stalin.sc:7371:253625 */ /* x89545 stalin.sc:7371:253631 */ /* x89544 stalin.sc:7371:253653 */ /* x89543 stalin.sc:7371:253661 */ t66830 = a23101; /* x89542 stalin.sc:7371:253654 */ t66829 = f9719(t66830); /* x89541 stalin.sc:7371:253632 */ t66828 = p10047->a23079; t66826 = f10026(t66828, t66829); /* x89550 stalin.sc:7372:253676 */ /* x89549 stalin.sc:7372:253698 */ /* x89548 stalin.sc:7372:253706 */ t66833 = a23101; /* x89547 stalin.sc:7372:253699 */ t66832 = f9720(t66833); /* x89546 stalin.sc:7372:253677 */ t66831 = p10047->a23079; t66827 = f10026(t66831, t66832); /* x269864 stalin.sc:7371:253626 */ t66824 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t66824==NULL) {backtrace("stalin.sc", 7371, 253625); out_of_memory_error();} t66824->s0.tag = STRUCTURE_TYPE27698; t66824->s0.value.structure_type27698 = t66826; t66824->s1.tag = STRUCTURE_TYPE27698; t66824->s1.value.structure_type27698 = t66827; /* x89537 stalin.sc:7370:253586 */ t66825.tag = STRUCTURE_TYPE24753; t66825.value.structure_type24753 = t66824; return f6872(t66822, t66823, t66825); l11239: /* x89572 */ /* x89557 stalin.sc:7373:253720 */ /* x89556 stalin.sc:7373:253732 */ t66805 = a23101; /* x89555 stalin.sc:7373:253721 */ if (f9743(t66805)==FALSE_TYPE) goto l11241; /* x89567 */ /* x89566 */ t66807 = p10027; p10048 = t66807; /* x89565 stalin.sc:7374:253742 */ /* x89559 stalin.sc:7375:253768 */ t66808 = q52; /* x89560 stalin.sc:7375:253785 */ t66809 = p10048->p9976->a23075; /* x89564 stalin.sc:7375:253787 */ /* x89562 stalin.sc:7375:253802 */ t66812 = p10048->a23079; /* x89563 stalin.sc:7375:253823 */ t66813 = a23101; /* x89561 stalin.sc:7375:253788 */ a22934 = t66812; a22935 = t66813; /* x86726 stalin.sc:7044:243159 */ /* x86725 stalin.sc:7044:243173 */ /* x86724 stalin.sc:7044:243183 */ t66818 = a22935; /* x86723 stalin.sc:7044:243174 */ a41068 = t66818; /* x298384 stalin.sc:6937:240340 */ /* x298383 stalin.sc:6937:240360 */ t66819 = a41068; /* x298382 stalin.sc:6937:240341 */ a42426 = t66819; /* x303202 */ /* x303201 */ t66820 = a42426; /* x303200 */ if (!((t66820.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37602]"); structure_ref_error();} t66815 = t66820.value.structure_type27510->s9; /* x86722 stalin.sc:7044:243171 */ t66814 = a22934; /* x86721 stalin.sc:7044:243160 */ t66816 = ((unsigned)t66814)+2; t66817 = t66815; t66810 = f1154(t66816, t66817); /* x89558 stalin.sc:7374:253743 */ t66811.tag = HEADED_VECTOR_TYPE27896; t66811.value.headed_vector_type27896 = t66810; return f6872(t66808, t66809, t66811); l11241: /* x89571 */ /* x89570 */ /* x89569 stalin.sc:7378:253933 */ /* x89568 stalin.sc:7378:253934 */ /* x297077 QobiScheme.sc:166:5314 */ /* x297076 QobiScheme.sc:166:5321 */ t66806 = "This shouldn\'t happen"; /* x297075 QobiScheme.sc:166:5315 */ stalin_panic(t66806);} /* MACROEXPAND[9976] */ struct structure_type27698 *f9976(struct w49 a23075, struct structure_type24753 *a23076, struct w49 a23077, char *a23078) {struct structure_type27698 *r9976; char *sfp9976; struct w49 a22902; /* S */ struct w49 a22914; /* S */ struct p9977 *a23079; /* MACROEXPAND-CONSTANT */ struct w49 a23082; /* v */ struct w49 a23085; /* S */ unsigned a23086; /* GS1 */ char *a23087; /* F */ struct w49 a23092; /* S2 */ struct w49 a41066; /* S */ struct w49 a41067; /* S */ struct w49 a41290; /* S */ struct w49 a41291; /* S */ struct w49 a41292; /* S */ struct w49 a41293; /* S */ struct w49 a41294; /* S */ struct w49 a41295; /* S */ struct w49 a41296; /* S */ struct w49 a41297; /* S */ struct w49 a41471; /* S */ struct w49 a41472; /* S */ struct w49 a41473; /* S */ struct w49 a41474; /* S */ struct w49 a42427; /* S */ struct w49 a42428; /* S */ struct p9976 *t66886; struct p9977 *t66887; struct w49 t66888; struct w49 t66889; struct w49 t66890; struct p9977 *t66891; struct p9977 *t66892; struct w49 t66893; struct p9976 *t66894; struct w49 t66895; struct w49 t66896; struct w49 t66897; struct structure_type24753 *t66898; struct w49 t66899; struct p9977 *t66900; struct p9977 *t66901; struct w49 t66902; struct w49 t66903; struct w49 t66904; struct w49 t66905; struct structure_type27698 *t66906; struct w12224 t66907; struct w49 t66908; struct w49 t66909; struct structure_type24753 *t66910; char *t66911; struct w49 t66912; struct w49 t66913; struct w49 t66914; struct p9976 *t66915; struct w49 t66916; struct w198746 t66917; struct w49 t66918; struct w49 t66919; struct p9977 *t66920; struct w49 t66921; struct w49 t66922; char *t66923; struct w49 t66924; struct w49 t66925; char *t66926; struct w49 t66927; struct w49 t66928; char *t66929; struct w49 t66930; struct w49 t66931; char *t66932; struct w49 t66933; struct w49 t66934; char *t66935; struct w49 t66936; struct w49 t66937; char *t66938; struct w49 t66939; struct p9976 *t66940; struct w49 t66941; struct w49 t66942; struct w49 t66943; struct w49 t66944; struct structure_type27698 *t66945; struct w12224 t66946; struct w49 t66947; struct w49 t66948; struct structure_type24753 *t66949; char *t66950; struct w49 t66951; struct w49 t66952; struct w49 t66953; struct p9976 *t66954; struct w49 t66955; struct w198746 t66956; struct w49 t66957; struct w49 t66958; struct structure_type27510 *t66959; struct structure_type24753 *t66960; char *t66961; struct w49 t66962; struct p9976 *t66963; struct p9976 *t66964; char *t66965; struct w49 t66966; struct w49 t66967; struct w49 t66968; struct w49 t66969; struct w49 t66970; int t66971; int t66972; struct w49 t66973; struct w49 t66974; struct w49 t66975; struct w49 t66976; unsigned t66977; struct w49 t66978; struct w49 t66979; struct w49 t66980; struct w49 t66981; struct w49 t66982; int t66983; int t66984; struct w49 t66985; struct w49 t66986; struct w49 t66987; struct w49 t66988; unsigned t66989; struct w49 t66990; struct w49 t66991; struct w49 t66992; struct w49 t66993; struct w49 t66994; struct w49 t66995; struct w49 t66996; char *t66997; struct p9976 *t66998; struct p9976 *t66999; char *t67000; struct w49 t67001; struct w49 t67002; struct w49 t67003; struct w49 t67004; struct w49 t67005; struct p9976 *t67006; struct w49 t67007; struct w49 t67008; char *t67009; struct w49 t67010; struct w49 t67011; char *t67012; struct w49 t67013; struct w49 t67014; char *t67015; struct w49 t67016; int t67017; int t67018; struct w49 t67019; struct w49 t67020; struct w49 t67021; struct w49 t67022; struct w49 t67023; struct w49 t67024; struct w49 t67025; struct w49 t67026; struct w49 t67027; struct w49 t67028; char *t67029; struct w49 t67030; int t67031; int t67032; struct w49 t67033; struct w49 t67034; struct w49 t67035; int t67036; int t67037; struct w49 t67038; struct w49 t67039; char *t67040; struct w49 t67041; struct w49 t67042; char *t67043; struct w49 t67044; struct w49 t67045; char *t67046; struct w49 t67047; struct w49 t67048; char *t67049; struct w49 t67050; struct w49 t67051; struct structure_type24753 *t67052; struct w49 t67053; struct w49 t67054; struct w49 t67055; struct w49 t67056; char *t67057; struct w49 t67058; struct p9976 *t67059; struct p9976 *t67060; struct w49 t67061; struct structure_type27698 *t67062; struct structure_type27698 *t67063; struct structure_type27698 *t67064; struct w49 t67065; struct w49 t67066; struct w49 t67067; struct w49 t67068; struct structure_type24753 *t67069; char *t67070; struct w49 t67071; struct w49 t67072; struct w49 t67073; struct structure_type24753 *t67074; char *t67075; struct w49 t67076; struct w49 t67077; int t67078; int t67079; struct w49 t67080; struct w49 t67081; struct structure_type24753 *t67082; char *t67083; struct w49 t67084; struct w49 t67085; struct w49 t67086; struct structure_type27698 *t67087; struct w49 t67088; struct w12224 t67089; struct w49 t67090; struct structure_type27694 *t67091; struct w9140 t67092; struct w9296 t67093; struct w49 t67094; struct w49 t67095; char *t67096; char *t67097; struct w3467 t67098; int t67099; int t67100; struct w49 t67101; int t67102; int t67103; struct w49 t67104; char *t67105; struct p9976 *t67106; struct p9976 *t67107; struct w49 t67108; struct w49 t67109; struct structure_type27698 *t67110; struct w49 t67111; struct w49 t67112; struct structure_type24753 *t67113; struct w49 t67114; struct w49 t67115; struct w49 t67116; struct structure_type24753 *t67117; struct w49 t67118; char *t67119; struct w49 t67120; struct w49 t67121; struct w49 t67122; int t67123; int t67124; struct w49 t67125; struct w49 t67126; struct w49 t67127; char *t67128; struct p9976 *t67129; struct p9976 *t67130; struct p9976 *t67131; struct w49 t67132; struct w49 t67133; struct w49 t67134; struct w49 t67135; struct w49 t67136; struct w49 t67137; struct w49 t67138; struct w49 t67139; struct w49 t67140; struct w49 t67141; struct w49 t67142; struct w49 t67143; struct w49 t67144; char *t67145; struct p9976 *t67146; struct p9976 *t67147; unsigned t67148; char *t67149; struct w49 t67150; struct structure_type27694 *t67151; unsigned t67152; struct structure_type27698 *t67153; struct w9140 t67154; struct w9296 t67155; struct w49 t67156; struct w49 t67157; char *t67158; char *t67159; struct w49 t67160; struct structure_type24753 *t67161; char *t67162; struct w49 t67163; struct w49 t67164; unsigned t67165; struct structure_type24753 *t67166; struct w49 t67167; struct w49 t67168; struct w49 t67169; struct w3467 t67170; struct p9976 *t67171; struct w49 t67172; struct structure_type27694 *t67173; unsigned t67174; struct w9140 t67175; struct w9296 t67176; struct w49 t67177; struct w49 t67178; char *t67179; char *t67180; struct w3467 t67181; struct w49 t67182; struct w49 t67183; struct w49 t67184; int t67185; int t67186; struct w49 t67187; struct w49 t67188; struct w49 t67189; struct structure_type24753 *t67190; struct w49 t67191; struct w49 t67192; struct w49 t67193; char *t67194; struct p9977 *t67195; struct p9977 *t67196; struct p9977 *t67197; struct w49 t67198; struct w49 t67199; int t67200; int t67201; struct w49 t67202; char *t67203; struct w49 t67204; struct w49 t67205; struct w49 t67206; struct w49 t67207; struct w49 t67208; struct w49 t67209; char *t67210; char *t67211; struct p9976 *e9976; struct p9977 *e9977; struct p9976 *p9977; struct p9977 *p9978; struct p9977 *p9980; struct p9977 *p9981; struct p9977 *p9982; struct p9977 *p9983; struct p9977 *p9984; struct p9976 *p9987; struct p9976 *p9988; struct p9976 *p9989; struct p9976 *p9990; struct p9976 *p9991; struct p9976 *p9992; struct p9976 *p9996; struct p9976 *p9997; struct p9976 *p10000; struct p9976 *p10001; struct p9976 *p10002; struct p9976 *p10005; struct p9976 *p10006; struct p9976 *p10007; struct p9976 *p10008; struct p9976 *p10009; struct p9976 *p10014; struct p9976 *p10015; struct p9976 *p10016; struct p9976 *p10019; struct p9976 *p10024; struct p9977 *p10025; sfp9976 = fp9976; h9976: e9976 = (struct p9976 *)alloca(sizeof(struct p9976)); if (e9976==NULL) {backtrace_internal("[inside MACROEXPAND 9974]"); out_of_memory_error();} e9976->a23075 = a23075; e9976->a23076 = a23076; e9976->a23078 = a23078; /* x89595 */ /* x89594 */ /* x89593 */ /* x89592 */ t66886 = e9976; p9977 = t66886; if ((fp9976+sizeof(struct p9977))>(&((region9976->data)[region_size9976]))) {struct region9976 *region; unsigned region_size = REGION_SIZE9976; if (sizeof(struct p9977)>region_size) region_size = sizeof(struct p9977); region = (struct region9976 *)GC_malloc_uncollectable(sizeof(struct region9976)+(region_size-1)); if (region==NULL) {backtrace_internal("MACROEXPAND[9976]"); out_of_memory_error();} region->region = region9976; region->region_size = region_size9976; region_size9976 = region_size; region9976 = region; fp9976 = &((region->data)[0]); ALIGN(fp9976);} e9977 = (struct p9977 *)fp9976; fp9976 += sizeof(struct p9977)+((4-(sizeof(struct p9977)%4))&3); e9977->p9976 = p9977; e9977->a23079 = a23079; /* x89591 */ /* x89590 */ /* x89589 */ e9977->a23079 = e9977; /* x89390 */ t66887 = e9977; p9978 = t66887; /* x89389 stalin.sc:7379:253949 */ /* x88720 stalin.sc:7380:253959 */ /* x88719 stalin.sc:7380:253969 */ t66888 = p9978->p9976->a23075; /* x88718 stalin.sc:7380:253960 */ if (f9739(t66888)==FALSE_TYPE) goto l11252; /* x88724 */ /* x88723 */ /* x88722 stalin.sc:7380:253972 */ /* x88721 stalin.sc:7380:253973 */ /* x294985 QobiScheme.sc:166:5314 */ /* x294984 QobiScheme.sc:166:5321 */ t67211 = "This shouldn\'t happen"; /* x294983 QobiScheme.sc:166:5315 */ stalin_panic(t67211); l11252: /* x89388 */ /* x88727 stalin.sc:7381:253987 */ /* x88726 stalin.sc:7381:253997 */ t66889 = p9978->p9976->a23075; /* x88725 stalin.sc:7381:253988 */ if (f9740(t66889)==FALSE_TYPE) goto l11254; /* x89369 */ /* x89368 */ t66900 = p9978; p9980 = t66900; /* x89367 */ /* x89366 stalin.sc:7382:254004 */ /* x89359 stalin.sc:7382:254012 */ /* x89358 stalin.sc:7382:254022 */ t67209 = p9980->p9976->a23075; /* x89357 stalin.sc:7382:254013 */ if (f9766(t67209)==FALSE_TYPE) goto l11338; /* x89361 */ /* x89360 */ goto l11339; l11338: /* x89365 */ /* x89364 */ /* x89363 stalin.sc:7382:254025 */ /* x89362 stalin.sc:7382:254026 */ /* x295021 QobiScheme.sc:166:5314 */ /* x295020 QobiScheme.sc:166:5321 */ t67210 = "This shouldn\'t happen"; /* x295019 QobiScheme.sc:166:5315 */ stalin_panic(t67210); l11339: /* x89356 */ t66901 = p9980; p9981 = t66901; /* x89355 stalin.sc:7383:254040 */ /* x88732 stalin.sc:7383:254044 */ /* x88731 stalin.sc:7383:254056 */ /* x88730 stalin.sc:7383:254066 */ t66903 = p9981->p9976->a23075; /* x88729 stalin.sc:7383:254057 */ a41474 = t66903; /* x300008 stalin.sc:6964:241199 */ /* x300007 stalin.sc:6964:241207 */ t66904 = a41474; /* x300006 stalin.sc:6964:241200 */ t66902 = f9719(t66904); /* x88728 stalin.sc:7383:254045 */ if (f9741(t66902)==FALSE_TYPE) goto l11258; /* x89331 stalin.sc:7384:254071 */ /* x89330 stalin.sc:7384:254077 */ /* x89329 stalin.sc:7384:254087 */ /* x89328 stalin.sc:7384:254097 */ t67207 = p9981->p9976->a23075; /* x89327 stalin.sc:7384:254088 */ a41472 = t67207; /* x300000 stalin.sc:6964:241199 */ /* x299999 stalin.sc:6964:241207 */ t67208 = a41472; /* x299998 stalin.sc:6964:241200 */ t67204 = f9719(t67208); /* x89326 stalin.sc:7384:254078 */ a41067 = t67204; /* x298380 stalin.sc:6937:240340 */ /* x298379 stalin.sc:6937:240360 */ t67205 = a41067; /* x298378 stalin.sc:6937:240341 */ a42427 = t67205; /* x303206 */ /* x303205 */ t67206 = a42427; /* x303204 */ if (!((t67206.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37603]"); structure_ref_error();} t66921 = t67206.value.structure_type27510->s9; /* x89325 */ t66920 = p9981; p9982 = t66920; a23082 = t66921; /* x89324 */ /* x88736 */ /* x88734 */ t66922 = a23082; /* x88735 */ t66923 = q11; /* x88733 */ t66924.tag = EXTERNAL_SYMBOL_TYPE; t66924.value.external_symbol_type = t66923; if (f26160(t66922, t66924)==FALSE_TYPE) goto l11260; /* x88758 */ /* x88757 */ t67195 = p9982; p9983 = t67195; /* x88756 */ /* x88755 stalin.sc:7386:254115 */ /* x88748 stalin.sc:7386:254123 */ /* x88746 stalin.sc:7386:254126 */ /* x88745 stalin.sc:7386:254137 */ t67202 = p9983->p9976->a23075; /* x88744 stalin.sc:7386:254127 */ t67200 = f9734(t67202); /* x88747 stalin.sc:7386:254140 */ t67201 = 2; /* x269883 stalin.sc:7386:254124 */ if (!(t67200==t67201)) goto l11335; /* x88750 */ /* x88749 */ goto l11336; l11335: /* x88754 */ /* x88753 */ /* x88752 stalin.sc:7386:254143 */ /* x88751 stalin.sc:7386:254144 */ /* x294989 QobiScheme.sc:166:5314 */ /* x294988 QobiScheme.sc:166:5321 */ t67203 = "This shouldn\'t happen"; /* x294987 QobiScheme.sc:166:5315 */ stalin_panic(t67203); l11336: /* x88742 */ t67196 = p9983; p9984 = t67196; /* x88741 stalin.sc:7387:254157 */ /* x88740 stalin.sc:7387:254179 */ /* x88739 stalin.sc:7387:254190 */ t67199 = p9984->p9976->a23075; /* x88738 stalin.sc:7387:254180 */ t67198 = f9722(t67199); /* x88737 stalin.sc:7387:254158 */ t67197 = p9984->a23079; r9976 = f10026(t67197, t67198); while ((sfp9976<(&((region9976->data)[0])))||(sfp9976>(&((region9976->data)[region_size9976])))) {struct region9976 *region; region = region9976; region_size9976 = region9976->region_size; region9976 = region9976->region; GC_free(region);} fp9976 = sfp9976; return r9976; l11260: /* x89323 */ /* x88762 */ /* x88760 */ t66925 = a23082; /* x88761 */ t66926 = q39; /* x88759 */ t66927.tag = EXTERNAL_SYMBOL_TYPE; t66927.value.external_symbol_type = t66926; if (f26160(t66925, t66927)==FALSE_TYPE) goto l11262; /* x88876 */ /* x88875 */ t67129 = p9982->p9976; p9987 = t67129; /* x88874 */ /* x88873 stalin.sc:7389:254210 */ /* x88866 stalin.sc:7389:254218 */ /* x88850 stalin.sc:7389:254223 */ /* x88848 stalin.sc:7389:254227 */ /* x88847 stalin.sc:7389:254238 */ t67187 = p9987->a23075; /* x88846 stalin.sc:7389:254228 */ t67185 = f9734(t67187); /* x88849 stalin.sc:7389:254241 */ t67186 = 2; /* x269880 stalin.sc:7389:254224 */ if (!(t67185>=t67186)) goto l11330; /* x88864 */ /* x88855 stalin.sc:7390:254253 */ /* x88854 stalin.sc:7390:254272 */ /* x88853 stalin.sc:7390:254283 */ t67189 = p9987->a23075; /* x88852 stalin.sc:7390:254273 */ t67188 = f9722(t67189); /* x88851 stalin.sc:7390:254254 */ if (f9872(t67188)==FALSE_TYPE) goto l11330; /* x88862 */ /* x88861 stalin.sc:7391:254307 */ /* x88860 stalin.sc:7391:254319 */ /* x88859 stalin.sc:7391:254330 */ t67193 = p9987->a23075; /* x88858 stalin.sc:7391:254320 */ t67192 = f9722(t67193); /* x88857 stalin.sc:7391:254308 */ t67190 = f9882(t67192); /* x88856 stalin.sc:7391:254297 */ /* MOVE: branching squeezed to general */ if (t67190>=((struct structure_type24753 *)VALUE_OFFSET)) {t67191.tag = STRUCTURE_TYPE24753; t67191.value.structure_type24753 = t67190;} else t67191.tag = (unsigned)t67190; if (f9875(t67191)==FALSE_TYPE) goto l11330; /* x88868 */ /* x88867 */ goto l11331; l11330: /* x88872 */ /* x88871 */ /* x88870 stalin.sc:7392:254340 */ /* x88869 stalin.sc:7392:254341 */ /* x295001 QobiScheme.sc:166:5314 */ /* x295000 QobiScheme.sc:166:5321 */ t67194 = "This shouldn\'t happen"; /* x294999 QobiScheme.sc:166:5315 */ stalin_panic(t67194); l11331: /* x88844 */ t67130 = p9987; p9988 = t67130; /* x88843 stalin.sc:7393:254354 */ /* x88842 stalin.sc:7393:254363 */ /* x88841 stalin.sc:7393:254381 */ t67184 = p9988->a23075; /* x88840 stalin.sc:7393:254364 */ t67132 = f18211(t67184); /* x88839 */ t67131 = p9988; p9989 = t67131; a23085 = t67132; /* x88838 stalin.sc:7394:254390 */ /* x88769 stalin.sc:7395:254402 */ /* x88768 stalin.sc:7395:254412 */ /* x88767 stalin.sc:7395:254421 */ /* x88766 stalin.sc:7395:254430 */ t67136 = a23085; /* x88765 stalin.sc:7395:254422 */ a41293 = t67136; /* x299284 stalin.sc:7008:242336 */ /* x299283 stalin.sc:7008:242344 */ t67137 = a41293; /* x299282 stalin.sc:7008:242337 */ t67134 = f9720(t67137); /* x88764 stalin.sc:7395:254413 */ a41292 = t67134; /* x299280 stalin.sc:7008:242336 */ /* x299279 stalin.sc:7008:242344 */ t67135 = a41292; /* x299278 stalin.sc:7008:242337 */ t67133 = f9720(t67135); /* x88763 stalin.sc:7395:254403 */ if (f9739(t67133)==FALSE_TYPE) goto l11320; /* x88789 */ /* x88788 */ t67171 = p9989; p9990 = t67171; /* x88787 stalin.sc:7396:254441 */ /* x88771 stalin.sc:7397:254474 */ t67172 = a23085; /* x88780 stalin.sc:7398:254483 */ /* x88773 stalin.sc:7398:254503 */ t67178 = a23077; /* x88779 stalin.sc:7398:254505 */ /* x88774 stalin.sc:7398:254509 */ if ((a23077.tag)==FALSE_TYPE) goto l11327; /* x88777 stalin.sc:7398:254511 */ /* x88776 stalin.sc:7398:254527 */ t67181 = *((struct w3467 *)(&a23077)); /* x269882 stalin.sc:7398:254512 */ if (!((t67181.tag)==EXTERNAL_SYMBOL_TYPE)) {backtrace("stalin.sc", 7398, 254511); symbol_string_error();} t67179 = t67181.value.external_symbol_type; goto l11328; l11327: /* x88778 stalin.sc:7398:254530 */ t67179 = p9990->a23078; l11328: /* x88772 stalin.sc:7398:254484 */ t67180 = t67179; t67173 = f8468(t67178, t67180); /* x88785 stalin.sc:7399:254541 */ /* x88784 stalin.sc:7399:254564 */ /* x88783 stalin.sc:7399:254575 */ t67183 = a23085; /* x88782 stalin.sc:7399:254565 */ t67182 = f9722(t67183); /* x88781 stalin.sc:7399:254542 */ t67174 = f9887(t67182); /* x88786 stalin.sc:7399:254579 */ /* x88770 stalin.sc:7396:254442 */ t67175.tag = STRUCTURE_TYPE27694; t67175.value.structure_type27694 = t67173; /* MOVE: dispatching squished to general */ if (t67174==NULL_TYPE) t67176.tag = (unsigned)t67174; else {if ((t67174&3)==1) {t67176.tag = STRUCTURE_TYPE24753; t67176.value.structure_type24753 = (struct structure_type24753 *)(t67174-1);} else {t67176.tag = STRUCTURE_TYPE27692; t67176.value.structure_type27692 = (struct structure_type27692 *)t67174;}} t67177.tag = FALSE_TYPE; r9976 = f6896(t67172, t67175, t67176, t67177); while ((sfp9976<(&((region9976->data)[0])))||(sfp9976>(&((region9976->data)[region_size9976])))) {struct region9976 *region; region = region9976; region_size9976 = region9976->region_size; region9976 = region9976->region; GC_free(region);} fp9976 = sfp9976; return r9976; l11320: /* x88837 */ /* x88798 stalin.sc:7400:254590 */ /* x88797 stalin.sc:7400:254600 */ /* x88796 stalin.sc:7400:254609 */ /* x88795 stalin.sc:7400:254618 */ /* x88794 stalin.sc:7400:254627 */ t67143 = a23085; /* x88793 stalin.sc:7400:254619 */ a41291 = t67143; /* x299276 stalin.sc:7008:242336 */ /* x299275 stalin.sc:7008:242344 */ t67144 = a41291; /* x299274 stalin.sc:7008:242337 */ t67141 = f9720(t67144); /* x88792 stalin.sc:7400:254610 */ a41290 = t67141; /* x299272 stalin.sc:7008:242336 */ /* x299271 stalin.sc:7008:242344 */ t67142 = a41290; /* x299270 stalin.sc:7008:242337 */ t67139 = f9720(t67142); /* x88791 stalin.sc:7400:254601 */ a22914 = t67139; /* x86598 stalin.sc:7008:242336 */ /* x86597 stalin.sc:7008:242344 */ t67140 = a22914; /* x86596 stalin.sc:7008:242337 */ t67138 = f9720(t67140); /* x88790 stalin.sc:7400:254591 */ if (f9739(t67138)==FALSE_TYPE) goto l11322; /* x88832 */ /* x88831 */ t67146 = p9989; p9991 = t67146; /* x88830 stalin.sc:7401:254639 */ /* x88823 stalin.sc:7402:254687 */ /* x88822 stalin.sc:7402:254710 */ /* x88821 stalin.sc:7402:254721 */ t67169 = a23085; /* x88820 stalin.sc:7402:254711 */ t67168 = f9722(t67169); /* x88819 stalin.sc:7402:254688 */ t67148 = f9887(t67168); /* x88829 stalin.sc:7401:254648 */ /* x88824 stalin.sc:7401:254652 */ if ((a23077.tag)==FALSE_TYPE) goto l11324; /* x88827 stalin.sc:7401:254654 */ /* x88826 stalin.sc:7401:254670 */ t67170 = *((struct w3467 *)(&a23077)); /* x269881 stalin.sc:7401:254655 */ if (!((t67170.tag)==EXTERNAL_SYMBOL_TYPE)) {backtrace("stalin.sc", 7401, 254654); symbol_string_error();} t67149 = t67170.value.external_symbol_type; goto l11325; l11324: /* x88828 stalin.sc:7401:254673 */ t67149 = p9991->a23078; l11325: /* x88818 */ t67147 = p9991; p9992 = t67147; a23086 = t67148; a23087 = t67149; /* x88817 stalin.sc:7404:254759 */ /* x88800 stalin.sc:7405:254793 */ t67150 = a23085; /* x88804 stalin.sc:7405:254795 */ /* x88802 stalin.sc:7405:254815 */ t67157 = a23077; /* x88803 stalin.sc:7405:254817 */ t67158 = a23087; /* x88801 stalin.sc:7405:254796 */ t67159 = t67158; t67151 = f8468(t67157, t67159); /* x88805 stalin.sc:7405:254820 */ t67152 = a23086; /* x88816 stalin.sc:7406:254832 */ /* x88809 stalin.sc:7406:254845 */ /* x88808 stalin.sc:7406:254855 */ t67164 = a23085; /* x88807 stalin.sc:7406:254846 */ t67160 = f9723(t67164); /* x88813 stalin.sc:7406:254858 */ /* x88811 stalin.sc:7406:254873 */ t67165 = a23086; /* x88812 stalin.sc:7406:254877 */ t67166 = p9992->a23076; /* x88810 stalin.sc:7406:254859 */ /* MOVE: dispatching squished to general */ if (t67165==NULL_TYPE) t67167.tag = (unsigned)t67165; else {if ((t67165&3)==1) {t67167.tag = STRUCTURE_TYPE24753; t67167.value.structure_type24753 = (struct structure_type24753 *)(t67165-1);} else {t67167.tag = STRUCTURE_TYPE27692; t67167.value.structure_type27692 = (struct structure_type27692 *)t67165;}} t67161 = f9969(t67167, t67166); /* x88814 stalin.sc:7406:254881 */ /* x88815 stalin.sc:7406:254884 */ t67162 = a23087; /* x88806 stalin.sc:7406:254833 */ t67163.tag = FALSE_TYPE; t67153 = f9976(t67160, t67161, t67163, t67162); /* x88799 stalin.sc:7404:254760 */ t67154.tag = STRUCTURE_TYPE27694; t67154.value.structure_type27694 = t67151; /* MOVE: dispatching squished to general */ if (t67152==NULL_TYPE) t67155.tag = (unsigned)t67152; else {if ((t67152&3)==1) {t67155.tag = STRUCTURE_TYPE24753; t67155.value.structure_type24753 = (struct structure_type24753 *)(t67152-1);} else {t67155.tag = STRUCTURE_TYPE27692; t67155.value.structure_type27692 = (struct structure_type27692 *)t67152;}} t67156.tag = STRUCTURE_TYPE27698; t67156.value.structure_type27698 = t67153; r9976 = f6896(t67150, t67154, t67155, t67156); while ((sfp9976<(&((region9976->data)[0])))||(sfp9976>(&((region9976->data)[region_size9976])))) {struct region9976 *region; region = region9976; region_size9976 = region9976->region_size; region9976 = region9976->region; GC_free(region);} fp9976 = sfp9976; return r9976; l11322: /* x88836 */ /* x88835 */ /* x88834 stalin.sc:7407:254901 */ /* x88833 stalin.sc:7407:254902 */ /* x294997 QobiScheme.sc:166:5314 */ /* x294996 QobiScheme.sc:166:5321 */ t67145 = "This shouldn\'t happen"; /* x294995 QobiScheme.sc:166:5315 */ stalin_panic(t67145); l11262: /* x89322 */ /* x88880 */ /* x88878 */ t66928 = a23082; /* x88879 */ t66929 = q42; /* x88877 */ t66930.tag = EXTERNAL_SYMBOL_TYPE; t66930.value.external_symbol_type = t66929; if (f26160(t66928, t66930)==FALSE_TYPE) goto l11264; /* x88925 */ /* x88924 */ t67106 = p9982->p9976; p9996 = t67106; /* x88923 */ /* x88922 stalin.sc:7409:254928 */ /* x88915 stalin.sc:7409:254936 */ /* x88908 stalin.sc:7409:254941 */ /* x88906 stalin.sc:7409:254944 */ /* x88905 stalin.sc:7409:254955 */ t67125 = p9996->a23075; /* x88904 stalin.sc:7409:254945 */ t67123 = f9734(t67125); /* x88907 stalin.sc:7409:254958 */ t67124 = 3; /* x269879 stalin.sc:7409:254942 */ if (!(t67123==t67124)) goto l11316; /* x88913 */ /* x88912 stalin.sc:7409:254973 */ /* x88911 stalin.sc:7409:254984 */ t67127 = p9996->a23075; /* x88910 stalin.sc:7409:254974 */ t67126 = f9722(t67127); /* x88909 stalin.sc:7409:254962 */ if (f9741(t67126)==FALSE_TYPE) goto l11316; /* x88917 */ /* x88916 */ goto l11317; l11316: /* x88921 */ /* x88920 */ /* x88919 stalin.sc:7410:254993 */ /* x88918 stalin.sc:7410:254994 */ /* x295005 QobiScheme.sc:166:5314 */ /* x295004 QobiScheme.sc:166:5321 */ t67128 = "This shouldn\'t happen"; /* x295003 QobiScheme.sc:166:5315 */ stalin_panic(t67128); l11317: /* x88902 */ t67107 = p9996; p9997 = t67107; /* x88901 stalin.sc:7411:255007 */ /* x88882 stalin.sc:7412:255035 */ t67108 = p9997->a23075; /* x88888 stalin.sc:7412:255037 */ /* x88886 stalin.sc:7412:255047 */ /* x88885 stalin.sc:7412:255058 */ t67115 = p9997->a23075; /* x88884 stalin.sc:7412:255048 */ t67112 = f9722(t67115); /* x88887 stalin.sc:7412:255061 */ t67113 = p9997->a23076; /* x88883 stalin.sc:7412:255038 */ /* MOVE: branching squeezed to general */ if (t67113>=((struct structure_type24753 *)VALUE_OFFSET)) {t67114.tag = STRUCTURE_TYPE24753; t67114.value.structure_type24753 = t67113;} else t67114.tag = (unsigned)t67113; t67109 = f9965(t67112, t67114); /* x88900 stalin.sc:7413:255069 */ /* x88892 stalin.sc:7413:255082 */ /* x88891 stalin.sc:7413:255092 */ t67120 = p9997->a23075; /* x88890 stalin.sc:7413:255083 */ t67116 = f9723(t67120); /* x88893 stalin.sc:7413:255095 */ t67117 = p9997->a23076; /* x88898 stalin.sc:7413:255098 */ /* x88897 stalin.sc:7413:255108 */ /* x88896 stalin.sc:7413:255119 */ t67122 = p9997->a23075; /* x88895 stalin.sc:7413:255109 */ t67121 = f9722(t67122); /* x88894 stalin.sc:7413:255099 */ t67118 = f9712(t67121); /* x88899 stalin.sc:7413:255123 */ t67119 = p9997->a23078; /* x88889 stalin.sc:7413:255070 */ t67110 = f9976(t67116, t67117, t67118, t67119); /* x88881 stalin.sc:7411:255008 */ t67111.tag = STRUCTURE_TYPE27698; t67111.value.structure_type27698 = t67110; r9976 = f6914(t67108, t67109, t67111); while ((sfp9976<(&((region9976->data)[0])))||(sfp9976>(&((region9976->data)[region_size9976])))) {struct region9976 *region; region = region9976; region_size9976 = region9976->region_size; region9976 = region9976->region; GC_free(region);} fp9976 = sfp9976; return r9976; l11264: /* x89321 */ /* x88929 */ /* x88927 */ t66931 = a23082; /* x88928 */ t66932 = q43; /* x88926 */ t66933.tag = EXTERNAL_SYMBOL_TYPE; t66933.value.external_symbol_type = t66932; if (f26160(t66931, t66933)==FALSE_TYPE) goto l11266; /* x89009 */ /* x89008 */ t67059 = p9982->p9976; p10000 = t67059; /* x89007 */ /* x89006 stalin.sc:7415:255139 */ /* x88999 stalin.sc:7415:255147 */ /* x88998 stalin.sc:7415:255151 */ /* x88996 stalin.sc:7415:255154 */ /* x88995 stalin.sc:7415:255165 */ t67101 = p10000->a23075; /* x88994 stalin.sc:7415:255155 */ t67099 = f9734(t67101); /* x88997 stalin.sc:7415:255168 */ t67100 = 3; /* x269875 stalin.sc:7415:255152 */ if (t67099==t67100) goto l11311; p10002 = p10000; /* x88990 */ /* x88988 stalin.sc:7415:255174 */ /* x88987 stalin.sc:7415:255185 */ t67104 = p10002->a23075; /* x88986 stalin.sc:7415:255175 */ t67102 = f9734(t67104); /* x88989 stalin.sc:7415:255188 */ t67103 = 4; /* x269876 stalin.sc:7415:255172 */ if (!(t67102==t67103)) goto l11312; l11311: /* x89001 */ /* x89000 */ goto l11313; l11312: /* x89005 */ /* x89004 */ /* x89003 stalin.sc:7415:255192 */ /* x89002 stalin.sc:7415:255193 */ /* x295009 QobiScheme.sc:166:5314 */ /* x295008 QobiScheme.sc:166:5321 */ t67105 = "This shouldn\'t happen"; /* x295007 QobiScheme.sc:166:5315 */ stalin_panic(t67105); l11313: /* x88982 */ t67060 = p10000; p10001 = t67060; /* x88981 stalin.sc:7416:255206 */ /* x88931 stalin.sc:7417:255232 */ t67061 = p10001->a23075; /* x88939 stalin.sc:7418:255238 */ /* x88935 stalin.sc:7418:255251 */ /* x88934 stalin.sc:7418:255262 */ t67072 = p10001->a23075; /* x88933 stalin.sc:7418:255252 */ t67068 = f9722(t67072); /* x88936 stalin.sc:7418:255265 */ t67069 = p10001->a23076; /* x88937 stalin.sc:7418:255268 */ /* x88938 stalin.sc:7418:255271 */ t67070 = p10001->a23078; /* x88932 stalin.sc:7418:255239 */ t67071.tag = FALSE_TYPE; t67062 = f9976(t67068, t67069, t67071, t67070); /* x88947 stalin.sc:7419:255278 */ /* x88943 stalin.sc:7419:255291 */ /* x88942 stalin.sc:7419:255301 */ t67077 = p10001->a23075; /* x88941 stalin.sc:7419:255292 */ t67073 = f9723(t67077); /* x88944 stalin.sc:7419:255304 */ t67074 = p10001->a23076; /* x88945 stalin.sc:7419:255307 */ /* x88946 stalin.sc:7419:255310 */ t67075 = p10001->a23078; /* x88940 stalin.sc:7419:255279 */ t67076.tag = FALSE_TYPE; t67063 = f9976(t67073, t67074, t67076, t67075); /* x88980 stalin.sc:7420:255317 */ /* x88953 stalin.sc:7420:255321 */ /* x88951 stalin.sc:7420:255324 */ /* x88950 stalin.sc:7420:255335 */ t67080 = p10001->a23075; /* x88949 stalin.sc:7420:255325 */ t67078 = f9734(t67080); /* x88952 stalin.sc:7420:255338 */ t67079 = 3; /* x269878 stalin.sc:7420:255322 */ if (!(t67078==t67079)) goto l11306; /* x88971 stalin.sc:7421:255349 */ /* x88955 stalin.sc:7422:255375 */ t67086 = p10001->a23075; /* x88969 stalin.sc:7423:255379 */ /* x88957 stalin.sc:7424:255408 */ t67090 = p10001->a23075; /* x88966 stalin.sc:7424:255410 */ /* x88959 stalin.sc:7424:255430 */ t67095 = a23077; /* x88965 stalin.sc:7424:255432 */ /* x88960 stalin.sc:7424:255436 */ if ((a23077.tag)==FALSE_TYPE) goto l11309; /* x88963 stalin.sc:7424:255438 */ /* x88962 stalin.sc:7424:255454 */ t67098 = *((struct w3467 *)(&a23077)); /* x269877 stalin.sc:7424:255439 */ if (!((t67098.tag)==EXTERNAL_SYMBOL_TYPE)) {backtrace("stalin.sc", 7424, 255438); symbol_string_error();} t67096 = t67098.value.external_symbol_type; goto l11310; l11309: /* x88964 stalin.sc:7424:255457 */ t67096 = p10001->a23078; l11310: /* x88958 stalin.sc:7424:255411 */ t67097 = t67096; t67091 = f8468(t67095, t67097); /* x88967 stalin.sc:7424:255461 */ /* x88968 stalin.sc:7424:255465 */ /* x88956 stalin.sc:7423:255380 */ t67092.tag = STRUCTURE_TYPE27694; t67092.value.structure_type27694 = t67091; t67093.tag = NULL_TYPE; t67094.tag = FALSE_TYPE; t67087 = f6896(t67090, t67092, t67093, t67094); /* x88970 stalin.sc:7425:255471 */ /* x88954 stalin.sc:7421:255350 */ t67088.tag = STRUCTURE_TYPE27698; t67088.value.structure_type27698 = t67087; t67089.tag = NULL_TYPE; t67064 = f6878(t67086, t67088, t67089); goto l11307; l11306: /* x88979 stalin.sc:7426:255484 */ /* x88975 stalin.sc:7426:255497 */ /* x88974 stalin.sc:7426:255508 */ t67085 = p10001->a23075; /* x88973 stalin.sc:7426:255498 */ t67081 = f9724(t67085); /* x88976 stalin.sc:7426:255511 */ t67082 = p10001->a23076; /* x88977 stalin.sc:7426:255514 */ /* x88978 stalin.sc:7426:255517 */ t67083 = p10001->a23078; /* x88972 stalin.sc:7426:255485 */ t67084.tag = FALSE_TYPE; t67064 = f9976(t67081, t67082, t67084, t67083); l11307: /* x88930 stalin.sc:7416:255207 */ t67065.tag = STRUCTURE_TYPE27698; t67065.value.structure_type27698 = t67062; t67066.tag = STRUCTURE_TYPE27698; t67066.value.structure_type27698 = t67063; t67067.tag = STRUCTURE_TYPE27698; t67067.value.structure_type27698 = t67064; r9976 = f6920(t67061, t67065, t67066, t67067); while ((sfp9976<(&((region9976->data)[0])))||(sfp9976>(&((region9976->data)[region_size9976])))) {struct region9976 *region; region = region9976; region_size9976 = region9976->region_size; region9976 = region9976->region; GC_free(region);} fp9976 = sfp9976; return r9976; l11266: /* x89320 */ /* x89013 */ /* x89011 */ t66934 = a23082; /* x89012 */ t66935 = q77; /* x89010 */ t66936.tag = EXTERNAL_SYMBOL_TYPE; t66936.value.external_symbol_type = t66935; if (f26160(t66934, t66936)==FALSE_TYPE) goto l11268; /* x89173 */ /* x89172 */ t66998 = p9982->p9976; p10005 = t66998; /* x89171 */ /* x89170 stalin.sc:7429:255606 */ /* x89169 stalin.sc:7429:255616 */ /* x89168 stalin.sc:7429:255627 */ t67058 = p10005->a23075; /* x89167 stalin.sc:7429:255617 */ t67007 = f9722(t67058); /* x89166 */ t67006 = p10005; p10007 = t67006; a23092 = t67007; /* x89165 stalin.sc:7430:255636 */ /* x89158 stalin.sc:7430:255644 */ /* x89157 stalin.sc:7430:255648 */ /* x89119 stalin.sc:7430:255653 */ /* x89118 stalin.sc:7430:255657 */ /* x89116 stalin.sc:7430:255665 */ t67008 = a23092; /* x89117 stalin.sc:7430:255668 */ t67009 = q98; /* x89115 stalin.sc:7430:255658 */ t67010.tag = EXTERNAL_SYMBOL_TYPE; t67010.value.external_symbol_type = t67009; if (!(f9745(t67008, t67010)==FALSE_TYPE)) goto l11290; /* x89112 */ /* x89111 stalin.sc:7431:255689 */ /* x89109 stalin.sc:7431:255697 */ t67011 = a23092; /* x89110 stalin.sc:7431:255700 */ t67012 = q99; /* x89108 stalin.sc:7431:255690 */ t67013.tag = EXTERNAL_SYMBOL_TYPE; t67013.value.external_symbol_type = t67012; if (!(f9745(t67011, t67013)==FALSE_TYPE)) goto l11290; /* x89105 */ /* x89103 stalin.sc:7432:255728 */ t67014 = a23092; /* x89104 stalin.sc:7432:255731 */ t67015 = q100; /* x89102 stalin.sc:7432:255721 */ t67016.tag = EXTERNAL_SYMBOL_TYPE; t67016.value.external_symbol_type = t67015; if (f9745(t67014, t67016)==FALSE_TYPE) goto l11289; l11290: /* x89155 */ /* x89125 stalin.sc:7433:255756 */ /* x89123 stalin.sc:7433:255759 */ /* x89122 stalin.sc:7433:255770 */ t67019 = p10007->a23075; /* x89121 stalin.sc:7433:255760 */ t67017 = f9734(t67019); /* x89124 stalin.sc:7433:255773 */ t67018 = 4; /* x269868 stalin.sc:7433:255757 */ if (!(t67017==t67018)) goto l11289; /* x89153 */ /* x89130 stalin.sc:7434:255783 */ /* x89129 stalin.sc:7434:255795 */ /* x89128 stalin.sc:7434:255805 */ t67021 = p10007->a23075; /* x89127 stalin.sc:7434:255796 */ t67020 = f9723(t67021); /* x89126 stalin.sc:7434:255784 */ if (f9741(t67020)==FALSE_TYPE) goto l11289; /* x89151 */ /* x89135 stalin.sc:7435:255816 */ /* x89134 stalin.sc:7435:255829 */ /* x89133 stalin.sc:7435:255840 */ t67023 = p10007->a23075; /* x89132 stalin.sc:7435:255830 */ t67022 = f9724(t67023); /* x89131 stalin.sc:7435:255817 */ if (f9746(t67022)==FALSE_TYPE) goto l11289; /* x89149 */ /* x89140 stalin.sc:7436:255851 */ /* x89139 stalin.sc:7436:255862 */ /* x89138 stalin.sc:7436:255873 */ t67025 = p10007->a23075; /* x89137 stalin.sc:7436:255863 */ t67024 = f9724(t67025); /* x89136 stalin.sc:7436:255852 */ if (f9750(t67024)==FALSE_TYPE) goto l11289; /* x89147 */ /* x89146 stalin.sc:7437:255889 */ /* x89145 stalin.sc:7437:255903 */ /* x89144 stalin.sc:7437:255914 */ t67027 = p10007->a23075; /* x89143 stalin.sc:7437:255904 */ t67026 = f9724(t67027); /* x89142 stalin.sc:7437:255890 */ if (f9751(t67026)==FALSE_TYPE) goto l11286; l11289: p10008 = p10007; /* x89095 */ /* x89094 stalin.sc:7438:255929 */ /* x89079 stalin.sc:7438:255934 */ /* x89077 stalin.sc:7438:255942 */ t67028 = a23092; /* x89078 stalin.sc:7438:255945 */ t67029 = q101; /* x89076 stalin.sc:7438:255935 */ t67030.tag = EXTERNAL_SYMBOL_TYPE; t67030.value.external_symbol_type = t67029; if (f9745(t67028, t67030)==FALSE_TYPE) goto l11297; /* x89092 */ /* x89085 stalin.sc:7439:255965 */ /* x89083 stalin.sc:7439:255968 */ /* x89082 stalin.sc:7439:255979 */ t67033 = p10008->a23075; /* x89081 stalin.sc:7439:255969 */ t67031 = f9734(t67033); /* x89084 stalin.sc:7439:255982 */ t67032 = 3; /* x269869 stalin.sc:7439:255966 */ if (!(t67031==t67032)) goto l11297; /* x89090 */ /* x89089 stalin.sc:7440:256004 */ /* x89088 stalin.sc:7440:256014 */ t67035 = p10008->a23075; /* x89087 stalin.sc:7440:256005 */ t67034 = f9723(t67035); /* x89086 stalin.sc:7440:255993 */ if (!(f9741(t67034)==FALSE_TYPE)) goto l11286; l11297: p10009 = p10008; /* x89073 */ /* x89033 stalin.sc:7441:256033 */ /* x89031 stalin.sc:7441:256036 */ /* x89030 stalin.sc:7441:256047 */ t67038 = p10009->a23075; /* x89029 stalin.sc:7441:256037 */ t67036 = f9734(t67038); /* x89032 stalin.sc:7441:256050 */ t67037 = 2; /* x269874 stalin.sc:7441:256034 */ if (!(t67036==t67037)) goto l11287; /* x89071 */ /* x89039 stalin.sc:7442:256060 */ /* x89038 stalin.sc:7442:256065 */ /* x89036 stalin.sc:7442:256073 */ t67039 = a23092; /* x89037 stalin.sc:7442:256076 */ t67040 = q98; /* x89035 stalin.sc:7442:256066 */ t67041.tag = EXTERNAL_SYMBOL_TYPE; t67041.value.external_symbol_type = t67040; if (!(f9745(t67039, t67041)==FALSE_TYPE)) goto l11287; /* x89069 */ /* x89045 stalin.sc:7443:256101 */ /* x89044 stalin.sc:7443:256106 */ /* x89042 stalin.sc:7443:256114 */ t67042 = a23092; /* x89043 stalin.sc:7443:256117 */ t67043 = q99; /* x89041 stalin.sc:7443:256107 */ t67044.tag = EXTERNAL_SYMBOL_TYPE; t67044.value.external_symbol_type = t67043; if (!(f9745(t67042, t67044)==FALSE_TYPE)) goto l11287; /* x89067 */ /* x89051 stalin.sc:7444:256141 */ /* x89050 stalin.sc:7444:256146 */ /* x89048 stalin.sc:7444:256154 */ t67045 = a23092; /* x89049 stalin.sc:7444:256157 */ t67046 = q100; /* x89047 stalin.sc:7444:256147 */ t67047.tag = EXTERNAL_SYMBOL_TYPE; t67047.value.external_symbol_type = t67046; if (!(f9745(t67045, t67047)==FALSE_TYPE)) goto l11287; /* x89065 */ /* x89057 stalin.sc:7445:256182 */ /* x89056 stalin.sc:7445:256187 */ /* x89054 stalin.sc:7445:256195 */ t67048 = a23092; /* x89055 stalin.sc:7445:256198 */ t67049 = q101; /* x89053 stalin.sc:7445:256188 */ t67050.tag = EXTERNAL_SYMBOL_TYPE; t67050.value.external_symbol_type = t67049; if (!(f9745(t67048, t67050)==FALSE_TYPE)) goto l11287; /* x89063 */ /* x89061 stalin.sc:7446:256225 */ /* x89060 stalin.sc:7446:256235 */ t67054 = a23092; /* x89059 stalin.sc:7446:256226 */ a41066 = t67054; /* x298376 stalin.sc:6937:240340 */ /* x298375 stalin.sc:6937:240360 */ t67055 = a41066; /* x298374 stalin.sc:6937:240341 */ a42428 = t67055; /* x303210 */ /* x303209 */ t67056 = a42428; /* x303208 */ if (!((t67056.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37604]"); structure_ref_error();} t67051 = t67056.value.structure_type27510->s9; /* x89062 stalin.sc:7447:256245 */ t67052 = a789; /* x89058 stalin.sc:7446:256220 */ /* MOVE: branching squeezed to general */ if (t67052>=((struct structure_type24753 *)VALUE_OFFSET)) {t67053.tag = STRUCTURE_TYPE24753; t67053.value.structure_type24753 = t67052;} else t67053.tag = (unsigned)t67052; if ((f26354(t67051, t67053).tag)==FALSE_TYPE) goto l11287; l11286: /* x89160 */ /* x89159 */ goto l11288; l11287: /* x89164 */ /* x89163 */ /* x89162 stalin.sc:7448:256284 */ /* x89161 stalin.sc:7448:256285 */ /* x295013 QobiScheme.sc:166:5314 */ /* x295012 QobiScheme.sc:166:5321 */ t67057 = "This shouldn\'t happen"; /* x295011 QobiScheme.sc:166:5315 */ stalin_panic(t67057); l11288: /* x89023 */ t66999 = p10005; p10006 = t66999; /* x89022 stalin.sc:7449:256299 */ /* x89015 stalin.sc:7450:256322 */ t67000 = q77; /* x89016 stalin.sc:7450:256343 */ t67001 = p10006->a23075; /* x89021 stalin.sc:7450:256345 */ /* x89020 stalin.sc:7450:256360 */ /* x89019 stalin.sc:7450:256369 */ t67004 = p10006->a23075; /* x89018 stalin.sc:7450:256361 */ a41294 = t67004; /* x299288 stalin.sc:7008:242336 */ /* x299287 stalin.sc:7008:242344 */ t67005 = a41294; /* x299286 stalin.sc:7008:242337 */ t67003 = f9720(t67005); /* x89017 stalin.sc:7450:256346 */ t67002 = f9788(t67003); /* x89014 stalin.sc:7449:256300 */ r9976 = f6872(t67000, t67001, t67002); while ((sfp9976<(&((region9976->data)[0])))||(sfp9976>(&((region9976->data)[region_size9976])))) {struct region9976 *region; region = region9976; region_size9976 = region9976->region_size; region9976 = region9976->region; GC_free(region);} fp9976 = sfp9976; return r9976; l11268: /* x89319 */ /* x89177 */ /* x89175 */ t66937 = a23082; /* x89176 */ t66938 = q78; /* x89174 */ t66939.tag = EXTERNAL_SYMBOL_TYPE; t66939.value.external_symbol_type = t66938; if (f26160(t66937, t66939)==FALSE_TYPE) goto l11270; /* x89279 */ /* x89278 */ t66963 = p9982->p9976; p10014 = t66963; /* x89277 */ /* x89276 stalin.sc:7452:256401 */ /* x89269 stalin.sc:7452:256409 */ /* x89268 stalin.sc:7452:256413 */ /* x89239 stalin.sc:7453:256427 */ /* x89237 stalin.sc:7453:256430 */ /* x89236 stalin.sc:7453:256441 */ t66973 = p10014->a23075; /* x89235 stalin.sc:7453:256431 */ t66971 = f9734(t66973); /* x89238 stalin.sc:7453:256444 */ t66972 = 4; /* x269865 stalin.sc:7453:256428 */ if (!(t66971==t66972)) goto l11276; /* x89266 */ /* x89244 stalin.sc:7454:256456 */ /* x89243 stalin.sc:7454:256466 */ /* x89242 stalin.sc:7454:256477 */ t66975 = p10014->a23075; /* x89241 stalin.sc:7454:256467 */ t66974 = f9722(t66975); /* x89240 stalin.sc:7454:256457 */ if (f9766(t66974)==FALSE_TYPE) goto l11276; /* x89264 */ /* x89250 stalin.sc:7455:256490 */ /* x89246 stalin.sc:7455:256500 */ /* x89249 stalin.sc:7455:256530 */ /* x89248 stalin.sc:7455:256541 */ t66978 = p10014->a23075; /* x89247 stalin.sc:7455:256531 */ t66976 = f9722(t66978); /* x89245 stalin.sc:7455:256491 */ t66977 = NATIVE_PROCEDURE_TYPE7144; if (f9758(t66977, t66976)==FALSE_TYPE) goto l11276; /* x89262 */ /* x89255 stalin.sc:7456:256554 */ /* x89254 stalin.sc:7456:256582 */ /* x89253 stalin.sc:7456:256592 */ t66980 = p10014->a23075; /* x89252 stalin.sc:7456:256583 */ t66979 = f9723(t66980); /* x89251 stalin.sc:7456:256555 */ if (f9808(t66979)==FALSE_TYPE) goto l11276; /* x89260 */ /* x89259 stalin.sc:7457:256617 */ /* x89258 stalin.sc:7457:256628 */ t66982 = p10014->a23075; /* x89257 stalin.sc:7457:256618 */ t66981 = f9724(t66982); /* x89256 stalin.sc:7457:256606 */ if (!(f9742(t66981)==FALSE_TYPE)) goto l11273; l11276: p10016 = p10014; /* x89231 */ /* x89195 stalin.sc:7459:256655 */ /* x89193 stalin.sc:7459:256658 */ /* x89192 stalin.sc:7459:256669 */ t66985 = p10016->a23075; /* x89191 stalin.sc:7459:256659 */ t66983 = f9734(t66985); /* x89194 stalin.sc:7459:256672 */ t66984 = 5; /* x269866 stalin.sc:7459:256656 */ if (!(t66983==t66984)) goto l11274; /* x89229 */ /* x89200 stalin.sc:7460:256684 */ /* x89199 stalin.sc:7460:256694 */ /* x89198 stalin.sc:7460:256705 */ t66987 = p10016->a23075; /* x89197 stalin.sc:7460:256695 */ t66986 = f9722(t66987); /* x89196 stalin.sc:7460:256685 */ if (f9766(t66986)==FALSE_TYPE) goto l11274; /* x89227 */ /* x89206 stalin.sc:7461:256718 */ /* x89202 stalin.sc:7461:256728 */ /* x89205 stalin.sc:7461:256758 */ /* x89204 stalin.sc:7461:256769 */ t66990 = p10016->a23075; /* x89203 stalin.sc:7461:256759 */ t66988 = f9722(t66990); /* x89201 stalin.sc:7461:256719 */ t66989 = NATIVE_PROCEDURE_TYPE7144; if (f9758(t66989, t66988)==FALSE_TYPE) goto l11274; /* x89225 */ /* x89211 stalin.sc:7462:256782 */ /* x89210 stalin.sc:7462:256810 */ /* x89209 stalin.sc:7462:256820 */ t66992 = p10016->a23075; /* x89208 stalin.sc:7462:256811 */ t66991 = f9723(t66992); /* x89207 stalin.sc:7462:256783 */ if (f9808(t66991)==FALSE_TYPE) goto l11274; /* x89223 */ /* x89216 stalin.sc:7463:256833 */ /* x89215 stalin.sc:7463:256845 */ /* x89214 stalin.sc:7463:256856 */ t66994 = p10016->a23075; /* x89213 stalin.sc:7463:256846 */ t66993 = f9724(t66994); /* x89212 stalin.sc:7463:256834 */ if (f9742(t66993)==FALSE_TYPE) goto l11274; /* x89221 */ /* x89220 stalin.sc:7464:256881 */ /* x89219 stalin.sc:7464:256891 */ t66996 = p10016->a23075; /* x89218 stalin.sc:7464:256882 */ t66995 = f9725(t66996); /* x89217 stalin.sc:7464:256870 */ if (f9742(t66995)==FALSE_TYPE) goto l11274; l11273: /* x89271 */ /* x89270 */ goto l11275; l11274: /* x89275 */ /* x89274 */ /* x89273 stalin.sc:7465:256901 */ /* x89272 stalin.sc:7465:256902 */ /* x295017 QobiScheme.sc:166:5314 */ /* x295016 QobiScheme.sc:166:5321 */ t66997 = "This shouldn\'t happen"; /* x295015 QobiScheme.sc:166:5315 */ stalin_panic(t66997); l11275: /* x89187 */ t66964 = p10014; p10015 = t66964; /* x89186 stalin.sc:7466:256915 */ /* x89179 stalin.sc:7466:256934 */ t66965 = q78; /* x89180 stalin.sc:7466:256953 */ t66966 = p10015->a23075; /* x89185 stalin.sc:7466:256955 */ /* x89184 stalin.sc:7466:256970 */ /* x89183 stalin.sc:7466:256979 */ t66969 = p10015->a23075; /* x89182 stalin.sc:7466:256971 */ a41295 = t66969; /* x299292 stalin.sc:7008:242336 */ /* x299291 stalin.sc:7008:242344 */ t66970 = a41295; /* x299290 stalin.sc:7008:242337 */ t66968 = f9720(t66970); /* x89181 stalin.sc:7466:256956 */ t66967 = f9788(t66968); /* x89178 stalin.sc:7466:256916 */ r9976 = f6872(t66965, t66966, t66967); while ((sfp9976<(&((region9976->data)[0])))||(sfp9976>(&((region9976->data)[region_size9976])))) {struct region9976 *region; region = region9976; region_size9976 = region9976->region_size; region9976 = region9976->region; GC_free(region);} fp9976 = sfp9976; return r9976; l11270: /* x89318 */ /* x89317 */ t66940 = p9982->p9976; p10019 = t66940; /* x89316 stalin.sc:7468:256996 */ /* x89284 stalin.sc:7468:257000 */ /* x89283 stalin.sc:7468:257008 */ /* x89282 stalin.sc:7468:257018 */ t66942 = p10019->a23075; /* x89281 stalin.sc:7468:257009 */ a41471 = t66942; /* x299996 stalin.sc:6964:241199 */ /* x299995 stalin.sc:6964:241207 */ t66943 = a41471; /* x299994 stalin.sc:6964:241200 */ t66941 = f9719(t66943); /* x89280 stalin.sc:7468:257001 */ if ((f9713(t66941).tag)==FALSE_TYPE) goto l11272; /* x89292 stalin.sc:7469:257029 */ /* x89288 stalin.sc:7469:257042 */ /* x89287 stalin.sc:7469:257056 */ t66962 = p10019->a23075; /* x89286 stalin.sc:7469:257043 */ t66959 = f9715(t66962); /* x89289 stalin.sc:7469:257059 */ t66960 = p10019->a23076; /* x89290 stalin.sc:7469:257062 */ /* x89291 stalin.sc:7469:257065 */ t66961 = p10019->a23078; /* x89285 stalin.sc:7469:257030 */ /* MOVE: branching squeezed to general */ if (t66959>=((struct structure_type27510 *)VALUE_OFFSET)) {a23075.tag = STRUCTURE_TYPE27510; a23075.value.structure_type27510 = t66959;} else a23075.tag = (unsigned)t66959; a23076 = t66960; a23077.tag = FALSE_TYPE; a23078 = t66961; goto h9976; l11272: /* x89315 stalin.sc:7470:257075 */ /* x89294 stalin.sc:7471:257107 */ t66944 = p10019->a23075; /* x89302 stalin.sc:7472:257117 */ /* x89298 stalin.sc:7472:257130 */ /* x89297 stalin.sc:7472:257140 */ t66952 = p10019->a23075; /* x89296 stalin.sc:7472:257131 */ a22902 = t66952; /* x86406 stalin.sc:6964:241199 */ /* x86405 stalin.sc:6964:241207 */ t66953 = a22902; /* x86404 stalin.sc:6964:241200 */ t66948 = f9719(t66953); /* x89299 stalin.sc:7472:257143 */ t66949 = p10019->a23076; /* x89300 stalin.sc:7472:257146 */ /* x89301 stalin.sc:7472:257149 */ t66950 = p10019->a23078; /* x89295 stalin.sc:7472:257118 */ t66951.tag = FALSE_TYPE; t66945 = f9976(t66948, t66949, t66951, t66950); /* x89314 stalin.sc:7473:257160 */ /* x89310 stalin.sc:7473:257168 */ t66954 = p10019; /* x89313 stalin.sc:7473:257205 */ /* x89312 stalin.sc:7473:257214 */ t66957 = p10019->a23075; /* x89311 stalin.sc:7473:257206 */ a41296 = t66957; /* x299296 stalin.sc:7008:242336 */ /* x299295 stalin.sc:7008:242344 */ t66958 = a41296; /* x299294 stalin.sc:7008:242337 */ t66955 = f9720(t66958); /* x89303 stalin.sc:7473:257161 */ t66956.tag = NATIVE_PROCEDURE_TYPE24529; t66956.value.native_procedure_type24529 = t66954; t66946 = f9753(t66956, t66955); /* x89293 stalin.sc:7470:257076 */ t66947.tag = STRUCTURE_TYPE27698; t66947.value.structure_type27698 = t66945; r9976 = f6878(t66944, t66947, t66946); while ((sfp9976<(&((region9976->data)[0])))||(sfp9976>(&((region9976->data)[region_size9976])))) {struct region9976 *region; region = region9976; region_size9976 = region9976->region_size; region9976 = region9976->region; GC_free(region);} fp9976 = sfp9976; return r9976; l11258: /* x89354 stalin.sc:7474:257223 */ /* x89333 stalin.sc:7475:257249 */ t66905 = p9981->p9976->a23075; /* x89341 stalin.sc:7476:257253 */ /* x89337 stalin.sc:7476:257266 */ /* x89336 stalin.sc:7476:257276 */ t66913 = p9981->p9976->a23075; /* x89335 stalin.sc:7476:257267 */ a41473 = t66913; /* x300004 stalin.sc:6964:241199 */ /* x300003 stalin.sc:6964:241207 */ t66914 = a41473; /* x300002 stalin.sc:6964:241200 */ t66909 = f9719(t66914); /* x89338 stalin.sc:7476:257279 */ t66910 = p9981->p9976->a23076; /* x89339 stalin.sc:7476:257282 */ /* x89340 stalin.sc:7476:257285 */ t66911 = p9981->p9976->a23078; /* x89334 stalin.sc:7476:257254 */ t66912.tag = FALSE_TYPE; t66906 = f9976(t66909, t66910, t66912, t66911); /* x89353 stalin.sc:7477:257290 */ /* x89349 stalin.sc:7477:257298 */ t66915 = p9981->p9976; /* x89352 stalin.sc:7477:257335 */ /* x89351 stalin.sc:7477:257344 */ t66918 = p9981->p9976->a23075; /* x89350 stalin.sc:7477:257336 */ a41297 = t66918; /* x299300 stalin.sc:7008:242336 */ /* x299299 stalin.sc:7008:242344 */ t66919 = a41297; /* x299298 stalin.sc:7008:242337 */ t66916 = f9720(t66919); /* x89342 stalin.sc:7477:257291 */ t66917.tag = NATIVE_PROCEDURE_TYPE24526; t66917.value.native_procedure_type24526 = t66915; t66907 = f9753(t66917, t66916); /* x89332 stalin.sc:7474:257224 */ t66908.tag = STRUCTURE_TYPE27698; t66908.value.structure_type27698 = t66906; r9976 = f6878(t66905, t66908, t66907); while ((sfp9976<(&((region9976->data)[0])))||(sfp9976>(&((region9976->data)[region_size9976])))) {struct region9976 *region; region = region9976; region_size9976 = region9976->region_size; region9976 = region9976->region; GC_free(region);} fp9976 = sfp9976; return r9976; l11254: /* x89387 */ /* x89372 stalin.sc:7478:257355 */ /* x89371 stalin.sc:7478:257367 */ t66890 = p9978->p9976->a23075; /* x89370 stalin.sc:7478:257356 */ if (f9741(t66890)==FALSE_TYPE) goto l11256; /* x89381 */ /* x89380 */ t66894 = p9978->p9976; p10024 = t66894; /* x89379 stalin.sc:7478:257370 */ /* x89374 stalin.sc:7478:257396 */ t66895 = p10024->a23075; /* x89378 stalin.sc:7478:257398 */ /* x89376 stalin.sc:7478:257408 */ t66897 = p10024->a23075; /* x89377 stalin.sc:7478:257410 */ t66898 = p10024->a23076; /* x89375 stalin.sc:7478:257399 */ /* MOVE: branching squeezed to general */ if (t66898>=((struct structure_type24753 *)VALUE_OFFSET)) {t66899.tag = STRUCTURE_TYPE24753; t66899.value.structure_type24753 = t66898;} else t66899.tag = (unsigned)t66898; t66896 = f9965(t66897, t66899); /* x89373 stalin.sc:7478:257371 */ r9976 = f6890(t66895, t66896); while ((sfp9976<(&((region9976->data)[0])))||(sfp9976>(&((region9976->data)[region_size9976])))) {struct region9976 *region; region = region9976; region_size9976 = region9976->region_size; region9976 = region9976->region; GC_free(region);} fp9976 = sfp9976; return r9976; l11256: /* x89386 */ /* x89385 */ t66891 = p9978; p10025 = t66891; /* x89384 stalin.sc:7479:257425 */ /* x89383 stalin.sc:7479:257447 */ t66893 = p10025->p9976->a23075; /* x89382 stalin.sc:7479:257426 */ t66892 = p10025->a23079; r9976 = f10026(t66892, t66893); while ((sfp9976<(&((region9976->data)[0])))||(sfp9976>(&((region9976->data)[region_size9976])))) {struct region9976 *region; region = region9976; region_size9976 = region9976->region_size; region9976 = region9976->region; GC_free(region);} fp9976 = sfp9976; return r9976;} /* DOTTED-APPEND[9969] */ struct structure_type24753 *f9969(struct w49 a23070, struct structure_type24753 *a23071) {struct structure_type24753 *r9969; struct w16638 a20359; /* OBJ */ struct w16638 a35328; /* PAIR */ struct w16638 a35645; /* PAIR */ struct w49 t67212; struct w16638 t67213; struct w16638 t67214; struct w49 t67215; struct structure_type24753 *t67216; struct w16638 t67217; struct w16638 t67218; struct w49 t67219; struct structure_type24753 *t67220; struct w16638 t67221; struct w16638 t67222; struct w16638 t67223; struct structure_type24753 *t67224; /* x88708 stalin.sc:7339:252294 */ /* x88681 stalin.sc:7339:252301 */ /* x88680 stalin.sc:7339:252308 */ t67212 = a23070; /* x269886 stalin.sc:7339:252302 */ if (!((t67212.tag)==NULL_TYPE)) goto l11341; /* x88684 */ /* x88683 */ /* x88682 stalin.sc:7339:252313 */ return a23071; l11341: /* x88707 */ /* x88687 stalin.sc:7340:252326 */ /* x88686 stalin.sc:7340:252337 */ t67213 = *((struct w16638 *)(&a23070)); /* x88685 stalin.sc:7340:252327 */ a20359 = t67213; /* x54753 */ /* x54752 */ t67214 = a20359; /* x54751 */ if (!((t67214.tag)==STRUCTURE_TYPE27692)) goto l11343; /* x88693 */ /* x88692 */ /* x88691 stalin.sc:7340:252342 */ /* x88689 stalin.sc:7340:252348 */ t67223 = *((struct w16638 *)(&a23070)); /* x88690 stalin.sc:7340:252352 */ t67224 = a23071; /* x269885 stalin.sc:7340:252343 */ r9969 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r9969==NULL) {backtrace("stalin.sc", 7340, 252342); out_of_memory_error();} r9969->s0 = *((struct w49 *)(&t67223)); /* MOVE: branching squeezed to general */ if (t67224>=((struct structure_type24753 *)VALUE_OFFSET)) {r9969->s1.tag = STRUCTURE_TYPE24753; r9969->s1.value.structure_type24753 = t67224;} else r9969->s1.tag = (unsigned)t67224; return r9969; l11343: /* x88706 */ /* x88705 */ /* x88704 stalin.sc:7341:252371 */ /* x88697 stalin.sc:7341:252377 */ /* x88696 stalin.sc:7341:252384 */ t67217 = *((struct w16638 *)(&a23070)); /* x88695 stalin.sc:7341:252378 */ a35645 = t67217; /* x273937 */ /* x273936 */ t67218 = a35645; /* x273935 */ if (!((t67218.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29794]"); structure_ref_error();} t67215 = t67218.value.structure_type24753->s0; /* x88703 stalin.sc:7341:252389 */ /* x88701 stalin.sc:7341:252404 */ /* x88700 stalin.sc:7341:252410 */ t67221 = *((struct w16638 *)(&a23070)); /* x88699 stalin.sc:7341:252405 */ a35328 = t67221; /* x272669 */ /* x272668 */ t67222 = a35328; /* x272667 */ if (!((t67222.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29477]"); structure_ref_error();} t67219 = t67222.value.structure_type24753->s1; /* x88702 stalin.sc:7341:252415 */ t67220 = a23071; /* x88698 stalin.sc:7341:252390 */ t67216 = f9969(t67219, t67220); /* x269884 stalin.sc:7341:252372 */ r9969 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r9969==NULL) {backtrace("stalin.sc", 7341, 252371); out_of_memory_error();} r9969->s0 = t67215; /* MOVE: branching squeezed to general */ if (t67216>=((struct structure_type24753 *)VALUE_OFFSET)) {r9969->s1.tag = STRUCTURE_TYPE24753; r9969->s1.value.structure_type24753 = t67216;} else r9969->s1.tag = (unsigned)t67216; return r9969;} /* VARIABLE[9965] */ struct w49 f9965(struct w49 a23067, struct w49 a23068) {struct w49 a20430; /* S */ struct w49 a35327; /* PAIR */ struct w49 a35643; /* PAIR */ struct w49 a35644; /* PAIR */ struct w49 t67225; struct w49 t67226; struct w49 t67227; struct w49 t67228; struct w49 t67229; struct w49 t67230; struct w49 t67231; struct w49 t67232; struct w49 t67233; struct w49 t67234; struct w49 t67235; struct w49 t67236; struct w49 t67237; struct w49 t67238; char *t67239; h9965: /* x88676 */ /* x88675 stalin.sc:7335:252127 */ /* x88666 stalin.sc:7335:252133 */ /* x88665 stalin.sc:7335:252140 */ t67237 = a23068; /* x269887 stalin.sc:7335:252134 */ if (!((t67237.tag)==NULL_TYPE)) goto l11347; /* x88672 */ /* x88671 */ /* x88670 stalin.sc:7335:252144 */ /* x88668 stalin.sc:7335:252158 */ t67238 = a23067; /* x88669 stalin.sc:7335:252160 */ t67239 = "Unbound variable"; /* x88667 stalin.sc:7335:252145 */ f9705(t67238, t67239); goto l11348; l11347: /* x88674 stalin.sc:7335:252127 */ /* x88673 stalin.sc:7335:252127 */ l11348: /* x88663 */ /* x88662 stalin.sc:7336:252182 */ /* x88652 stalin.sc:7336:252186 */ /* x88646 stalin.sc:7336:252194 */ t67225 = a23067; /* x88651 stalin.sc:7336:252196 */ /* x88650 stalin.sc:7336:252211 */ /* x88649 stalin.sc:7336:252218 */ t67229 = a23068; /* x88648 stalin.sc:7336:252212 */ a35644 = t67229; /* x273933 */ /* x273932 */ t67230 = a35644; /* x273931 */ if (!((t67230.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29793]"); structure_ref_error();} t67227 = t67230.value.structure_type24753->s0; /* x88647 stalin.sc:7336:252197 */ a20430 = t67227; /* x55031 */ /* x55030 */ t67228 = a20430; /* x55029 */ if (!((t67228.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("VARIABLE-NAME[6573]"); structure_ref_error();} t67226 = t67228.value.structure_type27692->s7; /* x88645 stalin.sc:7336:252187 */ if (f9745(t67225, t67226)==FALSE_TYPE) goto l11345; /* x88655 stalin.sc:7336:252224 */ /* x88654 stalin.sc:7336:252231 */ t67235 = a23068; /* x88653 stalin.sc:7336:252225 */ a35643 = t67235; /* x273929 */ /* x273928 */ t67236 = a35643; /* x273927 */ if ((t67236.tag)==STRUCTURE_TYPE24753) return t67236.value.structure_type24753->s0; backtrace_internal("[clone CAR[26176] 29792]"); structure_ref_error(); l11345: /* x88661 stalin.sc:7336:252235 */ /* x88657 stalin.sc:7336:252245 */ t67231 = a23067; /* x88660 stalin.sc:7336:252247 */ /* x88659 stalin.sc:7336:252253 */ t67233 = a23068; /* x88658 stalin.sc:7336:252248 */ a35327 = t67233; /* x272665 */ /* x272664 */ t67234 = a35327; /* x272663 */ if (!((t67234.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29476]"); structure_ref_error();} t67232 = t67234.value.structure_type24753->s1; /* x88656 stalin.sc:7336:252236 */ a23067 = t67231; a23068 = t67232; goto h9965;} /* SYMBOLS-IN[9919] */ void f9919(struct w49 a23050) {struct w49 a23052; /* v */ struct w49 a23055; /* S */ struct w49 a23061; /* S2 */ struct w49 a41081; /* S */ struct w49 a41113; /* S */ struct w49 a41298; /* S */ struct w49 a41299; /* S */ struct w49 a41618; /* S */ struct w49 a41619; /* S */ struct w49 a41621; /* S */ struct w49 a42380; /* S */ struct w49 a42412; /* S */ struct w49 t67240; struct w49 t67241; struct w49 t67242; struct w49 t67243; struct w49 t67244; struct w49 t67245; struct w49 t67246; struct w49 t67247; struct w49 t67248; struct w49 t67249; char *t67250; struct w49 t67251; struct w49 t67252; char *t67253; struct w49 t67254; struct w49 t67255; char *t67256; struct w49 t67257; struct w49 t67258; char *t67259; struct w49 t67260; struct w49 t67261; char *t67262; struct w49 t67263; struct w49 t67264; char *t67265; struct w49 t67266; struct w49 t67267; struct w49 t67268; struct w49 t67269; struct w49 t67270; struct structure_type27510 *t67271; struct w49 t67272; int t67273; int t67274; struct w49 t67275; struct w49 t67276; struct w49 t67277; struct w49 t67278; unsigned t67279; struct w49 t67280; struct w49 t67281; struct w49 t67282; struct w49 t67283; struct w49 t67284; int t67285; int t67286; struct w49 t67287; struct w49 t67288; struct w49 t67289; struct w49 t67290; unsigned t67291; struct w49 t67292; struct w49 t67293; struct w49 t67294; struct w49 t67295; struct w49 t67296; struct w49 t67297; struct w49 t67298; struct w49 t67299; char *t67300; struct w49 t67301; struct w49 t67302; char *t67303; struct w49 t67304; struct w49 t67305; char *t67306; struct w49 t67307; struct w49 t67308; char *t67309; struct w49 t67310; int t67311; int t67312; struct w49 t67313; struct w49 t67314; struct w49 t67315; struct w49 t67316; struct w49 t67317; struct w49 t67318; struct w49 t67319; struct w49 t67320; struct w49 t67321; struct w49 t67322; char *t67323; struct w49 t67324; int t67325; int t67326; struct w49 t67327; struct w49 t67328; struct w49 t67329; int t67330; int t67331; struct w49 t67332; struct w49 t67333; char *t67334; struct w49 t67335; struct w49 t67336; char *t67337; struct w49 t67338; struct w49 t67339; char *t67340; struct w49 t67341; struct w49 t67342; char *t67343; struct w49 t67344; struct w49 t67345; struct structure_type24753 *t67346; struct w49 t67347; struct w49 t67348; struct w49 t67349; struct w49 t67350; struct w49 t67351; char *t67352; struct w49 t67353; int t67354; int t67355; struct w49 t67356; struct w49 t67357; struct w49 t67358; int t67359; int t67360; struct w49 t67361; int t67362; int t67363; struct w49 t67364; struct w49 t67365; char *t67366; struct w49 t67367; struct w49 t67368; struct w49 t67369; struct w49 t67370; struct w49 t67371; struct w49 t67372; int t67373; int t67374; struct w49 t67375; struct w49 t67376; struct w49 t67377; struct w49 t67378; char *t67379; struct w49 t67380; struct w49 t67381; struct w49 t67382; struct w49 t67383; struct w49 t67384; struct w49 t67385; struct w49 t67386; struct w49 t67387; struct w49 t67388; int t67389; int t67390; struct w49 t67391; struct w49 t67392; struct w49 t67393; struct structure_type24753 *t67394; struct w49 t67395; struct w49 t67396; struct w49 t67397; struct w49 t67398; char *t67399; struct w49 t67400; struct w49 t67401; int t67402; int t67403; struct w49 t67404; struct w49 t67405; char *t67406; struct w49 t67407; struct w49 t67408; struct w49 t67409; struct w49 t67410; struct w49 t67411; struct w49 t67412; struct w49 t67413; char *t67414; struct w49 t67415; char *t67416; h9919: /* x88627 stalin.sc:7258:249479 */ /* x88112 stalin.sc:7259:249490 */ /* x88111 stalin.sc:7259:249500 */ t67240 = a23050; /* x88110 stalin.sc:7259:249491 */ if (f9739(t67240)==FALSE_TYPE) goto l11350; /* x88118 */ /* x88117 */ /* x88116 stalin.sc:7259:249503 */ /* x88114 stalin.sc:7259:249517 */ t67415 = a23050; /* x88115 stalin.sc:7259:249519 */ t67416 = "Improper expression"; /* x88113 stalin.sc:7259:249504 */ f9705(t67415, t67416); return; l11350: /* x88626 */ /* x88121 stalin.sc:7260:249548 */ /* x88120 stalin.sc:7260:249558 */ t67241 = a23050; /* x88119 stalin.sc:7260:249549 */ if (f9740(t67241)==FALSE_TYPE) goto l11352; /* x88613 */ /* x88612 */ /* x88611 */ /* x88610 stalin.sc:7261:249566 */ /* x88601 stalin.sc:7261:249574 */ /* x88600 stalin.sc:7261:249584 */ t67412 = a23050; /* x88599 stalin.sc:7261:249575 */ if (f9766(t67412)==FALSE_TYPE) goto l11422; /* x88603 */ /* x88602 */ goto l11423; l11422: /* x88609 */ /* x88608 */ /* x88607 stalin.sc:7261:249587 */ /* x88605 stalin.sc:7261:249601 */ t67413 = a23050; /* x88606 stalin.sc:7261:249603 */ t67414 = "Improper expression"; /* x88604 stalin.sc:7261:249588 */ f9705(t67413, t67414); l11423: /* x88598 */ /* x88597 stalin.sc:7262:249632 */ /* x88126 stalin.sc:7262:249636 */ /* x88125 stalin.sc:7262:249648 */ /* x88124 stalin.sc:7262:249658 */ t67245 = a23050; /* x88123 stalin.sc:7262:249649 */ a41621 = t67245; /* x300596 stalin.sc:6964:241199 */ /* x300595 stalin.sc:6964:241207 */ t67246 = a41621; /* x300594 stalin.sc:6964:241200 */ t67244 = f9719(t67246); /* x88122 stalin.sc:7262:249637 */ if (f9741(t67244)==FALSE_TYPE) goto l11356; /* x88592 stalin.sc:7263:249664 */ /* x88591 stalin.sc:7263:249670 */ /* x88590 stalin.sc:7263:249680 */ /* x88589 stalin.sc:7263:249690 */ t67410 = a23050; /* x88588 stalin.sc:7263:249681 */ a41619 = t67410; /* x300588 stalin.sc:6964:241199 */ /* x300587 stalin.sc:6964:241207 */ t67411 = a41619; /* x300586 stalin.sc:6964:241200 */ t67407 = f9719(t67411); /* x88587 stalin.sc:7263:249671 */ a41113 = t67407; /* x298564 stalin.sc:6937:240340 */ /* x298563 stalin.sc:6937:240360 */ t67408 = a41113; /* x298562 stalin.sc:6937:240341 */ a42380 = t67408; /* x303018 */ /* x303017 */ t67409 = a42380; /* x303016 */ if (!((t67409.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37556]"); structure_ref_error();} t67248 = t67409.value.structure_type27510->s9; /* x88586 */ a23052 = t67248; /* x88585 */ /* x88130 */ /* x88128 */ t67249 = a23052; /* x88129 */ t67250 = q11; /* x88127 */ t67251.tag = EXTERNAL_SYMBOL_TYPE; t67251.value.external_symbol_type = t67250; if (f26160(t67249, t67251)==FALSE_TYPE) goto l11358; /* x88154 */ /* x88153 */ /* x88152 */ /* x88151 stalin.sc:7265:249710 */ /* x88142 stalin.sc:7265:249718 */ /* x88140 stalin.sc:7265:249721 */ /* x88139 stalin.sc:7265:249732 */ t67404 = a23050; /* x88138 stalin.sc:7265:249722 */ t67402 = f9734(t67404); /* x88141 stalin.sc:7265:249735 */ t67403 = 2; /* x269903 stalin.sc:7265:249719 */ if (!(t67402==t67403)) goto l11419; /* x88144 */ /* x88143 */ goto l11420; l11419: /* x88150 */ /* x88149 */ /* x88148 stalin.sc:7265:249738 */ /* x88146 stalin.sc:7265:249752 */ t67405 = a23050; /* x88147 stalin.sc:7265:249754 */ t67406 = "Improper QUOTE"; /* x88145 stalin.sc:7265:249739 */ f9705(t67405, t67406); l11420: /* x88136 */ /* x88135 stalin.sc:7266:249777 */ /* x88134 stalin.sc:7266:249798 */ /* x88133 stalin.sc:7266:249809 */ t67401 = a23050; /* x88132 stalin.sc:7266:249799 */ t67400 = f9722(t67401); /* x88131 stalin.sc:7266:249778 */ f9896(t67400); return; l11358: /* x88584 */ /* x88158 */ /* x88156 */ t67252 = a23052; /* x88157 */ t67253 = q39; /* x88155 */ t67254.tag = EXTERNAL_SYMBOL_TYPE; t67254.value.external_symbol_type = t67253; if (f26160(t67252, t67254)==FALSE_TYPE) goto l11360; /* x88215 */ /* x88214 */ /* x88213 */ /* x88212 stalin.sc:7269:249885 */ /* x88203 stalin.sc:7269:249893 */ /* x88187 stalin.sc:7269:249898 */ /* x88185 stalin.sc:7269:249902 */ /* x88184 stalin.sc:7269:249913 */ t67391 = a23050; /* x88183 stalin.sc:7269:249903 */ t67389 = f9734(t67391); /* x88186 stalin.sc:7269:249916 */ t67390 = 2; /* x269902 stalin.sc:7269:249899 */ if (!(t67389>=t67390)) goto l11414; /* x88201 */ /* x88192 stalin.sc:7270:249922 */ /* x88191 stalin.sc:7270:249941 */ /* x88190 stalin.sc:7270:249952 */ t67393 = a23050; /* x88189 stalin.sc:7270:249942 */ t67392 = f9722(t67393); /* x88188 stalin.sc:7270:249923 */ if (f9872(t67392)==FALSE_TYPE) goto l11414; /* x88199 */ /* x88198 stalin.sc:7271:249970 */ /* x88197 stalin.sc:7271:249982 */ /* x88196 stalin.sc:7271:249993 */ t67397 = a23050; /* x88195 stalin.sc:7271:249983 */ t67396 = f9722(t67397); /* x88194 stalin.sc:7271:249971 */ t67394 = f9882(t67396); /* x88193 stalin.sc:7271:249960 */ /* MOVE: branching squeezed to general */ if (t67394>=((struct structure_type24753 *)VALUE_OFFSET)) {t67395.tag = STRUCTURE_TYPE24753; t67395.value.structure_type24753 = t67394;} else t67395.tag = (unsigned)t67394; if (f9875(t67395)==FALSE_TYPE) goto l11414; /* x88205 */ /* x88204 */ goto l11415; l11414: /* x88211 */ /* x88210 */ /* x88209 stalin.sc:7272:250004 */ /* x88207 stalin.sc:7272:250018 */ t67398 = a23050; /* x88208 stalin.sc:7272:250020 */ t67399 = "Improper LAMBDA"; /* x88206 stalin.sc:7272:250005 */ f9705(t67398, t67399); l11415: /* x88181 */ /* x88180 stalin.sc:7273:250044 */ /* x88179 stalin.sc:7273:250053 */ /* x88178 stalin.sc:7273:250071 */ t67388 = a23050; /* x88177 stalin.sc:7273:250054 */ t67380 = f18211(t67388); /* x88176 */ a23055 = t67380; /* x88175 stalin.sc:7274:250081 */ /* x88165 stalin.sc:7274:250089 */ /* x88164 stalin.sc:7274:250099 */ /* x88163 stalin.sc:7274:250108 */ /* x88162 stalin.sc:7274:250117 */ t67384 = a23055; /* x88161 stalin.sc:7274:250109 */ a41299 = t67384; /* x299308 stalin.sc:7008:242336 */ /* x299307 stalin.sc:7008:242344 */ t67385 = a41299; /* x299306 stalin.sc:7008:242337 */ t67382 = f9720(t67385); /* x88160 stalin.sc:7274:250100 */ a41298 = t67382; /* x299304 stalin.sc:7008:242336 */ /* x299303 stalin.sc:7008:242344 */ t67383 = a41298; /* x299302 stalin.sc:7008:242337 */ t67381 = f9720(t67383); /* x88159 stalin.sc:7274:250090 */ if (f9739(t67381)==FALSE_TYPE) goto l11412; /* x88167 */ /* x88166 */ return; l11412: /* x88174 */ /* x88173 */ /* x88172 stalin.sc:7275:250128 */ /* x88171 stalin.sc:7275:250140 */ /* x88170 stalin.sc:7275:250150 */ t67387 = a23055; /* x88169 stalin.sc:7275:250141 */ t67386 = f9723(t67387); /* x88168 stalin.sc:7275:250129 */ a23050 = t67386; goto h9919; l11360: /* x88583 */ /* x88219 */ /* x88217 */ t67255 = a23052; /* x88218 */ t67256 = q42; /* x88216 */ t67257.tag = EXTERNAL_SYMBOL_TYPE; t67257.value.external_symbol_type = t67256; if (f26160(t67255, t67257)==FALSE_TYPE) goto l11362; /* x88250 */ /* x88249 */ /* x88248 */ /* x88247 stalin.sc:7277:250172 */ /* x88238 stalin.sc:7277:250180 */ /* x88231 stalin.sc:7277:250185 */ /* x88229 stalin.sc:7277:250188 */ /* x88228 stalin.sc:7277:250199 */ t67375 = a23050; /* x88227 stalin.sc:7277:250189 */ t67373 = f9734(t67375); /* x88230 stalin.sc:7277:250202 */ t67374 = 3; /* x269901 stalin.sc:7277:250186 */ if (!(t67373==t67374)) goto l11408; /* x88236 */ /* x88235 stalin.sc:7277:250217 */ /* x88234 stalin.sc:7277:250228 */ t67377 = a23050; /* x88233 stalin.sc:7277:250218 */ t67376 = f9722(t67377); /* x88232 stalin.sc:7277:250206 */ if (f9741(t67376)==FALSE_TYPE) goto l11408; /* x88240 */ /* x88239 */ goto l11409; l11408: /* x88246 */ /* x88245 */ /* x88244 stalin.sc:7278:250238 */ /* x88242 stalin.sc:7278:250252 */ t67378 = a23050; /* x88243 stalin.sc:7278:250254 */ t67379 = "Improper SET!"; /* x88241 stalin.sc:7278:250239 */ f9705(t67378, t67379); l11409: /* x88225 */ /* x88224 stalin.sc:7279:250276 */ /* x88223 stalin.sc:7279:250288 */ /* x88222 stalin.sc:7279:250298 */ t67372 = a23050; /* x88221 stalin.sc:7279:250289 */ t67371 = f9723(t67372); /* x88220 stalin.sc:7279:250277 */ a23050 = t67371; goto h9919; l11362: /* x88582 */ /* x88254 */ /* x88252 */ t67258 = a23052; /* x88253 */ t67259 = q43; /* x88251 */ t67260.tag = EXTERNAL_SYMBOL_TYPE; t67260.value.external_symbol_type = t67259; if (f26160(t67258, t67260)==FALSE_TYPE) goto l11364; /* x88310 */ /* x88309 */ /* x88308 */ /* x88297 stalin.sc:7281:250316 */ /* x88288 stalin.sc:7281:250324 */ /* x88287 stalin.sc:7281:250328 */ /* x88285 stalin.sc:7281:250331 */ /* x88284 stalin.sc:7281:250342 */ t67361 = a23050; /* x88283 stalin.sc:7281:250332 */ t67359 = f9734(t67361); /* x88286 stalin.sc:7281:250345 */ t67360 = 3; /* x269898 stalin.sc:7281:250329 */ if (t67359==t67360) goto l11403; /* x88279 */ /* x88277 stalin.sc:7281:250351 */ /* x88276 stalin.sc:7281:250362 */ t67364 = a23050; /* x88275 stalin.sc:7281:250352 */ t67362 = f9734(t67364); /* x88278 stalin.sc:7281:250365 */ t67363 = 4; /* x269899 stalin.sc:7281:250349 */ if (!(t67362==t67363)) goto l11404; l11403: /* x88290 */ /* x88289 */ goto l11405; l11404: /* x88296 */ /* x88295 */ /* x88294 stalin.sc:7282:250374 */ /* x88292 stalin.sc:7282:250388 */ t67365 = a23050; /* x88293 stalin.sc:7282:250390 */ t67366 = "Improper IF"; /* x88291 stalin.sc:7282:250375 */ f9705(t67365, t67366); l11405: /* x88302 stalin.sc:7283:250410 */ /* x88301 stalin.sc:7283:250422 */ /* x88300 stalin.sc:7283:250433 */ t67368 = a23050; /* x88299 stalin.sc:7283:250423 */ t67367 = f9722(t67368); /* x88298 stalin.sc:7283:250411 */ f9919(t67367); /* x88307 stalin.sc:7284:250441 */ /* x88306 stalin.sc:7284:250453 */ /* x88305 stalin.sc:7284:250463 */ t67370 = a23050; /* x88304 stalin.sc:7284:250454 */ t67369 = f9723(t67370); /* x88303 stalin.sc:7284:250442 */ f9919(t67369); /* x88271 */ /* x88270 stalin.sc:7285:250471 */ /* x88260 stalin.sc:7285:250477 */ /* x88258 stalin.sc:7285:250480 */ /* x88257 stalin.sc:7285:250491 */ t67356 = a23050; /* x88256 stalin.sc:7285:250481 */ t67354 = f9734(t67356); /* x88259 stalin.sc:7285:250494 */ t67355 = 4; /* x269900 stalin.sc:7285:250478 */ if (!(t67354==t67355)) goto l11402; /* x88267 */ /* x88266 */ /* x88265 stalin.sc:7285:250497 */ /* x88264 stalin.sc:7285:250509 */ /* x88263 stalin.sc:7285:250520 */ t67358 = a23050; /* x88262 stalin.sc:7285:250510 */ t67357 = f9724(t67358); /* x88261 stalin.sc:7285:250498 */ a23050 = t67357; goto h9919; l11402: /* x88269 stalin.sc:7285:250471 */ /* x88268 stalin.sc:7285:250471 */ return; l11364: /* x88581 */ /* x88314 */ /* x88312 */ t67261 = a23052; /* x88313 */ t67262 = q77; /* x88311 */ t67263.tag = EXTERNAL_SYMBOL_TYPE; t67263.value.external_symbol_type = t67262; if (f26160(t67261, t67263)==FALSE_TYPE) goto l11366; /* x88465 */ /* x88464 */ /* x88463 stalin.sc:7288:250612 */ /* x88462 stalin.sc:7288:250622 */ /* x88461 stalin.sc:7288:250633 */ t67353 = a23050; /* x88460 stalin.sc:7288:250623 */ t67301 = f9722(t67353); /* x88459 */ a23061 = t67301; /* x88458 stalin.sc:7289:250643 */ /* x88449 stalin.sc:7289:250651 */ /* x88448 stalin.sc:7289:250655 */ /* x88410 stalin.sc:7289:250660 */ /* x88409 stalin.sc:7289:250664 */ /* x88407 stalin.sc:7289:250672 */ t67302 = a23061; /* x88408 stalin.sc:7289:250675 */ t67303 = q98; /* x88406 stalin.sc:7289:250665 */ t67304.tag = EXTERNAL_SYMBOL_TYPE; t67304.value.external_symbol_type = t67303; if (!(f9745(t67302, t67304)==FALSE_TYPE)) goto l11386; /* x88403 */ /* x88402 stalin.sc:7290:250697 */ /* x88400 stalin.sc:7290:250705 */ t67305 = a23061; /* x88401 stalin.sc:7290:250708 */ t67306 = q99; /* x88399 stalin.sc:7290:250698 */ t67307.tag = EXTERNAL_SYMBOL_TYPE; t67307.value.external_symbol_type = t67306; if (!(f9745(t67305, t67307)==FALSE_TYPE)) goto l11386; /* x88396 */ /* x88394 stalin.sc:7291:250737 */ t67308 = a23061; /* x88395 stalin.sc:7291:250740 */ t67309 = q100; /* x88393 stalin.sc:7291:250730 */ t67310.tag = EXTERNAL_SYMBOL_TYPE; t67310.value.external_symbol_type = t67309; if (f9745(t67308, t67310)==FALSE_TYPE) goto l11385; l11386: /* x88446 */ /* x88416 stalin.sc:7292:250766 */ /* x88414 stalin.sc:7292:250769 */ /* x88413 stalin.sc:7292:250780 */ t67313 = a23050; /* x88412 stalin.sc:7292:250770 */ t67311 = f9734(t67313); /* x88415 stalin.sc:7292:250783 */ t67312 = 4; /* x269891 stalin.sc:7292:250767 */ if (!(t67311==t67312)) goto l11385; /* x88444 */ /* x88421 stalin.sc:7293:250794 */ /* x88420 stalin.sc:7293:250806 */ /* x88419 stalin.sc:7293:250816 */ t67315 = a23050; /* x88418 stalin.sc:7293:250807 */ t67314 = f9723(t67315); /* x88417 stalin.sc:7293:250795 */ if (f9741(t67314)==FALSE_TYPE) goto l11385; /* x88442 */ /* x88426 stalin.sc:7294:250828 */ /* x88425 stalin.sc:7294:250841 */ /* x88424 stalin.sc:7294:250852 */ t67317 = a23050; /* x88423 stalin.sc:7294:250842 */ t67316 = f9724(t67317); /* x88422 stalin.sc:7294:250829 */ if (f9746(t67316)==FALSE_TYPE) goto l11385; /* x88440 */ /* x88431 stalin.sc:7295:250864 */ /* x88430 stalin.sc:7295:250875 */ /* x88429 stalin.sc:7295:250886 */ t67319 = a23050; /* x88428 stalin.sc:7295:250876 */ t67318 = f9724(t67319); /* x88427 stalin.sc:7295:250865 */ if (f9750(t67318)==FALSE_TYPE) goto l11385; /* x88438 */ /* x88437 stalin.sc:7296:250903 */ /* x88436 stalin.sc:7296:250917 */ /* x88435 stalin.sc:7296:250928 */ t67321 = a23050; /* x88434 stalin.sc:7296:250918 */ t67320 = f9724(t67321); /* x88433 stalin.sc:7296:250904 */ if (f9751(t67320)==FALSE_TYPE) goto l11383; l11385: /* x88386 */ /* x88385 stalin.sc:7297:250937 */ /* x88370 stalin.sc:7297:250942 */ /* x88368 stalin.sc:7297:250950 */ t67322 = a23061; /* x88369 stalin.sc:7297:250953 */ t67323 = q101; /* x88367 stalin.sc:7297:250943 */ t67324.tag = EXTERNAL_SYMBOL_TYPE; t67324.value.external_symbol_type = t67323; if (f9745(t67322, t67324)==FALSE_TYPE) goto l11393; /* x88383 */ /* x88376 stalin.sc:7298:250974 */ /* x88374 stalin.sc:7298:250977 */ /* x88373 stalin.sc:7298:250988 */ t67327 = a23050; /* x88372 stalin.sc:7298:250978 */ t67325 = f9734(t67327); /* x88375 stalin.sc:7298:250991 */ t67326 = 3; /* x269892 stalin.sc:7298:250975 */ if (!(t67325==t67326)) goto l11393; /* x88381 */ /* x88380 stalin.sc:7299:251014 */ /* x88379 stalin.sc:7299:251024 */ t67329 = a23050; /* x88378 stalin.sc:7299:251015 */ t67328 = f9723(t67329); /* x88377 stalin.sc:7299:251003 */ if (!(f9741(t67328)==FALSE_TYPE)) goto l11383; l11393: /* x88364 */ /* x88324 stalin.sc:7300:251037 */ /* x88322 stalin.sc:7300:251040 */ /* x88321 stalin.sc:7300:251051 */ t67332 = a23050; /* x88320 stalin.sc:7300:251041 */ t67330 = f9734(t67332); /* x88323 stalin.sc:7300:251054 */ t67331 = 2; /* x269897 stalin.sc:7300:251038 */ if (!(t67330==t67331)) goto l11384; /* x88362 */ /* x88330 stalin.sc:7301:251065 */ /* x88329 stalin.sc:7301:251070 */ /* x88327 stalin.sc:7301:251078 */ t67333 = a23061; /* x88328 stalin.sc:7301:251081 */ t67334 = q98; /* x88326 stalin.sc:7301:251071 */ t67335.tag = EXTERNAL_SYMBOL_TYPE; t67335.value.external_symbol_type = t67334; if (!(f9745(t67333, t67335)==FALSE_TYPE)) goto l11384; /* x88360 */ /* x88336 stalin.sc:7302:251107 */ /* x88335 stalin.sc:7302:251112 */ /* x88333 stalin.sc:7302:251120 */ t67336 = a23061; /* x88334 stalin.sc:7302:251123 */ t67337 = q99; /* x88332 stalin.sc:7302:251113 */ t67338.tag = EXTERNAL_SYMBOL_TYPE; t67338.value.external_symbol_type = t67337; if (!(f9745(t67336, t67338)==FALSE_TYPE)) goto l11384; /* x88358 */ /* x88342 stalin.sc:7303:251148 */ /* x88341 stalin.sc:7303:251153 */ /* x88339 stalin.sc:7303:251161 */ t67339 = a23061; /* x88340 stalin.sc:7303:251164 */ t67340 = q100; /* x88338 stalin.sc:7303:251154 */ t67341.tag = EXTERNAL_SYMBOL_TYPE; t67341.value.external_symbol_type = t67340; if (!(f9745(t67339, t67341)==FALSE_TYPE)) goto l11384; /* x88356 */ /* x88348 stalin.sc:7304:251190 */ /* x88347 stalin.sc:7304:251195 */ /* x88345 stalin.sc:7304:251203 */ t67342 = a23061; /* x88346 stalin.sc:7304:251206 */ t67343 = q101; /* x88344 stalin.sc:7304:251196 */ t67344.tag = EXTERNAL_SYMBOL_TYPE; t67344.value.external_symbol_type = t67343; if (!(f9745(t67342, t67344)==FALSE_TYPE)) goto l11384; /* x88354 */ /* x88352 stalin.sc:7305:251234 */ /* x88351 stalin.sc:7305:251244 */ t67348 = a23061; /* x88350 stalin.sc:7305:251235 */ a41081 = t67348; /* x298436 stalin.sc:6937:240340 */ /* x298435 stalin.sc:6937:240360 */ t67349 = a41081; /* x298434 stalin.sc:6937:240341 */ a42412 = t67349; /* x303146 */ /* x303145 */ t67350 = a42412; /* x303144 */ if (!((t67350.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37588]"); structure_ref_error();} t67345 = t67350.value.structure_type27510->s9; /* x88353 stalin.sc:7306:251255 */ t67346 = a789; /* x88349 stalin.sc:7305:251229 */ /* MOVE: branching squeezed to general */ if (t67346>=((struct structure_type24753 *)VALUE_OFFSET)) {t67347.tag = STRUCTURE_TYPE24753; t67347.value.structure_type24753 = t67346;} else t67347.tag = (unsigned)t67346; if ((f26354(t67345, t67347).tag)==FALSE_TYPE) goto l11384; l11383: /* x88451 */ /* x88450 */ return; l11384: /* x88457 */ /* x88456 */ /* x88455 stalin.sc:7307:251295 */ /* x88453 stalin.sc:7307:251309 */ t67351 = a23050; /* x88454 stalin.sc:7307:251311 */ t67352 = "Improper PRIMITIVE-PROCEDURE"; /* x88452 stalin.sc:7307:251296 */ f9705(t67351, t67352); return; l11366: /* x88580 */ /* x88469 */ /* x88467 */ t67264 = a23052; /* x88468 */ t67265 = q78; /* x88466 */ t67266.tag = EXTERNAL_SYMBOL_TYPE; t67266.value.external_symbol_type = t67265; if (f26160(t67264, t67266)==FALSE_TYPE) goto l11368; /* x88562 */ /* x88561 */ /* x88560 stalin.sc:7309:251374 */ /* x88551 stalin.sc:7309:251382 */ /* x88550 stalin.sc:7309:251386 */ /* x88521 stalin.sc:7310:251394 */ /* x88519 stalin.sc:7310:251397 */ /* x88518 stalin.sc:7310:251408 */ t67275 = a23050; /* x88517 stalin.sc:7310:251398 */ t67273 = f9734(t67275); /* x88520 stalin.sc:7310:251411 */ t67274 = 4; /* x269888 stalin.sc:7310:251395 */ if (!(t67273==t67274)) goto l11373; /* x88548 */ /* x88526 stalin.sc:7311:251417 */ /* x88525 stalin.sc:7311:251427 */ /* x88524 stalin.sc:7311:251438 */ t67277 = a23050; /* x88523 stalin.sc:7311:251428 */ t67276 = f9722(t67277); /* x88522 stalin.sc:7311:251418 */ if (f9766(t67276)==FALSE_TYPE) goto l11373; /* x88546 */ /* x88532 stalin.sc:7312:251445 */ /* x88528 stalin.sc:7312:251455 */ /* x88531 stalin.sc:7312:251485 */ /* x88530 stalin.sc:7312:251496 */ t67280 = a23050; /* x88529 stalin.sc:7312:251486 */ t67278 = f9722(t67280); /* x88527 stalin.sc:7312:251446 */ t67279 = NATIVE_PROCEDURE_TYPE7144; if (f9758(t67279, t67278)==FALSE_TYPE) goto l11373; /* x88544 */ /* x88537 stalin.sc:7313:251503 */ /* x88536 stalin.sc:7313:251531 */ /* x88535 stalin.sc:7313:251541 */ t67282 = a23050; /* x88534 stalin.sc:7313:251532 */ t67281 = f9723(t67282); /* x88533 stalin.sc:7313:251504 */ if (f9808(t67281)==FALSE_TYPE) goto l11373; /* x88542 */ /* x88541 stalin.sc:7314:251560 */ /* x88540 stalin.sc:7314:251571 */ t67284 = a23050; /* x88539 stalin.sc:7314:251561 */ t67283 = f9724(t67284); /* x88538 stalin.sc:7314:251549 */ if (!(f9742(t67283)==FALSE_TYPE)) goto l11371; l11373: /* x88513 */ /* x88477 stalin.sc:7316:251593 */ /* x88475 stalin.sc:7316:251596 */ /* x88474 stalin.sc:7316:251607 */ t67287 = a23050; /* x88473 stalin.sc:7316:251597 */ t67285 = f9734(t67287); /* x88476 stalin.sc:7316:251610 */ t67286 = 5; /* x269889 stalin.sc:7316:251594 */ if (!(t67285==t67286)) goto l11372; /* x88511 */ /* x88482 stalin.sc:7317:251616 */ /* x88481 stalin.sc:7317:251626 */ /* x88480 stalin.sc:7317:251637 */ t67289 = a23050; /* x88479 stalin.sc:7317:251627 */ t67288 = f9722(t67289); /* x88478 stalin.sc:7317:251617 */ if (f9766(t67288)==FALSE_TYPE) goto l11372; /* x88509 */ /* x88488 stalin.sc:7318:251644 */ /* x88484 stalin.sc:7318:251654 */ /* x88487 stalin.sc:7318:251684 */ /* x88486 stalin.sc:7318:251695 */ t67292 = a23050; /* x88485 stalin.sc:7318:251685 */ t67290 = f9722(t67292); /* x88483 stalin.sc:7318:251645 */ t67291 = NATIVE_PROCEDURE_TYPE7144; if (f9758(t67291, t67290)==FALSE_TYPE) goto l11372; /* x88507 */ /* x88493 stalin.sc:7319:251702 */ /* x88492 stalin.sc:7319:251730 */ /* x88491 stalin.sc:7319:251740 */ t67294 = a23050; /* x88490 stalin.sc:7319:251731 */ t67293 = f9723(t67294); /* x88489 stalin.sc:7319:251703 */ if (f9808(t67293)==FALSE_TYPE) goto l11372; /* x88505 */ /* x88498 stalin.sc:7320:251747 */ /* x88497 stalin.sc:7320:251759 */ /* x88496 stalin.sc:7320:251770 */ t67296 = a23050; /* x88495 stalin.sc:7320:251760 */ t67295 = f9724(t67296); /* x88494 stalin.sc:7320:251748 */ if (f9742(t67295)==FALSE_TYPE) goto l11372; /* x88503 */ /* x88502 stalin.sc:7321:251789 */ /* x88501 stalin.sc:7321:251799 */ t67298 = a23050; /* x88500 stalin.sc:7321:251790 */ t67297 = f9725(t67298); /* x88499 stalin.sc:7321:251778 */ if (f9742(t67297)==FALSE_TYPE) goto l11372; l11371: /* x88553 */ /* x88552 */ return; l11372: /* x88559 */ /* x88558 */ /* x88557 stalin.sc:7322:251810 */ /* x88555 stalin.sc:7322:251824 */ t67299 = a23050; /* x88556 stalin.sc:7322:251826 */ t67300 = "Improper FOREIGN-PROCEDURE"; /* x88554 stalin.sc:7322:251811 */ f9705(t67299, t67300); return; l11368: /* x88579 */ /* x88578 */ /* x88577 stalin.sc:7323:251867 */ /* x88567 stalin.sc:7323:251871 */ /* x88566 stalin.sc:7323:251879 */ /* x88565 stalin.sc:7323:251889 */ t67268 = a23050; /* x88564 stalin.sc:7323:251880 */ a41618 = t67268; /* x300584 stalin.sc:6964:241199 */ /* x300583 stalin.sc:6964:241207 */ t67269 = a41618; /* x300582 stalin.sc:6964:241200 */ t67267 = f9719(t67269); /* x88563 stalin.sc:7323:251872 */ if ((f9713(t67267).tag)==FALSE_TYPE) goto l11370; /* x88572 stalin.sc:7324:251899 */ /* x88571 stalin.sc:7324:251911 */ /* x88570 stalin.sc:7324:251925 */ t67272 = a23050; /* x88569 stalin.sc:7324:251912 */ t67271 = f9715(t67272); /* x88568 stalin.sc:7324:251900 */ /* MOVE: branching squeezed to general */ if (t67271>=((struct structure_type27510 *)VALUE_OFFSET)) {a23050.tag = STRUCTURE_TYPE27510; a23050.value.structure_type27510 = t67271;} else a23050.tag = (unsigned)t67271; goto h9919; l11370: /* x88576 stalin.sc:7325:251935 */ /* x88574 stalin.sc:7325:251948 */ /* x88575 stalin.sc:7325:251959 */ t67270 = a23050; /* x88573 stalin.sc:7325:251936 */ f9762(t67270); return; l11356: /* x88596 stalin.sc:7326:251967 */ /* x88594 stalin.sc:7326:251980 */ /* x88595 stalin.sc:7326:251991 */ t67247 = a23050; /* x88593 stalin.sc:7326:251968 */ f9762(t67247); return; l11352: /* x88625 */ /* x88616 stalin.sc:7327:252001 */ /* x88615 stalin.sc:7327:252013 */ t67242 = a23050; /* x88614 stalin.sc:7327:252002 */ if (f9741(t67242)==FALSE_TYPE) goto l11354; /* x88619 */ /* x88618 */ /* x88617 stalin.sc:7327:252016 */ return; l11354: /* x88624 */ /* x88623 */ /* x88622 stalin.sc:7328:252030 */ /* x88621 stalin.sc:7328:252051 */ t67243 = a23050; /* x88620 stalin.sc:7328:252031 */ f9896(t67243); return;} /* SYMBOLS-IN-CONSTANT[9896] */ void f9896(struct w49 a23048) {struct w49 a22954; /* S */ struct w49 a41070; /* S */ struct w49 a41071; /* S */ struct w49 a41072; /* S */ struct w49 a42421; /* S */ struct w49 a42422; /* S */ struct w49 a42423; /* S */ struct w49 t67417; struct w49 t67418; struct w49 t67419; struct w49 t67420; struct w49 t67421; struct w49 t67422; struct w49 t67423; struct w49 t67424; struct w49 t67425; struct w49 t67426; struct w49 t67427; struct w49 t67428; struct w49 t67429; struct w49 t67430; struct w49 t67431; struct w49 t67432; char *t67433; struct w49 t67434; struct w49 t67435; unsigned t67436; struct w49 t67437; struct w49 t67438; struct w49 t67439; struct w49 t67440; struct w49 t67441; struct w49 t67442; struct w49 t67443; struct w49 t67444; struct w49 t67445; struct structure_type24753 *t67446; struct w49 t67447; struct w49 t67448; struct w49 t67449; struct w49 t67450; struct w49 t67451; struct structure_type24753 *t67452; struct w49 t67453; struct w49 t67454; struct w49 t67455; struct w49 t67456; struct w49 t67457; char *t67458; struct w49 t67459; struct w49 t67460; char *t67461; struct w49 t67462; struct w49 t67463; char *t67464; h9896: /* x88107 stalin.sc:7229:248484 */ /* x87949 stalin.sc:7230:248495 */ /* x87948 stalin.sc:7230:248505 */ t67417 = a23048; /* x87947 stalin.sc:7230:248496 */ if (f9739(t67417)==FALSE_TYPE) goto l11425; /* x87952 */ /* x87951 */ /* x87950 stalin.sc:7230:248508 */ return; l11425: /* x88106 */ /* x87956 stalin.sc:7231:248517 */ /* x87954 stalin.sc:7231:248525 */ t67418 = a23048; /* x87955 stalin.sc:7231:248527 */ /* x87953 stalin.sc:7231:248518 */ t67419.tag = TRUE_TYPE; if (f9745(t67418, t67419)==FALSE_TYPE) goto l11427; /* x87959 */ /* x87958 */ /* x87957 stalin.sc:7231:248531 */ return; l11427: /* x88105 */ /* x87963 stalin.sc:7232:248540 */ /* x87961 stalin.sc:7232:248548 */ t67420 = a23048; /* x87962 stalin.sc:7232:248550 */ /* x87960 stalin.sc:7232:248541 */ t67421.tag = FALSE_TYPE; if (f9745(t67420, t67421)==FALSE_TYPE) goto l11429; /* x87966 */ /* x87965 */ /* x87964 stalin.sc:7232:248554 */ return; l11429: /* x88104 */ /* x87969 stalin.sc:7233:248563 */ /* x87968 stalin.sc:7233:248573 */ t67422 = a23048; /* x87967 stalin.sc:7233:248564 */ if (f9744(t67422)==FALSE_TYPE) goto l11431; /* x87972 */ /* x87971 */ /* x87970 stalin.sc:7233:248576 */ return; l11431: /* x88103 */ /* x87980 stalin.sc:7234:248585 */ /* x87975 stalin.sc:7234:248590 */ /* x87974 stalin.sc:7234:248603 */ t67423 = a23048; /* x87973 stalin.sc:7234:248591 */ if (f9746(t67423)==FALSE_TYPE) goto l11433; /* x87978 */ /* x87977 stalin.sc:7234:248617 */ t67424 = a23048; /* x87976 stalin.sc:7234:248607 */ if (f9750(t67424)==FALSE_TYPE) goto l11433; /* x87983 */ /* x87982 */ /* x87981 stalin.sc:7234:248621 */ return; l11433: /* x88102 */ /* x87986 stalin.sc:7235:248630 */ /* x87985 stalin.sc:7235:248644 */ t67425 = a23048; /* x87984 stalin.sc:7235:248631 */ if (f9747(t67425)==FALSE_TYPE) goto l11436; /* x88000 */ /* x87999 */ /* x87998 stalin.sc:7236:248652 */ /* x87989 stalin.sc:7236:248658 */ /* x87988 stalin.sc:7236:248669 */ t67462 = a23048; /* x87987 stalin.sc:7236:248659 */ if (f9750(t67462)==FALSE_TYPE) goto l11456; /* x87995 */ /* x87994 */ /* x87993 stalin.sc:7237:248678 */ /* x87991 stalin.sc:7238:248699 */ t67463 = a23048; /* x87992 stalin.sc:7238:248701 */ t67464 = "Cannot (yet) compile exact rational noninteger constants"; /* x87990 stalin.sc:7237:248679 */ f9705(t67463, t67464); return; l11456: /* x87997 stalin.sc:7236:248652 */ /* x87996 stalin.sc:7236:248652 */ return; l11436: /* x88101 */ /* x88003 stalin.sc:7239:248768 */ /* x88002 stalin.sc:7239:248778 */ t67426 = a23048; /* x88001 stalin.sc:7239:248769 */ if (f9748(t67426)==FALSE_TYPE) goto l11438; /* x88017 */ /* x88016 */ /* x88015 stalin.sc:7240:248786 */ /* x88006 stalin.sc:7240:248792 */ /* x88005 stalin.sc:7240:248803 */ t67459 = a23048; /* x88004 stalin.sc:7240:248793 */ if (f9750(t67459)==FALSE_TYPE) goto l11454; /* x88012 */ /* x88011 */ /* x88010 stalin.sc:7241:248812 */ /* x88008 stalin.sc:7242:248833 */ t67460 = a23048; /* x88009 stalin.sc:7242:248835 */ t67461 = "Cannot (yet) compile exact real nonrational constants"; /* x88007 stalin.sc:7241:248813 */ f9705(t67460, t67461); return; l11454: /* x88014 stalin.sc:7240:248786 */ /* x88013 stalin.sc:7240:248786 */ return; l11438: /* x88100 */ /* x88020 stalin.sc:7243:248899 */ /* x88019 stalin.sc:7243:248912 */ t67427 = a23048; /* x88018 stalin.sc:7243:248900 */ if (f9749(t67427)==FALSE_TYPE) goto l11440; /* x88034 */ /* x88033 */ /* x88032 stalin.sc:7244:248920 */ /* x88023 stalin.sc:7244:248926 */ /* x88022 stalin.sc:7244:248937 */ t67456 = a23048; /* x88021 stalin.sc:7244:248927 */ if (f9750(t67456)==FALSE_TYPE) goto l11452; /* x88029 */ /* x88028 */ /* x88027 stalin.sc:7245:248946 */ /* x88025 stalin.sc:7246:248967 */ t67457 = a23048; /* x88026 stalin.sc:7246:248969 */ t67458 = "Cannot (yet) compile exact complex nonreal constants"; /* x88024 stalin.sc:7245:248947 */ f9705(t67457, t67458); return; l11452: /* x88031 stalin.sc:7244:248920 */ /* x88030 stalin.sc:7244:248920 */ return; l11440: /* x88099 */ /* x88037 stalin.sc:7247:249032 */ /* x88036 stalin.sc:7247:249044 */ t67428 = a23048; /* x88035 stalin.sc:7247:249033 */ if (f9742(t67428)==FALSE_TYPE) goto l11442; /* x88040 */ /* x88039 */ /* x88038 stalin.sc:7247:249047 */ return; l11442: /* x88098 */ /* x88043 stalin.sc:7248:249056 */ /* x88042 stalin.sc:7248:249068 */ t67429 = a23048; /* x88041 stalin.sc:7248:249057 */ if (f9741(t67429)==FALSE_TYPE) goto l11444; /* x88063 */ /* x88062 */ /* x88061 stalin.sc:7249:249076 */ /* x88049 stalin.sc:7249:249084 */ /* x88047 stalin.sc:7249:249090 */ /* x88046 stalin.sc:7249:249100 */ t67448 = a23048; /* x88045 stalin.sc:7249:249091 */ a41071 = t67448; /* x298396 stalin.sc:6937:240340 */ /* x298395 stalin.sc:6937:240360 */ t67449 = a41071; /* x298394 stalin.sc:6937:240341 */ a42422 = t67449; /* x303186 */ /* x303185 */ t67450 = a42422; /* x303184 */ if (!((t67450.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37598]"); structure_ref_error();} t67445 = t67450.value.structure_type27510->s9; /* x88048 stalin.sc:7249:249103 */ t67446 = a23042; /* x88044 stalin.sc:7249:249085 */ /* MOVE: branching squeezed to general */ if (t67446>=((struct structure_type24753 *)VALUE_OFFSET)) {t67447.tag = STRUCTURE_TYPE24753; t67447.value.structure_type24753 = t67446;} else t67447.tag = (unsigned)t67446; if ((f26351(t67445, t67447).tag)==FALSE_TYPE) goto l11450; /* x88051 */ /* x88050 */ return; l11450: /* x88060 */ /* x88059 */ /* x88058 stalin.sc:7249:249107 */ /* x88057 stalin.sc:7249:249116 */ /* x88055 stalin.sc:7249:249122 */ /* x88054 stalin.sc:7249:249132 */ t67453 = a23048; /* x88053 stalin.sc:7249:249123 */ a41070 = t67453; /* x298392 stalin.sc:6937:240340 */ /* x298391 stalin.sc:6937:240360 */ t67454 = a41070; /* x298390 stalin.sc:6937:240341 */ a42423 = t67454; /* x303190 */ /* x303189 */ t67455 = a42423; /* x303188 */ if (!((t67455.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37599]"); structure_ref_error();} t67451 = t67455.value.structure_type27510->s9; /* x88056 stalin.sc:7249:249135 */ t67452 = a23042; /* x269904 stalin.sc:7249:249117 */ a23042 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a23042==NULL) {backtrace("stalin.sc", 7249, 249116); out_of_memory_error();} a23042->s0 = t67451; /* MOVE: branching squeezed to general */ if (t67452>=((struct structure_type24753 *)VALUE_OFFSET)) {a23042->s1.tag = STRUCTURE_TYPE24753; a23042->s1.value.structure_type24753 = t67452;} else a23042->s1.tag = (unsigned)t67452; return; l11444: /* x88097 */ /* x88066 stalin.sc:7250:249147 */ /* x88065 stalin.sc:7250:249157 */ t67430 = a23048; /* x88064 stalin.sc:7250:249148 */ if (f9740(t67430)==FALSE_TYPE) goto l11446; /* x88080 */ /* x88079 */ /* x88078 */ /* x88077 stalin.sc:7251:249165 */ /* x88076 stalin.sc:7251:249186 */ /* x88075 stalin.sc:7251:249194 */ t67444 = a23048; /* x88074 stalin.sc:7251:249187 */ t67443 = f9719(t67444); /* x88073 stalin.sc:7251:249166 */ f9896(t67443); /* x88072 */ /* x88071 stalin.sc:7252:249203 */ /* x88070 stalin.sc:7252:249224 */ /* x88069 stalin.sc:7252:249232 */ t67442 = a23048; /* x88068 stalin.sc:7252:249225 */ t67441 = f9720(t67442); /* x88067 stalin.sc:7252:249204 */ a23048 = t67441; goto h9896; l11446: /* x88096 */ /* x88083 stalin.sc:7253:249242 */ /* x88082 stalin.sc:7253:249254 */ t67431 = a23048; /* x88081 stalin.sc:7253:249243 */ if (f9743(t67431)==FALSE_TYPE) goto l11448; /* x88089 */ /* x88088 */ /* x88087 stalin.sc:7253:249257 */ /* x88085 stalin.sc:7253:249277 */ /* x88086 stalin.sc:7253:249297 */ t67434 = a23048; /* x88084 stalin.sc:7253:249258 */ a22954 = t67434; /* x86859 stalin.sc:7070:243863 */ /* x86858 stalin.sc:7070:243882 */ /* x86857 stalin.sc:7070:243892 */ t67438 = a22954; /* x86856 stalin.sc:7070:243883 */ a41072 = t67438; /* x298400 stalin.sc:6937:240340 */ /* x298399 stalin.sc:6937:240360 */ t67439 = a41072; /* x298398 stalin.sc:6937:240341 */ a42421 = t67439; /* x303182 */ /* x303181 */ t67440 = a42421; /* x303180 */ if (!((t67440.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37597]"); structure_ref_error();} t67435 = t67440.value.structure_type27510->s9; /* x86855 stalin.sc:7070:243880 */ /* x86854 stalin.sc:7070:243864 */ t67436 = (unsigned)NATIVE_PROCEDURE_TYPE14797; t67437 = t67435; f1141(t67436, t67437); return; l11448: /* x88095 */ /* x88094 */ /* x88093 stalin.sc:7256:249402 */ /* x88091 stalin.sc:7256:249416 */ t67432 = a23048; /* x88092 stalin.sc:7256:249418 */ t67433 = "Unrecognized constant type"; /* x88090 stalin.sc:7256:249403 */ f9705(t67432, t67433); return;} /* PARAMETERS->VARIABLES[9887] */ unsigned f9887(struct w49 a23040) {unsigned r9887; struct w49 t67465; struct w49 t67466; struct w49 t67467; char *t67468; struct w49 t67469; struct structure_type27692 *t67470; struct structure_type27692 *t67471; unsigned t67472; struct w49 t67473; struct w49 t67474; struct w49 t67475; struct w49 t67476; /* x87942 stalin.sc:7219:248228 */ /* x87907 stalin.sc:7220:248237 */ /* x87906 stalin.sc:7220:248247 */ t67465 = a23040; /* x87905 stalin.sc:7220:248238 */ if (f9739(t67465)==FALSE_TYPE) goto l11458; /* x87910 */ /* x87909 */ /* x87908 stalin.sc:7220:248250 */ return (unsigned)NULL_TYPE; l11458: /* x87941 */ /* x87913 stalin.sc:7221:248258 */ /* x87912 stalin.sc:7221:248268 */ t67466 = a23040; /* x87911 stalin.sc:7221:248259 */ if (f9740(t67466)==FALSE_TYPE) goto l11460; /* x87927 */ /* x87926 */ /* x87925 stalin.sc:7222:248274 */ /* x87919 stalin.sc:7222:248280 */ /* x87918 stalin.sc:7222:248297 */ /* x87917 stalin.sc:7222:248305 */ t67474 = a23040; /* x87916 stalin.sc:7222:248298 */ t67473 = f9719(t67474); /* x87915 stalin.sc:7222:248281 */ t67471 = f8188(t67473); /* x87924 stalin.sc:7222:248309 */ /* x87923 stalin.sc:7222:248332 */ /* x87922 stalin.sc:7222:248340 */ t67476 = a23040; /* x87921 stalin.sc:7222:248333 */ t67475 = f9720(t67476); /* x87920 stalin.sc:7222:248310 */ t67472 = f9887(t67475); /* x269905 stalin.sc:7222:248275 */ r9887 = ((unsigned)((struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753))))+1; if (((struct structure_type24753 *)(r9887-1))==NULL) {backtrace("stalin.sc", 7222, 248274); out_of_memory_error();} ((struct structure_type24753 *)(r9887-1))->s0.tag = STRUCTURE_TYPE27692; ((struct structure_type24753 *)(r9887-1))->s0.value.structure_type27692 = t67471; /* MOVE: dispatching squished to general */ if (t67472==NULL_TYPE) ((struct structure_type24753 *)(r9887-1))->s1.tag = (unsigned)t67472; else {if ((t67472&3)==1) {((struct structure_type24753 *)(r9887-1))->s1.tag = STRUCTURE_TYPE24753; ((struct structure_type24753 *)(r9887-1))->s1.value.structure_type24753 = (struct structure_type24753 *)(t67472-1);} else {((struct structure_type24753 *)(r9887-1))->s1.tag = STRUCTURE_TYPE27692; ((struct structure_type24753 *)(r9887-1))->s1.value.structure_type27692 = (struct structure_type27692 *)t67472;}} return r9887; l11460: /* x87940 */ /* x87930 stalin.sc:7223:248349 */ /* x87929 stalin.sc:7223:248361 */ t67467 = a23040; /* x87928 stalin.sc:7223:248350 */ if (f9741(t67467)==FALSE_TYPE) goto l11462; /* x87935 */ /* x87934 */ /* x87933 stalin.sc:7223:248364 */ /* x87932 stalin.sc:7223:248381 */ t67469 = a23040; /* x87931 stalin.sc:7223:248365 */ t67470 = f8188(t67469); return (unsigned)t67470; l11462: /* x87939 */ /* x87938 */ /* x87937 stalin.sc:7224:248393 */ /* x87936 stalin.sc:7224:248394 */ /* x294993 QobiScheme.sc:166:5314 */ /* x294992 QobiScheme.sc:166:5321 */ t67468 = "This shouldn\'t happen"; /* x294991 QobiScheme.sc:166:5315 */ stalin_panic(t67468);} /* PARAMETERS[9882] */ struct structure_type24753 *f9882(struct w49 a23039) {struct structure_type24753 *r9882; struct structure_type24753 *a35244; /* OBJS */ struct w49 a41079; /* S */ struct w49 a41080; /* S */ struct w49 a42413; /* S */ struct w49 a42414; /* S */ struct w49 t67477; struct w49 t67478; struct w49 t67479; char *t67480; struct w49 t67481; struct w49 t67482; struct w49 t67483; struct w49 t67484; struct w49 t67485; struct structure_type24753 *t67486; struct w49 t67487; struct w49 t67488; struct w49 t67489; struct w49 t67490; struct w49 t67491; struct w49 t67492; /* x87902 stalin.sc:7213:248022 */ /* x87865 stalin.sc:7213:248029 */ /* x87864 stalin.sc:7213:248039 */ t67477 = a23039; /* x87863 stalin.sc:7213:248030 */ if (f9739(t67477)==FALSE_TYPE) goto l11464; /* x87868 */ /* x87867 */ /* x87866 stalin.sc:7213:248042 */ return (struct structure_type24753 *)NULL_TYPE; l11464: /* x87901 */ /* x87871 stalin.sc:7214:248055 */ /* x87870 stalin.sc:7214:248065 */ t67478 = a23039; /* x87869 stalin.sc:7214:248056 */ if (f9740(t67478)==FALSE_TYPE) goto l11466; /* x87885 */ /* x87884 */ /* x87883 stalin.sc:7214:248068 */ /* x87877 stalin.sc:7214:248074 */ /* x87876 stalin.sc:7214:248084 */ /* x87875 stalin.sc:7214:248092 */ t67490 = a23039; /* x87874 stalin.sc:7214:248085 */ t67487 = f9719(t67490); /* x87873 stalin.sc:7214:248075 */ a41079 = t67487; /* x298428 stalin.sc:6937:240340 */ /* x298427 stalin.sc:6937:240360 */ t67488 = a41079; /* x298426 stalin.sc:6937:240341 */ a42414 = t67488; /* x303154 */ /* x303153 */ t67489 = a42414; /* x303152 */ if (!((t67489.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37590]"); structure_ref_error();} t67485 = t67489.value.structure_type27510->s9; /* x87882 stalin.sc:7214:248096 */ /* x87881 stalin.sc:7214:248108 */ /* x87880 stalin.sc:7214:248116 */ t67492 = a23039; /* x87879 stalin.sc:7214:248109 */ t67491 = f9720(t67492); /* x87878 stalin.sc:7214:248097 */ t67486 = f9882(t67491); /* x269906 stalin.sc:7214:248069 */ r9882 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r9882==NULL) {backtrace("stalin.sc", 7214, 248068); out_of_memory_error();} r9882->s0 = t67485; /* MOVE: branching squeezed to general */ if (t67486>=((struct structure_type24753 *)VALUE_OFFSET)) {r9882->s1.tag = STRUCTURE_TYPE24753; r9882->s1.value.structure_type24753 = t67486;} else r9882->s1.tag = (unsigned)t67486; return r9882; l11466: /* x87900 */ /* x87888 stalin.sc:7215:248130 */ /* x87887 stalin.sc:7215:248142 */ t67479 = a23039; /* x87886 stalin.sc:7215:248131 */ if (f9741(t67479)==FALSE_TYPE) goto l11468; /* x87895 */ /* x87894 */ /* x87893 stalin.sc:7215:248145 */ /* x87892 stalin.sc:7215:248151 */ /* x87891 stalin.sc:7215:248161 */ t67482 = a23039; /* x87890 stalin.sc:7215:248152 */ a41080 = t67482; /* x298432 stalin.sc:6937:240340 */ /* x298431 stalin.sc:6937:240360 */ t67483 = a41080; /* x298430 stalin.sc:6937:240341 */ a42413 = t67483; /* x303150 */ /* x303149 */ t67484 = a42413; /* x303148 */ if (!((t67484.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37589]"); structure_ref_error();} t67481 = t67484.value.structure_type27510->s9; /* x87889 stalin.sc:7215:248146 */ a35244 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35244==NULL) {backtrace("stalin.sc", 7215, 248145); out_of_memory_error();} a35244->s0 = t67481; a35244->s1.tag = NULL_TYPE; /* x272495 */ return a35244; l11468: /* x87899 */ /* x87898 */ /* x87897 stalin.sc:7216:248179 */ /* x87896 stalin.sc:7216:248180 */ /* x297485 QobiScheme.sc:166:5314 */ /* x297484 QobiScheme.sc:166:5321 */ t67480 = "This shouldn\'t happen"; /* x297483 QobiScheme.sc:166:5315 */ stalin_panic(t67480);} /* DISJOINT?[9875] */ unsigned f9875(struct w49 a23033) {struct w49 a23037; /* QS1 */ struct w49 a35606; /* PAIR */ struct w49 a35607; /* PAIR */ struct w49 a35608; /* PAIR */ struct w49 a36195; /* PAIR */ struct w49 a36196; /* PAIR */ struct w49 t67493; struct w49 t67494; struct w49 t67495; struct w49 t67496; struct w49 t67497; struct w49 t67498; struct w49 t67499; struct w49 t67500; struct w49 t67501; struct w49 t67502; struct w49 t67503; struct w49 t67504; struct w49 t67505; struct w49 t67506; struct w49 t67507; struct w49 t67508; struct w49 t67509; h9875: /* x87860 stalin.sc:7206:247825 */ /* x87860 stalin.sc:7206:247825 */ /* x87859 stalin.sc:7206:247829 */ /* x87858 stalin.sc:7206:247836 */ t67493 = a23033; /* x269907 stalin.sc:7206:247830 */ if ((t67493.tag)==NULL_TYPE) goto l11469; /* x87854 */ /* x87847 stalin.sc:7207:247850 */ /* x87846 stalin.sc:7207:247867 */ /* x87845 stalin.sc:7207:247873 */ t67505 = a23033; /* x87844 stalin.sc:7207:247868 */ a35608 = t67505; /* x273789 */ /* x273788 */ t67506 = a35608; /* x273787 */ if (!((t67506.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29757]"); structure_ref_error();} t67494 = t67506.value.structure_type24753->s1; /* x87843 */ /* x87842 */ /* x87841 */ /* x87840 */ /* x87839 */ /* x87838 */ /* x87837 */ /* x87811 */ /* x87810 stalin.sc:7207:247855 */ a23037 = t67494; h9879: /* x87836 stalin.sc:7208:247883 */ /* x87835 stalin.sc:7208:247887 */ /* x87834 stalin.sc:7208:247894 */ t67495 = a23037; /* x269908 stalin.sc:7208:247888 */ if ((t67495.tag)==NULL_TYPE) goto l11473; /* x87830 */ /* x87823 stalin.sc:7209:247912 */ /* x87822 stalin.sc:7209:247917 */ /* x87818 stalin.sc:7209:247922 */ /* x87817 stalin.sc:7209:247929 */ t67498 = a23033; /* x87816 stalin.sc:7209:247923 */ a36195 = t67498; /* x276137 */ /* x276136 */ t67499 = a36195; /* x276135 */ if (!((t67499.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30344]"); structure_ref_error();} t67496 = t67499.value.structure_type24753->s0; /* x87821 stalin.sc:7209:247933 */ /* x87820 stalin.sc:7209:247940 */ t67500 = a23037; /* x87819 stalin.sc:7209:247934 */ a36196 = t67500; /* x276141 */ /* x276140 */ t67501 = a36196; /* x276139 */ if (!((t67501.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30345]"); structure_ref_error();} t67497 = t67501.value.structure_type24753->s0; /* x269909 stalin.sc:7209:247918 */ /* EQ: dispatching general to general */ if ((t67496.tag)==(t67497.tag)) switch (t67496.tag) {case FIXNUM_TYPE: if ((t67496.value.fixnum_type)==(t67497.value.fixnum_type)) goto l11470; break; case FLONUM_TYPE: if ((t67496.value.flonum_type)==(t67497.value.flonum_type)) goto l11470; break; case INPUT_PORT_TYPE: if ((t67496.value.input_port_type)==(t67497.value.input_port_type)) goto l11470; break; case OUTPUT_PORT_TYPE: if ((t67496.value.output_port_type)==(t67497.value.output_port_type)) goto l11470; break; case NATIVE_PROCEDURE_TYPE15963: if ((t67496.value.native_procedure_type15963)==(t67497.value.native_procedure_type15963)) goto l11470; break; case NATIVE_PROCEDURE_TYPE19067: if ((t67496.value.native_procedure_type19067)==(t67497.value.native_procedure_type19067)) goto l11470; break; case NATIVE_PROCEDURE_TYPE19068: if ((t67496.value.native_procedure_type19068)==(t67497.value.native_procedure_type19068)) goto l11470; break; case NATIVE_PROCEDURE_TYPE22459: if ((t67496.value.native_procedure_type22459)==(t67497.value.native_procedure_type22459)) goto l11470; break; case STRUCTURE_TYPE24753: if ((t67496.value.structure_type24753)==(t67497.value.structure_type24753)) goto l11470; break; case STRUCTURE_TYPE24757: if ((t67496.value.structure_type24757)==(t67497.value.structure_type24757)) goto l11470; break; case STRUCTURE_TYPE27501: if ((t67496.value.structure_type27501)==(t67497.value.structure_type27501)) goto l11470; break; case STRUCTURE_TYPE27510: if ((t67496.value.structure_type27510)==(t67497.value.structure_type27510)) goto l11470; break; case STRUCTURE_TYPE27621: if ((t67496.value.structure_type27621)==(t67497.value.structure_type27621)) goto l11470; break; case STRUCTURE_TYPE27650: if ((t67496.value.structure_type27650)==(t67497.value.structure_type27650)) goto l11470; break; case STRUCTURE_TYPE27669: if ((t67496.value.structure_type27669)==(t67497.value.structure_type27669)) goto l11470; break; case STRUCTURE_TYPE27673: if ((t67496.value.structure_type27673)==(t67497.value.structure_type27673)) goto l11470; break; case STRUCTURE_TYPE27692: if ((t67496.value.structure_type27692)==(t67497.value.structure_type27692)) goto l11470; break; case STRUCTURE_TYPE27694: if ((t67496.value.structure_type27694)==(t67497.value.structure_type27694)) goto l11470; break; case STRUCTURE_TYPE27698: if ((t67496.value.structure_type27698)==(t67497.value.structure_type27698)) goto l11470; break; case STRUCTURE_TYPE27745: if ((t67496.value.structure_type27745)==(t67497.value.structure_type27745)) goto l11470; break; case STRUCTURE_TYPE27747: if ((t67496.value.structure_type27747)==(t67497.value.structure_type27747)) goto l11470; break; case STRUCTURE_TYPE27750: if ((t67496.value.structure_type27750)==(t67497.value.structure_type27750)) goto l11470; break; case STRUCTURE_TYPE27753: if ((t67496.value.structure_type27753)==(t67497.value.structure_type27753)) goto l11470; break; case STRUCTURE_TYPE27756: if ((t67496.value.structure_type27756)==(t67497.value.structure_type27756)) goto l11470; break; case STRUCTURE_TYPE27761: if ((t67496.value.structure_type27761)==(t67497.value.structure_type27761)) goto l11470; break; case STRUCTURE_TYPE27769: if ((t67496.value.structure_type27769)==(t67497.value.structure_type27769)) goto l11470; break; case STRUCTURE_TYPE27776: if ((t67496.value.structure_type27776)==(t67497.value.structure_type27776)) goto l11470; break; case STRUCTURE_TYPE27779: if ((t67496.value.structure_type27779)==(t67497.value.structure_type27779)) goto l11470; break; case STRUCTURE_TYPE27858: if ((t67496.value.structure_type27858)==(t67497.value.structure_type27858)) goto l11470; break; case STRING_TYPE: if ((t67496.value.string_type)==(t67497.value.string_type)) goto l11470; break; case HEADED_VECTOR_TYPE27896: if ((t67496.value.headed_vector_type27896)==(t67497.value.headed_vector_type27896)) goto l11470; break; case EXTERNAL_SYMBOL_TYPE: if ((t67496.value.external_symbol_type)==(t67497.value.external_symbol_type)) goto l11470; break; case STRUCTURE_TYPE27908: if ((t67496.value.structure_type27908)==(t67497.value.structure_type27908)) goto l11470; break; default: goto l11470;} /* x87828 */ /* x87827 stalin.sc:7209:247954 */ /* x87826 stalin.sc:7209:247960 */ t67503 = a23037; /* x87825 stalin.sc:7209:247955 */ a35607 = t67503; /* x273785 */ /* x273784 */ t67504 = a35607; /* x273783 */ if (!((t67504.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29756]"); structure_ref_error();} t67502 = t67504.value.structure_type24753->s1; /* x87824 stalin.sc:7209:247948 */ a23037 = t67502; goto h9879; l11473: /* x87852 */ /* x87851 stalin.sc:7210:247983 */ /* x87850 stalin.sc:7210:247989 */ t67508 = a23033; /* x87849 stalin.sc:7210:247984 */ a35606 = t67508; /* x273781 */ /* x273780 */ t67509 = a35606; /* x273779 */ if (!((t67509.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29755]"); structure_ref_error();} t67507 = t67509.value.structure_type24753->s1; /* x87848 stalin.sc:7210:247973 */ a23033 = t67507; goto h9875; l11469: return TRUE_TYPE; l11470: return FALSE_TYPE;} /* VALID-PARAMETERS?[9872] */ unsigned f9872(struct w49 a23030) {struct w49 t67510; struct w49 t67511; struct w49 t67512; struct w49 t67513; struct w49 t67514; struct w49 t67515; struct w49 t67516; /* x87805 stalin.sc:7199:247664 */ /* x87805 stalin.sc:7199:247664 */ /* x87804 stalin.sc:7199:247668 */ /* x87790 stalin.sc:7199:247673 */ /* x87789 stalin.sc:7199:247683 */ t67510 = a23030; /* x87788 stalin.sc:7199:247674 */ if (f9740(t67510)==FALSE_TYPE) goto l11479; /* x87802 */ /* x87795 stalin.sc:7200:247689 */ /* x87794 stalin.sc:7200:247707 */ /* x87793 stalin.sc:7200:247715 */ t67512 = a23030; /* x87792 stalin.sc:7200:247708 */ t67511 = f9719(t67512); /* x87791 stalin.sc:7200:247690 */ if (f9871(t67511)==FALSE_TYPE) goto l11479; /* x87800 */ /* x87799 stalin.sc:7201:247741 */ /* x87798 stalin.sc:7201:247749 */ t67514 = a23030; /* x87797 stalin.sc:7201:247742 */ t67513 = f9720(t67514); /* x87796 stalin.sc:7201:247723 */ if (!(f9872(t67513)==FALSE_TYPE)) goto l11476; l11479: /* x87785 */ /* x87784 stalin.sc:7202:247759 */ /* x87783 stalin.sc:7202:247769 */ t67515 = a23030; /* x87782 stalin.sc:7202:247760 */ if (!(f9739(t67515)==FALSE_TYPE)) goto l11476; /* x87779 */ /* x87778 stalin.sc:7203:247795 */ t67516 = a23030; /* x87777 stalin.sc:7203:247778 */ if (f9871(t67516)==FALSE_TYPE) goto l11477; l11476: return TRUE_TYPE; l11477: return FALSE_TYPE;} /* VALID-PARAMETER?[9871] */ unsigned f9871(struct w49 a23029) {struct w49 t67517; struct w49 t67518; char *t67519; struct w49 t67520; struct w49 t67521; char *t67522; struct w49 t67523; struct w49 t67524; char *t67525; struct w49 t67526; struct w49 t67527; char *t67528; struct w49 t67529; struct w49 t67530; char *t67531; struct w49 t67532; struct w49 t67533; char *t67534; struct w49 t67535; struct w49 t67536; char *t67537; struct w49 t67538; struct w49 t67539; char *t67540; struct w49 t67541; struct w49 t67542; char *t67543; struct w49 t67544; struct w49 t67545; /* x87770 stalin.sc:7186:247297 */ /* x87770 stalin.sc:7186:247297 */ /* x87691 stalin.sc:7186:247302 */ /* x87690 stalin.sc:7186:247314 */ t67517 = a23029; /* x87689 stalin.sc:7186:247303 */ if (f9741(t67517)==FALSE_TYPE) goto l11484; /* x87768 */ /* x87697 stalin.sc:7187:247323 */ /* x87696 stalin.sc:7187:247328 */ /* x87694 stalin.sc:7187:247336 */ t67518 = a23029; /* x87695 stalin.sc:7187:247338 */ t67519 = q11; /* x87693 stalin.sc:7187:247329 */ t67520.tag = EXTERNAL_SYMBOL_TYPE; t67520.value.external_symbol_type = t67519; if (!(f9745(t67518, t67520)==FALSE_TYPE)) goto l11484; /* x87766 */ /* x87703 stalin.sc:7188:247353 */ /* x87702 stalin.sc:7188:247358 */ /* x87700 stalin.sc:7188:247366 */ t67521 = a23029; /* x87701 stalin.sc:7188:247368 */ t67522 = q39; /* x87699 stalin.sc:7188:247359 */ t67523.tag = EXTERNAL_SYMBOL_TYPE; t67523.value.external_symbol_type = t67522; if (!(f9745(t67521, t67523)==FALSE_TYPE)) goto l11484; /* x87764 */ /* x87709 stalin.sc:7189:247384 */ /* x87708 stalin.sc:7189:247389 */ /* x87706 stalin.sc:7189:247397 */ t67524 = a23029; /* x87707 stalin.sc:7189:247399 */ t67525 = q42; /* x87705 stalin.sc:7189:247390 */ t67526.tag = EXTERNAL_SYMBOL_TYPE; t67526.value.external_symbol_type = t67525; if (!(f9745(t67524, t67526)==FALSE_TYPE)) goto l11484; /* x87762 */ /* x87715 stalin.sc:7190:247413 */ /* x87714 stalin.sc:7190:247418 */ /* x87712 stalin.sc:7190:247426 */ t67527 = a23029; /* x87713 stalin.sc:7190:247428 */ t67528 = q43; /* x87711 stalin.sc:7190:247419 */ t67529.tag = EXTERNAL_SYMBOL_TYPE; t67529.value.external_symbol_type = t67528; if (!(f9745(t67527, t67529)==FALSE_TYPE)) goto l11484; /* x87760 */ /* x87721 stalin.sc:7191:247440 */ /* x87720 stalin.sc:7191:247445 */ /* x87718 stalin.sc:7191:247453 */ t67530 = a23029; /* x87719 stalin.sc:7191:247455 */ t67531 = q77; /* x87717 stalin.sc:7191:247446 */ t67532.tag = EXTERNAL_SYMBOL_TYPE; t67532.value.external_symbol_type = t67531; if (!(f9745(t67530, t67532)==FALSE_TYPE)) goto l11484; /* x87758 */ /* x87727 stalin.sc:7192:247484 */ /* x87726 stalin.sc:7192:247489 */ /* x87724 stalin.sc:7192:247497 */ t67533 = a23029; /* x87725 stalin.sc:7192:247499 */ t67534 = q78; /* x87723 stalin.sc:7192:247490 */ t67535.tag = EXTERNAL_SYMBOL_TYPE; t67535.value.external_symbol_type = t67534; if (!(f9745(t67533, t67535)==FALSE_TYPE)) goto l11484; /* x87756 */ /* x87733 stalin.sc:7193:247526 */ /* x87732 stalin.sc:7193:247531 */ /* x87730 stalin.sc:7193:247539 */ t67536 = a23029; /* x87731 stalin.sc:7193:247541 */ t67537 = q95; /* x87729 stalin.sc:7193:247532 */ t67538.tag = EXTERNAL_SYMBOL_TYPE; t67538.value.external_symbol_type = t67537; if (!(f9745(t67536, t67538)==FALSE_TYPE)) goto l11484; /* x87754 */ /* x87739 stalin.sc:7194:247555 */ /* x87738 stalin.sc:7194:247560 */ /* x87736 stalin.sc:7194:247568 */ t67539 = a23029; /* x87737 stalin.sc:7194:247570 */ t67540 = q96; /* x87735 stalin.sc:7194:247561 */ t67541.tag = EXTERNAL_SYMBOL_TYPE; t67541.value.external_symbol_type = t67540; if (!(f9745(t67539, t67541)==FALSE_TYPE)) goto l11484; /* x87752 */ /* x87745 stalin.sc:7195:247582 */ /* x87744 stalin.sc:7195:247587 */ /* x87742 stalin.sc:7195:247595 */ t67542 = a23029; /* x87743 stalin.sc:7195:247597 */ t67543 = q97; /* x87741 stalin.sc:7195:247588 */ t67544.tag = EXTERNAL_SYMBOL_TYPE; t67544.value.external_symbol_type = t67543; if (!(f9745(t67542, t67544)==FALSE_TYPE)) goto l11484; /* x87750 */ /* x87749 stalin.sc:7196:247618 */ /* x87748 stalin.sc:7196:247626 */ t67545 = a23029; /* x87747 stalin.sc:7196:247619 */ if (!((f9713(t67545).tag)==FALSE_TYPE)) goto l11484; return TRUE_TYPE; l11484: return FALSE_TYPE;} /* FOREIGN-PROCEDURE-RETURNS?[9870] */ unsigned f9870(struct w49 a23028) {struct w49 a37920; /* S */ struct w49 t67546; char *t67547; struct w49 t67548; struct w49 t67549; /* x87686 stalin.sc:7181:247174 */ /* x87686 stalin.sc:7181:247174 */ /* x87685 stalin.sc:7181:247179 */ /* x87683 stalin.sc:7181:247184 */ /* x87682 stalin.sc:7181:247215 */ t67548 = a23028; /* x87681 stalin.sc:7181:247185 */ a37920 = t67548; /* x284349 */ /* x284348 */ t67549 = a37920; /* x284347 */ if (!((t67549.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-RESULT[6011] 32837]"); structure_ref_error();} t67546 = t67549.value.structure_type27750->s2; /* x87684 stalin.sc:7181:247218 */ t67547 = q93; /* x269921 stalin.sc:7181:247180 */ if (((t67546.tag)==EXTERNAL_SYMBOL_TYPE)&&((t67546.value.external_symbol_type)==t67547)) goto l11497; return TRUE_TYPE; l11497: return FALSE_TYPE;} /* FOREIGN-PROCEDURE-RETURN-TYPE-SET[9869] */ struct structure_type27650 *f9869(struct w49 a23027) {struct w49 a23015; /* F */ struct w49 a23016; /* v */ struct w49 a37919; /* S */ struct w49 t67550; struct w49 t67551; struct w49 t67552; char *t67553; struct w49 t67554; struct w49 t67555; char *t67556; struct w49 t67557; struct w49 t67558; char *t67559; struct w49 t67560; struct w49 t67561; char *t67562; struct w49 t67563; struct w49 t67564; char *t67565; struct w49 t67566; struct w49 t67567; char *t67568; struct w49 t67569; struct w49 t67570; char *t67571; struct w49 t67572; struct w49 t67573; char *t67574; struct w49 t67575; struct w49 t67576; char *t67577; struct w49 t67578; struct w49 t67579; char *t67580; struct w49 t67581; struct w49 t67582; char *t67583; struct w49 t67584; struct w49 t67585; char *t67586; struct w49 t67587; struct w49 t67588; char *t67589; struct w49 t67590; struct w49 t67591; char *t67592; struct w49 t67593; struct w49 t67594; char *t67595; struct w49 t67596; struct w49 t67597; char *t67598; struct w49 t67599; struct w49 t67600; char *t67601; struct w49 t67602; struct w49 t67603; char *t67604; struct w49 t67605; char *t67606; struct w49 t67607; struct w49 t67608; /* x87676 stalin.sc:7178:247066 */ /* x87675 stalin.sc:7178:247097 */ /* x87674 stalin.sc:7178:247128 */ t67607 = a23027; /* x87673 stalin.sc:7178:247098 */ a37919 = t67607; /* x284345 */ /* x284344 */ t67608 = a37919; /* x284343 */ if (!((t67608.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-RESULT[6011] 32836]"); structure_ref_error();} t67550 = t67608.value.structure_type27750->s2; /* x87672 stalin.sc:7178:247067 */ a23015 = t67550; /* x87669 stalin.sc:7165:246582 */ /* x87668 stalin.sc:7165:246588 */ t67551 = a23015; /* x87667 */ a23016 = t67551; /* x87666 */ /* x87530 */ /* x87529 */ /* x87527 */ t67552 = a23016; /* x87528 */ t67553 = q56; /* x87526 */ t67554.tag = EXTERNAL_SYMBOL_TYPE; t67554.value.external_symbol_type = t67553; if (!(f26160(t67552, t67554)==FALSE_TYPE)) goto l11499; /* x87523 */ /* x87522 */ /* x87520 */ t67555 = a23016; /* x87521 */ t67556 = q92; /* x87519 */ t67557.tag = EXTERNAL_SYMBOL_TYPE; t67557.value.external_symbol_type = t67556; if (!(f26160(t67555, t67557)==FALSE_TYPE)) goto l11499; /* x87516 */ /* x87514 */ t67558 = a23016; /* x87515 */ t67559 = q91; /* x87513 */ t67560.tag = EXTERNAL_SYMBOL_TYPE; t67560.value.external_symbol_type = t67559; if (f26160(t67558, t67560)==FALSE_TYPE) goto l11500; l11499: /* x87533 */ /* x87532 */ /* x87531 stalin.sc:7166:246626 */ return a1672; l11500: /* x87665 */ /* x87582 */ /* x87581 */ /* x87579 */ t67561 = a23016; /* x87580 */ t67562 = q90; /* x87578 */ t67563.tag = EXTERNAL_SYMBOL_TYPE; t67563.value.external_symbol_type = t67562; if (!(f26160(t67561, t67563)==FALSE_TYPE)) goto l11503; /* x87575 */ /* x87574 */ /* x87572 */ t67564 = a23016; /* x87573 */ t67565 = q89; /* x87571 */ t67566.tag = EXTERNAL_SYMBOL_TYPE; t67566.value.external_symbol_type = t67565; if (!(f26160(t67564, t67566)==FALSE_TYPE)) goto l11503; /* x87568 */ /* x87567 */ /* x87565 */ t67567 = a23016; /* x87566 */ t67568 = q88; /* x87564 */ t67569.tag = EXTERNAL_SYMBOL_TYPE; t67569.value.external_symbol_type = t67568; if (!(f26160(t67567, t67569)==FALSE_TYPE)) goto l11503; /* x87561 */ /* x87560 */ /* x87558 */ t67570 = a23016; /* x87559 */ t67571 = q87; /* x87557 */ t67572.tag = EXTERNAL_SYMBOL_TYPE; t67572.value.external_symbol_type = t67571; if (!(f26160(t67570, t67572)==FALSE_TYPE)) goto l11503; /* x87554 */ /* x87553 */ /* x87551 */ t67573 = a23016; /* x87552 */ t67574 = q86; /* x87550 */ t67575.tag = EXTERNAL_SYMBOL_TYPE; t67575.value.external_symbol_type = t67574; if (!(f26160(t67573, t67575)==FALSE_TYPE)) goto l11503; /* x87547 */ /* x87545 */ t67576 = a23016; /* x87546 */ t67577 = q85; /* x87544 */ t67578.tag = EXTERNAL_SYMBOL_TYPE; t67578.value.external_symbol_type = t67577; if (f26160(t67576, t67578)==FALSE_TYPE) goto l11504; l11503: /* x87585 */ /* x87584 */ /* x87583 stalin.sc:7168:246712 */ return a1671; l11504: /* x87664 */ /* x87607 */ /* x87606 */ /* x87604 */ t67579 = a23016; /* x87605 */ t67580 = q84; /* x87603 */ t67581.tag = EXTERNAL_SYMBOL_TYPE; t67581.value.external_symbol_type = t67580; if (!(f26160(t67579, t67581)==FALSE_TYPE)) goto l11510; /* x87600 */ /* x87599 */ /* x87597 */ t67582 = a23016; /* x87598 */ t67583 = q14; /* x87596 */ t67584.tag = EXTERNAL_SYMBOL_TYPE; t67584.value.external_symbol_type = t67583; if (!(f26160(t67582, t67584)==FALSE_TYPE)) goto l11510; /* x87593 */ /* x87591 */ t67585 = a23016; /* x87592 */ t67586 = q83; /* x87590 */ t67587.tag = EXTERNAL_SYMBOL_TYPE; t67587.value.external_symbol_type = t67586; if (f26160(t67585, t67587)==FALSE_TYPE) goto l11511; l11510: /* x87610 */ /* x87609 */ /* x87608 stalin.sc:7169:246769 */ return a1670; l11511: /* x87663 */ /* x87614 */ /* x87612 */ t67588 = a23016; /* x87613 */ t67589 = q82; /* x87611 */ t67590.tag = EXTERNAL_SYMBOL_TYPE; t67590.value.external_symbol_type = t67589; if (f26160(t67588, t67590)==FALSE_TYPE) goto l11515; /* x87617 */ /* x87616 */ /* x87615 stalin.sc:7170:246807 */ return a1669; l11515: /* x87662 */ /* x87621 */ /* x87619 */ t67591 = a23016; /* x87620 */ t67592 = q60; /* x87618 */ t67593.tag = EXTERNAL_SYMBOL_TYPE; t67593.value.external_symbol_type = t67592; if (f26160(t67591, t67593)==FALSE_TYPE) goto l11517; /* x87624 */ /* x87623 */ /* x87622 stalin.sc:7171:246850 */ return a1668; l11517: /* x87661 */ /* x87628 */ /* x87626 */ t67594 = a23016; /* x87627 */ t67595 = q61; /* x87625 */ t67596.tag = EXTERNAL_SYMBOL_TYPE; t67596.value.external_symbol_type = t67595; if (f26160(t67594, t67596)==FALSE_TYPE) goto l11519; /* x87631 */ /* x87630 */ /* x87629 stalin.sc:7172:246898 */ return a1667; l11519: /* x87660 */ /* x87635 */ /* x87633 */ t67597 = a23016; /* x87634 */ t67598 = q80; /* x87632 */ t67599.tag = EXTERNAL_SYMBOL_TYPE; t67599.value.external_symbol_type = t67598; if (f26160(t67597, t67599)==FALSE_TYPE) goto l11521; /* x87638 */ /* x87637 */ /* x87636 stalin.sc:7173:246941 */ return a1666; l11521: /* x87659 */ /* x87651 */ /* x87650 */ /* x87648 */ t67600 = a23016; /* x87649 */ t67601 = q94; /* x87647 */ t67602.tag = EXTERNAL_SYMBOL_TYPE; t67602.value.external_symbol_type = t67601; if (!(f26160(t67600, t67602)==FALSE_TYPE)) goto l11522; /* x87644 */ /* x87642 */ t67603 = a23016; /* x87643 */ t67604 = q93; /* x87641 */ t67605.tag = EXTERNAL_SYMBOL_TYPE; t67605.value.external_symbol_type = t67604; if (f26160(t67603, t67605)==FALSE_TYPE) goto l11523; l11522: /* x87654 */ /* x87653 */ /* x87652 stalin.sc:7174:246989 */ return a1676; l11523: /* x87658 */ /* x87657 */ /* x87656 stalin.sc:7175:247005 */ /* x87655 stalin.sc:7175:247006 */ /* x295881 QobiScheme.sc:166:5314 */ /* x295880 QobiScheme.sc:166:5321 */ t67606 = "This shouldn\'t happen"; /* x295879 QobiScheme.sc:166:5315 */ stalin_panic(t67606);} /* [inside FOREIGN-TYPE? 9842] */ unsigned f9842(struct w49 a23013) {struct w49 t67609; struct w49 t67610; /* x87467 stalin.sc:7158:246371 */ /* x87467 stalin.sc:7158:246371 */ /* x87466 stalin.sc:7158:246375 */ /* x87465 stalin.sc:7158:246393 */ t67609 = a23013; /* x87464 stalin.sc:7158:246376 */ if (!(f7700(t67609)==FALSE_TYPE)) goto l11525; /* x87461 */ /* x87460 stalin.sc:7158:246415 */ t67610 = a23013; /* x87459 stalin.sc:7158:246397 */ if (f7701(t67610)==FALSE_TYPE) goto l11526; l11525: return TRUE_TYPE; l11526: return FALSE_TYPE;} /* FOREIGN-TYPE?[9826] */ unsigned f9826(struct w49 a23002) {struct w49 a23003; /* v */ struct w49 t67611; struct w49 t67612; char *t67613; struct w49 t67614; struct w49 t67615; char *t67616; struct w49 t67617; struct w49 t67618; char *t67619; struct w49 t67620; struct w49 t67621; char *t67622; struct w49 t67623; struct w49 t67624; char *t67625; struct w49 t67626; struct w49 t67627; char *t67628; struct w49 t67629; struct w49 t67630; char *t67631; struct w49 t67632; struct w49 t67633; char *t67634; struct w49 t67635; struct w49 t67636; char *t67637; struct w49 t67638; struct w49 t67639; char *t67640; struct w49 t67641; struct w49 t67642; char *t67643; struct w49 t67644; struct w49 t67645; char *t67646; struct w49 t67647; struct w49 t67648; char *t67649; struct w49 t67650; struct w49 t67651; char *t67652; struct w49 t67653; struct w49 t67654; char *t67655; struct w49 t67656; struct w49 t67657; char *t67658; struct w49 t67659; struct w49 t67660; char *t67661; struct w49 t67662; char *t67663; /* x87506 stalin.sc:7153:246151 */ /* x87505 stalin.sc:7153:246157 */ t67611 = a23002; /* x87504 */ a23003 = t67611; /* x87503 */ /* x87365 */ /* x87364 */ /* x87362 */ t67612 = a23003; /* x87363 */ t67613 = q56; /* x87361 */ t67614.tag = EXTERNAL_SYMBOL_TYPE; t67614.value.external_symbol_type = t67613; if (!(f26160(t67612, t67614)==FALSE_TYPE)) goto l11529; /* x87358 */ /* x87357 */ /* x87355 */ t67615 = a23003; /* x87356 */ t67616 = q92; /* x87354 */ t67617.tag = EXTERNAL_SYMBOL_TYPE; t67617.value.external_symbol_type = t67616; if (!(f26160(t67615, t67617)==FALSE_TYPE)) goto l11529; /* x87351 */ /* x87349 */ t67618 = a23003; /* x87350 */ t67619 = q91; /* x87348 */ t67620.tag = EXTERNAL_SYMBOL_TYPE; t67620.value.external_symbol_type = t67619; if (f26160(t67618, t67620)==FALSE_TYPE) goto l11530; l11529: /* x87368 */ /* x87367 */ /* x87366 stalin.sc:7154:246195 */ return NATIVE_PROCEDURE_TYPE7431; l11530: /* x87502 */ /* x87417 */ /* x87416 */ /* x87414 */ t67621 = a23003; /* x87415 */ t67622 = q90; /* x87413 */ t67623.tag = EXTERNAL_SYMBOL_TYPE; t67623.value.external_symbol_type = t67622; if (!(f26160(t67621, t67623)==FALSE_TYPE)) goto l11533; /* x87410 */ /* x87409 */ /* x87407 */ t67624 = a23003; /* x87408 */ t67625 = q89; /* x87406 */ t67626.tag = EXTERNAL_SYMBOL_TYPE; t67626.value.external_symbol_type = t67625; if (!(f26160(t67624, t67626)==FALSE_TYPE)) goto l11533; /* x87403 */ /* x87402 */ /* x87400 */ t67627 = a23003; /* x87401 */ t67628 = q88; /* x87399 */ t67629.tag = EXTERNAL_SYMBOL_TYPE; t67629.value.external_symbol_type = t67628; if (!(f26160(t67627, t67629)==FALSE_TYPE)) goto l11533; /* x87396 */ /* x87395 */ /* x87393 */ t67630 = a23003; /* x87394 */ t67631 = q87; /* x87392 */ t67632.tag = EXTERNAL_SYMBOL_TYPE; t67632.value.external_symbol_type = t67631; if (!(f26160(t67630, t67632)==FALSE_TYPE)) goto l11533; /* x87389 */ /* x87388 */ /* x87386 */ t67633 = a23003; /* x87387 */ t67634 = q86; /* x87385 */ t67635.tag = EXTERNAL_SYMBOL_TYPE; t67635.value.external_symbol_type = t67634; if (!(f26160(t67633, t67635)==FALSE_TYPE)) goto l11533; /* x87382 */ /* x87380 */ t67636 = a23003; /* x87381 */ t67637 = q85; /* x87379 */ t67638.tag = EXTERNAL_SYMBOL_TYPE; t67638.value.external_symbol_type = t67637; if (f26160(t67636, t67638)==FALSE_TYPE) goto l11534; l11533: /* x87420 */ /* x87419 */ /* x87418 stalin.sc:7155:246265 */ return NATIVE_PROCEDURE_TYPE7430; l11534: /* x87501 */ /* x87442 */ /* x87441 */ /* x87439 */ t67639 = a23003; /* x87440 */ t67640 = q84; /* x87438 */ t67641.tag = EXTERNAL_SYMBOL_TYPE; t67641.value.external_symbol_type = t67640; if (!(f26160(t67639, t67641)==FALSE_TYPE)) goto l11540; /* x87435 */ /* x87434 */ /* x87432 */ t67642 = a23003; /* x87433 */ t67643 = q14; /* x87431 */ t67644.tag = EXTERNAL_SYMBOL_TYPE; t67644.value.external_symbol_type = t67643; if (!(f26160(t67642, t67644)==FALSE_TYPE)) goto l11540; /* x87428 */ /* x87426 */ t67645 = a23003; /* x87427 */ t67646 = q83; /* x87425 */ t67647.tag = EXTERNAL_SYMBOL_TYPE; t67647.value.external_symbol_type = t67646; if (f26160(t67645, t67647)==FALSE_TYPE) goto l11541; l11540: /* x87445 */ /* x87444 */ /* x87443 stalin.sc:7156:246309 */ return NATIVE_PROCEDURE_TYPE7429; l11541: /* x87500 */ /* x87449 */ /* x87447 */ t67648 = a23003; /* x87448 */ t67649 = q82; /* x87446 */ t67650.tag = EXTERNAL_SYMBOL_TYPE; t67650.value.external_symbol_type = t67649; if (f26160(t67648, t67650)==FALSE_TYPE) goto l11545; /* x87452 */ /* x87451 */ /* x87450 stalin.sc:7157:246334 */ return NATIVE_PROCEDURE_TYPE7822; l11545: /* x87499 */ /* x87456 */ /* x87454 */ t67651 = a23003; /* x87455 */ t67652 = q81; /* x87453 */ t67653.tag = EXTERNAL_SYMBOL_TYPE; t67653.value.external_symbol_type = t67652; if (f26160(t67651, t67653)==FALSE_TYPE) goto l11547; /* x87470 */ /* x87469 */ /* x87468 stalin.sc:7158:246359 */ return NATIVE_PROCEDURE_TYPE19555; l11547: /* x87498 */ /* x87474 */ /* x87472 */ t67654 = a23003; /* x87473 */ t67655 = q60; /* x87471 */ t67656.tag = EXTERNAL_SYMBOL_TYPE; t67656.value.external_symbol_type = t67655; if (f26160(t67654, t67656)==FALSE_TYPE) goto l11549; /* x87477 */ /* x87476 */ /* x87475 stalin.sc:7159:246437 */ return NATIVE_PROCEDURE_TYPE7423; l11549: /* x87497 */ /* x87481 */ /* x87479 */ t67657 = a23003; /* x87480 */ t67658 = q61; /* x87478 */ t67659.tag = EXTERNAL_SYMBOL_TYPE; t67659.value.external_symbol_type = t67658; if (f26160(t67657, t67659)==FALSE_TYPE) goto l11551; /* x87484 */ /* x87483 */ /* x87482 stalin.sc:7160:246472 */ return NATIVE_PROCEDURE_TYPE7422; l11551: /* x87496 */ /* x87488 */ /* x87486 */ t67660 = a23003; /* x87487 */ t67661 = q80; /* x87485 */ t67662.tag = EXTERNAL_SYMBOL_TYPE; t67662.value.external_symbol_type = t67661; if (f26160(t67660, t67662)==FALSE_TYPE) goto l11553; /* x87491 */ /* x87490 */ /* x87489 stalin.sc:7161:246502 */ return NATIVE_PROCEDURE_TYPE7420; l11553: /* x87495 */ /* x87494 */ /* x87493 stalin.sc:7162:246525 */ /* x87492 stalin.sc:7162:246526 */ /* x296237 QobiScheme.sc:166:5314 */ /* x296236 QobiScheme.sc:166:5321 */ t67663 = "This shouldn\'t happen"; /* x296235 QobiScheme.sc:166:5315 */ stalin_panic(t67663);} /* VALID-FOREIGN-RETURN-TYPE?[9808] */ unsigned f9808(struct w49 a22984) {struct w49 t67664; char *t67665; struct w49 t67666; struct w49 t67667; char *t67668; struct w49 t67669; struct w49 t67670; char *t67671; struct w49 t67672; struct w49 t67673; char *t67674; struct w49 t67675; struct w49 t67676; char *t67677; struct w49 t67678; struct w49 t67679; char *t67680; struct w49 t67681; struct w49 t67682; char *t67683; struct w49 t67684; struct w49 t67685; char *t67686; struct w49 t67687; struct w49 t67688; char *t67689; struct w49 t67690; struct w49 t67691; char *t67692; struct w49 t67693; struct w49 t67694; char *t67695; struct w49 t67696; struct w49 t67697; char *t67698; struct w49 t67699; struct w49 t67700; char *t67701; struct w49 t67702; struct w49 t67703; char *t67704; struct w49 t67705; struct w49 t67706; char *t67707; struct w49 t67708; struct w49 t67709; char *t67710; struct w49 t67711; struct w49 t67712; char *t67713; struct w49 t67714; struct w49 t67715; char *t67716; struct w49 t67717; /* x87341 stalin.sc:7133:245657 */ /* x87341 stalin.sc:7133:245657 */ /* x87340 stalin.sc:7133:245661 */ /* x87338 stalin.sc:7133:245669 */ t67664 = a22984; /* x87339 stalin.sc:7133:245671 */ t67665 = q56; /* x87337 stalin.sc:7133:245662 */ t67666.tag = EXTERNAL_SYMBOL_TYPE; t67666.value.external_symbol_type = t67665; if (!(f9745(t67664, t67666)==FALSE_TYPE)) goto l11554; /* x87334 */ /* x87333 stalin.sc:7134:245683 */ /* x87331 stalin.sc:7134:245691 */ t67667 = a22984; /* x87332 stalin.sc:7134:245693 */ t67668 = q92; /* x87330 stalin.sc:7134:245684 */ t67669.tag = EXTERNAL_SYMBOL_TYPE; t67669.value.external_symbol_type = t67668; if (!(f9745(t67667, t67669)==FALSE_TYPE)) goto l11554; /* x87327 */ /* x87326 stalin.sc:7135:245712 */ /* x87324 stalin.sc:7135:245720 */ t67670 = a22984; /* x87325 stalin.sc:7135:245722 */ t67671 = q91; /* x87323 stalin.sc:7135:245713 */ t67672.tag = EXTERNAL_SYMBOL_TYPE; t67672.value.external_symbol_type = t67671; if (!(f9745(t67670, t67672)==FALSE_TYPE)) goto l11554; /* x87320 */ /* x87319 stalin.sc:7136:245743 */ /* x87317 stalin.sc:7136:245751 */ t67673 = a22984; /* x87318 stalin.sc:7136:245753 */ t67674 = q90; /* x87316 stalin.sc:7136:245744 */ t67675.tag = EXTERNAL_SYMBOL_TYPE; t67675.value.external_symbol_type = t67674; if (!(f9745(t67673, t67675)==FALSE_TYPE)) goto l11554; /* x87313 */ /* x87312 stalin.sc:7137:245766 */ /* x87310 stalin.sc:7137:245774 */ t67676 = a22984; /* x87311 stalin.sc:7137:245776 */ t67677 = q89; /* x87309 stalin.sc:7137:245767 */ t67678.tag = EXTERNAL_SYMBOL_TYPE; t67678.value.external_symbol_type = t67677; if (!(f9745(t67676, t67678)==FALSE_TYPE)) goto l11554; /* x87306 */ /* x87305 stalin.sc:7138:245798 */ /* x87303 stalin.sc:7138:245806 */ t67679 = a22984; /* x87304 stalin.sc:7138:245808 */ t67680 = q88; /* x87302 stalin.sc:7138:245799 */ t67681.tag = EXTERNAL_SYMBOL_TYPE; t67681.value.external_symbol_type = t67680; if (!(f9745(t67679, t67681)==FALSE_TYPE)) goto l11554; /* x87299 */ /* x87298 stalin.sc:7139:245819 */ /* x87296 stalin.sc:7139:245827 */ t67682 = a22984; /* x87297 stalin.sc:7139:245829 */ t67683 = q87; /* x87295 stalin.sc:7139:245820 */ t67684.tag = EXTERNAL_SYMBOL_TYPE; t67684.value.external_symbol_type = t67683; if (!(f9745(t67682, t67684)==FALSE_TYPE)) goto l11554; /* x87292 */ /* x87291 stalin.sc:7140:245845 */ /* x87289 stalin.sc:7140:245853 */ t67685 = a22984; /* x87290 stalin.sc:7140:245855 */ t67686 = q86; /* x87288 stalin.sc:7140:245846 */ t67687.tag = EXTERNAL_SYMBOL_TYPE; t67687.value.external_symbol_type = t67686; if (!(f9745(t67685, t67687)==FALSE_TYPE)) goto l11554; /* x87285 */ /* x87284 stalin.sc:7141:245867 */ /* x87282 stalin.sc:7141:245875 */ t67688 = a22984; /* x87283 stalin.sc:7141:245877 */ t67689 = q85; /* x87281 stalin.sc:7141:245868 */ t67690.tag = EXTERNAL_SYMBOL_TYPE; t67690.value.external_symbol_type = t67689; if (!(f9745(t67688, t67690)==FALSE_TYPE)) goto l11554; /* x87278 */ /* x87277 stalin.sc:7142:245898 */ /* x87275 stalin.sc:7142:245906 */ t67691 = a22984; /* x87276 stalin.sc:7142:245908 */ t67692 = q84; /* x87274 stalin.sc:7142:245899 */ t67693.tag = EXTERNAL_SYMBOL_TYPE; t67693.value.external_symbol_type = t67692; if (!(f9745(t67691, t67693)==FALSE_TYPE)) goto l11554; /* x87271 */ /* x87270 stalin.sc:7143:245921 */ /* x87268 stalin.sc:7143:245929 */ t67694 = a22984; /* x87269 stalin.sc:7143:245931 */ t67695 = q14; /* x87267 stalin.sc:7143:245922 */ t67696.tag = EXTERNAL_SYMBOL_TYPE; t67696.value.external_symbol_type = t67695; if (!(f9745(t67694, t67696)==FALSE_TYPE)) goto l11554; /* x87264 */ /* x87263 stalin.sc:7144:245945 */ /* x87261 stalin.sc:7144:245953 */ t67697 = a22984; /* x87262 stalin.sc:7144:245955 */ t67698 = q83; /* x87260 stalin.sc:7144:245946 */ t67699.tag = EXTERNAL_SYMBOL_TYPE; t67699.value.external_symbol_type = t67698; if (!(f9745(t67697, t67699)==FALSE_TYPE)) goto l11554; /* x87257 */ /* x87256 stalin.sc:7145:245974 */ /* x87254 stalin.sc:7145:245982 */ t67700 = a22984; /* x87255 stalin.sc:7145:245984 */ t67701 = q82; /* x87253 stalin.sc:7145:245975 */ t67702.tag = EXTERNAL_SYMBOL_TYPE; t67702.value.external_symbol_type = t67701; if (!(f9745(t67700, t67702)==FALSE_TYPE)) goto l11554; /* x87250 */ /* x87249 stalin.sc:7146:245997 */ /* x87247 stalin.sc:7146:246005 */ t67703 = a22984; /* x87248 stalin.sc:7146:246007 */ t67704 = q60; /* x87246 stalin.sc:7146:245998 */ t67705.tag = EXTERNAL_SYMBOL_TYPE; t67705.value.external_symbol_type = t67704; if (!(f9745(t67703, t67705)==FALSE_TYPE)) goto l11554; /* x87243 */ /* x87242 stalin.sc:7147:246025 */ /* x87240 stalin.sc:7147:246033 */ t67706 = a22984; /* x87241 stalin.sc:7147:246035 */ t67707 = q61; /* x87239 stalin.sc:7147:246026 */ t67708.tag = EXTERNAL_SYMBOL_TYPE; t67708.value.external_symbol_type = t67707; if (!(f9745(t67706, t67708)==FALSE_TYPE)) goto l11554; /* x87236 */ /* x87235 stalin.sc:7148:246054 */ /* x87233 stalin.sc:7148:246062 */ t67709 = a22984; /* x87234 stalin.sc:7148:246064 */ t67710 = q80; /* x87232 stalin.sc:7148:246055 */ t67711.tag = EXTERNAL_SYMBOL_TYPE; t67711.value.external_symbol_type = t67710; if (!(f9745(t67709, t67711)==FALSE_TYPE)) goto l11554; /* x87229 */ /* x87228 stalin.sc:7149:246077 */ /* x87226 stalin.sc:7149:246085 */ t67712 = a22984; /* x87227 stalin.sc:7149:246087 */ t67713 = q94; /* x87225 stalin.sc:7149:246078 */ t67714.tag = EXTERNAL_SYMBOL_TYPE; t67714.value.external_symbol_type = t67713; if (!(f9745(t67712, t67714)==FALSE_TYPE)) goto l11554; /* x87222 */ /* x87220 stalin.sc:7150:246107 */ t67715 = a22984; /* x87221 stalin.sc:7150:246109 */ t67716 = q93; /* x87219 stalin.sc:7150:246100 */ t67717.tag = EXTERNAL_SYMBOL_TYPE; t67717.value.external_symbol_type = t67716; if (f9745(t67715, t67717)==FALSE_TYPE) goto l11555; l11554: return TRUE_TYPE; l11555: return FALSE_TYPE;} /* UNENCAPSULATE[9788] */ struct w49 f9788(struct w49 a22968) {struct w49 r9788; struct w49 a40459; /* S */ struct w49 a40538; /* OBJ */ struct w49 t67718; struct w49 t67719; struct w49 t67720; struct w198538 t67721; struct w49 t67722; struct w49 t67723; struct w49 t67724; struct structure_type24753 *t67725; struct w49 t67726; struct structure_type24753 *t67727; struct headed_vector_type27896 *t67728; unsigned t67729; struct w49 t67730; struct headed_vector_type27896 *t67731; struct w49 t67732; struct w49 t67733; struct w49 t67734; h9788: /* x87050 stalin.sc:7108:244942 */ /* x87011 stalin.sc:7108:244949 */ /* x87010 stalin.sc:7108:244964 */ t67718 = a22968; /* x87009 stalin.sc:7108:244950 */ a40538 = t67718; /* x294821 */ /* x294820 */ t67719 = a40538; /* x294819 */ if (!((t67719.tag)==STRUCTURE_TYPE27510)) goto l11575; /* x87018 */ /* x87017 */ /* x87016 stalin.sc:7108:244969 */ /* x87015 stalin.sc:7108:244984 */ /* x87014 stalin.sc:7108:245004 */ t67733 = a22968; /* x87013 stalin.sc:7108:244985 */ a40459 = t67733; /* x294505 */ /* x294504 */ t67734 = a40459; /* x294503 */ if (!((t67734.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 35376]"); structure_ref_error();} t67732 = t67734.value.structure_type27510->s9; /* x87012 stalin.sc:7108:244970 */ a22968 = t67732; goto h9788; l11575: /* x87049 */ /* x87021 stalin.sc:7109:245019 */ /* x87020 stalin.sc:7109:245028 */ t67720 = a22968; /* x269927 stalin.sc:7109:245020 */ if (!((t67720.tag)==HEADED_VECTOR_TYPE27896)) goto l11577; /* x87027 */ /* x87026 */ /* x87025 stalin.sc:7109:245033 */ /* x87024 stalin.sc:7109:245059 */ t67728 = a22968.value.headed_vector_type27896; /* x87023 stalin.sc:7109:245045 */ /* x87022 stalin.sc:7109:245034 */ t67729 = (unsigned)NATIVE_PROCEDURE_TYPE7145; t67730.tag = HEADED_VECTOR_TYPE27896; t67730.value.headed_vector_type27896 = t67728; t67731 = f1154(t67729, t67730); r9788.tag = HEADED_VECTOR_TYPE27896; r9788.value.headed_vector_type27896 = t67731; return r9788; l11577: /* x87048 */ /* x87030 stalin.sc:7110:245073 */ /* x87029 stalin.sc:7110:245080 */ t67721 = *((struct w198538 *)(&a22968)); /* x269926 stalin.sc:7110:245074 */ if (!((t67721.tag)==STRUCTURE_TYPE24753)) goto l11579; /* x87044 */ /* x87043 */ /* x87042 stalin.sc:7110:245085 */ /* x87036 stalin.sc:7110:245091 */ /* x87035 stalin.sc:7110:245106 */ /* x87034 stalin.sc:7110:245111 */ t67725 = a22968.value.structure_type24753; /* x269924 stalin.sc:7110:245107 */ t67724 = t67725->s0; /* x87032 stalin.sc:7110:245092 */ t67722 = f9788(t67724); /* x87041 stalin.sc:7110:245117 */ /* x87040 stalin.sc:7110:245132 */ /* x87039 stalin.sc:7110:245137 */ t67727 = a22968.value.structure_type24753; /* x269923 stalin.sc:7110:245133 */ t67726 = t67727->s1; /* x87037 stalin.sc:7110:245118 */ t67723 = f9788(t67726); /* x269925 stalin.sc:7110:245086 */ r9788.tag = STRUCTURE_TYPE24753; r9788.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r9788.value.structure_type24753)==NULL) {backtrace("stalin.sc", 7110, 245085); out_of_memory_error();} r9788.value.structure_type24753->s0 = t67722; r9788.value.structure_type24753->s1 = t67723; return r9788; l11579: /* x87047 */ /* x87046 */ /* x87045 stalin.sc:7111:245158 */ return a22968;} /* ENCAPSULATE[9774] */ struct w49 f9774(struct w49 a22961) {struct w49 r9774; struct w49 a40539; /* OBJ */ struct w49 t67735; struct w49 t67736; struct w49 t67737; struct w16611 t67738; struct w198539 t67739; struct w49 t67740; struct structure_type27510 *t67741; struct headed_vector_type27896 *t67742; struct w49 t67743; struct structure_type27510 *t67744; struct headed_vector_type27896 *t67745; unsigned t67746; struct w49 t67747; struct structure_type24753 *t67748; struct w49 t67749; struct structure_type27510 *t67750; struct w49 t67751; struct w49 t67752; struct w49 t67753; struct structure_type24753 *t67754; struct w49 t67755; struct structure_type24753 *t67756; /* x86943 stalin.sc:7088:244258 */ /* x86902 stalin.sc:7088:244265 */ /* x86901 stalin.sc:7088:244280 */ t67735 = a22961; /* x86900 stalin.sc:7088:244266 */ a40539 = t67735; /* x294825 */ /* x294824 */ t67736 = a40539; /* x294823 */ if (!((t67736.tag)==STRUCTURE_TYPE27510)) goto l11581; /* x86905 */ /* x86904 */ /* x86903 stalin.sc:7088:244285 */ return a22961; l11581: /* x86942 */ /* x86908 stalin.sc:7089:244298 */ /* x86907 stalin.sc:7089:244305 */ t67737 = a22961; /* x269932 stalin.sc:7089:244299 */ if (!((t67737.tag)==STRUCTURE_TYPE24753)) goto l11583; /* x86924 */ /* x86923 */ /* x86922 stalin.sc:7090:244311 */ /* x86921 stalin.sc:7091:244344 */ /* x86915 stalin.sc:7091:244350 */ /* x86914 stalin.sc:7091:244363 */ /* x86913 stalin.sc:7091:244368 */ t67754 = a22961.value.structure_type24753; /* x269930 stalin.sc:7091:244364 */ t67753 = t67754->s0; /* x86911 stalin.sc:7091:244351 */ t67751 = f9774(t67753); /* x86920 stalin.sc:7091:244374 */ /* x86919 stalin.sc:7091:244387 */ /* x86918 stalin.sc:7091:244392 */ t67756 = a22961.value.structure_type24753; /* x269929 stalin.sc:7091:244388 */ t67755 = t67756->s1; /* x86916 stalin.sc:7091:244375 */ t67752 = f9774(t67755); /* x269931 stalin.sc:7091:244345 */ t67748 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t67748==NULL) {backtrace("stalin.sc", 7091, 244344); out_of_memory_error();} t67748->s0 = t67751; t67748->s1 = t67752; /* x86909 stalin.sc:7090:244312 */ t67749.tag = STRUCTURE_TYPE24753; t67749.value.structure_type24753 = t67748; t67750 = f6868(t67749); r9774.tag = STRUCTURE_TYPE27510; r9774.value.structure_type27510 = t67750; return r9774; l11583: /* x86941 */ /* x86927 stalin.sc:7092:244409 */ /* x86926 stalin.sc:7092:244418 */ t67738 = *((struct w16611 *)(&a22961)); /* x269928 stalin.sc:7092:244410 */ if (!((t67738.tag)==HEADED_VECTOR_TYPE27896)) goto l11585; /* x86935 */ /* x86934 */ /* x86933 stalin.sc:7093:244424 */ /* x86932 stalin.sc:7093:244455 */ /* x86931 stalin.sc:7093:244479 */ t67745 = a22961.value.headed_vector_type27896; /* x86930 stalin.sc:7093:244467 */ /* x86929 stalin.sc:7093:244456 */ t67746 = (unsigned)NATIVE_PROCEDURE_TYPE7146; t67747.tag = HEADED_VECTOR_TYPE27896; t67747.value.headed_vector_type27896 = t67745; t67742 = f1154(t67746, t67747); /* x86928 stalin.sc:7093:244425 */ t67743.tag = HEADED_VECTOR_TYPE27896; t67743.value.headed_vector_type27896 = t67742; t67744 = f6868(t67743); r9774.tag = STRUCTURE_TYPE27510; r9774.value.structure_type27510 = t67744; return r9774; l11585: /* x86940 */ /* x86939 */ /* x86938 stalin.sc:7094:244499 */ /* x86937 stalin.sc:7094:244530 */ t67739 = *((struct w198539 *)(&a22961)); /* x86936 stalin.sc:7094:244500 */ t67740 = *((struct w49 *)(&t67739)); t67741 = f6868(t67740); r9774.tag = STRUCTURE_TYPE27510; r9774.value.structure_type27510 = t67741; return r9774;} /* SX-UNLIST[9772] */ struct w12224 f9772(struct w49 a22959) {struct w49 t67757; struct w198746 t67758; /* x86897 stalin.sc:7083:244174 */ /* x86895 stalin.sc:7083:244182 */ /* x86896 stalin.sc:7083:244197 */ t67757 = a22959; /* x86893 stalin.sc:7083:244175 */ t67758.tag = NATIVE_PROCEDURE_TYPE14211; return f9753(t67758, t67757);} /* SX-LAST[9769] */ struct w49 f9769(struct w49 a22955) {struct w49 a41430; /* S */ struct w49 a41431; /* S */ struct w49 a41589; /* S */ struct w49 t67759; struct w49 t67760; struct w49 t67761; struct w49 t67762; struct w49 t67763; struct w49 t67764; struct w49 t67765; struct w49 t67766; h9769: /* x86875 stalin.sc:7073:243919 */ /* x86866 stalin.sc:7073:243923 */ /* x86865 stalin.sc:7073:243933 */ /* x86864 stalin.sc:7073:243942 */ t67760 = a22955; /* x86863 stalin.sc:7073:243934 */ a41431 = t67760; /* x299836 stalin.sc:7008:242336 */ /* x299835 stalin.sc:7008:242344 */ t67761 = a41431; /* x299834 stalin.sc:7008:242337 */ t67759 = f9720(t67761); /* x86862 stalin.sc:7073:243924 */ if (f9739(t67759)==FALSE_TYPE) goto l11587; /* x86869 stalin.sc:7073:243946 */ /* x86868 stalin.sc:7073:243956 */ t67765 = a22955; /* x86867 stalin.sc:7073:243947 */ a41589 = t67765; /* x300468 stalin.sc:6964:241199 */ /* x300467 stalin.sc:6964:241207 */ t67766 = a41589; /* x300466 stalin.sc:6964:241200 */ return f9719(t67766); l11587: /* x86874 stalin.sc:7073:243959 */ /* x86873 stalin.sc:7073:243968 */ /* x86872 stalin.sc:7073:243977 */ t67763 = a22955; /* x86871 stalin.sc:7073:243969 */ a41430 = t67763; /* x299832 stalin.sc:7008:242336 */ /* x299831 stalin.sc:7008:242344 */ t67764 = a41430; /* x299830 stalin.sc:7008:242337 */ t67762 = f9720(t67764); /* x86870 stalin.sc:7073:243960 */ a22955 = t67762; goto h9769;} /* SX-LIST?[9766] */ unsigned f9766(struct w49 a22951) {struct w49 a41469; /* S */ struct w49 t67767; struct w49 t67768; struct w49 t67769; struct w49 t67770; struct w49 t67771; h9766: /* x86851 stalin.sc:7066:243748 */ /* x86851 stalin.sc:7066:243748 */ /* x86850 stalin.sc:7066:243752 */ /* x86849 stalin.sc:7066:243762 */ t67767 = a22951; /* x86848 stalin.sc:7066:243753 */ if (!(f9739(t67767)==FALSE_TYPE)) goto l11588; /* x86845 */ /* x86838 stalin.sc:7066:243770 */ /* x86837 stalin.sc:7066:243780 */ t67768 = a22951; /* x86836 stalin.sc:7066:243771 */ if (f9740(t67768)==FALSE_TYPE) goto l11589; /* x86843 */ /* x86842 stalin.sc:7066:243793 */ /* x86841 stalin.sc:7066:243802 */ t67770 = a22951; /* x86840 stalin.sc:7066:243794 */ a41469 = t67770; /* x299988 stalin.sc:7008:242336 */ /* x299987 stalin.sc:7008:242344 */ t67771 = a41469; /* x299986 stalin.sc:7008:242337 */ t67769 = f9720(t67771); /* x86839 stalin.sc:7066:243784 */ a22951 = t67769; goto h9766; l11588: return TRUE_TYPE; l11589: return FALSE_TYPE;} /* SX-FOR-EACH[9762] */ void f9762(struct w49 a22949) {struct w49 a41468; /* S */ struct w49 a41620; /* S */ struct w49 t67772; struct w49 t67773; struct w49 t67774; struct w49 t67775; struct w49 t67776; struct w49 t67777; struct w49 t67778; h9762: /* x86831 stalin.sc:7063:243657 */ /* x86813 stalin.sc:7063:243665 */ /* x86812 stalin.sc:7063:243675 */ t67772 = a22949; /* x86811 stalin.sc:7063:243666 */ if (f9739(t67772)==FALSE_TYPE) goto l11594; /* x86815 */ /* x86814 */ return; l11594: /* x86830 */ /* x86829 */ /* x86828 */ /* x86827 stalin.sc:7063:243678 */ /* x86826 stalin.sc:7063:243681 */ /* x86825 stalin.sc:7063:243691 */ t67777 = a22949; /* x86824 stalin.sc:7063:243682 */ a41620 = t67777; /* x300592 stalin.sc:6964:241199 */ /* x300591 stalin.sc:6964:241207 */ t67778 = a41620; /* x300590 stalin.sc:6964:241200 */ t67776 = f9719(t67778); /* x86823 stalin.sc:7063:243679 */ f9919(t67776); /* x86822 */ /* x86821 stalin.sc:7063:243695 */ /* x86817 stalin.sc:7063:243708 */ /* x86820 stalin.sc:7063:243710 */ /* x86819 stalin.sc:7063:243719 */ t67774 = a22949; /* x86818 stalin.sc:7063:243711 */ a41468 = t67774; /* x299984 stalin.sc:7008:242336 */ /* x299983 stalin.sc:7008:242344 */ t67775 = a41468; /* x299982 stalin.sc:7008:242337 */ t67773 = f9720(t67775); /* x86816 stalin.sc:7063:243696 */ a22949 = t67773; goto h9762;} /* SX-EVERY[9758] */ unsigned f9758(unsigned a22942, struct w49 a22943) {struct w49 a22969; /* S */ struct w49 a32247; /* S */ struct w49 a32249; /* S */ struct w49 a32260; /* S */ struct w49 a32274; /* S */ struct w49 a32276; /* S */ struct w49 a32280; /* S */ struct w49 a32286; /* S */ struct w49 a32293; /* S */ struct w49 a32420; /* ELEMENT */ struct w49 a32427; /* ELEMENT */ struct w49 a32455; /* L */ struct w49 a32461; /* L */ struct w49 a32463; /* L */ struct w49 a32545; /* S */ struct w49 a41370; /* S */ struct w49 a41371; /* S */ struct w49 a41372; /* S */ struct w49 a41373; /* S */ struct w49 a41374; /* S */ struct w49 a41375; /* S */ struct w49 a41466; /* S */ struct w49 a41490; /* S */ struct w49 a41544; /* S */ struct w49 a41545; /* S */ struct w49 a41546; /* S */ struct w49 a41548; /* S */ struct w49 a41549; /* S */ struct w49 a41550; /* S */ struct w49 a41552; /* S */ struct w49 a41553; /* S */ struct w49 a41554; /* S */ struct w49 a41616; /* S */ struct w49 t67779; unsigned t67780; struct w49 t67781; struct w49 t67782; char *t67783; struct w49 t67784; struct w49 t67785; char *t67786; struct w49 t67787; struct w49 t67788; char *t67789; struct w49 t67790; struct w49 t67791; char *t67792; struct w49 t67793; struct w49 t67794; char *t67795; struct w49 t67796; struct w49 t67797; char *t67798; struct w49 t67799; struct w49 t67800; char *t67801; struct w49 t67802; struct w49 t67803; char *t67804; struct w49 t67805; struct w49 t67806; char *t67807; struct w49 t67808; struct w49 t67809; char *t67810; struct w49 t67811; struct w49 t67812; char *t67813; struct w49 t67814; struct w49 t67815; char *t67816; struct w49 t67817; struct w49 t67818; char *t67819; struct w49 t67820; struct w49 t67821; char *t67822; struct w49 t67823; struct w49 t67824; char *t67825; struct w49 t67826; struct w49 t67827; struct w49 t67828; int t67829; int t67830; struct w49 t67831; struct w49 t67832; char *t67833; struct w49 t67834; struct w49 t67835; int t67836; int t67837; struct w49 t67838; struct w49 t67839; struct w49 t67840; int t67841; int t67842; struct w49 t67843; struct w49 t67844; struct w49 t67845; int t67846; int t67847; struct w49 t67848; struct w49 t67849; struct w49 t67850; int t67851; int t67852; struct w49 t67853; struct w49 t67854; int t67855; int t67856; struct w49 t67857; int t67858; int t67859; struct w49 t67860; struct w49 t67861; struct w49 t67862; int t67863; int t67864; struct w49 t67865; struct w49 t67866; struct w49 t67867; struct w49 t67868; int t67869; int t67870; struct w49 t67871; struct w49 t67872; struct w49 t67873; struct w49 t67874; int t67875; int t67876; struct w49 t67877; int t67878; int t67879; struct w49 t67880; struct w49 t67881; int t67882; int t67883; struct w49 t67884; struct w49 t67885; char *t67886; struct w49 t67887; struct w49 t67888; struct w49 t67889; struct w49 t67890; char *t67891; struct w49 t67892; struct w49 t67893; struct w49 t67894; int t67895; int t67896; struct w49 t67897; struct w49 t67898; unsigned t67899; struct w49 t67900; struct w49 t67901; struct w49 t67902; char *t67903; struct w49 t67904; struct w49 t67905; struct w49 t67906; struct w49 t67907; char *t67908; struct w49 t67909; struct w49 t67910; struct w49 t67911; int t67912; int t67913; struct w49 t67914; struct w49 t67915; unsigned t67916; struct w49 t67917; struct w49 t67918; struct w49 t67919; char *t67920; struct w49 t67921; struct w49 t67922; struct w49 t67923; struct w49 t67924; char *t67925; struct w49 t67926; struct w49 t67927; struct w49 t67928; int t67929; int t67930; struct w49 t67931; struct w49 t67932; struct w49 t67933; struct w49 t67934; char *t67935; struct w49 t67936; struct w49 t67937; struct w49 t67938; int t67939; int t67940; struct w49 t67941; struct w49 t67942; struct w49 t67943; struct w49 t67944; int t67945; int t67946; struct w49 t67947; struct w49 t67948; struct w49 t67949; struct w49 t67950; struct w49 t67951; struct w49 t67952; struct w49 t67953; unsigned t67954; struct w49 t67955; struct w49 t67956; struct w49 t67957; struct w49 t67958; struct w49 t67959; int t67960; int t67961; struct w49 t67962; struct w49 t67963; struct w49 t67964; struct w49 t67965; struct w49 t67966; struct w49 t67967; struct w49 t67968; unsigned t67969; struct w49 t67970; struct w49 t67971; struct w49 t67972; struct w49 t67973; struct w49 t67974; int t67975; int t67976; struct w49 t67977; struct w49 t67978; struct w49 t67979; struct w49 t67980; struct w49 t67981; struct w49 t67982; unsigned t67983; struct w49 t67984; struct w49 t67985; struct w49 t67986; h9758: /* x86783 stalin.sc:7055:243428 */ /* x86783 stalin.sc:7055:243428 */ /* x86782 stalin.sc:7055:243432 */ /* x86781 stalin.sc:7055:243442 */ t67779 = a22943; /* x86780 stalin.sc:7055:243433 */ if (!(f9739(t67779)==FALSE_TYPE)) goto l11595; /* x86777 */ /* x86769 stalin.sc:7055:243450 */ /* x86768 stalin.sc:7055:243453 */ /* x86767 stalin.sc:7055:243463 */ t67981 = a22943; /* x86766 stalin.sc:7055:243454 */ a41616 = t67981; /* x300576 stalin.sc:6964:241199 */ /* x300575 stalin.sc:6964:241207 */ t67982 = a41616; /* x300574 stalin.sc:6964:241200 */ t67781 = f9719(t67982); /* x86765 stalin.sc:7055:243451 */ t67780 = a22942; switch (t67780) {case NATIVE_PROCEDURE_TYPE5994: if (f18346(t67781)==FALSE_TYPE) goto l11596; break; case NATIVE_PROCEDURE_TYPE7144: a22969 = t67781; /* x87182 stalin.sc:7116:245233 */ /* x87181 stalin.sc:7116:245237 */ /* x87179 stalin.sc:7116:245245 */ t67782 = a22969; /* x87180 stalin.sc:7116:245247 */ t67783 = q56; /* x87178 stalin.sc:7116:245238 */ t67784.tag = EXTERNAL_SYMBOL_TYPE; t67784.value.external_symbol_type = t67783; if (!(f9745(t67782, t67784)==FALSE_TYPE)) goto l11599; /* x87175 */ /* x87174 stalin.sc:7117:245259 */ /* x87172 stalin.sc:7117:245267 */ t67785 = a22969; /* x87173 stalin.sc:7117:245269 */ t67786 = q92; /* x87171 stalin.sc:7117:245260 */ t67787.tag = EXTERNAL_SYMBOL_TYPE; t67787.value.external_symbol_type = t67786; if (!(f9745(t67785, t67787)==FALSE_TYPE)) goto l11599; /* x87168 */ /* x87167 stalin.sc:7118:245288 */ /* x87165 stalin.sc:7118:245296 */ t67788 = a22969; /* x87166 stalin.sc:7118:245298 */ t67789 = q91; /* x87164 stalin.sc:7118:245289 */ t67790.tag = EXTERNAL_SYMBOL_TYPE; t67790.value.external_symbol_type = t67789; if (!(f9745(t67788, t67790)==FALSE_TYPE)) goto l11599; /* x87161 */ /* x87160 stalin.sc:7119:245319 */ /* x87158 stalin.sc:7119:245327 */ t67791 = a22969; /* x87159 stalin.sc:7119:245329 */ t67792 = q90; /* x87157 stalin.sc:7119:245320 */ t67793.tag = EXTERNAL_SYMBOL_TYPE; t67793.value.external_symbol_type = t67792; if (!(f9745(t67791, t67793)==FALSE_TYPE)) goto l11599; /* x87154 */ /* x87153 stalin.sc:7120:245342 */ /* x87151 stalin.sc:7120:245350 */ t67794 = a22969; /* x87152 stalin.sc:7120:245352 */ t67795 = q89; /* x87150 stalin.sc:7120:245343 */ t67796.tag = EXTERNAL_SYMBOL_TYPE; t67796.value.external_symbol_type = t67795; if (!(f9745(t67794, t67796)==FALSE_TYPE)) goto l11599; /* x87147 */ /* x87146 stalin.sc:7121:245374 */ /* x87144 stalin.sc:7121:245382 */ t67797 = a22969; /* x87145 stalin.sc:7121:245384 */ t67798 = q88; /* x87143 stalin.sc:7121:245375 */ t67799.tag = EXTERNAL_SYMBOL_TYPE; t67799.value.external_symbol_type = t67798; if (!(f9745(t67797, t67799)==FALSE_TYPE)) goto l11599; /* x87140 */ /* x87139 stalin.sc:7122:245395 */ /* x87137 stalin.sc:7122:245403 */ t67800 = a22969; /* x87138 stalin.sc:7122:245405 */ t67801 = q87; /* x87136 stalin.sc:7122:245396 */ t67802.tag = EXTERNAL_SYMBOL_TYPE; t67802.value.external_symbol_type = t67801; if (!(f9745(t67800, t67802)==FALSE_TYPE)) goto l11599; /* x87133 */ /* x87132 stalin.sc:7123:245421 */ /* x87130 stalin.sc:7123:245429 */ t67803 = a22969; /* x87131 stalin.sc:7123:245431 */ t67804 = q86; /* x87129 stalin.sc:7123:245422 */ t67805.tag = EXTERNAL_SYMBOL_TYPE; t67805.value.external_symbol_type = t67804; if (!(f9745(t67803, t67805)==FALSE_TYPE)) goto l11599; /* x87126 */ /* x87125 stalin.sc:7124:245443 */ /* x87123 stalin.sc:7124:245451 */ t67806 = a22969; /* x87124 stalin.sc:7124:245453 */ t67807 = q85; /* x87122 stalin.sc:7124:245444 */ t67808.tag = EXTERNAL_SYMBOL_TYPE; t67808.value.external_symbol_type = t67807; if (!(f9745(t67806, t67808)==FALSE_TYPE)) goto l11599; /* x87119 */ /* x87118 stalin.sc:7125:245474 */ /* x87116 stalin.sc:7125:245482 */ t67809 = a22969; /* x87117 stalin.sc:7125:245484 */ t67810 = q84; /* x87115 stalin.sc:7125:245475 */ t67811.tag = EXTERNAL_SYMBOL_TYPE; t67811.value.external_symbol_type = t67810; if (!(f9745(t67809, t67811)==FALSE_TYPE)) goto l11599; /* x87112 */ /* x87111 stalin.sc:7126:245497 */ /* x87109 stalin.sc:7126:245505 */ t67812 = a22969; /* x87110 stalin.sc:7126:245507 */ t67813 = q14; /* x87108 stalin.sc:7126:245498 */ t67814.tag = EXTERNAL_SYMBOL_TYPE; t67814.value.external_symbol_type = t67813; if (!(f9745(t67812, t67814)==FALSE_TYPE)) goto l11599; /* x87105 */ /* x87104 stalin.sc:7127:245521 */ /* x87102 stalin.sc:7127:245529 */ t67815 = a22969; /* x87103 stalin.sc:7127:245531 */ t67816 = q83; /* x87101 stalin.sc:7127:245522 */ t67817.tag = EXTERNAL_SYMBOL_TYPE; t67817.value.external_symbol_type = t67816; if (!(f9745(t67815, t67817)==FALSE_TYPE)) goto l11599; /* x87098 */ /* x87097 stalin.sc:7128:245550 */ /* x87095 stalin.sc:7128:245558 */ t67818 = a22969; /* x87096 stalin.sc:7128:245560 */ t67819 = q82; /* x87094 stalin.sc:7128:245551 */ t67820.tag = EXTERNAL_SYMBOL_TYPE; t67820.value.external_symbol_type = t67819; if (!(f9745(t67818, t67820)==FALSE_TYPE)) goto l11599; /* x87091 */ /* x87090 stalin.sc:7129:245573 */ /* x87088 stalin.sc:7129:245581 */ t67821 = a22969; /* x87089 stalin.sc:7129:245583 */ t67822 = q81; /* x87087 stalin.sc:7129:245574 */ t67823.tag = EXTERNAL_SYMBOL_TYPE; t67823.value.external_symbol_type = t67822; if (!(f9745(t67821, t67823)==FALSE_TYPE)) goto l11599; /* x87084 */ /* x87082 stalin.sc:7130:245604 */ t67824 = a22969; /* x87083 stalin.sc:7130:245606 */ t67825 = q80; /* x87081 stalin.sc:7130:245597 */ t67826.tag = EXTERNAL_SYMBOL_TYPE; t67826.value.external_symbol_type = t67825; if (f9745(t67824, t67826)==FALSE_TYPE) goto l11596; break; case NATIVE_PROCEDURE_TYPE7167: if (f9741(t67781)==FALSE_TYPE) goto l11596; break; case NATIVE_PROCEDURE_TYPE14206: a32247 = t67781; /* x170704 stalin.sc:24992:863856 */ /* x170699 stalin.sc:24992:863861 */ /* x170698 stalin.sc:24992:863871 */ t67827 = a32247; /* x170697 stalin.sc:24992:863862 */ if (f9766(t67827)==FALSE_TYPE) goto l11596; /* x170702 */ /* x170701 stalin.sc:24992:863884 */ t67828 = a32247; /* x170700 stalin.sc:24992:863875 */ if (f9740(t67828)==FALSE_TYPE) goto l11596; break; case NATIVE_PROCEDURE_TYPE14210: a32249 = t67781; /* x170742 stalin.sc:24996:863977 */ /* x170741 stalin.sc:24996:863981 */ /* x170739 stalin.sc:24996:863984 */ /* x170738 stalin.sc:24996:863995 */ t67831 = a32249; /* x170737 stalin.sc:24996:863985 */ t67829 = f9734(t67831); /* x170740 stalin.sc:24996:863998 */ t67830 = 2; /* x267987 stalin.sc:24996:863982 */ if (t67829=t67883)) goto l11596; /* x218206 */ /* x218205 stalin.sc:30102:1037093 */ /* x218154 stalin.sc:30102:1037098 */ /* x218153 stalin.sc:30102:1037102 */ /* x218151 stalin.sc:30102:1037110 */ /* x218150 stalin.sc:30102:1037120 */ t67888 = a32455; /* x218149 stalin.sc:30102:1037111 */ a41554 = t67888; /* x300328 stalin.sc:6964:241199 */ /* x300327 stalin.sc:6964:241207 */ t67889 = a41554; /* x300326 stalin.sc:6964:241200 */ t67885 = f9719(t67889); /* x218152 stalin.sc:30102:1037123 */ t67886 = q747; /* x218148 stalin.sc:30102:1037103 */ t67887.tag = EXTERNAL_SYMBOL_TYPE; t67887.value.external_symbol_type = t67886; if (!(f9745(t67885, t67887)==FALSE_TYPE)) goto l11635; /* x218145 */ /* x218143 stalin.sc:30103:1037151 */ /* x218142 stalin.sc:30103:1037161 */ t67893 = a32455; /* x218141 stalin.sc:30103:1037152 */ a41553 = t67893; /* x300324 stalin.sc:6964:241199 */ /* x300323 stalin.sc:6964:241207 */ t67894 = a41553; /* x300322 stalin.sc:6964:241200 */ t67890 = f9719(t67894); /* x218144 stalin.sc:30103:1037164 */ t67891 = q746; /* x218140 stalin.sc:30103:1037144 */ t67892.tag = EXTERNAL_SYMBOL_TYPE; t67892.value.external_symbol_type = t67891; if (f9745(t67890, t67892)==FALSE_TYPE) goto l11634; l11635: /* x218203 */ /* x218160 stalin.sc:30104:1037188 */ /* x218158 stalin.sc:30104:1037192 */ /* x218157 stalin.sc:30104:1037203 */ t67897 = a32455; /* x218156 stalin.sc:30104:1037193 */ t67895 = f9734(t67897); /* x218159 stalin.sc:30104:1037206 */ t67896 = 2; /* x267922 stalin.sc:30104:1037189 */ if (!(t67895>=t67896)) goto l11634; /* x218201 */ /* x218197 stalin.sc:30106:1037231 */ /* x218200 stalin.sc:30113:1037444 */ /* x218199 stalin.sc:30113:1037453 */ t67900 = a32455; /* x218198 stalin.sc:30113:1037445 */ a41375 = t67900; /* x299612 stalin.sc:7008:242336 */ /* x299611 stalin.sc:7008:242344 */ t67901 = a41375; /* x299610 stalin.sc:7008:242337 */ t67898 = f9720(t67901); /* x218161 stalin.sc:30105:1037219 */ t67899 = NATIVE_PROCEDURE_TYPE14572; if (!(f9758(t67899, t67898)==FALSE_TYPE)) goto l11599; l11634: /* x218135 */ /* x218134 stalin.sc:30114:1037462 */ /* x218083 stalin.sc:30114:1037467 */ /* x218082 stalin.sc:30114:1037471 */ /* x218080 stalin.sc:30114:1037479 */ /* x218079 stalin.sc:30114:1037489 */ t67905 = a32455; /* x218078 stalin.sc:30114:1037480 */ a41550 = t67905; /* x300312 stalin.sc:6964:241199 */ /* x300311 stalin.sc:6964:241207 */ t67906 = a41550; /* x300310 stalin.sc:6964:241200 */ t67902 = f9719(t67906); /* x218081 stalin.sc:30114:1037492 */ t67903 = q745; /* x218077 stalin.sc:30114:1037472 */ t67904.tag = EXTERNAL_SYMBOL_TYPE; t67904.value.external_symbol_type = t67903; if (!(f9745(t67902, t67904)==FALSE_TYPE)) goto l11639; /* x218074 */ /* x218072 stalin.sc:30115:1037521 */ /* x218071 stalin.sc:30115:1037531 */ t67910 = a32455; /* x218070 stalin.sc:30115:1037522 */ a41549 = t67910; /* x300308 stalin.sc:6964:241199 */ /* x300307 stalin.sc:6964:241207 */ t67911 = a41549; /* x300306 stalin.sc:6964:241200 */ t67907 = f9719(t67911); /* x218073 stalin.sc:30115:1037534 */ t67908 = q744; /* x218069 stalin.sc:30115:1037514 */ t67909.tag = EXTERNAL_SYMBOL_TYPE; t67909.value.external_symbol_type = t67908; if (f9745(t67907, t67909)==FALSE_TYPE) goto l11638; l11639: /* x218132 */ /* x218089 stalin.sc:30116:1037557 */ /* x218087 stalin.sc:30116:1037561 */ /* x218086 stalin.sc:30116:1037572 */ t67914 = a32455; /* x218085 stalin.sc:30116:1037562 */ t67912 = f9734(t67914); /* x218088 stalin.sc:30116:1037575 */ t67913 = 2; /* x267924 stalin.sc:30116:1037558 */ if (!(t67912>=t67913)) goto l11638; /* x218130 */ /* x218126 stalin.sc:30118:1037600 */ /* x218129 stalin.sc:30125:1037813 */ /* x218128 stalin.sc:30125:1037822 */ t67917 = a32455; /* x218127 stalin.sc:30125:1037814 */ a41372 = t67917; /* x299600 stalin.sc:7008:242336 */ /* x299599 stalin.sc:7008:242344 */ t67918 = a41372; /* x299598 stalin.sc:7008:242337 */ t67915 = f9720(t67918); /* x218090 stalin.sc:30117:1037588 */ t67916 = NATIVE_PROCEDURE_TYPE14575; if (!(f9758(t67916, t67915)==FALSE_TYPE)) goto l11599; l11638: /* x218064 */ /* x218063 stalin.sc:30126:1037831 */ /* x218048 stalin.sc:30126:1037836 */ /* x218047 stalin.sc:30126:1037840 */ /* x218045 stalin.sc:30126:1037848 */ /* x218044 stalin.sc:30126:1037858 */ t67922 = a32455; /* x218043 stalin.sc:30126:1037849 */ a41546 = t67922; /* x300296 stalin.sc:6964:241199 */ /* x300295 stalin.sc:6964:241207 */ t67923 = a41546; /* x300294 stalin.sc:6964:241200 */ t67919 = f9719(t67923); /* x218046 stalin.sc:30126:1037861 */ t67920 = q743; /* x218042 stalin.sc:30126:1037841 */ t67921.tag = EXTERNAL_SYMBOL_TYPE; t67921.value.external_symbol_type = t67920; if (!(f9745(t67919, t67921)==FALSE_TYPE)) goto l11643; /* x218039 */ /* x218037 stalin.sc:30127:1037886 */ /* x218036 stalin.sc:30127:1037896 */ t67927 = a32455; /* x218035 stalin.sc:30127:1037887 */ a41545 = t67927; /* x300292 stalin.sc:6964:241199 */ /* x300291 stalin.sc:6964:241207 */ t67928 = a41545; /* x300290 stalin.sc:6964:241200 */ t67924 = f9719(t67928); /* x218038 stalin.sc:30127:1037899 */ t67925 = q742; /* x218034 stalin.sc:30127:1037879 */ t67926.tag = EXTERNAL_SYMBOL_TYPE; t67926.value.external_symbol_type = t67925; if (f9745(t67924, t67926)==FALSE_TYPE) goto l11642; l11643: /* x218061 */ /* x218054 stalin.sc:30128:1037916 */ /* x218052 stalin.sc:30128:1037919 */ /* x218051 stalin.sc:30128:1037930 */ t67931 = a32455; /* x218050 stalin.sc:30128:1037920 */ t67929 = f9734(t67931); /* x218053 stalin.sc:30128:1037933 */ t67930 = 2; /* x267925 stalin.sc:30128:1037917 */ if (!(t67929==t67930)) goto l11642; /* x218059 */ /* x218058 stalin.sc:30129:1037972 */ /* x218057 stalin.sc:30129:1037983 */ t67933 = a32455; /* x218056 stalin.sc:30129:1037973 */ t67932 = f9722(t67933); /* x218055 stalin.sc:30129:1037946 */ if (!(f18522(t67932)==FALSE_TYPE)) goto l11599; l11642: /* x218029 */ /* x218014 stalin.sc:30130:1037997 */ /* x218012 stalin.sc:30130:1038005 */ /* x218011 stalin.sc:30130:1038015 */ t67937 = a32455; /* x218010 stalin.sc:30130:1038006 */ a41544 = t67937; /* x300288 stalin.sc:6964:241199 */ /* x300287 stalin.sc:6964:241207 */ t67938 = a41544; /* x300286 stalin.sc:6964:241200 */ t67934 = f9719(t67938); /* x218013 stalin.sc:30130:1038018 */ t67935 = q741; /* x218009 stalin.sc:30130:1037998 */ t67936.tag = EXTERNAL_SYMBOL_TYPE; t67936.value.external_symbol_type = t67935; if (f9745(t67934, t67936)==FALSE_TYPE) goto l11596; /* x218027 */ /* x218020 stalin.sc:30131:1038038 */ /* x218018 stalin.sc:30131:1038041 */ /* x218017 stalin.sc:30131:1038052 */ t67941 = a32455; /* x218016 stalin.sc:30131:1038042 */ t67939 = f9734(t67941); /* x218019 stalin.sc:30131:1038055 */ t67940 = 2; /* x267926 stalin.sc:30131:1038039 */ if (!(t67939==t67940)) goto l11596; /* x218025 */ /* x218024 stalin.sc:30132:1038094 */ /* x218023 stalin.sc:30132:1038105 */ t67943 = a32455; /* x218022 stalin.sc:30132:1038095 */ t67942 = f9722(t67943); /* x218021 stalin.sc:30132:1038068 */ if (f18521(t67942)==FALSE_TYPE) goto l11596; break; case NATIVE_PROCEDURE_TYPE14572: a32463 = t67781; /* x218196 stalin.sc:30107:1037247 */ /* x218164 stalin.sc:30107:1037252 */ /* x218163 stalin.sc:30107:1037262 */ t67944 = a32463; /* x218162 stalin.sc:30107:1037253 */ if (f9766(t67944)==FALSE_TYPE) goto l11596; /* x218194 */ /* x218170 stalin.sc:30108:1037274 */ /* x218168 stalin.sc:30108:1037278 */ /* x218167 stalin.sc:30108:1037289 */ t67947 = a32463; /* x218166 stalin.sc:30108:1037279 */ t67945 = f9734(t67947); /* x218169 stalin.sc:30108:1037292 */ t67946 = 2; /* x267921 stalin.sc:30108:1037275 */ if (!(t67945>=t67946)) goto l11596; /* x218192 */ /* x218175 stalin.sc:30109:1037304 */ /* x218174 stalin.sc:30109:1037316 */ /* x218173 stalin.sc:30109:1037326 */ t67949 = a32463; /* x218172 stalin.sc:30109:1037317 */ a41552 = t67949; /* x300320 stalin.sc:6964:241199 */ /* x300319 stalin.sc:6964:241207 */ t67950 = a41552; /* x300318 stalin.sc:6964:241200 */ t67948 = f9719(t67950); /* x218171 stalin.sc:30109:1037305 */ if (f9742(t67948)==FALSE_TYPE) goto l11596; /* x218190 */ /* x218180 stalin.sc:30110:1037339 */ /* x218179 stalin.sc:30110:1037351 */ /* x218178 stalin.sc:30110:1037362 */ t67952 = a32463; /* x218177 stalin.sc:30110:1037352 */ t67951 = f9722(t67952); /* x218176 stalin.sc:30110:1037340 */ if (f9741(t67951)==FALSE_TYPE) goto l11596; /* x218188 */ /* x218182 stalin.sc:30111:1037385 */ /* x218187 stalin.sc:30112:1037416 */ /* x218186 stalin.sc:30112:1037425 */ /* x218185 stalin.sc:30112:1037434 */ t67957 = a32463; /* x218184 stalin.sc:30112:1037426 */ a41374 = t67957; /* x299608 stalin.sc:7008:242336 */ /* x299607 stalin.sc:7008:242344 */ t67958 = a41374; /* x299606 stalin.sc:7008:242337 */ t67955 = f9720(t67958); /* x218183 stalin.sc:30112:1037417 */ a41373 = t67955; /* x299604 stalin.sc:7008:242336 */ /* x299603 stalin.sc:7008:242344 */ t67956 = a41373; /* x299602 stalin.sc:7008:242337 */ t67953 = f9720(t67956); /* x218181 stalin.sc:30111:1037376 */ t67954 = NATIVE_PROCEDURE_TYPE14555; if (f9758(t67954, t67953)==FALSE_TYPE) goto l11596; break; case NATIVE_PROCEDURE_TYPE14575: a32461 = t67781; /* x218125 stalin.sc:30119:1037616 */ /* x218093 stalin.sc:30119:1037621 */ /* x218092 stalin.sc:30119:1037631 */ t67959 = a32461; /* x218091 stalin.sc:30119:1037622 */ if (f9766(t67959)==FALSE_TYPE) goto l11596; /* x218123 */ /* x218099 stalin.sc:30120:1037643 */ /* x218097 stalin.sc:30120:1037647 */ /* x218096 stalin.sc:30120:1037658 */ t67962 = a32461; /* x218095 stalin.sc:30120:1037648 */ t67960 = f9734(t67962); /* x218098 stalin.sc:30120:1037661 */ t67961 = 2; /* x267923 stalin.sc:30120:1037644 */ if (!(t67960>=t67961)) goto l11596; /* x218121 */ /* x218104 stalin.sc:30121:1037673 */ /* x218103 stalin.sc:30121:1037685 */ /* x218102 stalin.sc:30121:1037695 */ t67964 = a32461; /* x218101 stalin.sc:30121:1037686 */ a41548 = t67964; /* x300304 stalin.sc:6964:241199 */ /* x300303 stalin.sc:6964:241207 */ t67965 = a41548; /* x300302 stalin.sc:6964:241200 */ t67963 = f9719(t67965); /* x218100 stalin.sc:30121:1037674 */ if (f9742(t67963)==FALSE_TYPE) goto l11596; /* x218119 */ /* x218109 stalin.sc:30122:1037708 */ /* x218108 stalin.sc:30122:1037720 */ /* x218107 stalin.sc:30122:1037731 */ t67967 = a32461; /* x218106 stalin.sc:30122:1037721 */ t67966 = f9722(t67967); /* x218105 stalin.sc:30122:1037709 */ if (f9741(t67966)==FALSE_TYPE) goto l11596; /* x218117 */ /* x218111 stalin.sc:30123:1037754 */ /* x218116 stalin.sc:30124:1037785 */ /* x218115 stalin.sc:30124:1037794 */ /* x218114 stalin.sc:30124:1037803 */ t67972 = a32461; /* x218113 stalin.sc:30124:1037795 */ a41371 = t67972; /* x299596 stalin.sc:7008:242336 */ /* x299595 stalin.sc:7008:242344 */ t67973 = a41371; /* x299594 stalin.sc:7008:242337 */ t67970 = f9720(t67973); /* x218112 stalin.sc:30124:1037786 */ a41370 = t67970; /* x299592 stalin.sc:7008:242336 */ /* x299591 stalin.sc:7008:242344 */ t67971 = a41370; /* x299590 stalin.sc:7008:242337 */ t67968 = f9720(t67971); /* x218110 stalin.sc:30123:1037745 */ t67969 = NATIVE_PROCEDURE_TYPE14554; if (f9758(t67969, t67968)==FALSE_TYPE) goto l11596; break; default: a32427 = t67781; /* x207164 stalin.sc:28603:982897 */ /* x207149 stalin.sc:28603:982902 */ /* x207148 stalin.sc:28603:982912 */ t67974 = a32427; /* x207147 stalin.sc:28603:982903 */ if (f9766(t67974)==FALSE_TYPE) goto l11596; /* x207162 */ /* x207155 stalin.sc:28604:982929 */ /* x207153 stalin.sc:28604:982932 */ /* x207152 stalin.sc:28604:982943 */ t67977 = a32427; /* x207151 stalin.sc:28604:982933 */ t67975 = f9734(t67977); /* x207154 stalin.sc:28604:982952 */ t67976 = 2; /* x267931 stalin.sc:28604:982930 */ if (!(t67975==t67976)) goto l11596; /* x207160 */ /* x207159 stalin.sc:28605:982975 */ /* x207158 stalin.sc:28605:982985 */ t67979 = a32427; /* x207157 stalin.sc:28605:982976 */ a41490 = t67979; /* x300072 stalin.sc:6964:241199 */ /* x300071 stalin.sc:6964:241207 */ t67980 = a41490; /* x300070 stalin.sc:6964:241200 */ t67978 = f9719(t67980); /* x207156 stalin.sc:28605:982964 */ if (f9741(t67978)==FALSE_TYPE) goto l11596;} l11599: /* x86775 */ /* x86771 stalin.sc:7055:243477 */ t67983 = a22942; /* x86774 stalin.sc:7055:243479 */ /* x86773 stalin.sc:7055:243488 */ t67985 = a22943; /* x86772 stalin.sc:7055:243480 */ a41466 = t67985; /* x299976 stalin.sc:7008:242336 */ /* x299975 stalin.sc:7008:242344 */ t67986 = a41466; /* x299974 stalin.sc:7008:242337 */ t67984 = f9720(t67986); /* x86770 stalin.sc:7055:243468 */ a22942 = t67983; a22943 = t67984; goto h9758; l11595: return TRUE_TYPE; l11596: return FALSE_TYPE;} /* SX-MAP[9753] */ struct w12224 f9753(struct w198746 a22936, struct w49 a22937) {struct w49 a22940; /* S */ struct structure_type24753 *a22941; /* C */ struct w49 a22960; /* S */ struct w49 a23099; /* S */ struct w49 a23100; /* S */ struct w49 a32227; /* S */ struct w49 a32228; /* SS */ struct w49 a32257; /* S */ struct w49 a32258; /* S */ struct w49 a32259; /* S */ struct w49 a32271; /* S */ struct w49 a32272; /* S */ struct w49 a32284; /* S */ struct w49 a32292; /* S */ struct w49 a32419; /* ELEMENT */ struct w49 a32424; /* ELEMENT */ struct w49 a32499; /* L */ struct w49 a32500; /* L */ struct w49 a32502; /* L */ struct w49 a32503; /* L */ struct w49 a32510; /* L */ struct w49 a32511; /* L */ struct w49 a32513; /* L1 */ struct w49 a32514; /* L */ struct w49 a32544; /* S */ struct structure_type24753 *a35242; /* OBJS */ struct structure_type24753 *a35243; /* OBJS */ struct structure_type24753 *a35246; /* OBJS */ struct structure_type24753 *a35247; /* OBJS */ struct structure_type24753 *a35248; /* OBJS */ struct structure_type24753 *a35249; /* OBJS */ struct w49 a41094; /* S */ struct w49 a41095; /* S */ struct w49 a41303; /* S */ struct w49 a41338; /* S */ struct w49 a41339; /* S */ struct w49 a41342; /* S */ struct w49 a41343; /* S */ struct w49 a41350; /* S */ struct w49 a41351; /* S */ struct w49 a41354; /* S */ struct w49 a41355; /* S */ struct w49 a41356; /* S */ struct w49 a41427; /* S */ struct w49 a41464; /* S */ struct w49 a41487; /* S */ struct w49 a41488; /* S */ struct w49 a41489; /* S */ struct w49 a41505; /* S */ struct w49 a41507; /* S */ struct w49 a41518; /* S */ struct w49 a41519; /* S */ struct w49 a41520; /* S */ struct w49 a41522; /* S */ struct w49 a41523; /* S */ struct w49 a41524; /* S */ struct w49 a41581; /* S */ struct w49 a41582; /* S */ struct w49 a41585; /* S */ struct w49 a41603; /* S */ struct w49 a41605; /* S */ struct w49 a41606; /* S */ struct w49 a41609; /* S */ struct w49 a41615; /* S */ struct w49 a42398; /* S */ struct w49 a42399; /* S */ struct w49 t67987; struct w49 t67988; struct w49 t67989; struct structure_type24753 *t67990; struct w49 t67991; struct w49 t67992; struct w49 t67993; struct structure_type24753 *t67994; struct w198746 t67995; struct w49 t67996; char *t67997; struct w49 t67998; struct w49 t67999; struct w49 t68000; char *t68001; struct w49 t68002; struct w49 t68003; struct w49 t68004; struct w49 t68005; struct w49 t68006; struct w49 t68007; struct w49 t68008; struct w49 t68009; struct w49 t68010; struct structure_type27510 *t68011; struct w49 t68012; struct w49 t68013; struct w49 t68014; struct w228245 t68015; struct w49 t68016; struct structure_type24753 *t68017; struct w49 t68018; struct structure_type24753 *t68019; struct w49 t68020; char *t68021; struct w49 t68022; struct w49 t68023; struct w49 t68024; struct structure_type24753 *t68025; struct w49 t68026; struct w49 t68027; struct w49 t68028; struct w49 t68029; struct w49 t68030; struct w49 t68031; struct w49 t68032; struct w49 t68036; struct w49 t68037; struct w49 t68038; struct w49 t68039; struct w49 t68040; struct structure_type24753 *t68041; struct w49 t68042; struct structure_type24753 *t68043; struct w49 t68044; struct w49 t68045; struct w49 t68050; struct structure_type24753 *t68051; struct w49 t68052; struct structure_type24753 *t68053; int t68058; int t68059; struct w49 t68060; struct w49 t68061; struct w49 t68062; struct w49 t68063; struct structure_type24753 *t68064; struct w49 t68065; struct w49 t68066; struct structure_type24753 *t68067; char *t68068; struct w49 t68069; struct w49 t68070; struct w12224 t68071; struct structure_type24753 *t68072; struct w49 t68073; struct p18246 *t68074; struct w49 t68075; struct w198746 t68076; struct w49 t68077; struct w49 t68078; struct w12224 t68079; struct structure_type24753 *t68080; struct w49 t68081; struct w49 t68082; struct w49 t68083; struct w49 t68084; char *t68085; struct structure_type24753 *t68086; struct w49 t68087; struct w49 t68088; struct structure_type24753 *t68089; char *t68090; struct structure_type24753 *t68091; struct w49 t68092; struct w49 t68093; struct structure_type24753 *t68094; struct w49 t68095; struct w49 t68096; char *t68097; struct structure_type24753 *t68098; struct w49 t68099; struct w49 t68100; struct w49 t68101; struct w49 t68102; char *t68103; struct structure_type24753 *t68104; struct w49 t68105; struct w49 t68106; struct structure_type24753 *t68107; char *t68108; struct structure_type24753 *t68109; struct w49 t68110; struct w49 t68111; struct structure_type24753 *t68112; struct w49 t68113; struct w49 t68114; char *t68115; struct structure_type24753 *t68116; struct w49 t68117; struct w49 t68118; struct w49 t68119; struct w49 t68120; char *t68121; struct structure_type24753 *t68122; struct w49 t68123; struct w49 t68124; struct structure_type24753 *t68125; struct w49 t68126; struct structure_type24753 *t68127; struct w49 t68128; struct w49 t68129; struct w49 t68130; struct w49 t68131; struct structure_type24753 *t68132; struct w49 t68133; struct w49 t68134; struct w49 t68135; struct structure_type24753 *t68136; struct w49 t68137; struct w49 t68138; struct structure_type24753 *t68139; struct structure_type24753 *t68140; struct w49 t68141; struct w49 t68142; char *t68143; struct structure_type24753 *t68144; struct w49 t68145; struct w49 t68146; struct structure_type24753 *t68147; struct w49 t68148; struct w49 t68149; struct structure_type24753 *t68150; struct w49 t68151; struct w49 t68152; char *t68153; struct structure_type24753 *t68154; struct w49 t68155; struct w49 t68156; struct w49 t68157; struct structure_type24753 *t68158; struct w49 t68159; struct w49 t68160; struct structure_type24753 *t68161; struct w49 t68162; struct w49 t68163; char *t68164; struct structure_type24753 *t68165; struct w49 t68166; struct w49 t68167; struct w49 t68168; struct w49 t68169; struct w49 t68170; struct structure_type24753 *t68171; struct w49 t68172; struct w49 t68173; char *t68174; struct structure_type24753 *t68175; struct w49 t68176; struct w49 t68177; struct structure_type24753 *t68178; struct w49 t68179; struct w49 t68180; struct structure_type24753 *t68181; struct structure_type24753 *t68182; struct w49 t68183; struct w49 t68184; char *t68185; struct structure_type24753 *t68186; struct w49 t68187; struct w49 t68188; struct w49 t68189; struct structure_type24753 *t68190; struct w49 t68191; struct w49 t68192; struct structure_type24753 *t68193; struct w49 t68194; struct w49 t68195; char *t68196; struct structure_type24753 *t68197; struct w49 t68198; struct w49 t68199; struct w49 t68200; struct w49 t68201; struct w49 t68202; struct structure_type24753 *t68203; struct structure_type24753 *t68204; struct w49 t68205; struct w49 t68206; struct structure_type24753 *t68208; struct w49 t68209; struct w49 t68210; struct w49 t68211; struct w49 t68212; struct w49 t68213; int t68214; int t68215; struct w49 t68216; struct w49 t68217; struct w49 t68218; struct w49 t68219; char *t68220; char *t68221; struct structure_type24753 *t68222; struct structure_type24753 *t68223; struct w49 t68224; struct w49 t68225; struct structure_type24753 *t68226; char *t68227; struct structure_type24753 *t68228; struct w49 t68229; struct w49 t68230; struct structure_type24753 *t68231; struct structure_type24753 *t68232; struct w49 t68233; struct w49 t68234; char *t68237; struct w49 t68238; struct w49 t68239; char *t68240; struct w49 t68241; struct structure_type24753 *t68242; struct w49 t68243; struct w49 t68244; struct w49 t68245; struct w49 t68246; struct w49 t68247; struct w49 t68248; struct structure_type24753 *t68249; struct structure_type24753 *t68250; struct w49 t68251; struct w49 t68252; struct structure_type24753 *t68258; struct structure_type24753 *t68259; struct w49 t68260; struct w49 t68261; char *t68262; struct structure_type24753 *t68263; struct w49 t68264; struct w49 t68265; struct structure_type24753 *t68266; struct structure_type24753 *t68267; struct w49 t68268; struct w49 t68269; char *t68270; struct w49 t68271; struct w49 t68272; struct w12224 t68273; struct structure_type24753 *t68274; struct w49 t68275; struct w49 t68276; struct w198746 t68277; struct w49 t68278; struct w49 t68279; struct w49 t68280; struct w49 t68281; struct structure_type24753 *t68284; struct w49 t68285; struct w49 t68286; char *t68287; struct structure_type24753 *t68288; struct w49 t68289; struct w49 t68290; struct w49 t68291; struct structure_type24753 *t68292; struct w49 t68293; struct w49 t68294; struct w49 t68296; struct structure_type24753 *t68297; struct structure_type24753 *t68298; struct w49 t68299; struct w12224 t68300; unsigned t68301; struct w49 t68302; struct w228463 t68303; struct w49 t68304; struct w198746 t68305; struct w49 t68306; struct w49 t68307; struct w49 t68308; struct w49 t68309; struct structure_type24753 *t68312; struct structure_type24753 *t68313; struct w49 t68314; struct w49 t68315; struct structure_type24753 *t68316; struct structure_type24753 *t68323; struct structure_type24753 *t68324; struct w49 t68325; struct w49 t68326; char *t68327; struct structure_type24753 *t68328; struct w49 t68329; struct w49 t68330; struct w49 t68331; struct structure_type24753 *t68332; struct w49 t68333; struct w49 t68334; struct w49 t68335; struct structure_type24753 *t68336; struct w49 t68337; struct w49 t68338; struct w49 t68339; struct structure_type24753 *t68340; struct w49 t68341; struct w49 t68342; struct structure_type24753 *t68353; struct structure_type24753 *t68354; struct w49 t68355; struct w49 t68356; struct structure_type24753 *t68357; char *t68358; struct structure_type24753 *t68359; struct w49 t68360; struct w49 t68361; struct structure_type24753 *t68362; struct structure_type24753 *t68363; struct w49 t68364; struct w49 t68365; char *t68368; struct w49 t68369; struct w49 t68370; char *t68371; struct w49 t68372; struct structure_type24753 *t68373; struct w49 t68374; struct w49 t68375; struct w49 t68376; struct w49 t68377; struct w49 t68378; struct w49 t68379; struct structure_type24753 *t68380; struct structure_type24753 *t68381; struct w49 t68382; struct w49 t68383; struct structure_type24753 *t68389; struct w49 t68390; struct w49 t68391; char *t68392; struct structure_type24753 *t68393; struct w49 t68394; struct w49 t68395; struct w49 t68396; struct structure_type24753 *t68397; struct w49 t68398; struct w49 t68399; struct w49 t68401; struct structure_type24753 *t68402; struct structure_type24753 *t68403; struct w49 t68404; struct w12224 t68405; unsigned t68406; struct w49 t68407; struct w228463 t68408; struct w49 t68409; struct w198746 t68410; struct w49 t68411; struct w49 t68412; struct w49 t68413; struct w49 t68414; struct structure_type24753 *t68417; struct structure_type24753 *t68418; struct w49 t68419; struct w49 t68420; struct structure_type24753 *t68421; struct structure_type24753 *t68428; struct structure_type24753 *t68429; struct w49 t68430; struct w49 t68431; char *t68432; struct structure_type24753 *t68433; struct w49 t68434; struct w49 t68435; struct w49 t68436; struct structure_type24753 *t68437; struct w49 t68438; struct w49 t68439; struct w49 t68440; struct structure_type24753 *t68441; struct w49 t68442; struct w49 t68443; char *t68444; struct structure_type24753 *t68445; struct w49 t68446; struct w49 t68447; struct structure_type24753 *t68448; struct structure_type24753 *t68449; struct w49 t68450; struct w49 t68451; struct w49 t68452; struct structure_type24753 *t68453; struct w49 t68454; struct w49 t68455; struct w49 t68460; struct w49 t68461; struct w49 t68462; struct w49 t68463; struct structure_type24753 *t68470; struct w12224 t68471; struct w49 t68472; struct w49 t68473; struct w49 t68474; struct w49 t68475; struct w198746 t68476; struct w49 t68477; struct w49 t68478; struct w49 t68479; struct w49 t68480; struct w49 t68481; struct w49 t68482; struct w49 t68483; struct w49 t68484; struct w49 t68485; struct w49 t68486; struct structure_type24753 *t68487; struct w12224 t68488; struct w49 t68489; struct w49 t68490; struct w49 t68491; struct w49 t68492; struct w198746 t68493; struct w49 t68494; struct w49 t68495; struct w49 t68496; struct w49 t68497; struct w49 t68498; struct structure_type24753 *t68499; struct w49 t68500; struct w49 t68501; struct w49 t68502; struct structure_type24753 *t68505; struct structure_type24753 *t68506; struct w49 t68507; struct w49 t68508; struct structure_type24753 *t68509; struct w49 t68510; struct w49 t68511; struct w49 t68512; struct w49 t68513; struct w49 t68514; struct w49 t68515; struct w49 t68516; struct w49 t68517; struct structure_type24753 *t68518; char *t68519; struct w49 t68520; struct structure_type27698 *t68521; struct w49 t68522; struct structure_type24753 *t68523; char *t68524; struct w49 t68525; struct structure_type27698 *t68526; struct w49 t68527; struct w49 t68528; struct structure_type24753 *t68529; struct w49 t68530; struct p9976 *p10020; struct p9976 *p10021; struct p18246 *p18248; struct p18246 *p18249; struct p18246 *p18250; struct p18486 *p18488; struct p18590 *p18598; /* x86760 stalin.sc:7049:243259 */ /* x86758 stalin.sc:7049:243273 */ t67987 = a22937; /* x86759 stalin.sc:7049:243279 */ /* x86757 */ /* x86756 */ /* x86755 */ /* x86754 */ /* x86753 */ /* x86752 */ /* x86751 */ /* x86730 */ /* x86729 stalin.sc:7049:243264 */ a22940 = t67987; a22941 = (struct structure_type24753 *)NULL_TYPE; h9756: /* x86750 stalin.sc:7051:243307 */ /* x86733 stalin.sc:7051:243311 */ /* x86732 stalin.sc:7051:243321 */ t67988 = a22940; /* x86731 stalin.sc:7051:243312 */ if (f9739(t67988)==FALSE_TYPE) goto l11659; /* x86736 stalin.sc:7051:243324 */ /* x86735 stalin.sc:7051:243333 */ t68529 = a22941; /* x86734 stalin.sc:7051:243325 */ /* MOVE: branching squeezed to general */ if (t68529>=((struct structure_type24753 *)VALUE_OFFSET)) {t68530.tag = STRUCTURE_TYPE24753; t68530.value.structure_type24753 = t68529;} else t68530.tag = (unsigned)t68529; return f26331(t68530); l11659: /* x86749 stalin.sc:7051:243336 */ /* x86740 stalin.sc:7051:243342 */ /* x86739 stalin.sc:7051:243351 */ t67991 = a22940; /* x86738 stalin.sc:7051:243343 */ a41464 = t67991; /* x299968 stalin.sc:7008:242336 */ /* x299967 stalin.sc:7008:242344 */ t67992 = a41464; /* x299966 stalin.sc:7008:242337 */ t67989 = f9720(t67992); /* x86748 stalin.sc:7051:243354 */ /* x86746 stalin.sc:7051:243360 */ /* x86745 stalin.sc:7051:243363 */ /* x86744 stalin.sc:7051:243373 */ t68527 = a22940; /* x86743 stalin.sc:7051:243364 */ a41615 = t68527; /* x300572 stalin.sc:6964:241199 */ /* x300571 stalin.sc:6964:241207 */ t68528 = a41615; /* x300570 stalin.sc:6964:241200 */ t67996 = f9719(t68528); /* x86742 stalin.sc:7051:243361 */ t67995 = a22936; switch (t67995.tag) {case NATIVE_PROCEDURE_TYPE5993: t67997 = f18386(t67996); t67993.tag = EXTERNAL_SYMBOL_TYPE; t67993.value.external_symbol_type = t67997; break; case NATIVE_PROCEDURE_TYPE6016: a32227 = t67996; h18204: /* x170138 stalin.sc:24913:861280 */ /* x170067 stalin.sc:24913:861287 */ /* x170054 stalin.sc:24913:861292 */ /* x170053 stalin.sc:24913:861302 */ t67998 = a32227; /* x170052 stalin.sc:24913:861293 */ if (f9766(t67998)==FALSE_TYPE) goto l11661; /* x170065 */ /* x170057 stalin.sc:24913:861305 */ /* x170056 stalin.sc:24913:861315 */ t67999 = a32227; /* x170055 stalin.sc:24913:861306 */ if (f9740(t67999)==FALSE_TYPE) goto l11661; /* x170063 */ /* x170061 stalin.sc:24913:861326 */ /* x170060 stalin.sc:24913:861336 */ t68003 = a32227; /* x170059 stalin.sc:24913:861327 */ a41487 = t68003; /* x300060 stalin.sc:6964:241199 */ /* x300059 stalin.sc:6964:241207 */ t68004 = a41487; /* x300058 stalin.sc:6964:241200 */ t68000 = f9719(t68004); /* x170062 stalin.sc:24913:861339 */ t68001 = q239; /* x170058 stalin.sc:24913:861319 */ t68002.tag = EXTERNAL_SYMBOL_TYPE; t68002.value.external_symbol_type = t68001; if (f9745(t68000, t68002)==FALSE_TYPE) goto l11661; /* x170109 */ /* x170108 */ /* x170107 stalin.sc:24914:861349 */ /* x170106 stalin.sc:24914:861359 */ /* x170105 stalin.sc:24914:861370 */ /* x170104 stalin.sc:24914:861379 */ t68028 = a32227; /* x170103 stalin.sc:24914:861371 */ a41303 = t68028; /* x299324 stalin.sc:7008:242336 */ /* x299323 stalin.sc:7008:242344 */ t68029 = a41303; /* x299322 stalin.sc:7008:242337 */ t68027 = f9720(t68029); /* x170102 stalin.sc:24914:861360 */ t68013 = f18210(t68027); /* x170101 */ a32228 = t68013; /* x170100 stalin.sc:24915:861387 */ /* x170087 stalin.sc:24915:861391 */ /* x170086 stalin.sc:24918:861495 */ t68014 = a32228; /* x170085 stalin.sc:24916:861405 */ /* x170068 stalin.sc:24915:861392 */ t68015.tag = NATIVE_PROCEDURE_TYPE14762; t68016 = t68014; t68017 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t68015, t68016, t68017)==FALSE_TYPE) goto l11671; /* x170088 stalin.sc:24919:861505 */ t67993 = a32228; goto l11672; l11671: /* x170099 stalin.sc:24923:861684 */ /* x170098 stalin.sc:24923:861690 */ /* x170097 stalin.sc:24923:861703 */ /* x170092 */ t68021 = q239; /* x170096 */ /* x170095 */ /* x170094 stalin.sc:24923:861713 */ t68024 = a32228; /* x170093 */ t68026.tag = STRUCTURE_TYPE24753; t68026.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68026.value.structure_type24753)==NULL) {backtrace_internal("[inside BODY 18206]"); out_of_memory_error();} t68026.value.structure_type24753->s0.tag = NULL_TYPE; t68026.value.structure_type24753->s1.tag = NULL_TYPE; t68025 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t68025==NULL) {backtrace_internal("[inside BODY 18206]"); out_of_memory_error();} t68025->s0 = t68024; t68025->s1 = t68026; t68022 = f26254(t68025); /* x170091 */ t68023.tag = EXTERNAL_SYMBOL_TYPE; t68023.value.external_symbol_type = t68021; t68019 = f26175(t68023, t68022); /* x170090 stalin.sc:24923:861691 */ t68020.tag = STRUCTURE_TYPE24753; t68020.value.structure_type24753 = t68019; t68018 = f9774(t68020); /* x170089 stalin.sc:24923:861685 */ a35242 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35242==NULL) {backtrace("stalin.sc", 24923, 861684); out_of_memory_error();} a35242->s0 = t68018; a35242->s1.tag = NULL_TYPE; /* x272491 */ t67993.tag = STRUCTURE_TYPE24753; t67993.value.structure_type24753 = a35242; l11672: goto l11662; l11661: /* x170137 */ /* x170124 stalin.sc:24924:861730 */ /* x170112 stalin.sc:24924:861735 */ /* x170111 stalin.sc:24924:861745 */ t68005 = a32227; /* x170110 stalin.sc:24924:861736 */ if (f9766(t68005)==FALSE_TYPE) goto l11666; /* x170122 */ /* x170115 stalin.sc:24924:861748 */ /* x170114 stalin.sc:24924:861758 */ t68006 = a32227; /* x170113 stalin.sc:24924:861749 */ if (f9740(t68006)==FALSE_TYPE) goto l11666; /* x170120 */ /* x170119 stalin.sc:24924:861769 */ /* x170118 stalin.sc:24924:861779 */ t68008 = a32227; /* x170117 stalin.sc:24924:861770 */ a41488 = t68008; /* x300064 stalin.sc:6964:241199 */ /* x300063 stalin.sc:6964:241207 */ t68009 = a41488; /* x300062 stalin.sc:6964:241200 */ t68007 = f9719(t68009); /* x170116 stalin.sc:24924:861762 */ if ((f9713(t68007).tag)==FALSE_TYPE) goto l11666; /* x170131 */ /* x170130 */ /* x170129 stalin.sc:24925:861785 */ /* x170128 stalin.sc:24925:861791 */ /* x170127 stalin.sc:24925:861805 */ t68012 = a32227; /* x170126 stalin.sc:24925:861792 */ t68011 = f9715(t68012); /* x170125 stalin.sc:24925:861786 */ /* MOVE: branching squeezed to general */ if (t68011>=((struct structure_type27510 *)VALUE_OFFSET)) {a32227.tag = STRUCTURE_TYPE27510; a32227.value.structure_type27510 = t68011;} else a32227.tag = (unsigned)t68011; goto h18204; goto l11667; l11666: /* x170136 */ /* x170135 */ /* x170134 stalin.sc:24926:861823 */ /* x170133 stalin.sc:24926:861829 */ t68010 = a32227; /* x170132 stalin.sc:24926:861824 */ a35243 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35243==NULL) {backtrace("stalin.sc", 24926, 861823); out_of_memory_error();} a35243->s0 = t68010; a35243->s1.tag = NULL_TYPE; /* x272493 */ t67993.tag = STRUCTURE_TYPE24753; t67993.value.structure_type24753 = a35243; l11667: l11662: break; case NATIVE_PROCEDURE_TYPE7182: t67993 = f9722(t67996); break; case NATIVE_PROCEDURE_TYPE7183: a41603 = t67996; /* x300524 stalin.sc:6964:241199 */ /* x300523 stalin.sc:6964:241207 */ t68030 = a41603; /* x300522 stalin.sc:6964:241200 */ t67993 = f9719(t68030); break; case NATIVE_PROCEDURE_TYPE14211: a22960 = t67996; /* x86894 stalin.sc:7083:244194 */ t67993 = a22960; break; case NATIVE_PROCEDURE_TYPE14243: a32272 = t67996; /* x171311 stalin.sc:25101:867624 */ /* x171300 stalin.sc:25101:867628 */ /* x171299 stalin.sc:25101:867640 */ t68031 = a32272; /* x171298 stalin.sc:25101:867629 */ if (f9741(t68031)==FALSE_TYPE) goto l11674; /* x171307 stalin.sc:25101:867643 */ t67993.tag = STRUCTURE_TYPE24753; t67993.value.structure_type24753 = &t68033; goto l11675; l11674: /* x171310 stalin.sc:25101:867658 */ /* x171309 stalin.sc:25101:867669 */ t68032 = a32272; /* x171308 stalin.sc:25101:867659 */ t67993 = f9722(t68032); l11675: break; case NATIVE_PROCEDURE_TYPE14244: a32271 = t67996; /* x171263 stalin.sc:25096:867460 */ /* x171258 stalin.sc:25096:867464 */ /* x171257 stalin.sc:25096:867476 */ t68036 = a32271; /* x171256 stalin.sc:25096:867465 */ if (f9741(t68036)==FALSE_TYPE) goto l11677; /* x171259 stalin.sc:25096:867479 */ t67993 = a32271; goto l11678; l11677: /* x171262 stalin.sc:25096:867481 */ /* x171261 stalin.sc:25096:867491 */ t68037 = a32271; /* x171260 stalin.sc:25096:867482 */ a41609 = t68037; /* x300548 stalin.sc:6964:241199 */ /* x300547 stalin.sc:6964:241207 */ t68038 = a41609; /* x300546 stalin.sc:6964:241200 */ t67993 = f9719(t68038); l11678: break; case NATIVE_PROCEDURE_TYPE14264: a32284 = t67996; /* x171571 stalin.sc:25129:868543 */ /* x171544 stalin.sc:25129:868547 */ /* x171543 stalin.sc:25129:868559 */ t68039 = a32284; /* x171542 stalin.sc:25129:868548 */ if (f9741(t68039)==FALSE_TYPE) goto l11680; /* x171556 stalin.sc:25130:868570 */ /* x171546 stalin.sc:25130:868573 */ t68050 = a32284; /* x171555 */ t68051 = &t68054; /* x171545 */ t68052.tag = STRUCTURE_TYPE24753; t68052.value.structure_type24753 = t68051; t68053 = f26175(t68050, t68052); t67993.tag = STRUCTURE_TYPE24753; t67993.value.structure_type24753 = t68053; goto l11681; l11680: /* x171570 stalin.sc:25131:868598 */ /* x171560 stalin.sc:25131:868601 */ /* x171559 stalin.sc:25131:868611 */ t68044 = a32284; /* x171558 stalin.sc:25131:868602 */ a41606 = t68044; /* x300536 stalin.sc:6964:241199 */ /* x300535 stalin.sc:6964:241207 */ t68045 = a41606; /* x300534 stalin.sc:6964:241200 */ t68040 = f9719(t68045); /* x171569 */ t68041 = &t68046; /* x171557 */ t68042.tag = STRUCTURE_TYPE24753; t68042.value.structure_type24753 = t68041; t68043 = f26175(t68040, t68042); t67993.tag = STRUCTURE_TYPE24753; t67993.value.structure_type24753 = t68043; l11681: break; case NATIVE_PROCEDURE_TYPE14271: a32292 = t67996; /* x171761 stalin.sc:25159:869577 */ /* x171754 stalin.sc:25159:869581 */ /* x171752 stalin.sc:25159:869584 */ /* x171751 stalin.sc:25159:869595 */ t68060 = a32292; /* x171750 stalin.sc:25159:869585 */ t68058 = f9734(t68060); /* x171753 stalin.sc:25159:869598 */ t68059 = 2; /* x267969 stalin.sc:25159:869582 */ if (!(t68058==t68059)) goto l11683; /* x171757 stalin.sc:25160:869608 */ /* x171756 stalin.sc:25160:869618 */ t68062 = a32292; /* x171755 stalin.sc:25160:869609 */ a41605 = t68062; /* x300532 stalin.sc:6964:241199 */ /* x300531 stalin.sc:6964:241207 */ t68063 = a41605; /* x300530 stalin.sc:6964:241200 */ t67993 = f9719(t68063); goto l11684; l11683: /* x171760 stalin.sc:25161:869628 */ /* x171759 stalin.sc:25161:869638 */ t68061 = a32292; /* x171758 stalin.sc:25161:869629 */ t67993 = f9723(t68061); l11684: break; case NATIVE_PROCEDURE_TYPE14347: p18249 = t67995.value.native_procedure_type14347; a32258 = t67996; /* x170929 stalin.sc:25045:865789 */ /* x170920 */ /* x170894 */ t68068 = q241; /* x170919 */ /* x170918 */ /* x170917 stalin.sc:25045:865797 */ /* x170913 stalin.sc:25046:865814 */ t68074 = p18249; /* x170916 stalin.sc:25047:865854 */ /* x170915 stalin.sc:25047:865864 */ t68077 = a32258; /* x170914 stalin.sc:25047:865855 */ a41585 = t68077; /* x300452 stalin.sc:6964:241199 */ /* x300451 stalin.sc:6964:241207 */ t68078 = a41585; /* x300450 stalin.sc:6964:241200 */ t68075 = f9719(t68078); /* x170896 stalin.sc:25045:865798 */ t68076.tag = NATIVE_PROCEDURE_TYPE14348; t68076.value.native_procedure_type14348 = t68074; t68071 = f9753(t68076, t68075); /* x170895 */ t68073.tag = STRUCTURE_TYPE24753; t68073.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68073.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18249]"); out_of_memory_error();} t68073.value.structure_type24753->s0.tag = NULL_TYPE; t68073.value.structure_type24753->s1.tag = NULL_TYPE; t68072 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t68072==NULL) {backtrace_internal("[inside top level 18249]"); out_of_memory_error();} t68072->s0 = *((struct w49 *)(&t68071)); t68072->s1 = t68073; t68069 = f26254(t68072); /* x170893 */ t68070.tag = EXTERNAL_SYMBOL_TYPE; t68070.value.external_symbol_type = t68068; t68064 = f26175(t68070, t68069); /* x170928 */ /* x170927 */ /* x170926 stalin.sc:25048:865880 */ /* x170925 stalin.sc:25048:865891 */ /* x170924 stalin.sc:25048:865900 */ t68083 = a32258; /* x170923 stalin.sc:25048:865892 */ a41427 = t68083; /* x299820 stalin.sc:7008:242336 */ /* x299819 stalin.sc:7008:242344 */ t68084 = a41427; /* x299818 stalin.sc:7008:242337 */ t68082 = f9720(t68084); /* x170922 stalin.sc:25048:865881 */ t68079 = f9772(t68082); /* x170921 */ t68081.tag = STRUCTURE_TYPE24753; t68081.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68081.value.structure_type24753)==NULL) {backtrace_internal("[inside top level 18249]"); out_of_memory_error();} t68081.value.structure_type24753->s0.tag = NULL_TYPE; t68081.value.structure_type24753->s1.tag = NULL_TYPE; t68080 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t68080==NULL) {backtrace_internal("[inside top level 18249]"); out_of_memory_error();} t68080->s0 = *((struct w49 *)(&t68079)); t68080->s1 = t68081; t68065 = f26254(t68080); /* x170892 */ t68066.tag = STRUCTURE_TYPE24753; t68066.value.structure_type24753 = t68064; t68067 = f26175(t68066, t68065); t67993.tag = STRUCTURE_TYPE24753; t67993.value.structure_type24753 = t68067; break; case NATIVE_PROCEDURE_TYPE14348: p18250 = t67995.value.native_procedure_type14348; a32259 = t67996; /* x170912 stalin.sc:25046:865826 */ /* x170898 stalin.sc:25046:865829 */ t68085 = a762; /* x170911 */ /* x170900 stalin.sc:25046:865837 */ t68090 = p18250->a32255; /* x170910 */ /* x170908 */ /* x170903 */ t68097 = q11; /* x170907 */ /* x170905 stalin.sc:25046:865841 */ t68101 = a32259; /* x170906 */ /* x170904 */ t68102.tag = NULL_TYPE; t68098 = f26175(t68101, t68102); /* x170902 */ t68099.tag = EXTERNAL_SYMBOL_TYPE; t68099.value.external_symbol_type = t68097; t68100.tag = STRUCTURE_TYPE24753; t68100.value.structure_type24753 = t68098; t68094 = f26175(t68099, t68100); /* x170909 */ /* x170901 */ t68095.tag = STRUCTURE_TYPE24753; t68095.value.structure_type24753 = t68094; t68096.tag = NULL_TYPE; t68091 = f26175(t68095, t68096); /* x170899 */ t68092.tag = EXTERNAL_SYMBOL_TYPE; t68092.value.external_symbol_type = t68090; t68093.tag = STRUCTURE_TYPE24753; t68093.value.structure_type24753 = t68091; t68086 = f26175(t68092, t68093); /* x170897 */ /* MOVE: branching squeezed to general */ if (t68085>=((char *)VALUE_OFFSET)) {t68087.tag = EXTERNAL_SYMBOL_TYPE; t68087.value.external_symbol_type = t68085;} else t68087.tag = (unsigned)t68085; t68088.tag = STRUCTURE_TYPE24753; t68088.value.structure_type24753 = t68086; t68089 = f26175(t68087, t68088); t67993.tag = STRUCTURE_TYPE24753; t67993.value.structure_type24753 = t68089; break; case NATIVE_PROCEDURE_TYPE14350: p18248 = t67995.value.native_procedure_type14350; a32257 = t67996; /* x170851 stalin.sc:25039:865609 */ /* x170837 stalin.sc:25039:865612 */ t68103 = a762; /* x170850 */ /* x170839 stalin.sc:25039:865620 */ t68108 = p18248->a32255; /* x170849 */ /* x170847 */ /* x170842 */ t68115 = q11; /* x170846 */ /* x170844 stalin.sc:25039:865624 */ t68119 = a32257; /* x170845 */ /* x170843 */ t68120.tag = NULL_TYPE; t68116 = f26175(t68119, t68120); /* x170841 */ t68117.tag = EXTERNAL_SYMBOL_TYPE; t68117.value.external_symbol_type = t68115; t68118.tag = STRUCTURE_TYPE24753; t68118.value.structure_type24753 = t68116; t68112 = f26175(t68117, t68118); /* x170848 */ /* x170840 */ t68113.tag = STRUCTURE_TYPE24753; t68113.value.structure_type24753 = t68112; t68114.tag = NULL_TYPE; t68109 = f26175(t68113, t68114); /* x170838 */ t68110.tag = EXTERNAL_SYMBOL_TYPE; t68110.value.external_symbol_type = t68108; t68111.tag = STRUCTURE_TYPE24753; t68111.value.structure_type24753 = t68109; t68104 = f26175(t68110, t68111); /* x170836 */ /* MOVE: branching squeezed to general */ if (t68103>=((char *)VALUE_OFFSET)) {t68105.tag = EXTERNAL_SYMBOL_TYPE; t68105.value.external_symbol_type = t68103;} else t68105.tag = (unsigned)t68103; t68106.tag = STRUCTURE_TYPE24753; t68106.value.structure_type24753 = t68104; t68107 = f26175(t68105, t68106); t67993.tag = STRUCTURE_TYPE24753; t67993.value.structure_type24753 = t68107; break; case NATIVE_PROCEDURE_TYPE14483: p18488 = t67995.value.native_procedure_type14483; a32419 = t67996; /* x206877 stalin.sc:28589:982450 */ /* x206785 */ t68121 = q519; /* x206876 */ /* x206789 stalin.sc:28589:982467 */ /* x206788 stalin.sc:28589:982477 */ t68129 = a32419; /* x206787 stalin.sc:28589:982468 */ a41582 = t68129; /* x300440 stalin.sc:6964:241199 */ /* x300439 stalin.sc:6964:241207 */ t68130 = a41582; /* x300438 stalin.sc:6964:241200 */ t68126 = f9719(t68130); /* x206875 */ /* x206793 stalin.sc:28589:982487 */ /* x206792 stalin.sc:28589:982498 */ t68134 = a32419; /* x206791 stalin.sc:28589:982488 */ t68131 = f9722(t68134); /* x206874 */ /* x206797 stalin.sc:28590:982511 */ /* x206796 stalin.sc:28590:982522 */ t68138 = a32419; /* x206795 stalin.sc:28590:982512 */ t68135 = f9724(t68138); /* x206873 */ /* x206827 */ /* x206800 */ t68143 = q39; /* x206826 */ /* x206802 */ /* x206825 */ /* x206823 */ /* x206805 */ t68153 = q104; /* x206822 */ /* x206809 stalin.sc:28591:982551 */ /* x206808 stalin.sc:28591:982562 */ t68160 = p18488->a32417; /* x206807 stalin.sc:28591:982552 */ t68157 = f9722(t68160); /* x206821 */ /* x206819 */ /* x206812 */ t68164 = q11; /* x206818 */ /* x206816 stalin.sc:28591:982567 */ /* x206815 stalin.sc:28591:982577 */ t68170 = a32419; /* x206814 stalin.sc:28591:982568 */ t68168 = f9723(t68170); /* x206817 */ /* x206813 */ t68169.tag = NULL_TYPE; t68165 = f26175(t68168, t68169); /* x206811 */ t68166.tag = EXTERNAL_SYMBOL_TYPE; t68166.value.external_symbol_type = t68164; t68167.tag = STRUCTURE_TYPE24753; t68167.value.structure_type24753 = t68165; t68161 = f26175(t68166, t68167); /* x206820 */ /* x206810 */ t68162.tag = STRUCTURE_TYPE24753; t68162.value.structure_type24753 = t68161; t68163.tag = NULL_TYPE; t68158 = f26175(t68162, t68163); /* x206806 */ t68159.tag = STRUCTURE_TYPE24753; t68159.value.structure_type24753 = t68158; t68154 = f26175(t68157, t68159); /* x206804 */ t68155.tag = EXTERNAL_SYMBOL_TYPE; t68155.value.external_symbol_type = t68153; t68156.tag = STRUCTURE_TYPE24753; t68156.value.structure_type24753 = t68154; t68150 = f26175(t68155, t68156); /* x206824 */ /* x206803 */ t68151.tag = STRUCTURE_TYPE24753; t68151.value.structure_type24753 = t68150; t68152.tag = NULL_TYPE; t68147 = f26175(t68151, t68152); /* x206801 */ t68148.tag = NULL_TYPE; t68149.tag = STRUCTURE_TYPE24753; t68149.value.structure_type24753 = t68147; t68144 = f26175(t68148, t68149); /* x206799 */ t68145.tag = EXTERNAL_SYMBOL_TYPE; t68145.value.external_symbol_type = t68143; t68146.tag = STRUCTURE_TYPE24753; t68146.value.structure_type24753 = t68144; t68139 = f26175(t68145, t68146); /* x206872 */ /* x206870 */ /* x206830 */ t68174 = q39; /* x206869 */ /* x206832 */ /* x206868 */ /* x206853 */ /* x206835 */ t68185 = q42; /* x206852 */ /* x206839 stalin.sc:28593:982613 */ /* x206838 stalin.sc:28593:982624 */ t68192 = p18488->a32417; /* x206837 stalin.sc:28593:982614 */ t68189 = f9722(t68192); /* x206851 */ /* x206849 */ /* x206842 */ t68196 = q11; /* x206848 */ /* x206846 stalin.sc:28593:982629 */ /* x206845 stalin.sc:28593:982639 */ t68202 = a32419; /* x206844 stalin.sc:28593:982630 */ t68200 = f9723(t68202); /* x206847 */ /* x206843 */ t68201.tag = NULL_TYPE; t68197 = f26175(t68200, t68201); /* x206841 */ t68198.tag = EXTERNAL_SYMBOL_TYPE; t68198.value.external_symbol_type = t68196; t68199.tag = STRUCTURE_TYPE24753; t68199.value.structure_type24753 = t68197; t68193 = f26175(t68198, t68199); /* x206850 */ /* x206840 */ t68194.tag = STRUCTURE_TYPE24753; t68194.value.structure_type24753 = t68193; t68195.tag = NULL_TYPE; t68190 = f26175(t68194, t68195); /* x206836 */ t68191.tag = STRUCTURE_TYPE24753; t68191.value.structure_type24753 = t68190; t68186 = f26175(t68189, t68191); /* x206834 */ t68187.tag = EXTERNAL_SYMBOL_TYPE; t68187.value.external_symbol_type = t68185; t68188.tag = STRUCTURE_TYPE24753; t68188.value.structure_type24753 = t68186; t68181 = f26175(t68187, t68188); /* x206867 */ /* x206857 */ t68203 = &t68207; /* x206866 */ /* x206864 */ /* x206862 stalin.sc:28595:982676 */ /* x206861 stalin.sc:28595:982686 */ t68213 = p18488->a32417; /* x206860 stalin.sc:28595:982677 */ t68211 = f9723(t68213); /* x206863 */ /* x206859 */ t68212.tag = NULL_TYPE; t68208 = f26175(t68211, t68212); /* x206865 */ /* x206858 */ t68209.tag = STRUCTURE_TYPE24753; t68209.value.structure_type24753 = t68208; t68210.tag = NULL_TYPE; t68204 = f26175(t68209, t68210); /* x206854 */ t68205.tag = STRUCTURE_TYPE24753; t68205.value.structure_type24753 = t68203; t68206.tag = STRUCTURE_TYPE24753; t68206.value.structure_type24753 = t68204; t68182 = f26175(t68205, t68206); /* x206833 */ t68183.tag = STRUCTURE_TYPE24753; t68183.value.structure_type24753 = t68181; t68184.tag = STRUCTURE_TYPE24753; t68184.value.structure_type24753 = t68182; t68178 = f26175(t68183, t68184); /* x206831 */ t68179.tag = NULL_TYPE; t68180.tag = STRUCTURE_TYPE24753; t68180.value.structure_type24753 = t68178; t68175 = f26175(t68179, t68180); /* x206829 */ t68176.tag = EXTERNAL_SYMBOL_TYPE; t68176.value.external_symbol_type = t68174; t68177.tag = STRUCTURE_TYPE24753; t68177.value.structure_type24753 = t68175; t68171 = f26175(t68176, t68177); /* x206871 */ /* x206828 */ t68172.tag = STRUCTURE_TYPE24753; t68172.value.structure_type24753 = t68171; t68173.tag = NULL_TYPE; t68140 = f26175(t68172, t68173); /* x206798 */ t68141.tag = STRUCTURE_TYPE24753; t68141.value.structure_type24753 = t68139; t68142.tag = STRUCTURE_TYPE24753; t68142.value.structure_type24753 = t68140; t68136 = f26175(t68141, t68142); /* x206794 */ t68137.tag = STRUCTURE_TYPE24753; t68137.value.structure_type24753 = t68136; t68132 = f26175(t68135, t68137); /* x206790 */ t68133.tag = STRUCTURE_TYPE24753; t68133.value.structure_type24753 = t68132; t68127 = f26175(t68131, t68133); /* x206786 */ t68128.tag = STRUCTURE_TYPE24753; t68128.value.structure_type24753 = t68127; t68122 = f26175(t68126, t68128); /* x206784 */ t68123.tag = EXTERNAL_SYMBOL_TYPE; t68123.value.external_symbol_type = t68121; t68124.tag = STRUCTURE_TYPE24753; t68124.value.structure_type24753 = t68122; t68125 = f26175(t68123, t68124); t67993.tag = STRUCTURE_TYPE24753; t67993.value.structure_type24753 = t68125; break; case NATIVE_PROCEDURE_TYPE14508: a32544 = t67996; /* x220255 stalin.sc:30411:1046803 */ /* x220248 stalin.sc:30411:1046807 */ /* x220246 stalin.sc:30411:1046810 */ /* x220245 stalin.sc:30411:1046821 */ t68216 = a32544; /* x220244 stalin.sc:30411:1046811 */ t68214 = f9734(t68216); /* x220247 stalin.sc:30411:1046824 */ t68215 = 2; /* x267907 stalin.sc:30411:1046808 */ if (!(t68214==t68215)) goto l11686; /* x220251 stalin.sc:30412:1046834 */ /* x220250 stalin.sc:30412:1046844 */ t68218 = a32544; /* x220249 stalin.sc:30412:1046835 */ a41581 = t68218; /* x300436 stalin.sc:6964:241199 */ /* x300435 stalin.sc:6964:241207 */ t68219 = a41581; /* x300434 stalin.sc:6964:241200 */ t67993 = f9719(t68219); goto l11687; l11686: /* x220254 stalin.sc:30413:1046854 */ /* x220253 stalin.sc:30413:1046864 */ t68217 = a32544; /* x220252 stalin.sc:30413:1046855 */ t67993 = f9723(t68217); l11687: break; case NATIVE_PROCEDURE_TYPE14512: /* x220151 stalin.sc:30383:1045848 */ /* x220150 stalin.sc:30383:1045856 */ t68220 = "x"; /* x220149 stalin.sc:30383:1045849 */ t68221 = f5362(t68220); t67993.tag = EXTERNAL_SYMBOL_TYPE; t67993.value.external_symbol_type = t68221; break; case NATIVE_PROCEDURE_TYPE14618: p18598 = t67995.value.native_procedure_type14618; a32513 = t67996; /* x219434 stalin.sc:30271:1042032 */ /* x219307 */ /* x219288 */ t68227 = q362; /* x219306 */ /* x219294 */ t68231 = &t68235; /* x219305 */ /* x219303 stalin.sc:30272:1042081 */ /* x219302 stalin.sc:30273:1042106 */ /* x219301 stalin.sc:30273:1042116 */ /* x219300 stalin.sc:30273:1042126 */ t68247 = a32513; /* x219299 stalin.sc:30273:1042117 */ a41522 = t68247; /* x300200 stalin.sc:6964:241199 */ /* x300199 stalin.sc:6964:241207 */ t68248 = a41522; /* x300198 stalin.sc:6964:241200 */ t68244 = f9719(t68248); /* x219298 stalin.sc:30273:1042107 */ a41095 = t68244; /* x298492 stalin.sc:6937:240340 */ /* x298491 stalin.sc:6937:240360 */ t68245 = a41095; /* x298490 stalin.sc:6937:240341 */ a42398 = t68245; /* x303090 */ /* x303089 */ t68246 = a42398; /* x303088 */ if (!((t68246.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37574]"); structure_ref_error();} t68241 = t68246.value.structure_type27510->s9; /* x219297 stalin.sc:30273:1042102 */ t68240 = "-"; /* x219296 stalin.sc:30272:1042082 */ t68243.tag = STRUCTURE_TYPE24753; t68243.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68243.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30272, 1042081); out_of_memory_error();} t68243.value.structure_type24753->s0 = t68241; t68243.value.structure_type24753->s1.tag = NULL_TYPE; t68242 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t68242==NULL) {backtrace("stalin.sc", 30272, 1042081); out_of_memory_error();} t68242->s0.tag = STRING_TYPE; t68242->s0.value.string_type = t68240; t68242->s1 = t68243; t68237 = f27556(t68242); /* x219304 */ /* x219295 */ t68238.tag = STRING_TYPE; t68238.value.string_type = t68237; t68239.tag = NULL_TYPE; t68232 = f26175(t68238, t68239); /* x219289 */ t68233.tag = STRUCTURE_TYPE24753; t68233.value.structure_type24753 = t68231; t68234.tag = STRUCTURE_TYPE24753; t68234.value.structure_type24753 = t68232; t68228 = f26175(t68233, t68234); /* x219287 */ t68229.tag = EXTERNAL_SYMBOL_TYPE; t68229.value.external_symbol_type = t68227; t68230.tag = STRUCTURE_TYPE24753; t68230.value.structure_type24753 = t68228; t68222 = f26175(t68229, t68230); /* x219433 */ /* x219319 */ t68249 = &t68253; /* x219432 */ /* x219344 */ /* x219322 */ t68262 = q493; /* x219343 */ /* x219337 */ /* x219325 */ t68270 = q241; /* x219336 */ /* x219335 */ /* x219334 stalin.sc:30275:1042203 */ /* x219328 stalin.sc:30275:1042211 */ /* x219333 stalin.sc:30276:1042228 */ /* x219332 stalin.sc:30276:1042237 */ /* x219331 stalin.sc:30276:1042247 */ t68280 = p18598->a32507; /* x219330 stalin.sc:30276:1042238 */ a41523 = t68280; /* x300204 stalin.sc:6964:241199 */ /* x300203 stalin.sc:6964:241207 */ t68281 = a41523; /* x300202 stalin.sc:6964:241200 */ t68278 = f9719(t68281); /* x219329 stalin.sc:30276:1042229 */ a41354 = t68278; /* x299528 stalin.sc:7008:242336 */ /* x299527 stalin.sc:7008:242344 */ t68279 = a41354; /* x299526 stalin.sc:7008:242337 */ t68276 = f9720(t68279); /* x219327 stalin.sc:30275:1042204 */ t68277.tag = NATIVE_PROCEDURE_TYPE7182; t68273 = f9753(t68277, t68276); /* x219326 */ t68275.tag = STRUCTURE_TYPE24753; t68275.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68275.value.structure_type24753)==NULL) {backtrace_internal("[inside LOOP 18598]"); out_of_memory_error();} t68275.value.structure_type24753->s0.tag = NULL_TYPE; t68275.value.structure_type24753->s1.tag = NULL_TYPE; t68274 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t68274==NULL) {backtrace_internal("[inside LOOP 18598]"); out_of_memory_error();} t68274->s0 = *((struct w49 *)(&t68273)); t68274->s1 = t68275; t68271 = f26254(t68274); /* x219324 */ t68272.tag = EXTERNAL_SYMBOL_TYPE; t68272.value.external_symbol_type = t68270; t68266 = f26175(t68272, t68271); /* x219342 */ t68267 = &t68282; /* x219323 */ t68268.tag = STRUCTURE_TYPE24753; t68268.value.structure_type24753 = t68266; t68269.tag = STRUCTURE_TYPE24753; t68269.value.structure_type24753 = t68267; t68263 = f26175(t68268, t68269); /* x219321 */ t68264.tag = EXTERNAL_SYMBOL_TYPE; t68264.value.external_symbol_type = t68262; t68265.tag = STRUCTURE_TYPE24753; t68265.value.structure_type24753 = t68263; t68258 = f26175(t68264, t68265); /* x219431 */ /* x219356 */ /* x219347 */ t68287 = q42; /* x219355 */ /* x219351 stalin.sc:30278:1042286 */ /* x219350 stalin.sc:30278:1042297 */ t68294 = a32513; /* x219349 stalin.sc:30278:1042287 */ t68291 = f9722(t68294); /* x219354 */ t68292 = &t68295; /* x219348 */ t68293.tag = STRUCTURE_TYPE24753; t68293.value.structure_type24753 = t68292; t68288 = f26175(t68291, t68293); /* x219346 */ t68289.tag = EXTERNAL_SYMBOL_TYPE; t68289.value.external_symbol_type = t68287; t68290.tag = STRUCTURE_TYPE24753; t68290.value.structure_type24753 = t68288; t68284 = f26175(t68289, t68290); /* x219430 */ /* x219429 */ t68297 = &t68310; /* x219424 stalin.sc:30279:1042315 */ /* x219359 stalin.sc:30280:1042327 */ /* x219422 stalin.sc:30281:1042338 */ /* x219416 stalin.sc:30281:1042346 */ /* x219421 stalin.sc:30289:1042567 */ /* x219420 stalin.sc:30289:1042576 */ /* x219419 stalin.sc:30289:1042585 */ t68308 = a32513; /* x219418 stalin.sc:30289:1042577 */ a41356 = t68308; /* x299536 stalin.sc:7008:242336 */ /* x299535 stalin.sc:7008:242344 */ t68309 = a41356; /* x299534 stalin.sc:7008:242337 */ t68306 = f9720(t68309); /* x219417 stalin.sc:30289:1042568 */ a41355 = t68306; /* x299532 stalin.sc:7008:242336 */ /* x299531 stalin.sc:7008:242344 */ t68307 = a41355; /* x299530 stalin.sc:7008:242337 */ t68304 = f9720(t68307); /* x219360 stalin.sc:30281:1042339 */ t68305.tag = NATIVE_PROCEDURE_TYPE14619; t68300 = f9753(t68305, t68304); /* x219423 stalin.sc:30290:1042595 */ /* x219358 stalin.sc:30279:1042316 */ t68301 = NATIVE_PROCEDURE_TYPE454; t68302 = *((struct w49 *)(&t68300)); t68303.tag = NULL_TYPE; t68296 = f1006(t68301, t68302, t68303); /* x219357 */ t68299.tag = STRUCTURE_TYPE24753; t68299.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68299.value.structure_type24753)==NULL) {backtrace_internal("[inside LOOP 18598]"); out_of_memory_error();} t68299.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t68299.value.structure_type24753->s0.value.structure_type24753 = t68297; t68299.value.structure_type24753->s1.tag = NULL_TYPE; t68298 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t68298==NULL) {backtrace_internal("[inside LOOP 18598]"); out_of_memory_error();} t68298->s0 = t68296; t68298->s1 = t68299; t68285 = f26254(t68298); /* x219345 */ t68286.tag = STRUCTURE_TYPE24753; t68286.value.structure_type24753 = t68284; t68259 = f26175(t68286, t68285); /* x219320 */ t68260.tag = STRUCTURE_TYPE24753; t68260.value.structure_type24753 = t68258; t68261.tag = STRUCTURE_TYPE24753; t68261.value.structure_type24753 = t68259; t68250 = f26175(t68260, t68261); /* x219308 */ t68251.tag = STRUCTURE_TYPE24753; t68251.value.structure_type24753 = t68249; t68252.tag = STRUCTURE_TYPE24753; t68252.value.structure_type24753 = t68250; t68223 = f26175(t68251, t68252); /* x219286 */ t68224.tag = STRUCTURE_TYPE24753; t68224.value.structure_type24753 = t68222; t68225.tag = STRUCTURE_TYPE24753; t68225.value.structure_type24753 = t68223; t68226 = f26175(t68224, t68225); t67993.tag = STRUCTURE_TYPE24753; t67993.value.structure_type24753 = t68226; break; case NATIVE_PROCEDURE_TYPE14619: a32514 = t67996; /* x219415 stalin.sc:30282:1042364 */ /* x219374 */ t68312 = &t68317; /* x219414 */ /* x219400 */ /* x219377 */ t68327 = q42; /* x219399 */ /* x219381 stalin.sc:30283:1042414 */ /* x219380 stalin.sc:30283:1042424 */ t68334 = a32514; /* x219379 stalin.sc:30283:1042415 */ a41524 = t68334; /* x300208 stalin.sc:6964:241199 */ /* x300207 stalin.sc:6964:241207 */ t68335 = a41524; /* x300206 stalin.sc:6964:241200 */ t68331 = f9719(t68335); /* x219398 */ /* x219396 */ /* x219386 stalin.sc:30284:1042436 */ /* x219385 stalin.sc:30284:1042446 */ t68342 = a32514; /* x219384 stalin.sc:30284:1042437 */ t68339 = f9723(t68342); /* x219395 */ t68340 = &t68343; /* x219383 */ t68341.tag = STRUCTURE_TYPE24753; t68341.value.structure_type24753 = t68340; t68336 = f26175(t68339, t68341); /* x219397 */ /* x219382 */ t68337.tag = STRUCTURE_TYPE24753; t68337.value.structure_type24753 = t68336; t68338.tag = NULL_TYPE; t68332 = f26175(t68337, t68338); /* x219378 */ t68333.tag = STRUCTURE_TYPE24753; t68333.value.structure_type24753 = t68332; t68328 = f26175(t68331, t68333); /* x219376 */ t68329.tag = EXTERNAL_SYMBOL_TYPE; t68329.value.external_symbol_type = t68327; t68330.tag = STRUCTURE_TYPE24753; t68330.value.structure_type24753 = t68328; t68323 = f26175(t68329, t68330); /* x219413 */ t68324 = &t68347; /* x219375 */ t68325.tag = STRUCTURE_TYPE24753; t68325.value.structure_type24753 = t68323; t68326.tag = STRUCTURE_TYPE24753; t68326.value.structure_type24753 = t68324; t68313 = f26175(t68325, t68326); /* x219361 */ t68314.tag = STRUCTURE_TYPE24753; t68314.value.structure_type24753 = t68312; t68315.tag = STRUCTURE_TYPE24753; t68315.value.structure_type24753 = t68313; t68316 = f26175(t68314, t68315); t67993.tag = STRUCTURE_TYPE24753; t67993.value.structure_type24753 = t68316; break; case NATIVE_PROCEDURE_TYPE14628: a32510 = t67996; /* x219255 stalin.sc:30245:1041371 */ /* x219143 */ /* x219124 */ t68358 = q362; /* x219142 */ /* x219130 */ t68362 = &t68366; /* x219141 */ /* x219139 stalin.sc:30246:1041420 */ /* x219138 stalin.sc:30247:1041445 */ /* x219137 stalin.sc:30247:1041455 */ /* x219136 stalin.sc:30247:1041465 */ t68378 = a32510; /* x219135 stalin.sc:30247:1041456 */ a41518 = t68378; /* x300184 stalin.sc:6964:241199 */ /* x300183 stalin.sc:6964:241207 */ t68379 = a41518; /* x300182 stalin.sc:6964:241200 */ t68375 = f9719(t68379); /* x219134 stalin.sc:30247:1041446 */ a41094 = t68375; /* x298488 stalin.sc:6937:240340 */ /* x298487 stalin.sc:6937:240360 */ t68376 = a41094; /* x298486 stalin.sc:6937:240341 */ a42399 = t68376; /* x303094 */ /* x303093 */ t68377 = a42399; /* x303092 */ if (!((t68377.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37575]"); structure_ref_error();} t68372 = t68377.value.structure_type27510->s9; /* x219133 stalin.sc:30247:1041441 */ t68371 = "-"; /* x219132 stalin.sc:30246:1041421 */ t68374.tag = STRUCTURE_TYPE24753; t68374.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68374.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30246, 1041420); out_of_memory_error();} t68374.value.structure_type24753->s0 = t68372; t68374.value.structure_type24753->s1.tag = NULL_TYPE; t68373 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t68373==NULL) {backtrace("stalin.sc", 30246, 1041420); out_of_memory_error();} t68373->s0.tag = STRING_TYPE; t68373->s0.value.string_type = t68371; t68373->s1 = t68374; t68368 = f27556(t68373); /* x219140 */ /* x219131 */ t68369.tag = STRING_TYPE; t68369.value.string_type = t68368; t68370.tag = NULL_TYPE; t68363 = f26175(t68369, t68370); /* x219125 */ t68364.tag = STRUCTURE_TYPE24753; t68364.value.structure_type24753 = t68362; t68365.tag = STRUCTURE_TYPE24753; t68365.value.structure_type24753 = t68363; t68359 = f26175(t68364, t68365); /* x219123 */ t68360.tag = EXTERNAL_SYMBOL_TYPE; t68360.value.external_symbol_type = t68358; t68361.tag = STRUCTURE_TYPE24753; t68361.value.structure_type24753 = t68359; t68353 = f26175(t68360, t68361); /* x219254 */ /* x219155 */ t68380 = &t68384; /* x219253 */ /* x219167 */ /* x219158 */ t68392 = q42; /* x219166 */ /* x219162 stalin.sc:30249:1041536 */ /* x219161 stalin.sc:30249:1041547 */ t68399 = a32510; /* x219160 stalin.sc:30249:1041537 */ t68396 = f9722(t68399); /* x219165 */ t68397 = &t68400; /* x219159 */ t68398.tag = STRUCTURE_TYPE24753; t68398.value.structure_type24753 = t68397; t68393 = f26175(t68396, t68398); /* x219157 */ t68394.tag = EXTERNAL_SYMBOL_TYPE; t68394.value.external_symbol_type = t68392; t68395.tag = STRUCTURE_TYPE24753; t68395.value.structure_type24753 = t68393; t68389 = f26175(t68394, t68395); /* x219252 */ /* x219251 */ t68402 = &t68415; /* x219246 stalin.sc:30250:1041564 */ /* x219170 stalin.sc:30251:1041576 */ /* x219244 stalin.sc:30252:1041587 */ /* x219238 stalin.sc:30253:1041600 */ /* x219243 stalin.sc:30262:1041846 */ /* x219242 stalin.sc:30262:1041855 */ /* x219241 stalin.sc:30262:1041864 */ t68413 = a32510; /* x219240 stalin.sc:30262:1041856 */ a41351 = t68413; /* x299516 stalin.sc:7008:242336 */ /* x299515 stalin.sc:7008:242344 */ t68414 = a41351; /* x299514 stalin.sc:7008:242337 */ t68411 = f9720(t68414); /* x219239 stalin.sc:30262:1041847 */ a41350 = t68411; /* x299512 stalin.sc:7008:242336 */ /* x299511 stalin.sc:7008:242344 */ t68412 = a41350; /* x299510 stalin.sc:7008:242337 */ t68409 = f9720(t68412); /* x219171 stalin.sc:30252:1041588 */ t68410.tag = NATIVE_PROCEDURE_TYPE14629; t68405 = f9753(t68410, t68409); /* x219245 stalin.sc:30263:1041873 */ /* x219169 stalin.sc:30250:1041565 */ t68406 = NATIVE_PROCEDURE_TYPE454; t68407 = *((struct w49 *)(&t68405)); t68408.tag = NULL_TYPE; t68401 = f1006(t68406, t68407, t68408); /* x219168 */ t68404.tag = STRUCTURE_TYPE24753; t68404.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68404.value.structure_type24753)==NULL) {backtrace_internal("[inside LOOP 18594]"); out_of_memory_error();} t68404.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t68404.value.structure_type24753->s0.value.structure_type24753 = t68402; t68404.value.structure_type24753->s1.tag = NULL_TYPE; t68403 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t68403==NULL) {backtrace_internal("[inside LOOP 18594]"); out_of_memory_error();} t68403->s0 = t68401; t68403->s1 = t68404; t68390 = f26254(t68403); /* x219156 */ t68391.tag = STRUCTURE_TYPE24753; t68391.value.structure_type24753 = t68389; t68381 = f26175(t68391, t68390); /* x219144 */ t68382.tag = STRUCTURE_TYPE24753; t68382.value.structure_type24753 = t68380; t68383.tag = STRUCTURE_TYPE24753; t68383.value.structure_type24753 = t68381; t68354 = f26175(t68382, t68383); /* x219122 */ t68355.tag = STRUCTURE_TYPE24753; t68355.value.structure_type24753 = t68353; t68356.tag = STRUCTURE_TYPE24753; t68356.value.structure_type24753 = t68354; t68357 = f26175(t68355, t68356); t67993.tag = STRUCTURE_TYPE24753; t67993.value.structure_type24753 = t68357; break; case NATIVE_PROCEDURE_TYPE14629: a32511 = t67996; /* x219237 stalin.sc:30254:1041618 */ /* x219185 */ t68417 = &t68422; /* x219236 */ /* x219222 */ /* x219188 */ t68432 = q42; /* x219221 */ /* x219192 stalin.sc:30255:1041668 */ /* x219191 stalin.sc:30255:1041678 */ t68439 = a32511; /* x219190 stalin.sc:30255:1041669 */ a41519 = t68439; /* x300188 stalin.sc:6964:241199 */ /* x300187 stalin.sc:6964:241207 */ t68440 = a41519; /* x300186 stalin.sc:6964:241200 */ t68436 = f9719(t68440); /* x219220 */ /* x219218 */ /* x219195 */ t68444 = q106; /* x219217 */ /* x219210 */ /* x219200 stalin.sc:30256:1041696 */ /* x219199 stalin.sc:30256:1041706 */ t68455 = a32511; /* x219198 stalin.sc:30256:1041697 */ t68452 = f9723(t68455); /* x219209 */ t68453 = &t68456; /* x219197 */ t68454.tag = STRUCTURE_TYPE24753; t68454.value.structure_type24753 = t68453; t68448 = f26175(t68452, t68454); /* x219216 */ /* x219214 stalin.sc:30259:1041764 */ /* x219213 stalin.sc:30259:1041774 */ t68462 = a32511; /* x219212 stalin.sc:30259:1041765 */ a41520 = t68462; /* x300192 stalin.sc:6964:241199 */ /* x300191 stalin.sc:6964:241207 */ t68463 = a41520; /* x300190 stalin.sc:6964:241200 */ t68460 = f9719(t68463); /* x219215 */ /* x219211 */ t68461.tag = NULL_TYPE; t68449 = f26175(t68460, t68461); /* x219196 */ t68450.tag = STRUCTURE_TYPE24753; t68450.value.structure_type24753 = t68448; t68451.tag = STRUCTURE_TYPE24753; t68451.value.structure_type24753 = t68449; t68445 = f26175(t68450, t68451); /* x219194 */ t68446.tag = EXTERNAL_SYMBOL_TYPE; t68446.value.external_symbol_type = t68444; t68447.tag = STRUCTURE_TYPE24753; t68447.value.structure_type24753 = t68445; t68441 = f26175(t68446, t68447); /* x219219 */ /* x219193 */ t68442.tag = STRUCTURE_TYPE24753; t68442.value.structure_type24753 = t68441; t68443.tag = NULL_TYPE; t68437 = f26175(t68442, t68443); /* x219189 */ t68438.tag = STRUCTURE_TYPE24753; t68438.value.structure_type24753 = t68437; t68433 = f26175(t68436, t68438); /* x219187 */ t68434.tag = EXTERNAL_SYMBOL_TYPE; t68434.value.external_symbol_type = t68432; t68435.tag = STRUCTURE_TYPE24753; t68435.value.structure_type24753 = t68433; t68428 = f26175(t68434, t68435); /* x219235 */ t68429 = &t68464; /* x219186 */ t68430.tag = STRUCTURE_TYPE24753; t68430.value.structure_type24753 = t68428; t68431.tag = STRUCTURE_TYPE24753; t68431.value.structure_type24753 = t68429; t68418 = f26175(t68430, t68431); /* x219172 */ t68419.tag = STRUCTURE_TYPE24753; t68419.value.structure_type24753 = t68417; t68420.tag = STRUCTURE_TYPE24753; t68420.value.structure_type24753 = t68418; t68421 = f26175(t68419, t68420); t67993.tag = STRUCTURE_TYPE24753; t67993.value.structure_type24753 = t68421; break; case NATIVE_PROCEDURE_TYPE14638: a32502 = t67996; /* x218948 stalin.sc:30216:1040392 */ /* x218931 stalin.sc:30216:1040398 */ /* x218930 stalin.sc:30216:1040418 */ /* x218929 stalin.sc:30216:1040404 */ /* x218928 stalin.sc:30216:1040415 */ t68474 = a32502; /* x218927 stalin.sc:30216:1040405 */ t68472 = f9722(t68474); /* x218926 stalin.sc:30216:1040399 */ t68473.tag = STRUCTURE_TYPE24753; t68473.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68473.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30216, 1040398); out_of_memory_error();} t68473.value.structure_type24753->s0.tag = FALSE_TYPE; t68473.value.structure_type24753->s1.tag = NULL_TYPE; a35248 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35248==NULL) {backtrace("stalin.sc", 30216, 1040398); out_of_memory_error();} a35248->s0 = t68472; a35248->s1 = t68473; /* x272503 */ t68470 = a35248; /* x218947 stalin.sc:30217:1040427 */ /* x218941 stalin.sc:30217:1040435 */ /* x218946 stalin.sc:30219:1040495 */ /* x218945 stalin.sc:30219:1040504 */ /* x218944 stalin.sc:30219:1040513 */ t68479 = a32502; /* x218943 stalin.sc:30219:1040505 */ a41343 = t68479; /* x299484 stalin.sc:7008:242336 */ /* x299483 stalin.sc:7008:242344 */ t68480 = a41343; /* x299482 stalin.sc:7008:242337 */ t68477 = f9720(t68480); /* x218942 stalin.sc:30219:1040496 */ a41342 = t68477; /* x299480 stalin.sc:7008:242336 */ /* x299479 stalin.sc:7008:242344 */ t68478 = a41342; /* x299478 stalin.sc:7008:242337 */ t68475 = f9720(t68478); /* x218932 stalin.sc:30217:1040428 */ t68476.tag = NATIVE_PROCEDURE_TYPE14639; t68471 = f9753(t68476, t68475); /* x267916 stalin.sc:30216:1040393 */ t67993.tag = STRUCTURE_TYPE24753; t67993.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t67993.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30216, 1040392); out_of_memory_error();} t67993.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t67993.value.structure_type24753->s0.value.structure_type24753 = t68470; t67993.value.structure_type24753->s1 = *((struct w49 *)(&t68471)); break; case NATIVE_PROCEDURE_TYPE14639: a32503 = t67996; /* x218940 stalin.sc:30218:1040454 */ /* x218939 stalin.sc:30218:1040473 */ /* x218938 stalin.sc:30218:1040484 */ t68486 = a32503; /* x218937 stalin.sc:30218:1040474 */ t68482 = f9724(t68486); /* x218936 stalin.sc:30218:1040460 */ /* x218935 stalin.sc:30218:1040470 */ t68484 = a32503; /* x218934 stalin.sc:30218:1040461 */ a41507 = t68484; /* x300140 stalin.sc:6964:241199 */ /* x300139 stalin.sc:6964:241207 */ t68485 = a41507; /* x300138 stalin.sc:6964:241200 */ t68481 = f9719(t68485); /* x218933 stalin.sc:30218:1040455 */ t68483.tag = STRUCTURE_TYPE24753; t68483.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68483.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30218, 1040454); out_of_memory_error();} t68483.value.structure_type24753->s0 = t68482; t68483.value.structure_type24753->s1.tag = NULL_TYPE; a35249 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35249==NULL) {backtrace("stalin.sc", 30218, 1040454); out_of_memory_error();} a35249->s0 = t68481; a35249->s1 = t68483; /* x272505 */ t67993.tag = STRUCTURE_TYPE24753; t67993.value.structure_type24753 = a35249; break; case NATIVE_PROCEDURE_TYPE14641: a32499 = t67996; /* x218890 stalin.sc:30205:1040109 */ /* x218871 stalin.sc:30205:1040115 */ /* x218870 stalin.sc:30205:1040135 */ /* x218869 stalin.sc:30205:1040121 */ /* x218868 stalin.sc:30205:1040132 */ t68491 = a32499; /* x218867 stalin.sc:30205:1040122 */ t68489 = f9722(t68491); /* x218866 stalin.sc:30205:1040116 */ t68490.tag = STRUCTURE_TYPE24753; t68490.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68490.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30205, 1040115); out_of_memory_error();} t68490.value.structure_type24753->s0.tag = FALSE_TYPE; t68490.value.structure_type24753->s1.tag = NULL_TYPE; a35246 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35246==NULL) {backtrace("stalin.sc", 30205, 1040115); out_of_memory_error();} a35246->s0 = t68489; a35246->s1 = t68490; /* x272499 */ t68487 = a35246; /* x218889 stalin.sc:30206:1040144 */ /* x218883 stalin.sc:30206:1040152 */ /* x218888 stalin.sc:30207:1040196 */ /* x218887 stalin.sc:30207:1040205 */ /* x218886 stalin.sc:30207:1040214 */ t68496 = a32499; /* x218885 stalin.sc:30207:1040206 */ a41339 = t68496; /* x299468 stalin.sc:7008:242336 */ /* x299467 stalin.sc:7008:242344 */ t68497 = a41339; /* x299466 stalin.sc:7008:242337 */ t68494 = f9720(t68497); /* x218884 stalin.sc:30207:1040197 */ a41338 = t68494; /* x299464 stalin.sc:7008:242336 */ /* x299463 stalin.sc:7008:242344 */ t68495 = a41338; /* x299462 stalin.sc:7008:242337 */ t68492 = f9720(t68495); /* x218872 stalin.sc:30206:1040145 */ t68493.tag = NATIVE_PROCEDURE_TYPE14642; t68488 = f9753(t68493, t68492); /* x267917 stalin.sc:30205:1040110 */ t67993.tag = STRUCTURE_TYPE24753; t67993.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t67993.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30205, 1040109); out_of_memory_error();} t67993.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t67993.value.structure_type24753->s0.value.structure_type24753 = t68487; t67993.value.structure_type24753->s1 = *((struct w49 *)(&t68488)); break; case NATIVE_PROCEDURE_TYPE14642: a32500 = t67996; /* x218882 stalin.sc:30206:1040164 */ /* x218881 stalin.sc:30206:1040183 */ t68499 = &t68503; /* x218876 stalin.sc:30206:1040170 */ /* x218875 stalin.sc:30206:1040180 */ t68501 = a32500; /* x218874 stalin.sc:30206:1040171 */ a41505 = t68501; /* x300132 stalin.sc:6964:241199 */ /* x300131 stalin.sc:6964:241207 */ t68502 = a41505; /* x300130 stalin.sc:6964:241200 */ t68498 = f9719(t68502); /* x218873 stalin.sc:30206:1040165 */ t68500.tag = STRUCTURE_TYPE24753; t68500.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68500.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30206, 1040164); out_of_memory_error();} t68500.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t68500.value.structure_type24753->s0.value.structure_type24753 = t68499; t68500.value.structure_type24753->s1.tag = NULL_TYPE; a35247 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35247==NULL) {backtrace("stalin.sc", 30206, 1040164); out_of_memory_error();} a35247->s0 = t68498; a35247->s1 = t68500; /* x272501 */ t67993.tag = STRUCTURE_TYPE24753; t67993.value.structure_type24753 = a35247; break; case NATIVE_PROCEDURE_TYPE14681: a32424 = t67996; /* x206985 stalin.sc:28615:983336 */ /* x206978 */ /* x206976 stalin.sc:28615:983340 */ /* x206975 stalin.sc:28615:983350 */ t68512 = a32424; /* x206974 stalin.sc:28615:983341 */ a41489 = t68512; /* x300068 stalin.sc:6964:241199 */ /* x300067 stalin.sc:6964:241207 */ t68513 = a41489; /* x300066 stalin.sc:6964:241200 */ t68510 = f9719(t68513); /* x206977 */ /* x206973 */ t68511.tag = NULL_TYPE; t68505 = f26175(t68510, t68511); /* x206984 */ /* x206982 stalin.sc:28615:983361 */ /* x206981 stalin.sc:28615:983372 */ t68516 = a32424; /* x206980 stalin.sc:28615:983362 */ t68514 = f9722(t68516); /* x206983 */ /* x206979 */ t68515.tag = NULL_TYPE; t68506 = f26175(t68514, t68515); /* x206972 */ t68507.tag = STRUCTURE_TYPE24753; t68507.value.structure_type24753 = t68505; t68508.tag = STRUCTURE_TYPE24753; t68508.value.structure_type24753 = t68506; t68509 = f26175(t68507, t68508); t67993.tag = STRUCTURE_TYPE24753; t67993.value.structure_type24753 = t68509; break; case NATIVE_PROCEDURE_TYPE24526: p10021 = t67995.value.native_procedure_type24526; a23100 = t67996; /* x89348 stalin.sc:7477:257310 */ /* x89344 stalin.sc:7477:257323 */ t68517 = a23100; /* x89345 stalin.sc:7477:257325 */ t68518 = p10021->a23076; /* x89346 stalin.sc:7477:257328 */ /* x89347 stalin.sc:7477:257331 */ t68519 = p10021->a23078; /* x89343 stalin.sc:7477:257311 */ t68520.tag = FALSE_TYPE; t68521 = f9976(t68517, t68518, t68520, t68519); t67993.tag = STRUCTURE_TYPE27698; t67993.value.structure_type27698 = t68521; break; default: p10020 = t67995.value.native_procedure_type24529; a23099 = t67996; /* x89309 stalin.sc:7473:257180 */ /* x89305 stalin.sc:7473:257193 */ t68522 = a23099; /* x89306 stalin.sc:7473:257195 */ t68523 = p10020->a23076; /* x89307 stalin.sc:7473:257198 */ /* x89308 stalin.sc:7473:257201 */ t68524 = p10020->a23078; /* x89304 stalin.sc:7473:257181 */ t68525.tag = FALSE_TYPE; t68526 = f9976(t68522, t68523, t68525, t68524); t67993.tag = STRUCTURE_TYPE27698; t67993.value.structure_type27698 = t68526;} /* x86747 stalin.sc:7051:243377 */ t67994 = a22941; /* x269933 stalin.sc:7051:243355 */ t67990 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t67990==NULL) {backtrace("stalin.sc", 7051, 243354); out_of_memory_error();} t67990->s0 = t67993; /* MOVE: branching squeezed to general */ if (t67994>=((struct structure_type24753 *)VALUE_OFFSET)) {t67990->s1.tag = STRUCTURE_TYPE24753; t67990->s1.value.structure_type24753 = t67994;} else t67990->s1.tag = (unsigned)t67994; /* x86737 stalin.sc:7051:243337 */ a22940 = t67989; a22941 = t67990; goto h9756;} /* SX-NEGATIVE?[9751] */ unsigned f9751(struct w49 a22933) {struct w49 a41082; /* S */ struct w49 a42411; /* S */ struct w49 t68531; struct w49 t68532; struct w49 t68533; struct w49 t68534; /* x86718 stalin.sc:7039:243055 */ /* x86717 stalin.sc:7039:243066 */ /* x86716 stalin.sc:7039:243076 */ t68532 = a22933; /* x86715 stalin.sc:7039:243067 */ a41082 = t68532; /* x298440 stalin.sc:6937:240340 */ /* x298439 stalin.sc:6937:240360 */ t68533 = a41082; /* x298438 stalin.sc:6937:240341 */ a42411 = t68533; /* x303142 */ /* x303141 */ t68534 = a42411; /* x303140 */ if (!((t68534.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37587]"); structure_ref_error();} t68531 = t68534.value.structure_type27510->s9; /* x269934 stalin.sc:7039:243056 */ switch (t68531.tag) {case FIXNUM_TYPE: if ((t68531.value.fixnum_type)<0) return TRUE_TYPE; else return FALSE_TYPE; case FLONUM_TYPE: if ((t68531.value.flonum_type)<0.0) return TRUE_TYPE; else return FALSE_TYPE; default: backtrace("stalin.sc", 7039, 243055); negative_error();}} /* SX-EXACT?[9750] */ unsigned f9750(struct w49 a22932) {struct w49 a41083; /* S */ struct w49 a42410; /* S */ struct w49 t68535; struct w49 t68536; struct w49 t68537; struct w49 t68538; /* x86711 stalin.sc:7037:243006 */ /* x86710 stalin.sc:7037:243014 */ /* x86709 stalin.sc:7037:243024 */ t68536 = a22932; /* x86708 stalin.sc:7037:243015 */ a41083 = t68536; /* x298444 stalin.sc:6937:240340 */ /* x298443 stalin.sc:6937:240360 */ t68537 = a41083; /* x298442 stalin.sc:6937:240341 */ a42410 = t68537; /* x303138 */ /* x303137 */ t68538 = a42410; /* x303136 */ if (!((t68538.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37586]"); structure_ref_error();} t68535 = t68538.value.structure_type27510->s9; /* x269935 stalin.sc:7037:243007 */ switch (t68535.tag) {case FIXNUM_TYPE: return TRUE_TYPE; case FLONUM_TYPE: return FALSE_TYPE; default: backtrace("stalin.sc", 7037, 243006); exact_error();}} /* SX-COMPLEX?[9749] */ unsigned f9749(struct w49 a22931) {struct w49 a33583; /* OBJ */ struct w49 a41073; /* S */ struct w49 a42420; /* S */ struct w49 t68539; struct w49 t68540; struct w49 t68541; struct w49 t68542; struct w49 t68543; /* x86704 stalin.sc:7035:242958 */ /* x86703 stalin.sc:7035:242968 */ /* x86702 stalin.sc:7035:242978 */ t68541 = a22931; /* x86701 stalin.sc:7035:242969 */ a41073 = t68541; /* x298404 stalin.sc:6937:240340 */ /* x298403 stalin.sc:6937:240360 */ t68542 = a41073; /* x298402 stalin.sc:6937:240341 */ a42420 = t68542; /* x303178 */ /* x303177 */ t68543 = a42420; /* x303176 */ if (!((t68543.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37596]"); structure_ref_error();} t68539 = t68543.value.structure_type27510->s9; /* x86700 stalin.sc:7035:242959 */ a33583 = t68539; /* x251466 */ /* x251465 */ t68540 = a33583; /* x251464 */ switch (t68540.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: return TRUE_TYPE; default: return FALSE_TYPE;}} /* SX-REAL?[9748] */ unsigned f9748(struct w49 a22930) {struct w49 a41074; /* S */ struct w49 a42419; /* S */ struct w49 t68544; struct w49 t68545; struct w49 t68546; struct w49 t68547; /* x86697 stalin.sc:7033:242911 */ /* x86696 stalin.sc:7033:242918 */ /* x86695 stalin.sc:7033:242928 */ t68545 = a22930; /* x86694 stalin.sc:7033:242919 */ a41074 = t68545; /* x298408 stalin.sc:6937:240340 */ /* x298407 stalin.sc:6937:240360 */ t68546 = a41074; /* x298406 stalin.sc:6937:240341 */ a42419 = t68546; /* x303174 */ /* x303173 */ t68547 = a42419; /* x303172 */ if (!((t68547.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37595]"); structure_ref_error();} t68544 = t68547.value.structure_type27510->s9; /* x269936 stalin.sc:7033:242912 */ switch (t68544.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: return TRUE_TYPE; default: return FALSE_TYPE;}} /* SX-RATIONAL?[9747] */ unsigned f9747(struct w49 a22929) {struct w49 a33584; /* OBJ */ struct w49 a41075; /* S */ struct w49 a42418; /* S */ struct w49 t68548; struct w49 t68549; struct w49 t68550; struct w49 t68551; struct w49 t68552; /* x86690 stalin.sc:7031:242863 */ /* x86689 stalin.sc:7031:242874 */ /* x86688 stalin.sc:7031:242884 */ t68550 = a22929; /* x86687 stalin.sc:7031:242875 */ a41075 = t68550; /* x298412 stalin.sc:6937:240340 */ /* x298411 stalin.sc:6937:240360 */ t68551 = a41075; /* x298410 stalin.sc:6937:240341 */ a42418 = t68551; /* x303170 */ /* x303169 */ t68552 = a42418; /* x303168 */ if (!((t68552.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37594]"); structure_ref_error();} t68548 = t68552.value.structure_type27510->s9; /* x86686 stalin.sc:7031:242864 */ a33584 = t68548; /* x251473 */ /* x251472 */ t68549 = a33584; /* x251471 */ switch (t68549.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: return TRUE_TYPE; default: return FALSE_TYPE;}} /* SX-INTEGER?[9746] */ unsigned f9746(struct w49 a22928) {struct w49 a41084; /* S */ struct w49 a42409; /* S */ struct w49 t68553; struct w49 t68554; struct w49 t68555; struct w49 t68556; /* x86683 stalin.sc:7029:242812 */ /* x86682 stalin.sc:7029:242822 */ /* x86681 stalin.sc:7029:242832 */ t68554 = a22928; /* x86680 stalin.sc:7029:242823 */ a41084 = t68554; /* x298448 stalin.sc:6937:240340 */ /* x298447 stalin.sc:6937:240360 */ t68555 = a41084; /* x298446 stalin.sc:6937:240341 */ a42409 = t68555; /* x303134 */ /* x303133 */ t68556 = a42409; /* x303132 */ if (!((t68556.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37585]"); structure_ref_error();} t68553 = t68556.value.structure_type27510->s9; /* x269937 stalin.sc:7029:242813 */ switch (t68553.tag) {case FIXNUM_TYPE: return TRUE_TYPE; case FLONUM_TYPE: if ((t68553.value.flonum_type)==rint(t68553.value.flonum_type)) return TRUE_TYPE; else return FALSE_TYPE; default: return FALSE_TYPE;}} /* SX-EQ?[9745] */ unsigned f9745(struct w49 a22926, struct w49 a22927) {struct w49 a41116; /* S */ struct w49 a42376; /* S */ struct w49 t68557; struct w49 t68558; struct w49 t68559; struct w49 t68560; struct w49 t68561; /* x86676 stalin.sc:7027:242765 */ /* x86674 stalin.sc:7027:242770 */ /* x86673 stalin.sc:7027:242780 */ t68559 = a22926; /* x86672 stalin.sc:7027:242771 */ a41116 = t68559; /* x298576 stalin.sc:6937:240340 */ /* x298575 stalin.sc:6937:240360 */ t68560 = a41116; /* x298574 stalin.sc:6937:240341 */ a42376 = t68560; /* x303002 */ /* x303001 */ t68561 = a42376; /* x303000 */ if (!((t68561.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37552]"); structure_ref_error();} t68557 = t68561.value.structure_type27510->s9; /* x86675 stalin.sc:7027:242783 */ t68558 = a22927; /* x269938 stalin.sc:7027:242766 */ /* EQ: dispatching general to general */ if (!((t68557.tag)==(t68558.tag))) return FALSE_TYPE; switch (t68557.tag) {case FIXNUM_TYPE: if ((t68557.value.fixnum_type)==(t68558.value.fixnum_type)) return TRUE_TYPE; else return FALSE_TYPE; case FLONUM_TYPE: if ((t68557.value.flonum_type)==(t68558.value.flonum_type)) return TRUE_TYPE; else return FALSE_TYPE; case INPUT_PORT_TYPE: if ((t68557.value.input_port_type)==(t68558.value.input_port_type)) return TRUE_TYPE; else return FALSE_TYPE; case OUTPUT_PORT_TYPE: if ((t68557.value.output_port_type)==(t68558.value.output_port_type)) return TRUE_TYPE; else return FALSE_TYPE; case NATIVE_PROCEDURE_TYPE15963: if ((t68557.value.native_procedure_type15963)==(t68558.value.native_procedure_type15963)) return TRUE_TYPE; else return FALSE_TYPE; case NATIVE_PROCEDURE_TYPE19067: if ((t68557.value.native_procedure_type19067)==(t68558.value.native_procedure_type19067)) return TRUE_TYPE; else return FALSE_TYPE; case NATIVE_PROCEDURE_TYPE19068: if ((t68557.value.native_procedure_type19068)==(t68558.value.native_procedure_type19068)) return TRUE_TYPE; else return FALSE_TYPE; case NATIVE_PROCEDURE_TYPE22459: if ((t68557.value.native_procedure_type22459)==(t68558.value.native_procedure_type22459)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE24753: if ((t68557.value.structure_type24753)==(t68558.value.structure_type24753)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE24757: if ((t68557.value.structure_type24757)==(t68558.value.structure_type24757)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27501: if ((t68557.value.structure_type27501)==(t68558.value.structure_type27501)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27510: if ((t68557.value.structure_type27510)==(t68558.value.structure_type27510)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27621: if ((t68557.value.structure_type27621)==(t68558.value.structure_type27621)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27650: if ((t68557.value.structure_type27650)==(t68558.value.structure_type27650)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27669: if ((t68557.value.structure_type27669)==(t68558.value.structure_type27669)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27673: if ((t68557.value.structure_type27673)==(t68558.value.structure_type27673)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27692: if ((t68557.value.structure_type27692)==(t68558.value.structure_type27692)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27694: if ((t68557.value.structure_type27694)==(t68558.value.structure_type27694)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27698: if ((t68557.value.structure_type27698)==(t68558.value.structure_type27698)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27745: if ((t68557.value.structure_type27745)==(t68558.value.structure_type27745)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27747: if ((t68557.value.structure_type27747)==(t68558.value.structure_type27747)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27750: if ((t68557.value.structure_type27750)==(t68558.value.structure_type27750)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27753: if ((t68557.value.structure_type27753)==(t68558.value.structure_type27753)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27756: if ((t68557.value.structure_type27756)==(t68558.value.structure_type27756)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27761: if ((t68557.value.structure_type27761)==(t68558.value.structure_type27761)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27769: if ((t68557.value.structure_type27769)==(t68558.value.structure_type27769)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27776: if ((t68557.value.structure_type27776)==(t68558.value.structure_type27776)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27779: if ((t68557.value.structure_type27779)==(t68558.value.structure_type27779)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27858: if ((t68557.value.structure_type27858)==(t68558.value.structure_type27858)) return TRUE_TYPE; else return FALSE_TYPE; case STRING_TYPE: if ((t68557.value.string_type)==(t68558.value.string_type)) return TRUE_TYPE; else return FALSE_TYPE; case HEADED_VECTOR_TYPE27896: if ((t68557.value.headed_vector_type27896)==(t68558.value.headed_vector_type27896)) return TRUE_TYPE; else return FALSE_TYPE; case EXTERNAL_SYMBOL_TYPE: if ((t68557.value.external_symbol_type)==(t68558.value.external_symbol_type)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27908: if ((t68557.value.structure_type27908)==(t68558.value.structure_type27908)) return TRUE_TYPE; else return FALSE_TYPE; default: return TRUE_TYPE;}} /* SX-CHAR?[9744] */ unsigned f9744(struct w49 a22925) {struct w49 a41076; /* S */ struct w49 a42417; /* S */ struct w49 t68562; struct w49 t68563; struct w49 t68564; struct w49 t68565; /* x86668 stalin.sc:7025:242721 */ /* x86667 stalin.sc:7025:242728 */ /* x86666 stalin.sc:7025:242738 */ t68563 = a22925; /* x86665 stalin.sc:7025:242729 */ a41076 = t68563; /* x298416 stalin.sc:6937:240340 */ /* x298415 stalin.sc:6937:240360 */ t68564 = a41076; /* x298414 stalin.sc:6937:240341 */ a42417 = t68564; /* x303166 */ /* x303165 */ t68565 = a42417; /* x303164 */ if (!((t68565.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37593]"); structure_ref_error();} t68562 = t68565.value.structure_type27510->s9; /* x269939 stalin.sc:7025:242722 */ if ((t68562.tag)s9; /* x269940 stalin.sc:7023:242676 */ if ((t68566.tag)==HEADED_VECTOR_TYPE27896) return TRUE_TYPE; return FALSE_TYPE;} /* SX-STRING?[9742] */ unsigned f9742(struct w49 a22923) {struct w49 a41115; /* S */ struct w49 a42377; /* S */ struct w49 t68570; struct w49 t68571; struct w49 t68572; struct w49 t68573; /* x86654 stalin.sc:7021:242627 */ /* x86653 stalin.sc:7021:242636 */ /* x86652 stalin.sc:7021:242646 */ t68571 = a22923; /* x86651 stalin.sc:7021:242637 */ a41115 = t68571; /* x298572 stalin.sc:6937:240340 */ /* x298571 stalin.sc:6937:240360 */ t68572 = a41115; /* x298570 stalin.sc:6937:240341 */ a42377 = t68572; /* x303006 */ /* x303005 */ t68573 = a42377; /* x303004 */ if (!((t68573.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37553]"); structure_ref_error();} t68570 = t68573.value.structure_type27510->s9; /* x269941 stalin.sc:7021:242628 */ if ((t68570.tag)==STRING_TYPE) return TRUE_TYPE; return FALSE_TYPE;} /* SX-SYMBOL?[9741] */ unsigned f9741(struct w49 a22922) {struct w49 a41119; /* S */ struct w49 a42379; /* S */ struct w49 t68574; struct w49 t68575; struct w49 t68576; struct w49 t68577; /* x86647 stalin.sc:7019:242579 */ /* x86646 stalin.sc:7019:242588 */ /* x86645 stalin.sc:7019:242598 */ t68575 = a22922; /* x86644 stalin.sc:7019:242589 */ a41119 = t68575; /* x298588 stalin.sc:6937:240340 */ /* x298587 stalin.sc:6937:240360 */ t68576 = a41119; /* x298586 stalin.sc:6937:240341 */ a42379 = t68576; /* x303014 */ /* x303013 */ t68577 = a42379; /* x303012 */ if (!((t68577.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37555]"); structure_ref_error();} t68574 = t68577.value.structure_type27510->s9; /* x269942 stalin.sc:7019:242580 */ if ((t68574.tag)==EXTERNAL_SYMBOL_TYPE) return TRUE_TYPE; return FALSE_TYPE;} /* SX-PAIR?[9740] */ unsigned f9740(struct w49 a22921) {struct w49 a41122; /* S */ struct w49 a42373; /* S */ struct w49 t68578; struct w49 t68579; struct w49 t68580; struct w49 t68581; /* x86640 stalin.sc:7017:242533 */ /* x86639 stalin.sc:7017:242540 */ /* x86638 stalin.sc:7017:242550 */ t68579 = a22921; /* x86637 stalin.sc:7017:242541 */ a41122 = t68579; /* x298600 stalin.sc:6937:240340 */ /* x298599 stalin.sc:6937:240360 */ t68580 = a41122; /* x298598 stalin.sc:6937:240341 */ a42373 = t68580; /* x302990 */ /* x302989 */ t68581 = a42373; /* x302988 */ if (!((t68581.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37549]"); structure_ref_error();} t68578 = t68581.value.structure_type27510->s9; /* x269943 stalin.sc:7017:242534 */ if ((t68578.tag)==STRUCTURE_TYPE24753) return TRUE_TYPE; return FALSE_TYPE;} /* SX-NULL?[9739] */ unsigned f9739(struct w49 a22920) {struct w49 a41123; /* S */ struct w49 a42372; /* S */ struct w49 t68582; struct w49 t68583; struct w49 t68584; struct w49 t68585; /* x86633 stalin.sc:7015:242489 */ /* x86632 stalin.sc:7015:242496 */ /* x86631 stalin.sc:7015:242506 */ t68583 = a22920; /* x86630 stalin.sc:7015:242497 */ a41123 = t68583; /* x298604 stalin.sc:6937:240340 */ /* x298603 stalin.sc:6937:240360 */ t68584 = a41123; /* x298602 stalin.sc:6937:240341 */ a42372 = t68584; /* x302986 */ /* x302985 */ t68585 = a42372; /* x302984 */ if (!((t68585.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37548]"); structure_ref_error();} t68582 = t68585.value.structure_type27510->s9; /* x269944 stalin.sc:7015:242490 */ if ((t68582.tag)==NULL_TYPE) return TRUE_TYPE; return FALSE_TYPE;} /* SX-LENGTH[9734] */ int f9734(struct w49 a22915) {struct w49 a22918; /* S */ int a22919; /* C */ struct w49 a41470; /* S */ struct w49 t68586; int t68587; struct w49 t68588; struct w49 t68589; int t68590; struct w49 t68591; struct w49 t68592; int t68593; int t68594; /* x86626 stalin.sc:7011:242372 */ /* x86624 stalin.sc:7011:242386 */ t68586 = a22915; /* x86625 stalin.sc:7011:242392 */ t68587 = 0; /* x86623 */ /* x86622 */ /* x86621 */ /* x86620 */ /* x86619 */ /* x86618 */ /* x86617 */ /* x86602 */ /* x86601 stalin.sc:7011:242377 */ a22918 = t68586; a22919 = t68587; h9737: /* x86616 stalin.sc:7013:242418 */ /* x86605 stalin.sc:7013:242422 */ /* x86604 stalin.sc:7013:242432 */ t68588 = a22918; /* x86603 stalin.sc:7013:242423 */ if (f9739(t68588)==FALSE_TYPE) goto l11689; /* x86606 stalin.sc:7013:242435 */ return a22919; l11689: /* x86615 stalin.sc:7013:242437 */ /* x86610 stalin.sc:7013:242443 */ /* x86609 stalin.sc:7013:242452 */ t68591 = a22918; /* x86608 stalin.sc:7013:242444 */ a41470 = t68591; /* x299992 stalin.sc:7008:242336 */ /* x299991 stalin.sc:7008:242344 */ t68592 = a41470; /* x299990 stalin.sc:7008:242337 */ t68589 = f9720(t68592); /* x86614 stalin.sc:7013:242455 */ /* x86612 stalin.sc:7013:242458 */ t68593 = a22919; /* x86613 stalin.sc:7013:242460 */ t68594 = 1; /* x269945 stalin.sc:7013:242456 */ t68590 = t68593+t68594; /* x86607 stalin.sc:7013:242438 */ a22918 = t68589; a22919 = t68590; goto h9737;} /* SX-ELEVENTH[9731] */ struct w49 f9731(struct w49 a22912) {struct w49 t68595; struct w49 t68596; struct w49 t68597; struct w49 t68598; struct w49 t68599; struct w49 t68600; struct w49 t68601; struct w49 t68602; struct w49 t68603; struct w49 t68604; struct w49 t68605; /* x86566 stalin.sc:6992:241964 */ /* x86565 stalin.sc:6993:241974 */ /* x86564 stalin.sc:6994:241985 */ /* x86563 stalin.sc:6995:241997 */ /* x86562 stalin.sc:6996:242010 */ /* x86561 stalin.sc:6996:242018 */ /* x86560 stalin.sc:6996:242026 */ /* x86559 stalin.sc:6996:242034 */ /* x86558 stalin.sc:6996:242042 */ /* x86557 stalin.sc:6996:242050 */ /* x86556 stalin.sc:6996:242058 */ /* x86555 stalin.sc:6996:242066 */ t68605 = a22912; /* x86554 stalin.sc:6996:242059 */ t68604 = f9720(t68605); /* x86553 stalin.sc:6996:242051 */ t68603 = f9720(t68604); /* x86552 stalin.sc:6996:242043 */ t68602 = f9720(t68603); /* x86551 stalin.sc:6996:242035 */ t68601 = f9720(t68602); /* x86550 stalin.sc:6996:242027 */ t68600 = f9720(t68601); /* x86549 stalin.sc:6996:242019 */ t68599 = f9720(t68600); /* x86548 stalin.sc:6996:242011 */ t68598 = f9720(t68599); /* x86547 stalin.sc:6995:241998 */ t68597 = f9720(t68598); /* x86546 stalin.sc:6994:241986 */ t68596 = f9720(t68597); /* x86545 stalin.sc:6993:241975 */ t68595 = f9720(t68596); /* x86544 stalin.sc:6992:241965 */ return f9719(t68595);} /* SX-TENTH[9730] */ struct w49 f9730(struct w49 a22911) {struct w49 t68606; struct w49 t68607; struct w49 t68608; struct w49 t68609; struct w49 t68610; struct w49 t68611; struct w49 t68612; struct w49 t68613; struct w49 t68614; struct w49 t68615; /* x86541 stalin.sc:6987:241840 */ /* x86540 stalin.sc:6988:241850 */ /* x86539 stalin.sc:6989:241861 */ /* x86538 stalin.sc:6989:241869 */ /* x86537 stalin.sc:6989:241877 */ /* x86536 stalin.sc:6989:241885 */ /* x86535 stalin.sc:6989:241893 */ /* x86534 stalin.sc:6989:241901 */ /* x86533 stalin.sc:6989:241909 */ /* x86532 stalin.sc:6989:241917 */ /* x86531 stalin.sc:6989:241925 */ t68615 = a22911; /* x86530 stalin.sc:6989:241918 */ t68614 = f9720(t68615); /* x86529 stalin.sc:6989:241910 */ t68613 = f9720(t68614); /* x86528 stalin.sc:6989:241902 */ t68612 = f9720(t68613); /* x86527 stalin.sc:6989:241894 */ t68611 = f9720(t68612); /* x86526 stalin.sc:6989:241886 */ t68610 = f9720(t68611); /* x86525 stalin.sc:6989:241878 */ t68609 = f9720(t68610); /* x86524 stalin.sc:6989:241870 */ t68608 = f9720(t68609); /* x86523 stalin.sc:6989:241862 */ t68607 = f9720(t68608); /* x86522 stalin.sc:6988:241851 */ t68606 = f9720(t68607); /* x86521 stalin.sc:6987:241841 */ return f9719(t68606);} /* SX-NINTH[9729] */ struct w49 f9729(struct w49 a22910) {struct w49 t68616; struct w49 t68617; struct w49 t68618; struct w49 t68619; struct w49 t68620; struct w49 t68621; struct w49 t68622; struct w49 t68623; struct w49 t68624; /* x86518 stalin.sc:6983:241731 */ /* x86517 stalin.sc:6984:241741 */ /* x86516 stalin.sc:6984:241749 */ /* x86515 stalin.sc:6984:241757 */ /* x86514 stalin.sc:6984:241765 */ /* x86513 stalin.sc:6984:241773 */ /* x86512 stalin.sc:6984:241781 */ /* x86511 stalin.sc:6984:241789 */ /* x86510 stalin.sc:6984:241797 */ /* x86509 stalin.sc:6984:241805 */ t68624 = a22910; /* x86508 stalin.sc:6984:241798 */ t68623 = f9720(t68624); /* x86507 stalin.sc:6984:241790 */ t68622 = f9720(t68623); /* x86506 stalin.sc:6984:241782 */ t68621 = f9720(t68622); /* x86505 stalin.sc:6984:241774 */ t68620 = f9720(t68621); /* x86504 stalin.sc:6984:241766 */ t68619 = f9720(t68620); /* x86503 stalin.sc:6984:241758 */ t68618 = f9720(t68619); /* x86502 stalin.sc:6984:241750 */ t68617 = f9720(t68618); /* x86501 stalin.sc:6984:241742 */ t68616 = f9720(t68617); /* x86500 stalin.sc:6983:241732 */ return f9719(t68616);} /* SX-EIGHTH[9728] */ struct w49 f9728(struct w49 a22909) {struct w49 t68625; struct w49 t68626; struct w49 t68627; struct w49 t68628; struct w49 t68629; struct w49 t68630; struct w49 t68631; struct w49 t68632; /* x86497 stalin.sc:6980:241633 */ /* x86496 stalin.sc:6980:241641 */ /* x86495 stalin.sc:6980:241649 */ /* x86494 stalin.sc:6980:241657 */ /* x86493 stalin.sc:6980:241665 */ /* x86492 stalin.sc:6980:241673 */ /* x86491 stalin.sc:6980:241681 */ /* x86490 stalin.sc:6980:241689 */ /* x86489 stalin.sc:6980:241697 */ t68632 = a22909; /* x86488 stalin.sc:6980:241690 */ t68631 = f9720(t68632); /* x86487 stalin.sc:6980:241682 */ t68630 = f9720(t68631); /* x86486 stalin.sc:6980:241674 */ t68629 = f9720(t68630); /* x86485 stalin.sc:6980:241666 */ t68628 = f9720(t68629); /* x86484 stalin.sc:6980:241658 */ t68627 = f9720(t68628); /* x86483 stalin.sc:6980:241650 */ t68626 = f9720(t68627); /* x86482 stalin.sc:6980:241642 */ t68625 = f9720(t68626); /* x86481 stalin.sc:6980:241634 */ return f9719(t68625);} /* SX-SEVENTH[9727] */ struct w49 f9727(struct w49 a22908) {struct w49 t68633; struct w49 t68634; struct w49 t68635; struct w49 t68636; struct w49 t68637; struct w49 t68638; struct w49 t68639; /* x86478 stalin.sc:6977:241543 */ /* x86477 stalin.sc:6977:241551 */ /* x86476 stalin.sc:6977:241559 */ /* x86475 stalin.sc:6977:241567 */ /* x86474 stalin.sc:6977:241575 */ /* x86473 stalin.sc:6977:241583 */ /* x86472 stalin.sc:6977:241591 */ /* x86471 stalin.sc:6977:241599 */ t68639 = a22908; /* x86470 stalin.sc:6977:241592 */ t68638 = f9720(t68639); /* x86469 stalin.sc:6977:241584 */ t68637 = f9720(t68638); /* x86468 stalin.sc:6977:241576 */ t68636 = f9720(t68637); /* x86467 stalin.sc:6977:241568 */ t68635 = f9720(t68636); /* x86466 stalin.sc:6977:241560 */ t68634 = f9720(t68635); /* x86465 stalin.sc:6977:241552 */ t68633 = f9720(t68634); /* x86464 stalin.sc:6977:241544 */ return f9719(t68633);} /* SX-SIXTH[9726] */ struct w49 f9726(struct w49 a22907) {struct w49 t68640; struct w49 t68641; struct w49 t68642; struct w49 t68643; struct w49 t68644; struct w49 t68645; /* x86461 stalin.sc:6974:241461 */ /* x86460 stalin.sc:6974:241469 */ /* x86459 stalin.sc:6974:241477 */ /* x86458 stalin.sc:6974:241485 */ /* x86457 stalin.sc:6974:241493 */ /* x86456 stalin.sc:6974:241501 */ /* x86455 stalin.sc:6974:241509 */ t68645 = a22907; /* x86454 stalin.sc:6974:241502 */ t68644 = f9720(t68645); /* x86453 stalin.sc:6974:241494 */ t68643 = f9720(t68644); /* x86452 stalin.sc:6974:241486 */ t68642 = f9720(t68643); /* x86451 stalin.sc:6974:241478 */ t68641 = f9720(t68642); /* x86450 stalin.sc:6974:241470 */ t68640 = f9720(t68641); /* x86449 stalin.sc:6974:241462 */ return f9719(t68640);} /* SX-FIFTH[9725] */ struct w49 f9725(struct w49 a22906) {struct w49 t68646; struct w49 t68647; struct w49 t68648; struct w49 t68649; struct w49 t68650; /* x86446 stalin.sc:6972:241391 */ /* x86445 stalin.sc:6972:241399 */ /* x86444 stalin.sc:6972:241407 */ /* x86443 stalin.sc:6972:241415 */ /* x86442 stalin.sc:6972:241423 */ /* x86441 stalin.sc:6972:241431 */ t68650 = a22906; /* x86440 stalin.sc:6972:241424 */ t68649 = f9720(t68650); /* x86439 stalin.sc:6972:241416 */ t68648 = f9720(t68649); /* x86438 stalin.sc:6972:241408 */ t68647 = f9720(t68648); /* x86437 stalin.sc:6972:241400 */ t68646 = f9720(t68647); /* x86436 stalin.sc:6972:241392 */ return f9719(t68646);} /* SX-FOURTH[9724] */ struct w49 f9724(struct w49 a22905) {struct w49 t68651; struct w49 t68652; struct w49 t68653; struct w49 t68654; /* x86433 stalin.sc:6970:241330 */ /* x86432 stalin.sc:6970:241338 */ /* x86431 stalin.sc:6970:241346 */ /* x86430 stalin.sc:6970:241354 */ /* x86429 stalin.sc:6970:241362 */ t68654 = a22905; /* x86428 stalin.sc:6970:241355 */ t68653 = f9720(t68654); /* x86427 stalin.sc:6970:241347 */ t68652 = f9720(t68653); /* x86426 stalin.sc:6970:241339 */ t68651 = f9720(t68652); /* x86425 stalin.sc:6970:241331 */ return f9719(t68651);} /* SX-THIRD[9723] */ struct w49 f9723(struct w49 a22904) {struct w49 t68655; struct w49 t68656; struct w49 t68657; /* x86422 stalin.sc:6968:241277 */ /* x86421 stalin.sc:6968:241285 */ /* x86420 stalin.sc:6968:241293 */ /* x86419 stalin.sc:6968:241301 */ t68657 = a22904; /* x86418 stalin.sc:6968:241294 */ t68656 = f9720(t68657); /* x86417 stalin.sc:6968:241286 */ t68655 = f9720(t68656); /* x86416 stalin.sc:6968:241278 */ return f9719(t68655);} /* SX-SECOND[9722] */ struct w49 f9722(struct w49 a22903) {struct w49 t68658; struct w49 t68659; /* x86413 stalin.sc:6966:241234 */ /* x86412 stalin.sc:6966:241242 */ /* x86411 stalin.sc:6966:241250 */ t68659 = a22903; /* x86410 stalin.sc:6966:241243 */ t68658 = f9720(t68659); /* x86409 stalin.sc:6966:241235 */ return f9719(t68658);} /* SX-CDR[9720] */ struct w49 f9720(struct w49 a22901) {struct w49 a41121; /* S */ struct w49 a42374; /* S */ struct w49 t68660; struct w49 t68661; struct w49 t68662; struct w49 t68663; /* x86401 stalin.sc:6960:241078 */ /* x86400 stalin.sc:6960:241083 */ /* x86399 stalin.sc:6960:241093 */ t68661 = a22901; /* x86398 stalin.sc:6960:241084 */ a41121 = t68661; /* x298596 stalin.sc:6937:240340 */ /* x298595 stalin.sc:6937:240360 */ t68662 = a41121; /* x298594 stalin.sc:6937:240341 */ a42374 = t68662; /* x302994 */ /* x302993 */ t68663 = a42374; /* x302992 */ if (!((t68663.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37550]"); structure_ref_error();} t68660 = t68663.value.structure_type27510->s9; /* x269946 stalin.sc:6960:241079 */ if ((t68660.tag)==STRUCTURE_TYPE24753) return t68660.value.structure_type24753->s1; backtrace("stalin.sc", 6960, 241078); structure_ref_error();} /* SX-CAR[9719] */ struct w49 f9719(struct w49 a22900) {struct w49 a41120; /* S */ struct w49 a42375; /* S */ struct w49 t68664; struct w49 t68665; struct w49 t68666; struct w49 t68667; /* x86394 stalin.sc:6958:241038 */ /* x86393 stalin.sc:6958:241043 */ /* x86392 stalin.sc:6958:241053 */ t68665 = a22900; /* x86391 stalin.sc:6958:241044 */ a41120 = t68665; /* x298592 stalin.sc:6937:240340 */ /* x298591 stalin.sc:6937:240360 */ t68666 = a41120; /* x298590 stalin.sc:6937:240341 */ a42375 = t68666; /* x302998 */ /* x302997 */ t68667 = a42375; /* x302996 */ if (!((t68667.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37551]"); structure_ref_error();} t68664 = t68667.value.structure_type27510->s9; /* x269947 stalin.sc:6958:241039 */ if ((t68664.tag)==STRUCTURE_TYPE24753) return t68664.value.structure_type24753->s0; backtrace("stalin.sc", 6958, 241038); structure_ref_error();} /* EXPAND-MACRO[9715] */ struct structure_type27510 *f9715(struct w49 a22898) {struct w49 a18892; /* S */ struct w49 a18902; /* S */ struct w49 a18903; /* S */ struct structure_type27510 *a18904; /* X */ struct w49 a22897; /* S */ struct w49 a37753; /* OBJ */ struct w49 a40466; /* S */ struct w49 a40476; /* S */ struct w49 a40486; /* S */ struct w49 a40497; /* S */ struct w49 a40508; /* S */ struct w49 a41085; /* S */ struct w49 a41111; /* S */ struct w49 a41617; /* S */ struct w49 a42382; /* S */ struct w49 a42408; /* S */ struct w49 t68668; struct w49 t68669; struct w49 t68670; struct w49 t68671; struct w49 t68672; struct structure_type27510 *t68673; struct w49 t68674; struct structure_type27510 *t68675; struct w49 t68676; struct w6194 t68677; struct w6194 t68678; struct w6194 t68679; struct w12224 t68680; struct w49 t68681; struct w49 t68682; struct w49 t68683; struct w49 t68684; struct w49 t68685; struct w49 t68686; struct w49 t68687; struct w49 t68688; struct w49 t68689; struct w49 t68690; struct w49 t68691; struct w49 t68692; struct w49 t68693; struct w49 t68694; struct w49 t68695; struct w49 t68696; struct w49 t68697; struct structure_type24753 *t68698; struct structure_type24753 *t68699; struct structure_type24753 *t68700; struct structure_type24753 *t68701; struct structure_type24753 *t68702; struct structure_type24753 *t68703; struct structure_type24753 *t68704; struct structure_type24753 *t68705; struct structure_type24753 *t68706; struct structure_type24753 *t68707; struct structure_type24753 *t68708; struct structure_type24753 *t68709; struct structure_type24753 *t68710; struct structure_type24753 *t68711; struct structure_type24753 *t68712; struct structure_type24753 *t68713; struct structure_type24753 *t68714; struct structure_type24753 *t68715; struct structure_type24753 *t68716; struct structure_type24753 *t68717; struct structure_type24753 *t68718; struct structure_type24753 *t68719; struct structure_type24753 *t68720; struct structure_type24753 *t68721; struct structure_type24753 *t68722; struct structure_type24753 *t68723; struct structure_type24753 *t68724; struct structure_type24753 *t68725; struct structure_type24753 *t68726; struct structure_type24753 *t68727; struct structure_type24753 *t68728; struct structure_type24753 *t68729; struct structure_type24753 *t68730; struct structure_type24753 *t68731; struct structure_type24753 *t68732; unsigned t68733; unsigned t68734; struct w16638 t68735; unsigned t68736; unsigned t68737; unsigned t68738; unsigned t68739; unsigned t68740; unsigned t68741; unsigned t68742; unsigned t68743; unsigned t68744; unsigned t68745; unsigned t68746; unsigned t68747; unsigned t68748; struct w49 t68749; unsigned t68750; struct w16638 t68751; struct w16638 t68752; unsigned t68753; unsigned t68754; unsigned t68755; unsigned t68756; unsigned t68757; unsigned t68758; unsigned t68759; unsigned t68760; unsigned t68761; unsigned t68762; unsigned t68763; unsigned t68764; unsigned t68765; unsigned t68766; unsigned t68767; unsigned t68768; unsigned t68769; unsigned t68770; unsigned t68771; unsigned t68772; struct w49 t68773; struct w49 t68774; struct w49 t68775; struct w49 t68776; struct w49 t68777; struct w49 t68778; struct w49 t68779; struct w49 t68780; struct w49 t68781; /* x86387 */ /* x86386 stalin.sc:6944:240508 */ /* x86350 stalin.sc:6944:240516 */ /* x86349 stalin.sc:6944:240540 */ t68670 = a22898; /* x86348 stalin.sc:6944:240517 */ a40466 = t68670; /* x294533 */ /* x294532 */ t68671 = a40466; /* x294531 */ if (!((t68671.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-EXPANSION[5443] 35383]"); structure_ref_error();} if ((t68671.value.structure_type27510->s7)==((struct structure_type27510 *)FALSE_TYPE)) goto l11691; /* x86352 */ /* x86351 */ goto l11692; l11691: /* x86385 */ /* x86384 */ /* x86383 stalin.sc:6945:240545 */ /* x86354 stalin.sc:6946:240577 */ t68672 = a22898; /* x86382 stalin.sc:6947:240582 */ /* x86358 stalin.sc:6948:240607 */ /* x86357 stalin.sc:6948:240630 */ t68682 = a22898; /* x86356 stalin.sc:6948:240608 */ a40508 = t68682; /* x294701 */ /* x294700 */ t68683 = a40508; /* x294699 */ if (!((t68683.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-PATHNAME[5403] 35425]"); structure_ref_error();} t68676 = t68683.value.structure_type27510->s2; /* x86361 stalin.sc:6949:240637 */ /* x86360 stalin.sc:6949:240665 */ t68684 = a22898; /* x86359 stalin.sc:6949:240638 */ a40497 = t68684; /* x294657 */ /* x294656 */ t68685 = a40497; /* x294655 */ if (!((t68685.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-LINE-POSITION[5411] 35414]"); structure_ref_error();} t68677 = t68685.value.structure_type27510->s3; /* x86364 stalin.sc:6950:240672 */ /* x86363 stalin.sc:6950:240705 */ t68686 = a22898; /* x86362 stalin.sc:6950:240673 */ a40486 = t68686; /* x294613 */ /* x294612 */ t68687 = a40486; /* x294611 */ if (!((t68687.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CHARACTER-POSITION[5419] 35403]"); structure_ref_error();} t68678 = t68687.value.structure_type27510->s4; /* x86367 stalin.sc:6951:240712 */ /* x86366 stalin.sc:6951:240757 */ t68688 = a22898; /* x86365 stalin.sc:6951:240713 */ a40476 = t68688; /* x294573 */ /* x294572 */ t68689 = a40476; /* x294571 */ if (!((t68689.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CHARACTER-POSITION-WITHIN-LINE[5427] 35393]"); structure_ref_error();} t68679 = t68689.value.structure_type27510->s5; /* x86370 stalin.sc:6952:240764 */ /* x86369 stalin.sc:6952:240787 */ t68690 = a22898; /* x86368 stalin.sc:6952:240765 */ a18892 = t68690; /* x49355 */ /* x49354 */ t68691 = a18892; /* x49353 */ if (!((t68691.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("S-EXPRESSION-COMMENTS[5435]"); structure_ref_error();} t68680 = t68691.value.structure_type27510->s6; /* x86381 stalin.sc:6955:240927 */ /* x86380 stalin.sc:6955:240937 */ /* x86379 stalin.sc:6955:240950 */ /* x86378 stalin.sc:6955:240981 */ t68697 = a22898; /* x86377 stalin.sc:6955:240951 */ /* x86376 stalin.sc:6955:240967 */ /* x86375 stalin.sc:6955:240977 */ t68780 = a22898; /* x86374 stalin.sc:6955:240968 */ a41617 = t68780; /* x300580 stalin.sc:6964:241199 */ /* x300579 stalin.sc:6964:241207 */ t68781 = a41617; /* x300578 stalin.sc:6964:241200 */ t68773 = f9719(t68781); /* x86373 stalin.sc:6955:240952 */ a22897 = t68773; /* x86341 stalin.sc:6941:240442 */ /* x86340 stalin.sc:6941:240450 */ /* x86338 stalin.sc:6941:240456 */ /* x86337 stalin.sc:6941:240466 */ t68777 = a22897; /* x86336 stalin.sc:6941:240457 */ a41111 = t68777; /* x298556 stalin.sc:6937:240340 */ /* x298555 stalin.sc:6937:240360 */ t68778 = a41111; /* x298554 stalin.sc:6937:240341 */ a42382 = t68778; /* x303026 */ /* x303025 */ t68779 = a42382; /* x303024 */ if (!((t68779.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37558]"); structure_ref_error();} t68775 = t68779.value.structure_type27510->s9; /* x86339 stalin.sc:6941:240469 */ t68776 = a755; /* x86335 stalin.sc:6941:240451 */ t68774 = f26354(t68775, t68776); /* x86334 stalin.sc:6941:240443 */ t68696 = f26181(t68774); switch (t68696.tag) {case NATIVE_PROCEDURE_TYPE5964: t68698 = f18659(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68698; break; case NATIVE_PROCEDURE_TYPE5967: t68699 = f18658(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68699; break; case NATIVE_PROCEDURE_TYPE5968: t68700 = f18650(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68700; break; case NATIVE_PROCEDURE_TYPE5969: t68701 = f18643(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68701; break; case NATIVE_PROCEDURE_TYPE5970: t68695 = f18639(t68697); break; case NATIVE_PROCEDURE_TYPE5971: t68702 = f18506(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68702; break; case NATIVE_PROCEDURE_TYPE5972: t68703 = f18505(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68703; break; case NATIVE_PROCEDURE_TYPE5973: t68704 = f18504(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68704; break; case NATIVE_PROCEDURE_TYPE5974: t68705 = f18500(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68705; break; case NATIVE_PROCEDURE_TYPE5975: t68706 = f18492(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68706; break; case NATIVE_PROCEDURE_TYPE5976: t68707 = f18486(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68707; break; case NATIVE_PROCEDURE_TYPE5977: t68708 = f18482(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68708; break; case NATIVE_PROCEDURE_TYPE5978: t68709 = f18480(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68709; break; case NATIVE_PROCEDURE_TYPE5979: t68710 = f18475(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68710; break; case NATIVE_PROCEDURE_TYPE5980: t68711 = f18473(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68711; break; case NATIVE_PROCEDURE_TYPE5981: t68712 = f18471(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68712; break; case NATIVE_PROCEDURE_TYPE5982: t68713 = f18469(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68713; break; case NATIVE_PROCEDURE_TYPE5983: t68714 = f18467(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68714; break; case NATIVE_PROCEDURE_TYPE5984: t68715 = f18461(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68715; break; case NATIVE_PROCEDURE_TYPE5985: t68716 = f18455(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68716; break; case NATIVE_PROCEDURE_TYPE5986: t68717 = f18453(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68717; break; case NATIVE_PROCEDURE_TYPE5987: t68695 = f18449(t68697); break; case NATIVE_PROCEDURE_TYPE5988: t68718 = f18447(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68718; break; case NATIVE_PROCEDURE_TYPE5989: t68719 = f18440(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68719; break; case NATIVE_PROCEDURE_TYPE5990: t68720 = f18436(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68720; break; case NATIVE_PROCEDURE_TYPE5991: t68721 = f18432(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68721; break; case NATIVE_PROCEDURE_TYPE5992: t68722 = f18428(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68722; break; case NATIVE_PROCEDURE_TYPE5995: t68723 = f18342(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68723; break; case NATIVE_PROCEDURE_TYPE5996: t68724 = f18338(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68724; break; case NATIVE_PROCEDURE_TYPE6001: f18317(t68697); break; case NATIVE_PROCEDURE_TYPE6002: f18316(t68697); break; case NATIVE_PROCEDURE_TYPE6003: t68695 = f18306(t68697); break; case NATIVE_PROCEDURE_TYPE6004: t68725 = f18302(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68725; break; case NATIVE_PROCEDURE_TYPE6005: t68726 = f18294(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68726; break; case NATIVE_PROCEDURE_TYPE6006: t68727 = f18293(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68727; break; case NATIVE_PROCEDURE_TYPE6007: t68728 = f18285(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68728; break; case NATIVE_PROCEDURE_TYPE6008: t68729 = f18279(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68729; break; case NATIVE_PROCEDURE_TYPE6009: t68730 = f18266(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68730; break; case NATIVE_PROCEDURE_TYPE6010: t68695 = f18261(t68697); break; case NATIVE_PROCEDURE_TYPE6011: t68695 = f18257(t68697); break; case NATIVE_PROCEDURE_TYPE6012: t68731 = f18244(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68731; break; case NATIVE_PROCEDURE_TYPE6013: t68732 = f18228(t68697); t68695.tag = STRUCTURE_TYPE24753; t68695.value.structure_type24753 = t68732; break; case NATIVE_PROCEDURE_TYPE7404: t68733 = f7755(t68697); t68695.tag = t68733; break; case NATIVE_PROCEDURE_TYPE7406: t68734 = f7741(t68697); t68695.tag = t68734; break; case NATIVE_PROCEDURE_TYPE7410: t68735 = f7735(t68697); t68695 = *((struct w49 *)(&t68735)); break; case NATIVE_PROCEDURE_TYPE7415: t68736 = f7712(t68697); t68695.tag = t68736; break; case NATIVE_PROCEDURE_TYPE7418: t68737 = f7706(t68697); t68695.tag = t68737; break; case NATIVE_PROCEDURE_TYPE7420: t68738 = f7703(t68697); t68695.tag = t68738; break; case NATIVE_PROCEDURE_TYPE7421: t68739 = f7702(t68697); t68695.tag = t68739; break; case NATIVE_PROCEDURE_TYPE7422: t68740 = f7701(t68697); t68695.tag = t68740; break; case NATIVE_PROCEDURE_TYPE7423: t68741 = f7700(t68697); t68695.tag = t68741; break; case NATIVE_PROCEDURE_TYPE7426: t68742 = f7688(t68697); t68695.tag = t68742; break; case NATIVE_PROCEDURE_TYPE7429: t68743 = f7684(t68697); t68695.tag = t68743; break; case NATIVE_PROCEDURE_TYPE7430: t68744 = f7683(t68697); t68695.tag = t68744; break; case NATIVE_PROCEDURE_TYPE7431: t68745 = f7682(t68697); t68695.tag = t68745; break; case NATIVE_PROCEDURE_TYPE7432: t68746 = f7680(t68697); t68695.tag = t68746; break; case NATIVE_PROCEDURE_TYPE7433: t68747 = f7679(t68697); t68695.tag = t68747; break; case NATIVE_PROCEDURE_TYPE7435: t68748 = f7677(t68697); t68695.tag = t68748; break; case NATIVE_PROCEDURE_TYPE7822: a37753 = t68697; /* x283681 */ /* x283680 */ t68749 = a37753; /* x283679 */ t68695.tag = ((t68749.tag)==STRUCTURE_TYPE27673)?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE14107: /* x297567 stalin.sc:32903:1140843 */ t68695.tag = FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE15963: t68750 = f7718((t68696.value.native_procedure_type15963), t68697); t68695.tag = t68750; break; case NATIVE_PROCEDURE_TYPE19067: t68751 = f7905((t68696.value.native_procedure_type19067), t68697); t68695 = *((struct w49 *)(&t68751)); break; case NATIVE_PROCEDURE_TYPE19068: t68752 = f7893((t68696.value.native_procedure_type19068), t68697); t68695 = *((struct w49 *)(&t68752)); break; case NATIVE_PROCEDURE_TYPE22439: t68753 = f16724(t68697); t68695.tag = t68753; break; case NATIVE_PROCEDURE_TYPE22443: t68754 = f16800(t68697); t68695.tag = t68754; break; case NATIVE_PROCEDURE_TYPE22459: t68755 = f16363((t68696.value.native_procedure_type22459), t68697); t68695.tag = t68755; break; case NATIVE_PROCEDURE_TYPE22461: t68756 = f16437(t68697); t68695.tag = t68756; break; case NATIVE_PROCEDURE_TYPE22462: t68757 = f16449(t68697); t68695.tag = t68757; break; case NATIVE_PROCEDURE_TYPE22463: t68758 = f16602(t68697); t68695.tag = t68758; break; case NATIVE_PROCEDURE_TYPE22464: t68759 = f16614(t68697); t68695.tag = t68759; break; case NATIVE_PROCEDURE_TYPE22465: t68760 = f16652(t68697); t68695.tag = t68760; break; case NATIVE_PROCEDURE_TYPE22466: t68761 = f16664(t68697); t68695.tag = t68761; break; case NATIVE_PROCEDURE_TYPE22467: t68762 = f16686(t68697); t68695.tag = t68762; break; case NATIVE_PROCEDURE_TYPE22468: t68763 = f16709(t68697); t68695.tag = t68763; break; case NATIVE_PROCEDURE_TYPE22474: t68764 = f16806(t68697); t68695.tag = t68764; break; case NATIVE_PROCEDURE_TYPE22484: t68765 = f17508(t68697); t68695.tag = t68765; break; case NATIVE_PROCEDURE_TYPE22485: t68766 = f17538(t68697); t68695.tag = t68766; break; case NATIVE_PROCEDURE_TYPE22487: t68767 = f17645(t68697); t68695.tag = t68767; break; case NATIVE_PROCEDURE_TYPE22489: t68768 = f17811(t68697); t68695.tag = t68768; break; case NATIVE_PROCEDURE_TYPE22491: t68769 = f17904(t68697); t68695.tag = t68769; break; case NATIVE_PROCEDURE_TYPE22492: t68770 = f17916(t68697); t68695.tag = t68770; break; case NATIVE_PROCEDURE_TYPE22493: t68771 = f17990(t68697); t68695.tag = t68771; break; case NATIVE_PROCEDURE_TYPE22494: t68772 = f18046(t68697); t68695.tag = t68772; break; default: backtrace("stalin.sc", 6955, 240950); call_error();} /* x86372 stalin.sc:6955:240938 */ t68692 = f9774(t68695); /* x86371 stalin.sc:6955:240928 */ a41085 = t68692; /* x298452 stalin.sc:6937:240340 */ /* x298451 stalin.sc:6937:240360 */ t68693 = a41085; /* x298450 stalin.sc:6937:240341 */ a42408 = t68693; /* x303130 */ /* x303129 */ t68694 = a42408; /* x303128 */ if (!((t68694.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37584]"); structure_ref_error();} t68681 = t68694.value.structure_type27510->s9; /* x86355 stalin.sc:6947:240583 */ t68673 = f6867(t68676, t68677, t68678, t68679, t68680, t68681); /* x86353 stalin.sc:6945:240546 */ a18903 = t68672; a18904 = t68673; /* x49400 */ /* x49398 */ t68674 = a18903; /* x49399 */ t68675 = a18904; /* x49397 */ if (!((t68674.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("SET-S-EXPRESSION-EXPANSION![5444]"); structure_set_error();} t68674.value.structure_type27510->s7 = t68675; l11692: /* x86347 */ /* x86346 stalin.sc:6956:240990 */ /* x86345 stalin.sc:6956:241014 */ t68668 = a22898; /* x86344 stalin.sc:6956:240991 */ a18902 = t68668; /* x49394 */ /* x49393 */ t68669 = a18902; /* x49392 */ if ((t68669.tag)==STRUCTURE_TYPE27510) return t68669.value.structure_type27510->s7; backtrace_internal("S-EXPRESSION-EXPANSION[5443]"); structure_ref_error();} /* MACRO?[9713] */ struct w49 f9713(struct w49 a22896) {struct w49 a41112; /* S */ struct w49 a42381; /* S */ struct w49 t68782; struct w49 t68783; struct w49 t68784; struct w49 t68785; struct w49 t68786; /* x86331 stalin.sc:6939:240384 */ /* x86329 stalin.sc:6939:240390 */ /* x86328 stalin.sc:6939:240400 */ t68784 = a22896; /* x86327 stalin.sc:6939:240391 */ a41112 = t68784; /* x298560 stalin.sc:6937:240340 */ /* x298559 stalin.sc:6937:240360 */ t68785 = a41112; /* x298558 stalin.sc:6937:240341 */ a42381 = t68785; /* x303022 */ /* x303021 */ t68786 = a42381; /* x303020 */ if (!((t68786.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37557]"); structure_ref_error();} t68782 = t68786.value.structure_type27510->s9; /* x86330 stalin.sc:6939:240403 */ t68783 = a755; /* x86326 stalin.sc:6939:240385 */ return f26354(t68782, t68783);} /* SX-DATUM[9712] */ struct w49 f9712(struct w49 a22895) {struct w49 a40460; /* S */ struct w49 t68787; struct w49 t68788; /* x86323 stalin.sc:6937:240340 */ /* x86322 stalin.sc:6937:240360 */ t68787 = a22895; /* x86321 stalin.sc:6937:240341 */ a40460 = t68787; /* x294509 */ /* x294508 */ t68788 = a40460; /* x294507 */ if ((t68788.tag)==STRUCTURE_TYPE27510) return t68788.value.structure_type27510->s9; backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 35377]"); structure_ref_error();} /* UNIMPLEMENTED[9707] */ void f9707(struct w6315 a22892, char *a22893) {struct w6315 a36477; /* S */ struct w6315 a36498; /* OBJ */ struct w6315 a40163; /* S */ struct w6315 a40179; /* S */ struct w6315 a40201; /* S */ struct w6315 a40211; /* S */ struct w6315 a40458; /* OBJ */ int t68789; struct w6315 t68790; struct w6315 t68791; struct w6315 t68792; struct w6315 t68793; char *t68794; struct w49 t68795; struct structure_type24753 *t68796; struct w49 t68797; char *t68798; struct w6315 t68799; struct w6315 t68800; struct w6315 t68801; struct w6315 t68802; struct w6315 t68803; char *t68804; struct w49 t68805; struct structure_type24753 *t68806; char *t68807; struct w49 t68808; struct w7121 t68809; struct w7121 t68810; struct w49 t68811; struct structure_type24753 *t68812; struct w49 t68813; struct w49 t68814; struct w6315 t68815; struct w6315 t68816; struct w6315 t68817; struct w6315 t68818; struct w6315 t68819; struct w6315 t68820; /* x86318 */ /* x86317 stalin.sc:6922:239882 */ /* x86278 stalin.sc:6922:239889 */ /* x86277 stalin.sc:6922:239902 */ t68790 = a22892; /* x86276 stalin.sc:6922:239890 */ a40458 = t68790; /* x294501 */ /* x294500 */ t68791 = a40458; /* x294499 */ if (!((t68791.tag)==STRUCTURE_TYPE27698)) goto l11694; /* x86299 */ /* x86298 */ /* x86297 stalin.sc:6923:239908 */ /* x86281 stalin.sc:6923:239912 */ /* x86280 stalin.sc:6923:239933 */ t68802 = a22892; /* x86279 stalin.sc:6923:239913 */ a40211 = t68802; /* x293513 */ /* x293512 */ t68803 = a40211; /* x293511 */ if (!((t68803.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35128]"); structure_ref_error();} if ((t68803.value.structure_type27698->s3.tag)==FALSE_TYPE) goto l11700; /* x86293 stalin.sc:6924:239943 */ /* x86292 stalin.sc:6927:240040 */ /* x86291 stalin.sc:6927:240071 */ t68819 = a22892; /* x86290 stalin.sc:6927:240041 */ a40163 = t68819; /* x293321 */ /* x293320 */ t68820 = a40163; /* x293319 */ if (!((t68820.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION[5527] 35080]"); structure_ref_error();} t68810 = t68820.value.structure_type27698->s5; /* x86289 stalin.sc:6926:240003 */ /* x86288 stalin.sc:6926:240029 */ t68817 = a22892; /* x86287 stalin.sc:6926:240004 */ a40179 = t68817; /* x293385 */ /* x293384 */ t68818 = a40179; /* x293383 */ if (!((t68818.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LINE-POSITION[5519] 35096]"); structure_ref_error();} t68809 = t68818.value.structure_type27698->s4; /* x86286 stalin.sc:6925:239971 */ /* x86285 stalin.sc:6925:239992 */ t68815 = a22892; /* x86284 stalin.sc:6925:239972 */ a40201 = t68815; /* x293473 */ /* x293472 */ t68816 = a40201; /* x293471 */ if (!((t68816.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35118]"); structure_ref_error();} t68808 = t68816.value.structure_type27698->s3; /* x86283 stalin.sc:6924:239951 */ t68807 = "~a:~s:~s:~a"; /* x86282 stalin.sc:6924:239944 */ t68811.tag = STRING_TYPE; t68811.value.string_type = t68807; t68814.tag = STRUCTURE_TYPE24753; t68814.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68814.value.structure_type24753)==NULL) {backtrace("stalin.sc", 6924, 239943); out_of_memory_error();} t68814.value.structure_type24753->s0 = *((struct w49 *)(&t68810)); t68814.value.structure_type24753->s1.tag = NULL_TYPE; t68813.tag = STRUCTURE_TYPE24753; t68813.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68813.value.structure_type24753)==NULL) {backtrace("stalin.sc", 6924, 239943); out_of_memory_error();} t68813.value.structure_type24753->s0 = *((struct w49 *)(&t68809)); t68813.value.structure_type24753->s1 = t68814; t68812 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t68812==NULL) {backtrace("stalin.sc", 6924, 239943); out_of_memory_error();} t68812->s0 = t68808; t68812->s1 = t68813; f5365(t68811, t68812); goto l11701; l11700: /* x86296 stalin.sc:6928:240082 */ /* x86295 stalin.sc:6928:240090 */ t68804 = a22893; /* x86294 stalin.sc:6928:240083 */ t68805.tag = STRING_TYPE; t68805.value.string_type = t68804; t68806 = (struct structure_type24753 *)NULL_TYPE; f5365(t68805, t68806); l11701: goto l11695; l11694: /* x86316 */ /* x86302 stalin.sc:6929:240107 */ /* x86301 stalin.sc:6929:240119 */ t68792 = a22892; /* x86300 stalin.sc:6929:240108 */ a36498 = t68792; /* x278661 */ /* x278660 */ t68793 = a36498; /* x278659 */ if (!((t68793.tag)==STRUCTURE_TYPE27745)) goto l11697; /* x86310 */ /* x86309 */ /* x86308 stalin.sc:6929:240124 */ /* x86306 stalin.sc:6929:240139 */ /* x86305 stalin.sc:6929:240161 */ t68800 = a22892; /* x86304 stalin.sc:6929:240140 */ a36477 = t68800; /* x278577 */ /* x278576 */ t68801 = a36477; /* x278575 */ if (!((t68801.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31394]"); structure_ref_error();} t68797 = t68801.value.structure_type27745->s0; /* x86307 stalin.sc:6929:240166 */ t68798 = a22893; /* x86303 stalin.sc:6929:240125 */ t68799 = *((struct w6315 *)(&t68797)); f9707(t68799, t68798); goto l11698; l11697: /* x86315 */ /* x86314 */ /* x86313 stalin.sc:6930:240187 */ /* x86312 stalin.sc:6930:240195 */ t68794 = a22893; /* x86311 stalin.sc:6930:240188 */ t68795.tag = STRING_TYPE; t68795.value.string_type = t68794; t68796 = (struct structure_type24753 *)NULL_TYPE; f5365(t68795, t68796); l11698: l11695: /* x86275 */ /* x86274 stalin.sc:6931:240205 */ /* x86273 stalin.sc:6931:240206 */ /* x294841 stalin.sc:87:2881 */ /* x294840 stalin.sc:87:2887 */ t68789 = -1; /* x294839 stalin.sc:87:2882 */ exit(t68789);} /* SYNTAX-ERROR[9705] */ void f9705(struct w49 a22889, char *a22890) {struct w49 a40487; /* S */ struct w49 a40498; /* S */ struct w49 a40509; /* S */ struct w49 a40510; /* S */ int t68821; struct w49 t68822; struct w49 t68823; char *t68824; struct w49 t68825; struct structure_type24753 *t68826; char *t68827; struct w49 t68828; struct w6194 t68829; struct w6194 t68830; char *t68831; struct w49 t68832; struct structure_type24753 *t68833; struct w49 t68834; struct w49 t68835; struct w49 t68836; struct w49 t68837; struct w49 t68838; struct w49 t68839; struct w49 t68840; struct w49 t68841; struct w49 t68842; /* x86270 */ /* x86269 stalin.sc:6910:239540 */ /* x86252 stalin.sc:6910:239544 */ /* x86251 stalin.sc:6910:239567 */ t68822 = a22889; /* x86250 stalin.sc:6910:239545 */ a40510 = t68822; /* x294709 */ /* x294708 */ t68823 = a40510; /* x294707 */ if (!((t68823.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-PATHNAME[5403] 35427]"); structure_ref_error();} if ((t68823.value.structure_type27510->s2.tag)==FALSE_TYPE) goto l11703; /* x86265 stalin.sc:6911:239575 */ /* x86264 stalin.sc:6915:239714 */ t68831 = a22890; /* x86263 stalin.sc:6914:239672 */ /* x86262 stalin.sc:6914:239705 */ t68841 = a22889; /* x86261 stalin.sc:6914:239673 */ a40487 = t68841; /* x294617 */ /* x294616 */ t68842 = a40487; /* x294615 */ if (!((t68842.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CHARACTER-POSITION[5419] 35404]"); structure_ref_error();} t68830 = t68842.value.structure_type27510->s4; /* x86260 stalin.sc:6913:239635 */ /* x86259 stalin.sc:6913:239663 */ t68839 = a22889; /* x86258 stalin.sc:6913:239636 */ a40498 = t68839; /* x294661 */ /* x294660 */ t68840 = a40498; /* x294659 */ if (!((t68840.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-LINE-POSITION[5411] 35415]"); structure_ref_error();} t68829 = t68840.value.structure_type27510->s3; /* x86257 stalin.sc:6912:239603 */ /* x86256 stalin.sc:6912:239626 */ t68837 = a22889; /* x86255 stalin.sc:6912:239604 */ a40509 = t68837; /* x294705 */ /* x294704 */ t68838 = a40509; /* x294703 */ if (!((t68838.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-PATHNAME[5403] 35426]"); structure_ref_error();} t68828 = t68838.value.structure_type27510->s2; /* x86254 stalin.sc:6911:239583 */ t68827 = "~a:~s:~s:~a"; /* x86253 stalin.sc:6911:239576 */ t68832.tag = STRING_TYPE; t68832.value.string_type = t68827; t68836.tag = STRUCTURE_TYPE24753; t68836.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68836.value.structure_type24753)==NULL) {backtrace("stalin.sc", 6911, 239575); out_of_memory_error();} t68836.value.structure_type24753->s0.tag = STRING_TYPE; t68836.value.structure_type24753->s0.value.string_type = t68831; t68836.value.structure_type24753->s1.tag = NULL_TYPE; t68835.tag = STRUCTURE_TYPE24753; t68835.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68835.value.structure_type24753)==NULL) {backtrace("stalin.sc", 6911, 239575); out_of_memory_error();} t68835.value.structure_type24753->s0 = *((struct w49 *)(&t68830)); t68835.value.structure_type24753->s1 = t68836; t68834.tag = STRUCTURE_TYPE24753; t68834.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68834.value.structure_type24753)==NULL) {backtrace("stalin.sc", 6911, 239575); out_of_memory_error();} t68834.value.structure_type24753->s0 = *((struct w49 *)(&t68829)); t68834.value.structure_type24753->s1 = t68835; t68833 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t68833==NULL) {backtrace("stalin.sc", 6911, 239575); out_of_memory_error();} t68833->s0 = t68828; t68833->s1 = t68834; f5365(t68832, t68833); goto l11704; l11703: /* x86268 stalin.sc:6916:239726 */ /* x86267 stalin.sc:6916:239734 */ t68824 = a22890; /* x86266 stalin.sc:6916:239727 */ t68825.tag = STRING_TYPE; t68825.value.string_type = t68824; t68826 = (struct structure_type24753 *)NULL_TYPE; f5365(t68825, t68826); l11704: /* x86249 */ /* x86248 stalin.sc:6917:239743 */ /* x86247 stalin.sc:6917:239744 */ /* x49097 stalin.sc:87:2881 */ /* x49096 stalin.sc:87:2887 */ t68821 = -1; /* x49095 stalin.sc:87:2882 */ exit(t68821);} /* [inside PROGRAM-POINTS-THAT-DIRECTLY-FLOW-FROM 9690] */ struct structure_type27747 *f9690(struct w49 a22877) {struct w49 a19739; /* S */ struct w49 t68843; struct w49 t68844; struct w49 t68845; /* x86144 stalin.sc:6880:238662 */ /* x86143 stalin.sc:6880:238669 */ /* x86142 stalin.sc:6880:238710 */ t68844 = a22877; /* x86141 stalin.sc:6880:238670 */ a19739 = t68844; /* x52478 */ /* x52477 */ t68845 = a19739; /* x52476 */ if (!((t68845.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061]"); structure_ref_error();} t68843 = t68845.value.structure_type27858->s0; /* x86140 stalin.sc:6880:238663 */ return f9424(t68843);} /* [inside PROGRAM-POINTS-THAT-DIRECTLY-FLOW-FROM 9654] */ struct structure_type27747 *f9654(struct p9612 *p9654, struct w49 a22841) {struct w49 a36660; /* S */ struct w6852 a39197; /* S */ struct w49 a39681; /* S */ struct w49 a41210; /* D */ struct w49 a42500; /* S */ struct w49 t68846; struct w6852 t68847; struct w6852 t68848; struct w49 t68849; struct w49 t68850; struct w49 t68851; struct structure_type27745 *t68852; struct structure_type27745 *t68853; struct structure_type27745 *t68854; char *t68855; struct structure_type27745 *t68856; struct w49 t68857; struct w49 t68858; struct w49 t68859; struct w49 t68860; struct w49 t68861; struct w49 t68862; /* x85324 stalin.sc:6674:231842 */ /* x85323 stalin.sc:6675:231858 */ /* x85322 stalin.sc:6676:231884 */ /* x85321 stalin.sc:6677:231911 */ /* x85310 stalin.sc:6678:231935 */ t68851 = a22841; /* x85320 stalin.sc:6679:231941 */ /* x85318 stalin.sc:6680:231966 */ /* x85317 stalin.sc:6680:231984 */ /* x85316 stalin.sc:6680:232003 */ /* x85315 stalin.sc:6680:232015 */ t68860 = p9654->a22804; /* x85314 stalin.sc:6680:232004 */ a41210 = t68860; /* x298952 stalin.sc:5598:192786 */ /* x298951 stalin.sc:5598:192812 */ t68861 = a41210; /* x298950 stalin.sc:5598:192787 */ a42500 = t68861; /* x303870 */ /* x303869 */ t68862 = a42500; /* x303868 */ if (!((t68862.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37805]"); structure_ref_error();} t68858 = t68862.value.structure_type27747->s1; /* x85313 stalin.sc:6680:231985 */ a39681 = t68858; /* x291393 */ /* x291392 */ t68859 = a39681; /* x291391 */ if (!((t68859.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34598]"); structure_ref_error();} t68857 = t68859.value.structure_type27698->s11; /* x85312 stalin.sc:6680:231967 */ t68854 = f8739(t68857); /* x85319 stalin.sc:6681:232025 */ t68855 = q64; /* x85311 stalin.sc:6679:231942 */ t68856 = t68854; t68852 = f8743(t68856, t68855); /* x85309 stalin.sc:6677:231912 */ t68853 = t68852; t68849 = f9368(t68851, t68853); /* x85308 stalin.sc:6676:231885 */ a36660 = t68849; /* x279309 */ /* x279308 */ t68850 = a36660; /* x279307 */ if (!((t68850.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31577]"); structure_ref_error();} t68847 = t68850.value.structure_type27694->s1; /* x85307 stalin.sc:6675:231859 */ a39197 = t68847; /* x289457 */ /* x289456 */ t68848 = a39197; /* x289455 */ if (!((t68848.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34114]"); structure_ref_error();} t68846 = t68848.value.structure_type27698->s15; /* x85306 stalin.sc:6674:231843 */ return f9423(t68846);} /* [inside PROGRAM-POINTS-THAT-DIRECTLY-FLOW-FROM 9651] */ struct structure_type27747 *f9651(struct p9612 *p9651, struct w49 a22838) {struct w49 a36659; /* S */ struct w6852 a39196; /* S */ struct w49 a39676; /* S */ struct w49 a41205; /* D */ struct w49 a42505; /* S */ struct w49 t68863; struct w6852 t68864; struct w6852 t68865; struct w49 t68866; struct w49 t68867; struct w49 t68868; struct structure_type27745 *t68869; struct structure_type27745 *t68870; struct structure_type27745 *t68871; char *t68872; struct structure_type27745 *t68873; struct w49 t68874; struct w49 t68875; struct w49 t68876; struct w49 t68877; struct w49 t68878; struct w49 t68879; /* x85238 stalin.sc:6647:231067 */ /* x85237 stalin.sc:6648:231080 */ /* x85236 stalin.sc:6649:231103 */ /* x85235 stalin.sc:6650:231134 */ /* x85224 stalin.sc:6651:231162 */ t68868 = a22838; /* x85234 stalin.sc:6652:231172 */ /* x85232 stalin.sc:6653:231201 */ /* x85231 stalin.sc:6653:231219 */ /* x85230 stalin.sc:6653:231238 */ /* x85229 stalin.sc:6653:231250 */ t68877 = p9651->a22804; /* x85228 stalin.sc:6653:231239 */ a41205 = t68877; /* x298932 stalin.sc:5598:192786 */ /* x298931 stalin.sc:5598:192812 */ t68878 = a41205; /* x298930 stalin.sc:5598:192787 */ a42505 = t68878; /* x303890 */ /* x303889 */ t68879 = a42505; /* x303888 */ if (!((t68879.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37810]"); structure_ref_error();} t68875 = t68879.value.structure_type27747->s1; /* x85227 stalin.sc:6653:231220 */ a39676 = t68875; /* x291373 */ /* x291372 */ t68876 = a39676; /* x291371 */ if (!((t68876.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34593]"); structure_ref_error();} t68874 = t68876.value.structure_type27698->s11; /* x85226 stalin.sc:6653:231202 */ t68871 = f8739(t68874); /* x85233 stalin.sc:6654:231264 */ t68872 = q65; /* x85225 stalin.sc:6652:231173 */ t68873 = t68871; t68869 = f8743(t68873, t68872); /* x85223 stalin.sc:6650:231135 */ t68870 = t68869; t68866 = f9368(t68868, t68870); /* x85222 stalin.sc:6649:231104 */ a36659 = t68866; /* x279305 */ /* x279304 */ t68867 = a36659; /* x279303 */ if (!((t68867.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31576]"); structure_ref_error();} t68864 = t68867.value.structure_type27694->s1; /* x85221 stalin.sc:6648:231081 */ a39196 = t68864; /* x289453 */ /* x289452 */ t68865 = a39196; /* x289451 */ if (!((t68865.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34113]"); structure_ref_error();} t68863 = t68865.value.structure_type27698->s15; /* x85220 stalin.sc:6647:231068 */ return f9423(t68863);} /* [inside PROGRAM-POINTS-THAT-DIRECTLY-FLOW-FROM 9649] */ struct structure_type27747 *f9649(struct p9612 *p9649, struct w49 a22836) {struct w49 a36658; /* S */ struct w6852 a39195; /* S */ struct w49 a39673; /* S */ struct w49 a41202; /* D */ struct w49 a42508; /* S */ struct w49 t68880; struct w6852 t68881; struct w6852 t68882; struct w49 t68883; struct w49 t68884; struct w49 t68885; struct structure_type27745 *t68886; struct structure_type27745 *t68887; struct structure_type27745 *t68888; char *t68889; struct structure_type27745 *t68890; struct w49 t68891; struct w49 t68892; struct w49 t68893; struct w49 t68894; struct w49 t68895; struct w49 t68896; /* x85183 stalin.sc:6628:230560 */ /* x85182 stalin.sc:6629:230573 */ /* x85181 stalin.sc:6630:230596 */ /* x85180 stalin.sc:6631:230627 */ /* x85169 stalin.sc:6632:230655 */ t68885 = a22836; /* x85179 stalin.sc:6633:230665 */ /* x85177 stalin.sc:6634:230694 */ /* x85176 stalin.sc:6634:230712 */ /* x85175 stalin.sc:6634:230731 */ /* x85174 stalin.sc:6634:230743 */ t68894 = p9649->a22804; /* x85173 stalin.sc:6634:230732 */ a41202 = t68894; /* x298920 stalin.sc:5598:192786 */ /* x298919 stalin.sc:5598:192812 */ t68895 = a41202; /* x298918 stalin.sc:5598:192787 */ a42508 = t68895; /* x303902 */ /* x303901 */ t68896 = a42508; /* x303900 */ if (!((t68896.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37813]"); structure_ref_error();} t68892 = t68896.value.structure_type27747->s1; /* x85172 stalin.sc:6634:230713 */ a39673 = t68892; /* x291361 */ /* x291360 */ t68893 = a39673; /* x291359 */ if (!((t68893.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34590]"); structure_ref_error();} t68891 = t68893.value.structure_type27698->s11; /* x85171 stalin.sc:6634:230695 */ t68888 = f8739(t68891); /* x85178 stalin.sc:6635:230757 */ t68889 = q64; /* x85170 stalin.sc:6633:230666 */ t68890 = t68888; t68886 = f8743(t68890, t68889); /* x85168 stalin.sc:6631:230628 */ t68887 = t68886; t68883 = f9368(t68885, t68887); /* x85167 stalin.sc:6630:230597 */ a36658 = t68883; /* x279301 */ /* x279300 */ t68884 = a36658; /* x279299 */ if (!((t68884.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31575]"); structure_ref_error();} t68881 = t68884.value.structure_type27694->s1; /* x85166 stalin.sc:6629:230574 */ a39195 = t68881; /* x289449 */ /* x289448 */ t68882 = a39195; /* x289447 */ if (!((t68882.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34112]"); structure_ref_error();} t68880 = t68882.value.structure_type27698->s15; /* x85165 stalin.sc:6628:230561 */ return f9423(t68880);} /* [inside PROGRAM-POINTS-THAT-DIRECTLY-FLOW-FROM 9646] */ struct structure_type27747 *f9646(struct p9612 *p9646, struct w49 a22833) {struct w49 a36657; /* S */ struct w6852 a39194; /* S */ struct w49 a39668; /* S */ struct w49 a41197; /* D */ struct w49 a42513; /* S */ struct w49 t68897; struct w6852 t68898; struct w6852 t68899; struct w49 t68900; struct w49 t68901; struct w49 t68902; struct structure_type27745 *t68903; struct structure_type27745 *t68904; struct structure_type27745 *t68905; char *t68906; struct structure_type27745 *t68907; struct w49 t68908; struct w49 t68909; struct w49 t68910; struct w49 t68911; struct w49 t68912; struct w49 t68913; /* x85097 stalin.sc:6598:229753 */ /* x85096 stalin.sc:6599:229765 */ /* x85095 stalin.sc:6600:229787 */ /* x85094 stalin.sc:6601:229817 */ /* x85083 stalin.sc:6602:229844 */ t68902 = a22833; /* x85093 stalin.sc:6603:229853 */ /* x85091 stalin.sc:6604:229881 */ /* x85090 stalin.sc:6604:229899 */ /* x85089 stalin.sc:6604:229918 */ /* x85088 stalin.sc:6604:229930 */ t68911 = p9646->a22804; /* x85087 stalin.sc:6604:229919 */ a41197 = t68911; /* x298900 stalin.sc:5598:192786 */ /* x298899 stalin.sc:5598:192812 */ t68912 = a41197; /* x298898 stalin.sc:5598:192787 */ a42513 = t68912; /* x303922 */ /* x303921 */ t68913 = a42513; /* x303920 */ if (!((t68913.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37818]"); structure_ref_error();} t68909 = t68913.value.structure_type27747->s1; /* x85086 stalin.sc:6604:229900 */ a39668 = t68909; /* x291341 */ /* x291340 */ t68910 = a39668; /* x291339 */ if (!((t68910.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34585]"); structure_ref_error();} t68908 = t68910.value.structure_type27698->s11; /* x85085 stalin.sc:6604:229882 */ t68905 = f8739(t68908); /* x85092 stalin.sc:6605:229943 */ t68906 = q64; /* x85084 stalin.sc:6603:229854 */ t68907 = t68905; t68903 = f8743(t68907, t68906); /* x85082 stalin.sc:6601:229818 */ t68904 = t68903; t68900 = f9368(t68902, t68904); /* x85081 stalin.sc:6600:229788 */ a36657 = t68900; /* x279297 */ /* x279296 */ t68901 = a36657; /* x279295 */ if (!((t68901.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31574]"); structure_ref_error();} t68898 = t68901.value.structure_type27694->s1; /* x85080 stalin.sc:6599:229766 */ a39194 = t68898; /* x289445 */ /* x289444 */ t68899 = a39194; /* x289443 */ if (!((t68899.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34111]"); structure_ref_error();} t68897 = t68899.value.structure_type27698->s15; /* x85079 stalin.sc:6598:229754 */ return f9423(t68897);} /* [inside PROGRAM-POINTS-THAT-DIRECTLY-FLOW-FROM 9643] */ struct structure_type27747 *f9643(struct p9612 *p9643, struct w49 a22830) {struct w49 a36656; /* S */ struct w6852 a39193; /* S */ struct w49 a39663; /* S */ struct w49 a41192; /* D */ struct w49 a42518; /* S */ struct w49 t68914; struct w6852 t68915; struct w6852 t68916; struct w49 t68917; struct w49 t68918; struct w49 t68919; struct structure_type27745 *t68920; struct structure_type27745 *t68921; struct structure_type27745 *t68922; char *t68923; struct structure_type27745 *t68924; struct w49 t68925; struct w49 t68926; struct w49 t68927; struct w49 t68928; struct w49 t68929; struct w49 t68930; /* x85012 stalin.sc:6568:228926 */ /* x85011 stalin.sc:6569:228942 */ /* x85010 stalin.sc:6570:228968 */ /* x85009 stalin.sc:6571:228995 */ /* x84998 stalin.sc:6572:229019 */ t68919 = a22830; /* x85008 stalin.sc:6573:229025 */ /* x85006 stalin.sc:6574:229050 */ /* x85005 stalin.sc:6574:229068 */ /* x85004 stalin.sc:6574:229087 */ /* x85003 stalin.sc:6574:229099 */ t68928 = p9643->a22804; /* x85002 stalin.sc:6574:229088 */ a41192 = t68928; /* x298880 stalin.sc:5598:192786 */ /* x298879 stalin.sc:5598:192812 */ t68929 = a41192; /* x298878 stalin.sc:5598:192787 */ a42518 = t68929; /* x303942 */ /* x303941 */ t68930 = a42518; /* x303940 */ if (!((t68930.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37823]"); structure_ref_error();} t68926 = t68930.value.structure_type27747->s1; /* x85001 stalin.sc:6574:229069 */ a39663 = t68926; /* x291321 */ /* x291320 */ t68927 = a39663; /* x291319 */ if (!((t68927.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34580]"); structure_ref_error();} t68925 = t68927.value.structure_type27698->s11; /* x85000 stalin.sc:6574:229051 */ t68922 = f8739(t68925); /* x85007 stalin.sc:6575:229109 */ t68923 = q64; /* x84999 stalin.sc:6573:229026 */ t68924 = t68922; t68920 = f8743(t68924, t68923); /* x84997 stalin.sc:6571:228996 */ t68921 = t68920; t68917 = f9368(t68919, t68921); /* x84996 stalin.sc:6570:228969 */ a36656 = t68917; /* x279293 */ /* x279292 */ t68918 = a36656; /* x279291 */ if (!((t68918.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31573]"); structure_ref_error();} t68915 = t68918.value.structure_type27694->s1; /* x84995 stalin.sc:6569:228943 */ a39193 = t68915; /* x289441 */ /* x289440 */ t68916 = a39193; /* x289439 */ if (!((t68916.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34110]"); structure_ref_error();} t68914 = t68916.value.structure_type27698->s15; /* x84994 stalin.sc:6568:228927 */ return f9423(t68914);} /* [inside PROGRAM-POINTS-THAT-DIRECTLY-FLOW-FROM 9640] */ struct structure_type27747 *f9640(struct p9612 *p9640, struct w49 a22827) {struct w49 a36655; /* S */ struct w6852 a39192; /* S */ struct w49 a39659; /* S */ struct w49 a41188; /* D */ struct w49 a42522; /* S */ struct w49 t68931; struct w6852 t68932; struct w6852 t68933; struct w49 t68934; struct w49 t68935; struct w49 t68936; struct structure_type27745 *t68937; struct structure_type27745 *t68938; struct w49 t68939; struct w49 t68940; struct w49 t68941; struct w49 t68942; struct w49 t68943; struct w49 t68944; /* x84929 stalin.sc:6546:228232 */ /* x84928 stalin.sc:6547:228247 */ /* x84927 stalin.sc:6548:228272 */ /* x84926 stalin.sc:6549:228298 */ /* x84918 stalin.sc:6550:228321 */ t68936 = a22827; /* x84925 stalin.sc:6550:228323 */ /* x84924 stalin.sc:6550:228341 */ /* x84923 stalin.sc:6550:228360 */ /* x84922 stalin.sc:6550:228372 */ t68942 = p9640->a22804; /* x84921 stalin.sc:6550:228361 */ a41188 = t68942; /* x298864 stalin.sc:5598:192786 */ /* x298863 stalin.sc:5598:192812 */ t68943 = a41188; /* x298862 stalin.sc:5598:192787 */ a42522 = t68943; /* x303958 */ /* x303957 */ t68944 = a42522; /* x303956 */ if (!((t68944.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37827]"); structure_ref_error();} t68940 = t68944.value.structure_type27747->s1; /* x84920 stalin.sc:6550:228342 */ a39659 = t68940; /* x291305 */ /* x291304 */ t68941 = a39659; /* x291303 */ if (!((t68941.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34576]"); structure_ref_error();} t68939 = t68941.value.structure_type27698->s11; /* x84919 stalin.sc:6550:228324 */ t68937 = f8739(t68939); /* x84917 stalin.sc:6549:228299 */ t68938 = t68937; t68934 = f9368(t68936, t68938); /* x84916 stalin.sc:6548:228273 */ a36655 = t68934; /* x279289 */ /* x279288 */ t68935 = a36655; /* x279287 */ if (!((t68935.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31572]"); structure_ref_error();} t68932 = t68935.value.structure_type27694->s1; /* x84915 stalin.sc:6547:228248 */ a39192 = t68932; /* x289437 */ /* x289436 */ t68933 = a39192; /* x289435 */ if (!((t68933.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34109]"); structure_ref_error();} t68931 = t68933.value.structure_type27698->s15; /* x84914 stalin.sc:6546:228233 */ return f9423(t68931);} /* PROGRAM-POINTS-THAT-DIRECTLY-FLOW-FROM[9612] */ struct w49 f9612(struct w49 a22804) {struct w49 r9612; struct w49 a18935; /* S */ struct w49 a18945; /* S */ struct w49 a22619; /* D */ struct w49 a22621; /* D */ struct structure_type24753 *a34876; /* OBJS */ struct structure_type24753 *a34877; /* OBJS */ struct structure_type24753 *a34878; /* OBJS */ struct structure_type24753 *a34879; /* OBJS */ struct structure_type24753 *a34880; /* OBJS */ struct structure_type24753 *a34881; /* OBJS */ struct structure_type24753 *a34882; /* OBJS */ struct structure_type24753 *a34883; /* OBJS */ struct structure_type24753 *a34884; /* OBJS */ struct structure_type24753 *a34885; /* OBJS */ struct structure_type24753 *a34886; /* OBJS */ struct w11873 a35650; /* PAIR */ struct w49 a38496; /* S */ struct w49 a38497; /* S */ struct w49 a38498; /* S */ struct w49 a38499; /* S */ struct w49 a38500; /* S */ struct w49 a38501; /* S */ struct w49 a38502; /* S */ struct w49 a38503; /* S */ struct w49 a38504; /* S */ struct w49 a38505; /* S */ struct w49 a38506; /* S */ struct w49 a38507; /* S */ struct w49 a38508; /* S */ struct w49 a38509; /* S */ struct w49 a38510; /* S */ struct w49 a38511; /* S */ struct w49 a38512; /* S */ struct w49 a38513; /* S */ struct w49 a38514; /* S */ struct w49 a38609; /* S */ struct w49 a38610; /* S */ struct w49 a38611; /* S */ struct w49 a38612; /* S */ struct w49 a38613; /* S */ struct w49 a38614; /* S */ struct w49 a38615; /* S */ struct w49 a38616; /* S */ struct w49 a38618; /* S */ struct w49 a38619; /* S */ struct w49 a38620; /* S */ struct w49 a38621; /* S */ struct w49 a38885; /* S */ struct w49 a38886; /* S */ struct w49 a38940; /* S */ struct w49 a38941; /* S */ struct w49 a38995; /* S */ struct w49 a38996; /* S */ struct w49 a38997; /* S */ struct w49 a38998; /* S */ struct w49 a38999; /* S */ struct w49 a39058; /* S */ struct w49 a39627; /* S */ struct w49 a39628; /* S */ struct w49 a39629; /* S */ struct w49 a39630; /* S */ struct w49 a39631; /* S */ struct w49 a39632; /* S */ struct w49 a39633; /* S */ struct w49 a39634; /* S */ struct w49 a39635; /* S */ struct w49 a39636; /* S */ struct w49 a39637; /* S */ struct w49 a39638; /* S */ struct w49 a39639; /* S */ struct w49 a39640; /* S */ struct w49 a39641; /* S */ struct w49 a39642; /* S */ struct w49 a39643; /* S */ struct w49 a39644; /* S */ struct w49 a39645; /* S */ struct w49 a39646; /* S */ struct w49 a39647; /* S */ struct w49 a39648; /* S */ struct w49 a39649; /* S */ struct w49 a39650; /* S */ struct w49 a39651; /* S */ struct w49 a39652; /* S */ struct w49 a39653; /* S */ struct w49 a39654; /* S */ struct w49 a39655; /* S */ struct w49 a39656; /* S */ struct w49 a39657; /* S */ struct w49 a39658; /* S */ struct w49 a39661; /* S */ struct w49 a39665; /* S */ struct w49 a39666; /* S */ struct w49 a39670; /* S */ struct w49 a39671; /* S */ struct w49 a39675; /* S */ struct w49 a39678; /* S */ struct w49 a39679; /* S */ struct w49 a39683; /* S */ struct w49 a39684; /* S */ struct w49 a39685; /* S */ struct w49 a39686; /* S */ struct w49 a39687; /* S */ struct w49 a39688; /* S */ struct w49 a39689; /* S */ struct w49 a39690; /* S */ struct w49 a39691; /* S */ struct w49 a39692; /* S */ struct w49 a39693; /* S */ struct w49 a39694; /* S */ struct w49 a39706; /* S */ struct w49 a39707; /* S */ struct w49 a39708; /* S */ struct w49 a39709; /* S */ struct w49 a39710; /* S */ struct w49 a39711; /* S */ struct w49 a39712; /* S */ struct w49 a39713; /* S */ struct w49 a39714; /* S */ struct w49 a39716; /* S */ struct w49 a39717; /* S */ struct w49 a39718; /* S */ struct w49 a39719; /* S */ struct w49 a39720; /* S */ struct w49 a39721; /* S */ struct w49 a39722; /* S */ struct w49 a39723; /* S */ struct w49 a39724; /* S */ struct w49 a39834; /* S */ struct w49 a39835; /* S */ struct w49 a39836; /* S */ struct w49 a39837; /* S */ struct w49 a39838; /* S */ struct w49 a39839; /* S */ struct w49 a39840; /* S */ struct w49 a39841; /* S */ struct w49 a39842; /* S */ struct w49 a39843; /* S */ struct w49 a39844; /* S */ struct w49 a39845; /* S */ struct w49 a39857; /* S */ struct w49 a39858; /* S */ struct w49 a40030; /* S */ struct w49 a40232; /* S */ struct w49 a40233; /* S */ struct w49 a40234; /* S */ struct w49 a40235; /* S */ struct w49 a40236; /* S */ struct w49 a40237; /* S */ struct w49 a40238; /* S */ struct w49 a40239; /* S */ struct w49 a40240; /* S */ struct w49 a40241; /* S */ struct w49 a40242; /* S */ struct w49 a40243; /* S */ struct w49 a40244; /* S */ struct w49 a40245; /* S */ struct w49 a40246; /* S */ struct w49 a40247; /* S */ struct w49 a40248; /* S */ struct w49 a40249; /* S */ struct w49 a40250; /* S */ struct w49 a40251; /* S */ struct w49 a40252; /* S */ struct w49 a40253; /* S */ struct w49 a40254; /* S */ struct w49 a40255; /* S */ struct w49 a40256; /* S */ struct w49 a40257; /* S */ struct w49 a40258; /* S */ struct w49 a40259; /* S */ struct w49 a40260; /* S */ struct w49 a40261; /* S */ struct w49 a40262; /* S */ struct w49 a40263; /* S */ struct w49 a40264; /* S */ struct w49 a40265; /* S */ struct w49 a40266; /* S */ struct w49 a41124; /* D */ struct w49 a41125; /* D */ struct w49 a41126; /* D */ struct w49 a41127; /* D */ struct w49 a41128; /* D */ struct w49 a41129; /* D */ struct w49 a41130; /* D */ struct w49 a41131; /* D */ struct w49 a41132; /* D */ struct w49 a41133; /* D */ struct w49 a41134; /* D */ struct w49 a41135; /* D */ struct w49 a41136; /* D */ struct w49 a41137; /* D */ struct w49 a41138; /* D */ struct w49 a41139; /* D */ struct w49 a41140; /* D */ struct w49 a41141; /* D */ struct w49 a41142; /* D */ struct w49 a41143; /* D */ struct w49 a41144; /* D */ struct w49 a41145; /* D */ struct w49 a41146; /* D */ struct w49 a41147; /* D */ struct w49 a41148; /* D */ struct w49 a41149; /* D */ struct w49 a41150; /* D */ struct w49 a41151; /* D */ struct w49 a41152; /* D */ struct w49 a41153; /* D */ struct w49 a41154; /* D */ struct w49 a41155; /* D */ struct w49 a41156; /* D */ struct w49 a41157; /* D */ struct w49 a41158; /* D */ struct w49 a41159; /* D */ struct w49 a41160; /* D */ struct w49 a41161; /* D */ struct w49 a41162; /* D */ struct w49 a41163; /* D */ struct w49 a41164; /* D */ struct w49 a41165; /* D */ struct w49 a41166; /* D */ struct w49 a41167; /* D */ struct w49 a41168; /* D */ struct w49 a41169; /* D */ struct w49 a41170; /* D */ struct w49 a41171; /* D */ struct w49 a41172; /* D */ struct w49 a41173; /* D */ struct w49 a41174; /* D */ struct w49 a41175; /* D */ struct w49 a41176; /* D */ struct w49 a41177; /* D */ struct w49 a41178; /* D */ struct w49 a41179; /* D */ struct w49 a41180; /* D */ struct w49 a41181; /* D */ struct w49 a41182; /* D */ struct w49 a41183; /* D */ struct w49 a41184; /* D */ struct w49 a41185; /* D */ struct w49 a41186; /* D */ struct w49 a41187; /* D */ struct w49 a41190; /* D */ struct w49 a41194; /* D */ struct w49 a41195; /* D */ struct w49 a41199; /* D */ struct w49 a41200; /* D */ struct w49 a41204; /* D */ struct w49 a41207; /* D */ struct w49 a41208; /* D */ struct w49 a41212; /* D */ struct w49 a41213; /* D */ struct w49 a41214; /* D */ struct w49 a41215; /* D */ struct w49 a41216; /* D */ struct w49 a41217; /* D */ struct w49 a41218; /* D */ struct w49 a41219; /* D */ struct w49 a41220; /* D */ struct w49 a41221; /* D */ struct w49 a41222; /* D */ struct w49 a41223; /* D */ struct w49 a41224; /* D */ struct w49 a41231; /* D */ struct w49 a41232; /* D */ struct w49 a41233; /* D */ struct w49 a41245; /* D */ struct w49 a41246; /* D */ struct w49 a41247; /* D */ struct w49 a41248; /* D */ struct w49 a41249; /* D */ struct w49 a41250; /* D */ struct w49 a41251; /* D */ struct w49 a41252; /* D */ struct w49 a41253; /* D */ struct w49 a41254; /* D */ struct w49 a41255; /* D */ struct w49 a41256; /* D */ struct w49 a41258; /* D */ struct w49 a41259; /* D */ struct w49 a41260; /* D */ struct w49 a41261; /* D */ struct w49 a41262; /* D */ struct w49 a41263; /* D */ struct w49 a41264; /* D */ struct w49 a41265; /* D */ struct w49 a41266; /* D */ struct w49 a41267; /* D */ struct w49 a41268; /* D */ struct w49 a41269; /* D */ struct w49 a42441; /* S */ struct w49 a42442; /* S */ struct w49 a42443; /* S */ struct w49 a42444; /* S */ struct w49 a42445; /* S */ struct w49 a42446; /* S */ struct w49 a42447; /* S */ struct w49 a42448; /* S */ struct w49 a42449; /* S */ struct w49 a42450; /* S */ struct w49 a42451; /* S */ struct w49 a42452; /* S */ struct w49 a42454; /* S */ struct w49 a42455; /* S */ struct w49 a42456; /* S */ struct w49 a42457; /* S */ struct w49 a42458; /* S */ struct w49 a42459; /* S */ struct w49 a42460; /* S */ struct w49 a42461; /* S */ struct w49 a42462; /* S */ struct w49 a42463; /* S */ struct w49 a42464; /* S */ struct w49 a42465; /* S */ struct w49 a42477; /* S */ struct w49 a42478; /* S */ struct w49 a42479; /* S */ struct w49 a42486; /* S */ struct w49 a42487; /* S */ struct w49 a42488; /* S */ struct w49 a42489; /* S */ struct w49 a42490; /* S */ struct w49 a42491; /* S */ struct w49 a42492; /* S */ struct w49 a42493; /* S */ struct w49 a42494; /* S */ struct w49 a42495; /* S */ struct w49 a42496; /* S */ struct w49 a42497; /* S */ struct w49 a42498; /* S */ struct w49 a42502; /* S */ struct w49 a42503; /* S */ struct w49 a42506; /* S */ struct w49 a42510; /* S */ struct w49 a42511; /* S */ struct w49 a42515; /* S */ struct w49 a42516; /* S */ struct w49 a42520; /* S */ struct w49 a42523; /* S */ struct w49 a42524; /* S */ struct w49 a42525; /* S */ struct w49 a42526; /* S */ struct w49 a42527; /* S */ struct w49 a42528; /* S */ struct w49 a42529; /* S */ struct w49 a42530; /* S */ struct w49 a42531; /* S */ struct w49 a42532; /* S */ struct w49 a42533; /* S */ struct w49 a42534; /* S */ struct w49 a42535; /* S */ struct w49 a42536; /* S */ struct w49 a42537; /* S */ struct w49 a42538; /* S */ struct w49 a42539; /* S */ struct w49 a42540; /* S */ struct w49 a42541; /* S */ struct w49 a42542; /* S */ struct w49 a42543; /* S */ struct w49 a42544; /* S */ struct w49 a42545; /* S */ struct w49 a42546; /* S */ struct w49 a42547; /* S */ struct w49 a42548; /* S */ struct w49 a42549; /* S */ struct w49 a42550; /* S */ struct w49 a42551; /* S */ struct w49 a42552; /* S */ struct w49 a42553; /* S */ struct w49 a42554; /* S */ struct w49 a42555; /* S */ struct w49 a42556; /* S */ struct w49 a42557; /* S */ struct w49 a42558; /* S */ struct w49 a42559; /* S */ struct w49 a42560; /* S */ struct w49 a42561; /* S */ struct w49 a42562; /* S */ struct w49 a42563; /* S */ struct w49 a42564; /* S */ struct w49 a42565; /* S */ struct w49 a42566; /* S */ struct w49 a42567; /* S */ struct w49 a42568; /* S */ struct w49 a42569; /* S */ struct w49 a42570; /* S */ struct w49 a42571; /* S */ struct w49 a42572; /* S */ struct w49 a42573; /* S */ struct w49 a42574; /* S */ struct w49 a42575; /* S */ struct w49 a42576; /* S */ struct w49 a42577; /* S */ struct w49 a42578; /* S */ struct w49 a42579; /* S */ struct w49 a42580; /* S */ struct w49 a42581; /* S */ struct w49 a42582; /* S */ struct w49 a42583; /* S */ struct w49 a42584; /* S */ struct w49 a42585; /* S */ struct w49 a42586; /* S */ struct w49 t68945; struct w49 t68946; struct w49 t68947; struct structure_type24753 *t68948; struct structure_type24753 *t68949; struct structure_type24753 *t68950; struct structure_type24753 *t68951; struct structure_type24753 *t68952; struct structure_type24753 *t68953; struct w49 t68954; struct structure_type24753 *t68955; struct structure_type24753 *t68956; struct structure_type24753 *t68957; struct structure_type24753 *t68958; struct w49 t68959; struct w49 t68960; struct w49 t68961; struct w49 t68962; struct w49 t68963; struct w49 t68964; struct w49 t68965; struct w49 t68966; struct w49 t68967; struct w49 t68968; struct w49 t68969; struct w49 t68970; struct w49 t68971; struct w49 t68972; char *t68973; char *t68974; struct w49 t68975; struct w49 t68976; struct w49 t68977; struct w49 t68978; struct w49 t68979; struct w49 t68980; struct w49 t68981; struct structure_type27747 *t68982; struct w49 t68983; struct w49 t68984; struct w49 t68985; struct w49 t68986; struct w49 t68987; struct w49 t68988; struct w49 t68989; struct w49 t68990; struct w49 t68991; struct w49 t68992; struct w49 t68993; char *t68994; char *t68995; struct w49 t68996; struct w49 t68997; struct w49 t68998; struct w49 t68999; struct w49 t69000; struct w49 t69001; struct w49 t69002; struct w49 t69003; struct w49 t69004; struct w49 t69005; struct w49 t69006; struct w49 t69007; struct w49 t69008; struct w49 t69009; struct w49 t69010; struct w49 t69011; struct w49 t69012; struct w49 t69013; struct w49 t69014; struct w49 t69015; struct w211235 t69016; struct w49 t69017; struct w49 t69018; struct w49 t69019; struct w49 t69020; struct w49 t69021; struct w49 t69022; struct w49 t69023; struct w49 t69024; struct w49 t69025; struct structure_type27747 *t69026; struct w49 t69027; struct w49 t69028; struct w49 t69029; struct w49 t69030; struct w49 t69031; struct w49 t69032; struct w49 t69033; struct w49 t69034; struct w49 t69035; struct w49 t69036; struct w49 t69037; struct w49 t69038; struct w49 t69039; char *t69040; char *t69041; struct w49 t69042; struct w49 t69043; struct w49 t69044; struct w49 t69045; struct w49 t69046; struct w49 t69047; struct w49 t69048; struct w49 t69049; struct w49 t69050; struct w49 t69051; struct w49 t69052; struct w49 t69053; struct w49 t69054; struct w49 t69055; struct w49 t69056; struct w49 t69057; struct w49 t69058; struct w49 t69059; struct w49 t69060; struct w49 t69061; struct w211257 t69062; struct w49 t69063; struct w49 t69064; struct w49 t69065; struct w49 t69066; struct w49 t69067; struct w49 t69068; struct w49 t69069; struct w49 t69070; struct w49 t69071; struct structure_type27747 *t69072; struct w49 t69073; struct w49 t69074; struct w49 t69075; struct w49 t69076; struct w49 t69077; struct w49 t69078; struct w49 t69079; struct w49 t69080; struct w49 t69081; struct w49 t69082; struct w49 t69083; struct w49 t69084; struct w49 t69085; char *t69086; char *t69087; struct w49 t69088; struct w49 t69089; struct w49 t69090; struct w49 t69091; struct w49 t69092; struct w49 t69093; struct w49 t69094; struct w49 t69095; struct w49 t69096; struct w49 t69097; struct w49 t69098; struct w49 t69099; struct w49 t69100; struct w49 t69101; struct w49 t69102; struct w49 t69103; struct w49 t69104; struct w49 t69105; struct w49 t69106; struct w49 t69107; struct w49 t69108; struct w49 t69109; struct w49 t69110; struct w49 t69111; struct w49 t69112; struct w49 t69113; struct w49 t69114; struct w49 t69115; struct w49 t69116; struct w49 t69117; struct w49 t69118; struct structure_type27747 *t69119; struct w49 t69120; struct w49 t69121; struct w49 t69122; struct w49 t69123; struct w49 t69124; struct w49 t69125; struct w49 t69126; struct w49 t69127; struct w49 t69128; struct w49 t69129; struct w49 t69130; char *t69131; char *t69132; struct w49 t69133; struct w49 t69134; struct w49 t69135; struct w49 t69136; struct w49 t69137; struct w49 t69138; struct w49 t69139; char *t69140; char *t69141; struct w49 t69142; struct w49 t69143; struct w49 t69144; struct w49 t69145; struct w49 t69146; struct w49 t69147; struct w49 t69148; struct w49 t69149; struct w49 t69150; struct w49 t69151; struct w49 t69152; struct w49 t69153; struct w49 t69154; struct w49 t69155; struct w49 t69156; struct w49 t69157; struct w49 t69158; struct w49 t69159; struct w49 t69160; struct w11873 t69161; struct w49 t69162; struct w49 t69163; struct w49 t69164; struct w49 t69165; struct w49 t69166; struct w49 t69167; struct w49 t69168; struct structure_type27747 *t69169; struct w49 t69170; struct w11873 t69171; struct w11873 t69172; struct w49 t69173; struct w49 t69174; struct w49 t69175; struct w49 t69176; struct w49 t69177; struct w49 t69178; struct w49 t69179; struct w49 t69180; struct w49 t69181; struct w49 t69182; struct w49 t69183; struct w49 t69184; char *t69185; char *t69186; struct w49 t69187; struct w49 t69188; struct w49 t69189; struct w49 t69190; struct w49 t69191; struct w49 t69192; struct w49 t69193; char *t69194; char *t69195; struct w49 t69196; struct w49 t69197; struct w49 t69198; struct w49 t69199; struct w49 t69200; struct w49 t69201; struct w49 t69202; struct w49 t69203; struct w11873 t69204; struct w49 t69205; struct w49 t69206; struct w49 t69207; struct w49 t69208; struct w49 t69209; struct w49 t69210; struct w49 t69211; struct w49 t69212; struct w49 t69213; struct w49 t69214; struct w49 t69215; unsigned t69216; int t69217; struct w49 t69218; struct w11873 t69219; struct w49 t69220; struct w49 t69221; struct w49 t69222; struct w49 t69223; struct w49 t69224; struct w49 t69225; struct w49 t69226; struct w49 t69227; struct w49 t69228; struct w49 t69229; struct w49 t69230; int t69231; int t69232; struct w11873 t69233; struct w49 t69234; struct w49 t69235; struct w49 t69236; struct w49 t69237; struct w49 t69238; struct w49 t69239; struct w49 t69240; struct w49 t69241; struct structure_type27747 *t69242; struct w49 t69243; struct w11873 t69244; int t69245; struct w49 t69246; struct w49 t69247; struct w49 t69248; struct w49 t69249; struct w49 t69250; struct w49 t69251; struct w49 t69252; struct w49 t69253; struct w49 t69254; unsigned t69255; int t69256; struct w49 t69257; struct w11873 t69258; struct w49 t69259; struct w49 t69260; struct w49 t69261; struct w49 t69262; struct w49 t69263; struct w49 t69264; struct w49 t69265; struct w49 t69266; struct w49 t69267; struct w49 t69268; struct w49 t69269; struct w49 t69270; struct w49 t69271; struct w49 t69272; struct w49 t69273; struct w49 t69274; char *t69275; char *t69276; struct w49 t69277; struct w49 t69278; struct w49 t69279; struct w49 t69280; struct w49 t69281; struct w49 t69282; struct w49 t69283; char *t69284; char *t69285; struct w49 t69286; struct w49 t69287; struct w49 t69288; struct w49 t69289; struct w49 t69290; struct w49 t69291; struct w49 t69292; struct w49 t69293; struct w49 t69294; struct w49 t69295; struct w49 t69296; struct w49 t69297; struct w49 t69298; struct w49 t69299; struct w49 t69300; struct w49 t69301; struct w49 t69302; struct w49 t69303; struct w49 t69304; struct w11873 t69305; struct w49 t69306; struct w49 t69307; struct w49 t69308; struct w49 t69309; struct w49 t69310; struct w49 t69311; struct w49 t69312; struct w49 t69313; struct w11873 t69314; struct w49 t69315; struct w49 t69316; struct w49 t69317; struct w49 t69318; struct w49 t69319; struct w49 t69320; struct w49 t69321; struct w49 t69322; struct w49 t69323; struct w49 t69324; struct w49 t69325; unsigned t69326; int t69327; struct w49 t69328; struct w11873 t69329; struct w49 t69330; struct w49 t69331; struct w49 t69332; struct w49 t69333; struct w49 t69334; struct w49 t69335; struct w49 t69336; struct w49 t69337; struct w49 t69338; struct w49 t69339; struct w49 t69340; int t69341; int t69342; struct w11873 t69343; struct w49 t69344; struct w49 t69345; struct w49 t69346; struct w49 t69347; struct w49 t69348; struct w49 t69349; struct w49 t69350; struct w49 t69351; struct structure_type24753 *t69352; struct structure_type24753 *t69353; struct structure_type24753 *t69354; struct w49 t69355; struct structure_type24753 *t69356; struct structure_type24753 *t69357; struct w49 t69358; struct w49 t69359; struct w49 t69360; struct w49 t69361; struct p9612 *t69362; struct w12224 t69363; struct w36270 t69364; struct w49 t69365; struct structure_type24753 *t69366; struct p9612 *t69367; struct w49 t69368; struct w211061 t69369; struct w49 t69370; struct w49 t69371; struct w49 t69372; struct w49 t69373; struct w49 t69374; struct w49 t69375; struct w49 t69376; struct w49 t69377; struct w49 t69378; struct p9612 *t69379; struct w49 t69380; struct w211257 t69381; struct w49 t69382; struct w49 t69383; struct w49 t69384; struct w49 t69385; struct w49 t69386; struct w49 t69387; struct w49 t69388; struct w49 t69389; struct w49 t69390; struct p9612 *t69391; struct w12224 t69392; struct w36270 t69393; struct w49 t69394; struct structure_type24753 *t69395; struct p9612 *t69396; struct w49 t69397; struct w211061 t69398; struct w49 t69399; struct w49 t69400; struct w49 t69401; struct w49 t69402; struct w49 t69403; struct w49 t69404; struct w49 t69405; struct w49 t69406; struct p9612 *t69407; struct w49 t69408; struct w211257 t69409; struct w49 t69410; struct w49 t69411; struct w49 t69412; struct w49 t69413; struct w49 t69414; struct w49 t69415; struct w49 t69416; struct w49 t69417; struct w49 t69418; struct p9612 *t69419; struct w12224 t69420; struct w36270 t69421; struct w49 t69422; struct structure_type24753 *t69423; struct p9612 *t69424; struct w49 t69425; struct w211061 t69426; struct w49 t69427; struct w49 t69428; struct w49 t69429; struct w49 t69430; struct w49 t69431; struct w49 t69432; struct w49 t69433; struct w49 t69434; struct p9612 *t69435; struct w49 t69436; struct w211257 t69437; struct w49 t69438; struct w49 t69439; struct w49 t69440; struct w49 t69441; struct w49 t69442; struct w49 t69443; struct w49 t69444; struct w49 t69445; struct w49 t69446; struct structure_type24753 *t69447; struct structure_type24753 *t69448; struct structure_type24753 *t69449; struct w49 t69450; struct p9612 *t69451; struct w12224 t69452; struct w36270 t69453; struct w49 t69454; struct structure_type24753 *t69455; struct p9612 *t69456; struct w49 t69457; struct w211061 t69458; struct w49 t69459; struct w49 t69460; struct w49 t69461; struct w49 t69462; struct w49 t69463; struct w49 t69464; struct w49 t69465; struct w49 t69466; struct p9612 *t69467; struct w12224 t69468; struct w36270 t69469; struct w49 t69470; struct structure_type24753 *t69471; struct p9612 *t69472; struct w49 t69473; struct w211061 t69474; struct w49 t69475; struct w49 t69476; struct w49 t69477; struct w49 t69478; struct w49 t69479; struct w49 t69480; struct w49 t69481; struct w49 t69482; struct p9612 *t69483; struct w49 t69484; struct w211257 t69485; struct w49 t69486; struct w49 t69487; struct w49 t69488; struct w49 t69489; struct w49 t69490; struct w49 t69491; struct w49 t69492; struct w49 t69493; struct w49 t69494; struct p9612 *t69495; struct w12224 t69496; struct w36270 t69497; struct w49 t69498; struct structure_type24753 *t69499; struct p9612 *t69500; struct w49 t69501; struct w211061 t69502; struct w49 t69503; struct w49 t69504; struct w49 t69505; struct w49 t69506; struct w49 t69507; struct w49 t69508; struct w49 t69509; struct w49 t69510; struct w49 t69511; struct w49 t69512; struct w49 t69513; struct w49 t69514; struct w49 t69515; char *t69516; char *t69517; struct w49 t69518; struct w49 t69519; struct w49 t69520; struct w49 t69521; struct w49 t69522; struct w49 t69523; struct w49 t69524; struct w49 t69525; struct w49 t69526; struct w49 t69527; struct w49 t69528; struct w49 t69529; struct w49 t69530; struct w12224 t69531; struct w36270 t69532; struct w49 t69533; struct structure_type24753 *t69534; struct p9612 *t69535; struct w21193 t69536; struct w227671 t69537; struct w49 t69538; struct w49 t69539; struct w49 t69540; struct w49 t69541; struct w49 t69542; struct w49 t69543; char *t69544; char *t69545; struct w49 t69546; struct w49 t69547; struct w49 t69548; struct w49 t69549; struct w49 t69550; struct w49 t69551; struct w49 t69552; struct w49 t69553; struct w49 t69554; struct w49 t69555; struct w49 t69556; struct w49 t69557; struct w49 t69558; struct w49 t69559; struct w49 t69560; struct w49 t69561; struct w49 t69562; struct w49 t69563; struct w49 t69564; struct w11873 t69565; struct w49 t69566; struct w49 t69567; struct w49 t69568; struct w49 t69569; struct w49 t69570; struct w49 t69571; struct w49 t69572; struct w49 t69573; struct w11873 t69574; struct w49 t69575; struct w49 t69576; struct w49 t69577; struct w49 t69578; struct w49 t69579; struct w49 t69580; struct w49 t69581; struct w49 t69582; struct w49 t69583; struct w49 t69584; struct w49 t69585; unsigned t69586; int t69587; struct w49 t69588; struct w11873 t69589; struct w49 t69590; struct w49 t69591; struct w49 t69592; struct w49 t69593; struct w49 t69594; struct w49 t69595; struct w49 t69596; struct w49 t69597; struct w49 t69598; struct w49 t69599; struct w49 t69600; int t69601; int t69602; struct w11873 t69603; struct w49 t69604; struct w49 t69605; struct w49 t69606; struct w49 t69607; struct w49 t69608; struct w49 t69609; struct w49 t69610; struct w49 t69611; struct p9612 *t69612; struct w49 t69613; struct w211257 t69614; struct w49 t69615; struct w49 t69616; struct w49 t69617; struct w49 t69618; struct w49 t69619; struct w49 t69620; struct w49 t69621; struct w49 t69622; struct w49 t69623; struct structure_type27747 *t69624; struct w49 t69625; struct w49 t69626; struct w49 t69627; struct w49 t69628; struct w49 t69629; struct w49 t69630; struct w49 t69631; struct w49 t69632; struct w49 t69633; struct w49 t69634; struct w49 t69635; char *t69636; char *t69637; struct w49 t69638; struct w49 t69639; struct w49 t69640; struct w49 t69641; struct w49 t69642; struct w49 t69643; struct w49 t69644; char *t69645; char *t69646; struct w49 t69647; struct w49 t69648; struct w49 t69649; struct w49 t69650; struct w49 t69651; struct w49 t69652; struct w49 t69653; struct w49 t69654; struct w49 t69655; struct w49 t69656; struct w49 t69657; struct w49 t69658; struct w49 t69659; struct w49 t69660; struct w49 t69661; struct w49 t69662; struct w49 t69663; struct w49 t69664; struct w49 t69665; struct w11873 t69666; struct w49 t69667; struct w49 t69668; struct w49 t69669; struct w49 t69670; struct w49 t69671; struct w49 t69672; struct w49 t69673; struct w49 t69674; struct w11873 t69675; struct w49 t69676; struct w49 t69677; struct w49 t69678; struct w49 t69679; struct w49 t69680; struct w49 t69681; struct w49 t69682; struct w49 t69683; struct w49 t69684; struct w49 t69685; struct w49 t69686; unsigned t69687; int t69688; struct w49 t69689; struct w11873 t69690; struct w49 t69691; struct w49 t69692; struct w49 t69693; struct w49 t69694; struct w49 t69695; struct w49 t69696; struct w49 t69697; struct w49 t69698; struct w49 t69699; struct w49 t69700; struct w49 t69701; int t69702; int t69703; struct w11873 t69704; struct w49 t69705; struct w49 t69706; struct w49 t69707; struct w49 t69708; struct w49 t69709; struct w49 t69710; struct w49 t69711; struct w49 t69712; struct w12224 t69713; struct w36270 t69714; struct w49 t69715; struct structure_type24753 *t69716; struct p9612 *t69717; struct w49 t69718; struct w211061 t69719; struct w49 t69720; struct w49 t69721; struct w49 t69722; struct w49 t69723; struct w49 t69724; struct w49 t69725; struct w49 t69726; struct w49 t69727; struct w49 t69728; char *t69729; char *t69730; struct w49 t69731; struct w49 t69732; struct w49 t69733; struct w49 t69734; struct w49 t69735; char *t69736; char *t69737; struct w49 t69738; struct w49 t69739; struct w49 t69740; struct w49 t69741; struct w49 t69742; char *t69743; char *t69744; struct w49 t69745; struct w49 t69746; struct w49 t69747; struct w49 t69748; struct w49 t69749; char *t69750; char *t69751; struct w49 t69752; struct w49 t69753; struct w49 t69754; struct w49 t69755; struct w49 t69756; char *t69757; char *t69758; struct w49 t69759; struct w49 t69760; struct w49 t69761; struct w49 t69762; struct w49 t69763; char *t69764; char *t69765; struct w49 t69766; struct w49 t69767; struct w49 t69768; struct w49 t69769; struct w49 t69770; char *t69771; char *t69772; struct w49 t69773; struct w49 t69774; struct w49 t69775; struct w49 t69776; struct w49 t69777; char *t69778; char *t69779; struct w49 t69780; struct w49 t69781; struct w49 t69782; struct w49 t69783; struct w49 t69784; char *t69785; char *t69786; struct w49 t69787; struct w49 t69788; struct w49 t69789; struct w49 t69790; struct w49 t69791; char *t69792; char *t69793; struct w49 t69794; struct w49 t69795; struct w49 t69796; struct w49 t69797; struct w49 t69798; char *t69799; char *t69800; struct w49 t69801; struct w49 t69802; struct w49 t69803; struct w49 t69804; struct w49 t69805; char *t69806; char *t69807; struct w49 t69808; struct w49 t69809; struct w49 t69810; struct w49 t69811; struct w49 t69812; char *t69813; char *t69814; struct w49 t69815; struct w49 t69816; struct w49 t69817; struct w49 t69818; struct w49 t69819; char *t69820; char *t69821; struct w49 t69822; struct w49 t69823; struct w49 t69824; struct w49 t69825; struct w49 t69826; char *t69827; char *t69828; struct w49 t69829; struct w49 t69830; struct w49 t69831; struct w49 t69832; struct w49 t69833; char *t69834; char *t69835; struct w49 t69836; struct w49 t69837; struct w49 t69838; struct w49 t69839; struct w49 t69840; char *t69841; char *t69842; struct w49 t69843; struct w49 t69844; struct w49 t69845; struct w49 t69846; struct w49 t69847; char *t69848; char *t69849; struct w49 t69850; struct w49 t69851; struct w49 t69852; struct w49 t69853; struct w49 t69854; char *t69855; char *t69856; struct w49 t69857; struct w49 t69858; struct w49 t69859; struct w49 t69860; struct w49 t69861; char *t69862; char *t69863; struct w49 t69864; struct w49 t69865; struct w49 t69866; struct w49 t69867; struct w49 t69868; char *t69869; char *t69870; struct w49 t69871; struct w49 t69872; struct w49 t69873; struct w49 t69874; struct w49 t69875; struct p9612 *t69876; struct structure_type27747 *t69877; struct w49 t69878; struct w49 t69879; struct w49 t69880; struct w49 t69881; struct w49 t69882; struct w49 t69883; struct p9612 *t69884; struct structure_type27747 *t69885; struct w49 t69886; struct w49 t69887; struct w49 t69888; struct w49 t69889; struct w49 t69890; struct w49 t69891; struct p9612 *t69892; struct structure_type27747 *t69893; struct w49 t69894; struct w49 t69895; struct w49 t69896; struct w49 t69897; struct w49 t69898; struct w49 t69899; struct p9612 *t69900; struct structure_type27747 *t69901; struct w49 t69902; struct w49 t69903; struct w49 t69904; struct w49 t69905; struct p9612 *e9612; struct p9612 *p9613; struct p9612 *p9614; struct p9612 *p9615; struct p9612 *p9616; struct p9612 *p9617; struct p9612 *p9618; struct p9612 *p9619; struct p9612 *p9620; struct p9612 *p9621; struct p9612 *p9622; struct p9612 *p9623; struct p9612 *p9624; struct p9612 *p9625; struct p9612 *p9626; struct p9612 *p9627; struct p9612 *p9628; struct p9612 *p9629; struct p9612 *p9630; struct p9612 *p9631; struct p9612 *p9632; struct p9612 *p9633; struct p9612 *p9635; struct p9612 *p9636; struct p9612 *p9637; struct p9612 *p9638; struct p9612 *p9639; struct p9612 *p9668; struct p9612 *p9669; struct p9612 *p9688; struct p9612 *p9689; e9612 = (struct p9612 *)alloca(sizeof(struct p9612)); if (e9612==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e9612->a22804 = a22804; /* x86176 stalin.sc:6408:222700 */ /* x84125 stalin.sc:6408:222704 */ /* x84124 stalin.sc:6408:222713 */ t68945 = e9612->a22804; /* x84123 stalin.sc:6408:222705 */ a22619 = t68945; /* x80114 stalin.sc:5594:192682 */ /* x80113 stalin.sc:5594:192705 */ t68946 = a22619; /* x80112 stalin.sc:5594:192683 */ a18935 = t68946; /* x49522 */ /* x49521 */ t68947 = a18935; /* x49520 */ if (!((t68947.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("PROGRAM-POINT-BEFORE?[5469]"); structure_ref_error();} if ((t68947.value.structure_type27747->s0)==FALSE_TYPE) goto l11706; /* x84427 stalin.sc:6409:222721 */ /* x84341 stalin.sc:6409:222728 */ /* x84340 stalin.sc:6409:222732 */ /* x84338 stalin.sc:6409:222737 */ /* x84337 stalin.sc:6409:222754 */ /* x84336 stalin.sc:6409:222766 */ t69733 = e9612->a22804; /* x84335 stalin.sc:6409:222755 */ a41147 = t69733; /* x298700 stalin.sc:5598:192786 */ /* x298699 stalin.sc:5598:192812 */ t69734 = a41147; /* x298698 stalin.sc:5598:192787 */ a42563 = t69734; /* x304122 */ /* x304121 */ t69735 = a42563; /* x304120 */ if (!((t69735.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37868]"); structure_ref_error();} t69731 = t69735.value.structure_type27747->s1; /* x84334 stalin.sc:6409:222738 */ a40252 = t69731; /* x293677 */ /* x293676 */ t69732 = a40252; /* x293675 */ if (!((t69732.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35169]"); structure_ref_error();} t69729 = t69732.value.structure_type27698->s0; /* x84339 stalin.sc:6409:222770 */ t69730 = q68; /* x270004 stalin.sc:6409:222733 */ if (t69729==t69730) goto l11787; p9613 = e9612; /* x84330 */ /* x84329 stalin.sc:6410:222788 */ /* x84327 stalin.sc:6410:222793 */ /* x84326 stalin.sc:6410:222810 */ /* x84325 stalin.sc:6410:222822 */ t69740 = p9613->a22804; /* x84324 stalin.sc:6410:222811 */ a41146 = t69740; /* x298696 stalin.sc:5598:192786 */ /* x298695 stalin.sc:5598:192812 */ t69741 = a41146; /* x298694 stalin.sc:5598:192787 */ a42564 = t69741; /* x304126 */ /* x304125 */ t69742 = a42564; /* x304124 */ if (!((t69742.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37869]"); structure_ref_error();} t69738 = t69742.value.structure_type27747->s1; /* x84323 stalin.sc:6410:222794 */ a40251 = t69738; /* x293673 */ /* x293672 */ t69739 = a40251; /* x293671 */ if (!((t69739.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35168]"); structure_ref_error();} t69736 = t69739.value.structure_type27698->s0; /* x84328 stalin.sc:6410:222826 */ t69737 = q69; /* x270005 stalin.sc:6410:222789 */ if (t69736==t69737) goto l11787; p9614 = p9613; /* x84319 */ /* x84318 stalin.sc:6411:222844 */ /* x84316 stalin.sc:6411:222849 */ /* x84315 stalin.sc:6411:222866 */ /* x84314 stalin.sc:6411:222878 */ t69747 = p9614->a22804; /* x84313 stalin.sc:6411:222867 */ a41145 = t69747; /* x298692 stalin.sc:5598:192786 */ /* x298691 stalin.sc:5598:192812 */ t69748 = a41145; /* x298690 stalin.sc:5598:192787 */ a42565 = t69748; /* x304130 */ /* x304129 */ t69749 = a42565; /* x304128 */ if (!((t69749.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37870]"); structure_ref_error();} t69745 = t69749.value.structure_type27747->s1; /* x84312 stalin.sc:6411:222850 */ a40250 = t69745; /* x293669 */ /* x293668 */ t69746 = a40250; /* x293667 */ if (!((t69746.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35167]"); structure_ref_error();} t69743 = t69746.value.structure_type27698->s0; /* x84317 stalin.sc:6411:222882 */ t69744 = q70; /* x270006 stalin.sc:6411:222845 */ if (t69743==t69744) goto l11787; p9615 = p9614; /* x84308 */ /* x84307 stalin.sc:6412:222901 */ /* x84305 stalin.sc:6412:222906 */ /* x84304 stalin.sc:6412:222923 */ /* x84303 stalin.sc:6412:222935 */ t69754 = p9615->a22804; /* x84302 stalin.sc:6412:222924 */ a41144 = t69754; /* x298688 stalin.sc:5598:192786 */ /* x298687 stalin.sc:5598:192812 */ t69755 = a41144; /* x298686 stalin.sc:5598:192787 */ a42566 = t69755; /* x304134 */ /* x304133 */ t69756 = a42566; /* x304132 */ if (!((t69756.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37871]"); structure_ref_error();} t69752 = t69756.value.structure_type27747->s1; /* x84301 stalin.sc:6412:222907 */ a40249 = t69752; /* x293665 */ /* x293664 */ t69753 = a40249; /* x293663 */ if (!((t69753.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35166]"); structure_ref_error();} t69750 = t69753.value.structure_type27698->s0; /* x84306 stalin.sc:6412:222939 */ t69751 = q71; /* x270007 stalin.sc:6412:222902 */ if (t69750==t69751) goto l11787; p9616 = p9615; /* x84297 */ /* x84296 stalin.sc:6413:222957 */ /* x84294 stalin.sc:6413:222962 */ /* x84293 stalin.sc:6413:222979 */ /* x84292 stalin.sc:6413:222991 */ t69761 = p9616->a22804; /* x84291 stalin.sc:6413:222980 */ a41143 = t69761; /* x298684 stalin.sc:5598:192786 */ /* x298683 stalin.sc:5598:192812 */ t69762 = a41143; /* x298682 stalin.sc:5598:192787 */ a42567 = t69762; /* x304138 */ /* x304137 */ t69763 = a42567; /* x304136 */ if (!((t69763.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37872]"); structure_ref_error();} t69759 = t69763.value.structure_type27747->s1; /* x84290 stalin.sc:6413:222963 */ a40248 = t69759; /* x293661 */ /* x293660 */ t69760 = a40248; /* x293659 */ if (!((t69760.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35165]"); structure_ref_error();} t69757 = t69760.value.structure_type27698->s0; /* x84295 stalin.sc:6413:222995 */ t69758 = q72; /* x270008 stalin.sc:6413:222958 */ if (t69757==t69758) goto l11787; p9617 = p9616; /* x84286 */ /* x84285 stalin.sc:6414:223015 */ /* x84283 stalin.sc:6414:223020 */ /* x84282 stalin.sc:6414:223037 */ /* x84281 stalin.sc:6414:223049 */ t69768 = p9617->a22804; /* x84280 stalin.sc:6414:223038 */ a41142 = t69768; /* x298680 stalin.sc:5598:192786 */ /* x298679 stalin.sc:5598:192812 */ t69769 = a41142; /* x298678 stalin.sc:5598:192787 */ a42568 = t69769; /* x304142 */ /* x304141 */ t69770 = a42568; /* x304140 */ if (!((t69770.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37873]"); structure_ref_error();} t69766 = t69770.value.structure_type27747->s1; /* x84279 stalin.sc:6414:223021 */ a40247 = t69766; /* x293657 */ /* x293656 */ t69767 = a40247; /* x293655 */ if (!((t69767.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35164]"); structure_ref_error();} t69764 = t69767.value.structure_type27698->s0; /* x84284 stalin.sc:6414:223053 */ t69765 = q73; /* x270009 stalin.sc:6414:223016 */ if (t69764==t69765) goto l11787; p9618 = p9617; /* x84275 */ /* x84274 stalin.sc:6415:223073 */ /* x84272 stalin.sc:6415:223078 */ /* x84271 stalin.sc:6415:223095 */ /* x84270 stalin.sc:6415:223107 */ t69775 = p9618->a22804; /* x84269 stalin.sc:6415:223096 */ a41141 = t69775; /* x298676 stalin.sc:5598:192786 */ /* x298675 stalin.sc:5598:192812 */ t69776 = a41141; /* x298674 stalin.sc:5598:192787 */ a42569 = t69776; /* x304146 */ /* x304145 */ t69777 = a42569; /* x304144 */ if (!((t69777.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37874]"); structure_ref_error();} t69773 = t69777.value.structure_type27747->s1; /* x84268 stalin.sc:6415:223079 */ a40246 = t69773; /* x293653 */ /* x293652 */ t69774 = a40246; /* x293651 */ if (!((t69774.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35163]"); structure_ref_error();} t69771 = t69774.value.structure_type27698->s0; /* x84273 stalin.sc:6415:223111 */ t69772 = q74; /* x270010 stalin.sc:6415:223074 */ if (t69771==t69772) goto l11787; p9619 = p9618; /* x84264 */ /* x84263 stalin.sc:6416:223136 */ /* x84261 stalin.sc:6416:223141 */ /* x84260 stalin.sc:6416:223158 */ /* x84259 stalin.sc:6416:223170 */ t69782 = p9619->a22804; /* x84258 stalin.sc:6416:223159 */ a41140 = t69782; /* x298672 stalin.sc:5598:192786 */ /* x298671 stalin.sc:5598:192812 */ t69783 = a41140; /* x298670 stalin.sc:5598:192787 */ a42570 = t69783; /* x304150 */ /* x304149 */ t69784 = a42570; /* x304148 */ if (!((t69784.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37875]"); structure_ref_error();} t69780 = t69784.value.structure_type27747->s1; /* x84257 stalin.sc:6416:223142 */ a40245 = t69780; /* x293649 */ /* x293648 */ t69781 = a40245; /* x293647 */ if (!((t69781.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35162]"); structure_ref_error();} t69778 = t69781.value.structure_type27698->s0; /* x84262 stalin.sc:6416:223174 */ t69779 = q75; /* x270011 stalin.sc:6416:223137 */ if (t69778==t69779) goto l11787; p9620 = p9619; /* x84253 */ /* x84252 stalin.sc:6417:223194 */ /* x84250 stalin.sc:6417:223199 */ /* x84249 stalin.sc:6417:223216 */ /* x84248 stalin.sc:6417:223228 */ t69789 = p9620->a22804; /* x84247 stalin.sc:6417:223217 */ a41139 = t69789; /* x298668 stalin.sc:5598:192786 */ /* x298667 stalin.sc:5598:192812 */ t69790 = a41139; /* x298666 stalin.sc:5598:192787 */ a42571 = t69790; /* x304154 */ /* x304153 */ t69791 = a42571; /* x304152 */ if (!((t69791.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37876]"); structure_ref_error();} t69787 = t69791.value.structure_type27747->s1; /* x84246 stalin.sc:6417:223200 */ a40244 = t69787; /* x293645 */ /* x293644 */ t69788 = a40244; /* x293643 */ if (!((t69788.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35161]"); structure_ref_error();} t69785 = t69788.value.structure_type27698->s0; /* x84251 stalin.sc:6417:223232 */ t69786 = q76; /* x270012 stalin.sc:6417:223195 */ if (t69785==t69786) goto l11787; p9621 = p9620; /* x84242 */ /* x84241 stalin.sc:6418:223252 */ /* x84239 stalin.sc:6418:223257 */ /* x84238 stalin.sc:6418:223274 */ /* x84237 stalin.sc:6418:223286 */ t69796 = p9621->a22804; /* x84236 stalin.sc:6418:223275 */ a41138 = t69796; /* x298664 stalin.sc:5598:192786 */ /* x298663 stalin.sc:5598:192812 */ t69797 = a41138; /* x298662 stalin.sc:5598:192787 */ a42572 = t69797; /* x304158 */ /* x304157 */ t69798 = a42572; /* x304156 */ if (!((t69798.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37877]"); structure_ref_error();} t69794 = t69798.value.structure_type27747->s1; /* x84235 stalin.sc:6418:223258 */ a40243 = t69794; /* x293641 */ /* x293640 */ t69795 = a40243; /* x293639 */ if (!((t69795.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35160]"); structure_ref_error();} t69792 = t69795.value.structure_type27698->s0; /* x84240 stalin.sc:6418:223290 */ t69793 = q50; /* x270013 stalin.sc:6418:223253 */ if (t69792==t69793) goto l11787; p9622 = p9621; /* x84231 */ /* x84230 stalin.sc:6419:223308 */ /* x84228 stalin.sc:6419:223313 */ /* x84227 stalin.sc:6419:223330 */ /* x84226 stalin.sc:6419:223342 */ t69803 = p9622->a22804; /* x84225 stalin.sc:6419:223331 */ a41137 = t69803; /* x298660 stalin.sc:5598:192786 */ /* x298659 stalin.sc:5598:192812 */ t69804 = a41137; /* x298658 stalin.sc:5598:192787 */ a42573 = t69804; /* x304162 */ /* x304161 */ t69805 = a42573; /* x304160 */ if (!((t69805.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37878]"); structure_ref_error();} t69801 = t69805.value.structure_type27747->s1; /* x84224 stalin.sc:6419:223314 */ a40242 = t69801; /* x293637 */ /* x293636 */ t69802 = a40242; /* x293635 */ if (!((t69802.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35159]"); structure_ref_error();} t69799 = t69802.value.structure_type27698->s0; /* x84229 stalin.sc:6419:223346 */ t69800 = q52; /* x270014 stalin.sc:6419:223309 */ if (t69799==t69800) goto l11787; p9623 = p9622; /* x84220 */ /* x84219 stalin.sc:6420:223366 */ /* x84217 stalin.sc:6420:223371 */ /* x84216 stalin.sc:6420:223388 */ /* x84215 stalin.sc:6420:223400 */ t69810 = p9623->a22804; /* x84214 stalin.sc:6420:223389 */ a41136 = t69810; /* x298656 stalin.sc:5598:192786 */ /* x298655 stalin.sc:5598:192812 */ t69811 = a41136; /* x298654 stalin.sc:5598:192787 */ a42574 = t69811; /* x304166 */ /* x304165 */ t69812 = a42574; /* x304164 */ if (!((t69812.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37879]"); structure_ref_error();} t69808 = t69812.value.structure_type27747->s1; /* x84213 stalin.sc:6420:223372 */ a40241 = t69808; /* x293633 */ /* x293632 */ t69809 = a40241; /* x293631 */ if (!((t69809.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35158]"); structure_ref_error();} t69806 = t69809.value.structure_type27698->s0; /* x84218 stalin.sc:6420:223404 */ t69807 = q39; /* x270015 stalin.sc:6420:223367 */ if (t69806==t69807) goto l11787; p9624 = p9623; /* x84209 */ /* x84208 stalin.sc:6421:223415 */ /* x84206 stalin.sc:6421:223420 */ /* x84205 stalin.sc:6421:223437 */ /* x84204 stalin.sc:6421:223449 */ t69817 = p9624->a22804; /* x84203 stalin.sc:6421:223438 */ a41135 = t69817; /* x298652 stalin.sc:5598:192786 */ /* x298651 stalin.sc:5598:192812 */ t69818 = a41135; /* x298650 stalin.sc:5598:192787 */ a42575 = t69818; /* x304170 */ /* x304169 */ t69819 = a42575; /* x304168 */ if (!((t69819.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37880]"); structure_ref_error();} t69815 = t69819.value.structure_type27747->s1; /* x84202 stalin.sc:6421:223421 */ a40240 = t69815; /* x293629 */ /* x293628 */ t69816 = a40240; /* x293627 */ if (!((t69816.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35157]"); structure_ref_error();} t69813 = t69816.value.structure_type27698->s0; /* x84207 stalin.sc:6421:223453 */ t69814 = q40; /* x270016 stalin.sc:6421:223416 */ if (t69813==t69814) goto l11787; p9625 = p9624; /* x84198 */ /* x84197 stalin.sc:6422:223474 */ /* x84195 stalin.sc:6422:223479 */ /* x84194 stalin.sc:6422:223496 */ /* x84193 stalin.sc:6422:223508 */ t69824 = p9625->a22804; /* x84192 stalin.sc:6422:223497 */ a41134 = t69824; /* x298648 stalin.sc:5598:192786 */ /* x298647 stalin.sc:5598:192812 */ t69825 = a41134; /* x298646 stalin.sc:5598:192787 */ a42576 = t69825; /* x304174 */ /* x304173 */ t69826 = a42576; /* x304172 */ if (!((t69826.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37881]"); structure_ref_error();} t69822 = t69826.value.structure_type27747->s1; /* x84191 stalin.sc:6422:223480 */ a40239 = t69822; /* x293625 */ /* x293624 */ t69823 = a40239; /* x293623 */ if (!((t69823.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35156]"); structure_ref_error();} t69820 = t69823.value.structure_type27698->s0; /* x84196 stalin.sc:6422:223512 */ t69821 = q41; /* x270017 stalin.sc:6422:223475 */ if (t69820==t69821) goto l11787; p9626 = p9625; /* x84187 */ /* x84186 stalin.sc:6423:223539 */ /* x84184 stalin.sc:6423:223544 */ /* x84183 stalin.sc:6423:223561 */ /* x84182 stalin.sc:6423:223573 */ t69831 = p9626->a22804; /* x84181 stalin.sc:6423:223562 */ a41133 = t69831; /* x298644 stalin.sc:5598:192786 */ /* x298643 stalin.sc:5598:192812 */ t69832 = a41133; /* x298642 stalin.sc:5598:192787 */ a42577 = t69832; /* x304178 */ /* x304177 */ t69833 = a42577; /* x304176 */ if (!((t69833.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37882]"); structure_ref_error();} t69829 = t69833.value.structure_type27747->s1; /* x84180 stalin.sc:6423:223545 */ a40238 = t69829; /* x293621 */ /* x293620 */ t69830 = a40238; /* x293619 */ if (!((t69830.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35155]"); structure_ref_error();} t69827 = t69830.value.structure_type27698->s0; /* x84185 stalin.sc:6423:223577 */ t69828 = q77; /* x270018 stalin.sc:6423:223540 */ if (t69827==t69828) goto l11787; p9627 = p9626; /* x84176 */ /* x84175 stalin.sc:6424:223601 */ /* x84173 stalin.sc:6424:223606 */ /* x84172 stalin.sc:6424:223623 */ /* x84171 stalin.sc:6424:223635 */ t69838 = p9627->a22804; /* x84170 stalin.sc:6424:223624 */ a41132 = t69838; /* x298640 stalin.sc:5598:192786 */ /* x298639 stalin.sc:5598:192812 */ t69839 = a41132; /* x298638 stalin.sc:5598:192787 */ a42578 = t69839; /* x304182 */ /* x304181 */ t69840 = a42578; /* x304180 */ if (!((t69840.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37883]"); structure_ref_error();} t69836 = t69840.value.structure_type27747->s1; /* x84169 stalin.sc:6424:223607 */ a40237 = t69836; /* x293617 */ /* x293616 */ t69837 = a40237; /* x293615 */ if (!((t69837.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35154]"); structure_ref_error();} t69834 = t69837.value.structure_type27698->s0; /* x84174 stalin.sc:6424:223639 */ t69835 = q78; /* x270019 stalin.sc:6424:223602 */ if (t69834==t69835) goto l11787; p9628 = p9627; /* x84165 */ /* x84163 stalin.sc:6425:223666 */ /* x84162 stalin.sc:6425:223683 */ /* x84161 stalin.sc:6425:223695 */ t69845 = p9628->a22804; /* x84160 stalin.sc:6425:223684 */ a41131 = t69845; /* x298636 stalin.sc:5598:192786 */ /* x298635 stalin.sc:5598:192812 */ t69846 = a41131; /* x298634 stalin.sc:5598:192787 */ a42579 = t69846; /* x304186 */ /* x304185 */ t69847 = a42579; /* x304184 */ if (!((t69847.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37884]"); structure_ref_error();} t69843 = t69847.value.structure_type27747->s1; /* x84159 stalin.sc:6425:223667 */ a40236 = t69843; /* x293613 */ /* x293612 */ t69844 = a40236; /* x293611 */ if (!((t69844.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35153]"); structure_ref_error();} t69841 = t69844.value.structure_type27698->s0; /* x84164 stalin.sc:6425:223699 */ t69842 = q38; /* x270020 stalin.sc:6425:223662 */ if (!(t69841==t69842)) goto l11788; l11787: /* x84350 */ /* x84349 */ t69900 = e9612; p9629 = t69900; /* x84348 stalin.sc:6426:223714 */ /* x84347 stalin.sc:6426:223720 */ /* x84346 stalin.sc:6426:223727 */ /* x84345 stalin.sc:6426:223739 */ t69903 = p9629->a22804; /* x84344 stalin.sc:6426:223728 */ a22621 = t69903; /* x80126 stalin.sc:5598:192786 */ /* x80125 stalin.sc:5598:192812 */ t69904 = a22621; /* x80124 stalin.sc:5598:192787 */ a18945 = t69904; /* x49561 */ /* x49560 */ t69905 = a18945; /* x49559 */ if (!((t69905.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("PROGRAM-POINT-EXPRESSION[5477]"); structure_ref_error();} t69902 = t69905.value.structure_type27747->s1; /* x84343 stalin.sc:6426:223721 */ t69901 = f9424(t69902); /* x84342 stalin.sc:6426:223715 */ a34876 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34876==NULL) {backtrace("stalin.sc", 6426, 223714); out_of_memory_error();} a34876->s0.tag = STRUCTURE_TYPE27747; a34876->s0.value.structure_type27747 = t69901; a34876->s1.tag = NULL_TYPE; /* x271759 */ r9612.tag = STRUCTURE_TYPE24753; r9612.value.structure_type24753 = a34876; return r9612; l11788: /* x84426 */ /* x84358 stalin.sc:6428:223792 */ /* x84356 stalin.sc:6428:223797 */ /* x84355 stalin.sc:6428:223814 */ /* x84354 stalin.sc:6428:223826 */ t69852 = e9612->a22804; /* x84353 stalin.sc:6428:223815 */ a41130 = t69852; /* x298632 stalin.sc:5598:192786 */ /* x298631 stalin.sc:5598:192812 */ t69853 = a41130; /* x298630 stalin.sc:5598:192787 */ a42580 = t69853; /* x304190 */ /* x304189 */ t69854 = a42580; /* x304188 */ if (!((t69854.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37885]"); structure_ref_error();} t69850 = t69854.value.structure_type27747->s1; /* x84352 stalin.sc:6428:223798 */ a40235 = t69850; /* x293609 */ /* x293608 */ t69851 = a40235; /* x293607 */ if (!((t69851.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35152]"); structure_ref_error();} t69848 = t69851.value.structure_type27698->s0; /* x84357 stalin.sc:6428:223830 */ t69849 = q42; /* x270003 stalin.sc:6428:223793 */ if (!(t69848==t69849)) goto l11806; /* x84369 */ /* x84368 */ t69892 = e9612; p9630 = t69892; /* x84367 stalin.sc:6429:223842 */ /* x84366 stalin.sc:6429:223848 */ /* x84365 stalin.sc:6429:223856 */ /* x84364 stalin.sc:6429:223875 */ /* x84363 stalin.sc:6429:223887 */ t69897 = p9630->a22804; /* x84362 stalin.sc:6429:223876 */ a41124 = t69897; /* x298608 stalin.sc:5598:192786 */ /* x298607 stalin.sc:5598:192812 */ t69898 = a41124; /* x298606 stalin.sc:5598:192787 */ a42586 = t69898; /* x304214 */ /* x304213 */ t69899 = a42586; /* x304212 */ if (!((t69899.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37891]"); structure_ref_error();} t69895 = t69899.value.structure_type27747->s1; /* x84361 stalin.sc:6429:223857 */ a39058 = t69895; /* x288901 */ /* x288900 */ t69896 = a39058; /* x288899 */ if (!((t69896.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33975]"); structure_ref_error();} t69894 = t69896.value.structure_type27698->s17; /* x84360 stalin.sc:6429:223849 */ t69893 = f9423(t69894); /* x84359 stalin.sc:6429:223843 */ a34877 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34877==NULL) {backtrace("stalin.sc", 6429, 223842); out_of_memory_error();} a34877->s0.tag = STRUCTURE_TYPE27747; a34877->s0.value.structure_type27747 = t69893; a34877->s1.tag = NULL_TYPE; /* x271761 */ r9612.tag = STRUCTURE_TYPE24753; r9612.value.structure_type24753 = a34877; return r9612; l11806: /* x84425 */ /* x84377 stalin.sc:6431:223943 */ /* x84375 stalin.sc:6431:223948 */ /* x84374 stalin.sc:6431:223965 */ /* x84373 stalin.sc:6431:223977 */ t69859 = e9612->a22804; /* x84372 stalin.sc:6431:223966 */ a41129 = t69859; /* x298628 stalin.sc:5598:192786 */ /* x298627 stalin.sc:5598:192812 */ t69860 = a41129; /* x298626 stalin.sc:5598:192787 */ a42581 = t69860; /* x304194 */ /* x304193 */ t69861 = a42581; /* x304192 */ if (!((t69861.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37886]"); structure_ref_error();} t69857 = t69861.value.structure_type27747->s1; /* x84371 stalin.sc:6431:223949 */ a40234 = t69857; /* x293605 */ /* x293604 */ t69858 = a40234; /* x293603 */ if (!((t69858.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35151]"); structure_ref_error();} t69855 = t69858.value.structure_type27698->s0; /* x84376 stalin.sc:6431:223981 */ t69856 = q43; /* x270002 stalin.sc:6431:223944 */ if (!(t69855==t69856)) goto l11808; /* x84388 */ /* x84387 */ t69884 = e9612; p9631 = t69884; /* x84386 stalin.sc:6432:223991 */ /* x84385 stalin.sc:6432:223997 */ /* x84384 stalin.sc:6432:224005 */ /* x84383 stalin.sc:6432:224028 */ /* x84382 stalin.sc:6432:224040 */ t69889 = p9631->a22804; /* x84381 stalin.sc:6432:224029 */ a41125 = t69889; /* x298612 stalin.sc:5598:192786 */ /* x298611 stalin.sc:5598:192812 */ t69890 = a41125; /* x298610 stalin.sc:5598:192787 */ a42585 = t69890; /* x304210 */ /* x304209 */ t69891 = a42585; /* x304208 */ if (!((t69891.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37890]"); structure_ref_error();} t69887 = t69891.value.structure_type27747->s1; /* x84380 stalin.sc:6432:224006 */ a38995 = t69887; /* x288649 */ /* x288648 */ t69888 = a38995; /* x288647 */ if (!((t69888.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33912]"); structure_ref_error();} t69886 = t69888.value.structure_type27698->s18; /* x84379 stalin.sc:6432:223998 */ t69885 = f9423(t69886); /* x84378 stalin.sc:6432:223992 */ a34878 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34878==NULL) {backtrace("stalin.sc", 6432, 223991); out_of_memory_error();} a34878->s0.tag = STRUCTURE_TYPE27747; a34878->s0.value.structure_type27747 = t69885; a34878->s1.tag = NULL_TYPE; /* x271763 */ r9612.tag = STRUCTURE_TYPE24753; r9612.value.structure_type24753 = a34878; return r9612; l11808: /* x84424 */ /* x84409 stalin.sc:6436:224201 */ /* x84408 stalin.sc:6436:224205 */ /* x84406 stalin.sc:6436:224210 */ /* x84405 stalin.sc:6436:224227 */ /* x84404 stalin.sc:6436:224239 */ t69866 = e9612->a22804; /* x84403 stalin.sc:6436:224228 */ a41128 = t69866; /* x298624 stalin.sc:5598:192786 */ /* x298623 stalin.sc:5598:192812 */ t69867 = a41128; /* x298622 stalin.sc:5598:192787 */ a42582 = t69867; /* x304198 */ /* x304197 */ t69868 = a42582; /* x304196 */ if (!((t69868.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37887]"); structure_ref_error();} t69864 = t69868.value.structure_type27747->s1; /* x84402 stalin.sc:6436:224211 */ a40233 = t69864; /* x293601 */ /* x293600 */ t69865 = a40233; /* x293599 */ if (!((t69865.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35150]"); structure_ref_error();} t69862 = t69865.value.structure_type27698->s0; /* x84407 stalin.sc:6436:224243 */ t69863 = q36; /* x270000 stalin.sc:6436:224206 */ if (t69862==t69863) goto l11809; p9632 = e9612; /* x84398 */ /* x84396 stalin.sc:6437:224257 */ /* x84395 stalin.sc:6437:224274 */ /* x84394 stalin.sc:6437:224286 */ t69873 = p9632->a22804; /* x84393 stalin.sc:6437:224275 */ a41127 = t69873; /* x298620 stalin.sc:5598:192786 */ /* x298619 stalin.sc:5598:192812 */ t69874 = a41127; /* x298618 stalin.sc:5598:192787 */ a42583 = t69874; /* x304202 */ /* x304201 */ t69875 = a42583; /* x304200 */ if (!((t69875.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37888]"); structure_ref_error();} t69871 = t69875.value.structure_type27747->s1; /* x84392 stalin.sc:6437:224258 */ a40232 = t69871; /* x293597 */ /* x293596 */ t69872 = a40232; /* x293595 */ if (!((t69872.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35149]"); structure_ref_error();} t69869 = t69872.value.structure_type27698->s0; /* x84397 stalin.sc:6437:224290 */ t69870 = q37; /* x270001 stalin.sc:6437:224253 */ if (!(t69869==t69870)) goto l11810; l11809: /* x84420 */ /* x84419 */ t69876 = e9612; p9633 = t69876; /* x84418 stalin.sc:6438:224313 */ /* x84417 stalin.sc:6438:224319 */ /* x84416 stalin.sc:6438:224327 */ /* x84415 stalin.sc:6438:224346 */ /* x84414 stalin.sc:6438:224358 */ t69881 = p9633->a22804; /* x84413 stalin.sc:6438:224347 */ a41126 = t69881; /* x298616 stalin.sc:5598:192786 */ /* x298615 stalin.sc:5598:192812 */ t69882 = a41126; /* x298614 stalin.sc:5598:192787 */ a42584 = t69882; /* x304206 */ /* x304205 */ t69883 = a42584; /* x304204 */ if (!((t69883.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37889]"); structure_ref_error();} t69879 = t69883.value.structure_type27747->s1; /* x84412 stalin.sc:6438:224328 */ a38609 = t69879; /* x287105 */ /* x287104 */ t69880 = a38609; /* x287103 */ if (!((t69880.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33526]"); structure_ref_error();} t69878 = t69880.value.structure_type27698->s21; /* x84411 stalin.sc:6438:224320 */ t69877 = f9423(t69878); /* x84410 stalin.sc:6438:224314 */ a34879 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34879==NULL) {backtrace("stalin.sc", 6438, 224313); out_of_memory_error();} a34879->s0.tag = STRUCTURE_TYPE27747; a34879->s0.value.structure_type27747 = t69877; a34879->s1.tag = NULL_TYPE; /* x271765 */ r9612.tag = STRUCTURE_TYPE24753; r9612.value.structure_type24753 = a34879; return r9612; l11810: /* x84423 */ /* x84422 */ /* x84421 stalin.sc:6439:224375 */ r9612.tag = NULL_TYPE; return r9612; l11706: /* x86175 stalin.sc:6440:224386 */ /* x86174 stalin.sc:6859:237954 */ /* x86138 stalin.sc:6859:237958 */ /* x86041 stalin.sc:6860:237967 */ /* x86040 stalin.sc:6860:237986 */ /* x86039 stalin.sc:6860:237998 */ t69633 = e9612->a22804; /* x86038 stalin.sc:6860:237987 */ a41269 = t69633; /* x299188 stalin.sc:5598:192786 */ /* x299187 stalin.sc:5598:192812 */ t69634 = a41269; /* x299186 stalin.sc:5598:192787 */ a42441 = t69634; /* x303634 */ /* x303633 */ t69635 = a42441; /* x303632 */ if (!((t69635.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37746]"); structure_ref_error();} t69631 = t69635.value.structure_type27747->s1; /* x86037 stalin.sc:6860:237968 */ a39724 = t69631; /* x291565 */ /* x291564 */ t69632 = a39724; /* x291563 */ if (!((t69632.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34641]"); structure_ref_error();} if ((t69632.value.structure_type27698->s11.tag)==FALSE_TYPE) goto l11779; /* x86136 */ /* x86066 stalin.sc:6861:238006 */ /* x86065 stalin.sc:6861:238010 */ /* x86063 stalin.sc:6861:238015 */ /* x86062 stalin.sc:6861:238032 */ /* x86061 stalin.sc:6861:238051 */ /* x86060 stalin.sc:6861:238063 */ t69642 = e9612->a22804; /* x86059 stalin.sc:6861:238052 */ a41268 = t69642; /* x299184 stalin.sc:5598:192786 */ /* x299183 stalin.sc:5598:192812 */ t69643 = a41268; /* x299182 stalin.sc:5598:192787 */ a42442 = t69643; /* x303638 */ /* x303637 */ t69644 = a42442; /* x303636 */ if (!((t69644.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37747]"); structure_ref_error();} t69640 = t69644.value.structure_type27747->s1; /* x86058 stalin.sc:6861:238033 */ a39723 = t69640; /* x291561 */ /* x291560 */ t69641 = a39723; /* x291559 */ if (!((t69641.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34640]"); structure_ref_error();} t69638 = t69641.value.structure_type27698->s11; /* x86057 stalin.sc:6861:238016 */ a40266 = t69638; /* x293733 */ /* x293732 */ t69639 = a40266; /* x293731 */ if (!((t69639.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35183]"); structure_ref_error();} t69636 = t69639.value.structure_type27698->s0; /* x86064 stalin.sc:6861:238068 */ t69637 = q36; /* x269952 stalin.sc:6861:238011 */ if (t69636==t69637) goto l11782; p9688 = e9612; /* x86053 */ /* x86051 stalin.sc:6862:238088 */ /* x86050 stalin.sc:6862:238105 */ /* x86049 stalin.sc:6862:238124 */ /* x86048 stalin.sc:6862:238136 */ t69651 = p9688->a22804; /* x86047 stalin.sc:6862:238125 */ a41267 = t69651; /* x299180 stalin.sc:5598:192786 */ /* x299179 stalin.sc:5598:192812 */ t69652 = a41267; /* x299178 stalin.sc:5598:192787 */ a42443 = t69652; /* x303642 */ /* x303641 */ t69653 = a42443; /* x303640 */ if (!((t69653.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37748]"); structure_ref_error();} t69649 = t69653.value.structure_type27747->s1; /* x86046 stalin.sc:6862:238106 */ a39722 = t69649; /* x291557 */ /* x291556 */ t69650 = a39722; /* x291555 */ if (!((t69650.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34639]"); structure_ref_error();} t69647 = t69650.value.structure_type27698->s11; /* x86045 stalin.sc:6862:238089 */ a40265 = t69647; /* x293729 */ /* x293728 */ t69648 = a40265; /* x293727 */ if (!((t69648.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35182]"); structure_ref_error();} t69645 = t69648.value.structure_type27698->s0; /* x86052 stalin.sc:6863:238147 */ t69646 = q37; /* x269953 stalin.sc:6862:238084 */ if (!(t69645==t69646)) goto l11779; l11782: /* x86134 */ /* x86133 stalin.sc:6864:238173 */ /* x86122 stalin.sc:6865:238180 */ /* x86118 stalin.sc:6865:238185 */ /* x86117 stalin.sc:6865:238204 */ /* x86116 stalin.sc:6865:238223 */ /* x86115 stalin.sc:6865:238235 */ t69660 = e9612->a22804; /* x86114 stalin.sc:6865:238224 */ a41265 = t69660; /* x299172 stalin.sc:5598:192786 */ /* x299171 stalin.sc:5598:192812 */ t69661 = a41265; /* x299170 stalin.sc:5598:192787 */ a42445 = t69661; /* x303650 */ /* x303649 */ t69662 = a42445; /* x303648 */ if (!((t69662.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37750]"); structure_ref_error();} t69658 = t69662.value.structure_type27747->s1; /* x86113 stalin.sc:6865:238205 */ a39721 = t69658; /* x291553 */ /* x291552 */ t69659 = a39721; /* x291551 */ if (!((t69659.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34638]"); structure_ref_error();} t69656 = t69659.value.structure_type27698->s11; /* x86112 stalin.sc:6865:238186 */ a38621 = t69656; /* x287153 */ /* x287152 */ t69657 = a38621; /* x287151 */ if (!((t69657.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33538]"); structure_ref_error();} t69654 = t69657.value.structure_type27698->s21; /* x86121 stalin.sc:6866:238247 */ /* x86120 stalin.sc:6866:238259 */ t69663 = e9612->a22804; /* x86119 stalin.sc:6866:238248 */ a41266 = t69663; /* x299176 stalin.sc:5598:192786 */ /* x299175 stalin.sc:5598:192812 */ t69664 = a41266; /* x299174 stalin.sc:5598:192787 */ a42444 = t69664; /* x303646 */ /* x303645 */ t69665 = a42444; /* x303644 */ if (!((t69665.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37749]"); structure_ref_error();} t69655 = t69665.value.structure_type27747->s1; /* x269949 stalin.sc:6865:238181 */ /* EQ: dispatching general to general */ if (!((t69654.tag)==(t69655.tag))) goto l11784; switch (t69654.tag) {case FIXNUM_TYPE: if (!((t69654.value.fixnum_type)==(t69655.value.fixnum_type))) goto l11784; break; case FLONUM_TYPE: if (!((t69654.value.flonum_type)==(t69655.value.flonum_type))) goto l11784; break; case INPUT_PORT_TYPE: if (!((t69654.value.input_port_type)==(t69655.value.input_port_type))) goto l11784; break; case OUTPUT_PORT_TYPE: if (!((t69654.value.output_port_type)==(t69655.value.output_port_type))) goto l11784; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t69654.value.native_procedure_type15963)==(t69655.value.native_procedure_type15963))) goto l11784; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t69654.value.native_procedure_type19067)==(t69655.value.native_procedure_type19067))) goto l11784; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t69654.value.native_procedure_type19068)==(t69655.value.native_procedure_type19068))) goto l11784; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t69654.value.native_procedure_type22459)==(t69655.value.native_procedure_type22459))) goto l11784; break; case STRUCTURE_TYPE24753: if (!((t69654.value.structure_type24753)==(t69655.value.structure_type24753))) goto l11784; break; case STRUCTURE_TYPE24757: if (!((t69654.value.structure_type24757)==(t69655.value.structure_type24757))) goto l11784; break; case STRUCTURE_TYPE27501: if (!((t69654.value.structure_type27501)==(t69655.value.structure_type27501))) goto l11784; break; case STRUCTURE_TYPE27510: if (!((t69654.value.structure_type27510)==(t69655.value.structure_type27510))) goto l11784; break; case STRUCTURE_TYPE27621: if (!((t69654.value.structure_type27621)==(t69655.value.structure_type27621))) goto l11784; break; case STRUCTURE_TYPE27650: if (!((t69654.value.structure_type27650)==(t69655.value.structure_type27650))) goto l11784; break; case STRUCTURE_TYPE27669: if (!((t69654.value.structure_type27669)==(t69655.value.structure_type27669))) goto l11784; break; case STRUCTURE_TYPE27673: if (!((t69654.value.structure_type27673)==(t69655.value.structure_type27673))) goto l11784; break; case STRUCTURE_TYPE27692: if (!((t69654.value.structure_type27692)==(t69655.value.structure_type27692))) goto l11784; break; case STRUCTURE_TYPE27694: if (!((t69654.value.structure_type27694)==(t69655.value.structure_type27694))) goto l11784; break; case STRUCTURE_TYPE27698: if (!((t69654.value.structure_type27698)==(t69655.value.structure_type27698))) goto l11784; break; case STRUCTURE_TYPE27745: if (!((t69654.value.structure_type27745)==(t69655.value.structure_type27745))) goto l11784; break; case STRUCTURE_TYPE27747: if (!((t69654.value.structure_type27747)==(t69655.value.structure_type27747))) goto l11784; break; case STRUCTURE_TYPE27750: if (!((t69654.value.structure_type27750)==(t69655.value.structure_type27750))) goto l11784; break; case STRUCTURE_TYPE27753: if (!((t69654.value.structure_type27753)==(t69655.value.structure_type27753))) goto l11784; break; case STRUCTURE_TYPE27756: if (!((t69654.value.structure_type27756)==(t69655.value.structure_type27756))) goto l11784; break; case STRUCTURE_TYPE27761: if (!((t69654.value.structure_type27761)==(t69655.value.structure_type27761))) goto l11784; break; case STRUCTURE_TYPE27769: if (!((t69654.value.structure_type27769)==(t69655.value.structure_type27769))) goto l11784; break; case STRUCTURE_TYPE27776: if (!((t69654.value.structure_type27776)==(t69655.value.structure_type27776))) goto l11784; break; case STRUCTURE_TYPE27779: if (!((t69654.value.structure_type27779)==(t69655.value.structure_type27779))) goto l11784; break; case STRUCTURE_TYPE27858: if (!((t69654.value.structure_type27858)==(t69655.value.structure_type27858))) goto l11784; break; case STRING_TYPE: if (!((t69654.value.string_type)==(t69655.value.string_type))) goto l11784; break; case HEADED_VECTOR_TYPE27896: if (!((t69654.value.headed_vector_type27896)==(t69655.value.headed_vector_type27896))) goto l11784; break; case EXTERNAL_SYMBOL_TYPE: if (!((t69654.value.external_symbol_type)==(t69655.value.external_symbol_type))) goto l11784; break; case STRUCTURE_TYPE27908: if (!((t69654.value.structure_type27908)==(t69655.value.structure_type27908))) goto l11784; break; default:;} /* x86131 */ /* x86130 stalin.sc:6868:238275 */ /* x86129 stalin.sc:6868:238297 */ /* x86128 stalin.sc:6868:238316 */ /* x86127 stalin.sc:6868:238328 */ t69671 = e9612->a22804; /* x86126 stalin.sc:6868:238317 */ a41264 = t69671; /* x299168 stalin.sc:5598:192786 */ /* x299167 stalin.sc:5598:192812 */ t69672 = a41264; /* x299166 stalin.sc:5598:192787 */ a42446 = t69672; /* x303654 */ /* x303653 */ t69673 = a42446; /* x303652 */ if (!((t69673.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37751]"); structure_ref_error();} t69669 = t69673.value.structure_type27747->s1; /* x86125 stalin.sc:6868:238298 */ a39720 = t69669; /* x291549 */ /* x291548 */ t69670 = a39720; /* x291547 */ if (!((t69670.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34637]"); structure_ref_error();} t69667 = t69670.value.structure_type27698->s11; /* x86124 stalin.sc:6868:238276 */ a38514 = t69667; /* x286725 */ /* x286724 */ t69668 = a38514; /* x286723 */ if (!((t69668.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33431]"); structure_ref_error();} t69666 = t69668.value.structure_type27698->s22; /* x269948 stalin.sc:6867:238266 */ if ((t69666.tag)==NULL_TYPE) goto l11778; l11784: p9689 = e9612; /* x86108 */ /* x86080 stalin.sc:6870:238350 */ /* x86072 stalin.sc:6871:238359 */ /* x86071 stalin.sc:6871:238371 */ t69677 = p9689->a22804; /* x86070 stalin.sc:6871:238360 */ a41262 = t69677; /* x299160 stalin.sc:5598:192786 */ /* x299159 stalin.sc:5598:192812 */ t69678 = a41262; /* x299158 stalin.sc:5598:192787 */ a42448 = t69678; /* x303662 */ /* x303661 */ t69679 = a42448; /* x303660 */ if (!((t69679.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37753]"); structure_ref_error();} t69674 = t69679.value.structure_type27747->s1; /* x86079 stalin.sc:6872:238377 */ /* x86078 stalin.sc:6872:238399 */ /* x86077 stalin.sc:6872:238418 */ /* x86076 stalin.sc:6872:238430 */ t69684 = p9689->a22804; /* x86075 stalin.sc:6872:238419 */ a41263 = t69684; /* x299164 stalin.sc:5598:192786 */ /* x299163 stalin.sc:5598:192812 */ t69685 = a41263; /* x299162 stalin.sc:5598:192787 */ a42447 = t69685; /* x303658 */ /* x303657 */ t69686 = a42447; /* x303656 */ if (!((t69686.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37752]"); structure_ref_error();} t69682 = t69686.value.structure_type27747->s1; /* x86074 stalin.sc:6872:238400 */ a39719 = t69682; /* x291545 */ /* x291544 */ t69683 = a39719; /* x291543 */ if (!((t69683.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34636]"); structure_ref_error();} t69680 = t69683.value.structure_type27698->s11; /* x86073 stalin.sc:6872:238378 */ a38513 = t69680; /* x286721 */ /* x286720 */ t69681 = a38513; /* x286719 */ if (!((t69681.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33430]"); structure_ref_error();} t69675 = t69681.value.structure_type27698->s22; /* x86069 stalin.sc:6870:238351 */ t69676 = *((struct w49 *)(&t69675)); if ((f26351(t69674, t69676).tag)==FALSE_TYPE) goto l11779; /* x86106 */ /* x86093 stalin.sc:6873:238441 */ /* x86085 stalin.sc:6874:238458 */ /* x86084 stalin.sc:6874:238470 */ t69692 = p9689->a22804; /* x86083 stalin.sc:6874:238459 */ a41259 = t69692; /* x299148 stalin.sc:5598:192786 */ /* x299147 stalin.sc:5598:192812 */ t69693 = a41259; /* x299146 stalin.sc:5598:192787 */ a42451 = t69693; /* x303674 */ /* x303673 */ t69694 = a42451; /* x303672 */ if (!((t69694.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37756]"); structure_ref_error();} t69689 = t69694.value.structure_type27747->s1; /* x86092 stalin.sc:6875:238479 */ /* x86091 stalin.sc:6875:238501 */ /* x86090 stalin.sc:6875:238520 */ /* x86089 stalin.sc:6875:238532 */ t69699 = p9689->a22804; /* x86088 stalin.sc:6875:238521 */ a41260 = t69699; /* x299152 stalin.sc:5598:192786 */ /* x299151 stalin.sc:5598:192812 */ t69700 = a41260; /* x299150 stalin.sc:5598:192787 */ a42450 = t69700; /* x303670 */ /* x303669 */ t69701 = a42450; /* x303668 */ if (!((t69701.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37755]"); structure_ref_error();} t69697 = t69701.value.structure_type27747->s1; /* x86087 stalin.sc:6875:238502 */ a39717 = t69697; /* x291537 */ /* x291536 */ t69698 = a39717; /* x291535 */ if (!((t69698.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34634]"); structure_ref_error();} t69695 = t69698.value.structure_type27698->s11; /* x86086 stalin.sc:6875:238480 */ a38511 = t69695; /* x286713 */ /* x286712 */ t69696 = a38511; /* x286711 */ if (!((t69696.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33428]"); structure_ref_error();} t69690 = t69696.value.structure_type27698->s22; /* x86082 stalin.sc:6873:238442 */ t69691 = *((struct w49 *)(&t69690)); t69687 = f1234(t69689, t69691); /* x86105 stalin.sc:6876:238543 */ /* x86103 stalin.sc:6876:238546 */ /* x86102 stalin.sc:6876:238554 */ /* x86101 stalin.sc:6877:238586 */ /* x86100 stalin.sc:6877:238605 */ /* x86099 stalin.sc:6877:238617 */ t69710 = p9689->a22804; /* x86098 stalin.sc:6877:238606 */ a41261 = t69710; /* x299156 stalin.sc:5598:192786 */ /* x299155 stalin.sc:5598:192812 */ t69711 = a41261; /* x299154 stalin.sc:5598:192787 */ a42449 = t69711; /* x303666 */ /* x303665 */ t69712 = a42449; /* x303664 */ if (!((t69712.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37754]"); structure_ref_error();} t69708 = t69712.value.structure_type27747->s1; /* x86097 stalin.sc:6877:238587 */ a39718 = t69708; /* x291541 */ /* x291540 */ t69709 = a39718; /* x291539 */ if (!((t69709.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34635]"); structure_ref_error();} t69706 = t69709.value.structure_type27698->s11; /* x86096 stalin.sc:6876:238555 */ a38512 = t69706; /* x286717 */ /* x286716 */ t69707 = a38512; /* x286715 */ if (!((t69707.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33429]"); structure_ref_error();} t69704 = t69707.value.structure_type27698->s22; /* x86095 stalin.sc:6876:238547 */ t69705 = *((struct w49 *)(&t69704)); t69702 = f26227(t69705); /* x86104 stalin.sc:6878:238631 */ t69703 = 1; /* x269950 stalin.sc:6876:238544 */ t69688 = t69702-t69703; /* x269951 stalin.sc:6873:238439 */ if (!((t69687&1)==1)) {backtrace_internal("[inside PROGRAM-POINTS-THAT-DIRECTLY-FLOW-FROM 9689]"); eql_error();} if (!(((int)(((int)t69687)>>1))==t69688)) goto l11779; l11778: /* x86172 stalin.sc:6879:238641 */ /* x86171 stalin.sc:6881:238719 */ /* x86161 stalin.sc:6882:238738 */ t69717 = e9612; /* x86170 stalin.sc:6886:238869 */ /* x86169 stalin.sc:6887:238896 */ /* x86168 stalin.sc:6887:238915 */ /* x86167 stalin.sc:6887:238934 */ /* x86166 stalin.sc:6887:238946 */ t69726 = e9612->a22804; /* x86165 stalin.sc:6887:238935 */ a41258 = t69726; /* x299144 stalin.sc:5598:192786 */ /* x299143 stalin.sc:5598:192812 */ t69727 = a41258; /* x299142 stalin.sc:5598:192787 */ a42452 = t69727; /* x303678 */ /* x303677 */ t69728 = a42452; /* x303676 */ if (!((t69728.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37757]"); structure_ref_error();} t69724 = t69728.value.structure_type27747->s1; /* x86164 stalin.sc:6887:238916 */ a39716 = t69724; /* x291533 */ /* x291532 */ t69725 = a39716; /* x291531 */ if (!((t69725.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34633]"); structure_ref_error();} t69722 = t69725.value.structure_type27698->s11; /* x86163 stalin.sc:6887:238897 */ a38620 = t69722; /* x287149 */ /* x287148 */ t69723 = a38620; /* x287147 */ if (!((t69723.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33537]"); structure_ref_error();} t69720 = t69723.value.structure_type27698->s21; /* x86162 stalin.sc:6886:238870 */ a39858 = t69720; /* x292101 */ /* x292100 */ t69721 = a39858; /* x292099 */ if (!((t69721.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34775]"); structure_ref_error();} t69718 = t69721.value.structure_type27698->s10; /* x86146 stalin.sc:6881:238720 */ t69719.tag = NATIVE_PROCEDURE_TYPE24055; t69719.value.native_procedure_type24055 = t69717; t69713 = f8172(t69719, t69718); /* x86145 stalin.sc:6880:238650 */ /* x86139 stalin.sc:6879:238642 */ t69714.tag = NATIVE_PROCEDURE_TYPE24056; t69715 = *((struct w49 *)(&t69713)); t69716 = (struct structure_type24753 *)NULL_TYPE; t68957 = f27731(t69714, t69715, t69716); goto l11780; l11779: /* x86173 stalin.sc:6888:238957 */ t68957 = (struct structure_type24753 *)NULL_TYPE; l11780: /* x86036 stalin.sc:6762:234538 */ /* x86025 stalin.sc:6762:234542 */ /* x85607 stalin.sc:6763:234551 */ /* x85606 stalin.sc:6763:234570 */ /* x85605 stalin.sc:6763:234582 */ t69541 = e9612->a22804; /* x85604 stalin.sc:6763:234571 */ a41256 = t69541; /* x299136 stalin.sc:5598:192786 */ /* x299135 stalin.sc:5598:192812 */ t69542 = a41256; /* x299134 stalin.sc:5598:192787 */ a42454 = t69542; /* x303686 */ /* x303685 */ t69543 = a42454; /* x303684 */ if (!((t69543.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37759]"); structure_ref_error();} t69539 = t69543.value.structure_type27747->s1; /* x85603 stalin.sc:6763:234552 */ a39714 = t69539; /* x291525 */ /* x291524 */ t69540 = a39714; /* x291523 */ if (!((t69540.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34631]"); structure_ref_error();} if ((t69540.value.structure_type27698->s11.tag)==FALSE_TYPE) goto l11770; /* x86023 */ /* x85617 stalin.sc:6766:234691 */ /* x85615 stalin.sc:6766:234696 */ /* x85614 stalin.sc:6766:234713 */ /* x85613 stalin.sc:6766:234732 */ /* x85612 stalin.sc:6766:234744 */ t69550 = e9612->a22804; /* x85611 stalin.sc:6766:234733 */ a41255 = t69550; /* x299132 stalin.sc:5598:192786 */ /* x299131 stalin.sc:5598:192812 */ t69551 = a41255; /* x299130 stalin.sc:5598:192787 */ a42455 = t69551; /* x303690 */ /* x303689 */ t69552 = a42455; /* x303688 */ if (!((t69552.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37760]"); structure_ref_error();} t69548 = t69552.value.structure_type27747->s1; /* x85610 stalin.sc:6766:234714 */ a39713 = t69548; /* x291521 */ /* x291520 */ t69549 = a39713; /* x291519 */ if (!((t69549.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34630]"); structure_ref_error();} t69546 = t69549.value.structure_type27698->s11; /* x85609 stalin.sc:6766:234697 */ a40264 = t69546; /* x293725 */ /* x293724 */ t69547 = a40264; /* x293723 */ if (!((t69547.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35181]"); structure_ref_error();} t69544 = t69547.value.structure_type27698->s0; /* x85616 stalin.sc:6766:234749 */ t69545 = q36; /* x269962 stalin.sc:6766:234692 */ if (!(t69544==t69545)) goto l11770; /* x86021 */ /* x86020 stalin.sc:6768:234769 */ /* x86009 stalin.sc:6769:234780 */ /* x86005 stalin.sc:6769:234785 */ /* x86004 stalin.sc:6769:234804 */ /* x86003 stalin.sc:6769:234823 */ /* x86002 stalin.sc:6769:234835 */ t69559 = e9612->a22804; /* x86001 stalin.sc:6769:234824 */ a41253 = t69559; /* x299124 stalin.sc:5598:192786 */ /* x299123 stalin.sc:5598:192812 */ t69560 = a41253; /* x299122 stalin.sc:5598:192787 */ a42457 = t69560; /* x303698 */ /* x303697 */ t69561 = a42457; /* x303696 */ if (!((t69561.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37762]"); structure_ref_error();} t69557 = t69561.value.structure_type27747->s1; /* x86000 stalin.sc:6769:234805 */ a39712 = t69557; /* x291517 */ /* x291516 */ t69558 = a39712; /* x291515 */ if (!((t69558.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34629]"); structure_ref_error();} t69555 = t69558.value.structure_type27698->s11; /* x85999 stalin.sc:6769:234786 */ a38619 = t69555; /* x287145 */ /* x287144 */ t69556 = a38619; /* x287143 */ if (!((t69556.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33536]"); structure_ref_error();} t69553 = t69556.value.structure_type27698->s21; /* x86008 stalin.sc:6770:234844 */ /* x86007 stalin.sc:6770:234856 */ t69562 = e9612->a22804; /* x86006 stalin.sc:6770:234845 */ a41254 = t69562; /* x299128 stalin.sc:5598:192786 */ /* x299127 stalin.sc:5598:192812 */ t69563 = a41254; /* x299126 stalin.sc:5598:192787 */ a42456 = t69563; /* x303694 */ /* x303693 */ t69564 = a42456; /* x303692 */ if (!((t69564.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37761]"); structure_ref_error();} t69554 = t69564.value.structure_type27747->s1; /* x269955 stalin.sc:6769:234781 */ /* EQ: dispatching general to general */ if (!((t69553.tag)==(t69554.tag))) goto l11774; switch (t69553.tag) {case FIXNUM_TYPE: if (!((t69553.value.fixnum_type)==(t69554.value.fixnum_type))) goto l11774; break; case FLONUM_TYPE: if (!((t69553.value.flonum_type)==(t69554.value.flonum_type))) goto l11774; break; case INPUT_PORT_TYPE: if (!((t69553.value.input_port_type)==(t69554.value.input_port_type))) goto l11774; break; case OUTPUT_PORT_TYPE: if (!((t69553.value.output_port_type)==(t69554.value.output_port_type))) goto l11774; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t69553.value.native_procedure_type15963)==(t69554.value.native_procedure_type15963))) goto l11774; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t69553.value.native_procedure_type19067)==(t69554.value.native_procedure_type19067))) goto l11774; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t69553.value.native_procedure_type19068)==(t69554.value.native_procedure_type19068))) goto l11774; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t69553.value.native_procedure_type22459)==(t69554.value.native_procedure_type22459))) goto l11774; break; case STRUCTURE_TYPE24753: if (!((t69553.value.structure_type24753)==(t69554.value.structure_type24753))) goto l11774; break; case STRUCTURE_TYPE24757: if (!((t69553.value.structure_type24757)==(t69554.value.structure_type24757))) goto l11774; break; case STRUCTURE_TYPE27501: if (!((t69553.value.structure_type27501)==(t69554.value.structure_type27501))) goto l11774; break; case STRUCTURE_TYPE27510: if (!((t69553.value.structure_type27510)==(t69554.value.structure_type27510))) goto l11774; break; case STRUCTURE_TYPE27621: if (!((t69553.value.structure_type27621)==(t69554.value.structure_type27621))) goto l11774; break; case STRUCTURE_TYPE27650: if (!((t69553.value.structure_type27650)==(t69554.value.structure_type27650))) goto l11774; break; case STRUCTURE_TYPE27669: if (!((t69553.value.structure_type27669)==(t69554.value.structure_type27669))) goto l11774; break; case STRUCTURE_TYPE27673: if (!((t69553.value.structure_type27673)==(t69554.value.structure_type27673))) goto l11774; break; case STRUCTURE_TYPE27692: if (!((t69553.value.structure_type27692)==(t69554.value.structure_type27692))) goto l11774; break; case STRUCTURE_TYPE27694: if (!((t69553.value.structure_type27694)==(t69554.value.structure_type27694))) goto l11774; break; case STRUCTURE_TYPE27698: if (!((t69553.value.structure_type27698)==(t69554.value.structure_type27698))) goto l11774; break; case STRUCTURE_TYPE27745: if (!((t69553.value.structure_type27745)==(t69554.value.structure_type27745))) goto l11774; break; case STRUCTURE_TYPE27747: if (!((t69553.value.structure_type27747)==(t69554.value.structure_type27747))) goto l11774; break; case STRUCTURE_TYPE27750: if (!((t69553.value.structure_type27750)==(t69554.value.structure_type27750))) goto l11774; break; case STRUCTURE_TYPE27753: if (!((t69553.value.structure_type27753)==(t69554.value.structure_type27753))) goto l11774; break; case STRUCTURE_TYPE27756: if (!((t69553.value.structure_type27756)==(t69554.value.structure_type27756))) goto l11774; break; case STRUCTURE_TYPE27761: if (!((t69553.value.structure_type27761)==(t69554.value.structure_type27761))) goto l11774; break; case STRUCTURE_TYPE27769: if (!((t69553.value.structure_type27769)==(t69554.value.structure_type27769))) goto l11774; break; case STRUCTURE_TYPE27776: if (!((t69553.value.structure_type27776)==(t69554.value.structure_type27776))) goto l11774; break; case STRUCTURE_TYPE27779: if (!((t69553.value.structure_type27779)==(t69554.value.structure_type27779))) goto l11774; break; case STRUCTURE_TYPE27858: if (!((t69553.value.structure_type27858)==(t69554.value.structure_type27858))) goto l11774; break; case STRING_TYPE: if (!((t69553.value.string_type)==(t69554.value.string_type))) goto l11774; break; case HEADED_VECTOR_TYPE27896: if (!((t69553.value.headed_vector_type27896)==(t69554.value.headed_vector_type27896))) goto l11774; break; case EXTERNAL_SYMBOL_TYPE: if (!((t69553.value.external_symbol_type)==(t69554.value.external_symbol_type))) goto l11774; break; case STRUCTURE_TYPE27908: if (!((t69553.value.structure_type27908)==(t69554.value.structure_type27908))) goto l11774; break; default:;} /* x86018 */ /* x86017 stalin.sc:6772:234880 */ /* x86016 stalin.sc:6772:234902 */ /* x86015 stalin.sc:6772:234921 */ /* x86014 stalin.sc:6772:234933 */ t69570 = e9612->a22804; /* x86013 stalin.sc:6772:234922 */ a41252 = t69570; /* x299120 stalin.sc:5598:192786 */ /* x299119 stalin.sc:5598:192812 */ t69571 = a41252; /* x299118 stalin.sc:5598:192787 */ a42458 = t69571; /* x303702 */ /* x303701 */ t69572 = a42458; /* x303700 */ if (!((t69572.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37763]"); structure_ref_error();} t69568 = t69572.value.structure_type27747->s1; /* x86012 stalin.sc:6772:234903 */ a39711 = t69568; /* x291513 */ /* x291512 */ t69569 = a39711; /* x291511 */ if (!((t69569.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34628]"); structure_ref_error();} t69566 = t69569.value.structure_type27698->s11; /* x86011 stalin.sc:6772:234881 */ a38510 = t69566; /* x286709 */ /* x286708 */ t69567 = a38510; /* x286707 */ if (!((t69567.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33427]"); structure_ref_error();} t69565 = t69567.value.structure_type27698->s22; /* x269954 stalin.sc:6771:234867 */ if ((t69565.tag)==NULL_TYPE) goto l11769; l11774: p9668 = e9612; /* x85995 */ /* x85994 stalin.sc:6773:234945 */ /* x85966 stalin.sc:6774:234956 */ /* x85958 stalin.sc:6775:234969 */ /* x85957 stalin.sc:6775:234981 */ t69576 = p9668->a22804; /* x85956 stalin.sc:6775:234970 */ a41250 = t69576; /* x299112 stalin.sc:5598:192786 */ /* x299111 stalin.sc:5598:192812 */ t69577 = a41250; /* x299110 stalin.sc:5598:192787 */ a42460 = t69577; /* x303710 */ /* x303709 */ t69578 = a42460; /* x303708 */ if (!((t69578.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37765]"); structure_ref_error();} t69573 = t69578.value.structure_type27747->s1; /* x85965 stalin.sc:6776:234991 */ /* x85964 stalin.sc:6776:235013 */ /* x85963 stalin.sc:6776:235032 */ /* x85962 stalin.sc:6776:235044 */ t69583 = p9668->a22804; /* x85961 stalin.sc:6776:235033 */ a41251 = t69583; /* x299116 stalin.sc:5598:192786 */ /* x299115 stalin.sc:5598:192812 */ t69584 = a41251; /* x299114 stalin.sc:5598:192787 */ a42459 = t69584; /* x303706 */ /* x303705 */ t69585 = a42459; /* x303704 */ if (!((t69585.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37764]"); structure_ref_error();} t69581 = t69585.value.structure_type27747->s1; /* x85960 stalin.sc:6776:235014 */ a39710 = t69581; /* x291509 */ /* x291508 */ t69582 = a39710; /* x291507 */ if (!((t69582.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34627]"); structure_ref_error();} t69579 = t69582.value.structure_type27698->s11; /* x85959 stalin.sc:6776:234992 */ a38509 = t69579; /* x286705 */ /* x286704 */ t69580 = a38509; /* x286703 */ if (!((t69580.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33426]"); structure_ref_error();} t69574 = t69580.value.structure_type27698->s22; /* x85955 stalin.sc:6774:234957 */ t69575 = *((struct w49 *)(&t69574)); if ((f26351(t69573, t69575).tag)==FALSE_TYPE) goto l11776; /* x85992 */ /* x85979 stalin.sc:6777:235059 */ /* x85971 stalin.sc:6778:235073 */ /* x85970 stalin.sc:6778:235085 */ t69591 = p9668->a22804; /* x85969 stalin.sc:6778:235074 */ a41247 = t69591; /* x299100 stalin.sc:5598:192786 */ /* x299099 stalin.sc:5598:192812 */ t69592 = a41247; /* x299098 stalin.sc:5598:192787 */ a42463 = t69592; /* x303722 */ /* x303721 */ t69593 = a42463; /* x303720 */ if (!((t69593.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37768]"); structure_ref_error();} t69588 = t69593.value.structure_type27747->s1; /* x85978 stalin.sc:6779:235091 */ /* x85977 stalin.sc:6779:235113 */ /* x85976 stalin.sc:6779:235132 */ /* x85975 stalin.sc:6779:235144 */ t69598 = p9668->a22804; /* x85974 stalin.sc:6779:235133 */ a41248 = t69598; /* x299104 stalin.sc:5598:192786 */ /* x299103 stalin.sc:5598:192812 */ t69599 = a41248; /* x299102 stalin.sc:5598:192787 */ a42462 = t69599; /* x303718 */ /* x303717 */ t69600 = a42462; /* x303716 */ if (!((t69600.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37767]"); structure_ref_error();} t69596 = t69600.value.structure_type27747->s1; /* x85973 stalin.sc:6779:235114 */ a39708 = t69596; /* x291501 */ /* x291500 */ t69597 = a39708; /* x291499 */ if (!((t69597.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34625]"); structure_ref_error();} t69594 = t69597.value.structure_type27698->s11; /* x85972 stalin.sc:6779:235092 */ a38507 = t69594; /* x286697 */ /* x286696 */ t69595 = a38507; /* x286695 */ if (!((t69595.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33424]"); structure_ref_error();} t69589 = t69595.value.structure_type27698->s22; /* x85968 stalin.sc:6777:235060 */ t69590 = *((struct w49 *)(&t69589)); t69586 = f1234(t69588, t69590); /* x85991 stalin.sc:6780:235152 */ /* x85989 stalin.sc:6780:235155 */ /* x85988 stalin.sc:6780:235163 */ /* x85987 stalin.sc:6781:235192 */ /* x85986 stalin.sc:6781:235211 */ /* x85985 stalin.sc:6781:235223 */ t69609 = p9668->a22804; /* x85984 stalin.sc:6781:235212 */ a41249 = t69609; /* x299108 stalin.sc:5598:192786 */ /* x299107 stalin.sc:5598:192812 */ t69610 = a41249; /* x299106 stalin.sc:5598:192787 */ a42461 = t69610; /* x303714 */ /* x303713 */ t69611 = a42461; /* x303712 */ if (!((t69611.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37766]"); structure_ref_error();} t69607 = t69611.value.structure_type27747->s1; /* x85983 stalin.sc:6781:235193 */ a39709 = t69607; /* x291505 */ /* x291504 */ t69608 = a39709; /* x291503 */ if (!((t69608.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34626]"); structure_ref_error();} t69605 = t69608.value.structure_type27698->s11; /* x85982 stalin.sc:6780:235164 */ a38508 = t69605; /* x286701 */ /* x286700 */ t69606 = a38508; /* x286699 */ if (!((t69606.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33425]"); structure_ref_error();} t69603 = t69606.value.structure_type27698->s22; /* x85981 stalin.sc:6780:235156 */ t69604 = *((struct w49 *)(&t69603)); t69601 = f26227(t69604); /* x85990 stalin.sc:6782:235234 */ t69602 = 1; /* x269956 stalin.sc:6780:235153 */ t69587 = t69601-t69602; /* x269957 stalin.sc:6777:235057 */ if (!((t69586&1)==1)) {backtrace_internal("[inside PROGRAM-POINTS-THAT-DIRECTLY-FLOW-FROM 9668]"); eql_error();} if (((int)(((int)t69586)>>1))==t69587) goto l11769; l11776: p9669 = p9668; /* x85952 */ /* x85942 stalin.sc:6784:235259 */ t69612 = p9669; /* x85951 stalin.sc:6852:237602 */ /* x85950 stalin.sc:6853:237630 */ /* x85949 stalin.sc:6853:237649 */ /* x85948 stalin.sc:6853:237668 */ /* x85947 stalin.sc:6853:237680 */ t69621 = p9669->a22804; /* x85946 stalin.sc:6853:237669 */ a41246 = t69621; /* x299096 stalin.sc:5598:192786 */ /* x299095 stalin.sc:5598:192812 */ t69622 = a41246; /* x299094 stalin.sc:5598:192787 */ a42464 = t69622; /* x303726 */ /* x303725 */ t69623 = a42464; /* x303724 */ if (!((t69623.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37769]"); structure_ref_error();} t69619 = t69623.value.structure_type27747->s1; /* x85945 stalin.sc:6853:237650 */ a39707 = t69619; /* x291497 */ /* x291496 */ t69620 = a39707; /* x291495 */ if (!((t69620.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34624]"); structure_ref_error();} t69617 = t69620.value.structure_type27698->s11; /* x85944 stalin.sc:6853:237631 */ a38618 = t69617; /* x287141 */ /* x287140 */ t69618 = a38618; /* x287139 */ if (!((t69618.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33535]"); structure_ref_error();} t69615 = t69618.value.structure_type27698->s21; /* x85943 stalin.sc:6852:237603 */ a39857 = t69615; /* x292097 */ /* x292096 */ t69616 = a39857; /* x292095 */ if (!((t69616.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34774]"); structure_ref_error();} t69613 = t69616.value.structure_type27698->s10; /* x85622 stalin.sc:6783:235245 */ t69614.tag = NATIVE_PROCEDURE_TYPE24059; t69614.value.native_procedure_type24059 = t69612; if ((f8137(t69614, t69613).tag)==FALSE_TYPE) goto l11770; l11769: /* x86034 stalin.sc:6854:237692 */ /* x86033 stalin.sc:6854:237698 */ /* x86032 stalin.sc:6854:237705 */ /* x86031 stalin.sc:6854:237724 */ /* x86030 stalin.sc:6854:237736 */ t69628 = e9612->a22804; /* x86029 stalin.sc:6854:237725 */ a41245 = t69628; /* x299092 stalin.sc:5598:192786 */ /* x299091 stalin.sc:5598:192812 */ t69629 = a41245; /* x299090 stalin.sc:5598:192787 */ a42465 = t69629; /* x303730 */ /* x303729 */ t69630 = a42465; /* x303728 */ if (!((t69630.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37770]"); structure_ref_error();} t69626 = t69630.value.structure_type27747->s1; /* x86028 stalin.sc:6854:237706 */ a39706 = t69626; /* x291493 */ /* x291492 */ t69627 = a39706; /* x291491 */ if (!((t69627.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34623]"); structure_ref_error();} t69625 = t69627.value.structure_type27698->s11; /* x86027 stalin.sc:6854:237699 */ t69624 = f9424(t69625); /* x86026 stalin.sc:6854:237693 */ a34886 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34886==NULL) {backtrace("stalin.sc", 6854, 237692); out_of_memory_error();} a34886->s0.tag = STRUCTURE_TYPE27747; a34886->s0.value.structure_type27747 = t69624; a34886->s1.tag = NULL_TYPE; /* x271779 */ t68956 = a34886; goto l11771; l11770: /* x86035 stalin.sc:6855:237745 */ t68956 = (struct structure_type24753 *)NULL_TYPE; l11771: /* x85602 stalin.sc:6694:232406 */ /* x85390 stalin.sc:6695:232417 */ /* x85369 stalin.sc:6696:232423 */ /* x85368 stalin.sc:6696:232442 */ /* x85367 stalin.sc:6696:232454 */ t69513 = e9612->a22804; /* x85366 stalin.sc:6696:232443 */ a41233 = t69513; /* x299044 stalin.sc:5598:192786 */ /* x299043 stalin.sc:5598:192812 */ t69514 = a41233; /* x299042 stalin.sc:5598:192787 */ a42477 = t69514; /* x303778 */ /* x303777 */ t69515 = a42477; /* x303776 */ if (!((t69515.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37782]"); structure_ref_error();} t69511 = t69515.value.structure_type27747->s1; /* x85365 stalin.sc:6696:232424 */ a39694 = t69511; /* x291445 */ /* x291444 */ t69512 = a39694; /* x291443 */ if (!((t69512.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34611]"); structure_ref_error();} if ((t69512.value.structure_type27698->s11.tag)==FALSE_TYPE) goto l11765; /* x85388 */ /* x85379 stalin.sc:6699:232583 */ /* x85377 stalin.sc:6699:232588 */ /* x85376 stalin.sc:6699:232605 */ /* x85375 stalin.sc:6699:232624 */ /* x85374 stalin.sc:6699:232636 */ t69522 = e9612->a22804; /* x85373 stalin.sc:6699:232625 */ a41232 = t69522; /* x299040 stalin.sc:5598:192786 */ /* x299039 stalin.sc:5598:192812 */ t69523 = a41232; /* x299038 stalin.sc:5598:192787 */ a42478 = t69523; /* x303782 */ /* x303781 */ t69524 = a42478; /* x303780 */ if (!((t69524.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37783]"); structure_ref_error();} t69520 = t69524.value.structure_type27747->s1; /* x85372 stalin.sc:6699:232606 */ a39693 = t69520; /* x291441 */ /* x291440 */ t69521 = a39693; /* x291439 */ if (!((t69521.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34610]"); structure_ref_error();} t69518 = t69521.value.structure_type27698->s11; /* x85371 stalin.sc:6699:232589 */ a40263 = t69518; /* x293721 */ /* x293720 */ t69519 = a40263; /* x293719 */ if (!((t69519.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35180]"); structure_ref_error();} t69516 = t69519.value.structure_type27698->s0; /* x85378 stalin.sc:6699:232641 */ t69517 = q39; /* x269969 stalin.sc:6699:232584 */ if (!(t69516==t69517)) goto l11765; /* x85386 */ /* x85385 stalin.sc:6700:232660 */ /* x85384 stalin.sc:6700:232684 */ /* x85383 stalin.sc:6700:232696 */ t69528 = e9612->a22804; /* x85382 stalin.sc:6700:232685 */ a41231 = t69528; /* x299036 stalin.sc:5598:192786 */ /* x299035 stalin.sc:5598:192812 */ t69529 = a41231; /* x299034 stalin.sc:5598:192787 */ a42479 = t69529; /* x303786 */ /* x303785 */ t69530 = a42479; /* x303784 */ if (!((t69530.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37784]"); structure_ref_error();} t69526 = t69530.value.structure_type27747->s1; /* x85381 stalin.sc:6700:232661 */ a40030 = t69526; /* x292789 */ /* x292788 */ t69527 = a40030; /* x292787 */ if (!((t69527.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34947]"); structure_ref_error();} t69525 = t69527.value.structure_type27698->s9; /* x85380 stalin.sc:6700:232652 */ if ((f8899(t69525).tag)==FALSE_TYPE) goto l11765; /* x85600 stalin.sc:6701:232709 */ /* x85599 stalin.sc:6703:232722 */ /* x85597 stalin.sc:6704:232739 */ t69535 = e9612; /* x85598 stalin.sc:6758:234377 */ t69536 = a2030; /* x85393 stalin.sc:6703:232723 */ t69537.tag = NATIVE_PROCEDURE_TYPE24077; t69537.value.native_procedure_type24077 = t69535; t69538 = *((struct w49 *)(&t69536)); t69531 = f1226(t69537, t69538); /* x85392 stalin.sc:6702:232715 */ /* x85391 stalin.sc:6701:232710 */ t69532.tag = NATIVE_PROCEDURE_TYPE7198; t69533 = *((struct w49 *)(&t69531)); t69534 = (struct structure_type24753 *)NULL_TYPE; t68955 = f27731(t69532, t69533, t69534); goto l11766; l11765: /* x85601 stalin.sc:6759:234394 */ t68955 = (struct structure_type24753 *)NULL_TYPE; l11766: /* x85364 stalin.sc:6523:227505 */ /* x84911 stalin.sc:6523:227509 */ /* x84814 stalin.sc:6524:227518 */ /* x84813 stalin.sc:6524:227537 */ /* x84812 stalin.sc:6524:227549 */ t69272 = e9612->a22804; /* x84811 stalin.sc:6524:227538 */ a41224 = t69272; /* x299008 stalin.sc:5598:192786 */ /* x299007 stalin.sc:5598:192812 */ t69273 = a41224; /* x299006 stalin.sc:5598:192787 */ a42486 = t69273; /* x303814 */ /* x303813 */ t69274 = a42486; /* x303812 */ if (!((t69274.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37791]"); structure_ref_error();} t69270 = t69274.value.structure_type27747->s1; /* x84810 stalin.sc:6524:227519 */ a39692 = t69270; /* x291437 */ /* x291436 */ t69271 = a39692; /* x291435 */ if (!((t69271.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34609]"); structure_ref_error();} if ((t69271.value.structure_type27698->s11.tag)==FALSE_TYPE) goto l11744; /* x84909 */ /* x84839 stalin.sc:6525:227557 */ /* x84838 stalin.sc:6525:227561 */ /* x84836 stalin.sc:6525:227566 */ /* x84835 stalin.sc:6525:227583 */ /* x84834 stalin.sc:6525:227602 */ /* x84833 stalin.sc:6525:227614 */ t69281 = e9612->a22804; /* x84832 stalin.sc:6525:227603 */ a41223 = t69281; /* x299004 stalin.sc:5598:192786 */ /* x299003 stalin.sc:5598:192812 */ t69282 = a41223; /* x299002 stalin.sc:5598:192787 */ a42487 = t69282; /* x303818 */ /* x303817 */ t69283 = a42487; /* x303816 */ if (!((t69283.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37792]"); structure_ref_error();} t69279 = t69283.value.structure_type27747->s1; /* x84831 stalin.sc:6525:227584 */ a39691 = t69279; /* x291433 */ /* x291432 */ t69280 = a39691; /* x291431 */ if (!((t69280.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34608]"); structure_ref_error();} t69277 = t69280.value.structure_type27698->s11; /* x84830 stalin.sc:6525:227567 */ a40262 = t69277; /* x293717 */ /* x293716 */ t69278 = a40262; /* x293715 */ if (!((t69278.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35179]"); structure_ref_error();} t69275 = t69278.value.structure_type27698->s0; /* x84837 stalin.sc:6525:227619 */ t69276 = q36; /* x269980 stalin.sc:6525:227562 */ if (t69275==t69276) goto l11747; p9638 = e9612; /* x84826 */ /* x84824 stalin.sc:6526:227639 */ /* x84823 stalin.sc:6526:227656 */ /* x84822 stalin.sc:6526:227675 */ /* x84821 stalin.sc:6526:227687 */ t69290 = p9638->a22804; /* x84820 stalin.sc:6526:227676 */ a41222 = t69290; /* x299000 stalin.sc:5598:192786 */ /* x298999 stalin.sc:5598:192812 */ t69291 = a41222; /* x298998 stalin.sc:5598:192787 */ a42488 = t69291; /* x303822 */ /* x303821 */ t69292 = a42488; /* x303820 */ if (!((t69292.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37793]"); structure_ref_error();} t69288 = t69292.value.structure_type27747->s1; /* x84819 stalin.sc:6526:227657 */ a39690 = t69288; /* x291429 */ /* x291428 */ t69289 = a39690; /* x291427 */ if (!((t69289.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34607]"); structure_ref_error();} t69286 = t69289.value.structure_type27698->s11; /* x84818 stalin.sc:6526:227640 */ a40261 = t69286; /* x293713 */ /* x293712 */ t69287 = a40261; /* x293711 */ if (!((t69287.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35178]"); structure_ref_error();} t69284 = t69287.value.structure_type27698->s0; /* x84825 stalin.sc:6527:227698 */ t69285 = q37; /* x269981 stalin.sc:6526:227635 */ if (!(t69284==t69285)) goto l11744; l11747: /* x84907 */ /* x84906 stalin.sc:6528:227724 */ /* x84895 stalin.sc:6529:227731 */ /* x84891 stalin.sc:6529:227736 */ /* x84890 stalin.sc:6529:227755 */ /* x84889 stalin.sc:6529:227774 */ /* x84888 stalin.sc:6529:227786 */ t69299 = e9612->a22804; /* x84887 stalin.sc:6529:227775 */ a41220 = t69299; /* x298992 stalin.sc:5598:192786 */ /* x298991 stalin.sc:5598:192812 */ t69300 = a41220; /* x298990 stalin.sc:5598:192787 */ a42490 = t69300; /* x303830 */ /* x303829 */ t69301 = a42490; /* x303828 */ if (!((t69301.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37795]"); structure_ref_error();} t69297 = t69301.value.structure_type27747->s1; /* x84886 stalin.sc:6529:227756 */ a39689 = t69297; /* x291425 */ /* x291424 */ t69298 = a39689; /* x291423 */ if (!((t69298.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34606]"); structure_ref_error();} t69295 = t69298.value.structure_type27698->s11; /* x84885 stalin.sc:6529:227737 */ a38616 = t69295; /* x287133 */ /* x287132 */ t69296 = a38616; /* x287131 */ if (!((t69296.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33533]"); structure_ref_error();} t69293 = t69296.value.structure_type27698->s21; /* x84894 stalin.sc:6530:227798 */ /* x84893 stalin.sc:6530:227810 */ t69302 = e9612->a22804; /* x84892 stalin.sc:6530:227799 */ a41221 = t69302; /* x298996 stalin.sc:5598:192786 */ /* x298995 stalin.sc:5598:192812 */ t69303 = a41221; /* x298994 stalin.sc:5598:192787 */ a42489 = t69303; /* x303826 */ /* x303825 */ t69304 = a42489; /* x303824 */ if (!((t69304.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37794]"); structure_ref_error();} t69294 = t69304.value.structure_type27747->s1; /* x269977 stalin.sc:6529:227732 */ /* EQ: dispatching general to general */ if (!((t69293.tag)==(t69294.tag))) goto l11749; switch (t69293.tag) {case FIXNUM_TYPE: if (!((t69293.value.fixnum_type)==(t69294.value.fixnum_type))) goto l11749; break; case FLONUM_TYPE: if (!((t69293.value.flonum_type)==(t69294.value.flonum_type))) goto l11749; break; case INPUT_PORT_TYPE: if (!((t69293.value.input_port_type)==(t69294.value.input_port_type))) goto l11749; break; case OUTPUT_PORT_TYPE: if (!((t69293.value.output_port_type)==(t69294.value.output_port_type))) goto l11749; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t69293.value.native_procedure_type15963)==(t69294.value.native_procedure_type15963))) goto l11749; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t69293.value.native_procedure_type19067)==(t69294.value.native_procedure_type19067))) goto l11749; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t69293.value.native_procedure_type19068)==(t69294.value.native_procedure_type19068))) goto l11749; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t69293.value.native_procedure_type22459)==(t69294.value.native_procedure_type22459))) goto l11749; break; case STRUCTURE_TYPE24753: if (!((t69293.value.structure_type24753)==(t69294.value.structure_type24753))) goto l11749; break; case STRUCTURE_TYPE24757: if (!((t69293.value.structure_type24757)==(t69294.value.structure_type24757))) goto l11749; break; case STRUCTURE_TYPE27501: if (!((t69293.value.structure_type27501)==(t69294.value.structure_type27501))) goto l11749; break; case STRUCTURE_TYPE27510: if (!((t69293.value.structure_type27510)==(t69294.value.structure_type27510))) goto l11749; break; case STRUCTURE_TYPE27621: if (!((t69293.value.structure_type27621)==(t69294.value.structure_type27621))) goto l11749; break; case STRUCTURE_TYPE27650: if (!((t69293.value.structure_type27650)==(t69294.value.structure_type27650))) goto l11749; break; case STRUCTURE_TYPE27669: if (!((t69293.value.structure_type27669)==(t69294.value.structure_type27669))) goto l11749; break; case STRUCTURE_TYPE27673: if (!((t69293.value.structure_type27673)==(t69294.value.structure_type27673))) goto l11749; break; case STRUCTURE_TYPE27692: if (!((t69293.value.structure_type27692)==(t69294.value.structure_type27692))) goto l11749; break; case STRUCTURE_TYPE27694: if (!((t69293.value.structure_type27694)==(t69294.value.structure_type27694))) goto l11749; break; case STRUCTURE_TYPE27698: if (!((t69293.value.structure_type27698)==(t69294.value.structure_type27698))) goto l11749; break; case STRUCTURE_TYPE27745: if (!((t69293.value.structure_type27745)==(t69294.value.structure_type27745))) goto l11749; break; case STRUCTURE_TYPE27747: if (!((t69293.value.structure_type27747)==(t69294.value.structure_type27747))) goto l11749; break; case STRUCTURE_TYPE27750: if (!((t69293.value.structure_type27750)==(t69294.value.structure_type27750))) goto l11749; break; case STRUCTURE_TYPE27753: if (!((t69293.value.structure_type27753)==(t69294.value.structure_type27753))) goto l11749; break; case STRUCTURE_TYPE27756: if (!((t69293.value.structure_type27756)==(t69294.value.structure_type27756))) goto l11749; break; case STRUCTURE_TYPE27761: if (!((t69293.value.structure_type27761)==(t69294.value.structure_type27761))) goto l11749; break; case STRUCTURE_TYPE27769: if (!((t69293.value.structure_type27769)==(t69294.value.structure_type27769))) goto l11749; break; case STRUCTURE_TYPE27776: if (!((t69293.value.structure_type27776)==(t69294.value.structure_type27776))) goto l11749; break; case STRUCTURE_TYPE27779: if (!((t69293.value.structure_type27779)==(t69294.value.structure_type27779))) goto l11749; break; case STRUCTURE_TYPE27858: if (!((t69293.value.structure_type27858)==(t69294.value.structure_type27858))) goto l11749; break; case STRING_TYPE: if (!((t69293.value.string_type)==(t69294.value.string_type))) goto l11749; break; case HEADED_VECTOR_TYPE27896: if (!((t69293.value.headed_vector_type27896)==(t69294.value.headed_vector_type27896))) goto l11749; break; case EXTERNAL_SYMBOL_TYPE: if (!((t69293.value.external_symbol_type)==(t69294.value.external_symbol_type))) goto l11749; break; case STRUCTURE_TYPE27908: if (!((t69293.value.structure_type27908)==(t69294.value.structure_type27908))) goto l11749; break; default:;} /* x84904 */ /* x84903 stalin.sc:6532:227826 */ /* x84902 stalin.sc:6532:227848 */ /* x84901 stalin.sc:6532:227867 */ /* x84900 stalin.sc:6532:227879 */ t69310 = e9612->a22804; /* x84899 stalin.sc:6532:227868 */ a41219 = t69310; /* x298988 stalin.sc:5598:192786 */ /* x298987 stalin.sc:5598:192812 */ t69311 = a41219; /* x298986 stalin.sc:5598:192787 */ a42491 = t69311; /* x303834 */ /* x303833 */ t69312 = a42491; /* x303832 */ if (!((t69312.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37796]"); structure_ref_error();} t69308 = t69312.value.structure_type27747->s1; /* x84898 stalin.sc:6532:227849 */ a39688 = t69308; /* x291421 */ /* x291420 */ t69309 = a39688; /* x291419 */ if (!((t69309.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34605]"); structure_ref_error();} t69306 = t69309.value.structure_type27698->s11; /* x84897 stalin.sc:6532:227827 */ a38506 = t69306; /* x286693 */ /* x286692 */ t69307 = a38506; /* x286691 */ if (!((t69307.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33423]"); structure_ref_error();} t69305 = t69307.value.structure_type27698->s22; /* x269976 stalin.sc:6531:227817 */ if ((t69305.tag)==NULL_TYPE) goto l11743; l11749: p9639 = e9612; /* x84881 */ /* x84853 stalin.sc:6534:227901 */ /* x84845 stalin.sc:6535:227910 */ /* x84844 stalin.sc:6535:227922 */ t69316 = p9639->a22804; /* x84843 stalin.sc:6535:227911 */ a41217 = t69316; /* x298980 stalin.sc:5598:192786 */ /* x298979 stalin.sc:5598:192812 */ t69317 = a41217; /* x298978 stalin.sc:5598:192787 */ a42493 = t69317; /* x303842 */ /* x303841 */ t69318 = a42493; /* x303840 */ if (!((t69318.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37798]"); structure_ref_error();} t69313 = t69318.value.structure_type27747->s1; /* x84852 stalin.sc:6536:227928 */ /* x84851 stalin.sc:6536:227950 */ /* x84850 stalin.sc:6536:227969 */ /* x84849 stalin.sc:6536:227981 */ t69323 = p9639->a22804; /* x84848 stalin.sc:6536:227970 */ a41218 = t69323; /* x298984 stalin.sc:5598:192786 */ /* x298983 stalin.sc:5598:192812 */ t69324 = a41218; /* x298982 stalin.sc:5598:192787 */ a42492 = t69324; /* x303838 */ /* x303837 */ t69325 = a42492; /* x303836 */ if (!((t69325.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37797]"); structure_ref_error();} t69321 = t69325.value.structure_type27747->s1; /* x84847 stalin.sc:6536:227951 */ a39687 = t69321; /* x291417 */ /* x291416 */ t69322 = a39687; /* x291415 */ if (!((t69322.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34604]"); structure_ref_error();} t69319 = t69322.value.structure_type27698->s11; /* x84846 stalin.sc:6536:227929 */ a38505 = t69319; /* x286689 */ /* x286688 */ t69320 = a38505; /* x286687 */ if (!((t69320.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33422]"); structure_ref_error();} t69314 = t69320.value.structure_type27698->s22; /* x84842 stalin.sc:6534:227902 */ t69315 = *((struct w49 *)(&t69314)); if ((f26351(t69313, t69315).tag)==FALSE_TYPE) goto l11744; /* x84879 */ /* x84866 stalin.sc:6537:227992 */ /* x84858 stalin.sc:6538:228009 */ /* x84857 stalin.sc:6538:228021 */ t69331 = p9639->a22804; /* x84856 stalin.sc:6538:228010 */ a41214 = t69331; /* x298968 stalin.sc:5598:192786 */ /* x298967 stalin.sc:5598:192812 */ t69332 = a41214; /* x298966 stalin.sc:5598:192787 */ a42496 = t69332; /* x303854 */ /* x303853 */ t69333 = a42496; /* x303852 */ if (!((t69333.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37801]"); structure_ref_error();} t69328 = t69333.value.structure_type27747->s1; /* x84865 stalin.sc:6539:228030 */ /* x84864 stalin.sc:6539:228052 */ /* x84863 stalin.sc:6539:228071 */ /* x84862 stalin.sc:6539:228083 */ t69338 = p9639->a22804; /* x84861 stalin.sc:6539:228072 */ a41215 = t69338; /* x298972 stalin.sc:5598:192786 */ /* x298971 stalin.sc:5598:192812 */ t69339 = a41215; /* x298970 stalin.sc:5598:192787 */ a42495 = t69339; /* x303850 */ /* x303849 */ t69340 = a42495; /* x303848 */ if (!((t69340.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37800]"); structure_ref_error();} t69336 = t69340.value.structure_type27747->s1; /* x84860 stalin.sc:6539:228053 */ a39685 = t69336; /* x291409 */ /* x291408 */ t69337 = a39685; /* x291407 */ if (!((t69337.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34602]"); structure_ref_error();} t69334 = t69337.value.structure_type27698->s11; /* x84859 stalin.sc:6539:228031 */ a38503 = t69334; /* x286681 */ /* x286680 */ t69335 = a38503; /* x286679 */ if (!((t69335.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33420]"); structure_ref_error();} t69329 = t69335.value.structure_type27698->s22; /* x84855 stalin.sc:6537:227993 */ t69330 = *((struct w49 *)(&t69329)); t69326 = f1234(t69328, t69330); /* x84878 stalin.sc:6540:228094 */ /* x84876 stalin.sc:6540:228097 */ /* x84875 stalin.sc:6540:228105 */ /* x84874 stalin.sc:6541:228137 */ /* x84873 stalin.sc:6541:228156 */ /* x84872 stalin.sc:6541:228168 */ t69349 = p9639->a22804; /* x84871 stalin.sc:6541:228157 */ a41216 = t69349; /* x298976 stalin.sc:5598:192786 */ /* x298975 stalin.sc:5598:192812 */ t69350 = a41216; /* x298974 stalin.sc:5598:192787 */ a42494 = t69350; /* x303846 */ /* x303845 */ t69351 = a42494; /* x303844 */ if (!((t69351.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37799]"); structure_ref_error();} t69347 = t69351.value.structure_type27747->s1; /* x84870 stalin.sc:6541:228138 */ a39686 = t69347; /* x291413 */ /* x291412 */ t69348 = a39686; /* x291411 */ if (!((t69348.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34603]"); structure_ref_error();} t69345 = t69348.value.structure_type27698->s11; /* x84869 stalin.sc:6540:228106 */ a38504 = t69345; /* x286685 */ /* x286684 */ t69346 = a38504; /* x286683 */ if (!((t69346.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33421]"); structure_ref_error();} t69343 = t69346.value.structure_type27698->s22; /* x84868 stalin.sc:6540:228098 */ t69344 = *((struct w49 *)(&t69343)); t69341 = f26227(t69344); /* x84877 stalin.sc:6542:228182 */ t69342 = 1; /* x269978 stalin.sc:6540:228095 */ t69327 = t69341-t69342; /* x269979 stalin.sc:6537:227990 */ if (!((t69326&1)==1)) {backtrace_internal("[inside PROGRAM-POINTS-THAT-DIRECTLY-FLOW-FROM 9639]"); eql_error();} if (!(((int)(((int)t69326)>>1))==t69327)) goto l11744; l11743: /* x85362 stalin.sc:6543:228192 */ /* x85361 stalin.sc:6665:231568 */ /* x85304 stalin.sc:6665:231572 */ /* x85294 stalin.sc:6666:231583 */ t69483 = e9612; /* x85303 stalin.sc:6671:231729 */ /* x85302 stalin.sc:6672:231753 */ /* x85301 stalin.sc:6672:231772 */ /* x85300 stalin.sc:6672:231791 */ /* x85299 stalin.sc:6672:231803 */ t69492 = e9612->a22804; /* x85298 stalin.sc:6672:231792 */ a41213 = t69492; /* x298964 stalin.sc:5598:192786 */ /* x298963 stalin.sc:5598:192812 */ t69493 = a41213; /* x298962 stalin.sc:5598:192787 */ a42497 = t69493; /* x303858 */ /* x303857 */ t69494 = a42497; /* x303856 */ if (!((t69494.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37802]"); structure_ref_error();} t69490 = t69494.value.structure_type27747->s1; /* x85297 stalin.sc:6672:231773 */ a39684 = t69490; /* x291405 */ /* x291404 */ t69491 = a39684; /* x291403 */ if (!((t69491.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34601]"); structure_ref_error();} t69488 = t69491.value.structure_type27698->s11; /* x85296 stalin.sc:6672:231754 */ a38615 = t69488; /* x287129 */ /* x287128 */ t69489 = a38615; /* x287127 */ if (!((t69489.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33532]"); structure_ref_error();} t69486 = t69489.value.structure_type27698->s21; /* x85295 stalin.sc:6671:231730 */ a39845 = t69486; /* x292049 */ /* x292048 */ t69487 = a39845; /* x292047 */ if (!((t69487.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34762]"); structure_ref_error();} t69484 = t69487.value.structure_type27698->s10; /* x85277 stalin.sc:6665:231573 */ t69485.tag = NATIVE_PROCEDURE_TYPE24091; t69485.value.native_procedure_type24091 = t69483; if ((f8137(t69485, t69484).tag)==FALSE_TYPE) goto l11762; /* x85359 stalin.sc:6673:231818 */ /* x85358 stalin.sc:6682:232053 */ /* x85348 stalin.sc:6683:232074 */ t69500 = e9612; /* x85357 stalin.sc:6689:232252 */ /* x85356 stalin.sc:6690:232281 */ /* x85355 stalin.sc:6690:232297 */ /* x85354 stalin.sc:6690:232316 */ /* x85353 stalin.sc:6690:232328 */ t69508 = e9612->a22804; /* x85352 stalin.sc:6690:232317 */ a41212 = t69508; /* x298960 stalin.sc:5598:192786 */ /* x298959 stalin.sc:5598:192812 */ t69509 = a41212; /* x298958 stalin.sc:5598:192787 */ a42498 = t69509; /* x303862 */ /* x303861 */ t69510 = a42498; /* x303860 */ if (!((t69510.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37803]"); structure_ref_error();} t69506 = t69510.value.structure_type27747->s1; /* x85351 stalin.sc:6690:232298 */ a39683 = t69506; /* x291401 */ /* x291400 */ t69507 = a39683; /* x291399 */ if (!((t69507.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34600]"); structure_ref_error();} t69505 = t69507.value.structure_type27698->s11; /* x85350 stalin.sc:6690:232282 */ t69503 = f6998(t69505); /* x85349 stalin.sc:6689:232253 */ a39844 = t69503; /* x292045 */ /* x292044 */ t69504 = a39844; /* x292043 */ if (!((t69504.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34761]"); structure_ref_error();} t69501 = t69504.value.structure_type27698->s10; /* x85326 stalin.sc:6682:232054 */ t69502.tag = NATIVE_PROCEDURE_TYPE24092; t69502.value.native_procedure_type24092 = t69500; t69496 = f8172(t69502, t69501); /* x85325 stalin.sc:6673:231823 */ t69495 = e9612; /* x85305 stalin.sc:6673:231819 */ t69497.tag = NATIVE_PROCEDURE_TYPE24093; t69497.value.native_procedure_type24093 = t69495; t69498 = *((struct w49 *)(&t69496)); t69499 = (struct structure_type24753 *)NULL_TYPE; t69356 = f27731(t69497, t69498, t69499); goto l11763; l11762: /* x85360 stalin.sc:6691:232344 */ t69356 = (struct structure_type24753 *)NULL_TYPE; l11763: /* x85276 stalin.sc:6617:230277 */ /* x85162 stalin.sc:6617:230281 */ /* x85152 stalin.sc:6618:230292 */ t69435 = e9612; /* x85161 stalin.sc:6623:230437 */ /* x85160 stalin.sc:6624:230461 */ /* x85159 stalin.sc:6624:230480 */ /* x85158 stalin.sc:6624:230499 */ /* x85157 stalin.sc:6624:230511 */ t69444 = e9612->a22804; /* x85156 stalin.sc:6624:230500 */ a41208 = t69444; /* x298944 stalin.sc:5598:192786 */ /* x298943 stalin.sc:5598:192812 */ t69445 = a41208; /* x298942 stalin.sc:5598:192787 */ a42502 = t69445; /* x303878 */ /* x303877 */ t69446 = a42502; /* x303876 */ if (!((t69446.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37807]"); structure_ref_error();} t69442 = t69446.value.structure_type27747->s1; /* x85155 stalin.sc:6624:230481 */ a39679 = t69442; /* x291385 */ /* x291384 */ t69443 = a39679; /* x291383 */ if (!((t69443.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34596]"); structure_ref_error();} t69440 = t69443.value.structure_type27698->s11; /* x85154 stalin.sc:6624:230462 */ a38614 = t69440; /* x287125 */ /* x287124 */ t69441 = a38614; /* x287123 */ if (!((t69441.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33531]"); structure_ref_error();} t69438 = t69441.value.structure_type27698->s21; /* x85153 stalin.sc:6623:230438 */ a39843 = t69438; /* x292041 */ /* x292040 */ t69439 = a39843; /* x292039 */ if (!((t69439.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34760]"); structure_ref_error();} t69436 = t69439.value.structure_type27698->s10; /* x85135 stalin.sc:6617:230282 */ t69437.tag = NATIVE_PROCEDURE_TYPE24094; t69437.value.native_procedure_type24094 = t69435; if ((f8137(t69437, t69436).tag)==FALSE_TYPE) goto l11759; /* x85274 stalin.sc:6625:230526 */ /* x85273 stalin.sc:6645:231043 */ /* x85272 stalin.sc:6655:231290 */ /* x85262 stalin.sc:6656:231308 */ t69472 = e9612; /* x85271 stalin.sc:6662:231468 */ /* x85270 stalin.sc:6663:231494 */ /* x85269 stalin.sc:6663:231511 */ /* x85268 stalin.sc:6663:231530 */ /* x85267 stalin.sc:6663:231542 */ t69480 = e9612->a22804; /* x85266 stalin.sc:6663:231531 */ a41207 = t69480; /* x298940 stalin.sc:5598:192786 */ /* x298939 stalin.sc:5598:192812 */ t69481 = a41207; /* x298938 stalin.sc:5598:192787 */ a42503 = t69481; /* x303882 */ /* x303881 */ t69482 = a42503; /* x303880 */ if (!((t69482.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37808]"); structure_ref_error();} t69478 = t69482.value.structure_type27747->s1; /* x85265 stalin.sc:6663:231512 */ a39678 = t69478; /* x291381 */ /* x291380 */ t69479 = a39678; /* x291379 */ if (!((t69479.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34595]"); structure_ref_error();} t69477 = t69479.value.structure_type27698->s11; /* x85264 stalin.sc:6663:231495 */ t69475 = f7003(t69477); /* x85263 stalin.sc:6662:231469 */ a39842 = t69475; /* x292037 */ /* x292036 */ t69476 = a39842; /* x292035 */ if (!((t69476.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34759]"); structure_ref_error();} t69473 = t69476.value.structure_type27698->s10; /* x85240 stalin.sc:6655:231291 */ t69474.tag = NATIVE_PROCEDURE_TYPE24095; t69474.value.native_procedure_type24095 = t69472; t69468 = f8172(t69474, t69473); /* x85239 stalin.sc:6646:231051 */ t69467 = e9612; /* x85219 stalin.sc:6645:231044 */ t69469.tag = NATIVE_PROCEDURE_TYPE24096; t69469.value.native_procedure_type24096 = t69467; t69470 = *((struct w49 *)(&t69468)); t69471 = (struct structure_type24753 *)NULL_TYPE; t69448 = f27731(t69469, t69470, t69471); /* x85218 stalin.sc:6626:230536 */ /* x85217 stalin.sc:6636:230782 */ /* x85207 stalin.sc:6637:230800 */ t69456 = e9612; /* x85216 stalin.sc:6643:230960 */ /* x85215 stalin.sc:6644:230986 */ /* x85214 stalin.sc:6644:231002 */ /* x85213 stalin.sc:6644:231021 */ /* x85212 stalin.sc:6644:231033 */ t69464 = e9612->a22804; /* x85211 stalin.sc:6644:231022 */ a41204 = t69464; /* x298928 stalin.sc:5598:192786 */ /* x298927 stalin.sc:5598:192812 */ t69465 = a41204; /* x298926 stalin.sc:5598:192787 */ a42506 = t69465; /* x303894 */ /* x303893 */ t69466 = a42506; /* x303892 */ if (!((t69466.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37811]"); structure_ref_error();} t69462 = t69466.value.structure_type27747->s1; /* x85210 stalin.sc:6644:231003 */ a39675 = t69462; /* x291369 */ /* x291368 */ t69463 = a39675; /* x291367 */ if (!((t69463.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34592]"); structure_ref_error();} t69461 = t69463.value.structure_type27698->s11; /* x85209 stalin.sc:6644:230987 */ t69459 = f6998(t69461); /* x85208 stalin.sc:6643:230961 */ a39841 = t69459; /* x292033 */ /* x292032 */ t69460 = a39841; /* x292031 */ if (!((t69460.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34758]"); structure_ref_error();} t69457 = t69460.value.structure_type27698->s10; /* x85185 stalin.sc:6636:230783 */ t69458.tag = NATIVE_PROCEDURE_TYPE24097; t69458.value.native_procedure_type24097 = t69456; t69452 = f8172(t69458, t69457); /* x85184 stalin.sc:6627:230544 */ t69451 = e9612; /* x85164 stalin.sc:6626:230537 */ t69453.tag = NATIVE_PROCEDURE_TYPE24098; t69453.value.native_procedure_type24098 = t69451; t69454 = *((struct w49 *)(&t69452)); t69455 = (struct structure_type24753 *)NULL_TYPE; t69447 = f27731(t69453, t69454, t69455); /* x85163 stalin.sc:6625:230527 */ t69450.tag = STRUCTURE_TYPE24753; t69450.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t69450.value.structure_type24753)==NULL) {backtrace("stalin.sc", 6625, 230526); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t69448>=((struct structure_type24753 *)VALUE_OFFSET)) {t69450.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t69450.value.structure_type24753->s0.value.structure_type24753 = t69448;} else t69450.value.structure_type24753->s0.tag = (unsigned)t69448; t69450.value.structure_type24753->s1.tag = NULL_TYPE; t69449 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t69449==NULL) {backtrace("stalin.sc", 6625, 230526); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t69447>=((struct structure_type24753 *)VALUE_OFFSET)) {t69449->s0.tag = STRUCTURE_TYPE24753; t69449->s0.value.structure_type24753 = t69447;} else t69449->s0.tag = (unsigned)t69447; t69449->s1 = t69450; t69355 = f26254(t69449); goto l11760; l11759: /* x85275 stalin.sc:6664:231559 */ t69355.tag = NULL_TYPE; l11760: /* x85134 stalin.sc:6586:229437 */ /* x85077 stalin.sc:6586:229441 */ /* x85067 stalin.sc:6587:229452 */ t69407 = e9612; /* x85076 stalin.sc:6594:229642 */ /* x85075 stalin.sc:6595:229666 */ /* x85074 stalin.sc:6595:229685 */ /* x85073 stalin.sc:6595:229704 */ /* x85072 stalin.sc:6595:229716 */ t69416 = e9612->a22804; /* x85071 stalin.sc:6595:229705 */ a41200 = t69416; /* x298912 stalin.sc:5598:192786 */ /* x298911 stalin.sc:5598:192812 */ t69417 = a41200; /* x298910 stalin.sc:5598:192787 */ a42510 = t69417; /* x303910 */ /* x303909 */ t69418 = a42510; /* x303908 */ if (!((t69418.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37815]"); structure_ref_error();} t69414 = t69418.value.structure_type27747->s1; /* x85070 stalin.sc:6595:229686 */ a39671 = t69414; /* x291353 */ /* x291352 */ t69415 = a39671; /* x291351 */ if (!((t69415.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34588]"); structure_ref_error();} t69412 = t69415.value.structure_type27698->s11; /* x85069 stalin.sc:6595:229667 */ a38613 = t69412; /* x287121 */ /* x287120 */ t69413 = a38613; /* x287119 */ if (!((t69413.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33530]"); structure_ref_error();} t69410 = t69413.value.structure_type27698->s21; /* x85068 stalin.sc:6594:229643 */ a39840 = t69410; /* x292029 */ /* x292028 */ t69411 = a39840; /* x292027 */ if (!((t69411.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34757]"); structure_ref_error();} t69408 = t69411.value.structure_type27698->s10; /* x85050 stalin.sc:6586:229442 */ t69409.tag = NATIVE_PROCEDURE_TYPE24099; t69409.value.native_procedure_type24099 = t69407; if ((f8137(t69409, t69408).tag)==FALSE_TYPE) goto l11756; /* x85132 stalin.sc:6596:229731 */ /* x85131 stalin.sc:6606:229967 */ /* x85121 stalin.sc:6607:229984 */ t69424 = e9612; /* x85130 stalin.sc:6614:230180 */ /* x85129 stalin.sc:6615:230205 */ /* x85128 stalin.sc:6615:230221 */ /* x85127 stalin.sc:6615:230240 */ /* x85126 stalin.sc:6615:230252 */ t69432 = e9612->a22804; /* x85125 stalin.sc:6615:230241 */ a41199 = t69432; /* x298908 stalin.sc:5598:192786 */ /* x298907 stalin.sc:5598:192812 */ t69433 = a41199; /* x298906 stalin.sc:5598:192787 */ a42511 = t69433; /* x303914 */ /* x303913 */ t69434 = a42511; /* x303912 */ if (!((t69434.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37816]"); structure_ref_error();} t69430 = t69434.value.structure_type27747->s1; /* x85124 stalin.sc:6615:230222 */ a39670 = t69430; /* x291349 */ /* x291348 */ t69431 = a39670; /* x291347 */ if (!((t69431.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34587]"); structure_ref_error();} t69429 = t69431.value.structure_type27698->s11; /* x85123 stalin.sc:6615:230206 */ t69427 = f6998(t69429); /* x85122 stalin.sc:6614:230181 */ a39839 = t69427; /* x292025 */ /* x292024 */ t69428 = a39839; /* x292023 */ if (!((t69428.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34756]"); structure_ref_error();} t69425 = t69428.value.structure_type27698->s10; /* x85099 stalin.sc:6606:229968 */ t69426.tag = NATIVE_PROCEDURE_TYPE24100; t69426.value.native_procedure_type24100 = t69424; t69420 = f8172(t69426, t69425); /* x85098 stalin.sc:6597:229738 */ t69419 = e9612; /* x85078 stalin.sc:6596:229732 */ t69421.tag = NATIVE_PROCEDURE_TYPE24101; t69421.value.native_procedure_type24101 = t69419; t69422 = *((struct w49 *)(&t69420)); t69423 = (struct structure_type24753 *)NULL_TYPE; t69354 = f27731(t69421, t69422, t69423); goto l11757; l11756: /* x85133 stalin.sc:6616:230268 */ t69354 = (struct structure_type24753 *)NULL_TYPE; l11757: /* x85049 stalin.sc:6559:228652 */ /* x84992 stalin.sc:6559:228656 */ /* x84982 stalin.sc:6560:228667 */ t69379 = e9612; /* x84991 stalin.sc:6565:228813 */ /* x84990 stalin.sc:6566:228837 */ /* x84989 stalin.sc:6566:228856 */ /* x84988 stalin.sc:6566:228875 */ /* x84987 stalin.sc:6566:228887 */ t69388 = e9612->a22804; /* x84986 stalin.sc:6566:228876 */ a41195 = t69388; /* x298892 stalin.sc:5598:192786 */ /* x298891 stalin.sc:5598:192812 */ t69389 = a41195; /* x298890 stalin.sc:5598:192787 */ a42515 = t69389; /* x303930 */ /* x303929 */ t69390 = a42515; /* x303928 */ if (!((t69390.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37820]"); structure_ref_error();} t69386 = t69390.value.structure_type27747->s1; /* x84985 stalin.sc:6566:228857 */ a39666 = t69386; /* x291333 */ /* x291332 */ t69387 = a39666; /* x291331 */ if (!((t69387.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34583]"); structure_ref_error();} t69384 = t69387.value.structure_type27698->s11; /* x84984 stalin.sc:6566:228838 */ a38612 = t69384; /* x287117 */ /* x287116 */ t69385 = a38612; /* x287115 */ if (!((t69385.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33529]"); structure_ref_error();} t69382 = t69385.value.structure_type27698->s21; /* x84983 stalin.sc:6565:228814 */ a39838 = t69382; /* x292021 */ /* x292020 */ t69383 = a39838; /* x292019 */ if (!((t69383.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34755]"); structure_ref_error();} t69380 = t69383.value.structure_type27698->s10; /* x84965 stalin.sc:6559:228657 */ t69381.tag = NATIVE_PROCEDURE_TYPE24102; t69381.value.native_procedure_type24102 = t69379; if ((f8137(t69381, t69380).tag)==FALSE_TYPE) goto l11753; /* x85047 stalin.sc:6567:228902 */ /* x85046 stalin.sc:6576:229137 */ /* x85036 stalin.sc:6577:229158 */ t69396 = e9612; /* x85045 stalin.sc:6583:229336 */ /* x85044 stalin.sc:6584:229365 */ /* x85043 stalin.sc:6584:229381 */ /* x85042 stalin.sc:6584:229400 */ /* x85041 stalin.sc:6584:229412 */ t69404 = e9612->a22804; /* x85040 stalin.sc:6584:229401 */ a41194 = t69404; /* x298888 stalin.sc:5598:192786 */ /* x298887 stalin.sc:5598:192812 */ t69405 = a41194; /* x298886 stalin.sc:5598:192787 */ a42516 = t69405; /* x303934 */ /* x303933 */ t69406 = a42516; /* x303932 */ if (!((t69406.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37821]"); structure_ref_error();} t69402 = t69406.value.structure_type27747->s1; /* x85039 stalin.sc:6584:229382 */ a39665 = t69402; /* x291329 */ /* x291328 */ t69403 = a39665; /* x291327 */ if (!((t69403.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34582]"); structure_ref_error();} t69401 = t69403.value.structure_type27698->s11; /* x85038 stalin.sc:6584:229366 */ t69399 = f6998(t69401); /* x85037 stalin.sc:6583:229337 */ a39837 = t69399; /* x292017 */ /* x292016 */ t69400 = a39837; /* x292015 */ if (!((t69400.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34754]"); structure_ref_error();} t69397 = t69400.value.structure_type27698->s10; /* x85014 stalin.sc:6576:229138 */ t69398.tag = NATIVE_PROCEDURE_TYPE24103; t69398.value.native_procedure_type24103 = t69396; t69392 = f8172(t69398, t69397); /* x85013 stalin.sc:6567:228907 */ t69391 = e9612; /* x84993 stalin.sc:6567:228903 */ t69393.tag = NATIVE_PROCEDURE_TYPE24104; t69393.value.native_procedure_type24104 = t69391; t69394 = *((struct w49 *)(&t69392)); t69395 = (struct structure_type24753 *)NULL_TYPE; t69353 = f27731(t69393, t69394, t69395); goto l11754; l11753: /* x85048 stalin.sc:6585:229428 */ t69353 = (struct structure_type24753 *)NULL_TYPE; l11754: /* x84964 stalin.sc:6544:228204 */ /* x84963 stalin.sc:6551:228387 */ /* x84953 stalin.sc:6552:228407 */ t69367 = e9612; /* x84962 stalin.sc:6557:228562 */ /* x84961 stalin.sc:6558:228590 */ /* x84960 stalin.sc:6558:228609 */ /* x84959 stalin.sc:6558:228628 */ /* x84958 stalin.sc:6558:228640 */ t69376 = e9612->a22804; /* x84957 stalin.sc:6558:228629 */ a41190 = t69376; /* x298872 stalin.sc:5598:192786 */ /* x298871 stalin.sc:5598:192812 */ t69377 = a41190; /* x298870 stalin.sc:5598:192787 */ a42520 = t69377; /* x303950 */ /* x303949 */ t69378 = a42520; /* x303948 */ if (!((t69378.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37825]"); structure_ref_error();} t69374 = t69378.value.structure_type27747->s1; /* x84956 stalin.sc:6558:228610 */ a39661 = t69374; /* x291313 */ /* x291312 */ t69375 = a39661; /* x291311 */ if (!((t69375.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34578]"); structure_ref_error();} t69372 = t69375.value.structure_type27698->s11; /* x84955 stalin.sc:6558:228591 */ a38611 = t69372; /* x287113 */ /* x287112 */ t69373 = a38611; /* x287111 */ if (!((t69373.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33528]"); structure_ref_error();} t69370 = t69373.value.structure_type27698->s21; /* x84954 stalin.sc:6557:228563 */ a39836 = t69370; /* x292013 */ /* x292012 */ t69371 = a39836; /* x292011 */ if (!((t69371.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34753]"); structure_ref_error();} t69368 = t69371.value.structure_type27698->s10; /* x84931 stalin.sc:6551:228388 */ t69369.tag = NATIVE_PROCEDURE_TYPE24105; t69369.value.native_procedure_type24105 = t69367; t69363 = f8172(t69369, t69368); /* x84930 stalin.sc:6545:228214 */ t69362 = e9612; /* x84913 stalin.sc:6544:228205 */ t69364.tag = NATIVE_PROCEDURE_TYPE24106; t69364.value.native_procedure_type24106 = t69362; t69365 = *((struct w49 *)(&t69363)); t69366 = (struct structure_type24753 *)NULL_TYPE; t69352 = f27731(t69364, t69365, t69366); /* x84912 stalin.sc:6543:228193 */ t69361.tag = STRUCTURE_TYPE24753; t69361.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t69361.value.structure_type24753)==NULL) {backtrace("stalin.sc", 6543, 228192); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t69356>=((struct structure_type24753 *)VALUE_OFFSET)) {t69361.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t69361.value.structure_type24753->s0.value.structure_type24753 = t69356;} else t69361.value.structure_type24753->s0.tag = (unsigned)t69356; t69361.value.structure_type24753->s1.tag = NULL_TYPE; t69360.tag = STRUCTURE_TYPE24753; t69360.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t69360.value.structure_type24753)==NULL) {backtrace("stalin.sc", 6543, 228192); out_of_memory_error();} t69360.value.structure_type24753->s0 = t69355; t69360.value.structure_type24753->s1 = t69361; t69359.tag = STRUCTURE_TYPE24753; t69359.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t69359.value.structure_type24753)==NULL) {backtrace("stalin.sc", 6543, 228192); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t69354>=((struct structure_type24753 *)VALUE_OFFSET)) {t69359.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t69359.value.structure_type24753->s0.value.structure_type24753 = t69354;} else t69359.value.structure_type24753->s0.tag = (unsigned)t69354; t69359.value.structure_type24753->s1 = t69360; t69358.tag = STRUCTURE_TYPE24753; t69358.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t69358.value.structure_type24753)==NULL) {backtrace("stalin.sc", 6543, 228192); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t69353>=((struct structure_type24753 *)VALUE_OFFSET)) {t69358.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t69358.value.structure_type24753->s0.value.structure_type24753 = t69353;} else t69358.value.structure_type24753->s0.tag = (unsigned)t69353; t69358.value.structure_type24753->s1 = t69359; t69357 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t69357==NULL) {backtrace("stalin.sc", 6543, 228192); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t69352>=((struct structure_type24753 *)VALUE_OFFSET)) {t69357->s0.tag = STRUCTURE_TYPE24753; t69357->s0.value.structure_type24753 = t69352;} else t69357->s0.tag = (unsigned)t69352; t69357->s1 = t69358; t68954 = f26254(t69357); goto l11745; l11744: /* x85363 stalin.sc:6692:232353 */ t68954.tag = NULL_TYPE; l11745: /* x84809 stalin.sc:6499:226674 */ /* x84779 stalin.sc:6499:226678 */ /* x84710 stalin.sc:6500:226687 */ /* x84709 stalin.sc:6500:226706 */ /* x84708 stalin.sc:6500:226718 */ t69182 = e9612->a22804; /* x84707 stalin.sc:6500:226707 */ a41187 = t69182; /* x298860 stalin.sc:5598:192786 */ /* x298859 stalin.sc:5598:192812 */ t69183 = a41187; /* x298858 stalin.sc:5598:192787 */ a42523 = t69183; /* x303962 */ /* x303961 */ t69184 = a42523; /* x303960 */ if (!((t69184.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37828]"); structure_ref_error();} t69180 = t69184.value.structure_type27747->s1; /* x84706 stalin.sc:6500:226688 */ a39658 = t69180; /* x291301 */ /* x291300 */ t69181 = a39658; /* x291299 */ if (!((t69181.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34575]"); structure_ref_error();} if ((t69181.value.structure_type27698->s11.tag)==FALSE_TYPE) goto l11737; /* x84777 */ /* x84735 stalin.sc:6501:226726 */ /* x84734 stalin.sc:6501:226730 */ /* x84732 stalin.sc:6501:226735 */ /* x84731 stalin.sc:6501:226752 */ /* x84730 stalin.sc:6501:226771 */ /* x84729 stalin.sc:6501:226783 */ t69191 = e9612->a22804; /* x84728 stalin.sc:6501:226772 */ a41186 = t69191; /* x298856 stalin.sc:5598:192786 */ /* x298855 stalin.sc:5598:192812 */ t69192 = a41186; /* x298854 stalin.sc:5598:192787 */ a42524 = t69192; /* x303966 */ /* x303965 */ t69193 = a42524; /* x303964 */ if (!((t69193.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37829]"); structure_ref_error();} t69189 = t69193.value.structure_type27747->s1; /* x84727 stalin.sc:6501:226753 */ a39657 = t69189; /* x291297 */ /* x291296 */ t69190 = a39657; /* x291295 */ if (!((t69190.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34574]"); structure_ref_error();} t69187 = t69190.value.structure_type27698->s11; /* x84726 stalin.sc:6501:226736 */ a40260 = t69187; /* x293709 */ /* x293708 */ t69188 = a40260; /* x293707 */ if (!((t69188.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35177]"); structure_ref_error();} t69185 = t69188.value.structure_type27698->s0; /* x84733 stalin.sc:6501:226788 */ t69186 = q36; /* x269985 stalin.sc:6501:226731 */ if (t69185==t69186) goto l11740; p9637 = e9612; /* x84722 */ /* x84720 stalin.sc:6502:226808 */ /* x84719 stalin.sc:6502:226825 */ /* x84718 stalin.sc:6502:226844 */ /* x84717 stalin.sc:6502:226856 */ t69200 = p9637->a22804; /* x84716 stalin.sc:6502:226845 */ a41185 = t69200; /* x298852 stalin.sc:5598:192786 */ /* x298851 stalin.sc:5598:192812 */ t69201 = a41185; /* x298850 stalin.sc:5598:192787 */ a42525 = t69201; /* x303970 */ /* x303969 */ t69202 = a42525; /* x303968 */ if (!((t69202.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37830]"); structure_ref_error();} t69198 = t69202.value.structure_type27747->s1; /* x84715 stalin.sc:6502:226826 */ a39656 = t69198; /* x291293 */ /* x291292 */ t69199 = a39656; /* x291291 */ if (!((t69199.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34573]"); structure_ref_error();} t69196 = t69199.value.structure_type27698->s11; /* x84714 stalin.sc:6502:226809 */ a40259 = t69196; /* x293705 */ /* x293704 */ t69197 = a40259; /* x293703 */ if (!((t69197.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35176]"); structure_ref_error();} t69194 = t69197.value.structure_type27698->s0; /* x84721 stalin.sc:6503:226867 */ t69195 = q37; /* x269986 stalin.sc:6502:226804 */ if (!(t69194==t69195)) goto l11737; l11740: /* x84775 */ /* x84747 stalin.sc:6504:226889 */ /* x84739 stalin.sc:6504:226895 */ /* x84738 stalin.sc:6504:226907 */ t69206 = e9612->a22804; /* x84737 stalin.sc:6504:226896 */ a41183 = t69206; /* x298844 stalin.sc:5598:192786 */ /* x298843 stalin.sc:5598:192812 */ t69207 = a41183; /* x298842 stalin.sc:5598:192787 */ a42527 = t69207; /* x303978 */ /* x303977 */ t69208 = a42527; /* x303976 */ if (!((t69208.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37832]"); structure_ref_error();} t69203 = t69208.value.structure_type27747->s1; /* x84746 stalin.sc:6505:226913 */ /* x84745 stalin.sc:6505:226935 */ /* x84744 stalin.sc:6505:226954 */ /* x84743 stalin.sc:6505:226966 */ t69213 = e9612->a22804; /* x84742 stalin.sc:6505:226955 */ a41184 = t69213; /* x298848 stalin.sc:5598:192786 */ /* x298847 stalin.sc:5598:192812 */ t69214 = a41184; /* x298846 stalin.sc:5598:192787 */ a42526 = t69214; /* x303974 */ /* x303973 */ t69215 = a42526; /* x303972 */ if (!((t69215.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37831]"); structure_ref_error();} t69211 = t69215.value.structure_type27747->s1; /* x84741 stalin.sc:6505:226936 */ a39655 = t69211; /* x291289 */ /* x291288 */ t69212 = a39655; /* x291287 */ if (!((t69212.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34572]"); structure_ref_error();} t69209 = t69212.value.structure_type27698->s11; /* x84740 stalin.sc:6505:226914 */ a38502 = t69209; /* x286677 */ /* x286676 */ t69210 = a38502; /* x286675 */ if (!((t69210.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33419]"); structure_ref_error();} t69204 = t69210.value.structure_type27698->s22; /* x84736 stalin.sc:6504:226890 */ t69205 = *((struct w49 *)(&t69204)); if ((f26351(t69203, t69205).tag)==FALSE_TYPE) goto l11737; /* x84773 */ /* x84760 stalin.sc:6506:226979 */ /* x84752 stalin.sc:6507:226998 */ /* x84751 stalin.sc:6507:227010 */ t69221 = e9612->a22804; /* x84750 stalin.sc:6507:226999 */ a41180 = t69221; /* x298832 stalin.sc:5598:192786 */ /* x298831 stalin.sc:5598:192812 */ t69222 = a41180; /* x298830 stalin.sc:5598:192787 */ a42530 = t69222; /* x303990 */ /* x303989 */ t69223 = a42530; /* x303988 */ if (!((t69223.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37835]"); structure_ref_error();} t69218 = t69223.value.structure_type27747->s1; /* x84759 stalin.sc:6508:227021 */ /* x84758 stalin.sc:6508:227043 */ /* x84757 stalin.sc:6508:227062 */ /* x84756 stalin.sc:6508:227074 */ t69228 = e9612->a22804; /* x84755 stalin.sc:6508:227063 */ a41181 = t69228; /* x298836 stalin.sc:5598:192786 */ /* x298835 stalin.sc:5598:192812 */ t69229 = a41181; /* x298834 stalin.sc:5598:192787 */ a42529 = t69229; /* x303986 */ /* x303985 */ t69230 = a42529; /* x303984 */ if (!((t69230.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37834]"); structure_ref_error();} t69226 = t69230.value.structure_type27747->s1; /* x84754 stalin.sc:6508:227044 */ a39653 = t69226; /* x291281 */ /* x291280 */ t69227 = a39653; /* x291279 */ if (!((t69227.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34570]"); structure_ref_error();} t69224 = t69227.value.structure_type27698->s11; /* x84753 stalin.sc:6508:227022 */ a38500 = t69224; /* x286669 */ /* x286668 */ t69225 = a38500; /* x286667 */ if (!((t69225.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33417]"); structure_ref_error();} t69219 = t69225.value.structure_type27698->s22; /* x84749 stalin.sc:6506:226980 */ t69220 = *((struct w49 *)(&t69219)); t69216 = f1234(t69218, t69220); /* x84772 stalin.sc:6509:227087 */ /* x84770 stalin.sc:6509:227090 */ /* x84769 stalin.sc:6510:227102 */ /* x84768 stalin.sc:6510:227124 */ /* x84767 stalin.sc:6510:227143 */ /* x84766 stalin.sc:6510:227155 */ t69239 = e9612->a22804; /* x84765 stalin.sc:6510:227144 */ a41182 = t69239; /* x298840 stalin.sc:5598:192786 */ /* x298839 stalin.sc:5598:192812 */ t69240 = a41182; /* x298838 stalin.sc:5598:192787 */ a42528 = t69240; /* x303982 */ /* x303981 */ t69241 = a42528; /* x303980 */ if (!((t69241.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37833]"); structure_ref_error();} t69237 = t69241.value.structure_type27747->s1; /* x84764 stalin.sc:6510:227125 */ a39654 = t69237; /* x291285 */ /* x291284 */ t69238 = a39654; /* x291283 */ if (!((t69238.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34571]"); structure_ref_error();} t69235 = t69238.value.structure_type27698->s11; /* x84763 stalin.sc:6510:227103 */ a38501 = t69235; /* x286673 */ /* x286672 */ t69236 = a38501; /* x286671 */ if (!((t69236.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33418]"); structure_ref_error();} t69233 = t69236.value.structure_type27698->s22; /* x84762 stalin.sc:6509:227091 */ t69234 = *((struct w49 *)(&t69233)); t69231 = f26227(t69234); /* x84771 stalin.sc:6511:227164 */ t69232 = 1; /* x269983 stalin.sc:6509:227088 */ t69217 = t69231-t69232; /* x269984 stalin.sc:6506:226977 */ if (!((t69216&1)==1)) {backtrace_internal("PROGRAM-POINTS-THAT-DIRECTLY-FLOW-FROM[9612]"); lt_error();} if (!(((int)(((int)t69216)>>1))a22804; /* x84785 stalin.sc:6515:227253 */ a41177 = t69252; /* x298820 stalin.sc:5598:192786 */ /* x298819 stalin.sc:5598:192812 */ t69253 = a41177; /* x298818 stalin.sc:5598:192787 */ a42533 = t69253; /* x304002 */ /* x304001 */ t69254 = a42533; /* x304000 */ if (!((t69254.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37838]"); structure_ref_error();} t69250 = t69254.value.structure_type27747->s1; /* x84784 stalin.sc:6515:227234 */ a39651 = t69250; /* x291273 */ /* x291272 */ t69251 = a39651; /* x291271 */ if (!((t69251.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34568]"); structure_ref_error();} t69248 = t69251.value.structure_type27698->s11; /* x84783 stalin.sc:6515:227212 */ a38498 = t69248; /* x286661 */ /* x286660 */ t69249 = a38498; /* x286659 */ if (!((t69249.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33415]"); structure_ref_error();} t69244 = t69249.value.structure_type27698->s22; /* x84804 stalin.sc:6516:227275 */ /* x84802 stalin.sc:6516:227278 */ /* x84794 stalin.sc:6517:227292 */ /* x84793 stalin.sc:6517:227304 */ t69260 = e9612->a22804; /* x84792 stalin.sc:6517:227293 */ a41178 = t69260; /* x298824 stalin.sc:5598:192786 */ /* x298823 stalin.sc:5598:192812 */ t69261 = a41178; /* x298822 stalin.sc:5598:192787 */ a42532 = t69261; /* x303998 */ /* x303997 */ t69262 = a42532; /* x303996 */ if (!((t69262.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37837]"); structure_ref_error();} t69257 = t69262.value.structure_type27747->s1; /* x84801 stalin.sc:6518:227310 */ /* x84800 stalin.sc:6518:227332 */ /* x84799 stalin.sc:6518:227351 */ /* x84798 stalin.sc:6518:227363 */ t69267 = e9612->a22804; /* x84797 stalin.sc:6518:227352 */ a41179 = t69267; /* x298828 stalin.sc:5598:192786 */ /* x298827 stalin.sc:5598:192812 */ t69268 = a41179; /* x298826 stalin.sc:5598:192787 */ a42531 = t69268; /* x303994 */ /* x303993 */ t69269 = a42531; /* x303992 */ if (!((t69269.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37836]"); structure_ref_error();} t69265 = t69269.value.structure_type27747->s1; /* x84796 stalin.sc:6518:227333 */ a39652 = t69265; /* x291277 */ /* x291276 */ t69266 = a39652; /* x291275 */ if (!((t69266.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34569]"); structure_ref_error();} t69263 = t69266.value.structure_type27698->s11; /* x84795 stalin.sc:6518:227311 */ a38499 = t69263; /* x286665 */ /* x286664 */ t69264 = a38499; /* x286663 */ if (!((t69264.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33416]"); structure_ref_error();} t69258 = t69264.value.structure_type27698->s22; /* x84791 stalin.sc:6516:227279 */ t69259 = *((struct w49 *)(&t69258)); t69255 = f1234(t69257, t69259); /* x84803 stalin.sc:6519:227371 */ t69256 = 1; /* x269982 stalin.sc:6516:227276 */ if (!((t69255&1)==1)) {backtrace("stalin.sc", 6516, 227275); plus_error();} t69245 = ((int)(((int)t69255)>>1))+t69256; /* x84782 stalin.sc:6514:227196 */ t69246 = *((struct w49 *)(&t69244)); t69247.tag = FIXNUM_TYPE; t69247.value.fixnum_type = t69245; t69243 = f26338(t69246, t69247); /* x84781 stalin.sc:6513:227183 */ t69242 = f9423(t69243); /* x84780 stalin.sc:6512:227173 */ a34885 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34885==NULL) {backtrace("stalin.sc", 6512, 227172); out_of_memory_error();} a34885->s0.tag = STRUCTURE_TYPE27747; a34885->s0.value.structure_type27747 = t69242; a34885->s1.tag = NULL_TYPE; /* x271777 */ t68953 = a34885; goto l11738; l11737: /* x84808 stalin.sc:6520:227380 */ t68953 = (struct structure_type24753 *)NULL_TYPE; l11738: /* x84705 stalin.sc:6485:226132 */ /* x84690 stalin.sc:6485:226136 */ /* x84636 stalin.sc:6486:226145 */ /* x84635 stalin.sc:6486:226164 */ /* x84634 stalin.sc:6486:226176 */ t69128 = e9612->a22804; /* x84633 stalin.sc:6486:226165 */ a41176 = t69128; /* x298816 stalin.sc:5598:192786 */ /* x298815 stalin.sc:5598:192812 */ t69129 = a41176; /* x298814 stalin.sc:5598:192787 */ a42534 = t69129; /* x304006 */ /* x304005 */ t69130 = a42534; /* x304004 */ if (!((t69130.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37839]"); structure_ref_error();} t69126 = t69130.value.structure_type27747->s1; /* x84632 stalin.sc:6486:226146 */ a39650 = t69126; /* x291269 */ /* x291268 */ t69127 = a39650; /* x291267 */ if (!((t69127.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34567]"); structure_ref_error();} if ((t69127.value.structure_type27698->s11.tag)==FALSE_TYPE) goto l11730; /* x84688 */ /* x84661 stalin.sc:6487:226184 */ /* x84660 stalin.sc:6487:226188 */ /* x84658 stalin.sc:6487:226193 */ /* x84657 stalin.sc:6487:226210 */ /* x84656 stalin.sc:6487:226229 */ /* x84655 stalin.sc:6487:226241 */ t69137 = e9612->a22804; /* x84654 stalin.sc:6487:226230 */ a41175 = t69137; /* x298812 stalin.sc:5598:192786 */ /* x298811 stalin.sc:5598:192812 */ t69138 = a41175; /* x298810 stalin.sc:5598:192787 */ a42535 = t69138; /* x304010 */ /* x304009 */ t69139 = a42535; /* x304008 */ if (!((t69139.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37840]"); structure_ref_error();} t69135 = t69139.value.structure_type27747->s1; /* x84653 stalin.sc:6487:226211 */ a39649 = t69135; /* x291265 */ /* x291264 */ t69136 = a39649; /* x291263 */ if (!((t69136.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34566]"); structure_ref_error();} t69133 = t69136.value.structure_type27698->s11; /* x84652 stalin.sc:6487:226194 */ a40258 = t69133; /* x293701 */ /* x293700 */ t69134 = a40258; /* x293699 */ if (!((t69134.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35175]"); structure_ref_error();} t69131 = t69134.value.structure_type27698->s0; /* x84659 stalin.sc:6487:226246 */ t69132 = q36; /* x269990 stalin.sc:6487:226189 */ if (t69131==t69132) goto l11733; p9636 = e9612; /* x84648 */ /* x84646 stalin.sc:6488:226266 */ /* x84645 stalin.sc:6488:226283 */ /* x84644 stalin.sc:6488:226302 */ /* x84643 stalin.sc:6488:226314 */ t69146 = p9636->a22804; /* x84642 stalin.sc:6488:226303 */ a41174 = t69146; /* x298808 stalin.sc:5598:192786 */ /* x298807 stalin.sc:5598:192812 */ t69147 = a41174; /* x298806 stalin.sc:5598:192787 */ a42536 = t69147; /* x304014 */ /* x304013 */ t69148 = a42536; /* x304012 */ if (!((t69148.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37841]"); structure_ref_error();} t69144 = t69148.value.structure_type27747->s1; /* x84641 stalin.sc:6488:226284 */ a39648 = t69144; /* x291261 */ /* x291260 */ t69145 = a39648; /* x291259 */ if (!((t69145.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34565]"); structure_ref_error();} t69142 = t69145.value.structure_type27698->s11; /* x84640 stalin.sc:6488:226267 */ a40257 = t69142; /* x293697 */ /* x293696 */ t69143 = a40257; /* x293695 */ if (!((t69143.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35174]"); structure_ref_error();} t69140 = t69143.value.structure_type27698->s0; /* x84647 stalin.sc:6489:226325 */ t69141 = q37; /* x269991 stalin.sc:6488:226262 */ if (!(t69140==t69141)) goto l11730; l11733: /* x84686 */ /* x84673 stalin.sc:6490:226347 */ /* x84669 stalin.sc:6490:226352 */ /* x84668 stalin.sc:6490:226371 */ /* x84667 stalin.sc:6490:226390 */ /* x84666 stalin.sc:6490:226402 */ t69155 = e9612->a22804; /* x84665 stalin.sc:6490:226391 */ a41172 = t69155; /* x298800 stalin.sc:5598:192786 */ /* x298799 stalin.sc:5598:192812 */ t69156 = a41172; /* x298798 stalin.sc:5598:192787 */ a42538 = t69156; /* x304022 */ /* x304021 */ t69157 = a42538; /* x304020 */ if (!((t69157.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37843]"); structure_ref_error();} t69153 = t69157.value.structure_type27747->s1; /* x84664 stalin.sc:6490:226372 */ a39647 = t69153; /* x291257 */ /* x291256 */ t69154 = a39647; /* x291255 */ if (!((t69154.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34564]"); structure_ref_error();} t69151 = t69154.value.structure_type27698->s11; /* x84663 stalin.sc:6490:226353 */ a38610 = t69151; /* x287109 */ /* x287108 */ t69152 = a38610; /* x287107 */ if (!((t69152.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33527]"); structure_ref_error();} t69149 = t69152.value.structure_type27698->s21; /* x84672 stalin.sc:6491:226409 */ /* x84671 stalin.sc:6491:226421 */ t69158 = e9612->a22804; /* x84670 stalin.sc:6491:226410 */ a41173 = t69158; /* x298804 stalin.sc:5598:192786 */ /* x298803 stalin.sc:5598:192812 */ t69159 = a41173; /* x298802 stalin.sc:5598:192787 */ a42537 = t69159; /* x304018 */ /* x304017 */ t69160 = a42537; /* x304016 */ if (!((t69160.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37842]"); structure_ref_error();} t69150 = t69160.value.structure_type27747->s1; /* x269989 stalin.sc:6490:226348 */ /* EQ: dispatching general to general */ if (!((t69149.tag)==(t69150.tag))) goto l11730; switch (t69149.tag) {case FIXNUM_TYPE: if (!((t69149.value.fixnum_type)==(t69150.value.fixnum_type))) goto l11730; break; case FLONUM_TYPE: if (!((t69149.value.flonum_type)==(t69150.value.flonum_type))) goto l11730; break; case INPUT_PORT_TYPE: if (!((t69149.value.input_port_type)==(t69150.value.input_port_type))) goto l11730; break; case OUTPUT_PORT_TYPE: if (!((t69149.value.output_port_type)==(t69150.value.output_port_type))) goto l11730; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t69149.value.native_procedure_type15963)==(t69150.value.native_procedure_type15963))) goto l11730; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t69149.value.native_procedure_type19067)==(t69150.value.native_procedure_type19067))) goto l11730; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t69149.value.native_procedure_type19068)==(t69150.value.native_procedure_type19068))) goto l11730; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t69149.value.native_procedure_type22459)==(t69150.value.native_procedure_type22459))) goto l11730; break; case STRUCTURE_TYPE24753: if (!((t69149.value.structure_type24753)==(t69150.value.structure_type24753))) goto l11730; break; case STRUCTURE_TYPE24757: if (!((t69149.value.structure_type24757)==(t69150.value.structure_type24757))) goto l11730; break; case STRUCTURE_TYPE27501: if (!((t69149.value.structure_type27501)==(t69150.value.structure_type27501))) goto l11730; break; case STRUCTURE_TYPE27510: if (!((t69149.value.structure_type27510)==(t69150.value.structure_type27510))) goto l11730; break; case STRUCTURE_TYPE27621: if (!((t69149.value.structure_type27621)==(t69150.value.structure_type27621))) goto l11730; break; case STRUCTURE_TYPE27650: if (!((t69149.value.structure_type27650)==(t69150.value.structure_type27650))) goto l11730; break; case STRUCTURE_TYPE27669: if (!((t69149.value.structure_type27669)==(t69150.value.structure_type27669))) goto l11730; break; case STRUCTURE_TYPE27673: if (!((t69149.value.structure_type27673)==(t69150.value.structure_type27673))) goto l11730; break; case STRUCTURE_TYPE27692: if (!((t69149.value.structure_type27692)==(t69150.value.structure_type27692))) goto l11730; break; case STRUCTURE_TYPE27694: if (!((t69149.value.structure_type27694)==(t69150.value.structure_type27694))) goto l11730; break; case STRUCTURE_TYPE27698: if (!((t69149.value.structure_type27698)==(t69150.value.structure_type27698))) goto l11730; break; case STRUCTURE_TYPE27745: if (!((t69149.value.structure_type27745)==(t69150.value.structure_type27745))) goto l11730; break; case STRUCTURE_TYPE27747: if (!((t69149.value.structure_type27747)==(t69150.value.structure_type27747))) goto l11730; break; case STRUCTURE_TYPE27750: if (!((t69149.value.structure_type27750)==(t69150.value.structure_type27750))) goto l11730; break; case STRUCTURE_TYPE27753: if (!((t69149.value.structure_type27753)==(t69150.value.structure_type27753))) goto l11730; break; case STRUCTURE_TYPE27756: if (!((t69149.value.structure_type27756)==(t69150.value.structure_type27756))) goto l11730; break; case STRUCTURE_TYPE27761: if (!((t69149.value.structure_type27761)==(t69150.value.structure_type27761))) goto l11730; break; case STRUCTURE_TYPE27769: if (!((t69149.value.structure_type27769)==(t69150.value.structure_type27769))) goto l11730; break; case STRUCTURE_TYPE27776: if (!((t69149.value.structure_type27776)==(t69150.value.structure_type27776))) goto l11730; break; case STRUCTURE_TYPE27779: if (!((t69149.value.structure_type27779)==(t69150.value.structure_type27779))) goto l11730; break; case STRUCTURE_TYPE27858: if (!((t69149.value.structure_type27858)==(t69150.value.structure_type27858))) goto l11730; break; case STRING_TYPE: if (!((t69149.value.string_type)==(t69150.value.string_type))) goto l11730; break; case HEADED_VECTOR_TYPE27896: if (!((t69149.value.headed_vector_type27896)==(t69150.value.headed_vector_type27896))) goto l11730; break; case EXTERNAL_SYMBOL_TYPE: if (!((t69149.value.external_symbol_type)==(t69150.value.external_symbol_type))) goto l11730; break; case STRUCTURE_TYPE27908: if (!((t69149.value.structure_type27908)==(t69150.value.structure_type27908))) goto l11730; break; default:;} /* x84684 */ /* x84683 stalin.sc:6493:226439 */ /* x84682 stalin.sc:6493:226446 */ /* x84681 stalin.sc:6493:226468 */ /* x84680 stalin.sc:6493:226487 */ /* x84679 stalin.sc:6493:226499 */ t69166 = e9612->a22804; /* x84678 stalin.sc:6493:226488 */ a41171 = t69166; /* x298796 stalin.sc:5598:192786 */ /* x298795 stalin.sc:5598:192812 */ t69167 = a41171; /* x298794 stalin.sc:5598:192787 */ a42539 = t69167; /* x304026 */ /* x304025 */ t69168 = a42539; /* x304024 */ if (!((t69168.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37844]"); structure_ref_error();} t69164 = t69168.value.structure_type27747->s1; /* x84677 stalin.sc:6493:226469 */ a39646 = t69164; /* x291253 */ /* x291252 */ t69165 = a39646; /* x291251 */ if (!((t69165.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34563]"); structure_ref_error();} t69162 = t69165.value.structure_type27698->s11; /* x84676 stalin.sc:6493:226447 */ a38497 = t69162; /* x286657 */ /* x286656 */ t69163 = a38497; /* x286655 */ if (!((t69163.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33414]"); structure_ref_error();} t69161 = t69163.value.structure_type27698->s22; /* x269987 stalin.sc:6493:226440 */ if ((t69161.tag)==NULL_TYPE) goto l11730; /* x84703 stalin.sc:6494:226510 */ /* x84702 stalin.sc:6495:226520 */ /* x84701 stalin.sc:6496:226533 */ /* x84700 stalin.sc:6496:226540 */ /* x84699 stalin.sc:6496:226562 */ /* x84698 stalin.sc:6496:226581 */ /* x84697 stalin.sc:6496:226593 */ t69177 = e9612->a22804; /* x84696 stalin.sc:6496:226582 */ a41170 = t69177; /* x298792 stalin.sc:5598:192786 */ /* x298791 stalin.sc:5598:192812 */ t69178 = a41170; /* x298790 stalin.sc:5598:192787 */ a42540 = t69178; /* x304030 */ /* x304029 */ t69179 = a42540; /* x304028 */ if (!((t69179.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37845]"); structure_ref_error();} t69175 = t69179.value.structure_type27747->s1; /* x84695 stalin.sc:6496:226563 */ a39645 = t69175; /* x291249 */ /* x291248 */ t69176 = a39645; /* x291247 */ if (!((t69176.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34562]"); structure_ref_error();} t69173 = t69176.value.structure_type27698->s11; /* x84694 stalin.sc:6496:226541 */ a38496 = t69173; /* x286653 */ /* x286652 */ t69174 = a38496; /* x286651 */ if (!((t69174.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33413]"); structure_ref_error();} t69171 = t69174.value.structure_type27698->s22; /* x84693 stalin.sc:6496:226534 */ a35650 = t69171; /* x273957 */ /* x273956 */ t69172 = a35650; /* x273955 */ if (!((t69172.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29799]"); structure_ref_error();} t69170 = t69172.value.structure_type24753->s0; /* x84692 stalin.sc:6495:226521 */ t69169 = f9423(t69170); /* x84691 stalin.sc:6494:226511 */ a34884 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34884==NULL) {backtrace("stalin.sc", 6494, 226510); out_of_memory_error();} a34884->s0.tag = STRUCTURE_TYPE27747; a34884->s0.value.structure_type27747 = t69169; a34884->s1.tag = NULL_TYPE; /* x271775 */ t68952 = a34884; goto l11731; l11730: /* x84704 stalin.sc:6497:226604 */ t68952 = (struct structure_type24753 *)NULL_TYPE; l11731: /* x84631 stalin.sc:6473:225597 */ /* x84620 stalin.sc:6473:225601 */ /* x84577 stalin.sc:6474:225610 */ /* x84576 stalin.sc:6474:225629 */ /* x84575 stalin.sc:6474:225641 */ t69083 = e9612->a22804; /* x84574 stalin.sc:6474:225630 */ a41169 = t69083; /* x298788 stalin.sc:5598:192786 */ /* x298787 stalin.sc:5598:192812 */ t69084 = a41169; /* x298786 stalin.sc:5598:192787 */ a42541 = t69084; /* x304034 */ /* x304033 */ t69085 = a42541; /* x304032 */ if (!((t69085.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37846]"); structure_ref_error();} t69081 = t69085.value.structure_type27747->s1; /* x84573 stalin.sc:6474:225611 */ a39644 = t69081; /* x291245 */ /* x291244 */ t69082 = a39644; /* x291243 */ if (!((t69082.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34561]"); structure_ref_error();} if ((t69082.value.structure_type27698->s11.tag)==FALSE_TYPE) goto l11724; /* x84618 */ /* x84587 stalin.sc:6475:225649 */ /* x84585 stalin.sc:6475:225654 */ /* x84584 stalin.sc:6475:225671 */ /* x84583 stalin.sc:6475:225690 */ /* x84582 stalin.sc:6475:225702 */ t69092 = e9612->a22804; /* x84581 stalin.sc:6475:225691 */ a41168 = t69092; /* x298784 stalin.sc:5598:192786 */ /* x298783 stalin.sc:5598:192812 */ t69093 = a41168; /* x298782 stalin.sc:5598:192787 */ a42542 = t69093; /* x304038 */ /* x304037 */ t69094 = a42542; /* x304036 */ if (!((t69094.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37847]"); structure_ref_error();} t69090 = t69094.value.structure_type27747->s1; /* x84580 stalin.sc:6475:225672 */ a39643 = t69090; /* x291241 */ /* x291240 */ t69091 = a39643; /* x291239 */ if (!((t69091.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34560]"); structure_ref_error();} t69088 = t69091.value.structure_type27698->s11; /* x84579 stalin.sc:6475:225655 */ a40256 = t69088; /* x293693 */ /* x293692 */ t69089 = a40256; /* x293691 */ if (!((t69089.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35173]"); structure_ref_error();} t69086 = t69089.value.structure_type27698->s0; /* x84586 stalin.sc:6475:225707 */ t69087 = q43; /* x269994 stalin.sc:6475:225650 */ if (!(t69086==t69087)) goto l11724; /* x84616 */ /* x84615 stalin.sc:6476:225720 */ /* x84611 stalin.sc:6476:225725 */ /* x84610 stalin.sc:6476:225748 */ /* x84609 stalin.sc:6476:225767 */ /* x84608 stalin.sc:6476:225779 */ t69101 = e9612->a22804; /* x84607 stalin.sc:6476:225768 */ a41166 = t69101; /* x298776 stalin.sc:5598:192786 */ /* x298775 stalin.sc:5598:192812 */ t69102 = a41166; /* x298774 stalin.sc:5598:192787 */ a42544 = t69102; /* x304046 */ /* x304045 */ t69103 = a42544; /* x304044 */ if (!((t69103.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37849]"); structure_ref_error();} t69099 = t69103.value.structure_type27747->s1; /* x84606 stalin.sc:6476:225749 */ a39642 = t69099; /* x291237 */ /* x291236 */ t69100 = a39642; /* x291235 */ if (!((t69100.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34559]"); structure_ref_error();} t69097 = t69100.value.structure_type27698->s11; /* x84605 stalin.sc:6476:225726 */ a38941 = t69097; /* x288433 */ /* x288432 */ t69098 = a38941; /* x288431 */ if (!((t69098.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33858]"); structure_ref_error();} t69095 = t69098.value.structure_type27698->s19; /* x84614 stalin.sc:6477:225790 */ /* x84613 stalin.sc:6477:225802 */ t69104 = e9612->a22804; /* x84612 stalin.sc:6477:225791 */ a41167 = t69104; /* x298780 stalin.sc:5598:192786 */ /* x298779 stalin.sc:5598:192812 */ t69105 = a41167; /* x298778 stalin.sc:5598:192787 */ a42543 = t69105; /* x304042 */ /* x304041 */ t69106 = a42543; /* x304040 */ if (!((t69106.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37848]"); structure_ref_error();} t69096 = t69106.value.structure_type27747->s1; /* x269992 stalin.sc:6476:225721 */ /* EQ: dispatching general to general */ if ((t69095.tag)==(t69096.tag)) switch (t69095.tag) {case FIXNUM_TYPE: if ((t69095.value.fixnum_type)==(t69096.value.fixnum_type)) goto l11723; break; case FLONUM_TYPE: if ((t69095.value.flonum_type)==(t69096.value.flonum_type)) goto l11723; break; case INPUT_PORT_TYPE: if ((t69095.value.input_port_type)==(t69096.value.input_port_type)) goto l11723; break; case OUTPUT_PORT_TYPE: if ((t69095.value.output_port_type)==(t69096.value.output_port_type)) goto l11723; break; case NATIVE_PROCEDURE_TYPE15963: if ((t69095.value.native_procedure_type15963)==(t69096.value.native_procedure_type15963)) goto l11723; break; case NATIVE_PROCEDURE_TYPE19067: if ((t69095.value.native_procedure_type19067)==(t69096.value.native_procedure_type19067)) goto l11723; break; case NATIVE_PROCEDURE_TYPE19068: if ((t69095.value.native_procedure_type19068)==(t69096.value.native_procedure_type19068)) goto l11723; break; case NATIVE_PROCEDURE_TYPE22459: if ((t69095.value.native_procedure_type22459)==(t69096.value.native_procedure_type22459)) goto l11723; break; case STRUCTURE_TYPE24753: if ((t69095.value.structure_type24753)==(t69096.value.structure_type24753)) goto l11723; break; case STRUCTURE_TYPE24757: if ((t69095.value.structure_type24757)==(t69096.value.structure_type24757)) goto l11723; break; case STRUCTURE_TYPE27501: if ((t69095.value.structure_type27501)==(t69096.value.structure_type27501)) goto l11723; break; case STRUCTURE_TYPE27510: if ((t69095.value.structure_type27510)==(t69096.value.structure_type27510)) goto l11723; break; case STRUCTURE_TYPE27621: if ((t69095.value.structure_type27621)==(t69096.value.structure_type27621)) goto l11723; break; case STRUCTURE_TYPE27650: if ((t69095.value.structure_type27650)==(t69096.value.structure_type27650)) goto l11723; break; case STRUCTURE_TYPE27669: if ((t69095.value.structure_type27669)==(t69096.value.structure_type27669)) goto l11723; break; case STRUCTURE_TYPE27673: if ((t69095.value.structure_type27673)==(t69096.value.structure_type27673)) goto l11723; break; case STRUCTURE_TYPE27692: if ((t69095.value.structure_type27692)==(t69096.value.structure_type27692)) goto l11723; break; case STRUCTURE_TYPE27694: if ((t69095.value.structure_type27694)==(t69096.value.structure_type27694)) goto l11723; break; case STRUCTURE_TYPE27698: if ((t69095.value.structure_type27698)==(t69096.value.structure_type27698)) goto l11723; break; case STRUCTURE_TYPE27745: if ((t69095.value.structure_type27745)==(t69096.value.structure_type27745)) goto l11723; break; case STRUCTURE_TYPE27747: if ((t69095.value.structure_type27747)==(t69096.value.structure_type27747)) goto l11723; break; case STRUCTURE_TYPE27750: if ((t69095.value.structure_type27750)==(t69096.value.structure_type27750)) goto l11723; break; case STRUCTURE_TYPE27753: if ((t69095.value.structure_type27753)==(t69096.value.structure_type27753)) goto l11723; break; case STRUCTURE_TYPE27756: if ((t69095.value.structure_type27756)==(t69096.value.structure_type27756)) goto l11723; break; case STRUCTURE_TYPE27761: if ((t69095.value.structure_type27761)==(t69096.value.structure_type27761)) goto l11723; break; case STRUCTURE_TYPE27769: if ((t69095.value.structure_type27769)==(t69096.value.structure_type27769)) goto l11723; break; case STRUCTURE_TYPE27776: if ((t69095.value.structure_type27776)==(t69096.value.structure_type27776)) goto l11723; break; case STRUCTURE_TYPE27779: if ((t69095.value.structure_type27779)==(t69096.value.structure_type27779)) goto l11723; break; case STRUCTURE_TYPE27858: if ((t69095.value.structure_type27858)==(t69096.value.structure_type27858)) goto l11723; break; case STRING_TYPE: if ((t69095.value.string_type)==(t69096.value.string_type)) goto l11723; break; case HEADED_VECTOR_TYPE27896: if ((t69095.value.headed_vector_type27896)==(t69096.value.headed_vector_type27896)) goto l11723; break; case EXTERNAL_SYMBOL_TYPE: if ((t69095.value.external_symbol_type)==(t69096.value.external_symbol_type)) goto l11723; break; case STRUCTURE_TYPE27908: if ((t69095.value.structure_type27908)==(t69096.value.structure_type27908)) goto l11723; break; default: goto l11723;} p9635 = e9612; /* x84601 */ /* x84597 stalin.sc:6478:225819 */ /* x84596 stalin.sc:6478:225841 */ /* x84595 stalin.sc:6478:225860 */ /* x84594 stalin.sc:6478:225872 */ t69113 = p9635->a22804; /* x84593 stalin.sc:6478:225861 */ a41164 = t69113; /* x298768 stalin.sc:5598:192786 */ /* x298767 stalin.sc:5598:192812 */ t69114 = a41164; /* x298766 stalin.sc:5598:192787 */ a42546 = t69114; /* x304054 */ /* x304053 */ t69115 = a42546; /* x304052 */ if (!((t69115.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37851]"); structure_ref_error();} t69111 = t69115.value.structure_type27747->s1; /* x84592 stalin.sc:6478:225842 */ a39641 = t69111; /* x291233 */ /* x291232 */ t69112 = a39641; /* x291231 */ if (!((t69112.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34558]"); structure_ref_error();} t69109 = t69112.value.structure_type27698->s11; /* x84591 stalin.sc:6478:225820 */ a38886 = t69109; /* x288213 */ /* x288212 */ t69110 = a38886; /* x288211 */ if (!((t69110.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33803]"); structure_ref_error();} t69107 = t69110.value.structure_type27698->s20; /* x84600 stalin.sc:6479:225883 */ /* x84599 stalin.sc:6479:225895 */ t69116 = p9635->a22804; /* x84598 stalin.sc:6479:225884 */ a41165 = t69116; /* x298772 stalin.sc:5598:192786 */ /* x298771 stalin.sc:5598:192812 */ t69117 = a41165; /* x298770 stalin.sc:5598:192787 */ a42545 = t69117; /* x304050 */ /* x304049 */ t69118 = a42545; /* x304048 */ if (!((t69118.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37850]"); structure_ref_error();} t69108 = t69118.value.structure_type27747->s1; /* x269993 stalin.sc:6478:225815 */ /* EQ: dispatching general to general */ if (!((t69107.tag)==(t69108.tag))) goto l11724; switch (t69107.tag) {case FIXNUM_TYPE: if (!((t69107.value.fixnum_type)==(t69108.value.fixnum_type))) goto l11724; break; case FLONUM_TYPE: if (!((t69107.value.flonum_type)==(t69108.value.flonum_type))) goto l11724; break; case INPUT_PORT_TYPE: if (!((t69107.value.input_port_type)==(t69108.value.input_port_type))) goto l11724; break; case OUTPUT_PORT_TYPE: if (!((t69107.value.output_port_type)==(t69108.value.output_port_type))) goto l11724; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t69107.value.native_procedure_type15963)==(t69108.value.native_procedure_type15963))) goto l11724; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t69107.value.native_procedure_type19067)==(t69108.value.native_procedure_type19067))) goto l11724; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t69107.value.native_procedure_type19068)==(t69108.value.native_procedure_type19068))) goto l11724; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t69107.value.native_procedure_type22459)==(t69108.value.native_procedure_type22459))) goto l11724; break; case STRUCTURE_TYPE24753: if (!((t69107.value.structure_type24753)==(t69108.value.structure_type24753))) goto l11724; break; case STRUCTURE_TYPE24757: if (!((t69107.value.structure_type24757)==(t69108.value.structure_type24757))) goto l11724; break; case STRUCTURE_TYPE27501: if (!((t69107.value.structure_type27501)==(t69108.value.structure_type27501))) goto l11724; break; case STRUCTURE_TYPE27510: if (!((t69107.value.structure_type27510)==(t69108.value.structure_type27510))) goto l11724; break; case STRUCTURE_TYPE27621: if (!((t69107.value.structure_type27621)==(t69108.value.structure_type27621))) goto l11724; break; case STRUCTURE_TYPE27650: if (!((t69107.value.structure_type27650)==(t69108.value.structure_type27650))) goto l11724; break; case STRUCTURE_TYPE27669: if (!((t69107.value.structure_type27669)==(t69108.value.structure_type27669))) goto l11724; break; case STRUCTURE_TYPE27673: if (!((t69107.value.structure_type27673)==(t69108.value.structure_type27673))) goto l11724; break; case STRUCTURE_TYPE27692: if (!((t69107.value.structure_type27692)==(t69108.value.structure_type27692))) goto l11724; break; case STRUCTURE_TYPE27694: if (!((t69107.value.structure_type27694)==(t69108.value.structure_type27694))) goto l11724; break; case STRUCTURE_TYPE27698: if (!((t69107.value.structure_type27698)==(t69108.value.structure_type27698))) goto l11724; break; case STRUCTURE_TYPE27745: if (!((t69107.value.structure_type27745)==(t69108.value.structure_type27745))) goto l11724; break; case STRUCTURE_TYPE27747: if (!((t69107.value.structure_type27747)==(t69108.value.structure_type27747))) goto l11724; break; case STRUCTURE_TYPE27750: if (!((t69107.value.structure_type27750)==(t69108.value.structure_type27750))) goto l11724; break; case STRUCTURE_TYPE27753: if (!((t69107.value.structure_type27753)==(t69108.value.structure_type27753))) goto l11724; break; case STRUCTURE_TYPE27756: if (!((t69107.value.structure_type27756)==(t69108.value.structure_type27756))) goto l11724; break; case STRUCTURE_TYPE27761: if (!((t69107.value.structure_type27761)==(t69108.value.structure_type27761))) goto l11724; break; case STRUCTURE_TYPE27769: if (!((t69107.value.structure_type27769)==(t69108.value.structure_type27769))) goto l11724; break; case STRUCTURE_TYPE27776: if (!((t69107.value.structure_type27776)==(t69108.value.structure_type27776))) goto l11724; break; case STRUCTURE_TYPE27779: if (!((t69107.value.structure_type27779)==(t69108.value.structure_type27779))) goto l11724; break; case STRUCTURE_TYPE27858: if (!((t69107.value.structure_type27858)==(t69108.value.structure_type27858))) goto l11724; break; case STRING_TYPE: if (!((t69107.value.string_type)==(t69108.value.string_type))) goto l11724; break; case HEADED_VECTOR_TYPE27896: if (!((t69107.value.headed_vector_type27896)==(t69108.value.headed_vector_type27896))) goto l11724; break; case EXTERNAL_SYMBOL_TYPE: if (!((t69107.value.external_symbol_type)==(t69108.value.external_symbol_type))) goto l11724; break; case STRUCTURE_TYPE27908: if (!((t69107.value.structure_type27908)==(t69108.value.structure_type27908))) goto l11724; break; default:;} l11723: /* x84629 stalin.sc:6480:225904 */ /* x84628 stalin.sc:6480:225910 */ /* x84627 stalin.sc:6480:225917 */ /* x84626 stalin.sc:6480:225936 */ /* x84625 stalin.sc:6480:225948 */ t69123 = e9612->a22804; /* x84624 stalin.sc:6480:225937 */ a41163 = t69123; /* x298764 stalin.sc:5598:192786 */ /* x298763 stalin.sc:5598:192812 */ t69124 = a41163; /* x298762 stalin.sc:5598:192787 */ a42547 = t69124; /* x304058 */ /* x304057 */ t69125 = a42547; /* x304056 */ if (!((t69125.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37852]"); structure_ref_error();} t69121 = t69125.value.structure_type27747->s1; /* x84623 stalin.sc:6480:225918 */ a39640 = t69121; /* x291229 */ /* x291228 */ t69122 = a39640; /* x291227 */ if (!((t69122.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34557]"); structure_ref_error();} t69120 = t69122.value.structure_type27698->s11; /* x84622 stalin.sc:6480:225911 */ t69119 = f9424(t69120); /* x84621 stalin.sc:6480:225905 */ a34883 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34883==NULL) {backtrace("stalin.sc", 6480, 225904); out_of_memory_error();} a34883->s0.tag = STRUCTURE_TYPE27747; a34883->s0.value.structure_type27747 = t69119; a34883->s1.tag = NULL_TYPE; /* x271773 */ t68951 = a34883; goto l11725; l11724: /* x84630 stalin.sc:6481:225957 */ t68951 = (struct structure_type24753 *)NULL_TYPE; l11725: /* x84572 stalin.sc:6460:225119 */ /* x84559 stalin.sc:6460:225123 */ /* x84519 stalin.sc:6461:225132 */ /* x84518 stalin.sc:6461:225151 */ /* x84517 stalin.sc:6461:225163 */ t69037 = e9612->a22804; /* x84516 stalin.sc:6461:225152 */ a41162 = t69037; /* x298760 stalin.sc:5598:192786 */ /* x298759 stalin.sc:5598:192812 */ t69038 = a41162; /* x298758 stalin.sc:5598:192787 */ a42548 = t69038; /* x304062 */ /* x304061 */ t69039 = a42548; /* x304060 */ if (!((t69039.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37853]"); structure_ref_error();} t69035 = t69039.value.structure_type27747->s1; /* x84515 stalin.sc:6461:225133 */ a39639 = t69035; /* x291225 */ /* x291224 */ t69036 = a39639; /* x291223 */ if (!((t69036.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34556]"); structure_ref_error();} if ((t69036.value.structure_type27698->s11.tag)==FALSE_TYPE) goto l11718; /* x84557 */ /* x84529 stalin.sc:6462:225171 */ /* x84527 stalin.sc:6462:225176 */ /* x84526 stalin.sc:6462:225193 */ /* x84525 stalin.sc:6462:225212 */ /* x84524 stalin.sc:6462:225224 */ t69046 = e9612->a22804; /* x84523 stalin.sc:6462:225213 */ a41161 = t69046; /* x298756 stalin.sc:5598:192786 */ /* x298755 stalin.sc:5598:192812 */ t69047 = a41161; /* x298754 stalin.sc:5598:192787 */ a42549 = t69047; /* x304066 */ /* x304065 */ t69048 = a42549; /* x304064 */ if (!((t69048.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37854]"); structure_ref_error();} t69044 = t69048.value.structure_type27747->s1; /* x84522 stalin.sc:6462:225194 */ a39638 = t69044; /* x291221 */ /* x291220 */ t69045 = a39638; /* x291219 */ if (!((t69045.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34555]"); structure_ref_error();} t69042 = t69045.value.structure_type27698->s11; /* x84521 stalin.sc:6462:225177 */ a40255 = t69042; /* x293689 */ /* x293688 */ t69043 = a40255; /* x293687 */ if (!((t69043.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35172]"); structure_ref_error();} t69040 = t69043.value.structure_type27698->s0; /* x84528 stalin.sc:6462:225229 */ t69041 = q43; /* x269996 stalin.sc:6462:225172 */ if (!(t69040==t69041)) goto l11718; /* x84555 */ /* x84541 stalin.sc:6463:225238 */ /* x84537 stalin.sc:6463:225243 */ /* x84536 stalin.sc:6463:225266 */ /* x84535 stalin.sc:6463:225285 */ /* x84534 stalin.sc:6463:225297 */ t69055 = e9612->a22804; /* x84533 stalin.sc:6463:225286 */ a41159 = t69055; /* x298748 stalin.sc:5598:192786 */ /* x298747 stalin.sc:5598:192812 */ t69056 = a41159; /* x298746 stalin.sc:5598:192787 */ a42551 = t69056; /* x304074 */ /* x304073 */ t69057 = a42551; /* x304072 */ if (!((t69057.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37856]"); structure_ref_error();} t69053 = t69057.value.structure_type27747->s1; /* x84532 stalin.sc:6463:225267 */ a39637 = t69053; /* x291217 */ /* x291216 */ t69054 = a39637; /* x291215 */ if (!((t69054.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34554]"); structure_ref_error();} t69051 = t69054.value.structure_type27698->s11; /* x84531 stalin.sc:6463:225244 */ a38999 = t69051; /* x288665 */ /* x288664 */ t69052 = a38999; /* x288663 */ if (!((t69052.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33916]"); structure_ref_error();} t69049 = t69052.value.structure_type27698->s18; /* x84540 stalin.sc:6464:225304 */ /* x84539 stalin.sc:6464:225316 */ t69058 = e9612->a22804; /* x84538 stalin.sc:6464:225305 */ a41160 = t69058; /* x298752 stalin.sc:5598:192786 */ /* x298751 stalin.sc:5598:192812 */ t69059 = a41160; /* x298750 stalin.sc:5598:192787 */ a42550 = t69059; /* x304070 */ /* x304069 */ t69060 = a42550; /* x304068 */ if (!((t69060.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37855]"); structure_ref_error();} t69050 = t69060.value.structure_type27747->s1; /* x269995 stalin.sc:6463:225239 */ /* EQ: dispatching general to general */ if (!((t69049.tag)==(t69050.tag))) goto l11718; switch (t69049.tag) {case FIXNUM_TYPE: if (!((t69049.value.fixnum_type)==(t69050.value.fixnum_type))) goto l11718; break; case FLONUM_TYPE: if (!((t69049.value.flonum_type)==(t69050.value.flonum_type))) goto l11718; break; case INPUT_PORT_TYPE: if (!((t69049.value.input_port_type)==(t69050.value.input_port_type))) goto l11718; break; case OUTPUT_PORT_TYPE: if (!((t69049.value.output_port_type)==(t69050.value.output_port_type))) goto l11718; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t69049.value.native_procedure_type15963)==(t69050.value.native_procedure_type15963))) goto l11718; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t69049.value.native_procedure_type19067)==(t69050.value.native_procedure_type19067))) goto l11718; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t69049.value.native_procedure_type19068)==(t69050.value.native_procedure_type19068))) goto l11718; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t69049.value.native_procedure_type22459)==(t69050.value.native_procedure_type22459))) goto l11718; break; case STRUCTURE_TYPE24753: if (!((t69049.value.structure_type24753)==(t69050.value.structure_type24753))) goto l11718; break; case STRUCTURE_TYPE24757: if (!((t69049.value.structure_type24757)==(t69050.value.structure_type24757))) goto l11718; break; case STRUCTURE_TYPE27501: if (!((t69049.value.structure_type27501)==(t69050.value.structure_type27501))) goto l11718; break; case STRUCTURE_TYPE27510: if (!((t69049.value.structure_type27510)==(t69050.value.structure_type27510))) goto l11718; break; case STRUCTURE_TYPE27621: if (!((t69049.value.structure_type27621)==(t69050.value.structure_type27621))) goto l11718; break; case STRUCTURE_TYPE27650: if (!((t69049.value.structure_type27650)==(t69050.value.structure_type27650))) goto l11718; break; case STRUCTURE_TYPE27669: if (!((t69049.value.structure_type27669)==(t69050.value.structure_type27669))) goto l11718; break; case STRUCTURE_TYPE27673: if (!((t69049.value.structure_type27673)==(t69050.value.structure_type27673))) goto l11718; break; case STRUCTURE_TYPE27692: if (!((t69049.value.structure_type27692)==(t69050.value.structure_type27692))) goto l11718; break; case STRUCTURE_TYPE27694: if (!((t69049.value.structure_type27694)==(t69050.value.structure_type27694))) goto l11718; break; case STRUCTURE_TYPE27698: if (!((t69049.value.structure_type27698)==(t69050.value.structure_type27698))) goto l11718; break; case STRUCTURE_TYPE27745: if (!((t69049.value.structure_type27745)==(t69050.value.structure_type27745))) goto l11718; break; case STRUCTURE_TYPE27747: if (!((t69049.value.structure_type27747)==(t69050.value.structure_type27747))) goto l11718; break; case STRUCTURE_TYPE27750: if (!((t69049.value.structure_type27750)==(t69050.value.structure_type27750))) goto l11718; break; case STRUCTURE_TYPE27753: if (!((t69049.value.structure_type27753)==(t69050.value.structure_type27753))) goto l11718; break; case STRUCTURE_TYPE27756: if (!((t69049.value.structure_type27756)==(t69050.value.structure_type27756))) goto l11718; break; case STRUCTURE_TYPE27761: if (!((t69049.value.structure_type27761)==(t69050.value.structure_type27761))) goto l11718; break; case STRUCTURE_TYPE27769: if (!((t69049.value.structure_type27769)==(t69050.value.structure_type27769))) goto l11718; break; case STRUCTURE_TYPE27776: if (!((t69049.value.structure_type27776)==(t69050.value.structure_type27776))) goto l11718; break; case STRUCTURE_TYPE27779: if (!((t69049.value.structure_type27779)==(t69050.value.structure_type27779))) goto l11718; break; case STRUCTURE_TYPE27858: if (!((t69049.value.structure_type27858)==(t69050.value.structure_type27858))) goto l11718; break; case STRING_TYPE: if (!((t69049.value.string_type)==(t69050.value.string_type))) goto l11718; break; case HEADED_VECTOR_TYPE27896: if (!((t69049.value.headed_vector_type27896)==(t69050.value.headed_vector_type27896))) goto l11718; break; case EXTERNAL_SYMBOL_TYPE: if (!((t69049.value.external_symbol_type)==(t69050.value.external_symbol_type))) goto l11718; break; case STRUCTURE_TYPE27908: if (!((t69049.value.structure_type27908)==(t69050.value.structure_type27908))) goto l11718; break; default:;} /* x84553 */ /* x84543 stalin.sc:6466:225338 */ /* x84552 stalin.sc:6467:225355 */ /* x84551 stalin.sc:6468:225382 */ /* x84550 stalin.sc:6468:225405 */ /* x84549 stalin.sc:6468:225424 */ /* x84548 stalin.sc:6468:225436 */ t69069 = e9612->a22804; /* x84547 stalin.sc:6468:225425 */ a41158 = t69069; /* x298744 stalin.sc:5598:192786 */ /* x298743 stalin.sc:5598:192812 */ t69070 = a41158; /* x298742 stalin.sc:5598:192787 */ a42552 = t69070; /* x304078 */ /* x304077 */ t69071 = a42552; /* x304076 */ if (!((t69071.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37857]"); structure_ref_error();} t69067 = t69071.value.structure_type27747->s1; /* x84546 stalin.sc:6468:225406 */ a39636 = t69067; /* x291213 */ /* x291212 */ t69068 = a39636; /* x291211 */ if (!((t69068.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34553]"); structure_ref_error();} t69065 = t69068.value.structure_type27698->s11; /* x84545 stalin.sc:6468:225383 */ a38998 = t69065; /* x288661 */ /* x288660 */ t69066 = a38998; /* x288659 */ if (!((t69066.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33915]"); structure_ref_error();} t69063 = t69066.value.structure_type27698->s18; /* x84544 stalin.sc:6467:225356 */ a39835 = t69063; /* x292009 */ /* x292008 */ t69064 = a39835; /* x292007 */ if (!((t69064.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34752]"); structure_ref_error();} t69061 = t69064.value.structure_type27698->s10; /* x84542 stalin.sc:6465:225325 */ t69062.tag = NATIVE_PROCEDURE_TYPE7433; if ((f8137(t69062, t69061).tag)==FALSE_TYPE) goto l11718; /* x84570 stalin.sc:6469:225447 */ /* x84569 stalin.sc:6470:225457 */ /* x84568 stalin.sc:6470:225465 */ /* x84567 stalin.sc:6470:225487 */ /* x84566 stalin.sc:6470:225506 */ /* x84565 stalin.sc:6470:225518 */ t69078 = e9612->a22804; /* x84564 stalin.sc:6470:225507 */ a41157 = t69078; /* x298740 stalin.sc:5598:192786 */ /* x298739 stalin.sc:5598:192812 */ t69079 = a41157; /* x298738 stalin.sc:5598:192787 */ a42553 = t69079; /* x304082 */ /* x304081 */ t69080 = a42553; /* x304080 */ if (!((t69080.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37858]"); structure_ref_error();} t69076 = t69080.value.structure_type27747->s1; /* x84563 stalin.sc:6470:225488 */ a39635 = t69076; /* x291209 */ /* x291208 */ t69077 = a39635; /* x291207 */ if (!((t69077.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34552]"); structure_ref_error();} t69074 = t69077.value.structure_type27698->s11; /* x84562 stalin.sc:6470:225466 */ a38885 = t69074; /* x288209 */ /* x288208 */ t69075 = a38885; /* x288207 */ if (!((t69075.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33802]"); structure_ref_error();} t69073 = t69075.value.structure_type27698->s20; /* x84561 stalin.sc:6470:225458 */ t69072 = f9423(t69073); /* x84560 stalin.sc:6469:225448 */ a34882 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34882==NULL) {backtrace("stalin.sc", 6469, 225447); out_of_memory_error();} a34882->s0.tag = STRUCTURE_TYPE27747; a34882->s0.value.structure_type27747 = t69072; a34882->s1.tag = NULL_TYPE; /* x271771 */ t68950 = a34882; goto l11719; l11718: /* x84571 stalin.sc:6471:225528 */ t68950 = (struct structure_type24753 *)NULL_TYPE; l11719: /* x84514 stalin.sc:6448:224694 */ /* x84501 stalin.sc:6448:224698 */ /* x84461 stalin.sc:6449:224707 */ /* x84460 stalin.sc:6449:224726 */ /* x84459 stalin.sc:6449:224738 */ t68991 = e9612->a22804; /* x84458 stalin.sc:6449:224727 */ a41156 = t68991; /* x298736 stalin.sc:5598:192786 */ /* x298735 stalin.sc:5598:192812 */ t68992 = a41156; /* x298734 stalin.sc:5598:192787 */ a42554 = t68992; /* x304086 */ /* x304085 */ t68993 = a42554; /* x304084 */ if (!((t68993.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37859]"); structure_ref_error();} t68989 = t68993.value.structure_type27747->s1; /* x84457 stalin.sc:6449:224708 */ a39634 = t68989; /* x291205 */ /* x291204 */ t68990 = a39634; /* x291203 */ if (!((t68990.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34551]"); structure_ref_error();} if ((t68990.value.structure_type27698->s11.tag)==FALSE_TYPE) goto l11712; /* x84499 */ /* x84471 stalin.sc:6450:224746 */ /* x84469 stalin.sc:6450:224751 */ /* x84468 stalin.sc:6450:224768 */ /* x84467 stalin.sc:6450:224787 */ /* x84466 stalin.sc:6450:224799 */ t69000 = e9612->a22804; /* x84465 stalin.sc:6450:224788 */ a41155 = t69000; /* x298732 stalin.sc:5598:192786 */ /* x298731 stalin.sc:5598:192812 */ t69001 = a41155; /* x298730 stalin.sc:5598:192787 */ a42555 = t69001; /* x304090 */ /* x304089 */ t69002 = a42555; /* x304088 */ if (!((t69002.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37860]"); structure_ref_error();} t68998 = t69002.value.structure_type27747->s1; /* x84464 stalin.sc:6450:224769 */ a39633 = t68998; /* x291201 */ /* x291200 */ t68999 = a39633; /* x291199 */ if (!((t68999.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34550]"); structure_ref_error();} t68996 = t68999.value.structure_type27698->s11; /* x84463 stalin.sc:6450:224752 */ a40254 = t68996; /* x293685 */ /* x293684 */ t68997 = a40254; /* x293683 */ if (!((t68997.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35171]"); structure_ref_error();} t68994 = t68997.value.structure_type27698->s0; /* x84470 stalin.sc:6450:224804 */ t68995 = q43; /* x269998 stalin.sc:6450:224747 */ if (!(t68994==t68995)) goto l11712; /* x84497 */ /* x84483 stalin.sc:6451:224813 */ /* x84479 stalin.sc:6451:224818 */ /* x84478 stalin.sc:6451:224841 */ /* x84477 stalin.sc:6451:224860 */ /* x84476 stalin.sc:6451:224872 */ t69009 = e9612->a22804; /* x84475 stalin.sc:6451:224861 */ a41153 = t69009; /* x298724 stalin.sc:5598:192786 */ /* x298723 stalin.sc:5598:192812 */ t69010 = a41153; /* x298722 stalin.sc:5598:192787 */ a42557 = t69010; /* x304098 */ /* x304097 */ t69011 = a42557; /* x304096 */ if (!((t69011.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37862]"); structure_ref_error();} t69007 = t69011.value.structure_type27747->s1; /* x84474 stalin.sc:6451:224842 */ a39632 = t69007; /* x291197 */ /* x291196 */ t69008 = a39632; /* x291195 */ if (!((t69008.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34549]"); structure_ref_error();} t69005 = t69008.value.structure_type27698->s11; /* x84473 stalin.sc:6451:224819 */ a38997 = t69005; /* x288657 */ /* x288656 */ t69006 = a38997; /* x288655 */ if (!((t69006.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33914]"); structure_ref_error();} t69003 = t69006.value.structure_type27698->s18; /* x84482 stalin.sc:6452:224879 */ /* x84481 stalin.sc:6452:224891 */ t69012 = e9612->a22804; /* x84480 stalin.sc:6452:224880 */ a41154 = t69012; /* x298728 stalin.sc:5598:192786 */ /* x298727 stalin.sc:5598:192812 */ t69013 = a41154; /* x298726 stalin.sc:5598:192787 */ a42556 = t69013; /* x304094 */ /* x304093 */ t69014 = a42556; /* x304092 */ if (!((t69014.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37861]"); structure_ref_error();} t69004 = t69014.value.structure_type27747->s1; /* x269997 stalin.sc:6451:224814 */ /* EQ: dispatching general to general */ if (!((t69003.tag)==(t69004.tag))) goto l11712; switch (t69003.tag) {case FIXNUM_TYPE: if (!((t69003.value.fixnum_type)==(t69004.value.fixnum_type))) goto l11712; break; case FLONUM_TYPE: if (!((t69003.value.flonum_type)==(t69004.value.flonum_type))) goto l11712; break; case INPUT_PORT_TYPE: if (!((t69003.value.input_port_type)==(t69004.value.input_port_type))) goto l11712; break; case OUTPUT_PORT_TYPE: if (!((t69003.value.output_port_type)==(t69004.value.output_port_type))) goto l11712; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t69003.value.native_procedure_type15963)==(t69004.value.native_procedure_type15963))) goto l11712; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t69003.value.native_procedure_type19067)==(t69004.value.native_procedure_type19067))) goto l11712; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t69003.value.native_procedure_type19068)==(t69004.value.native_procedure_type19068))) goto l11712; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t69003.value.native_procedure_type22459)==(t69004.value.native_procedure_type22459))) goto l11712; break; case STRUCTURE_TYPE24753: if (!((t69003.value.structure_type24753)==(t69004.value.structure_type24753))) goto l11712; break; case STRUCTURE_TYPE24757: if (!((t69003.value.structure_type24757)==(t69004.value.structure_type24757))) goto l11712; break; case STRUCTURE_TYPE27501: if (!((t69003.value.structure_type27501)==(t69004.value.structure_type27501))) goto l11712; break; case STRUCTURE_TYPE27510: if (!((t69003.value.structure_type27510)==(t69004.value.structure_type27510))) goto l11712; break; case STRUCTURE_TYPE27621: if (!((t69003.value.structure_type27621)==(t69004.value.structure_type27621))) goto l11712; break; case STRUCTURE_TYPE27650: if (!((t69003.value.structure_type27650)==(t69004.value.structure_type27650))) goto l11712; break; case STRUCTURE_TYPE27669: if (!((t69003.value.structure_type27669)==(t69004.value.structure_type27669))) goto l11712; break; case STRUCTURE_TYPE27673: if (!((t69003.value.structure_type27673)==(t69004.value.structure_type27673))) goto l11712; break; case STRUCTURE_TYPE27692: if (!((t69003.value.structure_type27692)==(t69004.value.structure_type27692))) goto l11712; break; case STRUCTURE_TYPE27694: if (!((t69003.value.structure_type27694)==(t69004.value.structure_type27694))) goto l11712; break; case STRUCTURE_TYPE27698: if (!((t69003.value.structure_type27698)==(t69004.value.structure_type27698))) goto l11712; break; case STRUCTURE_TYPE27745: if (!((t69003.value.structure_type27745)==(t69004.value.structure_type27745))) goto l11712; break; case STRUCTURE_TYPE27747: if (!((t69003.value.structure_type27747)==(t69004.value.structure_type27747))) goto l11712; break; case STRUCTURE_TYPE27750: if (!((t69003.value.structure_type27750)==(t69004.value.structure_type27750))) goto l11712; break; case STRUCTURE_TYPE27753: if (!((t69003.value.structure_type27753)==(t69004.value.structure_type27753))) goto l11712; break; case STRUCTURE_TYPE27756: if (!((t69003.value.structure_type27756)==(t69004.value.structure_type27756))) goto l11712; break; case STRUCTURE_TYPE27761: if (!((t69003.value.structure_type27761)==(t69004.value.structure_type27761))) goto l11712; break; case STRUCTURE_TYPE27769: if (!((t69003.value.structure_type27769)==(t69004.value.structure_type27769))) goto l11712; break; case STRUCTURE_TYPE27776: if (!((t69003.value.structure_type27776)==(t69004.value.structure_type27776))) goto l11712; break; case STRUCTURE_TYPE27779: if (!((t69003.value.structure_type27779)==(t69004.value.structure_type27779))) goto l11712; break; case STRUCTURE_TYPE27858: if (!((t69003.value.structure_type27858)==(t69004.value.structure_type27858))) goto l11712; break; case STRING_TYPE: if (!((t69003.value.string_type)==(t69004.value.string_type))) goto l11712; break; case HEADED_VECTOR_TYPE27896: if (!((t69003.value.headed_vector_type27896)==(t69004.value.headed_vector_type27896))) goto l11712; break; case EXTERNAL_SYMBOL_TYPE: if (!((t69003.value.external_symbol_type)==(t69004.value.external_symbol_type))) goto l11712; break; case STRUCTURE_TYPE27908: if (!((t69003.value.structure_type27908)==(t69004.value.structure_type27908))) goto l11712; break; default:;} /* x84495 */ /* x84485 stalin.sc:6454:224917 */ /* x84494 stalin.sc:6455:224934 */ /* x84493 stalin.sc:6456:224961 */ /* x84492 stalin.sc:6456:224984 */ /* x84491 stalin.sc:6456:225003 */ /* x84490 stalin.sc:6456:225015 */ t69023 = e9612->a22804; /* x84489 stalin.sc:6456:225004 */ a41152 = t69023; /* x298720 stalin.sc:5598:192786 */ /* x298719 stalin.sc:5598:192812 */ t69024 = a41152; /* x298718 stalin.sc:5598:192787 */ a42558 = t69024; /* x304102 */ /* x304101 */ t69025 = a42558; /* x304100 */ if (!((t69025.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37863]"); structure_ref_error();} t69021 = t69025.value.structure_type27747->s1; /* x84488 stalin.sc:6456:224985 */ a39631 = t69021; /* x291193 */ /* x291192 */ t69022 = a39631; /* x291191 */ if (!((t69022.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34548]"); structure_ref_error();} t69019 = t69022.value.structure_type27698->s11; /* x84487 stalin.sc:6456:224962 */ a38996 = t69019; /* x288653 */ /* x288652 */ t69020 = a38996; /* x288651 */ if (!((t69020.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33913]"); structure_ref_error();} t69017 = t69020.value.structure_type27698->s18; /* x84486 stalin.sc:6455:224935 */ a39834 = t69017; /* x292005 */ /* x292004 */ t69018 = a39834; /* x292003 */ if (!((t69018.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34751]"); structure_ref_error();} t69015 = t69018.value.structure_type27698->s10; /* x84484 stalin.sc:6453:224900 */ t69016.tag = NATIVE_PROCEDURE_TYPE7433; if ((f8144(t69016, t69015).tag)==FALSE_TYPE) goto l11712; /* x84512 stalin.sc:6457:225026 */ /* x84511 stalin.sc:6458:225036 */ /* x84510 stalin.sc:6458:225044 */ /* x84509 stalin.sc:6458:225067 */ /* x84508 stalin.sc:6458:225086 */ /* x84507 stalin.sc:6458:225098 */ t69032 = e9612->a22804; /* x84506 stalin.sc:6458:225087 */ a41151 = t69032; /* x298716 stalin.sc:5598:192786 */ /* x298715 stalin.sc:5598:192812 */ t69033 = a41151; /* x298714 stalin.sc:5598:192787 */ a42559 = t69033; /* x304106 */ /* x304105 */ t69034 = a42559; /* x304104 */ if (!((t69034.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37864]"); structure_ref_error();} t69030 = t69034.value.structure_type27747->s1; /* x84505 stalin.sc:6458:225068 */ a39630 = t69030; /* x291189 */ /* x291188 */ t69031 = a39630; /* x291187 */ if (!((t69031.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34547]"); structure_ref_error();} t69028 = t69031.value.structure_type27698->s11; /* x84504 stalin.sc:6458:225045 */ a38940 = t69028; /* x288429 */ /* x288428 */ t69029 = a38940; /* x288427 */ if (!((t69029.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33857]"); structure_ref_error();} t69027 = t69029.value.structure_type27698->s19; /* x84503 stalin.sc:6458:225037 */ t69026 = f9423(t69027); /* x84502 stalin.sc:6457:225027 */ a34881 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34881==NULL) {backtrace("stalin.sc", 6457, 225026); out_of_memory_error();} a34881->s0.tag = STRUCTURE_TYPE27747; a34881->s0.value.structure_type27747 = t69026; a34881->s1.tag = NULL_TYPE; /* x271769 */ t68949 = a34881; goto l11713; l11712: /* x84513 stalin.sc:6459:225108 */ t68949 = (struct structure_type24753 *)NULL_TYPE; l11713: /* x84456 stalin.sc:6442:224442 */ /* x84445 stalin.sc:6442:224446 */ /* x84433 stalin.sc:6443:224455 */ /* x84432 stalin.sc:6443:224474 */ /* x84431 stalin.sc:6443:224486 */ t68970 = e9612->a22804; /* x84430 stalin.sc:6443:224475 */ a41150 = t68970; /* x298712 stalin.sc:5598:192786 */ /* x298711 stalin.sc:5598:192812 */ t68971 = a41150; /* x298710 stalin.sc:5598:192787 */ a42560 = t68971; /* x304110 */ /* x304109 */ t68972 = a42560; /* x304108 */ if (!((t68972.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37865]"); structure_ref_error();} t68968 = t68972.value.structure_type27747->s1; /* x84429 stalin.sc:6443:224456 */ a39629 = t68968; /* x291185 */ /* x291184 */ t68969 = a39629; /* x291183 */ if (!((t68969.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34546]"); structure_ref_error();} if ((t68969.value.structure_type27698->s11.tag)==FALSE_TYPE) goto l11708; /* x84443 */ /* x84441 stalin.sc:6444:224499 */ /* x84440 stalin.sc:6444:224516 */ /* x84439 stalin.sc:6444:224535 */ /* x84438 stalin.sc:6444:224547 */ t68979 = e9612->a22804; /* x84437 stalin.sc:6444:224536 */ a41149 = t68979; /* x298708 stalin.sc:5598:192786 */ /* x298707 stalin.sc:5598:192812 */ t68980 = a41149; /* x298706 stalin.sc:5598:192787 */ a42561 = t68980; /* x304114 */ /* x304113 */ t68981 = a42561; /* x304112 */ if (!((t68981.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37866]"); structure_ref_error();} t68977 = t68981.value.structure_type27747->s1; /* x84436 stalin.sc:6444:224517 */ a39628 = t68977; /* x291181 */ /* x291180 */ t68978 = a39628; /* x291179 */ if (!((t68978.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34545]"); structure_ref_error();} t68975 = t68978.value.structure_type27698->s11; /* x84435 stalin.sc:6444:224500 */ a40253 = t68975; /* x293681 */ /* x293680 */ t68976 = a40253; /* x293679 */ if (!((t68976.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35170]"); structure_ref_error();} t68973 = t68976.value.structure_type27698->s0; /* x84442 stalin.sc:6444:224552 */ t68974 = q42; /* x269999 stalin.sc:6444:224495 */ if (!(t68973==t68974)) goto l11708; /* x84454 stalin.sc:6445:224563 */ /* x84453 stalin.sc:6445:224569 */ /* x84452 stalin.sc:6445:224576 */ /* x84451 stalin.sc:6445:224595 */ /* x84450 stalin.sc:6445:224607 */ t68986 = e9612->a22804; /* x84449 stalin.sc:6445:224596 */ a41148 = t68986; /* x298704 stalin.sc:5598:192786 */ /* x298703 stalin.sc:5598:192812 */ t68987 = a41148; /* x298702 stalin.sc:5598:192787 */ a42562 = t68987; /* x304118 */ /* x304117 */ t68988 = a42562; /* x304116 */ if (!((t68988.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37867]"); structure_ref_error();} t68984 = t68988.value.structure_type27747->s1; /* x84448 stalin.sc:6445:224577 */ a39627 = t68984; /* x291177 */ /* x291176 */ t68985 = a39627; /* x291175 */ if (!((t68985.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34544]"); structure_ref_error();} t68983 = t68985.value.structure_type27698->s11; /* x84447 stalin.sc:6445:224570 */ t68982 = f9424(t68983); /* x84446 stalin.sc:6445:224564 */ a34880 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34880==NULL) {backtrace("stalin.sc", 6445, 224563); out_of_memory_error();} a34880->s0.tag = STRUCTURE_TYPE27747; a34880->s0.value.structure_type27747 = t68982; a34880->s1.tag = NULL_TYPE; /* x271767 */ t68948 = a34880; goto l11709; l11708: /* x84455 stalin.sc:6446:224616 */ t68948 = (struct structure_type24753 *)NULL_TYPE; l11709: /* x84428 stalin.sc:6440:224387 */ t68967.tag = STRUCTURE_TYPE24753; t68967.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68967.value.structure_type24753)==NULL) {backtrace("stalin.sc", 6440, 224386); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t68957>=((struct structure_type24753 *)VALUE_OFFSET)) {t68967.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t68967.value.structure_type24753->s0.value.structure_type24753 = t68957;} else t68967.value.structure_type24753->s0.tag = (unsigned)t68957; t68967.value.structure_type24753->s1.tag = NULL_TYPE; t68966.tag = STRUCTURE_TYPE24753; t68966.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68966.value.structure_type24753)==NULL) {backtrace("stalin.sc", 6440, 224386); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t68956>=((struct structure_type24753 *)VALUE_OFFSET)) {t68966.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t68966.value.structure_type24753->s0.value.structure_type24753 = t68956;} else t68966.value.structure_type24753->s0.tag = (unsigned)t68956; t68966.value.structure_type24753->s1 = t68967; t68965.tag = STRUCTURE_TYPE24753; t68965.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68965.value.structure_type24753)==NULL) {backtrace("stalin.sc", 6440, 224386); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t68955>=((struct structure_type24753 *)VALUE_OFFSET)) {t68965.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t68965.value.structure_type24753->s0.value.structure_type24753 = t68955;} else t68965.value.structure_type24753->s0.tag = (unsigned)t68955; t68965.value.structure_type24753->s1 = t68966; t68964.tag = STRUCTURE_TYPE24753; t68964.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68964.value.structure_type24753)==NULL) {backtrace("stalin.sc", 6440, 224386); out_of_memory_error();} t68964.value.structure_type24753->s0 = t68954; t68964.value.structure_type24753->s1 = t68965; t68963.tag = STRUCTURE_TYPE24753; t68963.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68963.value.structure_type24753)==NULL) {backtrace("stalin.sc", 6440, 224386); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t68953>=((struct structure_type24753 *)VALUE_OFFSET)) {t68963.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t68963.value.structure_type24753->s0.value.structure_type24753 = t68953;} else t68963.value.structure_type24753->s0.tag = (unsigned)t68953; t68963.value.structure_type24753->s1 = t68964; t68962.tag = STRUCTURE_TYPE24753; t68962.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68962.value.structure_type24753)==NULL) {backtrace("stalin.sc", 6440, 224386); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t68952>=((struct structure_type24753 *)VALUE_OFFSET)) {t68962.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t68962.value.structure_type24753->s0.value.structure_type24753 = t68952;} else t68962.value.structure_type24753->s0.tag = (unsigned)t68952; t68962.value.structure_type24753->s1 = t68963; t68961.tag = STRUCTURE_TYPE24753; t68961.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68961.value.structure_type24753)==NULL) {backtrace("stalin.sc", 6440, 224386); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t68951>=((struct structure_type24753 *)VALUE_OFFSET)) {t68961.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t68961.value.structure_type24753->s0.value.structure_type24753 = t68951;} else t68961.value.structure_type24753->s0.tag = (unsigned)t68951; t68961.value.structure_type24753->s1 = t68962; t68960.tag = STRUCTURE_TYPE24753; t68960.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68960.value.structure_type24753)==NULL) {backtrace("stalin.sc", 6440, 224386); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t68950>=((struct structure_type24753 *)VALUE_OFFSET)) {t68960.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t68960.value.structure_type24753->s0.value.structure_type24753 = t68950;} else t68960.value.structure_type24753->s0.tag = (unsigned)t68950; t68960.value.structure_type24753->s1 = t68961; t68959.tag = STRUCTURE_TYPE24753; t68959.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t68959.value.structure_type24753)==NULL) {backtrace("stalin.sc", 6440, 224386); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t68949>=((struct structure_type24753 *)VALUE_OFFSET)) {t68959.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t68959.value.structure_type24753->s0.value.structure_type24753 = t68949;} else t68959.value.structure_type24753->s0.tag = (unsigned)t68949; t68959.value.structure_type24753->s1 = t68960; t68958 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t68958==NULL) {backtrace("stalin.sc", 6440, 224386); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t68948>=((struct structure_type24753 *)VALUE_OFFSET)) {t68958->s0.tag = STRUCTURE_TYPE24753; t68958->s0.value.structure_type24753 = t68948;} else t68958->s0.tag = (unsigned)t68948; t68958->s1 = t68959; return f26254(t68958);} /* LOOP[9517] */ struct w16638 f9517(struct p9515 *p9517, struct w49 a22713) {struct w16638 r9517; unsigned a22714; /* v */ struct p9515 *t69906; unsigned t69907; struct w49 t69908; struct structure_type24753 *t69909; struct p14552 *t69910; struct w49 t69911; struct p9515 *t69912; struct p9515 *t69913; struct p9515 *t69914; struct w49 t69915; struct w228345 t69916; struct w49 t69917; struct structure_type24753 *t69918; struct w49 t69919; struct w49 t69920; struct structure_type24753 *t69921; struct w49 t69922; struct structure_type27747 *t69923; struct w49 t69924; struct p9515 *p9518; struct p9515 *p9519; struct p9515 *p9520; /* x82216 stalin.sc:5969:207338 */ /* x82215 stalin.sc:5969:207342 */ /* x82213 stalin.sc:5969:207363 */ t69922 = a22713; /* x82214 stalin.sc:5969:207365 */ t69923 = p9517->p9513->p9512->a22708; /* x82212 stalin.sc:5969:207343 */ t69924.tag = STRUCTURE_TYPE27747; t69924.value.structure_type27747 = t69923; t69907 = f9428(t69922, t69924); /* x82211 */ t69906 = p9517; p9518 = t69906; a22714 = t69907; /* x82210 */ /* x82184 */ if (a22714==FALSE_TYPE) goto l11813; /* x82185 */ r9517.tag = a22714; return r9517; l11813: /* x82209 */ /* x82192 stalin.sc:5970:207381 */ /* x82191 stalin.sc:5970:207386 */ /* x82188 stalin.sc:5970:207392 */ /* x82189 stalin.sc:5970:207412 */ t69908 = a22713; /* x82190 stalin.sc:5970:207414 */ t69909 = p9518->p9513->a22709; /* x82187 stalin.sc:5970:207387 */ t69910 = (struct p14552 *)NATIVE_PROCEDURE_TYPE7195; /* MOVE: branching squeezed to general */ if (t69909>=((struct structure_type24753 *)VALUE_OFFSET)) {t69911.tag = STRUCTURE_TYPE24753; t69911.value.structure_type24753 = t69909;} else t69911.tag = (unsigned)t69909; if (!((f1178(t69910, t69908, t69911).tag)==FALSE_TYPE)) goto l11815; /* x82207 */ /* x82206 */ t69912 = p9518; p9519 = t69912; /* x82205 */ /* x82204 stalin.sc:5972:207437 */ /* x82203 stalin.sc:5972:207446 */ /* x82201 stalin.sc:5972:207452 */ t69920 = a22713; /* x82202 stalin.sc:5972:207454 */ t69921 = p9519->p9513->a22709; /* x270021 stalin.sc:5972:207447 */ p9519->p9513->a22709 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p9519->p9513->a22709)==NULL) {backtrace("stalin.sc", 5972, 207446); out_of_memory_error();} p9519->p9513->a22709->s0 = t69920; /* MOVE: branching squeezed to general */ if (t69921>=((struct structure_type24753 *)VALUE_OFFSET)) {p9519->p9513->a22709->s1.tag = STRUCTURE_TYPE24753; p9519->p9513->a22709->s1.value.structure_type24753 = t69921;} else p9519->p9513->a22709->s1.tag = (unsigned)t69921; /* x82199 */ t69913 = p9519; p9520 = t69913; /* x82198 stalin.sc:5973:207465 */ /* x82197 stalin.sc:5973:207476 */ /* x82196 stalin.sc:5973:207516 */ t69919 = a22713; /* x82195 stalin.sc:5973:207477 */ t69915 = f9612(t69919); /* x82194 stalin.sc:5973:207471 */ t69914 = p9520->a22711; /* x82193 stalin.sc:5973:207466 */ t69916.tag = NATIVE_PROCEDURE_TYPE24135; t69916.value.native_procedure_type24135 = t69914; t69917 = t69915; t69918 = (struct structure_type24753 *)NULL_TYPE; return f1042(t69916, t69917, t69918); l11815: /* x82208 */ r9517.tag = FALSE_TYPE; return r9517;} /* SAME-PROGRAM-POINT?[9428] */ unsigned f9428(struct w49 a22622, struct w49 a22623) {struct w49 a41270; /* D */ struct w49 a41271; /* D */ struct w49 a41272; /* D */ struct w49 a41273; /* D */ struct w49 a42439; /* S */ struct w49 a42440; /* S */ struct w49 a42587; /* S */ struct w49 a42588; /* S */ unsigned t69925; unsigned t69926; struct w49 t69927; struct w49 t69928; struct w49 t69929; struct w49 t69930; struct w49 t69931; struct w49 t69932; struct w49 t69933; struct w49 t69934; struct w49 t69935; struct w49 t69936; struct w49 t69937; struct w49 t69938; struct w49 t69939; struct w49 t69940; /* x80146 stalin.sc:5601:192854 */ /* x80146 stalin.sc:5601:192854 */ /* x80136 stalin.sc:5601:192859 */ /* x80132 stalin.sc:5601:192864 */ /* x80131 stalin.sc:5601:192873 */ t69927 = a22622; /* x80130 stalin.sc:5601:192865 */ a41272 = t69927; /* x299200 stalin.sc:5594:192682 */ /* x299199 stalin.sc:5594:192705 */ t69928 = a41272; /* x299198 stalin.sc:5594:192683 */ a42439 = t69928; /* x303626 */ /* x303625 */ t69929 = a42439; /* x303624 */ if (!((t69929.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-BEFORE?[5469] 37744]"); structure_ref_error();} t69925 = t69929.value.structure_type27747->s0; /* x80135 stalin.sc:5601:192877 */ /* x80134 stalin.sc:5601:192886 */ t69930 = a22623; /* x80133 stalin.sc:5601:192878 */ a41273 = t69930; /* x299204 stalin.sc:5594:192682 */ /* x299203 stalin.sc:5594:192705 */ t69931 = a41273; /* x299202 stalin.sc:5594:192683 */ a42440 = t69931; /* x303630 */ /* x303629 */ t69932 = a42440; /* x303628 */ if (!((t69932.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-BEFORE?[5469] 37745]"); structure_ref_error();} t69926 = t69932.value.structure_type27747->s0; /* x270024 stalin.sc:5601:192860 */ if (!(t69925==t69926)) goto l11817; /* x80144 */ /* x80140 stalin.sc:5601:192896 */ /* x80139 stalin.sc:5601:192908 */ t69935 = a22622; /* x80138 stalin.sc:5601:192897 */ a41270 = t69935; /* x299192 stalin.sc:5598:192786 */ /* x299191 stalin.sc:5598:192812 */ t69936 = a41270; /* x299190 stalin.sc:5598:192787 */ a42588 = t69936; /* x304222 */ /* x304221 */ t69937 = a42588; /* x304220 */ if (!((t69937.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37893]"); structure_ref_error();} t69933 = t69937.value.structure_type27747->s1; /* x80143 stalin.sc:5601:192912 */ /* x80142 stalin.sc:5601:192924 */ t69938 = a22623; /* x80141 stalin.sc:5601:192913 */ a41271 = t69938; /* x299196 stalin.sc:5598:192786 */ /* x299195 stalin.sc:5598:192812 */ t69939 = a41271; /* x299194 stalin.sc:5598:192787 */ a42587 = t69939; /* x304218 */ /* x304217 */ t69940 = a42587; /* x304216 */ if (!((t69940.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37892]"); structure_ref_error();} t69934 = t69940.value.structure_type27747->s1; /* x270023 stalin.sc:5601:192892 */ /* EQ: dispatching general to general */ if (!((t69933.tag)==(t69934.tag))) goto l11817; switch (t69933.tag) {case FIXNUM_TYPE: if (!((t69933.value.fixnum_type)==(t69934.value.fixnum_type))) goto l11817; break; case FLONUM_TYPE: if (!((t69933.value.flonum_type)==(t69934.value.flonum_type))) goto l11817; break; case INPUT_PORT_TYPE: if (!((t69933.value.input_port_type)==(t69934.value.input_port_type))) goto l11817; break; case OUTPUT_PORT_TYPE: if (!((t69933.value.output_port_type)==(t69934.value.output_port_type))) goto l11817; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t69933.value.native_procedure_type15963)==(t69934.value.native_procedure_type15963))) goto l11817; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t69933.value.native_procedure_type19067)==(t69934.value.native_procedure_type19067))) goto l11817; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t69933.value.native_procedure_type19068)==(t69934.value.native_procedure_type19068))) goto l11817; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t69933.value.native_procedure_type22459)==(t69934.value.native_procedure_type22459))) goto l11817; break; case STRUCTURE_TYPE24753: if (!((t69933.value.structure_type24753)==(t69934.value.structure_type24753))) goto l11817; break; case STRUCTURE_TYPE24757: if (!((t69933.value.structure_type24757)==(t69934.value.structure_type24757))) goto l11817; break; case STRUCTURE_TYPE27501: if (!((t69933.value.structure_type27501)==(t69934.value.structure_type27501))) goto l11817; break; case STRUCTURE_TYPE27510: if (!((t69933.value.structure_type27510)==(t69934.value.structure_type27510))) goto l11817; break; case STRUCTURE_TYPE27621: if (!((t69933.value.structure_type27621)==(t69934.value.structure_type27621))) goto l11817; break; case STRUCTURE_TYPE27650: if (!((t69933.value.structure_type27650)==(t69934.value.structure_type27650))) goto l11817; break; case STRUCTURE_TYPE27669: if (!((t69933.value.structure_type27669)==(t69934.value.structure_type27669))) goto l11817; break; case STRUCTURE_TYPE27673: if (!((t69933.value.structure_type27673)==(t69934.value.structure_type27673))) goto l11817; break; case STRUCTURE_TYPE27692: if (!((t69933.value.structure_type27692)==(t69934.value.structure_type27692))) goto l11817; break; case STRUCTURE_TYPE27694: if (!((t69933.value.structure_type27694)==(t69934.value.structure_type27694))) goto l11817; break; case STRUCTURE_TYPE27698: if (!((t69933.value.structure_type27698)==(t69934.value.structure_type27698))) goto l11817; break; case STRUCTURE_TYPE27745: if (!((t69933.value.structure_type27745)==(t69934.value.structure_type27745))) goto l11817; break; case STRUCTURE_TYPE27747: if (!((t69933.value.structure_type27747)==(t69934.value.structure_type27747))) goto l11817; break; case STRUCTURE_TYPE27750: if (!((t69933.value.structure_type27750)==(t69934.value.structure_type27750))) goto l11817; break; case STRUCTURE_TYPE27753: if (!((t69933.value.structure_type27753)==(t69934.value.structure_type27753))) goto l11817; break; case STRUCTURE_TYPE27756: if (!((t69933.value.structure_type27756)==(t69934.value.structure_type27756))) goto l11817; break; case STRUCTURE_TYPE27761: if (!((t69933.value.structure_type27761)==(t69934.value.structure_type27761))) goto l11817; break; case STRUCTURE_TYPE27769: if (!((t69933.value.structure_type27769)==(t69934.value.structure_type27769))) goto l11817; break; case STRUCTURE_TYPE27776: if (!((t69933.value.structure_type27776)==(t69934.value.structure_type27776))) goto l11817; break; case STRUCTURE_TYPE27779: if (!((t69933.value.structure_type27779)==(t69934.value.structure_type27779))) goto l11817; break; case STRUCTURE_TYPE27858: if (!((t69933.value.structure_type27858)==(t69934.value.structure_type27858))) goto l11817; break; case STRING_TYPE: if (!((t69933.value.string_type)==(t69934.value.string_type))) goto l11817; break; case HEADED_VECTOR_TYPE27896: if (!((t69933.value.headed_vector_type27896)==(t69934.value.headed_vector_type27896))) goto l11817; break; case EXTERNAL_SYMBOL_TYPE: if (!((t69933.value.external_symbol_type)==(t69934.value.external_symbol_type))) goto l11817; break; case STRUCTURE_TYPE27908: if (!((t69933.value.structure_type27908)==(t69934.value.structure_type27908))) goto l11817; break; default:;} return TRUE_TYPE; l11817: return FALSE_TYPE;} /* AFTER[9424] */ struct structure_type27747 *f9424(struct w49 a22618) {struct w49 t69941; unsigned t69942; /* x80109 stalin.sc:5592:192634 */ /* x80107 stalin.sc:5592:192654 */ /* x80108 stalin.sc:5592:192657 */ t69941 = a22618; /* x80106 stalin.sc:5592:192635 */ t69942 = FALSE_TYPE; return f5467(t69942, t69941);} /* BEFORE[9423] */ struct structure_type27747 *f9423(struct w49 a22617) {struct w49 t69943; unsigned t69944; /* x80103 stalin.sc:5590:192588 */ /* x80101 stalin.sc:5590:192608 */ /* x80102 stalin.sc:5590:192611 */ t69943 = a22617; /* x80100 stalin.sc:5590:192589 */ t69944 = TRUE_TYPE; return f5467(t69944, t69943);} /* [inside DETERMINE-NECESSARILY-FICTITIOUS-NATIVE-PROCEDURE-TYPES! 9422] */ void f9422(struct w49 a22616) {struct w49 t69945; unsigned t69946; /* x80093 stalin.sc:5566:191901 */ /* x80091 stalin.sc:5566:191953 */ t69945 = a22616; /* x80092 stalin.sc:5566:191955 */ /* x80090 stalin.sc:5566:191902 */ t69946 = TRUE_TYPE; f7325(t69945, t69946); return;} /* [inside LOOP 9410] */ void f9410(struct w49 a22607) {struct w49 t69947; struct w49 t69948; struct w49 t69949; struct w11873 t69950; struct w228245 t69951; struct w49 t69952; struct structure_type24753 *t69953; struct w49 t69954; struct w49 t69955; unsigned t69956; /* x80072 stalin.sc:5572:192057 */ /* x80059 stalin.sc:5572:192065 */ /* x80058 stalin.sc:5572:192069 */ /* x80057 stalin.sc:5572:192074 */ /* x80056 stalin.sc:5572:192121 */ t69947 = a22607; /* x80055 stalin.sc:5572:192075 */ if (f7324(t69947)==FALSE_TYPE) goto l11820; /* x80051 */ /* x80050 stalin.sc:5573:192128 */ /* x80049 stalin.sc:5573:192133 */ /* x80048 stalin.sc:5573:192142 */ t69948 = a22607; /* x80047 stalin.sc:5573:192134 */ if ((f8899(t69948).tag)==FALSE_TYPE) goto l11820; /* x80043 */ /* x80042 stalin.sc:5574:192149 */ /* x80041 stalin.sc:5574:192156 */ t69949 = a22607; /* x80040 stalin.sc:5574:192150 */ if (!(f8918(t69949)==FALSE_TYPE)) goto l11820; /* x80037 */ /* x80036 stalin.sc:5582:192382 */ /* x80035 stalin.sc:5582:192397 */ t69954 = a22607; /* x80034 stalin.sc:5582:192383 */ t69950 = f8984(t69954); /* x80033 stalin.sc:5575:192169 */ /* x80001 stalin.sc:5575:192163 */ t69951.tag = NATIVE_PROCEDURE_TYPE19164; t69952 = *((struct w49 *)(&t69950)); t69953 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t69951, t69952, t69953)==FALSE_TYPE) goto l11821; l11820: /* x80061 */ /* x80060 */ return; l11821: /* x80071 */ /* x80070 */ /* x80069 */ /* x80068 stalin.sc:5583:192408 */ /* x80066 stalin.sc:5583:192460 */ t69955 = a22607; /* x80067 stalin.sc:5583:192462 */ /* x80065 stalin.sc:5583:192409 */ t69956 = FALSE_TYPE; f7325(t69955, t69956); /* x80064 */ /* x80063 stalin.sc:5584:192472 */ /* x80062 stalin.sc:5584:192485 */ a22605 = TRUE_TYPE; return;} /* NECESSARILY-FICTITIOUS?[9390] */ unsigned f9390(struct w49 a22591) {struct w49 a37641; /* S */ struct w49 a37695; /* OBJ */ struct w49 a37963; /* OBJ */ struct w49 a38109; /* OBJ */ struct w49 a38221; /* OBJ */ struct w49 a38321; /* OBJ */ struct w49 t69957; struct w49 t69958; struct w49 t69959; struct w49 t69960; struct w49 t69961; struct w49 t69962; struct w49 t69963; struct w49 t69964; struct w49 t69965; struct w49 t69966; struct w49 t69967; struct w49 t69968; struct w49 t69969; struct w49 t69970; struct w49 t69971; struct w49 t69972; struct w11873 t69973; struct w49 t69974; struct w49 t69975; /* x79960 stalin.sc:5542:190900 */ /* x79960 stalin.sc:5542:190900 */ /* x79959 stalin.sc:5542:190904 */ /* x79958 stalin.sc:5542:190916 */ t69957 = a22591; /* x79957 stalin.sc:5542:190905 */ if (!(f7677(t69957)==FALSE_TYPE)) goto l11825; /* x79954 */ /* x79953 stalin.sc:5543:190924 */ /* x79952 stalin.sc:5543:190936 */ t69958 = a22591; /* x79951 stalin.sc:5543:190925 */ if (!(f7678(t69958)==FALSE_TYPE)) goto l11825; /* x79948 */ /* x79947 stalin.sc:5544:190944 */ /* x79946 stalin.sc:5544:190957 */ t69959 = a22591; /* x79945 stalin.sc:5544:190945 */ if (!(f7679(t69959)==FALSE_TYPE)) goto l11825; /* x79942 */ /* x79941 stalin.sc:5545:190965 */ /* x79940 stalin.sc:5545:190983 */ t69960 = a22591; /* x79939 stalin.sc:5545:190966 */ if (!(f7702(t69960)==FALSE_TYPE)) goto l11825; /* x79936 */ /* x79935 stalin.sc:5546:190991 */ /* x79934 stalin.sc:5546:191014 */ t69961 = a22591; /* x79933 stalin.sc:5546:190992 */ a38321 = t69961; /* x285953 */ /* x285952 */ t69962 = a38321; /* x285951 */ if ((t69962.tag)==STRUCTURE_TYPE27776) goto l11825; /* x79930 */ /* x79929 stalin.sc:5547:191022 */ /* x79928 stalin.sc:5547:191049 */ t69963 = a22591; /* x79927 stalin.sc:5547:191023 */ a38221 = t69963; /* x285553 */ /* x285552 */ t69964 = a38221; /* x285551 */ if ((t69964.tag)==STRUCTURE_TYPE27753) goto l11825; /* x79924 */ /* x79923 stalin.sc:5548:191057 */ /* x79913 stalin.sc:5548:191062 */ /* x79912 stalin.sc:5548:191086 */ t69965 = a22591; /* x79911 stalin.sc:5548:191063 */ a38109 = t69965; /* x285105 */ /* x285104 */ t69966 = a38109; /* x285103 */ if (!((t69966.tag)==STRUCTURE_TYPE27756)) goto l11834; /* x79921 */ /* x79914 stalin.sc:5549:191096 */ if (a2040==FALSE_TYPE) goto l11837; /* x79917 stalin.sc:5550:191119 */ /* x79916 stalin.sc:5550:191166 */ t69968 = a22591; /* x79915 stalin.sc:5550:191120 */ if (!(f7324(t69968)==FALSE_TYPE)) goto l11825; goto l11838; l11837: /* x79920 stalin.sc:5551:191176 */ /* x79919 stalin.sc:5551:191183 */ t69967 = a22591; /* x79918 stalin.sc:5551:191177 */ if (!(f8918(t69967)==FALSE_TYPE)) goto l11825; l11838: l11834: /* x79908 */ /* x79907 stalin.sc:5552:191193 */ /* x79906 stalin.sc:5552:191218 */ t69969 = a22591; /* x79905 stalin.sc:5552:191194 */ a37963 = t69969; /* x284521 */ /* x284520 */ t69970 = a37963; /* x284519 */ if ((t69970.tag)==STRUCTURE_TYPE27750) goto l11825; /* x79902 */ /* x79895 stalin.sc:5558:191620 */ /* x79894 stalin.sc:5558:191637 */ t69971 = a22591; /* x79893 stalin.sc:5558:191621 */ a37695 = t69971; /* x283449 */ /* x283448 */ t69972 = a37695; /* x283447 */ if (!((t69972.tag)==STRUCTURE_TYPE27769)) goto l11826; /* x79900 */ /* x79899 stalin.sc:5558:191647 */ /* x79898 stalin.sc:5558:191669 */ t69974 = a22591; /* x79897 stalin.sc:5558:191648 */ a37641 = t69974; /* x283233 */ /* x283232 */ t69975 = a37641; /* x283231 */ if (!((t69975.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32558]"); structure_ref_error();} t69973 = t69975.value.structure_type27769->s1; /* x270029 stalin.sc:5558:191641 */ if (!((t69973.tag)==NULL_TYPE)) goto l11826; l11825: return TRUE_TYPE; l11826: return FALSE_TYPE;} /* CALLEE-ENVIRONMENT[9368] */ struct w49 f9368(struct w49 a22578, struct structure_type27745 *a22579) {struct w6852 a19218; /* S */ struct w49 a19583; /* S */ struct w49 a22582; /* E */ struct structure_type27745 *a22583; /* Y1 */ struct w49 a22584; /* E */ struct w49 a22587; /* E1 */ struct structure_type27745 *a36429; /* S */ struct structure_type27745 *a36430; /* S */ struct structure_type27745 *a36437; /* S */ struct structure_type27745 *a36438; /* S */ struct w49 a36616; /* S */ struct w49 a36678; /* S */ struct w49 a36679; /* S */ struct w49 a38491; /* S */ struct w49 a38492; /* S */ struct w49 a40049; /* S */ struct w49 a40050; /* S */ struct w49 t69976; struct w49 t69977; struct structure_type27745 *t69978; struct w49 t69979; struct structure_type27745 *t69980; struct w49 t69981; struct w49 t69982; struct structure_type24753 *t69983; struct w12224 t69984; struct structure_type24753 *t69985; struct w12224 t69986; struct structure_type27745 *t69987; struct w49 t69988; struct w49 t69989; struct w49 t69990; struct structure_type27745 *t69991; struct w49 t69992; struct w49 t69993; struct w49 t69994; struct structure_type27745 *t69995; struct structure_type27745 *t69996; struct w49 t69997; struct structure_type27745 *t69998; struct w49 t69999; struct structure_type27745 *t70000; struct structure_type27745 *t70001; struct w49 t70002; struct w49 t70003; struct w49 t70004; struct w49 t70005; struct w49 t70006; struct w49 t70007; struct structure_type27745 *t70008; struct structure_type27745 *t70009; char *t70010; struct w49 t70011; struct w49 t70012; struct w49 t70013; struct w49 t70014; struct w9140 t70015; struct w49 t70016; struct w49 t70017; struct w49 t70018; struct w6852 t70019; struct w49 t70020; struct w49 t70021; struct w49 t70022; struct w6852 t70023; struct w6852 t70024; struct w49 t70025; struct w49 t70026; struct w49 t70027; struct w49 t70028; struct w49 t70029; struct w49 t70030; struct structure_type27745 *t70031; struct structure_type27745 *t70032; struct w49 t70033; struct w49 t70034; struct structure_type27745 *t70035; struct structure_type27745 *t70036; struct w49 t70037; struct w49 t70038; struct w49 t70039; struct structure_type27745 *t70040; struct structure_type27745 *t70041; char *t70042; /* x79874 */ /* x79873 stalin.sc:5499:189308 */ /* x79701 stalin.sc:5499:189316 */ /* x79699 stalin.sc:5499:189337 */ t69979 = a22578; /* x79700 stalin.sc:5499:189339 */ t69980 = a22579; /* x79698 stalin.sc:5499:189317 */ if ((f9367(t69979, t69980).tag)==FALSE_TYPE) goto l11842; /* x79703 */ /* x79702 */ goto l11843; l11842: /* x79872 */ /* x79871 */ /* x79870 */ /* x79869 stalin.sc:5500:189344 */ /* x79862 stalin.sc:5500:189350 */ if (a2040==FALSE_TYPE) goto l11863; /* x79866 */ /* x79865 */ /* x79864 stalin.sc:5500:189366 */ /* x79863 stalin.sc:5500:189367 */ /* x295861 QobiScheme.sc:166:5314 */ /* x295860 QobiScheme.sc:166:5321 */ t70042 = "This shouldn\'t happen"; /* x295859 QobiScheme.sc:166:5315 */ stalin_panic(t70042); goto l11864; l11863: /* x79868 stalin.sc:5500:189344 */ /* x79867 stalin.sc:5500:189344 */ l11864: /* x79861 */ /* x79860 stalin.sc:5501:189379 */ /* x79859 stalin.sc:5501:189388 */ /* x79726 stalin.sc:5501:189392 */ /* x79719 stalin.sc:5501:189397 */ /* x79718 stalin.sc:5501:189418 */ t69991 = a22579; /* x79717 stalin.sc:5501:189398 */ /* MOVE: branching squeezed to general */ if (t69991>=((struct structure_type27745 *)VALUE_OFFSET)) {t69992.tag = STRUCTURE_TYPE27745; t69992.value.structure_type27745 = t69991;} else t69992.tag = (unsigned)t69991; if (f8752(t69992)==FALSE_TYPE) goto l11845; /* x79724 */ /* x79723 stalin.sc:5502:189459 */ /* x79722 stalin.sc:5502:189481 */ t69995 = a22579; /* x79721 stalin.sc:5502:189460 */ a36438 = t69995; /* x278421 */ /* x278420 */ t69996 = a36438; /* x278419 */ if (!(t69996>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31355]"); structure_ref_error();} t69993 = t69996->s0; /* x79720 stalin.sc:5502:189428 */ a38492 = t69993; /* x286637 */ /* x286636 */ t69994 = a38492; /* x286635 */ if (!((t69994.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ORIGINAL-EXPRESSION[5671] 33409]"); structure_ref_error();} if ((t69994.value.structure_type27698->s23.tag)==FALSE_TYPE) goto l11845; /* x79855 stalin.sc:5503:189494 */ /* x79854 stalin.sc:5503:189504 */ /* x79853 stalin.sc:5503:189522 */ /* x79852 stalin.sc:5504:189563 */ /* x79851 stalin.sc:5504:189585 */ t70040 = a22579; /* x79850 stalin.sc:5504:189564 */ a36437 = t70040; /* x278417 */ /* x278416 */ t70041 = a36437; /* x278415 */ if (!(t70041>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31354]"); structure_ref_error();} t70038 = t70041->s0; /* x79849 stalin.sc:5503:189523 */ a38491 = t70038; /* x286633 */ /* x286632 */ t70039 = a38491; /* x286631 */ if (!((t70039.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ORIGINAL-EXPRESSION[5671] 33408]"); structure_ref_error();} t70037 = t70039.value.structure_type27698->s23; /* x79848 stalin.sc:5503:189505 */ t69998 = f8739(t70037); /* x79847 */ a22583 = t69998; /* x79846 stalin.sc:5505:189594 */ /* x79730 stalin.sc:5505:189598 */ /* x79728 stalin.sc:5505:189619 */ t69999 = a22578; /* x79729 stalin.sc:5505:189621 */ t70000 = a22583; /* x79727 stalin.sc:5505:189599 */ t70001 = t70000; if ((f9367(t69999, t70001).tag)==FALSE_TYPE) goto l11849; /* x79842 stalin.sc:5506:189631 */ /* x79841 stalin.sc:5506:189640 */ /* x79840 stalin.sc:5506:189645 */ /* x79838 stalin.sc:5506:189666 */ t70034 = a22578; /* x79839 stalin.sc:5506:189668 */ t70035 = a22583; /* x79837 stalin.sc:5506:189646 */ t70036 = t70035; t70033 = f9367(t70034, t70036); /* x270030 stalin.sc:5506:189641 */ if (!((t70033.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 5506, 189640); structure_ref_error();} t70003 = t70033.value.structure_type24753->s1; /* x79835 */ a22584 = t70003; /* x79834 stalin.sc:5507:189682 */ /* x79738 stalin.sc:5508:189697 */ /* x79736 stalin.sc:5509:189712 */ /* x79735 stalin.sc:5509:189736 */ /* x79734 stalin.sc:5509:189758 */ t70008 = a22583; /* x79733 stalin.sc:5509:189737 */ a36430 = t70008; /* x278389 */ /* x278388 */ t70009 = a36430; /* x278387 */ t70006 = t70009->s0; /* x79732 stalin.sc:5509:189713 */ a40050 = t70006; /* x292869 */ /* x292868 */ t70007 = a40050; /* x292867 */ if (!((t70007.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34967]"); structure_ref_error();} t70004 = t70007.value.structure_type27698->s9; /* x79737 stalin.sc:5509:189763 */ t70005 = a22584; /* x79731 stalin.sc:5508:189698 */ if (f8736(t70004, t70005)==FALSE_TYPE) goto l11852; /* x79781 */ /* x79780 */ /* x79779 stalin.sc:5510:189775 */ /* x79778 stalin.sc:5510:189790 */ /* x79777 stalin.sc:5511:189825 */ /* x79776 stalin.sc:5511:189847 */ t70031 = a22579; /* x79775 stalin.sc:5511:189826 */ a36429 = t70031; /* x278385 */ /* x278384 */ t70032 = a36429; /* x278383 */ if (!(t70032>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31346]"); structure_ref_error();} t70029 = t70032->s0; /* x79774 stalin.sc:5510:189791 */ a40049 = t70029; /* x292865 */ /* x292864 */ t70030 = a40049; /* x292863 */ if (!((t70030.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34966]"); structure_ref_error();} t70016 = t70030.value.structure_type27698->s9; /* x79773 */ /* x79772 */ /* x79771 */ /* x79770 */ /* x79769 */ /* x79768 */ /* x79767 */ /* x79740 */ /* x79739 stalin.sc:5510:189780 */ a22587 = t70016; h9379: /* x79766 stalin.sc:5512:189856 */ /* x79759 stalin.sc:5512:189860 */ /* x79758 stalin.sc:5512:189864 */ /* x79756 stalin.sc:5512:189869 */ t70017 = a22584; /* x79757 stalin.sc:5512:189871 */ t70018 = a22587; /* x270032 stalin.sc:5512:189865 */ /* EQ: dispatching general to general */ if ((t70017.tag)==(t70018.tag)) switch (t70017.tag) {case FIXNUM_TYPE: if ((t70017.value.fixnum_type)==(t70018.value.fixnum_type)) goto l11858; break; case FLONUM_TYPE: if ((t70017.value.flonum_type)==(t70018.value.flonum_type)) goto l11858; break; case INPUT_PORT_TYPE: if ((t70017.value.input_port_type)==(t70018.value.input_port_type)) goto l11858; break; case OUTPUT_PORT_TYPE: if ((t70017.value.output_port_type)==(t70018.value.output_port_type)) goto l11858; break; case NATIVE_PROCEDURE_TYPE15963: if ((t70017.value.native_procedure_type15963)==(t70018.value.native_procedure_type15963)) goto l11858; break; case NATIVE_PROCEDURE_TYPE19067: if ((t70017.value.native_procedure_type19067)==(t70018.value.native_procedure_type19067)) goto l11858; break; case NATIVE_PROCEDURE_TYPE19068: if ((t70017.value.native_procedure_type19068)==(t70018.value.native_procedure_type19068)) goto l11858; break; case NATIVE_PROCEDURE_TYPE22459: if ((t70017.value.native_procedure_type22459)==(t70018.value.native_procedure_type22459)) goto l11858; break; case STRUCTURE_TYPE24753: if ((t70017.value.structure_type24753)==(t70018.value.structure_type24753)) goto l11858; break; case STRUCTURE_TYPE24757: if ((t70017.value.structure_type24757)==(t70018.value.structure_type24757)) goto l11858; break; case STRUCTURE_TYPE27501: if ((t70017.value.structure_type27501)==(t70018.value.structure_type27501)) goto l11858; break; case STRUCTURE_TYPE27510: if ((t70017.value.structure_type27510)==(t70018.value.structure_type27510)) goto l11858; break; case STRUCTURE_TYPE27621: if ((t70017.value.structure_type27621)==(t70018.value.structure_type27621)) goto l11858; break; case STRUCTURE_TYPE27650: if ((t70017.value.structure_type27650)==(t70018.value.structure_type27650)) goto l11858; break; case STRUCTURE_TYPE27669: if ((t70017.value.structure_type27669)==(t70018.value.structure_type27669)) goto l11858; break; case STRUCTURE_TYPE27673: if ((t70017.value.structure_type27673)==(t70018.value.structure_type27673)) goto l11858; break; case STRUCTURE_TYPE27692: if ((t70017.value.structure_type27692)==(t70018.value.structure_type27692)) goto l11858; break; case STRUCTURE_TYPE27694: if ((t70017.value.structure_type27694)==(t70018.value.structure_type27694)) goto l11858; break; case STRUCTURE_TYPE27698: if ((t70017.value.structure_type27698)==(t70018.value.structure_type27698)) goto l11858; break; case STRUCTURE_TYPE27745: if ((t70017.value.structure_type27745)==(t70018.value.structure_type27745)) goto l11858; break; case STRUCTURE_TYPE27747: if ((t70017.value.structure_type27747)==(t70018.value.structure_type27747)) goto l11858; break; case STRUCTURE_TYPE27750: if ((t70017.value.structure_type27750)==(t70018.value.structure_type27750)) goto l11858; break; case STRUCTURE_TYPE27753: if ((t70017.value.structure_type27753)==(t70018.value.structure_type27753)) goto l11858; break; case STRUCTURE_TYPE27756: if ((t70017.value.structure_type27756)==(t70018.value.structure_type27756)) goto l11858; break; case STRUCTURE_TYPE27761: if ((t70017.value.structure_type27761)==(t70018.value.structure_type27761)) goto l11858; break; case STRUCTURE_TYPE27769: if ((t70017.value.structure_type27769)==(t70018.value.structure_type27769)) goto l11858; break; case STRUCTURE_TYPE27776: if ((t70017.value.structure_type27776)==(t70018.value.structure_type27776)) goto l11858; break; case STRUCTURE_TYPE27779: if ((t70017.value.structure_type27779)==(t70018.value.structure_type27779)) goto l11858; break; case STRUCTURE_TYPE27858: if ((t70017.value.structure_type27858)==(t70018.value.structure_type27858)) goto l11858; break; case STRING_TYPE: if ((t70017.value.string_type)==(t70018.value.string_type)) goto l11858; break; case HEADED_VECTOR_TYPE27896: if ((t70017.value.headed_vector_type27896)==(t70018.value.headed_vector_type27896)) goto l11858; break; case EXTERNAL_SYMBOL_TYPE: if ((t70017.value.external_symbol_type)==(t70018.value.external_symbol_type)) goto l11858; break; case STRUCTURE_TYPE27908: if ((t70017.value.structure_type27908)==(t70018.value.structure_type27908)) goto l11858; break; default: goto l11858;} /* x79752 */ /* x79746 stalin.sc:5513:189884 */ /* x79745 stalin.sc:5513:189908 */ t70021 = a22584; /* x79744 stalin.sc:5513:189885 */ a36678 = t70021; /* x279381 */ /* x279380 */ t70022 = a36678; /* x279379 */ if (!((t70022.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31595]"); structure_ref_error();} t70019 = t70022.value.structure_type27694->s1; /* x79751 stalin.sc:5514:189920 */ /* x79750 stalin.sc:5515:189962 */ /* x79749 stalin.sc:5515:189986 */ t70025 = a22587; /* x79748 stalin.sc:5515:189963 */ a36679 = t70025; /* x279385 */ /* x279384 */ t70026 = a36679; /* x279383 */ if (!((t70026.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31596]"); structure_ref_error();} t70023 = t70026.value.structure_type27694->s1; /* x79747 stalin.sc:5514:189921 */ a19218 = t70023; /* x50538 */ /* x50537 */ t70024 = a19218; /* x50536 */ if (!((t70024.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-ORIGINAL-EXPRESSION[5671]"); structure_ref_error();} t70020 = t70024.value.structure_type27698->s23; /* x270033 stalin.sc:5513:189880 */ /* EQ: dispatching general to general */ if (!((t70019.tag)==(t70020.tag))) goto l11859; if ((t70019.tag)==STRUCTURE_TYPE27698) {if (!((t70019.value.structure_type27698)==(t70020.value.structure_type27698))) goto l11859;} else if (!((t70019.value.external_symbol_type)==(t70020.value.external_symbol_type))) goto l11859; l11858: /* x79760 stalin.sc:5516:190000 */ t69981 = a22587; goto l11860; l11859: /* x79765 stalin.sc:5517:190010 */ /* x79764 stalin.sc:5517:190016 */ /* x79763 stalin.sc:5517:190024 */ t70028 = a22587; /* x79762 stalin.sc:5517:190017 */ t70027 = f8682(t70028); /* x79761 stalin.sc:5517:190011 */ a22587 = t70027; goto h9379; l11860: goto l11853; l11852: /* x79833 */ /* x79787 stalin.sc:5518:190041 */ /* x79785 stalin.sc:5518:190046 */ /* x79784 stalin.sc:5518:190065 */ t70011 = a22584; /* x79783 stalin.sc:5518:190047 */ a36616 = t70011; /* x279133 */ /* x279132 */ t70012 = a36616; /* x279131 */ if (!((t70012.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-SPLIT[6655] 31533]"); structure_ref_error();} t70010 = t70012.value.structure_type27694->s3; /* x79786 stalin.sc:5518:190068 */ /* x270031 stalin.sc:5518:190042 */ if (!(t70010==((char *)TRUE_TYPE))) goto l11855; /* x79827 */ /* x79826 */ /* x79825 */ /* x79824 stalin.sc:5519:190081 */ /* x79792 stalin.sc:5519:190087 */ /* x79823 stalin.sc:5519:190081 */ /* x79822 stalin.sc:5519:190081 */ /* x79791 */ /* x79790 stalin.sc:5526:190343 */ /* x79789 stalin.sc:5526:190350 */ t70014 = a22584; /* x79788 stalin.sc:5526:190344 */ t70015 = f9362(t70014); t69981 = *((struct w49 *)(&t70015)); goto l11856; l11855: /* x79832 */ /* x79831 */ /* x79830 stalin.sc:5527:190368 */ /* x79829 stalin.sc:5527:190386 */ t70013 = a22578; /* x79828 stalin.sc:5527:190369 */ t69981 = f8966(t70013); l11856: l11853: goto l11850; l11849: /* x79845 stalin.sc:5528:190398 */ /* x79844 stalin.sc:5528:190416 */ t70002 = a22578; /* x79843 stalin.sc:5528:190399 */ t69981 = f8966(t70002); l11850: goto l11846; l11845: /* x79858 stalin.sc:5529:190429 */ /* x79857 stalin.sc:5529:190447 */ t69997 = a22578; /* x79856 stalin.sc:5529:190430 */ t69981 = f8966(t69997); l11846: /* x79716 */ a22582 = t69981; /* x79715 stalin.sc:5530:190456 */ /* x79705 stalin.sc:5531:190516 */ t69982 = a22578; /* x79714 stalin.sc:5532:190522 */ /* x79710 stalin.sc:5532:190528 */ /* x79708 stalin.sc:5532:190534 */ t69987 = a22579; /* x79709 stalin.sc:5532:190536 */ t69988 = a22582; /* x270034 stalin.sc:5532:190529 */ t69985 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t69985==NULL) {backtrace("stalin.sc", 5532, 190528); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t69987>=((struct structure_type27745 *)VALUE_OFFSET)) {t69985->s0.tag = STRUCTURE_TYPE27745; t69985->s0.value.structure_type27745 = t69987;} else t69985->s0.tag = (unsigned)t69987; t69985->s1 = t69988; /* x79713 stalin.sc:5532:190539 */ /* x79712 stalin.sc:5532:190590 */ t69989 = a22578; /* x79711 stalin.sc:5532:190540 */ a19583 = t69989; /* x51900 */ /* x51899 */ t69990 = a19583; /* x51898 */ if (!((t69990.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("NATIVE-PROCEDURE-TYPE-CALL-SITE-ENVIRONMENT-ALIST[5945]"); structure_ref_error();} t69986 = t69990.value.structure_type27756->s0; /* x270035 stalin.sc:5532:190523 */ t69983 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t69983==NULL) {backtrace("stalin.sc", 5532, 190522); out_of_memory_error();} t69983->s0.tag = STRUCTURE_TYPE24753; t69983->s0.value.structure_type24753 = t69985; t69983->s1 = *((struct w49 *)(&t69986)); /* x79704 stalin.sc:5530:190457 */ t69984.tag = STRUCTURE_TYPE24753; t69984.value.structure_type24753 = t69983; f5946(t69982, t69984); l11843: /* x79697 */ /* x79696 stalin.sc:5533:190598 */ /* x79695 stalin.sc:5533:190603 */ /* x79693 stalin.sc:5533:190624 */ t69977 = a22578; /* x79694 stalin.sc:5533:190626 */ t69978 = a22579; /* x79692 stalin.sc:5533:190604 */ t69976 = f9367(t69977, t69978); /* x270036 stalin.sc:5533:190599 */ if ((t69976.tag)==STRUCTURE_TYPE24753) return t69976.value.structure_type24753->s1; backtrace("stalin.sc", 5533, 190598); structure_ref_error();} /* CALLEE-ENVIRONMENT?[9367] */ struct w49 f9367(struct w49 a22576, struct structure_type27745 *a22577) {struct w49 a38019; /* S */ struct structure_type27745 *t70043; struct w12224 t70044; struct w49 t70045; struct w49 t70046; struct w49 t70047; struct w49 t70048; /* x79688 stalin.sc:5494:189179 */ /* x79683 stalin.sc:5494:189185 */ /* x79684 stalin.sc:5495:189208 */ t70043 = a22577; /* x79687 stalin.sc:5496:189217 */ /* x79686 stalin.sc:5496:189268 */ t70047 = a22576; /* x79685 stalin.sc:5496:189218 */ a38019 = t70047; /* x284745 */ /* x284744 */ t70048 = a38019; /* x284743 */ if (!((t70048.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-CALL-SITE-ENVIRONMENT-ALIST[5945] 32936]"); structure_ref_error();} t70044 = t70048.value.structure_type27756->s0; /* x79682 stalin.sc:5494:189180 */ /* MOVE: branching squeezed to general */ if (t70043>=((struct structure_type27745 *)VALUE_OFFSET)) {t70045.tag = STRUCTURE_TYPE27745; t70045.value.structure_type27745 = t70043;} else t70045.tag = (unsigned)t70043; t70046 = *((struct w49 *)(&t70044)); return f1182(t70045, t70046);} /* CLONE[9362] */ struct w9140 f9362(struct w49 a22572) {struct w6852 a22428; /* X */ struct w6852 a22573; /* X */ struct structure_type27698 *a22574; /* X1 */ struct w49 a36682; /* S */ struct structure_type27698 *a39467; /* S */ struct w6852 a39737; /* S */ struct w6852 t70049; struct structure_type27698 *t70050; struct structure_type27698 *t70051; struct structure_type27698 *t70052; struct structure_type27698 *t70053; struct w49 t70054; struct w49 t70055; struct w6852 t70056; struct w6852 t70057; struct w6852 t70058; struct w6852 t70059; struct w49 t70060; struct structure_type24753 *t70061; struct w49 t70062; struct w49 t70063; struct w49 t70064; /* x79679 stalin.sc:5488:188967 */ /* x79678 stalin.sc:5488:188977 */ /* x79677 stalin.sc:5488:189001 */ /* x79676 stalin.sc:5488:189019 */ t70064 = a22572; /* x79675 stalin.sc:5488:189002 */ t70062 = f8966(t70064); /* x79674 stalin.sc:5488:188978 */ a36682 = t70062; /* x279397 */ /* x279396 */ t70063 = a36682; /* x279395 */ if (!((t70063.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31599]"); structure_ref_error();} t70049 = t70063.value.structure_type27694->s1; /* x79673 */ a22573 = t70049; /* x79672 */ /* x79671 stalin.sc:5489:189029 */ /* x79670 stalin.sc:5489:189047 */ t70058 = a22573; /* x79669 stalin.sc:5489:189030 */ a22428 = t70058; /* x79652 stalin.sc:5170:176539 */ /* x79650 stalin.sc:5170:176553 */ t70059 = a22428; /* x79651 stalin.sc:5170:176561 */ /* x79649 */ /* x79648 */ /* x79647 */ /* x79646 */ /* x79645 */ /* x79644 */ /* x79643 */ /* x77998 */ /* x77997 stalin.sc:5170:176544 */ t70060 = *((struct w49 *)(&t70059)); t70061 = (struct structure_type24753 *)NULL_TYPE; t70050 = f9176(t70060, t70061); /* x79668 */ a22574 = t70050; /* x79667 */ /* x79666 */ /* x79665 */ /* x79664 stalin.sc:5490:189054 */ /* x79660 stalin.sc:5490:189078 */ t70053 = a22574; /* x79663 stalin.sc:5490:189081 */ /* x79662 stalin.sc:5490:189100 */ t70056 = a22573; /* x79661 stalin.sc:5490:189082 */ a39737 = t70056; /* x291617 */ /* x291616 */ t70057 = a39737; /* x291615 */ if (!((t70057.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34654]"); structure_ref_error();} t70054 = t70057.value.structure_type27698->s11; /* x79659 stalin.sc:5490:189055 */ t70055.tag = STRUCTURE_TYPE27698; t70055.value.structure_type27698 = t70053; f5576(t70055, t70054); /* x79658 */ /* x79657 stalin.sc:5491:189106 */ /* x79656 stalin.sc:5491:189137 */ t70051 = a22574; /* x79655 stalin.sc:5491:189107 */ a39467 = t70051; /* x290537 */ /* x290536 */ t70052 = a39467; /* x290535 */ return t70052->s13;} /* [inside LOOP 9359] */ struct structure_type27698 *f9359(struct p9176 *p9359, struct w49 a22571) {struct w49 t70065; struct structure_type24753 *t70066; /* x79603 stalin.sc:5479:188671 */ /* x79601 stalin.sc:5479:188677 */ t70065 = a22571; /* x79602 stalin.sc:5479:188679 */ t70066 = p9359->a22432; /* x79600 stalin.sc:5479:188672 */ return f9176(t70065, t70066);} /* [inside LOOP 9358] */ void f9358(struct p9356 *p9358, struct w49 a22570) {struct w49 t70067; struct structure_type27698 *t70068; struct w49 t70069; /* x79583 stalin.sc:5482:188850 */ /* x79581 stalin.sc:5482:188874 */ t70067 = a22570; /* x79582 stalin.sc:5482:188877 */ t70068 = p9358->a22566; /* x79580 stalin.sc:5482:188851 */ t70069.tag = STRUCTURE_TYPE27698; t70069.value.structure_type27698 = t70068; f5576(t70067, t70069); return;} /* [inside LOOP 9354] */ struct structure_type27698 *f9354(struct p9176 *p9354, struct w49 a22565) {struct w49 t70070; struct structure_type24753 *t70071; /* x79551 stalin.sc:5470:188284 */ /* x79549 stalin.sc:5470:188290 */ t70070 = a22565; /* x79550 stalin.sc:5470:188292 */ t70071 = p9354->a22432; /* x79548 stalin.sc:5470:188285 */ return f9176(t70070, t70071);} /* [inside LOOP 9353] */ void f9353(struct p9351 *p9353, struct w49 a22564) {struct w49 t70072; struct structure_type27698 *t70073; struct w49 t70074; /* x79531 stalin.sc:5473:188463 */ /* x79529 stalin.sc:5473:188487 */ t70072 = a22564; /* x79530 stalin.sc:5473:188490 */ t70073 = p9353->a22560; /* x79528 stalin.sc:5473:188464 */ t70074.tag = STRUCTURE_TYPE27698; t70074.value.structure_type27698 = t70073; f5576(t70072, t70074); return;} /* LOOP[9286] */ unsigned f9286(struct w49 a22517) {unsigned r9286; struct structure_type27692 *a22518; /* G */ struct structure_type27692 *a22520; /* G */ struct structure_type24753 *a35513; /* PAIR */ struct structure_type24753 *a36018; /* PAIR */ struct w16614 a37018; /* OBJ */ struct w49 t70075; struct w16638 t70076; struct w16614 t70077; struct w16614 t70078; char *t70079; struct structure_type27692 *t70080; struct structure_type27692 *t70081; struct structure_type27650 *t70082; struct w49 t70083; struct w49 t70084; struct structure_type27692 *t70085; struct w49 t70086; struct w16614 t70087; struct w49 t70088; struct structure_type27692 *t70089; struct structure_type27692 *t70090; unsigned t70091; struct w49 t70092; struct structure_type24753 *t70093; struct structure_type24753 *t70094; struct structure_type27692 *t70095; struct structure_type27650 *t70096; struct w49 t70097; struct w49 t70098; struct structure_type27692 *t70099; struct w49 t70100; struct w49 t70101; struct structure_type24753 *t70102; struct structure_type24753 *t70103; /* x78928 stalin.sc:5353:183902 */ /* x78871 stalin.sc:5353:183909 */ /* x78870 stalin.sc:5353:183916 */ t70075 = a22517; /* x270062 stalin.sc:5353:183910 */ if (!((t70075.tag)==NULL_TYPE)) goto l11866; /* x78874 */ /* x78873 */ /* x78872 stalin.sc:5353:183920 */ return (unsigned)NULL_TYPE; l11866: /* x78927 */ /* x78877 stalin.sc:5354:183935 */ /* x78876 stalin.sc:5354:183942 */ t70076 = *((struct w16638 *)(&a22517)); /* x270061 stalin.sc:5354:183936 */ if (!((t70076.tag)==STRUCTURE_TYPE24753)) goto l11868; /* x78902 */ /* x78901 */ /* x78900 stalin.sc:5355:183949 */ /* x78899 stalin.sc:5355:183958 */ /* x78898 stalin.sc:5355:183975 */ /* x78897 stalin.sc:5355:183982 */ t70102 = a22517.value.structure_type24753; /* x78896 stalin.sc:5355:183976 */ a36018 = t70102; /* x275429 */ /* x275428 */ t70103 = a36018; /* x275427 */ t70101 = t70103->s0; /* x78895 stalin.sc:5355:183959 */ t70089 = f8188(t70101); /* x78894 */ a22518 = t70089; /* x78893 */ /* x78892 stalin.sc:5356:183993 */ /* x78888 stalin.sc:5356:184017 */ t70095 = a22518; /* x78891 stalin.sc:5356:184019 */ /* x78890 stalin.sc:5356:184036 */ t70099 = a22518; /* x78889 stalin.sc:5356:184020 */ t70100.tag = STRUCTURE_TYPE27692; t70100.value.structure_type27692 = t70099; t70096 = f8092(t70100); /* x78887 stalin.sc:5356:183994 */ t70097.tag = STRUCTURE_TYPE27692; t70097.value.structure_type27692 = t70095; t70098.tag = STRUCTURE_TYPE27650; t70098.value.structure_type27650 = t70096; f6590(t70097, t70098); /* x78886 */ /* x78885 stalin.sc:5357:184044 */ /* x78879 stalin.sc:5357:184050 */ t70090 = a22518; /* x78884 stalin.sc:5357:184052 */ /* x78883 stalin.sc:5357:184058 */ /* x78882 stalin.sc:5357:184064 */ t70093 = a22517.value.structure_type24753; /* x78881 stalin.sc:5357:184059 */ a35513 = t70093; /* x273409 */ /* x273408 */ t70094 = a35513; /* x273407 */ t70092 = t70094->s1; /* x78880 stalin.sc:5357:184053 */ t70091 = f9286(t70092); /* x270060 stalin.sc:5357:184045 */ r9286 = ((unsigned)((struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753))))+1; if (((struct structure_type24753 *)(r9286-1))==NULL) {backtrace("stalin.sc", 5357, 184044); out_of_memory_error();} ((struct structure_type24753 *)(r9286-1))->s0.tag = STRUCTURE_TYPE27692; ((struct structure_type24753 *)(r9286-1))->s0.value.structure_type27692 = t70090; /* MOVE: dispatching squished to general */ if (t70091==NULL_TYPE) ((struct structure_type24753 *)(r9286-1))->s1.tag = (unsigned)t70091; else {if ((t70091&3)==1) {((struct structure_type24753 *)(r9286-1))->s1.tag = STRUCTURE_TYPE24753; ((struct structure_type24753 *)(r9286-1))->s1.value.structure_type24753 = (struct structure_type24753 *)(t70091-1);} else {((struct structure_type24753 *)(r9286-1))->s1.tag = STRUCTURE_TYPE27692; ((struct structure_type24753 *)(r9286-1))->s1.value.structure_type27692 = (struct structure_type27692 *)t70091;}} return r9286; l11868: /* x78926 */ /* x78905 stalin.sc:5358:184082 */ /* x78904 stalin.sc:5358:184093 */ t70077 = *((struct w16614 *)(&a22517)); /* x78903 stalin.sc:5358:184083 */ a37018 = t70077; /* x280741 */ /* x280740 */ t70078 = a37018; /* x280739 */ if (!((t70078.tag)==STRUCTURE_TYPE27692)) goto l11870; /* x78921 */ /* x78920 */ /* x78919 stalin.sc:5359:184100 */ /* x78918 stalin.sc:5359:184109 */ /* x78917 stalin.sc:5359:184126 */ t70087 = *((struct w16614 *)(&a22517)); /* x78916 stalin.sc:5359:184110 */ t70088 = *((struct w49 *)(&t70087)); t70080 = f8188(t70088); /* x78915 */ a22520 = t70080; /* x78914 */ /* x78913 stalin.sc:5360:184136 */ /* x78909 stalin.sc:5360:184160 */ t70081 = a22520; /* x78912 stalin.sc:5360:184162 */ /* x78911 stalin.sc:5360:184179 */ t70085 = a22520; /* x78910 stalin.sc:5360:184163 */ t70086.tag = STRUCTURE_TYPE27692; t70086.value.structure_type27692 = t70085; t70082 = f8092(t70086); /* x78908 stalin.sc:5360:184137 */ t70083.tag = STRUCTURE_TYPE27692; t70083.value.structure_type27692 = t70081; t70084.tag = STRUCTURE_TYPE27650; t70084.value.structure_type27650 = t70082; f6590(t70083, t70084); /* x78907 */ /* x78906 stalin.sc:5361:184187 */ return (unsigned)a22520; l11870: /* x78925 */ /* x78924 */ /* x78923 stalin.sc:5362:184206 */ /* x78922 stalin.sc:5362:184207 */ /* x296229 QobiScheme.sc:166:5314 */ /* x296228 QobiScheme.sc:166:5321 */ t70079 = "This shouldn\'t happen"; /* x296227 QobiScheme.sc:166:5315 */ stalin_panic(t70079);} /* LOOP[9256] */ unsigned f9256(struct w49 a22496) {unsigned r9256; struct structure_type27692 *a22497; /* G */ struct structure_type27692 *a22499; /* G */ struct structure_type24753 *a35504; /* PAIR */ struct structure_type24753 *a36011; /* PAIR */ struct w16614 a37013; /* OBJ */ struct w49 t70104; struct w16638 t70105; struct w16614 t70106; struct w16614 t70107; char *t70108; struct structure_type27692 *t70109; struct structure_type27692 *t70110; struct structure_type27650 *t70111; struct w49 t70112; struct w49 t70113; struct structure_type27692 *t70114; struct w49 t70115; struct w16614 t70116; struct w49 t70117; struct structure_type27692 *t70118; struct structure_type27692 *t70119; unsigned t70120; struct w49 t70121; struct structure_type24753 *t70122; struct structure_type24753 *t70123; struct structure_type27692 *t70124; struct structure_type27650 *t70125; struct w49 t70126; struct w49 t70127; struct structure_type27692 *t70128; struct w49 t70129; struct w49 t70130; struct structure_type24753 *t70131; struct structure_type24753 *t70132; /* x78686 stalin.sc:5300:181719 */ /* x78629 stalin.sc:5300:181726 */ /* x78628 stalin.sc:5300:181733 */ t70104 = a22496; /* x270071 stalin.sc:5300:181727 */ if (!((t70104.tag)==NULL_TYPE)) goto l11872; /* x78632 */ /* x78631 */ /* x78630 stalin.sc:5300:181737 */ return (unsigned)NULL_TYPE; l11872: /* x78685 */ /* x78635 stalin.sc:5301:181752 */ /* x78634 stalin.sc:5301:181759 */ t70105 = *((struct w16638 *)(&a22496)); /* x270070 stalin.sc:5301:181753 */ if (!((t70105.tag)==STRUCTURE_TYPE24753)) goto l11874; /* x78660 */ /* x78659 */ /* x78658 stalin.sc:5302:181766 */ /* x78657 stalin.sc:5302:181775 */ /* x78656 stalin.sc:5302:181792 */ /* x78655 stalin.sc:5302:181799 */ t70131 = a22496.value.structure_type24753; /* x78654 stalin.sc:5302:181793 */ a36011 = t70131; /* x275401 */ /* x275400 */ t70132 = a36011; /* x275399 */ t70130 = t70132->s0; /* x78653 stalin.sc:5302:181776 */ t70118 = f8188(t70130); /* x78652 */ a22497 = t70118; /* x78651 */ /* x78650 stalin.sc:5303:181810 */ /* x78646 stalin.sc:5303:181834 */ t70124 = a22497; /* x78649 stalin.sc:5303:181836 */ /* x78648 stalin.sc:5303:181853 */ t70128 = a22497; /* x78647 stalin.sc:5303:181837 */ t70129.tag = STRUCTURE_TYPE27692; t70129.value.structure_type27692 = t70128; t70125 = f8092(t70129); /* x78645 stalin.sc:5303:181811 */ t70126.tag = STRUCTURE_TYPE27692; t70126.value.structure_type27692 = t70124; t70127.tag = STRUCTURE_TYPE27650; t70127.value.structure_type27650 = t70125; f6590(t70126, t70127); /* x78644 */ /* x78643 stalin.sc:5304:181861 */ /* x78637 stalin.sc:5304:181867 */ t70119 = a22497; /* x78642 stalin.sc:5304:181869 */ /* x78641 stalin.sc:5304:181875 */ /* x78640 stalin.sc:5304:181881 */ t70122 = a22496.value.structure_type24753; /* x78639 stalin.sc:5304:181876 */ a35504 = t70122; /* x273373 */ /* x273372 */ t70123 = a35504; /* x273371 */ t70121 = t70123->s1; /* x78638 stalin.sc:5304:181870 */ t70120 = f9256(t70121); /* x270069 stalin.sc:5304:181862 */ r9256 = ((unsigned)((struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753))))+1; if (((struct structure_type24753 *)(r9256-1))==NULL) {backtrace("stalin.sc", 5304, 181861); out_of_memory_error();} ((struct structure_type24753 *)(r9256-1))->s0.tag = STRUCTURE_TYPE27692; ((struct structure_type24753 *)(r9256-1))->s0.value.structure_type27692 = t70119; /* MOVE: dispatching squished to general */ if (t70120==NULL_TYPE) ((struct structure_type24753 *)(r9256-1))->s1.tag = (unsigned)t70120; else {if ((t70120&3)==1) {((struct structure_type24753 *)(r9256-1))->s1.tag = STRUCTURE_TYPE24753; ((struct structure_type24753 *)(r9256-1))->s1.value.structure_type24753 = (struct structure_type24753 *)(t70120-1);} else {((struct structure_type24753 *)(r9256-1))->s1.tag = STRUCTURE_TYPE27692; ((struct structure_type24753 *)(r9256-1))->s1.value.structure_type27692 = (struct structure_type27692 *)t70120;}} return r9256; l11874: /* x78684 */ /* x78663 stalin.sc:5305:181899 */ /* x78662 stalin.sc:5305:181910 */ t70106 = *((struct w16614 *)(&a22496)); /* x78661 stalin.sc:5305:181900 */ a37013 = t70106; /* x280721 */ /* x280720 */ t70107 = a37013; /* x280719 */ if (!((t70107.tag)==STRUCTURE_TYPE27692)) goto l11876; /* x78679 */ /* x78678 */ /* x78677 stalin.sc:5306:181917 */ /* x78676 stalin.sc:5306:181926 */ /* x78675 stalin.sc:5306:181943 */ t70116 = *((struct w16614 *)(&a22496)); /* x78674 stalin.sc:5306:181927 */ t70117 = *((struct w49 *)(&t70116)); t70109 = f8188(t70117); /* x78673 */ a22499 = t70109; /* x78672 */ /* x78671 stalin.sc:5307:181953 */ /* x78667 stalin.sc:5307:181977 */ t70110 = a22499; /* x78670 stalin.sc:5307:181979 */ /* x78669 stalin.sc:5307:181996 */ t70114 = a22499; /* x78668 stalin.sc:5307:181980 */ t70115.tag = STRUCTURE_TYPE27692; t70115.value.structure_type27692 = t70114; t70111 = f8092(t70115); /* x78666 stalin.sc:5307:181954 */ t70112.tag = STRUCTURE_TYPE27692; t70112.value.structure_type27692 = t70110; t70113.tag = STRUCTURE_TYPE27650; t70113.value.structure_type27650 = t70111; f6590(t70112, t70113); /* x78665 */ /* x78664 stalin.sc:5308:182004 */ return (unsigned)a22499; l11876: /* x78683 */ /* x78682 */ /* x78681 stalin.sc:5309:182023 */ /* x78680 stalin.sc:5309:182024 */ /* x296201 QobiScheme.sc:166:5314 */ /* x296200 QobiScheme.sc:166:5321 */ t70108 = "This shouldn\'t happen"; /* x296199 QobiScheme.sc:166:5315 */ stalin_panic(t70108);} /* LOOP[9226] */ unsigned f9226(struct w49 a22475) {unsigned r9226; struct structure_type27692 *a22476; /* G */ struct structure_type27692 *a22478; /* G */ struct structure_type24753 *a35503; /* PAIR */ struct structure_type24753 *a36010; /* PAIR */ struct w16614 a37012; /* OBJ */ struct w49 t70133; struct w16638 t70134; struct w16614 t70135; struct w16614 t70136; char *t70137; struct structure_type27692 *t70138; struct structure_type27692 *t70139; struct structure_type27650 *t70140; struct w49 t70141; struct w49 t70142; struct structure_type27692 *t70143; struct w49 t70144; struct w16614 t70145; struct w49 t70146; struct structure_type27692 *t70147; struct structure_type27692 *t70148; unsigned t70149; struct w49 t70150; struct structure_type24753 *t70151; struct structure_type24753 *t70152; struct structure_type27692 *t70153; struct structure_type27650 *t70154; struct w49 t70155; struct w49 t70156; struct structure_type27692 *t70157; struct w49 t70158; struct w49 t70159; struct structure_type24753 *t70160; struct structure_type24753 *t70161; /* x78444 stalin.sc:5247:179553 */ /* x78387 stalin.sc:5247:179560 */ /* x78386 stalin.sc:5247:179567 */ t70133 = a22475; /* x270080 stalin.sc:5247:179561 */ if (!((t70133.tag)==NULL_TYPE)) goto l11878; /* x78390 */ /* x78389 */ /* x78388 stalin.sc:5247:179571 */ return (unsigned)NULL_TYPE; l11878: /* x78443 */ /* x78393 stalin.sc:5248:179586 */ /* x78392 stalin.sc:5248:179593 */ t70134 = *((struct w16638 *)(&a22475)); /* x270079 stalin.sc:5248:179587 */ if (!((t70134.tag)==STRUCTURE_TYPE24753)) goto l11880; /* x78418 */ /* x78417 */ /* x78416 stalin.sc:5249:179600 */ /* x78415 stalin.sc:5249:179609 */ /* x78414 stalin.sc:5249:179626 */ /* x78413 stalin.sc:5249:179633 */ t70160 = a22475.value.structure_type24753; /* x78412 stalin.sc:5249:179627 */ a36010 = t70160; /* x275397 */ /* x275396 */ t70161 = a36010; /* x275395 */ t70159 = t70161->s0; /* x78411 stalin.sc:5249:179610 */ t70147 = f8188(t70159); /* x78410 */ a22476 = t70147; /* x78409 */ /* x78408 stalin.sc:5250:179644 */ /* x78404 stalin.sc:5250:179668 */ t70153 = a22476; /* x78407 stalin.sc:5250:179670 */ /* x78406 stalin.sc:5250:179687 */ t70157 = a22476; /* x78405 stalin.sc:5250:179671 */ t70158.tag = STRUCTURE_TYPE27692; t70158.value.structure_type27692 = t70157; t70154 = f8092(t70158); /* x78403 stalin.sc:5250:179645 */ t70155.tag = STRUCTURE_TYPE27692; t70155.value.structure_type27692 = t70153; t70156.tag = STRUCTURE_TYPE27650; t70156.value.structure_type27650 = t70154; f6590(t70155, t70156); /* x78402 */ /* x78401 stalin.sc:5251:179695 */ /* x78395 stalin.sc:5251:179701 */ t70148 = a22476; /* x78400 stalin.sc:5251:179703 */ /* x78399 stalin.sc:5251:179709 */ /* x78398 stalin.sc:5251:179715 */ t70151 = a22475.value.structure_type24753; /* x78397 stalin.sc:5251:179710 */ a35503 = t70151; /* x273369 */ /* x273368 */ t70152 = a35503; /* x273367 */ t70150 = t70152->s1; /* x78396 stalin.sc:5251:179704 */ t70149 = f9226(t70150); /* x270078 stalin.sc:5251:179696 */ r9226 = ((unsigned)((struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753))))+1; if (((struct structure_type24753 *)(r9226-1))==NULL) {backtrace("stalin.sc", 5251, 179695); out_of_memory_error();} ((struct structure_type24753 *)(r9226-1))->s0.tag = STRUCTURE_TYPE27692; ((struct structure_type24753 *)(r9226-1))->s0.value.structure_type27692 = t70148; /* MOVE: dispatching squished to general */ if (t70149==NULL_TYPE) ((struct structure_type24753 *)(r9226-1))->s1.tag = (unsigned)t70149; else {if ((t70149&3)==1) {((struct structure_type24753 *)(r9226-1))->s1.tag = STRUCTURE_TYPE24753; ((struct structure_type24753 *)(r9226-1))->s1.value.structure_type24753 = (struct structure_type24753 *)(t70149-1);} else {((struct structure_type24753 *)(r9226-1))->s1.tag = STRUCTURE_TYPE27692; ((struct structure_type24753 *)(r9226-1))->s1.value.structure_type27692 = (struct structure_type27692 *)t70149;}} return r9226; l11880: /* x78442 */ /* x78421 stalin.sc:5252:179733 */ /* x78420 stalin.sc:5252:179744 */ t70135 = *((struct w16614 *)(&a22475)); /* x78419 stalin.sc:5252:179734 */ a37012 = t70135; /* x280717 */ /* x280716 */ t70136 = a37012; /* x280715 */ if (!((t70136.tag)==STRUCTURE_TYPE27692)) goto l11882; /* x78437 */ /* x78436 */ /* x78435 stalin.sc:5253:179751 */ /* x78434 stalin.sc:5253:179760 */ /* x78433 stalin.sc:5253:179777 */ t70145 = *((struct w16614 *)(&a22475)); /* x78432 stalin.sc:5253:179761 */ t70146 = *((struct w49 *)(&t70145)); t70138 = f8188(t70146); /* x78431 */ a22478 = t70138; /* x78430 */ /* x78429 stalin.sc:5254:179787 */ /* x78425 stalin.sc:5254:179811 */ t70139 = a22478; /* x78428 stalin.sc:5254:179813 */ /* x78427 stalin.sc:5254:179830 */ t70143 = a22478; /* x78426 stalin.sc:5254:179814 */ t70144.tag = STRUCTURE_TYPE27692; t70144.value.structure_type27692 = t70143; t70140 = f8092(t70144); /* x78424 stalin.sc:5254:179788 */ t70141.tag = STRUCTURE_TYPE27692; t70141.value.structure_type27692 = t70139; t70142.tag = STRUCTURE_TYPE27650; t70142.value.structure_type27650 = t70140; f6590(t70141, t70142); /* x78423 */ /* x78422 stalin.sc:5255:179838 */ return (unsigned)a22478; l11882: /* x78441 */ /* x78440 */ /* x78439 stalin.sc:5256:179857 */ /* x78438 stalin.sc:5256:179858 */ /* x296197 QobiScheme.sc:166:5314 */ /* x296196 QobiScheme.sc:166:5321 */ t70137 = "This shouldn\'t happen"; /* x296195 QobiScheme.sc:166:5315 */ stalin_panic(t70137);} /* LOOP[9176] */ struct structure_type27698 *f9176(struct w49 a22431, struct structure_type24753 *a22432) {struct w49 a20460; /* S */ struct w49 a20470; /* S */ struct w49 a20480; /* S */ char *a22433; /* v */ struct structure_type27698 *a22434; /* X */ struct structure_type27698 *a22436; /* X */ struct structure_type27698 *a22438; /* X */ struct structure_type27698 *a22440; /* X */ struct structure_type27698 *a22442; /* X */ struct structure_type27698 *a22444; /* X */ struct structure_type27698 *a22446; /* X */ struct structure_type27698 *a22448; /* X */ struct structure_type27698 *a22450; /* X */ struct structure_type27698 *a22452; /* X */ struct structure_type27698 *a22456; /* X */ struct structure_type27694 *a22461; /* E1 */ unsigned a22466; /* GS */ struct structure_type27698 *a22467; /* X1 */ struct structure_type27694 *a22482; /* E1 */ unsigned a22487; /* GS */ struct structure_type27698 *a22488; /* X1 */ struct structure_type27694 *a22503; /* E1 */ unsigned a22508; /* GS */ struct structure_type27698 *a22509; /* X1 */ struct structure_type27698 *a22524; /* X */ struct w49 a22531; /* GSS1 */ struct w49 a22532; /* E */ struct w49 a22535; /* GS1 */ struct w49 a22536; /* GS2 */ struct structure_type27698 *a22538; /* X */ struct structure_type27698 *a22543; /* X */ struct structure_type27698 *a22545; /* X */ struct structure_type27698 *a22547; /* X */ struct w49 a22553; /* GSS1 */ struct w49 a22554; /* E */ struct w49 a22557; /* GS1 */ struct w49 a22558; /* GS2 */ struct structure_type27698 *a22560; /* X */ struct structure_type27698 *a22566; /* X */ struct w49 a35505; /* PAIR */ struct w16638 a35506; /* PAIR */ struct w16638 a35507; /* PAIR */ struct w49 a35508; /* PAIR */ struct w49 a35509; /* PAIR */ struct w16638 a35510; /* PAIR */ struct w16638 a35511; /* PAIR */ struct w49 a35512; /* PAIR */ struct w16638 a36012; /* PAIR */ struct w16638 a36013; /* PAIR */ struct w16638 a36014; /* PAIR */ struct w16638 a36015; /* PAIR */ struct w16638 a36016; /* PAIR */ struct w16638 a36017; /* PAIR */ struct w49 a36624; /* S */ struct w49 a36625; /* S */ struct w49 a36626; /* S */ struct w49 a36680; /* S */ struct w49 a36681; /* S */ struct w49 a36796; /* S */ struct w16638 a37014; /* OBJ */ struct w16638 a37015; /* OBJ */ struct w16638 a37016; /* OBJ */ struct w16638 a37017; /* OBJ */ struct structure_type27698 *a38544; /* S */ struct structure_type27698 *a38545; /* S */ struct w49 a38546; /* S */ struct w49 a38547; /* S */ struct structure_type27698 *a38639; /* S */ struct structure_type27698 *a38640; /* S */ struct w49 a38641; /* S */ struct w49 a38642; /* S */ struct structure_type27698 *a38898; /* S */ struct w49 a38899; /* S */ struct structure_type27698 *a38950; /* S */ struct w49 a38951; /* S */ struct structure_type27698 *a39003; /* S */ struct w49 a39004; /* S */ struct structure_type27698 *a39059; /* S */ struct w49 a39060; /* S */ struct w49 a39103; /* S */ struct w49 a39104; /* S */ struct w49 a39105; /* S */ struct w49 a39106; /* S */ struct structure_type27698 *a39107; /* S */ struct structure_type27698 *a39108; /* S */ struct structure_type27698 *a39109; /* S */ struct structure_type27698 *a39110; /* S */ struct w49 a39111; /* S */ struct structure_type27698 *a39112; /* S */ struct structure_type27698 *a39113; /* S */ struct structure_type27698 *a39114; /* S */ struct structure_type27698 *a39115; /* S */ struct w49 a39116; /* S */ struct structure_type27698 *a39210; /* S */ struct w49 a39211; /* S */ struct structure_type27698 *a39212; /* S */ struct w49 a39213; /* S */ struct structure_type27698 *a39214; /* S */ struct w49 a39215; /* S */ struct w49 a39428; /* S */ struct w49 a39429; /* S */ struct w6852 a39430; /* S */ struct w6852 a39431; /* S */ struct w49 a39432; /* S */ struct w49 a39468; /* S */ struct w49 a39469; /* S */ struct w49 a39470; /* S */ struct w49 a39471; /* S */ struct w49 a39472; /* S */ struct w49 a39473; /* S */ struct w49 a39474; /* S */ struct w49 a39475; /* S */ struct w49 a39476; /* S */ struct w49 a39477; /* S */ struct w49 a39478; /* S */ struct w49 a39479; /* S */ struct w49 a39480; /* S */ struct w49 a39481; /* S */ struct w49 a39482; /* S */ struct w49 a39534; /* S */ struct w49 a39535; /* S */ struct w49 a39536; /* S */ struct w49 a39537; /* S */ struct w49 a39538; /* S */ struct w49 a39539; /* S */ struct structure_type27698 *a39540; /* S */ struct structure_type27698 *a39541; /* S */ struct w49 a39542; /* S */ struct w49 a39543; /* S */ struct structure_type27698 *a39544; /* S */ struct w49 a39545; /* S */ struct w49 a39546; /* S */ struct w49 a39547; /* S */ struct w49 a39940; /* S */ struct w49 a39941; /* S */ struct w49 a39942; /* S */ struct w49 a40070; /* S */ struct w49 a40071; /* S */ struct w49 a40293; /* S */ struct p9176 *t70162; char *t70163; char *t70164; char *t70165; struct w49 t70166; struct w49 t70167; char *t70168; char *t70169; struct w49 t70170; struct w49 t70171; char *t70172; char *t70173; struct w49 t70174; struct w49 t70175; char *t70176; char *t70177; struct w49 t70178; struct w49 t70179; char *t70180; char *t70181; struct w49 t70182; struct w49 t70183; char *t70184; char *t70185; struct w49 t70186; struct w49 t70187; char *t70188; char *t70189; struct w49 t70190; struct w49 t70191; char *t70192; char *t70193; struct w49 t70194; struct w49 t70195; char *t70196; char *t70197; struct w49 t70198; struct w49 t70199; char *t70200; char *t70201; struct w49 t70202; struct w49 t70203; char *t70204; char *t70205; struct w49 t70206; struct w49 t70207; char *t70208; char *t70209; struct w49 t70210; struct w49 t70211; char *t70212; char *t70213; struct w49 t70214; struct w49 t70215; char *t70216; char *t70217; struct w49 t70218; struct w49 t70219; char *t70220; char *t70221; struct w49 t70222; struct w49 t70223; char *t70224; char *t70225; struct w49 t70226; struct w49 t70227; char *t70228; char *t70229; struct w49 t70230; struct w49 t70231; char *t70232; char *t70233; struct w49 t70234; struct w49 t70235; char *t70236; char *t70237; struct w49 t70238; struct w49 t70239; char *t70240; char *t70241; struct w49 t70242; struct w49 t70243; char *t70244; char *t70245; struct w49 t70246; struct w49 t70247; char *t70248; struct p9176 *t70249; struct structure_type27698 *t70250; struct p9356 *t70251; struct structure_type27698 *t70252; struct structure_type27650 *t70253; struct w49 t70254; struct w49 t70255; struct structure_type27698 *t70256; struct w49 t70257; struct w49 t70258; struct structure_type27698 *t70259; struct w49 t70260; struct structure_type27698 *t70261; struct structure_type27698 *t70262; struct p9356 *t70263; struct w11873 t70264; struct w36108 t70265; struct w49 t70266; struct structure_type24753 *t70267; struct structure_type27698 *t70268; struct structure_type27698 *t70269; struct w49 t70270; struct structure_type27698 *t70271; struct structure_type24753 *t70272; struct w49 t70273; struct structure_type24753 *t70274; struct w49 t70275; struct w49 t70276; struct p9176 *t70277; struct w11873 t70278; struct w36270 t70279; struct w49 t70280; struct structure_type24753 *t70281; struct w49 t70282; struct w49 t70283; struct p9176 *t70284; struct structure_type27698 *t70285; struct p9351 *t70286; struct structure_type27698 *t70287; struct structure_type27650 *t70288; struct w49 t70289; struct w49 t70290; struct structure_type27698 *t70291; struct w49 t70292; struct w49 t70293; struct structure_type27698 *t70294; struct w49 t70295; struct structure_type27698 *t70296; struct structure_type27698 *t70297; struct p9351 *t70298; struct w11873 t70299; struct w36108 t70300; struct w49 t70301; struct structure_type24753 *t70302; struct structure_type27698 *t70303; struct structure_type27698 *t70304; struct w49 t70305; struct structure_type27698 *t70306; struct structure_type24753 *t70307; struct w49 t70308; struct w12224 t70309; struct w49 t70310; struct structure_type24753 *t70311; struct w49 t70312; struct w49 t70313; struct p9176 *t70314; struct w11873 t70315; struct w36270 t70316; struct w49 t70317; struct structure_type24753 *t70318; struct w49 t70319; struct w49 t70320; struct p9176 *t70321; struct structure_type27698 *t70322; struct structure_type27698 *t70323; struct structure_type27650 *t70324; struct w49 t70325; struct w49 t70326; struct structure_type27698 *t70327; struct w49 t70328; struct w49 t70329; struct structure_type24753 *t70330; struct w12224 t70331; struct structure_type27698 *t70332; struct structure_type27698 *t70333; struct structure_type27698 *t70334; struct w12224 t70335; struct w49 t70336; struct w49 t70337; struct structure_type27698 *t70338; struct structure_type27698 *t70339; struct w49 t70340; struct structure_type24753 *t70341; struct w12224 t70342; struct structure_type27698 *t70343; struct structure_type27698 *t70344; struct structure_type27698 *t70345; struct w12224 t70346; struct w49 t70347; struct w49 t70348; struct structure_type27698 *t70349; struct structure_type27698 *t70350; struct w49 t70351; struct w49 t70352; struct structure_type24753 *t70353; struct w49 t70354; struct w49 t70355; struct w49 t70356; struct w9296 t70357; struct w49 t70358; struct w49 t70359; struct w16638 t70360; struct w16638 t70361; struct w16638 t70362; struct w16638 t70363; struct w16638 t70364; struct w16638 t70365; char *t70366; struct w16638 t70367; struct w49 t70368; struct w49 t70369; struct w49 t70370; struct w49 t70371; struct w49 t70372; struct w49 t70373; struct w49 t70374; struct w49 t70375; struct w49 t70376; struct w49 t70377; struct w16638 t70378; struct w16638 t70379; struct w49 t70380; struct w49 t70381; struct w49 t70382; struct w49 t70383; struct w16638 t70384; struct w16638 t70385; struct w16638 t70386; struct w16638 t70387; struct w16638 t70388; struct w16638 t70389; char *t70390; struct w49 t70391; struct w49 t70392; struct w49 t70393; struct w49 t70394; struct w49 t70395; struct w49 t70396; char *t70397; struct w16638 t70398; struct w16638 t70399; struct w6852 t70400; struct w6852 t70401; struct w49 t70402; struct w49 t70403; struct w49 t70404; struct w49 t70405; struct w49 t70406; struct w49 t70407; struct structure_type27698 *t70408; struct structure_type27698 *t70409; struct structure_type27650 *t70410; struct w49 t70411; struct w49 t70412; struct structure_type27698 *t70413; struct w49 t70414; char *t70415; struct w49 t70416; struct w49 t70417; struct w49 t70418; struct w49 t70419; struct structure_type27698 *t70420; struct structure_type27698 *t70421; struct structure_type27650 *t70422; struct w49 t70423; struct w49 t70424; struct structure_type27698 *t70425; struct w49 t70426; char *t70427; struct w49 t70428; struct w49 t70429; struct w49 t70430; struct w49 t70431; struct p9176 *t70432; struct structure_type27698 *t70433; struct structure_type27698 *t70434; struct structure_type27650 *t70435; struct w49 t70436; struct w49 t70437; struct structure_type27698 *t70438; struct w49 t70439; struct w49 t70440; struct structure_type27698 *t70441; struct w49 t70442; struct structure_type27698 *t70443; struct structure_type27698 *t70444; struct w49 t70445; struct structure_type27698 *t70446; struct w49 t70447; struct structure_type27698 *t70448; struct structure_type27698 *t70449; struct w49 t70450; struct structure_type27698 *t70451; struct w49 t70452; struct structure_type27698 *t70453; struct structure_type27698 *t70454; struct w49 t70455; struct structure_type27698 *t70456; struct structure_type27698 *t70457; struct structure_type27698 *t70458; struct w49 t70459; struct w49 t70460; struct w49 t70461; struct w49 t70462; struct structure_type24753 *t70463; struct w49 t70464; struct w49 t70465; struct w49 t70466; struct structure_type24753 *t70467; struct w49 t70468; struct w49 t70469; struct w49 t70470; struct structure_type24753 *t70471; struct w49 t70472; struct w49 t70473; struct p9176 *t70474; struct structure_type27698 *t70475; struct structure_type27698 *t70476; struct structure_type27650 *t70477; struct w49 t70478; struct w49 t70479; struct structure_type27698 *t70480; struct w49 t70481; struct w49 t70482; struct structure_type27698 *t70483; struct w49 t70484; struct structure_type27698 *t70485; struct structure_type27698 *t70486; struct w49 t70487; struct structure_type24753 *t70488; struct w12224 t70489; struct structure_type27698 *t70490; struct structure_type27698 *t70491; struct structure_type27698 *t70492; struct w12224 t70493; struct w49 t70494; struct w49 t70495; struct structure_type27698 *t70496; struct structure_type27698 *t70497; struct w49 t70498; struct structure_type24753 *t70499; struct w12224 t70500; struct structure_type27698 *t70501; struct structure_type27698 *t70502; struct structure_type27698 *t70503; struct w12224 t70504; struct w49 t70505; struct w49 t70506; struct structure_type27698 *t70507; struct structure_type27698 *t70508; struct w49 t70509; struct w49 t70510; struct structure_type27698 *t70511; struct w49 t70512; struct structure_type24753 *t70513; struct w49 t70514; struct w49 t70515; struct w49 t70516; struct w9296 t70517; struct w49 t70518; struct w49 t70519; struct w16638 t70520; struct w16638 t70521; struct w16638 t70522; struct w16638 t70523; struct w16638 t70524; struct w16638 t70525; char *t70526; struct w16638 t70527; struct w49 t70528; struct w49 t70529; struct w49 t70530; struct w49 t70531; struct w49 t70532; struct w49 t70533; struct w49 t70534; struct w49 t70535; struct w49 t70536; struct w49 t70537; struct w16638 t70538; struct w16638 t70539; struct w49 t70540; struct w49 t70541; struct w49 t70542; struct w49 t70543; struct w16638 t70544; struct w16638 t70545; struct w16638 t70546; struct w16638 t70547; struct w16638 t70548; struct w16638 t70549; char *t70550; struct w49 t70551; struct w49 t70552; struct w49 t70553; struct w49 t70554; struct w49 t70555; struct w49 t70556; char *t70557; struct w16638 t70558; struct w16638 t70559; struct w6852 t70560; struct w6852 t70561; struct w49 t70562; struct w49 t70563; struct w49 t70564; struct w49 t70565; struct w49 t70566; struct w49 t70567; struct w49 t70568; struct structure_type24753 *t70569; struct w49 t70570; struct w49 t70571; struct p9176 *t70572; struct p9176 *t70573; struct structure_type27694 *t70574; struct p9176 *t70575; struct p9176 *t70576; unsigned t70577; struct p9176 *t70578; struct structure_type27698 *t70579; struct p9176 *t70580; struct structure_type24753 *t70581; struct structure_type27698 *t70582; unsigned t70583; struct w49 t70584; struct w49 t70585; struct structure_type27698 *t70586; struct w49 t70587; struct w49 t70588; struct structure_type24753 *t70589; struct structure_type27698 *t70590; struct w49 t70591; struct structure_type27650 *t70592; struct w49 t70593; struct w49 t70594; struct structure_type27698 *t70595; struct w49 t70596; struct w49 t70597; struct structure_type27698 *t70598; struct w49 t70599; struct structure_type27698 *t70600; struct structure_type27698 *t70601; struct structure_type27694 *t70602; struct w49 t70603; struct structure_type27694 *t70604; struct w49 t70605; struct w49 t70606; struct structure_type27694 *t70607; unsigned t70608; struct structure_type27698 *t70609; struct w49 t70610; struct w49 t70611; struct structure_type24753 *t70612; struct structure_type24753 *t70613; struct structure_type27698 *t70614; struct w49 t70615; struct w49 t70616; unsigned t70617; struct structure_type24753 *t70618; struct w9296 t70619; struct w49 t70620; struct w49 t70621; struct w49 t70622; struct structure_type27694 *t70623; struct w49 t70624; char *t70625; struct structure_type24753 *t70626; struct w49 t70627; struct structure_type24753 *t70628; struct w12224 t70629; struct w9140 t70630; struct w49 t70631; struct w49 t70632; struct w49 t70633; struct structure_type27694 *t70634; struct w11873 t70635; struct w9140 t70636; struct w49 t70637; struct w49 t70638; struct w49 t70639; struct structure_type27694 *t70640; struct w49 t70641; struct w49 t70642; struct w9140 t70643; struct w49 t70644; struct w49 t70645; struct w49 t70646; struct structure_type27694 *t70647; struct w49 t70648; struct w12224 t70649; struct structure_type27694 *t70650; struct w49 t70651; struct w49 t70652; struct w9140 t70653; struct w49 t70654; struct w49 t70655; struct w49 t70656; char *t70657; struct w49 t70658; char *t70659; struct w49 t70660; struct w49 t70661; struct w9140 t70662; struct w49 t70663; struct w49 t70664; struct w49 t70665; struct p9176 *t70666; struct p9176 *t70667; struct structure_type27694 *t70668; struct p9176 *t70669; struct p9176 *t70670; unsigned t70671; struct p9176 *t70672; struct structure_type27698 *t70673; struct p9176 *t70674; struct structure_type24753 *t70675; struct structure_type27698 *t70676; unsigned t70677; struct w49 t70678; struct w49 t70679; struct structure_type27698 *t70680; struct w49 t70681; struct w49 t70682; struct structure_type24753 *t70683; struct structure_type27698 *t70684; struct w49 t70685; struct structure_type27650 *t70686; struct w49 t70687; struct w49 t70688; struct structure_type27698 *t70689; struct w49 t70690; struct w49 t70691; struct structure_type27698 *t70692; struct w49 t70693; struct structure_type27698 *t70694; struct structure_type27698 *t70695; struct structure_type27694 *t70696; struct w49 t70697; struct structure_type27694 *t70698; struct w49 t70699; struct w49 t70700; struct structure_type27694 *t70701; unsigned t70702; struct structure_type27698 *t70703; struct w9140 t70704; struct w49 t70705; struct w49 t70706; struct structure_type24753 *t70707; struct structure_type24753 *t70708; struct structure_type27698 *t70709; struct w49 t70710; struct w49 t70711; unsigned t70712; struct structure_type24753 *t70713; struct w9296 t70714; struct w49 t70715; struct w49 t70716; struct w49 t70717; struct structure_type27694 *t70718; struct w49 t70719; char *t70720; struct structure_type24753 *t70721; struct w49 t70722; struct structure_type24753 *t70723; struct w12224 t70724; struct w9140 t70725; struct w49 t70726; struct w49 t70727; struct w49 t70728; struct structure_type27694 *t70729; struct w11873 t70730; struct w9140 t70731; struct w49 t70732; struct w49 t70733; struct w49 t70734; struct structure_type27694 *t70735; struct w49 t70736; struct w49 t70737; struct w9140 t70738; struct w49 t70739; struct w49 t70740; struct w49 t70741; struct structure_type27694 *t70742; struct w49 t70743; struct w12224 t70744; struct structure_type27694 *t70745; struct w49 t70746; struct w49 t70747; struct w9140 t70748; struct w49 t70749; struct w49 t70750; struct w49 t70751; char *t70752; struct w49 t70753; char *t70754; struct w49 t70755; struct w49 t70756; struct w9140 t70757; struct w49 t70758; struct w49 t70759; struct w49 t70760; struct p9176 *t70761; struct p9176 *t70762; struct structure_type27694 *t70763; struct p9176 *t70764; struct p9176 *t70765; unsigned t70766; struct p9176 *t70767; struct structure_type27698 *t70768; struct p9176 *t70769; struct structure_type24753 *t70770; struct structure_type27698 *t70771; unsigned t70772; struct w49 t70773; struct w49 t70774; struct structure_type27698 *t70775; struct w49 t70776; struct w49 t70777; struct structure_type24753 *t70778; struct structure_type27698 *t70779; struct w49 t70780; struct structure_type27650 *t70781; struct w49 t70782; struct w49 t70783; struct structure_type27698 *t70784; struct w49 t70785; struct w49 t70786; struct structure_type27698 *t70787; struct w49 t70788; struct structure_type27698 *t70789; struct structure_type27698 *t70790; struct structure_type27694 *t70791; struct w49 t70792; struct structure_type27694 *t70793; struct w49 t70794; struct w49 t70795; struct structure_type27694 *t70796; unsigned t70797; struct structure_type27698 *t70798; struct w9140 t70799; struct w9296 t70800; struct w49 t70801; struct w49 t70802; struct w49 t70803; struct structure_type24753 *t70804; struct structure_type24753 *t70805; struct structure_type27698 *t70806; struct w49 t70807; struct w49 t70808; unsigned t70809; struct structure_type24753 *t70810; struct w9296 t70811; struct w49 t70812; struct w49 t70813; struct w49 t70814; struct structure_type27694 *t70815; struct w49 t70816; char *t70817; struct structure_type24753 *t70818; struct w49 t70819; struct structure_type24753 *t70820; struct w12224 t70821; struct w9140 t70822; struct w49 t70823; struct w49 t70824; struct w49 t70825; struct structure_type27694 *t70826; struct w11873 t70827; struct w9140 t70828; struct w49 t70829; struct w49 t70830; struct w49 t70831; struct structure_type27694 *t70832; struct w49 t70833; struct w49 t70834; struct w9140 t70835; struct w49 t70836; struct w49 t70837; struct w49 t70838; struct structure_type27694 *t70839; struct w49 t70840; struct w12224 t70841; struct structure_type27694 *t70842; struct w49 t70843; struct w49 t70844; struct w9140 t70845; struct w49 t70846; struct w49 t70847; struct w49 t70848; char *t70849; struct w49 t70850; char *t70851; struct w49 t70852; struct w49 t70853; struct w9140 t70854; struct w49 t70855; struct w49 t70856; struct w49 t70857; struct p9176 *t70858; struct structure_type27698 *t70859; struct p9209 *t70860; struct structure_type27698 *t70861; struct structure_type27650 *t70862; struct w49 t70863; struct w49 t70864; struct structure_type27698 *t70865; struct w49 t70866; struct p9209 *t70867; struct w49 t70868; unsigned t70869; struct w49 t70870; struct structure_type27698 *t70871; struct structure_type27698 *t70872; char *t70873; struct w49 t70874; struct headed_vector_type27896 *t70875; struct w49 t70876; struct p9176 *t70877; struct w49 t70878; unsigned t70879; struct w49 t70880; struct w49 t70881; struct w49 t70882; struct p9176 *t70883; struct structure_type27698 *t70884; struct structure_type27698 *t70885; struct structure_type27650 *t70886; struct w49 t70887; struct w49 t70888; struct structure_type27698 *t70889; struct w49 t70890; struct w49 t70891; struct structure_type27698 *t70892; struct w49 t70893; struct w49 t70894; struct structure_type27698 *t70895; struct structure_type27698 *t70896; struct w49 t70897; struct structure_type27698 *t70898; struct w49 t70899; struct w49 t70900; struct structure_type27698 *t70901; struct structure_type27698 *t70902; char *t70903; struct w49 t70904; struct structure_type24753 *t70905; struct w49 t70906; struct structure_type27698 *t70907; struct structure_type27698 *t70908; struct w49 t70909; struct structure_type24753 *t70910; struct w49 t70911; struct w49 t70912; struct w49 t70913; struct w49 t70914; struct structure_type24753 *t70915; struct w49 t70916; struct w49 t70917; struct w49 t70918; struct structure_type27698 *t70919; struct structure_type27698 *t70920; struct structure_type27650 *t70921; struct w49 t70922; struct w49 t70923; struct structure_type27698 *t70924; struct w49 t70925; char *t70926; struct w49 t70927; struct w49 t70928; struct w49 t70929; struct w49 t70930; struct structure_type27698 *t70931; struct structure_type27698 *t70932; struct structure_type27650 *t70933; struct w49 t70934; struct w49 t70935; struct structure_type27698 *t70936; struct w49 t70937; char *t70938; struct w49 t70939; struct w49 t70940; struct w49 t70941; struct w49 t70942; struct structure_type27698 *t70943; struct structure_type27698 *t70944; struct structure_type27650 *t70945; struct w49 t70946; struct w49 t70947; struct structure_type27698 *t70948; struct w49 t70949; char *t70950; struct w49 t70951; struct w49 t70952; struct w49 t70953; struct w49 t70954; struct structure_type27698 *t70955; struct structure_type27698 *t70956; struct structure_type27650 *t70957; struct w49 t70958; struct w49 t70959; struct structure_type27698 *t70960; struct w49 t70961; char *t70962; struct w49 t70963; struct w49 t70964; struct w49 t70965; struct w49 t70966; struct structure_type27698 *t70967; struct structure_type27698 *t70968; struct structure_type27650 *t70969; struct w49 t70970; struct w49 t70971; struct structure_type27698 *t70972; struct w49 t70973; char *t70974; struct w49 t70975; struct w49 t70976; struct w49 t70977; struct w49 t70978; struct structure_type27698 *t70979; struct structure_type27698 *t70980; struct structure_type27650 *t70981; struct w49 t70982; struct w49 t70983; struct structure_type27698 *t70984; struct w49 t70985; char *t70986; struct w49 t70987; struct w49 t70988; struct w49 t70989; struct w49 t70990; struct structure_type27698 *t70991; struct structure_type27698 *t70992; struct structure_type27650 *t70993; struct w49 t70994; struct w49 t70995; struct structure_type27698 *t70996; struct w49 t70997; char *t70998; struct w49 t70999; struct w49 t71000; struct structure_type27698 *t71001; struct structure_type27698 *t71002; struct structure_type27650 *t71003; struct w49 t71004; struct w49 t71005; struct structure_type27698 *t71006; struct w49 t71007; char *t71008; struct w49 t71009; struct w49 t71010; struct structure_type27698 *t71011; struct structure_type27698 *t71012; struct structure_type27650 *t71013; struct w49 t71014; struct w49 t71015; struct structure_type27698 *t71016; struct w49 t71017; char *t71018; struct w49 t71019; struct w49 t71020; struct w49 t71021; struct w49 t71022; struct p9176 *e9176; struct p9209 *e9209; struct p9351 *e9351; struct p9356 *e9356; struct p9176 *p9177; struct p9176 *p9205; struct p9176 *p9208; struct p9209 *p9210; struct p9176 *p9213; struct p9176 *p9214; struct p9176 *p9215; struct p9176 *p9216; struct p9176 *p9217; struct p9176 *p9218; struct p9176 *p9243; struct p9176 *p9244; struct p9176 *p9245; struct p9176 *p9246; struct p9176 *p9247; struct p9176 *p9248; struct p9176 *p9273; struct p9176 *p9274; struct p9176 *p9275; struct p9176 *p9276; struct p9176 *p9277; struct p9176 *p9278; struct p9176 *p9303; struct p9176 *p9322; struct p9176 *p9331; struct p9176 *p9350; struct p9351 *p9352; struct p9176 *p9355; struct p9356 *p9357; e9176 = (struct p9176 *)alloca(sizeof(struct p9176)); if (e9176==NULL) {backtrace_internal("[inside CLONE-EXPRESSION 9174]"); out_of_memory_error();} e9176->a22432 = a22432; /* x79642 stalin.sc:5171:176569 */ /* x79641 stalin.sc:5171:176575 */ /* x79640 stalin.sc:5171:176592 */ t71021 = a22431; /* x79639 stalin.sc:5171:176576 */ a40293 = t71021; /* x293841 */ /* x293840 */ t71022 = a40293; /* x293839 */ if (!((t71022.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35210]"); structure_ref_error();} t70163 = t71022.value.structure_type27698->s0; /* x79638 */ t70162 = e9176; p9177 = t70162; a22433 = t70163; /* x79637 */ /* x78002 */ /* x78000 */ t70164 = a22433; /* x78001 */ t70165 = q68; /* x77999 */ t70166.tag = EXTERNAL_SYMBOL_TYPE; t70166.value.external_symbol_type = t70164; t70167.tag = EXTERNAL_SYMBOL_TYPE; t70167.value.external_symbol_type = t70165; if (f26160(t70166, t70167)==FALSE_TYPE) goto l11884; /* x78020 */ /* x78019 */ /* x78018 stalin.sc:5173:176619 */ /* x78017 stalin.sc:5173:176628 */ /* x78014 stalin.sc:5173:176647 */ t71018 = q68; /* x78015 stalin.sc:5173:176662 */ t71019 = a22431; /* x78016 stalin.sc:5173:176664 */ /* x78013 stalin.sc:5173:176629 */ t71020.tag = FALSE_TYPE; t71011 = f6872(t71018, t71019, t71020); /* x78012 */ a22434 = t71011; /* x78011 */ /* x78010 stalin.sc:5174:176675 */ /* x78006 stalin.sc:5174:176701 */ t71012 = a22434; /* x78009 stalin.sc:5174:176703 */ /* x78008 stalin.sc:5174:176720 */ t71016 = a22434; /* x78007 stalin.sc:5174:176704 */ t71017.tag = STRUCTURE_TYPE27698; t71017.value.structure_type27698 = t71016; t71013 = f8092(t71017); /* x78005 stalin.sc:5174:176676 */ t71014.tag = STRUCTURE_TYPE27698; t71014.value.structure_type27698 = t71012; t71015.tag = STRUCTURE_TYPE27650; t71015.value.structure_type27650 = t71013; f5568(t71014, t71015); /* x78004 */ /* x78003 stalin.sc:5175:176729 */ return a22434; l11884: /* x79636 */ /* x78024 */ /* x78022 */ t70168 = a22433; /* x78023 */ t70169 = q69; /* x78021 */ t70170.tag = EXTERNAL_SYMBOL_TYPE; t70170.value.external_symbol_type = t70168; t70171.tag = EXTERNAL_SYMBOL_TYPE; t70171.value.external_symbol_type = t70169; if (f26160(t70170, t70171)==FALSE_TYPE) goto l11886; /* x78042 */ /* x78041 */ /* x78040 stalin.sc:5177:176757 */ /* x78039 stalin.sc:5177:176766 */ /* x78036 stalin.sc:5177:176785 */ t71008 = q69; /* x78037 stalin.sc:5177:176800 */ t71009 = a22431; /* x78038 stalin.sc:5177:176802 */ /* x78035 stalin.sc:5177:176767 */ t71010.tag = FALSE_TYPE; t71001 = f6872(t71008, t71009, t71010); /* x78034 */ a22436 = t71001; /* x78033 */ /* x78032 stalin.sc:5178:176813 */ /* x78028 stalin.sc:5178:176839 */ t71002 = a22436; /* x78031 stalin.sc:5178:176841 */ /* x78030 stalin.sc:5178:176858 */ t71006 = a22436; /* x78029 stalin.sc:5178:176842 */ t71007.tag = STRUCTURE_TYPE27698; t71007.value.structure_type27698 = t71006; t71003 = f8092(t71007); /* x78027 stalin.sc:5178:176814 */ t71004.tag = STRUCTURE_TYPE27698; t71004.value.structure_type27698 = t71002; t71005.tag = STRUCTURE_TYPE27650; t71005.value.structure_type27650 = t71003; f5568(t71004, t71005); /* x78026 */ /* x78025 stalin.sc:5179:176867 */ return a22436; l11886: /* x79635 */ /* x78046 */ /* x78044 */ t70172 = a22433; /* x78045 */ t70173 = q70; /* x78043 */ t70174.tag = EXTERNAL_SYMBOL_TYPE; t70174.value.external_symbol_type = t70172; t70175.tag = EXTERNAL_SYMBOL_TYPE; t70175.value.external_symbol_type = t70173; if (f26160(t70174, t70175)==FALSE_TYPE) goto l11888; /* x78064 */ /* x78063 */ /* x78062 stalin.sc:5181:176896 */ /* x78061 stalin.sc:5181:176905 */ /* x78058 stalin.sc:5181:176924 */ t70998 = q70; /* x78059 stalin.sc:5181:176940 */ t70999 = a22431; /* x78060 stalin.sc:5181:176942 */ /* x78057 stalin.sc:5181:176906 */ t71000.tag = FALSE_TYPE; t70991 = f6872(t70998, t70999, t71000); /* x78056 */ a22438 = t70991; /* x78055 */ /* x78054 stalin.sc:5182:176953 */ /* x78050 stalin.sc:5182:176979 */ t70992 = a22438; /* x78053 stalin.sc:5182:176981 */ /* x78052 stalin.sc:5182:176998 */ t70996 = a22438; /* x78051 stalin.sc:5182:176982 */ t70997.tag = STRUCTURE_TYPE27698; t70997.value.structure_type27698 = t70996; t70993 = f8092(t70997); /* x78049 stalin.sc:5182:176954 */ t70994.tag = STRUCTURE_TYPE27698; t70994.value.structure_type27698 = t70992; t70995.tag = STRUCTURE_TYPE27650; t70995.value.structure_type27650 = t70993; f5568(t70994, t70995); /* x78048 */ /* x78047 stalin.sc:5183:177007 */ return a22438; l11888: /* x79634 */ /* x78068 */ /* x78066 */ t70176 = a22433; /* x78067 */ t70177 = q71; /* x78065 */ t70178.tag = EXTERNAL_SYMBOL_TYPE; t70178.value.external_symbol_type = t70176; t70179.tag = EXTERNAL_SYMBOL_TYPE; t70179.value.external_symbol_type = t70177; if (f26160(t70178, t70179)==FALSE_TYPE) goto l11890; /* x78088 */ /* x78087 */ /* x78086 stalin.sc:5185:177035 */ /* x78085 stalin.sc:5185:177044 */ /* x78080 stalin.sc:5185:177063 */ t70986 = q71; /* x78081 stalin.sc:5185:177078 */ t70987 = a22431; /* x78084 stalin.sc:5185:177080 */ /* x78083 stalin.sc:5185:177101 */ t70989 = a22431; /* x78082 stalin.sc:5185:177081 */ a39534 = t70989; /* x290805 */ /* x290804 */ t70990 = a39534; /* x290803 */ if (!((t70990.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34451]"); structure_ref_error();} t70988 = t70990.value.structure_type27698->s12; /* x78079 stalin.sc:5185:177045 */ t70979 = f6872(t70986, t70987, t70988); /* x78078 */ a22440 = t70979; /* x78077 */ /* x78076 stalin.sc:5186:177112 */ /* x78072 stalin.sc:5186:177138 */ t70980 = a22440; /* x78075 stalin.sc:5186:177140 */ /* x78074 stalin.sc:5186:177157 */ t70984 = a22440; /* x78073 stalin.sc:5186:177141 */ t70985.tag = STRUCTURE_TYPE27698; t70985.value.structure_type27698 = t70984; t70981 = f8092(t70985); /* x78071 stalin.sc:5186:177113 */ t70982.tag = STRUCTURE_TYPE27698; t70982.value.structure_type27698 = t70980; t70983.tag = STRUCTURE_TYPE27650; t70983.value.structure_type27650 = t70981; f5568(t70982, t70983); /* x78070 */ /* x78069 stalin.sc:5187:177166 */ return a22440; l11890: /* x79633 */ /* x78092 */ /* x78090 */ t70180 = a22433; /* x78091 */ t70181 = q72; /* x78089 */ t70182.tag = EXTERNAL_SYMBOL_TYPE; t70182.value.external_symbol_type = t70180; t70183.tag = EXTERNAL_SYMBOL_TYPE; t70183.value.external_symbol_type = t70181; if (f26160(t70182, t70183)==FALSE_TYPE) goto l11892; /* x78112 */ /* x78111 */ /* x78110 stalin.sc:5189:177196 */ /* x78109 stalin.sc:5189:177205 */ /* x78104 stalin.sc:5189:177224 */ t70974 = q72; /* x78105 stalin.sc:5189:177241 */ t70975 = a22431; /* x78108 stalin.sc:5189:177243 */ /* x78107 stalin.sc:5189:177264 */ t70977 = a22431; /* x78106 stalin.sc:5189:177244 */ a39535 = t70977; /* x290809 */ /* x290808 */ t70978 = a39535; /* x290807 */ if (!((t70978.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34452]"); structure_ref_error();} t70976 = t70978.value.structure_type27698->s12; /* x78103 stalin.sc:5189:177206 */ t70967 = f6872(t70974, t70975, t70976); /* x78102 */ a22442 = t70967; /* x78101 */ /* x78100 stalin.sc:5190:177275 */ /* x78096 stalin.sc:5190:177301 */ t70968 = a22442; /* x78099 stalin.sc:5190:177303 */ /* x78098 stalin.sc:5190:177320 */ t70972 = a22442; /* x78097 stalin.sc:5190:177304 */ t70973.tag = STRUCTURE_TYPE27698; t70973.value.structure_type27698 = t70972; t70969 = f8092(t70973); /* x78095 stalin.sc:5190:177276 */ t70970.tag = STRUCTURE_TYPE27698; t70970.value.structure_type27698 = t70968; t70971.tag = STRUCTURE_TYPE27650; t70971.value.structure_type27650 = t70969; f5568(t70970, t70971); /* x78094 */ /* x78093 stalin.sc:5191:177329 */ return a22442; l11892: /* x79632 */ /* x78116 */ /* x78114 */ t70184 = a22433; /* x78115 */ t70185 = q73; /* x78113 */ t70186.tag = EXTERNAL_SYMBOL_TYPE; t70186.value.external_symbol_type = t70184; t70187.tag = EXTERNAL_SYMBOL_TYPE; t70187.value.external_symbol_type = t70185; if (f26160(t70186, t70187)==FALSE_TYPE) goto l11894; /* x78136 */ /* x78135 */ /* x78134 stalin.sc:5193:177359 */ /* x78133 stalin.sc:5193:177368 */ /* x78128 stalin.sc:5193:177387 */ t70962 = q73; /* x78129 stalin.sc:5193:177404 */ t70963 = a22431; /* x78132 stalin.sc:5193:177406 */ /* x78131 stalin.sc:5193:177427 */ t70965 = a22431; /* x78130 stalin.sc:5193:177407 */ a39536 = t70965; /* x290813 */ /* x290812 */ t70966 = a39536; /* x290811 */ if (!((t70966.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34453]"); structure_ref_error();} t70964 = t70966.value.structure_type27698->s12; /* x78127 stalin.sc:5193:177369 */ t70955 = f6872(t70962, t70963, t70964); /* x78126 */ a22444 = t70955; /* x78125 */ /* x78124 stalin.sc:5194:177438 */ /* x78120 stalin.sc:5194:177464 */ t70956 = a22444; /* x78123 stalin.sc:5194:177466 */ /* x78122 stalin.sc:5194:177483 */ t70960 = a22444; /* x78121 stalin.sc:5194:177467 */ t70961.tag = STRUCTURE_TYPE27698; t70961.value.structure_type27698 = t70960; t70957 = f8092(t70961); /* x78119 stalin.sc:5194:177439 */ t70958.tag = STRUCTURE_TYPE27698; t70958.value.structure_type27698 = t70956; t70959.tag = STRUCTURE_TYPE27650; t70959.value.structure_type27650 = t70957; f5568(t70958, t70959); /* x78118 */ /* x78117 stalin.sc:5195:177492 */ return a22444; l11894: /* x79631 */ /* x78140 */ /* x78138 */ t70188 = a22433; /* x78139 */ t70189 = q74; /* x78137 */ t70190.tag = EXTERNAL_SYMBOL_TYPE; t70190.value.external_symbol_type = t70188; t70191.tag = EXTERNAL_SYMBOL_TYPE; t70191.value.external_symbol_type = t70189; if (f26160(t70190, t70191)==FALSE_TYPE) goto l11896; /* x78160 */ /* x78159 */ /* x78158 stalin.sc:5197:177527 */ /* x78157 stalin.sc:5197:177536 */ /* x78152 stalin.sc:5198:177562 */ t70950 = q74; /* x78153 stalin.sc:5198:177584 */ t70951 = a22431; /* x78156 stalin.sc:5198:177586 */ /* x78155 stalin.sc:5198:177607 */ t70953 = a22431; /* x78154 stalin.sc:5198:177587 */ a39537 = t70953; /* x290817 */ /* x290816 */ t70954 = a39537; /* x290815 */ if (!((t70954.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34454]"); structure_ref_error();} t70952 = t70954.value.structure_type27698->s12; /* x78151 stalin.sc:5197:177537 */ t70943 = f6872(t70950, t70951, t70952); /* x78150 */ a22446 = t70943; /* x78149 */ /* x78148 stalin.sc:5199:177618 */ /* x78144 stalin.sc:5199:177644 */ t70944 = a22446; /* x78147 stalin.sc:5199:177646 */ /* x78146 stalin.sc:5199:177663 */ t70948 = a22446; /* x78145 stalin.sc:5199:177647 */ t70949.tag = STRUCTURE_TYPE27698; t70949.value.structure_type27698 = t70948; t70945 = f8092(t70949); /* x78143 stalin.sc:5199:177619 */ t70946.tag = STRUCTURE_TYPE27698; t70946.value.structure_type27698 = t70944; t70947.tag = STRUCTURE_TYPE27650; t70947.value.structure_type27650 = t70945; f5568(t70946, t70947); /* x78142 */ /* x78141 stalin.sc:5200:177672 */ return a22446; l11896: /* x79630 */ /* x78164 */ /* x78162 */ t70192 = a22433; /* x78163 */ t70193 = q75; /* x78161 */ t70194.tag = EXTERNAL_SYMBOL_TYPE; t70194.value.external_symbol_type = t70192; t70195.tag = EXTERNAL_SYMBOL_TYPE; t70195.value.external_symbol_type = t70193; if (f26160(t70194, t70195)==FALSE_TYPE) goto l11898; /* x78184 */ /* x78183 */ /* x78182 stalin.sc:5202:177702 */ /* x78181 stalin.sc:5202:177711 */ /* x78176 stalin.sc:5202:177730 */ t70938 = q75; /* x78177 stalin.sc:5202:177747 */ t70939 = a22431; /* x78180 stalin.sc:5202:177749 */ /* x78179 stalin.sc:5202:177770 */ t70941 = a22431; /* x78178 stalin.sc:5202:177750 */ a39538 = t70941; /* x290821 */ /* x290820 */ t70942 = a39538; /* x290819 */ if (!((t70942.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34455]"); structure_ref_error();} t70940 = t70942.value.structure_type27698->s12; /* x78175 stalin.sc:5202:177712 */ t70931 = f6872(t70938, t70939, t70940); /* x78174 */ a22448 = t70931; /* x78173 */ /* x78172 stalin.sc:5203:177781 */ /* x78168 stalin.sc:5203:177807 */ t70932 = a22448; /* x78171 stalin.sc:5203:177809 */ /* x78170 stalin.sc:5203:177826 */ t70936 = a22448; /* x78169 stalin.sc:5203:177810 */ t70937.tag = STRUCTURE_TYPE27698; t70937.value.structure_type27698 = t70936; t70933 = f8092(t70937); /* x78167 stalin.sc:5203:177782 */ t70934.tag = STRUCTURE_TYPE27698; t70934.value.structure_type27698 = t70932; t70935.tag = STRUCTURE_TYPE27650; t70935.value.structure_type27650 = t70933; f5568(t70934, t70935); /* x78166 */ /* x78165 stalin.sc:5204:177835 */ return a22448; l11898: /* x79629 */ /* x78188 */ /* x78186 */ t70196 = a22433; /* x78187 */ t70197 = q76; /* x78185 */ t70198.tag = EXTERNAL_SYMBOL_TYPE; t70198.value.external_symbol_type = t70196; t70199.tag = EXTERNAL_SYMBOL_TYPE; t70199.value.external_symbol_type = t70197; if (f26160(t70198, t70199)==FALSE_TYPE) goto l11900; /* x78208 */ /* x78207 */ /* x78206 stalin.sc:5206:177865 */ /* x78205 stalin.sc:5206:177874 */ /* x78200 stalin.sc:5206:177893 */ t70926 = q76; /* x78201 stalin.sc:5206:177910 */ t70927 = a22431; /* x78204 stalin.sc:5206:177912 */ /* x78203 stalin.sc:5206:177933 */ t70929 = a22431; /* x78202 stalin.sc:5206:177913 */ a39539 = t70929; /* x290825 */ /* x290824 */ t70930 = a39539; /* x290823 */ if (!((t70930.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34456]"); structure_ref_error();} t70928 = t70930.value.structure_type27698->s12; /* x78199 stalin.sc:5206:177875 */ t70919 = f6872(t70926, t70927, t70928); /* x78198 */ a22450 = t70919; /* x78197 */ /* x78196 stalin.sc:5207:177944 */ /* x78192 stalin.sc:5207:177970 */ t70920 = a22450; /* x78195 stalin.sc:5207:177972 */ /* x78194 stalin.sc:5207:177989 */ t70924 = a22450; /* x78193 stalin.sc:5207:177973 */ t70925.tag = STRUCTURE_TYPE27698; t70925.value.structure_type27698 = t70924; t70921 = f8092(t70925); /* x78191 stalin.sc:5207:177945 */ t70922.tag = STRUCTURE_TYPE27698; t70922.value.structure_type27698 = t70920; t70923.tag = STRUCTURE_TYPE27650; t70923.value.structure_type27650 = t70921; f5568(t70922, t70923); /* x78190 */ /* x78189 stalin.sc:5208:177998 */ return a22450; l11900: /* x79628 */ /* x78212 */ /* x78210 */ t70200 = a22433; /* x78211 */ t70201 = q50; /* x78209 */ t70202.tag = EXTERNAL_SYMBOL_TYPE; t70202.value.external_symbol_type = t70200; t70203.tag = EXTERNAL_SYMBOL_TYPE; t70203.value.external_symbol_type = t70201; if (f26160(t70202, t70203)==FALSE_TYPE) goto l11902; /* x78263 */ /* x78262 */ t70883 = p9177; p9205 = t70883; /* x78261 stalin.sc:5210:178026 */ /* x78260 stalin.sc:5210:178035 */ /* x78240 stalin.sc:5211:178061 */ t70903 = q50; /* x78241 stalin.sc:5211:178076 */ t70904 = a22431; /* x78259 stalin.sc:5212:178085 */ /* x78250 stalin.sc:5212:178091 */ /* x78248 stalin.sc:5212:178097 */ /* x78247 stalin.sc:5212:178102 */ /* x78246 stalin.sc:5212:178123 */ t70912 = a22431; /* x78245 stalin.sc:5212:178103 */ a39542 = t70912; /* x290837 */ /* x290836 */ t70913 = a39542; /* x290835 */ if (!((t70913.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34459]"); structure_ref_error();} t70911 = t70913.value.structure_type27698->s12; /* x270085 stalin.sc:5212:178098 */ if (!((t70911.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 5212, 178097); structure_ref_error();} t70909 = t70911.value.structure_type24753->s0; /* x78249 stalin.sc:5212:178127 */ t70910 = p9205->a22432; /* x78243 stalin.sc:5212:178092 */ t70907 = f9176(t70909, t70910); /* x78258 stalin.sc:5213:178138 */ /* x78256 stalin.sc:5213:178144 */ /* x78255 stalin.sc:5213:178149 */ /* x78254 stalin.sc:5213:178170 */ t70917 = a22431; /* x78253 stalin.sc:5213:178150 */ a39543 = t70917; /* x290841 */ /* x290840 */ t70918 = a39543; /* x290839 */ if (!((t70918.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34460]"); structure_ref_error();} t70916 = t70918.value.structure_type27698->s12; /* x270084 stalin.sc:5213:178145 */ if (!((t70916.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 5213, 178144); structure_ref_error();} t70914 = t70916.value.structure_type24753->s1; /* x78257 stalin.sc:5213:178174 */ t70915 = p9205->a22432; /* x78251 stalin.sc:5213:178139 */ t70908 = f9176(t70914, t70915); /* x270086 stalin.sc:5212:178086 */ t70905 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t70905==NULL) {backtrace("stalin.sc", 5212, 178085); out_of_memory_error();} t70905->s0.tag = STRUCTURE_TYPE27698; t70905->s0.value.structure_type27698 = t70907; t70905->s1.tag = STRUCTURE_TYPE27698; t70905->s1.value.structure_type27698 = t70908; /* x78239 stalin.sc:5210:178036 */ t70906.tag = STRUCTURE_TYPE24753; t70906.value.structure_type24753 = t70905; t70884 = f6872(t70903, t70904, t70906); /* x78238 */ a22452 = t70884; /* x78237 */ /* x78220 stalin.sc:5214:178188 */ /* x78216 stalin.sc:5214:178214 */ t70885 = a22452; /* x78219 stalin.sc:5214:178216 */ /* x78218 stalin.sc:5214:178233 */ t70889 = a22452; /* x78217 stalin.sc:5214:178217 */ t70890.tag = STRUCTURE_TYPE27698; t70890.value.structure_type27698 = t70889; t70886 = f8092(t70890); /* x78215 stalin.sc:5214:178189 */ t70887.tag = STRUCTURE_TYPE27698; t70887.value.structure_type27698 = t70885; t70888.tag = STRUCTURE_TYPE27650; t70888.value.structure_type27650 = t70886; f5568(t70887, t70888); /* x78228 stalin.sc:5215:178242 */ /* x78226 stalin.sc:5215:178266 */ /* x78225 stalin.sc:5215:178271 */ /* x78224 stalin.sc:5215:178292 */ t70895 = a22452; /* x78223 stalin.sc:5215:178272 */ a39540 = t70895; /* x290829 */ /* x290828 */ t70896 = a39540; /* x290827 */ t70894 = t70896->s12; /* x270088 stalin.sc:5215:178267 */ if (!((t70894.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 5215, 178266); structure_ref_error();} t70891 = t70894.value.structure_type24753->s0; /* x78227 stalin.sc:5215:178296 */ t70892 = a22452; /* x78221 stalin.sc:5215:178243 */ t70893.tag = STRUCTURE_TYPE27698; t70893.value.structure_type27698 = t70892; f5576(t70891, t70893); /* x78236 stalin.sc:5216:178304 */ /* x78234 stalin.sc:5216:178328 */ /* x78233 stalin.sc:5216:178333 */ /* x78232 stalin.sc:5216:178354 */ t70901 = a22452; /* x78231 stalin.sc:5216:178334 */ a39541 = t70901; /* x290833 */ /* x290832 */ t70902 = a39541; /* x290831 */ t70900 = t70902->s12; /* x270087 stalin.sc:5216:178329 */ if (!((t70900.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 5216, 178328); structure_ref_error();} t70897 = t70900.value.structure_type24753->s1; /* x78235 stalin.sc:5216:178358 */ t70898 = a22452; /* x78229 stalin.sc:5216:178305 */ t70899.tag = STRUCTURE_TYPE27698; t70899.value.structure_type27698 = t70898; f5576(t70897, t70899); /* x78214 */ /* x78213 stalin.sc:5217:178366 */ return a22452; l11902: /* x79627 */ /* x78267 */ /* x78265 */ t70204 = a22433; /* x78266 */ t70205 = q52; /* x78264 */ t70206.tag = EXTERNAL_SYMBOL_TYPE; t70206.value.external_symbol_type = t70204; t70207.tag = EXTERNAL_SYMBOL_TYPE; t70207.value.external_symbol_type = t70205; if (f26160(t70206, t70207)==FALSE_TYPE) goto l11904; /* x78304 */ /* x78303 */ t70858 = p9177; p9208 = t70858; /* x78302 stalin.sc:5219:178396 */ /* x78301 stalin.sc:5219:178405 */ /* x78289 stalin.sc:5219:178424 */ t70873 = q52; /* x78290 stalin.sc:5219:178441 */ t70874 = a22431; /* x78300 stalin.sc:5220:178447 */ /* x78299 stalin.sc:5221:178494 */ /* x78298 stalin.sc:5221:178515 */ t70881 = a22431; /* x78297 stalin.sc:5221:178495 */ a39545 = t70881; /* x290849 */ /* x290848 */ t70882 = a39545; /* x290847 */ if (!((t70882.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34462]"); structure_ref_error();} t70878 = t70882.value.structure_type27698->s12; /* x78296 stalin.sc:5220:178459 */ t70877 = p9208; /* x78291 stalin.sc:5220:178448 */ t70879 = ((unsigned)t70877)+1; t70880 = t70878; t70875 = f1154(t70879, t70880); /* x78288 stalin.sc:5219:178406 */ t70876.tag = HEADED_VECTOR_TYPE27896; t70876.value.headed_vector_type27896 = t70875; t70859 = f6872(t70873, t70874, t70876); /* x78287 */ a22456 = t70859; e9209 = (struct p9209 *)alloca(sizeof(struct p9209)); if (e9209==NULL) {backtrace_internal("[inside LOOP 9208]"); out_of_memory_error();} e9209->a22456 = a22456; /* x78286 */ /* x78275 stalin.sc:5222:178527 */ /* x78271 stalin.sc:5222:178553 */ t70861 = e9209->a22456; /* x78274 stalin.sc:5222:178555 */ /* x78273 stalin.sc:5222:178572 */ t70865 = e9209->a22456; /* x78272 stalin.sc:5222:178556 */ t70866.tag = STRUCTURE_TYPE27698; t70866.value.structure_type27698 = t70865; t70862 = f8092(t70866); /* x78270 stalin.sc:5222:178528 */ t70863.tag = STRUCTURE_TYPE27698; t70863.value.structure_type27698 = t70861; t70864.tag = STRUCTURE_TYPE27650; t70864.value.structure_type27650 = t70862; f5568(t70863, t70864); /* x78285 stalin.sc:5223:178581 */ /* x78284 stalin.sc:5224:178650 */ /* x78283 stalin.sc:5224:178671 */ t70871 = e9209->a22456; /* x78282 stalin.sc:5224:178651 */ a39544 = t70871; /* x290845 */ /* x290844 */ t70872 = a39544; /* x290843 */ t70868 = t70872->s12; /* x78281 stalin.sc:5223:178598 */ t70867 = e9209; /* x78276 stalin.sc:5223:178582 */ t70869 = ((unsigned)t70867)+1; t70870 = t70868; f1141(t70869, t70870); /* x78269 */ t70860 = e9209; p9210 = t70860; /* x78268 stalin.sc:5225:178680 */ return p9210->a22456; l11904: /* x79626 */ /* x78308 */ /* x78306 */ t70208 = a22433; /* x78307 */ t70209 = q39; /* x78305 */ t70210.tag = EXTERNAL_SYMBOL_TYPE; t70210.value.external_symbol_type = t70208; t70211.tag = EXTERNAL_SYMBOL_TYPE; t70211.value.external_symbol_type = t70209; if (f26160(t70210, t70211)==FALSE_TYPE) goto l11906; /* x78546 */ /* x78545 */ t70761 = p9177; p9213 = t70761; /* x78544 stalin.sc:5227:178701 */ /* x78543 stalin.sc:5227:178711 */ /* x78541 stalin.sc:5228:178739 */ /* x78540 stalin.sc:5229:178759 */ /* x78539 stalin.sc:5229:178777 */ /* x78538 stalin.sc:5229:178808 */ t70856 = a22431; /* x78537 stalin.sc:5229:178778 */ a39472 = t70856; /* x290557 */ /* x290556 */ t70857 = a39472; /* x290555 */ if (!((t70857.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34389]"); structure_ref_error();} t70854 = t70857.value.structure_type27698->s13; /* x78536 stalin.sc:5229:178760 */ t70855 = *((struct w49 *)(&t70854)); t70852 = f8966(t70855); /* x78535 stalin.sc:5228:178740 */ a36624 = t70852; /* x279165 */ /* x279164 */ t70853 = a36624; /* x279163 */ if (!((t70853.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31541]"); structure_ref_error();} t70849 = t70853.value.structure_type27694->s2; /* x78542 stalin.sc:5230:178821 */ /* x78534 stalin.sc:5227:178712 */ t70850.tag = STRING_TYPE; t70850.value.string_type = t70849; t70851 = (char *)FALSE_TYPE; t70763 = f8468(t70850, t70851); /* x78533 */ t70762 = p9213; p9214 = t70762; a22461 = t70763; /* x78532 */ /* x78461 stalin.sc:5231:178832 */ /* x78459 stalin.sc:5231:178856 */ t70815 = a22461; /* x78460 stalin.sc:5231:178859 */ /* x78458 stalin.sc:5231:178833 */ t70816.tag = STRUCTURE_TYPE27694; t70816.value.structure_type27694 = t70815; t70817 = (char *)TRUE_TYPE; f6656(t70816, t70817); /* x78486 stalin.sc:5232:178868 */ /* x78462 stalin.sc:5232:178874 */ /* x78485 stalin.sc:5232:178868 */ /* x78484 stalin.sc:5232:178868 */ /* x78523 stalin.sc:5237:179056 */ /* x78489 stalin.sc:5237:179062 */ /* x78488 stalin.sc:5237:179069 */ t70818 = p9214->a22432; /* x270076 stalin.sc:5237:179063 */ if (!(((unsigned)t70818)==NULL_TYPE)) goto l12023; /* x78520 */ /* x78519 */ /* x78518 */ /* x78513 stalin.sc:5238:179080 */ /* x78507 stalin.sc:5239:179122 */ t70832 = a22461; /* x78512 stalin.sc:5239:179125 */ /* x78511 stalin.sc:5239:179143 */ /* x78510 stalin.sc:5239:179174 */ t70837 = a22431; /* x78509 stalin.sc:5239:179144 */ a39470 = t70837; /* x290549 */ /* x290548 */ t70838 = a39470; /* x290547 */ if (!((t70838.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34387]"); structure_ref_error();} t70835 = t70838.value.structure_type27698->s13; /* x78508 stalin.sc:5239:179126 */ t70836 = *((struct w49 *)(&t70835)); t70833 = f8966(t70836); /* x78506 stalin.sc:5238:179081 */ t70834.tag = STRUCTURE_TYPE27694; t70834.value.structure_type27694 = t70832; f6744(t70834, t70833); /* x78517 stalin.sc:5240:179185 */ /* x78515 stalin.sc:5240:179217 */ t70839 = a22461; /* x78516 stalin.sc:5240:179220 */ /* x78514 stalin.sc:5240:179186 */ t70840.tag = STRUCTURE_TYPE27694; t70840.value.structure_type27694 = t70839; t70841.tag = NULL_TYPE; f6752(t70840, t70841); /* x78505 */ /* x78504 stalin.sc:5241:179231 */ /* x78495 stalin.sc:5242:179270 */ /* x78494 stalin.sc:5242:179288 */ /* x78493 stalin.sc:5242:179319 */ t70824 = a22431; /* x78492 stalin.sc:5242:179289 */ a39468 = t70824; /* x290541 */ /* x290540 */ t70825 = a39468; /* x290539 */ if (!((t70825.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34385]"); structure_ref_error();} t70822 = t70825.value.structure_type27698->s13; /* x78491 stalin.sc:5242:179271 */ t70823 = *((struct w49 *)(&t70822)); t70819 = f8966(t70823); /* x78503 stalin.sc:5243:179330 */ /* x78497 stalin.sc:5243:179336 */ t70826 = a22461; /* x78502 stalin.sc:5243:179339 */ /* x78501 stalin.sc:5243:179354 */ /* x78500 stalin.sc:5243:179385 */ t70830 = a22431; /* x78499 stalin.sc:5243:179355 */ a39469 = t70830; /* x290545 */ /* x290544 */ t70831 = a39469; /* x290543 */ if (!((t70831.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34386]"); structure_ref_error();} t70828 = t70831.value.structure_type27698->s13; /* x78498 stalin.sc:5243:179340 */ t70829 = *((struct w49 *)(&t70828)); t70827 = f8984(t70829); /* x270075 stalin.sc:5243:179331 */ t70820 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t70820==NULL) {backtrace("stalin.sc", 5243, 179330); out_of_memory_error();} t70820->s0.tag = STRUCTURE_TYPE27694; t70820->s0.value.structure_type27694 = t70826; t70820->s1 = *((struct w49 *)(&t70827)); /* x78490 stalin.sc:5241:179232 */ t70821.tag = STRUCTURE_TYPE24753; t70821.value.structure_type24753 = t70820; f6752(t70819, t70821); goto l12024; l12023: /* x78522 stalin.sc:5237:179056 */ /* x78521 stalin.sc:5237:179056 */ l12024: /* x78531 stalin.sc:5244:179397 */ /* x78525 stalin.sc:5245:179436 */ t70842 = a22461; /* x78530 stalin.sc:5245:179439 */ /* x78529 stalin.sc:5245:179455 */ /* x78528 stalin.sc:5245:179486 */ t70847 = a22431; /* x78527 stalin.sc:5245:179456 */ a39471 = t70847; /* x290553 */ /* x290552 */ t70848 = a39471; /* x290551 */ if (!((t70848.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34388]"); structure_ref_error();} t70845 = t70848.value.structure_type27698->s13; /* x78526 stalin.sc:5245:179440 */ t70846 = *((struct w49 *)(&t70845)); t70843 = f8976(t70846); /* x78524 stalin.sc:5244:179398 */ t70844.tag = STRUCTURE_TYPE27694; t70844.value.structure_type27694 = t70842; f6760(t70844, t70843); /* x78457 */ t70764 = p9214; p9215 = t70764; /* x78456 stalin.sc:5246:179496 */ /* x78455 stalin.sc:5246:179507 */ /* x78454 stalin.sc:5246:179522 */ /* x78453 stalin.sc:5246:179545 */ t70813 = a22431; /* x78452 stalin.sc:5246:179523 */ a39428 = t70813; /* x290381 */ /* x290380 */ t70814 = a39428; /* x290379 */ if (!((t70814.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34345]"); structure_ref_error();} t70811 = t70814.value.structure_type27698->s14; /* x78451 */ /* x78450 */ /* x78449 */ /* x78448 */ /* x78447 */ /* x78446 */ /* x78445 */ /* x78384 */ /* x78383 stalin.sc:5246:179512 */ t70812 = *((struct w49 *)(&t70811)); t70766 = f9226(t70812); /* x78382 */ t70765 = p9215; p9216 = t70765; a22466 = t70766; /* x78381 */ /* x78380 stalin.sc:5257:179880 */ /* x78363 stalin.sc:5258:179909 */ t70795 = a22431; /* x78364 stalin.sc:5258:179911 */ t70796 = a22461; /* x78365 stalin.sc:5258:179914 */ t70797 = a22466; /* x78379 stalin.sc:5259:179920 */ /* x78368 stalin.sc:5259:179924 */ /* x78367 stalin.sc:5259:179931 */ t70802 = a22431; /* x78366 stalin.sc:5259:179925 */ if (f8918(t70802)==FALSE_TYPE) goto l12019; /* x78369 stalin.sc:5260:179941 */ t70798 = (struct structure_type27698 *)FALSE_TYPE; goto l12020; l12019: /* x78378 stalin.sc:5261:179951 */ /* x78373 stalin.sc:5261:179957 */ /* x78372 stalin.sc:5261:179974 */ t70807 = a22431; /* x78371 stalin.sc:5261:179958 */ a39211 = t70807; /* x289513 */ /* x289512 */ t70808 = a39211; /* x289511 */ if (!((t70808.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34128]"); structure_ref_error();} t70803 = t70808.value.structure_type27698->s15; /* x78377 stalin.sc:5261:179977 */ /* x78375 stalin.sc:5261:179983 */ t70809 = a22466; /* x78376 stalin.sc:5261:179986 */ t70810 = p9216->a22432; /* x270081 stalin.sc:5261:179978 */ t70804 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t70804==NULL) {backtrace("stalin.sc", 5261, 179977); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t70809==NULL_TYPE) t70804->s0.tag = (unsigned)t70809; else {if ((t70809&3)==1) {t70804->s0.tag = STRUCTURE_TYPE24753; t70804->s0.value.structure_type24753 = (struct structure_type24753 *)(t70809-1);} else {t70804->s0.tag = STRUCTURE_TYPE27692; t70804->s0.value.structure_type27692 = (struct structure_type27692 *)t70809;}} /* MOVE: branching squeezed to general */ if (t70810>=((struct structure_type24753 *)VALUE_OFFSET)) {t70804->s1.tag = STRUCTURE_TYPE24753; t70804->s1.value.structure_type24753 = t70810;} else t70804->s1.tag = (unsigned)t70810; /* x78370 stalin.sc:5261:179952 */ t70805 = t70804; t70806 = f9176(t70803, t70805); t70798 = t70806; l12020: /* x78362 stalin.sc:5257:179881 */ t70799.tag = STRUCTURE_TYPE27694; t70799.value.structure_type27694 = t70796; /* MOVE: dispatching squished to general */ if (t70797==NULL_TYPE) t70800.tag = (unsigned)t70797; else {if ((t70797&3)==1) {t70800.tag = STRUCTURE_TYPE24753; t70800.value.structure_type24753 = (struct structure_type24753 *)(t70797-1);} else {t70800.tag = STRUCTURE_TYPE27692; t70800.value.structure_type27692 = (struct structure_type27692 *)t70797;}} /* MOVE: branching squeezed to general */ if (t70798>=((struct structure_type27698 *)VALUE_OFFSET)) {t70801.tag = STRUCTURE_TYPE27698; t70801.value.structure_type27698 = t70798;} else t70801.tag = (unsigned)t70798; t70768 = f6896(t70795, t70799, t70800, t70801); /* x78361 */ t70767 = p9216; p9217 = t70767; a22467 = t70768; /* x78360 */ /* x78359 */ t70769 = p9217; p9218 = t70769; /* x78358 */ /* x78324 stalin.sc:5266:180270 */ /* x78313 stalin.sc:5266:180276 */ /* x78312 stalin.sc:5266:180283 */ t70770 = p9218->a22432; /* x270083 stalin.sc:5266:180277 */ if (!(((unsigned)t70770)==NULL_TYPE)) goto l12010; /* x78321 */ /* x78320 */ /* x78319 stalin.sc:5266:180288 */ /* x78315 stalin.sc:5266:180314 */ t70771 = a22467; /* x78318 stalin.sc:5266:180317 */ /* x78317 stalin.sc:5266:180338 */ t70774 = a22431; /* x78316 stalin.sc:5266:180318 */ t70772 = f6926(t70774); /* x78314 stalin.sc:5266:180289 */ t70773.tag = STRUCTURE_TYPE27698; t70773.value.structure_type27698 = t70771; f6927(t70773, t70772); goto l12011; l12010: /* x78323 stalin.sc:5266:180270 */ /* x78322 stalin.sc:5266:180270 */ l12011: /* x78337 stalin.sc:5267:180349 */ /* x78326 stalin.sc:5268:180382 */ t70775 = a22467; /* x78336 stalin.sc:5269:180392 */ /* x78329 stalin.sc:5269:180396 */ /* x78328 stalin.sc:5269:180403 */ t70778 = p9218->a22432; /* x270082 stalin.sc:5269:180397 */ if (!(((unsigned)t70778)==NULL_TYPE)) goto l12013; /* x78332 stalin.sc:5271:180485 */ /* x78331 stalin.sc:5271:180506 */ t70782 = a22431; /* x78330 stalin.sc:5271:180486 */ a39940 = t70782; /* x292429 */ /* x292428 */ t70783 = a39940; /* x292427 */ if (!((t70783.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34857]"); structure_ref_error();} t70776 = t70783.value.structure_type27698->s10; goto l12014; l12013: /* x78335 stalin.sc:5274:180596 */ /* x78334 stalin.sc:5274:180613 */ t70779 = a22467; /* x78333 stalin.sc:5274:180597 */ t70780.tag = STRUCTURE_TYPE27698; t70780.value.structure_type27698 = t70779; t70781 = f8092(t70780); t70776.tag = STRUCTURE_TYPE27650; t70776.value.structure_type27650 = t70781; l12014: /* x78325 stalin.sc:5267:180350 */ t70777.tag = STRUCTURE_TYPE27698; t70777.value.structure_type27698 = t70775; f5568(t70777, t70776); /* x78351 stalin.sc:5275:180625 */ /* x78340 stalin.sc:5275:180633 */ /* x78339 stalin.sc:5275:180640 */ t70784 = a22467; /* x78338 stalin.sc:5275:180634 */ t70785.tag = STRUCTURE_TYPE27698; t70785.value.structure_type27698 = t70784; if (f8918(t70785)==FALSE_TYPE) goto l12016; /* x78342 */ /* x78341 */ goto l12017; l12016: /* x78350 */ /* x78349 */ /* x78348 stalin.sc:5275:180644 */ /* x78346 stalin.sc:5275:180668 */ /* x78345 stalin.sc:5275:180685 */ t70789 = a22467; /* x78344 stalin.sc:5275:180669 */ a39210 = t70789; /* x289509 */ /* x289508 */ t70790 = a39210; /* x289507 */ t70786 = t70790->s15; /* x78347 stalin.sc:5275:180689 */ t70787 = a22467; /* x78343 stalin.sc:5275:180645 */ t70788.tag = STRUCTURE_TYPE27698; t70788.value.structure_type27698 = t70787; f5576(t70786, t70788); l12017: /* x78354 stalin.sc:5276:180700 */ /* x78353 stalin.sc:5276:180756 */ t70791 = a22461; /* x78352 stalin.sc:5276:180701 */ t70792.tag = STRUCTURE_TYPE27694; t70792.value.structure_type27694 = t70791; f10394(t70792); /* x78357 stalin.sc:5277:180766 */ /* x78356 stalin.sc:5277:180824 */ t70793 = a22461; /* x78355 stalin.sc:5277:180767 */ t70794.tag = STRUCTURE_TYPE27694; t70794.value.structure_type27694 = t70793; f10405(t70794); /* x78310 */ /* x78309 stalin.sc:5278:180834 */ return a22467; l11906: /* x79625 */ /* x78550 */ /* x78548 */ t70212 = a22433; /* x78549 */ t70213 = q40; /* x78547 */ t70214.tag = EXTERNAL_SYMBOL_TYPE; t70214.value.external_symbol_type = t70212; t70215.tag = EXTERNAL_SYMBOL_TYPE; t70215.value.external_symbol_type = t70213; if (f26160(t70214, t70215)==FALSE_TYPE) goto l11908; /* x78788 */ /* x78787 */ t70666 = p9177; p9243 = t70666; /* x78786 stalin.sc:5280:180867 */ /* x78785 stalin.sc:5280:180877 */ /* x78783 stalin.sc:5281:180905 */ /* x78782 stalin.sc:5282:180925 */ /* x78781 stalin.sc:5282:180943 */ /* x78780 stalin.sc:5282:180974 */ t70759 = a22431; /* x78779 stalin.sc:5282:180944 */ a39477 = t70759; /* x290577 */ /* x290576 */ t70760 = a39477; /* x290575 */ if (!((t70760.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34394]"); structure_ref_error();} t70757 = t70760.value.structure_type27698->s13; /* x78778 stalin.sc:5282:180926 */ t70758 = *((struct w49 *)(&t70757)); t70755 = f8966(t70758); /* x78777 stalin.sc:5281:180906 */ a36625 = t70755; /* x279169 */ /* x279168 */ t70756 = a36625; /* x279167 */ if (!((t70756.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31542]"); structure_ref_error();} t70752 = t70756.value.structure_type27694->s2; /* x78784 stalin.sc:5283:180987 */ /* x78776 stalin.sc:5280:180878 */ t70753.tag = STRING_TYPE; t70753.value.string_type = t70752; t70754 = (char *)FALSE_TYPE; t70668 = f8468(t70753, t70754); /* x78775 */ t70667 = p9243; p9244 = t70667; a22482 = t70668; /* x78774 */ /* x78703 stalin.sc:5284:180998 */ /* x78701 stalin.sc:5284:181022 */ t70718 = a22482; /* x78702 stalin.sc:5284:181025 */ /* x78700 stalin.sc:5284:180999 */ t70719.tag = STRUCTURE_TYPE27694; t70719.value.structure_type27694 = t70718; t70720 = (char *)TRUE_TYPE; f6656(t70719, t70720); /* x78728 stalin.sc:5285:181034 */ /* x78704 stalin.sc:5285:181040 */ /* x78727 stalin.sc:5285:181034 */ /* x78726 stalin.sc:5285:181034 */ /* x78765 stalin.sc:5290:181222 */ /* x78731 stalin.sc:5290:181228 */ /* x78730 stalin.sc:5290:181235 */ t70721 = p9244->a22432; /* x270067 stalin.sc:5290:181229 */ if (!(((unsigned)t70721)==NULL_TYPE)) goto l12007; /* x78762 */ /* x78761 */ /* x78760 */ /* x78755 stalin.sc:5291:181246 */ /* x78749 stalin.sc:5292:181288 */ t70735 = a22482; /* x78754 stalin.sc:5292:181291 */ /* x78753 stalin.sc:5292:181309 */ /* x78752 stalin.sc:5292:181340 */ t70740 = a22431; /* x78751 stalin.sc:5292:181310 */ a39475 = t70740; /* x290569 */ /* x290568 */ t70741 = a39475; /* x290567 */ if (!((t70741.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34392]"); structure_ref_error();} t70738 = t70741.value.structure_type27698->s13; /* x78750 stalin.sc:5292:181292 */ t70739 = *((struct w49 *)(&t70738)); t70736 = f8966(t70739); /* x78748 stalin.sc:5291:181247 */ t70737.tag = STRUCTURE_TYPE27694; t70737.value.structure_type27694 = t70735; f6744(t70737, t70736); /* x78759 stalin.sc:5293:181351 */ /* x78757 stalin.sc:5293:181383 */ t70742 = a22482; /* x78758 stalin.sc:5293:181386 */ /* x78756 stalin.sc:5293:181352 */ t70743.tag = STRUCTURE_TYPE27694; t70743.value.structure_type27694 = t70742; t70744.tag = NULL_TYPE; f6752(t70743, t70744); /* x78747 */ /* x78746 stalin.sc:5294:181397 */ /* x78737 stalin.sc:5295:181436 */ /* x78736 stalin.sc:5295:181454 */ /* x78735 stalin.sc:5295:181485 */ t70727 = a22431; /* x78734 stalin.sc:5295:181455 */ a39473 = t70727; /* x290561 */ /* x290560 */ t70728 = a39473; /* x290559 */ if (!((t70728.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34390]"); structure_ref_error();} t70725 = t70728.value.structure_type27698->s13; /* x78733 stalin.sc:5295:181437 */ t70726 = *((struct w49 *)(&t70725)); t70722 = f8966(t70726); /* x78745 stalin.sc:5296:181496 */ /* x78739 stalin.sc:5296:181502 */ t70729 = a22482; /* x78744 stalin.sc:5296:181505 */ /* x78743 stalin.sc:5296:181520 */ /* x78742 stalin.sc:5296:181551 */ t70733 = a22431; /* x78741 stalin.sc:5296:181521 */ a39474 = t70733; /* x290565 */ /* x290564 */ t70734 = a39474; /* x290563 */ if (!((t70734.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34391]"); structure_ref_error();} t70731 = t70734.value.structure_type27698->s13; /* x78740 stalin.sc:5296:181506 */ t70732 = *((struct w49 *)(&t70731)); t70730 = f8984(t70732); /* x270066 stalin.sc:5296:181497 */ t70723 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t70723==NULL) {backtrace("stalin.sc", 5296, 181496); out_of_memory_error();} t70723->s0.tag = STRUCTURE_TYPE27694; t70723->s0.value.structure_type27694 = t70729; t70723->s1 = *((struct w49 *)(&t70730)); /* x78732 stalin.sc:5294:181398 */ t70724.tag = STRUCTURE_TYPE24753; t70724.value.structure_type24753 = t70723; f6752(t70722, t70724); goto l12008; l12007: /* x78764 stalin.sc:5290:181222 */ /* x78763 stalin.sc:5290:181222 */ l12008: /* x78773 stalin.sc:5297:181563 */ /* x78767 stalin.sc:5298:181602 */ t70745 = a22482; /* x78772 stalin.sc:5298:181605 */ /* x78771 stalin.sc:5298:181621 */ /* x78770 stalin.sc:5298:181652 */ t70750 = a22431; /* x78769 stalin.sc:5298:181622 */ a39476 = t70750; /* x290573 */ /* x290572 */ t70751 = a39476; /* x290571 */ if (!((t70751.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34393]"); structure_ref_error();} t70748 = t70751.value.structure_type27698->s13; /* x78768 stalin.sc:5298:181606 */ t70749 = *((struct w49 *)(&t70748)); t70746 = f8976(t70749); /* x78766 stalin.sc:5297:181564 */ t70747.tag = STRUCTURE_TYPE27694; t70747.value.structure_type27694 = t70745; f6760(t70747, t70746); /* x78699 */ t70669 = p9244; p9245 = t70669; /* x78698 stalin.sc:5299:181662 */ /* x78697 stalin.sc:5299:181673 */ /* x78696 stalin.sc:5299:181688 */ /* x78695 stalin.sc:5299:181711 */ t70716 = a22431; /* x78694 stalin.sc:5299:181689 */ a39429 = t70716; /* x290385 */ /* x290384 */ t70717 = a39429; /* x290383 */ if (!((t70717.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34346]"); structure_ref_error();} t70714 = t70717.value.structure_type27698->s14; /* x78693 */ /* x78692 */ /* x78691 */ /* x78690 */ /* x78689 */ /* x78688 */ /* x78687 */ /* x78626 */ /* x78625 stalin.sc:5299:181678 */ t70715 = *((struct w49 *)(&t70714)); t70671 = f9256(t70715); /* x78624 */ t70670 = p9245; p9246 = t70670; a22487 = t70671; /* x78623 */ /* x78622 stalin.sc:5310:182046 */ /* x78605 stalin.sc:5311:182085 */ t70700 = a22431; /* x78606 stalin.sc:5311:182087 */ t70701 = a22482; /* x78607 stalin.sc:5311:182090 */ t70702 = a22487; /* x78621 stalin.sc:5312:182096 */ /* x78610 stalin.sc:5312:182100 */ /* x78609 stalin.sc:5312:182107 */ t70705 = a22431; /* x78608 stalin.sc:5312:182101 */ if (f8918(t70705)==FALSE_TYPE) goto l12003; /* x78611 stalin.sc:5313:182117 */ t70703 = (struct structure_type27698 *)FALSE_TYPE; goto l12004; l12003: /* x78620 stalin.sc:5314:182127 */ /* x78615 stalin.sc:5314:182133 */ /* x78614 stalin.sc:5314:182150 */ t70710 = a22431; /* x78613 stalin.sc:5314:182134 */ a39213 = t70710; /* x289521 */ /* x289520 */ t70711 = a39213; /* x289519 */ if (!((t70711.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34130]"); structure_ref_error();} t70706 = t70711.value.structure_type27698->s15; /* x78619 stalin.sc:5314:182153 */ /* x78617 stalin.sc:5314:182159 */ t70712 = a22487; /* x78618 stalin.sc:5314:182162 */ t70713 = p9246->a22432; /* x270072 stalin.sc:5314:182154 */ t70707 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t70707==NULL) {backtrace("stalin.sc", 5314, 182153); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t70712==NULL_TYPE) t70707->s0.tag = (unsigned)t70712; else {if ((t70712&3)==1) {t70707->s0.tag = STRUCTURE_TYPE24753; t70707->s0.value.structure_type24753 = (struct structure_type24753 *)(t70712-1);} else {t70707->s0.tag = STRUCTURE_TYPE27692; t70707->s0.value.structure_type27692 = (struct structure_type27692 *)t70712;}} /* MOVE: branching squeezed to general */ if (t70713>=((struct structure_type24753 *)VALUE_OFFSET)) {t70707->s1.tag = STRUCTURE_TYPE24753; t70707->s1.value.structure_type24753 = t70713;} else t70707->s1.tag = (unsigned)t70713; /* x78612 stalin.sc:5314:182128 */ t70708 = t70707; t70709 = f9176(t70706, t70708); t70703 = t70709; l12004: /* x78604 stalin.sc:5310:182047 */ t70704.tag = STRUCTURE_TYPE27694; t70704.value.structure_type27694 = t70701; t70673 = f6902(t70700, t70704, t70702, t70703); /* x78603 */ t70672 = p9246; p9247 = t70672; a22488 = t70673; /* x78602 */ /* x78601 */ t70674 = p9247; p9248 = t70674; /* x78600 */ /* x78566 stalin.sc:5319:182446 */ /* x78555 stalin.sc:5319:182452 */ /* x78554 stalin.sc:5319:182459 */ t70675 = p9248->a22432; /* x270074 stalin.sc:5319:182453 */ if (!(((unsigned)t70675)==NULL_TYPE)) goto l11994; /* x78563 */ /* x78562 */ /* x78561 stalin.sc:5319:182464 */ /* x78557 stalin.sc:5319:182490 */ t70676 = a22488; /* x78560 stalin.sc:5319:182493 */ /* x78559 stalin.sc:5319:182514 */ t70679 = a22431; /* x78558 stalin.sc:5319:182494 */ t70677 = f6926(t70679); /* x78556 stalin.sc:5319:182465 */ t70678.tag = STRUCTURE_TYPE27698; t70678.value.structure_type27698 = t70676; f6927(t70678, t70677); goto l11995; l11994: /* x78565 stalin.sc:5319:182446 */ /* x78564 stalin.sc:5319:182446 */ l11995: /* x78579 stalin.sc:5320:182525 */ /* x78568 stalin.sc:5321:182558 */ t70680 = a22488; /* x78578 stalin.sc:5322:182568 */ /* x78571 stalin.sc:5322:182572 */ /* x78570 stalin.sc:5322:182579 */ t70683 = p9248->a22432; /* x270073 stalin.sc:5322:182573 */ if (!(((unsigned)t70683)==NULL_TYPE)) goto l11997; /* x78574 stalin.sc:5324:182662 */ /* x78573 stalin.sc:5324:182683 */ t70687 = a22431; /* x78572 stalin.sc:5324:182663 */ a39941 = t70687; /* x292433 */ /* x292432 */ t70688 = a39941; /* x292431 */ if (!((t70688.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34858]"); structure_ref_error();} t70681 = t70688.value.structure_type27698->s10; goto l11998; l11997: /* x78577 stalin.sc:5327:182773 */ /* x78576 stalin.sc:5327:182790 */ t70684 = a22488; /* x78575 stalin.sc:5327:182774 */ t70685.tag = STRUCTURE_TYPE27698; t70685.value.structure_type27698 = t70684; t70686 = f8092(t70685); t70681.tag = STRUCTURE_TYPE27650; t70681.value.structure_type27650 = t70686; l11998: /* x78567 stalin.sc:5320:182526 */ t70682.tag = STRUCTURE_TYPE27698; t70682.value.structure_type27698 = t70680; f5568(t70682, t70681); /* x78593 stalin.sc:5328:182802 */ /* x78582 stalin.sc:5328:182810 */ /* x78581 stalin.sc:5328:182817 */ t70689 = a22488; /* x78580 stalin.sc:5328:182811 */ t70690.tag = STRUCTURE_TYPE27698; t70690.value.structure_type27698 = t70689; if (f8918(t70690)==FALSE_TYPE) goto l12000; /* x78584 */ /* x78583 */ goto l12001; l12000: /* x78592 */ /* x78591 */ /* x78590 stalin.sc:5328:182821 */ /* x78588 stalin.sc:5328:182845 */ /* x78587 stalin.sc:5328:182862 */ t70694 = a22488; /* x78586 stalin.sc:5328:182846 */ a39212 = t70694; /* x289517 */ /* x289516 */ t70695 = a39212; /* x289515 */ t70691 = t70695->s15; /* x78589 stalin.sc:5328:182866 */ t70692 = a22488; /* x78585 stalin.sc:5328:182822 */ t70693.tag = STRUCTURE_TYPE27698; t70693.value.structure_type27698 = t70692; f5576(t70691, t70693); l12001: /* x78596 stalin.sc:5329:182877 */ /* x78595 stalin.sc:5329:182933 */ t70696 = a22482; /* x78594 stalin.sc:5329:182878 */ t70697.tag = STRUCTURE_TYPE27694; t70697.value.structure_type27694 = t70696; f10394(t70697); /* x78599 stalin.sc:5330:182943 */ /* x78598 stalin.sc:5330:183001 */ t70698 = a22482; /* x78597 stalin.sc:5330:182944 */ t70699.tag = STRUCTURE_TYPE27694; t70699.value.structure_type27694 = t70698; f10405(t70699); /* x78552 */ /* x78551 stalin.sc:5331:183011 */ return a22488; l11908: /* x79624 */ /* x78792 */ /* x78790 */ t70216 = a22433; /* x78791 */ t70217 = q41; /* x78789 */ t70218.tag = EXTERNAL_SYMBOL_TYPE; t70218.value.external_symbol_type = t70216; t70219.tag = EXTERNAL_SYMBOL_TYPE; t70219.value.external_symbol_type = t70217; if (f26160(t70218, t70219)==FALSE_TYPE) goto l11910; /* x79030 */ /* x79029 */ t70572 = p9177; p9273 = t70572; /* x79028 stalin.sc:5333:183050 */ /* x79027 stalin.sc:5333:183060 */ /* x79025 stalin.sc:5334:183088 */ /* x79024 stalin.sc:5335:183108 */ /* x79023 stalin.sc:5335:183126 */ /* x79022 stalin.sc:5335:183157 */ t70664 = a22431; /* x79021 stalin.sc:5335:183127 */ a39482 = t70664; /* x290597 */ /* x290596 */ t70665 = a39482; /* x290595 */ if (!((t70665.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34399]"); structure_ref_error();} t70662 = t70665.value.structure_type27698->s13; /* x79020 stalin.sc:5335:183109 */ t70663 = *((struct w49 *)(&t70662)); t70660 = f8966(t70663); /* x79019 stalin.sc:5334:183089 */ a36626 = t70660; /* x279173 */ /* x279172 */ t70661 = a36626; /* x279171 */ if (!((t70661.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31543]"); structure_ref_error();} t70657 = t70661.value.structure_type27694->s2; /* x79026 stalin.sc:5336:183170 */ /* x79018 stalin.sc:5333:183061 */ t70658.tag = STRING_TYPE; t70658.value.string_type = t70657; t70659 = (char *)FALSE_TYPE; t70574 = f8468(t70658, t70659); /* x79017 */ t70573 = p9273; p9274 = t70573; a22503 = t70574; /* x79016 */ /* x78945 stalin.sc:5337:183181 */ /* x78943 stalin.sc:5337:183205 */ t70623 = a22503; /* x78944 stalin.sc:5337:183208 */ /* x78942 stalin.sc:5337:183182 */ t70624.tag = STRUCTURE_TYPE27694; t70624.value.structure_type27694 = t70623; t70625 = (char *)TRUE_TYPE; f6656(t70624, t70625); /* x78970 stalin.sc:5338:183217 */ /* x78946 stalin.sc:5338:183223 */ /* x78969 stalin.sc:5338:183217 */ /* x78968 stalin.sc:5338:183217 */ /* x79007 stalin.sc:5343:183405 */ /* x78973 stalin.sc:5343:183411 */ /* x78972 stalin.sc:5343:183418 */ t70626 = p9274->a22432; /* x270058 stalin.sc:5343:183412 */ if (!(((unsigned)t70626)==NULL_TYPE)) goto l11991; /* x79004 */ /* x79003 */ /* x79002 */ /* x78997 stalin.sc:5344:183429 */ /* x78991 stalin.sc:5345:183471 */ t70640 = a22503; /* x78996 stalin.sc:5345:183474 */ /* x78995 stalin.sc:5345:183492 */ /* x78994 stalin.sc:5345:183523 */ t70645 = a22431; /* x78993 stalin.sc:5345:183493 */ a39480 = t70645; /* x290589 */ /* x290588 */ t70646 = a39480; /* x290587 */ if (!((t70646.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34397]"); structure_ref_error();} t70643 = t70646.value.structure_type27698->s13; /* x78992 stalin.sc:5345:183475 */ t70644 = *((struct w49 *)(&t70643)); t70641 = f8966(t70644); /* x78990 stalin.sc:5344:183430 */ t70642.tag = STRUCTURE_TYPE27694; t70642.value.structure_type27694 = t70640; f6744(t70642, t70641); /* x79001 stalin.sc:5346:183534 */ /* x78999 stalin.sc:5346:183566 */ t70647 = a22503; /* x79000 stalin.sc:5346:183569 */ /* x78998 stalin.sc:5346:183535 */ t70648.tag = STRUCTURE_TYPE27694; t70648.value.structure_type27694 = t70647; t70649.tag = NULL_TYPE; f6752(t70648, t70649); /* x78989 */ /* x78988 stalin.sc:5347:183580 */ /* x78979 stalin.sc:5348:183619 */ /* x78978 stalin.sc:5348:183637 */ /* x78977 stalin.sc:5348:183668 */ t70632 = a22431; /* x78976 stalin.sc:5348:183638 */ a39478 = t70632; /* x290581 */ /* x290580 */ t70633 = a39478; /* x290579 */ if (!((t70633.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34395]"); structure_ref_error();} t70630 = t70633.value.structure_type27698->s13; /* x78975 stalin.sc:5348:183620 */ t70631 = *((struct w49 *)(&t70630)); t70627 = f8966(t70631); /* x78987 stalin.sc:5349:183679 */ /* x78981 stalin.sc:5349:183685 */ t70634 = a22503; /* x78986 stalin.sc:5349:183688 */ /* x78985 stalin.sc:5349:183703 */ /* x78984 stalin.sc:5349:183734 */ t70638 = a22431; /* x78983 stalin.sc:5349:183704 */ a39479 = t70638; /* x290585 */ /* x290584 */ t70639 = a39479; /* x290583 */ if (!((t70639.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34396]"); structure_ref_error();} t70636 = t70639.value.structure_type27698->s13; /* x78982 stalin.sc:5349:183689 */ t70637 = *((struct w49 *)(&t70636)); t70635 = f8984(t70637); /* x270057 stalin.sc:5349:183680 */ t70628 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t70628==NULL) {backtrace("stalin.sc", 5349, 183679); out_of_memory_error();} t70628->s0.tag = STRUCTURE_TYPE27694; t70628->s0.value.structure_type27694 = t70634; t70628->s1 = *((struct w49 *)(&t70635)); /* x78974 stalin.sc:5347:183581 */ t70629.tag = STRUCTURE_TYPE24753; t70629.value.structure_type24753 = t70628; f6752(t70627, t70629); goto l11992; l11991: /* x79006 stalin.sc:5343:183405 */ /* x79005 stalin.sc:5343:183405 */ l11992: /* x79015 stalin.sc:5350:183746 */ /* x79009 stalin.sc:5351:183785 */ t70650 = a22503; /* x79014 stalin.sc:5351:183788 */ /* x79013 stalin.sc:5351:183804 */ /* x79012 stalin.sc:5351:183835 */ t70655 = a22431; /* x79011 stalin.sc:5351:183805 */ a39481 = t70655; /* x290593 */ /* x290592 */ t70656 = a39481; /* x290591 */ if (!((t70656.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34398]"); structure_ref_error();} t70653 = t70656.value.structure_type27698->s13; /* x79010 stalin.sc:5351:183789 */ t70654 = *((struct w49 *)(&t70653)); t70651 = f8976(t70654); /* x79008 stalin.sc:5350:183747 */ t70652.tag = STRUCTURE_TYPE27694; t70652.value.structure_type27694 = t70650; f6760(t70652, t70651); /* x78941 */ t70575 = p9274; p9275 = t70575; /* x78940 stalin.sc:5352:183845 */ /* x78939 stalin.sc:5352:183856 */ /* x78938 stalin.sc:5352:183871 */ /* x78937 stalin.sc:5352:183894 */ t70621 = a22431; /* x78936 stalin.sc:5352:183872 */ a39432 = t70621; /* x290397 */ /* x290396 */ t70622 = a39432; /* x290395 */ if (!((t70622.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34349]"); structure_ref_error();} t70619 = t70622.value.structure_type27698->s14; /* x78935 */ /* x78934 */ /* x78933 */ /* x78932 */ /* x78931 */ /* x78930 */ /* x78929 */ /* x78868 */ /* x78867 stalin.sc:5352:183861 */ t70620 = *((struct w49 *)(&t70619)); t70577 = f9286(t70620); /* x78866 */ t70576 = p9275; p9276 = t70576; a22508 = t70577; /* x78865 */ /* x78864 stalin.sc:5363:184229 */ /* x78847 stalin.sc:5364:184274 */ t70606 = a22431; /* x78848 stalin.sc:5364:184276 */ t70607 = a22503; /* x78849 stalin.sc:5364:184279 */ t70608 = a22508; /* x78863 stalin.sc:5365:184285 */ /* x78852 stalin.sc:5365:184289 */ /* x78851 stalin.sc:5365:184296 */ t70610 = a22431; /* x78850 stalin.sc:5365:184290 */ if (f8918(t70610)==FALSE_TYPE) goto l11987; /* x78853 stalin.sc:5366:184306 */ t70609 = (struct structure_type27698 *)FALSE_TYPE; goto l11988; l11987: /* x78862 stalin.sc:5367:184316 */ /* x78857 stalin.sc:5367:184322 */ /* x78856 stalin.sc:5367:184339 */ t70615 = a22431; /* x78855 stalin.sc:5367:184323 */ a39215 = t70615; /* x289529 */ /* x289528 */ t70616 = a39215; /* x289527 */ if (!((t70616.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34132]"); structure_ref_error();} t70611 = t70616.value.structure_type27698->s15; /* x78861 stalin.sc:5367:184342 */ /* x78859 stalin.sc:5367:184348 */ t70617 = a22508; /* x78860 stalin.sc:5367:184351 */ t70618 = p9276->a22432; /* x270063 stalin.sc:5367:184343 */ t70612 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t70612==NULL) {backtrace("stalin.sc", 5367, 184342); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t70617==NULL_TYPE) t70612->s0.tag = (unsigned)t70617; else {if ((t70617&3)==1) {t70612->s0.tag = STRUCTURE_TYPE24753; t70612->s0.value.structure_type24753 = (struct structure_type24753 *)(t70617-1);} else {t70612->s0.tag = STRUCTURE_TYPE27692; t70612->s0.value.structure_type27692 = (struct structure_type27692 *)t70617;}} /* MOVE: branching squeezed to general */ if (t70618>=((struct structure_type24753 *)VALUE_OFFSET)) {t70612->s1.tag = STRUCTURE_TYPE24753; t70612->s1.value.structure_type24753 = t70618;} else t70612->s1.tag = (unsigned)t70618; /* x78854 stalin.sc:5367:184317 */ t70613 = t70612; t70614 = f9176(t70611, t70613); t70609 = t70614; l11988: /* x78846 stalin.sc:5363:184230 */ t70579 = f6908(t70606, t70607, t70608, t70609); /* x78845 */ t70578 = p9276; p9277 = t70578; a22509 = t70579; /* x78844 */ /* x78843 */ t70580 = p9277; p9278 = t70580; /* x78842 */ /* x78808 stalin.sc:5372:184635 */ /* x78797 stalin.sc:5372:184641 */ /* x78796 stalin.sc:5372:184648 */ t70581 = p9278->a22432; /* x270065 stalin.sc:5372:184642 */ if (!(((unsigned)t70581)==NULL_TYPE)) goto l11978; /* x78805 */ /* x78804 */ /* x78803 stalin.sc:5372:184653 */ /* x78799 stalin.sc:5372:184679 */ t70582 = a22509; /* x78802 stalin.sc:5372:184682 */ /* x78801 stalin.sc:5372:184703 */ t70585 = a22431; /* x78800 stalin.sc:5372:184683 */ t70583 = f6926(t70585); /* x78798 stalin.sc:5372:184654 */ t70584.tag = STRUCTURE_TYPE27698; t70584.value.structure_type27698 = t70582; f6927(t70584, t70583); goto l11979; l11978: /* x78807 stalin.sc:5372:184635 */ /* x78806 stalin.sc:5372:184635 */ l11979: /* x78821 stalin.sc:5373:184714 */ /* x78810 stalin.sc:5374:184747 */ t70586 = a22509; /* x78820 stalin.sc:5375:184757 */ /* x78813 stalin.sc:5375:184761 */ /* x78812 stalin.sc:5375:184768 */ t70589 = p9278->a22432; /* x270064 stalin.sc:5375:184762 */ if (!(((unsigned)t70589)==NULL_TYPE)) goto l11981; /* x78816 stalin.sc:5377:184851 */ /* x78815 stalin.sc:5377:184872 */ t70593 = a22431; /* x78814 stalin.sc:5377:184852 */ a39942 = t70593; /* x292437 */ /* x292436 */ t70594 = a39942; /* x292435 */ if (!((t70594.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34859]"); structure_ref_error();} t70587 = t70594.value.structure_type27698->s10; goto l11982; l11981: /* x78819 stalin.sc:5380:184962 */ /* x78818 stalin.sc:5380:184979 */ t70590 = a22509; /* x78817 stalin.sc:5380:184963 */ t70591.tag = STRUCTURE_TYPE27698; t70591.value.structure_type27698 = t70590; t70592 = f8092(t70591); t70587.tag = STRUCTURE_TYPE27650; t70587.value.structure_type27650 = t70592; l11982: /* x78809 stalin.sc:5373:184715 */ t70588.tag = STRUCTURE_TYPE27698; t70588.value.structure_type27698 = t70586; f5568(t70588, t70587); /* x78835 stalin.sc:5381:184991 */ /* x78824 stalin.sc:5381:184999 */ /* x78823 stalin.sc:5381:185006 */ t70595 = a22509; /* x78822 stalin.sc:5381:185000 */ t70596.tag = STRUCTURE_TYPE27698; t70596.value.structure_type27698 = t70595; if (f8918(t70596)==FALSE_TYPE) goto l11984; /* x78826 */ /* x78825 */ goto l11985; l11984: /* x78834 */ /* x78833 */ /* x78832 stalin.sc:5381:185010 */ /* x78830 stalin.sc:5381:185034 */ /* x78829 stalin.sc:5381:185051 */ t70600 = a22509; /* x78828 stalin.sc:5381:185035 */ a39214 = t70600; /* x289525 */ /* x289524 */ t70601 = a39214; /* x289523 */ t70597 = t70601->s15; /* x78831 stalin.sc:5381:185055 */ t70598 = a22509; /* x78827 stalin.sc:5381:185011 */ t70599.tag = STRUCTURE_TYPE27698; t70599.value.structure_type27698 = t70598; f5576(t70597, t70599); l11985: /* x78838 stalin.sc:5382:185066 */ /* x78837 stalin.sc:5382:185122 */ t70602 = a22503; /* x78836 stalin.sc:5382:185067 */ t70603.tag = STRUCTURE_TYPE27694; t70603.value.structure_type27694 = t70602; f10394(t70603); /* x78841 stalin.sc:5383:185132 */ /* x78840 stalin.sc:5383:185190 */ t70604 = a22503; /* x78839 stalin.sc:5383:185133 */ t70605.tag = STRUCTURE_TYPE27694; t70605.value.structure_type27694 = t70604; f10405(t70605); /* x78794 */ /* x78793 stalin.sc:5384:185200 */ return a22509; l11910: /* x79623 */ /* x79034 */ /* x79032 */ t70220 = a22433; /* x79033 */ t70221 = q42; /* x79031 */ t70222.tag = EXTERNAL_SYMBOL_TYPE; t70222.value.external_symbol_type = t70220; t70223.tag = EXTERNAL_SYMBOL_TYPE; t70223.value.external_symbol_type = t70221; if (f26160(t70222, t70223)==FALSE_TYPE) goto l11912; /* x79223 */ /* x79222 */ t70474 = p9177; p9303 = t70474; /* x79221 stalin.sc:5386:185221 */ /* x79220 stalin.sc:5386:185230 */ /* x79078 stalin.sc:5387:185261 */ t70509 = a22431; /* x79213 stalin.sc:5388:185270 */ /* x79209 stalin.sc:5388:185288 */ t70513 = p9303->a22432; /* x79212 stalin.sc:5388:185296 */ /* x79211 stalin.sc:5388:185320 */ t70566 = a22431; /* x79210 stalin.sc:5388:185297 */ a40070 = t70566; /* x292949 */ /* x292948 */ t70567 = a40070; /* x292947 */ if (!((t70567.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34987]"); structure_ref_error();} t70514 = t70567.value.structure_type27698->s9; /* x79208 */ /* x79207 */ /* x79206 */ /* x79205 */ /* x79204 */ /* x79203 */ /* x79202 */ /* x79080 */ /* x79079 stalin.sc:5388:185275 */ /* MOVE: branching squeezed to general */ if (t70513>=((struct structure_type24753 *)VALUE_OFFSET)) {a22531.tag = STRUCTURE_TYPE24753; a22531.value.structure_type24753 = t70513;} else a22531.tag = (unsigned)t70513; a22532 = t70514; h9308: /* x79201 stalin.sc:5389:185333 */ /* x79083 stalin.sc:5389:185337 */ /* x79082 stalin.sc:5389:185344 */ t70515 = a22531; /* x270054 stalin.sc:5389:185338 */ if (!((t70515.tag)==NULL_TYPE)) goto l11952; /* x79086 stalin.sc:5390:185355 */ /* x79085 stalin.sc:5390:185376 */ t70564 = a22431; /* x79084 stalin.sc:5390:185356 */ a39111 = t70564; /* x289113 */ /* x289112 */ t70565 = a39111; /* x289111 */ if (!((t70565.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34028]"); structure_ref_error();} t70510 = t70565.value.structure_type27698->s16; goto l11953; l11952: /* x79200 stalin.sc:5391:185384 */ /* x79194 stalin.sc:5391:185401 */ /* x79193 stalin.sc:5391:185408 */ t70558 = *((struct w16638 *)(&a22531)); /* x79192 stalin.sc:5391:185402 */ a36014 = t70558; /* x275413 */ /* x275412 */ t70559 = a36014; /* x275411 */ if (!((t70559.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30163]"); structure_ref_error();} t70516 = t70559.value.structure_type24753->s0; /* x79199 stalin.sc:5392:185430 */ /* x79198 stalin.sc:5393:185462 */ /* x79197 stalin.sc:5393:185486 */ t70562 = a22532; /* x79196 stalin.sc:5393:185463 */ a36680 = t70562; /* x279389 */ /* x279388 */ t70563 = a36680; /* x279387 */ if (!((t70563.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31597]"); structure_ref_error();} t70560 = t70563.value.structure_type27694->s1; /* x79195 stalin.sc:5392:185431 */ a39430 = t70560; /* x290389 */ /* x290388 */ t70561 = a39430; /* x290387 */ if (!((t70561.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34347]"); structure_ref_error();} t70517 = t70561.value.structure_type27698->s14; /* x79191 */ /* x79190 */ /* x79189 */ /* x79188 */ /* x79187 */ /* x79186 */ /* x79185 */ /* x79088 */ /* x79087 stalin.sc:5391:185389 */ a22535 = t70516; a22536 = *((struct w49 *)(&t70517)); h9311: /* x79184 stalin.sc:5394:185498 */ /* x79091 stalin.sc:5394:185505 */ /* x79090 stalin.sc:5394:185512 */ t70518 = a22535; /* x270053 stalin.sc:5394:185506 */ if (!((t70518.tag)==NULL_TYPE)) goto l11955; /* x79113 */ /* x79112 */ /* x79111 */ /* x79110 stalin.sc:5395:185523 */ /* x79103 stalin.sc:5395:185531 */ /* x79102 stalin.sc:5395:185538 */ t70556 = a22536; /* x270052 stalin.sc:5395:185532 */ if (!((t70556.tag)==NULL_TYPE)) goto l11975; /* x79105 */ /* x79104 */ goto l11976; l11975: /* x79109 */ /* x79108 */ /* x79107 stalin.sc:5395:185543 */ /* x79106 stalin.sc:5395:185544 */ /* x296205 QobiScheme.sc:166:5314 */ /* x296204 QobiScheme.sc:166:5321 */ t70557 = "This shouldn\'t happen"; /* x296203 QobiScheme.sc:166:5315 */ stalin_panic(t70557); l11976: /* x79100 */ /* x79099 stalin.sc:5396:185560 */ /* x79095 stalin.sc:5396:185567 */ /* x79094 stalin.sc:5396:185573 */ t70553 = a22531; /* x79093 stalin.sc:5396:185568 */ a35505 = t70553; /* x273377 */ /* x273376 */ t70554 = a35505; /* x273375 */ if (!((t70554.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29654]"); structure_ref_error();} t70551 = t70554.value.structure_type24753->s1; /* x79098 stalin.sc:5396:185579 */ /* x79097 stalin.sc:5396:185587 */ t70555 = a22532; /* x79096 stalin.sc:5396:185580 */ t70552 = f8682(t70555); /* x79092 stalin.sc:5396:185561 */ a22531 = t70551; a22532 = t70552; goto h9308; goto l11956; l11955: /* x79183 */ /* x79116 stalin.sc:5397:185598 */ /* x79115 stalin.sc:5397:185605 */ t70519 = a22536; /* x270051 stalin.sc:5397:185599 */ if (!((t70519.tag)==NULL_TYPE)) goto l11958; /* x79120 */ /* x79119 */ /* x79118 stalin.sc:5397:185610 */ /* x79117 stalin.sc:5397:185611 */ /* x296209 QobiScheme.sc:166:5314 */ /* x296208 QobiScheme.sc:166:5321 */ t70550 = "This shouldn\'t happen"; /* x296207 QobiScheme.sc:166:5315 */ stalin_panic(t70550); goto l11959; l11958: /* x79182 */ /* x79128 stalin.sc:5398:185627 */ /* x79123 stalin.sc:5398:185632 */ /* x79122 stalin.sc:5398:185639 */ t70520 = *((struct w16638 *)(&a22535)); /* x270050 stalin.sc:5398:185633 */ if (!((t70520.tag)==STRUCTURE_TYPE24753)) goto l11961; /* x79126 */ /* x79125 stalin.sc:5398:185651 */ t70521 = *((struct w16638 *)(&a22536)); /* x270049 stalin.sc:5398:185645 */ if (!((t70521.tag)==STRUCTURE_TYPE24753)) goto l11961; /* x79150 */ /* x79149 */ /* x79148 stalin.sc:5399:185663 */ /* x79136 stalin.sc:5399:185667 */ /* x79132 stalin.sc:5399:185672 */ /* x79131 stalin.sc:5399:185679 */ t70538 = *((struct w16638 *)(&a22536)); /* x79130 stalin.sc:5399:185673 */ a36013 = t70538; /* x275409 */ /* x275408 */ t70539 = a36013; /* x275407 */ if (!((t70539.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30162]"); structure_ref_error();} t70536 = t70539.value.structure_type24753->s0; /* x79135 stalin.sc:5399:185684 */ /* x79134 stalin.sc:5399:185705 */ t70540 = a22431; /* x79133 stalin.sc:5399:185685 */ a39103 = t70540; /* x289081 */ /* x289080 */ t70541 = a39103; /* x289079 */ if (!((t70541.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34020]"); structure_ref_error();} t70537 = t70541.value.structure_type27698->s16; /* x270048 stalin.sc:5399:185668 */ /* EQ: dispatching general to general */ if (!((t70536.tag)==(t70537.tag))) goto l11972; switch (t70536.tag) {case FIXNUM_TYPE: if (!((t70536.value.fixnum_type)==(t70537.value.fixnum_type))) goto l11972; break; case FLONUM_TYPE: if (!((t70536.value.flonum_type)==(t70537.value.flonum_type))) goto l11972; break; case INPUT_PORT_TYPE: if (!((t70536.value.input_port_type)==(t70537.value.input_port_type))) goto l11972; break; case OUTPUT_PORT_TYPE: if (!((t70536.value.output_port_type)==(t70537.value.output_port_type))) goto l11972; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t70536.value.native_procedure_type15963)==(t70537.value.native_procedure_type15963))) goto l11972; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t70536.value.native_procedure_type19067)==(t70537.value.native_procedure_type19067))) goto l11972; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t70536.value.native_procedure_type19068)==(t70537.value.native_procedure_type19068))) goto l11972; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t70536.value.native_procedure_type22459)==(t70537.value.native_procedure_type22459))) goto l11972; break; case STRUCTURE_TYPE24753: if (!((t70536.value.structure_type24753)==(t70537.value.structure_type24753))) goto l11972; break; case STRUCTURE_TYPE24757: if (!((t70536.value.structure_type24757)==(t70537.value.structure_type24757))) goto l11972; break; case STRUCTURE_TYPE27501: if (!((t70536.value.structure_type27501)==(t70537.value.structure_type27501))) goto l11972; break; case STRUCTURE_TYPE27510: if (!((t70536.value.structure_type27510)==(t70537.value.structure_type27510))) goto l11972; break; case STRUCTURE_TYPE27621: if (!((t70536.value.structure_type27621)==(t70537.value.structure_type27621))) goto l11972; break; case STRUCTURE_TYPE27650: if (!((t70536.value.structure_type27650)==(t70537.value.structure_type27650))) goto l11972; break; case STRUCTURE_TYPE27669: if (!((t70536.value.structure_type27669)==(t70537.value.structure_type27669))) goto l11972; break; case STRUCTURE_TYPE27673: if (!((t70536.value.structure_type27673)==(t70537.value.structure_type27673))) goto l11972; break; case STRUCTURE_TYPE27692: if (!((t70536.value.structure_type27692)==(t70537.value.structure_type27692))) goto l11972; break; case STRUCTURE_TYPE27694: if (!((t70536.value.structure_type27694)==(t70537.value.structure_type27694))) goto l11972; break; case STRUCTURE_TYPE27698: if (!((t70536.value.structure_type27698)==(t70537.value.structure_type27698))) goto l11972; break; case STRUCTURE_TYPE27745: if (!((t70536.value.structure_type27745)==(t70537.value.structure_type27745))) goto l11972; break; case STRUCTURE_TYPE27747: if (!((t70536.value.structure_type27747)==(t70537.value.structure_type27747))) goto l11972; break; case STRUCTURE_TYPE27750: if (!((t70536.value.structure_type27750)==(t70537.value.structure_type27750))) goto l11972; break; case STRUCTURE_TYPE27753: if (!((t70536.value.structure_type27753)==(t70537.value.structure_type27753))) goto l11972; break; case STRUCTURE_TYPE27756: if (!((t70536.value.structure_type27756)==(t70537.value.structure_type27756))) goto l11972; break; case STRUCTURE_TYPE27761: if (!((t70536.value.structure_type27761)==(t70537.value.structure_type27761))) goto l11972; break; case STRUCTURE_TYPE27769: if (!((t70536.value.structure_type27769)==(t70537.value.structure_type27769))) goto l11972; break; case STRUCTURE_TYPE27776: if (!((t70536.value.structure_type27776)==(t70537.value.structure_type27776))) goto l11972; break; case STRUCTURE_TYPE27779: if (!((t70536.value.structure_type27779)==(t70537.value.structure_type27779))) goto l11972; break; case STRUCTURE_TYPE27858: if (!((t70536.value.structure_type27858)==(t70537.value.structure_type27858))) goto l11972; break; case STRING_TYPE: if (!((t70536.value.string_type)==(t70537.value.string_type))) goto l11972; break; case HEADED_VECTOR_TYPE27896: if (!((t70536.value.headed_vector_type27896)==(t70537.value.headed_vector_type27896))) goto l11972; break; case EXTERNAL_SYMBOL_TYPE: if (!((t70536.value.external_symbol_type)==(t70537.value.external_symbol_type))) goto l11972; break; case STRUCTURE_TYPE27908: if (!((t70536.value.structure_type27908)==(t70537.value.structure_type27908))) goto l11972; break; default:;} /* x79139 stalin.sc:5400:185719 */ /* x79138 stalin.sc:5400:185726 */ t70548 = *((struct w16638 *)(&a22535)); /* x79137 stalin.sc:5400:185720 */ a36012 = t70548; /* x275405 */ /* x275404 */ t70549 = a36012; /* x275403 */ if (!((t70549.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30161]"); structure_ref_error();} t70510 = t70549.value.structure_type24753->s0; goto l11973; l11972: /* x79147 stalin.sc:5401:185741 */ /* x79143 stalin.sc:5401:185748 */ /* x79142 stalin.sc:5401:185754 */ t70544 = *((struct w16638 *)(&a22535)); /* x79141 stalin.sc:5401:185749 */ a35506 = t70544; /* x273381 */ /* x273380 */ t70545 = a35506; /* x273379 */ if (!((t70545.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29655]"); structure_ref_error();} t70542 = t70545.value.structure_type24753->s1; /* x79146 stalin.sc:5401:185759 */ /* x79145 stalin.sc:5401:185765 */ t70546 = *((struct w16638 *)(&a22536)); /* x79144 stalin.sc:5401:185760 */ a35507 = t70546; /* x273385 */ /* x273384 */ t70547 = a35507; /* x273383 */ if (!((t70547.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29656]"); structure_ref_error();} t70543 = t70547.value.structure_type24753->s1; /* x79140 stalin.sc:5401:185742 */ a22535 = t70542; a22536 = t70543; goto h9311; l11973: goto l11962; l11961: /* x79181 */ /* x79158 stalin.sc:5402:185779 */ /* x79153 stalin.sc:5402:185784 */ /* x79152 stalin.sc:5402:185795 */ t70522 = *((struct w16638 *)(&a22535)); /* x79151 stalin.sc:5402:185785 */ a37015 = t70522; /* x280729 */ /* x280728 */ t70523 = a37015; /* x280727 */ if (!((t70523.tag)==STRUCTURE_TYPE27692)) goto l11965; /* x79156 */ /* x79155 stalin.sc:5402:185811 */ t70524 = *((struct w16638 *)(&a22536)); /* x79154 stalin.sc:5402:185801 */ a37014 = t70524; /* x280725 */ /* x280724 */ t70525 = a37014; /* x280723 */ if (!((t70525.tag)==STRUCTURE_TYPE27692)) goto l11965; /* x79176 */ /* x79175 */ /* x79174 stalin.sc:5403:185823 */ /* x79164 stalin.sc:5403:185827 */ /* x79160 stalin.sc:5403:185832 */ t70527 = *((struct w16638 *)(&a22536)); /* x79163 stalin.sc:5403:185836 */ /* x79162 stalin.sc:5403:185857 */ t70529 = a22431; /* x79161 stalin.sc:5403:185837 */ a39104 = t70529; /* x289085 */ /* x289084 */ t70530 = a39104; /* x289083 */ if (!((t70530.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34021]"); structure_ref_error();} t70528 = t70530.value.structure_type27698->s16; /* x270047 stalin.sc:5403:185828 */ /* EQ: dispatching general to general */ if (!((t70527.tag)==(t70528.tag))) goto l11969; switch (t70527.tag) {case FIXNUM_TYPE: if (!((t70527.value.fixnum_type)==(t70528.value.fixnum_type))) goto l11969; break; case FLONUM_TYPE: if (!((t70527.value.flonum_type)==(t70528.value.flonum_type))) goto l11969; break; case INPUT_PORT_TYPE: if (!((t70527.value.input_port_type)==(t70528.value.input_port_type))) goto l11969; break; case OUTPUT_PORT_TYPE: if (!((t70527.value.output_port_type)==(t70528.value.output_port_type))) goto l11969; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t70527.value.native_procedure_type15963)==(t70528.value.native_procedure_type15963))) goto l11969; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t70527.value.native_procedure_type19067)==(t70528.value.native_procedure_type19067))) goto l11969; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t70527.value.native_procedure_type19068)==(t70528.value.native_procedure_type19068))) goto l11969; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t70527.value.native_procedure_type22459)==(t70528.value.native_procedure_type22459))) goto l11969; break; case STRUCTURE_TYPE24753: if (!((t70527.value.structure_type24753)==(t70528.value.structure_type24753))) goto l11969; break; case STRUCTURE_TYPE24757: if (!((t70527.value.structure_type24757)==(t70528.value.structure_type24757))) goto l11969; break; case STRUCTURE_TYPE27501: if (!((t70527.value.structure_type27501)==(t70528.value.structure_type27501))) goto l11969; break; case STRUCTURE_TYPE27510: if (!((t70527.value.structure_type27510)==(t70528.value.structure_type27510))) goto l11969; break; case STRUCTURE_TYPE27621: if (!((t70527.value.structure_type27621)==(t70528.value.structure_type27621))) goto l11969; break; case STRUCTURE_TYPE27650: if (!((t70527.value.structure_type27650)==(t70528.value.structure_type27650))) goto l11969; break; case STRUCTURE_TYPE27669: if (!((t70527.value.structure_type27669)==(t70528.value.structure_type27669))) goto l11969; break; case STRUCTURE_TYPE27673: if (!((t70527.value.structure_type27673)==(t70528.value.structure_type27673))) goto l11969; break; case STRUCTURE_TYPE27692: if (!((t70527.value.structure_type27692)==(t70528.value.structure_type27692))) goto l11969; break; case STRUCTURE_TYPE27694: if (!((t70527.value.structure_type27694)==(t70528.value.structure_type27694))) goto l11969; break; case STRUCTURE_TYPE27698: if (!((t70527.value.structure_type27698)==(t70528.value.structure_type27698))) goto l11969; break; case STRUCTURE_TYPE27745: if (!((t70527.value.structure_type27745)==(t70528.value.structure_type27745))) goto l11969; break; case STRUCTURE_TYPE27747: if (!((t70527.value.structure_type27747)==(t70528.value.structure_type27747))) goto l11969; break; case STRUCTURE_TYPE27750: if (!((t70527.value.structure_type27750)==(t70528.value.structure_type27750))) goto l11969; break; case STRUCTURE_TYPE27753: if (!((t70527.value.structure_type27753)==(t70528.value.structure_type27753))) goto l11969; break; case STRUCTURE_TYPE27756: if (!((t70527.value.structure_type27756)==(t70528.value.structure_type27756))) goto l11969; break; case STRUCTURE_TYPE27761: if (!((t70527.value.structure_type27761)==(t70528.value.structure_type27761))) goto l11969; break; case STRUCTURE_TYPE27769: if (!((t70527.value.structure_type27769)==(t70528.value.structure_type27769))) goto l11969; break; case STRUCTURE_TYPE27776: if (!((t70527.value.structure_type27776)==(t70528.value.structure_type27776))) goto l11969; break; case STRUCTURE_TYPE27779: if (!((t70527.value.structure_type27779)==(t70528.value.structure_type27779))) goto l11969; break; case STRUCTURE_TYPE27858: if (!((t70527.value.structure_type27858)==(t70528.value.structure_type27858))) goto l11969; break; case STRING_TYPE: if (!((t70527.value.string_type)==(t70528.value.string_type))) goto l11969; break; case HEADED_VECTOR_TYPE27896: if (!((t70527.value.headed_vector_type27896)==(t70528.value.headed_vector_type27896))) goto l11969; break; case EXTERNAL_SYMBOL_TYPE: if (!((t70527.value.external_symbol_type)==(t70528.value.external_symbol_type))) goto l11969; break; case STRUCTURE_TYPE27908: if (!((t70527.value.structure_type27908)==(t70528.value.structure_type27908))) goto l11969; break; default:;} /* x79165 stalin.sc:5404:185871 */ t70510 = a22535; goto l11970; l11969: /* x79173 stalin.sc:5405:185885 */ /* x79169 stalin.sc:5405:185892 */ /* x79168 stalin.sc:5405:185898 */ t70533 = a22531; /* x79167 stalin.sc:5405:185893 */ a35508 = t70533; /* x273389 */ /* x273388 */ t70534 = a35508; /* x273387 */ if (!((t70534.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29657]"); structure_ref_error();} t70531 = t70534.value.structure_type24753->s1; /* x79172 stalin.sc:5405:185904 */ /* x79171 stalin.sc:5405:185912 */ t70535 = a22532; /* x79170 stalin.sc:5405:185905 */ t70532 = f8682(t70535); /* x79166 stalin.sc:5405:185886 */ a22531 = t70531; a22532 = t70532; goto h9308; l11970: goto l11966; l11965: /* x79180 */ /* x79179 */ /* x79178 stalin.sc:5406:185929 */ /* x79177 stalin.sc:5406:185930 */ /* x296213 QobiScheme.sc:166:5314 */ /* x296212 QobiScheme.sc:166:5321 */ t70526 = "This shouldn\'t happen"; /* x296211 QobiScheme.sc:166:5315 */ stalin_panic(t70526); l11966: l11962: l11959: l11956: l11953: /* x79219 stalin.sc:5407:185951 */ /* x79217 stalin.sc:5407:185957 */ /* x79216 stalin.sc:5407:185976 */ t70570 = a22431; /* x79215 stalin.sc:5407:185958 */ a39060 = t70570; /* x288909 */ /* x288908 */ t70571 = a39060; /* x288907 */ if (!((t70571.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33977]"); structure_ref_error();} t70568 = t70571.value.structure_type27698->s17; /* x79218 stalin.sc:5407:185979 */ t70569 = p9303->a22432; /* x79214 stalin.sc:5407:185952 */ t70511 = f9176(t70568, t70569); /* x79077 stalin.sc:5386:185231 */ t70512.tag = STRUCTURE_TYPE27698; t70512.value.structure_type27698 = t70511; t70475 = f6914(t70509, t70510, t70512); /* x79076 */ a22524 = t70475; /* x79075 */ /* x79042 stalin.sc:5408:185992 */ /* x79038 stalin.sc:5408:186018 */ t70476 = a22524; /* x79041 stalin.sc:5408:186020 */ /* x79040 stalin.sc:5408:186037 */ t70480 = a22524; /* x79039 stalin.sc:5408:186021 */ t70481.tag = STRUCTURE_TYPE27698; t70481.value.structure_type27698 = t70480; t70477 = f8092(t70481); /* x79037 stalin.sc:5408:185993 */ t70478.tag = STRUCTURE_TYPE27698; t70478.value.structure_type27698 = t70476; t70479.tag = STRUCTURE_TYPE27650; t70479.value.structure_type27650 = t70477; f5568(t70478, t70479); /* x79048 stalin.sc:5409:186046 */ /* x79046 stalin.sc:5409:186070 */ /* x79045 stalin.sc:5409:186089 */ t70485 = a22524; /* x79044 stalin.sc:5409:186071 */ a39059 = t70485; /* x288905 */ /* x288904 */ t70486 = a39059; /* x288903 */ t70482 = t70486->s17; /* x79047 stalin.sc:5409:186092 */ t70483 = a22524; /* x79043 stalin.sc:5409:186047 */ t70484.tag = STRUCTURE_TYPE27698; t70484.value.structure_type27698 = t70483; f5576(t70482, t70484); /* x79061 stalin.sc:5410:186100 */ /* x79052 stalin.sc:5411:186133 */ /* x79051 stalin.sc:5411:186154 */ t70490 = a22524; /* x79050 stalin.sc:5411:186134 */ a39107 = t70490; /* x289097 */ /* x289096 */ t70491 = a39107; /* x289095 */ t70487 = t70491->s16; /* x79060 stalin.sc:5412:186163 */ /* x79054 stalin.sc:5412:186169 */ t70492 = a22524; /* x79059 stalin.sc:5412:186171 */ /* x79058 stalin.sc:5412:186193 */ /* x79057 stalin.sc:5412:186214 */ t70496 = a22524; /* x79056 stalin.sc:5412:186194 */ a39108 = t70496; /* x289101 */ /* x289100 */ t70497 = a39108; /* x289099 */ t70494 = t70497->s16; /* x79055 stalin.sc:5412:186172 */ a20470 = t70494; /* x55187 */ /* x55186 */ t70495 = a20470; /* x55185 */ if (!((t70495.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("VARIABLE-ASSIGNMENTS[6605]"); structure_ref_error();} t70493 = t70495.value.structure_type27692->s11; /* x270056 stalin.sc:5412:186164 */ t70488 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t70488==NULL) {backtrace("stalin.sc", 5412, 186163); out_of_memory_error();} t70488->s0.tag = STRUCTURE_TYPE27698; t70488->s0.value.structure_type27698 = t70492; t70488->s1 = *((struct w49 *)(&t70493)); /* x79049 stalin.sc:5410:186101 */ t70489.tag = STRUCTURE_TYPE24753; t70489.value.structure_type24753 = t70488; f6606(t70487, t70489); /* x79074 stalin.sc:5413:186225 */ /* x79065 stalin.sc:5414:186257 */ /* x79064 stalin.sc:5414:186278 */ t70501 = a22524; /* x79063 stalin.sc:5414:186258 */ a39109 = t70501; /* x289105 */ /* x289104 */ t70502 = a39109; /* x289103 */ t70498 = t70502->s16; /* x79073 stalin.sc:5415:186287 */ /* x79067 stalin.sc:5415:186293 */ t70503 = a22524; /* x79072 stalin.sc:5415:186295 */ /* x79071 stalin.sc:5415:186316 */ /* x79070 stalin.sc:5415:186337 */ t70507 = a22524; /* x79069 stalin.sc:5415:186317 */ a39110 = t70507; /* x289109 */ /* x289108 */ t70508 = a39110; /* x289107 */ t70505 = t70508->s16; /* x79068 stalin.sc:5415:186296 */ a20480 = t70505; /* x55226 */ /* x55225 */ t70506 = a20480; /* x55224 */ if (!((t70506.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("VARIABLE-REFERENCES[6613]"); structure_ref_error();} t70504 = t70506.value.structure_type27692->s12; /* x270055 stalin.sc:5415:186288 */ t70499 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t70499==NULL) {backtrace("stalin.sc", 5415, 186287); out_of_memory_error();} t70499->s0.tag = STRUCTURE_TYPE27698; t70499->s0.value.structure_type27698 = t70503; t70499->s1 = *((struct w49 *)(&t70504)); /* x79062 stalin.sc:5413:186226 */ t70500.tag = STRUCTURE_TYPE24753; t70500.value.structure_type24753 = t70499; f6614(t70498, t70500); /* x79036 */ /* x79035 stalin.sc:5416:186348 */ return a22524; l11912: /* x79622 */ /* x79227 */ /* x79225 */ t70224 = a22433; /* x79226 */ t70225 = q43; /* x79224 */ t70226.tag = EXTERNAL_SYMBOL_TYPE; t70226.value.external_symbol_type = t70224; t70227.tag = EXTERNAL_SYMBOL_TYPE; t70227.value.external_symbol_type = t70225; if (f26160(t70226, t70227)==FALSE_TYPE) goto l11914; /* x79279 */ /* x79278 */ t70432 = p9177; p9322 = t70432; /* x79277 stalin.sc:5418:186365 */ /* x79276 stalin.sc:5418:186374 */ /* x79257 stalin.sc:5419:186403 */ t70455 = a22431; /* x79263 stalin.sc:5420:186412 */ /* x79261 stalin.sc:5420:186418 */ /* x79260 stalin.sc:5420:186441 */ t70464 = a22431; /* x79259 stalin.sc:5420:186419 */ a39004 = t70464; /* x288685 */ /* x288684 */ t70465 = a39004; /* x288683 */ if (!((t70465.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33921]"); structure_ref_error();} t70462 = t70465.value.structure_type27698->s18; /* x79262 stalin.sc:5420:186444 */ t70463 = p9322->a22432; /* x79258 stalin.sc:5420:186413 */ t70456 = f9176(t70462, t70463); /* x79269 stalin.sc:5421:186456 */ /* x79267 stalin.sc:5421:186462 */ /* x79266 stalin.sc:5421:186485 */ t70468 = a22431; /* x79265 stalin.sc:5421:186463 */ a38951 = t70468; /* x288473 */ /* x288472 */ t70469 = a38951; /* x288471 */ if (!((t70469.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33868]"); structure_ref_error();} t70466 = t70469.value.structure_type27698->s19; /* x79268 stalin.sc:5421:186488 */ t70467 = p9322->a22432; /* x79264 stalin.sc:5421:186457 */ t70457 = f9176(t70466, t70467); /* x79275 stalin.sc:5422:186500 */ /* x79273 stalin.sc:5422:186506 */ /* x79272 stalin.sc:5422:186528 */ t70472 = a22431; /* x79271 stalin.sc:5422:186507 */ a38899 = t70472; /* x288265 */ /* x288264 */ t70473 = a38899; /* x288263 */ if (!((t70473.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33816]"); structure_ref_error();} t70470 = t70473.value.structure_type27698->s20; /* x79274 stalin.sc:5422:186531 */ t70471 = p9322->a22432; /* x79270 stalin.sc:5422:186501 */ t70458 = f9176(t70470, t70471); /* x79256 stalin.sc:5418:186375 */ t70459.tag = STRUCTURE_TYPE27698; t70459.value.structure_type27698 = t70456; t70460.tag = STRUCTURE_TYPE27698; t70460.value.structure_type27698 = t70457; t70461.tag = STRUCTURE_TYPE27698; t70461.value.structure_type27698 = t70458; t70433 = f6920(t70455, t70459, t70460, t70461); /* x79255 */ a22538 = t70433; /* x79254 */ /* x79235 stalin.sc:5423:186544 */ /* x79231 stalin.sc:5423:186570 */ t70434 = a22538; /* x79234 stalin.sc:5423:186572 */ /* x79233 stalin.sc:5423:186589 */ t70438 = a22538; /* x79232 stalin.sc:5423:186573 */ t70439.tag = STRUCTURE_TYPE27698; t70439.value.structure_type27698 = t70438; t70435 = f8092(t70439); /* x79230 stalin.sc:5423:186545 */ t70436.tag = STRUCTURE_TYPE27698; t70436.value.structure_type27698 = t70434; t70437.tag = STRUCTURE_TYPE27650; t70437.value.structure_type27650 = t70435; f5568(t70436, t70437); /* x79241 stalin.sc:5424:186598 */ /* x79239 stalin.sc:5424:186622 */ /* x79238 stalin.sc:5424:186645 */ t70443 = a22538; /* x79237 stalin.sc:5424:186623 */ a39003 = t70443; /* x288681 */ /* x288680 */ t70444 = a39003; /* x288679 */ t70440 = t70444->s18; /* x79240 stalin.sc:5424:186648 */ t70441 = a22538; /* x79236 stalin.sc:5424:186599 */ t70442.tag = STRUCTURE_TYPE27698; t70442.value.structure_type27698 = t70441; f5576(t70440, t70442); /* x79247 stalin.sc:5425:186656 */ /* x79245 stalin.sc:5425:186680 */ /* x79244 stalin.sc:5425:186703 */ t70448 = a22538; /* x79243 stalin.sc:5425:186681 */ a38950 = t70448; /* x288469 */ /* x288468 */ t70449 = a38950; /* x288467 */ t70445 = t70449->s19; /* x79246 stalin.sc:5425:186706 */ t70446 = a22538; /* x79242 stalin.sc:5425:186657 */ t70447.tag = STRUCTURE_TYPE27698; t70447.value.structure_type27698 = t70446; f5576(t70445, t70447); /* x79253 stalin.sc:5426:186714 */ /* x79251 stalin.sc:5426:186738 */ /* x79250 stalin.sc:5426:186760 */ t70453 = a22538; /* x79249 stalin.sc:5426:186739 */ a38898 = t70453; /* x288261 */ /* x288260 */ t70454 = a38898; /* x288259 */ t70450 = t70454->s20; /* x79252 stalin.sc:5426:186763 */ t70451 = a22538; /* x79248 stalin.sc:5426:186715 */ t70452.tag = STRUCTURE_TYPE27698; t70452.value.structure_type27698 = t70451; f5576(t70450, t70452); /* x79229 */ /* x79228 stalin.sc:5427:186771 */ return a22538; l11914: /* x79621 */ /* x79283 */ /* x79281 */ t70228 = a22433; /* x79282 */ t70229 = q77; /* x79280 */ t70230.tag = EXTERNAL_SYMBOL_TYPE; t70230.value.external_symbol_type = t70228; t70231.tag = EXTERNAL_SYMBOL_TYPE; t70231.value.external_symbol_type = t70229; if (f26160(t70230, t70231)==FALSE_TYPE) goto l11916; /* x79303 */ /* x79302 */ /* x79301 stalin.sc:5429:186805 */ /* x79300 stalin.sc:5429:186814 */ /* x79295 stalin.sc:5430:186840 */ t70427 = q77; /* x79296 stalin.sc:5430:186861 */ t70428 = a22431; /* x79299 stalin.sc:5430:186863 */ /* x79298 stalin.sc:5430:186884 */ t70430 = a22431; /* x79297 stalin.sc:5430:186864 */ a39546 = t70430; /* x290853 */ /* x290852 */ t70431 = a39546; /* x290851 */ if (!((t70431.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34463]"); structure_ref_error();} t70429 = t70431.value.structure_type27698->s12; /* x79294 stalin.sc:5429:186815 */ t70420 = f6872(t70427, t70428, t70429); /* x79293 */ a22543 = t70420; /* x79292 */ /* x79291 stalin.sc:5431:186895 */ /* x79287 stalin.sc:5431:186921 */ t70421 = a22543; /* x79290 stalin.sc:5431:186923 */ /* x79289 stalin.sc:5431:186940 */ t70425 = a22543; /* x79288 stalin.sc:5431:186924 */ t70426.tag = STRUCTURE_TYPE27698; t70426.value.structure_type27698 = t70425; t70422 = f8092(t70426); /* x79286 stalin.sc:5431:186896 */ t70423.tag = STRUCTURE_TYPE27698; t70423.value.structure_type27698 = t70421; t70424.tag = STRUCTURE_TYPE27650; t70424.value.structure_type27650 = t70422; f5568(t70423, t70424); /* x79285 */ /* x79284 stalin.sc:5432:186949 */ return a22543; l11916: /* x79620 */ /* x79307 */ /* x79305 */ t70232 = a22433; /* x79306 */ t70233 = q78; /* x79304 */ t70234.tag = EXTERNAL_SYMBOL_TYPE; t70234.value.external_symbol_type = t70232; t70235.tag = EXTERNAL_SYMBOL_TYPE; t70235.value.external_symbol_type = t70233; if (f26160(t70234, t70235)==FALSE_TYPE) goto l11918; /* x79327 */ /* x79326 */ /* x79325 stalin.sc:5434:186981 */ /* x79324 stalin.sc:5434:186990 */ /* x79319 stalin.sc:5434:187009 */ t70415 = q78; /* x79320 stalin.sc:5434:187028 */ t70416 = a22431; /* x79323 stalin.sc:5434:187030 */ /* x79322 stalin.sc:5434:187051 */ t70418 = a22431; /* x79321 stalin.sc:5434:187031 */ a39547 = t70418; /* x290857 */ /* x290856 */ t70419 = a39547; /* x290855 */ if (!((t70419.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34464]"); structure_ref_error();} t70417 = t70419.value.structure_type27698->s12; /* x79318 stalin.sc:5434:186991 */ t70408 = f6872(t70415, t70416, t70417); /* x79317 */ a22545 = t70408; /* x79316 */ /* x79315 stalin.sc:5435:187062 */ /* x79311 stalin.sc:5435:187088 */ t70409 = a22545; /* x79314 stalin.sc:5435:187090 */ /* x79313 stalin.sc:5435:187107 */ t70413 = a22545; /* x79312 stalin.sc:5435:187091 */ t70414.tag = STRUCTURE_TYPE27698; t70414.value.structure_type27698 = t70413; t70410 = f8092(t70414); /* x79310 stalin.sc:5435:187063 */ t70411.tag = STRUCTURE_TYPE27698; t70411.value.structure_type27698 = t70409; t70412.tag = STRUCTURE_TYPE27650; t70412.value.structure_type27650 = t70410; f5568(t70411, t70412); /* x79309 */ /* x79308 stalin.sc:5436:187116 */ return a22545; l11918: /* x79619 */ /* x79331 */ /* x79329 */ t70236 = a22433; /* x79330 */ t70237 = q38; /* x79328 */ t70238.tag = EXTERNAL_SYMBOL_TYPE; t70238.value.external_symbol_type = t70236; t70239.tag = EXTERNAL_SYMBOL_TYPE; t70239.value.external_symbol_type = t70237; if (f26160(t70238, t70239)==FALSE_TYPE) goto l11920; /* x79508 */ /* x79507 */ t70321 = p9177; p9331 = t70321; /* x79506 stalin.sc:5438:187137 */ /* x79505 stalin.sc:5438:187146 */ /* x79369 stalin.sc:5439:187179 */ t70351 = a22431; /* x79504 stalin.sc:5440:187188 */ /* x79500 stalin.sc:5440:187206 */ t70353 = p9331->a22432; /* x79503 stalin.sc:5440:187214 */ /* x79502 stalin.sc:5440:187238 */ t70406 = a22431; /* x79501 stalin.sc:5440:187215 */ a40071 = t70406; /* x292953 */ /* x292952 */ t70407 = a40071; /* x292951 */ if (!((t70407.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34988]"); structure_ref_error();} t70354 = t70407.value.structure_type27698->s9; /* x79499 */ /* x79498 */ /* x79497 */ /* x79496 */ /* x79495 */ /* x79494 */ /* x79493 */ /* x79371 */ /* x79370 stalin.sc:5440:187193 */ /* MOVE: branching squeezed to general */ if (t70353>=((struct structure_type24753 *)VALUE_OFFSET)) {a22553.tag = STRUCTURE_TYPE24753; a22553.value.structure_type24753 = t70353;} else a22553.tag = (unsigned)t70353; a22554 = t70354; h9336: /* x79492 stalin.sc:5441:187251 */ /* x79374 stalin.sc:5441:187255 */ /* x79373 stalin.sc:5441:187262 */ t70355 = a22553; /* x270044 stalin.sc:5441:187256 */ if (!((t70355.tag)==NULL_TYPE)) goto l11926; /* x79377 stalin.sc:5442:187273 */ /* x79376 stalin.sc:5442:187294 */ t70404 = a22431; /* x79375 stalin.sc:5442:187274 */ a39116 = t70404; /* x289133 */ /* x289132 */ t70405 = a39116; /* x289131 */ if (!((t70405.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34033]"); structure_ref_error();} t70352 = t70405.value.structure_type27698->s16; goto l11927; l11926: /* x79491 stalin.sc:5443:187302 */ /* x79485 stalin.sc:5443:187319 */ /* x79484 stalin.sc:5443:187326 */ t70398 = *((struct w16638 *)(&a22553)); /* x79483 stalin.sc:5443:187320 */ a36017 = t70398; /* x275425 */ /* x275424 */ t70399 = a36017; /* x275423 */ if (!((t70399.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30166]"); structure_ref_error();} t70356 = t70399.value.structure_type24753->s0; /* x79490 stalin.sc:5444:187348 */ /* x79489 stalin.sc:5445:187380 */ /* x79488 stalin.sc:5445:187404 */ t70402 = a22554; /* x79487 stalin.sc:5445:187381 */ a36681 = t70402; /* x279393 */ /* x279392 */ t70403 = a36681; /* x279391 */ if (!((t70403.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31598]"); structure_ref_error();} t70400 = t70403.value.structure_type27694->s1; /* x79486 stalin.sc:5444:187349 */ a39431 = t70400; /* x290393 */ /* x290392 */ t70401 = a39431; /* x290391 */ if (!((t70401.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34348]"); structure_ref_error();} t70357 = t70401.value.structure_type27698->s14; /* x79482 */ /* x79481 */ /* x79480 */ /* x79479 */ /* x79478 */ /* x79477 */ /* x79476 */ /* x79379 */ /* x79378 stalin.sc:5443:187307 */ a22557 = t70356; a22558 = *((struct w49 *)(&t70357)); h9339: /* x79475 stalin.sc:5446:187416 */ /* x79382 stalin.sc:5446:187423 */ /* x79381 stalin.sc:5446:187430 */ t70358 = a22557; /* x270043 stalin.sc:5446:187424 */ if (!((t70358.tag)==NULL_TYPE)) goto l11929; /* x79404 */ /* x79403 */ /* x79402 */ /* x79401 stalin.sc:5447:187441 */ /* x79394 stalin.sc:5447:187449 */ /* x79393 stalin.sc:5447:187456 */ t70396 = a22558; /* x270042 stalin.sc:5447:187450 */ if (!((t70396.tag)==NULL_TYPE)) goto l11949; /* x79396 */ /* x79395 */ goto l11950; l11949: /* x79400 */ /* x79399 */ /* x79398 stalin.sc:5447:187461 */ /* x79397 stalin.sc:5447:187462 */ /* x296217 QobiScheme.sc:166:5314 */ /* x296216 QobiScheme.sc:166:5321 */ t70397 = "This shouldn\'t happen"; /* x296215 QobiScheme.sc:166:5315 */ stalin_panic(t70397); l11950: /* x79391 */ /* x79390 stalin.sc:5448:187478 */ /* x79386 stalin.sc:5448:187485 */ /* x79385 stalin.sc:5448:187491 */ t70393 = a22553; /* x79384 stalin.sc:5448:187486 */ a35509 = t70393; /* x273393 */ /* x273392 */ t70394 = a35509; /* x273391 */ if (!((t70394.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29658]"); structure_ref_error();} t70391 = t70394.value.structure_type24753->s1; /* x79389 stalin.sc:5448:187497 */ /* x79388 stalin.sc:5448:187505 */ t70395 = a22554; /* x79387 stalin.sc:5448:187498 */ t70392 = f8682(t70395); /* x79383 stalin.sc:5448:187479 */ a22553 = t70391; a22554 = t70392; goto h9336; goto l11930; l11929: /* x79474 */ /* x79407 stalin.sc:5449:187516 */ /* x79406 stalin.sc:5449:187523 */ t70359 = a22558; /* x270041 stalin.sc:5449:187517 */ if (!((t70359.tag)==NULL_TYPE)) goto l11932; /* x79411 */ /* x79410 */ /* x79409 stalin.sc:5449:187528 */ /* x79408 stalin.sc:5449:187529 */ /* x296221 QobiScheme.sc:166:5314 */ /* x296220 QobiScheme.sc:166:5321 */ t70390 = "This shouldn\'t happen"; /* x296219 QobiScheme.sc:166:5315 */ stalin_panic(t70390); goto l11933; l11932: /* x79473 */ /* x79419 stalin.sc:5450:187545 */ /* x79414 stalin.sc:5450:187550 */ /* x79413 stalin.sc:5450:187557 */ t70360 = *((struct w16638 *)(&a22557)); /* x270040 stalin.sc:5450:187551 */ if (!((t70360.tag)==STRUCTURE_TYPE24753)) goto l11935; /* x79417 */ /* x79416 stalin.sc:5450:187569 */ t70361 = *((struct w16638 *)(&a22558)); /* x270039 stalin.sc:5450:187563 */ if (!((t70361.tag)==STRUCTURE_TYPE24753)) goto l11935; /* x79441 */ /* x79440 */ /* x79439 stalin.sc:5451:187581 */ /* x79427 stalin.sc:5451:187585 */ /* x79423 stalin.sc:5451:187590 */ /* x79422 stalin.sc:5451:187597 */ t70378 = *((struct w16638 *)(&a22558)); /* x79421 stalin.sc:5451:187591 */ a36016 = t70378; /* x275421 */ /* x275420 */ t70379 = a36016; /* x275419 */ if (!((t70379.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30165]"); structure_ref_error();} t70376 = t70379.value.structure_type24753->s0; /* x79426 stalin.sc:5451:187602 */ /* x79425 stalin.sc:5451:187623 */ t70380 = a22431; /* x79424 stalin.sc:5451:187603 */ a39105 = t70380; /* x289089 */ /* x289088 */ t70381 = a39105; /* x289087 */ if (!((t70381.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34022]"); structure_ref_error();} t70377 = t70381.value.structure_type27698->s16; /* x270038 stalin.sc:5451:187586 */ /* EQ: dispatching general to general */ if (!((t70376.tag)==(t70377.tag))) goto l11946; switch (t70376.tag) {case FIXNUM_TYPE: if (!((t70376.value.fixnum_type)==(t70377.value.fixnum_type))) goto l11946; break; case FLONUM_TYPE: if (!((t70376.value.flonum_type)==(t70377.value.flonum_type))) goto l11946; break; case INPUT_PORT_TYPE: if (!((t70376.value.input_port_type)==(t70377.value.input_port_type))) goto l11946; break; case OUTPUT_PORT_TYPE: if (!((t70376.value.output_port_type)==(t70377.value.output_port_type))) goto l11946; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t70376.value.native_procedure_type15963)==(t70377.value.native_procedure_type15963))) goto l11946; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t70376.value.native_procedure_type19067)==(t70377.value.native_procedure_type19067))) goto l11946; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t70376.value.native_procedure_type19068)==(t70377.value.native_procedure_type19068))) goto l11946; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t70376.value.native_procedure_type22459)==(t70377.value.native_procedure_type22459))) goto l11946; break; case STRUCTURE_TYPE24753: if (!((t70376.value.structure_type24753)==(t70377.value.structure_type24753))) goto l11946; break; case STRUCTURE_TYPE24757: if (!((t70376.value.structure_type24757)==(t70377.value.structure_type24757))) goto l11946; break; case STRUCTURE_TYPE27501: if (!((t70376.value.structure_type27501)==(t70377.value.structure_type27501))) goto l11946; break; case STRUCTURE_TYPE27510: if (!((t70376.value.structure_type27510)==(t70377.value.structure_type27510))) goto l11946; break; case STRUCTURE_TYPE27621: if (!((t70376.value.structure_type27621)==(t70377.value.structure_type27621))) goto l11946; break; case STRUCTURE_TYPE27650: if (!((t70376.value.structure_type27650)==(t70377.value.structure_type27650))) goto l11946; break; case STRUCTURE_TYPE27669: if (!((t70376.value.structure_type27669)==(t70377.value.structure_type27669))) goto l11946; break; case STRUCTURE_TYPE27673: if (!((t70376.value.structure_type27673)==(t70377.value.structure_type27673))) goto l11946; break; case STRUCTURE_TYPE27692: if (!((t70376.value.structure_type27692)==(t70377.value.structure_type27692))) goto l11946; break; case STRUCTURE_TYPE27694: if (!((t70376.value.structure_type27694)==(t70377.value.structure_type27694))) goto l11946; break; case STRUCTURE_TYPE27698: if (!((t70376.value.structure_type27698)==(t70377.value.structure_type27698))) goto l11946; break; case STRUCTURE_TYPE27745: if (!((t70376.value.structure_type27745)==(t70377.value.structure_type27745))) goto l11946; break; case STRUCTURE_TYPE27747: if (!((t70376.value.structure_type27747)==(t70377.value.structure_type27747))) goto l11946; break; case STRUCTURE_TYPE27750: if (!((t70376.value.structure_type27750)==(t70377.value.structure_type27750))) goto l11946; break; case STRUCTURE_TYPE27753: if (!((t70376.value.structure_type27753)==(t70377.value.structure_type27753))) goto l11946; break; case STRUCTURE_TYPE27756: if (!((t70376.value.structure_type27756)==(t70377.value.structure_type27756))) goto l11946; break; case STRUCTURE_TYPE27761: if (!((t70376.value.structure_type27761)==(t70377.value.structure_type27761))) goto l11946; break; case STRUCTURE_TYPE27769: if (!((t70376.value.structure_type27769)==(t70377.value.structure_type27769))) goto l11946; break; case STRUCTURE_TYPE27776: if (!((t70376.value.structure_type27776)==(t70377.value.structure_type27776))) goto l11946; break; case STRUCTURE_TYPE27779: if (!((t70376.value.structure_type27779)==(t70377.value.structure_type27779))) goto l11946; break; case STRUCTURE_TYPE27858: if (!((t70376.value.structure_type27858)==(t70377.value.structure_type27858))) goto l11946; break; case STRING_TYPE: if (!((t70376.value.string_type)==(t70377.value.string_type))) goto l11946; break; case HEADED_VECTOR_TYPE27896: if (!((t70376.value.headed_vector_type27896)==(t70377.value.headed_vector_type27896))) goto l11946; break; case EXTERNAL_SYMBOL_TYPE: if (!((t70376.value.external_symbol_type)==(t70377.value.external_symbol_type))) goto l11946; break; case STRUCTURE_TYPE27908: if (!((t70376.value.structure_type27908)==(t70377.value.structure_type27908))) goto l11946; break; default:;} /* x79430 stalin.sc:5452:187637 */ /* x79429 stalin.sc:5452:187644 */ t70388 = *((struct w16638 *)(&a22557)); /* x79428 stalin.sc:5452:187638 */ a36015 = t70388; /* x275417 */ /* x275416 */ t70389 = a36015; /* x275415 */ if (!((t70389.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30164]"); structure_ref_error();} t70352 = t70389.value.structure_type24753->s0; goto l11947; l11946: /* x79438 stalin.sc:5453:187659 */ /* x79434 stalin.sc:5453:187666 */ /* x79433 stalin.sc:5453:187672 */ t70384 = *((struct w16638 *)(&a22557)); /* x79432 stalin.sc:5453:187667 */ a35510 = t70384; /* x273397 */ /* x273396 */ t70385 = a35510; /* x273395 */ if (!((t70385.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29659]"); structure_ref_error();} t70382 = t70385.value.structure_type24753->s1; /* x79437 stalin.sc:5453:187677 */ /* x79436 stalin.sc:5453:187683 */ t70386 = *((struct w16638 *)(&a22558)); /* x79435 stalin.sc:5453:187678 */ a35511 = t70386; /* x273401 */ /* x273400 */ t70387 = a35511; /* x273399 */ if (!((t70387.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29660]"); structure_ref_error();} t70383 = t70387.value.structure_type24753->s1; /* x79431 stalin.sc:5453:187660 */ a22557 = t70382; a22558 = t70383; goto h9339; l11947: goto l11936; l11935: /* x79472 */ /* x79449 stalin.sc:5454:187697 */ /* x79444 stalin.sc:5454:187702 */ /* x79443 stalin.sc:5454:187713 */ t70362 = *((struct w16638 *)(&a22557)); /* x79442 stalin.sc:5454:187703 */ a37017 = t70362; /* x280737 */ /* x280736 */ t70363 = a37017; /* x280735 */ if (!((t70363.tag)==STRUCTURE_TYPE27692)) goto l11939; /* x79447 */ /* x79446 stalin.sc:5454:187729 */ t70364 = *((struct w16638 *)(&a22558)); /* x79445 stalin.sc:5454:187719 */ a37016 = t70364; /* x280733 */ /* x280732 */ t70365 = a37016; /* x280731 */ if (!((t70365.tag)==STRUCTURE_TYPE27692)) goto l11939; /* x79467 */ /* x79466 */ /* x79465 stalin.sc:5455:187741 */ /* x79455 stalin.sc:5455:187745 */ /* x79451 stalin.sc:5455:187750 */ t70367 = *((struct w16638 *)(&a22558)); /* x79454 stalin.sc:5455:187754 */ /* x79453 stalin.sc:5455:187775 */ t70369 = a22431; /* x79452 stalin.sc:5455:187755 */ a39106 = t70369; /* x289093 */ /* x289092 */ t70370 = a39106; /* x289091 */ if (!((t70370.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34023]"); structure_ref_error();} t70368 = t70370.value.structure_type27698->s16; /* x270037 stalin.sc:5455:187746 */ /* EQ: dispatching general to general */ if (!((t70367.tag)==(t70368.tag))) goto l11943; switch (t70367.tag) {case FIXNUM_TYPE: if (!((t70367.value.fixnum_type)==(t70368.value.fixnum_type))) goto l11943; break; case FLONUM_TYPE: if (!((t70367.value.flonum_type)==(t70368.value.flonum_type))) goto l11943; break; case INPUT_PORT_TYPE: if (!((t70367.value.input_port_type)==(t70368.value.input_port_type))) goto l11943; break; case OUTPUT_PORT_TYPE: if (!((t70367.value.output_port_type)==(t70368.value.output_port_type))) goto l11943; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t70367.value.native_procedure_type15963)==(t70368.value.native_procedure_type15963))) goto l11943; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t70367.value.native_procedure_type19067)==(t70368.value.native_procedure_type19067))) goto l11943; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t70367.value.native_procedure_type19068)==(t70368.value.native_procedure_type19068))) goto l11943; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t70367.value.native_procedure_type22459)==(t70368.value.native_procedure_type22459))) goto l11943; break; case STRUCTURE_TYPE24753: if (!((t70367.value.structure_type24753)==(t70368.value.structure_type24753))) goto l11943; break; case STRUCTURE_TYPE24757: if (!((t70367.value.structure_type24757)==(t70368.value.structure_type24757))) goto l11943; break; case STRUCTURE_TYPE27501: if (!((t70367.value.structure_type27501)==(t70368.value.structure_type27501))) goto l11943; break; case STRUCTURE_TYPE27510: if (!((t70367.value.structure_type27510)==(t70368.value.structure_type27510))) goto l11943; break; case STRUCTURE_TYPE27621: if (!((t70367.value.structure_type27621)==(t70368.value.structure_type27621))) goto l11943; break; case STRUCTURE_TYPE27650: if (!((t70367.value.structure_type27650)==(t70368.value.structure_type27650))) goto l11943; break; case STRUCTURE_TYPE27669: if (!((t70367.value.structure_type27669)==(t70368.value.structure_type27669))) goto l11943; break; case STRUCTURE_TYPE27673: if (!((t70367.value.structure_type27673)==(t70368.value.structure_type27673))) goto l11943; break; case STRUCTURE_TYPE27692: if (!((t70367.value.structure_type27692)==(t70368.value.structure_type27692))) goto l11943; break; case STRUCTURE_TYPE27694: if (!((t70367.value.structure_type27694)==(t70368.value.structure_type27694))) goto l11943; break; case STRUCTURE_TYPE27698: if (!((t70367.value.structure_type27698)==(t70368.value.structure_type27698))) goto l11943; break; case STRUCTURE_TYPE27745: if (!((t70367.value.structure_type27745)==(t70368.value.structure_type27745))) goto l11943; break; case STRUCTURE_TYPE27747: if (!((t70367.value.structure_type27747)==(t70368.value.structure_type27747))) goto l11943; break; case STRUCTURE_TYPE27750: if (!((t70367.value.structure_type27750)==(t70368.value.structure_type27750))) goto l11943; break; case STRUCTURE_TYPE27753: if (!((t70367.value.structure_type27753)==(t70368.value.structure_type27753))) goto l11943; break; case STRUCTURE_TYPE27756: if (!((t70367.value.structure_type27756)==(t70368.value.structure_type27756))) goto l11943; break; case STRUCTURE_TYPE27761: if (!((t70367.value.structure_type27761)==(t70368.value.structure_type27761))) goto l11943; break; case STRUCTURE_TYPE27769: if (!((t70367.value.structure_type27769)==(t70368.value.structure_type27769))) goto l11943; break; case STRUCTURE_TYPE27776: if (!((t70367.value.structure_type27776)==(t70368.value.structure_type27776))) goto l11943; break; case STRUCTURE_TYPE27779: if (!((t70367.value.structure_type27779)==(t70368.value.structure_type27779))) goto l11943; break; case STRUCTURE_TYPE27858: if (!((t70367.value.structure_type27858)==(t70368.value.structure_type27858))) goto l11943; break; case STRING_TYPE: if (!((t70367.value.string_type)==(t70368.value.string_type))) goto l11943; break; case HEADED_VECTOR_TYPE27896: if (!((t70367.value.headed_vector_type27896)==(t70368.value.headed_vector_type27896))) goto l11943; break; case EXTERNAL_SYMBOL_TYPE: if (!((t70367.value.external_symbol_type)==(t70368.value.external_symbol_type))) goto l11943; break; case STRUCTURE_TYPE27908: if (!((t70367.value.structure_type27908)==(t70368.value.structure_type27908))) goto l11943; break; default:;} /* x79456 stalin.sc:5456:187789 */ t70352 = a22557; goto l11944; l11943: /* x79464 stalin.sc:5457:187803 */ /* x79460 stalin.sc:5457:187810 */ /* x79459 stalin.sc:5457:187816 */ t70373 = a22553; /* x79458 stalin.sc:5457:187811 */ a35512 = t70373; /* x273405 */ /* x273404 */ t70374 = a35512; /* x273403 */ if (!((t70374.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29661]"); structure_ref_error();} t70371 = t70374.value.structure_type24753->s1; /* x79463 stalin.sc:5457:187822 */ /* x79462 stalin.sc:5457:187830 */ t70375 = a22554; /* x79461 stalin.sc:5457:187823 */ t70372 = f8682(t70375); /* x79457 stalin.sc:5457:187804 */ a22553 = t70371; a22554 = t70372; goto h9336; l11944: goto l11940; l11939: /* x79471 */ /* x79470 */ /* x79469 stalin.sc:5458:187847 */ /* x79468 stalin.sc:5458:187848 */ /* x296225 QobiScheme.sc:166:5314 */ /* x296224 QobiScheme.sc:166:5321 */ t70366 = "This shouldn\'t happen"; /* x296223 QobiScheme.sc:166:5315 */ stalin_panic(t70366); l11940: l11936: l11933: l11930: l11927: /* x79368 stalin.sc:5438:187147 */ t70322 = f6890(t70351, t70352); /* x79367 */ a22547 = t70322; /* x79366 */ /* x79339 stalin.sc:5459:187870 */ /* x79335 stalin.sc:5459:187896 */ t70323 = a22547; /* x79338 stalin.sc:5459:187898 */ /* x79337 stalin.sc:5459:187915 */ t70327 = a22547; /* x79336 stalin.sc:5459:187899 */ t70328.tag = STRUCTURE_TYPE27698; t70328.value.structure_type27698 = t70327; t70324 = f8092(t70328); /* x79334 stalin.sc:5459:187871 */ t70325.tag = STRUCTURE_TYPE27698; t70325.value.structure_type27698 = t70323; t70326.tag = STRUCTURE_TYPE27650; t70326.value.structure_type27650 = t70324; f5568(t70325, t70326); /* x79352 stalin.sc:5460:187924 */ /* x79343 stalin.sc:5461:187954 */ /* x79342 stalin.sc:5461:187975 */ t70332 = a22547; /* x79341 stalin.sc:5461:187955 */ a39112 = t70332; /* x289117 */ /* x289116 */ t70333 = a39112; /* x289115 */ t70329 = t70333->s16; /* x79351 stalin.sc:5462:187984 */ /* x79345 stalin.sc:5462:187990 */ t70334 = a22547; /* x79350 stalin.sc:5462:187992 */ /* x79349 stalin.sc:5462:188011 */ /* x79348 stalin.sc:5462:188032 */ t70338 = a22547; /* x79347 stalin.sc:5462:188012 */ a39113 = t70338; /* x289121 */ /* x289120 */ t70339 = a39113; /* x289119 */ t70336 = t70339->s16; /* x79346 stalin.sc:5462:187993 */ a20460 = t70336; /* x55148 */ /* x55147 */ t70337 = a20460; /* x55146 */ if (!((t70337.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("VARIABLE-ACCESSES[6597]"); structure_ref_error();} t70335 = t70337.value.structure_type27692->s10; /* x270046 stalin.sc:5462:187985 */ t70330 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t70330==NULL) {backtrace("stalin.sc", 5462, 187984); out_of_memory_error();} t70330->s0.tag = STRUCTURE_TYPE27698; t70330->s0.value.structure_type27698 = t70334; t70330->s1 = *((struct w49 *)(&t70335)); /* x79340 stalin.sc:5460:187925 */ t70331.tag = STRUCTURE_TYPE24753; t70331.value.structure_type24753 = t70330; f6598(t70329, t70331); /* x79365 stalin.sc:5463:188043 */ /* x79356 stalin.sc:5464:188075 */ /* x79355 stalin.sc:5464:188096 */ t70343 = a22547; /* x79354 stalin.sc:5464:188076 */ a39114 = t70343; /* x289125 */ /* x289124 */ t70344 = a39114; /* x289123 */ t70340 = t70344->s16; /* x79364 stalin.sc:5465:188105 */ /* x79358 stalin.sc:5465:188111 */ t70345 = a22547; /* x79363 stalin.sc:5465:188113 */ /* x79362 stalin.sc:5465:188134 */ /* x79361 stalin.sc:5465:188155 */ t70349 = a22547; /* x79360 stalin.sc:5465:188135 */ a39115 = t70349; /* x289129 */ /* x289128 */ t70350 = a39115; /* x289127 */ t70347 = t70350->s16; /* x79359 stalin.sc:5465:188114 */ a36796 = t70347; /* x279853 */ /* x279852 */ t70348 = a36796; /* x279851 */ if (!((t70348.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-REFERENCES[6613] 31713]"); structure_ref_error();} t70346 = t70348.value.structure_type27692->s12; /* x270045 stalin.sc:5465:188106 */ t70341 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t70341==NULL) {backtrace("stalin.sc", 5465, 188105); out_of_memory_error();} t70341->s0.tag = STRUCTURE_TYPE27698; t70341->s0.value.structure_type27698 = t70345; t70341->s1 = *((struct w49 *)(&t70346)); /* x79353 stalin.sc:5463:188044 */ t70342.tag = STRUCTURE_TYPE24753; t70342.value.structure_type24753 = t70341; f6614(t70340, t70342); /* x79333 */ /* x79332 stalin.sc:5466:188166 */ return a22547; l11920: /* x79618 */ /* x79512 */ /* x79510 */ t70240 = a22433; /* x79511 */ t70241 = q36; /* x79509 */ t70242.tag = EXTERNAL_SYMBOL_TYPE; t70242.value.external_symbol_type = t70240; t70243.tag = EXTERNAL_SYMBOL_TYPE; t70243.value.external_symbol_type = t70241; if (f26160(t70242, t70243)==FALSE_TYPE) goto l11922; /* x79560 */ /* x79559 */ t70284 = p9177; p9350 = t70284; /* x79558 stalin.sc:5468:188185 */ /* x79557 stalin.sc:5468:188194 */ /* x79540 stalin.sc:5469:188225 */ t70305 = a22431; /* x79546 stalin.sc:5469:188227 */ /* x79544 stalin.sc:5469:188233 */ /* x79543 stalin.sc:5469:188252 */ t70312 = a22431; /* x79542 stalin.sc:5469:188234 */ a38641 = t70312; /* x287233 */ /* x287232 */ t70313 = a38641; /* x287231 */ if (!((t70313.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33558]"); structure_ref_error();} t70310 = t70313.value.structure_type27698->s21; /* x79545 stalin.sc:5469:188255 */ t70311 = p9350->a22432; /* x79541 stalin.sc:5469:188228 */ t70306 = f9176(t70310, t70311); /* x79556 stalin.sc:5470:188267 */ /* x79555 stalin.sc:5470:188298 */ /* x79554 stalin.sc:5470:188320 */ t70319 = a22431; /* x79553 stalin.sc:5470:188299 */ a38546 = t70319; /* x286853 */ /* x286852 */ t70320 = a38546; /* x286851 */ if (!((t70320.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33463]"); structure_ref_error();} t70315 = t70320.value.structure_type27698->s22; /* x79552 stalin.sc:5470:188272 */ t70314 = p9350; /* x79547 stalin.sc:5470:188268 */ t70316.tag = NATIVE_PROCEDURE_TYPE19587; t70316.value.native_procedure_type19587 = t70314; t70317 = *((struct w49 *)(&t70315)); t70318 = (struct structure_type24753 *)NULL_TYPE; t70307 = f27731(t70316, t70317, t70318); /* x79539 stalin.sc:5468:188195 */ t70308.tag = STRUCTURE_TYPE27698; t70308.value.structure_type27698 = t70306; /* MOVE: branching squeezed to general */ if (t70307>=((struct structure_type24753 *)VALUE_OFFSET)) {t70309.tag = STRUCTURE_TYPE24753; t70309.value.structure_type24753 = t70307;} else t70309.tag = (unsigned)t70307; t70285 = f6878(t70305, t70308, t70309); /* x79538 */ a22560 = t70285; e9351 = (struct p9351 *)alloca(sizeof(struct p9351)); if (e9351==NULL) {backtrace_internal("[inside LOOP 9350]"); out_of_memory_error();} e9351->a22560 = a22560; /* x79537 */ /* x79520 stalin.sc:5471:188332 */ /* x79516 stalin.sc:5471:188358 */ t70287 = e9351->a22560; /* x79519 stalin.sc:5471:188360 */ /* x79518 stalin.sc:5471:188377 */ t70291 = e9351->a22560; /* x79517 stalin.sc:5471:188361 */ t70292.tag = STRUCTURE_TYPE27698; t70292.value.structure_type27698 = t70291; t70288 = f8092(t70292); /* x79515 stalin.sc:5471:188333 */ t70289.tag = STRUCTURE_TYPE27698; t70289.value.structure_type27698 = t70287; t70290.tag = STRUCTURE_TYPE27650; t70290.value.structure_type27650 = t70288; f5568(t70289, t70290); /* x79526 stalin.sc:5472:188386 */ /* x79524 stalin.sc:5472:188410 */ /* x79523 stalin.sc:5472:188429 */ t70296 = e9351->a22560; /* x79522 stalin.sc:5472:188411 */ a38639 = t70296; /* x287225 */ /* x287224 */ t70297 = a38639; /* x287223 */ t70293 = t70297->s21; /* x79525 stalin.sc:5472:188432 */ t70294 = e9351->a22560; /* x79521 stalin.sc:5472:188387 */ t70295.tag = STRUCTURE_TYPE27698; t70295.value.structure_type27698 = t70294; f5576(t70293, t70295); /* x79536 stalin.sc:5473:188440 */ /* x79535 stalin.sc:5474:188502 */ /* x79534 stalin.sc:5474:188524 */ t70303 = e9351->a22560; /* x79533 stalin.sc:5474:188503 */ a38544 = t70303; /* x286845 */ /* x286844 */ t70304 = a38544; /* x286843 */ t70299 = t70304->s22; /* x79532 stalin.sc:5473:188450 */ t70298 = e9351; /* x79527 stalin.sc:5473:188441 */ t70300.tag = NATIVE_PROCEDURE_TYPE19598; t70300.value.native_procedure_type19598 = t70298; t70301 = *((struct w49 *)(&t70299)); t70302 = (struct structure_type24753 *)NULL_TYPE; f27755(t70300, t70301, t70302); /* x79514 */ t70286 = e9351; p9352 = t70286; /* x79513 stalin.sc:5475:188533 */ return p9352->a22560; l11922: /* x79617 */ /* x79564 */ /* x79562 */ t70244 = a22433; /* x79563 */ t70245 = q37; /* x79561 */ t70246.tag = EXTERNAL_SYMBOL_TYPE; t70246.value.external_symbol_type = t70244; t70247.tag = EXTERNAL_SYMBOL_TYPE; t70247.value.external_symbol_type = t70245; if (f26160(t70246, t70247)==FALSE_TYPE) goto l11924; /* x79612 */ /* x79611 */ t70249 = p9177; p9355 = t70249; /* x79610 stalin.sc:5477:188562 */ /* x79609 stalin.sc:5477:188571 */ /* x79592 stalin.sc:5478:188612 */ t70270 = a22431; /* x79598 stalin.sc:5478:188614 */ /* x79596 stalin.sc:5478:188620 */ /* x79595 stalin.sc:5478:188639 */ t70275 = a22431; /* x79594 stalin.sc:5478:188621 */ a38642 = t70275; /* x287237 */ /* x287236 */ t70276 = a38642; /* x287235 */ if (!((t70276.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33559]"); structure_ref_error();} t70273 = t70276.value.structure_type27698->s21; /* x79597 stalin.sc:5478:188642 */ t70274 = p9355->a22432; /* x79593 stalin.sc:5478:188615 */ t70271 = f9176(t70273, t70274); /* x79608 stalin.sc:5479:188654 */ /* x79607 stalin.sc:5479:188685 */ /* x79606 stalin.sc:5479:188707 */ t70282 = a22431; /* x79605 stalin.sc:5479:188686 */ a38547 = t70282; /* x286857 */ /* x286856 */ t70283 = a38547; /* x286855 */ if (!((t70283.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33464]"); structure_ref_error();} t70278 = t70283.value.structure_type27698->s22; /* x79604 stalin.sc:5479:188659 */ t70277 = p9355; /* x79599 stalin.sc:5479:188655 */ t70279.tag = NATIVE_PROCEDURE_TYPE19584; t70279.value.native_procedure_type19584 = t70277; t70280 = *((struct w49 *)(&t70278)); t70281 = (struct structure_type24753 *)NULL_TYPE; t70272 = f27731(t70279, t70280, t70281); /* x79591 stalin.sc:5477:188572 */ t70250 = f6884(t70270, t70271, t70272); /* x79590 */ a22566 = t70250; e9356 = (struct p9356 *)alloca(sizeof(struct p9356)); if (e9356==NULL) {backtrace_internal("[inside LOOP 9355]"); out_of_memory_error();} e9356->a22566 = a22566; /* x79589 */ /* x79572 stalin.sc:5480:188719 */ /* x79568 stalin.sc:5480:188745 */ t70252 = e9356->a22566; /* x79571 stalin.sc:5480:188747 */ /* x79570 stalin.sc:5480:188764 */ t70256 = e9356->a22566; /* x79569 stalin.sc:5480:188748 */ t70257.tag = STRUCTURE_TYPE27698; t70257.value.structure_type27698 = t70256; t70253 = f8092(t70257); /* x79567 stalin.sc:5480:188720 */ t70254.tag = STRUCTURE_TYPE27698; t70254.value.structure_type27698 = t70252; t70255.tag = STRUCTURE_TYPE27650; t70255.value.structure_type27650 = t70253; f5568(t70254, t70255); /* x79578 stalin.sc:5481:188773 */ /* x79576 stalin.sc:5481:188797 */ /* x79575 stalin.sc:5481:188816 */ t70261 = e9356->a22566; /* x79574 stalin.sc:5481:188798 */ a38640 = t70261; /* x287229 */ /* x287228 */ t70262 = a38640; /* x287227 */ t70258 = t70262->s21; /* x79577 stalin.sc:5481:188819 */ t70259 = e9356->a22566; /* x79573 stalin.sc:5481:188774 */ t70260.tag = STRUCTURE_TYPE27698; t70260.value.structure_type27698 = t70259; f5576(t70258, t70260); /* x79588 stalin.sc:5482:188827 */ /* x79587 stalin.sc:5483:188889 */ /* x79586 stalin.sc:5483:188911 */ t70268 = e9356->a22566; /* x79585 stalin.sc:5483:188890 */ a38545 = t70268; /* x286849 */ /* x286848 */ t70269 = a38545; /* x286847 */ t70264 = t70269->s22; /* x79584 stalin.sc:5482:188837 */ t70263 = e9356; /* x79579 stalin.sc:5482:188828 */ t70265.tag = NATIVE_PROCEDURE_TYPE19596; t70265.value.native_procedure_type19596 = t70263; t70266 = *((struct w49 *)(&t70264)); t70267 = (struct structure_type24753 *)NULL_TYPE; f27755(t70265, t70266, t70267); /* x79566 */ t70251 = e9356; p9357 = t70251; /* x79565 stalin.sc:5484:188920 */ return p9357->a22566; l11924: /* x79616 */ /* x79615 */ /* x79614 stalin.sc:5485:188933 */ /* x79613 stalin.sc:5485:188934 */ /* x296233 QobiScheme.sc:166:5314 */ /* x296232 QobiScheme.sc:166:5321 */ t70248 = "This shouldn\'t happen"; /* x296231 QobiScheme.sc:166:5315 */ stalin_panic(t70248);} /* [inside LOOP 9170] */ struct w30215 f9170(struct p9146 *p9170, struct w49 a22427) {struct w49 t71023; struct structure_type24753 *t71024; /* x77945 stalin.sc:5166:176441 */ /* x77943 stalin.sc:5166:176447 */ t71023 = a22427; /* x77944 stalin.sc:5166:176449 */ t71024 = p9170->a22421; /* x77942 stalin.sc:5166:176442 */ return f9146(t71023, t71024);} /* LOOP[9146] */ struct w30215 f9146(struct w49 a22420, struct structure_type24753 *a22421) {struct w30215 r9146; char *a22422; /* v */ struct w49 a38548; /* S */ struct w49 a38643; /* S */ struct w49 a38900; /* S */ struct w49 a38952; /* S */ struct w49 a39005; /* S */ struct w49 a39061; /* S */ struct w49 a39216; /* S */ struct w49 a39483; /* S */ struct w49 a39548; /* S */ struct w49 a39549; /* S */ struct w49 a39550; /* S */ struct w49 a40294; /* S */ struct p9146 *t71025; char *t71026; char *t71027; char *t71028; struct w49 t71029; struct w49 t71030; char *t71031; char *t71032; struct w49 t71033; struct w49 t71034; char *t71035; char *t71036; struct w49 t71037; struct w49 t71038; char *t71039; char *t71040; struct w49 t71041; struct w49 t71042; char *t71043; char *t71044; struct w49 t71045; struct w49 t71046; char *t71047; char *t71048; struct w49 t71049; struct w49 t71050; char *t71051; char *t71052; struct w49 t71053; struct w49 t71054; char *t71055; char *t71056; struct w49 t71057; struct w49 t71058; char *t71059; char *t71060; struct w49 t71061; struct w49 t71062; char *t71063; char *t71064; struct w49 t71065; struct w49 t71066; char *t71067; char *t71068; struct w49 t71069; struct w49 t71070; char *t71071; char *t71072; struct w49 t71073; struct w49 t71074; char *t71075; char *t71076; struct w49 t71077; struct w49 t71078; char *t71079; char *t71080; struct w49 t71081; struct w49 t71082; char *t71083; char *t71084; struct w49 t71085; struct w49 t71086; char *t71087; char *t71088; struct w49 t71089; struct w49 t71090; char *t71091; char *t71092; struct w49 t71093; struct w49 t71094; char *t71095; char *t71096; struct w49 t71097; struct w49 t71098; char *t71099; char *t71100; struct w49 t71101; struct w49 t71102; char *t71103; char *t71104; struct w49 t71105; struct w49 t71106; char *t71107; char *t71108; struct w49 t71109; struct w49 t71110; char *t71111; struct p9146 *t71112; int t71113; struct w30215 t71114; struct w49 t71115; struct w49 t71116; struct structure_type24753 *t71117; struct w49 t71118; struct w49 t71119; struct structure_type24753 *t71120; int t71121; unsigned t71122; struct w49 t71123; struct w228463 t71124; struct p9146 *t71125; struct w11873 t71126; struct w36270 t71127; struct w49 t71128; struct structure_type24753 *t71129; struct w49 t71130; struct w49 t71131; struct p9146 *t71132; int t71133; struct w30215 t71134; struct w30215 t71135; struct w30215 t71136; struct w49 t71137; struct structure_type24753 *t71138; struct w49 t71139; struct w49 t71140; struct w49 t71141; struct structure_type24753 *t71142; struct w49 t71143; struct w49 t71144; struct w49 t71145; struct structure_type24753 *t71146; struct w49 t71147; struct w49 t71148; struct p9146 *t71149; int t71150; struct w30215 t71151; struct w49 t71152; struct structure_type24753 *t71153; struct w49 t71154; struct w49 t71155; struct p9146 *t71156; int t71157; struct w30215 t71158; struct w49 t71159; struct w49 t71160; struct structure_type24753 *t71161; struct structure_type24753 *t71162; struct w49 t71163; struct w49 t71164; struct w9140 t71165; struct structure_type24753 *t71166; struct w49 t71167; struct w49 t71168; struct p9146 *t71169; int t71170; struct w49 t71171; struct headed_vector_type27896 *t71172; int t71173; unsigned t71174; unsigned t71175; struct p9146 *t71176; struct w49 t71177; unsigned t71178; struct w49 t71179; struct w49 t71180; struct w49 t71181; struct p9146 *t71182; int t71183; struct w30215 t71184; struct w30215 t71185; struct w49 t71186; struct structure_type24753 *t71187; struct w49 t71188; struct w49 t71189; struct w49 t71190; struct w49 t71191; struct structure_type24753 *t71192; struct w49 t71193; struct w49 t71194; struct w49 t71195; struct w49 t71196; struct w49 t71197; struct p9146 *e9146; struct p9146 *p9147; struct p9146 *p9157; struct p9146 *p9158; struct p9146 *p9162; struct p9146 *p9163; struct p9146 *p9164; struct p9146 *p9169; e9146 = (struct p9146 *)alloca(sizeof(struct p9146)); if (e9146==NULL) {backtrace_internal("[inside CLONE-SIZE 9144]"); out_of_memory_error();} e9146->a22421 = a22421; /* x77982 stalin.sc:5130:175396 */ /* x77981 stalin.sc:5130:175402 */ /* x77980 stalin.sc:5130:175419 */ t71196 = a22420; /* x77979 stalin.sc:5130:175403 */ a40294 = t71196; /* x293845 */ /* x293844 */ t71197 = a40294; /* x293843 */ if (!((t71197.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35211]"); structure_ref_error();} t71026 = t71197.value.structure_type27698->s0; /* x77978 */ t71025 = e9146; p9147 = t71025; a22422 = t71026; /* x77977 */ /* x77704 */ /* x77702 */ t71027 = a22422; /* x77703 */ t71028 = q68; /* x77701 */ t71029.tag = EXTERNAL_SYMBOL_TYPE; t71029.value.external_symbol_type = t71027; t71030.tag = EXTERNAL_SYMBOL_TYPE; t71030.value.external_symbol_type = t71028; if (f26160(t71029, t71030)==FALSE_TYPE) goto l12026; /* x77707 */ /* x77706 */ /* x77705 stalin.sc:5131:175442 */ r9146.tag = FIXNUM_TYPE; r9146.value.fixnum_type = 1; return r9146; l12026: /* x77976 */ /* x77711 */ /* x77709 */ t71031 = a22422; /* x77710 */ t71032 = q69; /* x77708 */ t71033.tag = EXTERNAL_SYMBOL_TYPE; t71033.value.external_symbol_type = t71031; t71034.tag = EXTERNAL_SYMBOL_TYPE; t71034.value.external_symbol_type = t71032; if (f26160(t71033, t71034)==FALSE_TYPE) goto l12028; /* x77714 */ /* x77713 */ /* x77712 stalin.sc:5132:175465 */ r9146.tag = FIXNUM_TYPE; r9146.value.fixnum_type = 1; return r9146; l12028: /* x77975 */ /* x77718 */ /* x77716 */ t71035 = a22422; /* x77717 */ t71036 = q70; /* x77715 */ t71037.tag = EXTERNAL_SYMBOL_TYPE; t71037.value.external_symbol_type = t71035; t71038.tag = EXTERNAL_SYMBOL_TYPE; t71038.value.external_symbol_type = t71036; if (f26160(t71037, t71038)==FALSE_TYPE) goto l12030; /* x77721 */ /* x77720 */ /* x77719 stalin.sc:5133:175489 */ r9146.tag = FIXNUM_TYPE; r9146.value.fixnum_type = 1; return r9146; l12030: /* x77974 */ /* x77725 */ /* x77723 */ t71039 = a22422; /* x77724 */ t71040 = q71; /* x77722 */ t71041.tag = EXTERNAL_SYMBOL_TYPE; t71041.value.external_symbol_type = t71039; t71042.tag = EXTERNAL_SYMBOL_TYPE; t71042.value.external_symbol_type = t71040; if (f26160(t71041, t71042)==FALSE_TYPE) goto l12032; /* x77728 */ /* x77727 */ /* x77726 stalin.sc:5134:175512 */ r9146.tag = FIXNUM_TYPE; r9146.value.fixnum_type = 1; return r9146; l12032: /* x77973 */ /* x77732 */ /* x77730 */ t71043 = a22422; /* x77731 */ t71044 = q72; /* x77729 */ t71045.tag = EXTERNAL_SYMBOL_TYPE; t71045.value.external_symbol_type = t71043; t71046.tag = EXTERNAL_SYMBOL_TYPE; t71046.value.external_symbol_type = t71044; if (f26160(t71045, t71046)==FALSE_TYPE) goto l12034; /* x77735 */ /* x77734 */ /* x77733 stalin.sc:5135:175537 */ r9146.tag = FIXNUM_TYPE; r9146.value.fixnum_type = 1; return r9146; l12034: /* x77972 */ /* x77739 */ /* x77737 */ t71047 = a22422; /* x77738 */ t71048 = q73; /* x77736 */ t71049.tag = EXTERNAL_SYMBOL_TYPE; t71049.value.external_symbol_type = t71047; t71050.tag = EXTERNAL_SYMBOL_TYPE; t71050.value.external_symbol_type = t71048; if (f26160(t71049, t71050)==FALSE_TYPE) goto l12036; /* x77742 */ /* x77741 */ /* x77740 stalin.sc:5136:175562 */ r9146.tag = FIXNUM_TYPE; r9146.value.fixnum_type = 1; return r9146; l12036: /* x77971 */ /* x77746 */ /* x77744 */ t71051 = a22422; /* x77745 */ t71052 = q74; /* x77743 */ t71053.tag = EXTERNAL_SYMBOL_TYPE; t71053.value.external_symbol_type = t71051; t71054.tag = EXTERNAL_SYMBOL_TYPE; t71054.value.external_symbol_type = t71052; if (f26160(t71053, t71054)==FALSE_TYPE) goto l12038; /* x77749 */ /* x77748 */ /* x77747 stalin.sc:5137:175592 */ r9146.tag = FIXNUM_TYPE; r9146.value.fixnum_type = 1; return r9146; l12038: /* x77970 */ /* x77753 */ /* x77751 */ t71055 = a22422; /* x77752 */ t71056 = q75; /* x77750 */ t71057.tag = EXTERNAL_SYMBOL_TYPE; t71057.value.external_symbol_type = t71055; t71058.tag = EXTERNAL_SYMBOL_TYPE; t71058.value.external_symbol_type = t71056; if (f26160(t71057, t71058)==FALSE_TYPE) goto l12040; /* x77756 */ /* x77755 */ /* x77754 stalin.sc:5138:175617 */ r9146.tag = FIXNUM_TYPE; r9146.value.fixnum_type = 1; return r9146; l12040: /* x77969 */ /* x77760 */ /* x77758 */ t71059 = a22422; /* x77759 */ t71060 = q76; /* x77757 */ t71061.tag = EXTERNAL_SYMBOL_TYPE; t71061.value.external_symbol_type = t71059; t71062.tag = EXTERNAL_SYMBOL_TYPE; t71062.value.external_symbol_type = t71060; if (f26160(t71061, t71062)==FALSE_TYPE) goto l12042; /* x77763 */ /* x77762 */ /* x77761 stalin.sc:5139:175642 */ r9146.tag = FIXNUM_TYPE; r9146.value.fixnum_type = 1; return r9146; l12042: /* x77968 */ /* x77767 */ /* x77765 */ t71063 = a22422; /* x77766 */ t71064 = q50; /* x77764 */ t71065.tag = EXTERNAL_SYMBOL_TYPE; t71065.value.external_symbol_type = t71063; t71066.tag = EXTERNAL_SYMBOL_TYPE; t71066.value.external_symbol_type = t71064; if (f26160(t71065, t71066)==FALSE_TYPE) goto l12044; /* x77788 */ /* x77787 */ t71182 = p9147; p9157 = t71182; /* x77786 stalin.sc:5141:175669 */ /* x77769 stalin.sc:5141:175672 */ t71183 = 1; /* x77777 stalin.sc:5142:175681 */ /* x77775 stalin.sc:5142:175687 */ /* x77774 stalin.sc:5142:175692 */ /* x77773 stalin.sc:5142:175713 */ t71189 = a22420; /* x77772 stalin.sc:5142:175693 */ a39548 = t71189; /* x290861 */ /* x290860 */ t71190 = a39548; /* x290859 */ if (!((t71190.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34465]"); structure_ref_error();} t71188 = t71190.value.structure_type27698->s12; /* x270096 stalin.sc:5142:175688 */ if (!((t71188.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 5142, 175687); structure_ref_error();} t71186 = t71188.value.structure_type24753->s0; /* x77776 stalin.sc:5142:175717 */ t71187 = p9157->a22421; /* x77770 stalin.sc:5142:175682 */ t71184 = f9146(t71186, t71187); /* x77785 stalin.sc:5143:175728 */ /* x77783 stalin.sc:5143:175734 */ /* x77782 stalin.sc:5143:175739 */ /* x77781 stalin.sc:5143:175760 */ t71194 = a22420; /* x77780 stalin.sc:5143:175740 */ a39549 = t71194; /* x290865 */ /* x290864 */ t71195 = a39549; /* x290863 */ if (!((t71195.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34466]"); structure_ref_error();} t71193 = t71195.value.structure_type27698->s12; /* x270095 stalin.sc:5143:175735 */ if (!((t71193.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 5143, 175734); structure_ref_error();} t71191 = t71193.value.structure_type24753->s1; /* x77784 stalin.sc:5143:175764 */ t71192 = p9157->a22421; /* x77778 stalin.sc:5143:175729 */ t71185 = f9146(t71191, t71192); /* x270097 stalin.sc:5141:175670 */ if ((t71184.tag)==FIXNUM_TYPE) {if ((t71185.tag)==FIXNUM_TYPE) {r9146.tag = FIXNUM_TYPE; r9146.value.fixnum_type = (t71183+(t71184.value.fixnum_type))+(t71185.value.fixnum_type); return r9146;} r9146.tag = FLONUM_TYPE; r9146.value.flonum_type = (t71183+(t71184.value.fixnum_type))+(t71185.value.flonum_type); return r9146;} if ((t71185.tag)==FIXNUM_TYPE) {r9146.tag = FLONUM_TYPE; r9146.value.flonum_type = (t71183+(t71184.value.flonum_type))+(t71185.value.fixnum_type); return r9146;} r9146.tag = FLONUM_TYPE; r9146.value.flonum_type = (t71183+(t71184.value.flonum_type))+(t71185.value.flonum_type); return r9146; l12044: /* x77967 */ /* x77792 */ /* x77790 */ t71067 = a22422; /* x77791 */ t71068 = q52; /* x77789 */ t71069.tag = EXTERNAL_SYMBOL_TYPE; t71069.value.external_symbol_type = t71067; t71070.tag = EXTERNAL_SYMBOL_TYPE; t71070.value.external_symbol_type = t71068; if (f26160(t71069, t71070)==FALSE_TYPE) goto l12046; /* x77811 */ /* x77810 */ t71169 = p9147; p9158 = t71169; /* x77809 stalin.sc:5145:175796 */ /* x77794 stalin.sc:5145:175799 */ t71170 = 1; /* x77808 stalin.sc:5146:175808 */ /* x77796 stalin.sc:5147:175824 */ /* x77806 stalin.sc:5147:175826 */ /* x77805 stalin.sc:5147:175863 */ /* x77804 stalin.sc:5147:175884 */ t71180 = a22420; /* x77803 stalin.sc:5147:175864 */ a39550 = t71180; /* x290869 */ /* x290868 */ t71181 = a39550; /* x290867 */ if (!((t71181.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34467]"); structure_ref_error();} t71177 = t71181.value.structure_type27698->s12; /* x77802 stalin.sc:5147:175838 */ t71176 = p9158; /* x77797 stalin.sc:5147:175827 */ t71178 = (unsigned)t71176; t71179 = t71177; t71172 = f1154(t71178, t71179); /* x77807 stalin.sc:5147:175888 */ t71173 = 0; /* x77795 stalin.sc:5146:175809 */ t71174 = NATIVE_PROCEDURE_TYPE414; t71175 = (((unsigned)t71173)<<1)+1; t71171 = f1019(t71174, t71172, t71175); /* x270094 stalin.sc:5145:175797 */ switch (t71171.tag) {case FIXNUM_TYPE: r9146.tag = FIXNUM_TYPE; r9146.value.fixnum_type = t71170+(t71171.value.fixnum_type); return r9146; case FLONUM_TYPE: r9146.tag = FLONUM_TYPE; r9146.value.flonum_type = t71170+(t71171.value.flonum_type); return r9146; default: backtrace("stalin.sc", 5145, 175796); plus_error();} l12046: /* x77966 */ /* x77833 */ /* x77832 */ /* x77830 */ t71071 = a22422; /* x77831 */ t71072 = q39; /* x77829 */ t71073.tag = EXTERNAL_SYMBOL_TYPE; t71073.value.external_symbol_type = t71071; t71074.tag = EXTERNAL_SYMBOL_TYPE; t71074.value.external_symbol_type = t71072; if (!(f26160(t71073, t71074)==FALSE_TYPE)) goto l12047; /* x77826 */ /* x77825 */ /* x77823 */ t71075 = a22422; /* x77824 */ t71076 = q40; /* x77822 */ t71077.tag = EXTERNAL_SYMBOL_TYPE; t71077.value.external_symbol_type = t71075; t71078.tag = EXTERNAL_SYMBOL_TYPE; t71078.value.external_symbol_type = t71076; if (!(f26160(t71077, t71078)==FALSE_TYPE)) goto l12047; /* x77819 */ /* x77817 */ t71079 = a22422; /* x77818 */ t71080 = q41; /* x77816 */ t71081.tag = EXTERNAL_SYMBOL_TYPE; t71081.value.external_symbol_type = t71079; t71082.tag = EXTERNAL_SYMBOL_TYPE; t71082.value.external_symbol_type = t71080; if (f26160(t71081, t71082)==FALSE_TYPE) goto l12048; l12047: /* x77854 */ /* x77853 */ t71156 = p9147; p9162 = t71156; /* x77852 stalin.sc:5149:175950 */ /* x77835 stalin.sc:5149:175953 */ t71157 = 1; /* x77851 stalin.sc:5150:175962 */ /* x77838 stalin.sc:5150:175966 */ /* x77837 stalin.sc:5150:175973 */ t71159 = a22420; /* x77836 stalin.sc:5150:175967 */ if (f8918(t71159)==FALSE_TYPE) goto l12065; /* x77839 stalin.sc:5151:175980 */ t71158.tag = FIXNUM_TYPE; t71158.value.fixnum_type = 0; goto l12066; l12065: /* x77850 stalin.sc:5152:175986 */ /* x77843 stalin.sc:5152:175992 */ /* x77842 stalin.sc:5152:176009 */ t71163 = a22420; /* x77841 stalin.sc:5152:175993 */ a39216 = t71163; /* x289533 */ /* x289532 */ t71164 = a39216; /* x289531 */ if (!((t71164.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34133]"); structure_ref_error();} t71160 = t71164.value.structure_type27698->s15; /* x77849 stalin.sc:5153:176015 */ /* x77847 stalin.sc:5153:176021 */ /* x77846 stalin.sc:5153:176052 */ t71167 = a22420; /* x77845 stalin.sc:5153:176022 */ a39483 = t71167; /* x290601 */ /* x290600 */ t71168 = a39483; /* x290599 */ if (!((t71168.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34400]"); structure_ref_error();} t71165 = t71168.value.structure_type27698->s13; /* x77848 stalin.sc:5153:176055 */ t71166 = p9162->a22421; /* x270092 stalin.sc:5153:176016 */ t71161 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t71161==NULL) {backtrace("stalin.sc", 5153, 176015); out_of_memory_error();} t71161->s0 = *((struct w49 *)(&t71165)); /* MOVE: branching squeezed to general */ if (t71166>=((struct structure_type24753 *)VALUE_OFFSET)) {t71161->s1.tag = STRUCTURE_TYPE24753; t71161->s1.value.structure_type24753 = t71166;} else t71161->s1.tag = (unsigned)t71166; /* x77840 stalin.sc:5152:175987 */ t71162 = t71161; t71158 = f9146(t71160, t71162); l12066: /* x270093 stalin.sc:5149:175951 */ if ((t71158.tag)==FIXNUM_TYPE) {r9146.tag = FIXNUM_TYPE; r9146.value.fixnum_type = t71157+(t71158.value.fixnum_type); return r9146;} r9146.tag = FLONUM_TYPE; r9146.value.flonum_type = t71157+(t71158.value.flonum_type); return r9146; l12048: /* x77965 */ /* x77858 */ /* x77856 */ t71083 = a22422; /* x77857 */ t71084 = q42; /* x77855 */ t71085.tag = EXTERNAL_SYMBOL_TYPE; t71085.value.external_symbol_type = t71083; t71086.tag = EXTERNAL_SYMBOL_TYPE; t71086.value.external_symbol_type = t71084; if (f26160(t71085, t71086)==FALSE_TYPE) goto l12052; /* x77869 */ /* x77868 */ t71149 = p9147; p9163 = t71149; /* x77867 stalin.sc:5154:176074 */ /* x77860 stalin.sc:5154:176077 */ t71150 = 1; /* x77866 stalin.sc:5154:176079 */ /* x77864 stalin.sc:5154:176085 */ /* x77863 stalin.sc:5154:176104 */ t71154 = a22420; /* x77862 stalin.sc:5154:176086 */ a39061 = t71154; /* x288913 */ /* x288912 */ t71155 = a39061; /* x288911 */ if (!((t71155.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33978]"); structure_ref_error();} t71152 = t71155.value.structure_type27698->s17; /* x77865 stalin.sc:5154:176107 */ t71153 = p9163->a22421; /* x77861 stalin.sc:5154:176080 */ t71151 = f9146(t71152, t71153); /* x270091 stalin.sc:5154:176075 */ if ((t71151.tag)==FIXNUM_TYPE) {r9146.tag = FIXNUM_TYPE; r9146.value.fixnum_type = t71150+(t71151.value.fixnum_type); return r9146;} r9146.tag = FLONUM_TYPE; r9146.value.flonum_type = t71150+(t71151.value.flonum_type); return r9146; l12052: /* x77964 */ /* x77873 */ /* x77871 */ t71087 = a22422; /* x77872 */ t71088 = q43; /* x77870 */ t71089.tag = EXTERNAL_SYMBOL_TYPE; t71089.value.external_symbol_type = t71087; t71090.tag = EXTERNAL_SYMBOL_TYPE; t71090.value.external_symbol_type = t71088; if (f26160(t71089, t71090)==FALSE_TYPE) goto l12054; /* x77896 */ /* x77895 */ t71132 = p9147; p9164 = t71132; /* x77894 stalin.sc:5156:176126 */ /* x77875 stalin.sc:5156:176129 */ t71133 = 1; /* x77881 stalin.sc:5157:176138 */ /* x77879 stalin.sc:5157:176144 */ /* x77878 stalin.sc:5157:176167 */ t71139 = a22420; /* x77877 stalin.sc:5157:176145 */ a39005 = t71139; /* x288689 */ /* x288688 */ t71140 = a39005; /* x288687 */ if (!((t71140.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33922]"); structure_ref_error();} t71137 = t71140.value.structure_type27698->s18; /* x77880 stalin.sc:5157:176170 */ t71138 = p9164->a22421; /* x77876 stalin.sc:5157:176139 */ t71134 = f9146(t71137, t71138); /* x77887 stalin.sc:5158:176181 */ /* x77885 stalin.sc:5158:176187 */ /* x77884 stalin.sc:5158:176210 */ t71143 = a22420; /* x77883 stalin.sc:5158:176188 */ a38952 = t71143; /* x288477 */ /* x288476 */ t71144 = a38952; /* x288475 */ if (!((t71144.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33869]"); structure_ref_error();} t71141 = t71144.value.structure_type27698->s19; /* x77886 stalin.sc:5158:176213 */ t71142 = p9164->a22421; /* x77882 stalin.sc:5158:176182 */ t71135 = f9146(t71141, t71142); /* x77893 stalin.sc:5159:176224 */ /* x77891 stalin.sc:5159:176230 */ /* x77890 stalin.sc:5159:176252 */ t71147 = a22420; /* x77889 stalin.sc:5159:176231 */ a38900 = t71147; /* x288269 */ /* x288268 */ t71148 = a38900; /* x288267 */ if (!((t71148.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33817]"); structure_ref_error();} t71145 = t71148.value.structure_type27698->s20; /* x77892 stalin.sc:5159:176255 */ t71146 = p9164->a22421; /* x77888 stalin.sc:5159:176225 */ t71136 = f9146(t71145, t71146); /* x270090 stalin.sc:5156:176127 */ if ((t71134.tag)==FIXNUM_TYPE) {if ((t71135.tag)==FIXNUM_TYPE) {if ((t71136.tag)==FIXNUM_TYPE) {r9146.tag = FIXNUM_TYPE; r9146.value.fixnum_type = ((t71133+(t71134.value.fixnum_type))+(t71135.value.fixnum_type))+(t71136.value.fixnum_type); return r9146;} r9146.tag = FLONUM_TYPE; r9146.value.flonum_type = ((t71133+(t71134.value.fixnum_type))+(t71135.value.fixnum_type))+(t71136.value.flonum_type); return r9146;} if ((t71136.tag)==FIXNUM_TYPE) {r9146.tag = FLONUM_TYPE; r9146.value.flonum_type = ((t71133+(t71134.value.fixnum_type))+(t71135.value.flonum_type))+(t71136.value.fixnum_type); return r9146;} r9146.tag = FLONUM_TYPE; r9146.value.flonum_type = ((t71133+(t71134.value.fixnum_type))+(t71135.value.flonum_type))+(t71136.value.flonum_type); return r9146;} if ((t71135.tag)==FIXNUM_TYPE) {if ((t71136.tag)==FIXNUM_TYPE) {r9146.tag = FLONUM_TYPE; r9146.value.flonum_type = ((t71133+(t71134.value.flonum_type))+(t71135.value.fixnum_type))+(t71136.value.fixnum_type); return r9146;} r9146.tag = FLONUM_TYPE; r9146.value.flonum_type = ((t71133+(t71134.value.flonum_type))+(t71135.value.fixnum_type))+(t71136.value.flonum_type); return r9146;} if ((t71136.tag)==FIXNUM_TYPE) {r9146.tag = FLONUM_TYPE; r9146.value.flonum_type = ((t71133+(t71134.value.flonum_type))+(t71135.value.flonum_type))+(t71136.value.fixnum_type); return r9146;} r9146.tag = FLONUM_TYPE; r9146.value.flonum_type = ((t71133+(t71134.value.flonum_type))+(t71135.value.flonum_type))+(t71136.value.flonum_type); return r9146; l12054: /* x77963 */ /* x77900 */ /* x77898 */ t71091 = a22422; /* x77899 */ t71092 = q77; /* x77897 */ t71093.tag = EXTERNAL_SYMBOL_TYPE; t71093.value.external_symbol_type = t71091; t71094.tag = EXTERNAL_SYMBOL_TYPE; t71094.value.external_symbol_type = t71092; if (f26160(t71093, t71094)==FALSE_TYPE) goto l12056; /* x77903 */ /* x77902 */ /* x77901 stalin.sc:5160:176287 */ r9146.tag = FIXNUM_TYPE; r9146.value.fixnum_type = 1; return r9146; l12056: /* x77962 */ /* x77907 */ /* x77905 */ t71095 = a22422; /* x77906 */ t71096 = q78; /* x77904 */ t71097.tag = EXTERNAL_SYMBOL_TYPE; t71097.value.external_symbol_type = t71095; t71098.tag = EXTERNAL_SYMBOL_TYPE; t71098.value.external_symbol_type = t71096; if (f26160(t71097, t71098)==FALSE_TYPE) goto l12058; /* x77910 */ /* x77909 */ /* x77908 stalin.sc:5161:176314 */ r9146.tag = FIXNUM_TYPE; r9146.value.fixnum_type = 1; return r9146; l12058: /* x77961 */ /* x77914 */ /* x77912 */ t71099 = a22422; /* x77913 */ t71100 = q38; /* x77911 */ t71101.tag = EXTERNAL_SYMBOL_TYPE; t71101.value.external_symbol_type = t71099; t71102.tag = EXTERNAL_SYMBOL_TYPE; t71102.value.external_symbol_type = t71100; if (f26160(t71101, t71102)==FALSE_TYPE) goto l12060; /* x77917 */ /* x77916 */ /* x77915 stalin.sc:5162:176330 */ r9146.tag = FIXNUM_TYPE; r9146.value.fixnum_type = 1; return r9146; l12060: /* x77960 */ /* x77930 */ /* x77929 */ /* x77927 */ t71103 = a22422; /* x77928 */ t71104 = q36; /* x77926 */ t71105.tag = EXTERNAL_SYMBOL_TYPE; t71105.value.external_symbol_type = t71103; t71106.tag = EXTERNAL_SYMBOL_TYPE; t71106.value.external_symbol_type = t71104; if (!(f26160(t71105, t71106)==FALSE_TYPE)) goto l12061; /* x77923 */ /* x77921 */ t71107 = a22422; /* x77922 */ t71108 = q37; /* x77920 */ t71109.tag = EXTERNAL_SYMBOL_TYPE; t71109.value.external_symbol_type = t71107; t71110.tag = EXTERNAL_SYMBOL_TYPE; t71110.value.external_symbol_type = t71108; if (f26160(t71109, t71110)==FALSE_TYPE) goto l12062; l12061: /* x77955 */ /* x77954 */ t71112 = p9147; p9169 = t71112; /* x77953 stalin.sc:5164:176363 */ /* x77932 stalin.sc:5164:176366 */ t71113 = 1; /* x77938 stalin.sc:5165:176375 */ /* x77936 stalin.sc:5165:176381 */ /* x77935 stalin.sc:5165:176400 */ t71118 = a22420; /* x77934 stalin.sc:5165:176382 */ a38643 = t71118; /* x287241 */ /* x287240 */ t71119 = a38643; /* x287239 */ if (!((t71119.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33560]"); structure_ref_error();} t71116 = t71119.value.structure_type27698->s21; /* x77937 stalin.sc:5165:176403 */ t71117 = p9169->a22421; /* x77933 stalin.sc:5165:176376 */ t71114 = f9146(t71116, t71117); /* x77952 stalin.sc:5166:176414 */ /* x77940 stalin.sc:5166:176422 */ /* x77950 stalin.sc:5166:176424 */ /* x77949 stalin.sc:5166:176454 */ /* x77948 stalin.sc:5166:176476 */ t71130 = a22420; /* x77947 stalin.sc:5166:176455 */ a38548 = t71130; /* x286861 */ /* x286860 */ t71131 = a38548; /* x286859 */ if (!((t71131.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33465]"); structure_ref_error();} t71126 = t71131.value.structure_type27698->s22; /* x77946 stalin.sc:5166:176429 */ t71125 = p9169; /* x77941 stalin.sc:5166:176425 */ t71127.tag = NATIVE_PROCEDURE_TYPE19426; t71127.value.native_procedure_type19426 = t71125; t71128 = *((struct w49 *)(&t71126)); t71129 = (struct structure_type24753 *)NULL_TYPE; t71120 = f27731(t71127, t71128, t71129); /* x77951 stalin.sc:5166:176480 */ t71121 = 0; /* x77939 stalin.sc:5166:176415 */ t71122 = NATIVE_PROCEDURE_TYPE414; /* MOVE: branching squeezed to general */ if (t71120>=((struct structure_type24753 *)VALUE_OFFSET)) {t71123.tag = STRUCTURE_TYPE24753; t71123.value.structure_type24753 = t71120;} else t71123.tag = (unsigned)t71120; t71124.tag = FIXNUM_TYPE; t71124.value.fixnum_type = t71121; t71115 = f1006(t71122, t71123, t71124); /* x270089 stalin.sc:5164:176364 */ if ((t71114.tag)==FIXNUM_TYPE) switch (t71115.tag) {case FIXNUM_TYPE: r9146.tag = FIXNUM_TYPE; r9146.value.fixnum_type = (t71113+(t71114.value.fixnum_type))+(t71115.value.fixnum_type); return r9146; case FLONUM_TYPE: r9146.tag = FLONUM_TYPE; r9146.value.flonum_type = (t71113+(t71114.value.fixnum_type))+(t71115.value.flonum_type); return r9146; default: backtrace("stalin.sc", 5164, 176363); plus_error();} switch (t71115.tag) {case FIXNUM_TYPE: r9146.tag = FLONUM_TYPE; r9146.value.flonum_type = (t71113+(t71114.value.flonum_type))+(t71115.value.fixnum_type); return r9146; case FLONUM_TYPE: r9146.tag = FLONUM_TYPE; r9146.value.flonum_type = (t71113+(t71114.value.flonum_type))+(t71115.value.flonum_type); return r9146; default: backtrace("stalin.sc", 5164, 176363); plus_error();} l12062: /* x77959 */ /* x77958 */ /* x77957 stalin.sc:5167:176494 */ /* x77956 stalin.sc:5167:176495 */ /* x296253 QobiScheme.sc:166:5314 */ /* x296252 QobiScheme.sc:166:5321 */ t71111 = "This shouldn\'t happen"; /* x296251 QobiScheme.sc:166:5315 */ stalin_panic(t71111);} /* [inside POINTS-TO? 9142] */ unsigned f9142(struct p9140 *p9142, struct w49 a22416) {struct w49 t71198; struct w49 t71199; /* x77689 stalin.sc:5124:175279 */ /* x77687 stalin.sc:5124:175284 */ t71198 = a22416; /* x77688 stalin.sc:5124:175287 */ t71199 = p9142->a22414; /* x270098 stalin.sc:5124:175280 */ /* EQ: dispatching general to general */ if (!((t71198.tag)==(t71199.tag))) return FALSE_TYPE; switch (t71198.tag) {case FIXNUM_TYPE: if ((t71198.value.fixnum_type)==(t71199.value.fixnum_type)) return TRUE_TYPE; else return FALSE_TYPE; case FLONUM_TYPE: if ((t71198.value.flonum_type)==(t71199.value.flonum_type)) return TRUE_TYPE; else return FALSE_TYPE; case INPUT_PORT_TYPE: if ((t71198.value.input_port_type)==(t71199.value.input_port_type)) return TRUE_TYPE; else return FALSE_TYPE; case OUTPUT_PORT_TYPE: if ((t71198.value.output_port_type)==(t71199.value.output_port_type)) return TRUE_TYPE; else return FALSE_TYPE; case NATIVE_PROCEDURE_TYPE15963: if ((t71198.value.native_procedure_type15963)==(t71199.value.native_procedure_type15963)) return TRUE_TYPE; else return FALSE_TYPE; case NATIVE_PROCEDURE_TYPE19067: if ((t71198.value.native_procedure_type19067)==(t71199.value.native_procedure_type19067)) return TRUE_TYPE; else return FALSE_TYPE; case NATIVE_PROCEDURE_TYPE19068: if ((t71198.value.native_procedure_type19068)==(t71199.value.native_procedure_type19068)) return TRUE_TYPE; else return FALSE_TYPE; case NATIVE_PROCEDURE_TYPE22459: if ((t71198.value.native_procedure_type22459)==(t71199.value.native_procedure_type22459)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE24753: if ((t71198.value.structure_type24753)==(t71199.value.structure_type24753)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE24757: if ((t71198.value.structure_type24757)==(t71199.value.structure_type24757)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27501: if ((t71198.value.structure_type27501)==(t71199.value.structure_type27501)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27510: if ((t71198.value.structure_type27510)==(t71199.value.structure_type27510)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27621: if ((t71198.value.structure_type27621)==(t71199.value.structure_type27621)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27650: if ((t71198.value.structure_type27650)==(t71199.value.structure_type27650)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27669: if ((t71198.value.structure_type27669)==(t71199.value.structure_type27669)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27673: if ((t71198.value.structure_type27673)==(t71199.value.structure_type27673)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27692: if ((t71198.value.structure_type27692)==(t71199.value.structure_type27692)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27694: if ((t71198.value.structure_type27694)==(t71199.value.structure_type27694)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27698: if ((t71198.value.structure_type27698)==(t71199.value.structure_type27698)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27745: if ((t71198.value.structure_type27745)==(t71199.value.structure_type27745)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27747: if ((t71198.value.structure_type27747)==(t71199.value.structure_type27747)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27750: if ((t71198.value.structure_type27750)==(t71199.value.structure_type27750)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27753: if ((t71198.value.structure_type27753)==(t71199.value.structure_type27753)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27756: if ((t71198.value.structure_type27756)==(t71199.value.structure_type27756)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27761: if ((t71198.value.structure_type27761)==(t71199.value.structure_type27761)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27769: if ((t71198.value.structure_type27769)==(t71199.value.structure_type27769)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27776: if ((t71198.value.structure_type27776)==(t71199.value.structure_type27776)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27779: if ((t71198.value.structure_type27779)==(t71199.value.structure_type27779)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27858: if ((t71198.value.structure_type27858)==(t71199.value.structure_type27858)) return TRUE_TYPE; else return FALSE_TYPE; case STRING_TYPE: if ((t71198.value.string_type)==(t71199.value.string_type)) return TRUE_TYPE; else return FALSE_TYPE; case HEADED_VECTOR_TYPE27896: if ((t71198.value.headed_vector_type27896)==(t71199.value.headed_vector_type27896)) return TRUE_TYPE; else return FALSE_TYPE; case EXTERNAL_SYMBOL_TYPE: if ((t71198.value.external_symbol_type)==(t71199.value.external_symbol_type)) return TRUE_TYPE; else return FALSE_TYPE; case STRUCTURE_TYPE27908: if ((t71198.value.structure_type27908)==(t71199.value.structure_type27908)) return TRUE_TYPE; else return FALSE_TYPE; default: return TRUE_TYPE;}} /* POINTS-TO?[9140] */ struct w16638 f9140(struct w49 a22413, struct w49 a22414) {struct p9140 *t71200; struct p9140 *t71201; struct w49 t71202; struct p9140 *t71203; struct p9140 *e9140; struct p9140 *p9141; e9140 = (struct p9140 *)alloca(sizeof(struct p9140)); if (e9140==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e9140->a22414 = a22414; /* x77696 */ /* x77695 stalin.sc:5123:175227 */ /* x77694 stalin.sc:5123:175228 */ f9014(); /* x77693 */ t71200 = e9140; p9141 = t71200; /* x77692 stalin.sc:5124:175244 */ /* x77690 stalin.sc:5124:175266 */ t71201 = p9141; /* x77691 stalin.sc:5124:175292 */ t71202 = a22413; /* x77685 stalin.sc:5124:175245 */ t71203 = t71201; return f9030(t71203, t71202);} /* [inside LOOP 9104] */ void f9104(struct p9082 *p9104, struct w49 a22401) {struct w49 a36854; /* S */ struct w49 a36855; /* S */ struct w49 t71204; struct w49 t71205; struct w49 t71206; struct w49 t71207; struct p9082 *t71208; struct p9082 *t71209; struct w49 t71210; struct w49 t71211; struct w49 t71212; struct p9082 *p9105; /* x77436 stalin.sc:5072:173357 */ /* x77426 stalin.sc:5072:173363 */ /* x77417 stalin.sc:5072:173368 */ /* x77416 stalin.sc:5072:173379 */ t71204 = a22401; /* x77415 stalin.sc:5072:173369 */ if (f8229(t71204)==FALSE_TYPE) goto l12068; /* x77424 */ /* x77423 stalin.sc:5073:173398 */ /* x77422 stalin.sc:5074:173433 */ /* x77421 stalin.sc:5074:173452 */ t71206 = a22401; /* x77420 stalin.sc:5074:173434 */ a36855 = t71206; /* x280089 */ /* x280088 */ t71207 = a36855; /* x280087 */ if (!((t71207.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31772]"); structure_ref_error();} t71205 = t71207.value.structure_type27692->s9; /* x77419 stalin.sc:5073:173399 */ if (!(f9390(t71205)==FALSE_TYPE)) goto l12068; /* x77433 */ /* x77432 */ t71208 = p9104; p9105 = t71208; /* x77431 stalin.sc:5075:173466 */ /* x77430 stalin.sc:5075:173472 */ /* x77429 stalin.sc:5075:173491 */ t71211 = a22401; /* x77428 stalin.sc:5075:173473 */ a36854 = t71211; /* x280085 */ /* x280084 */ t71212 = a36854; /* x280083 */ if (!((t71212.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31771]"); structure_ref_error();} t71210 = t71212.value.structure_type27692->s9; /* x77427 stalin.sc:5075:173467 */ t71209 = p9105->a22391; f9084(t71209, t71210); return; l12068: /* x77435 stalin.sc:5072:173357 */ /* x77434 stalin.sc:5072:173357 */ return;} /* [inside LOOP 9102] */ void f9102(struct p9082 *p9102, struct w49 a22400) {struct w49 a42104; /* E */ struct w49 t71213; struct w49 t71214; struct p9082 *t71215; struct p9082 *t71216; struct w3457 t71217; struct w36108 t71218; struct w49 t71219; struct structure_type24753 *t71220; struct w49 t71221; struct p9082 *p9103; /* x77446 stalin.sc:5070:173293 */ /* x77413 stalin.sc:5070:173299 */ /* x77412 stalin.sc:5070:173322 */ t71213 = a22400; /* x77411 stalin.sc:5070:173300 */ a42104 = t71213; /* x302528 stalin.sc:4147:139235 */ /* x302527 stalin.sc:4147:139254 */ t71214 = a42104; /* x302526 stalin.sc:4147:139236 */ if (f8526(t71214)==FALSE_TYPE) goto l12071; /* x77443 */ /* x77442 */ t71215 = p9102; p9103 = t71215; /* x77441 stalin.sc:5071:173328 */ /* x77440 stalin.sc:5076:173503 */ /* x77439 stalin.sc:5076:173519 */ t71221 = a22400; /* x77438 stalin.sc:5076:173504 */ t71217 = f8629(t71221); /* x77437 stalin.sc:5071:173338 */ t71216 = p9103; /* x77414 stalin.sc:5071:173329 */ t71218.tag = NATIVE_PROCEDURE_TYPE18438; t71218.value.native_procedure_type18438 = t71216; t71219 = *((struct w49 *)(&t71217)); t71220 = (struct structure_type24753 *)NULL_TYPE; f27755(t71218, t71219, t71220); return; l12071: /* x77445 stalin.sc:5070:173293 */ /* x77444 stalin.sc:5070:173293 */ return;} /* LOOP[9084] */ void f9084(struct p9082 *p9084, struct w49 a22393) {struct w49 a37149; /* OBJ */ struct w49 a37298; /* S */ struct w49 a37338; /* OBJ */ struct w49 a37392; /* S */ struct w49 a37436; /* OBJ */ struct w49 a37507; /* S */ struct w49 a37552; /* OBJ */ struct w49 a37640; /* S */ struct w49 a37694; /* OBJ */ struct w49 a37771; /* OBJ */ struct w49 a37891; /* OBJ */ struct w49 a37962; /* OBJ */ struct w49 a38103; /* OBJ */ struct w49 a38219; /* OBJ */ struct w49 a38251; /* S */ struct w49 a38280; /* OBJ */ struct w49 a38320; /* OBJ */ struct w49 t71222; struct w49 t71223; struct w49 t71224; char *t71225; struct p9082 *t71226; struct p9082 *t71227; struct w49 t71228; struct w211045 t71229; struct p9082 *t71230; struct w49 t71231; struct w49 t71232; struct w49 t71233; struct w49 t71234; struct w49 t71235; struct w49 t71236; struct w49 t71237; struct w49 t71238; struct w49 t71239; struct w49 t71240; struct w49 t71241; struct w49 t71242; struct w49 t71243; struct w49 t71244; struct w49 t71245; struct w49 t71246; struct w49 t71247; struct w49 t71248; struct w49 t71249; struct w49 t71250; struct w49 t71251; struct w49 t71252; struct p9081 *t71253; unsigned t71254; struct p9082 *t71256; struct w49 t71257; struct p9082 *t71258; struct p9082 *t71259; struct p9082 *t71260; struct w49 t71261; struct w49 t71262; struct w49 t71263; struct w49 t71264; unsigned t71265; unsigned t71266; struct p9082 *t71268; struct w49 t71269; struct p9082 *t71270; struct p9082 *t71271; struct p9082 *t71272; struct w49 t71273; struct w49 t71274; struct w49 t71275; struct w49 t71276; unsigned t71277; unsigned t71278; struct p9082 *t71280; struct w49 t71281; struct p9082 *t71282; struct p9082 *t71283; struct p9082 *t71284; struct w49 t71285; struct w49 t71286; struct w49 t71287; struct w49 t71288; unsigned t71289; unsigned t71290; struct p9082 *t71292; struct w49 t71293; struct p9082 *t71294; struct p9082 *t71295; struct p9082 *t71296; struct w11873 t71297; struct w36108 t71298; struct w49 t71299; struct structure_type24753 *t71300; struct w49 t71301; struct w49 t71302; struct w49 t71303; unsigned t71304; unsigned t71305; struct p9081 *t71307; struct w49 t71308; struct p9081 *t71309; struct p9081 *t71310; unsigned t71311; struct w49 t71313; unsigned t71314; struct p9081 *t71315; struct w49 t71316; struct p9081 *t71317; struct p9081 *t71318; unsigned t71319; struct w49 t71321; unsigned t71322; struct p9081 *t71323; struct w49 t71324; struct p9081 *t71325; struct p9081 *t71326; unsigned t71327; struct w49 t71329; unsigned t71330; struct p9082 *t71331; struct w49 t71332; struct p9082 *t71333; struct p9082 *t71334; struct p9082 *t71335; struct w11873 t71336; struct w36108 t71337; struct w49 t71338; struct structure_type24753 *t71339; struct w49 t71340; struct w49 t71341; unsigned t71342; unsigned t71343; struct p9081 *t71345; struct w49 t71346; struct p9081 *t71347; struct p9081 *t71348; unsigned t71349; struct w49 t71351; unsigned t71352; struct p9082 *t71353; struct w49 t71354; struct p9082 *t71355; struct p9082 *t71356; struct p9082 *t71357; struct w49 t71358; struct w49 t71359; struct w49 t71360; struct w49 t71361; unsigned t71362; unsigned t71363; struct p9081 *t71365; struct w49 t71366; struct p9081 *t71367; struct p9081 *t71368; unsigned t71369; struct w49 t71371; unsigned t71372; struct p9082 *p9085; struct p9081 *p9086; struct p9081 *p9088; struct p9081 *p9089; struct p9082 *p9090; struct p9082 *p9092; struct p9082 *p9093; struct p9081 *p9094; struct p9081 *p9096; struct p9081 *p9097; struct p9082 *p9098; struct p9082 *p9100; struct p9082 *p9101; struct p9081 *p9108; struct p9081 *p9110; struct p9081 *p9111; struct p9081 *p9112; struct p9081 *p9114; struct p9081 *p9115; struct p9081 *p9116; struct p9081 *p9118; struct p9081 *p9119; struct p9082 *p9120; struct p9082 *p9122; struct p9082 *p9123; struct p9082 *p9124; struct p9082 *p9126; struct p9082 *p9127; struct p9082 *p9128; struct p9082 *p9130; struct p9082 *p9131; struct p9082 *p9132; struct p9082 *p9134; struct p9082 *p9135; struct p9081 *p9136; struct p9082 *p9137; h9084: /* x77673 stalin.sc:5044:172231 */ /* x77330 stalin.sc:5044:172238 */ /* x77329 stalin.sc:5044:172245 */ t71222 = a22393; /* x77328 stalin.sc:5044:172239 */ if (f7755(t71222)==FALSE_TYPE) goto l12073; /* x77658 */ /* x77657 */ t71230 = p9084; p9085 = t71230; /* x77656 stalin.sc:5045:172253 */ /* x77333 stalin.sc:5047:172312 */ /* x77332 stalin.sc:5047:172335 */ t71231 = a22393; /* x77331 stalin.sc:5047:172313 */ a38320 = t71231; /* x285949 */ /* x285948 */ t71232 = a38320; /* x285947 */ if (!((t71232.tag)==STRUCTURE_TYPE27776)) goto l12077; /* x77352 */ /* x77351 */ t71365 = p9085->p9081; p9086 = t71365; /* x77350 stalin.sc:5048:172345 */ /* x77336 stalin.sc:5048:172353 */ /* x77335 stalin.sc:5048:172383 */ t71366 = a22393; /* x77334 stalin.sc:5048:172354 */ if (f7234(t71366)==FALSE_TYPE) goto l12119; /* x77338 */ /* x77337 */ return; l12119: /* x77349 */ /* x77348 */ t71367 = p9086; p9088 = t71367; /* x77347 */ /* x77346 stalin.sc:5049:172394 */ /* x77344 stalin.sc:5049:172429 */ t71371 = a22393; /* x77345 stalin.sc:5049:172434 */ /* x77343 stalin.sc:5049:172395 */ t71372 = TRUE_TYPE; f7235(t71371, t71372); /* x77342 */ t71368 = p9088; p9089 = t71368; /* x77341 stalin.sc:5050:172443 */ /* x77340 stalin.sc:5050:172446 */ /* x77339 stalin.sc:5050:172444 */ t71369 = p9089->a22389; switch (t71369) {case NATIVE_PROCEDURE_TYPE18417: /* x277017 stalin.sc:11385:397271 */ return; case NATIVE_PROCEDURE_TYPE18951: /* x277039 stalin.sc:11328:394867 */ return; case NATIVE_PROCEDURE_TYPE19117: /* x277083 stalin.sc:3612:122361 */ return; case NATIVE_PROCEDURE_TYPE20681: /* x276995 stalin.sc:11406:397969 */ return; case NATIVE_PROCEDURE_TYPE23734: /* x276973 stalin.sc:11482:401104 */ return; default: /* x277061 stalin.sc:11535:403215 */ return;} l12077: /* x77655 */ /* x77355 stalin.sc:5052:172514 */ /* x77354 stalin.sc:5052:172537 */ t71233 = a22393; /* x77353 stalin.sc:5052:172515 */ a38280 = t71233; /* x285789 */ /* x285788 */ t71234 = a38280; /* x285787 */ if (!((t71234.tag)==STRUCTURE_TYPE27779)) goto l12079; /* x77379 */ /* x77378 */ t71353 = p9085; p9090 = t71353; /* x77377 stalin.sc:5053:172547 */ /* x77358 stalin.sc:5053:172555 */ /* x77357 stalin.sc:5053:172585 */ t71354 = a22393; /* x77356 stalin.sc:5053:172556 */ if (f7259(t71354)==FALSE_TYPE) goto l12117; /* x77360 */ /* x77359 */ return; l12117: /* x77376 */ /* x77375 */ t71355 = p9090; p9092 = t71355; /* x77374 */ /* x77370 stalin.sc:5054:172596 */ /* x77368 stalin.sc:5054:172631 */ t71361 = a22393; /* x77369 stalin.sc:5054:172636 */ /* x77367 stalin.sc:5054:172597 */ t71362 = TRUE_TYPE; f7260(t71361, t71362); /* x77373 stalin.sc:5055:172645 */ /* x77372 stalin.sc:5055:172648 */ /* x77371 stalin.sc:5055:172646 */ t71363 = p9092->p9081->a22389; switch (t71363) {case NATIVE_PROCEDURE_TYPE18417: /* x277019 stalin.sc:11385:397271 */ break; case NATIVE_PROCEDURE_TYPE18951: /* x277041 stalin.sc:11328:394867 */ break; case NATIVE_PROCEDURE_TYPE19117: /* x277085 stalin.sc:3612:122361 */ break; case NATIVE_PROCEDURE_TYPE20681: /* x276997 stalin.sc:11406:397969 */ break; case NATIVE_PROCEDURE_TYPE23734: /* x276975 stalin.sc:11482:401104 */ break; default: /* x277063 stalin.sc:11535:403215 */;} /* x77366 */ t71356 = p9092; p9093 = t71356; /* x77365 stalin.sc:5056:172659 */ /* x77364 stalin.sc:5056:172665 */ /* x77363 stalin.sc:5056:172709 */ t71359 = a22393; /* x77362 stalin.sc:5056:172666 */ a38251 = t71359; /* x285673 */ /* x285672 */ t71360 = a38251; /* x285671 */ if (!((t71360.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-DISPLACED-STRING-TYPE[5845] 33168]"); structure_ref_error();} t71358 = t71360.value.structure_type27779->s0; /* x77361 stalin.sc:5056:172660 */ t71357 = p9093->a22391; p9084 = t71357; a22393 = t71358; goto h9084; l12079: /* x77654 */ /* x77382 stalin.sc:5058:172775 */ /* x77381 stalin.sc:5058:172802 */ t71235 = a22393; /* x77380 stalin.sc:5058:172776 */ a38219 = t71235; /* x285545 */ /* x285544 */ t71236 = a38219; /* x285543 */ if (!((t71236.tag)==STRUCTURE_TYPE27753)) goto l12081; /* x77401 */ /* x77400 */ t71345 = p9085->p9081; p9094 = t71345; /* x77399 stalin.sc:5059:172812 */ /* x77385 stalin.sc:5059:172820 */ /* x77384 stalin.sc:5059:172854 */ t71346 = a22393; /* x77383 stalin.sc:5059:172821 */ if (f7279(t71346)==FALSE_TYPE) goto l12115; /* x77387 */ /* x77386 */ return; l12115: /* x77398 */ /* x77397 */ t71347 = p9094; p9096 = t71347; /* x77396 */ /* x77395 stalin.sc:5060:172865 */ /* x77393 stalin.sc:5060:172904 */ t71351 = a22393; /* x77394 stalin.sc:5060:172909 */ /* x77392 stalin.sc:5060:172866 */ t71352 = TRUE_TYPE; f7280(t71351, t71352); /* x77391 */ t71348 = p9096; p9097 = t71348; /* x77390 stalin.sc:5061:172918 */ /* x77389 stalin.sc:5061:172921 */ /* x77388 stalin.sc:5061:172919 */ t71349 = p9097->a22389; switch (t71349) {case NATIVE_PROCEDURE_TYPE18417: /* x277027 stalin.sc:11385:397271 */ return; case NATIVE_PROCEDURE_TYPE18951: /* x277049 stalin.sc:11328:394867 */ return; case NATIVE_PROCEDURE_TYPE19117: /* x277093 stalin.sc:3612:122361 */ return; case NATIVE_PROCEDURE_TYPE20681: /* x277003 stalin.sc:11406:397969 */ return; case NATIVE_PROCEDURE_TYPE23734: /* x276977 stalin.sc:11482:401104 */ return; default: /* x277065 stalin.sc:11535:403215 */ return;} l12081: /* x77653 */ /* x77404 stalin.sc:5065:173114 */ /* x77403 stalin.sc:5065:173138 */ t71237 = a22393; /* x77402 stalin.sc:5065:173115 */ a38103 = t71237; /* x285081 */ /* x285080 */ t71238 = a38103; /* x285079 */ if (!((t71238.tag)==STRUCTURE_TYPE27756)) goto l12083; /* x77465 */ /* x77464 */ t71331 = p9085; p9098 = t71331; /* x77463 stalin.sc:5066:173148 */ /* x77407 stalin.sc:5066:173156 */ /* x77406 stalin.sc:5066:173187 */ t71332 = a22393; /* x77405 stalin.sc:5066:173157 */ if (f7314(t71332)==FALSE_TYPE) goto l12113; /* x77409 */ /* x77408 */ return; l12113: /* x77462 */ /* x77461 */ t71333 = p9098; p9100 = t71333; /* x77460 */ /* x77456 stalin.sc:5067:173198 */ /* x77454 stalin.sc:5067:173234 */ t71341 = a22393; /* x77455 stalin.sc:5067:173239 */ /* x77453 stalin.sc:5067:173199 */ t71342 = TRUE_TYPE; f7315(t71341, t71342); /* x77459 stalin.sc:5068:173248 */ /* x77458 stalin.sc:5068:173251 */ /* x77457 stalin.sc:5068:173249 */ t71343 = p9100->p9081->a22389; switch (t71343) {case NATIVE_PROCEDURE_TYPE18417: /* x277033 stalin.sc:11385:397271 */ break; case NATIVE_PROCEDURE_TYPE18951: /* x277055 stalin.sc:11328:394867 */ break; case NATIVE_PROCEDURE_TYPE19117: /* x277099 stalin.sc:3612:122361 */ break; case NATIVE_PROCEDURE_TYPE20681: /* x277005 stalin.sc:11406:397969 */ break; case NATIVE_PROCEDURE_TYPE23734: /* x276979 stalin.sc:11482:401104 */ break; default: /* x277067 stalin.sc:11535:403215 */;} /* x77452 */ t71334 = p9100; p9101 = t71334; /* x77451 stalin.sc:5069:173262 */ /* x77450 stalin.sc:5077:173533 */ /* x77449 stalin.sc:5077:173548 */ t71340 = a22393; /* x77448 stalin.sc:5077:173534 */ t71336 = f8984(t71340); /* x77447 stalin.sc:5069:173272 */ t71335 = p9101; /* x77410 stalin.sc:5069:173263 */ t71337.tag = NATIVE_PROCEDURE_TYPE18435; t71337.value.native_procedure_type18435 = t71335; t71338 = *((struct w49 *)(&t71336)); t71339 = (struct structure_type24753 *)NULL_TYPE; f27755(t71337, t71338, t71339); return; l12083: /* x77652 */ /* x77468 stalin.sc:5079:173612 */ /* x77467 stalin.sc:5079:173637 */ t71239 = a22393; /* x77466 stalin.sc:5079:173613 */ a37962 = t71239; /* x284517 */ /* x284516 */ t71240 = a37962; /* x284515 */ if (!((t71240.tag)==STRUCTURE_TYPE27750)) goto l12085; /* x77487 */ /* x77486 */ t71323 = p9085->p9081; p9108 = t71323; /* x77485 stalin.sc:5080:173647 */ /* x77471 stalin.sc:5080:173655 */ /* x77470 stalin.sc:5080:173687 */ t71324 = a22393; /* x77469 stalin.sc:5080:173656 */ if (f7354(t71324)==FALSE_TYPE) goto l12111; /* x77473 */ /* x77472 */ return; l12111: /* x77484 */ /* x77483 */ t71325 = p9108; p9110 = t71325; /* x77482 */ /* x77481 stalin.sc:5081:173698 */ /* x77479 stalin.sc:5081:173735 */ t71329 = a22393; /* x77480 stalin.sc:5081:173740 */ /* x77478 stalin.sc:5081:173699 */ t71330 = TRUE_TYPE; f7355(t71329, t71330); /* x77477 */ t71326 = p9110; p9111 = t71326; /* x77476 stalin.sc:5082:173749 */ /* x77475 stalin.sc:5082:173752 */ /* x77474 stalin.sc:5082:173750 */ t71327 = p9111->a22389; switch (t71327) {case NATIVE_PROCEDURE_TYPE18417: /* x277029 stalin.sc:11385:397271 */ return; case NATIVE_PROCEDURE_TYPE18951: /* x277051 stalin.sc:11328:394867 */ return; case NATIVE_PROCEDURE_TYPE19117: /* x277095 stalin.sc:3612:122361 */ return; case NATIVE_PROCEDURE_TYPE20681: /* x277007 stalin.sc:11406:397969 */ return; case NATIVE_PROCEDURE_TYPE23734: /* x276981 stalin.sc:11482:401104 */ return; default: /* x277069 stalin.sc:11535:403215 */ return;} l12085: /* x77651 */ /* x77490 stalin.sc:5084:173810 */ /* x77489 stalin.sc:5084:173830 */ t71241 = a22393; /* x77488 stalin.sc:5084:173811 */ a37891 = t71241; /* x284233 */ /* x284232 */ t71242 = a37891; /* x284231 */ if (!((t71242.tag)==STRUCTURE_TYPE27858)) goto l12087; /* x77509 */ /* x77508 */ t71315 = p9085->p9081; p9112 = t71315; /* x77507 stalin.sc:5085:173840 */ /* x77493 stalin.sc:5085:173848 */ /* x77492 stalin.sc:5085:173875 */ t71316 = a22393; /* x77491 stalin.sc:5085:173849 */ if (f7379(t71316)==FALSE_TYPE) goto l12109; /* x77495 */ /* x77494 */ return; l12109: /* x77506 */ /* x77505 */ t71317 = p9112; p9114 = t71317; /* x77504 */ /* x77503 stalin.sc:5086:173886 */ /* x77501 stalin.sc:5086:173918 */ t71321 = a22393; /* x77502 stalin.sc:5086:173923 */ /* x77500 stalin.sc:5086:173887 */ t71322 = TRUE_TYPE; f7380(t71321, t71322); /* x77499 */ t71318 = p9114; p9115 = t71318; /* x77498 stalin.sc:5087:173932 */ /* x77497 stalin.sc:5087:173935 */ /* x77496 stalin.sc:5087:173933 */ t71319 = p9115->a22389; switch (t71319) {case NATIVE_PROCEDURE_TYPE18417: /* x277025 stalin.sc:11385:397271 */ return; case NATIVE_PROCEDURE_TYPE18951: /* x277047 stalin.sc:11328:394867 */ return; case NATIVE_PROCEDURE_TYPE19117: /* x277091 stalin.sc:3612:122361 */ return; case NATIVE_PROCEDURE_TYPE20681: /* x277009 stalin.sc:11406:397969 */ return; case NATIVE_PROCEDURE_TYPE23734: /* x276983 stalin.sc:11482:401104 */ return; default: /* x277071 stalin.sc:11535:403215 */ return;} l12087: /* x77650 */ /* x77512 stalin.sc:5089:173987 */ /* x77511 stalin.sc:5089:174001 */ t71243 = a22393; /* x77510 stalin.sc:5089:173988 */ a37771 = t71243; /* x283753 */ /* x283752 */ t71244 = a37771; /* x283751 */ if (!((t71244.tag)==STRUCTURE_TYPE27673)) goto l12089; /* x77531 */ /* x77530 */ t71307 = p9085->p9081; p9116 = t71307; /* x77529 stalin.sc:5090:174011 */ /* x77515 stalin.sc:5090:174019 */ /* x77514 stalin.sc:5090:174040 */ t71308 = a22393; /* x77513 stalin.sc:5090:174020 */ if (f7419(t71308)==FALSE_TYPE) goto l12107; /* x77517 */ /* x77516 */ return; l12107: /* x77528 */ /* x77527 */ t71309 = p9116; p9118 = t71309; /* x77526 */ /* x77525 stalin.sc:5091:174051 */ /* x77523 stalin.sc:5091:174077 */ t71313 = a22393; /* x77524 stalin.sc:5091:174082 */ /* x77522 stalin.sc:5091:174052 */ t71314 = TRUE_TYPE; f7420(t71313, t71314); /* x77521 */ t71310 = p9118; p9119 = t71310; /* x77520 stalin.sc:5092:174091 */ /* x77519 stalin.sc:5092:174094 */ /* x77518 stalin.sc:5092:174092 */ t71311 = p9119->a22389; switch (t71311) {case NATIVE_PROCEDURE_TYPE18417: /* x277031 stalin.sc:11385:397271 */ return; case NATIVE_PROCEDURE_TYPE18951: /* x277053 stalin.sc:11328:394867 */ return; case NATIVE_PROCEDURE_TYPE19117: /* x277097 stalin.sc:3612:122361 */ return; case NATIVE_PROCEDURE_TYPE20681: /* x277011 stalin.sc:11406:397969 */ return; case NATIVE_PROCEDURE_TYPE23734: /* x276985 stalin.sc:11482:401104 */ return; default: /* x277073 stalin.sc:11535:403215 */ return;} l12089: /* x77649 */ /* x77534 stalin.sc:5094:174145 */ /* x77533 stalin.sc:5094:174162 */ t71245 = a22393; /* x77532 stalin.sc:5094:174146 */ a37694 = t71245; /* x283445 */ /* x283444 */ t71246 = a37694; /* x283443 */ if (!((t71246.tag)==STRUCTURE_TYPE27769)) goto l12091; /* x77559 */ /* x77558 */ t71292 = p9085; p9120 = t71292; /* x77557 stalin.sc:5095:174172 */ /* x77537 stalin.sc:5095:174180 */ /* x77536 stalin.sc:5095:174204 */ t71293 = a22393; /* x77535 stalin.sc:5095:174181 */ if (f7464(t71293)==FALSE_TYPE) goto l12105; /* x77539 */ /* x77538 */ return; l12105: /* x77556 */ /* x77555 */ t71294 = p9120; p9122 = t71294; /* x77554 */ /* x77550 stalin.sc:5096:174215 */ /* x77548 stalin.sc:5096:174244 */ t71303 = a22393; /* x77549 stalin.sc:5096:174249 */ /* x77547 stalin.sc:5096:174216 */ t71304 = TRUE_TYPE; f7465(t71303, t71304); /* x77553 stalin.sc:5097:174258 */ /* x77552 stalin.sc:5097:174261 */ /* x77551 stalin.sc:5097:174259 */ t71305 = p9122->p9081->a22389; switch (t71305) {case NATIVE_PROCEDURE_TYPE18417: /* x277023 stalin.sc:11385:397271 */ break; case NATIVE_PROCEDURE_TYPE18951: /* x277045 stalin.sc:11328:394867 */ break; case NATIVE_PROCEDURE_TYPE19117: /* x277089 stalin.sc:3612:122361 */ break; case NATIVE_PROCEDURE_TYPE20681: /* x277001 stalin.sc:11406:397969 */ break; case NATIVE_PROCEDURE_TYPE23734: /* x276987 stalin.sc:11482:401104 */ break; default: /* x277075 stalin.sc:11535:403215 */;} /* x77546 */ t71295 = p9122; p9123 = t71295; /* x77545 stalin.sc:5098:174272 */ /* x77544 stalin.sc:5098:174287 */ /* x77543 stalin.sc:5098:174309 */ t71301 = a22393; /* x77542 stalin.sc:5098:174288 */ a37640 = t71301; /* x283229 */ /* x283228 */ t71302 = a37640; /* x283227 */ if (!((t71302.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32557]"); structure_ref_error();} t71297 = t71302.value.structure_type27769->s1; /* x77541 stalin.sc:5098:174282 */ t71296 = p9123->a22391; /* x77540 stalin.sc:5098:174273 */ t71298.tag = NATIVE_PROCEDURE_TYPE18420; t71298.value.native_procedure_type18420 = t71296; t71299 = *((struct w49 *)(&t71297)); t71300 = (struct structure_type24753 *)NULL_TYPE; f27755(t71298, t71299, t71300); return; l12091: /* x77648 */ /* x77562 stalin.sc:5100:174367 */ /* x77561 stalin.sc:5100:174388 */ t71247 = a22393; /* x77560 stalin.sc:5100:174368 */ a37552 = t71247; /* x282877 */ /* x282876 */ t71248 = a37552; /* x282875 */ if (!((t71248.tag)==STRUCTURE_TYPE27761)) goto l12093; /* x77586 */ /* x77585 */ t71280 = p9085; p9124 = t71280; /* x77584 stalin.sc:5101:174398 */ /* x77565 stalin.sc:5101:174406 */ /* x77564 stalin.sc:5101:174434 */ t71281 = a22393; /* x77563 stalin.sc:5101:174407 */ if (f7524(t71281)==FALSE_TYPE) goto l12103; /* x77567 */ /* x77566 */ return; l12103: /* x77583 */ /* x77582 */ t71282 = p9124; p9126 = t71282; /* x77581 */ /* x77577 stalin.sc:5102:174445 */ /* x77575 stalin.sc:5102:174478 */ t71288 = a22393; /* x77576 stalin.sc:5102:174483 */ /* x77574 stalin.sc:5102:174446 */ t71289 = TRUE_TYPE; f7525(t71288, t71289); /* x77580 stalin.sc:5103:174492 */ /* x77579 stalin.sc:5103:174495 */ /* x77578 stalin.sc:5103:174493 */ t71290 = p9126->p9081->a22389; switch (t71290) {case NATIVE_PROCEDURE_TYPE18417: /* x277021 stalin.sc:11385:397271 */ break; case NATIVE_PROCEDURE_TYPE18951: /* x277043 stalin.sc:11328:394867 */ break; case NATIVE_PROCEDURE_TYPE19117: /* x277087 stalin.sc:3612:122361 */ break; case NATIVE_PROCEDURE_TYPE20681: /* x276999 stalin.sc:11406:397969 */ break; case NATIVE_PROCEDURE_TYPE23734: /* x276989 stalin.sc:11482:401104 */ break; default: /* x277077 stalin.sc:11535:403215 */;} /* x77573 */ t71283 = p9126; p9127 = t71283; /* x77572 stalin.sc:5104:174506 */ /* x77571 stalin.sc:5104:174512 */ /* x77570 stalin.sc:5104:174540 */ t71286 = a22393; /* x77569 stalin.sc:5104:174513 */ a37507 = t71286; /* x282697 */ /* x282696 */ t71287 = a37507; /* x282695 */ if (!((t71287.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32424]"); structure_ref_error();} t71285 = t71287.value.structure_type27761->s0; /* x77568 stalin.sc:5104:174507 */ t71284 = p9127->a22391; p9084 = t71284; a22393 = t71285; goto h9084; l12093: /* x77647 */ /* x77589 stalin.sc:5106:174601 */ /* x77588 stalin.sc:5106:174625 */ t71249 = a22393; /* x77587 stalin.sc:5106:174602 */ a37436 = t71249; /* x282413 */ /* x282412 */ t71250 = a37436; /* x282411 */ if (!((t71250.tag)==STRUCTURE_TYPE27669)) goto l12095; /* x77613 */ /* x77612 */ t71268 = p9085; p9128 = t71268; /* x77611 stalin.sc:5107:174635 */ /* x77592 stalin.sc:5107:174643 */ /* x77591 stalin.sc:5107:174674 */ t71269 = a22393; /* x77590 stalin.sc:5107:174644 */ if (f7574(t71269)==FALSE_TYPE) goto l12101; /* x77594 */ /* x77593 */ return; l12101: /* x77610 */ /* x77609 */ t71270 = p9128; p9130 = t71270; /* x77608 */ /* x77604 stalin.sc:5108:174685 */ /* x77602 stalin.sc:5108:174721 */ t71276 = a22393; /* x77603 stalin.sc:5108:174726 */ /* x77601 stalin.sc:5108:174686 */ t71277 = TRUE_TYPE; f7575(t71276, t71277); /* x77607 stalin.sc:5109:174735 */ /* x77606 stalin.sc:5109:174738 */ /* x77605 stalin.sc:5109:174736 */ t71278 = p9130->p9081->a22389; switch (t71278) {case NATIVE_PROCEDURE_TYPE18417: /* x277035 stalin.sc:11385:397271 */ break; case NATIVE_PROCEDURE_TYPE18951: /* x277057 stalin.sc:11328:394867 */ break; case NATIVE_PROCEDURE_TYPE19117: /* x277101 stalin.sc:3612:122361 */ break; case NATIVE_PROCEDURE_TYPE20681: /* x277013 stalin.sc:11406:397969 */ break; case NATIVE_PROCEDURE_TYPE23734: /* x276991 stalin.sc:11482:401104 */ break; default: /* x277079 stalin.sc:11535:403215 */;} /* x77600 */ t71271 = p9130; p9131 = t71271; /* x77599 stalin.sc:5110:174749 */ /* x77598 stalin.sc:5110:174755 */ /* x77597 stalin.sc:5110:174786 */ t71274 = a22393; /* x77596 stalin.sc:5110:174756 */ a37392 = t71274; /* x282237 */ /* x282236 */ t71275 = a37392; /* x282235 */ if (!((t71275.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ELEMENT[6309] 32309]"); structure_ref_error();} t71273 = t71275.value.structure_type27669->s0; /* x77595 stalin.sc:5110:174750 */ t71272 = p9131->a22391; p9084 = t71272; a22393 = t71273; goto h9084; l12095: /* x77646 */ /* x77616 stalin.sc:5112:174856 */ /* x77615 stalin.sc:5112:174880 */ t71251 = a22393; /* x77614 stalin.sc:5112:174857 */ a37338 = t71251; /* x282021 */ /* x282020 */ t71252 = a37338; /* x282019 */ if (!((t71252.tag)==STRUCTURE_TYPE27908)) goto l12097; /* x77640 */ /* x77639 */ t71256 = p9085; p9132 = t71256; /* x77638 stalin.sc:5113:174890 */ /* x77619 stalin.sc:5113:174898 */ /* x77618 stalin.sc:5113:174929 */ t71257 = a22393; /* x77617 stalin.sc:5113:174899 */ if (f7619(t71257)==FALSE_TYPE) goto l12099; /* x77621 */ /* x77620 */ return; l12099: /* x77637 */ /* x77636 */ t71258 = p9132; p9134 = t71258; /* x77635 */ /* x77631 stalin.sc:5114:174940 */ /* x77629 stalin.sc:5114:174976 */ t71264 = a22393; /* x77630 stalin.sc:5114:174981 */ /* x77628 stalin.sc:5114:174941 */ t71265 = TRUE_TYPE; f7620(t71264, t71265); /* x77634 stalin.sc:5115:174990 */ /* x77633 stalin.sc:5115:174993 */ /* x77632 stalin.sc:5115:174991 */ t71266 = p9134->p9081->a22389; switch (t71266) {case NATIVE_PROCEDURE_TYPE18417: /* x108844 stalin.sc:11385:397271 */ break; case NATIVE_PROCEDURE_TYPE18951: /* x108666 stalin.sc:11328:394867 */ break; case NATIVE_PROCEDURE_TYPE19117: /* x70938 stalin.sc:3612:122361 */ break; case NATIVE_PROCEDURE_TYPE20681: /* x109036 stalin.sc:11406:397969 */ break; case NATIVE_PROCEDURE_TYPE23734: /* x109194 stalin.sc:11482:401104 */ break; default: /* x108584 stalin.sc:11535:403215 */;} /* x77627 */ t71259 = p9134; p9135 = t71259; /* x77626 stalin.sc:5116:175004 */ /* x77625 stalin.sc:5116:175010 */ /* x77624 stalin.sc:5116:175055 */ t71262 = a22393; /* x77623 stalin.sc:5116:175011 */ a37298 = t71262; /* x281861 */ /* x281860 */ t71263 = a37298; /* x281859 */ if (!((t71263.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-DISPLACED-VECTOR-TYPE[6375] 32215]"); structure_ref_error();} t71261 = t71263.value.structure_type27908->s0; /* x77622 stalin.sc:5116:175005 */ t71260 = p9135->a22391; p9084 = t71260; a22393 = t71261; goto h9084; l12097: /* x77645 */ /* x77644 */ t71253 = p9085->p9081; p9136 = t71253; /* x77643 stalin.sc:5117:175073 */ /* x77642 stalin.sc:5117:175076 */ /* x77641 stalin.sc:5117:175074 */ t71254 = p9136->a22389; switch (t71254) {case NATIVE_PROCEDURE_TYPE18417: /* x277037 stalin.sc:11385:397271 */ return; case NATIVE_PROCEDURE_TYPE18951: /* x277059 stalin.sc:11328:394867 */ return; case NATIVE_PROCEDURE_TYPE19117: /* x277103 stalin.sc:3612:122361 */ return; case NATIVE_PROCEDURE_TYPE20681: /* x277015 stalin.sc:11406:397969 */ return; case NATIVE_PROCEDURE_TYPE23734: /* x276993 stalin.sc:11482:401104 */ return; default: /* x277081 stalin.sc:11535:403215 */ return;} l12073: /* x77672 */ /* x77661 stalin.sc:5118:175087 */ /* x77660 stalin.sc:5118:175098 */ t71223 = a22393; /* x77659 stalin.sc:5118:175088 */ a37149 = t71223; /* x281265 */ /* x281264 */ t71224 = a37149; /* x281263 */ if (!((t71224.tag)==STRUCTURE_TYPE27650)) goto l12075; /* x77667 */ /* x77666 */ t71226 = p9084; p9137 = t71226; /* x77665 stalin.sc:5118:175104 */ /* x77663 stalin.sc:5118:175121 */ t71227 = p9137->a22391; /* x77664 stalin.sc:5118:175126 */ t71228 = a22393; /* x77662 stalin.sc:5118:175105 */ t71229.tag = NATIVE_PROCEDURE_TYPE18420; t71229.value.native_procedure_type18420 = t71227; f8173(t71229, t71228); return; l12075: /* x77671 */ /* x77670 */ /* x77669 stalin.sc:5119:175140 */ /* x77668 stalin.sc:5119:175141 */ /* x296561 QobiScheme.sc:166:5314 */ /* x296560 QobiScheme.sc:166:5321 */ t71225 = "This shouldn\'t happen"; /* x296559 QobiScheme.sc:166:5315 */ stalin_panic(t71225);} /* FOR-EACH-POINTED-TO-TYPE[9081] */ void f9081(unsigned a22389, struct w49 a22390) {char *sfp9081; struct p9082 *a22391; /* LOOP */ struct p9082 *t71373; struct w49 t71374; struct p9081 *t71375; struct p9082 *t71376; struct p9081 *e9081; struct p9082 *e9082; struct p9081 *p9082; struct p9082 *p9083; sfp9081 = fp9081; e9081 = (struct p9081 *)alloca(sizeof(struct p9081)); if (e9081==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e9081->a22389 = a22389; /* x77682 stalin.sc:5043:172205 */ /* x77681 stalin.sc:5043:172222 */ t71374 = a22390; /* x77680 */ /* x77679 */ /* x77678 */ /* x77677 */ t71375 = e9081; p9082 = t71375; if ((fp9081+sizeof(struct p9082))>(&((region9081->data)[region_size9081]))) {struct region9081 *region; unsigned region_size = REGION_SIZE9081; if (sizeof(struct p9082)>region_size) region_size = sizeof(struct p9082); region = (struct region9081 *)GC_malloc_atomic_uncollectable(sizeof(struct region9081)+(region_size-1)); if (region==NULL) {backtrace_internal("FOR-EACH-POINTED-TO-TYPE[9081]"); out_of_memory_error();} region->region = region9081; region->region_size = region_size9081; region_size9081 = region_size; region9081 = region; fp9081 = &((region->data)[0]); ALIGN(fp9081);} e9082 = (struct p9082 *)fp9081; fp9081 += sizeof(struct p9082)+((4-(sizeof(struct p9082)%4))&3); e9082->p9081 = p9082; e9082->a22391 = a22391; /* x77676 */ /* x77675 */ /* x77674 */ e9082->a22391 = e9082; /* x77327 */ t71376 = e9082; p9083 = t71376; /* x77326 stalin.sc:5043:172210 */ t71373 = p9083->a22391; f9084(t71373, t71374); while ((sfp9081<(&((region9081->data)[0])))||(sfp9081>(&((region9081->data)[region_size9081])))) {struct region9081 *region; region = region9081; region_size9081 = region9081->region_size; region9081 = region9081->region; GC_free(region);} fp9081 = sfp9081; return;} /* LOOP?[9033] */ struct w16638 f9033(struct p9030 *p9033, struct w49 a22367) {struct w16638 r9033; struct w49 a20162; /* S */ struct w49 a21176; /* U */ struct w49 a21388; /* U */ struct w49 a21428; /* U */ struct w49 a21464; /* U */ unsigned a22370; /* v */ unsigned a22373; /* v */ unsigned a22380; /* v */ unsigned a22384; /* v */ unsigned a22386; /* v */ unsigned a22388; /* v */ struct w49 a37148; /* OBJ */ struct w49 a37282; /* S */ struct w49 a37328; /* OBJ */ struct w49 a37359; /* S */ struct w49 a37390; /* S */ struct w49 a37425; /* OBJ */ struct w49 a37460; /* S */ struct w49 a37497; /* S */ struct w49 a37544; /* OBJ */ struct w49 a37597; /* S */ struct w49 a37637; /* S */ struct w49 a37684; /* OBJ */ struct w49 a37760; /* OBJ */ struct w49 a37872; /* OBJ */ struct w49 a37952; /* OBJ */ struct w49 a38073; /* OBJ */ struct w49 a38209; /* OBJ */ struct w49 a38239; /* S */ struct w49 a38250; /* S */ struct w49 a38272; /* OBJ */ struct w49 a38315; /* OBJ */ struct w49 t71377; struct w49 t71378; struct w49 t71379; char *t71380; struct p9030 *t71381; struct p9030 *t71382; struct w49 t71383; struct w211257 t71384; struct p9030 *t71385; struct w49 t71386; struct w49 t71387; struct w49 t71388; struct w49 t71389; struct w49 t71390; struct w49 t71391; struct w49 t71392; struct w49 t71393; struct w49 t71394; struct w49 t71395; struct w49 t71396; struct w49 t71397; struct w49 t71398; struct w49 t71399; struct w49 t71400; struct w49 t71401; struct w49 t71402; struct w49 t71403; struct w49 t71404; struct w49 t71405; struct w49 t71406; struct w49 t71407; struct p9030 *t71408; struct p9140 *t71409; struct w49 t71410; unsigned t71411; unsigned t71412; struct p9030 *t71413; struct w49 t71414; struct p9030 *t71415; struct p9030 *t71416; struct p9030 *t71417; unsigned t71418; struct w49 t71419; int t71420; int t71421; int t71422; struct structure_type24753 *t71423; struct w49 t71424; struct w49 t71425; struct w49 t71426; struct p9030 *t71427; struct w49 t71428; struct w49 t71429; struct w49 t71430; struct p9140 *t71431; struct w49 t71432; struct w49 t71433; unsigned t71434; struct p9030 *t71435; struct w49 t71436; struct p9030 *t71437; struct p9030 *t71438; struct p9030 *t71439; unsigned t71440; struct w49 t71441; int t71442; int t71443; int t71444; struct structure_type24753 *t71445; struct w49 t71446; struct w49 t71447; struct w49 t71448; struct p9030 *t71449; struct w49 t71450; struct w49 t71451; struct w49 t71452; struct p9140 *t71453; struct w49 t71454; struct w49 t71455; unsigned t71456; struct p9030 *t71457; struct w49 t71458; struct p9030 *t71459; struct p9030 *t71460; struct p9030 *t71461; unsigned t71462; struct w49 t71463; int t71464; int t71465; int t71466; struct structure_type24753 *t71467; struct w49 t71468; struct w49 t71469; struct w49 t71470; struct p9030 *t71471; struct w49 t71472; struct w49 t71473; struct w49 t71474; struct p9140 *t71475; struct w49 t71476; struct w49 t71477; unsigned t71478; struct p9030 *t71479; struct w49 t71480; struct p9030 *t71481; struct p9030 *t71482; struct p9030 *t71483; unsigned t71484; struct p9030 *t71485; struct w12224 t71486; struct w11873 t71487; struct w228345 t71488; struct w49 t71489; struct structure_type24753 *t71490; struct w49 t71491; struct w49 t71492; struct w49 t71493; struct w49 t71494; struct p9140 *t71495; struct w49 t71496; struct w49 t71497; unsigned t71498; struct p9030 *t71499; struct w49 t71500; struct p9030 *t71501; struct p9030 *t71502; struct p9140 *t71503; struct w49 t71504; struct w49 t71505; unsigned t71506; struct p9030 *t71507; struct w49 t71508; struct p9030 *t71509; struct p9030 *t71510; struct p9140 *t71511; struct w49 t71512; struct w49 t71513; unsigned t71514; struct p9030 *t71515; struct w49 t71516; struct p9030 *t71517; struct p9030 *t71518; struct p9140 *t71519; struct w49 t71520; struct w49 t71521; unsigned t71522; struct p9030 *t71523; struct w49 t71524; struct p9030 *t71525; struct p9030 *t71526; struct p9030 *t71527; unsigned t71528; struct p9030 *t71529; struct w11873 t71530; struct w228345 t71531; struct w49 t71532; struct structure_type24753 *t71533; struct w49 t71534; struct p9140 *t71535; struct w49 t71536; struct w49 t71537; unsigned t71538; struct p9030 *t71539; struct w49 t71540; struct p9030 *t71541; struct p9030 *t71542; struct p9140 *t71543; struct w49 t71544; struct w49 t71545; unsigned t71546; struct p9030 *t71547; struct w49 t71548; struct w49 t71549; int t71550; int t71551; int t71552; struct structure_type24753 *t71553; struct w49 t71554; struct w49 t71555; struct w49 t71556; struct p9030 *t71557; struct p9030 *t71558; struct p9030 *t71559; unsigned t71560; struct p9030 *t71561; struct w49 t71562; struct w49 t71563; struct w49 t71564; struct p9140 *t71565; struct w49 t71566; struct w49 t71567; unsigned t71568; struct p9030 *t71569; struct w49 t71570; struct p9030 *t71571; struct p9030 *t71572; struct p9140 *t71573; struct w49 t71574; struct w49 t71575; unsigned t71576; struct p9030 *p9034; struct p9030 *p9035; struct p9030 *p9036; struct p9030 *p9037; struct p9030 *p9038; struct p9030 *p9039; struct p9030 *p9040; struct p9030 *p9041; struct p9030 *p9042; struct p9030 *p9043; struct p9030 *p9044; struct p9030 *p9045; struct p9030 *p9046; struct p9030 *p9047; struct p9030 *p9048; struct p9030 *p9051; struct p9030 *p9052; struct p9030 *p9053; struct p9030 *p9054; struct p9030 *p9055; struct p9030 *p9056; struct p9030 *p9057; struct p9030 *p9058; struct p9030 *p9059; struct p9030 *p9060; struct p9030 *p9061; struct p9030 *p9062; struct p9030 *p9063; struct p9030 *p9065; struct p9030 *p9066; struct p9030 *p9067; struct p9030 *p9068; struct p9030 *p9069; struct p9030 *p9070; struct p9030 *p9071; struct p9030 *p9072; struct p9030 *p9073; struct p9030 *p9074; struct p9030 *p9075; struct p9030 *p9076; struct p9030 *p9077; struct p9030 *p9078; h9033: /* x77314 stalin.sc:4958:168676 */ /* x76907 stalin.sc:4959:168686 */ /* x76906 stalin.sc:4959:168693 */ t71377 = a22367; /* x76905 stalin.sc:4959:168687 */ if (f7755(t71377)==FALSE_TYPE) goto l12121; /* x77299 */ /* x77298 */ t71385 = p9033; p9034 = t71385; /* x77297 stalin.sc:4960:168703 */ /* x76910 stalin.sc:4962:168766 */ /* x76909 stalin.sc:4962:168789 */ t71386 = a22367; /* x76908 stalin.sc:4962:168767 */ a38315 = t71386; /* x285929 */ /* x285928 */ t71387 = a38315; /* x285927 */ if (!((t71387.tag)==STRUCTURE_TYPE27776)) goto l12125; /* x76930 */ /* x76929 */ t71569 = p9034; p9035 = t71569; /* x76928 stalin.sc:4963:168801 */ /* x76928 stalin.sc:4963:168801 */ /* x76915 stalin.sc:4963:168806 */ /* x76914 stalin.sc:4963:168811 */ /* x76913 stalin.sc:4963:168841 */ t71570 = a22367; /* x76912 stalin.sc:4963:168812 */ if (!(f7234(t71570)==FALSE_TYPE)) goto l12195; /* x76926 */ /* x76925 */ t71571 = p9035; p9036 = t71571; /* x76924 */ /* x76923 stalin.sc:4964:168859 */ /* x76921 stalin.sc:4964:168894 */ t71575 = a22367; /* x76922 stalin.sc:4964:168899 */ /* x76920 stalin.sc:4964:168860 */ t71576 = TRUE_TYPE; f7235(t71575, t71576); /* x76919 */ t71572 = p9036; p9037 = t71572; /* x76918 stalin.sc:4964:168903 */ /* x76917 stalin.sc:4964:168907 */ t71574 = a22367; /* x76916 stalin.sc:4964:168904 */ t71573 = p9037->a22363; if (((unsigned)t71573)==NATIVE_PROCEDURE_TYPE7067) {if (f12110(t71574)==FALSE_TYPE) goto l12195;} else if (f9142(t71573, t71574)==FALSE_TYPE) goto l12195; r9033.tag = TRUE_TYPE; return r9033; l12195: r9033.tag = FALSE_TYPE; return r9033; l12125: /* x77296 */ /* x76933 stalin.sc:4966:168980 */ /* x76932 stalin.sc:4966:169003 */ t71388 = a22367; /* x76931 stalin.sc:4966:168981 */ a38272 = t71388; /* x285757 */ /* x285756 */ t71389 = a38272; /* x285755 */ if (!((t71389.tag)==STRUCTURE_TYPE27779)) goto l12127; /* x76968 */ /* x76967 */ t71547 = p9034; p9038 = t71547; /* x76966 stalin.sc:4967:169015 */ /* x76938 stalin.sc:4967:169020 */ /* x76937 stalin.sc:4967:169025 */ /* x76936 stalin.sc:4967:169055 */ t71548 = a22367; /* x76935 stalin.sc:4967:169026 */ if (!(f7259(t71548)==FALSE_TYPE)) goto l12189; /* x76964 */ /* x76941 stalin.sc:4968:169066 */ /* x76940 stalin.sc:4968:169113 */ t71549 = a22367; /* x76939 stalin.sc:4968:169067 */ a21176 = t71549; while (region7254!=((struct region7254 *)(&initial_region7254))) {struct region7254 *region; region = region7254; region7254 = region7254->region; GC_free(region);} region_size7254 = REGION_SIZE7254; fp7254 = &((region7254->data)[0]); ALIGN(fp7254); /* x61117 stalin.sc:1368:45466 */ /* x61116 stalin.sc:1368:45471 */ /* x61115 stalin.sc:1368:45478 */ /* x61114 stalin.sc:1368:45521 */ t71552 = 4; /* x61113 stalin.sc:1368:45487 */ /* x61112 stalin.sc:1368:45518 */ t71555 = a21176; /* x61111 stalin.sc:1368:45488 */ a38239 = t71555; /* x285625 */ /* x285624 */ t71556 = a38239; /* x285623 */ if (!((t71556.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-BOOLEANS[5885] 33156]"); structure_ref_error();} t71551 = t71556.value.structure_type27779->s5; /* x61110 stalin.sc:1368:45479 */ if ((fp7254+sizeof(struct structure_type24753))>(&((region7254->data)[region_size7254]))) {struct region7254 *region; unsigned region_size = REGION_SIZE7254; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7254 *)GC_malloc_uncollectable(sizeof(struct region7254)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1368, 45478); out_of_memory_error();} region->region = region7254; region_size7254 = region_size; region7254 = region; fp7254 = &((region->data)[0]); ALIGN(fp7254);} t71554.tag = STRUCTURE_TYPE24753; t71554.value.structure_type24753 = (struct structure_type24753 *)fp7254; fp7254 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t71554.value.structure_type24753->s0.tag = FIXNUM_TYPE; t71554.value.structure_type24753->s0.value.fixnum_type = t71552; t71554.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7254+sizeof(struct structure_type24753))>(&((region7254->data)[region_size7254]))) {struct region7254 *region; unsigned region_size = REGION_SIZE7254; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7254 *)GC_malloc_uncollectable(sizeof(struct region7254)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1368, 45478); out_of_memory_error();} region->region = region7254; region_size7254 = region_size; region7254 = region; fp7254 = &((region->data)[0]); ALIGN(fp7254);} t71553 = (struct structure_type24753 *)fp7254; fp7254 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t71553->s0.tag = FIXNUM_TYPE; t71553->s0.value.fixnum_type = t71551; t71553->s1 = t71554; t71550 = f27305(t71553); /* x270650 stalin.sc:1368:45472 */ if (t71550==0) goto l12191; /* x76962 */ /* x76961 */ t71557 = p9038; p9039 = t71557; /* x76960 */ /* x76959 stalin.sc:4970:169135 */ /* x76957 stalin.sc:4970:169170 */ t71567 = a22367; /* x76958 stalin.sc:4970:169175 */ /* x76956 stalin.sc:4970:169136 */ t71568 = TRUE_TYPE; f7260(t71567, t71568); /* x76955 */ t71558 = p9039; p9040 = t71558; /* x76954 stalin.sc:4971:169184 */ /* x76953 stalin.sc:4971:169188 */ /* x76952 stalin.sc:4971:169192 */ t71566 = a22367; /* x76951 stalin.sc:4971:169189 */ t71565 = p9040->a22363; t71560 = (((unsigned)t71565)==NATIVE_PROCEDURE_TYPE7067)?f12110(t71566):f9142(t71565, t71566); /* x76950 */ t71559 = p9040; p9041 = t71559; a22370 = t71560; /* x76949 */ /* x76942 */ if (a22370==FALSE_TYPE) goto l12193; /* x76943 */ r9033.tag = a22370; return r9033; l12193: /* x76948 */ /* x76947 stalin.sc:4972:169207 */ /* x76946 stalin.sc:4972:169251 */ t71563 = a22367; /* x76945 stalin.sc:4972:169208 */ a38250 = t71563; /* x285669 */ /* x285668 */ t71564 = a38250; /* x285667 */ if (!((t71564.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-DISPLACED-STRING-TYPE[5845] 33167]"); structure_ref_error();} t71562 = t71564.value.structure_type27779->s0; /* x76944 stalin.sc:4972:169201 */ t71561 = p9041; p9033 = t71561; a22367 = t71562; goto h9033; l12191: /* x76963 */ r9033.tag = FALSE_TYPE; return r9033; l12189: /* x76965 */ r9033.tag = FALSE_TYPE; return r9033; l12127: /* x77295 */ /* x76971 stalin.sc:4974:169323 */ /* x76970 stalin.sc:4974:169350 */ t71390 = a22367; /* x76969 stalin.sc:4974:169324 */ a38209 = t71390; /* x285505 */ /* x285504 */ t71391 = a38209; /* x285503 */ if (!((t71391.tag)==STRUCTURE_TYPE27753)) goto l12129; /* x76991 */ /* x76990 */ t71539 = p9034; p9042 = t71539; /* x76989 stalin.sc:4975:169362 */ /* x76989 stalin.sc:4975:169362 */ /* x76976 stalin.sc:4975:169367 */ /* x76975 stalin.sc:4975:169372 */ /* x76974 stalin.sc:4975:169406 */ t71540 = a22367; /* x76973 stalin.sc:4975:169373 */ if (!(f7279(t71540)==FALSE_TYPE)) goto l12185; /* x76987 */ /* x76986 */ t71541 = p9042; p9043 = t71541; /* x76985 */ /* x76984 stalin.sc:4976:169424 */ /* x76982 stalin.sc:4976:169463 */ t71545 = a22367; /* x76983 stalin.sc:4976:169468 */ /* x76981 stalin.sc:4976:169425 */ t71546 = TRUE_TYPE; f7280(t71545, t71546); /* x76980 */ t71542 = p9043; p9044 = t71542; /* x76979 stalin.sc:4977:169476 */ /* x76978 stalin.sc:4977:169480 */ t71544 = a22367; /* x76977 stalin.sc:4977:169477 */ t71543 = p9044->a22363; if (((unsigned)t71543)==NATIVE_PROCEDURE_TYPE7067) {if (f12110(t71544)==FALSE_TYPE) goto l12185;} else if (f9142(t71543, t71544)==FALSE_TYPE) goto l12185; r9033.tag = TRUE_TYPE; return r9033; l12185: r9033.tag = FALSE_TYPE; return r9033; l12129: /* x77294 */ /* x76994 stalin.sc:4981:169682 */ /* x76993 stalin.sc:4981:169706 */ t71392 = a22367; /* x76992 stalin.sc:4981:169683 */ a38073 = t71392; /* x284961 */ /* x284960 */ t71393 = a38073; /* x284959 */ if (!((t71393.tag)==STRUCTURE_TYPE27756)) goto l12131; /* x77055 */ /* x77054 */ t71523 = p9034; p9045 = t71523; /* x77053 stalin.sc:4982:169718 */ /* x76999 stalin.sc:4982:169723 */ /* x76998 stalin.sc:4982:169728 */ /* x76997 stalin.sc:4982:169759 */ t71524 = a22367; /* x76996 stalin.sc:4982:169729 */ if (!(f7314(t71524)==FALSE_TYPE)) goto l12181; /* x77051 */ /* x77050 */ t71525 = p9045; p9046 = t71525; /* x77049 */ /* x77048 stalin.sc:4983:169777 */ /* x77046 stalin.sc:4983:169813 */ t71537 = a22367; /* x77047 stalin.sc:4983:169818 */ /* x77045 stalin.sc:4983:169778 */ t71538 = TRUE_TYPE; f7315(t71537, t71538); /* x77044 */ t71526 = p9046; p9047 = t71526; /* x77043 stalin.sc:4984:169826 */ /* x77042 stalin.sc:4984:169830 */ /* x77041 stalin.sc:4984:169834 */ t71536 = a22367; /* x77040 stalin.sc:4984:169831 */ t71535 = p9047->a22363; t71528 = (((unsigned)t71535)==NATIVE_PROCEDURE_TYPE7067)?f12110(t71536):f9142(t71535, t71536); /* x77039 */ t71527 = p9047; p9048 = t71527; a22373 = t71528; /* x77038 */ /* x77000 */ if (a22373==FALSE_TYPE) goto l12183; /* x77001 */ r9033.tag = a22373; return r9033; l12183: /* x77037 */ /* x77036 stalin.sc:4993:170106 */ /* x77035 stalin.sc:4993:170121 */ t71534 = a22367; /* x77034 stalin.sc:4993:170107 */ t71530 = f8984(t71534); /* x77033 stalin.sc:4985:169854 */ t71529 = p9048; /* x77002 stalin.sc:4985:169849 */ t71531.tag = NATIVE_PROCEDURE_TYPE20410; t71531.value.native_procedure_type20410 = t71529; t71532 = *((struct w49 *)(&t71530)); t71533 = (struct structure_type24753 *)NULL_TYPE; return f1042(t71531, t71532, t71533); l12181: /* x77052 */ r9033.tag = FALSE_TYPE; return r9033; l12131: /* x77293 */ /* x77058 stalin.sc:4995:170191 */ /* x77057 stalin.sc:4995:170216 */ t71394 = a22367; /* x77056 stalin.sc:4995:170192 */ a37952 = t71394; /* x284477 */ /* x284476 */ t71395 = a37952; /* x284475 */ if (!((t71395.tag)==STRUCTURE_TYPE27750)) goto l12133; /* x77078 */ /* x77077 */ t71515 = p9034; p9051 = t71515; /* x77076 stalin.sc:4996:170228 */ /* x77076 stalin.sc:4996:170228 */ /* x77063 stalin.sc:4996:170233 */ /* x77062 stalin.sc:4996:170238 */ /* x77061 stalin.sc:4996:170270 */ t71516 = a22367; /* x77060 stalin.sc:4996:170239 */ if (!(f7354(t71516)==FALSE_TYPE)) goto l12177; /* x77074 */ /* x77073 */ t71517 = p9051; p9052 = t71517; /* x77072 */ /* x77071 stalin.sc:4997:170288 */ /* x77069 stalin.sc:4997:170325 */ t71521 = a22367; /* x77070 stalin.sc:4997:170330 */ /* x77068 stalin.sc:4997:170289 */ t71522 = TRUE_TYPE; f7355(t71521, t71522); /* x77067 */ t71518 = p9052; p9053 = t71518; /* x77066 stalin.sc:4997:170334 */ /* x77065 stalin.sc:4997:170338 */ t71520 = a22367; /* x77064 stalin.sc:4997:170335 */ t71519 = p9053->a22363; if (((unsigned)t71519)==NATIVE_PROCEDURE_TYPE7067) {if (f12110(t71520)==FALSE_TYPE) goto l12177;} else if (f9142(t71519, t71520)==FALSE_TYPE) goto l12177; r9033.tag = TRUE_TYPE; return r9033; l12177: r9033.tag = FALSE_TYPE; return r9033; l12133: /* x77292 */ /* x77081 stalin.sc:4999:170401 */ /* x77080 stalin.sc:4999:170421 */ t71396 = a22367; /* x77079 stalin.sc:4999:170402 */ a37872 = t71396; /* x284157 */ /* x284156 */ t71397 = a37872; /* x284155 */ if (!((t71397.tag)==STRUCTURE_TYPE27858)) goto l12135; /* x77101 */ /* x77100 */ t71507 = p9034; p9054 = t71507; /* x77099 stalin.sc:5000:170433 */ /* x77099 stalin.sc:5000:170433 */ /* x77086 stalin.sc:5000:170438 */ /* x77085 stalin.sc:5000:170443 */ /* x77084 stalin.sc:5000:170470 */ t71508 = a22367; /* x77083 stalin.sc:5000:170444 */ if (!(f7379(t71508)==FALSE_TYPE)) goto l12173; /* x77097 */ /* x77096 */ t71509 = p9054; p9055 = t71509; /* x77095 */ /* x77094 stalin.sc:5001:170488 */ /* x77092 stalin.sc:5001:170520 */ t71513 = a22367; /* x77093 stalin.sc:5001:170525 */ /* x77091 stalin.sc:5001:170489 */ t71514 = TRUE_TYPE; f7380(t71513, t71514); /* x77090 */ t71510 = p9055; p9056 = t71510; /* x77089 stalin.sc:5001:170529 */ /* x77088 stalin.sc:5001:170533 */ t71512 = a22367; /* x77087 stalin.sc:5001:170530 */ t71511 = p9056->a22363; if (((unsigned)t71511)==NATIVE_PROCEDURE_TYPE7067) {if (f12110(t71512)==FALSE_TYPE) goto l12173;} else if (f9142(t71511, t71512)==FALSE_TYPE) goto l12173; r9033.tag = TRUE_TYPE; return r9033; l12173: r9033.tag = FALSE_TYPE; return r9033; l12135: /* x77291 */ /* x77104 stalin.sc:5003:170590 */ /* x77103 stalin.sc:5003:170604 */ t71398 = a22367; /* x77102 stalin.sc:5003:170591 */ a37760 = t71398; /* x283709 */ /* x283708 */ t71399 = a37760; /* x283707 */ if (!((t71399.tag)==STRUCTURE_TYPE27673)) goto l12137; /* x77124 */ /* x77123 */ t71499 = p9034; p9057 = t71499; /* x77122 stalin.sc:5004:170616 */ /* x77122 stalin.sc:5004:170616 */ /* x77109 stalin.sc:5004:170621 */ /* x77108 stalin.sc:5004:170626 */ /* x77107 stalin.sc:5004:170647 */ t71500 = a22367; /* x77106 stalin.sc:5004:170627 */ if (!(f7419(t71500)==FALSE_TYPE)) goto l12169; /* x77120 */ /* x77119 */ t71501 = p9057; p9058 = t71501; /* x77118 */ /* x77117 stalin.sc:5005:170665 */ /* x77115 stalin.sc:5005:170691 */ t71505 = a22367; /* x77116 stalin.sc:5005:170696 */ /* x77114 stalin.sc:5005:170666 */ t71506 = TRUE_TYPE; f7420(t71505, t71506); /* x77113 */ t71502 = p9058; p9059 = t71502; /* x77112 stalin.sc:5005:170700 */ /* x77111 stalin.sc:5005:170704 */ t71504 = a22367; /* x77110 stalin.sc:5005:170701 */ t71503 = p9059->a22363; if (((unsigned)t71503)==NATIVE_PROCEDURE_TYPE7067) {if (f12110(t71504)==FALSE_TYPE) goto l12169;} else if (f9142(t71503, t71504)==FALSE_TYPE) goto l12169; r9033.tag = TRUE_TYPE; return r9033; l12169: r9033.tag = FALSE_TYPE; return r9033; l12137: /* x77290 */ /* x77127 stalin.sc:5007:170760 */ /* x77126 stalin.sc:5007:170777 */ t71400 = a22367; /* x77125 stalin.sc:5007:170761 */ a37684 = t71400; /* x283405 */ /* x283404 */ t71401 = a37684; /* x283403 */ if (!((t71401.tag)==STRUCTURE_TYPE27769)) goto l12139; /* x77167 */ /* x77166 */ t71479 = p9034; p9060 = t71479; /* x77165 stalin.sc:5008:170789 */ /* x77132 stalin.sc:5008:170794 */ /* x77131 stalin.sc:5008:170799 */ /* x77130 stalin.sc:5008:170823 */ t71480 = a22367; /* x77129 stalin.sc:5008:170800 */ if (!(f7464(t71480)==FALSE_TYPE)) goto l12165; /* x77163 */ /* x77162 */ t71481 = p9060; p9061 = t71481; /* x77161 */ /* x77160 stalin.sc:5009:170841 */ /* x77158 stalin.sc:5009:170870 */ t71497 = a22367; /* x77159 stalin.sc:5009:170875 */ /* x77157 stalin.sc:5009:170842 */ t71498 = TRUE_TYPE; f7465(t71497, t71498); /* x77156 */ t71482 = p9061; p9062 = t71482; /* x77155 stalin.sc:5010:170883 */ /* x77154 stalin.sc:5010:170887 */ /* x77153 stalin.sc:5010:170891 */ t71496 = a22367; /* x77152 stalin.sc:5010:170888 */ t71495 = p9062->a22363; t71484 = (((unsigned)t71495)==NATIVE_PROCEDURE_TYPE7067)?f12110(t71496):f9142(t71495, t71496); /* x77151 */ t71483 = p9062; p9063 = t71483; a22380 = t71484; /* x77150 */ /* x77133 */ if (a22380==FALSE_TYPE) goto l12167; /* x77134 */ r9033.tag = a22380; return r9033; l12167: /* x77149 */ /* x77148 stalin.sc:5013:171006 */ /* x77147 stalin.sc:5013:171028 */ t71493 = a22367; /* x77146 stalin.sc:5013:171007 */ a37637 = t71493; /* x283217 */ /* x283216 */ t71494 = a37637; /* x283215 */ if (!((t71494.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32554]"); structure_ref_error();} t71487 = t71494.value.structure_type27769->s1; /* x77145 stalin.sc:5012:170953 */ /* x77144 stalin.sc:5012:170993 */ t71491 = a22367; /* x77143 stalin.sc:5012:170954 */ a37597 = t71491; /* x283057 */ /* x283056 */ t71492 = a37597; /* x283055 */ if (!((t71492.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-STRUCTURE-REF-ACCESSED?[6225] 32514]"); structure_ref_error();} t71486 = t71492.value.structure_type27769->s7; /* x77142 stalin.sc:5011:170911 */ t71485 = p9063; /* x77135 stalin.sc:5011:170906 */ t71488.tag = NATIVE_PROCEDURE_TYPE22645; t71488.value.native_procedure_type22645 = t71485; t71489 = *((struct w49 *)(&t71486)); t71490 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t71490==NULL) {backtrace_internal("[inside LOOP? 9063]"); out_of_memory_error();} t71490->s0 = *((struct w49 *)(&t71487)); t71490->s1.tag = NULL_TYPE; return f1042(t71488, t71489, t71490); l12165: /* x77164 */ r9033.tag = FALSE_TYPE; return r9033; l12139: /* x77289 */ /* x77170 stalin.sc:5015:171092 */ /* x77169 stalin.sc:5015:171113 */ t71402 = a22367; /* x77168 stalin.sc:5015:171093 */ a37544 = t71402; /* x282845 */ /* x282844 */ t71403 = a37544; /* x282843 */ if (!((t71403.tag)==STRUCTURE_TYPE27761)) goto l12141; /* x77205 */ /* x77204 */ t71457 = p9034; p9065 = t71457; /* x77203 stalin.sc:5016:171125 */ /* x77175 stalin.sc:5016:171130 */ /* x77174 stalin.sc:5016:171135 */ /* x77173 stalin.sc:5016:171163 */ t71458 = a22367; /* x77172 stalin.sc:5016:171136 */ if (!(f7524(t71458)==FALSE_TYPE)) goto l12159; /* x77201 */ /* x77200 */ t71459 = p9065; p9066 = t71459; /* x77199 */ /* x77198 stalin.sc:5017:171181 */ /* x77196 stalin.sc:5017:171214 */ t71477 = a22367; /* x77197 stalin.sc:5017:171219 */ /* x77195 stalin.sc:5017:171182 */ t71478 = TRUE_TYPE; f7525(t71477, t71478); /* x77194 */ t71460 = p9066; p9067 = t71460; /* x77193 stalin.sc:5018:171227 */ /* x77192 stalin.sc:5018:171231 */ /* x77191 stalin.sc:5018:171235 */ t71476 = a22367; /* x77190 stalin.sc:5018:171232 */ t71475 = p9067->a22363; t71462 = (((unsigned)t71475)==NATIVE_PROCEDURE_TYPE7067)?f12110(t71476):f9142(t71475, t71476); /* x77189 */ t71461 = p9067; p9068 = t71461; a22384 = t71462; /* x77188 */ /* x77176 */ if (a22384==FALSE_TYPE) goto l12161; /* x77177 */ r9033.tag = a22384; return r9033; l12161: /* x77187 */ /* x77180 stalin.sc:5019:171254 */ /* x77179 stalin.sc:5019:171295 */ t71463 = a22367; /* x77178 stalin.sc:5019:171255 */ a21388 = t71463; while (region7519!=((struct region7519 *)(&initial_region7519))) {struct region7519 *region; region = region7519; region7519 = region7519->region; GC_free(region);} region_size7519 = REGION_SIZE7519; fp7519 = &((region7519->data)[0]); ALIGN(fp7519); /* x63502 stalin.sc:1951:64171 */ /* x63501 stalin.sc:1951:64176 */ /* x63500 stalin.sc:1951:64183 */ /* x63499 stalin.sc:1951:64224 */ t71466 = 8; /* x63498 stalin.sc:1951:64192 */ /* x63497 stalin.sc:1951:64221 */ t71469 = a21388; /* x63496 stalin.sc:1951:64193 */ a37460 = t71469; /* x282509 */ /* x282508 */ t71470 = a37460; /* x282507 */ if (!((t71470.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-BOOLEANS[6299] 32377]"); structure_ref_error();} t71465 = t71470.value.structure_type27761->s7; /* x63495 stalin.sc:1951:64184 */ if ((fp7519+sizeof(struct structure_type24753))>(&((region7519->data)[region_size7519]))) {struct region7519 *region; unsigned region_size = REGION_SIZE7519; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7519 *)GC_malloc_uncollectable(sizeof(struct region7519)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1951, 64183); out_of_memory_error();} region->region = region7519; region_size7519 = region_size; region7519 = region; fp7519 = &((region->data)[0]); ALIGN(fp7519);} t71468.tag = STRUCTURE_TYPE24753; t71468.value.structure_type24753 = (struct structure_type24753 *)fp7519; fp7519 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t71468.value.structure_type24753->s0.tag = FIXNUM_TYPE; t71468.value.structure_type24753->s0.value.fixnum_type = t71466; t71468.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7519+sizeof(struct structure_type24753))>(&((region7519->data)[region_size7519]))) {struct region7519 *region; unsigned region_size = REGION_SIZE7519; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7519 *)GC_malloc_uncollectable(sizeof(struct region7519)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1951, 64183); out_of_memory_error();} region->region = region7519; region_size7519 = region_size; region7519 = region; fp7519 = &((region->data)[0]); ALIGN(fp7519);} t71467 = (struct structure_type24753 *)fp7519; fp7519 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t71467->s0.tag = FIXNUM_TYPE; t71467->s0.value.fixnum_type = t71465; t71467->s1 = t71468; t71464 = f27305(t71467); /* x270526 stalin.sc:1951:64177 */ if (t71464==0) goto l12163; /* x77185 */ /* x77184 stalin.sc:5020:171314 */ /* x77183 stalin.sc:5020:171342 */ t71473 = a22367; /* x77182 stalin.sc:5020:171315 */ a37497 = t71473; /* x282657 */ /* x282656 */ t71474 = a37497; /* x282655 */ if (!((t71474.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32414]"); structure_ref_error();} t71472 = t71474.value.structure_type27761->s0; /* x77181 stalin.sc:5020:171308 */ t71471 = p9068; p9033 = t71471; a22367 = t71472; goto h9033; l12163: /* x77186 */ r9033.tag = FALSE_TYPE; return r9033; l12159: /* x77202 */ r9033.tag = FALSE_TYPE; return r9033; l12141: /* x77288 */ /* x77208 stalin.sc:5022:171410 */ /* x77207 stalin.sc:5022:171434 */ t71404 = a22367; /* x77206 stalin.sc:5022:171411 */ a37425 = t71404; /* x282369 */ /* x282368 */ t71405 = a37425; /* x282367 */ if (!((t71405.tag)==STRUCTURE_TYPE27669)) goto l12143; /* x77243 */ /* x77242 */ t71435 = p9034; p9069 = t71435; /* x77241 stalin.sc:5023:171446 */ /* x77213 stalin.sc:5023:171451 */ /* x77212 stalin.sc:5023:171456 */ /* x77211 stalin.sc:5023:171487 */ t71436 = a22367; /* x77210 stalin.sc:5023:171457 */ if (!(f7574(t71436)==FALSE_TYPE)) goto l12153; /* x77239 */ /* x77238 */ t71437 = p9069; p9070 = t71437; /* x77237 */ /* x77236 stalin.sc:5024:171505 */ /* x77234 stalin.sc:5024:171541 */ t71455 = a22367; /* x77235 stalin.sc:5024:171546 */ /* x77233 stalin.sc:5024:171506 */ t71456 = TRUE_TYPE; f7575(t71455, t71456); /* x77232 */ t71438 = p9070; p9071 = t71438; /* x77231 stalin.sc:5025:171554 */ /* x77230 stalin.sc:5025:171558 */ /* x77229 stalin.sc:5025:171562 */ t71454 = a22367; /* x77228 stalin.sc:5025:171559 */ t71453 = p9071->a22363; t71440 = (((unsigned)t71453)==NATIVE_PROCEDURE_TYPE7067)?f12110(t71454):f9142(t71453, t71454); /* x77227 */ t71439 = p9071; p9072 = t71439; a22386 = t71440; /* x77226 */ /* x77214 */ if (a22386==FALSE_TYPE) goto l12155; /* x77215 */ r9033.tag = a22386; return r9033; l12155: /* x77225 */ /* x77218 stalin.sc:5026:171581 */ /* x77217 stalin.sc:5026:171625 */ t71441 = a22367; /* x77216 stalin.sc:5026:171582 */ a21428 = t71441; while (region7569!=((struct region7569 *)(&initial_region7569))) {struct region7569 *region; region = region7569; region7569 = region7569->region; GC_free(region);} region_size7569 = REGION_SIZE7569; fp7569 = &((region7569->data)[0]); ALIGN(fp7569); /* x63952 stalin.sc:2061:67861 */ /* x63951 stalin.sc:2061:67866 */ /* x63950 stalin.sc:2061:67873 */ /* x63949 stalin.sc:2061:67917 */ t71444 = 8; /* x63948 stalin.sc:2061:67882 */ /* x63947 stalin.sc:2061:67914 */ t71447 = a21428; /* x63946 stalin.sc:2061:67883 */ a37359 = t71447; /* x282105 */ /* x282104 */ t71448 = a37359; /* x282103 */ if (!((t71448.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-BOOLEANS[6365] 32276]"); structure_ref_error();} t71443 = t71448.value.structure_type27669->s7; /* x63945 stalin.sc:2061:67874 */ if ((fp7569+sizeof(struct structure_type24753))>(&((region7569->data)[region_size7569]))) {struct region7569 *region; unsigned region_size = REGION_SIZE7569; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7569 *)GC_malloc_uncollectable(sizeof(struct region7569)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 2061, 67873); out_of_memory_error();} region->region = region7569; region_size7569 = region_size; region7569 = region; fp7569 = &((region->data)[0]); ALIGN(fp7569);} t71446.tag = STRUCTURE_TYPE24753; t71446.value.structure_type24753 = (struct structure_type24753 *)fp7569; fp7569 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t71446.value.structure_type24753->s0.tag = FIXNUM_TYPE; t71446.value.structure_type24753->s0.value.fixnum_type = t71444; t71446.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7569+sizeof(struct structure_type24753))>(&((region7569->data)[region_size7569]))) {struct region7569 *region; unsigned region_size = REGION_SIZE7569; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7569 *)GC_malloc_uncollectable(sizeof(struct region7569)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 2061, 67873); out_of_memory_error();} region->region = region7569; region_size7569 = region_size; region7569 = region; fp7569 = &((region->data)[0]); ALIGN(fp7569);} t71445 = (struct structure_type24753 *)fp7569; fp7569 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t71445->s0.tag = FIXNUM_TYPE; t71445->s0.value.fixnum_type = t71443; t71445->s1 = t71446; t71442 = f27305(t71445); /* x270502 stalin.sc:2061:67867 */ if (t71442==0) goto l12157; /* x77223 */ /* x77222 stalin.sc:5027:171644 */ /* x77221 stalin.sc:5027:171675 */ t71451 = a22367; /* x77220 stalin.sc:5027:171645 */ a37390 = t71451; /* x282229 */ /* x282228 */ t71452 = a37390; /* x282227 */ if (!((t71452.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ELEMENT[6309] 32307]"); structure_ref_error();} t71450 = t71452.value.structure_type27669->s0; /* x77219 stalin.sc:5027:171638 */ t71449 = p9072; p9033 = t71449; a22367 = t71450; goto h9033; l12157: /* x77224 */ r9033.tag = FALSE_TYPE; return r9033; l12153: /* x77240 */ r9033.tag = FALSE_TYPE; return r9033; l12143: /* x77287 */ /* x77246 stalin.sc:5029:171752 */ /* x77245 stalin.sc:5029:171776 */ t71406 = a22367; /* x77244 stalin.sc:5029:171753 */ a37328 = t71406; /* x281981 */ /* x281980 */ t71407 = a37328; /* x281979 */ if (!((t71407.tag)==STRUCTURE_TYPE27908)) goto l12145; /* x77281 */ /* x77280 */ t71413 = p9034; p9073 = t71413; /* x77279 stalin.sc:5030:171788 */ /* x77251 stalin.sc:5030:171793 */ /* x77250 stalin.sc:5030:171798 */ /* x77249 stalin.sc:5030:171829 */ t71414 = a22367; /* x77248 stalin.sc:5030:171799 */ if (!(f7619(t71414)==FALSE_TYPE)) goto l12147; /* x77277 */ /* x77276 */ t71415 = p9073; p9074 = t71415; /* x77275 */ /* x77274 stalin.sc:5032:171852 */ /* x77272 stalin.sc:5032:171888 */ t71433 = a22367; /* x77273 stalin.sc:5032:171893 */ /* x77271 stalin.sc:5032:171853 */ t71434 = TRUE_TYPE; f7620(t71433, t71434); /* x77270 */ t71416 = p9074; p9075 = t71416; /* x77269 stalin.sc:5033:171902 */ /* x77268 stalin.sc:5033:171906 */ /* x77267 stalin.sc:5033:171910 */ t71432 = a22367; /* x77266 stalin.sc:5033:171907 */ t71431 = p9075->a22363; t71418 = (((unsigned)t71431)==NATIVE_PROCEDURE_TYPE7067)?f12110(t71432):f9142(t71431, t71432); /* x77265 */ t71417 = p9075; p9076 = t71417; a22388 = t71418; /* x77264 */ /* x77252 */ if (a22388==FALSE_TYPE) goto l12149; /* x77253 */ r9033.tag = a22388; return r9033; l12149: /* x77263 */ /* x77256 stalin.sc:5034:171923 */ /* x77255 stalin.sc:5034:171967 */ t71419 = a22367; /* x77254 stalin.sc:5034:171924 */ a21464 = t71419; while (region7614!=((struct region7614 *)(&initial_region7614))) {struct region7614 *region; region = region7614; region7614 = region7614->region; GC_free(region);} region_size7614 = REGION_SIZE7614; fp7614 = &((region7614->data)[0]); ALIGN(fp7614); /* x64357 stalin.sc:2160:71206 */ /* x64356 stalin.sc:2160:71211 */ /* x64355 stalin.sc:2160:71218 */ /* x64354 stalin.sc:2160:71262 */ t71422 = 4; /* x64353 stalin.sc:2160:71227 */ /* x64352 stalin.sc:2160:71259 */ t71425 = a21464; /* x64351 stalin.sc:2160:71228 */ a37282 = t71425; /* x281797 */ /* x281796 */ t71426 = a37282; /* x281795 */ if (!((t71426.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-BOOLEANS[6415] 32199]"); structure_ref_error();} t71421 = t71426.value.structure_type27908->s5; /* x64350 stalin.sc:2160:71219 */ if ((fp7614+sizeof(struct structure_type24753))>(&((region7614->data)[region_size7614]))) {struct region7614 *region; unsigned region_size = REGION_SIZE7614; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7614 *)GC_malloc_uncollectable(sizeof(struct region7614)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 2160, 71218); out_of_memory_error();} region->region = region7614; region_size7614 = region_size; region7614 = region; fp7614 = &((region->data)[0]); ALIGN(fp7614);} t71424.tag = STRUCTURE_TYPE24753; t71424.value.structure_type24753 = (struct structure_type24753 *)fp7614; fp7614 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t71424.value.structure_type24753->s0.tag = FIXNUM_TYPE; t71424.value.structure_type24753->s0.value.fixnum_type = t71422; t71424.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7614+sizeof(struct structure_type24753))>(&((region7614->data)[region_size7614]))) {struct region7614 *region; unsigned region_size = REGION_SIZE7614; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7614 *)GC_malloc_uncollectable(sizeof(struct region7614)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 2160, 71218); out_of_memory_error();} region->region = region7614; region_size7614 = region_size; region7614 = region; fp7614 = &((region->data)[0]); ALIGN(fp7614);} t71423 = (struct structure_type24753 *)fp7614; fp7614 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t71423->s0.tag = FIXNUM_TYPE; t71423->s0.value.fixnum_type = t71421; t71423->s1 = t71424; t71420 = f27305(t71423); /* x270481 stalin.sc:2160:71212 */ if (t71420==0) goto l12151; /* x77261 */ /* x77260 stalin.sc:5036:171995 */ /* x77259 stalin.sc:5036:172040 */ t71429 = a22367; /* x77258 stalin.sc:5036:171996 */ a20162 = t71429; /* x54043 */ /* x54042 */ t71430 = a20162; /* x54041 */ if (!((t71430.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("DISPLACED-VECTOR-TYPE-DISPLACED-VECTOR-TYPE[6375]"); structure_ref_error();} t71428 = t71430.value.structure_type27908->s0; /* x77257 stalin.sc:5035:171981 */ t71427 = p9076; p9033 = t71427; a22367 = t71428; goto h9033; l12151: /* x77262 */ r9033.tag = FALSE_TYPE; return r9033; l12147: /* x77278 */ r9033.tag = FALSE_TYPE; return r9033; l12145: /* x77286 */ /* x77285 */ t71408 = p9034; p9077 = t71408; /* x77284 stalin.sc:5037:172063 */ /* x77283 stalin.sc:5037:172067 */ t71410 = a22367; /* x77282 stalin.sc:5037:172064 */ t71409 = p9077->a22363; if (((unsigned)t71409)==NATIVE_PROCEDURE_TYPE7067) {t71411 = f12110(t71410); r9033.tag = t71411; return r9033;} t71412 = f9142(t71409, t71410); r9033.tag = t71412; return r9033; l12121: /* x77313 */ /* x77302 stalin.sc:5038:172080 */ /* x77301 stalin.sc:5038:172091 */ t71378 = a22367; /* x77300 stalin.sc:5038:172081 */ a37148 = t71378; /* x281261 */ /* x281260 */ t71379 = a37148; /* x281259 */ if (!((t71379.tag)==STRUCTURE_TYPE27650)) goto l12123; /* x77308 */ /* x77307 */ t71381 = p9033; p9078 = t71381; /* x77306 stalin.sc:5038:172097 */ /* x77304 stalin.sc:5038:172106 */ t71382 = p9078; /* x77305 stalin.sc:5038:172112 */ t71383 = a22367; /* x77303 stalin.sc:5038:172098 */ t71384.tag = NATIVE_PROCEDURE_TYPE20385; t71384.value.native_procedure_type20385 = t71382; return f8137(t71384, t71383); l12123: /* x77312 */ /* x77311 */ /* x77310 stalin.sc:5039:172128 */ /* x77309 stalin.sc:5039:172129 */ /* x296025 QobiScheme.sc:166:5314 */ /* x296024 QobiScheme.sc:166:5321 */ t71380 = "This shouldn\'t happen"; /* x296023 QobiScheme.sc:166:5315 */ stalin_panic(t71380);} /* SOME-POINTED-TO-TYPE[9030] */ struct w16638 f9030(struct p9140 *a22363, struct w49 a22364) {struct p9030 *t71577; struct w49 t71578; struct p9030 *t71579; struct p9030 *t71580; struct p9030 *e9030; struct p9030 *p9031; struct p9030 *p9032; e9030 = (struct p9030 *)alloca(sizeof(struct p9030)); if (e9030==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e9030->a22363 = a22363; /* x77323 stalin.sc:4957:168649 */ /* x77322 stalin.sc:4957:168667 */ t71578 = a22364; /* x77321 */ /* x77320 */ /* x77319 */ /* x77318 */ t71579 = e9030; p9031 = t71579; /* x77317 */ /* x77316 */ /* x77315 */ /* x76904 */ t71580 = p9031; p9032 = t71580; /* x76903 stalin.sc:4957:168654 */ t71577 = p9032; return f9033(t71577, t71578);} /* [inside UNMARK-TYPES-AND-TYPE-SETS! 9029] */ void f9029(struct w49 a22362) {struct w49 t71581; unsigned t71582; /* x76893 stalin.sc:4953:168551 */ /* x76891 stalin.sc:4953:168574 */ t71581 = a22362; /* x76892 stalin.sc:4953:168576 */ /* x76890 stalin.sc:4953:168552 */ t71582 = FALSE_TYPE; f8113(t71581, t71582); return;} /* UNMARK-TYPES-AND-TYPE-SETS![9027] */ void f9027(void) {struct w21193 t71583; struct w36108 t71584; struct w49 t71585; struct structure_type24753 *t71586; /* x76900 */ /* x76899 stalin.sc:4952:168512 */ /* x76898 stalin.sc:4952:168513 */ f9014(); /* x76897 */ /* x76896 stalin.sc:4953:168529 */ /* x76895 stalin.sc:4953:168581 */ t71583 = a1679; /* x76894 stalin.sc:4953:168539 */ /* x76889 stalin.sc:4953:168530 */ t71584.tag = NATIVE_PROCEDURE_TYPE16050; t71585 = *((struct w49 *)(&t71583)); t71586 = (struct structure_type24753 *)NULL_TYPE; f27755(t71584, t71585, t71586); return;} /* [inside UNMARK-TYPES! 9026] */ void f9026(struct w49 a22360) {struct w49 t71587; unsigned t71588; /* x76882 stalin.sc:4946:168302 */ /* x76880 stalin.sc:4946:168338 */ t71587 = a22360; /* x76881 stalin.sc:4946:168340 */ /* x76879 stalin.sc:4946:168303 */ t71588 = FALSE_TYPE; f7575(t71587, t71588); return;} /* [inside UNMARK-TYPES! 9025] */ void f9025(struct w49 a22359) {struct w49 t71589; unsigned t71590; /* x76874 stalin.sc:4944:168212 */ /* x76872 stalin.sc:4944:168245 */ t71589 = a22359; /* x76873 stalin.sc:4944:168247 */ /* x76871 stalin.sc:4944:168213 */ t71590 = FALSE_TYPE; f7525(t71589, t71590); return;} /* [inside UNMARK-TYPES! 9024] */ void f9024(struct w49 a22358) {struct w49 t71591; unsigned t71592; /* x76866 stalin.sc:4942:168130 */ /* x76864 stalin.sc:4942:168159 */ t71591 = a22358; /* x76865 stalin.sc:4942:168161 */ /* x76863 stalin.sc:4942:168131 */ t71592 = FALSE_TYPE; f7465(t71591, t71592); return;} /* [inside UNMARK-TYPES! 9023] */ void f9023(struct w49 a22357) {struct w49 t71593; unsigned t71594; /* x76858 stalin.sc:4940:168054 */ /* x76856 stalin.sc:4940:168080 */ t71593 = a22357; /* x76857 stalin.sc:4940:168082 */ /* x76855 stalin.sc:4940:168055 */ t71594 = FALSE_TYPE; f7420(t71593, t71594); return;} /* [inside UNMARK-TYPES! 9022] */ void f9022(struct w49 a22356) {struct w49 t71595; unsigned t71596; /* x76850 stalin.sc:4938:167966 */ /* x76848 stalin.sc:4938:167998 */ t71595 = a22356; /* x76849 stalin.sc:4938:168000 */ /* x76847 stalin.sc:4938:167967 */ t71596 = FALSE_TYPE; f7380(t71595, t71596); return;} /* [inside UNMARK-TYPES! 9021] */ void f9021(struct w49 a22355) {struct w49 t71597; unsigned t71598; /* x76842 stalin.sc:4936:167868 */ /* x76840 stalin.sc:4936:167905 */ t71597 = a22355; /* x76841 stalin.sc:4936:167907 */ /* x76839 stalin.sc:4936:167869 */ t71598 = FALSE_TYPE; f7355(t71597, t71598); return;} /* [inside UNMARK-TYPES! 9020] */ void f9020(struct w49 a22354) {struct w49 t71599; unsigned t71600; /* x76834 stalin.sc:4934:167772 */ /* x76832 stalin.sc:4934:167808 */ t71599 = a22354; /* x76833 stalin.sc:4934:167810 */ /* x76831 stalin.sc:4934:167773 */ t71600 = FALSE_TYPE; f7315(t71599, t71600); return;} /* [inside UNMARK-TYPES! 9019] */ void f9019(struct w49 a22353) {struct w49 t71601; unsigned t71602; /* x76826 stalin.sc:4932:167670 */ /* x76824 stalin.sc:4932:167709 */ t71601 = a22353; /* x76825 stalin.sc:4932:167711 */ /* x76823 stalin.sc:4932:167671 */ t71602 = FALSE_TYPE; f7280(t71601, t71602); return;} /* [inside UNMARK-TYPES! 9018] */ void f9018(struct w49 a22352) {struct w49 t71603; unsigned t71604; /* x76818 stalin.sc:4930:167576 */ /* x76816 stalin.sc:4930:167611 */ t71603 = a22352; /* x76817 stalin.sc:4930:167613 */ /* x76815 stalin.sc:4930:167577 */ t71604 = FALSE_TYPE; f7260(t71603, t71604); return;} /* [inside UNMARK-TYPES! 9017] */ void f9017(struct w49 a22351) {struct w49 t71605; unsigned t71606; /* x76810 stalin.sc:4928:167482 */ /* x76808 stalin.sc:4928:167517 */ t71605 = a22351; /* x76809 stalin.sc:4928:167519 */ /* x76807 stalin.sc:4928:167483 */ t71606 = FALSE_TYPE; f7235(t71605, t71606); return;} /* [inside UNMARK-TYPES! 9016] */ void f9016(struct w49 a22350) {struct w49 t71607; unsigned t71608; /* x76801 stalin.sc:4948:168398 */ /* x76799 stalin.sc:4948:168434 */ t71607 = a22350; /* x76800 stalin.sc:4948:168436 */ /* x76798 stalin.sc:4948:168399 */ t71608 = FALSE_TYPE; f7620(t71607, t71608); return;} /* UNMARK-TYPES![9014] */ void f9014(void) {struct w21193 t71609; struct w36108 t71610; struct w49 t71611; struct structure_type24753 *t71612; struct w21193 t71613; struct w36108 t71614; struct w49 t71615; struct structure_type24753 *t71616; struct w21193 t71617; struct w36108 t71618; struct w49 t71619; struct structure_type24753 *t71620; struct w21193 t71621; struct w36108 t71622; struct w49 t71623; struct structure_type24753 *t71624; struct w21193 t71625; struct w36108 t71626; struct w49 t71627; struct structure_type24753 *t71628; struct w21193 t71629; struct w36108 t71630; struct w49 t71631; struct structure_type24753 *t71632; struct w21193 t71633; struct w36108 t71634; struct w49 t71635; struct structure_type24753 *t71636; struct w21193 t71637; struct w36108 t71638; struct w49 t71639; struct structure_type24753 *t71640; struct w21193 t71641; struct w36108 t71642; struct w49 t71643; struct structure_type24753 *t71644; struct w21193 t71645; struct w36108 t71646; struct w49 t71647; struct structure_type24753 *t71648; struct w21193 t71649; struct w36108 t71650; struct w49 t71651; struct structure_type24753 *t71652; /* x76886 */ /* x76813 stalin.sc:4928:167460 */ /* x76812 stalin.sc:4929:167528 */ t71613 = a1948; /* x76811 stalin.sc:4928:167470 */ /* x76806 stalin.sc:4928:167461 */ t71614.tag = NATIVE_PROCEDURE_TYPE16018; t71615 = *((struct w49 *)(&t71613)); t71616 = (struct structure_type24753 *)NULL_TYPE; f27755(t71614, t71615, t71616); /* x76821 stalin.sc:4930:167554 */ /* x76820 stalin.sc:4931:167622 */ t71617 = a1947; /* x76819 stalin.sc:4930:167564 */ /* x76814 stalin.sc:4930:167555 */ t71618.tag = NATIVE_PROCEDURE_TYPE16014; t71619 = *((struct w49 *)(&t71617)); t71620 = (struct structure_type24753 *)NULL_TYPE; f27755(t71618, t71619, t71620); /* x76829 stalin.sc:4932:167648 */ /* x76828 stalin.sc:4933:167720 */ t71621 = a1946; /* x76827 stalin.sc:4932:167658 */ /* x76822 stalin.sc:4932:167649 */ t71622.tag = NATIVE_PROCEDURE_TYPE16010; t71623 = *((struct w49 *)(&t71621)); t71624 = (struct structure_type24753 *)NULL_TYPE; f27755(t71622, t71623, t71624); /* x76837 stalin.sc:4934:167750 */ /* x76836 stalin.sc:4935:167819 */ t71625 = a1945; /* x76835 stalin.sc:4934:167760 */ /* x76830 stalin.sc:4934:167751 */ t71626.tag = NATIVE_PROCEDURE_TYPE16007; t71627 = *((struct w49 *)(&t71625)); t71628 = (struct structure_type24753 *)NULL_TYPE; f27755(t71626, t71627, t71628); /* x76845 stalin.sc:4936:167846 */ /* x76844 stalin.sc:4937:167916 */ t71629 = a1944; /* x76843 stalin.sc:4936:167856 */ /* x76838 stalin.sc:4936:167847 */ t71630.tag = NATIVE_PROCEDURE_TYPE16003; t71631 = *((struct w49 *)(&t71629)); t71632 = (struct structure_type24753 *)NULL_TYPE; f27755(t71630, t71631, t71632); /* x76853 stalin.sc:4938:167944 */ /* x76852 stalin.sc:4939:168009 */ t71633 = a1943; /* x76851 stalin.sc:4938:167954 */ /* x76846 stalin.sc:4938:167945 */ t71634.tag = NATIVE_PROCEDURE_TYPE16000; t71635 = *((struct w49 *)(&t71633)); t71636 = (struct structure_type24753 *)NULL_TYPE; f27755(t71634, t71635, t71636); /* x76861 stalin.sc:4940:168032 */ /* x76860 stalin.sc:4941:168091 */ t71637 = a1942; /* x76859 stalin.sc:4940:168042 */ /* x76854 stalin.sc:4940:168033 */ t71638.tag = NATIVE_PROCEDURE_TYPE15997; t71639 = *((struct w49 *)(&t71637)); t71640 = (struct structure_type24753 *)NULL_TYPE; f27755(t71638, t71639, t71640); /* x76869 stalin.sc:4942:168108 */ /* x76868 stalin.sc:4943:168170 */ t71641 = a1940; /* x76867 stalin.sc:4942:168118 */ /* x76862 stalin.sc:4942:168109 */ t71642.tag = NATIVE_PROCEDURE_TYPE15994; t71643 = *((struct w49 *)(&t71641)); t71644 = (struct structure_type24753 *)NULL_TYPE; f27755(t71642, t71643, t71644); /* x76877 stalin.sc:4944:168190 */ /* x76876 stalin.sc:4945:168256 */ t71645 = a1939; /* x76875 stalin.sc:4944:168200 */ /* x76870 stalin.sc:4944:168191 */ t71646.tag = NATIVE_PROCEDURE_TYPE15991; t71647 = *((struct w49 *)(&t71645)); t71648 = (struct structure_type24753 *)NULL_TYPE; f27755(t71646, t71647, t71648); /* x76885 stalin.sc:4946:168280 */ /* x76884 stalin.sc:4947:168349 */ t71649 = a1938; /* x76883 stalin.sc:4946:168290 */ /* x76878 stalin.sc:4946:168281 */ t71650.tag = NATIVE_PROCEDURE_TYPE15988; t71651 = *((struct w49 *)(&t71649)); t71652 = (struct structure_type24753 *)NULL_TYPE; f27755(t71650, t71651, t71652); /* x76805 */ /* x76804 stalin.sc:4948:168376 */ /* x76803 stalin.sc:4949:168445 */ t71609 = a1936; /* x76802 stalin.sc:4948:168386 */ /* x76797 stalin.sc:4948:168377 */ t71610.tag = NATIVE_PROCEDURE_TYPE16023; t71611 = *((struct w49 *)(&t71609)); t71612 = (struct structure_type24753 *)NULL_TYPE; f27755(t71610, t71611, t71612); return;} /* IN-LINED-IN?[8999] */ unsigned f8999(struct w49 a22332, struct w49 a22333) {struct w49 a36464; /* S */ struct w49 a36465; /* S */ struct w49 a36755; /* OBJ */ struct w49 a36759; /* OBJ */ struct w49 a36760; /* OBJ */ struct w49 a39489; /* S */ struct w49 a39758; /* S */ struct w49 a39759; /* S */ struct w49 a40080; /* S */ struct w49 a40098; /* S */ struct w49 a40314; /* S */ struct w49 a40315; /* S */ struct w49 a40316; /* S */ struct w49 a40417; /* OBJ */ struct w49 a40420; /* OBJ */ struct w49 a40421; /* OBJ */ struct w49 t71653; struct w49 t71654; struct w49 t71655; struct w49 t71656; char *t71657; struct w49 t71658; struct w49 t71659; struct w49 t71660; struct w49 t71661; char *t71662; struct w49 t71663; struct w49 t71664; char *t71665; char *t71666; struct w49 t71667; struct w49 t71668; char *t71669; char *t71670; struct w49 t71671; struct w49 t71672; char *t71673; char *t71674; struct w49 t71675; struct w49 t71676; struct w49 t71677; struct w49 t71678; struct w49 t71679; struct w49 t71680; struct w49 t71681; struct w49 t71682; struct w49 t71683; struct w9140 t71684; struct w49 t71685; struct w49 t71686; struct w49 t71687; struct w49 t71688; struct w49 t71689; struct w49 t71690; struct w49 t71691; struct w49 t71692; struct w49 t71693; struct w49 t71694; struct w49 t71695; struct w49 t71696; struct w49 t71697; struct w49 t71698; struct w49 t71699; char *t71700; struct w49 t71701; struct w49 t71702; struct w49 t71703; struct w49 t71704; struct w49 t71705; struct w49 t71706; struct w49 t71707; struct w49 t71708; struct w49 t71709; struct w49 t71710; struct w49 t71711; struct w49 t71712; struct w49 t71713; struct w49 t71714; h8999: /* x76780 stalin.sc:4893:166226 */ /* x76621 stalin.sc:4894:166235 */ /* x76620 stalin.sc:4894:166249 */ t71653 = a22332; /* x76619 stalin.sc:4894:166236 */ a36760 = t71653; /* x279709 */ /* x279708 */ t71654 = a36760; /* x279707 */ if (!((t71654.tag)==STRUCTURE_TYPE27694)) goto l12199; /* x76679 */ /* x76678 */ /* x76677 stalin.sc:4895:166258 */ /* x76677 stalin.sc:4895:166258 */ /* x76624 stalin.sc:4897:166327 */ /* x76623 stalin.sc:4897:166346 */ t71695 = a22332; /* x76622 stalin.sc:4897:166328 */ if (f8526(t71695)==FALSE_TYPE) goto l12220; /* x76675 */ /* x76627 stalin.sc:4899:166368 */ /* x76626 stalin.sc:4899:166382 */ t71696 = a22333; /* x76625 stalin.sc:4899:166369 */ a36755 = t71696; /* x279689 */ /* x279688 */ t71697 = a36755; /* x279687 */ if (!((t71697.tag)==STRUCTURE_TYPE27694)) goto l12224; /* x76651 */ /* x76650 */ /* x76649 stalin.sc:4900:166394 */ /* x76648 stalin.sc:4900:166398 */ /* x76646 stalin.sc:4900:166403 */ t71707 = a22332; /* x76647 stalin.sc:4900:166408 */ t71708 = a22333; /* x270118 stalin.sc:4900:166399 */ /* EQ: dispatching general to general */ if ((t71707.tag)==(t71708.tag)) switch (t71707.tag) {case FIXNUM_TYPE: if ((t71707.value.fixnum_type)==(t71708.value.fixnum_type)) goto l12219; break; case FLONUM_TYPE: if ((t71707.value.flonum_type)==(t71708.value.flonum_type)) goto l12219; break; case INPUT_PORT_TYPE: if ((t71707.value.input_port_type)==(t71708.value.input_port_type)) goto l12219; break; case OUTPUT_PORT_TYPE: if ((t71707.value.output_port_type)==(t71708.value.output_port_type)) goto l12219; break; case NATIVE_PROCEDURE_TYPE15963: if ((t71707.value.native_procedure_type15963)==(t71708.value.native_procedure_type15963)) goto l12219; break; case NATIVE_PROCEDURE_TYPE19067: if ((t71707.value.native_procedure_type19067)==(t71708.value.native_procedure_type19067)) goto l12219; break; case NATIVE_PROCEDURE_TYPE19068: if ((t71707.value.native_procedure_type19068)==(t71708.value.native_procedure_type19068)) goto l12219; break; case NATIVE_PROCEDURE_TYPE22459: if ((t71707.value.native_procedure_type22459)==(t71708.value.native_procedure_type22459)) goto l12219; break; case STRUCTURE_TYPE24753: if ((t71707.value.structure_type24753)==(t71708.value.structure_type24753)) goto l12219; break; case STRUCTURE_TYPE24757: if ((t71707.value.structure_type24757)==(t71708.value.structure_type24757)) goto l12219; break; case STRUCTURE_TYPE27501: if ((t71707.value.structure_type27501)==(t71708.value.structure_type27501)) goto l12219; break; case STRUCTURE_TYPE27510: if ((t71707.value.structure_type27510)==(t71708.value.structure_type27510)) goto l12219; break; case STRUCTURE_TYPE27621: if ((t71707.value.structure_type27621)==(t71708.value.structure_type27621)) goto l12219; break; case STRUCTURE_TYPE27650: if ((t71707.value.structure_type27650)==(t71708.value.structure_type27650)) goto l12219; break; case STRUCTURE_TYPE27669: if ((t71707.value.structure_type27669)==(t71708.value.structure_type27669)) goto l12219; break; case STRUCTURE_TYPE27673: if ((t71707.value.structure_type27673)==(t71708.value.structure_type27673)) goto l12219; break; case STRUCTURE_TYPE27692: if ((t71707.value.structure_type27692)==(t71708.value.structure_type27692)) goto l12219; break; case STRUCTURE_TYPE27694: if ((t71707.value.structure_type27694)==(t71708.value.structure_type27694)) goto l12219; break; case STRUCTURE_TYPE27698: if ((t71707.value.structure_type27698)==(t71708.value.structure_type27698)) goto l12219; break; case STRUCTURE_TYPE27745: if ((t71707.value.structure_type27745)==(t71708.value.structure_type27745)) goto l12219; break; case STRUCTURE_TYPE27747: if ((t71707.value.structure_type27747)==(t71708.value.structure_type27747)) goto l12219; break; case STRUCTURE_TYPE27750: if ((t71707.value.structure_type27750)==(t71708.value.structure_type27750)) goto l12219; break; case STRUCTURE_TYPE27753: if ((t71707.value.structure_type27753)==(t71708.value.structure_type27753)) goto l12219; break; case STRUCTURE_TYPE27756: if ((t71707.value.structure_type27756)==(t71708.value.structure_type27756)) goto l12219; break; case STRUCTURE_TYPE27761: if ((t71707.value.structure_type27761)==(t71708.value.structure_type27761)) goto l12219; break; case STRUCTURE_TYPE27769: if ((t71707.value.structure_type27769)==(t71708.value.structure_type27769)) goto l12219; break; case STRUCTURE_TYPE27776: if ((t71707.value.structure_type27776)==(t71708.value.structure_type27776)) goto l12219; break; case STRUCTURE_TYPE27779: if ((t71707.value.structure_type27779)==(t71708.value.structure_type27779)) goto l12219; break; case STRUCTURE_TYPE27858: if ((t71707.value.structure_type27858)==(t71708.value.structure_type27858)) goto l12219; break; case STRING_TYPE: if ((t71707.value.string_type)==(t71708.value.string_type)) goto l12219; break; case HEADED_VECTOR_TYPE27896: if ((t71707.value.headed_vector_type27896)==(t71708.value.headed_vector_type27896)) goto l12219; break; case EXTERNAL_SYMBOL_TYPE: if ((t71707.value.external_symbol_type)==(t71708.value.external_symbol_type)) goto l12219; break; case STRUCTURE_TYPE27908: if ((t71707.value.structure_type27908)==(t71708.value.structure_type27908)) goto l12219; break; default: goto l12219;} /* x76642 */ /* x76632 stalin.sc:4901:166422 */ /* x76631 stalin.sc:4901:166441 */ t71709 = a22332; /* x76630 stalin.sc:4901:166423 */ if (f8585(t71709)==FALSE_TYPE) goto l12220; /* x76640 */ /* x76638 stalin.sc:4902:166469 */ /* x76637 stalin.sc:4902:166491 */ /* x76636 stalin.sc:4902:166509 */ t71714 = a22332; /* x76635 stalin.sc:4902:166492 */ t71712 = f8659(t71714); /* x76634 stalin.sc:4902:166470 */ a36464 = t71712; /* x278525 */ /* x278524 */ t71713 = a36464; /* x278523 */ if (!((t71713.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31381]"); structure_ref_error();} t71710 = t71713.value.structure_type27745->s0; /* x76639 stalin.sc:4903:166524 */ t71711 = a22333; /* x76633 stalin.sc:4902:166456 */ a22332 = t71710; a22333 = t71711; goto h8999; goto l12225; l12224: /* x76674 */ /* x76654 stalin.sc:4904:166539 */ /* x76653 stalin.sc:4904:166552 */ t71698 = a22333; /* x76652 stalin.sc:4904:166540 */ a40417 = t71698; /* x294337 */ /* x294336 */ t71699 = a40417; /* x294335 */ if (!((t71699.tag)==STRUCTURE_TYPE27698)) goto l12227; /* x76669 */ /* x76668 */ /* x76667 stalin.sc:4905:166564 */ /* x76657 stalin.sc:4905:166569 */ /* x76656 stalin.sc:4905:166588 */ t71701 = a22332; /* x76655 stalin.sc:4905:166570 */ if (f8585(t71701)==FALSE_TYPE) goto l12220; /* x76665 */ /* x76663 stalin.sc:4906:166612 */ /* x76662 stalin.sc:4906:166634 */ /* x76661 stalin.sc:4906:166652 */ t71706 = a22332; /* x76660 stalin.sc:4906:166635 */ t71704 = f8659(t71706); /* x76659 stalin.sc:4906:166613 */ a36465 = t71704; /* x278529 */ /* x278528 */ t71705 = a36465; /* x278527 */ if (!((t71705.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31382]"); structure_ref_error();} t71702 = t71705.value.structure_type27745->s0; /* x76664 stalin.sc:4906:166659 */ t71703 = a22333; /* x76658 stalin.sc:4906:166599 */ a22332 = t71702; a22333 = t71703; goto h8999; goto l12228; l12227: /* x76673 */ /* x76672 */ /* x76671 stalin.sc:4907:166678 */ /* x76670 stalin.sc:4907:166679 */ /* x296441 QobiScheme.sc:166:5314 */ /* x296440 QobiScheme.sc:166:5321 */ t71700 = "This shouldn\'t happen"; /* x296439 QobiScheme.sc:166:5315 */ stalin_panic(t71700); l12228: l12225: l12219: return TRUE_TYPE; l12220: return FALSE_TYPE; l12199: /* x76779 */ /* x76682 stalin.sc:4908:166695 */ /* x76681 stalin.sc:4908:166708 */ t71655 = a22332; /* x76680 stalin.sc:4908:166696 */ a40421 = t71655; /* x294353 */ /* x294352 */ t71656 = a40421; /* x294351 */ if (!((t71656.tag)==STRUCTURE_TYPE27698)) goto l12201; /* x76774 */ /* x76773 */ /* x76772 stalin.sc:4909:166717 */ /* x76685 stalin.sc:4909:166724 */ /* x76684 stalin.sc:4909:166738 */ t71658 = a22333; /* x76683 stalin.sc:4909:166725 */ a36759 = t71658; /* x279705 */ /* x279704 */ t71659 = a36759; /* x279703 */ if (!((t71659.tag)==STRUCTURE_TYPE27694)) goto l12203; /* x76702 */ /* x76701 */ /* x76700 stalin.sc:4910:166747 */ /* x76700 stalin.sc:4910:166747 */ /* x76692 stalin.sc:4910:166752 */ /* x76691 stalin.sc:4910:166757 */ /* x76690 stalin.sc:4910:166765 */ /* x76689 stalin.sc:4910:166789 */ t71689 = a22332; /* x76688 stalin.sc:4910:166766 */ a40098 = t71689; /* x293061 */ /* x293060 */ t71690 = a40098; /* x293059 */ if (!((t71690.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35015]"); structure_ref_error();} t71688 = t71690.value.structure_type27698->s9; /* x76687 stalin.sc:4910:166758 */ if (!(f8581(t71688)==FALSE_TYPE)) goto l12216; /* x76698 */ /* x76696 stalin.sc:4911:166819 */ /* x76695 stalin.sc:4911:166843 */ t71693 = a22332; /* x76694 stalin.sc:4911:166820 */ a40080 = t71693; /* x292989 */ /* x292988 */ t71694 = a40080; /* x292987 */ if (!((t71694.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34997]"); structure_ref_error();} t71691 = t71694.value.structure_type27698->s9; /* x76697 stalin.sc:4911:166849 */ t71692 = a22333; /* x76693 stalin.sc:4911:166806 */ a22332 = t71691; a22333 = t71692; goto h8999; return TRUE_TYPE; l12216: return FALSE_TYPE; l12203: /* x76771 */ /* x76705 stalin.sc:4912:166860 */ /* x76704 stalin.sc:4912:166873 */ t71660 = a22333; /* x76703 stalin.sc:4912:166861 */ a40420 = t71660; /* x294349 */ /* x294348 */ t71661 = a40420; /* x294347 */ if (!((t71661.tag)==STRUCTURE_TYPE27698)) goto l12205; /* x76766 */ /* x76765 */ /* x76764 stalin.sc:4913:166882 */ /* x76764 stalin.sc:4913:166882 */ /* x76763 stalin.sc:4913:166886 */ /* x76761 stalin.sc:4913:166891 */ t71663 = a22332; /* x76762 stalin.sc:4913:166896 */ t71664 = a22333; /* x270112 stalin.sc:4913:166887 */ /* EQ: dispatching general to general */ if ((t71663.tag)==(t71664.tag)) switch (t71663.tag) {case FIXNUM_TYPE: if ((t71663.value.fixnum_type)==(t71664.value.fixnum_type)) goto l12206; break; case FLONUM_TYPE: if ((t71663.value.flonum_type)==(t71664.value.flonum_type)) goto l12206; break; case INPUT_PORT_TYPE: if ((t71663.value.input_port_type)==(t71664.value.input_port_type)) goto l12206; break; case OUTPUT_PORT_TYPE: if ((t71663.value.output_port_type)==(t71664.value.output_port_type)) goto l12206; break; case NATIVE_PROCEDURE_TYPE15963: if ((t71663.value.native_procedure_type15963)==(t71664.value.native_procedure_type15963)) goto l12206; break; case NATIVE_PROCEDURE_TYPE19067: if ((t71663.value.native_procedure_type19067)==(t71664.value.native_procedure_type19067)) goto l12206; break; case NATIVE_PROCEDURE_TYPE19068: if ((t71663.value.native_procedure_type19068)==(t71664.value.native_procedure_type19068)) goto l12206; break; case NATIVE_PROCEDURE_TYPE22459: if ((t71663.value.native_procedure_type22459)==(t71664.value.native_procedure_type22459)) goto l12206; break; case STRUCTURE_TYPE24753: if ((t71663.value.structure_type24753)==(t71664.value.structure_type24753)) goto l12206; break; case STRUCTURE_TYPE24757: if ((t71663.value.structure_type24757)==(t71664.value.structure_type24757)) goto l12206; break; case STRUCTURE_TYPE27501: if ((t71663.value.structure_type27501)==(t71664.value.structure_type27501)) goto l12206; break; case STRUCTURE_TYPE27510: if ((t71663.value.structure_type27510)==(t71664.value.structure_type27510)) goto l12206; break; case STRUCTURE_TYPE27621: if ((t71663.value.structure_type27621)==(t71664.value.structure_type27621)) goto l12206; break; case STRUCTURE_TYPE27650: if ((t71663.value.structure_type27650)==(t71664.value.structure_type27650)) goto l12206; break; case STRUCTURE_TYPE27669: if ((t71663.value.structure_type27669)==(t71664.value.structure_type27669)) goto l12206; break; case STRUCTURE_TYPE27673: if ((t71663.value.structure_type27673)==(t71664.value.structure_type27673)) goto l12206; break; case STRUCTURE_TYPE27692: if ((t71663.value.structure_type27692)==(t71664.value.structure_type27692)) goto l12206; break; case STRUCTURE_TYPE27694: if ((t71663.value.structure_type27694)==(t71664.value.structure_type27694)) goto l12206; break; case STRUCTURE_TYPE27698: if ((t71663.value.structure_type27698)==(t71664.value.structure_type27698)) goto l12206; break; case STRUCTURE_TYPE27745: if ((t71663.value.structure_type27745)==(t71664.value.structure_type27745)) goto l12206; break; case STRUCTURE_TYPE27747: if ((t71663.value.structure_type27747)==(t71664.value.structure_type27747)) goto l12206; break; case STRUCTURE_TYPE27750: if ((t71663.value.structure_type27750)==(t71664.value.structure_type27750)) goto l12206; break; case STRUCTURE_TYPE27753: if ((t71663.value.structure_type27753)==(t71664.value.structure_type27753)) goto l12206; break; case STRUCTURE_TYPE27756: if ((t71663.value.structure_type27756)==(t71664.value.structure_type27756)) goto l12206; break; case STRUCTURE_TYPE27761: if ((t71663.value.structure_type27761)==(t71664.value.structure_type27761)) goto l12206; break; case STRUCTURE_TYPE27769: if ((t71663.value.structure_type27769)==(t71664.value.structure_type27769)) goto l12206; break; case STRUCTURE_TYPE27776: if ((t71663.value.structure_type27776)==(t71664.value.structure_type27776)) goto l12206; break; case STRUCTURE_TYPE27779: if ((t71663.value.structure_type27779)==(t71664.value.structure_type27779)) goto l12206; break; case STRUCTURE_TYPE27858: if ((t71663.value.structure_type27858)==(t71664.value.structure_type27858)) goto l12206; break; case STRING_TYPE: if ((t71663.value.string_type)==(t71664.value.string_type)) goto l12206; break; case HEADED_VECTOR_TYPE27896: if ((t71663.value.headed_vector_type27896)==(t71664.value.headed_vector_type27896)) goto l12206; break; case EXTERNAL_SYMBOL_TYPE: if ((t71663.value.external_symbol_type)==(t71664.value.external_symbol_type)) goto l12206; break; case STRUCTURE_TYPE27908: if ((t71663.value.structure_type27908)==(t71664.value.structure_type27908)) goto l12206; break; default: goto l12206;} /* x76757 */ /* x76735 stalin.sc:4914:166913 */ /* x76734 stalin.sc:4914:166917 */ /* x76732 stalin.sc:4914:166922 */ /* x76731 stalin.sc:4914:166939 */ t71667 = a22332; /* x76730 stalin.sc:4914:166923 */ a40316 = t71667; /* x293933 */ /* x293932 */ t71668 = a40316; /* x293931 */ if (!((t71668.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35233]"); structure_ref_error();} t71665 = t71668.value.structure_type27698->s0; /* x76733 stalin.sc:4914:166945 */ t71666 = q39; /* x270114 stalin.sc:4914:166918 */ if (t71665==t71666) goto l12210; /* x76726 */ /* x76725 stalin.sc:4915:166962 */ /* x76723 stalin.sc:4915:166967 */ /* x76722 stalin.sc:4915:166984 */ t71671 = a22332; /* x76721 stalin.sc:4915:166968 */ a40315 = t71671; /* x293929 */ /* x293928 */ t71672 = a40315; /* x293927 */ if (!((t71672.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35232]"); structure_ref_error();} t71669 = t71672.value.structure_type27698->s0; /* x76724 stalin.sc:4915:166990 */ t71670 = q40; /* x270115 stalin.sc:4915:166963 */ if (t71669==t71670) goto l12210; /* x76717 */ /* x76715 stalin.sc:4916:167022 */ /* x76714 stalin.sc:4916:167039 */ t71675 = a22332; /* x76713 stalin.sc:4916:167023 */ a40314 = t71675; /* x293925 */ /* x293924 */ t71676 = a40314; /* x293923 */ if (!((t71676.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35231]"); structure_ref_error();} t71673 = t71676.value.structure_type27698->s0; /* x76716 stalin.sc:4916:167045 */ t71674 = q41; /* x270116 stalin.sc:4916:167018 */ if (!(t71673==t71674)) goto l12211; l12210: /* x76741 stalin.sc:4917:167075 */ /* x76739 stalin.sc:4917:167089 */ /* x76738 stalin.sc:4917:167120 */ t71686 = a22332; /* x76737 stalin.sc:4917:167090 */ a39489 = t71686; /* x290625 */ /* x290624 */ t71687 = a39489; /* x290623 */ if (!((t71687.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34406]"); structure_ref_error();} t71684 = t71687.value.structure_type27698->s13; /* x76740 stalin.sc:4917:167126 */ t71685 = a22333; /* x76736 stalin.sc:4917:167076 */ a22332 = *((struct w49 *)(&t71684)); a22333 = t71685; goto h8999; l12211: /* x76756 stalin.sc:4918:167136 */ /* x76748 stalin.sc:4918:167141 */ /* x76747 stalin.sc:4918:167146 */ /* x76746 stalin.sc:4918:167154 */ /* x76745 stalin.sc:4918:167173 */ t71678 = a22332; /* x76744 stalin.sc:4918:167155 */ a39759 = t71678; /* x291705 */ /* x291704 */ t71679 = a39759; /* x291703 */ if (!((t71679.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34676]"); structure_ref_error();} t71677 = t71679.value.structure_type27698->s11; /* x76743 stalin.sc:4918:167147 */ if (!(f8581(t71677)==FALSE_TYPE)) goto l12207; /* x76754 */ /* x76752 stalin.sc:4919:167204 */ /* x76751 stalin.sc:4919:167223 */ t71682 = a22332; /* x76750 stalin.sc:4919:167205 */ a39758 = t71682; /* x291701 */ /* x291700 */ t71683 = a39758; /* x291699 */ if (!((t71683.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34675]"); structure_ref_error();} t71680 = t71683.value.structure_type27698->s11; /* x76753 stalin.sc:4919:167229 */ t71681 = a22333; /* x76749 stalin.sc:4919:167191 */ a22332 = t71680; a22333 = t71681; goto h8999; l12206: return TRUE_TYPE; l12207: return FALSE_TYPE; l12205: /* x76770 */ /* x76769 */ /* x76768 stalin.sc:4920:167247 */ /* x76767 stalin.sc:4920:167248 */ /* x296649 QobiScheme.sc:166:5314 */ /* x296648 QobiScheme.sc:166:5321 */ t71662 = "This shouldn\'t happen"; /* x296647 QobiScheme.sc:166:5315 */ stalin_panic(t71662); l12201: /* x76778 */ /* x76777 */ /* x76776 stalin.sc:4921:167268 */ /* x76775 stalin.sc:4921:167269 */ /* x296653 QobiScheme.sc:166:5314 */ /* x296652 QobiScheme.sc:166:5321 */ t71657 = "This shouldn\'t happen"; /* x296651 QobiScheme.sc:166:5315 */ stalin_panic(t71657);} /* LOOP[8992] */ struct structure_type24753 *f8992(struct w49 a22331) {struct structure_type24753 *r8992; struct structure_type24753 *a35197; /* OBJS */ struct structure_type24753 *a35529; /* PAIR */ struct structure_type24753 *a36092; /* PAIR */ struct w16614 a37025; /* OBJ */ struct w49 t71715; struct w16638 t71716; struct w16614 t71717; struct w16614 t71718; char *t71719; struct w16614 t71720; struct w49 t71721; struct structure_type24753 *t71722; struct structure_type24753 *t71723; struct structure_type24753 *t71724; struct w49 t71725; struct structure_type24753 *t71726; struct structure_type24753 *t71727; /* x76597 stalin.sc:4883:165956 */ /* x76564 stalin.sc:4883:165963 */ /* x76563 stalin.sc:4883:165970 */ t71715 = a22331; /* x270121 stalin.sc:4883:165964 */ if (!((t71715.tag)==NULL_TYPE)) goto l12233; /* x76567 */ /* x76566 */ /* x76565 stalin.sc:4883:165974 */ return (struct structure_type24753 *)NULL_TYPE; l12233: /* x76596 */ /* x76570 stalin.sc:4884:165988 */ /* x76569 stalin.sc:4884:165995 */ t71716 = *((struct w16638 *)(&a22331)); /* x270120 stalin.sc:4884:165989 */ if (!((t71716.tag)==STRUCTURE_TYPE24753)) goto l12235; /* x76582 */ /* x76581 */ /* x76580 stalin.sc:4884:165999 */ /* x76574 stalin.sc:4884:166005 */ /* x76573 stalin.sc:4884:166012 */ t71723 = a22331.value.structure_type24753; /* x76572 stalin.sc:4884:166006 */ a36092 = t71723; /* x275725 */ /* x275724 */ t71724 = a36092; /* x275723 */ t71721 = t71724->s0; /* x76579 stalin.sc:4884:166016 */ /* x76578 stalin.sc:4884:166022 */ /* x76577 stalin.sc:4884:166028 */ t71726 = a22331.value.structure_type24753; /* x76576 stalin.sc:4884:166023 */ a35529 = t71726; /* x273473 */ /* x273472 */ t71727 = a35529; /* x273471 */ t71725 = t71727->s1; /* x76575 stalin.sc:4884:166017 */ t71722 = f8992(t71725); /* x270119 stalin.sc:4884:166000 */ r8992 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r8992==NULL) {backtrace("stalin.sc", 4884, 165999); out_of_memory_error();} r8992->s0 = t71721; /* MOVE: branching squeezed to general */ if (t71722>=((struct structure_type24753 *)VALUE_OFFSET)) {r8992->s1.tag = STRUCTURE_TYPE24753; r8992->s1.value.structure_type24753 = t71722;} else r8992->s1.tag = (unsigned)t71722; return r8992; l12235: /* x76595 */ /* x76585 stalin.sc:4885:166044 */ /* x76584 stalin.sc:4885:166055 */ t71717 = *((struct w16614 *)(&a22331)); /* x76583 stalin.sc:4885:166045 */ a37025 = t71717; /* x280769 */ /* x280768 */ t71718 = a37025; /* x280767 */ if (!((t71718.tag)==STRUCTURE_TYPE27692)) goto l12237; /* x76590 */ /* x76589 */ /* x76588 stalin.sc:4885:166059 */ /* x76587 stalin.sc:4885:166065 */ t71720 = *((struct w16614 *)(&a22331)); /* x76586 stalin.sc:4885:166060 */ a35197 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35197==NULL) {backtrace("stalin.sc", 4885, 166059); out_of_memory_error();} a35197->s0 = *((struct w49 *)(&t71720)); a35197->s1.tag = NULL_TYPE; /* x272401 */ return a35197; l12237: /* x76594 */ /* x76593 */ /* x76592 stalin.sc:4886:166084 */ /* x76591 stalin.sc:4886:166085 */ /* x297069 QobiScheme.sc:166:5314 */ /* x297068 QobiScheme.sc:166:5321 */ t71719 = "This shouldn\'t happen"; /* x297067 QobiScheme.sc:166:5315 */ stalin_panic(t71719);} /* VARIABLES[8987] */ struct structure_type24753 *f8987(struct w49 a22328) {struct w49 a36722; /* S */ struct w49 a36777; /* OBJ */ struct w49 a39462; /* S */ struct w49 a40457; /* OBJ */ struct w49 t71728; struct w49 t71729; struct w49 t71730; struct w49 t71731; char *t71732; struct w9296 t71733; struct w49 t71734; struct w49 t71735; struct w49 t71736; struct w6852 t71737; struct w49 t71738; struct w49 t71739; h8987: /* x76616 stalin.sc:4880:165814 */ /* x76549 stalin.sc:4880:165821 */ /* x76548 stalin.sc:4880:165835 */ t71728 = a22328; /* x76547 stalin.sc:4880:165822 */ a36777 = t71728; /* x279777 */ /* x279776 */ t71729 = a36777; /* x279775 */ if (!((t71729.tag)==STRUCTURE_TYPE27694)) goto l12239; /* x76556 */ /* x76555 */ /* x76554 stalin.sc:4880:165840 */ /* x76553 stalin.sc:4880:165851 */ /* x76552 stalin.sc:4880:165875 */ t71738 = a22328; /* x76551 stalin.sc:4880:165852 */ a36722 = t71738; /* x279557 */ /* x279556 */ t71739 = a36722; /* x279555 */ if (!((t71739.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31639]"); structure_ref_error();} t71737 = t71739.value.structure_type27694->s1; /* x76550 stalin.sc:4880:165841 */ a22328 = *((struct w49 *)(&t71737)); goto h8987; l12239: /* x76615 */ /* x76559 stalin.sc:4881:165890 */ /* x76558 stalin.sc:4881:165903 */ t71730 = a22328; /* x76557 stalin.sc:4881:165891 */ a40457 = t71730; /* x294497 */ /* x294496 */ t71731 = a40457; /* x294495 */ if (!((t71731.tag)==STRUCTURE_TYPE27698)) goto l12241; /* x76610 */ /* x76609 */ /* x76608 stalin.sc:4882:165909 */ /* x76607 stalin.sc:4882:165924 */ /* x76606 stalin.sc:4882:165947 */ t71735 = a22328; /* x76605 stalin.sc:4882:165925 */ a39462 = t71735; /* x290517 */ /* x290516 */ t71736 = a39462; /* x290515 */ if (!((t71736.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34379]"); structure_ref_error();} t71733 = t71736.value.structure_type27698->s14; /* x76604 */ /* x76603 */ /* x76602 */ /* x76601 */ /* x76600 */ /* x76599 */ /* x76598 */ /* x76561 */ /* x76560 stalin.sc:4882:165914 */ t71734 = *((struct w49 *)(&t71733)); return f8992(t71734); l12241: /* x76614 */ /* x76613 */ /* x76612 stalin.sc:4887:166111 */ /* x76611 stalin.sc:4887:166112 */ /* x297429 QobiScheme.sc:166:5314 */ /* x297428 QobiScheme.sc:166:5321 */ t71732 = "This shouldn\'t happen"; /* x297427 QobiScheme.sc:166:5315 */ stalin_panic(t71732);} /* NARROW-CLONES[8984] */ struct w11873 f8984(struct w49 a22325) {struct w11873 r8984; struct w49 a36592; /* S */ struct w49 a38013; /* S */ struct w49 a38123; /* OBJ */ struct w49 t71740; struct w49 t71741; struct w49 t71742; struct w49 t71743; struct w49 t71744; struct w49 t71745; struct w49 t71746; /* x76530 stalin.sc:4868:165394 */ /* x76523 stalin.sc:4868:165398 */ /* x76516 stalin.sc:4868:165403 */ /* x76515 stalin.sc:4868:165427 */ t71740 = a22325; /* x76514 stalin.sc:4868:165404 */ a38123 = t71740; /* x285161 */ /* x285160 */ t71741 = a38123; /* x285159 */ if (!((t71741.tag)==STRUCTURE_TYPE27756)) goto l12243; /* x76521 */ /* x76520 stalin.sc:4869:165440 */ /* x76519 stalin.sc:4869:165480 */ t71742 = a22325; /* x76518 stalin.sc:4869:165441 */ a38013 = t71742; /* x284721 */ /* x284720 */ t71743 = a38013; /* x284719 */ if (!((t71743.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-NARROW-PROTOTYPE[5953] 32930]"); structure_ref_error();} if (!((t71743.value.structure_type27756->s1.tag)==FALSE_TYPE)) goto l12243; /* x76524 stalin.sc:4870:165492 */ r8984.tag = NULL_TYPE; return r8984; l12243: /* x76529 stalin.sc:4871:165501 */ /* x76528 stalin.sc:4871:165528 */ /* x76527 stalin.sc:4871:165546 */ t71746 = a22325; /* x76526 stalin.sc:4871:165529 */ t71744 = f8966(t71746); /* x76525 stalin.sc:4871:165502 */ a36592 = t71744; /* x279037 */ /* x279036 */ t71745 = a36592; /* x279035 */ if ((t71745.tag)==STRUCTURE_TYPE27694) return t71745.value.structure_type27694->s15; backtrace_internal("[clone ENVIRONMENT-NARROW-CLONES[6751] 31509]"); structure_ref_error();} /* WIDE-PROTOTYPE[8976] */ struct w49 f8976(struct w49 a22321) {struct w49 a36589; /* S */ struct w49 a36773; /* OBJ */ struct w49 a38118; /* OBJ */ struct w49 t71747; struct w49 t71748; struct w49 t71749; struct w49 t71750; char *t71751; struct w49 t71752; struct w49 t71753; struct w49 t71754; struct w49 t71755; struct w11873 t71756; unsigned t71757; struct w49 t71758; char *t71759; h8976: /* x76511 stalin.sc:4858:165069 */ /* x76467 stalin.sc:4858:165076 */ /* x76466 stalin.sc:4858:165100 */ t71747 = a22321; /* x76465 stalin.sc:4858:165077 */ a38118 = t71747; /* x285141 */ /* x285140 */ t71748 = a38118; /* x285139 */ if (!((t71748.tag)==STRUCTURE_TYPE27756)) goto l12246; /* x76497 */ /* x76496 */ /* x76495 */ /* x76494 stalin.sc:4859:165106 */ /* x76487 stalin.sc:4859:165114 */ /* x76483 stalin.sc:4859:165125 */ /* x76486 stalin.sc:4861:165201 */ /* x76485 stalin.sc:4861:165216 */ t71758 = a22321; /* x76484 stalin.sc:4861:165202 */ t71756 = f8984(t71758); /* x76474 stalin.sc:4859:165115 */ t71757 = NATIVE_PROCEDURE_TYPE24284; if (f1183(t71757, t71756)==FALSE_TYPE) goto l12250; /* x76489 */ /* x76488 */ goto l12251; l12250: /* x76493 */ /* x76492 */ /* x76491 stalin.sc:4862:165224 */ /* x76490 stalin.sc:4862:165225 */ /* x295069 QobiScheme.sc:166:5314 */ /* x295068 QobiScheme.sc:166:5321 */ t71759 = "This shouldn\'t happen"; /* x295067 QobiScheme.sc:166:5315 */ stalin_panic(t71759); l12251: /* x76473 */ /* x76472 stalin.sc:4863:165236 */ /* x76471 stalin.sc:4863:165252 */ /* x76470 stalin.sc:4863:165270 */ t71755 = a22321; /* x76469 stalin.sc:4863:165253 */ t71754 = f8966(t71755); /* x76468 stalin.sc:4863:165237 */ a22321 = t71754; goto h8976; l12246: /* x76510 */ /* x76500 stalin.sc:4864:165285 */ /* x76499 stalin.sc:4864:165299 */ t71749 = a22321; /* x76498 stalin.sc:4864:165286 */ a36773 = t71749; /* x279761 */ /* x279760 */ t71750 = a36773; /* x279759 */ if (!((t71750.tag)==STRUCTURE_TYPE27694)) goto l12248; /* x76505 */ /* x76504 */ /* x76503 stalin.sc:4864:165304 */ /* x76502 stalin.sc:4864:165332 */ t71752 = a22321; /* x76501 stalin.sc:4864:165305 */ a36589 = t71752; /* x279025 */ /* x279024 */ t71753 = a36589; /* x279023 */ if ((t71753.tag)==STRUCTURE_TYPE27694) return t71753.value.structure_type27694->s16; backtrace_internal("[clone ENVIRONMENT-WIDE-PROTOTYPE[6759] 31506]"); structure_ref_error(); l12248: /* x76509 */ /* x76508 */ /* x76507 stalin.sc:4865:165351 */ /* x76506 stalin.sc:4865:165352 */ /* x297381 QobiScheme.sc:166:5314 */ /* x297380 QobiScheme.sc:166:5321 */ t71751 = "This shouldn\'t happen"; /* x297379 QobiScheme.sc:166:5315 */ stalin_panic(t71751);} /* NARROW-PROTOTYPE[8966] */ struct w49 f8966(struct w49 a22318) {struct w49 a36602; /* S */ struct w49 a36603; /* S */ struct w49 a36604; /* S */ struct w49 a36605; /* S */ struct w49 a36776; /* OBJ */ struct w49 a38007; /* S */ struct w49 a38011; /* S */ struct w49 a38012; /* S */ struct w49 a38122; /* OBJ */ struct w49 t71760; struct w49 t71761; struct w49 t71762; struct w49 t71763; char *t71764; struct w49 t71765; struct w49 t71766; struct w49 t71767; struct w49 t71768; struct w49 t71769; struct w49 t71770; struct w49 t71771; struct w49 t71772; struct w49 t71773; struct w49 t71774; char *t71775; struct w49 t71776; struct w49 t71777; struct w49 t71778; struct w49 t71779; struct w49 t71780; struct w49 t71781; struct w49 t71782; struct w49 t71783; struct w49 t71784; char *t71785; /* x76462 stalin.sc:4841:164457 */ /* x76405 stalin.sc:4841:164464 */ /* x76404 stalin.sc:4841:164488 */ t71760 = a22318; /* x76403 stalin.sc:4841:164465 */ a38122 = t71760; /* x285157 */ /* x285156 */ t71761 = a38122; /* x285155 */ if (!((t71761.tag)==STRUCTURE_TYPE27756)) goto l12253; /* x76429 */ /* x76428 */ /* x76427 */ /* x76426 stalin.sc:4842:164494 */ /* x76419 stalin.sc:4842:164502 */ /* x76413 stalin.sc:4842:164507 */ /* x76412 stalin.sc:4842:164547 */ t71780 = a22318; /* x76411 stalin.sc:4842:164508 */ a38011 = t71780; /* x284713 */ /* x284712 */ t71781 = a38011; /* x284711 */ if (!((t71781.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-NARROW-PROTOTYPE[5953] 32928]"); structure_ref_error();} t71778 = t71781.value.structure_type27756->s1; /* x76418 stalin.sc:4843:164559 */ /* x76417 stalin.sc:4844:164585 */ /* x76416 stalin.sc:4844:164625 */ t71783 = a22318; /* x76415 stalin.sc:4844:164586 */ a38012 = t71783; /* x284717 */ /* x284716 */ t71784 = a38012; /* x284715 */ if (!((t71784.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-NARROW-PROTOTYPE[5953] 32929]"); structure_ref_error();} t71782 = t71784.value.structure_type27756->s1; /* x76414 stalin.sc:4843:164560 */ t71779 = f8966(t71782); /* x270125 stalin.sc:4842:164503 */ /* EQ: dispatching general to general */ if (!((t71778.tag)==(t71779.tag))) goto l12260; switch (t71778.tag) {case FIXNUM_TYPE: if (!((t71778.value.fixnum_type)==(t71779.value.fixnum_type))) goto l12260; break; case FLONUM_TYPE: if (!((t71778.value.flonum_type)==(t71779.value.flonum_type))) goto l12260; break; case INPUT_PORT_TYPE: if (!((t71778.value.input_port_type)==(t71779.value.input_port_type))) goto l12260; break; case OUTPUT_PORT_TYPE: if (!((t71778.value.output_port_type)==(t71779.value.output_port_type))) goto l12260; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t71778.value.native_procedure_type15963)==(t71779.value.native_procedure_type15963))) goto l12260; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t71778.value.native_procedure_type19067)==(t71779.value.native_procedure_type19067))) goto l12260; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t71778.value.native_procedure_type19068)==(t71779.value.native_procedure_type19068))) goto l12260; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t71778.value.native_procedure_type22459)==(t71779.value.native_procedure_type22459))) goto l12260; break; case STRUCTURE_TYPE24753: if (!((t71778.value.structure_type24753)==(t71779.value.structure_type24753))) goto l12260; break; case STRUCTURE_TYPE24757: if (!((t71778.value.structure_type24757)==(t71779.value.structure_type24757))) goto l12260; break; case STRUCTURE_TYPE27501: if (!((t71778.value.structure_type27501)==(t71779.value.structure_type27501))) goto l12260; break; case STRUCTURE_TYPE27510: if (!((t71778.value.structure_type27510)==(t71779.value.structure_type27510))) goto l12260; break; case STRUCTURE_TYPE27621: if (!((t71778.value.structure_type27621)==(t71779.value.structure_type27621))) goto l12260; break; case STRUCTURE_TYPE27650: if (!((t71778.value.structure_type27650)==(t71779.value.structure_type27650))) goto l12260; break; case STRUCTURE_TYPE27669: if (!((t71778.value.structure_type27669)==(t71779.value.structure_type27669))) goto l12260; break; case STRUCTURE_TYPE27673: if (!((t71778.value.structure_type27673)==(t71779.value.structure_type27673))) goto l12260; break; case STRUCTURE_TYPE27692: if (!((t71778.value.structure_type27692)==(t71779.value.structure_type27692))) goto l12260; break; case STRUCTURE_TYPE27694: if (!((t71778.value.structure_type27694)==(t71779.value.structure_type27694))) goto l12260; break; case STRUCTURE_TYPE27698: if (!((t71778.value.structure_type27698)==(t71779.value.structure_type27698))) goto l12260; break; case STRUCTURE_TYPE27745: if (!((t71778.value.structure_type27745)==(t71779.value.structure_type27745))) goto l12260; break; case STRUCTURE_TYPE27747: if (!((t71778.value.structure_type27747)==(t71779.value.structure_type27747))) goto l12260; break; case STRUCTURE_TYPE27750: if (!((t71778.value.structure_type27750)==(t71779.value.structure_type27750))) goto l12260; break; case STRUCTURE_TYPE27753: if (!((t71778.value.structure_type27753)==(t71779.value.structure_type27753))) goto l12260; break; case STRUCTURE_TYPE27756: if (!((t71778.value.structure_type27756)==(t71779.value.structure_type27756))) goto l12260; break; case STRUCTURE_TYPE27761: if (!((t71778.value.structure_type27761)==(t71779.value.structure_type27761))) goto l12260; break; case STRUCTURE_TYPE27769: if (!((t71778.value.structure_type27769)==(t71779.value.structure_type27769))) goto l12260; break; case STRUCTURE_TYPE27776: if (!((t71778.value.structure_type27776)==(t71779.value.structure_type27776))) goto l12260; break; case STRUCTURE_TYPE27779: if (!((t71778.value.structure_type27779)==(t71779.value.structure_type27779))) goto l12260; break; case STRUCTURE_TYPE27858: if (!((t71778.value.structure_type27858)==(t71779.value.structure_type27858))) goto l12260; break; case STRING_TYPE: if (!((t71778.value.string_type)==(t71779.value.string_type))) goto l12260; break; case HEADED_VECTOR_TYPE27896: if (!((t71778.value.headed_vector_type27896)==(t71779.value.headed_vector_type27896))) goto l12260; break; case EXTERNAL_SYMBOL_TYPE: if (!((t71778.value.external_symbol_type)==(t71779.value.external_symbol_type))) goto l12260; break; case STRUCTURE_TYPE27908: if (!((t71778.value.structure_type27908)==(t71779.value.structure_type27908))) goto l12260; break; default:;} /* x76421 */ /* x76420 */ goto l12261; l12260: /* x76425 */ /* x76424 */ /* x76423 stalin.sc:4845:164634 */ /* x76422 stalin.sc:4845:164635 */ /* x296413 QobiScheme.sc:166:5314 */ /* x296412 QobiScheme.sc:166:5321 */ t71785 = "This shouldn\'t happen"; /* x296411 QobiScheme.sc:166:5315 */ stalin_panic(t71785); l12261: /* x76409 */ /* x76408 stalin.sc:4846:164646 */ /* x76407 stalin.sc:4846:164686 */ t71776 = a22318; /* x76406 stalin.sc:4846:164647 */ a38007 = t71776; /* x284697 */ /* x284696 */ t71777 = a38007; /* x284695 */ if ((t71777.tag)==STRUCTURE_TYPE27756) return t71777.value.structure_type27756->s1; backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-NARROW-PROTOTYPE[5953] 32924]"); structure_ref_error(); l12253: /* x76461 */ /* x76432 stalin.sc:4847:164700 */ /* x76431 stalin.sc:4847:164714 */ t71762 = a22318; /* x76430 stalin.sc:4847:164701 */ a36776 = t71762; /* x279773 */ /* x279772 */ t71763 = a36776; /* x279771 */ if (!((t71763.tag)==STRUCTURE_TYPE27694)) goto l12255; /* x76456 */ /* x76455 */ /* x76454 */ /* x76453 stalin.sc:4848:164720 */ /* x76446 stalin.sc:4848:164728 */ /* x76440 stalin.sc:4848:164733 */ /* x76439 stalin.sc:4848:164763 */ t71769 = a22318; /* x76438 stalin.sc:4848:164734 */ a36604 = t71769; /* x279085 */ /* x279084 */ t71770 = a36604; /* x279083 */ if (!((t71770.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NARROW-PROTOTYPE[6743] 31521]"); structure_ref_error();} t71767 = t71770.value.structure_type27694->s14; /* x76445 stalin.sc:4849:164775 */ /* x76444 stalin.sc:4850:164813 */ /* x76443 stalin.sc:4850:164843 */ t71773 = a22318; /* x76442 stalin.sc:4850:164814 */ a36605 = t71773; /* x279089 */ /* x279088 */ t71774 = a36605; /* x279087 */ if (!((t71774.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NARROW-PROTOTYPE[6743] 31522]"); structure_ref_error();} t71771 = t71774.value.structure_type27694->s14; /* x76441 stalin.sc:4849:164776 */ a36603 = t71771; /* x279081 */ /* x279080 */ t71772 = a36603; /* x279079 */ if (!((t71772.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NARROW-PROTOTYPE[6743] 31520]"); structure_ref_error();} t71768 = t71772.value.structure_type27694->s14; /* x270124 stalin.sc:4848:164729 */ /* EQ: dispatching general to general */ if (!((t71767.tag)==(t71768.tag))) goto l12257; switch (t71767.tag) {case FIXNUM_TYPE: if (!((t71767.value.fixnum_type)==(t71768.value.fixnum_type))) goto l12257; break; case FLONUM_TYPE: if (!((t71767.value.flonum_type)==(t71768.value.flonum_type))) goto l12257; break; case INPUT_PORT_TYPE: if (!((t71767.value.input_port_type)==(t71768.value.input_port_type))) goto l12257; break; case OUTPUT_PORT_TYPE: if (!((t71767.value.output_port_type)==(t71768.value.output_port_type))) goto l12257; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t71767.value.native_procedure_type15963)==(t71768.value.native_procedure_type15963))) goto l12257; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t71767.value.native_procedure_type19067)==(t71768.value.native_procedure_type19067))) goto l12257; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t71767.value.native_procedure_type19068)==(t71768.value.native_procedure_type19068))) goto l12257; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t71767.value.native_procedure_type22459)==(t71768.value.native_procedure_type22459))) goto l12257; break; case STRUCTURE_TYPE24753: if (!((t71767.value.structure_type24753)==(t71768.value.structure_type24753))) goto l12257; break; case STRUCTURE_TYPE24757: if (!((t71767.value.structure_type24757)==(t71768.value.structure_type24757))) goto l12257; break; case STRUCTURE_TYPE27501: if (!((t71767.value.structure_type27501)==(t71768.value.structure_type27501))) goto l12257; break; case STRUCTURE_TYPE27510: if (!((t71767.value.structure_type27510)==(t71768.value.structure_type27510))) goto l12257; break; case STRUCTURE_TYPE27621: if (!((t71767.value.structure_type27621)==(t71768.value.structure_type27621))) goto l12257; break; case STRUCTURE_TYPE27650: if (!((t71767.value.structure_type27650)==(t71768.value.structure_type27650))) goto l12257; break; case STRUCTURE_TYPE27669: if (!((t71767.value.structure_type27669)==(t71768.value.structure_type27669))) goto l12257; break; case STRUCTURE_TYPE27673: if (!((t71767.value.structure_type27673)==(t71768.value.structure_type27673))) goto l12257; break; case STRUCTURE_TYPE27692: if (!((t71767.value.structure_type27692)==(t71768.value.structure_type27692))) goto l12257; break; case STRUCTURE_TYPE27694: if (!((t71767.value.structure_type27694)==(t71768.value.structure_type27694))) goto l12257; break; case STRUCTURE_TYPE27698: if (!((t71767.value.structure_type27698)==(t71768.value.structure_type27698))) goto l12257; break; case STRUCTURE_TYPE27745: if (!((t71767.value.structure_type27745)==(t71768.value.structure_type27745))) goto l12257; break; case STRUCTURE_TYPE27747: if (!((t71767.value.structure_type27747)==(t71768.value.structure_type27747))) goto l12257; break; case STRUCTURE_TYPE27750: if (!((t71767.value.structure_type27750)==(t71768.value.structure_type27750))) goto l12257; break; case STRUCTURE_TYPE27753: if (!((t71767.value.structure_type27753)==(t71768.value.structure_type27753))) goto l12257; break; case STRUCTURE_TYPE27756: if (!((t71767.value.structure_type27756)==(t71768.value.structure_type27756))) goto l12257; break; case STRUCTURE_TYPE27761: if (!((t71767.value.structure_type27761)==(t71768.value.structure_type27761))) goto l12257; break; case STRUCTURE_TYPE27769: if (!((t71767.value.structure_type27769)==(t71768.value.structure_type27769))) goto l12257; break; case STRUCTURE_TYPE27776: if (!((t71767.value.structure_type27776)==(t71768.value.structure_type27776))) goto l12257; break; case STRUCTURE_TYPE27779: if (!((t71767.value.structure_type27779)==(t71768.value.structure_type27779))) goto l12257; break; case STRUCTURE_TYPE27858: if (!((t71767.value.structure_type27858)==(t71768.value.structure_type27858))) goto l12257; break; case STRING_TYPE: if (!((t71767.value.string_type)==(t71768.value.string_type))) goto l12257; break; case HEADED_VECTOR_TYPE27896: if (!((t71767.value.headed_vector_type27896)==(t71768.value.headed_vector_type27896))) goto l12257; break; case EXTERNAL_SYMBOL_TYPE: if (!((t71767.value.external_symbol_type)==(t71768.value.external_symbol_type))) goto l12257; break; case STRUCTURE_TYPE27908: if (!((t71767.value.structure_type27908)==(t71768.value.structure_type27908))) goto l12257; break; default:;} /* x76448 */ /* x76447 */ goto l12258; l12257: /* x76452 */ /* x76451 */ /* x76450 stalin.sc:4851:164852 */ /* x76449 stalin.sc:4851:164853 */ /* x296921 QobiScheme.sc:166:5314 */ /* x296920 QobiScheme.sc:166:5321 */ t71775 = "This shouldn\'t happen"; /* x296919 QobiScheme.sc:166:5315 */ stalin_panic(t71775); l12258: /* x76436 */ /* x76435 stalin.sc:4852:164864 */ /* x76434 stalin.sc:4852:164894 */ t71765 = a22318; /* x76433 stalin.sc:4852:164865 */ a36602 = t71765; /* x279077 */ /* x279076 */ t71766 = a36602; /* x279075 */ if ((t71766.tag)==STRUCTURE_TYPE27694) return t71766.value.structure_type27694->s14; backtrace_internal("[clone ENVIRONMENT-NARROW-PROTOTYPE[6743] 31519]"); structure_ref_error(); l12255: /* x76460 */ /* x76459 */ /* x76458 stalin.sc:4853:164913 */ /* x76457 stalin.sc:4853:164914 */ /* x297413 QobiScheme.sc:166:5314 */ /* x297412 QobiScheme.sc:166:5321 */ t71764 = "This shouldn\'t happen"; /* x297411 QobiScheme.sc:166:5315 */ stalin_panic(t71764);} /* PARENT-PARAMETER[8965] */ struct w49 f8965(struct w49 a22317) {struct w49 a20618; /* S */ struct w49 t71786; struct w49 t71787; struct w49 t71788; /* x76400 stalin.sc:4838:164369 */ /* x76399 stalin.sc:4838:164399 */ /* x76398 stalin.sc:4838:164417 */ t71788 = a22317; /* x76397 stalin.sc:4838:164400 */ t71786 = f8966(t71788); /* x76396 stalin.sc:4838:164370 */ a20618 = t71786; /* x55691 */ /* x55690 */ t71787 = a20618; /* x55689 */ if ((t71787.tag)==STRUCTURE_TYPE27694) return t71787.value.structure_type27694->s9; backtrace_internal("ENVIRONMENT-PARENT-PARAMETER[6703]"); structure_ref_error();} /* ANCESTORS[8951] */ struct w3457 f8951(struct w49 a22309) {struct w49 a20638; /* S */ struct w49 a36769; /* OBJ */ struct w49 a38107; /* OBJ */ struct w49 t71789; struct w49 t71790; struct w49 t71791; struct w49 t71792; char *t71793; struct w49 t71794; struct w49 t71795; struct w49 t71796; struct w49 t71797; char *t71798; struct w49 t71799; struct w49 t71800; struct w11873 t71801; unsigned t71802; struct w49 t71803; char *t71804; h8951: /* x76393 stalin.sc:4815:163232 */ /* x76307 stalin.sc:4815:163239 */ /* x76306 stalin.sc:4815:163263 */ t71789 = a22309; /* x76305 stalin.sc:4815:163240 */ a38107 = t71789; /* x285097 */ /* x285096 */ t71790 = a38107; /* x285095 */ if (!((t71790.tag)==STRUCTURE_TYPE27756)) goto l12263; /* x76357 */ /* x76356 */ /* x76355 */ /* x76354 stalin.sc:4816:163269 */ /* x76347 stalin.sc:4816:163277 */ /* x76343 stalin.sc:4816:163288 */ /* x76346 stalin.sc:4820:163433 */ /* x76345 stalin.sc:4820:163448 */ t71803 = a22309; /* x76344 stalin.sc:4820:163434 */ t71801 = f8984(t71803); /* x76314 stalin.sc:4816:163278 */ t71802 = NATIVE_PROCEDURE_TYPE24300; if (f1183(t71802, t71801)==FALSE_TYPE) goto l12271; /* x76349 */ /* x76348 */ goto l12272; l12271: /* x76353 */ /* x76352 */ /* x76351 stalin.sc:4821:163456 */ /* x76350 stalin.sc:4821:163457 */ /* x295061 QobiScheme.sc:166:5314 */ /* x295060 QobiScheme.sc:166:5321 */ t71804 = "This shouldn\'t happen"; /* x295059 QobiScheme.sc:166:5315 */ stalin_panic(t71804); l12272: /* x76313 */ /* x76312 stalin.sc:4822:163468 */ /* x76311 stalin.sc:4822:163479 */ /* x76310 stalin.sc:4822:163497 */ t71800 = a22309; /* x76309 stalin.sc:4822:163480 */ t71799 = f8966(t71800); /* x76308 stalin.sc:4822:163469 */ a22309 = t71799; goto h8951; l12263: /* x76392 */ /* x76360 stalin.sc:4823:163512 */ /* x76359 stalin.sc:4823:163526 */ t71791 = a22309; /* x76358 stalin.sc:4823:163513 */ a36769 = t71791; /* x279745 */ /* x279744 */ t71792 = a36769; /* x279743 */ if (!((t71792.tag)==STRUCTURE_TYPE27694)) goto l12265; /* x76387 */ /* x76386 */ /* x76385 */ /* x76384 stalin.sc:4824:163532 */ /* x76377 stalin.sc:4824:163538 */ /* x76376 stalin.sc:4824:163542 */ /* x76375 stalin.sc:4824:163550 */ t71796 = a22309; /* x76374 stalin.sc:4824:163543 */ if (!(f8581(t71796)==FALSE_TYPE)) goto l12266; /* x76371 */ /* x76370 stalin.sc:4824:163560 */ /* x76369 stalin.sc:4824:163579 */ t71797 = a22309; /* x76368 stalin.sc:4824:163561 */ if (!(f8526(t71797)==FALSE_TYPE)) goto l12267; l12266: /* x76381 */ /* x76380 */ /* x76379 stalin.sc:4824:163586 */ /* x76378 stalin.sc:4824:163587 */ /* x296913 QobiScheme.sc:166:5314 */ /* x296912 QobiScheme.sc:166:5321 */ t71798 = "This shouldn\'t happen"; /* x296911 QobiScheme.sc:166:5315 */ stalin_panic(t71798); goto l12268; l12267: /* x76383 stalin.sc:4824:163532 */ /* x76382 stalin.sc:4824:163532 */ l12268: /* x76364 */ /* x76363 stalin.sc:4825:163598 */ /* x76362 stalin.sc:4825:163621 */ t71794 = a22309; /* x76361 stalin.sc:4825:163599 */ a20638 = t71794; /* x55769 */ /* x55768 */ t71795 = a20638; /* x55767 */ if ((t71795.tag)==STRUCTURE_TYPE27694) return t71795.value.structure_type27694->s11; backtrace_internal("ENVIRONMENT-ANCESTORS[6719]"); structure_ref_error(); l12265: /* x76391 */ /* x76390 */ /* x76389 stalin.sc:4826:163640 */ /* x76388 stalin.sc:4826:163641 */ /* x296917 QobiScheme.sc:166:5314 */ /* x296916 QobiScheme.sc:166:5321 */ t71793 = "This shouldn\'t happen"; /* x296915 QobiScheme.sc:166:5315 */ stalin_panic(t71793);} /* CONVERTED?[8944] */ unsigned f8944(struct w49 a22307) {struct w49 a36476; /* S */ struct w49 a36497; /* OBJ */ struct w49 a36721; /* S */ struct w49 a36775; /* OBJ */ struct w49 a40361; /* S */ struct w49 a40399; /* S */ struct w49 a40456; /* OBJ */ struct w49 t71805; struct w49 t71806; struct w49 t71807; struct w49 t71808; struct w49 t71809; struct w49 t71810; struct w49 t71811; char *t71812; struct w49 t71813; struct w49 t71814; struct w49 t71815; struct w49 t71816; struct w49 t71817; char *t71818; char *t71819; struct w49 t71820; struct w49 t71821; char *t71822; char *t71823; struct w49 t71824; struct w49 t71825; struct w6852 t71826; struct w49 t71827; struct w49 t71828; h8944: /* x76302 stalin.sc:4798:162536 */ /* x76240 stalin.sc:4798:162543 */ /* x76239 stalin.sc:4798:162557 */ t71805 = a22307; /* x76238 stalin.sc:4798:162544 */ a36775 = t71805; /* x279769 */ /* x279768 */ t71806 = a36775; /* x279767 */ if (!((t71806.tag)==STRUCTURE_TYPE27694)) goto l12274; /* x76247 */ /* x76246 */ /* x76245 stalin.sc:4798:162564 */ /* x76244 stalin.sc:4798:162576 */ /* x76243 stalin.sc:4798:162600 */ t71827 = a22307; /* x76242 stalin.sc:4798:162577 */ a36721 = t71827; /* x279553 */ /* x279552 */ t71828 = a36721; /* x279551 */ if (!((t71828.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31638]"); structure_ref_error();} t71826 = t71828.value.structure_type27694->s1; /* x76241 stalin.sc:4798:162565 */ a22307 = *((struct w49 *)(&t71826)); goto h8944; l12274: /* x76301 */ /* x76250 stalin.sc:4799:162617 */ /* x76249 stalin.sc:4799:162630 */ t71807 = a22307; /* x76248 stalin.sc:4799:162618 */ a40456 = t71807; /* x294493 */ /* x294492 */ t71808 = a40456; /* x294491 */ if (!((t71808.tag)==STRUCTURE_TYPE27698)) goto l12276; /* x76269 */ /* x76268 */ /* x76267 stalin.sc:4800:162638 */ /* x76267 stalin.sc:4800:162638 */ /* x76266 stalin.sc:4800:162642 */ /* x76264 stalin.sc:4800:162647 */ /* x76263 stalin.sc:4800:162664 */ t71820 = a22307; /* x76262 stalin.sc:4800:162648 */ a40399 = t71820; /* x294265 */ /* x294264 */ t71821 = a40399; /* x294263 */ if (!((t71821.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35316]"); structure_ref_error();} t71818 = t71821.value.structure_type27698->s0; /* x76265 stalin.sc:4800:162671 */ t71819 = q37; /* x270130 stalin.sc:4800:162643 */ if (t71818==t71819) goto l12285; /* x76258 */ /* x76256 stalin.sc:4801:162698 */ /* x76255 stalin.sc:4801:162715 */ t71824 = a22307; /* x76254 stalin.sc:4801:162699 */ a40361 = t71824; /* x294113 */ /* x294112 */ t71825 = a40361; /* x294111 */ if (!((t71825.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35278]"); structure_ref_error();} t71822 = t71825.value.structure_type27698->s0; /* x76257 stalin.sc:4801:162722 */ t71823 = q40; /* x270131 stalin.sc:4801:162694 */ if (!(t71822==t71823)) goto l12286; l12285: return TRUE_TYPE; l12286: return FALSE_TYPE; l12276: /* x76300 */ /* x76272 stalin.sc:4802:162751 */ /* x76271 stalin.sc:4802:162763 */ t71809 = a22307; /* x76270 stalin.sc:4802:162752 */ a36497 = t71809; /* x278657 */ /* x278656 */ t71810 = a36497; /* x278655 */ if (!((t71810.tag)==STRUCTURE_TYPE27745)) goto l12278; /* x76286 */ /* x76285 */ /* x76284 stalin.sc:4803:162771 */ /* x76284 stalin.sc:4803:162771 */ /* x76277 stalin.sc:4803:162776 */ /* x76276 stalin.sc:4803:162781 */ /* x76275 stalin.sc:4803:162815 */ t71814 = a22307; /* x76274 stalin.sc:4803:162782 */ if (!(f8755(t71814)==FALSE_TYPE)) goto l12282; /* x76282 */ /* x76281 stalin.sc:4806:162945 */ /* x76280 stalin.sc:4806:162967 */ t71816 = a22307; /* x76279 stalin.sc:4806:162946 */ a36476 = t71816; /* x278573 */ /* x278572 */ t71817 = a36476; /* x278571 */ if (!((t71817.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31393]"); structure_ref_error();} t71815 = t71817.value.structure_type27745->s0; /* x76278 stalin.sc:4806:162934 */ a22307 = t71815; goto h8944; return TRUE_TYPE; l12282: return FALSE_TYPE; l12278: /* x76299 */ /* x76289 stalin.sc:4807:162985 */ /* x76288 stalin.sc:4807:163007 */ t71811 = a22307; /* x76287 stalin.sc:4807:162986 */ if (f8751(t71811)==FALSE_TYPE) goto l12280; /* x76294 */ /* x76293 */ /* x76292 stalin.sc:4807:163014 */ /* x76291 stalin.sc:4807:163026 */ t71813 = a2026; /* x76290 stalin.sc:4807:163015 */ a22307 = t71813; goto h8944; l12280: /* x76298 */ /* x76297 */ /* x76296 stalin.sc:4808:163045 */ /* x76295 stalin.sc:4808:163046 */ /* x297409 QobiScheme.sc:166:5314 */ /* x297408 QobiScheme.sc:166:5321 */ t71812 = "This shouldn\'t happen"; /* x297407 QobiScheme.sc:166:5315 */ stalin_panic(t71812);} /* REST?[8931] */ unsigned f8931(struct w49 a22302) {struct w49 a36719; /* S */ struct w49 a36772; /* OBJ */ struct w49 a38108; /* OBJ */ struct w49 a39438; /* S */ struct w49 a40354; /* S */ struct w49 a40355; /* S */ struct w49 a40356; /* S */ struct w49 a40432; /* OBJ */ struct w49 t71829; struct w49 t71830; struct w49 t71831; struct w49 t71832; struct w49 t71833; struct w49 t71834; char *t71835; struct w9296 t71836; struct w49 t71837; struct w49 t71838; struct w49 t71839; char *t71840; char *t71841; struct w49 t71842; struct w49 t71843; char *t71844; char *t71845; struct w49 t71846; struct w49 t71847; char *t71848; char *t71849; struct w49 t71850; struct w49 t71851; char *t71852; struct w6852 t71853; struct w49 t71854; struct w49 t71855; struct w49 t71856; struct w49 t71857; struct w11873 t71858; struct w228345 t71859; struct w49 t71860; struct structure_type24753 *t71861; struct w49 t71862; struct w11873 t71863; struct w228245 t71864; struct w49 t71865; struct structure_type24753 *t71866; struct w49 t71867; char *t71868; h8931: /* x76235 stalin.sc:4779:161756 */ /* x76137 stalin.sc:4779:161763 */ /* x76136 stalin.sc:4779:161787 */ t71829 = a22302; /* x76135 stalin.sc:4779:161764 */ a38108 = t71829; /* x285101 */ /* x285100 */ t71830 = a38108; /* x285099 */ if (!((t71830.tag)==STRUCTURE_TYPE27756)) goto l12290; /* x76169 */ /* x76168 */ /* x76167 */ /* x76166 stalin.sc:4782:161910 */ /* x76159 stalin.sc:4782:161916 */ /* x76149 stalin.sc:4782:161921 */ /* x76148 stalin.sc:4782:161933 */ /* x76147 stalin.sc:4782:161948 */ t71862 = a22302; /* x76146 stalin.sc:4782:161934 */ t71858 = f8984(t71862); /* x76145 stalin.sc:4782:161927 */ /* x76144 stalin.sc:4782:161922 */ t71859.tag = NATIVE_PROCEDURE_TYPE7221; t71860 = *((struct w49 *)(&t71858)); t71861 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t71859, t71860, t71861).tag)==FALSE_TYPE) goto l12304; /* x76157 */ /* x76156 stalin.sc:4783:161966 */ /* x76155 stalin.sc:4783:161979 */ /* x76154 stalin.sc:4783:161994 */ t71867 = a22302; /* x76153 stalin.sc:4783:161980 */ t71863 = f8984(t71867); /* x76152 stalin.sc:4783:161973 */ /* x76151 stalin.sc:4783:161967 */ t71864.tag = NATIVE_PROCEDURE_TYPE7221; t71865 = *((struct w49 *)(&t71863)); t71866 = (struct structure_type24753 *)NULL_TYPE; if (!(f1061(t71864, t71865, t71866)==FALSE_TYPE)) goto l12304; /* x76163 */ /* x76162 */ /* x76161 stalin.sc:4784:162006 */ /* x76160 stalin.sc:4784:162007 */ /* x295065 QobiScheme.sc:166:5314 */ /* x295064 QobiScheme.sc:166:5321 */ t71868 = "This shouldn\'t happen"; /* x295063 QobiScheme.sc:166:5315 */ stalin_panic(t71868); goto l12305; l12304: /* x76165 stalin.sc:4782:161910 */ /* x76164 stalin.sc:4782:161910 */ l12305: /* x76143 */ /* x76142 stalin.sc:4785:162018 */ /* x76141 stalin.sc:4785:162025 */ /* x76140 stalin.sc:4785:162043 */ t71857 = a22302; /* x76139 stalin.sc:4785:162026 */ t71856 = f8966(t71857); /* x76138 stalin.sc:4785:162019 */ a22302 = t71856; goto h8931; l12290: /* x76234 */ /* x76172 stalin.sc:4786:162060 */ /* x76171 stalin.sc:4786:162074 */ t71831 = a22302; /* x76170 stalin.sc:4786:162061 */ a36772 = t71831; /* x279757 */ /* x279756 */ t71832 = a36772; /* x279755 */ if (!((t71832.tag)==STRUCTURE_TYPE27694)) goto l12292; /* x76179 */ /* x76178 */ /* x76177 stalin.sc:4786:162081 */ /* x76176 stalin.sc:4786:162088 */ /* x76175 stalin.sc:4786:162112 */ t71854 = a22302; /* x76174 stalin.sc:4786:162089 */ a36719 = t71854; /* x279545 */ /* x279544 */ t71855 = a36719; /* x279543 */ if (!((t71855.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31636]"); structure_ref_error();} t71853 = t71855.value.structure_type27694->s1; /* x76173 stalin.sc:4786:162082 */ a22302 = *((struct w49 *)(&t71853)); goto h8931; l12292: /* x76233 */ /* x76182 stalin.sc:4787:162129 */ /* x76181 stalin.sc:4787:162142 */ t71833 = a22302; /* x76180 stalin.sc:4787:162130 */ a40432 = t71833; /* x294397 */ /* x294396 */ t71834 = a40432; /* x294395 */ if (!((t71834.tag)==STRUCTURE_TYPE27698)) goto l12294; /* x76228 */ /* x76227 */ /* x76226 */ /* x76225 stalin.sc:4788:162150 */ /* x76218 stalin.sc:4788:162158 */ /* x76217 stalin.sc:4788:162162 */ /* x76215 stalin.sc:4788:162167 */ /* x76214 stalin.sc:4788:162184 */ t71842 = a22302; /* x76213 stalin.sc:4788:162168 */ a40356 = t71842; /* x294093 */ /* x294092 */ t71843 = a40356; /* x294091 */ if (!((t71843.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35273]"); structure_ref_error();} t71840 = t71843.value.structure_type27698->s0; /* x76216 stalin.sc:4788:162191 */ t71841 = q39; /* x270132 stalin.sc:4788:162163 */ if (t71840==t71841) goto l12298; /* x76209 */ /* x76208 stalin.sc:4789:162206 */ /* x76206 stalin.sc:4789:162211 */ /* x76205 stalin.sc:4789:162228 */ t71846 = a22302; /* x76204 stalin.sc:4789:162212 */ a40355 = t71846; /* x294089 */ /* x294088 */ t71847 = a40355; /* x294087 */ if (!((t71847.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35272]"); structure_ref_error();} t71844 = t71847.value.structure_type27698->s0; /* x76207 stalin.sc:4789:162235 */ t71845 = q40; /* x270133 stalin.sc:4789:162207 */ if (t71844==t71845) goto l12298; /* x76200 */ /* x76198 stalin.sc:4790:162265 */ /* x76197 stalin.sc:4790:162282 */ t71850 = a22302; /* x76196 stalin.sc:4790:162266 */ a40354 = t71850; /* x294085 */ /* x294084 */ t71851 = a40354; /* x294083 */ if (!((t71851.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35271]"); structure_ref_error();} t71848 = t71851.value.structure_type27698->s0; /* x76199 stalin.sc:4790:162289 */ t71849 = q41; /* x270134 stalin.sc:4790:162261 */ if (!(t71848==t71849)) goto l12299; l12298: /* x76220 */ /* x76219 */ goto l12300; l12299: /* x76224 */ /* x76223 */ /* x76222 stalin.sc:4791:162317 */ /* x76221 stalin.sc:4791:162318 */ /* x296937 QobiScheme.sc:166:5314 */ /* x296936 QobiScheme.sc:166:5321 */ t71852 = "This shouldn\'t happen"; /* x296935 QobiScheme.sc:166:5315 */ stalin_panic(t71852); l12300: /* x76190 */ /* x76189 stalin.sc:4792:162329 */ /* x76189 stalin.sc:4792:162329 */ /* x76188 stalin.sc:4792:162334 */ /* x76187 stalin.sc:4792:162341 */ /* x76186 stalin.sc:4792:162364 */ t71838 = a22302; /* x76185 stalin.sc:4792:162342 */ a39438 = t71838; /* x290421 */ /* x290420 */ t71839 = a39438; /* x290419 */ if (!((t71839.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34355]"); structure_ref_error();} t71836 = t71839.value.structure_type27698->s14; /* x76184 stalin.sc:4792:162335 */ t71837 = *((struct w49 *)(&t71836)); if (!(f26209(t71837)==FALSE_TYPE)) goto l12296; return TRUE_TYPE; l12296: return FALSE_TYPE; l12294: /* x76232 */ /* x76231 */ /* x76230 stalin.sc:4793:162387 */ /* x76229 stalin.sc:4793:162388 */ /* x296941 QobiScheme.sc:166:5314 */ /* x296940 QobiScheme.sc:166:5321 */ t71835 = "This shouldn\'t happen"; /* x296939 QobiScheme.sc:166:5315 */ stalin_panic(t71835);} /* NOOP?[8918] */ unsigned f8918(struct w49 a22297) {struct w49 a36720; /* S */ struct w49 a36774; /* OBJ */ struct w49 a38119; /* OBJ */ struct w49 a39242; /* S */ struct w49 a40359; /* S */ struct w49 a40360; /* S */ struct w49 a40398; /* S */ struct w49 a40433; /* OBJ */ struct w49 a40455; /* OBJ */ struct w49 t71869; struct w49 t71870; struct w49 t71871; struct w49 t71872; struct w49 t71873; struct w49 t71874; char *t71875; struct w49 t71876; struct w49 t71877; struct w49 t71878; struct w49 t71879; char *t71880; char *t71881; struct w49 t71882; struct w49 t71883; char *t71884; char *t71885; struct w49 t71886; struct w49 t71887; char *t71888; char *t71889; struct w49 t71890; struct w49 t71891; char *t71892; struct w6852 t71893; struct w49 t71894; struct w49 t71895; struct w49 t71896; struct w49 t71897; struct w11873 t71898; struct w228345 t71899; struct w49 t71900; struct structure_type24753 *t71901; struct w49 t71902; struct w11873 t71903; struct w228245 t71904; struct w49 t71905; struct structure_type24753 *t71906; struct w49 t71907; char *t71908; h8918: /* x76132 stalin.sc:4762:161088 */ /* x76034 stalin.sc:4762:161095 */ /* x76033 stalin.sc:4762:161119 */ t71869 = a22297; /* x76032 stalin.sc:4762:161096 */ a38119 = t71869; /* x285145 */ /* x285144 */ t71870 = a38119; /* x285143 */ if (!((t71870.tag)==STRUCTURE_TYPE27756)) goto l12308; /* x76066 */ /* x76065 */ /* x76064 */ /* x76063 stalin.sc:4765:161242 */ /* x76056 stalin.sc:4765:161248 */ /* x76046 stalin.sc:4765:161253 */ /* x76045 stalin.sc:4765:161265 */ /* x76044 stalin.sc:4765:161280 */ t71902 = a22297; /* x76043 stalin.sc:4765:161266 */ t71898 = f8984(t71902); /* x76042 stalin.sc:4765:161259 */ /* x76041 stalin.sc:4765:161254 */ t71899.tag = NATIVE_PROCEDURE_TYPE7222; t71900 = *((struct w49 *)(&t71898)); t71901 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t71899, t71900, t71901).tag)==FALSE_TYPE) goto l12322; /* x76054 */ /* x76053 stalin.sc:4766:161298 */ /* x76052 stalin.sc:4766:161311 */ /* x76051 stalin.sc:4766:161326 */ t71907 = a22297; /* x76050 stalin.sc:4766:161312 */ t71903 = f8984(t71907); /* x76049 stalin.sc:4766:161305 */ /* x76048 stalin.sc:4766:161299 */ t71904.tag = NATIVE_PROCEDURE_TYPE7222; t71905 = *((struct w49 *)(&t71903)); t71906 = (struct structure_type24753 *)NULL_TYPE; if (!(f1061(t71904, t71905, t71906)==FALSE_TYPE)) goto l12322; /* x76060 */ /* x76059 */ /* x76058 stalin.sc:4767:161338 */ /* x76057 stalin.sc:4767:161339 */ /* x296773 QobiScheme.sc:166:5314 */ /* x296772 QobiScheme.sc:166:5321 */ t71908 = "This shouldn\'t happen"; /* x296771 QobiScheme.sc:166:5315 */ stalin_panic(t71908); goto l12323; l12322: /* x76062 stalin.sc:4765:161242 */ /* x76061 stalin.sc:4765:161242 */ l12323: /* x76040 */ /* x76039 stalin.sc:4768:161350 */ /* x76038 stalin.sc:4768:161357 */ /* x76037 stalin.sc:4768:161375 */ t71897 = a22297; /* x76036 stalin.sc:4768:161358 */ t71896 = f8966(t71897); /* x76035 stalin.sc:4768:161351 */ a22297 = t71896; goto h8918; l12308: /* x76131 */ /* x76069 stalin.sc:4769:161392 */ /* x76068 stalin.sc:4769:161406 */ t71871 = a22297; /* x76067 stalin.sc:4769:161393 */ a36774 = t71871; /* x279765 */ /* x279764 */ t71872 = a36774; /* x279763 */ if (!((t71872.tag)==STRUCTURE_TYPE27694)) goto l12310; /* x76076 */ /* x76075 */ /* x76074 stalin.sc:4769:161413 */ /* x76073 stalin.sc:4769:161420 */ /* x76072 stalin.sc:4769:161444 */ t71894 = a22297; /* x76071 stalin.sc:4769:161421 */ a36720 = t71894; /* x279549 */ /* x279548 */ t71895 = a36720; /* x279547 */ if (!((t71895.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31637]"); structure_ref_error();} t71893 = t71895.value.structure_type27694->s1; /* x76070 stalin.sc:4769:161414 */ a22297 = *((struct w49 *)(&t71893)); goto h8918; l12310: /* x76130 */ /* x76079 stalin.sc:4770:161461 */ /* x76078 stalin.sc:4770:161474 */ t71873 = a22297; /* x76077 stalin.sc:4770:161462 */ a40455 = t71873; /* x294489 */ /* x294488 */ t71874 = a40455; /* x294487 */ if (!((t71874.tag)==STRUCTURE_TYPE27698)) goto l12312; /* x76125 */ /* x76124 */ /* x76123 */ /* x76122 stalin.sc:4771:161482 */ /* x76115 stalin.sc:4771:161490 */ /* x76114 stalin.sc:4771:161494 */ /* x76112 stalin.sc:4771:161499 */ /* x76111 stalin.sc:4771:161516 */ t71882 = a22297; /* x76110 stalin.sc:4771:161500 */ a40398 = t71882; /* x294261 */ /* x294260 */ t71883 = a40398; /* x294259 */ if (!((t71883.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35315]"); structure_ref_error();} t71880 = t71883.value.structure_type27698->s0; /* x76113 stalin.sc:4771:161523 */ t71881 = q39; /* x270137 stalin.sc:4771:161495 */ if (t71880==t71881) goto l12316; /* x76106 */ /* x76105 stalin.sc:4772:161538 */ /* x76103 stalin.sc:4772:161543 */ /* x76102 stalin.sc:4772:161560 */ t71886 = a22297; /* x76101 stalin.sc:4772:161544 */ a40360 = t71886; /* x294109 */ /* x294108 */ t71887 = a40360; /* x294107 */ if (!((t71887.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35277]"); structure_ref_error();} t71884 = t71887.value.structure_type27698->s0; /* x76104 stalin.sc:4772:161567 */ t71885 = q40; /* x270138 stalin.sc:4772:161539 */ if (t71884==t71885) goto l12316; /* x76097 */ /* x76095 stalin.sc:4773:161597 */ /* x76094 stalin.sc:4773:161614 */ t71890 = a22297; /* x76093 stalin.sc:4773:161598 */ a40359 = t71890; /* x294105 */ /* x294104 */ t71891 = a40359; /* x294103 */ if (!((t71891.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35276]"); structure_ref_error();} t71888 = t71891.value.structure_type27698->s0; /* x76096 stalin.sc:4773:161621 */ t71889 = q41; /* x270139 stalin.sc:4773:161593 */ if (!(t71888==t71889)) goto l12317; l12316: /* x76117 */ /* x76116 */ goto l12318; l12317: /* x76121 */ /* x76120 */ /* x76119 stalin.sc:4774:161649 */ /* x76118 stalin.sc:4774:161650 */ /* x296945 QobiScheme.sc:166:5314 */ /* x296944 QobiScheme.sc:166:5321 */ t71892 = "This shouldn\'t happen"; /* x296943 QobiScheme.sc:166:5315 */ stalin_panic(t71892); l12318: /* x76087 */ /* x76086 stalin.sc:4775:161661 */ /* x76086 stalin.sc:4775:161661 */ /* x76085 stalin.sc:4775:161666 */ /* x76084 stalin.sc:4775:161679 */ /* x76083 stalin.sc:4775:161696 */ t71878 = a22297; /* x76082 stalin.sc:4775:161680 */ a39242 = t71878; /* x289637 */ /* x289636 */ t71879 = a39242; /* x289635 */ if (!((t71879.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34159]"); structure_ref_error();} t71876 = t71879.value.structure_type27698->s15; /* x76081 stalin.sc:4775:161667 */ a40433 = t71876; /* x294401 */ /* x294400 */ t71877 = a40433; /* x294399 */ if ((t71877.tag)==STRUCTURE_TYPE27698) goto l12314; return TRUE_TYPE; l12314: return FALSE_TYPE; l12312: /* x76129 */ /* x76128 */ /* x76127 stalin.sc:4776:161719 */ /* x76126 stalin.sc:4776:161720 */ /* x297389 QobiScheme.sc:166:5314 */ /* x297388 QobiScheme.sc:166:5321 */ t71875 = "This shouldn\'t happen"; /* x297387 QobiScheme.sc:166:5315 */ stalin_panic(t71875);} /* LET?[8903] */ unsigned f8903(struct w49 a22290) {struct w49 a36708; /* S */ struct w49 a36709; /* S */ struct w49 a36710; /* S */ struct w49 a36711; /* S */ struct w49 a36712; /* S */ struct w49 a36766; /* OBJ */ struct w49 a38106; /* OBJ */ struct w49 a38695; /* S */ struct w49 a38697; /* S */ struct w49 a38698; /* S */ struct w49 a38699; /* S */ struct w6852 a39786; /* S */ struct w6852 a39787; /* S */ struct w6852 a39788; /* S */ struct w6852 a39811; /* S */ struct w49 a40336; /* S */ struct w49 a40337; /* S */ struct w49 a40349; /* S */ struct w49 a40350; /* S */ struct w49 a40351; /* S */ struct w49 a40352; /* S */ struct w49 a40353; /* S */ struct w49 a40426; /* OBJ */ struct w49 a40430; /* OBJ */ struct w49 t71909; struct w49 t71910; struct w49 t71911; struct w49 t71912; struct w49 t71913; struct w49 t71914; char *t71915; char *t71916; char *t71917; struct w49 t71918; struct w49 t71919; struct w49 t71920; struct w49 t71921; char *t71922; char *t71923; struct w49 t71924; struct w49 t71925; struct w49 t71926; struct w49 t71927; char *t71928; char *t71929; struct w49 t71930; struct w49 t71931; struct w49 t71932; struct w49 t71933; char *t71934; char *t71935; struct w49 t71936; struct w49 t71937; char *t71938; char *t71939; struct w49 t71940; struct w49 t71941; char *t71942; struct w49 t71943; struct w49 t71944; struct w6852 t71945; struct w6852 t71946; struct w49 t71947; struct w49 t71948; char *t71949; char *t71950; struct w49 t71951; struct w49 t71952; struct w6852 t71953; struct w6852 t71954; struct w49 t71955; struct w49 t71956; char *t71957; char *t71958; struct w49 t71959; struct w49 t71960; struct w6852 t71961; struct w6852 t71962; struct w49 t71963; struct w49 t71964; struct w49 t71965; struct w6852 t71966; struct w49 t71967; struct w49 t71968; struct w6852 t71969; struct w6852 t71970; struct w49 t71971; struct w49 t71972; struct w49 t71973; struct w49 t71974; struct w49 t71975; struct w49 t71976; struct w11873 t71977; struct w228345 t71978; struct w49 t71979; struct structure_type24753 *t71980; struct w49 t71981; struct w11873 t71982; struct w228245 t71983; struct w49 t71984; struct structure_type24753 *t71985; struct w49 t71986; char *t71987; h8903: /* x76029 stalin.sc:4729:159774 */ /* x75872 stalin.sc:4730:159783 */ /* x75871 stalin.sc:4730:159807 */ t71909 = a22290; /* x75870 stalin.sc:4730:159784 */ a38106 = t71909; /* x285093 */ /* x285092 */ t71910 = a38106; /* x285091 */ if (!((t71910.tag)==STRUCTURE_TYPE27756)) goto l12326; /* x75904 */ /* x75903 */ /* x75902 */ /* x75901 stalin.sc:4733:159936 */ /* x75894 stalin.sc:4733:159942 */ /* x75884 stalin.sc:4733:159947 */ /* x75883 stalin.sc:4733:159958 */ /* x75882 stalin.sc:4733:159973 */ t71981 = a22290; /* x75881 stalin.sc:4733:159959 */ t71977 = f8984(t71981); /* x75880 stalin.sc:4733:159953 */ /* x75879 stalin.sc:4733:159948 */ t71978.tag = NATIVE_PROCEDURE_TYPE7223; t71979 = *((struct w49 *)(&t71977)); t71980 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t71978, t71979, t71980).tag)==FALSE_TYPE) goto l12347; /* x75892 */ /* x75891 stalin.sc:4734:159993 */ /* x75890 stalin.sc:4734:160005 */ /* x75889 stalin.sc:4734:160020 */ t71986 = a22290; /* x75888 stalin.sc:4734:160006 */ t71982 = f8984(t71986); /* x75887 stalin.sc:4734:160000 */ /* x75886 stalin.sc:4734:159994 */ t71983.tag = NATIVE_PROCEDURE_TYPE7223; t71984 = *((struct w49 *)(&t71982)); t71985 = (struct structure_type24753 *)NULL_TYPE; if (!(f1061(t71983, t71984, t71985)==FALSE_TYPE)) goto l12347; /* x75898 */ /* x75897 */ /* x75896 stalin.sc:4735:160034 */ /* x75895 stalin.sc:4735:160035 */ /* x295057 QobiScheme.sc:166:5314 */ /* x295056 QobiScheme.sc:166:5321 */ t71987 = "This shouldn\'t happen"; /* x295055 QobiScheme.sc:166:5315 */ stalin_panic(t71987); goto l12348; l12347: /* x75900 stalin.sc:4733:159936 */ /* x75899 stalin.sc:4733:159936 */ l12348: /* x75878 */ /* x75877 stalin.sc:4736:160048 */ /* x75876 stalin.sc:4736:160054 */ /* x75875 stalin.sc:4736:160072 */ t71976 = a22290; /* x75874 stalin.sc:4736:160055 */ t71975 = f8966(t71976); /* x75873 stalin.sc:4736:160049 */ a22290 = t71975; goto h8903; l12326: /* x76028 */ /* x75907 stalin.sc:4737:160084 */ /* x75906 stalin.sc:4737:160098 */ t71911 = a22290; /* x75905 stalin.sc:4737:160085 */ a36766 = t71911; /* x279733 */ /* x279732 */ t71912 = a36766; /* x279731 */ if (!((t71912.tag)==STRUCTURE_TYPE27694)) goto l12328; /* x75957 */ /* x75956 */ /* x75955 stalin.sc:4741:160287 */ /* x75955 stalin.sc:4741:160287 */ /* x75914 stalin.sc:4741:160292 */ /* x75913 stalin.sc:4741:160305 */ /* x75912 stalin.sc:4741:160324 */ /* x75911 stalin.sc:4741:160348 */ t71947 = a22290; /* x75910 stalin.sc:4741:160325 */ a36712 = t71947; /* x279517 */ /* x279516 */ t71948 = a36712; /* x279515 */ if (!((t71948.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31629]"); structure_ref_error();} t71945 = t71948.value.structure_type27694->s1; /* x75909 stalin.sc:4741:160306 */ a39811 = t71945; /* x291913 */ /* x291912 */ t71946 = a39811; /* x291911 */ if (!((t71946.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34728]"); structure_ref_error();} t71943 = t71946.value.structure_type27698->s11; /* x75908 stalin.sc:4741:160293 */ a40426 = t71943; /* x294373 */ /* x294372 */ t71944 = a40426; /* x294371 */ if (!((t71944.tag)==STRUCTURE_TYPE27698)) goto l12341; /* x75953 */ /* x75939 stalin.sc:4742:160358 */ /* x75938 stalin.sc:4742:160362 */ /* x75936 stalin.sc:4742:160367 */ /* x75935 stalin.sc:4743:160388 */ /* x75934 stalin.sc:4743:160407 */ /* x75933 stalin.sc:4743:160431 */ t71955 = a22290; /* x75932 stalin.sc:4743:160408 */ a36711 = t71955; /* x279513 */ /* x279512 */ t71956 = a36711; /* x279511 */ if (!((t71956.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31628]"); structure_ref_error();} t71953 = t71956.value.structure_type27694->s1; /* x75931 stalin.sc:4743:160389 */ a39788 = t71953; /* x291821 */ /* x291820 */ t71954 = a39788; /* x291819 */ if (!((t71954.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34705]"); structure_ref_error();} t71951 = t71954.value.structure_type27698->s11; /* x75930 stalin.sc:4742:160368 */ a40337 = t71951; /* x294017 */ /* x294016 */ t71952 = a40337; /* x294015 */ if (!((t71952.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35254]"); structure_ref_error();} t71949 = t71952.value.structure_type27698->s0; /* x75937 stalin.sc:4744:160443 */ t71950 = q36; /* x270148 stalin.sc:4742:160363 */ if (t71949==t71950) goto l12344; /* x75926 */ /* x75924 stalin.sc:4745:160460 */ /* x75923 stalin.sc:4746:160481 */ /* x75922 stalin.sc:4746:160500 */ /* x75921 stalin.sc:4746:160524 */ t71963 = a22290; /* x75920 stalin.sc:4746:160501 */ a36710 = t71963; /* x279509 */ /* x279508 */ t71964 = a36710; /* x279507 */ if (!((t71964.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31627]"); structure_ref_error();} t71961 = t71964.value.structure_type27694->s1; /* x75919 stalin.sc:4746:160482 */ a39787 = t71961; /* x291817 */ /* x291816 */ t71962 = a39787; /* x291815 */ if (!((t71962.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34704]"); structure_ref_error();} t71959 = t71962.value.structure_type27698->s11; /* x75918 stalin.sc:4745:160461 */ a40336 = t71959; /* x294013 */ /* x294012 */ t71960 = a40336; /* x294011 */ if (!((t71960.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35253]"); structure_ref_error();} t71957 = t71960.value.structure_type27698->s0; /* x75925 stalin.sc:4747:160536 */ t71958 = q37; /* x270149 stalin.sc:4745:160456 */ if (!(t71957==t71958)) goto l12341; l12344: /* x75951 */ /* x75947 stalin.sc:4748:160560 */ /* x75946 stalin.sc:4749:160586 */ /* x75945 stalin.sc:4749:160605 */ /* x75944 stalin.sc:4749:160629 */ t71971 = a22290; /* x75943 stalin.sc:4749:160606 */ a36708 = t71971; /* x279501 */ /* x279500 */ t71972 = a36708; /* x279499 */ if (!((t71972.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31625]"); structure_ref_error();} t71969 = t71972.value.structure_type27694->s1; /* x75942 stalin.sc:4749:160587 */ a39786 = t71969; /* x291813 */ /* x291812 */ t71970 = a39786; /* x291811 */ if (!((t71970.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34703]"); structure_ref_error();} t71967 = t71970.value.structure_type27698->s11; /* x75941 stalin.sc:4748:160561 */ a38695 = t71967; /* x287449 */ /* x287448 */ t71968 = a38695; /* x287447 */ if (!((t71968.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33612]"); structure_ref_error();} t71965 = t71968.value.structure_type27698->s21; /* x75950 stalin.sc:4750:160644 */ /* x75949 stalin.sc:4750:160668 */ t71973 = a22290; /* x75948 stalin.sc:4750:160645 */ a36709 = t71973; /* x279505 */ /* x279504 */ t71974 = a36709; /* x279503 */ if (!((t71974.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31626]"); structure_ref_error();} t71966 = t71974.value.structure_type27694->s1; /* x270147 stalin.sc:4748:160556 */ /* EQ: dispatching general to general */ if (!((t71965.tag)==(t71966.tag))) goto l12341; switch (t71965.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: case INPUT_PORT_TYPE: case OUTPUT_PORT_TYPE: case NATIVE_PROCEDURE_TYPE15963: case NATIVE_PROCEDURE_TYPE19067: case NATIVE_PROCEDURE_TYPE19068: case NATIVE_PROCEDURE_TYPE22459: case STRUCTURE_TYPE24753: case STRUCTURE_TYPE24757: case STRUCTURE_TYPE27501: case STRUCTURE_TYPE27510: case STRUCTURE_TYPE27621: case STRUCTURE_TYPE27650: case STRUCTURE_TYPE27669: case STRUCTURE_TYPE27673: case STRUCTURE_TYPE27692: case STRUCTURE_TYPE27694: case STRUCTURE_TYPE27745: case STRUCTURE_TYPE27747: case STRUCTURE_TYPE27750: case STRUCTURE_TYPE27753: case STRUCTURE_TYPE27756: case STRUCTURE_TYPE27761: case STRUCTURE_TYPE27769: case STRUCTURE_TYPE27776: case STRUCTURE_TYPE27779: case STRUCTURE_TYPE27858: case STRING_TYPE: case HEADED_VECTOR_TYPE27896: case STRUCTURE_TYPE27908: goto l12341; break; case STRUCTURE_TYPE27698: if (!((t71965.value.structure_type27698)==(t71966.value.structure_type27698))) goto l12341; break; case EXTERNAL_SYMBOL_TYPE: if (!((t71965.value.external_symbol_type)==(t71966.value.external_symbol_type))) goto l12341; break; default:;} return TRUE_TYPE; l12341: return FALSE_TYPE; l12328: /* x76027 */ /* x75960 stalin.sc:4751:160681 */ /* x75959 stalin.sc:4751:160694 */ t71913 = a22290; /* x75958 stalin.sc:4751:160682 */ a40430 = t71913; /* x294389 */ /* x294388 */ t71914 = a40430; /* x294387 */ if (!((t71914.tag)==STRUCTURE_TYPE27698)) goto l12330; /* x76022 */ /* x76021 */ /* x76020 */ /* x76019 stalin.sc:4752:160704 */ /* x76012 stalin.sc:4752:160712 */ /* x76011 stalin.sc:4752:160716 */ /* x76009 stalin.sc:4752:160721 */ /* x76008 stalin.sc:4752:160738 */ t71936 = a22290; /* x76007 stalin.sc:4752:160722 */ a40353 = t71936; /* x294081 */ /* x294080 */ t71937 = a40353; /* x294079 */ if (!((t71937.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35270]"); structure_ref_error();} t71934 = t71937.value.structure_type27698->s0; /* x76010 stalin.sc:4752:160745 */ t71935 = q36; /* x270142 stalin.sc:4752:160717 */ if (t71934==t71935) goto l12336; /* x76003 */ /* x76001 stalin.sc:4753:160765 */ /* x76000 stalin.sc:4753:160782 */ t71940 = a22290; /* x75999 stalin.sc:4753:160766 */ a40352 = t71940; /* x294077 */ /* x294076 */ t71941 = a40352; /* x294075 */ if (!((t71941.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35269]"); structure_ref_error();} t71938 = t71941.value.structure_type27698->s0; /* x76002 stalin.sc:4753:160789 */ t71939 = q37; /* x270143 stalin.sc:4753:160761 */ if (!(t71938==t71939)) goto l12337; l12336: /* x76014 */ /* x76013 */ goto l12338; l12337: /* x76018 */ /* x76017 */ /* x76016 stalin.sc:4754:160811 */ /* x76015 stalin.sc:4754:160812 */ /* x296901 QobiScheme.sc:166:5314 */ /* x296900 QobiScheme.sc:166:5321 */ t71942 = "This shouldn\'t happen"; /* x296899 QobiScheme.sc:166:5315 */ stalin_panic(t71942); l12338: /* x75995 */ /* x75994 stalin.sc:4755:160825 */ /* x75994 stalin.sc:4755:160825 */ /* x75993 stalin.sc:4756:160833 */ /* x75991 stalin.sc:4756:160838 */ /* x75990 stalin.sc:4756:160855 */ /* x75989 stalin.sc:4756:160874 */ t71920 = a22290; /* x75988 stalin.sc:4756:160856 */ a38699 = t71920; /* x287465 */ /* x287464 */ t71921 = a38699; /* x287463 */ if (!((t71921.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33616]"); structure_ref_error();} t71918 = t71921.value.structure_type27698->s21; /* x75987 stalin.sc:4756:160839 */ a40351 = t71918; /* x294073 */ /* x294072 */ t71919 = a40351; /* x294071 */ if (!((t71919.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35268]"); structure_ref_error();} t71916 = t71919.value.structure_type27698->s0; /* x75992 stalin.sc:4756:160882 */ t71917 = q39; /* x270144 stalin.sc:4756:160834 */ if (t71916==t71917) goto l12331; /* x75983 */ /* x75982 stalin.sc:4757:160895 */ /* x75980 stalin.sc:4757:160900 */ /* x75979 stalin.sc:4757:160917 */ /* x75978 stalin.sc:4757:160936 */ t71926 = a22290; /* x75977 stalin.sc:4757:160918 */ a38698 = t71926; /* x287461 */ /* x287460 */ t71927 = a38698; /* x287459 */ if (!((t71927.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33615]"); structure_ref_error();} t71924 = t71927.value.structure_type27698->s21; /* x75976 stalin.sc:4757:160901 */ a40350 = t71924; /* x294069 */ /* x294068 */ t71925 = a40350; /* x294067 */ if (!((t71925.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35267]"); structure_ref_error();} t71922 = t71925.value.structure_type27698->s0; /* x75981 stalin.sc:4757:160944 */ t71923 = q40; /* x270145 stalin.sc:4757:160896 */ if (t71922==t71923) goto l12331; /* x75972 */ /* x75970 stalin.sc:4758:160972 */ /* x75969 stalin.sc:4758:160989 */ /* x75968 stalin.sc:4758:161008 */ t71932 = a22290; /* x75967 stalin.sc:4758:160990 */ a38697 = t71932; /* x287457 */ /* x287456 */ t71933 = a38697; /* x287455 */ if (!((t71933.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33614]"); structure_ref_error();} t71930 = t71933.value.structure_type27698->s21; /* x75966 stalin.sc:4758:160973 */ a40349 = t71930; /* x294065 */ /* x294064 */ t71931 = a40349; /* x294063 */ if (!((t71931.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35266]"); structure_ref_error();} t71928 = t71931.value.structure_type27698->s0; /* x75971 stalin.sc:4758:161016 */ t71929 = q41; /* x270146 stalin.sc:4758:160968 */ if (!(t71928==t71929)) goto l12332; l12331: return TRUE_TYPE; l12332: return FALSE_TYPE; l12330: /* x76026 */ /* x76025 */ /* x76024 stalin.sc:4759:161051 */ /* x76023 stalin.sc:4759:161052 */ /* x296905 QobiScheme.sc:166:5314 */ /* x296904 QobiScheme.sc:166:5321 */ t71915 = "This shouldn\'t happen"; /* x296903 QobiScheme.sc:166:5315 */ stalin_panic(t71915);} /* CALLED?[8899] */ struct w16638 f8899(struct w49 a22289) {struct w16638 r8899; struct w49 a36778; /* OBJ */ struct w49 a38015; /* S */ struct w49 a38130; /* OBJ */ struct w49 t71988; struct w49 t71989; struct w49 t71990; struct w49 t71991; char *t71992; struct structure_type24753 *t71993; struct w49 t71994; struct w49 t71995; struct w49 t71996; struct w11873 t71997; struct w228345 t71998; struct w49 t71999; struct structure_type24753 *t72000; struct w49 t72001; /* x75867 stalin.sc:4722:159536 */ /* x75836 stalin.sc:4722:159543 */ /* x75835 stalin.sc:4722:159567 */ t71988 = a22289; /* x75834 stalin.sc:4722:159544 */ a38130 = t71988; /* x285189 */ /* x285188 */ t71989 = a38130; /* x285187 */ if (!((t71989.tag)==STRUCTURE_TYPE27756)) goto l12351; /* x75849 */ /* x75848 */ /* x75847 stalin.sc:4723:159573 */ /* x75839 stalin.sc:4723:159578 */ /* x75838 stalin.sc:4723:159618 */ t71995 = a22289; /* x75837 stalin.sc:4723:159579 */ a38015 = t71995; /* x284729 */ /* x284728 */ t71996 = a38015; /* x284727 */ if (!((t71996.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-NARROW-PROTOTYPE[5953] 32932]"); structure_ref_error();} if ((t71996.value.structure_type27756->s1.tag)==FALSE_TYPE) goto l12358; /* x75845 */ /* x75844 stalin.sc:4724:159643 */ /* x75843 stalin.sc:4724:159658 */ t72001 = a22289; /* x75842 stalin.sc:4724:159644 */ t71997 = f8984(t72001); /* x75841 stalin.sc:4724:159635 */ /* x75840 stalin.sc:4724:159630 */ t71998.tag = NATIVE_PROCEDURE_TYPE7224; t71999 = *((struct w49 *)(&t71997)); t72000 = (struct structure_type24753 *)NULL_TYPE; return f1042(t71998, t71999, t72000); l12358: /* x75846 */ r8899.tag = FALSE_TYPE; return r8899; l12351: /* x75866 */ /* x75852 stalin.sc:4725:159674 */ /* x75851 stalin.sc:4725:159688 */ t71990 = a22289; /* x75850 stalin.sc:4725:159675 */ a36778 = t71990; /* x279781 */ /* x279780 */ t71991 = a36778; /* x279779 */ if (!((t71991.tag)==STRUCTURE_TYPE27694)) goto l12353; /* x75861 */ /* x75860 */ /* x75859 stalin.sc:4725:159693 */ /* x75859 stalin.sc:4725:159693 */ /* x75858 stalin.sc:4725:159698 */ /* x75857 stalin.sc:4725:159705 */ /* x75856 stalin.sc:4725:159717 */ t71994 = a22289; /* x75855 stalin.sc:4725:159706 */ t71993 = f8615(t71994); /* x270151 stalin.sc:4725:159699 */ if (((unsigned)t71993)==NULL_TYPE) goto l12355; r8899.tag = TRUE_TYPE; return r8899; l12355: r8899.tag = FALSE_TYPE; return r8899; l12353: /* x75865 */ /* x75864 */ /* x75863 stalin.sc:4726:159738 */ /* x75862 stalin.sc:4726:159739 */ /* x297477 QobiScheme.sc:166:5314 */ /* x297476 QobiScheme.sc:166:5321 */ t71992 = "This shouldn\'t happen"; /* x297475 QobiScheme.sc:166:5315 */ stalin_panic(t71992);} /* HAS-PARENT-PARAMETER?[8897] */ struct w16638 f8897(struct w49 a22287) {struct w11873 t72002; struct w228345 t72003; struct w49 t72004; struct structure_type24753 *t72005; struct w49 t72006; /* x75831 stalin.sc:4718:159408 */ /* x75830 stalin.sc:4719:159490 */ /* x75829 stalin.sc:4719:159505 */ t72006 = a22287; /* x75828 stalin.sc:4719:159491 */ t72002 = f8984(t72006); /* x75827 stalin.sc:4718:159414 */ /* x75814 stalin.sc:4718:159409 */ t72003.tag = NATIVE_PROCEDURE_TYPE15270; t72004 = *((struct w49 *)(&t72002)); t72005 = (struct structure_type24753 *)NULL_TYPE; return f1042(t72003, t72004, t72005);} /* [inside INFER-ALL-WHETHER-TYPE-SET-FICTITIOUS?! 8886] */ void f8886(struct w49 a22284) {struct w49 a37086; /* S */ struct w49 t72007; struct w49 t72008; char *t72009; struct w49 t72010; struct w49 t72011; unsigned t72012; char *t72013; struct w7121 t72014; struct w49 t72015; struct structure_type24753 *t72016; struct w49 t72017; struct w49 t72018; /* x75797 stalin.sc:4700:158426 */ /* x75753 stalin.sc:4700:158433 */ /* x75752 stalin.sc:4700:158446 */ t72007 = a22284; /* x75751 stalin.sc:4700:158434 */ if (f8793(t72007)==FALSE_TYPE) goto l12360; /* x75783 */ /* x75782 */ /* x75781 stalin.sc:4701:158452 */ /* x75756 stalin.sc:4701:158460 */ /* x75755 stalin.sc:4701:158500 */ t72010 = a22284; /* x75754 stalin.sc:4701:158461 */ if (f8877(t72010)==FALSE_TYPE) goto l12365; /* x75758 */ /* x75757 */ return; l12365: /* x75780 */ /* x75779 */ /* x75778 */ /* x75765 stalin.sc:4702:158507 */ /* x75763 stalin.sc:4702:158534 */ t72011 = a22284; /* x75764 stalin.sc:4702:158536 */ /* x75762 stalin.sc:4702:158508 */ t72012 = FALSE_TYPE; f8133(t72011, t72012); /* x75777 stalin.sc:4703:158544 */ /* x75766 stalin.sc:4703:158550 */ if (a696==FALSE_TYPE) goto l12367; /* x75774 */ /* x75773 */ /* x75772 stalin.sc:4703:158556 */ /* x75771 stalin.sc:4703:158590 */ /* x75770 stalin.sc:4703:158606 */ t72017 = a22284; /* x75769 stalin.sc:4703:158591 */ a37086 = t72017; /* x281013 */ /* x281012 */ t72018 = a37086; /* x281011 */ if (!((t72018.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-INDEX[6499] 32003]"); structure_ref_error();} t72014 = t72018.value.structure_type27650->s4; /* x75768 stalin.sc:4703:158564 */ t72013 = " W~s is not fictitious"; /* x75767 stalin.sc:4703:158557 */ t72015.tag = STRING_TYPE; t72015.value.string_type = t72013; t72016 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t72016==NULL) {backtrace("stalin.sc", 4703, 158556); out_of_memory_error();} t72016->s0 = *((struct w49 *)(&t72014)); t72016->s1.tag = NULL_TYPE; f5365(t72015, t72016); goto l12368; l12367: /* x75776 stalin.sc:4703:158544 */ /* x75775 stalin.sc:4703:158544 */ l12368: /* x75761 */ /* x75760 stalin.sc:4704:158615 */ /* x75759 stalin.sc:4704:158630 */ a2038 = TRUE_TYPE; return; l12360: /* x75796 */ /* x75789 stalin.sc:4705:158639 */ /* x75784 stalin.sc:4705:158644 */ if (a22282==FALSE_TYPE) goto l12362; /* x75787 */ /* x75786 stalin.sc:4705:158687 */ t72008 = a22284; /* x75785 stalin.sc:4705:158648 */ if (f8877(t72008)==FALSE_TYPE) goto l12362; /* x75793 */ /* x75792 */ /* x75791 stalin.sc:4705:158691 */ /* x75790 stalin.sc:4705:158692 */ /* x297273 QobiScheme.sc:166:5314 */ /* x297272 QobiScheme.sc:166:5321 */ t72009 = "This shouldn\'t happen"; /* x297271 QobiScheme.sc:166:5315 */ stalin_panic(t72009); l12362: /* x75795 */ /* x75794 */ return;} /* INFER-ALL-WHETHER-TYPE-SET-FICTITIOUS?![8884] */ void f8884(void) {struct w21193 t72019; struct w36108 t72020; struct w49 t72021; struct structure_type24753 *t72022; char *t72023; struct w49 t72024; struct structure_type24753 *t72025; /* x75811 */ /* x75810 stalin.sc:4697:158329 */ /* x75802 stalin.sc:4697:158335 */ if (a696==FALSE_TYPE) goto l12370; /* x75807 */ /* x75806 */ /* x75805 stalin.sc:4697:158341 */ /* x75804 stalin.sc:4697:158349 */ t72023 = "Determining whether type sets are fictitious"; /* x75803 stalin.sc:4697:158342 */ t72024.tag = STRING_TYPE; t72024.value.string_type = t72023; t72025 = (struct structure_type24753 *)NULL_TYPE; f5365(t72024, t72025); goto l12371; l12370: /* x75809 stalin.sc:4697:158329 */ /* x75808 stalin.sc:4697:158329 */ l12371: /* x75801 */ /* x75800 stalin.sc:4698:158399 */ /* x75799 stalin.sc:4706:158706 */ t72019 = a1679; /* x75798 stalin.sc:4699:158411 */ /* x75750 stalin.sc:4698:158400 */ t72020.tag = NATIVE_PROCEDURE_TYPE15831; t72021 = *((struct w49 *)(&t72019)); t72022 = (struct structure_type24753 *)NULL_TYPE; f27755(t72020, t72021, t72022); return;} /* DETERMINE-WHETHER-TYPE-SET-FICTITIOUS?[8877] */ unsigned f8877(struct w49 a22278) {char *a22279; /* v */ char *t72026; char *t72027; char *t72028; struct w49 t72029; struct w49 t72030; char *t72031; char *t72032; struct w49 t72033; struct w49 t72034; char *t72035; char *t72036; struct w49 t72037; struct w49 t72038; char *t72039; struct w49 t72040; struct w49 t72041; struct w49 t72042; struct w211225 t72043; /* x75747 stalin.sc:4690:158097 */ /* x75746 stalin.sc:4690:158103 */ t72026 = a687; /* x75745 */ a22279 = t72026; /* x75744 */ /* x75710 */ /* x75709 */ /* x75707 */ t72027 = a22279; /* x75708 */ t72028 = q15; /* x75706 */ /* MOVE: branching squeezed to general */ if (t72027>=((char *)VALUE_OFFSET)) {t72029.tag = EXTERNAL_SYMBOL_TYPE; t72029.value.external_symbol_type = t72027;} else t72029.tag = (unsigned)t72027; t72030.tag = EXTERNAL_SYMBOL_TYPE; t72030.value.external_symbol_type = t72028; if (!(f26160(t72029, t72030)==FALSE_TYPE)) goto l12372; /* x75703 */ /* x75701 */ t72031 = a22279; /* x75702 */ t72032 = q16; /* x75700 */ /* MOVE: branching squeezed to general */ if (t72031>=((char *)VALUE_OFFSET)) {t72033.tag = EXTERNAL_SYMBOL_TYPE; t72033.value.external_symbol_type = t72031;} else t72033.tag = (unsigned)t72031; t72034.tag = EXTERNAL_SYMBOL_TYPE; t72034.value.external_symbol_type = t72032; if (f26160(t72033, t72034)==FALSE_TYPE) goto l12373; l12372: /* x75713 */ /* x75712 */ /* x75711 stalin.sc:4691:158158 */ return FALSE_TYPE; l12373: /* x75743 */ /* x75717 */ /* x75715 */ t72035 = a22279; /* x75716 */ t72036 = q17; /* x75714 */ /* MOVE: branching squeezed to general */ if (t72035>=((char *)VALUE_OFFSET)) {t72037.tag = EXTERNAL_SYMBOL_TYPE; t72037.value.external_symbol_type = t72035;} else t72037.tag = (unsigned)t72035; t72038.tag = EXTERNAL_SYMBOL_TYPE; t72038.value.external_symbol_type = t72036; if (f26160(t72037, t72038)==FALSE_TYPE) goto l12376; /* x75738 */ /* x75737 */ /* x75736 stalin.sc:4693:158182 */ /* x75736 stalin.sc:4693:158182 */ /* x75735 stalin.sc:4693:158186 */ /* x75734 stalin.sc:4693:158193 */ t72040 = a22278; /* x75733 stalin.sc:4693:158187 */ if (!(f8147(t72040)==FALSE_TYPE)) goto l12377; /* x75730 */ /* x75724 stalin.sc:4693:158201 */ /* x75723 stalin.sc:4693:158206 */ /* x75722 stalin.sc:4693:158221 */ t72041 = a22278; /* x75721 stalin.sc:4693:158207 */ if (!(f8149(t72041)==((struct structure_type27657 *)FALSE_TYPE))) goto l12378; /* x75728 */ /* x75726 stalin.sc:4693:158235 */ /* x75727 stalin.sc:4693:158247 */ t72042 = a22278; /* x75725 stalin.sc:4693:158226 */ t72043.tag = NATIVE_PROCEDURE_TYPE7232; if (f8146(t72043, t72042)==FALSE_TYPE) goto l12378; l12377: return TRUE_TYPE; l12378: return FALSE_TYPE; l12376: /* x75742 */ /* x75741 */ /* x75740 stalin.sc:4694:158261 */ /* x75739 stalin.sc:4694:158262 */ /* x297357 QobiScheme.sc:166:5314 */ /* x297356 QobiScheme.sc:166:5321 */ t72039 = "This shouldn\'t happen"; /* x297355 QobiScheme.sc:166:5315 */ stalin_panic(t72039);} /* [inside INFER-ALL-WHETHER-TYPE-FICTITIOUS?! 8868] */ void f8868(struct w49 a22275) {struct w49 t72044; struct w49 t72045; char *t72046; struct w49 t72047; struct w49 t72048; unsigned t72049; char *t72050; unsigned t72051; struct w49 t72052; struct structure_type24753 *t72053; struct w49 t72054; /* x75691 stalin.sc:4667:157113 */ /* x75647 stalin.sc:4668:157124 */ /* x75646 stalin.sc:4668:157137 */ t72044 = a22275; /* x75645 stalin.sc:4668:157125 */ if (f8793(t72044)==FALSE_TYPE) goto l12383; /* x75677 */ /* x75676 */ /* x75675 stalin.sc:4669:157145 */ /* x75650 stalin.sc:4669:157153 */ /* x75649 stalin.sc:4669:157202 */ t72047 = a22275; /* x75648 stalin.sc:4669:157154 */ if (f8832(t72047)==FALSE_TYPE) goto l12388; /* x75652 */ /* x75651 */ return; l12388: /* x75674 */ /* x75673 */ /* x75672 */ /* x75659 stalin.sc:4670:157211 */ /* x75657 stalin.sc:4670:157247 */ t72048 = a22275; /* x75658 stalin.sc:4670:157249 */ /* x75656 stalin.sc:4670:157212 */ t72049 = FALSE_TYPE; f7390(t72048, t72049); /* x75671 stalin.sc:4671:157259 */ /* x75660 stalin.sc:4671:157265 */ if (a696==FALSE_TYPE) goto l12390; /* x75668 */ /* x75667 */ /* x75666 stalin.sc:4671:157271 */ /* x75665 stalin.sc:4671:157305 */ /* x75664 stalin.sc:4671:157317 */ t72054 = a22275; /* x75663 stalin.sc:4671:157306 */ t72051 = f7936(t72054); /* x75662 stalin.sc:4671:157279 */ t72050 = " U~s is not fictitious"; /* x75661 stalin.sc:4671:157272 */ t72052.tag = STRING_TYPE; t72052.value.string_type = t72050; t72053 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t72053==NULL) {backtrace("stalin.sc", 4671, 157271); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t72051==FALSE_TYPE) t72053->s0.tag = (unsigned)t72051; else {t72053->s0.tag = FIXNUM_TYPE; t72053->s0.value.fixnum_type = (int)(((int)t72051)>>1);} t72053->s1.tag = NULL_TYPE; f5365(t72052, t72053); goto l12391; l12390: /* x75670 stalin.sc:4671:157259 */ /* x75669 stalin.sc:4671:157259 */ l12391: /* x75655 */ /* x75654 stalin.sc:4672:157328 */ /* x75653 stalin.sc:4672:157343 */ a2038 = TRUE_TYPE; return; l12383: /* x75690 */ /* x75683 stalin.sc:4673:157354 */ /* x75678 stalin.sc:4673:157359 */ if (a22265==FALSE_TYPE) goto l12385; /* x75681 */ /* x75680 stalin.sc:4673:157411 */ t72045 = a22275; /* x75679 stalin.sc:4673:157363 */ if (f8832(t72045)==FALSE_TYPE) goto l12385; /* x75687 */ /* x75686 */ /* x75685 stalin.sc:4673:157415 */ /* x75684 stalin.sc:4673:157416 */ /* x296241 QobiScheme.sc:166:5314 */ /* x296240 QobiScheme.sc:166:5321 */ t72046 = "This shouldn\'t happen"; /* x296239 QobiScheme.sc:166:5315 */ stalin_panic(t72046); l12385: /* x75689 */ /* x75688 */ return;} /* [inside INFER-ALL-WHETHER-TYPE-FICTITIOUS?! 8859] */ void f8859(struct w49 a22272) {struct w49 t72055; struct w49 t72056; char *t72057; struct w49 t72058; struct w49 t72059; unsigned t72060; char *t72061; unsigned t72062; struct w49 t72063; struct structure_type24753 *t72064; struct w49 t72065; /* x75640 stalin.sc:4657:156741 */ /* x75596 stalin.sc:4657:156748 */ /* x75595 stalin.sc:4657:156761 */ t72055 = a22272; /* x75594 stalin.sc:4657:156749 */ if (f8793(t72055)==FALSE_TYPE) goto l12393; /* x75626 */ /* x75625 */ /* x75624 stalin.sc:4658:156767 */ /* x75599 stalin.sc:4658:156775 */ /* x75598 stalin.sc:4658:156828 */ t72058 = a22272; /* x75597 stalin.sc:4658:156776 */ if (f8818(t72058)==FALSE_TYPE) goto l12398; /* x75601 */ /* x75600 */ return; l12398: /* x75623 */ /* x75622 */ /* x75621 */ /* x75608 stalin.sc:4659:156835 */ /* x75606 stalin.sc:4659:156875 */ t72059 = a22272; /* x75607 stalin.sc:4659:156877 */ /* x75605 stalin.sc:4659:156836 */ t72060 = FALSE_TYPE; f7330(t72059, t72060); /* x75620 stalin.sc:4660:156885 */ /* x75609 stalin.sc:4660:156891 */ if (a696==FALSE_TYPE) goto l12400; /* x75617 */ /* x75616 */ /* x75615 stalin.sc:4660:156897 */ /* x75614 stalin.sc:4660:156931 */ /* x75613 stalin.sc:4660:156943 */ t72065 = a22272; /* x75612 stalin.sc:4660:156932 */ t72062 = f7936(t72065); /* x75611 stalin.sc:4660:156905 */ t72061 = " U~s is not fictitious"; /* x75610 stalin.sc:4660:156898 */ t72063.tag = STRING_TYPE; t72063.value.string_type = t72061; t72064 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t72064==NULL) {backtrace("stalin.sc", 4660, 156897); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t72062==FALSE_TYPE) t72064->s0.tag = (unsigned)t72062; else {t72064->s0.tag = FIXNUM_TYPE; t72064->s0.value.fixnum_type = (int)(((int)t72062)>>1);} t72064->s1.tag = NULL_TYPE; f5365(t72063, t72064); goto l12401; l12400: /* x75619 stalin.sc:4660:156885 */ /* x75618 stalin.sc:4660:156885 */ l12401: /* x75604 */ /* x75603 stalin.sc:4661:156952 */ /* x75602 stalin.sc:4661:156967 */ a2038 = TRUE_TYPE; return; l12393: /* x75639 */ /* x75632 stalin.sc:4662:156976 */ /* x75627 stalin.sc:4662:156981 */ if (a22265==FALSE_TYPE) goto l12395; /* x75630 */ /* x75629 stalin.sc:4662:157037 */ t72056 = a22272; /* x75628 stalin.sc:4662:156985 */ if (f8818(t72056)==FALSE_TYPE) goto l12395; /* x75636 */ /* x75635 */ /* x75634 stalin.sc:4663:157044 */ /* x75633 stalin.sc:4663:157045 */ /* x296929 QobiScheme.sc:166:5314 */ /* x296928 QobiScheme.sc:166:5321 */ t72057 = "This shouldn\'t happen"; /* x296927 QobiScheme.sc:166:5315 */ stalin_panic(t72057); l12395: /* x75638 */ /* x75637 */ return;} /* [inside INFER-ALL-WHETHER-TYPE-FICTITIOUS?! 8848] */ void f8848(struct w49 a22269) {struct w49 t72066; struct w49 t72067; char *t72068; struct w49 t72069; struct w49 t72070; unsigned t72071; char *t72072; unsigned t72073; struct w49 t72074; struct structure_type24753 *t72075; struct w49 t72076; /* x75579 stalin.sc:4677:157480 */ /* x75535 stalin.sc:4678:157491 */ /* x75534 stalin.sc:4678:157504 */ t72066 = a22269; /* x75533 stalin.sc:4678:157492 */ if (f8793(t72066)==FALSE_TYPE) goto l12403; /* x75565 */ /* x75564 */ /* x75563 stalin.sc:4679:157512 */ /* x75538 stalin.sc:4679:157520 */ /* x75537 stalin.sc:4679:157566 */ t72069 = a22269; /* x75536 stalin.sc:4679:157521 */ if (f8840(t72069)==FALSE_TYPE) goto l12408; /* x75540 */ /* x75539 */ return; l12408: /* x75562 */ /* x75561 */ /* x75560 */ /* x75547 stalin.sc:4680:157575 */ /* x75545 stalin.sc:4680:157608 */ t72070 = a22269; /* x75546 stalin.sc:4680:157610 */ /* x75544 stalin.sc:4680:157576 */ t72071 = FALSE_TYPE; f7475(t72070, t72071); /* x75559 stalin.sc:4681:157620 */ /* x75548 stalin.sc:4681:157626 */ if (a696==FALSE_TYPE) goto l12410; /* x75556 */ /* x75555 */ /* x75554 stalin.sc:4681:157632 */ /* x75553 stalin.sc:4681:157666 */ /* x75552 stalin.sc:4681:157678 */ t72076 = a22269; /* x75551 stalin.sc:4681:157667 */ t72073 = f7936(t72076); /* x75550 stalin.sc:4681:157640 */ t72072 = " U~s is not fictitious"; /* x75549 stalin.sc:4681:157633 */ t72074.tag = STRING_TYPE; t72074.value.string_type = t72072; t72075 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t72075==NULL) {backtrace("stalin.sc", 4681, 157632); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t72073==FALSE_TYPE) t72075->s0.tag = (unsigned)t72073; else {t72075->s0.tag = FIXNUM_TYPE; t72075->s0.value.fixnum_type = (int)(((int)t72073)>>1);} t72075->s1.tag = NULL_TYPE; f5365(t72074, t72075); goto l12411; l12410: /* x75558 stalin.sc:4681:157620 */ /* x75557 stalin.sc:4681:157620 */ l12411: /* x75543 */ /* x75542 stalin.sc:4682:157689 */ /* x75541 stalin.sc:4682:157704 */ a2038 = TRUE_TYPE; return; l12403: /* x75578 */ /* x75571 stalin.sc:4683:157715 */ /* x75566 stalin.sc:4683:157720 */ if (a22265==FALSE_TYPE) goto l12405; /* x75569 */ /* x75568 stalin.sc:4683:157769 */ t72067 = a22269; /* x75567 stalin.sc:4683:157724 */ if (f8840(t72067)==FALSE_TYPE) goto l12405; /* x75575 */ /* x75574 */ /* x75573 stalin.sc:4683:157773 */ /* x75572 stalin.sc:4683:157774 */ /* x295433 QobiScheme.sc:166:5314 */ /* x295432 QobiScheme.sc:166:5321 */ t72068 = "This shouldn\'t happen"; /* x295431 QobiScheme.sc:166:5315 */ stalin_panic(t72068); l12405: /* x75577 */ /* x75576 */ return;} /* INFER-ALL-WHETHER-TYPE-FICTITIOUS?![8846] */ void f8846(void) {struct w21193 t72077; struct w36108 t72078; struct w49 t72079; struct structure_type24753 *t72080; char *t72081; struct w49 t72082; struct structure_type24753 *t72083; struct w21193 t72084; struct w36108 t72085; struct w49 t72086; struct structure_type24753 *t72087; struct w21193 t72088; struct w36108 t72089; struct w49 t72090; struct structure_type24753 *t72091; /* x75695 */ /* x75592 stalin.sc:4654:156648 */ /* x75584 stalin.sc:4654:156654 */ if (a696==FALSE_TYPE) goto l12413; /* x75589 */ /* x75588 */ /* x75587 stalin.sc:4654:156660 */ /* x75586 stalin.sc:4654:156668 */ t72081 = "Determining whether types are fictitious"; /* x75585 stalin.sc:4654:156661 */ t72082.tag = STRING_TYPE; t72082.value.string_type = t72081; t72083 = (struct structure_type24753 *)NULL_TYPE; f5365(t72082, t72083); goto l12414; l12413: /* x75591 stalin.sc:4654:156648 */ /* x75590 stalin.sc:4654:156648 */ l12414: /* x75643 stalin.sc:4655:156714 */ /* x75642 stalin.sc:4664:157059 */ t72084 = a1945; /* x75641 stalin.sc:4656:156726 */ /* x75593 stalin.sc:4655:156715 */ t72085.tag = NATIVE_PROCEDURE_TYPE15862; t72086 = *((struct w49 *)(&t72084)); t72087 = (struct structure_type24753 *)NULL_TYPE; f27755(t72085, t72086, t72087); /* x75694 stalin.sc:4665:157086 */ /* x75693 stalin.sc:4674:157430 */ t72088 = a1943; /* x75692 stalin.sc:4666:157098 */ /* x75644 stalin.sc:4665:157087 */ t72089.tag = NATIVE_PROCEDURE_TYPE15846; t72090 = *((struct w49 *)(&t72088)); t72091 = (struct structure_type24753 *)NULL_TYPE; f27755(t72089, t72090, t72091); /* x75583 */ /* x75582 stalin.sc:4675:157453 */ /* x75581 stalin.sc:4684:157788 */ t72077 = a1940; /* x75580 stalin.sc:4676:157465 */ /* x75532 stalin.sc:4675:157454 */ t72078.tag = NATIVE_PROCEDURE_TYPE15880; t72079 = *((struct w49 *)(&t72077)); t72080 = (struct structure_type24753 *)NULL_TYPE; f27755(t72078, t72079, t72080); return;} /* DETERMINE-WHETHER-STRUCTURE-TYPE-FICTITIOUS?[8840] */ unsigned f8840(struct w49 a22262) {char *a22263; /* v */ struct w49 a37656; /* S */ char *t72092; char *t72093; char *t72094; struct w49 t72095; struct w49 t72096; char *t72097; char *t72098; struct w49 t72099; struct w49 t72100; char *t72101; char *t72102; struct w49 t72103; struct w49 t72104; char *t72105; struct w11873 t72106; struct w228245 t72107; struct w49 t72108; struct structure_type24753 *t72109; struct w49 t72110; struct w49 t72111; /* x75529 stalin.sc:4648:156448 */ /* x75528 stalin.sc:4648:156454 */ t72092 = a687; /* x75527 */ a22263 = t72092; /* x75526 */ /* x75505 */ /* x75504 */ /* x75502 */ t72093 = a22263; /* x75503 */ t72094 = q15; /* x75501 */ /* MOVE: branching squeezed to general */ if (t72093>=((char *)VALUE_OFFSET)) {t72095.tag = EXTERNAL_SYMBOL_TYPE; t72095.value.external_symbol_type = t72093;} else t72095.tag = (unsigned)t72093; t72096.tag = EXTERNAL_SYMBOL_TYPE; t72096.value.external_symbol_type = t72094; if (!(f26160(t72095, t72096)==FALSE_TYPE)) goto l12415; /* x75498 */ /* x75496 */ t72097 = a22263; /* x75497 */ t72098 = q16; /* x75495 */ /* MOVE: branching squeezed to general */ if (t72097>=((char *)VALUE_OFFSET)) {t72099.tag = EXTERNAL_SYMBOL_TYPE; t72099.value.external_symbol_type = t72097;} else t72099.tag = (unsigned)t72097; t72100.tag = EXTERNAL_SYMBOL_TYPE; t72100.value.external_symbol_type = t72098; if (f26160(t72099, t72100)==FALSE_TYPE) goto l12416; l12415: /* x75508 */ /* x75507 */ /* x75506 stalin.sc:4649:156509 */ return FALSE_TYPE; l12416: /* x75525 */ /* x75512 */ /* x75510 */ t72101 = a22263; /* x75511 */ t72102 = q17; /* x75509 */ /* MOVE: branching squeezed to general */ if (t72101>=((char *)VALUE_OFFSET)) {t72103.tag = EXTERNAL_SYMBOL_TYPE; t72103.value.external_symbol_type = t72101;} else t72103.tag = (unsigned)t72101; t72104.tag = EXTERNAL_SYMBOL_TYPE; t72104.value.external_symbol_type = t72102; if (f26160(t72103, t72104)==FALSE_TYPE) goto l12419; /* x75520 */ /* x75519 */ /* x75518 stalin.sc:4650:156530 */ /* x75517 stalin.sc:4650:156549 */ /* x75516 stalin.sc:4650:156571 */ t72110 = a22262; /* x75515 stalin.sc:4650:156550 */ a37656 = t72110; /* x283293 */ /* x283292 */ t72111 = a37656; /* x283291 */ if (!((t72111.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32573]"); structure_ref_error();} t72106 = t72111.value.structure_type27769->s1; /* x75514 stalin.sc:4650:156537 */ /* x75513 stalin.sc:4650:156531 */ t72107.tag = NATIVE_PROCEDURE_TYPE7232; t72108 = *((struct w49 *)(&t72106)); t72109 = (struct structure_type24753 *)NULL_TYPE; return f1061(t72107, t72108, t72109); l12419: /* x75524 */ /* x75523 */ /* x75522 stalin.sc:4651:156584 */ /* x75521 stalin.sc:4651:156585 */ /* x297345 QobiScheme.sc:166:5314 */ /* x297344 QobiScheme.sc:166:5321 */ t72105 = "This shouldn\'t happen"; /* x297343 QobiScheme.sc:166:5315 */ stalin_panic(t72105);} /* DETERMINE-WHETHER-CONTINUATION-TYPE-FICTITIOUS?[8832] */ unsigned f8832(struct w49 a22257) {char *a22258; /* v */ struct w49 a37809; /* S */ struct p8832 *t72112; char *t72113; char *t72114; char *t72115; struct w49 t72116; struct w49 t72117; char *t72118; char *t72119; struct w49 t72120; struct w49 t72121; char *t72122; char *t72123; struct w49 t72124; struct w49 t72125; char *t72126; struct p8832 *t72127; struct w49 t72128; struct p8832 *t72129; struct w3457 t72130; struct w228245 t72131; struct w49 t72132; struct structure_type24753 *t72133; struct w49 t72134; struct w49 t72135; struct w49 t72136; struct p8832 *e8832; struct p8832 *p8833; struct p8832 *p8836; struct p8832 *p8837; e8832 = (struct p8832 *)alloca(sizeof(struct p8832)); if (e8832==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e8832->a22257 = a22257; /* x75490 stalin.sc:4634:155971 */ /* x75489 stalin.sc:4634:155977 */ t72113 = a687; /* x75488 */ t72112 = e8832; p8833 = t72112; a22258 = t72113; /* x75487 */ /* x75439 */ /* x75438 */ /* x75436 */ t72114 = a22258; /* x75437 */ t72115 = q15; /* x75435 */ /* MOVE: branching squeezed to general */ if (t72114>=((char *)VALUE_OFFSET)) {t72116.tag = EXTERNAL_SYMBOL_TYPE; t72116.value.external_symbol_type = t72114;} else t72116.tag = (unsigned)t72114; t72117.tag = EXTERNAL_SYMBOL_TYPE; t72117.value.external_symbol_type = t72115; if (!(f26160(t72116, t72117)==FALSE_TYPE)) goto l12420; /* x75432 */ /* x75430 */ t72118 = a22258; /* x75431 */ t72119 = q16; /* x75429 */ /* MOVE: branching squeezed to general */ if (t72118>=((char *)VALUE_OFFSET)) {t72120.tag = EXTERNAL_SYMBOL_TYPE; t72120.value.external_symbol_type = t72118;} else t72120.tag = (unsigned)t72118; t72121.tag = EXTERNAL_SYMBOL_TYPE; t72121.value.external_symbol_type = t72119; if (f26160(t72120, t72121)==FALSE_TYPE) goto l12421; l12420: /* x75442 */ /* x75441 */ /* x75440 stalin.sc:4635:156032 */ return FALSE_TYPE; l12421: /* x75486 */ /* x75446 */ /* x75444 */ t72122 = a22258; /* x75445 */ t72123 = q17; /* x75443 */ /* MOVE: branching squeezed to general */ if (t72122>=((char *)VALUE_OFFSET)) {t72124.tag = EXTERNAL_SYMBOL_TYPE; t72124.value.external_symbol_type = t72122;} else t72124.tag = (unsigned)t72122; t72125.tag = EXTERNAL_SYMBOL_TYPE; t72125.value.external_symbol_type = t72123; if (f26160(t72124, t72125)==FALSE_TYPE) goto l12424; /* x75481 */ /* x75480 */ t72127 = p8833; p8836 = t72127; /* x75479 stalin.sc:4637:156056 */ /* x75479 stalin.sc:4637:156056 */ /* x75478 stalin.sc:4637:156060 */ /* x75477 stalin.sc:4637:156065 */ /* x75476 stalin.sc:4637:156107 */ t72128 = p8836->a22257; /* x75475 stalin.sc:4637:156066 */ if (f7374(t72128)==FALSE_TYPE) goto l12425; p8837 = p8836; /* x75471 */ /* x75466 stalin.sc:4638:156123 */ /* x75465 stalin.sc:4643:156310 */ /* x75464 stalin.sc:4643:156340 */ t72134 = p8837->a22257; /* x75463 stalin.sc:4643:156311 */ a37809 = t72134; /* x283905 */ /* x283904 */ t72135 = a37809; /* x283903 */ if (!((t72135.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-CALL-SITES[6085] 32726]"); structure_ref_error();} t72130 = t72135.value.structure_type27858->s3; /* x75462 stalin.sc:4638:156130 */ t72129 = p8837; /* x75449 stalin.sc:4638:156124 */ t72131.tag = NATIVE_PROCEDURE_TYPE19506; t72131.value.native_procedure_type19506 = t72129; t72132 = *((struct w49 *)(&t72130)); t72133 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t72131, t72132, t72133)==FALSE_TYPE) goto l12426; /* x75469 */ /* x75468 stalin.sc:4644:156362 */ t72136 = p8837->a22257; /* x75467 stalin.sc:4644:156350 */ if (f8246(t72136)==FALSE_TYPE) goto l12426; l12425: return TRUE_TYPE; l12426: return FALSE_TYPE; l12424: /* x75485 */ /* x75484 */ /* x75483 stalin.sc:4645:156376 */ /* x75482 stalin.sc:4645:156377 */ /* x297353 QobiScheme.sc:166:5314 */ /* x297352 QobiScheme.sc:166:5321 */ t72126 = "This shouldn\'t happen"; /* x297351 QobiScheme.sc:166:5315 */ stalin_panic(t72126);} /* DETERMINE-WHETHER-NATIVE-PROCEDURE-TYPE-FICTITIOUS?[8818] */ unsigned f8818(struct w49 a22247) {char *a22248; /* v */ struct w49 a42105; /* E */ char *t72137; char *t72138; char *t72139; struct w49 t72140; struct w49 t72141; char *t72142; char *t72143; struct w49 t72144; struct w49 t72145; char *t72146; char *t72147; struct w49 t72148; struct w49 t72149; char *t72150; struct w49 t72151; struct w49 t72152; struct w11873 t72153; struct w228245 t72154; struct w49 t72155; struct structure_type24753 *t72156; struct w49 t72157; /* x75424 stalin.sc:4620:155541 */ /* x75423 stalin.sc:4620:155547 */ t72137 = a687; /* x75422 */ a22248 = t72137; /* x75421 */ /* x75346 */ /* x75345 */ /* x75343 */ t72138 = a22248; /* x75344 */ t72139 = q15; /* x75342 */ /* MOVE: branching squeezed to general */ if (t72138>=((char *)VALUE_OFFSET)) {t72140.tag = EXTERNAL_SYMBOL_TYPE; t72140.value.external_symbol_type = t72138;} else t72140.tag = (unsigned)t72138; t72141.tag = EXTERNAL_SYMBOL_TYPE; t72141.value.external_symbol_type = t72139; if (!(f26160(t72140, t72141)==FALSE_TYPE)) goto l12430; /* x75339 */ /* x75337 */ t72142 = a22248; /* x75338 */ t72143 = q16; /* x75336 */ /* MOVE: branching squeezed to general */ if (t72142>=((char *)VALUE_OFFSET)) {t72144.tag = EXTERNAL_SYMBOL_TYPE; t72144.value.external_symbol_type = t72142;} else t72144.tag = (unsigned)t72142; t72145.tag = EXTERNAL_SYMBOL_TYPE; t72145.value.external_symbol_type = t72143; if (f26160(t72144, t72145)==FALSE_TYPE) goto l12431; l12430: /* x75349 */ /* x75348 */ /* x75347 stalin.sc:4621:155602 */ return FALSE_TYPE; l12431: /* x75420 */ /* x75353 */ /* x75351 */ t72146 = a22248; /* x75352 */ t72147 = q17; /* x75350 */ /* MOVE: branching squeezed to general */ if (t72146>=((char *)VALUE_OFFSET)) {t72148.tag = EXTERNAL_SYMBOL_TYPE; t72148.value.external_symbol_type = t72146;} else t72148.tag = (unsigned)t72146; t72149.tag = EXTERNAL_SYMBOL_TYPE; t72149.value.external_symbol_type = t72147; if (f26160(t72148, t72149)==FALSE_TYPE) goto l12434; /* x75415 */ /* x75414 */ /* x75413 stalin.sc:4623:155626 */ /* x75413 stalin.sc:4623:155626 */ /* x75412 stalin.sc:4623:155630 */ /* x75411 stalin.sc:4623:155635 */ /* x75410 stalin.sc:4623:155658 */ t72151 = a22247; /* x75409 stalin.sc:4623:155636 */ a42105 = t72151; /* x302532 stalin.sc:4147:139235 */ /* x302531 stalin.sc:4147:139254 */ t72152 = a42105; /* x302530 stalin.sc:4147:139236 */ if (f8526(t72152)==FALSE_TYPE) goto l12435; /* x75405 */ /* x75404 stalin.sc:4630:155867 */ /* x75403 stalin.sc:4630:155882 */ t72157 = a22247; /* x75402 stalin.sc:4630:155868 */ t72153 = f8984(t72157); /* x75401 stalin.sc:4624:155676 */ /* x75356 stalin.sc:4624:155670 */ t72154.tag = NATIVE_PROCEDURE_TYPE17882; t72155 = *((struct w49 *)(&t72153)); t72156 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t72154, t72155, t72156)==FALSE_TYPE) goto l12436; l12435: return TRUE_TYPE; l12436: return FALSE_TYPE; l12434: /* x75419 */ /* x75418 */ /* x75417 stalin.sc:4631:155896 */ /* x75416 stalin.sc:4631:155897 */ /* x297349 QobiScheme.sc:166:5314 */ /* x297348 QobiScheme.sc:166:5321 */ t72150 = "This shouldn\'t happen"; /* x297347 QobiScheme.sc:166:5315 */ stalin_panic(t72150);} /* FICTITIOUS?[8793] */ unsigned f8793(struct w49 a22246) {struct w49 a21236; /* U */ struct w49 a21284; /* U */ struct w49 a21352; /* U */ struct w49 a21787; /* W */ struct w49 a37036; /* S */ struct w49 a37153; /* OBJ */ struct w49 a37354; /* OBJ */ struct w49 a37455; /* OBJ */ struct w49 a37572; /* OBJ */ struct w49 a37583; /* S */ struct w49 a37715; /* OBJ */ struct w49 a37786; /* OBJ */ struct w49 a37792; /* S */ struct w49 a37908; /* OBJ */ struct w49 a37980; /* OBJ */ struct w49 a37995; /* S */ struct w49 a38129; /* OBJ */ struct w49 a38236; /* OBJ */ struct w49 a38295; /* OBJ */ struct w49 a38335; /* OBJ */ struct w49 t72158; struct w49 t72159; struct w49 t72160; struct w49 t72161; struct w49 t72162; struct w49 t72163; struct w49 t72164; struct w49 t72165; struct w49 t72166; struct w49 t72167; struct w49 t72168; struct w49 t72169; struct w49 t72170; struct w49 t72171; struct w49 t72172; struct w49 t72173; struct w49 t72174; struct w49 t72175; struct w49 t72176; struct w49 t72177; struct w49 t72178; struct w49 t72179; struct w49 t72180; struct w49 t72181; struct w49 t72182; struct w49 t72183; struct w49 t72184; struct w49 t72185; struct w49 t72186; struct w49 t72187; struct w49 t72188; struct w49 t72189; struct w49 t72190; struct w49 t72191; struct w49 t72192; char *t72193; struct w49 t72194; int t72195; int t72196; int t72197; struct structure_type24753 *t72198; struct w49 t72199; struct w49 t72200; struct w49 t72201; struct w49 t72202; int t72203; int t72204; int t72205; struct structure_type24753 *t72206; struct w49 t72207; struct w49 t72208; struct w49 t72209; struct w49 t72210; int t72211; int t72212; int t72213; struct structure_type24753 *t72214; struct w49 t72215; struct w49 t72216; struct w49 t72217; struct w49 t72218; int t72219; int t72220; int t72221; struct structure_type24753 *t72222; struct w49 t72223; struct w49 t72224; struct w49 t72225; /* x75331 stalin.sc:4594:154516 */ /* x75161 stalin.sc:4594:154523 */ /* x75160 stalin.sc:4594:154535 */ t72158 = a22246; /* x75159 stalin.sc:4594:154524 */ if (f7677(t72158)==FALSE_TYPE) goto l12440; /* x75164 */ /* x75163 */ /* x75162 stalin.sc:4594:154540 */ return TRUE_TYPE; l12440: /* x75330 */ /* x75167 stalin.sc:4595:154552 */ /* x75166 stalin.sc:4595:154564 */ t72159 = a22246; /* x75165 stalin.sc:4595:154553 */ if (f7678(t72159)==FALSE_TYPE) goto l12442; /* x75170 */ /* x75169 */ /* x75168 stalin.sc:4595:154569 */ return TRUE_TYPE; l12442: /* x75329 */ /* x75173 stalin.sc:4596:154581 */ /* x75172 stalin.sc:4596:154594 */ t72160 = a22246; /* x75171 stalin.sc:4596:154582 */ if (f7679(t72160)==FALSE_TYPE) goto l12444; /* x75176 */ /* x75175 */ /* x75174 stalin.sc:4596:154599 */ return TRUE_TYPE; l12444: /* x75328 */ /* x75179 stalin.sc:4597:154611 */ /* x75178 stalin.sc:4597:154623 */ t72161 = a22246; /* x75177 stalin.sc:4597:154612 */ if (f7682(t72161)==FALSE_TYPE) goto l12446; /* x75182 */ /* x75181 */ /* x75180 stalin.sc:4597:154628 */ return FALSE_TYPE; l12446: /* x75327 */ /* x75185 stalin.sc:4598:154640 */ /* x75184 stalin.sc:4598:154654 */ t72162 = a22246; /* x75183 stalin.sc:4598:154641 */ if (f7683(t72162)==FALSE_TYPE) goto l12448; /* x75188 */ /* x75187 */ /* x75186 stalin.sc:4598:154659 */ return FALSE_TYPE; l12448: /* x75326 */ /* x75191 stalin.sc:4599:154671 */ /* x75190 stalin.sc:4599:154685 */ t72163 = a22246; /* x75189 stalin.sc:4599:154672 */ if (f7684(t72163)==FALSE_TYPE) goto l12450; /* x75194 */ /* x75193 */ /* x75192 stalin.sc:4599:154690 */ return FALSE_TYPE; l12450: /* x75325 */ /* x75197 stalin.sc:4600:154702 */ /* x75196 stalin.sc:4600:154721 */ t72164 = a22246; /* x75195 stalin.sc:4600:154703 */ if (f7687(t72164)==FALSE_TYPE) goto l12452; /* x75200 */ /* x75199 */ /* x75198 stalin.sc:4600:154726 */ return FALSE_TYPE; l12452: /* x75324 */ /* x75203 stalin.sc:4601:154738 */ /* x75202 stalin.sc:4601:154756 */ t72165 = a22246; /* x75201 stalin.sc:4601:154739 */ if (f7700(t72165)==FALSE_TYPE) goto l12454; /* x75206 */ /* x75205 */ /* x75204 stalin.sc:4601:154761 */ return FALSE_TYPE; l12454: /* x75323 */ /* x75209 stalin.sc:4602:154773 */ /* x75208 stalin.sc:4602:154792 */ t72166 = a22246; /* x75207 stalin.sc:4602:154774 */ if (f7701(t72166)==FALSE_TYPE) goto l12456; /* x75212 */ /* x75211 */ /* x75210 stalin.sc:4602:154797 */ return FALSE_TYPE; l12456: /* x75322 */ /* x75215 stalin.sc:4603:154809 */ /* x75214 stalin.sc:4603:154827 */ t72167 = a22246; /* x75213 stalin.sc:4603:154810 */ if (f7702(t72167)==FALSE_TYPE) goto l12458; /* x75218 */ /* x75217 */ /* x75216 stalin.sc:4603:154832 */ return TRUE_TYPE; l12458: /* x75321 */ /* x75221 stalin.sc:4604:154844 */ /* x75220 stalin.sc:4604:154859 */ t72168 = a22246; /* x75219 stalin.sc:4604:154845 */ if (f7703(t72168)==FALSE_TYPE) goto l12460; /* x75224 */ /* x75223 */ /* x75222 stalin.sc:4604:154864 */ return FALSE_TYPE; l12460: /* x75320 */ /* x75227 stalin.sc:4605:154876 */ /* x75226 stalin.sc:4605:154899 */ t72169 = a22246; /* x75225 stalin.sc:4605:154877 */ a38335 = t72169; /* x286009 */ /* x286008 */ t72170 = a38335; /* x286007 */ if (!((t72170.tag)==STRUCTURE_TYPE27776)) goto l12462; /* x75230 */ /* x75229 */ /* x75228 stalin.sc:4605:154904 */ return TRUE_TYPE; l12462: /* x75319 */ /* x75233 stalin.sc:4606:154916 */ /* x75232 stalin.sc:4606:154939 */ t72171 = a22246; /* x75231 stalin.sc:4606:154917 */ a38295 = t72171; /* x285849 */ /* x285848 */ t72172 = a38295; /* x285847 */ if (!((t72172.tag)==STRUCTURE_TYPE27779)) goto l12464; /* x75236 */ /* x75235 */ /* x75234 stalin.sc:4606:154944 */ return FALSE_TYPE; l12464: /* x75318 */ /* x75239 stalin.sc:4607:154956 */ /* x75238 stalin.sc:4607:154983 */ t72173 = a22246; /* x75237 stalin.sc:4607:154957 */ a38236 = t72173; /* x285613 */ /* x285612 */ t72174 = a38236; /* x285611 */ if (!((t72174.tag)==STRUCTURE_TYPE27753)) goto l12466; /* x75242 */ /* x75241 */ /* x75240 stalin.sc:4607:154988 */ return TRUE_TYPE; l12466: /* x75317 */ /* x75245 stalin.sc:4608:155000 */ /* x75244 stalin.sc:4608:155024 */ t72175 = a22246; /* x75243 stalin.sc:4608:155001 */ a38129 = t72175; /* x285185 */ /* x285184 */ t72176 = a38129; /* x285183 */ if (!((t72176.tag)==STRUCTURE_TYPE27756)) goto l12468; /* x75250 */ /* x75249 */ /* x75248 stalin.sc:4608:155029 */ /* x75247 stalin.sc:4608:155064 */ t72218 = a22246; /* x75246 stalin.sc:4608:155030 */ a21236 = t72218; /* x61792 stalin.sc:1533:51067 */ /* x61792 stalin.sc:1533:51067 */ /* x61791 stalin.sc:1533:51072 */ /* x61790 stalin.sc:1533:51079 */ /* x61789 stalin.sc:1533:51123 */ t72221 = 2; /* x61788 stalin.sc:1533:51088 */ /* x61787 stalin.sc:1533:51120 */ t72224 = a21236; /* x61786 stalin.sc:1533:51089 */ a37995 = t72224; /* x284649 */ /* x284648 */ t72225 = a37995; /* x284647 */ if (!((t72225.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32912]"); structure_ref_error();} t72220 = t72225.value.structure_type27756->s5; /* x61785 stalin.sc:1533:51080 */ t72223.tag = STRUCTURE_TYPE24753; t72223.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t72223.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1533, 51079); out_of_memory_error();} t72223.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72223.value.structure_type24753->s0.value.fixnum_type = t72221; t72223.value.structure_type24753->s1.tag = NULL_TYPE; t72222 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t72222==NULL) {backtrace("stalin.sc", 1533, 51079); out_of_memory_error();} t72222->s0.tag = FIXNUM_TYPE; t72222->s0.value.fixnum_type = t72220; t72222->s1 = t72223; t72219 = f27305(t72222); /* x270614 stalin.sc:1533:51073 */ if (t72219==0) goto l12495; return TRUE_TYPE; l12495: return FALSE_TYPE; l12468: /* x75316 */ /* x75253 stalin.sc:4609:155078 */ /* x75252 stalin.sc:4609:155103 */ t72177 = a22246; /* x75251 stalin.sc:4609:155079 */ a37980 = t72177; /* x284589 */ /* x284588 */ t72178 = a37980; /* x284587 */ if (!((t72178.tag)==STRUCTURE_TYPE27750)) goto l12470; /* x75256 */ /* x75255 */ /* x75254 stalin.sc:4609:155108 */ return TRUE_TYPE; l12470: /* x75315 */ /* x75259 stalin.sc:4610:155120 */ /* x75258 stalin.sc:4610:155140 */ t72179 = a22246; /* x75257 stalin.sc:4610:155121 */ a37908 = t72179; /* x284301 */ /* x284300 */ t72180 = a37908; /* x284299 */ if (!((t72180.tag)==STRUCTURE_TYPE27858)) goto l12472; /* x75264 */ /* x75263 */ /* x75262 stalin.sc:4610:155145 */ /* x75261 stalin.sc:4610:155176 */ t72210 = a22246; /* x75260 stalin.sc:4610:155146 */ a21284 = t72210; /* x62332 stalin.sc:1665:55400 */ /* x62332 stalin.sc:1665:55400 */ /* x62331 stalin.sc:1665:55405 */ /* x62330 stalin.sc:1665:55412 */ /* x62329 stalin.sc:1665:55452 */ t72213 = 1; /* x62328 stalin.sc:1665:55421 */ /* x62327 stalin.sc:1665:55449 */ t72216 = a21284; /* x62326 stalin.sc:1665:55422 */ a37792 = t72216; /* x283837 */ /* x283836 */ t72217 = a37792; /* x283835 */ if (!((t72217.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-BOOLEANS[6101] 32709]"); structure_ref_error();} t72212 = t72217.value.structure_type27858->s5; /* x62325 stalin.sc:1665:55413 */ t72215.tag = STRUCTURE_TYPE24753; t72215.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t72215.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1665, 55412); out_of_memory_error();} t72215.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72215.value.structure_type24753->s0.value.fixnum_type = t72213; t72215.value.structure_type24753->s1.tag = NULL_TYPE; t72214 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t72214==NULL) {backtrace("stalin.sc", 1665, 55412); out_of_memory_error();} t72214->s0.tag = FIXNUM_TYPE; t72214->s0.value.fixnum_type = t72212; t72214->s1 = t72215; t72211 = f27305(t72214); /* x270586 stalin.sc:1665:55406 */ if (t72211==0) goto l12492; return TRUE_TYPE; l12492: return FALSE_TYPE; l12472: /* x75314 */ /* x75267 stalin.sc:4611:155190 */ /* x75266 stalin.sc:4611:155204 */ t72181 = a22246; /* x75265 stalin.sc:4611:155191 */ a37786 = t72181; /* x283813 */ /* x283812 */ t72182 = a37786; /* x283811 */ if (!((t72182.tag)==STRUCTURE_TYPE27673)) goto l12474; /* x75270 */ /* x75269 */ /* x75268 stalin.sc:4611:155209 */ return FALSE_TYPE; l12474: /* x75313 */ /* x75273 stalin.sc:4612:155221 */ /* x75272 stalin.sc:4612:155238 */ t72183 = a22246; /* x75271 stalin.sc:4612:155222 */ a37715 = t72183; /* x283529 */ /* x283528 */ t72184 = a37715; /* x283527 */ if (!((t72184.tag)==STRUCTURE_TYPE27769)) goto l12476; /* x75278 */ /* x75277 */ /* x75276 stalin.sc:4612:155243 */ /* x75275 stalin.sc:4612:155271 */ t72202 = a22246; /* x75274 stalin.sc:4612:155244 */ a21352 = t72202; /* x63097 stalin.sc:1852:60966 */ /* x63097 stalin.sc:1852:60966 */ /* x63096 stalin.sc:1852:60971 */ /* x63095 stalin.sc:1852:60978 */ /* x63094 stalin.sc:1852:61015 */ t72205 = 2; /* x63093 stalin.sc:1852:60987 */ /* x63092 stalin.sc:1852:61012 */ t72208 = a21352; /* x63091 stalin.sc:1852:60988 */ a37583 = t72208; /* x283001 */ /* x283000 */ t72209 = a37583; /* x282999 */ if (!((t72209.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32500]"); structure_ref_error();} t72204 = t72209.value.structure_type27769->s8; /* x63090 stalin.sc:1852:60979 */ t72207.tag = STRUCTURE_TYPE24753; t72207.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t72207.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1852, 60978); out_of_memory_error();} t72207.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72207.value.structure_type24753->s0.value.fixnum_type = t72205; t72207.value.structure_type24753->s1.tag = NULL_TYPE; t72206 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t72206==NULL) {backtrace("stalin.sc", 1852, 60978); out_of_memory_error();} t72206->s0.tag = FIXNUM_TYPE; t72206->s0.value.fixnum_type = t72204; t72206->s1 = t72207; t72203 = f27305(t72206); /* x270547 stalin.sc:1852:60972 */ if (t72203==0) goto l12489; return TRUE_TYPE; l12489: return FALSE_TYPE; l12476: /* x75312 */ /* x75281 stalin.sc:4613:155285 */ /* x75280 stalin.sc:4613:155306 */ t72185 = a22246; /* x75279 stalin.sc:4613:155286 */ a37572 = t72185; /* x282957 */ /* x282956 */ t72186 = a37572; /* x282955 */ if (!((t72186.tag)==STRUCTURE_TYPE27761)) goto l12478; /* x75284 */ /* x75283 */ /* x75282 stalin.sc:4613:155311 */ return FALSE_TYPE; l12478: /* x75311 */ /* x75287 stalin.sc:4614:155323 */ /* x75286 stalin.sc:4614:155347 */ t72187 = a22246; /* x75285 stalin.sc:4614:155324 */ a37455 = t72187; /* x282489 */ /* x282488 */ t72188 = a37455; /* x282487 */ if (!((t72188.tag)==STRUCTURE_TYPE27669)) goto l12480; /* x75290 */ /* x75289 */ /* x75288 stalin.sc:4614:155352 */ return FALSE_TYPE; l12480: /* x75310 */ /* x75293 stalin.sc:4615:155364 */ /* x75292 stalin.sc:4615:155388 */ t72189 = a22246; /* x75291 stalin.sc:4615:155365 */ a37354 = t72189; /* x282085 */ /* x282084 */ t72190 = a37354; /* x282083 */ if (!((t72190.tag)==STRUCTURE_TYPE27908)) goto l12482; /* x75296 */ /* x75295 */ /* x75294 stalin.sc:4615:155393 */ return FALSE_TYPE; l12482: /* x75309 */ /* x75299 stalin.sc:4616:155405 */ /* x75298 stalin.sc:4616:155416 */ t72191 = a22246; /* x75297 stalin.sc:4616:155406 */ a37153 = t72191; /* x281281 */ /* x281280 */ t72192 = a37153; /* x281279 */ if (!((t72192.tag)==STRUCTURE_TYPE27650)) goto l12484; /* x75304 */ /* x75303 */ /* x75302 stalin.sc:4616:155421 */ /* x75301 stalin.sc:4616:155443 */ t72194 = a22246; /* x75300 stalin.sc:4616:155422 */ a21787 = t72194; /* x69620 stalin.sc:3311:112945 */ /* x69620 stalin.sc:3311:112945 */ /* x69619 stalin.sc:3311:112950 */ /* x69618 stalin.sc:3311:112957 */ /* x69617 stalin.sc:3311:112988 */ t72197 = 1; /* x69616 stalin.sc:3311:112966 */ /* x69615 stalin.sc:3311:112985 */ t72200 = a21787; /* x69614 stalin.sc:3311:112967 */ a37036 = t72200; /* x280813 */ /* x280812 */ t72201 = a37036; /* x280811 */ if (!((t72201.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-BOOLEANS[6507] 31953]"); structure_ref_error();} t72196 = t72201.value.structure_type27650->s5; /* x69613 stalin.sc:3311:112958 */ t72199.tag = STRUCTURE_TYPE24753; t72199.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t72199.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3311, 112957); out_of_memory_error();} t72199.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72199.value.structure_type24753->s0.value.fixnum_type = t72197; t72199.value.structure_type24753->s1.tag = NULL_TYPE; t72198 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t72198==NULL) {backtrace("stalin.sc", 3311, 112957); out_of_memory_error();} t72198->s0.tag = FIXNUM_TYPE; t72198->s0.value.fixnum_type = t72196; t72198->s1 = t72199; t72195 = f27305(t72198); /* x270372 stalin.sc:3311:112951 */ if (t72195==0) goto l12486; return TRUE_TYPE; l12486: return FALSE_TYPE; l12484: /* x75308 */ /* x75307 */ /* x75306 stalin.sc:4617:155462 */ /* x75305 stalin.sc:4617:155463 */ /* x297449 QobiScheme.sc:166:5314 */ /* x297448 QobiScheme.sc:166:5321 */ t72193 = "This shouldn\'t happen"; /* x297447 QobiScheme.sc:166:5315 */ stalin_panic(t72193);} /* GOTO?[8792] */ unsigned f8792(struct w49 a22244, struct w49 a22245) {struct w49 a36442; /* S */ struct w49 a37829; /* S */ struct w49 a40052; /* S */ struct w49 a40053; /* S */ struct w49 t72226; struct w49 t72227; struct w49 t72228; struct w49 t72229; struct w49 t72230; struct w49 t72231; struct w49 t72232; struct w49 t72233; struct w49 t72234; struct w49 t72235; struct w49 t72236; /* x75156 stalin.sc:4586:154287 */ /* x75156 stalin.sc:4586:154287 */ /* x75151 stalin.sc:4586:154292 */ /* x75145 stalin.sc:4587:154313 */ /* x75144 stalin.sc:4587:154337 */ /* x75143 stalin.sc:4587:154359 */ t72230 = a22244; /* x75142 stalin.sc:4587:154338 */ a36442 = t72230; /* x278437 */ /* x278436 */ t72231 = a36442; /* x278435 */ if (!((t72231.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31359]"); structure_ref_error();} t72228 = t72231.value.structure_type27745->s0; /* x75141 stalin.sc:4587:154314 */ a40052 = t72228; /* x292877 */ /* x292876 */ t72229 = a40052; /* x292875 */ if (!((t72229.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34969]"); structure_ref_error();} t72226 = t72229.value.structure_type27698->s9; /* x75150 stalin.sc:4588:154370 */ /* x75149 stalin.sc:4588:154394 */ /* x75148 stalin.sc:4588:154435 */ t72234 = a22245; /* x75147 stalin.sc:4588:154395 */ a37829 = t72234; /* x283985 */ /* x283984 */ t72235 = a37829; /* x283983 */ if (!((t72235.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32746]"); structure_ref_error();} t72232 = t72235.value.structure_type27858->s0; /* x75146 stalin.sc:4588:154371 */ a40053 = t72232; /* x292881 */ /* x292880 */ t72233 = a40053; /* x292879 */ if (!((t72233.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34970]"); structure_ref_error();} t72227 = t72233.value.structure_type27698->s9; /* x75140 stalin.sc:4586:154293 */ if (f8999(t72226, t72227)==FALSE_TYPE) goto l12498; /* x75154 */ /* x75153 stalin.sc:4589:154459 */ t72236 = a22245; /* x75152 stalin.sc:4589:154447 */ if (f8246(t72236)==FALSE_TYPE) goto l12498; return TRUE_TYPE; l12498: return FALSE_TYPE;} /* CAN-BE-SELF-TAIL-CALL-TO?[8791] */ unsigned f8791(struct w49 a22242, struct w49 a22243) {struct w49 a36480; /* S */ struct w49 t72237; struct w49 t72238; struct w49 t72239; struct w49 t72240; struct w49 t72241; struct w49 t72242; struct w49 t72243; struct w49 t72244; struct w49 t72245; /* x75137 stalin.sc:4577:154046 */ /* x75137 stalin.sc:4577:154046 */ /* x75117 stalin.sc:4577:154051 */ /* x75116 stalin.sc:4577:154056 */ /* x75115 stalin.sc:4577:154063 */ t72237 = a22243; /* x75114 stalin.sc:4577:154057 */ if (!(f8918(t72237)==FALSE_TYPE)) goto l12502; /* x75135 */ /* x75121 stalin.sc:4578:154073 */ /* x75119 stalin.sc:4578:154090 */ t72238 = a22242; /* x75120 stalin.sc:4578:154092 */ t72239 = a22243; /* x75118 stalin.sc:4578:154074 */ if (f8790(t72238, t72239)==FALSE_TYPE) goto l12502; /* x75133 */ /* x75125 stalin.sc:4579:154101 */ /* x75123 stalin.sc:4579:154113 */ t72240 = a22242; /* x75124 stalin.sc:4579:154115 */ t72241 = a22243; /* x75122 stalin.sc:4579:154102 */ if (f7013(t72240, t72241)==FALSE_TYPE) goto l12502; /* x75131 */ /* x75129 stalin.sc:4581:154205 */ /* x75128 stalin.sc:4581:154227 */ t72244 = a22242; /* x75127 stalin.sc:4581:154206 */ a36480 = t72244; /* x278589 */ /* x278588 */ t72245 = a36480; /* x278587 */ if (!((t72245.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31397]"); structure_ref_error();} t72242 = t72245.value.structure_type27745->s0; /* x75130 stalin.sc:4581:154230 */ t72243 = a22243; /* x75126 stalin.sc:4581:154192 */ if (f8999(t72242, t72243)==FALSE_TYPE) goto l12502; return TRUE_TYPE; l12502: return FALSE_TYPE;} /* CAN-BE-CALL-TO?[8790] */ unsigned f8790(struct w49 a22240, struct w49 a22241) {struct w49 t72246; struct structure_type24753 *t72247; struct p14552 *t72248; struct w49 t72249; struct w49 t72250; /* x75110 stalin.sc:4571:153760 */ /* x75110 stalin.sc:4571:153760 */ /* x75109 stalin.sc:4571:153765 */ /* x75108 stalin.sc:4571:153770 */ /* x75103 stalin.sc:4571:153776 */ /* x75104 stalin.sc:4571:153792 */ t72246 = a22240; /* x75107 stalin.sc:4571:153794 */ /* x75106 stalin.sc:4571:153806 */ t72250 = a22241; /* x75105 stalin.sc:4571:153795 */ t72247 = f8615(t72250); /* x75102 stalin.sc:4571:153771 */ t72248 = (struct p14552 *)NATIVE_PROCEDURE_TYPE7236; /* MOVE: branching squeezed to general */ if (t72247>=((struct structure_type24753 *)VALUE_OFFSET)) {t72249.tag = STRUCTURE_TYPE24753; t72249.value.structure_type24753 = t72247;} else t72249.tag = (unsigned)t72247; if ((f1178(t72248, t72246, t72249).tag)==FALSE_TYPE) goto l12508; return TRUE_TYPE; l12508: return FALSE_TYPE;} /* SAME-CALL-SITE?[8788] */ unsigned f8788(struct w49 a22237, struct w49 a22238) {struct w49 a36353; /* S */ struct w49 a36354; /* S */ struct w49 a36485; /* S */ struct w49 a36486; /* S */ struct w49 t72251; struct w49 t72252; struct w49 t72253; struct w49 t72254; struct w49 t72255; struct w49 t72256; struct w49 t72257; struct w49 t72258; struct w49 t72259; struct w49 t72260; struct structure_type24753 *t72261; struct structure_type24753 *t72262; struct w49 t72263; struct w49 t72264; struct w49 t72265; struct w49 t72266; struct w49 t72267; struct w49 t72268; /* x75097 stalin.sc:4562:153430 */ /* x75097 stalin.sc:4562:153430 */ /* x75096 stalin.sc:4562:153434 */ /* x75091 stalin.sc:4562:153439 */ /* x75090 stalin.sc:4562:153461 */ t72251 = a22237; /* x75089 stalin.sc:4562:153440 */ if (f8751(t72251)==FALSE_TYPE) goto l12513; /* x75094 */ /* x75093 stalin.sc:4562:153487 */ t72252 = a22238; /* x75092 stalin.sc:4562:153466 */ if (!(f8751(t72252)==FALSE_TYPE)) goto l12510; l12513: /* x75086 */ /* x75059 stalin.sc:4563:153502 */ /* x75058 stalin.sc:4563:153507 */ /* x75057 stalin.sc:4563:153529 */ t72253 = a22237; /* x75056 stalin.sc:4563:153508 */ if (!(f8751(t72253)==FALSE_TYPE)) goto l12511; /* x75084 */ /* x75064 stalin.sc:4564:153537 */ /* x75063 stalin.sc:4564:153542 */ /* x75062 stalin.sc:4564:153564 */ t72254 = a22238; /* x75061 stalin.sc:4564:153543 */ if (!(f8751(t72254)==FALSE_TYPE)) goto l12511; /* x75082 */ /* x75072 stalin.sc:4565:153572 */ /* x75068 stalin.sc:4565:153577 */ /* x75067 stalin.sc:4565:153599 */ t72257 = a22237; /* x75066 stalin.sc:4565:153578 */ a36485 = t72257; /* x278609 */ /* x278608 */ t72258 = a36485; /* x278607 */ if (!((t72258.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31402]"); structure_ref_error();} t72255 = t72258.value.structure_type27745->s0; /* x75071 stalin.sc:4565:153603 */ /* x75070 stalin.sc:4565:153625 */ t72259 = a22238; /* x75069 stalin.sc:4565:153604 */ a36486 = t72259; /* x278613 */ /* x278612 */ t72260 = a36486; /* x278611 */ if (!((t72260.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31403]"); structure_ref_error();} t72256 = t72260.value.structure_type27745->s0; /* x270163 stalin.sc:4565:153573 */ /* EQ: dispatching general to general */ if (!((t72255.tag)==(t72256.tag))) goto l12511; switch (t72255.tag) {case FIXNUM_TYPE: if (!((t72255.value.fixnum_type)==(t72256.value.fixnum_type))) goto l12511; break; case FLONUM_TYPE: if (!((t72255.value.flonum_type)==(t72256.value.flonum_type))) goto l12511; break; case INPUT_PORT_TYPE: if (!((t72255.value.input_port_type)==(t72256.value.input_port_type))) goto l12511; break; case OUTPUT_PORT_TYPE: if (!((t72255.value.output_port_type)==(t72256.value.output_port_type))) goto l12511; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t72255.value.native_procedure_type15963)==(t72256.value.native_procedure_type15963))) goto l12511; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t72255.value.native_procedure_type19067)==(t72256.value.native_procedure_type19067))) goto l12511; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t72255.value.native_procedure_type19068)==(t72256.value.native_procedure_type19068))) goto l12511; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t72255.value.native_procedure_type22459)==(t72256.value.native_procedure_type22459))) goto l12511; break; case STRUCTURE_TYPE24753: if (!((t72255.value.structure_type24753)==(t72256.value.structure_type24753))) goto l12511; break; case STRUCTURE_TYPE24757: if (!((t72255.value.structure_type24757)==(t72256.value.structure_type24757))) goto l12511; break; case STRUCTURE_TYPE27501: if (!((t72255.value.structure_type27501)==(t72256.value.structure_type27501))) goto l12511; break; case STRUCTURE_TYPE27510: if (!((t72255.value.structure_type27510)==(t72256.value.structure_type27510))) goto l12511; break; case STRUCTURE_TYPE27621: if (!((t72255.value.structure_type27621)==(t72256.value.structure_type27621))) goto l12511; break; case STRUCTURE_TYPE27650: if (!((t72255.value.structure_type27650)==(t72256.value.structure_type27650))) goto l12511; break; case STRUCTURE_TYPE27669: if (!((t72255.value.structure_type27669)==(t72256.value.structure_type27669))) goto l12511; break; case STRUCTURE_TYPE27673: if (!((t72255.value.structure_type27673)==(t72256.value.structure_type27673))) goto l12511; break; case STRUCTURE_TYPE27692: if (!((t72255.value.structure_type27692)==(t72256.value.structure_type27692))) goto l12511; break; case STRUCTURE_TYPE27694: if (!((t72255.value.structure_type27694)==(t72256.value.structure_type27694))) goto l12511; break; case STRUCTURE_TYPE27698: if (!((t72255.value.structure_type27698)==(t72256.value.structure_type27698))) goto l12511; break; case STRUCTURE_TYPE27745: if (!((t72255.value.structure_type27745)==(t72256.value.structure_type27745))) goto l12511; break; case STRUCTURE_TYPE27747: if (!((t72255.value.structure_type27747)==(t72256.value.structure_type27747))) goto l12511; break; case STRUCTURE_TYPE27750: if (!((t72255.value.structure_type27750)==(t72256.value.structure_type27750))) goto l12511; break; case STRUCTURE_TYPE27753: if (!((t72255.value.structure_type27753)==(t72256.value.structure_type27753))) goto l12511; break; case STRUCTURE_TYPE27756: if (!((t72255.value.structure_type27756)==(t72256.value.structure_type27756))) goto l12511; break; case STRUCTURE_TYPE27761: if (!((t72255.value.structure_type27761)==(t72256.value.structure_type27761))) goto l12511; break; case STRUCTURE_TYPE27769: if (!((t72255.value.structure_type27769)==(t72256.value.structure_type27769))) goto l12511; break; case STRUCTURE_TYPE27776: if (!((t72255.value.structure_type27776)==(t72256.value.structure_type27776))) goto l12511; break; case STRUCTURE_TYPE27779: if (!((t72255.value.structure_type27779)==(t72256.value.structure_type27779))) goto l12511; break; case STRUCTURE_TYPE27858: if (!((t72255.value.structure_type27858)==(t72256.value.structure_type27858))) goto l12511; break; case STRING_TYPE: if (!((t72255.value.string_type)==(t72256.value.string_type))) goto l12511; break; case HEADED_VECTOR_TYPE27896: if (!((t72255.value.headed_vector_type27896)==(t72256.value.headed_vector_type27896))) goto l12511; break; case EXTERNAL_SYMBOL_TYPE: if (!((t72255.value.external_symbol_type)==(t72256.value.external_symbol_type))) goto l12511; break; case STRUCTURE_TYPE27908: if (!((t72255.value.structure_type27908)==(t72256.value.structure_type27908))) goto l12511; break; default:;} /* x75080 */ /* x75076 stalin.sc:4566:153641 */ /* x75075 stalin.sc:4566:153660 */ t72265 = a22237; /* x75074 stalin.sc:4566:153642 */ a36353 = t72265; /* x278081 */ /* x278080 */ t72266 = a36353; /* x278079 */ if (!((t72266.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-OFFSETS[6857] 31270]"); structure_ref_error();} t72261 = t72266.value.structure_type27745->s1; /* x75079 stalin.sc:4566:153664 */ /* x75078 stalin.sc:4566:153683 */ t72267 = a22238; /* x75077 stalin.sc:4566:153665 */ a36354 = t72267; /* x278085 */ /* x278084 */ t72268 = a36354; /* x278083 */ if (!((t72268.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-OFFSETS[6857] 31271]"); structure_ref_error();} t72262 = t72268.value.structure_type27745->s1; /* x75073 stalin.sc:4566:153634 */ /* MOVE: branching squeezed to general */ if (t72261>=((struct structure_type24753 *)VALUE_OFFSET)) {t72263.tag = STRUCTURE_TYPE24753; t72263.value.structure_type24753 = t72261;} else t72263.tag = (unsigned)t72261; /* MOVE: branching squeezed to general */ if (t72262>=((struct structure_type24753 *)VALUE_OFFSET)) {t72264.tag = STRUCTURE_TYPE24753; t72264.value.structure_type24753 = t72262;} else t72264.tag = (unsigned)t72262; if (f26165(t72263, t72264)==FALSE_TYPE) goto l12511; l12510: return TRUE_TYPE; l12511: return FALSE_TYPE;} /* NONMERGED-TAIL-RECURSIVE-PURELY-TAIL-CALL-SITE-CALLEES[8776] */ struct w12224 f8776(struct w49 a22232) {struct w49 a36493; /* S */ struct w49 a40101; /* S */ struct p8776 *t72269; struct w12224 t72270; struct w227671 t72271; struct w49 t72272; struct w49 t72273; struct w49 t72274; struct w49 t72275; struct w49 t72276; struct w49 t72277; struct p8776 *e8776; e8776 = (struct p8776 *)alloca(sizeof(struct p8776)); if (e8776==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e8776->a22232 = a22232; /* x74981 stalin.sc:4541:152642 */ /* x74973 stalin.sc:4542:152659 */ t72269 = e8776; /* x74980 stalin.sc:4547:152830 */ /* x74979 stalin.sc:4547:152851 */ /* x74978 stalin.sc:4547:152875 */ /* x74977 stalin.sc:4547:152897 */ t72276 = e8776->a22232; /* x74976 stalin.sc:4547:152876 */ a36493 = t72276; /* x278641 */ /* x278640 */ t72277 = a36493; /* x278639 */ if (!((t72277.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31410]"); structure_ref_error();} t72274 = t72277.value.structure_type27745->s0; /* x74975 stalin.sc:4547:152852 */ a40101 = t72274; /* x293073 */ /* x293072 */ t72275 = a40101; /* x293071 */ if (!((t72275.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35018]"); structure_ref_error();} t72273 = t72275.value.structure_type27698->s9; /* x74974 stalin.sc:4547:152831 */ t72270 = f11650(t72273); /* x74940 stalin.sc:4541:152643 */ t72271.tag = NATIVE_PROCEDURE_TYPE15241; t72271.value.native_procedure_type15241 = t72269; t72272 = *((struct w49 *)(&t72270)); return f1226(t72271, t72272);} /* NONMERGED-TAIL-RECURSIVE-PURELY-TAIL-CALL-SITE?[8773] */ struct w16638 f8773(struct w49 a22229) {struct w16638 r8773; struct w49 a22213; /* Y */ struct w49 a22216; /* X */ struct w49 a36494; /* S */ struct w49 a36495; /* S */ struct w49 a38678; /* S */ struct w49 a39988; /* S */ struct w49 a40102; /* S */ struct w49 a40323; /* S */ struct w49 a40324; /* S */ struct w49 t72278; struct w49 t72279; struct w49 t72280; struct w49 t72281; char *t72282; char *t72283; struct w49 t72284; struct w49 t72285; char *t72286; char *t72287; struct w49 t72288; struct w49 t72289; struct p8759 *t72290; struct w49 t72291; struct w211225 t72292; struct w49 t72293; struct w49 t72294; struct w49 t72295; struct w49 t72296; struct w49 t72297; struct w49 t72298; struct w49 t72299; struct p8773 *t72300; struct w12224 t72301; struct w228345 t72302; struct w49 t72303; struct structure_type24753 *t72304; struct w49 t72305; struct w49 t72306; struct w49 t72307; struct w49 t72308; struct w49 t72309; struct p8773 *e8773; struct p8759 *e8759; struct p8759 *p8760; struct p8759 *p8761; e8773 = (struct p8773 *)alloca(sizeof(struct p8773)); if (e8773==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e8773->a22229 = a22229; /* x74937 stalin.sc:4527:152225 */ /* x74888 stalin.sc:4528:152232 */ /* x74887 stalin.sc:4528:152256 */ t72278 = e8773->a22229; /* x74886 stalin.sc:4528:152233 */ a22213 = t72278; /* x74883 stalin.sc:4500:151112 */ /* x74882 stalin.sc:4501:151118 */ /* x74881 stalin.sc:4501:151140 */ t72279 = a22213; /* x74880 stalin.sc:4501:151119 */ if (!(f8751(t72279)==FALSE_TYPE)) goto l12518; /* x74877 */ /* x74876 stalin.sc:4502:151145 */ /* x74875 stalin.sc:4502:151179 */ t72280 = a22213; /* x74874 stalin.sc:4502:151146 */ if (!(f8755(t72280)==FALSE_TYPE)) goto l12518; /* x74871 */ /* x74870 stalin.sc:4503:151193 */ /* x74869 stalin.sc:4503:151215 */ t72298 = a22213; /* x74868 stalin.sc:4503:151194 */ a36495 = t72298; /* x278649 */ /* x278648 */ t72299 = a36495; /* x278647 */ if (!((t72299.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31412]"); structure_ref_error();} t72281 = t72299.value.structure_type27745->s0; /* x74867 */ a22216 = t72281; e8759 = (struct p8759 *)alloca(sizeof(struct p8759)); if (e8759==NULL) {backtrace_internal("[inside PURELY-TAIL-CALL-SITE? 8758]"); out_of_memory_error();} e8759->a22216 = a22216; /* x74866 stalin.sc:4504:151223 */ /* x74738 stalin.sc:4505:151232 */ /* x74737 stalin.sc:4505:151236 */ /* x74735 stalin.sc:4505:151241 */ /* x74734 stalin.sc:4505:151258 */ t72284 = e8759->a22216; /* x74733 stalin.sc:4505:151242 */ a40324 = t72284; /* x293965 */ /* x293964 */ t72285 = a40324; /* x293963 */ if (!((t72285.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35241]"); structure_ref_error();} t72282 = t72285.value.structure_type27698->s0; /* x74736 stalin.sc:4505:151261 */ t72283 = q36; /* x270180 stalin.sc:4505:151237 */ if (t72282==t72283) goto l12522; p8760 = e8759; /* x74729 */ /* x74727 stalin.sc:4506:151274 */ /* x74726 stalin.sc:4506:151291 */ t72288 = p8760->a22216; /* x74725 stalin.sc:4506:151275 */ a40323 = t72288; /* x293961 */ /* x293960 */ t72289 = a40323; /* x293959 */ if (!((t72289.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35240]"); structure_ref_error();} t72286 = t72289.value.structure_type27698->s0; /* x74728 stalin.sc:4506:151294 */ t72287 = q37; /* x270181 stalin.sc:4506:151270 */ if (!(t72286==t72287)) goto l12519; l12522: /* x74864 */ /* x74863 stalin.sc:4510:151515 */ /* x74857 stalin.sc:4510:151525 */ t72290 = e8759; /* x74862 stalin.sc:4514:151650 */ /* x74861 stalin.sc:4514:151671 */ /* x74860 stalin.sc:4514:151690 */ t72295 = e8759->a22216; /* x74859 stalin.sc:4514:151672 */ a38678 = t72295; /* x287381 */ /* x287380 */ t72296 = a38678; /* x287379 */ if (!((t72296.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33595]"); structure_ref_error();} t72293 = t72296.value.structure_type27698->s21; /* x74858 stalin.sc:4514:151651 */ a39988 = t72293; /* x292621 */ /* x292620 */ t72294 = a39988; /* x292619 */ if (!((t72294.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34905]"); structure_ref_error();} t72291 = t72294.value.structure_type27698->s10; /* x74831 stalin.sc:4510:151516 */ t72292.tag = NATIVE_PROCEDURE_TYPE17958; t72292.value.native_procedure_type17958 = t72290; if (!(f8146(t72292, t72291)==FALSE_TYPE)) goto l12518; p8761 = e8759; /* x74828 */ /* x74827 stalin.sc:4515:151711 */ t72297 = p8761->a22216; /* x74826 */ /* x74825 */ /* x74824 */ /* x74823 */ /* x74822 */ /* x74821 */ /* x74820 */ /* x74742 */ /* x74741 stalin.sc:4515:151701 */ if (f8764(t72297)==FALSE_TYPE) goto l12519; l12518: /* x74935 */ /* x74934 stalin.sc:4536:152473 */ /* x74933 stalin.sc:4536:152494 */ /* x74932 stalin.sc:4536:152518 */ /* x74931 stalin.sc:4536:152540 */ t72308 = e8773->a22229; /* x74930 stalin.sc:4536:152519 */ a36494 = t72308; /* x278645 */ /* x278644 */ t72309 = a36494; /* x278643 */ if (!((t72309.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31411]"); structure_ref_error();} t72306 = t72309.value.structure_type27745->s0; /* x74929 stalin.sc:4536:152495 */ a40102 = t72306; /* x293077 */ /* x293076 */ t72307 = a40102; /* x293075 */ if (!((t72307.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35019]"); structure_ref_error();} t72305 = t72307.value.structure_type27698->s9; /* x74928 stalin.sc:4536:152474 */ t72301 = f11650(t72305); /* x74927 stalin.sc:4530:152270 */ t72300 = e8773; /* x74889 stalin.sc:4529:152262 */ t72302.tag = NATIVE_PROCEDURE_TYPE15237; t72302.value.native_procedure_type15237 = t72300; t72303 = *((struct w49 *)(&t72301)); t72304 = (struct structure_type24753 *)NULL_TYPE; return f1042(t72302, t72303, t72304); l12519: /* x74936 */ r8773.tag = FALSE_TYPE; return r8773;} /* LOOP?[8764] */ unsigned f8764(struct w49 a22221) {struct w49 a38897; /* S */ struct w49 a38949; /* S */ struct w49 a39730; /* S */ struct w49 a39731; /* S */ struct w49 a39732; /* S */ struct w49 a39733; /* S */ struct w49 a39734; /* S */ struct w49 a39735; /* S */ struct w49 a39736; /* S */ struct w49 a40286; /* S */ struct w49 a40287; /* S */ struct w49 a40288; /* S */ struct w49 a40289; /* S */ char *t72310; char *t72311; struct w49 t72312; struct w49 t72313; struct w49 t72314; struct w49 t72315; struct w49 t72316; struct w49 t72317; struct w49 t72318; struct w49 t72319; struct w49 t72320; struct w49 t72321; struct w49 t72322; struct w49 t72323; struct w49 t72324; struct w49 t72325; struct w49 t72326; struct w49 t72327; struct w49 t72328; struct w49 t72329; struct w49 t72330; char *t72331; char *t72332; struct w49 t72333; struct w49 t72334; struct w49 t72335; struct w49 t72336; char *t72337; char *t72338; struct w49 t72339; struct w49 t72340; struct w49 t72341; struct w49 t72342; char *t72343; char *t72344; struct w49 t72345; struct w49 t72346; struct w49 t72347; struct w49 t72348; /* x74819 stalin.sc:4516:151717 */ /* x74819 stalin.sc:4516:151717 */ /* x74818 stalin.sc:4516:151721 */ /* x74788 stalin.sc:4516:151726 */ /* x74786 stalin.sc:4516:151731 */ /* x74785 stalin.sc:4516:151748 */ /* x74784 stalin.sc:4516:151767 */ t72314 = a22221; /* x74783 stalin.sc:4516:151749 */ a39736 = t72314; /* x291613 */ /* x291612 */ t72315 = a39736; /* x291611 */ if (!((t72315.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34653]"); structure_ref_error();} t72312 = t72315.value.structure_type27698->s11; /* x74782 stalin.sc:4516:151732 */ a40289 = t72312; /* x293825 */ /* x293824 */ t72313 = a40289; /* x293823 */ if (!((t72313.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35206]"); structure_ref_error();} t72310 = t72313.value.structure_type27698->s0; /* x74787 stalin.sc:4516:151771 */ t72311 = q43; /* x270176 stalin.sc:4516:151727 */ if (!(t72310==t72311)) goto l12528; /* x74816 */ /* x74809 stalin.sc:4517:151780 */ /* x74808 stalin.sc:4517:151784 */ /* x74802 stalin.sc:4517:151789 */ t72316 = a22221; /* x74807 stalin.sc:4517:151791 */ /* x74806 stalin.sc:4517:151814 */ /* x74805 stalin.sc:4517:151833 */ t72320 = a22221; /* x74804 stalin.sc:4517:151815 */ a39735 = t72320; /* x291609 */ /* x291608 */ t72321 = a39735; /* x291607 */ if (!((t72321.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34652]"); structure_ref_error();} t72318 = t72321.value.structure_type27698->s11; /* x74803 stalin.sc:4517:151792 */ a38949 = t72318; /* x288465 */ /* x288464 */ t72319 = a38949; /* x288463 */ if (!((t72319.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33866]"); structure_ref_error();} t72317 = t72319.value.structure_type27698->s19; /* x270174 stalin.sc:4517:151785 */ /* EQ: dispatching general to general */ if ((t72316.tag)==(t72317.tag)) switch (t72316.tag) {case FIXNUM_TYPE: if ((t72316.value.fixnum_type)==(t72317.value.fixnum_type)) goto l12530; break; case FLONUM_TYPE: if ((t72316.value.flonum_type)==(t72317.value.flonum_type)) goto l12530; break; case INPUT_PORT_TYPE: if ((t72316.value.input_port_type)==(t72317.value.input_port_type)) goto l12530; break; case OUTPUT_PORT_TYPE: if ((t72316.value.output_port_type)==(t72317.value.output_port_type)) goto l12530; break; case NATIVE_PROCEDURE_TYPE15963: if ((t72316.value.native_procedure_type15963)==(t72317.value.native_procedure_type15963)) goto l12530; break; case NATIVE_PROCEDURE_TYPE19067: if ((t72316.value.native_procedure_type19067)==(t72317.value.native_procedure_type19067)) goto l12530; break; case NATIVE_PROCEDURE_TYPE19068: if ((t72316.value.native_procedure_type19068)==(t72317.value.native_procedure_type19068)) goto l12530; break; case NATIVE_PROCEDURE_TYPE22459: if ((t72316.value.native_procedure_type22459)==(t72317.value.native_procedure_type22459)) goto l12530; break; case STRUCTURE_TYPE24753: if ((t72316.value.structure_type24753)==(t72317.value.structure_type24753)) goto l12530; break; case STRUCTURE_TYPE24757: if ((t72316.value.structure_type24757)==(t72317.value.structure_type24757)) goto l12530; break; case STRUCTURE_TYPE27501: if ((t72316.value.structure_type27501)==(t72317.value.structure_type27501)) goto l12530; break; case STRUCTURE_TYPE27510: if ((t72316.value.structure_type27510)==(t72317.value.structure_type27510)) goto l12530; break; case STRUCTURE_TYPE27621: if ((t72316.value.structure_type27621)==(t72317.value.structure_type27621)) goto l12530; break; case STRUCTURE_TYPE27650: if ((t72316.value.structure_type27650)==(t72317.value.structure_type27650)) goto l12530; break; case STRUCTURE_TYPE27669: if ((t72316.value.structure_type27669)==(t72317.value.structure_type27669)) goto l12530; break; case STRUCTURE_TYPE27673: if ((t72316.value.structure_type27673)==(t72317.value.structure_type27673)) goto l12530; break; case STRUCTURE_TYPE27692: if ((t72316.value.structure_type27692)==(t72317.value.structure_type27692)) goto l12530; break; case STRUCTURE_TYPE27694: if ((t72316.value.structure_type27694)==(t72317.value.structure_type27694)) goto l12530; break; case STRUCTURE_TYPE27698: if ((t72316.value.structure_type27698)==(t72317.value.structure_type27698)) goto l12530; break; case STRUCTURE_TYPE27745: if ((t72316.value.structure_type27745)==(t72317.value.structure_type27745)) goto l12530; break; case STRUCTURE_TYPE27747: if ((t72316.value.structure_type27747)==(t72317.value.structure_type27747)) goto l12530; break; case STRUCTURE_TYPE27750: if ((t72316.value.structure_type27750)==(t72317.value.structure_type27750)) goto l12530; break; case STRUCTURE_TYPE27753: if ((t72316.value.structure_type27753)==(t72317.value.structure_type27753)) goto l12530; break; case STRUCTURE_TYPE27756: if ((t72316.value.structure_type27756)==(t72317.value.structure_type27756)) goto l12530; break; case STRUCTURE_TYPE27761: if ((t72316.value.structure_type27761)==(t72317.value.structure_type27761)) goto l12530; break; case STRUCTURE_TYPE27769: if ((t72316.value.structure_type27769)==(t72317.value.structure_type27769)) goto l12530; break; case STRUCTURE_TYPE27776: if ((t72316.value.structure_type27776)==(t72317.value.structure_type27776)) goto l12530; break; case STRUCTURE_TYPE27779: if ((t72316.value.structure_type27779)==(t72317.value.structure_type27779)) goto l12530; break; case STRUCTURE_TYPE27858: if ((t72316.value.structure_type27858)==(t72317.value.structure_type27858)) goto l12530; break; case STRING_TYPE: if ((t72316.value.string_type)==(t72317.value.string_type)) goto l12530; break; case HEADED_VECTOR_TYPE27896: if ((t72316.value.headed_vector_type27896)==(t72317.value.headed_vector_type27896)) goto l12530; break; case EXTERNAL_SYMBOL_TYPE: if ((t72316.value.external_symbol_type)==(t72317.value.external_symbol_type)) goto l12530; break; case STRUCTURE_TYPE27908: if ((t72316.value.structure_type27908)==(t72317.value.structure_type27908)) goto l12530; break; default: goto l12530;} /* x74798 */ /* x74792 stalin.sc:4518:151851 */ t72322 = a22221; /* x74797 stalin.sc:4518:151853 */ /* x74796 stalin.sc:4518:151875 */ /* x74795 stalin.sc:4518:151894 */ t72326 = a22221; /* x74794 stalin.sc:4518:151876 */ a39734 = t72326; /* x291605 */ /* x291604 */ t72327 = a39734; /* x291603 */ if (!((t72327.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34651]"); structure_ref_error();} t72324 = t72327.value.structure_type27698->s11; /* x74793 stalin.sc:4518:151854 */ a38897 = t72324; /* x288257 */ /* x288256 */ t72325 = a38897; /* x288255 */ if (!((t72325.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33814]"); structure_ref_error();} t72323 = t72325.value.structure_type27698->s20; /* x270175 stalin.sc:4518:151847 */ /* EQ: dispatching general to general */ if (!((t72322.tag)==(t72323.tag))) goto l12528; switch (t72322.tag) {case FIXNUM_TYPE: if (!((t72322.value.fixnum_type)==(t72323.value.fixnum_type))) goto l12528; break; case FLONUM_TYPE: if (!((t72322.value.flonum_type)==(t72323.value.flonum_type))) goto l12528; break; case INPUT_PORT_TYPE: if (!((t72322.value.input_port_type)==(t72323.value.input_port_type))) goto l12528; break; case OUTPUT_PORT_TYPE: if (!((t72322.value.output_port_type)==(t72323.value.output_port_type))) goto l12528; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t72322.value.native_procedure_type15963)==(t72323.value.native_procedure_type15963))) goto l12528; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t72322.value.native_procedure_type19067)==(t72323.value.native_procedure_type19067))) goto l12528; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t72322.value.native_procedure_type19068)==(t72323.value.native_procedure_type19068))) goto l12528; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t72322.value.native_procedure_type22459)==(t72323.value.native_procedure_type22459))) goto l12528; break; case STRUCTURE_TYPE24753: if (!((t72322.value.structure_type24753)==(t72323.value.structure_type24753))) goto l12528; break; case STRUCTURE_TYPE24757: if (!((t72322.value.structure_type24757)==(t72323.value.structure_type24757))) goto l12528; break; case STRUCTURE_TYPE27501: if (!((t72322.value.structure_type27501)==(t72323.value.structure_type27501))) goto l12528; break; case STRUCTURE_TYPE27510: if (!((t72322.value.structure_type27510)==(t72323.value.structure_type27510))) goto l12528; break; case STRUCTURE_TYPE27621: if (!((t72322.value.structure_type27621)==(t72323.value.structure_type27621))) goto l12528; break; case STRUCTURE_TYPE27650: if (!((t72322.value.structure_type27650)==(t72323.value.structure_type27650))) goto l12528; break; case STRUCTURE_TYPE27669: if (!((t72322.value.structure_type27669)==(t72323.value.structure_type27669))) goto l12528; break; case STRUCTURE_TYPE27673: if (!((t72322.value.structure_type27673)==(t72323.value.structure_type27673))) goto l12528; break; case STRUCTURE_TYPE27692: if (!((t72322.value.structure_type27692)==(t72323.value.structure_type27692))) goto l12528; break; case STRUCTURE_TYPE27694: if (!((t72322.value.structure_type27694)==(t72323.value.structure_type27694))) goto l12528; break; case STRUCTURE_TYPE27698: if (!((t72322.value.structure_type27698)==(t72323.value.structure_type27698))) goto l12528; break; case STRUCTURE_TYPE27745: if (!((t72322.value.structure_type27745)==(t72323.value.structure_type27745))) goto l12528; break; case STRUCTURE_TYPE27747: if (!((t72322.value.structure_type27747)==(t72323.value.structure_type27747))) goto l12528; break; case STRUCTURE_TYPE27750: if (!((t72322.value.structure_type27750)==(t72323.value.structure_type27750))) goto l12528; break; case STRUCTURE_TYPE27753: if (!((t72322.value.structure_type27753)==(t72323.value.structure_type27753))) goto l12528; break; case STRUCTURE_TYPE27756: if (!((t72322.value.structure_type27756)==(t72323.value.structure_type27756))) goto l12528; break; case STRUCTURE_TYPE27761: if (!((t72322.value.structure_type27761)==(t72323.value.structure_type27761))) goto l12528; break; case STRUCTURE_TYPE27769: if (!((t72322.value.structure_type27769)==(t72323.value.structure_type27769))) goto l12528; break; case STRUCTURE_TYPE27776: if (!((t72322.value.structure_type27776)==(t72323.value.structure_type27776))) goto l12528; break; case STRUCTURE_TYPE27779: if (!((t72322.value.structure_type27779)==(t72323.value.structure_type27779))) goto l12528; break; case STRUCTURE_TYPE27858: if (!((t72322.value.structure_type27858)==(t72323.value.structure_type27858))) goto l12528; break; case STRING_TYPE: if (!((t72322.value.string_type)==(t72323.value.string_type))) goto l12528; break; case HEADED_VECTOR_TYPE27896: if (!((t72322.value.headed_vector_type27896)==(t72323.value.headed_vector_type27896))) goto l12528; break; case EXTERNAL_SYMBOL_TYPE: if (!((t72322.value.external_symbol_type)==(t72323.value.external_symbol_type))) goto l12528; break; case STRUCTURE_TYPE27908: if (!((t72322.value.structure_type27908)==(t72323.value.structure_type27908))) goto l12528; break; default:;} l12530: /* x74814 */ /* x74813 stalin.sc:4519:151911 */ /* x74812 stalin.sc:4519:151930 */ t72329 = a22221; /* x74811 stalin.sc:4519:151912 */ a39733 = t72329; /* x291601 */ /* x291600 */ t72330 = a39733; /* x291599 */ if (!((t72330.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34650]"); structure_ref_error();} t72328 = t72330.value.structure_type27698->s11; /* x74810 stalin.sc:4519:151905 */ if (!(f8764(t72328)==FALSE_TYPE)) goto l12525; l12528: /* x74778 */ /* x74777 stalin.sc:4520:151945 */ /* x74775 stalin.sc:4520:151950 */ /* x74774 stalin.sc:4520:151967 */ /* x74773 stalin.sc:4520:151986 */ t72335 = a22221; /* x74772 stalin.sc:4520:151968 */ a39732 = t72335; /* x291597 */ /* x291596 */ t72336 = a39732; /* x291595 */ if (!((t72336.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34649]"); structure_ref_error();} t72333 = t72336.value.structure_type27698->s11; /* x74771 stalin.sc:4520:151951 */ a40288 = t72333; /* x293821 */ /* x293820 */ t72334 = a40288; /* x293819 */ if (!((t72334.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35205]"); structure_ref_error();} t72331 = t72334.value.structure_type27698->s0; /* x74776 stalin.sc:4520:151990 */ t72332 = q39; /* x270177 stalin.sc:4520:151946 */ if (t72331==t72332) goto l12525; /* x74767 */ /* x74766 stalin.sc:4521:152002 */ /* x74764 stalin.sc:4521:152007 */ /* x74763 stalin.sc:4521:152024 */ /* x74762 stalin.sc:4521:152043 */ t72341 = a22221; /* x74761 stalin.sc:4521:152025 */ a39731 = t72341; /* x291593 */ /* x291592 */ t72342 = a39731; /* x291591 */ if (!((t72342.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34648]"); structure_ref_error();} t72339 = t72342.value.structure_type27698->s11; /* x74760 stalin.sc:4521:152008 */ a40287 = t72339; /* x293817 */ /* x293816 */ t72340 = a40287; /* x293815 */ if (!((t72340.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35204]"); structure_ref_error();} t72337 = t72340.value.structure_type27698->s0; /* x74765 stalin.sc:4522:152055 */ t72338 = q40; /* x270178 stalin.sc:4521:152003 */ if (t72337==t72338) goto l12525; /* x74756 */ /* x74754 stalin.sc:4523:152082 */ /* x74753 stalin.sc:4523:152099 */ /* x74752 stalin.sc:4523:152118 */ t72347 = a22221; /* x74751 stalin.sc:4523:152100 */ a39730 = t72347; /* x291589 */ /* x291588 */ t72348 = a39730; /* x291587 */ if (!((t72348.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34647]"); structure_ref_error();} t72345 = t72348.value.structure_type27698->s11; /* x74750 stalin.sc:4523:152083 */ a40286 = t72345; /* x293813 */ /* x293812 */ t72346 = a40286; /* x293811 */ if (!((t72346.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35203]"); structure_ref_error();} t72343 = t72346.value.structure_type27698->s0; /* x74755 stalin.sc:4524:152130 */ t72344 = q41; /* x270179 stalin.sc:4523:152078 */ if (!(t72343==t72344)) goto l12526; l12525: return TRUE_TYPE; l12526: return FALSE_TYPE;} /* CONTINUATION-ARGUMENT-CALL-SITE?[8755] */ unsigned f8755(struct w49 a22212) {struct structure_type24753 *a36100; /* PAIR */ struct w49 a36356; /* S */ struct w49 t72349; struct w49 t72350; struct w49 t72351; char *t72352; struct structure_type24753 *t72353; struct structure_type24753 *t72354; struct w49 t72355; struct w49 t72356; /* x74715 stalin.sc:4484:150235 */ /* x74715 stalin.sc:4484:150235 */ /* x74698 stalin.sc:4484:150240 */ /* x74697 stalin.sc:4484:150245 */ /* x74696 stalin.sc:4484:150267 */ t72349 = a22212; /* x74695 stalin.sc:4484:150246 */ if (!(f8751(t72349)==FALSE_TYPE)) goto l12535; /* x74713 */ /* x74703 stalin.sc:4485:150277 */ /* x74702 stalin.sc:4485:150282 */ /* x74701 stalin.sc:4485:150303 */ t72350 = a22212; /* x74700 stalin.sc:4485:150283 */ if (!(f8752(t72350)==FALSE_TYPE)) goto l12535; /* x74711 */ /* x74709 stalin.sc:4486:150318 */ /* x74708 stalin.sc:4486:150325 */ /* x74707 stalin.sc:4486:150344 */ t72355 = a22212; /* x74706 stalin.sc:4486:150326 */ a36356 = t72355; /* x278093 */ /* x278092 */ t72356 = a36356; /* x278091 */ if (!((t72356.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-OFFSETS[6857] 31273]"); structure_ref_error();} t72353 = t72356.value.structure_type27745->s1; /* x74705 stalin.sc:4486:150319 */ a36100 = t72353; /* x275757 */ /* x275756 */ t72354 = a36100; /* x275755 */ if (!(t72354>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 30249]"); structure_ref_error();} t72351 = t72354->s0; /* x74710 stalin.sc:4486:150348 */ t72352 = q67; /* x270182 stalin.sc:4486:150314 */ if (!(((t72351.tag)==EXTERNAL_SYMBOL_TYPE)&&((t72351.value.external_symbol_type)==t72352))) goto l12535; return TRUE_TYPE; l12535: return FALSE_TYPE;} /* EXPLICIT-CALL-SITE?[8752] */ unsigned f8752(struct w49 a22209) {struct w49 a36357; /* S */ struct w49 t72357; struct structure_type24753 *t72358; struct w49 t72359; struct w49 t72360; /* x74643 stalin.sc:4471:149774 */ /* x74643 stalin.sc:4471:149774 */ /* x74636 stalin.sc:4471:149779 */ /* x74635 stalin.sc:4471:149784 */ /* x74634 stalin.sc:4471:149806 */ t72357 = a22209; /* x74633 stalin.sc:4471:149785 */ if (!(f8751(t72357)==FALSE_TYPE)) goto l12540; /* x74641 */ /* x74640 stalin.sc:4471:149817 */ /* x74639 stalin.sc:4471:149836 */ t72359 = a22209; /* x74638 stalin.sc:4471:149818 */ a36357 = t72359; /* x278097 */ /* x278096 */ t72360 = a36357; /* x278095 */ if (!((t72360.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-OFFSETS[6857] 31274]"); structure_ref_error();} t72358 = t72360.value.structure_type27745->s1; /* x270188 stalin.sc:4471:149811 */ if (!(((unsigned)t72358)==NULL_TYPE)) goto l12540; return TRUE_TYPE; l12540: return FALSE_TYPE;} /* TOP-LEVEL-CALL-SITE?[8751] */ unsigned f8751(struct w49 a22208) {struct w49 t72361; /* x74629 stalin.sc:4468:149727 */ /* x74627 stalin.sc:4468:149732 */ t72361 = a22208; /* x74628 stalin.sc:4468:149734 */ /* x270190 stalin.sc:4468:149728 */ if ((t72361.tag)==FALSE_TYPE) return TRUE_TYPE; else return FALSE_TYPE;} /* RECREATE-CALL-SITE[8743] */ struct structure_type27745 *f8743(struct structure_type27745 *a22201, char *a22202) {struct structure_type24753 *a35974; /* PAIR */ struct structure_type24753 *a35975; /* PAIR */ struct structure_type27745 *a36349; /* S */ struct structure_type27745 *a36350; /* S */ struct structure_type27745 *a36351; /* S */ struct structure_type27745 *a36352; /* S */ struct structure_type27745 *a36452; /* S */ struct w49 t72362; struct structure_type24753 *t72363; struct structure_type24753 *t72364; struct structure_type27745 *t72365; struct structure_type27745 *t72366; char *t72367; struct structure_type24753 *t72368; struct structure_type27745 *t72369; struct structure_type27745 *t72370; struct structure_type27745 *t72371; struct w49 t72372; char *t72373; char *t72374; char *t72375; char *t72376; char *t72377; char *t72378; struct structure_type24753 *t72379; struct structure_type27745 *t72380; struct structure_type27745 *t72381; struct w49 t72382; char *t72383; struct structure_type24753 *t72384; struct structure_type24753 *t72385; struct structure_type27745 *t72386; struct structure_type27745 *t72387; struct w49 t72388; char *t72389; struct structure_type24753 *t72390; struct structure_type24753 *t72391; struct structure_type27745 *t72392; struct structure_type27745 *t72393; char *t72394; /* x74623 */ /* x74622 stalin.sc:4456:149279 */ /* x74615 stalin.sc:4456:149287 */ /* x74558 stalin.sc:4456:149292 */ /* x74557 stalin.sc:4456:149297 */ /* x74556 stalin.sc:4456:149319 */ t72371 = a22201; /* x74555 stalin.sc:4456:149298 */ /* MOVE: branching squeezed to general */ if (t72371>=((struct structure_type27745 *)VALUE_OFFSET)) {t72372.tag = STRUCTURE_TYPE27745; t72372.value.structure_type27745 = t72371;} else t72372.tag = (unsigned)t72371; if (!(f8751(t72372)==FALSE_TYPE)) goto l12544; /* x74613 */ /* x74580 stalin.sc:4457:149330 */ /* x74579 stalin.sc:4457:149334 */ /* x74577 stalin.sc:4457:149339 */ t72373 = a22202; /* x74578 stalin.sc:4457:149341 */ t72374 = q64; /* x270194 stalin.sc:4457:149335 */ if (t72373==t72374) goto l12547; /* x74573 */ /* x74572 stalin.sc:4458:149362 */ /* x74570 stalin.sc:4458:149367 */ t72375 = a22202; /* x74571 stalin.sc:4458:149369 */ t72376 = q65; /* x270195 stalin.sc:4458:149363 */ if (t72375==t72376) goto l12547; /* x74566 */ /* x74564 stalin.sc:4459:149396 */ t72377 = a22202; /* x74565 stalin.sc:4459:149398 */ t72378 = q67; /* x270196 stalin.sc:4459:149392 */ if (!(t72377==t72378)) goto l12544; l12547: /* x74611 */ /* x74610 stalin.sc:4460:149434 */ /* x74609 stalin.sc:4460:149441 */ /* x74608 stalin.sc:4460:149460 */ t72380 = a22201; /* x74607 stalin.sc:4460:149442 */ a36352 = t72380; /* x278077 */ /* x278076 */ t72381 = a36352; /* x278075 */ if (!(t72381>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-OFFSETS[6857] 31269]"); structure_ref_error();} t72379 = t72381->s1; /* x270191 stalin.sc:4460:149435 */ if (((unsigned)t72379)==NULL_TYPE) goto l12543; /* x74603 */ /* x74602 stalin.sc:4461:149468 */ /* x74600 stalin.sc:4461:149473 */ /* x74599 stalin.sc:4461:149480 */ /* x74598 stalin.sc:4461:149499 */ t72386 = a22201; /* x74597 stalin.sc:4461:149481 */ a36350 = t72386; /* x278069 */ /* x278068 */ t72387 = a36350; /* x278067 */ if (!(t72387>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-OFFSETS[6857] 31267]"); structure_ref_error();} t72384 = t72387->s1; /* x74596 stalin.sc:4461:149474 */ a35975 = t72384; /* x275257 */ /* x275256 */ t72385 = a35975; /* x275255 */ if (!(t72385>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 30124]"); structure_ref_error();} t72382 = t72385->s0; /* x74601 stalin.sc:4461:149503 */ t72383 = q64; /* x270192 stalin.sc:4461:149469 */ if (((t72382.tag)==EXTERNAL_SYMBOL_TYPE)&&((t72382.value.external_symbol_type)==t72383)) goto l12543; /* x74592 */ /* x74590 stalin.sc:4462:149529 */ /* x74589 stalin.sc:4462:149536 */ /* x74588 stalin.sc:4462:149555 */ t72392 = a22201; /* x74587 stalin.sc:4462:149537 */ a36349 = t72392; /* x278065 */ /* x278064 */ t72393 = a36349; /* x278063 */ if (!(t72393>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-OFFSETS[6857] 31266]"); structure_ref_error();} t72390 = t72393->s1; /* x74586 stalin.sc:4462:149530 */ a35974 = t72390; /* x275253 */ /* x275252 */ t72391 = a35974; /* x275251 */ if (!(t72391>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 30123]"); structure_ref_error();} t72388 = t72391->s0; /* x74591 stalin.sc:4462:149559 */ t72389 = q65; /* x270193 stalin.sc:4462:149525 */ if (!(((t72388.tag)==EXTERNAL_SYMBOL_TYPE)&&((t72388.value.external_symbol_type)==t72389))) goto l12544; l12543: /* x74617 */ /* x74616 */ goto l12545; l12544: /* x74621 */ /* x74620 */ /* x74619 stalin.sc:4463:149581 */ /* x74618 stalin.sc:4463:149582 */ /* x296249 QobiScheme.sc:166:5314 */ /* x296248 QobiScheme.sc:166:5321 */ t72394 = "This shouldn\'t happen"; /* x296247 QobiScheme.sc:166:5315 */ stalin_panic(t72394); l12545: /* x74553 */ /* x74552 stalin.sc:4464:149593 */ /* x74545 stalin.sc:4464:149609 */ /* x74544 stalin.sc:4464:149631 */ t72365 = a22201; /* x74543 stalin.sc:4464:149610 */ a36452 = t72365; /* x278477 */ /* x278476 */ t72366 = a36452; /* x278475 */ if (!(t72366>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31369]"); structure_ref_error();} t72362 = t72366->s0; /* x74551 stalin.sc:4464:149634 */ /* x74547 stalin.sc:4464:149640 */ t72367 = a22202; /* x74550 stalin.sc:4464:149642 */ /* x74549 stalin.sc:4464:149661 */ t72369 = a22201; /* x74548 stalin.sc:4464:149643 */ a36351 = t72369; /* x278073 */ /* x278072 */ t72370 = a36351; /* x278071 */ if (!(t72370>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-OFFSETS[6857] 31268]"); structure_ref_error();} t72368 = t72370->s1; /* x270198 stalin.sc:4464:149635 */ t72363 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t72363==NULL) {backtrace("stalin.sc", 4464, 149634); out_of_memory_error();} t72363->s0.tag = EXTERNAL_SYMBOL_TYPE; t72363->s0.value.external_symbol_type = t72367; /* MOVE: branching squeezed to general */ if (t72368>=((struct structure_type24753 *)VALUE_OFFSET)) {t72363->s1.tag = STRUCTURE_TYPE24753; t72363->s1.value.structure_type24753 = t72368;} else t72363->s1.tag = (unsigned)t72368; /* x74542 stalin.sc:4464:149594 */ t72364 = t72363; return f6847(t72362, t72364);} /* CREATE-CALL-SITE[8739] */ struct structure_type27745 *f8739(struct w49 a22199) {struct w49 t72395; struct structure_type24753 *t72396; char *t72397; /* x74539 */ /* x74538 stalin.sc:4451:149161 */ /* x74531 stalin.sc:4451:149169 */ if ((a22199.tag)==FALSE_TYPE) goto l12553; /* x74533 */ /* x74532 */ goto l12554; l12553: /* x74537 */ /* x74536 */ /* x74535 stalin.sc:4451:149180 */ /* x74534 stalin.sc:4451:149181 */ /* x296981 QobiScheme.sc:166:5314 */ /* x296980 QobiScheme.sc:166:5321 */ t72397 = "This shouldn\'t happen"; /* x296979 QobiScheme.sc:166:5315 */ stalin_panic(t72397); l12554: /* x74530 */ /* x74529 stalin.sc:4452:149192 */ /* x74527 stalin.sc:4452:149208 */ t72395 = a22199; /* x74528 stalin.sc:4452:149219 */ /* x74526 stalin.sc:4452:149193 */ t72396 = (struct structure_type24753 *)NULL_TYPE; return f6847(t72395, t72396);} /* NESTED-IN?[8736] */ unsigned f8736(struct w49 a22194, struct w49 a22195) {struct w49 t72398; struct w49 t72399; struct w49 t72400; struct w49 t72401; struct w49 t72402; struct w49 t72403; h8736: /* x74505 stalin.sc:4439:148858 */ /* x74505 stalin.sc:4439:148858 */ /* x74504 stalin.sc:4439:148862 */ /* x74502 stalin.sc:4439:148867 */ t72398 = a22194; /* x74503 stalin.sc:4439:148870 */ t72399 = a22195; /* x270201 stalin.sc:4439:148863 */ /* EQ: dispatching general to general */ if ((t72398.tag)==(t72399.tag)) switch (t72398.tag) {case FIXNUM_TYPE: if ((t72398.value.fixnum_type)==(t72399.value.fixnum_type)) goto l12555; break; case FLONUM_TYPE: if ((t72398.value.flonum_type)==(t72399.value.flonum_type)) goto l12555; break; case INPUT_PORT_TYPE: if ((t72398.value.input_port_type)==(t72399.value.input_port_type)) goto l12555; break; case OUTPUT_PORT_TYPE: if ((t72398.value.output_port_type)==(t72399.value.output_port_type)) goto l12555; break; case NATIVE_PROCEDURE_TYPE15963: if ((t72398.value.native_procedure_type15963)==(t72399.value.native_procedure_type15963)) goto l12555; break; case NATIVE_PROCEDURE_TYPE19067: if ((t72398.value.native_procedure_type19067)==(t72399.value.native_procedure_type19067)) goto l12555; break; case NATIVE_PROCEDURE_TYPE19068: if ((t72398.value.native_procedure_type19068)==(t72399.value.native_procedure_type19068)) goto l12555; break; case NATIVE_PROCEDURE_TYPE22459: if ((t72398.value.native_procedure_type22459)==(t72399.value.native_procedure_type22459)) goto l12555; break; case STRUCTURE_TYPE24753: if ((t72398.value.structure_type24753)==(t72399.value.structure_type24753)) goto l12555; break; case STRUCTURE_TYPE24757: if ((t72398.value.structure_type24757)==(t72399.value.structure_type24757)) goto l12555; break; case STRUCTURE_TYPE27501: if ((t72398.value.structure_type27501)==(t72399.value.structure_type27501)) goto l12555; break; case STRUCTURE_TYPE27510: if ((t72398.value.structure_type27510)==(t72399.value.structure_type27510)) goto l12555; break; case STRUCTURE_TYPE27621: if ((t72398.value.structure_type27621)==(t72399.value.structure_type27621)) goto l12555; break; case STRUCTURE_TYPE27650: if ((t72398.value.structure_type27650)==(t72399.value.structure_type27650)) goto l12555; break; case STRUCTURE_TYPE27669: if ((t72398.value.structure_type27669)==(t72399.value.structure_type27669)) goto l12555; break; case STRUCTURE_TYPE27673: if ((t72398.value.structure_type27673)==(t72399.value.structure_type27673)) goto l12555; break; case STRUCTURE_TYPE27692: if ((t72398.value.structure_type27692)==(t72399.value.structure_type27692)) goto l12555; break; case STRUCTURE_TYPE27694: if ((t72398.value.structure_type27694)==(t72399.value.structure_type27694)) goto l12555; break; case STRUCTURE_TYPE27698: if ((t72398.value.structure_type27698)==(t72399.value.structure_type27698)) goto l12555; break; case STRUCTURE_TYPE27745: if ((t72398.value.structure_type27745)==(t72399.value.structure_type27745)) goto l12555; break; case STRUCTURE_TYPE27747: if ((t72398.value.structure_type27747)==(t72399.value.structure_type27747)) goto l12555; break; case STRUCTURE_TYPE27750: if ((t72398.value.structure_type27750)==(t72399.value.structure_type27750)) goto l12555; break; case STRUCTURE_TYPE27753: if ((t72398.value.structure_type27753)==(t72399.value.structure_type27753)) goto l12555; break; case STRUCTURE_TYPE27756: if ((t72398.value.structure_type27756)==(t72399.value.structure_type27756)) goto l12555; break; case STRUCTURE_TYPE27761: if ((t72398.value.structure_type27761)==(t72399.value.structure_type27761)) goto l12555; break; case STRUCTURE_TYPE27769: if ((t72398.value.structure_type27769)==(t72399.value.structure_type27769)) goto l12555; break; case STRUCTURE_TYPE27776: if ((t72398.value.structure_type27776)==(t72399.value.structure_type27776)) goto l12555; break; case STRUCTURE_TYPE27779: if ((t72398.value.structure_type27779)==(t72399.value.structure_type27779)) goto l12555; break; case STRUCTURE_TYPE27858: if ((t72398.value.structure_type27858)==(t72399.value.structure_type27858)) goto l12555; break; case STRING_TYPE: if ((t72398.value.string_type)==(t72399.value.string_type)) goto l12555; break; case HEADED_VECTOR_TYPE27896: if ((t72398.value.headed_vector_type27896)==(t72399.value.headed_vector_type27896)) goto l12555; break; case EXTERNAL_SYMBOL_TYPE: if ((t72398.value.external_symbol_type)==(t72399.value.external_symbol_type)) goto l12555; break; case STRUCTURE_TYPE27908: if ((t72398.value.structure_type27908)==(t72399.value.structure_type27908)) goto l12555; break; default: goto l12555;} /* x74498 */ /* x74490 stalin.sc:4439:148879 */ /* x74489 stalin.sc:4439:148884 */ /* x74488 stalin.sc:4439:148892 */ t72400 = a22194; /* x74487 stalin.sc:4439:148885 */ if (!(f8581(t72400)==FALSE_TYPE)) goto l12556; /* x74496 */ /* x74494 stalin.sc:4439:148909 */ /* x74493 stalin.sc:4439:148917 */ t72403 = a22194; /* x74492 stalin.sc:4439:148910 */ t72401 = f8682(t72403); /* x74495 stalin.sc:4439:148921 */ t72402 = a22195; /* x74491 stalin.sc:4439:148898 */ a22194 = t72401; a22195 = t72402; goto h8736; l12555: return TRUE_TYPE; l12556: return FALSE_TYPE;} /* [inside INFER-ALL-WHETHER-ANCESTOR?! 8714] */ void f8714(struct w49 a22187) {struct w49 a22190; /* E1 */ struct w49 t72404; struct w49 t72405; struct w49 t72406; struct w49 t72407; struct w49 t72408; struct w49 t72409; struct w49 t72410; struct w49 t72411; struct w49 t72412; struct w49 t72413; struct structure_type24753 *t72414; struct w3457 t72415; struct w49 t72416; struct w3457 t72417; struct w49 t72418; struct w49 t72419; struct w49 t72420; char *t72421; struct w49 t72422; /* x74467 stalin.sc:4421:148245 */ /* x74368 stalin.sc:4421:148251 */ /* x74367 stalin.sc:4421:148270 */ t72404 = a22187; /* x74366 stalin.sc:4421:148252 */ if (f8526(t72404)==FALSE_TYPE) goto l12561; /* x74464 */ /* x74463 */ /* x74462 stalin.sc:4422:148280 */ /* x74461 stalin.sc:4422:148295 */ /* x74460 stalin.sc:4422:148309 */ t72422 = a22187; /* x74459 stalin.sc:4422:148296 */ t72405 = f8634(t72422); /* x74458 */ /* x74457 */ /* x74456 */ /* x74455 */ /* x74454 */ /* x74453 */ /* x74452 */ /* x74370 */ /* x74369 stalin.sc:4422:148285 */ a22190 = t72405; h8718: /* x74451 stalin.sc:4423:148322 */ /* x74373 stalin.sc:4423:148330 */ /* x74372 stalin.sc:4423:148338 */ t72406 = a22190; /* x74371 stalin.sc:4423:148331 */ if (f8581(t72406)==FALSE_TYPE) goto l12563; /* x74375 */ /* x74374 */ return; l12563: /* x74450 */ /* x74449 */ /* x74448 */ /* x74447 stalin.sc:4424:148350 */ /* x74385 stalin.sc:4424:148357 */ /* x74383 stalin.sc:4424:148368 */ t72409 = a22190; /* x74384 stalin.sc:4424:148371 */ t72410 = a22187; /* x74382 stalin.sc:4424:148358 */ if (f8698(t72409, t72410)==FALSE_TYPE) goto l12565; /* x74403 */ /* x74402 */ /* x74401 stalin.sc:4425:148383 */ /* x74394 stalin.sc:4425:148389 */ /* x74386 stalin.sc:4425:148394 */ if (a22185==FALSE_TYPE) goto l12572; /* x74392 */ /* x74391 stalin.sc:4425:148402 */ /* x74389 stalin.sc:4425:148431 */ t72419 = a22190; /* x74390 stalin.sc:4425:148434 */ t72420 = a22187; /* x74388 stalin.sc:4425:148403 */ if (!((f8705(t72419, t72420).tag)==FALSE_TYPE)) goto l12572; /* x74398 */ /* x74397 */ /* x74396 stalin.sc:4426:148449 */ /* x74395 stalin.sc:4426:148450 */ /* x295229 QobiScheme.sc:166:5314 */ /* x295228 QobiScheme.sc:166:5321 */ t72421 = "This shouldn\'t happen"; /* x295227 QobiScheme.sc:166:5315 */ stalin_panic(t72421); goto l12573; l12572: /* x74400 stalin.sc:4425:148383 */ /* x74399 stalin.sc:4425:148383 */ l12573: goto l12566; l12565: /* x74446 */ /* x74407 stalin.sc:4427:148469 */ /* x74405 stalin.sc:4427:148498 */ t72411 = a22190; /* x74406 stalin.sc:4427:148501 */ t72412 = a22187; /* x74404 stalin.sc:4427:148470 */ if ((f8705(t72411, t72412).tag)==FALSE_TYPE) goto l12568; /* x74443 */ /* x74442 */ /* x74441 */ /* x74419 stalin.sc:4428:148513 */ /* x74412 stalin.sc:4428:148541 */ t72413 = a22187; /* x74418 stalin.sc:4428:148544 */ /* x74414 stalin.sc:4428:148550 */ t72416 = a22190; /* x74417 stalin.sc:4428:148553 */ /* x74416 stalin.sc:4428:148564 */ t72418 = a22187; /* x74415 stalin.sc:4428:148554 */ t72417 = f8951(t72418); /* x270203 stalin.sc:4428:148545 */ t72414 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t72414==NULL) {backtrace("stalin.sc", 4428, 148544); out_of_memory_error();} t72414->s0 = t72416; t72414->s1 = *((struct w49 *)(&t72417)); /* x74411 stalin.sc:4428:148514 */ t72415.tag = STRUCTURE_TYPE24753; t72415.value.structure_type24753 = t72414; f6720(t72413, t72415); /* x74440 stalin.sc:4429:148578 */ /* x74420 stalin.sc:4429:148584 */ /* x74439 stalin.sc:4429:148578 */ /* x74438 stalin.sc:4429:148578 */ /* x74410 */ /* x74409 stalin.sc:4433:148718 */ /* x74408 stalin.sc:4433:148733 */ a2038 = TRUE_TYPE; goto l12569; l12568: /* x74445 */ /* x74444 */ l12569: l12566: /* x74381 */ /* x74380 stalin.sc:4434:148747 */ /* x74379 stalin.sc:4434:148753 */ /* x74378 stalin.sc:4434:148767 */ t72408 = a22190; /* x74377 stalin.sc:4434:148754 */ t72407 = f8634(t72408); /* x74376 stalin.sc:4434:148748 */ a22190 = t72407; goto h8718; l12561: /* x74466 stalin.sc:4421:148245 */ /* x74465 stalin.sc:4421:148245 */ return;} /* INFER-ALL-WHETHER-ANCESTOR?![8712] */ void f8712(void) {struct w21193 t72423; struct w36108 t72424; struct w49 t72425; struct structure_type24753 *t72426; char *t72427; struct w49 t72428; struct structure_type24753 *t72429; /* x74481 */ /* x74480 stalin.sc:4417:148118 */ /* x74472 stalin.sc:4417:148124 */ if (a696==FALSE_TYPE) goto l12576; /* x74477 */ /* x74476 */ /* x74475 stalin.sc:4418:148132 */ /* x74474 stalin.sc:4419:148143 */ t72427 = "Determining whether environments are ancestors of other environments"; /* x74473 stalin.sc:4418:148133 */ t72428.tag = STRING_TYPE; t72428.value.string_type = t72427; t72429 = (struct structure_type24753 *)NULL_TYPE; f5365(t72428, t72429); goto l12577; l12576: /* x74479 stalin.sc:4417:148118 */ /* x74478 stalin.sc:4417:148118 */ l12577: /* x74471 */ /* x74470 stalin.sc:4420:148217 */ /* x74469 stalin.sc:4435:148780 */ t72423 = a1594; /* x74468 stalin.sc:4420:148227 */ /* x74365 stalin.sc:4420:148218 */ t72424.tag = NATIVE_PROCEDURE_TYPE15811; t72425 = *((struct w49 *)(&t72423)); t72426 = (struct structure_type24753 *)NULL_TYPE; f27755(t72424, t72425, t72426); return;} /* DETERMINE-WHETHER-ANCESTOR?[8705] */ struct w16638 f8705(struct w49 a22177, struct w49 a22178) {struct w16638 a22179; /* v */ struct p8705 *t72430; struct w16638 t72431; struct p8705 *t72432; struct structure_type24753 *t72433; struct w228345 t72434; struct w49 t72435; struct structure_type24753 *t72436; struct w49 t72437; struct p8705 *t72438; struct w3457 t72439; struct w228345 t72440; struct w49 t72441; struct structure_type24753 *t72442; struct w49 t72443; struct p8705 *e8705; struct p8705 *p8706; e8705 = (struct p8705 *)alloca(sizeof(struct p8705)); if (e8705==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e8705->a22177 = a22177; /* x74362 stalin.sc:4391:147323 */ /* x74361 stalin.sc:4391:147327 */ /* x74360 stalin.sc:4403:147709 */ /* x74359 stalin.sc:4403:147725 */ t72443 = a22178; /* x74358 stalin.sc:4403:147710 */ t72439 = f8629(t72443); /* x74357 stalin.sc:4392:147339 */ t72438 = e8705; /* x74316 stalin.sc:4391:147328 */ t72440.tag = NATIVE_PROCEDURE_TYPE23805; t72440.value.native_procedure_type23805 = t72438; t72441 = *((struct w49 *)(&t72439)); t72442 = (struct structure_type24753 *)NULL_TYPE; t72431 = f1042(t72440, t72441, t72442); /* x74315 */ t72430 = e8705; p8706 = t72430; a22179 = t72431; /* x74314 */ /* x74282 */ if ((a22179.tag)==FALSE_TYPE) goto l12579; /* x74283 */ return a22179; l12579: /* x74313 */ /* x74312 stalin.sc:4414:148056 */ /* x74311 stalin.sc:4414:148067 */ t72437 = a22178; /* x74310 stalin.sc:4414:148057 */ t72433 = f8987(t72437); /* x74309 stalin.sc:4405:147747 */ t72432 = p8706; /* x74284 stalin.sc:4404:147736 */ t72434.tag = NATIVE_PROCEDURE_TYPE23807; t72434.value.native_procedure_type23807 = t72432; /* MOVE: branching squeezed to general */ if (t72433>=((struct structure_type24753 *)VALUE_OFFSET)) {t72435.tag = STRUCTURE_TYPE24753; t72435.value.structure_type24753 = t72433;} else t72435.tag = (unsigned)t72433; t72436 = (struct structure_type24753 *)NULL_TYPE; return f1042(t72434, t72435, t72436);} /* ANCESTOR?[8698] */ unsigned f8698(struct w49 a22171, struct w49 a22172) {struct w49 t72444; struct w3457 t72445; struct w49 t72446; struct w49 t72447; struct w49 t72448; struct w49 t72449; struct w49 t72450; struct w49 t72451; char *t72452; /* x74279 */ /* x74278 stalin.sc:4383:147120 */ /* x74271 stalin.sc:4383:147126 */ /* x74270 stalin.sc:4383:147130 */ /* x74269 stalin.sc:4383:147138 */ t72448 = a22171; /* x74268 stalin.sc:4383:147131 */ if (!(f8581(t72448)==FALSE_TYPE)) goto l12583; /* x74265 */ /* x74264 stalin.sc:4384:147146 */ /* x74263 stalin.sc:4384:147151 */ /* x74262 stalin.sc:4384:147170 */ t72449 = a22171; /* x74261 stalin.sc:4384:147152 */ if (f8526(t72449)==FALSE_TYPE) goto l12583; /* x74257 */ /* x74256 stalin.sc:4385:147179 */ /* x74255 stalin.sc:4385:147187 */ t72450 = a22172; /* x74254 stalin.sc:4385:147180 */ if (!(f8581(t72450)==FALSE_TYPE)) goto l12583; /* x74251 */ /* x74250 stalin.sc:4386:147200 */ /* x74249 stalin.sc:4386:147219 */ t72451 = a22172; /* x74248 stalin.sc:4386:147201 */ if (!(f8526(t72451)==FALSE_TYPE)) goto l12584; l12583: /* x74275 */ /* x74274 */ /* x74273 stalin.sc:4387:147227 */ /* x74272 stalin.sc:4387:147228 */ /* x295233 QobiScheme.sc:166:5314 */ /* x295232 QobiScheme.sc:166:5321 */ t72452 = "This shouldn\'t happen"; /* x295231 QobiScheme.sc:166:5315 */ stalin_panic(t72452); goto l12585; l12584: /* x74277 stalin.sc:4383:147120 */ /* x74276 stalin.sc:4383:147120 */ l12585: /* x74240 */ /* x74239 stalin.sc:4388:147239 */ /* x74239 stalin.sc:4388:147239 */ /* x74238 stalin.sc:4388:147244 */ /* x74237 stalin.sc:4388:147249 */ /* x74233 stalin.sc:4388:147255 */ t72444 = a22171; /* x74236 stalin.sc:4388:147258 */ /* x74235 stalin.sc:4388:147269 */ t72447 = a22172; /* x74234 stalin.sc:4388:147259 */ t72445 = f8951(t72447); /* x74232 stalin.sc:4388:147250 */ t72446 = *((struct w49 *)(&t72445)); if ((f26351(t72444, t72446).tag)==FALSE_TYPE) goto l12581; return TRUE_TYPE; l12581: return FALSE_TYPE;} /* NON-LET-LEXICAL-NESTING-DEPTH[8694] */ int f8694(struct w49 a22170) {struct w49 t72453; struct w49 t72454; struct w49 t72455; struct w49 t72456; int t72457; int t72458; struct w49 t72459; struct w49 t72460; struct w49 t72461; struct w49 t72462; h8694: /* x74227 stalin.sc:4376:146888 */ /* x74200 stalin.sc:4376:146895 */ /* x74199 stalin.sc:4376:146903 */ /* x74198 stalin.sc:4376:146911 */ t72454 = a22170; /* x74197 stalin.sc:4376:146904 */ t72453 = f8682(t72454); /* x74196 stalin.sc:4376:146896 */ if (f8581(t72453)==FALSE_TYPE) goto l12590; /* x74203 */ /* x74202 */ /* x74201 stalin.sc:4376:146915 */ return 0; l12590: /* x74226 */ /* x74208 stalin.sc:4377:146926 */ /* x74207 stalin.sc:4377:146932 */ /* x74206 stalin.sc:4377:146940 */ t72456 = a22170; /* x74205 stalin.sc:4377:146933 */ t72455 = f8682(t72456); /* x74204 stalin.sc:4377:146927 */ if (f8903(t72455)==FALSE_TYPE) goto l12592; /* x74215 */ /* x74214 */ /* x74213 stalin.sc:4377:146944 */ /* x74212 stalin.sc:4377:146975 */ /* x74211 stalin.sc:4377:146983 */ t72462 = a22170; /* x74210 stalin.sc:4377:146976 */ t72461 = f8682(t72462); /* x74209 stalin.sc:4377:146945 */ a22170 = t72461; goto h8694; l12592: /* x74225 */ /* x74224 */ /* x74223 stalin.sc:4378:147001 */ /* x74221 stalin.sc:4378:147004 */ /* x74220 stalin.sc:4378:147035 */ /* x74219 stalin.sc:4378:147043 */ t72460 = a22170; /* x74218 stalin.sc:4378:147036 */ t72459 = f8682(t72460); /* x74217 stalin.sc:4378:147005 */ t72457 = f8694(t72459); /* x74222 stalin.sc:4378:147047 */ t72458 = 1; /* x270210 stalin.sc:4378:147002 */ return t72457+t72458;} /* HOME[8692] */ struct w49 f8692(struct w49 a22168) {struct w49 a36470; /* S */ struct w49 a40086; /* S */ struct w49 t72463; struct w49 t72464; struct w49 t72465; struct w49 t72466; struct w49 t72467; struct w49 t72468; struct w49 t72469; h8692: /* x74176 stalin.sc:4367:146617 */ /* x74165 stalin.sc:4367:146621 */ /* x74164 stalin.sc:4367:146640 */ t72463 = a22168; /* x74163 stalin.sc:4367:146622 */ if (f8585(t72463)==FALSE_TYPE) goto l12594; /* x74174 stalin.sc:4368:146648 */ /* x74173 stalin.sc:4369:146660 */ /* x74172 stalin.sc:4369:146684 */ /* x74171 stalin.sc:4369:146706 */ /* x74170 stalin.sc:4369:146724 */ t72469 = a22168; /* x74169 stalin.sc:4369:146707 */ t72467 = f8659(t72469); /* x74168 stalin.sc:4369:146685 */ a36470 = t72467; /* x278549 */ /* x278548 */ t72468 = a36470; /* x278547 */ if (!((t72468.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31387]"); structure_ref_error();} t72465 = t72468.value.structure_type27745->s0; /* x74167 stalin.sc:4369:146661 */ a40086 = t72465; /* x293013 */ /* x293012 */ t72466 = a40086; /* x293011 */ if (!((t72466.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35003]"); structure_ref_error();} t72464 = t72466.value.structure_type27698->s9; /* x74166 stalin.sc:4368:146649 */ a22168 = t72464; goto h8692; l12594: /* x74175 stalin.sc:4370:146735 */ return a22168;} /* ENVIRONMENT-TYPE[8691] */ struct w49 f8691(struct w49 a22167) {struct w49 a36724; /* S */ struct w6852 a40004; /* S */ struct w49 t72470; struct w6852 t72471; struct w6852 t72472; struct w49 t72473; struct w49 t72474; /* x74160 stalin.sc:4364:146535 */ /* x74159 stalin.sc:4364:146547 */ /* x74158 stalin.sc:4364:146568 */ /* x74157 stalin.sc:4364:146592 */ t72473 = a22167; /* x74156 stalin.sc:4364:146569 */ a36724 = t72473; /* x279565 */ /* x279564 */ t72474 = a36724; /* x279563 */ if (!((t72474.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31641]"); structure_ref_error();} t72471 = t72474.value.structure_type27694->s1; /* x74155 stalin.sc:4364:146548 */ a40004 = t72471; /* x292685 */ /* x292684 */ t72472 = a40004; /* x292683 */ if (!((t72472.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34921]"); structure_ref_error();} t72470 = t72472.value.structure_type27698->s10; /* x74154 stalin.sc:4364:146536 */ return f8153(t72470);} /* RETURN-TYPE-SET[8687] */ struct w49 f8687(struct w49 a22165) {struct w49 r8687; struct w49 a36698; /* S */ struct w6852 a39226; /* S */ struct w49 a39965; /* S */ struct w49 t72475; struct w49 t72476; struct w49 t72477; struct w6852 t72478; struct w6852 t72479; struct w49 t72480; struct w49 t72481; struct w49 t72482; char *t72483; /* x74151 */ /* x74150 stalin.sc:4357:146324 */ /* x74143 stalin.sc:4357:146330 */ /* x74142 stalin.sc:4357:146338 */ t72482 = a22165; /* x74141 stalin.sc:4357:146331 */ if (f8581(t72482)==FALSE_TYPE) goto l12598; /* x74147 */ /* x74146 */ /* x74145 stalin.sc:4357:146341 */ /* x74144 stalin.sc:4357:146342 */ /* x296501 QobiScheme.sc:166:5314 */ /* x296500 QobiScheme.sc:166:5321 */ t72483 = "This shouldn\'t happen"; /* x296499 QobiScheme.sc:166:5315 */ stalin_panic(t72483); goto l12599; l12598: /* x74149 stalin.sc:4357:146324 */ /* x74148 stalin.sc:4357:146324 */ l12599: /* x74140 */ /* x74139 stalin.sc:4359:146404 */ /* x74130 stalin.sc:4359:146408 */ /* x74129 stalin.sc:4359:146415 */ t72475 = a22165; /* x74128 stalin.sc:4359:146409 */ if (f8918(t72475)==FALSE_TYPE) goto l12596; /* x74131 stalin.sc:4360:146423 */ /* MOVE: branching squeezed to general */ if (a1676>=((struct structure_type27650 *)VALUE_OFFSET)) {r8687.tag = STRUCTURE_TYPE27650; r8687.value.structure_type27650 = a1676;} else r8687.tag = (unsigned)a1676; return r8687; l12596: /* x74138 stalin.sc:4361:146435 */ /* x74137 stalin.sc:4361:146456 */ /* x74136 stalin.sc:4361:146473 */ /* x74135 stalin.sc:4361:146497 */ t72480 = a22165; /* x74134 stalin.sc:4361:146474 */ a36698 = t72480; /* x279461 */ /* x279460 */ t72481 = a36698; /* x279459 */ if (!((t72481.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31615]"); structure_ref_error();} t72478 = t72481.value.structure_type27694->s1; /* x74133 stalin.sc:4361:146457 */ a39226 = t72478; /* x289573 */ /* x289572 */ t72479 = a39226; /* x289571 */ if (!((t72479.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34143]"); structure_ref_error();} t72476 = t72479.value.structure_type27698->s15; /* x74132 stalin.sc:4361:146436 */ a39965 = t72476; /* x292529 */ /* x292528 */ t72477 = a39965; /* x292527 */ if ((t72477.tag)==STRUCTURE_TYPE27698) return t72477.value.structure_type27698->s10; backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34882]"); structure_ref_error();} /* FIRST-PARAMETER-TYPE-SET[8683] */ struct w49 f8683(struct w49 a22163) {struct structure_type24753 *a35764; /* PAIR */ struct w49 a36835; /* S */ struct w49 a36836; /* S */ struct w49 t72484; struct w49 t72485; struct w49 t72486; struct structure_type24753 *t72487; struct structure_type24753 *t72488; struct w49 t72489; struct w49 t72490; struct w49 t72491; struct structure_type24753 *t72492; struct w49 t72493; struct w49 t72494; struct w49 t72495; char *t72496; /* x74125 */ /* x74124 stalin.sc:4350:146100 */ /* x74117 stalin.sc:4350:146106 */ /* x74116 stalin.sc:4350:146113 */ t72495 = a22163; /* x74115 stalin.sc:4350:146107 */ if (f8931(t72495)==FALSE_TYPE) goto l12603; /* x74121 */ /* x74120 */ /* x74119 stalin.sc:4350:146116 */ /* x74118 stalin.sc:4350:146117 */ /* x295553 QobiScheme.sc:166:5314 */ /* x295552 QobiScheme.sc:166:5321 */ t72496 = "This shouldn\'t happen"; /* x295551 QobiScheme.sc:166:5315 */ stalin_panic(t72496); goto l12604; l12603: /* x74123 stalin.sc:4350:146100 */ /* x74122 stalin.sc:4350:146100 */ l12604: /* x74114 */ /* x74113 stalin.sc:4351:146128 */ /* x74098 stalin.sc:4351:146132 */ /* x74097 stalin.sc:4351:146144 */ t72484 = a22163; /* x74096 stalin.sc:4351:146133 */ if (f8944(t72484)==FALSE_TYPE) goto l12601; /* x74105 stalin.sc:4353:146202 */ /* x74104 stalin.sc:4353:146221 */ /* x74103 stalin.sc:4353:146229 */ /* x74102 stalin.sc:4353:146240 */ t72494 = a22163; /* x74101 stalin.sc:4353:146230 */ t72492 = f8987(t72494); /* x74100 stalin.sc:4353:146222 */ /* MOVE: branching squeezed to general */ if (t72492>=((struct structure_type24753 *)VALUE_OFFSET)) {t72493.tag = STRUCTURE_TYPE24753; t72493.value.structure_type24753 = t72492;} else t72493.tag = (unsigned)t72492; t72490 = f26181(t72493); /* x74099 stalin.sc:4353:146203 */ a36835 = t72490; /* x280009 */ /* x280008 */ t72491 = a36835; /* x280007 */ if ((t72491.tag)==STRUCTURE_TYPE27692) return t72491.value.structure_type27692->s9; backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31752]"); structure_ref_error(); l12601: /* x74112 stalin.sc:4354:146250 */ /* x74111 stalin.sc:4354:146269 */ /* x74110 stalin.sc:4354:146276 */ /* x74109 stalin.sc:4354:146287 */ t72489 = a22163; /* x74108 stalin.sc:4354:146277 */ t72487 = f8987(t72489); /* x74107 stalin.sc:4354:146270 */ a35764 = t72487; /* x274413 */ /* x274412 */ t72488 = a35764; /* x274411 */ if (!(t72488>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29913]"); structure_ref_error();} t72485 = t72488->s0; /* x74106 stalin.sc:4354:146251 */ a36836 = t72485; /* x280013 */ /* x280012 */ t72486 = a36836; /* x280011 */ if ((t72486.tag)==STRUCTURE_TYPE27692) return t72486.value.structure_type27692->s9; backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31753]"); structure_ref_error();} /* PARENT[8682] */ struct w49 f8682(struct w49 a22162) {struct w49 a36725; /* S */ struct w6852 a40111; /* S */ struct w6852 t72497; struct w6852 t72498; struct w49 t72499; struct w49 t72500; /* x74093 stalin.sc:4347:146008 */ /* x74092 stalin.sc:4347:146032 */ /* x74091 stalin.sc:4347:146056 */ t72499 = a22162; /* x74090 stalin.sc:4347:146033 */ a36725 = t72499; /* x279569 */ /* x279568 */ t72500 = a36725; /* x279567 */ if (!((t72500.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31642]"); structure_ref_error();} t72497 = t72500.value.structure_type27694->s1; /* x74089 stalin.sc:4347:146009 */ a40111 = t72497; /* x293113 */ /* x293112 */ t72498 = a40111; /* x293111 */ if ((t72498.tag)==STRUCTURE_TYPE27698) return t72498.value.structure_type27698->s9; backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35028]"); structure_ref_error();} /* [inside INFER-ALL-UNIQUE-CALL-SITE! 8667] */ void f8667(struct w49 a22155) {struct w11873 a22156; /* YS0 */ struct w12224 a22157; /* YS1 */ struct w49 a36532; /* S */ struct w49 a36639; /* S */ struct w49 t72501; struct p8667 *t72502; struct p8667 *t72503; struct w11873 t72504; struct p8667 *t72505; struct w12224 t72506; struct p8667 *t72507; int t72508; int t72509; struct w12224 t72510; struct w49 t72511; struct w11873 t72512; struct w49 t72513; struct p8667 *t72514; struct w49 t72515; struct w12224 t72516; struct w11873 t72517; int t72518; int t72519; struct w12224 t72520; struct w49 t72521; struct p8667 *t72522; char *t72523; char *t72524; struct w49 t72525; struct structure_type24753 *t72526; struct w49 t72527; struct w49 t72528; struct p8667 *t72529; struct w11873 t72530; struct w227671 t72531; struct w49 t72532; struct w49 t72533; struct w49 t72534; struct p8667 *e8667; struct p8667 *p8668; struct p8667 *p8669; struct p8667 *p8670; struct p8667 *p8671; struct p8667 *p8672; struct p8667 *p8674; e8667 = (struct p8667 *)alloca(sizeof(struct p8667)); if (e8667==NULL) {backtrace("stalin.sc", 4333, 145495); out_of_memory_error();} e8667->a22155 = a22155; /* x74072 stalin.sc:4334:145510 */ /* x73999 stalin.sc:4334:145516 */ /* x73998 stalin.sc:4334:145535 */ t72501 = e8667->a22155; /* x73997 stalin.sc:4334:145517 */ if (f8526(t72501)==FALSE_TYPE) goto l12606; /* x74069 */ /* x74068 */ t72502 = e8667; p8668 = t72502; /* x74067 stalin.sc:4335:145542 */ /* x74066 stalin.sc:4335:145554 */ /* x74065 stalin.sc:4335:145592 */ t72533 = p8668->a22155; /* x74064 stalin.sc:4335:145555 */ a36532 = t72533; /* x278797 */ /* x278796 */ t72534 = a36532; /* x278795 */ if (!((t72534.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NON-SELF-TAIL-CALL-SITES[6831] 31449]"); structure_ref_error();} t72504 = t72534.value.structure_type27694->s25; /* x74063 */ t72503 = p8668; p8669 = t72503; a22156 = t72504; /* x74062 */ /* x74061 stalin.sc:4336:145605 */ /* x74059 stalin.sc:4336:145620 */ t72529 = p8669; /* x74060 stalin.sc:4339:145723 */ t72530 = a22156; /* x74044 stalin.sc:4336:145606 */ t72531.tag = NATIVE_PROCEDURE_TYPE18781; t72531.value.native_procedure_type18781 = t72529; t72532 = *((struct w49 *)(&t72530)); t72506 = f1226(t72531, t72532); /* x74043 */ t72505 = p8669; p8670 = t72505; a22157 = t72506; /* x74042 */ /* x74041 */ t72507 = p8670; p8671 = t72507; /* x74040 stalin.sc:4340:145735 */ /* x74007 stalin.sc:4340:145741 */ /* x74003 stalin.sc:4340:145744 */ /* x74002 stalin.sc:4340:145752 */ t72510 = a22157; /* x74001 stalin.sc:4340:145745 */ t72511 = *((struct w49 *)(&t72510)); t72508 = f26227(t72511); /* x74006 stalin.sc:4340:145757 */ /* x74005 stalin.sc:4340:145765 */ t72512 = a22156; /* x74004 stalin.sc:4340:145758 */ t72513 = *((struct w49 *)(&t72512)); t72509 = f26227(t72513); /* x270213 stalin.sc:4340:145742 */ if (!(t72508a22155; /* x74013 stalin.sc:4341:145822 */ t72516 = a22157; /* x74011 stalin.sc:4341:145778 */ t72517 = *((struct w11873 *)(&t72516)); f6832(t72515, t72517); /* x74034 stalin.sc:4342:145833 */ /* x74023 stalin.sc:4342:145839 */ /* x74015 stalin.sc:4342:145844 */ if (a696==FALSE_TYPE) goto l12610; /* x74021 */ /* x74019 stalin.sc:4342:145853 */ /* x74018 stalin.sc:4342:145861 */ t72520 = a22157; /* x74017 stalin.sc:4342:145854 */ t72521 = *((struct w49 *)(&t72520)); t72518 = f26227(t72521); /* x74020 stalin.sc:4342:145866 */ t72519 = 1; /* x270212 stalin.sc:4342:145851 */ if (!(t72518==t72519)) goto l12610; /* x74031 */ /* x74030 */ t72522 = p8672; p8674 = t72522; /* x74029 stalin.sc:4343:145877 */ /* x74028 stalin.sc:4343:145927 */ /* x74027 stalin.sc:4343:145945 */ t72527 = p8674->a22155; /* x74026 stalin.sc:4343:145928 */ a36639 = t72527; /* x279225 */ /* x279224 */ t72528 = a36639; /* x279223 */ if (!((t72528.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31556]"); structure_ref_error();} t72524 = t72528.value.structure_type27694->s2; /* x74025 stalin.sc:4343:145885 */ t72523 = " Determined the unique call site of ~a"; /* x74024 stalin.sc:4343:145878 */ t72525.tag = STRING_TYPE; t72525.value.string_type = t72523; t72526 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t72526==NULL) {backtrace("stalin.sc", 4343, 145877); out_of_memory_error();} t72526->s0.tag = STRING_TYPE; t72526->s0.value.string_type = t72524; t72526->s1.tag = NULL_TYPE; f5365(t72525, t72526); goto l12611; l12610: /* x74033 stalin.sc:4342:145833 */ /* x74032 stalin.sc:4342:145833 */ l12611: /* x74010 */ /* x74009 stalin.sc:4344:145956 */ /* x74008 stalin.sc:4344:145971 */ a2038 = TRUE_TYPE; return; l12608: /* x74039 stalin.sc:4340:145735 */ /* x74038 stalin.sc:4340:145735 */ return; l12606: /* x74071 stalin.sc:4334:145510 */ /* x74070 stalin.sc:4334:145510 */ return;} /* UNIQUE-CALL-SITE[8659] */ struct w49 f8659(struct w49 a22150) {struct w49 a20778; /* S */ struct w11873 a36082; /* PAIR */ struct w49 a36531; /* S */ struct w11873 t72535; struct w11873 t72536; struct w49 t72537; struct w49 t72538; struct w49 t72539; struct w49 t72540; int t72541; int t72542; struct w11873 t72543; struct w49 t72544; struct w49 t72545; struct w49 t72546; char *t72547; /* x73993 */ /* x73992 stalin.sc:4324:145204 */ /* x73985 stalin.sc:4324:145210 */ /* x73984 stalin.sc:4324:145214 */ /* x73983 stalin.sc:4324:145222 */ t72539 = a22150; /* x73982 stalin.sc:4324:145215 */ if (!(f8581(t72539)==FALSE_TYPE)) goto l12613; /* x73979 */ /* x73978 stalin.sc:4325:145229 */ /* x73977 stalin.sc:4325:145234 */ /* x73976 stalin.sc:4325:145253 */ t72540 = a22150; /* x73975 stalin.sc:4325:145235 */ if (f8526(t72540)==FALSE_TYPE) goto l12613; /* x73971 */ /* x73970 stalin.sc:4326:145266 */ /* x73968 stalin.sc:4326:145269 */ /* x73967 stalin.sc:4326:145277 */ /* x73966 stalin.sc:4326:145315 */ t72545 = a22150; /* x73965 stalin.sc:4326:145278 */ a36531 = t72545; /* x278793 */ /* x278792 */ t72546 = a36531; /* x278791 */ if (!((t72546.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NON-SELF-TAIL-CALL-SITES[6831] 31448]"); structure_ref_error();} t72543 = t72546.value.structure_type27694->s25; /* x73964 stalin.sc:4326:145270 */ t72544 = *((struct w49 *)(&t72543)); t72541 = f26227(t72544); /* x73969 stalin.sc:4326:145319 */ t72542 = 1; /* x270215 stalin.sc:4326:145267 */ if (t72541==t72542) goto l12614; l12613: /* x73989 */ /* x73988 */ /* x73987 stalin.sc:4327:145326 */ /* x73986 stalin.sc:4327:145327 */ /* x296493 QobiScheme.sc:166:5314 */ /* x296492 QobiScheme.sc:166:5321 */ t72547 = "This shouldn\'t happen"; /* x296491 QobiScheme.sc:166:5315 */ stalin_panic(t72547); goto l12615; l12614: /* x73991 stalin.sc:4324:145204 */ /* x73990 stalin.sc:4324:145204 */ l12615: /* x73957 */ /* x73956 stalin.sc:4328:145338 */ /* x73955 stalin.sc:4328:145345 */ /* x73954 stalin.sc:4328:145383 */ t72537 = a22150; /* x73953 stalin.sc:4328:145346 */ a20778 = t72537; /* x56315 */ /* x56314 */ t72538 = a20778; /* x56313 */ if (!((t72538.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("ENVIRONMENT-NON-SELF-TAIL-CALL-SITES[6831]"); structure_ref_error();} t72535 = t72538.value.structure_type27694->s25; /* x73952 stalin.sc:4328:145339 */ a36082 = t72535; /* x275685 */ /* x275684 */ t72536 = a36082; /* x275683 */ if ((t72536.tag)==STRUCTURE_TYPE24753) return t72536.value.structure_type24753->s0; backtrace_internal("[clone CAR[26176] 30231]"); structure_ref_error();} /* PROPERLY-IN-LINED-ENVIRONMENTS[8654] */ struct w3457 f8654(struct w49 a22147) {struct w49 a36609; /* S */ struct w49 t72548; struct w49 t72549; struct w49 t72550; struct w49 t72551; char *t72552; /* x73949 */ /* x73948 stalin.sc:4320:145063 */ /* x73941 stalin.sc:4320:145069 */ /* x73940 stalin.sc:4320:145073 */ /* x73939 stalin.sc:4320:145081 */ t72550 = a22147; /* x73938 stalin.sc:4320:145074 */ if (!(f8581(t72550)==FALSE_TYPE)) goto l12618; /* x73935 */ /* x73934 stalin.sc:4320:145089 */ /* x73933 stalin.sc:4320:145108 */ t72551 = a22147; /* x73932 stalin.sc:4320:145090 */ if (!(f8526(t72551)==FALSE_TYPE)) goto l12619; l12618: /* x73945 */ /* x73944 */ /* x73943 stalin.sc:4320:145113 */ /* x73942 stalin.sc:4320:145114 */ /* x296509 QobiScheme.sc:166:5314 */ /* x296508 QobiScheme.sc:166:5321 */ t72552 = "This shouldn\'t happen"; /* x296507 QobiScheme.sc:166:5315 */ stalin_panic(t72552); goto l12620; l12619: /* x73947 stalin.sc:4320:145063 */ /* x73946 stalin.sc:4320:145063 */ l12620: /* x73928 */ /* x73927 stalin.sc:4321:145125 */ /* x73926 stalin.sc:4321:145169 */ t72548 = a22147; /* x73925 stalin.sc:4321:145126 */ a36609 = t72548; /* x279105 */ /* x279104 */ t72549 = a36609; /* x279103 */ if ((t72549.tag)==STRUCTURE_TYPE27694) return t72549.value.structure_type27694->s13; backtrace_internal("[clone ENVIRONMENT-PROPERLY-IN-LINED-ENVIRONMENTS[6735] 31526]"); structure_ref_error();} /* IN-LINED-ENVIRONMENTS[8649] */ struct structure_type24753 *f8649(struct w49 a22144) {struct structure_type24753 *r8649; struct w49 a20658; /* S */ struct w49 t72553; struct w3457 t72554; struct w49 t72555; struct w49 t72556; struct w49 t72557; struct w49 t72558; char *t72559; /* x73922 */ /* x73921 stalin.sc:4316:144899 */ /* x73914 stalin.sc:4316:144905 */ /* x73913 stalin.sc:4316:144909 */ /* x73912 stalin.sc:4316:144917 */ t72557 = a22144; /* x73911 stalin.sc:4316:144910 */ if (!(f8581(t72557)==FALSE_TYPE)) goto l12622; /* x73908 */ /* x73907 stalin.sc:4316:144925 */ /* x73906 stalin.sc:4316:144944 */ t72558 = a22144; /* x73905 stalin.sc:4316:144926 */ if (!(f8526(t72558)==FALSE_TYPE)) goto l12623; l12622: /* x73918 */ /* x73917 */ /* x73916 stalin.sc:4316:144949 */ /* x73915 stalin.sc:4316:144950 */ /* x296505 QobiScheme.sc:166:5314 */ /* x296504 QobiScheme.sc:166:5321 */ t72559 = "This shouldn\'t happen"; /* x296503 QobiScheme.sc:166:5315 */ stalin_panic(t72559); goto l12624; l12623: /* x73920 stalin.sc:4316:144899 */ /* x73919 stalin.sc:4316:144899 */ l12624: /* x73901 */ /* x73900 stalin.sc:4317:144961 */ /* x73896 stalin.sc:4317:144967 */ t72553 = a22144; /* x73899 stalin.sc:4317:144969 */ /* x73898 stalin.sc:4317:145013 */ t72555 = a22144; /* x73897 stalin.sc:4317:144970 */ a20658 = t72555; /* x55847 */ /* x55846 */ t72556 = a20658; /* x55845 */ if (!((t72556.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("ENVIRONMENT-PROPERLY-IN-LINED-ENVIRONMENTS[6735]"); structure_ref_error();} t72554 = t72556.value.structure_type27694->s13; /* x270219 stalin.sc:4317:144962 */ r8649 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r8649==NULL) {backtrace("stalin.sc", 4317, 144961); out_of_memory_error();} r8649->s0 = t72553; r8649->s1 = *((struct w49 *)(&t72554)); return r8649;} /* DESCENDENTS[8644] */ struct w3457 f8644(struct w49 a22141) {struct w49 a20648; /* S */ struct w49 t72560; struct w49 t72561; struct w49 t72562; struct w49 t72563; char *t72564; /* x73892 */ /* x73891 stalin.sc:4312:144772 */ /* x73884 stalin.sc:4312:144778 */ /* x73883 stalin.sc:4312:144782 */ /* x73882 stalin.sc:4312:144790 */ t72562 = a22141; /* x73881 stalin.sc:4312:144783 */ if (!(f8581(t72562)==FALSE_TYPE)) goto l12626; /* x73878 */ /* x73877 stalin.sc:4312:144798 */ /* x73876 stalin.sc:4312:144817 */ t72563 = a22141; /* x73875 stalin.sc:4312:144799 */ if (!(f8526(t72563)==FALSE_TYPE)) goto l12627; l12626: /* x73888 */ /* x73887 */ /* x73886 stalin.sc:4312:144822 */ /* x73885 stalin.sc:4312:144823 */ /* x296417 QobiScheme.sc:166:5314 */ /* x296416 QobiScheme.sc:166:5321 */ t72564 = "This shouldn\'t happen"; /* x296415 QobiScheme.sc:166:5315 */ stalin_panic(t72564); goto l12628; l12627: /* x73890 stalin.sc:4312:144772 */ /* x73889 stalin.sc:4312:144772 */ l12628: /* x73871 */ /* x73870 stalin.sc:4313:144834 */ /* x73869 stalin.sc:4313:144859 */ t72560 = a22141; /* x73868 stalin.sc:4313:144835 */ a20648 = t72560; /* x55808 */ /* x55807 */ t72561 = a20648; /* x55806 */ if ((t72561.tag)==STRUCTURE_TYPE27694) return t72561.value.structure_type27694->s12; backtrace_internal("ENVIRONMENT-DESCENDENTS[6727]"); structure_ref_error();} /* PARENT-SLOT[8639] */ struct w49 f8639(struct w49 a22138) {struct w49 a20628; /* S */ struct w49 t72565; struct w49 t72566; struct w49 t72567; struct w49 t72568; char *t72569; /* x73865 */ /* x73864 stalin.sc:4308:144655 */ /* x73857 stalin.sc:4308:144661 */ /* x73856 stalin.sc:4308:144665 */ /* x73855 stalin.sc:4308:144673 */ t72567 = a22138; /* x73854 stalin.sc:4308:144666 */ if (!(f8581(t72567)==FALSE_TYPE)) goto l12630; /* x73851 */ /* x73850 stalin.sc:4308:144681 */ /* x73849 stalin.sc:4308:144700 */ t72568 = a22138; /* x73848 stalin.sc:4308:144682 */ if (!(f8526(t72568)==FALSE_TYPE)) goto l12631; l12630: /* x73861 */ /* x73860 */ /* x73859 stalin.sc:4308:144705 */ /* x73858 stalin.sc:4308:144706 */ /* x296781 QobiScheme.sc:166:5314 */ /* x296780 QobiScheme.sc:166:5321 */ t72569 = "This shouldn\'t happen"; /* x296779 QobiScheme.sc:166:5315 */ stalin_panic(t72569); goto l12632; l12631: /* x73863 stalin.sc:4308:144655 */ /* x73862 stalin.sc:4308:144655 */ l12632: /* x73844 */ /* x73843 stalin.sc:4309:144717 */ /* x73842 stalin.sc:4309:144742 */ t72565 = a22138; /* x73841 stalin.sc:4309:144718 */ a20628 = t72565; /* x55730 */ /* x55729 */ t72566 = a20628; /* x55728 */ if ((t72566.tag)==STRUCTURE_TYPE27694) return t72566.value.structure_type27694->s10; backtrace_internal("ENVIRONMENT-PARENT-SLOT[6711]"); structure_ref_error();} /* QUICK-PARENT[8634] */ struct w49 f8634(struct w49 a22135) {struct w49 a20608; /* S */ struct w49 t72570; struct w49 t72571; struct w49 t72572; struct w49 t72573; char *t72574; /* x73838 */ /* x73837 stalin.sc:4304:144547 */ /* x73830 stalin.sc:4304:144553 */ /* x73829 stalin.sc:4304:144557 */ /* x73828 stalin.sc:4304:144565 */ t72572 = a22135; /* x73827 stalin.sc:4304:144558 */ if (!(f8581(t72572)==FALSE_TYPE)) goto l12634; /* x73824 */ /* x73823 stalin.sc:4304:144573 */ /* x73822 stalin.sc:4304:144582 */ t72573 = a22135; /* x73821 stalin.sc:4304:144574 */ if (!((f8899(t72573).tag)==FALSE_TYPE)) goto l12635; l12634: /* x73834 */ /* x73833 */ /* x73832 stalin.sc:4304:144587 */ /* x73831 stalin.sc:4304:144588 */ /* x296757 QobiScheme.sc:166:5314 */ /* x296756 QobiScheme.sc:166:5321 */ t72574 = "This shouldn\'t happen"; /* x296755 QobiScheme.sc:166:5315 */ stalin_panic(t72574); goto l12636; l12635: /* x73836 stalin.sc:4304:144547 */ /* x73835 stalin.sc:4304:144547 */ l12636: /* x73817 */ /* x73816 stalin.sc:4305:144599 */ /* x73815 stalin.sc:4305:144625 */ t72570 = a22135; /* x73814 stalin.sc:4305:144600 */ a20608 = t72570; /* x55652 */ /* x55651 */ t72571 = a20608; /* x55650 */ if ((t72571.tag)==STRUCTURE_TYPE27694) return t72571.value.structure_type27694->s8; backtrace_internal("ENVIRONMENT-QUICK-PARENT[6695]"); structure_ref_error();} /* FREE-VARIABLES[8629] */ struct w3457 f8629(struct w49 a22132) {struct w49 a36611; /* S */ struct w49 t72575; struct w49 t72576; struct w49 t72577; struct w49 t72578; char *t72579; /* x73811 */ /* x73810 stalin.sc:4300:144426 */ /* x73803 stalin.sc:4300:144432 */ /* x73802 stalin.sc:4300:144436 */ /* x73801 stalin.sc:4300:144444 */ t72577 = a22132; /* x73800 stalin.sc:4300:144437 */ if (!(f8581(t72577)==FALSE_TYPE)) goto l12638; /* x73797 */ /* x73796 stalin.sc:4300:144452 */ /* x73795 stalin.sc:4300:144471 */ t72578 = a22132; /* x73794 stalin.sc:4300:144453 */ if (!(f8526(t72578)==FALSE_TYPE)) goto l12639; l12638: /* x73807 */ /* x73806 */ /* x73805 stalin.sc:4300:144476 */ /* x73804 stalin.sc:4300:144477 */ /* x296697 QobiScheme.sc:166:5314 */ /* x296696 QobiScheme.sc:166:5321 */ t72579 = "This shouldn\'t happen"; /* x296695 QobiScheme.sc:166:5315 */ stalin_panic(t72579); goto l12640; l12639: /* x73809 stalin.sc:4300:144426 */ /* x73808 stalin.sc:4300:144426 */ l12640: /* x73790 */ /* x73789 stalin.sc:4301:144488 */ /* x73788 stalin.sc:4301:144516 */ t72575 = a22132; /* x73787 stalin.sc:4301:144489 */ a36611 = t72575; /* x279113 */ /* x279112 */ t72576 = a36611; /* x279111 */ if ((t72576.tag)==STRUCTURE_TYPE27694) return t72576.value.structure_type27694->s7; backtrace_internal("[clone ENVIRONMENT-FREE-VARIABLES[6687] 31528]"); structure_ref_error();} /* DISTANCE-FROM-ROOT[8624] */ struct w6194 f8624(struct w49 a22129) {struct w49 a20588; /* S */ struct w49 t72580; struct w49 t72581; struct w49 t72582; struct w49 t72583; char *t72584; /* x73784 */ /* x73783 stalin.sc:4296:144299 */ /* x73776 stalin.sc:4296:144305 */ /* x73775 stalin.sc:4296:144309 */ /* x73774 stalin.sc:4296:144317 */ t72582 = a22129; /* x73773 stalin.sc:4296:144310 */ if (!(f8581(t72582)==FALSE_TYPE)) goto l12642; /* x73770 */ /* x73769 stalin.sc:4296:144325 */ /* x73768 stalin.sc:4296:144344 */ t72583 = a22129; /* x73767 stalin.sc:4296:144326 */ if (!(f8526(t72583)==FALSE_TYPE)) goto l12643; l12642: /* x73780 */ /* x73779 */ /* x73778 stalin.sc:4296:144349 */ /* x73777 stalin.sc:4296:144350 */ /* x297393 QobiScheme.sc:166:5314 */ /* x297392 QobiScheme.sc:166:5321 */ t72584 = "This shouldn\'t happen"; /* x297391 QobiScheme.sc:166:5315 */ stalin_panic(t72584); goto l12644; l12643: /* x73782 stalin.sc:4296:144299 */ /* x73781 stalin.sc:4296:144299 */ l12644: /* x73763 */ /* x73762 stalin.sc:4297:144361 */ /* x73761 stalin.sc:4297:144393 */ t72580 = a22129; /* x73760 stalin.sc:4297:144362 */ a20588 = t72580; /* x55574 */ /* x55573 */ t72581 = a20588; /* x55572 */ if ((t72581.tag)==STRUCTURE_TYPE27694) return t72581.value.structure_type27694->s6; backtrace_internal("ENVIRONMENT-DISTANCE-FROM-ROOT[6679]"); structure_ref_error();} /* ALLOCATION[8619] */ struct w3467 f8619(struct w49 a22126) {struct w49 a20578; /* S */ struct w49 t72585; struct w49 t72586; struct w49 t72587; struct w49 t72588; char *t72589; /* x73757 */ /* x73756 stalin.sc:4292:144176 */ /* x73749 stalin.sc:4292:144182 */ /* x73748 stalin.sc:4292:144186 */ /* x73747 stalin.sc:4292:144194 */ t72587 = a22126; /* x73746 stalin.sc:4292:144187 */ if (!(f8581(t72587)==FALSE_TYPE)) goto l12646; /* x73743 */ /* x73742 stalin.sc:4292:144202 */ /* x73741 stalin.sc:4292:144221 */ t72588 = a22126; /* x73740 stalin.sc:4292:144203 */ if (!(f8526(t72588)==FALSE_TYPE)) goto l12647; l12646: /* x73753 */ /* x73752 */ /* x73751 stalin.sc:4292:144226 */ /* x73750 stalin.sc:4292:144227 */ /* x297461 QobiScheme.sc:166:5314 */ /* x297460 QobiScheme.sc:166:5321 */ t72589 = "This shouldn\'t happen"; /* x297459 QobiScheme.sc:166:5315 */ stalin_panic(t72589); goto l12648; l12647: /* x73755 stalin.sc:4292:144176 */ /* x73754 stalin.sc:4292:144176 */ l12648: /* x73736 */ /* x73735 stalin.sc:4293:144238 */ /* x73734 stalin.sc:4293:144262 */ t72585 = a22126; /* x73733 stalin.sc:4293:144239 */ a20578 = t72585; /* x55535 */ /* x55534 */ t72586 = a20578; /* x55533 */ if ((t72586.tag)==STRUCTURE_TYPE27694) return t72586.value.structure_type27694->s5; backtrace_internal("ENVIRONMENT-ALLOCATION[6671]"); structure_ref_error();} /* CALL-SITES[8615] */ struct structure_type24753 *f8615(struct w49 a22124) {struct w49 a36614; /* S */ struct w49 t72590; struct w49 t72591; struct w49 t72592; char *t72593; /* x73730 */ /* x73729 stalin.sc:4288:144094 */ /* x73722 stalin.sc:4288:144100 */ /* x73721 stalin.sc:4288:144108 */ t72592 = a22124; /* x73720 stalin.sc:4288:144101 */ if (f8581(t72592)==FALSE_TYPE) goto l12651; /* x73726 */ /* x73725 */ /* x73724 stalin.sc:4288:144111 */ /* x73723 stalin.sc:4288:144112 */ /* x297457 QobiScheme.sc:166:5314 */ /* x297456 QobiScheme.sc:166:5321 */ t72593 = "This shouldn\'t happen"; /* x297455 QobiScheme.sc:166:5315 */ stalin_panic(t72593); goto l12652; l12651: /* x73728 stalin.sc:4288:144094 */ /* x73727 stalin.sc:4288:144094 */ l12652: /* x73719 */ /* x73718 stalin.sc:4289:144123 */ /* x73717 stalin.sc:4289:144147 */ t72590 = a22124; /* x73716 stalin.sc:4289:144124 */ a36614 = t72590; /* x279125 */ /* x279124 */ t72591 = a36614; /* x279123 */ if ((t72591.tag)==STRUCTURE_TYPE27694) return t72591.value.structure_type27694->s4; backtrace_internal("[clone ENVIRONMENT-CALL-SITES[6663] 31531]"); structure_ref_error();} /* HAS-SETJMP?[8608] */ struct w16638 f8608(struct w49 a22119) {struct p8608 *t72594; struct p8608 *t72595; struct w21193 t72596; struct w228345 t72597; struct w49 t72598; struct structure_type24753 *t72599; struct w49 t72600; char *t72601; struct p8608 *e8608; struct p8608 *p8609; e8608 = (struct p8608 *)alloca(sizeof(struct p8608)); if (e8608==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e8608->a22119 = a22119; /* x73713 */ /* x73712 stalin.sc:4255:142909 */ /* x73705 stalin.sc:4255:142915 */ /* x73704 stalin.sc:4255:142934 */ t72600 = e8608->a22119; /* x73703 stalin.sc:4255:142916 */ if (f8585(t72600)==FALSE_TYPE) goto l12654; /* x73709 */ /* x73708 */ /* x73707 stalin.sc:4255:142937 */ /* x73706 stalin.sc:4255:142938 */ /* x296457 QobiScheme.sc:166:5314 */ /* x296456 QobiScheme.sc:166:5321 */ t72601 = "This shouldn\'t happen"; /* x296455 QobiScheme.sc:166:5315 */ stalin_panic(t72601); goto l12655; l12654: /* x73711 stalin.sc:4255:142909 */ /* x73710 stalin.sc:4255:142909 */ l12655: /* x73702 */ t72594 = e8608; p8609 = t72594; /* x73701 stalin.sc:4256:142949 */ /* x73700 stalin.sc:4283:144032 */ t72596 = a2030; /* x73699 stalin.sc:4256:142955 */ t72595 = p8609; /* x73594 stalin.sc:4256:142950 */ t72597.tag = NATIVE_PROCEDURE_TYPE18908; t72597.value.native_procedure_type18908 = t72595; t72598 = *((struct w49 *)(&t72596)); t72599 = (struct structure_type24753 *)NULL_TYPE; return f1042(t72597, t72598, t72599);} /* HAS-ALLOCA?[8593] */ struct w16638 f8593(struct w49 a22112) {struct w16638 r8593; struct w16638 a22114; /* v */ char *a22115; /* v */ struct p8593 *t72602; struct p8593 *t72603; struct w16638 t72604; struct p8593 *t72605; char *t72606; char *t72607; char *t72608; struct w49 t72609; struct w49 t72610; char *t72611; char *t72612; struct w49 t72613; struct w49 t72614; char *t72615; char *t72616; struct w49 t72617; struct w49 t72618; char *t72619; char *t72620; struct w49 t72621; struct w49 t72622; char *t72623; char *t72624; struct w49 t72625; struct w49 t72626; char *t72627; struct p8593 *t72628; struct p8593 *t72629; struct w21193 t72630; struct w228345 t72631; struct w49 t72632; struct structure_type24753 *t72633; char *t72634; struct w6315 t72635; char *t72636; struct w6315 t72637; char *t72638; struct w6315 t72639; char *t72640; struct w6315 t72641; struct p8593 *t72642; struct w21193 t72643; struct w228345 t72644; struct w49 t72645; struct structure_type24753 *t72646; struct w49 t72647; char *t72648; struct p8593 *e8593; struct p8593 *p8594; struct p8593 *p8595; struct p8593 *p8596; struct p8593 *p8601; e8593 = (struct p8593 *)alloca(sizeof(struct p8593)); if (e8593==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e8593->a22112 = a22112; /* x73591 */ /* x73590 stalin.sc:4225:141857 */ /* x73583 stalin.sc:4225:141863 */ /* x73582 stalin.sc:4225:141882 */ t72647 = e8593->a22112; /* x73581 stalin.sc:4225:141864 */ if (f8585(t72647)==FALSE_TYPE) goto l12669; /* x73587 */ /* x73586 */ /* x73585 stalin.sc:4225:141885 */ /* x73584 stalin.sc:4225:141886 */ /* x296465 QobiScheme.sc:166:5314 */ /* x296464 QobiScheme.sc:166:5321 */ t72648 = "This shouldn\'t happen"; /* x296463 QobiScheme.sc:166:5315 */ stalin_panic(t72648); goto l12670; l12669: /* x73589 stalin.sc:4225:141857 */ /* x73588 stalin.sc:4225:141857 */ l12670: /* x73580 */ t72602 = e8593; p8594 = t72602; /* x73579 stalin.sc:4226:141897 */ /* x73578 stalin.sc:4227:141903 */ /* x73577 stalin.sc:4234:142139 */ t72643 = a2030; /* x73576 stalin.sc:4227:141909 */ t72642 = p8594; /* x73544 stalin.sc:4227:141904 */ t72644.tag = NATIVE_PROCEDURE_TYPE18894; t72644.value.native_procedure_type18894 = t72642; t72645 = *((struct w49 *)(&t72643)); t72646 = (struct structure_type24753 *)NULL_TYPE; t72604 = f1042(t72644, t72645, t72646); /* x73543 */ t72603 = p8594; p8595 = t72603; a22114 = t72604; /* x73542 */ /* x73462 */ if ((a22114.tag)==FALSE_TYPE) goto l12657; /* x73463 */ return a22114; l12657: /* x73541 */ /* x73540 stalin.sc:4235:142156 */ t72606 = a686; /* x73539 */ t72605 = p8595; p8596 = t72605; a22115 = t72606; /* x73538 */ /* x73467 */ /* x73465 */ t72607 = a22115; /* x73466 */ t72608 = q18; /* x73464 */ /* MOVE: branching squeezed to general */ if (t72607>=((char *)VALUE_OFFSET)) {t72609.tag = EXTERNAL_SYMBOL_TYPE; t72609.value.external_symbol_type = t72607;} else t72609.tag = (unsigned)t72607; t72610.tag = EXTERNAL_SYMBOL_TYPE; t72610.value.external_symbol_type = t72608; if (f26160(t72609, t72610)==FALSE_TYPE) goto l12659; /* x73473 */ /* x73472 */ /* x73471 stalin.sc:4237:142206 */ /* x73469 stalin.sc:4237:142221 */ /* x73470 stalin.sc:4237:142224 */ t72640 = "Immediate flat closures are not (yet) implemented"; /* x73468 stalin.sc:4237:142207 */ t72641.tag = FALSE_TYPE; f9707(t72641, t72640); return r8593; l12659: /* x73537 */ /* x73477 */ /* x73475 */ t72611 = a22115; /* x73476 */ t72612 = q20; /* x73474 */ /* MOVE: branching squeezed to general */ if (t72611>=((char *)VALUE_OFFSET)) {t72613.tag = EXTERNAL_SYMBOL_TYPE; t72613.value.external_symbol_type = t72611;} else t72613.tag = (unsigned)t72611; t72614.tag = EXTERNAL_SYMBOL_TYPE; t72614.value.external_symbol_type = t72612; if (f26160(t72613, t72614)==FALSE_TYPE) goto l12661; /* x73483 */ /* x73482 */ /* x73481 stalin.sc:4239:142306 */ /* x73479 stalin.sc:4239:142321 */ /* x73480 stalin.sc:4239:142324 */ t72638 = "Immediate display closures are not (yet) implemented"; /* x73478 stalin.sc:4239:142307 */ t72639.tag = FALSE_TYPE; f9707(t72639, t72638); return r8593; l12661: /* x73536 */ /* x73487 */ /* x73485 */ t72615 = a22115; /* x73486 */ t72616 = q19; /* x73484 */ /* MOVE: branching squeezed to general */ if (t72615>=((char *)VALUE_OFFSET)) {t72617.tag = EXTERNAL_SYMBOL_TYPE; t72617.value.external_symbol_type = t72615;} else t72617.tag = (unsigned)t72615; t72618.tag = EXTERNAL_SYMBOL_TYPE; t72618.value.external_symbol_type = t72616; if (f26160(t72617, t72618)==FALSE_TYPE) goto l12663; /* x73493 */ /* x73492 */ /* x73491 stalin.sc:4241:142405 */ /* x73489 stalin.sc:4241:142420 */ /* x73490 stalin.sc:4241:142423 */ t72636 = "Indirect flat closures are not (yet) implemented"; /* x73488 stalin.sc:4241:142406 */ t72637.tag = FALSE_TYPE; f9707(t72637, t72636); return r8593; l12663: /* x73535 */ /* x73497 */ /* x73495 */ t72619 = a22115; /* x73496 */ t72620 = q21; /* x73494 */ /* MOVE: branching squeezed to general */ if (t72619>=((char *)VALUE_OFFSET)) {t72621.tag = EXTERNAL_SYMBOL_TYPE; t72621.value.external_symbol_type = t72619;} else t72621.tag = (unsigned)t72619; t72622.tag = EXTERNAL_SYMBOL_TYPE; t72622.value.external_symbol_type = t72620; if (f26160(t72621, t72622)==FALSE_TYPE) goto l12665; /* x73503 */ /* x73502 */ /* x73501 stalin.sc:4243:142503 */ /* x73499 stalin.sc:4243:142518 */ /* x73500 stalin.sc:4243:142521 */ t72634 = "Indirect display closures are not (yet) implemented"; /* x73498 stalin.sc:4243:142504 */ t72635.tag = FALSE_TYPE; f9707(t72635, t72634); return r8593; l12665: /* x73534 */ /* x73507 */ /* x73505 */ t72623 = a22115; /* x73506 */ t72624 = q22; /* x73504 */ /* MOVE: branching squeezed to general */ if (t72623>=((char *)VALUE_OFFSET)) {t72625.tag = EXTERNAL_SYMBOL_TYPE; t72625.value.external_symbol_type = t72623;} else t72625.tag = (unsigned)t72623; t72626.tag = EXTERNAL_SYMBOL_TYPE; t72626.value.external_symbol_type = t72624; if (f26160(t72625, t72626)==FALSE_TYPE) goto l12667; /* x73529 */ /* x73528 */ t72628 = p8596; p8601 = t72628; /* x73527 stalin.sc:4245:142594 */ /* x73526 stalin.sc:4249:142700 */ t72630 = a1594; /* x73525 stalin.sc:4245:142600 */ t72629 = p8601; /* x73508 stalin.sc:4245:142595 */ t72631.tag = NATIVE_PROCEDURE_TYPE18899; t72631.value.native_procedure_type18899 = t72629; t72632 = *((struct w49 *)(&t72630)); t72633 = (struct structure_type24753 *)NULL_TYPE; return f1042(t72631, t72632, t72633); l12667: /* x73533 */ /* x73532 */ /* x73531 stalin.sc:4250:142716 */ /* x73530 stalin.sc:4250:142717 */ /* x296461 QobiScheme.sc:166:5314 */ /* x296460 QobiScheme.sc:166:5321 */ t72627 = "This shouldn\'t happen"; /* x296459 QobiScheme.sc:166:5315 */ stalin_panic(t72627);} /* CONVERTED-CONTINUATION?[8592] */ unsigned f8592(struct w49 a22111) {struct w49 a36674; /* S */ struct w6852 a40279; /* S */ char *t72649; char *t72650; struct w6852 t72651; struct w6852 t72652; struct w49 t72653; struct w49 t72654; /* x73459 stalin.sc:4220:141602 */ /* x73457 stalin.sc:4220:141607 */ /* x73456 stalin.sc:4220:141624 */ /* x73455 stalin.sc:4220:141648 */ t72653 = a22111; /* x73454 stalin.sc:4220:141625 */ a36674 = t72653; /* x279365 */ /* x279364 */ t72654 = a36674; /* x279363 */ if (!((t72654.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31591]"); structure_ref_error();} t72651 = t72654.value.structure_type27694->s1; /* x73453 stalin.sc:4220:141608 */ a40279 = t72651; /* x293785 */ /* x293784 */ t72652 = a40279; /* x293783 */ if (!((t72652.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35196]"); structure_ref_error();} t72649 = t72652.value.structure_type27698->s0; /* x73458 stalin.sc:4220:141652 */ t72650 = q41; /* x270232 stalin.sc:4220:141603 */ if (t72649==t72650) return TRUE_TYPE; else return FALSE_TYPE;} /* HAS-SELF-TAIL-CALL?[8590] */ struct w16638 f8590(struct w49 a22109) {struct p8590 *t72655; struct structure_type24753 *t72656; struct w228345 t72657; struct w49 t72658; struct structure_type24753 *t72659; struct w49 t72660; struct p8590 *e8590; e8590 = (struct p8590 *)alloca(sizeof(struct p8590)); if (e8590==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e8590->a22109 = a22109; /* x73449 stalin.sc:4215:141451 */ /* x73448 stalin.sc:4217:141547 */ /* x73447 stalin.sc:4217:141559 */ t72660 = e8590->a22109; /* x73446 stalin.sc:4217:141548 */ t72656 = f8615(t72660); /* x73445 stalin.sc:4215:141457 */ t72655 = e8590; /* x73433 stalin.sc:4215:141452 */ t72657.tag = NATIVE_PROCEDURE_TYPE18451; t72657.value.native_procedure_type18451 = t72655; /* MOVE: branching squeezed to general */ if (t72656>=((struct structure_type24753 *)VALUE_OFFSET)) {t72658.tag = STRUCTURE_TYPE24753; t72658.value.structure_type24753 = t72656;} else t72658.tag = (unsigned)t72656; t72659 = (struct structure_type24753 *)NULL_TYPE; return f1042(t72657, t72658, t72659);} /* UNIQUE-CALL-SITE?[8585] */ unsigned f8585(struct w49 a22106) {struct w49 a36533; /* S */ int t72661; int t72662; struct w11873 t72663; struct w49 t72664; struct w49 t72665; struct w49 t72666; struct w49 t72667; struct w49 t72668; struct w49 t72669; struct w49 t72670; char *t72671; /* x73430 */ /* x73429 stalin.sc:4210:141236 */ /* x73422 stalin.sc:4210:141242 */ /* x73421 stalin.sc:4210:141246 */ /* x73420 stalin.sc:4210:141254 */ t72669 = a22106; /* x73419 stalin.sc:4210:141247 */ if (!(f8581(t72669)==FALSE_TYPE)) goto l12675; /* x73416 */ /* x73415 stalin.sc:4210:141262 */ /* x73414 stalin.sc:4210:141281 */ t72670 = a22106; /* x73413 stalin.sc:4210:141263 */ if (!(f8526(t72670)==FALSE_TYPE)) goto l12676; l12675: /* x73426 */ /* x73425 */ /* x73424 stalin.sc:4210:141286 */ /* x73423 stalin.sc:4210:141287 */ /* x297473 QobiScheme.sc:166:5314 */ /* x297472 QobiScheme.sc:166:5321 */ t72671 = "This shouldn\'t happen"; /* x297471 QobiScheme.sc:166:5315 */ stalin_panic(t72671); goto l12677; l12676: /* x73428 stalin.sc:4210:141236 */ /* x73427 stalin.sc:4210:141236 */ l12677: /* x73409 */ /* x73408 stalin.sc:4211:141298 */ /* x73408 stalin.sc:4211:141298 */ /* x73399 stalin.sc:4211:141303 */ /* x73397 stalin.sc:4211:141306 */ /* x73396 stalin.sc:4211:141314 */ /* x73395 stalin.sc:4211:141352 */ t72665 = a22106; /* x73394 stalin.sc:4211:141315 */ a36533 = t72665; /* x278801 */ /* x278800 */ t72666 = a36533; /* x278799 */ if (!((t72666.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NON-SELF-TAIL-CALL-SITES[6831] 31450]"); structure_ref_error();} t72663 = t72666.value.structure_type27694->s25; /* x73393 stalin.sc:4211:141307 */ t72664 = *((struct w49 *)(&t72663)); t72661 = f26227(t72664); /* x73398 stalin.sc:4211:141356 */ t72662 = 1; /* x270236 stalin.sc:4211:141304 */ if (!(t72661==t72662)) goto l12672; /* x73406 */ /* x73405 stalin.sc:4212:141370 */ /* x73404 stalin.sc:4212:141392 */ /* x73403 stalin.sc:4212:141410 */ t72668 = a22106; /* x73402 stalin.sc:4212:141393 */ t72667 = f8659(t72668); /* x73401 stalin.sc:4212:141371 */ if (!(f8751(t72667)==FALSE_TYPE)) goto l12672; return TRUE_TYPE; l12672: return FALSE_TYPE;} /* HAS-PARENT-SLOT?[8584] */ unsigned f8584(struct w49 a22105) {struct w49 t72672; struct w49 t72673; /* x73389 stalin.sc:4207:141172 */ /* x73389 stalin.sc:4207:141172 */ /* x73388 stalin.sc:4207:141177 */ /* x73387 stalin.sc:4207:141185 */ /* x73386 stalin.sc:4207:141198 */ t72673 = a22105; /* x73385 stalin.sc:4207:141186 */ t72672 = f8639(t72673); /* x73384 stalin.sc:4207:141178 */ if (!(f8581(t72672)==FALSE_TYPE)) goto l12680; return TRUE_TYPE; l12680: return FALSE_TYPE;} /* EMPTY?[8581] */ unsigned f8581(struct w49 a22102) {struct w49 t72674; /* x73356 stalin.sc:4198:140933 */ /* x73354 stalin.sc:4198:140938 */ t72674 = a22102; /* x73355 stalin.sc:4198:140940 */ /* x270238 stalin.sc:4198:140934 */ if ((t72674.tag)==FALSE_TYPE) return TRUE_TYPE; else return FALSE_TYPE;} /* [inside INFER-ALL-WHETHER-HAS-CLOSURE?! 8570] */ void f8570(struct w49 a22099) {struct w49 a36644; /* S */ struct w49 t72675; struct w49 t72676; struct w49 t72677; unsigned t72678; char *t72679; char *t72680; struct w49 t72681; struct structure_type24753 *t72682; struct w49 t72683; struct w49 t72684; struct w49 t72685; char *t72686; /* x73336 stalin.sc:4190:140639 */ /* x73290 stalin.sc:4190:140646 */ /* x73289 stalin.sc:4190:140660 */ t72675 = a22099; /* x73288 stalin.sc:4190:140647 */ if (f8563(t72675)==FALSE_TYPE) goto l12683; /* x73307 */ /* x73306 */ /* x73305 stalin.sc:4191:140666 */ /* x73298 stalin.sc:4191:140672 */ /* x73291 stalin.sc:4191:140677 */ if (a22097==FALSE_TYPE) goto l12690; /* x73296 */ /* x73295 stalin.sc:4191:140685 */ /* x73294 stalin.sc:4191:140717 */ t72685 = a22099; /* x73293 stalin.sc:4191:140686 */ if (!((f8567(t72685).tag)==FALSE_TYPE)) goto l12690; /* x73302 */ /* x73301 */ /* x73300 stalin.sc:4191:140722 */ /* x73299 stalin.sc:4191:140723 */ /* x296645 QobiScheme.sc:166:5314 */ /* x296644 QobiScheme.sc:166:5321 */ t72686 = "This shouldn\'t happen"; /* x296643 QobiScheme.sc:166:5315 */ stalin_panic(t72686); l12690: /* x73304 stalin.sc:4191:140666 */ /* x73303 stalin.sc:4191:140666 */ return; l12683: /* x73335 */ /* x73310 stalin.sc:4192:140737 */ /* x73309 stalin.sc:4192:140769 */ t72676 = a22099; /* x73308 stalin.sc:4192:140738 */ if ((f8567(t72676).tag)==FALSE_TYPE) goto l12685; /* x73332 */ /* x73331 */ /* x73330 */ /* x73317 stalin.sc:4193:140775 */ /* x73315 stalin.sc:4193:140806 */ t72677 = a22099; /* x73316 stalin.sc:4193:140808 */ /* x73314 stalin.sc:4193:140776 */ t72678 = TRUE_TYPE; f8522(t72677, t72678); /* x73329 stalin.sc:4194:140815 */ /* x73318 stalin.sc:4194:140821 */ if (a696==FALSE_TYPE) goto l12687; /* x73326 */ /* x73325 */ /* x73324 stalin.sc:4194:140827 */ /* x73323 stalin.sc:4194:140856 */ /* x73322 stalin.sc:4194:140874 */ t72683 = a22099; /* x73321 stalin.sc:4194:140857 */ a36644 = t72683; /* x279245 */ /* x279244 */ t72684 = a36644; /* x279243 */ if (!((t72684.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NAME[6647] 31561]"); structure_ref_error();} t72680 = t72684.value.structure_type27694->s2; /* x73320 stalin.sc:4194:140835 */ t72679 = " ~a has a closure"; /* x73319 stalin.sc:4194:140828 */ t72681.tag = STRING_TYPE; t72681.value.string_type = t72679; t72682 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t72682==NULL) {backtrace("stalin.sc", 4194, 140827); out_of_memory_error();} t72682->s0.tag = STRING_TYPE; t72682->s0.value.string_type = t72680; t72682->s1.tag = NULL_TYPE; f5365(t72681, t72682); goto l12688; l12687: /* x73328 stalin.sc:4194:140815 */ /* x73327 stalin.sc:4194:140815 */ l12688: /* x73313 */ /* x73312 stalin.sc:4195:140882 */ /* x73311 stalin.sc:4195:140897 */ a2038 = TRUE_TYPE; return; l12685: /* x73334 */ /* x73333 */ return;} /* INFER-ALL-WHETHER-HAS-CLOSURE?![8568] */ void f8568(void) {struct w21193 t72687; struct w36108 t72688; struct w49 t72689; struct structure_type24753 *t72690; char *t72691; struct w49 t72692; struct structure_type24753 *t72693; /* x73350 */ /* x73349 stalin.sc:4187:140540 */ /* x73341 stalin.sc:4187:140546 */ if (a696==FALSE_TYPE) goto l12693; /* x73346 */ /* x73345 */ /* x73344 stalin.sc:4187:140552 */ /* x73343 stalin.sc:4187:140560 */ t72691 = "Determining whether environments have closures"; /* x73342 stalin.sc:4187:140553 */ t72692.tag = STRING_TYPE; t72692.value.string_type = t72691; t72693 = (struct structure_type24753 *)NULL_TYPE; f5365(t72692, t72693); goto l12694; l12693: /* x73348 stalin.sc:4187:140540 */ /* x73347 stalin.sc:4187:140540 */ l12694: /* x73340 */ /* x73339 stalin.sc:4188:140612 */ /* x73338 stalin.sc:4196:140906 */ t72687 = a1594; /* x73337 stalin.sc:4189:140624 */ /* x73287 stalin.sc:4188:140613 */ t72688.tag = NATIVE_PROCEDURE_TYPE15807; t72689 = *((struct w49 *)(&t72687)); t72690 = (struct structure_type24753 *)NULL_TYPE; f27755(t72688, t72689, t72690); return;} /* DETERMINE-WHETHER-HAS-CLOSURE?[8567] */ struct w16638 f8567(struct w49 a22096) {struct structure_type24753 *t72694; struct w228345 t72695; struct w49 t72696; struct structure_type24753 *t72697; struct w49 t72698; /* x73284 stalin.sc:4184:140462 */ /* x73283 stalin.sc:4184:140477 */ /* x73282 stalin.sc:4184:140488 */ t72698 = a22096; /* x73281 stalin.sc:4184:140478 */ t72694 = f8987(t72698); /* x73280 stalin.sc:4184:140468 */ /* x73279 stalin.sc:4184:140463 */ t72695.tag = NATIVE_PROCEDURE_TYPE7314; /* MOVE: branching squeezed to general */ if (t72694>=((struct structure_type24753 *)VALUE_OFFSET)) {t72696.tag = STRUCTURE_TYPE24753; t72696.value.structure_type24753 = t72694;} else t72696.tag = (unsigned)t72694; t72697 = (struct structure_type24753 *)NULL_TYPE; return f1042(t72695, t72696, t72697);} /* HAS-CLOSURE?[8563] */ unsigned f8563(struct w49 a22094) {struct w49 a22067; /* E */ struct w49 a36530; /* S */ struct w49 t72699; int t72700; int t72701; int t72702; struct structure_type24753 *t72703; struct w49 t72704; struct w49 t72705; struct w49 t72706; struct w49 t72707; char *t72708; /* x73276 */ /* x73275 stalin.sc:4178:140216 */ /* x73268 stalin.sc:4178:140222 */ /* x73267 stalin.sc:4178:140230 */ t72707 = a22094; /* x73266 stalin.sc:4178:140223 */ if (f8581(t72707)==FALSE_TYPE) goto l12699; /* x73272 */ /* x73271 */ /* x73270 stalin.sc:4178:140233 */ /* x73269 stalin.sc:4178:140234 */ /* x297421 QobiScheme.sc:166:5314 */ /* x297420 QobiScheme.sc:166:5321 */ t72708 = "This shouldn\'t happen"; /* x297419 QobiScheme.sc:166:5315 */ stalin_panic(t72708); goto l12700; l12699: /* x73274 stalin.sc:4178:140216 */ /* x73273 stalin.sc:4178:140216 */ l12700: /* x73265 */ /* x73264 stalin.sc:4179:140245 */ /* x73263 stalin.sc:4179:140271 */ t72699 = a22094; /* x73262 stalin.sc:4179:140246 */ a22067 = t72699; /* x73020 stalin.sc:4135:138863 */ /* x73020 stalin.sc:4135:138863 */ /* x73019 stalin.sc:4135:138868 */ /* x73018 stalin.sc:4135:138875 */ /* x73017 stalin.sc:4135:138909 */ t72702 = 1; /* x73016 stalin.sc:4135:138884 */ /* x73015 stalin.sc:4135:138906 */ t72705 = a22067; /* x73014 stalin.sc:4135:138885 */ a36530 = t72705; /* x278789 */ /* x278788 */ t72706 = a36530; /* x278787 */ if (!((t72706.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31447]"); structure_ref_error();} t72701 = t72706.value.structure_type27694->s26; /* x73013 stalin.sc:4135:138876 */ t72704.tag = STRUCTURE_TYPE24753; t72704.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t72704.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4135, 138875); out_of_memory_error();} t72704.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72704.value.structure_type24753->s0.value.fixnum_type = t72702; t72704.value.structure_type24753->s1.tag = NULL_TYPE; t72703 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t72703==NULL) {backtrace("stalin.sc", 4135, 138875); out_of_memory_error();} t72703->s0.tag = FIXNUM_TYPE; t72703->s0.value.fixnum_type = t72701; t72703->s1 = t72704; t72700 = f27305(t72703); /* x270249 stalin.sc:4135:138869 */ if (t72700==0) goto l12696; return TRUE_TYPE; l12696: return FALSE_TYPE;} /* HAS-EXTERNAL-CONTINUATION-CALL?[8558] */ unsigned f8558(struct w49 a22091) {struct w49 a22063; /* E */ struct w49 a36502; /* S */ struct w49 t72709; int t72710; int t72711; int t72712; struct structure_type24753 *t72713; struct w49 t72714; struct w49 t72715; struct w49 t72716; struct w49 t72717; struct w49 t72718; char *t72719; /* x73259 */ /* x73258 stalin.sc:4174:140078 */ /* x73251 stalin.sc:4174:140084 */ /* x73250 stalin.sc:4174:140088 */ /* x73249 stalin.sc:4174:140096 */ t72717 = a22091; /* x73248 stalin.sc:4174:140089 */ if (!(f8581(t72717)==FALSE_TYPE)) goto l12704; /* x73245 */ /* x73244 stalin.sc:4174:140104 */ /* x73243 stalin.sc:4174:140123 */ t72718 = a22091; /* x73242 stalin.sc:4174:140105 */ if (!(f8526(t72718)==FALSE_TYPE)) goto l12705; l12704: /* x73255 */ /* x73254 */ /* x73253 stalin.sc:4174:140128 */ /* x73252 stalin.sc:4174:140129 */ /* x296453 QobiScheme.sc:166:5314 */ /* x296452 QobiScheme.sc:166:5321 */ t72719 = "This shouldn\'t happen"; /* x296451 QobiScheme.sc:166:5315 */ stalin_panic(t72719); goto l12706; l12705: /* x73257 stalin.sc:4174:140078 */ /* x73256 stalin.sc:4174:140078 */ l12706: /* x73238 */ /* x73237 stalin.sc:4175:140140 */ /* x73236 stalin.sc:4175:140185 */ t72709 = a22091; /* x73235 stalin.sc:4175:140141 */ a22063 = t72709; while (region8516!=((struct region8516 *)(&initial_region8516))) {struct region8516 *region; region = region8516; region8516 = region8516->region; GC_free(region);} region_size8516 = REGION_SIZE8516; fp8516 = &((region8516->data)[0]); ALIGN(fp8516); /* x72975 stalin.sc:4124:138534 */ /* x72975 stalin.sc:4124:138534 */ /* x72974 stalin.sc:4124:138539 */ /* x72973 stalin.sc:4124:138546 */ /* x72972 stalin.sc:4124:138580 */ t72712 = 2; /* x72971 stalin.sc:4124:138555 */ /* x72970 stalin.sc:4124:138577 */ t72715 = a22063; /* x72969 stalin.sc:4124:138556 */ a36502 = t72715; /* x278677 */ /* x278676 */ t72716 = a36502; /* x278675 */ if (!((t72716.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31419]"); structure_ref_error();} t72711 = t72716.value.structure_type27694->s26; /* x72968 stalin.sc:4124:138547 */ if ((fp8516+sizeof(struct structure_type24753))>(&((region8516->data)[region_size8516]))) {struct region8516 *region; unsigned region_size = REGION_SIZE8516; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8516 *)GC_malloc_uncollectable(sizeof(struct region8516)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4124, 138546); out_of_memory_error();} region->region = region8516; region_size8516 = region_size; region8516 = region; fp8516 = &((region->data)[0]); ALIGN(fp8516);} t72714.tag = STRUCTURE_TYPE24753; t72714.value.structure_type24753 = (struct structure_type24753 *)fp8516; fp8516 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t72714.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72714.value.structure_type24753->s0.value.fixnum_type = t72712; t72714.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8516+sizeof(struct structure_type24753))>(&((region8516->data)[region_size8516]))) {struct region8516 *region; unsigned region_size = REGION_SIZE8516; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8516 *)GC_malloc_uncollectable(sizeof(struct region8516)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4124, 138546); out_of_memory_error();} region->region = region8516; region_size8516 = region_size; region8516 = region; fp8516 = &((region->data)[0]); ALIGN(fp8516);} t72713 = (struct structure_type24753 *)fp8516; fp8516 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t72713->s0.tag = FIXNUM_TYPE; t72713->s0.value.fixnum_type = t72711; t72713->s1 = t72714; t72710 = f27305(t72713); /* x270252 stalin.sc:4124:138540 */ if (t72710==0) goto l12702; return TRUE_TYPE; l12702: return FALSE_TYPE;} /* HAS-EXTERNAL-SELF-TAIL-CALL?[8553] */ unsigned f8553(struct w49 a22088) {struct w49 a22059; /* E */ struct w49 a36519; /* S */ struct w49 t72720; int t72721; int t72722; int t72723; struct structure_type24753 *t72724; struct w49 t72725; struct w49 t72726; struct w49 t72727; struct w49 t72728; struct w49 t72729; char *t72730; /* x73232 */ /* x73231 stalin.sc:4170:139924 */ /* x73224 stalin.sc:4170:139930 */ /* x73223 stalin.sc:4170:139934 */ /* x73222 stalin.sc:4170:139942 */ t72728 = a22088; /* x73221 stalin.sc:4170:139935 */ if (!(f8581(t72728)==FALSE_TYPE)) goto l12711; /* x73218 */ /* x73217 stalin.sc:4170:139950 */ /* x73216 stalin.sc:4170:139969 */ t72729 = a22088; /* x73215 stalin.sc:4170:139951 */ if (!(f8526(t72729)==FALSE_TYPE)) goto l12712; l12711: /* x73228 */ /* x73227 */ /* x73226 stalin.sc:4170:139974 */ /* x73225 stalin.sc:4170:139975 */ /* x296761 QobiScheme.sc:166:5314 */ /* x296760 QobiScheme.sc:166:5321 */ t72730 = "This shouldn\'t happen"; /* x296759 QobiScheme.sc:166:5315 */ stalin_panic(t72730); goto l12713; l12712: /* x73230 stalin.sc:4170:139924 */ /* x73229 stalin.sc:4170:139924 */ l12713: /* x73211 */ /* x73210 stalin.sc:4171:139986 */ /* x73209 stalin.sc:4171:140028 */ t72720 = a22088; /* x73208 stalin.sc:4171:139987 */ a22059 = t72720; while (region8511!=((struct region8511 *)(&initial_region8511))) {struct region8511 *region; region = region8511; region8511 = region8511->region; GC_free(region);} region_size8511 = REGION_SIZE8511; fp8511 = &((region8511->data)[0]); ALIGN(fp8511); /* x72930 stalin.sc:4113:138189 */ /* x72930 stalin.sc:4113:138189 */ /* x72929 stalin.sc:4113:138194 */ /* x72928 stalin.sc:4113:138201 */ /* x72927 stalin.sc:4113:138235 */ t72723 = 4; /* x72926 stalin.sc:4113:138210 */ /* x72925 stalin.sc:4113:138232 */ t72726 = a22059; /* x72924 stalin.sc:4113:138211 */ a36519 = t72726; /* x278745 */ /* x278744 */ t72727 = a36519; /* x278743 */ if (!((t72727.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31436]"); structure_ref_error();} t72722 = t72727.value.structure_type27694->s26; /* x72923 stalin.sc:4113:138202 */ if ((fp8511+sizeof(struct structure_type24753))>(&((region8511->data)[region_size8511]))) {struct region8511 *region; unsigned region_size = REGION_SIZE8511; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8511 *)GC_malloc_uncollectable(sizeof(struct region8511)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4113, 138201); out_of_memory_error();} region->region = region8511; region_size8511 = region_size; region8511 = region; fp8511 = &((region->data)[0]); ALIGN(fp8511);} t72725.tag = STRUCTURE_TYPE24753; t72725.value.structure_type24753 = (struct structure_type24753 *)fp8511; fp8511 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t72725.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72725.value.structure_type24753->s0.value.fixnum_type = t72723; t72725.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8511+sizeof(struct structure_type24753))>(&((region8511->data)[region_size8511]))) {struct region8511 *region; unsigned region_size = REGION_SIZE8511; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8511 *)GC_malloc_uncollectable(sizeof(struct region8511)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4113, 138201); out_of_memory_error();} region->region = region8511; region_size8511 = region_size; region8511 = region; fp8511 = &((region->data)[0]); ALIGN(fp8511);} t72724 = (struct structure_type24753 *)fp8511; fp8511 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t72724->s0.tag = FIXNUM_TYPE; t72724->s0.value.fixnum_type = t72722; t72724->s1 = t72725; t72721 = f27305(t72724); /* x270255 stalin.sc:4113:138195 */ if (t72721==0) goto l12709; return TRUE_TYPE; l12709: return FALSE_TYPE;} /* CALLED-MORE-THAN-ONCE?[8548] */ unsigned f8548(struct w49 a22085) {struct w49 a22055; /* E */ struct w49 a36522; /* S */ struct w49 t72731; int t72732; int t72733; int t72734; struct structure_type24753 *t72735; struct w49 t72736; struct w49 t72737; struct w49 t72738; struct w49 t72739; struct w49 t72740; char *t72741; /* x73205 */ /* x73204 stalin.sc:4166:139779 */ /* x73197 stalin.sc:4166:139785 */ /* x73196 stalin.sc:4166:139789 */ /* x73195 stalin.sc:4166:139797 */ t72739 = a22085; /* x73194 stalin.sc:4166:139790 */ if (!(f8581(t72739)==FALSE_TYPE)) goto l12718; /* x73191 */ /* x73190 stalin.sc:4166:139805 */ /* x73189 stalin.sc:4166:139824 */ t72740 = a22085; /* x73188 stalin.sc:4166:139806 */ if (!(f8526(t72740)==FALSE_TYPE)) goto l12719; l12718: /* x73201 */ /* x73200 */ /* x73199 stalin.sc:4166:139829 */ /* x73198 stalin.sc:4166:139830 */ /* x297469 QobiScheme.sc:166:5314 */ /* x297468 QobiScheme.sc:166:5321 */ t72741 = "This shouldn\'t happen"; /* x297467 QobiScheme.sc:166:5315 */ stalin_panic(t72741); goto l12720; l12719: /* x73203 stalin.sc:4166:139779 */ /* x73202 stalin.sc:4166:139779 */ l12720: /* x73184 */ /* x73183 stalin.sc:4167:139841 */ /* x73182 stalin.sc:4167:139877 */ t72731 = a22085; /* x73181 stalin.sc:4167:139842 */ a22055 = t72731; while (region8506!=((struct region8506 *)(&initial_region8506))) {struct region8506 *region; region = region8506; region8506 = region8506->region; GC_free(region);} region_size8506 = REGION_SIZE8506; fp8506 = &((region8506->data)[0]); ALIGN(fp8506); /* x72885 stalin.sc:4102:137853 */ /* x72885 stalin.sc:4102:137853 */ /* x72884 stalin.sc:4102:137858 */ /* x72883 stalin.sc:4102:137865 */ /* x72882 stalin.sc:4102:137899 */ t72734 = 8; /* x72881 stalin.sc:4102:137874 */ /* x72880 stalin.sc:4102:137896 */ t72737 = a22055; /* x72879 stalin.sc:4102:137875 */ a36522 = t72737; /* x278757 */ /* x278756 */ t72738 = a36522; /* x278755 */ if (!((t72738.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31439]"); structure_ref_error();} t72733 = t72738.value.structure_type27694->s26; /* x72878 stalin.sc:4102:137866 */ if ((fp8506+sizeof(struct structure_type24753))>(&((region8506->data)[region_size8506]))) {struct region8506 *region; unsigned region_size = REGION_SIZE8506; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8506 *)GC_malloc_uncollectable(sizeof(struct region8506)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4102, 137865); out_of_memory_error();} region->region = region8506; region_size8506 = region_size; region8506 = region; fp8506 = &((region->data)[0]); ALIGN(fp8506);} t72736.tag = STRUCTURE_TYPE24753; t72736.value.structure_type24753 = (struct structure_type24753 *)fp8506; fp8506 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t72736.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72736.value.structure_type24753->s0.value.fixnum_type = t72734; t72736.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8506+sizeof(struct structure_type24753))>(&((region8506->data)[region_size8506]))) {struct region8506 *region; unsigned region_size = REGION_SIZE8506; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8506 *)GC_malloc_uncollectable(sizeof(struct region8506)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4102, 137865); out_of_memory_error();} region->region = region8506; region_size8506 = region_size; region8506 = region; fp8506 = &((region->data)[0]); ALIGN(fp8506);} t72735 = (struct structure_type24753 *)fp8506; fp8506 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t72735->s0.tag = FIXNUM_TYPE; t72735->s0.value.fixnum_type = t72733; t72735->s1 = t72736; t72732 = f27305(t72735); /* x270258 stalin.sc:4102:137859 */ if (t72732==0) goto l12716; return TRUE_TYPE; l12716: return FALSE_TYPE;} /* REENTRANT?[8543] */ unsigned f8543(struct w49 a22082) {struct w49 a22051; /* E */ struct w49 a36521; /* S */ struct w49 t72742; int t72743; int t72744; int t72745; struct structure_type24753 *t72746; struct w49 t72747; struct w49 t72748; struct w49 t72749; struct w49 t72750; struct w49 t72751; char *t72752; /* x73178 */ /* x73177 stalin.sc:4162:139652 */ /* x73170 stalin.sc:4162:139658 */ /* x73169 stalin.sc:4162:139662 */ /* x73168 stalin.sc:4162:139670 */ t72750 = a22082; /* x73167 stalin.sc:4162:139663 */ if (!(f8581(t72750)==FALSE_TYPE)) goto l12725; /* x73164 */ /* x73163 stalin.sc:4162:139678 */ /* x73162 stalin.sc:4162:139697 */ t72751 = a22082; /* x73161 stalin.sc:4162:139679 */ if (!(f8526(t72751)==FALSE_TYPE)) goto l12726; l12725: /* x73174 */ /* x73173 */ /* x73172 stalin.sc:4162:139702 */ /* x73171 stalin.sc:4162:139703 */ /* x297465 QobiScheme.sc:166:5314 */ /* x297464 QobiScheme.sc:166:5321 */ t72752 = "This shouldn\'t happen"; /* x297463 QobiScheme.sc:166:5315 */ stalin_panic(t72752); goto l12727; l12726: /* x73176 stalin.sc:4162:139652 */ /* x73175 stalin.sc:4162:139652 */ l12727: /* x73157 */ /* x73156 stalin.sc:4163:139714 */ /* x73155 stalin.sc:4163:139738 */ t72742 = a22082; /* x73154 stalin.sc:4163:139715 */ a22051 = t72742; while (region8501!=((struct region8501 *)(&initial_region8501))) {struct region8501 *region; region = region8501; region8501 = region8501->region; GC_free(region);} region_size8501 = REGION_SIZE8501; fp8501 = &((region8501->data)[0]); ALIGN(fp8501); /* x72840 stalin.sc:4091:137532 */ /* x72840 stalin.sc:4091:137532 */ /* x72839 stalin.sc:4091:137537 */ /* x72838 stalin.sc:4091:137544 */ /* x72837 stalin.sc:4091:137578 */ t72745 = 16; /* x72836 stalin.sc:4091:137553 */ /* x72835 stalin.sc:4091:137575 */ t72748 = a22051; /* x72834 stalin.sc:4091:137554 */ a36521 = t72748; /* x278753 */ /* x278752 */ t72749 = a36521; /* x278751 */ if (!((t72749.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31438]"); structure_ref_error();} t72744 = t72749.value.structure_type27694->s26; /* x72833 stalin.sc:4091:137545 */ if ((fp8501+sizeof(struct structure_type24753))>(&((region8501->data)[region_size8501]))) {struct region8501 *region; unsigned region_size = REGION_SIZE8501; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8501 *)GC_malloc_uncollectable(sizeof(struct region8501)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4091, 137544); out_of_memory_error();} region->region = region8501; region_size8501 = region_size; region8501 = region; fp8501 = &((region->data)[0]); ALIGN(fp8501);} t72747.tag = STRUCTURE_TYPE24753; t72747.value.structure_type24753 = (struct structure_type24753 *)fp8501; fp8501 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t72747.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72747.value.structure_type24753->s0.value.fixnum_type = t72745; t72747.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8501+sizeof(struct structure_type24753))>(&((region8501->data)[region_size8501]))) {struct region8501 *region; unsigned region_size = REGION_SIZE8501; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8501 *)GC_malloc_uncollectable(sizeof(struct region8501)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4091, 137544); out_of_memory_error();} region->region = region8501; region_size8501 = region_size; region8501 = region; fp8501 = &((region->data)[0]); ALIGN(fp8501);} t72746 = (struct structure_type24753 *)fp8501; fp8501 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t72746->s0.tag = FIXNUM_TYPE; t72746->s0.value.fixnum_type = t72744; t72746->s1 = t72747; t72743 = f27305(t72746); /* x270261 stalin.sc:4091:137538 */ if (t72743==0) goto l12723; return TRUE_TYPE; l12723: return FALSE_TYPE;} /* RECURSIVE?[8538] */ unsigned f8538(struct w49 a22079) {struct w49 a22047; /* E */ struct w49 a36517; /* S */ struct w49 t72753; int t72754; int t72755; int t72756; struct structure_type24753 *t72757; struct w49 t72758; struct w49 t72759; struct w49 t72760; struct w49 t72761; struct w49 t72762; char *t72763; /* x73151 */ /* x73150 stalin.sc:4158:139537 */ /* x73143 stalin.sc:4158:139543 */ /* x73142 stalin.sc:4158:139547 */ /* x73141 stalin.sc:4158:139555 */ t72761 = a22079; /* x73140 stalin.sc:4158:139548 */ if (!(f8581(t72761)==FALSE_TYPE)) goto l12732; /* x73137 */ /* x73136 stalin.sc:4158:139563 */ /* x73135 stalin.sc:4158:139582 */ t72762 = a22079; /* x73134 stalin.sc:4158:139564 */ if (!(f8526(t72762)==FALSE_TYPE)) goto l12733; l12732: /* x73147 */ /* x73146 */ /* x73145 stalin.sc:4158:139587 */ /* x73144 stalin.sc:4158:139588 */ /* x296661 QobiScheme.sc:166:5314 */ /* x296660 QobiScheme.sc:166:5321 */ t72763 = "This shouldn\'t happen"; /* x296659 QobiScheme.sc:166:5315 */ stalin_panic(t72763); goto l12734; l12733: /* x73149 stalin.sc:4158:139537 */ /* x73148 stalin.sc:4158:139537 */ l12734: /* x73130 */ /* x73129 stalin.sc:4159:139599 */ /* x73128 stalin.sc:4159:139623 */ t72753 = a22079; /* x73127 stalin.sc:4159:139600 */ a22047 = t72753; while (region8496!=((struct region8496 *)(&initial_region8496))) {struct region8496 *region; region = region8496; region8496 = region8496->region; GC_free(region);} region_size8496 = REGION_SIZE8496; fp8496 = &((region8496->data)[0]); ALIGN(fp8496); /* x72795 stalin.sc:4080:137223 */ /* x72795 stalin.sc:4080:137223 */ /* x72794 stalin.sc:4080:137228 */ /* x72793 stalin.sc:4080:137235 */ /* x72792 stalin.sc:4080:137269 */ t72756 = 32; /* x72791 stalin.sc:4080:137244 */ /* x72790 stalin.sc:4080:137266 */ t72759 = a22047; /* x72789 stalin.sc:4080:137245 */ a36517 = t72759; /* x278737 */ /* x278736 */ t72760 = a36517; /* x278735 */ if (!((t72760.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31434]"); structure_ref_error();} t72755 = t72760.value.structure_type27694->s26; /* x72788 stalin.sc:4080:137236 */ if ((fp8496+sizeof(struct structure_type24753))>(&((region8496->data)[region_size8496]))) {struct region8496 *region; unsigned region_size = REGION_SIZE8496; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8496 *)GC_malloc_uncollectable(sizeof(struct region8496)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4080, 137235); out_of_memory_error();} region->region = region8496; region_size8496 = region_size; region8496 = region; fp8496 = &((region->data)[0]); ALIGN(fp8496);} t72758.tag = STRUCTURE_TYPE24753; t72758.value.structure_type24753 = (struct structure_type24753 *)fp8496; fp8496 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t72758.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72758.value.structure_type24753->s0.value.fixnum_type = t72756; t72758.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8496+sizeof(struct structure_type24753))>(&((region8496->data)[region_size8496]))) {struct region8496 *region; unsigned region_size = REGION_SIZE8496; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8496 *)GC_malloc_uncollectable(sizeof(struct region8496)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4080, 137235); out_of_memory_error();} region->region = region8496; region_size8496 = region_size; region8496 = region; fp8496 = &((region->data)[0]); ALIGN(fp8496);} t72757 = (struct structure_type24753 *)fp8496; fp8496 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t72757->s0.tag = FIXNUM_TYPE; t72757->s0.value.fixnum_type = t72755; t72757->s1 = t72758; t72754 = f27305(t72757); /* x270264 stalin.sc:4080:137229 */ if (t72754==0) goto l12730; return TRUE_TYPE; l12730: return FALSE_TYPE;} /* HAS-NONATOMIC-REGION?[8533] */ unsigned f8533(struct w49 a22076) {struct w49 a22043; /* E */ struct w49 a36503; /* S */ struct w49 t72764; int t72765; int t72766; int t72767; struct structure_type24753 *t72768; struct w49 t72769; struct w49 t72770; struct w49 t72771; struct w49 t72772; struct w49 t72773; char *t72774; /* x73124 */ /* x73123 stalin.sc:4154:139411 */ /* x73116 stalin.sc:4154:139417 */ /* x73115 stalin.sc:4154:139421 */ /* x73114 stalin.sc:4154:139429 */ t72772 = a22076; /* x73113 stalin.sc:4154:139422 */ if (!(f8581(t72772)==FALSE_TYPE)) goto l12739; /* x73110 */ /* x73109 stalin.sc:4154:139437 */ /* x73108 stalin.sc:4154:139456 */ t72773 = a22076; /* x73107 stalin.sc:4154:139438 */ if (!(f8526(t72773)==FALSE_TYPE)) goto l12740; l12739: /* x73120 */ /* x73119 */ /* x73118 stalin.sc:4154:139461 */ /* x73117 stalin.sc:4154:139462 */ /* x296481 QobiScheme.sc:166:5314 */ /* x296480 QobiScheme.sc:166:5321 */ t72774 = "This shouldn\'t happen"; /* x296479 QobiScheme.sc:166:5315 */ stalin_panic(t72774); goto l12741; l12740: /* x73122 stalin.sc:4154:139411 */ /* x73121 stalin.sc:4154:139411 */ l12741: /* x73103 */ /* x73102 stalin.sc:4155:139473 */ /* x73101 stalin.sc:4155:139508 */ t72764 = a22076; /* x73100 stalin.sc:4155:139474 */ a22043 = t72764; while (region8491!=((struct region8491 *)(&initial_region8491))) {struct region8491 *region; region = region8491; region8491 = region8491->region; GC_free(region);} region_size8491 = REGION_SIZE8491; fp8491 = &((region8491->data)[0]); ALIGN(fp8491); /* x72750 stalin.sc:4069:136903 */ /* x72750 stalin.sc:4069:136903 */ /* x72749 stalin.sc:4069:136908 */ /* x72748 stalin.sc:4069:136915 */ /* x72747 stalin.sc:4069:136949 */ t72767 = 64; /* x72746 stalin.sc:4069:136924 */ /* x72745 stalin.sc:4069:136946 */ t72770 = a22043; /* x72744 stalin.sc:4069:136925 */ a36503 = t72770; /* x278681 */ /* x278680 */ t72771 = a36503; /* x278679 */ if (!((t72771.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31420]"); structure_ref_error();} t72766 = t72771.value.structure_type27694->s26; /* x72743 stalin.sc:4069:136916 */ if ((fp8491+sizeof(struct structure_type24753))>(&((region8491->data)[region_size8491]))) {struct region8491 *region; unsigned region_size = REGION_SIZE8491; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8491 *)GC_malloc_uncollectable(sizeof(struct region8491)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4069, 136915); out_of_memory_error();} region->region = region8491; region_size8491 = region_size; region8491 = region; fp8491 = &((region->data)[0]); ALIGN(fp8491);} t72769.tag = STRUCTURE_TYPE24753; t72769.value.structure_type24753 = (struct structure_type24753 *)fp8491; fp8491 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t72769.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72769.value.structure_type24753->s0.value.fixnum_type = t72767; t72769.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8491+sizeof(struct structure_type24753))>(&((region8491->data)[region_size8491]))) {struct region8491 *region; unsigned region_size = REGION_SIZE8491; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8491 *)GC_malloc_uncollectable(sizeof(struct region8491)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4069, 136915); out_of_memory_error();} region->region = region8491; region_size8491 = region_size; region8491 = region; fp8491 = &((region->data)[0]); ALIGN(fp8491);} t72768 = (struct structure_type24753 *)fp8491; fp8491 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t72768->s0.tag = FIXNUM_TYPE; t72768->s0.value.fixnum_type = t72766; t72768->s1 = t72769; t72765 = f27305(t72768); /* x270267 stalin.sc:4069:136909 */ if (t72765==0) goto l12737; return TRUE_TYPE; l12737: return FALSE_TYPE;} /* HAS-REGION?[8528] */ unsigned f8528(struct w49 a22073) {struct w49 a22039; /* E */ struct w49 a36520; /* S */ struct w49 t72775; int t72776; int t72777; int t72778; struct structure_type24753 *t72779; struct w49 t72780; struct w49 t72781; struct w49 t72782; struct w49 t72783; struct w49 t72784; char *t72785; /* x73097 */ /* x73096 stalin.sc:4150:139284 */ /* x73089 stalin.sc:4150:139290 */ /* x73088 stalin.sc:4150:139294 */ /* x73087 stalin.sc:4150:139302 */ t72783 = a22073; /* x73086 stalin.sc:4150:139295 */ if (!(f8581(t72783)==FALSE_TYPE)) goto l12746; /* x73083 */ /* x73082 stalin.sc:4150:139310 */ /* x73081 stalin.sc:4150:139329 */ t72784 = a22073; /* x73080 stalin.sc:4150:139311 */ if (!(f8526(t72784)==FALSE_TYPE)) goto l12747; l12746: /* x73093 */ /* x73092 */ /* x73091 stalin.sc:4150:139334 */ /* x73090 stalin.sc:4150:139335 */ /* x297453 QobiScheme.sc:166:5314 */ /* x297452 QobiScheme.sc:166:5321 */ t72785 = "This shouldn\'t happen"; /* x297451 QobiScheme.sc:166:5315 */ stalin_panic(t72785); goto l12748; l12747: /* x73095 stalin.sc:4150:139284 */ /* x73094 stalin.sc:4150:139284 */ l12748: /* x73076 */ /* x73075 stalin.sc:4151:139346 */ /* x73074 stalin.sc:4151:139371 */ t72775 = a22073; /* x73073 stalin.sc:4151:139347 */ a22039 = t72775; while (region8486!=((struct region8486 *)(&initial_region8486))) {struct region8486 *region; region = region8486; region8486 = region8486->region; GC_free(region);} region_size8486 = REGION_SIZE8486; fp8486 = &((region8486->data)[0]); ALIGN(fp8486); /* x72705 stalin.sc:4058:136579 */ /* x72705 stalin.sc:4058:136579 */ /* x72704 stalin.sc:4058:136584 */ /* x72703 stalin.sc:4058:136591 */ /* x72702 stalin.sc:4058:136625 */ t72778 = 128; /* x72701 stalin.sc:4058:136600 */ /* x72700 stalin.sc:4058:136622 */ t72781 = a22039; /* x72699 stalin.sc:4058:136601 */ a36520 = t72781; /* x278749 */ /* x278748 */ t72782 = a36520; /* x278747 */ if (!((t72782.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31437]"); structure_ref_error();} t72777 = t72782.value.structure_type27694->s26; /* x72698 stalin.sc:4058:136592 */ if ((fp8486+sizeof(struct structure_type24753))>(&((region8486->data)[region_size8486]))) {struct region8486 *region; unsigned region_size = REGION_SIZE8486; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8486 *)GC_malloc_uncollectable(sizeof(struct region8486)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4058, 136591); out_of_memory_error();} region->region = region8486; region_size8486 = region_size; region8486 = region; fp8486 = &((region->data)[0]); ALIGN(fp8486);} t72780.tag = STRUCTURE_TYPE24753; t72780.value.structure_type24753 = (struct structure_type24753 *)fp8486; fp8486 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t72780.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72780.value.structure_type24753->s0.value.fixnum_type = t72778; t72780.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8486+sizeof(struct structure_type24753))>(&((region8486->data)[region_size8486]))) {struct region8486 *region; unsigned region_size = REGION_SIZE8486; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8486 *)GC_malloc_uncollectable(sizeof(struct region8486)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 4058, 136591); out_of_memory_error();} region->region = region8486; region_size8486 = region_size; region8486 = region; fp8486 = &((region->data)[0]); ALIGN(fp8486);} t72779 = (struct structure_type24753 *)fp8486; fp8486 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t72779->s0.tag = FIXNUM_TYPE; t72779->s0.value.fixnum_type = t72777; t72779->s1 = t72780; t72776 = f27305(t72779); /* x270270 stalin.sc:4058:136585 */ if (t72776==0) goto l12744; return TRUE_TYPE; l12744: return FALSE_TYPE;} /* ENVIRONMENT-USED?[8526] */ unsigned f8526(struct w49 a22071) {struct w49 t72786; struct w49 t72787; /* x73065 stalin.sc:4145:139165 */ /* x73065 stalin.sc:4145:139165 */ /* x73058 stalin.sc:4145:139170 */ /* x73057 stalin.sc:4145:139179 */ t72786 = a22071; /* x73056 stalin.sc:4145:139171 */ if ((f8899(t72786).tag)==FALSE_TYPE) goto l12751; /* x73063 */ /* x73062 stalin.sc:4145:139187 */ /* x73061 stalin.sc:4145:139194 */ t72787 = a22071; /* x73060 stalin.sc:4145:139188 */ if (!(f8918(t72787)==FALSE_TYPE)) goto l12751; return TRUE_TYPE; l12751: return FALSE_TYPE;} /* SET-ENVIRONMENT-HAS-CLOSURE?![8522] */ void f8522(struct w49 a22068, unsigned a22069) {struct w49 a20788; /* S */ int a34812; /* N */ struct w49 a36515; /* S */ struct w49 t72788; int t72789; int t72790; int t72791; struct structure_type24753 *t72792; struct w49 t72793; struct w49 t72794; struct w49 t72795; int t72796; int t72797; int t72798; int t72799; struct structure_type24753 *t72800; struct w49 t72801; struct w49 t72802; struct w49 t72803; unsigned t72804; /* x73053 */ /* x73052 stalin.sc:4138:138962 */ /* x73045 stalin.sc:4138:138970 */ /* x73044 stalin.sc:4138:138980 */ t72804 = a22069; /* x270248 stalin.sc:4138:138971 */ /* x73047 */ /* x73046 */ /* x73042 */ /* x73041 stalin.sc:4139:138996 */ /* x73024 stalin.sc:4140:139025 */ t72788 = a22068; /* x73040 stalin.sc:4141:139029 */ /* x73025 stalin.sc:4141:139033 */ if (a22069==FALSE_TYPE) goto l12755; /* x73031 stalin.sc:4142:139042 */ /* x73030 stalin.sc:4142:139075 */ t72799 = 1; /* x73029 stalin.sc:4142:139050 */ /* x73028 stalin.sc:4142:139072 */ t72802 = a22068; /* x73027 stalin.sc:4142:139051 */ a36515 = t72802; /* x278729 */ /* x278728 */ t72803 = a36515; /* x278727 */ if (!((t72803.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31432]"); structure_ref_error();} t72798 = t72803.value.structure_type27694->s26; /* x73026 stalin.sc:4142:139043 */ t72801.tag = STRUCTURE_TYPE24753; t72801.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t72801.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4142, 139042); out_of_memory_error();} t72801.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72801.value.structure_type24753->s0.value.fixnum_type = t72799; t72801.value.structure_type24753->s1.tag = NULL_TYPE; t72800 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t72800==NULL) {backtrace("stalin.sc", 4142, 139042); out_of_memory_error();} t72800->s0.tag = FIXNUM_TYPE; t72800->s0.value.fixnum_type = t72798; t72800->s1 = t72801; t72789 = f27310(t72800); goto l12756; l12755: /* x73039 stalin.sc:4143:139084 */ /* x73038 stalin.sc:4143:139118 */ /* x73037 stalin.sc:4143:139127 */ t72796 = 1; /* x73036 stalin.sc:4143:139119 */ a34812 = t72796; /* x271533 */ /* x271532 */ t72797 = a34812; /* x271531 */ t72791 = ~t72797; /* x73035 stalin.sc:4143:139093 */ /* x73034 stalin.sc:4143:139115 */ t72794 = a22068; /* x73033 stalin.sc:4143:139094 */ a20788 = t72794; /* x56354 */ /* x56353 */ t72795 = a20788; /* x56352 */ if (!((t72795.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("ENVIRONMENT-BOOLEANS[6839]"); structure_ref_error();} t72790 = t72795.value.structure_type27694->s26; /* x73032 stalin.sc:4143:139085 */ t72793.tag = STRUCTURE_TYPE24753; t72793.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t72793.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4143, 139084); out_of_memory_error();} t72793.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72793.value.structure_type24753->s0.value.fixnum_type = t72791; t72793.value.structure_type24753->s1.tag = NULL_TYPE; t72792 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t72792==NULL) {backtrace("stalin.sc", 4143, 139084); out_of_memory_error();} t72792->s0.tag = FIXNUM_TYPE; t72792->s0.value.fixnum_type = t72790; t72792->s1 = t72793; t72789 = f27305(t72792); l12756: /* x73023 stalin.sc:4139:138997 */ f6840(t72788, t72789); return;} /* SET-ENVIRONMENT-HAS-NONATOMIC-REGION?![8492] */ void f8492(struct w49 a22044, unsigned a22045) {int a34825; /* N */ struct w49 a36499; /* S */ struct w49 a36513; /* S */ struct w49 t72805; int t72806; int t72807; int t72808; struct structure_type24753 *t72809; struct w49 t72810; struct w49 t72811; struct w49 t72812; int t72813; int t72814; int t72815; int t72816; struct structure_type24753 *t72817; struct w49 t72818; struct w49 t72819; struct w49 t72820; unsigned t72821; /* x72783 */ /* x72782 stalin.sc:4072:137012 */ /* x72775 stalin.sc:4072:137020 */ /* x72774 stalin.sc:4072:137030 */ t72821 = a22045; /* x270266 stalin.sc:4072:137021 */ /* x72777 */ /* x72776 */ /* x72772 */ /* x72771 stalin.sc:4073:137046 */ /* x72754 stalin.sc:4074:137075 */ t72805 = a22044; /* x72770 stalin.sc:4075:137079 */ /* x72755 stalin.sc:4075:137083 */ if (a22045==FALSE_TYPE) goto l12759; /* x72761 stalin.sc:4076:137092 */ /* x72760 stalin.sc:4076:137125 */ t72816 = 64; /* x72759 stalin.sc:4076:137100 */ /* x72758 stalin.sc:4076:137122 */ t72819 = a22044; /* x72757 stalin.sc:4076:137101 */ a36499 = t72819; /* x278665 */ /* x278664 */ t72820 = a36499; /* x278663 */ if (!((t72820.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31416]"); structure_ref_error();} t72815 = t72820.value.structure_type27694->s26; /* x72756 stalin.sc:4076:137093 */ t72818.tag = STRUCTURE_TYPE24753; t72818.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t72818.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4076, 137092); out_of_memory_error();} t72818.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72818.value.structure_type24753->s0.value.fixnum_type = t72816; t72818.value.structure_type24753->s1.tag = NULL_TYPE; t72817 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t72817==NULL) {backtrace("stalin.sc", 4076, 137092); out_of_memory_error();} t72817->s0.tag = FIXNUM_TYPE; t72817->s0.value.fixnum_type = t72815; t72817->s1 = t72818; t72806 = f27310(t72817); goto l12760; l12759: /* x72769 stalin.sc:4077:137135 */ /* x72768 stalin.sc:4077:137169 */ /* x72767 stalin.sc:4077:137178 */ t72813 = 64; /* x72766 stalin.sc:4077:137170 */ a34825 = t72813; /* x271585 */ /* x271584 */ t72814 = a34825; /* x271583 */ t72808 = ~t72814; /* x72765 stalin.sc:4077:137144 */ /* x72764 stalin.sc:4077:137166 */ t72811 = a22044; /* x72763 stalin.sc:4077:137145 */ a36513 = t72811; /* x278721 */ /* x278720 */ t72812 = a36513; /* x278719 */ if (!((t72812.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31430]"); structure_ref_error();} t72807 = t72812.value.structure_type27694->s26; /* x72762 stalin.sc:4077:137136 */ t72810.tag = STRUCTURE_TYPE24753; t72810.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t72810.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4077, 137135); out_of_memory_error();} t72810.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72810.value.structure_type24753->s0.value.fixnum_type = t72808; t72810.value.structure_type24753->s1.tag = NULL_TYPE; t72809 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t72809==NULL) {backtrace("stalin.sc", 4077, 137135); out_of_memory_error();} t72809->s0.tag = FIXNUM_TYPE; t72809->s0.value.fixnum_type = t72807; t72809->s1 = t72810; t72806 = f27305(t72809); l12760: /* x72753 stalin.sc:4073:137047 */ f6840(t72805, t72806); return;} /* SET-ENVIRONMENT-HAS-REGION?![8487] */ void f8487(struct w49 a22040, unsigned a22041) {int a34861; /* N */ struct w49 a36500; /* S */ struct w49 a36528; /* S */ struct w49 t72822; int t72823; int t72824; int t72825; struct structure_type24753 *t72826; struct w49 t72827; struct w49 t72828; struct w49 t72829; int t72830; int t72831; int t72832; int t72833; struct structure_type24753 *t72834; struct w49 t72835; struct w49 t72836; struct w49 t72837; unsigned t72838; /* x72738 */ /* x72737 stalin.sc:4061:136679 */ /* x72730 stalin.sc:4061:136687 */ /* x72729 stalin.sc:4061:136697 */ t72838 = a22041; /* x270269 stalin.sc:4061:136688 */ /* x72732 */ /* x72731 */ /* x72727 */ /* x72726 stalin.sc:4062:136713 */ /* x72709 stalin.sc:4063:136742 */ t72822 = a22040; /* x72725 stalin.sc:4064:136746 */ /* x72710 stalin.sc:4064:136750 */ if (a22041==FALSE_TYPE) goto l12763; /* x72716 stalin.sc:4065:136759 */ /* x72715 stalin.sc:4065:136792 */ t72833 = 128; /* x72714 stalin.sc:4065:136767 */ /* x72713 stalin.sc:4065:136789 */ t72836 = a22040; /* x72712 stalin.sc:4065:136768 */ a36500 = t72836; /* x278669 */ /* x278668 */ t72837 = a36500; /* x278667 */ if (!((t72837.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31417]"); structure_ref_error();} t72832 = t72837.value.structure_type27694->s26; /* x72711 stalin.sc:4065:136760 */ t72835.tag = STRUCTURE_TYPE24753; t72835.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t72835.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4065, 136759); out_of_memory_error();} t72835.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72835.value.structure_type24753->s0.value.fixnum_type = t72833; t72835.value.structure_type24753->s1.tag = NULL_TYPE; t72834 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t72834==NULL) {backtrace("stalin.sc", 4065, 136759); out_of_memory_error();} t72834->s0.tag = FIXNUM_TYPE; t72834->s0.value.fixnum_type = t72832; t72834->s1 = t72835; t72823 = f27310(t72834); goto l12764; l12763: /* x72724 stalin.sc:4066:136803 */ /* x72723 stalin.sc:4066:136837 */ /* x72722 stalin.sc:4066:136846 */ t72830 = 128; /* x72721 stalin.sc:4066:136838 */ a34861 = t72830; /* x271729 */ /* x271728 */ t72831 = a34861; /* x271727 */ t72825 = ~t72831; /* x72720 stalin.sc:4066:136812 */ /* x72719 stalin.sc:4066:136834 */ t72828 = a22040; /* x72718 stalin.sc:4066:136813 */ a36528 = t72828; /* x278781 */ /* x278780 */ t72829 = a36528; /* x278779 */ if (!((t72829.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31445]"); structure_ref_error();} t72824 = t72829.value.structure_type27694->s26; /* x72717 stalin.sc:4066:136804 */ t72827.tag = STRUCTURE_TYPE24753; t72827.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t72827.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4066, 136803); out_of_memory_error();} t72827.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72827.value.structure_type24753->s0.value.fixnum_type = t72825; t72827.value.structure_type24753->s1.tag = NULL_TYPE; t72826 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t72826==NULL) {backtrace("stalin.sc", 4066, 136803); out_of_memory_error();} t72826->s0.tag = FIXNUM_TYPE; t72826->s0.value.fixnum_type = t72824; t72826->s1 = t72827; t72823 = f27305(t72826); l12764: /* x72708 stalin.sc:4062:136714 */ f6840(t72822, t72823); return;} /* SET-ENVIRONMENT-PASSES-PARAMETERS-GLOBALLY?![8482] */ void f8482(struct w49 a22036, unsigned a22037) {int a34856; /* N */ struct w49 a36505; /* S */ struct w49 a36527; /* S */ struct w49 t72839; int t72840; int t72841; int t72842; struct structure_type24753 *t72843; struct w49 t72844; struct w49 t72845; struct w49 t72846; int t72847; int t72848; int t72849; int t72850; struct structure_type24753 *t72851; struct w49 t72852; struct w49 t72853; struct w49 t72854; unsigned t72855; /* x72693 */ /* x72692 stalin.sc:4050:136365 */ /* x72685 stalin.sc:4050:136373 */ /* x72684 stalin.sc:4050:136383 */ t72855 = a22037; /* x270272 stalin.sc:4050:136374 */ /* x72687 */ /* x72686 */ /* x72682 */ /* x72681 stalin.sc:4051:136399 */ /* x72664 stalin.sc:4052:136428 */ t72839 = a22036; /* x72680 stalin.sc:4053:136432 */ /* x72665 stalin.sc:4053:136436 */ if (a22037==FALSE_TYPE) goto l12767; /* x72671 stalin.sc:4054:136445 */ /* x72670 stalin.sc:4054:136478 */ t72850 = 256; /* x72669 stalin.sc:4054:136453 */ /* x72668 stalin.sc:4054:136475 */ t72853 = a22036; /* x72667 stalin.sc:4054:136454 */ a36505 = t72853; /* x278689 */ /* x278688 */ t72854 = a36505; /* x278687 */ if (!((t72854.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31422]"); structure_ref_error();} t72849 = t72854.value.structure_type27694->s26; /* x72666 stalin.sc:4054:136446 */ t72852.tag = STRUCTURE_TYPE24753; t72852.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t72852.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4054, 136445); out_of_memory_error();} t72852.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72852.value.structure_type24753->s0.value.fixnum_type = t72850; t72852.value.structure_type24753->s1.tag = NULL_TYPE; t72851 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t72851==NULL) {backtrace("stalin.sc", 4054, 136445); out_of_memory_error();} t72851->s0.tag = FIXNUM_TYPE; t72851->s0.value.fixnum_type = t72849; t72851->s1 = t72852; t72840 = f27310(t72851); goto l12768; l12767: /* x72679 stalin.sc:4055:136489 */ /* x72678 stalin.sc:4055:136523 */ /* x72677 stalin.sc:4055:136532 */ t72847 = 256; /* x72676 stalin.sc:4055:136524 */ a34856 = t72847; /* x271709 */ /* x271708 */ t72848 = a34856; /* x271707 */ t72842 = ~t72848; /* x72675 stalin.sc:4055:136498 */ /* x72674 stalin.sc:4055:136520 */ t72845 = a22036; /* x72673 stalin.sc:4055:136499 */ a36527 = t72845; /* x278777 */ /* x278776 */ t72846 = a36527; /* x278775 */ if (!((t72846.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31444]"); structure_ref_error();} t72841 = t72846.value.structure_type27694->s26; /* x72672 stalin.sc:4055:136490 */ t72844.tag = STRUCTURE_TYPE24753; t72844.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t72844.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4055, 136489); out_of_memory_error();} t72844.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72844.value.structure_type24753->s0.value.fixnum_type = t72842; t72844.value.structure_type24753->s1.tag = NULL_TYPE; t72843 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t72843==NULL) {backtrace("stalin.sc", 4055, 136489); out_of_memory_error();} t72843->s0.tag = FIXNUM_TYPE; t72843->s0.value.fixnum_type = t72841; t72843->s1 = t72844; t72840 = f27305(t72843); l12768: /* x72663 stalin.sc:4051:136400 */ f6840(t72839, t72840); return;} /* ENVIRONMENT-PASSES-PARAMETERS-GLOBALLY?[8481] */ unsigned f8481(struct w49 a22035) {struct w49 a36529; /* S */ int t72856; int t72857; int t72858; struct structure_type24753 *t72859; struct w49 t72860; struct w49 t72861; struct w49 t72862; /* x72660 stalin.sc:4047:136249 */ /* x72660 stalin.sc:4047:136249 */ /* x72659 stalin.sc:4047:136254 */ /* x72658 stalin.sc:4047:136261 */ /* x72657 stalin.sc:4047:136295 */ t72858 = 256; /* x72656 stalin.sc:4047:136270 */ /* x72655 stalin.sc:4047:136292 */ t72861 = a22035; /* x72654 stalin.sc:4047:136271 */ a36529 = t72861; /* x278785 */ /* x278784 */ t72862 = a36529; /* x278783 */ if (!((t72862.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31446]"); structure_ref_error();} t72857 = t72862.value.structure_type27694->s26; /* x72653 stalin.sc:4047:136262 */ t72860.tag = STRUCTURE_TYPE24753; t72860.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t72860.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4047, 136261); out_of_memory_error();} t72860.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72860.value.structure_type24753->s0.value.fixnum_type = t72858; t72860.value.structure_type24753->s1.tag = NULL_TYPE; t72859 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t72859==NULL) {backtrace("stalin.sc", 4047, 136261); out_of_memory_error();} t72859->s0.tag = FIXNUM_TYPE; t72859->s0.value.fixnum_type = t72857; t72859->s1 = t72860; t72856 = f27305(t72859); /* x270273 stalin.sc:4047:136255 */ if (t72856==0) goto l12771; return TRUE_TYPE; l12771: return FALSE_TYPE;} /* SET-ENVIRONMENT-MARKED2?![8477] */ void f8477(struct w49 a22032, unsigned a22033) {int a34855; /* N */ struct w49 a36514; /* S */ struct w49 a36526; /* S */ struct w49 t72863; int t72864; int t72865; int t72866; struct structure_type24753 *t72867; struct w49 t72868; struct w49 t72869; struct w49 t72870; int t72871; int t72872; int t72873; int t72874; struct structure_type24753 *t72875; struct w49 t72876; struct w49 t72877; struct w49 t72878; unsigned t72879; /* x72648 */ /* x72647 stalin.sc:4039:136019 */ /* x72640 stalin.sc:4039:136027 */ /* x72639 stalin.sc:4039:136037 */ t72879 = a22033; /* x270275 stalin.sc:4039:136028 */ /* x72642 */ /* x72641 */ /* x72637 */ /* x72636 stalin.sc:4040:136053 */ /* x72619 stalin.sc:4041:136082 */ t72863 = a22032; /* x72635 stalin.sc:4042:136086 */ /* x72620 stalin.sc:4042:136090 */ if (a22033==FALSE_TYPE) goto l12774; /* x72626 stalin.sc:4043:136099 */ /* x72625 stalin.sc:4043:136132 */ t72874 = 512; /* x72624 stalin.sc:4043:136107 */ /* x72623 stalin.sc:4043:136129 */ t72877 = a22032; /* x72622 stalin.sc:4043:136108 */ a36514 = t72877; /* x278725 */ /* x278724 */ t72878 = a36514; /* x278723 */ if (!((t72878.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31431]"); structure_ref_error();} t72873 = t72878.value.structure_type27694->s26; /* x72621 stalin.sc:4043:136100 */ t72876.tag = STRUCTURE_TYPE24753; t72876.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t72876.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4043, 136099); out_of_memory_error();} t72876.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72876.value.structure_type24753->s0.value.fixnum_type = t72874; t72876.value.structure_type24753->s1.tag = NULL_TYPE; t72875 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t72875==NULL) {backtrace("stalin.sc", 4043, 136099); out_of_memory_error();} t72875->s0.tag = FIXNUM_TYPE; t72875->s0.value.fixnum_type = t72873; t72875->s1 = t72876; t72864 = f27310(t72875); goto l12775; l12774: /* x72634 stalin.sc:4044:136143 */ /* x72633 stalin.sc:4044:136177 */ /* x72632 stalin.sc:4044:136186 */ t72871 = 512; /* x72631 stalin.sc:4044:136178 */ a34855 = t72871; /* x271705 */ /* x271704 */ t72872 = a34855; /* x271703 */ t72866 = ~t72872; /* x72630 stalin.sc:4044:136152 */ /* x72629 stalin.sc:4044:136174 */ t72869 = a22032; /* x72628 stalin.sc:4044:136153 */ a36526 = t72869; /* x278773 */ /* x278772 */ t72870 = a36526; /* x278771 */ if (!((t72870.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31443]"); structure_ref_error();} t72865 = t72870.value.structure_type27694->s26; /* x72627 stalin.sc:4044:136144 */ t72868.tag = STRUCTURE_TYPE24753; t72868.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t72868.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4044, 136143); out_of_memory_error();} t72868.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72868.value.structure_type24753->s0.value.fixnum_type = t72866; t72868.value.structure_type24753->s1.tag = NULL_TYPE; t72867 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t72867==NULL) {backtrace("stalin.sc", 4044, 136143); out_of_memory_error();} t72867->s0.tag = FIXNUM_TYPE; t72867->s0.value.fixnum_type = t72865; t72867->s1 = t72868; t72864 = f27305(t72867); l12775: /* x72618 stalin.sc:4040:136054 */ f6840(t72863, t72864); return;} /* ENVIRONMENT-MARKED2?[8476] */ unsigned f8476(struct w49 a22031) {struct w49 a36523; /* S */ int t72880; int t72881; int t72882; struct structure_type24753 *t72883; struct w49 t72884; struct w49 t72885; struct w49 t72886; /* x72615 stalin.sc:4036:135922 */ /* x72615 stalin.sc:4036:135922 */ /* x72614 stalin.sc:4036:135927 */ /* x72613 stalin.sc:4036:135934 */ /* x72612 stalin.sc:4036:135968 */ t72882 = 512; /* x72611 stalin.sc:4036:135943 */ /* x72610 stalin.sc:4036:135965 */ t72885 = a22031; /* x72609 stalin.sc:4036:135944 */ a36523 = t72885; /* x278761 */ /* x278760 */ t72886 = a36523; /* x278759 */ if (!((t72886.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31440]"); structure_ref_error();} t72881 = t72886.value.structure_type27694->s26; /* x72608 stalin.sc:4036:135935 */ t72884.tag = STRUCTURE_TYPE24753; t72884.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t72884.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4036, 135934); out_of_memory_error();} t72884.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72884.value.structure_type24753->s0.value.fixnum_type = t72882; t72884.value.structure_type24753->s1.tag = NULL_TYPE; t72883 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t72883==NULL) {backtrace("stalin.sc", 4036, 135934); out_of_memory_error();} t72883->s0.tag = FIXNUM_TYPE; t72883->s0.value.fixnum_type = t72881; t72883->s1 = t72884; t72880 = f27305(t72883); /* x270276 stalin.sc:4036:135928 */ if (t72880==0) goto l12778; return TRUE_TYPE; l12778: return FALSE_TYPE;} /* SET-ENVIRONMENT-MARKED1?![8472] */ void f8472(struct w49 a22028, struct w16638 a22029) {int a34836; /* N */ struct w49 a36524; /* S */ struct w49 a36525; /* S */ struct w49 t72887; int t72888; int t72889; int t72890; struct structure_type24753 *t72891; struct w49 t72892; struct w49 t72893; struct w49 t72894; int t72895; int t72896; int t72897; int t72898; struct structure_type24753 *t72899; struct w49 t72900; struct w49 t72901; struct w49 t72902; struct w16638 t72903; char *t72904; /* x72603 */ /* x72602 stalin.sc:4028:135709 */ /* x72595 stalin.sc:4028:135717 */ /* x72594 stalin.sc:4028:135727 */ t72903 = a22029; /* x270278 stalin.sc:4028:135718 */ switch (t72903.tag) {case TRUE_TYPE: case FALSE_TYPE: break; default: goto l12784;} /* x72597 */ /* x72596 */ goto l12785; l12784: /* x72601 */ /* x72600 */ /* x72599 stalin.sc:4028:135731 */ /* x72598 stalin.sc:4028:135732 */ /* x296933 QobiScheme.sc:166:5314 */ /* x296932 QobiScheme.sc:166:5321 */ t72904 = "This shouldn\'t happen"; /* x296931 QobiScheme.sc:166:5315 */ stalin_panic(t72904); l12785: /* x72592 */ /* x72591 stalin.sc:4029:135743 */ /* x72574 stalin.sc:4030:135772 */ t72887 = a22028; /* x72590 stalin.sc:4031:135776 */ /* x72575 stalin.sc:4031:135780 */ if ((a22029.tag)==FALSE_TYPE) goto l12781; /* x72581 stalin.sc:4032:135789 */ /* x72580 stalin.sc:4032:135822 */ t72898 = 1024; /* x72579 stalin.sc:4032:135797 */ /* x72578 stalin.sc:4032:135819 */ t72901 = a22028; /* x72577 stalin.sc:4032:135798 */ a36524 = t72901; /* x278765 */ /* x278764 */ t72902 = a36524; /* x278763 */ if (!((t72902.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31441]"); structure_ref_error();} t72897 = t72902.value.structure_type27694->s26; /* x72576 stalin.sc:4032:135790 */ t72900.tag = STRUCTURE_TYPE24753; t72900.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t72900.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4032, 135789); out_of_memory_error();} t72900.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72900.value.structure_type24753->s0.value.fixnum_type = t72898; t72900.value.structure_type24753->s1.tag = NULL_TYPE; t72899 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t72899==NULL) {backtrace("stalin.sc", 4032, 135789); out_of_memory_error();} t72899->s0.tag = FIXNUM_TYPE; t72899->s0.value.fixnum_type = t72897; t72899->s1 = t72900; t72888 = f27310(t72899); goto l12782; l12781: /* x72589 stalin.sc:4033:135834 */ /* x72588 stalin.sc:4033:135868 */ /* x72587 stalin.sc:4033:135877 */ t72895 = 1024; /* x72586 stalin.sc:4033:135869 */ a34836 = t72895; /* x271629 */ /* x271628 */ t72896 = a34836; /* x271627 */ t72890 = ~t72896; /* x72585 stalin.sc:4033:135843 */ /* x72584 stalin.sc:4033:135865 */ t72893 = a22028; /* x72583 stalin.sc:4033:135844 */ a36525 = t72893; /* x278769 */ /* x278768 */ t72894 = a36525; /* x278767 */ if (!((t72894.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31442]"); structure_ref_error();} t72889 = t72894.value.structure_type27694->s26; /* x72582 stalin.sc:4033:135835 */ t72892.tag = STRUCTURE_TYPE24753; t72892.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t72892.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4033, 135834); out_of_memory_error();} t72892.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72892.value.structure_type24753->s0.value.fixnum_type = t72890; t72892.value.structure_type24753->s1.tag = NULL_TYPE; t72891 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t72891==NULL) {backtrace("stalin.sc", 4033, 135834); out_of_memory_error();} t72891->s0.tag = FIXNUM_TYPE; t72891->s0.value.fixnum_type = t72889; t72891->s1 = t72892; t72888 = f27305(t72891); l12782: /* x72573 stalin.sc:4029:135744 */ f6840(t72887, t72888); return;} /* ENVIRONMENT-MARKED1?[8471] */ unsigned f8471(struct w49 a22027) {struct w49 a36516; /* S */ int t72905; int t72906; int t72907; struct structure_type24753 *t72908; struct w49 t72909; struct w49 t72910; struct w49 t72911; /* x72570 stalin.sc:4025:135611 */ /* x72570 stalin.sc:4025:135611 */ /* x72569 stalin.sc:4025:135616 */ /* x72568 stalin.sc:4025:135623 */ /* x72567 stalin.sc:4025:135657 */ t72907 = 1024; /* x72566 stalin.sc:4025:135632 */ /* x72565 stalin.sc:4025:135654 */ t72910 = a22027; /* x72564 stalin.sc:4025:135633 */ a36516 = t72910; /* x278733 */ /* x278732 */ t72911 = a36516; /* x278731 */ if (!((t72911.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-BOOLEANS[6839] 31433]"); structure_ref_error();} t72906 = t72911.value.structure_type27694->s26; /* x72563 stalin.sc:4025:135624 */ t72909.tag = STRUCTURE_TYPE24753; t72909.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t72909.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4025, 135623); out_of_memory_error();} t72909.value.structure_type24753->s0.tag = FIXNUM_TYPE; t72909.value.structure_type24753->s0.value.fixnum_type = t72907; t72909.value.structure_type24753->s1.tag = NULL_TYPE; t72908 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t72908==NULL) {backtrace("stalin.sc", 4025, 135623); out_of_memory_error();} t72908->s0.tag = FIXNUM_TYPE; t72908->s0.value.fixnum_type = t72906; t72908->s1 = t72909; t72905 = f27305(t72908); /* x270279 stalin.sc:4025:135617 */ if (t72905==0) goto l12787; return TRUE_TYPE; l12787: return FALSE_TYPE;} /* CREATE-ENVIRONMENT[8468] */ struct structure_type27694 *f8468(struct w49 a22019, char *a22020) {unsigned a20500; /* INDEX */ char *a20501; /* EXPRESSION */ char *a20502; /* NAME */ char *a20505; /* ALLOCATION */ char *a20506; /* DISTANCE-FROM-ROOT */ char *a20507; /* FREE-VARIABLES */ char *a20508; /* QUICK-PARENT */ char *a20509; /* PARENT-PARAMETER */ char *a20510; /* PARENT-SLOT */ char *a20511; /* ANCESTORS */ char *a20512; /* DESCENDENTS */ char *a20513; /* PROPERLY-IN-LINED-ENVIRONMENTS */ char *a20514; /* NARROW-PROTOTYPE */ char *a20515; /* NARROW-CLONES */ char *a20516; /* WIDE-PROTOTYPE */ char *a20517; /* DIRECT-TAIL-CALLERS */ char *a20518; /* DIRECT-NON-TAIL-CALLERS */ char *a20519; /* DIRECT-TAIL-CALLEES */ char *a20520; /* DIRECT-NON-TAIL-CALLEES */ char *a20521; /* BLOCKED-ENVIRONMENTS */ char *a20522; /* EXPRESSIONS */ char *a20523; /* CONTINUATION-CALLS */ char *a20524; /* ESCAPING-TYPES */ char *a20525; /* NON-SELF-TAIL-CALL-SITES */ int a20526; /* BOOLEANS */ struct structure_type27694 *a22021; /* E */ struct structure_type24753 *a35204; /* OBJS */ struct structure_type27694 *t72912; unsigned t72913; int t72914; struct structure_type27694 *t72915; struct w21193 t72916; struct structure_type27694 *t72917; struct structure_type27694 *t72918; struct w49 t72919; struct w49 t72920; struct structure_type27694 *t72921; struct structure_type24753 *t72922; struct w49 t72923; struct w12224 t72924; struct structure_type27694 *t72925; struct structure_type27694 *t72926; struct structure_type27694 *t72927; struct w49 t72928; struct w49 t72929; unsigned t72930; char *t72931; char *t72932; char *t72933; char *t72934; char *t72935; char *t72936; char *t72937; char *t72938; char *t72939; char *t72940; char *t72941; char *t72942; char *t72943; char *t72944; char *t72945; char *t72946; char *t72947; char *t72948; char *t72949; char *t72950; char *t72951; char *t72952; char *t72953; int t72954; unsigned t72955; char *t72956; char *t72957; char *t72958; char *t72959; char *t72960; char *t72961; char *t72962; char *t72963; char *t72964; char *t72965; char *t72966; char *t72967; char *t72968; char *t72969; char *t72970; char *t72971; char *t72972; char *t72973; char *t72974; char *t72975; char *t72976; char *t72977; char *t72978; int t72979; char *t72980; char *t72981; char *t72982; char *t72983; char *t72984; struct structure_type24753 *t72985; struct w49 t72986; struct w49 t72987; struct w49 t72988; struct w49 t72989; unsigned t72990; struct w49 t72991; struct w3467 t72992; char *t72993; struct w208531 t72994; char *t72995; char *t72996; char *t72997; struct structure_type24753 *t72998; struct w49 t72999; struct w49 t73000; struct w49 t73001; struct w49 t73002; unsigned t73003; struct w49 t73004; char *t73005; char *t73006; char *t73007; char *t73008; struct structure_type24753 *t73009; struct w49 t73010; struct w49 t73011; struct w49 t73012; char *t73013; unsigned t73014; struct w49 t73015; /* x72558 stalin.sc:4001:134739 */ /* x72557 stalin.sc:4001:134748 */ /* x72475 stalin.sc:4002:134770 */ t72930 = a1595; /* x72477 stalin.sc:4002:134775 */ /* x72476 stalin.sc:4002:134776 */ /* x277441 stalin.sc:323:8604 */ t72931 = q35; /* x72511 stalin.sc:4003:134793 */ /* x72478 stalin.sc:4003:134797 */ if ((a22019.tag)==FALSE_TYPE) goto l12790; /* x72501 stalin.sc:4004:134807 */ /* x72481 stalin.sc:4004:134811 */ /* x72480 stalin.sc:4004:134820 */ t72992 = *((struct w3467 *)(&a22019)); /* x270282 stalin.sc:4004:134812 */ if (!((t72992.tag)==EXTERNAL_SYMBOL_TYPE)) goto l12793; /* x72491 stalin.sc:4005:134828 */ /* x72490 stalin.sc:4006:134894 */ t73008 = "]"; /* x72489 stalin.sc:4006:134872 */ /* x72488 stalin.sc:4006:134888 */ t73014 = a1595; /* x72487 stalin.sc:4006:134873 */ /* MOVE: dispatching squished to general */ if (t73014==FALSE_TYPE) t73015.tag = (unsigned)t73014; else {t73015.tag = FIXNUM_TYPE; t73015.value.fixnum_type = (int)(((int)t73014)>>1);} t73007 = f28396(t73015); /* x72486 stalin.sc:4006:134868 */ t73006 = "["; /* x72485 stalin.sc:4006:134849 */ /* x72484 stalin.sc:4006:134865 */ t73013 = a22019.value.external_symbol_type; /* x270281 stalin.sc:4006:134850 */ t73005 = t73013; /* x72482 stalin.sc:4005:134829 */ t73012.tag = STRUCTURE_TYPE24753; t73012.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t73012.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4005, 134828); out_of_memory_error();} t73012.value.structure_type24753->s0.tag = STRING_TYPE; t73012.value.structure_type24753->s0.value.string_type = t73008; t73012.value.structure_type24753->s1.tag = NULL_TYPE; t73011.tag = STRUCTURE_TYPE24753; t73011.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t73011.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4005, 134828); out_of_memory_error();} t73011.value.structure_type24753->s0.tag = STRING_TYPE; t73011.value.structure_type24753->s0.value.string_type = t73007; t73011.value.structure_type24753->s1 = t73012; t73010.tag = STRUCTURE_TYPE24753; t73010.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t73010.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4005, 134828); out_of_memory_error();} t73010.value.structure_type24753->s0.tag = STRING_TYPE; t73010.value.structure_type24753->s0.value.string_type = t73006; t73010.value.structure_type24753->s1 = t73011; t73009 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t73009==NULL) {backtrace("stalin.sc", 4005, 134828); out_of_memory_error();} t73009->s0.tag = STRING_TYPE; t73009->s0.value.string_type = t73005; t73009->s1 = t73010; t72932 = f27556(t73009); goto l12794; l12793: /* x72500 stalin.sc:4007:134904 */ /* x72499 stalin.sc:4007:134957 */ t72997 = "]"; /* x72498 stalin.sc:4007:134935 */ /* x72497 stalin.sc:4007:134951 */ t73003 = a1595; /* x72496 stalin.sc:4007:134936 */ /* MOVE: dispatching squished to general */ if (t73003==FALSE_TYPE) t73004.tag = (unsigned)t73003; else {t73004.tag = FIXNUM_TYPE; t73004.value.fixnum_type = (int)(((int)t73003)>>1);} t72996 = f28396(t73004); /* x72495 stalin.sc:4007:134931 */ t72995 = " "; /* x72494 stalin.sc:4007:134929 */ t72994 = *((struct w208531 *)(&a22019)); /* x72493 stalin.sc:4007:134919 */ t72993 = "[clone "; /* x72492 stalin.sc:4007:134905 */ t73002.tag = STRUCTURE_TYPE24753; t73002.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t73002.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4007, 134904); out_of_memory_error();} t73002.value.structure_type24753->s0.tag = STRING_TYPE; t73002.value.structure_type24753->s0.value.string_type = t72997; t73002.value.structure_type24753->s1.tag = NULL_TYPE; t73001.tag = STRUCTURE_TYPE24753; t73001.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t73001.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4007, 134904); out_of_memory_error();} t73001.value.structure_type24753->s0.tag = STRING_TYPE; t73001.value.structure_type24753->s0.value.string_type = t72996; t73001.value.structure_type24753->s1 = t73002; t73000.tag = STRUCTURE_TYPE24753; t73000.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t73000.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4007, 134904); out_of_memory_error();} t73000.value.structure_type24753->s0.tag = STRING_TYPE; t73000.value.structure_type24753->s0.value.string_type = t72995; t73000.value.structure_type24753->s1 = t73001; t72999.tag = STRUCTURE_TYPE24753; t72999.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t72999.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4007, 134904); out_of_memory_error();} t72999.value.structure_type24753->s0 = *((struct w49 *)(&t72994)); t72999.value.structure_type24753->s1 = t73000; t72998 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t72998==NULL) {backtrace("stalin.sc", 4007, 134904); out_of_memory_error();} t72998->s0.tag = STRING_TYPE; t72998->s0.value.string_type = t72993; t72998->s1 = t72999; t72932 = f27556(t72998); l12794: goto l12791; l12790: /* x72510 stalin.sc:4008:134971 */ /* x72509 stalin.sc:4008:135025 */ t72984 = "]"; /* x72508 stalin.sc:4008:135003 */ /* x72507 stalin.sc:4008:135019 */ t72990 = a1595; /* x72506 stalin.sc:4008:135004 */ /* MOVE: dispatching squished to general */ if (t72990==FALSE_TYPE) t72991.tag = (unsigned)t72990; else {t72991.tag = FIXNUM_TYPE; t72991.value.fixnum_type = (int)(((int)t72990)>>1);} t72983 = f28396(t72991); /* x72505 stalin.sc:4008:134999 */ t72982 = " "; /* x72504 stalin.sc:4008:134997 */ t72981 = a22020; /* x72503 stalin.sc:4008:134986 */ t72980 = "[inside "; /* x72502 stalin.sc:4008:134972 */ t72989.tag = STRUCTURE_TYPE24753; t72989.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t72989.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4008, 134971); out_of_memory_error();} t72989.value.structure_type24753->s0.tag = STRING_TYPE; t72989.value.structure_type24753->s0.value.string_type = t72984; t72989.value.structure_type24753->s1.tag = NULL_TYPE; t72988.tag = STRUCTURE_TYPE24753; t72988.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t72988.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4008, 134971); out_of_memory_error();} t72988.value.structure_type24753->s0.tag = STRING_TYPE; t72988.value.structure_type24753->s0.value.string_type = t72983; t72988.value.structure_type24753->s1 = t72989; t72987.tag = STRUCTURE_TYPE24753; t72987.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t72987.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4008, 134971); out_of_memory_error();} t72987.value.structure_type24753->s0.tag = STRING_TYPE; t72987.value.structure_type24753->s0.value.string_type = t72982; t72987.value.structure_type24753->s1 = t72988; t72986.tag = STRUCTURE_TYPE24753; t72986.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t72986.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4008, 134971); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t72981>=((char *)VALUE_OFFSET)) {t72986.value.structure_type24753->s0.tag = STRING_TYPE; t72986.value.structure_type24753->s0.value.string_type = t72981;} else t72986.value.structure_type24753->s0.tag = (unsigned)t72981; t72986.value.structure_type24753->s1 = t72987; t72985 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t72985==NULL) {backtrace("stalin.sc", 4008, 134971); out_of_memory_error();} t72985->s0.tag = STRING_TYPE; t72985->s0.value.string_type = t72980; t72985->s1 = t72986; t72932 = f27556(t72985); l12791: /* x72512 stalin.sc:4009:135035 */ /* x72513 stalin.sc:4009:135038 */ /* x72515 stalin.sc:4009:135042 */ /* x72514 stalin.sc:4009:135043 */ /* x277443 stalin.sc:323:8604 */ t72933 = q35; /* x72517 stalin.sc:4009:135056 */ /* x72516 stalin.sc:4009:135057 */ /* x277445 stalin.sc:323:8604 */ t72934 = q35; /* x72519 stalin.sc:4010:135074 */ /* x72518 stalin.sc:4010:135075 */ /* x277447 stalin.sc:323:8604 */ t72935 = q35; /* x72521 stalin.sc:4010:135088 */ /* x72520 stalin.sc:4010:135089 */ /* x277449 stalin.sc:323:8604 */ t72936 = q35; /* x72523 stalin.sc:4010:135102 */ /* x72522 stalin.sc:4010:135103 */ /* x277451 stalin.sc:323:8604 */ t72937 = q35; /* x72525 stalin.sc:4010:135116 */ /* x72524 stalin.sc:4010:135117 */ /* x277453 stalin.sc:323:8604 */ t72938 = q35; /* x72527 stalin.sc:4011:135134 */ /* x72526 stalin.sc:4011:135135 */ /* x277455 stalin.sc:323:8604 */ t72939 = q35; /* x72529 stalin.sc:4011:135148 */ /* x72528 stalin.sc:4011:135149 */ /* x277457 stalin.sc:323:8604 */ t72940 = q35; /* x72531 stalin.sc:4011:135162 */ /* x72530 stalin.sc:4011:135163 */ /* x277459 stalin.sc:323:8604 */ t72941 = q35; /* x72533 stalin.sc:4011:135176 */ /* x72532 stalin.sc:4011:135177 */ /* x277461 stalin.sc:323:8604 */ t72942 = q35; /* x72535 stalin.sc:4012:135194 */ /* x72534 stalin.sc:4012:135195 */ /* x277463 stalin.sc:323:8604 */ t72943 = q35; /* x72537 stalin.sc:4012:135208 */ /* x72536 stalin.sc:4012:135209 */ /* x277465 stalin.sc:323:8604 */ t72944 = q35; /* x72539 stalin.sc:4012:135222 */ /* x72538 stalin.sc:4012:135223 */ /* x277467 stalin.sc:323:8604 */ t72945 = q35; /* x72541 stalin.sc:4012:135236 */ /* x72540 stalin.sc:4012:135237 */ /* x277469 stalin.sc:323:8604 */ t72946 = q35; /* x72543 stalin.sc:4013:135254 */ /* x72542 stalin.sc:4013:135255 */ /* x277471 stalin.sc:323:8604 */ t72947 = q35; /* x72545 stalin.sc:4013:135268 */ /* x72544 stalin.sc:4013:135269 */ /* x277473 stalin.sc:323:8604 */ t72948 = q35; /* x72547 stalin.sc:4013:135282 */ /* x72546 stalin.sc:4013:135283 */ /* x277475 stalin.sc:323:8604 */ t72949 = q35; /* x72549 stalin.sc:4013:135296 */ /* x72548 stalin.sc:4013:135297 */ /* x277477 stalin.sc:323:8604 */ t72950 = q35; /* x72551 stalin.sc:4014:135314 */ /* x72550 stalin.sc:4014:135315 */ /* x277479 stalin.sc:323:8604 */ t72951 = q35; /* x72553 stalin.sc:4014:135328 */ /* x72552 stalin.sc:4014:135329 */ /* x277481 stalin.sc:323:8604 */ t72952 = q35; /* x72555 stalin.sc:4014:135342 */ /* x72554 stalin.sc:4014:135343 */ /* x277483 stalin.sc:323:8604 */ t72953 = q35; /* x72556 stalin.sc:4014:135356 */ t72954 = 0; /* x72474 stalin.sc:4001:134749 */ a20500 = t72930; a20501 = t72931; a20502 = t72932; a20505 = t72933; a20506 = t72934; a20507 = t72935; a20508 = t72936; a20509 = t72937; a20510 = t72938; a20511 = t72939; a20512 = t72940; a20513 = t72941; a20514 = t72942; a20515 = t72943; a20516 = t72944; a20517 = t72945; a20518 = t72946; a20519 = t72947; a20520 = t72948; a20521 = t72949; a20522 = t72950; a20523 = t72951; a20524 = t72952; a20525 = t72953; a20526 = t72954; /* x55330 */ /* x55303 */ t72955 = a20500; /* x55304 */ t72956 = a20501; /* x55305 */ t72957 = a20502; /* x55306 */ /* x55307 */ /* x55308 */ t72958 = a20505; /* x55309 */ t72959 = a20506; /* x55310 */ t72960 = a20507; /* x55311 */ t72961 = a20508; /* x55312 */ t72962 = a20509; /* x55313 */ t72963 = a20510; /* x55314 */ t72964 = a20511; /* x55315 */ t72965 = a20512; /* x55316 */ t72966 = a20513; /* x55317 */ t72967 = a20514; /* x55318 */ t72968 = a20515; /* x55319 */ t72969 = a20516; /* x55320 */ t72970 = a20517; /* x55321 */ t72971 = a20518; /* x55322 */ t72972 = a20519; /* x55323 */ t72973 = a20520; /* x55324 */ t72974 = a20521; /* x55325 */ t72975 = a20522; /* x55326 */ t72976 = a20523; /* x55327 */ t72977 = a20524; /* x55328 */ t72978 = a20525; /* x55329 */ t72979 = a20526; /* x55302 */ t72912 = (struct structure_type27694 *)GC_malloc(sizeof(struct structure_type27694)); if (t72912==NULL) {backtrace_internal("MAKE-ENVIRONMENT[6629]"); out_of_memory_error();} t72912->s0 = t72955; t72912->s1.tag = EXTERNAL_SYMBOL_TYPE; t72912->s1.value.external_symbol_type = t72956; t72912->s2 = t72957; t72912->s3 = (char *)FALSE_TYPE; t72912->s4 = (struct structure_type24753 *)NULL_TYPE; t72912->s5.tag = EXTERNAL_SYMBOL_TYPE; t72912->s5.value.external_symbol_type = t72958; t72912->s6.tag = EXTERNAL_SYMBOL_TYPE; t72912->s6.value.external_symbol_type = t72959; t72912->s7.tag = EXTERNAL_SYMBOL_TYPE; t72912->s7.value.external_symbol_type = t72960; t72912->s8.tag = EXTERNAL_SYMBOL_TYPE; t72912->s8.value.external_symbol_type = t72961; t72912->s9.tag = EXTERNAL_SYMBOL_TYPE; t72912->s9.value.external_symbol_type = t72962; t72912->s10.tag = EXTERNAL_SYMBOL_TYPE; t72912->s10.value.external_symbol_type = t72963; t72912->s11.tag = EXTERNAL_SYMBOL_TYPE; t72912->s11.value.external_symbol_type = t72964; t72912->s12.tag = EXTERNAL_SYMBOL_TYPE; t72912->s12.value.external_symbol_type = t72965; t72912->s13.tag = EXTERNAL_SYMBOL_TYPE; t72912->s13.value.external_symbol_type = t72966; t72912->s14.tag = EXTERNAL_SYMBOL_TYPE; t72912->s14.value.external_symbol_type = t72967; t72912->s15.tag = EXTERNAL_SYMBOL_TYPE; t72912->s15.value.external_symbol_type = t72968; t72912->s16.tag = EXTERNAL_SYMBOL_TYPE; t72912->s16.value.external_symbol_type = t72969; t72912->s17.tag = EXTERNAL_SYMBOL_TYPE; t72912->s17.value.external_symbol_type = t72970; t72912->s18.tag = EXTERNAL_SYMBOL_TYPE; t72912->s18.value.external_symbol_type = t72971; t72912->s19.tag = EXTERNAL_SYMBOL_TYPE; t72912->s19.value.external_symbol_type = t72972; t72912->s20.tag = EXTERNAL_SYMBOL_TYPE; t72912->s20.value.external_symbol_type = t72973; t72912->s21.tag = EXTERNAL_SYMBOL_TYPE; t72912->s21.value.external_symbol_type = t72974; t72912->s22.tag = EXTERNAL_SYMBOL_TYPE; t72912->s22.value.external_symbol_type = t72975; t72912->s23.tag = EXTERNAL_SYMBOL_TYPE; t72912->s23.value.external_symbol_type = t72976; t72912->s24.tag = EXTERNAL_SYMBOL_TYPE; t72912->s24.value.external_symbol_type = t72977; t72912->s25.tag = EXTERNAL_SYMBOL_TYPE; t72912->s25.value.external_symbol_type = t72978; t72912->s26 = t72979; /* x72473 */ a22021 = t72912; /* x72472 */ /* x72452 stalin.sc:4015:135363 */ /* x72451 stalin.sc:4015:135374 */ /* x72449 stalin.sc:4015:135377 */ t72913 = a1595; /* x72450 stalin.sc:4015:135382 */ t72914 = 1; /* x270284 stalin.sc:4015:135375 */ if (!((t72913&1)==1)) {backtrace("stalin.sc", 4015, 135374); plus_error();} a1595 = (((unsigned)(((int)(((int)t72913)>>1))+t72914))<<1)+1; /* x72457 stalin.sc:4016:135388 */ /* x72456 stalin.sc:4016:135399 */ /* x72454 stalin.sc:4016:135405 */ t72915 = a22021; /* x72455 stalin.sc:4016:135407 */ t72916 = a1594; /* x270283 stalin.sc:4016:135400 */ a1594.tag = STRUCTURE_TYPE24753; a1594.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a1594.value.structure_type24753)==NULL) {backtrace("stalin.sc", 4016, 135399); out_of_memory_error();} a1594.value.structure_type24753->s0.tag = STRUCTURE_TYPE27694; a1594.value.structure_type24753->s0.value.structure_type27694 = t72915; a1594.value.structure_type24753->s1 = *((struct w49 *)(&t72916)); /* x72461 stalin.sc:4017:135416 */ /* x72459 stalin.sc:4017:135451 */ t72917 = a22021; /* x72460 stalin.sc:4017:135453 */ t72918 = a22021; /* x72458 stalin.sc:4017:135417 */ t72919.tag = STRUCTURE_TYPE27694; t72919.value.structure_type27694 = t72917; t72920.tag = STRUCTURE_TYPE27694; t72920.value.structure_type27694 = t72918; f6744(t72919, t72920); /* x72467 stalin.sc:4018:135458 */ /* x72463 stalin.sc:4018:135490 */ t72921 = a22021; /* x72466 stalin.sc:4018:135492 */ /* x72465 stalin.sc:4018:135498 */ t72925 = a22021; /* x72464 stalin.sc:4018:135493 */ a35204 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35204==NULL) {backtrace("stalin.sc", 4018, 135492); out_of_memory_error();} a35204->s0.tag = STRUCTURE_TYPE27694; a35204->s0.value.structure_type27694 = t72925; a35204->s1.tag = NULL_TYPE; /* x272415 */ t72922 = a35204; /* x72462 stalin.sc:4018:135459 */ t72923.tag = STRUCTURE_TYPE27694; t72923.value.structure_type27694 = t72921; t72924.tag = STRUCTURE_TYPE24753; t72924.value.structure_type24753 = t72922; f6752(t72923, t72924); /* x72471 stalin.sc:4019:135504 */ /* x72469 stalin.sc:4019:135537 */ t72926 = a22021; /* x72470 stalin.sc:4019:135539 */ t72927 = a22021; /* x72468 stalin.sc:4019:135505 */ t72928.tag = STRUCTURE_TYPE27694; t72928.value.structure_type27694 = t72926; t72929.tag = STRUCTURE_TYPE27694; t72929.value.structure_type27694 = t72927; f6760(t72928, t72929); /* x72447 */ /* x72446 stalin.sc:4020:135544 */ return a22021;} /* [inside INFER-ALL-WHETHER-SLOTTED?! 8455] */ void f8455(struct w49 a22014) {struct w49 a36968; /* S */ struct w49 a36995; /* S */ struct w49 a41659; /* G */ struct w49 t73016; struct w49 t73017; struct w49 t73018; struct w49 t73019; unsigned t73020; char *t73021; struct w49 t73022; unsigned t73023; struct w49 t73024; struct structure_type24753 *t73025; struct w49 t73026; struct w49 t73027; struct w49 t73028; struct w49 t73029; struct w49 t73030; struct w49 t73031; char *t73032; /* x72413 stalin.sc:3978:134237 */ /* x72364 stalin.sc:3978:134244 */ /* x72363 stalin.sc:3978:134254 */ t73016 = a22014; /* x72362 stalin.sc:3978:134245 */ a41659 = t73016; /* x300748 stalin.sc:3965:133896 */ /* x300747 stalin.sc:3965:133915 */ t73017 = a41659; /* x300746 stalin.sc:3965:133897 */ if (f8219(t73017)==FALSE_TYPE) goto l12796; /* x72381 */ /* x72380 */ /* x72379 stalin.sc:3979:134260 */ /* x72372 stalin.sc:3979:134266 */ /* x72365 stalin.sc:3979:134271 */ if (a22012==FALSE_TYPE) goto l12803; /* x72370 */ /* x72369 stalin.sc:3979:134279 */ /* x72368 stalin.sc:3979:134307 */ t73031 = a22014; /* x72367 stalin.sc:3979:134280 */ if (!(f8452(t73031)==FALSE_TYPE)) goto l12803; /* x72376 */ /* x72375 */ /* x72374 stalin.sc:3980:134316 */ /* x72373 stalin.sc:3980:134317 */ /* x296733 QobiScheme.sc:166:5314 */ /* x296732 QobiScheme.sc:166:5321 */ t73032 = "This shouldn\'t happen"; /* x296731 QobiScheme.sc:166:5315 */ stalin_panic(t73032); l12803: /* x72378 stalin.sc:3979:134260 */ /* x72377 stalin.sc:3979:134260 */ return; l12796: /* x72412 */ /* x72384 stalin.sc:3981:134331 */ /* x72383 stalin.sc:3981:134359 */ t73018 = a22014; /* x72382 stalin.sc:3981:134332 */ if (f8452(t73018)==FALSE_TYPE) goto l12798; /* x72409 */ /* x72408 */ /* x72407 */ /* x72391 stalin.sc:3982:134365 */ /* x72389 stalin.sc:3982:134389 */ t73019 = a22014; /* x72390 stalin.sc:3982:134391 */ /* x72388 stalin.sc:3982:134366 */ t73020 = TRUE_TYPE; f8220(t73019, t73020); /* x72406 stalin.sc:3983:134398 */ /* x72392 stalin.sc:3983:134404 */ if (a696==FALSE_TYPE) goto l12800; /* x72403 */ /* x72402 */ /* x72401 stalin.sc:3984:134414 */ /* x72400 stalin.sc:3984:134462 */ /* x72399 stalin.sc:3984:134478 */ t73029 = a22014; /* x72398 stalin.sc:3984:134463 */ a36995 = t73029; /* x280649 */ /* x280648 */ t73030 = a36995; /* x280647 */ if (!((t73030.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-INDEX[6565] 31912]"); structure_ref_error();} t73023 = t73030.value.structure_type27692->s6; /* x72397 stalin.sc:3984:134444 */ /* x72396 stalin.sc:3984:134459 */ t73027 = a22014; /* x72395 stalin.sc:3984:134445 */ a36968 = t73027; /* x280541 */ /* x280540 */ t73028 = a36968; /* x280539 */ if (!((t73028.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31885]"); structure_ref_error();} t73022 = t73028.value.structure_type27692->s7; /* x72394 stalin.sc:3984:134422 */ t73021 = " ~a{~s} is slotted"; /* x72393 stalin.sc:3984:134415 */ t73024.tag = STRING_TYPE; t73024.value.string_type = t73021; t73026.tag = STRUCTURE_TYPE24753; t73026.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t73026.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3984, 134414); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t73023==FALSE_TYPE) t73026.value.structure_type24753->s0.tag = (unsigned)t73023; else {t73026.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73026.value.structure_type24753->s0.value.fixnum_type = (int)(((int)t73023)>>1);} t73026.value.structure_type24753->s1.tag = NULL_TYPE; t73025 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t73025==NULL) {backtrace("stalin.sc", 3984, 134414); out_of_memory_error();} t73025->s0 = t73022; t73025->s1 = t73026; f5365(t73024, t73025); goto l12801; l12800: /* x72405 stalin.sc:3983:134398 */ /* x72404 stalin.sc:3983:134398 */ l12801: /* x72387 */ /* x72386 stalin.sc:3985:134486 */ /* x72385 stalin.sc:3985:134501 */ a2038 = TRUE_TYPE; return; l12798: /* x72411 */ /* x72410 */ return;} /* INFER-ALL-WHETHER-SLOTTED?![8453] */ void f8453(void) {struct w21193 t73033; struct w36108 t73034; struct w49 t73035; struct structure_type24753 *t73036; char *t73037; struct w49 t73038; struct structure_type24753 *t73039; /* x72427 */ /* x72426 stalin.sc:3975:134143 */ /* x72418 stalin.sc:3975:134149 */ if (a696==FALSE_TYPE) goto l12806; /* x72423 */ /* x72422 */ /* x72421 stalin.sc:3975:134155 */ /* x72420 stalin.sc:3975:134163 */ t73037 = "Determining whether variables are slotted"; /* x72419 stalin.sc:3975:134156 */ t73038.tag = STRING_TYPE; t73038.value.string_type = t73037; t73039 = (struct structure_type24753 *)NULL_TYPE; f5365(t73038, t73039); goto l12807; l12806: /* x72425 stalin.sc:3975:134143 */ /* x72424 stalin.sc:3975:134143 */ l12807: /* x72417 */ /* x72416 stalin.sc:3976:134210 */ /* x72415 stalin.sc:3986:134510 */ t73033 = a1633; /* x72414 stalin.sc:3977:134222 */ /* x72361 stalin.sc:3976:134211 */ t73034.tag = NATIVE_PROCEDURE_TYPE15815; t73035 = *((struct w49 *)(&t73033)); t73036 = (struct structure_type24753 *)NULL_TYPE; f27755(t73034, t73035, t73036); return;} /* DETERMINE-WHETHER-SLOTTED?[8452] */ unsigned f8452(struct w49 a22011) {struct w49 a36882; /* S */ struct w49 a41672; /* G */ struct w49 a41701; /* G */ struct w49 a41740; /* G */ struct w49 t73040; struct w49 t73041; struct w49 t73042; struct w49 t73043; struct w49 t73044; struct w49 t73045; struct w49 t73046; struct w49 t73047; struct w49 t73048; struct w49 t73049; /* x72358 stalin.sc:3968:133960 */ /* x72358 stalin.sc:3968:133960 */ /* x72328 stalin.sc:3968:133965 */ /* x72327 stalin.sc:3968:133976 */ t73040 = a22011; /* x72326 stalin.sc:3968:133966 */ if (f8229(t73040)==FALSE_TYPE) goto l12809; /* x72356 */ /* x72335 stalin.sc:3969:133985 */ /* x72334 stalin.sc:3969:133990 */ /* x72333 stalin.sc:3969:134003 */ /* x72332 stalin.sc:3969:134022 */ t73042 = a22011; /* x72331 stalin.sc:3969:134004 */ a36882 = t73042; /* x280197 */ /* x280196 */ t73043 = a36882; /* x280195 */ if (!((t73043.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31799]"); structure_ref_error();} t73041 = t73043.value.structure_type27692->s9; /* x72330 stalin.sc:3969:133991 */ if (!(f8793(t73041)==FALSE_TYPE)) goto l12809; /* x72354 */ /* x72340 stalin.sc:3970:134033 */ /* x72339 stalin.sc:3970:134038 */ /* x72338 stalin.sc:3970:134046 */ t73044 = a22011; /* x72337 stalin.sc:3970:134039 */ a41740 = t73044; /* x301072 stalin.sc:3890:131852 */ /* x301071 stalin.sc:3890:131869 */ t73045 = a41740; /* x301070 stalin.sc:3890:131853 */ if (!(f8204(t73045)==FALSE_TYPE)) goto l12809; /* x72352 */ /* x72345 stalin.sc:3971:134056 */ /* x72344 stalin.sc:3971:134061 */ /* x72343 stalin.sc:3971:134070 */ t73046 = a22011; /* x72342 stalin.sc:3971:134062 */ a41701 = t73046; /* x300916 stalin.sc:3916:132554 */ /* x300915 stalin.sc:3916:132572 */ t73047 = a41701; /* x300914 stalin.sc:3916:132555 */ if (!(f8209(t73047)==FALSE_TYPE)) goto l12809; /* x72350 */ /* x72349 stalin.sc:3972:134085 */ /* x72348 stalin.sc:3972:134094 */ t73048 = a22011; /* x72347 stalin.sc:3972:134086 */ a41672 = t73048; /* x300800 stalin.sc:3942:133266 */ /* x300799 stalin.sc:3942:133284 */ t73049 = a41672; /* x300798 stalin.sc:3942:133267 */ if (!(f8214(t73049)==FALSE_TYPE)) goto l12809; return TRUE_TYPE; l12809: return FALSE_TYPE;} /* SLOTTED?[8451] */ unsigned f8451(struct w49 a22010) {struct w49 t73050; /* x72323 stalin.sc:3965:133896 */ /* x72322 stalin.sc:3965:133915 */ t73050 = a22010; /* x72321 stalin.sc:3965:133897 */ return f8219(t73050);} /* [inside INFER-ALL-WHETHER-HIDDEN?! 8440] */ void f8440(struct w49 a22007) {struct w49 a36962; /* S */ struct w49 a36985; /* S */ struct w49 a41679; /* G */ struct w49 t73051; struct w49 t73052; struct w49 t73053; struct w49 t73054; unsigned t73055; char *t73056; struct w49 t73057; unsigned t73058; struct w49 t73059; struct structure_type24753 *t73060; struct w49 t73061; struct w49 t73062; struct w49 t73063; struct w49 t73064; struct w49 t73065; struct w49 t73066; char *t73067; /* x72304 stalin.sc:3955:133599 */ /* x72255 stalin.sc:3955:133606 */ /* x72254 stalin.sc:3955:133615 */ t73051 = a22007; /* x72253 stalin.sc:3955:133607 */ a41679 = t73051; /* x300828 stalin.sc:3942:133266 */ /* x300827 stalin.sc:3942:133284 */ t73052 = a41679; /* x300826 stalin.sc:3942:133267 */ if (f8214(t73052)==FALSE_TYPE) goto l12816; /* x72272 */ /* x72271 */ /* x72270 stalin.sc:3956:133621 */ /* x72263 stalin.sc:3956:133627 */ /* x72256 stalin.sc:3956:133632 */ if (a22005==FALSE_TYPE) goto l12823; /* x72261 */ /* x72260 stalin.sc:3956:133640 */ /* x72259 stalin.sc:3956:133667 */ t73066 = a22007; /* x72258 stalin.sc:3956:133641 */ if (!(f8437(t73066)==FALSE_TYPE)) goto l12823; /* x72267 */ /* x72266 */ /* x72265 stalin.sc:3957:133676 */ /* x72264 stalin.sc:3957:133677 */ /* x296729 QobiScheme.sc:166:5314 */ /* x296728 QobiScheme.sc:166:5321 */ t73067 = "This shouldn\'t happen"; /* x296727 QobiScheme.sc:166:5315 */ stalin_panic(t73067); l12823: /* x72269 stalin.sc:3956:133621 */ /* x72268 stalin.sc:3956:133621 */ return; l12816: /* x72303 */ /* x72275 stalin.sc:3958:133691 */ /* x72274 stalin.sc:3958:133718 */ t73053 = a22007; /* x72273 stalin.sc:3958:133692 */ if (f8437(t73053)==FALSE_TYPE) goto l12818; /* x72300 */ /* x72299 */ /* x72298 */ /* x72282 stalin.sc:3959:133724 */ /* x72280 stalin.sc:3959:133747 */ t73054 = a22007; /* x72281 stalin.sc:3959:133749 */ /* x72279 stalin.sc:3959:133725 */ t73055 = TRUE_TYPE; f8215(t73054, t73055); /* x72297 stalin.sc:3960:133756 */ /* x72283 stalin.sc:3960:133762 */ if (a696==FALSE_TYPE) goto l12820; /* x72294 */ /* x72293 */ /* x72292 stalin.sc:3961:133772 */ /* x72291 stalin.sc:3961:133819 */ /* x72290 stalin.sc:3961:133835 */ t73064 = a22007; /* x72289 stalin.sc:3961:133820 */ a36985 = t73064; /* x280609 */ /* x280608 */ t73065 = a36985; /* x280607 */ if (!((t73065.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-INDEX[6565] 31902]"); structure_ref_error();} t73058 = t73065.value.structure_type27692->s6; /* x72288 stalin.sc:3961:133801 */ /* x72287 stalin.sc:3961:133816 */ t73062 = a22007; /* x72286 stalin.sc:3961:133802 */ a36962 = t73062; /* x280517 */ /* x280516 */ t73063 = a36962; /* x280515 */ if (!((t73063.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31879]"); structure_ref_error();} t73057 = t73063.value.structure_type27692->s7; /* x72285 stalin.sc:3961:133780 */ t73056 = " ~a{~s} is hidden"; /* x72284 stalin.sc:3961:133773 */ t73059.tag = STRING_TYPE; t73059.value.string_type = t73056; t73061.tag = STRUCTURE_TYPE24753; t73061.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t73061.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3961, 133772); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t73058==FALSE_TYPE) t73061.value.structure_type24753->s0.tag = (unsigned)t73058; else {t73061.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73061.value.structure_type24753->s0.value.fixnum_type = (int)(((int)t73058)>>1);} t73061.value.structure_type24753->s1.tag = NULL_TYPE; t73060 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t73060==NULL) {backtrace("stalin.sc", 3961, 133772); out_of_memory_error();} t73060->s0 = t73057; t73060->s1 = t73061; f5365(t73059, t73060); goto l12821; l12820: /* x72296 stalin.sc:3960:133756 */ /* x72295 stalin.sc:3960:133756 */ l12821: /* x72278 */ /* x72277 stalin.sc:3962:133843 */ /* x72276 stalin.sc:3962:133858 */ a2038 = TRUE_TYPE; return; l12818: /* x72302 */ /* x72301 */ return;} /* INFER-ALL-WHETHER-HIDDEN?![8438] */ void f8438(void) {struct w21193 t73068; struct w36108 t73069; struct w49 t73070; struct structure_type24753 *t73071; char *t73072; struct w49 t73073; struct structure_type24753 *t73074; /* x72318 */ /* x72317 stalin.sc:3952:133506 */ /* x72309 stalin.sc:3952:133512 */ if (a696==FALSE_TYPE) goto l12826; /* x72314 */ /* x72313 */ /* x72312 stalin.sc:3952:133518 */ /* x72311 stalin.sc:3952:133526 */ t73072 = "Determining whether variables are hidden"; /* x72310 stalin.sc:3952:133519 */ t73073.tag = STRING_TYPE; t73073.value.string_type = t73072; t73074 = (struct structure_type24753 *)NULL_TYPE; f5365(t73073, t73074); goto l12827; l12826: /* x72316 stalin.sc:3952:133506 */ /* x72315 stalin.sc:3952:133506 */ l12827: /* x72308 */ /* x72307 stalin.sc:3953:133572 */ /* x72306 stalin.sc:3963:133867 */ t73068 = a1633; /* x72305 stalin.sc:3954:133584 */ /* x72252 stalin.sc:3953:133573 */ t73069.tag = NATIVE_PROCEDURE_TYPE15819; t73070 = *((struct w49 *)(&t73068)); t73071 = (struct structure_type24753 *)NULL_TYPE; f27755(t73069, t73070, t73071); return;} /* DETERMINE-WHETHER-HIDDEN?[8437] */ unsigned f8437(struct w49 a22004) {struct w49 a21981; /* G */ char *a21982; /* v */ struct w49 a36844; /* S */ struct w49 a36845; /* S */ struct w49 a36846; /* S */ struct w49 a36870; /* S */ struct w49 a36881; /* S */ struct w49 a38097; /* OBJ */ struct w49 a41694; /* G */ struct w49 a41728; /* G */ struct w49 t73075; struct w49 t73076; struct w49 t73077; struct w49 t73078; struct w49 t73079; struct p8395 *t73080; char *t73081; char *t73082; char *t73083; struct w49 t73084; struct w49 t73085; char *t73086; char *t73087; struct w49 t73088; struct w49 t73089; char *t73090; char *t73091; struct w49 t73092; struct w49 t73093; char *t73094; struct p8395 *t73095; struct w49 t73096; struct w49 t73097; struct w49 t73098; struct w49 t73099; struct w49 t73100; struct w49 t73101; struct w49 t73102; struct w49 t73103; struct w49 t73104; struct w49 t73105; struct w49 t73106; struct w49 t73107; struct w49 t73108; struct p8395 *t73109; struct w12224 t73110; struct w228245 t73111; struct w49 t73112; struct structure_type24753 *t73113; struct w49 t73114; struct w49 t73115; struct w49 t73116; struct w49 t73117; struct w49 t73118; struct w49 t73119; struct w49 t73120; struct w49 t73121; struct w49 t73122; struct p8395 *e8395; struct p8395 *p8396; struct p8395 *p8399; /* x72249 stalin.sc:3945:133328 */ /* x72249 stalin.sc:3945:133328 */ /* x72221 stalin.sc:3945:133333 */ /* x72220 stalin.sc:3945:133344 */ t73075 = a22004; /* x72219 stalin.sc:3945:133334 */ if (f8229(t73075)==FALSE_TYPE) goto l12829; /* x72247 */ /* x72228 stalin.sc:3946:133353 */ /* x72227 stalin.sc:3946:133358 */ /* x72226 stalin.sc:3946:133371 */ /* x72225 stalin.sc:3946:133390 */ t73077 = a22004; /* x72224 stalin.sc:3946:133372 */ a36881 = t73077; /* x280193 */ /* x280192 */ t73078 = a36881; /* x280191 */ if (!((t73078.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31798]"); structure_ref_error();} t73076 = t73078.value.structure_type27692->s9; /* x72223 stalin.sc:3946:133359 */ if (!(f8793(t73076)==FALSE_TYPE)) goto l12829; /* x72245 */ /* x72231 stalin.sc:3947:133401 */ /* x72230 stalin.sc:3947:133412 */ t73079 = a22004; /* x72229 stalin.sc:3947:133402 */ a21981 = t73079; e8395 = (struct p8395 *)alloca(sizeof(struct p8395)); if (e8395==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e8395->a21981 = a21981; /* x71973 stalin.sc:3866:130923 */ /* x71972 stalin.sc:3866:130929 */ t73081 = a687; /* x71971 */ t73080 = e8395; p8396 = t73080; a21982 = t73081; /* x71970 */ /* x71868 */ /* x71867 */ /* x71865 */ t73082 = a21982; /* x71866 */ t73083 = q15; /* x71864 */ /* MOVE: branching squeezed to general */ if (t73082>=((char *)VALUE_OFFSET)) {t73084.tag = EXTERNAL_SYMBOL_TYPE; t73084.value.external_symbol_type = t73082;} else t73084.tag = (unsigned)t73082; t73085.tag = EXTERNAL_SYMBOL_TYPE; t73085.value.external_symbol_type = t73083; if (!(f26160(t73084, t73085)==FALSE_TYPE)) goto l12834; /* x71861 */ /* x71859 */ t73086 = a21982; /* x71860 */ t73087 = q16; /* x71858 */ /* MOVE: branching squeezed to general */ if (t73086>=((char *)VALUE_OFFSET)) {t73088.tag = EXTERNAL_SYMBOL_TYPE; t73088.value.external_symbol_type = t73086;} else t73088.tag = (unsigned)t73086; t73089.tag = EXTERNAL_SYMBOL_TYPE; t73089.value.external_symbol_type = t73087; if (f26160(t73088, t73089)==FALSE_TYPE) goto l12835; l12834: /* x71871 */ /* x71870 */ /* x71869 stalin.sc:3867:130984 */ goto l12829; goto l12836; l12835: /* x71969 */ /* x71875 */ /* x71873 */ t73090 = a21982; /* x71874 */ t73091 = q17; /* x71872 */ /* MOVE: branching squeezed to general */ if (t73090>=((char *)VALUE_OFFSET)) {t73092.tag = EXTERNAL_SYMBOL_TYPE; t73092.value.external_symbol_type = t73090;} else t73092.tag = (unsigned)t73090; t73093.tag = EXTERNAL_SYMBOL_TYPE; t73093.value.external_symbol_type = t73091; if (f26160(t73092, t73093)==FALSE_TYPE) goto l12839; /* x71964 */ /* x71963 */ t73095 = p8396; p8399 = t73095; /* x71962 stalin.sc:3869:131008 */ /* x71878 stalin.sc:3869:131013 */ /* x71877 stalin.sc:3869:131024 */ t73096 = p8399->a21981; /* x71876 stalin.sc:3869:131014 */ if (f8229(t73096)==FALSE_TYPE) goto l12829; /* x71960 */ /* x71883 stalin.sc:3870:131061 */ /* x71882 stalin.sc:3870:131075 */ /* x71881 stalin.sc:3870:131094 */ t73098 = p8399->a21981; /* x71880 stalin.sc:3870:131076 */ a36870 = t73098; /* x280149 */ /* x280148 */ t73099 = a36870; /* x280147 */ if (!((t73099.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31787]"); structure_ref_error();} t73097 = t73099.value.structure_type27692->s9; /* x71879 stalin.sc:3870:131062 */ if (f8148(t73097)==FALSE_TYPE) goto l12829; /* x71958 */ /* x71890 stalin.sc:3871:131099 */ /* x71889 stalin.sc:3871:131123 */ /* x71888 stalin.sc:3871:131135 */ /* x71887 stalin.sc:3871:131154 */ t73103 = p8399->a21981; /* x71886 stalin.sc:3871:131136 */ a36846 = t73103; /* x280053 */ /* x280052 */ t73104 = a36846; /* x280051 */ if (!((t73104.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31763]"); structure_ref_error();} t73102 = t73104.value.structure_type27692->s9; /* x71885 stalin.sc:3871:131124 */ t73100 = f8153(t73102); /* x71884 stalin.sc:3871:131100 */ a38097 = t73100; /* x285057 */ /* x285056 */ t73101 = a38097; /* x285055 */ if (!((t73101.tag)==STRUCTURE_TYPE27756)) goto l12829; /* x71956 */ /* x71897 stalin.sc:3874:131273 */ /* x71896 stalin.sc:3874:131292 */ /* x71895 stalin.sc:3874:131304 */ /* x71894 stalin.sc:3874:131323 */ t73107 = p8399->a21981; /* x71893 stalin.sc:3874:131305 */ a36845 = t73107; /* x280049 */ /* x280048 */ t73108 = a36845; /* x280047 */ if (!((t73108.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31762]"); structure_ref_error();} t73106 = t73108.value.structure_type27692->s9; /* x71892 stalin.sc:3874:131293 */ t73105 = f8153(t73106); /* x71891 stalin.sc:3874:131274 */ if (f8526(t73105)==FALSE_TYPE) goto l12829; /* x71954 */ /* x71945 stalin.sc:3875:131329 */ /* x71944 stalin.sc:3886:131745 */ /* x71943 stalin.sc:3886:131755 */ t73114 = p8399->a21981; /* x71942 stalin.sc:3886:131746 */ t73110 = f8243(t73114); /* x71941 stalin.sc:3876:131338 */ t73109 = p8399; /* x71898 stalin.sc:3875:131330 */ t73111.tag = NATIVE_PROCEDURE_TYPE19867; t73111.value.native_procedure_type19867 = t73109; t73112 = *((struct w49 *)(&t73110)); t73113 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t73111, t73112, t73113)==FALSE_TYPE) goto l12829; /* x71952 */ /* x71951 stalin.sc:3887:131773 */ /* x71950 stalin.sc:3887:131785 */ /* x71949 stalin.sc:3887:131804 */ t73117 = p8399->a21981; /* x71948 stalin.sc:3887:131786 */ a36844 = t73117; /* x280045 */ /* x280044 */ t73118 = a36844; /* x280043 */ if (!((t73118.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31761]"); structure_ref_error();} t73116 = t73118.value.structure_type27692->s9; /* x71947 stalin.sc:3887:131774 */ t73115 = f8153(t73116); /* x71946 stalin.sc:3887:131761 */ if (f8246(t73115)==FALSE_TYPE) goto l12829; goto l12840; l12839: /* x71968 */ /* x71967 */ /* x71966 stalin.sc:3888:131819 */ /* x71965 stalin.sc:3888:131820 */ /* x296681 QobiScheme.sc:166:5314 */ /* x296680 QobiScheme.sc:166:5321 */ t73094 = "This shouldn\'t happen"; /* x296679 QobiScheme.sc:166:5315 */ stalin_panic(t73094); l12840: l12836: /* x72243 */ /* x72236 stalin.sc:3948:133421 */ /* x72235 stalin.sc:3948:133426 */ /* x72234 stalin.sc:3948:133434 */ t73119 = a22004; /* x72233 stalin.sc:3948:133427 */ a41728 = t73119; /* x301024 stalin.sc:3890:131852 */ /* x301023 stalin.sc:3890:131869 */ t73120 = a41728; /* x301022 stalin.sc:3890:131853 */ if (!(f8204(t73120)==FALSE_TYPE)) goto l12829; /* x72241 */ /* x72240 stalin.sc:3949:133449 */ /* x72239 stalin.sc:3949:133458 */ t73121 = a22004; /* x72238 stalin.sc:3949:133450 */ a41694 = t73121; /* x300888 stalin.sc:3916:132554 */ /* x300887 stalin.sc:3916:132572 */ t73122 = a41694; /* x300886 stalin.sc:3916:132555 */ if (!(f8209(t73122)==FALSE_TYPE)) goto l12829; return TRUE_TYPE; l12829: return FALSE_TYPE;} /* [inside INFER-ALL-WHETHER-GLOBAL?! 8425] */ void f8425(struct w49 a22000) {struct w49 a36967; /* S */ struct w49 a36994; /* S */ struct w49 a41706; /* G */ struct w49 t73123; struct w49 t73124; struct w49 t73125; struct w49 t73126; unsigned t73127; char *t73128; struct w49 t73129; unsigned t73130; struct w49 t73131; struct structure_type24753 *t73132; struct w49 t73133; struct w49 t73134; struct w49 t73135; struct w49 t73136; struct w49 t73137; struct w49 t73138; char *t73139; /* x72197 stalin.sc:3932:132970 */ /* x72148 stalin.sc:3932:132977 */ /* x72147 stalin.sc:3932:132986 */ t73123 = a22000; /* x72146 stalin.sc:3932:132978 */ a41706 = t73123; /* x300936 stalin.sc:3916:132554 */ /* x300935 stalin.sc:3916:132572 */ t73124 = a41706; /* x300934 stalin.sc:3916:132555 */ if (f8209(t73124)==FALSE_TYPE) goto l12848; /* x72165 */ /* x72164 */ /* x72163 stalin.sc:3933:132992 */ /* x72156 stalin.sc:3933:132998 */ /* x72149 stalin.sc:3933:133003 */ if (a21998==FALSE_TYPE) goto l12855; /* x72154 */ /* x72153 stalin.sc:3933:133011 */ /* x72152 stalin.sc:3933:133038 */ t73138 = a22000; /* x72151 stalin.sc:3933:133012 */ if (!(f8422(t73138)==FALSE_TYPE)) goto l12855; /* x72160 */ /* x72159 */ /* x72158 stalin.sc:3934:133047 */ /* x72157 stalin.sc:3934:133048 */ /* x296725 QobiScheme.sc:166:5314 */ /* x296724 QobiScheme.sc:166:5321 */ t73139 = "This shouldn\'t happen"; /* x296723 QobiScheme.sc:166:5315 */ stalin_panic(t73139); l12855: /* x72162 stalin.sc:3933:132992 */ /* x72161 stalin.sc:3933:132992 */ return; l12848: /* x72196 */ /* x72168 stalin.sc:3935:133062 */ /* x72167 stalin.sc:3935:133089 */ t73125 = a22000; /* x72166 stalin.sc:3935:133063 */ if (f8422(t73125)==FALSE_TYPE) goto l12850; /* x72193 */ /* x72192 */ /* x72191 */ /* x72175 stalin.sc:3936:133095 */ /* x72173 stalin.sc:3936:133118 */ t73126 = a22000; /* x72174 stalin.sc:3936:133120 */ /* x72172 stalin.sc:3936:133096 */ t73127 = TRUE_TYPE; f8210(t73126, t73127); /* x72190 stalin.sc:3937:133127 */ /* x72176 stalin.sc:3937:133133 */ if (a696==FALSE_TYPE) goto l12852; /* x72187 */ /* x72186 */ /* x72185 stalin.sc:3938:133143 */ /* x72184 stalin.sc:3938:133190 */ /* x72183 stalin.sc:3938:133206 */ t73136 = a22000; /* x72182 stalin.sc:3938:133191 */ a36994 = t73136; /* x280645 */ /* x280644 */ t73137 = a36994; /* x280643 */ if (!((t73137.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-INDEX[6565] 31911]"); structure_ref_error();} t73130 = t73137.value.structure_type27692->s6; /* x72181 stalin.sc:3938:133172 */ /* x72180 stalin.sc:3938:133187 */ t73134 = a22000; /* x72179 stalin.sc:3938:133173 */ a36967 = t73134; /* x280537 */ /* x280536 */ t73135 = a36967; /* x280535 */ if (!((t73135.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31884]"); structure_ref_error();} t73129 = t73135.value.structure_type27692->s7; /* x72178 stalin.sc:3938:133151 */ t73128 = " ~a{~s} is global"; /* x72177 stalin.sc:3938:133144 */ t73131.tag = STRING_TYPE; t73131.value.string_type = t73128; t73133.tag = STRUCTURE_TYPE24753; t73133.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t73133.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3938, 133143); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t73130==FALSE_TYPE) t73133.value.structure_type24753->s0.tag = (unsigned)t73130; else {t73133.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73133.value.structure_type24753->s0.value.fixnum_type = (int)(((int)t73130)>>1);} t73133.value.structure_type24753->s1.tag = NULL_TYPE; t73132 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t73132==NULL) {backtrace("stalin.sc", 3938, 133143); out_of_memory_error();} t73132->s0 = t73129; t73132->s1 = t73133; f5365(t73131, t73132); goto l12853; l12852: /* x72189 stalin.sc:3937:133127 */ /* x72188 stalin.sc:3937:133127 */ l12853: /* x72171 */ /* x72170 stalin.sc:3939:133214 */ /* x72169 stalin.sc:3939:133229 */ a2038 = TRUE_TYPE; return; l12850: /* x72195 */ /* x72194 */ return;} /* INFER-ALL-WHETHER-GLOBAL?![8423] */ void f8423(void) {struct w21193 t73140; struct w36108 t73141; struct w49 t73142; struct structure_type24753 *t73143; char *t73144; struct w49 t73145; struct structure_type24753 *t73146; /* x72211 */ /* x72210 stalin.sc:3929:132877 */ /* x72202 stalin.sc:3929:132883 */ if (a696==FALSE_TYPE) goto l12858; /* x72207 */ /* x72206 */ /* x72205 stalin.sc:3929:132889 */ /* x72204 stalin.sc:3929:132897 */ t73144 = "Determining whether variables are global"; /* x72203 stalin.sc:3929:132890 */ t73145.tag = STRING_TYPE; t73145.value.string_type = t73144; t73146 = (struct structure_type24753 *)NULL_TYPE; f5365(t73145, t73146); goto l12859; l12858: /* x72209 stalin.sc:3929:132877 */ /* x72208 stalin.sc:3929:132877 */ l12859: /* x72201 */ /* x72200 stalin.sc:3930:132943 */ /* x72199 stalin.sc:3940:133238 */ t73140 = a1633; /* x72198 stalin.sc:3931:132955 */ /* x72145 stalin.sc:3930:132944 */ t73141.tag = NATIVE_PROCEDURE_TYPE15823; t73142 = *((struct w49 *)(&t73140)); t73143 = (struct structure_type24753 *)NULL_TYPE; f27755(t73141, t73142, t73143); return;} /* DETERMINE-WHETHER-GLOBAL?[8422] */ unsigned f8422(struct w49 a21997) {struct w49 a36879; /* S */ struct w49 a36880; /* S */ struct w49 a41739; /* G */ struct w49 t73147; struct w49 t73148; struct w49 t73149; struct w49 t73150; struct w49 t73151; struct w49 t73152; struct w49 t73153; struct w49 t73154; struct w49 t73155; struct w49 t73156; struct w49 t73157; struct w49 t73158; /* x72142 stalin.sc:3919:132616 */ /* x72100 stalin.sc:3919:132620 */ if (a682==FALSE_TYPE) goto l12861; /* x72117 stalin.sc:3920:132636 */ /* x72117 stalin.sc:3920:132636 */ /* x72103 stalin.sc:3920:132641 */ /* x72102 stalin.sc:3920:132652 */ t73154 = a21997; /* x72101 stalin.sc:3920:132642 */ if (f8229(t73154)==FALSE_TYPE) goto l12869; /* x72115 */ /* x72110 stalin.sc:3921:132658 */ /* x72109 stalin.sc:3921:132663 */ /* x72108 stalin.sc:3921:132676 */ /* x72107 stalin.sc:3921:132695 */ t73156 = a21997; /* x72106 stalin.sc:3921:132677 */ a36879 = t73156; /* x280185 */ /* x280184 */ t73157 = a36879; /* x280183 */ if (!((t73157.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31796]"); structure_ref_error();} t73155 = t73157.value.structure_type27692->s9; /* x72105 stalin.sc:3921:132664 */ if (!(f8793(t73155)==FALSE_TYPE)) goto l12869; /* x72113 */ /* x72112 stalin.sc:3922:132718 */ t73158 = a21997; /* x72111 stalin.sc:3922:132704 */ if (f8381(t73158)==FALSE_TYPE) goto l12869; return TRUE_TYPE; l12869: return FALSE_TYPE; l12861: /* x72141 stalin.sc:3923:132727 */ /* x72141 stalin.sc:3923:132727 */ /* x72120 stalin.sc:3923:132732 */ /* x72119 stalin.sc:3923:132743 */ t73147 = a21997; /* x72118 stalin.sc:3923:132733 */ if (f8229(t73147)==FALSE_TYPE) goto l12863; /* x72139 */ /* x72127 stalin.sc:3924:132749 */ /* x72126 stalin.sc:3924:132754 */ /* x72125 stalin.sc:3924:132767 */ /* x72124 stalin.sc:3924:132786 */ t73149 = a21997; /* x72123 stalin.sc:3924:132768 */ a36880 = t73149; /* x280189 */ /* x280188 */ t73150 = a36880; /* x280187 */ if (!((t73150.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31797]"); structure_ref_error();} t73148 = t73150.value.structure_type27692->s9; /* x72122 stalin.sc:3924:132755 */ if (!(f8793(t73148)==FALSE_TYPE)) goto l12863; /* x72137 */ /* x72130 stalin.sc:3925:132794 */ /* x72129 stalin.sc:3925:132809 */ t73151 = a21997; /* x72128 stalin.sc:3925:132795 */ if (f8381(t73151)==FALSE_TYPE) goto l12863; /* x72135 */ /* x72134 stalin.sc:3926:132820 */ /* x72133 stalin.sc:3926:132828 */ t73152 = a21997; /* x72132 stalin.sc:3926:132821 */ a41739 = t73152; /* x301068 stalin.sc:3890:131852 */ /* x301067 stalin.sc:3890:131869 */ t73153 = a41739; /* x301066 stalin.sc:3890:131853 */ if (!(f8204(t73153)==FALSE_TYPE)) goto l12863; return TRUE_TYPE; l12863: return FALSE_TYPE;} /* [inside INFER-ALL-WHETHER-LOCAL?! 8410] */ void f8410(struct w49 a21993) {struct w49 a36966; /* S */ struct w49 a36993; /* S */ struct w49 a41745; /* G */ struct w49 t73159; struct w49 t73160; struct w49 t73161; struct w49 t73162; unsigned t73163; char *t73164; struct w49 t73165; unsigned t73166; struct w49 t73167; struct structure_type24753 *t73168; struct w49 t73169; struct w49 t73170; struct w49 t73171; struct w49 t73172; struct w49 t73173; struct w49 t73174; char *t73175; /* x72078 stalin.sc:3906:132263 */ /* x72029 stalin.sc:3906:132270 */ /* x72028 stalin.sc:3906:132278 */ t73159 = a21993; /* x72027 stalin.sc:3906:132271 */ a41745 = t73159; /* x301092 stalin.sc:3890:131852 */ /* x301091 stalin.sc:3890:131869 */ t73160 = a41745; /* x301090 stalin.sc:3890:131853 */ if (f8204(t73160)==FALSE_TYPE) goto l12874; /* x72046 */ /* x72045 */ /* x72044 stalin.sc:3907:132284 */ /* x72037 stalin.sc:3907:132290 */ /* x72030 stalin.sc:3907:132295 */ if (a21991==FALSE_TYPE) goto l12881; /* x72035 */ /* x72034 stalin.sc:3907:132303 */ /* x72033 stalin.sc:3907:132329 */ t73174 = a21993; /* x72032 stalin.sc:3907:132304 */ if (!(f8407(t73174)==FALSE_TYPE)) goto l12881; /* x72041 */ /* x72040 */ /* x72039 stalin.sc:3908:132338 */ /* x72038 stalin.sc:3908:132339 */ /* x296721 QobiScheme.sc:166:5314 */ /* x296720 QobiScheme.sc:166:5321 */ t73175 = "This shouldn\'t happen"; /* x296719 QobiScheme.sc:166:5315 */ stalin_panic(t73175); l12881: /* x72043 stalin.sc:3907:132284 */ /* x72042 stalin.sc:3907:132284 */ return; l12874: /* x72077 */ /* x72049 stalin.sc:3909:132353 */ /* x72048 stalin.sc:3909:132379 */ t73161 = a21993; /* x72047 stalin.sc:3909:132354 */ if (f8407(t73161)==FALSE_TYPE) goto l12876; /* x72074 */ /* x72073 */ /* x72072 */ /* x72056 stalin.sc:3910:132385 */ /* x72054 stalin.sc:3910:132407 */ t73162 = a21993; /* x72055 stalin.sc:3910:132409 */ /* x72053 stalin.sc:3910:132386 */ t73163 = TRUE_TYPE; f8205(t73162, t73163); /* x72071 stalin.sc:3911:132416 */ /* x72057 stalin.sc:3911:132422 */ if (a696==FALSE_TYPE) goto l12878; /* x72068 */ /* x72067 */ /* x72066 stalin.sc:3912:132432 */ /* x72065 stalin.sc:3912:132478 */ /* x72064 stalin.sc:3912:132494 */ t73172 = a21993; /* x72063 stalin.sc:3912:132479 */ a36993 = t73172; /* x280641 */ /* x280640 */ t73173 = a36993; /* x280639 */ if (!((t73173.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-INDEX[6565] 31910]"); structure_ref_error();} t73166 = t73173.value.structure_type27692->s6; /* x72062 stalin.sc:3912:132460 */ /* x72061 stalin.sc:3912:132475 */ t73170 = a21993; /* x72060 stalin.sc:3912:132461 */ a36966 = t73170; /* x280533 */ /* x280532 */ t73171 = a36966; /* x280531 */ if (!((t73171.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31883]"); structure_ref_error();} t73165 = t73171.value.structure_type27692->s7; /* x72059 stalin.sc:3912:132440 */ t73164 = " ~a{~s} is local"; /* x72058 stalin.sc:3912:132433 */ t73167.tag = STRING_TYPE; t73167.value.string_type = t73164; t73169.tag = STRUCTURE_TYPE24753; t73169.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t73169.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3912, 132432); out_of_memory_error();} /* MOVE: dispatching squished to general */ if (t73166==FALSE_TYPE) t73169.value.structure_type24753->s0.tag = (unsigned)t73166; else {t73169.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73169.value.structure_type24753->s0.value.fixnum_type = (int)(((int)t73166)>>1);} t73169.value.structure_type24753->s1.tag = NULL_TYPE; t73168 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t73168==NULL) {backtrace("stalin.sc", 3912, 132432); out_of_memory_error();} t73168->s0 = t73165; t73168->s1 = t73169; f5365(t73167, t73168); goto l12879; l12878: /* x72070 stalin.sc:3911:132416 */ /* x72069 stalin.sc:3911:132416 */ l12879: /* x72052 */ /* x72051 stalin.sc:3913:132502 */ /* x72050 stalin.sc:3913:132517 */ a2038 = TRUE_TYPE; return; l12876: /* x72076 */ /* x72075 */ return;} /* INFER-ALL-WHETHER-LOCAL?![8408] */ void f8408(void) {struct w21193 t73176; struct w36108 t73177; struct w49 t73178; struct structure_type24753 *t73179; char *t73180; struct w49 t73181; struct structure_type24753 *t73182; /* x72092 */ /* x72091 stalin.sc:3903:132171 */ /* x72083 stalin.sc:3903:132177 */ if (a696==FALSE_TYPE) goto l12884; /* x72088 */ /* x72087 */ /* x72086 stalin.sc:3903:132183 */ /* x72085 stalin.sc:3903:132191 */ t73180 = "Determining whether variables are local"; /* x72084 stalin.sc:3903:132184 */ t73181.tag = STRING_TYPE; t73181.value.string_type = t73180; t73182 = (struct structure_type24753 *)NULL_TYPE; f5365(t73181, t73182); goto l12885; l12884: /* x72090 stalin.sc:3903:132171 */ /* x72089 stalin.sc:3903:132171 */ l12885: /* x72082 */ /* x72081 stalin.sc:3904:132236 */ /* x72080 stalin.sc:3914:132526 */ t73176 = a1633; /* x72079 stalin.sc:3905:132248 */ /* x72026 stalin.sc:3904:132237 */ t73177.tag = NATIVE_PROCEDURE_TYPE15827; t73178 = *((struct w49 *)(&t73176)); t73179 = (struct structure_type24753 *)NULL_TYPE; f27755(t73177, t73178, t73179); return;} /* DETERMINE-WHETHER-LOCAL?[8407] */ unsigned f8407(struct w49 a21990) {struct w49 a36877; /* S */ struct w49 a36878; /* S */ struct w49 a41700; /* G */ struct w49 t73183; struct w49 t73184; struct w49 t73185; struct w49 t73186; struct w49 t73187; struct w49 t73188; struct w49 t73189; struct w49 t73190; struct w49 t73191; struct w49 t73192; struct w49 t73193; struct w49 t73194; /* x72023 stalin.sc:3893:131912 */ /* x71981 stalin.sc:3893:131916 */ if (a682==FALSE_TYPE) goto l12887; /* x72005 stalin.sc:3894:131932 */ /* x72005 stalin.sc:3894:131932 */ /* x71984 stalin.sc:3894:131937 */ /* x71983 stalin.sc:3894:131948 */ t73188 = a21990; /* x71982 stalin.sc:3894:131938 */ if (f8229(t73188)==FALSE_TYPE) goto l12894; /* x72003 */ /* x71991 stalin.sc:3895:131954 */ /* x71990 stalin.sc:3895:131959 */ /* x71989 stalin.sc:3895:131972 */ /* x71988 stalin.sc:3895:131991 */ t73190 = a21990; /* x71987 stalin.sc:3895:131973 */ a36877 = t73190; /* x280177 */ /* x280176 */ t73191 = a36877; /* x280175 */ if (!((t73191.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31794]"); structure_ref_error();} t73189 = t73191.value.structure_type27692->s9; /* x71986 stalin.sc:3895:131960 */ if (!(f8793(t73189)==FALSE_TYPE)) goto l12894; /* x72001 */ /* x71994 stalin.sc:3896:131999 */ /* x71993 stalin.sc:3896:132013 */ t73192 = a21990; /* x71992 stalin.sc:3896:132000 */ if (f8372(t73192)==FALSE_TYPE) goto l12894; /* x71999 */ /* x71998 stalin.sc:3897:132024 */ /* x71997 stalin.sc:3897:132033 */ t73193 = a21990; /* x71996 stalin.sc:3897:132025 */ a41700 = t73193; /* x300912 stalin.sc:3916:132554 */ /* x300911 stalin.sc:3916:132572 */ t73194 = a41700; /* x300910 stalin.sc:3916:132555 */ if (!(f8209(t73194)==FALSE_TYPE)) goto l12894; return TRUE_TYPE; l12894: return FALSE_TYPE; l12887: /* x72022 stalin.sc:3898:132043 */ /* x72022 stalin.sc:3898:132043 */ /* x72008 stalin.sc:3898:132048 */ /* x72007 stalin.sc:3898:132059 */ t73183 = a21990; /* x72006 stalin.sc:3898:132049 */ if (f8229(t73183)==FALSE_TYPE) goto l12889; /* x72020 */ /* x72015 stalin.sc:3899:132065 */ /* x72014 stalin.sc:3899:132070 */ /* x72013 stalin.sc:3899:132083 */ /* x72012 stalin.sc:3899:132102 */ t73185 = a21990; /* x72011 stalin.sc:3899:132084 */ a36878 = t73185; /* x280181 */ /* x280180 */ t73186 = a36878; /* x280179 */ if (!((t73186.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31795]"); structure_ref_error();} t73184 = t73186.value.structure_type27692->s9; /* x72010 stalin.sc:3899:132071 */ if (!(f8793(t73184)==FALSE_TYPE)) goto l12889; /* x72018 */ /* x72017 stalin.sc:3900:132124 */ t73187 = a21990; /* x72016 stalin.sc:3900:132111 */ if (f8372(t73187)==FALSE_TYPE) goto l12889; return TRUE_TYPE; l12889: return FALSE_TYPE;} /* GLOBALIZABLE?[8381] */ unsigned f8381(struct w49 a21972) {char *a21973; /* v */ struct w49 a21978; /* E */ struct structure_type24753 *a36090; /* PAIR */ struct w49 a36910; /* S */ struct w49 a36922; /* S */ struct w49 a36923; /* S */ struct w49 a36924; /* S */ struct w49 a36925; /* S */ struct w49 a36926; /* S */ char *t73195; char *t73196; char *t73197; struct w49 t73198; struct w49 t73199; char *t73200; char *t73201; struct w49 t73202; struct w49 t73203; char *t73204; char *t73205; struct w49 t73206; struct w49 t73207; char *t73208; struct w49 t73209; struct w49 t73210; struct w49 t73211; struct w49 t73212; struct w49 t73213; struct w49 t73214; struct w49 t73215; struct w49 t73216; struct w49 t73217; struct w49 t73218; struct w49 t73219; int t73220; int t73221; struct structure_type24753 *t73222; struct w49 t73223; struct w49 t73224; struct w49 t73225; struct w49 t73226; struct w49 t73227; struct w49 t73228; struct structure_type24753 *t73229; struct structure_type24753 *t73230; struct w49 t73231; struct w49 t73232; struct w49 t73233; struct w49 t73234; struct w49 t73235; struct w49 t73236; struct w49 t73237; struct w49 t73238; struct w49 t73239; struct w49 t73240; struct w49 t73241; /* x71853 stalin.sc:3851:130313 */ /* x71852 stalin.sc:3851:130319 */ t73195 = a687; /* x71851 */ a21973 = t73195; /* x71850 */ /* x71728 */ /* x71726 */ t73196 = a21973; /* x71727 */ t73197 = q15; /* x71725 */ /* MOVE: branching squeezed to general */ if (t73196>=((char *)VALUE_OFFSET)) {t73198.tag = EXTERNAL_SYMBOL_TYPE; t73198.value.external_symbol_type = t73196;} else t73198.tag = (unsigned)t73196; t73199.tag = EXTERNAL_SYMBOL_TYPE; t73199.value.external_symbol_type = t73197; if (f26160(t73198, t73199)==FALSE_TYPE) goto l12900; /* x71731 */ /* x71730 */ /* x71729 stalin.sc:3852:130361 */ return FALSE_TYPE; l12900: /* x71849 */ /* x71735 */ /* x71733 */ t73200 = a21973; /* x71734 */ t73201 = q16; /* x71732 */ /* MOVE: branching squeezed to general */ if (t73200>=((char *)VALUE_OFFSET)) {t73202.tag = EXTERNAL_SYMBOL_TYPE; t73202.value.external_symbol_type = t73200;} else t73202.tag = (unsigned)t73200; t73203.tag = EXTERNAL_SYMBOL_TYPE; t73203.value.external_symbol_type = t73201; if (f26160(t73202, t73203)==FALSE_TYPE) goto l12902; /* x71813 */ /* x71812 */ /* x71811 stalin.sc:3854:130386 */ /* x71811 stalin.sc:3854:130386 */ /* x71776 stalin.sc:3854:130391 */ /* x71775 stalin.sc:3854:130395 */ /* x71774 stalin.sc:3854:130400 */ /* x71773 stalin.sc:3854:130408 */ /* x71772 stalin.sc:3854:130416 */ /* x71771 stalin.sc:3854:130438 */ t73218 = a21972; /* x71770 stalin.sc:3854:130417 */ a36925 = t73218; /* x280369 */ /* x280368 */ t73219 = a36925; /* x280367 */ if (!((t73219.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31842]"); structure_ref_error();} t73217 = t73219.value.structure_type27692->s8; /* x71769 stalin.sc:3854:130409 */ t73216 = f8682(t73217); /* x71768 stalin.sc:3854:130401 */ if (f8581(t73216)==FALSE_TYPE) goto l12913; /* x71764 */ /* x71763 stalin.sc:3855:130449 */ /* x71761 stalin.sc:3855:130452 */ /* x71760 stalin.sc:3855:130460 */ /* x71759 stalin.sc:3855:130471 */ /* x71758 stalin.sc:3855:130493 */ t73225 = a21972; /* x71757 stalin.sc:3855:130472 */ a36924 = t73225; /* x280365 */ /* x280364 */ t73226 = a36924; /* x280363 */ if (!((t73226.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31841]"); structure_ref_error();} t73224 = t73226.value.structure_type27692->s8; /* x71756 stalin.sc:3855:130461 */ t73222 = f8987(t73224); /* x71755 stalin.sc:3855:130453 */ /* MOVE: branching squeezed to general */ if (t73222>=((struct structure_type24753 *)VALUE_OFFSET)) {t73223.tag = STRUCTURE_TYPE24753; t73223.value.structure_type24753 = t73222;} else t73223.tag = (unsigned)t73222; t73220 = f26227(t73223); /* x71762 stalin.sc:3855:130498 */ t73221 = 1; /* x270307 stalin.sc:3855:130450 */ if (t73220==t73221) goto l12913; /* x71751 */ /* x71750 stalin.sc:3856:130511 */ /* x71742 stalin.sc:3856:130516 */ t73227 = a21972; /* x71749 stalin.sc:3856:130518 */ /* x71748 stalin.sc:3856:130525 */ /* x71747 stalin.sc:3856:130536 */ /* x71746 stalin.sc:3856:130558 */ t73232 = a21972; /* x71745 stalin.sc:3856:130537 */ a36923 = t73232; /* x280361 */ /* x280360 */ t73233 = a36923; /* x280359 */ if (!((t73233.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31840]"); structure_ref_error();} t73231 = t73233.value.structure_type27692->s8; /* x71744 stalin.sc:3856:130526 */ t73229 = f8987(t73231); /* x71743 stalin.sc:3856:130519 */ a36090 = t73229; /* x275717 */ /* x275716 */ t73230 = a36090; /* x275715 */ if (!(t73230>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 30239]"); structure_ref_error();} t73228 = t73230->s0; /* x270308 stalin.sc:3856:130512 */ /* EQ: dispatching general to general */ if ((t73227.tag)==(t73228.tag)) switch (t73227.tag) {case FIXNUM_TYPE: if ((t73227.value.fixnum_type)==(t73228.value.fixnum_type)) goto l12911; break; case FLONUM_TYPE: if ((t73227.value.flonum_type)==(t73228.value.flonum_type)) goto l12911; break; case INPUT_PORT_TYPE: if ((t73227.value.input_port_type)==(t73228.value.input_port_type)) goto l12911; break; case OUTPUT_PORT_TYPE: if ((t73227.value.output_port_type)==(t73228.value.output_port_type)) goto l12911; break; case NATIVE_PROCEDURE_TYPE15963: if ((t73227.value.native_procedure_type15963)==(t73228.value.native_procedure_type15963)) goto l12911; break; case NATIVE_PROCEDURE_TYPE19067: if ((t73227.value.native_procedure_type19067)==(t73228.value.native_procedure_type19067)) goto l12911; break; case NATIVE_PROCEDURE_TYPE19068: if ((t73227.value.native_procedure_type19068)==(t73228.value.native_procedure_type19068)) goto l12911; break; case NATIVE_PROCEDURE_TYPE22459: if ((t73227.value.native_procedure_type22459)==(t73228.value.native_procedure_type22459)) goto l12911; break; case STRUCTURE_TYPE24753: if ((t73227.value.structure_type24753)==(t73228.value.structure_type24753)) goto l12911; break; case STRUCTURE_TYPE24757: if ((t73227.value.structure_type24757)==(t73228.value.structure_type24757)) goto l12911; break; case STRUCTURE_TYPE27501: if ((t73227.value.structure_type27501)==(t73228.value.structure_type27501)) goto l12911; break; case STRUCTURE_TYPE27510: if ((t73227.value.structure_type27510)==(t73228.value.structure_type27510)) goto l12911; break; case STRUCTURE_TYPE27621: if ((t73227.value.structure_type27621)==(t73228.value.structure_type27621)) goto l12911; break; case STRUCTURE_TYPE27650: if ((t73227.value.structure_type27650)==(t73228.value.structure_type27650)) goto l12911; break; case STRUCTURE_TYPE27669: if ((t73227.value.structure_type27669)==(t73228.value.structure_type27669)) goto l12911; break; case STRUCTURE_TYPE27673: if ((t73227.value.structure_type27673)==(t73228.value.structure_type27673)) goto l12911; break; case STRUCTURE_TYPE27692: if ((t73227.value.structure_type27692)==(t73228.value.structure_type27692)) goto l12911; break; case STRUCTURE_TYPE27694: if ((t73227.value.structure_type27694)==(t73228.value.structure_type27694)) goto l12911; break; case STRUCTURE_TYPE27698: if ((t73227.value.structure_type27698)==(t73228.value.structure_type27698)) goto l12911; break; case STRUCTURE_TYPE27745: if ((t73227.value.structure_type27745)==(t73228.value.structure_type27745)) goto l12911; break; case STRUCTURE_TYPE27747: if ((t73227.value.structure_type27747)==(t73228.value.structure_type27747)) goto l12911; break; case STRUCTURE_TYPE27750: if ((t73227.value.structure_type27750)==(t73228.value.structure_type27750)) goto l12911; break; case STRUCTURE_TYPE27753: if ((t73227.value.structure_type27753)==(t73228.value.structure_type27753)) goto l12911; break; case STRUCTURE_TYPE27756: if ((t73227.value.structure_type27756)==(t73228.value.structure_type27756)) goto l12911; break; case STRUCTURE_TYPE27761: if ((t73227.value.structure_type27761)==(t73228.value.structure_type27761)) goto l12911; break; case STRUCTURE_TYPE27769: if ((t73227.value.structure_type27769)==(t73228.value.structure_type27769)) goto l12911; break; case STRUCTURE_TYPE27776: if ((t73227.value.structure_type27776)==(t73228.value.structure_type27776)) goto l12911; break; case STRUCTURE_TYPE27779: if ((t73227.value.structure_type27779)==(t73228.value.structure_type27779)) goto l12911; break; case STRUCTURE_TYPE27858: if ((t73227.value.structure_type27858)==(t73228.value.structure_type27858)) goto l12911; break; case STRING_TYPE: if ((t73227.value.string_type)==(t73228.value.string_type)) goto l12911; break; case HEADED_VECTOR_TYPE27896: if ((t73227.value.headed_vector_type27896)==(t73228.value.headed_vector_type27896)) goto l12911; break; case EXTERNAL_SYMBOL_TYPE: if ((t73227.value.external_symbol_type)==(t73228.value.external_symbol_type)) goto l12911; break; case STRUCTURE_TYPE27908: if ((t73227.value.structure_type27908)==(t73228.value.structure_type27908)) goto l12911; break; default: goto l12911;} l12913: /* x71809 */ /* x71808 stalin.sc:3857:130581 */ /* x71807 stalin.sc:3857:130603 */ t73240 = a21972; /* x71806 stalin.sc:3857:130582 */ a36922 = t73240; /* x280357 */ /* x280356 */ t73241 = a36922; /* x280355 */ if (!((t73241.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31839]"); structure_ref_error();} t73234 = t73241.value.structure_type27692->s8; /* x71805 */ /* x71804 */ /* x71803 */ /* x71802 */ /* x71801 */ /* x71800 */ /* x71799 */ /* x71778 */ /* x71777 stalin.sc:3857:130572 */ a21978 = t73234; h8389: /* x71798 stalin.sc:3858:130610 */ /* x71797 stalin.sc:3858:130614 */ /* x71796 stalin.sc:3858:130622 */ /* x71795 stalin.sc:3858:130630 */ t73236 = a21978; /* x71794 stalin.sc:3858:130623 */ t73235 = f8682(t73236); /* x71793 stalin.sc:3858:130615 */ if (!(f8581(t73235)==FALSE_TYPE)) goto l12910; /* x71790 */ /* x71783 stalin.sc:3858:130639 */ /* x71782 stalin.sc:3858:130645 */ t73237 = a21978; /* x71781 stalin.sc:3858:130640 */ if (f8903(t73237)==FALSE_TYPE) goto l12911; /* x71788 */ /* x71787 stalin.sc:3858:130654 */ /* x71786 stalin.sc:3858:130662 */ t73239 = a21978; /* x71785 stalin.sc:3858:130655 */ t73238 = f8682(t73239); /* x71784 stalin.sc:3858:130649 */ a21978 = t73238; goto h8389; l12910: return TRUE_TYPE; l12911: return FALSE_TYPE; l12902: /* x71848 */ /* x71817 */ /* x71815 */ t73204 = a21973; /* x71816 */ t73205 = q17; /* x71814 */ /* MOVE: branching squeezed to general */ if (t73204>=((char *)VALUE_OFFSET)) {t73206.tag = EXTERNAL_SYMBOL_TYPE; t73206.value.external_symbol_type = t73204;} else t73206.tag = (unsigned)t73204; t73207.tag = EXTERNAL_SYMBOL_TYPE; t73207.value.external_symbol_type = t73205; if (f26160(t73206, t73207)==FALSE_TYPE) goto l12904; /* x71843 */ /* x71842 */ /* x71841 stalin.sc:3860:130691 */ /* x71841 stalin.sc:3860:130691 */ /* x71840 stalin.sc:3860:130695 */ /* x71839 stalin.sc:3860:130700 */ /* x71838 stalin.sc:3860:130724 */ /* x71837 stalin.sc:3860:130746 */ t73210 = a21972; /* x71836 stalin.sc:3860:130725 */ a36926 = t73210; /* x280373 */ /* x280372 */ t73211 = a36926; /* x280371 */ if (!((t73211.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31843]"); structure_ref_error();} t73209 = t73211.value.structure_type27692->s8; /* x71835 stalin.sc:3860:130701 */ if (f8548(t73209)==FALSE_TYPE) goto l12905; /* x71831 */ /* x71826 stalin.sc:3861:130763 */ /* x71825 stalin.sc:3861:130768 */ /* x71824 stalin.sc:3861:130780 */ /* x71823 stalin.sc:3861:130802 */ t73213 = a21972; /* x71822 stalin.sc:3861:130781 */ a36910 = t73213; /* x280309 */ /* x280308 */ t73214 = a36910; /* x280307 */ if (!((t73214.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31827]"); structure_ref_error();} t73212 = t73214.value.structure_type27692->s8; /* x71821 stalin.sc:3861:130769 */ if (!(f8543(t73212)==FALSE_TYPE)) goto l12906; /* x71829 */ /* x71828 stalin.sc:3861:130820 */ t73215 = a21972; /* x71827 stalin.sc:3861:130808 */ if (f8246(t73215)==FALSE_TYPE) goto l12906; l12905: return TRUE_TYPE; l12906: return FALSE_TYPE; l12904: /* x71847 */ /* x71846 */ /* x71845 stalin.sc:3862:130834 */ /* x71844 stalin.sc:3862:130835 */ /* x296677 QobiScheme.sc:166:5314 */ /* x296676 QobiScheme.sc:166:5321 */ t73208 = "This shouldn\'t happen"; /* x296675 QobiScheme.sc:166:5315 */ stalin_panic(t73208);} /* LOCALIZABLE?[8372] */ unsigned f8372(struct w49 a21967) {char *a21968; /* v */ struct p8372 *t73242; char *t73243; char *t73244; char *t73245; struct w49 t73246; struct w49 t73247; char *t73248; char *t73249; struct w49 t73250; struct w49 t73251; char *t73252; char *t73253; struct w49 t73254; struct w49 t73255; char *t73256; struct p8372 *t73257; struct w49 t73258; struct p8372 *t73259; struct w12224 t73260; struct w228245 t73261; struct w49 t73262; struct structure_type24753 *t73263; struct w49 t73264; struct w49 t73265; struct p8372 *t73266; struct w12224 t73267; struct w228345 t73268; struct w49 t73269; struct structure_type24753 *t73270; struct w49 t73271; struct p8372 *e8372; struct p8372 *p8373; struct p8372 *p8375; struct p8372 *p8376; struct p8372 *p8377; e8372 = (struct p8372 *)alloca(sizeof(struct p8372)); if (e8372==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e8372->a21967 = a21967; /* x71722 stalin.sc:3837:129862 */ /* x71721 stalin.sc:3837:129868 */ t73243 = a687; /* x71720 */ t73242 = e8372; p8373 = t73242; a21968 = t73243; /* x71719 */ /* x71652 */ /* x71650 */ t73244 = a21968; /* x71651 */ t73245 = q15; /* x71649 */ /* MOVE: branching squeezed to general */ if (t73244>=((char *)VALUE_OFFSET)) {t73246.tag = EXTERNAL_SYMBOL_TYPE; t73246.value.external_symbol_type = t73244;} else t73246.tag = (unsigned)t73244; t73247.tag = EXTERNAL_SYMBOL_TYPE; t73247.value.external_symbol_type = t73245; if (f26160(t73246, t73247)==FALSE_TYPE) goto l12919; /* x71655 */ /* x71654 */ /* x71653 stalin.sc:3838:129910 */ return FALSE_TYPE; l12919: /* x71718 */ /* x71659 */ /* x71657 */ t73248 = a21968; /* x71658 */ t73249 = q16; /* x71656 */ /* MOVE: branching squeezed to general */ if (t73248>=((char *)VALUE_OFFSET)) {t73250.tag = EXTERNAL_SYMBOL_TYPE; t73250.value.external_symbol_type = t73248;} else t73250.tag = (unsigned)t73248; t73251.tag = EXTERNAL_SYMBOL_TYPE; t73251.value.external_symbol_type = t73249; if (f26160(t73250, t73251)==FALSE_TYPE) goto l12921; /* x71669 */ /* x71668 */ t73266 = p8373; p8375 = t73266; /* x71667 stalin.sc:3839:129932 */ /* x71667 stalin.sc:3839:129932 */ /* x71666 stalin.sc:3839:129937 */ /* x71665 stalin.sc:3839:129959 */ /* x71664 stalin.sc:3839:129971 */ t73271 = p8375->a21967; /* x71663 stalin.sc:3839:129960 */ t73267 = f8245(t73271); /* x71662 stalin.sc:3839:129943 */ /* x71661 stalin.sc:3839:129938 */ t73268.tag = NATIVE_PROCEDURE_TYPE7612; t73269 = *((struct w49 *)(&t73267)); t73270 = (struct structure_type24753 *)NULL_TYPE; if (!((f1042(t73268, t73269, t73270).tag)==FALSE_TYPE)) goto l12930; return TRUE_TYPE; l12930: return FALSE_TYPE; l12921: /* x71717 */ /* x71673 */ /* x71671 */ t73252 = a21968; /* x71672 */ t73253 = q17; /* x71670 */ /* MOVE: branching squeezed to general */ if (t73252>=((char *)VALUE_OFFSET)) {t73254.tag = EXTERNAL_SYMBOL_TYPE; t73254.value.external_symbol_type = t73252;} else t73254.tag = (unsigned)t73252; t73255.tag = EXTERNAL_SYMBOL_TYPE; t73255.value.external_symbol_type = t73253; if (f26160(t73254, t73255)==FALSE_TYPE) goto l12923; /* x71712 */ /* x71711 */ t73257 = p8373; p8376 = t73257; /* x71710 stalin.sc:3841:129997 */ /* x71710 stalin.sc:3841:129997 */ /* x71705 stalin.sc:3841:130002 */ /* x71704 stalin.sc:3841:130006 */ /* x71703 stalin.sc:3841:130011 */ /* x71702 stalin.sc:3841:130022 */ t73258 = p8376->a21967; /* x71701 stalin.sc:3841:130012 */ if (f8229(t73258)==FALSE_TYPE) goto l12927; p8377 = p8376; /* x71697 */ /* x71696 stalin.sc:3845:130176 */ /* x71695 stalin.sc:3845:130188 */ t73264 = p8377->a21967; /* x71694 stalin.sc:3845:130177 */ t73260 = f8245(t73264); /* x71693 stalin.sc:3842:130070 */ t73259 = p8377; /* x71676 stalin.sc:3842:130064 */ t73261.tag = NATIVE_PROCEDURE_TYPE18141; t73261.value.native_procedure_type18141 = t73259; t73262 = *((struct w49 *)(&t73260)); t73263 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t73261, t73262, t73263)==FALSE_TYPE) goto l12925; l12927: /* x71708 */ /* x71707 stalin.sc:3846:130207 */ t73265 = p8376->a21967; /* x71706 stalin.sc:3846:130195 */ if (f8246(t73265)==FALSE_TYPE) goto l12925; return TRUE_TYPE; l12925: return FALSE_TYPE; l12923: /* x71716 */ /* x71715 */ /* x71714 stalin.sc:3847:130220 */ /* x71713 stalin.sc:3847:130221 */ /* x296673 QobiScheme.sc:166:5314 */ /* x296672 QobiScheme.sc:166:5321 */ t73256 = "This shouldn\'t happen"; /* x296671 QobiScheme.sc:166:5315 */ stalin_panic(t73256);} /* [inside MUST-ALIAS? 8368] */ void f8368(struct w49 a21966) {struct w49 t73272; struct w49 t73273; unsigned t73274; /* x71626 stalin.sc:3795:128485 */ /* x71617 stalin.sc:3795:128493 */ /* x71616 stalin.sc:3795:128515 */ t73272 = a21966; /* x71615 stalin.sc:3795:128494 */ if (f8471(t73272)==FALSE_TYPE) goto l12933; /* x71619 */ /* x71618 */ return; l12933: /* x71625 */ /* x71624 */ /* x71623 stalin.sc:3795:128518 */ /* x71621 stalin.sc:3795:128545 */ t73273 = a21966; /* x71622 stalin.sc:3795:128547 */ /* x71620 stalin.sc:3795:128519 */ t73274 = FALSE_TYPE; f8477(t73273, t73274); return;} /* [inside LOOP 8362] */ void f8362(struct p8347 *p8362, struct w49 a21963) {struct w49 a39921; /* S */ struct w49 t73275; struct w49 t73276; struct w49 t73277; struct w49 t73278; struct p8347 *t73279; struct w49 t73280; struct structure_type24753 *t73281; struct p8347 *p8363; /* x71559 stalin.sc:3805:128834 */ /* x71549 stalin.sc:3805:128840 */ /* x71547 stalin.sc:3805:128852 */ /* x71546 stalin.sc:3805:128873 */ t73277 = a21963; /* x71545 stalin.sc:3805:128853 */ a39921 = t73277; /* x292353 */ /* x292352 */ t73278 = a39921; /* x292351 */ if (!((t73278.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34838]"); structure_ref_error();} t73275 = t73278.value.structure_type27698->s10; /* x71548 stalin.sc:3805:128876 */ t73276 = p8362->p8246->a21882; /* x71544 stalin.sc:3805:128841 */ if ((f9140(t73275, t73276).tag)==FALSE_TYPE) goto l12935; /* x71556 */ /* x71555 */ t73279 = p8362; p8363 = t73279; /* x71554 stalin.sc:3806:128886 */ /* x71553 stalin.sc:3806:128895 */ /* x71551 stalin.sc:3806:128901 */ t73280 = a21963; /* x71552 stalin.sc:3806:128903 */ t73281 = p8363->a21952; /* x270313 stalin.sc:3806:128896 */ p8363->a21952 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p8363->a21952)==NULL) {backtrace("stalin.sc", 3806, 128895); out_of_memory_error();} p8363->a21952->s0 = t73280; /* MOVE: branching squeezed to general */ if (t73281>=((struct structure_type24753 *)VALUE_OFFSET)) {p8363->a21952->s1.tag = STRUCTURE_TYPE24753; p8363->a21952->s1.value.structure_type24753 = t73281;} else p8363->a21952->s1.tag = (unsigned)t73281; return; l12935: /* x71558 stalin.sc:3805:128834 */ /* x71557 stalin.sc:3805:128834 */ return;} /* [inside LOOP 8361] */ void f8361(struct p8347 *p8361, struct w49 a21962) {struct p8347 *t73282; struct w12224 t73283; struct w36108 t73284; struct w49 t73285; struct structure_type24753 *t73286; struct w49 t73287; /* x71564 stalin.sc:3803:128771 */ /* x71563 stalin.sc:3808:128951 */ /* x71562 stalin.sc:3808:128961 */ t73287 = a21962; /* x71561 stalin.sc:3808:128952 */ t73283 = f8243(t73287); /* x71560 stalin.sc:3803:128781 */ t73282 = p8361; /* x71543 stalin.sc:3803:128772 */ t73284.tag = NATIVE_PROCEDURE_TYPE20380; t73284.value.native_procedure_type20380 = t73282; t73285 = *((struct w49 *)(&t73283)); t73286 = (struct structure_type24753 *)NULL_TYPE; f27755(t73284, t73285, t73286); return;} /* [inside LOOP 8328] */ void f8328(struct p8291 *p8328, struct w49 a21944) {struct w49 a37112; /* S */ struct w49 a37113; /* S */ struct w49 a37114; /* S */ struct w49 a37115; /* S */ struct w49 a37116; /* S */ struct w49 a37150; /* OBJ */ struct w49 a40317; /* S */ struct w49 a40422; /* OBJ */ struct w49 t73288; struct w49 t73289; struct w49 t73290; char *t73291; struct p8291 *t73292; struct p8291 *t73293; struct w49 t73294; struct p8291 *t73295; struct w49 t73296; struct p8291 *t73297; struct p8291 *t73298; struct w49 t73299; struct w49 t73300; struct w49 t73301; struct w49 t73302; struct w49 t73303; struct w49 t73304; struct w49 t73305; char *t73306; char *t73307; struct w49 t73308; struct w49 t73309; struct w49 t73310; struct w49 t73311; struct p8291 *t73312; struct w49 t73313; struct structure_type24753 *t73314; struct w49 t73315; struct w49 t73316; struct p8291 *t73317; struct p8291 *t73318; struct w49 t73319; struct w49 t73320; struct w49 t73321; struct w49 t73322; unsigned t73323; struct p8291 *p8329; struct p8291 *p8331; struct p8291 *p8332; struct p8291 *p8333; struct p8291 *p8334; struct p8291 *p8336; /* x71367 stalin.sc:3672:124348 */ /* x71297 stalin.sc:3672:124355 */ /* x71296 stalin.sc:3672:124366 */ t73288 = a21944; /* x71295 stalin.sc:3672:124356 */ a37150 = t73288; /* x281269 */ /* x281268 */ t73289 = a37150; /* x281267 */ if (!((t73289.tag)==STRUCTURE_TYPE27650)) goto l12937; /* x71353 */ /* x71352 */ t73295 = p8328; p8329 = t73295; /* x71351 stalin.sc:3673:124375 */ /* x71300 stalin.sc:3673:124383 */ /* x71299 stalin.sc:3673:124401 */ t73296 = a21944; /* x71298 stalin.sc:3673:124384 */ if (f8112(t73296)==FALSE_TYPE) goto l12941; /* x71302 */ /* x71301 */ return; l12941: /* x71350 */ /* x71349 */ t73297 = p8329; p8331 = t73297; /* x71348 */ /* x71347 stalin.sc:3674:124411 */ /* x71345 stalin.sc:3674:124434 */ t73322 = a21944; /* x71346 stalin.sc:3674:124438 */ /* x71344 stalin.sc:3674:124412 */ t73323 = TRUE_TYPE; f8113(t73322, t73323); /* x71343 */ t73298 = p8331; p8332 = t73298; /* x71342 stalin.sc:3675:124447 */ /* x71307 stalin.sc:3675:124454 */ /* x71306 stalin.sc:3675:124461 */ /* x71305 stalin.sc:3675:124480 */ t73300 = a21944; /* x71304 stalin.sc:3675:124462 */ a37116 = t73300; /* x281133 */ /* x281132 */ t73301 = a37116; /* x281131 */ if (!((t73301.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32033]"); structure_ref_error();} t73299 = t73301.value.structure_type27650->s0; /* x71303 stalin.sc:3675:124455 */ if (f7755(t73299)==FALSE_TYPE) goto l12943; /* x71314 */ /* x71313 */ t73317 = p8332; p8333 = t73317; /* x71312 stalin.sc:3676:124491 */ /* x71311 stalin.sc:3676:124497 */ /* x71310 stalin.sc:3676:124516 */ t73320 = a21944; /* x71309 stalin.sc:3676:124498 */ a37112 = t73320; /* x281117 */ /* x281116 */ t73321 = a37112; /* x281115 */ if (!((t73321.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32029]"); structure_ref_error();} t73319 = t73321.value.structure_type27650->s0; /* x71308 stalin.sc:3676:124492 */ t73318 = p8333; f8324(t73318, t73319); return; l12943: /* x71341 */ /* x71329 stalin.sc:3677:124528 */ /* x71319 stalin.sc:3677:124533 */ /* x71318 stalin.sc:3677:124546 */ /* x71317 stalin.sc:3677:124565 */ t73304 = a21944; /* x71316 stalin.sc:3677:124547 */ a37115 = t73304; /* x281129 */ /* x281128 */ t73305 = a37115; /* x281127 */ if (!((t73305.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32032]"); structure_ref_error();} t73302 = t73305.value.structure_type27650->s0; /* x71315 stalin.sc:3677:124534 */ a40422 = t73302; /* x294357 */ /* x294356 */ t73303 = a40422; /* x294355 */ if (!((t73303.tag)==STRUCTURE_TYPE27698)) goto l12945; /* x71327 */ /* x71325 stalin.sc:3679:124607 */ /* x71324 stalin.sc:3679:124624 */ /* x71323 stalin.sc:3679:124643 */ t73310 = a21944; /* x71322 stalin.sc:3679:124625 */ a37114 = t73310; /* x281125 */ /* x281124 */ t73311 = a37114; /* x281123 */ if (!((t73311.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32031]"); structure_ref_error();} t73308 = t73311.value.structure_type27650->s0; /* x71321 stalin.sc:3679:124608 */ a40317 = t73308; /* x293937 */ /* x293936 */ t73309 = a40317; /* x293935 */ if (!((t73309.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35234]"); structure_ref_error();} t73306 = t73309.value.structure_type27698->s0; /* x71326 stalin.sc:3680:124657 */ t73307 = q38; /* x270317 stalin.sc:3679:124603 */ if (!(t73306==t73307)) goto l12945; /* x71338 */ /* x71337 */ t73312 = p8332; p8334 = t73312; /* x71336 stalin.sc:3681:124672 */ /* x71335 stalin.sc:3681:124681 */ /* x71333 stalin.sc:3681:124687 */ /* x71332 stalin.sc:3681:124706 */ t73315 = a21944; /* x71331 stalin.sc:3681:124688 */ a37113 = t73315; /* x281121 */ /* x281120 */ t73316 = a37113; /* x281119 */ if (!((t73316.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32030]"); structure_ref_error();} t73313 = t73316.value.structure_type27650->s0; /* x71334 stalin.sc:3681:124711 */ t73314 = p8334->a21915; /* x270316 stalin.sc:3681:124682 */ p8334->a21915 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p8334->a21915)==NULL) {backtrace("stalin.sc", 3681, 124681); out_of_memory_error();} p8334->a21915->s0 = t73313; /* MOVE: branching squeezed to general */ if (t73314>=((struct structure_type24753 *)VALUE_OFFSET)) {p8334->a21915->s1.tag = STRUCTURE_TYPE24753; p8334->a21915->s1.value.structure_type24753 = t73314;} else p8334->a21915->s1.tag = (unsigned)t73314; return; l12945: /* x71340 */ /* x71339 */ return; l12937: /* x71366 */ /* x71356 stalin.sc:3682:124724 */ /* x71355 stalin.sc:3682:124731 */ t73290 = a21944; /* x71354 stalin.sc:3682:124725 */ if (f7755(t73290)==FALSE_TYPE) goto l12939; /* x71361 */ /* x71360 */ t73292 = p8328; p8336 = t73292; /* x71359 stalin.sc:3682:124736 */ /* x71358 stalin.sc:3682:124742 */ t73294 = a21944; /* x71357 stalin.sc:3682:124737 */ t73293 = p8336; f8324(t73293, t73294); return; l12939: /* x71365 */ /* x71364 */ /* x71363 stalin.sc:3683:124757 */ /* x71362 stalin.sc:3683:124758 */ /* x296665 QobiScheme.sc:166:5314 */ /* x296664 QobiScheme.sc:166:5321 */ t73291 = "This shouldn\'t happen"; /* x296663 QobiScheme.sc:166:5315 */ stalin_panic(t73291);} /* LOOP[8324] */ void f8324(struct p8291 *p8324, struct w49 a21942) {struct w49 t73324; struct p8291 *t73325; struct p8291 *t73326; struct p8291 *t73327; struct w3457 t73328; struct w36108 t73329; struct w49 t73330; struct structure_type24753 *t73331; struct w49 t73332; struct w49 t73333; struct p8291 *p8326; struct p8291 *p8327; /* x71381 stalin.sc:3668:124263 */ /* x71291 stalin.sc:3668:124271 */ /* x71290 stalin.sc:3668:124285 */ t73324 = a21942; /* x71289 stalin.sc:3668:124272 */ if (f7801(t73324)==FALSE_TYPE) goto l12948; /* x71293 */ /* x71292 */ return; l12948: /* x71380 */ /* x71379 */ t73325 = p8324; p8326 = t73325; /* x71378 */ /* x71377 stalin.sc:3669:124290 */ /* x71375 stalin.sc:3669:124309 */ t73333 = a21942; /* x71376 stalin.sc:3669:124311 */ /* x71374 stalin.sc:3669:124291 */ f7825(t73333); /* x71373 */ t73326 = p8326; p8327 = t73326; /* x71372 stalin.sc:3670:124317 */ /* x71371 stalin.sc:3684:124773 */ /* x71370 stalin.sc:3684:124817 */ t73332 = a21942; /* x71369 stalin.sc:3684:124774 */ t73328 = f7984(t73332); /* x71368 stalin.sc:3671:124330 */ t73327 = p8327; /* x71294 stalin.sc:3670:124318 */ t73329.tag = NATIVE_PROCEDURE_TYPE18153; t73329.value.native_procedure_type18153 = t73327; t73330 = *((struct w49 *)(&t73328)); t73331 = (struct structure_type24753 *)NULL_TYPE; f27755(t73329, t73330, t73331); return;} /* [inside LOOP 8312] */ void f8312(struct w49 a21935) {char *a21936; /* v */ struct w49 a39466; /* S */ struct w49 a40267; /* S */ char *t73334; char *t73335; char *t73336; struct w49 t73337; struct w49 t73338; char *t73339; char *t73340; struct w49 t73341; struct w49 t73342; char *t73343; char *t73344; struct w49 t73345; struct w49 t73346; struct w9140 t73347; struct w49 t73348; struct w49 t73349; struct w49 t73350; struct w49 t73351; struct w49 t73352; /* x71201 stalin.sc:3729:126285 */ /* x71200 stalin.sc:3729:126291 */ /* x71199 stalin.sc:3729:126308 */ t73351 = a21935; /* x71198 stalin.sc:3729:126292 */ a40267 = t73351; /* x293737 */ /* x293736 */ t73352 = a40267; /* x293735 */ if (!((t73352.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35184]"); structure_ref_error();} t73334 = t73352.value.structure_type27698->s0; /* x71197 */ a21936 = t73334; /* x71196 */ /* x71186 */ /* x71185 */ /* x71183 */ t73335 = a21936; /* x71184 */ t73336 = q39; /* x71182 */ t73337.tag = EXTERNAL_SYMBOL_TYPE; t73337.value.external_symbol_type = t73335; t73338.tag = EXTERNAL_SYMBOL_TYPE; t73338.value.external_symbol_type = t73336; if (!(f26160(t73337, t73338)==FALSE_TYPE)) goto l12949; /* x71179 */ /* x71178 */ /* x71176 */ t73339 = a21936; /* x71177 */ t73340 = q40; /* x71175 */ t73341.tag = EXTERNAL_SYMBOL_TYPE; t73341.value.external_symbol_type = t73339; t73342.tag = EXTERNAL_SYMBOL_TYPE; t73342.value.external_symbol_type = t73340; if (!(f26160(t73341, t73342)==FALSE_TYPE)) goto l12949; /* x71172 */ /* x71170 */ t73343 = a21936; /* x71171 */ t73344 = q41; /* x71169 */ t73345.tag = EXTERNAL_SYMBOL_TYPE; t73345.value.external_symbol_type = t73343; t73346.tag = EXTERNAL_SYMBOL_TYPE; t73346.value.external_symbol_type = t73344; if (f26160(t73345, t73346)==FALSE_TYPE) goto l12950; l12949: /* x71193 */ /* x71192 */ /* x71191 stalin.sc:3731:126372 */ /* x71190 stalin.sc:3731:126378 */ /* x71189 stalin.sc:3731:126409 */ t73349 = a21935; /* x71188 stalin.sc:3731:126379 */ a39466 = t73349; /* x290533 */ /* x290532 */ t73350 = a39466; /* x290531 */ if (!((t73350.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34383]"); structure_ref_error();} t73347 = t73350.value.structure_type27698->s13; /* x71187 stalin.sc:3731:126373 */ t73348 = *((struct w49 *)(&t73347)); f8309(t73348); return; l12950: /* x71195 */ /* x71194 */ return;} /* LOOP[8309] */ void f8309(struct w49 a21933) {struct w49 a20748; /* S */ struct w49 t73353; struct w11873 t73354; struct w36108 t73355; struct w49 t73356; struct structure_type24753 *t73357; struct w49 t73358; struct w49 t73359; struct w49 t73360; unsigned t73361; /* x71217 stalin.sc:3725:126177 */ /* x71163 stalin.sc:3725:126183 */ /* x71162 stalin.sc:3725:126202 */ t73353 = a21933; /* x71161 stalin.sc:3725:126184 */ if (f8526(t73353)==FALSE_TYPE) goto l12954; /* x71214 */ /* x71213 */ /* x71212 */ /* x71211 stalin.sc:3726:126214 */ /* x71209 stalin.sc:3726:126241 */ t73360 = a21933; /* x71210 stalin.sc:3726:126243 */ /* x71208 stalin.sc:3726:126215 */ t73361 = TRUE_TYPE; f8477(t73360, t73361); /* x71207 */ /* x71206 stalin.sc:3727:126256 */ /* x71205 stalin.sc:3732:126419 */ /* x71204 stalin.sc:3732:126444 */ t73358 = a21933; /* x71203 stalin.sc:3732:126420 */ a20748 = t73358; /* x56198 */ /* x56197 */ t73359 = a20748; /* x56196 */ if (!((t73359.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("ENVIRONMENT-EXPRESSIONS[6807]"); structure_ref_error();} t73354 = t73359.value.structure_type27694->s22; /* x71202 stalin.sc:3728:126269 */ /* x71164 stalin.sc:3727:126257 */ t73355.tag = NATIVE_PROCEDURE_TYPE24024; t73356 = *((struct w49 *)(&t73354)); t73357 = (struct structure_type24753 *)NULL_TYPE; f27755(t73355, t73356, t73357); return; l12954: /* x71216 stalin.sc:3725:126177 */ /* x71215 stalin.sc:3725:126177 */ return;} /* [inside LOOP? 8306] */ void f8306(struct w49 a21930) {struct w49 t73362; unsigned t73363; /* x71155 stalin.sc:3722:126093 */ /* x71153 stalin.sc:3722:126120 */ t73362 = a21930; /* x71154 stalin.sc:3722:126122 */ /* x71152 stalin.sc:3722:126094 */ t73363 = FALSE_TYPE; f8477(t73362, t73363); return;} /* [inside LOOP 8273] */ void f8273(struct w49 a21906) {char *a21907; /* v */ struct w49 a36902; /* S */ struct w49 a39117; /* S */ struct w49 a39486; /* S */ struct w49 a39487; /* S */ struct w49 a39953; /* S */ struct w49 a40296; /* S */ char *t73364; char *t73365; char *t73366; struct w49 t73367; struct w49 t73368; char *t73369; char *t73370; struct w49 t73371; struct w49 t73372; char *t73373; char *t73374; struct w49 t73375; struct w49 t73376; char *t73377; char *t73378; struct w49 t73379; struct w49 t73380; struct w9140 t73381; struct w49 t73382; struct w49 t73383; struct w49 t73384; struct w9140 t73385; struct w49 t73386; struct w49 t73387; struct w49 t73388; struct w49 t73389; struct w49 t73390; struct w49 t73391; struct w49 t73392; struct w49 t73393; struct w49 t73394; unsigned t73395; struct w49 t73396; struct w49 t73397; struct w49 t73398; struct w49 t73399; /* x70998 stalin.sc:3603:122056 */ /* x70997 stalin.sc:3603:122062 */ /* x70996 stalin.sc:3603:122079 */ t73398 = a21906; /* x70995 stalin.sc:3603:122063 */ a40296 = t73398; /* x293853 */ /* x293852 */ t73399 = a40296; /* x293851 */ if (!((t73399.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35213]"); structure_ref_error();} t73364 = t73399.value.structure_type27698->s0; /* x70994 */ a21907 = t73364; /* x70993 */ /* x70929 */ /* x70927 */ t73365 = a21907; /* x70928 */ t73366 = q38; /* x70926 */ t73367.tag = EXTERNAL_SYMBOL_TYPE; t73367.value.external_symbol_type = t73365; t73368.tag = EXTERNAL_SYMBOL_TYPE; t73368.value.external_symbol_type = t73366; if (f26160(t73367, t73368)==FALSE_TYPE) goto l12956; /* x70950 */ /* x70949 */ /* x70948 stalin.sc:3606:122123 */ /* x70936 stalin.sc:3606:122129 */ /* x70935 stalin.sc:3607:122155 */ /* x70934 stalin.sc:3607:122177 */ /* x70933 stalin.sc:3607:122198 */ t73392 = a21906; /* x70932 stalin.sc:3607:122178 */ a39117 = t73392; /* x289137 */ /* x289136 */ t73393 = a39117; /* x289135 */ if (!((t73393.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34034]"); structure_ref_error();} t73390 = t73393.value.structure_type27698->s16; /* x70931 stalin.sc:3607:122156 */ a36902 = t73390; /* x280277 */ /* x280276 */ t73391 = a36902; /* x280275 */ if (!((t73391.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31819]"); structure_ref_error();} t73389 = t73391.value.structure_type27692->s8; /* x70930 stalin.sc:3606:122130 */ if (f8471(t73389)==FALSE_TYPE) goto l12964; /* x70945 */ /* x70944 */ /* x70943 stalin.sc:3611:122317 */ /* x70939 stalin.sc:3612:122349 */ /* x70942 stalin.sc:3612:122365 */ /* x70941 stalin.sc:3612:122386 */ t73396 = a21906; /* x70940 stalin.sc:3612:122366 */ a39953 = t73396; /* x292481 */ /* x292480 */ t73397 = a39953; /* x292479 */ if (!((t73397.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34870]"); structure_ref_error();} t73394 = t73397.value.structure_type27698->s10; /* x70937 stalin.sc:3611:122318 */ t73395 = NATIVE_PROCEDURE_TYPE19117; f9081(t73395, t73394); return; l12964: /* x70947 stalin.sc:3606:122123 */ /* x70946 stalin.sc:3606:122123 */ return; l12956: /* x70992 */ /* x70972 */ /* x70971 */ /* x70969 */ t73369 = a21907; /* x70970 */ t73370 = q39; /* x70968 */ t73371.tag = EXTERNAL_SYMBOL_TYPE; t73371.value.external_symbol_type = t73369; t73372.tag = EXTERNAL_SYMBOL_TYPE; t73372.value.external_symbol_type = t73370; if (!(f26160(t73371, t73372)==FALSE_TYPE)) goto l12957; /* x70965 */ /* x70964 */ /* x70962 */ t73373 = a21907; /* x70963 */ t73374 = q40; /* x70961 */ t73375.tag = EXTERNAL_SYMBOL_TYPE; t73375.value.external_symbol_type = t73373; t73376.tag = EXTERNAL_SYMBOL_TYPE; t73376.value.external_symbol_type = t73374; if (!(f26160(t73375, t73376)==FALSE_TYPE)) goto l12957; /* x70958 */ /* x70956 */ t73377 = a21907; /* x70957 */ t73378 = q41; /* x70955 */ t73379.tag = EXTERNAL_SYMBOL_TYPE; t73379.value.external_symbol_type = t73377; t73380.tag = EXTERNAL_SYMBOL_TYPE; t73380.value.external_symbol_type = t73378; if (f26160(t73379, t73380)==FALSE_TYPE) goto l12958; l12957: /* x70989 */ /* x70988 */ /* x70987 stalin.sc:3614:122449 */ /* x70977 stalin.sc:3614:122455 */ /* x70976 stalin.sc:3614:122474 */ /* x70975 stalin.sc:3614:122505 */ t73383 = a21906; /* x70974 stalin.sc:3614:122475 */ a39487 = t73383; /* x290617 */ /* x290616 */ t73384 = a39487; /* x290615 */ if (!((t73384.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34404]"); structure_ref_error();} t73381 = t73384.value.structure_type27698->s13; /* x70973 stalin.sc:3614:122456 */ t73382 = *((struct w49 *)(&t73381)); if (f8526(t73382)==FALSE_TYPE) goto l12962; /* x70984 */ /* x70983 */ /* x70982 stalin.sc:3615:122514 */ /* x70981 stalin.sc:3615:122520 */ /* x70980 stalin.sc:3615:122551 */ t73387 = a21906; /* x70979 stalin.sc:3615:122521 */ a39486 = t73387; /* x290613 */ /* x290612 */ t73388 = a39486; /* x290611 */ if (!((t73388.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34403]"); structure_ref_error();} t73385 = t73388.value.structure_type27698->s13; /* x70978 stalin.sc:3615:122515 */ t73386 = *((struct w49 *)(&t73385)); f8272(t73386); return; l12962: /* x70986 stalin.sc:3614:122449 */ /* x70985 stalin.sc:3614:122449 */ return; l12958: /* x70991 */ /* x70990 */ return;} /* LOOP[8272] */ void f8272(struct w49 a21905) {struct w49 a36547; /* S */ struct w11873 t73400; struct w36108 t73401; struct w49 t73402; struct structure_type24753 *t73403; struct w49 t73404; struct w49 t73405; /* x71003 stalin.sc:3601:122024 */ /* x71002 stalin.sc:3616:122567 */ /* x71001 stalin.sc:3616:122592 */ t73404 = a21905; /* x71000 stalin.sc:3616:122568 */ a36547 = t73404; /* x278857 */ /* x278856 */ t73405 = a36547; /* x278855 */ if (!((t73405.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSIONS[6807] 31464]"); structure_ref_error();} t73400 = t73405.value.structure_type27694->s22; /* x70999 stalin.sc:3602:122042 */ /* x70925 stalin.sc:3601:122025 */ t73401.tag = NATIVE_PROCEDURE_TYPE18935; t73402 = *((struct w49 *)(&t73400)); t73403 = (struct structure_type24753 *)NULL_TYPE; f27755(t73401, t73402, t73403); return;} /* [inside MUST-ALIAS? 8262] */ void f8262(struct w49 a21898) {struct w49 t73406; struct w16638 t73407; /* x70885 stalin.sc:3592:121681 */ /* x70883 stalin.sc:3592:121708 */ t73406 = a21898; /* x70884 stalin.sc:3592:121710 */ /* x70882 stalin.sc:3592:121682 */ t73407.tag = FALSE_TYPE; f8472(t73406, t73407); return;} /* MUST-ALIAS?[8246] */ unsigned f8246(struct w49 a21882) {struct w49 a21901; /* E */ struct structure_type24753 *a21915; /* XS */ struct structure_type24753 *a21952; /* XS */ struct w49 a21960; /* E */ struct w49 a36907; /* S */ struct w49 a36908; /* S */ struct w49 a36909; /* S */ struct w49 a36921; /* S */ struct w49 a37020; /* OBJ */ struct w49 a37806; /* S */ struct w49 a37835; /* S */ struct w49 a37840; /* S */ struct w49 a37841; /* S */ struct w49 a37842; /* S */ struct w49 a37892; /* OBJ */ struct w49 a38105; /* OBJ */ struct w49 a39922; /* S */ struct w49 a40057; /* S */ struct w49 a40058; /* S */ struct w49 a40059; /* S */ struct w49 t73408; struct w49 t73409; struct w49 t73410; struct w49 t73411; struct w49 t73412; struct w49 t73413; char *t73414; struct p8246 *t73415; struct w49 t73416; struct p8246 *t73417; struct w49 t73418; struct w211257 t73419; struct w49 t73420; struct w49 t73421; struct w49 t73422; struct w49 t73423; struct w49 t73424; struct w49 t73425; struct p8246 *t73426; struct p8246 *t73427; struct p8246 *t73430; struct p8347 *t73431; struct p8347 *t73432; struct w3457 t73433; struct w228345 t73434; struct w49 t73435; struct structure_type24753 *t73436; struct w49 t73437; struct w49 t73438; struct p8347 *t73439; struct w49 t73440; struct w49 t73441; struct p8347 *t73442; struct p8347 *t73443; struct p8347 *t73444; struct w49 t73445; struct w49 t73446; struct p8347 *t73447; struct structure_type24753 *t73448; struct w36108 t73449; struct w49 t73450; struct structure_type24753 *t73451; struct w49 t73452; struct p8347 *t73453; struct p8347 *t73454; struct w49 t73455; struct w49 t73456; struct w49 t73457; struct w49 t73458; struct w49 t73459; unsigned t73460; unsigned t73461; unsigned t73462; struct w49 t73463; struct w49 t73464; struct w49 t73465; struct w49 t73466; struct w49 t73467; struct p11619 *t73468; unsigned t73469; unsigned t73470; struct w49 t73471; struct w49 t73472; struct w49 t73473; struct w49 t73474; struct w21193 t73475; struct w36108 t73476; struct w49 t73477; struct structure_type24753 *t73478; struct p8246 *t73479; struct p8246 *t73480; struct w11873 t73481; struct w228345 t73482; struct w49 t73483; struct structure_type24753 *t73484; struct w49 t73485; struct w3457 t73486; struct w228345 t73487; struct w49 t73488; struct structure_type24753 *t73489; struct w49 t73490; struct w49 t73491; struct p8246 *t73492; struct p8291 *t73493; struct p8291 *t73494; struct w11873 t73495; struct w228345 t73496; struct w49 t73497; struct structure_type24753 *t73498; struct w49 t73499; struct p8291 *t73500; struct w49 t73501; struct p8291 *t73502; struct p8291 *t73503; struct p8246 *t73504; struct w49 t73505; struct p8246 *t73506; struct w12224 t73507; struct w228345 t73508; struct w49 t73509; struct structure_type24753 *t73510; struct w49 t73511; struct w49 t73512; struct w49 t73513; struct w49 t73514; struct w49 t73515; struct p8246 *t73516; struct p8246 *t73517; struct p8246 *t73519; struct w12224 t73520; struct w228345 t73521; struct w49 t73522; struct structure_type24753 *t73523; struct w49 t73524; struct w21193 t73525; struct w36108 t73526; struct w49 t73527; struct structure_type24753 *t73528; struct w49 t73529; struct w49 t73530; struct w49 t73531; struct w49 t73532; struct w49 t73533; struct w16638 t73534; struct w49 t73535; struct w49 t73536; struct w49 t73537; struct w49 t73538; struct w49 t73539; struct w49 t73540; unsigned t73541; unsigned t73542; unsigned t73543; struct w49 t73544; struct w49 t73545; struct p8246 *e8246; struct p8291 *e8291; struct p8347 *e8347; struct p8246 *p8247; struct p8246 *p8254; struct p8246 *p8255; struct p8246 *p8287; struct p8246 *p8291; struct p8291 *p8292; struct p8291 *p8322; struct p8291 *p8323; struct p8246 *p8339; struct p8246 *p8345; struct p8246 *p8346; struct p8246 *p8347; struct p8347 *p8348; struct p8347 *p8355; struct p8347 *p8356; struct p8347 *p8357; struct p8347 *p8359; struct p8347 *p8360; e8246 = (struct p8246 *)alloca(sizeof(struct p8246)); if (e8246==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e8246->a21882 = a21882; /* x71646 stalin.sc:3560:120679 */ /* x70757 stalin.sc:3561:120688 */ /* x70756 stalin.sc:3561:120699 */ t73408 = e8246->a21882; /* x70755 stalin.sc:3561:120689 */ a37020 = t73408; /* x280749 */ /* x280748 */ t73409 = a37020; /* x280747 */ if (!((t73409.tag)==STRUCTURE_TYPE27692)) goto l12966; /* x71035 */ /* x71034 */ t73504 = e8246; p8247 = t73504; /* x71033 stalin.sc:3562:120707 */ /* x71033 stalin.sc:3562:120707 */ /* x70816 stalin.sc:3563:120716 */ /* x70815 stalin.sc:3564:120726 */ /* x70761 stalin.sc:3565:120737 */ /* x70760 stalin.sc:3565:120748 */ t73505 = p8247->a21882; /* x70759 stalin.sc:3565:120738 */ if (f8229(t73505)==FALSE_TYPE) goto l12989; /* x70813 */ /* x70812 stalin.sc:3586:121470 */ /* x70811 stalin.sc:3586:121482 */ t73511 = p8247->a21882; /* x70810 stalin.sc:3586:121471 */ t73507 = f8245(t73511); /* x70809 stalin.sc:3567:120830 */ t73506 = p8247; /* x70762 stalin.sc:3567:120825 */ t73508.tag = NATIVE_PROCEDURE_TYPE18171; t73508.value.native_procedure_type18171 = t73506; t73509 = *((struct w49 *)(&t73507)); t73510 = (struct structure_type24753 *)NULL_TYPE; if (!((f1042(t73508, t73509, t73510).tag)==FALSE_TYPE)) goto l12987; l12989: /* x71031 */ /* x71030 stalin.sc:3588:121504 */ /* x70820 stalin.sc:3589:121515 */ /* x70819 stalin.sc:3589:121526 */ t73512 = p8247->a21882; /* x70818 stalin.sc:3589:121516 */ if (f8229(t73512)==FALSE_TYPE) goto l12986; /* x71028 */ /* x70825 stalin.sc:3591:121606 */ /* x70824 stalin.sc:3591:121618 */ /* x70823 stalin.sc:3591:121640 */ t73514 = p8247->a21882; /* x70822 stalin.sc:3591:121619 */ a36921 = t73514; /* x280353 */ /* x280352 */ t73515 = a36921; /* x280351 */ if (!((t73515.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31838]"); structure_ref_error();} t73513 = t73515.value.structure_type27692->s8; /* x70821 stalin.sc:3591:121607 */ if (f8538(t73513)==FALSE_TYPE) goto l12986; /* x71026 */ /* x71025 */ t73516 = p8247; p8254 = t73516; /* x71024 */ /* x70888 stalin.sc:3592:121659 */ /* x70887 stalin.sc:3592:121715 */ t73525 = a1594; /* x70886 stalin.sc:3592:121669 */ /* x70881 stalin.sc:3592:121660 */ t73526.tag = NATIVE_PROCEDURE_TYPE18943; t73527 = *((struct w49 *)(&t73525)); t73528 = (struct structure_type24753 *)NULL_TYPE; f27755(t73526, t73527, t73528); /* x70890 stalin.sc:3593:121727 */ /* x70889 stalin.sc:3593:121728 */ f9027(); /* x70922 stalin.sc:3595:121798 */ /* x70921 stalin.sc:3595:121812 */ /* x70920 stalin.sc:3595:121834 */ t73535 = p8254->a21882; /* x70919 stalin.sc:3595:121813 */ a36907 = t73535; /* x280297 */ /* x280296 */ t73536 = a36907; /* x280295 */ if (!((t73536.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31824]"); structure_ref_error();} t73529 = t73536.value.structure_type27692->s8; /* x70918 */ /* x70917 */ /* x70916 */ /* x70915 */ /* x70914 */ /* x70913 */ /* x70912 */ /* x70892 */ /* x70891 stalin.sc:3595:121803 */ a21901 = t73529; h8265: /* x70911 stalin.sc:3596:121848 */ /* x70895 stalin.sc:3596:121856 */ /* x70894 stalin.sc:3596:121864 */ t73530 = a21901; /* x70893 stalin.sc:3596:121857 */ if (f8581(t73530)==FALSE_TYPE) goto l12994; /* x70897 */ /* x70896 */ goto l12995; l12994: /* x70910 */ /* x70909 */ /* x70908 */ /* x70907 stalin.sc:3597:121875 */ /* x70905 stalin.sc:3597:121902 */ t73533 = a21901; /* x70906 stalin.sc:3597:121904 */ /* x70904 stalin.sc:3597:121876 */ t73534.tag = TRUE_TYPE; f8472(t73533, t73534); /* x70903 */ /* x70902 stalin.sc:3598:121916 */ /* x70901 stalin.sc:3598:121922 */ /* x70900 stalin.sc:3598:121930 */ t73532 = a21901; /* x70899 stalin.sc:3598:121923 */ t73531 = f8682(t73532); /* x70898 stalin.sc:3598:121917 */ a21901 = t73531; goto h8265; l12995: /* x71014 stalin.sc:3600:121974 */ /* x71013 stalin.sc:3600:121988 */ /* x71012 stalin.sc:3600:122010 */ t73538 = p8254->a21882; /* x71011 stalin.sc:3600:121989 */ a36908 = t73538; /* x280301 */ /* x280300 */ t73539 = a36908; /* x280299 */ if (!((t73539.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31825]"); structure_ref_error();} t73537 = t73539.value.structure_type27692->s8; /* x71010 */ /* x71009 */ /* x71008 */ /* x71007 */ /* x71006 */ /* x71005 */ /* x71004 */ /* x70924 */ /* x70923 stalin.sc:3600:121979 */ f8272(t73537); /* x71023 stalin.sc:3619:122706 */ /* x71017 stalin.sc:3619:122726 */ /* x71018 stalin.sc:3620:122747 */ /* x71019 stalin.sc:3621:122773 */ /* x71022 stalin.sc:3622:122804 */ /* x71021 stalin.sc:3622:122826 */ t73544 = p8254->a21882; /* x71020 stalin.sc:3622:122805 */ a36909 = t73544; /* x280305 */ /* x280304 */ t73545 = a36909; /* x280303 */ if (!((t73545.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31826]"); structure_ref_error();} t73540 = t73545.value.structure_type27692->s8; /* x71015 stalin.sc:3619:122707 */ t73541 = NATIVE_PROCEDURE_TYPE18930; t73542 = NATIVE_PROCEDURE_TYPE7309; t73543 = NATIVE_PROCEDURE_TYPE7308; f11537(t73541, t73542, t73543, t73540); /* x70880 */ t73517 = p8254; p8255 = t73517; /* x70879 stalin.sc:3624:122870 */ /* x70878 stalin.sc:3643:123477 */ /* x70877 stalin.sc:3643:123489 */ t73524 = p8255->a21882; /* x70876 stalin.sc:3643:123478 */ t73520 = f8245(t73524); /* x70875 stalin.sc:3624:122876 */ t73519 = p8255; /* x70826 stalin.sc:3624:122871 */ t73521.tag = NATIVE_PROCEDURE_TYPE19106; t73521.value.native_procedure_type19106 = t73519; t73522 = *((struct w49 *)(&t73520)); t73523 = (struct structure_type24753 *)NULL_TYPE; if (!((f1042(t73521, t73522, t73523).tag)==FALSE_TYPE)) goto l12987; l12986: return TRUE_TYPE; l12987: return FALSE_TYPE; l12966: /* x71645 */ /* x71038 stalin.sc:3644:123503 */ /* x71037 stalin.sc:3644:123527 */ t73410 = e8246->a21882; /* x71036 stalin.sc:3644:123504 */ a38105 = t73410; /* x285089 */ /* x285088 */ t73411 = a38105; /* x285087 */ if (!((t73411.tag)==STRUCTURE_TYPE27756)) goto l12968; /* x71403 */ /* x71402 */ t73479 = e8246; p8287 = t73479; /* x71401 stalin.sc:3645:123535 */ /* x71401 stalin.sc:3645:123535 */ /* x71061 stalin.sc:3646:123544 */ /* x71060 stalin.sc:3646:123549 */ /* x71059 stalin.sc:3653:123787 */ /* x71058 stalin.sc:3653:123802 */ t73485 = p8287->a21882; /* x71057 stalin.sc:3653:123788 */ t73481 = f8984(t73485); /* x71056 stalin.sc:3646:123555 */ t73480 = p8287; /* x71040 stalin.sc:3646:123550 */ t73482.tag = NATIVE_PROCEDURE_TYPE18144; t73482.value.native_procedure_type18144 = t73480; t73483 = *((struct w49 *)(&t73481)); t73484 = (struct structure_type24753 *)NULL_TYPE; if (!((f1042(t73482, t73483, t73484).tag)==FALSE_TYPE)) goto l12981; /* x71399 */ /* x71398 stalin.sc:3655:123823 */ /* x71090 stalin.sc:3657:123873 */ /* x71089 stalin.sc:3662:124030 */ /* x71088 stalin.sc:3662:124074 */ t73490 = p8287->a21882; /* x71087 stalin.sc:3662:124031 */ t73486 = f7984(t73490); /* x71086 stalin.sc:3657:123879 */ /* x71063 stalin.sc:3657:123874 */ t73487.tag = NATIVE_PROCEDURE_TYPE18145; t73488 = *((struct w49 *)(&t73486)); t73489 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t73487, t73488, t73489).tag)==FALSE_TYPE) goto l12980; /* x71396 */ /* x71095 stalin.sc:3663:124086 */ /* x71094 stalin.sc:3663:124091 */ /* x71093 stalin.sc:3663:124104 */ t73491 = p8287->a21882; /* x71092 stalin.sc:3663:124092 */ if (!(f8793(t73491)==FALSE_TYPE)) goto l12980; /* x71394 */ /* x71393 stalin.sc:3665:124192 */ /* x71392 */ t73492 = p8287; p8291 = t73492; a21915 = (struct structure_type24753 *)NULL_TYPE; e8291 = (struct p8291 *)alloca(sizeof(struct p8291)); if (e8291==NULL) {backtrace_internal("[inside MUST-ALIAS? 8287]"); out_of_memory_error();} e8291->p8246 = p8291; e8291->a21915 = a21915; /* x71391 */ /* x71286 stalin.sc:3666:124205 */ /* x71285 stalin.sc:3666:124206 */ f9027(); /* x71390 stalin.sc:3667:124242 */ /* x71389 stalin.sc:3667:124256 */ t73501 = p8291->a21882; /* x71388 */ /* x71387 */ /* x71386 */ /* x71385 */ t73502 = e8291; p8322 = t73502; /* x71384 */ /* x71383 */ /* x71382 */ /* x71288 */ t73503 = p8322; p8323 = t73503; /* x71287 stalin.sc:3667:124247 */ t73500 = p8323; f8324(t73500, t73501); /* x71284 */ t73493 = e8291; p8292 = t73493; /* x71283 stalin.sc:3685:124830 */ /* x71282 stalin.sc:3747:126868 */ /* x71281 stalin.sc:3747:126883 */ t73499 = p8292->p8246->a21882; /* x71280 stalin.sc:3747:126869 */ t73495 = f8984(t73499); /* x71279 stalin.sc:3686:124837 */ t73494 = p8292; /* x71096 stalin.sc:3685:124831 */ t73496.tag = NATIVE_PROCEDURE_TYPE18165; t73496.value.native_procedure_type18165 = t73494; t73497 = *((struct w49 *)(&t73495)); t73498 = (struct structure_type24753 *)NULL_TYPE; if (!((f1042(t73496, t73497, t73498).tag)==FALSE_TYPE)) goto l12981; l12980: return TRUE_TYPE; l12981: return FALSE_TYPE; l12968: /* x71644 */ /* x71406 stalin.sc:3748:126897 */ /* x71405 stalin.sc:3748:126917 */ t73412 = e8246->a21882; /* x71404 stalin.sc:3748:126898 */ a37892 = t73412; /* x284237 */ /* x284236 */ t73413 = a37892; /* x284235 */ if (!((t73413.tag)==STRUCTURE_TYPE27858)) goto l12970; /* x71639 */ /* x71638 */ t73415 = e8246; p8339 = t73415; /* x71637 stalin.sc:3749:126925 */ /* x71637 stalin.sc:3749:126925 */ /* x71462 stalin.sc:3750:126934 */ /* x71461 stalin.sc:3751:126944 */ /* x71410 stalin.sc:3754:127055 */ /* x71409 stalin.sc:3754:127097 */ t73416 = p8339->a21882; /* x71408 stalin.sc:3754:127056 */ if (f7374(t73416)==FALSE_TYPE) goto l12974; /* x71459 */ /* x71451 stalin.sc:3757:127185 */ t73417 = p8339; /* x71458 stalin.sc:3771:127583 */ /* x71457 stalin.sc:3772:127605 */ /* x71456 stalin.sc:3772:127621 */ /* x71455 stalin.sc:3772:127662 */ t73423 = p8339->a21882; /* x71454 stalin.sc:3772:127622 */ a37842 = t73423; /* x284037 */ /* x284036 */ t73424 = a37842; /* x284035 */ if (!((t73424.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32759]"); structure_ref_error();} t73422 = t73424.value.structure_type27858->s0; /* x71453 stalin.sc:3772:127606 */ t73420 = f6998(t73422); /* x71452 stalin.sc:3771:127584 */ a39922 = t73420; /* x292357 */ /* x292356 */ t73421 = a39922; /* x292355 */ if (!((t73421.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34839]"); structure_ref_error();} t73418 = t73421.value.structure_type27698->s10; /* x71411 stalin.sc:3756:127170 */ t73419.tag = NATIVE_PROCEDURE_TYPE20335; t73419.value.native_procedure_type20335 = t73417; if (!((f8137(t73419, t73418).tag)==FALSE_TYPE)) goto l12972; l12974: /* x71635 */ /* x71634 stalin.sc:3774:127686 */ /* x71466 stalin.sc:3777:127800 */ /* x71465 stalin.sc:3777:127842 */ t73425 = p8339->a21882; /* x71464 stalin.sc:3777:127801 */ if (f7374(t73425)==FALSE_TYPE) goto l12971; /* x71632 */ /* x71631 */ t73426 = p8339; p8345 = t73426; /* x71630 */ /* x71602 stalin.sc:3781:127980 */ /* x71594 stalin.sc:3781:128000 */ /* x71595 stalin.sc:3782:128022 */ /* x71596 stalin.sc:3783:128049 */ /* x71601 stalin.sc:3784:128081 */ /* x71600 stalin.sc:3785:128112 */ /* x71599 stalin.sc:3785:128153 */ t73465 = p8345->a21882; /* x71598 stalin.sc:3785:128113 */ a37840 = t73465; /* x284029 */ /* x284028 */ t73466 = a37840; /* x284027 */ if (!((t73466.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32757]"); structure_ref_error();} t73463 = t73466.value.structure_type27858->s0; /* x71597 stalin.sc:3784:128082 */ a40058 = t73463; /* x292901 */ /* x292900 */ t73464 = a40058; /* x292899 */ if (!((t73464.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34975]"); structure_ref_error();} t73459 = t73464.value.structure_type27698->s9; /* x71592 stalin.sc:3781:127981 */ t73460 = NATIVE_PROCEDURE_TYPE20341; t73461 = NATIVE_PROCEDURE_TYPE7309; t73462 = NATIVE_PROCEDURE_TYPE7308; f11537(t73460, t73461, t73462, t73459); /* x71613 stalin.sc:3787:128212 */ /* x71605 stalin.sc:3787:128232 */ /* x71606 stalin.sc:3788:128254 */ /* x71607 stalin.sc:3789:128281 */ /* x71612 stalin.sc:3790:128313 */ /* x71611 stalin.sc:3791:128344 */ /* x71610 stalin.sc:3791:128385 */ t73473 = p8345->a21882; /* x71609 stalin.sc:3791:128345 */ a37841 = t73473; /* x284033 */ /* x284032 */ t73474 = a37841; /* x284031 */ if (!((t73474.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32758]"); structure_ref_error();} t73471 = t73474.value.structure_type27858->s0; /* x71608 stalin.sc:3790:128314 */ a40059 = t73471; /* x292905 */ /* x292904 */ t73472 = a40059; /* x292903 */ if (!((t73472.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34976]"); structure_ref_error();} t73467 = t73472.value.structure_type27698->s9; /* x71603 stalin.sc:3787:128213 */ t73468 = (struct p11619 *)NATIVE_PROCEDURE_TYPE20340; t73469 = NATIVE_PROCEDURE_TYPE7307; t73470 = NATIVE_PROCEDURE_TYPE7306; f11559(t73468, t73469, t73470, t73467); /* x71629 stalin.sc:3793:128460 */ /* x71628 stalin.sc:3796:128554 */ t73475 = a1594; /* x71627 stalin.sc:3794:128471 */ /* x71614 stalin.sc:3793:128461 */ t73476.tag = NATIVE_PROCEDURE_TYPE20337; t73477 = *((struct w49 *)(&t73475)); t73478 = (struct structure_type24753 *)NULL_TYPE; f27755(t73476, t73477, t73478); /* x71591 */ t73427 = p8345; p8346 = t73427; /* x71590 stalin.sc:3797:128567 */ /* x71589 stalin.sc:3797:128577 */ /* x71588 */ t73430 = p8346; p8347 = t73430; a21952 = (struct structure_type24753 *)NULL_TYPE; e8347 = (struct p8347 *)alloca(sizeof(struct p8347)); if (e8347==NULL) {backtrace_internal("[inside MUST-ALIAS? 8346]"); out_of_memory_error();} e8347->p8246 = p8347; e8347->a21952 = a21952; /* x71587 */ /* x71586 stalin.sc:3799:128622 */ /* x71585 stalin.sc:3799:128636 */ /* x71584 stalin.sc:3800:128669 */ /* x71583 stalin.sc:3800:128710 */ t73457 = p8347->a21882; /* x71582 stalin.sc:3800:128670 */ a37835 = t73457; /* x284009 */ /* x284008 */ t73458 = a37835; /* x284007 */ if (!((t73458.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32752]"); structure_ref_error();} t73455 = t73458.value.structure_type27858->s0; /* x71581 stalin.sc:3799:128637 */ a40057 = t73455; /* x292897 */ /* x292896 */ t73456 = a40057; /* x292895 */ if (!((t73456.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34974]"); structure_ref_error();} t73440 = t73456.value.structure_type27698->s9; /* x71580 */ /* x71579 */ /* x71578 */ /* x71577 */ t73453 = e8347; p8355 = t73453; /* x71576 */ /* x71575 */ /* x71574 */ /* x71530 */ t73454 = p8355; p8356 = t73454; /* x71529 stalin.sc:3799:128627 */ t73439 = p8356; p8357 = t73439; a21960 = t73440; h8357: /* x71573 stalin.sc:3801:128720 */ /* x71533 stalin.sc:3801:128728 */ /* x71532 stalin.sc:3801:128736 */ t73441 = a21960; /* x71531 stalin.sc:3801:128729 */ if (f8581(t73441)==FALSE_TYPE) goto l12978; /* x71535 */ /* x71534 */ goto l12979; l12978: /* x71572 */ /* x71571 */ t73442 = p8357; p8359 = t73442; /* x71570 */ /* x71569 stalin.sc:3802:128742 */ /* x71568 stalin.sc:3809:128972 */ /* x71567 stalin.sc:3809:128983 */ t73452 = a21960; /* x71566 stalin.sc:3809:128973 */ t73448 = f8987(t73452); /* x71565 stalin.sc:3802:128752 */ t73447 = p8359; /* x71542 stalin.sc:3802:128743 */ t73449.tag = NATIVE_PROCEDURE_TYPE20379; t73449.value.native_procedure_type20379 = t73447; /* MOVE: branching squeezed to general */ if (t73448>=((struct structure_type24753 *)VALUE_OFFSET)) {t73450.tag = STRUCTURE_TYPE24753; t73450.value.structure_type24753 = t73448;} else t73450.tag = (unsigned)t73448; t73451 = (struct structure_type24753 *)NULL_TYPE; f27755(t73449, t73450, t73451); /* x71541 */ t73443 = p8359; p8360 = t73443; /* x71540 stalin.sc:3810:128990 */ /* x71539 stalin.sc:3810:128996 */ /* x71538 stalin.sc:3810:129004 */ t73446 = a21960; /* x71537 stalin.sc:3810:128997 */ t73445 = f8682(t73446); /* x71536 stalin.sc:3810:128991 */ t73444 = p8360; p8357 = t73444; a21960 = t73445; goto h8357; l12979: /* x71528 */ t73431 = e8347; p8348 = t73431; /* x71527 stalin.sc:3812:129032 */ /* x71526 stalin.sc:3832:129720 */ /* x71525 stalin.sc:3832:129750 */ t73437 = p8348->p8246->a21882; /* x71524 stalin.sc:3832:129721 */ a37806 = t73437; /* x283893 */ /* x283892 */ t73438 = a37806; /* x283891 */ if (!((t73438.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-CALL-SITES[6085] 32723]"); structure_ref_error();} t73433 = t73438.value.structure_type27858->s3; /* x71523 */ t73432 = p8348; /* x71467 stalin.sc:3812:129033 */ t73434.tag = NATIVE_PROCEDURE_TYPE20417; t73434.value.native_procedure_type20417 = t73432; t73435 = *((struct w49 *)(&t73433)); t73436 = (struct structure_type24753 *)NULL_TYPE; if (!((f1042(t73434, t73435, t73436).tag)==FALSE_TYPE)) goto l12972; l12971: return TRUE_TYPE; l12972: return FALSE_TYPE; l12970: /* x71643 */ /* x71642 */ /* x71641 stalin.sc:3833:129770 */ /* x71640 stalin.sc:3833:129771 */ /* x296669 QobiScheme.sc:166:5314 */ /* x296668 QobiScheme.sc:166:5321 */ t73414 = "This shouldn\'t happen"; /* x296667 QobiScheme.sc:166:5315 */ stalin_panic(t73414);} /* REFERENCES[8245] */ struct w12224 f8245(struct w49 a21881) {struct w49 a36800; /* S */ struct w12224 t73546; struct w227671 t73547; struct w49 t73548; struct w49 t73549; struct w49 t73550; /* x70752 stalin.sc:3556:120549 */ /* x70748 stalin.sc:3556:120564 */ /* x70751 stalin.sc:3556:120573 */ /* x70750 stalin.sc:3556:120594 */ t73549 = a21881; /* x70749 stalin.sc:3556:120574 */ a36800 = t73549; /* x279869 */ /* x279868 */ t73550 = a36800; /* x279867 */ if (!((t73550.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-REFERENCES[6613] 31717]"); structure_ref_error();} t73546 = t73550.value.structure_type27692->s12; /* x70747 stalin.sc:3556:120550 */ t73547.tag = NATIVE_PROCEDURE_TYPE7614; t73548 = *((struct w49 *)(&t73546)); return f1226(t73547, t73548);} /* ASSIGNMENTS[8244] */ struct w12224 f8244(struct w49 a21880) {struct w49 a36803; /* S */ struct w12224 t73551; struct w227671 t73552; struct w49 t73553; struct w49 t73554; struct w49 t73555; /* x70744 stalin.sc:3552:120415 */ /* x70740 stalin.sc:3552:120430 */ /* x70743 stalin.sc:3552:120439 */ /* x70742 stalin.sc:3552:120461 */ t73554 = a21880; /* x70741 stalin.sc:3552:120440 */ a36803 = t73554; /* x279881 */ /* x279880 */ t73555 = a36803; /* x279879 */ if (!((t73555.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ASSIGNMENTS[6605] 31720]"); structure_ref_error();} t73551 = t73555.value.structure_type27692->s11; /* x70739 stalin.sc:3552:120416 */ t73552.tag = NATIVE_PROCEDURE_TYPE7614; t73553 = *((struct w49 *)(&t73551)); return f1226(t73552, t73553);} /* ACCESSES[8243] */ struct w12224 f8243(struct w49 a21879) {struct w49 a36806; /* S */ struct w12224 t73556; struct w227671 t73557; struct w49 t73558; struct w49 t73559; struct w49 t73560; /* x70736 stalin.sc:3548:120299 */ /* x70732 stalin.sc:3548:120314 */ /* x70735 stalin.sc:3548:120323 */ /* x70734 stalin.sc:3548:120342 */ t73559 = a21879; /* x70733 stalin.sc:3548:120324 */ a36806 = t73559; /* x279893 */ /* x279892 */ t73560 = a36806; /* x279891 */ if (!((t73560.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ACCESSES[6597] 31723]"); structure_ref_error();} t73556 = t73560.value.structure_type27692->s10; /* x70731 stalin.sc:3548:120300 */ t73557.tag = NATIVE_PROCEDURE_TYPE7614; t73558 = *((struct w49 *)(&t73556)); return f1226(t73557, t73558);} /* ASSIGNED?[8236] */ unsigned f8236(struct w49 a21876) {char *a21877; /* v */ struct w49 t73561; char *t73562; char *t73563; char *t73564; struct w49 t73565; struct w49 t73566; char *t73567; char *t73568; struct w49 t73569; struct w49 t73570; char *t73571; char *t73572; struct w49 t73573; struct w49 t73574; char *t73575; struct w49 t73576; struct w49 t73577; struct w12224 t73578; struct w49 t73579; /* x70728 stalin.sc:3539:119993 */ /* x70677 stalin.sc:3539:119997 */ if (a2039==FALSE_TYPE) goto l12997; /* x70724 stalin.sc:3540:120031 */ /* x70723 stalin.sc:3540:120037 */ t73562 = a687; /* x70722 */ a21877 = t73562; /* x70721 */ /* x70681 */ /* x70679 */ t73563 = a21877; /* x70680 */ t73564 = q15; /* x70678 */ /* MOVE: branching squeezed to general */ if (t73563>=((char *)VALUE_OFFSET)) {t73565.tag = EXTERNAL_SYMBOL_TYPE; t73565.value.external_symbol_type = t73563;} else t73565.tag = (unsigned)t73563; t73566.tag = EXTERNAL_SYMBOL_TYPE; t73566.value.external_symbol_type = t73564; if (f26160(t73565, t73566)==FALSE_TYPE) goto l12999; /* x70684 */ /* x70683 */ /* x70682 stalin.sc:3541:120083 */ return TRUE_TYPE; l12999: /* x70720 */ /* x70688 */ /* x70686 */ t73567 = a21877; /* x70687 */ t73568 = q16; /* x70685 */ /* MOVE: branching squeezed to general */ if (t73567>=((char *)VALUE_OFFSET)) {t73569.tag = EXTERNAL_SYMBOL_TYPE; t73569.value.external_symbol_type = t73567;} else t73569.tag = (unsigned)t73567; t73570.tag = EXTERNAL_SYMBOL_TYPE; t73570.value.external_symbol_type = t73568; if (f26160(t73569, t73570)==FALSE_TYPE) goto l13001; /* x70705 */ /* x70704 */ /* x70703 stalin.sc:3543:120116 */ /* x70703 stalin.sc:3543:120116 */ /* x70702 stalin.sc:3543:120120 */ /* x70701 stalin.sc:3543:120143 */ t73577 = a21876; /* x70700 stalin.sc:3543:120121 */ if (!(f8225(t73577)==FALSE_TYPE)) goto l13004; /* x70697 */ /* x70696 stalin.sc:3543:120151 */ /* x70695 stalin.sc:3543:120158 */ /* x70694 stalin.sc:3543:120171 */ t73579 = a21876; /* x70693 stalin.sc:3543:120159 */ t73578 = f8244(t73579); /* x270330 stalin.sc:3543:120152 */ if ((t73578.tag)==NULL_TYPE) goto l13005; l13004: return TRUE_TYPE; l13005: return FALSE_TYPE; l13001: /* x70719 */ /* x70709 */ /* x70707 */ t73571 = a21877; /* x70708 */ t73572 = q17; /* x70706 */ /* MOVE: branching squeezed to general */ if (t73571>=((char *)VALUE_OFFSET)) {t73573.tag = EXTERNAL_SYMBOL_TYPE; t73573.value.external_symbol_type = t73571;} else t73573.tag = (unsigned)t73571; t73574.tag = EXTERNAL_SYMBOL_TYPE; t73574.value.external_symbol_type = t73572; if (f26160(t73573, t73574)==FALSE_TYPE) goto l13003; /* x70714 */ /* x70713 */ /* x70712 stalin.sc:3544:120199 */ /* x70711 stalin.sc:3544:120219 */ t73576 = a21876; /* x70710 stalin.sc:3544:120200 */ return f8199(t73576); l13003: /* x70718 */ /* x70717 */ /* x70716 stalin.sc:3545:120235 */ /* x70715 stalin.sc:3545:120236 */ /* x297373 QobiScheme.sc:166:5314 */ /* x297372 QobiScheme.sc:166:5321 */ t73575 = "This shouldn\'t happen"; /* x297371 QobiScheme.sc:166:5315 */ stalin_panic(t73575); l12997: /* x70727 stalin.sc:3546:120252 */ /* x70726 stalin.sc:3546:120272 */ t73561 = a21876; /* x70725 stalin.sc:3546:120253 */ return f8199(t73561);} /* ACCESSED?[8229] */ unsigned f8229(struct w49 a21873) {char *a21874; /* v */ struct w49 t73580; char *t73581; char *t73582; char *t73583; struct w49 t73584; struct w49 t73585; char *t73586; char *t73587; struct w49 t73588; struct w49 t73589; char *t73590; char *t73591; struct w49 t73592; struct w49 t73593; char *t73594; struct w49 t73595; struct w49 t73596; struct w12224 t73597; struct w49 t73598; /* x70674 stalin.sc:3529:119688 */ /* x70623 stalin.sc:3529:119692 */ if (a2039==FALSE_TYPE) goto l13009; /* x70670 stalin.sc:3530:119726 */ /* x70669 stalin.sc:3530:119732 */ t73581 = a687; /* x70668 */ a21874 = t73581; /* x70667 */ /* x70627 */ /* x70625 */ t73582 = a21874; /* x70626 */ t73583 = q15; /* x70624 */ /* MOVE: branching squeezed to general */ if (t73582>=((char *)VALUE_OFFSET)) {t73584.tag = EXTERNAL_SYMBOL_TYPE; t73584.value.external_symbol_type = t73582;} else t73584.tag = (unsigned)t73582; t73585.tag = EXTERNAL_SYMBOL_TYPE; t73585.value.external_symbol_type = t73583; if (f26160(t73584, t73585)==FALSE_TYPE) goto l13011; /* x70630 */ /* x70629 */ /* x70628 stalin.sc:3531:119778 */ return TRUE_TYPE; l13011: /* x70666 */ /* x70634 */ /* x70632 */ t73586 = a21874; /* x70633 */ t73587 = q16; /* x70631 */ /* MOVE: branching squeezed to general */ if (t73586>=((char *)VALUE_OFFSET)) {t73588.tag = EXTERNAL_SYMBOL_TYPE; t73588.value.external_symbol_type = t73586;} else t73588.tag = (unsigned)t73586; t73589.tag = EXTERNAL_SYMBOL_TYPE; t73589.value.external_symbol_type = t73587; if (f26160(t73588, t73589)==FALSE_TYPE) goto l13013; /* x70651 */ /* x70650 */ /* x70649 stalin.sc:3533:119811 */ /* x70649 stalin.sc:3533:119811 */ /* x70648 stalin.sc:3533:119815 */ /* x70647 stalin.sc:3533:119838 */ t73596 = a21873; /* x70646 stalin.sc:3533:119816 */ if (!(f8225(t73596)==FALSE_TYPE)) goto l13016; /* x70643 */ /* x70642 stalin.sc:3533:119846 */ /* x70641 stalin.sc:3533:119853 */ /* x70640 stalin.sc:3533:119863 */ t73598 = a21873; /* x70639 stalin.sc:3533:119854 */ t73597 = f8243(t73598); /* x270332 stalin.sc:3533:119847 */ if ((t73597.tag)==NULL_TYPE) goto l13017; l13016: return TRUE_TYPE; l13017: return FALSE_TYPE; l13013: /* x70665 */ /* x70655 */ /* x70653 */ t73590 = a21874; /* x70654 */ t73591 = q17; /* x70652 */ /* MOVE: branching squeezed to general */ if (t73590>=((char *)VALUE_OFFSET)) {t73592.tag = EXTERNAL_SYMBOL_TYPE; t73592.value.external_symbol_type = t73590;} else t73592.tag = (unsigned)t73590; t73593.tag = EXTERNAL_SYMBOL_TYPE; t73593.value.external_symbol_type = t73591; if (f26160(t73592, t73593)==FALSE_TYPE) goto l13015; /* x70660 */ /* x70659 */ /* x70658 stalin.sc:3534:119891 */ /* x70657 stalin.sc:3534:119911 */ t73595 = a21873; /* x70656 stalin.sc:3534:119892 */ return f8194(t73595); l13015: /* x70664 */ /* x70663 */ /* x70662 stalin.sc:3535:119927 */ /* x70661 stalin.sc:3535:119928 */ /* x297369 QobiScheme.sc:166:5314 */ /* x297368 QobiScheme.sc:166:5321 */ t73594 = "This shouldn\'t happen"; /* x297367 QobiScheme.sc:166:5315 */ stalin_panic(t73594); l13009: /* x70673 stalin.sc:3536:119944 */ /* x70672 stalin.sc:3536:119964 */ t73580 = a21873; /* x70671 stalin.sc:3536:119945 */ return f8194(t73580);} /* DEFINED-AT-TOP-LEVEL?[8225] */ unsigned f8225(struct w49 a21869) {struct w49 a36927; /* S */ struct w49 a36928; /* S */ struct w49 a36929; /* S */ struct w49 a36930; /* S */ struct w49 a36931; /* S */ struct w49 a36932; /* S */ struct w49 a36933; /* S */ struct w49 a36934; /* S */ struct w49 a36935; /* S */ struct w49 a36936; /* S */ struct w49 a36937; /* S */ struct w49 a36938; /* S */ struct w49 a36939; /* S */ struct w49 a36940; /* S */ struct w49 a36941; /* S */ struct w49 a36942; /* S */ struct w49 a36943; /* S */ struct w49 a36944; /* S */ struct w49 a36945; /* S */ struct w49 a36946; /* S */ struct w49 a36947; /* S */ struct w49 a36948; /* S */ struct w49 a36949; /* S */ struct w49 a36955; /* S */ struct w49 t73599; struct w49 t73600; struct w49 t73601; struct w49 t73602; struct w49 t73603; struct w49 t73604; struct w49 t73605; struct w49 t73606; struct w49 t73607; struct w49 t73608; struct w49 t73609; struct w49 t73610; struct w49 t73611; struct w49 t73612; struct w49 t73613; struct w49 t73614; struct w49 t73615; struct w49 t73616; struct w49 t73617; struct w49 t73618; struct w49 t73619; struct w49 t73620; struct w49 t73621; struct w49 t73622; struct w49 t73623; struct w49 t73624; struct w49 t73625; struct w49 t73626; struct w49 t73627; struct w49 t73628; struct w49 t73629; struct w49 t73630; struct w49 t73631; struct w49 t73632; struct w49 t73633; struct w49 t73634; struct w49 t73635; struct w49 t73636; struct w49 t73637; struct w49 t73638; struct w49 t73639; struct w49 t73640; struct w49 t73641; struct w49 t73642; struct w49 t73643; struct w49 t73644; struct w49 t73645; struct w49 t73646; struct w49 t73647; struct w49 t73648; struct w49 t73649; struct w49 t73650; struct w49 t73651; struct w49 t73652; struct w49 t73653; struct w49 t73654; struct w49 t73655; struct w49 t73656; struct w49 t73657; struct w49 t73658; struct w49 t73659; struct w49 t73660; struct w49 t73661; struct w49 t73662; struct w49 t73663; struct w49 t73664; struct w49 t73665; struct w49 t73666; struct w49 t73667; struct w49 t73668; struct w49 t73669; struct w49 t73670; struct w49 t73671; struct w49 t73672; struct w49 t73673; struct w49 t73674; struct w49 t73675; struct w49 t73676; struct w49 t73677; struct w49 t73678; struct w49 t73679; struct w49 t73680; struct w49 t73681; struct w49 t73682; struct w49 t73683; struct w49 t73684; struct w49 t73685; struct w49 t73686; struct w49 t73687; struct w49 t73688; struct w49 t73689; struct w49 t73690; struct w49 t73691; struct w49 t73692; struct w49 t73693; struct w49 t73694; struct w49 t73695; struct w49 t73696; struct w49 t73697; struct w49 t73698; struct w49 t73699; struct w49 t73700; struct w49 t73701; struct w49 t73702; struct w49 t73703; struct w49 t73704; struct w49 t73705; struct w49 t73706; struct w49 t73707; struct w49 t73708; struct w49 t73709; struct w49 t73710; struct w49 t73711; struct w49 t73712; struct w49 t73713; struct w49 t73714; /* x70620 stalin.sc:3499:118289 */ /* x70620 stalin.sc:3499:118289 */ /* x70619 stalin.sc:3499:118293 */ /* x70601 stalin.sc:3499:118298 */ /* x70600 stalin.sc:3499:118303 */ /* x70599 stalin.sc:3499:118311 */ /* x70598 stalin.sc:3499:118319 */ /* x70597 stalin.sc:3499:118341 */ t73601 = a21869; /* x70596 stalin.sc:3499:118320 */ a36955 = t73601; /* x280489 */ /* x280488 */ t73602 = a36955; /* x280487 */ if (!((t73602.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31872]"); structure_ref_error();} t73600 = t73602.value.structure_type27692->s8; /* x70595 stalin.sc:3499:118312 */ t73599 = f8682(t73600); /* x70594 stalin.sc:3499:118304 */ if (!(f8581(t73599)==FALSE_TYPE)) goto l13023; /* x70617 */ /* x70610 stalin.sc:3500:118350 */ /* x70609 stalin.sc:3500:118358 */ /* x70608 stalin.sc:3500:118366 */ /* x70607 stalin.sc:3500:118374 */ /* x70606 stalin.sc:3500:118396 */ t73606 = a21869; /* x70605 stalin.sc:3500:118375 */ a36928 = t73606; /* x280381 */ /* x280380 */ t73607 = a36928; /* x280379 */ if (!((t73607.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31845]"); structure_ref_error();} t73605 = t73607.value.structure_type27692->s8; /* x70604 stalin.sc:3500:118367 */ t73604 = f8682(t73605); /* x70603 stalin.sc:3500:118359 */ t73603 = f8682(t73604); /* x70602 stalin.sc:3500:118351 */ if (f8581(t73603)==FALSE_TYPE) goto l13023; /* x70615 */ /* x70614 stalin.sc:3501:118411 */ /* x70613 stalin.sc:3501:118433 */ t73609 = a21869; /* x70612 stalin.sc:3501:118412 */ a36927 = t73609; /* x280377 */ /* x280376 */ t73610 = a36927; /* x280375 */ if (!((t73610.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31844]"); structure_ref_error();} t73608 = t73610.value.structure_type27692->s8; /* x70611 stalin.sc:3501:118406 */ if (!(f8903(t73608)==FALSE_TYPE)) goto l13020; l13023: /* x70590 */ /* x70589 stalin.sc:3502:118443 */ /* x70547 stalin.sc:3502:118448 */ /* x70546 stalin.sc:3502:118453 */ /* x70545 stalin.sc:3502:118461 */ /* x70544 stalin.sc:3502:118469 */ /* x70543 stalin.sc:3502:118491 */ t73613 = a21869; /* x70542 stalin.sc:3502:118470 */ a36949 = t73613; /* x280465 */ /* x280464 */ t73614 = a36949; /* x280463 */ if (!((t73614.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31866]"); structure_ref_error();} t73612 = t73614.value.structure_type27692->s8; /* x70541 stalin.sc:3502:118462 */ t73611 = f8682(t73612); /* x70540 stalin.sc:3502:118454 */ if (!(f8581(t73611)==FALSE_TYPE)) goto l13026; /* x70587 */ /* x70558 stalin.sc:3503:118500 */ /* x70557 stalin.sc:3503:118505 */ /* x70556 stalin.sc:3503:118513 */ /* x70555 stalin.sc:3503:118521 */ /* x70554 stalin.sc:3503:118529 */ /* x70553 stalin.sc:3503:118551 */ t73618 = a21869; /* x70552 stalin.sc:3503:118530 */ a36948 = t73618; /* x280461 */ /* x280460 */ t73619 = a36948; /* x280459 */ if (!((t73619.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31865]"); structure_ref_error();} t73617 = t73619.value.structure_type27692->s8; /* x70551 stalin.sc:3503:118522 */ t73616 = f8682(t73617); /* x70550 stalin.sc:3503:118514 */ t73615 = f8682(t73616); /* x70549 stalin.sc:3503:118506 */ if (!(f8581(t73615)==FALSE_TYPE)) goto l13026; /* x70585 */ /* x70569 stalin.sc:3504:118561 */ /* x70568 stalin.sc:3504:118569 */ /* x70567 stalin.sc:3504:118577 */ /* x70566 stalin.sc:3504:118585 */ /* x70565 stalin.sc:3504:118593 */ /* x70564 stalin.sc:3504:118615 */ t73624 = a21869; /* x70563 stalin.sc:3504:118594 */ a36947 = t73624; /* x280457 */ /* x280456 */ t73625 = a36947; /* x280455 */ if (!((t73625.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31864]"); structure_ref_error();} t73623 = t73625.value.structure_type27692->s8; /* x70562 stalin.sc:3504:118586 */ t73622 = f8682(t73623); /* x70561 stalin.sc:3504:118578 */ t73621 = f8682(t73622); /* x70560 stalin.sc:3504:118570 */ t73620 = f8682(t73621); /* x70559 stalin.sc:3504:118562 */ if (f8581(t73620)==FALSE_TYPE) goto l13026; /* x70583 */ /* x70574 stalin.sc:3505:118625 */ /* x70573 stalin.sc:3505:118631 */ /* x70572 stalin.sc:3505:118653 */ t73627 = a21869; /* x70571 stalin.sc:3505:118632 */ a36946 = t73627; /* x280453 */ /* x280452 */ t73628 = a36946; /* x280451 */ if (!((t73628.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31863]"); structure_ref_error();} t73626 = t73628.value.structure_type27692->s8; /* x70570 stalin.sc:3505:118626 */ if (f8903(t73626)==FALSE_TYPE) goto l13026; /* x70581 */ /* x70580 stalin.sc:3506:118666 */ /* x70579 stalin.sc:3506:118674 */ /* x70578 stalin.sc:3506:118696 */ t73631 = a21869; /* x70577 stalin.sc:3506:118675 */ a36945 = t73631; /* x280449 */ /* x280448 */ t73632 = a36945; /* x280447 */ if (!((t73632.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31862]"); structure_ref_error();} t73630 = t73632.value.structure_type27692->s8; /* x70576 stalin.sc:3506:118667 */ t73629 = f8682(t73630); /* x70575 stalin.sc:3506:118661 */ if (!(f8903(t73629)==FALSE_TYPE)) goto l13020; l13026: /* x70536 */ /* x70535 stalin.sc:3507:118707 */ /* x70465 stalin.sc:3507:118712 */ /* x70464 stalin.sc:3507:118717 */ /* x70463 stalin.sc:3507:118725 */ /* x70462 stalin.sc:3507:118733 */ /* x70461 stalin.sc:3507:118755 */ t73635 = a21869; /* x70460 stalin.sc:3507:118734 */ a36944 = t73635; /* x280445 */ /* x280444 */ t73636 = a36944; /* x280443 */ if (!((t73636.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31861]"); structure_ref_error();} t73634 = t73636.value.structure_type27692->s8; /* x70459 stalin.sc:3507:118726 */ t73633 = f8682(t73634); /* x70458 stalin.sc:3507:118718 */ if (!(f8581(t73633)==FALSE_TYPE)) goto l13031; /* x70533 */ /* x70476 stalin.sc:3508:118764 */ /* x70475 stalin.sc:3508:118769 */ /* x70474 stalin.sc:3508:118777 */ /* x70473 stalin.sc:3508:118785 */ /* x70472 stalin.sc:3508:118793 */ /* x70471 stalin.sc:3508:118815 */ t73640 = a21869; /* x70470 stalin.sc:3508:118794 */ a36943 = t73640; /* x280441 */ /* x280440 */ t73641 = a36943; /* x280439 */ if (!((t73641.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31860]"); structure_ref_error();} t73639 = t73641.value.structure_type27692->s8; /* x70469 stalin.sc:3508:118786 */ t73638 = f8682(t73639); /* x70468 stalin.sc:3508:118778 */ t73637 = f8682(t73638); /* x70467 stalin.sc:3508:118770 */ if (!(f8581(t73637)==FALSE_TYPE)) goto l13031; /* x70531 */ /* x70489 stalin.sc:3509:118825 */ /* x70488 stalin.sc:3509:118830 */ /* x70487 stalin.sc:3509:118838 */ /* x70486 stalin.sc:3509:118846 */ /* x70485 stalin.sc:3509:118854 */ /* x70484 stalin.sc:3509:118862 */ /* x70483 stalin.sc:3509:118884 */ t73646 = a21869; /* x70482 stalin.sc:3509:118863 */ a36942 = t73646; /* x280437 */ /* x280436 */ t73647 = a36942; /* x280435 */ if (!((t73647.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31859]"); structure_ref_error();} t73645 = t73647.value.structure_type27692->s8; /* x70481 stalin.sc:3509:118855 */ t73644 = f8682(t73645); /* x70480 stalin.sc:3509:118847 */ t73643 = f8682(t73644); /* x70479 stalin.sc:3509:118839 */ t73642 = f8682(t73643); /* x70478 stalin.sc:3509:118831 */ if (!(f8581(t73642)==FALSE_TYPE)) goto l13031; /* x70529 */ /* x70502 stalin.sc:3510:118895 */ /* x70501 stalin.sc:3510:118903 */ /* x70500 stalin.sc:3510:118911 */ /* x70499 stalin.sc:3510:118919 */ /* x70498 stalin.sc:3510:118927 */ /* x70497 stalin.sc:3510:118935 */ /* x70496 stalin.sc:3510:118957 */ t73653 = a21869; /* x70495 stalin.sc:3510:118936 */ a36941 = t73653; /* x280433 */ /* x280432 */ t73654 = a36941; /* x280431 */ if (!((t73654.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31858]"); structure_ref_error();} t73652 = t73654.value.structure_type27692->s8; /* x70494 stalin.sc:3510:118928 */ t73651 = f8682(t73652); /* x70493 stalin.sc:3510:118920 */ t73650 = f8682(t73651); /* x70492 stalin.sc:3510:118912 */ t73649 = f8682(t73650); /* x70491 stalin.sc:3510:118904 */ t73648 = f8682(t73649); /* x70490 stalin.sc:3510:118896 */ if (f8581(t73648)==FALSE_TYPE) goto l13031; /* x70527 */ /* x70507 stalin.sc:3511:118968 */ /* x70506 stalin.sc:3511:118974 */ /* x70505 stalin.sc:3511:118996 */ t73656 = a21869; /* x70504 stalin.sc:3511:118975 */ a36940 = t73656; /* x280429 */ /* x280428 */ t73657 = a36940; /* x280427 */ if (!((t73657.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31857]"); structure_ref_error();} t73655 = t73657.value.structure_type27692->s8; /* x70503 stalin.sc:3511:118969 */ if (f8903(t73655)==FALSE_TYPE) goto l13031; /* x70525 */ /* x70514 stalin.sc:3512:119003 */ /* x70513 stalin.sc:3512:119009 */ /* x70512 stalin.sc:3512:119017 */ /* x70511 stalin.sc:3512:119039 */ t73660 = a21869; /* x70510 stalin.sc:3512:119018 */ a36939 = t73660; /* x280425 */ /* x280424 */ t73661 = a36939; /* x280423 */ if (!((t73661.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31856]"); structure_ref_error();} t73659 = t73661.value.structure_type27692->s8; /* x70509 stalin.sc:3512:119010 */ t73658 = f8682(t73659); /* x70508 stalin.sc:3512:119004 */ if (f8903(t73658)==FALSE_TYPE) goto l13031; /* x70523 */ /* x70522 stalin.sc:3513:119053 */ /* x70521 stalin.sc:3513:119061 */ /* x70520 stalin.sc:3513:119069 */ /* x70519 stalin.sc:3513:119091 */ t73665 = a21869; /* x70518 stalin.sc:3513:119070 */ a36938 = t73665; /* x280421 */ /* x280420 */ t73666 = a36938; /* x280419 */ if (!((t73666.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31855]"); structure_ref_error();} t73664 = t73666.value.structure_type27692->s8; /* x70517 stalin.sc:3513:119062 */ t73663 = f8682(t73664); /* x70516 stalin.sc:3513:119054 */ t73662 = f8682(t73663); /* x70515 stalin.sc:3513:119048 */ if (!(f8903(t73662)==FALSE_TYPE)) goto l13020; l13031: /* x70454 */ /* x70352 stalin.sc:3514:119108 */ /* x70351 stalin.sc:3514:119113 */ /* x70350 stalin.sc:3514:119121 */ /* x70349 stalin.sc:3514:119129 */ /* x70348 stalin.sc:3514:119151 */ t73669 = a21869; /* x70347 stalin.sc:3514:119130 */ a36937 = t73669; /* x280417 */ /* x280416 */ t73670 = a36937; /* x280415 */ if (!((t73670.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31854]"); structure_ref_error();} t73668 = t73670.value.structure_type27692->s8; /* x70346 stalin.sc:3514:119122 */ t73667 = f8682(t73668); /* x70345 stalin.sc:3514:119114 */ if (!(f8581(t73667)==FALSE_TYPE)) goto l13021; /* x70452 */ /* x70363 stalin.sc:3515:119160 */ /* x70362 stalin.sc:3515:119165 */ /* x70361 stalin.sc:3515:119173 */ /* x70360 stalin.sc:3515:119181 */ /* x70359 stalin.sc:3515:119189 */ /* x70358 stalin.sc:3515:119211 */ t73674 = a21869; /* x70357 stalin.sc:3515:119190 */ a36936 = t73674; /* x280413 */ /* x280412 */ t73675 = a36936; /* x280411 */ if (!((t73675.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31853]"); structure_ref_error();} t73673 = t73675.value.structure_type27692->s8; /* x70356 stalin.sc:3515:119182 */ t73672 = f8682(t73673); /* x70355 stalin.sc:3515:119174 */ t73671 = f8682(t73672); /* x70354 stalin.sc:3515:119166 */ if (!(f8581(t73671)==FALSE_TYPE)) goto l13021; /* x70450 */ /* x70376 stalin.sc:3516:119221 */ /* x70375 stalin.sc:3516:119226 */ /* x70374 stalin.sc:3516:119234 */ /* x70373 stalin.sc:3516:119242 */ /* x70372 stalin.sc:3516:119250 */ /* x70371 stalin.sc:3516:119258 */ /* x70370 stalin.sc:3516:119280 */ t73680 = a21869; /* x70369 stalin.sc:3516:119259 */ a36935 = t73680; /* x280409 */ /* x280408 */ t73681 = a36935; /* x280407 */ if (!((t73681.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31852]"); structure_ref_error();} t73679 = t73681.value.structure_type27692->s8; /* x70368 stalin.sc:3516:119251 */ t73678 = f8682(t73679); /* x70367 stalin.sc:3516:119243 */ t73677 = f8682(t73678); /* x70366 stalin.sc:3516:119235 */ t73676 = f8682(t73677); /* x70365 stalin.sc:3516:119227 */ if (!(f8581(t73676)==FALSE_TYPE)) goto l13021; /* x70448 */ /* x70391 stalin.sc:3517:119291 */ /* x70390 stalin.sc:3518:119300 */ /* x70389 stalin.sc:3519:119313 */ /* x70388 stalin.sc:3519:119321 */ /* x70387 stalin.sc:3519:119329 */ /* x70386 stalin.sc:3519:119337 */ /* x70385 stalin.sc:3519:119345 */ /* x70384 stalin.sc:3519:119367 */ t73687 = a21869; /* x70383 stalin.sc:3519:119346 */ a36934 = t73687; /* x280405 */ /* x280404 */ t73688 = a36934; /* x280403 */ if (!((t73688.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31851]"); structure_ref_error();} t73686 = t73688.value.structure_type27692->s8; /* x70382 stalin.sc:3519:119338 */ t73685 = f8682(t73686); /* x70381 stalin.sc:3519:119330 */ t73684 = f8682(t73685); /* x70380 stalin.sc:3519:119322 */ t73683 = f8682(t73684); /* x70379 stalin.sc:3519:119314 */ t73682 = f8682(t73683); /* x70378 stalin.sc:3518:119301 */ if (!(f8581(t73682)==FALSE_TYPE)) goto l13021; /* x70446 */ /* x70406 stalin.sc:3520:119379 */ /* x70405 stalin.sc:3521:119391 */ /* x70404 stalin.sc:3522:119404 */ /* x70403 stalin.sc:3522:119412 */ /* x70402 stalin.sc:3522:119420 */ /* x70401 stalin.sc:3522:119428 */ /* x70400 stalin.sc:3522:119436 */ /* x70399 stalin.sc:3522:119458 */ t73695 = a21869; /* x70398 stalin.sc:3522:119437 */ a36933 = t73695; /* x280401 */ /* x280400 */ t73696 = a36933; /* x280399 */ if (!((t73696.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31850]"); structure_ref_error();} t73694 = t73696.value.structure_type27692->s8; /* x70397 stalin.sc:3522:119429 */ t73693 = f8682(t73694); /* x70396 stalin.sc:3522:119421 */ t73692 = f8682(t73693); /* x70395 stalin.sc:3522:119413 */ t73691 = f8682(t73692); /* x70394 stalin.sc:3522:119405 */ t73690 = f8682(t73691); /* x70393 stalin.sc:3521:119392 */ t73689 = f8682(t73690); /* x70392 stalin.sc:3520:119380 */ if (f8581(t73689)==FALSE_TYPE) goto l13021; /* x70444 */ /* x70411 stalin.sc:3523:119470 */ /* x70410 stalin.sc:3523:119476 */ /* x70409 stalin.sc:3523:119498 */ t73698 = a21869; /* x70408 stalin.sc:3523:119477 */ a36932 = t73698; /* x280397 */ /* x280396 */ t73699 = a36932; /* x280395 */ if (!((t73699.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31849]"); structure_ref_error();} t73697 = t73699.value.structure_type27692->s8; /* x70407 stalin.sc:3523:119471 */ if (f8903(t73697)==FALSE_TYPE) goto l13021; /* x70442 */ /* x70418 stalin.sc:3524:119505 */ /* x70417 stalin.sc:3524:119511 */ /* x70416 stalin.sc:3524:119519 */ /* x70415 stalin.sc:3524:119541 */ t73702 = a21869; /* x70414 stalin.sc:3524:119520 */ a36931 = t73702; /* x280393 */ /* x280392 */ t73703 = a36931; /* x280391 */ if (!((t73703.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31848]"); structure_ref_error();} t73701 = t73703.value.structure_type27692->s8; /* x70413 stalin.sc:3524:119512 */ t73700 = f8682(t73701); /* x70412 stalin.sc:3524:119506 */ if (f8903(t73700)==FALSE_TYPE) goto l13021; /* x70440 */ /* x70427 stalin.sc:3525:119549 */ /* x70426 stalin.sc:3525:119555 */ /* x70425 stalin.sc:3525:119563 */ /* x70424 stalin.sc:3525:119571 */ /* x70423 stalin.sc:3525:119593 */ t73707 = a21869; /* x70422 stalin.sc:3525:119572 */ a36930 = t73707; /* x280389 */ /* x280388 */ t73708 = a36930; /* x280387 */ if (!((t73708.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31847]"); structure_ref_error();} t73706 = t73708.value.structure_type27692->s8; /* x70421 stalin.sc:3525:119564 */ t73705 = f8682(t73706); /* x70420 stalin.sc:3525:119556 */ t73704 = f8682(t73705); /* x70419 stalin.sc:3525:119550 */ if (f8903(t73704)==FALSE_TYPE) goto l13021; /* x70438 */ /* x70437 stalin.sc:3526:119608 */ /* x70436 stalin.sc:3526:119616 */ /* x70435 stalin.sc:3526:119624 */ /* x70434 stalin.sc:3526:119632 */ /* x70433 stalin.sc:3526:119654 */ t73713 = a21869; /* x70432 stalin.sc:3526:119633 */ a36929 = t73713; /* x280385 */ /* x280384 */ t73714 = a36929; /* x280383 */ if (!((t73714.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31846]"); structure_ref_error();} t73712 = t73714.value.structure_type27692->s8; /* x70431 stalin.sc:3526:119625 */ t73711 = f8682(t73712); /* x70430 stalin.sc:3526:119617 */ t73710 = f8682(t73711); /* x70429 stalin.sc:3526:119609 */ t73709 = f8682(t73710); /* x70428 stalin.sc:3526:119603 */ if (f8903(t73709)==FALSE_TYPE) goto l13021; l13020: return TRUE_TYPE; l13021: return FALSE_TYPE;} /* VARIABLE-USED?[8224] */ struct w16638 f8224(struct w49 a21868) {struct w49 a36956; /* S */ struct w49 t73715; struct w49 t73716; struct w49 t73717; /* x70335 stalin.sc:3496:118217 */ /* x70334 stalin.sc:3496:118226 */ /* x70333 stalin.sc:3496:118248 */ t73716 = a21868; /* x70332 stalin.sc:3496:118227 */ a36956 = t73716; /* x280493 */ /* x280492 */ t73717 = a36956; /* x280491 */ if (!((t73717.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31873]"); structure_ref_error();} t73715 = t73717.value.structure_type27692->s8; /* x70331 stalin.sc:3496:118218 */ return f8899(t73715);} /* SET-VARIABLE-SLOTTED?![8220] */ void f8220(struct w49 a21865, unsigned a21866) {int a34826; /* N */ struct w49 a36781; /* S */ struct w49 a36782; /* S */ struct w49 t73718; int t73719; int t73720; int t73721; struct structure_type24753 *t73722; struct w49 t73723; struct w49 t73724; struct w49 t73725; int t73726; int t73727; int t73728; int t73729; struct structure_type24753 *t73730; struct w49 t73731; struct w49 t73732; struct w49 t73733; unsigned t73734; /* x70328 */ /* x70327 stalin.sc:3489:118026 */ /* x70320 stalin.sc:3489:118034 */ /* x70319 stalin.sc:3489:118044 */ t73734 = a21866; /* x270344 stalin.sc:3489:118035 */ /* x70322 */ /* x70321 */ /* x70317 */ /* x70316 stalin.sc:3490:118060 */ /* x70299 stalin.sc:3491:118086 */ t73718 = a21865; /* x70315 stalin.sc:3492:118090 */ /* x70300 stalin.sc:3492:118094 */ if (a21866==FALSE_TYPE) goto l13047; /* x70306 stalin.sc:3493:118103 */ /* x70305 stalin.sc:3493:118133 */ t73729 = 1; /* x70304 stalin.sc:3493:118111 */ /* x70303 stalin.sc:3493:118130 */ t73732 = a21865; /* x70302 stalin.sc:3493:118112 */ a36781 = t73732; /* x279793 */ /* x279792 */ t73733 = a36781; /* x279791 */ if (!((t73733.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-BOOLEANS[6621] 31698]"); structure_ref_error();} t73728 = t73733.value.structure_type27692->s13; /* x70301 stalin.sc:3493:118104 */ t73731.tag = STRUCTURE_TYPE24753; t73731.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t73731.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3493, 118103); out_of_memory_error();} t73731.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73731.value.structure_type24753->s0.value.fixnum_type = t73729; t73731.value.structure_type24753->s1.tag = NULL_TYPE; t73730 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t73730==NULL) {backtrace("stalin.sc", 3493, 118103); out_of_memory_error();} t73730->s0.tag = FIXNUM_TYPE; t73730->s0.value.fixnum_type = t73728; t73730->s1 = t73731; t73719 = f27310(t73730); goto l13048; l13047: /* x70314 stalin.sc:3494:118142 */ /* x70313 stalin.sc:3494:118173 */ /* x70312 stalin.sc:3494:118182 */ t73726 = 1; /* x70311 stalin.sc:3494:118174 */ a34826 = t73726; /* x271589 */ /* x271588 */ t73727 = a34826; /* x271587 */ t73721 = ~t73727; /* x70310 stalin.sc:3494:118151 */ /* x70309 stalin.sc:3494:118170 */ t73724 = a21865; /* x70308 stalin.sc:3494:118152 */ a36782 = t73724; /* x279797 */ /* x279796 */ t73725 = a36782; /* x279795 */ if (!((t73725.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-BOOLEANS[6621] 31699]"); structure_ref_error();} t73720 = t73725.value.structure_type27692->s13; /* x70307 stalin.sc:3494:118143 */ t73723.tag = STRUCTURE_TYPE24753; t73723.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t73723.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3494, 118142); out_of_memory_error();} t73723.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73723.value.structure_type24753->s0.value.fixnum_type = t73721; t73723.value.structure_type24753->s1.tag = NULL_TYPE; t73722 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t73722==NULL) {backtrace("stalin.sc", 3494, 118142); out_of_memory_error();} t73722->s0.tag = FIXNUM_TYPE; t73722->s0.value.fixnum_type = t73720; t73722->s1 = t73723; t73719 = f27305(t73722); l13048: /* x70298 stalin.sc:3490:118061 */ f6622(t73718, t73719); return;} /* VARIABLE-SLOTTED?[8219] */ unsigned f8219(struct w49 a21864) {struct w49 a36795; /* S */ int t73735; int t73736; int t73737; struct structure_type24753 *t73738; struct w49 t73739; struct w49 t73740; struct w49 t73741; /* x70295 stalin.sc:3486:117937 */ /* x70295 stalin.sc:3486:117937 */ /* x70294 stalin.sc:3486:117942 */ /* x70293 stalin.sc:3486:117949 */ /* x70292 stalin.sc:3486:117980 */ t73737 = 1; /* x70291 stalin.sc:3486:117958 */ /* x70290 stalin.sc:3486:117977 */ t73740 = a21864; /* x70289 stalin.sc:3486:117959 */ a36795 = t73740; /* x279849 */ /* x279848 */ t73741 = a36795; /* x279847 */ if (!((t73741.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-BOOLEANS[6621] 31712]"); structure_ref_error();} t73736 = t73741.value.structure_type27692->s13; /* x70288 stalin.sc:3486:117950 */ t73739.tag = STRUCTURE_TYPE24753; t73739.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t73739.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3486, 117949); out_of_memory_error();} t73739.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73739.value.structure_type24753->s0.value.fixnum_type = t73737; t73739.value.structure_type24753->s1.tag = NULL_TYPE; t73738 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t73738==NULL) {backtrace("stalin.sc", 3486, 117949); out_of_memory_error();} t73738->s0.tag = FIXNUM_TYPE; t73738->s0.value.fixnum_type = t73736; t73738->s1 = t73739; t73735 = f27305(t73738); /* x270345 stalin.sc:3486:117943 */ if (t73735==0) goto l13051; return TRUE_TYPE; l13051: return FALSE_TYPE;} /* SET-VARIABLE-HIDDEN?![8215] */ void f8215(struct w49 a21861, unsigned a21862) {struct w49 a20490; /* S */ int a34850; /* N */ struct w49 a36789; /* S */ struct w49 t73742; int t73743; int t73744; int t73745; struct structure_type24753 *t73746; struct w49 t73747; struct w49 t73748; struct w49 t73749; int t73750; int t73751; int t73752; int t73753; struct structure_type24753 *t73754; struct w49 t73755; struct w49 t73756; struct w49 t73757; unsigned t73758; /* x70283 */ /* x70282 stalin.sc:3478:117742 */ /* x70275 stalin.sc:3478:117750 */ /* x70274 stalin.sc:3478:117760 */ t73758 = a21862; /* x270347 stalin.sc:3478:117751 */ /* x70277 */ /* x70276 */ /* x70272 */ /* x70271 stalin.sc:3479:117776 */ /* x70254 stalin.sc:3480:117802 */ t73742 = a21861; /* x70270 stalin.sc:3481:117806 */ /* x70255 stalin.sc:3481:117810 */ if (a21862==FALSE_TYPE) goto l13054; /* x70261 stalin.sc:3482:117819 */ /* x70260 stalin.sc:3482:117849 */ t73753 = 2; /* x70259 stalin.sc:3482:117827 */ /* x70258 stalin.sc:3482:117846 */ t73756 = a21861; /* x70257 stalin.sc:3482:117828 */ a20490 = t73756; /* x55265 */ /* x55264 */ t73757 = a20490; /* x55263 */ if (!((t73757.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("VARIABLE-BOOLEANS[6621]"); structure_ref_error();} t73752 = t73757.value.structure_type27692->s13; /* x70256 stalin.sc:3482:117820 */ t73755.tag = STRUCTURE_TYPE24753; t73755.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t73755.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3482, 117819); out_of_memory_error();} t73755.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73755.value.structure_type24753->s0.value.fixnum_type = t73753; t73755.value.structure_type24753->s1.tag = NULL_TYPE; t73754 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t73754==NULL) {backtrace("stalin.sc", 3482, 117819); out_of_memory_error();} t73754->s0.tag = FIXNUM_TYPE; t73754->s0.value.fixnum_type = t73752; t73754->s1 = t73755; t73743 = f27310(t73754); goto l13055; l13054: /* x70269 stalin.sc:3483:117858 */ /* x70268 stalin.sc:3483:117889 */ /* x70267 stalin.sc:3483:117898 */ t73750 = 2; /* x70266 stalin.sc:3483:117890 */ a34850 = t73750; /* x271685 */ /* x271684 */ t73751 = a34850; /* x271683 */ t73745 = ~t73751; /* x70265 stalin.sc:3483:117867 */ /* x70264 stalin.sc:3483:117886 */ t73748 = a21861; /* x70263 stalin.sc:3483:117868 */ a36789 = t73748; /* x279825 */ /* x279824 */ t73749 = a36789; /* x279823 */ if (!((t73749.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-BOOLEANS[6621] 31706]"); structure_ref_error();} t73744 = t73749.value.structure_type27692->s13; /* x70262 stalin.sc:3483:117859 */ t73747.tag = STRUCTURE_TYPE24753; t73747.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t73747.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3483, 117858); out_of_memory_error();} t73747.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73747.value.structure_type24753->s0.value.fixnum_type = t73745; t73747.value.structure_type24753->s1.tag = NULL_TYPE; t73746 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t73746==NULL) {backtrace("stalin.sc", 3483, 117858); out_of_memory_error();} t73746->s0.tag = FIXNUM_TYPE; t73746->s0.value.fixnum_type = t73744; t73746->s1 = t73747; t73743 = f27305(t73746); l13055: /* x70253 stalin.sc:3479:117777 */ f6622(t73742, t73743); return;} /* VARIABLE-HIDDEN?[8214] */ unsigned f8214(struct w49 a21860) {struct w49 a36794; /* S */ int t73759; int t73760; int t73761; struct structure_type24753 *t73762; struct w49 t73763; struct w49 t73764; struct w49 t73765; /* x70250 stalin.sc:3475:117654 */ /* x70250 stalin.sc:3475:117654 */ /* x70249 stalin.sc:3475:117659 */ /* x70248 stalin.sc:3475:117666 */ /* x70247 stalin.sc:3475:117697 */ t73761 = 2; /* x70246 stalin.sc:3475:117675 */ /* x70245 stalin.sc:3475:117694 */ t73764 = a21860; /* x70244 stalin.sc:3475:117676 */ a36794 = t73764; /* x279845 */ /* x279844 */ t73765 = a36794; /* x279843 */ if (!((t73765.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-BOOLEANS[6621] 31711]"); structure_ref_error();} t73760 = t73765.value.structure_type27692->s13; /* x70243 stalin.sc:3475:117667 */ t73763.tag = STRUCTURE_TYPE24753; t73763.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t73763.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3475, 117666); out_of_memory_error();} t73763.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73763.value.structure_type24753->s0.value.fixnum_type = t73761; t73763.value.structure_type24753->s1.tag = NULL_TYPE; t73762 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t73762==NULL) {backtrace("stalin.sc", 3475, 117666); out_of_memory_error();} t73762->s0.tag = FIXNUM_TYPE; t73762->s0.value.fixnum_type = t73760; t73762->s1 = t73763; t73759 = f27305(t73762); /* x270348 stalin.sc:3475:117660 */ if (t73759==0) goto l13058; return TRUE_TYPE; l13058: return FALSE_TYPE;} /* SET-VARIABLE-GLOBAL?![8210] */ void f8210(struct w49 a21857, unsigned a21858) {int a34849; /* N */ struct w49 a36780; /* S */ struct w49 a36788; /* S */ struct w49 t73766; int t73767; int t73768; int t73769; struct structure_type24753 *t73770; struct w49 t73771; struct w49 t73772; struct w49 t73773; int t73774; int t73775; int t73776; int t73777; struct structure_type24753 *t73778; struct w49 t73779; struct w49 t73780; struct w49 t73781; unsigned t73782; /* x70238 */ /* x70237 stalin.sc:3467:117460 */ /* x70230 stalin.sc:3467:117468 */ /* x70229 stalin.sc:3467:117478 */ t73782 = a21858; /* x270350 stalin.sc:3467:117469 */ /* x70232 */ /* x70231 */ /* x70227 */ /* x70226 stalin.sc:3468:117494 */ /* x70209 stalin.sc:3469:117520 */ t73766 = a21857; /* x70225 stalin.sc:3470:117524 */ /* x70210 stalin.sc:3470:117528 */ if (a21858==FALSE_TYPE) goto l13061; /* x70216 stalin.sc:3471:117537 */ /* x70215 stalin.sc:3471:117567 */ t73777 = 4; /* x70214 stalin.sc:3471:117545 */ /* x70213 stalin.sc:3471:117564 */ t73780 = a21857; /* x70212 stalin.sc:3471:117546 */ a36780 = t73780; /* x279789 */ /* x279788 */ t73781 = a36780; /* x279787 */ if (!((t73781.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-BOOLEANS[6621] 31697]"); structure_ref_error();} t73776 = t73781.value.structure_type27692->s13; /* x70211 stalin.sc:3471:117538 */ t73779.tag = STRUCTURE_TYPE24753; t73779.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t73779.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3471, 117537); out_of_memory_error();} t73779.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73779.value.structure_type24753->s0.value.fixnum_type = t73777; t73779.value.structure_type24753->s1.tag = NULL_TYPE; t73778 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t73778==NULL) {backtrace("stalin.sc", 3471, 117537); out_of_memory_error();} t73778->s0.tag = FIXNUM_TYPE; t73778->s0.value.fixnum_type = t73776; t73778->s1 = t73779; t73767 = f27310(t73778); goto l13062; l13061: /* x70224 stalin.sc:3472:117576 */ /* x70223 stalin.sc:3472:117607 */ /* x70222 stalin.sc:3472:117616 */ t73774 = 4; /* x70221 stalin.sc:3472:117608 */ a34849 = t73774; /* x271681 */ /* x271680 */ t73775 = a34849; /* x271679 */ t73769 = ~t73775; /* x70220 stalin.sc:3472:117585 */ /* x70219 stalin.sc:3472:117604 */ t73772 = a21857; /* x70218 stalin.sc:3472:117586 */ a36788 = t73772; /* x279821 */ /* x279820 */ t73773 = a36788; /* x279819 */ if (!((t73773.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-BOOLEANS[6621] 31705]"); structure_ref_error();} t73768 = t73773.value.structure_type27692->s13; /* x70217 stalin.sc:3472:117577 */ t73771.tag = STRUCTURE_TYPE24753; t73771.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t73771.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3472, 117576); out_of_memory_error();} t73771.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73771.value.structure_type24753->s0.value.fixnum_type = t73769; t73771.value.structure_type24753->s1.tag = NULL_TYPE; t73770 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t73770==NULL) {backtrace("stalin.sc", 3472, 117576); out_of_memory_error();} t73770->s0.tag = FIXNUM_TYPE; t73770->s0.value.fixnum_type = t73768; t73770->s1 = t73771; t73767 = f27305(t73770); l13062: /* x70208 stalin.sc:3468:117495 */ f6622(t73766, t73767); return;} /* VARIABLE-GLOBAL?[8209] */ unsigned f8209(struct w49 a21856) {struct w49 a36793; /* S */ int t73783; int t73784; int t73785; struct structure_type24753 *t73786; struct w49 t73787; struct w49 t73788; struct w49 t73789; /* x70205 stalin.sc:3464:117372 */ /* x70205 stalin.sc:3464:117372 */ /* x70204 stalin.sc:3464:117377 */ /* x70203 stalin.sc:3464:117384 */ /* x70202 stalin.sc:3464:117415 */ t73785 = 4; /* x70201 stalin.sc:3464:117393 */ /* x70200 stalin.sc:3464:117412 */ t73788 = a21856; /* x70199 stalin.sc:3464:117394 */ a36793 = t73788; /* x279841 */ /* x279840 */ t73789 = a36793; /* x279839 */ if (!((t73789.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-BOOLEANS[6621] 31710]"); structure_ref_error();} t73784 = t73789.value.structure_type27692->s13; /* x70198 stalin.sc:3464:117385 */ t73787.tag = STRUCTURE_TYPE24753; t73787.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t73787.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3464, 117384); out_of_memory_error();} t73787.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73787.value.structure_type24753->s0.value.fixnum_type = t73785; t73787.value.structure_type24753->s1.tag = NULL_TYPE; t73786 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t73786==NULL) {backtrace("stalin.sc", 3464, 117384); out_of_memory_error();} t73786->s0.tag = FIXNUM_TYPE; t73786->s0.value.fixnum_type = t73784; t73786->s1 = t73787; t73783 = f27305(t73786); /* x270351 stalin.sc:3464:117378 */ if (t73783==0) goto l13065; return TRUE_TYPE; l13065: return FALSE_TYPE;} /* SET-VARIABLE-LOCAL?![8205] */ void f8205(struct w49 a21853, unsigned a21854) {int a34848; /* N */ struct w49 a36779; /* S */ struct w49 a36787; /* S */ struct w49 t73790; int t73791; int t73792; int t73793; struct structure_type24753 *t73794; struct w49 t73795; struct w49 t73796; struct w49 t73797; int t73798; int t73799; int t73800; int t73801; struct structure_type24753 *t73802; struct w49 t73803; struct w49 t73804; struct w49 t73805; unsigned t73806; /* x70193 */ /* x70192 stalin.sc:3456:117178 */ /* x70185 stalin.sc:3456:117186 */ /* x70184 stalin.sc:3456:117196 */ t73806 = a21854; /* x270353 stalin.sc:3456:117187 */ /* x70187 */ /* x70186 */ /* x70182 */ /* x70181 stalin.sc:3457:117212 */ /* x70164 stalin.sc:3458:117238 */ t73790 = a21853; /* x70180 stalin.sc:3459:117242 */ /* x70165 stalin.sc:3459:117246 */ if (a21854==FALSE_TYPE) goto l13068; /* x70171 stalin.sc:3460:117255 */ /* x70170 stalin.sc:3460:117285 */ t73801 = 8; /* x70169 stalin.sc:3460:117263 */ /* x70168 stalin.sc:3460:117282 */ t73804 = a21853; /* x70167 stalin.sc:3460:117264 */ a36779 = t73804; /* x279785 */ /* x279784 */ t73805 = a36779; /* x279783 */ if (!((t73805.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-BOOLEANS[6621] 31696]"); structure_ref_error();} t73800 = t73805.value.structure_type27692->s13; /* x70166 stalin.sc:3460:117256 */ t73803.tag = STRUCTURE_TYPE24753; t73803.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t73803.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3460, 117255); out_of_memory_error();} t73803.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73803.value.structure_type24753->s0.value.fixnum_type = t73801; t73803.value.structure_type24753->s1.tag = NULL_TYPE; t73802 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t73802==NULL) {backtrace("stalin.sc", 3460, 117255); out_of_memory_error();} t73802->s0.tag = FIXNUM_TYPE; t73802->s0.value.fixnum_type = t73800; t73802->s1 = t73803; t73791 = f27310(t73802); goto l13069; l13068: /* x70179 stalin.sc:3461:117294 */ /* x70178 stalin.sc:3461:117325 */ /* x70177 stalin.sc:3461:117334 */ t73798 = 8; /* x70176 stalin.sc:3461:117326 */ a34848 = t73798; /* x271677 */ /* x271676 */ t73799 = a34848; /* x271675 */ t73793 = ~t73799; /* x70175 stalin.sc:3461:117303 */ /* x70174 stalin.sc:3461:117322 */ t73796 = a21853; /* x70173 stalin.sc:3461:117304 */ a36787 = t73796; /* x279817 */ /* x279816 */ t73797 = a36787; /* x279815 */ if (!((t73797.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-BOOLEANS[6621] 31704]"); structure_ref_error();} t73792 = t73797.value.structure_type27692->s13; /* x70172 stalin.sc:3461:117295 */ t73795.tag = STRUCTURE_TYPE24753; t73795.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t73795.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3461, 117294); out_of_memory_error();} t73795.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73795.value.structure_type24753->s0.value.fixnum_type = t73793; t73795.value.structure_type24753->s1.tag = NULL_TYPE; t73794 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t73794==NULL) {backtrace("stalin.sc", 3461, 117294); out_of_memory_error();} t73794->s0.tag = FIXNUM_TYPE; t73794->s0.value.fixnum_type = t73792; t73794->s1 = t73795; t73791 = f27305(t73794); l13069: /* x70163 stalin.sc:3457:117213 */ f6622(t73790, t73791); return;} /* VARIABLE-LOCAL?[8204] */ unsigned f8204(struct w49 a21852) {struct w49 a36792; /* S */ int t73807; int t73808; int t73809; struct structure_type24753 *t73810; struct w49 t73811; struct w49 t73812; struct w49 t73813; /* x70160 stalin.sc:3453:117091 */ /* x70160 stalin.sc:3453:117091 */ /* x70159 stalin.sc:3453:117096 */ /* x70158 stalin.sc:3453:117103 */ /* x70157 stalin.sc:3453:117134 */ t73809 = 8; /* x70156 stalin.sc:3453:117112 */ /* x70155 stalin.sc:3453:117131 */ t73812 = a21852; /* x70154 stalin.sc:3453:117113 */ a36792 = t73812; /* x279837 */ /* x279836 */ t73813 = a36792; /* x279835 */ if (!((t73813.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-BOOLEANS[6621] 31709]"); structure_ref_error();} t73808 = t73813.value.structure_type27692->s13; /* x70153 stalin.sc:3453:117104 */ t73811.tag = STRUCTURE_TYPE24753; t73811.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t73811.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3453, 117103); out_of_memory_error();} t73811.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73811.value.structure_type24753->s0.value.fixnum_type = t73809; t73811.value.structure_type24753->s1.tag = NULL_TYPE; t73810 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t73810==NULL) {backtrace("stalin.sc", 3453, 117103); out_of_memory_error();} t73810->s0.tag = FIXNUM_TYPE; t73810->s0.value.fixnum_type = t73808; t73810->s1 = t73811; t73807 = f27305(t73810); /* x270354 stalin.sc:3453:117097 */ if (t73807==0) goto l13072; return TRUE_TYPE; l13072: return FALSE_TYPE;} /* SET-VARIABLE-ASSIGNED?![8200] */ void f8200(struct w49 a21849, unsigned a21850) {int a34834; /* N */ struct w49 a36784; /* S */ struct w49 a36786; /* S */ struct w49 t73814; int t73815; int t73816; int t73817; struct structure_type24753 *t73818; struct w49 t73819; struct w49 t73820; struct w49 t73821; int t73822; int t73823; int t73824; int t73825; struct structure_type24753 *t73826; struct w49 t73827; struct w49 t73828; struct w49 t73829; unsigned t73830; /* x70148 */ /* x70147 stalin.sc:3445:116896 */ /* x70140 stalin.sc:3445:116904 */ /* x70139 stalin.sc:3445:116914 */ t73830 = a21850; /* x270356 stalin.sc:3445:116905 */ /* x70142 */ /* x70141 */ /* x70137 */ /* x70136 stalin.sc:3446:116930 */ /* x70119 stalin.sc:3447:116956 */ t73814 = a21849; /* x70135 stalin.sc:3448:116960 */ /* x70120 stalin.sc:3448:116964 */ if (a21850==FALSE_TYPE) goto l13075; /* x70126 stalin.sc:3449:116973 */ /* x70125 stalin.sc:3449:117003 */ t73825 = 16; /* x70124 stalin.sc:3449:116981 */ /* x70123 stalin.sc:3449:117000 */ t73828 = a21849; /* x70122 stalin.sc:3449:116982 */ a36784 = t73828; /* x279805 */ /* x279804 */ t73829 = a36784; /* x279803 */ if (!((t73829.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-BOOLEANS[6621] 31701]"); structure_ref_error();} t73824 = t73829.value.structure_type27692->s13; /* x70121 stalin.sc:3449:116974 */ t73827.tag = STRUCTURE_TYPE24753; t73827.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t73827.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3449, 116973); out_of_memory_error();} t73827.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73827.value.structure_type24753->s0.value.fixnum_type = t73825; t73827.value.structure_type24753->s1.tag = NULL_TYPE; t73826 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t73826==NULL) {backtrace("stalin.sc", 3449, 116973); out_of_memory_error();} t73826->s0.tag = FIXNUM_TYPE; t73826->s0.value.fixnum_type = t73824; t73826->s1 = t73827; t73815 = f27310(t73826); goto l13076; l13075: /* x70134 stalin.sc:3450:117013 */ /* x70133 stalin.sc:3450:117044 */ /* x70132 stalin.sc:3450:117053 */ t73822 = 16; /* x70131 stalin.sc:3450:117045 */ a34834 = t73822; /* x271621 */ /* x271620 */ t73823 = a34834; /* x271619 */ t73817 = ~t73823; /* x70130 stalin.sc:3450:117022 */ /* x70129 stalin.sc:3450:117041 */ t73820 = a21849; /* x70128 stalin.sc:3450:117023 */ a36786 = t73820; /* x279813 */ /* x279812 */ t73821 = a36786; /* x279811 */ if (!((t73821.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-BOOLEANS[6621] 31703]"); structure_ref_error();} t73816 = t73821.value.structure_type27692->s13; /* x70127 stalin.sc:3450:117014 */ t73819.tag = STRUCTURE_TYPE24753; t73819.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t73819.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3450, 117013); out_of_memory_error();} t73819.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73819.value.structure_type24753->s0.value.fixnum_type = t73817; t73819.value.structure_type24753->s1.tag = NULL_TYPE; t73818 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t73818==NULL) {backtrace("stalin.sc", 3450, 117013); out_of_memory_error();} t73818->s0.tag = FIXNUM_TYPE; t73818->s0.value.fixnum_type = t73816; t73818->s1 = t73819; t73815 = f27305(t73818); l13076: /* x70118 stalin.sc:3446:116931 */ f6622(t73814, t73815); return;} /* VARIABLE-ASSIGNED?[8199] */ unsigned f8199(struct w49 a21848) {struct w49 a36790; /* S */ int t73831; int t73832; int t73833; struct structure_type24753 *t73834; struct w49 t73835; struct w49 t73836; struct w49 t73837; /* x70115 stalin.sc:3442:116805 */ /* x70115 stalin.sc:3442:116805 */ /* x70114 stalin.sc:3442:116810 */ /* x70113 stalin.sc:3442:116817 */ /* x70112 stalin.sc:3442:116848 */ t73833 = 16; /* x70111 stalin.sc:3442:116826 */ /* x70110 stalin.sc:3442:116845 */ t73836 = a21848; /* x70109 stalin.sc:3442:116827 */ a36790 = t73836; /* x279829 */ /* x279828 */ t73837 = a36790; /* x279827 */ if (!((t73837.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-BOOLEANS[6621] 31707]"); structure_ref_error();} t73832 = t73837.value.structure_type27692->s13; /* x70108 stalin.sc:3442:116818 */ t73835.tag = STRUCTURE_TYPE24753; t73835.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t73835.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3442, 116817); out_of_memory_error();} t73835.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73835.value.structure_type24753->s0.value.fixnum_type = t73833; t73835.value.structure_type24753->s1.tag = NULL_TYPE; t73834 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t73834==NULL) {backtrace("stalin.sc", 3442, 116817); out_of_memory_error();} t73834->s0.tag = FIXNUM_TYPE; t73834->s0.value.fixnum_type = t73832; t73834->s1 = t73835; t73831 = f27305(t73834); /* x270357 stalin.sc:3442:116811 */ if (t73831==0) goto l13079; return TRUE_TYPE; l13079: return FALSE_TYPE;} /* SET-VARIABLE-ACCESSED?![8195] */ void f8195(struct w49 a21845, unsigned a21846) {int a34833; /* N */ struct w49 a36783; /* S */ struct w49 a36785; /* S */ struct w49 t73838; int t73839; int t73840; int t73841; struct structure_type24753 *t73842; struct w49 t73843; struct w49 t73844; struct w49 t73845; int t73846; int t73847; int t73848; int t73849; struct structure_type24753 *t73850; struct w49 t73851; struct w49 t73852; struct w49 t73853; unsigned t73854; /* x70103 */ /* x70102 stalin.sc:3434:116607 */ /* x70095 stalin.sc:3434:116615 */ /* x70094 stalin.sc:3434:116625 */ t73854 = a21846; /* x270359 stalin.sc:3434:116616 */ /* x70097 */ /* x70096 */ /* x70092 */ /* x70091 stalin.sc:3435:116641 */ /* x70074 stalin.sc:3436:116667 */ t73838 = a21845; /* x70090 stalin.sc:3437:116671 */ /* x70075 stalin.sc:3437:116675 */ if (a21846==FALSE_TYPE) goto l13082; /* x70081 stalin.sc:3438:116684 */ /* x70080 stalin.sc:3438:116714 */ t73849 = 32; /* x70079 stalin.sc:3438:116692 */ /* x70078 stalin.sc:3438:116711 */ t73852 = a21845; /* x70077 stalin.sc:3438:116693 */ a36783 = t73852; /* x279801 */ /* x279800 */ t73853 = a36783; /* x279799 */ if (!((t73853.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-BOOLEANS[6621] 31700]"); structure_ref_error();} t73848 = t73853.value.structure_type27692->s13; /* x70076 stalin.sc:3438:116685 */ t73851.tag = STRUCTURE_TYPE24753; t73851.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t73851.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3438, 116684); out_of_memory_error();} t73851.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73851.value.structure_type24753->s0.value.fixnum_type = t73849; t73851.value.structure_type24753->s1.tag = NULL_TYPE; t73850 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t73850==NULL) {backtrace("stalin.sc", 3438, 116684); out_of_memory_error();} t73850->s0.tag = FIXNUM_TYPE; t73850->s0.value.fixnum_type = t73848; t73850->s1 = t73851; t73839 = f27310(t73850); goto l13083; l13082: /* x70089 stalin.sc:3439:116724 */ /* x70088 stalin.sc:3439:116755 */ /* x70087 stalin.sc:3439:116764 */ t73846 = 32; /* x70086 stalin.sc:3439:116756 */ a34833 = t73846; /* x271617 */ /* x271616 */ t73847 = a34833; /* x271615 */ t73841 = ~t73847; /* x70085 stalin.sc:3439:116733 */ /* x70084 stalin.sc:3439:116752 */ t73844 = a21845; /* x70083 stalin.sc:3439:116734 */ a36785 = t73844; /* x279809 */ /* x279808 */ t73845 = a36785; /* x279807 */ if (!((t73845.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-BOOLEANS[6621] 31702]"); structure_ref_error();} t73840 = t73845.value.structure_type27692->s13; /* x70082 stalin.sc:3439:116725 */ t73843.tag = STRUCTURE_TYPE24753; t73843.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t73843.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3439, 116724); out_of_memory_error();} t73843.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73843.value.structure_type24753->s0.value.fixnum_type = t73841; t73843.value.structure_type24753->s1.tag = NULL_TYPE; t73842 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t73842==NULL) {backtrace("stalin.sc", 3439, 116724); out_of_memory_error();} t73842->s0.tag = FIXNUM_TYPE; t73842->s0.value.fixnum_type = t73840; t73842->s1 = t73843; t73839 = f27305(t73842); l13083: /* x70073 stalin.sc:3435:116642 */ f6622(t73838, t73839); return;} /* VARIABLE-ACCESSED?[8194] */ unsigned f8194(struct w49 a21844) {struct w49 a36791; /* S */ int t73855; int t73856; int t73857; struct structure_type24753 *t73858; struct w49 t73859; struct w49 t73860; struct w49 t73861; /* x70070 stalin.sc:3431:116516 */ /* x70070 stalin.sc:3431:116516 */ /* x70069 stalin.sc:3431:116521 */ /* x70068 stalin.sc:3431:116528 */ /* x70067 stalin.sc:3431:116559 */ t73857 = 32; /* x70066 stalin.sc:3431:116537 */ /* x70065 stalin.sc:3431:116556 */ t73860 = a21844; /* x70064 stalin.sc:3431:116538 */ a36791 = t73860; /* x279833 */ /* x279832 */ t73861 = a36791; /* x279831 */ if (!((t73861.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-BOOLEANS[6621] 31708]"); structure_ref_error();} t73856 = t73861.value.structure_type27692->s13; /* x70063 stalin.sc:3431:116529 */ t73859.tag = STRUCTURE_TYPE24753; t73859.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t73859.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3431, 116528); out_of_memory_error();} t73859.value.structure_type24753->s0.tag = FIXNUM_TYPE; t73859.value.structure_type24753->s0.value.fixnum_type = t73857; t73859.value.structure_type24753->s1.tag = NULL_TYPE; t73858 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t73858==NULL) {backtrace("stalin.sc", 3431, 116528); out_of_memory_error();} t73858->s0.tag = FIXNUM_TYPE; t73858->s0.value.fixnum_type = t73856; t73858->s1 = t73859; t73855 = f27305(t73858); /* x270360 stalin.sc:3431:116522 */ if (t73855==0) goto l13086; return TRUE_TYPE; l13086: return FALSE_TYPE;} /* CREATE-VARIABLE[8188] */ struct structure_type27692 *f8188(struct w49 a21840) {struct w49 a18922; /* S */ struct w49 a20360; /* S */ struct w49 a20370; /* S */ struct w49 a20380; /* S */ struct w49 a20390; /* S */ struct w49 a20400; /* S */ struct w49 a20410; /* S */ struct structure_type27692 *a21841; /* G */ struct w49 a36979; /* S */ struct w49 a37027; /* OBJ */ struct w49 a40475; /* S */ struct w49 a40485; /* S */ struct w49 a40496; /* S */ struct w49 a40507; /* S */ struct w49 a40519; /* S */ struct w49 a40528; /* S */ struct w49 a40537; /* OBJ */ struct structure_type27692 *t73862; unsigned t73863; int t73864; struct structure_type27692 *t73865; struct w21193 t73866; struct w49 t73867; struct w49 t73868; struct w49 t73869; struct w49 t73870; char *t73871; struct w49 t73872; struct w6194 t73873; struct w6194 t73874; struct w6194 t73875; unsigned t73876; struct w49 t73877; char *t73878; char *t73879; int t73880; struct w49 t73881; struct w49 t73882; struct w49 t73883; struct w49 t73884; struct w49 t73885; struct w49 t73886; struct w49 t73887; struct w49 t73888; struct w49 t73889; struct w49 t73890; struct w49 t73891; struct w49 t73892; struct w49 t73893; struct w49 t73894; struct w49 t73895; struct w6194 t73896; struct w6194 t73897; struct w6194 t73898; unsigned t73899; struct w49 t73900; char *t73901; char *t73902; int t73903; struct w49 t73904; struct w49 t73905; struct w49 t73906; struct w49 t73907; struct w49 t73908; struct w49 t73909; struct w49 t73910; struct w49 t73911; struct w49 t73912; struct w49 t73913; struct w49 t73914; struct w49 t73915; struct w49 t73916; struct w49 t73917; /* x70058 stalin.sc:3403:115699 */ /* x70057 stalin.sc:3403:115708 */ /* x69980 stalin.sc:3403:115715 */ /* x69979 stalin.sc:3403:115730 */ t73867 = a21840; /* x69978 stalin.sc:3403:115716 */ a40537 = t73867; /* x294817 */ /* x294816 */ t73868 = a40537; /* x294815 */ if (!((t73868.tag)==STRUCTURE_TYPE27510)) goto l13089; /* x70014 */ /* x70013 */ /* x70012 stalin.sc:3404:115738 */ /* x69984 stalin.sc:3405:115757 */ /* x69983 stalin.sc:3405:115779 */ t73904 = a21840; /* x69982 stalin.sc:3405:115758 */ a40528 = t73904; /* x294781 */ /* x294780 */ t73905 = a40528; /* x294779 */ if (!((t73905.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-VERSION[5387] 35445]"); structure_ref_error();} /* x69987 stalin.sc:3406:115788 */ /* x69986 stalin.sc:3406:115809 */ t73906 = a21840; /* x69985 stalin.sc:3406:115789 */ a40519 = t73906; /* x294745 */ /* x294744 */ t73907 = a40519; /* x294743 */ if (!((t73907.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CURSOR[5395] 35436]"); structure_ref_error();} /* x69990 stalin.sc:3407:115818 */ /* x69989 stalin.sc:3407:115841 */ t73908 = a21840; /* x69988 stalin.sc:3407:115819 */ a40507 = t73908; /* x294697 */ /* x294696 */ t73909 = a40507; /* x294695 */ if (!((t73909.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-PATHNAME[5403] 35424]"); structure_ref_error();} t73895 = t73909.value.structure_type27510->s2; /* x69993 stalin.sc:3408:115850 */ /* x69992 stalin.sc:3408:115878 */ t73910 = a21840; /* x69991 stalin.sc:3408:115851 */ a40496 = t73910; /* x294653 */ /* x294652 */ t73911 = a40496; /* x294651 */ if (!((t73911.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-LINE-POSITION[5411] 35413]"); structure_ref_error();} t73896 = t73911.value.structure_type27510->s3; /* x69996 stalin.sc:3409:115887 */ /* x69995 stalin.sc:3409:115920 */ t73912 = a21840; /* x69994 stalin.sc:3409:115888 */ a40485 = t73912; /* x294609 */ /* x294608 */ t73913 = a40485; /* x294607 */ if (!((t73913.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CHARACTER-POSITION[5419] 35402]"); structure_ref_error();} t73897 = t73913.value.structure_type27510->s4; /* x69999 stalin.sc:3410:115929 */ /* x69998 stalin.sc:3410:115974 */ t73914 = a21840; /* x69997 stalin.sc:3410:115930 */ a40475 = t73914; /* x294569 */ /* x294568 */ t73915 = a40475; /* x294567 */ if (!((t73915.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CHARACTER-POSITION-WITHIN-LINE[5427] 35392]"); structure_ref_error();} t73898 = t73915.value.structure_type27510->s5; /* x70000 stalin.sc:3411:115983 */ t73899 = a1634; /* x70003 stalin.sc:3411:115988 */ /* x70002 stalin.sc:3411:116008 */ t73916 = a21840; /* x70001 stalin.sc:3411:115989 */ a18922 = t73916; /* x49472 */ /* x49471 */ t73917 = a18922; /* x49470 */ if (!((t73917.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("S-EXPRESSION-DATUM[5459]"); structure_ref_error();} t73900 = t73917.value.structure_type27510->s9; /* x70005 stalin.sc:3411:116013 */ /* x70004 stalin.sc:3411:116014 */ /* x277485 stalin.sc:323:8604 */ t73901 = q35; /* x70007 stalin.sc:3411:116027 */ /* x70006 stalin.sc:3411:116028 */ /* x277487 stalin.sc:323:8604 */ t73902 = q35; /* x70008 stalin.sc:3412:116045 */ /* x70009 stalin.sc:3412:116049 */ /* x70010 stalin.sc:3412:116053 */ /* x70011 stalin.sc:3412:116057 */ t73903 = 0; /* x69981 stalin.sc:3404:115739 */ t73862 = f6515(t73895, t73896, t73897, t73898, t73899, t73900, t73901, t73902, t73903); goto l13090; l13089: /* x70056 */ /* x70017 stalin.sc:3413:116064 */ /* x70016 stalin.sc:3413:116075 */ t73869 = a21840; /* x70015 stalin.sc:3413:116065 */ a37027 = t73869; /* x280777 */ /* x280776 */ t73870 = a37027; /* x280775 */ if (!((t73870.tag)==STRUCTURE_TYPE27692)) goto l13092; /* x70051 */ /* x70050 */ /* x70049 stalin.sc:3414:116083 */ /* x70021 stalin.sc:3415:116102 */ /* x70020 stalin.sc:3415:116120 */ t73881 = a21840; /* x70019 stalin.sc:3415:116103 */ a20360 = t73881; /* x54758 */ /* x54757 */ t73882 = a20360; /* x54756 */ if (!((t73882.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("VARIABLE-VERSION[6517]"); structure_ref_error();} /* x70024 stalin.sc:3416:116129 */ /* x70023 stalin.sc:3416:116146 */ t73883 = a21840; /* x70022 stalin.sc:3416:116130 */ a20370 = t73883; /* x54797 */ /* x54796 */ t73884 = a20370; /* x54795 */ if (!((t73884.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("VARIABLE-CURSOR[6525]"); structure_ref_error();} /* x70027 stalin.sc:3417:116155 */ /* x70026 stalin.sc:3417:116174 */ t73885 = a21840; /* x70025 stalin.sc:3417:116156 */ a20380 = t73885; /* x54836 */ /* x54835 */ t73886 = a20380; /* x54834 */ if (!((t73886.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("VARIABLE-PATHNAME[6533]"); structure_ref_error();} t73872 = t73886.value.structure_type27692->s2; /* x70030 stalin.sc:3418:116183 */ /* x70029 stalin.sc:3418:116207 */ t73887 = a21840; /* x70028 stalin.sc:3418:116184 */ a20390 = t73887; /* x54875 */ /* x54874 */ t73888 = a20390; /* x54873 */ if (!((t73888.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("VARIABLE-LINE-POSITION[6541]"); structure_ref_error();} t73873 = t73888.value.structure_type27692->s3; /* x70033 stalin.sc:3419:116216 */ /* x70032 stalin.sc:3419:116245 */ t73889 = a21840; /* x70031 stalin.sc:3419:116217 */ a20400 = t73889; /* x54914 */ /* x54913 */ t73890 = a20400; /* x54912 */ if (!((t73890.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("VARIABLE-CHARACTER-POSITION[6549]"); structure_ref_error();} t73874 = t73890.value.structure_type27692->s4; /* x70036 stalin.sc:3420:116254 */ /* x70035 stalin.sc:3420:116295 */ t73891 = a21840; /* x70034 stalin.sc:3420:116255 */ a20410 = t73891; /* x54953 */ /* x54952 */ t73892 = a20410; /* x54951 */ if (!((t73892.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("VARIABLE-CHARACTER-POSITION-WITHIN-LINE[6557]"); structure_ref_error();} t73875 = t73892.value.structure_type27692->s5; /* x70037 stalin.sc:3421:116304 */ t73876 = a1634; /* x70040 stalin.sc:3421:116309 */ /* x70039 stalin.sc:3421:116324 */ t73893 = a21840; /* x70038 stalin.sc:3421:116310 */ a36979 = t73893; /* x280585 */ /* x280584 */ t73894 = a36979; /* x280583 */ if (!((t73894.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31896]"); structure_ref_error();} t73877 = t73894.value.structure_type27692->s7; /* x70042 stalin.sc:3421:116329 */ /* x70041 stalin.sc:3421:116330 */ /* x277275 stalin.sc:323:8604 */ t73878 = q35; /* x70044 stalin.sc:3421:116343 */ /* x70043 stalin.sc:3421:116344 */ /* x277277 stalin.sc:323:8604 */ t73879 = q35; /* x70045 stalin.sc:3422:116361 */ /* x70046 stalin.sc:3422:116365 */ /* x70047 stalin.sc:3422:116369 */ /* x70048 stalin.sc:3422:116373 */ t73880 = 0; /* x70018 stalin.sc:3414:116084 */ t73862 = f6515(t73872, t73873, t73874, t73875, t73876, t73877, t73878, t73879, t73880); goto l13093; l13092: /* x70055 */ /* x70054 */ /* x70053 stalin.sc:3423:116385 */ /* x70052 stalin.sc:3423:116386 */ /* x297081 QobiScheme.sc:166:5314 */ /* x297080 QobiScheme.sc:166:5321 */ t73871 = "This shouldn\'t happen"; /* x297079 QobiScheme.sc:166:5315 */ stalin_panic(t73871); l13093: l13090: /* x69977 */ a21841 = t73862; /* x69976 */ /* x69970 stalin.sc:3424:116401 */ /* x69969 stalin.sc:3424:116412 */ /* x69967 stalin.sc:3424:116415 */ t73863 = a1634; /* x69968 stalin.sc:3424:116420 */ t73864 = 1; /* x270363 stalin.sc:3424:116413 */ if (!((t73863&1)==1)) {backtrace("stalin.sc", 3424, 116412); plus_error();} a1634 = (((unsigned)(((int)(((int)t73863)>>1))+t73864))<<1)+1; /* x69975 stalin.sc:3425:116426 */ /* x69974 stalin.sc:3425:116437 */ /* x69972 stalin.sc:3425:116443 */ t73865 = a21841; /* x69973 stalin.sc:3425:116445 */ t73866 = a1633; /* x270362 stalin.sc:3425:116438 */ a1633.tag = STRUCTURE_TYPE24753; a1633.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a1633.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3425, 116437); out_of_memory_error();} a1633.value.structure_type24753->s0.tag = STRUCTURE_TYPE27692; a1633.value.structure_type24753->s0.value.structure_type27692 = t73865; a1633.value.structure_type24753->s1 = *((struct w49 *)(&t73866)); /* x69965 */ /* x69964 stalin.sc:3426:116454 */ return a21841;} /* SUBTYPE-SET?[8184] */ unsigned f8184(struct w49 a21836, struct w49 a21837) {struct p8184 *t73918; struct w49 t73919; struct w211225 t73920; struct p8184 *e8184; e8184 = (struct p8184 *)alloca(sizeof(struct p8184)); if (e8184==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e8184->a21837 = a21837; /* x69949 stalin.sc:3391:115498 */ /* x69947 stalin.sc:3391:115508 */ t73918 = e8184; /* x69948 stalin.sc:3391:115538 */ t73919 = a21836; /* x69942 stalin.sc:3391:115499 */ t73920.tag = NATIVE_PROCEDURE_TYPE22050; t73920.value.native_procedure_type22050 = t73918; return f8146(t73920, t73919);} /* [inside SET-MEMBERS! 8183] */ void f8183(struct p8181 *p8183, struct w49 a21835) {struct w49 t73921; struct w49 t73922; /* x69930 stalin.sc:3387:115408 */ /* x69928 stalin.sc:3387:115424 */ t73921 = a21835; /* x69929 stalin.sc:3387:115426 */ t73922 = p8183->a21832; /* x69927 stalin.sc:3387:115409 */ a21648 = t73921; f8040(t73922); return;} /* SET-MEMBERS![8181] */ void f8181(struct w49 a21832, struct w49 a21833) {struct p8181 *t73923; struct p8181 *t73924; struct w49 t73925; struct w36108 t73926; struct w49 t73927; struct structure_type24753 *t73928; struct w49 t73929; struct structure_type27657 *t73930; struct p8181 *e8181; struct p8181 *p8182; e8181 = (struct p8181 *)alloca(sizeof(struct p8181)); if (e8181==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e8181->a21832 = a21832; /* x69939 */ /* x69938 stalin.sc:3386:115344 */ /* x69936 stalin.sc:3386:115379 */ t73929 = e8181->a21832; /* x69937 stalin.sc:3386:115381 */ /* x69935 stalin.sc:3386:115345 */ t73930 = (struct structure_type27657 *)FALSE_TYPE; f6476(t73929, t73930); /* x69934 */ t73923 = e8181; p8182 = t73923; /* x69933 stalin.sc:3387:115386 */ /* x69932 stalin.sc:3387:115430 */ t73925 = a21833; /* x69931 stalin.sc:3387:115396 */ t73924 = p8182; /* x69926 stalin.sc:3387:115387 */ t73926.tag = NATIVE_PROCEDURE_TYPE16350; t73926.value.native_procedure_type16350 = t73924; t73927 = t73925; t73928 = (struct structure_type24753 *)NULL_TYPE; f27755(t73926, t73927, t73928); return;} /* LOOP[8176] */ void f8176(struct p8173 *p8176, struct structure_type27657 *a21829) {char *sfp10650; struct w49 a14645; /* L */ struct w49 a14646; /* I */ struct w49 a19391; /* OBJ */ struct w49 a19516; /* S */ struct w49 a19526; /* S */ struct w49 a19957; /* S */ struct w49 a19985; /* OBJ */ struct w49 a20046; /* S */ struct w49 a20047; /* S */ struct structure_type27908 *a20048; /* X */ struct w49 a20074; /* OBJ */ struct w49 a20135; /* S */ struct w49 a20136; /* S */ struct structure_type27908 *a20137; /* X */ struct w49 a20155; /* DISPLACED-VECTOR-TYPE */ char *a20156; /* LINK */ unsigned a20157; /* INDEX */ int a20158; /* USE-COUNT */ char *a20159; /* TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO */ int a20160; /* BOOLEANS */ struct w49 a20568; /* S */ struct w49 a21138; /* DISPLACED-VECTOR-TYPE */ struct structure_type27908 *a21140; /* U */ struct w49 a21145; /* U */ struct structure_type27908 *a21147; /* v */ struct w49 a21245; /* U */ struct w49 a21273; /* U */ struct w49 a21301; /* U */ struct w49 a21305; /* U */ struct w49 a21385; /* U */ struct w49 a21389; /* U */ struct w49 a21425; /* U */ struct w49 a21429; /* U */ struct w49 a21461; /* U */ struct w49 a21465; /* U */ struct w49 a23421; /* U1 */ struct w49 a23439; /* U */ struct w49 a23441; /* WS */ struct w49 a23442; /* W0 */ unsigned a23444; /* PROPAGATE-RESULT! */ struct w49 a23450; /* E */ struct w49 a23462; /* U */ struct w49 a23474; /* W1 */ struct w49 a23476; /* U */ struct w49 a23486; /* U */ struct w12224 a23489; /* US */ struct w49 a23490; /* XS */ struct w49 a23491; /* PS */ struct w49 a23492; /* U */ struct w12224 a23495; /* US */ struct w49 a23496; /* XS */ struct w49 a23497; /* PS */ struct w49 a23873; /* U */ struct w49 a24107; /* U */ struct w49 a24108; /* U */ struct w49 a24109; /* E2 */ struct w49 a24110; /* U */ struct w49 a24111; /* E2 */ struct w49 a24113; /* U */ struct w49 a24114; /* U */ struct w49 a24115; /* U */ struct w49 a24116; /* E2 */ struct w49 a24118; /* U */ struct w49 a24120; /* U */ struct w49 a24164; /* U */ struct w49 a24171; /* E */ struct w49 a24177; /* GS */ struct w49 a24178; /* XS */ struct w49 a24223; /* U */ struct w49 a24224; /* U */ struct w49 a24227; /* U */ struct w49 a24230; /* U */ struct w49 a24231; /* U */ struct w49 a24234; /* U */ struct w49 a24235; /* U */ struct w49 a24238; /* U */ struct w49 a24239; /* U */ struct w49 a24242; /* U */ struct w49 a24243; /* U */ struct w49 a24277; /* U */ struct w49 a25564; /* U */ struct w49 a25652; /* U */ struct w49 a27237; /* S */ struct w49 a27247; /* S */ struct w49 a27257; /* S */ struct w49 a27357; /* WS */ struct w49 a27358; /* W */ struct w49 a27362; /* WS */ struct w49 a27363; /* W */ struct w49 a27367; /* WS */ struct w49 a27368; /* W */ struct w49 a27372; /* WS */ struct w49 a27373; /* W */ struct p16377 *a27376; /* P */ struct w49 a27377; /* WS */ struct w49 a27378; /* W */ struct w49 a27382; /* WS */ struct w49 a27383; /* W */ struct w49 a27386; /* WS */ struct w49 a27387; /* W */ struct w49 a27402; /* U0 */ struct p10650 *a27404; /* PROPAGATE-TYPE-PREDICATE! */ struct w49 a27406; /* W1 */ struct w49 a27408; /* U1 */ struct structure_type27745 *a27447; /* Y */ struct w49 a27448; /* U0 */ unsigned a27449; /* PROPAGATE-RESULT! */ struct w49 a27452; /* WS */ struct w49 a27506; /* U0 */ unsigned a27507; /* PROPAGATE-RESULT! */ struct w49 a27510; /* W1 */ struct w49 a27511; /* U1 */ struct w49 a27522; /* U1 */ struct w49 a27553; /* U0 */ struct w49 a27557; /* W1 */ struct w49 a27558; /* W2 */ struct w49 a27559; /* U1 */ struct w49 a27570; /* U1 */ struct p10650 *a27604; /* PROPAGATE-TYPE-PREDICATE! */ struct w49 a27606; /* W1 */ struct w49 a27608; /* U1 */ struct p10650 *a27649; /* PROPAGATE-TYPE-PREDICATE! */ struct w49 a27651; /* W1 */ struct w49 a27653; /* U1 */ unsigned a27692; /* PROPAGATE-RESULT! */ struct w49 a27695; /* W1 */ struct w49 a27696; /* W2 */ struct w16638 a27697; /* P1? */ struct structure_type27657 *a27698; /* P0? */ struct w49 a27704; /* U2 */ struct w49 a27705; /* U1 */ struct w49 a27706; /* U2 */ struct w49 a27707; /* U1 */ struct structure_type27657 *a27709; /* v */ struct structure_type27657 *a27710; /* v */ struct p10650 *a27804; /* PROPAGATE-TYPE-PREDICATE! */ struct w49 a27806; /* W1 */ struct w49 a27808; /* U1 */ struct p10650 *a27849; /* PROPAGATE-TYPE-PREDICATE! */ struct w49 a27851; /* W1 */ struct w49 a27853; /* U1 */ unsigned a27892; /* PROPAGATE-RESULT! */ unsigned a27937; /* PROPAGATE-RESULT! */ struct w49 a27940; /* W1 */ struct w49 a27941; /* U1 */ struct p10650 *a27985; /* PROPAGATE-TYPE-PREDICATE! */ struct w49 a27987; /* W1 */ struct w49 a27989; /* U1 */ unsigned a28030; /* PROPAGATE-RESULT! */ struct w49 a28033; /* W1 */ struct w49 a28036; /* U1 */ unsigned a28079; /* PROPAGATE-RESULT! */ struct w49 a28082; /* W1 */ struct w49 a28085; /* U1 */ unsigned a28127; /* PROPAGATE-RESULT! */ struct w49 a28130; /* W1 */ unsigned a28174; /* PROPAGATE-RESULT! */ struct w49 a28177; /* W1 */ unsigned a28222; /* PROPAGATE-RESULT! */ unsigned a28271; /* PROPAGATE-RESULT! */ unsigned a28320; /* PROPAGATE-RESULT! */ unsigned a28369; /* PROPAGATE-RESULT! */ unsigned a28418; /* PROPAGATE-RESULT! */ unsigned a28480; /* PROPAGATE-RESULT! */ unsigned a28533; /* PROPAGATE-RESULT! */ unsigned a28578; /* PROPAGATE-RESULT! */ unsigned a28625; /* PROPAGATE-RESULT! */ struct w49 a28628; /* WS */ unsigned a28684; /* PROPAGATE-RESULT! */ struct w49 a28687; /* WS */ unsigned a28743; /* PROPAGATE-RESULT! */ struct w49 a28746; /* WS */ unsigned a28804; /* PROPAGATE-RESULT! */ struct w49 a28807; /* WS */ unsigned a28865; /* PROPAGATE-RESULT! */ struct w49 a28868; /* WS */ unsigned a28927; /* PROPAGATE-RESULT! */ struct w49 a28930; /* WS */ unsigned a28982; /* PROPAGATE-RESULT! */ struct w49 a28985; /* W1 */ struct w49 a28986; /* W2 */ unsigned a29033; /* PROPAGATE-RESULT! */ struct w49 a29036; /* W1 */ struct w49 a29037; /* W2 */ unsigned a29084; /* PROPAGATE-RESULT! */ struct w49 a29087; /* W1 */ struct w49 a29088; /* W2 */ unsigned a29135; /* PROPAGATE-RESULT! */ struct w49 a29138; /* W1 */ struct w49 a29139; /* W2 */ unsigned a29186; /* PROPAGATE-RESULT! */ unsigned a29232; /* PROPAGATE-RESULT! */ unsigned a29284; /* PROPAGATE-RESULT! */ unsigned a29336; /* PROPAGATE-RESULT! */ unsigned a29386; /* PROPAGATE-RESULT! */ struct w49 a29389; /* W1 */ unsigned a29432; /* PROPAGATE-RESULT! */ struct w49 a29435; /* W1 */ unsigned a29478; /* PROPAGATE-RESULT! */ struct w49 a29481; /* W1 */ unsigned a29524; /* PROPAGATE-RESULT! */ struct w49 a29527; /* W1 */ unsigned a29570; /* PROPAGATE-RESULT! */ unsigned a29614; /* PROPAGATE-RESULT! */ unsigned a29658; /* PROPAGATE-RESULT! */ unsigned a29702; /* PROPAGATE-RESULT! */ unsigned a29746; /* PROPAGATE-RESULT! */ unsigned a29790; /* PROPAGATE-RESULT! */ unsigned a29834; /* PROPAGATE-RESULT! */ unsigned a29878; /* PROPAGATE-RESULT! */ unsigned a29928; /* PROPAGATE-RESULT! */ unsigned a29972; /* PROPAGATE-RESULT! */ struct w49 a29975; /* W1 */ struct w49 a29976; /* W2 */ unsigned a30021; /* PROPAGATE-RESULT! */ struct w49 a30024; /* W1 */ unsigned a30066; /* PROPAGATE-RESULT! */ struct p10650 *a30112; /* PROPAGATE-TYPE-PREDICATE! */ struct w49 a30114; /* W1 */ struct w49 a30116; /* U1 */ unsigned a30155; /* PROPAGATE-RESULT! */ unsigned a30199; /* PROPAGATE-RESULT! */ struct p10650 *a30245; /* PROPAGATE-TYPE-PREDICATE! */ struct w49 a30247; /* W1 */ struct w49 a30249; /* U1 */ struct structure_type27745 *a30286; /* Y */ unsigned a30288; /* PROPAGATE-RESULT! */ struct structure_type27745 *a30356; /* Y */ unsigned a30358; /* PROPAGATE-RESULT! */ unsigned a30411; /* PROPAGATE-RESULT! */ struct w49 a30414; /* W1 */ struct w49 a30416; /* U1 */ unsigned a30457; /* PROPAGATE-RESULT! */ struct w49 a30460; /* W1 */ struct w49 a30463; /* U1 */ struct p10650 *a30558; /* PROPAGATE-TYPE-PREDICATE! */ struct w49 a30560; /* W1 */ struct w49 a30562; /* U1 */ struct structure_type27745 *a30599; /* Y */ unsigned a30601; /* PROPAGATE-RESULT! */ struct w49 a30606; /* W2 */ struct w49 a30620; /* U1 */ unsigned a30669; /* PROPAGATE-RESULT! */ struct w49 a30672; /* W1 */ struct w49 a30675; /* U1 */ struct structure_type27745 *a30724; /* Y */ unsigned a30726; /* PROPAGATE-RESULT! */ struct w49 a30729; /* WS */ unsigned a30779; /* PROPAGATE-RESULT! */ struct w49 a30782; /* W1 */ struct w49 a30784; /* U1 */ unsigned a30825; /* PROPAGATE-RESULT! */ struct w49 a30828; /* W1 */ struct w49 a30831; /* U1 */ struct w49 a30832; /* U1 */ struct w49 a30842; /* U1 */ struct w49 a30843; /* U2 */ struct w49 a30880; /* W1 */ struct w49 a30882; /* W3 */ struct w49 a30883; /* U1 */ struct w49 a30893; /* U1 */ struct w49 a30894; /* U2 */ struct p10650 *a30930; /* PROPAGATE-TYPE-PREDICATE! */ struct w49 a30932; /* W1 */ struct w49 a30934; /* U1 */ struct structure_type27745 *a30976; /* Y */ struct w49 a30980; /* W0 */ struct w49 a30981; /* WS */ struct w49 a30982; /* W */ struct structure_type27745 *a31023; /* Y */ struct w49 a31027; /* W0 */ struct w49 a31028; /* W1 */ struct w49 a31045; /* U1 */ struct structure_type27650 *a31046; /* W3 */ struct p10650 *a31105; /* PROPAGATE-TYPE-PREDICATE! */ struct w49 a31107; /* W1 */ struct w49 a31109; /* U1 */ struct p10650 *a31150; /* PROPAGATE-TYPE-PREDICATE! */ struct w49 a31152; /* W1 */ struct w49 a31154; /* U1 */ unsigned a31193; /* PROPAGATE-RESULT! */ unsigned a31240; /* PROPAGATE-RESULT! */ unsigned a31375; /* PROPAGATE-RESULT! */ unsigned a31420; /* PROPAGATE-RESULT! */ struct p10650 *a31467; /* PROPAGATE-TYPE-PREDICATE! */ struct w49 a31469; /* W1 */ struct w49 a31471; /* U1 */ unsigned a31510; /* PROPAGATE-RESULT! */ unsigned a31555; /* PROPAGATE-RESULT! */ unsigned a31596; /* PROPAGATE-RESULT! */ struct p10650 *a31730; /* PROPAGATE-TYPE-PREDICATE! */ struct w49 a31732; /* W1 */ struct w49 a31734; /* U1 */ unsigned a31773; /* PROPAGATE-RESULT! */ unsigned a31817; /* PROPAGATE-RESULT! */ unsigned a31861; /* PROPAGATE-RESULT! */ unsigned a31905; /* PROPAGATE-RESULT! */ unsigned a31949; /* PROPAGATE-RESULT! */ unsigned a31990; /* PROPAGATE-RESULT! */ unsigned a32031; /* PROPAGATE-RESULT! */ unsigned a32072; /* PROPAGATE-RESULT! */ struct structure_type27745 *a32115; /* Y */ struct w49 a32119; /* W0 */ struct w49 a32120; /* W1 */ struct w49 a32121; /* W2 */ struct structure_type27745 *a32166; /* Y */ struct w49 a32170; /* W0 */ struct w49 a32171; /* W1 */ struct structure_type24753 *a34891; /* OBJS */ struct structure_type24753 *a34892; /* OBJS */ struct structure_type24753 *a34893; /* OBJS */ struct structure_type24753 *a34894; /* OBJS */ struct structure_type24753 *a34895; /* OBJS */ struct structure_type24753 *a34896; /* OBJS */ struct structure_type24753 *a34897; /* OBJS */ struct structure_type24753 *a34899; /* OBJS */ struct structure_type24753 *a34900; /* OBJS */ struct structure_type24753 *a34901; /* OBJS */ struct structure_type24753 *a34902; /* OBJS */ struct structure_type24753 *a34903; /* OBJS */ struct structure_type24753 *a34904; /* OBJS */ struct structure_type24753 *a34905; /* OBJS */ struct structure_type24753 *a34910; /* OBJS */ struct structure_type24753 *a34922; /* OBJS */ struct structure_type24753 *a34928; /* OBJS */ struct structure_type24753 *a34929; /* OBJS */ struct structure_type24753 *a34930; /* OBJS */ struct structure_type24753 *a34931; /* OBJS */ struct structure_type24753 *a34932; /* OBJS */ struct structure_type24753 *a34934; /* OBJS */ struct structure_type24753 *a34936; /* OBJS */ struct structure_type24753 *a34938; /* OBJS */ struct structure_type24753 *a34939; /* OBJS */ struct structure_type24753 *a34940; /* OBJS */ struct structure_type24753 *a34941; /* OBJS */ struct structure_type24753 *a34942; /* OBJS */ struct structure_type24753 *a34943; /* OBJS */ struct structure_type24753 *a34953; /* OBJS */ struct structure_type24753 *a34959; /* OBJS */ struct structure_type24753 *a34962; /* OBJS */ struct structure_type24753 *a34963; /* OBJS */ struct structure_type24753 *a34965; /* OBJS */ struct structure_type24753 *a34966; /* OBJS */ struct structure_type24753 *a34968; /* OBJS */ struct structure_type24753 *a34970; /* OBJS */ struct structure_type24753 *a34971; /* OBJS */ struct structure_type24753 *a34972; /* OBJS */ struct structure_type24753 *a34973; /* OBJS */ struct structure_type24753 *a34974; /* OBJS */ struct structure_type24753 *a34975; /* OBJS */ struct structure_type24753 *a34976; /* OBJS */ struct structure_type24753 *a34977; /* OBJS */ struct structure_type24753 *a34978; /* OBJS */ struct structure_type24753 *a34979; /* OBJS */ struct structure_type24753 *a34980; /* OBJS */ struct structure_type24753 *a34981; /* OBJS */ struct structure_type24753 *a34986; /* OBJS */ struct structure_type24753 *a34987; /* OBJS */ struct structure_type24753 *a34989; /* OBJS */ struct structure_type24753 *a34994; /* OBJS */ struct structure_type24753 *a34995; /* OBJS */ struct structure_type24753 *a35004; /* OBJS */ struct structure_type24753 *a35005; /* OBJS */ struct structure_type24753 *a35011; /* OBJS */ struct structure_type24753 *a35012; /* OBJS */ struct structure_type24753 *a35013; /* OBJS */ struct structure_type24753 *a35014; /* OBJS */ struct structure_type24753 *a35015; /* OBJS */ struct structure_type24753 *a35016; /* OBJS */ struct structure_type24753 *a35017; /* OBJS */ struct structure_type24753 *a35018; /* OBJS */ struct structure_type24753 *a35020; /* OBJS */ struct structure_type24753 *a35021; /* OBJS */ struct structure_type24753 *a35022; /* OBJS */ struct structure_type24753 *a35023; /* OBJS */ struct structure_type24753 *a35024; /* OBJS */ struct structure_type24753 *a35025; /* OBJS */ struct structure_type24753 *a35026; /* OBJS */ struct structure_type24753 *a35028; /* OBJS */ struct structure_type24753 *a35032; /* OBJS */ struct structure_type24753 *a35036; /* OBJS */ struct structure_type24753 *a35039; /* OBJS */ struct structure_type24753 *a35040; /* OBJS */ struct structure_type24753 *a35042; /* OBJS */ struct structure_type24753 *a35044; /* OBJS */ struct structure_type24753 *a35045; /* OBJS */ struct structure_type24753 *a35046; /* OBJS */ struct structure_type24753 *a35047; /* OBJS */ struct structure_type24753 *a35049; /* OBJS */ struct structure_type24753 *a35050; /* OBJS */ struct structure_type24753 *a35051; /* OBJS */ struct structure_type24753 *a35053; /* OBJS */ struct structure_type24753 *a35055; /* OBJS */ struct structure_type24753 *a35056; /* OBJS */ struct structure_type24753 *a35057; /* OBJS */ struct structure_type24753 *a35058; /* OBJS */ struct structure_type24753 *a35059; /* OBJS */ struct structure_type24753 *a35060; /* OBJS */ struct structure_type24753 *a35061; /* OBJS */ struct structure_type24753 *a35062; /* OBJS */ struct structure_type24753 *a35063; /* OBJS */ struct structure_type24753 *a35065; /* OBJS */ struct structure_type24753 *a35068; /* OBJS */ struct structure_type24753 *a35069; /* OBJS */ struct structure_type24753 *a35070; /* OBJS */ struct structure_type24753 *a35073; /* OBJS */ struct structure_type24753 *a35074; /* OBJS */ struct structure_type24753 *a35075; /* OBJS */ struct structure_type24753 *a35077; /* OBJS */ struct structure_type24753 *a35078; /* OBJS */ struct structure_type24753 *a35079; /* OBJS */ struct structure_type24753 *a35080; /* OBJS */ struct structure_type24753 *a35081; /* OBJS */ struct structure_type24753 *a35085; /* OBJS */ struct structure_type24753 *a35086; /* OBJS */ struct w16638 a35333; /* PAIR */ struct w49 a35334; /* PAIR */ struct w49 a35335; /* PAIR */ struct w12224 a35336; /* PAIR */ struct w12224 a35337; /* PAIR */ struct w16638 a35338; /* PAIR */ struct w16638 a35339; /* PAIR */ struct w49 a35340; /* PAIR */ struct w11873 a35341; /* PAIR */ struct w12224 a35342; /* PAIR */ struct w12224 a35343; /* PAIR */ struct w49 a35348; /* PAIR */ struct w49 a35355; /* PAIR */ struct w49 a35362; /* PAIR */ struct w16638 a35363; /* PAIR */ struct w49 a35364; /* PAIR */ struct w49 a35655; /* PAIR */ struct w16638 a35656; /* PAIR */ struct w16638 a35657; /* PAIR */ struct w11873 a35658; /* PAIR */ struct w12224 a35659; /* PAIR */ struct w12224 a35660; /* PAIR */ struct w12224 a35661; /* PAIR */ struct w12224 a35662; /* PAIR */ struct w12224 a35663; /* PAIR */ struct w12224 a35664; /* PAIR */ struct w12224 a35665; /* PAIR */ struct w12224 a35666; /* PAIR */ struct w12224 a35667; /* PAIR */ struct w12224 a35668; /* PAIR */ struct w12224 a35669; /* PAIR */ struct w12224 a35670; /* PAIR */ struct w16638 a35671; /* PAIR */ struct w49 a35672; /* PAIR */ struct w16638 a35673; /* PAIR */ struct w12224 a35675; /* PAIR */ struct w49 a35676; /* PAIR */ struct w49 a35679; /* PAIR */ struct w49 a35681; /* PAIR */ struct w49 a35682; /* PAIR */ struct w49 a35683; /* PAIR */ struct w49 a35684; /* PAIR */ struct w49 a35685; /* PAIR */ struct w49 a35686; /* PAIR */ struct w49 a35689; /* PAIR */ struct w49 a35690; /* PAIR */ struct w49 a35691; /* PAIR */ struct w49 a35692; /* PAIR */ struct w49 a35693; /* PAIR */ struct w49 a35694; /* PAIR */ struct w49 a35712; /* PAIR */ struct w49 a35713; /* PAIR */ struct w49 a35717; /* PAIR */ struct w16638 a35718; /* PAIR */ struct w49 a35719; /* PAIR */ struct w16638 a35720; /* PAIR */ struct w16638 a35721; /* PAIR */ struct w11873 a35727; /* PAIR */ struct w49 a35728; /* PAIR */ struct w49 a35729; /* PAIR */ struct w49 a36277; /* S */ struct w49 a36278; /* S */ struct structure_type27745 *a36370; /* S */ struct structure_type27745 *a36371; /* S */ struct structure_type27745 *a36372; /* S */ struct structure_type27745 *a36373; /* S */ struct structure_type27745 *a36374; /* S */ struct structure_type27745 *a36375; /* S */ struct structure_type27745 *a36376; /* S */ struct structure_type27745 *a36377; /* S */ struct structure_type27745 *a36378; /* S */ struct structure_type27745 *a36379; /* S */ struct structure_type27745 *a36380; /* S */ struct structure_type27745 *a36381; /* S */ struct structure_type27745 *a36382; /* S */ struct structure_type27745 *a36383; /* S */ struct structure_type27745 *a36388; /* S */ struct structure_type27745 *a36389; /* S */ struct structure_type27745 *a36390; /* S */ struct structure_type27745 *a36391; /* S */ struct structure_type27745 *a36392; /* S */ struct structure_type27745 *a36394; /* S */ struct structure_type27745 *a36399; /* S */ struct structure_type27745 *a36402; /* S */ struct structure_type27745 *a36403; /* S */ struct structure_type27745 *a36404; /* S */ struct w49 a36613; /* S */ struct w49 a36667; /* S */ struct w49 a36668; /* S */ struct w49 a36827; /* S */ struct w49 a36828; /* S */ struct structure_type27657 *a37216; /* S */ struct structure_type27657 *a37258; /* S */ struct structure_type27657 *a37273; /* S */ struct w49 a37280; /* S */ struct w49 a37281; /* S */ struct w49 a37303; /* S */ struct w49 a37315; /* OBJ */ struct w49 a37316; /* OBJ */ struct w49 a37318; /* OBJ */ struct w49 a37319; /* OBJ */ struct w49 a37320; /* OBJ */ struct w49 a37323; /* OBJ */ struct w49 a37355; /* S */ struct w49 a37356; /* S */ struct w49 a37412; /* OBJ */ struct w49 a37413; /* OBJ */ struct w49 a37415; /* OBJ */ struct w49 a37416; /* OBJ */ struct w49 a37417; /* OBJ */ struct w49 a37420; /* OBJ */ struct w49 a37456; /* S */ struct w49 a37457; /* S */ struct w49 a37500; /* S */ struct w49 a37511; /* S */ struct w49 a37528; /* OBJ */ struct w49 a37529; /* OBJ */ struct w49 a37531; /* OBJ */ struct w49 a37532; /* OBJ */ struct w49 a37533; /* OBJ */ struct w49 a37536; /* OBJ */ struct w49 a37621; /* S */ struct w49 a37622; /* S */ struct w49 a37629; /* S */ struct w49 a37630; /* S */ struct w49 a37631; /* S */ struct w49 a37632; /* S */ struct w49 a37672; /* OBJ */ struct w49 a37673; /* OBJ */ struct w49 a37675; /* OBJ */ struct w49 a37677; /* OBJ */ struct w49 a37681; /* OBJ */ struct w49 a37716; /* S */ struct w49 a37717; /* S */ struct w49 a37741; /* OBJ */ struct w49 a37742; /* OBJ */ struct w49 a37744; /* OBJ */ struct w49 a37745; /* OBJ */ struct w49 a37746; /* OBJ */ struct w49 a37754; /* OBJ */ struct w49 a37789; /* S */ struct w49 a37800; /* S */ struct w49 a37801; /* S */ struct w49 a37802; /* S */ struct w49 a37803; /* S */ struct w49 a37804; /* S */ struct w49 a37805; /* S */ struct w49 a37816; /* S */ struct w49 a37817; /* S */ struct w49 a37848; /* OBJ */ struct w49 a37849; /* OBJ */ struct w49 a37852; /* OBJ */ struct w49 a37855; /* OBJ */ struct w49 a37856; /* OBJ */ struct w49 a37857; /* OBJ */ struct w49 a37858; /* OBJ */ struct w49 a37859; /* OBJ */ struct w49 a37860; /* OBJ */ struct w49 a37861; /* OBJ */ struct w49 a37862; /* OBJ */ struct w49 a37911; /* S */ struct w49 a37938; /* OBJ */ struct w49 a37939; /* OBJ */ struct w49 a37942; /* OBJ */ struct w49 a37945; /* OBJ */ struct w49 a37946; /* OBJ */ struct w49 a38043; /* OBJ */ struct w49 a38044; /* OBJ */ struct w49 a38047; /* OBJ */ struct w49 a38050; /* OBJ */ struct w49 a38051; /* OBJ */ struct w49 a38052; /* OBJ */ struct w49 a38053; /* OBJ */ struct w49 a38054; /* OBJ */ struct w49 a38055; /* OBJ */ struct w49 a38056; /* OBJ */ struct w49 a38057; /* OBJ */ struct w49 a38058; /* OBJ */ struct w49 a38059; /* OBJ */ struct w49 a38139; /* S */ struct w49 a38140; /* S */ struct w49 a38141; /* S */ struct w49 a38142; /* S */ struct w49 a38143; /* S */ struct w49 a38144; /* S */ struct w49 a38145; /* S */ struct w49 a38146; /* S */ struct w49 a38147; /* S */ struct w49 a38151; /* S */ struct w49 a38152; /* S */ struct w49 a38153; /* S */ struct w49 a38154; /* S */ struct w49 a38160; /* S */ struct w49 a38161; /* S */ struct w49 a38179; /* S */ struct w49 a38180; /* S */ struct w49 a38193; /* OBJ */ struct w49 a38194; /* OBJ */ struct w49 a38195; /* OBJ */ struct w49 a38198; /* OBJ */ struct w49 a38201; /* OBJ */ struct w49 a38202; /* OBJ */ struct w49 a38203; /* OBJ */ struct w49 a38263; /* OBJ */ struct w49 a38264; /* OBJ */ struct w49 a38268; /* OBJ */ struct w49 a38307; /* OBJ */ struct w49 a38311; /* OBJ */ struct w49 a38520; /* S */ struct w49 a38521; /* S */ struct w49 a38522; /* S */ struct w49 a38523; /* S */ struct w49 a38524; /* S */ struct w49 a38525; /* S */ struct w49 a38526; /* S */ struct w49 a38527; /* S */ struct w49 a38528; /* S */ struct w49 a38529; /* S */ struct w49 a39098; /* S */ struct w49 a39099; /* S */ struct w6852 a39199; /* S */ struct w6852 a39200; /* S */ struct w49 a39725; /* S */ struct w49 a39726; /* S */ struct w49 a39727; /* S */ struct w49 a39728; /* S */ struct w49 a39869; /* S */ struct w49 a39870; /* S */ struct w49 a39871; /* S */ struct w49 a39872; /* S */ struct w49 a39873; /* S */ struct w49 a39876; /* S */ struct w49 a39879; /* S */ struct w49 a39880; /* S */ struct w49 a39881; /* S */ struct w49 a39882; /* S */ struct w49 a39883; /* S */ struct w49 a39884; /* S */ struct w49 a39885; /* S */ struct w49 a39886; /* S */ struct w49 a39887; /* S */ struct w49 a39888; /* S */ struct w49 a39889; /* S */ struct w49 a39890; /* S */ struct w49 a39891; /* S */ struct w49 a40271; /* S */ struct w49 a40278; /* S */ struct structure_type24753 *a42591; /* OBJS */ struct structure_type24753 *a42592; /* OBJS */ struct structure_type24753 *a42593; /* OBJS */ struct structure_type24753 *a42594; /* OBJS */ struct structure_type24753 *a42595; /* OBJS */ struct structure_type24753 *a42596; /* OBJS */ struct structure_type24753 *a42597; /* OBJS */ struct structure_type24753 *a42598; /* OBJS */ struct structure_type24753 *a42599; /* OBJS */ struct structure_type24753 *a42600; /* OBJS */ struct structure_type24753 *a42601; /* OBJS */ struct structure_type24753 *a42602; /* OBJS */ struct structure_type24753 *a42603; /* OBJS */ struct structure_type24753 *a42604; /* OBJS */ struct structure_type24753 *a42605; /* OBJS */ struct structure_type24753 *a42606; /* OBJS */ struct structure_type24753 *a42607; /* OBJS */ struct structure_type24753 *a42608; /* OBJS */ struct structure_type24753 *a42609; /* OBJS */ struct structure_type24753 *a42610; /* OBJS */ struct structure_type24753 *a42611; /* OBJS */ struct structure_type24753 *a42612; /* OBJS */ struct structure_type24753 *a42613; /* OBJS */ struct structure_type24753 *a42614; /* OBJS */ struct structure_type24753 *a42615; /* OBJS */ struct structure_type24753 *a42616; /* OBJS */ struct structure_type24753 *a42617; /* OBJS */ struct structure_type24753 *a42618; /* OBJS */ struct structure_type24753 *a42619; /* OBJS */ struct structure_type24753 *a42620; /* OBJS */ struct structure_type24753 *a42621; /* OBJS */ struct structure_type24753 *a42622; /* OBJS */ struct structure_type24753 *a42623; /* OBJS */ struct structure_type24753 *a42624; /* OBJS */ struct structure_type24753 *a42625; /* OBJS */ struct structure_type24753 *a42626; /* OBJS */ struct structure_type24753 *a42627; /* OBJS */ struct structure_type24753 *a42628; /* OBJS */ struct structure_type24753 *a42629; /* OBJS */ struct structure_type24753 *a42630; /* OBJS */ struct structure_type24753 *a42631; /* OBJS */ struct structure_type24753 *a42632; /* OBJS */ struct structure_type24753 *a42633; /* OBJS */ struct structure_type24753 *a42634; /* OBJS */ struct structure_type24753 *a42635; /* OBJS */ struct structure_type24753 *a42636; /* OBJS */ struct structure_type24753 *a42637; /* OBJS */ struct structure_type24753 *a42638; /* OBJS */ struct structure_type24753 *a42639; /* OBJS */ struct structure_type24753 *a42640; /* OBJS */ struct structure_type24753 *a42641; /* OBJS */ struct structure_type24753 *a42642; /* OBJS */ struct structure_type24753 *a42643; /* OBJS */ struct structure_type24753 *a42644; /* OBJS */ struct structure_type24753 *a42645; /* OBJS */ struct structure_type24753 *a42646; /* OBJS */ struct structure_type24753 *a42647; /* OBJS */ struct structure_type24753 *a42648; /* OBJS */ struct structure_type24753 *a42649; /* OBJS */ struct structure_type24753 *a42650; /* OBJS */ struct structure_type24753 *a42651; /* OBJS */ struct structure_type24753 *a42652; /* OBJS */ struct structure_type24753 *a42653; /* OBJS */ struct structure_type24753 *a42654; /* OBJS */ struct structure_type24753 *a42655; /* OBJS */ struct structure_type24753 *a42656; /* OBJS */ struct structure_type24753 *a42657; /* OBJS */ struct structure_type24753 *a42658; /* OBJS */ struct structure_type24753 *a42659; /* OBJS */ struct structure_type24753 *a42660; /* OBJS */ struct structure_type24753 *a42661; /* OBJS */ struct structure_type24753 *a42662; /* OBJS */ struct structure_type24753 *a42663; /* OBJS */ struct structure_type24753 *a42664; /* OBJS */ struct structure_type24753 *a42665; /* OBJS */ struct structure_type24753 *a42666; /* OBJS */ struct structure_type24753 *a42667; /* OBJS */ struct structure_type24753 *a42668; /* OBJS */ struct structure_type24753 *a42669; /* OBJS */ struct structure_type24753 *a42670; /* OBJS */ struct structure_type24753 *a42671; /* OBJS */ struct structure_type24753 *a42672; /* OBJS */ struct structure_type24753 *a42673; /* OBJS */ struct structure_type24753 *a42674; /* OBJS */ struct structure_type24753 *a42675; /* OBJS */ struct structure_type24753 *a42676; /* OBJS */ struct structure_type24753 *a42677; /* OBJS */ struct structure_type24753 *a42678; /* OBJS */ struct structure_type24753 *a42679; /* OBJS */ struct p8173 *t73931; struct p8173 *t73932; struct p8173 *t73933; struct structure_type27657 *t73934; struct structure_type27657 *t73935; struct structure_type27657 *t73936; struct w211045 t73937; struct w49 t73938; struct w49 t73939; struct w49 t73940; struct w49 t73941; struct w49 t73942; struct w49 t73943; struct w49 t73944; struct w49 t73945; struct w49 t73946; struct w49 t73947; struct w49 t73948; struct w49 t73949; struct w49 t73950; struct w49 t73951; struct w49 t73952; struct w49 t73953; struct w49 t73954; struct w49 t73955; struct w49 t73956; struct w49 t73957; struct w49 t73958; struct w49 t73959; struct w49 t73960; struct w49 t73961; struct w49 t73962; struct w49 t73963; struct w49 t73964; struct w49 t73965; struct w49 t73966; struct w49 t73967; struct w49 t73968; struct w49 t73969; struct w49 t73970; struct w49 t73971; char *t73972; struct w49 t73973; struct w49 t73974; struct w49 t73975; struct w49 t73976; struct w49 t73977; struct w49 t73978; struct w49 t73979; struct w49 t73980; char *t73981; struct w49 t73982; struct w49 t73983; struct w49 t73984; char *t73985; struct w49 t73986; char *t73987; struct w49 t73988; struct w49 t73989; struct w49 t73990; struct w49 t73991; struct w49 t73992; struct w49 t73993; struct w49 t73994; struct w49 t73995; struct w49 t73996; struct w49 t73997; struct w49 t73998; struct w49 t73999; struct w49 t74000; struct w49 t74001; struct w49 t74002; struct w49 t74003; struct w49 t74004; struct w49 t74005; struct w49 t74006; struct w49 t74007; struct w49 t74008; struct w49 t74009; struct w49 t74010; struct p12026 *t74011; struct w49 t74012; struct structure_type24753 *t74013; struct structure_type24753 *t74014; struct w49 t74015; struct w3457 t74016; struct w49 t74017; struct w49 t74018; char *t74019; unsigned t74020; struct w49 t74021; struct w49 t74022; struct w49 t74023; struct structure_type27745 *t74024; struct p10641 *t74025; struct w49 t74026; struct w49 t74027; struct w49 t74028; struct w49 t74029; struct w49 t74030; struct w49 t74031; struct w49 t74032; struct w49 t74033; char *t74034; struct p10641 *t74035; struct p10641 *t74036; struct p10641 *t74037; struct w49 t74038; struct p10704 *t74039; struct w49 t74040; struct w49 t74041; struct w49 t74042; struct w16638 t74043; struct w16638 t74044; struct p10704 *t74045; struct w49 t74046; struct w211045 t74047; struct w49 t74048; struct w49 t74049; struct w49 t74050; struct w49 t74051; struct w49 t74052; struct structure_type27745 *t74053; struct w49 t74054; struct structure_type27745 *t74055; struct w49 t74056; char *t74057; struct structure_type27745 *t74058; struct w49 t74059; struct p10641 *t74060; struct structure_type27745 *t74061; char *t74062; struct w6315 t74063; struct w49 t74064; struct w49 t74065; int t74066; int t74067; int t74068; struct structure_type24753 *t74069; struct w49 t74070; struct w49 t74071; struct w49 t74072; struct p10641 *t74073; struct p10641 *t74074; struct p10532 *t74075; struct w49 t74076; struct w49 t74077; struct w49 t74078; struct structure_type27745 *t74079; struct p10641 *t74080; struct structure_type27650 *t74081; struct w49 t74082; struct w49 t74083; struct w49 t74084; struct w49 t74085; struct w49 t74086; struct structure_type27745 *t74087; struct structure_type27745 *t74088; struct structure_type27745 *t74089; struct w49 t74090; struct structure_type27745 *t74091; struct w49 t74092; char *t74093; struct w49 t74094; struct w49 t74095; int t74096; int t74097; int t74098; struct structure_type24753 *t74099; struct w49 t74100; struct w49 t74101; struct w49 t74102; struct structure_type27745 *t74103; struct w49 t74104; struct p10570 *t74105; struct w49 t74106; struct w49 t74107; struct w49 t74108; struct structure_type27745 *t74109; struct p10641 *t74110; struct structure_type27745 *t74111; struct w49 t74112; struct structure_type24753 *t74113; struct structure_type27650 *t74114; struct structure_type27745 *t74115; struct w49 t74116; struct w49 t74117; struct structure_type27745 *t74118; char *t74119; struct w49 t74120; struct w49 t74121; struct structure_type27650 *t74122; struct w49 t74123; struct p10641 *t74124; struct p10641 *t74125; struct w49 t74126; struct p10663 *t74127; struct structure_type27745 *t74128; struct w49 t74129; struct p10663 *t74130; struct p10663 *t74131; struct p10532 *t74132; struct w49 t74133; struct w49 t74134; struct w49 t74135; struct structure_type27745 *t74136; struct p10663 *t74137; struct w49 t74138; struct w49 t74139; struct w49 t74140; struct w49 t74141; struct w49 t74142; struct structure_type27745 *t74143; struct structure_type27745 *t74144; struct structure_type27745 *t74145; struct w49 t74146; struct p10570 *t74147; struct w49 t74148; struct w49 t74149; struct w49 t74150; struct structure_type27745 *t74151; struct p10663 *t74152; struct structure_type27745 *t74153; struct w49 t74154; struct structure_type24753 *t74155; struct structure_type27650 *t74156; struct structure_type27745 *t74157; struct w49 t74158; struct w49 t74159; struct structure_type27745 *t74160; char *t74161; struct w49 t74162; struct w49 t74163; struct w49 t74164; struct w49 t74165; struct structure_type27745 *t74166; struct w49 t74167; struct w49 t74168; char *t74169; struct w49 t74170; struct p10663 *t74171; struct w49 t74172; struct w6852 t74173; struct w6852 t74174; struct w49 t74175; struct w49 t74176; struct structure_type27745 *t74177; struct structure_type24753 *t74178; struct p14552 *t74179; struct w49 t74180; struct w49 t74181; struct w49 t74182; struct w49 t74183; struct p10663 *t74184; struct w49 t74185; struct structure_type24753 *t74186; struct structure_type24753 *t74187; struct structure_type27745 *t74188; struct structure_type24753 *t74189; struct w49 t74190; struct w49 t74191; struct p10663 *t74192; struct w49 t74193; struct w49 t74194; struct structure_type24753 *t74195; struct w49 t74196; struct p10663 *t74197; struct p10663 *t74198; struct structure_type27745 *t74199; struct w49 t74200; struct w49 t74201; struct w49 t74202; struct w49 t74203; struct w49 t74204; struct w49 t74205; struct structure_type27745 *t74206; struct p10641 *t74207; struct p10641 *t74208; struct p10641 *t74209; struct w49 t74210; struct w49 t74211; struct p10646 *t74212; struct structure_type27745 *t74213; struct w49 t74214; struct p10570 *t74215; struct w49 t74216; struct structure_type24753 *t74217; struct w49 t74218; struct structure_type27745 *t74219; struct w49 t74220; struct w49 t74221; struct w49 t74222; struct p10646 *t74223; struct structure_type27745 *t74224; struct w49 t74225; struct structure_type24753 *t74226; struct structure_type27650 *t74227; struct structure_type27745 *t74228; struct w49 t74229; struct w49 t74230; struct structure_type27745 *t74231; char *t74232; struct structure_type27650 *t74233; struct p10646 *t74234; unsigned t74235; struct w189023 t74236; struct w49 t74237; struct w49 t74238; struct p16321 *t74239; struct w136217 t74240; struct w49 t74241; struct p16364 *t74242; struct p10650 *t74243; struct p7717 *t74244; struct p7717 *t74245; struct w49 t74246; struct w49 t74247; struct w49 t74248; struct w49 t74249; struct w49 t74250; struct p7717 *t74251; struct w49 t74252; struct w211257 t74253; struct w49 t74254; struct w49 t74255; struct w49 t74256; struct w49 t74257; struct w49 t74258; struct p7717 *t74259; struct w49 t74260; struct w211235 t74261; struct w49 t74262; struct w49 t74263; struct w49 t74264; struct w49 t74265; struct w49 t74266; struct w49 t74267; struct w211045 t74268; struct p16405 *t74269; struct w49 t74270; struct w211045 t74271; struct p16450 *t74272; struct p10650 *t74273; struct p7717 *t74274; struct w49 t74275; struct w211257 t74276; struct w49 t74277; struct w211235 t74278; struct w49 t74279; struct w211045 t74280; struct p16438 *t74281; struct p10650 *t74282; struct p7717 *t74283; struct w49 t74284; struct w211257 t74285; struct w49 t74286; struct w211235 t74287; struct w49 t74288; struct w211045 t74289; struct p16603 *t74290; struct p10650 *t74291; struct p7717 *t74292; struct w49 t74293; struct w211257 t74294; struct w49 t74295; struct w211235 t74296; struct w49 t74297; struct w211045 t74298; unsigned t74299; struct w49 t74300; struct p16615 *t74301; struct p10650 *t74302; struct p7717 *t74303; struct w49 t74304; struct w211257 t74305; struct w49 t74306; struct w211235 t74307; struct w49 t74308; struct w211045 t74309; struct p16653 *t74310; struct p10650 *t74311; struct p7717 *t74312; struct w49 t74313; struct w211257 t74314; struct w49 t74315; struct w211235 t74316; struct w49 t74317; struct w211045 t74318; struct p16688 *t74319; struct w49 t74320; struct w211235 t74321; struct p16688 *t74322; unsigned t74323; char *t74324; struct w49 t74325; struct w49 t74326; struct w49 t74327; struct w211257 t74328; struct w49 t74329; struct w211235 t74330; struct w49 t74331; struct w211045 t74332; struct w49 t74333; struct w211257 t74334; struct p16688 *t74335; unsigned t74336; char *t74337; struct w49 t74338; struct w49 t74339; struct p16666 *t74340; struct w49 t74341; struct w211235 t74342; struct p16666 *t74343; unsigned t74344; char *t74345; struct w49 t74346; struct w49 t74347; struct w49 t74348; struct w211257 t74349; struct w49 t74350; struct w211235 t74351; struct w49 t74352; struct w211045 t74353; struct w49 t74354; struct w211257 t74355; struct p16666 *t74356; unsigned t74357; char *t74358; struct w49 t74359; struct w49 t74360; struct p16726 *t74361; struct w49 t74362; struct w211257 t74363; struct p16726 *t74364; unsigned t74365; char *t74366; struct w49 t74367; struct w49 t74368; struct w49 t74369; struct w211257 t74370; struct w49 t74371; struct w211257 t74372; struct p16726 *t74373; unsigned t74374; char *t74375; struct w49 t74376; struct w49 t74377; struct p16811 *t74378; unsigned t74379; char *t74380; struct w49 t74381; struct w49 t74382; unsigned t74383; char *t74384; struct w49 t74385; struct w49 t74386; struct p16710 *t74387; struct w49 t74388; struct w211257 t74389; struct w49 t74390; struct w211257 t74391; struct p16710 *t74392; unsigned t74393; char *t74394; struct w49 t74395; struct w49 t74396; struct w49 t74397; struct w211257 t74398; struct p16710 *t74399; unsigned t74400; char *t74401; struct w49 t74402; struct w49 t74403; struct p16639 *t74404; struct w49 t74405; struct w211045 t74406; struct p16848 *t74407; unsigned t74408; char *t74409; struct w49 t74410; struct w49 t74411; unsigned t74412; char *t74413; struct w49 t74414; struct w49 t74415; struct p16834 *t74416; unsigned t74417; char *t74418; struct w49 t74419; struct w49 t74420; unsigned t74421; char *t74422; struct w49 t74423; struct w49 t74424; unsigned t74425; char *t74426; struct w49 t74427; struct w49 t74428; struct p17280 *t74429; struct w49 t74430; struct w211257 t74431; struct w49 t74432; struct w211257 t74433; struct p17280 *t74434; unsigned t74435; char *t74436; struct w49 t74437; struct w49 t74438; struct w49 t74439; struct w211257 t74440; struct p17280 *t74441; unsigned t74442; char *t74443; struct w49 t74444; struct w49 t74445; struct p17318 *t74446; struct w49 t74447; struct w211257 t74448; struct w49 t74449; struct w211257 t74450; struct p17318 *t74451; unsigned t74452; char *t74453; struct w49 t74454; struct w49 t74455; struct w49 t74456; struct w211257 t74457; struct p17318 *t74458; unsigned t74459; char *t74460; struct w49 t74461; struct w49 t74462; struct p17299 *t74463; struct w49 t74464; struct w211257 t74465; struct w49 t74466; struct w211257 t74467; struct p17299 *t74468; unsigned t74469; char *t74470; struct w49 t74471; struct w49 t74472; struct w49 t74473; struct w211257 t74474; struct p17299 *t74475; unsigned t74476; char *t74477; struct w49 t74478; struct w49 t74479; struct p17261 *t74480; struct w49 t74481; struct w211257 t74482; struct w49 t74483; struct w211257 t74484; struct p17261 *t74485; unsigned t74486; char *t74487; struct w49 t74488; struct w49 t74489; struct w49 t74490; struct w211257 t74491; struct p17261 *t74492; unsigned t74493; char *t74494; struct w49 t74495; struct w49 t74496; unsigned t74497; char *t74498; struct w49 t74499; struct w49 t74500; unsigned t74501; char *t74502; struct w49 t74503; struct w49 t74504; unsigned t74505; char *t74506; struct w49 t74507; struct w49 t74508; unsigned t74509; char *t74510; struct w49 t74511; struct w49 t74512; unsigned t74513; char *t74514; struct w49 t74515; struct w49 t74516; unsigned t74517; char *t74518; struct w49 t74519; struct w49 t74520; unsigned t74521; char *t74522; struct w49 t74523; struct w49 t74524; unsigned t74525; char *t74526; struct w49 t74527; struct w49 t74528; unsigned t74529; char *t74530; struct w49 t74531; struct w49 t74532; unsigned t74533; char *t74534; struct w49 t74535; struct w49 t74536; struct p17509 *t74537; struct p10650 *t74538; struct p7717 *t74539; struct w49 t74540; struct w211257 t74541; struct w49 t74542; struct w211235 t74543; struct w49 t74544; struct w211045 t74545; struct p17539 *t74546; struct p10650 *t74547; struct p7717 *t74548; struct w49 t74549; struct w211257 t74550; struct w49 t74551; struct w211235 t74552; struct w49 t74553; struct w211045 t74554; struct p17604 *t74555; unsigned t74556; char *t74557; struct w49 t74558; struct w49 t74559; struct w49 t74560; struct w211045 t74561; unsigned t74562; char *t74563; struct w49 t74564; struct w49 t74565; struct p17646 *t74566; struct p10650 *t74567; struct p7717 *t74568; struct w49 t74569; struct w211257 t74570; struct w49 t74571; struct w211235 t74572; struct w49 t74573; struct w211045 t74574; struct p17750 *t74575; unsigned t74576; char *t74577; struct w49 t74578; struct w49 t74579; struct w49 t74580; struct w211045 t74581; struct p17905 *t74582; struct p10650 *t74583; struct p7717 *t74584; struct w49 t74585; struct w211257 t74586; struct w49 t74587; struct w211235 t74588; struct w49 t74589; struct w211045 t74590; struct p17845 *t74591; struct structure_type27745 *t74592; struct w49 t74593; struct structure_type24753 *t74594; struct structure_type27650 *t74595; struct structure_type27745 *t74596; struct w49 t74597; struct w49 t74598; struct structure_type27745 *t74599; char *t74600; struct structure_type27745 *t74601; struct w49 t74602; struct structure_type27650 *t74603; struct structure_type27858 *t74604; struct structure_type24753 *t74605; struct w49 t74606; struct structure_type27745 *t74607; struct structure_type27745 *t74608; struct w49 t74609; struct w49 t74610; struct w49 t74611; struct p17812 *t74612; struct p10650 *t74613; struct p7717 *t74614; struct w49 t74615; struct w211257 t74616; struct w49 t74617; struct w211235 t74618; struct w49 t74619; struct w211045 t74620; struct p17477 *t74621; struct w49 t74622; struct w211257 t74623; struct p17477 *t74624; unsigned t74625; char *t74626; struct w49 t74627; struct w49 t74628; struct w49 t74629; struct w211257 t74630; struct p17477 *t74631; unsigned t74632; char *t74633; struct w49 t74634; struct w49 t74635; unsigned t74636; char *t74637; struct w49 t74638; struct w49 t74639; unsigned t74640; char *t74641; struct w49 t74642; struct w49 t74643; struct p17970 *t74644; unsigned t74645; char *t74646; struct w49 t74647; struct w49 t74648; unsigned t74649; char *t74650; struct w49 t74651; struct w49 t74652; struct p17991 *t74653; struct p10650 *t74654; struct p7717 *t74655; struct w49 t74656; struct w211257 t74657; struct w49 t74658; struct w211235 t74659; struct w49 t74660; struct w211045 t74661; struct p18002 *t74662; unsigned t74663; char *t74664; struct w49 t74665; struct w49 t74666; unsigned t74667; char *t74668; struct w49 t74669; struct w49 t74670; struct p17980 *t74671; unsigned t74672; char *t74673; struct w49 t74674; struct w49 t74675; unsigned t74676; char *t74677; struct w49 t74678; struct w49 t74679; struct p18047 *t74680; struct p10650 *t74681; struct p7717 *t74682; struct w49 t74683; struct w211257 t74684; struct w49 t74685; struct w211235 t74686; struct w49 t74687; struct w211045 t74688; unsigned t74689; char *t74690; struct w49 t74691; struct w49 t74692; unsigned t74693; char *t74694; struct w49 t74695; struct w49 t74696; unsigned t74697; char *t74698; struct w49 t74699; struct w49 t74700; unsigned t74701; struct w49 t74702; struct p18115 *t74703; unsigned t74704; char *t74705; struct w49 t74706; struct w49 t74707; unsigned t74708; char *t74709; struct w49 t74710; struct w49 t74711; struct structure_type27745 *t74712; struct w49 t74713; struct structure_type24753 *t74714; struct structure_type27650 *t74715; struct structure_type27745 *t74716; struct w49 t74717; struct w49 t74718; struct structure_type27745 *t74719; char *t74720; struct structure_type27745 *t74721; struct w49 t74722; struct w49 t74723; struct p17917 *t74724; struct p10650 *t74725; struct p7717 *t74726; struct w49 t74727; struct w211257 t74728; struct w49 t74729; struct w211235 t74730; struct w49 t74731; struct w211045 t74732; struct w49 t74733; struct w49 t74734; struct w49 t74735; struct w211235 t74736; char *t74737; int t74738; int t74739; struct w49 t74740; char *t74741; struct p16342 *t74742; struct p16377 *t74743; struct w49 t74744; unsigned t74745; struct w3467 t74746; struct w49 t74747; struct w49 t74748; struct w49 t74749; struct w49 t74750; struct structure_type24753 *t74751; struct w49 t74752; struct w49 t74753; struct w49 t74754; struct w49 t74755; struct w49 t74756; struct w49 t74757; struct w49 t74758; struct w49 t74759; struct w49 t74760; struct w36270 t74761; struct w49 t74762; struct structure_type24753 *t74763; struct structure_type27745 *t74764; struct structure_type27745 *t74765; struct w49 t74766; struct w211235 t74767; char *t74768; struct p16328 *t74769; struct w136184 t74770; struct w49 t74771; struct w49 t74772; struct p16422 *t74773; struct w49 t74774; struct w211045 t74775; struct p16462 *t74776; struct w16638 t74777; struct structure_type27657 *t74778; struct p16462 *t74779; struct p16462 *t74780; struct p16462 *t74781; struct w49 t74782; struct w211045 t74783; struct w49 t74784; struct w211045 t74785; struct w49 t74786; struct w211045 t74787; struct w49 t74788; struct w211045 t74789; struct p16461 *t74790; unsigned t74791; char *t74792; struct w49 t74793; struct w49 t74794; struct p16461 *t74795; unsigned t74796; char *t74797; struct w49 t74798; struct w49 t74799; struct p16462 *t74800; struct w49 t74801; struct w211257 t74802; struct w49 t74803; struct w49 t74804; struct p16462 *t74805; struct structure_type27657 *t74806; struct p16462 *t74807; struct structure_type27657 *t74808; struct w49 t74809; struct w49 t74810; struct w49 t74811; struct w49 t74812; struct w49 t74813; struct w49 t74814; struct w49 t74815; struct w49 t74816; struct w49 t74817; struct w49 t74818; struct p17105 *t74819; struct w49 t74820; struct w211257 t74821; struct w49 t74822; struct w211257 t74823; struct w49 t74824; struct w211257 t74825; struct w49 t74826; struct w211257 t74827; struct w49 t74828; struct w211257 t74829; struct w49 t74830; struct w211257 t74831; struct p17105 *t74832; unsigned t74833; char *t74834; struct w49 t74835; struct w49 t74836; struct w49 t74837; struct w211257 t74838; struct w49 t74839; struct w211257 t74840; struct p17105 *t74841; unsigned t74842; char *t74843; struct w49 t74844; struct w49 t74845; struct p17072 *t74846; struct w49 t74847; struct w211257 t74848; struct w49 t74849; struct w211257 t74850; struct w49 t74851; struct w211257 t74852; struct w49 t74853; struct w211257 t74854; struct w49 t74855; struct w211257 t74856; struct w49 t74857; struct w211257 t74858; struct p17072 *t74859; unsigned t74860; char *t74861; struct w49 t74862; struct w49 t74863; struct w49 t74864; struct w211257 t74865; struct w49 t74866; struct w211257 t74867; struct p17072 *t74868; unsigned t74869; char *t74870; struct w49 t74871; struct w49 t74872; struct p17171 *t74873; struct w49 t74874; struct w211257 t74875; struct w49 t74876; struct w211257 t74877; struct w49 t74878; struct w211257 t74879; struct w49 t74880; struct w211257 t74881; struct w49 t74882; struct w211257 t74883; struct w49 t74884; struct w211257 t74885; struct p17171 *t74886; unsigned t74887; char *t74888; struct w49 t74889; struct w49 t74890; struct w49 t74891; struct w211257 t74892; struct w49 t74893; struct w211257 t74894; struct p17171 *t74895; unsigned t74896; char *t74897; struct w49 t74898; struct w49 t74899; struct p17456 *t74900; struct w49 t74901; struct w211257 t74902; struct w49 t74903; struct w211257 t74904; struct p17456 *t74905; unsigned t74906; char *t74907; struct w49 t74908; struct w49 t74909; struct w49 t74910; struct w211257 t74911; struct w49 t74912; struct w211257 t74913; struct p17456 *t74914; unsigned t74915; char *t74916; struct w49 t74917; struct w49 t74918; struct p17138 *t74919; struct w49 t74920; struct w211257 t74921; struct w49 t74922; struct w211257 t74923; struct w49 t74924; struct w211257 t74925; struct w49 t74926; struct w211257 t74927; struct w49 t74928; struct w211257 t74929; struct w49 t74930; struct w211257 t74931; struct p17138 *t74932; unsigned t74933; char *t74934; struct w49 t74935; struct w49 t74936; struct w49 t74937; struct w211257 t74938; struct w49 t74939; struct w211257 t74940; struct p17138 *t74941; unsigned t74942; char *t74943; struct w49 t74944; struct w49 t74945; struct p17617 *t74946; unsigned t74947; char *t74948; struct w49 t74949; struct w49 t74950; struct w49 t74951; struct w211045 t74952; struct p17765 *t74953; struct p17765 *t74954; struct w49 t74955; struct w211045 t74956; struct w49 t74957; struct w211045 t74958; struct p18125 *t74959; struct structure_type27745 *t74960; struct w49 t74961; struct structure_type24753 *t74962; struct structure_type27650 *t74963; struct structure_type27745 *t74964; struct w49 t74965; struct w49 t74966; struct structure_type27745 *t74967; char *t74968; struct structure_type27745 *t74969; struct w49 t74970; struct w49 t74971; struct structure_type27745 *t74972; struct w49 t74973; struct structure_type24753 *t74974; struct structure_type27650 *t74975; struct structure_type27745 *t74976; struct w49 t74977; struct w49 t74978; struct structure_type27745 *t74979; char *t74980; struct structure_type27745 *t74981; struct w49 t74982; struct w49 t74983; struct w49 t74984; struct w49 t74985; struct w49 t74986; struct w49 t74987; struct w211235 t74988; char *t74989; int t74990; int t74991; struct w49 t74992; char *t74993; struct p16355 *t74994; struct w136041 t74995; struct w49 t74996; struct p16754 *t74997; unsigned t74998; char *t74999; struct w49 t75000; struct w49 t75001; unsigned t75002; char *t75003; struct w49 t75004; struct w49 t75005; struct p16743 *t75006; unsigned t75007; char *t75008; struct w49 t75009; struct w49 t75010; unsigned t75011; char *t75012; struct w49 t75013; struct w49 t75014; struct p16776 *t75015; unsigned t75016; char *t75017; struct w49 t75018; struct w49 t75019; unsigned t75020; char *t75021; struct w49 t75022; struct w49 t75023; struct p16787 *t75024; unsigned t75025; char *t75026; struct w49 t75027; struct w49 t75028; unsigned t75029; char *t75030; struct w49 t75031; struct w49 t75032; struct p16765 *t75033; unsigned t75034; char *t75035; struct w49 t75036; struct w49 t75037; unsigned t75038; char *t75039; struct w49 t75040; struct w49 t75041; struct p16892 *t75042; struct w49 t75043; struct w228245 t75044; struct w49 t75045; struct structure_type24753 *t75046; struct w49 t75047; struct w228345 t75048; struct w49 t75049; struct structure_type24753 *t75050; struct p16892 *t75051; unsigned t75052; char *t75053; struct w49 t75054; struct w49 t75055; struct w49 t75056; struct w228245 t75057; struct w49 t75058; struct structure_type24753 *t75059; struct p16892 *t75060; unsigned t75061; char *t75062; struct w49 t75063; struct w49 t75064; struct w49 t75065; struct w228245 t75066; struct w49 t75067; struct structure_type24753 *t75068; struct w49 t75069; struct w228345 t75070; struct w49 t75071; struct structure_type24753 *t75072; struct p16892 *t75073; unsigned t75074; char *t75075; struct w49 t75076; struct w49 t75077; struct p16864 *t75078; struct w49 t75079; struct w228245 t75080; struct w49 t75081; struct structure_type24753 *t75082; struct w49 t75083; struct w228345 t75084; struct w49 t75085; struct structure_type24753 *t75086; struct p16864 *t75087; unsigned t75088; char *t75089; struct w49 t75090; struct w49 t75091; struct w49 t75092; struct w228245 t75093; struct w49 t75094; struct structure_type24753 *t75095; struct p16864 *t75096; unsigned t75097; char *t75098; struct w49 t75099; struct w49 t75100; struct w49 t75101; struct w228245 t75102; struct w49 t75103; struct structure_type24753 *t75104; struct w49 t75105; struct w228345 t75106; struct w49 t75107; struct structure_type24753 *t75108; struct p16864 *t75109; unsigned t75110; char *t75111; struct w49 t75112; struct w49 t75113; struct w49 t75114; struct p16961 *t75115; struct p16961 *t75116; struct w16638 t75117; struct w228245 t75118; struct w49 t75119; struct structure_type24753 *t75120; struct w16638 t75121; struct w228345 t75122; struct w49 t75123; struct structure_type24753 *t75124; struct p16961 *t75125; unsigned t75126; char *t75127; struct w49 t75128; struct w49 t75129; struct w16638 t75130; struct w228245 t75131; struct w49 t75132; struct structure_type24753 *t75133; struct p16961 *t75134; unsigned t75135; char *t75136; struct w49 t75137; struct w49 t75138; struct w16638 t75139; struct w228245 t75140; struct w49 t75141; struct structure_type24753 *t75142; struct w16638 t75143; struct w228345 t75144; struct w49 t75145; struct structure_type24753 *t75146; struct p16961 *t75147; unsigned t75148; char *t75149; struct w49 t75150; struct w49 t75151; struct p16961 *t75152; unsigned t75153; char *t75154; struct w49 t75155; struct w49 t75156; struct p17045 *t75157; struct w49 t75158; struct w228245 t75159; struct w49 t75160; struct structure_type24753 *t75161; struct w49 t75162; struct w228345 t75163; struct w49 t75164; struct structure_type24753 *t75165; struct p17045 *t75166; unsigned t75167; char *t75168; struct w49 t75169; struct w49 t75170; struct w49 t75171; struct w228245 t75172; struct w49 t75173; struct structure_type24753 *t75174; struct p17045 *t75175; unsigned t75176; char *t75177; struct w49 t75178; struct w49 t75179; struct p17002 *t75180; struct w49 t75181; struct w228245 t75182; struct w49 t75183; struct structure_type24753 *t75184; struct w49 t75185; struct w228345 t75186; struct w49 t75187; struct structure_type24753 *t75188; struct p17002 *t75189; unsigned t75190; char *t75191; struct w49 t75192; struct w49 t75193; struct w49 t75194; struct w228245 t75195; struct w49 t75196; struct structure_type24753 *t75197; struct p17002 *t75198; unsigned t75199; char *t75200; struct w49 t75201; struct w49 t75202; struct w49 t75203; struct w228245 t75204; struct w49 t75205; struct structure_type24753 *t75206; struct w49 t75207; struct w228345 t75208; struct w49 t75209; struct structure_type24753 *t75210; struct p17002 *t75211; unsigned t75212; char *t75213; struct w49 t75214; struct w49 t75215; struct w49 t75216; struct p16920 *t75217; struct p16920 *t75218; struct w16638 t75219; struct w228245 t75220; struct w49 t75221; struct structure_type24753 *t75222; struct w16638 t75223; struct w228345 t75224; struct w49 t75225; struct structure_type24753 *t75226; struct p16920 *t75227; unsigned t75228; char *t75229; struct w49 t75230; struct w49 t75231; struct w16638 t75232; struct w228245 t75233; struct w49 t75234; struct structure_type24753 *t75235; struct p16920 *t75236; unsigned t75237; char *t75238; struct w49 t75239; struct w49 t75240; struct w16638 t75241; struct w228245 t75242; struct w49 t75243; struct structure_type24753 *t75244; struct w16638 t75245; struct w228345 t75246; struct w49 t75247; struct structure_type24753 *t75248; struct p16920 *t75249; unsigned t75250; char *t75251; struct w49 t75252; struct w49 t75253; struct p16920 *t75254; unsigned t75255; char *t75256; struct w49 t75257; struct w49 t75258; unsigned t75259; char *t75260; struct w49 t75261; struct w49 t75262; unsigned t75263; char *t75264; struct w49 t75265; struct w49 t75266; unsigned t75267; char *t75268; struct w49 t75269; struct w49 t75270; unsigned t75271; struct w3467 t75272; struct w49 t75273; struct w49 t75274; struct w49 t75275; struct structure_type27745 *t75276; struct structure_type27745 *t75277; unsigned t75278; struct w3467 t75279; struct w49 t75280; struct w49 t75281; struct w49 t75282; struct w49 t75283; struct structure_type24753 *t75284; unsigned t75285; struct w49 t75286; struct w228463 t75287; struct w49 t75288; struct w36270 t75289; struct w49 t75290; struct structure_type24753 *t75291; struct structure_type27745 *t75292; struct structure_type27745 *t75293; struct w49 t75294; struct w211235 t75295; char *t75296; struct p16347 *t75297; int t75298; int t75299; struct w49 t75300; int t75301; int t75302; struct w49 t75303; char *t75304; struct p16347 *t75305; unsigned t75306; struct w49 t75308; unsigned t75309; char *t75310; struct w49 t75311; struct w49 t75312; unsigned t75313; struct w3467 t75314; struct w49 t75315; struct w49 t75316; struct w49 t75317; struct structure_type27745 *t75318; struct structure_type27745 *t75319; unsigned t75320; struct w3467 t75321; struct w49 t75322; struct w49 t75323; struct structure_type24753 *t75324; struct w49 t75325; struct w49 t75326; struct w49 t75327; struct structure_type27745 *t75328; struct structure_type27745 *t75329; struct w49 t75330; struct w49 t75331; struct w49 t75332; struct p16347 *t75333; unsigned t75334; unsigned t75336; char *t75337; struct w49 t75338; struct w49 t75339; unsigned t75340; struct w3467 t75341; struct w49 t75342; struct w49 t75343; struct w49 t75344; struct structure_type27745 *t75345; struct structure_type27745 *t75346; unsigned t75347; struct w3467 t75348; struct w49 t75349; struct w49 t75350; struct w49 t75351; struct w49 t75352; struct structure_type27745 *t75353; struct structure_type27745 *t75354; struct w49 t75355; struct w49 t75356; struct w49 t75357; struct w211235 t75358; char *t75359; struct p16335 *t75360; struct p17698 *t75361; struct w49 t75362; struct w49 t75364; struct p17792 *t75365; struct w49 t75366; struct w211045 t75367; struct p17698 *t75368; struct w49 t75369; struct w211045 t75370; struct w49 t75371; struct w49 t75372; struct w49 t75373; struct w49 t75374; struct w49 t75375; struct w211235 t75376; char *t75377; int t75378; int t75379; struct w49 t75380; char *t75381; struct p17829 *t75382; struct structure_type27745 *t75383; struct w49 t75384; struct w49 t75385; struct w49 t75386; struct structure_type27745 *t75387; struct structure_type27745 *t75388; char *t75389; struct w49 t75390; struct w49 t75391; struct structure_type27745 *t75392; struct w49 t75393; struct w12224 t75394; struct w12224 t75395; struct w49 t75396; struct w49 t75397; struct w49 t75398; struct w12224 t75399; struct w12224 t75400; struct w49 t75401; struct w49 t75402; struct w49 t75403; struct w211235 t75404; char *t75405; struct p16314 *t75406; struct w136247 t75407; unsigned t75408; char *t75409; struct w49 t75410; struct w49 t75411; unsigned t75412; char *t75413; struct w49 t75414; struct w49 t75415; unsigned t75416; char *t75417; struct w49 t75418; struct w49 t75419; unsigned t75420; char *t75421; struct w49 t75422; struct w49 t75423; unsigned t75424; char *t75425; struct w49 t75426; struct w49 t75427; struct w49 t75428; struct w211235 t75429; char *t75430; int t75431; int t75432; struct w49 t75433; char *t75434; unsigned t75435; struct structure_type27745 *t75436; struct w49 t75437; unsigned t75438; struct p10650 *t75439; struct w49 t75440; struct p18141 *t75441; struct w136217 t75442; struct p16321 *t75443; struct p18125 *t75444; struct w136184 t75445; struct p16328 *t75446; struct p18115 *t75447; struct w136217 t75448; struct p16321 *t75449; struct p18108 *t75450; struct w136247 t75451; struct p16314 *t75452; struct p18101 *t75453; struct w136247 t75454; struct p16314 *t75455; struct p18094 *t75456; struct w136247 t75457; struct p16314 *t75458; struct p18085 *t75459; struct w136217 t75460; struct p16321 *t75461; struct p18076 *t75462; struct w136217 t75463; struct p16321 *t75464; struct p18067 *t75465; struct w136217 t75466; struct p16321 *t75467; struct p18058 *t75468; struct w136217 t75469; struct p16321 *t75470; struct p18047 *t75471; struct w136217 t75472; struct p16321 *t75473; struct w136217 t75474; struct p16321 *t75475; struct w136184 t75476; struct p16328 *t75477; struct p18019 *t75478; struct w136247 t75479; struct p16314 *t75480; struct p18012 *t75481; struct w136247 t75482; struct p16314 *t75483; struct p18002 *t75484; struct w136217 t75485; struct p16321 *t75486; struct p17991 *t75487; struct w136217 t75488; struct p16321 *t75489; struct p17980 *t75490; struct w136217 t75491; struct p16321 *t75492; struct p17970 *t75493; struct w136217 t75494; struct p16321 *t75495; struct w136217 t75496; struct p16321 *t75497; struct w136217 t75498; struct p16321 *t75499; struct p17940 *t75500; struct w136217 t75501; struct p16321 *t75502; struct p17928 *t75503; struct w136217 t75504; struct p16321 *t75505; struct p17917 *t75506; struct w136217 t75507; struct p16321 *t75508; struct p17905 *t75509; struct w136217 t75510; struct p16321 *t75511; struct p17845 *t75512; struct w136217 t75513; struct p16321 *t75514; struct p17812 *t75515; struct w136217 t75516; struct p16321 *t75517; struct p17698 *t75518; struct p16335 *t75519; struct p17765 *t75520; struct w136184 t75521; struct p16328 *t75522; struct p17750 *t75523; struct w136217 t75524; struct p16321 *t75525; struct p17724 *t75526; struct w136041 t75527; struct p16355 *t75528; struct p17698 *t75529; struct p17698 *t75530; struct p16335 *t75531; struct p17657 *t75532; struct p17657 *t75533; unsigned t75534; unsigned t75535; struct p16347 *t75536; struct p17646 *t75537; struct w136217 t75538; struct p16321 *t75539; struct p17698 *t75540; struct p16335 *t75541; struct p17617 *t75542; struct w136184 t75543; struct p16328 *t75544; struct p17604 *t75545; struct w136217 t75546; struct p16321 *t75547; struct p17585 *t75548; struct w136041 t75549; struct p16355 *t75550; struct p17550 *t75551; struct p17550 *t75552; unsigned t75553; unsigned t75554; struct p16347 *t75555; struct p17539 *t75556; struct w136217 t75557; struct p16321 *t75558; struct p17529 *t75559; struct w136217 t75560; struct p16321 *t75561; struct p17520 *t75562; struct w136217 t75563; struct p16321 *t75564; struct p17509 *t75565; struct w136217 t75566; struct p16321 *t75567; struct p17495 *t75568; struct w136217 t75569; struct p16321 *t75570; struct p17477 *t75571; struct w136217 t75572; struct p16321 *t75573; struct p17456 *t75574; struct w136184 t75575; struct p16328 *t75576; struct p17444 *t75577; struct w136217 t75578; struct p16321 *t75579; struct p17421 *t75580; struct p17421 *t75581; unsigned t75582; unsigned t75583; struct p16347 *t75584; struct p17409 *t75585; struct w136217 t75586; struct p16321 *t75587; struct p17397 *t75588; struct w136217 t75589; struct p16321 *t75590; struct p17385 *t75591; struct w136217 t75592; struct p16321 *t75593; struct p17373 *t75594; struct w136217 t75595; struct p16321 *t75596; struct p17361 *t75597; struct w136217 t75598; struct p16321 *t75599; struct p17349 *t75600; struct w136217 t75601; struct p16321 *t75602; struct p17337 *t75603; struct w136217 t75604; struct p16321 *t75605; struct p17318 *t75606; struct w136217 t75607; struct p16321 *t75608; struct p17299 *t75609; struct w136217 t75610; struct p16321 *t75611; struct p17280 *t75612; struct w136217 t75613; struct p16321 *t75614; struct p17261 *t75615; struct w136217 t75616; struct p16321 *t75617; struct p17247 *t75618; struct w136041 t75619; struct p16355 *t75620; struct p17231 *t75621; struct w136041 t75622; struct p16355 *t75623; struct p17215 *t75624; struct w136041 t75625; struct p16355 *t75626; struct p17204 *t75627; struct w136217 t75628; struct p16321 *t75629; struct p17171 *t75630; struct w136184 t75631; struct p16328 *t75632; struct p17138 *t75633; struct w136184 t75634; struct p16328 *t75635; struct p17105 *t75636; struct w136184 t75637; struct p16328 *t75638; struct p17072 *t75639; struct w136184 t75640; struct p16328 *t75641; struct p17045 *t75642; struct w136041 t75643; struct p16355 *t75644; struct p17002 *t75645; struct w136041 t75646; struct p16355 *t75647; struct p16961 *t75648; struct w136041 t75649; struct p16355 *t75650; struct p16920 *t75651; struct w136041 t75652; struct p16355 *t75653; struct p16892 *t75654; struct w136041 t75655; struct p16355 *t75656; struct p16864 *t75657; struct w136041 t75658; struct p16355 *t75659; struct p16848 *t75660; struct w136217 t75661; struct p16321 *t75662; struct p16834 *t75663; struct w136217 t75664; struct p16321 *t75665; struct p16811 *t75666; struct w136217 t75667; struct p16321 *t75668; struct p16787 *t75669; struct w136041 t75670; struct p16355 *t75671; struct p16776 *t75672; struct w136041 t75673; struct p16355 *t75674; struct p16765 *t75675; struct w136041 t75676; struct p16355 *t75677; struct p16754 *t75678; struct w136041 t75679; struct p16355 *t75680; struct p16743 *t75681; struct w136041 t75682; struct p16355 *t75683; struct p16726 *t75684; struct w136217 t75685; struct p16321 *t75686; struct p16710 *t75687; struct w136217 t75688; struct p16321 *t75689; struct p16688 *t75690; struct w136217 t75691; struct p16321 *t75692; struct p16666 *t75693; struct w136217 t75694; struct p16321 *t75695; struct p16653 *t75696; struct w136217 t75697; struct p16321 *t75698; struct p16639 *t75699; struct w136217 t75700; struct p16321 *t75701; struct p16626 *t75702; struct w136217 t75703; struct p16321 *t75704; struct p16615 *t75705; struct w136217 t75706; struct p16321 *t75707; struct p16603 *t75708; struct w136217 t75709; struct p16321 *t75710; struct p16461 *t75711; struct w136184 t75712; struct p16328 *t75713; struct p16450 *t75714; struct w136217 t75715; struct p16321 *t75716; struct p16438 *t75717; struct w136217 t75718; struct p16321 *t75719; struct p16421 *t75720; struct w136184 t75721; struct p16328 *t75722; struct p16405 *t75723; struct w136217 t75724; struct p16321 *t75725; struct p16377 *t75726; struct p16364 *t75727; struct w136217 t75728; struct p16321 *t75729; struct w49 t75730; struct w49 t75731; struct w49 t75732; struct w49 t75733; struct structure_type24753 *t75734; struct w49 t75735; struct w49 t75736; struct w49 t75737; struct structure_type27745 *t75738; struct w49 t75739; struct structure_type27745 *t75740; struct w49 t75741; struct w49 t75742; struct w49 t75743; struct structure_type27745 *t75744; struct w49 t75745; struct w49 t75746; struct w49 t75747; struct structure_type27745 *t75748; struct w49 t75749; struct structure_type27745 *t75750; struct w49 t75751; char *t75752; unsigned t75753; struct w49 t75754; struct w12224 t75755; struct w49 t75756; struct structure_type27745 *t75757; struct w49 t75758; struct p11793 *t75759; struct w49 t75760; struct w49 t75761; struct w49 t75762; struct w49 t75763; struct w49 t75764; struct w49 t75765; struct w49 t75766; struct w49 t75767; char *t75768; struct p11793 *t75769; struct structure_type27745 *t75770; struct w49 t75771; struct w49 t75772; struct w49 t75773; struct w49 t75774; struct p11793 *t75775; struct w49 t75776; struct w49 t75777; struct structure_type27745 *t75778; struct structure_type27745 *t75779; struct p11793 *t75780; struct structure_type27745 *t75781; struct w49 t75782; struct p11793 *t75783; struct p11793 *t75784; struct structure_type27745 *t75785; struct w49 t75786; struct p11793 *t75787; struct w49 t75788; struct structure_type27745 *t75789; struct structure_type24753 *t75790; struct structure_type27650 *t75791; struct w16638 t75792; struct structure_type27745 *t75793; struct w12224 t75794; struct w49 t75795; struct w12224 t75796; struct w12224 t75797; struct structure_type27745 *t75798; char *t75799; struct w49 t75800; struct w49 t75801; struct w49 t75802; struct structure_type27745 *t75803; struct structure_type27745 *t75804; struct w11873 t75805; struct w36108 t75806; struct w49 t75807; struct structure_type24753 *t75808; struct w49 t75809; struct w49 t75810; struct structure_type27745 *t75811; struct structure_type27745 *t75812; struct p11793 *t75813; struct p11793 *t75814; struct w49 t75815; struct p11818 *t75816; struct structure_type27745 *t75817; struct w49 t75818; struct p11818 *t75819; struct p11818 *t75820; struct structure_type27745 *t75821; struct w49 t75822; struct w49 t75823; struct p11793 *t75824; struct p11793 *t75825; struct w49 t75826; struct structure_type27745 *t75827; struct structure_type24753 *t75828; struct structure_type27650 *t75829; struct w16638 t75830; struct structure_type27745 *t75831; struct w12224 t75832; struct w49 t75833; struct w12224 t75834; struct w12224 t75835; struct structure_type27745 *t75836; char *t75837; struct w49 t75838; struct w49 t75839; struct w49 t75840; struct structure_type27745 *t75841; struct structure_type27745 *t75842; struct w49 t75843; struct w49 t75844; struct structure_type27745 *t75845; struct structure_type27745 *t75846; struct p11818 *t75847; struct structure_type24753 *t75848; struct w49 t75849; struct w49 t75850; struct p11818 *t75851; struct w49 t75852; struct w49 t75853; struct w16638 t75854; struct w16638 t75855; struct p11818 *t75856; struct p11818 *t75857; struct p11818 *t75858; struct w49 t75859; struct w49 t75860; struct w16638 t75861; struct w16638 t75862; struct w49 t75863; struct w49 t75864; struct w49 t75865; struct w16638 t75866; struct w16638 t75867; struct w49 t75868; struct w49 t75869; struct w49 t75870; struct w49 t75871; struct w16638 t75872; struct w16638 t75873; struct w49 t75874; struct w36108 t75875; struct w49 t75876; struct structure_type24753 *t75877; struct p11818 *t75878; struct p11818 *t75879; struct w49 t75880; struct structure_type27745 *t75881; struct w49 t75882; struct w49 t75883; struct w49 t75884; struct w49 t75885; struct structure_type27745 *t75886; struct structure_type27745 *t75887; struct w11873 t75888; struct w11873 t75889; struct w49 t75890; struct w49 t75891; struct structure_type27745 *t75892; struct structure_type27745 *t75893; struct w49 t75894; struct structure_type27745 *t75895; struct w49 t75896; struct w49 t75897; struct p11818 *t75898; struct w49 t75899; struct w211257 t75900; struct w49 t75901; struct w49 t75902; struct w49 t75903; struct structure_type27745 *t75904; struct structure_type27745 *t75905; struct p11818 *t75906; struct w49 t75907; struct w6852 t75908; struct w6852 t75909; struct w49 t75910; struct w49 t75911; struct w49 t75912; struct structure_type27745 *t75913; struct p11793 *t75914; struct structure_type27745 *t75915; struct w49 t75916; struct p11793 *t75917; struct p11793 *t75918; struct structure_type27745 *t75919; struct w49 t75920; struct p11793 *t75921; struct w49 t75922; struct structure_type27745 *t75923; struct structure_type24753 *t75924; struct structure_type27650 *t75925; struct w16638 t75926; struct structure_type27745 *t75927; struct w12224 t75928; struct w49 t75929; struct w12224 t75930; struct w12224 t75931; struct structure_type27745 *t75932; char *t75933; struct w49 t75934; struct w49 t75935; struct w49 t75936; struct structure_type27745 *t75937; struct structure_type27745 *t75938; struct w49 t75939; struct w211235 t75940; char *t75941; struct w11873 t75942; struct w36108 t75943; struct w49 t75944; struct structure_type24753 *t75945; struct w49 t75946; struct w49 t75947; struct structure_type27745 *t75948; struct structure_type27745 *t75949; struct structure_type27745 *t75950; struct w49 t75951; struct p7708 *t75952; struct w49 t75953; char *t75954; struct w49 t75955; struct p7708 *t75956; struct w49 t75957; char *t75958; struct w49 t75959; struct p7708 *t75960; struct w49 t75961; char *t75962; struct w49 t75963; struct p7708 *t75964; struct w49 t75965; char *t75966; struct w49 t75967; struct p11793 *t75968; struct w49 t75969; struct structure_type27745 *t75970; struct structure_type27650 *t75971; struct w16638 t75972; struct structure_type27745 *t75973; struct w12224 t75974; struct w49 t75975; struct w12224 t75976; struct w12224 t75977; struct structure_type27745 *t75978; char *t75979; struct p11793 *t75980; struct p11793 *t75981; struct w49 t75982; struct structure_type27745 *t75983; struct structure_type27650 *t75984; struct w16638 t75985; struct structure_type27745 *t75986; struct w12224 t75987; struct w49 t75988; struct w12224 t75989; struct w49 t75990; struct structure_type27745 *t75991; char *t75992; struct w49 t75993; struct structure_type27745 *t75994; struct structure_type27650 *t75995; struct w16638 t75996; struct structure_type27745 *t75997; struct w12224 t75998; struct w49 t75999; struct w12224 t76000; struct w12224 t76001; struct structure_type27745 *t76002; char *t76003; struct p11793 *t76004; struct w49 t76005; struct structure_type27745 *t76006; struct structure_type24753 *t76007; struct structure_type27650 *t76008; struct w16638 t76009; struct structure_type27745 *t76010; struct w12224 t76011; struct w49 t76012; struct w12224 t76013; struct w12224 t76014; struct structure_type27745 *t76015; char *t76016; struct structure_type27650 *t76017; struct structure_type27858 *t76018; struct structure_type24753 *t76019; struct w49 t76020; struct structure_type27745 *t76021; struct structure_type27745 *t76022; struct p11793 *t76023; struct w49 t76024; struct structure_type27745 *t76025; struct w12224 t76026; struct w49 t76027; struct w16638 t76028; struct structure_type27745 *t76029; struct w12224 t76030; struct w12224 t76031; struct structure_type27745 *t76032; char *t76033; struct w49 t76034; struct w12224 t76035; struct w12224 t76036; struct w12224 t76037; struct w49 t76038; struct p7708 *t76039; struct w49 t76040; char *t76041; struct w49 t76042; struct p7708 *t76043; struct w49 t76044; char *t76045; struct w49 t76046; struct p7708 *t76047; struct w49 t76048; char *t76049; struct w49 t76050; struct p7708 *t76051; struct w49 t76052; char *t76053; struct w49 t76054; struct p11793 *t76055; struct w49 t76056; struct structure_type27745 *t76057; struct structure_type24753 *t76058; struct structure_type27650 *t76059; struct w16638 t76060; struct structure_type27745 *t76061; struct w12224 t76062; struct w49 t76063; struct w12224 t76064; struct w49 t76065; struct structure_type27745 *t76066; char *t76067; struct w49 t76068; struct w12224 t76069; struct w12224 t76070; struct p11793 *t76071; struct p11793 *t76072; struct w49 t76073; struct structure_type27745 *t76074; struct structure_type24753 *t76075; struct structure_type27650 *t76076; struct w16638 t76077; struct structure_type27745 *t76078; struct w12224 t76079; struct w49 t76080; struct w12224 t76081; struct w49 t76082; struct structure_type27745 *t76083; char *t76084; struct w49 t76085; struct w12224 t76086; struct w12224 t76087; struct w49 t76088; struct structure_type27745 *t76089; struct structure_type24753 *t76090; struct structure_type27650 *t76091; struct w16638 t76092; struct structure_type27745 *t76093; struct w12224 t76094; struct w49 t76095; struct w12224 t76096; struct w49 t76097; struct structure_type27745 *t76098; char *t76099; struct w49 t76100; struct w12224 t76101; struct w12224 t76102; struct p11793 *t76103; struct w49 t76104; struct structure_type27745 *t76105; struct structure_type24753 *t76106; struct structure_type27650 *t76107; struct w16638 t76108; struct structure_type27745 *t76109; struct w12224 t76110; struct w49 t76111; struct w12224 t76112; struct w49 t76113; struct structure_type27745 *t76114; char *t76115; struct w49 t76116; struct w49 t76117; struct w49 t76118; struct w12224 t76119; struct w12224 t76120; struct w12224 t76121; struct w12224 t76122; struct p11793 *t76123; struct w49 t76124; struct structure_type27745 *t76125; struct structure_type24753 *t76126; struct w49 t76127; struct w16638 t76128; struct structure_type27745 *t76129; struct w12224 t76130; struct w12224 t76131; struct w49 t76132; struct structure_type27745 *t76133; char *t76134; struct w49 t76135; struct w12224 t76136; struct w12224 t76137; struct w12224 t76138; struct w49 t76139; struct w49 t76140; struct w49 t76141; struct w12224 t76142; struct w12224 t76143; struct w12224 t76144; struct w49 t76145; struct w49 t76146; struct w49 t76147; unsigned t76148; struct w49 t76149; struct w49 t76150; struct p10717 *t76151; struct w49 t76152; struct w49 t76153; struct w12224 t76154; struct w49 t76155; struct w49 t76156; struct w49 t76157; struct w49 t76158; struct w49 t76159; struct p10716 *t76160; struct w12224 t76161; struct w11873 t76162; struct w12224 t76163; struct w49 t76164; struct p10716 *t76165; struct w12224 t76166; struct w49 t76167; struct w49 t76168; char *t76169; char *t76170; struct w49 t76171; struct w49 t76172; struct w16638 t76173; struct w16638 t76174; struct w49 t76175; struct w49 t76176; struct w49 t76177; struct w49 t76178; struct w16638 t76179; struct w16638 t76180; struct w49 t76181; struct w12224 t76182; struct w227671 t76183; struct w49 t76184; struct w49 t76185; struct w49 t76186; struct w16638 t76187; struct w16638 t76188; struct w49 t76189; struct w49 t76190; struct w12224 t76191; struct w49 t76192; struct w49 t76193; struct w49 t76194; struct w49 t76195; struct w49 t76196; struct p10716 *t76197; struct p10716 *t76198; struct w49 t76199; struct w49 t76200; unsigned t76201; struct structure_type27745 *t76202; struct w49 t76203; int t76204; struct w49 t76205; struct structure_type24753 *t76206; struct structure_type24753 *t76207; struct structure_type24753 *t76208; struct structure_type24753 *t76209; struct structure_type24753 *t76210; struct structure_type24753 *t76211; struct structure_type24753 *t76212; struct structure_type24753 *t76213; struct structure_type24753 *t76214; struct structure_type24753 *t76215; struct structure_type24753 *t76216; struct structure_type24753 *t76217; struct structure_type24753 *t76218; struct structure_type24753 *t76219; struct structure_type24753 *t76220; struct structure_type24753 *t76221; struct structure_type24753 *t76222; struct structure_type24753 *t76223; struct structure_type24753 *t76224; struct structure_type24753 *t76225; struct structure_type24753 *t76226; struct structure_type24753 *t76227; struct structure_type24753 *t76228; struct structure_type24753 *t76229; struct structure_type24753 *t76230; struct structure_type24753 *t76231; struct structure_type24753 *t76232; struct structure_type24753 *t76233; struct structure_type24753 *t76234; struct structure_type24753 *t76235; struct structure_type24753 *t76236; struct structure_type24753 *t76237; struct structure_type24753 *t76238; struct structure_type24753 *t76239; struct structure_type24753 *t76240; struct structure_type24753 *t76241; struct structure_type24753 *t76242; struct structure_type24753 *t76243; struct structure_type24753 *t76244; struct structure_type24753 *t76245; struct structure_type24753 *t76246; struct structure_type24753 *t76247; struct structure_type24753 *t76248; struct structure_type24753 *t76249; struct structure_type24753 *t76250; struct structure_type24753 *t76251; struct structure_type24753 *t76252; struct structure_type24753 *t76253; struct structure_type24753 *t76254; struct structure_type24753 *t76255; struct structure_type24753 *t76256; struct structure_type24753 *t76257; struct structure_type24753 *t76258; struct structure_type24753 *t76259; struct structure_type24753 *t76260; struct structure_type24753 *t76261; struct structure_type24753 *t76262; struct structure_type24753 *t76263; struct structure_type24753 *t76264; struct structure_type24753 *t76265; struct structure_type24753 *t76266; struct structure_type24753 *t76267; struct structure_type24753 *t76268; unsigned t76269; struct w49 t76270; struct w49 t76271; struct w49 t76272; struct w49 t76273; struct w49 t76274; struct structure_type24753 *t76275; struct w49 t76276; struct w49 t76277; struct w49 t76278; struct w49 t76279; struct w11873 t76280; struct w49 t76281; struct w49 t76282; struct w49 t76283; struct w49 t76284; struct w49 t76285; struct w49 t76286; struct w11873 t76287; struct w11873 t76288; struct w49 t76289; struct w49 t76290; unsigned t76291; struct w49 t76292; struct w49 t76293; struct p11674 *t76294; struct p7708 *t76295; struct w49 t76296; char *t76297; struct w49 t76298; struct p7708 *t76299; struct w49 t76300; char *t76301; struct w49 t76302; struct p7708 *t76303; struct w49 t76304; char *t76305; struct w49 t76306; struct p7708 *t76307; struct w49 t76308; char *t76309; struct w49 t76310; struct w49 t76311; struct w49 t76312; struct p11674 *t76313; struct p11674 *t76314; struct w49 t76315; struct w49 t76316; struct p11674 *t76317; struct w49 t76318; struct w49 t76319; struct w49 t76320; struct w49 t76321; struct w49 t76322; struct structure_type27745 *t76323; struct structure_type27745 *t76324; struct w49 t76325; struct p11674 *t76326; struct p11674 *t76327; struct w49 t76328; struct w211045 t76329; struct w49 t76330; struct w49 t76331; struct w49 t76332; struct p11674 *t76333; struct p11674 *t76334; struct p11674 *t76335; struct w49 t76336; struct w211045 t76337; struct w49 t76338; struct w49 t76339; struct w49 t76340; struct p11674 *t76341; struct w49 t76342; struct w211045 t76343; struct w49 t76344; struct w49 t76345; struct w49 t76346; struct p11674 *t76347; struct p11674 *t76348; struct w49 t76349; struct w211045 t76350; struct w49 t76351; struct w49 t76352; struct w49 t76353; struct p11674 *t76354; struct p11674 *t76355; struct w49 t76356; struct w211045 t76357; struct w49 t76358; struct w49 t76359; struct w49 t76360; struct w49 t76361; struct w49 t76362; struct w49 t76363; struct w49 t76364; struct w49 t76365; struct w49 t76366; struct w49 t76367; struct w49 t76368; struct w49 t76369; struct w49 t76370; struct w49 t76371; struct w49 t76372; struct w49 t76373; struct w49 t76374; struct w49 t76375; struct w49 t76376; struct w49 t76377; struct w49 t76378; struct w49 t76379; struct w49 t76380; struct w49 t76381; struct w49 t76382; struct w49 t76383; struct w49 t76384; struct w49 t76385; struct w49 t76386; struct w49 t76387; struct w49 t76388; struct w49 t76389; struct w49 t76390; struct w49 t76391; struct w49 t76392; struct w49 t76393; char *t76394; struct w49 t76395; struct w49 t76396; struct w49 t76397; struct w49 t76398; struct w49 t76399; struct w49 t76400; char *t76401; struct w49 t76402; struct w49 t76403; struct w49 t76404; char *t76405; struct w49 t76406; char *t76407; struct w49 t76408; unsigned t76409; struct w49 t76410; struct w49 t76411; struct p10724 *t76412; struct w49 t76413; struct w49 t76414; struct w12224 t76415; struct w49 t76416; struct w49 t76417; struct w49 t76418; struct w49 t76419; struct w49 t76420; struct p10716 *t76421; struct w12224 t76422; struct w11873 t76423; struct w12224 t76424; struct w49 t76425; struct p10716 *t76426; struct w12224 t76427; struct w49 t76428; struct w49 t76429; char *t76430; char *t76431; struct w49 t76432; struct w49 t76433; struct w16638 t76434; struct w16638 t76435; struct w49 t76436; struct w49 t76437; struct w49 t76438; struct w49 t76439; struct w16638 t76440; struct w16638 t76441; struct w49 t76442; struct w12224 t76443; struct w227671 t76444; struct w49 t76445; struct w49 t76446; struct w49 t76447; struct w16638 t76448; struct w16638 t76449; struct w49 t76450; struct w49 t76451; struct w12224 t76452; struct w49 t76453; struct w49 t76454; struct w49 t76455; struct w49 t76456; struct w49 t76457; struct p10716 *t76458; struct p10716 *t76459; struct w49 t76460; struct w49 t76461; unsigned t76462; struct structure_type27745 *t76463; struct w49 t76464; int t76465; struct w49 t76466; struct structure_type24753 *t76467; struct structure_type24753 *t76468; struct structure_type24753 *t76469; struct structure_type24753 *t76470; struct structure_type24753 *t76471; struct structure_type24753 *t76472; struct structure_type24753 *t76473; struct structure_type24753 *t76474; struct structure_type24753 *t76475; struct structure_type24753 *t76476; struct structure_type24753 *t76477; struct structure_type24753 *t76478; struct structure_type24753 *t76479; struct structure_type24753 *t76480; struct structure_type24753 *t76481; struct structure_type24753 *t76482; struct structure_type24753 *t76483; struct structure_type24753 *t76484; struct structure_type24753 *t76485; struct structure_type24753 *t76486; struct structure_type24753 *t76487; struct structure_type24753 *t76488; struct structure_type24753 *t76489; struct structure_type24753 *t76490; struct structure_type24753 *t76491; struct structure_type24753 *t76492; struct structure_type24753 *t76493; struct structure_type24753 *t76494; struct structure_type24753 *t76495; struct structure_type24753 *t76496; struct structure_type24753 *t76497; struct structure_type24753 *t76498; struct structure_type24753 *t76499; struct structure_type24753 *t76500; struct structure_type24753 *t76501; struct structure_type24753 *t76502; struct structure_type24753 *t76503; struct structure_type24753 *t76504; struct structure_type24753 *t76505; struct structure_type24753 *t76506; struct structure_type24753 *t76507; struct structure_type24753 *t76508; struct structure_type24753 *t76509; struct structure_type24753 *t76510; struct structure_type24753 *t76511; struct structure_type24753 *t76512; struct structure_type24753 *t76513; struct structure_type24753 *t76514; struct structure_type24753 *t76515; struct structure_type24753 *t76516; struct structure_type24753 *t76517; struct structure_type24753 *t76518; struct structure_type24753 *t76519; struct structure_type24753 *t76520; struct structure_type24753 *t76521; struct structure_type24753 *t76522; struct structure_type24753 *t76523; struct structure_type24753 *t76524; struct structure_type24753 *t76525; struct structure_type24753 *t76526; struct structure_type24753 *t76527; struct structure_type24753 *t76528; struct structure_type24753 *t76529; unsigned t76530; struct w49 t76531; struct w49 t76532; struct w49 t76533; struct w49 t76534; struct w49 t76535; struct structure_type24753 *t76536; struct w49 t76537; struct w49 t76538; struct w49 t76539; struct w49 t76540; struct w11873 t76541; struct w49 t76542; struct w49 t76543; struct w49 t76544; struct w49 t76545; struct w49 t76546; struct w49 t76547; struct w11873 t76548; struct w11873 t76549; struct w49 t76550; struct w49 t76551; struct p11674 *t76552; struct w49 t76553; struct w49 t76554; struct w49 t76555; struct structure_type27745 *t76556; struct structure_type27745 *t76557; struct structure_type27745 *t76558; char *t76559; struct structure_type27745 *t76560; struct w49 t76561; struct w49 t76562; struct w49 t76563; char *t76564; struct p11674 *t76565; struct w49 t76566; struct w49 t76567; struct w49 t76568; struct structure_type27745 *t76569; struct structure_type27745 *t76570; struct structure_type27745 *t76571; char *t76572; struct structure_type27745 *t76573; struct structure_type27745 *t76574; char *t76575; struct structure_type27745 *t76576; struct w49 t76577; struct w49 t76578; struct w49 t76579; char *t76580; struct p7708 *t76581; struct w49 t76582; char *t76583; struct w49 t76584; unsigned t76585; struct w49 t76586; struct w49 t76587; struct p11938 *t76588; struct p11938 *t76589; struct w49 t76590; struct w211045 t76591; struct w49 t76592; struct w49 t76593; struct w49 t76594; struct p7708 *t76595; struct w49 t76596; char *t76597; struct w49 t76598; unsigned t76599; struct w49 t76600; struct w49 t76601; struct p11938 *t76602; struct p11938 *t76603; struct w49 t76604; struct w211045 t76605; struct w49 t76606; struct w49 t76607; struct w49 t76608; struct p7708 *t76609; struct w49 t76610; char *t76611; struct w49 t76612; unsigned t76613; struct w49 t76614; struct w49 t76615; struct p11938 *t76616; struct p11938 *t76617; struct w49 t76618; struct w211045 t76619; struct w49 t76620; struct w49 t76621; struct w49 t76622; struct p7708 *t76623; struct w49 t76624; char *t76625; struct w49 t76626; unsigned t76627; struct w49 t76628; struct w49 t76629; struct p11938 *t76630; struct p11938 *t76631; struct w49 t76632; struct w211045 t76633; struct w49 t76634; struct w49 t76635; struct w49 t76636; struct w49 t76637; struct w49 t76638; unsigned t76639; struct w49 t76640; struct w49 t76641; struct p11938 *t76642; struct w49 t76643; struct structure_type24753 *t76644; struct w3457 t76645; struct structure_type27745 *t76646; struct w3457 t76647; struct w49 t76648; struct w49 t76649; struct w49 t76650; struct p7708 *t76651; struct w49 t76652; char *t76653; struct w49 t76654; unsigned t76655; struct w49 t76656; struct w49 t76657; struct p11938 *t76658; struct p11938 *t76659; struct w49 t76660; struct w211045 t76661; struct w49 t76662; struct w49 t76663; struct w49 t76664; struct p7717 *t76665; struct w49 t76666; struct w49 t76667; struct w49 t76668; struct w49 t76669; struct w49 t76670; struct w49 t76671; struct p16427 *t76672; struct structure_type27501 *t76673; struct w49 t76674; struct w49 t76675; struct w12218 t76676; struct w49 t76677; struct w11873 t76678; struct w49 t76679; struct w49 t76680; struct w49 t76681; struct w49 t76682; struct w49 t76683; struct w49 t76684; struct w49 t76685; struct w49 t76686; struct w49 t76687; struct structure_type27501 *t76688; struct w11873 t76689; struct w49 t76690; struct w49 t76691; struct w49 t76692; struct w49 t76693; struct w49 t76694; struct w49 t76695; struct w49 t76696; struct p7717 *t76697; struct w49 t76698; struct w49 t76699; struct w49 t76700; struct w49 t76701; struct w49 t76702; struct w49 t76703; struct p16411 *t76704; struct structure_type27501 *t76705; struct w49 t76706; struct w49 t76707; struct w12218 t76708; struct w11873 t76709; struct w49 t76710; struct w49 t76711; struct w49 t76712; struct w49 t76713; struct w49 t76714; struct w49 t76715; struct w49 t76716; struct w11873 t76717; struct w49 t76718; struct w49 t76719; struct w49 t76720; struct w49 t76721; struct w49 t76722; struct w49 t76723; struct w49 t76724; struct w49 t76725; int t76726; int t76727; struct w49 t76728; struct w49 t76729; struct w49 t76730; struct w49 t76731; struct p17666 *t76732; struct p17666 *t76733; struct w49 t76734; struct w211045 t76735; struct w49 t76736; struct p17797 *t76737; struct p17797 *t76738; struct w49 t76739; struct w211045 t76740; struct w49 t76741; struct p17777 *t76742; struct p17777 *t76743; struct w49 t76744; struct w211045 t76745; unsigned t76746; struct w49 t76747; struct structure_type24753 *t76748; struct structure_type27650 *t76749; struct structure_type27745 *t76750; struct w12224 t76751; struct w49 t76752; struct structure_type27650 *t76753; struct structure_type27858 *t76754; struct structure_type24753 *t76755; struct w49 t76756; struct structure_type27745 *t76757; struct structure_type27745 *t76758; struct structure_type27745 *t76759; char *t76760; struct structure_type27745 *t76761; struct p17853 *t76762; struct p17853 *t76763; struct structure_type27650 *t76764; struct p17853 *t76765; struct structure_type27501 *t76767; struct w49 t76768; struct w49 t76769; struct w12218 t76770; struct structure_type27501 *t76771; struct structure_type27745 *t76772; struct w49 t76773; struct structure_type24753 *t76774; struct structure_type27650 *t76775; struct w49 t76776; struct structure_type27501 *t76777; struct w12218 t76778; struct w49 t76779; struct w49 t76780; struct structure_type24753 *t76781; struct w49 t76782; struct structure_type27501 *t76783; struct w49 t76784; struct structure_type27745 *t76785; struct structure_type27745 *t76786; struct structure_type27745 *t76787; char *t76788; struct structure_type27745 *t76789; struct structure_type27650 *t76790; struct structure_type27858 *t76791; struct structure_type24753 *t76792; struct w49 t76793; struct structure_type27745 *t76794; struct structure_type27745 *t76795; struct w49 t76796; struct p17777 *t76797; struct structure_type27501 *t76798; struct w49 t76799; struct w49 t76800; struct w12218 t76801; struct w49 t76802; struct w49 t76803; struct w49 t76804; struct p17797 *t76805; struct structure_type27501 *t76806; struct w49 t76807; struct w49 t76808; struct w12218 t76809; struct w49 t76810; struct w49 t76811; struct w49 t76812; struct structure_type27501 *t76813; struct w49 t76814; struct w49 t76815; struct w49 t76816; unsigned t76817; struct w49 t76818; struct w49 t76819; struct p11938 *t76820; struct w49 t76821; struct structure_type24753 *t76822; struct w3457 t76823; struct structure_type27745 *t76824; struct w3457 t76825; struct structure_type27745 *t76826; char *t76827; struct structure_type27745 *t76828; struct w49 t76829; struct w49 t76830; struct w49 t76831; struct w49 t76832; struct w49 t76833; unsigned t76834; struct w49 t76835; struct w49 t76836; struct p11938 *t76837; struct w49 t76838; struct structure_type24753 *t76839; struct w3457 t76840; struct structure_type27745 *t76841; struct w3457 t76842; struct structure_type27745 *t76843; char *t76844; struct structure_type27745 *t76845; struct w49 t76846; struct w49 t76847; struct w49 t76848; struct w49 t76849; struct w49 t76850; unsigned t76851; struct w49 t76852; struct w49 t76853; struct p11938 *t76854; struct w49 t76855; struct structure_type24753 *t76856; struct w3457 t76857; struct structure_type27745 *t76858; struct w3457 t76859; struct structure_type27745 *t76860; char *t76861; struct structure_type27745 *t76862; struct w49 t76863; struct w49 t76864; struct w49 t76865; struct w49 t76866; struct w49 t76867; unsigned t76868; struct w49 t76869; struct w49 t76870; struct p11938 *t76871; struct w49 t76872; struct structure_type24753 *t76873; struct w3457 t76874; struct structure_type27745 *t76875; struct w3457 t76876; struct structure_type27745 *t76877; char *t76878; struct structure_type27745 *t76879; struct w49 t76880; struct w49 t76881; struct w49 t76882; struct w49 t76883; struct w49 t76884; unsigned t76885; struct w49 t76886; struct w49 t76887; struct p11674 *t76888; struct w49 t76889; struct w49 t76890; struct w49 t76891; struct structure_type27745 *t76892; struct structure_type27745 *t76893; struct structure_type27745 *t76894; char *t76895; struct structure_type27745 *t76896; struct w49 t76897; struct w49 t76898; struct w49 t76899; unsigned t76900; struct w49 t76901; struct w49 t76902; struct p11674 *t76903; struct w49 t76904; struct w49 t76905; struct w49 t76906; struct structure_type27745 *t76907; struct structure_type27745 *t76908; struct structure_type27745 *t76909; char *t76910; struct structure_type27745 *t76911; struct w49 t76912; struct w49 t76913; struct w49 t76914; unsigned t76915; struct w49 t76916; struct w49 t76917; struct p11674 *t76918; struct w49 t76919; struct w49 t76920; struct w49 t76921; struct structure_type27745 *t76922; struct structure_type27745 *t76923; struct structure_type27745 *t76924; char *t76925; struct structure_type27745 *t76926; struct w49 t76927; struct w49 t76928; struct w49 t76929; unsigned t76930; struct w49 t76931; struct w49 t76932; struct p11674 *t76933; struct p11674 *t76934; struct w49 t76935; struct w49 t76936; struct w49 t76937; struct w49 t76938; struct w49 t76939; struct w49 t76940; struct structure_type27745 *t76941; struct structure_type27745 *t76942; struct structure_type27745 *t76943; char *t76944; struct structure_type27745 *t76945; struct w49 t76946; struct w49 t76947; struct w49 t76948; unsigned t76949; struct w49 t76950; struct w49 t76951; struct p11674 *t76952; struct p11674 *t76953; struct w49 t76954; struct w49 t76955; struct w49 t76956; struct w49 t76957; struct w49 t76958; struct w49 t76959; struct structure_type27745 *t76960; struct structure_type27745 *t76961; struct structure_type27745 *t76962; char *t76963; struct structure_type27745 *t76964; struct w49 t76965; struct w49 t76966; struct w49 t76967; unsigned t76968; struct w49 t76969; struct w49 t76970; struct p11938 *t76971; struct w49 t76972; struct structure_type24753 *t76973; struct w3457 t76974; struct structure_type27745 *t76975; struct w3457 t76976; struct structure_type27745 *t76977; char *t76978; struct structure_type27745 *t76979; struct w49 t76980; struct w49 t76981; struct w49 t76982; struct p7736 *t76983; struct w49 t76984; int t76985; struct p10704 *t76986; struct w49 t76987; struct w49 t76988; struct w49 t76989; unsigned t76990; struct w49 t76991; struct w49 t76992; int t76993; struct p7736 *t76994; struct w49 t76995; int t76996; struct p7738 *t76997; int t76998; int t76999; struct w49 t77000; struct p10680 *t77001; struct p10680 *t77002; struct p10663 *t77003; struct w49 t77004; struct w49 t77005; struct w49 t77006; struct w49 t77007; struct w49 t77008; struct w49 t77009; struct w49 t77010; struct w49 t77011; struct w49 t77012; struct w49 t77013; struct w49 t77014; struct w49 t77015; struct w49 t77016; struct w49 t77017; struct w49 t77018; struct w49 t77019; struct w49 t77020; struct w49 t77021; struct w49 t77022; struct p7717 *t77023; struct w49 t77024; struct w49 t77025; struct w49 t77026; struct w49 t77027; struct w49 t77028; struct w49 t77029; struct p16422 *t77030; struct p16422 *t77031; struct w49 t77032; struct w49 t77033; struct w11873 t77034; struct w49 t77035; struct w49 t77036; struct w49 t77037; struct w49 t77038; struct w49 t77039; struct w49 t77040; struct w49 t77041; struct w49 t77042; unsigned t77043; struct p7717 *t77044; struct w49 t77045; struct w49 t77046; struct w49 t77047; struct w49 t77048; struct w49 t77049; struct w49 t77050; struct p16405 *t77051; struct p16405 *t77052; unsigned t77053; struct w49 t77054; struct w211045 t77055; struct w11873 t77056; struct w49 t77057; struct w49 t77058; struct w49 t77059; struct w49 t77060; struct w49 t77061; struct w49 t77062; struct w49 t77063; struct w12224 t77064; struct w49 t77065; struct w49 t77066; struct w49 t77067; struct w30215 t77068; struct w49 t77069; struct w228484 t77070; int t77071; struct w49 t77072; struct w49 t77073; struct w49 t77074; struct w49 t77075; struct w49 t77076; struct w49 t77077; struct w49 t77078; struct w49 t77079; struct w49 t77080; struct w49 t77081; struct w49 t77082; struct w49 t77083; struct w49 t77084; unsigned t77085; struct w49 t77086; struct w49 t77087; struct w49 t77088; struct w49 t77089; struct w49 t77090; unsigned t77091; struct w49 t77092; struct w49 t77093; struct w49 t77094; struct w49 t77095; struct w49 t77096; struct p16639 *t77097; unsigned t77098; struct structure_type27779 *t77099; struct w49 t77100; struct w49 t77101; struct w49 t77102; struct w49 t77103; struct w49 t77104; struct w49 t77105; struct w49 t77106; struct w49 t77107; struct w49 t77108; int t77109; int t77110; int t77111; struct structure_type24753 *t77112; struct w49 t77113; struct w49 t77114; struct w49 t77115; struct w49 t77116; struct w49 t77117; struct w49 t77118; struct w49 t77119; int t77120; int t77121; int t77122; struct structure_type24753 *t77123; struct w49 t77124; struct w49 t77125; struct w49 t77126; struct w49 t77127; struct w49 t77128; struct p17698 *t77129; unsigned t77130; struct structure_type27908 *t77131; struct w49 t77132; struct w49 t77133; struct w49 t77134; struct w49 t77135; struct w49 t77136; struct structure_type27908 *t77137; struct w49 t77138; struct structure_type27908 *t77139; struct structure_type27908 *t77140; struct structure_type27908 *t77141; struct w49 t77142; struct w49 t77143; unsigned t77144; int t77145; struct structure_type27908 *t77146; struct w21193 t77147; struct w49 t77148; struct w49 t77149; struct w49 t77150; struct w49 t77151; char *t77152; struct w49 t77153; struct structure_type27908 *t77154; struct w49 t77155; struct structure_type27908 *t77156; struct w49 t77157; struct structure_type27908 *t77158; struct w49 t77159; struct structure_type27908 *t77160; struct w49 t77161; char *t77162; unsigned t77163; int t77164; char *t77165; int t77166; struct w49 t77167; char *t77168; unsigned t77169; int t77170; char *t77171; int t77172; char *t77173; struct w49 t77174; struct w49 t77175; struct w49 t77176; struct w49 t77177; char *t77178; struct w49 t77179; struct w49 t77180; struct w49 t77181; struct w49 t77182; struct w49 t77183; struct w49 t77184; struct w49 t77185; char *t77186; struct structure_type27501 *t77187; struct w49 t77188; struct w49 t77189; struct w12218 t77190; struct w49 t77191; struct w49 t77192; struct w49 t77193; struct w49 t77194; struct w49 t77195; struct w49 t77196; struct w49 t77197; struct w49 t77198; struct w49 t77199; struct w49 t77200; struct w49 t77201; struct w49 t77202; int t77203; int t77204; int t77205; struct structure_type24753 *t77206; struct w49 t77207; struct w49 t77208; struct w49 t77209; struct w49 t77210; struct w49 t77211; int t77212; int t77213; int t77214; struct structure_type24753 *t77215; struct w49 t77216; struct w49 t77217; struct w49 t77218; struct w49 t77219; struct w49 t77220; int t77221; int t77222; int t77223; struct structure_type24753 *t77224; struct w49 t77225; struct w49 t77226; struct w49 t77227; struct w49 t77228; struct p17792 *t77229; struct w49 t77230; struct w49 t77231; struct w49 t77232; struct w49 t77233; struct w49 t77234; struct w49 t77235; struct w49 t77236; struct w49 t77237; struct w49 t77238; struct w49 t77239; struct w49 t77240; int t77241; int t77242; int t77243; struct structure_type24753 *t77244; struct w49 t77245; struct w49 t77246; struct w49 t77247; struct w49 t77248; struct w49 t77249; int t77250; int t77251; int t77252; struct structure_type24753 *t77253; struct w49 t77254; struct w49 t77255; struct w49 t77256; struct w49 t77257; struct w49 t77258; int t77259; int t77260; int t77261; struct structure_type24753 *t77262; struct w49 t77263; struct w49 t77264; struct w49 t77265; struct w49 t77266; struct p17765 *t77267; unsigned t77268; struct w49 t77269; struct w211045 t77270; struct w49 t77271; struct w49 t77272; struct w49 t77273; struct w49 t77274; struct w49 t77275; struct w49 t77276; struct structure_type27657 *t77277; struct structure_type27657 *t77278; struct p8173 *t77279; struct structure_type27657 *t77280; struct structure_type27657 *t77281; struct structure_type27657 *t77282; struct p10646 *e10646; struct p10650 *e10650; struct p10663 *e10663; struct p10704 *e10704; struct p11818 *e11818; struct p16342 *e16342; struct p16364 *e16364; struct p16377 *e16377; struct p16405 *e16405; struct p16421 *e16421; struct p16422 *e16422; struct p16438 *e16438; struct p16450 *e16450; struct p16461 *e16461; struct p16462 *e16462; struct p16603 *e16603; struct p16615 *e16615; struct p16626 *e16626; struct p16639 *e16639; struct p16653 *e16653; struct p16666 *e16666; struct p16688 *e16688; struct p16710 *e16710; struct p16726 *e16726; struct p16743 *e16743; struct p16754 *e16754; struct p16765 *e16765; struct p16776 *e16776; struct p16787 *e16787; struct p16811 *e16811; struct p16834 *e16834; struct p16848 *e16848; struct p16864 *e16864; struct p16892 *e16892; struct p16920 *e16920; struct p16961 *e16961; struct p17002 *e17002; struct p17045 *e17045; struct p17072 *e17072; struct p17105 *e17105; struct p17138 *e17138; struct p17171 *e17171; struct p17204 *e17204; struct p17215 *e17215; struct p17231 *e17231; struct p17247 *e17247; struct p17261 *e17261; struct p17280 *e17280; struct p17299 *e17299; struct p17318 *e17318; struct p17337 *e17337; struct p17349 *e17349; struct p17361 *e17361; struct p17373 *e17373; struct p17385 *e17385; struct p17397 *e17397; struct p17409 *e17409; struct p17421 *e17421; struct p17444 *e17444; struct p17456 *e17456; struct p17477 *e17477; struct p17495 *e17495; struct p17509 *e17509; struct p17520 *e17520; struct p17529 *e17529; struct p17539 *e17539; struct p17550 *e17550; struct p17585 *e17585; struct p17604 *e17604; struct p17617 *e17617; struct p17646 *e17646; struct p17657 *e17657; struct p17698 *e17698; struct p17724 *e17724; struct p17750 *e17750; struct p17765 *e17765; struct p17777 *e17777; struct p17792 *e17792; struct p17797 *e17797; struct p17812 *e17812; struct p17829 *e17829; struct p17845 *e17845; struct p17905 *e17905; struct p17917 *e17917; struct p17928 *e17928; struct p17940 *e17940; struct p17970 *e17970; struct p17980 *e17980; struct p17991 *e17991; struct p18002 *e18002; struct p18012 *e18012; struct p18019 *e18019; struct p18047 *e18047; struct p18058 *e18058; struct p18067 *e18067; struct p18076 *e18076; struct p18085 *e18085; struct p18094 *e18094; struct p18101 *e18101; struct p18108 *e18108; struct p18115 *e18115; struct p18125 *e18125; struct p18141 *e18141; struct p8173 *p8177; struct p8173 *p8178; struct p10617 *p10618; struct p10641 *p10642; struct p10641 *p10643; struct p10641 *p10644; struct p10641 *p10645; struct p10641 *p10646; struct p10646 *p10647; struct p10646 *p10648; struct p10646 *p10650; struct p10641 *p10659; struct p10641 *p10662; struct p10641 *p10663; struct p10663 *p10664; struct p10663 *p10666; struct p10663 *p10667; struct p10663 *p10668; struct p10663 *p10670; struct p10663 *p10675; struct p10663 *p10677; struct p10663 *p10678; struct p10663 *p10679; struct p10680 *p10686; struct p10680 *p10687; struct p10680 *p10688; struct p10641 *p10693; struct p10641 *p10694; struct p10641 *p10695; struct p10641 *p10697; struct p10641 *p10700; struct p10641 *p10702; struct p10641 *p10703; struct p10641 *p10704; struct p10704 *p10705; struct p10704 *p10706; struct p10704 *p10707; struct p10641 *p10709; struct p10641 *p10712; struct p10724 *p10726; struct p10724 *p10727; struct p10716 *p10728; struct p10716 *p10729; struct p10716 *p10730; struct p10717 *p10736; struct p10717 *p10737; struct p10716 *p10738; struct p10716 *p10739; struct p10716 *p10740; struct p11674 *p11705; struct p11674 *p11706; struct p11674 *p11707; struct p11674 *p11708; struct p11674 *p11709; struct p11674 *p11710; struct p11674 *p11712; struct p11674 *p11713; struct p11674 *p11714; struct p11674 *p11715; struct p11674 *p11717; struct p11674 *p11718; struct p11674 *p11719; struct p11674 *p11720; struct p11674 *p11722; struct p11674 *p11723; struct p11674 *p11725; struct p11674 *p11726; struct p11674 *p11727; struct p11674 *p11729; struct p11674 *p11730; struct p11674 *p11732; struct p11674 *p11738; struct p11674 *p11739; struct p11674 *p11744; struct p11674 *p11745; struct p11793 *p11794; struct p11793 *p11795; struct p11793 *p11796; struct p11793 *p11797; struct p11793 *p11798; struct p11793 *p11799; struct p11793 *p11804; struct p11793 *p11805; struct p11793 *p11806; struct p11793 *p11807; struct p11793 *p11808; struct p11793 *p11810; struct p11793 *p11811; struct p11793 *p11812; struct p11793 *p11813; struct p11793 *p11814; struct p11793 *p11817; struct p11793 *p11818; struct p11818 *p11819; struct p11818 *p11820; struct p11818 *p11821; struct p11793 *p11822; struct p11793 *p11823; struct p11818 *p11825; struct p11818 *p11826; struct p11818 *p11827; struct p11818 *p11829; struct p11818 *p11833; struct p11818 *p11834; struct p11818 *p11839; struct p11818 *p11844; struct p11793 *p11846; struct p11793 *p11847; struct p11793 *p11848; struct p11793 *p11849; struct p11793 *p11852; struct p11793 *p11853; struct p11938 *p11944; struct p11938 *p11945; struct p11938 *p11946; struct p11938 *p11947; struct p11938 *p11954; struct p11938 *p11955; struct p11938 *p11961; struct p11938 *p11962; struct p11938 *p11963; struct p11938 *p11964; struct p11938 *p11971; struct p11938 *p11972; struct p11938 *p11973; struct p11938 *p11974; struct p11938 *p11981; struct p11938 *p11982; struct p11938 *p11983; struct p11938 *p11984; struct p11938 *p11991; struct p11938 *p11992; struct p11938 *p11993; struct p11938 *p11994; struct p12026 *p12027; struct p12026 *p12038; struct p16314 *p16315; struct p16314 *p16316; struct p16321 *p16322; struct p16321 *p16323; struct p16328 *p16329; struct p16328 *p16330; struct p16335 *p16336; struct p16335 *p16337; struct p16342 *p16343; struct p16342 *p16344; struct p16347 *p16348; struct p16347 *p16349; struct p16347 *p16350; struct p16347 *p16351; struct p16355 *p16356; struct p16355 *p16357; struct p16364 *p16365; struct p16364 *p16366; struct p16377 *p16378; struct p16405 *p16406; struct p16405 *p16407; struct p16405 *p16408; struct p16405 *p16409; struct p16411 *p16412; struct p16411 *p16413; struct p16421 *p16422; struct p16422 *p16423; struct p16422 *p16424; struct p16422 *p16425; struct p16427 *p16428; struct p16427 *p16429; struct p16438 *p16439; struct p16438 *p16440; struct p16450 *p16451; struct p16450 *p16452; struct p16461 *p16462; struct p16462 *p16463; struct p16462 *p16464; struct p16462 *p16465; struct p16462 *p16466; struct p16461 *p16476; struct p16461 *p16478; struct p16462 *p16481; struct p16462 *p16482; struct p16462 *p16483; struct p16462 *p16484; struct p16603 *p16604; struct p16603 *p16605; struct p16615 *p16616; struct p16615 *p16617; struct p16626 *p16627; struct p16639 *p16640; struct p16639 *p16641; struct p16639 *p16642; struct p16653 *p16654; struct p16653 *p16655; struct p16666 *p16667; struct p16666 *p16668; struct p16666 *p16669; struct p16666 *p16674; struct p16688 *p16689; struct p16688 *p16690; struct p16688 *p16691; struct p16688 *p16696; struct p16710 *p16711; struct p16710 *p16712; struct p16710 *p16714; struct p16710 *p16716; struct p16726 *p16727; struct p16726 *p16728; struct p16726 *p16729; struct p16726 *p16732; struct p16743 *p16744; struct p16743 *p16745; struct p16754 *p16755; struct p16754 *p16756; struct p16765 *p16766; struct p16765 *p16767; struct p16776 *p16777; struct p16776 *p16778; struct p16787 *p16788; struct p16787 *p16789; struct p16811 *p16812; struct p16811 *p16813; struct p16834 *p16835; struct p16834 *p16836; struct p16848 *p16849; struct p16848 *p16850; struct p16864 *p16865; struct p16864 *p16866; struct p16864 *p16869; struct p16864 *p16872; struct p16864 *p16876; struct p16892 *p16893; struct p16892 *p16894; struct p16892 *p16897; struct p16892 *p16900; struct p16892 *p16904; struct p16920 *p16921; struct p16920 *p16922; struct p16920 *p16923; struct p16920 *p16924; struct p16920 *p16927; struct p16920 *p16930; struct p16920 *p16934; struct p16961 *p16962; struct p16961 *p16963; struct p16961 *p16964; struct p16961 *p16965; struct p16961 *p16968; struct p16961 *p16971; struct p16961 *p16975; struct p17002 *p17003; struct p17002 *p17004; struct p17002 *p17007; struct p17002 *p17010; struct p17002 *p17014; struct p17045 *p17046; struct p17045 *p17047; struct p17045 *p17050; struct p17045 *p17053; struct p17072 *p17073; struct p17072 *p17074; struct p17072 *p17078; struct p17072 *p17080; struct p17105 *p17106; struct p17105 *p17107; struct p17105 *p17111; struct p17105 *p17113; struct p17138 *p17139; struct p17138 *p17140; struct p17138 *p17144; struct p17138 *p17146; struct p17171 *p17172; struct p17171 *p17173; struct p17171 *p17177; struct p17171 *p17179; struct p17204 *p17205; struct p17215 *p17216; struct p17231 *p17232; struct p17247 *p17248; struct p17261 *p17262; struct p17261 *p17263; struct p17261 *p17265; struct p17261 *p17267; struct p17280 *p17281; struct p17280 *p17282; struct p17280 *p17284; struct p17280 *p17286; struct p17299 *p17300; struct p17299 *p17301; struct p17299 *p17303; struct p17299 *p17305; struct p17318 *p17319; struct p17318 *p17320; struct p17318 *p17322; struct p17318 *p17324; struct p17337 *p17338; struct p17349 *p17350; struct p17361 *p17362; struct p17373 *p17374; struct p17385 *p17386; struct p17397 *p17398; struct p17409 *p17410; struct p17421 *p17422; struct p17421 *p17423; struct p17444 *p17445; struct p17456 *p17457; struct p17456 *p17458; struct p17456 *p17459; struct p17456 *p17461; struct p17477 *p17478; struct p17477 *p17479; struct p17477 *p17480; struct p17477 *p17482; struct p17495 *p17496; struct p17509 *p17510; struct p17509 *p17511; struct p17520 *p17521; struct p17529 *p17530; struct p17539 *p17540; struct p17539 *p17541; struct p17550 *p17551; struct p17550 *p17552; struct p17585 *p17586; struct p17604 *p17605; struct p17604 *p17606; struct p17617 *p17618; struct p17617 *p17619; struct p17646 *p17647; struct p17646 *p17648; struct p17657 *p17658; struct p17657 *p17659; struct p17666 *p17668; struct p17666 *p17669; struct p17666 *p17670; struct p17698 *p17699; struct p17698 *p17700; struct p17698 *p17701; struct p17724 *p17725; struct p17750 *p17751; struct p17750 *p17752; struct p17765 *p17766; struct p17765 *p17767; struct p17765 *p17768; struct p17765 *p17769; struct p17776 *p17777; struct p17777 *p17778; struct p17777 *p17779; struct p17777 *p17780; struct p17792 *p17793; struct p17792 *p17794; struct p17796 *p17797; struct p17797 *p17798; struct p17797 *p17799; struct p17797 *p17800; struct p17812 *p17813; struct p17812 *p17814; struct p17829 *p17830; struct p17829 *p17831; struct p17845 *p17846; struct p17845 *p17847; struct p17853 *p17860; struct p17853 *p17861; struct p17853 *p17862; struct p17853 *p17863; struct p17853 *p17864; struct p17905 *p17906; struct p17905 *p17907; struct p17917 *p17918; struct p17917 *p17919; struct p17928 *p17929; struct p17940 *p17941; struct p17970 *p17971; struct p17970 *p17972; struct p17980 *p17981; struct p17980 *p17982; struct p17991 *p17992; struct p17991 *p17993; struct p18002 *p18003; struct p18002 *p18004; struct p18012 *p18013; struct p18019 *p18020; struct p18047 *p18048; struct p18047 *p18049; struct p18058 *p18059; struct p18067 *p18068; struct p18076 *p18077; struct p18085 *p18086; struct p18094 *p18095; struct p18101 *p18102; struct p18108 *p18109; struct p18115 *p18116; struct p18115 *p18117; struct p18125 *p18126; struct p18125 *p18127; struct p18141 *p18142; h8176: /* x69912 stalin.sc:3380:115176 */ /* x69890 stalin.sc:3380:115182 */ if (a21829==((struct structure_type27657 *)FALSE_TYPE)) goto l13095; /* x69909 */ /* x69908 */ t73931 = p8176; p8177 = t73931; /* x69907 */ /* x69901 stalin.sc:3381:115190 */ /* x69900 stalin.sc:3381:115193 */ /* x69899 stalin.sc:3381:115219 */ t77277 = a21829; /* x69898 stalin.sc:3381:115194 */ a37273 = t77277; /* x281761 */ /* x281760 */ t77278 = a37273; /* x281759 */ t73938 = t77278->s0; /* x69897 stalin.sc:3381:115191 */ t73937 = p8177->a21825; switch (t73937.tag) {case NATIVE_PROCEDURE_TYPE15116: a25652 = t73938; /* x126959 stalin.sc:15481:540589 */ /* x126707 stalin.sc:15481:540596 */ /* x126706 stalin.sc:15481:540608 */ t73939 = a25652; /* x126705 stalin.sc:15481:540597 */ if (f7677(t73939)==FALSE_TYPE) goto l13097; /* x126711 */ /* x126710 */ /* x126709 stalin.sc:15481:540611 */ /* x126708 stalin.sc:15481:540629 */ a1202 = TRUE_TYPE; goto l13098; l13097: /* x126958 */ /* x126714 stalin.sc:15482:540637 */ /* x126713 stalin.sc:15482:540649 */ t73940 = a25652; /* x126712 stalin.sc:15482:540638 */ if (f7678(t73940)==FALSE_TYPE) goto l13100; /* x126718 */ /* x126717 */ /* x126716 stalin.sc:15482:540652 */ /* x126715 stalin.sc:15482:540670 */ a1202 = TRUE_TYPE; goto l13101; l13100: /* x126957 */ /* x126721 stalin.sc:15483:540678 */ /* x126720 stalin.sc:15483:540691 */ t73941 = a25652; /* x126719 stalin.sc:15483:540679 */ if (f7679(t73941)==FALSE_TYPE) goto l13103; /* x126725 */ /* x126724 */ /* x126723 stalin.sc:15483:540694 */ /* x126722 stalin.sc:15483:540712 */ a1202 = TRUE_TYPE; goto l13104; l13103: /* x126956 */ /* x126728 stalin.sc:15484:540720 */ /* x126727 stalin.sc:15484:540732 */ t73942 = a25652; /* x126726 stalin.sc:15484:540721 */ if (f7682(t73942)==FALSE_TYPE) goto l13106; /* x126732 */ /* x126731 */ /* x126730 stalin.sc:15484:540735 */ /* x126729 stalin.sc:15484:540754 */ a1211 = TRUE_TYPE; goto l13107; l13106: /* x126955 */ /* x126735 stalin.sc:15485:540762 */ /* x126734 stalin.sc:15485:540776 */ t73943 = a25652; /* x126733 stalin.sc:15485:540763 */ if (f7683(t73943)==FALSE_TYPE) goto l13109; /* x126739 */ /* x126738 */ /* x126737 stalin.sc:15485:540779 */ /* x126736 stalin.sc:15485:540800 */ a1210 = TRUE_TYPE; goto l13110; l13109: /* x126954 */ /* x126742 stalin.sc:15486:540808 */ /* x126741 stalin.sc:15486:540822 */ t73944 = a25652; /* x126740 stalin.sc:15486:540809 */ if (f7684(t73944)==FALSE_TYPE) goto l13112; /* x126745 */ /* x126744 */ /* x126743 stalin.sc:15486:540825 */ goto l13113; l13112: /* x126953 */ /* x126748 stalin.sc:15487:540832 */ /* x126747 stalin.sc:15487:540851 */ t73945 = a25652; /* x126746 stalin.sc:15487:540833 */ if (f7687(t73945)==FALSE_TYPE) goto l13115; /* x126751 */ /* x126750 */ /* x126749 stalin.sc:15487:540854 */ goto l13116; l13115: /* x126952 */ /* x126754 stalin.sc:15488:540861 */ /* x126753 stalin.sc:15488:540879 */ t73946 = a25652; /* x126752 stalin.sc:15488:540862 */ if (f7700(t73946)==FALSE_TYPE) goto l13118; /* x126763 */ /* x126762 */ /* x126761 */ /* x126760 stalin.sc:15489:540885 */ /* x126759 stalin.sc:15489:540895 */ t73987 = "stdio"; /* x126758 stalin.sc:15489:540886 */ t73988.tag = STRING_TYPE; t73988.value.string_type = t73987; f18320(t73988); /* x126757 */ /* x126756 stalin.sc:15490:540914 */ /* x126755 stalin.sc:15490:540934 */ a1205 = TRUE_TYPE; goto l13119; l13118: /* x126951 */ /* x126766 stalin.sc:15491:540942 */ /* x126765 stalin.sc:15491:540961 */ t73947 = a25652; /* x126764 stalin.sc:15491:540943 */ if (f7701(t73947)==FALSE_TYPE) goto l13121; /* x126775 */ /* x126774 */ /* x126773 */ /* x126772 stalin.sc:15492:540967 */ /* x126771 stalin.sc:15492:540977 */ t73985 = "stdio"; /* x126770 stalin.sc:15492:540968 */ t73986.tag = STRING_TYPE; t73986.value.string_type = t73985; f18320(t73986); /* x126769 */ /* x126768 stalin.sc:15493:540996 */ /* x126767 stalin.sc:15493:541016 */ a1205 = TRUE_TYPE; goto l13122; l13121: /* x126950 */ /* x126778 stalin.sc:15494:541024 */ /* x126777 stalin.sc:15494:541042 */ t73948 = a25652; /* x126776 stalin.sc:15494:541025 */ if (f7702(t73948)==FALSE_TYPE) goto l13124; /* x126782 */ /* x126781 */ /* x126780 stalin.sc:15494:541045 */ /* x126779 stalin.sc:15494:541063 */ a1202 = TRUE_TYPE; goto l13125; l13124: /* x126949 */ /* x126785 stalin.sc:15495:541071 */ /* x126784 stalin.sc:15495:541086 */ t73949 = a25652; /* x126783 stalin.sc:15495:541072 */ if (f7703(t73949)==FALSE_TYPE) goto l13127; /* x126789 */ /* x126788 */ /* x126787 stalin.sc:15495:541089 */ /* x126786 stalin.sc:15495:541109 */ a1207 = TRUE_TYPE; goto l13128; l13127: /* x126948 */ /* x126792 stalin.sc:15496:541117 */ /* x126791 stalin.sc:15496:541140 */ t73950 = a25652; /* x126790 stalin.sc:15496:541118 */ a38307 = t73950; /* x285897 */ /* x285896 */ t73951 = a38307; /* x285895 */ if (!((t73951.tag)==STRUCTURE_TYPE27776)) goto l13130; /* x126796 */ /* x126795 */ /* x126794 stalin.sc:15496:541143 */ /* x126793 stalin.sc:15496:541161 */ a1202 = TRUE_TYPE; goto l13131; l13130: /* x126947 */ /* x126799 stalin.sc:15497:541169 */ /* x126798 stalin.sc:15497:541192 */ t73952 = a25652; /* x126797 stalin.sc:15497:541170 */ a38264 = t73952; /* x285725 */ /* x285724 */ t73953 = a38264; /* x285723 */ if (!((t73953.tag)==STRUCTURE_TYPE27779)) goto l13133; /* x126803 */ /* x126802 */ /* x126801 stalin.sc:15497:541195 */ /* x126800 stalin.sc:15497:541215 */ a1206 = TRUE_TYPE; goto l13134; l13133: /* x126946 */ /* x126806 stalin.sc:15498:541223 */ /* x126805 stalin.sc:15498:541250 */ t73954 = a25652; /* x126804 stalin.sc:15498:541224 */ a38195 = t73954; /* x285449 */ /* x285448 */ t73955 = a38195; /* x285447 */ if (!((t73955.tag)==STRUCTURE_TYPE27753)) goto l13136; /* x126810 */ /* x126809 */ /* x126808 stalin.sc:15498:541253 */ /* x126807 stalin.sc:15498:541271 */ a1202 = TRUE_TYPE; goto l13137; l13136: /* x126945 */ /* x126813 stalin.sc:15499:541279 */ /* x126812 stalin.sc:15499:541303 */ t73956 = a25652; /* x126811 stalin.sc:15499:541280 */ a38044 = t73956; /* x284845 */ /* x284844 */ t73957 = a38044; /* x284843 */ if (!((t73957.tag)==STRUCTURE_TYPE27756)) goto l13139; /* x126825 */ /* x126824 */ /* x126823 stalin.sc:15500:541309 */ /* x126816 stalin.sc:15500:541313 */ /* x126815 stalin.sc:15500:541326 */ t73983 = a25652; /* x126814 stalin.sc:15500:541314 */ if (f8793(t73983)==FALSE_TYPE) goto l13181; /* x126818 stalin.sc:15501:541336 */ /* x126817 stalin.sc:15501:541354 */ a1202 = TRUE_TYPE; goto l13182; l13181: /* x126822 stalin.sc:15502:541365 */ /* x126820 stalin.sc:15502:541399 */ t73984 = a25652; /* x126821 stalin.sc:15502:541401 */ /* x126819 stalin.sc:15502:541366 */ f7300(t73984); l13182: goto l13140; l13139: /* x126944 */ /* x126828 stalin.sc:15503:541410 */ /* x126827 stalin.sc:15503:541435 */ t73958 = a25652; /* x126826 stalin.sc:15503:541411 */ a37939 = t73958; /* x284425 */ /* x284424 */ t73959 = a37939; /* x284423 */ if (!((t73959.tag)==STRUCTURE_TYPE27750)) goto l13142; /* x126832 */ /* x126831 */ /* x126830 stalin.sc:15503:541438 */ /* x126829 stalin.sc:15503:541456 */ a1202 = TRUE_TYPE; goto l13143; l13142: /* x126943 */ /* x126835 stalin.sc:15504:541464 */ /* x126834 stalin.sc:15504:541484 */ t73960 = a25652; /* x126833 stalin.sc:15504:541465 */ a37849 = t73960; /* x284065 */ /* x284064 */ t73961 = a37849; /* x284063 */ if (!((t73961.tag)==STRUCTURE_TYPE27858)) goto l13145; /* x126854 */ /* x126853 */ /* x126852 stalin.sc:15505:541490 */ /* x126838 stalin.sc:15505:541497 */ /* x126837 stalin.sc:15505:541510 */ t73980 = a25652; /* x126836 stalin.sc:15505:541498 */ if (f8793(t73980)==FALSE_TYPE) goto l13178; /* x126842 */ /* x126841 */ /* x126840 stalin.sc:15505:541513 */ /* x126839 stalin.sc:15505:541531 */ a1202 = TRUE_TYPE; goto l13179; l13178: /* x126851 */ /* x126850 */ /* x126849 */ /* x126848 stalin.sc:15506:541544 */ /* x126847 stalin.sc:15506:541554 */ t73981 = "setjmp"; /* x126846 stalin.sc:15506:541545 */ t73982.tag = STRING_TYPE; t73982.value.string_type = t73981; f18320(t73982); /* x126845 */ /* x126844 stalin.sc:15507:541581 */ /* x126843 stalin.sc:15507:541603 */ a1204 = TRUE_TYPE; l13179: goto l13146; l13145: /* x126942 */ /* x126857 stalin.sc:15508:541613 */ /* x126856 stalin.sc:15508:541627 */ t73962 = a25652; /* x126855 stalin.sc:15508:541614 */ a37742 = t73962; /* x283637 */ /* x283636 */ t73963 = a37742; /* x283635 */ if (!((t73963.tag)==STRUCTURE_TYPE27673)) goto l13148; /* x126861 */ /* x126860 */ /* x126859 stalin.sc:15508:541630 */ /* x126858 stalin.sc:15508:541650 */ a1206 = TRUE_TYPE; goto l13149; l13148: /* x126941 */ /* x126864 stalin.sc:15509:541658 */ /* x126863 stalin.sc:15509:541675 */ t73964 = a25652; /* x126862 stalin.sc:15509:541659 */ a37673 = t73964; /* x283361 */ /* x283360 */ t73965 = a37673; /* x283359 */ if (!((t73965.tag)==STRUCTURE_TYPE27769)) goto l13151; /* x126888 */ /* x126887 */ /* x126886 stalin.sc:15510:541681 */ /* x126867 stalin.sc:15510:541688 */ /* x126866 stalin.sc:15510:541701 */ t73977 = a25652; /* x126865 stalin.sc:15510:541689 */ if (f8793(t73977)==FALSE_TYPE) goto l13172; /* x126871 */ /* x126870 */ /* x126869 stalin.sc:15510:541704 */ /* x126868 stalin.sc:15510:541722 */ a1202 = TRUE_TYPE; goto l13173; l13172: /* x126885 */ /* x126884 */ /* x126883 stalin.sc:15511:541735 */ /* x126874 stalin.sc:15511:541743 */ /* x126873 stalin.sc:15511:541770 */ t73978 = a25652; /* x126872 stalin.sc:15511:541744 */ if (f7429(t73978)==FALSE_TYPE) goto l13175; /* x126876 */ /* x126875 */ goto l13176; l13175: /* x126882 */ /* x126881 */ /* x126880 stalin.sc:15512:541782 */ /* x126878 stalin.sc:15512:541809 */ t73979 = a25652; /* x126879 stalin.sc:15512:541811 */ /* x126877 stalin.sc:15512:541783 */ f7445(t73979); l13176: l13173: goto l13152; l13151: /* x126940 */ /* x126891 stalin.sc:15513:541822 */ /* x126890 stalin.sc:15513:541843 */ t73966 = a25652; /* x126889 stalin.sc:15513:541823 */ a37529 = t73966; /* x282785 */ /* x282784 */ t73967 = a37529; /* x282783 */ if (!((t73967.tag)==STRUCTURE_TYPE27761)) goto l13154; /* x126903 */ /* x126902 */ /* x126901 stalin.sc:15514:541849 */ /* x126894 stalin.sc:15514:541853 */ /* x126893 stalin.sc:15514:541878 */ t73975 = a25652; /* x126892 stalin.sc:15514:541854 */ if (f7754(t73975)==FALSE_TYPE) goto l13169; /* x126896 stalin.sc:15515:541888 */ /* x126895 stalin.sc:15515:541909 */ a1203 = TRUE_TYPE; goto l13170; l13169: /* x126900 stalin.sc:15516:541920 */ /* x126898 stalin.sc:15516:541951 */ t73976 = a25652; /* x126899 stalin.sc:15516:541953 */ /* x126897 stalin.sc:15516:541921 */ f7495(t73976); l13170: goto l13155; l13154: /* x126939 */ /* x126906 stalin.sc:15517:541962 */ /* x126905 stalin.sc:15517:541986 */ t73968 = a25652; /* x126904 stalin.sc:15517:541963 */ a37413 = t73968; /* x282321 */ /* x282320 */ t73969 = a37413; /* x282319 */ if (!((t73969.tag)==STRUCTURE_TYPE27669)) goto l13157; /* x126918 */ /* x126917 */ /* x126916 stalin.sc:15518:541992 */ /* x126909 stalin.sc:15518:541998 */ /* x126908 stalin.sc:15518:542023 */ t73974 = a25652; /* x126907 stalin.sc:15518:541999 */ if (f7754(t73974)==FALSE_TYPE) goto l13166; /* x126913 */ /* x126912 */ /* x126911 stalin.sc:15519:542030 */ /* x126910 stalin.sc:15519:542051 */ a1203 = TRUE_TYPE; goto l13167; l13166: /* x126915 stalin.sc:15518:541992 */ /* x126914 stalin.sc:15518:541992 */ l13167: goto l13158; l13157: /* x126938 */ /* x126921 stalin.sc:15520:542060 */ /* x126920 stalin.sc:15520:542084 */ t73970 = a25652; /* x126919 stalin.sc:15520:542061 */ a37316 = t73970; /* x281933 */ /* x281932 */ t73971 = a37316; /* x281931 */ if (!((t73971.tag)==STRUCTURE_TYPE27908)) goto l13160; /* x126933 */ /* x126932 */ /* x126931 stalin.sc:15521:542090 */ /* x126924 stalin.sc:15521:542096 */ /* x126923 stalin.sc:15521:542121 */ t73973 = a25652; /* x126922 stalin.sc:15521:542097 */ if (f7754(t73973)==FALSE_TYPE) goto l13163; /* x126928 */ /* x126927 */ /* x126926 stalin.sc:15522:542128 */ /* x126925 stalin.sc:15522:542149 */ a1203 = TRUE_TYPE; goto l13164; l13163: /* x126930 stalin.sc:15521:542090 */ /* x126929 stalin.sc:15521:542090 */ l13164: goto l13161; l13160: /* x126937 */ /* x126936 */ /* x126935 stalin.sc:15523:542163 */ /* x126934 stalin.sc:15523:542164 */ /* x295277 QobiScheme.sc:166:5314 */ /* x295276 QobiScheme.sc:166:5321 */ t73972 = "This shouldn\'t happen"; /* x295275 QobiScheme.sc:166:5315 */ stalin_panic(t73972); l13161: l13158: l13155: l13152: l13149: l13146: l13143: l13140: l13137: l13134: l13131: l13128: l13125: l13122: l13119: l13116: l13113: l13110: l13107: l13104: l13101: l13098: break; case NATIVE_PROCEDURE_TYPE16076: p12027 = t73937.value.native_procedure_type16076; a24277 = t73938; /* x107943 stalin.sc:11206:390317 */ /* x107929 stalin.sc:11206:390323 */ /* x107928 stalin.sc:11206:390327 */ /* x107927 stalin.sc:11206:390350 */ t73989 = a24277; /* x107926 stalin.sc:11206:390328 */ a19391 = t73989; /* x51187 */ /* x51186 */ t73990 = a19391; /* x51185 */ if ((t73990.tag)==STRUCTURE_TYPE27776) goto l13183; /* x107923 */ /* x107922 stalin.sc:11207:390361 */ /* x107921 stalin.sc:11207:390384 */ t73991 = a24277; /* x107920 stalin.sc:11207:390362 */ a38263 = t73991; /* x285721 */ /* x285720 */ t73992 = a38263; /* x285719 */ if ((t73992.tag)==STRUCTURE_TYPE27779) goto l13183; /* x107917 */ /* x107916 stalin.sc:11208:390395 */ /* x107915 stalin.sc:11208:390422 */ t73993 = a24277; /* x107914 stalin.sc:11208:390396 */ a38194 = t73993; /* x285445 */ /* x285444 */ t73994 = a38194; /* x285443 */ if ((t73994.tag)==STRUCTURE_TYPE27753) goto l13183; /* x107911 */ /* x107910 stalin.sc:11209:390433 */ /* x107909 stalin.sc:11209:390457 */ t73995 = a24277; /* x107908 stalin.sc:11209:390434 */ a38043 = t73995; /* x284841 */ /* x284840 */ t73996 = a38043; /* x284839 */ if ((t73996.tag)==STRUCTURE_TYPE27756) goto l13183; /* x107905 */ /* x107904 stalin.sc:11210:390468 */ /* x107903 stalin.sc:11210:390493 */ t73997 = a24277; /* x107902 stalin.sc:11210:390469 */ a37938 = t73997; /* x284421 */ /* x284420 */ t73998 = a37938; /* x284419 */ if ((t73998.tag)==STRUCTURE_TYPE27750) goto l13183; /* x107899 */ /* x107898 stalin.sc:11211:390504 */ /* x107897 stalin.sc:11211:390524 */ t73999 = a24277; /* x107896 stalin.sc:11211:390505 */ a37848 = t73999; /* x284061 */ /* x284060 */ t74000 = a37848; /* x284059 */ if ((t74000.tag)==STRUCTURE_TYPE27858) goto l13183; /* x107893 */ /* x107892 stalin.sc:11212:390535 */ /* x107891 stalin.sc:11212:390549 */ t74001 = a24277; /* x107890 stalin.sc:11212:390536 */ a37741 = t74001; /* x283633 */ /* x283632 */ t74002 = a37741; /* x283631 */ if ((t74002.tag)==STRUCTURE_TYPE27673) goto l13183; /* x107887 */ /* x107886 stalin.sc:11213:390560 */ /* x107885 stalin.sc:11213:390577 */ t74003 = a24277; /* x107884 stalin.sc:11213:390561 */ a37672 = t74003; /* x283357 */ /* x283356 */ t74004 = a37672; /* x283355 */ if ((t74004.tag)==STRUCTURE_TYPE27769) goto l13183; /* x107881 */ /* x107880 stalin.sc:11214:390588 */ /* x107879 stalin.sc:11214:390609 */ t74005 = a24277; /* x107878 stalin.sc:11214:390589 */ a37528 = t74005; /* x282781 */ /* x282780 */ t74006 = a37528; /* x282779 */ if ((t74006.tag)==STRUCTURE_TYPE27761) goto l13183; /* x107875 */ /* x107874 stalin.sc:11215:390620 */ /* x107873 stalin.sc:11215:390644 */ t74007 = a24277; /* x107872 stalin.sc:11215:390621 */ a37412 = t74007; /* x282317 */ /* x282316 */ t74008 = a37412; /* x282315 */ if ((t74008.tag)==STRUCTURE_TYPE27669) goto l13183; /* x107869 */ /* x107868 stalin.sc:11216:390679 */ t74009 = a24277; /* x107867 stalin.sc:11216:390656 */ a37315 = t74009; /* x281929 */ /* x281928 */ t74010 = a37315; /* x281927 */ if (!((t74010.tag)==STRUCTURE_TYPE27908)) goto l13184; l13183: /* x107940 */ /* x107939 */ t74011 = p12027; p12038 = t74011; /* x107938 stalin.sc:11217:390689 */ /* x107931 stalin.sc:11218:390745 */ t74012 = a24277; /* x107937 stalin.sc:11218:390747 */ /* x107933 stalin.sc:11218:390753 */ t74015 = p12038->a24276; /* x107936 stalin.sc:11218:390755 */ /* x107935 stalin.sc:11218:390799 */ t74017 = a24277; /* x107934 stalin.sc:11218:390756 */ t74016 = f7984(t74017); /* x269464 stalin.sc:11218:390748 */ t74013 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t74013==NULL) {backtrace("stalin.sc", 11218, 390747); out_of_memory_error();} t74013->s0 = t74015; t74013->s1 = *((struct w49 *)(&t74016)); /* x107930 stalin.sc:11217:390690 */ t74014 = t74013; f8008(t74012, t74014); goto l13185; l13184: /* x107942 stalin.sc:11206:390317 */ /* x107941 stalin.sc:11206:390317 */ l13185: break; case NATIVE_PROCEDURE_TYPE16186: f10932(t73938); break; case NATIVE_PROCEDURE_TYPE16630: a23873 = t73938; /* x103056 */ /* x103055 stalin.sc:10063:348498 */ /* x103048 stalin.sc:10063:348506 */ /* x103047 stalin.sc:10063:348518 */ t74018 = a23873; /* x103046 stalin.sc:10063:348507 */ if (f7849(t74018)==FALSE_TYPE) goto l13198; /* x103050 */ /* x103049 */ goto l13199; l13198: /* x103054 */ /* x103053 */ /* x103052 stalin.sc:10063:348521 */ /* x103051 stalin.sc:10063:348522 */ /* x295273 QobiScheme.sc:166:5314 */ /* x295272 QobiScheme.sc:166:5321 */ t74019 = "This shouldn\'t happen"; /* x295271 QobiScheme.sc:166:5315 */ stalin_panic(t74019); l13199: /* x103045 */ /* x103044 stalin.sc:10064:348540 */ /* x103037 stalin.sc:10064:348546 */ /* x103030 stalin.sc:10064:348551 */ /* x103043 stalin.sc:10064:348540 */ /* x103042 stalin.sc:10064:348540 */ break; case NATIVE_PROCEDURE_TYPE16818: p10642 = t73937.value.native_procedure_type16818; a23439 = t73938; /* x97340 stalin.sc:8967:305453 */ /* x96691 stalin.sc:8967:305459 */ /* x96690 stalin.sc:8967:305497 */ t74021 = a23439; /* x96689 stalin.sc:8967:305460 */ /* x96686 stalin.sc:8967:305489 */ t74022 = p10642->a23437; /* x96687 stalin.sc:8967:305492 */ t74023 = p10642->a23438; /* x96688 stalin.sc:8967:305494 */ t74024 = p10642->a23435; /* x96685 stalin.sc:8967:305461 */ t74020 = f7892(t74022, t74023, t74024); if ((t74020&3)==1) {if ((f7905(((struct p7892 *)(t74020-1)), t74021).tag)==FALSE_TYPE) goto l13201;} else if ((f7893(((struct p7892 *)t74020), t74021).tag)==FALSE_TYPE) goto l13201; /* x97337 */ /* x97336 */ t74025 = p10642; p10643 = t74025; /* x97335 stalin.sc:8968:305504 */ /* x96694 stalin.sc:8969:305516 */ /* x96693 stalin.sc:8969:305543 */ t74026 = a23439; /* x96692 stalin.sc:8969:305517 */ a38201 = t74026; /* x285473 */ /* x285472 */ t74027 = a38201; /* x285471 */ if (!((t74027.tag)==STRUCTURE_TYPE27753)) goto l13204; /* x96845 */ /* x96844 */ t74207 = p10643; p10644 = t74207; /* x96843 */ /* x96842 stalin.sc:8972:305698 */ /* x96835 stalin.sc:8972:305704 */ /* x96834 stalin.sc:8972:305708 */ /* x96833 stalin.sc:8972:305730 */ t75748 = p10644->a23435; /* x96832 stalin.sc:8972:305709 */ /* MOVE: branching squeezed to general */ if (t75748>=((struct structure_type27745 *)VALUE_OFFSET)) {t75749.tag = STRUCTURE_TYPE27745; t75749.value.structure_type27745 = t75748;} else t75749.tag = (unsigned)t75748; if (!(f8751(t75749)==FALSE_TYPE)) goto l13611; p10659 = p10644; /* x96829 */ /* x96828 stalin.sc:8972:305767 */ t75750 = p10659->a23435; /* x96827 stalin.sc:8972:305734 */ /* MOVE: branching squeezed to general */ if (t75750>=((struct structure_type27745 *)VALUE_OFFSET)) {t75751.tag = STRUCTURE_TYPE27745; t75751.value.structure_type27745 = t75750;} else t75751.tag = (unsigned)t75750; if (f8755(t75751)==FALSE_TYPE) goto l13612; l13611: /* x96839 */ /* x96838 */ /* x96837 stalin.sc:8973:305778 */ /* x96836 stalin.sc:8973:305779 */ /* x295393 QobiScheme.sc:166:5314 */ /* x295392 QobiScheme.sc:166:5321 */ t75752 = "This shouldn\'t happen"; /* x295391 QobiScheme.sc:166:5315 */ stalin_panic(t75752); goto l13613; l13612: /* x96841 stalin.sc:8972:305698 */ /* x96840 stalin.sc:8972:305698 */ l13613: /* x96824 */ t74208 = p10644; p10645 = t74208; /* x96823 stalin.sc:8974:305795 */ /* x96814 stalin.sc:8975:305849 */ /* x96809 stalin.sc:8975:305853 */ /* x96808 stalin.sc:8975:305865 */ t75740 = p10645->a23435; /* x96807 stalin.sc:8975:305854 */ /* MOVE: branching squeezed to general */ if (t75740>=((struct structure_type27745 *)VALUE_OFFSET)) {t75741.tag = STRUCTURE_TYPE27745; t75741.value.structure_type27745 = t75740;} else t75741.tag = (unsigned)t75740; if (f8944(t75741)==FALSE_TYPE) goto l13606; /* x96812 stalin.sc:8975:305868 */ /* x96811 stalin.sc:8975:305874 */ t75742 = p10645->a23437; /* x96810 stalin.sc:8975:305869 */ a35348 = t75742; /* x272749 */ /* x272748 */ t75743 = a35348; /* x272747 */ if (!((t75743.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29497]"); structure_ref_error();} t74210 = t75743.value.structure_type24753->s1; goto l13607; l13606: /* x96813 stalin.sc:8975:305878 */ t74210 = p10645->a23437; l13607: /* x96822 stalin.sc:8974:305805 */ /* x96817 stalin.sc:8974:305809 */ /* x96816 stalin.sc:8974:305821 */ t75744 = p10645->a23435; /* x96815 stalin.sc:8974:305810 */ /* MOVE: branching squeezed to general */ if (t75744>=((struct structure_type27745 *)VALUE_OFFSET)) {t75745.tag = STRUCTURE_TYPE27745; t75745.value.structure_type27745 = t75744;} else t75745.tag = (unsigned)t75744; if (f8944(t75745)==FALSE_TYPE) goto l13609; /* x96820 stalin.sc:8974:305824 */ /* x96819 stalin.sc:8974:305831 */ t75746 = p10645->a23437; /* x96818 stalin.sc:8974:305825 */ a35693 = t75746; /* x274129 */ /* x274128 */ t75747 = a35693; /* x274127 */ if (!((t75747.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29842]"); structure_ref_error();} t74211 = t75747.value.structure_type24753->s0; goto l13610; l13609: /* x96821 stalin.sc:8974:305835 */ t74211.tag = FALSE_TYPE; l13610: /* x96806 */ t74209 = p10645; p10646 = t74209; a23441 = t74210; a23442 = t74211; e10646 = (struct p10646 *)alloca(sizeof(struct p10646)); if (e10646==NULL) {backtrace_internal("[inside PROPAGATE-CALL! 10645]"); out_of_memory_error();} e10646->p10641 = p10646; e10646->a23441 = a23441; e10646->a23442 = a23442; /* x96805 */ /* x96804 stalin.sc:8976:305891 */ /* x96803 stalin.sc:8977:305923 */ /* x96779 stalin.sc:8977:305927 */ /* x96778 stalin.sc:8977:305939 */ t75738 = p10646->a23435; /* x96777 stalin.sc:8977:305928 */ /* MOVE: branching squeezed to general */ if (t75738>=((struct structure_type27745 *)VALUE_OFFSET)) {t75739.tag = STRUCTURE_TYPE27745; t75739.value.structure_type27745 = t75738;} else t75739.tag = (unsigned)t75738; if (f8944(t75739)==FALSE_TYPE) goto l13603; /* x96793 stalin.sc:8978:305946 */ t74235 = (unsigned)e10646; goto l13604; l13603: /* x96802 stalin.sc:8982:306091 */ t74235 = ((unsigned)p10646)+1; l13604: /* x96776 */ t74234 = e10646; p10650 = t74234; a23444 = t74235; sfp10650 = fp10650; e10650 = (struct p10650 *)alloca(sizeof(struct p10650)); if (e10650==NULL) {backtrace_internal("[inside PROPAGATE-CALL! 10646]"); out_of_memory_error();} e10650->p10646 = p10650; e10650->a23444 = a23444; /* x96775 stalin.sc:8989:306379 */ /* x96773 stalin.sc:8997:306686 */ t74237 = p10650->a23441; /* x96774 stalin.sc:8997:306689 */ t74238 = p10650->p10641->a23438; /* x96772 stalin.sc:8989:306380 */ /* x96737 stalin.sc:8992:306512 */ t75436 = p10650->p10641->a23435; /* x96738 stalin.sc:8992:306514 */ t75437 = a23439; /* x96739 stalin.sc:8992:306516 */ t75438 = e10650->a23444; /* x96770 */ t75439 = e10650; /* x96771 stalin.sc:8996:306680 */ t75440 = p10650->a23442; /* x96736 stalin.sc:8989:306381 */ /* x96735 stalin.sc:8990:306422 */ /* x96734 stalin.sc:8990:306427 */ /* x96732 stalin.sc:8990:306433 */ /* x96731 stalin.sc:8990:306464 */ t75736 = a23439; /* x96730 stalin.sc:8990:306434 */ a38179 = t75736; /* x285385 */ /* x285384 */ t75737 = a38179; /* x285383 */ if (!((t75737.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-NAME[5895] 33096]"); structure_ref_error();} t75733 = t75737.value.structure_type27753->s0; /* x96733 stalin.sc:8991:306475 */ t75734 = a789; /* x96729 stalin.sc:8990:306428 */ /* MOVE: branching squeezed to general */ if (t75734>=((struct structure_type24753 *)VALUE_OFFSET)) {t75735.tag = STRUCTURE_TYPE24753; t75735.value.structure_type24753 = t75734;} else t75735.tag = (unsigned)t75734; t75732 = f26354(t75733, t75735); /* x269714 stalin.sc:8990:306423 */ if (!((t75732.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 8990, 306422); structure_ref_error();} t75730 = t75732.value.structure_type24753->s1; /* x96727 stalin.sc:8989:306382 */ a27257 = t75730; /* x152915 */ /* x152914 */ t75731 = a27257; /* x152913 */ if (!((t75731.tag)==STRUCTURE_TYPE24757)) {backtrace_internal("PRIMITIVE-PROCEDURE-PROPAGATE-CALL![16216]"); structure_ref_error();} t75435 = t75731.value.structure_type24757->s4; switch (t75435) {case NATIVE_PROCEDURE_TYPE6022: a32166 = t75436; a32170 = t75440; if ((fp10650+sizeof(struct p18141))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p18141)>region_size) region_size = sizeof(struct p18141); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e18141 = (struct p18141 *)fp10650; fp10650 += sizeof(struct p18141)+((4-(sizeof(struct p18141)%4))&3); e18141->a32166 = a32166; e18141->a32170 = a32170; /* x169247 stalin.sc:24765:856183 */ /* x169246 stalin.sc:24766:856210 */ t75441 = e18141; /* x169229 stalin.sc:24765:856184 */ t75442.tag = NATIVE_PROCEDURE_TYPE23449; t75442.value.native_procedure_type23449 = t75441; t75443 = f16321(t75442); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75443; break; case NATIVE_PROCEDURE_TYPE6029: a32115 = t75436; a32119 = t75440; if ((fp10650+sizeof(struct p18125))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p18125)>region_size) region_size = sizeof(struct p18125); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e18125 = (struct p18125 *)fp10650; fp10650 += sizeof(struct p18125)+((4-(sizeof(struct p18125)%4))&3); e18125->a32115 = a32115; e18125->a32119 = a32119; /* x169017 stalin.sc:24692:853827 */ /* x169016 */ t75444 = e18125; /* x168981 stalin.sc:24692:853828 */ t75445.tag = NATIVE_PROCEDURE_TYPE23450; t75445.value.native_procedure_type23450 = t75444; t75446 = f16328(t75445); t74236.tag = NATIVE_PROCEDURE_TYPE22831; t74236.value.native_procedure_type22831 = t75446; break; case NATIVE_PROCEDURE_TYPE6035: a32072 = t75438; if ((fp10650+sizeof(struct p18115))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p18115)>region_size) region_size = sizeof(struct p18115); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e18115 = (struct p18115 *)fp10650; fp10650 += sizeof(struct p18115)+((4-(sizeof(struct p18115)%4))&3); e18115->a32072 = a32072; /* x168844 stalin.sc:24653:852633 */ /* x168843 */ t75447 = e18115; /* x168834 stalin.sc:24653:852634 */ t75448.tag = NATIVE_PROCEDURE_TYPE23447; t75448.value.native_procedure_type23447 = t75447; t75449 = f16321(t75448); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75449; break; case NATIVE_PROCEDURE_TYPE6041: a32031 = t75438; if ((fp10650+sizeof(struct p18108))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p18108)>region_size) region_size = sizeof(struct p18108); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e18108 = (struct p18108 *)fp10650; fp10650 += sizeof(struct p18108)+((4-(sizeof(struct p18108)%4))&3); e18108->a32031 = a32031; /* x168801 stalin.sc:24644:852363 */ /* x168800 stalin.sc:24644:852390 */ t75450 = e18108; /* x168796 stalin.sc:24644:852364 */ t75451.tag = NATIVE_PROCEDURE_TYPE23452; t75451.value.native_procedure_type23452 = t75450; t75452 = f16314(t75451); t74236.tag = NATIVE_PROCEDURE_TYPE23425; t74236.value.native_procedure_type23425 = t75452; break; case NATIVE_PROCEDURE_TYPE6047: a31990 = t75438; if ((fp10650+sizeof(struct p18101))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p18101)>region_size) region_size = sizeof(struct p18101); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e18101 = (struct p18101 *)fp10650; fp10650 += sizeof(struct p18101)+((4-(sizeof(struct p18101)%4))&3); e18101->a31990 = a31990; /* x168768 stalin.sc:24635:852135 */ /* x168767 stalin.sc:24635:852162 */ t75453 = e18101; /* x168763 stalin.sc:24635:852136 */ t75454.tag = NATIVE_PROCEDURE_TYPE23446; t75454.value.native_procedure_type23446 = t75453; t75455 = f16314(t75454); t74236.tag = NATIVE_PROCEDURE_TYPE23425; t74236.value.native_procedure_type23425 = t75455; break; case NATIVE_PROCEDURE_TYPE6053: a31949 = t75438; if ((fp10650+sizeof(struct p18094))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p18094)>region_size) region_size = sizeof(struct p18094); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e18094 = (struct p18094 *)fp10650; fp10650 += sizeof(struct p18094)+((4-(sizeof(struct p18094)%4))&3); e18094->a31949 = a31949; /* x168735 stalin.sc:24626:851902 */ /* x168734 stalin.sc:24626:851929 */ t75456 = e18094; /* x168730 stalin.sc:24626:851903 */ t75457.tag = NATIVE_PROCEDURE_TYPE23453; t75457.value.native_procedure_type23453 = t75456; t75458 = f16314(t75457); t74236.tag = NATIVE_PROCEDURE_TYPE23425; t74236.value.native_procedure_type23425 = t75458; break; case NATIVE_PROCEDURE_TYPE6059: a31905 = t75438; if ((fp10650+sizeof(struct p18085))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p18085)>region_size) region_size = sizeof(struct p18085); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e18085 = (struct p18085 *)fp10650; fp10650 += sizeof(struct p18085)+((4-(sizeof(struct p18085)%4))&3); e18085->a31905 = a31905; /* x168684 stalin.sc:24611:851529 */ /* x168683 stalin.sc:24611:851554 */ t75459 = e18085; /* x168679 stalin.sc:24611:851530 */ t75460.tag = NATIVE_PROCEDURE_TYPE23443; t75460.value.native_procedure_type23443 = t75459; t75461 = f16321(t75460); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75461; break; case NATIVE_PROCEDURE_TYPE6065: a31861 = t75438; if ((fp10650+sizeof(struct p18076))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p18076)>region_size) region_size = sizeof(struct p18076); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e18076 = (struct p18076 *)fp10650; fp10650 += sizeof(struct p18076)+((4-(sizeof(struct p18076)%4))&3); e18076->a31861 = a31861; /* x168628 stalin.sc:24596:851104 */ /* x168627 stalin.sc:24596:851129 */ t75462 = e18076; /* x168623 stalin.sc:24596:851105 */ t75463.tag = NATIVE_PROCEDURE_TYPE23444; t75463.value.native_procedure_type23444 = t75462; t75464 = f16321(t75463); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75464; break; case NATIVE_PROCEDURE_TYPE6071: a31817 = t75438; if ((fp10650+sizeof(struct p18067))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p18067)>region_size) region_size = sizeof(struct p18067); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e18067 = (struct p18067 *)fp10650; fp10650 += sizeof(struct p18067)+((4-(sizeof(struct p18067)%4))&3); e18067->a31817 = a31817; /* x168572 stalin.sc:24581:850678 */ /* x168571 stalin.sc:24581:850703 */ t75465 = e18067; /* x168567 stalin.sc:24581:850679 */ t75466.tag = NATIVE_PROCEDURE_TYPE23442; t75466.value.native_procedure_type23442 = t75465; t75467 = f16321(t75466); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75467; break; case NATIVE_PROCEDURE_TYPE6077: a31773 = t75438; if ((fp10650+sizeof(struct p18058))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p18058)>region_size) region_size = sizeof(struct p18058); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e18058 = (struct p18058 *)fp10650; fp10650 += sizeof(struct p18058)+((4-(sizeof(struct p18058)%4))&3); e18058->a31773 = a31773; /* x168516 stalin.sc:24565:850248 */ /* x168515 stalin.sc:24566:850275 */ t75468 = e18058; /* x168511 stalin.sc:24565:850249 */ t75469.tag = NATIVE_PROCEDURE_TYPE23445; t75469.value.native_procedure_type23445 = t75468; t75470 = f16321(t75469); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75470; break; case NATIVE_PROCEDURE_TYPE6083: a31730 = t75439; if ((fp10650+sizeof(struct p18047))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p18047)>region_size) region_size = sizeof(struct p18047); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e18047 = (struct p18047 *)fp10650; fp10650 += sizeof(struct p18047)+((4-(sizeof(struct p18047)%4))&3); e18047->a31730 = a31730; /* x168481 stalin.sc:24552:849805 */ /* x168480 */ t75471 = e18047; /* x168451 stalin.sc:24552:849806 */ t75472.tag = NATIVE_PROCEDURE_TYPE23437; t75472.value.native_procedure_type23437 = t75471; t75473 = f16321(t75472); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75473; break; case NATIVE_PROCEDURE_TYPE6089: /* x168399 stalin.sc:24538:849428 */ /* x168398 stalin.sc:24538:849453 */ /* x168396 stalin.sc:24538:849429 */ t75474.tag = NATIVE_PROCEDURE_TYPE23454; t75475 = f16321(t75474); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75475; break; case NATIVE_PROCEDURE_TYPE6095: /* x168326 stalin.sc:24514:848889 */ /* x168325 stalin.sc:24514:848915 */ /* x168323 stalin.sc:24514:848890 */ t75476.tag = NATIVE_PROCEDURE_TYPE23431; t75477 = f16328(t75476); t74236.tag = NATIVE_PROCEDURE_TYPE22831; t74236.value.native_procedure_type22831 = t75477; break; case NATIVE_PROCEDURE_TYPE6101: a31596 = t75438; if ((fp10650+sizeof(struct p18019))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p18019)>region_size) region_size = sizeof(struct p18019); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e18019 = (struct p18019 *)fp10650; fp10650 += sizeof(struct p18019)+((4-(sizeof(struct p18019)%4))&3); e18019->a31596 = a31596; /* x168287 stalin.sc:24505:848563 */ /* x168286 stalin.sc:24505:848590 */ t75478 = e18019; /* x168282 stalin.sc:24505:848564 */ t75479.tag = NATIVE_PROCEDURE_TYPE23432; t75479.value.native_procedure_type23432 = t75478; t75480 = f16314(t75479); t74236.tag = NATIVE_PROCEDURE_TYPE23425; t74236.value.native_procedure_type23425 = t75480; break; case NATIVE_PROCEDURE_TYPE6107: a31555 = t75438; if ((fp10650+sizeof(struct p18012))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p18012)>region_size) region_size = sizeof(struct p18012); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e18012 = (struct p18012 *)fp10650; fp10650 += sizeof(struct p18012)+((4-(sizeof(struct p18012)%4))&3); e18012->a31555 = a31555; /* x168254 stalin.sc:24496:848322 */ /* x168253 stalin.sc:24496:848349 */ t75481 = e18012; /* x168249 stalin.sc:24496:848323 */ t75482.tag = NATIVE_PROCEDURE_TYPE23424; t75482.value.native_procedure_type23424 = t75481; t75483 = f16314(t75482); t74236.tag = NATIVE_PROCEDURE_TYPE23425; t74236.value.native_procedure_type23425 = t75483; break; case NATIVE_PROCEDURE_TYPE6113: a31510 = t75438; if ((fp10650+sizeof(struct p18002))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p18002)>region_size) region_size = sizeof(struct p18002); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e18002 = (struct p18002 *)fp10650; fp10650 += sizeof(struct p18002)+((4-(sizeof(struct p18002)%4))&3); e18002->a31510 = a31510; /* x168204 stalin.sc:24479:847917 */ /* x168203 */ t75484 = e18002; /* x168194 stalin.sc:24479:847918 */ t75485.tag = NATIVE_PROCEDURE_TYPE23433; t75485.value.native_procedure_type23433 = t75484; t75486 = f16321(t75485); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75486; break; case NATIVE_PROCEDURE_TYPE6119: a31467 = t75439; if ((fp10650+sizeof(struct p17991))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17991)>region_size) region_size = sizeof(struct p17991); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17991 = (struct p17991 *)fp10650; fp10650 += sizeof(struct p17991)+((4-(sizeof(struct p17991)%4))&3); e17991->a31467 = a31467; /* x168164 stalin.sc:24466:847453 */ /* x168163 */ t75487 = e17991; /* x168134 stalin.sc:24466:847454 */ t75488.tag = NATIVE_PROCEDURE_TYPE23419; t75488.value.native_procedure_type23419 = t75487; t75489 = f16321(t75488); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75489; break; case NATIVE_PROCEDURE_TYPE6125: a31420 = t75438; if ((fp10650+sizeof(struct p17980))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17980)>region_size) region_size = sizeof(struct p17980); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17980 = (struct p17980 *)fp10650; fp10650 += sizeof(struct p17980)+((4-(sizeof(struct p17980)%4))&3); e17980->a31420 = a31420; /* x168055 stalin.sc:24445:846828 */ /* x168054 */ t75490 = e17980; /* x168045 stalin.sc:24445:846829 */ t75491.tag = NATIVE_PROCEDURE_TYPE23435; t75491.value.native_procedure_type23435 = t75490; t75492 = f16321(t75491); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75492; break; case NATIVE_PROCEDURE_TYPE6131: a31375 = t75438; if ((fp10650+sizeof(struct p17970))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17970)>region_size) region_size = sizeof(struct p17970); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17970 = (struct p17970 *)fp10650; fp10650 += sizeof(struct p17970)+((4-(sizeof(struct p17970)%4))&3); e17970->a31375 = a31375; /* x167978 stalin.sc:24425:846255 */ /* x167977 */ t75493 = e17970; /* x167968 stalin.sc:24425:846256 */ t75494.tag = NATIVE_PROCEDURE_TYPE23416; t75494.value.native_procedure_type23416 = t75493; t75495 = f16321(t75494); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75495; break; case NATIVE_PROCEDURE_TYPE6137: /* x167894 stalin.sc:24403:845642 */ /* x167893 stalin.sc:24403:845667 */ /* x167891 stalin.sc:24403:845643 */ t75496.tag = NATIVE_PROCEDURE_TYPE23418; t75497 = f16321(t75496); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75497; break; case NATIVE_PROCEDURE_TYPE6143: /* x167817 stalin.sc:24381:845022 */ /* x167816 stalin.sc:24381:845047 */ /* x167814 stalin.sc:24381:845023 */ t75498.tag = NATIVE_PROCEDURE_TYPE23414; t75499 = f16321(t75498); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75499; break; case NATIVE_PROCEDURE_TYPE6149: a31240 = t75438; if ((fp10650+sizeof(struct p17940))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17940)>region_size) region_size = sizeof(struct p17940); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17940 = (struct p17940 *)fp10650; fp10650 += sizeof(struct p17940)+((4-(sizeof(struct p17940)%4))&3); e17940->a31240 = a31240; /* x167638 stalin.sc:24337:843696 */ /* x167637 stalin.sc:24337:843721 */ t75500 = e17940; /* x167633 stalin.sc:24337:843697 */ t75501.tag = NATIVE_PROCEDURE_TYPE23415; t75501.value.native_procedure_type23415 = t75500; t75502 = f16321(t75501); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75502; break; case NATIVE_PROCEDURE_TYPE6155: a31193 = t75438; if ((fp10650+sizeof(struct p17928))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17928)>region_size) region_size = sizeof(struct p17928); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17928 = (struct p17928 *)fp10650; fp10650 += sizeof(struct p17928)+((4-(sizeof(struct p17928)%4))&3); e17928->a31193 = a31193; /* x167457 stalin.sc:24294:842395 */ /* x167456 stalin.sc:24294:842420 */ t75503 = e17928; /* x167452 stalin.sc:24294:842396 */ t75504.tag = NATIVE_PROCEDURE_TYPE23413; t75504.value.native_procedure_type23413 = t75503; t75505 = f16321(t75504); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75505; break; case NATIVE_PROCEDURE_TYPE6161: a31150 = t75439; if ((fp10650+sizeof(struct p17917))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17917)>region_size) region_size = sizeof(struct p17917); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17917 = (struct p17917 *)fp10650; fp10650 += sizeof(struct p17917)+((4-(sizeof(struct p17917)%4))&3); e17917->a31150 = a31150; /* x167422 stalin.sc:24280:841929 */ /* x167421 */ t75506 = e17917; /* x167392 stalin.sc:24280:841930 */ t75507.tag = NATIVE_PROCEDURE_TYPE23455; t75507.value.native_procedure_type23455 = t75506; t75508 = f16321(t75507); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75508; break; case NATIVE_PROCEDURE_TYPE6167: a31105 = t75439; if ((fp10650+sizeof(struct p17905))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17905)>region_size) region_size = sizeof(struct p17905); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17905 = (struct p17905 *)fp10650; fp10650 += sizeof(struct p17905)+((4-(sizeof(struct p17905)%4))&3); e17905->a31105 = a31105; /* x167357 stalin.sc:24267:841451 */ /* x167356 */ t75509 = e17905; /* x167327 stalin.sc:24267:841452 */ t75510.tag = NATIVE_PROCEDURE_TYPE23393; t75510.value.native_procedure_type23393 = t75509; t75511 = f16321(t75510); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75511; break; case NATIVE_PROCEDURE_TYPE6173: a31023 = t75436; a31027 = t75440; if ((fp10650+sizeof(struct p17845))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17845)>region_size) region_size = sizeof(struct p17845); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17845 = (struct p17845 *)fp10650; fp10650 += sizeof(struct p17845)+((4-(sizeof(struct p17845)%4))&3); e17845->a31023 = a31023; e17845->a31027 = a31027; /* x166686 stalin.sc:24107:836145 */ /* x166685 */ t75512 = e17845; /* x166638 stalin.sc:24107:836146 */ t75513.tag = NATIVE_PROCEDURE_TYPE23398; t75513.value.native_procedure_type23398 = t75512; t75514 = f16321(t75513); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75514; break; case NATIVE_PROCEDURE_TYPE6179: a30976 = t75436; a30980 = t75440; if ((fp10650+sizeof(struct p17829))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17829)>region_size) region_size = sizeof(struct p17829); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17829 = (struct p17829 *)fp10650; fp10650 += sizeof(struct p17829)+((4-(sizeof(struct p17829)%4))&3); e17829->a30976 = a30976; e17829->a30980 = a30980; /* x166431 */ t74236.tag = NATIVE_PROCEDURE_TYPE23388; t74236.value.native_procedure_type23388 = e17829; break; case NATIVE_PROCEDURE_TYPE6185: a30930 = t75439; if ((fp10650+sizeof(struct p17812))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17812)>region_size) region_size = sizeof(struct p17812); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17812 = (struct p17812 *)fp10650; fp10650 += sizeof(struct p17812)+((4-(sizeof(struct p17812)%4))&3); e17812->a30930 = a30930; /* x166262 stalin.sc:24022:833272 */ /* x166261 */ t75515 = e17812; /* x166232 stalin.sc:24022:833273 */ t75516.tag = NATIVE_PROCEDURE_TYPE23401; t75516.value.native_procedure_type23401 = t75515; t75517 = f16321(t75516); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75517; break; case NATIVE_PROCEDURE_TYPE6191: /* x166072 stalin.sc:23966:831961 */ /* x166071 stalin.sc:23967:831991 */ /* x166052 stalin.sc:23966:831962 */ t75518 = (struct p17698 *)NATIVE_PROCEDURE_TYPE23370; t75519 = f16335(t75518); t74236.tag = NATIVE_PROCEDURE_TYPE23196; t74236.value.native_procedure_type23196 = t75519; break; case NATIVE_PROCEDURE_TYPE6197: a30825 = t75438; if ((fp10650+sizeof(struct p17765))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17765)>region_size) region_size = sizeof(struct p17765); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17765 = (struct p17765 *)fp10650; fp10650 += sizeof(struct p17765)+((4-(sizeof(struct p17765)%4))&3); e17765->a30825 = a30825; /* x165908 stalin.sc:23909:830437 */ /* x165907 */ t75520 = e17765; /* x165850 stalin.sc:23909:830438 */ t75521.tag = NATIVE_PROCEDURE_TYPE23374; t75521.value.native_procedure_type23374 = t75520; t75522 = f16328(t75521); t74236.tag = NATIVE_PROCEDURE_TYPE22831; t74236.value.native_procedure_type22831 = t75522; break; case NATIVE_PROCEDURE_TYPE6203: a30779 = t75438; if ((fp10650+sizeof(struct p17750))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17750)>region_size) region_size = sizeof(struct p17750); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17750 = (struct p17750 *)fp10650; fp10650 += sizeof(struct p17750)+((4-(sizeof(struct p17750)%4))&3); e17750->a30779 = a30779; /* x165798 stalin.sc:23883:829652 */ /* x165797 */ t75523 = e17750; /* x165755 stalin.sc:23883:829653 */ t75524.tag = NATIVE_PROCEDURE_TYPE23360; t75524.value.native_procedure_type23360 = t75523; t75525 = f16321(t75524); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75525; break; case NATIVE_PROCEDURE_TYPE6209: a30724 = t75436; a30726 = t75438; if ((fp10650+sizeof(struct p17724))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17724)>region_size) region_size = sizeof(struct p17724); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17724 = (struct p17724 *)fp10650; fp10650 += sizeof(struct p17724)+((4-(sizeof(struct p17724)%4))&3); e17724->a30724 = a30724; e17724->a30726 = a30726; /* x165535 stalin.sc:23826:827896 */ /* x165534 stalin.sc:23827:827924 */ t75526 = e17724; /* x165518 stalin.sc:23826:827897 */ t75527.tag = NATIVE_PROCEDURE_TYPE23387; t75527.value.native_procedure_type23387 = t75526; t75528 = f16355(t75527); t74236.tag = NATIVE_PROCEDURE_TYPE22954; t74236.value.native_procedure_type22954 = t75528; break; case NATIVE_PROCEDURE_TYPE6215: a30669 = t75438; if ((fp10650+sizeof(struct p17698))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17698)>region_size) region_size = sizeof(struct p17698); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17698 = (struct p17698 *)fp10650; fp10650 += sizeof(struct p17698)+((4-(sizeof(struct p17698)%4))&3); e17698->a30669 = a30669; /* x165310 stalin.sc:23760:826180 */ /* x165309 stalin.sc:23761:826210 */ t75529 = e17698; /* x165291 stalin.sc:23760:826181 */ t75530 = t75529; t75531 = f16335(t75530); t74236.tag = NATIVE_PROCEDURE_TYPE23196; t74236.value.native_procedure_type23196 = t75531; break; case NATIVE_PROCEDURE_TYPE6221: a30599 = t75436; a30601 = t75438; if ((fp10650+sizeof(struct p17657))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17657)>region_size) region_size = sizeof(struct p17657); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17657 = (struct p17657 *)fp10650; fp10650 += sizeof(struct p17657)+((4-(sizeof(struct p17657)%4))&3); e17657->a30599 = a30599; e17657->a30601 = a30601; /* x164919 stalin.sc:23647:822938 */ /* x164907 stalin.sc:23648:822973 */ t75532 = e17657; /* x164918 stalin.sc:23655:823221 */ t75533 = e17657; /* x164898 stalin.sc:23647:822939 */ t75534 = ((unsigned)t75532)+1; t75535 = ((unsigned)t75533)+1; t75536 = f16347(t75534, t75535); t74236.tag = NATIVE_PROCEDURE_TYPE23132; t74236.value.native_procedure_type23132 = t75536; break; case NATIVE_PROCEDURE_TYPE6227: a30558 = t75439; if ((fp10650+sizeof(struct p17646))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17646)>region_size) region_size = sizeof(struct p17646); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17646 = (struct p17646 *)fp10650; fp10650 += sizeof(struct p17646)+((4-(sizeof(struct p17646)%4))&3); e17646->a30558 = a30558; /* x164865 stalin.sc:23634:822469 */ /* x164864 */ t75537 = e17646; /* x164835 stalin.sc:23634:822470 */ t75538.tag = NATIVE_PROCEDURE_TYPE23190; t75538.value.native_procedure_type23190 = t75537; t75539 = f16321(t75538); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75539; break; case NATIVE_PROCEDURE_TYPE6233: /* x164705 stalin.sc:23593:821514 */ /* x164704 stalin.sc:23593:821542 */ /* x164702 stalin.sc:23593:821515 */ t75540 = (struct p17698 *)NATIVE_PROCEDURE_TYPE23406; t75541 = f16335(t75540); t74236.tag = NATIVE_PROCEDURE_TYPE23196; t74236.value.native_procedure_type23196 = t75541; break; case NATIVE_PROCEDURE_TYPE6239: a30457 = t75438; if ((fp10650+sizeof(struct p17617))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17617)>region_size) region_size = sizeof(struct p17617); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17617 = (struct p17617 *)fp10650; fp10650 += sizeof(struct p17617)+((4-(sizeof(struct p17617)%4))&3); e17617->a30457 = a30457; /* x164592 stalin.sc:23555:820528 */ /* x164591 */ t75542 = e17617; /* x164569 stalin.sc:23555:820529 */ t75543.tag = NATIVE_PROCEDURE_TYPE23173; t75543.value.native_procedure_type23173 = t75542; t75544 = f16328(t75543); t74236.tag = NATIVE_PROCEDURE_TYPE22831; t74236.value.native_procedure_type22831 = t75544; break; case NATIVE_PROCEDURE_TYPE6245: a30411 = t75438; if ((fp10650+sizeof(struct p17604))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17604)>region_size) region_size = sizeof(struct p17604); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17604 = (struct p17604 *)fp10650; fp10650 += sizeof(struct p17604)+((4-(sizeof(struct p17604)%4))&3); e17604->a30411 = a30411; /* x164517 stalin.sc:23534:819952 */ /* x164516 */ t75545 = e17604; /* x164494 stalin.sc:23534:819953 */ t75546.tag = NATIVE_PROCEDURE_TYPE23180; t75546.value.native_procedure_type23180 = t75545; t75547 = f16321(t75546); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75547; break; case NATIVE_PROCEDURE_TYPE6251: a30356 = t75436; a30358 = t75438; if ((fp10650+sizeof(struct p17585))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17585)>region_size) region_size = sizeof(struct p17585); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17585 = (struct p17585 *)fp10650; fp10650 += sizeof(struct p17585)+((4-(sizeof(struct p17585)%4))&3); e17585->a30356 = a30356; e17585->a30358 = a30358; /* x164325 stalin.sc:23498:818860 */ /* x164324 stalin.sc:23499:818888 */ t75548 = e17585; /* x164316 stalin.sc:23498:818861 */ t75549.tag = NATIVE_PROCEDURE_TYPE23170; t75549.value.native_procedure_type23170 = t75548; t75550 = f16355(t75549); t74236.tag = NATIVE_PROCEDURE_TYPE22954; t74236.value.native_procedure_type22954 = t75550; break; case NATIVE_PROCEDURE_TYPE6257: a30286 = t75436; a30288 = t75438; if ((fp10650+sizeof(struct p17550))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17550)>region_size) region_size = sizeof(struct p17550); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17550 = (struct p17550 *)fp10650; fp10650 += sizeof(struct p17550)+((4-(sizeof(struct p17550)%4))&3); e17550->a30286 = a30286; e17550->a30288 = a30288; /* x163934 stalin.sc:23382:815681 */ /* x163925 stalin.sc:23383:815716 */ t75551 = e17550; /* x163933 stalin.sc:23384:815788 */ t75552 = e17550; /* x163917 stalin.sc:23382:815682 */ t75553 = (unsigned)t75551; t75554 = (unsigned)t75552; t75555 = f16347(t75553, t75554); t74236.tag = NATIVE_PROCEDURE_TYPE23132; t74236.value.native_procedure_type23132 = t75555; break; case NATIVE_PROCEDURE_TYPE6263: a30245 = t75439; if ((fp10650+sizeof(struct p17539))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17539)>region_size) region_size = sizeof(struct p17539); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17539 = (struct p17539 *)fp10650; fp10650 += sizeof(struct p17539)+((4-(sizeof(struct p17539)%4))&3); e17539->a30245 = a30245; /* x163884 stalin.sc:23369:815197 */ /* x163883 */ t75556 = e17539; /* x163854 stalin.sc:23369:815198 */ t75557.tag = NATIVE_PROCEDURE_TYPE23165; t75557.value.native_procedure_type23165 = t75556; t75558 = f16321(t75557); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75558; break; case NATIVE_PROCEDURE_TYPE6269: a30199 = t75438; if ((fp10650+sizeof(struct p17529))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17529)>region_size) region_size = sizeof(struct p17529); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17529 = (struct p17529 *)fp10650; fp10650 += sizeof(struct p17529)+((4-(sizeof(struct p17529)%4))&3); e17529->a30199 = a30199; /* x163764 stalin.sc:23345:814553 */ /* x163763 stalin.sc:23345:814578 */ t75559 = e17529; /* x163759 stalin.sc:23345:814554 */ t75560.tag = NATIVE_PROCEDURE_TYPE23189; t75560.value.native_procedure_type23189 = t75559; t75561 = f16321(t75560); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75561; break; case NATIVE_PROCEDURE_TYPE6275: a30155 = t75438; if ((fp10650+sizeof(struct p17520))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17520)>region_size) region_size = sizeof(struct p17520); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17520 = (struct p17520 *)fp10650; fp10650 += sizeof(struct p17520)+((4-(sizeof(struct p17520)%4))&3); e17520->a30155 = a30155; /* x163706 stalin.sc:23328:814119 */ /* x163705 stalin.sc:23328:814144 */ t75562 = e17520; /* x163701 stalin.sc:23328:814120 */ t75563.tag = NATIVE_PROCEDURE_TYPE23159; t75563.value.native_procedure_type23159 = t75562; t75564 = f16321(t75563); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75564; break; case NATIVE_PROCEDURE_TYPE6281: a30112 = t75439; if ((fp10650+sizeof(struct p17509))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17509)>region_size) region_size = sizeof(struct p17509); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17509 = (struct p17509 *)fp10650; fp10650 += sizeof(struct p17509)+((4-(sizeof(struct p17509)%4))&3); e17509->a30112 = a30112; /* x163671 stalin.sc:23315:813696 */ /* x163670 */ t75565 = e17509; /* x163641 stalin.sc:23315:813697 */ t75566.tag = NATIVE_PROCEDURE_TYPE23160; t75566.value.native_procedure_type23160 = t75565; t75567 = f16321(t75566); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75567; break; case NATIVE_PROCEDURE_TYPE6287: a30066 = t75438; if ((fp10650+sizeof(struct p17495))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17495)>region_size) region_size = sizeof(struct p17495); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17495 = (struct p17495 *)fp10650; fp10650 += sizeof(struct p17495)+((4-(sizeof(struct p17495)%4))&3); e17495->a30066 = a30066; /* x163520 stalin.sc:23289:812944 */ /* x163519 stalin.sc:23289:812969 */ t75568 = e17495; /* x163515 stalin.sc:23289:812945 */ t75569.tag = NATIVE_PROCEDURE_TYPE23158; t75569.value.native_procedure_type23158 = t75568; t75570 = f16321(t75569); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75570; break; case NATIVE_PROCEDURE_TYPE6293: a30021 = t75438; if ((fp10650+sizeof(struct p17477))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17477)>region_size) region_size = sizeof(struct p17477); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17477 = (struct p17477 *)fp10650; fp10650 += sizeof(struct p17477)+((4-(sizeof(struct p17477)%4))&3); e17477->a30021 = a30021; /* x163424 stalin.sc:23264:812202 */ /* x163423 */ t75571 = e17477; /* x163396 stalin.sc:23264:812203 */ t75572.tag = NATIVE_PROCEDURE_TYPE23407; t75572.value.native_procedure_type23407 = t75571; t75573 = f16321(t75572); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75573; break; case NATIVE_PROCEDURE_TYPE6299: a29972 = t75438; if ((fp10650+sizeof(struct p17456))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17456)>region_size) region_size = sizeof(struct p17456); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17456 = (struct p17456 *)fp10650; fp10650 += sizeof(struct p17456)+((4-(sizeof(struct p17456)%4))&3); e17456->a29972 = a29972; /* x163241 stalin.sc:23224:810996 */ /* x163240 */ t75574 = e17456; /* x163201 stalin.sc:23224:810997 */ t75575.tag = NATIVE_PROCEDURE_TYPE23140; t75575.value.native_procedure_type23140 = t75574; t75576 = f16328(t75575); t74236.tag = NATIVE_PROCEDURE_TYPE22831; t74236.value.native_procedure_type22831 = t75576; break; case NATIVE_PROCEDURE_TYPE6305: a29928 = t75438; if ((fp10650+sizeof(struct p17444))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17444)>region_size) region_size = sizeof(struct p17444); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17444 = (struct p17444 *)fp10650; fp10650 += sizeof(struct p17444)+((4-(sizeof(struct p17444)%4))&3); e17444->a29928 = a29928; /* x163127 stalin.sc:23182:808891 */ /* x163126 stalin.sc:23182:808916 */ t75577 = e17444; /* x163122 stalin.sc:23182:808892 */ t75578.tag = NATIVE_PROCEDURE_TYPE23146; t75578.value.native_procedure_type23146 = t75577; t75579 = f16321(t75578); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75579; break; case NATIVE_PROCEDURE_TYPE6311: a29878 = t75438; if ((fp10650+sizeof(struct p17421))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17421)>region_size) region_size = sizeof(struct p17421); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17421 = (struct p17421 *)fp10650; fp10650 += sizeof(struct p17421)+((4-(sizeof(struct p17421)%4))&3); e17421->a29878 = a29878; /* x162962 stalin.sc:23116:806521 */ /* x162957 stalin.sc:23117:806556 */ t75580 = e17421; /* x162961 stalin.sc:23118:806601 */ t75581 = e17421; /* x162953 stalin.sc:23116:806522 */ t75582 = ((unsigned)t75580)+2; t75583 = ((unsigned)t75581)+2; t75584 = f16347(t75582, t75583); t74236.tag = NATIVE_PROCEDURE_TYPE23132; t74236.value.native_procedure_type23132 = t75584; break; case NATIVE_PROCEDURE_TYPE6317: a29834 = t75438; if ((fp10650+sizeof(struct p17409))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17409)>region_size) region_size = sizeof(struct p17409); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17409 = (struct p17409 *)fp10650; fp10650 += sizeof(struct p17409)+((4-(sizeof(struct p17409)%4))&3); e17409->a29834 = a29834; /* x162879 stalin.sc:23094:805854 */ /* x162878 stalin.sc:23094:805879 */ t75585 = e17409; /* x162874 stalin.sc:23094:805855 */ t75586.tag = NATIVE_PROCEDURE_TYPE23139; t75586.value.native_procedure_type23139 = t75585; t75587 = f16321(t75586); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75587; break; case NATIVE_PROCEDURE_TYPE6323: a29790 = t75438; if ((fp10650+sizeof(struct p17397))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17397)>region_size) region_size = sizeof(struct p17397); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17397 = (struct p17397 *)fp10650; fp10650 += sizeof(struct p17397)+((4-(sizeof(struct p17397)%4))&3); e17397->a29790 = a29790; /* x162803 stalin.sc:23059:804305 */ /* x162802 stalin.sc:23059:804330 */ t75588 = e17397; /* x162798 stalin.sc:23059:804306 */ t75589.tag = NATIVE_PROCEDURE_TYPE23129; t75589.value.native_procedure_type23129 = t75588; t75590 = f16321(t75589); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75590; break; case NATIVE_PROCEDURE_TYPE6329: a29746 = t75438; if ((fp10650+sizeof(struct p17385))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17385)>region_size) region_size = sizeof(struct p17385); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17385 = (struct p17385 *)fp10650; fp10650 += sizeof(struct p17385)+((4-(sizeof(struct p17385)%4))&3); e17385->a29746 = a29746; /* x162727 stalin.sc:23024:802751 */ /* x162726 stalin.sc:23024:802776 */ t75591 = e17385; /* x162722 stalin.sc:23024:802752 */ t75592.tag = NATIVE_PROCEDURE_TYPE23147; t75592.value.native_procedure_type23147 = t75591; t75593 = f16321(t75592); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75593; break; case NATIVE_PROCEDURE_TYPE6335: a29702 = t75438; if ((fp10650+sizeof(struct p17373))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17373)>region_size) region_size = sizeof(struct p17373); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17373 = (struct p17373 *)fp10650; fp10650 += sizeof(struct p17373)+((4-(sizeof(struct p17373)%4))&3); e17373->a29702 = a29702; /* x162651 stalin.sc:23002:802135 */ /* x162650 stalin.sc:23002:802160 */ t75594 = e17373; /* x162646 stalin.sc:23002:802136 */ t75595.tag = NATIVE_PROCEDURE_TYPE23127; t75595.value.native_procedure_type23127 = t75594; t75596 = f16321(t75595); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75596; break; case NATIVE_PROCEDURE_TYPE6341: a29658 = t75438; if ((fp10650+sizeof(struct p17361))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17361)>region_size) region_size = sizeof(struct p17361); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17361 = (struct p17361 *)fp10650; fp10650 += sizeof(struct p17361)+((4-(sizeof(struct p17361)%4))&3); e17361->a29658 = a29658; /* x162575 stalin.sc:22980:801519 */ /* x162574 stalin.sc:22980:801544 */ t75597 = e17361; /* x162570 stalin.sc:22980:801520 */ t75598.tag = NATIVE_PROCEDURE_TYPE23128; t75598.value.native_procedure_type23128 = t75597; t75599 = f16321(t75598); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75599; break; case NATIVE_PROCEDURE_TYPE6347: a29614 = t75438; if ((fp10650+sizeof(struct p17349))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17349)>region_size) region_size = sizeof(struct p17349); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17349 = (struct p17349 *)fp10650; fp10650 += sizeof(struct p17349)+((4-(sizeof(struct p17349)%4))&3); e17349->a29614 = a29614; /* x162499 stalin.sc:22958:800903 */ /* x162498 stalin.sc:22958:800928 */ t75600 = e17349; /* x162494 stalin.sc:22958:800904 */ t75601.tag = NATIVE_PROCEDURE_TYPE23126; t75601.value.native_procedure_type23126 = t75600; t75602 = f16321(t75601); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75602; break; case NATIVE_PROCEDURE_TYPE6353: a29570 = t75438; if ((fp10650+sizeof(struct p17337))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17337)>region_size) region_size = sizeof(struct p17337); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17337 = (struct p17337 *)fp10650; fp10650 += sizeof(struct p17337)+((4-(sizeof(struct p17337)%4))&3); e17337->a29570 = a29570; /* x162423 stalin.sc:22923:799340 */ /* x162422 stalin.sc:22923:799365 */ t75603 = e17337; /* x162418 stalin.sc:22923:799341 */ t75604.tag = NATIVE_PROCEDURE_TYPE23148; t75604.value.native_procedure_type23148 = t75603; t75605 = f16321(t75604); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75605; break; case NATIVE_PROCEDURE_TYPE6359: a29524 = t75438; if ((fp10650+sizeof(struct p17318))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17318)>region_size) region_size = sizeof(struct p17318); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17318 = (struct p17318 *)fp10650; fp10650 += sizeof(struct p17318)+((4-(sizeof(struct p17318)%4))&3); e17318->a29524 = a29524; /* x162298 stalin.sc:22891:798386 */ /* x162297 */ t75606 = e17318; /* x162261 stalin.sc:22891:798387 */ t75607.tag = NATIVE_PROCEDURE_TYPE23104; t75607.value.native_procedure_type23104 = t75606; t75608 = f16321(t75607); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75608; break; case NATIVE_PROCEDURE_TYPE6365: a29478 = t75438; if ((fp10650+sizeof(struct p17299))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17299)>region_size) region_size = sizeof(struct p17299); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17299 = (struct p17299 *)fp10650; fp10650 += sizeof(struct p17299)+((4-(sizeof(struct p17299)%4))&3); e17299->a29478 = a29478; /* x162105 stalin.sc:22851:797227 */ /* x162104 */ t75609 = e17299; /* x162068 stalin.sc:22851:797228 */ t75610.tag = NATIVE_PROCEDURE_TYPE23111; t75610.value.native_procedure_type23111 = t75609; t75611 = f16321(t75610); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75611; break; case NATIVE_PROCEDURE_TYPE6371: a29432 = t75438; if ((fp10650+sizeof(struct p17280))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17280)>region_size) region_size = sizeof(struct p17280); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17280 = (struct p17280 *)fp10650; fp10650 += sizeof(struct p17280)+((4-(sizeof(struct p17280)%4))&3); e17280->a29432 = a29432; /* x161948 stalin.sc:22819:796264 */ /* x161947 */ t75612 = e17280; /* x161911 stalin.sc:22819:796265 */ t75613.tag = NATIVE_PROCEDURE_TYPE23097; t75613.value.native_procedure_type23097 = t75612; t75614 = f16321(t75613); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75614; break; case NATIVE_PROCEDURE_TYPE6377: a29386 = t75438; if ((fp10650+sizeof(struct p17261))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17261)>region_size) region_size = sizeof(struct p17261); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17261 = (struct p17261 *)fp10650; fp10650 += sizeof(struct p17261)+((4-(sizeof(struct p17261)%4))&3); e17261->a29386 = a29386; /* x161791 stalin.sc:22786:795313 */ /* x161790 */ t75615 = e17261; /* x161754 stalin.sc:22786:795314 */ t75616.tag = NATIVE_PROCEDURE_TYPE23118; t75616.value.native_procedure_type23118 = t75615; t75617 = f16321(t75616); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75617; break; case NATIVE_PROCEDURE_TYPE6383: a29336 = t75438; if ((fp10650+sizeof(struct p17247))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17247)>region_size) region_size = sizeof(struct p17247); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17247 = (struct p17247 *)fp10650; fp10650 += sizeof(struct p17247)+((4-(sizeof(struct p17247)%4))&3); e17247->a29336 = a29336; /* x161668 stalin.sc:22762:794526 */ /* x161667 stalin.sc:22762:794552 */ t75618 = e17247; /* x161663 stalin.sc:22762:794527 */ t75619.tag = NATIVE_PROCEDURE_TYPE23096; t75619.value.native_procedure_type23096 = t75618; t75620 = f16355(t75619); t74236.tag = NATIVE_PROCEDURE_TYPE22954; t74236.value.native_procedure_type22954 = t75620; break; case NATIVE_PROCEDURE_TYPE6389: a29284 = t75438; if ((fp10650+sizeof(struct p17231))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17231)>region_size) region_size = sizeof(struct p17231); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17231 = (struct p17231 *)fp10650; fp10650 += sizeof(struct p17231)+((4-(sizeof(struct p17231)%4))&3); e17231->a29284 = a29284; /* x161573 stalin.sc:22738:793697 */ /* x161572 stalin.sc:22738:793723 */ t75621 = e17231; /* x161568 stalin.sc:22738:793698 */ t75622.tag = NATIVE_PROCEDURE_TYPE23125; t75622.value.native_procedure_type23125 = t75621; t75623 = f16355(t75622); t74236.tag = NATIVE_PROCEDURE_TYPE22954; t74236.value.native_procedure_type22954 = t75623; break; case NATIVE_PROCEDURE_TYPE6395: a29232 = t75438; if ((fp10650+sizeof(struct p17215))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17215)>region_size) region_size = sizeof(struct p17215); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17215 = (struct p17215 *)fp10650; fp10650 += sizeof(struct p17215)+((4-(sizeof(struct p17215)%4))&3); e17215->a29232 = a29232; /* x161476 stalin.sc:22714:792870 */ /* x161475 stalin.sc:22714:792896 */ t75624 = e17215; /* x161471 stalin.sc:22714:792871 */ t75625.tag = NATIVE_PROCEDURE_TYPE23094; t75625.value.native_procedure_type23094 = t75624; t75626 = f16355(t75625); t74236.tag = NATIVE_PROCEDURE_TYPE22954; t74236.value.native_procedure_type22954 = t75626; break; case NATIVE_PROCEDURE_TYPE6401: a29186 = t75438; if ((fp10650+sizeof(struct p17204))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17204)>region_size) region_size = sizeof(struct p17204); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17204 = (struct p17204 *)fp10650; fp10650 += sizeof(struct p17204)+((4-(sizeof(struct p17204)%4))&3); e17204->a29186 = a29186; /* x161416 stalin.sc:22699:792371 */ /* x161415 stalin.sc:22699:792396 */ t75627 = e17204; /* x161411 stalin.sc:22699:792372 */ t75628.tag = NATIVE_PROCEDURE_TYPE23095; t75628.value.native_procedure_type23095 = t75627; t75629 = f16321(t75628); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75629; break; case NATIVE_PROCEDURE_TYPE6407: a29135 = t75438; if ((fp10650+sizeof(struct p17171))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17171)>region_size) region_size = sizeof(struct p17171); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17171 = (struct p17171 *)fp10650; fp10650 += sizeof(struct p17171)+((4-(sizeof(struct p17171)%4))&3); e17171->a29135 = a29135; /* x161090 stalin.sc:22620:790130 */ /* x161089 */ t75630 = e17171; /* x161017 stalin.sc:22620:790131 */ t75631.tag = NATIVE_PROCEDURE_TYPE23085; t75631.value.native_procedure_type23085 = t75630; t75632 = f16328(t75631); t74236.tag = NATIVE_PROCEDURE_TYPE22831; t74236.value.native_procedure_type22831 = t75632; break; case NATIVE_PROCEDURE_TYPE6413: a29084 = t75438; if ((fp10650+sizeof(struct p17138))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17138)>region_size) region_size = sizeof(struct p17138); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17138 = (struct p17138 *)fp10650; fp10650 += sizeof(struct p17138)+((4-(sizeof(struct p17138)%4))&3); e17138->a29084 = a29084; /* x160693 stalin.sc:22541:787843 */ /* x160692 */ t75633 = e17138; /* x160620 stalin.sc:22541:787844 */ t75634.tag = NATIVE_PROCEDURE_TYPE23149; t75634.value.native_procedure_type23149 = t75633; t75635 = f16328(t75634); t74236.tag = NATIVE_PROCEDURE_TYPE22831; t74236.value.native_procedure_type22831 = t75635; break; case NATIVE_PROCEDURE_TYPE6419: a29033 = t75438; if ((fp10650+sizeof(struct p17105))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17105)>region_size) region_size = sizeof(struct p17105); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17105 = (struct p17105 *)fp10650; fp10650 += sizeof(struct p17105)+((4-(sizeof(struct p17105)%4))&3); e17105->a29033 = a29033; /* x160296 stalin.sc:22461:785491 */ /* x160295 */ t75636 = e17105; /* x160223 stalin.sc:22461:785492 */ t75637.tag = NATIVE_PROCEDURE_TYPE23037; t75637.value.native_procedure_type23037 = t75636; t75638 = f16328(t75637); t74236.tag = NATIVE_PROCEDURE_TYPE22831; t74236.value.native_procedure_type22831 = t75638; break; case NATIVE_PROCEDURE_TYPE6425: a28982 = t75438; if ((fp10650+sizeof(struct p17072))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17072)>region_size) region_size = sizeof(struct p17072); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17072 = (struct p17072 *)fp10650; fp10650 += sizeof(struct p17072)+((4-(sizeof(struct p17072)%4))&3); e17072->a28982 = a28982; /* x159899 stalin.sc:22381:783130 */ /* x159898 */ t75639 = e17072; /* x159826 stalin.sc:22381:783131 */ t75640.tag = NATIVE_PROCEDURE_TYPE23046; t75640.value.native_procedure_type23046 = t75639; t75641 = f16328(t75640); t74236.tag = NATIVE_PROCEDURE_TYPE22831; t74236.value.native_procedure_type22831 = t75641; break; case NATIVE_PROCEDURE_TYPE6431: a28927 = t75438; if ((fp10650+sizeof(struct p17045))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17045)>region_size) region_size = sizeof(struct p17045); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17045 = (struct p17045 *)fp10650; fp10650 += sizeof(struct p17045)+((4-(sizeof(struct p17045)%4))&3); e17045->a28927 = a28927; /* x159660 stalin.sc:22335:781560 */ /* x159659 */ t75642 = e17045; /* x159614 stalin.sc:22335:781561 */ t75643.tag = NATIVE_PROCEDURE_TYPE23028; t75643.value.native_procedure_type23028 = t75642; t75644 = f16355(t75643); t74236.tag = NATIVE_PROCEDURE_TYPE22954; t74236.value.native_procedure_type22954 = t75644; break; case NATIVE_PROCEDURE_TYPE6437: a28865 = t75438; if ((fp10650+sizeof(struct p17002))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p17002)>region_size) region_size = sizeof(struct p17002); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e17002 = (struct p17002 *)fp10650; fp10650 += sizeof(struct p17002)+((4-(sizeof(struct p17002)%4))&3); e17002->a28865 = a28865; /* x159396 stalin.sc:22273:778960 */ /* x159395 */ t75645 = e17002; /* x159324 stalin.sc:22273:778961 */ t75646.tag = NATIVE_PROCEDURE_TYPE23055; t75646.value.native_procedure_type23055 = t75645; t75647 = f16355(t75646); t74236.tag = NATIVE_PROCEDURE_TYPE22954; t74236.value.native_procedure_type22954 = t75647; break; case NATIVE_PROCEDURE_TYPE6443: a28804 = t75438; if ((fp10650+sizeof(struct p16961))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16961)>region_size) region_size = sizeof(struct p16961); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16961 = (struct p16961 *)fp10650; fp10650 += sizeof(struct p16961)+((4-(sizeof(struct p16961)%4))&3); e16961->a28804 = a28804; /* x159148 stalin.sc:22225:777303 */ /* x159147 stalin.sc:22226:777331 */ t75648 = e16961; /* x159065 stalin.sc:22225:777304 */ t75649.tag = NATIVE_PROCEDURE_TYPE23013; t75649.value.native_procedure_type23013 = t75648; t75650 = f16355(t75649); t74236.tag = NATIVE_PROCEDURE_TYPE22954; t74236.value.native_procedure_type22954 = t75650; break; case NATIVE_PROCEDURE_TYPE6449: a28743 = t75438; if ((fp10650+sizeof(struct p16920))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16920)>region_size) region_size = sizeof(struct p16920); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16920 = (struct p16920 *)fp10650; fp10650 += sizeof(struct p16920)+((4-(sizeof(struct p16920)%4))&3); e16920->a28743 = a28743; /* x158889 stalin.sc:22177:775650 */ /* x158888 stalin.sc:22178:775678 */ t75651 = e16920; /* x158806 stalin.sc:22177:775651 */ t75652.tag = NATIVE_PROCEDURE_TYPE23068; t75652.value.native_procedure_type23068 = t75651; t75653 = f16355(t75652); t74236.tag = NATIVE_PROCEDURE_TYPE22954; t74236.value.native_procedure_type22954 = t75653; break; case NATIVE_PROCEDURE_TYPE6455: a28684 = t75438; if ((fp10650+sizeof(struct p16892))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16892)>region_size) region_size = sizeof(struct p16892); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16892 = (struct p16892 *)fp10650; fp10650 += sizeof(struct p16892)+((4-(sizeof(struct p16892)%4))&3); e16892->a28684 = a28684; /* x158684 stalin.sc:22136:774148 */ /* x158683 */ t75654 = e16892; /* x158612 stalin.sc:22136:774149 */ t75655.tag = NATIVE_PROCEDURE_TYPE22987; t75655.value.native_procedure_type22987 = t75654; t75656 = f16355(t75655); t74236.tag = NATIVE_PROCEDURE_TYPE22954; t74236.value.native_procedure_type22954 = t75656; break; case NATIVE_PROCEDURE_TYPE6461: a28625 = t75438; if ((fp10650+sizeof(struct p16864))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16864)>region_size) region_size = sizeof(struct p16864); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16864 = (struct p16864 *)fp10650; fp10650 += sizeof(struct p16864)+((4-(sizeof(struct p16864)%4))&3); e16864->a28625 = a28625; /* x158490 stalin.sc:22095:772645 */ /* x158489 */ t75657 = e16864; /* x158418 stalin.sc:22095:772646 */ t75658.tag = NATIVE_PROCEDURE_TYPE23000; t75658.value.native_procedure_type23000 = t75657; t75659 = f16355(t75658); t74236.tag = NATIVE_PROCEDURE_TYPE22954; t74236.value.native_procedure_type22954 = t75659; break; case NATIVE_PROCEDURE_TYPE6467: a28578 = t75438; if ((fp10650+sizeof(struct p16848))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16848)>region_size) region_size = sizeof(struct p16848); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16848 = (struct p16848 *)fp10650; fp10650 += sizeof(struct p16848)+((4-(sizeof(struct p16848)%4))&3); e16848->a28578 = a28578; /* x158295 stalin.sc:22067:771808 */ /* x158294 */ t75660 = e16848; /* x158285 stalin.sc:22067:771809 */ t75661.tag = NATIVE_PROCEDURE_TYPE22985; t75661.value.native_procedure_type22985 = t75660; t75662 = f16321(t75661); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75662; break; case NATIVE_PROCEDURE_TYPE6473: a28533 = t75438; if ((fp10650+sizeof(struct p16834))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16834)>region_size) region_size = sizeof(struct p16834); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16834 = (struct p16834 *)fp10650; fp10650 += sizeof(struct p16834)+((4-(sizeof(struct p16834)%4))&3); e16834->a28533 = a28533; /* x158166 stalin.sc:22039:771007 */ /* x158165 */ t75663 = e16834; /* x158156 stalin.sc:22039:771008 */ t75664.tag = NATIVE_PROCEDURE_TYPE23083; t75664.value.native_procedure_type23083 = t75663; t75665 = f16321(t75664); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75665; break; case NATIVE_PROCEDURE_TYPE6479: a28480 = t75438; if ((fp10650+sizeof(struct p16811))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16811)>region_size) region_size = sizeof(struct p16811); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16811 = (struct p16811 *)fp10650; fp10650 += sizeof(struct p16811)+((4-(sizeof(struct p16811)%4))&3); e16811->a28480 = a28480; /* x157976 stalin.sc:22005:770040 */ /* x157975 */ t75666 = e16811; /* x157966 stalin.sc:22005:770041 */ t75667.tag = NATIVE_PROCEDURE_TYPE22963; t75667.value.native_procedure_type22963 = t75666; t75668 = f16321(t75667); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75668; break; case NATIVE_PROCEDURE_TYPE6485: a28418 = t75438; if ((fp10650+sizeof(struct p16787))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16787)>region_size) region_size = sizeof(struct p16787); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16787 = (struct p16787 *)fp10650; fp10650 += sizeof(struct p16787)+((4-(sizeof(struct p16787)%4))&3); e16787->a28418 = a28418; /* x157822 stalin.sc:21978:769260 */ /* x157821 */ t75669 = e16787; /* x157812 stalin.sc:21978:769261 */ t75670.tag = NATIVE_PROCEDURE_TYPE22965; t75670.value.native_procedure_type22965 = t75669; t75671 = f16355(t75670); t74236.tag = NATIVE_PROCEDURE_TYPE22954; t74236.value.native_procedure_type22954 = t75671; break; case NATIVE_PROCEDURE_TYPE6491: a28369 = t75438; if ((fp10650+sizeof(struct p16776))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16776)>region_size) region_size = sizeof(struct p16776); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16776 = (struct p16776 *)fp10650; fp10650 += sizeof(struct p16776)+((4-(sizeof(struct p16776)%4))&3); e16776->a28369 = a28369; /* x157769 stalin.sc:21968:768894 */ /* x157768 */ t75672 = e16776; /* x157759 stalin.sc:21968:768895 */ t75673.tag = NATIVE_PROCEDURE_TYPE22961; t75673.value.native_procedure_type22961 = t75672; t75674 = f16355(t75673); t74236.tag = NATIVE_PROCEDURE_TYPE22954; t74236.value.native_procedure_type22954 = t75674; break; case NATIVE_PROCEDURE_TYPE6497: a28320 = t75438; if ((fp10650+sizeof(struct p16765))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16765)>region_size) region_size = sizeof(struct p16765); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16765 = (struct p16765 *)fp10650; fp10650 += sizeof(struct p16765)+((4-(sizeof(struct p16765)%4))&3); e16765->a28320 = a28320; /* x157716 stalin.sc:21958:768529 */ /* x157715 */ t75675 = e16765; /* x157706 stalin.sc:21958:768530 */ t75676.tag = NATIVE_PROCEDURE_TYPE22967; t75676.value.native_procedure_type22967 = t75675; t75677 = f16355(t75676); t74236.tag = NATIVE_PROCEDURE_TYPE22954; t74236.value.native_procedure_type22954 = t75677; break; case NATIVE_PROCEDURE_TYPE6503: a28271 = t75438; if ((fp10650+sizeof(struct p16754))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16754)>region_size) region_size = sizeof(struct p16754); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16754 = (struct p16754 *)fp10650; fp10650 += sizeof(struct p16754)+((4-(sizeof(struct p16754)%4))&3); e16754->a28271 = a28271; /* x157663 stalin.sc:21948:768165 */ /* x157662 */ t75678 = e16754; /* x157653 stalin.sc:21948:768166 */ t75679.tag = NATIVE_PROCEDURE_TYPE22953; t75679.value.native_procedure_type22953 = t75678; t75680 = f16355(t75679); t74236.tag = NATIVE_PROCEDURE_TYPE22954; t74236.value.native_procedure_type22954 = t75680; break; case NATIVE_PROCEDURE_TYPE6509: a28222 = t75438; if ((fp10650+sizeof(struct p16743))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16743)>region_size) region_size = sizeof(struct p16743); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16743 = (struct p16743 *)fp10650; fp10650 += sizeof(struct p16743)+((4-(sizeof(struct p16743)%4))&3); e16743->a28222 = a28222; /* x157554 stalin.sc:21928:767501 */ /* x157553 */ t75681 = e16743; /* x157544 stalin.sc:21928:767502 */ t75682.tag = NATIVE_PROCEDURE_TYPE22959; t75682.value.native_procedure_type22959 = t75681; t75683 = f16355(t75682); t74236.tag = NATIVE_PROCEDURE_TYPE22954; t74236.value.native_procedure_type22954 = t75683; break; case NATIVE_PROCEDURE_TYPE6515: a28174 = t75438; if ((fp10650+sizeof(struct p16726))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16726)>region_size) region_size = sizeof(struct p16726); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16726 = (struct p16726 *)fp10650; fp10650 += sizeof(struct p16726)+((4-(sizeof(struct p16726)%4))&3); e16726->a28174 = a28174; /* x157494 stalin.sc:21910:766927 */ /* x157493 */ t75684 = e16726; /* x157457 stalin.sc:21910:766928 */ t75685.tag = NATIVE_PROCEDURE_TYPE22946; t75685.value.native_procedure_type22946 = t75684; t75686 = f16321(t75685); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75686; break; case NATIVE_PROCEDURE_TYPE6521: a28127 = t75438; if ((fp10650+sizeof(struct p16710))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16710)>region_size) region_size = sizeof(struct p16710); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16710 = (struct p16710 *)fp10650; fp10650 += sizeof(struct p16710)+((4-(sizeof(struct p16710)%4))&3); e16710->a28127 = a28127; /* x157401 stalin.sc:21892:766346 */ /* x157400 */ t75687 = e16710; /* x157364 stalin.sc:21892:766347 */ t75688.tag = NATIVE_PROCEDURE_TYPE22969; t75688.value.native_procedure_type22969 = t75687; t75689 = f16321(t75688); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75689; break; case NATIVE_PROCEDURE_TYPE6527: a28079 = t75438; if ((fp10650+sizeof(struct p16688))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16688)>region_size) region_size = sizeof(struct p16688); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16688 = (struct p16688 *)fp10650; fp10650 += sizeof(struct p16688)+((4-(sizeof(struct p16688)%4))&3); e16688->a28079 = a28079; /* x157242 stalin.sc:21862:765387 */ /* x157241 */ t75690 = e16688; /* x157191 stalin.sc:21862:765388 */ t75691.tag = NATIVE_PROCEDURE_TYPE22928; t75691.value.native_procedure_type22928 = t75690; t75692 = f16321(t75691); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75692; break; case NATIVE_PROCEDURE_TYPE6533: a28030 = t75438; if ((fp10650+sizeof(struct p16666))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16666)>region_size) region_size = sizeof(struct p16666); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16666 = (struct p16666 *)fp10650; fp10650 += sizeof(struct p16666)+((4-(sizeof(struct p16666)%4))&3); e16666->a28030 = a28030; /* x157107 stalin.sc:21837:764531 */ /* x157106 */ t75693 = e16666; /* x157056 stalin.sc:21837:764532 */ t75694.tag = NATIVE_PROCEDURE_TYPE22937; t75694.value.native_procedure_type22937 = t75693; t75695 = f16321(t75694); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75695; break; case NATIVE_PROCEDURE_TYPE6539: a27985 = t75439; if ((fp10650+sizeof(struct p16653))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16653)>region_size) region_size = sizeof(struct p16653); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16653 = (struct p16653 *)fp10650; fp10650 += sizeof(struct p16653)+((4-(sizeof(struct p16653)%4))&3); e16653->a27985 = a27985; /* x157004 stalin.sc:21822:764023 */ /* x157003 */ t75696 = e16653; /* x156974 stalin.sc:21822:764024 */ t75697.tag = NATIVE_PROCEDURE_TYPE22923; t75697.value.native_procedure_type22923 = t75696; t75698 = f16321(t75697); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75698; break; case NATIVE_PROCEDURE_TYPE6545: a27937 = t75438; if ((fp10650+sizeof(struct p16639))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16639)>region_size) region_size = sizeof(struct p16639); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16639 = (struct p16639 *)fp10650; fp10650 += sizeof(struct p16639)+((4-(sizeof(struct p16639)%4))&3); e16639->a27937 = a27937; /* x156909 stalin.sc:21797:763416 */ /* x156908 stalin.sc:21798:763443 */ t75699 = e16639; /* x156890 stalin.sc:21797:763417 */ t75700.tag = NATIVE_PROCEDURE_TYPE22976; t75700.value.native_procedure_type22976 = t75699; t75701 = f16321(t75700); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75701; break; case NATIVE_PROCEDURE_TYPE6551: a27892 = t75438; if ((fp10650+sizeof(struct p16626))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16626)>region_size) region_size = sizeof(struct p16626); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16626 = (struct p16626 *)fp10650; fp10650 += sizeof(struct p16626)+((4-(sizeof(struct p16626)%4))&3); e16626->a27892 = a27892; /* x156809 stalin.sc:21773:762758 */ /* x156808 stalin.sc:21774:762785 */ t75702 = e16626; /* x156804 stalin.sc:21773:762759 */ t75703.tag = NATIVE_PROCEDURE_TYPE22861; t75703.value.native_procedure_type22861 = t75702; t75704 = f16321(t75703); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75704; break; case NATIVE_PROCEDURE_TYPE6557: a27849 = t75439; if ((fp10650+sizeof(struct p16615))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16615)>region_size) region_size = sizeof(struct p16615); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16615 = (struct p16615 *)fp10650; fp10650 += sizeof(struct p16615)+((4-(sizeof(struct p16615)%4))&3); e16615->a27849 = a27849; /* x156774 stalin.sc:21760:762320 */ /* x156773 */ t75705 = e16615; /* x156744 stalin.sc:21760:762321 */ t75706.tag = NATIVE_PROCEDURE_TYPE22862; t75706.value.native_procedure_type22862 = t75705; t75707 = f16321(t75706); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75707; break; case NATIVE_PROCEDURE_TYPE6563: a27804 = t75439; if ((fp10650+sizeof(struct p16603))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16603)>region_size) region_size = sizeof(struct p16603); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16603 = (struct p16603 *)fp10650; fp10650 += sizeof(struct p16603)+((4-(sizeof(struct p16603)%4))&3); e16603->a27804 = a27804; /* x156709 stalin.sc:21747:761881 */ /* x156708 */ t75708 = e16603; /* x156679 stalin.sc:21747:761882 */ t75709.tag = NATIVE_PROCEDURE_TYPE22856; t75709.value.native_procedure_type22856 = t75708; t75710 = f16321(t75709); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75710; break; case NATIVE_PROCEDURE_TYPE6569: a27692 = t75438; if ((fp10650+sizeof(struct p16461))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16461)>region_size) region_size = sizeof(struct p16461); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16461 = (struct p16461 *)fp10650; fp10650 += sizeof(struct p16461)+((4-(sizeof(struct p16461)%4))&3); e16461->a27692 = a27692; /* x154749 stalin.sc:21262:742967 */ /* x154748 stalin.sc:21263:742995 */ t75711 = e16461; /* x154594 stalin.sc:21262:742968 */ t75712.tag = NATIVE_PROCEDURE_TYPE22867; t75712.value.native_procedure_type22867 = t75711; t75713 = f16328(t75712); t74236.tag = NATIVE_PROCEDURE_TYPE22831; t74236.value.native_procedure_type22831 = t75713; break; case NATIVE_PROCEDURE_TYPE6575: a27649 = t75439; if ((fp10650+sizeof(struct p16450))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16450)>region_size) region_size = sizeof(struct p16450); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16450 = (struct p16450 *)fp10650; fp10650 += sizeof(struct p16450)+((4-(sizeof(struct p16450)%4))&3); e16450->a27649 = a27649; /* x154561 stalin.sc:21249:742537 */ /* x154560 */ t75714 = e16450; /* x154531 stalin.sc:21249:742538 */ t75715.tag = NATIVE_PROCEDURE_TYPE22846; t75715.value.native_procedure_type22846 = t75714; t75716 = f16321(t75715); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75716; break; case NATIVE_PROCEDURE_TYPE6581: a27604 = t75439; if ((fp10650+sizeof(struct p16438))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16438)>region_size) region_size = sizeof(struct p16438); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16438 = (struct p16438 *)fp10650; fp10650 += sizeof(struct p16438)+((4-(sizeof(struct p16438)%4))&3); e16438->a27604 = a27604; /* x154496 stalin.sc:21236:742091 */ /* x154495 */ t75717 = e16438; /* x154466 stalin.sc:21236:742092 */ t75718.tag = NATIVE_PROCEDURE_TYPE22851; t75718.value.native_procedure_type22851 = t75717; t75719 = f16321(t75718); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75719; break; case NATIVE_PROCEDURE_TYPE6587: a27553 = t75437; if ((fp10650+sizeof(struct p16421))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16421)>region_size) region_size = sizeof(struct p16421); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16421 = (struct p16421 *)fp10650; fp10650 += sizeof(struct p16421)+((4-(sizeof(struct p16421)%4))&3); e16421->a27553 = a27553; /* x154322 stalin.sc:21181:740531 */ /* x154321 stalin.sc:21182:740559 */ t75720 = e16421; /* x154283 stalin.sc:21181:740532 */ t75721.tag = NATIVE_PROCEDURE_TYPE22830; t75721.value.native_procedure_type22830 = t75720; t75722 = f16328(t75721); t74236.tag = NATIVE_PROCEDURE_TYPE22831; t74236.value.native_procedure_type22831 = t75722; break; case NATIVE_PROCEDURE_TYPE6593: a27506 = t75437; a27507 = t75438; if ((fp10650+sizeof(struct p16405))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16405)>region_size) region_size = sizeof(struct p16405); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16405 = (struct p16405 *)fp10650; fp10650 += sizeof(struct p16405)+((4-(sizeof(struct p16405)%4))&3); e16405->a27506 = a27506; e16405->a27507 = a27507; /* x154153 stalin.sc:21133:738997 */ /* x154152 stalin.sc:21134:739024 */ t75723 = e16405; /* x154107 stalin.sc:21133:738998 */ t75724.tag = NATIVE_PROCEDURE_TYPE22841; t75724.value.native_procedure_type22841 = t75723; t75725 = f16321(t75724); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75725; break; case NATIVE_PROCEDURE_TYPE6599: a27447 = t75436; a27448 = t75437; a27449 = t75438; if ((fp10650+sizeof(struct p16377))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16377)>region_size) region_size = sizeof(struct p16377); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16377 = (struct p16377 *)fp10650; fp10650 += sizeof(struct p16377)+((4-(sizeof(struct p16377)%4))&3); e16377->a27447 = a27447; e16377->a27448 = a27448; e16377->a27449 = a27449; /* x153838 stalin.sc:21064:736785 */ /* x153837 stalin.sc:21065:736811 */ t75726 = e16377; /* x153815 stalin.sc:21064:736786 */ a27376 = t75726; if ((fp10650+sizeof(struct p16342))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16342)>region_size) region_size = sizeof(struct p16342); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16342 = (struct p16342 *)fp10650; fp10650 += sizeof(struct p16342)+((4-(sizeof(struct p16342)%4))&3); e16342->a27376 = a27376; /* x153621 */ t74236.tag = NATIVE_PROCEDURE_TYPE22826; t74236.value.native_procedure_type22826 = e16342; break; default: a27402 = t75437; a27404 = t75439; if ((fp10650+sizeof(struct p16364))>(&((region10650->data)[region_size10650]))) {struct region10650 *region; unsigned region_size = REGION_SIZE10650; if (sizeof(struct p16364)>region_size) region_size = sizeof(struct p16364); region = (struct region10650 *)GC_malloc_uncollectable(sizeof(struct region10650)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region10650; region->region_size = region_size10650; region_size10650 = region_size; region10650 = region; fp10650 = &((region->data)[0]); ALIGN(fp10650);} e16364 = (struct p16364 *)fp10650; fp10650 += sizeof(struct p16364)+((4-(sizeof(struct p16364)%4))&3); e16364->a27402 = a27402; e16364->a27404 = a27404; /* x153776 stalin.sc:21044:736070 */ /* x153775 */ t75727 = e16364; /* x153728 stalin.sc:21044:736071 */ t75728.tag = NATIVE_PROCEDURE_TYPE22776; t75728.value.native_procedure_type22776 = t75727; t75729 = f16321(t75728); t74236.tag = NATIVE_PROCEDURE_TYPE22777; t74236.value.native_procedure_type22777 = t75729;} switch (t74236.tag) {case NATIVE_PROCEDURE_TYPE22777: p16322 = t74236.value.native_procedure_type22777; a27362 = t74237; a27363 = t74238; /* x153524 */ /* x153510 stalin.sc:20992:734402 */ /* x153503 stalin.sc:20992:734408 */ /* x153501 stalin.sc:20992:734421 */ /* x153502 stalin.sc:20992:734432 */ t74735 = a27363; /* x153500 stalin.sc:20992:734409 */ t74736.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t74736, t74735).tag)==FALSE_TYPE) goto l13400; /* x153507 */ /* x153506 */ /* x153505 stalin.sc:20992:734435 */ /* x153504 stalin.sc:20992:734436 */ /* x295385 QobiScheme.sc:166:5314 */ /* x295384 QobiScheme.sc:166:5321 */ t74737 = "This shouldn\'t happen"; /* x295383 QobiScheme.sc:166:5315 */ stalin_panic(t74737); goto l13401; l13400: /* x153509 stalin.sc:20992:734402 */ /* x153508 stalin.sc:20992:734402 */ l13401: /* x153523 stalin.sc:20993:734448 */ /* x153516 stalin.sc:20993:734456 */ /* x153514 stalin.sc:20993:734459 */ /* x153513 stalin.sc:20993:734467 */ t74740 = a27362; /* x153512 stalin.sc:20993:734460 */ t74738 = f26227(t74740); /* x153515 stalin.sc:20993:734471 */ t74739 = 1; /* x268328 stalin.sc:20993:734457 */ if (!(t74738==t74739)) goto l13403; /* x153518 */ /* x153517 */ goto l13404; l13403: /* x153522 */ /* x153521 */ /* x153520 stalin.sc:20993:734474 */ /* x153519 stalin.sc:20993:734475 */ /* x295389 QobiScheme.sc:166:5314 */ /* x295388 QobiScheme.sc:166:5321 */ t74741 = "This shouldn\'t happen"; /* x295387 QobiScheme.sc:166:5315 */ stalin_panic(t74741); l13404: /* x153499 */ t74239 = p16322; p16323 = t74239; /* x153498 stalin.sc:20994:734487 */ /* x153497 stalin.sc:20994:734490 */ /* x153496 stalin.sc:20994:734497 */ t74733 = a27362; /* x153495 stalin.sc:20994:734491 */ a35692 = t74733; /* x274125 */ /* x274124 */ t74734 = a35692; /* x274123 */ if (!((t74734.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29841]"); structure_ref_error();} t74241 = t74734.value.structure_type24753->s0; /* x153494 stalin.sc:20994:734488 */ t74240 = p16323->a27361; switch (t74240.tag) {case NATIVE_PROCEDURE_TYPE22776: p16365 = t74240.value.native_procedure_type22776; a27406 = t74241; /* x153774 */ /* x153773 stalin.sc:21046:736113 */ /* x153760 stalin.sc:21046:736119 */ /* x153748 stalin.sc:21046:736124 */ /* x153746 stalin.sc:21046:736133 */ /* x153745 stalin.sc:21047:736159 */ /* x153744 stalin.sc:21047:736166 */ /* x153743 stalin.sc:21047:736202 */ t74257 = p16365->a27402; /* x153742 stalin.sc:21047:736167 */ a38147 = t74257; /* x285257 */ /* x285256 */ t74258 = a38147; /* x285255 */ if (!((t74258.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33064]"); structure_ref_error();} t74255 = t74258.value.structure_type27753->s1; /* x153741 stalin.sc:21047:736160 */ a35691 = t74255; /* x274121 */ /* x274120 */ t74256 = a35691; /* x274119 */ if (!((t74256.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29840]"); structure_ref_error();} t74254 = t74256.value.structure_type24753->s0; /* x153740 stalin.sc:21046:736134 */ t74251 = f7717(t74254); /* x153747 stalin.sc:21048:736217 */ t74252 = a27406; /* x153739 stalin.sc:21046:736125 */ t74253.tag = NATIVE_PROCEDURE_TYPE15963; t74253.value.native_procedure_type15963 = t74251; if ((f8137(t74253, t74252).tag)==FALSE_TYPE) goto l13269; /* x153758 */ /* x153756 stalin.sc:21049:736241 */ /* x153755 stalin.sc:21050:736271 */ /* x153754 stalin.sc:21050:736278 */ /* x153753 stalin.sc:21050:736314 */ t74265 = p16365->a27402; /* x153752 stalin.sc:21050:736279 */ a38146 = t74265; /* x285253 */ /* x285252 */ t74266 = a38146; /* x285251 */ if (!((t74266.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33063]"); structure_ref_error();} t74263 = t74266.value.structure_type27753->s1; /* x153751 stalin.sc:21050:736272 */ a35690 = t74263; /* x274117 */ /* x274116 */ t74264 = a35690; /* x274115 */ if (!((t74264.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29839]"); structure_ref_error();} t74262 = t74264.value.structure_type24753->s0; /* x153750 stalin.sc:21049:736242 */ t74259 = f7717(t74262); /* x153757 stalin.sc:21051:736326 */ t74260 = a27406; /* x153749 stalin.sc:21049:736229 */ t74261.tag = NATIVE_PROCEDURE_TYPE15963; t74261.value.native_procedure_type15963 = t74259; if ((f8144(t74261, t74260).tag)==FALSE_TYPE) goto l13269; /* x153770 */ /* x153769 */ /* x153768 stalin.sc:21052:736335 */ /* x153766 stalin.sc:21052:736352 */ /* x153767 stalin.sc:21052:736403 */ t74267 = a27406; /* x153761 stalin.sc:21052:736336 */ t74268.tag = NATIVE_PROCEDURE_TYPE22785; f8173(t74268, t74267); goto l13270; l13269: /* x153772 stalin.sc:21046:736113 */ /* x153771 stalin.sc:21046:736113 */ l13270: /* x153738 */ t74242 = p16365; p16366 = t74242; /* x153737 stalin.sc:21053:736411 */ /* x153736 stalin.sc:21054:736442 */ /* x153735 stalin.sc:21054:736465 */ /* x153734 stalin.sc:21054:736472 */ /* x153733 stalin.sc:21054:736508 */ t74249 = p16366->a27402; /* x153732 stalin.sc:21054:736473 */ a38145 = t74249; /* x285249 */ /* x285248 */ t74250 = a38145; /* x285247 */ if (!((t74250.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33062]"); structure_ref_error();} t74247 = t74250.value.structure_type27753->s1; /* x153731 stalin.sc:21054:736466 */ a35689 = t74247; /* x274113 */ /* x274112 */ t74248 = a35689; /* x274111 */ if (!((t74248.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29838]"); structure_ref_error();} t74246 = t74248.value.structure_type24753->s0; /* x153730 stalin.sc:21054:736443 */ t74244 = f7717(t74246); /* x153729 stalin.sc:21053:736412 */ t74243 = p16366->a27404; t74245 = t74244; f10651(t74243, t74245); break; case NATIVE_PROCEDURE_TYPE22841: p16406 = t74240.value.native_procedure_type22841; a27510 = t74241; /* x154151 stalin.sc:21135:739040 */ /* x154149 stalin.sc:21136:739061 */ t74269 = p16406; /* x154150 stalin.sc:21147:739444 */ t74270 = a27510; /* x154108 stalin.sc:21135:739041 */ t74271.tag = NATIVE_PROCEDURE_TYPE22842; t74271.value.native_procedure_type22842 = t74269; f8173(t74271, t74270); break; case NATIVE_PROCEDURE_TYPE22846: p16451 = t74240.value.native_procedure_type22846; a27651 = t74241; /* x154559 */ /* x154558 stalin.sc:21251:742580 */ /* x154545 stalin.sc:21251:742586 */ /* x154539 stalin.sc:21251:742591 */ /* x154537 stalin.sc:21251:742600 */ /* x154538 stalin.sc:21251:742614 */ t74275 = a27651; /* x154536 stalin.sc:21251:742592 */ t74276.tag = NATIVE_PROCEDURE_TYPE7432; if ((f8137(t74276, t74275).tag)==FALSE_TYPE) goto l13273; /* x154543 */ /* x154541 stalin.sc:21251:742631 */ /* x154542 stalin.sc:21251:742645 */ t74277 = a27651; /* x154540 stalin.sc:21251:742619 */ t74278.tag = NATIVE_PROCEDURE_TYPE7432; if ((f8144(t74278, t74277).tag)==FALSE_TYPE) goto l13273; /* x154555 */ /* x154554 */ /* x154553 stalin.sc:21252:742654 */ /* x154551 stalin.sc:21252:742671 */ /* x154552 stalin.sc:21252:742722 */ t74279 = a27651; /* x154546 stalin.sc:21252:742655 */ t74280.tag = NATIVE_PROCEDURE_TYPE22849; f8173(t74280, t74279); goto l13274; l13273: /* x154557 stalin.sc:21251:742580 */ /* x154556 stalin.sc:21251:742580 */ l13274: /* x154535 */ t74272 = p16451; p16452 = t74272; /* x154534 stalin.sc:21253:742730 */ /* x154533 stalin.sc:21253:742757 */ /* x154532 stalin.sc:21253:742731 */ t74273 = p16452->a27649; t74274 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7432; f10651(t74273, t74274); break; case NATIVE_PROCEDURE_TYPE22851: p16439 = t74240.value.native_procedure_type22851; a27606 = t74241; /* x154494 */ /* x154493 stalin.sc:21238:742134 */ /* x154480 stalin.sc:21238:742140 */ /* x154474 stalin.sc:21238:742145 */ /* x154472 stalin.sc:21238:742154 */ /* x154473 stalin.sc:21238:742166 */ t74284 = a27606; /* x154471 stalin.sc:21238:742146 */ t74285.tag = NATIVE_PROCEDURE_TYPE7433; if ((f8137(t74285, t74284).tag)==FALSE_TYPE) goto l13277; /* x154478 */ /* x154476 stalin.sc:21238:742183 */ /* x154477 stalin.sc:21238:742195 */ t74286 = a27606; /* x154475 stalin.sc:21238:742171 */ t74287.tag = NATIVE_PROCEDURE_TYPE7433; if ((f8144(t74287, t74286).tag)==FALSE_TYPE) goto l13277; /* x154490 */ /* x154489 */ /* x154488 stalin.sc:21239:742204 */ /* x154486 stalin.sc:21239:742221 */ /* x154487 stalin.sc:21239:742272 */ t74288 = a27606; /* x154481 stalin.sc:21239:742205 */ t74289.tag = NATIVE_PROCEDURE_TYPE22854; f8173(t74289, t74288); goto l13278; l13277: /* x154492 stalin.sc:21238:742134 */ /* x154491 stalin.sc:21238:742134 */ l13278: /* x154470 */ t74281 = p16439; p16440 = t74281; /* x154469 stalin.sc:21240:742280 */ /* x154468 stalin.sc:21240:742307 */ /* x154467 stalin.sc:21240:742281 */ t74282 = p16440->a27604; t74283 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7433; f10651(t74282, t74283); break; case NATIVE_PROCEDURE_TYPE22856: p16604 = t74240.value.native_procedure_type22856; a27806 = t74241; /* x156707 */ /* x156706 stalin.sc:21749:761924 */ /* x156693 stalin.sc:21749:761930 */ /* x156687 stalin.sc:21749:761935 */ /* x156685 stalin.sc:21749:761944 */ /* x156686 stalin.sc:21749:761955 */ t74293 = a27806; /* x156684 stalin.sc:21749:761936 */ t74294.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8137(t74294, t74293).tag)==FALSE_TYPE) goto l13281; /* x156691 */ /* x156689 stalin.sc:21749:761972 */ /* x156690 stalin.sc:21749:761983 */ t74295 = a27806; /* x156688 stalin.sc:21749:761960 */ t74296.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t74296, t74295).tag)==FALSE_TYPE) goto l13281; /* x156703 */ /* x156702 */ /* x156701 stalin.sc:21750:761992 */ /* x156699 stalin.sc:21750:762009 */ /* x156700 stalin.sc:21750:762060 */ t74297 = a27806; /* x156694 stalin.sc:21750:761993 */ t74298.tag = NATIVE_PROCEDURE_TYPE22859; f8173(t74298, t74297); goto l13282; l13281: /* x156705 stalin.sc:21749:761924 */ /* x156704 stalin.sc:21749:761924 */ l13282: /* x156683 */ t74290 = p16604; p16605 = t74290; /* x156682 stalin.sc:21751:762068 */ /* x156681 stalin.sc:21751:762095 */ /* x156680 stalin.sc:21751:762069 */ t74291 = p16605->a27804; t74292 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7435; f10651(t74291, t74292); break; case NATIVE_PROCEDURE_TYPE22861: p16627 = t74240.value.native_procedure_type22861; /* x156807 stalin.sc:21774:762798 */ /* x156806 stalin.sc:21774:762817 */ t74300 = a1941; /* x156805 stalin.sc:21774:762799 */ t74299 = p16627->a27892; if ((t74299&3)==1) f10658(((struct p10641 *)(t74299-1)), t74300); else f10657(((struct p10646 *)t74299), t74300); break; case NATIVE_PROCEDURE_TYPE22862: p16616 = t74240.value.native_procedure_type22862; a27851 = t74241; /* x156772 */ /* x156771 stalin.sc:21762:762363 */ /* x156758 stalin.sc:21762:762369 */ /* x156752 stalin.sc:21762:762374 */ /* x156750 stalin.sc:21762:762383 */ /* x156751 stalin.sc:21762:762396 */ t74304 = a27851; /* x156749 stalin.sc:21762:762375 */ t74305.tag = NATIVE_PROCEDURE_TYPE7418; if ((f8137(t74305, t74304).tag)==FALSE_TYPE) goto l13285; /* x156756 */ /* x156754 stalin.sc:21762:762413 */ /* x156755 stalin.sc:21762:762426 */ t74306 = a27851; /* x156753 stalin.sc:21762:762401 */ t74307.tag = NATIVE_PROCEDURE_TYPE7418; if ((f8144(t74307, t74306).tag)==FALSE_TYPE) goto l13285; /* x156768 */ /* x156767 */ /* x156766 stalin.sc:21763:762435 */ /* x156764 stalin.sc:21763:762452 */ /* x156765 stalin.sc:21763:762503 */ t74308 = a27851; /* x156759 stalin.sc:21763:762436 */ t74309.tag = NATIVE_PROCEDURE_TYPE22865; f8173(t74309, t74308); goto l13286; l13285: /* x156770 stalin.sc:21762:762363 */ /* x156769 stalin.sc:21762:762363 */ l13286: /* x156748 */ t74301 = p16616; p16617 = t74301; /* x156747 stalin.sc:21764:762511 */ /* x156746 stalin.sc:21764:762538 */ /* x156745 stalin.sc:21764:762512 */ t74302 = p16617->a27849; t74303 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7418; f10651(t74302, t74303); break; case NATIVE_PROCEDURE_TYPE22923: p16654 = t74240.value.native_procedure_type22923; a27987 = t74241; /* x157002 */ /* x157001 stalin.sc:21824:764066 */ /* x156988 stalin.sc:21824:764072 */ /* x156982 stalin.sc:21824:764077 */ /* x156980 stalin.sc:21824:764086 */ /* x156981 stalin.sc:21824:764099 */ t74313 = a27987; /* x156979 stalin.sc:21824:764078 */ t74314.tag = NATIVE_PROCEDURE_TYPE7426; if ((f8137(t74314, t74313).tag)==FALSE_TYPE) goto l13289; /* x156986 */ /* x156984 stalin.sc:21824:764116 */ /* x156985 stalin.sc:21824:764129 */ t74315 = a27987; /* x156983 stalin.sc:21824:764104 */ t74316.tag = NATIVE_PROCEDURE_TYPE7426; if ((f8144(t74316, t74315).tag)==FALSE_TYPE) goto l13289; /* x156998 */ /* x156997 */ /* x156996 stalin.sc:21825:764138 */ /* x156994 stalin.sc:21825:764155 */ /* x156995 stalin.sc:21825:764206 */ t74317 = a27987; /* x156989 stalin.sc:21825:764139 */ t74318.tag = NATIVE_PROCEDURE_TYPE22926; f8173(t74318, t74317); goto l13290; l13289: /* x157000 stalin.sc:21824:764066 */ /* x156999 stalin.sc:21824:764066 */ l13290: /* x156978 */ t74310 = p16654; p16655 = t74310; /* x156977 stalin.sc:21826:764214 */ /* x156976 stalin.sc:21826:764241 */ /* x156975 stalin.sc:21826:764215 */ t74311 = p16655->a27985; t74312 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7426; f10651(t74311, t74312); break; case NATIVE_PROCEDURE_TYPE22928: p16689 = t74240.value.native_procedure_type22928; a28082 = t74241; /* x157240 */ /* x157227 stalin.sc:21864:765430 */ /* x157214 stalin.sc:21864:765436 */ /* x157208 stalin.sc:21864:765441 */ /* x157206 stalin.sc:21864:765450 */ /* x157207 stalin.sc:21864:765463 */ t74327 = a28082; /* x157205 stalin.sc:21864:765442 */ t74328.tag = NATIVE_PROCEDURE_TYPE7426; if ((f8137(t74328, t74327).tag)==FALSE_TYPE) goto l13296; /* x157212 */ /* x157210 stalin.sc:21864:765480 */ /* x157211 stalin.sc:21864:765493 */ t74329 = a28082; /* x157209 stalin.sc:21864:765468 */ t74330.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8144(t74330, t74329).tag)==FALSE_TYPE) goto l13296; /* x157224 */ /* x157223 */ /* x157222 stalin.sc:21865:765502 */ /* x157220 stalin.sc:21865:765519 */ /* x157221 stalin.sc:21865:765570 */ t74331 = a28082; /* x157215 stalin.sc:21865:765503 */ t74332.tag = NATIVE_PROCEDURE_TYPE22933; f8173(t74332, t74331); goto l13297; l13296: /* x157226 stalin.sc:21864:765430 */ /* x157225 stalin.sc:21864:765430 */ l13297: /* x157239 stalin.sc:21866:765578 */ /* x157231 stalin.sc:21866:765584 */ /* x157229 stalin.sc:21866:765593 */ /* x157230 stalin.sc:21866:765606 */ t74333 = a28082; /* x157228 stalin.sc:21866:765585 */ t74334.tag = NATIVE_PROCEDURE_TYPE7426; if ((f8137(t74334, t74333).tag)==FALSE_TYPE) goto l13300; /* x157236 */ /* x157235 */ t74335 = p16689; p16696 = t74335; /* x157234 stalin.sc:21866:765610 */ /* x157233 stalin.sc:21866:765629 */ t74337 = a1978; /* x157232 stalin.sc:21866:765611 */ t74336 = p16696->a28079; if ((t74336&3)==1) {/* MOVE: branching squeezed to general */ if (t74337>=((char *)VALUE_OFFSET)) {t74338.tag = EXTERNAL_SYMBOL_TYPE; t74338.value.external_symbol_type = t74337;} else t74338.tag = (unsigned)t74337; f10658(((struct p10641 *)(t74336-1)), t74338);} else {/* MOVE: branching squeezed to general */ if (t74337>=((char *)VALUE_OFFSET)) {t74339.tag = EXTERNAL_SYMBOL_TYPE; t74339.value.external_symbol_type = t74337;} else t74339.tag = (unsigned)t74337; f10657(((struct p10646 *)t74336), t74339);} goto l13301; l13300: /* x157238 stalin.sc:21866:765578 */ /* x157237 stalin.sc:21866:765578 */ l13301: /* x157204 */ t74319 = p16689; p16690 = t74319; /* x157203 stalin.sc:21867:765641 */ /* x157195 stalin.sc:21867:765647 */ /* x157193 stalin.sc:21867:765660 */ /* x157194 stalin.sc:21867:765673 */ t74320 = a28082; /* x157192 stalin.sc:21867:765648 */ t74321.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8144(t74321, t74320).tag)==FALSE_TYPE) goto l13293; /* x157200 */ /* x157199 */ t74322 = p16690; p16691 = t74322; /* x157198 stalin.sc:21867:765677 */ /* x157197 stalin.sc:21867:765696 */ t74324 = a1975; /* x157196 stalin.sc:21867:765678 */ t74323 = p16691->a28079; if ((t74323&3)==1) {/* MOVE: branching squeezed to general */ if (t74324>=((char *)VALUE_OFFSET)) {t74325.tag = EXTERNAL_SYMBOL_TYPE; t74325.value.external_symbol_type = t74324;} else t74325.tag = (unsigned)t74324; f10658(((struct p10641 *)(t74323-1)), t74325);} else {/* MOVE: branching squeezed to general */ if (t74324>=((char *)VALUE_OFFSET)) {t74326.tag = EXTERNAL_SYMBOL_TYPE; t74326.value.external_symbol_type = t74324;} else t74326.tag = (unsigned)t74324; f10657(((struct p10646 *)t74323), t74326);} goto l13294; l13293: /* x157202 stalin.sc:21867:765641 */ /* x157201 stalin.sc:21867:765641 */ l13294: break; case NATIVE_PROCEDURE_TYPE22937: p16667 = t74240.value.native_procedure_type22937; a28033 = t74241; /* x157105 */ /* x157092 stalin.sc:21839:764574 */ /* x157079 stalin.sc:21839:764580 */ /* x157073 stalin.sc:21839:764585 */ /* x157071 stalin.sc:21839:764594 */ /* x157072 stalin.sc:21839:764607 */ t74348 = a28033; /* x157070 stalin.sc:21839:764586 */ t74349.tag = NATIVE_PROCEDURE_TYPE7426; if ((f8137(t74349, t74348).tag)==FALSE_TYPE) goto l13306; /* x157077 */ /* x157075 stalin.sc:21840:764631 */ /* x157076 stalin.sc:21840:764659 */ t74350 = a28033; /* x157074 stalin.sc:21840:764619 */ t74351.tag = NATIVE_PROCEDURE_TYPE7428; if ((f8144(t74351, t74350).tag)==FALSE_TYPE) goto l13306; /* x157089 */ /* x157088 */ /* x157087 stalin.sc:21841:764668 */ /* x157085 stalin.sc:21841:764685 */ /* x157086 stalin.sc:21841:764736 */ t74352 = a28033; /* x157080 stalin.sc:21841:764669 */ t74353.tag = NATIVE_PROCEDURE_TYPE22942; f8173(t74353, t74352); goto l13307; l13306: /* x157091 stalin.sc:21839:764574 */ /* x157090 stalin.sc:21839:764574 */ l13307: /* x157104 stalin.sc:21842:764744 */ /* x157096 stalin.sc:21842:764750 */ /* x157094 stalin.sc:21842:764759 */ /* x157095 stalin.sc:21842:764772 */ t74354 = a28033; /* x157093 stalin.sc:21842:764751 */ t74355.tag = NATIVE_PROCEDURE_TYPE7426; if ((f8137(t74355, t74354).tag)==FALSE_TYPE) goto l13310; /* x157101 */ /* x157100 */ t74356 = p16667; p16674 = t74356; /* x157099 stalin.sc:21842:764776 */ /* x157098 stalin.sc:21842:764795 */ t74358 = a1978; /* x157097 stalin.sc:21842:764777 */ t74357 = p16674->a28030; if ((t74357&3)==1) {/* MOVE: branching squeezed to general */ if (t74358>=((char *)VALUE_OFFSET)) {t74359.tag = EXTERNAL_SYMBOL_TYPE; t74359.value.external_symbol_type = t74358;} else t74359.tag = (unsigned)t74358; f10658(((struct p10641 *)(t74357-1)), t74359);} else {/* MOVE: branching squeezed to general */ if (t74358>=((char *)VALUE_OFFSET)) {t74360.tag = EXTERNAL_SYMBOL_TYPE; t74360.value.external_symbol_type = t74358;} else t74360.tag = (unsigned)t74358; f10657(((struct p10646 *)t74357), t74360);} goto l13311; l13310: /* x157103 stalin.sc:21842:764744 */ /* x157102 stalin.sc:21842:764744 */ l13311: /* x157069 */ t74340 = p16667; p16668 = t74340; /* x157068 stalin.sc:21843:764807 */ /* x157060 stalin.sc:21843:764813 */ /* x157058 stalin.sc:21843:764826 */ /* x157059 stalin.sc:21843:764854 */ t74341 = a28033; /* x157057 stalin.sc:21843:764814 */ t74342.tag = NATIVE_PROCEDURE_TYPE7428; if ((f8144(t74342, t74341).tag)==FALSE_TYPE) goto l13303; /* x157065 */ /* x157064 */ t74343 = p16668; p16669 = t74343; /* x157063 stalin.sc:21844:764862 */ /* x157062 stalin.sc:21844:764881 */ t74345 = a1975; /* x157061 stalin.sc:21844:764863 */ t74344 = p16669->a28030; if ((t74344&3)==1) {/* MOVE: branching squeezed to general */ if (t74345>=((char *)VALUE_OFFSET)) {t74346.tag = EXTERNAL_SYMBOL_TYPE; t74346.value.external_symbol_type = t74345;} else t74346.tag = (unsigned)t74345; f10658(((struct p10641 *)(t74344-1)), t74346);} else {/* MOVE: branching squeezed to general */ if (t74345>=((char *)VALUE_OFFSET)) {t74347.tag = EXTERNAL_SYMBOL_TYPE; t74347.value.external_symbol_type = t74345;} else t74347.tag = (unsigned)t74345; f10657(((struct p10646 *)t74344), t74347);} goto l13304; l13303: /* x157067 stalin.sc:21843:764807 */ /* x157066 stalin.sc:21843:764807 */ l13304: break; case NATIVE_PROCEDURE_TYPE22946: p16727 = t74240.value.native_procedure_type22946; a28177 = t74241; /* x157492 */ /* x157491 stalin.sc:21912:766970 */ /* x157483 stalin.sc:21912:766976 */ /* x157482 stalin.sc:21912:766980 */ /* x157480 stalin.sc:21912:766989 */ /* x157481 stalin.sc:21912:767002 */ t74369 = a28177; /* x157479 stalin.sc:21912:766981 */ t74370.tag = NATIVE_PROCEDURE_TYPE7429; if (!((f8137(t74370, t74369).tag)==FALSE_TYPE)) goto l13315; /* x157476 */ /* x157474 stalin.sc:21912:767015 */ /* x157475 stalin.sc:21912:767033 */ t74371 = a28177; /* x157473 stalin.sc:21912:767007 */ t74372.tag = NATIVE_PROCEDURE_TYPE7427; if ((f8137(t74372, t74371).tag)==FALSE_TYPE) goto l13316; l13315: /* x157488 */ /* x157487 */ t74373 = p16727; p16732 = t74373; /* x157486 stalin.sc:21913:767042 */ /* x157485 stalin.sc:21913:767061 */ t74375 = a1978; /* x157484 stalin.sc:21913:767043 */ t74374 = p16732->a28174; if ((t74374&3)==1) {/* MOVE: branching squeezed to general */ if (t74375>=((char *)VALUE_OFFSET)) {t74376.tag = EXTERNAL_SYMBOL_TYPE; t74376.value.external_symbol_type = t74375;} else t74376.tag = (unsigned)t74375; f10658(((struct p10641 *)(t74374-1)), t74376);} else {/* MOVE: branching squeezed to general */ if (t74375>=((char *)VALUE_OFFSET)) {t74377.tag = EXTERNAL_SYMBOL_TYPE; t74377.value.external_symbol_type = t74375;} else t74377.tag = (unsigned)t74375; f10657(((struct p10646 *)t74374), t74377);} goto l13317; l13316: /* x157490 stalin.sc:21912:766970 */ /* x157489 stalin.sc:21912:766970 */ l13317: /* x157470 */ t74361 = p16727; p16728 = t74361; /* x157469 stalin.sc:21914:767073 */ /* x157461 stalin.sc:21914:767079 */ /* x157459 stalin.sc:21914:767088 */ /* x157460 stalin.sc:21914:767101 */ t74362 = a28177; /* x157458 stalin.sc:21914:767080 */ t74363.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t74363, t74362).tag)==FALSE_TYPE) goto l13313; /* x157466 */ /* x157465 */ t74364 = p16728; p16729 = t74364; /* x157464 stalin.sc:21914:767105 */ /* x157463 stalin.sc:21914:767124 */ t74366 = a1975; /* x157462 stalin.sc:21914:767106 */ t74365 = p16729->a28174; if ((t74365&3)==1) {/* MOVE: branching squeezed to general */ if (t74366>=((char *)VALUE_OFFSET)) {t74367.tag = EXTERNAL_SYMBOL_TYPE; t74367.value.external_symbol_type = t74366;} else t74367.tag = (unsigned)t74366; f10658(((struct p10641 *)(t74365-1)), t74367);} else {/* MOVE: branching squeezed to general */ if (t74366>=((char *)VALUE_OFFSET)) {t74368.tag = EXTERNAL_SYMBOL_TYPE; t74368.value.external_symbol_type = t74366;} else t74368.tag = (unsigned)t74366; f10657(((struct p10646 *)t74365), t74368);} goto l13314; l13313: /* x157468 stalin.sc:21914:767073 */ /* x157467 stalin.sc:21914:767073 */ l13314: break; case NATIVE_PROCEDURE_TYPE22963: p16812 = t74240.value.native_procedure_type22963; /* x157974 */ /* x157973 stalin.sc:22006:770084 */ /* x157972 stalin.sc:22006:770103 */ t74384 = a1978; /* x157971 stalin.sc:22006:770085 */ t74383 = p16812->a28480; if ((t74383&3)==1) {/* MOVE: branching squeezed to general */ if (t74384>=((char *)VALUE_OFFSET)) {t74385.tag = EXTERNAL_SYMBOL_TYPE; t74385.value.external_symbol_type = t74384;} else t74385.tag = (unsigned)t74384; f10658(((struct p10641 *)(t74383-1)), t74385);} else {/* MOVE: branching squeezed to general */ if (t74384>=((char *)VALUE_OFFSET)) {t74386.tag = EXTERNAL_SYMBOL_TYPE; t74386.value.external_symbol_type = t74384;} else t74386.tag = (unsigned)t74384; f10657(((struct p10646 *)t74383), t74386);} /* x157970 */ t74378 = p16812; p16813 = t74378; /* x157969 stalin.sc:22007:770117 */ /* x157968 stalin.sc:22007:770136 */ t74380 = a1975; /* x157967 stalin.sc:22007:770118 */ t74379 = p16813->a28480; if ((t74379&3)==1) {/* MOVE: branching squeezed to general */ if (t74380>=((char *)VALUE_OFFSET)) {t74381.tag = EXTERNAL_SYMBOL_TYPE; t74381.value.external_symbol_type = t74380;} else t74381.tag = (unsigned)t74380; f10658(((struct p10641 *)(t74379-1)), t74381);} else {/* MOVE: branching squeezed to general */ if (t74380>=((char *)VALUE_OFFSET)) {t74382.tag = EXTERNAL_SYMBOL_TYPE; t74382.value.external_symbol_type = t74380;} else t74382.tag = (unsigned)t74380; f10657(((struct p10646 *)t74379), t74382);} break; case NATIVE_PROCEDURE_TYPE22969: p16711 = t74240.value.native_procedure_type22969; a28130 = t74241; /* x157399 */ /* x157398 stalin.sc:21894:766389 */ /* x157390 stalin.sc:21894:766395 */ /* x157388 stalin.sc:21894:766404 */ /* x157389 stalin.sc:21894:766417 */ t74397 = a28130; /* x157387 stalin.sc:21894:766396 */ t74398.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t74398, t74397).tag)==FALSE_TYPE) goto l13324; /* x157395 */ /* x157394 */ t74399 = p16711; p16716 = t74399; /* x157393 stalin.sc:21894:766421 */ /* x157392 stalin.sc:21894:766440 */ t74401 = a1978; /* x157391 stalin.sc:21894:766422 */ t74400 = p16716->a28127; if ((t74400&3)==1) {/* MOVE: branching squeezed to general */ if (t74401>=((char *)VALUE_OFFSET)) {t74402.tag = EXTERNAL_SYMBOL_TYPE; t74402.value.external_symbol_type = t74401;} else t74402.tag = (unsigned)t74401; f10658(((struct p10641 *)(t74400-1)), t74402);} else {/* MOVE: branching squeezed to general */ if (t74401>=((char *)VALUE_OFFSET)) {t74403.tag = EXTERNAL_SYMBOL_TYPE; t74403.value.external_symbol_type = t74401;} else t74403.tag = (unsigned)t74401; f10657(((struct p10646 *)t74400), t74403);} goto l13325; l13324: /* x157397 stalin.sc:21894:766389 */ /* x157396 stalin.sc:21894:766389 */ l13325: /* x157386 */ t74387 = p16711; p16712 = t74387; /* x157385 stalin.sc:21895:766452 */ /* x157377 stalin.sc:21895:766458 */ /* x157376 stalin.sc:21895:766462 */ /* x157374 stalin.sc:21895:766471 */ /* x157375 stalin.sc:21895:766484 */ t74388 = a28130; /* x157373 stalin.sc:21895:766463 */ t74389.tag = NATIVE_PROCEDURE_TYPE7429; if (!((f8137(t74389, t74388).tag)==FALSE_TYPE)) goto l13319; /* x157370 */ /* x157368 stalin.sc:21895:766497 */ /* x157369 stalin.sc:21895:766515 */ t74390 = a28130; /* x157367 stalin.sc:21895:766489 */ t74391.tag = NATIVE_PROCEDURE_TYPE7427; if ((f8137(t74391, t74390).tag)==FALSE_TYPE) goto l13320; l13319: /* x157382 */ /* x157381 */ t74392 = p16712; p16714 = t74392; /* x157380 stalin.sc:21896:766524 */ /* x157379 stalin.sc:21896:766543 */ t74394 = a1975; /* x157378 stalin.sc:21896:766525 */ t74393 = p16714->a28127; if ((t74393&3)==1) {/* MOVE: branching squeezed to general */ if (t74394>=((char *)VALUE_OFFSET)) {t74395.tag = EXTERNAL_SYMBOL_TYPE; t74395.value.external_symbol_type = t74394;} else t74395.tag = (unsigned)t74394; f10658(((struct p10641 *)(t74393-1)), t74395);} else {/* MOVE: branching squeezed to general */ if (t74394>=((char *)VALUE_OFFSET)) {t74396.tag = EXTERNAL_SYMBOL_TYPE; t74396.value.external_symbol_type = t74394;} else t74396.tag = (unsigned)t74394; f10657(((struct p10646 *)t74393), t74396);} goto l13321; l13320: /* x157384 stalin.sc:21895:766452 */ /* x157383 stalin.sc:21895:766452 */ l13321: break; case NATIVE_PROCEDURE_TYPE22976: p16640 = t74240.value.native_procedure_type22976; a27940 = t74241; /* x156907 stalin.sc:21799:763459 */ /* x156905 stalin.sc:21800:763480 */ t74404 = p16640; /* x156906 stalin.sc:21802:763571 */ t74405 = a27940; /* x156891 stalin.sc:21799:763460 */ t74406.tag = NATIVE_PROCEDURE_TYPE22977; t74406.value.native_procedure_type22977 = t74404; f8173(t74406, t74405); break; case NATIVE_PROCEDURE_TYPE22985: p16849 = t74240.value.native_procedure_type22985; /* x158293 */ /* x158292 stalin.sc:22068:771852 */ /* x158291 stalin.sc:22068:771871 */ t74413 = a1978; /* x158290 stalin.sc:22068:771853 */ t74412 = p16849->a28578; if ((t74412&3)==1) {/* MOVE: branching squeezed to general */ if (t74413>=((char *)VALUE_OFFSET)) {t74414.tag = EXTERNAL_SYMBOL_TYPE; t74414.value.external_symbol_type = t74413;} else t74414.tag = (unsigned)t74413; f10658(((struct p10641 *)(t74412-1)), t74414);} else {/* MOVE: branching squeezed to general */ if (t74413>=((char *)VALUE_OFFSET)) {t74415.tag = EXTERNAL_SYMBOL_TYPE; t74415.value.external_symbol_type = t74413;} else t74415.tag = (unsigned)t74413; f10657(((struct p10646 *)t74412), t74415);} /* x158289 */ t74407 = p16849; p16850 = t74407; /* x158288 stalin.sc:22069:771885 */ /* x158287 stalin.sc:22069:771904 */ t74409 = a1975; /* x158286 stalin.sc:22069:771886 */ t74408 = p16850->a28578; if ((t74408&3)==1) {/* MOVE: branching squeezed to general */ if (t74409>=((char *)VALUE_OFFSET)) {t74410.tag = EXTERNAL_SYMBOL_TYPE; t74410.value.external_symbol_type = t74409;} else t74410.tag = (unsigned)t74409; f10658(((struct p10641 *)(t74408-1)), t74410);} else {/* MOVE: branching squeezed to general */ if (t74409>=((char *)VALUE_OFFSET)) {t74411.tag = EXTERNAL_SYMBOL_TYPE; t74411.value.external_symbol_type = t74409;} else t74411.tag = (unsigned)t74409; f10657(((struct p10646 *)t74408), t74411);} break; case NATIVE_PROCEDURE_TYPE23083: p16835 = t74240.value.native_procedure_type23083; /* x158164 */ /* x158163 stalin.sc:22040:771051 */ /* x158162 stalin.sc:22040:771070 */ t74422 = a1978; /* x158161 stalin.sc:22040:771052 */ t74421 = p16835->a28533; if ((t74421&3)==1) {/* MOVE: branching squeezed to general */ if (t74422>=((char *)VALUE_OFFSET)) {t74423.tag = EXTERNAL_SYMBOL_TYPE; t74423.value.external_symbol_type = t74422;} else t74423.tag = (unsigned)t74422; f10658(((struct p10641 *)(t74421-1)), t74423);} else {/* MOVE: branching squeezed to general */ if (t74422>=((char *)VALUE_OFFSET)) {t74424.tag = EXTERNAL_SYMBOL_TYPE; t74424.value.external_symbol_type = t74422;} else t74424.tag = (unsigned)t74422; f10657(((struct p10646 *)t74421), t74424);} /* x158160 */ t74416 = p16835; p16836 = t74416; /* x158159 stalin.sc:22041:771084 */ /* x158158 stalin.sc:22041:771103 */ t74418 = a1975; /* x158157 stalin.sc:22041:771085 */ t74417 = p16836->a28533; if ((t74417&3)==1) {/* MOVE: branching squeezed to general */ if (t74418>=((char *)VALUE_OFFSET)) {t74419.tag = EXTERNAL_SYMBOL_TYPE; t74419.value.external_symbol_type = t74418;} else t74419.tag = (unsigned)t74418; f10658(((struct p10641 *)(t74417-1)), t74419);} else {/* MOVE: branching squeezed to general */ if (t74418>=((char *)VALUE_OFFSET)) {t74420.tag = EXTERNAL_SYMBOL_TYPE; t74420.value.external_symbol_type = t74418;} else t74420.tag = (unsigned)t74418; f10657(((struct p10646 *)t74417), t74420);} break; case NATIVE_PROCEDURE_TYPE23095: p17205 = t74240.value.native_procedure_type23095; /* x161414 stalin.sc:22699:792409 */ /* x161413 stalin.sc:22699:792428 */ t74426 = a1969; /* x161412 stalin.sc:22699:792410 */ t74425 = p17205->a29186; if ((t74425&3)==1) {/* MOVE: branching squeezed to general */ if (t74426>=((char *)VALUE_OFFSET)) {t74427.tag = EXTERNAL_SYMBOL_TYPE; t74427.value.external_symbol_type = t74426;} else t74427.tag = (unsigned)t74426; f10658(((struct p10641 *)(t74425-1)), t74427);} else {/* MOVE: branching squeezed to general */ if (t74426>=((char *)VALUE_OFFSET)) {t74428.tag = EXTERNAL_SYMBOL_TYPE; t74428.value.external_symbol_type = t74426;} else t74428.tag = (unsigned)t74426; f10657(((struct p10646 *)t74425), t74428);} break; case NATIVE_PROCEDURE_TYPE23097: p17281 = t74240.value.native_procedure_type23097; a29435 = t74241; /* x161946 */ /* x161945 stalin.sc:22821:796307 */ /* x161937 stalin.sc:22821:796313 */ /* x161935 stalin.sc:22821:796322 */ /* x161936 stalin.sc:22821:796335 */ t74439 = a29435; /* x161934 stalin.sc:22821:796314 */ t74440.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t74440, t74439).tag)==FALSE_TYPE) goto l13331; /* x161942 */ /* x161941 */ t74441 = p17281; p17286 = t74441; /* x161940 stalin.sc:22821:796339 */ /* x161939 stalin.sc:22821:796358 */ t74443 = a1969; /* x161938 stalin.sc:22821:796340 */ t74442 = p17286->a29432; if ((t74442&3)==1) {/* MOVE: branching squeezed to general */ if (t74443>=((char *)VALUE_OFFSET)) {t74444.tag = EXTERNAL_SYMBOL_TYPE; t74444.value.external_symbol_type = t74443;} else t74444.tag = (unsigned)t74443; f10658(((struct p10641 *)(t74442-1)), t74444);} else {/* MOVE: branching squeezed to general */ if (t74443>=((char *)VALUE_OFFSET)) {t74445.tag = EXTERNAL_SYMBOL_TYPE; t74445.value.external_symbol_type = t74443;} else t74445.tag = (unsigned)t74443; f10657(((struct p10646 *)t74442), t74445);} goto l13332; l13331: /* x161944 stalin.sc:22821:796307 */ /* x161943 stalin.sc:22821:796307 */ l13332: /* x161933 */ t74429 = p17281; p17282 = t74429; /* x161932 stalin.sc:22822:796372 */ /* x161924 stalin.sc:22822:796378 */ /* x161923 stalin.sc:22822:796382 */ /* x161921 stalin.sc:22822:796391 */ /* x161922 stalin.sc:22822:796404 */ t74430 = a29435; /* x161920 stalin.sc:22822:796383 */ t74431.tag = NATIVE_PROCEDURE_TYPE7429; if (!((f8137(t74431, t74430).tag)==FALSE_TYPE)) goto l13326; /* x161917 */ /* x161915 stalin.sc:22822:796417 */ /* x161916 stalin.sc:22822:796435 */ t74432 = a29435; /* x161914 stalin.sc:22822:796409 */ t74433.tag = NATIVE_PROCEDURE_TYPE7427; if ((f8137(t74433, t74432).tag)==FALSE_TYPE) goto l13327; l13326: /* x161929 */ /* x161928 */ t74434 = p17282; p17284 = t74434; /* x161927 stalin.sc:22823:796444 */ /* x161926 stalin.sc:22823:796463 */ t74436 = a1966; /* x161925 stalin.sc:22823:796445 */ t74435 = p17284->a29432; if ((t74435&3)==1) {/* MOVE: branching squeezed to general */ if (t74436>=((char *)VALUE_OFFSET)) {t74437.tag = EXTERNAL_SYMBOL_TYPE; t74437.value.external_symbol_type = t74436;} else t74437.tag = (unsigned)t74436; f10658(((struct p10641 *)(t74435-1)), t74437);} else {/* MOVE: branching squeezed to general */ if (t74436>=((char *)VALUE_OFFSET)) {t74438.tag = EXTERNAL_SYMBOL_TYPE; t74438.value.external_symbol_type = t74436;} else t74438.tag = (unsigned)t74436; f10657(((struct p10646 *)t74435), t74438);} goto l13328; l13327: /* x161931 stalin.sc:22822:796372 */ /* x161930 stalin.sc:22822:796372 */ l13328: break; case NATIVE_PROCEDURE_TYPE23104: p17319 = t74240.value.native_procedure_type23104; a29527 = t74241; /* x162296 */ /* x162295 stalin.sc:22893:798429 */ /* x162287 stalin.sc:22893:798435 */ /* x162285 stalin.sc:22893:798444 */ /* x162286 stalin.sc:22893:798457 */ t74456 = a29527; /* x162284 stalin.sc:22893:798436 */ t74457.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t74457, t74456).tag)==FALSE_TYPE) goto l13338; /* x162292 */ /* x162291 */ t74458 = p17319; p17324 = t74458; /* x162290 stalin.sc:22893:798461 */ /* x162289 stalin.sc:22893:798480 */ t74460 = a1969; /* x162288 stalin.sc:22893:798462 */ t74459 = p17324->a29524; if ((t74459&3)==1) {/* MOVE: branching squeezed to general */ if (t74460>=((char *)VALUE_OFFSET)) {t74461.tag = EXTERNAL_SYMBOL_TYPE; t74461.value.external_symbol_type = t74460;} else t74461.tag = (unsigned)t74460; f10658(((struct p10641 *)(t74459-1)), t74461);} else {/* MOVE: branching squeezed to general */ if (t74460>=((char *)VALUE_OFFSET)) {t74462.tag = EXTERNAL_SYMBOL_TYPE; t74462.value.external_symbol_type = t74460;} else t74462.tag = (unsigned)t74460; f10657(((struct p10646 *)t74459), t74462);} goto l13339; l13338: /* x162294 stalin.sc:22893:798429 */ /* x162293 stalin.sc:22893:798429 */ l13339: /* x162283 */ t74446 = p17319; p17320 = t74446; /* x162282 stalin.sc:22894:798494 */ /* x162274 stalin.sc:22894:798500 */ /* x162273 stalin.sc:22894:798504 */ /* x162271 stalin.sc:22894:798513 */ /* x162272 stalin.sc:22894:798526 */ t74447 = a29527; /* x162270 stalin.sc:22894:798505 */ t74448.tag = NATIVE_PROCEDURE_TYPE7429; if (!((f8137(t74448, t74447).tag)==FALSE_TYPE)) goto l13333; /* x162267 */ /* x162265 stalin.sc:22894:798539 */ /* x162266 stalin.sc:22894:798557 */ t74449 = a29527; /* x162264 stalin.sc:22894:798531 */ t74450.tag = NATIVE_PROCEDURE_TYPE7427; if ((f8137(t74450, t74449).tag)==FALSE_TYPE) goto l13334; l13333: /* x162279 */ /* x162278 */ t74451 = p17320; p17322 = t74451; /* x162277 stalin.sc:22895:798566 */ /* x162276 stalin.sc:22895:798585 */ t74453 = a1966; /* x162275 stalin.sc:22895:798567 */ t74452 = p17322->a29524; if ((t74452&3)==1) {/* MOVE: branching squeezed to general */ if (t74453>=((char *)VALUE_OFFSET)) {t74454.tag = EXTERNAL_SYMBOL_TYPE; t74454.value.external_symbol_type = t74453;} else t74454.tag = (unsigned)t74453; f10658(((struct p10641 *)(t74452-1)), t74454);} else {/* MOVE: branching squeezed to general */ if (t74453>=((char *)VALUE_OFFSET)) {t74455.tag = EXTERNAL_SYMBOL_TYPE; t74455.value.external_symbol_type = t74453;} else t74455.tag = (unsigned)t74453; f10657(((struct p10646 *)t74452), t74455);} goto l13335; l13334: /* x162281 stalin.sc:22894:798494 */ /* x162280 stalin.sc:22894:798494 */ l13335: break; case NATIVE_PROCEDURE_TYPE23111: p17300 = t74240.value.native_procedure_type23111; a29481 = t74241; /* x162103 */ /* x162102 stalin.sc:22853:797270 */ /* x162094 stalin.sc:22853:797276 */ /* x162092 stalin.sc:22853:797285 */ /* x162093 stalin.sc:22853:797298 */ t74473 = a29481; /* x162091 stalin.sc:22853:797277 */ t74474.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t74474, t74473).tag)==FALSE_TYPE) goto l13345; /* x162099 */ /* x162098 */ t74475 = p17300; p17305 = t74475; /* x162097 stalin.sc:22853:797302 */ /* x162096 stalin.sc:22853:797321 */ t74477 = a1969; /* x162095 stalin.sc:22853:797303 */ t74476 = p17305->a29478; if ((t74476&3)==1) {/* MOVE: branching squeezed to general */ if (t74477>=((char *)VALUE_OFFSET)) {t74478.tag = EXTERNAL_SYMBOL_TYPE; t74478.value.external_symbol_type = t74477;} else t74478.tag = (unsigned)t74477; f10658(((struct p10641 *)(t74476-1)), t74478);} else {/* MOVE: branching squeezed to general */ if (t74477>=((char *)VALUE_OFFSET)) {t74479.tag = EXTERNAL_SYMBOL_TYPE; t74479.value.external_symbol_type = t74477;} else t74479.tag = (unsigned)t74477; f10657(((struct p10646 *)t74476), t74479);} goto l13346; l13345: /* x162101 stalin.sc:22853:797270 */ /* x162100 stalin.sc:22853:797270 */ l13346: /* x162090 */ t74463 = p17300; p17301 = t74463; /* x162089 stalin.sc:22854:797335 */ /* x162081 stalin.sc:22854:797341 */ /* x162080 stalin.sc:22854:797345 */ /* x162078 stalin.sc:22854:797354 */ /* x162079 stalin.sc:22854:797367 */ t74464 = a29481; /* x162077 stalin.sc:22854:797346 */ t74465.tag = NATIVE_PROCEDURE_TYPE7429; if (!((f8137(t74465, t74464).tag)==FALSE_TYPE)) goto l13340; /* x162074 */ /* x162072 stalin.sc:22854:797380 */ /* x162073 stalin.sc:22854:797398 */ t74466 = a29481; /* x162071 stalin.sc:22854:797372 */ t74467.tag = NATIVE_PROCEDURE_TYPE7427; if ((f8137(t74467, t74466).tag)==FALSE_TYPE) goto l13341; l13340: /* x162086 */ /* x162085 */ t74468 = p17301; p17303 = t74468; /* x162084 stalin.sc:22855:797407 */ /* x162083 stalin.sc:22855:797426 */ t74470 = a1966; /* x162082 stalin.sc:22855:797408 */ t74469 = p17303->a29478; if ((t74469&3)==1) {/* MOVE: branching squeezed to general */ if (t74470>=((char *)VALUE_OFFSET)) {t74471.tag = EXTERNAL_SYMBOL_TYPE; t74471.value.external_symbol_type = t74470;} else t74471.tag = (unsigned)t74470; f10658(((struct p10641 *)(t74469-1)), t74471);} else {/* MOVE: branching squeezed to general */ if (t74470>=((char *)VALUE_OFFSET)) {t74472.tag = EXTERNAL_SYMBOL_TYPE; t74472.value.external_symbol_type = t74470;} else t74472.tag = (unsigned)t74470; f10657(((struct p10646 *)t74469), t74472);} goto l13342; l13341: /* x162088 stalin.sc:22854:797335 */ /* x162087 stalin.sc:22854:797335 */ l13342: break; case NATIVE_PROCEDURE_TYPE23118: p17262 = t74240.value.native_procedure_type23118; a29389 = t74241; /* x161789 */ /* x161788 stalin.sc:22788:795356 */ /* x161780 stalin.sc:22788:795362 */ /* x161778 stalin.sc:22788:795371 */ /* x161779 stalin.sc:22788:795384 */ t74490 = a29389; /* x161777 stalin.sc:22788:795363 */ t74491.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t74491, t74490).tag)==FALSE_TYPE) goto l13352; /* x161785 */ /* x161784 */ t74492 = p17262; p17267 = t74492; /* x161783 stalin.sc:22788:795388 */ /* x161782 stalin.sc:22788:795407 */ t74494 = a1969; /* x161781 stalin.sc:22788:795389 */ t74493 = p17267->a29386; if ((t74493&3)==1) {/* MOVE: branching squeezed to general */ if (t74494>=((char *)VALUE_OFFSET)) {t74495.tag = EXTERNAL_SYMBOL_TYPE; t74495.value.external_symbol_type = t74494;} else t74495.tag = (unsigned)t74494; f10658(((struct p10641 *)(t74493-1)), t74495);} else {/* MOVE: branching squeezed to general */ if (t74494>=((char *)VALUE_OFFSET)) {t74496.tag = EXTERNAL_SYMBOL_TYPE; t74496.value.external_symbol_type = t74494;} else t74496.tag = (unsigned)t74494; f10657(((struct p10646 *)t74493), t74496);} goto l13353; l13352: /* x161787 stalin.sc:22788:795356 */ /* x161786 stalin.sc:22788:795356 */ l13353: /* x161776 */ t74480 = p17262; p17263 = t74480; /* x161775 stalin.sc:22789:795421 */ /* x161767 stalin.sc:22789:795427 */ /* x161766 stalin.sc:22789:795431 */ /* x161764 stalin.sc:22789:795440 */ /* x161765 stalin.sc:22789:795453 */ t74481 = a29389; /* x161763 stalin.sc:22789:795432 */ t74482.tag = NATIVE_PROCEDURE_TYPE7429; if (!((f8137(t74482, t74481).tag)==FALSE_TYPE)) goto l13347; /* x161760 */ /* x161758 stalin.sc:22789:795466 */ /* x161759 stalin.sc:22789:795484 */ t74483 = a29389; /* x161757 stalin.sc:22789:795458 */ t74484.tag = NATIVE_PROCEDURE_TYPE7427; if ((f8137(t74484, t74483).tag)==FALSE_TYPE) goto l13348; l13347: /* x161772 */ /* x161771 */ t74485 = p17263; p17265 = t74485; /* x161770 stalin.sc:22790:795493 */ /* x161769 stalin.sc:22790:795512 */ t74487 = a1966; /* x161768 stalin.sc:22790:795494 */ t74486 = p17265->a29386; if ((t74486&3)==1) {/* MOVE: branching squeezed to general */ if (t74487>=((char *)VALUE_OFFSET)) {t74488.tag = EXTERNAL_SYMBOL_TYPE; t74488.value.external_symbol_type = t74487;} else t74488.tag = (unsigned)t74487; f10658(((struct p10641 *)(t74486-1)), t74488);} else {/* MOVE: branching squeezed to general */ if (t74487>=((char *)VALUE_OFFSET)) {t74489.tag = EXTERNAL_SYMBOL_TYPE; t74489.value.external_symbol_type = t74487;} else t74489.tag = (unsigned)t74487; f10657(((struct p10646 *)t74486), t74489);} goto l13349; l13348: /* x161774 stalin.sc:22789:795421 */ /* x161773 stalin.sc:22789:795421 */ l13349: break; case NATIVE_PROCEDURE_TYPE23126: p17350 = t74240.value.native_procedure_type23126; /* x162497 stalin.sc:22958:800941 */ /* x162496 stalin.sc:22958:800960 */ t74498 = a1966; /* x162495 stalin.sc:22958:800942 */ t74497 = p17350->a29614; if ((t74497&3)==1) {/* MOVE: branching squeezed to general */ if (t74498>=((char *)VALUE_OFFSET)) {t74499.tag = EXTERNAL_SYMBOL_TYPE; t74499.value.external_symbol_type = t74498;} else t74499.tag = (unsigned)t74498; f10658(((struct p10641 *)(t74497-1)), t74499);} else {/* MOVE: branching squeezed to general */ if (t74498>=((char *)VALUE_OFFSET)) {t74500.tag = EXTERNAL_SYMBOL_TYPE; t74500.value.external_symbol_type = t74498;} else t74500.tag = (unsigned)t74498; f10657(((struct p10646 *)t74497), t74500);} break; case NATIVE_PROCEDURE_TYPE23127: p17374 = t74240.value.native_procedure_type23127; /* x162649 stalin.sc:23002:802173 */ /* x162648 stalin.sc:23002:802192 */ t74502 = a1966; /* x162647 stalin.sc:23002:802174 */ t74501 = p17374->a29702; if ((t74501&3)==1) {/* MOVE: branching squeezed to general */ if (t74502>=((char *)VALUE_OFFSET)) {t74503.tag = EXTERNAL_SYMBOL_TYPE; t74503.value.external_symbol_type = t74502;} else t74503.tag = (unsigned)t74502; f10658(((struct p10641 *)(t74501-1)), t74503);} else {/* MOVE: branching squeezed to general */ if (t74502>=((char *)VALUE_OFFSET)) {t74504.tag = EXTERNAL_SYMBOL_TYPE; t74504.value.external_symbol_type = t74502;} else t74504.tag = (unsigned)t74502; f10657(((struct p10646 *)t74501), t74504);} break; case NATIVE_PROCEDURE_TYPE23128: p17362 = t74240.value.native_procedure_type23128; /* x162573 stalin.sc:22980:801557 */ /* x162572 stalin.sc:22980:801576 */ t74506 = a1966; /* x162571 stalin.sc:22980:801558 */ t74505 = p17362->a29658; if ((t74505&3)==1) {/* MOVE: branching squeezed to general */ if (t74506>=((char *)VALUE_OFFSET)) {t74507.tag = EXTERNAL_SYMBOL_TYPE; t74507.value.external_symbol_type = t74506;} else t74507.tag = (unsigned)t74506; f10658(((struct p10641 *)(t74505-1)), t74507);} else {/* MOVE: branching squeezed to general */ if (t74506>=((char *)VALUE_OFFSET)) {t74508.tag = EXTERNAL_SYMBOL_TYPE; t74508.value.external_symbol_type = t74506;} else t74508.tag = (unsigned)t74506; f10657(((struct p10646 *)t74505), t74508);} break; case NATIVE_PROCEDURE_TYPE23129: p17398 = t74240.value.native_procedure_type23129; /* x162801 stalin.sc:23059:804343 */ /* x162800 stalin.sc:23059:804362 */ t74510 = a1966; /* x162799 stalin.sc:23059:804344 */ t74509 = p17398->a29790; if ((t74509&3)==1) {/* MOVE: branching squeezed to general */ if (t74510>=((char *)VALUE_OFFSET)) {t74511.tag = EXTERNAL_SYMBOL_TYPE; t74511.value.external_symbol_type = t74510;} else t74511.tag = (unsigned)t74510; f10658(((struct p10641 *)(t74509-1)), t74511);} else {/* MOVE: branching squeezed to general */ if (t74510>=((char *)VALUE_OFFSET)) {t74512.tag = EXTERNAL_SYMBOL_TYPE; t74512.value.external_symbol_type = t74510;} else t74512.tag = (unsigned)t74510; f10657(((struct p10646 *)t74509), t74512);} break; case NATIVE_PROCEDURE_TYPE23139: p17410 = t74240.value.native_procedure_type23139; /* x162877 stalin.sc:23094:805892 */ /* x162876 stalin.sc:23094:805911 */ t74514 = a1966; /* x162875 stalin.sc:23094:805893 */ t74513 = p17410->a29834; if ((t74513&3)==1) {/* MOVE: branching squeezed to general */ if (t74514>=((char *)VALUE_OFFSET)) {t74515.tag = EXTERNAL_SYMBOL_TYPE; t74515.value.external_symbol_type = t74514;} else t74515.tag = (unsigned)t74514; f10658(((struct p10641 *)(t74513-1)), t74515);} else {/* MOVE: branching squeezed to general */ if (t74514>=((char *)VALUE_OFFSET)) {t74516.tag = EXTERNAL_SYMBOL_TYPE; t74516.value.external_symbol_type = t74514;} else t74516.tag = (unsigned)t74514; f10657(((struct p10646 *)t74513), t74516);} break; case NATIVE_PROCEDURE_TYPE23146: p17445 = t74240.value.native_procedure_type23146; /* x163125 stalin.sc:23182:808929 */ /* x163124 stalin.sc:23182:808948 */ t74518 = a1966; /* x163123 stalin.sc:23182:808930 */ t74517 = p17445->a29928; if ((t74517&3)==1) {/* MOVE: branching squeezed to general */ if (t74518>=((char *)VALUE_OFFSET)) {t74519.tag = EXTERNAL_SYMBOL_TYPE; t74519.value.external_symbol_type = t74518;} else t74519.tag = (unsigned)t74518; f10658(((struct p10641 *)(t74517-1)), t74519);} else {/* MOVE: branching squeezed to general */ if (t74518>=((char *)VALUE_OFFSET)) {t74520.tag = EXTERNAL_SYMBOL_TYPE; t74520.value.external_symbol_type = t74518;} else t74520.tag = (unsigned)t74518; f10657(((struct p10646 *)t74517), t74520);} break; case NATIVE_PROCEDURE_TYPE23147: p17386 = t74240.value.native_procedure_type23147; /* x162725 stalin.sc:23024:802789 */ /* x162724 stalin.sc:23024:802808 */ t74522 = a1966; /* x162723 stalin.sc:23024:802790 */ t74521 = p17386->a29746; if ((t74521&3)==1) {/* MOVE: branching squeezed to general */ if (t74522>=((char *)VALUE_OFFSET)) {t74523.tag = EXTERNAL_SYMBOL_TYPE; t74523.value.external_symbol_type = t74522;} else t74523.tag = (unsigned)t74522; f10658(((struct p10641 *)(t74521-1)), t74523);} else {/* MOVE: branching squeezed to general */ if (t74522>=((char *)VALUE_OFFSET)) {t74524.tag = EXTERNAL_SYMBOL_TYPE; t74524.value.external_symbol_type = t74522;} else t74524.tag = (unsigned)t74522; f10657(((struct p10646 *)t74521), t74524);} break; case NATIVE_PROCEDURE_TYPE23148: p17338 = t74240.value.native_procedure_type23148; /* x162421 stalin.sc:22923:799378 */ /* x162420 stalin.sc:22923:799397 */ t74526 = a1966; /* x162419 stalin.sc:22923:799379 */ t74525 = p17338->a29570; if ((t74525&3)==1) {/* MOVE: branching squeezed to general */ if (t74526>=((char *)VALUE_OFFSET)) {t74527.tag = EXTERNAL_SYMBOL_TYPE; t74527.value.external_symbol_type = t74526;} else t74527.tag = (unsigned)t74526; f10658(((struct p10641 *)(t74525-1)), t74527);} else {/* MOVE: branching squeezed to general */ if (t74526>=((char *)VALUE_OFFSET)) {t74528.tag = EXTERNAL_SYMBOL_TYPE; t74528.value.external_symbol_type = t74526;} else t74528.tag = (unsigned)t74526; f10657(((struct p10646 *)t74525), t74528);} break; case NATIVE_PROCEDURE_TYPE23158: p17496 = t74240.value.native_procedure_type23158; /* x163518 stalin.sc:23289:812982 */ /* x163517 stalin.sc:23289:813001 */ t74530 = a1969; /* x163516 stalin.sc:23289:812983 */ t74529 = p17496->a30066; if ((t74529&3)==1) {/* MOVE: branching squeezed to general */ if (t74530>=((char *)VALUE_OFFSET)) {t74531.tag = EXTERNAL_SYMBOL_TYPE; t74531.value.external_symbol_type = t74530;} else t74531.tag = (unsigned)t74530; f10658(((struct p10641 *)(t74529-1)), t74531);} else {/* MOVE: branching squeezed to general */ if (t74530>=((char *)VALUE_OFFSET)) {t74532.tag = EXTERNAL_SYMBOL_TYPE; t74532.value.external_symbol_type = t74530;} else t74532.tag = (unsigned)t74530; f10657(((struct p10646 *)t74529), t74532);} break; case NATIVE_PROCEDURE_TYPE23159: p17521 = t74240.value.native_procedure_type23159; /* x163704 stalin.sc:23328:814157 */ /* x163703 stalin.sc:23328:814176 */ t74534 = a1969; /* x163702 stalin.sc:23328:814158 */ t74533 = p17521->a30155; if ((t74533&3)==1) {/* MOVE: branching squeezed to general */ if (t74534>=((char *)VALUE_OFFSET)) {t74535.tag = EXTERNAL_SYMBOL_TYPE; t74535.value.external_symbol_type = t74534;} else t74535.tag = (unsigned)t74534; f10658(((struct p10641 *)(t74533-1)), t74535);} else {/* MOVE: branching squeezed to general */ if (t74534>=((char *)VALUE_OFFSET)) {t74536.tag = EXTERNAL_SYMBOL_TYPE; t74536.value.external_symbol_type = t74534;} else t74536.tag = (unsigned)t74534; f10657(((struct p10646 *)t74533), t74536);} break; case NATIVE_PROCEDURE_TYPE23160: p17510 = t74240.value.native_procedure_type23160; a30114 = t74241; /* x163669 */ /* x163668 stalin.sc:23317:813739 */ /* x163655 stalin.sc:23317:813745 */ /* x163649 stalin.sc:23317:813750 */ /* x163647 stalin.sc:23317:813759 */ /* x163648 stalin.sc:23317:813770 */ t74540 = a30114; /* x163646 stalin.sc:23317:813751 */ t74541.tag = NATIVE_PROCEDURE_TYPE7431; if ((f8137(t74541, t74540).tag)==FALSE_TYPE) goto l13355; /* x163653 */ /* x163651 stalin.sc:23317:813787 */ /* x163652 stalin.sc:23317:813798 */ t74542 = a30114; /* x163650 stalin.sc:23317:813775 */ t74543.tag = NATIVE_PROCEDURE_TYPE7431; if ((f8144(t74543, t74542).tag)==FALSE_TYPE) goto l13355; /* x163665 */ /* x163664 */ /* x163663 stalin.sc:23318:813807 */ /* x163661 stalin.sc:23318:813824 */ /* x163662 stalin.sc:23318:813875 */ t74544 = a30114; /* x163656 stalin.sc:23318:813808 */ t74545.tag = NATIVE_PROCEDURE_TYPE23163; f8173(t74545, t74544); goto l13356; l13355: /* x163667 stalin.sc:23317:813739 */ /* x163666 stalin.sc:23317:813739 */ l13356: /* x163645 */ t74537 = p17510; p17511 = t74537; /* x163644 stalin.sc:23319:813883 */ /* x163643 stalin.sc:23319:813910 */ /* x163642 stalin.sc:23319:813884 */ t74538 = p17511->a30112; t74539 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7431; f10651(t74538, t74539); break; case NATIVE_PROCEDURE_TYPE23165: p17540 = t74240.value.native_procedure_type23165; a30247 = t74241; /* x163882 */ /* x163881 stalin.sc:23371:815240 */ /* x163868 stalin.sc:23371:815246 */ /* x163862 stalin.sc:23371:815251 */ /* x163860 stalin.sc:23371:815260 */ /* x163861 stalin.sc:23371:815273 */ t74549 = a30247; /* x163859 stalin.sc:23371:815252 */ t74550.tag = NATIVE_PROCEDURE_TYPE7822; if ((f8137(t74550, t74549).tag)==FALSE_TYPE) goto l13359; /* x163866 */ /* x163864 stalin.sc:23371:815290 */ /* x163865 stalin.sc:23371:815303 */ t74551 = a30247; /* x163863 stalin.sc:23371:815278 */ t74552.tag = NATIVE_PROCEDURE_TYPE7822; if ((f8144(t74552, t74551).tag)==FALSE_TYPE) goto l13359; /* x163878 */ /* x163877 */ /* x163876 stalin.sc:23372:815312 */ /* x163874 stalin.sc:23372:815329 */ /* x163875 stalin.sc:23372:815380 */ t74553 = a30247; /* x163869 stalin.sc:23372:815313 */ t74554.tag = NATIVE_PROCEDURE_TYPE23168; f8173(t74554, t74553); goto l13360; l13359: /* x163880 stalin.sc:23371:815240 */ /* x163879 stalin.sc:23371:815240 */ l13360: /* x163858 */ t74546 = p17540; p17541 = t74546; /* x163857 stalin.sc:23373:815388 */ /* x163856 stalin.sc:23373:815415 */ /* x163855 stalin.sc:23373:815389 */ t74547 = p17541->a30245; t74548 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7822; f10651(t74547, t74548); break; case NATIVE_PROCEDURE_TYPE23180: p17605 = t74240.value.native_procedure_type23180; a30414 = t74241; /* x164515 */ /* x164514 stalin.sc:23536:819995 */ /* x164512 stalin.sc:23536:820012 */ /* x164513 stalin.sc:23539:820121 */ t74560 = a30414; /* x164499 stalin.sc:23536:819996 */ t74561.tag = NATIVE_PROCEDURE_TYPE23181; f8173(t74561, t74560); /* x164498 */ t74555 = p17605; p17606 = t74555; /* x164497 stalin.sc:23540:820128 */ /* x164496 stalin.sc:23540:820147 */ t74557 = a1969; /* x164495 stalin.sc:23540:820129 */ t74556 = p17606->a30411; if ((t74556&3)==1) {/* MOVE: branching squeezed to general */ if (t74557>=((char *)VALUE_OFFSET)) {t74558.tag = EXTERNAL_SYMBOL_TYPE; t74558.value.external_symbol_type = t74557;} else t74558.tag = (unsigned)t74557; f10658(((struct p10641 *)(t74556-1)), t74558);} else {/* MOVE: branching squeezed to general */ if (t74557>=((char *)VALUE_OFFSET)) {t74559.tag = EXTERNAL_SYMBOL_TYPE; t74559.value.external_symbol_type = t74557;} else t74559.tag = (unsigned)t74557; f10657(((struct p10646 *)t74556), t74559);} break; case NATIVE_PROCEDURE_TYPE23189: p17530 = t74240.value.native_procedure_type23189; /* x163762 stalin.sc:23345:814591 */ /* x163761 stalin.sc:23345:814610 */ t74563 = a1972; /* x163760 stalin.sc:23345:814592 */ t74562 = p17530->a30199; if ((t74562&3)==1) {/* MOVE: branching squeezed to general */ if (t74563>=((char *)VALUE_OFFSET)) {t74564.tag = EXTERNAL_SYMBOL_TYPE; t74564.value.external_symbol_type = t74563;} else t74564.tag = (unsigned)t74563; f10658(((struct p10641 *)(t74562-1)), t74564);} else {/* MOVE: branching squeezed to general */ if (t74563>=((char *)VALUE_OFFSET)) {t74565.tag = EXTERNAL_SYMBOL_TYPE; t74565.value.external_symbol_type = t74563;} else t74565.tag = (unsigned)t74563; f10657(((struct p10646 *)t74562), t74565);} break; case NATIVE_PROCEDURE_TYPE23190: p17647 = t74240.value.native_procedure_type23190; a30560 = t74241; /* x164863 */ /* x164862 stalin.sc:23636:822512 */ /* x164849 stalin.sc:23636:822518 */ /* x164843 stalin.sc:23636:822523 */ /* x164841 stalin.sc:23636:822532 */ /* x164842 stalin.sc:23636:822545 */ t74569 = a30560; /* x164840 stalin.sc:23636:822524 */ t74570.tag = NATIVE_PROCEDURE_TYPE7406; if ((f8137(t74570, t74569).tag)==FALSE_TYPE) goto l13363; /* x164847 */ /* x164845 stalin.sc:23636:822562 */ /* x164846 stalin.sc:23636:822575 */ t74571 = a30560; /* x164844 stalin.sc:23636:822550 */ t74572.tag = NATIVE_PROCEDURE_TYPE7406; if ((f8144(t74572, t74571).tag)==FALSE_TYPE) goto l13363; /* x164859 */ /* x164858 */ /* x164857 stalin.sc:23637:822584 */ /* x164855 stalin.sc:23637:822601 */ /* x164856 stalin.sc:23637:822652 */ t74573 = a30560; /* x164850 stalin.sc:23637:822585 */ t74574.tag = NATIVE_PROCEDURE_TYPE23193; f8173(t74574, t74573); goto l13364; l13363: /* x164861 stalin.sc:23636:822512 */ /* x164860 stalin.sc:23636:822512 */ l13364: /* x164839 */ t74566 = p17647; p17648 = t74566; /* x164838 stalin.sc:23638:822660 */ /* x164837 stalin.sc:23638:822687 */ /* x164836 stalin.sc:23638:822661 */ t74567 = p17648->a30558; t74568 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7406; f10651(t74567, t74568); break; case NATIVE_PROCEDURE_TYPE23360: p17751 = t74240.value.native_procedure_type23360; a30782 = t74241; /* x165796 */ /* x165795 stalin.sc:23885:829695 */ /* x165793 stalin.sc:23886:829716 */ /* x165794 stalin.sc:23893:830030 */ t74580 = a30782; /* x165760 stalin.sc:23885:829696 */ t74581.tag = NATIVE_PROCEDURE_TYPE23361; f8173(t74581, t74580); /* x165759 */ t74575 = p17751; p17752 = t74575; /* x165758 stalin.sc:23894:830037 */ /* x165757 stalin.sc:23894:830056 */ t74577 = a1969; /* x165756 stalin.sc:23894:830038 */ t74576 = p17752->a30779; if ((t74576&3)==1) {/* MOVE: branching squeezed to general */ if (t74577>=((char *)VALUE_OFFSET)) {t74578.tag = EXTERNAL_SYMBOL_TYPE; t74578.value.external_symbol_type = t74577;} else t74578.tag = (unsigned)t74577; f10658(((struct p10641 *)(t74576-1)), t74578);} else {/* MOVE: branching squeezed to general */ if (t74577>=((char *)VALUE_OFFSET)) {t74579.tag = EXTERNAL_SYMBOL_TYPE; t74579.value.external_symbol_type = t74577;} else t74579.tag = (unsigned)t74577; f10657(((struct p10646 *)t74576), t74579);} break; case NATIVE_PROCEDURE_TYPE23393: p17906 = t74240.value.native_procedure_type23393; a31107 = t74241; /* x167355 */ /* x167354 stalin.sc:24269:841494 */ /* x167341 stalin.sc:24269:841500 */ /* x167335 stalin.sc:24269:841505 */ /* x167333 stalin.sc:24269:841514 */ /* x167334 stalin.sc:24269:841531 */ t74585 = a31107; /* x167332 stalin.sc:24269:841506 */ t74586.tag = NATIVE_PROCEDURE_TYPE7423; if ((f8137(t74586, t74585).tag)==FALSE_TYPE) goto l13367; /* x167339 */ /* x167337 stalin.sc:24269:841548 */ /* x167338 stalin.sc:24269:841565 */ t74587 = a31107; /* x167336 stalin.sc:24269:841536 */ t74588.tag = NATIVE_PROCEDURE_TYPE7423; if ((f8144(t74588, t74587).tag)==FALSE_TYPE) goto l13367; /* x167351 */ /* x167350 */ /* x167349 stalin.sc:24270:841574 */ /* x167347 stalin.sc:24270:841591 */ /* x167348 stalin.sc:24270:841642 */ t74589 = a31107; /* x167342 stalin.sc:24270:841575 */ t74590.tag = NATIVE_PROCEDURE_TYPE23396; f8173(t74590, t74589); goto l13368; l13367: /* x167353 stalin.sc:24269:841494 */ /* x167352 stalin.sc:24269:841494 */ l13368: /* x167331 */ t74582 = p17906; p17907 = t74582; /* x167330 stalin.sc:24271:841650 */ /* x167329 stalin.sc:24271:841677 */ /* x167328 stalin.sc:24271:841651 */ t74583 = p17907->a31105; t74584 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7423; f10651(t74583, t74584); break; case NATIVE_PROCEDURE_TYPE23398: p17846 = t74240.value.native_procedure_type23398; a31028 = t74241; /* x166684 */ /* x166683 stalin.sc:24109:836188 */ /* x166665 stalin.sc:24109:836194 */ /* x166682 stalin.sc:24109:836188 */ /* x166681 stalin.sc:24109:836188 */ /* x166664 */ t74591 = p17846; p17847 = t74591; /* x166663 stalin.sc:24112:836386 */ /* x166643 stalin.sc:24112:836403 */ /* x166641 stalin.sc:24112:836423 */ t74599 = p17847->a31023; /* x166642 stalin.sc:24112:836425 */ t74600 = q64; /* x166640 stalin.sc:24112:836404 */ t74592 = f8743(t74599, t74600); /* x166644 stalin.sc:24113:836448 */ t74593 = a31028; /* x166661 stalin.sc:24114:836457 */ /* x166647 stalin.sc:24114:836461 */ /* x166646 stalin.sc:24114:836473 */ t74601 = p17847->a31023; /* x166645 stalin.sc:24114:836462 */ /* MOVE: branching squeezed to general */ if (t74601>=((struct structure_type27745 *)VALUE_OFFSET)) {t74602.tag = STRUCTURE_TYPE27745; t74602.value.structure_type27745 = t74601;} else t74602.tag = (unsigned)t74601; if (f8944(t74602)==FALSE_TYPE) goto l13371; /* x166651 stalin.sc:24115:836479 */ /* x166650 stalin.sc:24115:836488 */ t74610 = p17847->a31027; /* x166649 stalin.sc:24115:836485 */ t74609 = p17847->a31027; /* x166648 stalin.sc:24115:836480 */ t74611.tag = STRUCTURE_TYPE24753; t74611.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t74611.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24115, 836479); out_of_memory_error();} t74611.value.structure_type24753->s0 = t74610; t74611.value.structure_type24753->s1.tag = NULL_TYPE; a34904 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34904==NULL) {backtrace("stalin.sc", 24115, 836479); out_of_memory_error();} a34904->s0 = t74609; a34904->s1 = t74611; /* x271815 */ t74594 = a34904; goto l13372; l13371: /* x166660 stalin.sc:24116:836495 */ /* x166659 stalin.sc:24116:836501 */ /* x166658 stalin.sc:24117:836538 */ /* x166657 stalin.sc:24117:836554 */ /* x166656 stalin.sc:24117:836576 */ t74607 = p17847->a31023; /* x166655 stalin.sc:24117:836555 */ a36381 = t74607; /* x278193 */ /* x278192 */ t74608 = a36381; /* x278191 */ if (!(t74608>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31298]"); structure_ref_error();} t74606 = t74608->s0; /* x166654 stalin.sc:24117:836539 */ t74604 = f7110(t74606); /* x166653 stalin.sc:24116:836502 */ t74605 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t74605==NULL) {backtrace("stalin.sc", 24116, 836501); out_of_memory_error();} t74605->s0.tag = STRUCTURE_TYPE27858; t74605->s0.value.structure_type27858 = t74604; t74605->s1.tag = NULL_TYPE; t74603 = f8098(t74605); /* x166652 stalin.sc:24116:836496 */ a34905 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34905==NULL) {backtrace("stalin.sc", 24116, 836495); out_of_memory_error();} a34905->s0.tag = STRUCTURE_TYPE27650; a34905->s0.value.structure_type27650 = t74603; a34905->s1.tag = NULL_TYPE; /* x271817 */ t74594 = a34905; l13372: /* x166662 stalin.sc:24118:836589 */ t74595 = a1675; /* x166639 stalin.sc:24112:836387 */ t74596 = t74592; t74597.tag = STRUCTURE_TYPE24753; t74597.value.structure_type24753 = t74594; /* MOVE: branching squeezed to general */ if (t74595>=((struct structure_type27650 *)VALUE_OFFSET)) {t74598.tag = STRUCTURE_TYPE27650; t74598.value.structure_type27650 = t74595;} else t74598.tag = (unsigned)t74595; f10641(t74596, t74593, t74597, t74598); break; case NATIVE_PROCEDURE_TYPE23401: p17813 = t74240.value.native_procedure_type23401; a30932 = t74241; /* x166260 */ /* x166259 stalin.sc:24024:833315 */ /* x166246 stalin.sc:24024:833321 */ /* x166240 stalin.sc:24024:833326 */ /* x166238 stalin.sc:24024:833335 */ /* x166239 stalin.sc:24024:833351 */ t74615 = a30932; /* x166237 stalin.sc:24024:833327 */ t74616.tag = NATIVE_PROCEDURE_TYPE7415; if ((f8137(t74616, t74615).tag)==FALSE_TYPE) goto l13375; /* x166244 */ /* x166242 stalin.sc:24024:833368 */ /* x166243 stalin.sc:24024:833384 */ t74617 = a30932; /* x166241 stalin.sc:24024:833356 */ t74618.tag = NATIVE_PROCEDURE_TYPE7415; if ((f8144(t74618, t74617).tag)==FALSE_TYPE) goto l13375; /* x166256 */ /* x166255 */ /* x166254 stalin.sc:24025:833393 */ /* x166252 stalin.sc:24025:833410 */ /* x166253 stalin.sc:24025:833461 */ t74619 = a30932; /* x166247 stalin.sc:24025:833394 */ t74620.tag = NATIVE_PROCEDURE_TYPE23404; f8173(t74620, t74619); goto l13376; l13375: /* x166258 stalin.sc:24024:833315 */ /* x166257 stalin.sc:24024:833315 */ l13376: /* x166236 */ t74612 = p17813; p17814 = t74612; /* x166235 stalin.sc:24026:833469 */ /* x166234 stalin.sc:24026:833496 */ /* x166233 stalin.sc:24026:833470 */ t74613 = p17814->a30930; t74614 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7415; f10651(t74613, t74614); break; case NATIVE_PROCEDURE_TYPE23407: p17478 = t74240.value.native_procedure_type23407; a30024 = t74241; /* x163422 */ /* x163421 stalin.sc:23266:812245 */ /* x163413 stalin.sc:23266:812251 */ /* x163411 stalin.sc:23266:812260 */ /* x163412 stalin.sc:23266:812288 */ t74629 = a30024; /* x163410 stalin.sc:23266:812252 */ t74630.tag = NATIVE_PROCEDURE_TYPE7428; if ((f8137(t74630, t74629).tag)==FALSE_TYPE) goto l13382; /* x163418 */ /* x163417 */ t74631 = p17478; p17482 = t74631; /* x163416 stalin.sc:23267:812296 */ /* x163415 stalin.sc:23267:812315 */ t74633 = a1966; /* x163414 stalin.sc:23267:812297 */ t74632 = p17482->a30021; if ((t74632&3)==1) {/* MOVE: branching squeezed to general */ if (t74633>=((char *)VALUE_OFFSET)) {t74634.tag = EXTERNAL_SYMBOL_TYPE; t74634.value.external_symbol_type = t74633;} else t74634.tag = (unsigned)t74633; f10658(((struct p10641 *)(t74632-1)), t74634);} else {/* MOVE: branching squeezed to general */ if (t74633>=((char *)VALUE_OFFSET)) {t74635.tag = EXTERNAL_SYMBOL_TYPE; t74635.value.external_symbol_type = t74633;} else t74635.tag = (unsigned)t74633; f10657(((struct p10646 *)t74632), t74635);} goto l13383; l13382: /* x163420 stalin.sc:23266:812245 */ /* x163419 stalin.sc:23266:812245 */ l13383: /* x163409 */ t74621 = p17478; p17479 = t74621; /* x163408 stalin.sc:23268:812329 */ /* x163400 stalin.sc:23268:812335 */ /* x163398 stalin.sc:23268:812344 */ /* x163399 stalin.sc:23268:812362 */ t74622 = a30024; /* x163397 stalin.sc:23268:812336 */ t74623.tag = NATIVE_PROCEDURE_TYPE7427; if ((f8137(t74623, t74622).tag)==FALSE_TYPE) goto l13379; /* x163405 */ /* x163404 */ t74624 = p17479; p17480 = t74624; /* x163403 stalin.sc:23268:812366 */ /* x163402 stalin.sc:23268:812385 */ t74626 = a1963; /* x163401 stalin.sc:23268:812367 */ t74625 = p17480->a30021; if ((t74625&3)==1) {/* MOVE: branching squeezed to general */ if (t74626>=((char *)VALUE_OFFSET)) {t74627.tag = EXTERNAL_SYMBOL_TYPE; t74627.value.external_symbol_type = t74626;} else t74627.tag = (unsigned)t74626; f10658(((struct p10641 *)(t74625-1)), t74627);} else {/* MOVE: branching squeezed to general */ if (t74626>=((char *)VALUE_OFFSET)) {t74628.tag = EXTERNAL_SYMBOL_TYPE; t74628.value.external_symbol_type = t74626;} else t74628.tag = (unsigned)t74626; f10657(((struct p10646 *)t74625), t74628);} goto l13380; l13379: /* x163407 stalin.sc:23268:812329 */ /* x163406 stalin.sc:23268:812329 */ l13380: break; case NATIVE_PROCEDURE_TYPE23413: p17929 = t74240.value.native_procedure_type23413; /* x167455 stalin.sc:24294:842433 */ /* x167454 stalin.sc:24294:842452 */ t74637 = a1960; /* x167453 stalin.sc:24294:842434 */ t74636 = p17929->a31193; if ((t74636&3)==1) {/* MOVE: branching squeezed to general */ if (t74637>=((char *)VALUE_OFFSET)) {t74638.tag = EXTERNAL_SYMBOL_TYPE; t74638.value.external_symbol_type = t74637;} else t74638.tag = (unsigned)t74637; f10658(((struct p10641 *)(t74636-1)), t74638);} else {/* MOVE: branching squeezed to general */ if (t74637>=((char *)VALUE_OFFSET)) {t74639.tag = EXTERNAL_SYMBOL_TYPE; t74639.value.external_symbol_type = t74637;} else t74639.tag = (unsigned)t74637; f10657(((struct p10646 *)t74636), t74639);} break; case NATIVE_PROCEDURE_TYPE23414: /* x167815 stalin.sc:24381:845060 */ break; case NATIVE_PROCEDURE_TYPE23415: p17941 = t74240.value.native_procedure_type23415; /* x167636 stalin.sc:24337:843734 */ /* x167635 stalin.sc:24337:843753 */ t74641 = a1957; /* x167634 stalin.sc:24337:843735 */ t74640 = p17941->a31240; if ((t74640&3)==1) {/* MOVE: branching squeezed to general */ if (t74641>=((char *)VALUE_OFFSET)) {t74642.tag = EXTERNAL_SYMBOL_TYPE; t74642.value.external_symbol_type = t74641;} else t74642.tag = (unsigned)t74641; f10658(((struct p10641 *)(t74640-1)), t74642);} else {/* MOVE: branching squeezed to general */ if (t74641>=((char *)VALUE_OFFSET)) {t74643.tag = EXTERNAL_SYMBOL_TYPE; t74643.value.external_symbol_type = t74641;} else t74643.tag = (unsigned)t74641; f10657(((struct p10646 *)t74640), t74643);} break; case NATIVE_PROCEDURE_TYPE23416: p17971 = t74240.value.native_procedure_type23416; /* x167976 */ /* x167975 stalin.sc:24426:846299 */ /* x167974 stalin.sc:24426:846318 */ t74650 = a1972; /* x167973 stalin.sc:24426:846300 */ t74649 = p17971->a31375; if ((t74649&3)==1) {/* MOVE: branching squeezed to general */ if (t74650>=((char *)VALUE_OFFSET)) {t74651.tag = EXTERNAL_SYMBOL_TYPE; t74651.value.external_symbol_type = t74650;} else t74651.tag = (unsigned)t74650; f10658(((struct p10641 *)(t74649-1)), t74651);} else {/* MOVE: branching squeezed to general */ if (t74650>=((char *)VALUE_OFFSET)) {t74652.tag = EXTERNAL_SYMBOL_TYPE; t74652.value.external_symbol_type = t74650;} else t74652.tag = (unsigned)t74650; f10657(((struct p10646 *)t74649), t74652);} /* x167972 */ t74644 = p17971; p17972 = t74644; /* x167971 stalin.sc:24427:846332 */ /* x167970 stalin.sc:24427:846351 */ t74646 = a1954; /* x167969 stalin.sc:24427:846333 */ t74645 = p17972->a31375; if ((t74645&3)==1) {/* MOVE: branching squeezed to general */ if (t74646>=((char *)VALUE_OFFSET)) {t74647.tag = EXTERNAL_SYMBOL_TYPE; t74647.value.external_symbol_type = t74646;} else t74647.tag = (unsigned)t74646; f10658(((struct p10641 *)(t74645-1)), t74647);} else {/* MOVE: branching squeezed to general */ if (t74646>=((char *)VALUE_OFFSET)) {t74648.tag = EXTERNAL_SYMBOL_TYPE; t74648.value.external_symbol_type = t74646;} else t74648.tag = (unsigned)t74646; f10657(((struct p10646 *)t74645), t74648);} break; case NATIVE_PROCEDURE_TYPE23418: /* x167892 stalin.sc:24403:845680 */ break; case NATIVE_PROCEDURE_TYPE23419: p17992 = t74240.value.native_procedure_type23419; a31469 = t74241; /* x168162 */ /* x168161 stalin.sc:24468:847496 */ /* x168148 stalin.sc:24468:847502 */ /* x168142 stalin.sc:24468:847507 */ /* x168140 stalin.sc:24468:847516 */ /* x168141 stalin.sc:24468:847533 */ t74656 = a31469; /* x168139 stalin.sc:24468:847508 */ t74657.tag = NATIVE_PROCEDURE_TYPE7421; if ((f8137(t74657, t74656).tag)==FALSE_TYPE) goto l13385; /* x168146 */ /* x168144 stalin.sc:24468:847550 */ /* x168145 stalin.sc:24468:847567 */ t74658 = a31469; /* x168143 stalin.sc:24468:847538 */ t74659.tag = NATIVE_PROCEDURE_TYPE7421; if ((f8144(t74659, t74658).tag)==FALSE_TYPE) goto l13385; /* x168158 */ /* x168157 */ /* x168156 stalin.sc:24469:847576 */ /* x168154 stalin.sc:24469:847593 */ /* x168155 stalin.sc:24469:847644 */ t74660 = a31469; /* x168149 stalin.sc:24469:847577 */ t74661.tag = NATIVE_PROCEDURE_TYPE23422; f8173(t74661, t74660); goto l13386; l13385: /* x168160 stalin.sc:24468:847496 */ /* x168159 stalin.sc:24468:847496 */ l13386: /* x168138 */ t74653 = p17992; p17993 = t74653; /* x168137 stalin.sc:24470:847652 */ /* x168136 stalin.sc:24470:847679 */ /* x168135 stalin.sc:24470:847653 */ t74654 = p17993->a31467; t74655 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7421; f10651(t74654, t74655); break; case NATIVE_PROCEDURE_TYPE23433: p18003 = t74240.value.native_procedure_type23433; /* x168202 */ /* x168201 stalin.sc:24480:847961 */ /* x168200 stalin.sc:24480:847980 */ t74668 = a1978; /* x168199 stalin.sc:24480:847962 */ t74667 = p18003->a31510; if ((t74667&3)==1) {/* MOVE: branching squeezed to general */ if (t74668>=((char *)VALUE_OFFSET)) {t74669.tag = EXTERNAL_SYMBOL_TYPE; t74669.value.external_symbol_type = t74668;} else t74669.tag = (unsigned)t74668; f10658(((struct p10641 *)(t74667-1)), t74669);} else {/* MOVE: branching squeezed to general */ if (t74668>=((char *)VALUE_OFFSET)) {t74670.tag = EXTERNAL_SYMBOL_TYPE; t74670.value.external_symbol_type = t74668;} else t74670.tag = (unsigned)t74668; f10657(((struct p10646 *)t74667), t74670);} /* x168198 */ t74662 = p18003; p18004 = t74662; /* x168197 stalin.sc:24481:847994 */ /* x168196 stalin.sc:24481:848013 */ t74664 = a1975; /* x168195 stalin.sc:24481:847995 */ t74663 = p18004->a31510; if ((t74663&3)==1) {/* MOVE: branching squeezed to general */ if (t74664>=((char *)VALUE_OFFSET)) {t74665.tag = EXTERNAL_SYMBOL_TYPE; t74665.value.external_symbol_type = t74664;} else t74665.tag = (unsigned)t74664; f10658(((struct p10641 *)(t74663-1)), t74665);} else {/* MOVE: branching squeezed to general */ if (t74664>=((char *)VALUE_OFFSET)) {t74666.tag = EXTERNAL_SYMBOL_TYPE; t74666.value.external_symbol_type = t74664;} else t74666.tag = (unsigned)t74664; f10657(((struct p10646 *)t74663), t74666);} break; case NATIVE_PROCEDURE_TYPE23435: p17981 = t74240.value.native_procedure_type23435; /* x168053 */ /* x168052 stalin.sc:24446:846872 */ /* x168051 stalin.sc:24446:846891 */ t74677 = a1972; /* x168050 stalin.sc:24446:846873 */ t74676 = p17981->a31420; if ((t74676&3)==1) {/* MOVE: branching squeezed to general */ if (t74677>=((char *)VALUE_OFFSET)) {t74678.tag = EXTERNAL_SYMBOL_TYPE; t74678.value.external_symbol_type = t74677;} else t74678.tag = (unsigned)t74677; f10658(((struct p10641 *)(t74676-1)), t74678);} else {/* MOVE: branching squeezed to general */ if (t74677>=((char *)VALUE_OFFSET)) {t74679.tag = EXTERNAL_SYMBOL_TYPE; t74679.value.external_symbol_type = t74677;} else t74679.tag = (unsigned)t74677; f10657(((struct p10646 *)t74676), t74679);} /* x168049 */ t74671 = p17981; p17982 = t74671; /* x168048 stalin.sc:24447:846905 */ /* x168047 stalin.sc:24447:846924 */ t74673 = a1954; /* x168046 stalin.sc:24447:846906 */ t74672 = p17982->a31420; if ((t74672&3)==1) {/* MOVE: branching squeezed to general */ if (t74673>=((char *)VALUE_OFFSET)) {t74674.tag = EXTERNAL_SYMBOL_TYPE; t74674.value.external_symbol_type = t74673;} else t74674.tag = (unsigned)t74673; f10658(((struct p10641 *)(t74672-1)), t74674);} else {/* MOVE: branching squeezed to general */ if (t74673>=((char *)VALUE_OFFSET)) {t74675.tag = EXTERNAL_SYMBOL_TYPE; t74675.value.external_symbol_type = t74673;} else t74675.tag = (unsigned)t74673; f10657(((struct p10646 *)t74672), t74675);} break; case NATIVE_PROCEDURE_TYPE23437: p18048 = t74240.value.native_procedure_type23437; a31732 = t74241; /* x168479 */ /* x168478 stalin.sc:24554:849848 */ /* x168465 stalin.sc:24554:849854 */ /* x168459 stalin.sc:24554:849859 */ /* x168457 stalin.sc:24554:849868 */ /* x168458 stalin.sc:24554:849882 */ t74683 = a31732; /* x168456 stalin.sc:24554:849860 */ t74684.tag = NATIVE_PROCEDURE_TYPE7420; if ((f8137(t74684, t74683).tag)==FALSE_TYPE) goto l13389; /* x168463 */ /* x168461 stalin.sc:24554:849899 */ /* x168462 stalin.sc:24554:849913 */ t74685 = a31732; /* x168460 stalin.sc:24554:849887 */ t74686.tag = NATIVE_PROCEDURE_TYPE7420; if ((f8144(t74686, t74685).tag)==FALSE_TYPE) goto l13389; /* x168475 */ /* x168474 */ /* x168473 stalin.sc:24555:849922 */ /* x168471 stalin.sc:24555:849939 */ /* x168472 stalin.sc:24555:849990 */ t74687 = a31732; /* x168466 stalin.sc:24555:849923 */ t74688.tag = NATIVE_PROCEDURE_TYPE23440; f8173(t74688, t74687); goto l13390; l13389: /* x168477 stalin.sc:24554:849848 */ /* x168476 stalin.sc:24554:849848 */ l13390: /* x168455 */ t74680 = p18048; p18049 = t74680; /* x168454 stalin.sc:24556:849998 */ /* x168453 stalin.sc:24556:850025 */ /* x168452 stalin.sc:24556:849999 */ t74681 = p18049->a31730; t74682 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7420; f10651(t74681, t74682); break; case NATIVE_PROCEDURE_TYPE23442: p18068 = t74240.value.native_procedure_type23442; /* x168570 stalin.sc:24581:850716 */ /* x168569 stalin.sc:24581:850735 */ t74690 = a1960; /* x168568 stalin.sc:24581:850717 */ t74689 = p18068->a31817; if ((t74689&3)==1) {/* MOVE: branching squeezed to general */ if (t74690>=((char *)VALUE_OFFSET)) {t74691.tag = EXTERNAL_SYMBOL_TYPE; t74691.value.external_symbol_type = t74690;} else t74691.tag = (unsigned)t74690; f10658(((struct p10641 *)(t74689-1)), t74691);} else {/* MOVE: branching squeezed to general */ if (t74690>=((char *)VALUE_OFFSET)) {t74692.tag = EXTERNAL_SYMBOL_TYPE; t74692.value.external_symbol_type = t74690;} else t74692.tag = (unsigned)t74690; f10657(((struct p10646 *)t74689), t74692);} break; case NATIVE_PROCEDURE_TYPE23443: p18086 = t74240.value.native_procedure_type23443; /* x168682 stalin.sc:24611:851567 */ /* x168681 stalin.sc:24611:851586 */ t74694 = a1951; /* x168680 stalin.sc:24611:851568 */ t74693 = p18086->a31905; if ((t74693&3)==1) {/* MOVE: branching squeezed to general */ if (t74694>=((char *)VALUE_OFFSET)) {t74695.tag = EXTERNAL_SYMBOL_TYPE; t74695.value.external_symbol_type = t74694;} else t74695.tag = (unsigned)t74694; f10658(((struct p10641 *)(t74693-1)), t74695);} else {/* MOVE: branching squeezed to general */ if (t74694>=((char *)VALUE_OFFSET)) {t74696.tag = EXTERNAL_SYMBOL_TYPE; t74696.value.external_symbol_type = t74694;} else t74696.tag = (unsigned)t74694; f10657(((struct p10646 *)t74693), t74696);} break; case NATIVE_PROCEDURE_TYPE23444: p18077 = t74240.value.native_procedure_type23444; /* x168626 stalin.sc:24596:851142 */ /* x168625 stalin.sc:24596:851161 */ t74698 = a1957; /* x168624 stalin.sc:24596:851143 */ t74697 = p18077->a31861; if ((t74697&3)==1) {/* MOVE: branching squeezed to general */ if (t74698>=((char *)VALUE_OFFSET)) {t74699.tag = EXTERNAL_SYMBOL_TYPE; t74699.value.external_symbol_type = t74698;} else t74699.tag = (unsigned)t74698; f10658(((struct p10641 *)(t74697-1)), t74699);} else {/* MOVE: branching squeezed to general */ if (t74698>=((char *)VALUE_OFFSET)) {t74700.tag = EXTERNAL_SYMBOL_TYPE; t74700.value.external_symbol_type = t74698;} else t74700.tag = (unsigned)t74698; f10657(((struct p10646 *)t74697), t74700);} break; case NATIVE_PROCEDURE_TYPE23445: p18059 = t74240.value.native_procedure_type23445; /* x168514 stalin.sc:24566:850288 */ /* x168513 stalin.sc:24566:850307 */ t74702 = a1941; /* x168512 stalin.sc:24566:850289 */ t74701 = p18059->a31773; if ((t74701&3)==1) f10658(((struct p10641 *)(t74701-1)), t74702); else f10657(((struct p10646 *)t74701), t74702); break; case NATIVE_PROCEDURE_TYPE23447: p18116 = t74240.value.native_procedure_type23447; /* x168842 */ /* x168841 stalin.sc:24654:852677 */ /* x168840 stalin.sc:24654:852696 */ t74709 = a1978; /* x168839 stalin.sc:24654:852678 */ t74708 = p18116->a32072; if ((t74708&3)==1) {/* MOVE: branching squeezed to general */ if (t74709>=((char *)VALUE_OFFSET)) {t74710.tag = EXTERNAL_SYMBOL_TYPE; t74710.value.external_symbol_type = t74709;} else t74710.tag = (unsigned)t74709; f10658(((struct p10641 *)(t74708-1)), t74710);} else {/* MOVE: branching squeezed to general */ if (t74709>=((char *)VALUE_OFFSET)) {t74711.tag = EXTERNAL_SYMBOL_TYPE; t74711.value.external_symbol_type = t74709;} else t74711.tag = (unsigned)t74709; f10657(((struct p10646 *)t74708), t74711);} /* x168838 */ t74703 = p18116; p18117 = t74703; /* x168837 stalin.sc:24655:852710 */ /* x168836 stalin.sc:24655:852729 */ t74705 = a1975; /* x168835 stalin.sc:24655:852711 */ t74704 = p18117->a32072; if ((t74704&3)==1) {/* MOVE: branching squeezed to general */ if (t74705>=((char *)VALUE_OFFSET)) {t74706.tag = EXTERNAL_SYMBOL_TYPE; t74706.value.external_symbol_type = t74705;} else t74706.tag = (unsigned)t74705; f10658(((struct p10641 *)(t74704-1)), t74706);} else {/* MOVE: branching squeezed to general */ if (t74705>=((char *)VALUE_OFFSET)) {t74707.tag = EXTERNAL_SYMBOL_TYPE; t74707.value.external_symbol_type = t74705;} else t74707.tag = (unsigned)t74705; f10657(((struct p10646 *)t74704), t74707);} break; case NATIVE_PROCEDURE_TYPE23449: p18142 = t74240.value.native_procedure_type23449; a32171 = t74241; /* x169245 stalin.sc:24767:856226 */ /* x169234 stalin.sc:24767:856243 */ /* x169232 stalin.sc:24767:856263 */ t74719 = p18142->a32166; /* x169233 stalin.sc:24767:856265 */ t74720 = q64; /* x169231 stalin.sc:24767:856244 */ t74712 = f8743(t74719, t74720); /* x169235 stalin.sc:24768:856288 */ t74713 = a32171; /* x169243 stalin.sc:24769:856297 */ /* x169238 stalin.sc:24769:856301 */ /* x169237 stalin.sc:24769:856313 */ t74721 = p18142->a32166; /* x169236 stalin.sc:24769:856302 */ /* MOVE: branching squeezed to general */ if (t74721>=((struct structure_type27745 *)VALUE_OFFSET)) {t74722.tag = STRUCTURE_TYPE27745; t74722.value.structure_type27745 = t74721;} else t74722.tag = (unsigned)t74721; if (f8944(t74722)==FALSE_TYPE) goto l13393; /* x169241 stalin.sc:24769:856316 */ /* x169240 stalin.sc:24769:856322 */ t74723 = p18142->a32170; /* x169239 stalin.sc:24769:856317 */ a34903 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34903==NULL) {backtrace("stalin.sc", 24769, 856316); out_of_memory_error();} a34903->s0 = t74723; a34903->s1.tag = NULL_TYPE; /* x271813 */ t74714 = a34903; goto l13394; l13393: /* x169242 stalin.sc:24769:856326 */ t74714 = (struct structure_type24753 *)NULL_TYPE; l13394: /* x169244 stalin.sc:24770:856337 */ t74715 = a1675; /* x169230 stalin.sc:24767:856227 */ t74716 = t74712; /* MOVE: branching squeezed to general */ if (t74714>=((struct structure_type24753 *)VALUE_OFFSET)) {t74717.tag = STRUCTURE_TYPE24753; t74717.value.structure_type24753 = t74714;} else t74717.tag = (unsigned)t74714; /* MOVE: branching squeezed to general */ if (t74715>=((struct structure_type27650 *)VALUE_OFFSET)) {t74718.tag = STRUCTURE_TYPE27650; t74718.value.structure_type27650 = t74715;} else t74718.tag = (unsigned)t74715; f10641(t74716, t74713, t74717, t74718); break; case NATIVE_PROCEDURE_TYPE23454: /* x168397 stalin.sc:24538:849466 */ break; default: p17918 = t74240.value.native_procedure_type23455; a31152 = t74241; /* x167420 */ /* x167419 stalin.sc:24282:841972 */ /* x167406 stalin.sc:24282:841978 */ /* x167400 stalin.sc:24282:841983 */ /* x167398 stalin.sc:24282:841992 */ /* x167399 stalin.sc:24282:842010 */ t74727 = a31152; /* x167397 stalin.sc:24282:841984 */ t74728.tag = NATIVE_PROCEDURE_TYPE7422; if ((f8137(t74728, t74727).tag)==FALSE_TYPE) goto l13396; /* x167404 */ /* x167402 stalin.sc:24283:842034 */ /* x167403 stalin.sc:24283:842052 */ t74729 = a31152; /* x167401 stalin.sc:24283:842022 */ t74730.tag = NATIVE_PROCEDURE_TYPE7422; if ((f8144(t74730, t74729).tag)==FALSE_TYPE) goto l13396; /* x167416 */ /* x167415 */ /* x167414 stalin.sc:24284:842061 */ /* x167412 stalin.sc:24284:842078 */ /* x167413 stalin.sc:24284:842129 */ t74731 = a31152; /* x167407 stalin.sc:24284:842062 */ t74732.tag = NATIVE_PROCEDURE_TYPE23458; f8173(t74732, t74731); goto l13397; l13396: /* x167418 stalin.sc:24282:841972 */ /* x167417 stalin.sc:24282:841972 */ l13397: /* x167396 */ t74724 = p17918; p17919 = t74724; /* x167395 stalin.sc:24285:842137 */ /* x167394 stalin.sc:24285:842164 */ /* x167393 stalin.sc:24285:842138 */ t74725 = p17919->a31150; t74726 = (struct p7717 *)NATIVE_PROCEDURE_TYPE7422; f10651(t74725, t74726);} break; case NATIVE_PROCEDURE_TYPE22826: p16343 = t74236.value.native_procedure_type22826; a27377 = t74237; a27378 = t74238; /* x153620 */ /* x153619 stalin.sc:21013:734968 */ /* x153612 stalin.sc:21013:734974 */ /* x153610 stalin.sc:21013:734987 */ /* x153611 stalin.sc:21013:734998 */ t74766 = a27378; /* x153609 stalin.sc:21013:734975 */ t74767.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t74767, t74766).tag)==FALSE_TYPE) goto l13406; /* x153616 */ /* x153615 */ /* x153614 stalin.sc:21013:735001 */ /* x153613 stalin.sc:21013:735002 */ /* x295377 QobiScheme.sc:166:5314 */ /* x295376 QobiScheme.sc:166:5321 */ t74768 = "This shouldn\'t happen"; /* x295375 QobiScheme.sc:166:5315 */ stalin_panic(t74768); goto l13407; l13406: /* x153618 stalin.sc:21013:734968 */ /* x153617 stalin.sc:21013:734968 */ l13407: /* x153608 */ t74742 = p16343; p16344 = t74742; /* x153607 stalin.sc:21014:735014 */ /* x153606 stalin.sc:21014:735017 */ t74744 = a27377; /* x153605 stalin.sc:21014:735015 */ t74743 = p16344->a27376; p16378 = t74743; a27452 = t74744; /* x153836 stalin.sc:21066:736827 */ /* x153835 stalin.sc:21067:736850 */ /* x153822 stalin.sc:21067:736863 */ /* x153821 stalin.sc:21067:736870 */ /* x153820 stalin.sc:21067:736906 */ t74755 = p16378->a27448; /* x153819 stalin.sc:21067:736871 */ a38143 = t74755; /* x285241 */ /* x285240 */ t74756 = a38143; /* x285239 */ if (!((t74756.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33060]"); structure_ref_error();} t74753 = t74756.value.structure_type27753->s1; /* x153818 stalin.sc:21067:736864 */ a35686 = t74753; /* x274101 */ /* x274100 */ t74754 = a35686; /* x274099 */ if (!((t74754.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29835]"); structure_ref_error();} t74749 = t74754.value.structure_type24753->s0; /* x153827 stalin.sc:21068:736914 */ /* x153826 stalin.sc:21068:736922 */ /* x153825 stalin.sc:21068:736958 */ t74758 = p16378->a27448; /* x153824 stalin.sc:21068:736923 */ a38144 = t74758; /* x285245 */ /* x285244 */ t74759 = a38144; /* x285243 */ if (!((t74759.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33061]"); structure_ref_error();} t74757 = t74759.value.structure_type27753->s1; /* x153823 stalin.sc:21068:736915 */ t74750 = f26181(t74757); /* x153831 stalin.sc:21072:737122 */ /* x153830 stalin.sc:21072:737135 */ t74760 = a27452; /* x153829 stalin.sc:21072:737127 */ /* x153828 stalin.sc:21072:737123 */ t74761.tag = NATIVE_PROCEDURE_TYPE7353; t74762 = t74760; t74763 = (struct structure_type24753 *)NULL_TYPE; t74751 = f27731(t74761, t74762, t74763); /* x153834 stalin.sc:21073:737142 */ /* x153833 stalin.sc:21073:737164 */ t74764 = p16378->a27447; /* x153832 stalin.sc:21073:737143 */ a36392 = t74764; /* x278237 */ /* x278236 */ t74765 = a36392; /* x278235 */ if (!(t74765>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31309]"); structure_ref_error();} t74752 = t74765->s0; /* x153817 stalin.sc:21067:736851 */ t74746 = f7139(t74749, t74750, t74751, t74752); /* x153816 stalin.sc:21066:736828 */ t74745 = p16378->a27449; if ((t74745&3)==1) {t74747 = *((struct w49 *)(&t74746)); f10658(((struct p10641 *)(t74745-1)), t74747);} else {t74748 = *((struct w49 *)(&t74746)); f10657(((struct p10646 *)t74745), t74748);} break; case NATIVE_PROCEDURE_TYPE22831: p16329 = t74236.value.native_procedure_type22831; a27367 = t74237; a27368 = t74238; /* x153561 */ /* x153547 stalin.sc:20999:734579 */ /* x153540 stalin.sc:20999:734585 */ /* x153538 stalin.sc:20999:734598 */ /* x153539 stalin.sc:20999:734609 */ t74987 = a27368; /* x153537 stalin.sc:20999:734586 */ t74988.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t74988, t74987).tag)==FALSE_TYPE) goto l13498; /* x153544 */ /* x153543 */ /* x153542 stalin.sc:20999:734612 */ /* x153541 stalin.sc:20999:734613 */ /* x295369 QobiScheme.sc:166:5314 */ /* x295368 QobiScheme.sc:166:5321 */ t74989 = "This shouldn\'t happen"; /* x295367 QobiScheme.sc:166:5315 */ stalin_panic(t74989); goto l13499; l13498: /* x153546 stalin.sc:20999:734579 */ /* x153545 stalin.sc:20999:734579 */ l13499: /* x153560 stalin.sc:21000:734625 */ /* x153553 stalin.sc:21000:734633 */ /* x153551 stalin.sc:21000:734636 */ /* x153550 stalin.sc:21000:734644 */ t74992 = a27367; /* x153549 stalin.sc:21000:734637 */ t74990 = f26227(t74992); /* x153552 stalin.sc:21000:734648 */ t74991 = 2; /* x268327 stalin.sc:21000:734634 */ if (!(t74990==t74991)) goto l13501; /* x153555 */ /* x153554 */ goto l13502; l13501: /* x153559 */ /* x153558 */ /* x153557 stalin.sc:21000:734651 */ /* x153556 stalin.sc:21000:734652 */ /* x295373 QobiScheme.sc:166:5314 */ /* x295372 QobiScheme.sc:166:5321 */ t74993 = "This shouldn\'t happen"; /* x295371 QobiScheme.sc:166:5315 */ stalin_panic(t74993); l13502: /* x153536 */ t74769 = p16329; p16330 = t74769; /* x153535 stalin.sc:21001:734664 */ /* x153531 stalin.sc:21001:734667 */ /* x153530 stalin.sc:21001:734674 */ t74984 = a27367; /* x153529 stalin.sc:21001:734668 */ a35685 = t74984; /* x274097 */ /* x274096 */ t74985 = a35685; /* x274095 */ if (!((t74985.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29834]"); structure_ref_error();} t74771 = t74985.value.structure_type24753->s0; /* x153534 stalin.sc:21001:734678 */ /* x153533 stalin.sc:21001:734686 */ t74986 = a27367; /* x153532 stalin.sc:21001:734679 */ t74772 = f26181(t74986); /* x153528 stalin.sc:21001:734665 */ t74770 = p16330->a27366; switch (t74770.tag) {case NATIVE_PROCEDURE_TYPE22830: p16422 = t74770.value.native_procedure_type22830; a27557 = t74771; a27558 = t74772; e16422 = (struct p16422 *)alloca(sizeof(struct p16422)); if (e16422==NULL) {backtrace("stalin.sc", 21182, 740559); out_of_memory_error();} e16422->p16421 = p16422; e16422->a27558 = a27558; /* x154320 stalin.sc:21183:740578 */ /* x154318 stalin.sc:21184:740599 */ t74773 = e16422; /* x154319 stalin.sc:21193:740891 */ t74774 = a27557; /* x154284 stalin.sc:21183:740579 */ t74775.tag = NATIVE_PROCEDURE_TYPE22837; t74775.value.native_procedure_type22837 = t74773; f8173(t74775, t74774); break; case NATIVE_PROCEDURE_TYPE22867: p16462 = t74770.value.native_procedure_type22867; a27695 = t74771; a27696 = t74772; e16462 = (struct p16462 *)alloca(sizeof(struct p16462)); if (e16462==NULL) {backtrace("stalin.sc", 21263, 742995); out_of_memory_error();} e16462->p16461 = p16462; e16462->a27696 = a27696; /* x154747 stalin.sc:21264:743014 */ /* x154682 stalin.sc:21284:743875 */ /* x154680 stalin.sc:21284:743884 */ t74800 = e16462; /* x154681 stalin.sc:21284:743914 */ t74801 = a27695; /* x154675 stalin.sc:21284:743876 */ t74802.tag = NATIVE_PROCEDURE_TYPE22872; t74802.value.native_procedure_type22872 = t74800; t74777 = f8137(t74802, t74801); /* x154746 stalin.sc:21265:743028 */ /* x154687 stalin.sc:21265:743033 */ /* x154686 stalin.sc:21265:743038 */ /* x154685 stalin.sc:21265:743045 */ t74803 = a27695; /* x154684 stalin.sc:21265:743039 */ if (!(f8147(t74803)==FALSE_TYPE)) goto l13419; /* x154744 */ /* x154692 stalin.sc:21266:743058 */ /* x154691 stalin.sc:21266:743063 */ /* x154690 stalin.sc:21266:743070 */ t74804 = e16462->a27696; /* x154689 stalin.sc:21266:743064 */ if (!(f8147(t74804)==FALSE_TYPE)) goto l13422; /* x154742 */ /* x154741 stalin.sc:21271:743236 */ /* x154740 stalin.sc:21271:743251 */ t74818 = a27695; /* x154739 stalin.sc:21271:743237 */ t74806 = f8149(t74818); /* x154738 */ t74805 = e16462; p16481 = t74805; a27709 = t74806; /* x154737 */ /* x154693 */ if (a27709==((struct structure_type27657 *)FALSE_TYPE)) goto l13425; /* x154694 */ t74778 = a27709; goto l13426; l13425: /* x154736 */ /* x154735 stalin.sc:21272:743257 */ /* x154734 stalin.sc:21272:743272 */ t74817 = p16481->a27696; /* x154733 stalin.sc:21272:743258 */ t74808 = f8149(t74817); /* x154732 */ t74807 = p16481; p16482 = t74807; a27710 = t74808; /* x154731 */ /* x154695 */ if (a27710==((struct structure_type27657 *)FALSE_TYPE)) goto l13428; /* x154696 */ t74778 = a27710; goto l13429; l13428: /* x154730 */ /* x154730 */ /* x154729 stalin.sc:21276:743416 */ /* x154728 stalin.sc:21276:743421 */ /* x154727 stalin.sc:21276:743446 */ /* x154726 stalin.sc:21276:743458 */ t74810 = a27695; /* x154725 stalin.sc:21276:743447 */ t74809 = f8153(t74810); /* x154724 stalin.sc:21276:743422 */ if (f9390(t74809)==FALSE_TYPE) goto l13430; p16483 = p16482; /* x154720 */ /* x154719 stalin.sc:21277:743466 */ /* x154718 stalin.sc:21277:743471 */ /* x154717 stalin.sc:21277:743496 */ /* x154716 stalin.sc:21277:743508 */ t74812 = p16483->a27696; /* x154715 stalin.sc:21277:743497 */ t74811 = f8153(t74812); /* x154714 stalin.sc:21277:743472 */ if (f9390(t74811)==FALSE_TYPE) goto l13430; p16484 = p16483; /* x154710 */ /* x154709 stalin.sc:21280:743628 */ /* x154705 stalin.sc:21280:743633 */ /* x154704 stalin.sc:21280:743645 */ t74815 = a27695; /* x154703 stalin.sc:21280:743634 */ t74813 = f8153(t74815); /* x154708 stalin.sc:21280:743649 */ /* x154707 stalin.sc:21280:743661 */ t74816 = p16484->a27696; /* x154706 stalin.sc:21280:743650 */ t74814 = f8153(t74816); /* x268301 stalin.sc:21280:743629 */ /* EQ: dispatching general to general */ if ((t74813.tag)==(t74814.tag)) switch (t74813.tag) {case FIXNUM_TYPE: if ((t74813.value.fixnum_type)==(t74814.value.fixnum_type)) goto l13431; break; case FLONUM_TYPE: if ((t74813.value.flonum_type)==(t74814.value.flonum_type)) goto l13431; break; case INPUT_PORT_TYPE: if ((t74813.value.input_port_type)==(t74814.value.input_port_type)) goto l13431; break; case OUTPUT_PORT_TYPE: if ((t74813.value.output_port_type)==(t74814.value.output_port_type)) goto l13431; break; case NATIVE_PROCEDURE_TYPE15963: if ((t74813.value.native_procedure_type15963)==(t74814.value.native_procedure_type15963)) goto l13431; break; case NATIVE_PROCEDURE_TYPE19067: if ((t74813.value.native_procedure_type19067)==(t74814.value.native_procedure_type19067)) goto l13431; break; case NATIVE_PROCEDURE_TYPE19068: if ((t74813.value.native_procedure_type19068)==(t74814.value.native_procedure_type19068)) goto l13431; break; case NATIVE_PROCEDURE_TYPE22459: if ((t74813.value.native_procedure_type22459)==(t74814.value.native_procedure_type22459)) goto l13431; break; case STRUCTURE_TYPE24753: if ((t74813.value.structure_type24753)==(t74814.value.structure_type24753)) goto l13431; break; case STRUCTURE_TYPE24757: if ((t74813.value.structure_type24757)==(t74814.value.structure_type24757)) goto l13431; break; case STRUCTURE_TYPE27501: if ((t74813.value.structure_type27501)==(t74814.value.structure_type27501)) goto l13431; break; case STRUCTURE_TYPE27510: if ((t74813.value.structure_type27510)==(t74814.value.structure_type27510)) goto l13431; break; case STRUCTURE_TYPE27621: if ((t74813.value.structure_type27621)==(t74814.value.structure_type27621)) goto l13431; break; case STRUCTURE_TYPE27650: if ((t74813.value.structure_type27650)==(t74814.value.structure_type27650)) goto l13431; break; case STRUCTURE_TYPE27669: if ((t74813.value.structure_type27669)==(t74814.value.structure_type27669)) goto l13431; break; case STRUCTURE_TYPE27673: if ((t74813.value.structure_type27673)==(t74814.value.structure_type27673)) goto l13431; break; case STRUCTURE_TYPE27692: if ((t74813.value.structure_type27692)==(t74814.value.structure_type27692)) goto l13431; break; case STRUCTURE_TYPE27694: if ((t74813.value.structure_type27694)==(t74814.value.structure_type27694)) goto l13431; break; case STRUCTURE_TYPE27698: if ((t74813.value.structure_type27698)==(t74814.value.structure_type27698)) goto l13431; break; case STRUCTURE_TYPE27745: if ((t74813.value.structure_type27745)==(t74814.value.structure_type27745)) goto l13431; break; case STRUCTURE_TYPE27747: if ((t74813.value.structure_type27747)==(t74814.value.structure_type27747)) goto l13431; break; case STRUCTURE_TYPE27750: if ((t74813.value.structure_type27750)==(t74814.value.structure_type27750)) goto l13431; break; case STRUCTURE_TYPE27753: if ((t74813.value.structure_type27753)==(t74814.value.structure_type27753)) goto l13431; break; case STRUCTURE_TYPE27756: if ((t74813.value.structure_type27756)==(t74814.value.structure_type27756)) goto l13431; break; case STRUCTURE_TYPE27761: if ((t74813.value.structure_type27761)==(t74814.value.structure_type27761)) goto l13431; break; case STRUCTURE_TYPE27769: if ((t74813.value.structure_type27769)==(t74814.value.structure_type27769)) goto l13431; break; case STRUCTURE_TYPE27776: if ((t74813.value.structure_type27776)==(t74814.value.structure_type27776)) goto l13431; break; case STRUCTURE_TYPE27779: if ((t74813.value.structure_type27779)==(t74814.value.structure_type27779)) goto l13431; break; case STRUCTURE_TYPE27858: if ((t74813.value.structure_type27858)==(t74814.value.structure_type27858)) goto l13431; break; case STRING_TYPE: if ((t74813.value.string_type)==(t74814.value.string_type)) goto l13431; break; case HEADED_VECTOR_TYPE27896: if ((t74813.value.headed_vector_type27896)==(t74814.value.headed_vector_type27896)) goto l13431; break; case EXTERNAL_SYMBOL_TYPE: if ((t74813.value.external_symbol_type)==(t74814.value.external_symbol_type)) goto l13431; break; case STRUCTURE_TYPE27908: if ((t74813.value.structure_type27908)==(t74814.value.structure_type27908)) goto l13431; break; default: goto l13431;} l13430: t74778 = (struct structure_type27657 *)TRUE_TYPE; goto l13432; l13431: t74778 = (struct structure_type27657 *)FALSE_TYPE; l13432: l13429: l13426: goto l13423; l13422: /* x154743 */ t74778 = (struct structure_type27657 *)FALSE_TYPE; l13423: goto l13420; l13419: /* x154745 */ t74778 = (struct structure_type27657 *)FALSE_TYPE; l13420: /* x154674 */ t74776 = e16462; p16463 = t74776; a27697 = t74777; a27698 = t74778; /* x154673 */ /* x154663 stalin.sc:21285:743924 */ /* x154655 stalin.sc:21285:743930 */ if ((a27697.tag)==FALSE_TYPE) goto l13413; /* x154660 */ /* x154659 */ t74790 = p16463->p16461; p16476 = t74790; /* x154658 stalin.sc:21285:743934 */ /* x154657 stalin.sc:21285:743953 */ t74792 = a1978; /* x154656 stalin.sc:21285:743935 */ t74791 = p16476->a27692; if ((t74791&3)==1) {/* MOVE: branching squeezed to general */ if (t74792>=((char *)VALUE_OFFSET)) {t74793.tag = EXTERNAL_SYMBOL_TYPE; t74793.value.external_symbol_type = t74792;} else t74793.tag = (unsigned)t74792; f10658(((struct p10641 *)(t74791-1)), t74793);} else {/* MOVE: branching squeezed to general */ if (t74792>=((char *)VALUE_OFFSET)) {t74794.tag = EXTERNAL_SYMBOL_TYPE; t74794.value.external_symbol_type = t74792;} else t74794.tag = (unsigned)t74792; f10657(((struct p10646 *)t74791), t74794);} goto l13414; l13413: /* x154662 stalin.sc:21285:743924 */ /* x154661 stalin.sc:21285:743924 */ l13414: /* x154672 stalin.sc:21286:743966 */ /* x154664 stalin.sc:21286:743972 */ if (a27698==((struct structure_type27657 *)FALSE_TYPE)) goto l13416; /* x154669 */ /* x154668 */ t74795 = p16463->p16461; p16478 = t74795; /* x154667 stalin.sc:21286:743976 */ /* x154666 stalin.sc:21286:743995 */ t74797 = a1975; /* x154665 stalin.sc:21286:743977 */ t74796 = p16478->a27692; if ((t74796&3)==1) {/* MOVE: branching squeezed to general */ if (t74797>=((char *)VALUE_OFFSET)) {t74798.tag = EXTERNAL_SYMBOL_TYPE; t74798.value.external_symbol_type = t74797;} else t74798.tag = (unsigned)t74797; f10658(((struct p10641 *)(t74796-1)), t74798);} else {/* MOVE: branching squeezed to general */ if (t74797>=((char *)VALUE_OFFSET)) {t74799.tag = EXTERNAL_SYMBOL_TYPE; t74799.value.external_symbol_type = t74797;} else t74799.tag = (unsigned)t74797; f10657(((struct p10646 *)t74796), t74799);} goto l13417; l13416: /* x154671 stalin.sc:21286:743966 */ /* x154670 stalin.sc:21286:743966 */ l13417: /* x154654 */ t74779 = p16463; p16464 = t74779; /* x154653 stalin.sc:21287:744009 */ /* x154598 stalin.sc:21287:744015 */ /* x154595 stalin.sc:21287:744020 */ if (a27698==((struct structure_type27657 *)FALSE_TYPE)) goto l13409; /* x154596 */ if ((a27697.tag)==FALSE_TYPE) goto l13409; /* x154650 */ /* x154649 */ t74780 = p16464; p16465 = t74780; /* x154648 */ /* x154623 stalin.sc:21288:744034 */ /* x154621 stalin.sc:21288:744051 */ /* x154622 stalin.sc:21288:744097 */ t74784 = a27695; /* x154616 stalin.sc:21288:744035 */ t74785.tag = NATIVE_PROCEDURE_TYPE22918; f8173(t74785, t74784); /* x154631 stalin.sc:21289:744106 */ /* x154629 stalin.sc:21289:744123 */ /* x154630 stalin.sc:21289:744169 */ t74786 = p16465->a27696; /* x154624 stalin.sc:21289:744107 */ t74787.tag = NATIVE_PROCEDURE_TYPE22884; f8173(t74787, t74786); /* x154647 stalin.sc:21290:744178 */ /* x154645 stalin.sc:21290:744195 */ /* x154646 stalin.sc:21293:744296 */ t74788 = a27695; /* x154632 stalin.sc:21290:744179 */ t74789.tag = NATIVE_PROCEDURE_TYPE22881; f8173(t74789, t74788); /* x154615 */ t74781 = p16465; p16466 = t74781; /* x154614 stalin.sc:21294:744305 */ /* x154612 stalin.sc:21294:744322 */ /* x154613 stalin.sc:21297:744423 */ t74782 = p16466->a27696; /* x154599 stalin.sc:21294:744306 */ t74783.tag = NATIVE_PROCEDURE_TYPE22920; f8173(t74783, t74782); goto l13410; l13409: /* x154652 stalin.sc:21287:744009 */ /* x154651 stalin.sc:21287:744009 */ l13410: break; case NATIVE_PROCEDURE_TYPE23037: p17106 = t74770.value.native_procedure_type23037; a29036 = t74771; a29037 = t74772; /* x160294 */ /* x160293 stalin.sc:22463:785538 */ /* x160285 stalin.sc:22463:785544 */ /* x160279 stalin.sc:22463:785549 */ /* x160277 stalin.sc:22463:785558 */ /* x160278 stalin.sc:22463:785571 */ t74837 = a29036; /* x160276 stalin.sc:22463:785550 */ t74838.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t74838, t74837).tag)==FALSE_TYPE) goto l13444; /* x160283 */ /* x160281 stalin.sc:22463:785584 */ /* x160282 stalin.sc:22463:785597 */ t74839 = a29037; /* x160280 stalin.sc:22463:785576 */ t74840.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t74840, t74839).tag)==FALSE_TYPE) goto l13444; /* x160290 */ /* x160289 */ t74841 = p17106; p17113 = t74841; /* x160288 stalin.sc:22464:785606 */ /* x160287 stalin.sc:22464:785625 */ t74843 = a1969; /* x160286 stalin.sc:22464:785607 */ t74842 = p17113->a29033; if ((t74842&3)==1) {/* MOVE: branching squeezed to general */ if (t74843>=((char *)VALUE_OFFSET)) {t74844.tag = EXTERNAL_SYMBOL_TYPE; t74844.value.external_symbol_type = t74843;} else t74844.tag = (unsigned)t74843; f10658(((struct p10641 *)(t74842-1)), t74844);} else {/* MOVE: branching squeezed to general */ if (t74843>=((char *)VALUE_OFFSET)) {t74845.tag = EXTERNAL_SYMBOL_TYPE; t74845.value.external_symbol_type = t74843;} else t74845.tag = (unsigned)t74843; f10657(((struct p10646 *)t74842), t74845);} goto l13445; l13444: /* x160292 stalin.sc:22463:785538 */ /* x160291 stalin.sc:22463:785538 */ l13445: /* x160275 */ t74819 = p17106; p17107 = t74819; /* x160274 stalin.sc:22465:785639 */ /* x160266 stalin.sc:22465:785645 */ /* x160265 stalin.sc:22466:785652 */ /* x160259 stalin.sc:22466:785657 */ /* x160258 stalin.sc:22466:785661 */ /* x160256 stalin.sc:22466:785670 */ /* x160257 stalin.sc:22466:785683 */ t74820 = a29036; /* x160255 stalin.sc:22466:785662 */ t74821.tag = NATIVE_PROCEDURE_TYPE7429; if (!((f8137(t74821, t74820).tag)==FALSE_TYPE)) goto l13439; /* x160252 */ /* x160250 stalin.sc:22466:785696 */ /* x160251 stalin.sc:22466:785714 */ t74822 = a29036; /* x160249 stalin.sc:22466:785688 */ t74823.tag = NATIVE_PROCEDURE_TYPE7427; if ((f8137(t74823, t74822).tag)==FALSE_TYPE) goto l13438; l13439: /* x160263 */ /* x160261 stalin.sc:22467:785736 */ /* x160262 stalin.sc:22467:785749 */ t74824 = a29037; /* x160260 stalin.sc:22467:785728 */ t74825.tag = NATIVE_PROCEDURE_TYPE7426; if (!((f8137(t74825, t74824).tag)==FALSE_TYPE)) goto l13435; l13438: /* x160244 */ /* x160229 stalin.sc:22468:785762 */ /* x160227 stalin.sc:22468:785771 */ /* x160228 stalin.sc:22468:785784 */ t74826 = a29036; /* x160226 stalin.sc:22468:785763 */ t74827.tag = NATIVE_PROCEDURE_TYPE7426; if ((f8137(t74827, t74826).tag)==FALSE_TYPE) goto l13436; /* x160242 */ /* x160241 stalin.sc:22469:785800 */ /* x160239 stalin.sc:22469:785809 */ /* x160240 stalin.sc:22469:785822 */ t74828 = a29037; /* x160238 stalin.sc:22469:785801 */ t74829.tag = NATIVE_PROCEDURE_TYPE7429; if (!((f8137(t74829, t74828).tag)==FALSE_TYPE)) goto l13435; /* x160235 */ /* x160233 stalin.sc:22469:785835 */ /* x160234 stalin.sc:22469:785853 */ t74830 = a29037; /* x160232 stalin.sc:22469:785827 */ t74831.tag = NATIVE_PROCEDURE_TYPE7427; if ((f8137(t74831, t74830).tag)==FALSE_TYPE) goto l13436; l13435: /* x160271 */ /* x160270 */ t74832 = p17107; p17111 = t74832; /* x160269 stalin.sc:22470:785864 */ /* x160268 stalin.sc:22470:785883 */ t74834 = a1966; /* x160267 stalin.sc:22470:785865 */ t74833 = p17111->a29033; if ((t74833&3)==1) {/* MOVE: branching squeezed to general */ if (t74834>=((char *)VALUE_OFFSET)) {t74835.tag = EXTERNAL_SYMBOL_TYPE; t74835.value.external_symbol_type = t74834;} else t74835.tag = (unsigned)t74834; f10658(((struct p10641 *)(t74833-1)), t74835);} else {/* MOVE: branching squeezed to general */ if (t74834>=((char *)VALUE_OFFSET)) {t74836.tag = EXTERNAL_SYMBOL_TYPE; t74836.value.external_symbol_type = t74834;} else t74836.tag = (unsigned)t74834; f10657(((struct p10646 *)t74833), t74836);} goto l13437; l13436: /* x160273 stalin.sc:22465:785639 */ /* x160272 stalin.sc:22465:785639 */ l13437: break; case NATIVE_PROCEDURE_TYPE23046: p17073 = t74770.value.native_procedure_type23046; a28985 = t74771; a28986 = t74772; /* x159897 */ /* x159896 stalin.sc:22383:783177 */ /* x159888 stalin.sc:22383:783183 */ /* x159882 stalin.sc:22383:783188 */ /* x159880 stalin.sc:22383:783197 */ /* x159881 stalin.sc:22383:783210 */ t74864 = a28985; /* x159879 stalin.sc:22383:783189 */ t74865.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t74865, t74864).tag)==FALSE_TYPE) goto l13456; /* x159886 */ /* x159884 stalin.sc:22383:783223 */ /* x159885 stalin.sc:22383:783236 */ t74866 = a28986; /* x159883 stalin.sc:22383:783215 */ t74867.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t74867, t74866).tag)==FALSE_TYPE) goto l13456; /* x159893 */ /* x159892 */ t74868 = p17073; p17080 = t74868; /* x159891 stalin.sc:22384:783245 */ /* x159890 stalin.sc:22384:783264 */ t74870 = a1969; /* x159889 stalin.sc:22384:783246 */ t74869 = p17080->a28982; if ((t74869&3)==1) {/* MOVE: branching squeezed to general */ if (t74870>=((char *)VALUE_OFFSET)) {t74871.tag = EXTERNAL_SYMBOL_TYPE; t74871.value.external_symbol_type = t74870;} else t74871.tag = (unsigned)t74870; f10658(((struct p10641 *)(t74869-1)), t74871);} else {/* MOVE: branching squeezed to general */ if (t74870>=((char *)VALUE_OFFSET)) {t74872.tag = EXTERNAL_SYMBOL_TYPE; t74872.value.external_symbol_type = t74870;} else t74872.tag = (unsigned)t74870; f10657(((struct p10646 *)t74869), t74872);} goto l13457; l13456: /* x159895 stalin.sc:22383:783177 */ /* x159894 stalin.sc:22383:783177 */ l13457: /* x159878 */ t74846 = p17073; p17074 = t74846; /* x159877 stalin.sc:22385:783278 */ /* x159869 stalin.sc:22385:783284 */ /* x159868 stalin.sc:22386:783291 */ /* x159862 stalin.sc:22386:783296 */ /* x159861 stalin.sc:22386:783300 */ /* x159859 stalin.sc:22386:783309 */ /* x159860 stalin.sc:22386:783322 */ t74847 = a28985; /* x159858 stalin.sc:22386:783301 */ t74848.tag = NATIVE_PROCEDURE_TYPE7429; if (!((f8137(t74848, t74847).tag)==FALSE_TYPE)) goto l13451; /* x159855 */ /* x159853 stalin.sc:22386:783335 */ /* x159854 stalin.sc:22386:783353 */ t74849 = a28985; /* x159852 stalin.sc:22386:783327 */ t74850.tag = NATIVE_PROCEDURE_TYPE7427; if ((f8137(t74850, t74849).tag)==FALSE_TYPE) goto l13450; l13451: /* x159866 */ /* x159864 stalin.sc:22387:783375 */ /* x159865 stalin.sc:22387:783388 */ t74851 = a28986; /* x159863 stalin.sc:22387:783367 */ t74852.tag = NATIVE_PROCEDURE_TYPE7426; if (!((f8137(t74852, t74851).tag)==FALSE_TYPE)) goto l13447; l13450: /* x159847 */ /* x159832 stalin.sc:22388:783401 */ /* x159830 stalin.sc:22388:783410 */ /* x159831 stalin.sc:22388:783423 */ t74853 = a28985; /* x159829 stalin.sc:22388:783402 */ t74854.tag = NATIVE_PROCEDURE_TYPE7426; if ((f8137(t74854, t74853).tag)==FALSE_TYPE) goto l13448; /* x159845 */ /* x159844 stalin.sc:22389:783439 */ /* x159842 stalin.sc:22389:783448 */ /* x159843 stalin.sc:22389:783461 */ t74855 = a28986; /* x159841 stalin.sc:22389:783440 */ t74856.tag = NATIVE_PROCEDURE_TYPE7429; if (!((f8137(t74856, t74855).tag)==FALSE_TYPE)) goto l13447; /* x159838 */ /* x159836 stalin.sc:22389:783474 */ /* x159837 stalin.sc:22389:783492 */ t74857 = a28986; /* x159835 stalin.sc:22389:783466 */ t74858.tag = NATIVE_PROCEDURE_TYPE7427; if ((f8137(t74858, t74857).tag)==FALSE_TYPE) goto l13448; l13447: /* x159874 */ /* x159873 */ t74859 = p17074; p17078 = t74859; /* x159872 stalin.sc:22390:783503 */ /* x159871 stalin.sc:22390:783522 */ t74861 = a1966; /* x159870 stalin.sc:22390:783504 */ t74860 = p17078->a28982; if ((t74860&3)==1) {/* MOVE: branching squeezed to general */ if (t74861>=((char *)VALUE_OFFSET)) {t74862.tag = EXTERNAL_SYMBOL_TYPE; t74862.value.external_symbol_type = t74861;} else t74862.tag = (unsigned)t74861; f10658(((struct p10641 *)(t74860-1)), t74862);} else {/* MOVE: branching squeezed to general */ if (t74861>=((char *)VALUE_OFFSET)) {t74863.tag = EXTERNAL_SYMBOL_TYPE; t74863.value.external_symbol_type = t74861;} else t74863.tag = (unsigned)t74861; f10657(((struct p10646 *)t74860), t74863);} goto l13449; l13448: /* x159876 stalin.sc:22385:783278 */ /* x159875 stalin.sc:22385:783278 */ l13449: break; case NATIVE_PROCEDURE_TYPE23085: p17172 = t74770.value.native_procedure_type23085; a29138 = t74771; a29139 = t74772; /* x161088 */ /* x161087 stalin.sc:22622:790177 */ /* x161079 stalin.sc:22622:790183 */ /* x161073 stalin.sc:22622:790188 */ /* x161071 stalin.sc:22622:790197 */ /* x161072 stalin.sc:22622:790210 */ t74891 = a29138; /* x161070 stalin.sc:22622:790189 */ t74892.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t74892, t74891).tag)==FALSE_TYPE) goto l13468; /* x161077 */ /* x161075 stalin.sc:22622:790223 */ /* x161076 stalin.sc:22622:790236 */ t74893 = a29139; /* x161074 stalin.sc:22622:790215 */ t74894.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t74894, t74893).tag)==FALSE_TYPE) goto l13468; /* x161084 */ /* x161083 */ t74895 = p17172; p17179 = t74895; /* x161082 stalin.sc:22623:790245 */ /* x161081 stalin.sc:22623:790264 */ t74897 = a1969; /* x161080 stalin.sc:22623:790246 */ t74896 = p17179->a29135; if ((t74896&3)==1) {/* MOVE: branching squeezed to general */ if (t74897>=((char *)VALUE_OFFSET)) {t74898.tag = EXTERNAL_SYMBOL_TYPE; t74898.value.external_symbol_type = t74897;} else t74898.tag = (unsigned)t74897; f10658(((struct p10641 *)(t74896-1)), t74898);} else {/* MOVE: branching squeezed to general */ if (t74897>=((char *)VALUE_OFFSET)) {t74899.tag = EXTERNAL_SYMBOL_TYPE; t74899.value.external_symbol_type = t74897;} else t74899.tag = (unsigned)t74897; f10657(((struct p10646 *)t74896), t74899);} goto l13469; l13468: /* x161086 stalin.sc:22622:790177 */ /* x161085 stalin.sc:22622:790177 */ l13469: /* x161069 */ t74873 = p17172; p17173 = t74873; /* x161068 stalin.sc:22624:790278 */ /* x161060 stalin.sc:22624:790284 */ /* x161059 stalin.sc:22625:790291 */ /* x161053 stalin.sc:22625:790296 */ /* x161052 stalin.sc:22625:790300 */ /* x161050 stalin.sc:22625:790309 */ /* x161051 stalin.sc:22625:790322 */ t74874 = a29138; /* x161049 stalin.sc:22625:790301 */ t74875.tag = NATIVE_PROCEDURE_TYPE7429; if (!((f8137(t74875, t74874).tag)==FALSE_TYPE)) goto l13463; /* x161046 */ /* x161044 stalin.sc:22625:790335 */ /* x161045 stalin.sc:22625:790353 */ t74876 = a29138; /* x161043 stalin.sc:22625:790327 */ t74877.tag = NATIVE_PROCEDURE_TYPE7427; if ((f8137(t74877, t74876).tag)==FALSE_TYPE) goto l13462; l13463: /* x161057 */ /* x161055 stalin.sc:22626:790375 */ /* x161056 stalin.sc:22626:790388 */ t74878 = a29139; /* x161054 stalin.sc:22626:790367 */ t74879.tag = NATIVE_PROCEDURE_TYPE7426; if (!((f8137(t74879, t74878).tag)==FALSE_TYPE)) goto l13459; l13462: /* x161038 */ /* x161023 stalin.sc:22627:790401 */ /* x161021 stalin.sc:22627:790410 */ /* x161022 stalin.sc:22627:790423 */ t74880 = a29138; /* x161020 stalin.sc:22627:790402 */ t74881.tag = NATIVE_PROCEDURE_TYPE7426; if ((f8137(t74881, t74880).tag)==FALSE_TYPE) goto l13460; /* x161036 */ /* x161035 stalin.sc:22628:790439 */ /* x161033 stalin.sc:22628:790448 */ /* x161034 stalin.sc:22628:790461 */ t74882 = a29139; /* x161032 stalin.sc:22628:790440 */ t74883.tag = NATIVE_PROCEDURE_TYPE7429; if (!((f8137(t74883, t74882).tag)==FALSE_TYPE)) goto l13459; /* x161029 */ /* x161027 stalin.sc:22628:790474 */ /* x161028 stalin.sc:22628:790492 */ t74884 = a29139; /* x161026 stalin.sc:22628:790466 */ t74885.tag = NATIVE_PROCEDURE_TYPE7427; if ((f8137(t74885, t74884).tag)==FALSE_TYPE) goto l13460; l13459: /* x161065 */ /* x161064 */ t74886 = p17173; p17177 = t74886; /* x161063 stalin.sc:22629:790503 */ /* x161062 stalin.sc:22629:790522 */ t74888 = a1966; /* x161061 stalin.sc:22629:790504 */ t74887 = p17177->a29135; if ((t74887&3)==1) {/* MOVE: branching squeezed to general */ if (t74888>=((char *)VALUE_OFFSET)) {t74889.tag = EXTERNAL_SYMBOL_TYPE; t74889.value.external_symbol_type = t74888;} else t74889.tag = (unsigned)t74888; f10658(((struct p10641 *)(t74887-1)), t74889);} else {/* MOVE: branching squeezed to general */ if (t74888>=((char *)VALUE_OFFSET)) {t74890.tag = EXTERNAL_SYMBOL_TYPE; t74890.value.external_symbol_type = t74888;} else t74890.tag = (unsigned)t74888; f10657(((struct p10646 *)t74887), t74890);} goto l13461; l13460: /* x161067 stalin.sc:22624:790278 */ /* x161066 stalin.sc:22624:790278 */ l13461: break; case NATIVE_PROCEDURE_TYPE23140: p17457 = t74770.value.native_procedure_type23140; a29975 = t74771; a29976 = t74772; /* x163239 */ /* x163238 stalin.sc:23226:811043 */ /* x163230 stalin.sc:23226:811049 */ /* x163224 stalin.sc:23226:811054 */ /* x163222 stalin.sc:23226:811063 */ /* x163223 stalin.sc:23226:811076 */ t74910 = a29975; /* x163221 stalin.sc:23226:811055 */ t74911.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t74911, t74910).tag)==FALSE_TYPE) goto l13476; /* x163228 */ /* x163226 stalin.sc:23226:811089 */ /* x163227 stalin.sc:23226:811102 */ t74912 = a29976; /* x163225 stalin.sc:23226:811081 */ t74913.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t74913, t74912).tag)==FALSE_TYPE) goto l13476; /* x163235 */ /* x163234 */ t74914 = p17457; p17461 = t74914; /* x163233 stalin.sc:23227:811111 */ /* x163232 stalin.sc:23227:811130 */ t74916 = a1969; /* x163231 stalin.sc:23227:811112 */ t74915 = p17461->a29972; if ((t74915&3)==1) {/* MOVE: branching squeezed to general */ if (t74916>=((char *)VALUE_OFFSET)) {t74917.tag = EXTERNAL_SYMBOL_TYPE; t74917.value.external_symbol_type = t74916;} else t74917.tag = (unsigned)t74916; f10658(((struct p10641 *)(t74915-1)), t74917);} else {/* MOVE: branching squeezed to general */ if (t74916>=((char *)VALUE_OFFSET)) {t74918.tag = EXTERNAL_SYMBOL_TYPE; t74918.value.external_symbol_type = t74916;} else t74918.tag = (unsigned)t74916; f10657(((struct p10646 *)t74915), t74918);} goto l13477; l13476: /* x163237 stalin.sc:23226:811043 */ /* x163236 stalin.sc:23226:811043 */ l13477: /* x163220 */ t74900 = p17457; p17458 = t74900; /* x163219 stalin.sc:23228:811144 */ /* x163211 stalin.sc:23228:811150 */ /* x163205 stalin.sc:23228:811155 */ /* x163203 stalin.sc:23228:811164 */ /* x163204 stalin.sc:23228:811177 */ t74901 = a29975; /* x163202 stalin.sc:23228:811156 */ t74902.tag = NATIVE_PROCEDURE_TYPE7426; if ((f8137(t74902, t74901).tag)==FALSE_TYPE) goto l13472; /* x163209 */ /* x163207 stalin.sc:23228:811190 */ /* x163208 stalin.sc:23228:811203 */ t74903 = a29976; /* x163206 stalin.sc:23228:811182 */ t74904.tag = NATIVE_PROCEDURE_TYPE7426; if ((f8137(t74904, t74903).tag)==FALSE_TYPE) goto l13472; /* x163216 */ /* x163215 */ t74905 = p17458; p17459 = t74905; /* x163214 stalin.sc:23229:811212 */ /* x163213 stalin.sc:23229:811231 */ t74907 = a1966; /* x163212 stalin.sc:23229:811213 */ t74906 = p17459->a29972; if ((t74906&3)==1) {/* MOVE: branching squeezed to general */ if (t74907>=((char *)VALUE_OFFSET)) {t74908.tag = EXTERNAL_SYMBOL_TYPE; t74908.value.external_symbol_type = t74907;} else t74908.tag = (unsigned)t74907; f10658(((struct p10641 *)(t74906-1)), t74908);} else {/* MOVE: branching squeezed to general */ if (t74907>=((char *)VALUE_OFFSET)) {t74909.tag = EXTERNAL_SYMBOL_TYPE; t74909.value.external_symbol_type = t74907;} else t74909.tag = (unsigned)t74907; f10657(((struct p10646 *)t74906), t74909);} goto l13473; l13472: /* x163218 stalin.sc:23228:811144 */ /* x163217 stalin.sc:23228:811144 */ l13473: break; case NATIVE_PROCEDURE_TYPE23149: p17139 = t74770.value.native_procedure_type23149; a29087 = t74771; a29088 = t74772; /* x160691 */ /* x160690 stalin.sc:22543:787890 */ /* x160682 stalin.sc:22543:787896 */ /* x160676 stalin.sc:22543:787901 */ /* x160674 stalin.sc:22543:787910 */ /* x160675 stalin.sc:22543:787923 */ t74937 = a29087; /* x160673 stalin.sc:22543:787902 */ t74938.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t74938, t74937).tag)==FALSE_TYPE) goto l13488; /* x160680 */ /* x160678 stalin.sc:22543:787936 */ /* x160679 stalin.sc:22543:787949 */ t74939 = a29088; /* x160677 stalin.sc:22543:787928 */ t74940.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t74940, t74939).tag)==FALSE_TYPE) goto l13488; /* x160687 */ /* x160686 */ t74941 = p17139; p17146 = t74941; /* x160685 stalin.sc:22544:787958 */ /* x160684 stalin.sc:22544:787977 */ t74943 = a1969; /* x160683 stalin.sc:22544:787959 */ t74942 = p17146->a29084; if ((t74942&3)==1) {/* MOVE: branching squeezed to general */ if (t74943>=((char *)VALUE_OFFSET)) {t74944.tag = EXTERNAL_SYMBOL_TYPE; t74944.value.external_symbol_type = t74943;} else t74944.tag = (unsigned)t74943; f10658(((struct p10641 *)(t74942-1)), t74944);} else {/* MOVE: branching squeezed to general */ if (t74943>=((char *)VALUE_OFFSET)) {t74945.tag = EXTERNAL_SYMBOL_TYPE; t74945.value.external_symbol_type = t74943;} else t74945.tag = (unsigned)t74943; f10657(((struct p10646 *)t74942), t74945);} goto l13489; l13488: /* x160689 stalin.sc:22543:787890 */ /* x160688 stalin.sc:22543:787890 */ l13489: /* x160672 */ t74919 = p17139; p17140 = t74919; /* x160671 stalin.sc:22545:787991 */ /* x160663 stalin.sc:22545:787997 */ /* x160662 stalin.sc:22546:788004 */ /* x160656 stalin.sc:22546:788009 */ /* x160655 stalin.sc:22546:788013 */ /* x160653 stalin.sc:22546:788022 */ /* x160654 stalin.sc:22546:788035 */ t74920 = a29087; /* x160652 stalin.sc:22546:788014 */ t74921.tag = NATIVE_PROCEDURE_TYPE7429; if (!((f8137(t74921, t74920).tag)==FALSE_TYPE)) goto l13483; /* x160649 */ /* x160647 stalin.sc:22546:788048 */ /* x160648 stalin.sc:22546:788066 */ t74922 = a29087; /* x160646 stalin.sc:22546:788040 */ t74923.tag = NATIVE_PROCEDURE_TYPE7427; if ((f8137(t74923, t74922).tag)==FALSE_TYPE) goto l13482; l13483: /* x160660 */ /* x160658 stalin.sc:22547:788088 */ /* x160659 stalin.sc:22547:788101 */ t74924 = a29088; /* x160657 stalin.sc:22547:788080 */ t74925.tag = NATIVE_PROCEDURE_TYPE7426; if (!((f8137(t74925, t74924).tag)==FALSE_TYPE)) goto l13479; l13482: /* x160641 */ /* x160626 stalin.sc:22548:788114 */ /* x160624 stalin.sc:22548:788123 */ /* x160625 stalin.sc:22548:788136 */ t74926 = a29087; /* x160623 stalin.sc:22548:788115 */ t74927.tag = NATIVE_PROCEDURE_TYPE7426; if ((f8137(t74927, t74926).tag)==FALSE_TYPE) goto l13480; /* x160639 */ /* x160638 stalin.sc:22549:788152 */ /* x160636 stalin.sc:22549:788161 */ /* x160637 stalin.sc:22549:788174 */ t74928 = a29088; /* x160635 stalin.sc:22549:788153 */ t74929.tag = NATIVE_PROCEDURE_TYPE7429; if (!((f8137(t74929, t74928).tag)==FALSE_TYPE)) goto l13479; /* x160632 */ /* x160630 stalin.sc:22549:788187 */ /* x160631 stalin.sc:22549:788205 */ t74930 = a29088; /* x160629 stalin.sc:22549:788179 */ t74931.tag = NATIVE_PROCEDURE_TYPE7427; if ((f8137(t74931, t74930).tag)==FALSE_TYPE) goto l13480; l13479: /* x160668 */ /* x160667 */ t74932 = p17140; p17144 = t74932; /* x160666 stalin.sc:22550:788216 */ /* x160665 stalin.sc:22550:788235 */ t74934 = a1966; /* x160664 stalin.sc:22550:788217 */ t74933 = p17144->a29084; if ((t74933&3)==1) {/* MOVE: branching squeezed to general */ if (t74934>=((char *)VALUE_OFFSET)) {t74935.tag = EXTERNAL_SYMBOL_TYPE; t74935.value.external_symbol_type = t74934;} else t74935.tag = (unsigned)t74934; f10658(((struct p10641 *)(t74933-1)), t74935);} else {/* MOVE: branching squeezed to general */ if (t74934>=((char *)VALUE_OFFSET)) {t74936.tag = EXTERNAL_SYMBOL_TYPE; t74936.value.external_symbol_type = t74934;} else t74936.tag = (unsigned)t74934; f10657(((struct p10646 *)t74933), t74936);} goto l13481; l13480: /* x160670 stalin.sc:22545:787991 */ /* x160669 stalin.sc:22545:787991 */ l13481: break; case NATIVE_PROCEDURE_TYPE23173: p17618 = t74770.value.native_procedure_type23173; a30460 = t74771; /* x164590 */ /* x164589 stalin.sc:23557:820575 */ /* x164587 stalin.sc:23557:820592 */ /* x164588 stalin.sc:23560:820698 */ t74951 = a30460; /* x164574 stalin.sc:23557:820576 */ t74952.tag = NATIVE_PROCEDURE_TYPE23174; f8173(t74952, t74951); /* x164573 */ t74946 = p17618; p17619 = t74946; /* x164572 stalin.sc:23561:820705 */ /* x164571 stalin.sc:23561:820724 */ t74948 = a1972; /* x164570 stalin.sc:23561:820706 */ t74947 = p17619->a30457; if ((t74947&3)==1) {/* MOVE: branching squeezed to general */ if (t74948>=((char *)VALUE_OFFSET)) {t74949.tag = EXTERNAL_SYMBOL_TYPE; t74949.value.external_symbol_type = t74948;} else t74949.tag = (unsigned)t74948; f10658(((struct p10641 *)(t74947-1)), t74949);} else {/* MOVE: branching squeezed to general */ if (t74948>=((char *)VALUE_OFFSET)) {t74950.tag = EXTERNAL_SYMBOL_TYPE; t74950.value.external_symbol_type = t74948;} else t74950.tag = (unsigned)t74948; f10657(((struct p10646 *)t74947), t74950);} break; case NATIVE_PROCEDURE_TYPE23374: p17766 = t74770.value.native_procedure_type23374; a30828 = t74771; /* x165906 */ /* x165905 stalin.sc:23911:830484 */ /* x165903 stalin.sc:23912:830505 */ /* x165904 stalin.sc:23919:830810 */ t74957 = a30828; /* x165870 stalin.sc:23911:830485 */ t74958.tag = NATIVE_PROCEDURE_TYPE23375; f8173(t74958, t74957); /* x165869 */ t74953 = p17766; p17767 = t74953; /* x165868 stalin.sc:23920:830817 */ /* x165866 stalin.sc:23921:830838 */ t74954 = p17767; /* x165867 stalin.sc:23924:830953 */ t74955 = a30828; /* x165851 stalin.sc:23920:830818 */ t74956.tag = NATIVE_PROCEDURE_TYPE23384; t74956.value.native_procedure_type23384 = t74954; f8173(t74956, t74955); break; case NATIVE_PROCEDURE_TYPE23431: /* x168324 stalin.sc:24514:848931 */ break; default: p18126 = t74770.value.native_procedure_type23450; a32120 = t74771; a32121 = t74772; /* x169015 */ /* x169014 stalin.sc:24694:853874 */ /* x169003 stalin.sc:24694:853891 */ /* x169001 stalin.sc:24694:853911 */ t74979 = p18126->a32115; /* x169002 stalin.sc:24694:853913 */ t74980 = q64; /* x169000 stalin.sc:24694:853892 */ t74972 = f8743(t74979, t74980); /* x169004 stalin.sc:24695:853936 */ t74973 = a32120; /* x169012 stalin.sc:24696:853945 */ /* x169007 stalin.sc:24696:853949 */ /* x169006 stalin.sc:24696:853961 */ t74981 = p18126->a32115; /* x169005 stalin.sc:24696:853950 */ /* MOVE: branching squeezed to general */ if (t74981>=((struct structure_type27745 *)VALUE_OFFSET)) {t74982.tag = STRUCTURE_TYPE27745; t74982.value.structure_type27745 = t74981;} else t74982.tag = (unsigned)t74981; if (f8944(t74982)==FALSE_TYPE) goto l13495; /* x169010 stalin.sc:24696:853964 */ /* x169009 stalin.sc:24696:853970 */ t74983 = p18126->a32119; /* x169008 stalin.sc:24696:853965 */ a34902 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34902==NULL) {backtrace("stalin.sc", 24696, 853964); out_of_memory_error();} a34902->s0 = t74983; a34902->s1.tag = NULL_TYPE; /* x271811 */ t74974 = a34902; goto l13496; l13495: /* x169011 stalin.sc:24696:853974 */ t74974 = (struct structure_type24753 *)NULL_TYPE; l13496: /* x169013 stalin.sc:24697:853985 */ t74975 = a1675; /* x168999 stalin.sc:24694:853875 */ t74976 = t74972; /* MOVE: branching squeezed to general */ if (t74974>=((struct structure_type24753 *)VALUE_OFFSET)) {t74977.tag = STRUCTURE_TYPE24753; t74977.value.structure_type24753 = t74974;} else t74977.tag = (unsigned)t74974; /* MOVE: branching squeezed to general */ if (t74975>=((struct structure_type27650 *)VALUE_OFFSET)) {t74978.tag = STRUCTURE_TYPE27650; t74978.value.structure_type27650 = t74975;} else t74978.tag = (unsigned)t74975; f10641(t74976, t74973, t74977, t74978); /* x168998 */ t74959 = p18126; p18127 = t74959; /* x168997 stalin.sc:24698:853996 */ /* x168986 stalin.sc:24698:854013 */ /* x168984 stalin.sc:24698:854033 */ t74967 = p18127->a32115; /* x168985 stalin.sc:24698:854035 */ t74968 = q65; /* x168983 stalin.sc:24698:854014 */ t74960 = f8743(t74967, t74968); /* x168987 stalin.sc:24699:854059 */ t74961 = a32121; /* x168995 stalin.sc:24700:854068 */ /* x168990 stalin.sc:24700:854072 */ /* x168989 stalin.sc:24700:854084 */ t74969 = p18127->a32115; /* x168988 stalin.sc:24700:854073 */ /* MOVE: branching squeezed to general */ if (t74969>=((struct structure_type27745 *)VALUE_OFFSET)) {t74970.tag = STRUCTURE_TYPE27745; t74970.value.structure_type27745 = t74969;} else t74970.tag = (unsigned)t74969; if (f8944(t74970)==FALSE_TYPE) goto l13492; /* x168993 stalin.sc:24700:854087 */ /* x168992 stalin.sc:24700:854093 */ t74971 = p18127->a32119; /* x168991 stalin.sc:24700:854088 */ a34901 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34901==NULL) {backtrace("stalin.sc", 24700, 854087); out_of_memory_error();} a34901->s0 = t74971; a34901->s1.tag = NULL_TYPE; /* x271809 */ t74962 = a34901; goto l13493; l13492: /* x168994 stalin.sc:24700:854097 */ t74962 = (struct structure_type24753 *)NULL_TYPE; l13493: /* x168996 stalin.sc:24701:854108 */ t74963 = a1675; /* x168982 stalin.sc:24698:853997 */ t74964 = t74960; /* MOVE: branching squeezed to general */ if (t74962>=((struct structure_type24753 *)VALUE_OFFSET)) {t74965.tag = STRUCTURE_TYPE24753; t74965.value.structure_type24753 = t74962;} else t74965.tag = (unsigned)t74962; /* MOVE: branching squeezed to general */ if (t74963>=((struct structure_type27650 *)VALUE_OFFSET)) {t74966.tag = STRUCTURE_TYPE27650; t74966.value.structure_type27650 = t74963;} else t74966.tag = (unsigned)t74963; f10641(t74964, t74961, t74965, t74966);} break; case NATIVE_PROCEDURE_TYPE22954: p16356 = t74236.value.native_procedure_type22954; a27386 = t74237; a27387 = t74238; /* x153690 */ /* x153689 stalin.sc:21027:735346 */ /* x153682 stalin.sc:21027:735352 */ /* x153680 stalin.sc:21027:735365 */ /* x153681 stalin.sc:21027:735376 */ t75294 = a27387; /* x153679 stalin.sc:21027:735353 */ t75295.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t75295, t75294).tag)==FALSE_TYPE) goto l13572; /* x153686 */ /* x153685 */ /* x153684 stalin.sc:21027:735379 */ /* x153683 stalin.sc:21027:735380 */ /* x295361 QobiScheme.sc:166:5314 */ /* x295360 QobiScheme.sc:166:5321 */ t75296 = "This shouldn\'t happen"; /* x295359 QobiScheme.sc:166:5315 */ stalin_panic(t75296); goto l13573; l13572: /* x153688 stalin.sc:21027:735346 */ /* x153687 stalin.sc:21027:735346 */ l13573: /* x153678 */ t74994 = p16356; p16357 = t74994; /* x153677 stalin.sc:21028:735392 */ /* x153676 stalin.sc:21028:735395 */ t74996 = a27386; /* x153675 stalin.sc:21028:735393 */ t74995 = p16357->a27385; switch (t74995.tag) {case NATIVE_PROCEDURE_TYPE22953: p16755 = t74995.value.native_procedure_type22953; /* x157661 */ /* x157660 stalin.sc:21949:768206 */ /* x157659 stalin.sc:21949:768225 */ t75003 = a1978; /* x157658 stalin.sc:21949:768207 */ t75002 = p16755->a28271; if ((t75002&3)==1) {/* MOVE: branching squeezed to general */ if (t75003>=((char *)VALUE_OFFSET)) {t75004.tag = EXTERNAL_SYMBOL_TYPE; t75004.value.external_symbol_type = t75003;} else t75004.tag = (unsigned)t75003; f10658(((struct p10641 *)(t75002-1)), t75004);} else {/* MOVE: branching squeezed to general */ if (t75003>=((char *)VALUE_OFFSET)) {t75005.tag = EXTERNAL_SYMBOL_TYPE; t75005.value.external_symbol_type = t75003;} else t75005.tag = (unsigned)t75003; f10657(((struct p10646 *)t75002), t75005);} /* x157657 */ t74997 = p16755; p16756 = t74997; /* x157656 stalin.sc:21949:768233 */ /* x157655 stalin.sc:21949:768252 */ t74999 = a1975; /* x157654 stalin.sc:21949:768234 */ t74998 = p16756->a28271; if ((t74998&3)==1) {/* MOVE: branching squeezed to general */ if (t74999>=((char *)VALUE_OFFSET)) {t75000.tag = EXTERNAL_SYMBOL_TYPE; t75000.value.external_symbol_type = t74999;} else t75000.tag = (unsigned)t74999; f10658(((struct p10641 *)(t74998-1)), t75000);} else {/* MOVE: branching squeezed to general */ if (t74999>=((char *)VALUE_OFFSET)) {t75001.tag = EXTERNAL_SYMBOL_TYPE; t75001.value.external_symbol_type = t74999;} else t75001.tag = (unsigned)t74999; f10657(((struct p10646 *)t74998), t75001);} break; case NATIVE_PROCEDURE_TYPE22959: p16744 = t74995.value.native_procedure_type22959; /* x157552 */ /* x157551 stalin.sc:21929:767542 */ /* x157550 stalin.sc:21929:767561 */ t75012 = a1978; /* x157549 stalin.sc:21929:767543 */ t75011 = p16744->a28222; if ((t75011&3)==1) {/* MOVE: branching squeezed to general */ if (t75012>=((char *)VALUE_OFFSET)) {t75013.tag = EXTERNAL_SYMBOL_TYPE; t75013.value.external_symbol_type = t75012;} else t75013.tag = (unsigned)t75012; f10658(((struct p10641 *)(t75011-1)), t75013);} else {/* MOVE: branching squeezed to general */ if (t75012>=((char *)VALUE_OFFSET)) {t75014.tag = EXTERNAL_SYMBOL_TYPE; t75014.value.external_symbol_type = t75012;} else t75014.tag = (unsigned)t75012; f10657(((struct p10646 *)t75011), t75014);} /* x157548 */ t75006 = p16744; p16745 = t75006; /* x157547 stalin.sc:21929:767569 */ /* x157546 stalin.sc:21929:767588 */ t75008 = a1975; /* x157545 stalin.sc:21929:767570 */ t75007 = p16745->a28222; if ((t75007&3)==1) {/* MOVE: branching squeezed to general */ if (t75008>=((char *)VALUE_OFFSET)) {t75009.tag = EXTERNAL_SYMBOL_TYPE; t75009.value.external_symbol_type = t75008;} else t75009.tag = (unsigned)t75008; f10658(((struct p10641 *)(t75007-1)), t75009);} else {/* MOVE: branching squeezed to general */ if (t75008>=((char *)VALUE_OFFSET)) {t75010.tag = EXTERNAL_SYMBOL_TYPE; t75010.value.external_symbol_type = t75008;} else t75010.tag = (unsigned)t75008; f10657(((struct p10646 *)t75007), t75010);} break; case NATIVE_PROCEDURE_TYPE22961: p16777 = t74995.value.native_procedure_type22961; /* x157767 */ /* x157766 stalin.sc:21969:768935 */ /* x157765 stalin.sc:21969:768954 */ t75021 = a1978; /* x157764 stalin.sc:21969:768936 */ t75020 = p16777->a28369; if ((t75020&3)==1) {/* MOVE: branching squeezed to general */ if (t75021>=((char *)VALUE_OFFSET)) {t75022.tag = EXTERNAL_SYMBOL_TYPE; t75022.value.external_symbol_type = t75021;} else t75022.tag = (unsigned)t75021; f10658(((struct p10641 *)(t75020-1)), t75022);} else {/* MOVE: branching squeezed to general */ if (t75021>=((char *)VALUE_OFFSET)) {t75023.tag = EXTERNAL_SYMBOL_TYPE; t75023.value.external_symbol_type = t75021;} else t75023.tag = (unsigned)t75021; f10657(((struct p10646 *)t75020), t75023);} /* x157763 */ t75015 = p16777; p16778 = t75015; /* x157762 stalin.sc:21969:768962 */ /* x157761 stalin.sc:21969:768981 */ t75017 = a1975; /* x157760 stalin.sc:21969:768963 */ t75016 = p16778->a28369; if ((t75016&3)==1) {/* MOVE: branching squeezed to general */ if (t75017>=((char *)VALUE_OFFSET)) {t75018.tag = EXTERNAL_SYMBOL_TYPE; t75018.value.external_symbol_type = t75017;} else t75018.tag = (unsigned)t75017; f10658(((struct p10641 *)(t75016-1)), t75018);} else {/* MOVE: branching squeezed to general */ if (t75017>=((char *)VALUE_OFFSET)) {t75019.tag = EXTERNAL_SYMBOL_TYPE; t75019.value.external_symbol_type = t75017;} else t75019.tag = (unsigned)t75017; f10657(((struct p10646 *)t75016), t75019);} break; case NATIVE_PROCEDURE_TYPE22965: p16788 = t74995.value.native_procedure_type22965; /* x157820 */ /* x157819 stalin.sc:21979:769301 */ /* x157818 stalin.sc:21979:769320 */ t75030 = a1978; /* x157817 stalin.sc:21979:769302 */ t75029 = p16788->a28418; if ((t75029&3)==1) {/* MOVE: branching squeezed to general */ if (t75030>=((char *)VALUE_OFFSET)) {t75031.tag = EXTERNAL_SYMBOL_TYPE; t75031.value.external_symbol_type = t75030;} else t75031.tag = (unsigned)t75030; f10658(((struct p10641 *)(t75029-1)), t75031);} else {/* MOVE: branching squeezed to general */ if (t75030>=((char *)VALUE_OFFSET)) {t75032.tag = EXTERNAL_SYMBOL_TYPE; t75032.value.external_symbol_type = t75030;} else t75032.tag = (unsigned)t75030; f10657(((struct p10646 *)t75029), t75032);} /* x157816 */ t75024 = p16788; p16789 = t75024; /* x157815 stalin.sc:21979:769328 */ /* x157814 stalin.sc:21979:769347 */ t75026 = a1975; /* x157813 stalin.sc:21979:769329 */ t75025 = p16789->a28418; if ((t75025&3)==1) {/* MOVE: branching squeezed to general */ if (t75026>=((char *)VALUE_OFFSET)) {t75027.tag = EXTERNAL_SYMBOL_TYPE; t75027.value.external_symbol_type = t75026;} else t75027.tag = (unsigned)t75026; f10658(((struct p10641 *)(t75025-1)), t75027);} else {/* MOVE: branching squeezed to general */ if (t75026>=((char *)VALUE_OFFSET)) {t75028.tag = EXTERNAL_SYMBOL_TYPE; t75028.value.external_symbol_type = t75026;} else t75028.tag = (unsigned)t75026; f10657(((struct p10646 *)t75025), t75028);} break; case NATIVE_PROCEDURE_TYPE22967: p16766 = t74995.value.native_procedure_type22967; /* x157714 */ /* x157713 stalin.sc:21959:768570 */ /* x157712 stalin.sc:21959:768589 */ t75039 = a1978; /* x157711 stalin.sc:21959:768571 */ t75038 = p16766->a28320; if ((t75038&3)==1) {/* MOVE: branching squeezed to general */ if (t75039>=((char *)VALUE_OFFSET)) {t75040.tag = EXTERNAL_SYMBOL_TYPE; t75040.value.external_symbol_type = t75039;} else t75040.tag = (unsigned)t75039; f10658(((struct p10641 *)(t75038-1)), t75040);} else {/* MOVE: branching squeezed to general */ if (t75039>=((char *)VALUE_OFFSET)) {t75041.tag = EXTERNAL_SYMBOL_TYPE; t75041.value.external_symbol_type = t75039;} else t75041.tag = (unsigned)t75039; f10657(((struct p10646 *)t75038), t75041);} /* x157710 */ t75033 = p16766; p16767 = t75033; /* x157709 stalin.sc:21959:768597 */ /* x157708 stalin.sc:21959:768616 */ t75035 = a1975; /* x157707 stalin.sc:21959:768598 */ t75034 = p16767->a28320; if ((t75034&3)==1) {/* MOVE: branching squeezed to general */ if (t75035>=((char *)VALUE_OFFSET)) {t75036.tag = EXTERNAL_SYMBOL_TYPE; t75036.value.external_symbol_type = t75035;} else t75036.tag = (unsigned)t75035; f10658(((struct p10641 *)(t75034-1)), t75036);} else {/* MOVE: branching squeezed to general */ if (t75035>=((char *)VALUE_OFFSET)) {t75037.tag = EXTERNAL_SYMBOL_TYPE; t75037.value.external_symbol_type = t75035;} else t75037.tag = (unsigned)t75035; f10657(((struct p10646 *)t75034), t75037);} break; case NATIVE_PROCEDURE_TYPE22987: p16893 = t74995.value.native_procedure_type22987; a28687 = t74996; /* x158682 */ /* x158655 stalin.sc:22138:774192 */ /* x158647 stalin.sc:22138:774198 */ /* x158646 stalin.sc:22138:774243 */ t75056 = a28687; /* x158645 stalin.sc:22138:774205 */ /* x158640 stalin.sc:22138:774199 */ t75057.tag = NATIVE_PROCEDURE_TYPE22992; t75058 = t75056; t75059 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t75057, t75058, t75059)==FALSE_TYPE) goto l13508; /* x158652 */ /* x158651 */ t75060 = p16893; p16900 = t75060; /* x158650 stalin.sc:22139:774251 */ /* x158649 stalin.sc:22139:774270 */ t75062 = a1969; /* x158648 stalin.sc:22139:774252 */ t75061 = p16900->a28684; if ((t75061&3)==1) {/* MOVE: branching squeezed to general */ if (t75062>=((char *)VALUE_OFFSET)) {t75063.tag = EXTERNAL_SYMBOL_TYPE; t75063.value.external_symbol_type = t75062;} else t75063.tag = (unsigned)t75062; f10658(((struct p10641 *)(t75061-1)), t75063);} else {/* MOVE: branching squeezed to general */ if (t75062>=((char *)VALUE_OFFSET)) {t75064.tag = EXTERNAL_SYMBOL_TYPE; t75064.value.external_symbol_type = t75062;} else t75064.tag = (unsigned)t75062; f10657(((struct p10646 *)t75061), t75064);} goto l13509; l13508: /* x158654 stalin.sc:22138:774192 */ /* x158653 stalin.sc:22138:774192 */ l13509: /* x158681 stalin.sc:22140:774284 */ /* x158673 stalin.sc:22140:774290 */ /* x158663 stalin.sc:22140:774295 */ /* x158662 stalin.sc:22140:774355 */ t75065 = a28687; /* x158661 stalin.sc:22140:774302 */ /* x158656 stalin.sc:22140:774296 */ t75066.tag = NATIVE_PROCEDURE_TYPE22988; t75067 = t75065; t75068 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t75066, t75067, t75068)==FALSE_TYPE) goto l13511; /* x158671 */ /* x158670 stalin.sc:22141:774410 */ t75069 = a28687; /* x158669 stalin.sc:22141:774372 */ /* x158664 stalin.sc:22141:774367 */ t75070.tag = NATIVE_PROCEDURE_TYPE22990; t75071 = t75069; t75072 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t75070, t75071, t75072).tag)==FALSE_TYPE) goto l13511; /* x158678 */ /* x158677 */ t75073 = p16893; p16904 = t75073; /* x158676 stalin.sc:22142:774419 */ /* x158675 stalin.sc:22142:774438 */ t75075 = a1966; /* x158674 stalin.sc:22142:774420 */ t75074 = p16904->a28684; if ((t75074&3)==1) {/* MOVE: branching squeezed to general */ if (t75075>=((char *)VALUE_OFFSET)) {t75076.tag = EXTERNAL_SYMBOL_TYPE; t75076.value.external_symbol_type = t75075;} else t75076.tag = (unsigned)t75075; f10658(((struct p10641 *)(t75074-1)), t75076);} else {/* MOVE: branching squeezed to general */ if (t75075>=((char *)VALUE_OFFSET)) {t75077.tag = EXTERNAL_SYMBOL_TYPE; t75077.value.external_symbol_type = t75075;} else t75077.tag = (unsigned)t75075; f10657(((struct p10646 *)t75074), t75077);} goto l13512; l13511: /* x158680 stalin.sc:22140:774284 */ /* x158679 stalin.sc:22140:774284 */ l13512: /* x158639 */ t75042 = p16893; p16894 = t75042; /* x158638 stalin.sc:22143:774452 */ /* x158630 stalin.sc:22143:774458 */ /* x158620 stalin.sc:22143:774463 */ /* x158619 stalin.sc:22143:774508 */ t75043 = a28687; /* x158618 stalin.sc:22143:774470 */ /* x158613 stalin.sc:22143:774464 */ t75044.tag = NATIVE_PROCEDURE_TYPE22996; t75045 = t75043; t75046 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t75044, t75045, t75046)==FALSE_TYPE) goto l13504; /* x158628 */ /* x158627 stalin.sc:22144:774568 */ t75047 = a28687; /* x158626 stalin.sc:22144:774525 */ /* x158621 stalin.sc:22144:774520 */ t75048.tag = NATIVE_PROCEDURE_TYPE22998; t75049 = t75047; t75050 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t75048, t75049, t75050).tag)==FALSE_TYPE) goto l13504; /* x158635 */ /* x158634 */ t75051 = p16894; p16897 = t75051; /* x158633 stalin.sc:22145:774577 */ /* x158632 stalin.sc:22145:774596 */ t75053 = a1963; /* x158631 stalin.sc:22145:774578 */ t75052 = p16897->a28684; if ((t75052&3)==1) {/* MOVE: branching squeezed to general */ if (t75053>=((char *)VALUE_OFFSET)) {t75054.tag = EXTERNAL_SYMBOL_TYPE; t75054.value.external_symbol_type = t75053;} else t75054.tag = (unsigned)t75053; f10658(((struct p10641 *)(t75052-1)), t75054);} else {/* MOVE: branching squeezed to general */ if (t75053>=((char *)VALUE_OFFSET)) {t75055.tag = EXTERNAL_SYMBOL_TYPE; t75055.value.external_symbol_type = t75053;} else t75055.tag = (unsigned)t75053; f10657(((struct p10646 *)t75052), t75055);} goto l13505; l13504: /* x158637 stalin.sc:22143:774452 */ /* x158636 stalin.sc:22143:774452 */ l13505: break; case NATIVE_PROCEDURE_TYPE23000: p16865 = t74995.value.native_procedure_type23000; a28628 = t74996; /* x158488 */ /* x158461 stalin.sc:22097:772689 */ /* x158453 stalin.sc:22097:772695 */ /* x158452 stalin.sc:22097:772740 */ t75092 = a28628; /* x158451 stalin.sc:22097:772702 */ /* x158446 stalin.sc:22097:772696 */ t75093.tag = NATIVE_PROCEDURE_TYPE23005; t75094 = t75092; t75095 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t75093, t75094, t75095)==FALSE_TYPE) goto l13519; /* x158458 */ /* x158457 */ t75096 = p16865; p16872 = t75096; /* x158456 stalin.sc:22098:772748 */ /* x158455 stalin.sc:22098:772767 */ t75098 = a1969; /* x158454 stalin.sc:22098:772749 */ t75097 = p16872->a28625; if ((t75097&3)==1) {/* MOVE: branching squeezed to general */ if (t75098>=((char *)VALUE_OFFSET)) {t75099.tag = EXTERNAL_SYMBOL_TYPE; t75099.value.external_symbol_type = t75098;} else t75099.tag = (unsigned)t75098; f10658(((struct p10641 *)(t75097-1)), t75099);} else {/* MOVE: branching squeezed to general */ if (t75098>=((char *)VALUE_OFFSET)) {t75100.tag = EXTERNAL_SYMBOL_TYPE; t75100.value.external_symbol_type = t75098;} else t75100.tag = (unsigned)t75098; f10657(((struct p10646 *)t75097), t75100);} goto l13520; l13519: /* x158460 stalin.sc:22097:772689 */ /* x158459 stalin.sc:22097:772689 */ l13520: /* x158487 stalin.sc:22099:772781 */ /* x158479 stalin.sc:22099:772787 */ /* x158469 stalin.sc:22099:772792 */ /* x158468 stalin.sc:22099:772852 */ t75101 = a28628; /* x158467 stalin.sc:22099:772799 */ /* x158462 stalin.sc:22099:772793 */ t75102.tag = NATIVE_PROCEDURE_TYPE23001; t75103 = t75101; t75104 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t75102, t75103, t75104)==FALSE_TYPE) goto l13522; /* x158477 */ /* x158476 stalin.sc:22100:772907 */ t75105 = a28628; /* x158475 stalin.sc:22100:772869 */ /* x158470 stalin.sc:22100:772864 */ t75106.tag = NATIVE_PROCEDURE_TYPE23003; t75107 = t75105; t75108 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t75106, t75107, t75108).tag)==FALSE_TYPE) goto l13522; /* x158484 */ /* x158483 */ t75109 = p16865; p16876 = t75109; /* x158482 stalin.sc:22101:772916 */ /* x158481 stalin.sc:22101:772935 */ t75111 = a1966; /* x158480 stalin.sc:22101:772917 */ t75110 = p16876->a28625; if ((t75110&3)==1) {/* MOVE: branching squeezed to general */ if (t75111>=((char *)VALUE_OFFSET)) {t75112.tag = EXTERNAL_SYMBOL_TYPE; t75112.value.external_symbol_type = t75111;} else t75112.tag = (unsigned)t75111; f10658(((struct p10641 *)(t75110-1)), t75112);} else {/* MOVE: branching squeezed to general */ if (t75111>=((char *)VALUE_OFFSET)) {t75113.tag = EXTERNAL_SYMBOL_TYPE; t75113.value.external_symbol_type = t75111;} else t75113.tag = (unsigned)t75111; f10657(((struct p10646 *)t75110), t75113);} goto l13523; l13522: /* x158486 stalin.sc:22099:772781 */ /* x158485 stalin.sc:22099:772781 */ l13523: /* x158445 */ t75078 = p16865; p16866 = t75078; /* x158444 stalin.sc:22102:772949 */ /* x158436 stalin.sc:22102:772955 */ /* x158426 stalin.sc:22102:772960 */ /* x158425 stalin.sc:22102:773005 */ t75079 = a28628; /* x158424 stalin.sc:22102:772967 */ /* x158419 stalin.sc:22102:772961 */ t75080.tag = NATIVE_PROCEDURE_TYPE23009; t75081 = t75079; t75082 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t75080, t75081, t75082)==FALSE_TYPE) goto l13515; /* x158434 */ /* x158433 stalin.sc:22103:773065 */ t75083 = a28628; /* x158432 stalin.sc:22103:773022 */ /* x158427 stalin.sc:22103:773017 */ t75084.tag = NATIVE_PROCEDURE_TYPE23011; t75085 = t75083; t75086 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t75084, t75085, t75086).tag)==FALSE_TYPE) goto l13515; /* x158441 */ /* x158440 */ t75087 = p16866; p16869 = t75087; /* x158439 stalin.sc:22104:773074 */ /* x158438 stalin.sc:22104:773093 */ t75089 = a1963; /* x158437 stalin.sc:22104:773075 */ t75088 = p16869->a28625; if ((t75088&3)==1) {/* MOVE: branching squeezed to general */ if (t75089>=((char *)VALUE_OFFSET)) {t75090.tag = EXTERNAL_SYMBOL_TYPE; t75090.value.external_symbol_type = t75089;} else t75090.tag = (unsigned)t75089; f10658(((struct p10641 *)(t75088-1)), t75090);} else {/* MOVE: branching squeezed to general */ if (t75089>=((char *)VALUE_OFFSET)) {t75091.tag = EXTERNAL_SYMBOL_TYPE; t75091.value.external_symbol_type = t75089;} else t75091.tag = (unsigned)t75089; f10657(((struct p10646 *)t75088), t75091);} goto l13516; l13515: /* x158443 stalin.sc:22102:772949 */ /* x158442 stalin.sc:22102:772949 */ l13516: break; case NATIVE_PROCEDURE_TYPE23013: p16962 = t74995.value.native_procedure_type23013; a28807 = t74996; /* x159146 stalin.sc:22227:777347 */ /* x159068 stalin.sc:22228:777358 */ /* x159067 stalin.sc:22228:777365 */ t75114 = a28807; /* x268201 stalin.sc:22228:777359 */ if (!((t75114.tag)==NULL_TYPE)) goto l13526; /* x159073 */ /* x159072 */ t75152 = p16962; p16963 = t75152; /* x159071 stalin.sc:22228:777369 */ /* x159070 stalin.sc:22228:777388 */ t75154 = a1969; /* x159069 stalin.sc:22228:777370 */ t75153 = p16963->a28804; if ((t75153&3)==1) {/* MOVE: branching squeezed to general */ if (t75154>=((char *)VALUE_OFFSET)) {t75155.tag = EXTERNAL_SYMBOL_TYPE; t75155.value.external_symbol_type = t75154;} else t75155.tag = (unsigned)t75154; f10658(((struct p10641 *)(t75153-1)), t75155);} else {/* MOVE: branching squeezed to general */ if (t75154>=((char *)VALUE_OFFSET)) {t75156.tag = EXTERNAL_SYMBOL_TYPE; t75156.value.external_symbol_type = t75154;} else t75156.tag = (unsigned)t75154; f10657(((struct p10646 *)t75153), t75156);} goto l13527; l13526: /* x159145 */ /* x159144 */ t75115 = p16962; p16964 = t75115; /* x159143 */ /* x159116 stalin.sc:22230:777414 */ /* x159108 stalin.sc:22230:777420 */ /* x159107 stalin.sc:22230:777465 */ t75130 = *((struct w16638 *)(&a28807)); /* x159106 stalin.sc:22230:777427 */ /* x159101 stalin.sc:22230:777421 */ t75131.tag = NATIVE_PROCEDURE_TYPE23019; t75132 = *((struct w49 *)(&t75130)); t75133 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t75131, t75132, t75133)==FALSE_TYPE) goto l13533; /* x159113 */ /* x159112 */ t75134 = p16964; p16971 = t75134; /* x159111 stalin.sc:22231:777475 */ /* x159110 stalin.sc:22231:777494 */ t75136 = a1969; /* x159109 stalin.sc:22231:777476 */ t75135 = p16971->a28804; if ((t75135&3)==1) {/* MOVE: branching squeezed to general */ if (t75136>=((char *)VALUE_OFFSET)) {t75137.tag = EXTERNAL_SYMBOL_TYPE; t75137.value.external_symbol_type = t75136;} else t75137.tag = (unsigned)t75136; f10658(((struct p10641 *)(t75135-1)), t75137);} else {/* MOVE: branching squeezed to general */ if (t75136>=((char *)VALUE_OFFSET)) {t75138.tag = EXTERNAL_SYMBOL_TYPE; t75138.value.external_symbol_type = t75136;} else t75138.tag = (unsigned)t75136; f10657(((struct p10646 *)t75135), t75138);} goto l13534; l13533: /* x159115 stalin.sc:22230:777414 */ /* x159114 stalin.sc:22230:777414 */ l13534: /* x159142 stalin.sc:22232:777510 */ /* x159134 stalin.sc:22232:777516 */ /* x159124 stalin.sc:22232:777521 */ /* x159123 stalin.sc:22232:777581 */ t75139 = *((struct w16638 *)(&a28807)); /* x159122 stalin.sc:22232:777528 */ /* x159117 stalin.sc:22232:777522 */ t75140.tag = NATIVE_PROCEDURE_TYPE23015; t75141 = *((struct w49 *)(&t75139)); t75142 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t75140, t75141, t75142)==FALSE_TYPE) goto l13536; /* x159132 */ /* x159131 stalin.sc:22233:777631 */ t75143 = *((struct w16638 *)(&a28807)); /* x159130 stalin.sc:22233:777593 */ /* x159125 stalin.sc:22233:777588 */ t75144.tag = NATIVE_PROCEDURE_TYPE23017; t75145 = *((struct w49 *)(&t75143)); t75146 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t75144, t75145, t75146).tag)==FALSE_TYPE) goto l13536; /* x159139 */ /* x159138 */ t75147 = p16964; p16975 = t75147; /* x159137 stalin.sc:22234:777642 */ /* x159136 stalin.sc:22234:777661 */ t75149 = a1966; /* x159135 stalin.sc:22234:777643 */ t75148 = p16975->a28804; if ((t75148&3)==1) {/* MOVE: branching squeezed to general */ if (t75149>=((char *)VALUE_OFFSET)) {t75150.tag = EXTERNAL_SYMBOL_TYPE; t75150.value.external_symbol_type = t75149;} else t75150.tag = (unsigned)t75149; f10658(((struct p10641 *)(t75148-1)), t75150);} else {/* MOVE: branching squeezed to general */ if (t75149>=((char *)VALUE_OFFSET)) {t75151.tag = EXTERNAL_SYMBOL_TYPE; t75151.value.external_symbol_type = t75149;} else t75151.tag = (unsigned)t75149; f10657(((struct p10646 *)t75148), t75151);} goto l13537; l13536: /* x159141 stalin.sc:22232:777510 */ /* x159140 stalin.sc:22232:777510 */ l13537: /* x159100 */ t75116 = p16964; p16965 = t75116; /* x159099 stalin.sc:22235:777677 */ /* x159091 stalin.sc:22235:777683 */ /* x159081 stalin.sc:22235:777688 */ /* x159080 stalin.sc:22235:777733 */ t75117 = *((struct w16638 *)(&a28807)); /* x159079 stalin.sc:22235:777695 */ /* x159074 stalin.sc:22235:777689 */ t75118.tag = NATIVE_PROCEDURE_TYPE23023; t75119 = *((struct w49 *)(&t75117)); t75120 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t75118, t75119, t75120)==FALSE_TYPE) goto l13529; /* x159089 */ /* x159088 stalin.sc:22236:777788 */ t75121 = *((struct w16638 *)(&a28807)); /* x159087 stalin.sc:22236:777745 */ /* x159082 stalin.sc:22236:777740 */ t75122.tag = NATIVE_PROCEDURE_TYPE23025; t75123 = *((struct w49 *)(&t75121)); t75124 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t75122, t75123, t75124).tag)==FALSE_TYPE) goto l13529; /* x159096 */ /* x159095 */ t75125 = p16965; p16968 = t75125; /* x159094 stalin.sc:22237:777799 */ /* x159093 stalin.sc:22237:777818 */ t75127 = a1963; /* x159092 stalin.sc:22237:777800 */ t75126 = p16968->a28804; if ((t75126&3)==1) {/* MOVE: branching squeezed to general */ if (t75127>=((char *)VALUE_OFFSET)) {t75128.tag = EXTERNAL_SYMBOL_TYPE; t75128.value.external_symbol_type = t75127;} else t75128.tag = (unsigned)t75127; f10658(((struct p10641 *)(t75126-1)), t75128);} else {/* MOVE: branching squeezed to general */ if (t75127>=((char *)VALUE_OFFSET)) {t75129.tag = EXTERNAL_SYMBOL_TYPE; t75129.value.external_symbol_type = t75127;} else t75129.tag = (unsigned)t75127; f10657(((struct p10646 *)t75126), t75129);} goto l13530; l13529: /* x159098 stalin.sc:22235:777677 */ /* x159097 stalin.sc:22235:777677 */ l13530: l13527: break; case NATIVE_PROCEDURE_TYPE23028: p17046 = t74995.value.native_procedure_type23028; a28930 = t74996; /* x159658 */ /* x159657 stalin.sc:22337:781604 */ /* x159649 stalin.sc:22337:781610 */ /* x159648 stalin.sc:22337:781670 */ t75171 = a28930; /* x159647 stalin.sc:22337:781617 */ /* x159642 stalin.sc:22337:781611 */ t75172.tag = NATIVE_PROCEDURE_TYPE23029; t75173 = t75171; t75174 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t75172, t75173, t75174)==FALSE_TYPE) goto l13544; /* x159654 */ /* x159653 */ t75175 = p17046; p17053 = t75175; /* x159652 stalin.sc:22338:781678 */ /* x159651 stalin.sc:22338:781697 */ t75177 = a1966; /* x159650 stalin.sc:22338:781679 */ t75176 = p17053->a28927; if ((t75176&3)==1) {/* MOVE: branching squeezed to general */ if (t75177>=((char *)VALUE_OFFSET)) {t75178.tag = EXTERNAL_SYMBOL_TYPE; t75178.value.external_symbol_type = t75177;} else t75178.tag = (unsigned)t75177; f10658(((struct p10641 *)(t75176-1)), t75178);} else {/* MOVE: branching squeezed to general */ if (t75177>=((char *)VALUE_OFFSET)) {t75179.tag = EXTERNAL_SYMBOL_TYPE; t75179.value.external_symbol_type = t75177;} else t75179.tag = (unsigned)t75177; f10657(((struct p10646 *)t75176), t75179);} goto l13545; l13544: /* x159656 stalin.sc:22337:781604 */ /* x159655 stalin.sc:22337:781604 */ l13545: /* x159641 */ t75157 = p17046; p17047 = t75157; /* x159640 stalin.sc:22339:781711 */ /* x159632 stalin.sc:22339:781717 */ /* x159622 stalin.sc:22339:781722 */ /* x159621 stalin.sc:22339:781767 */ t75158 = a28930; /* x159620 stalin.sc:22339:781729 */ /* x159615 stalin.sc:22339:781723 */ t75159.tag = NATIVE_PROCEDURE_TYPE23033; t75160 = t75158; t75161 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t75159, t75160, t75161)==FALSE_TYPE) goto l13540; /* x159630 */ /* x159629 stalin.sc:22340:781827 */ t75162 = a28930; /* x159628 stalin.sc:22340:781784 */ /* x159623 stalin.sc:22340:781779 */ t75163.tag = NATIVE_PROCEDURE_TYPE23035; t75164 = t75162; t75165 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t75163, t75164, t75165).tag)==FALSE_TYPE) goto l13540; /* x159637 */ /* x159636 */ t75166 = p17047; p17050 = t75166; /* x159635 stalin.sc:22341:781836 */ /* x159634 stalin.sc:22341:781855 */ t75168 = a1963; /* x159633 stalin.sc:22341:781837 */ t75167 = p17050->a28927; if ((t75167&3)==1) {/* MOVE: branching squeezed to general */ if (t75168>=((char *)VALUE_OFFSET)) {t75169.tag = EXTERNAL_SYMBOL_TYPE; t75169.value.external_symbol_type = t75168;} else t75169.tag = (unsigned)t75168; f10658(((struct p10641 *)(t75167-1)), t75169);} else {/* MOVE: branching squeezed to general */ if (t75168>=((char *)VALUE_OFFSET)) {t75170.tag = EXTERNAL_SYMBOL_TYPE; t75170.value.external_symbol_type = t75168;} else t75170.tag = (unsigned)t75168; f10657(((struct p10646 *)t75167), t75170);} goto l13541; l13540: /* x159639 stalin.sc:22339:781711 */ /* x159638 stalin.sc:22339:781711 */ l13541: break; case NATIVE_PROCEDURE_TYPE23055: p17003 = t74995.value.native_procedure_type23055; a28868 = t74996; /* x159394 */ /* x159367 stalin.sc:22275:779004 */ /* x159359 stalin.sc:22275:779010 */ /* x159358 stalin.sc:22275:779055 */ t75194 = a28868; /* x159357 stalin.sc:22275:779017 */ /* x159352 stalin.sc:22275:779011 */ t75195.tag = NATIVE_PROCEDURE_TYPE23060; t75196 = t75194; t75197 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t75195, t75196, t75197)==FALSE_TYPE) goto l13551; /* x159364 */ /* x159363 */ t75198 = p17003; p17010 = t75198; /* x159362 stalin.sc:22276:779063 */ /* x159361 stalin.sc:22276:779082 */ t75200 = a1969; /* x159360 stalin.sc:22276:779064 */ t75199 = p17010->a28865; if ((t75199&3)==1) {/* MOVE: branching squeezed to general */ if (t75200>=((char *)VALUE_OFFSET)) {t75201.tag = EXTERNAL_SYMBOL_TYPE; t75201.value.external_symbol_type = t75200;} else t75201.tag = (unsigned)t75200; f10658(((struct p10641 *)(t75199-1)), t75201);} else {/* MOVE: branching squeezed to general */ if (t75200>=((char *)VALUE_OFFSET)) {t75202.tag = EXTERNAL_SYMBOL_TYPE; t75202.value.external_symbol_type = t75200;} else t75202.tag = (unsigned)t75200; f10657(((struct p10646 *)t75199), t75202);} goto l13552; l13551: /* x159366 stalin.sc:22275:779004 */ /* x159365 stalin.sc:22275:779004 */ l13552: /* x159393 stalin.sc:22277:779096 */ /* x159385 stalin.sc:22277:779102 */ /* x159375 stalin.sc:22277:779107 */ /* x159374 stalin.sc:22277:779167 */ t75203 = a28868; /* x159373 stalin.sc:22277:779114 */ /* x159368 stalin.sc:22277:779108 */ t75204.tag = NATIVE_PROCEDURE_TYPE23056; t75205 = t75203; t75206 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t75204, t75205, t75206)==FALSE_TYPE) goto l13554; /* x159383 */ /* x159382 stalin.sc:22278:779222 */ t75207 = a28868; /* x159381 stalin.sc:22278:779184 */ /* x159376 stalin.sc:22278:779179 */ t75208.tag = NATIVE_PROCEDURE_TYPE23058; t75209 = t75207; t75210 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t75208, t75209, t75210).tag)==FALSE_TYPE) goto l13554; /* x159390 */ /* x159389 */ t75211 = p17003; p17014 = t75211; /* x159388 stalin.sc:22279:779231 */ /* x159387 stalin.sc:22279:779250 */ t75213 = a1966; /* x159386 stalin.sc:22279:779232 */ t75212 = p17014->a28865; if ((t75212&3)==1) {/* MOVE: branching squeezed to general */ if (t75213>=((char *)VALUE_OFFSET)) {t75214.tag = EXTERNAL_SYMBOL_TYPE; t75214.value.external_symbol_type = t75213;} else t75214.tag = (unsigned)t75213; f10658(((struct p10641 *)(t75212-1)), t75214);} else {/* MOVE: branching squeezed to general */ if (t75213>=((char *)VALUE_OFFSET)) {t75215.tag = EXTERNAL_SYMBOL_TYPE; t75215.value.external_symbol_type = t75213;} else t75215.tag = (unsigned)t75213; f10657(((struct p10646 *)t75212), t75215);} goto l13555; l13554: /* x159392 stalin.sc:22277:779096 */ /* x159391 stalin.sc:22277:779096 */ l13555: /* x159351 */ t75180 = p17003; p17004 = t75180; /* x159350 stalin.sc:22280:779264 */ /* x159342 stalin.sc:22280:779270 */ /* x159332 stalin.sc:22280:779275 */ /* x159331 stalin.sc:22280:779320 */ t75181 = a28868; /* x159330 stalin.sc:22280:779282 */ /* x159325 stalin.sc:22280:779276 */ t75182.tag = NATIVE_PROCEDURE_TYPE23064; t75183 = t75181; t75184 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t75182, t75183, t75184)==FALSE_TYPE) goto l13547; /* x159340 */ /* x159339 stalin.sc:22281:779380 */ t75185 = a28868; /* x159338 stalin.sc:22281:779337 */ /* x159333 stalin.sc:22281:779332 */ t75186.tag = NATIVE_PROCEDURE_TYPE23066; t75187 = t75185; t75188 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t75186, t75187, t75188).tag)==FALSE_TYPE) goto l13547; /* x159347 */ /* x159346 */ t75189 = p17004; p17007 = t75189; /* x159345 stalin.sc:22282:779389 */ /* x159344 stalin.sc:22282:779408 */ t75191 = a1963; /* x159343 stalin.sc:22282:779390 */ t75190 = p17007->a28865; if ((t75190&3)==1) {/* MOVE: branching squeezed to general */ if (t75191>=((char *)VALUE_OFFSET)) {t75192.tag = EXTERNAL_SYMBOL_TYPE; t75192.value.external_symbol_type = t75191;} else t75192.tag = (unsigned)t75191; f10658(((struct p10641 *)(t75190-1)), t75192);} else {/* MOVE: branching squeezed to general */ if (t75191>=((char *)VALUE_OFFSET)) {t75193.tag = EXTERNAL_SYMBOL_TYPE; t75193.value.external_symbol_type = t75191;} else t75193.tag = (unsigned)t75191; f10657(((struct p10646 *)t75190), t75193);} goto l13548; l13547: /* x159349 stalin.sc:22280:779264 */ /* x159348 stalin.sc:22280:779264 */ l13548: break; case NATIVE_PROCEDURE_TYPE23068: p16921 = t74995.value.native_procedure_type23068; a28746 = t74996; /* x158887 stalin.sc:22179:775694 */ /* x158809 stalin.sc:22180:775705 */ /* x158808 stalin.sc:22180:775712 */ t75216 = a28746; /* x268206 stalin.sc:22180:775706 */ if (!((t75216.tag)==NULL_TYPE)) goto l13558; /* x158814 */ /* x158813 */ t75254 = p16921; p16922 = t75254; /* x158812 stalin.sc:22180:775716 */ /* x158811 stalin.sc:22180:775735 */ t75256 = a1969; /* x158810 stalin.sc:22180:775717 */ t75255 = p16922->a28743; if ((t75255&3)==1) {/* MOVE: branching squeezed to general */ if (t75256>=((char *)VALUE_OFFSET)) {t75257.tag = EXTERNAL_SYMBOL_TYPE; t75257.value.external_symbol_type = t75256;} else t75257.tag = (unsigned)t75256; f10658(((struct p10641 *)(t75255-1)), t75257);} else {/* MOVE: branching squeezed to general */ if (t75256>=((char *)VALUE_OFFSET)) {t75258.tag = EXTERNAL_SYMBOL_TYPE; t75258.value.external_symbol_type = t75256;} else t75258.tag = (unsigned)t75256; f10657(((struct p10646 *)t75255), t75258);} goto l13559; l13558: /* x158886 */ /* x158885 */ t75217 = p16921; p16923 = t75217; /* x158884 */ /* x158857 stalin.sc:22182:775761 */ /* x158849 stalin.sc:22182:775767 */ /* x158848 stalin.sc:22182:775812 */ t75232 = *((struct w16638 *)(&a28746)); /* x158847 stalin.sc:22182:775774 */ /* x158842 stalin.sc:22182:775768 */ t75233.tag = NATIVE_PROCEDURE_TYPE23074; t75234 = *((struct w49 *)(&t75232)); t75235 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t75233, t75234, t75235)==FALSE_TYPE) goto l13565; /* x158854 */ /* x158853 */ t75236 = p16923; p16930 = t75236; /* x158852 stalin.sc:22183:775822 */ /* x158851 stalin.sc:22183:775841 */ t75238 = a1969; /* x158850 stalin.sc:22183:775823 */ t75237 = p16930->a28743; if ((t75237&3)==1) {/* MOVE: branching squeezed to general */ if (t75238>=((char *)VALUE_OFFSET)) {t75239.tag = EXTERNAL_SYMBOL_TYPE; t75239.value.external_symbol_type = t75238;} else t75239.tag = (unsigned)t75238; f10658(((struct p10641 *)(t75237-1)), t75239);} else {/* MOVE: branching squeezed to general */ if (t75238>=((char *)VALUE_OFFSET)) {t75240.tag = EXTERNAL_SYMBOL_TYPE; t75240.value.external_symbol_type = t75238;} else t75240.tag = (unsigned)t75238; f10657(((struct p10646 *)t75237), t75240);} goto l13566; l13565: /* x158856 stalin.sc:22182:775761 */ /* x158855 stalin.sc:22182:775761 */ l13566: /* x158883 stalin.sc:22184:775857 */ /* x158875 stalin.sc:22184:775863 */ /* x158865 stalin.sc:22184:775868 */ /* x158864 stalin.sc:22184:775928 */ t75241 = *((struct w16638 *)(&a28746)); /* x158863 stalin.sc:22184:775875 */ /* x158858 stalin.sc:22184:775869 */ t75242.tag = NATIVE_PROCEDURE_TYPE23070; t75243 = *((struct w49 *)(&t75241)); t75244 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t75242, t75243, t75244)==FALSE_TYPE) goto l13568; /* x158873 */ /* x158872 stalin.sc:22185:775978 */ t75245 = *((struct w16638 *)(&a28746)); /* x158871 stalin.sc:22185:775940 */ /* x158866 stalin.sc:22185:775935 */ t75246.tag = NATIVE_PROCEDURE_TYPE23072; t75247 = *((struct w49 *)(&t75245)); t75248 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t75246, t75247, t75248).tag)==FALSE_TYPE) goto l13568; /* x158880 */ /* x158879 */ t75249 = p16923; p16934 = t75249; /* x158878 stalin.sc:22186:775989 */ /* x158877 stalin.sc:22186:776008 */ t75251 = a1966; /* x158876 stalin.sc:22186:775990 */ t75250 = p16934->a28743; if ((t75250&3)==1) {/* MOVE: branching squeezed to general */ if (t75251>=((char *)VALUE_OFFSET)) {t75252.tag = EXTERNAL_SYMBOL_TYPE; t75252.value.external_symbol_type = t75251;} else t75252.tag = (unsigned)t75251; f10658(((struct p10641 *)(t75250-1)), t75252);} else {/* MOVE: branching squeezed to general */ if (t75251>=((char *)VALUE_OFFSET)) {t75253.tag = EXTERNAL_SYMBOL_TYPE; t75253.value.external_symbol_type = t75251;} else t75253.tag = (unsigned)t75251; f10657(((struct p10646 *)t75250), t75253);} goto l13569; l13568: /* x158882 stalin.sc:22184:775857 */ /* x158881 stalin.sc:22184:775857 */ l13569: /* x158841 */ t75218 = p16923; p16924 = t75218; /* x158840 stalin.sc:22187:776024 */ /* x158832 stalin.sc:22187:776030 */ /* x158822 stalin.sc:22187:776035 */ /* x158821 stalin.sc:22187:776080 */ t75219 = *((struct w16638 *)(&a28746)); /* x158820 stalin.sc:22187:776042 */ /* x158815 stalin.sc:22187:776036 */ t75220.tag = NATIVE_PROCEDURE_TYPE23078; t75221 = *((struct w49 *)(&t75219)); t75222 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t75220, t75221, t75222)==FALSE_TYPE) goto l13561; /* x158830 */ /* x158829 stalin.sc:22188:776135 */ t75223 = *((struct w16638 *)(&a28746)); /* x158828 stalin.sc:22188:776092 */ /* x158823 stalin.sc:22188:776087 */ t75224.tag = NATIVE_PROCEDURE_TYPE23080; t75225 = *((struct w49 *)(&t75223)); t75226 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t75224, t75225, t75226).tag)==FALSE_TYPE) goto l13561; /* x158837 */ /* x158836 */ t75227 = p16924; p16927 = t75227; /* x158835 stalin.sc:22189:776146 */ /* x158834 stalin.sc:22189:776165 */ t75229 = a1963; /* x158833 stalin.sc:22189:776147 */ t75228 = p16927->a28743; if ((t75228&3)==1) {/* MOVE: branching squeezed to general */ if (t75229>=((char *)VALUE_OFFSET)) {t75230.tag = EXTERNAL_SYMBOL_TYPE; t75230.value.external_symbol_type = t75229;} else t75230.tag = (unsigned)t75229; f10658(((struct p10641 *)(t75228-1)), t75230);} else {/* MOVE: branching squeezed to general */ if (t75229>=((char *)VALUE_OFFSET)) {t75231.tag = EXTERNAL_SYMBOL_TYPE; t75231.value.external_symbol_type = t75229;} else t75231.tag = (unsigned)t75229; f10657(((struct p10646 *)t75228), t75231);} goto l13562; l13561: /* x158839 stalin.sc:22187:776024 */ /* x158838 stalin.sc:22187:776024 */ l13562: l13559: break; case NATIVE_PROCEDURE_TYPE23094: p17216 = t74995.value.native_procedure_type23094; /* x161474 stalin.sc:22714:792909 */ /* x161473 stalin.sc:22714:792928 */ t75260 = a1969; /* x161472 stalin.sc:22714:792910 */ t75259 = p17216->a29232; if ((t75259&3)==1) {/* MOVE: branching squeezed to general */ if (t75260>=((char *)VALUE_OFFSET)) {t75261.tag = EXTERNAL_SYMBOL_TYPE; t75261.value.external_symbol_type = t75260;} else t75261.tag = (unsigned)t75260; f10658(((struct p10641 *)(t75259-1)), t75261);} else {/* MOVE: branching squeezed to general */ if (t75260>=((char *)VALUE_OFFSET)) {t75262.tag = EXTERNAL_SYMBOL_TYPE; t75262.value.external_symbol_type = t75260;} else t75262.tag = (unsigned)t75260; f10657(((struct p10646 *)t75259), t75262);} break; case NATIVE_PROCEDURE_TYPE23096: p17248 = t74995.value.native_procedure_type23096; /* x161666 stalin.sc:22762:794565 */ /* x161665 stalin.sc:22762:794584 */ t75264 = a1969; /* x161664 stalin.sc:22762:794566 */ t75263 = p17248->a29336; if ((t75263&3)==1) {/* MOVE: branching squeezed to general */ if (t75264>=((char *)VALUE_OFFSET)) {t75265.tag = EXTERNAL_SYMBOL_TYPE; t75265.value.external_symbol_type = t75264;} else t75265.tag = (unsigned)t75264; f10658(((struct p10641 *)(t75263-1)), t75265);} else {/* MOVE: branching squeezed to general */ if (t75264>=((char *)VALUE_OFFSET)) {t75266.tag = EXTERNAL_SYMBOL_TYPE; t75266.value.external_symbol_type = t75264;} else t75266.tag = (unsigned)t75264; f10657(((struct p10646 *)t75263), t75266);} break; case NATIVE_PROCEDURE_TYPE23125: p17232 = t74995.value.native_procedure_type23125; /* x161571 stalin.sc:22738:793736 */ /* x161570 stalin.sc:22738:793755 */ t75268 = a1969; /* x161569 stalin.sc:22738:793737 */ t75267 = p17232->a29284; if ((t75267&3)==1) {/* MOVE: branching squeezed to general */ if (t75268>=((char *)VALUE_OFFSET)) {t75269.tag = EXTERNAL_SYMBOL_TYPE; t75269.value.external_symbol_type = t75268;} else t75269.tag = (unsigned)t75268; f10658(((struct p10641 *)(t75267-1)), t75269);} else {/* MOVE: branching squeezed to general */ if (t75268>=((char *)VALUE_OFFSET)) {t75270.tag = EXTERNAL_SYMBOL_TYPE; t75270.value.external_symbol_type = t75268;} else t75270.tag = (unsigned)t75268; f10657(((struct p10646 *)t75267), t75270);} break; case NATIVE_PROCEDURE_TYPE23170: p17586 = t74995.value.native_procedure_type23170; /* x164323 stalin.sc:23499:818901 */ /* x164322 stalin.sc:23499:818920 */ /* x164321 stalin.sc:23499:818930 */ /* x164320 stalin.sc:23499:818952 */ t75276 = p17586->a30356; /* x164319 stalin.sc:23499:818931 */ a36391 = t75276; /* x278233 */ /* x278232 */ t75277 = a36391; /* x278231 */ if (!(t75277>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31308]"); structure_ref_error();} t75275 = t75277->s0; /* x164318 stalin.sc:23499:818921 */ t75272 = f7121(t75275); /* x164317 stalin.sc:23499:818902 */ t75271 = p17586->a30358; if ((t75271&3)==1) {t75273 = *((struct w49 *)(&t75272)); f10658(((struct p10641 *)(t75271-1)), t75273);} else {t75274 = *((struct w49 *)(&t75272)); f10657(((struct p10646 *)t75271), t75274);} break; default: p17725 = t74995.value.native_procedure_type23387; a30729 = t74996; /* x165533 stalin.sc:23828:827940 */ /* x165532 stalin.sc:23829:827963 */ /* x165528 stalin.sc:23832:828133 */ /* x165522 stalin.sc:23832:828141 */ /* x165526 stalin.sc:23832:828148 */ /* x165525 stalin.sc:23832:828161 */ t75288 = a30729; /* x165524 stalin.sc:23832:828153 */ /* x165523 stalin.sc:23832:828149 */ t75289.tag = NATIVE_PROCEDURE_TYPE7353; t75290 = t75288; t75291 = (struct structure_type24753 *)NULL_TYPE; t75284 = f27731(t75289, t75290, t75291); /* x165527 stalin.sc:23832:828165 */ /* x165521 stalin.sc:23832:828134 */ t75285 = NATIVE_PROCEDURE_TYPE8055; /* MOVE: branching squeezed to general */ if (t75284>=((struct structure_type24753 *)VALUE_OFFSET)) {t75286.tag = STRUCTURE_TYPE24753; t75286.value.structure_type24753 = t75284;} else t75286.tag = (unsigned)t75284; t75287.tag = NULL_TYPE; t75282 = f1006(t75285, t75286, t75287); /* x165531 stalin.sc:23833:828175 */ /* x165530 stalin.sc:23833:828197 */ t75292 = p17725->a30724; /* x165529 stalin.sc:23833:828176 */ a36382 = t75292; /* x278197 */ /* x278196 */ t75293 = a36382; /* x278195 */ if (!(t75293>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31299]"); structure_ref_error();} t75283 = t75293->s0; /* x165520 stalin.sc:23829:827964 */ t75279 = f7166(t75282, t75283); /* x165519 stalin.sc:23828:827941 */ t75278 = p17725->a30726; if ((t75278&3)==1) {t75280 = *((struct w49 *)(&t75279)); f10658(((struct p10641 *)(t75278-1)), t75280);} else {t75281 = *((struct w49 *)(&t75279)); f10657(((struct p10646 *)t75278), t75281);}} break; case NATIVE_PROCEDURE_TYPE23132: p16348 = t74236.value.native_procedure_type23132; a27382 = t74237; a27383 = t74238; /* x153671 */ /* x153670 stalin.sc:21019:735113 */ /* x153663 stalin.sc:21019:735119 */ /* x153661 stalin.sc:21019:735132 */ /* x153662 stalin.sc:21019:735143 */ t75357 = a27383; /* x153660 stalin.sc:21019:735120 */ t75358.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t75358, t75357).tag)==FALSE_TYPE) goto l13581; /* x153667 */ /* x153666 */ /* x153665 stalin.sc:21019:735146 */ /* x153664 stalin.sc:21019:735147 */ /* x295353 QobiScheme.sc:166:5314 */ /* x295352 QobiScheme.sc:166:5321 */ t75359 = "This shouldn\'t happen"; /* x295351 QobiScheme.sc:166:5315 */ stalin_panic(t75359); goto l13582; l13581: /* x153669 stalin.sc:21019:735113 */ /* x153668 stalin.sc:21019:735113 */ l13582: /* x153659 */ t75297 = p16348; p16349 = t75297; /* x153658 stalin.sc:21020:735159 */ /* x153629 stalin.sc:21020:735166 */ /* x153627 stalin.sc:21020:735169 */ /* x153626 stalin.sc:21020:735177 */ t75300 = a27382; /* x153625 stalin.sc:21020:735170 */ t75298 = f26227(t75300); /* x153628 stalin.sc:21020:735181 */ t75299 = 1; /* x268325 stalin.sc:21020:735167 */ if (!(t75298==t75299)) goto l13575; /* x153636 */ /* x153635 */ t75333 = p16349; p16350 = t75333; /* x153634 stalin.sc:21020:735184 */ /* x153633 stalin.sc:21020:735188 */ /* x153632 stalin.sc:21020:735195 */ t75355 = a27382; /* x153631 stalin.sc:21020:735189 */ a35681 = t75355; /* x274081 */ /* x274080 */ t75356 = a35681; /* x274079 */ if (!((t75356.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29830]"); structure_ref_error();} /* x153630 stalin.sc:21020:735185 */ t75334 = p16350->a27380; switch (t75334&3) {case 2: p17422 = (struct p17421 *)(t75334-2); /* x162956 stalin.sc:23117:806569 */ /* x162955 stalin.sc:23117:806588 */ t75337 = a1966; /* x162954 stalin.sc:23117:806570 */ t75336 = p17422->a29878; if ((t75336&3)==1) {/* MOVE: branching squeezed to general */ if (t75337>=((char *)VALUE_OFFSET)) {t75338.tag = EXTERNAL_SYMBOL_TYPE; t75338.value.external_symbol_type = t75337;} else t75338.tag = (unsigned)t75337; f10658(((struct p10641 *)(t75336-1)), t75338);} else {/* MOVE: branching squeezed to general */ if (t75337>=((char *)VALUE_OFFSET)) {t75339.tag = EXTERNAL_SYMBOL_TYPE; t75339.value.external_symbol_type = t75337;} else t75339.tag = (unsigned)t75337; f10657(((struct p10646 *)t75336), t75339);} break; case 0: p17551 = (struct p17550 *)t75334; /* x163924 stalin.sc:23383:815729 */ /* x163923 stalin.sc:23383:815748 */ /* x163922 stalin.sc:23383:815758 */ /* x163921 stalin.sc:23383:815780 */ t75345 = p17551->a30286; /* x163920 stalin.sc:23383:815759 */ a36389 = t75345; /* x278225 */ /* x278224 */ t75346 = a36389; /* x278223 */ if (!(t75346>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31306]"); structure_ref_error();} t75344 = t75346->s0; /* x163919 stalin.sc:23383:815749 */ t75341 = f7121(t75344); /* x163918 stalin.sc:23383:815730 */ t75340 = p17551->a30288; if ((t75340&3)==1) {t75342 = *((struct w49 *)(&t75341)); f10658(((struct p10641 *)(t75340-1)), t75342);} else {t75343 = *((struct w49 *)(&t75341)); f10657(((struct p10646 *)t75340), t75343);} break; default: p17658 = (struct p17657 *)(t75334-1); /* x164906 stalin.sc:23649:822989 */ /* x164905 stalin.sc:23650:823012 */ /* x164901 stalin.sc:23653:823182 */ /* x164904 stalin.sc:23654:823191 */ /* x164903 stalin.sc:23654:823213 */ t75353 = p17658->a30599; /* x164902 stalin.sc:23654:823192 */ a36383 = t75353; /* x278201 */ /* x278200 */ t75354 = a36383; /* x278199 */ if (!(t75354>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31300]"); structure_ref_error();} t75351 = t75354->s0; /* x164900 stalin.sc:23650:823013 */ t75352.tag = NULL_TYPE; t75348 = f7166(t75352, t75351); /* x164899 stalin.sc:23649:822990 */ t75347 = p17658->a30601; if ((t75347&3)==1) {t75349 = *((struct w49 *)(&t75348)); f10658(((struct p10641 *)(t75347-1)), t75349);} else {t75350 = *((struct w49 *)(&t75348)); f10657(((struct p10646 *)t75347), t75350);}} goto l13576; l13575: /* x153657 */ /* x153642 stalin.sc:21021:735203 */ /* x153640 stalin.sc:21021:735206 */ /* x153639 stalin.sc:21021:735214 */ t75303 = a27382; /* x153638 stalin.sc:21021:735207 */ t75301 = f26227(t75303); /* x153641 stalin.sc:21021:735218 */ t75302 = 2; /* x268324 stalin.sc:21021:735204 */ if (!(t75301==t75302)) goto l13578; /* x153652 */ /* x153651 */ t75305 = p16349; p16351 = t75305; /* x153650 stalin.sc:21021:735221 */ /* x153646 stalin.sc:21021:735225 */ /* x153645 stalin.sc:21021:735232 */ t75330 = a27382; /* x153644 stalin.sc:21021:735226 */ a35682 = t75330; /* x274085 */ /* x274084 */ t75331 = a35682; /* x274083 */ if (!((t75331.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29831]"); structure_ref_error();} /* x153649 stalin.sc:21021:735236 */ /* x153648 stalin.sc:21021:735244 */ t75332 = a27382; /* x153647 stalin.sc:21021:735237 */ t75308 = f26181(t75332); /* x153643 stalin.sc:21021:735222 */ t75306 = p16351->a27381; switch (t75306&3) {case 2: p17423 = (struct p17421 *)(t75306-2); /* x162960 stalin.sc:23118:806617 */ /* x162959 stalin.sc:23118:806636 */ t75310 = a1966; /* x162958 stalin.sc:23118:806618 */ t75309 = p17423->a29878; if ((t75309&3)==1) {/* MOVE: branching squeezed to general */ if (t75310>=((char *)VALUE_OFFSET)) {t75311.tag = EXTERNAL_SYMBOL_TYPE; t75311.value.external_symbol_type = t75310;} else t75311.tag = (unsigned)t75310; f10658(((struct p10641 *)(t75309-1)), t75311);} else {/* MOVE: branching squeezed to general */ if (t75310>=((char *)VALUE_OFFSET)) {t75312.tag = EXTERNAL_SYMBOL_TYPE; t75312.value.external_symbol_type = t75310;} else t75312.tag = (unsigned)t75310; f10657(((struct p10646 *)t75309), t75312);} break; case 0: p17552 = (struct p17550 *)t75306; /* x163932 stalin.sc:23384:815804 */ /* x163931 stalin.sc:23384:815823 */ /* x163930 stalin.sc:23384:815833 */ /* x163929 stalin.sc:23384:815855 */ t75318 = p17552->a30286; /* x163928 stalin.sc:23384:815834 */ a36390 = t75318; /* x278229 */ /* x278228 */ t75319 = a36390; /* x278227 */ if (!(t75319>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31307]"); structure_ref_error();} t75317 = t75319->s0; /* x163927 stalin.sc:23384:815824 */ t75314 = f7121(t75317); /* x163926 stalin.sc:23384:815805 */ t75313 = p17552->a30288; if ((t75313&3)==1) {t75315 = *((struct w49 *)(&t75314)); f10658(((struct p10641 *)(t75313-1)), t75315);} else {t75316 = *((struct w49 *)(&t75314)); f10657(((struct p10646 *)t75313), t75316);} break; default: p17659 = (struct p17657 *)(t75306-1); a30606 = t75308; /* x164917 stalin.sc:23656:823240 */ /* x164916 stalin.sc:23657:823263 */ /* x164912 stalin.sc:23660:823433 */ /* x164911 stalin.sc:23660:823442 */ t75327 = a30606; /* x164910 stalin.sc:23660:823434 */ t75324 = f8162(t75327); /* x164915 stalin.sc:23661:823451 */ /* x164914 stalin.sc:23661:823473 */ t75328 = p17659->a30599; /* x164913 stalin.sc:23661:823452 */ a36388 = t75328; /* x278221 */ /* x278220 */ t75329 = a36388; /* x278219 */ if (!(t75329>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31305]"); structure_ref_error();} t75325 = t75329->s0; /* x164909 stalin.sc:23657:823264 */ /* MOVE: branching squeezed to general */ if (t75324>=((struct structure_type24753 *)VALUE_OFFSET)) {t75326.tag = STRUCTURE_TYPE24753; t75326.value.structure_type24753 = t75324;} else t75326.tag = (unsigned)t75324; t75321 = f7166(t75326, t75325); /* x164908 stalin.sc:23656:823241 */ t75320 = p17659->a30601; if ((t75320&3)==1) {t75322 = *((struct w49 *)(&t75321)); f10658(((struct p10641 *)(t75320-1)), t75322);} else {t75323 = *((struct w49 *)(&t75321)); f10657(((struct p10646 *)t75320), t75323);}} goto l13579; l13578: /* x153656 */ /* x153655 */ /* x153654 stalin.sc:21022:735257 */ /* x153653 stalin.sc:21022:735258 */ /* x295349 QobiScheme.sc:166:5314 */ /* x295348 QobiScheme.sc:166:5321 */ t75304 = "This shouldn\'t happen"; /* x295347 QobiScheme.sc:166:5315 */ stalin_panic(t75304); l13579: l13576: break; case NATIVE_PROCEDURE_TYPE23196: p16336 = t74236.value.native_procedure_type23196; a27372 = t74237; a27373 = t74238; /* x153601 */ /* x153587 stalin.sc:21006:734770 */ /* x153580 stalin.sc:21006:734776 */ /* x153578 stalin.sc:21006:734789 */ /* x153579 stalin.sc:21006:734800 */ t75375 = a27373; /* x153577 stalin.sc:21006:734777 */ t75376.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t75376, t75375).tag)==FALSE_TYPE) goto l13584; /* x153584 */ /* x153583 */ /* x153582 stalin.sc:21006:734803 */ /* x153581 stalin.sc:21006:734804 */ /* x295341 QobiScheme.sc:166:5314 */ /* x295340 QobiScheme.sc:166:5321 */ t75377 = "This shouldn\'t happen"; /* x295339 QobiScheme.sc:166:5315 */ stalin_panic(t75377); goto l13585; l13584: /* x153586 stalin.sc:21006:734770 */ /* x153585 stalin.sc:21006:734770 */ l13585: /* x153600 stalin.sc:21007:734816 */ /* x153593 stalin.sc:21007:734824 */ /* x153591 stalin.sc:21007:734827 */ /* x153590 stalin.sc:21007:734835 */ t75380 = a27372; /* x153589 stalin.sc:21007:734828 */ t75378 = f26227(t75380); /* x153592 stalin.sc:21007:734839 */ t75379 = 3; /* x268326 stalin.sc:21007:734825 */ if (!(t75378==t75379)) goto l13587; /* x153595 */ /* x153594 */ goto l13588; l13587: /* x153599 */ /* x153598 */ /* x153597 stalin.sc:21007:734842 */ /* x153596 stalin.sc:21007:734843 */ /* x295345 QobiScheme.sc:166:5314 */ /* x295344 QobiScheme.sc:166:5321 */ t75381 = "This shouldn\'t happen"; /* x295343 QobiScheme.sc:166:5315 */ stalin_panic(t75381); l13588: /* x153576 */ t75360 = p16336; p16337 = t75360; /* x153575 stalin.sc:21008:734855 */ /* x153568 stalin.sc:21008:734858 */ /* x153567 stalin.sc:21008:734865 */ t75371 = a27372; /* x153566 stalin.sc:21008:734859 */ a35679 = t75371; /* x274073 */ /* x274072 */ t75372 = a35679; /* x274071 */ if (!((t75372.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29828]"); structure_ref_error();} t75362 = t75372.value.structure_type24753->s0; /* x153571 stalin.sc:21008:734869 */ /* x153570 stalin.sc:21008:734877 */ t75373 = a27372; /* x153569 stalin.sc:21008:734870 */ f26181(t75373); /* x153574 stalin.sc:21008:734881 */ /* x153573 stalin.sc:21008:734888 */ t75374 = a27372; /* x153572 stalin.sc:21008:734882 */ t75364 = f26187(t75374); /* x153565 stalin.sc:21008:734856 */ t75361 = p16337->a27371; switch ((unsigned)t75361) {case NATIVE_PROCEDURE_TYPE23370: a30880 = t75362; a30882 = t75364; e17792 = (struct p17792 *)alloca(sizeof(struct p17792)); if (e17792==NULL) {backtrace("stalin.sc", 23967, 831991); out_of_memory_error();} e17792->a30882 = a30882; /* x166070 stalin.sc:23968:832013 */ /* x166068 stalin.sc:23969:832034 */ t75365 = e17792; /* x166069 stalin.sc:23971:832127 */ t75366 = a30880; /* x166053 stalin.sc:23968:832014 */ t75367.tag = NATIVE_PROCEDURE_TYPE23371; t75367.value.native_procedure_type23371 = t75365; f8173(t75367, t75366); break; case NATIVE_PROCEDURE_TYPE23406: /* x164703 stalin.sc:23593:821561 */ break; default: p17699 = t75361; a30672 = t75362; /* x165308 stalin.sc:23762:826232 */ /* x165306 stalin.sc:23763:826253 */ t75368 = p17699; /* x165307 stalin.sc:23765:826345 */ t75369 = a30672; /* x165292 stalin.sc:23762:826233 */ t75370.tag = NATIVE_PROCEDURE_TYPE23202; t75370.value.native_procedure_type23202 = t75368; f8173(t75370, t75369);} break; case NATIVE_PROCEDURE_TYPE23388: p17830 = t74236.value.native_procedure_type23388; a30981 = t74237; a30982 = t74238; /* x166430 */ /* x166408 stalin.sc:24051:834298 */ /* x166401 stalin.sc:24051:834304 */ /* x166399 stalin.sc:24051:834317 */ /* x166400 stalin.sc:24051:834328 */ t75403 = a30982; /* x166398 stalin.sc:24051:834305 */ t75404.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t75404, t75403).tag)==FALSE_TYPE) goto l13593; /* x166405 */ /* x166404 */ /* x166403 stalin.sc:24051:834331 */ /* x166402 stalin.sc:24051:834332 */ /* x295301 QobiScheme.sc:166:5314 */ /* x295300 QobiScheme.sc:166:5321 */ t75405 = "This shouldn\'t happen"; /* x295299 QobiScheme.sc:166:5315 */ stalin_panic(t75405); goto l13594; l13593: /* x166407 stalin.sc:24051:834298 */ /* x166406 stalin.sc:24051:834298 */ l13594: /* x166429 stalin.sc:24052:834344 */ /* x166409 stalin.sc:24052:834350 */ /* x166428 stalin.sc:24052:834344 */ /* x166427 stalin.sc:24052:834344 */ /* x166397 */ t75382 = p17830; p17831 = t75382; /* x166396 stalin.sc:24055:834522 */ /* x166372 stalin.sc:24056:834542 */ /* x166370 stalin.sc:24056:834562 */ t75388 = p17831->a30976; /* x166371 stalin.sc:24056:834564 */ t75389 = q64; /* x166369 stalin.sc:24056:834543 */ t75383 = f8743(t75388, t75389); /* x166375 stalin.sc:24057:834584 */ /* x166374 stalin.sc:24057:834591 */ t75390 = a30981; /* x166373 stalin.sc:24057:834585 */ a35676 = t75390; /* x274061 */ /* x274060 */ t75391 = a35676; /* x274059 */ if (!((t75391.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29825]"); structure_ref_error();} t75384 = t75391.value.structure_type24753->s0; /* x166392 stalin.sc:24058:834598 */ /* x166378 stalin.sc:24058:834602 */ /* x166377 stalin.sc:24058:834614 */ t75392 = p17831->a30976; /* x166376 stalin.sc:24058:834603 */ /* MOVE: branching squeezed to general */ if (t75392>=((struct structure_type27745 *)VALUE_OFFSET)) {t75393.tag = STRUCTURE_TYPE27745; t75393.value.structure_type27745 = t75392;} else t75393.tag = (unsigned)t75392; if (f8944(t75393)==FALSE_TYPE) goto l13590; /* x166386 stalin.sc:24058:834617 */ /* x166380 stalin.sc:24058:834623 */ t75397 = p17831->a30980; /* x166385 stalin.sc:24058:834626 */ /* x166384 stalin.sc:24058:834632 */ /* x166383 stalin.sc:24058:834642 */ t75401 = a30981; /* x166382 stalin.sc:24058:834633 */ t75399 = f1005(t75401); /* x166381 stalin.sc:24058:834627 */ a35342 = t75399; /* x272725 */ /* x272724 */ t75400 = a35342; /* x272723 */ if (!((t75400.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29491]"); structure_ref_error();} t75398 = t75400.value.structure_type24753->s1; /* x268072 stalin.sc:24058:834618 */ t75385.tag = STRUCTURE_TYPE24753; t75385.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t75385.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24058, 834617); out_of_memory_error();} t75385.value.structure_type24753->s0 = t75397; t75385.value.structure_type24753->s1 = t75398; goto l13591; l13590: /* x166391 stalin.sc:24058:834648 */ /* x166390 stalin.sc:24058:834654 */ /* x166389 stalin.sc:24058:834664 */ t75396 = a30981; /* x166388 stalin.sc:24058:834655 */ t75394 = f1005(t75396); /* x166387 stalin.sc:24058:834649 */ a35343 = t75394; /* x272729 */ /* x272728 */ t75395 = a35343; /* x272727 */ if (!((t75395.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29492]"); structure_ref_error();} t75385 = t75395.value.structure_type24753->s1; l13591: /* x166395 stalin.sc:24059:834673 */ /* x166394 stalin.sc:24059:834679 */ t75402 = a30981; /* x166393 stalin.sc:24059:834674 */ t75386 = f960(t75402); /* x166368 stalin.sc:24055:834523 */ t75387 = t75383; f10641(t75387, t75384, t75385, t75386); break; default: p16315 = t74236.value.native_procedure_type23425; a27357 = t74237; a27358 = t74238; /* x153490 */ /* x153476 stalin.sc:20985:734237 */ /* x153469 stalin.sc:20985:734243 */ /* x153467 stalin.sc:20985:734256 */ /* x153468 stalin.sc:20985:734267 */ t75428 = a27358; /* x153466 stalin.sc:20985:734244 */ t75429.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t75429, t75428).tag)==FALSE_TYPE) goto l13597; /* x153473 */ /* x153472 */ /* x153471 stalin.sc:20985:734270 */ /* x153470 stalin.sc:20985:734271 */ /* x295293 QobiScheme.sc:166:5314 */ /* x295292 QobiScheme.sc:166:5321 */ t75430 = "This shouldn\'t happen"; /* x295291 QobiScheme.sc:166:5315 */ stalin_panic(t75430); goto l13598; l13597: /* x153475 stalin.sc:20985:734237 */ /* x153474 stalin.sc:20985:734237 */ l13598: /* x153489 stalin.sc:20986:734283 */ /* x153482 stalin.sc:20986:734291 */ /* x153480 stalin.sc:20986:734294 */ /* x153479 stalin.sc:20986:734302 */ t75433 = a27357; /* x153478 stalin.sc:20986:734295 */ t75431 = f26227(t75433); /* x153481 stalin.sc:20986:734306 */ t75432 = 0; /* x268329 stalin.sc:20986:734292 */ if (!(t75431==t75432)) goto l13600; /* x153484 */ /* x153483 */ goto l13601; l13600: /* x153488 */ /* x153487 */ /* x153486 stalin.sc:20986:734309 */ /* x153485 stalin.sc:20986:734310 */ /* x295297 QobiScheme.sc:166:5314 */ /* x295296 QobiScheme.sc:166:5321 */ t75434 = "This shouldn\'t happen"; /* x295295 QobiScheme.sc:166:5315 */ stalin_panic(t75434); l13601: /* x153465 */ t75406 = p16315; p16316 = t75406; /* x153464 stalin.sc:20987:734322 */ /* x153463 stalin.sc:20987:734323 */ t75407 = p16316->a27356; switch (t75407.tag) {case NATIVE_PROCEDURE_TYPE23424: p18013 = t75407.value.native_procedure_type23424; /* x168252 stalin.sc:24496:848360 */ /* x168251 stalin.sc:24496:848379 */ t75409 = a1960; /* x168250 stalin.sc:24496:848361 */ t75408 = p18013->a31555; if ((t75408&3)==1) {/* MOVE: branching squeezed to general */ if (t75409>=((char *)VALUE_OFFSET)) {t75410.tag = EXTERNAL_SYMBOL_TYPE; t75410.value.external_symbol_type = t75409;} else t75410.tag = (unsigned)t75409; f10658(((struct p10641 *)(t75408-1)), t75410);} else {/* MOVE: branching squeezed to general */ if (t75409>=((char *)VALUE_OFFSET)) {t75411.tag = EXTERNAL_SYMBOL_TYPE; t75411.value.external_symbol_type = t75409;} else t75411.tag = (unsigned)t75409; f10657(((struct p10646 *)t75408), t75411);} break; case NATIVE_PROCEDURE_TYPE23432: p18020 = t75407.value.native_procedure_type23432; /* x168285 stalin.sc:24505:848601 */ /* x168284 stalin.sc:24505:848620 */ t75413 = a1957; /* x168283 stalin.sc:24505:848602 */ t75412 = p18020->a31596; if ((t75412&3)==1) {/* MOVE: branching squeezed to general */ if (t75413>=((char *)VALUE_OFFSET)) {t75414.tag = EXTERNAL_SYMBOL_TYPE; t75414.value.external_symbol_type = t75413;} else t75414.tag = (unsigned)t75413; f10658(((struct p10641 *)(t75412-1)), t75414);} else {/* MOVE: branching squeezed to general */ if (t75413>=((char *)VALUE_OFFSET)) {t75415.tag = EXTERNAL_SYMBOL_TYPE; t75415.value.external_symbol_type = t75413;} else t75415.tag = (unsigned)t75413; f10657(((struct p10646 *)t75412), t75415);} break; case NATIVE_PROCEDURE_TYPE23446: p18102 = t75407.value.native_procedure_type23446; /* x168766 stalin.sc:24635:852173 */ /* x168765 stalin.sc:24635:852192 */ t75417 = a1969; /* x168764 stalin.sc:24635:852174 */ t75416 = p18102->a31990; if ((t75416&3)==1) {/* MOVE: branching squeezed to general */ if (t75417>=((char *)VALUE_OFFSET)) {t75418.tag = EXTERNAL_SYMBOL_TYPE; t75418.value.external_symbol_type = t75417;} else t75418.tag = (unsigned)t75417; f10658(((struct p10641 *)(t75416-1)), t75418);} else {/* MOVE: branching squeezed to general */ if (t75417>=((char *)VALUE_OFFSET)) {t75419.tag = EXTERNAL_SYMBOL_TYPE; t75419.value.external_symbol_type = t75417;} else t75419.tag = (unsigned)t75417; f10657(((struct p10646 *)t75416), t75419);} break; case NATIVE_PROCEDURE_TYPE23452: p18109 = t75407.value.native_procedure_type23452; /* x168799 stalin.sc:24644:852401 */ /* x168798 stalin.sc:24644:852420 */ t75421 = a1969; /* x168797 stalin.sc:24644:852402 */ t75420 = p18109->a32031; if ((t75420&3)==1) {/* MOVE: branching squeezed to general */ if (t75421>=((char *)VALUE_OFFSET)) {t75422.tag = EXTERNAL_SYMBOL_TYPE; t75422.value.external_symbol_type = t75421;} else t75422.tag = (unsigned)t75421; f10658(((struct p10641 *)(t75420-1)), t75422);} else {/* MOVE: branching squeezed to general */ if (t75421>=((char *)VALUE_OFFSET)) {t75423.tag = EXTERNAL_SYMBOL_TYPE; t75423.value.external_symbol_type = t75421;} else t75423.tag = (unsigned)t75421; f10657(((struct p10646 *)t75420), t75423);} break; default: p18095 = t75407.value.native_procedure_type23453; /* x168733 stalin.sc:24626:851940 */ /* x168732 stalin.sc:24626:851959 */ t75425 = a1969; /* x168731 stalin.sc:24626:851941 */ t75424 = p18095->a31949; if ((t75424&3)==1) {/* MOVE: branching squeezed to general */ if (t75425>=((char *)VALUE_OFFSET)) {t75426.tag = EXTERNAL_SYMBOL_TYPE; t75426.value.external_symbol_type = t75425;} else t75426.tag = (unsigned)t75425; f10658(((struct p10641 *)(t75424-1)), t75426);} else {/* MOVE: branching squeezed to general */ if (t75425>=((char *)VALUE_OFFSET)) {t75427.tag = EXTERNAL_SYMBOL_TYPE; t75427.value.external_symbol_type = t75425;} else t75427.tag = (unsigned)t75425; f10657(((struct p10646 *)t75424), t75427);}}} while ((sfp10650<(&((region10650->data)[0])))||(sfp10650>(&((region10650->data)[region_size10650])))) {struct region10650 *region; region = region10650; region_size10650 = region10650->region_size; region10650 = region10650->region; GC_free(region);} fp10650 = sfp10650; /* x96726 */ t74212 = e10646; p10647 = t74212; /* x96725 stalin.sc:9004:307109 */ /* x96709 stalin.sc:9004:307115 */ /* x96697 stalin.sc:9004:307120 */ /* x96696 stalin.sc:9004:307132 */ t74213 = p10647->p10641->a23435; /* x96695 stalin.sc:9004:307121 */ /* MOVE: branching squeezed to general */ if (t74213>=((struct structure_type27745 *)VALUE_OFFSET)) {t74214.tag = STRUCTURE_TYPE27745; t74214.value.structure_type27745 = t74213;} else t74214.tag = (unsigned)t74213; if (f8944(t74214)==FALSE_TYPE) goto l13265; /* x96707 */ /* x96706 stalin.sc:9005:307193 */ t74216 = a23439; /* x96705 stalin.sc:9005:307140 */ /* x96702 stalin.sc:9005:307175 */ /* x96700 stalin.sc:9005:307181 */ t74221 = p10647->a23442; /* x96701 stalin.sc:9005:307184 */ t74222 = p10647->a23441; /* x269715 stalin.sc:9005:307176 */ t74217 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t74217==NULL) {backtrace("stalin.sc", 9005, 307175); out_of_memory_error();} t74217->s0 = t74221; t74217->s1 = t74222; /* x96703 stalin.sc:9005:307188 */ t74218 = p10647->p10641->a23438; /* x96704 stalin.sc:9005:307190 */ t74219 = p10647->p10641->a23435; /* x96698 stalin.sc:9005:307141 */ t74220.tag = STRUCTURE_TYPE24753; t74220.value.structure_type24753 = t74217; t74215 = f10570(t74220, t74218, t74219); if (f10572(t74215, t74216)==FALSE_TYPE) goto l13265; /* x96722 */ /* x96721 */ t74223 = p10647; p10648 = t74223; /* x96720 stalin.sc:9006:307198 */ /* x96714 stalin.sc:9006:307215 */ /* x96712 stalin.sc:9006:307235 */ t74231 = p10648->p10641->a23435; /* x96713 stalin.sc:9006:307237 */ t74232 = q67; /* x96711 stalin.sc:9006:307216 */ t74224 = f8743(t74231, t74232); /* x96715 stalin.sc:9007:307265 */ t74225 = p10648->a23442; /* x96718 stalin.sc:9007:307268 */ /* x96717 stalin.sc:9007:307274 */ t74233 = a1676; /* x96716 stalin.sc:9007:307269 */ a34900 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34900==NULL) {backtrace("stalin.sc", 9007, 307268); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t74233>=((struct structure_type27650 *)VALUE_OFFSET)) {a34900->s0.tag = STRUCTURE_TYPE27650; a34900->s0.value.structure_type27650 = t74233;} else a34900->s0.tag = (unsigned)t74233; a34900->s1.tag = NULL_TYPE; /* x271807 */ t74226 = a34900; /* x96719 stalin.sc:9007:307282 */ t74227 = a1675; /* x96710 stalin.sc:9006:307199 */ t74228 = t74224; t74229.tag = STRUCTURE_TYPE24753; t74229.value.structure_type24753 = t74226; /* MOVE: branching squeezed to general */ if (t74227>=((struct structure_type27650 *)VALUE_OFFSET)) {t74230.tag = STRUCTURE_TYPE27650; t74230.value.structure_type27650 = t74227;} else t74230.tag = (unsigned)t74227; f10641(t74228, t74225, t74229, t74230); goto l13266; l13265: /* x96724 stalin.sc:9004:307109 */ /* x96723 stalin.sc:9004:307109 */ l13266: goto l13205; l13204: /* x97334 */ /* x96848 stalin.sc:9008:307299 */ /* x96847 stalin.sc:9008:307323 */ t74028 = a23439; /* x96846 stalin.sc:9008:307300 */ a38050 = t74028; /* x284869 */ /* x284868 */ t74029 = a38050; /* x284867 */ if (!((t74029.tag)==STRUCTURE_TYPE27756)) goto l13207; /* x97160 */ /* x97159 */ t74124 = p10643; p10662 = t74124; /* x97158 stalin.sc:9009:307332 */ /* x97157 stalin.sc:9009:307341 */ /* x97155 stalin.sc:9009:307361 */ t74205 = a23439; /* x97156 stalin.sc:9009:307363 */ t74206 = p10662->a23435; /* x97154 stalin.sc:9009:307342 */ t74126 = f9368(t74205, t74206); /* x97153 */ t74125 = p10662; p10663 = t74125; a23450 = t74126; e10663 = (struct p10663 *)alloca(sizeof(struct p10663)); if (e10663==NULL) {backtrace_internal("[inside PROPAGATE-CALL! 10662]"); out_of_memory_error();} e10663->p10641 = p10663; e10663->a23450 = a23450; /* x97152 */ /* x96930 stalin.sc:9010:307375 */ /* x96923 stalin.sc:9010:307381 */ /* x96918 stalin.sc:9010:307386 */ /* x96917 stalin.sc:9010:307391 */ /* x96916 stalin.sc:9010:307403 */ t74166 = p10663->a23435; /* x96915 stalin.sc:9010:307392 */ /* MOVE: branching squeezed to general */ if (t74166>=((struct structure_type27745 *)VALUE_OFFSET)) {t74167.tag = STRUCTURE_TYPE27745; t74167.value.structure_type27745 = t74166;} else t74167.tag = (unsigned)t74166; if (!(f8944(t74167)==FALSE_TYPE)) goto l13251; /* x96921 */ /* x96920 stalin.sc:9010:307419 */ t74168 = e10663->a23450; /* x96919 stalin.sc:9010:307408 */ if (f8944(t74168)==FALSE_TYPE) goto l13251; /* x96927 */ /* x96926 */ /* x96925 stalin.sc:9010:307423 */ /* x96924 stalin.sc:9010:307424 */ /* x295397 QobiScheme.sc:166:5314 */ /* x295396 QobiScheme.sc:166:5321 */ t74169 = "This shouldn\'t happen"; /* x295395 QobiScheme.sc:166:5315 */ stalin_panic(t74169); goto l13252; l13251: /* x96929 stalin.sc:9010:307375 */ /* x96928 stalin.sc:9010:307375 */ l13252: /* x96945 stalin.sc:9011:307441 */ /* x96933 stalin.sc:9011:307449 */ /* x96932 stalin.sc:9011:307456 */ t74170 = e10663->a23450; /* x96931 stalin.sc:9011:307450 */ if (f8918(t74170)==FALSE_TYPE) goto l13255; /* x96935 */ /* x96934 */ goto l13256; l13255: /* x96944 */ /* x96943 */ t74171 = e10663; p10675 = t74171; /* x96942 stalin.sc:9012:307460 */ /* x96941 stalin.sc:9013:307490 */ /* x96940 stalin.sc:9013:307507 */ /* x96939 stalin.sc:9013:307531 */ t74175 = p10675->a23450; /* x96938 stalin.sc:9013:307508 */ a36668 = t74175; /* x279341 */ /* x279340 */ t74176 = a36668; /* x279339 */ if (!((t74176.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31585]"); structure_ref_error();} t74173 = t74176.value.structure_type27694->s1; /* x96937 stalin.sc:9013:307491 */ a39200 = t74173; /* x289469 */ /* x289468 */ t74174 = a39200; /* x289467 */ if (!((t74174.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34117]"); structure_ref_error();} t74172 = t74174.value.structure_type27698->s15; /* x96936 stalin.sc:9012:307461 */ f10634(t74172); l13256: /* x96966 stalin.sc:9014:307544 */ /* x96952 stalin.sc:9014:307552 */ /* x96947 stalin.sc:9014:307558 */ /* x96948 stalin.sc:9014:307574 */ t74177 = p10663->a23435; /* x96951 stalin.sc:9014:307576 */ /* x96950 stalin.sc:9014:307600 */ t74182 = e10663->a23450; /* x96949 stalin.sc:9014:307577 */ a36613 = t74182; /* x279121 */ /* x279120 */ t74183 = a36613; /* x279119 */ if (!((t74183.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-CALL-SITES[6663] 31530]"); structure_ref_error();} t74178 = t74183.value.structure_type27694->s4; /* x96946 stalin.sc:9014:307553 */ t74179 = (struct p14552 *)NATIVE_PROCEDURE_TYPE7236; /* MOVE: branching squeezed to general */ if (t74177>=((struct structure_type27745 *)VALUE_OFFSET)) {t74180.tag = STRUCTURE_TYPE27745; t74180.value.structure_type27745 = t74177;} else t74180.tag = (unsigned)t74177; /* MOVE: branching squeezed to general */ if (t74178>=((struct structure_type24753 *)VALUE_OFFSET)) {t74181.tag = STRUCTURE_TYPE24753; t74181.value.structure_type24753 = t74178;} else t74181.tag = (unsigned)t74178; if ((f1178(t74179, t74180, t74181).tag)==FALSE_TYPE) goto l13258; /* x96954 */ /* x96953 */ goto l13259; l13258: /* x96965 */ /* x96964 */ t74184 = e10663; p10677 = t74184; /* x96963 stalin.sc:9015:307605 */ /* x96956 stalin.sc:9015:307634 */ t74185 = p10677->a23450; /* x96962 stalin.sc:9015:307636 */ /* x96958 stalin.sc:9015:307642 */ t74188 = p10677->p10641->a23435; /* x96961 stalin.sc:9015:307644 */ /* x96960 stalin.sc:9015:307668 */ t74190 = p10677->a23450; /* x96959 stalin.sc:9015:307645 */ a20568 = t74190; /* x55496 */ /* x55495 */ t74191 = a20568; /* x55494 */ if (!((t74191.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("ENVIRONMENT-CALL-SITES[6663]"); structure_ref_error();} t74189 = t74191.value.structure_type27694->s4; /* x269712 stalin.sc:9015:307637 */ t74186 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t74186==NULL) {backtrace("stalin.sc", 9015, 307636); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t74188>=((struct structure_type27745 *)VALUE_OFFSET)) {t74186->s0.tag = STRUCTURE_TYPE27745; t74186->s0.value.structure_type27745 = t74188;} else t74186->s0.tag = (unsigned)t74188; /* MOVE: branching squeezed to general */ if (t74189>=((struct structure_type24753 *)VALUE_OFFSET)) {t74186->s1.tag = STRUCTURE_TYPE24753; t74186->s1.value.structure_type24753 = t74189;} else t74186->s1.tag = (unsigned)t74189; /* x96955 stalin.sc:9015:307606 */ t74187 = t74186; f6664(t74185, t74187); l13259: /* x97151 stalin.sc:9016:307681 */ /* x97146 stalin.sc:9016:307696 */ /* x97141 stalin.sc:9016:307700 */ /* x97134 stalin.sc:9016:307705 */ /* x97133 stalin.sc:9016:307717 */ t74199 = p10663->a23435; /* x97132 stalin.sc:9016:307706 */ /* MOVE: branching squeezed to general */ if (t74199>=((struct structure_type27745 *)VALUE_OFFSET)) {t74200.tag = STRUCTURE_TYPE27745; t74200.value.structure_type27745 = t74199;} else t74200.tag = (unsigned)t74199; if (f8944(t74200)==FALSE_TYPE) goto l13261; /* x97139 */ /* x97138 stalin.sc:9016:307725 */ /* x97137 stalin.sc:9016:307737 */ t74201 = e10663->a23450; /* x97136 stalin.sc:9016:307726 */ if (!(f8944(t74201)==FALSE_TYPE)) goto l13261; /* x97144 stalin.sc:9017:307747 */ /* x97143 stalin.sc:9017:307753 */ t74202 = p10663->a23437; /* x97142 stalin.sc:9017:307748 */ a35362 = t74202; /* x272805 */ /* x272804 */ t74203 = a35362; /* x272803 */ if (!((t74203.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29511]"); structure_ref_error();} t74193 = t74203.value.structure_type24753->s1; goto l13262; l13261: /* x97145 stalin.sc:9018:307762 */ t74193 = p10663->a23437; l13262: /* x97147 stalin.sc:9019:307774 */ t74194 = p10663->a23438; /* x97150 stalin.sc:9020:307785 */ /* x97149 stalin.sc:9020:307796 */ t74204 = e10663->a23450; /* x97148 stalin.sc:9020:307786 */ t74195 = f8987(t74204); /* x97131 */ /* x97130 */ /* x97129 */ /* x97128 */ t74197 = e10663; p10678 = t74197; /* x97127 */ /* x97126 */ /* x97125 */ /* x96968 */ t74198 = p10678; p10679 = t74198; /* x96967 stalin.sc:9016:307686 */ t74192 = p10679; /* MOVE: branching squeezed to general */ if (t74195>=((struct structure_type24753 *)VALUE_OFFSET)) {t74196.tag = STRUCTURE_TYPE24753; t74196.value.structure_type24753 = t74195;} else t74196.tag = (unsigned)t74195; f10680(t74192, t74193, t74194, t74196); /* x96913 */ t74127 = e10663; p10664 = t74127; /* x96912 stalin.sc:9053:309155 */ /* x96851 stalin.sc:9053:309163 */ /* x96850 stalin.sc:9053:309185 */ t74128 = p10664->p10641->a23435; /* x96849 stalin.sc:9053:309164 */ /* MOVE: branching squeezed to general */ if (t74128>=((struct structure_type27745 *)VALUE_OFFSET)) {t74129.tag = STRUCTURE_TYPE27745; t74129.value.structure_type27745 = t74128;} else t74129.tag = (unsigned)t74128; if (f8751(t74129)==FALSE_TYPE) goto l13241; /* x96853 */ /* x96852 */ goto l13242; l13241: /* x96911 */ /* x96910 */ t74130 = p10664; p10666 = t74130; /* x96909 */ /* x96908 stalin.sc:9054:309189 */ /* x96888 stalin.sc:9054:309195 */ /* x96879 stalin.sc:9054:309200 */ /* x96878 stalin.sc:9054:309212 */ t74145 = p10666->p10641->a23435; /* x96877 stalin.sc:9054:309201 */ /* MOVE: branching squeezed to general */ if (t74145>=((struct structure_type27745 *)VALUE_OFFSET)) {t74146.tag = STRUCTURE_TYPE27745; t74146.value.structure_type27745 = t74145;} else t74146.tag = (unsigned)t74145; if (f8944(t74146)==FALSE_TYPE) goto l13247; /* x96886 */ /* x96885 stalin.sc:9055:309264 */ t74148 = a23439; /* x96884 stalin.sc:9055:309221 */ /* x96881 stalin.sc:9055:309256 */ t74149 = p10666->p10641->a23437; /* x96882 stalin.sc:9055:309259 */ t74150 = p10666->p10641->a23438; /* x96883 stalin.sc:9055:309261 */ t74151 = p10666->p10641->a23435; /* x96880 stalin.sc:9055:309222 */ t74147 = f10570(t74149, t74150, t74151); if (f10572(t74147, t74148)==FALSE_TYPE) goto l13247; /* x96905 */ /* x96904 */ t74152 = p10666; p10670 = t74152; /* x96903 stalin.sc:9056:309270 */ /* x96893 stalin.sc:9056:309287 */ /* x96891 stalin.sc:9056:309307 */ t74160 = p10670->p10641->a23435; /* x96892 stalin.sc:9056:309309 */ t74161 = q67; /* x96890 stalin.sc:9056:309288 */ t74153 = f8743(t74160, t74161); /* x96896 stalin.sc:9057:309338 */ /* x96895 stalin.sc:9057:309345 */ t74162 = p10670->p10641->a23437; /* x96894 stalin.sc:9057:309339 */ a35694 = t74162; /* x274133 */ /* x274132 */ t74163 = a35694; /* x274131 */ if (!((t74163.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29843]"); structure_ref_error();} t74154 = t74163.value.structure_type24753->s0; /* x96901 stalin.sc:9057:309349 */ /* x96900 stalin.sc:9057:309355 */ /* x96899 stalin.sc:9057:309372 */ t74165 = p10670->a23450; /* x96898 stalin.sc:9057:309356 */ t74164 = f8687(t74165); /* x96897 stalin.sc:9057:309350 */ a34910 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34910==NULL) {backtrace("stalin.sc", 9057, 309349); out_of_memory_error();} a34910->s0 = t74164; a34910->s1.tag = NULL_TYPE; /* x271827 */ t74155 = a34910; /* x96902 stalin.sc:9057:309376 */ t74156 = a1675; /* x96889 stalin.sc:9056:309271 */ t74157 = t74153; t74158.tag = STRUCTURE_TYPE24753; t74158.value.structure_type24753 = t74155; /* MOVE: branching squeezed to general */ if (t74156>=((struct structure_type27650 *)VALUE_OFFSET)) {t74159.tag = STRUCTURE_TYPE27650; t74159.value.structure_type27650 = t74156;} else t74159.tag = (unsigned)t74156; f10641(t74157, t74154, t74158, t74159); goto l13248; l13247: /* x96907 stalin.sc:9054:309189 */ /* x96906 stalin.sc:9054:309189 */ l13248: /* x96876 */ t74131 = p10666; p10667 = t74131; /* x96875 stalin.sc:9062:309671 */ /* x96860 stalin.sc:9062:309677 */ /* x96859 stalin.sc:9062:309696 */ t74133 = a23439; /* x96858 stalin.sc:9062:309678 */ /* x96855 stalin.sc:9062:309688 */ t74134 = p10667->p10641->a23437; /* x96856 stalin.sc:9062:309691 */ t74135 = p10667->p10641->a23438; /* x96857 stalin.sc:9062:309693 */ t74136 = p10667->p10641->a23435; /* x96854 stalin.sc:9062:309679 */ t74132 = f10532(t74134, t74135, t74136); if ((f10533(t74132, t74133).tag)==FALSE_TYPE) goto l13244; /* x96872 */ /* x96871 */ t74137 = p10667; p10668 = t74137; /* x96870 stalin.sc:9063:309701 */ /* x96864 stalin.sc:9063:309717 */ /* x96863 stalin.sc:9063:309734 */ t74140 = p10668->a23450; /* x96862 stalin.sc:9063:309718 */ t74138 = f8687(t74140); /* x96869 stalin.sc:9064:309741 */ /* x96868 stalin.sc:9064:309762 */ /* x96867 stalin.sc:9064:309784 */ t74143 = p10668->p10641->a23435; /* x96866 stalin.sc:9064:309763 */ a36394 = t74143; /* x278245 */ /* x278244 */ t74144 = a36394; /* x278243 */ if (!(t74144>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31311]"); structure_ref_error();} t74141 = t74144->s0; /* x96865 stalin.sc:9064:309742 */ a39876 = t74141; /* x292173 */ /* x292172 */ t74142 = a39876; /* x292171 */ if (!((t74142.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34793]"); structure_ref_error();} t74139 = t74142.value.structure_type27698->s10; /* x96861 stalin.sc:9063:309702 */ f10617(t74138, t74139); goto l13245; l13244: /* x96874 stalin.sc:9062:309671 */ /* x96873 stalin.sc:9062:309671 */ l13245: l13242: goto l13208; l13207: /* x97333 */ /* x97163 stalin.sc:9065:309799 */ /* x97162 stalin.sc:9065:309824 */ t74030 = a23439; /* x97161 stalin.sc:9065:309800 */ a37945 = t74030; /* x284449 */ /* x284448 */ t74031 = a37945; /* x284447 */ if (!((t74031.tag)==STRUCTURE_TYPE27750)) goto l13210; /* x97243 */ /* x97242 */ t74073 = p10643; p10693 = t74073; /* x97241 */ /* x97204 stalin.sc:9068:309975 */ /* x97197 stalin.sc:9068:309981 */ /* x97196 stalin.sc:9068:309985 */ /* x97195 stalin.sc:9068:310007 */ t74089 = p10693->a23435; /* x97194 stalin.sc:9068:309986 */ /* MOVE: branching squeezed to general */ if (t74089>=((struct structure_type27745 *)VALUE_OFFSET)) {t74090.tag = STRUCTURE_TYPE27745; t74090.value.structure_type27745 = t74089;} else t74090.tag = (unsigned)t74089; if (!(f8751(t74090)==FALSE_TYPE)) goto l13230; p10697 = p10693; /* x97191 */ /* x97190 stalin.sc:9068:310044 */ t74091 = p10697->a23435; /* x97189 stalin.sc:9068:310011 */ /* MOVE: branching squeezed to general */ if (t74091>=((struct structure_type27745 *)VALUE_OFFSET)) {t74092.tag = STRUCTURE_TYPE27745; t74092.value.structure_type27745 = t74091;} else t74092.tag = (unsigned)t74091; if (f8755(t74092)==FALSE_TYPE) goto l13231; l13230: /* x97201 */ /* x97200 */ /* x97199 stalin.sc:9069:310055 */ /* x97198 stalin.sc:9069:310056 */ /* x295469 QobiScheme.sc:166:5314 */ /* x295468 QobiScheme.sc:166:5321 */ t74093 = "This shouldn\'t happen"; /* x295467 QobiScheme.sc:166:5315 */ stalin_panic(t74093); goto l13232; l13231: /* x97203 stalin.sc:9068:309975 */ /* x97202 stalin.sc:9068:309975 */ l13232: /* x97208 stalin.sc:9070:310072 */ /* x97206 stalin.sc:9070:310109 */ t74094 = a23439; /* x97207 stalin.sc:9070:310111 */ /* x97205 stalin.sc:9070:310073 */ a21245 = t74094; /* x61915 */ /* x61914 stalin.sc:1558:51909 */ /* x61907 stalin.sc:1558:51917 */ /* x61906 stalin.sc:1558:51927 */ /* x270607 stalin.sc:1558:51918 */ /* x61909 */ /* x61908 */ /* x61904 */ while (region7341!=((struct region7341 *)(&initial_region7341))) {struct region7341 *region; region = region7341; region7341 = region7341->region; GC_free(region);} region_size7341 = REGION_SIZE7341; fp7341 = &((region7341->data)[0]); ALIGN(fp7341); /* x61903 stalin.sc:1559:51943 */ /* x61886 stalin.sc:1560:51983 */ t74095 = a21245; /* x61902 stalin.sc:1561:51987 */ /* x61887 stalin.sc:1561:51991 */ /* x61893 stalin.sc:1562:52000 */ /* x61892 stalin.sc:1562:52044 */ t74098 = 16; /* x61891 stalin.sc:1562:52008 */ /* x61890 stalin.sc:1562:52041 */ t74101 = a21245; /* x61889 stalin.sc:1562:52009 */ a37911 = t74101; /* x284313 */ /* x284312 */ t74102 = a37911; /* x284311 */ if (!((t74102.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-BOOLEANS[6051] 32828]"); structure_ref_error();} t74097 = t74102.value.structure_type27750->s7; /* x61888 stalin.sc:1562:52001 */ if ((fp7341+sizeof(struct structure_type24753))>(&((region7341->data)[region_size7341]))) {struct region7341 *region; unsigned region_size = REGION_SIZE7341; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7341 *)GC_malloc_uncollectable(sizeof(struct region7341)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1562, 52000); out_of_memory_error();} region->region = region7341; region_size7341 = region_size; region7341 = region; fp7341 = &((region->data)[0]); ALIGN(fp7341);} t74100.tag = STRUCTURE_TYPE24753; t74100.value.structure_type24753 = (struct structure_type24753 *)fp7341; fp7341 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t74100.value.structure_type24753->s0.tag = FIXNUM_TYPE; t74100.value.structure_type24753->s0.value.fixnum_type = t74098; t74100.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7341+sizeof(struct structure_type24753))>(&((region7341->data)[region_size7341]))) {struct region7341 *region; unsigned region_size = REGION_SIZE7341; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7341 *)GC_malloc_uncollectable(sizeof(struct region7341)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1562, 52000); out_of_memory_error();} region->region = region7341; region_size7341 = region_size; region7341 = region; fp7341 = &((region->data)[0]); ALIGN(fp7341);} t74099 = (struct structure_type24753 *)fp7341; fp7341 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t74099->s0.tag = FIXNUM_TYPE; t74099->s0.value.fixnum_type = t74097; t74099->s1 = t74100; t74096 = f27310(t74099); /* x61885 stalin.sc:1559:51944 */ f6052(t74095, t74096); /* x97240 stalin.sc:9071:310121 */ /* x97220 stalin.sc:9071:310127 */ /* x97211 stalin.sc:9071:310132 */ /* x97210 stalin.sc:9071:310144 */ t74103 = p10693->a23435; /* x97209 stalin.sc:9071:310133 */ /* MOVE: branching squeezed to general */ if (t74103>=((struct structure_type27745 *)VALUE_OFFSET)) {t74104.tag = STRUCTURE_TYPE27745; t74104.value.structure_type27745 = t74103;} else t74104.tag = (unsigned)t74103; if (f8944(t74104)==FALSE_TYPE) goto l13237; /* x97218 */ /* x97217 stalin.sc:9071:310191 */ t74106 = a23439; /* x97216 stalin.sc:9071:310148 */ /* x97213 stalin.sc:9071:310183 */ t74107 = p10693->a23437; /* x97214 stalin.sc:9071:310186 */ t74108 = p10693->a23438; /* x97215 stalin.sc:9071:310188 */ t74109 = p10693->a23435; /* x97212 stalin.sc:9071:310149 */ t74105 = f10570(t74107, t74108, t74109); if (f10572(t74105, t74106)==FALSE_TYPE) goto l13237; /* x97237 */ /* x97236 */ t74110 = p10693; p10700 = t74110; /* x97235 stalin.sc:9072:310202 */ /* x97225 stalin.sc:9073:310220 */ /* x97223 stalin.sc:9073:310240 */ t74118 = p10700->a23435; /* x97224 stalin.sc:9073:310242 */ t74119 = q67; /* x97222 stalin.sc:9073:310221 */ t74111 = f8743(t74118, t74119); /* x97228 stalin.sc:9074:310267 */ /* x97227 stalin.sc:9074:310274 */ t74120 = p10700->a23437; /* x97226 stalin.sc:9074:310268 */ a35717 = t74120; /* x274225 */ /* x274224 */ t74121 = a35717; /* x274223 */ if (!((t74121.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29866]"); structure_ref_error();} t74112 = t74121.value.structure_type24753->s0; /* x97233 stalin.sc:9074:310278 */ /* x97232 stalin.sc:9074:310284 */ /* x97231 stalin.sc:9074:310319 */ t74123 = a23439; /* x97230 stalin.sc:9074:310285 */ t74122 = f9869(t74123); /* x97229 stalin.sc:9074:310279 */ a34922 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34922==NULL) {backtrace("stalin.sc", 9074, 310278); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t74122>=((struct structure_type27650 *)VALUE_OFFSET)) {a34922->s0.tag = STRUCTURE_TYPE27650; a34922->s0.value.structure_type27650 = t74122;} else a34922->s0.tag = (unsigned)t74122; a34922->s1.tag = NULL_TYPE; /* x271851 */ t74113 = a34922; /* x97234 stalin.sc:9074:310323 */ t74114 = a1675; /* x97221 stalin.sc:9072:310203 */ t74115 = t74111; t74116.tag = STRUCTURE_TYPE24753; t74116.value.structure_type24753 = t74113; /* MOVE: branching squeezed to general */ if (t74114>=((struct structure_type27650 *)VALUE_OFFSET)) {t74117.tag = STRUCTURE_TYPE27650; t74117.value.structure_type27650 = t74114;} else t74117.tag = (unsigned)t74114; f10641(t74115, t74112, t74116, t74117); goto l13238; l13237: /* x97239 stalin.sc:9071:310121 */ /* x97238 stalin.sc:9071:310121 */ l13238: /* x97186 */ t74074 = p10693; p10694 = t74074; /* x97185 stalin.sc:9077:310491 */ /* x97170 stalin.sc:9077:310497 */ /* x97169 stalin.sc:9077:310516 */ t74076 = a23439; /* x97168 stalin.sc:9077:310498 */ /* x97165 stalin.sc:9077:310508 */ t74077 = p10694->a23437; /* x97166 stalin.sc:9077:310511 */ t74078 = p10694->a23438; /* x97167 stalin.sc:9077:310513 */ t74079 = p10694->a23435; /* x97164 stalin.sc:9077:310499 */ t74075 = f10532(t74077, t74078, t74079); if ((f10533(t74075, t74076).tag)==FALSE_TYPE) goto l13228; /* x97182 */ /* x97181 */ t74080 = p10694; p10695 = t74080; /* x97180 stalin.sc:9078:310526 */ /* x97174 stalin.sc:9078:310542 */ /* x97173 stalin.sc:9078:310577 */ t74084 = a23439; /* x97172 stalin.sc:9078:310543 */ t74081 = f9869(t74084); /* x97179 stalin.sc:9079:310589 */ /* x97178 stalin.sc:9079:310610 */ /* x97177 stalin.sc:9079:310632 */ t74087 = p10695->a23435; /* x97176 stalin.sc:9079:310611 */ a36399 = t74087; /* x278265 */ /* x278264 */ t74088 = a36399; /* x278263 */ if (!(t74088>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31316]"); structure_ref_error();} t74085 = t74088->s0; /* x97175 stalin.sc:9079:310590 */ a39879 = t74085; /* x292185 */ /* x292184 */ t74086 = a39879; /* x292183 */ if (!((t74086.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34796]"); structure_ref_error();} t74082 = t74086.value.structure_type27698->s10; /* x97171 stalin.sc:9078:310527 */ /* MOVE: branching squeezed to general */ if (t74081>=((struct structure_type27650 *)VALUE_OFFSET)) {t74083.tag = STRUCTURE_TYPE27650; t74083.value.structure_type27650 = t74081;} else t74083.tag = (unsigned)t74081; f10617(t74083, t74082); goto l13229; l13228: /* x97184 stalin.sc:9077:310491 */ /* x97183 stalin.sc:9077:310491 */ l13229: goto l13211; l13210: /* x97332 */ /* x97246 stalin.sc:9080:310645 */ /* x97245 stalin.sc:9080:310665 */ t74032 = a23439; /* x97244 stalin.sc:9080:310646 */ a37855 = t74032; /* x284089 */ /* x284088 */ t74033 = a37855; /* x284087 */ if (!((t74033.tag)==STRUCTURE_TYPE27858)) goto l13213; /* x97327 */ /* x97326 */ t74035 = p10643; p10702 = t74035; /* x97325 */ /* x97308 stalin.sc:9083:310806 */ /* x97301 stalin.sc:9083:310812 */ /* x97300 stalin.sc:9083:310816 */ /* x97299 stalin.sc:9083:310838 */ t74053 = p10702->a23435; /* x97298 stalin.sc:9083:310817 */ /* MOVE: branching squeezed to general */ if (t74053>=((struct structure_type27745 *)VALUE_OFFSET)) {t74054.tag = STRUCTURE_TYPE27745; t74054.value.structure_type27745 = t74053;} else t74054.tag = (unsigned)t74053; if (!(f8751(t74054)==FALSE_TYPE)) goto l13218; p10709 = p10702; /* x97295 */ /* x97294 stalin.sc:9083:310875 */ t74055 = p10709->a23435; /* x97293 stalin.sc:9083:310842 */ /* MOVE: branching squeezed to general */ if (t74055>=((struct structure_type27745 *)VALUE_OFFSET)) {t74056.tag = STRUCTURE_TYPE27745; t74056.value.structure_type27745 = t74055;} else t74056.tag = (unsigned)t74055; if (f8755(t74056)==FALSE_TYPE) goto l13219; l13218: /* x97305 */ /* x97304 */ /* x97303 stalin.sc:9084:310886 */ /* x97302 stalin.sc:9084:310887 */ /* x295473 QobiScheme.sc:166:5314 */ /* x295472 QobiScheme.sc:166:5321 */ t74057 = "This shouldn\'t happen"; /* x295471 QobiScheme.sc:166:5315 */ stalin_panic(t74057); goto l13220; l13219: /* x97307 stalin.sc:9083:310806 */ /* x97306 stalin.sc:9083:310806 */ l13220: /* x97320 stalin.sc:9091:311343 */ /* x97311 stalin.sc:9091:311349 */ /* x97310 stalin.sc:9091:311361 */ t74058 = p10702->a23435; /* x97309 stalin.sc:9091:311350 */ /* MOVE: branching squeezed to general */ if (t74058>=((struct structure_type27745 *)VALUE_OFFSET)) {t74059.tag = STRUCTURE_TYPE27745; t74059.value.structure_type27745 = t74058;} else t74059.tag = (unsigned)t74058; if (f8944(t74059)==FALSE_TYPE) goto l13223; /* x97317 */ /* x97316 */ t74060 = p10702; p10712 = t74060; /* x97315 stalin.sc:9091:311364 */ /* x97313 stalin.sc:9091:311379 */ t74061 = p10712->a23435; /* x97314 stalin.sc:9091:311381 */ t74062 = "unimplemented"; /* x97312 stalin.sc:9091:311365 */ /* MOVE: branching squeezed to general */ if (t74061>=((struct structure_type27745 *)VALUE_OFFSET)) {t74063.tag = STRUCTURE_TYPE27745; t74063.value.structure_type27745 = t74061;} else t74063.tag = (unsigned)t74061; f9707(t74063, t74062); goto l13224; l13223: /* x97319 stalin.sc:9091:311343 */ /* x97318 stalin.sc:9091:311343 */ l13224: /* x97324 stalin.sc:9092:311405 */ /* x97322 stalin.sc:9092:311452 */ t74064 = a23439; /* x97323 stalin.sc:9092:311454 */ /* x97321 stalin.sc:9092:311406 */ a21273 = t74064; /* x62230 */ /* x62229 stalin.sc:1635:54498 */ /* x62222 stalin.sc:1635:54506 */ /* x62221 stalin.sc:1635:54516 */ /* x270594 stalin.sc:1635:54507 */ /* x62224 */ /* x62223 */ /* x62219 */ while (region7376!=((struct region7376 *)(&initial_region7376))) {struct region7376 *region; region = region7376; region7376 = region7376->region; GC_free(region);} region_size7376 = REGION_SIZE7376; fp7376 = &((region7376->data)[0]); ALIGN(fp7376); /* x62218 stalin.sc:1636:54532 */ /* x62201 stalin.sc:1637:54567 */ t74065 = a21273; /* x62217 stalin.sc:1638:54571 */ /* x62202 stalin.sc:1638:54575 */ /* x62208 stalin.sc:1639:54584 */ /* x62207 stalin.sc:1639:54623 */ t74068 = 8; /* x62206 stalin.sc:1639:54592 */ /* x62205 stalin.sc:1639:54620 */ t74071 = a21273; /* x62204 stalin.sc:1639:54593 */ a37789 = t74071; /* x283825 */ /* x283824 */ t74072 = a37789; /* x283823 */ if (!((t74072.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-BOOLEANS[6101] 32706]"); structure_ref_error();} t74067 = t74072.value.structure_type27858->s5; /* x62203 stalin.sc:1639:54585 */ if ((fp7376+sizeof(struct structure_type24753))>(&((region7376->data)[region_size7376]))) {struct region7376 *region; unsigned region_size = REGION_SIZE7376; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7376 *)GC_malloc_uncollectable(sizeof(struct region7376)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1639, 54584); out_of_memory_error();} region->region = region7376; region_size7376 = region_size; region7376 = region; fp7376 = &((region->data)[0]); ALIGN(fp7376);} t74070.tag = STRUCTURE_TYPE24753; t74070.value.structure_type24753 = (struct structure_type24753 *)fp7376; fp7376 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t74070.value.structure_type24753->s0.tag = FIXNUM_TYPE; t74070.value.structure_type24753->s0.value.fixnum_type = t74068; t74070.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7376+sizeof(struct structure_type24753))>(&((region7376->data)[region_size7376]))) {struct region7376 *region; unsigned region_size = REGION_SIZE7376; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7376 *)GC_malloc_uncollectable(sizeof(struct region7376)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1639, 54584); out_of_memory_error();} region->region = region7376; region_size7376 = region_size; region7376 = region; fp7376 = &((region->data)[0]); ALIGN(fp7376);} t74069 = (struct structure_type24753 *)fp7376; fp7376 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t74069->s0.tag = FIXNUM_TYPE; t74069->s0.value.fixnum_type = t74067; t74069->s1 = t74070; t74066 = f27310(t74069); /* x62200 stalin.sc:1636:54533 */ f6102(t74065, t74066); /* x97290 */ t74036 = p10702; p10703 = t74036; /* x97289 stalin.sc:9094:311523 */ /* x97288 stalin.sc:9094:311533 */ /* x97287 stalin.sc:9095:311557 */ /* x97286 stalin.sc:9095:311598 */ t74051 = a23439; /* x97285 stalin.sc:9095:311558 */ a37817 = t74051; /* x283937 */ /* x283936 */ t74052 = a37817; /* x283935 */ if (!((t74052.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32734]"); structure_ref_error();} t74049 = t74052.value.structure_type27858->s0; /* x97284 stalin.sc:9094:311534 */ a39880 = t74049; /* x292189 */ /* x292188 */ t74050 = a39880; /* x292187 */ if (!((t74050.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34797]"); structure_ref_error();} t74038 = t74050.value.structure_type27698->s10; /* x97283 */ t74037 = p10703; p10704 = t74037; a23474 = t74038; e10704 = (struct p10704 *)alloca(sizeof(struct p10704)); if (e10704==NULL) {backtrace_internal("[inside PROPAGATE-CALL! 10703]"); out_of_memory_error();} e10704->p10641 = p10704; e10704->a23474 = a23474; /* x97282 */ /* x97281 stalin.sc:9096:311611 */ /* x97279 stalin.sc:9096:311632 */ t74048 = e10704->a23474; /* x97280 stalin.sc:9096:311635 */ /* x97278 stalin.sc:9096:311612 */ f8118(t74048); /* x97277 */ t74039 = e10704; p10705 = t74039; /* x97276 stalin.sc:9097:311646 */ /* x97249 stalin.sc:9097:311650 */ /* x97248 stalin.sc:9097:311657 */ t74040 = p10705->p10641->a23437; /* x269705 stalin.sc:9097:311651 */ if (!((t74040.tag)==NULL_TYPE)) goto l13216; /* x97269 stalin.sc:9098:311665 */ /* x97267 stalin.sc:9098:311682 */ t74045 = p10705; /* x97268 stalin.sc:9101:311793 */ t74046 = p10705->p10641->a23438; /* x97250 stalin.sc:9098:311666 */ t74047.tag = NATIVE_PROCEDURE_TYPE22518; t74047.value.native_procedure_type22518 = t74045; f8173(t74047, t74046); goto l13217; l13216: /* x97275 stalin.sc:9102:311800 */ /* x97273 stalin.sc:9102:311816 */ /* x97272 stalin.sc:9102:311823 */ t74043 = *((struct w16638 *)(&(p10705->p10641->a23437))); /* x97271 stalin.sc:9102:311817 */ a35718 = t74043; /* x274229 */ /* x274228 */ t74044 = a35718; /* x274227 */ if (!((t74044.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29867]"); structure_ref_error();} t74041 = t74044.value.structure_type24753->s0; /* x97274 stalin.sc:9102:311827 */ t74042 = p10705->a23474; /* x97270 stalin.sc:9102:311801 */ f10617(t74041, t74042); l13217: goto l13214; l13213: /* x97331 */ /* x97330 */ /* x97329 stalin.sc:9103:311845 */ /* x97328 stalin.sc:9103:311846 */ /* x295477 QobiScheme.sc:166:5314 */ /* x295476 QobiScheme.sc:166:5321 */ t74034 = "This shouldn\'t happen"; /* x295475 QobiScheme.sc:166:5315 */ stalin_panic(t74034); l13214: l13211: l13208: l13205: goto l13202; l13201: /* x97339 stalin.sc:8967:305453 */ /* x97338 stalin.sc:8967:305453 */ l13202: break; case NATIVE_PROCEDURE_TYPE16971: p11794 = t73937.value.native_procedure_type16971; a24164 = t73938; /* x106461 stalin.sc:10753:373130 */ /* x105792 stalin.sc:10753:373136 */ /* x105791 stalin.sc:10753:373174 */ t75754 = a24164; /* x105790 stalin.sc:10753:373137 */ /* x105787 stalin.sc:10753:373166 */ t75755 = p11794->a24161; /* x105788 stalin.sc:10753:373169 */ t75756 = p11794->a24162; /* x105789 stalin.sc:10753:373171 */ t75757 = p11794->a24160; /* x105786 stalin.sc:10753:373138 */ t75758 = *((struct w49 *)(&t75755)); t75753 = f7892(t75758, t75756, t75757); if ((t75753&3)==1) {if ((f7905(((struct p7892 *)(t75753-1)), t75754).tag)==FALSE_TYPE) goto l13616;} else if ((f7893(((struct p7892 *)t75753), t75754).tag)==FALSE_TYPE) goto l13616; /* x106458 */ /* x106457 */ t75759 = p11794; p11795 = t75759; /* x106456 stalin.sc:10754:373184 */ /* x105795 stalin.sc:10755:373192 */ /* x105794 stalin.sc:10755:373219 */ t75760 = a24164; /* x105793 stalin.sc:10755:373193 */ a38198 = t75760; /* x285461 */ /* x285460 */ t75761 = a38198; /* x285459 */ if (!((t75761.tag)==STRUCTURE_TYPE27753)) goto l13619; /* x106097 */ /* x106096 */ t75914 = p11795; p11796 = t75914; /* x106095 stalin.sc:10756:373224 */ /* x105798 stalin.sc:10756:373230 */ /* x105797 stalin.sc:10756:373251 */ t75915 = p11796->a24160; /* x105796 stalin.sc:10756:373231 */ /* MOVE: branching squeezed to general */ if (t75915>=((struct structure_type27745 *)VALUE_OFFSET)) {t75916.tag = STRUCTURE_TYPE27745; t75916.value.structure_type27745 = t75915;} else t75916.tag = (unsigned)t75915; if (f8752(t75916)==FALSE_TYPE) goto l13672; /* x106092 */ /* x106091 */ t75917 = p11796; p11797 = t75917; /* x106090 */ /* x105836 stalin.sc:10757:373257 */ /* x105829 stalin.sc:10757:373263 */ /* x105827 stalin.sc:10757:373276 */ /* x105828 stalin.sc:10757:373287 */ t75939 = p11797->a24162; /* x105826 stalin.sc:10757:373264 */ t75940.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8144(t75940, t75939).tag)==FALSE_TYPE) goto l13678; /* x105833 */ /* x105832 */ /* x105831 stalin.sc:10757:373290 */ /* x105830 stalin.sc:10757:373291 */ /* x295285 QobiScheme.sc:166:5314 */ /* x295284 QobiScheme.sc:166:5321 */ t75941 = "This shouldn\'t happen"; /* x295283 QobiScheme.sc:166:5315 */ stalin_panic(t75941); goto l13679; l13678: /* x105835 stalin.sc:10757:373257 */ /* x105834 stalin.sc:10757:373257 */ l13679: /* x105847 stalin.sc:10762:373571 */ /* x105846 stalin.sc:10763:373632 */ /* x105845 stalin.sc:10763:373654 */ /* x105844 stalin.sc:10763:373676 */ t75948 = p11797->a24160; /* x105843 stalin.sc:10763:373655 */ a36371 = t75948; /* x278153 */ /* x278152 */ t75949 = a36371; /* x278151 */ if (!(t75949>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31288]"); structure_ref_error();} t75946 = t75949->s0; /* x105842 stalin.sc:10763:373633 */ a38523 = t75946; /* x286761 */ /* x286760 */ t75947 = a38523; /* x286759 */ if (!((t75947.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33440]"); structure_ref_error();} t75942 = t75947.value.structure_type27698->s22; /* x105841 stalin.sc:10762:373581 */ /* x105837 stalin.sc:10762:373572 */ t75943.tag = NATIVE_PROCEDURE_TYPE23519; t75944 = *((struct w49 *)(&t75942)); t75945 = (struct structure_type24753 *)NULL_TYPE; f27755(t75943, t75944, t75945); /* x106089 stalin.sc:10767:373836 */ /* x105850 stalin.sc:10767:373840 */ /* x105849 stalin.sc:10767:373852 */ t75950 = p11797->a24160; /* x105848 stalin.sc:10767:373841 */ /* MOVE: branching squeezed to general */ if (t75950>=((struct structure_type27745 *)VALUE_OFFSET)) {t75951.tag = STRUCTURE_TYPE27745; t75951.value.structure_type27745 = t75950;} else t75951.tag = (unsigned)t75950; if (f8944(t75951)==FALSE_TYPE) goto l13681; /* x105978 stalin.sc:10768:373862 */ /* x105855 stalin.sc:10768:373869 */ /* x105854 stalin.sc:10768:373911 */ t76040 = a24164; /* x105853 stalin.sc:10768:373870 */ /* x105852 stalin.sc:10768:373903 */ t76041 = q79; /* x105851 stalin.sc:10768:373871 */ t76042.tag = EXTERNAL_SYMBOL_TYPE; t76042.value.external_symbol_type = t76041; t76039 = f7708(t76042); if (f7709(t76039, t76040)==FALSE_TYPE) goto l13696; /* x105882 */ /* x105881 */ t76123 = p11797; p11804 = t76123; /* x105880 stalin.sc:10769:373921 */ /* x105859 stalin.sc:10770:373954 */ /* x105858 stalin.sc:10770:373962 */ t76131 = p11804->a24161; /* x105857 stalin.sc:10770:373955 */ t76132 = *((struct w49 *)(&t76131)); t76124 = f26181(t76132); /* x105863 stalin.sc:10770:373966 */ /* x105861 stalin.sc:10770:373986 */ t76133 = p11804->a24160; /* x105862 stalin.sc:10770:373988 */ t76134 = q64; /* x105860 stalin.sc:10770:373967 */ t76125 = f8743(t76133, t76134); /* x105875 stalin.sc:10771:374013 */ /* x105867 stalin.sc:10771:374019 */ /* x105866 stalin.sc:10771:374026 */ t76137 = p11804->a24161; /* x105865 stalin.sc:10771:374020 */ a35660 = t76137; /* x273997 */ /* x273996 */ t76138 = a35660; /* x273995 */ if (!((t76138.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29809]"); structure_ref_error();} t76135 = t76138.value.structure_type24753->s0; /* x105874 stalin.sc:10771:374030 */ /* x105873 stalin.sc:10771:374040 */ /* x105872 stalin.sc:10771:374046 */ /* x105871 stalin.sc:10771:374052 */ t76142 = p11804->a24161; /* x105870 stalin.sc:10771:374047 */ a35336 = t76142; /* x272701 */ /* x272700 */ t76143 = a35336; /* x272699 */ if (!((t76143.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29485]"); structure_ref_error();} t76140 = t76143.value.structure_type24753->s1; /* x105869 stalin.sc:10771:374041 */ a35335 = t76140; /* x272697 */ /* x272696 */ t76141 = a35335; /* x272695 */ if (!((t76141.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29484]"); structure_ref_error();} t76139 = t76141.value.structure_type24753->s1; /* x105868 stalin.sc:10771:374031 */ t76136 = f1005(t76139); /* x269485 stalin.sc:10771:374014 */ t76126 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t76126==NULL) {backtrace("stalin.sc", 10771, 374013); out_of_memory_error();} t76126->s0 = t76135; t76126->s1 = *((struct w49 *)(&t76136)); /* x105878 stalin.sc:10771:374059 */ /* x105877 stalin.sc:10771:374065 */ t76144 = p11804->a24161; /* x105876 stalin.sc:10771:374060 */ t76145 = *((struct w49 *)(&t76144)); t76127 = f960(t76145); /* x105879 stalin.sc:10772:374077 */ t76128 = p11804->a24163; /* x105856 stalin.sc:10769:373922 */ t76129 = t76125; t76130.tag = STRUCTURE_TYPE24753; t76130.value.structure_type24753 = t76126; f11793(t76124, t76129, t76130, t76127, t76128); goto l13697; l13696: /* x105977 */ /* x105887 stalin.sc:10773:374089 */ /* x105886 stalin.sc:10775:374173 */ t76044 = a24164; /* x105885 stalin.sc:10773:374090 */ /* x105884 stalin.sc:10774:374132 */ t76045 = q66; /* x105883 stalin.sc:10773:374091 */ t76046.tag = EXTERNAL_SYMBOL_TYPE; t76046.value.external_symbol_type = t76045; t76043 = f7708(t76046); if (f7709(t76043, t76044)==FALSE_TYPE) goto l13699; /* x105908 */ /* x105907 */ t76103 = p11797; p11805 = t76103; /* x105906 stalin.sc:10776:374183 */ /* x105891 stalin.sc:10777:374216 */ /* x105890 stalin.sc:10777:374224 */ t76112 = p11805->a24161; /* x105889 stalin.sc:10777:374217 */ t76113 = *((struct w49 *)(&t76112)); t76104 = f26181(t76113); /* x105895 stalin.sc:10777:374228 */ /* x105893 stalin.sc:10777:374248 */ t76114 = p11805->a24160; /* x105894 stalin.sc:10777:374250 */ t76115 = q64; /* x105892 stalin.sc:10777:374229 */ t76105 = f8743(t76114, t76115); /* x105903 stalin.sc:10778:374275 */ /* x105902 stalin.sc:10778:374292 */ /* x105901 stalin.sc:10778:374299 */ t76121 = p11805->a24161; /* x105900 stalin.sc:10778:374293 */ a35662 = t76121; /* x274005 */ /* x274004 */ t76122 = a35662; /* x274003 */ if (!((t76122.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29811]"); structure_ref_error();} t76117 = t76122.value.structure_type24753->s0; /* x105899 stalin.sc:10778:374281 */ /* x105898 stalin.sc:10778:374288 */ t76119 = p11805->a24161; /* x105897 stalin.sc:10778:374282 */ a35661 = t76119; /* x274001 */ /* x274000 */ t76120 = a35661; /* x273999 */ if (!((t76120.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29810]"); structure_ref_error();} t76116 = t76120.value.structure_type24753->s0; /* x105896 stalin.sc:10778:374276 */ t76118.tag = STRUCTURE_TYPE24753; t76118.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t76118.value.structure_type24753)==NULL) {backtrace("stalin.sc", 10778, 374275); out_of_memory_error();} t76118.value.structure_type24753->s0 = t76117; t76118.value.structure_type24753->s1.tag = NULL_TYPE; a34892 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34892==NULL) {backtrace("stalin.sc", 10778, 374275); out_of_memory_error();} a34892->s0 = t76116; a34892->s1 = t76118; /* x271791 */ t76106 = a34892; /* x105904 stalin.sc:10778:374304 */ t76107 = a1675; /* x105905 stalin.sc:10778:374311 */ t76108 = p11805->a24163; /* x105888 stalin.sc:10776:374184 */ t76109 = t76105; t76110.tag = STRUCTURE_TYPE24753; t76110.value.structure_type24753 = t76106; /* MOVE: branching squeezed to general */ if (t76107>=((struct structure_type27650 *)VALUE_OFFSET)) {t76111.tag = STRUCTURE_TYPE27650; t76111.value.structure_type27650 = t76107;} else t76111.tag = (unsigned)t76107; f11793(t76104, t76109, t76110, t76111, t76108); goto l13700; l13699: /* x105976 */ /* x105913 stalin.sc:10779:374323 */ /* x105912 stalin.sc:10779:374364 */ t76048 = a24164; /* x105911 stalin.sc:10779:374324 */ /* x105910 stalin.sc:10779:374357 */ t76049 = q45; /* x105909 stalin.sc:10779:374325 */ t76050.tag = EXTERNAL_SYMBOL_TYPE; t76050.value.external_symbol_type = t76049; t76047 = f7708(t76050); if (f7709(t76047, t76048)==FALSE_TYPE) goto l13702; /* x105949 */ /* x105948 */ t76071 = p11797; p11806 = t76071; /* x105947 */ /* x105946 stalin.sc:10780:374374 */ /* x105934 stalin.sc:10781:374407 */ /* x105933 stalin.sc:10781:374415 */ t76096 = p11806->a24161; /* x105932 stalin.sc:10781:374408 */ t76097 = *((struct w49 *)(&t76096)); t76088 = f26181(t76097); /* x105938 stalin.sc:10781:374419 */ /* x105936 stalin.sc:10781:374439 */ t76098 = p11806->a24160; /* x105937 stalin.sc:10781:374441 */ t76099 = q64; /* x105935 stalin.sc:10781:374420 */ t76089 = f8743(t76098, t76099); /* x105943 stalin.sc:10782:374466 */ /* x105942 stalin.sc:10782:374472 */ /* x105941 stalin.sc:10782:374479 */ t76101 = p11806->a24161; /* x105940 stalin.sc:10782:374473 */ a35664 = t76101; /* x274013 */ /* x274012 */ t76102 = a35664; /* x274011 */ if (!((t76102.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29813]"); structure_ref_error();} t76100 = t76102.value.structure_type24753->s0; /* x105939 stalin.sc:10782:374467 */ a34894 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34894==NULL) {backtrace("stalin.sc", 10782, 374466); out_of_memory_error();} a34894->s0 = t76100; a34894->s1.tag = NULL_TYPE; /* x271795 */ t76090 = a34894; /* x105944 stalin.sc:10782:374484 */ t76091 = a1675; /* x105945 stalin.sc:10782:374491 */ t76092 = p11806->a24163; /* x105931 stalin.sc:10780:374375 */ t76093 = t76089; t76094.tag = STRUCTURE_TYPE24753; t76094.value.structure_type24753 = t76090; /* MOVE: branching squeezed to general */ if (t76091>=((struct structure_type27650 *)VALUE_OFFSET)) {t76095.tag = STRUCTURE_TYPE27650; t76095.value.structure_type27650 = t76091;} else t76095.tag = (unsigned)t76091; f11793(t76088, t76093, t76094, t76095, t76092); /* x105930 */ t76072 = p11806; p11807 = t76072; /* x105929 stalin.sc:10783:374502 */ /* x105917 stalin.sc:10784:374535 */ /* x105916 stalin.sc:10784:374542 */ t76081 = p11807->a24161; /* x105915 stalin.sc:10784:374536 */ t76082 = *((struct w49 *)(&t76081)); t76073 = f26187(t76082); /* x105921 stalin.sc:10784:374546 */ /* x105919 stalin.sc:10784:374566 */ t76083 = p11807->a24160; /* x105920 stalin.sc:10784:374568 */ t76084 = q65; /* x105918 stalin.sc:10784:374547 */ t76074 = f8743(t76083, t76084); /* x105926 stalin.sc:10785:374594 */ /* x105925 stalin.sc:10785:374600 */ /* x105924 stalin.sc:10785:374607 */ t76086 = p11807->a24161; /* x105923 stalin.sc:10785:374601 */ a35663 = t76086; /* x274009 */ /* x274008 */ t76087 = a35663; /* x274007 */ if (!((t76087.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29812]"); structure_ref_error();} t76085 = t76087.value.structure_type24753->s0; /* x105922 stalin.sc:10785:374595 */ a34893 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34893==NULL) {backtrace("stalin.sc", 10785, 374594); out_of_memory_error();} a34893->s0 = t76085; a34893->s1.tag = NULL_TYPE; /* x271793 */ t76075 = a34893; /* x105927 stalin.sc:10785:374612 */ t76076 = a1675; /* x105928 stalin.sc:10785:374619 */ t76077 = p11807->a24163; /* x105914 stalin.sc:10783:374503 */ t76078 = t76074; t76079.tag = STRUCTURE_TYPE24753; t76079.value.structure_type24753 = t76075; /* MOVE: branching squeezed to general */ if (t76076>=((struct structure_type27650 *)VALUE_OFFSET)) {t76080.tag = STRUCTURE_TYPE27650; t76080.value.structure_type27650 = t76076;} else t76080.tag = (unsigned)t76076; f11793(t76073, t76078, t76079, t76080, t76077); goto l13703; l13702: /* x105975 */ /* x105954 stalin.sc:10786:374631 */ /* x105953 stalin.sc:10786:374673 */ t76052 = a24164; /* x105952 stalin.sc:10786:374632 */ /* x105951 stalin.sc:10786:374665 */ t76053 = q44; /* x105950 stalin.sc:10786:374633 */ t76054.tag = EXTERNAL_SYMBOL_TYPE; t76054.value.external_symbol_type = t76053; t76051 = f7708(t76054); if (f7709(t76051, t76052)==FALSE_TYPE) goto l13705; /* x105972 */ /* x105971 */ t76055 = p11797; p11808 = t76055; /* x105970 stalin.sc:10787:374683 */ /* x105958 stalin.sc:10788:374716 */ /* x105957 stalin.sc:10788:374724 */ t76064 = p11808->a24161; /* x105956 stalin.sc:10788:374717 */ t76065 = *((struct w49 *)(&t76064)); t76056 = f26181(t76065); /* x105962 stalin.sc:10788:374728 */ /* x105960 stalin.sc:10788:374748 */ t76066 = p11808->a24160; /* x105961 stalin.sc:10788:374750 */ t76067 = q64; /* x105959 stalin.sc:10788:374729 */ t76057 = f8743(t76066, t76067); /* x105967 stalin.sc:10789:374775 */ /* x105966 stalin.sc:10789:374781 */ /* x105965 stalin.sc:10789:374788 */ t76069 = p11808->a24161; /* x105964 stalin.sc:10789:374782 */ a35665 = t76069; /* x274017 */ /* x274016 */ t76070 = a35665; /* x274015 */ if (!((t76070.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29814]"); structure_ref_error();} t76068 = t76070.value.structure_type24753->s0; /* x105963 stalin.sc:10789:374776 */ a34895 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34895==NULL) {backtrace("stalin.sc", 10789, 374775); out_of_memory_error();} a34895->s0 = t76068; a34895->s1.tag = NULL_TYPE; /* x271797 */ t76058 = a34895; /* x105968 stalin.sc:10789:374793 */ t76059 = a1675; /* x105969 stalin.sc:10789:374800 */ t76060 = p11808->a24163; /* x105955 stalin.sc:10787:374684 */ t76061 = t76057; t76062.tag = STRUCTURE_TYPE24753; t76062.value.structure_type24753 = t76058; /* MOVE: branching squeezed to general */ if (t76059>=((struct structure_type27650 *)VALUE_OFFSET)) {t76063.tag = STRUCTURE_TYPE27650; t76063.value.structure_type27650 = t76059;} else t76063.tag = (unsigned)t76059; f11793(t76056, t76061, t76062, t76063, t76060); goto l13706; l13705: /* x105974 */ /* x105973 */ l13706: l13703: l13700: l13697: goto l13682; l13681: /* x106088 stalin.sc:10790:374813 */ /* x105983 stalin.sc:10790:374820 */ /* x105982 stalin.sc:10790:374862 */ t75953 = a24164; /* x105981 stalin.sc:10790:374821 */ /* x105980 stalin.sc:10790:374854 */ t75954 = q79; /* x105979 stalin.sc:10790:374822 */ t75955.tag = EXTERNAL_SYMBOL_TYPE; t75955.value.external_symbol_type = t75954; t75952 = f7708(t75955); if (f7709(t75952, t75953)==FALSE_TYPE) goto l13684; /* x106003 */ /* x106002 */ t76023 = p11797; p11810 = t76023; /* x106001 stalin.sc:10791:374872 */ /* x105987 stalin.sc:10792:374905 */ /* x105986 stalin.sc:10792:374912 */ t76030 = p11810->a24161; /* x105985 stalin.sc:10792:374906 */ a35666 = t76030; /* x274021 */ /* x274020 */ t76031 = a35666; /* x274019 */ if (!((t76031.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29815]"); structure_ref_error();} t76024 = t76031.value.structure_type24753->s0; /* x105991 stalin.sc:10792:374916 */ /* x105989 stalin.sc:10792:374936 */ t76032 = p11810->a24160; /* x105990 stalin.sc:10792:374938 */ t76033 = q64; /* x105988 stalin.sc:10792:374917 */ t76025 = f8743(t76032, t76033); /* x105996 stalin.sc:10793:374963 */ /* x105995 stalin.sc:10793:374973 */ /* x105994 stalin.sc:10793:374979 */ t76035 = p11810->a24161; /* x105993 stalin.sc:10793:374974 */ a35337 = t76035; /* x272705 */ /* x272704 */ t76036 = a35337; /* x272703 */ if (!((t76036.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29486]"); structure_ref_error();} t76034 = t76036.value.structure_type24753->s1; /* x105992 stalin.sc:10793:374964 */ t76026 = f1005(t76034); /* x105999 stalin.sc:10793:374984 */ /* x105998 stalin.sc:10793:374990 */ t76037 = p11810->a24161; /* x105997 stalin.sc:10793:374985 */ t76038 = *((struct w49 *)(&t76037)); t76027 = f960(t76038); /* x106000 stalin.sc:10793:374994 */ t76028 = p11810->a24163; /* x105984 stalin.sc:10791:374873 */ t76029 = t76025; f11793(t76024, t76029, t76026, t76027, t76028); goto l13685; l13684: /* x106087 */ /* x106008 stalin.sc:10794:375006 */ /* x106007 stalin.sc:10796:375090 */ t75957 = a24164; /* x106006 stalin.sc:10794:375007 */ /* x106005 stalin.sc:10795:375049 */ t75958 = q66; /* x106004 stalin.sc:10794:375008 */ t75959.tag = EXTERNAL_SYMBOL_TYPE; t75959.value.external_symbol_type = t75958; t75956 = f7708(t75959); if (f7709(t75956, t75957)==FALSE_TYPE) goto l13687; /* x106030 */ /* x106029 */ t76004 = p11797; p11811 = t76004; /* x106028 stalin.sc:10797:375100 */ /* x106012 stalin.sc:10798:375133 */ /* x106011 stalin.sc:10798:375140 */ t76013 = p11811->a24161; /* x106010 stalin.sc:10798:375134 */ a35667 = t76013; /* x274025 */ /* x274024 */ t76014 = a35667; /* x274023 */ if (!((t76014.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29816]"); structure_ref_error();} t76005 = t76014.value.structure_type24753->s0; /* x106016 stalin.sc:10798:375144 */ /* x106014 stalin.sc:10798:375164 */ t76015 = p11811->a24160; /* x106015 stalin.sc:10798:375166 */ t76016 = q64; /* x106013 stalin.sc:10798:375145 */ t76006 = f8743(t76015, t76016); /* x106025 stalin.sc:10799:375191 */ /* x106024 stalin.sc:10799:375197 */ /* x106023 stalin.sc:10800:375232 */ /* x106022 stalin.sc:10800:375248 */ /* x106021 stalin.sc:10800:375270 */ t76021 = p11811->a24160; /* x106020 stalin.sc:10800:375249 */ a36372 = t76021; /* x278157 */ /* x278156 */ t76022 = a36372; /* x278155 */ if (!(t76022>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31289]"); structure_ref_error();} t76020 = t76022->s0; /* x106019 stalin.sc:10800:375233 */ t76018 = f7110(t76020); /* x106018 stalin.sc:10799:375198 */ t76019 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t76019==NULL) {backtrace("stalin.sc", 10799, 375197); out_of_memory_error();} t76019->s0.tag = STRUCTURE_TYPE27858; t76019->s0.value.structure_type27858 = t76018; t76019->s1.tag = NULL_TYPE; t76017 = f8098(t76019); /* x106017 stalin.sc:10799:375192 */ a34896 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34896==NULL) {backtrace("stalin.sc", 10799, 375191); out_of_memory_error();} a34896->s0.tag = STRUCTURE_TYPE27650; a34896->s0.value.structure_type27650 = t76017; a34896->s1.tag = NULL_TYPE; /* x271799 */ t76007 = a34896; /* x106026 stalin.sc:10801:375284 */ t76008 = a1675; /* x106027 stalin.sc:10801:375291 */ t76009 = p11811->a24163; /* x106009 stalin.sc:10797:375101 */ t76010 = t76006; t76011.tag = STRUCTURE_TYPE24753; t76011.value.structure_type24753 = t76007; /* MOVE: branching squeezed to general */ if (t76008>=((struct structure_type27650 *)VALUE_OFFSET)) {t76012.tag = STRUCTURE_TYPE27650; t76012.value.structure_type27650 = t76008;} else t76012.tag = (unsigned)t76008; f11793(t76005, t76010, t76011, t76012, t76009); goto l13688; l13687: /* x106086 */ /* x106035 stalin.sc:10802:375303 */ /* x106034 stalin.sc:10802:375344 */ t75961 = a24164; /* x106033 stalin.sc:10802:375304 */ /* x106032 stalin.sc:10802:375337 */ t75962 = q45; /* x106031 stalin.sc:10802:375305 */ t75963.tag = EXTERNAL_SYMBOL_TYPE; t75963.value.external_symbol_type = t75962; t75960 = f7708(t75963); if (f7709(t75960, t75961)==FALSE_TYPE) goto l13690; /* x106063 */ /* x106062 */ t75980 = p11797; p11812 = t75980; /* x106061 */ /* x106060 stalin.sc:10803:375354 */ /* x106052 stalin.sc:10804:375387 */ /* x106051 stalin.sc:10804:375394 */ t76000 = p11812->a24161; /* x106050 stalin.sc:10804:375388 */ a35668 = t76000; /* x274029 */ /* x274028 */ t76001 = a35668; /* x274027 */ if (!((t76001.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29817]"); structure_ref_error();} t75993 = t76001.value.structure_type24753->s0; /* x106056 stalin.sc:10804:375398 */ /* x106054 stalin.sc:10804:375418 */ t76002 = p11812->a24160; /* x106055 stalin.sc:10804:375420 */ t76003 = q64; /* x106053 stalin.sc:10804:375399 */ t75994 = f8743(t76002, t76003); /* x106057 stalin.sc:10805:375445 */ /* x106058 stalin.sc:10805:375449 */ t75995 = a1675; /* x106059 stalin.sc:10805:375456 */ t75996 = p11812->a24163; /* x106049 stalin.sc:10803:375355 */ t75997 = t75994; t75998.tag = NULL_TYPE; /* MOVE: branching squeezed to general */ if (t75995>=((struct structure_type27650 *)VALUE_OFFSET)) {t75999.tag = STRUCTURE_TYPE27650; t75999.value.structure_type27650 = t75995;} else t75999.tag = (unsigned)t75995; f11793(t75993, t75997, t75998, t75999, t75996); /* x106048 */ t75981 = p11812; p11813 = t75981; /* x106047 stalin.sc:10806:375467 */ /* x106039 stalin.sc:10807:375500 */ /* x106038 stalin.sc:10807:375508 */ t75989 = p11813->a24161; /* x106037 stalin.sc:10807:375501 */ t75990 = *((struct w49 *)(&t75989)); t75982 = f26181(t75990); /* x106043 stalin.sc:10807:375512 */ /* x106041 stalin.sc:10807:375532 */ t75991 = p11813->a24160; /* x106042 stalin.sc:10807:375534 */ t75992 = q65; /* x106040 stalin.sc:10807:375513 */ t75983 = f8743(t75991, t75992); /* x106044 stalin.sc:10808:375560 */ /* x106045 stalin.sc:10808:375564 */ t75984 = a1675; /* x106046 stalin.sc:10808:375571 */ t75985 = p11813->a24163; /* x106036 stalin.sc:10806:375468 */ t75986 = t75983; t75987.tag = NULL_TYPE; /* MOVE: branching squeezed to general */ if (t75984>=((struct structure_type27650 *)VALUE_OFFSET)) {t75988.tag = STRUCTURE_TYPE27650; t75988.value.structure_type27650 = t75984;} else t75988.tag = (unsigned)t75984; f11793(t75982, t75986, t75987, t75988, t75985); goto l13691; l13690: /* x106085 */ /* x106068 stalin.sc:10809:375583 */ /* x106067 stalin.sc:10809:375625 */ t75965 = a24164; /* x106066 stalin.sc:10809:375584 */ /* x106065 stalin.sc:10809:375617 */ t75966 = q44; /* x106064 stalin.sc:10809:375585 */ t75967.tag = EXTERNAL_SYMBOL_TYPE; t75967.value.external_symbol_type = t75966; t75964 = f7708(t75967); if (f7709(t75964, t75965)==FALSE_TYPE) goto l13693; /* x106082 */ /* x106081 */ t75968 = p11797; p11814 = t75968; /* x106080 stalin.sc:10810:375635 */ /* x106072 stalin.sc:10811:375668 */ /* x106071 stalin.sc:10811:375675 */ t75976 = p11814->a24161; /* x106070 stalin.sc:10811:375669 */ a35669 = t75976; /* x274033 */ /* x274032 */ t75977 = a35669; /* x274031 */ if (!((t75977.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29818]"); structure_ref_error();} t75969 = t75977.value.structure_type24753->s0; /* x106076 stalin.sc:10811:375679 */ /* x106074 stalin.sc:10811:375699 */ t75978 = p11814->a24160; /* x106075 stalin.sc:10811:375701 */ t75979 = q64; /* x106073 stalin.sc:10811:375680 */ t75970 = f8743(t75978, t75979); /* x106077 stalin.sc:10812:375726 */ /* x106078 stalin.sc:10812:375730 */ t75971 = a1675; /* x106079 stalin.sc:10812:375737 */ t75972 = p11814->a24163; /* x106069 stalin.sc:10810:375636 */ t75973 = t75970; t75974.tag = NULL_TYPE; /* MOVE: branching squeezed to general */ if (t75971>=((struct structure_type27650 *)VALUE_OFFSET)) {t75975.tag = STRUCTURE_TYPE27650; t75975.value.structure_type27650 = t75971;} else t75975.tag = (unsigned)t75971; f11793(t75969, t75973, t75974, t75975, t75972); goto l13694; l13693: /* x106084 */ /* x106083 */ l13694: l13691: l13688: l13685: l13682: /* x105825 */ t75918 = p11797; p11798 = t75918; /* x105824 stalin.sc:10813:375747 */ /* x105801 stalin.sc:10813:375753 */ /* x105800 stalin.sc:10813:375765 */ t75919 = p11798->a24160; /* x105799 stalin.sc:10813:375754 */ /* MOVE: branching squeezed to general */ if (t75919>=((struct structure_type27745 *)VALUE_OFFSET)) {t75920.tag = STRUCTURE_TYPE27745; t75920.value.structure_type27745 = t75919;} else t75920.tag = (unsigned)t75919; if (f8944(t75920)==FALSE_TYPE) goto l13675; /* x105821 */ /* x105820 */ t75921 = p11798; p11799 = t75921; /* x105819 stalin.sc:10816:375876 */ /* x105805 stalin.sc:10817:375906 */ /* x105804 stalin.sc:10817:375913 */ t75930 = p11799->a24161; /* x105803 stalin.sc:10817:375907 */ a35659 = t75930; /* x273993 */ /* x273992 */ t75931 = a35659; /* x273991 */ if (!((t75931.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29808]"); structure_ref_error();} t75922 = t75931.value.structure_type24753->s0; /* x105809 stalin.sc:10817:375917 */ /* x105807 stalin.sc:10817:375937 */ t75932 = p11799->a24160; /* x105808 stalin.sc:10817:375939 */ t75933 = q67; /* x105806 stalin.sc:10817:375918 */ t75923 = f8743(t75932, t75933); /* x105816 stalin.sc:10818:375968 */ /* x105815 stalin.sc:10818:375974 */ /* x105814 stalin.sc:10818:375995 */ /* x105813 stalin.sc:10818:376017 */ t75937 = p11799->a24160; /* x105812 stalin.sc:10818:375996 */ a36370 = t75937; /* x278149 */ /* x278148 */ t75938 = a36370; /* x278147 */ if (!(t75938>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31287]"); structure_ref_error();} t75935 = t75938->s0; /* x105811 stalin.sc:10818:375975 */ a39870 = t75935; /* x292149 */ /* x292148 */ t75936 = a39870; /* x292147 */ if (!((t75936.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34787]"); structure_ref_error();} t75934 = t75936.value.structure_type27698->s10; /* x105810 stalin.sc:10818:375969 */ a34891 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34891==NULL) {backtrace("stalin.sc", 10818, 375968); out_of_memory_error();} a34891->s0 = t75934; a34891->s1.tag = NULL_TYPE; /* x271789 */ t75924 = a34891; /* x105817 stalin.sc:10818:376022 */ t75925 = a1675; /* x105818 stalin.sc:10818:376029 */ t75926 = p11799->a24163; /* x105802 stalin.sc:10816:375877 */ t75927 = t75923; t75928.tag = STRUCTURE_TYPE24753; t75928.value.structure_type24753 = t75924; /* MOVE: branching squeezed to general */ if (t75925>=((struct structure_type27650 *)VALUE_OFFSET)) {t75929.tag = STRUCTURE_TYPE27650; t75929.value.structure_type27650 = t75925;} else t75929.tag = (unsigned)t75925; f11793(t75922, t75927, t75928, t75929, t75926); goto l13676; l13675: /* x105823 stalin.sc:10813:375747 */ /* x105822 stalin.sc:10813:375747 */ l13676: goto l13673; l13672: /* x106094 stalin.sc:10756:373224 */ /* x106093 stalin.sc:10756:373224 */ l13673: goto l13620; l13619: /* x106455 */ /* x106100 stalin.sc:10819:376038 */ /* x106099 stalin.sc:10819:376062 */ t75762 = a24164; /* x106098 stalin.sc:10819:376039 */ a38047 = t75762; /* x284857 */ /* x284856 */ t75763 = a38047; /* x284855 */ if (!((t75763.tag)==STRUCTURE_TYPE27756)) goto l13622; /* x106372 */ /* x106371 */ t75813 = p11795; p11817 = t75813; /* x106370 stalin.sc:10820:376067 */ /* x106369 stalin.sc:10820:376076 */ /* x106367 stalin.sc:10820:376096 */ t75912 = a24164; /* x106368 stalin.sc:10820:376098 */ t75913 = p11817->a24160; /* x106366 stalin.sc:10820:376077 */ t75815 = f9368(t75912, t75913); /* x106365 */ t75814 = p11817; p11818 = t75814; a24171 = t75815; e11818 = (struct p11818 *)alloca(sizeof(struct p11818)); if (e11818==NULL) {backtrace_internal("[inside ASSERT-CALLEE-ACCESSED! 11817]"); out_of_memory_error();} e11818->p11793 = p11818; e11818->a24171 = a24171; /* x106364 */ /* x106363 stalin.sc:10821:376106 */ /* x106351 stalin.sc:10821:376112 */ /* x106256 stalin.sc:10822:376120 */ /* x106255 stalin.sc:10822:376125 */ /* x106254 stalin.sc:10822:376132 */ t75894 = e11818->a24171; /* x106253 stalin.sc:10822:376126 */ if (!(f8918(t75894)==FALSE_TYPE)) goto l13665; /* x106349 */ /* x106348 stalin.sc:10824:376147 */ if (!((p11818->a24163.tag)==FALSE_TYPE)) goto l13664; p11839 = e11818; /* x106345 */ /* x106261 stalin.sc:10826:376164 */ /* x106260 stalin.sc:10826:376176 */ t75895 = p11839->p11793->a24160; /* x106259 stalin.sc:10826:376165 */ /* MOVE: branching squeezed to general */ if (t75895>=((struct structure_type27745 *)VALUE_OFFSET)) {t75896.tag = STRUCTURE_TYPE27745; t75896.value.structure_type27745 = t75895;} else t75896.tag = (unsigned)t75895; if (f8944(t75896)==FALSE_TYPE) goto l13665; /* x106343 */ /* x106266 stalin.sc:10827:376184 */ /* x106265 stalin.sc:10827:376189 */ /* x106264 stalin.sc:10827:376201 */ t75897 = p11839->a24171; /* x106263 stalin.sc:10827:376190 */ if (!(f8944(t75897)==FALSE_TYPE)) goto l13665; /* x106341 */ /* x106333 stalin.sc:10829:376225 */ t75898 = p11839; /* x106340 stalin.sc:10857:377104 */ /* x106339 stalin.sc:10858:377132 */ /* x106338 stalin.sc:10858:377155 */ /* x106337 stalin.sc:10858:377177 */ t75904 = p11839->p11793->a24160; /* x106336 stalin.sc:10858:377156 */ a36377 = t75904; /* x278177 */ /* x278176 */ t75905 = a36377; /* x278175 */ if (!(t75905>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31294]"); structure_ref_error();} t75903 = t75905->s0; /* x106335 stalin.sc:10858:377133 */ t75901 = f6994(t75903); /* x106334 stalin.sc:10857:377105 */ a39872 = t75901; /* x292157 */ /* x292156 */ t75902 = a39872; /* x292155 */ if (!((t75902.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34789]"); structure_ref_error();} t75899 = t75902.value.structure_type27698->s10; /* x106267 stalin.sc:10828:376211 */ t75900.tag = NATIVE_PROCEDURE_TYPE23479; t75900.value.native_procedure_type23479 = t75898; if ((f8137(t75900, t75899).tag)==FALSE_TYPE) goto l13665; l13664: /* x106360 */ /* x106359 */ t75906 = e11818; p11844 = t75906; /* x106358 stalin.sc:10859:377190 */ /* x106357 stalin.sc:10860:377224 */ /* x106356 stalin.sc:10860:377241 */ /* x106355 stalin.sc:10860:377265 */ t75910 = p11844->a24171; /* x106354 stalin.sc:10860:377242 */ a36667 = t75910; /* x279337 */ /* x279336 */ t75911 = a36667; /* x279335 */ if (!((t75911.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31584]"); structure_ref_error();} t75908 = t75911.value.structure_type27694->s1; /* x106353 stalin.sc:10860:377225 */ a39199 = t75908; /* x289465 */ /* x289464 */ t75909 = a39199; /* x289463 */ if (!((t75909.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34116]"); structure_ref_error();} t75907 = t75909.value.structure_type27698->s15; /* x106352 stalin.sc:10859:377191 */ f11857(t75907); goto l13666; l13665: /* x106362 stalin.sc:10821:376106 */ /* x106361 stalin.sc:10821:376106 */ l13666: /* x106251 */ t75816 = e11818; p11819 = t75816; /* x106250 stalin.sc:10861:377274 */ /* x106103 stalin.sc:10861:377280 */ /* x106102 stalin.sc:10861:377301 */ t75817 = p11819->p11793->a24160; /* x106101 stalin.sc:10861:377281 */ /* MOVE: branching squeezed to general */ if (t75817>=((struct structure_type27745 *)VALUE_OFFSET)) {t75818.tag = STRUCTURE_TYPE27745; t75818.value.structure_type27745 = t75817;} else t75818.tag = (unsigned)t75817; if (f8752(t75818)==FALSE_TYPE) goto l13641; /* x106247 */ /* x106246 */ t75819 = p11819; p11820 = t75819; /* x106245 */ /* x106244 stalin.sc:10862:377308 */ /* x106220 stalin.sc:10862:377323 */ /* x106219 stalin.sc:10862:377334 */ t75880 = p11820->a24171; /* x106218 stalin.sc:10862:377324 */ t75848 = f8987(t75880); /* x106243 stalin.sc:10863:377350 */ /* x106230 stalin.sc:10863:377354 */ /* x106223 stalin.sc:10863:377359 */ /* x106222 stalin.sc:10863:377371 */ t75881 = p11820->p11793->a24160; /* x106221 stalin.sc:10863:377360 */ /* MOVE: branching squeezed to general */ if (t75881>=((struct structure_type27745 *)VALUE_OFFSET)) {t75882.tag = STRUCTURE_TYPE27745; t75882.value.structure_type27745 = t75881;} else t75882.tag = (unsigned)t75881; if (f8944(t75882)==FALSE_TYPE) goto l13661; /* x106228 */ /* x106227 stalin.sc:10863:377379 */ /* x106226 stalin.sc:10863:377391 */ t75883 = p11820->a24171; /* x106225 stalin.sc:10863:377380 */ if (!(f8944(t75883)==FALSE_TYPE)) goto l13661; /* x106237 stalin.sc:10864:377405 */ /* x106236 stalin.sc:10864:377411 */ /* x106235 stalin.sc:10865:377442 */ /* x106234 stalin.sc:10865:377464 */ t75892 = p11820->p11793->a24160; /* x106233 stalin.sc:10865:377443 */ a36375 = t75892; /* x278169 */ /* x278168 */ t75893 = a36375; /* x278167 */ if (!(t75893>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31292]"); structure_ref_error();} t75890 = t75893->s0; /* x106232 stalin.sc:10864:377412 */ a38524 = t75890; /* x286765 */ /* x286764 */ t75891 = a38524; /* x286763 */ if (!((t75891.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33441]"); structure_ref_error();} t75888 = t75891.value.structure_type27698->s22; /* x106231 stalin.sc:10864:377406 */ a35341 = t75888; /* x272721 */ /* x272720 */ t75889 = a35341; /* x272719 */ if (!((t75889.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29490]"); structure_ref_error();} t75849 = t75889.value.structure_type24753->s1; goto l13662; l13661: /* x106242 stalin.sc:10866:377478 */ /* x106241 stalin.sc:10867:377510 */ /* x106240 stalin.sc:10867:377532 */ t75886 = p11820->p11793->a24160; /* x106239 stalin.sc:10867:377511 */ a36376 = t75886; /* x278173 */ /* x278172 */ t75887 = a36376; /* x278171 */ if (!(t75887>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31293]"); structure_ref_error();} t75884 = t75887->s0; /* x106238 stalin.sc:10866:377479 */ a38525 = t75884; /* x286769 */ /* x286768 */ t75885 = a38525; /* x286767 */ if (!((t75885.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33442]"); structure_ref_error();} t75849 = *((struct w49 *)(&(t75885.value.structure_type27698->s22))); l13662: /* x106217 */ /* x106216 */ /* x106215 */ /* x106214 */ t75878 = p11820; p11825 = t75878; /* x106213 */ /* x106212 */ /* x106211 */ /* x106148 */ t75879 = p11825; p11826 = t75879; /* x106147 stalin.sc:10862:377313 */ t75847 = p11826; p11827 = t75847; /* MOVE: branching squeezed to general */ if (t75848>=((struct structure_type24753 *)VALUE_OFFSET)) {a24177.tag = STRUCTURE_TYPE24753; a24177.value.structure_type24753 = t75848;} else a24177.tag = (unsigned)t75848; a24178 = t75849; h11827: /* x106210 stalin.sc:10868:377544 */ /* x106151 stalin.sc:10868:377552 */ /* x106150 stalin.sc:10868:377559 */ t75850 = a24177; /* x269483 stalin.sc:10868:377553 */ if (!((t75850.tag)==NULL_TYPE)) goto l13648; /* x106153 */ /* x106152 */ goto l13649; l13648: /* x106209 */ /* x106208 */ t75851 = p11827; p11829 = t75851; /* x106207 stalin.sc:10869:377569 */ /* x106163 stalin.sc:10869:377576 */ /* x106156 stalin.sc:10869:377581 */ /* x106155 stalin.sc:10869:377588 */ t75852 = p11829->a24171; /* x106154 stalin.sc:10869:377582 */ if (f8931(t75852)==FALSE_TYPE) goto l13651; /* x106161 */ /* x106160 stalin.sc:10869:377598 */ /* x106159 stalin.sc:10869:377604 */ t75854 = *((struct w16638 *)(&a24177)); /* x106158 stalin.sc:10869:377599 */ a35338 = t75854; /* x272709 */ /* x272708 */ t75855 = a35338; /* x272707 */ if (!((t75855.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29487]"); structure_ref_error();} t75853 = t75855.value.structure_type24753->s1; /* x269482 stalin.sc:10869:377592 */ if (!((t75853.tag)==NULL_TYPE)) goto l13651; /* x106179 */ /* x106178 */ /* x106177 stalin.sc:10870:377616 */ /* x106168 stalin.sc:10870:377622 */ /* x106167 stalin.sc:10870:377642 */ /* x106166 stalin.sc:10870:377649 */ t75872 = *((struct w16638 *)(&a24177)); /* x106165 stalin.sc:10870:377643 */ a35671 = t75872; /* x274041 */ /* x274040 */ t75873 = a35671; /* x274039 */ if (!((t75873.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29820]"); structure_ref_error();} t75871 = t75873.value.structure_type24753->s0; /* x106164 stalin.sc:10870:377623 */ if (f8194(t75871)==FALSE_TYPE) goto l13658; /* x106174 */ /* x106173 */ /* x106172 stalin.sc:10871:377661 */ /* x106171 stalin.sc:10871:377699 */ t75874 = a24178; /* x106170 stalin.sc:10871:377671 */ /* x106169 stalin.sc:10871:377662 */ t75875.tag = NATIVE_PROCEDURE_TYPE16143; t75876 = t75874; t75877 = (struct structure_type24753 *)NULL_TYPE; f27755(t75875, t75876, t75877); goto l13659; l13658: /* x106176 stalin.sc:10870:377616 */ /* x106175 stalin.sc:10870:377616 */ l13659: goto l13652; l13651: /* x106206 */ /* x106205 */ t75856 = p11829; p11833 = t75856; /* x106204 */ /* x106203 stalin.sc:10872:377716 */ /* x106193 stalin.sc:10872:377722 */ /* x106192 stalin.sc:10872:377742 */ /* x106191 stalin.sc:10872:377749 */ t75866 = *((struct w16638 *)(&a24177)); /* x106190 stalin.sc:10872:377743 */ a35673 = t75866; /* x274049 */ /* x274048 */ t75867 = a35673; /* x274047 */ if (!((t75867.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29822]"); structure_ref_error();} t75865 = t75867.value.structure_type24753->s0; /* x106189 stalin.sc:10872:377723 */ if (f8194(t75865)==FALSE_TYPE) goto l13655; /* x106200 */ /* x106199 */ /* x106198 stalin.sc:10873:377759 */ /* x106197 stalin.sc:10873:377788 */ /* x106196 stalin.sc:10873:377795 */ t75869 = a24178; /* x106195 stalin.sc:10873:377789 */ a35672 = t75869; /* x274045 */ /* x274044 */ t75870 = a35672; /* x274043 */ if (!((t75870.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29821]"); structure_ref_error();} t75868 = t75870.value.structure_type24753->s0; /* x106194 stalin.sc:10873:377760 */ f11857(t75868); goto l13656; l13655: /* x106202 stalin.sc:10872:377716 */ /* x106201 stalin.sc:10872:377716 */ l13656: /* x106188 */ t75857 = p11833; p11834 = t75857; /* x106187 stalin.sc:10874:377805 */ /* x106183 stalin.sc:10874:377811 */ /* x106182 stalin.sc:10874:377817 */ t75861 = *((struct w16638 *)(&a24177)); /* x106181 stalin.sc:10874:377812 */ a35339 = t75861; /* x272713 */ /* x272712 */ t75862 = a35339; /* x272711 */ if (!((t75862.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29488]"); structure_ref_error();} t75859 = t75862.value.structure_type24753->s1; /* x106186 stalin.sc:10874:377821 */ /* x106185 stalin.sc:10874:377827 */ t75863 = a24178; /* x106184 stalin.sc:10874:377822 */ a35340 = t75863; /* x272717 */ /* x272716 */ t75864 = a35340; /* x272715 */ if (!((t75864.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29489]"); structure_ref_error();} t75860 = t75864.value.structure_type24753->s1; /* x106180 stalin.sc:10874:377806 */ t75858 = p11834; p11827 = t75858; a24177 = t75859; a24178 = t75860; goto h11827; l13652: l13649: /* x106146 */ t75820 = p11820; p11821 = t75820; /* x106145 stalin.sc:10875:377840 */ /* x106113 stalin.sc:10875:377846 */ /* x106106 stalin.sc:10875:377851 */ /* x106105 stalin.sc:10875:377863 */ t75821 = p11821->p11793->a24160; /* x106104 stalin.sc:10875:377852 */ /* MOVE: branching squeezed to general */ if (t75821>=((struct structure_type27745 *)VALUE_OFFSET)) {t75822.tag = STRUCTURE_TYPE27745; t75822.value.structure_type27745 = t75821;} else t75822.tag = (unsigned)t75821; if (f8944(t75822)==FALSE_TYPE) goto l13644; /* x106111 */ /* x106110 stalin.sc:10875:377871 */ /* x106109 stalin.sc:10875:377883 */ t75823 = p11821->a24171; /* x106108 stalin.sc:10875:377872 */ if (!(f8944(t75823)==FALSE_TYPE)) goto l13644; /* x106142 */ /* x106141 */ t75824 = p11821->p11793; p11822 = t75824; /* x106140 */ /* x106139 stalin.sc:10877:377947 */ /* x106138 stalin.sc:10878:377982 */ /* x106137 stalin.sc:10878:378005 */ /* x106136 stalin.sc:10878:378027 */ t75845 = p11822->a24160; /* x106135 stalin.sc:10878:378006 */ a36374 = t75845; /* x278165 */ /* x278164 */ t75846 = a36374; /* x278163 */ if (!(t75846>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31291]"); structure_ref_error();} t75844 = t75846->s0; /* x106134 stalin.sc:10878:377983 */ t75843 = f6994(t75844); /* x106133 stalin.sc:10877:377948 */ f11857(t75843); /* x106132 */ t75825 = p11822; p11823 = t75825; /* x106131 stalin.sc:10881:378143 */ /* x106117 stalin.sc:10882:378174 */ /* x106116 stalin.sc:10882:378181 */ t75834 = p11823->a24161; /* x106115 stalin.sc:10882:378175 */ a35670 = t75834; /* x274037 */ /* x274036 */ t75835 = a35670; /* x274035 */ if (!((t75835.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29819]"); structure_ref_error();} t75826 = t75835.value.structure_type24753->s0; /* x106121 stalin.sc:10882:378185 */ /* x106119 stalin.sc:10882:378205 */ t75836 = p11823->a24160; /* x106120 stalin.sc:10882:378207 */ t75837 = q67; /* x106118 stalin.sc:10882:378186 */ t75827 = f8743(t75836, t75837); /* x106128 stalin.sc:10883:378237 */ /* x106127 stalin.sc:10883:378243 */ /* x106126 stalin.sc:10883:378264 */ /* x106125 stalin.sc:10883:378286 */ t75841 = p11823->a24160; /* x106124 stalin.sc:10883:378265 */ a36373 = t75841; /* x278161 */ /* x278160 */ t75842 = a36373; /* x278159 */ if (!(t75842>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31290]"); structure_ref_error();} t75839 = t75842->s0; /* x106123 stalin.sc:10883:378244 */ a39871 = t75839; /* x292153 */ /* x292152 */ t75840 = a39871; /* x292151 */ if (!((t75840.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34788]"); structure_ref_error();} t75838 = t75840.value.structure_type27698->s10; /* x106122 stalin.sc:10883:378238 */ a34897 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34897==NULL) {backtrace("stalin.sc", 10883, 378237); out_of_memory_error();} a34897->s0 = t75838; a34897->s1.tag = NULL_TYPE; /* x271801 */ t75828 = a34897; /* x106129 stalin.sc:10884:378297 */ t75829 = a1675; /* x106130 stalin.sc:10884:378304 */ t75830 = p11823->a24163; /* x106114 stalin.sc:10881:378144 */ t75831 = t75827; t75832.tag = STRUCTURE_TYPE24753; t75832.value.structure_type24753 = t75828; /* MOVE: branching squeezed to general */ if (t75829>=((struct structure_type27650 *)VALUE_OFFSET)) {t75833.tag = STRUCTURE_TYPE27650; t75833.value.structure_type27650 = t75829;} else t75833.tag = (unsigned)t75829; f11793(t75826, t75831, t75832, t75833, t75830); goto l13645; l13644: /* x106144 stalin.sc:10875:377840 */ /* x106143 stalin.sc:10875:377840 */ l13645: goto l13642; l13641: /* x106249 stalin.sc:10861:377274 */ /* x106248 stalin.sc:10861:377274 */ l13642: goto l13623; l13622: /* x106454 */ /* x106375 stalin.sc:10885:378314 */ /* x106374 stalin.sc:10885:378339 */ t75764 = a24164; /* x106373 stalin.sc:10885:378315 */ a37942 = t75764; /* x284437 */ /* x284436 */ t75765 = a37942; /* x284435 */ if (!((t75765.tag)==STRUCTURE_TYPE27750)) goto l13625; /* x106421 */ /* x106420 */ t75780 = p11795; p11846 = t75780; /* x106419 stalin.sc:10886:378344 */ /* x106378 stalin.sc:10886:378350 */ /* x106377 stalin.sc:10886:378371 */ t75781 = p11846->a24160; /* x106376 stalin.sc:10886:378351 */ /* MOVE: branching squeezed to general */ if (t75781>=((struct structure_type27745 *)VALUE_OFFSET)) {t75782.tag = STRUCTURE_TYPE27745; t75782.value.structure_type27745 = t75781;} else t75782.tag = (unsigned)t75781; if (f8752(t75782)==FALSE_TYPE) goto l13635; /* x106416 */ /* x106415 */ t75783 = p11846; p11847 = t75783; /* x106414 */ /* x106413 stalin.sc:10891:378640 */ /* x106412 stalin.sc:10892:378684 */ /* x106411 stalin.sc:10892:378706 */ /* x106410 stalin.sc:10892:378728 */ t75811 = p11847->a24160; /* x106409 stalin.sc:10892:378707 */ a36379 = t75811; /* x278185 */ /* x278184 */ t75812 = a36379; /* x278183 */ if (!(t75812>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31296]"); structure_ref_error();} t75809 = t75812->s0; /* x106408 stalin.sc:10892:378685 */ a38526 = t75809; /* x286773 */ /* x286772 */ t75810 = a38526; /* x286771 */ if (!((t75810.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33443]"); structure_ref_error();} t75805 = t75810.value.structure_type27698->s22; /* x106407 stalin.sc:10891:378650 */ /* x106406 stalin.sc:10891:378641 */ t75806.tag = NATIVE_PROCEDURE_TYPE16143; t75807 = *((struct w49 *)(&t75805)); t75808 = (struct structure_type24753 *)NULL_TYPE; f27755(t75806, t75807, t75808); /* x106405 */ t75784 = p11847; p11848 = t75784; /* x106404 stalin.sc:10893:378736 */ /* x106381 stalin.sc:10893:378742 */ /* x106380 stalin.sc:10893:378754 */ t75785 = p11848->a24160; /* x106379 stalin.sc:10893:378743 */ /* MOVE: branching squeezed to general */ if (t75785>=((struct structure_type27745 *)VALUE_OFFSET)) {t75786.tag = STRUCTURE_TYPE27745; t75786.value.structure_type27745 = t75785;} else t75786.tag = (unsigned)t75785; if (f8944(t75786)==FALSE_TYPE) goto l13638; /* x106401 */ /* x106400 */ t75787 = p11848; p11849 = t75787; /* x106399 stalin.sc:10896:378865 */ /* x106385 stalin.sc:10897:378895 */ /* x106384 stalin.sc:10897:378902 */ t75796 = p11849->a24161; /* x106383 stalin.sc:10897:378896 */ a35675 = t75796; /* x274057 */ /* x274056 */ t75797 = a35675; /* x274055 */ if (!((t75797.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29824]"); structure_ref_error();} t75788 = t75797.value.structure_type24753->s0; /* x106389 stalin.sc:10897:378906 */ /* x106387 stalin.sc:10897:378926 */ t75798 = p11849->a24160; /* x106388 stalin.sc:10897:378928 */ t75799 = q67; /* x106386 stalin.sc:10897:378907 */ t75789 = f8743(t75798, t75799); /* x106396 stalin.sc:10898:378957 */ /* x106395 stalin.sc:10898:378963 */ /* x106394 stalin.sc:10898:378984 */ /* x106393 stalin.sc:10898:379006 */ t75803 = p11849->a24160; /* x106392 stalin.sc:10898:378985 */ a36378 = t75803; /* x278181 */ /* x278180 */ t75804 = a36378; /* x278179 */ if (!(t75804>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31295]"); structure_ref_error();} t75801 = t75804->s0; /* x106391 stalin.sc:10898:378964 */ a39873 = t75801; /* x292161 */ /* x292160 */ t75802 = a39873; /* x292159 */ if (!((t75802.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34790]"); structure_ref_error();} t75800 = t75802.value.structure_type27698->s10; /* x106390 stalin.sc:10898:378958 */ a34899 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34899==NULL) {backtrace("stalin.sc", 10898, 378957); out_of_memory_error();} a34899->s0 = t75800; a34899->s1.tag = NULL_TYPE; /* x271805 */ t75790 = a34899; /* x106397 stalin.sc:10898:379011 */ t75791 = a1675; /* x106398 stalin.sc:10898:379018 */ t75792 = p11849->a24163; /* x106382 stalin.sc:10896:378866 */ t75793 = t75789; t75794.tag = STRUCTURE_TYPE24753; t75794.value.structure_type24753 = t75790; /* MOVE: branching squeezed to general */ if (t75791>=((struct structure_type27650 *)VALUE_OFFSET)) {t75795.tag = STRUCTURE_TYPE27650; t75795.value.structure_type27650 = t75791;} else t75795.tag = (unsigned)t75791; f11793(t75788, t75793, t75794, t75795, t75792); goto l13639; l13638: /* x106403 stalin.sc:10893:378736 */ /* x106402 stalin.sc:10893:378736 */ l13639: goto l13636; l13635: /* x106418 stalin.sc:10886:378344 */ /* x106417 stalin.sc:10886:378344 */ l13636: goto l13626; l13625: /* x106453 */ /* x106424 stalin.sc:10899:379027 */ /* x106423 stalin.sc:10899:379047 */ t75766 = a24164; /* x106422 stalin.sc:10899:379028 */ a37852 = t75766; /* x284077 */ /* x284076 */ t75767 = a37852; /* x284075 */ if (!((t75767.tag)==STRUCTURE_TYPE27858)) goto l13628; /* x106448 */ /* x106447 */ t75769 = p11795; p11852 = t75769; /* x106446 stalin.sc:10900:379052 */ /* x106434 stalin.sc:10900:379058 */ /* x106427 stalin.sc:10900:379063 */ /* x106426 stalin.sc:10900:379084 */ t75770 = p11852->a24160; /* x106425 stalin.sc:10900:379064 */ /* MOVE: branching squeezed to general */ if (t75770>=((struct structure_type27745 *)VALUE_OFFSET)) {t75771.tag = STRUCTURE_TYPE27745; t75771.value.structure_type27745 = t75770;} else t75771.tag = (unsigned)t75770; if (f8752(t75771)==FALSE_TYPE) goto l13631; /* x106432 */ /* x106431 stalin.sc:10904:379226 */ /* x106430 stalin.sc:10904:379267 */ t75773 = a24164; /* x106429 stalin.sc:10904:379227 */ a37816 = t75773; /* x283933 */ /* x283932 */ t75774 = a37816; /* x283931 */ if (!((t75774.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32733]"); structure_ref_error();} t75772 = t75774.value.structure_type27858->s0; /* x106428 stalin.sc:10903:379198 */ if (f6936(t75772)==FALSE_TYPE) goto l13631; /* x106443 */ /* x106442 */ t75775 = p11852; p11853 = t75775; /* x106441 stalin.sc:10908:379483 */ /* x106440 stalin.sc:10909:379516 */ /* x106439 stalin.sc:10909:379532 */ /* x106438 stalin.sc:10909:379554 */ t75778 = p11853->a24160; /* x106437 stalin.sc:10909:379533 */ a36380 = t75778; /* x278189 */ /* x278188 */ t75779 = a36380; /* x278187 */ if (!(t75779>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31297]"); structure_ref_error();} t75777 = t75779->s0; /* x106436 stalin.sc:10909:379517 */ t75776 = f6998(t75777); /* x106435 stalin.sc:10908:379484 */ f11857(t75776); goto l13632; l13631: /* x106445 stalin.sc:10900:379052 */ /* x106444 stalin.sc:10900:379052 */ l13632: goto l13629; l13628: /* x106452 */ /* x106451 */ /* x106450 stalin.sc:10910:379568 */ /* x106449 stalin.sc:10910:379569 */ /* x295289 QobiScheme.sc:166:5314 */ /* x295288 QobiScheme.sc:166:5321 */ t75768 = "This shouldn\'t happen"; /* x295287 QobiScheme.sc:166:5315 */ stalin_panic(t75768); l13629: l13626: l13623: l13620: goto l13617; l13616: /* x106460 stalin.sc:10753:373130 */ /* x106459 stalin.sc:10753:373130 */ l13617: break; case NATIVE_PROCEDURE_TYPE18108: p10618 = t73937.value.native_procedure_type18108; a23421 = t73938; /* x96478 stalin.sc:8912:303305 */ /* x96476 stalin.sc:8912:303321 */ t76146 = a23421; /* x96477 stalin.sc:8912:303324 */ t76147 = p10618->a23420; /* x96475 stalin.sc:8912:303306 */ f10604(t76146, t76147); break; case NATIVE_PROCEDURE_TYPE18394: p10736 = t73937.value.native_procedure_type18394; a23492 = t73938; /* x97681 stalin.sc:9158:313879 */ /* x97569 stalin.sc:9158:313885 */ /* x97568 stalin.sc:9158:313914 */ t76149 = a23492; /* x97567 stalin.sc:9158:313886 */ /* x97566 stalin.sc:9158:313910 */ t76150 = p10736->a23483; /* x97565 stalin.sc:9158:313887 */ t76148 = f7917(t76150); if ((t76148&3)==1) {if ((f7905(((struct p7892 *)(t76148-1)), t76149).tag)==FALSE_TYPE) goto l13708;} else if ((f7893(((struct p7892 *)t76148), t76149).tag)==FALSE_TYPE) goto l13708; /* x97678 */ /* x97677 */ t76151 = p10736; p10737 = t76151; /* x97676 stalin.sc:9161:314022 */ /* x97572 stalin.sc:9161:314026 */ /* x97571 stalin.sc:9161:314053 */ t76152 = a23492; /* x97570 stalin.sc:9161:314027 */ a38193 = t76152; /* x285441 */ /* x285440 */ t76153 = a38193; /* x285439 */ if (!((t76153.tag)==STRUCTURE_TYPE27753)) goto l13711; /* x97667 stalin.sc:9162:314062 */ /* x97628 stalin.sc:9162:314077 */ t76161 = p10737->p10716->a23478; /* x97631 stalin.sc:9163:314088 */ /* x97630 stalin.sc:9163:314110 */ t76199 = p10737->a23483; /* x97629 stalin.sc:9163:314089 */ a38520 = t76199; /* x286749 */ /* x286748 */ t76200 = a38520; /* x286747 */ if (!((t76200.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33437]"); structure_ref_error();} t76162 = t76200.value.structure_type27698->s22; /* x97666 stalin.sc:9164:314122 */ /* x97647 stalin.sc:9169:314325 */ /* x97646 stalin.sc:9169:314343 */ t76279 = p10737->a23483; /* x97645 stalin.sc:9169:314326 */ t76202 = f8739(t76279); /* x97648 stalin.sc:9170:314355 */ t76203 = a23492; /* x97653 stalin.sc:9171:314365 */ /* x97652 stalin.sc:9171:314373 */ /* x97651 stalin.sc:9171:314395 */ t76282 = p10737->a23483; /* x97650 stalin.sc:9171:314374 */ a38521 = t76282; /* x286753 */ /* x286752 */ t76283 = a38521; /* x286751 */ if (!((t76283.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33438]"); structure_ref_error();} t76280 = t76283.value.structure_type27698->s22; /* x97649 stalin.sc:9171:314366 */ t76281 = *((struct w49 *)(&t76280)); t76204 = f26227(t76281); /* x97665 stalin.sc:9172:314408 */ /* x97656 stalin.sc:9172:314412 */ /* x97655 stalin.sc:9172:314424 */ t76284 = p10737->a23483; /* x97654 stalin.sc:9172:314413 */ if (f8944(t76284)==FALSE_TYPE) goto l13724; /* x97663 stalin.sc:9173:314433 */ /* x97662 stalin.sc:9174:314460 */ /* x97661 stalin.sc:9174:314467 */ /* x97660 stalin.sc:9174:314489 */ t76289 = p10737->a23483; /* x97659 stalin.sc:9174:314468 */ a38522 = t76289; /* x286757 */ /* x286756 */ t76290 = a38522; /* x286755 */ if (!((t76290.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33439]"); structure_ref_error();} t76287 = t76290.value.structure_type27698->s22; /* x97658 stalin.sc:9174:314461 */ a35658 = t76287; /* x273989 */ /* x273988 */ t76288 = a35658; /* x273987 */ if (!((t76288.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29807]"); structure_ref_error();} t76285 = t76288.value.structure_type24753->s0; /* x97657 stalin.sc:9173:314434 */ a39869 = t76285; /* x292145 */ /* x292144 */ t76286 = a39869; /* x292143 */ if (!((t76286.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34786]"); structure_ref_error();} t76205 = t76286.value.structure_type27698->s10; goto l13725; l13724: /* x97664 stalin.sc:9175:314500 */ t76205.tag = FALSE_TYPE; l13725: /* x97644 stalin.sc:9164:314123 */ /* x97643 stalin.sc:9167:314232 */ /* x97642 stalin.sc:9167:314237 */ /* x97640 stalin.sc:9167:314243 */ /* x97639 stalin.sc:9167:314274 */ t76277 = a23492; /* x97638 stalin.sc:9167:314244 */ a19516 = t76277; /* x51651 */ /* x51650 */ t76278 = a19516; /* x51649 */ if (!((t76278.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("PRIMITIVE-PROCEDURE-TYPE-NAME[5895]"); structure_ref_error();} t76274 = t76278.value.structure_type27753->s0; /* x97641 stalin.sc:9168:314283 */ t76275 = a789; /* x97637 stalin.sc:9167:314238 */ /* MOVE: branching squeezed to general */ if (t76275>=((struct structure_type24753 *)VALUE_OFFSET)) {t76276.tag = STRUCTURE_TYPE24753; t76276.value.structure_type24753 = t76275;} else t76276.tag = (unsigned)t76275; t76273 = f26354(t76274, t76276); /* x269692 stalin.sc:9167:314233 */ if (!((t76273.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 9167, 314232); structure_ref_error();} t76270 = t76273.value.structure_type24753->s1; /* x97635 stalin.sc:9164:314124 */ /* x97632 stalin.sc:9164:314128 */ if ((p10737->p10716->a23482)==FALSE_TYPE) goto l13721; /* x97633 stalin.sc:9165:314137 */ t76269 = NATIVE_PROCEDURE_TYPE6636; goto l13722; l13721: /* x97634 stalin.sc:9166:314183 */ t76269 = NATIVE_PROCEDURE_TYPE6635; l13722: if (t76269==NATIVE_PROCEDURE_TYPE6635) {a27247 = t76270; /* x152876 */ /* x152875 */ t76271 = a27247; /* x152874 */ if (!((t76271.tag)==STRUCTURE_TYPE24757)) {backtrace_internal("PRIMITIVE-PROCEDURE-ALTERNATE-CONTEXTS[16208]"); structure_ref_error();} t76201 = t76271.value.structure_type24757->s3;} else {a27237 = t76270; /* x152837 */ /* x152836 */ t76272 = a27237; /* x152835 */ if (!((t76272.tag)==STRUCTURE_TYPE24757)) {backtrace_internal("PRIMITIVE-PROCEDURE-CONSEQUENT-CONTEXTS[16200]"); structure_ref_error();} t76201 = t76272.value.structure_type24757->s2;} switch (t76201) {case NATIVE_PROCEDURE_TYPE6023: t76206 = f18140(t76202, t76205); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76206; break; case NATIVE_PROCEDURE_TYPE6024: t76207 = f18139(t76202, t76205); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76207; break; case NATIVE_PROCEDURE_TYPE6030: t76208 = f18124(t76202, t76205); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76208; break; case NATIVE_PROCEDURE_TYPE6031: t76209 = f18123(t76202, t76205); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76209; break; case NATIVE_PROCEDURE_TYPE6036: /* x168832 stalin.sc:24652:852612 */ /* x168831 stalin.sc:24652:852618 */ /* x168830 stalin.sc:24652:852613 */ a34928 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34928==NULL) {backtrace("stalin.sc", 24652, 852612); out_of_memory_error();} a34928->s0.tag = NATIVE_PROCEDURE_TYPE7429; a34928->s1.tag = NULL_TYPE; /* x271863 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34928; break; case NATIVE_PROCEDURE_TYPE6037: /* x168828 stalin.sc:24651:852591 */ /* x168827 stalin.sc:24651:852597 */ /* x168826 stalin.sc:24651:852592 */ a35011 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35011==NULL) {backtrace("stalin.sc", 24651, 852591); out_of_memory_error();} a35011->s0.tag = NATIVE_PROCEDURE_TYPE7429; a35011->s1.tag = NULL_TYPE; /* x272029 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35011; break; case NATIVE_PROCEDURE_TYPE6042: /* x168794 stalin.sc:24643:852358 */ t76163.tag = NULL_TYPE; break; case NATIVE_PROCEDURE_TYPE6043: /* x168792 stalin.sc:24642:852353 */ t76163.tag = NULL_TYPE; break; case NATIVE_PROCEDURE_TYPE6048: /* x168761 stalin.sc:24634:852130 */ t76163.tag = NULL_TYPE; break; case NATIVE_PROCEDURE_TYPE6049: /* x168759 stalin.sc:24633:852125 */ t76163.tag = NULL_TYPE; break; case NATIVE_PROCEDURE_TYPE6054: /* x168728 stalin.sc:24625:851897 */ t76163.tag = NULL_TYPE; break; case NATIVE_PROCEDURE_TYPE6055: /* x168726 stalin.sc:24624:851892 */ t76163.tag = NULL_TYPE; break; case NATIVE_PROCEDURE_TYPE6060: /* x168677 stalin.sc:24610:851508 */ /* x168676 stalin.sc:24610:851514 */ /* x168675 stalin.sc:24610:851509 */ a34929 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34929==NULL) {backtrace("stalin.sc", 24610, 851508); out_of_memory_error();} a34929->s0.tag = NATIVE_PROCEDURE_TYPE7430; a34929->s1.tag = NULL_TYPE; /* x271865 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34929; break; case NATIVE_PROCEDURE_TYPE6061: /* x168673 stalin.sc:24609:851487 */ /* x168672 stalin.sc:24609:851493 */ /* x168671 stalin.sc:24609:851488 */ a35014 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35014==NULL) {backtrace("stalin.sc", 24609, 851487); out_of_memory_error();} a35014->s0.tag = NATIVE_PROCEDURE_TYPE7430; a35014->s1.tag = NULL_TYPE; /* x272035 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35014; break; case NATIVE_PROCEDURE_TYPE6066: /* x168621 stalin.sc:24595:851083 */ /* x168620 stalin.sc:24595:851089 */ /* x168619 stalin.sc:24595:851084 */ a34930 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34930==NULL) {backtrace("stalin.sc", 24595, 851083); out_of_memory_error();} a34930->s0.tag = NATIVE_PROCEDURE_TYPE7430; a34930->s1.tag = NULL_TYPE; /* x271867 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34930; break; case NATIVE_PROCEDURE_TYPE6067: /* x168617 stalin.sc:24594:851062 */ /* x168616 stalin.sc:24594:851068 */ /* x168615 stalin.sc:24594:851063 */ a35013 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35013==NULL) {backtrace("stalin.sc", 24594, 851062); out_of_memory_error();} a35013->s0.tag = NATIVE_PROCEDURE_TYPE7430; a35013->s1.tag = NULL_TYPE; /* x272033 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35013; break; case NATIVE_PROCEDURE_TYPE6072: /* x168565 stalin.sc:24580:850657 */ /* x168564 stalin.sc:24580:850663 */ /* x168563 stalin.sc:24580:850658 */ a34931 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34931==NULL) {backtrace("stalin.sc", 24580, 850657); out_of_memory_error();} a34931->s0.tag = NATIVE_PROCEDURE_TYPE7430; a34931->s1.tag = NULL_TYPE; /* x271869 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34931; break; case NATIVE_PROCEDURE_TYPE6073: /* x168561 stalin.sc:24579:850636 */ /* x168560 stalin.sc:24579:850642 */ /* x168559 stalin.sc:24579:850637 */ a35015 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35015==NULL) {backtrace("stalin.sc", 24579, 850636); out_of_memory_error();} a35015->s0.tag = NATIVE_PROCEDURE_TYPE7430; a35015->s1.tag = NULL_TYPE; /* x272037 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35015; break; case NATIVE_PROCEDURE_TYPE6078: /* x168509 stalin.sc:24564:850227 */ /* x168508 stalin.sc:24564:850233 */ /* x168507 stalin.sc:24564:850228 */ a34932 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34932==NULL) {backtrace("stalin.sc", 24564, 850227); out_of_memory_error();} a34932->s0.tag = NATIVE_PROCEDURE_TYPE7430; a34932->s1.tag = NULL_TYPE; /* x271871 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34932; break; case NATIVE_PROCEDURE_TYPE6079: /* x168505 stalin.sc:24563:850206 */ /* x168504 stalin.sc:24563:850212 */ /* x168503 stalin.sc:24563:850207 */ a35012 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35012==NULL) {backtrace("stalin.sc", 24563, 850206); out_of_memory_error();} a35012->s0.tag = NATIVE_PROCEDURE_TYPE7430; a35012->s1.tag = NULL_TYPE; /* x272031 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35012; break; case NATIVE_PROCEDURE_TYPE6084: t76210 = f18045(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76210; break; case NATIVE_PROCEDURE_TYPE6085: /* x168440 stalin.sc:24550:849738 */ /* x168439 stalin.sc:24550:849744 */ /* x168438 stalin.sc:24550:849739 */ a35016 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35016==NULL) {backtrace("stalin.sc", 24550, 849738); out_of_memory_error();} a35016->s0.tag = NATIVE_PROCEDURE_TYPE7420; a35016->s1.tag = NULL_TYPE; /* x272039 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35016; break; case NATIVE_PROCEDURE_TYPE6090: /* x168394 stalin.sc:24537:849407 */ /* x168393 stalin.sc:24537:849413 */ /* x168392 stalin.sc:24537:849408 */ a34934 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34934==NULL) {backtrace("stalin.sc", 24537, 849407); out_of_memory_error();} a34934->s0.tag = NATIVE_PROCEDURE_TYPE7822; a34934->s1.tag = NULL_TYPE; /* x271875 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34934; break; case NATIVE_PROCEDURE_TYPE6091: /* x168390 stalin.sc:24536:849386 */ /* x168389 stalin.sc:24536:849392 */ /* x168388 stalin.sc:24536:849387 */ a35005 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35005==NULL) {backtrace("stalin.sc", 24536, 849386); out_of_memory_error();} a35005->s0.tag = NATIVE_PROCEDURE_TYPE7822; a35005->s1.tag = NULL_TYPE; /* x272017 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35005; break; case NATIVE_PROCEDURE_TYPE6096: t76211 = f18025(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76211; break; case NATIVE_PROCEDURE_TYPE6097: t76212 = f18024(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76212; break; case NATIVE_PROCEDURE_TYPE6102: /* x168280 stalin.sc:24504:848558 */ t76163.tag = NULL_TYPE; break; case NATIVE_PROCEDURE_TYPE6103: /* x168278 stalin.sc:24503:848553 */ t76163.tag = NULL_TYPE; break; case NATIVE_PROCEDURE_TYPE6108: /* x168247 stalin.sc:24495:848317 */ t76163.tag = NULL_TYPE; break; case NATIVE_PROCEDURE_TYPE6109: /* x168245 stalin.sc:24494:848312 */ t76163.tag = NULL_TYPE; break; case NATIVE_PROCEDURE_TYPE6114: /* x168192 stalin.sc:24478:847892 */ /* x168191 stalin.sc:24478:847898 */ /* x168190 stalin.sc:24478:847893 */ a34936 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34936==NULL) {backtrace("stalin.sc", 24478, 847892); out_of_memory_error();} a34936->s0.tag = NATIVE_PROCEDURE_TYPE7423; a34936->s1.tag = NULL_TYPE; /* x271879 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34936; break; case NATIVE_PROCEDURE_TYPE6115: /* x168188 stalin.sc:24477:847867 */ /* x168187 stalin.sc:24477:847873 */ /* x168186 stalin.sc:24477:847868 */ a35018 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35018==NULL) {backtrace("stalin.sc", 24477, 847867); out_of_memory_error();} a35018->s0.tag = NATIVE_PROCEDURE_TYPE7423; a35018->s1.tag = NULL_TYPE; /* x272043 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35018; break; case NATIVE_PROCEDURE_TYPE6120: t76213 = f17989(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76213; break; case NATIVE_PROCEDURE_TYPE6121: /* x168123 stalin.sc:24464:847380 */ /* x168122 stalin.sc:24464:847386 */ /* x168121 stalin.sc:24464:847381 */ a35020 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35020==NULL) {backtrace("stalin.sc", 24464, 847380); out_of_memory_error();} a35020->s0.tag = NATIVE_PROCEDURE_TYPE7421; a35020->s1.tag = NULL_TYPE; /* x272047 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35020; break; case NATIVE_PROCEDURE_TYPE6126: /* x168043 stalin.sc:24444:846803 */ /* x168042 stalin.sc:24444:846809 */ /* x168041 stalin.sc:24444:846804 */ a34938 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34938==NULL) {backtrace("stalin.sc", 24444, 846803); out_of_memory_error();} a34938->s0.tag = NATIVE_PROCEDURE_TYPE7423; a34938->s1.tag = NULL_TYPE; /* x271883 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34938; break; case NATIVE_PROCEDURE_TYPE6127: /* x168039 stalin.sc:24443:846778 */ /* x168038 stalin.sc:24443:846784 */ /* x168037 stalin.sc:24443:846779 */ a35017 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35017==NULL) {backtrace("stalin.sc", 24443, 846778); out_of_memory_error();} a35017->s0.tag = NATIVE_PROCEDURE_TYPE7423; a35017->s1.tag = NULL_TYPE; /* x272041 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35017; break; case NATIVE_PROCEDURE_TYPE6132: /* x167966 stalin.sc:24424:846230 */ /* x167965 stalin.sc:24424:846236 */ /* x167964 stalin.sc:24424:846231 */ a34939 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34939==NULL) {backtrace("stalin.sc", 24424, 846230); out_of_memory_error();} a34939->s0.tag = NATIVE_PROCEDURE_TYPE7423; a34939->s1.tag = NULL_TYPE; /* x271885 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34939; break; case NATIVE_PROCEDURE_TYPE6133: /* x167962 stalin.sc:24423:846205 */ /* x167961 stalin.sc:24423:846211 */ /* x167960 stalin.sc:24423:846206 */ a35022 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35022==NULL) {backtrace("stalin.sc", 24423, 846205); out_of_memory_error();} a35022->s0.tag = NATIVE_PROCEDURE_TYPE7423; a35022->s1.tag = NULL_TYPE; /* x272051 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35022; break; case NATIVE_PROCEDURE_TYPE6138: /* x167889 stalin.sc:24402:845616 */ /* x167888 stalin.sc:24402:845622 */ /* x167887 stalin.sc:24402:845617 */ a34940 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34940==NULL) {backtrace("stalin.sc", 24402, 845616); out_of_memory_error();} a34940->s0.tag = NATIVE_PROCEDURE_TYPE7422; a34940->s1.tag = NULL_TYPE; /* x271887 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34940; break; case NATIVE_PROCEDURE_TYPE6139: /* x167885 stalin.sc:24401:845590 */ /* x167884 stalin.sc:24401:845596 */ /* x167883 stalin.sc:24401:845591 */ a35021 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35021==NULL) {backtrace("stalin.sc", 24401, 845590); out_of_memory_error();} a35021->s0.tag = NATIVE_PROCEDURE_TYPE7422; a35021->s1.tag = NULL_TYPE; /* x272049 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35021; break; case NATIVE_PROCEDURE_TYPE6144: /* x167812 stalin.sc:24380:844997 */ /* x167811 stalin.sc:24380:845003 */ /* x167810 stalin.sc:24380:844998 */ a34941 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34941==NULL) {backtrace("stalin.sc", 24380, 844997); out_of_memory_error();} a34941->s0.tag = NATIVE_PROCEDURE_TYPE7423; a34941->s1.tag = NULL_TYPE; /* x271889 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34941; break; case NATIVE_PROCEDURE_TYPE6145: /* x167808 stalin.sc:24379:844972 */ /* x167807 stalin.sc:24379:844978 */ /* x167806 stalin.sc:24379:844973 */ a35024 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35024==NULL) {backtrace("stalin.sc", 24379, 844972); out_of_memory_error();} a35024->s0.tag = NATIVE_PROCEDURE_TYPE7423; a35024->s1.tag = NULL_TYPE; /* x272055 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35024; break; case NATIVE_PROCEDURE_TYPE6150: /* x167631 stalin.sc:24336:843675 */ /* x167630 stalin.sc:24336:843681 */ /* x167629 stalin.sc:24336:843676 */ a34942 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34942==NULL) {backtrace("stalin.sc", 24336, 843675); out_of_memory_error();} a34942->s0.tag = NATIVE_PROCEDURE_TYPE7822; a34942->s1.tag = NULL_TYPE; /* x271891 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34942; break; case NATIVE_PROCEDURE_TYPE6151: /* x167627 stalin.sc:24335:843654 */ /* x167626 stalin.sc:24335:843660 */ /* x167625 stalin.sc:24335:843655 */ a35023 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35023==NULL) {backtrace("stalin.sc", 24335, 843654); out_of_memory_error();} a35023->s0.tag = NATIVE_PROCEDURE_TYPE7822; a35023->s1.tag = NULL_TYPE; /* x272053 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35023; break; case NATIVE_PROCEDURE_TYPE6156: /* x167450 stalin.sc:24293:842374 */ /* x167449 stalin.sc:24293:842380 */ /* x167448 stalin.sc:24293:842375 */ a34943 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34943==NULL) {backtrace("stalin.sc", 24293, 842374); out_of_memory_error();} a34943->s0.tag = NATIVE_PROCEDURE_TYPE7822; a34943->s1.tag = NULL_TYPE; /* x271893 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34943; break; case NATIVE_PROCEDURE_TYPE6157: /* x167446 stalin.sc:24292:842353 */ /* x167445 stalin.sc:24292:842359 */ /* x167444 stalin.sc:24292:842354 */ a35025 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35025==NULL) {backtrace("stalin.sc", 24292, 842353); out_of_memory_error();} a35025->s0.tag = NATIVE_PROCEDURE_TYPE7822; a35025->s1.tag = NULL_TYPE; /* x272057 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35025; break; case NATIVE_PROCEDURE_TYPE6162: t76214 = f17915(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76214; break; case NATIVE_PROCEDURE_TYPE6163: /* x167381 stalin.sc:24278:841854 */ /* x167380 stalin.sc:24278:841860 */ /* x167379 stalin.sc:24278:841855 */ a35004 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35004==NULL) {backtrace("stalin.sc", 24278, 841854); out_of_memory_error();} a35004->s0.tag = NATIVE_PROCEDURE_TYPE7422; a35004->s1.tag = NULL_TYPE; /* x272015 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35004; break; case NATIVE_PROCEDURE_TYPE6168: t76215 = f17903(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76215; break; case NATIVE_PROCEDURE_TYPE6169: /* x167316 stalin.sc:24265:841378 */ /* x167315 stalin.sc:24265:841384 */ /* x167314 stalin.sc:24265:841379 */ a35032 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35032==NULL) {backtrace("stalin.sc", 24265, 841378); out_of_memory_error();} a35032->s0.tag = NATIVE_PROCEDURE_TYPE7423; a35032->s1.tag = NULL_TYPE; /* x272071 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35032; break; case NATIVE_PROCEDURE_TYPE6174: t76216 = f17844(t76202, t76205); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76216; break; case NATIVE_PROCEDURE_TYPE6175: t76217 = f17843(t76202, t76205); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76217; break; case NATIVE_PROCEDURE_TYPE6180: t76218 = f17827(t76204); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76218; break; case NATIVE_PROCEDURE_TYPE6181: t76219 = f17825(t76204); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76219; break; case NATIVE_PROCEDURE_TYPE6186: t76220 = f17810(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76220; break; case NATIVE_PROCEDURE_TYPE6187: /* x166221 stalin.sc:24020:833201 */ /* x166220 stalin.sc:24020:833207 */ /* x166219 stalin.sc:24020:833202 */ a35028 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35028==NULL) {backtrace("stalin.sc", 24020, 833201); out_of_memory_error();} a35028->s0.tag = NATIVE_PROCEDURE_TYPE7415; a35028->s1.tag = NULL_TYPE; /* x272063 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35028; break; case NATIVE_PROCEDURE_TYPE6192: t76221 = f17790(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76221; break; case NATIVE_PROCEDURE_TYPE6193: t76222 = f17789(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76222; break; case NATIVE_PROCEDURE_TYPE6198: t76223 = f17764(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76223; break; case NATIVE_PROCEDURE_TYPE6199: t76224 = f17763(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76224; break; case NATIVE_PROCEDURE_TYPE6204: /* x165753 stalin.sc:23882:829631 */ /* x165752 stalin.sc:23882:829637 */ /* x165751 stalin.sc:23882:829632 */ a34953 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34953==NULL) {backtrace("stalin.sc", 23882, 829631); out_of_memory_error();} a34953->s0.tag = NATIVE_PROCEDURE_TYPE7406; a34953->s1.tag = NULL_TYPE; /* x271913 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34953; break; case NATIVE_PROCEDURE_TYPE6205: /* x165749 stalin.sc:23881:829610 */ /* x165748 stalin.sc:23881:829616 */ /* x165747 stalin.sc:23881:829611 */ a35036 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35036==NULL) {backtrace("stalin.sc", 23881, 829610); out_of_memory_error();} a35036->s0.tag = NATIVE_PROCEDURE_TYPE7406; a35036->s1.tag = NULL_TYPE; /* x272079 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35036; break; case NATIVE_PROCEDURE_TYPE6210: t76163 = f17722(t76204); break; case NATIVE_PROCEDURE_TYPE6211: t76163 = f17720(t76204); break; case NATIVE_PROCEDURE_TYPE6216: t76225 = f17697(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76225; break; case NATIVE_PROCEDURE_TYPE6217: t76226 = f17696(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76226; break; case NATIVE_PROCEDURE_TYPE6222: t76227 = f17656(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76227; break; case NATIVE_PROCEDURE_TYPE6223: t76228 = f17655(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76228; break; case NATIVE_PROCEDURE_TYPE6228: t76229 = f17644(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76229; break; case NATIVE_PROCEDURE_TYPE6229: /* x164824 stalin.sc:23632:822404 */ /* x164823 stalin.sc:23632:822410 */ /* x164822 stalin.sc:23632:822405 */ a35039 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35039==NULL) {backtrace("stalin.sc", 23632, 822404); out_of_memory_error();} a35039->s0.tag = NATIVE_PROCEDURE_TYPE7406; a35039->s1.tag = NULL_TYPE; /* x272085 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35039; break; case NATIVE_PROCEDURE_TYPE6234: t76230 = f17631(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76230; break; case NATIVE_PROCEDURE_TYPE6235: t76231 = f17630(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76231; break; case NATIVE_PROCEDURE_TYPE6240: t76232 = f17616(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76232; break; case NATIVE_PROCEDURE_TYPE6241: t76233 = f17615(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76233; break; case NATIVE_PROCEDURE_TYPE6246: /* x164492 stalin.sc:23533:819931 */ /* x164491 stalin.sc:23533:819937 */ /* x164490 stalin.sc:23533:819932 */ a34959 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34959==NULL) {backtrace("stalin.sc", 23533, 819931); out_of_memory_error();} a34959->s0.tag = NATIVE_PROCEDURE_TYPE7822; a34959->s1.tag = NULL_TYPE; /* x271925 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34959; break; case NATIVE_PROCEDURE_TYPE6247: /* x164488 stalin.sc:23532:819910 */ /* x164487 stalin.sc:23532:819916 */ /* x164486 stalin.sc:23532:819911 */ a35042 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35042==NULL) {backtrace("stalin.sc", 23532, 819910); out_of_memory_error();} a35042->s0.tag = NATIVE_PROCEDURE_TYPE7822; a35042->s1.tag = NULL_TYPE; /* x272091 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35042; break; case NATIVE_PROCEDURE_TYPE6252: t76163 = f17583(t76204); break; case NATIVE_PROCEDURE_TYPE6253: t76163 = f17581(t76204); break; case NATIVE_PROCEDURE_TYPE6258: t76234 = f17549(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76234; break; case NATIVE_PROCEDURE_TYPE6259: t76235 = f17548(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76235; break; case NATIVE_PROCEDURE_TYPE6264: t76236 = f17537(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76236; break; case NATIVE_PROCEDURE_TYPE6265: /* x163843 stalin.sc:23367:815132 */ /* x163842 stalin.sc:23367:815138 */ /* x163841 stalin.sc:23367:815133 */ a35044 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35044==NULL) {backtrace("stalin.sc", 23367, 815132); out_of_memory_error();} a35044->s0.tag = NATIVE_PROCEDURE_TYPE7822; a35044->s1.tag = NULL_TYPE; /* x272095 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35044; break; case NATIVE_PROCEDURE_TYPE6270: /* x163757 stalin.sc:23344:814532 */ /* x163756 stalin.sc:23344:814538 */ /* x163755 stalin.sc:23344:814533 */ a34962 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34962==NULL) {backtrace("stalin.sc", 23344, 814532); out_of_memory_error();} a34962->s0.tag = NATIVE_PROCEDURE_TYPE7430; a34962->s1.tag = NULL_TYPE; /* x271931 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34962; break; case NATIVE_PROCEDURE_TYPE6271: /* x163753 stalin.sc:23343:814511 */ /* x163752 stalin.sc:23343:814517 */ /* x163751 stalin.sc:23343:814512 */ a35040 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35040==NULL) {backtrace("stalin.sc", 23343, 814511); out_of_memory_error();} a35040->s0.tag = NATIVE_PROCEDURE_TYPE7430; a35040->s1.tag = NULL_TYPE; /* x272087 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35040; break; case NATIVE_PROCEDURE_TYPE6276: /* x163699 stalin.sc:23327:814100 */ /* x163698 stalin.sc:23327:814106 */ /* x163697 stalin.sc:23327:814101 */ a34963 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34963==NULL) {backtrace("stalin.sc", 23327, 814100); out_of_memory_error();} a34963->s0.tag = NATIVE_PROCEDURE_TYPE7431; a34963->s1.tag = NULL_TYPE; /* x271933 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34963; break; case NATIVE_PROCEDURE_TYPE6277: /* x163695 stalin.sc:23326:814081 */ /* x163694 stalin.sc:23326:814087 */ /* x163693 stalin.sc:23326:814082 */ a35046 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35046==NULL) {backtrace("stalin.sc", 23326, 814081); out_of_memory_error();} a35046->s0.tag = NATIVE_PROCEDURE_TYPE7431; a35046->s1.tag = NULL_TYPE; /* x272099 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35046; break; case NATIVE_PROCEDURE_TYPE6282: t76237 = f17507(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76237; break; case NATIVE_PROCEDURE_TYPE6283: /* x163630 stalin.sc:23313:813635 */ /* x163629 stalin.sc:23313:813641 */ /* x163628 stalin.sc:23313:813636 */ a35045 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35045==NULL) {backtrace("stalin.sc", 23313, 813635); out_of_memory_error();} a35045->s0.tag = NATIVE_PROCEDURE_TYPE7431; a35045->s1.tag = NULL_TYPE; /* x272097 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35045; break; case NATIVE_PROCEDURE_TYPE6288: /* x163513 stalin.sc:23288:812923 */ /* x163512 stalin.sc:23288:812929 */ /* x163511 stalin.sc:23288:812924 */ a34965 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34965==NULL) {backtrace("stalin.sc", 23288, 812923); out_of_memory_error();} a34965->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34965->s1.tag = NULL_TYPE; /* x271937 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34965; break; case NATIVE_PROCEDURE_TYPE6289: /* x163509 stalin.sc:23287:812902 */ /* x163508 stalin.sc:23287:812908 */ /* x163507 stalin.sc:23287:812903 */ a35047 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35047==NULL) {backtrace("stalin.sc", 23287, 812902); out_of_memory_error();} a35047->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35047->s1.tag = NULL_TYPE; /* x272101 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35047; break; case NATIVE_PROCEDURE_TYPE6294: /* x163394 stalin.sc:23263:812181 */ /* x163393 stalin.sc:23263:812187 */ /* x163392 stalin.sc:23263:812182 */ a34966 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34966==NULL) {backtrace("stalin.sc", 23263, 812181); out_of_memory_error();} a34966->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34966->s1.tag = NULL_TYPE; /* x271939 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34966; break; case NATIVE_PROCEDURE_TYPE6295: /* x163390 stalin.sc:23262:812160 */ /* x163389 stalin.sc:23262:812166 */ /* x163388 stalin.sc:23262:812161 */ a35026 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35026==NULL) {backtrace("stalin.sc", 23262, 812160); out_of_memory_error();} a35026->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35026->s1.tag = NULL_TYPE; /* x272059 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35026; break; case NATIVE_PROCEDURE_TYPE6300: t76238 = f17455(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76238; break; case NATIVE_PROCEDURE_TYPE6301: t76239 = f17454(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76239; break; case NATIVE_PROCEDURE_TYPE6306: /* x163120 stalin.sc:23181:808870 */ /* x163119 stalin.sc:23181:808876 */ /* x163118 stalin.sc:23181:808871 */ a34968 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34968==NULL) {backtrace("stalin.sc", 23181, 808870); out_of_memory_error();} a34968->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34968->s1.tag = NULL_TYPE; /* x271943 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34968; break; case NATIVE_PROCEDURE_TYPE6307: /* x163116 stalin.sc:23180:808849 */ /* x163115 stalin.sc:23180:808855 */ /* x163114 stalin.sc:23180:808850 */ a35051 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35051==NULL) {backtrace("stalin.sc", 23180, 808849); out_of_memory_error();} a35051->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35051->s1.tag = NULL_TYPE; /* x272109 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35051; break; case NATIVE_PROCEDURE_TYPE6312: t76240 = f17420(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76240; break; case NATIVE_PROCEDURE_TYPE6313: t76241 = f17419(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76241; break; case NATIVE_PROCEDURE_TYPE6318: /* x162872 stalin.sc:23093:805833 */ /* x162871 stalin.sc:23093:805839 */ /* x162870 stalin.sc:23093:805834 */ a34970 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34970==NULL) {backtrace("stalin.sc", 23093, 805833); out_of_memory_error();} a34970->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34970->s1.tag = NULL_TYPE; /* x271947 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34970; break; case NATIVE_PROCEDURE_TYPE6319: /* x162868 stalin.sc:23092:805812 */ /* x162867 stalin.sc:23092:805818 */ /* x162866 stalin.sc:23092:805813 */ a35053 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35053==NULL) {backtrace("stalin.sc", 23092, 805812); out_of_memory_error();} a35053->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35053->s1.tag = NULL_TYPE; /* x272113 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35053; break; case NATIVE_PROCEDURE_TYPE6324: /* x162796 stalin.sc:23058:804284 */ /* x162795 stalin.sc:23058:804290 */ /* x162794 stalin.sc:23058:804285 */ a34971 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34971==NULL) {backtrace("stalin.sc", 23058, 804284); out_of_memory_error();} a34971->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34971->s1.tag = NULL_TYPE; /* x271949 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34971; break; case NATIVE_PROCEDURE_TYPE6325: /* x162792 stalin.sc:23057:804263 */ /* x162791 stalin.sc:23057:804269 */ /* x162790 stalin.sc:23057:804264 */ a35055 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35055==NULL) {backtrace("stalin.sc", 23057, 804263); out_of_memory_error();} a35055->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35055->s1.tag = NULL_TYPE; /* x272117 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35055; break; case NATIVE_PROCEDURE_TYPE6330: /* x162720 stalin.sc:23023:802730 */ /* x162719 stalin.sc:23023:802736 */ /* x162718 stalin.sc:23023:802731 */ a34972 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34972==NULL) {backtrace("stalin.sc", 23023, 802730); out_of_memory_error();} a34972->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34972->s1.tag = NULL_TYPE; /* x271951 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34972; break; case NATIVE_PROCEDURE_TYPE6331: /* x162716 stalin.sc:23022:802709 */ /* x162715 stalin.sc:23022:802715 */ /* x162714 stalin.sc:23022:802710 */ a35050 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35050==NULL) {backtrace("stalin.sc", 23022, 802709); out_of_memory_error();} a35050->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35050->s1.tag = NULL_TYPE; /* x272107 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35050; break; case NATIVE_PROCEDURE_TYPE6336: /* x162644 stalin.sc:23001:802114 */ /* x162643 stalin.sc:23001:802120 */ /* x162642 stalin.sc:23001:802115 */ a34973 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34973==NULL) {backtrace("stalin.sc", 23001, 802114); out_of_memory_error();} a34973->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34973->s1.tag = NULL_TYPE; /* x271953 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34973; break; case NATIVE_PROCEDURE_TYPE6337: /* x162640 stalin.sc:23000:802093 */ /* x162639 stalin.sc:23000:802099 */ /* x162638 stalin.sc:23000:802094 */ a35057 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35057==NULL) {backtrace("stalin.sc", 23000, 802093); out_of_memory_error();} a35057->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35057->s1.tag = NULL_TYPE; /* x272121 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35057; break; case NATIVE_PROCEDURE_TYPE6342: /* x162568 stalin.sc:22979:801498 */ /* x162567 stalin.sc:22979:801504 */ /* x162566 stalin.sc:22979:801499 */ a34974 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34974==NULL) {backtrace("stalin.sc", 22979, 801498); out_of_memory_error();} a34974->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34974->s1.tag = NULL_TYPE; /* x271955 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34974; break; case NATIVE_PROCEDURE_TYPE6343: /* x162564 stalin.sc:22978:801477 */ /* x162563 stalin.sc:22978:801483 */ /* x162562 stalin.sc:22978:801478 */ a35056 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35056==NULL) {backtrace("stalin.sc", 22978, 801477); out_of_memory_error();} a35056->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35056->s1.tag = NULL_TYPE; /* x272119 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35056; break; case NATIVE_PROCEDURE_TYPE6348: /* x162492 stalin.sc:22957:800882 */ /* x162491 stalin.sc:22957:800888 */ /* x162490 stalin.sc:22957:800883 */ a34975 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34975==NULL) {backtrace("stalin.sc", 22957, 800882); out_of_memory_error();} a34975->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34975->s1.tag = NULL_TYPE; /* x271957 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34975; break; case NATIVE_PROCEDURE_TYPE6349: /* x162488 stalin.sc:22956:800861 */ /* x162487 stalin.sc:22956:800867 */ /* x162486 stalin.sc:22956:800862 */ a35058 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35058==NULL) {backtrace("stalin.sc", 22956, 800861); out_of_memory_error();} a35058->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35058->s1.tag = NULL_TYPE; /* x272123 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35058; break; case NATIVE_PROCEDURE_TYPE6354: /* x162416 stalin.sc:22922:799319 */ /* x162415 stalin.sc:22922:799325 */ /* x162414 stalin.sc:22922:799320 */ a34976 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34976==NULL) {backtrace("stalin.sc", 22922, 799319); out_of_memory_error();} a34976->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34976->s1.tag = NULL_TYPE; /* x271959 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34976; break; case NATIVE_PROCEDURE_TYPE6355: /* x162412 stalin.sc:22921:799298 */ /* x162411 stalin.sc:22921:799304 */ /* x162410 stalin.sc:22921:799299 */ a35049 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35049==NULL) {backtrace("stalin.sc", 22921, 799298); out_of_memory_error();} a35049->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35049->s1.tag = NULL_TYPE; /* x272105 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35049; break; case NATIVE_PROCEDURE_TYPE6360: /* x162259 stalin.sc:22890:798365 */ /* x162258 stalin.sc:22890:798371 */ /* x162257 stalin.sc:22890:798366 */ a34977 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34977==NULL) {backtrace("stalin.sc", 22890, 798365); out_of_memory_error();} a34977->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34977->s1.tag = NULL_TYPE; /* x271961 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34977; break; case NATIVE_PROCEDURE_TYPE6361: /* x162255 stalin.sc:22889:798344 */ /* x162254 stalin.sc:22889:798350 */ /* x162253 stalin.sc:22889:798345 */ a35061 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35061==NULL) {backtrace("stalin.sc", 22889, 798344); out_of_memory_error();} a35061->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35061->s1.tag = NULL_TYPE; /* x272129 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35061; break; case NATIVE_PROCEDURE_TYPE6366: /* x162066 stalin.sc:22850:797206 */ /* x162065 stalin.sc:22850:797212 */ /* x162064 stalin.sc:22850:797207 */ a34978 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34978==NULL) {backtrace("stalin.sc", 22850, 797206); out_of_memory_error();} a34978->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34978->s1.tag = NULL_TYPE; /* x271963 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34978; break; case NATIVE_PROCEDURE_TYPE6367: /* x162062 stalin.sc:22849:797185 */ /* x162061 stalin.sc:22849:797191 */ /* x162060 stalin.sc:22849:797186 */ a35060 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35060==NULL) {backtrace("stalin.sc", 22849, 797185); out_of_memory_error();} a35060->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35060->s1.tag = NULL_TYPE; /* x272127 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35060; break; case NATIVE_PROCEDURE_TYPE6372: /* x161909 stalin.sc:22818:796243 */ /* x161908 stalin.sc:22818:796249 */ /* x161907 stalin.sc:22818:796244 */ a34979 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34979==NULL) {backtrace("stalin.sc", 22818, 796243); out_of_memory_error();} a34979->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34979->s1.tag = NULL_TYPE; /* x271965 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34979; break; case NATIVE_PROCEDURE_TYPE6373: /* x161905 stalin.sc:22817:796222 */ /* x161904 stalin.sc:22817:796228 */ /* x161903 stalin.sc:22817:796223 */ a35062 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35062==NULL) {backtrace("stalin.sc", 22817, 796222); out_of_memory_error();} a35062->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35062->s1.tag = NULL_TYPE; /* x272131 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35062; break; case NATIVE_PROCEDURE_TYPE6378: /* x161752 stalin.sc:22785:795292 */ /* x161751 stalin.sc:22785:795298 */ /* x161750 stalin.sc:22785:795293 */ a34980 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34980==NULL) {backtrace("stalin.sc", 22785, 795292); out_of_memory_error();} a34980->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34980->s1.tag = NULL_TYPE; /* x271967 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34980; break; case NATIVE_PROCEDURE_TYPE6379: /* x161748 stalin.sc:22784:795271 */ /* x161747 stalin.sc:22784:795277 */ /* x161746 stalin.sc:22784:795272 */ a35059 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35059==NULL) {backtrace("stalin.sc", 22784, 795271); out_of_memory_error();} a35059->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35059->s1.tag = NULL_TYPE; /* x272125 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35059; break; case NATIVE_PROCEDURE_TYPE6384: t76163 = f17245(t76204); break; case NATIVE_PROCEDURE_TYPE6385: t76163 = f17243(t76204); break; case NATIVE_PROCEDURE_TYPE6390: t76163 = f17229(t76204); break; case NATIVE_PROCEDURE_TYPE6391: t76163 = f17227(t76204); break; case NATIVE_PROCEDURE_TYPE6396: t76163 = f17213(t76204); break; case NATIVE_PROCEDURE_TYPE6397: t76163 = f17211(t76204); break; case NATIVE_PROCEDURE_TYPE6402: /* x161409 stalin.sc:22698:792350 */ /* x161408 stalin.sc:22698:792356 */ /* x161407 stalin.sc:22698:792351 */ a34981 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34981==NULL) {backtrace("stalin.sc", 22698, 792350); out_of_memory_error();} a34981->s0.tag = NATIVE_PROCEDURE_TYPE7430; a34981->s1.tag = NULL_TYPE; /* x271969 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34981; break; case NATIVE_PROCEDURE_TYPE6403: /* x161405 stalin.sc:22697:792329 */ /* x161404 stalin.sc:22697:792335 */ /* x161403 stalin.sc:22697:792330 */ a35063 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35063==NULL) {backtrace("stalin.sc", 22697, 792329); out_of_memory_error();} a35063->s0.tag = NATIVE_PROCEDURE_TYPE7430; a35063->s1.tag = NULL_TYPE; /* x272133 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35063; break; case NATIVE_PROCEDURE_TYPE6408: t76242 = f17170(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76242; break; case NATIVE_PROCEDURE_TYPE6409: t76243 = f17169(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76243; break; case NATIVE_PROCEDURE_TYPE6414: t76244 = f17137(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76244; break; case NATIVE_PROCEDURE_TYPE6415: t76245 = f17136(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76245; break; case NATIVE_PROCEDURE_TYPE6420: t76246 = f17104(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76246; break; case NATIVE_PROCEDURE_TYPE6421: t76247 = f17103(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76247; break; case NATIVE_PROCEDURE_TYPE6426: t76248 = f17071(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76248; break; case NATIVE_PROCEDURE_TYPE6427: t76249 = f17070(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76249; break; case NATIVE_PROCEDURE_TYPE6432: t76163 = f17043(t76204); break; case NATIVE_PROCEDURE_TYPE6433: t76163 = f17041(t76204); break; case NATIVE_PROCEDURE_TYPE6438: t76163 = f17000(t76204); break; case NATIVE_PROCEDURE_TYPE6439: t76163 = f16998(t76204); break; case NATIVE_PROCEDURE_TYPE6444: t76163 = f16959(t76204); break; case NATIVE_PROCEDURE_TYPE6445: t76163 = f16957(t76204); break; case NATIVE_PROCEDURE_TYPE6450: t76163 = f16918(t76204); break; case NATIVE_PROCEDURE_TYPE6451: t76163 = f16916(t76204); break; case NATIVE_PROCEDURE_TYPE6456: t76163 = f16890(t76204); break; case NATIVE_PROCEDURE_TYPE6457: t76163 = f16888(t76204); break; case NATIVE_PROCEDURE_TYPE6462: t76163 = f16862(t76204); break; case NATIVE_PROCEDURE_TYPE6463: t76163 = f16860(t76204); break; case NATIVE_PROCEDURE_TYPE6468: /* x158283 stalin.sc:22066:771787 */ /* x158282 stalin.sc:22066:771793 */ /* x158281 stalin.sc:22066:771788 */ a34986 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34986==NULL) {backtrace("stalin.sc", 22066, 771787); out_of_memory_error();} a34986->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34986->s1.tag = NULL_TYPE; /* x271979 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34986; break; case NATIVE_PROCEDURE_TYPE6469: /* x158279 stalin.sc:22065:771766 */ /* x158278 stalin.sc:22065:771772 */ /* x158277 stalin.sc:22065:771767 */ a35068 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35068==NULL) {backtrace("stalin.sc", 22065, 771766); out_of_memory_error();} a35068->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35068->s1.tag = NULL_TYPE; /* x272143 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35068; break; case NATIVE_PROCEDURE_TYPE6474: /* x158154 stalin.sc:22038:770986 */ /* x158153 stalin.sc:22038:770992 */ /* x158152 stalin.sc:22038:770987 */ a34987 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34987==NULL) {backtrace("stalin.sc", 22038, 770986); out_of_memory_error();} a34987->s0.tag = NATIVE_PROCEDURE_TYPE7426; a34987->s1.tag = NULL_TYPE; /* x271981 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34987; break; case NATIVE_PROCEDURE_TYPE6475: /* x158150 stalin.sc:22037:770965 */ /* x158149 stalin.sc:22037:770971 */ /* x158148 stalin.sc:22037:770966 */ a35065 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35065==NULL) {backtrace("stalin.sc", 22037, 770965); out_of_memory_error();} a35065->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35065->s1.tag = NULL_TYPE; /* x272137 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35065; break; case NATIVE_PROCEDURE_TYPE6480: t76250 = f16805(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76250; break; case NATIVE_PROCEDURE_TYPE6481: t76251 = f16799(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76251; break; case NATIVE_PROCEDURE_TYPE6486: t76163 = f16785(t76204); break; case NATIVE_PROCEDURE_TYPE6487: t76163 = f16783(t76204); break; case NATIVE_PROCEDURE_TYPE6492: t76163 = f16774(t76204); break; case NATIVE_PROCEDURE_TYPE6493: t76163 = f16772(t76204); break; case NATIVE_PROCEDURE_TYPE6498: t76163 = f16763(t76204); break; case NATIVE_PROCEDURE_TYPE6499: t76163 = f16761(t76204); break; case NATIVE_PROCEDURE_TYPE6504: t76163 = f16752(t76204); break; case NATIVE_PROCEDURE_TYPE6505: t76163 = f16750(t76204); break; case NATIVE_PROCEDURE_TYPE6510: t76163 = f16741(t76204); break; case NATIVE_PROCEDURE_TYPE6511: t76163 = f16739(t76204); break; case NATIVE_PROCEDURE_TYPE6516: /* x157455 stalin.sc:21909:766906 */ /* x157454 stalin.sc:21909:766912 */ /* x157453 stalin.sc:21909:766907 */ a34989 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34989==NULL) {backtrace("stalin.sc", 21909, 766906); out_of_memory_error();} a34989->s0.tag = NATIVE_PROCEDURE_TYPE7430; a34989->s1.tag = NULL_TYPE; /* x271985 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34989; break; case NATIVE_PROCEDURE_TYPE6517: t76252 = f16723(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76252; break; case NATIVE_PROCEDURE_TYPE6522: t76253 = f16708(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76253; break; case NATIVE_PROCEDURE_TYPE6523: /* x157348 stalin.sc:21890:766258 */ /* x157347 stalin.sc:21890:766264 */ /* x157346 stalin.sc:21890:766259 */ a35070 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35070==NULL) {backtrace("stalin.sc", 21890, 766258); out_of_memory_error();} a35070->s0.tag = NATIVE_PROCEDURE_TYPE7430; a35070->s1.tag = NULL_TYPE; /* x272147 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35070; break; case NATIVE_PROCEDURE_TYPE6528: t76254 = f16685(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76254; break; case NATIVE_PROCEDURE_TYPE6529: /* x157170 stalin.sc:21860:765294 */ /* x157169 stalin.sc:21860:765300 */ /* x157168 stalin.sc:21860:765295 */ a35074 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35074==NULL) {backtrace("stalin.sc", 21860, 765294); out_of_memory_error();} a35074->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35074->s1.tag = NULL_TYPE; /* x272155 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35074; break; case NATIVE_PROCEDURE_TYPE6534: t76255 = f16663(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76255; break; case NATIVE_PROCEDURE_TYPE6535: /* x157028 stalin.sc:21833:764403 */ /* x157027 stalin.sc:21833:764409 */ /* x157026 stalin.sc:21833:764404 */ a35073 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35073==NULL) {backtrace("stalin.sc", 21833, 764403); out_of_memory_error();} a35073->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35073->s1.tag = NULL_TYPE; /* x272153 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35073; break; case NATIVE_PROCEDURE_TYPE6540: t76256 = f16651(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76256; break; case NATIVE_PROCEDURE_TYPE6541: /* x156963 stalin.sc:21820:763958 */ /* x156962 stalin.sc:21820:763964 */ /* x156961 stalin.sc:21820:763959 */ a35075 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35075==NULL) {backtrace("stalin.sc", 21820, 763958); out_of_memory_error();} a35075->s0.tag = NATIVE_PROCEDURE_TYPE7426; a35075->s1.tag = NULL_TYPE; /* x272157 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35075; break; case NATIVE_PROCEDURE_TYPE6546: /* x156888 stalin.sc:21796:763395 */ /* x156887 stalin.sc:21796:763401 */ /* x156886 stalin.sc:21796:763396 */ a34994 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34994==NULL) {backtrace("stalin.sc", 21796, 763395); out_of_memory_error();} a34994->s0.tag = NATIVE_PROCEDURE_TYPE7822; a34994->s1.tag = NULL_TYPE; /* x271995 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34994; break; case NATIVE_PROCEDURE_TYPE6547: /* x156884 stalin.sc:21795:763374 */ /* x156883 stalin.sc:21795:763380 */ /* x156882 stalin.sc:21795:763375 */ a35069 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35069==NULL) {backtrace("stalin.sc", 21795, 763374); out_of_memory_error();} a35069->s0.tag = NATIVE_PROCEDURE_TYPE7822; a35069->s1.tag = NULL_TYPE; /* x272145 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35069; break; case NATIVE_PROCEDURE_TYPE6552: /* x156802 stalin.sc:21772:762737 */ /* x156801 stalin.sc:21772:762743 */ /* x156800 stalin.sc:21772:762738 */ a34995 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34995==NULL) {backtrace("stalin.sc", 21772, 762737); out_of_memory_error();} a34995->s0.tag = NATIVE_PROCEDURE_TYPE7418; a34995->s1.tag = NULL_TYPE; /* x271997 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a34995; break; case NATIVE_PROCEDURE_TYPE6553: /* x156798 stalin.sc:21771:762716 */ /* x156797 stalin.sc:21771:762722 */ /* x156796 stalin.sc:21771:762717 */ a35078 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35078==NULL) {backtrace("stalin.sc", 21771, 762716); out_of_memory_error();} a35078->s0.tag = NATIVE_PROCEDURE_TYPE7418; a35078->s1.tag = NULL_TYPE; /* x272163 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35078; break; case NATIVE_PROCEDURE_TYPE6558: t76257 = f16613(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76257; break; case NATIVE_PROCEDURE_TYPE6559: /* x156733 stalin.sc:21758:762255 */ /* x156732 stalin.sc:21758:762261 */ /* x156731 stalin.sc:21758:762256 */ a35077 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35077==NULL) {backtrace("stalin.sc", 21758, 762255); out_of_memory_error();} a35077->s0.tag = NATIVE_PROCEDURE_TYPE7418; a35077->s1.tag = NULL_TYPE; /* x272161 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35077; break; case NATIVE_PROCEDURE_TYPE6564: t76258 = f16601(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76258; break; case NATIVE_PROCEDURE_TYPE6565: /* x156668 stalin.sc:21745:761820 */ /* x156667 stalin.sc:21745:761826 */ /* x156666 stalin.sc:21745:761821 */ a35079 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35079==NULL) {backtrace("stalin.sc", 21745, 761820); out_of_memory_error();} a35079->s0.tag = NATIVE_PROCEDURE_TYPE7435; a35079->s1.tag = NULL_TYPE; /* x272165 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35079; break; case NATIVE_PROCEDURE_TYPE6570: t76259 = f16460(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76259; break; case NATIVE_PROCEDURE_TYPE6571: t76260 = f16459(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76260; break; case NATIVE_PROCEDURE_TYPE6576: t76261 = f16448(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76261; break; case NATIVE_PROCEDURE_TYPE6577: /* x154520 stalin.sc:21247:742470 */ /* x154519 stalin.sc:21247:742476 */ /* x154518 stalin.sc:21247:742471 */ a35081 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35081==NULL) {backtrace("stalin.sc", 21247, 742470); out_of_memory_error();} a35081->s0.tag = NATIVE_PROCEDURE_TYPE7432; a35081->s1.tag = NULL_TYPE; /* x272169 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35081; break; case NATIVE_PROCEDURE_TYPE6582: t76262 = f16436(); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76262; break; case NATIVE_PROCEDURE_TYPE6583: /* x154455 stalin.sc:21234:742028 */ /* x154454 stalin.sc:21234:742034 */ /* x154453 stalin.sc:21234:742029 */ a35080 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35080==NULL) {backtrace("stalin.sc", 21234, 742028); out_of_memory_error();} a35080->s0.tag = NATIVE_PROCEDURE_TYPE7433; a35080->s1.tag = NULL_TYPE; /* x272167 */ t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = a35080; break; case NATIVE_PROCEDURE_TYPE6588: t76263 = f16420(t76203); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76263; break; case NATIVE_PROCEDURE_TYPE6589: t76264 = f16419(t76203); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76264; break; case NATIVE_PROCEDURE_TYPE6594: t76265 = f16404(t76203); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76265; break; case NATIVE_PROCEDURE_TYPE6595: t76266 = f16403(t76203); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76266; break; case NATIVE_PROCEDURE_TYPE6600: t76163 = f16375(t76204); break; case NATIVE_PROCEDURE_TYPE6601: t76163 = f16373(t76204); break; case NATIVE_PROCEDURE_TYPE6606: t76267 = f16362(t76203); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76267; break; default: t76268 = f16361(t76203); t76163.tag = STRUCTURE_TYPE24753; t76163.value.structure_type24753 = t76268;} /* x97627 */ /* x97626 */ /* x97625 */ /* x97624 */ t76197 = p10737->p10716; p10738 = t76197; /* x97623 */ /* x97622 */ /* x97621 */ /* x97574 */ t76198 = p10738; p10739 = t76198; /* x97573 stalin.sc:9162:314067 */ t76160 = p10739; p10740 = t76160; a23495 = t76161; a23496 = *((struct w49 *)(&t76162)); a23497 = *((struct w49 *)(&t76163)); h10740: /* x97620 stalin.sc:9177:314540 */ /* x97577 stalin.sc:9177:314544 */ /* x97576 stalin.sc:9177:314551 */ t76164 = a23496; /* x269695 stalin.sc:9177:314545 */ if (!((t76164.tag)==NULL_TYPE)) goto l13714; /* x97585 stalin.sc:9178:314559 */ /* x97579 stalin.sc:9178:314585 */ t76191 = a23495; /* x97580 stalin.sc:9178:314588 */ t76192 = p10740->a23479; /* x97583 stalin.sc:9178:314590 */ /* x97582 stalin.sc:9178:314609 */ t76195 = p10740->a23480; /* x97581 stalin.sc:9178:314591 */ a39725 = t76195; /* x291569 */ /* x291568 */ t76196 = a39725; /* x291567 */ if (!((t76196.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34642]"); structure_ref_error();} t76193 = t76196.value.structure_type27698->s11; /* x97584 stalin.sc:9178:314612 */ t76194 = p10740->a23481; /* x97578 stalin.sc:9178:314560 */ b23499 = t76191; b23500 = t76192; b23501 = t76193; b23502 = t76194; f10746(); goto l13715; l13714: /* x97619 stalin.sc:9179:314619 */ /* x97612 stalin.sc:9179:314625 */ /* x97604 stalin.sc:9179:314629 */ /* x97594 stalin.sc:9179:314634 */ /* x97592 stalin.sc:9179:314639 */ /* x97591 stalin.sc:9179:314656 */ /* x97590 stalin.sc:9179:314663 */ t76173 = *((struct w16638 *)(&a23496)); /* x97589 stalin.sc:9179:314657 */ a35657 = t76173; /* x273985 */ /* x273984 */ t76174 = a35657; /* x273983 */ if (!((t76174.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29806]"); structure_ref_error();} t76171 = t76174.value.structure_type24753->s0; /* x97588 stalin.sc:9179:314640 */ a40271 = t76171; /* x293753 */ /* x293752 */ t76172 = a40271; /* x293751 */ if (!((t76172.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35188]"); structure_ref_error();} t76169 = t76172.value.structure_type27698->s0; /* x97593 stalin.sc:9179:314668 */ t76170 = q38; /* x269694 stalin.sc:9179:314635 */ if (!(t76169==t76170)) goto l13717; /* x97602 */ /* x97600 stalin.sc:9180:314687 */ /* x97599 stalin.sc:9180:314708 */ /* x97598 stalin.sc:9180:314715 */ t76179 = *((struct w16638 *)(&a23496)); /* x97597 stalin.sc:9180:314709 */ a35656 = t76179; /* x273981 */ /* x273980 */ t76180 = a35656; /* x273979 */ if (!((t76180.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29805]"); structure_ref_error();} t76177 = t76180.value.structure_type24753->s0; /* x97596 stalin.sc:9180:314688 */ a39098 = t76177; /* x289061 */ /* x289060 */ t76178 = a39098; /* x289059 */ if (!((t76178.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34015]"); structure_ref_error();} t76175 = t76178.value.structure_type27698->s16; /* x97601 stalin.sc:9180:314720 */ t76176 = p10740->a23481; /* x269693 stalin.sc:9180:314683 */ /* EQ: dispatching general to general */ if (!((t76175.tag)==(t76176.tag))) goto l13717; switch (t76175.tag) {case FIXNUM_TYPE: if (!((t76175.value.fixnum_type)==(t76176.value.fixnum_type))) goto l13717; break; case FLONUM_TYPE: if (!((t76175.value.flonum_type)==(t76176.value.flonum_type))) goto l13717; break; case INPUT_PORT_TYPE: if (!((t76175.value.input_port_type)==(t76176.value.input_port_type))) goto l13717; break; case OUTPUT_PORT_TYPE: if (!((t76175.value.output_port_type)==(t76176.value.output_port_type))) goto l13717; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t76175.value.native_procedure_type15963)==(t76176.value.native_procedure_type15963))) goto l13717; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t76175.value.native_procedure_type19067)==(t76176.value.native_procedure_type19067))) goto l13717; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t76175.value.native_procedure_type19068)==(t76176.value.native_procedure_type19068))) goto l13717; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t76175.value.native_procedure_type22459)==(t76176.value.native_procedure_type22459))) goto l13717; break; case STRUCTURE_TYPE24753: if (!((t76175.value.structure_type24753)==(t76176.value.structure_type24753))) goto l13717; break; case STRUCTURE_TYPE24757: if (!((t76175.value.structure_type24757)==(t76176.value.structure_type24757))) goto l13717; break; case STRUCTURE_TYPE27501: if (!((t76175.value.structure_type27501)==(t76176.value.structure_type27501))) goto l13717; break; case STRUCTURE_TYPE27510: if (!((t76175.value.structure_type27510)==(t76176.value.structure_type27510))) goto l13717; break; case STRUCTURE_TYPE27621: if (!((t76175.value.structure_type27621)==(t76176.value.structure_type27621))) goto l13717; break; case STRUCTURE_TYPE27650: if (!((t76175.value.structure_type27650)==(t76176.value.structure_type27650))) goto l13717; break; case STRUCTURE_TYPE27669: if (!((t76175.value.structure_type27669)==(t76176.value.structure_type27669))) goto l13717; break; case STRUCTURE_TYPE27673: if (!((t76175.value.structure_type27673)==(t76176.value.structure_type27673))) goto l13717; break; case STRUCTURE_TYPE27692: if (!((t76175.value.structure_type27692)==(t76176.value.structure_type27692))) goto l13717; break; case STRUCTURE_TYPE27694: if (!((t76175.value.structure_type27694)==(t76176.value.structure_type27694))) goto l13717; break; case STRUCTURE_TYPE27698: if (!((t76175.value.structure_type27698)==(t76176.value.structure_type27698))) goto l13717; break; case STRUCTURE_TYPE27745: if (!((t76175.value.structure_type27745)==(t76176.value.structure_type27745))) goto l13717; break; case STRUCTURE_TYPE27747: if (!((t76175.value.structure_type27747)==(t76176.value.structure_type27747))) goto l13717; break; case STRUCTURE_TYPE27750: if (!((t76175.value.structure_type27750)==(t76176.value.structure_type27750))) goto l13717; break; case STRUCTURE_TYPE27753: if (!((t76175.value.structure_type27753)==(t76176.value.structure_type27753))) goto l13717; break; case STRUCTURE_TYPE27756: if (!((t76175.value.structure_type27756)==(t76176.value.structure_type27756))) goto l13717; break; case STRUCTURE_TYPE27761: if (!((t76175.value.structure_type27761)==(t76176.value.structure_type27761))) goto l13717; break; case STRUCTURE_TYPE27769: if (!((t76175.value.structure_type27769)==(t76176.value.structure_type27769))) goto l13717; break; case STRUCTURE_TYPE27776: if (!((t76175.value.structure_type27776)==(t76176.value.structure_type27776))) goto l13717; break; case STRUCTURE_TYPE27779: if (!((t76175.value.structure_type27779)==(t76176.value.structure_type27779))) goto l13717; break; case STRUCTURE_TYPE27858: if (!((t76175.value.structure_type27858)==(t76176.value.structure_type27858))) goto l13717; break; case STRING_TYPE: if (!((t76175.value.string_type)==(t76176.value.string_type))) goto l13717; break; case HEADED_VECTOR_TYPE27896: if (!((t76175.value.headed_vector_type27896)==(t76176.value.headed_vector_type27896))) goto l13717; break; case EXTERNAL_SYMBOL_TYPE: if (!((t76175.value.external_symbol_type)==(t76176.value.external_symbol_type))) goto l13717; break; case STRUCTURE_TYPE27908: if (!((t76175.value.structure_type27908)==(t76176.value.structure_type27908))) goto l13717; break; default:;} /* x97610 stalin.sc:9181:314731 */ /* x97608 stalin.sc:9181:314746 */ /* x97607 stalin.sc:9181:314753 */ t76185 = a23497; /* x97606 stalin.sc:9181:314747 */ a35655 = t76185; /* x273977 */ /* x273976 */ t76186 = a35655; /* x273975 */ if (!((t76186.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29804]"); structure_ref_error();} t76181 = t76186.value.structure_type24753->s0; /* x97609 stalin.sc:9181:314757 */ t76182 = a23495; /* x97605 stalin.sc:9181:314732 */ t76183 = *((struct w227671 *)(&t76181)); t76184 = *((struct w49 *)(&t76182)); t76166 = f1226(t76183, t76184); goto l13718; l13717: /* x97611 stalin.sc:9182:314768 */ t76166 = a23495; l13718: /* x97615 stalin.sc:9183:314775 */ /* x97614 stalin.sc:9183:314781 */ t76187 = *((struct w16638 *)(&a23496)); /* x97613 stalin.sc:9183:314776 */ a35333 = t76187; /* x272689 */ /* x272688 */ t76188 = a35333; /* x272687 */ if (!((t76188.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29482]"); structure_ref_error();} t76167 = t76188.value.structure_type24753->s1; /* x97618 stalin.sc:9184:314788 */ /* x97617 stalin.sc:9184:314794 */ t76189 = a23497; /* x97616 stalin.sc:9184:314789 */ a35334 = t76189; /* x272693 */ /* x272692 */ t76190 = a35334; /* x272691 */ if (!((t76190.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29483]"); structure_ref_error();} t76168 = t76190.value.structure_type24753->s1; /* x97586 stalin.sc:9179:314620 */ t76165 = p10740; p10740 = t76165; a23495 = t76166; a23496 = t76167; a23497 = t76168; goto h10740; l13715: goto l13712; l13711: /* x97675 stalin.sc:9185:314807 */ /* x97669 stalin.sc:9185:314833 */ t76154 = p10737->p10716->a23478; /* x97670 stalin.sc:9185:314836 */ t76155 = p10737->p10716->a23479; /* x97673 stalin.sc:9185:314838 */ /* x97672 stalin.sc:9185:314857 */ t76158 = p10737->p10716->a23480; /* x97671 stalin.sc:9185:314839 */ a39726 = t76158; /* x291573 */ /* x291572 */ t76159 = a39726; /* x291571 */ if (!((t76159.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34643]"); structure_ref_error();} t76156 = t76159.value.structure_type27698->s11; /* x97674 stalin.sc:9185:314860 */ t76157 = p10737->p10716->a23481; /* x97668 stalin.sc:9185:314808 */ b23499 = t76154; b23500 = t76155; b23501 = t76156; b23502 = t76157; f10746(); l13712: goto l13709; l13708: /* x97680 stalin.sc:9158:313879 */ /* x97679 stalin.sc:9158:313879 */ l13709: break; case NATIVE_PROCEDURE_TYPE18420: f9084((t73937.value.native_procedure_type18420), t73938); break; case NATIVE_PROCEDURE_TYPE19079: p11705 = t73937.value.native_procedure_type19079; a24107 = t73938; /* x105358 stalin.sc:10656:369839 */ /* x105092 stalin.sc:10656:369845 */ /* x105091 stalin.sc:10656:369873 */ t76292 = a24107; /* x105090 stalin.sc:10656:369846 */ /* x105089 stalin.sc:10656:369870 */ t76293 = p11705->a24096; /* x105088 stalin.sc:10656:369847 */ t76291 = f7917(t76293); if ((t76291&3)==1) {if ((f7905(((struct p7892 *)(t76291-1)), t76292).tag)==FALSE_TYPE) goto l13727;} else if ((f7893(((struct p7892 *)t76291), t76292).tag)==FALSE_TYPE) goto l13727; /* x105355 */ /* x105354 */ t76294 = p11705; p11706 = t76294; /* x105353 stalin.sc:10657:369879 */ /* x105097 stalin.sc:10658:369890 */ /* x105096 stalin.sc:10658:369932 */ t76296 = a24107; /* x105095 stalin.sc:10658:369891 */ /* x105094 stalin.sc:10658:369924 */ t76297 = q79; /* x105093 stalin.sc:10658:369892 */ t76298.tag = EXTERNAL_SYMBOL_TYPE; t76298.value.external_symbol_type = t76297; t76295 = f7708(t76298); if (f7709(t76295, t76296)==FALSE_TYPE) goto l13730; /* x105143 */ /* x105142 */ t76354 = p11706; p11707 = t76354; /* x105141 stalin.sc:10659:369940 */ /* x105135 stalin.sc:10660:369963 */ t76355 = p11707; /* x105140 stalin.sc:10669:370287 */ /* x105139 stalin.sc:10669:370308 */ /* x105138 stalin.sc:10669:370324 */ t76360 = p11707->a24096; /* x105137 stalin.sc:10669:370309 */ t76358 = f6998(t76360); /* x105136 stalin.sc:10669:370288 */ a39883 = t76358; /* x292201 */ /* x292200 */ t76359 = a39883; /* x292199 */ if (!((t76359.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34800]"); structure_ref_error();} t76356 = t76359.value.structure_type27698->s10; /* x105098 stalin.sc:10659:369941 */ t76357.tag = NATIVE_PROCEDURE_TYPE22431; t76357.value.native_procedure_type22431 = t76355; f8173(t76357, t76356); goto l13731; l13730: /* x105352 */ /* x105148 stalin.sc:10670:370335 */ /* x105147 stalin.sc:10671:370408 */ t76300 = a24107; /* x105146 stalin.sc:10670:370336 */ /* x105145 stalin.sc:10670:370369 */ t76301 = q66; /* x105144 stalin.sc:10670:370337 */ t76302.tag = EXTERNAL_SYMBOL_TYPE; t76302.value.external_symbol_type = t76301; t76299 = f7708(t76302); if (f7709(t76299, t76300)==FALSE_TYPE) goto l13733; /* x105194 */ /* x105193 */ t76347 = p11706; p11712 = t76347; /* x105192 stalin.sc:10672:370416 */ /* x105186 stalin.sc:10673:370439 */ t76348 = p11712; /* x105191 stalin.sc:10684:370806 */ /* x105190 stalin.sc:10684:370827 */ /* x105189 stalin.sc:10684:370843 */ t76353 = p11712->a24096; /* x105188 stalin.sc:10684:370828 */ t76351 = f6998(t76353); /* x105187 stalin.sc:10684:370807 */ a39884 = t76351; /* x292205 */ /* x292204 */ t76352 = a39884; /* x292203 */ if (!((t76352.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34801]"); structure_ref_error();} t76349 = t76352.value.structure_type27698->s10; /* x105149 stalin.sc:10672:370417 */ t76350.tag = NATIVE_PROCEDURE_TYPE22426; t76350.value.native_procedure_type22426 = t76348; f8173(t76350, t76349); goto l13734; l13733: /* x105351 */ /* x105199 stalin.sc:10685:370854 */ /* x105198 stalin.sc:10685:370895 */ t76304 = a24107; /* x105197 stalin.sc:10685:370855 */ /* x105196 stalin.sc:10685:370888 */ t76305 = q45; /* x105195 stalin.sc:10685:370856 */ t76306.tag = EXTERNAL_SYMBOL_TYPE; t76306.value.external_symbol_type = t76305; t76303 = f7708(t76306); if (f7709(t76303, t76304)==FALSE_TYPE) goto l13736; /* x105273 */ /* x105272 */ t76333 = p11706; p11717 = t76333; /* x105271 */ /* x105270 stalin.sc:10686:370903 */ /* x105264 stalin.sc:10687:370926 */ t76341 = p11717; /* x105269 stalin.sc:10695:371173 */ /* x105268 stalin.sc:10695:371194 */ /* x105267 stalin.sc:10695:371210 */ t76346 = p11717->a24096; /* x105266 stalin.sc:10695:371195 */ t76344 = f6998(t76346); /* x105265 stalin.sc:10695:371174 */ a39886 = t76344; /* x292213 */ /* x292212 */ t76345 = a39886; /* x292211 */ if (!((t76345.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34803]"); structure_ref_error();} t76342 = t76345.value.structure_type27698->s10; /* x105236 stalin.sc:10686:370904 */ t76343.tag = NATIVE_PROCEDURE_TYPE22418; t76343.value.native_procedure_type22418 = t76341; f8173(t76343, t76342); /* x105235 */ t76334 = p11717; p11718 = t76334; /* x105234 stalin.sc:10696:371220 */ /* x105228 stalin.sc:10697:371243 */ t76335 = p11718; /* x105233 stalin.sc:10705:371491 */ /* x105232 stalin.sc:10705:371512 */ /* x105231 stalin.sc:10705:371529 */ t76340 = p11718->a24096; /* x105230 stalin.sc:10705:371513 */ t76338 = f7003(t76340); /* x105229 stalin.sc:10705:371492 */ a39885 = t76338; /* x292209 */ /* x292208 */ t76339 = a39885; /* x292207 */ if (!((t76339.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34802]"); structure_ref_error();} t76336 = t76339.value.structure_type27698->s10; /* x105200 stalin.sc:10696:371221 */ t76337.tag = NATIVE_PROCEDURE_TYPE22422; t76337.value.native_procedure_type22422 = t76335; f8173(t76337, t76336); goto l13737; l13736: /* x105350 */ /* x105278 stalin.sc:10706:371540 */ /* x105277 stalin.sc:10706:371582 */ t76308 = a24107; /* x105276 stalin.sc:10706:371541 */ /* x105275 stalin.sc:10706:371574 */ t76309 = q44; /* x105274 stalin.sc:10706:371542 */ t76310.tag = EXTERNAL_SYMBOL_TYPE; t76310.value.external_symbol_type = t76309; t76307 = f7708(t76310); if (f7709(t76307, t76308)==FALSE_TYPE) goto l13739; /* x105315 */ /* x105314 */ t76326 = p11706; p11725 = t76326; /* x105313 stalin.sc:10707:371590 */ /* x105307 stalin.sc:10708:371613 */ t76327 = p11725; /* x105312 stalin.sc:10716:371860 */ /* x105311 stalin.sc:10716:371881 */ /* x105310 stalin.sc:10716:371897 */ t76332 = p11725->a24096; /* x105309 stalin.sc:10716:371882 */ t76330 = f6998(t76332); /* x105308 stalin.sc:10716:371861 */ a39887 = t76330; /* x292217 */ /* x292216 */ t76331 = a39887; /* x292215 */ if (!((t76331.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34804]"); structure_ref_error();} t76328 = t76331.value.structure_type27698->s10; /* x105279 stalin.sc:10707:371591 */ t76329.tag = NATIVE_PROCEDURE_TYPE22414; t76329.value.native_procedure_type22414 = t76327; f8173(t76329, t76328); goto l13740; l13739: /* x105349 */ /* x105318 stalin.sc:10717:371908 */ /* x105317 stalin.sc:10717:371932 */ t76311 = a24107; /* x105316 stalin.sc:10717:371909 */ a38056 = t76311; /* x284893 */ /* x284892 */ t76312 = a38056; /* x284891 */ if (!((t76312.tag)==STRUCTURE_TYPE27756)) goto l13742; /* x105346 */ /* x105345 */ t76313 = p11706; p11729 = t76313; /* x105344 stalin.sc:10718:371940 */ /* x105343 stalin.sc:10718:371950 */ /* x105339 stalin.sc:10718:371970 */ t76322 = a24107; /* x105342 stalin.sc:10718:371972 */ /* x105341 stalin.sc:10718:371990 */ t76325 = p11729->a24096; /* x105340 stalin.sc:10718:371973 */ t76323 = f8739(t76325); /* x105338 stalin.sc:10718:371951 */ t76324 = t76323; t76315 = f9368(t76322, t76324); /* x105337 */ t76314 = p11729; p11730 = t76314; a24116 = t76315; /* x105336 stalin.sc:10719:372002 */ /* x105321 stalin.sc:10719:372010 */ /* x105320 stalin.sc:10719:372017 */ t76316 = a24116; /* x105319 stalin.sc:10719:372011 */ if (f8918(t76316)==FALSE_TYPE) goto l13745; /* x105323 */ /* x105322 */ goto l13746; l13745: /* x105335 */ /* x105334 */ t76317 = p11730; p11732 = t76317; /* x105333 stalin.sc:10720:372028 */ /* x105324 stalin.sc:10720:372032 */ if ((p11732->a24097)==FALSE_TYPE) goto l13748; /* x105328 stalin.sc:10721:372039 */ /* x105326 stalin.sc:10721:372068 */ t76320 = p11732->p11669->a24093; /* x105327 stalin.sc:10721:372071 */ t76321 = a24116; /* x105325 stalin.sc:10721:372040 */ f11754(t76320, t76321); goto l13749; l13748: /* x105332 stalin.sc:10722:372079 */ /* x105330 stalin.sc:10722:372112 */ t76318 = p11732->p11669->a24093; /* x105331 stalin.sc:10722:372115 */ t76319 = a24116; /* x105329 stalin.sc:10722:372080 */ f11758(t76318, t76319); l13749: l13746: goto l13743; l13742: /* x105348 */ /* x105347 */ l13743: l13740: l13737: l13734: l13731: goto l13728; l13727: /* x105357 stalin.sc:10656:369839 */ /* x105356 stalin.sc:10656:369839 */ l13728: break; case NATIVE_PROCEDURE_TYPE20065: a25564 = t73938; /* x125622 stalin.sc:15162:528844 */ /* x125387 stalin.sc:15162:528851 */ /* x125386 stalin.sc:15162:528863 */ t76361 = a25564; /* x125385 stalin.sc:15162:528852 */ if (f7677(t76361)==FALSE_TYPE) goto l13751; /* x125391 */ /* x125390 */ /* x125389 stalin.sc:15162:528866 */ /* x125388 stalin.sc:15162:528884 */ a1202 = TRUE_TYPE; goto l13752; l13751: /* x125621 */ /* x125394 stalin.sc:15163:528892 */ /* x125393 stalin.sc:15163:528904 */ t76362 = a25564; /* x125392 stalin.sc:15163:528893 */ if (f7678(t76362)==FALSE_TYPE) goto l13754; /* x125398 */ /* x125397 */ /* x125396 stalin.sc:15163:528907 */ /* x125395 stalin.sc:15163:528925 */ a1202 = TRUE_TYPE; goto l13755; l13754: /* x125620 */ /* x125401 stalin.sc:15164:528933 */ /* x125400 stalin.sc:15164:528946 */ t76363 = a25564; /* x125399 stalin.sc:15164:528934 */ if (f7679(t76363)==FALSE_TYPE) goto l13757; /* x125405 */ /* x125404 */ /* x125403 stalin.sc:15164:528949 */ /* x125402 stalin.sc:15164:528967 */ a1202 = TRUE_TYPE; goto l13758; l13757: /* x125619 */ /* x125408 stalin.sc:15165:528975 */ /* x125407 stalin.sc:15165:528987 */ t76364 = a25564; /* x125406 stalin.sc:15165:528976 */ if (f7682(t76364)==FALSE_TYPE) goto l13760; /* x125412 */ /* x125411 */ /* x125410 stalin.sc:15165:528990 */ /* x125409 stalin.sc:15165:529009 */ a1211 = TRUE_TYPE; goto l13761; l13760: /* x125618 */ /* x125415 stalin.sc:15166:529017 */ /* x125414 stalin.sc:15166:529031 */ t76365 = a25564; /* x125413 stalin.sc:15166:529018 */ if (f7683(t76365)==FALSE_TYPE) goto l13763; /* x125418 */ /* x125417 */ /* x125416 stalin.sc:15166:529034 */ goto l13764; l13763: /* x125617 */ /* x125421 stalin.sc:15167:529041 */ /* x125420 stalin.sc:15167:529055 */ t76366 = a25564; /* x125419 stalin.sc:15167:529042 */ if (f7684(t76366)==FALSE_TYPE) goto l13766; /* x125424 */ /* x125423 */ /* x125422 stalin.sc:15167:529058 */ goto l13767; l13766: /* x125616 */ /* x125427 stalin.sc:15168:529065 */ /* x125426 stalin.sc:15168:529084 */ t76367 = a25564; /* x125425 stalin.sc:15168:529066 */ if (f7687(t76367)==FALSE_TYPE) goto l13769; /* x125430 */ /* x125429 */ /* x125428 stalin.sc:15168:529087 */ goto l13770; l13769: /* x125615 */ /* x125433 stalin.sc:15169:529094 */ /* x125432 stalin.sc:15169:529112 */ t76368 = a25564; /* x125431 stalin.sc:15169:529095 */ if (f7700(t76368)==FALSE_TYPE) goto l13772; /* x125442 */ /* x125441 */ /* x125440 */ /* x125439 stalin.sc:15170:529118 */ /* x125438 stalin.sc:15170:529128 */ t76407 = "stdio"; /* x125437 stalin.sc:15170:529119 */ t76408.tag = STRING_TYPE; t76408.value.string_type = t76407; f18320(t76408); /* x125436 */ /* x125435 stalin.sc:15171:529147 */ /* x125434 stalin.sc:15171:529167 */ a1205 = TRUE_TYPE; goto l13773; l13772: /* x125614 */ /* x125445 stalin.sc:15172:529175 */ /* x125444 stalin.sc:15172:529194 */ t76369 = a25564; /* x125443 stalin.sc:15172:529176 */ if (f7701(t76369)==FALSE_TYPE) goto l13775; /* x125454 */ /* x125453 */ /* x125452 */ /* x125451 stalin.sc:15173:529200 */ /* x125450 stalin.sc:15173:529210 */ t76405 = "stdio"; /* x125449 stalin.sc:15173:529201 */ t76406.tag = STRING_TYPE; t76406.value.string_type = t76405; f18320(t76406); /* x125448 */ /* x125447 stalin.sc:15174:529229 */ /* x125446 stalin.sc:15174:529249 */ a1205 = TRUE_TYPE; goto l13776; l13775: /* x125613 */ /* x125457 stalin.sc:15175:529257 */ /* x125456 stalin.sc:15175:529275 */ t76370 = a25564; /* x125455 stalin.sc:15175:529258 */ if (f7702(t76370)==FALSE_TYPE) goto l13778; /* x125461 */ /* x125460 */ /* x125459 stalin.sc:15175:529278 */ /* x125458 stalin.sc:15175:529296 */ a1202 = TRUE_TYPE; goto l13779; l13778: /* x125612 */ /* x125464 stalin.sc:15176:529304 */ /* x125463 stalin.sc:15176:529319 */ t76371 = a25564; /* x125462 stalin.sc:15176:529305 */ if (f7703(t76371)==FALSE_TYPE) goto l13781; /* x125468 */ /* x125467 */ /* x125466 stalin.sc:15176:529322 */ /* x125465 stalin.sc:15176:529342 */ a1207 = TRUE_TYPE; goto l13782; l13781: /* x125611 */ /* x125471 stalin.sc:15177:529350 */ /* x125470 stalin.sc:15177:529373 */ t76372 = a25564; /* x125469 stalin.sc:15177:529351 */ a38311 = t76372; /* x285913 */ /* x285912 */ t76373 = a38311; /* x285911 */ if (!((t76373.tag)==STRUCTURE_TYPE27776)) goto l13784; /* x125475 */ /* x125474 */ /* x125473 stalin.sc:15177:529376 */ /* x125472 stalin.sc:15177:529394 */ a1202 = TRUE_TYPE; goto l13785; l13784: /* x125610 */ /* x125478 stalin.sc:15178:529402 */ /* x125477 stalin.sc:15178:529425 */ t76374 = a25564; /* x125476 stalin.sc:15178:529403 */ a38268 = t76374; /* x285741 */ /* x285740 */ t76375 = a38268; /* x285739 */ if (!((t76375.tag)==STRUCTURE_TYPE27779)) goto l13787; /* x125482 */ /* x125481 */ /* x125480 stalin.sc:15178:529428 */ /* x125479 stalin.sc:15178:529448 */ a1206 = TRUE_TYPE; goto l13788; l13787: /* x125609 */ /* x125485 stalin.sc:15179:529456 */ /* x125484 stalin.sc:15179:529483 */ t76376 = a25564; /* x125483 stalin.sc:15179:529457 */ a38203 = t76376; /* x285481 */ /* x285480 */ t76377 = a38203; /* x285479 */ if (!((t76377.tag)==STRUCTURE_TYPE27753)) goto l13790; /* x125489 */ /* x125488 */ /* x125487 stalin.sc:15179:529486 */ /* x125486 stalin.sc:15179:529504 */ a1202 = TRUE_TYPE; goto l13791; l13790: /* x125608 */ /* x125492 stalin.sc:15180:529512 */ /* x125491 stalin.sc:15180:529536 */ t76378 = a25564; /* x125490 stalin.sc:15180:529513 */ a38057 = t76378; /* x284897 */ /* x284896 */ t76379 = a38057; /* x284895 */ if (!((t76379.tag)==STRUCTURE_TYPE27756)) goto l13793; /* x125504 */ /* x125503 */ /* x125502 stalin.sc:15181:529542 */ /* x125495 stalin.sc:15181:529546 */ /* x125494 stalin.sc:15181:529559 */ t76403 = a25564; /* x125493 stalin.sc:15181:529547 */ if (f8793(t76403)==FALSE_TYPE) goto l13829; /* x125497 stalin.sc:15182:529569 */ /* x125496 stalin.sc:15182:529587 */ a1202 = TRUE_TYPE; goto l13830; l13829: /* x125501 stalin.sc:15183:529598 */ /* x125499 stalin.sc:15183:529632 */ t76404 = a25564; /* x125500 stalin.sc:15183:529634 */ /* x125498 stalin.sc:15183:529599 */ f7300(t76404); l13830: goto l13794; l13793: /* x125607 */ /* x125507 stalin.sc:15184:529643 */ /* x125506 stalin.sc:15184:529668 */ t76380 = a25564; /* x125505 stalin.sc:15184:529644 */ a37946 = t76380; /* x284453 */ /* x284452 */ t76381 = a37946; /* x284451 */ if (!((t76381.tag)==STRUCTURE_TYPE27750)) goto l13796; /* x125511 */ /* x125510 */ /* x125509 stalin.sc:15184:529671 */ /* x125508 stalin.sc:15184:529689 */ a1202 = TRUE_TYPE; goto l13797; l13796: /* x125606 */ /* x125514 stalin.sc:15185:529697 */ /* x125513 stalin.sc:15185:529717 */ t76382 = a25564; /* x125512 stalin.sc:15185:529698 */ a37857 = t76382; /* x284097 */ /* x284096 */ t76383 = a37857; /* x284095 */ if (!((t76383.tag)==STRUCTURE_TYPE27858)) goto l13799; /* x125533 */ /* x125532 */ /* x125531 stalin.sc:15186:529723 */ /* x125517 stalin.sc:15186:529730 */ /* x125516 stalin.sc:15186:529743 */ t76400 = a25564; /* x125515 stalin.sc:15186:529731 */ if (f8793(t76400)==FALSE_TYPE) goto l13826; /* x125521 */ /* x125520 */ /* x125519 stalin.sc:15186:529746 */ /* x125518 stalin.sc:15186:529764 */ a1202 = TRUE_TYPE; goto l13827; l13826: /* x125530 */ /* x125529 */ /* x125528 */ /* x125527 stalin.sc:15187:529777 */ /* x125526 stalin.sc:15187:529787 */ t76401 = "setjmp"; /* x125525 stalin.sc:15187:529778 */ t76402.tag = STRING_TYPE; t76402.value.string_type = t76401; f18320(t76402); /* x125524 */ /* x125523 stalin.sc:15188:529814 */ /* x125522 stalin.sc:15188:529836 */ a1204 = TRUE_TYPE; l13827: goto l13800; l13799: /* x125605 */ /* x125536 stalin.sc:15189:529846 */ /* x125535 stalin.sc:15189:529860 */ t76384 = a25564; /* x125534 stalin.sc:15189:529847 */ a37754 = t76384; /* x283685 */ /* x283684 */ t76385 = a37754; /* x283683 */ if (!((t76385.tag)==STRUCTURE_TYPE27673)) goto l13802; /* x125540 */ /* x125539 */ /* x125538 stalin.sc:15189:529863 */ /* x125537 stalin.sc:15189:529883 */ a1206 = TRUE_TYPE; goto l13803; l13802: /* x125604 */ /* x125543 stalin.sc:15190:529891 */ /* x125542 stalin.sc:15190:529908 */ t76386 = a25564; /* x125541 stalin.sc:15190:529892 */ a37681 = t76386; /* x283393 */ /* x283392 */ t76387 = a37681; /* x283391 */ if (!((t76387.tag)==STRUCTURE_TYPE27769)) goto l13805; /* x125567 */ /* x125566 */ /* x125565 stalin.sc:15191:529914 */ /* x125546 stalin.sc:15191:529921 */ /* x125545 stalin.sc:15191:529934 */ t76397 = a25564; /* x125544 stalin.sc:15191:529922 */ if (f8793(t76397)==FALSE_TYPE) goto l13820; /* x125550 */ /* x125549 */ /* x125548 stalin.sc:15191:529937 */ /* x125547 stalin.sc:15191:529955 */ a1202 = TRUE_TYPE; goto l13821; l13820: /* x125564 */ /* x125563 */ /* x125562 stalin.sc:15192:529968 */ /* x125553 stalin.sc:15192:529976 */ /* x125552 stalin.sc:15192:530003 */ t76398 = a25564; /* x125551 stalin.sc:15192:529977 */ if (f7429(t76398)==FALSE_TYPE) goto l13823; /* x125555 */ /* x125554 */ goto l13824; l13823: /* x125561 */ /* x125560 */ /* x125559 stalin.sc:15193:530015 */ /* x125557 stalin.sc:15193:530042 */ t76399 = a25564; /* x125558 stalin.sc:15193:530044 */ /* x125556 stalin.sc:15193:530016 */ f7445(t76399); l13824: l13821: goto l13806; l13805: /* x125603 */ /* x125570 stalin.sc:15194:530055 */ /* x125569 stalin.sc:15194:530076 */ t76388 = a25564; /* x125568 stalin.sc:15194:530056 */ a37536 = t76388; /* x282813 */ /* x282812 */ t76389 = a37536; /* x282811 */ if (!((t76389.tag)==STRUCTURE_TYPE27761)) goto l13808; /* x125584 */ /* x125583 */ /* x125582 stalin.sc:15195:530082 */ /* x125573 stalin.sc:15195:530090 */ /* x125572 stalin.sc:15195:530115 */ t76395 = a25564; /* x125571 stalin.sc:15195:530091 */ if (f7754(t76395)==FALSE_TYPE) goto l13817; /* x125575 */ /* x125574 */ goto l13818; l13817: /* x125581 */ /* x125580 */ /* x125579 stalin.sc:15196:530122 */ /* x125577 stalin.sc:15196:530153 */ t76396 = a25564; /* x125578 stalin.sc:15196:530155 */ /* x125576 stalin.sc:15196:530123 */ f7495(t76396); l13818: goto l13809; l13808: /* x125602 */ /* x125587 stalin.sc:15197:530164 */ /* x125586 stalin.sc:15197:530188 */ t76390 = a25564; /* x125585 stalin.sc:15197:530165 */ a37420 = t76390; /* x282349 */ /* x282348 */ t76391 = a37420; /* x282347 */ if (!((t76391.tag)==STRUCTURE_TYPE27669)) goto l13811; /* x125590 */ /* x125589 */ /* x125588 stalin.sc:15197:530191 */ goto l13812; l13811: /* x125601 */ /* x125593 stalin.sc:15198:530198 */ /* x125592 stalin.sc:15198:530222 */ t76392 = a25564; /* x125591 stalin.sc:15198:530199 */ a37323 = t76392; /* x281961 */ /* x281960 */ t76393 = a37323; /* x281959 */ if (!((t76393.tag)==STRUCTURE_TYPE27908)) goto l13814; /* x125596 */ /* x125595 */ /* x125594 stalin.sc:15198:530225 */ goto l13815; l13814: /* x125600 */ /* x125599 */ /* x125598 stalin.sc:15199:530237 */ /* x125597 stalin.sc:15199:530238 */ /* x295481 QobiScheme.sc:166:5314 */ /* x295480 QobiScheme.sc:166:5321 */ t76394 = "This shouldn\'t happen"; /* x295479 QobiScheme.sc:166:5315 */ stalin_panic(t76394); l13815: l13812: l13809: l13806: l13803: l13800: l13797: l13794: l13791: l13788: l13785: l13782: l13779: l13776: l13773: l13770: l13767: l13764: l13761: l13758: l13755: l13752: break; case NATIVE_PROCEDURE_TYPE20707: p10726 = t73937.value.native_procedure_type20707; a23486 = t73938; /* x97536 stalin.sc:9123:312589 */ /* x97424 stalin.sc:9123:312595 */ /* x97423 stalin.sc:9123:312624 */ t76410 = a23486; /* x97422 stalin.sc:9123:312596 */ /* x97421 stalin.sc:9123:312620 */ t76411 = p10726->a23485; /* x97420 stalin.sc:9123:312597 */ t76409 = f7917(t76411); if ((t76409&3)==1) {if ((f7905(((struct p7892 *)(t76409-1)), t76410).tag)==FALSE_TYPE) goto l13832;} else if ((f7893(((struct p7892 *)t76409), t76410).tag)==FALSE_TYPE) goto l13832; /* x97533 */ /* x97532 */ t76412 = p10726; p10727 = t76412; /* x97531 stalin.sc:9126:312741 */ /* x97427 stalin.sc:9126:312745 */ /* x97426 stalin.sc:9126:312772 */ t76413 = a23486; /* x97425 stalin.sc:9126:312746 */ a38202 = t76413; /* x285477 */ /* x285476 */ t76414 = a38202; /* x285475 */ if (!((t76414.tag)==STRUCTURE_TYPE27753)) goto l13835; /* x97522 stalin.sc:9127:312777 */ /* x97483 stalin.sc:9127:312792 */ t76422 = p10727->p10716->a23478; /* x97486 stalin.sc:9128:312806 */ /* x97485 stalin.sc:9128:312828 */ t76460 = p10727->a23485; /* x97484 stalin.sc:9128:312807 */ a38527 = t76460; /* x286777 */ /* x286776 */ t76461 = a38527; /* x286775 */ if (!((t76461.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33444]"); structure_ref_error();} t76423 = t76461.value.structure_type27698->s22; /* x97521 stalin.sc:9129:312843 */ /* x97502 stalin.sc:9134:313047 */ /* x97501 stalin.sc:9134:313065 */ t76540 = p10727->a23485; /* x97500 stalin.sc:9134:313048 */ t76463 = f8739(t76540); /* x97503 stalin.sc:9135:313073 */ t76464 = a23486; /* x97508 stalin.sc:9136:313079 */ /* x97507 stalin.sc:9136:313087 */ /* x97506 stalin.sc:9136:313109 */ t76543 = p10727->a23485; /* x97505 stalin.sc:9136:313088 */ a38528 = t76543; /* x286781 */ /* x286780 */ t76544 = a38528; /* x286779 */ if (!((t76544.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33445]"); structure_ref_error();} t76541 = t76544.value.structure_type27698->s22; /* x97504 stalin.sc:9136:313080 */ t76542 = *((struct w49 *)(&t76541)); t76465 = f26227(t76542); /* x97520 stalin.sc:9137:313118 */ /* x97511 stalin.sc:9137:313122 */ /* x97510 stalin.sc:9137:313134 */ t76545 = p10727->a23485; /* x97509 stalin.sc:9137:313123 */ if (f8944(t76545)==FALSE_TYPE) goto l13848; /* x97518 stalin.sc:9138:313146 */ /* x97517 stalin.sc:9139:313176 */ /* x97516 stalin.sc:9139:313183 */ /* x97515 stalin.sc:9139:313205 */ t76550 = p10727->a23485; /* x97514 stalin.sc:9139:313184 */ a38529 = t76550; /* x286785 */ /* x286784 */ t76551 = a38529; /* x286783 */ if (!((t76551.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33446]"); structure_ref_error();} t76548 = t76551.value.structure_type27698->s22; /* x97513 stalin.sc:9139:313177 */ a35727 = t76548; /* x274265 */ /* x274264 */ t76549 = a35727; /* x274263 */ if (!((t76549.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29876]"); structure_ref_error();} t76546 = t76549.value.structure_type24753->s0; /* x97512 stalin.sc:9138:313147 */ a39882 = t76546; /* x292197 */ /* x292196 */ t76547 = a39882; /* x292195 */ if (!((t76547.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34799]"); structure_ref_error();} t76466 = t76547.value.structure_type27698->s10; goto l13849; l13848: /* x97519 stalin.sc:9140:313219 */ t76466.tag = FALSE_TYPE; l13849: /* x97499 stalin.sc:9129:312844 */ /* x97498 stalin.sc:9132:312955 */ /* x97497 stalin.sc:9132:312960 */ /* x97495 stalin.sc:9132:312966 */ /* x97494 stalin.sc:9132:312997 */ t76538 = a23486; /* x97493 stalin.sc:9132:312967 */ a38180 = t76538; /* x285389 */ /* x285388 */ t76539 = a38180; /* x285387 */ if (!((t76539.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-NAME[5895] 33097]"); structure_ref_error();} t76535 = t76539.value.structure_type27753->s0; /* x97496 stalin.sc:9133:313009 */ t76536 = a789; /* x97492 stalin.sc:9132:312961 */ /* MOVE: branching squeezed to general */ if (t76536>=((struct structure_type24753 *)VALUE_OFFSET)) {t76537.tag = STRUCTURE_TYPE24753; t76537.value.structure_type24753 = t76536;} else t76537.tag = (unsigned)t76536; t76534 = f26354(t76535, t76537); /* x269696 stalin.sc:9132:312956 */ if (!((t76534.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 9132, 312955); structure_ref_error();} t76531 = t76534.value.structure_type24753->s1; /* x97490 stalin.sc:9129:312845 */ /* x97487 stalin.sc:9129:312849 */ if ((p10727->p10716->a23482)==FALSE_TYPE) goto l13845; /* x97488 stalin.sc:9130:312861 */ t76530 = NATIVE_PROCEDURE_TYPE6635; goto l13846; l13845: /* x97489 stalin.sc:9131:312909 */ t76530 = NATIVE_PROCEDURE_TYPE6636; l13846: if (t76530==NATIVE_PROCEDURE_TYPE6635) {a36277 = t76531; /* x276307 */ /* x276306 */ t76532 = a36277; /* x276305 */ if (!((t76532.tag)==STRUCTURE_TYPE24757)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-ALTERNATE-CONTEXTS[16208] 30393]"); structure_ref_error();} t76462 = t76532.value.structure_type24757->s3;} else {a36278 = t76531; /* x276311 */ /* x276310 */ t76533 = a36278; /* x276309 */ if (!((t76533.tag)==STRUCTURE_TYPE24757)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-CONSEQUENT-CONTEXTS[16200] 30394]"); structure_ref_error();} t76462 = t76533.value.structure_type24757->s2;} switch (t76462) {case NATIVE_PROCEDURE_TYPE6023: t76467 = f18140(t76463, t76466); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76467; break; case NATIVE_PROCEDURE_TYPE6024: t76468 = f18139(t76463, t76466); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76468; break; case NATIVE_PROCEDURE_TYPE6030: t76469 = f18124(t76463, t76466); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76469; break; case NATIVE_PROCEDURE_TYPE6031: t76470 = f18123(t76463, t76466); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76470; break; case NATIVE_PROCEDURE_TYPE6036: /* x297571 stalin.sc:24652:852612 */ /* x297570 stalin.sc:24652:852618 */ /* x297569 stalin.sc:24652:852613 */ a42591 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42591==NULL) {backtrace("stalin.sc", 24652, 852612); out_of_memory_error();} a42591->s0.tag = NATIVE_PROCEDURE_TYPE7429; a42591->s1.tag = NULL_TYPE; /* x304244 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42591; break; case NATIVE_PROCEDURE_TYPE6037: /* x297575 stalin.sc:24651:852591 */ /* x297574 stalin.sc:24651:852597 */ /* x297573 stalin.sc:24651:852592 */ a42592 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42592==NULL) {backtrace("stalin.sc", 24651, 852591); out_of_memory_error();} a42592->s0.tag = NATIVE_PROCEDURE_TYPE7429; a42592->s1.tag = NULL_TYPE; /* x304246 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42592; break; case NATIVE_PROCEDURE_TYPE6042: /* x276279 stalin.sc:24643:852358 */ t76424.tag = NULL_TYPE; break; case NATIVE_PROCEDURE_TYPE6043: /* x276281 stalin.sc:24642:852353 */ t76424.tag = NULL_TYPE; break; case NATIVE_PROCEDURE_TYPE6048: /* x276283 stalin.sc:24634:852130 */ t76424.tag = NULL_TYPE; break; case NATIVE_PROCEDURE_TYPE6049: /* x276285 stalin.sc:24633:852125 */ t76424.tag = NULL_TYPE; break; case NATIVE_PROCEDURE_TYPE6054: /* x276287 stalin.sc:24625:851897 */ t76424.tag = NULL_TYPE; break; case NATIVE_PROCEDURE_TYPE6055: /* x276289 stalin.sc:24624:851892 */ t76424.tag = NULL_TYPE; break; case NATIVE_PROCEDURE_TYPE6060: /* x297579 stalin.sc:24610:851508 */ /* x297578 stalin.sc:24610:851514 */ /* x297577 stalin.sc:24610:851509 */ a42593 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42593==NULL) {backtrace("stalin.sc", 24610, 851508); out_of_memory_error();} a42593->s0.tag = NATIVE_PROCEDURE_TYPE7430; a42593->s1.tag = NULL_TYPE; /* x304248 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42593; break; case NATIVE_PROCEDURE_TYPE6061: /* x297583 stalin.sc:24609:851487 */ /* x297582 stalin.sc:24609:851493 */ /* x297581 stalin.sc:24609:851488 */ a42594 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42594==NULL) {backtrace("stalin.sc", 24609, 851487); out_of_memory_error();} a42594->s0.tag = NATIVE_PROCEDURE_TYPE7430; a42594->s1.tag = NULL_TYPE; /* x304250 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42594; break; case NATIVE_PROCEDURE_TYPE6066: /* x297587 stalin.sc:24595:851083 */ /* x297586 stalin.sc:24595:851089 */ /* x297585 stalin.sc:24595:851084 */ a42595 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42595==NULL) {backtrace("stalin.sc", 24595, 851083); out_of_memory_error();} a42595->s0.tag = NATIVE_PROCEDURE_TYPE7430; a42595->s1.tag = NULL_TYPE; /* x304252 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42595; break; case NATIVE_PROCEDURE_TYPE6067: /* x297591 stalin.sc:24594:851062 */ /* x297590 stalin.sc:24594:851068 */ /* x297589 stalin.sc:24594:851063 */ a42596 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42596==NULL) {backtrace("stalin.sc", 24594, 851062); out_of_memory_error();} a42596->s0.tag = NATIVE_PROCEDURE_TYPE7430; a42596->s1.tag = NULL_TYPE; /* x304254 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42596; break; case NATIVE_PROCEDURE_TYPE6072: /* x297595 stalin.sc:24580:850657 */ /* x297594 stalin.sc:24580:850663 */ /* x297593 stalin.sc:24580:850658 */ a42597 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42597==NULL) {backtrace("stalin.sc", 24580, 850657); out_of_memory_error();} a42597->s0.tag = NATIVE_PROCEDURE_TYPE7430; a42597->s1.tag = NULL_TYPE; /* x304256 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42597; break; case NATIVE_PROCEDURE_TYPE6073: /* x297599 stalin.sc:24579:850636 */ /* x297598 stalin.sc:24579:850642 */ /* x297597 stalin.sc:24579:850637 */ a42598 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42598==NULL) {backtrace("stalin.sc", 24579, 850636); out_of_memory_error();} a42598->s0.tag = NATIVE_PROCEDURE_TYPE7430; a42598->s1.tag = NULL_TYPE; /* x304258 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42598; break; case NATIVE_PROCEDURE_TYPE6078: /* x297603 stalin.sc:24564:850227 */ /* x297602 stalin.sc:24564:850233 */ /* x297601 stalin.sc:24564:850228 */ a42599 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42599==NULL) {backtrace("stalin.sc", 24564, 850227); out_of_memory_error();} a42599->s0.tag = NATIVE_PROCEDURE_TYPE7430; a42599->s1.tag = NULL_TYPE; /* x304260 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42599; break; case NATIVE_PROCEDURE_TYPE6079: /* x297607 stalin.sc:24563:850206 */ /* x297606 stalin.sc:24563:850212 */ /* x297605 stalin.sc:24563:850207 */ a42600 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42600==NULL) {backtrace("stalin.sc", 24563, 850206); out_of_memory_error();} a42600->s0.tag = NATIVE_PROCEDURE_TYPE7430; a42600->s1.tag = NULL_TYPE; /* x304262 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42600; break; case NATIVE_PROCEDURE_TYPE6084: t76471 = f18045(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76471; break; case NATIVE_PROCEDURE_TYPE6085: /* x297611 stalin.sc:24550:849738 */ /* x297610 stalin.sc:24550:849744 */ /* x297609 stalin.sc:24550:849739 */ a42601 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42601==NULL) {backtrace("stalin.sc", 24550, 849738); out_of_memory_error();} a42601->s0.tag = NATIVE_PROCEDURE_TYPE7420; a42601->s1.tag = NULL_TYPE; /* x304264 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42601; break; case NATIVE_PROCEDURE_TYPE6090: /* x297615 stalin.sc:24537:849407 */ /* x297614 stalin.sc:24537:849413 */ /* x297613 stalin.sc:24537:849408 */ a42602 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42602==NULL) {backtrace("stalin.sc", 24537, 849407); out_of_memory_error();} a42602->s0.tag = NATIVE_PROCEDURE_TYPE7822; a42602->s1.tag = NULL_TYPE; /* x304266 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42602; break; case NATIVE_PROCEDURE_TYPE6091: /* x297619 stalin.sc:24536:849386 */ /* x297618 stalin.sc:24536:849392 */ /* x297617 stalin.sc:24536:849387 */ a42603 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42603==NULL) {backtrace("stalin.sc", 24536, 849386); out_of_memory_error();} a42603->s0.tag = NATIVE_PROCEDURE_TYPE7822; a42603->s1.tag = NULL_TYPE; /* x304268 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42603; break; case NATIVE_PROCEDURE_TYPE6096: t76472 = f18025(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76472; break; case NATIVE_PROCEDURE_TYPE6097: t76473 = f18024(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76473; break; case NATIVE_PROCEDURE_TYPE6102: /* x276291 stalin.sc:24504:848558 */ t76424.tag = NULL_TYPE; break; case NATIVE_PROCEDURE_TYPE6103: /* x276293 stalin.sc:24503:848553 */ t76424.tag = NULL_TYPE; break; case NATIVE_PROCEDURE_TYPE6108: /* x276295 stalin.sc:24495:848317 */ t76424.tag = NULL_TYPE; break; case NATIVE_PROCEDURE_TYPE6109: /* x276297 stalin.sc:24494:848312 */ t76424.tag = NULL_TYPE; break; case NATIVE_PROCEDURE_TYPE6114: /* x297623 stalin.sc:24478:847892 */ /* x297622 stalin.sc:24478:847898 */ /* x297621 stalin.sc:24478:847893 */ a42604 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42604==NULL) {backtrace("stalin.sc", 24478, 847892); out_of_memory_error();} a42604->s0.tag = NATIVE_PROCEDURE_TYPE7423; a42604->s1.tag = NULL_TYPE; /* x304270 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42604; break; case NATIVE_PROCEDURE_TYPE6115: /* x297627 stalin.sc:24477:847867 */ /* x297626 stalin.sc:24477:847873 */ /* x297625 stalin.sc:24477:847868 */ a42605 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42605==NULL) {backtrace("stalin.sc", 24477, 847867); out_of_memory_error();} a42605->s0.tag = NATIVE_PROCEDURE_TYPE7423; a42605->s1.tag = NULL_TYPE; /* x304272 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42605; break; case NATIVE_PROCEDURE_TYPE6120: t76474 = f17989(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76474; break; case NATIVE_PROCEDURE_TYPE6121: /* x297631 stalin.sc:24464:847380 */ /* x297630 stalin.sc:24464:847386 */ /* x297629 stalin.sc:24464:847381 */ a42606 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42606==NULL) {backtrace("stalin.sc", 24464, 847380); out_of_memory_error();} a42606->s0.tag = NATIVE_PROCEDURE_TYPE7421; a42606->s1.tag = NULL_TYPE; /* x304274 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42606; break; case NATIVE_PROCEDURE_TYPE6126: /* x297635 stalin.sc:24444:846803 */ /* x297634 stalin.sc:24444:846809 */ /* x297633 stalin.sc:24444:846804 */ a42607 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42607==NULL) {backtrace("stalin.sc", 24444, 846803); out_of_memory_error();} a42607->s0.tag = NATIVE_PROCEDURE_TYPE7423; a42607->s1.tag = NULL_TYPE; /* x304276 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42607; break; case NATIVE_PROCEDURE_TYPE6127: /* x297639 stalin.sc:24443:846778 */ /* x297638 stalin.sc:24443:846784 */ /* x297637 stalin.sc:24443:846779 */ a42608 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42608==NULL) {backtrace("stalin.sc", 24443, 846778); out_of_memory_error();} a42608->s0.tag = NATIVE_PROCEDURE_TYPE7423; a42608->s1.tag = NULL_TYPE; /* x304278 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42608; break; case NATIVE_PROCEDURE_TYPE6132: /* x297643 stalin.sc:24424:846230 */ /* x297642 stalin.sc:24424:846236 */ /* x297641 stalin.sc:24424:846231 */ a42609 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42609==NULL) {backtrace("stalin.sc", 24424, 846230); out_of_memory_error();} a42609->s0.tag = NATIVE_PROCEDURE_TYPE7423; a42609->s1.tag = NULL_TYPE; /* x304280 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42609; break; case NATIVE_PROCEDURE_TYPE6133: /* x297647 stalin.sc:24423:846205 */ /* x297646 stalin.sc:24423:846211 */ /* x297645 stalin.sc:24423:846206 */ a42610 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42610==NULL) {backtrace("stalin.sc", 24423, 846205); out_of_memory_error();} a42610->s0.tag = NATIVE_PROCEDURE_TYPE7423; a42610->s1.tag = NULL_TYPE; /* x304282 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42610; break; case NATIVE_PROCEDURE_TYPE6138: /* x297651 stalin.sc:24402:845616 */ /* x297650 stalin.sc:24402:845622 */ /* x297649 stalin.sc:24402:845617 */ a42611 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42611==NULL) {backtrace("stalin.sc", 24402, 845616); out_of_memory_error();} a42611->s0.tag = NATIVE_PROCEDURE_TYPE7422; a42611->s1.tag = NULL_TYPE; /* x304284 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42611; break; case NATIVE_PROCEDURE_TYPE6139: /* x297655 stalin.sc:24401:845590 */ /* x297654 stalin.sc:24401:845596 */ /* x297653 stalin.sc:24401:845591 */ a42612 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42612==NULL) {backtrace("stalin.sc", 24401, 845590); out_of_memory_error();} a42612->s0.tag = NATIVE_PROCEDURE_TYPE7422; a42612->s1.tag = NULL_TYPE; /* x304286 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42612; break; case NATIVE_PROCEDURE_TYPE6144: /* x297659 stalin.sc:24380:844997 */ /* x297658 stalin.sc:24380:845003 */ /* x297657 stalin.sc:24380:844998 */ a42613 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42613==NULL) {backtrace("stalin.sc", 24380, 844997); out_of_memory_error();} a42613->s0.tag = NATIVE_PROCEDURE_TYPE7423; a42613->s1.tag = NULL_TYPE; /* x304288 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42613; break; case NATIVE_PROCEDURE_TYPE6145: /* x297663 stalin.sc:24379:844972 */ /* x297662 stalin.sc:24379:844978 */ /* x297661 stalin.sc:24379:844973 */ a42614 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42614==NULL) {backtrace("stalin.sc", 24379, 844972); out_of_memory_error();} a42614->s0.tag = NATIVE_PROCEDURE_TYPE7423; a42614->s1.tag = NULL_TYPE; /* x304290 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42614; break; case NATIVE_PROCEDURE_TYPE6150: /* x297667 stalin.sc:24336:843675 */ /* x297666 stalin.sc:24336:843681 */ /* x297665 stalin.sc:24336:843676 */ a42615 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42615==NULL) {backtrace("stalin.sc", 24336, 843675); out_of_memory_error();} a42615->s0.tag = NATIVE_PROCEDURE_TYPE7822; a42615->s1.tag = NULL_TYPE; /* x304292 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42615; break; case NATIVE_PROCEDURE_TYPE6151: /* x297671 stalin.sc:24335:843654 */ /* x297670 stalin.sc:24335:843660 */ /* x297669 stalin.sc:24335:843655 */ a42616 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42616==NULL) {backtrace("stalin.sc", 24335, 843654); out_of_memory_error();} a42616->s0.tag = NATIVE_PROCEDURE_TYPE7822; a42616->s1.tag = NULL_TYPE; /* x304294 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42616; break; case NATIVE_PROCEDURE_TYPE6156: /* x297675 stalin.sc:24293:842374 */ /* x297674 stalin.sc:24293:842380 */ /* x297673 stalin.sc:24293:842375 */ a42617 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42617==NULL) {backtrace("stalin.sc", 24293, 842374); out_of_memory_error();} a42617->s0.tag = NATIVE_PROCEDURE_TYPE7822; a42617->s1.tag = NULL_TYPE; /* x304296 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42617; break; case NATIVE_PROCEDURE_TYPE6157: /* x297679 stalin.sc:24292:842353 */ /* x297678 stalin.sc:24292:842359 */ /* x297677 stalin.sc:24292:842354 */ a42618 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42618==NULL) {backtrace("stalin.sc", 24292, 842353); out_of_memory_error();} a42618->s0.tag = NATIVE_PROCEDURE_TYPE7822; a42618->s1.tag = NULL_TYPE; /* x304298 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42618; break; case NATIVE_PROCEDURE_TYPE6162: t76475 = f17915(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76475; break; case NATIVE_PROCEDURE_TYPE6163: /* x297683 stalin.sc:24278:841854 */ /* x297682 stalin.sc:24278:841860 */ /* x297681 stalin.sc:24278:841855 */ a42619 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42619==NULL) {backtrace("stalin.sc", 24278, 841854); out_of_memory_error();} a42619->s0.tag = NATIVE_PROCEDURE_TYPE7422; a42619->s1.tag = NULL_TYPE; /* x304300 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42619; break; case NATIVE_PROCEDURE_TYPE6168: t76476 = f17903(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76476; break; case NATIVE_PROCEDURE_TYPE6169: /* x297687 stalin.sc:24265:841378 */ /* x297686 stalin.sc:24265:841384 */ /* x297685 stalin.sc:24265:841379 */ a42620 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42620==NULL) {backtrace("stalin.sc", 24265, 841378); out_of_memory_error();} a42620->s0.tag = NATIVE_PROCEDURE_TYPE7423; a42620->s1.tag = NULL_TYPE; /* x304302 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42620; break; case NATIVE_PROCEDURE_TYPE6174: t76477 = f17844(t76463, t76466); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76477; break; case NATIVE_PROCEDURE_TYPE6175: t76478 = f17843(t76463, t76466); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76478; break; case NATIVE_PROCEDURE_TYPE6180: t76479 = f17827(t76465); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76479; break; case NATIVE_PROCEDURE_TYPE6181: t76480 = f17825(t76465); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76480; break; case NATIVE_PROCEDURE_TYPE6186: t76481 = f17810(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76481; break; case NATIVE_PROCEDURE_TYPE6187: /* x297691 stalin.sc:24020:833201 */ /* x297690 stalin.sc:24020:833207 */ /* x297689 stalin.sc:24020:833202 */ a42621 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42621==NULL) {backtrace("stalin.sc", 24020, 833201); out_of_memory_error();} a42621->s0.tag = NATIVE_PROCEDURE_TYPE7415; a42621->s1.tag = NULL_TYPE; /* x304304 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42621; break; case NATIVE_PROCEDURE_TYPE6192: t76482 = f17790(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76482; break; case NATIVE_PROCEDURE_TYPE6193: t76483 = f17789(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76483; break; case NATIVE_PROCEDURE_TYPE6198: t76484 = f17764(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76484; break; case NATIVE_PROCEDURE_TYPE6199: t76485 = f17763(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76485; break; case NATIVE_PROCEDURE_TYPE6204: /* x297695 stalin.sc:23882:829631 */ /* x297694 stalin.sc:23882:829637 */ /* x297693 stalin.sc:23882:829632 */ a42622 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42622==NULL) {backtrace("stalin.sc", 23882, 829631); out_of_memory_error();} a42622->s0.tag = NATIVE_PROCEDURE_TYPE7406; a42622->s1.tag = NULL_TYPE; /* x304306 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42622; break; case NATIVE_PROCEDURE_TYPE6205: /* x297699 stalin.sc:23881:829610 */ /* x297698 stalin.sc:23881:829616 */ /* x297697 stalin.sc:23881:829611 */ a42623 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42623==NULL) {backtrace("stalin.sc", 23881, 829610); out_of_memory_error();} a42623->s0.tag = NATIVE_PROCEDURE_TYPE7406; a42623->s1.tag = NULL_TYPE; /* x304308 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42623; break; case NATIVE_PROCEDURE_TYPE6210: t76424 = f17722(t76465); break; case NATIVE_PROCEDURE_TYPE6211: t76424 = f17720(t76465); break; case NATIVE_PROCEDURE_TYPE6216: t76486 = f17697(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76486; break; case NATIVE_PROCEDURE_TYPE6217: t76487 = f17696(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76487; break; case NATIVE_PROCEDURE_TYPE6222: t76488 = f17656(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76488; break; case NATIVE_PROCEDURE_TYPE6223: t76489 = f17655(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76489; break; case NATIVE_PROCEDURE_TYPE6228: t76490 = f17644(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76490; break; case NATIVE_PROCEDURE_TYPE6229: /* x297811 stalin.sc:23632:822404 */ /* x297810 stalin.sc:23632:822410 */ /* x297809 stalin.sc:23632:822405 */ a42624 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42624==NULL) {backtrace("stalin.sc", 23632, 822404); out_of_memory_error();} a42624->s0.tag = NATIVE_PROCEDURE_TYPE7406; a42624->s1.tag = NULL_TYPE; /* x304310 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42624; break; case NATIVE_PROCEDURE_TYPE6234: t76491 = f17631(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76491; break; case NATIVE_PROCEDURE_TYPE6235: t76492 = f17630(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76492; break; case NATIVE_PROCEDURE_TYPE6240: t76493 = f17616(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76493; break; case NATIVE_PROCEDURE_TYPE6241: t76494 = f17615(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76494; break; case NATIVE_PROCEDURE_TYPE6246: /* x297815 stalin.sc:23533:819931 */ /* x297814 stalin.sc:23533:819937 */ /* x297813 stalin.sc:23533:819932 */ a42625 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42625==NULL) {backtrace("stalin.sc", 23533, 819931); out_of_memory_error();} a42625->s0.tag = NATIVE_PROCEDURE_TYPE7822; a42625->s1.tag = NULL_TYPE; /* x304312 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42625; break; case NATIVE_PROCEDURE_TYPE6247: /* x297819 stalin.sc:23532:819910 */ /* x297818 stalin.sc:23532:819916 */ /* x297817 stalin.sc:23532:819911 */ a42626 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42626==NULL) {backtrace("stalin.sc", 23532, 819910); out_of_memory_error();} a42626->s0.tag = NATIVE_PROCEDURE_TYPE7822; a42626->s1.tag = NULL_TYPE; /* x304314 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42626; break; case NATIVE_PROCEDURE_TYPE6252: t76424 = f17583(t76465); break; case NATIVE_PROCEDURE_TYPE6253: t76424 = f17581(t76465); break; case NATIVE_PROCEDURE_TYPE6258: t76495 = f17549(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76495; break; case NATIVE_PROCEDURE_TYPE6259: t76496 = f17548(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76496; break; case NATIVE_PROCEDURE_TYPE6264: t76497 = f17537(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76497; break; case NATIVE_PROCEDURE_TYPE6265: /* x297874 stalin.sc:23367:815132 */ /* x297873 stalin.sc:23367:815138 */ /* x297872 stalin.sc:23367:815133 */ a42627 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42627==NULL) {backtrace("stalin.sc", 23367, 815132); out_of_memory_error();} a42627->s0.tag = NATIVE_PROCEDURE_TYPE7822; a42627->s1.tag = NULL_TYPE; /* x304316 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42627; break; case NATIVE_PROCEDURE_TYPE6270: /* x297878 stalin.sc:23344:814532 */ /* x297877 stalin.sc:23344:814538 */ /* x297876 stalin.sc:23344:814533 */ a42628 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42628==NULL) {backtrace("stalin.sc", 23344, 814532); out_of_memory_error();} a42628->s0.tag = NATIVE_PROCEDURE_TYPE7430; a42628->s1.tag = NULL_TYPE; /* x304318 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42628; break; case NATIVE_PROCEDURE_TYPE6271: /* x297882 stalin.sc:23343:814511 */ /* x297881 stalin.sc:23343:814517 */ /* x297880 stalin.sc:23343:814512 */ a42629 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42629==NULL) {backtrace("stalin.sc", 23343, 814511); out_of_memory_error();} a42629->s0.tag = NATIVE_PROCEDURE_TYPE7430; a42629->s1.tag = NULL_TYPE; /* x304320 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42629; break; case NATIVE_PROCEDURE_TYPE6276: /* x297886 stalin.sc:23327:814100 */ /* x297885 stalin.sc:23327:814106 */ /* x297884 stalin.sc:23327:814101 */ a42630 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42630==NULL) {backtrace("stalin.sc", 23327, 814100); out_of_memory_error();} a42630->s0.tag = NATIVE_PROCEDURE_TYPE7431; a42630->s1.tag = NULL_TYPE; /* x304322 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42630; break; case NATIVE_PROCEDURE_TYPE6277: /* x297890 stalin.sc:23326:814081 */ /* x297889 stalin.sc:23326:814087 */ /* x297888 stalin.sc:23326:814082 */ a42631 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42631==NULL) {backtrace("stalin.sc", 23326, 814081); out_of_memory_error();} a42631->s0.tag = NATIVE_PROCEDURE_TYPE7431; a42631->s1.tag = NULL_TYPE; /* x304324 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42631; break; case NATIVE_PROCEDURE_TYPE6282: t76498 = f17507(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76498; break; case NATIVE_PROCEDURE_TYPE6283: /* x297894 stalin.sc:23313:813635 */ /* x297893 stalin.sc:23313:813641 */ /* x297892 stalin.sc:23313:813636 */ a42632 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42632==NULL) {backtrace("stalin.sc", 23313, 813635); out_of_memory_error();} a42632->s0.tag = NATIVE_PROCEDURE_TYPE7431; a42632->s1.tag = NULL_TYPE; /* x304326 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42632; break; case NATIVE_PROCEDURE_TYPE6288: /* x297898 stalin.sc:23288:812923 */ /* x297897 stalin.sc:23288:812929 */ /* x297896 stalin.sc:23288:812924 */ a42633 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42633==NULL) {backtrace("stalin.sc", 23288, 812923); out_of_memory_error();} a42633->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42633->s1.tag = NULL_TYPE; /* x304328 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42633; break; case NATIVE_PROCEDURE_TYPE6289: /* x297902 stalin.sc:23287:812902 */ /* x297901 stalin.sc:23287:812908 */ /* x297900 stalin.sc:23287:812903 */ a42634 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42634==NULL) {backtrace("stalin.sc", 23287, 812902); out_of_memory_error();} a42634->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42634->s1.tag = NULL_TYPE; /* x304330 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42634; break; case NATIVE_PROCEDURE_TYPE6294: /* x297906 stalin.sc:23263:812181 */ /* x297905 stalin.sc:23263:812187 */ /* x297904 stalin.sc:23263:812182 */ a42635 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42635==NULL) {backtrace("stalin.sc", 23263, 812181); out_of_memory_error();} a42635->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42635->s1.tag = NULL_TYPE; /* x304332 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42635; break; case NATIVE_PROCEDURE_TYPE6295: /* x297910 stalin.sc:23262:812160 */ /* x297909 stalin.sc:23262:812166 */ /* x297908 stalin.sc:23262:812161 */ a42636 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42636==NULL) {backtrace("stalin.sc", 23262, 812160); out_of_memory_error();} a42636->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42636->s1.tag = NULL_TYPE; /* x304334 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42636; break; case NATIVE_PROCEDURE_TYPE6300: t76499 = f17455(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76499; break; case NATIVE_PROCEDURE_TYPE6301: t76500 = f17454(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76500; break; case NATIVE_PROCEDURE_TYPE6306: /* x297914 stalin.sc:23181:808870 */ /* x297913 stalin.sc:23181:808876 */ /* x297912 stalin.sc:23181:808871 */ a42637 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42637==NULL) {backtrace("stalin.sc", 23181, 808870); out_of_memory_error();} a42637->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42637->s1.tag = NULL_TYPE; /* x304336 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42637; break; case NATIVE_PROCEDURE_TYPE6307: /* x297918 stalin.sc:23180:808849 */ /* x297917 stalin.sc:23180:808855 */ /* x297916 stalin.sc:23180:808850 */ a42638 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42638==NULL) {backtrace("stalin.sc", 23180, 808849); out_of_memory_error();} a42638->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42638->s1.tag = NULL_TYPE; /* x304338 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42638; break; case NATIVE_PROCEDURE_TYPE6312: t76501 = f17420(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76501; break; case NATIVE_PROCEDURE_TYPE6313: t76502 = f17419(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76502; break; case NATIVE_PROCEDURE_TYPE6318: /* x297922 stalin.sc:23093:805833 */ /* x297921 stalin.sc:23093:805839 */ /* x297920 stalin.sc:23093:805834 */ a42639 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42639==NULL) {backtrace("stalin.sc", 23093, 805833); out_of_memory_error();} a42639->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42639->s1.tag = NULL_TYPE; /* x304340 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42639; break; case NATIVE_PROCEDURE_TYPE6319: /* x297926 stalin.sc:23092:805812 */ /* x297925 stalin.sc:23092:805818 */ /* x297924 stalin.sc:23092:805813 */ a42640 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42640==NULL) {backtrace("stalin.sc", 23092, 805812); out_of_memory_error();} a42640->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42640->s1.tag = NULL_TYPE; /* x304342 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42640; break; case NATIVE_PROCEDURE_TYPE6324: /* x297930 stalin.sc:23058:804284 */ /* x297929 stalin.sc:23058:804290 */ /* x297928 stalin.sc:23058:804285 */ a42641 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42641==NULL) {backtrace("stalin.sc", 23058, 804284); out_of_memory_error();} a42641->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42641->s1.tag = NULL_TYPE; /* x304344 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42641; break; case NATIVE_PROCEDURE_TYPE6325: /* x297934 stalin.sc:23057:804263 */ /* x297933 stalin.sc:23057:804269 */ /* x297932 stalin.sc:23057:804264 */ a42642 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42642==NULL) {backtrace("stalin.sc", 23057, 804263); out_of_memory_error();} a42642->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42642->s1.tag = NULL_TYPE; /* x304346 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42642; break; case NATIVE_PROCEDURE_TYPE6330: /* x297938 stalin.sc:23023:802730 */ /* x297937 stalin.sc:23023:802736 */ /* x297936 stalin.sc:23023:802731 */ a42643 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42643==NULL) {backtrace("stalin.sc", 23023, 802730); out_of_memory_error();} a42643->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42643->s1.tag = NULL_TYPE; /* x304348 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42643; break; case NATIVE_PROCEDURE_TYPE6331: /* x297942 stalin.sc:23022:802709 */ /* x297941 stalin.sc:23022:802715 */ /* x297940 stalin.sc:23022:802710 */ a42644 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42644==NULL) {backtrace("stalin.sc", 23022, 802709); out_of_memory_error();} a42644->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42644->s1.tag = NULL_TYPE; /* x304350 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42644; break; case NATIVE_PROCEDURE_TYPE6336: /* x297946 stalin.sc:23001:802114 */ /* x297945 stalin.sc:23001:802120 */ /* x297944 stalin.sc:23001:802115 */ a42645 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42645==NULL) {backtrace("stalin.sc", 23001, 802114); out_of_memory_error();} a42645->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42645->s1.tag = NULL_TYPE; /* x304352 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42645; break; case NATIVE_PROCEDURE_TYPE6337: /* x297950 stalin.sc:23000:802093 */ /* x297949 stalin.sc:23000:802099 */ /* x297948 stalin.sc:23000:802094 */ a42646 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42646==NULL) {backtrace("stalin.sc", 23000, 802093); out_of_memory_error();} a42646->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42646->s1.tag = NULL_TYPE; /* x304354 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42646; break; case NATIVE_PROCEDURE_TYPE6342: /* x297954 stalin.sc:22979:801498 */ /* x297953 stalin.sc:22979:801504 */ /* x297952 stalin.sc:22979:801499 */ a42647 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42647==NULL) {backtrace("stalin.sc", 22979, 801498); out_of_memory_error();} a42647->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42647->s1.tag = NULL_TYPE; /* x304356 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42647; break; case NATIVE_PROCEDURE_TYPE6343: /* x297958 stalin.sc:22978:801477 */ /* x297957 stalin.sc:22978:801483 */ /* x297956 stalin.sc:22978:801478 */ a42648 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42648==NULL) {backtrace("stalin.sc", 22978, 801477); out_of_memory_error();} a42648->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42648->s1.tag = NULL_TYPE; /* x304358 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42648; break; case NATIVE_PROCEDURE_TYPE6348: /* x297962 stalin.sc:22957:800882 */ /* x297961 stalin.sc:22957:800888 */ /* x297960 stalin.sc:22957:800883 */ a42649 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42649==NULL) {backtrace("stalin.sc", 22957, 800882); out_of_memory_error();} a42649->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42649->s1.tag = NULL_TYPE; /* x304360 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42649; break; case NATIVE_PROCEDURE_TYPE6349: /* x297966 stalin.sc:22956:800861 */ /* x297965 stalin.sc:22956:800867 */ /* x297964 stalin.sc:22956:800862 */ a42650 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42650==NULL) {backtrace("stalin.sc", 22956, 800861); out_of_memory_error();} a42650->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42650->s1.tag = NULL_TYPE; /* x304362 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42650; break; case NATIVE_PROCEDURE_TYPE6354: /* x297970 stalin.sc:22922:799319 */ /* x297969 stalin.sc:22922:799325 */ /* x297968 stalin.sc:22922:799320 */ a42651 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42651==NULL) {backtrace("stalin.sc", 22922, 799319); out_of_memory_error();} a42651->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42651->s1.tag = NULL_TYPE; /* x304364 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42651; break; case NATIVE_PROCEDURE_TYPE6355: /* x297974 stalin.sc:22921:799298 */ /* x297973 stalin.sc:22921:799304 */ /* x297972 stalin.sc:22921:799299 */ a42652 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42652==NULL) {backtrace("stalin.sc", 22921, 799298); out_of_memory_error();} a42652->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42652->s1.tag = NULL_TYPE; /* x304366 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42652; break; case NATIVE_PROCEDURE_TYPE6360: /* x297978 stalin.sc:22890:798365 */ /* x297977 stalin.sc:22890:798371 */ /* x297976 stalin.sc:22890:798366 */ a42653 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42653==NULL) {backtrace("stalin.sc", 22890, 798365); out_of_memory_error();} a42653->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42653->s1.tag = NULL_TYPE; /* x304368 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42653; break; case NATIVE_PROCEDURE_TYPE6361: /* x297982 stalin.sc:22889:798344 */ /* x297981 stalin.sc:22889:798350 */ /* x297980 stalin.sc:22889:798345 */ a42654 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42654==NULL) {backtrace("stalin.sc", 22889, 798344); out_of_memory_error();} a42654->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42654->s1.tag = NULL_TYPE; /* x304370 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42654; break; case NATIVE_PROCEDURE_TYPE6366: /* x297986 stalin.sc:22850:797206 */ /* x297985 stalin.sc:22850:797212 */ /* x297984 stalin.sc:22850:797207 */ a42655 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42655==NULL) {backtrace("stalin.sc", 22850, 797206); out_of_memory_error();} a42655->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42655->s1.tag = NULL_TYPE; /* x304372 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42655; break; case NATIVE_PROCEDURE_TYPE6367: /* x297990 stalin.sc:22849:797185 */ /* x297989 stalin.sc:22849:797191 */ /* x297988 stalin.sc:22849:797186 */ a42656 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42656==NULL) {backtrace("stalin.sc", 22849, 797185); out_of_memory_error();} a42656->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42656->s1.tag = NULL_TYPE; /* x304374 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42656; break; case NATIVE_PROCEDURE_TYPE6372: /* x297994 stalin.sc:22818:796243 */ /* x297993 stalin.sc:22818:796249 */ /* x297992 stalin.sc:22818:796244 */ a42657 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42657==NULL) {backtrace("stalin.sc", 22818, 796243); out_of_memory_error();} a42657->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42657->s1.tag = NULL_TYPE; /* x304376 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42657; break; case NATIVE_PROCEDURE_TYPE6373: /* x297998 stalin.sc:22817:796222 */ /* x297997 stalin.sc:22817:796228 */ /* x297996 stalin.sc:22817:796223 */ a42658 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42658==NULL) {backtrace("stalin.sc", 22817, 796222); out_of_memory_error();} a42658->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42658->s1.tag = NULL_TYPE; /* x304378 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42658; break; case NATIVE_PROCEDURE_TYPE6378: /* x298002 stalin.sc:22785:795292 */ /* x298001 stalin.sc:22785:795298 */ /* x298000 stalin.sc:22785:795293 */ a42659 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42659==NULL) {backtrace("stalin.sc", 22785, 795292); out_of_memory_error();} a42659->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42659->s1.tag = NULL_TYPE; /* x304380 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42659; break; case NATIVE_PROCEDURE_TYPE6379: /* x298006 stalin.sc:22784:795271 */ /* x298005 stalin.sc:22784:795277 */ /* x298004 stalin.sc:22784:795272 */ a42660 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42660==NULL) {backtrace("stalin.sc", 22784, 795271); out_of_memory_error();} a42660->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42660->s1.tag = NULL_TYPE; /* x304382 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42660; break; case NATIVE_PROCEDURE_TYPE6384: t76424 = f17245(t76465); break; case NATIVE_PROCEDURE_TYPE6385: t76424 = f17243(t76465); break; case NATIVE_PROCEDURE_TYPE6390: t76424 = f17229(t76465); break; case NATIVE_PROCEDURE_TYPE6391: t76424 = f17227(t76465); break; case NATIVE_PROCEDURE_TYPE6396: t76424 = f17213(t76465); break; case NATIVE_PROCEDURE_TYPE6397: t76424 = f17211(t76465); break; case NATIVE_PROCEDURE_TYPE6402: /* x298010 stalin.sc:22698:792350 */ /* x298009 stalin.sc:22698:792356 */ /* x298008 stalin.sc:22698:792351 */ a42661 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42661==NULL) {backtrace("stalin.sc", 22698, 792350); out_of_memory_error();} a42661->s0.tag = NATIVE_PROCEDURE_TYPE7430; a42661->s1.tag = NULL_TYPE; /* x304384 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42661; break; case NATIVE_PROCEDURE_TYPE6403: /* x298014 stalin.sc:22697:792329 */ /* x298013 stalin.sc:22697:792335 */ /* x298012 stalin.sc:22697:792330 */ a42662 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42662==NULL) {backtrace("stalin.sc", 22697, 792329); out_of_memory_error();} a42662->s0.tag = NATIVE_PROCEDURE_TYPE7430; a42662->s1.tag = NULL_TYPE; /* x304386 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42662; break; case NATIVE_PROCEDURE_TYPE6408: t76503 = f17170(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76503; break; case NATIVE_PROCEDURE_TYPE6409: t76504 = f17169(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76504; break; case NATIVE_PROCEDURE_TYPE6414: t76505 = f17137(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76505; break; case NATIVE_PROCEDURE_TYPE6415: t76506 = f17136(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76506; break; case NATIVE_PROCEDURE_TYPE6420: t76507 = f17104(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76507; break; case NATIVE_PROCEDURE_TYPE6421: t76508 = f17103(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76508; break; case NATIVE_PROCEDURE_TYPE6426: t76509 = f17071(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76509; break; case NATIVE_PROCEDURE_TYPE6427: t76510 = f17070(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76510; break; case NATIVE_PROCEDURE_TYPE6432: t76424 = f17043(t76465); break; case NATIVE_PROCEDURE_TYPE6433: t76424 = f17041(t76465); break; case NATIVE_PROCEDURE_TYPE6438: t76424 = f17000(t76465); break; case NATIVE_PROCEDURE_TYPE6439: t76424 = f16998(t76465); break; case NATIVE_PROCEDURE_TYPE6444: t76424 = f16959(t76465); break; case NATIVE_PROCEDURE_TYPE6445: t76424 = f16957(t76465); break; case NATIVE_PROCEDURE_TYPE6450: t76424 = f16918(t76465); break; case NATIVE_PROCEDURE_TYPE6451: t76424 = f16916(t76465); break; case NATIVE_PROCEDURE_TYPE6456: t76424 = f16890(t76465); break; case NATIVE_PROCEDURE_TYPE6457: t76424 = f16888(t76465); break; case NATIVE_PROCEDURE_TYPE6462: t76424 = f16862(t76465); break; case NATIVE_PROCEDURE_TYPE6463: t76424 = f16860(t76465); break; case NATIVE_PROCEDURE_TYPE6468: /* x298018 stalin.sc:22066:771787 */ /* x298017 stalin.sc:22066:771793 */ /* x298016 stalin.sc:22066:771788 */ a42663 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42663==NULL) {backtrace("stalin.sc", 22066, 771787); out_of_memory_error();} a42663->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42663->s1.tag = NULL_TYPE; /* x304388 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42663; break; case NATIVE_PROCEDURE_TYPE6469: /* x298022 stalin.sc:22065:771766 */ /* x298021 stalin.sc:22065:771772 */ /* x298020 stalin.sc:22065:771767 */ a42664 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42664==NULL) {backtrace("stalin.sc", 22065, 771766); out_of_memory_error();} a42664->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42664->s1.tag = NULL_TYPE; /* x304390 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42664; break; case NATIVE_PROCEDURE_TYPE6474: /* x298026 stalin.sc:22038:770986 */ /* x298025 stalin.sc:22038:770992 */ /* x298024 stalin.sc:22038:770987 */ a42665 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42665==NULL) {backtrace("stalin.sc", 22038, 770986); out_of_memory_error();} a42665->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42665->s1.tag = NULL_TYPE; /* x304392 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42665; break; case NATIVE_PROCEDURE_TYPE6475: /* x298030 stalin.sc:22037:770965 */ /* x298029 stalin.sc:22037:770971 */ /* x298028 stalin.sc:22037:770966 */ a42666 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42666==NULL) {backtrace("stalin.sc", 22037, 770965); out_of_memory_error();} a42666->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42666->s1.tag = NULL_TYPE; /* x304394 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42666; break; case NATIVE_PROCEDURE_TYPE6480: t76511 = f16805(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76511; break; case NATIVE_PROCEDURE_TYPE6481: t76512 = f16799(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76512; break; case NATIVE_PROCEDURE_TYPE6486: t76424 = f16785(t76465); break; case NATIVE_PROCEDURE_TYPE6487: t76424 = f16783(t76465); break; case NATIVE_PROCEDURE_TYPE6492: t76424 = f16774(t76465); break; case NATIVE_PROCEDURE_TYPE6493: t76424 = f16772(t76465); break; case NATIVE_PROCEDURE_TYPE6498: t76424 = f16763(t76465); break; case NATIVE_PROCEDURE_TYPE6499: t76424 = f16761(t76465); break; case NATIVE_PROCEDURE_TYPE6504: t76424 = f16752(t76465); break; case NATIVE_PROCEDURE_TYPE6505: t76424 = f16750(t76465); break; case NATIVE_PROCEDURE_TYPE6510: t76424 = f16741(t76465); break; case NATIVE_PROCEDURE_TYPE6511: t76424 = f16739(t76465); break; case NATIVE_PROCEDURE_TYPE6516: /* x298034 stalin.sc:21909:766906 */ /* x298033 stalin.sc:21909:766912 */ /* x298032 stalin.sc:21909:766907 */ a42667 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42667==NULL) {backtrace("stalin.sc", 21909, 766906); out_of_memory_error();} a42667->s0.tag = NATIVE_PROCEDURE_TYPE7430; a42667->s1.tag = NULL_TYPE; /* x304396 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42667; break; case NATIVE_PROCEDURE_TYPE6517: t76513 = f16723(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76513; break; case NATIVE_PROCEDURE_TYPE6522: t76514 = f16708(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76514; break; case NATIVE_PROCEDURE_TYPE6523: /* x298038 stalin.sc:21890:766258 */ /* x298037 stalin.sc:21890:766264 */ /* x298036 stalin.sc:21890:766259 */ a42668 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42668==NULL) {backtrace("stalin.sc", 21890, 766258); out_of_memory_error();} a42668->s0.tag = NATIVE_PROCEDURE_TYPE7430; a42668->s1.tag = NULL_TYPE; /* x304398 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42668; break; case NATIVE_PROCEDURE_TYPE6528: t76515 = f16685(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76515; break; case NATIVE_PROCEDURE_TYPE6529: /* x298099 stalin.sc:21860:765294 */ /* x298098 stalin.sc:21860:765300 */ /* x298097 stalin.sc:21860:765295 */ a42669 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42669==NULL) {backtrace("stalin.sc", 21860, 765294); out_of_memory_error();} a42669->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42669->s1.tag = NULL_TYPE; /* x304400 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42669; break; case NATIVE_PROCEDURE_TYPE6534: t76516 = f16663(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76516; break; case NATIVE_PROCEDURE_TYPE6535: /* x298160 stalin.sc:21833:764403 */ /* x298159 stalin.sc:21833:764409 */ /* x298158 stalin.sc:21833:764404 */ a42670 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42670==NULL) {backtrace("stalin.sc", 21833, 764403); out_of_memory_error();} a42670->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42670->s1.tag = NULL_TYPE; /* x304402 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42670; break; case NATIVE_PROCEDURE_TYPE6540: t76517 = f16651(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76517; break; case NATIVE_PROCEDURE_TYPE6541: /* x298164 stalin.sc:21820:763958 */ /* x298163 stalin.sc:21820:763964 */ /* x298162 stalin.sc:21820:763959 */ a42671 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42671==NULL) {backtrace("stalin.sc", 21820, 763958); out_of_memory_error();} a42671->s0.tag = NATIVE_PROCEDURE_TYPE7426; a42671->s1.tag = NULL_TYPE; /* x304404 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42671; break; case NATIVE_PROCEDURE_TYPE6546: /* x298168 stalin.sc:21796:763395 */ /* x298167 stalin.sc:21796:763401 */ /* x298166 stalin.sc:21796:763396 */ a42672 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42672==NULL) {backtrace("stalin.sc", 21796, 763395); out_of_memory_error();} a42672->s0.tag = NATIVE_PROCEDURE_TYPE7822; a42672->s1.tag = NULL_TYPE; /* x304406 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42672; break; case NATIVE_PROCEDURE_TYPE6547: /* x298172 stalin.sc:21795:763374 */ /* x298171 stalin.sc:21795:763380 */ /* x298170 stalin.sc:21795:763375 */ a42673 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42673==NULL) {backtrace("stalin.sc", 21795, 763374); out_of_memory_error();} a42673->s0.tag = NATIVE_PROCEDURE_TYPE7822; a42673->s1.tag = NULL_TYPE; /* x304408 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42673; break; case NATIVE_PROCEDURE_TYPE6552: /* x298176 stalin.sc:21772:762737 */ /* x298175 stalin.sc:21772:762743 */ /* x298174 stalin.sc:21772:762738 */ a42674 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42674==NULL) {backtrace("stalin.sc", 21772, 762737); out_of_memory_error();} a42674->s0.tag = NATIVE_PROCEDURE_TYPE7418; a42674->s1.tag = NULL_TYPE; /* x304410 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42674; break; case NATIVE_PROCEDURE_TYPE6553: /* x298180 stalin.sc:21771:762716 */ /* x298179 stalin.sc:21771:762722 */ /* x298178 stalin.sc:21771:762717 */ a42675 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42675==NULL) {backtrace("stalin.sc", 21771, 762716); out_of_memory_error();} a42675->s0.tag = NATIVE_PROCEDURE_TYPE7418; a42675->s1.tag = NULL_TYPE; /* x304412 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42675; break; case NATIVE_PROCEDURE_TYPE6558: t76518 = f16613(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76518; break; case NATIVE_PROCEDURE_TYPE6559: /* x298184 stalin.sc:21758:762255 */ /* x298183 stalin.sc:21758:762261 */ /* x298182 stalin.sc:21758:762256 */ a42676 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42676==NULL) {backtrace("stalin.sc", 21758, 762255); out_of_memory_error();} a42676->s0.tag = NATIVE_PROCEDURE_TYPE7418; a42676->s1.tag = NULL_TYPE; /* x304414 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42676; break; case NATIVE_PROCEDURE_TYPE6564: t76519 = f16601(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76519; break; case NATIVE_PROCEDURE_TYPE6565: /* x298188 stalin.sc:21745:761820 */ /* x298187 stalin.sc:21745:761826 */ /* x298186 stalin.sc:21745:761821 */ a42677 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42677==NULL) {backtrace("stalin.sc", 21745, 761820); out_of_memory_error();} a42677->s0.tag = NATIVE_PROCEDURE_TYPE7435; a42677->s1.tag = NULL_TYPE; /* x304416 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42677; break; case NATIVE_PROCEDURE_TYPE6570: t76520 = f16460(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76520; break; case NATIVE_PROCEDURE_TYPE6571: t76521 = f16459(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76521; break; case NATIVE_PROCEDURE_TYPE6576: t76522 = f16448(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76522; break; case NATIVE_PROCEDURE_TYPE6577: /* x298192 stalin.sc:21247:742470 */ /* x298191 stalin.sc:21247:742476 */ /* x298190 stalin.sc:21247:742471 */ a42678 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42678==NULL) {backtrace("stalin.sc", 21247, 742470); out_of_memory_error();} a42678->s0.tag = NATIVE_PROCEDURE_TYPE7432; a42678->s1.tag = NULL_TYPE; /* x304418 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42678; break; case NATIVE_PROCEDURE_TYPE6582: t76523 = f16436(); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76523; break; case NATIVE_PROCEDURE_TYPE6583: /* x298196 stalin.sc:21234:742028 */ /* x298195 stalin.sc:21234:742034 */ /* x298194 stalin.sc:21234:742029 */ a42679 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42679==NULL) {backtrace("stalin.sc", 21234, 742028); out_of_memory_error();} a42679->s0.tag = NATIVE_PROCEDURE_TYPE7433; a42679->s1.tag = NULL_TYPE; /* x304420 */ t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = a42679; break; case NATIVE_PROCEDURE_TYPE6588: t76524 = f16420(t76464); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76524; break; case NATIVE_PROCEDURE_TYPE6589: t76525 = f16419(t76464); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76525; break; case NATIVE_PROCEDURE_TYPE6594: t76526 = f16404(t76464); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76526; break; case NATIVE_PROCEDURE_TYPE6595: t76527 = f16403(t76464); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76527; break; case NATIVE_PROCEDURE_TYPE6600: t76424 = f16375(t76465); break; case NATIVE_PROCEDURE_TYPE6601: t76424 = f16373(t76465); break; case NATIVE_PROCEDURE_TYPE6606: t76528 = f16362(t76464); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76528; break; default: t76529 = f16361(t76464); t76424.tag = STRUCTURE_TYPE24753; t76424.value.structure_type24753 = t76529;} /* x97482 */ /* x97481 */ /* x97480 */ /* x97479 */ t76458 = p10727->p10716; p10728 = t76458; /* x97478 */ /* x97477 */ /* x97476 */ /* x97429 */ t76459 = p10728; p10729 = t76459; /* x97428 stalin.sc:9127:312782 */ t76421 = p10729; p10730 = t76421; a23489 = t76422; a23490 = *((struct w49 *)(&t76423)); a23491 = *((struct w49 *)(&t76424)); h10730: /* x97475 stalin.sc:9142:313251 */ /* x97432 stalin.sc:9142:313255 */ /* x97431 stalin.sc:9142:313262 */ t76425 = a23490; /* x269699 stalin.sc:9142:313256 */ if (!((t76425.tag)==NULL_TYPE)) goto l13838; /* x97440 stalin.sc:9143:313273 */ /* x97434 stalin.sc:9143:313299 */ t76452 = a23489; /* x97435 stalin.sc:9143:313302 */ t76453 = p10730->a23479; /* x97438 stalin.sc:9143:313304 */ /* x97437 stalin.sc:9143:313323 */ t76456 = p10730->a23480; /* x97436 stalin.sc:9143:313305 */ a39727 = t76456; /* x291577 */ /* x291576 */ t76457 = a39727; /* x291575 */ if (!((t76457.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34644]"); structure_ref_error();} t76454 = t76457.value.structure_type27698->s11; /* x97439 stalin.sc:9143:313326 */ t76455 = p10730->a23481; /* x97433 stalin.sc:9143:313274 */ b23499 = t76452; b23500 = t76453; b23501 = t76454; b23502 = t76455; f10746(); goto l13839; l13838: /* x97474 stalin.sc:9144:313336 */ /* x97467 stalin.sc:9144:313342 */ /* x97459 stalin.sc:9144:313346 */ /* x97449 stalin.sc:9144:313351 */ /* x97447 stalin.sc:9144:313356 */ /* x97446 stalin.sc:9144:313373 */ /* x97445 stalin.sc:9144:313380 */ t76434 = *((struct w16638 *)(&a23490)); /* x97444 stalin.sc:9144:313374 */ a35721 = t76434; /* x274241 */ /* x274240 */ t76435 = a35721; /* x274239 */ if (!((t76435.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29870]"); structure_ref_error();} t76432 = t76435.value.structure_type24753->s0; /* x97443 stalin.sc:9144:313357 */ a40278 = t76432; /* x293781 */ /* x293780 */ t76433 = a40278; /* x293779 */ if (!((t76433.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35195]"); structure_ref_error();} t76430 = t76433.value.structure_type27698->s0; /* x97448 stalin.sc:9144:313385 */ t76431 = q38; /* x269698 stalin.sc:9144:313352 */ if (!(t76430==t76431)) goto l13841; /* x97457 */ /* x97455 stalin.sc:9145:313407 */ /* x97454 stalin.sc:9145:313428 */ /* x97453 stalin.sc:9145:313435 */ t76440 = *((struct w16638 *)(&a23490)); /* x97452 stalin.sc:9145:313429 */ a35720 = t76440; /* x274237 */ /* x274236 */ t76441 = a35720; /* x274235 */ if (!((t76441.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29869]"); structure_ref_error();} t76438 = t76441.value.structure_type24753->s0; /* x97451 stalin.sc:9145:313408 */ a39099 = t76438; /* x289065 */ /* x289064 */ t76439 = a39099; /* x289063 */ if (!((t76439.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34016]"); structure_ref_error();} t76436 = t76439.value.structure_type27698->s16; /* x97456 stalin.sc:9145:313440 */ t76437 = p10730->a23481; /* x269697 stalin.sc:9145:313403 */ /* EQ: dispatching general to general */ if (!((t76436.tag)==(t76437.tag))) goto l13841; switch (t76436.tag) {case FIXNUM_TYPE: if (!((t76436.value.fixnum_type)==(t76437.value.fixnum_type))) goto l13841; break; case FLONUM_TYPE: if (!((t76436.value.flonum_type)==(t76437.value.flonum_type))) goto l13841; break; case INPUT_PORT_TYPE: if (!((t76436.value.input_port_type)==(t76437.value.input_port_type))) goto l13841; break; case OUTPUT_PORT_TYPE: if (!((t76436.value.output_port_type)==(t76437.value.output_port_type))) goto l13841; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t76436.value.native_procedure_type15963)==(t76437.value.native_procedure_type15963))) goto l13841; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t76436.value.native_procedure_type19067)==(t76437.value.native_procedure_type19067))) goto l13841; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t76436.value.native_procedure_type19068)==(t76437.value.native_procedure_type19068))) goto l13841; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t76436.value.native_procedure_type22459)==(t76437.value.native_procedure_type22459))) goto l13841; break; case STRUCTURE_TYPE24753: if (!((t76436.value.structure_type24753)==(t76437.value.structure_type24753))) goto l13841; break; case STRUCTURE_TYPE24757: if (!((t76436.value.structure_type24757)==(t76437.value.structure_type24757))) goto l13841; break; case STRUCTURE_TYPE27501: if (!((t76436.value.structure_type27501)==(t76437.value.structure_type27501))) goto l13841; break; case STRUCTURE_TYPE27510: if (!((t76436.value.structure_type27510)==(t76437.value.structure_type27510))) goto l13841; break; case STRUCTURE_TYPE27621: if (!((t76436.value.structure_type27621)==(t76437.value.structure_type27621))) goto l13841; break; case STRUCTURE_TYPE27650: if (!((t76436.value.structure_type27650)==(t76437.value.structure_type27650))) goto l13841; break; case STRUCTURE_TYPE27669: if (!((t76436.value.structure_type27669)==(t76437.value.structure_type27669))) goto l13841; break; case STRUCTURE_TYPE27673: if (!((t76436.value.structure_type27673)==(t76437.value.structure_type27673))) goto l13841; break; case STRUCTURE_TYPE27692: if (!((t76436.value.structure_type27692)==(t76437.value.structure_type27692))) goto l13841; break; case STRUCTURE_TYPE27694: if (!((t76436.value.structure_type27694)==(t76437.value.structure_type27694))) goto l13841; break; case STRUCTURE_TYPE27698: if (!((t76436.value.structure_type27698)==(t76437.value.structure_type27698))) goto l13841; break; case STRUCTURE_TYPE27745: if (!((t76436.value.structure_type27745)==(t76437.value.structure_type27745))) goto l13841; break; case STRUCTURE_TYPE27747: if (!((t76436.value.structure_type27747)==(t76437.value.structure_type27747))) goto l13841; break; case STRUCTURE_TYPE27750: if (!((t76436.value.structure_type27750)==(t76437.value.structure_type27750))) goto l13841; break; case STRUCTURE_TYPE27753: if (!((t76436.value.structure_type27753)==(t76437.value.structure_type27753))) goto l13841; break; case STRUCTURE_TYPE27756: if (!((t76436.value.structure_type27756)==(t76437.value.structure_type27756))) goto l13841; break; case STRUCTURE_TYPE27761: if (!((t76436.value.structure_type27761)==(t76437.value.structure_type27761))) goto l13841; break; case STRUCTURE_TYPE27769: if (!((t76436.value.structure_type27769)==(t76437.value.structure_type27769))) goto l13841; break; case STRUCTURE_TYPE27776: if (!((t76436.value.structure_type27776)==(t76437.value.structure_type27776))) goto l13841; break; case STRUCTURE_TYPE27779: if (!((t76436.value.structure_type27779)==(t76437.value.structure_type27779))) goto l13841; break; case STRUCTURE_TYPE27858: if (!((t76436.value.structure_type27858)==(t76437.value.structure_type27858))) goto l13841; break; case STRING_TYPE: if (!((t76436.value.string_type)==(t76437.value.string_type))) goto l13841; break; case HEADED_VECTOR_TYPE27896: if (!((t76436.value.headed_vector_type27896)==(t76437.value.headed_vector_type27896))) goto l13841; break; case EXTERNAL_SYMBOL_TYPE: if (!((t76436.value.external_symbol_type)==(t76437.value.external_symbol_type))) goto l13841; break; case STRUCTURE_TYPE27908: if (!((t76436.value.structure_type27908)==(t76437.value.structure_type27908))) goto l13841; break; default:;} /* x97465 stalin.sc:9146:313454 */ /* x97463 stalin.sc:9146:313469 */ /* x97462 stalin.sc:9146:313476 */ t76446 = a23491; /* x97461 stalin.sc:9146:313470 */ a35719 = t76446; /* x274233 */ /* x274232 */ t76447 = a35719; /* x274231 */ if (!((t76447.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29868]"); structure_ref_error();} t76442 = t76447.value.structure_type24753->s0; /* x97464 stalin.sc:9146:313480 */ t76443 = a23489; /* x97460 stalin.sc:9146:313455 */ t76444 = *((struct w227671 *)(&t76442)); t76445 = *((struct w49 *)(&t76443)); t76427 = f1226(t76444, t76445); goto l13842; l13841: /* x97466 stalin.sc:9147:313494 */ t76427 = a23489; l13842: /* x97470 stalin.sc:9148:313504 */ /* x97469 stalin.sc:9148:313510 */ t76448 = *((struct w16638 *)(&a23490)); /* x97468 stalin.sc:9148:313505 */ a35363 = t76448; /* x272809 */ /* x272808 */ t76449 = a35363; /* x272807 */ if (!((t76449.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29512]"); structure_ref_error();} t76428 = t76449.value.structure_type24753->s1; /* x97473 stalin.sc:9149:313520 */ /* x97472 stalin.sc:9149:313526 */ t76450 = a23491; /* x97471 stalin.sc:9149:313521 */ a35364 = t76450; /* x272813 */ /* x272812 */ t76451 = a35364; /* x272811 */ if (!((t76451.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29513]"); structure_ref_error();} t76429 = t76451.value.structure_type24753->s1; /* x97441 stalin.sc:9144:313337 */ t76426 = p10730; p10730 = t76426; a23489 = t76427; a23490 = t76428; a23491 = t76429; goto h10730; l13839: goto l13836; l13835: /* x97530 stalin.sc:9150:313535 */ /* x97524 stalin.sc:9150:313561 */ t76415 = p10727->p10716->a23478; /* x97525 stalin.sc:9150:313564 */ t76416 = p10727->p10716->a23479; /* x97528 stalin.sc:9150:313566 */ /* x97527 stalin.sc:9150:313585 */ t76419 = p10727->p10716->a23480; /* x97526 stalin.sc:9150:313567 */ a39728 = t76419; /* x291581 */ /* x291580 */ t76420 = a39728; /* x291579 */ if (!((t76420.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34645]"); structure_ref_error();} t76417 = t76420.value.structure_type27698->s11; /* x97529 stalin.sc:9150:313588 */ t76418 = p10727->p10716->a23481; /* x97523 stalin.sc:9150:313536 */ b23499 = t76415; b23500 = t76416; b23501 = t76417; b23502 = t76418; f10746(); l13836: goto l13833; l13832: /* x97535 stalin.sc:9123:312589 */ /* x97534 stalin.sc:9123:312589 */ l13833: break; case NATIVE_PROCEDURE_TYPE20709: p11744 = t73937.value.native_procedure_type20709; a24120 = t73938; /* x105473 */ /* x105472 stalin.sc:10625:368737 */ /* x105465 stalin.sc:10625:368745 */ /* x105464 stalin.sc:10625:368769 */ t76562 = a24120; /* x105463 stalin.sc:10625:368746 */ a38059 = t76562; /* x284905 */ /* x284904 */ t76563 = a38059; /* x284903 */ if (!((t76563.tag)==STRUCTURE_TYPE27756)) goto l13851; /* x105467 */ /* x105466 */ goto l13852; l13851: /* x105471 */ /* x105470 */ /* x105469 stalin.sc:10625:368772 */ /* x105468 stalin.sc:10625:368773 */ /* x295489 QobiScheme.sc:166:5314 */ /* x295488 QobiScheme.sc:166:5321 */ t76564 = "This shouldn\'t happen"; /* x295487 QobiScheme.sc:166:5315 */ stalin_panic(t76564); l13852: /* x105462 */ t76552 = p11744; p11745 = t76552; /* x105461 stalin.sc:10627:368845 */ /* x105451 stalin.sc:10628:368879 */ t76553 = p11745->p11669->a24093; /* x105460 stalin.sc:10629:368887 */ /* x105453 stalin.sc:10630:368913 */ t76555 = a24120; /* x105459 stalin.sc:10631:368921 */ /* x105457 stalin.sc:10632:368948 */ /* x105456 stalin.sc:10632:368966 */ t76561 = p11745->a24096; /* x105455 stalin.sc:10632:368949 */ t76558 = f8739(t76561); /* x105458 stalin.sc:10632:368969 */ t76559 = q67; /* x105454 stalin.sc:10631:368922 */ t76560 = t76558; t76556 = f8743(t76560, t76559); /* x105452 stalin.sc:10629:368888 */ t76557 = t76556; t76554 = f9368(t76555, t76557); /* x105450 stalin.sc:10627:368846 */ f11754(t76553, t76554); break; case NATIVE_PROCEDURE_TYPE20711: p11738 = t73937.value.native_procedure_type20711; a24118 = t73938; /* x105416 */ /* x105415 stalin.sc:10644:369443 */ /* x105408 stalin.sc:10644:369451 */ /* x105407 stalin.sc:10644:369475 */ t76578 = a24118; /* x105406 stalin.sc:10644:369452 */ a38058 = t76578; /* x284901 */ /* x284900 */ t76579 = a38058; /* x284899 */ if (!((t76579.tag)==STRUCTURE_TYPE27756)) goto l13854; /* x105410 */ /* x105409 */ goto l13855; l13854: /* x105414 */ /* x105413 */ /* x105412 stalin.sc:10644:369478 */ /* x105411 stalin.sc:10644:369479 */ /* x295485 QobiScheme.sc:166:5314 */ /* x295484 QobiScheme.sc:166:5321 */ t76580 = "This shouldn\'t happen"; /* x295483 QobiScheme.sc:166:5315 */ stalin_panic(t76580); l13855: /* x105405 */ t76565 = p11738; p11739 = t76565; /* x105404 stalin.sc:10646:369551 */ /* x105391 stalin.sc:10647:369585 */ t76566 = p11739->p11669->a24093; /* x105403 stalin.sc:10648:369593 */ /* x105393 stalin.sc:10649:369619 */ t76568 = a24118; /* x105402 stalin.sc:10650:369627 */ /* x105400 stalin.sc:10651:369654 */ /* x105398 stalin.sc:10651:369674 */ /* x105397 stalin.sc:10651:369692 */ t76577 = p11739->a24096; /* x105396 stalin.sc:10651:369675 */ t76574 = f8739(t76577); /* x105399 stalin.sc:10651:369695 */ t76575 = q64; /* x105395 stalin.sc:10651:369655 */ t76576 = t76574; t76571 = f8743(t76576, t76575); /* x105401 stalin.sc:10652:369719 */ t76572 = q67; /* x105394 stalin.sc:10650:369628 */ t76573 = t76571; t76569 = f8743(t76573, t76572); /* x105392 stalin.sc:10648:369594 */ t76570 = t76569; t76567 = f9368(t76568, t76570); /* x105390 stalin.sc:10646:369552 */ f11754(t76566, t76567); break; case NATIVE_PROCEDURE_TYPE20714: p11991 = t73937.value.native_procedure_type20714; a24242 = t73938; /* x107609 stalin.sc:11142:387683 */ /* x107567 stalin.sc:11142:387689 */ /* x107560 stalin.sc:11142:387694 */ /* x107559 stalin.sc:11142:387735 */ t76582 = a24242; /* x107558 stalin.sc:11142:387695 */ /* x107557 stalin.sc:11142:387728 */ t76583 = q45; /* x107556 stalin.sc:11142:387696 */ t76584.tag = EXTERNAL_SYMBOL_TYPE; t76584.value.external_symbol_type = t76583; t76581 = f7708(t76584); if (f7709(t76581, t76582)==FALSE_TYPE) goto l13857; /* x107565 */ /* x107564 stalin.sc:11143:387770 */ t76586 = a24242; /* x107563 stalin.sc:11143:387743 */ /* x107562 stalin.sc:11143:387767 */ t76587 = p11991->a24215; /* x107561 stalin.sc:11143:387744 */ t76585 = f7917(t76587); if ((t76585&3)==1) {if ((f7905(((struct p7892 *)(t76585-1)), t76586).tag)==FALSE_TYPE) goto l13857;} else if ((f7893(((struct p7892 *)t76585), t76586).tag)==FALSE_TYPE) goto l13857; /* x107606 */ /* x107605 */ t76588 = p11991; p11992 = t76588; /* x107604 stalin.sc:11144:387775 */ /* x107598 stalin.sc:11145:387794 */ t76589 = p11992; /* x107603 stalin.sc:11151:388048 */ /* x107602 stalin.sc:11151:388069 */ /* x107601 stalin.sc:11151:388086 */ t76594 = p11992->a24215; /* x107600 stalin.sc:11151:388070 */ t76592 = f7003(t76594); /* x107599 stalin.sc:11151:388049 */ a39888 = t76592; /* x292221 */ /* x292220 */ t76593 = a39888; /* x292219 */ if (!((t76593.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34805]"); structure_ref_error();} t76590 = t76593.value.structure_type27698->s10; /* x107568 stalin.sc:11144:387776 */ t76591.tag = NATIVE_PROCEDURE_TYPE22368; t76591.value.native_procedure_type22368 = t76589; f8173(t76591, t76590); goto l13858; l13857: /* x107608 stalin.sc:11142:387683 */ /* x107607 stalin.sc:11142:387683 */ l13858: break; case NATIVE_PROCEDURE_TYPE20716: p11981 = t73937.value.native_procedure_type20716; a24238 = t73938; /* x107502 stalin.sc:11120:386848 */ /* x107460 stalin.sc:11120:386854 */ /* x107453 stalin.sc:11120:386859 */ /* x107452 stalin.sc:11120:386900 */ t76596 = a24238; /* x107451 stalin.sc:11120:386860 */ /* x107450 stalin.sc:11120:386893 */ t76597 = q45; /* x107449 stalin.sc:11120:386861 */ t76598.tag = EXTERNAL_SYMBOL_TYPE; t76598.value.external_symbol_type = t76597; t76595 = f7708(t76598); if (f7709(t76595, t76596)==FALSE_TYPE) goto l13861; /* x107458 */ /* x107457 stalin.sc:11121:386935 */ t76600 = a24238; /* x107456 stalin.sc:11121:386908 */ /* x107455 stalin.sc:11121:386932 */ t76601 = p11981->a24215; /* x107454 stalin.sc:11121:386909 */ t76599 = f7917(t76601); if ((t76599&3)==1) {if ((f7905(((struct p7892 *)(t76599-1)), t76600).tag)==FALSE_TYPE) goto l13861;} else if ((f7893(((struct p7892 *)t76599), t76600).tag)==FALSE_TYPE) goto l13861; /* x107499 */ /* x107498 */ t76602 = p11981; p11982 = t76602; /* x107497 stalin.sc:11122:386940 */ /* x107491 stalin.sc:11123:386959 */ t76603 = p11982; /* x107496 stalin.sc:11129:387212 */ /* x107495 stalin.sc:11129:387233 */ /* x107494 stalin.sc:11129:387249 */ t76608 = p11982->a24215; /* x107493 stalin.sc:11129:387234 */ t76606 = f6998(t76608); /* x107492 stalin.sc:11129:387213 */ a39881 = t76606; /* x292193 */ /* x292192 */ t76607 = a39881; /* x292191 */ if (!((t76607.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34798]"); structure_ref_error();} t76604 = t76607.value.structure_type27698->s10; /* x107461 stalin.sc:11122:386941 */ t76605.tag = NATIVE_PROCEDURE_TYPE22501; t76605.value.native_procedure_type22501 = t76603; f8173(t76605, t76604); goto l13862; l13861: /* x107501 stalin.sc:11120:386848 */ /* x107500 stalin.sc:11120:386848 */ l13862: break; case NATIVE_PROCEDURE_TYPE20718: p11971 = t73937.value.native_procedure_type20718; a24234 = t73938; /* x107395 stalin.sc:11094:385950 */ /* x107353 stalin.sc:11094:385956 */ /* x107346 stalin.sc:11094:385961 */ /* x107345 stalin.sc:11096:386039 */ t76610 = a24234; /* x107344 stalin.sc:11094:385962 */ /* x107343 stalin.sc:11095:386001 */ t76611 = q66; /* x107342 stalin.sc:11094:385963 */ t76612.tag = EXTERNAL_SYMBOL_TYPE; t76612.value.external_symbol_type = t76611; t76609 = f7708(t76612); if (f7709(t76609, t76610)==FALSE_TYPE) goto l13865; /* x107351 */ /* x107350 stalin.sc:11097:386074 */ t76614 = a24234; /* x107349 stalin.sc:11097:386047 */ /* x107348 stalin.sc:11097:386071 */ t76615 = p11971->a24215; /* x107347 stalin.sc:11097:386048 */ t76613 = f7917(t76615); if ((t76613&3)==1) {if ((f7905(((struct p7892 *)(t76613-1)), t76614).tag)==FALSE_TYPE) goto l13865;} else if ((f7893(((struct p7892 *)t76613), t76614).tag)==FALSE_TYPE) goto l13865; /* x107392 */ /* x107391 */ t76616 = p11971; p11972 = t76616; /* x107390 stalin.sc:11098:386079 */ /* x107384 stalin.sc:11099:386098 */ t76617 = p11972; /* x107389 stalin.sc:11107:386379 */ /* x107388 stalin.sc:11107:386400 */ /* x107387 stalin.sc:11107:386416 */ t76622 = p11972->a24215; /* x107386 stalin.sc:11107:386401 */ t76620 = f6998(t76622); /* x107385 stalin.sc:11107:386380 */ a39891 = t76620; /* x292233 */ /* x292232 */ t76621 = a39891; /* x292231 */ if (!((t76621.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34808]"); structure_ref_error();} t76618 = t76621.value.structure_type27698->s10; /* x107354 stalin.sc:11098:386080 */ t76619.tag = NATIVE_PROCEDURE_TYPE22353; t76619.value.native_procedure_type22353 = t76617; f8173(t76619, t76618); goto l13866; l13865: /* x107394 stalin.sc:11094:385950 */ /* x107393 stalin.sc:11094:385950 */ l13866: break; case NATIVE_PROCEDURE_TYPE20720: p11961 = t73937.value.native_procedure_type20720; a24230 = t73938; /* x107288 stalin.sc:11067:385032 */ /* x107246 stalin.sc:11067:385038 */ /* x107239 stalin.sc:11067:385043 */ /* x107238 stalin.sc:11067:385085 */ t76624 = a24230; /* x107237 stalin.sc:11067:385044 */ /* x107236 stalin.sc:11067:385077 */ t76625 = q79; /* x107235 stalin.sc:11067:385045 */ t76626.tag = EXTERNAL_SYMBOL_TYPE; t76626.value.external_symbol_type = t76625; t76623 = f7708(t76626); if (f7709(t76623, t76624)==FALSE_TYPE) goto l13869; /* x107244 */ /* x107243 stalin.sc:11068:385120 */ t76628 = a24230; /* x107242 stalin.sc:11068:385093 */ /* x107241 stalin.sc:11068:385117 */ t76629 = p11961->a24215; /* x107240 stalin.sc:11068:385094 */ t76627 = f7917(t76629); if ((t76627&3)==1) {if ((f7905(((struct p7892 *)(t76627-1)), t76628).tag)==FALSE_TYPE) goto l13869;} else if ((f7893(((struct p7892 *)t76627), t76628).tag)==FALSE_TYPE) goto l13869; /* x107285 */ /* x107284 */ t76630 = p11961; p11962 = t76630; /* x107283 stalin.sc:11069:385125 */ /* x107277 stalin.sc:11070:385144 */ t76631 = p11962; /* x107282 stalin.sc:11076:385397 */ /* x107281 stalin.sc:11076:385418 */ /* x107280 stalin.sc:11076:385434 */ t76636 = p11962->a24215; /* x107279 stalin.sc:11076:385419 */ t76634 = f6998(t76636); /* x107278 stalin.sc:11076:385398 */ a39890 = t76634; /* x292229 */ /* x292228 */ t76635 = a39890; /* x292227 */ if (!((t76635.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34807]"); structure_ref_error();} t76632 = t76635.value.structure_type27698->s10; /* x107247 stalin.sc:11069:385126 */ t76633.tag = NATIVE_PROCEDURE_TYPE22358; t76633.value.native_procedure_type22358 = t76631; f8173(t76633, t76632); goto l13870; l13869: /* x107287 stalin.sc:11067:385032 */ /* x107286 stalin.sc:11067:385032 */ l13870: break; case NATIVE_PROCEDURE_TYPE20723: p11954 = t73937.value.native_procedure_type20723; a24227 = t73938; /* x107166 stalin.sc:11052:384436 */ /* x107150 stalin.sc:11052:384442 */ /* x107143 stalin.sc:11052:384447 */ /* x107142 stalin.sc:11052:384467 */ t76637 = a24227; /* x107141 stalin.sc:11052:384448 */ a37862 = t76637; /* x284117 */ /* x284116 */ t76638 = a37862; /* x284115 */ if (!((t76638.tag)==STRUCTURE_TYPE27858)) goto l13873; /* x107148 */ /* x107147 stalin.sc:11052:384498 */ t76640 = a24227; /* x107146 stalin.sc:11052:384471 */ /* x107145 stalin.sc:11052:384495 */ t76641 = p11954->a24215; /* x107144 stalin.sc:11052:384472 */ t76639 = f7917(t76641); if ((t76639&3)==1) {if ((f7905(((struct p7892 *)(t76639-1)), t76640).tag)==FALSE_TYPE) goto l13873;} else if ((f7893(((struct p7892 *)t76639), t76640).tag)==FALSE_TYPE) goto l13873; /* x107163 */ /* x107162 */ t76642 = p11954; p11955 = t76642; /* x107161 stalin.sc:11053:384503 */ /* x107152 stalin.sc:11054:384540 */ t76643 = a24227; /* x107160 stalin.sc:11054:384542 */ /* x107156 stalin.sc:11054:384548 */ /* x107155 stalin.sc:11054:384566 */ t76648 = p11955->a24215; /* x107154 stalin.sc:11054:384549 */ t76646 = f8739(t76648); /* x107159 stalin.sc:11054:384569 */ /* x107158 stalin.sc:11054:384599 */ t76649 = a24227; /* x107157 stalin.sc:11054:384570 */ a37805 = t76649; /* x283889 */ /* x283888 */ t76650 = a37805; /* x283887 */ if (!((t76650.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-CALL-SITES[6085] 32722]"); structure_ref_error();} t76647 = t76650.value.structure_type27858->s3; /* x269473 stalin.sc:11054:384543 */ t76644 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t76644==NULL) {backtrace("stalin.sc", 11054, 384542); out_of_memory_error();} t76644->s0.tag = STRUCTURE_TYPE27745; t76644->s0.value.structure_type27745 = t76646; t76644->s1 = *((struct w49 *)(&t76647)); /* x107151 stalin.sc:11053:384504 */ t76645.tag = STRUCTURE_TYPE24753; t76645.value.structure_type24753 = t76644; f6086(t76643, t76645); goto l13874; l13873: /* x107165 stalin.sc:11052:384436 */ /* x107164 stalin.sc:11052:384436 */ l13874: break; case NATIVE_PROCEDURE_TYPE20725: p11944 = t73937.value.native_procedure_type20725; a24223 = t73938; /* x107108 stalin.sc:11164:388519 */ /* x107066 stalin.sc:11164:388525 */ /* x107059 stalin.sc:11164:388530 */ /* x107058 stalin.sc:11164:388572 */ t76652 = a24223; /* x107057 stalin.sc:11164:388531 */ /* x107056 stalin.sc:11164:388564 */ t76653 = q44; /* x107055 stalin.sc:11164:388532 */ t76654.tag = EXTERNAL_SYMBOL_TYPE; t76654.value.external_symbol_type = t76653; t76651 = f7708(t76654); if (f7709(t76651, t76652)==FALSE_TYPE) goto l13877; /* x107064 */ /* x107063 stalin.sc:11165:388607 */ t76656 = a24223; /* x107062 stalin.sc:11165:388580 */ /* x107061 stalin.sc:11165:388604 */ t76657 = p11944->a24215; /* x107060 stalin.sc:11165:388581 */ t76655 = f7917(t76657); if ((t76655&3)==1) {if ((f7905(((struct p7892 *)(t76655-1)), t76656).tag)==FALSE_TYPE) goto l13877;} else if ((f7893(((struct p7892 *)t76655), t76656).tag)==FALSE_TYPE) goto l13877; /* x107105 */ /* x107104 */ t76658 = p11944; p11945 = t76658; /* x107103 stalin.sc:11166:388612 */ /* x107097 stalin.sc:11167:388631 */ t76659 = p11945; /* x107102 stalin.sc:11173:388884 */ /* x107101 stalin.sc:11173:388905 */ /* x107100 stalin.sc:11173:388921 */ t76664 = p11945->a24215; /* x107099 stalin.sc:11173:388906 */ t76662 = f6998(t76664); /* x107098 stalin.sc:11173:388885 */ a39889 = t76662; /* x292225 */ /* x292224 */ t76663 = a39889; /* x292223 */ if (!((t76663.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34806]"); structure_ref_error();} t76660 = t76663.value.structure_type27698->s10; /* x107067 stalin.sc:11166:388613 */ t76661.tag = NATIVE_PROCEDURE_TYPE22363; t76661.value.native_procedure_type22363 = t76659; f8173(t76661, t76660); goto l13878; l13877: /* x107107 stalin.sc:11164:388519 */ /* x107106 stalin.sc:11164:388519 */ l13878: break; case NATIVE_PROCEDURE_TYPE22278: p16428 = t73937.value.native_procedure_type22278; a27570 = t73938; /* x154369 stalin.sc:21196:740933 */ /* x154333 stalin.sc:21196:740939 */ /* x154332 stalin.sc:21198:741019 */ t76666 = a27570; /* x154331 stalin.sc:21196:740940 */ /* x154330 stalin.sc:21197:740967 */ /* x154329 stalin.sc:21197:740974 */ /* x154328 stalin.sc:21197:741010 */ t76670 = p16428->a27563; /* x154327 stalin.sc:21197:740975 */ a38161 = t76670; /* x285313 */ /* x285312 */ t76671 = a38161; /* x285311 */ if (!((t76671.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33078]"); structure_ref_error();} t76668 = t76671.value.structure_type27753->s1; /* x154326 stalin.sc:21197:740968 */ a35729 = t76668; /* x274273 */ /* x274272 */ t76669 = a35729; /* x274271 */ if (!((t76669.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29878]"); structure_ref_error();} t76667 = t76669.value.structure_type24753->s0; /* x154325 stalin.sc:21196:740941 */ t76665 = f7717(t76667); if (f7718(t76665, t76666)==FALSE_TYPE) goto l13881; /* x154366 */ /* x154365 */ t76672 = p16428; p16429 = t76672; /* x154364 stalin.sc:21199:741027 */ /* x154361 stalin.sc:21199:741037 */ /* x154346 stalin.sc:21199:741041 */ /* x154345 stalin.sc:21200:741059 */ /* x154339 stalin.sc:21200:741069 */ /* x154338 stalin.sc:21200:741091 */ t76681 = a27570; /* x154337 stalin.sc:21200:741070 */ a37632 = t76681; /* x283197 */ /* x283196 */ t76682 = a37632; /* x283195 */ if (!((t76682.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32549]"); structure_ref_error();} t76678 = t76682.value.structure_type27769->s1; /* x154344 stalin.sc:21201:741103 */ /* x154343 stalin.sc:21201:741111 */ /* x154342 stalin.sc:21201:741147 */ t76684 = p16429->a27563; /* x154341 stalin.sc:21201:741112 */ a38154 = t76684; /* x285285 */ /* x285284 */ t76685 = a38154; /* x285283 */ if (!((t76685.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33071]"); structure_ref_error();} t76683 = t76685.value.structure_type27753->s1; /* x154340 stalin.sc:21201:741104 */ t76679 = f26181(t76683); /* x154336 stalin.sc:21200:741060 */ t76680 = *((struct w49 *)(&t76678)); t76677 = f26338(t76680, t76679); /* x154335 stalin.sc:21199:741042 */ if (f8793(t76677)==FALSE_TYPE) goto l13884; /* x154347 stalin.sc:21202:741158 */ t76673 = a1194; goto l13885; l13884: /* x154360 stalin.sc:21203:741172 */ /* x154358 stalin.sc:21204:741201 */ /* x154352 stalin.sc:21204:741211 */ /* x154351 stalin.sc:21204:741233 */ t76692 = a27570; /* x154350 stalin.sc:21204:741212 */ a37631 = t76692; /* x283193 */ /* x283192 */ t76693 = a37631; /* x283191 */ if (!((t76693.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32548]"); structure_ref_error();} t76689 = t76693.value.structure_type27769->s1; /* x154357 stalin.sc:21205:741245 */ /* x154356 stalin.sc:21205:741253 */ /* x154355 stalin.sc:21205:741289 */ t76695 = p16429->a27563; /* x154354 stalin.sc:21205:741254 */ a38153 = t76695; /* x285281 */ /* x285280 */ t76696 = a38153; /* x285279 */ if (!((t76696.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33070]"); structure_ref_error();} t76694 = t76696.value.structure_type27753->s1; /* x154353 stalin.sc:21205:741246 */ t76690 = f26181(t76694); /* x154349 stalin.sc:21204:741202 */ t76691 = *((struct w49 *)(&t76689)); t76686 = f26338(t76691, t76690); /* x154359 stalin.sc:21206:741300 */ /* x154348 stalin.sc:21203:741173 */ t76687.tag = FALSE_TYPE; t76688 = f7025(t76686, t76687); t76673 = t76688; l13885: /* x154362 stalin.sc:21207:741312 */ t76674 = p16429->a27568; /* x154363 stalin.sc:21208:741322 */ t76675 = p16429->a27568; /* x154334 stalin.sc:21199:741028 */ /* MOVE: branching squeezed to general */ if (t76673>=((struct structure_type27501 *)VALUE_OFFSET)) {t76676.tag = STRUCTURE_TYPE27501; t76676.value.structure_type27501 = t76673;} else t76676.tag = (unsigned)t76673; f14848(t76676, t76674, t76675); goto l13882; l13881: /* x154368 stalin.sc:21196:740933 */ /* x154367 stalin.sc:21196:740933 */ l13882: break; case NATIVE_PROCEDURE_TYPE22279: p16412 = t73937.value.native_procedure_type22279; a27522 = t73938; /* x154192 stalin.sc:21150:739486 */ /* x154164 stalin.sc:21150:739492 */ /* x154163 stalin.sc:21152:739572 */ t76698 = a27522; /* x154162 stalin.sc:21150:739493 */ /* x154161 stalin.sc:21151:739520 */ /* x154160 stalin.sc:21151:739527 */ /* x154159 stalin.sc:21151:739563 */ t76702 = p16412->a27515; /* x154158 stalin.sc:21151:739528 */ a38160 = t76702; /* x285309 */ /* x285308 */ t76703 = a38160; /* x285307 */ if (!((t76703.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33077]"); structure_ref_error();} t76700 = t76703.value.structure_type27753->s1; /* x154157 stalin.sc:21151:739521 */ a35728 = t76700; /* x274269 */ /* x274268 */ t76701 = a35728; /* x274267 */ if (!((t76701.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29877]"); structure_ref_error();} t76699 = t76701.value.structure_type24753->s0; /* x154156 stalin.sc:21150:739494 */ t76697 = f7717(t76699); if (f7718(t76697, t76698)==FALSE_TYPE) goto l13887; /* x154189 */ /* x154188 */ t76704 = p16412; p16413 = t76704; /* x154187 stalin.sc:21153:739580 */ /* x154166 stalin.sc:21153:739590 */ t76705 = p16413->a27513; /* x154176 stalin.sc:21154:739599 */ /* x154170 stalin.sc:21154:739609 */ /* x154169 stalin.sc:21154:739631 */ t76712 = a27522; /* x154168 stalin.sc:21154:739610 */ a37629 = t76712; /* x283185 */ /* x283184 */ t76713 = a37629; /* x283183 */ if (!((t76713.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32546]"); structure_ref_error();} t76709 = t76713.value.structure_type27769->s1; /* x154175 stalin.sc:21155:739638 */ /* x154174 stalin.sc:21155:739646 */ /* x154173 stalin.sc:21155:739682 */ t76715 = p16413->a27515; /* x154172 stalin.sc:21155:739647 */ a38151 = t76715; /* x285273 */ /* x285272 */ t76716 = a38151; /* x285271 */ if (!((t76716.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33068]"); structure_ref_error();} t76714 = t76716.value.structure_type27753->s1; /* x154171 stalin.sc:21155:739639 */ t76710 = f26181(t76714); /* x154167 stalin.sc:21154:739600 */ t76711 = *((struct w49 *)(&t76709)); t76706 = f26338(t76711, t76710); /* x154186 stalin.sc:21156:739695 */ /* x154180 stalin.sc:21156:739705 */ /* x154179 stalin.sc:21156:739727 */ t76720 = a27522; /* x154178 stalin.sc:21156:739706 */ a37630 = t76720; /* x283189 */ /* x283188 */ t76721 = a37630; /* x283187 */ if (!((t76721.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32547]"); structure_ref_error();} t76717 = t76721.value.structure_type27769->s1; /* x154185 stalin.sc:21157:739734 */ /* x154184 stalin.sc:21157:739742 */ /* x154183 stalin.sc:21157:739778 */ t76723 = p16413->a27515; /* x154182 stalin.sc:21157:739743 */ a38152 = t76723; /* x285277 */ /* x285276 */ t76724 = a38152; /* x285275 */ if (!((t76724.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33069]"); structure_ref_error();} t76722 = t76724.value.structure_type27753->s1; /* x154181 stalin.sc:21157:739735 */ t76718 = f26181(t76722); /* x154177 stalin.sc:21156:739696 */ t76719 = *((struct w49 *)(&t76717)); t76707 = f26338(t76719, t76718); /* x154165 stalin.sc:21153:739581 */ /* MOVE: branching squeezed to general */ if (t76705>=((struct structure_type27501 *)VALUE_OFFSET)) {t76708.tag = STRUCTURE_TYPE27501; t76708.value.structure_type27501 = t76705;} else t76708.tag = (unsigned)t76705; f14848(t76708, t76706, t76707); goto l13888; l13887: /* x154191 stalin.sc:21150:739486 */ /* x154190 stalin.sc:21150:739486 */ l13888: break; case NATIVE_PROCEDURE_TYPE22287: p17668 = t73937.value.native_procedure_type22287; a30620 = t73938; /* x164988 stalin.sc:23674:823831 */ /* x164969 stalin.sc:23674:823837 */ /* x164952 stalin.sc:23674:823842 */ /* x164951 stalin.sc:23674:823856 */ t76725 = a30620; /* x164950 stalin.sc:23674:823843 */ if (f7683(t76725)==FALSE_TYPE) goto l13890; /* x164967 */ /* x164958 stalin.sc:23675:823862 */ /* x164956 stalin.sc:23675:823865 */ /* x164955 stalin.sc:23675:823873 */ t76728 = p17668->p17660->a30610; /* x164954 stalin.sc:23675:823866 */ t76726 = f26227(t76728); /* x164957 stalin.sc:23675:823877 */ t76727 = 2; /* x268101 stalin.sc:23675:823863 */ if (!(t76726==t76727)) goto l13890; /* x164965 */ /* x164964 stalin.sc:23676:823887 */ /* x164963 stalin.sc:23676:823900 */ /* x164962 stalin.sc:23676:823928 */ t76730 = p17668->a30619; /* x164961 stalin.sc:23676:823901 */ a37511 = t76730; /* x282713 */ /* x282712 */ t76731 = a37511; /* x282711 */ if (!((t76731.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32428]"); structure_ref_error();} t76729 = t76731.value.structure_type27761->s0; /* x164960 stalin.sc:23676:823888 */ if (!(f8793(t76729)==FALSE_TYPE)) goto l13890; /* x164985 */ /* x164984 */ t76732 = p17668; p17669 = t76732; /* x164983 stalin.sc:23677:823940 */ /* x164981 stalin.sc:23678:823964 */ t76733 = p17669; /* x164982 stalin.sc:23681:824064 */ t76734 = p17669->p17660->a30614; /* x164970 stalin.sc:23677:823941 */ t76735.tag = NATIVE_PROCEDURE_TYPE23302; t76735.value.native_procedure_type23302 = t76733; f8173(t76735, t76734); goto l13891; l13890: /* x164987 stalin.sc:23674:823831 */ /* x164986 stalin.sc:23674:823831 */ l13891: break; case NATIVE_PROCEDURE_TYPE22289: p17797 = t73937.value.native_procedure_type22289; a30893 = t73938; e17797 = (struct p17797 *)alloca(sizeof(struct p17797)); if (e17797==NULL) {backtrace("stalin.sc", 23973, 832153); out_of_memory_error();} e17797->p17796 = p17797; e17797->a30893 = a30893; /* x166109 stalin.sc:23974:832169 */ /* x166077 stalin.sc:23974:832175 */ /* x166076 stalin.sc:23974:832189 */ t76736 = e17797->a30893; /* x166075 stalin.sc:23974:832176 */ if (f7741(t76736)==FALSE_TYPE) goto l13895; /* x166106 */ /* x166105 */ t76737 = e17797; p17798 = t76737; /* x166104 stalin.sc:23975:832197 */ /* x166102 stalin.sc:23976:832219 */ t76738 = p17798; /* x166103 stalin.sc:23983:832410 */ t76739 = p17798->p17796->a30891; /* x166078 stalin.sc:23975:832198 */ t76740.tag = NATIVE_PROCEDURE_TYPE22344; t76740.value.native_procedure_type22344 = t76738; f8173(t76740, t76739); goto l13896; l13895: /* x166108 stalin.sc:23974:832169 */ /* x166107 stalin.sc:23974:832169 */ l13896: break; case NATIVE_PROCEDURE_TYPE22290: p17777 = t73937.value.native_procedure_type22290; a30842 = t73938; e17777 = (struct p17777 *)alloca(sizeof(struct p17777)); if (e17777==NULL) {backtrace("stalin.sc", 23926, 830979); out_of_memory_error();} e17777->p17776 = p17777; e17777->a30842 = a30842; /* x165939 stalin.sc:23927:830995 */ /* x165913 stalin.sc:23927:831001 */ /* x165912 stalin.sc:23927:831015 */ t76741 = e17777->a30842; /* x165911 stalin.sc:23927:831002 */ if (f7741(t76741)==FALSE_TYPE) goto l13898; /* x165936 */ /* x165935 */ t76742 = e17777; p17778 = t76742; /* x165934 stalin.sc:23928:831023 */ /* x165932 stalin.sc:23929:831045 */ t76743 = p17778; /* x165933 stalin.sc:23932:831165 */ t76744 = p17778->p17776->a30840; /* x165914 stalin.sc:23928:831024 */ t76745.tag = NATIVE_PROCEDURE_TYPE22338; t76745.value.native_procedure_type22338 = t76743; f8173(t76745, t76744); goto l13899; l13898: /* x165938 stalin.sc:23927:830995 */ /* x165937 stalin.sc:23927:830995 */ l13899: break; case NATIVE_PROCEDURE_TYPE22307: p17860 = t73937.value.native_procedure_type22307; a31045 = t73938; /* x166833 stalin.sc:24145:837338 */ /* x166780 stalin.sc:24145:837344 */ /* x166779 stalin.sc:24150:837526 */ t76747 = a31045; /* x166778 stalin.sc:24145:837345 */ /* x166772 stalin.sc:24146:837375 */ /* x166771 stalin.sc:24146:837381 */ /* x166770 stalin.sc:24147:837415 */ /* x166769 stalin.sc:24147:837431 */ /* x166768 stalin.sc:24147:837453 */ t76757 = p17860->p17852->a31031; /* x166767 stalin.sc:24147:837432 */ a36404 = t76757; /* x278285 */ /* x278284 */ t76758 = a36404; /* x278283 */ t76756 = t76758->s0; /* x166766 stalin.sc:24147:837416 */ t76754 = f7110(t76756); /* x166765 stalin.sc:24146:837382 */ t76755 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t76755==NULL) {backtrace("stalin.sc", 24146, 837381); out_of_memory_error();} t76755->s0.tag = STRUCTURE_TYPE27858; t76755->s0.value.structure_type27858 = t76754; t76755->s1.tag = NULL_TYPE; t76753 = f8098(t76755); /* x166764 stalin.sc:24146:837376 */ a35086 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35086==NULL) {backtrace("stalin.sc", 24146, 837375); out_of_memory_error();} a35086->s0.tag = STRUCTURE_TYPE27650; a35086->s0.value.structure_type27650 = t76753; a35086->s1.tag = NULL_TYPE; /* x272179 */ t76748 = a35086; /* x166773 stalin.sc:24148:837466 */ t76749 = a1675; /* x166777 stalin.sc:24149:837480 */ /* x166775 stalin.sc:24149:837500 */ t76759 = p17860->p17852->a31031; /* x166776 stalin.sc:24149:837502 */ t76760 = q64; /* x166774 stalin.sc:24149:837481 */ t76761 = t76759; t76750 = f8743(t76761, t76760); /* x166763 stalin.sc:24145:837346 */ t76751.tag = STRUCTURE_TYPE24753; t76751.value.structure_type24753 = t76748; /* MOVE: branching squeezed to general */ if (t76749>=((struct structure_type27650 *)VALUE_OFFSET)) {t76752.tag = STRUCTURE_TYPE27650; t76752.value.structure_type27650 = t76749;} else t76752.tag = (unsigned)t76749; t76746 = f7873(t76751, t76752, t76750); if ((t76746&3)==1) {if ((f7880(((struct p7873 *)(t76746-1)), t76747).tag)==FALSE_TYPE) goto l13901;} else if ((f7874(((struct p7873 *)t76746), t76747).tag)==FALSE_TYPE) goto l13901; /* x166830 */ /* x166829 */ t76762 = p17860; p17861 = t76762; /* x166828 stalin.sc:24151:837537 */ /* x166827 stalin.sc:24151:837547 */ /* x166826 stalin.sc:24152:837578 */ /* x166825 stalin.sc:24152:837594 */ /* x166824 stalin.sc:24152:837616 */ t76794 = p17861->p17852->a31031; /* x166823 stalin.sc:24152:837595 */ a36403 = t76794; /* x278281 */ /* x278280 */ t76795 = a36403; /* x278279 */ t76793 = t76795->s0; /* x166822 stalin.sc:24152:837579 */ t76791 = f7110(t76793); /* x166821 stalin.sc:24151:837548 */ t76792 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t76792==NULL) {backtrace("stalin.sc", 24151, 837547); out_of_memory_error();} t76792->s0.tag = STRUCTURE_TYPE27858; t76792->s0.value.structure_type27858 = t76791; t76792->s1.tag = NULL_TYPE; t76764 = f8098(t76792); /* x166820 */ t76763 = p17861; p17862 = t76763; a31046 = t76764; /* x166819 */ /* x166818 stalin.sc:24153:837624 */ /* x166808 stalin.sc:24154:837641 */ /* x166798 stalin.sc:24154:837645 */ /* x166797 stalin.sc:24154:837649 */ /* x166796 stalin.sc:24154:837659 */ t76777 = p17862->p17852->a31030; /* x166795 stalin.sc:24154:837650 */ /* MOVE: branching squeezed to general */ if (t76777>=((struct structure_type27501 *)VALUE_OFFSET)) {t76778.tag = STRUCTURE_TYPE27501; t76778.value.structure_type27501 = t76777;} else t76778.tag = (unsigned)t76777; if (!(f7031(t76778)==FALSE_TYPE)) goto l13903; p17864 = p17862; /* x166792 */ /* x166791 stalin.sc:24154:837675 */ t76779 = p17864->a31039; /* x166790 stalin.sc:24154:837663 */ if (f8793(t76779)==FALSE_TYPE) goto l13904; l13903: /* x166799 stalin.sc:24155:837685 */ t76771 = a1194; goto l13905; l13904: /* x166807 stalin.sc:24156:837701 */ /* x166801 stalin.sc:24156:837725 */ t76780 = p17862->a31039; /* x166806 stalin.sc:24156:837727 */ /* x166805 stalin.sc:24156:837732 */ /* x166804 stalin.sc:24156:837754 */ t76785 = p17862->p17852->a31031; /* x166803 stalin.sc:24156:837733 */ a36402 = t76785; /* x278277 */ /* x278276 */ t76786 = a36402; /* x278275 */ t76784 = t76786->s0; /* x166802 stalin.sc:24156:837728 */ t76781 = f14316(t76784); /* x166800 stalin.sc:24156:837702 */ t76782.tag = STRUCTURE_TYPE24753; t76782.value.structure_type24753 = t76781; t76783 = f7025(t76780, t76782); t76771 = t76783; l13905: /* x166812 stalin.sc:24157:837762 */ /* x166810 stalin.sc:24157:837782 */ t76787 = p17862->p17852->a31031; /* x166811 stalin.sc:24157:837784 */ t76788 = q64; /* x166809 stalin.sc:24157:837763 */ t76789 = t76787; t76772 = f8743(t76789, t76788); /* x166813 stalin.sc:24157:837801 */ t76773 = a31045; /* x166816 stalin.sc:24157:837804 */ /* x166815 stalin.sc:24157:837810 */ t76790 = a31046; /* x166814 stalin.sc:24157:837805 */ a35085 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35085==NULL) {backtrace("stalin.sc", 24157, 837804); out_of_memory_error();} a35085->s0.tag = STRUCTURE_TYPE27650; a35085->s0.value.structure_type27650 = t76790; a35085->s1.tag = NULL_TYPE; /* x272177 */ t76774 = a35085; /* x166817 stalin.sc:24157:837814 */ t76775 = a1675; /* x166787 stalin.sc:24153:837625 */ t76776.tag = STRUCTURE_TYPE24753; t76776.value.structure_type24753 = t76774; f15036(t76771, t76772, t76773, t76776, t76775); /* x166786 */ t76765 = p17862; p17863 = t76765; /* x166785 stalin.sc:24158:837823 */ /* x166782 stalin.sc:24158:837833 */ t76767 = p17863->p17852->a31030; /* x166783 stalin.sc:24158:837835 */ t76768 = p17863->a31039; /* x166784 stalin.sc:24158:837837 */ t76769 = p17863->a31039; /* x166781 stalin.sc:24158:837824 */ /* MOVE: branching squeezed to general */ if (t76767>=((struct structure_type27501 *)VALUE_OFFSET)) {t76770.tag = STRUCTURE_TYPE27501; t76770.value.structure_type27501 = t76767;} else t76770.tag = (unsigned)t76767; f14848(t76770, t76768, t76769); goto l13902; l13901: /* x166832 stalin.sc:24145:837338 */ /* x166831 stalin.sc:24145:837338 */ l13902: break; case NATIVE_PROCEDURE_TYPE22338: p17779 = t73937.value.native_procedure_type22338; a30843 = t73938; /* x165931 stalin.sc:23930:831064 */ /* x165917 stalin.sc:23930:831070 */ /* x165916 stalin.sc:23930:831084 */ t76796 = a30843; /* x165915 stalin.sc:23930:831071 */ if (f7683(t76796)==FALSE_TYPE) goto l13908; /* x165928 */ /* x165927 */ t76797 = p17779; p17780 = t76797; /* x165926 stalin.sc:23931:831095 */ /* x165919 stalin.sc:23931:831105 */ t76798 = p17780->p17776->a30833; /* x165922 stalin.sc:23931:831107 */ /* x165921 stalin.sc:23931:831128 */ t76802 = p17780->a30842; /* x165920 stalin.sc:23931:831108 */ t76799 = f7931(t76802); /* x165925 stalin.sc:23931:831132 */ /* x165924 stalin.sc:23931:831153 */ t76803 = p17780->a30842; /* x165923 stalin.sc:23931:831133 */ t76800 = f7931(t76803); /* x165918 stalin.sc:23931:831096 */ /* MOVE: branching squeezed to general */ if (t76798>=((struct structure_type27501 *)VALUE_OFFSET)) {t76801.tag = STRUCTURE_TYPE27501; t76801.value.structure_type27501 = t76798;} else t76801.tag = (unsigned)t76798; f14848(t76801, t76799, t76800); goto l13909; l13908: /* x165930 stalin.sc:23930:831064 */ /* x165929 stalin.sc:23930:831064 */ l13909: break; case NATIVE_PROCEDURE_TYPE22344: p17799 = t73937.value.native_procedure_type22344; a30894 = t73938; /* x166101 stalin.sc:23977:832238 */ /* x166081 stalin.sc:23977:832244 */ /* x166080 stalin.sc:23977:832258 */ t76804 = a30894; /* x166079 stalin.sc:23977:832245 */ if (f7683(t76804)==FALSE_TYPE) goto l13911; /* x166098 */ /* x166097 */ t76805 = p17799; p17800 = t76805; /* x166096 stalin.sc:23978:832269 */ /* x166093 stalin.sc:23978:832279 */ /* x166085 stalin.sc:23978:832283 */ /* x166084 stalin.sc:23978:832308 */ t76810 = p17800->a30893; /* x166083 stalin.sc:23978:832284 */ if (f7754(t76810)==FALSE_TYPE) goto l13914; /* x166086 stalin.sc:23979:832319 */ t76806 = a1194; goto l13915; l13914: /* x166092 stalin.sc:23980:832336 */ /* x166090 stalin.sc:23980:832360 */ /* x166089 stalin.sc:23980:832381 */ t76814 = p17800->a30893; /* x166088 stalin.sc:23980:832361 */ t76811 = f7931(t76814); /* x166091 stalin.sc:23980:832385 */ /* x166087 stalin.sc:23980:832337 */ t76812.tag = FALSE_TYPE; t76813 = f7025(t76811, t76812); t76806 = t76813; l13915: /* x166094 stalin.sc:23981:832393 */ t76807 = p17800->p17796->a30892; /* x166095 stalin.sc:23982:832399 */ t76808 = p17800->p17796->a30892; /* x166082 stalin.sc:23978:832270 */ /* MOVE: branching squeezed to general */ if (t76806>=((struct structure_type27501 *)VALUE_OFFSET)) {t76809.tag = STRUCTURE_TYPE27501; t76809.value.structure_type27501 = t76806;} else t76809.tag = (unsigned)t76806; f14848(t76809, t76807, t76808); goto l13912; l13911: /* x166100 stalin.sc:23977:832238 */ /* x166099 stalin.sc:23977:832238 */ l13912: break; case NATIVE_PROCEDURE_TYPE22353: p11973 = t73937.value.native_procedure_type22353; a24235 = t73938; /* x107383 stalin.sc:11100:386113 */ /* x107364 stalin.sc:11100:386119 */ /* x107357 stalin.sc:11101:386127 */ /* x107356 stalin.sc:11101:386147 */ t76815 = a24235; /* x107355 stalin.sc:11101:386128 */ a37861 = t76815; /* x284113 */ /* x284112 */ t76816 = a37861; /* x284111 */ if (!((t76816.tag)==STRUCTURE_TYPE27858)) goto l13917; /* x107362 */ /* x107361 stalin.sc:11103:386220 */ t76818 = a24235; /* x107360 stalin.sc:11102:386154 */ /* x107359 stalin.sc:11102:386213 */ t76819 = p11973->a24215; /* x107358 stalin.sc:11102:386155 */ t76817 = f7919(t76819); if ((t76817&3)==1) {if ((f7905(((struct p7892 *)(t76817-1)), t76818).tag)==FALSE_TYPE) goto l13917;} else if ((f7893(((struct p7892 *)t76817), t76818).tag)==FALSE_TYPE) goto l13917; /* x107380 */ /* x107379 */ t76820 = p11973; p11974 = t76820; /* x107378 stalin.sc:11104:386228 */ /* x107366 stalin.sc:11105:386268 */ t76821 = a24235; /* x107377 stalin.sc:11105:386270 */ /* x107373 stalin.sc:11105:386276 */ /* x107371 stalin.sc:11105:386296 */ /* x107370 stalin.sc:11105:386314 */ t76829 = p11974->a24215; /* x107369 stalin.sc:11105:386297 */ t76826 = f8739(t76829); /* x107372 stalin.sc:11105:386317 */ t76827 = q64; /* x107368 stalin.sc:11105:386277 */ t76828 = t76826; t76824 = f8743(t76828, t76827); /* x107376 stalin.sc:11106:386340 */ /* x107375 stalin.sc:11106:386370 */ t76830 = a24235; /* x107374 stalin.sc:11106:386341 */ a37804 = t76830; /* x283885 */ /* x283884 */ t76831 = a37804; /* x283883 */ if (!((t76831.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-CALL-SITES[6085] 32721]"); structure_ref_error();} t76825 = t76831.value.structure_type27858->s3; /* x269470 stalin.sc:11105:386271 */ t76822 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t76822==NULL) {backtrace("stalin.sc", 11105, 386270); out_of_memory_error();} t76822->s0.tag = STRUCTURE_TYPE27745; t76822->s0.value.structure_type27745 = t76824; t76822->s1 = *((struct w49 *)(&t76825)); /* x107365 stalin.sc:11104:386229 */ t76823.tag = STRUCTURE_TYPE24753; t76823.value.structure_type24753 = t76822; f6086(t76821, t76823); goto l13918; l13917: /* x107382 stalin.sc:11100:386113 */ /* x107381 stalin.sc:11100:386113 */ l13918: break; case NATIVE_PROCEDURE_TYPE22358: p11963 = t73937.value.native_procedure_type22358; a24231 = t73938; /* x107276 stalin.sc:11071:385159 */ /* x107257 stalin.sc:11071:385165 */ /* x107250 stalin.sc:11071:385170 */ /* x107249 stalin.sc:11071:385190 */ t76832 = a24231; /* x107248 stalin.sc:11071:385171 */ a37860 = t76832; /* x284109 */ /* x284108 */ t76833 = a37860; /* x284107 */ if (!((t76833.tag)==STRUCTURE_TYPE27858)) goto l13921; /* x107255 */ /* x107254 stalin.sc:11072:385238 */ t76835 = a24231; /* x107253 stalin.sc:11072:385201 */ /* x107252 stalin.sc:11072:385235 */ t76836 = p11963->a24215; /* x107251 stalin.sc:11072:385202 */ t76834 = f7918(t76836); if ((t76834&3)==1) {if ((f7905(((struct p7892 *)(t76834-1)), t76835).tag)==FALSE_TYPE) goto l13921;} else if ((f7893(((struct p7892 *)t76834), t76835).tag)==FALSE_TYPE) goto l13921; /* x107273 */ /* x107272 */ t76837 = p11963; p11964 = t76837; /* x107271 stalin.sc:11073:385246 */ /* x107259 stalin.sc:11074:385286 */ t76838 = a24231; /* x107270 stalin.sc:11074:385288 */ /* x107266 stalin.sc:11074:385294 */ /* x107264 stalin.sc:11074:385314 */ /* x107263 stalin.sc:11074:385332 */ t76846 = p11964->a24215; /* x107262 stalin.sc:11074:385315 */ t76843 = f8739(t76846); /* x107265 stalin.sc:11074:385335 */ t76844 = q64; /* x107261 stalin.sc:11074:385295 */ t76845 = t76843; t76841 = f8743(t76845, t76844); /* x107269 stalin.sc:11075:385358 */ /* x107268 stalin.sc:11075:385388 */ t76847 = a24231; /* x107267 stalin.sc:11075:385359 */ a37803 = t76847; /* x283881 */ /* x283880 */ t76848 = a37803; /* x283879 */ if (!((t76848.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-CALL-SITES[6085] 32720]"); structure_ref_error();} t76842 = t76848.value.structure_type27858->s3; /* x269471 stalin.sc:11074:385289 */ t76839 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t76839==NULL) {backtrace("stalin.sc", 11074, 385288); out_of_memory_error();} t76839->s0.tag = STRUCTURE_TYPE27745; t76839->s0.value.structure_type27745 = t76841; t76839->s1 = *((struct w49 *)(&t76842)); /* x107258 stalin.sc:11073:385247 */ t76840.tag = STRUCTURE_TYPE24753; t76840.value.structure_type24753 = t76839; f6086(t76838, t76840); goto l13922; l13921: /* x107275 stalin.sc:11071:385159 */ /* x107274 stalin.sc:11071:385159 */ l13922: break; case NATIVE_PROCEDURE_TYPE22363: p11946 = t73937.value.native_procedure_type22363; a24224 = t73938; /* x107096 stalin.sc:11168:388646 */ /* x107077 stalin.sc:11168:388652 */ /* x107070 stalin.sc:11168:388657 */ /* x107069 stalin.sc:11168:388677 */ t76849 = a24224; /* x107068 stalin.sc:11168:388658 */ a37859 = t76849; /* x284105 */ /* x284104 */ t76850 = a37859; /* x284103 */ if (!((t76850.tag)==STRUCTURE_TYPE27858)) goto l13925; /* x107075 */ /* x107074 stalin.sc:11169:388725 */ t76852 = a24224; /* x107073 stalin.sc:11169:388688 */ /* x107072 stalin.sc:11169:388722 */ t76853 = p11946->a24215; /* x107071 stalin.sc:11169:388689 */ t76851 = f7922(t76853); if ((t76851&3)==1) {if ((f7905(((struct p7892 *)(t76851-1)), t76852).tag)==FALSE_TYPE) goto l13925;} else if ((f7893(((struct p7892 *)t76851), t76852).tag)==FALSE_TYPE) goto l13925; /* x107093 */ /* x107092 */ t76854 = p11946; p11947 = t76854; /* x107091 stalin.sc:11170:388733 */ /* x107079 stalin.sc:11171:388773 */ t76855 = a24224; /* x107090 stalin.sc:11171:388775 */ /* x107086 stalin.sc:11171:388781 */ /* x107084 stalin.sc:11171:388801 */ /* x107083 stalin.sc:11171:388819 */ t76863 = p11947->a24215; /* x107082 stalin.sc:11171:388802 */ t76860 = f8739(t76863); /* x107085 stalin.sc:11171:388822 */ t76861 = q64; /* x107081 stalin.sc:11171:388782 */ t76862 = t76860; t76858 = f8743(t76862, t76861); /* x107089 stalin.sc:11172:388845 */ /* x107088 stalin.sc:11172:388875 */ t76864 = a24224; /* x107087 stalin.sc:11172:388846 */ a37802 = t76864; /* x283877 */ /* x283876 */ t76865 = a37802; /* x283875 */ if (!((t76865.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-CALL-SITES[6085] 32719]"); structure_ref_error();} t76859 = t76865.value.structure_type27858->s3; /* x269474 stalin.sc:11171:388776 */ t76856 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t76856==NULL) {backtrace("stalin.sc", 11171, 388775); out_of_memory_error();} t76856->s0.tag = STRUCTURE_TYPE27745; t76856->s0.value.structure_type27745 = t76858; t76856->s1 = *((struct w49 *)(&t76859)); /* x107078 stalin.sc:11170:388734 */ t76857.tag = STRUCTURE_TYPE24753; t76857.value.structure_type24753 = t76856; f6086(t76855, t76857); goto l13926; l13925: /* x107095 stalin.sc:11168:388646 */ /* x107094 stalin.sc:11168:388646 */ l13926: break; case NATIVE_PROCEDURE_TYPE22368: p11993 = t73937.value.native_procedure_type22368; a24243 = t73938; /* x107597 stalin.sc:11146:387809 */ /* x107578 stalin.sc:11146:387815 */ /* x107571 stalin.sc:11146:387820 */ /* x107570 stalin.sc:11146:387840 */ t76866 = a24243; /* x107569 stalin.sc:11146:387821 */ a37858 = t76866; /* x284101 */ /* x284100 */ t76867 = a37858; /* x284099 */ if (!((t76867.tag)==STRUCTURE_TYPE27858)) goto l13929; /* x107576 */ /* x107575 stalin.sc:11147:387888 */ t76869 = a24243; /* x107574 stalin.sc:11147:387851 */ /* x107573 stalin.sc:11147:387885 */ t76870 = p11993->a24215; /* x107572 stalin.sc:11147:387852 */ t76868 = f7921(t76870); if ((t76868&3)==1) {if ((f7905(((struct p7892 *)(t76868-1)), t76869).tag)==FALSE_TYPE) goto l13929;} else if ((f7893(((struct p7892 *)t76868), t76869).tag)==FALSE_TYPE) goto l13929; /* x107594 */ /* x107593 */ t76871 = p11993; p11994 = t76871; /* x107592 stalin.sc:11148:387896 */ /* x107580 stalin.sc:11149:387936 */ t76872 = a24243; /* x107591 stalin.sc:11149:387938 */ /* x107587 stalin.sc:11149:387944 */ /* x107585 stalin.sc:11149:387964 */ /* x107584 stalin.sc:11149:387982 */ t76880 = p11994->a24215; /* x107583 stalin.sc:11149:387965 */ t76877 = f8739(t76880); /* x107586 stalin.sc:11149:387985 */ t76878 = q65; /* x107582 stalin.sc:11149:387945 */ t76879 = t76877; t76875 = f8743(t76879, t76878); /* x107590 stalin.sc:11150:388009 */ /* x107589 stalin.sc:11150:388039 */ t76881 = a24243; /* x107588 stalin.sc:11150:388010 */ a37801 = t76881; /* x283873 */ /* x283872 */ t76882 = a37801; /* x283871 */ if (!((t76882.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-CALL-SITES[6085] 32718]"); structure_ref_error();} t76876 = t76882.value.structure_type27858->s3; /* x269468 stalin.sc:11149:387939 */ t76873 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t76873==NULL) {backtrace("stalin.sc", 11149, 387938); out_of_memory_error();} t76873->s0.tag = STRUCTURE_TYPE27745; t76873->s0.value.structure_type27745 = t76875; t76873->s1 = *((struct w49 *)(&t76876)); /* x107579 stalin.sc:11148:387897 */ t76874.tag = STRUCTURE_TYPE24753; t76874.value.structure_type24753 = t76873; f6086(t76872, t76874); goto l13930; l13929: /* x107596 stalin.sc:11146:387809 */ /* x107595 stalin.sc:11146:387809 */ l13930: break; case NATIVE_PROCEDURE_TYPE22414: p11726 = t73937.value.native_procedure_type22414; a24115 = t73938; /* x105306 stalin.sc:10709:371632 */ /* x105289 stalin.sc:10709:371638 */ /* x105282 stalin.sc:10709:371643 */ /* x105281 stalin.sc:10709:371667 */ t76883 = a24115; /* x105280 stalin.sc:10709:371644 */ a38055 = t76883; /* x284889 */ /* x284888 */ t76884 = a38055; /* x284887 */ if (!((t76884.tag)==STRUCTURE_TYPE27756)) goto l13933; /* x105287 */ /* x105286 stalin.sc:10710:371712 */ t76886 = a24115; /* x105285 stalin.sc:10710:371675 */ /* x105284 stalin.sc:10710:371709 */ t76887 = p11726->a24096; /* x105283 stalin.sc:10710:371676 */ t76885 = f7922(t76887); if ((t76885&3)==1) {if ((f7905(((struct p7892 *)(t76885-1)), t76886).tag)==FALSE_TYPE) goto l13933;} else if ((f7893(((struct p7892 *)t76885), t76886).tag)==FALSE_TYPE) goto l13933; /* x105303 */ /* x105302 */ t76888 = p11726; p11727 = t76888; /* x105301 stalin.sc:10711:371724 */ /* x105291 stalin.sc:10712:371759 */ t76889 = p11727->p11669->a24093; /* x105300 stalin.sc:10713:371764 */ /* x105293 stalin.sc:10714:371787 */ t76891 = a24115; /* x105299 stalin.sc:10715:371792 */ /* x105297 stalin.sc:10715:371812 */ /* x105296 stalin.sc:10715:371830 */ t76897 = p11727->a24096; /* x105295 stalin.sc:10715:371813 */ t76894 = f8739(t76897); /* x105298 stalin.sc:10715:371833 */ t76895 = q64; /* x105294 stalin.sc:10715:371793 */ t76896 = t76894; t76892 = f8743(t76896, t76895); /* x105292 stalin.sc:10713:371765 */ t76893 = t76892; t76890 = f9368(t76891, t76893); /* x105290 stalin.sc:10711:371725 */ f11758(t76889, t76890); goto l13934; l13933: /* x105305 stalin.sc:10709:371632 */ /* x105304 stalin.sc:10709:371632 */ l13934: break; case NATIVE_PROCEDURE_TYPE22418: p11722 = t73937.value.native_procedure_type22418; a24114 = t73938; /* x105263 stalin.sc:10688:370945 */ /* x105246 stalin.sc:10688:370951 */ /* x105239 stalin.sc:10688:370956 */ /* x105238 stalin.sc:10688:370980 */ t76898 = a24114; /* x105237 stalin.sc:10688:370957 */ a38054 = t76898; /* x284885 */ /* x284884 */ t76899 = a38054; /* x284883 */ if (!((t76899.tag)==STRUCTURE_TYPE27756)) goto l13937; /* x105244 */ /* x105243 stalin.sc:10689:371025 */ t76901 = a24114; /* x105242 stalin.sc:10689:370988 */ /* x105241 stalin.sc:10689:371022 */ t76902 = p11722->a24096; /* x105240 stalin.sc:10689:370989 */ t76900 = f7920(t76902); if ((t76900&3)==1) {if ((f7905(((struct p7892 *)(t76900-1)), t76901).tag)==FALSE_TYPE) goto l13937;} else if ((f7893(((struct p7892 *)t76900), t76901).tag)==FALSE_TYPE) goto l13937; /* x105260 */ /* x105259 */ t76903 = p11722; p11723 = t76903; /* x105258 stalin.sc:10690:371037 */ /* x105248 stalin.sc:10691:371072 */ t76904 = p11723->p11669->a24093; /* x105257 stalin.sc:10692:371077 */ /* x105250 stalin.sc:10693:371100 */ t76906 = a24114; /* x105256 stalin.sc:10694:371105 */ /* x105254 stalin.sc:10694:371125 */ /* x105253 stalin.sc:10694:371143 */ t76912 = p11723->a24096; /* x105252 stalin.sc:10694:371126 */ t76909 = f8739(t76912); /* x105255 stalin.sc:10694:371146 */ t76910 = q64; /* x105251 stalin.sc:10694:371106 */ t76911 = t76909; t76907 = f8743(t76911, t76910); /* x105249 stalin.sc:10692:371078 */ t76908 = t76907; t76905 = f9368(t76906, t76908); /* x105247 stalin.sc:10690:371038 */ f11758(t76904, t76905); goto l13938; l13937: /* x105262 stalin.sc:10688:370945 */ /* x105261 stalin.sc:10688:370945 */ l13938: break; case NATIVE_PROCEDURE_TYPE22422: p11719 = t73937.value.native_procedure_type22422; a24113 = t73938; /* x105227 stalin.sc:10698:371262 */ /* x105210 stalin.sc:10698:371268 */ /* x105203 stalin.sc:10698:371273 */ /* x105202 stalin.sc:10698:371297 */ t76913 = a24113; /* x105201 stalin.sc:10698:371274 */ a38053 = t76913; /* x284881 */ /* x284880 */ t76914 = a38053; /* x284879 */ if (!((t76914.tag)==STRUCTURE_TYPE27756)) goto l13941; /* x105208 */ /* x105207 stalin.sc:10699:371342 */ t76916 = a24113; /* x105206 stalin.sc:10699:371305 */ /* x105205 stalin.sc:10699:371339 */ t76917 = p11719->a24096; /* x105204 stalin.sc:10699:371306 */ t76915 = f7921(t76917); if ((t76915&3)==1) {if ((f7905(((struct p7892 *)(t76915-1)), t76916).tag)==FALSE_TYPE) goto l13941;} else if ((f7893(((struct p7892 *)t76915), t76916).tag)==FALSE_TYPE) goto l13941; /* x105224 */ /* x105223 */ t76918 = p11719; p11720 = t76918; /* x105222 stalin.sc:10700:371354 */ /* x105212 stalin.sc:10701:371389 */ t76919 = p11720->p11669->a24093; /* x105221 stalin.sc:10702:371394 */ /* x105214 stalin.sc:10703:371417 */ t76921 = a24113; /* x105220 stalin.sc:10704:371422 */ /* x105218 stalin.sc:10704:371442 */ /* x105217 stalin.sc:10704:371460 */ t76927 = p11720->a24096; /* x105216 stalin.sc:10704:371443 */ t76924 = f8739(t76927); /* x105219 stalin.sc:10704:371463 */ t76925 = q65; /* x105215 stalin.sc:10704:371423 */ t76926 = t76924; t76922 = f8743(t76926, t76925); /* x105213 stalin.sc:10702:371395 */ t76923 = t76922; t76920 = f9368(t76921, t76923); /* x105211 stalin.sc:10700:371355 */ f11758(t76919, t76920); goto l13942; l13941: /* x105226 stalin.sc:10698:371262 */ /* x105225 stalin.sc:10698:371262 */ l13942: break; case NATIVE_PROCEDURE_TYPE22426: p11713 = t73937.value.native_procedure_type22426; a24110 = t73938; /* x105185 stalin.sc:10674:370458 */ /* x105159 stalin.sc:10674:370464 */ /* x105152 stalin.sc:10675:370476 */ /* x105151 stalin.sc:10675:370500 */ t76928 = a24110; /* x105150 stalin.sc:10675:370477 */ a38052 = t76928; /* x284877 */ /* x284876 */ t76929 = a38052; /* x284875 */ if (!((t76929.tag)==STRUCTURE_TYPE27756)) goto l13945; /* x105157 */ /* x105156 stalin.sc:10677:370581 */ t76931 = a24110; /* x105155 stalin.sc:10676:370511 */ /* x105154 stalin.sc:10676:370570 */ t76932 = p11713->a24096; /* x105153 stalin.sc:10676:370512 */ t76930 = f7919(t76932); if ((t76930&3)==1) {if ((f7905(((struct p7892 *)(t76930-1)), t76931).tag)==FALSE_TYPE) goto l13945;} else if ((f7893(((struct p7892 *)t76930), t76931).tag)==FALSE_TYPE) goto l13945; /* x105182 */ /* x105181 */ t76933 = p11713; p11714 = t76933; /* x105180 stalin.sc:10678:370593 */ /* x105179 stalin.sc:10678:370603 */ /* x105172 stalin.sc:10679:370628 */ t76940 = a24110; /* x105178 stalin.sc:10679:370630 */ /* x105176 stalin.sc:10680:370658 */ /* x105175 stalin.sc:10680:370676 */ t76946 = p11714->a24096; /* x105174 stalin.sc:10680:370659 */ t76943 = f8739(t76946); /* x105177 stalin.sc:10680:370679 */ t76944 = q64; /* x105173 stalin.sc:10679:370631 */ t76945 = t76943; t76941 = f8743(t76945, t76944); /* x105171 stalin.sc:10678:370604 */ t76942 = t76941; t76935 = f9368(t76940, t76942); /* x105170 */ t76934 = p11714; p11715 = t76934; a24111 = t76935; /* x105169 stalin.sc:10681:370701 */ /* x105160 stalin.sc:10681:370705 */ if ((p11715->a24097)==FALSE_TYPE) goto l13949; /* x105164 stalin.sc:10682:370714 */ /* x105162 stalin.sc:10682:370743 */ t76938 = p11715->p11669->a24093; /* x105163 stalin.sc:10682:370746 */ t76939 = a24111; /* x105161 stalin.sc:10682:370715 */ f11754(t76938, t76939); goto l13950; l13949: /* x105168 stalin.sc:10683:370756 */ /* x105166 stalin.sc:10683:370789 */ t76936 = p11715->p11669->a24093; /* x105167 stalin.sc:10683:370792 */ t76937 = a24111; /* x105165 stalin.sc:10683:370757 */ f11758(t76936, t76937); l13950: goto l13946; l13945: /* x105184 stalin.sc:10674:370458 */ /* x105183 stalin.sc:10674:370458 */ l13946: break; case NATIVE_PROCEDURE_TYPE22431: p11708 = t73937.value.native_procedure_type22431; a24108 = t73938; /* x105134 stalin.sc:10661:369982 */ /* x105108 stalin.sc:10661:369988 */ /* x105101 stalin.sc:10661:369993 */ /* x105100 stalin.sc:10661:370017 */ t76947 = a24108; /* x105099 stalin.sc:10661:369994 */ a38051 = t76947; /* x284873 */ /* x284872 */ t76948 = a38051; /* x284871 */ if (!((t76948.tag)==STRUCTURE_TYPE27756)) goto l13952; /* x105106 */ /* x105105 stalin.sc:10662:370062 */ t76950 = a24108; /* x105104 stalin.sc:10662:370025 */ /* x105103 stalin.sc:10662:370059 */ t76951 = p11708->a24096; /* x105102 stalin.sc:10662:370026 */ t76949 = f7918(t76951); if ((t76949&3)==1) {if ((f7905(((struct p7892 *)(t76949-1)), t76950).tag)==FALSE_TYPE) goto l13952;} else if ((f7893(((struct p7892 *)t76949), t76950).tag)==FALSE_TYPE) goto l13952; /* x105131 */ /* x105130 */ t76952 = p11708; p11709 = t76952; /* x105129 stalin.sc:10663:370074 */ /* x105128 stalin.sc:10663:370084 */ /* x105121 stalin.sc:10664:370109 */ t76959 = a24108; /* x105127 stalin.sc:10664:370111 */ /* x105125 stalin.sc:10665:370139 */ /* x105124 stalin.sc:10665:370157 */ t76965 = p11709->a24096; /* x105123 stalin.sc:10665:370140 */ t76962 = f8739(t76965); /* x105126 stalin.sc:10665:370160 */ t76963 = q64; /* x105122 stalin.sc:10664:370112 */ t76964 = t76962; t76960 = f8743(t76964, t76963); /* x105120 stalin.sc:10663:370085 */ t76961 = t76960; t76954 = f9368(t76959, t76961); /* x105119 */ t76953 = p11709; p11710 = t76953; a24109 = t76954; /* x105118 stalin.sc:10666:370182 */ /* x105109 stalin.sc:10666:370186 */ if ((p11710->a24097)==FALSE_TYPE) goto l13956; /* x105113 stalin.sc:10667:370195 */ /* x105111 stalin.sc:10667:370224 */ t76957 = p11710->p11669->a24093; /* x105112 stalin.sc:10667:370227 */ t76958 = a24109; /* x105110 stalin.sc:10667:370196 */ f11754(t76957, t76958); goto l13957; l13956: /* x105117 stalin.sc:10668:370237 */ /* x105115 stalin.sc:10668:370270 */ t76955 = p11710->p11669->a24093; /* x105116 stalin.sc:10668:370273 */ t76956 = a24109; /* x105114 stalin.sc:10668:370238 */ f11758(t76955, t76956); l13957: goto l13953; l13952: /* x105133 stalin.sc:10661:369982 */ /* x105132 stalin.sc:10661:369982 */ l13953: break; case NATIVE_PROCEDURE_TYPE22501: p11983 = t73937.value.native_procedure_type22501; a24239 = t73938; /* x107490 stalin.sc:11124:386974 */ /* x107471 stalin.sc:11124:386980 */ /* x107464 stalin.sc:11124:386985 */ /* x107463 stalin.sc:11124:387005 */ t76966 = a24239; /* x107462 stalin.sc:11124:386986 */ a37856 = t76966; /* x284093 */ /* x284092 */ t76967 = a37856; /* x284091 */ if (!((t76967.tag)==STRUCTURE_TYPE27858)) goto l13959; /* x107469 */ /* x107468 stalin.sc:11125:387053 */ t76969 = a24239; /* x107467 stalin.sc:11125:387016 */ /* x107466 stalin.sc:11125:387050 */ t76970 = p11983->a24215; /* x107465 stalin.sc:11125:387017 */ t76968 = f7920(t76970); if ((t76968&3)==1) {if ((f7905(((struct p7892 *)(t76968-1)), t76969).tag)==FALSE_TYPE) goto l13959;} else if ((f7893(((struct p7892 *)t76968), t76969).tag)==FALSE_TYPE) goto l13959; /* x107487 */ /* x107486 */ t76971 = p11983; p11984 = t76971; /* x107485 stalin.sc:11126:387061 */ /* x107473 stalin.sc:11127:387101 */ t76972 = a24239; /* x107484 stalin.sc:11127:387103 */ /* x107480 stalin.sc:11127:387109 */ /* x107478 stalin.sc:11127:387129 */ /* x107477 stalin.sc:11127:387147 */ t76980 = p11984->a24215; /* x107476 stalin.sc:11127:387130 */ t76977 = f8739(t76980); /* x107479 stalin.sc:11127:387150 */ t76978 = q64; /* x107475 stalin.sc:11127:387110 */ t76979 = t76977; t76975 = f8743(t76979, t76978); /* x107483 stalin.sc:11128:387173 */ /* x107482 stalin.sc:11128:387203 */ t76981 = a24239; /* x107481 stalin.sc:11128:387174 */ a37800 = t76981; /* x283869 */ /* x283868 */ t76982 = a37800; /* x283867 */ if (!((t76982.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-CALL-SITES[6085] 32717]"); structure_ref_error();} t76976 = t76982.value.structure_type27858->s3; /* x269469 stalin.sc:11127:387104 */ t76973 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t76973==NULL) {backtrace("stalin.sc", 11127, 387103); out_of_memory_error();} t76973->s0.tag = STRUCTURE_TYPE27745; t76973->s0.value.structure_type27745 = t76975; t76973->s1 = *((struct w49 *)(&t76976)); /* x107472 stalin.sc:11126:387062 */ t76974.tag = STRUCTURE_TYPE24753; t76974.value.structure_type24753 = t76973; f6086(t76972, t76974); goto l13960; l13959: /* x107489 stalin.sc:11124:386974 */ /* x107488 stalin.sc:11124:386974 */ l13960: break; case NATIVE_PROCEDURE_TYPE22518: p10706 = t73937.value.native_procedure_type22518; a23476 = t73938; /* x97266 stalin.sc:9099:311702 */ /* x97255 stalin.sc:9099:311708 */ /* x97254 stalin.sc:9099:311734 */ t76984 = a23476; /* x97253 stalin.sc:9099:311709 */ /* x97252 stalin.sc:9099:311731 */ t76985 = 1; /* x97251 stalin.sc:9099:311710 */ t76983 = f7736(t76985); if ((f7737(t76983, t76984).tag)==FALSE_TYPE) goto l13963; /* x97263 */ /* x97262 */ t76986 = p10706; p10707 = t76986; /* x97261 stalin.sc:9100:311746 */ /* x97259 stalin.sc:9100:311762 */ /* x97258 stalin.sc:9100:311777 */ t76989 = a23476; /* x97257 stalin.sc:9100:311763 */ t76987 = f7923(t76989); /* x97260 stalin.sc:9100:311780 */ t76988 = p10707->a23474; /* x97256 stalin.sc:9100:311747 */ f10617(t76987, t76988); goto l13964; l13963: /* x97265 stalin.sc:9099:311702 */ /* x97264 stalin.sc:9099:311702 */ l13964: break; case NATIVE_PROCEDURE_TYPE22542: p10686 = t73937.value.native_procedure_type22542; a23462 = t73938; /* x97083 stalin.sc:9040:308553 */ /* x97049 stalin.sc:9040:308559 */ /* x97048 stalin.sc:9043:308672 */ t76991 = a23462; /* x97047 stalin.sc:9040:308560 */ /* x97033 stalin.sc:9040:308564 */ /* x97032 stalin.sc:9040:308571 */ t76992 = p10686->p10663->a23450; /* x97031 stalin.sc:9040:308565 */ if (f8931(t76992)==FALSE_TYPE) goto l13969; /* x97041 stalin.sc:9041:308577 */ /* x97040 stalin.sc:9041:308608 */ /* x97038 stalin.sc:9041:308611 */ /* x97037 stalin.sc:9041:308619 */ t77000 = p10686->a23460; /* x97036 stalin.sc:9041:308612 */ t76998 = f26227(t77000); /* x97039 stalin.sc:9041:308623 */ t76999 = 1; /* x269707 stalin.sc:9041:308609 */ t76996 = t76998-t76999; /* x97034 stalin.sc:9041:308578 */ t76997 = f7738(t76996); t76990 = (unsigned)t76997; goto l13970; l13969: /* x97046 stalin.sc:9042:308630 */ /* x97045 stalin.sc:9042:308652 */ /* x97044 stalin.sc:9042:308660 */ t76995 = p10686->a23460; /* x97043 stalin.sc:9042:308653 */ t76993 = f26227(t76995); /* x97042 stalin.sc:9042:308631 */ t76994 = f7736(t76993); t76990 = ((unsigned)t76994)+1; l13970: if ((t76990&3)==1) {if ((f7737(((struct p7736 *)(t76990-1)), t76991).tag)==FALSE_TYPE) goto l13966;} else if ((f7739(((struct p7738 *)t76990), t76991).tag)==FALSE_TYPE) goto l13966; /* x97080 */ /* x97079 */ t77001 = p10686; p10687 = t77001; /* x97078 */ /* x97067 stalin.sc:9044:308682 */ /* x97065 stalin.sc:9044:308703 */ /* x97064 stalin.sc:9044:308722 */ /* x97063 stalin.sc:9044:308729 */ t77013 = p10687->a23460; /* x97062 stalin.sc:9044:308723 */ a35712 = t77013; /* x274205 */ /* x274204 */ t77014 = a35712; /* x274203 */ if (!((t77014.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29861]"); structure_ref_error();} t77011 = t77014.value.structure_type24753->s0; /* x97061 stalin.sc:9044:308704 */ a36827 = t77011; /* x279977 */ /* x279976 */ t77012 = a36827; /* x279975 */ if (!((t77012.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31744]"); structure_ref_error();} t77010 = t77012.value.structure_type27692->s9; /* x97066 stalin.sc:9044:308734 */ /* x97060 stalin.sc:9044:308683 */ f8118(t77010); /* x97077 stalin.sc:9045:308745 */ /* x97071 stalin.sc:9045:308761 */ /* x97070 stalin.sc:9045:308776 */ t77017 = a23462; /* x97069 stalin.sc:9045:308762 */ t77015 = f7923(t77017); /* x97076 stalin.sc:9045:308779 */ /* x97075 stalin.sc:9045:308798 */ /* x97074 stalin.sc:9045:308805 */ t77020 = p10687->a23460; /* x97073 stalin.sc:9045:308799 */ a35713 = t77020; /* x274209 */ /* x274208 */ t77021 = a35713; /* x274207 */ if (!((t77021.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29862]"); structure_ref_error();} t77018 = t77021.value.structure_type24753->s0; /* x97072 stalin.sc:9045:308780 */ a36828 = t77018; /* x279981 */ /* x279980 */ t77019 = a36828; /* x279979 */ if (!((t77019.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31745]"); structure_ref_error();} t77016 = t77019.value.structure_type27692->s9; /* x97068 stalin.sc:9045:308746 */ f10617(t77015, t77016); /* x97059 */ t77002 = p10687; p10688 = t77002; /* x97058 stalin.sc:9046:308818 */ /* x97051 stalin.sc:9046:308824 */ t77004 = p10688->a23458; /* x97054 stalin.sc:9046:308827 */ /* x97053 stalin.sc:9046:308842 */ t77007 = a23462; /* x97052 stalin.sc:9046:308828 */ t77005 = f7927(t77007); /* x97057 stalin.sc:9046:308845 */ /* x97056 stalin.sc:9046:308851 */ t77008 = p10688->a23460; /* x97055 stalin.sc:9046:308846 */ a35355 = t77008; /* x272777 */ /* x272776 */ t77009 = a35355; /* x272775 */ if (!((t77009.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29504]"); structure_ref_error();} t77006 = t77009.value.structure_type24753->s1; /* x97050 stalin.sc:9046:308819 */ t77003 = p10688->p10663; f10680(t77003, t77004, t77005, t77006); goto l13967; l13966: /* x97082 stalin.sc:9040:308553 */ /* x97081 stalin.sc:9040:308553 */ l13967: break; case NATIVE_PROCEDURE_TYPE22771: f10658((t73937.value.native_procedure_type22771), t73938); break; case NATIVE_PROCEDURE_TYPE22772: f10657((t73937.value.native_procedure_type22772), t73938); break; case NATIVE_PROCEDURE_TYPE22785: a27408 = t73938; /* x153765 stalin.sc:21052:736365 */ /* x153763 stalin.sc:21052:736395 */ t77022 = a27408; /* x153764 stalin.sc:21052:736398 */ /* x153762 stalin.sc:21052:736366 */ f7629(t77022); break; case NATIVE_PROCEDURE_TYPE22837: p16423 = t73937.value.native_procedure_type22837; a27559 = t73938; /* x154317 stalin.sc:21185:740617 */ /* x154293 stalin.sc:21185:740623 */ /* x154292 stalin.sc:21187:740707 */ t77024 = a27559; /* x154291 stalin.sc:21185:740624 */ /* x154290 stalin.sc:21186:740653 */ /* x154289 stalin.sc:21186:740660 */ /* x154288 stalin.sc:21186:740696 */ t77028 = p16423->p16421->a27553; /* x154287 stalin.sc:21186:740661 */ a38142 = t77028; /* x285237 */ /* x285236 */ t77029 = a38142; /* x285235 */ if (!((t77029.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33059]"); structure_ref_error();} t77026 = t77029.value.structure_type27753->s1; /* x154286 stalin.sc:21186:740654 */ a35684 = t77026; /* x274093 */ /* x274092 */ t77027 = a35684; /* x274091 */ if (!((t77027.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29833]"); structure_ref_error();} t77025 = t77027.value.structure_type24753->s0; /* x154285 stalin.sc:21185:740625 */ t77023 = f7717(t77025); if (f7718(t77023, t77024)==FALSE_TYPE) goto l13972; /* x154314 */ /* x154313 */ t77030 = p16423; p16424 = t77030; /* x154312 */ /* x154311 stalin.sc:21188:740717 */ /* x154309 stalin.sc:21188:740749 */ t77042 = a27559; /* x154310 stalin.sc:21188:740752 */ /* x154308 stalin.sc:21188:740718 */ t77043 = FALSE_TYPE; f7430(t77042, t77043); /* x154307 */ t77031 = p16424; p16425 = t77031; /* x154306 stalin.sc:21189:740762 */ /* x154295 stalin.sc:21190:740785 */ t77032 = p16425->a27558; /* x154305 stalin.sc:21191:740795 */ /* x154299 stalin.sc:21191:740805 */ /* x154298 stalin.sc:21191:740827 */ t77037 = a27559; /* x154297 stalin.sc:21191:740806 */ a37622 = t77037; /* x283157 */ /* x283156 */ t77038 = a37622; /* x283155 */ if (!((t77038.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32539]"); structure_ref_error();} t77034 = t77038.value.structure_type27769->s1; /* x154304 stalin.sc:21192:740834 */ /* x154303 stalin.sc:21192:740842 */ /* x154302 stalin.sc:21192:740878 */ t77040 = p16425->p16421->a27553; /* x154301 stalin.sc:21192:740843 */ a38141 = t77040; /* x285233 */ /* x285232 */ t77041 = a38141; /* x285231 */ if (!((t77041.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33058]"); structure_ref_error();} t77039 = t77041.value.structure_type27753->s1; /* x154300 stalin.sc:21192:740835 */ t77035 = f26181(t77039); /* x154296 stalin.sc:21191:740796 */ t77036 = *((struct w49 *)(&t77034)); t77033 = f26338(t77036, t77035); /* x154294 stalin.sc:21189:740763 */ f10617(t77032, t77033); goto l13973; l13972: /* x154316 stalin.sc:21185:740617 */ /* x154315 stalin.sc:21185:740617 */ l13973: break; case NATIVE_PROCEDURE_TYPE22842: p16407 = t73937.value.native_procedure_type22842; a27511 = t73938; /* x154148 stalin.sc:21137:739079 */ /* x154117 stalin.sc:21137:739085 */ /* x154116 stalin.sc:21139:739169 */ t77045 = a27511; /* x154115 stalin.sc:21137:739086 */ /* x154114 stalin.sc:21138:739115 */ /* x154113 stalin.sc:21138:739122 */ /* x154112 stalin.sc:21138:739158 */ t77049 = p16407->a27506; /* x154111 stalin.sc:21138:739123 */ a38140 = t77049; /* x285229 */ /* x285228 */ t77050 = a38140; /* x285227 */ if (!((t77050.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33057]"); structure_ref_error();} t77047 = t77050.value.structure_type27753->s1; /* x154110 stalin.sc:21138:739116 */ a35683 = t77047; /* x274089 */ /* x274088 */ t77048 = a35683; /* x274087 */ if (!((t77048.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29832]"); structure_ref_error();} t77046 = t77048.value.structure_type24753->s0; /* x154109 stalin.sc:21137:739087 */ t77044 = f7717(t77046); if (f7718(t77044, t77045)==FALSE_TYPE) goto l13975; /* x154145 */ /* x154144 */ t77051 = p16407; p16408 = t77051; /* x154143 */ /* x154142 stalin.sc:21140:739179 */ /* x154135 stalin.sc:21140:739190 */ /* x154134 stalin.sc:21140:739230 */ t77073 = a27511; /* x154133 stalin.sc:21140:739191 */ a19957 = t77073; /* x53292 */ /* x53291 */ t77074 = a19957; /* x53290 */ if (!((t77074.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("STRUCTURE-TYPE-STRUCTURE-REF-ACCESSED?[6225]"); structure_ref_error();} t77064 = t77074.value.structure_type27769->s7; /* x154140 stalin.sc:21141:739237 */ /* x154139 stalin.sc:21141:739245 */ /* x154138 stalin.sc:21141:739281 */ t77076 = p16408->a27506; /* x154137 stalin.sc:21141:739246 */ a38139 = t77076; /* x285225 */ /* x285224 */ t77077 = a38139; /* x285223 */ if (!((t77077.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33056]"); structure_ref_error();} t77075 = t77077.value.structure_type27753->s1; /* x154136 stalin.sc:21141:739238 */ t77065 = f26181(t77075); /* x154141 stalin.sc:21142:739289 */ /* x154132 stalin.sc:21140:739180 */ a14645 = *((struct w49 *)(&t77064)); a14646 = t77065; h1001: /* x14044 QobiScheme.sc:257:8099 */ /* x14029 QobiScheme.sc:257:8103 */ /* x14028 QobiScheme.sc:257:8110 */ t77066 = a14646; /* x270981 QobiScheme.sc:257:8104 */ switch (t77066.tag) {case FIXNUM_TYPE: if (!((t77066.value.fixnum_type)==0)) goto l13978; break; case FLONUM_TYPE: if (!((t77066.value.flonum_type)==0.0)) goto l13978; break; case INPUT_PORT_TYPE: if (!((t77066.value.input_port_type)==NULL)) goto l13978; break; case OUTPUT_PORT_TYPE: if (!((t77066.value.output_port_type)==NULL)) goto l13978; break; case STRING_TYPE: if (!((t77066.value.string_type)==NULL)) goto l13978; break; default: backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 257, 8103); zero_error();} /* x14033 QobiScheme.sc:257:8113 */ /* x14031 QobiScheme.sc:257:8123 */ t77072 = a14645; /* x14032 QobiScheme.sc:257:8125 */ /* x270980 QobiScheme.sc:257:8114 */ if (!((t77072.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 257, 8113); structure_set_error();} t77072.value.structure_type24753->s0.tag = TRUE_TYPE; goto l13979; l13978: /* x14043 QobiScheme.sc:257:8128 */ /* x14037 QobiScheme.sc:257:8139 */ /* x14036 QobiScheme.sc:257:8144 */ t77069 = a14645; /* x270979 QobiScheme.sc:257:8140 */ if (!((t77069.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 257, 8139); structure_ref_error();} t77067 = t77069.value.structure_type24753->s1; /* x14041 QobiScheme.sc:257:8147 */ /* x14039 QobiScheme.sc:257:8150 */ t77070 = *((struct w228484 *)(&a14646)); /* x14040 QobiScheme.sc:257:8152 */ t77071 = 1; /* x270978 QobiScheme.sc:257:8148 */ switch (t77070.tag) {case FIXNUM_TYPE: t77068.tag = FIXNUM_TYPE; t77068.value.fixnum_type = (t77070.value.fixnum_type)-t77071; break; case FLONUM_TYPE: t77068.tag = FLONUM_TYPE; t77068.value.flonum_type = (t77070.value.flonum_type)-t77071; break; default: backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 257, 8147); minus_error();} /* x14042 QobiScheme.sc:257:8155 */ /* x14034 QobiScheme.sc:257:8129 */ a14645 = t77067; a14646 = *((struct w49 *)(&t77068)); goto h1001; l13979: /* x154131 */ t77052 = p16408; p16409 = t77052; /* x154130 stalin.sc:21143:739299 */ /* x154119 stalin.sc:21144:739323 */ t77053 = p16409->a27507; /* x154129 stalin.sc:21145:739348 */ /* x154123 stalin.sc:21145:739358 */ /* x154122 stalin.sc:21145:739380 */ t77059 = a27511; /* x154121 stalin.sc:21145:739359 */ a37621 = t77059; /* x283153 */ /* x283152 */ t77060 = a37621; /* x283151 */ if (!((t77060.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32538]"); structure_ref_error();} t77056 = t77060.value.structure_type27769->s1; /* x154128 stalin.sc:21146:739387 */ /* x154127 stalin.sc:21146:739395 */ /* x154126 stalin.sc:21146:739431 */ t77062 = p16409->a27506; /* x154125 stalin.sc:21146:739396 */ a19526 = t77062; /* x51690 */ /* x51689 */ t77063 = a19526; /* x51688 */ if (!((t77063.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903]"); structure_ref_error();} t77061 = t77063.value.structure_type27753->s1; /* x154124 stalin.sc:21146:739388 */ t77057 = f26181(t77061); /* x154120 stalin.sc:21145:739349 */ t77058 = *((struct w49 *)(&t77056)); t77054 = f26338(t77058, t77057); /* x154118 stalin.sc:21143:739300 */ /* MOVE: dispatching squished to general */ if ((t77053&3)==1) {t77055.tag = NATIVE_PROCEDURE_TYPE22771; t77055.value.native_procedure_type22771 = (struct p10641 *)(t77053-1);} else {t77055.tag = NATIVE_PROCEDURE_TYPE22772; t77055.value.native_procedure_type22772 = (struct p10646 *)t77053;} f8173(t77055, t77054); goto l13976; l13975: /* x154147 stalin.sc:21137:739079 */ /* x154146 stalin.sc:21137:739079 */ l13976: break; case NATIVE_PROCEDURE_TYPE22849: a27653 = t73938; /* x154550 stalin.sc:21252:742684 */ /* x154548 stalin.sc:21252:742714 */ t77078 = a27653; /* x154549 stalin.sc:21252:742717 */ /* x154547 stalin.sc:21252:742685 */ f7629(t77078); break; case NATIVE_PROCEDURE_TYPE22854: a27608 = t73938; /* x154485 stalin.sc:21239:742234 */ /* x154483 stalin.sc:21239:742264 */ t77079 = a27608; /* x154484 stalin.sc:21239:742267 */ /* x154482 stalin.sc:21239:742235 */ f7629(t77079); break; case NATIVE_PROCEDURE_TYPE22859: a27808 = t73938; /* x156698 stalin.sc:21750:762022 */ /* x156696 stalin.sc:21750:762052 */ t77080 = a27808; /* x156697 stalin.sc:21750:762055 */ /* x156695 stalin.sc:21750:762023 */ f7629(t77080); break; case NATIVE_PROCEDURE_TYPE22865: a27853 = t73938; /* x156763 stalin.sc:21763:762465 */ /* x156761 stalin.sc:21763:762495 */ t77081 = a27853; /* x156762 stalin.sc:21763:762498 */ /* x156760 stalin.sc:21763:762466 */ f7629(t77081); break; case NATIVE_PROCEDURE_TYPE22881: a27707 = t73938; /* x154644 stalin.sc:21291:744217 */ /* x154635 stalin.sc:21291:744223 */ /* x154634 stalin.sc:21291:744240 */ t77082 = a27707; /* x154633 stalin.sc:21291:744224 */ a37677 = t77082; /* x283377 */ /* x283376 */ t77083 = a37677; /* x283375 */ if (!((t77083.tag)==STRUCTURE_TYPE27769)) goto l13981; /* x154641 */ /* x154640 */ /* x154639 stalin.sc:21292:744247 */ /* x154637 stalin.sc:21292:744279 */ t77084 = a27707; /* x154638 stalin.sc:21292:744282 */ /* x154636 stalin.sc:21292:744248 */ t77085 = FALSE_TYPE; f7430(t77084, t77085); goto l13982; l13981: /* x154643 stalin.sc:21291:744217 */ /* x154642 stalin.sc:21291:744217 */ l13982: break; case NATIVE_PROCEDURE_TYPE22884: a27706 = t73938; /* x154628 stalin.sc:21289:744136 */ /* x154626 stalin.sc:21289:744161 */ t77086 = a27706; /* x154627 stalin.sc:21289:744164 */ /* x154625 stalin.sc:21289:744137 */ f7653(t77086); break; case NATIVE_PROCEDURE_TYPE22918: a27705 = t73938; /* x154620 stalin.sc:21288:744064 */ /* x154618 stalin.sc:21288:744089 */ t77087 = a27705; /* x154619 stalin.sc:21288:744092 */ /* x154617 stalin.sc:21288:744065 */ f7653(t77087); break; case NATIVE_PROCEDURE_TYPE22920: a27704 = t73938; /* x154611 stalin.sc:21295:744344 */ /* x154602 stalin.sc:21295:744350 */ /* x154601 stalin.sc:21295:744367 */ t77088 = a27704; /* x154600 stalin.sc:21295:744351 */ a37675 = t77088; /* x283369 */ /* x283368 */ t77089 = a37675; /* x283367 */ if (!((t77089.tag)==STRUCTURE_TYPE27769)) goto l13984; /* x154608 */ /* x154607 */ /* x154606 stalin.sc:21296:744374 */ /* x154604 stalin.sc:21296:744406 */ t77090 = a27704; /* x154605 stalin.sc:21296:744409 */ /* x154603 stalin.sc:21296:744375 */ t77091 = FALSE_TYPE; f7430(t77090, t77091); goto l13985; l13984: /* x154610 stalin.sc:21295:744344 */ /* x154609 stalin.sc:21295:744344 */ l13985: break; case NATIVE_PROCEDURE_TYPE22926: a27989 = t73938; /* x156993 stalin.sc:21825:764168 */ /* x156991 stalin.sc:21825:764198 */ t77092 = a27989; /* x156992 stalin.sc:21825:764201 */ /* x156990 stalin.sc:21825:764169 */ f7629(t77092); break; case NATIVE_PROCEDURE_TYPE22933: a28085 = t73938; /* x157219 stalin.sc:21865:765532 */ /* x157217 stalin.sc:21865:765562 */ t77093 = a28085; /* x157218 stalin.sc:21865:765565 */ /* x157216 stalin.sc:21865:765533 */ f7629(t77093); break; case NATIVE_PROCEDURE_TYPE22942: a28036 = t73938; /* x157084 stalin.sc:21841:764698 */ /* x157082 stalin.sc:21841:764728 */ t77094 = a28036; /* x157083 stalin.sc:21841:764731 */ /* x157081 stalin.sc:21841:764699 */ f7629(t77094); break; case NATIVE_PROCEDURE_TYPE22977: p16641 = t73937.value.native_procedure_type22977; a27941 = t73938; /* x156904 stalin.sc:21801:763498 */ /* x156894 stalin.sc:21801:763504 */ /* x156893 stalin.sc:21801:763518 */ t77095 = a27941; /* x156892 stalin.sc:21801:763505 */ a37746 = t77095; /* x283653 */ /* x283652 */ t77096 = a37746; /* x283651 */ if (!((t77096.tag)==STRUCTURE_TYPE27673)) goto l13987; /* x156901 */ /* x156900 */ t77097 = p16641; p16642 = t77097; /* x156899 stalin.sc:21801:763522 */ /* x156898 stalin.sc:21801:763541 */ /* x156897 stalin.sc:21801:763560 */ t77102 = a27941; /* x156896 stalin.sc:21801:763542 */ t77099 = f7054(t77102); /* x156895 stalin.sc:21801:763523 */ t77098 = p16642->a27937; if ((t77098&3)==1) {t77100.tag = STRUCTURE_TYPE27779; t77100.value.structure_type27779 = t77099; f10658(((struct p10641 *)(t77098-1)), t77100);} else {t77101.tag = STRUCTURE_TYPE27779; t77101.value.structure_type27779 = t77099; f10657(((struct p10646 *)t77098), t77101);} goto l13988; l13987: /* x156903 stalin.sc:21801:763498 */ /* x156902 stalin.sc:21801:763498 */ l13988: break; case NATIVE_PROCEDURE_TYPE23163: a30116 = t73938; /* x163660 stalin.sc:23318:813837 */ /* x163658 stalin.sc:23318:813867 */ t77103 = a30116; /* x163659 stalin.sc:23318:813870 */ /* x163657 stalin.sc:23318:813838 */ f7629(t77103); break; case NATIVE_PROCEDURE_TYPE23168: a30249 = t73938; /* x163873 stalin.sc:23372:815342 */ /* x163871 stalin.sc:23372:815372 */ t77104 = a30249; /* x163872 stalin.sc:23372:815375 */ /* x163870 stalin.sc:23372:815343 */ f7629(t77104); break; case NATIVE_PROCEDURE_TYPE23174: a30463 = t73938; /* x164586 stalin.sc:23558:820612 */ /* x164577 stalin.sc:23558:820618 */ /* x164576 stalin.sc:23558:820632 */ t77105 = a30463; /* x164575 stalin.sc:23558:820619 */ a37745 = t77105; /* x283649 */ /* x283648 */ t77106 = a37745; /* x283647 */ if (!((t77106.tag)==STRUCTURE_TYPE27673)) goto l13990; /* x164583 */ /* x164582 */ /* x164581 stalin.sc:23559:820644 */ /* x164579 stalin.sc:23559:820683 */ t77107 = a30463; /* x164580 stalin.sc:23559:820686 */ /* x164578 stalin.sc:23559:820645 */ a21305 = t77107; /* x62590 */ /* x62589 stalin.sc:1723:57171 */ /* x62582 stalin.sc:1723:57179 */ /* x62581 stalin.sc:1723:57189 */ /* x270578 stalin.sc:1723:57180 */ /* x62584 */ /* x62583 */ /* x62579 */ while (region7416!=((struct region7416 *)(&initial_region7416))) {struct region7416 *region; region = region7416; region7416 = region7416->region; GC_free(region);} region_size7416 = REGION_SIZE7416; fp7416 = &((region7416->data)[0]); ALIGN(fp7416); /* x62578 stalin.sc:1724:57205 */ /* x62561 stalin.sc:1725:57234 */ t77108 = a21305; /* x62577 stalin.sc:1726:57238 */ /* x62562 stalin.sc:1726:57242 */ /* x62568 stalin.sc:1727:57251 */ /* x62567 stalin.sc:1727:57284 */ t77111 = 4; /* x62566 stalin.sc:1727:57259 */ /* x62565 stalin.sc:1727:57281 */ t77114 = a21305; /* x62564 stalin.sc:1727:57260 */ a37717 = t77114; /* x283537 */ /* x283536 */ t77115 = a37717; /* x283535 */ if (!((t77115.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-BOOLEANS[6159] 32634]"); structure_ref_error();} t77110 = t77115.value.structure_type27673->s6; /* x62563 stalin.sc:1727:57252 */ if ((fp7416+sizeof(struct structure_type24753))>(&((region7416->data)[region_size7416]))) {struct region7416 *region; unsigned region_size = REGION_SIZE7416; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7416 *)GC_malloc_uncollectable(sizeof(struct region7416)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1727, 57251); out_of_memory_error();} region->region = region7416; region_size7416 = region_size; region7416 = region; fp7416 = &((region->data)[0]); ALIGN(fp7416);} t77113.tag = STRUCTURE_TYPE24753; t77113.value.structure_type24753 = (struct structure_type24753 *)fp7416; fp7416 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t77113.value.structure_type24753->s0.tag = FIXNUM_TYPE; t77113.value.structure_type24753->s0.value.fixnum_type = t77111; t77113.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7416+sizeof(struct structure_type24753))>(&((region7416->data)[region_size7416]))) {struct region7416 *region; unsigned region_size = REGION_SIZE7416; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7416 *)GC_malloc_uncollectable(sizeof(struct region7416)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1727, 57251); out_of_memory_error();} region->region = region7416; region_size7416 = region_size; region7416 = region; fp7416 = &((region->data)[0]); ALIGN(fp7416);} t77112 = (struct structure_type24753 *)fp7416; fp7416 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t77112->s0.tag = FIXNUM_TYPE; t77112->s0.value.fixnum_type = t77110; t77112->s1 = t77113; t77109 = f27310(t77112); /* x62560 stalin.sc:1724:57206 */ f6160(t77108, t77109); goto l13991; l13990: /* x164585 stalin.sc:23558:820612 */ /* x164584 stalin.sc:23558:820612 */ l13991: break; case NATIVE_PROCEDURE_TYPE23181: a30416 = t73938; /* x164511 stalin.sc:23537:820032 */ /* x164502 stalin.sc:23537:820038 */ /* x164501 stalin.sc:23537:820052 */ t77116 = a30416; /* x164500 stalin.sc:23537:820039 */ a37744 = t77116; /* x283645 */ /* x283644 */ t77117 = a37744; /* x283643 */ if (!((t77117.tag)==STRUCTURE_TYPE27673)) goto l13995; /* x164508 */ /* x164507 */ /* x164506 stalin.sc:23538:820064 */ /* x164504 stalin.sc:23538:820106 */ t77118 = a30416; /* x164505 stalin.sc:23538:820109 */ /* x164503 stalin.sc:23538:820065 */ a21301 = t77118; /* x62545 */ /* x62544 stalin.sc:1712:56845 */ /* x62537 stalin.sc:1712:56853 */ /* x62536 stalin.sc:1712:56863 */ /* x270579 stalin.sc:1712:56854 */ /* x62539 */ /* x62538 */ /* x62534 */ while (region7411!=((struct region7411 *)(&initial_region7411))) {struct region7411 *region; region = region7411; region7411 = region7411->region; GC_free(region);} region_size7411 = REGION_SIZE7411; fp7411 = &((region7411->data)[0]); ALIGN(fp7411); /* x62533 stalin.sc:1713:56879 */ /* x62516 stalin.sc:1714:56908 */ t77119 = a21301; /* x62532 stalin.sc:1715:56912 */ /* x62517 stalin.sc:1715:56916 */ /* x62523 stalin.sc:1716:56925 */ /* x62522 stalin.sc:1716:56958 */ t77122 = 8; /* x62521 stalin.sc:1716:56933 */ /* x62520 stalin.sc:1716:56955 */ t77125 = a21301; /* x62519 stalin.sc:1716:56934 */ a37716 = t77125; /* x283533 */ /* x283532 */ t77126 = a37716; /* x283531 */ if (!((t77126.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-BOOLEANS[6159] 32633]"); structure_ref_error();} t77121 = t77126.value.structure_type27673->s6; /* x62518 stalin.sc:1716:56926 */ if ((fp7411+sizeof(struct structure_type24753))>(&((region7411->data)[region_size7411]))) {struct region7411 *region; unsigned region_size = REGION_SIZE7411; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7411 *)GC_malloc_uncollectable(sizeof(struct region7411)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1716, 56925); out_of_memory_error();} region->region = region7411; region_size7411 = region_size; region7411 = region; fp7411 = &((region->data)[0]); ALIGN(fp7411);} t77124.tag = STRUCTURE_TYPE24753; t77124.value.structure_type24753 = (struct structure_type24753 *)fp7411; fp7411 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t77124.value.structure_type24753->s0.tag = FIXNUM_TYPE; t77124.value.structure_type24753->s0.value.fixnum_type = t77122; t77124.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7411+sizeof(struct structure_type24753))>(&((region7411->data)[region_size7411]))) {struct region7411 *region; unsigned region_size = REGION_SIZE7411; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7411 *)GC_malloc_uncollectable(sizeof(struct region7411)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1716, 56925); out_of_memory_error();} region->region = region7411; region_size7411 = region_size; region7411 = region; fp7411 = &((region->data)[0]); ALIGN(fp7411);} t77123 = (struct structure_type24753 *)fp7411; fp7411 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t77123->s0.tag = FIXNUM_TYPE; t77123->s0.value.fixnum_type = t77121; t77123->s1 = t77124; t77120 = f27310(t77123); /* x62515 stalin.sc:1713:56880 */ f6160(t77119, t77120); goto l13996; l13995: /* x164510 stalin.sc:23537:820032 */ /* x164509 stalin.sc:23537:820032 */ l13996: break; case NATIVE_PROCEDURE_TYPE23193: a30562 = t73938; /* x164854 stalin.sc:23637:822614 */ /* x164852 stalin.sc:23637:822644 */ t77127 = a30562; /* x164853 stalin.sc:23637:822647 */ /* x164851 stalin.sc:23637:822615 */ f7629(t77127); break; case NATIVE_PROCEDURE_TYPE23202: p17700 = t73937.value.native_procedure_type23202; a30675 = t73938; /* x165305 stalin.sc:23764:826271 */ /* x165295 stalin.sc:23764:826277 */ /* x165294 stalin.sc:23764:826291 */ t77128 = a30675; /* x165293 stalin.sc:23764:826278 */ if (f7741(t77128)==FALSE_TYPE) goto l14000; /* x165302 */ /* x165301 */ t77129 = p17700; p17701 = t77129; /* x165300 stalin.sc:23764:826295 */ /* x165299 stalin.sc:23764:826314 */ /* x165298 stalin.sc:23764:826334 */ t77134 = a30675; /* x165297 stalin.sc:23764:826315 */ a21145 = t77134; h7211: /* x60790 */ /* x60789 stalin.sc:1278:42425 */ /* x60782 stalin.sc:1278:42431 */ if (a2040==FALSE_TYPE) goto l14023; /* x60786 */ /* x60785 */ /* x60784 stalin.sc:1278:42447 */ /* x60783 stalin.sc:1278:42448 */ /* x295337 QobiScheme.sc:166:5314 */ /* x295336 QobiScheme.sc:166:5321 */ t77186 = "This shouldn\'t happen"; /* x295335 QobiScheme.sc:166:5315 */ stalin_panic(t77186); goto l14024; l14023: /* x60788 stalin.sc:1278:42425 */ /* x60787 stalin.sc:1278:42425 */ l14024: /* x60781 */ /* x60780 stalin.sc:1279:42459 */ /* x60744 stalin.sc:1279:42463 */ /* x60743 stalin.sc:1279:42487 */ t77135 = a21145; /* x60742 stalin.sc:1279:42464 */ a37320 = t77135; /* x281949 */ /* x281948 */ t77136 = a37320; /* x281947 */ if (!((t77136.tag)==STRUCTURE_TYPE27908)) goto l14003; /* x60749 stalin.sc:1280:42495 */ /* x60748 stalin.sc:1280:42515 */ /* x60747 stalin.sc:1280:42560 */ t77184 = a21145; /* x60746 stalin.sc:1280:42516 */ a37303 = t77184; /* x281881 */ /* x281880 */ t77185 = a37303; /* x281879 */ if (!((t77185.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-DISPLACED-VECTOR-TYPE[6375] 32220]"); structure_ref_error();} t77183 = t77185.value.structure_type27908->s0; /* x60745 stalin.sc:1280:42496 */ a21145 = t77183; goto h7211; l14003: /* x60779 stalin.sc:1281:42569 */ /* x60778 stalin.sc:1281:42573 */ /* x60759 stalin.sc:1281:42580 */ /* x60758 stalin.sc:1281:42601 */ t77174 = a21145; /* x60757 stalin.sc:1281:42581 */ a37533 = t77174; /* x282801 */ /* x282800 */ t77175 = a37533; /* x282799 */ if (!((t77175.tag)==STRUCTURE_TYPE27761)) goto l14017; /* x60764 */ /* x60763 */ /* x60762 stalin.sc:1282:42606 */ /* x60761 stalin.sc:1282:42648 */ t77181 = a21145; /* x60760 stalin.sc:1282:42607 */ a20046 = t77181; /* x53621 */ /* x53620 */ t77182 = a20046; /* x53619 */ if (!((t77182.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("HEADED-VECTOR-TYPE-DISPLACED-VECTOR-TYPE[6291]"); structure_ref_error();} t77137 = t77182.value.structure_type27761->s6; goto l14018; l14017: /* x60777 */ /* x60767 stalin.sc:1283:42661 */ /* x60766 stalin.sc:1283:42685 */ t77176 = a21145; /* x60765 stalin.sc:1283:42662 */ a37417 = t77176; /* x282337 */ /* x282336 */ t77177 = a37417; /* x282335 */ if (!((t77177.tag)==STRUCTURE_TYPE27669)) goto l14020; /* x60772 */ /* x60771 */ /* x60770 stalin.sc:1284:42690 */ /* x60769 stalin.sc:1284:42735 */ t77179 = a21145; /* x60768 stalin.sc:1284:42691 */ a20135 = t77179; /* x53950 */ /* x53949 */ t77180 = a20135; /* x53948 */ if (!((t77180.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("NONHEADED-VECTOR-TYPE-DISPLACED-VECTOR-TYPE[6357]"); structure_ref_error();} t77137 = t77180.value.structure_type27669->s6; goto l14021; l14020: /* x60776 */ /* x60775 */ /* x60774 stalin.sc:1285:42753 */ /* x60773 stalin.sc:1285:42754 */ /* x295333 QobiScheme.sc:166:5314 */ /* x295332 QobiScheme.sc:166:5321 */ t77178 = "This shouldn\'t happen"; /* x295331 QobiScheme.sc:166:5315 */ stalin_panic(t77178); l14021: l14018: /* x60756 */ a21147 = t77137; /* x60755 */ /* x60750 */ if (a21147==((struct structure_type27908 *)FALSE_TYPE)) goto l14005; /* x60751 */ t77131 = a21147; goto l14006; l14005: /* x60754 */ /* x60753 stalin.sc:1286:42797 */ t77138 = a21145; /* x60752 stalin.sc:1286:42768 */ a21138 = t77138; /* x60739 */ /* x60738 stalin.sc:1263:41829 */ /* x60731 stalin.sc:1263:41835 */ if (a2040==FALSE_TYPE) goto l14014; /* x60735 */ /* x60734 */ /* x60733 stalin.sc:1263:41851 */ /* x60732 stalin.sc:1263:41852 */ /* x294961 QobiScheme.sc:166:5314 */ /* x294960 QobiScheme.sc:166:5321 */ t77173 = "This shouldn\'t happen"; /* x294959 QobiScheme.sc:166:5315 */ stalin_panic(t77173); goto l14015; l14014: /* x60737 stalin.sc:1263:41829 */ /* x60736 stalin.sc:1263:41829 */ l14015: /* x60730 */ /* x60729 stalin.sc:1264:41863 */ /* x60728 stalin.sc:1264:41873 */ /* x60720 stalin.sc:1265:41906 */ t77161 = a21138; /* x60722 stalin.sc:1265:41928 */ /* x60721 stalin.sc:1265:41929 */ /* x56489 stalin.sc:323:8604 */ t77162 = q35; /* x60723 stalin.sc:1265:41942 */ t77163 = a1982; /* x60724 stalin.sc:1265:41947 */ t77164 = 0; /* x60726 stalin.sc:1265:41949 */ /* x60725 stalin.sc:1265:41950 */ /* x277105 stalin.sc:323:8604 */ t77165 = q35; /* x60727 stalin.sc:1265:41963 */ t77166 = 0; /* x60719 stalin.sc:1264:41874 */ a20155 = t77161; a20156 = t77162; a20157 = t77163; a20158 = t77164; a20159 = t77165; a20160 = t77166; /* x54033 */ /* x54027 */ t77167 = a20155; /* x54028 */ t77168 = a20156; /* x54029 */ t77169 = a20157; /* x54030 */ t77170 = a20158; /* x54031 */ t77171 = a20159; /* x54032 */ t77172 = a20160; /* x54026 */ t77139 = (struct structure_type27908 *)GC_malloc(sizeof(struct structure_type27908)); if (t77139==NULL) {backtrace_internal("MAKE-DISPLACED-VECTOR-TYPE[6373]"); out_of_memory_error();} t77139->s0 = t77167; t77139->s1.tag = EXTERNAL_SYMBOL_TYPE; t77139->s1.value.external_symbol_type = t77168; t77139->s2 = t77169; t77139->s3 = t77170; t77139->s4.tag = EXTERNAL_SYMBOL_TYPE; t77139->s4.value.external_symbol_type = t77171; t77139->s5 = t77172; /* x60718 */ a21140 = t77139; /* x60717 */ /* x60716 */ /* x60715 */ /* x60680 stalin.sc:1266:41970 */ /* x60678 stalin.sc:1266:42003 */ t77140 = a21140; /* x60679 stalin.sc:1266:42005 */ t77141 = a21140; /* x60677 stalin.sc:1266:41971 */ t77142.tag = STRUCTURE_TYPE27908; t77142.value.structure_type27908 = t77140; t77143.tag = STRUCTURE_TYPE27908; t77143.value.structure_type27908 = t77141; f6384(t77142, t77143); /* x60685 stalin.sc:1267:42010 */ /* x60684 stalin.sc:1267:42021 */ /* x60682 stalin.sc:1267:42024 */ t77144 = a1982; /* x60683 stalin.sc:1267:42029 */ t77145 = 1; /* x270663 stalin.sc:1267:42022 */ if (!((t77144&1)==1)) {backtrace("stalin.sc", 1267, 42021); plus_error();} a1982 = (((unsigned)(((int)(((int)t77144)>>1))+t77145))<<1)+1; /* x60690 stalin.sc:1268:42035 */ /* x60689 stalin.sc:1268:42066 */ /* x60687 stalin.sc:1268:42072 */ t77146 = a21140; /* x60688 stalin.sc:1268:42074 */ t77147 = a1936; /* x270662 stalin.sc:1268:42067 */ a1936.tag = STRUCTURE_TYPE24753; a1936.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a1936.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1268, 42066); out_of_memory_error();} a1936.value.structure_type24753->s0.tag = STRUCTURE_TYPE27908; a1936.value.structure_type24753->s0.value.structure_type27908 = t77146; a1936.value.structure_type24753->s1 = *((struct w49 *)(&t77147)); /* x60714 stalin.sc:1269:42103 */ /* x60693 stalin.sc:1270:42113 */ /* x60692 stalin.sc:1270:42134 */ t77148 = a21138; /* x60691 stalin.sc:1270:42114 */ a19985 = t77148; /* x53382 */ /* x53381 */ t77149 = a19985; /* x53380 */ if (!((t77149.tag)==STRUCTURE_TYPE27761)) goto l14008; /* x60699 */ /* x60698 */ /* x60697 stalin.sc:1271:42161 */ /* x60695 stalin.sc:1271:42208 */ t77157 = a21138; /* x60696 stalin.sc:1271:42230 */ t77158 = a21140; /* x60694 stalin.sc:1271:42162 */ a20047 = t77157; a20048 = t77158; /* x53627 */ /* x53625 */ t77159 = a20047; /* x53626 */ t77160 = a20048; /* x53624 */ if (!((t77159.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("SET-HEADED-VECTOR-TYPE-DISPLACED-VECTOR-TYPE![6292]"); structure_set_error();} t77159.value.structure_type27761->s6 = t77160; goto l14009; l14008: /* x60713 */ /* x60702 stalin.sc:1272:42238 */ /* x60701 stalin.sc:1272:42262 */ t77150 = a21138; /* x60700 stalin.sc:1272:42239 */ a20074 = t77150; /* x53711 */ /* x53710 */ t77151 = a20074; /* x53709 */ if (!((t77151.tag)==STRUCTURE_TYPE27669)) goto l14011; /* x60708 */ /* x60707 */ /* x60706 stalin.sc:1273:42289 */ /* x60704 stalin.sc:1273:42339 */ t77153 = a21138; /* x60705 stalin.sc:1273:42361 */ t77154 = a21140; /* x60703 stalin.sc:1273:42290 */ a20136 = t77153; a20137 = t77154; /* x53956 */ /* x53954 */ t77155 = a20136; /* x53955 */ t77156 = a20137; /* x53953 */ if (!((t77155.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("SET-NONHEADED-VECTOR-TYPE-DISPLACED-VECTOR-TYPE![6358]"); structure_set_error();} t77155.value.structure_type27669->s6 = t77156; goto l14012; l14011: /* x60712 */ /* x60711 */ /* x60710 stalin.sc:1274:42374 */ /* x60709 stalin.sc:1274:42375 */ /* x294957 QobiScheme.sc:166:5314 */ /* x294956 QobiScheme.sc:166:5321 */ t77152 = "This shouldn\'t happen"; /* x294955 QobiScheme.sc:166:5315 */ stalin_panic(t77152); l14012: l14009: /* x60676 */ /* x60675 stalin.sc:1275:42388 */ t77131 = a21140; l14006: /* x165296 stalin.sc:23764:826296 */ t77130 = p17701->a30669; if ((t77130&3)==1) {t77132.tag = STRUCTURE_TYPE27908; t77132.value.structure_type27908 = t77131; f10658(((struct p10641 *)(t77130-1)), t77132);} else {t77133.tag = STRUCTURE_TYPE27908; t77133.value.structure_type27908 = t77131; f10657(((struct p10646 *)t77130), t77133);} goto l14001; l14000: /* x165304 stalin.sc:23764:826271 */ /* x165303 stalin.sc:23764:826271 */ l14001: break; case NATIVE_PROCEDURE_TYPE23302: p17670 = t73937.value.native_procedure_type23302; /* x164980 stalin.sc:23679:823978 */ /* x164977 stalin.sc:23680:823990 */ /* x164975 stalin.sc:23680:824014 */ /* x164974 stalin.sc:23680:824042 */ t77193 = p17670->a30619; /* x164973 stalin.sc:23680:824015 */ a37500 = t77193; /* x282669 */ /* x282668 */ t77194 = a37500; /* x282667 */ if (!((t77194.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32417]"); structure_ref_error();} t77191 = t77194.value.structure_type27761->s0; /* x164976 stalin.sc:23680:824045 */ /* x164972 stalin.sc:23680:823991 */ t77192.tag = FALSE_TYPE; t77187 = f7025(t77191, t77192); /* x164978 stalin.sc:23680:824049 */ t77188 = p17670->p17660->a30614; /* x164979 stalin.sc:23680:824052 */ t77189 = p17670->p17660->a30614; /* x164971 stalin.sc:23679:823979 */ t77190.tag = STRUCTURE_TYPE27501; t77190.value.structure_type27501 = t77187; f14848(t77190, t77188, t77189); break; case NATIVE_PROCEDURE_TYPE23361: a30784 = t73938; /* x165792 stalin.sc:23887:829734 */ /* x165763 stalin.sc:23887:829741 */ /* x165762 stalin.sc:23887:829762 */ t77195 = a30784; /* x165761 stalin.sc:23887:829742 */ a37532 = t77195; /* x282797 */ /* x282796 */ t77196 = a37532; /* x282795 */ if (!((t77196.tag)==STRUCTURE_TYPE27761)) goto l14026; /* x165769 */ /* x165768 */ /* x165767 stalin.sc:23888:829771 */ /* x165765 stalin.sc:23888:829820 */ t77219 = a30784; /* x165766 stalin.sc:23888:829823 */ /* x165764 stalin.sc:23888:829772 */ a21385 = t77219; /* x63490 */ /* x63489 stalin.sc:1943:63922 */ /* x63482 stalin.sc:1943:63930 */ /* x63481 stalin.sc:1943:63940 */ /* x270528 stalin.sc:1943:63931 */ /* x63484 */ /* x63483 */ /* x63479 */ while (region7516!=((struct region7516 *)(&initial_region7516))) {struct region7516 *region; region = region7516; region7516 = region7516->region; GC_free(region);} region_size7516 = REGION_SIZE7516; fp7516 = &((region7516->data)[0]); ALIGN(fp7516); /* x63478 stalin.sc:1944:63956 */ /* x63461 stalin.sc:1945:63992 */ t77220 = a21385; /* x63477 stalin.sc:1946:63996 */ /* x63462 stalin.sc:1946:64000 */ /* x63468 stalin.sc:1947:64009 */ /* x63467 stalin.sc:1947:64049 */ t77223 = 16; /* x63466 stalin.sc:1947:64017 */ /* x63465 stalin.sc:1947:64046 */ t77226 = a21385; /* x63464 stalin.sc:1947:64018 */ a37457 = t77226; /* x282497 */ /* x282496 */ t77227 = a37457; /* x282495 */ if (!((t77227.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-BOOLEANS[6299] 32374]"); structure_ref_error();} t77222 = t77227.value.structure_type27761->s7; /* x63463 stalin.sc:1947:64010 */ if ((fp7516+sizeof(struct structure_type24753))>(&((region7516->data)[region_size7516]))) {struct region7516 *region; unsigned region_size = REGION_SIZE7516; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7516 *)GC_malloc_uncollectable(sizeof(struct region7516)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1947, 64009); out_of_memory_error();} region->region = region7516; region_size7516 = region_size; region7516 = region; fp7516 = &((region->data)[0]); ALIGN(fp7516);} t77225.tag = STRUCTURE_TYPE24753; t77225.value.structure_type24753 = (struct structure_type24753 *)fp7516; fp7516 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t77225.value.structure_type24753->s0.tag = FIXNUM_TYPE; t77225.value.structure_type24753->s0.value.fixnum_type = t77223; t77225.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7516+sizeof(struct structure_type24753))>(&((region7516->data)[region_size7516]))) {struct region7516 *region; unsigned region_size = REGION_SIZE7516; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7516 *)GC_malloc_uncollectable(sizeof(struct region7516)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1947, 64009); out_of_memory_error();} region->region = region7516; region_size7516 = region_size; region7516 = region; fp7516 = &((region->data)[0]); ALIGN(fp7516);} t77224 = (struct structure_type24753 *)fp7516; fp7516 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t77224->s0.tag = FIXNUM_TYPE; t77224->s0.value.fixnum_type = t77222; t77224->s1 = t77225; t77221 = f27310(t77224); /* x63460 stalin.sc:1944:63957 */ f6300(t77220, t77221); goto l14027; l14026: /* x165791 */ /* x165772 stalin.sc:23889:829833 */ /* x165771 stalin.sc:23889:829857 */ t77197 = a30784; /* x165770 stalin.sc:23889:829834 */ a37416 = t77197; /* x282333 */ /* x282332 */ t77198 = a37416; /* x282331 */ if (!((t77198.tag)==STRUCTURE_TYPE27669)) goto l14029; /* x165778 */ /* x165777 */ /* x165776 stalin.sc:23890:829866 */ /* x165774 stalin.sc:23890:829918 */ t77210 = a30784; /* x165775 stalin.sc:23890:829921 */ /* x165773 stalin.sc:23890:829867 */ a21425 = t77210; /* x63940 */ /* x63939 stalin.sc:2053:67600 */ /* x63932 stalin.sc:2053:67608 */ /* x63931 stalin.sc:2053:67618 */ /* x270504 stalin.sc:2053:67609 */ /* x63934 */ /* x63933 */ /* x63929 */ while (region7566!=((struct region7566 *)(&initial_region7566))) {struct region7566 *region; region = region7566; region7566 = region7566->region; GC_free(region);} region_size7566 = REGION_SIZE7566; fp7566 = &((region7566->data)[0]); ALIGN(fp7566); /* x63928 stalin.sc:2054:67634 */ /* x63911 stalin.sc:2055:67673 */ t77211 = a21425; /* x63927 stalin.sc:2056:67677 */ /* x63912 stalin.sc:2056:67681 */ /* x63918 stalin.sc:2057:67690 */ /* x63917 stalin.sc:2057:67733 */ t77214 = 16; /* x63916 stalin.sc:2057:67698 */ /* x63915 stalin.sc:2057:67730 */ t77217 = a21425; /* x63914 stalin.sc:2057:67699 */ a37356 = t77217; /* x282093 */ /* x282092 */ t77218 = a37356; /* x282091 */ if (!((t77218.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-BOOLEANS[6365] 32273]"); structure_ref_error();} t77213 = t77218.value.structure_type27669->s7; /* x63913 stalin.sc:2057:67691 */ if ((fp7566+sizeof(struct structure_type24753))>(&((region7566->data)[region_size7566]))) {struct region7566 *region; unsigned region_size = REGION_SIZE7566; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7566 *)GC_malloc_uncollectable(sizeof(struct region7566)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 2057, 67690); out_of_memory_error();} region->region = region7566; region_size7566 = region_size; region7566 = region; fp7566 = &((region->data)[0]); ALIGN(fp7566);} t77216.tag = STRUCTURE_TYPE24753; t77216.value.structure_type24753 = (struct structure_type24753 *)fp7566; fp7566 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t77216.value.structure_type24753->s0.tag = FIXNUM_TYPE; t77216.value.structure_type24753->s0.value.fixnum_type = t77214; t77216.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7566+sizeof(struct structure_type24753))>(&((region7566->data)[region_size7566]))) {struct region7566 *region; unsigned region_size = REGION_SIZE7566; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7566 *)GC_malloc_uncollectable(sizeof(struct region7566)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 2057, 67690); out_of_memory_error();} region->region = region7566; region_size7566 = region_size; region7566 = region; fp7566 = &((region->data)[0]); ALIGN(fp7566);} t77215 = (struct structure_type24753 *)fp7566; fp7566 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t77215->s0.tag = FIXNUM_TYPE; t77215->s0.value.fixnum_type = t77213; t77215->s1 = t77216; t77212 = f27310(t77215); /* x63910 stalin.sc:2054:67635 */ f6366(t77211, t77212); goto l14030; l14029: /* x165790 */ /* x165781 stalin.sc:23891:829931 */ /* x165780 stalin.sc:23891:829955 */ t77199 = a30784; /* x165779 stalin.sc:23891:829932 */ a37319 = t77199; /* x281945 */ /* x281944 */ t77200 = a37319; /* x281943 */ if (!((t77200.tag)==STRUCTURE_TYPE27908)) goto l14032; /* x165787 */ /* x165786 */ /* x165785 stalin.sc:23892:829964 */ /* x165783 stalin.sc:23892:830016 */ t77201 = a30784; /* x165784 stalin.sc:23892:830019 */ /* x165782 stalin.sc:23892:829965 */ a21461 = t77201; /* x64345 */ /* x64344 stalin.sc:2152:70947 */ /* x64337 stalin.sc:2152:70955 */ /* x64336 stalin.sc:2152:70965 */ /* x270483 stalin.sc:2152:70956 */ /* x64339 */ /* x64338 */ /* x64334 */ while (region7611!=((struct region7611 *)(&initial_region7611))) {struct region7611 *region; region = region7611; region7611 = region7611->region; GC_free(region);} region_size7611 = REGION_SIZE7611; fp7611 = &((region7611->data)[0]); ALIGN(fp7611); /* x64333 stalin.sc:2153:70981 */ /* x64316 stalin.sc:2154:71020 */ t77202 = a21461; /* x64332 stalin.sc:2155:71024 */ /* x64317 stalin.sc:2155:71028 */ /* x64323 stalin.sc:2156:71037 */ /* x64322 stalin.sc:2156:71080 */ t77205 = 8; /* x64321 stalin.sc:2156:71045 */ /* x64320 stalin.sc:2156:71077 */ t77208 = a21461; /* x64319 stalin.sc:2156:71046 */ a37280 = t77208; /* x281789 */ /* x281788 */ t77209 = a37280; /* x281787 */ if (!((t77209.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-BOOLEANS[6415] 32197]"); structure_ref_error();} t77204 = t77209.value.structure_type27908->s5; /* x64318 stalin.sc:2156:71038 */ if ((fp7611+sizeof(struct structure_type24753))>(&((region7611->data)[region_size7611]))) {struct region7611 *region; unsigned region_size = REGION_SIZE7611; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7611 *)GC_malloc_uncollectable(sizeof(struct region7611)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 2156, 71037); out_of_memory_error();} region->region = region7611; region_size7611 = region_size; region7611 = region; fp7611 = &((region->data)[0]); ALIGN(fp7611);} t77207.tag = STRUCTURE_TYPE24753; t77207.value.structure_type24753 = (struct structure_type24753 *)fp7611; fp7611 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t77207.value.structure_type24753->s0.tag = FIXNUM_TYPE; t77207.value.structure_type24753->s0.value.fixnum_type = t77205; t77207.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7611+sizeof(struct structure_type24753))>(&((region7611->data)[region_size7611]))) {struct region7611 *region; unsigned region_size = REGION_SIZE7611; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7611 *)GC_malloc_uncollectable(sizeof(struct region7611)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 2156, 71037); out_of_memory_error();} region->region = region7611; region_size7611 = region_size; region7611 = region; fp7611 = &((region->data)[0]); ALIGN(fp7611);} t77206 = (struct structure_type24753 *)fp7611; fp7611 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t77206->s0.tag = FIXNUM_TYPE; t77206->s0.value.fixnum_type = t77204; t77206->s1 = t77207; t77203 = f27310(t77206); /* x64315 stalin.sc:2153:70982 */ f6416(t77202, t77203); goto l14033; l14032: /* x165789 */ /* x165788 */ l14033: l14030: l14027: break; case NATIVE_PROCEDURE_TYPE23371: p17793 = t73937.value.native_procedure_type23371; a30883 = t73938; /* x166067 stalin.sc:23970:832052 */ /* x166056 stalin.sc:23970:832058 */ /* x166055 stalin.sc:23970:832072 */ t77228 = a30883; /* x166054 stalin.sc:23970:832059 */ if (f7741(t77228)==FALSE_TYPE) goto l14041; /* x166064 */ /* x166063 */ t77229 = p17793; p17794 = t77229; /* x166062 stalin.sc:23970:832076 */ /* x166058 stalin.sc:23970:832092 */ t77230 = p17794->a30882; /* x166061 stalin.sc:23970:832095 */ /* x166060 stalin.sc:23970:832116 */ t77232 = a30883; /* x166059 stalin.sc:23970:832096 */ t77231 = f7931(t77232); /* x166057 stalin.sc:23970:832077 */ f10617(t77230, t77231); goto l14042; l14041: /* x166066 stalin.sc:23970:832052 */ /* x166065 stalin.sc:23970:832052 */ l14042: break; case NATIVE_PROCEDURE_TYPE23375: a30832 = t73938; /* x165902 stalin.sc:23913:830523 */ /* x165873 stalin.sc:23913:830530 */ /* x165872 stalin.sc:23913:830551 */ t77233 = a30832; /* x165871 stalin.sc:23913:830531 */ a37531 = t77233; /* x282793 */ /* x282792 */ t77234 = a37531; /* x282791 */ if (!((t77234.tag)==STRUCTURE_TYPE27761)) goto l14044; /* x165879 */ /* x165878 */ /* x165877 stalin.sc:23914:830560 */ /* x165875 stalin.sc:23914:830606 */ t77257 = a30832; /* x165876 stalin.sc:23914:830609 */ /* x165874 stalin.sc:23914:830561 */ a21389 = t77257; /* x63535 */ /* x63534 stalin.sc:1954:64292 */ /* x63527 stalin.sc:1954:64300 */ /* x63526 stalin.sc:1954:64310 */ /* x270525 stalin.sc:1954:64301 */ /* x63529 */ /* x63528 */ /* x63524 */ while (region7521!=((struct region7521 *)(&initial_region7521))) {struct region7521 *region; region = region7521; region7521 = region7521->region; GC_free(region);} region_size7521 = REGION_SIZE7521; fp7521 = &((region7521->data)[0]); ALIGN(fp7521); /* x63523 stalin.sc:1955:64326 */ /* x63506 stalin.sc:1956:64362 */ t77258 = a21389; /* x63522 stalin.sc:1957:64366 */ /* x63507 stalin.sc:1957:64370 */ /* x63513 stalin.sc:1958:64379 */ /* x63512 stalin.sc:1958:64419 */ t77261 = 8; /* x63511 stalin.sc:1958:64387 */ /* x63510 stalin.sc:1958:64416 */ t77264 = a21389; /* x63509 stalin.sc:1958:64388 */ a37456 = t77264; /* x282493 */ /* x282492 */ t77265 = a37456; /* x282491 */ if (!((t77265.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-BOOLEANS[6299] 32373]"); structure_ref_error();} t77260 = t77265.value.structure_type27761->s7; /* x63508 stalin.sc:1958:64380 */ if ((fp7521+sizeof(struct structure_type24753))>(&((region7521->data)[region_size7521]))) {struct region7521 *region; unsigned region_size = REGION_SIZE7521; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7521 *)GC_malloc_uncollectable(sizeof(struct region7521)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1958, 64379); out_of_memory_error();} region->region = region7521; region_size7521 = region_size; region7521 = region; fp7521 = &((region->data)[0]); ALIGN(fp7521);} t77263.tag = STRUCTURE_TYPE24753; t77263.value.structure_type24753 = (struct structure_type24753 *)fp7521; fp7521 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t77263.value.structure_type24753->s0.tag = FIXNUM_TYPE; t77263.value.structure_type24753->s0.value.fixnum_type = t77261; t77263.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7521+sizeof(struct structure_type24753))>(&((region7521->data)[region_size7521]))) {struct region7521 *region; unsigned region_size = REGION_SIZE7521; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7521 *)GC_malloc_uncollectable(sizeof(struct region7521)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1958, 64379); out_of_memory_error();} region->region = region7521; region_size7521 = region_size; region7521 = region; fp7521 = &((region->data)[0]); ALIGN(fp7521);} t77262 = (struct structure_type24753 *)fp7521; fp7521 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t77262->s0.tag = FIXNUM_TYPE; t77262->s0.value.fixnum_type = t77260; t77262->s1 = t77263; t77259 = f27310(t77262); /* x63505 stalin.sc:1955:64327 */ f6300(t77258, t77259); goto l14045; l14044: /* x165901 */ /* x165882 stalin.sc:23915:830619 */ /* x165881 stalin.sc:23915:830643 */ t77235 = a30832; /* x165880 stalin.sc:23915:830620 */ a37415 = t77235; /* x282329 */ /* x282328 */ t77236 = a37415; /* x282327 */ if (!((t77236.tag)==STRUCTURE_TYPE27669)) goto l14047; /* x165888 */ /* x165887 */ /* x165886 stalin.sc:23916:830652 */ /* x165884 stalin.sc:23916:830701 */ t77248 = a30832; /* x165885 stalin.sc:23916:830704 */ /* x165883 stalin.sc:23916:830653 */ a21429 = t77248; /* x63985 */ /* x63984 stalin.sc:2064:67988 */ /* x63977 stalin.sc:2064:67996 */ /* x63976 stalin.sc:2064:68006 */ /* x270501 stalin.sc:2064:67997 */ /* x63979 */ /* x63978 */ /* x63974 */ while (region7571!=((struct region7571 *)(&initial_region7571))) {struct region7571 *region; region = region7571; region7571 = region7571->region; GC_free(region);} region_size7571 = REGION_SIZE7571; fp7571 = &((region7571->data)[0]); ALIGN(fp7571); /* x63973 stalin.sc:2065:68022 */ /* x63956 stalin.sc:2066:68061 */ t77249 = a21429; /* x63972 stalin.sc:2067:68065 */ /* x63957 stalin.sc:2067:68069 */ /* x63963 stalin.sc:2068:68078 */ /* x63962 stalin.sc:2068:68121 */ t77252 = 8; /* x63961 stalin.sc:2068:68086 */ /* x63960 stalin.sc:2068:68118 */ t77255 = a21429; /* x63959 stalin.sc:2068:68087 */ a37355 = t77255; /* x282089 */ /* x282088 */ t77256 = a37355; /* x282087 */ if (!((t77256.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-BOOLEANS[6365] 32272]"); structure_ref_error();} t77251 = t77256.value.structure_type27669->s7; /* x63958 stalin.sc:2068:68079 */ if ((fp7571+sizeof(struct structure_type24753))>(&((region7571->data)[region_size7571]))) {struct region7571 *region; unsigned region_size = REGION_SIZE7571; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7571 *)GC_malloc_uncollectable(sizeof(struct region7571)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 2068, 68078); out_of_memory_error();} region->region = region7571; region_size7571 = region_size; region7571 = region; fp7571 = &((region->data)[0]); ALIGN(fp7571);} t77254.tag = STRUCTURE_TYPE24753; t77254.value.structure_type24753 = (struct structure_type24753 *)fp7571; fp7571 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t77254.value.structure_type24753->s0.tag = FIXNUM_TYPE; t77254.value.structure_type24753->s0.value.fixnum_type = t77252; t77254.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7571+sizeof(struct structure_type24753))>(&((region7571->data)[region_size7571]))) {struct region7571 *region; unsigned region_size = REGION_SIZE7571; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7571 *)GC_malloc_uncollectable(sizeof(struct region7571)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 2068, 68078); out_of_memory_error();} region->region = region7571; region_size7571 = region_size; region7571 = region; fp7571 = &((region->data)[0]); ALIGN(fp7571);} t77253 = (struct structure_type24753 *)fp7571; fp7571 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t77253->s0.tag = FIXNUM_TYPE; t77253->s0.value.fixnum_type = t77251; t77253->s1 = t77254; t77250 = f27310(t77253); /* x63955 stalin.sc:2065:68023 */ f6366(t77249, t77250); goto l14048; l14047: /* x165900 */ /* x165891 stalin.sc:23917:830714 */ /* x165890 stalin.sc:23917:830738 */ t77237 = a30832; /* x165889 stalin.sc:23917:830715 */ a37318 = t77237; /* x281941 */ /* x281940 */ t77238 = a37318; /* x281939 */ if (!((t77238.tag)==STRUCTURE_TYPE27908)) goto l14050; /* x165897 */ /* x165896 */ /* x165895 stalin.sc:23918:830747 */ /* x165893 stalin.sc:23918:830796 */ t77239 = a30832; /* x165894 stalin.sc:23918:830799 */ /* x165892 stalin.sc:23918:830748 */ a21465 = t77239; /* x64390 */ /* x64389 stalin.sc:2163:71333 */ /* x64382 stalin.sc:2163:71341 */ /* x64381 stalin.sc:2163:71351 */ /* x270480 stalin.sc:2163:71342 */ /* x64384 */ /* x64383 */ /* x64379 */ while (region7616!=((struct region7616 *)(&initial_region7616))) {struct region7616 *region; region = region7616; region7616 = region7616->region; GC_free(region);} region_size7616 = REGION_SIZE7616; fp7616 = &((region7616->data)[0]); ALIGN(fp7616); /* x64378 stalin.sc:2164:71367 */ /* x64361 stalin.sc:2165:71406 */ t77240 = a21465; /* x64377 stalin.sc:2166:71410 */ /* x64362 stalin.sc:2166:71414 */ /* x64368 stalin.sc:2167:71423 */ /* x64367 stalin.sc:2167:71466 */ t77243 = 4; /* x64366 stalin.sc:2167:71431 */ /* x64365 stalin.sc:2167:71463 */ t77246 = a21465; /* x64364 stalin.sc:2167:71432 */ a37281 = t77246; /* x281793 */ /* x281792 */ t77247 = a37281; /* x281791 */ if (!((t77247.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-BOOLEANS[6415] 32198]"); structure_ref_error();} t77242 = t77247.value.structure_type27908->s5; /* x64363 stalin.sc:2167:71424 */ if ((fp7616+sizeof(struct structure_type24753))>(&((region7616->data)[region_size7616]))) {struct region7616 *region; unsigned region_size = REGION_SIZE7616; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7616 *)GC_malloc_uncollectable(sizeof(struct region7616)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 2167, 71423); out_of_memory_error();} region->region = region7616; region_size7616 = region_size; region7616 = region; fp7616 = &((region->data)[0]); ALIGN(fp7616);} t77245.tag = STRUCTURE_TYPE24753; t77245.value.structure_type24753 = (struct structure_type24753 *)fp7616; fp7616 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t77245.value.structure_type24753->s0.tag = FIXNUM_TYPE; t77245.value.structure_type24753->s0.value.fixnum_type = t77243; t77245.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7616+sizeof(struct structure_type24753))>(&((region7616->data)[region_size7616]))) {struct region7616 *region; unsigned region_size = REGION_SIZE7616; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7616 *)GC_malloc_uncollectable(sizeof(struct region7616)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 2167, 71423); out_of_memory_error();} region->region = region7616; region_size7616 = region_size; region7616 = region; fp7616 = &((region->data)[0]); ALIGN(fp7616);} t77244 = (struct structure_type24753 *)fp7616; fp7616 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t77244->s0.tag = FIXNUM_TYPE; t77244->s0.value.fixnum_type = t77242; t77244->s1 = t77245; t77241 = f27310(t77244); /* x64360 stalin.sc:2164:71368 */ f6416(t77240, t77241); goto l14051; l14050: /* x165899 */ /* x165898 */ l14051: l14048: l14045: break; case NATIVE_PROCEDURE_TYPE23384: p17768 = t73937.value.native_procedure_type23384; a30831 = t73938; /* x165865 stalin.sc:23922:830856 */ /* x165854 stalin.sc:23922:830862 */ /* x165853 stalin.sc:23922:830876 */ t77266 = a30831; /* x165852 stalin.sc:23922:830863 */ if (f7741(t77266)==FALSE_TYPE) goto l14059; /* x165862 */ /* x165861 */ t77267 = p17768; p17769 = t77267; /* x165860 stalin.sc:23923:830886 */ /* x165856 stalin.sc:23923:830903 */ t77268 = p17769->a30825; /* x165859 stalin.sc:23923:830921 */ /* x165858 stalin.sc:23923:830942 */ t77271 = a30831; /* x165857 stalin.sc:23923:830922 */ t77269 = f7931(t77271); /* x165855 stalin.sc:23923:830887 */ /* MOVE: dispatching squished to general */ if ((t77268&3)==1) {t77270.tag = NATIVE_PROCEDURE_TYPE22771; t77270.value.native_procedure_type22771 = (struct p10641 *)(t77268-1);} else {t77270.tag = NATIVE_PROCEDURE_TYPE22772; t77270.value.native_procedure_type22772 = (struct p10646 *)t77268;} f8173(t77270, t77269); goto l14060; l14059: /* x165864 stalin.sc:23922:830856 */ /* x165863 stalin.sc:23922:830856 */ l14060: break; case NATIVE_PROCEDURE_TYPE23396: a31109 = t73938; /* x167346 stalin.sc:24270:841604 */ /* x167344 stalin.sc:24270:841634 */ t77272 = a31109; /* x167345 stalin.sc:24270:841637 */ /* x167343 stalin.sc:24270:841605 */ f7629(t77272); break; case NATIVE_PROCEDURE_TYPE23404: a30934 = t73938; /* x166251 stalin.sc:24025:833423 */ /* x166249 stalin.sc:24025:833453 */ t77273 = a30934; /* x166250 stalin.sc:24025:833456 */ /* x166248 stalin.sc:24025:833424 */ f7629(t77273); break; case NATIVE_PROCEDURE_TYPE23422: a31471 = t73938; /* x168153 stalin.sc:24469:847606 */ /* x168151 stalin.sc:24469:847636 */ t77274 = a31471; /* x168152 stalin.sc:24469:847639 */ /* x168150 stalin.sc:24469:847607 */ f7629(t77274); break; case NATIVE_PROCEDURE_TYPE23440: a31734 = t73938; /* x168470 stalin.sc:24555:849952 */ /* x168468 stalin.sc:24555:849982 */ t77275 = a31734; /* x168469 stalin.sc:24555:849985 */ /* x168467 stalin.sc:24555:849953 */ f7629(t77275); break; default: a31154 = t73938; /* x167411 stalin.sc:24284:842091 */ /* x167409 stalin.sc:24284:842121 */ t77276 = a31154; /* x167410 stalin.sc:24284:842124 */ /* x167408 stalin.sc:24284:842092 */ f7629(t77276);} /* x69906 stalin.sc:3382:115229 */ /* x69905 stalin.sc:3382:115235 */ /* x69904 stalin.sc:3382:115261 */ t77281 = a21829; /* x69903 stalin.sc:3382:115236 */ a37258 = t77281; /* x281701 */ /* x281700 */ t77282 = a37258; /* x281699 */ t77280 = t77282->s2; /* x69902 stalin.sc:3382:115230 */ t77279 = p8177; f8176(t77279, t77280); /* x69896 */ t73932 = p8177; p8178 = t73932; /* x69895 stalin.sc:3383:115271 */ /* x69894 stalin.sc:3383:115277 */ /* x69893 stalin.sc:3383:115304 */ t73935 = a21829; /* x69892 stalin.sc:3383:115278 */ a37216 = t73935; /* x281533 */ /* x281532 */ t73936 = a37216; /* x281531 */ t73934 = t73936->s3; /* x69891 stalin.sc:3383:115272 */ t73933 = p8178; p8176 = t73933; a21829 = t73934; goto h8176; l13095: /* x69911 stalin.sc:3380:115176 */ /* x69910 stalin.sc:3380:115176 */ return;} /* FOR-EACH-MEMBER[8173] */ void f8173(struct w211045 a21825, struct w49 a21826) {struct w49 a37100; /* S */ struct p8173 *t77283; struct structure_type27657 *t77284; struct p8173 *t77285; struct p8173 *t77286; struct w49 t77287; struct w49 t77288; struct p8173 *e8173; struct p8173 *p8174; struct p8173 *p8175; e8173 = (struct p8173 *)alloca(sizeof(struct p8173)); if (e8173==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e8173->a21825 = a21825; /* x69923 stalin.sc:3378:115099 */ /* x69922 stalin.sc:3378:115116 */ /* x69921 stalin.sc:3378:115146 */ t77287 = a21826; /* x69920 stalin.sc:3378:115117 */ a37100 = t77287; /* x281069 */ /* x281068 */ t77288 = a37100; /* x281067 */ if (!((t77288.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-RED-BLACK-TREE-NODE[6475] 32017]"); structure_ref_error();} t77284 = t77288.value.structure_type27650->s1; /* x69919 */ /* x69918 */ /* x69917 */ /* x69916 */ t77285 = e8173; p8174 = t77285; /* x69915 */ /* x69914 */ /* x69913 */ /* x69889 */ t77286 = p8174; p8175 = t77286; /* x69888 stalin.sc:3378:115104 */ t77283 = p8175; f8176(t77283, t77284); return;} /* MEMBERS-THAT[8172] */ struct w12224 f8172(struct w211061 a21823, struct w49 a21824) {struct w211061 t77289; struct structure_type24753 *t77290; struct w227671 t77291; struct w49 t77292; struct w49 t77293; /* x69885 stalin.sc:3373:115011 */ /* x69881 stalin.sc:3373:115026 */ t77289 = a21823; /* x69884 stalin.sc:3373:115028 */ /* x69883 stalin.sc:3373:115037 */ t77293 = a21824; /* x69882 stalin.sc:3373:115029 */ t77290 = f8162(t77293); /* x69880 stalin.sc:3373:115012 */ t77291 = *((struct w227671 *)(&t77289)); /* MOVE: branching squeezed to general */ if (t77290>=((struct structure_type24753 *)VALUE_OFFSET)) {t77292.tag = STRUCTURE_TYPE24753; t77292.value.structure_type24753 = t77290;} else t77292.tag = (unsigned)t77290; return f1226(t77291, t77292);} /* LOOP[8167] */ void f8167(struct structure_type27657 *a21820) {struct structure_type27657 *a37219; /* S */ struct structure_type27657 *a37261; /* S */ struct structure_type27657 *a37275; /* S */ struct structure_type27657 *t77294; struct structure_type27657 *t77295; struct structure_type27657 *t77296; struct structure_type27657 *t77297; struct structure_type27657 *t77298; struct structure_type27657 *t77299; struct w49 t77300; struct structure_type24753 *t77301; struct structure_type27657 *t77302; struct structure_type27657 *t77303; h8167: /* x69862 stalin.sc:3367:114820 */ /* x69838 stalin.sc:3367:114826 */ if (a21820==((struct structure_type27657 *)FALSE_TYPE)) goto l14062; /* x69859 */ /* x69858 */ /* x69857 */ /* x69849 stalin.sc:3368:114835 */ /* x69848 stalin.sc:3368:114841 */ /* x69847 stalin.sc:3368:114868 */ t77298 = a21820; /* x69846 stalin.sc:3368:114842 */ a37219 = t77298; /* x281545 */ /* x281544 */ t77299 = a37219; /* x281543 */ t77297 = t77299->s3; /* x69845 stalin.sc:3368:114836 */ f8167(t77297); /* x69856 stalin.sc:3369:114879 */ /* x69855 stalin.sc:3369:114888 */ /* x69853 stalin.sc:3369:114894 */ /* x69852 stalin.sc:3369:114920 */ t77302 = a21820; /* x69851 stalin.sc:3369:114895 */ a37275 = t77302; /* x281769 */ /* x281768 */ t77303 = a37275; /* x281767 */ t77300 = t77303->s0; /* x69854 stalin.sc:3369:114926 */ t77301 = a21816; /* x270364 stalin.sc:3369:114889 */ a21816 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a21816==NULL) {backtrace("stalin.sc", 3369, 114888); out_of_memory_error();} a21816->s0 = t77300; /* MOVE: branching squeezed to general */ if (t77301>=((struct structure_type24753 *)VALUE_OFFSET)) {a21816->s1.tag = STRUCTURE_TYPE24753; a21816->s1.value.structure_type24753 = t77301;} else a21816->s1.tag = (unsigned)t77301; /* x69844 */ /* x69843 stalin.sc:3370:114935 */ /* x69842 stalin.sc:3370:114941 */ /* x69841 stalin.sc:3370:114967 */ t77295 = a21820; /* x69840 stalin.sc:3370:114942 */ a37261 = t77295; /* x281713 */ /* x281712 */ t77296 = a37261; /* x281711 */ t77294 = t77296->s2; /* x69839 stalin.sc:3370:114936 */ a21820 = t77294; goto h8167; l14062: /* x69861 stalin.sc:3367:114820 */ /* x69860 stalin.sc:3367:114820 */ return;} /* MEMBERS[8162] */ struct structure_type24753 *f8162(struct w49 a21815) {struct w49 a37104; /* S */ struct structure_type27657 *t77304; struct w49 t77305; struct w49 t77306; /* x69877 stalin.sc:3364:114723 */ /* x69876 stalin.sc:3364:114733 */ /* x69875 */ a21816 = (struct structure_type24753 *)NULL_TYPE; /* x69874 */ /* x69873 stalin.sc:3365:114741 */ /* x69872 stalin.sc:3365:114758 */ /* x69871 stalin.sc:3365:114788 */ t77305 = a21815; /* x69870 stalin.sc:3365:114759 */ a37104 = t77305; /* x281085 */ /* x281084 */ t77306 = a37104; /* x281083 */ if (!((t77306.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-RED-BLACK-TREE-NODE[6475] 32021]"); structure_ref_error();} t77304 = t77306.value.structure_type27650->s1; /* x69869 */ /* x69868 */ /* x69867 */ /* x69866 */ /* x69865 */ /* x69864 */ /* x69863 */ /* x69837 */ /* x69836 stalin.sc:3365:114746 */ f8167(t77304); /* x69835 */ /* x69834 stalin.sc:3371:114978 */ return a21816;} /* THE-MEMBER-THAT[8157] */ struct w49 f8157(struct w211113 a21811, struct w49 a21812) {struct w12224 a21813; /* US */ struct w12224 a36086; /* PAIR */ struct w12224 t77307; struct w12224 t77308; struct w12224 t77309; int t77310; int t77311; struct w12224 t77312; struct w49 t77313; char *t77314; struct w211113 t77315; struct w49 t77316; struct w211061 t77317; /* x69831 stalin.sc:3359:114616 */ /* x69830 stalin.sc:3359:114626 */ /* x69828 stalin.sc:3359:114640 */ t77315 = a21811; /* x69829 stalin.sc:3359:114642 */ t77316 = a21812; /* x69827 stalin.sc:3359:114627 */ t77317 = *((struct w211061 *)(&t77315)); t77307 = f8172(t77317, t77316); /* x69826 */ a21813 = t77307; /* x69825 */ /* x69824 stalin.sc:3360:114649 */ /* x69817 stalin.sc:3360:114657 */ /* x69815 stalin.sc:3360:114660 */ /* x69814 stalin.sc:3360:114668 */ t77312 = a21813; /* x69813 stalin.sc:3360:114661 */ t77313 = *((struct w49 *)(&t77312)); t77310 = f26227(t77313); /* x69816 stalin.sc:3360:114672 */ t77311 = 1; /* x270365 stalin.sc:3360:114658 */ if (!(t77310==t77311)) goto l14064; /* x69819 */ /* x69818 */ goto l14065; l14064: /* x69823 */ /* x69822 */ /* x69821 stalin.sc:3360:114675 */ /* x69820 stalin.sc:3360:114676 */ /* x296537 QobiScheme.sc:166:5314 */ /* x296536 QobiScheme.sc:166:5321 */ t77314 = "This shouldn\'t happen"; /* x296535 QobiScheme.sc:166:5315 */ stalin_panic(t77314); l14065: /* x69811 */ /* x69810 stalin.sc:3361:114688 */ /* x69809 stalin.sc:3361:114695 */ t77308 = a21813; /* x69808 stalin.sc:3361:114689 */ a36086 = t77308; /* x275701 */ /* x275700 */ t77309 = a36086; /* x275699 */ if ((t77309.tag)==STRUCTURE_TYPE24753) return t77309.value.structure_type24753->s0; backtrace_internal("[clone CAR[26176] 30235]"); structure_ref_error();} /* THE-MEMBER[8153] */ struct w49 f8153(struct w49 a21809) {struct w49 a37094; /* S */ struct structure_type27657 *a37276; /* S */ struct structure_type27657 *t77318; struct structure_type27657 *t77319; struct w49 t77320; struct w49 t77321; struct w49 t77322; char *t77323; /* x69805 */ /* x69804 stalin.sc:3355:114486 */ /* x69797 stalin.sc:3355:114494 */ /* x69796 stalin.sc:3355:114508 */ t77322 = a21809; /* x69795 stalin.sc:3355:114495 */ if (f8148(t77322)==FALSE_TYPE) goto l14067; /* x69799 */ /* x69798 */ goto l14068; l14067: /* x69803 */ /* x69802 */ /* x69801 stalin.sc:3355:114511 */ /* x69800 stalin.sc:3355:114512 */ /* x297285 QobiScheme.sc:166:5314 */ /* x297284 QobiScheme.sc:166:5321 */ t77323 = "This shouldn\'t happen"; /* x297283 QobiScheme.sc:166:5315 */ stalin_panic(t77323); l14068: /* x69794 */ /* x69793 stalin.sc:3356:114523 */ /* x69792 stalin.sc:3356:114549 */ /* x69791 stalin.sc:3356:114579 */ t77320 = a21809; /* x69790 stalin.sc:3356:114550 */ a37094 = t77320; /* x281045 */ /* x281044 */ t77321 = a37094; /* x281043 */ if (!((t77321.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-RED-BLACK-TREE-NODE[6475] 32011]"); structure_ref_error();} t77318 = t77321.value.structure_type27650->s1; /* x69789 stalin.sc:3356:114524 */ a37276 = t77318; /* x281773 */ /* x281772 */ t77319 = a37276; /* x281771 */ if (t77319>=((struct structure_type27657 *)VALUE_OFFSET)) return t77319->s0; else {backtrace_internal("[clone RED-BLACK-TREE-NODE-TYPE[6425] 32193]"); structure_ref_error();}} /* FAKE?[8151] */ unsigned f8151(struct w49 a21807) {struct w49 t77324; struct w49 t77325; struct w49 t77326; struct w211225 t77327; /* x69786 stalin.sc:3350:114373 */ /* x69786 stalin.sc:3350:114373 */ /* x69780 stalin.sc:3350:114378 */ /* x69779 stalin.sc:3350:114382 */ /* x69778 stalin.sc:3350:114389 */ t77324 = a21807; /* x69777 stalin.sc:3350:114383 */ if (!(f8147(t77324)==FALSE_TYPE)) goto l14072; /* x69774 */ /* x69773 stalin.sc:3350:114406 */ t77325 = a21807; /* x69772 stalin.sc:3350:114393 */ if (f8148(t77325)==FALSE_TYPE) goto l14070; l14072: /* x69784 */ /* x69782 stalin.sc:3350:114420 */ /* x69783 stalin.sc:3350:114432 */ t77326 = a21807; /* x69781 stalin.sc:3350:114411 */ t77327.tag = NATIVE_PROCEDURE_TYPE7232; if (f8146(t77327, t77326)==FALSE_TYPE) goto l14070; return TRUE_TYPE; l14070: return FALSE_TYPE;} /* MULTIMORPHIC?[8149] */ struct structure_type27657 *f8149(struct w49 a21805) {struct structure_type27657 *a21806; /* v */ struct w49 a37092; /* S */ struct w49 a37093; /* S */ struct w49 a37102; /* S */ struct structure_type27657 *a37217; /* S */ struct structure_type27657 *a37259; /* S */ struct w49 t77328; struct w49 t77329; struct structure_type27657 *t77330; struct structure_type27657 *t77331; struct structure_type27657 *t77332; struct w49 t77333; struct w49 t77334; struct structure_type27657 *t77335; struct structure_type27657 *t77336; struct w49 t77337; struct w49 t77338; /* x69767 stalin.sc:3345:114178 */ /* x69750 stalin.sc:3345:114183 */ /* x69749 stalin.sc:3345:114213 */ t77328 = a21805; /* x69748 stalin.sc:3345:114184 */ a37102 = t77328; /* x281077 */ /* x281076 */ t77329 = a37102; /* x281075 */ if (!((t77329.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-RED-BLACK-TREE-NODE[6475] 32019]"); structure_ref_error();} if ((t77329.value.structure_type27650->s1)==((struct structure_type27657 *)FALSE_TYPE)) goto l14075; /* x69765 */ /* x69764 stalin.sc:3346:114226 */ /* x69763 stalin.sc:3346:114252 */ /* x69762 stalin.sc:3346:114282 */ t77337 = a21805; /* x69761 stalin.sc:3346:114253 */ a37093 = t77337; /* x281041 */ /* x281040 */ t77338 = a37093; /* x281039 */ if (!((t77338.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-RED-BLACK-TREE-NODE[6475] 32010]"); structure_ref_error();} t77335 = t77338.value.structure_type27650->s1; /* x69760 stalin.sc:3346:114227 */ a37259 = t77335; /* x281705 */ /* x281704 */ t77336 = a37259; /* x281703 */ if (!(t77336>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32176]"); structure_ref_error();} t77330 = t77336->s2; /* x69759 */ a21806 = t77330; /* x69758 */ /* x69751 */ if (a21806==((struct structure_type27657 *)FALSE_TYPE)) goto l14077; /* x69752 */ return a21806; l14077: /* x69757 */ /* x69756 stalin.sc:3347:114316 */ /* x69755 stalin.sc:3347:114346 */ t77333 = a21805; /* x69754 stalin.sc:3347:114317 */ a37092 = t77333; /* x281037 */ /* x281036 */ t77334 = a37092; /* x281035 */ if (!((t77334.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-RED-BLACK-TREE-NODE[6475] 32009]"); structure_ref_error();} t77331 = t77334.value.structure_type27650->s1; /* x69753 stalin.sc:3347:114290 */ a37217 = t77331; /* x281537 */ /* x281536 */ t77332 = a37217; /* x281535 */ if (t77332>=((struct structure_type27657 *)VALUE_OFFSET)) return t77332->s3; else {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32134]"); structure_ref_error();} l14075: /* x69766 */ return (struct structure_type27657 *)FALSE_TYPE;} /* MONOMORPHIC?[8148] */ unsigned f8148(struct w49 a21804) {struct w49 a37095; /* S */ struct w49 a37096; /* S */ struct w49 a37105; /* S */ struct structure_type27657 *a37220; /* S */ struct structure_type27657 *a37262; /* S */ struct w49 t77339; struct w49 t77340; struct structure_type27657 *t77341; struct structure_type27657 *t77342; struct w49 t77343; struct w49 t77344; struct structure_type27657 *t77345; struct structure_type27657 *t77346; struct w49 t77347; struct w49 t77348; /* x69745 stalin.sc:3338:113807 */ /* x69745 stalin.sc:3338:113807 */ /* x69727 stalin.sc:3338:113812 */ /* x69726 stalin.sc:3338:113842 */ t77339 = a21804; /* x69725 stalin.sc:3338:113813 */ a37105 = t77339; /* x281089 */ /* x281088 */ t77340 = a37105; /* x281087 */ if (!((t77340.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-RED-BLACK-TREE-NODE[6475] 32022]"); structure_ref_error();} if ((t77340.value.structure_type27650->s1)==((struct structure_type27657 *)FALSE_TYPE)) goto l14079; /* x69743 */ /* x69734 stalin.sc:3339:113851 */ /* x69733 stalin.sc:3339:113856 */ /* x69732 stalin.sc:3339:113882 */ /* x69731 stalin.sc:3339:113912 */ t77343 = a21804; /* x69730 stalin.sc:3339:113883 */ a37096 = t77343; /* x281053 */ /* x281052 */ t77344 = a37096; /* x281051 */ if (!((t77344.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-RED-BLACK-TREE-NODE[6475] 32013]"); structure_ref_error();} t77341 = t77344.value.structure_type27650->s1; /* x69729 stalin.sc:3339:113857 */ a37262 = t77341; /* x281717 */ /* x281716 */ t77342 = a37262; /* x281715 */ if (!(t77342>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32179]"); structure_ref_error();} if (!((t77342->s2)==((struct structure_type27657 *)FALSE_TYPE))) goto l14079; /* x69741 */ /* x69740 stalin.sc:3340:113928 */ /* x69739 stalin.sc:3340:113955 */ /* x69738 stalin.sc:3340:113985 */ t77347 = a21804; /* x69737 stalin.sc:3340:113956 */ a37095 = t77347; /* x281049 */ /* x281048 */ t77348 = a37095; /* x281047 */ if (!((t77348.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-RED-BLACK-TREE-NODE[6475] 32012]"); structure_ref_error();} t77345 = t77348.value.structure_type27650->s1; /* x69736 stalin.sc:3340:113929 */ a37220 = t77345; /* x281549 */ /* x281548 */ t77346 = a37220; /* x281547 */ if (!(t77346>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32137]"); structure_ref_error();} if (!((t77346->s3)==((struct structure_type27657 *)FALSE_TYPE))) goto l14079; return TRUE_TYPE; l14079: return FALSE_TYPE;} /* VOID?[8147] */ unsigned f8147(struct w49 a21803) {struct w49 a37101; /* S */ struct w49 t77349; struct w49 t77350; /* x69722 stalin.sc:3333:113582 */ /* x69722 stalin.sc:3333:113582 */ /* x69721 stalin.sc:3333:113587 */ /* x69720 stalin.sc:3333:113617 */ t77349 = a21803; /* x69719 stalin.sc:3333:113588 */ a37101 = t77349; /* x281073 */ /* x281072 */ t77350 = a37101; /* x281071 */ if (!((t77350.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-RED-BLACK-TREE-NODE[6475] 32018]"); structure_ref_error();} if (!((t77350.value.structure_type27650->s1)==((struct structure_type27657 *)FALSE_TYPE))) goto l14084; return TRUE_TYPE; l14084: return FALSE_TYPE;} /* MUST-BE?[8146] */ unsigned f8146(struct w211225 a21801, struct w49 a21802) {struct w211225 t77351; struct w49 t77352; struct w211235 t77353; /* x69715 stalin.sc:3331:113538 */ /* x69715 stalin.sc:3331:113538 */ /* x69714 stalin.sc:3331:113543 */ /* x69712 stalin.sc:3331:113556 */ t77351 = a21801; /* x69713 stalin.sc:3331:113558 */ t77352 = a21802; /* x69711 stalin.sc:3331:113544 */ t77353 = *((struct w211235 *)(&t77351)); if (!((f8144(t77353, t77352).tag)==FALSE_TYPE)) goto l14087; return TRUE_TYPE; l14087: return FALSE_TYPE;} /* CAN-BE-NON?[8144] */ struct w16638 f8144(struct w211235 a21798, struct w49 a21799) {struct p8144 *t77354; struct w49 t77355; struct w211257 t77356; struct p8144 *e8144; e8144 = (struct p8144 *)alloca(sizeof(struct p8144)); if (e8144==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e8144->a21798 = a21798; /* x69707 stalin.sc:3329:113476 */ /* x69705 stalin.sc:3329:113485 */ t77354 = e8144; /* x69706 stalin.sc:3329:113510 */ t77355 = a21799; /* x69699 stalin.sc:3329:113477 */ t77356.tag = NATIVE_PROCEDURE_TYPE14939; t77356.value.native_procedure_type14939 = t77354; return f8137(t77356, t77355);} /* LOOP[8140] */ struct w16638 f8140(struct p8137 *p8140, struct structure_type27657 *a21795) {struct w16638 r8140; struct w49 a19515; /* OBJ */ struct w49 a19651; /* OBJ */ struct w49 a19769; /* S */ struct w49 a20538; /* S */ struct w49 a20946; /* U */ struct w49 a20948; /* E */ struct w49 a20961; /* U */ struct w49 a21607; /* U */ struct w49 a21620; /* U */ struct w16638 a21796; /* v */ struct w16638 a21797; /* v */ struct w49 a21800; /* U */ struct w49 a21838; /* U1 */ struct w49 a21946; /* U1 */ struct w49 a22123; /* U */ struct w49 a22226; /* U */ struct w49 a22829; /* U */ struct w49 a22832; /* U */ struct w49 a22835; /* U */ struct w49 a22840; /* U */ struct w49 a22844; /* U */ unsigned a22845; /* v */ struct w16638 a22846; /* v */ struct w16638 a22847; /* v */ struct w16638 a22848; /* v */ struct w49 a22849; /* U */ struct w16638 a22850; /* v */ struct w49 a22851; /* U */ struct w49 a22852; /* U */ struct w49 a22853; /* U */ struct w49 a22854; /* U */ struct w49 a22857; /* U */ unsigned a22858; /* v */ unsigned a22859; /* v */ unsigned a22860; /* v */ struct w16638 a22861; /* v */ struct w16638 a22862; /* v */ struct w16638 a22863; /* v */ struct w49 a22864; /* U */ struct w16638 a22866; /* v */ struct w49 a22867; /* U */ struct w49 a22869; /* U */ struct w49 a22871; /* U */ struct w49 a22873; /* U */ struct w49 a23351; /* U */ struct w16638 a23352; /* v */ struct w49 a23354; /* U */ struct w49 a23355; /* U */ struct w16638 a23356; /* v */ struct w49 a23357; /* U */ struct w16638 a23358; /* v */ struct w16638 a23359; /* v */ struct w49 a23361; /* U */ struct w49 a23362; /* U */ struct w49 a23363; /* U */ struct w49 a23377; /* U */ struct w49 a23378; /* U */ struct w49 a23380; /* U */ struct w49 a23384; /* U */ struct w49 a23385; /* U */ struct w49 a23386; /* U */ struct w49 a23401; /* U */ struct w16638 a23402; /* v */ struct w16638 a23403; /* v */ struct w16638 a23405; /* v */ struct w49 a23407; /* U */ struct w49 a23408; /* U */ struct w49 a23409; /* U */ struct w49 a23410; /* U */ struct w16638 a23411; /* v */ struct w49 a23608; /* U */ struct w49 a23609; /* U */ struct w49 a24181; /* U */ struct w49 a24221; /* U */ struct w49 a24222; /* U */ struct w49 a24225; /* U */ struct w49 a24228; /* U */ struct w49 a24229; /* U */ struct w49 a24232; /* U */ struct w49 a24233; /* U */ struct w49 a24236; /* U */ struct w49 a24237; /* U */ struct w49 a24240; /* U */ struct w49 a24241; /* U */ struct w49 a24344; /* U1 */ struct w49 a24350; /* U1 */ struct w49 a24391; /* U1 */ struct w49 a24397; /* U1 */ struct w49 a24398; /* U2 */ struct w49 a24404; /* U1 */ struct w49 a24410; /* U1 */ struct w49 a24610; /* U */ struct w49 a24618; /* U */ struct w49 a24620; /* U */ struct w49 a24621; /* U */ struct w49 a24634; /* U */ struct w16638 a24635; /* v */ struct w16638 a24636; /* v */ struct w16638 a24637; /* v */ struct w16638 a24638; /* v */ struct w49 a24639; /* U */ struct w16638 a24640; /* v */ struct w49 a24641; /* U */ struct w49 a24642; /* U */ struct w49 a24643; /* U */ struct w49 a24644; /* U */ struct w49 a24724; /* U */ struct w49 a24725; /* U1 */ struct w49 a25548; /* U */ struct w49 a25556; /* U */ struct w49 a25559; /* U */ struct w49 a25560; /* U */ struct w49 a25602; /* U */ struct w49 a25605; /* U */ struct w49 a25617; /* U */ struct w49 a25620; /* U */ struct w49 a25621; /* U */ struct w49 a25622; /* U */ struct w49 a25636; /* U */ struct w49 a25637; /* U */ struct w49 a25638; /* U */ struct w49 a25639; /* U */ struct w49 a25645; /* U */ struct w49 a25646; /* U */ struct w49 a25647; /* U */ struct w49 a25648; /* U */ struct w49 a25754; /* U */ struct w49 a25758; /* U */ struct w49 a25762; /* U */ struct w49 a25773; /* U */ struct w49 a25779; /* U */ struct w49 a25992; /* U */ struct w49 a26056; /* U */ unsigned a26057; /* v */ struct w49 a26063; /* U */ struct w49 a26068; /* U */ unsigned a26069; /* v */ struct w49 a26075; /* U */ struct w49 a26394; /* U */ struct w49 a27023; /* U */ struct w49 a27708; /* U1 */ struct w49 a27743; /* U1 */ struct w49 a27749; /* U2 */ struct w49 a27754; /* U1 */ struct w49 a27757; /* U2 */ struct w49 a27762; /* U1 */ struct w49 a27763; /* U2 */ struct w49 a28455; /* U1 */ struct w49 a31041; /* U1 */ struct w49 a31043; /* U4 */ struct w49 a31067; /* U1 */ struct w49 a31069; /* U4 */ struct w49 a31086; /* U1 */ struct w49 a31088; /* U4 */ struct structure_type24753 *a34887; /* OBJS */ struct structure_type24753 *a34898; /* OBJS */ struct structure_type24753 *a34915; /* OBJS */ struct structure_type24753 *a34916; /* OBJS */ struct structure_type24753 *a34917; /* OBJS */ struct structure_type24753 *a34918; /* OBJS */ struct structure_type24753 *a34919; /* OBJS */ struct structure_type24753 *a34920; /* OBJS */ struct structure_type24753 *a35091; /* OBJS */ struct structure_type24753 *a35092; /* OBJS */ struct structure_type24753 *a35093; /* OBJS */ struct structure_type24753 *a35094; /* OBJS */ struct structure_type24753 *a35095; /* OBJS */ struct structure_type24753 *a35096; /* OBJS */ struct structure_type24753 *a35139; /* OBJS */ struct structure_type24753 *a35140; /* OBJS */ struct structure_type24753 *a35141; /* OBJS */ struct structure_type24753 *a35143; /* OBJS */ struct structure_type24753 *a35144; /* OBJS */ struct structure_type24753 *a35147; /* OBJS */ struct structure_type24753 *a35153; /* OBJS */ struct w49 a35353; /* PAIR */ struct w49 a35354; /* PAIR */ struct w49 a35445; /* PAIR */ struct w16638 a35446; /* PAIR */ struct w16638 a35447; /* PAIR */ struct w49 a35451; /* PAIR */ struct structure_type24753 *a35452; /* PAIR */ struct w49 a35475; /* PAIR */ struct w16638 a35476; /* PAIR */ struct w16638 a35477; /* PAIR */ struct w16638 a35478; /* PAIR */ struct w49 a35479; /* PAIR */ struct w16638 a35480; /* PAIR */ struct w16638 a35481; /* PAIR */ struct w49 a35492; /* PAIR */ struct structure_type24753 *a35493; /* PAIR */ struct structure_type24753 *a35494; /* PAIR */ struct w49 a35495; /* PAIR */ struct structure_type24753 *a35496; /* PAIR */ struct structure_type24753 *a35497; /* PAIR */ struct structure_type24753 *a35674; /* PAIR */ struct w49 a35701; /* PAIR */ struct w49 a35702; /* PAIR */ struct w16638 a35920; /* PAIR */ struct w16638 a35921; /* PAIR */ struct structure_type24753 *a35924; /* PAIR */ struct w49 a35979; /* PAIR */ struct w49 a35980; /* PAIR */ struct w16638 a35981; /* PAIR */ struct w16638 a35982; /* PAIR */ struct w49 a35983; /* PAIR */ struct w49 a35984; /* PAIR */ struct w16638 a35985; /* PAIR */ struct w16638 a35986; /* PAIR */ struct w16638 a35987; /* PAIR */ struct w49 a35991; /* PAIR */ struct w49 a35992; /* PAIR */ struct structure_type24753 *a35998; /* PAIR */ struct structure_type24753 *a35999; /* PAIR */ struct structure_type24753 *a36000; /* PAIR */ struct structure_type24753 *a36001; /* PAIR */ struct structure_type24753 *a36002; /* PAIR */ struct structure_type27745 *a36366; /* S */ struct structure_type27745 *a36367; /* S */ struct structure_type27745 *a36368; /* S */ struct structure_type27745 *a36405; /* S */ struct structure_type27745 *a36409; /* S */ struct structure_type27745 *a36410; /* S */ struct structure_type27745 *a36445; /* S */ struct structure_type27745 *a36446; /* S */ struct structure_type27745 *a36447; /* S */ struct structure_type27657 *a37218; /* S */ struct structure_type27657 *a37260; /* S */ struct structure_type27657 *a37274; /* S */ struct w49 a37332; /* OBJ */ struct w49 a37333; /* OBJ */ struct w49 a37334; /* OBJ */ struct w49 a37335; /* OBJ */ struct w49 a37428; /* OBJ */ struct w49 a37430; /* OBJ */ struct w49 a37431; /* OBJ */ struct w49 a37432; /* OBJ */ struct w49 a37548; /* OBJ */ struct w49 a37687; /* OBJ */ struct w49 a37689; /* OBJ */ struct w49 a37690; /* OBJ */ struct w49 a37691; /* OBJ */ struct w49 a37757; /* OBJ */ struct w49 a37763; /* OBJ */ struct w49 a37765; /* OBJ */ struct w49 a37798; /* S */ struct w49 a37799; /* S */ struct w49 a37811; /* S */ struct w49 a37812; /* S */ struct w49 a37815; /* S */ struct w49 a37831; /* S */ struct w49 a37838; /* S */ struct w49 a37845; /* OBJ */ struct w49 a37851; /* OBJ */ struct w49 a37870; /* OBJ */ struct w49 a37875; /* OBJ */ struct w49 a37877; /* OBJ */ struct w49 a37878; /* OBJ */ struct w49 a37879; /* OBJ */ struct w49 a37880; /* OBJ */ struct w49 a37881; /* OBJ */ struct w49 a37882; /* OBJ */ struct w49 a37883; /* OBJ */ struct w49 a37884; /* OBJ */ struct w49 a37933; /* OBJ */ struct w49 a37934; /* OBJ */ struct w49 a37935; /* OBJ */ struct w49 a37936; /* OBJ */ struct w49 a37937; /* OBJ */ struct w49 a37941; /* OBJ */ struct w49 a37954; /* OBJ */ struct w49 a38026; /* OBJ */ struct w49 a38033; /* OBJ */ struct w49 a38034; /* OBJ */ struct w49 a38035; /* OBJ */ struct w49 a38036; /* OBJ */ struct w49 a38037; /* OBJ */ struct w49 a38038; /* OBJ */ struct w49 a38039; /* OBJ */ struct w49 a38040; /* OBJ */ struct w49 a38046; /* OBJ */ struct w49 a38061; /* OBJ */ struct w49 a38063; /* OBJ */ struct w49 a38064; /* OBJ */ struct w49 a38071; /* OBJ */ struct w49 a38074; /* OBJ */ struct w49 a38077; /* OBJ */ struct w49 a38079; /* OBJ */ struct w49 a38080; /* OBJ */ struct w49 a38081; /* OBJ */ struct w49 a38082; /* OBJ */ struct w49 a38083; /* OBJ */ struct w49 a38086; /* OBJ */ struct w49 a38087; /* OBJ */ struct w49 a38088; /* OBJ */ struct w49 a38089; /* OBJ */ struct w49 a38090; /* OBJ */ struct w49 a38091; /* OBJ */ struct w49 a38092; /* OBJ */ struct w49 a38172; /* S */ struct w49 a38173; /* S */ struct w49 a38197; /* OBJ */ struct w49 a38211; /* OBJ */ struct w6852 a39191; /* S */ struct w49 a39662; /* S */ struct w49 a39667; /* S */ struct w49 a39672; /* S */ struct w49 a39680; /* S */ struct w49 a39695; /* S */ struct w49 a39696; /* S */ struct w49 a39697; /* S */ struct w49 a39698; /* S */ struct w49 a39699; /* S */ struct w49 a39700; /* S */ struct w49 a39701; /* S */ struct w49 a39702; /* S */ struct w49 a39703; /* S */ struct w49 a39704; /* S */ struct w49 a39705; /* S */ struct w49 a39846; /* S */ struct w49 a39847; /* S */ struct w49 a39848; /* S */ struct w49 a39849; /* S */ struct w49 a39850; /* S */ struct w49 a39852; /* S */ struct w49 a39853; /* S */ struct w49 a39854; /* S */ struct w49 a39855; /* S */ struct w49 a39856; /* S */ struct w49 a39859; /* S */ struct w49 a39913; /* S */ struct w49 a39923; /* S */ struct w49 a39925; /* S */ struct w49 a39927; /* S */ struct w49 a39929; /* S */ struct w49 a39932; /* S */ struct w49 a39934; /* S */ struct w49 a39935; /* S */ struct w49 a39936; /* S */ struct w49 a39937; /* S */ struct w49 a39938; /* S */ struct w49 a39939; /* S */ struct w49 a40024; /* S */ struct w49 a40025; /* S */ struct w49 a40026; /* S */ struct w49 a40027; /* S */ struct w49 a40028; /* S */ struct w49 a40029; /* S */ struct w49 a40063; /* S */ struct w49 a40064; /* S */ struct w49 a40065; /* S */ struct w49 a40066; /* S */ struct w49 a40067; /* S */ struct w49 a40068; /* S */ struct w49 a41191; /* D */ struct w49 a41196; /* D */ struct w49 a41201; /* D */ struct w49 a41209; /* D */ struct w49 a41225; /* D */ struct w49 a41226; /* D */ struct w49 a41227; /* D */ struct w49 a41228; /* D */ struct w49 a41229; /* D */ struct w49 a41230; /* D */ struct w49 a41234; /* D */ struct w49 a41235; /* D */ struct w49 a41236; /* D */ struct w49 a41237; /* D */ struct w49 a41238; /* D */ struct w49 a41239; /* D */ struct w49 a41240; /* D */ struct w49 a41241; /* D */ struct w49 a41242; /* D */ struct w49 a41243; /* D */ struct w49 a41244; /* D */ struct w49 a42466; /* S */ struct w49 a42467; /* S */ struct w49 a42468; /* S */ struct w49 a42469; /* S */ struct w49 a42470; /* S */ struct w49 a42471; /* S */ struct w49 a42472; /* S */ struct w49 a42473; /* S */ struct w49 a42474; /* S */ struct w49 a42475; /* S */ struct w49 a42476; /* S */ struct w49 a42480; /* S */ struct w49 a42481; /* S */ struct w49 a42482; /* S */ struct w49 a42483; /* S */ struct w49 a42484; /* S */ struct w49 a42485; /* S */ struct w49 a42501; /* S */ struct w49 a42509; /* S */ struct w49 a42514; /* S */ struct w49 a42519; /* S */ struct p8137 *t77357; struct w16638 t77358; struct p8137 *t77359; struct w16638 t77360; struct p8137 *t77361; struct structure_type27657 *t77362; struct structure_type27657 *t77363; struct structure_type27657 *t77364; struct p8137 *t77365; struct structure_type27657 *t77366; struct structure_type27657 *t77367; struct structure_type27657 *t77368; struct w211257 t77369; struct w49 t77370; unsigned t77371; unsigned t77372; unsigned t77373; unsigned t77374; unsigned t77375; unsigned t77376; unsigned t77377; unsigned t77378; unsigned t77379; unsigned t77380; unsigned t77381; unsigned t77382; unsigned t77383; unsigned t77384; unsigned t77385; unsigned t77386; unsigned t77387; unsigned t77388; unsigned t77389; unsigned t77390; struct w49 t77391; struct w49 t77392; struct w49 t77393; struct w211235 t77394; struct w49 t77395; struct w49 t77396; struct w49 t77397; struct w49 t77398; struct w49 t77399; struct w49 t77400; struct w49 t77401; struct w49 t77402; struct w49 t77403; struct w49 t77404; struct w49 t77405; struct w49 t77406; struct w49 t77407; struct w49 t77408; unsigned t77409; struct w49 t77410; struct w49 t77411; unsigned t77412; struct w49 t77413; struct w49 t77414; struct w49 t77415; struct w49 t77416; struct p6989 *t77417; struct w49 t77418; struct structure_type27745 *t77419; struct w49 t77420; struct w49 t77421; struct w49 t77422; struct w49 t77423; struct w49 t77424; struct w49 t77425; struct structure_type27745 *t77426; struct structure_type27745 *t77427; struct w49 t77428; struct w49 t77429; struct w49 t77430; struct w49 t77431; struct w49 t77432; struct w49 t77433; struct w49 t77434; struct w49 t77435; struct w49 t77436; struct w49 t77437; struct w49 t77438; struct w49 t77439; struct w49 t77440; struct w49 t77441; struct w49 t77442; struct w49 t77443; struct w49 t77444; struct w49 t77445; struct structure_type27745 *t77446; struct w49 t77447; struct w49 t77448; struct w49 t77449; struct structure_type27745 *t77450; struct w49 t77451; struct w49 t77452; unsigned t77453; struct p7708 *t77454; struct w49 t77455; char *t77456; struct w49 t77457; struct p7717 *t77458; struct w49 t77459; struct w49 t77460; struct w49 t77461; struct w49 t77462; struct w49 t77463; struct w49 t77464; unsigned t77465; struct w49 t77466; struct w49 t77467; struct p7708 *t77468; struct w49 t77469; char *t77470; struct w49 t77471; struct p7717 *t77472; struct w49 t77473; struct w49 t77474; struct w49 t77475; struct w49 t77476; struct w49 t77477; struct w49 t77478; unsigned t77479; struct w49 t77480; struct w49 t77481; struct w49 t77482; struct w49 t77483; unsigned t77484; struct w49 t77485; struct w49 t77486; struct p7708 *t77487; struct w49 t77488; char *t77489; struct w49 t77490; unsigned t77491; struct w49 t77492; struct w49 t77493; struct p7708 *t77494; struct w49 t77495; char *t77496; struct w49 t77497; unsigned t77498; struct w49 t77499; struct w49 t77500; struct w49 t77501; struct w49 t77502; struct w49 t77503; struct w49 t77504; struct w49 t77505; struct w49 t77506; struct w49 t77507; struct w49 t77508; struct w49 t77509; struct w49 t77510; struct w49 t77511; struct w49 t77512; struct w49 t77513; struct w49 t77514; struct w49 t77515; struct w49 t77516; struct w49 t77517; struct w49 t77518; struct w49 t77519; struct w49 t77520; struct w49 t77521; struct w49 t77522; struct w49 t77523; struct w49 t77524; struct w49 t77525; struct w49 t77526; struct w49 t77527; struct w49 t77528; struct w49 t77529; struct w49 t77530; struct w49 t77531; struct w49 t77532; struct w49 t77533; struct w49 t77534; struct w49 t77535; struct w49 t77536; struct w49 t77537; struct w49 t77538; struct w49 t77539; struct w49 t77540; struct w49 t77541; struct w49 t77542; struct w49 t77543; struct w49 t77544; struct w49 t77545; struct p7708 *t77546; struct w49 t77547; char *t77548; struct w49 t77549; struct p7708 *t77550; struct w49 t77551; char *t77552; struct w49 t77553; unsigned t77554; struct w49 t77555; struct w49 t77556; struct w49 t77557; struct structure_type27745 *t77558; struct structure_type27745 *t77559; struct p10497 *t77560; struct w16638 t77561; struct w49 t77562; struct w49 t77563; struct w49 t77564; struct w49 t77565; struct structure_type27745 *t77566; struct structure_type27745 *t77567; struct w49 t77568; struct w49 t77569; struct structure_type27745 *t77570; struct structure_type27745 *t77571; struct w49 t77572; struct w49 t77573; struct structure_type27745 *t77574; struct structure_type27745 *t77575; struct w49 t77576; struct w49 t77577; struct w49 t77578; struct w49 t77579; struct w49 t77580; struct p7708 *t77581; struct w49 t77582; char *t77583; struct w49 t77584; struct p7708 *t77585; struct w49 t77586; char *t77587; struct w49 t77588; struct p7708 *t77589; struct w49 t77590; char *t77591; struct w49 t77592; struct p7708 *t77593; struct w49 t77594; char *t77595; struct w49 t77596; struct p7708 *t77597; struct w49 t77598; char *t77599; struct w49 t77600; struct p10497 *t77601; struct structure_type27745 *t77602; struct w49 t77603; struct p10497 *t77604; struct structure_type27745 *t77605; char *t77606; struct w6315 t77607; struct p10497 *t77608; struct structure_type27745 *t77609; struct w49 t77610; struct p10497 *t77611; struct structure_type27745 *t77612; char *t77613; struct w6315 t77614; struct p10497 *t77615; struct p10497 *t77616; struct w16638 t77617; struct p10497 *t77618; struct w21193 t77619; struct w228345 t77620; struct w49 t77621; struct structure_type24753 *t77622; struct structure_type27745 *t77623; struct w49 t77624; struct w49 t77625; struct p10497 *t77626; struct w49 t77627; struct w211257 t77628; struct structure_type24753 *t77629; struct w49 t77630; struct structure_type27745 *t77631; struct w49 t77632; struct structure_type27650 *t77633; struct structure_type27858 *t77634; struct structure_type24753 *t77635; struct w49 t77636; struct structure_type27745 *t77637; struct structure_type27745 *t77638; struct structure_type27745 *t77639; char *t77640; struct structure_type27745 *t77641; struct w16638 t77642; struct w16638 t77643; struct p10497 *t77644; struct w49 t77645; struct w211257 t77646; struct w49 t77647; struct w49 t77648; struct w16638 t77649; struct w16638 t77650; struct p10497 *t77651; struct p10497 *t77652; struct w49 t77653; struct w211257 t77654; struct structure_type24753 *t77655; struct w49 t77656; struct structure_type27745 *t77657; struct w49 t77658; struct w49 t77659; struct structure_type24753 *t77660; struct w16638 t77661; struct w16638 t77662; struct w49 t77663; struct w49 t77664; struct w16638 t77665; struct w16638 t77666; struct w49 t77667; struct w49 t77668; struct w16638 t77669; struct w16638 t77670; struct structure_type27745 *t77671; char *t77672; struct structure_type27745 *t77673; struct w16638 t77674; struct w49 t77675; struct p10497 *t77676; struct p10497 *t77677; struct w49 t77678; struct w211257 t77679; struct p10497 *t77680; struct p10497 *t77681; struct w49 t77682; struct w211257 t77683; struct p10497 *t77684; struct structure_type27745 *t77685; struct w49 t77686; struct w49 t77687; struct p10497 *t77688; struct w16638 t77689; struct p10497 *t77690; struct w49 t77691; struct w211257 t77692; struct w49 t77693; struct w49 t77694; struct structure_type27745 *t77695; struct w16638 t77696; struct w16638 t77697; struct structure_type27745 *t77698; char *t77699; struct structure_type27745 *t77700; struct w16638 t77701; struct w16638 t77702; struct w49 t77703; struct w211257 t77704; struct p10497 *t77705; struct w49 t77706; struct w211257 t77707; struct w12224 t77708; struct w49 t77709; struct structure_type27745 *t77710; struct w49 t77711; struct w49 t77712; struct w16638 t77713; struct w16638 t77714; struct w16638 t77715; struct w49 t77716; struct structure_type27745 *t77717; char *t77718; struct structure_type27745 *t77719; struct w16638 t77720; struct w16638 t77721; struct p10497 *t77722; struct w49 t77723; struct w211257 t77724; struct w49 t77725; struct w49 t77726; struct w16638 t77727; struct w16638 t77728; struct p10497 *t77729; struct p10497 *t77730; struct w16638 t77731; struct p10497 *t77732; struct w49 t77733; struct w211257 t77734; struct structure_type24753 *t77735; struct w49 t77736; struct structure_type27745 *t77737; struct w49 t77738; struct w49 t77739; struct w49 t77740; struct w16638 t77741; struct w16638 t77742; struct w49 t77743; struct w49 t77744; struct w16638 t77745; struct w16638 t77746; struct structure_type27745 *t77747; char *t77748; struct structure_type27745 *t77749; struct w16638 t77750; struct w49 t77751; struct w49 t77752; struct w211257 t77753; struct p10497 *t77754; struct w49 t77755; struct w211257 t77756; struct structure_type24753 *t77757; struct w49 t77758; struct structure_type27745 *t77759; struct w49 t77760; struct w49 t77761; struct w12224 t77762; struct w16638 t77763; struct w16638 t77764; struct w49 t77765; struct w49 t77766; struct w49 t77767; struct w16638 t77768; struct w16638 t77769; struct w16638 t77770; struct w49 t77771; struct structure_type27745 *t77772; char *t77773; struct structure_type27745 *t77774; struct w16638 t77775; struct w49 t77776; struct p10497 *t77777; struct p10497 *t77778; struct w49 t77779; struct w211257 t77780; struct p10497 *t77781; struct p10497 *t77782; struct w49 t77783; struct w211257 t77784; unsigned t77785; struct p7708 *t77786; struct w49 t77787; char *t77788; struct w49 t77789; unsigned t77790; struct w49 t77791; struct w49 t77792; struct p12479 *t77793; struct w49 t77794; struct w211257 t77795; struct w49 t77796; struct w49 t77797; struct w49 t77798; struct w49 t77799; struct w49 t77800; unsigned t77801; struct w49 t77802; struct w49 t77803; struct w49 t77804; struct w49 t77805; struct w49 t77806; struct w49 t77807; unsigned t77808; struct w49 t77809; struct w49 t77810; struct p12485 *t77811; struct w16638 t77812; struct p12485 *t77813; struct w16638 t77814; struct p12485 *t77815; struct w16638 t77816; struct p12485 *t77817; struct w16638 t77818; struct p7708 *t77819; struct w49 t77820; char *t77821; struct w49 t77822; struct p12485 *t77823; struct w49 t77824; struct w211257 t77825; struct w49 t77826; struct w49 t77827; struct w49 t77828; struct p7708 *t77829; struct w49 t77830; char *t77831; struct w49 t77832; struct p12485 *t77833; struct w16638 t77834; struct p12485 *t77835; struct w49 t77836; struct w211257 t77837; struct w49 t77838; struct w49 t77839; struct w49 t77840; struct p12485 *t77841; struct w49 t77842; struct w211257 t77843; struct w49 t77844; struct w49 t77845; struct w49 t77846; struct p7708 *t77847; struct w49 t77848; char *t77849; struct w49 t77850; struct p12485 *t77851; struct w49 t77852; struct w211257 t77853; struct w49 t77854; struct w49 t77855; struct w49 t77856; struct p7708 *t77857; struct w49 t77858; char *t77859; struct w49 t77860; struct p12485 *t77861; struct w49 t77862; struct w211257 t77863; struct w49 t77864; struct w49 t77865; struct w49 t77866; struct w49 t77867; struct w49 t77868; struct w49 t77869; struct w49 t77870; struct w49 t77871; struct structure_type27745 *t77872; struct structure_type27745 *t77873; struct w49 t77874; struct w49 t77875; struct w49 t77876; unsigned t77877; unsigned t77878; struct w49 t77879; struct structure_type24753 *t77880; struct structure_type27650 *t77881; struct structure_type27745 *t77882; struct w49 t77883; struct w49 t77884; struct structure_type27745 *t77885; struct p10583 *t77886; struct w16638 t77887; struct p10583 *t77888; struct w16638 t77889; struct p10583 *t77890; struct p7708 *t77891; struct w49 t77892; char *t77893; struct w49 t77894; struct structure_type27745 *t77895; char *t77896; struct w6315 t77897; struct p7708 *t77898; struct w49 t77899; char *t77900; struct w49 t77901; struct structure_type27745 *t77902; char *t77903; struct w6315 t77904; struct p7708 *t77905; struct w49 t77906; char *t77907; struct w49 t77908; struct p10583 *t77909; struct w16638 t77910; struct p10583 *t77911; struct w21193 t77912; struct w228345 t77913; struct w49 t77914; struct structure_type24753 *t77915; struct structure_type24753 *t77916; struct w49 t77917; struct structure_type24753 *t77918; struct structure_type24753 *t77919; struct p10583 *t77920; struct p10570 *t77921; struct w49 t77922; struct w211257 t77923; struct structure_type24753 *t77924; struct structure_type27650 *t77925; struct structure_type27745 *t77926; struct w49 t77927; struct w49 t77928; struct structure_type27745 *t77929; struct w49 t77930; struct structure_type24753 *t77931; struct structure_type24753 *t77932; struct structure_type24753 *t77933; struct w49 t77934; struct w49 t77935; struct structure_type24753 *t77936; struct structure_type24753 *t77937; struct w49 t77938; struct w49 t77939; struct structure_type24753 *t77940; struct structure_type24753 *t77941; struct structure_type27745 *t77942; char *t77943; struct structure_type27745 *t77944; struct structure_type24753 *t77945; struct w49 t77946; struct p10583 *t77947; struct p10583 *t77948; struct structure_type27650 *t77949; struct w211257 t77950; struct w49 t77951; struct p10583 *t77952; struct p10583 *t77953; struct structure_type27650 *t77954; struct w211257 t77955; struct w49 t77956; struct p7708 *t77957; struct w49 t77958; char *t77959; struct w49 t77960; struct structure_type24753 *t77961; struct w49 t77962; struct structure_type24753 *t77963; struct structure_type24753 *t77964; struct p10583 *t77965; struct p10583 *t77966; struct w16638 t77967; struct p10570 *t77968; struct w49 t77969; struct w211257 t77970; struct structure_type24753 *t77971; struct structure_type27650 *t77972; struct structure_type27745 *t77973; struct w49 t77974; struct w49 t77975; struct structure_type27745 *t77976; struct w49 t77977; struct w49 t77978; struct structure_type24753 *t77979; struct structure_type24753 *t77980; struct w49 t77981; struct w49 t77982; struct structure_type24753 *t77983; struct structure_type24753 *t77984; struct structure_type27745 *t77985; char *t77986; struct structure_type27745 *t77987; struct structure_type24753 *t77988; struct w49 t77989; struct structure_type27650 *t77990; struct w211257 t77991; struct w49 t77992; struct p10570 *t77993; struct w49 t77994; struct w211257 t77995; struct structure_type24753 *t77996; struct w49 t77997; struct structure_type27745 *t77998; struct w49 t77999; struct structure_type27745 *t78000; struct w49 t78001; struct w12224 t78002; struct structure_type24753 *t78003; struct structure_type24753 *t78004; struct w49 t78005; struct w49 t78006; struct w49 t78007; struct structure_type24753 *t78008; struct structure_type24753 *t78009; struct structure_type24753 *t78010; struct w49 t78011; struct structure_type27745 *t78012; char *t78013; struct structure_type27745 *t78014; struct structure_type24753 *t78015; struct w49 t78016; struct p10583 *t78017; struct p10583 *t78018; struct structure_type27650 *t78019; struct w211257 t78020; struct w49 t78021; struct p10583 *t78022; struct p10583 *t78023; struct structure_type27650 *t78024; struct w211257 t78025; struct w49 t78026; struct p7708 *t78027; struct w49 t78028; char *t78029; struct w49 t78030; unsigned t78031; struct w49 t78032; struct w49 t78033; struct p11938 *t78034; struct w49 t78035; struct w211257 t78036; struct w49 t78037; struct w49 t78038; struct w49 t78039; struct p7708 *t78040; struct w49 t78041; char *t78042; struct w49 t78043; unsigned t78044; struct w49 t78045; struct w49 t78046; struct p11938 *t78047; struct w49 t78048; struct w211257 t78049; struct w49 t78050; struct w49 t78051; struct w49 t78052; struct p7708 *t78053; struct w49 t78054; char *t78055; struct w49 t78056; unsigned t78057; struct w49 t78058; struct w49 t78059; struct p11938 *t78060; struct w49 t78061; struct w211257 t78062; struct w49 t78063; struct w49 t78064; struct w49 t78065; struct p7708 *t78066; struct w49 t78067; char *t78068; struct w49 t78069; unsigned t78070; struct w49 t78071; struct w49 t78072; struct p11938 *t78073; struct w49 t78074; struct w211257 t78075; struct w49 t78076; struct w49 t78077; struct w49 t78078; struct w49 t78079; struct w49 t78080; unsigned t78081; struct w49 t78082; struct w49 t78083; struct p7708 *t78084; struct w49 t78085; char *t78086; struct w49 t78087; unsigned t78088; struct w49 t78089; struct w49 t78090; struct p11938 *t78091; struct w49 t78092; struct w211257 t78093; struct w49 t78094; struct w49 t78095; struct w49 t78096; struct p7708 *t78097; struct w49 t78098; char *t78099; struct w49 t78100; struct p7708 *t78101; struct w49 t78102; char *t78103; struct w49 t78104; struct p7708 *t78105; struct w49 t78106; char *t78107; struct w49 t78108; struct p7708 *t78109; struct w49 t78110; char *t78111; struct w49 t78112; unsigned t78113; struct w49 t78114; struct w49 t78115; struct p7708 *t78116; struct w49 t78117; char *t78118; struct w49 t78119; unsigned t78120; struct w49 t78121; struct w49 t78122; struct w49 t78123; struct w49 t78124; struct w49 t78125; struct w49 t78126; struct w49 t78127; struct w49 t78128; unsigned t78129; struct w49 t78130; unsigned t78131; struct w49 t78132; struct w211257 t78133; struct w49 t78134; struct w49 t78135; struct w49 t78136; struct w49 t78137; struct w49 t78138; struct w49 t78139; struct w49 t78140; struct w49 t78141; struct w49 t78142; struct w49 t78143; struct w49 t78144; unsigned t78145; struct w49 t78146; struct w211257 t78147; struct w49 t78148; struct w49 t78149; struct w49 t78150; struct w49 t78151; struct w49 t78152; struct w49 t78153; struct w49 t78154; struct w49 t78155; struct w49 t78156; struct w49 t78157; struct w49 t78158; struct w49 t78159; unsigned t78160; struct w49 t78161; struct w49 t78162; struct w49 t78163; struct w49 t78164; unsigned t78165; struct w49 t78166; struct w49 t78167; struct w49 t78168; struct w49 t78169; unsigned t78170; struct w49 t78171; struct w49 t78172; struct p7738 *t78173; struct w49 t78174; int t78175; struct p10570 *t78176; struct w49 t78177; struct w211257 t78178; struct structure_type24753 *t78179; struct w49 t78180; struct structure_type27745 *t78181; struct w49 t78182; struct structure_type27745 *t78183; struct w49 t78184; struct structure_type27745 *t78185; char *t78186; struct structure_type27745 *t78187; struct w49 t78188; struct p7738 *t78189; struct w49 t78190; int t78191; struct p10570 *t78192; struct w49 t78193; struct w211257 t78194; struct structure_type24753 *t78195; struct w49 t78196; struct structure_type27745 *t78197; struct w49 t78198; struct structure_type27745 *t78199; struct w49 t78200; struct w49 t78201; struct w49 t78202; struct w49 t78203; struct structure_type27745 *t78204; char *t78205; struct structure_type27745 *t78206; struct w49 t78207; struct w49 t78208; struct p7736 *t78209; struct w49 t78210; int t78211; struct p10570 *t78212; struct w49 t78213; struct w211257 t78214; struct structure_type24753 *t78215; struct w49 t78216; struct structure_type27745 *t78217; struct w49 t78218; struct structure_type27745 *t78219; struct w49 t78220; struct w49 t78221; struct w49 t78222; struct structure_type24753 *t78223; struct structure_type24753 *t78224; struct structure_type24753 *t78225; struct structure_type24753 *t78226; struct w49 t78227; struct structure_type27745 *t78228; char *t78229; struct structure_type27745 *t78230; struct w49 t78231; struct p7736 *t78232; struct w49 t78233; int t78234; struct p10570 *t78235; struct w49 t78236; struct w211257 t78237; struct structure_type24753 *t78238; struct w49 t78239; struct structure_type27745 *t78240; struct w49 t78241; struct structure_type27745 *t78242; struct w49 t78243; struct w49 t78244; struct w49 t78245; struct w49 t78246; struct w49 t78247; struct w49 t78248; struct w49 t78249; struct structure_type27745 *t78250; char *t78251; struct structure_type27745 *t78252; struct w49 t78253; struct w49 t78254; struct w49 t78255; struct w49 t78256; unsigned t78257; struct w49 t78258; struct w49 t78259; struct w49 t78260; struct w49 t78261; unsigned t78262; struct w49 t78263; struct w49 t78264; struct w49 t78265; struct w49 t78266; unsigned t78267; struct w49 t78268; struct w49 t78269; struct w49 t78270; struct w49 t78271; struct w49 t78272; struct structure_type27745 *t78273; struct structure_type27745 *t78274; struct structure_type27745 *t78275; char *t78276; struct structure_type27745 *t78277; struct w49 t78278; struct w49 t78279; struct w49 t78280; struct w49 t78281; struct w49 t78282; unsigned t78283; struct w49 t78284; struct w49 t78285; struct w49 t78286; struct w49 t78287; struct w49 t78288; struct structure_type27745 *t78289; struct structure_type27745 *t78290; struct structure_type27745 *t78291; char *t78292; struct structure_type27745 *t78293; struct w49 t78294; struct w49 t78295; struct w49 t78296; struct w49 t78297; struct w49 t78298; unsigned t78299; struct w49 t78300; struct w49 t78301; struct w49 t78302; struct w49 t78303; struct w49 t78304; struct structure_type27745 *t78305; struct structure_type27745 *t78306; struct structure_type27745 *t78307; char *t78308; struct structure_type27745 *t78309; struct w49 t78310; struct w49 t78311; struct w49 t78312; struct w49 t78313; struct w49 t78314; unsigned t78315; struct w49 t78316; struct w49 t78317; struct w49 t78318; struct w49 t78319; struct w49 t78320; struct structure_type27745 *t78321; struct structure_type27745 *t78322; struct structure_type27745 *t78323; char *t78324; struct structure_type27745 *t78325; struct w49 t78326; struct w49 t78327; struct w49 t78328; struct w49 t78329; struct w49 t78330; unsigned t78331; struct w49 t78332; struct w49 t78333; struct w49 t78334; struct w49 t78335; struct w49 t78336; struct structure_type27745 *t78337; struct structure_type27745 *t78338; struct structure_type27745 *t78339; char *t78340; struct structure_type27745 *t78341; struct w49 t78342; struct w49 t78343; struct w49 t78344; struct w49 t78345; struct w49 t78346; unsigned t78347; struct w49 t78348; struct structure_type24753 *t78349; struct structure_type27650 *t78350; struct structure_type27745 *t78351; struct w49 t78352; struct w49 t78353; struct structure_type27745 *t78354; struct structure_type27650 *t78355; struct structure_type27858 *t78356; struct structure_type24753 *t78357; struct w49 t78358; struct structure_type27745 *t78359; char *t78360; struct structure_type27745 *t78361; struct w49 t78362; struct structure_type27858 *t78363; struct w49 t78364; struct w49 t78365; struct w49 t78366; struct w49 t78367; struct structure_type27745 *t78368; struct structure_type27745 *t78369; struct structure_type27745 *t78370; char *t78371; struct structure_type27745 *t78372; struct w49 t78373; struct p7736 *t78374; struct w49 t78375; int t78376; struct p10532 *t78377; struct w49 t78378; struct w211257 t78379; struct structure_type24753 *t78380; struct w49 t78381; struct structure_type27745 *t78382; struct w49 t78383; struct structure_type27745 *t78384; struct structure_type27650 *t78385; struct structure_type27858 *t78386; struct structure_type24753 *t78387; struct w49 t78388; struct structure_type27745 *t78389; struct structure_type27745 *t78390; struct w49 t78391; struct structure_type27745 *t78392; char *t78393; struct w49 t78394; struct p7736 *t78395; struct w49 t78396; int t78397; struct p10532 *t78398; struct w49 t78399; struct w211257 t78400; struct structure_type24753 *t78401; struct w49 t78402; struct structure_type27745 *t78403; struct w49 t78404; struct structure_type27745 *t78405; struct w49 t78406; struct w49 t78407; struct w49 t78408; struct w49 t78409; struct w49 t78410; struct w49 t78411; struct w49 t78412; struct w49 t78413; struct structure_type27745 *t78414; char *t78415; struct w49 t78416; struct p7736 *t78417; struct w49 t78418; int t78419; struct p10532 *t78420; struct w49 t78421; struct w211257 t78422; struct structure_type24753 *t78423; struct w49 t78424; struct structure_type27745 *t78425; struct w49 t78426; struct structure_type27745 *t78427; struct w49 t78428; struct w49 t78429; struct w49 t78430; struct w49 t78431; struct w49 t78432; struct w49 t78433; struct w49 t78434; struct structure_type27745 *t78435; char *t78436; struct w49 t78437; struct w49 t78438; struct p7738 *t78439; struct w49 t78440; int t78441; struct p10532 *t78442; struct w49 t78443; struct w211257 t78444; struct w49 t78445; struct structure_type27745 *t78446; struct w49 t78447; struct structure_type27745 *t78448; struct w49 t78449; struct structure_type27745 *t78450; char *t78451; struct w49 t78452; struct p7738 *t78453; struct w49 t78454; int t78455; struct p10532 *t78456; struct w49 t78457; struct w211257 t78458; struct w49 t78459; struct w49 t78460; struct structure_type27745 *t78461; struct structure_type27745 *t78462; struct w49 t78463; struct structure_type27745 *t78464; char *t78465; struct w49 t78466; struct p7738 *t78467; struct w49 t78468; int t78469; struct p10532 *t78470; struct w49 t78471; struct w211257 t78472; struct structure_type24753 *t78473; struct w49 t78474; struct structure_type27745 *t78475; struct w49 t78476; struct structure_type27745 *t78477; struct w49 t78478; struct w49 t78479; struct w49 t78480; struct w49 t78481; struct structure_type27745 *t78482; char *t78483; struct w49 t78484; struct w49 t78485; struct p7736 *t78486; struct w49 t78487; int t78488; struct p10497 *t78489; struct w49 t78490; struct w211257 t78491; struct structure_type24753 *t78492; struct w49 t78493; struct structure_type27745 *t78494; struct w49 t78495; struct structure_type27650 *t78496; struct structure_type27858 *t78497; struct structure_type24753 *t78498; struct w49 t78499; struct structure_type27745 *t78500; struct structure_type27745 *t78501; struct w49 t78502; struct structure_type27745 *t78503; char *t78504; struct structure_type27745 *t78505; struct w49 t78506; struct p7736 *t78507; struct w49 t78508; int t78509; struct p10497 *t78510; struct w49 t78511; struct w211257 t78512; struct structure_type24753 *t78513; struct w49 t78514; struct structure_type27745 *t78515; struct w49 t78516; struct w49 t78517; struct w49 t78518; struct w49 t78519; struct w49 t78520; struct w49 t78521; struct w49 t78522; struct w49 t78523; struct w49 t78524; struct structure_type27745 *t78525; char *t78526; struct structure_type27745 *t78527; struct w49 t78528; struct p7736 *t78529; struct w49 t78530; int t78531; struct p10497 *t78532; struct w49 t78533; struct w211257 t78534; struct structure_type24753 *t78535; struct w49 t78536; struct structure_type27745 *t78537; struct w49 t78538; struct w49 t78539; struct w49 t78540; struct w49 t78541; struct w49 t78542; struct w49 t78543; struct w49 t78544; struct w49 t78545; struct structure_type27745 *t78546; char *t78547; struct structure_type27745 *t78548; struct w49 t78549; struct w49 t78550; struct p7738 *t78551; struct w49 t78552; int t78553; struct p10497 *t78554; struct w49 t78555; struct w211257 t78556; struct w49 t78557; struct structure_type27745 *t78558; struct w49 t78559; struct w49 t78560; struct structure_type27745 *t78561; char *t78562; struct structure_type27745 *t78563; struct w49 t78564; struct p7738 *t78565; struct w49 t78566; int t78567; struct p10497 *t78568; struct w49 t78569; struct w211257 t78570; struct w49 t78571; struct w49 t78572; struct structure_type27745 *t78573; struct w49 t78574; struct structure_type27745 *t78575; char *t78576; struct structure_type27745 *t78577; struct w49 t78578; struct p7738 *t78579; struct w49 t78580; int t78581; struct p10497 *t78582; struct w49 t78583; struct w211257 t78584; struct structure_type24753 *t78585; struct w49 t78586; struct structure_type27745 *t78587; struct w49 t78588; struct w49 t78589; struct w49 t78590; struct w49 t78591; struct w49 t78592; struct structure_type27745 *t78593; char *t78594; struct structure_type27745 *t78595; struct w49 t78596; struct w49 t78597; struct w49 t78598; struct w49 t78599; struct p8246 *t78600; struct w11873 t78601; struct w228345 t78602; struct w49 t78603; struct structure_type24753 *t78604; struct w49 t78605; struct w49 t78606; struct w49 t78607; unsigned t78608; struct w49 t78609; struct w49 t78610; struct p12184 *t78611; struct w49 t78612; struct w211257 t78613; struct w49 t78614; struct w49 t78615; struct w49 t78616; struct w49 t78617; struct w49 t78618; struct w49 t78619; struct w49 t78620; struct p12184 *t78621; struct w11873 t78622; struct w228345 t78623; struct w49 t78624; struct structure_type24753 *t78625; struct w49 t78626; struct w49 t78627; unsigned t78628; struct w49 t78629; struct w49 t78630; struct p14661 *t78631; unsigned t78632; struct p14661 *t78633; struct w12224 t78634; struct w228345 t78635; struct w49 t78636; struct structure_type24753 *t78637; struct w49 t78638; struct w49 t78639; unsigned t78640; struct w49 t78641; struct w49 t78642; struct p14650 *t78643; unsigned t78644; struct p14650 *t78645; struct w12224 t78646; struct w228345 t78647; struct w49 t78648; struct structure_type24753 *t78649; struct w49 t78650; unsigned t78651; struct w49 t78652; struct w49 t78653; unsigned t78654; struct w49 t78655; struct w49 t78656; struct w49 t78657; struct w49 t78658; unsigned t78659; struct w49 t78660; struct w49 t78661; struct w49 t78662; struct w49 t78663; struct w49 t78664; struct w49 t78665; struct w49 t78666; struct w49 t78667; struct w49 t78668; struct w49 t78669; unsigned t78670; struct w49 t78671; struct w49 t78672; unsigned t78673; struct w49 t78674; struct structure_type24753 *t78675; struct structure_type27650 *t78676; struct structure_type27745 *t78677; struct w49 t78678; struct w49 t78679; struct structure_type27745 *t78680; struct structure_type27745 *t78681; struct w49 t78682; struct structure_type27650 *t78683; struct structure_type27858 *t78684; struct structure_type24753 *t78685; struct w49 t78686; struct structure_type27745 *t78687; struct structure_type27745 *t78688; struct w49 t78689; struct w49 t78690; struct w49 t78691; struct structure_type27745 *t78692; char *t78693; struct structure_type27745 *t78694; struct p17869 *t78695; struct w11873 t78696; struct w228345 t78697; struct w49 t78698; struct structure_type24753 *t78699; struct w49 t78700; struct w49 t78701; struct w49 t78702; unsigned t78703; struct w49 t78704; struct structure_type24753 *t78705; struct structure_type27650 *t78706; struct structure_type27745 *t78707; struct w49 t78708; struct w49 t78709; struct structure_type27745 *t78710; struct structure_type27745 *t78711; struct w49 t78712; struct structure_type27650 *t78713; struct structure_type27858 *t78714; struct structure_type24753 *t78715; struct w49 t78716; struct structure_type27745 *t78717; struct structure_type27745 *t78718; struct w49 t78719; struct w49 t78720; struct w49 t78721; struct structure_type27745 *t78722; char *t78723; struct structure_type27745 *t78724; struct p17869 *t78725; struct w11873 t78726; struct w228345 t78727; struct w49 t78728; struct structure_type24753 *t78729; struct w49 t78730; struct w49 t78731; struct w49 t78732; unsigned t78733; struct w49 t78734; struct structure_type24753 *t78735; struct structure_type27650 *t78736; struct structure_type27745 *t78737; struct w49 t78738; struct w49 t78739; struct structure_type27745 *t78740; struct structure_type27745 *t78741; struct w49 t78742; struct structure_type27650 *t78743; struct structure_type27858 *t78744; struct structure_type24753 *t78745; struct w49 t78746; struct structure_type27745 *t78747; struct structure_type27745 *t78748; struct w49 t78749; struct w49 t78750; struct w49 t78751; struct structure_type27745 *t78752; char *t78753; struct structure_type27745 *t78754; struct p17852 *t78755; struct w11873 t78756; struct w228345 t78757; struct w49 t78758; struct structure_type24753 *t78759; struct w49 t78760; struct w49 t78761; struct w49 t78762; unsigned t78763; unsigned t78764; struct w49 t78765; struct structure_type24753 *t78766; struct structure_type27650 *t78767; struct structure_type27745 *t78768; struct w49 t78769; struct w49 t78770; struct structure_type27745 *t78771; struct w49 t78772; struct w49 t78773; struct structure_type27745 *t78774; char *t78775; struct w49 t78776; struct w49 t78777; struct w49 t78778; struct w49 t78779; struct w49 t78780; struct structure_type24753 *t78781; struct structure_type24753 *t78782; struct w49 t78783; struct w49 t78784; struct structure_type27745 *t78785; struct structure_type27745 *t78786; struct structure_type27745 *t78787; char *t78788; struct w49 t78789; struct w49 t78790; struct w49 t78791; struct w49 t78792; struct w49 t78793; struct w49 t78794; struct w49 t78795; struct w49 t78796; struct w49 t78797; struct w49 t78798; struct structure_type27858 *t78799; struct w49 t78800; struct structure_type27745 *t78801; struct structure_type27745 *t78802; struct p17857 *t78803; struct w3457 t78804; struct w228345 t78805; struct w49 t78806; struct structure_type24753 *t78807; struct w49 t78808; struct w49 t78809; struct w49 t78810; struct structure_type27858 *t78811; struct w49 t78812; struct structure_type27745 *t78813; struct structure_type27745 *t78814; struct p17874 *t78815; struct w3457 t78816; struct w228345 t78817; struct w49 t78818; struct structure_type24753 *t78819; struct w49 t78820; struct w49 t78821; struct w49 t78822; struct structure_type27858 *t78823; struct w49 t78824; struct structure_type27745 *t78825; struct structure_type27745 *t78826; struct p17897 *t78827; struct w3457 t78828; struct w228345 t78829; struct w49 t78830; struct structure_type24753 *t78831; struct w49 t78832; struct w49 t78833; struct w49 t78834; struct w49 t78835; struct w49 t78836; struct structure_type27745 *t78837; struct structure_type27745 *t78838; struct structure_type27745 *t78839; char *t78840; struct structure_type27745 *t78841; struct w49 t78842; struct w49 t78843; struct w211235 t78844; struct w49 t78845; struct w49 t78846; struct structure_type27745 *t78847; struct structure_type27745 *t78848; struct structure_type27745 *t78849; char *t78850; struct structure_type27745 *t78851; struct w49 t78852; struct w49 t78853; struct w49 t78854; unsigned t78855; struct w49 t78856; struct w49 t78857; struct p12672 *t78858; struct w49 t78859; struct w211257 t78860; struct w49 t78861; struct w49 t78862; struct w49 t78863; struct w49 t78864; struct w49 t78865; struct w49 t78866; struct w49 t78867; unsigned t78868; struct w49 t78869; struct structure_type24753 *t78870; struct structure_type27650 *t78871; struct structure_type27745 *t78872; struct w49 t78873; struct w49 t78874; struct structure_type27745 *t78875; struct structure_type27650 *t78876; struct w49 t78877; struct structure_type24753 *t78878; struct structure_type27745 *t78879; char *t78880; struct structure_type27745 *t78881; struct w49 t78882; struct w49 t78883; struct w49 t78884; struct p12668 *t78885; struct w11873 t78886; struct w228345 t78887; struct w49 t78888; struct structure_type24753 *t78889; struct w49 t78890; unsigned t78891; struct w49 t78892; struct w49 t78893; struct w49 t78894; struct w49 t78895; struct w49 t78896; struct w49 t78897; struct w49 t78898; struct p9612 *t78899; unsigned t78900; struct p9612 *t78901; unsigned t78902; struct p9612 *t78903; unsigned t78904; struct p9612 *t78905; struct w16638 t78906; struct p9612 *t78907; struct w16638 t78908; struct p9612 *t78909; struct w16638 t78910; struct p7708 *t78911; struct w49 t78912; char *t78913; struct w49 t78914; struct p9612 *t78915; struct w49 t78916; struct w211257 t78917; struct w49 t78918; struct w49 t78919; struct w49 t78920; struct w49 t78921; struct w49 t78922; struct w49 t78923; struct w49 t78924; struct w49 t78925; struct p7708 *t78926; struct w49 t78927; char *t78928; struct w49 t78929; struct p9612 *t78930; struct w16638 t78931; struct p9612 *t78932; struct w49 t78933; struct w211257 t78934; struct w49 t78935; struct w49 t78936; struct w49 t78937; struct w49 t78938; struct w49 t78939; struct w49 t78940; struct w49 t78941; struct w49 t78942; struct p9612 *t78943; struct w49 t78944; struct w211257 t78945; struct w49 t78946; struct w49 t78947; struct w49 t78948; struct w49 t78949; struct w49 t78950; struct w49 t78951; struct w49 t78952; struct w49 t78953; struct p7708 *t78954; struct w49 t78955; char *t78956; struct w49 t78957; struct p9612 *t78958; struct w49 t78959; struct w211257 t78960; struct w49 t78961; struct w49 t78962; struct w49 t78963; struct w49 t78964; struct w49 t78965; struct w49 t78966; struct w49 t78967; struct w49 t78968; struct p7708 *t78969; struct w49 t78970; char *t78971; struct w49 t78972; struct p9612 *t78973; struct w49 t78974; struct w211257 t78975; struct w49 t78976; struct w49 t78977; struct w49 t78978; struct w49 t78979; struct w49 t78980; struct w49 t78981; struct w49 t78982; struct w49 t78983; struct w49 t78984; struct w49 t78985; struct w49 t78986; struct w49 t78987; struct p7708 *t78988; struct w49 t78989; char *t78990; struct w49 t78991; struct p7708 *t78992; struct w49 t78993; char *t78994; struct w49 t78995; struct p7708 *t78996; struct w49 t78997; char *t78998; struct w49 t78999; struct p7708 *t79000; struct w49 t79001; char *t79002; struct w49 t79003; struct w49 t79004; struct w49 t79005; struct w49 t79006; unsigned t79007; struct w49 t79008; struct w49 t79009; struct w49 t79010; struct w49 t79011; struct w49 t79012; struct w49 t79013; struct w49 t79014; struct w49 t79015; struct w49 t79016; struct w49 t79017; struct w49 t79018; struct w49 t79019; unsigned t79020; struct w49 t79021; struct w49 t79022; struct w49 t79023; struct w49 t79024; struct w49 t79025; struct w49 t79026; struct w49 t79027; struct w49 t79028; struct w49 t79029; struct w49 t79030; struct w49 t79031; struct w49 t79032; unsigned t79033; struct w49 t79034; struct w49 t79035; struct w49 t79036; struct w49 t79037; struct w49 t79038; struct w49 t79039; struct w49 t79040; struct w49 t79041; struct w49 t79042; struct w49 t79043; struct w49 t79044; struct w49 t79045; unsigned t79046; struct w49 t79047; struct w49 t79048; struct w49 t79049; struct w49 t79050; struct w49 t79051; struct w49 t79052; struct w49 t79053; struct w49 t79054; struct w49 t79055; struct w49 t79056; struct w49 t79057; struct w49 t79058; unsigned t79059; struct w49 t79060; struct w49 t79061; struct w49 t79062; struct w49 t79063; struct w49 t79064; struct w49 t79065; struct w49 t79066; struct w49 t79067; struct w49 t79068; struct w49 t79069; struct w49 t79070; struct w49 t79071; unsigned t79072; struct w49 t79073; struct w49 t79074; struct p9656 *t79075; unsigned t79076; struct p9656 *t79077; struct w16638 t79078; struct p9656 *t79079; struct w16638 t79080; struct p9656 *t79081; struct w16638 t79082; struct p7708 *t79083; struct w49 t79084; char *t79085; struct w49 t79086; struct p9656 *t79087; struct w49 t79088; struct w211257 t79089; struct w49 t79090; struct w49 t79091; struct w49 t79092; struct p7708 *t79093; struct w49 t79094; char *t79095; struct w49 t79096; struct p9656 *t79097; struct w16638 t79098; struct p9656 *t79099; struct w49 t79100; struct w211257 t79101; struct w49 t79102; struct w49 t79103; struct w49 t79104; struct p9656 *t79105; struct w49 t79106; struct w211257 t79107; struct w49 t79108; struct w49 t79109; struct w49 t79110; struct p7708 *t79111; struct w49 t79112; char *t79113; struct w49 t79114; struct p9656 *t79115; struct w49 t79116; struct w211257 t79117; struct w49 t79118; struct w49 t79119; struct w49 t79120; struct p7708 *t79121; struct w49 t79122; char *t79123; struct w49 t79124; struct p9656 *t79125; struct w49 t79126; struct w211257 t79127; struct w49 t79128; struct w49 t79129; struct w49 t79130; struct w49 t79131; struct w49 t79132; struct w49 t79133; struct w49 t79134; struct w49 t79135; struct w49 t79136; struct w49 t79137; struct w49 t79138; unsigned t79139; struct w49 t79140; struct w49 t79141; struct w49 t79142; struct w49 t79143; struct w49 t79144; struct w49 t79145; struct w49 t79146; struct w49 t79147; struct w49 t79148; struct w49 t79149; unsigned t79150; struct w49 t79151; struct w49 t79152; struct w49 t79153; struct w49 t79154; struct w49 t79155; struct w49 t79156; struct w49 t79157; struct w49 t79158; struct w49 t79159; struct w49 t79160; unsigned t79161; struct w49 t79162; struct w49 t79163; struct w49 t79164; struct w49 t79165; struct w49 t79166; struct w49 t79167; struct w49 t79168; struct w49 t79169; struct w49 t79170; struct w49 t79171; unsigned t79172; struct w49 t79173; struct w49 t79174; struct w49 t79175; struct w49 t79176; struct w49 t79177; struct w49 t79178; struct w49 t79179; struct w49 t79180; struct w49 t79181; struct w49 t79182; unsigned t79183; struct w49 t79184; struct w49 t79185; struct w49 t79186; struct w49 t79187; struct w49 t79188; struct w49 t79189; struct w49 t79190; struct w49 t79191; struct w49 t79192; struct w49 t79193; struct p7708 *t79194; struct w49 t79195; char *t79196; struct w49 t79197; unsigned t79198; struct w49 t79199; struct w49 t79200; struct w49 t79201; struct w49 t79202; struct w49 t79203; struct w49 t79204; struct w49 t79205; struct p7708 *t79206; struct w49 t79207; char *t79208; struct w49 t79209; unsigned t79210; struct w49 t79211; struct w49 t79212; struct w49 t79213; struct w49 t79214; struct w49 t79215; struct w49 t79216; struct w49 t79217; struct p7708 *t79218; struct w49 t79219; char *t79220; struct w49 t79221; unsigned t79222; struct w49 t79223; struct w49 t79224; struct w49 t79225; struct w49 t79226; struct w49 t79227; struct w49 t79228; struct w49 t79229; struct p7708 *t79230; struct w49 t79231; char *t79232; struct w49 t79233; unsigned t79234; struct w49 t79235; struct w49 t79236; struct w49 t79237; struct w49 t79238; struct w49 t79239; struct w49 t79240; struct w49 t79241; struct w49 t79242; struct w49 t79243; unsigned t79244; struct w49 t79245; struct w49 t79246; struct w49 t79247; struct w49 t79248; struct structure_type27745 *t79249; struct structure_type27745 *t79250; struct w49 t79251; struct w49 t79252; struct w6852 t79253; struct w6852 t79254; struct w49 t79255; struct w49 t79256; struct w49 t79257; struct structure_type27745 *t79258; struct structure_type27745 *t79259; struct w49 t79260; struct structure_type27657 *t79261; struct structure_type27657 *t79262; struct p12672 *e12672; struct p14650 *e14650; struct p14661 *e14661; struct p17857 *e17857; struct p17874 *e17874; struct p17897 *e17897; struct p6989 *p6991; struct p6989 *p6992; struct p6989 *p6993; struct p7899 *p7901; struct p7911 *p7913; struct p8137 *p8141; struct p8137 *p8142; struct p8144 *p8145; struct p8184 *p8185; struct p8246 *p8340; struct p8610 *p8612; struct p8759 *p8770; struct p8759 *p8771; struct p8759 *p8772; struct p9612 *p9642; struct p9612 *p9645; struct p9612 *p9648; struct p9612 *p9653; struct p9656 *p9657; struct p9656 *p9658; struct p9656 *p9659; struct p9656 *p9660; struct p9656 *p9661; struct p9656 *p9662; struct p9656 *p9663; struct p9656 *p9664; struct p9656 *p9665; struct p9656 *p9666; struct p9656 *p9667; struct p9612 *p9670; struct p9612 *p9671; struct p9612 *p9672; struct p9612 *p9673; struct p9612 *p9674; struct p9612 *p9675; struct p9612 *p9676; struct p9612 *p9677; struct p9612 *p9679; struct p9612 *p9680; struct p9612 *p9682; struct p9612 *p9684; struct p9612 *p9686; struct p10497 *p10499; struct p10497 *p10500; struct p10497 *p10502; struct p10497 *p10503; struct p10497 *p10504; struct p10497 *p10505; struct p10497 *p10506; struct p10497 *p10507; struct p10497 *p10508; struct p10497 *p10509; struct p10497 *p10510; struct p10497 *p10511; struct p10497 *p10512; struct p10497 *p10514; struct p10497 *p10515; struct p10497 *p10516; struct p10497 *p10517; struct p10497 *p10518; struct p10497 *p10519; struct p10497 *p10521; struct p10497 *p10523; struct p10497 *p10525; struct p10497 *p10527; struct p10532 *p10543; struct p10532 *p10545; struct p10532 *p10548; struct p10532 *p10554; struct p10532 *p10556; struct p10532 *p10558; struct p10583 *p10585; struct p10583 *p10586; struct p10583 *p10587; struct p10583 *p10588; struct p10583 *p10589; struct p10583 *p10591; struct p10583 *p10592; struct p10583 *p10593; struct p10583 *p10594; struct p10583 *p10595; struct p10583 *p10596; struct p10583 *p10597; struct p10583 *p10598; struct p10583 *p10599; struct p10583 *p10600; struct p10583 *p10601; struct p10910 *p10913; struct p10910 *p10916; struct p11818 *p11840; struct p11793 *p11841; struct p11938 *p11941; struct p11938 *p11942; struct p11938 *p11951; struct p11938 *p11958; struct p11938 *p11959; struct p11938 *p11968; struct p11938 *p11969; struct p11938 *p11978; struct p11938 *p11979; struct p11938 *p11988; struct p11938 *p11989; struct p12121 *p12122; struct p12125 *p12126; struct p12177 *p12178; struct p12184 *p12185; struct p12184 *p12186; struct p12194 *p12195; struct p12198 *p12199; struct p12458 *p12469; struct p12477 *p12478; struct p12479 *p12480; struct p12479 *p12481; struct p12485 *p12496; struct p12485 *p12497; struct p12485 *p12498; struct p12485 *p12499; struct p12485 *p12500; struct p12485 *p12501; struct p12485 *p12502; struct p12485 *p12503; struct p12485 *p12504; struct p12485 *p12505; struct p12485 *p12506; struct p12671 *p12672; struct p12672 *p12673; struct p14646 *p14650; struct p14650 *p14651; struct p14646 *p14657; struct p14646 *p14661; struct p14661 *p14662; struct p14646 *p14668; struct p15024 *p15027; struct p15896 *p15902; struct p16462 *p16480; struct p16486 *p16527; struct p16486 *p16542; struct p16486 *p16549; struct p16486 *p16550; struct p16486 *p16551; struct p16486 *p16552; struct p16486 *p16553; struct p16486 *p16554; struct p16486 *p16559; struct p16486 *p16560; struct p17852 *p17855; struct p17852 *p17857; struct p17869 *p17872; struct p17869 *p17874; struct p17869 *p17895; struct p17869 *p17897; h8140: /* x69685 stalin.sc:3324:113301 */ /* x69658 stalin.sc:3324:113306 */ if (a21795==((struct structure_type27657 *)FALSE_TYPE)) goto l14090; /* x69683 */ /* x69682 stalin.sc:3325:113322 */ /* x69681 stalin.sc:3325:113325 */ /* x69680 stalin.sc:3325:113351 */ t79261 = a21795; /* x69679 stalin.sc:3325:113326 */ a37274 = t79261; /* x281765 */ /* x281764 */ t79262 = a37274; /* x281763 */ t77370 = t79262->s0; /* x69678 stalin.sc:3325:113323 */ t77369 = p8140->a21791; switch (t77369.tag) {case NATIVE_PROCEDURE_TYPE6852: t77371 = f13914(t77370); t77358.tag = t77371; break; case NATIVE_PROCEDURE_TYPE7232: t77372 = f8793(t77370); t77358.tag = t77372; break; case NATIVE_PROCEDURE_TYPE7404: t77373 = f7755(t77370); t77358.tag = t77373; break; case NATIVE_PROCEDURE_TYPE7406: t77374 = f7741(t77370); t77358.tag = t77374; break; case NATIVE_PROCEDURE_TYPE7410: t77358 = f7735(t77370); break; case NATIVE_PROCEDURE_TYPE7413: t77375 = f7719(t77370); t77358.tag = t77375; break; case NATIVE_PROCEDURE_TYPE7415: t77376 = f7712(t77370); t77358.tag = t77376; break; case NATIVE_PROCEDURE_TYPE7418: t77377 = f7706(t77370); t77358.tag = t77377; break; case NATIVE_PROCEDURE_TYPE7420: t77378 = f7703(t77370); t77358.tag = t77378; break; case NATIVE_PROCEDURE_TYPE7421: t77379 = f7702(t77370); t77358.tag = t77379; break; case NATIVE_PROCEDURE_TYPE7422: t77380 = f7701(t77370); t77358.tag = t77380; break; case NATIVE_PROCEDURE_TYPE7423: t77381 = f7700(t77370); t77358.tag = t77381; break; case NATIVE_PROCEDURE_TYPE7426: t77382 = f7688(t77370); t77358.tag = t77382; break; case NATIVE_PROCEDURE_TYPE7427: t77383 = f7687(t77370); t77358.tag = t77383; break; case NATIVE_PROCEDURE_TYPE7428: t77384 = f7685(t77370); t77358.tag = t77384; break; case NATIVE_PROCEDURE_TYPE7429: t77385 = f7684(t77370); t77358.tag = t77385; break; case NATIVE_PROCEDURE_TYPE7430: t77386 = f7683(t77370); t77358.tag = t77386; break; case NATIVE_PROCEDURE_TYPE7431: t77387 = f7682(t77370); t77358.tag = t77387; break; case NATIVE_PROCEDURE_TYPE7432: t77388 = f7680(t77370); t77358.tag = t77388; break; case NATIVE_PROCEDURE_TYPE7433: t77389 = f7679(t77370); t77358.tag = t77389; break; case NATIVE_PROCEDURE_TYPE7435: t77390 = f7677(t77370); t77358.tag = t77390; break; case NATIVE_PROCEDURE_TYPE7756: a37335 = t77370; /* x282009 */ /* x282008 */ t77391 = a37335; /* x282007 */ t77358.tag = ((t77391.tag)==STRUCTURE_TYPE27908)?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE7773: a37432 = t77370; /* x282397 */ /* x282396 */ t77392 = a37432; /* x282395 */ t77358.tag = ((t77392.tag)==STRUCTURE_TYPE27669)?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE7822: a37765 = t77370; /* x283729 */ /* x283728 */ t77393 = a37765; /* x283727 */ t77358.tag = ((t77393.tag)==STRUCTURE_TYPE27673)?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE14939: p8145 = t77369.value.native_procedure_type14939; a21800 = t77370; /* x69704 stalin.sc:3329:113497 */ /* x69704 stalin.sc:3329:113497 */ /* x69703 stalin.sc:3329:113502 */ /* x69702 stalin.sc:3329:113505 */ t77395 = a21800; /* x69701 stalin.sc:3329:113503 */ t77394 = p8145->a21798; switch (t77394.tag) {case NATIVE_PROCEDURE_TYPE6835: if (!(f14245(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE6851: a25602 = t77395; /* x126089 stalin.sc:15310:533931 */ /* x126088 stalin.sc:15310:533936 */ /* x126087 stalin.sc:15310:533953 */ t77396 = a25602; /* x126086 stalin.sc:15310:533937 */ if (f13914(t77396)==FALSE_TYPE) goto l14096; break; case NATIVE_PROCEDURE_TYPE7232: if (!(f8793(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE7404: if (!(f7755(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE7406: if (!(f7741(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE7413: if (!(f7719(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE7415: if (!(f7712(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE7418: if (!(f7706(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE7420: if (!(f7703(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE7421: if (!(f7702(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE7422: if (!(f7701(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE7423: if (!(f7700(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE7426: if (!(f7688(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE7428: if (!(f7685(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE7429: if (!(f7684(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE7430: if (!(f7683(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE7431: if (!(f7682(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE7432: if (!(f7680(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE7433: if (!(f7679(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE7434: if (!(f7678(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE7435: if (!(f7677(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE7822: a37757 = t77395; /* x283697 */ /* x283696 */ t77397 = a37757; /* x283695 */ if ((t77397.tag)==STRUCTURE_TYPE27673) goto l14096; break; case NATIVE_PROCEDURE_TYPE14938: a25548 = t77395; /* x125178 stalin.sc:15116:527315 */ /* x125177 stalin.sc:15116:527319 */ /* x125176 stalin.sc:15116:527331 */ t77398 = a25548; /* x125175 stalin.sc:15116:527320 */ if (!(f7682(t77398)==FALSE_TYPE)) goto l14096; /* x125172 */ /* x125171 stalin.sc:15116:527347 */ t77399 = a25548; /* x125170 stalin.sc:15116:527335 */ if (!(f8793(t77399)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE15347: a25762 = t77395; /* x128346 stalin.sc:15900:554175 */ /* x128341 stalin.sc:15900:554180 */ /* x128340 stalin.sc:15900:554210 */ t77400 = a25762; /* x128339 stalin.sc:15900:554181 */ if (f7777(t77400)==FALSE_TYPE) goto l14095; /* x128344 */ /* x128343 stalin.sc:15900:554227 */ t77401 = a25762; /* x128342 stalin.sc:15900:554214 */ if (!(f14245(t77401)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE15362: a25758 = t77395; /* x128299 stalin.sc:15889:553840 */ /* x128294 stalin.sc:15889:553845 */ /* x128293 stalin.sc:15889:553875 */ t77402 = a25758; /* x128292 stalin.sc:15889:553846 */ if (f7777(t77402)==FALSE_TYPE) goto l14095; /* x128297 */ /* x128296 stalin.sc:15889:553892 */ t77403 = a25758; /* x128295 stalin.sc:15889:553879 */ if (!(f14245(t77403)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE15963: if (!(f7718((t77394.value.native_procedure_type15963), t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE16298: a25605 = t77395; /* x126113 stalin.sc:15323:534650 */ /* x126112 stalin.sc:15323:534654 */ /* x126111 stalin.sc:15323:534666 */ t77404 = a25605; /* x126110 stalin.sc:15323:534655 */ if (!(f7682(t77404)==FALSE_TYPE)) goto l14096; /* x126107 */ /* x126106 stalin.sc:15323:534682 */ t77405 = a25605; /* x126105 stalin.sc:15323:534670 */ if (!(f8793(t77405)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE17685: if (!(f7709((t77394.value.native_procedure_type17685), t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE17958: p8770 = t77394.value.native_procedure_type17958; a22226 = t77395; /* x74856 stalin.sc:4511:151542 */ /* x74855 stalin.sc:4511:151546 */ /* x74854 stalin.sc:4511:151566 */ t77406 = a22226; /* x74853 stalin.sc:4511:151547 */ a37875 = t77406; /* x284169 */ /* x284168 */ t77407 = a37875; /* x284167 */ if ((t77407.tag)==STRUCTURE_TYPE27858) goto l14096; p8771 = p8770; /* x74850 */ /* x74849 stalin.sc:4512:151578 */ /* x74848 stalin.sc:4512:151583 */ /* x74847 stalin.sc:4512:151594 */ t77408 = p8771->a22216; /* x74846 stalin.sc:4512:151584 */ if (f6967(t77408)==FALSE_TYPE) goto l14096; p8772 = p8771; /* x74842 */ /* x74841 stalin.sc:4513:151612 */ /* x74840 stalin.sc:4513:151640 */ t77410 = a22226; /* x74839 stalin.sc:4513:151613 */ /* x74838 stalin.sc:4513:151637 */ t77411 = p8772->a22216; /* x74837 stalin.sc:4513:151614 */ t77409 = f7917(t77411); if ((t77409&3)==1) {if ((f7905(((struct p7892 *)(t77409-1)), t77410).tag)==FALSE_TYPE) goto l14096;} else if ((f7893(((struct p7892 *)t77409), t77410).tag)==FALSE_TYPE) goto l14096; break; case NATIVE_PROCEDURE_TYPE18533: p6991 = t77394.value.native_procedure_type18533; a20946 = t77395; /* x59029 stalin.sc:855:26881 */ /* x59028 stalin.sc:855:26885 */ /* x59027 stalin.sc:855:26890 */ /* x59026 stalin.sc:855:26912 */ t77413 = a20946; /* x59025 stalin.sc:855:26891 */ /* x59024 stalin.sc:855:26909 */ t77414 = p6991->a20944; /* x59023 stalin.sc:855:26892 */ t77412 = f7886(t77414); if ((t77412&3)==1) {if ((f7880(((struct p7873 *)(t77412-1)), t77413).tag)==FALSE_TYPE) goto l14096;} else if ((f7874(((struct p7873 *)t77412), t77413).tag)==FALSE_TYPE) goto l14096; p6992 = p6991; /* x59019 */ /* x58997 stalin.sc:856:26922 */ /* x58996 stalin.sc:856:26946 */ t77415 = a20946; /* x58995 stalin.sc:856:26923 */ a38077 = t77415; /* x284977 */ /* x284976 */ t77416 = a38077; /* x284975 */ if (!((t77416.tag)==STRUCTURE_TYPE27756)) goto l14095; /* x59017 */ /* x59016 stalin.sc:857:26964 */ /* x59012 stalin.sc:857:26984 */ t77425 = a20946; /* x59015 stalin.sc:857:26986 */ /* x59014 stalin.sc:857:27004 */ t77428 = p6992->a20944; /* x59013 stalin.sc:857:26987 */ t77426 = f8739(t77428); /* x59011 stalin.sc:857:26965 */ t77427 = t77426; t77418 = f9368(t77425, t77427); /* x59010 */ t77417 = p6992; p6993 = t77417; a20948 = t77418; /* x59009 stalin.sc:859:27085 */ /* x59003 stalin.sc:859:27090 */ /* x59001 stalin.sc:859:27102 */ /* x59000 stalin.sc:859:27120 */ t77422 = p6993->a20944; /* x58999 stalin.sc:859:27103 */ t77419 = f8739(t77422); /* x59002 stalin.sc:859:27123 */ t77420 = a20948; /* x58998 stalin.sc:859:27091 */ t77421.tag = STRUCTURE_TYPE27745; t77421.value.structure_type27745 = t77419; if (f7013(t77421, t77420)==FALSE_TYPE) goto l14095; /* x59007 */ /* x59005 stalin.sc:859:27140 */ t77423 = p6993->a20944; /* x59006 stalin.sc:859:27142 */ t77424 = a20948; /* x59004 stalin.sc:859:27127 */ if (!(f8999(t77423, t77424)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE18663: a25779 = t77395; /* x128509 stalin.sc:15932:555348 */ /* x128504 stalin.sc:15932:555353 */ /* x128503 stalin.sc:15932:555383 */ t77429 = a25779; /* x128502 stalin.sc:15932:555354 */ if (f7777(t77429)==FALSE_TYPE) goto l14095; /* x128507 */ /* x128506 stalin.sc:15932:555400 */ t77430 = a25779; /* x128505 stalin.sc:15932:555387 */ if (!(f14245(t77430)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE18667: a25773 = t77395; /* x128471 stalin.sc:15920:554925 */ /* x128466 stalin.sc:15920:554930 */ /* x128465 stalin.sc:15920:554960 */ t77431 = a25773; /* x128464 stalin.sc:15920:554931 */ if (f7777(t77431)==FALSE_TYPE) goto l14095; /* x128469 */ /* x128468 stalin.sc:15920:554977 */ t77432 = a25773; /* x128467 stalin.sc:15920:554964 */ if (!(f14245(t77432)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE19555: if (!(f9842(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE19878: if (!((f7880((t77394.value.native_procedure_type19878), t77395).tag)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE19886: if (!((f7874((t77394.value.native_procedure_type19886), t77395).tag)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE20929: if (!(f16596(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE20964: p16549 = t77394.value.native_procedure_type20964; a27754 = t77395; /* x155739 stalin.sc:21559:755452 */ /* x155738 stalin.sc:21559:755456 */ /* x155737 stalin.sc:21559:755468 */ t77433 = a27754; /* x155736 stalin.sc:21559:755457 */ if (!(f7682(t77433)==FALSE_TYPE)) goto l14096; p16550 = p16549; /* x155733 */ /* x155732 stalin.sc:21559:755472 */ /* x155731 stalin.sc:21559:755485 */ t77434 = a27754; /* x155730 stalin.sc:21559:755473 */ if (!(f8793(t77434)==FALSE_TYPE)) goto l14096; p16551 = p16550; /* x155727 */ /* x155725 stalin.sc:21559:755498 */ t77435 = a27754; /* x155726 stalin.sc:21559:755501 */ t77436 = p16551->a27735; /* x155724 stalin.sc:21559:755490 */ if (!(f8033(t77435, t77436)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE20973: p16552 = t77394.value.native_procedure_type20973; a27757 = t77395; /* x155763 stalin.sc:21563:755554 */ /* x155762 stalin.sc:21563:755558 */ /* x155761 stalin.sc:21563:755570 */ t77437 = a27757; /* x155760 stalin.sc:21563:755559 */ if (!(f7682(t77437)==FALSE_TYPE)) goto l14096; p16553 = p16552; /* x155757 */ /* x155756 stalin.sc:21563:755574 */ /* x155755 stalin.sc:21563:755587 */ t77438 = a27757; /* x155754 stalin.sc:21563:755575 */ if (!(f8793(t77438)==FALSE_TYPE)) goto l14096; p16554 = p16553; /* x155751 */ /* x155749 stalin.sc:21563:755600 */ t77439 = a27757; /* x155750 stalin.sc:21563:755603 */ t77440 = p16554->a27733; /* x155748 stalin.sc:21563:755592 */ if (!(f8033(t77439, t77440)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE21067: if (!(f16816(t77395)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE22050: p8185 = t77394.value.native_procedure_type22050; a21838 = t77395; /* x69946 stalin.sc:3391:115521 */ /* x69944 stalin.sc:3391:115530 */ t77441 = a21838; /* x69945 stalin.sc:3391:115533 */ t77442 = p8185->a21837; /* x69943 stalin.sc:3391:115522 */ if (!(f8033(t77441, t77442)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE22054: p15902 = t77394.value.native_procedure_type22054; a27023 = t77395; /* x148147 stalin.sc:19848:694575 */ /* x148142 stalin.sc:19848:694589 */ t77443 = p15902->a27018; /* x148146 stalin.sc:19848:694592 */ /* x148144 stalin.sc:19848:694624 */ t77445 = a27023; /* x148145 stalin.sc:19848:694626 */ t77446 = p15902->p15881->a27003; /* x148143 stalin.sc:19848:694593 */ t77444 = f15877(t77445, t77446); /* x148141 stalin.sc:19848:694576 */ if (!(f8184(t77443, t77444)==FALSE_TYPE)) goto l14096; break; case NATIVE_PROCEDURE_TYPE22319: p15027 = t77394.value.native_procedure_type22319; a26394 = t77395; /* x136433 stalin.sc:17460:610897 */ /* x136428 stalin.sc:17460:610911 */ t77447 = p15027->a26390; /* x136432 stalin.sc:17460:610914 */ /* x136430 stalin.sc:17460:610946 */ t77449 = a26394; /* x136431 stalin.sc:17460:610948 */ t77450 = p15027->p15015->a26382; /* x136429 stalin.sc:17460:610915 */ t77448 = f15877(t77449, t77450); /* x136427 stalin.sc:17460:610898 */ if (!(f8184(t77447, t77448)==FALSE_TYPE)) goto l14096; break; default: a25754 = t77395; /* x128254 stalin.sc:15876:553501 */ /* x128249 stalin.sc:15876:553506 */ /* x128248 stalin.sc:15876:553536 */ t77451 = a25754; /* x128247 stalin.sc:15876:553507 */ if (f7777(t77451)==FALSE_TYPE) goto l14095; /* x128252 */ /* x128251 stalin.sc:15877:553560 */ t77452 = a25754; /* x128250 stalin.sc:15877:553547 */ if (!(f14245(t77452)==FALSE_TYPE)) goto l14096;} l14095: t77358.tag = TRUE_TYPE; goto l14097; l14096: t77358.tag = FALSE_TYPE; l14097: break; case NATIVE_PROCEDURE_TYPE15963: t77453 = f7718((t77369.value.native_procedure_type15963), t77370); t77358.tag = t77453; break; case NATIVE_PROCEDURE_TYPE16055: p12199 = t77369.value.native_procedure_type16055; a24410 = t77370; /* x109141 stalin.sc:11465:400138 */ /* x109123 stalin.sc:11465:400143 */ /* x109122 stalin.sc:11465:400194 */ t77455 = a24410; /* x109121 stalin.sc:11465:400144 */ /* x109120 stalin.sc:11465:400177 */ t77456 = q100; /* x109119 stalin.sc:11465:400145 */ t77457.tag = EXTERNAL_SYMBOL_TYPE; t77457.value.external_symbol_type = t77456; t77454 = f7708(t77457); if (f7709(t77454, t77455)==FALSE_TYPE) goto l14115; /* x109139 */ /* x109132 stalin.sc:11466:400201 */ /* x109131 stalin.sc:11467:400279 */ t77459 = p12199->p12192->a24401; /* x109130 stalin.sc:11466:400202 */ /* x109129 stalin.sc:11467:400230 */ /* x109128 stalin.sc:11467:400237 */ /* x109127 stalin.sc:11467:400273 */ t77463 = a24410; /* x109126 stalin.sc:11467:400238 */ a38173 = t77463; /* x285361 */ /* x285360 */ t77464 = a38173; /* x285359 */ if (!((t77464.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33090]"); structure_ref_error();} t77461 = t77464.value.structure_type27753->s1; /* x109125 stalin.sc:11467:400231 */ a35980 = t77461; /* x275277 */ /* x275276 */ t77462 = a35980; /* x275275 */ if (!((t77462.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30129]"); structure_ref_error();} t77460 = t77462.value.structure_type24753->s0; /* x109124 stalin.sc:11466:400203 */ t77458 = f7717(t77460); if (f7718(t77458, t77459)==FALSE_TYPE) goto l14118; /* x109137 */ /* x109136 stalin.sc:11468:400314 */ t77466 = a24410; /* x109135 stalin.sc:11468:400287 */ /* x109134 stalin.sc:11468:400311 */ t77467 = p12199->a24409; /* x109133 stalin.sc:11468:400288 */ t77465 = f7917(t77467); t77358 = ((t77465&3)==1)?f7905(((struct p7892 *)(t77465-1)), t77466):f7893(((struct p7892 *)t77465), t77466); goto l14119; l14118: /* x109138 */ t77358.tag = FALSE_TYPE; l14119: goto l14116; l14115: /* x109140 */ t77358.tag = FALSE_TYPE; l14116: break; case NATIVE_PROCEDURE_TYPE16056: p12195 = t77369.value.native_procedure_type16056; a24404 = t77370; /* x109081 stalin.sc:11445:399353 */ /* x109063 stalin.sc:11445:399358 */ /* x109062 stalin.sc:11445:399409 */ t77469 = a24404; /* x109061 stalin.sc:11445:399359 */ /* x109060 stalin.sc:11445:399392 */ t77470 = q100; /* x109059 stalin.sc:11445:399360 */ t77471.tag = EXTERNAL_SYMBOL_TYPE; t77471.value.external_symbol_type = t77470; t77468 = f7708(t77471); if (f7709(t77468, t77469)==FALSE_TYPE) goto l14121; /* x109079 */ /* x109072 stalin.sc:11446:399422 */ /* x109071 stalin.sc:11447:399499 */ t77473 = p12195->p12192->a24401; /* x109070 stalin.sc:11446:399423 */ /* x109069 stalin.sc:11447:399450 */ /* x109068 stalin.sc:11447:399457 */ /* x109067 stalin.sc:11447:399493 */ t77477 = a24404; /* x109066 stalin.sc:11447:399458 */ a38172 = t77477; /* x285357 */ /* x285356 */ t77478 = a38172; /* x285355 */ if (!((t77478.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33089]"); structure_ref_error();} t77475 = t77478.value.structure_type27753->s1; /* x109065 stalin.sc:11447:399451 */ a35979 = t77475; /* x275273 */ /* x275272 */ t77476 = a35979; /* x275271 */ if (!((t77476.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30128]"); structure_ref_error();} t77474 = t77476.value.structure_type24753->s0; /* x109064 stalin.sc:11446:399424 */ t77472 = f7717(t77474); if (f7718(t77472, t77473)==FALSE_TYPE) goto l14124; /* x109077 */ /* x109076 stalin.sc:11448:399540 */ t77480 = a24404; /* x109075 stalin.sc:11448:399513 */ /* x109074 stalin.sc:11448:399537 */ t77481 = p12195->a24403; /* x109073 stalin.sc:11448:399514 */ t77479 = f7917(t77481); t77358 = ((t77479&3)==1)?f7905(((struct p7892 *)(t77479-1)), t77480):f7893(((struct p7892 *)t77479), t77480); goto l14125; l14124: /* x109078 */ t77358.tag = FALSE_TYPE; l14125: goto l14122; l14121: /* x109080 */ t77358.tag = FALSE_TYPE; l14122: break; case NATIVE_PROCEDURE_TYPE16058: p12178 = t77369.value.native_procedure_type16058; a24391 = t77370; /* x108941 stalin.sc:11399:397666 */ /* x108934 stalin.sc:11399:397671 */ /* x108933 stalin.sc:11399:397691 */ t77482 = a24391; /* x108932 stalin.sc:11399:397672 */ a37877 = t77482; /* x284177 */ /* x284176 */ t77483 = a37877; /* x284175 */ if (!((t77483.tag)==STRUCTURE_TYPE27858)) goto l14127; /* x108939 */ /* x108938 stalin.sc:11400:397731 */ t77485 = a24391; /* x108937 stalin.sc:11400:397704 */ /* x108936 stalin.sc:11400:397728 */ t77486 = p12178->a24390; /* x108935 stalin.sc:11400:397705 */ t77484 = f7917(t77486); t77358 = ((t77484&3)==1)?f7905(((struct p7892 *)(t77484-1)), t77485):f7893(((struct p7892 *)t77484), t77485); goto l14128; l14127: /* x108940 */ t77358.tag = FALSE_TYPE; l14128: break; case NATIVE_PROCEDURE_TYPE16072: p12126 = t77369.value.native_procedure_type16072; a24350 = t77370; /* x108531 stalin.sc:11520:402337 */ /* x108524 stalin.sc:11520:402342 */ /* x108523 stalin.sc:11520:402390 */ t77488 = a24350; /* x108522 stalin.sc:11520:402343 */ /* x108521 stalin.sc:11520:402376 */ t77489 = q170; /* x108520 stalin.sc:11520:402344 */ t77490.tag = EXTERNAL_SYMBOL_TYPE; t77490.value.external_symbol_type = t77489; t77487 = f7708(t77490); if (f7709(t77487, t77488)==FALSE_TYPE) goto l14130; /* x108529 */ /* x108528 stalin.sc:11521:402425 */ t77492 = a24350; /* x108527 stalin.sc:11521:402398 */ /* x108526 stalin.sc:11521:402422 */ t77493 = p12126->a24349; /* x108525 stalin.sc:11521:402399 */ t77491 = f7917(t77493); t77358 = ((t77491&3)==1)?f7905(((struct p7892 *)(t77491-1)), t77492):f7893(((struct p7892 *)t77491), t77492); goto l14131; l14130: /* x108530 */ t77358.tag = FALSE_TYPE; l14131: break; case NATIVE_PROCEDURE_TYPE16073: p12122 = t77369.value.native_procedure_type16073; a24344 = t77370; /* x108482 stalin.sc:11502:401649 */ /* x108475 stalin.sc:11502:401654 */ /* x108474 stalin.sc:11502:401702 */ t77495 = a24344; /* x108473 stalin.sc:11502:401655 */ /* x108472 stalin.sc:11502:401688 */ t77496 = q170; /* x108471 stalin.sc:11502:401656 */ t77497.tag = EXTERNAL_SYMBOL_TYPE; t77497.value.external_symbol_type = t77496; t77494 = f7708(t77497); if (f7709(t77494, t77495)==FALSE_TYPE) goto l14133; /* x108480 */ /* x108479 stalin.sc:11503:401743 */ t77499 = a24344; /* x108478 stalin.sc:11503:401716 */ /* x108477 stalin.sc:11503:401740 */ t77500 = p12122->a24343; /* x108476 stalin.sc:11503:401717 */ t77498 = f7917(t77500); t77358 = ((t77498&3)==1)?f7905(((struct p7892 *)(t77498-1)), t77499):f7893(((struct p7892 *)t77498), t77499); goto l14134; l14133: /* x108481 */ t77358.tag = FALSE_TYPE; l14134: break; case NATIVE_PROCEDURE_TYPE16305: a25620 = t77370; /* x126266 stalin.sc:15388:537467 */ /* x126266 stalin.sc:15388:537467 */ /* x126261 stalin.sc:15388:537472 */ /* x126260 stalin.sc:15388:537489 */ t77501 = a25620; /* x126259 stalin.sc:15388:537473 */ a37687 = t77501; /* x283417 */ /* x283416 */ t77502 = a37687; /* x283415 */ if (!((t77502.tag)==STRUCTURE_TYPE27769)) goto l14136; /* x126264 */ /* x126263 stalin.sc:15389:537525 */ t77503 = a25620; /* x126262 stalin.sc:15389:537499 */ if (f7429(t77503)==FALSE_TYPE) goto l14136; t77358.tag = TRUE_TYPE; goto l14137; l14136: t77358.tag = FALSE_TYPE; l14137: break; case NATIVE_PROCEDURE_TYPE16306: a25621 = t77370; /* x126282 stalin.sc:15394:537692 */ /* x126282 stalin.sc:15394:537692 */ /* x126275 stalin.sc:15394:537697 */ /* x126274 stalin.sc:15394:537721 */ t77504 = a25621; /* x126273 stalin.sc:15394:537698 */ a37430 = t77504; /* x282389 */ /* x282388 */ t77505 = a37430; /* x282387 */ if (!((t77505.tag)==STRUCTURE_TYPE27669)) goto l14140; /* x126280 */ /* x126279 stalin.sc:15395:537735 */ /* x126278 stalin.sc:15395:537760 */ t77506 = a25621; /* x126277 stalin.sc:15395:537736 */ if (!(f7754(t77506)==FALSE_TYPE)) goto l14140; t77358.tag = TRUE_TYPE; goto l14141; l14140: t77358.tag = FALSE_TYPE; l14141: break; case NATIVE_PROCEDURE_TYPE16307: a25622 = t77370; /* x126298 stalin.sc:15400:537928 */ /* x126298 stalin.sc:15400:537928 */ /* x126291 stalin.sc:15400:537933 */ /* x126290 stalin.sc:15400:537957 */ t77507 = a25622; /* x126289 stalin.sc:15400:537934 */ a37332 = t77507; /* x281997 */ /* x281996 */ t77508 = a37332; /* x281995 */ if (!((t77508.tag)==STRUCTURE_TYPE27908)) goto l14144; /* x126296 */ /* x126295 stalin.sc:15401:537971 */ /* x126294 stalin.sc:15401:537996 */ t77509 = a25622; /* x126293 stalin.sc:15401:537972 */ if (!(f7754(t77509)==FALSE_TYPE)) goto l14144; t77358.tag = TRUE_TYPE; goto l14145; l14144: t77358.tag = FALSE_TYPE; l14145: break; case NATIVE_PROCEDURE_TYPE16311: a25617 = t77370; /* x126216 stalin.sc:15378:536975 */ /* x126216 stalin.sc:15378:536975 */ /* x126209 stalin.sc:15378:536980 */ /* x126208 stalin.sc:15378:537004 */ t77510 = a25617; /* x126207 stalin.sc:15378:536981 */ a38079 = t77510; /* x284985 */ /* x284984 */ t77511 = a38079; /* x284983 */ if (!((t77511.tag)==STRUCTURE_TYPE27756)) goto l14148; /* x126214 */ /* x126213 stalin.sc:15378:537012 */ /* x126212 stalin.sc:15378:537025 */ t77512 = a25617; /* x126211 stalin.sc:15378:537013 */ if (!(f8793(t77512)==FALSE_TYPE)) goto l14148; t77358.tag = TRUE_TYPE; goto l14149; l14148: t77358.tag = FALSE_TYPE; l14149: break; case NATIVE_PROCEDURE_TYPE16318: a25559 = t77370; /* x125307 stalin.sc:15145:528340 */ /* x125307 stalin.sc:15145:528340 */ /* x125302 stalin.sc:15145:528345 */ /* x125301 stalin.sc:15145:528362 */ t77513 = a25559; /* x125300 stalin.sc:15145:528346 */ a37689 = t77513; /* x283425 */ /* x283424 */ t77514 = a37689; /* x283423 */ if (!((t77514.tag)==STRUCTURE_TYPE27769)) goto l14152; /* x125305 */ /* x125304 stalin.sc:15146:528400 */ t77515 = a25559; /* x125303 stalin.sc:15146:528374 */ if (f7429(t77515)==FALSE_TYPE) goto l14152; t77358.tag = TRUE_TYPE; goto l14153; l14152: t77358.tag = FALSE_TYPE; l14153: break; case NATIVE_PROCEDURE_TYPE16319: a25560 = t77370; /* x125321 stalin.sc:15149:528449 */ /* x125321 stalin.sc:15149:528449 */ /* x125316 stalin.sc:15149:528454 */ /* x125315 stalin.sc:15149:528475 */ t77516 = a25560; /* x125314 stalin.sc:15149:528455 */ a37548 = t77516; /* x282861 */ /* x282860 */ t77517 = a37548; /* x282859 */ if (!((t77517.tag)==STRUCTURE_TYPE27761)) goto l14156; /* x125319 */ /* x125318 stalin.sc:15150:528511 */ t77518 = a25560; /* x125317 stalin.sc:15150:528487 */ if (f7754(t77518)==FALSE_TYPE) goto l14156; t77358.tag = TRUE_TYPE; goto l14157; l14156: t77358.tag = FALSE_TYPE; l14157: break; case NATIVE_PROCEDURE_TYPE16329: a25556 = t77370; /* x125257 stalin.sc:15138:528050 */ /* x125257 stalin.sc:15138:528050 */ /* x125250 stalin.sc:15138:528055 */ /* x125249 stalin.sc:15138:528079 */ t77519 = a25556; /* x125248 stalin.sc:15138:528056 */ a38080 = t77519; /* x284989 */ /* x284988 */ t77520 = a38080; /* x284987 */ if (!((t77520.tag)==STRUCTURE_TYPE27756)) goto l14160; /* x125255 */ /* x125254 stalin.sc:15138:528087 */ /* x125253 stalin.sc:15138:528100 */ t77521 = a25556; /* x125252 stalin.sc:15138:528088 */ if (!(f8793(t77521)==FALSE_TYPE)) goto l14160; t77358.tag = TRUE_TYPE; goto l14161; l14160: t77358.tag = FALSE_TYPE; l14161: break; case NATIVE_PROCEDURE_TYPE16335: a25648 = t77370; /* x126679 stalin.sc:15440:539331 */ /* x126679 stalin.sc:15440:539331 */ /* x126672 stalin.sc:15440:539336 */ /* x126671 stalin.sc:15440:539360 */ t77522 = a25648; /* x126670 stalin.sc:15440:539337 */ a37333 = t77522; /* x282001 */ /* x282000 */ t77523 = a37333; /* x281999 */ if (!((t77523.tag)==STRUCTURE_TYPE27908)) goto l14164; /* x126677 */ /* x126676 stalin.sc:15441:539372 */ /* x126675 stalin.sc:15441:539397 */ t77524 = a25648; /* x126674 stalin.sc:15441:539373 */ if (!(f7754(t77524)==FALSE_TYPE)) goto l14164; t77358.tag = TRUE_TYPE; goto l14165; l14164: t77358.tag = FALSE_TYPE; l14165: break; case NATIVE_PROCEDURE_TYPE16337: a25647 = t77370; /* x126657 stalin.sc:15435:539164 */ /* x126657 stalin.sc:15435:539164 */ /* x126650 stalin.sc:15435:539169 */ /* x126649 stalin.sc:15435:539193 */ t77525 = a25647; /* x126648 stalin.sc:15435:539170 */ a37428 = t77525; /* x282381 */ /* x282380 */ t77526 = a37428; /* x282379 */ if (!((t77526.tag)==STRUCTURE_TYPE27669)) goto l14168; /* x126655 */ /* x126654 stalin.sc:15436:539205 */ /* x126653 stalin.sc:15436:539230 */ t77527 = a25647; /* x126652 stalin.sc:15436:539206 */ if (!(f7754(t77527)==FALSE_TYPE)) goto l14168; t77358.tag = TRUE_TYPE; goto l14169; l14168: t77358.tag = FALSE_TYPE; l14169: break; case NATIVE_PROCEDURE_TYPE16339: a25646 = t77370; /* x126635 stalin.sc:15431:539023 */ /* x126635 stalin.sc:15431:539023 */ /* x126630 stalin.sc:15431:539028 */ /* x126629 stalin.sc:15431:539045 */ t77528 = a25646; /* x126628 stalin.sc:15431:539029 */ a37691 = t77528; /* x283433 */ /* x283432 */ t77529 = a37691; /* x283431 */ if (!((t77529.tag)==STRUCTURE_TYPE27769)) goto l14172; /* x126633 */ /* x126632 stalin.sc:15431:539075 */ t77530 = a25646; /* x126631 stalin.sc:15431:539049 */ if (f7429(t77530)==FALSE_TYPE) goto l14172; t77358.tag = TRUE_TYPE; goto l14173; l14172: t77358.tag = FALSE_TYPE; l14173: break; case NATIVE_PROCEDURE_TYPE16343: a25645 = t77370; /* x126613 stalin.sc:15427:538878 */ /* x126613 stalin.sc:15427:538878 */ /* x126606 stalin.sc:15427:538883 */ /* x126605 stalin.sc:15427:538907 */ t77531 = a25645; /* x126604 stalin.sc:15427:538884 */ a38082 = t77531; /* x284997 */ /* x284996 */ t77532 = a38082; /* x284995 */ if (!((t77532.tag)==STRUCTURE_TYPE27756)) goto l14176; /* x126611 */ /* x126610 stalin.sc:15427:538915 */ /* x126609 stalin.sc:15427:538928 */ t77533 = a25645; /* x126608 stalin.sc:15427:538916 */ if (!(f8793(t77533)==FALSE_TYPE)) goto l14176; t77358.tag = TRUE_TYPE; goto l14177; l14176: t77358.tag = FALSE_TYPE; l14177: break; case NATIVE_PROCEDURE_TYPE16556: a25636 = t77370; /* x126430 stalin.sc:15451:539716 */ /* x126430 stalin.sc:15451:539716 */ /* x126423 stalin.sc:15451:539721 */ /* x126422 stalin.sc:15451:539745 */ t77534 = a25636; /* x126421 stalin.sc:15451:539722 */ a38083 = t77534; /* x285001 */ /* x285000 */ t77535 = a38083; /* x284999 */ if (!((t77535.tag)==STRUCTURE_TYPE27756)) goto l14180; /* x126428 */ /* x126427 stalin.sc:15451:539753 */ /* x126426 stalin.sc:15451:539766 */ t77536 = a25636; /* x126425 stalin.sc:15451:539754 */ if (!(f8793(t77536)==FALSE_TYPE)) goto l14180; t77358.tag = TRUE_TYPE; goto l14181; l14180: t77358.tag = FALSE_TYPE; l14181: break; case NATIVE_PROCEDURE_TYPE16557: a25637 = t77370; /* x126446 stalin.sc:15454:539820 */ /* x126446 stalin.sc:15454:539820 */ /* x126441 stalin.sc:15454:539825 */ /* x126440 stalin.sc:15454:539842 */ t77537 = a25637; /* x126439 stalin.sc:15454:539826 */ a37690 = t77537; /* x283429 */ /* x283428 */ t77538 = a37690; /* x283427 */ if (!((t77538.tag)==STRUCTURE_TYPE27769)) goto l14184; /* x126444 */ /* x126443 stalin.sc:15455:539882 */ t77539 = a25637; /* x126442 stalin.sc:15455:539856 */ if (f7429(t77539)==FALSE_TYPE) goto l14184; t77358.tag = TRUE_TYPE; goto l14185; l14184: t77358.tag = FALSE_TYPE; l14185: break; case NATIVE_PROCEDURE_TYPE16558: a25638 = t77370; /* x126462 stalin.sc:15458:539930 */ /* x126462 stalin.sc:15458:539930 */ /* x126455 stalin.sc:15458:539935 */ /* x126454 stalin.sc:15458:539959 */ t77540 = a25638; /* x126453 stalin.sc:15458:539936 */ a37431 = t77540; /* x282393 */ /* x282392 */ t77541 = a37431; /* x282391 */ if (!((t77541.tag)==STRUCTURE_TYPE27669)) goto l14188; /* x126460 */ /* x126459 stalin.sc:15459:539977 */ /* x126458 stalin.sc:15459:540002 */ t77542 = a25638; /* x126457 stalin.sc:15459:539978 */ if (!(f7754(t77542)==FALSE_TYPE)) goto l14188; t77358.tag = TRUE_TYPE; goto l14189; l14188: t77358.tag = FALSE_TYPE; l14189: break; case NATIVE_PROCEDURE_TYPE16559: a25639 = t77370; /* x126478 stalin.sc:15462:540051 */ /* x126478 stalin.sc:15462:540051 */ /* x126471 stalin.sc:15462:540056 */ /* x126470 stalin.sc:15462:540080 */ t77543 = a25639; /* x126469 stalin.sc:15462:540057 */ a37334 = t77543; /* x282005 */ /* x282004 */ t77544 = a37334; /* x282003 */ if (!((t77544.tag)==STRUCTURE_TYPE27908)) goto l14192; /* x126476 */ /* x126475 stalin.sc:15463:540098 */ /* x126474 stalin.sc:15463:540123 */ t77545 = a25639; /* x126473 stalin.sc:15463:540099 */ if (!(f7754(t77545)==FALSE_TYPE)) goto l14192; t77358.tag = TRUE_TYPE; goto l14193; l14192: t77358.tag = FALSE_TYPE; l14193: break; case NATIVE_PROCEDURE_TYPE17623: a20961 = t77370; /* x59191 stalin.sc:913:29269 */ /* x59191 stalin.sc:913:29269 */ /* x59190 stalin.sc:913:29273 */ /* x59189 stalin.sc:913:29314 */ t77547 = a20961; /* x59188 stalin.sc:913:29274 */ /* x59187 stalin.sc:913:29307 */ t77548 = q45; /* x59186 stalin.sc:913:29275 */ t77549.tag = EXTERNAL_SYMBOL_TYPE; t77549.value.external_symbol_type = t77548; t77546 = f7708(t77549); if (!(f7709(t77546, t77547)==FALSE_TYPE)) goto l14195; /* x59183 */ /* x59182 stalin.sc:914:29369 */ t77551 = a20961; /* x59181 stalin.sc:914:29328 */ /* x59180 stalin.sc:914:29361 */ t77552 = q44; /* x59179 stalin.sc:914:29329 */ t77553.tag = EXTERNAL_SYMBOL_TYPE; t77553.value.external_symbol_type = t77552; t77550 = f7708(t77553); if (f7709(t77550, t77551)==FALSE_TYPE) goto l14196; l14195: t77358.tag = TRUE_TYPE; goto l14197; l14196: t77358.tag = FALSE_TYPE; l14197: break; case NATIVE_PROCEDURE_TYPE17625: p10499 = t77369.value.native_procedure_type17625; a23351 = t77370; /* x95163 stalin.sc:8456:288423 */ /* x94622 stalin.sc:8457:288431 */ /* x94621 stalin.sc:8457:288469 */ t77555 = a23351; /* x94620 stalin.sc:8457:288432 */ /* x94617 stalin.sc:8457:288461 */ t77556 = p10499->a23347; /* x94618 stalin.sc:8457:288464 */ t77557 = p10499->a23348; /* x94619 stalin.sc:8457:288466 */ t77558 = p10499->a23349; /* x94616 stalin.sc:8457:288433 */ t77559 = t77558; t77554 = f7892(t77556, t77557, t77559); if ((t77554&3)==1) {if ((f7905(((struct p7892 *)(t77554-1)), t77555).tag)==FALSE_TYPE) goto l14200;} else if ((f7893(((struct p7892 *)t77554), t77555).tag)==FALSE_TYPE) goto l14200; /* x95161 */ /* x95160 stalin.sc:8460:288541 */ /* x94673 stalin.sc:8461:288551 */ /* x94672 stalin.sc:8461:288578 */ t77579 = a23351; /* x94671 stalin.sc:8461:288552 */ a38211 = t77579; /* x285513 */ /* x285512 */ t77580 = a38211; /* x285511 */ if (!((t77580.tag)==STRUCTURE_TYPE27753)) goto l14214; /* x95158 */ /* x94678 stalin.sc:8463:288599 */ /* x94677 stalin.sc:8463:288641 */ t77582 = a23351; /* x94676 stalin.sc:8463:288600 */ /* x94675 stalin.sc:8463:288633 */ t77583 = q79; /* x94674 stalin.sc:8463:288601 */ t77584.tag = EXTERNAL_SYMBOL_TYPE; t77584.value.external_symbol_type = t77583; t77581 = f7708(t77584); if (f7709(t77581, t77582)==FALSE_TYPE) goto l14217; /* x94894 */ /* x94893 */ t77684 = p10499; p10502 = t77684; /* x94892 stalin.sc:8464:288651 */ /* x94681 stalin.sc:8465:288661 */ /* x94680 stalin.sc:8465:288673 */ t77685 = p10502->a23349; /* x94679 stalin.sc:8465:288662 */ t77686.tag = STRUCTURE_TYPE27745; t77686.value.structure_type27745 = t77685; if (f8944(t77686)==FALSE_TYPE) goto l14253; /* x94816 stalin.sc:8466:288681 */ /* x94684 stalin.sc:8467:288694 */ /* x94683 stalin.sc:8467:288701 */ t77725 = p10502->a23347; /* x269764 stalin.sc:8467:288695 */ if (!((t77725.tag)==NULL_TYPE)) goto l14265; /* x94720 */ /* x94719 */ t77781 = p10502; p10503 = t77781; /* x94718 stalin.sc:8468:288712 */ /* x94716 stalin.sc:8469:288729 */ t77782 = p10503; /* x94717 stalin.sc:8476:288982 */ t77783 = p10503->a23348; /* x94685 stalin.sc:8468:288713 */ t77784.tag = NATIVE_PROCEDURE_TYPE20020; t77784.value.native_procedure_type20020 = t77782; t77561 = f8137(t77784, t77783); goto l14266; l14265: /* x94815 */ /* x94725 stalin.sc:8477:288993 */ /* x94724 stalin.sc:8477:289000 */ /* x94723 stalin.sc:8477:289006 */ t77727 = *((struct w16638 *)(&(p10502->a23347))); /* x94722 stalin.sc:8477:289001 */ a35477 = t77727; /* x273265 */ /* x273264 */ t77728 = a35477; /* x273263 */ if (!((t77728.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29626]"); structure_ref_error();} t77726 = t77728.value.structure_type24753->s1; /* x269763 stalin.sc:8477:288994 */ if (!((t77726.tag)==NULL_TYPE)) goto l14268; /* x94753 */ /* x94752 */ t77777 = p10502; p10505 = t77777; /* x94751 stalin.sc:8478:289018 */ /* x94749 stalin.sc:8479:289035 */ t77778 = p10505; /* x94750 stalin.sc:8486:289234 */ t77779 = p10505->a23348; /* x94726 stalin.sc:8478:289019 */ t77780.tag = NATIVE_PROCEDURE_TYPE20018; t77780.value.native_procedure_type20018 = t77778; t77561 = f8137(t77780, t77779); goto l14269; l14268: /* x94814 */ /* x94813 */ t77729 = p10502; p10507 = t77729; /* x94812 stalin.sc:8488:289257 */ /* x94811 stalin.sc:8488:289261 */ /* x94783 stalin.sc:8488:289266 */ /* x94781 stalin.sc:8488:289275 */ /* x94782 stalin.sc:8488:289286 */ t77752 = p10507->a23348; /* x94780 stalin.sc:8488:289267 */ t77753.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8137(t77753, t77752).tag)==FALSE_TYPE) goto l14274; /* x94809 */ /* x94805 stalin.sc:8490:289310 */ /* x94797 stalin.sc:8491:289326 */ /* x94789 stalin.sc:8491:289332 */ /* x94788 stalin.sc:8491:289339 */ t77763 = *((struct w16638 *)(&(p10507->a23347))); /* x94787 stalin.sc:8491:289333 */ a35920 = t77763; /* x275037 */ /* x275036 */ t77764 = a35920; /* x275035 */ if (!((t77764.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30069]"); structure_ref_error();} t77761 = t77764.value.structure_type24753->s0; /* x94796 stalin.sc:8491:289343 */ /* x94795 stalin.sc:8491:289353 */ /* x94794 stalin.sc:8491:289359 */ /* x94793 stalin.sc:8491:289365 */ t77768 = *((struct w16638 *)(&(p10507->a23347))); /* x94792 stalin.sc:8491:289360 */ a35446 = t77768; /* x273141 */ /* x273140 */ t77769 = a35446; /* x273139 */ if (!((t77769.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29595]"); structure_ref_error();} t77766 = t77769.value.structure_type24753->s1; /* x94791 stalin.sc:8491:289354 */ a35445 = t77766; /* x273137 */ /* x273136 */ t77767 = a35445; /* x273135 */ if (!((t77767.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29594]"); structure_ref_error();} t77765 = t77767.value.structure_type24753->s1; /* x94790 stalin.sc:8491:289344 */ t77762 = f1005(t77765); /* x269761 stalin.sc:8491:289327 */ t77757 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t77757==NULL) {backtrace("stalin.sc", 8491, 289326); out_of_memory_error();} t77757->s0 = t77761; t77757->s1 = *((struct w49 *)(&t77762)); /* x94800 stalin.sc:8492:289376 */ /* x94799 stalin.sc:8492:289382 */ t77770 = *((struct w16638 *)(&(p10507->a23347))); /* x94798 stalin.sc:8492:289377 */ t77771 = *((struct w49 *)(&t77770)); t77758 = f960(t77771); /* x94804 stalin.sc:8493:289390 */ /* x94802 stalin.sc:8493:289410 */ t77772 = p10507->a23349; /* x94803 stalin.sc:8493:289412 */ t77773 = q64; /* x94801 stalin.sc:8493:289391 */ t77774 = t77772; t77759 = f8743(t77774, t77773); /* x94785 stalin.sc:8490:289311 */ t77760.tag = STRUCTURE_TYPE24753; t77760.value.structure_type24753 = t77757; t77754 = f10497(t77760, t77758, t77759); /* x94808 stalin.sc:8494:289433 */ /* x94807 stalin.sc:8494:289441 */ t77775 = *((struct w16638 *)(&(p10507->a23347))); /* x94806 stalin.sc:8494:289434 */ t77776 = *((struct w49 *)(&t77775)); t77755 = f26181(t77776); /* x94784 stalin.sc:8489:289299 */ t77756.tag = NATIVE_PROCEDURE_TYPE17625; t77756.value.native_procedure_type17625 = t77754; t77731 = f8137(t77756, t77755); goto l14275; l14274: /* x94810 */ t77731.tag = FALSE_TYPE; l14275: /* x94779 */ t77730 = p10507; p10508 = t77730; a23356 = t77731; /* x94778 */ /* x94754 */ if ((a23356.tag)==FALSE_TYPE) goto l14271; /* x94755 */ t77561 = a23356; goto l14272; l14271: /* x94777 */ /* x94773 stalin.sc:8495:289460 */ /* x94767 stalin.sc:8495:289472 */ /* x94761 stalin.sc:8495:289478 */ /* x94760 stalin.sc:8495:289485 */ t77741 = *((struct w16638 *)(&(p10508->a23347))); /* x94759 stalin.sc:8495:289479 */ a35981 = t77741; /* x275281 */ /* x275280 */ t77742 = a35981; /* x275279 */ if (!((t77742.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30130]"); structure_ref_error();} t77739 = t77742.value.structure_type24753->s0; /* x94766 stalin.sc:8495:289489 */ /* x94765 stalin.sc:8495:289495 */ /* x94764 stalin.sc:8495:289501 */ t77745 = *((struct w16638 *)(&(p10508->a23347))); /* x94763 stalin.sc:8495:289496 */ a35476 = t77745; /* x273261 */ /* x273260 */ t77746 = a35476; /* x273259 */ if (!((t77746.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29625]"); structure_ref_error();} t77743 = t77746.value.structure_type24753->s1; /* x94762 stalin.sc:8495:289490 */ a35475 = t77743; /* x273257 */ /* x273256 */ t77744 = a35475; /* x273255 */ if (!((t77744.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29624]"); structure_ref_error();} t77740 = t77744.value.structure_type24753->s1; /* x269762 stalin.sc:8495:289473 */ t77735 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t77735==NULL) {backtrace("stalin.sc", 8495, 289472); out_of_memory_error();} t77735->s0 = t77739; t77735->s1 = t77740; /* x94768 stalin.sc:8496:289518 */ t77736 = p10508->a23348; /* x94772 stalin.sc:8497:289531 */ /* x94770 stalin.sc:8497:289551 */ t77747 = p10508->a23349; /* x94771 stalin.sc:8497:289553 */ t77748 = q64; /* x94769 stalin.sc:8497:289532 */ t77749 = t77747; t77737 = f8743(t77749, t77748); /* x94757 stalin.sc:8495:289461 */ t77738.tag = STRUCTURE_TYPE24753; t77738.value.structure_type24753 = t77735; t77732 = f10497(t77738, t77736, t77737); /* x94776 stalin.sc:8498:289577 */ /* x94775 stalin.sc:8498:289585 */ t77750 = *((struct w16638 *)(&(p10508->a23347))); /* x94774 stalin.sc:8498:289578 */ t77751 = *((struct w49 *)(&t77750)); t77733 = f26181(t77751); /* x94756 stalin.sc:8495:289452 */ t77734.tag = NATIVE_PROCEDURE_TYPE17625; t77734.value.native_procedure_type17625 = t77732; t77561 = f8137(t77734, t77733); l14272: l14269: l14266: goto l14254; l14253: /* x94891 stalin.sc:8499:289598 */ /* x94819 stalin.sc:8499:289602 */ /* x94818 stalin.sc:8499:289609 */ t77687 = p10502->a23347; /* x269760 stalin.sc:8499:289603 */ if (!((t77687.tag)==NULL_TYPE)) goto l14256; /* x94845 stalin.sc:8500:289615 */ /* x94843 stalin.sc:8501:289627 */ t77722 = p10502; /* x94844 stalin.sc:8508:289824 */ t77723 = p10502->a23348; /* x94820 stalin.sc:8500:289616 */ t77724.tag = NATIVE_PROCEDURE_TYPE20014; t77724.value.native_procedure_type20014 = t77722; t77561 = f8137(t77724, t77723); goto l14257; l14256: /* x94890 stalin.sc:8509:289829 */ /* x94889 stalin.sc:8509:289833 */ /* x94868 stalin.sc:8509:289838 */ /* x94866 stalin.sc:8509:289847 */ /* x94867 stalin.sc:8509:289858 */ t77703 = p10502->a23348; /* x94865 stalin.sc:8509:289839 */ t77704.tag = NATIVE_PROCEDURE_TYPE7435; if ((f8137(t77704, t77703).tag)==FALSE_TYPE) goto l14262; /* x94887 */ /* x94883 stalin.sc:8511:289879 */ /* x94875 stalin.sc:8511:289891 */ /* x94874 stalin.sc:8511:289901 */ /* x94873 stalin.sc:8511:289907 */ t77713 = *((struct w16638 *)(&(p10502->a23347))); /* x94872 stalin.sc:8511:289902 */ a35447 = t77713; /* x273145 */ /* x273144 */ t77714 = a35447; /* x273143 */ if (!((t77714.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29596]"); structure_ref_error();} t77712 = t77714.value.structure_type24753->s1; /* x94871 stalin.sc:8511:289892 */ t77708 = f1005(t77712); /* x94878 stalin.sc:8512:289922 */ /* x94877 stalin.sc:8512:289928 */ t77715 = *((struct w16638 *)(&(p10502->a23347))); /* x94876 stalin.sc:8512:289923 */ t77716 = *((struct w49 *)(&t77715)); t77709 = f960(t77716); /* x94882 stalin.sc:8513:289942 */ /* x94880 stalin.sc:8513:289962 */ t77717 = p10502->a23349; /* x94881 stalin.sc:8513:289964 */ t77718 = q64; /* x94879 stalin.sc:8513:289943 */ t77719 = t77717; t77710 = f8743(t77719, t77718); /* x94870 stalin.sc:8511:289880 */ t77711 = *((struct w49 *)(&t77708)); t77705 = f10497(t77711, t77709, t77710); /* x94886 stalin.sc:8514:289987 */ /* x94885 stalin.sc:8514:289994 */ t77720 = *((struct w16638 *)(&(p10502->a23347))); /* x94884 stalin.sc:8514:289988 */ a35921 = t77720; /* x275041 */ /* x275040 */ t77721 = a35921; /* x275039 */ if (!((t77721.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30070]"); structure_ref_error();} t77706 = t77721.value.structure_type24753->s0; /* x94869 stalin.sc:8510:289866 */ t77707.tag = NATIVE_PROCEDURE_TYPE17625; t77707.value.native_procedure_type17625 = t77705; t77689 = f8137(t77707, t77706); goto l14263; l14262: /* x94888 */ t77689.tag = FALSE_TYPE; l14263: /* x94864 */ t77688 = p10502; p10510 = t77688; a23358 = t77689; /* x94863 */ /* x94846 */ if ((a23358.tag)==FALSE_TYPE) goto l14259; /* x94847 */ t77561 = a23358; goto l14260; l14259: /* x94862 */ /* x94858 stalin.sc:8516:290022 */ /* x94852 stalin.sc:8517:290042 */ /* x94851 stalin.sc:8517:290048 */ t77696 = *((struct w16638 *)(&(p10510->a23347))); /* x94850 stalin.sc:8517:290043 */ a35478 = t77696; /* x273269 */ /* x273268 */ t77697 = a35478; /* x273267 */ if (!((t77697.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29627]"); structure_ref_error();} t77693 = t77697.value.structure_type24753->s1; /* x94853 stalin.sc:8517:290052 */ t77694 = p10510->a23348; /* x94857 stalin.sc:8517:290054 */ /* x94855 stalin.sc:8517:290074 */ t77698 = p10510->a23349; /* x94856 stalin.sc:8517:290076 */ t77699 = q64; /* x94854 stalin.sc:8517:290055 */ t77700 = t77698; t77695 = f8743(t77700, t77699); /* x94849 stalin.sc:8516:290023 */ t77690 = f10497(t77693, t77694, t77695); /* x94861 stalin.sc:8518:290101 */ /* x94860 stalin.sc:8518:290108 */ t77701 = *((struct w16638 *)(&(p10510->a23347))); /* x94859 stalin.sc:8518:290102 */ a35982 = t77701; /* x275285 */ /* x275284 */ t77702 = a35982; /* x275283 */ if (!((t77702.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30131]"); structure_ref_error();} t77691 = t77702.value.structure_type24753->s0; /* x94848 stalin.sc:8515:290007 */ t77692.tag = NATIVE_PROCEDURE_TYPE17625; t77692.value.native_procedure_type17625 = t77690; t77561 = f8137(t77692, t77691); l14260: l14257: l14254: goto l14218; l14217: /* x95157 */ /* x94899 stalin.sc:8519:290125 */ /* x94898 stalin.sc:8519:290192 */ t77586 = a23351; /* x94897 stalin.sc:8519:290126 */ /* x94896 stalin.sc:8519:290159 */ t77587 = q66; /* x94895 stalin.sc:8519:290127 */ t77588.tag = EXTERNAL_SYMBOL_TYPE; t77588.value.external_symbol_type = t77587; t77585 = f7708(t77588); if (f7709(t77585, t77586)==FALSE_TYPE) goto l14220; /* x95098 */ /* x95097 */ t77615 = p10499; p10511 = t77615; /* x95096 stalin.sc:8520:290202 */ /* x95095 stalin.sc:8521:290212 */ /* x94922 stalin.sc:8521:290216 */ /* x94921 stalin.sc:8521:290228 */ t77623 = p10511->a23349; /* x94920 stalin.sc:8521:290217 */ t77624.tag = STRUCTURE_TYPE27745; t77624.value.structure_type27745 = t77623; if (f8944(t77624)==FALSE_TYPE) goto l14241; /* x95035 stalin.sc:8522:290233 */ /* x94925 stalin.sc:8523:290243 */ /* x94924 stalin.sc:8523:290250 */ t77647 = p10511->a23347; /* x269759 stalin.sc:8523:290244 */ if (!((t77647.tag)==NULL_TYPE)) goto l14247; /* x94964 */ /* x94963 */ t77680 = p10511; p10514 = t77680; /* x94962 stalin.sc:8524:290258 */ /* x94960 stalin.sc:8525:290272 */ t77681 = p10514; /* x94961 stalin.sc:8533:290536 */ t77682 = p10514->a23348; /* x94926 stalin.sc:8524:290259 */ t77683.tag = NATIVE_PROCEDURE_TYPE20009; t77683.value.native_procedure_type20009 = t77681; t77617 = f8137(t77683, t77682); goto l14248; l14247: /* x95034 */ /* x94969 stalin.sc:8534:290544 */ /* x94968 stalin.sc:8534:290551 */ /* x94967 stalin.sc:8534:290557 */ t77649 = *((struct w16638 *)(&(p10511->a23347))); /* x94966 stalin.sc:8534:290552 */ a35481 = t77649; /* x273281 */ /* x273280 */ t77650 = a35481; /* x273279 */ if (!((t77650.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29630]"); structure_ref_error();} t77648 = t77650.value.structure_type24753->s1; /* x269758 stalin.sc:8534:290545 */ if (!((t77648.tag)==NULL_TYPE)) goto l14250; /* x95004 */ /* x95003 */ t77676 = p10511; p10516 = t77676; /* x95002 stalin.sc:8535:290566 */ /* x95000 stalin.sc:8536:290580 */ t77677 = p10516; /* x95001 stalin.sc:8543:290800 */ t77678 = p10516->a23348; /* x94970 stalin.sc:8535:290567 */ t77679.tag = NATIVE_PROCEDURE_TYPE20007; t77679.value.native_procedure_type20007 = t77677; t77617 = f8137(t77679, t77678); goto l14251; l14250: /* x95033 */ /* x95032 */ t77651 = p10511; p10518 = t77651; /* x95031 stalin.sc:8545:290817 */ /* x95027 stalin.sc:8546:290831 */ /* x95021 stalin.sc:8547:290849 */ /* x95010 stalin.sc:8547:290855 */ /* x95009 stalin.sc:8547:290862 */ t77661 = *((struct w16638 *)(&(p10518->a23347))); /* x95008 stalin.sc:8547:290856 */ a35985 = t77661; /* x275297 */ /* x275296 */ t77662 = a35985; /* x275295 */ if (!((t77662.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30134]"); structure_ref_error();} t77659 = t77662.value.structure_type24753->s0; /* x95020 stalin.sc:8547:290866 */ /* x95014 stalin.sc:8547:290872 */ /* x95013 stalin.sc:8547:290879 */ t77665 = *((struct w16638 *)(&(p10518->a23347))); /* x95012 stalin.sc:8547:290873 */ a35986 = t77665; /* x275301 */ /* x275300 */ t77666 = a35986; /* x275299 */ if (!((t77666.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30135]"); structure_ref_error();} t77663 = t77666.value.structure_type24753->s0; /* x95019 stalin.sc:8547:290883 */ /* x95018 stalin.sc:8547:290889 */ /* x95017 stalin.sc:8547:290895 */ t77669 = *((struct w16638 *)(&(p10518->a23347))); /* x95016 stalin.sc:8547:290890 */ a35480 = t77669; /* x273277 */ /* x273276 */ t77670 = a35480; /* x273275 */ if (!((t77670.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29629]"); structure_ref_error();} t77667 = t77670.value.structure_type24753->s1; /* x95015 stalin.sc:8547:290884 */ a35479 = t77667; /* x273273 */ /* x273272 */ t77668 = a35479; /* x273271 */ if (!((t77668.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29628]"); structure_ref_error();} t77664 = t77668.value.structure_type24753->s1; /* x269756 stalin.sc:8547:290867 */ t77660 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t77660==NULL) {backtrace("stalin.sc", 8547, 290866); out_of_memory_error();} t77660->s0 = t77663; t77660->s1 = t77664; /* x269757 stalin.sc:8547:290850 */ t77655 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t77655==NULL) {backtrace("stalin.sc", 8547, 290849); out_of_memory_error();} t77655->s0 = t77659; t77655->s1.tag = STRUCTURE_TYPE24753; t77655->s1.value.structure_type24753 = t77660; /* x95022 stalin.sc:8548:290908 */ t77656 = p10518->a23348; /* x95026 stalin.sc:8549:290916 */ /* x95024 stalin.sc:8549:290936 */ t77671 = p10518->a23349; /* x95025 stalin.sc:8549:290938 */ t77672 = q64; /* x95023 stalin.sc:8549:290917 */ t77673 = t77671; t77657 = f8743(t77673, t77672); /* x95006 stalin.sc:8546:290832 */ t77658.tag = STRUCTURE_TYPE24753; t77658.value.structure_type24753 = t77655; t77652 = f10497(t77658, t77656, t77657); /* x95030 stalin.sc:8550:290961 */ /* x95029 stalin.sc:8550:290969 */ t77674 = *((struct w16638 *)(&(p10518->a23347))); /* x95028 stalin.sc:8550:290962 */ t77675 = *((struct w49 *)(&t77674)); t77653 = f26181(t77675); /* x95005 stalin.sc:8545:290818 */ t77654.tag = NATIVE_PROCEDURE_TYPE17625; t77654.value.native_procedure_type17625 = t77652; t77617 = f8137(t77654, t77653); l14251: l14248: goto l14242; l14241: /* x95094 stalin.sc:8551:290978 */ /* x95038 stalin.sc:8551:290982 */ /* x95037 stalin.sc:8551:290989 */ t77625 = p10511->a23347; /* x269755 stalin.sc:8551:290983 */ if (!((t77625.tag)==NULL_TYPE)) goto l14244; /* x95072 stalin.sc:8552:290999 */ /* x95070 stalin.sc:8553:291015 */ t77644 = p10511; /* x95071 stalin.sc:8563:291293 */ t77645 = p10511->a23348; /* x95039 stalin.sc:8552:291000 */ t77646.tag = NATIVE_PROCEDURE_TYPE20004; t77646.value.native_procedure_type20004 = t77644; t77617 = f8137(t77646, t77645); goto l14245; l14244: /* x95093 stalin.sc:8564:291302 */ /* x95089 stalin.sc:8565:291318 */ /* x95083 stalin.sc:8566:291338 */ /* x95082 stalin.sc:8566:291344 */ /* x95081 stalin.sc:8567:291379 */ /* x95080 stalin.sc:8567:291395 */ /* x95079 stalin.sc:8567:291417 */ t77637 = p10511->a23349; /* x95078 stalin.sc:8567:291396 */ a36446 = t77637; /* x278453 */ /* x278452 */ t77638 = a36446; /* x278451 */ t77636 = t77638->s0; /* x95077 stalin.sc:8567:291380 */ t77634 = f7110(t77636); /* x95076 stalin.sc:8566:291345 */ t77635 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t77635==NULL) {backtrace("stalin.sc", 8566, 291344); out_of_memory_error();} t77635->s0.tag = STRUCTURE_TYPE27858; t77635->s0.value.structure_type27858 = t77634; t77635->s1.tag = NULL_TYPE; t77633 = f8098(t77635); /* x95075 stalin.sc:8566:291339 */ a35141 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35141==NULL) {backtrace("stalin.sc", 8566, 291338); out_of_memory_error();} a35141->s0.tag = STRUCTURE_TYPE27650; a35141->s0.value.structure_type27650 = t77633; a35141->s1.tag = NULL_TYPE; /* x272289 */ t77629 = a35141; /* x95084 stalin.sc:8568:291431 */ t77630 = p10511->a23348; /* x95088 stalin.sc:8569:291441 */ /* x95086 stalin.sc:8569:291461 */ t77639 = p10511->a23349; /* x95087 stalin.sc:8569:291463 */ t77640 = q64; /* x95085 stalin.sc:8569:291442 */ t77641 = t77639; t77631 = f8743(t77641, t77640); /* x95074 stalin.sc:8565:291319 */ t77632.tag = STRUCTURE_TYPE24753; t77632.value.structure_type24753 = t77629; t77626 = f10497(t77632, t77630, t77631); /* x95092 stalin.sc:8570:291488 */ /* x95091 stalin.sc:8570:291495 */ t77642 = *((struct w16638 *)(&(p10511->a23347))); /* x95090 stalin.sc:8570:291489 */ a35987 = t77642; /* x275305 */ /* x275304 */ t77643 = a35987; /* x275303 */ if (!((t77643.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30136]"); structure_ref_error();} t77627 = t77643.value.structure_type24753->s0; /* x95073 stalin.sc:8564:291303 */ t77628.tag = NATIVE_PROCEDURE_TYPE17625; t77628.value.native_procedure_type17625 = t77626; t77617 = f8137(t77628, t77627); l14245: l14242: /* x94919 */ t77616 = p10511; p10512 = t77616; a23359 = t77617; /* x94918 */ /* x94900 */ if ((a23359.tag)==FALSE_TYPE) goto l14238; /* x94901 */ t77561 = a23359; goto l14239; l14238: /* x94917 */ /* x94916 stalin.sc:8574:291642 */ t77619 = a1943; /* x94915 stalin.sc:8571:291513 */ t77618 = p10512; /* x94902 stalin.sc:8571:291508 */ t77620.tag = NATIVE_PROCEDURE_TYPE20011; t77620.value.native_procedure_type20011 = t77618; t77621 = *((struct w49 *)(&t77619)); t77622 = (struct structure_type24753 *)NULL_TYPE; t77561 = f1042(t77620, t77621, t77622); l14239: goto l14221; l14220: /* x95156 */ /* x95103 stalin.sc:8575:291674 */ /* x95102 stalin.sc:8575:291716 */ t77590 = a23351; /* x95101 stalin.sc:8575:291675 */ /* x95100 stalin.sc:8575:291708 */ t77591 = q179; /* x95099 stalin.sc:8575:291676 */ t77592.tag = EXTERNAL_SYMBOL_TYPE; t77592.value.external_symbol_type = t77591; t77589 = f7708(t77592); if (f7709(t77589, t77590)==FALSE_TYPE) goto l14223; /* x95106 */ /* x95105 */ /* x95104 stalin.sc:8575:291719 */ t77561.tag = FALSE_TYPE; goto l14224; l14223: /* x95155 */ /* x95111 stalin.sc:8576:291730 */ /* x95110 stalin.sc:8576:291771 */ t77594 = a23351; /* x95109 stalin.sc:8576:291731 */ /* x95108 stalin.sc:8576:291764 */ t77595 = q45; /* x95107 stalin.sc:8576:291732 */ t77596.tag = EXTERNAL_SYMBOL_TYPE; t77596.value.external_symbol_type = t77595; t77593 = f7708(t77596); if (f7709(t77593, t77594)==FALSE_TYPE) goto l14226; /* x95128 */ /* x95127 */ t77608 = p10499; p10521 = t77608; /* x95126 */ /* x95125 stalin.sc:8578:291838 */ /* x95116 stalin.sc:8578:291844 */ /* x95115 stalin.sc:8578:291856 */ t77609 = p10521->a23349; /* x95114 stalin.sc:8578:291845 */ t77610.tag = STRUCTURE_TYPE27745; t77610.value.structure_type27745 = t77609; if (f8944(t77610)==FALSE_TYPE) goto l14235; /* x95122 */ /* x95121 */ t77611 = p10521; p10523 = t77611; /* x95120 stalin.sc:8578:291859 */ /* x95118 stalin.sc:8578:291874 */ t77612 = p10523->a23349; /* x95119 stalin.sc:8578:291876 */ t77613 = "unimplemented"; /* x95117 stalin.sc:8578:291860 */ t77614.tag = STRUCTURE_TYPE27745; t77614.value.structure_type27745 = t77612; f9707(t77614, t77613); goto l14236; l14235: /* x95124 stalin.sc:8578:291838 */ /* x95123 stalin.sc:8578:291838 */ l14236: /* x95113 */ /* x95112 stalin.sc:8580:291951 */ t77561.tag = TRUE_TYPE; goto l14227; l14226: /* x95154 */ /* x95133 stalin.sc:8581:291962 */ /* x95132 stalin.sc:8581:292004 */ t77598 = a23351; /* x95131 stalin.sc:8581:291963 */ /* x95130 stalin.sc:8581:291996 */ t77599 = q44; /* x95129 stalin.sc:8581:291964 */ t77600.tag = EXTERNAL_SYMBOL_TYPE; t77600.value.external_symbol_type = t77599; t77597 = f7708(t77600); if (f7709(t77597, t77598)==FALSE_TYPE) goto l14229; /* x95150 */ /* x95149 */ t77601 = p10499; p10525 = t77601; /* x95148 */ /* x95147 stalin.sc:8583:292072 */ /* x95138 stalin.sc:8583:292078 */ /* x95137 stalin.sc:8583:292090 */ t77602 = p10525->a23349; /* x95136 stalin.sc:8583:292079 */ t77603.tag = STRUCTURE_TYPE27745; t77603.value.structure_type27745 = t77602; if (f8944(t77603)==FALSE_TYPE) goto l14232; /* x95144 */ /* x95143 */ t77604 = p10525; p10527 = t77604; /* x95142 stalin.sc:8583:292093 */ /* x95140 stalin.sc:8583:292108 */ t77605 = p10527->a23349; /* x95141 stalin.sc:8583:292110 */ t77606 = "unimplemented"; /* x95139 stalin.sc:8583:292094 */ t77607.tag = STRUCTURE_TYPE27745; t77607.value.structure_type27745 = t77605; f9707(t77607, t77606); goto l14233; l14232: /* x95146 stalin.sc:8583:292072 */ /* x95145 stalin.sc:8583:292072 */ l14233: /* x95135 */ /* x95134 stalin.sc:8585:292186 */ t77561.tag = TRUE_TYPE; goto l14230; l14229: /* x95153 */ /* x95152 */ /* x95151 stalin.sc:8586:292202 */ t77561.tag = TRUE_TYPE; l14230: l14227: l14224: l14221: l14218: goto l14215; l14214: /* x95159 */ t77561.tag = FALSE_TYPE; l14215: /* x94670 */ t77560 = p10499; p10500 = t77560; a23352 = t77561; /* x94669 */ /* x94623 */ if ((a23352.tag)==FALSE_TYPE) goto l14203; /* x94624 */ t77358 = a23352; goto l14204; l14203: /* x94668 */ /* x94668 */ /* x94667 stalin.sc:8587:292212 */ /* x94639 stalin.sc:8587:292217 */ /* x94638 stalin.sc:8587:292241 */ t77562 = a23351; /* x94637 stalin.sc:8587:292218 */ a38081 = t77562; /* x284993 */ /* x284992 */ t77563 = a38081; /* x284991 */ if (!((t77563.tag)==STRUCTURE_TYPE27756)) goto l14208; /* x94665 */ /* x94647 stalin.sc:8588:292246 */ /* x94646 stalin.sc:8588:292251 */ /* x94645 stalin.sc:8588:292263 */ /* x94643 stalin.sc:8588:292283 */ t77565 = a23351; /* x94644 stalin.sc:8588:292285 */ t77566 = p10500->a23349; /* x94642 stalin.sc:8588:292264 */ t77567 = t77566; t77564 = f9368(t77565, t77567); /* x94641 stalin.sc:8588:292252 */ if (!(f8944(t77564)==FALSE_TYPE)) goto l14208; /* x94663 */ /* x94655 stalin.sc:8589:292292 */ /* x94654 stalin.sc:8589:292297 */ /* x94653 stalin.sc:8589:292322 */ /* x94651 stalin.sc:8589:292342 */ t77569 = a23351; /* x94652 stalin.sc:8589:292344 */ t77570 = p10500->a23349; /* x94650 stalin.sc:8589:292323 */ t77571 = t77570; t77568 = f9368(t77569, t77571); /* x94649 stalin.sc:8589:292298 */ if (!(f8592(t77568)==FALSE_TYPE)) goto l14208; /* x94661 */ /* x94660 stalin.sc:8590:292375 */ /* x94658 stalin.sc:8590:292395 */ t77573 = a23351; /* x94659 stalin.sc:8590:292397 */ t77574 = p10500->a23349; /* x94657 stalin.sc:8590:292376 */ t77575 = t77574; t77572 = f9368(t77573, t77575); /* x94656 stalin.sc:8590:292352 */ if (!(f10489(t77572)==FALSE_TYPE)) goto l14205; l14208: /* x94634 */ /* x94629 stalin.sc:8591:292411 */ /* x94628 stalin.sc:8591:292436 */ t77576 = a23351; /* x94627 stalin.sc:8591:292412 */ a37954 = t77576; /* x284485 */ /* x284484 */ t77577 = a37954; /* x284483 */ if (!((t77577.tag)==STRUCTURE_TYPE27750)) goto l14206; /* x94632 */ /* x94631 stalin.sc:8591:292467 */ t77578 = a23351; /* x94630 stalin.sc:8591:292440 */ if (f9870(t77578)==FALSE_TYPE) goto l14206; l14205: t77358.tag = TRUE_TYPE; goto l14207; l14206: t77358.tag = FALSE_TYPE; l14207: l14204: goto l14201; l14200: /* x95162 */ t77358.tag = FALSE_TYPE; l14201: break; case NATIVE_PROCEDURE_TYPE17628: t77358 = f10533((t77369.value.native_procedure_type17628), t77370); break; case NATIVE_PROCEDURE_TYPE17685: t77785 = f7709((t77369.value.native_procedure_type17685), t77370); t77358.tag = t77785; break; case NATIVE_PROCEDURE_TYPE17805: p12480 = t77369.value.native_procedure_type17805; a24620 = t77370; /* x111239 stalin.sc:12012:419165 */ /* x111183 stalin.sc:12013:419174 */ /* x111182 stalin.sc:12015:419252 */ t77787 = a24620; /* x111181 stalin.sc:12013:419175 */ /* x111180 stalin.sc:12014:419214 */ t77788 = q66; /* x111179 stalin.sc:12013:419176 */ t77789.tag = EXTERNAL_SYMBOL_TYPE; t77789.value.external_symbol_type = t77788; t77786 = f7708(t77789); if (f7709(t77786, t77787)==FALSE_TYPE) goto l14277; /* x111237 */ /* x111188 stalin.sc:12016:419259 */ /* x111187 stalin.sc:12016:419287 */ t77791 = a24620; /* x111186 stalin.sc:12016:419260 */ /* x111185 stalin.sc:12016:419284 */ t77792 = p12480->a24619; /* x111184 stalin.sc:12016:419261 */ t77790 = f7917(t77792); if ((t77790&3)==1) {if ((f7905(((struct p7892 *)(t77790-1)), t77791).tag)==FALSE_TYPE) goto l14280;} else if ((f7893(((struct p7892 *)t77790), t77791).tag)==FALSE_TYPE) goto l14280; /* x111235 */ /* x111229 stalin.sc:12018:419308 */ t77793 = p12480; /* x111234 stalin.sc:12032:419711 */ /* x111233 stalin.sc:12032:419732 */ /* x111232 stalin.sc:12032:419748 */ t77798 = p12480->a24619; /* x111231 stalin.sc:12032:419733 */ t77796 = f6998(t77798); /* x111230 stalin.sc:12032:419712 */ a39923 = t77796; /* x292361 */ /* x292360 */ t77797 = a39923; /* x292359 */ if (!((t77797.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34840]"); structure_ref_error();} t77794 = t77797.value.structure_type27698->s10; /* x111189 stalin.sc:12017:419295 */ t77795.tag = NATIVE_PROCEDURE_TYPE19951; t77795.value.native_procedure_type19951 = t77793; t77358 = f8137(t77795, t77794); goto l14281; l14280: /* x111236 */ t77358.tag = FALSE_TYPE; l14281: goto l14278; l14277: /* x111238 */ t77358.tag = FALSE_TYPE; l14278: break; case NATIVE_PROCEDURE_TYPE17809: p12478 = t77369.value.native_procedure_type17809; a24618 = t77370; /* x111151 stalin.sc:12044:420079 */ /* x111151 stalin.sc:12044:420079 */ /* x111136 stalin.sc:12045:420088 */ /* x111135 stalin.sc:12045:420108 */ t77799 = a24618; /* x111134 stalin.sc:12045:420089 */ a37878 = t77799; /* x284181 */ /* x284180 */ t77800 = a37878; /* x284179 */ if (!((t77800.tag)==STRUCTURE_TYPE27858)) goto l14283; /* x111149 */ /* x111141 stalin.sc:12046:420115 */ /* x111140 stalin.sc:12046:420144 */ t77802 = a24618; /* x111139 stalin.sc:12046:420116 */ /* x111138 stalin.sc:12046:420140 */ t77803 = p12478->a24617; /* x111137 stalin.sc:12046:420117 */ t77801 = f7917(t77803); if ((t77801&3)==1) {if ((f7905(((struct p7892 *)(t77801-1)), t77802).tag)==FALSE_TYPE) goto l14283;} else if ((f7893(((struct p7892 *)t77801), t77802).tag)==FALSE_TYPE) goto l14283; /* x111147 */ /* x111145 stalin.sc:12047:420156 */ /* x111144 stalin.sc:12047:420197 */ t77806 = a24618; /* x111143 stalin.sc:12047:420157 */ a37838 = t77806; /* x284021 */ /* x284020 */ t77807 = a37838; /* x284019 */ if (!((t77807.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32755]"); structure_ref_error();} t77804 = t77807.value.structure_type27858->s0; /* x111146 stalin.sc:12047:420200 */ t77805 = p12478->p12476->a24616; /* x269402 stalin.sc:12047:420152 */ /* EQ: dispatching general to general */ if (!((t77804.tag)==(t77805.tag))) goto l14283; switch (t77804.tag) {case FIXNUM_TYPE: if (!((t77804.value.fixnum_type)==(t77805.value.fixnum_type))) goto l14283; break; case FLONUM_TYPE: if (!((t77804.value.flonum_type)==(t77805.value.flonum_type))) goto l14283; break; case INPUT_PORT_TYPE: if (!((t77804.value.input_port_type)==(t77805.value.input_port_type))) goto l14283; break; case OUTPUT_PORT_TYPE: if (!((t77804.value.output_port_type)==(t77805.value.output_port_type))) goto l14283; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t77804.value.native_procedure_type15963)==(t77805.value.native_procedure_type15963))) goto l14283; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t77804.value.native_procedure_type19067)==(t77805.value.native_procedure_type19067))) goto l14283; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t77804.value.native_procedure_type19068)==(t77805.value.native_procedure_type19068))) goto l14283; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t77804.value.native_procedure_type22459)==(t77805.value.native_procedure_type22459))) goto l14283; break; case STRUCTURE_TYPE24753: if (!((t77804.value.structure_type24753)==(t77805.value.structure_type24753))) goto l14283; break; case STRUCTURE_TYPE24757: if (!((t77804.value.structure_type24757)==(t77805.value.structure_type24757))) goto l14283; break; case STRUCTURE_TYPE27501: if (!((t77804.value.structure_type27501)==(t77805.value.structure_type27501))) goto l14283; break; case STRUCTURE_TYPE27510: if (!((t77804.value.structure_type27510)==(t77805.value.structure_type27510))) goto l14283; break; case STRUCTURE_TYPE27621: if (!((t77804.value.structure_type27621)==(t77805.value.structure_type27621))) goto l14283; break; case STRUCTURE_TYPE27650: if (!((t77804.value.structure_type27650)==(t77805.value.structure_type27650))) goto l14283; break; case STRUCTURE_TYPE27669: if (!((t77804.value.structure_type27669)==(t77805.value.structure_type27669))) goto l14283; break; case STRUCTURE_TYPE27673: if (!((t77804.value.structure_type27673)==(t77805.value.structure_type27673))) goto l14283; break; case STRUCTURE_TYPE27692: if (!((t77804.value.structure_type27692)==(t77805.value.structure_type27692))) goto l14283; break; case STRUCTURE_TYPE27694: if (!((t77804.value.structure_type27694)==(t77805.value.structure_type27694))) goto l14283; break; case STRUCTURE_TYPE27698: if (!((t77804.value.structure_type27698)==(t77805.value.structure_type27698))) goto l14283; break; case STRUCTURE_TYPE27745: if (!((t77804.value.structure_type27745)==(t77805.value.structure_type27745))) goto l14283; break; case STRUCTURE_TYPE27747: if (!((t77804.value.structure_type27747)==(t77805.value.structure_type27747))) goto l14283; break; case STRUCTURE_TYPE27750: if (!((t77804.value.structure_type27750)==(t77805.value.structure_type27750))) goto l14283; break; case STRUCTURE_TYPE27753: if (!((t77804.value.structure_type27753)==(t77805.value.structure_type27753))) goto l14283; break; case STRUCTURE_TYPE27756: if (!((t77804.value.structure_type27756)==(t77805.value.structure_type27756))) goto l14283; break; case STRUCTURE_TYPE27761: if (!((t77804.value.structure_type27761)==(t77805.value.structure_type27761))) goto l14283; break; case STRUCTURE_TYPE27769: if (!((t77804.value.structure_type27769)==(t77805.value.structure_type27769))) goto l14283; break; case STRUCTURE_TYPE27776: if (!((t77804.value.structure_type27776)==(t77805.value.structure_type27776))) goto l14283; break; case STRUCTURE_TYPE27779: if (!((t77804.value.structure_type27779)==(t77805.value.structure_type27779))) goto l14283; break; case STRUCTURE_TYPE27858: if (!((t77804.value.structure_type27858)==(t77805.value.structure_type27858))) goto l14283; break; case STRING_TYPE: if (!((t77804.value.string_type)==(t77805.value.string_type))) goto l14283; break; case HEADED_VECTOR_TYPE27896: if (!((t77804.value.headed_vector_type27896)==(t77805.value.headed_vector_type27896))) goto l14283; break; case EXTERNAL_SYMBOL_TYPE: if (!((t77804.value.external_symbol_type)==(t77805.value.external_symbol_type))) goto l14283; break; case STRUCTURE_TYPE27908: if (!((t77804.value.structure_type27908)==(t77805.value.structure_type27908))) goto l14283; break; default:;} t77358.tag = TRUE_TYPE; goto l14284; l14283: t77358.tag = FALSE_TYPE; l14284: break; case NATIVE_PROCEDURE_TYPE17829: p12496 = t77369.value.native_procedure_type17829; a24634 = t77370; /* x111584 stalin.sc:11927:416569 */ /* x111343 stalin.sc:11928:416577 */ /* x111342 stalin.sc:11928:416605 */ t77809 = a24634; /* x111341 stalin.sc:11928:416578 */ /* x111340 stalin.sc:11928:416602 */ t77810 = p12496->a24626; /* x111339 stalin.sc:11928:416579 */ t77808 = f7917(t77810); if ((t77808&3)==1) {if ((f7905(((struct p7892 *)(t77808-1)), t77809).tag)==FALSE_TYPE) goto l14288;} else if ((f7893(((struct p7892 *)t77808), t77809).tag)==FALSE_TYPE) goto l14288; /* x111582 */ /* x111581 stalin.sc:11930:416619 */ /* x111568 stalin.sc:11930:416624 */ /* x111567 stalin.sc:11930:416648 */ t77867 = a24634; /* x111566 stalin.sc:11930:416625 */ a38092 = t77867; /* x285037 */ /* x285036 */ t77868 = a38092; /* x285035 */ if (!((t77868.tag)==STRUCTURE_TYPE27756)) goto l14318; /* x111579 */ /* x111575 stalin.sc:11931:416661 */ /* x111571 stalin.sc:11931:416681 */ t77871 = a24634; /* x111574 stalin.sc:11931:416683 */ /* x111573 stalin.sc:11931:416701 */ t77874 = p12496->a24626; /* x111572 stalin.sc:11931:416684 */ t77872 = f8739(t77874); /* x111570 stalin.sc:11931:416662 */ t77873 = t77872; t77869 = f9368(t77871, t77873); /* x111578 stalin.sc:11932:416708 */ /* x111577 stalin.sc:11932:416732 */ t77875 = p12496->p12483->p12482->a24623; /* x111576 stalin.sc:11932:416709 */ a40068 = t77875; /* x292941 */ /* x292940 */ t77876 = a40068; /* x292939 */ if (!((t77876.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34985]"); structure_ref_error();} t77870 = t77876.value.structure_type27698->s9; /* x111569 stalin.sc:11931:416654 */ t77812 = f11621(t77869, t77870); goto l14319; l14318: /* x111580 */ t77812.tag = FALSE_TYPE; l14319: /* x111565 */ t77811 = p12496; p12497 = t77811; a24635 = t77812; /* x111564 */ /* x111344 */ if ((a24635.tag)==FALSE_TYPE) goto l14291; /* x111345 */ t77358 = a24635; goto l14292; l14291: /* x111563 */ /* x111562 stalin.sc:11933:416742 */ /* x111526 stalin.sc:11933:416747 */ /* x111525 stalin.sc:11933:416789 */ t77858 = a24634; /* x111524 stalin.sc:11933:416748 */ /* x111523 stalin.sc:11933:416781 */ t77859 = q79; /* x111522 stalin.sc:11933:416749 */ t77860.tag = EXTERNAL_SYMBOL_TYPE; t77860.value.external_symbol_type = t77859; t77857 = f7708(t77860); if (f7709(t77857, t77858)==FALSE_TYPE) goto l14315; /* x111560 */ /* x111554 stalin.sc:11935:416806 */ t77861 = p12497; /* x111559 stalin.sc:11944:417055 */ /* x111558 stalin.sc:11944:417076 */ /* x111557 stalin.sc:11944:417092 */ t77866 = p12497->a24626; /* x111556 stalin.sc:11944:417077 */ t77864 = f6998(t77866); /* x111555 stalin.sc:11944:417056 */ a39934 = t77864; /* x292405 */ /* x292404 */ t77865 = a39934; /* x292403 */ if (!((t77865.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34851]"); structure_ref_error();} t77862 = t77865.value.structure_type27698->s10; /* x111527 stalin.sc:11934:416795 */ t77863.tag = NATIVE_PROCEDURE_TYPE19939; t77863.value.native_procedure_type19939 = t77861; t77814 = f8137(t77863, t77862); goto l14316; l14315: /* x111561 */ t77814.tag = FALSE_TYPE; l14316: /* x111521 */ t77813 = p12497; p12498 = t77813; a24636 = t77814; /* x111520 */ /* x111346 */ if ((a24636.tag)==FALSE_TYPE) goto l14294; /* x111347 */ t77358 = a24636; goto l14295; l14294: /* x111519 */ /* x111518 stalin.sc:11945:417102 */ /* x111482 stalin.sc:11946:417112 */ /* x111481 stalin.sc:11948:417192 */ t77848 = a24634; /* x111480 stalin.sc:11946:417113 */ /* x111479 stalin.sc:11947:417153 */ t77849 = q66; /* x111478 stalin.sc:11946:417114 */ t77850.tag = EXTERNAL_SYMBOL_TYPE; t77850.value.external_symbol_type = t77849; t77847 = f7708(t77850); if (f7709(t77847, t77848)==FALSE_TYPE) goto l14312; /* x111516 */ /* x111510 stalin.sc:11950:417215 */ t77851 = p12498; /* x111515 stalin.sc:11961:417498 */ /* x111514 stalin.sc:11961:417519 */ /* x111513 stalin.sc:11961:417535 */ t77856 = p12498->a24626; /* x111512 stalin.sc:11961:417520 */ t77854 = f6998(t77856); /* x111511 stalin.sc:11961:417499 */ a39932 = t77854; /* x292397 */ /* x292396 */ t77855 = a39932; /* x292395 */ if (!((t77855.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34849]"); structure_ref_error();} t77852 = t77855.value.structure_type27698->s10; /* x111483 stalin.sc:11949:417201 */ t77853.tag = NATIVE_PROCEDURE_TYPE19944; t77853.value.native_procedure_type19944 = t77851; t77816 = f8137(t77853, t77852); goto l14313; l14312: /* x111517 */ t77816.tag = FALSE_TYPE; l14313: /* x111477 */ t77815 = p12498; p12499 = t77815; a24637 = t77816; /* x111476 */ /* x111348 */ if ((a24637.tag)==FALSE_TYPE) goto l14297; /* x111349 */ t77358 = a24637; goto l14298; l14297: /* x111475 */ /* x111474 stalin.sc:11962:417545 */ /* x111399 stalin.sc:11962:417550 */ /* x111398 stalin.sc:11962:417591 */ t77830 = a24634; /* x111397 stalin.sc:11962:417551 */ /* x111396 stalin.sc:11962:417584 */ t77831 = q45; /* x111395 stalin.sc:11962:417552 */ t77832.tag = EXTERNAL_SYMBOL_TYPE; t77832.value.external_symbol_type = t77831; t77829 = f7708(t77832); if (f7709(t77829, t77830)==FALSE_TYPE) goto l14306; /* x111472 */ /* x111471 stalin.sc:11963:417600 */ /* x111465 stalin.sc:11964:417616 */ t77841 = p12499; /* x111470 stalin.sc:11973:417887 */ /* x111469 stalin.sc:11973:417908 */ /* x111468 stalin.sc:11973:417924 */ t77846 = p12499->a24626; /* x111467 stalin.sc:11973:417909 */ t77844 = f6998(t77846); /* x111466 stalin.sc:11973:417888 */ a39929 = t77844; /* x292385 */ /* x292384 */ t77845 = a39929; /* x292383 */ if (!((t77845.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34846]"); structure_ref_error();} t77842 = t77845.value.structure_type27698->s10; /* x111438 stalin.sc:11963:417601 */ t77843.tag = NATIVE_PROCEDURE_TYPE19946; t77843.value.native_procedure_type19946 = t77841; t77834 = f8137(t77843, t77842); /* x111437 */ t77833 = p12499; p12502 = t77833; a24640 = t77834; /* x111436 */ /* x111400 */ if ((a24640.tag)==FALSE_TYPE) goto l14309; /* x111401 */ t77818 = a24640; goto l14310; l14309: /* x111435 */ /* x111429 stalin.sc:11975:417951 */ t77835 = p12502; /* x111434 stalin.sc:11984:418223 */ /* x111433 stalin.sc:11984:418244 */ /* x111432 stalin.sc:11984:418261 */ t77840 = p12502->a24626; /* x111431 stalin.sc:11984:418245 */ t77838 = f7003(t77840); /* x111430 stalin.sc:11984:418224 */ a39927 = t77838; /* x292377 */ /* x292376 */ t77839 = a39927; /* x292375 */ if (!((t77839.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34844]"); structure_ref_error();} t77836 = t77839.value.structure_type27698->s10; /* x111402 stalin.sc:11974:417936 */ t77837.tag = NATIVE_PROCEDURE_TYPE19948; t77837.value.native_procedure_type19948 = t77835; t77818 = f8137(t77837, t77836); l14310: goto l14307; l14306: /* x111473 */ t77818.tag = FALSE_TYPE; l14307: /* x111394 */ t77817 = p12499; p12500 = t77817; a24638 = t77818; /* x111393 */ /* x111350 */ if ((a24638.tag)==FALSE_TYPE) goto l14300; /* x111351 */ t77358 = a24638; goto l14301; l14300: /* x111392 */ /* x111356 stalin.sc:11985:418277 */ /* x111355 stalin.sc:11985:418319 */ t77820 = a24634; /* x111354 stalin.sc:11985:418278 */ /* x111353 stalin.sc:11985:418311 */ t77821 = q44; /* x111352 stalin.sc:11985:418279 */ t77822.tag = EXTERNAL_SYMBOL_TYPE; t77822.value.external_symbol_type = t77821; t77819 = f7708(t77822); if (f7709(t77819, t77820)==FALSE_TYPE) goto l14303; /* x111390 */ /* x111384 stalin.sc:11987:418336 */ t77823 = p12500; /* x111389 stalin.sc:11996:418585 */ /* x111388 stalin.sc:11996:418606 */ /* x111387 stalin.sc:11996:418622 */ t77828 = p12500->a24626; /* x111386 stalin.sc:11996:418607 */ t77826 = f6998(t77828); /* x111385 stalin.sc:11996:418586 */ a39925 = t77826; /* x292369 */ /* x292368 */ t77827 = a39925; /* x292367 */ if (!((t77827.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34842]"); structure_ref_error();} t77824 = t77827.value.structure_type27698->s10; /* x111357 stalin.sc:11986:418325 */ t77825.tag = NATIVE_PROCEDURE_TYPE19950; t77825.value.native_procedure_type19950 = t77823; t77358 = f8137(t77825, t77824); goto l14304; l14303: /* x111391 */ t77358.tag = FALSE_TYPE; l14304: l14301: l14298: l14295: l14292: goto l14289; l14288: /* x111583 */ t77358.tag = FALSE_TYPE; l14289: break; case NATIVE_PROCEDURE_TYPE19067: t77358 = f7905((t77369.value.native_procedure_type19067), t77370); break; case NATIVE_PROCEDURE_TYPE19068: t77358 = f7893((t77369.value.native_procedure_type19068), t77370); break; case NATIVE_PROCEDURE_TYPE19070: t77877 = f10572((t77369.value.native_procedure_type19070), t77370); t77358.tag = t77877; break; case NATIVE_PROCEDURE_TYPE19076: p10585 = t77369.value.native_procedure_type19076; a23401 = t77370; /* x96283 stalin.sc:8796:299204 */ /* x95961 stalin.sc:8797:299212 */ /* x95960 stalin.sc:8797:299250 */ t77879 = a23401; /* x95959 stalin.sc:8797:299213 */ /* x95956 stalin.sc:8797:299242 */ t77880 = p10585->a23397; /* x95957 stalin.sc:8797:299245 */ t77881 = p10585->a23398; /* x95958 stalin.sc:8797:299247 */ t77882 = p10585->a23399; /* x95955 stalin.sc:8797:299214 */ /* MOVE: branching squeezed to general */ if (t77880>=((struct structure_type24753 *)VALUE_OFFSET)) {t77883.tag = STRUCTURE_TYPE24753; t77883.value.structure_type24753 = t77880;} else t77883.tag = (unsigned)t77880; /* MOVE: branching squeezed to general */ if (t77881>=((struct structure_type27650 *)VALUE_OFFSET)) {t77884.tag = STRUCTURE_TYPE27650; t77884.value.structure_type27650 = t77881;} else t77884.tag = (unsigned)t77881; t77885 = t77882; t77878 = f7892(t77883, t77884, t77885); if ((t77878&3)==1) {if ((f7905(((struct p7892 *)(t77878-1)), t77879).tag)==FALSE_TYPE) goto l14321;} else if ((f7893(((struct p7892 *)t77878), t77879).tag)==FALSE_TYPE) goto l14321; /* x96281 */ /* x96280 stalin.sc:8798:299260 */ /* x96143 stalin.sc:8799:299266 */ /* x96142 stalin.sc:8799:299308 */ t77958 = a23401; /* x96141 stalin.sc:8799:299267 */ /* x96140 stalin.sc:8799:299300 */ t77959 = q79; /* x96139 stalin.sc:8799:299268 */ t77960.tag = EXTERNAL_SYMBOL_TYPE; t77960.value.external_symbol_type = t77959; t77957 = f7708(t77960); if (f7709(t77957, t77958)==FALSE_TYPE) goto l14349; /* x96278 */ /* x96146 stalin.sc:8801:299321 */ /* x96145 stalin.sc:8801:299328 */ t77961 = p10585->a23397; /* x269734 stalin.sc:8801:299322 */ if (!(((unsigned)t77961)==NULL_TYPE)) goto l14352; /* x96182 */ /* x96181 */ t78022 = p10585; p10596 = t78022; /* x96180 stalin.sc:8802:299335 */ /* x96178 stalin.sc:8803:299348 */ t78023 = p10596; /* x96179 stalin.sc:8810:299618 */ t78024 = p10596->a23398; /* x96147 stalin.sc:8802:299336 */ t78025.tag = NATIVE_PROCEDURE_TYPE19921; t78025.value.native_procedure_type19921 = t78023; /* MOVE: branching squeezed to general */ if (t78024>=((struct structure_type27650 *)VALUE_OFFSET)) {t78026.tag = STRUCTURE_TYPE27650; t78026.value.structure_type27650 = t78024;} else t78026.tag = (unsigned)t78024; t77887 = f8137(t78025, t78026); goto l14353; l14352: /* x96277 */ /* x96187 stalin.sc:8811:299625 */ /* x96186 stalin.sc:8811:299632 */ /* x96185 stalin.sc:8811:299638 */ t77963 = p10585->a23397; /* x96184 stalin.sc:8811:299633 */ a35497 = t77963; /* x273345 */ /* x273344 */ t77964 = a35497; /* x273343 */ t77962 = t77964->s1; /* x269733 stalin.sc:8811:299626 */ if (!((t77962.tag)==NULL_TYPE)) goto l14355; /* x96215 */ /* x96214 */ t78017 = p10585; p10598 = t78017; /* x96213 stalin.sc:8812:299646 */ /* x96211 stalin.sc:8813:299659 */ t78018 = p10598; /* x96212 stalin.sc:8820:299875 */ t78019 = p10598->a23398; /* x96188 stalin.sc:8812:299647 */ t78020.tag = NATIVE_PROCEDURE_TYPE19911; t78020.value.native_procedure_type19911 = t78018; /* MOVE: branching squeezed to general */ if (t78019>=((struct structure_type27650 *)VALUE_OFFSET)) {t78021.tag = STRUCTURE_TYPE27650; t78021.value.structure_type27650 = t78019;} else t78021.tag = (unsigned)t78019; t77887 = f8137(t78020, t78021); goto l14356; l14355: /* x96276 */ /* x96275 */ t77965 = p10585; p10600 = t77965; /* x96274 stalin.sc:8822:299890 */ /* x96273 stalin.sc:8822:299894 */ /* x96245 stalin.sc:8822:299899 */ /* x96243 stalin.sc:8822:299908 */ /* x96244 stalin.sc:8822:299919 */ t77990 = p10600->a23398; /* x96242 stalin.sc:8822:299900 */ t77991.tag = NATIVE_PROCEDURE_TYPE7435; /* MOVE: branching squeezed to general */ if (t77990>=((struct structure_type27650 *)VALUE_OFFSET)) {t77992.tag = STRUCTURE_TYPE27650; t77992.value.structure_type27650 = t77990;} else t77992.tag = (unsigned)t77990; if ((f8137(t77991, t77992).tag)==FALSE_TYPE) goto l14361; /* x96271 */ /* x96267 stalin.sc:8824:299942 */ /* x96259 stalin.sc:8825:299984 */ /* x96251 stalin.sc:8825:299990 */ /* x96250 stalin.sc:8825:299997 */ t78003 = p10600->a23397; /* x96249 stalin.sc:8825:299991 */ a35924 = t78003; /* x275053 */ /* x275052 */ t78004 = a35924; /* x275051 */ t78001 = t78004->s0; /* x96258 stalin.sc:8825:300001 */ /* x96257 stalin.sc:8825:300011 */ /* x96256 stalin.sc:8825:300017 */ /* x96255 stalin.sc:8825:300023 */ t78008 = p10600->a23397; /* x96254 stalin.sc:8825:300018 */ a35452 = t78008; /* x273165 */ /* x273164 */ t78009 = a35452; /* x273163 */ t78006 = t78009->s1; /* x96253 stalin.sc:8825:300012 */ a35451 = t78006; /* x273161 */ /* x273160 */ t78007 = a35451; /* x273159 */ if (!((t78007.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29600]"); structure_ref_error();} t78005 = t78007.value.structure_type24753->s1; /* x96252 stalin.sc:8825:300002 */ t78002 = f1005(t78005); /* x269731 stalin.sc:8825:299985 */ t77996 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t77996==NULL) {backtrace("stalin.sc", 8825, 299984); out_of_memory_error();} t77996->s0 = t78001; t77996->s1 = *((struct w49 *)(&t78002)); /* x96262 stalin.sc:8826:300037 */ /* x96261 stalin.sc:8826:300043 */ t78010 = p10600->a23397; /* x96260 stalin.sc:8826:300038 */ t78011.tag = STRUCTURE_TYPE24753; t78011.value.structure_type24753 = t78010; t77997 = f960(t78011); /* x96266 stalin.sc:8827:300054 */ /* x96264 stalin.sc:8827:300074 */ t78012 = p10600->a23399; /* x96265 stalin.sc:8827:300076 */ t78013 = q64; /* x96263 stalin.sc:8827:300055 */ t78014 = t78012; t77998 = f8743(t78014, t78013); /* x96247 stalin.sc:8824:299943 */ t77999.tag = STRUCTURE_TYPE24753; t77999.value.structure_type24753 = t77996; t78000 = t77998; t77993 = f10570(t77999, t77997, t78000); /* x96270 stalin.sc:8828:300100 */ /* x96269 stalin.sc:8828:300108 */ t78015 = p10600->a23397; /* x96268 stalin.sc:8828:300101 */ t78016.tag = STRUCTURE_TYPE24753; t78016.value.structure_type24753 = t78015; t77994 = f26181(t78016); /* x96246 stalin.sc:8823:299928 */ t77995.tag = NATIVE_PROCEDURE_TYPE19070; t77995.value.native_procedure_type19070 = t77993; t77967 = f8137(t77995, t77994); goto l14362; l14361: /* x96272 */ t77967.tag = FALSE_TYPE; l14362: /* x96241 */ t77966 = p10600; p10601 = t77966; a23411 = t77967; /* x96240 */ /* x96216 */ if ((a23411.tag)==FALSE_TYPE) goto l14358; /* x96217 */ t77887 = a23411; goto l14359; l14358: /* x96239 */ /* x96235 stalin.sc:8829:300130 */ /* x96229 stalin.sc:8830:300168 */ /* x96223 stalin.sc:8830:300174 */ /* x96222 stalin.sc:8830:300181 */ t77979 = p10601->a23397; /* x96221 stalin.sc:8830:300175 */ a36002 = t77979; /* x275365 */ /* x275364 */ t77980 = a36002; /* x275363 */ t77977 = t77980->s0; /* x96228 stalin.sc:8830:300185 */ /* x96227 stalin.sc:8830:300191 */ /* x96226 stalin.sc:8830:300197 */ t77983 = p10601->a23397; /* x96225 stalin.sc:8830:300192 */ a35496 = t77983; /* x273341 */ /* x273340 */ t77984 = a35496; /* x273339 */ t77981 = t77984->s1; /* x96224 stalin.sc:8830:300186 */ a35495 = t77981; /* x273337 */ /* x273336 */ t77982 = a35495; /* x273335 */ if (!((t77982.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29644]"); structure_ref_error();} t77978 = t77982.value.structure_type24753->s1; /* x269732 stalin.sc:8830:300169 */ t77971 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t77971==NULL) {backtrace("stalin.sc", 8830, 300168); out_of_memory_error();} t77971->s0 = t77977; t77971->s1 = t77978; /* x96230 stalin.sc:8831:300206 */ t77972 = p10601->a23398; /* x96234 stalin.sc:8832:300211 */ /* x96232 stalin.sc:8832:300231 */ t77985 = p10601->a23399; /* x96233 stalin.sc:8832:300233 */ t77986 = q64; /* x96231 stalin.sc:8832:300212 */ t77987 = t77985; t77973 = f8743(t77987, t77986); /* x96219 stalin.sc:8829:300131 */ t77974.tag = STRUCTURE_TYPE24753; t77974.value.structure_type24753 = t77971; /* MOVE: branching squeezed to general */ if (t77972>=((struct structure_type27650 *)VALUE_OFFSET)) {t77975.tag = STRUCTURE_TYPE27650; t77975.value.structure_type27650 = t77972;} else t77975.tag = (unsigned)t77972; t77976 = t77973; t77968 = f10570(t77974, t77975, t77976); /* x96238 stalin.sc:8833:300260 */ /* x96237 stalin.sc:8833:300268 */ t77988 = p10601->a23397; /* x96236 stalin.sc:8833:300261 */ t77989.tag = STRUCTURE_TYPE24753; t77989.value.structure_type24753 = t77988; t77969 = f26181(t77989); /* x96218 stalin.sc:8829:300122 */ t77970.tag = NATIVE_PROCEDURE_TYPE19070; t77970.value.native_procedure_type19070 = t77968; t77887 = f8137(t77970, t77969); l14359: l14356: l14353: goto l14350; l14349: /* x96279 */ t77887.tag = FALSE_TYPE; l14350: /* x96138 */ t77886 = p10585; p10586 = t77886; a23402 = t77887; /* x96137 */ /* x95962 */ if ((a23402.tag)==FALSE_TYPE) goto l14324; /* x95963 */ t77358 = a23402; goto l14325; l14324: /* x96136 */ /* x96135 stalin.sc:8834:300284 */ /* x95999 stalin.sc:8835:300290 */ /* x95998 stalin.sc:8835:300357 */ t77906 = a23401; /* x95997 stalin.sc:8835:300291 */ /* x95996 stalin.sc:8835:300324 */ t77907 = q66; /* x95995 stalin.sc:8835:300292 */ t77908.tag = EXTERNAL_SYMBOL_TYPE; t77908.value.external_symbol_type = t77907; t77905 = f7708(t77908); if (f7709(t77905, t77906)==FALSE_TYPE) goto l14337; /* x96133 */ /* x96132 stalin.sc:8836:300365 */ /* x96022 stalin.sc:8836:300372 */ /* x96021 stalin.sc:8836:300379 */ t77916 = p10586->a23397; /* x269738 stalin.sc:8836:300373 */ if (!(((unsigned)t77916)==NULL_TYPE)) goto l14343; /* x96061 */ /* x96060 */ t77952 = p10586; p10591 = t77952; /* x96059 stalin.sc:8837:300388 */ /* x96057 stalin.sc:8838:300403 */ t77953 = p10591; /* x96058 stalin.sc:8845:300696 */ t77954 = p10591->a23398; /* x96023 stalin.sc:8837:300389 */ t77955.tag = NATIVE_PROCEDURE_TYPE19927; t77955.value.native_procedure_type19927 = t77953; /* MOVE: branching squeezed to general */ if (t77954>=((struct structure_type27650 *)VALUE_OFFSET)) {t77956.tag = STRUCTURE_TYPE27650; t77956.value.structure_type27650 = t77954;} else t77956.tag = (unsigned)t77954; t77910 = f8137(t77955, t77956); goto l14344; l14343: /* x96131 */ /* x96066 stalin.sc:8846:300705 */ /* x96065 stalin.sc:8846:300712 */ /* x96064 stalin.sc:8846:300718 */ t77918 = p10586->a23397; /* x96063 stalin.sc:8846:300713 */ a35494 = t77918; /* x273333 */ /* x273332 */ t77919 = a35494; /* x273331 */ t77917 = t77919->s1; /* x269737 stalin.sc:8846:300706 */ if (!((t77917.tag)==NULL_TYPE)) goto l14346; /* x96101 */ /* x96100 */ t77947 = p10586; p10593 = t77947; /* x96099 stalin.sc:8847:300728 */ /* x96097 stalin.sc:8848:300743 */ t77948 = p10593; /* x96098 stalin.sc:8855:300990 */ t77949 = p10593->a23398; /* x96067 stalin.sc:8847:300729 */ t77950.tag = NATIVE_PROCEDURE_TYPE19925; t77950.value.native_procedure_type19925 = t77948; /* MOVE: branching squeezed to general */ if (t77949>=((struct structure_type27650 *)VALUE_OFFSET)) {t77951.tag = STRUCTURE_TYPE27650; t77951.value.structure_type27650 = t77949;} else t77951.tag = (unsigned)t77949; t77910 = f8137(t77950, t77951); goto l14347; l14346: /* x96130 */ /* x96129 */ t77920 = p10586; p10595 = t77920; /* x96128 stalin.sc:8856:301004 */ /* x96124 stalin.sc:8857:301017 */ /* x96118 stalin.sc:8858:301057 */ /* x96107 stalin.sc:8858:301063 */ /* x96106 stalin.sc:8858:301070 */ t77932 = p10595->a23397; /* x96105 stalin.sc:8858:301064 */ a36000 = t77932; /* x275357 */ /* x275356 */ t77933 = a36000; /* x275355 */ t77930 = t77933->s0; /* x96117 stalin.sc:8858:301074 */ /* x96111 stalin.sc:8858:301080 */ /* x96110 stalin.sc:8858:301087 */ t77936 = p10595->a23397; /* x96109 stalin.sc:8858:301081 */ a36001 = t77936; /* x275361 */ /* x275360 */ t77937 = a36001; /* x275359 */ t77934 = t77937->s0; /* x96116 stalin.sc:8858:301091 */ /* x96115 stalin.sc:8858:301097 */ /* x96114 stalin.sc:8858:301103 */ t77940 = p10595->a23397; /* x96113 stalin.sc:8858:301098 */ a35493 = t77940; /* x273329 */ /* x273328 */ t77941 = a35493; /* x273327 */ t77938 = t77941->s1; /* x96112 stalin.sc:8858:301092 */ a35492 = t77938; /* x273325 */ /* x273324 */ t77939 = a35492; /* x273323 */ if (!((t77939.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29641]"); structure_ref_error();} t77935 = t77939.value.structure_type24753->s1; /* x269735 stalin.sc:8858:301075 */ t77931 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t77931==NULL) {backtrace("stalin.sc", 8858, 301074); out_of_memory_error();} t77931->s0 = t77934; t77931->s1 = t77935; /* x269736 stalin.sc:8858:301058 */ t77924 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t77924==NULL) {backtrace("stalin.sc", 8858, 301057); out_of_memory_error();} t77924->s0 = t77930; t77924->s1.tag = STRUCTURE_TYPE24753; t77924->s1.value.structure_type24753 = t77931; /* x96119 stalin.sc:8859:301115 */ t77925 = p10595->a23398; /* x96123 stalin.sc:8860:301122 */ /* x96121 stalin.sc:8860:301142 */ t77942 = p10595->a23399; /* x96122 stalin.sc:8860:301144 */ t77943 = q64; /* x96120 stalin.sc:8860:301123 */ t77944 = t77942; t77926 = f8743(t77944, t77943); /* x96103 stalin.sc:8857:301018 */ t77927.tag = STRUCTURE_TYPE24753; t77927.value.structure_type24753 = t77924; /* MOVE: branching squeezed to general */ if (t77925>=((struct structure_type27650 *)VALUE_OFFSET)) {t77928.tag = STRUCTURE_TYPE27650; t77928.value.structure_type27650 = t77925;} else t77928.tag = (unsigned)t77925; t77929 = t77926; t77921 = f10570(t77927, t77928, t77929); /* x96127 stalin.sc:8861:301166 */ /* x96126 stalin.sc:8861:301174 */ t77945 = p10595->a23397; /* x96125 stalin.sc:8861:301167 */ t77946.tag = STRUCTURE_TYPE24753; t77946.value.structure_type24753 = t77945; t77922 = f26181(t77946); /* x96102 stalin.sc:8856:301005 */ t77923.tag = NATIVE_PROCEDURE_TYPE19070; t77923.value.native_procedure_type19070 = t77921; t77910 = f8137(t77923, t77922); l14347: l14344: /* x96019 */ t77909 = p10586; p10589 = t77909; a23405 = t77910; /* x96018 */ /* x96000 */ if ((a23405.tag)==FALSE_TYPE) goto l14340; /* x96001 */ t77889 = a23405; goto l14341; l14340: /* x96017 */ /* x96016 stalin.sc:8865:301321 */ t77912 = a1943; /* x96015 stalin.sc:8862:301192 */ t77911 = p10589; /* x96002 stalin.sc:8862:301187 */ t77913.tag = NATIVE_PROCEDURE_TYPE19929; t77913.value.native_procedure_type19929 = t77911; t77914 = *((struct w49 *)(&t77912)); t77915 = (struct structure_type24753 *)NULL_TYPE; t77889 = f1042(t77913, t77914, t77915); l14341: goto l14338; l14337: /* x96134 */ t77889.tag = FALSE_TYPE; l14338: /* x95994 */ t77888 = p10586; p10587 = t77888; a23403 = t77889; /* x95993 */ /* x95964 */ if ((a23403.tag)==FALSE_TYPE) goto l14327; /* x95965 */ t77358 = a23403; goto l14328; l14327: /* x95992 */ /* x95991 stalin.sc:8866:301352 */ /* x95985 stalin.sc:8866:301357 */ /* x95984 stalin.sc:8866:301398 */ t77899 = a23401; /* x95983 stalin.sc:8866:301358 */ /* x95982 stalin.sc:8866:301391 */ t77900 = q45; /* x95981 stalin.sc:8866:301359 */ t77901.tag = EXTERNAL_SYMBOL_TYPE; t77901.value.external_symbol_type = t77900; t77898 = f7708(t77901); if (f7709(t77898, t77899)==FALSE_TYPE) goto l14334; /* x95989 */ /* x95987 stalin.sc:8868:301476 */ t77902 = p10587->a23399; /* x95988 stalin.sc:8868:301478 */ t77903 = "unimplemented"; /* x95986 stalin.sc:8868:301462 */ t77904.tag = STRUCTURE_TYPE27745; t77904.value.structure_type27745 = t77902; f9707(t77904, t77903); goto l14335; l14334: /* x95990 */ l14335: /* x95980 */ t77890 = p10587; p10588 = t77890; /* x95979 */ /* x95966 */ /* x95978 */ /* x95972 stalin.sc:8869:301508 */ /* x95971 stalin.sc:8869:301550 */ t77892 = a23401; /* x95970 stalin.sc:8869:301509 */ /* x95969 stalin.sc:8869:301542 */ t77893 = q44; /* x95968 stalin.sc:8869:301510 */ t77894.tag = EXTERNAL_SYMBOL_TYPE; t77894.value.external_symbol_type = t77893; t77891 = f7708(t77894); if (f7709(t77891, t77892)==FALSE_TYPE) goto l14331; /* x95976 */ /* x95974 stalin.sc:8871:301629 */ t77895 = p10588->a23399; /* x95975 stalin.sc:8871:301631 */ t77896 = "unimplemented"; /* x95973 stalin.sc:8871:301615 */ t77897.tag = STRUCTURE_TYPE27745; t77897.value.structure_type27745 = t77895; f9707(t77897, t77896); goto l14332; l14331: /* x95977 */ t77358.tag = FALSE_TYPE; l14332: l14328: l14325: goto l14322; l14321: /* x96282 */ t77358.tag = FALSE_TYPE; l14322: break; case NATIVE_PROCEDURE_TYPE19127: p11988 = t77369.value.native_procedure_type19127; a24240 = t77370; /* x107547 stalin.sc:11133:387348 */ /* x107520 stalin.sc:11133:387353 */ /* x107519 stalin.sc:11133:387394 */ t78028 = a24240; /* x107518 stalin.sc:11133:387354 */ /* x107517 stalin.sc:11133:387387 */ t78029 = q45; /* x107516 stalin.sc:11133:387355 */ t78030.tag = EXTERNAL_SYMBOL_TYPE; t78030.value.external_symbol_type = t78029; t78027 = f7708(t78030); if (f7709(t78027, t78028)==FALSE_TYPE) goto l14364; /* x107545 */ /* x107525 stalin.sc:11134:387400 */ /* x107524 stalin.sc:11134:387428 */ t78032 = a24240; /* x107523 stalin.sc:11134:387401 */ /* x107522 stalin.sc:11134:387425 */ t78033 = p11988->a24215; /* x107521 stalin.sc:11134:387402 */ t78031 = f7917(t78033); if ((t78031&3)==1) {if ((f7905(((struct p7892 *)(t78031-1)), t78032).tag)==FALSE_TYPE) goto l14367;} else if ((f7893(((struct p7892 *)t78031), t78032).tag)==FALSE_TYPE) goto l14367; /* x107543 */ /* x107537 stalin.sc:11135:387443 */ t78034 = p11988; /* x107542 stalin.sc:11138:387542 */ /* x107541 stalin.sc:11138:387563 */ /* x107540 stalin.sc:11138:387580 */ t78039 = p11988->a24215; /* x107539 stalin.sc:11138:387564 */ t78037 = f7003(t78039); /* x107538 stalin.sc:11138:387543 */ a39936 = t78037; /* x292413 */ /* x292412 */ t78038 = a39936; /* x292411 */ if (!((t78038.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34853]"); structure_ref_error();} t78035 = t78038.value.structure_type27698->s10; /* x107526 stalin.sc:11135:387435 */ t78036.tag = NATIVE_PROCEDURE_TYPE19936; t78036.value.native_procedure_type19936 = t78034; t77358 = f8137(t78036, t78035); goto l14368; l14367: /* x107544 */ t77358.tag = FALSE_TYPE; l14368: goto l14365; l14364: /* x107546 */ t77358.tag = FALSE_TYPE; l14365: break; case NATIVE_PROCEDURE_TYPE19129: p11978 = t77369.value.native_procedure_type19129; a24236 = t77370; /* x107440 stalin.sc:11111:386515 */ /* x107413 stalin.sc:11111:386520 */ /* x107412 stalin.sc:11111:386561 */ t78041 = a24236; /* x107411 stalin.sc:11111:386521 */ /* x107410 stalin.sc:11111:386554 */ t78042 = q45; /* x107409 stalin.sc:11111:386522 */ t78043.tag = EXTERNAL_SYMBOL_TYPE; t78043.value.external_symbol_type = t78042; t78040 = f7708(t78043); if (f7709(t78040, t78041)==FALSE_TYPE) goto l14370; /* x107438 */ /* x107418 stalin.sc:11112:386567 */ /* x107417 stalin.sc:11112:386595 */ t78045 = a24236; /* x107416 stalin.sc:11112:386568 */ /* x107415 stalin.sc:11112:386592 */ t78046 = p11978->a24215; /* x107414 stalin.sc:11112:386569 */ t78044 = f7917(t78046); if ((t78044&3)==1) {if ((f7905(((struct p7892 *)(t78044-1)), t78045).tag)==FALSE_TYPE) goto l14373;} else if ((f7893(((struct p7892 *)t78044), t78045).tag)==FALSE_TYPE) goto l14373; /* x107436 */ /* x107430 stalin.sc:11113:386610 */ t78047 = p11978; /* x107435 stalin.sc:11116:386708 */ /* x107434 stalin.sc:11116:386729 */ /* x107433 stalin.sc:11116:386745 */ t78052 = p11978->a24215; /* x107432 stalin.sc:11116:386730 */ t78050 = f6998(t78052); /* x107431 stalin.sc:11116:386709 */ a39937 = t78050; /* x292417 */ /* x292416 */ t78051 = a39937; /* x292415 */ if (!((t78051.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34854]"); structure_ref_error();} t78048 = t78051.value.structure_type27698->s10; /* x107419 stalin.sc:11113:386602 */ t78049.tag = NATIVE_PROCEDURE_TYPE19907; t78049.value.native_procedure_type19907 = t78047; t77358 = f8137(t78049, t78048); goto l14374; l14373: /* x107437 */ t77358.tag = FALSE_TYPE; l14374: goto l14371; l14370: /* x107439 */ t77358.tag = FALSE_TYPE; l14371: break; case NATIVE_PROCEDURE_TYPE19131: p11968 = t77369.value.native_procedure_type19131; a24232 = t77370; /* x107333 stalin.sc:11080:385533 */ /* x107306 stalin.sc:11081:385544 */ /* x107305 stalin.sc:11082:385618 */ t78054 = a24232; /* x107304 stalin.sc:11081:385545 */ /* x107303 stalin.sc:11081:385578 */ t78055 = q66; /* x107302 stalin.sc:11081:385546 */ t78056.tag = EXTERNAL_SYMBOL_TYPE; t78056.value.external_symbol_type = t78055; t78053 = f7708(t78056); if (f7709(t78053, t78054)==FALSE_TYPE) goto l14376; /* x107331 */ /* x107311 stalin.sc:11083:385627 */ /* x107310 stalin.sc:11083:385655 */ t78058 = a24232; /* x107309 stalin.sc:11083:385628 */ /* x107308 stalin.sc:11083:385652 */ t78059 = p11968->a24215; /* x107307 stalin.sc:11083:385629 */ t78057 = f7917(t78059); if ((t78057&3)==1) {if ((f7905(((struct p7892 *)(t78057-1)), t78058).tag)==FALSE_TYPE) goto l14379;} else if ((f7893(((struct p7892 *)t78057), t78058).tag)==FALSE_TYPE) goto l14379; /* x107329 */ /* x107323 stalin.sc:11085:385680 */ t78060 = p11968; /* x107328 stalin.sc:11090:385810 */ /* x107327 stalin.sc:11090:385831 */ /* x107326 stalin.sc:11090:385847 */ t78065 = p11968->a24215; /* x107325 stalin.sc:11090:385832 */ t78063 = f6998(t78065); /* x107324 stalin.sc:11090:385811 */ a39935 = t78063; /* x292409 */ /* x292408 */ t78064 = a39935; /* x292407 */ if (!((t78064.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34852]"); structure_ref_error();} t78061 = t78064.value.structure_type27698->s10; /* x107312 stalin.sc:11084:385665 */ t78062.tag = NATIVE_PROCEDURE_TYPE19937; t78062.value.native_procedure_type19937 = t78060; t77358 = f8137(t78062, t78061); goto l14380; l14379: /* x107330 */ t77358.tag = FALSE_TYPE; l14380: goto l14377; l14376: /* x107332 */ t77358.tag = FALSE_TYPE; l14377: break; case NATIVE_PROCEDURE_TYPE19133: p11958 = t77369.value.native_procedure_type19133; a24228 = t77370; /* x107226 stalin.sc:11058:384698 */ /* x107199 stalin.sc:11058:384703 */ /* x107198 stalin.sc:11058:384745 */ t78067 = a24228; /* x107197 stalin.sc:11058:384704 */ /* x107196 stalin.sc:11058:384737 */ t78068 = q79; /* x107195 stalin.sc:11058:384705 */ t78069.tag = EXTERNAL_SYMBOL_TYPE; t78069.value.external_symbol_type = t78068; t78066 = f7708(t78069); if (f7709(t78066, t78067)==FALSE_TYPE) goto l14382; /* x107224 */ /* x107204 stalin.sc:11059:384751 */ /* x107203 stalin.sc:11059:384779 */ t78071 = a24228; /* x107202 stalin.sc:11059:384752 */ /* x107201 stalin.sc:11059:384776 */ t78072 = p11958->a24215; /* x107200 stalin.sc:11059:384753 */ t78070 = f7917(t78072); if ((t78070&3)==1) {if ((f7905(((struct p7892 *)(t78070-1)), t78071).tag)==FALSE_TYPE) goto l14385;} else if ((f7893(((struct p7892 *)t78070), t78071).tag)==FALSE_TYPE) goto l14385; /* x107222 */ /* x107216 stalin.sc:11060:384794 */ t78073 = p11958; /* x107221 stalin.sc:11063:384892 */ /* x107220 stalin.sc:11063:384913 */ /* x107219 stalin.sc:11063:384929 */ t78078 = p11958->a24215; /* x107218 stalin.sc:11063:384914 */ t78076 = f6998(t78078); /* x107217 stalin.sc:11063:384893 */ a39938 = t78076; /* x292421 */ /* x292420 */ t78077 = a39938; /* x292419 */ if (!((t78077.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34855]"); structure_ref_error();} t78074 = t78077.value.structure_type27698->s10; /* x107205 stalin.sc:11060:384786 */ t78075.tag = NATIVE_PROCEDURE_TYPE19903; t78075.value.native_procedure_type19903 = t78073; t77358 = f8137(t78075, t78074); goto l14386; l14385: /* x107223 */ t77358.tag = FALSE_TYPE; l14386: goto l14383; l14382: /* x107225 */ t77358.tag = FALSE_TYPE; l14383: break; case NATIVE_PROCEDURE_TYPE19135: p11951 = t77369.value.native_procedure_type19135; a24225 = t77370; /* x107132 stalin.sc:11044:384123 */ /* x107125 stalin.sc:11044:384128 */ /* x107124 stalin.sc:11044:384148 */ t78079 = a24225; /* x107123 stalin.sc:11044:384129 */ a37882 = t78079; /* x284197 */ /* x284196 */ t78080 = a37882; /* x284195 */ if (!((t78080.tag)==STRUCTURE_TYPE27858)) goto l14388; /* x107130 */ /* x107129 stalin.sc:11045:384183 */ t78082 = a24225; /* x107128 stalin.sc:11045:384156 */ /* x107127 stalin.sc:11045:384180 */ t78083 = p11951->a24215; /* x107126 stalin.sc:11045:384157 */ t78081 = f7917(t78083); t77358 = ((t78081&3)==1)?f7905(((struct p7892 *)(t78081-1)), t78082):f7893(((struct p7892 *)t78081), t78082); goto l14389; l14388: /* x107131 */ t77358.tag = FALSE_TYPE; l14389: break; case NATIVE_PROCEDURE_TYPE19138: p11941 = t77369.value.native_procedure_type19138; a24221 = t77370; /* x107046 stalin.sc:11155:388185 */ /* x107019 stalin.sc:11155:388190 */ /* x107018 stalin.sc:11155:388232 */ t78085 = a24221; /* x107017 stalin.sc:11155:388191 */ /* x107016 stalin.sc:11155:388224 */ t78086 = q44; /* x107015 stalin.sc:11155:388192 */ t78087.tag = EXTERNAL_SYMBOL_TYPE; t78087.value.external_symbol_type = t78086; t78084 = f7708(t78087); if (f7709(t78084, t78085)==FALSE_TYPE) goto l14391; /* x107044 */ /* x107024 stalin.sc:11156:388238 */ /* x107023 stalin.sc:11156:388266 */ t78089 = a24221; /* x107022 stalin.sc:11156:388239 */ /* x107021 stalin.sc:11156:388263 */ t78090 = p11941->a24215; /* x107020 stalin.sc:11156:388240 */ t78088 = f7917(t78090); if ((t78088&3)==1) {if ((f7905(((struct p7892 *)(t78088-1)), t78089).tag)==FALSE_TYPE) goto l14394;} else if ((f7893(((struct p7892 *)t78088), t78089).tag)==FALSE_TYPE) goto l14394; /* x107042 */ /* x107036 stalin.sc:11157:388281 */ t78091 = p11941; /* x107041 stalin.sc:11160:388379 */ /* x107040 stalin.sc:11160:388400 */ /* x107039 stalin.sc:11160:388416 */ t78096 = p11941->a24215; /* x107038 stalin.sc:11160:388401 */ t78094 = f6998(t78096); /* x107037 stalin.sc:11160:388380 */ a39939 = t78094; /* x292425 */ /* x292424 */ t78095 = a39939; /* x292423 */ if (!((t78095.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34856]"); structure_ref_error();} t78092 = t78095.value.structure_type27698->s10; /* x107025 stalin.sc:11157:388273 */ t78093.tag = NATIVE_PROCEDURE_TYPE19902; t78093.value.native_procedure_type19902 = t78091; t77358 = f8137(t78093, t78092); goto l14395; l14394: /* x107043 */ t77358.tag = FALSE_TYPE; l14395: goto l14392; l14391: /* x107045 */ t77358.tag = FALSE_TYPE; l14392: break; case NATIVE_PROCEDURE_TYPE19141: p10916 = t77369.value.native_procedure_type19141; a23609 = t77370; /* x99289 stalin.sc:9490:326810 */ /* x99282 stalin.sc:9490:326815 */ /* x99281 stalin.sc:9490:326819 */ /* x99280 stalin.sc:9490:326861 */ t78098 = a23609; /* x99279 stalin.sc:9490:326820 */ /* x99278 stalin.sc:9490:326853 */ t78099 = q79; /* x99277 stalin.sc:9490:326821 */ t78100.tag = EXTERNAL_SYMBOL_TYPE; t78100.value.external_symbol_type = t78099; t78097 = f7708(t78100); if (!(f7709(t78097, t78098)==FALSE_TYPE)) goto l14396; /* x99274 */ /* x99273 stalin.sc:9491:326872 */ /* x99272 stalin.sc:9493:326958 */ t78102 = a23609; /* x99271 stalin.sc:9491:326873 */ /* x99270 stalin.sc:9492:326916 */ t78103 = q66; /* x99269 stalin.sc:9491:326874 */ t78104.tag = EXTERNAL_SYMBOL_TYPE; t78104.value.external_symbol_type = t78103; t78101 = f7708(t78104); if (!(f7709(t78101, t78102)==FALSE_TYPE)) goto l14396; /* x99266 */ /* x99265 stalin.sc:9494:326969 */ /* x99264 stalin.sc:9494:327010 */ t78106 = a23609; /* x99263 stalin.sc:9494:326970 */ /* x99262 stalin.sc:9494:327003 */ t78107 = q45; /* x99261 stalin.sc:9494:326971 */ t78108.tag = EXTERNAL_SYMBOL_TYPE; t78108.value.external_symbol_type = t78107; t78105 = f7708(t78108); if (!(f7709(t78105, t78106)==FALSE_TYPE)) goto l14396; /* x99258 */ /* x99257 stalin.sc:9495:327063 */ t78110 = a23609; /* x99256 stalin.sc:9495:327022 */ /* x99255 stalin.sc:9495:327055 */ t78111 = q44; /* x99254 stalin.sc:9495:327023 */ t78112.tag = EXTERNAL_SYMBOL_TYPE; t78112.value.external_symbol_type = t78111; t78109 = f7708(t78112); if (f7709(t78109, t78110)==FALSE_TYPE) goto l14397; l14396: /* x99287 */ /* x99286 stalin.sc:9496:327099 */ t78114 = a23609; /* x99285 stalin.sc:9496:327072 */ /* x99284 stalin.sc:9496:327096 */ t78115 = p10916->a23605; /* x99283 stalin.sc:9496:327073 */ t78113 = f7917(t78115); t77358 = ((t78113&3)==1)?f7905(((struct p7892 *)(t78113-1)), t78114):f7893(((struct p7892 *)t78113), t78114); goto l14398; l14397: /* x99288 */ t77358.tag = FALSE_TYPE; l14398: break; case NATIVE_PROCEDURE_TYPE19144: p10913 = t77369.value.native_procedure_type19144; a23608 = t77370; /* x99216 stalin.sc:9502:327286 */ /* x99209 stalin.sc:9502:327291 */ /* x99208 stalin.sc:9502:327332 */ t78117 = a23608; /* x99207 stalin.sc:9502:327292 */ /* x99206 stalin.sc:9502:327325 */ t78118 = q45; /* x99205 stalin.sc:9502:327293 */ t78119.tag = EXTERNAL_SYMBOL_TYPE; t78119.value.external_symbol_type = t78118; t78116 = f7708(t78119); if (f7709(t78116, t78117)==FALSE_TYPE) goto l14403; /* x99214 */ /* x99213 stalin.sc:9503:327367 */ t78121 = a23608; /* x99212 stalin.sc:9503:327340 */ /* x99211 stalin.sc:9503:327364 */ t78122 = p10913->a23605; /* x99210 stalin.sc:9503:327341 */ t78120 = f7917(t78122); t77358 = ((t78120&3)==1)?f7905(((struct p7892 *)(t78120-1)), t78121):f7893(((struct p7892 *)t78120), t78121); goto l14404; l14403: /* x99215 */ t77358.tag = FALSE_TYPE; l14404: break; case NATIVE_PROCEDURE_TYPE19477: a28455 = t77370; /* x157884 stalin.sc:21988:769620 */ /* x157884 stalin.sc:21988:769620 */ /* x157883 stalin.sc:21988:769624 */ /* x157882 stalin.sc:21988:769638 */ t78123 = a28455; /* x157881 stalin.sc:21988:769625 */ if (!(f7688(t78123)==FALSE_TYPE)) goto l14405; /* x157878 */ /* x157877 stalin.sc:21989:769649 */ /* x157876 stalin.sc:21989:769664 */ t78124 = a28455; /* x157875 stalin.sc:21989:769650 */ if (!(f7703(t78124)==FALSE_TYPE)) goto l14405; /* x157872 */ /* x157871 stalin.sc:21990:769675 */ /* x157870 stalin.sc:21990:769689 */ t78125 = a28455; /* x157869 stalin.sc:21990:769676 */ a37763 = t78125; /* x283721 */ /* x283720 */ t78126 = a37763; /* x283719 */ if ((t78126.tag)==STRUCTURE_TYPE27673) goto l14405; /* x157866 */ /* x157865 stalin.sc:21991:769700 */ /* x157864 stalin.sc:21991:769718 */ t78127 = a28455; /* x157863 stalin.sc:21991:769701 */ if (!(f7700(t78127)==FALSE_TYPE)) goto l14405; /* x157860 */ /* x157859 stalin.sc:21992:769748 */ t78128 = a28455; /* x157858 stalin.sc:21992:769730 */ if (f7701(t78128)==FALSE_TYPE) goto l14406; l14405: t77358.tag = TRUE_TYPE; goto l14407; l14406: t77358.tag = FALSE_TYPE; l14407: break; case NATIVE_PROCEDURE_TYPE19555: t78129 = f9842(t77370); t77358.tag = t78129; break; case NATIVE_PROCEDURE_TYPE19561: p7901 = t77369.value.native_procedure_type19561; a21607 = t77370; /* x66929 stalin.sc:2689:89489 */ /* x66906 stalin.sc:2689:89494 */ /* x66905 stalin.sc:2689:89506 */ t78130 = a21607; /* x66904 stalin.sc:2689:89495 */ if (f7719(t78130)==FALSE_TYPE) goto l14413; /* x66927 */ /* x66916 stalin.sc:2690:89518 */ /* x66912 stalin.sc:2690:89527 */ /* x66911 stalin.sc:2690:89542 */ /* x66910 stalin.sc:2690:89549 */ t78135 = p7901->a21603; /* x66909 stalin.sc:2690:89543 */ a35701 = t78135; /* x274161 */ /* x274160 */ t78136 = a35701; /* x274159 */ if (!((t78136.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29850]"); structure_ref_error();} t78134 = t78136.value.structure_type24753->s0; /* x66908 stalin.sc:2690:89528 */ t78131 = f9826(t78134); /* x66915 stalin.sc:2691:89565 */ /* x66914 stalin.sc:2691:89580 */ t78137 = a21607; /* x66913 stalin.sc:2691:89566 */ t78132 = f7923(t78137); /* x66907 stalin.sc:2690:89519 */ t78133.tag = t78131; if ((f8137(t78133, t78132).tag)==FALSE_TYPE) goto l14416; /* x66925 */ /* x66920 stalin.sc:2693:89610 */ /* x66919 stalin.sc:2693:89616 */ t78141 = p7901->a21603; /* x66918 stalin.sc:2693:89611 */ a35353 = t78141; /* x272769 */ /* x272768 */ t78142 = a35353; /* x272767 */ if (!((t78142.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29502]"); structure_ref_error();} t78138 = t78142.value.structure_type24753->s1; /* x66921 stalin.sc:2693:89620 */ t78139 = p7901->a21604; /* x66924 stalin.sc:2693:89623 */ /* x66923 stalin.sc:2693:89638 */ t78143 = a21607; /* x66922 stalin.sc:2693:89624 */ t78140 = f7927(t78143); /* x66917 stalin.sc:2692:89594 */ t77358 = f7899(t78138, t78139, t78140); goto l14417; l14416: /* x66926 */ t77358.tag = FALSE_TYPE; l14417: goto l14414; l14413: /* x66928 */ t77358.tag = FALSE_TYPE; l14414: break; case NATIVE_PROCEDURE_TYPE19572: p7913 = t77369.value.native_procedure_type19572; a21620 = t77370; /* x67211 stalin.sc:2735:91088 */ /* x67188 stalin.sc:2735:91093 */ /* x67187 stalin.sc:2735:91105 */ t78144 = a21620; /* x67186 stalin.sc:2735:91094 */ if (f7719(t78144)==FALSE_TYPE) goto l14419; /* x67209 */ /* x67198 stalin.sc:2736:91117 */ /* x67194 stalin.sc:2736:91126 */ /* x67193 stalin.sc:2736:91141 */ /* x67192 stalin.sc:2736:91148 */ t78149 = p7913->a21616; /* x67191 stalin.sc:2736:91142 */ a35702 = t78149; /* x274165 */ /* x274164 */ t78150 = a35702; /* x274163 */ if (!((t78150.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29851]"); structure_ref_error();} t78148 = t78150.value.structure_type24753->s0; /* x67190 stalin.sc:2736:91127 */ t78145 = f9826(t78148); /* x67197 stalin.sc:2737:91164 */ /* x67196 stalin.sc:2737:91179 */ t78151 = a21620; /* x67195 stalin.sc:2737:91165 */ t78146 = f7923(t78151); /* x67189 stalin.sc:2736:91118 */ t78147.tag = t78145; if ((f8137(t78147, t78146).tag)==FALSE_TYPE) goto l14422; /* x67207 */ /* x67202 stalin.sc:2739:91209 */ /* x67201 stalin.sc:2739:91215 */ t78155 = p7913->a21616; /* x67200 stalin.sc:2739:91210 */ a35354 = t78155; /* x272773 */ /* x272772 */ t78156 = a35354; /* x272771 */ if (!((t78156.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29503]"); structure_ref_error();} t78152 = t78156.value.structure_type24753->s1; /* x67203 stalin.sc:2739:91219 */ t78153 = p7913->a21617; /* x67206 stalin.sc:2739:91222 */ /* x67205 stalin.sc:2739:91237 */ t78157 = a21620; /* x67204 stalin.sc:2739:91223 */ t78154 = f7927(t78157); /* x67199 stalin.sc:2738:91193 */ t77358 = f7911(t78152, t78153, t78154); goto l14423; l14422: /* x67208 */ t77358.tag = FALSE_TYPE; l14423: goto l14420; l14419: /* x67210 */ t77358.tag = FALSE_TYPE; l14420: break; case NATIVE_PROCEDURE_TYPE19878: t77358 = f7880((t77369.value.native_procedure_type19878), t77370); break; case NATIVE_PROCEDURE_TYPE19883: t77358 = f7737((t77369.value.native_procedure_type19883), t77370); break; case NATIVE_PROCEDURE_TYPE19886: t77358 = f7874((t77369.value.native_procedure_type19886), t77370); break; case NATIVE_PROCEDURE_TYPE19902: p11942 = t77369.value.native_procedure_type19902; a24222 = t77370; /* x107035 stalin.sc:11158:388299 */ /* x107028 stalin.sc:11158:388304 */ /* x107027 stalin.sc:11158:388324 */ t78158 = a24222; /* x107026 stalin.sc:11158:388305 */ a37884 = t78158; /* x284205 */ /* x284204 */ t78159 = a37884; /* x284203 */ if (!((t78159.tag)==STRUCTURE_TYPE27858)) goto l14425; /* x107033 */ /* x107032 stalin.sc:11159:388369 */ t78161 = a24222; /* x107031 stalin.sc:11159:388332 */ /* x107030 stalin.sc:11159:388366 */ t78162 = p11942->a24215; /* x107029 stalin.sc:11159:388333 */ t78160 = f7922(t78162); t77358 = ((t78160&3)==1)?f7905(((struct p7892 *)(t78160-1)), t78161):f7893(((struct p7892 *)t78160), t78161); goto l14426; l14425: /* x107034 */ t77358.tag = FALSE_TYPE; l14426: break; case NATIVE_PROCEDURE_TYPE19903: p11959 = t77369.value.native_procedure_type19903; a24229 = t77370; /* x107215 stalin.sc:11061:384812 */ /* x107208 stalin.sc:11061:384817 */ /* x107207 stalin.sc:11061:384837 */ t78163 = a24229; /* x107206 stalin.sc:11061:384818 */ a37883 = t78163; /* x284201 */ /* x284200 */ t78164 = a37883; /* x284199 */ if (!((t78164.tag)==STRUCTURE_TYPE27858)) goto l14428; /* x107213 */ /* x107212 stalin.sc:11062:384882 */ t78166 = a24229; /* x107211 stalin.sc:11062:384845 */ /* x107210 stalin.sc:11062:384879 */ t78167 = p11959->a24215; /* x107209 stalin.sc:11062:384846 */ t78165 = f7918(t78167); t77358 = ((t78165&3)==1)?f7905(((struct p7892 *)(t78165-1)), t78166):f7893(((struct p7892 *)t78165), t78166); goto l14429; l14428: /* x107214 */ t77358.tag = FALSE_TYPE; l14429: break; case NATIVE_PROCEDURE_TYPE19907: p11979 = t77369.value.native_procedure_type19907; a24237 = t77370; /* x107429 stalin.sc:11114:386628 */ /* x107422 stalin.sc:11114:386633 */ /* x107421 stalin.sc:11114:386653 */ t78168 = a24237; /* x107420 stalin.sc:11114:386634 */ a37881 = t78168; /* x284193 */ /* x284192 */ t78169 = a37881; /* x284191 */ if (!((t78169.tag)==STRUCTURE_TYPE27858)) goto l14431; /* x107427 */ /* x107426 stalin.sc:11115:386698 */ t78171 = a24237; /* x107425 stalin.sc:11115:386661 */ /* x107424 stalin.sc:11115:386695 */ t78172 = p11979->a24215; /* x107423 stalin.sc:11115:386662 */ t78170 = f7920(t78172); t77358 = ((t78170&3)==1)?f7905(((struct p7892 *)(t78170-1)), t78171):f7893(((struct p7892 *)t78170), t78171); goto l14432; l14431: /* x107428 */ t77358.tag = FALSE_TYPE; l14432: break; case NATIVE_PROCEDURE_TYPE19911: p10599 = t77369.value.native_procedure_type19911; a23410 = t77370; /* x96210 stalin.sc:8814:299676 */ /* x96193 stalin.sc:8814:299681 */ /* x96192 stalin.sc:8814:299716 */ t78174 = a23410; /* x96191 stalin.sc:8814:299682 */ /* x96190 stalin.sc:8814:299713 */ t78175 = 1; /* x96189 stalin.sc:8814:299683 */ t78173 = f7738(t78175); if ((f7739(t78173, t78174).tag)==FALSE_TYPE) goto l14434; /* x96208 */ /* x96204 stalin.sc:8815:299731 */ /* x96196 stalin.sc:8816:299772 */ t78179 = p10599->a23397; /* x96199 stalin.sc:8817:299781 */ /* x96198 stalin.sc:8817:299796 */ t78184 = a23410; /* x96197 stalin.sc:8817:299782 */ t78180 = f7927(t78184); /* x96203 stalin.sc:8818:299805 */ /* x96201 stalin.sc:8818:299825 */ t78185 = p10599->a23399; /* x96202 stalin.sc:8818:299827 */ t78186 = q64; /* x96200 stalin.sc:8818:299806 */ t78187 = t78185; t78181 = f8743(t78187, t78186); /* x96195 stalin.sc:8815:299732 */ /* MOVE: branching squeezed to general */ if (t78179>=((struct structure_type24753 *)VALUE_OFFSET)) {t78182.tag = STRUCTURE_TYPE24753; t78182.value.structure_type24753 = t78179;} else t78182.tag = (unsigned)t78179; t78183 = t78181; t78176 = f10570(t78182, t78180, t78183); /* x96207 stalin.sc:8819:299850 */ /* x96206 stalin.sc:8819:299865 */ t78188 = a23410; /* x96205 stalin.sc:8819:299851 */ t78177 = f7923(t78188); /* x96194 stalin.sc:8815:299723 */ t78178.tag = NATIVE_PROCEDURE_TYPE19070; t78178.value.native_procedure_type19070 = t78176; t77358 = f8137(t78178, t78177); goto l14435; l14434: /* x96209 */ t77358.tag = FALSE_TYPE; l14435: break; case NATIVE_PROCEDURE_TYPE19912: t77358 = f7739((t77369.value.native_procedure_type19912), t77370); break; case NATIVE_PROCEDURE_TYPE19917: t77358 = f7731((t77369.value.native_procedure_type19917), t77370); break; case NATIVE_PROCEDURE_TYPE19921: p10597 = t77369.value.native_procedure_type19921; a23409 = t77370; /* x96177 stalin.sc:8804:299365 */ /* x96152 stalin.sc:8804:299370 */ /* x96151 stalin.sc:8804:299405 */ t78190 = a23409; /* x96150 stalin.sc:8804:299371 */ /* x96149 stalin.sc:8804:299402 */ t78191 = 2; /* x96148 stalin.sc:8804:299372 */ t78189 = f7738(t78191); if ((f7739(t78189, t78190).tag)==FALSE_TYPE) goto l14437; /* x96175 */ /* x96169 stalin.sc:8805:299420 */ /* x96159 stalin.sc:8806:299461 */ /* x96158 stalin.sc:8806:299467 */ /* x96157 stalin.sc:8806:299482 */ t78201 = a23409; /* x96156 stalin.sc:8806:299468 */ t78200 = f7923(t78201); /* x96155 stalin.sc:8806:299462 */ a34920 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34920==NULL) {backtrace("stalin.sc", 8806, 299461); out_of_memory_error();} a34920->s0 = t78200; a34920->s1.tag = NULL_TYPE; /* x271847 */ t78195 = a34920; /* x96164 stalin.sc:8807:299492 */ /* x96163 stalin.sc:8807:299507 */ /* x96162 stalin.sc:8807:299522 */ t78203 = a23409; /* x96161 stalin.sc:8807:299508 */ t78202 = f7927(t78203); /* x96160 stalin.sc:8807:299493 */ t78196 = f7927(t78202); /* x96168 stalin.sc:8808:299532 */ /* x96166 stalin.sc:8808:299552 */ t78204 = p10597->a23399; /* x96167 stalin.sc:8808:299554 */ t78205 = q64; /* x96165 stalin.sc:8808:299533 */ t78206 = t78204; t78197 = f8743(t78206, t78205); /* x96154 stalin.sc:8805:299421 */ t78198.tag = STRUCTURE_TYPE24753; t78198.value.structure_type24753 = t78195; t78199 = t78197; t78192 = f10570(t78198, t78196, t78199); /* x96174 stalin.sc:8809:299577 */ /* x96173 stalin.sc:8809:299592 */ /* x96172 stalin.sc:8809:299607 */ t78208 = a23409; /* x96171 stalin.sc:8809:299593 */ t78207 = f7927(t78208); /* x96170 stalin.sc:8809:299578 */ t78193 = f7923(t78207); /* x96153 stalin.sc:8805:299412 */ t78194.tag = NATIVE_PROCEDURE_TYPE19070; t78194.value.native_procedure_type19070 = t78192; t77358 = f8137(t78194, t78193); goto l14438; l14437: /* x96176 */ t77358.tag = FALSE_TYPE; l14438: break; case NATIVE_PROCEDURE_TYPE19925: p10594 = t77369.value.native_procedure_type19925; a23408 = t77370; /* x96096 stalin.sc:8849:300762 */ /* x96072 stalin.sc:8849:300767 */ /* x96071 stalin.sc:8849:300793 */ t78210 = a23408; /* x96070 stalin.sc:8849:300768 */ /* x96069 stalin.sc:8849:300790 */ t78211 = 1; /* x96068 stalin.sc:8849:300769 */ t78209 = f7736(t78211); if ((f7737(t78209, t78210).tag)==FALSE_TYPE) goto l14440; /* x96094 */ /* x96090 stalin.sc:8850:300810 */ /* x96082 stalin.sc:8851:300853 */ /* x96081 stalin.sc:8851:300870 */ /* x96080 stalin.sc:8851:300877 */ t78225 = p10594->a23397; /* x96079 stalin.sc:8851:300871 */ a35999 = t78225; /* x275353 */ /* x275352 */ t78226 = a35999; /* x275351 */ if (!(t78226>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 30148]"); structure_ref_error();} t78221 = t78226->s0; /* x96078 stalin.sc:8851:300859 */ /* x96077 stalin.sc:8851:300866 */ t78223 = p10594->a23397; /* x96076 stalin.sc:8851:300860 */ a35998 = t78223; /* x275349 */ /* x275348 */ t78224 = a35998; /* x275347 */ if (!(t78224>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 30147]"); structure_ref_error();} t78220 = t78224->s0; /* x96075 stalin.sc:8851:300854 */ t78222.tag = STRUCTURE_TYPE24753; t78222.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t78222.value.structure_type24753)==NULL) {backtrace("stalin.sc", 8851, 300853); out_of_memory_error();} t78222.value.structure_type24753->s0 = t78221; t78222.value.structure_type24753->s1.tag = NULL_TYPE; a35153 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35153==NULL) {backtrace("stalin.sc", 8851, 300853); out_of_memory_error();} a35153->s0 = t78220; a35153->s1 = t78222; /* x272313 */ t78215 = a35153; /* x96085 stalin.sc:8852:300890 */ /* x96084 stalin.sc:8852:300905 */ t78227 = a23408; /* x96083 stalin.sc:8852:300891 */ t78216 = f7927(t78227); /* x96089 stalin.sc:8853:300916 */ /* x96087 stalin.sc:8853:300936 */ t78228 = p10594->a23399; /* x96088 stalin.sc:8853:300938 */ t78229 = q64; /* x96086 stalin.sc:8853:300917 */ t78230 = t78228; t78217 = f8743(t78230, t78229); /* x96074 stalin.sc:8850:300811 */ t78218.tag = STRUCTURE_TYPE24753; t78218.value.structure_type24753 = t78215; t78219 = t78217; t78212 = f10570(t78218, t78216, t78219); /* x96093 stalin.sc:8854:300963 */ /* x96092 stalin.sc:8854:300978 */ t78231 = a23408; /* x96091 stalin.sc:8854:300964 */ t78213 = f7923(t78231); /* x96073 stalin.sc:8850:300802 */ t78214.tag = NATIVE_PROCEDURE_TYPE19070; t78214.value.native_procedure_type19070 = t78212; t77358 = f8137(t78214, t78213); goto l14441; l14440: /* x96095 */ t77358.tag = FALSE_TYPE; l14441: break; case NATIVE_PROCEDURE_TYPE19927: p10592 = t77369.value.native_procedure_type19927; a23407 = t77370; /* x96056 stalin.sc:8839:300422 */ /* x96028 stalin.sc:8839:300427 */ /* x96027 stalin.sc:8839:300453 */ t78233 = a23407; /* x96026 stalin.sc:8839:300428 */ /* x96025 stalin.sc:8839:300450 */ t78234 = 2; /* x96024 stalin.sc:8839:300429 */ t78232 = f7736(t78234); if ((f7737(t78232, t78233).tag)==FALSE_TYPE) goto l14443; /* x96054 */ /* x96048 stalin.sc:8840:300470 */ /* x96038 stalin.sc:8841:300513 */ /* x96037 stalin.sc:8841:300537 */ /* x96036 stalin.sc:8841:300552 */ t78247 = a23407; /* x96035 stalin.sc:8841:300538 */ t78244 = f7923(t78247); /* x96034 stalin.sc:8841:300519 */ /* x96033 stalin.sc:8841:300534 */ t78246 = a23407; /* x96032 stalin.sc:8841:300520 */ t78243 = f7923(t78246); /* x96031 stalin.sc:8841:300514 */ t78245.tag = STRUCTURE_TYPE24753; t78245.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t78245.value.structure_type24753)==NULL) {backtrace("stalin.sc", 8841, 300513); out_of_memory_error();} t78245.value.structure_type24753->s0 = t78244; t78245.value.structure_type24753->s1.tag = NULL_TYPE; a34919 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34919==NULL) {backtrace("stalin.sc", 8841, 300513); out_of_memory_error();} a34919->s0 = t78243; a34919->s1 = t78245; /* x271845 */ t78238 = a34919; /* x96043 stalin.sc:8842:300564 */ /* x96042 stalin.sc:8842:300579 */ /* x96041 stalin.sc:8842:300594 */ t78249 = a23407; /* x96040 stalin.sc:8842:300580 */ t78248 = f7927(t78249); /* x96039 stalin.sc:8842:300565 */ t78239 = f7927(t78248); /* x96047 stalin.sc:8843:300606 */ /* x96045 stalin.sc:8843:300626 */ t78250 = p10592->a23399; /* x96046 stalin.sc:8843:300628 */ t78251 = q64; /* x96044 stalin.sc:8843:300607 */ t78252 = t78250; t78240 = f8743(t78252, t78251); /* x96030 stalin.sc:8840:300471 */ t78241.tag = STRUCTURE_TYPE24753; t78241.value.structure_type24753 = t78238; t78242 = t78240; t78235 = f10570(t78241, t78239, t78242); /* x96053 stalin.sc:8844:300653 */ /* x96052 stalin.sc:8844:300668 */ /* x96051 stalin.sc:8844:300683 */ t78254 = a23407; /* x96050 stalin.sc:8844:300669 */ t78253 = f7927(t78254); /* x96049 stalin.sc:8844:300654 */ t78236 = f7923(t78253); /* x96029 stalin.sc:8840:300462 */ t78237.tag = NATIVE_PROCEDURE_TYPE19070; t78237.value.native_procedure_type19070 = t78235; t77358 = f8137(t78237, t78236); goto l14444; l14443: /* x96055 */ t77358.tag = FALSE_TYPE; l14444: break; case NATIVE_PROCEDURE_TYPE19936: p11989 = t77369.value.native_procedure_type19936; a24241 = t77370; /* x107536 stalin.sc:11136:387461 */ /* x107529 stalin.sc:11136:387466 */ /* x107528 stalin.sc:11136:387486 */ t78255 = a24241; /* x107527 stalin.sc:11136:387467 */ a37880 = t78255; /* x284189 */ /* x284188 */ t78256 = a37880; /* x284187 */ if (!((t78256.tag)==STRUCTURE_TYPE27858)) goto l14446; /* x107534 */ /* x107533 stalin.sc:11137:387532 */ t78258 = a24241; /* x107532 stalin.sc:11137:387494 */ /* x107531 stalin.sc:11137:387528 */ t78259 = p11989->a24215; /* x107530 stalin.sc:11137:387495 */ t78257 = f7921(t78259); t77358 = ((t78257&3)==1)?f7905(((struct p7892 *)(t78257-1)), t78258):f7893(((struct p7892 *)t78257), t78258); goto l14447; l14446: /* x107535 */ t77358.tag = FALSE_TYPE; l14447: break; case NATIVE_PROCEDURE_TYPE19937: p11969 = t77369.value.native_procedure_type19937; a24233 = t77370; /* x107322 stalin.sc:11086:385700 */ /* x107315 stalin.sc:11087:385707 */ /* x107314 stalin.sc:11087:385727 */ t78260 = a24233; /* x107313 stalin.sc:11087:385708 */ a37879 = t78260; /* x284185 */ /* x284184 */ t78261 = a37879; /* x284183 */ if (!((t78261.tag)==STRUCTURE_TYPE27858)) goto l14449; /* x107320 */ /* x107319 stalin.sc:11089:385798 */ t78263 = a24233; /* x107318 stalin.sc:11088:385733 */ /* x107317 stalin.sc:11088:385792 */ t78264 = p11969->a24215; /* x107316 stalin.sc:11088:385734 */ t78262 = f7919(t78264); t77358 = ((t78262&3)==1)?f7905(((struct p7892 *)(t78262-1)), t78263):f7893(((struct p7892 *)t78262), t78263); goto l14450; l14449: /* x107321 */ t77358.tag = FALSE_TYPE; l14450: break; case NATIVE_PROCEDURE_TYPE19939: p12506 = t77369.value.native_procedure_type19939; a24644 = t77370; /* x111553 stalin.sc:11936:416822 */ /* x111530 stalin.sc:11936:416827 */ /* x111529 stalin.sc:11936:416851 */ t78265 = a24644; /* x111528 stalin.sc:11936:416828 */ a38091 = t78265; /* x285033 */ /* x285032 */ t78266 = a38091; /* x285031 */ if (!((t78266.tag)==STRUCTURE_TYPE27756)) goto l14452; /* x111551 */ /* x111535 stalin.sc:11937:416863 */ /* x111534 stalin.sc:11937:416901 */ t78268 = a24644; /* x111533 stalin.sc:11937:416864 */ /* x111532 stalin.sc:11937:416898 */ t78269 = p12506->a24626; /* x111531 stalin.sc:11937:416865 */ t78267 = f7918(t78269); if ((t78267&3)==1) {if ((f7905(((struct p7892 *)(t78267-1)), t78268).tag)==FALSE_TYPE) goto l14455;} else if ((f7893(((struct p7892 *)t78267), t78268).tag)==FALSE_TYPE) goto l14455; /* x111549 */ /* x111545 stalin.sc:11939:416924 */ /* x111538 stalin.sc:11940:416948 */ t78272 = a24644; /* x111544 stalin.sc:11941:416954 */ /* x111542 stalin.sc:11942:416979 */ /* x111541 stalin.sc:11942:416997 */ t78278 = p12506->a24626; /* x111540 stalin.sc:11942:416980 */ t78275 = f8739(t78278); /* x111543 stalin.sc:11942:417000 */ t78276 = q64; /* x111539 stalin.sc:11941:416955 */ t78277 = t78275; t78273 = f8743(t78277, t78276); /* x111537 stalin.sc:11939:416925 */ t78274 = t78273; t78270 = f9368(t78272, t78274); /* x111548 stalin.sc:11943:417021 */ /* x111547 stalin.sc:11943:417045 */ t78279 = p12506->p12483->p12482->a24623; /* x111546 stalin.sc:11943:417022 */ a40067 = t78279; /* x292937 */ /* x292936 */ t78280 = a40067; /* x292935 */ if (!((t78280.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34984]"); structure_ref_error();} t78271 = t78280.value.structure_type27698->s9; /* x111536 stalin.sc:11938:416914 */ t77358 = f11621(t78270, t78271); goto l14456; l14455: /* x111550 */ t77358.tag = FALSE_TYPE; l14456: goto l14453; l14452: /* x111552 */ t77358.tag = FALSE_TYPE; l14453: break; case NATIVE_PROCEDURE_TYPE19944: p12505 = t77369.value.native_procedure_type19944; a24643 = t77370; /* x111509 stalin.sc:11951:417234 */ /* x111486 stalin.sc:11952:417247 */ /* x111485 stalin.sc:11952:417271 */ t78281 = a24643; /* x111484 stalin.sc:11952:417248 */ a38090 = t78281; /* x285029 */ /* x285028 */ t78282 = a38090; /* x285027 */ if (!((t78282.tag)==STRUCTURE_TYPE27756)) goto l14458; /* x111507 */ /* x111491 stalin.sc:11953:417282 */ /* x111490 stalin.sc:11954:417347 */ t78284 = a24643; /* x111489 stalin.sc:11953:417283 */ /* x111488 stalin.sc:11953:417342 */ t78285 = p12505->a24626; /* x111487 stalin.sc:11953:417284 */ t78283 = f7919(t78285); if ((t78283&3)==1) {if ((f7905(((struct p7892 *)(t78283-1)), t78284).tag)==FALSE_TYPE) goto l14461;} else if ((f7893(((struct p7892 *)t78283), t78284).tag)==FALSE_TYPE) goto l14461; /* x111505 */ /* x111501 stalin.sc:11956:417368 */ /* x111494 stalin.sc:11957:417391 */ t78288 = a24643; /* x111500 stalin.sc:11958:417396 */ /* x111498 stalin.sc:11959:417420 */ /* x111497 stalin.sc:11959:417438 */ t78294 = p12505->a24626; /* x111496 stalin.sc:11959:417421 */ t78291 = f8739(t78294); /* x111499 stalin.sc:11959:417441 */ t78292 = q64; /* x111495 stalin.sc:11958:417397 */ t78293 = t78291; t78289 = f8743(t78293, t78292); /* x111493 stalin.sc:11956:417369 */ t78290 = t78289; t78286 = f9368(t78288, t78290); /* x111504 stalin.sc:11960:417461 */ /* x111503 stalin.sc:11960:417485 */ t78295 = p12505->p12483->p12482->a24623; /* x111502 stalin.sc:11960:417462 */ a40066 = t78295; /* x292933 */ /* x292932 */ t78296 = a40066; /* x292931 */ if (!((t78296.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34983]"); structure_ref_error();} t78287 = t78296.value.structure_type27698->s9; /* x111492 stalin.sc:11955:417359 */ t77358 = f11621(t78286, t78287); goto l14462; l14461: /* x111506 */ t77358.tag = FALSE_TYPE; l14462: goto l14459; l14458: /* x111508 */ t77358.tag = FALSE_TYPE; l14459: break; case NATIVE_PROCEDURE_TYPE19946: p12504 = t77369.value.native_procedure_type19946; a24642 = t77370; /* x111464 stalin.sc:11965:417636 */ /* x111441 stalin.sc:11965:417641 */ /* x111440 stalin.sc:11965:417665 */ t78297 = a24642; /* x111439 stalin.sc:11965:417642 */ a38089 = t78297; /* x285025 */ /* x285024 */ t78298 = a38089; /* x285023 */ if (!((t78298.tag)==STRUCTURE_TYPE27756)) goto l14464; /* x111462 */ /* x111446 stalin.sc:11966:417674 */ /* x111445 stalin.sc:11966:417712 */ t78300 = a24642; /* x111444 stalin.sc:11966:417675 */ /* x111443 stalin.sc:11966:417709 */ t78301 = p12504->a24626; /* x111442 stalin.sc:11966:417676 */ t78299 = f7920(t78301); if ((t78299&3)==1) {if ((f7905(((struct p7892 *)(t78299-1)), t78300).tag)==FALSE_TYPE) goto l14467;} else if ((f7893(((struct p7892 *)t78299), t78300).tag)==FALSE_TYPE) goto l14467; /* x111460 */ /* x111456 stalin.sc:11968:417736 */ /* x111449 stalin.sc:11969:417764 */ t78304 = a24642; /* x111455 stalin.sc:11970:417774 */ /* x111453 stalin.sc:11971:417803 */ /* x111452 stalin.sc:11971:417821 */ t78310 = p12504->a24626; /* x111451 stalin.sc:11971:417804 */ t78307 = f8739(t78310); /* x111454 stalin.sc:11971:417824 */ t78308 = q64; /* x111450 stalin.sc:11970:417775 */ t78309 = t78307; t78305 = f8743(t78309, t78308); /* x111448 stalin.sc:11968:417737 */ t78306 = t78305; t78302 = f9368(t78304, t78306); /* x111459 stalin.sc:11972:417849 */ /* x111458 stalin.sc:11972:417873 */ t78311 = p12504->p12483->p12482->a24623; /* x111457 stalin.sc:11972:417850 */ a40065 = t78311; /* x292929 */ /* x292928 */ t78312 = a40065; /* x292927 */ if (!((t78312.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34982]"); structure_ref_error();} t78303 = t78312.value.structure_type27698->s9; /* x111447 stalin.sc:11967:417722 */ t77358 = f11621(t78302, t78303); goto l14468; l14467: /* x111461 */ t77358.tag = FALSE_TYPE; l14468: goto l14465; l14464: /* x111463 */ t77358.tag = FALSE_TYPE; l14465: break; case NATIVE_PROCEDURE_TYPE19948: p12503 = t77369.value.native_procedure_type19948; a24641 = t77370; /* x111428 stalin.sc:11976:417971 */ /* x111405 stalin.sc:11976:417976 */ /* x111404 stalin.sc:11976:418000 */ t78313 = a24641; /* x111403 stalin.sc:11976:417977 */ a38088 = t78313; /* x285021 */ /* x285020 */ t78314 = a38088; /* x285019 */ if (!((t78314.tag)==STRUCTURE_TYPE27756)) goto l14470; /* x111426 */ /* x111410 stalin.sc:11977:418009 */ /* x111409 stalin.sc:11977:418047 */ t78316 = a24641; /* x111408 stalin.sc:11977:418010 */ /* x111407 stalin.sc:11977:418044 */ t78317 = p12503->a24626; /* x111406 stalin.sc:11977:418011 */ t78315 = f7921(t78317); if ((t78315&3)==1) {if ((f7905(((struct p7892 *)(t78315-1)), t78316).tag)==FALSE_TYPE) goto l14473;} else if ((f7893(((struct p7892 *)t78315), t78316).tag)==FALSE_TYPE) goto l14473; /* x111424 */ /* x111420 stalin.sc:11979:418071 */ /* x111413 stalin.sc:11980:418099 */ t78320 = a24641; /* x111419 stalin.sc:11981:418109 */ /* x111417 stalin.sc:11982:418138 */ /* x111416 stalin.sc:11982:418156 */ t78326 = p12503->a24626; /* x111415 stalin.sc:11982:418139 */ t78323 = f8739(t78326); /* x111418 stalin.sc:11982:418159 */ t78324 = q65; /* x111414 stalin.sc:11981:418110 */ t78325 = t78323; t78321 = f8743(t78325, t78324); /* x111412 stalin.sc:11979:418072 */ t78322 = t78321; t78318 = f9368(t78320, t78322); /* x111423 stalin.sc:11983:418185 */ /* x111422 stalin.sc:11983:418209 */ t78327 = p12503->p12483->p12482->a24623; /* x111421 stalin.sc:11983:418186 */ a40064 = t78327; /* x292925 */ /* x292924 */ t78328 = a40064; /* x292923 */ if (!((t78328.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34981]"); structure_ref_error();} t78319 = t78328.value.structure_type27698->s9; /* x111411 stalin.sc:11978:418057 */ t77358 = f11621(t78318, t78319); goto l14474; l14473: /* x111425 */ t77358.tag = FALSE_TYPE; l14474: goto l14471; l14470: /* x111427 */ t77358.tag = FALSE_TYPE; l14471: break; case NATIVE_PROCEDURE_TYPE19950: p12501 = t77369.value.native_procedure_type19950; a24639 = t77370; /* x111383 stalin.sc:11988:418352 */ /* x111360 stalin.sc:11988:418357 */ /* x111359 stalin.sc:11988:418381 */ t78329 = a24639; /* x111358 stalin.sc:11988:418358 */ a38087 = t78329; /* x285017 */ /* x285016 */ t78330 = a38087; /* x285015 */ if (!((t78330.tag)==STRUCTURE_TYPE27756)) goto l14476; /* x111381 */ /* x111365 stalin.sc:11989:418393 */ /* x111364 stalin.sc:11989:418431 */ t78332 = a24639; /* x111363 stalin.sc:11989:418394 */ /* x111362 stalin.sc:11989:418428 */ t78333 = p12501->a24626; /* x111361 stalin.sc:11989:418395 */ t78331 = f7922(t78333); if ((t78331&3)==1) {if ((f7905(((struct p7892 *)(t78331-1)), t78332).tag)==FALSE_TYPE) goto l14479;} else if ((f7893(((struct p7892 *)t78331), t78332).tag)==FALSE_TYPE) goto l14479; /* x111379 */ /* x111375 stalin.sc:11991:418454 */ /* x111368 stalin.sc:11992:418478 */ t78336 = a24639; /* x111374 stalin.sc:11993:418484 */ /* x111372 stalin.sc:11994:418509 */ /* x111371 stalin.sc:11994:418527 */ t78342 = p12501->a24626; /* x111370 stalin.sc:11994:418510 */ t78339 = f8739(t78342); /* x111373 stalin.sc:11994:418530 */ t78340 = q64; /* x111369 stalin.sc:11993:418485 */ t78341 = t78339; t78337 = f8743(t78341, t78340); /* x111367 stalin.sc:11991:418455 */ t78338 = t78337; t78334 = f9368(t78336, t78338); /* x111378 stalin.sc:11995:418551 */ /* x111377 stalin.sc:11995:418575 */ t78343 = p12501->p12483->p12482->a24623; /* x111376 stalin.sc:11995:418552 */ a40063 = t78343; /* x292921 */ /* x292920 */ t78344 = a40063; /* x292919 */ if (!((t78344.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34980]"); structure_ref_error();} t78335 = t78344.value.structure_type27698->s9; /* x111366 stalin.sc:11990:418444 */ t77358 = f11621(t78334, t78335); goto l14480; l14479: /* x111380 */ t77358.tag = FALSE_TYPE; l14480: goto l14477; l14476: /* x111382 */ t77358.tag = FALSE_TYPE; l14477: break; case NATIVE_PROCEDURE_TYPE19951: p12481 = t77369.value.native_procedure_type19951; a24621 = t77370; /* x111228 stalin.sc:12019:419326 */ /* x111228 stalin.sc:12019:419326 */ /* x111192 stalin.sc:12020:419338 */ /* x111191 stalin.sc:12020:419362 */ t78345 = a24621; /* x111190 stalin.sc:12020:419339 */ a38086 = t78345; /* x285013 */ /* x285012 */ t78346 = a38086; /* x285011 */ if (!((t78346.tag)==STRUCTURE_TYPE27756)) goto l14482; /* x111226 */ /* x111210 stalin.sc:12021:419372 */ /* x111209 stalin.sc:12026:419560 */ t78348 = a24621; /* x111208 stalin.sc:12021:419373 */ /* x111200 stalin.sc:12022:419411 */ /* x111199 stalin.sc:12022:419417 */ /* x111198 stalin.sc:12022:419444 */ /* x111197 stalin.sc:12022:419460 */ t78358 = p12481->a24619; /* x111196 stalin.sc:12022:419445 */ t78356 = f7110(t78358); /* x111195 stalin.sc:12022:419418 */ t78357 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t78357==NULL) {backtrace("stalin.sc", 12022, 419417); out_of_memory_error();} t78357->s0.tag = STRUCTURE_TYPE27858; t78357->s0.value.structure_type27858 = t78356; t78357->s1.tag = NULL_TYPE; t78355 = f8098(t78357); /* x111194 stalin.sc:12022:419412 */ a35147 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35147==NULL) {backtrace("stalin.sc", 12022, 419411); out_of_memory_error();} a35147->s0.tag = STRUCTURE_TYPE27650; a35147->s0.value.structure_type27650 = t78355; a35147->s1.tag = NULL_TYPE; /* x272301 */ t78349 = a35147; /* x111201 stalin.sc:12023:419474 */ t78350 = a1675; /* x111207 stalin.sc:12024:419490 */ /* x111205 stalin.sc:12025:419513 */ /* x111204 stalin.sc:12025:419531 */ t78362 = p12481->a24619; /* x111203 stalin.sc:12025:419514 */ t78359 = f8739(t78362); /* x111206 stalin.sc:12025:419534 */ t78360 = q64; /* x111202 stalin.sc:12024:419491 */ t78361 = t78359; t78351 = f8743(t78361, t78360); /* x111193 stalin.sc:12021:419374 */ t78352.tag = STRUCTURE_TYPE24753; t78352.value.structure_type24753 = t78349; /* MOVE: branching squeezed to general */ if (t78350>=((struct structure_type27650 *)VALUE_OFFSET)) {t78353.tag = STRUCTURE_TYPE27650; t78353.value.structure_type27650 = t78350;} else t78353.tag = (unsigned)t78350; t78354 = t78351; t78347 = f7892(t78352, t78353, t78354); if ((t78347&3)==1) {if ((f7905(((struct p7892 *)(t78347-1)), t78348).tag)==FALSE_TYPE) goto l14482;} else if ((f7893(((struct p7892 *)t78347), t78348).tag)==FALSE_TYPE) goto l14482; /* x111224 */ /* x111214 stalin.sc:12027:419580 */ /* x111213 stalin.sc:12027:419596 */ t78366 = p12481->a24619; /* x111212 stalin.sc:12027:419581 */ t78363 = f7110(t78366); /* x111223 stalin.sc:12028:419609 */ /* x111216 stalin.sc:12029:419633 */ t78367 = a24621; /* x111222 stalin.sc:12030:419639 */ /* x111220 stalin.sc:12031:419664 */ /* x111219 stalin.sc:12031:419682 */ t78373 = p12481->a24619; /* x111218 stalin.sc:12031:419665 */ t78370 = f8739(t78373); /* x111221 stalin.sc:12031:419685 */ t78371 = q64; /* x111217 stalin.sc:12030:419640 */ t78372 = t78370; t78368 = f8743(t78372, t78371); /* x111215 stalin.sc:12028:419610 */ t78369 = t78368; t78364 = f9368(t78367, t78369); /* x111211 stalin.sc:12027:419571 */ t78365.tag = STRUCTURE_TYPE27858; t78365.value.structure_type27858 = t78363; if (f8086(t78365, t78364)==FALSE_TYPE) goto l14482; t77358.tag = TRUE_TYPE; goto l14483; l14482: t77358.tag = FALSE_TYPE; l14483: break; case NATIVE_PROCEDURE_TYPE19964: p10558 = t77369.value.native_procedure_type19964; a23386 = t77370; /* x95701 stalin.sc:8692:295186 */ /* x95676 stalin.sc:8693:295196 */ /* x95675 stalin.sc:8693:295222 */ t78375 = a23386; /* x95674 stalin.sc:8693:295197 */ /* x95673 stalin.sc:8693:295219 */ t78376 = 1; /* x95672 stalin.sc:8693:295198 */ t78374 = f7736(t78376); if ((f7737(t78374, t78375).tag)==FALSE_TYPE) goto l14487; /* x95699 */ /* x95695 stalin.sc:8695:295245 */ /* x95687 stalin.sc:8696:295262 */ /* x95686 stalin.sc:8696:295268 */ /* x95685 stalin.sc:8697:295302 */ /* x95684 stalin.sc:8697:295318 */ /* x95683 stalin.sc:8697:295340 */ t78389 = p10558->a23368; /* x95682 stalin.sc:8697:295319 */ a36447 = t78389; /* x278457 */ /* x278456 */ t78390 = a36447; /* x278455 */ if (!(t78390>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31364]"); structure_ref_error();} t78388 = t78390->s0; /* x95681 stalin.sc:8697:295303 */ t78386 = f7110(t78388); /* x95680 stalin.sc:8696:295269 */ t78387 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t78387==NULL) {backtrace("stalin.sc", 8696, 295268); out_of_memory_error();} t78387->s0.tag = STRUCTURE_TYPE27858; t78387->s0.value.structure_type27858 = t78386; t78387->s1.tag = NULL_TYPE; t78385 = f8098(t78387); /* x95679 stalin.sc:8696:295263 */ a35144 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35144==NULL) {backtrace("stalin.sc", 8696, 295262); out_of_memory_error();} a35144->s0.tag = STRUCTURE_TYPE27650; a35144->s0.value.structure_type27650 = t78385; a35144->s1.tag = NULL_TYPE; /* x272295 */ t78380 = a35144; /* x95690 stalin.sc:8698:295353 */ /* x95689 stalin.sc:8698:295368 */ t78391 = a23386; /* x95688 stalin.sc:8698:295354 */ t78381 = f7927(t78391); /* x95694 stalin.sc:8699:295378 */ /* x95692 stalin.sc:8699:295398 */ t78392 = p10558->a23368; /* x95693 stalin.sc:8699:295400 */ t78393 = q64; /* x95691 stalin.sc:8699:295379 */ t78382 = f8743(t78392, t78393); /* x95678 stalin.sc:8695:295246 */ t78383.tag = STRUCTURE_TYPE24753; t78383.value.structure_type24753 = t78380; t78384 = t78382; t78377 = f10532(t78383, t78381, t78384); /* x95698 stalin.sc:8700:295424 */ /* x95697 stalin.sc:8700:295439 */ t78394 = a23386; /* x95696 stalin.sc:8700:295425 */ t78378 = f7923(t78394); /* x95677 stalin.sc:8694:295231 */ t78379.tag = NATIVE_PROCEDURE_TYPE17628; t78379.value.native_procedure_type17628 = t78377; t77358 = f8137(t78379, t78378); goto l14488; l14487: /* x95700 */ t77358.tag = FALSE_TYPE; l14488: break; case NATIVE_PROCEDURE_TYPE19967: p10556 = t77369.value.native_procedure_type19967; a23385 = t77370; /* x95631 stalin.sc:8675:294720 */ /* x95607 stalin.sc:8675:294725 */ /* x95606 stalin.sc:8675:294751 */ t78396 = a23385; /* x95605 stalin.sc:8675:294726 */ /* x95604 stalin.sc:8675:294748 */ t78397 = 1; /* x95603 stalin.sc:8675:294727 */ t78395 = f7736(t78397); if ((f7737(t78395, t78396).tag)==FALSE_TYPE) goto l14490; /* x95629 */ /* x95625 stalin.sc:8677:294778 */ /* x95617 stalin.sc:8677:294788 */ /* x95616 stalin.sc:8677:294805 */ /* x95615 stalin.sc:8677:294812 */ t78411 = p10556->a23366; /* x95614 stalin.sc:8677:294806 */ a35992 = t78411; /* x275325 */ /* x275324 */ t78412 = a35992; /* x275323 */ if (!((t78412.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30141]"); structure_ref_error();} t78407 = t78412.value.structure_type24753->s0; /* x95613 stalin.sc:8677:294794 */ /* x95612 stalin.sc:8677:294801 */ t78409 = p10556->a23366; /* x95611 stalin.sc:8677:294795 */ a35991 = t78409; /* x275321 */ /* x275320 */ t78410 = a35991; /* x275319 */ if (!((t78410.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30140]"); structure_ref_error();} t78406 = t78410.value.structure_type24753->s0; /* x95610 stalin.sc:8677:294789 */ t78408.tag = STRUCTURE_TYPE24753; t78408.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t78408.value.structure_type24753)==NULL) {backtrace("stalin.sc", 8677, 294788); out_of_memory_error();} t78408.value.structure_type24753->s0 = t78407; t78408.value.structure_type24753->s1.tag = NULL_TYPE; a35143 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35143==NULL) {backtrace("stalin.sc", 8677, 294788); out_of_memory_error();} a35143->s0 = t78406; a35143->s1 = t78408; /* x272293 */ t78401 = a35143; /* x95620 stalin.sc:8678:294828 */ /* x95619 stalin.sc:8678:294843 */ t78413 = a23385; /* x95618 stalin.sc:8678:294829 */ t78402 = f7927(t78413); /* x95624 stalin.sc:8679:294857 */ /* x95622 stalin.sc:8679:294877 */ t78414 = p10556->a23368; /* x95623 stalin.sc:8679:294879 */ t78415 = q64; /* x95621 stalin.sc:8679:294858 */ t78403 = f8743(t78414, t78415); /* x95609 stalin.sc:8677:294779 */ t78404.tag = STRUCTURE_TYPE24753; t78404.value.structure_type24753 = t78401; t78405 = t78403; t78398 = f10532(t78404, t78402, t78405); /* x95628 stalin.sc:8680:294905 */ /* x95627 stalin.sc:8680:294920 */ t78416 = a23385; /* x95626 stalin.sc:8680:294906 */ t78399 = f7923(t78416); /* x95608 stalin.sc:8676:294762 */ t78400.tag = NATIVE_PROCEDURE_TYPE17628; t78400.value.native_procedure_type17628 = t78398; t77358 = f8137(t78400, t78399); goto l14491; l14490: /* x95630 */ t77358.tag = FALSE_TYPE; l14491: break; case NATIVE_PROCEDURE_TYPE19969: p10554 = t77369.value.native_procedure_type19969; a23384 = t77370; /* x95591 stalin.sc:8664:294381 */ /* x95563 stalin.sc:8664:294386 */ /* x95562 stalin.sc:8664:294412 */ t78418 = a23384; /* x95561 stalin.sc:8664:294387 */ /* x95560 stalin.sc:8664:294409 */ t78419 = 2; /* x95559 stalin.sc:8664:294388 */ t78417 = f7736(t78419); if ((f7737(t78417, t78418).tag)==FALSE_TYPE) goto l14493; /* x95589 */ /* x95583 stalin.sc:8666:294439 */ /* x95573 stalin.sc:8667:294458 */ /* x95572 stalin.sc:8667:294482 */ /* x95571 stalin.sc:8667:294497 */ t78432 = a23384; /* x95570 stalin.sc:8667:294483 */ t78429 = f7923(t78432); /* x95569 stalin.sc:8667:294464 */ /* x95568 stalin.sc:8667:294479 */ t78431 = a23384; /* x95567 stalin.sc:8667:294465 */ t78428 = f7923(t78431); /* x95566 stalin.sc:8667:294459 */ t78430.tag = STRUCTURE_TYPE24753; t78430.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t78430.value.structure_type24753)==NULL) {backtrace("stalin.sc", 8667, 294458); out_of_memory_error();} t78430.value.structure_type24753->s0 = t78429; t78430.value.structure_type24753->s1.tag = NULL_TYPE; a34918 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34918==NULL) {backtrace("stalin.sc", 8667, 294458); out_of_memory_error();} a34918->s0 = t78428; a34918->s1 = t78430; /* x271843 */ t78423 = a34918; /* x95578 stalin.sc:8668:294510 */ /* x95577 stalin.sc:8668:294525 */ /* x95576 stalin.sc:8668:294540 */ t78434 = a23384; /* x95575 stalin.sc:8668:294526 */ t78433 = f7927(t78434); /* x95574 stalin.sc:8668:294511 */ t78424 = f7927(t78433); /* x95582 stalin.sc:8669:294553 */ /* x95580 stalin.sc:8669:294573 */ t78435 = p10554->a23368; /* x95581 stalin.sc:8669:294575 */ t78436 = q64; /* x95579 stalin.sc:8669:294554 */ t78425 = f8743(t78435, t78436); /* x95565 stalin.sc:8666:294440 */ t78426.tag = STRUCTURE_TYPE24753; t78426.value.structure_type24753 = t78423; t78427 = t78425; t78420 = f10532(t78426, t78424, t78427); /* x95588 stalin.sc:8670:294601 */ /* x95587 stalin.sc:8670:294616 */ /* x95586 stalin.sc:8670:294631 */ t78438 = a23384; /* x95585 stalin.sc:8670:294617 */ t78437 = f7927(t78438); /* x95584 stalin.sc:8670:294602 */ t78421 = f7923(t78437); /* x95564 stalin.sc:8665:294423 */ t78422.tag = NATIVE_PROCEDURE_TYPE17628; t78422.value.native_procedure_type17628 = t78420; t77358 = f8137(t78422, t78421); goto l14494; l14493: /* x95590 */ t77358.tag = FALSE_TYPE; l14494: break; case NATIVE_PROCEDURE_TYPE19974: p10548 = t77369.value.native_procedure_type19974; a23380 = t77370; /* x95474 stalin.sc:8640:293718 */ /* x95457 stalin.sc:8640:293723 */ /* x95456 stalin.sc:8640:293758 */ t78440 = a23380; /* x95455 stalin.sc:8640:293724 */ /* x95454 stalin.sc:8640:293755 */ t78441 = 1; /* x95453 stalin.sc:8640:293725 */ t78439 = f7738(t78441); if ((f7739(t78439, t78440).tag)==FALSE_TYPE) goto l14496; /* x95472 */ /* x95468 stalin.sc:8642:293781 */ /* x95460 stalin.sc:8642:293791 */ /* x95463 stalin.sc:8643:293804 */ /* x95462 stalin.sc:8643:293819 */ t78449 = a23380; /* x95461 stalin.sc:8643:293805 */ t78445 = f7927(t78449); /* x95467 stalin.sc:8644:293831 */ /* x95465 stalin.sc:8644:293851 */ t78450 = p10548->a23368; /* x95466 stalin.sc:8644:293853 */ t78451 = q64; /* x95464 stalin.sc:8644:293832 */ t78446 = f8743(t78450, t78451); /* x95459 stalin.sc:8642:293782 */ t78447.tag = NULL_TYPE; t78448 = t78446; t78442 = f10532(t78447, t78445, t78448); /* x95471 stalin.sc:8645:293877 */ /* x95470 stalin.sc:8645:293892 */ t78452 = a23380; /* x95469 stalin.sc:8645:293878 */ t78443 = f7923(t78452); /* x95458 stalin.sc:8641:293767 */ t78444.tag = NATIVE_PROCEDURE_TYPE17628; t78444.value.native_procedure_type17628 = t78442; t77358 = f8137(t78444, t78443); goto l14497; l14496: /* x95473 */ t77358.tag = FALSE_TYPE; l14497: break; case NATIVE_PROCEDURE_TYPE19978: p10545 = t77369.value.native_procedure_type19978; a23378 = t77370; /* x95380 stalin.sc:8618:293114 */ /* x95363 stalin.sc:8619:293125 */ /* x95362 stalin.sc:8619:293160 */ t78454 = a23378; /* x95361 stalin.sc:8619:293126 */ /* x95360 stalin.sc:8619:293157 */ t78455 = 1; /* x95359 stalin.sc:8619:293127 */ t78453 = f7738(t78455); if ((f7739(t78453, t78454).tag)==FALSE_TYPE) goto l14499; /* x95378 */ /* x95374 stalin.sc:8620:293178 */ /* x95366 stalin.sc:8620:293188 */ t78459 = p10545->a23366; /* x95369 stalin.sc:8621:293202 */ /* x95368 stalin.sc:8621:293217 */ t78463 = a23378; /* x95367 stalin.sc:8621:293203 */ t78460 = f7927(t78463); /* x95373 stalin.sc:8622:293231 */ /* x95371 stalin.sc:8622:293251 */ t78464 = p10545->a23368; /* x95372 stalin.sc:8622:293253 */ t78465 = q64; /* x95370 stalin.sc:8622:293232 */ t78461 = f8743(t78464, t78465); /* x95365 stalin.sc:8620:293179 */ t78462 = t78461; t78456 = f10532(t78459, t78460, t78462); /* x95377 stalin.sc:8623:293279 */ /* x95376 stalin.sc:8623:293294 */ t78466 = a23378; /* x95375 stalin.sc:8623:293280 */ t78457 = f7923(t78466); /* x95364 stalin.sc:8620:293170 */ t78458.tag = NATIVE_PROCEDURE_TYPE17628; t78458.value.native_procedure_type17628 = t78456; t77358 = f8137(t78458, t78457); goto l14500; l14499: /* x95379 */ t77358.tag = FALSE_TYPE; l14500: break; case NATIVE_PROCEDURE_TYPE19980: p10543 = t77369.value.native_procedure_type19980; a23377 = t77370; /* x95347 stalin.sc:8608:292812 */ /* x95322 stalin.sc:8609:292823 */ /* x95321 stalin.sc:8609:292858 */ t78468 = a23377; /* x95320 stalin.sc:8609:292824 */ /* x95319 stalin.sc:8609:292855 */ t78469 = 2; /* x95318 stalin.sc:8609:292825 */ t78467 = f7738(t78469); if ((f7739(t78467, t78468).tag)==FALSE_TYPE) goto l14502; /* x95345 */ /* x95339 stalin.sc:8610:292876 */ /* x95329 stalin.sc:8610:292886 */ /* x95328 stalin.sc:8610:292892 */ /* x95327 stalin.sc:8610:292907 */ t78479 = a23377; /* x95326 stalin.sc:8610:292893 */ t78478 = f7923(t78479); /* x95325 stalin.sc:8610:292887 */ a34917 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34917==NULL) {backtrace("stalin.sc", 8610, 292886); out_of_memory_error();} a34917->s0 = t78478; a34917->s1.tag = NULL_TYPE; /* x271841 */ t78473 = a34917; /* x95334 stalin.sc:8611:292922 */ /* x95333 stalin.sc:8611:292937 */ /* x95332 stalin.sc:8611:292952 */ t78481 = a23377; /* x95331 stalin.sc:8611:292938 */ t78480 = f7927(t78481); /* x95330 stalin.sc:8611:292923 */ t78474 = f7927(t78480); /* x95338 stalin.sc:8612:292967 */ /* x95336 stalin.sc:8612:292987 */ t78482 = p10543->a23368; /* x95337 stalin.sc:8612:292989 */ t78483 = q64; /* x95335 stalin.sc:8612:292968 */ t78475 = f8743(t78482, t78483); /* x95324 stalin.sc:8610:292877 */ t78476.tag = STRUCTURE_TYPE24753; t78476.value.structure_type24753 = t78473; t78477 = t78475; t78470 = f10532(t78476, t78474, t78477); /* x95344 stalin.sc:8613:293015 */ /* x95343 stalin.sc:8613:293030 */ /* x95342 stalin.sc:8613:293045 */ t78485 = a23377; /* x95341 stalin.sc:8613:293031 */ t78484 = f7927(t78485); /* x95340 stalin.sc:8613:293016 */ t78471 = f7923(t78484); /* x95323 stalin.sc:8610:292868 */ t78472.tag = NATIVE_PROCEDURE_TYPE17628; t78472.value.native_procedure_type17628 = t78470; t77358 = f8137(t78472, t78471); goto l14503; l14502: /* x95346 */ t77358.tag = FALSE_TYPE; l14503: break; case NATIVE_PROCEDURE_TYPE20004: p10519 = t77369.value.native_procedure_type20004; a23363 = t77370; /* x95069 stalin.sc:8554:291035 */ /* x95044 stalin.sc:8555:291049 */ /* x95043 stalin.sc:8555:291075 */ t78487 = a23363; /* x95042 stalin.sc:8555:291050 */ /* x95041 stalin.sc:8555:291072 */ t78488 = 1; /* x95040 stalin.sc:8555:291051 */ t78486 = f7736(t78488); if ((f7737(t78486, t78487).tag)==FALSE_TYPE) goto l14505; /* x95067 */ /* x95063 stalin.sc:8557:291099 */ /* x95055 stalin.sc:8558:291115 */ /* x95054 stalin.sc:8558:291121 */ /* x95053 stalin.sc:8559:291152 */ /* x95052 stalin.sc:8559:291168 */ /* x95051 stalin.sc:8559:291190 */ t78500 = p10519->a23349; /* x95050 stalin.sc:8559:291169 */ a36445 = t78500; /* x278449 */ /* x278448 */ t78501 = a36445; /* x278447 */ t78499 = t78501->s0; /* x95049 stalin.sc:8559:291153 */ t78497 = f7110(t78499); /* x95048 stalin.sc:8558:291122 */ t78498 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t78498==NULL) {backtrace("stalin.sc", 8558, 291121); out_of_memory_error();} t78498->s0.tag = STRUCTURE_TYPE27858; t78498->s0.value.structure_type27858 = t78497; t78498->s1.tag = NULL_TYPE; t78496 = f8098(t78498); /* x95047 stalin.sc:8558:291116 */ a35140 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35140==NULL) {backtrace("stalin.sc", 8558, 291115); out_of_memory_error();} a35140->s0.tag = STRUCTURE_TYPE27650; a35140->s0.value.structure_type27650 = t78496; a35140->s1.tag = NULL_TYPE; /* x272287 */ t78492 = a35140; /* x95058 stalin.sc:8560:291200 */ /* x95057 stalin.sc:8560:291215 */ t78502 = a23363; /* x95056 stalin.sc:8560:291201 */ t78493 = f7927(t78502); /* x95062 stalin.sc:8561:291222 */ /* x95060 stalin.sc:8561:291242 */ t78503 = p10519->a23349; /* x95061 stalin.sc:8561:291244 */ t78504 = q64; /* x95059 stalin.sc:8561:291223 */ t78505 = t78503; t78494 = f8743(t78505, t78504); /* x95046 stalin.sc:8557:291100 */ t78495.tag = STRUCTURE_TYPE24753; t78495.value.structure_type24753 = t78492; t78489 = f10497(t78495, t78493, t78494); /* x95066 stalin.sc:8562:291265 */ /* x95065 stalin.sc:8562:291280 */ t78506 = a23363; /* x95064 stalin.sc:8562:291266 */ t78490 = f7923(t78506); /* x95045 stalin.sc:8556:291088 */ t78491.tag = NATIVE_PROCEDURE_TYPE17625; t78491.value.native_procedure_type17625 = t78489; t77358 = f8137(t78491, t78490); goto l14506; l14505: /* x95068 */ t77358.tag = FALSE_TYPE; l14506: break; case NATIVE_PROCEDURE_TYPE20007: p10517 = t77369.value.native_procedure_type20007; a23362 = t77370; /* x94999 stalin.sc:8537:290598 */ /* x94975 stalin.sc:8537:290603 */ /* x94974 stalin.sc:8537:290629 */ t78508 = a23362; /* x94973 stalin.sc:8537:290604 */ /* x94972 stalin.sc:8537:290626 */ t78509 = 1; /* x94971 stalin.sc:8537:290605 */ t78507 = f7736(t78509); if ((f7737(t78507, t78508).tag)==FALSE_TYPE) goto l14508; /* x94997 */ /* x94993 stalin.sc:8539:290650 */ /* x94985 stalin.sc:8539:290662 */ /* x94984 stalin.sc:8539:290679 */ /* x94983 stalin.sc:8539:290686 */ t78522 = p10517->a23347; /* x94982 stalin.sc:8539:290680 */ a35984 = t78522; /* x275293 */ /* x275292 */ t78523 = a35984; /* x275291 */ if (!((t78523.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30133]"); structure_ref_error();} t78518 = t78523.value.structure_type24753->s0; /* x94981 stalin.sc:8539:290668 */ /* x94980 stalin.sc:8539:290675 */ t78520 = p10517->a23347; /* x94979 stalin.sc:8539:290669 */ a35983 = t78520; /* x275289 */ /* x275288 */ t78521 = a35983; /* x275287 */ if (!((t78521.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30132]"); structure_ref_error();} t78517 = t78521.value.structure_type24753->s0; /* x94978 stalin.sc:8539:290663 */ t78519.tag = STRUCTURE_TYPE24753; t78519.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t78519.value.structure_type24753)==NULL) {backtrace("stalin.sc", 8539, 290662); out_of_memory_error();} t78519.value.structure_type24753->s0 = t78518; t78519.value.structure_type24753->s1.tag = NULL_TYPE; a35139 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35139==NULL) {backtrace("stalin.sc", 8539, 290662); out_of_memory_error();} a35139->s0 = t78517; a35139->s1 = t78519; /* x272285 */ t78513 = a35139; /* x94988 stalin.sc:8540:290701 */ /* x94987 stalin.sc:8540:290716 */ t78524 = a23362; /* x94986 stalin.sc:8540:290702 */ t78514 = f7927(t78524); /* x94992 stalin.sc:8541:290729 */ /* x94990 stalin.sc:8541:290749 */ t78525 = p10517->a23349; /* x94991 stalin.sc:8541:290751 */ t78526 = q64; /* x94989 stalin.sc:8541:290730 */ t78527 = t78525; t78515 = f8743(t78527, t78526); /* x94977 stalin.sc:8539:290651 */ t78516.tag = STRUCTURE_TYPE24753; t78516.value.structure_type24753 = t78513; t78510 = f10497(t78516, t78514, t78515); /* x94996 stalin.sc:8542:290774 */ /* x94995 stalin.sc:8542:290789 */ t78528 = a23362; /* x94994 stalin.sc:8542:290775 */ t78511 = f7923(t78528); /* x94976 stalin.sc:8538:290637 */ t78512.tag = NATIVE_PROCEDURE_TYPE17625; t78512.value.native_procedure_type17625 = t78510; t77358 = f8137(t78512, t78511); goto l14509; l14508: /* x94998 */ t77358.tag = FALSE_TYPE; l14509: break; case NATIVE_PROCEDURE_TYPE20009: p10515 = t77369.value.native_procedure_type20009; a23361 = t77370; /* x94959 stalin.sc:8526:290290 */ /* x94931 stalin.sc:8526:290295 */ /* x94930 stalin.sc:8526:290321 */ t78530 = a23361; /* x94929 stalin.sc:8526:290296 */ /* x94928 stalin.sc:8526:290318 */ t78531 = 2; /* x94927 stalin.sc:8526:290297 */ t78529 = f7736(t78531); if ((f7737(t78529, t78530).tag)==FALSE_TYPE) goto l14511; /* x94957 */ /* x94951 stalin.sc:8528:290342 */ /* x94941 stalin.sc:8529:290360 */ /* x94940 stalin.sc:8529:290384 */ /* x94939 stalin.sc:8529:290399 */ t78543 = a23361; /* x94938 stalin.sc:8529:290385 */ t78540 = f7923(t78543); /* x94937 stalin.sc:8529:290366 */ /* x94936 stalin.sc:8529:290381 */ t78542 = a23361; /* x94935 stalin.sc:8529:290367 */ t78539 = f7923(t78542); /* x94934 stalin.sc:8529:290361 */ t78541.tag = STRUCTURE_TYPE24753; t78541.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t78541.value.structure_type24753)==NULL) {backtrace("stalin.sc", 8529, 290360); out_of_memory_error();} t78541.value.structure_type24753->s0 = t78540; t78541.value.structure_type24753->s1.tag = NULL_TYPE; a34916 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34916==NULL) {backtrace("stalin.sc", 8529, 290360); out_of_memory_error();} a34916->s0 = t78539; a34916->s1 = t78541; /* x271839 */ t78535 = a34916; /* x94946 stalin.sc:8530:290409 */ /* x94945 stalin.sc:8530:290424 */ /* x94944 stalin.sc:8530:290439 */ t78545 = a23361; /* x94943 stalin.sc:8530:290425 */ t78544 = f7927(t78545); /* x94942 stalin.sc:8530:290410 */ t78536 = f7927(t78544); /* x94950 stalin.sc:8531:290449 */ /* x94948 stalin.sc:8531:290469 */ t78546 = p10515->a23349; /* x94949 stalin.sc:8531:290471 */ t78547 = q64; /* x94947 stalin.sc:8531:290450 */ t78548 = t78546; t78537 = f8743(t78548, t78547); /* x94933 stalin.sc:8528:290343 */ t78538.tag = STRUCTURE_TYPE24753; t78538.value.structure_type24753 = t78535; t78532 = f10497(t78538, t78536, t78537); /* x94956 stalin.sc:8532:290494 */ /* x94955 stalin.sc:8532:290509 */ /* x94954 stalin.sc:8532:290524 */ t78550 = a23361; /* x94953 stalin.sc:8532:290510 */ t78549 = f7927(t78550); /* x94952 stalin.sc:8532:290495 */ t78533 = f7923(t78549); /* x94932 stalin.sc:8527:290329 */ t78534.tag = NATIVE_PROCEDURE_TYPE17625; t78534.value.native_procedure_type17625 = t78532; t77358 = f8137(t78534, t78533); goto l14512; l14511: /* x94958 */ t77358.tag = FALSE_TYPE; l14512: break; case NATIVE_PROCEDURE_TYPE20014: p10509 = t77369.value.native_procedure_type20014; a23357 = t77370; /* x94842 stalin.sc:8502:289643 */ /* x94825 stalin.sc:8502:289648 */ /* x94824 stalin.sc:8502:289683 */ t78552 = a23357; /* x94823 stalin.sc:8502:289649 */ /* x94822 stalin.sc:8502:289680 */ t78553 = 1; /* x94821 stalin.sc:8502:289650 */ t78551 = f7738(t78553); if ((f7739(t78551, t78552).tag)==FALSE_TYPE) goto l14514; /* x94840 */ /* x94836 stalin.sc:8504:289707 */ /* x94828 stalin.sc:8504:289719 */ /* x94831 stalin.sc:8505:289731 */ /* x94830 stalin.sc:8505:289746 */ t78560 = a23357; /* x94829 stalin.sc:8505:289732 */ t78557 = f7927(t78560); /* x94835 stalin.sc:8506:289757 */ /* x94833 stalin.sc:8506:289777 */ t78561 = p10509->a23349; /* x94834 stalin.sc:8506:289779 */ t78562 = q64; /* x94832 stalin.sc:8506:289758 */ t78563 = t78561; t78558 = f8743(t78563, t78562); /* x94827 stalin.sc:8504:289708 */ t78559.tag = NULL_TYPE; t78554 = f10497(t78559, t78557, t78558); /* x94839 stalin.sc:8507:289800 */ /* x94838 stalin.sc:8507:289815 */ t78564 = a23357; /* x94837 stalin.sc:8507:289801 */ t78555 = f7923(t78564); /* x94826 stalin.sc:8503:289696 */ t78556.tag = NATIVE_PROCEDURE_TYPE17625; t78556.value.native_procedure_type17625 = t78554; t77358 = f8137(t78556, t78555); goto l14515; l14514: /* x94841 */ t77358.tag = FALSE_TYPE; l14515: break; case NATIVE_PROCEDURE_TYPE20018: p10506 = t77369.value.native_procedure_type20018; a23355 = t77370; /* x94748 stalin.sc:8480:289049 */ /* x94731 stalin.sc:8481:289057 */ /* x94730 stalin.sc:8481:289092 */ t78566 = a23355; /* x94729 stalin.sc:8481:289058 */ /* x94728 stalin.sc:8481:289089 */ t78567 = 1; /* x94727 stalin.sc:8481:289059 */ t78565 = f7738(t78567); if ((f7739(t78565, t78566).tag)==FALSE_TYPE) goto l14517; /* x94746 */ /* x94742 stalin.sc:8482:289107 */ /* x94734 stalin.sc:8482:289119 */ t78571 = p10506->a23347; /* x94737 stalin.sc:8483:289132 */ /* x94736 stalin.sc:8483:289147 */ t78574 = a23355; /* x94735 stalin.sc:8483:289133 */ t78572 = f7927(t78574); /* x94741 stalin.sc:8484:289160 */ /* x94739 stalin.sc:8484:289180 */ t78575 = p10506->a23349; /* x94740 stalin.sc:8484:289182 */ t78576 = q64; /* x94738 stalin.sc:8484:289161 */ t78577 = t78575; t78573 = f8743(t78577, t78576); /* x94733 stalin.sc:8482:289108 */ t78568 = f10497(t78571, t78572, t78573); /* x94745 stalin.sc:8485:289205 */ /* x94744 stalin.sc:8485:289220 */ t78578 = a23355; /* x94743 stalin.sc:8485:289206 */ t78569 = f7923(t78578); /* x94732 stalin.sc:8482:289099 */ t78570.tag = NATIVE_PROCEDURE_TYPE17625; t78570.value.native_procedure_type17625 = t78568; t77358 = f8137(t78570, t78569); goto l14518; l14517: /* x94747 */ t77358.tag = FALSE_TYPE; l14518: break; case NATIVE_PROCEDURE_TYPE20020: p10504 = t77369.value.native_procedure_type20020; a23354 = t77370; /* x94715 stalin.sc:8470:288743 */ /* x94690 stalin.sc:8471:288751 */ /* x94689 stalin.sc:8471:288786 */ t78580 = a23354; /* x94688 stalin.sc:8471:288752 */ /* x94687 stalin.sc:8471:288783 */ t78581 = 2; /* x94686 stalin.sc:8471:288753 */ t78579 = f7738(t78581); if ((f7739(t78579, t78580).tag)==FALSE_TYPE) goto l14520; /* x94713 */ /* x94707 stalin.sc:8472:288801 */ /* x94697 stalin.sc:8472:288813 */ /* x94696 stalin.sc:8472:288819 */ /* x94695 stalin.sc:8472:288834 */ t78590 = a23354; /* x94694 stalin.sc:8472:288820 */ t78589 = f7923(t78590); /* x94693 stalin.sc:8472:288814 */ a34915 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34915==NULL) {backtrace("stalin.sc", 8472, 288813); out_of_memory_error();} a34915->s0 = t78589; a34915->s1.tag = NULL_TYPE; /* x271837 */ t78585 = a34915; /* x94702 stalin.sc:8473:288848 */ /* x94701 stalin.sc:8473:288863 */ /* x94700 stalin.sc:8473:288878 */ t78592 = a23354; /* x94699 stalin.sc:8473:288864 */ t78591 = f7927(t78592); /* x94698 stalin.sc:8473:288849 */ t78586 = f7927(t78591); /* x94706 stalin.sc:8474:288892 */ /* x94704 stalin.sc:8474:288912 */ t78593 = p10504->a23349; /* x94705 stalin.sc:8474:288914 */ t78594 = q64; /* x94703 stalin.sc:8474:288893 */ t78595 = t78593; t78587 = f8743(t78595, t78594); /* x94692 stalin.sc:8472:288802 */ t78588.tag = STRUCTURE_TYPE24753; t78588.value.structure_type24753 = t78585; t78582 = f10497(t78588, t78586, t78587); /* x94712 stalin.sc:8475:288937 */ /* x94711 stalin.sc:8475:288952 */ /* x94710 stalin.sc:8475:288967 */ t78597 = a23354; /* x94709 stalin.sc:8475:288953 */ t78596 = f7927(t78597); /* x94708 stalin.sc:8475:288938 */ t78583 = f7923(t78596); /* x94691 stalin.sc:8472:288793 */ t78584.tag = NATIVE_PROCEDURE_TYPE17625; t78584.value.native_procedure_type17625 = t78582; t77358 = f8137(t78584, t78583); goto l14521; l14520: /* x94714 */ t77358.tag = FALSE_TYPE; l14521: break; case NATIVE_PROCEDURE_TYPE20287: t77358 = f15484((t77369.value.native_procedure_type20287), t77370); break; case NATIVE_PROCEDURE_TYPE20335: p8340 = t77369.value.native_procedure_type20335; a21946 = t77370; /* x71450 stalin.sc:3758:127199 */ /* x71414 stalin.sc:3760:127218 */ /* x71413 stalin.sc:3760:127242 */ t78598 = a21946; /* x71412 stalin.sc:3760:127219 */ a38074 = t78598; /* x284965 */ /* x284964 */ t78599 = a38074; /* x284963 */ if (!((t78599.tag)==STRUCTURE_TYPE27756)) goto l14523; /* x71448 */ /* x71447 stalin.sc:3770:127554 */ /* x71446 stalin.sc:3770:127569 */ t78605 = a21946; /* x71445 stalin.sc:3770:127555 */ t78601 = f8984(t78605); /* x71444 */ t78600 = p8340; /* x71415 stalin.sc:3761:127249 */ t78602.tag = NATIVE_PROCEDURE_TYPE20372; t78602.value.native_procedure_type20372 = t78600; t78603 = *((struct w49 *)(&t78601)); t78604 = (struct structure_type24753 *)NULL_TYPE; t77358 = f1042(t78602, t78603, t78604); goto l14524; l14523: /* x71449 */ t77358.tag = FALSE_TYPE; l14524: break; case NATIVE_PROCEDURE_TYPE20385: t77358 = f9033((t77369.value.native_procedure_type20385), t77370); break; case NATIVE_PROCEDURE_TYPE20497: t77358 = f15473((t77369.value.native_procedure_type20497), t77370); break; case NATIVE_PROCEDURE_TYPE20553: t77358 = f15456((t77369.value.native_procedure_type20553), t77370); break; case NATIVE_PROCEDURE_TYPE20688: p12185 = t77369.value.native_procedure_type20688; a24397 = t77370; /* x108994 stalin.sc:11413:398154 */ /* x108960 stalin.sc:11413:398159 */ /* x108959 stalin.sc:11413:398179 */ t78606 = a24397; /* x108958 stalin.sc:11413:398160 */ a37870 = t78606; /* x284149 */ /* x284148 */ t78607 = a37870; /* x284147 */ if (!((t78607.tag)==STRUCTURE_TYPE27858)) goto l14526; /* x108992 */ /* x108965 stalin.sc:11414:398190 */ /* x108964 stalin.sc:11414:398218 */ t78609 = a24397; /* x108963 stalin.sc:11414:398191 */ /* x108962 stalin.sc:11414:398215 */ t78610 = p12185->p12181->p12177->a24390; /* x108961 stalin.sc:11414:398192 */ t78608 = f7917(t78610); if ((t78608&3)==1) {if ((f7905(((struct p7892 *)(t78608-1)), t78609).tag)==FALSE_TYPE) goto l14529;} else if ((f7893(((struct p7892 *)t78608), t78609).tag)==FALSE_TYPE) goto l14529; /* x108990 */ /* x108982 stalin.sc:11424:398724 */ t78611 = p12185; /* x108989 stalin.sc:11428:398865 */ /* x108988 stalin.sc:11429:398895 */ /* x108987 stalin.sc:11430:398914 */ /* x108986 stalin.sc:11430:398955 */ t78617 = a24397; /* x108985 stalin.sc:11430:398915 */ a37831 = t78617; /* x283993 */ /* x283992 */ t78618 = a37831; /* x283991 */ if (!((t78618.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32748]"); structure_ref_error();} t78616 = t78618.value.structure_type27858->s0; /* x108984 stalin.sc:11429:398896 */ t78614 = f6998(t78616); /* x108983 stalin.sc:11428:398866 */ a39913 = t78614; /* x292321 */ /* x292320 */ t78615 = a39913; /* x292319 */ if (!((t78615.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34830]"); structure_ref_error();} t78612 = t78615.value.structure_type27698->s10; /* x108966 stalin.sc:11423:398708 */ t78613.tag = NATIVE_PROCEDURE_TYPE20691; t78613.value.native_procedure_type20691 = t78611; t77358 = f8137(t78613, t78612); goto l14530; l14529: /* x108991 */ t77358.tag = FALSE_TYPE; l14530: goto l14527; l14526: /* x108993 */ t77358.tag = FALSE_TYPE; l14527: break; case NATIVE_PROCEDURE_TYPE20691: p12186 = t77369.value.native_procedure_type20691; a24398 = t77370; /* x108981 stalin.sc:11425:398746 */ /* x108969 stalin.sc:11425:398751 */ /* x108968 stalin.sc:11425:398775 */ t78619 = a24398; /* x108967 stalin.sc:11425:398752 */ a38071 = t78619; /* x284953 */ /* x284952 */ t78620 = a38071; /* x284951 */ if (!((t78620.tag)==STRUCTURE_TYPE27756)) goto l14532; /* x108979 */ /* x108978 stalin.sc:11427:398835 */ /* x108977 stalin.sc:11427:398850 */ t78626 = a24398; /* x108976 stalin.sc:11427:398836 */ t78622 = f8984(t78626); /* x108975 stalin.sc:11426:398792 */ t78621 = p12186; /* x108970 stalin.sc:11426:398787 */ t78623.tag = NATIVE_PROCEDURE_TYPE20692; t78623.value.native_procedure_type20692 = t78621; t78624 = *((struct w49 *)(&t78622)); t78625 = (struct structure_type24753 *)NULL_TYPE; t77358 = f1042(t78623, t78624, t78625); goto l14533; l14532: /* x108980 */ t77358.tag = FALSE_TYPE; l14533: break; case NATIVE_PROCEDURE_TYPE20864: p14668 = t77369.value.native_procedure_type20864; a26075 = t77370; /* x132787 stalin.sc:16791:586855 */ /* x132787 stalin.sc:16791:586855 */ /* x132779 stalin.sc:16791:586860 */ /* x132778 stalin.sc:16791:586877 */ t78627 = a26075; /* x132777 stalin.sc:16791:586861 */ if (f13914(t78627)==FALSE_TYPE) goto l14535; /* x132785 */ /* x132784 stalin.sc:16791:586887 */ /* x132782 stalin.sc:16791:586899 */ t78629 = a26075; /* x132783 stalin.sc:16791:586901 */ t78630 = p14668->a26048; /* x132781 stalin.sc:16791:586888 */ t78628 = f14564(t78629, t78630); /* x268809 stalin.sc:16791:586881 */ if (!((t78628&1)==1)) {backtrace_internal("[inside COMPILE-SQUISHED-TYPE-SWITCH 14668]"); zero_error();} if (!(((int)(((int)t78628)>>1))==0)) goto l14535; t77358.tag = TRUE_TYPE; goto l14536; l14535: t77358.tag = FALSE_TYPE; l14536: break; case NATIVE_PROCEDURE_TYPE20868: p14661 = t77369.value.native_procedure_type20868; a26068 = t77370; e14661 = (struct p14661 *)alloca(sizeof(struct p14661)); if (e14661==NULL) {backtrace("stalin.sc", 16803, 587301); out_of_memory_error();} e14661->p14646 = p14661; e14661->a26068 = a26068; /* x132637 stalin.sc:16804:587320 */ /* x132636 stalin.sc:16804:587324 */ /* x132635 stalin.sc:16804:587337 */ t78638 = e14661->a26068; /* x132634 stalin.sc:16804:587325 */ t78632 = f8793(t78638); /* x132633 */ t78631 = e14661; p14662 = t78631; a26069 = t78632; /* x132632 */ /* x132609 */ if (a26069==FALSE_TYPE) goto l14539; /* x132610 */ t77358.tag = a26069; goto l14540; l14539: /* x132631 */ /* x132630 stalin.sc:16808:587455 */ t78634 = p14662->p14646->a26047; /* x132629 stalin.sc:16805:587350 */ t78633 = p14662; /* x132611 stalin.sc:16805:587345 */ t78635.tag = NATIVE_PROCEDURE_TYPE22172; t78635.value.native_procedure_type22172 = t78633; t78636 = *((struct w49 *)(&t78634)); t78637 = (struct structure_type24753 *)NULL_TYPE; t77358 = f1042(t78635, t78636, t78637); l14540: break; case NATIVE_PROCEDURE_TYPE20873: p14657 = t77369.value.native_procedure_type20873; a26063 = t77370; /* x132567 stalin.sc:16729:585070 */ /* x132567 stalin.sc:16729:585070 */ /* x132559 stalin.sc:16729:585075 */ /* x132558 stalin.sc:16729:585092 */ t78639 = a26063; /* x132557 stalin.sc:16729:585076 */ if (f13914(t78639)==FALSE_TYPE) goto l14542; /* x132565 */ /* x132564 stalin.sc:16729:585102 */ /* x132562 stalin.sc:16729:585114 */ t78641 = a26063; /* x132563 stalin.sc:16729:585116 */ t78642 = p14657->a26048; /* x132561 stalin.sc:16729:585103 */ t78640 = f14564(t78641, t78642); /* x268819 stalin.sc:16729:585096 */ if (!((t78640&1)==1)) {backtrace_internal("[inside COMPILE-SQUISHED-TYPE-SWITCH 14657]"); zero_error();} if (!(((int)(((int)t78640)>>1))==0)) goto l14542; t77358.tag = TRUE_TYPE; goto l14543; l14542: t77358.tag = FALSE_TYPE; l14543: break; case NATIVE_PROCEDURE_TYPE20877: p14650 = t77369.value.native_procedure_type20877; a26056 = t77370; e14650 = (struct p14650 *)alloca(sizeof(struct p14650)); if (e14650==NULL) {backtrace("stalin.sc", 16737, 585425); out_of_memory_error();} e14650->p14646 = p14650; e14650->a26056 = a26056; /* x132359 stalin.sc:16738:585443 */ /* x132358 stalin.sc:16738:585447 */ /* x132357 stalin.sc:16738:585460 */ t78650 = e14650->a26056; /* x132356 stalin.sc:16738:585448 */ t78644 = f8793(t78650); /* x132355 */ t78643 = e14650; p14651 = t78643; a26057 = t78644; /* x132354 */ /* x132331 */ if (a26057==FALSE_TYPE) goto l14546; /* x132332 */ t77358.tag = a26057; goto l14547; l14546: /* x132353 */ /* x132352 stalin.sc:16742:585581 */ t78646 = p14651->p14646->a26047; /* x132351 stalin.sc:16739:585472 */ t78645 = p14651; /* x132333 stalin.sc:16739:585467 */ t78647.tag = NATIVE_PROCEDURE_TYPE22174; t78647.value.native_procedure_type22174 = t78645; t78648 = *((struct w49 *)(&t78646)); t78649 = (struct structure_type24753 *)NULL_TYPE; t77358 = f1042(t78647, t78648, t78649); l14547: break; case NATIVE_PROCEDURE_TYPE20929: t78651 = f16596(t77370); t77358.tag = t78651; break; case NATIVE_PROCEDURE_TYPE20971: p16559 = t77369.value.native_procedure_type20971; a27762 = t77370; /* x155813 stalin.sc:21571:755795 */ /* x155813 stalin.sc:21571:755795 */ /* x155798 stalin.sc:21571:755800 */ /* x155797 stalin.sc:21571:755805 */ /* x155796 stalin.sc:21571:755817 */ t78652 = a27762; /* x155795 stalin.sc:21571:755806 */ if (!(f7682(t78652)==FALSE_TYPE)) goto l14549; /* x155811 */ /* x155803 stalin.sc:21572:755833 */ /* x155802 stalin.sc:21572:755838 */ /* x155801 stalin.sc:21572:755851 */ t78653 = a27762; /* x155800 stalin.sc:21572:755839 */ if (!(f8793(t78653)==FALSE_TYPE)) goto l14549; /* x155809 */ /* x155808 stalin.sc:21573:755874 */ /* x155806 stalin.sc:21573:755886 */ t78655 = a27762; /* x155807 stalin.sc:21573:755889 */ t78656 = p16559->a27733; /* x155805 stalin.sc:21573:755875 */ t78654 = f14564(t78655, t78656); /* x268284 stalin.sc:21573:755868 */ if (!((t78654&1)==1)) {backtrace_internal("[inside top level 16559]"); zero_error();} if (!(((int)(((int)t78654)>>1))==0)) goto l14549; t77358.tag = TRUE_TYPE; goto l14550; l14549: t77358.tag = FALSE_TYPE; l14550: break; case NATIVE_PROCEDURE_TYPE20972: p16560 = t77369.value.native_procedure_type20972; a27763 = t77370; /* x155837 stalin.sc:21576:755936 */ /* x155837 stalin.sc:21576:755936 */ /* x155822 stalin.sc:21576:755941 */ /* x155821 stalin.sc:21576:755946 */ /* x155820 stalin.sc:21576:755958 */ t78657 = a27763; /* x155819 stalin.sc:21576:755947 */ if (!(f7682(t78657)==FALSE_TYPE)) goto l14554; /* x155835 */ /* x155827 stalin.sc:21577:755974 */ /* x155826 stalin.sc:21577:755979 */ /* x155825 stalin.sc:21577:755992 */ t78658 = a27763; /* x155824 stalin.sc:21577:755980 */ if (!(f8793(t78658)==FALSE_TYPE)) goto l14554; /* x155833 */ /* x155832 stalin.sc:21578:756015 */ /* x155830 stalin.sc:21578:756027 */ t78660 = a27763; /* x155831 stalin.sc:21578:756030 */ t78661 = p16560->a27735; /* x155829 stalin.sc:21578:756016 */ t78659 = f14564(t78660, t78661); /* x268281 stalin.sc:21578:756009 */ if (!((t78659&1)==1)) {backtrace_internal("[inside top level 16560]"); zero_error();} if (!(((int)(((int)t78659)>>1))==0)) goto l14554; t77358.tag = TRUE_TYPE; goto l14555; l14554: t77358.tag = FALSE_TYPE; l14555: break; case NATIVE_PROCEDURE_TYPE20979: p16542 = t77369.value.native_procedure_type20979; a27749 = t77370; /* x155595 stalin.sc:21516:753631 */ /* x155595 stalin.sc:21516:753631 */ /* x155589 stalin.sc:21516:753636 */ /* x155588 stalin.sc:21516:753640 */ /* x155587 stalin.sc:21516:753652 */ t78662 = a27749; /* x155586 stalin.sc:21516:753641 */ if (!(f7682(t78662)==FALSE_TYPE)) goto l14561; /* x155583 */ /* x155582 stalin.sc:21516:753669 */ t78663 = a27749; /* x155581 stalin.sc:21516:753657 */ if (f8793(t78663)==FALSE_TYPE) goto l14559; l14561: /* x155593 */ /* x155591 stalin.sc:21516:753683 */ t78664 = a27749; /* x155592 stalin.sc:21516:753686 */ t78665 = p16542->a27733; /* x155590 stalin.sc:21516:753675 */ if (f8033(t78664, t78665)==FALSE_TYPE) goto l14559; t77358.tag = TRUE_TYPE; goto l14560; l14559: t77358.tag = FALSE_TYPE; l14560: break; case NATIVE_PROCEDURE_TYPE20994: p16527 = t77369.value.native_procedure_type20994; a27743 = t77370; /* x155337 stalin.sc:21453:750730 */ /* x155337 stalin.sc:21453:750730 */ /* x155331 stalin.sc:21453:750735 */ /* x155330 stalin.sc:21453:750739 */ /* x155329 stalin.sc:21453:750751 */ t78666 = a27743; /* x155328 stalin.sc:21453:750740 */ if (!(f7682(t78666)==FALSE_TYPE)) goto l14566; /* x155325 */ /* x155324 stalin.sc:21453:750768 */ t78667 = a27743; /* x155323 stalin.sc:21453:750756 */ if (f8793(t78667)==FALSE_TYPE) goto l14564; l14566: /* x155335 */ /* x155333 stalin.sc:21453:750782 */ t78668 = a27743; /* x155334 stalin.sc:21453:750785 */ t78669 = p16527->a27735; /* x155332 stalin.sc:21453:750774 */ if (f8033(t78668, t78669)==FALSE_TYPE) goto l14564; t77358.tag = TRUE_TYPE; goto l14565; l14564: t77358.tag = FALSE_TYPE; l14565: break; case NATIVE_PROCEDURE_TYPE21067: t78670 = f16816(t77370); t77358.tag = t78670; break; case NATIVE_PROCEDURE_TYPE21881: t77358 = f7721((t77369.value.native_procedure_type21881), t77370); break; case NATIVE_PROCEDURE_TYPE22078: p17895 = t77369.value.native_procedure_type22078; a31086 = t77370; /* x167267 stalin.sc:24241:840637 */ /* x167203 stalin.sc:24241:840642 */ /* x167202 stalin.sc:24241:840666 */ t78671 = a31086; /* x167201 stalin.sc:24241:840643 */ a38063 = t78671; /* x284921 */ /* x284920 */ t78672 = a38063; /* x284919 */ if (!((t78672.tag)==STRUCTURE_TYPE27756)) goto l14569; /* x167265 */ /* x167229 stalin.sc:24242:840677 */ /* x167228 stalin.sc:24249:840896 */ t78674 = a31086; /* x167227 stalin.sc:24242:840678 */ /* x167221 stalin.sc:24243:840709 */ /* x167207 stalin.sc:24243:840713 */ /* x167206 stalin.sc:24243:840725 */ t78681 = p17895->a31050; /* x167205 stalin.sc:24243:840714 */ t78682.tag = STRUCTURE_TYPE27745; t78682.value.structure_type27745 = t78681; if (f8944(t78682)==FALSE_TYPE) goto l14575; /* x167211 stalin.sc:24244:840734 */ /* x167210 stalin.sc:24244:840743 */ t78690 = p17895->a31058; /* x167209 stalin.sc:24244:840740 */ t78689 = p17895->a31058; /* x167208 stalin.sc:24244:840735 */ t78691.tag = STRUCTURE_TYPE24753; t78691.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t78691.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24244, 840734); out_of_memory_error();} t78691.value.structure_type24753->s0 = t78690; t78691.value.structure_type24753->s1.tag = NULL_TYPE; a35093 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35093==NULL) {backtrace("stalin.sc", 24244, 840734); out_of_memory_error();} a35093->s0 = t78689; a35093->s1 = t78691; /* x272193 */ t78675 = a35093; goto l14576; l14575: /* x167220 stalin.sc:24245:840753 */ /* x167219 stalin.sc:24245:840759 */ /* x167218 stalin.sc:24246:840792 */ /* x167217 stalin.sc:24246:840808 */ /* x167216 stalin.sc:24246:840830 */ t78687 = p17895->a31050; /* x167215 stalin.sc:24246:840809 */ a36409 = t78687; /* x278305 */ /* x278304 */ t78688 = a36409; /* x278303 */ t78686 = t78688->s0; /* x167214 stalin.sc:24246:840793 */ t78684 = f7110(t78686); /* x167213 stalin.sc:24245:840760 */ t78685 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t78685==NULL) {backtrace("stalin.sc", 24245, 840759); out_of_memory_error();} t78685->s0.tag = STRUCTURE_TYPE27858; t78685->s0.value.structure_type27858 = t78684; t78685->s1.tag = NULL_TYPE; t78683 = f8098(t78685); /* x167212 stalin.sc:24245:840754 */ a35094 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35094==NULL) {backtrace("stalin.sc", 24245, 840753); out_of_memory_error();} a35094->s0.tag = STRUCTURE_TYPE27650; a35094->s0.value.structure_type27650 = t78683; a35094->s1.tag = NULL_TYPE; /* x272195 */ t78675 = a35094; l14576: /* x167222 stalin.sc:24247:840839 */ t78676 = a1675; /* x167226 stalin.sc:24248:840848 */ /* x167224 stalin.sc:24248:840868 */ t78692 = p17895->a31050; /* x167225 stalin.sc:24248:840870 */ t78693 = q64; /* x167223 stalin.sc:24248:840849 */ t78694 = t78692; t78677 = f8743(t78694, t78693); /* x167204 stalin.sc:24242:840679 */ t78678.tag = STRUCTURE_TYPE24753; t78678.value.structure_type24753 = t78675; /* MOVE: branching squeezed to general */ if (t78676>=((struct structure_type27650 *)VALUE_OFFSET)) {t78679.tag = STRUCTURE_TYPE27650; t78679.value.structure_type27650 = t78676;} else t78679.tag = (unsigned)t78676; t78680 = t78677; t78673 = f7892(t78678, t78679, t78680); if ((t78673&3)==1) {if ((f7905(((struct p7892 *)(t78673-1)), t78674).tag)==FALSE_TYPE) goto l14572;} else if ((f7893(((struct p7892 *)t78673), t78674).tag)==FALSE_TYPE) goto l14572; /* x167263 */ /* x167262 stalin.sc:24257:841179 */ /* x167261 stalin.sc:24257:841194 */ t78700 = a31086; /* x167260 stalin.sc:24257:841180 */ t78696 = f8984(t78700); /* x167259 stalin.sc:24250:840913 */ t78695 = p17895; /* x167230 stalin.sc:24250:840908 */ t78697.tag = NATIVE_PROCEDURE_TYPE22168; t78697.value.native_procedure_type22168 = t78695; t78698 = *((struct w49 *)(&t78696)); t78699 = (struct structure_type24753 *)NULL_TYPE; t77358 = f1042(t78697, t78698, t78699); goto l14573; l14572: /* x167264 */ t77358.tag = FALSE_TYPE; l14573: goto l14570; l14569: /* x167266 */ t77358.tag = FALSE_TYPE; l14570: break; case NATIVE_PROCEDURE_TYPE22079: p17872 = t77369.value.native_procedure_type22079; a31067 = t77370; /* x166931 stalin.sc:24166:837989 */ /* x166865 stalin.sc:24166:837994 */ /* x166864 stalin.sc:24166:838018 */ t78701 = a31067; /* x166863 stalin.sc:24166:837995 */ a38064 = t78701; /* x284925 */ /* x284924 */ t78702 = a38064; /* x284923 */ if (!((t78702.tag)==STRUCTURE_TYPE27756)) goto l14578; /* x166929 */ /* x166891 stalin.sc:24167:838027 */ /* x166890 stalin.sc:24174:838253 */ t78704 = a31067; /* x166889 stalin.sc:24167:838028 */ /* x166883 stalin.sc:24168:838064 */ /* x166869 stalin.sc:24168:838068 */ /* x166868 stalin.sc:24168:838080 */ t78711 = p17872->a31050; /* x166867 stalin.sc:24168:838069 */ t78712.tag = STRUCTURE_TYPE27745; t78712.value.structure_type27745 = t78711; if (f8944(t78712)==FALSE_TYPE) goto l14584; /* x166873 stalin.sc:24169:838087 */ /* x166872 stalin.sc:24169:838096 */ t78720 = p17872->a31058; /* x166871 stalin.sc:24169:838093 */ t78719 = p17872->a31058; /* x166870 stalin.sc:24169:838088 */ t78721.tag = STRUCTURE_TYPE24753; t78721.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t78721.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24169, 838087); out_of_memory_error();} t78721.value.structure_type24753->s0 = t78720; t78721.value.structure_type24753->s1.tag = NULL_TYPE; a35095 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35095==NULL) {backtrace("stalin.sc", 24169, 838087); out_of_memory_error();} a35095->s0 = t78719; a35095->s1 = t78721; /* x272197 */ t78705 = a35095; goto l14585; l14584: /* x166882 stalin.sc:24170:838104 */ /* x166881 stalin.sc:24170:838110 */ /* x166880 stalin.sc:24171:838141 */ /* x166879 stalin.sc:24171:838157 */ /* x166878 stalin.sc:24171:838179 */ t78717 = p17872->a31050; /* x166877 stalin.sc:24171:838158 */ a36410 = t78717; /* x278309 */ /* x278308 */ t78718 = a36410; /* x278307 */ t78716 = t78718->s0; /* x166876 stalin.sc:24171:838142 */ t78714 = f7110(t78716); /* x166875 stalin.sc:24170:838111 */ t78715 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t78715==NULL) {backtrace("stalin.sc", 24170, 838110); out_of_memory_error();} t78715->s0.tag = STRUCTURE_TYPE27858; t78715->s0.value.structure_type27858 = t78714; t78715->s1.tag = NULL_TYPE; t78713 = f8098(t78715); /* x166874 stalin.sc:24170:838105 */ a35096 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35096==NULL) {backtrace("stalin.sc", 24170, 838104); out_of_memory_error();} a35096->s0.tag = STRUCTURE_TYPE27650; a35096->s0.value.structure_type27650 = t78713; a35096->s1.tag = NULL_TYPE; /* x272199 */ t78705 = a35096; l14585: /* x166884 stalin.sc:24172:838193 */ t78706 = a1675; /* x166888 stalin.sc:24173:838207 */ /* x166886 stalin.sc:24173:838227 */ t78722 = p17872->a31050; /* x166887 stalin.sc:24173:838229 */ t78723 = q64; /* x166885 stalin.sc:24173:838208 */ t78724 = t78722; t78707 = f8743(t78724, t78723); /* x166866 stalin.sc:24167:838029 */ t78708.tag = STRUCTURE_TYPE24753; t78708.value.structure_type24753 = t78705; /* MOVE: branching squeezed to general */ if (t78706>=((struct structure_type27650 *)VALUE_OFFSET)) {t78709.tag = STRUCTURE_TYPE27650; t78709.value.structure_type27650 = t78706;} else t78709.tag = (unsigned)t78706; t78710 = t78707; t78703 = f7892(t78708, t78709, t78710); if ((t78703&3)==1) {if ((f7905(((struct p7892 *)(t78703-1)), t78704).tag)==FALSE_TYPE) goto l14581;} else if ((f7893(((struct p7892 *)t78703), t78704).tag)==FALSE_TYPE) goto l14581; /* x166927 */ /* x166926 stalin.sc:24182:838526 */ /* x166925 stalin.sc:24182:838541 */ t78730 = a31067; /* x166924 stalin.sc:24182:838527 */ t78726 = f8984(t78730); /* x166923 stalin.sc:24175:838268 */ t78725 = p17872; /* x166892 stalin.sc:24175:838263 */ t78727.tag = NATIVE_PROCEDURE_TYPE22167; t78727.value.native_procedure_type22167 = t78725; t78728 = *((struct w49 *)(&t78726)); t78729 = (struct structure_type24753 *)NULL_TYPE; t77358 = f1042(t78727, t78728, t78729); goto l14582; l14581: /* x166928 */ t77358.tag = FALSE_TYPE; l14582: goto l14579; l14578: /* x166930 */ t77358.tag = FALSE_TYPE; l14579: break; case NATIVE_PROCEDURE_TYPE22304: p17855 = t77369.value.native_procedure_type22304; a31041 = t77370; /* x166758 stalin.sc:24124:836722 */ /* x166692 stalin.sc:24125:836732 */ /* x166691 stalin.sc:24125:836756 */ t78731 = a31041; /* x166690 stalin.sc:24125:836733 */ a38061 = t78731; /* x284913 */ /* x284912 */ t78732 = a38061; /* x284911 */ if (!((t78732.tag)==STRUCTURE_TYPE27756)) goto l14587; /* x166756 */ /* x166718 stalin.sc:24126:836765 */ /* x166717 stalin.sc:24133:836991 */ t78734 = a31041; /* x166716 stalin.sc:24126:836766 */ /* x166710 stalin.sc:24127:836802 */ /* x166696 stalin.sc:24127:836806 */ /* x166695 stalin.sc:24127:836818 */ t78741 = p17855->a31031; /* x166694 stalin.sc:24127:836807 */ t78742.tag = STRUCTURE_TYPE27745; t78742.value.structure_type27745 = t78741; if (f8944(t78742)==FALSE_TYPE) goto l14593; /* x166700 stalin.sc:24128:836825 */ /* x166699 stalin.sc:24128:836834 */ t78750 = p17855->a31035; /* x166698 stalin.sc:24128:836831 */ t78749 = p17855->a31035; /* x166697 stalin.sc:24128:836826 */ t78751.tag = STRUCTURE_TYPE24753; t78751.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t78751.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24128, 836825); out_of_memory_error();} t78751.value.structure_type24753->s0 = t78750; t78751.value.structure_type24753->s1.tag = NULL_TYPE; a35091 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35091==NULL) {backtrace("stalin.sc", 24128, 836825); out_of_memory_error();} a35091->s0 = t78749; a35091->s1 = t78751; /* x272189 */ t78735 = a35091; goto l14594; l14593: /* x166709 stalin.sc:24129:836842 */ /* x166708 stalin.sc:24129:836848 */ /* x166707 stalin.sc:24130:836879 */ /* x166706 stalin.sc:24130:836895 */ /* x166705 stalin.sc:24130:836917 */ t78747 = p17855->a31031; /* x166704 stalin.sc:24130:836896 */ a36405 = t78747; /* x278289 */ /* x278288 */ t78748 = a36405; /* x278287 */ t78746 = t78748->s0; /* x166703 stalin.sc:24130:836880 */ t78744 = f7110(t78746); /* x166702 stalin.sc:24129:836849 */ t78745 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t78745==NULL) {backtrace("stalin.sc", 24129, 836848); out_of_memory_error();} t78745->s0.tag = STRUCTURE_TYPE27858; t78745->s0.value.structure_type27858 = t78744; t78745->s1.tag = NULL_TYPE; t78743 = f8098(t78745); /* x166701 stalin.sc:24129:836843 */ a35092 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35092==NULL) {backtrace("stalin.sc", 24129, 836842); out_of_memory_error();} a35092->s0.tag = STRUCTURE_TYPE27650; a35092->s0.value.structure_type27650 = t78743; a35092->s1.tag = NULL_TYPE; /* x272191 */ t78735 = a35092; l14594: /* x166711 stalin.sc:24131:836931 */ t78736 = a1675; /* x166715 stalin.sc:24132:836945 */ /* x166713 stalin.sc:24132:836965 */ t78752 = p17855->a31031; /* x166714 stalin.sc:24132:836967 */ t78753 = q64; /* x166712 stalin.sc:24132:836946 */ t78754 = t78752; t78737 = f8743(t78754, t78753); /* x166693 stalin.sc:24126:836767 */ t78738.tag = STRUCTURE_TYPE24753; t78738.value.structure_type24753 = t78735; /* MOVE: branching squeezed to general */ if (t78736>=((struct structure_type27650 *)VALUE_OFFSET)) {t78739.tag = STRUCTURE_TYPE27650; t78739.value.structure_type27650 = t78736;} else t78739.tag = (unsigned)t78736; t78740 = t78737; t78733 = f7892(t78738, t78739, t78740); if ((t78733&3)==1) {if ((f7905(((struct p7892 *)(t78733-1)), t78734).tag)==FALSE_TYPE) goto l14590;} else if ((f7893(((struct p7892 *)t78733), t78734).tag)==FALSE_TYPE) goto l14590; /* x166754 */ /* x166753 stalin.sc:24141:837264 */ /* x166752 stalin.sc:24141:837279 */ t78760 = a31041; /* x166751 stalin.sc:24141:837265 */ t78756 = f8984(t78760); /* x166750 stalin.sc:24134:837006 */ t78755 = p17855; /* x166719 stalin.sc:24134:837001 */ t78757.tag = NATIVE_PROCEDURE_TYPE22308; t78757.value.native_procedure_type22308 = t78755; t78758 = *((struct w49 *)(&t78756)); t78759 = (struct structure_type24753 *)NULL_TYPE; t77358 = f1042(t78757, t78758, t78759); goto l14591; l14590: /* x166755 */ t77358.tag = FALSE_TYPE; l14591: goto l14588; l14587: /* x166757 */ t77358.tag = FALSE_TYPE; l14588: break; case NATIVE_PROCEDURE_TYPE22872: p16480 = t77369.value.native_procedure_type22872; a27708 = t77370; /* x154679 stalin.sc:21284:743897 */ /* x154677 stalin.sc:21284:743906 */ t78761 = a27708; /* x154678 stalin.sc:21284:743909 */ t78762 = p16480->a27696; /* x154676 stalin.sc:21284:743898 */ t78763 = f8033(t78761, t78762); t77358.tag = t78763; break; case NATIVE_PROCEDURE_TYPE23479: p11840 = t77369.value.native_procedure_type23479; a24181 = t77370; /* x106332 stalin.sc:10830:376244 */ /* x106332 stalin.sc:10830:376244 */ /* x106281 stalin.sc:10831:376257 */ /* x106280 stalin.sc:10835:376386 */ t78765 = a24181; /* x106279 stalin.sc:10831:376258 */ /* x106273 stalin.sc:10832:376290 */ /* x106272 stalin.sc:10832:376296 */ /* x106271 stalin.sc:10832:376313 */ t78773 = p11840->a24171; /* x106270 stalin.sc:10832:376297 */ t78772 = f8687(t78773); /* x106269 stalin.sc:10832:376291 */ a34898 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34898==NULL) {backtrace("stalin.sc", 10832, 376290); out_of_memory_error();} a34898->s0 = t78772; a34898->s1.tag = NULL_TYPE; /* x271803 */ t78766 = a34898; /* x106274 stalin.sc:10833:376320 */ t78767 = a1675; /* x106278 stalin.sc:10834:376330 */ /* x106276 stalin.sc:10834:376350 */ t78774 = p11840->p11793->a24160; /* x106277 stalin.sc:10834:376352 */ t78775 = q67; /* x106275 stalin.sc:10834:376331 */ t78768 = f8743(t78774, t78775); /* x106268 stalin.sc:10831:376259 */ t78769.tag = STRUCTURE_TYPE24753; t78769.value.structure_type24753 = t78766; /* MOVE: branching squeezed to general */ if (t78767>=((struct structure_type27650 *)VALUE_OFFSET)) {t78770.tag = STRUCTURE_TYPE27650; t78770.value.structure_type27650 = t78767;} else t78770.tag = (unsigned)t78767; t78771 = t78768; t78764 = f7892(t78769, t78770, t78771); if ((t78764&3)==1) {if ((f7905(((struct p7892 *)(t78764-1)), t78765).tag)==FALSE_TYPE) goto l14596;} else if ((f7893(((struct p7892 *)t78764), t78765).tag)==FALSE_TYPE) goto l14596; /* x106330 */ /* x106329 stalin.sc:10839:376520 */ /* x106328 stalin.sc:10839:376547 */ t78776 = a24181; /* x106327 stalin.sc:10839:376521 */ a38197 = t78776; /* x285457 */ /* x285456 */ t78777 = a38197; /* x285455 */ if ((t78777.tag)==STRUCTURE_TYPE27753) goto l14595; p11841 = p11840->p11793; /* x106324 */ /* x106323 stalin.sc:10840:376559 */ /* x106308 stalin.sc:10841:376567 */ /* x106307 stalin.sc:10841:376591 */ t78778 = a24181; /* x106306 stalin.sc:10841:376568 */ a38046 = t78778; /* x284853 */ /* x284852 */ t78779 = a38046; /* x284851 */ if (!((t78779.tag)==STRUCTURE_TYPE27756)) goto l14600; /* x106321 */ /* x106320 stalin.sc:10843:376621 */ /* x106319 stalin.sc:10844:376633 */ /* x106318 stalin.sc:10845:376650 */ /* x106313 stalin.sc:10846:376677 */ t78784 = a24181; /* x106317 stalin.sc:10847:376686 */ /* x106315 stalin.sc:10847:376706 */ t78787 = p11841->a24160; /* x106316 stalin.sc:10847:376708 */ t78788 = q67; /* x106314 stalin.sc:10847:376687 */ t78785 = f8743(t78787, t78788); /* x106312 stalin.sc:10845:376651 */ t78786 = t78785; t78783 = f9368(t78784, t78786); /* x106311 stalin.sc:10844:376634 */ t78781 = f8987(t78783); /* x106310 stalin.sc:10843:376622 */ a35674 = t78781; /* x274053 */ /* x274052 */ t78782 = a35674; /* x274051 */ if (!(t78782>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29823]"); structure_ref_error();} t78780 = t78782->s0; /* x106309 stalin.sc:10842:376598 */ if (!(f8194(t78780)==FALSE_TYPE)) goto l14595; l14600: /* x106303 */ /* x106302 stalin.sc:10850:376854 */ /* x106301 stalin.sc:10850:376879 */ t78789 = a24181; /* x106300 stalin.sc:10850:376855 */ a37941 = t78789; /* x284433 */ /* x284432 */ t78790 = a37941; /* x284431 */ if ((t78790.tag)==STRUCTURE_TYPE27750) goto l14595; /* x106297 */ /* x106290 stalin.sc:10852:376899 */ /* x106289 stalin.sc:10852:376919 */ t78791 = a24181; /* x106288 stalin.sc:10852:376900 */ a37851 = t78791; /* x284073 */ /* x284072 */ t78792 = a37851; /* x284071 */ if (!((t78792.tag)==STRUCTURE_TYPE27858)) goto l14596; /* x106295 */ /* x106294 stalin.sc:10856:377049 */ /* x106293 stalin.sc:10856:377090 */ t78794 = a24181; /* x106292 stalin.sc:10856:377050 */ a37815 = t78794; /* x283929 */ /* x283928 */ t78795 = a37815; /* x283927 */ if (!((t78795.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32732]"); structure_ref_error();} t78793 = t78795.value.structure_type27858->s0; /* x106291 stalin.sc:10855:377024 */ if (f6936(t78793)==FALSE_TYPE) goto l14596; l14595: t77358.tag = TRUE_TYPE; goto l14597; l14596: t77358.tag = FALSE_TYPE; l14597: break; case NATIVE_PROCEDURE_TYPE23724: a25992 = t77370; /* x131703 stalin.sc:16601:580152 */ /* x131703 stalin.sc:16601:580152 */ /* x131702 stalin.sc:16601:580156 */ /* x131701 stalin.sc:16601:580168 */ t78796 = a25992; /* x131700 stalin.sc:16601:580157 */ if (!(f7682(t78796)==FALSE_TYPE)) goto l14604; /* x131697 */ /* x131696 stalin.sc:16601:580184 */ t78797 = a25992; /* x131695 stalin.sc:16601:580172 */ if (f8793(t78797)==FALSE_TYPE) goto l14605; l14604: t77358.tag = TRUE_TYPE; goto l14606; l14605: t77358.tag = FALSE_TYPE; l14606: break; case NATIVE_PROCEDURE_TYPE23951: p17857 = t77369.value.native_procedure_type23951; a31043 = t77370; e17857 = (struct p17857 *)alloca(sizeof(struct p17857)); if (e17857==NULL) {backtrace("stalin.sc", 24136, 837038); out_of_memory_error();} e17857->a31043 = a31043; /* x166742 stalin.sc:24137:837058 */ /* x166728 stalin.sc:24137:837063 */ /* x166722 stalin.sc:24137:837068 */ t78798 = e17857->a31043; /* x166727 stalin.sc:24137:837071 */ /* x166726 stalin.sc:24137:837087 */ /* x166725 stalin.sc:24137:837109 */ t78801 = p17857->a31031; /* x166724 stalin.sc:24137:837088 */ a36368 = t78801; /* x278141 */ /* x278140 */ t78802 = a36368; /* x278139 */ t78800 = t78802->s0; /* x166723 stalin.sc:24137:837072 */ t78799 = f7110(t78800); /* x268066 stalin.sc:24137:837064 */ if (!(((t78798.tag)==STRUCTURE_TYPE27858)&&((t78798.value.structure_type27858)==t78799))) goto l14609; /* x166740 */ /* x166739 stalin.sc:24139:837161 */ /* x166738 stalin.sc:24139:837191 */ t78808 = e17857->a31043; /* x166737 stalin.sc:24139:837162 */ a37799 = t78808; /* x283865 */ /* x283864 */ t78809 = a37799; /* x283863 */ if (!((t78809.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-CALL-SITES[6085] 32716]"); structure_ref_error();} t78804 = t78809.value.structure_type27858->s3; /* x166736 stalin.sc:24138:837125 */ t78803 = e17857; /* x166729 stalin.sc:24138:837120 */ t78805.tag = NATIVE_PROCEDURE_TYPE24683; t78805.value.native_procedure_type24683 = t78803; t78806 = *((struct w49 *)(&t78804)); t78807 = (struct structure_type24753 *)NULL_TYPE; t77358 = f1042(t78805, t78806, t78807); goto l14610; l14609: /* x166741 */ t77358.tag = FALSE_TYPE; l14610: break; case NATIVE_PROCEDURE_TYPE23952: p17874 = t77369.value.native_procedure_type23952; a31069 = t77370; e17874 = (struct p17874 *)alloca(sizeof(struct p17874)); if (e17874==NULL) {backtrace("stalin.sc", 24177, 838300); out_of_memory_error();} e17874->a31069 = a31069; /* x166915 stalin.sc:24178:838320 */ /* x166901 stalin.sc:24178:838325 */ /* x166895 stalin.sc:24178:838330 */ t78810 = e17874->a31069; /* x166900 stalin.sc:24178:838333 */ /* x166899 stalin.sc:24178:838349 */ /* x166898 stalin.sc:24178:838371 */ t78813 = p17874->a31050; /* x166897 stalin.sc:24178:838350 */ a36367 = t78813; /* x278137 */ /* x278136 */ t78814 = a36367; /* x278135 */ t78812 = t78814->s0; /* x166896 stalin.sc:24178:838334 */ t78811 = f7110(t78812); /* x268064 stalin.sc:24178:838326 */ if (!(((t78810.tag)==STRUCTURE_TYPE27858)&&((t78810.value.structure_type27858)==t78811))) goto l14612; /* x166913 */ /* x166912 stalin.sc:24180:838423 */ /* x166911 stalin.sc:24180:838453 */ t78820 = e17874->a31069; /* x166910 stalin.sc:24180:838424 */ a37798 = t78820; /* x283861 */ /* x283860 */ t78821 = a37798; /* x283859 */ if (!((t78821.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-CALL-SITES[6085] 32715]"); structure_ref_error();} t78816 = t78821.value.structure_type27858->s3; /* x166909 stalin.sc:24179:838387 */ t78815 = e17874; /* x166902 stalin.sc:24179:838382 */ t78817.tag = NATIVE_PROCEDURE_TYPE24685; t78817.value.native_procedure_type24685 = t78815; t78818 = *((struct w49 *)(&t78816)); t78819 = (struct structure_type24753 *)NULL_TYPE; t77358 = f1042(t78817, t78818, t78819); goto l14613; l14612: /* x166914 */ t77358.tag = FALSE_TYPE; l14613: break; case NATIVE_PROCEDURE_TYPE23953: p17897 = t77369.value.native_procedure_type23953; a31088 = t77370; e17897 = (struct p17897 *)alloca(sizeof(struct p17897)); if (e17897==NULL) {backtrace("stalin.sc", 24252, 840949); out_of_memory_error();} e17897->a31088 = a31088; /* x167251 stalin.sc:24253:840971 */ /* x167239 stalin.sc:24253:840976 */ /* x167233 stalin.sc:24253:840981 */ t78822 = e17897->a31088; /* x167238 stalin.sc:24253:840984 */ /* x167237 stalin.sc:24253:841000 */ /* x167236 stalin.sc:24253:841022 */ t78825 = p17897->a31050; /* x167235 stalin.sc:24253:841001 */ a36366 = t78825; /* x278133 */ /* x278132 */ t78826 = a36366; /* x278131 */ t78824 = t78826->s0; /* x167234 stalin.sc:24253:840985 */ t78823 = f7110(t78824); /* x268061 stalin.sc:24253:840977 */ if (!(((t78822.tag)==STRUCTURE_TYPE27858)&&((t78822.value.structure_type27858)==t78823))) goto l14615; /* x167249 */ /* x167248 stalin.sc:24255:841072 */ /* x167247 stalin.sc:24255:841102 */ t78832 = e17897->a31088; /* x167246 stalin.sc:24255:841073 */ a19769 = t78832; /* x52595 */ /* x52594 */ t78833 = a19769; /* x52593 */ if (!((t78833.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("CONTINUATION-TYPE-CALL-SITES[6085]"); structure_ref_error();} t78828 = t78833.value.structure_type27858->s3; /* x167245 stalin.sc:24254:841040 */ t78827 = e17897; /* x167240 stalin.sc:24254:841035 */ t78829.tag = NATIVE_PROCEDURE_TYPE24686; t78829.value.native_procedure_type24686 = t78827; t78830 = *((struct w49 *)(&t78828)); t78831 = (struct structure_type24753 *)NULL_TYPE; t77358 = f1042(t78829, t78830, t78831); goto l14616; l14615: /* x167250 */ t77358.tag = FALSE_TYPE; l14616: break; case NATIVE_PROCEDURE_TYPE23992: p8612 = t77369.value.native_procedure_type23992; a22123 = t77370; /* x73683 stalin.sc:4270:143635 */ /* x73656 stalin.sc:4270:143640 */ /* x73655 stalin.sc:4270:143664 */ t78834 = a22123; /* x73654 stalin.sc:4270:143641 */ a38040 = t78834; /* x284829 */ /* x284828 */ t78835 = a38040; /* x284827 */ if (!((t78835.tag)==STRUCTURE_TYPE27756)) goto l14618; /* x73681 */ /* x73665 stalin.sc:4271:143674 */ /* x73658 stalin.sc:4272:143703 */ t78836 = a22123; /* x73664 stalin.sc:4273:143713 */ /* x73662 stalin.sc:4274:143742 */ /* x73661 stalin.sc:4274:143760 */ t78842 = p8612->a22121; /* x73660 stalin.sc:4274:143743 */ t78839 = f8739(t78842); /* x73663 stalin.sc:4274:143763 */ t78840 = q64; /* x73659 stalin.sc:4273:143714 */ t78841 = t78839; t78837 = f8743(t78841, t78840); /* x73657 stalin.sc:4271:143675 */ t78838 = t78837; if ((f9367(t78836, t78838).tag)==FALSE_TYPE) goto l14621; /* x73679 */ /* x73667 stalin.sc:4276:143809 */ /* x73678 stalin.sc:4277:143829 */ /* x73677 stalin.sc:4278:143864 */ /* x73670 stalin.sc:4279:143894 */ t78846 = a22123; /* x73676 stalin.sc:4280:143906 */ /* x73674 stalin.sc:4281:143930 */ /* x73673 stalin.sc:4281:143948 */ t78852 = p8612->a22121; /* x73672 stalin.sc:4281:143931 */ t78849 = f8739(t78852); /* x73675 stalin.sc:4281:143951 */ t78850 = q64; /* x73671 stalin.sc:4280:143907 */ t78851 = t78849; t78847 = f8743(t78851, t78850); /* x73669 stalin.sc:4278:143865 */ t78848 = t78847; t78845 = f9368(t78846, t78848); /* x73668 stalin.sc:4277:143830 */ t78843 = f8683(t78845); /* x73666 stalin.sc:4275:143789 */ t78844.tag = NATIVE_PROCEDURE_TYPE7232; t77358 = f8144(t78844, t78843); goto l14622; l14621: /* x73680 */ t77358.tag = FALSE_TYPE; l14622: goto l14619; l14618: /* x73682 */ t77358.tag = FALSE_TYPE; l14619: break; case NATIVE_PROCEDURE_TYPE23999: p12672 = t77369.value.native_procedure_type23999; a24724 = t77370; e12672 = (struct p12672 *)alloca(sizeof(struct p12672)); if (e12672==NULL) {backtrace("stalin.sc", 12506, 437058); out_of_memory_error();} e12672->p12668 = p12672->p12668; e12672->a24724 = a24724; /* x113362 stalin.sc:12507:437073 */ /* x113301 stalin.sc:12507:437078 */ /* x113300 stalin.sc:12507:437098 */ t78853 = e12672->a24724; /* x113299 stalin.sc:12507:437079 */ a37845 = t78853; /* x284049 */ /* x284048 */ t78854 = a37845; /* x284047 */ if (!((t78854.tag)==STRUCTURE_TYPE27858)) goto l14624; /* x113360 */ /* x113306 stalin.sc:12508:437109 */ /* x113305 stalin.sc:12508:437137 */ t78856 = e12672->a24724; /* x113304 stalin.sc:12508:437110 */ /* x113303 stalin.sc:12508:437134 */ t78857 = p12672->a24723; /* x113302 stalin.sc:12508:437111 */ t78855 = f7917(t78857); if ((t78855&3)==1) {if ((f7905(((struct p7892 *)(t78855-1)), t78856).tag)==FALSE_TYPE) goto l14627;} else if ((f7893(((struct p7892 *)t78855), t78856).tag)==FALSE_TYPE) goto l14627; /* x113358 */ /* x113350 stalin.sc:12510:437159 */ t78858 = e12672; /* x113357 stalin.sc:12523:437542 */ /* x113356 stalin.sc:12524:437566 */ /* x113355 stalin.sc:12525:437586 */ /* x113354 stalin.sc:12525:437627 */ t78864 = e12672->a24724; /* x113353 stalin.sc:12525:437587 */ a37812 = t78864; /* x283917 */ /* x283916 */ t78865 = a37812; /* x283915 */ if (!((t78865.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32729]"); structure_ref_error();} t78863 = t78865.value.structure_type27858->s0; /* x113352 stalin.sc:12524:437567 */ t78861 = f6998(t78863); /* x113351 stalin.sc:12523:437543 */ a39859 = t78861; /* x292105 */ /* x292104 */ t78862 = a39859; /* x292103 */ if (!((t78862.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34776]"); structure_ref_error();} t78859 = t78862.value.structure_type27698->s10; /* x113307 stalin.sc:12509:437149 */ t78860.tag = NATIVE_PROCEDURE_TYPE24000; t78860.value.native_procedure_type24000 = t78858; t77358 = f8137(t78860, t78859); goto l14628; l14627: /* x113359 */ t77358.tag = FALSE_TYPE; l14628: goto l14625; l14624: /* x113361 */ t77358.tag = FALSE_TYPE; l14625: break; case NATIVE_PROCEDURE_TYPE24000: p12673 = t77369.value.native_procedure_type24000; a24725 = t77370; /* x113349 stalin.sc:12511:437175 */ /* x113310 stalin.sc:12511:437180 */ /* x113309 stalin.sc:12511:437204 */ t78866 = a24725; /* x113308 stalin.sc:12511:437181 */ a38039 = t78866; /* x284825 */ /* x284824 */ t78867 = a38039; /* x284823 */ if (!((t78867.tag)==STRUCTURE_TYPE27756)) goto l14630; /* x113347 */ /* x113328 stalin.sc:12512:437216 */ /* x113327 stalin.sc:12519:437422 */ t78869 = a24725; /* x113326 stalin.sc:12512:437217 */ /* x113316 stalin.sc:12513:437249 */ /* x113315 stalin.sc:12513:437255 */ /* x113314 stalin.sc:12513:437282 */ t78877 = p12673->a24724; /* x113313 stalin.sc:12513:437256 */ t78878 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t78878==NULL) {backtrace("stalin.sc", 12513, 437255); out_of_memory_error();} t78878->s0 = t78877; t78878->s1.tag = NULL_TYPE; t78876 = f8098(t78878); /* x113312 stalin.sc:12513:437250 */ a34887 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34887==NULL) {backtrace("stalin.sc", 12513, 437249); out_of_memory_error();} a34887->s0.tag = STRUCTURE_TYPE27650; a34887->s0.value.structure_type27650 = t78876; a34887->s1.tag = NULL_TYPE; /* x271781 */ t78870 = a34887; /* x113317 stalin.sc:12514:437289 */ t78871 = a1675; /* x113325 stalin.sc:12515:437299 */ /* x113323 stalin.sc:12516:437323 */ /* x113322 stalin.sc:12517:437346 */ /* x113321 stalin.sc:12517:437387 */ t78883 = p12673->a24724; /* x113320 stalin.sc:12517:437347 */ a37811 = t78883; /* x283913 */ /* x283912 */ t78884 = a37811; /* x283911 */ if (!((t78884.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32728]"); structure_ref_error();} t78882 = t78884.value.structure_type27858->s0; /* x113319 stalin.sc:12516:437324 */ t78879 = f8739(t78882); /* x113324 stalin.sc:12518:437395 */ t78880 = q64; /* x113318 stalin.sc:12515:437300 */ t78881 = t78879; t78872 = f8743(t78881, t78880); /* x113311 stalin.sc:12512:437218 */ t78873.tag = STRUCTURE_TYPE24753; t78873.value.structure_type24753 = t78870; /* MOVE: branching squeezed to general */ if (t78871>=((struct structure_type27650 *)VALUE_OFFSET)) {t78874.tag = STRUCTURE_TYPE27650; t78874.value.structure_type27650 = t78871;} else t78874.tag = (unsigned)t78871; t78875 = t78872; t78868 = f7892(t78873, t78874, t78875); if ((t78868&3)==1) {if ((f7905(((struct p7892 *)(t78868-1)), t78869).tag)==FALSE_TYPE) goto l14633;} else if ((f7893(((struct p7892 *)t78868), t78869).tag)==FALSE_TYPE) goto l14633; /* x113345 */ /* x113344 stalin.sc:12522:437518 */ /* x113343 stalin.sc:12522:437533 */ t78890 = a24725; /* x113342 stalin.sc:12522:437519 */ t78886 = f8984(t78890); /* x113341 stalin.sc:12520:437440 */ t78885 = p12673->p12668; /* x113329 stalin.sc:12520:437435 */ t78887.tag = NATIVE_PROCEDURE_TYPE24001; t78887.value.native_procedure_type24001 = t78885; t78888 = *((struct w49 *)(&t78886)); t78889 = (struct structure_type24753 *)NULL_TYPE; t77358 = f1042(t78887, t78888, t78889); goto l14634; l14633: /* x113346 */ t77358.tag = FALSE_TYPE; l14634: goto l14631; l14630: /* x113348 */ t77358.tag = FALSE_TYPE; l14631: break; case NATIVE_PROCEDURE_TYPE24059: p9670 = t77369.value.native_procedure_type24059; a22857 = t77370; /* x85941 stalin.sc:6785:235278 */ /* x85631 stalin.sc:6786:235291 */ /* x85630 stalin.sc:6786:235352 */ t78892 = a22857; /* x85629 stalin.sc:6786:235292 */ /* x85628 stalin.sc:6786:235316 */ /* x85627 stalin.sc:6786:235335 */ /* x85626 stalin.sc:6786:235347 */ t78896 = p9670->a22804; /* x85625 stalin.sc:6786:235336 */ a41244 = t78896; /* x299088 stalin.sc:5598:192786 */ /* x299087 stalin.sc:5598:192812 */ t78897 = a41244; /* x299086 stalin.sc:5598:192787 */ a42466 = t78897; /* x303734 */ /* x303733 */ t78898 = a42466; /* x303732 */ if (!((t78898.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37771]"); structure_ref_error();} t78894 = t78898.value.structure_type27747->s1; /* x85624 stalin.sc:6786:235317 */ a39705 = t78894; /* x291489 */ /* x291488 */ t78895 = a39705; /* x291487 */ if (!((t78895.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34622]"); structure_ref_error();} t78893 = t78895.value.structure_type27698->s11; /* x85623 stalin.sc:6786:235293 */ t78891 = f7917(t78893); if ((t78891&3)==1) {if ((f7905(((struct p7892 *)(t78891-1)), t78892).tag)==FALSE_TYPE) goto l14636;} else if ((f7893(((struct p7892 *)t78891), t78892).tag)==FALSE_TYPE) goto l14636; /* x85939 */ /* x85938 stalin.sc:6788:235369 */ /* x85938 stalin.sc:6788:235369 */ /* x85933 stalin.sc:6788:235374 */ /* x85932 stalin.sc:6788:235398 */ t79004 = a22857; /* x85931 stalin.sc:6788:235375 */ a38038 = t79004; /* x284821 */ /* x284820 */ t79005 = a38038; /* x284819 */ if (!((t79005.tag)==STRUCTURE_TYPE27756)) goto l14679; /* x85936 */ /* x85935 stalin.sc:6788:235408 */ t79006 = a22857; /* x85934 stalin.sc:6788:235402 */ if (f8918(t79006)==FALSE_TYPE) goto l14679; t78900 = TRUE_TYPE; goto l14680; l14679: t78900 = FALSE_TYPE; l14680: /* x85930 */ t78899 = p9670; p9671 = t78899; a22858 = t78900; /* x85929 */ /* x85632 */ if (a22858==FALSE_TYPE) goto l14639; /* x85633 */ t77358.tag = a22858; goto l14640; l14639: /* x85928 */ /* x85927 stalin.sc:6789:235414 */ /* x85927 stalin.sc:6789:235414 */ /* x85891 stalin.sc:6789:235419 */ /* x85890 stalin.sc:6789:235446 */ t78986 = a22857; /* x85889 stalin.sc:6789:235420 */ a19515 = t78986; /* x51646 */ /* x51645 */ t78987 = a19515; /* x51644 */ if (!((t78987.tag)==STRUCTURE_TYPE27753)) goto l14672; /* x85925 */ /* x85898 stalin.sc:6790:235456 */ /* x85897 stalin.sc:6790:235461 */ /* x85896 stalin.sc:6790:235503 */ t78989 = a22857; /* x85895 stalin.sc:6790:235462 */ /* x85894 stalin.sc:6790:235495 */ t78990 = q79; /* x85893 stalin.sc:6790:235463 */ t78991.tag = EXTERNAL_SYMBOL_TYPE; t78991.value.external_symbol_type = t78990; t78988 = f7708(t78991); if (!(f7709(t78988, t78989)==FALSE_TYPE)) goto l14672; /* x85923 */ /* x85905 stalin.sc:6791:235514 */ /* x85904 stalin.sc:6791:235519 */ /* x85903 stalin.sc:6793:235599 */ t78993 = a22857; /* x85902 stalin.sc:6791:235520 */ /* x85901 stalin.sc:6792:235560 */ t78994 = q66; /* x85900 stalin.sc:6791:235521 */ t78995.tag = EXTERNAL_SYMBOL_TYPE; t78995.value.external_symbol_type = t78994; t78992 = f7708(t78995); if (!(f7709(t78992, t78993)==FALSE_TYPE)) goto l14672; /* x85921 */ /* x85912 stalin.sc:6794:235610 */ /* x85911 stalin.sc:6794:235615 */ /* x85910 stalin.sc:6794:235656 */ t78997 = a22857; /* x85909 stalin.sc:6794:235616 */ /* x85908 stalin.sc:6794:235649 */ t78998 = q45; /* x85907 stalin.sc:6794:235617 */ t78999.tag = EXTERNAL_SYMBOL_TYPE; t78999.value.external_symbol_type = t78998; t78996 = f7708(t78999); if (!(f7709(t78996, t78997)==FALSE_TYPE)) goto l14672; /* x85919 */ /* x85918 stalin.sc:6795:235672 */ /* x85917 stalin.sc:6795:235714 */ t79001 = a22857; /* x85916 stalin.sc:6795:235673 */ /* x85915 stalin.sc:6795:235706 */ t79002 = q44; /* x85914 stalin.sc:6795:235674 */ t79003.tag = EXTERNAL_SYMBOL_TYPE; t79003.value.external_symbol_type = t79002; t79000 = f7708(t79003); if (!(f7709(t79000, t79001)==FALSE_TYPE)) goto l14672; t78902 = TRUE_TYPE; goto l14673; l14672: t78902 = FALSE_TYPE; l14673: /* x85888 */ t78901 = p9671; p9672 = t78901; a22859 = t78902; /* x85887 */ /* x85634 */ if (a22859==FALSE_TYPE) goto l14642; /* x85635 */ t77358.tag = a22859; goto l14643; l14642: /* x85886 */ /* x85885 stalin.sc:6796:235721 */ /* x85884 stalin.sc:6796:235746 */ t78984 = a22857; /* x85883 stalin.sc:6796:235722 */ a37937 = t78984; /* x284417 */ /* x284416 */ t78985 = a37937; /* x284415 */ t78904 = ((t78985.tag)==STRUCTURE_TYPE27750)?TRUE_TYPE:FALSE_TYPE; /* x85882 */ t78903 = p9672; p9673 = t78903; a22860 = t78904; /* x85881 */ /* x85636 */ if (a22860==FALSE_TYPE) goto l14645; /* x85637 */ t77358.tag = a22860; goto l14646; l14645: /* x85880 */ /* x85879 stalin.sc:6797:235751 */ /* x85838 stalin.sc:6797:235756 */ /* x85837 stalin.sc:6797:235798 */ t78970 = a22857; /* x85836 stalin.sc:6797:235757 */ /* x85835 stalin.sc:6797:235790 */ t78971 = q79; /* x85834 stalin.sc:6797:235758 */ t78972.tag = EXTERNAL_SYMBOL_TYPE; t78972.value.external_symbol_type = t78971; t78969 = f7708(t78972); if (f7709(t78969, t78970)==FALSE_TYPE) goto l14669; /* x85877 */ /* x85867 stalin.sc:6799:235825 */ t78973 = p9673; /* x85876 stalin.sc:6805:236039 */ /* x85875 stalin.sc:6806:236069 */ /* x85874 stalin.sc:6806:236085 */ /* x85873 stalin.sc:6806:236104 */ /* x85872 stalin.sc:6806:236116 */ t78981 = p9673->a22804; /* x85871 stalin.sc:6806:236105 */ a41243 = t78981; /* x299084 stalin.sc:5598:192786 */ /* x299083 stalin.sc:5598:192812 */ t78982 = a41243; /* x299082 stalin.sc:5598:192787 */ a42467 = t78982; /* x303738 */ /* x303737 */ t78983 = a42467; /* x303736 */ if (!((t78983.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37772]"); structure_ref_error();} t78979 = t78983.value.structure_type27747->s1; /* x85870 stalin.sc:6806:236086 */ a39704 = t78979; /* x291485 */ /* x291484 */ t78980 = a39704; /* x291483 */ if (!((t78980.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34621]"); structure_ref_error();} t78978 = t78980.value.structure_type27698->s11; /* x85869 stalin.sc:6806:236070 */ t78976 = f6998(t78978); /* x85868 stalin.sc:6805:236040 */ a39856 = t78976; /* x292093 */ /* x292092 */ t78977 = a39856; /* x292091 */ if (!((t78977.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34773]"); structure_ref_error();} t78974 = t78977.value.structure_type27698->s10; /* x85839 stalin.sc:6798:235809 */ t78975.tag = NATIVE_PROCEDURE_TYPE24063; t78975.value.native_procedure_type24063 = t78973; t78906 = f8137(t78975, t78974); goto l14670; l14669: /* x85878 */ t78906.tag = FALSE_TYPE; l14670: /* x85833 */ t78905 = p9673; p9674 = t78905; a22861 = t78906; /* x85832 */ /* x85638 */ if ((a22861.tag)==FALSE_TYPE) goto l14648; /* x85639 */ t77358 = a22861; goto l14649; l14648: /* x85831 */ /* x85830 stalin.sc:6807:236126 */ /* x85789 stalin.sc:6808:236134 */ /* x85788 stalin.sc:6810:236210 */ t78955 = a22857; /* x85787 stalin.sc:6808:236135 */ /* x85786 stalin.sc:6809:236173 */ t78956 = q66; /* x85785 stalin.sc:6808:236136 */ t78957.tag = EXTERNAL_SYMBOL_TYPE; t78957.value.external_symbol_type = t78956; t78954 = f7708(t78957); if (f7709(t78954, t78955)==FALSE_TYPE) goto l14666; /* x85828 */ /* x85818 stalin.sc:6812:236229 */ t78958 = p9674; /* x85827 stalin.sc:6819:236462 */ /* x85826 stalin.sc:6820:236488 */ /* x85825 stalin.sc:6820:236504 */ /* x85824 stalin.sc:6820:236523 */ /* x85823 stalin.sc:6820:236535 */ t78966 = p9674->a22804; /* x85822 stalin.sc:6820:236524 */ a41241 = t78966; /* x299076 stalin.sc:5598:192786 */ /* x299075 stalin.sc:5598:192812 */ t78967 = a41241; /* x299074 stalin.sc:5598:192787 */ a42469 = t78967; /* x303746 */ /* x303745 */ t78968 = a42469; /* x303744 */ if (!((t78968.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37774]"); structure_ref_error();} t78964 = t78968.value.structure_type27747->s1; /* x85821 stalin.sc:6820:236505 */ a39702 = t78964; /* x291477 */ /* x291476 */ t78965 = a39702; /* x291475 */ if (!((t78965.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34619]"); structure_ref_error();} t78963 = t78965.value.structure_type27698->s11; /* x85820 stalin.sc:6820:236489 */ t78961 = f6998(t78963); /* x85819 stalin.sc:6819:236463 */ a39855 = t78961; /* x292089 */ /* x292088 */ t78962 = a39855; /* x292087 */ if (!((t78962.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34772]"); structure_ref_error();} t78959 = t78962.value.structure_type27698->s10; /* x85790 stalin.sc:6811:236217 */ t78960.tag = NATIVE_PROCEDURE_TYPE24066; t78960.value.native_procedure_type24066 = t78958; t78908 = f8137(t78960, t78959); goto l14667; l14666: /* x85829 */ t78908.tag = FALSE_TYPE; l14667: /* x85784 */ t78907 = p9674; p9675 = t78907; a22862 = t78908; /* x85783 */ /* x85640 */ if ((a22862.tag)==FALSE_TYPE) goto l14651; /* x85641 */ t77358 = a22862; goto l14652; l14651: /* x85782 */ /* x85781 stalin.sc:6821:236545 */ /* x85696 stalin.sc:6822:236553 */ /* x85695 stalin.sc:6822:236594 */ t78927 = a22857; /* x85694 stalin.sc:6822:236554 */ /* x85693 stalin.sc:6822:236587 */ t78928 = q45; /* x85692 stalin.sc:6822:236555 */ t78929.tag = EXTERNAL_SYMBOL_TYPE; t78929.value.external_symbol_type = t78928; t78926 = f7708(t78929); if (f7709(t78926, t78927)==FALSE_TYPE) goto l14660; /* x85779 */ /* x85778 stalin.sc:6823:236604 */ /* x85768 stalin.sc:6824:236621 */ t78943 = p9675; /* x85777 stalin.sc:6830:236835 */ /* x85776 stalin.sc:6831:236865 */ /* x85775 stalin.sc:6831:236881 */ /* x85774 stalin.sc:6831:236900 */ /* x85773 stalin.sc:6831:236912 */ t78951 = p9675->a22804; /* x85772 stalin.sc:6831:236901 */ a41239 = t78951; /* x299068 stalin.sc:5598:192786 */ /* x299067 stalin.sc:5598:192812 */ t78952 = a41239; /* x299066 stalin.sc:5598:192787 */ a42471 = t78952; /* x303754 */ /* x303753 */ t78953 = a42471; /* x303752 */ if (!((t78953.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37776]"); structure_ref_error();} t78949 = t78953.value.structure_type27747->s1; /* x85771 stalin.sc:6831:236882 */ a39700 = t78949; /* x291469 */ /* x291468 */ t78950 = a39700; /* x291467 */ if (!((t78950.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34617]"); structure_ref_error();} t78948 = t78950.value.structure_type27698->s11; /* x85770 stalin.sc:6831:236866 */ t78946 = f6998(t78948); /* x85769 stalin.sc:6830:236836 */ a39854 = t78946; /* x292085 */ /* x292084 */ t78947 = a39854; /* x292083 */ if (!((t78947.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34771]"); structure_ref_error();} t78944 = t78947.value.structure_type27698->s10; /* x85740 stalin.sc:6823:236605 */ t78945.tag = NATIVE_PROCEDURE_TYPE24069; t78945.value.native_procedure_type24069 = t78943; t78931 = f8137(t78945, t78944); /* x85739 */ t78930 = p9675; p9679 = t78930; a22866 = t78931; /* x85738 */ /* x85697 */ if ((a22866.tag)==FALSE_TYPE) goto l14663; /* x85698 */ t78910 = a22866; goto l14664; l14663: /* x85737 */ /* x85727 stalin.sc:6833:236943 */ t78932 = p9679; /* x85736 stalin.sc:6839:237157 */ /* x85735 stalin.sc:6840:237187 */ /* x85734 stalin.sc:6840:237204 */ /* x85733 stalin.sc:6840:237223 */ /* x85732 stalin.sc:6840:237235 */ t78940 = p9679->a22804; /* x85731 stalin.sc:6840:237224 */ a41237 = t78940; /* x299060 stalin.sc:5598:192786 */ /* x299059 stalin.sc:5598:192812 */ t78941 = a41237; /* x299058 stalin.sc:5598:192787 */ a42473 = t78941; /* x303762 */ /* x303761 */ t78942 = a42473; /* x303760 */ if (!((t78942.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37778]"); structure_ref_error();} t78938 = t78942.value.structure_type27747->s1; /* x85730 stalin.sc:6840:237205 */ a39698 = t78938; /* x291461 */ /* x291460 */ t78939 = a39698; /* x291459 */ if (!((t78939.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34615]"); structure_ref_error();} t78937 = t78939.value.structure_type27698->s11; /* x85729 stalin.sc:6840:237188 */ t78935 = f7003(t78937); /* x85728 stalin.sc:6839:237158 */ a39853 = t78935; /* x292081 */ /* x292080 */ t78936 = a39853; /* x292079 */ if (!((t78936.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34770]"); structure_ref_error();} t78933 = t78936.value.structure_type27698->s10; /* x85699 stalin.sc:6832:236927 */ t78934.tag = NATIVE_PROCEDURE_TYPE24072; t78934.value.native_procedure_type24072 = t78932; t78910 = f8137(t78934, t78933); l14664: goto l14661; l14660: /* x85780 */ t78910.tag = FALSE_TYPE; l14661: /* x85691 */ t78909 = p9675; p9676 = t78909; a22863 = t78910; /* x85690 */ /* x85642 */ if ((a22863.tag)==FALSE_TYPE) goto l14654; /* x85643 */ t77358 = a22863; goto l14655; l14654: /* x85689 */ /* x85648 stalin.sc:6842:237254 */ /* x85647 stalin.sc:6842:237296 */ t78912 = a22857; /* x85646 stalin.sc:6842:237255 */ /* x85645 stalin.sc:6842:237288 */ t78913 = q44; /* x85644 stalin.sc:6842:237256 */ t78914.tag = EXTERNAL_SYMBOL_TYPE; t78914.value.external_symbol_type = t78913; t78911 = f7708(t78914); if (f7709(t78911, t78912)==FALSE_TYPE) goto l14657; /* x85687 */ /* x85677 stalin.sc:6844:237315 */ t78915 = p9676; /* x85686 stalin.sc:6850:237512 */ /* x85685 stalin.sc:6851:237538 */ /* x85684 stalin.sc:6851:237554 */ /* x85683 stalin.sc:6851:237573 */ /* x85682 stalin.sc:6851:237585 */ t78923 = p9676->a22804; /* x85681 stalin.sc:6851:237574 */ a41235 = t78923; /* x299052 stalin.sc:5598:192786 */ /* x299051 stalin.sc:5598:192812 */ t78924 = a41235; /* x299050 stalin.sc:5598:192787 */ a42475 = t78924; /* x303770 */ /* x303769 */ t78925 = a42475; /* x303768 */ if (!((t78925.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37780]"); structure_ref_error();} t78921 = t78925.value.structure_type27747->s1; /* x85680 stalin.sc:6851:237555 */ a39696 = t78921; /* x291453 */ /* x291452 */ t78922 = a39696; /* x291451 */ if (!((t78922.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34613]"); structure_ref_error();} t78920 = t78922.value.structure_type27698->s11; /* x85679 stalin.sc:6851:237539 */ t78918 = f6998(t78920); /* x85678 stalin.sc:6850:237513 */ a39852 = t78918; /* x292077 */ /* x292076 */ t78919 = a39852; /* x292075 */ if (!((t78919.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34769]"); structure_ref_error();} t78916 = t78919.value.structure_type27698->s10; /* x85649 stalin.sc:6843:237303 */ t78917.tag = NATIVE_PROCEDURE_TYPE24075; t78917.value.native_procedure_type24075 = t78915; t77358 = f8137(t78917, t78916); goto l14658; l14657: /* x85688 */ t77358.tag = FALSE_TYPE; l14658: l14655: l14652: l14649: l14646: l14643: l14640: goto l14637; l14636: /* x85940 */ t77358.tag = FALSE_TYPE; l14637: break; case NATIVE_PROCEDURE_TYPE24063: p9686 = t77369.value.native_procedure_type24063; a22873 = t77370; /* x85866 stalin.sc:6800:235846 */ /* x85866 stalin.sc:6800:235846 */ /* x85848 stalin.sc:6800:235851 */ /* x85847 stalin.sc:6802:235939 */ t79008 = a22873; /* x85846 stalin.sc:6800:235852 */ /* x85845 stalin.sc:6801:235895 */ /* x85844 stalin.sc:6801:235914 */ /* x85843 stalin.sc:6801:235926 */ t79012 = p9686->a22804; /* x85842 stalin.sc:6801:235915 */ a41242 = t79012; /* x299080 stalin.sc:5598:192786 */ /* x299079 stalin.sc:5598:192812 */ t79013 = a41242; /* x299078 stalin.sc:5598:192787 */ a42468 = t79013; /* x303742 */ /* x303741 */ t79014 = a42468; /* x303740 */ if (!((t79014.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37773]"); structure_ref_error();} t79010 = t79014.value.structure_type27747->s1; /* x85841 stalin.sc:6801:235896 */ a39703 = t79010; /* x291481 */ /* x291480 */ t79011 = a39703; /* x291479 */ if (!((t79011.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34620]"); structure_ref_error();} t79009 = t79011.value.structure_type27698->s11; /* x85840 stalin.sc:6800:235853 */ t79007 = f7918(t79009); if ((t79007&3)==1) {if ((f7905(((struct p7892 *)(t79007-1)), t79008).tag)==FALSE_TYPE) goto l14683;} else if ((f7893(((struct p7892 *)t79007), t79008).tag)==FALSE_TYPE) goto l14683; /* x85864 */ /* x85863 stalin.sc:6803:235953 */ /* x85858 stalin.sc:6803:235958 */ /* x85857 stalin.sc:6803:235982 */ t79015 = a22873; /* x85856 stalin.sc:6803:235959 */ a38037 = t79015; /* x284817 */ /* x284816 */ t79016 = a38037; /* x284815 */ if (!((t79016.tag)==STRUCTURE_TYPE27756)) goto l14686; /* x85861 */ /* x85860 stalin.sc:6803:235992 */ t79017 = a22873; /* x85859 stalin.sc:6803:235986 */ if (!(f8918(t79017)==FALSE_TYPE)) goto l14682; l14686: /* x85853 */ /* x85852 stalin.sc:6804:236025 */ t79018 = a22873; /* x85851 stalin.sc:6804:236001 */ a37936 = t79018; /* x284413 */ /* x284412 */ t79019 = a37936; /* x284411 */ if (!((t79019.tag)==STRUCTURE_TYPE27750)) goto l14683; l14682: t77358.tag = TRUE_TYPE; goto l14684; l14683: t77358.tag = FALSE_TYPE; l14684: break; case NATIVE_PROCEDURE_TYPE24066: p9684 = t77369.value.native_procedure_type24066; a22871 = t77370; /* x85817 stalin.sc:6813:236246 */ /* x85817 stalin.sc:6813:236246 */ /* x85799 stalin.sc:6814:236257 */ /* x85798 stalin.sc:6816:236368 */ t79021 = a22871; /* x85797 stalin.sc:6814:236258 */ /* x85796 stalin.sc:6815:236325 */ /* x85795 stalin.sc:6815:236344 */ /* x85794 stalin.sc:6815:236356 */ t79025 = p9684->a22804; /* x85793 stalin.sc:6815:236345 */ a41240 = t79025; /* x299072 stalin.sc:5598:192786 */ /* x299071 stalin.sc:5598:192812 */ t79026 = a41240; /* x299070 stalin.sc:5598:192787 */ a42470 = t79026; /* x303750 */ /* x303749 */ t79027 = a42470; /* x303748 */ if (!((t79027.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37775]"); structure_ref_error();} t79023 = t79027.value.structure_type27747->s1; /* x85792 stalin.sc:6815:236326 */ a39701 = t79023; /* x291473 */ /* x291472 */ t79024 = a39701; /* x291471 */ if (!((t79024.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34618]"); structure_ref_error();} t79022 = t79024.value.structure_type27698->s11; /* x85791 stalin.sc:6814:236259 */ t79020 = f7919(t79022); if ((t79020&3)==1) {if ((f7905(((struct p7892 *)(t79020-1)), t79021).tag)==FALSE_TYPE) goto l14689;} else if ((f7893(((struct p7892 *)t79020), t79021).tag)==FALSE_TYPE) goto l14689; /* x85815 */ /* x85814 stalin.sc:6817:236381 */ /* x85809 stalin.sc:6817:236386 */ /* x85808 stalin.sc:6817:236410 */ t79028 = a22871; /* x85807 stalin.sc:6817:236387 */ a38036 = t79028; /* x284813 */ /* x284812 */ t79029 = a38036; /* x284811 */ if (!((t79029.tag)==STRUCTURE_TYPE27756)) goto l14692; /* x85812 */ /* x85811 stalin.sc:6817:236420 */ t79030 = a22871; /* x85810 stalin.sc:6817:236414 */ if (!(f8918(t79030)==FALSE_TYPE)) goto l14688; l14692: /* x85804 */ /* x85803 stalin.sc:6818:236452 */ t79031 = a22871; /* x85802 stalin.sc:6818:236428 */ a37935 = t79031; /* x284409 */ /* x284408 */ t79032 = a37935; /* x284407 */ if (!((t79032.tag)==STRUCTURE_TYPE27750)) goto l14689; l14688: t77358.tag = TRUE_TYPE; goto l14690; l14689: t77358.tag = FALSE_TYPE; l14690: break; case NATIVE_PROCEDURE_TYPE24069: p9682 = t77369.value.native_procedure_type24069; a22869 = t77370; /* x85767 stalin.sc:6825:236642 */ /* x85767 stalin.sc:6825:236642 */ /* x85749 stalin.sc:6825:236647 */ /* x85748 stalin.sc:6827:236735 */ t79034 = a22869; /* x85747 stalin.sc:6825:236648 */ /* x85746 stalin.sc:6826:236691 */ /* x85745 stalin.sc:6826:236710 */ /* x85744 stalin.sc:6826:236722 */ t79038 = p9682->a22804; /* x85743 stalin.sc:6826:236711 */ a41238 = t79038; /* x299064 stalin.sc:5598:192786 */ /* x299063 stalin.sc:5598:192812 */ t79039 = a41238; /* x299062 stalin.sc:5598:192787 */ a42472 = t79039; /* x303758 */ /* x303757 */ t79040 = a42472; /* x303756 */ if (!((t79040.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37777]"); structure_ref_error();} t79036 = t79040.value.structure_type27747->s1; /* x85742 stalin.sc:6826:236692 */ a39699 = t79036; /* x291465 */ /* x291464 */ t79037 = a39699; /* x291463 */ if (!((t79037.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34616]"); structure_ref_error();} t79035 = t79037.value.structure_type27698->s11; /* x85741 stalin.sc:6825:236649 */ t79033 = f7920(t79035); if ((t79033&3)==1) {if ((f7905(((struct p7892 *)(t79033-1)), t79034).tag)==FALSE_TYPE) goto l14695;} else if ((f7893(((struct p7892 *)t79033), t79034).tag)==FALSE_TYPE) goto l14695; /* x85765 */ /* x85764 stalin.sc:6828:236749 */ /* x85759 stalin.sc:6828:236754 */ /* x85758 stalin.sc:6828:236778 */ t79041 = a22869; /* x85757 stalin.sc:6828:236755 */ a38035 = t79041; /* x284809 */ /* x284808 */ t79042 = a38035; /* x284807 */ if (!((t79042.tag)==STRUCTURE_TYPE27756)) goto l14698; /* x85762 */ /* x85761 stalin.sc:6828:236788 */ t79043 = a22869; /* x85760 stalin.sc:6828:236782 */ if (!(f8918(t79043)==FALSE_TYPE)) goto l14694; l14698: /* x85754 */ /* x85753 stalin.sc:6829:236821 */ t79044 = a22869; /* x85752 stalin.sc:6829:236797 */ a37934 = t79044; /* x284405 */ /* x284404 */ t79045 = a37934; /* x284403 */ if (!((t79045.tag)==STRUCTURE_TYPE27750)) goto l14695; l14694: t77358.tag = TRUE_TYPE; goto l14696; l14695: t77358.tag = FALSE_TYPE; l14696: break; case NATIVE_PROCEDURE_TYPE24072: p9680 = t77369.value.native_procedure_type24072; a22867 = t77370; /* x85726 stalin.sc:6834:236964 */ /* x85726 stalin.sc:6834:236964 */ /* x85708 stalin.sc:6834:236969 */ /* x85707 stalin.sc:6836:237057 */ t79047 = a22867; /* x85706 stalin.sc:6834:236970 */ /* x85705 stalin.sc:6835:237013 */ /* x85704 stalin.sc:6835:237032 */ /* x85703 stalin.sc:6835:237044 */ t79051 = p9680->a22804; /* x85702 stalin.sc:6835:237033 */ a41236 = t79051; /* x299056 stalin.sc:5598:192786 */ /* x299055 stalin.sc:5598:192812 */ t79052 = a41236; /* x299054 stalin.sc:5598:192787 */ a42474 = t79052; /* x303766 */ /* x303765 */ t79053 = a42474; /* x303764 */ if (!((t79053.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37779]"); structure_ref_error();} t79049 = t79053.value.structure_type27747->s1; /* x85701 stalin.sc:6835:237014 */ a39697 = t79049; /* x291457 */ /* x291456 */ t79050 = a39697; /* x291455 */ if (!((t79050.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34614]"); structure_ref_error();} t79048 = t79050.value.structure_type27698->s11; /* x85700 stalin.sc:6834:236971 */ t79046 = f7921(t79048); if ((t79046&3)==1) {if ((f7905(((struct p7892 *)(t79046-1)), t79047).tag)==FALSE_TYPE) goto l14701;} else if ((f7893(((struct p7892 *)t79046), t79047).tag)==FALSE_TYPE) goto l14701; /* x85724 */ /* x85723 stalin.sc:6837:237071 */ /* x85718 stalin.sc:6837:237076 */ /* x85717 stalin.sc:6837:237100 */ t79054 = a22867; /* x85716 stalin.sc:6837:237077 */ a38034 = t79054; /* x284805 */ /* x284804 */ t79055 = a38034; /* x284803 */ if (!((t79055.tag)==STRUCTURE_TYPE27756)) goto l14704; /* x85721 */ /* x85720 stalin.sc:6837:237110 */ t79056 = a22867; /* x85719 stalin.sc:6837:237104 */ if (!(f8918(t79056)==FALSE_TYPE)) goto l14700; l14704: /* x85713 */ /* x85712 stalin.sc:6838:237143 */ t79057 = a22867; /* x85711 stalin.sc:6838:237119 */ a37933 = t79057; /* x284401 */ /* x284400 */ t79058 = a37933; /* x284399 */ if (!((t79058.tag)==STRUCTURE_TYPE27750)) goto l14701; l14700: t77358.tag = TRUE_TYPE; goto l14702; l14701: t77358.tag = FALSE_TYPE; l14702: break; case NATIVE_PROCEDURE_TYPE24075: p9677 = t77369.value.native_procedure_type24075; a22864 = t77370; /* x85676 stalin.sc:6845:237332 */ /* x85676 stalin.sc:6845:237332 */ /* x85658 stalin.sc:6845:237337 */ /* x85657 stalin.sc:6847:237417 */ t79060 = a22864; /* x85656 stalin.sc:6845:237338 */ /* x85655 stalin.sc:6846:237377 */ /* x85654 stalin.sc:6846:237396 */ /* x85653 stalin.sc:6846:237408 */ t79064 = p9677->a22804; /* x85652 stalin.sc:6846:237397 */ a41234 = t79064; /* x299048 stalin.sc:5598:192786 */ /* x299047 stalin.sc:5598:192812 */ t79065 = a41234; /* x299046 stalin.sc:5598:192787 */ a42476 = t79065; /* x303774 */ /* x303773 */ t79066 = a42476; /* x303772 */ if (!((t79066.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37781]"); structure_ref_error();} t79062 = t79066.value.structure_type27747->s1; /* x85651 stalin.sc:6846:237378 */ a39695 = t79062; /* x291449 */ /* x291448 */ t79063 = a39695; /* x291447 */ if (!((t79063.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34612]"); structure_ref_error();} t79061 = t79063.value.structure_type27698->s11; /* x85650 stalin.sc:6845:237339 */ t79059 = f7922(t79061); if ((t79059&3)==1) {if ((f7905(((struct p7892 *)(t79059-1)), t79060).tag)==FALSE_TYPE) goto l14707;} else if ((f7893(((struct p7892 *)t79059), t79060).tag)==FALSE_TYPE) goto l14707; /* x85674 */ /* x85673 stalin.sc:6848:237427 */ /* x85668 stalin.sc:6848:237432 */ /* x85667 stalin.sc:6848:237456 */ t79067 = a22864; /* x85666 stalin.sc:6848:237433 */ a38033 = t79067; /* x284801 */ /* x284800 */ t79068 = a38033; /* x284799 */ if (!((t79068.tag)==STRUCTURE_TYPE27756)) goto l14710; /* x85671 */ /* x85670 stalin.sc:6848:237466 */ t79069 = a22864; /* x85669 stalin.sc:6848:237460 */ if (!(f8918(t79069)==FALSE_TYPE)) goto l14706; l14710: /* x85663 */ /* x85662 stalin.sc:6849:237502 */ t79070 = a22864; /* x85661 stalin.sc:6849:237478 */ a19651 = t79070; /* x52146 */ /* x52145 */ t79071 = a19651; /* x52144 */ if (!((t79071.tag)==STRUCTURE_TYPE27750)) goto l14707; l14706: t77358.tag = TRUE_TYPE; goto l14708; l14707: t77358.tag = FALSE_TYPE; l14708: break; case NATIVE_PROCEDURE_TYPE24078: p9657 = t77369.value.native_procedure_type24078; a22844 = t77370; /* x85589 stalin.sc:6707:232784 */ /* x85399 stalin.sc:6708:232795 */ /* x85398 stalin.sc:6708:232823 */ t79073 = a22844; /* x85397 stalin.sc:6708:232796 */ /* x85396 stalin.sc:6708:232820 */ t79074 = p9657->a22843; /* x85395 stalin.sc:6708:232797 */ t79072 = f7917(t79074); if ((t79072&3)==1) {if ((f7905(((struct p7892 *)(t79072-1)), t79073).tag)==FALSE_TYPE) goto l14713;} else if ((f7893(((struct p7892 *)t79072), t79073).tag)==FALSE_TYPE) goto l14713; /* x85587 */ /* x85586 stalin.sc:6710:232843 */ /* x85578 stalin.sc:6711:232856 */ t79131 = a22844; /* x85585 stalin.sc:6711:232858 */ /* x85584 stalin.sc:6711:232876 */ /* x85583 stalin.sc:6711:232900 */ /* x85582 stalin.sc:6711:232912 */ t79136 = p9657->p9612->a22804; /* x85581 stalin.sc:6711:232901 */ a41230 = t79136; /* x299032 stalin.sc:5598:192786 */ /* x299031 stalin.sc:5598:192812 */ t79137 = a41230; /* x299030 stalin.sc:5598:192787 */ a42480 = t79137; /* x303790 */ /* x303789 */ t79138 = a42480; /* x303788 */ if (!((t79138.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37785]"); structure_ref_error();} t79134 = t79138.value.structure_type27747->s1; /* x85580 stalin.sc:6711:232877 */ a40029 = t79134; /* x292785 */ /* x292784 */ t79135 = a40029; /* x292783 */ if (!((t79135.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34946]"); structure_ref_error();} t79133 = t79135.value.structure_type27698->s9; /* x85579 stalin.sc:6711:232859 */ t79132 = f8691(t79133); /* x269963 stalin.sc:6710:232844 */ /* EQ: dispatching general to general */ if ((t79131.tag)==(t79132.tag)) {switch (t79131.tag) {case FIXNUM_TYPE: t79076 = ((t79131.value.fixnum_type)==(t79132.value.fixnum_type))?TRUE_TYPE:FALSE_TYPE; break; case FLONUM_TYPE: t79076 = ((t79131.value.flonum_type)==(t79132.value.flonum_type))?TRUE_TYPE:FALSE_TYPE; break; case INPUT_PORT_TYPE: t79076 = ((t79131.value.input_port_type)==(t79132.value.input_port_type))?TRUE_TYPE:FALSE_TYPE; break; case OUTPUT_PORT_TYPE: t79076 = ((t79131.value.output_port_type)==(t79132.value.output_port_type))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE15963: t79076 = ((t79131.value.native_procedure_type15963)==(t79132.value.native_procedure_type15963))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19067: t79076 = ((t79131.value.native_procedure_type19067)==(t79132.value.native_procedure_type19067))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19068: t79076 = ((t79131.value.native_procedure_type19068)==(t79132.value.native_procedure_type19068))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE22459: t79076 = ((t79131.value.native_procedure_type22459)==(t79132.value.native_procedure_type22459))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24753: t79076 = ((t79131.value.structure_type24753)==(t79132.value.structure_type24753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24757: t79076 = ((t79131.value.structure_type24757)==(t79132.value.structure_type24757))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27501: t79076 = ((t79131.value.structure_type27501)==(t79132.value.structure_type27501))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27510: t79076 = ((t79131.value.structure_type27510)==(t79132.value.structure_type27510))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27621: t79076 = ((t79131.value.structure_type27621)==(t79132.value.structure_type27621))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27650: t79076 = ((t79131.value.structure_type27650)==(t79132.value.structure_type27650))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27669: t79076 = ((t79131.value.structure_type27669)==(t79132.value.structure_type27669))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27673: t79076 = ((t79131.value.structure_type27673)==(t79132.value.structure_type27673))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27692: t79076 = ((t79131.value.structure_type27692)==(t79132.value.structure_type27692))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27694: t79076 = ((t79131.value.structure_type27694)==(t79132.value.structure_type27694))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27698: t79076 = ((t79131.value.structure_type27698)==(t79132.value.structure_type27698))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27745: t79076 = ((t79131.value.structure_type27745)==(t79132.value.structure_type27745))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27747: t79076 = ((t79131.value.structure_type27747)==(t79132.value.structure_type27747))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27750: t79076 = ((t79131.value.structure_type27750)==(t79132.value.structure_type27750))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27753: t79076 = ((t79131.value.structure_type27753)==(t79132.value.structure_type27753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27756: t79076 = ((t79131.value.structure_type27756)==(t79132.value.structure_type27756))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27761: t79076 = ((t79131.value.structure_type27761)==(t79132.value.structure_type27761))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27769: t79076 = ((t79131.value.structure_type27769)==(t79132.value.structure_type27769))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27776: t79076 = ((t79131.value.structure_type27776)==(t79132.value.structure_type27776))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27779: t79076 = ((t79131.value.structure_type27779)==(t79132.value.structure_type27779))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27858: t79076 = ((t79131.value.structure_type27858)==(t79132.value.structure_type27858))?TRUE_TYPE:FALSE_TYPE; break; case STRING_TYPE: t79076 = ((t79131.value.string_type)==(t79132.value.string_type))?TRUE_TYPE:FALSE_TYPE; break; case HEADED_VECTOR_TYPE27896: t79076 = ((t79131.value.headed_vector_type27896)==(t79132.value.headed_vector_type27896))?TRUE_TYPE:FALSE_TYPE; break; case EXTERNAL_SYMBOL_TYPE: t79076 = ((t79131.value.external_symbol_type)==(t79132.value.external_symbol_type))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27908: t79076 = ((t79131.value.structure_type27908)==(t79132.value.structure_type27908))?TRUE_TYPE:FALSE_TYPE; break; default: t79076 = TRUE_TYPE;}} else t79076 = FALSE_TYPE; /* x85576 */ t79075 = p9657; p9658 = t79075; a22845 = t79076; /* x85575 */ /* x85400 */ if (a22845==FALSE_TYPE) goto l14716; /* x85401 */ t77358.tag = a22845; goto l14717; l14716: /* x85574 */ /* x85573 stalin.sc:6712:232925 */ /* x85546 stalin.sc:6712:232930 */ /* x85545 stalin.sc:6712:232972 */ t79122 = a22844; /* x85544 stalin.sc:6712:232931 */ /* x85543 stalin.sc:6712:232964 */ t79123 = q79; /* x85542 stalin.sc:6712:232932 */ t79124.tag = EXTERNAL_SYMBOL_TYPE; t79124.value.external_symbol_type = t79123; t79121 = f7708(t79124); if (f7709(t79121, t79122)==FALSE_TYPE) goto l14740; /* x85571 */ /* x85565 stalin.sc:6714:232995 */ t79125 = p9658; /* x85570 stalin.sc:6719:233154 */ /* x85569 stalin.sc:6719:233175 */ /* x85568 stalin.sc:6719:233191 */ t79130 = p9658->a22843; /* x85567 stalin.sc:6719:233176 */ t79128 = f6998(t79130); /* x85566 stalin.sc:6719:233155 */ a39850 = t79128; /* x292069 */ /* x292068 */ t79129 = a39850; /* x292067 */ if (!((t79129.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34767]"); structure_ref_error();} t79126 = t79129.value.structure_type27698->s10; /* x85547 stalin.sc:6713:232981 */ t79127.tag = NATIVE_PROCEDURE_TYPE24080; t79127.value.native_procedure_type24080 = t79125; t79078 = f8137(t79127, t79126); goto l14741; l14740: /* x85572 */ t79078.tag = FALSE_TYPE; l14741: /* x85541 */ t79077 = p9658; p9659 = t79077; a22846 = t79078; /* x85540 */ /* x85402 */ if ((a22846.tag)==FALSE_TYPE) goto l14719; /* x85403 */ t77358 = a22846; goto l14720; l14719: /* x85539 */ /* x85538 stalin.sc:6720:233204 */ /* x85511 stalin.sc:6721:233217 */ /* x85510 stalin.sc:6723:233289 */ t79112 = a22844; /* x85509 stalin.sc:6721:233218 */ /* x85508 stalin.sc:6722:233254 */ t79113 = q66; /* x85507 stalin.sc:6721:233219 */ t79114.tag = EXTERNAL_SYMBOL_TYPE; t79114.value.external_symbol_type = t79113; t79111 = f7708(t79114); if (f7709(t79111, t79112)==FALSE_TYPE) goto l14737; /* x85536 */ /* x85530 stalin.sc:6725:233311 */ t79115 = p9659; /* x85535 stalin.sc:6733:233499 */ /* x85534 stalin.sc:6733:233520 */ /* x85533 stalin.sc:6733:233536 */ t79120 = p9659->a22843; /* x85532 stalin.sc:6733:233521 */ t79118 = f6998(t79120); /* x85531 stalin.sc:6733:233500 */ a39849 = t79118; /* x292065 */ /* x292064 */ t79119 = a39849; /* x292063 */ if (!((t79119.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34766]"); structure_ref_error();} t79116 = t79119.value.structure_type27698->s10; /* x85512 stalin.sc:6724:233301 */ t79117.tag = NATIVE_PROCEDURE_TYPE24082; t79117.value.native_procedure_type24082 = t79115; t79080 = f8137(t79117, t79116); goto l14738; l14737: /* x85537 */ t79080.tag = FALSE_TYPE; l14738: /* x85506 */ t79079 = p9659; p9660 = t79079; a22847 = t79080; /* x85505 */ /* x85404 */ if ((a22847.tag)==FALSE_TYPE) goto l14722; /* x85405 */ t77358 = a22847; goto l14723; l14722: /* x85504 */ /* x85503 stalin.sc:6734:233549 */ /* x85446 stalin.sc:6734:233554 */ /* x85445 stalin.sc:6734:233595 */ t79094 = a22844; /* x85444 stalin.sc:6734:233555 */ /* x85443 stalin.sc:6734:233588 */ t79095 = q45; /* x85442 stalin.sc:6734:233556 */ t79096.tag = EXTERNAL_SYMBOL_TYPE; t79096.value.external_symbol_type = t79095; t79093 = f7708(t79096); if (f7709(t79093, t79094)==FALSE_TYPE) goto l14731; /* x85501 */ /* x85500 stalin.sc:6735:233607 */ /* x85494 stalin.sc:6736:233619 */ t79105 = p9660; /* x85499 stalin.sc:6741:233777 */ /* x85498 stalin.sc:6741:233798 */ /* x85497 stalin.sc:6741:233814 */ t79110 = p9660->a22843; /* x85496 stalin.sc:6741:233799 */ t79108 = f6998(t79110); /* x85495 stalin.sc:6741:233778 */ a39848 = t79108; /* x292061 */ /* x292060 */ t79109 = a39848; /* x292059 */ if (!((t79109.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34765]"); structure_ref_error();} t79106 = t79109.value.structure_type27698->s10; /* x85476 stalin.sc:6735:233608 */ t79107.tag = NATIVE_PROCEDURE_TYPE24084; t79107.value.native_procedure_type24084 = t79105; t79098 = f8137(t79107, t79106); /* x85475 */ t79097 = p9660; p9663 = t79097; a22850 = t79098; /* x85474 */ /* x85447 */ if ((a22850.tag)==FALSE_TYPE) goto l14734; /* x85448 */ t79082 = a22850; goto l14735; l14734: /* x85473 */ /* x85467 stalin.sc:6743:233840 */ t79099 = p9663; /* x85472 stalin.sc:6748:233998 */ /* x85471 stalin.sc:6748:234019 */ /* x85470 stalin.sc:6748:234036 */ t79104 = p9663->a22843; /* x85469 stalin.sc:6748:234020 */ t79102 = f7003(t79104); /* x85468 stalin.sc:6748:233999 */ a39847 = t79102; /* x292057 */ /* x292056 */ t79103 = a39847; /* x292055 */ if (!((t79103.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34764]"); structure_ref_error();} t79100 = t79103.value.structure_type27698->s10; /* x85449 stalin.sc:6742:233829 */ t79101.tag = NATIVE_PROCEDURE_TYPE24086; t79101.value.native_procedure_type24086 = t79099; t79082 = f8137(t79101, t79100); l14735: goto l14732; l14731: /* x85502 */ t79082.tag = FALSE_TYPE; l14732: /* x85441 */ t79081 = p9660; p9661 = t79081; a22848 = t79082; /* x85440 */ /* x85406 */ if ((a22848.tag)==FALSE_TYPE) goto l14725; /* x85407 */ t77358 = a22848; goto l14726; l14725: /* x85439 */ /* x85412 stalin.sc:6749:234055 */ /* x85411 stalin.sc:6749:234097 */ t79084 = a22844; /* x85410 stalin.sc:6749:234056 */ /* x85409 stalin.sc:6749:234089 */ t79085 = q44; /* x85408 stalin.sc:6749:234057 */ t79086.tag = EXTERNAL_SYMBOL_TYPE; t79086.value.external_symbol_type = t79085; t79083 = f7708(t79086); if (f7709(t79083, t79084)==FALSE_TYPE) goto l14728; /* x85437 */ /* x85431 stalin.sc:6751:234120 */ t79087 = p9661; /* x85436 stalin.sc:6756:234279 */ /* x85435 stalin.sc:6756:234300 */ /* x85434 stalin.sc:6756:234316 */ t79092 = p9661->a22843; /* x85433 stalin.sc:6756:234301 */ t79090 = f6998(t79092); /* x85432 stalin.sc:6756:234280 */ a39846 = t79090; /* x292053 */ /* x292052 */ t79091 = a39846; /* x292051 */ if (!((t79091.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34763]"); structure_ref_error();} t79088 = t79091.value.structure_type27698->s10; /* x85413 stalin.sc:6750:234106 */ t79089.tag = NATIVE_PROCEDURE_TYPE24088; t79089.value.native_procedure_type24088 = t79087; t77358 = f8137(t79089, t79088); goto l14729; l14728: /* x85438 */ t77358.tag = FALSE_TYPE; l14729: l14726: l14723: l14720: l14717: goto l14714; l14713: /* x85588 */ t77358.tag = FALSE_TYPE; l14714: break; case NATIVE_PROCEDURE_TYPE24080: p9667 = t77369.value.native_procedure_type24080; a22854 = t77370; /* x85564 stalin.sc:6715:233014 */ /* x85564 stalin.sc:6715:233014 */ /* x85552 stalin.sc:6715:233019 */ /* x85551 stalin.sc:6715:233057 */ t79140 = a22854; /* x85550 stalin.sc:6715:233020 */ /* x85549 stalin.sc:6715:233054 */ t79141 = p9667->a22843; /* x85548 stalin.sc:6715:233021 */ t79139 = f7918(t79141); if ((t79139&3)==1) {if ((f7905(((struct p7892 *)(t79139-1)), t79140).tag)==FALSE_TYPE) goto l14743;} else if ((f7893(((struct p7892 *)t79139), t79140).tag)==FALSE_TYPE) goto l14743; /* x85562 */ /* x85554 stalin.sc:6716:233070 */ t79142 = a22854; /* x85561 stalin.sc:6717:233082 */ /* x85560 stalin.sc:6718:233104 */ /* x85559 stalin.sc:6718:233128 */ /* x85558 stalin.sc:6718:233140 */ t79147 = p9667->p9612->a22804; /* x85557 stalin.sc:6718:233129 */ a41229 = t79147; /* x299028 stalin.sc:5598:192786 */ /* x299027 stalin.sc:5598:192812 */ t79148 = a41229; /* x299026 stalin.sc:5598:192787 */ a42481 = t79148; /* x303794 */ /* x303793 */ t79149 = a42481; /* x303792 */ if (!((t79149.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37786]"); structure_ref_error();} t79145 = t79149.value.structure_type27747->s1; /* x85556 stalin.sc:6718:233105 */ a40028 = t79145; /* x292781 */ /* x292780 */ t79146 = a40028; /* x292779 */ if (!((t79146.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34945]"); structure_ref_error();} t79144 = t79146.value.structure_type27698->s9; /* x85555 stalin.sc:6717:233083 */ t79143 = f8691(t79144); /* x269964 stalin.sc:6716:233066 */ /* EQ: dispatching general to general */ if (!((t79142.tag)==(t79143.tag))) goto l14743; switch (t79142.tag) {case FIXNUM_TYPE: if (!((t79142.value.fixnum_type)==(t79143.value.fixnum_type))) goto l14743; break; case FLONUM_TYPE: if (!((t79142.value.flonum_type)==(t79143.value.flonum_type))) goto l14743; break; case INPUT_PORT_TYPE: if (!((t79142.value.input_port_type)==(t79143.value.input_port_type))) goto l14743; break; case OUTPUT_PORT_TYPE: if (!((t79142.value.output_port_type)==(t79143.value.output_port_type))) goto l14743; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t79142.value.native_procedure_type15963)==(t79143.value.native_procedure_type15963))) goto l14743; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t79142.value.native_procedure_type19067)==(t79143.value.native_procedure_type19067))) goto l14743; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t79142.value.native_procedure_type19068)==(t79143.value.native_procedure_type19068))) goto l14743; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t79142.value.native_procedure_type22459)==(t79143.value.native_procedure_type22459))) goto l14743; break; case STRUCTURE_TYPE24753: if (!((t79142.value.structure_type24753)==(t79143.value.structure_type24753))) goto l14743; break; case STRUCTURE_TYPE24757: if (!((t79142.value.structure_type24757)==(t79143.value.structure_type24757))) goto l14743; break; case STRUCTURE_TYPE27501: if (!((t79142.value.structure_type27501)==(t79143.value.structure_type27501))) goto l14743; break; case STRUCTURE_TYPE27510: if (!((t79142.value.structure_type27510)==(t79143.value.structure_type27510))) goto l14743; break; case STRUCTURE_TYPE27621: if (!((t79142.value.structure_type27621)==(t79143.value.structure_type27621))) goto l14743; break; case STRUCTURE_TYPE27650: if (!((t79142.value.structure_type27650)==(t79143.value.structure_type27650))) goto l14743; break; case STRUCTURE_TYPE27669: if (!((t79142.value.structure_type27669)==(t79143.value.structure_type27669))) goto l14743; break; case STRUCTURE_TYPE27673: if (!((t79142.value.structure_type27673)==(t79143.value.structure_type27673))) goto l14743; break; case STRUCTURE_TYPE27692: if (!((t79142.value.structure_type27692)==(t79143.value.structure_type27692))) goto l14743; break; case STRUCTURE_TYPE27694: if (!((t79142.value.structure_type27694)==(t79143.value.structure_type27694))) goto l14743; break; case STRUCTURE_TYPE27698: if (!((t79142.value.structure_type27698)==(t79143.value.structure_type27698))) goto l14743; break; case STRUCTURE_TYPE27745: if (!((t79142.value.structure_type27745)==(t79143.value.structure_type27745))) goto l14743; break; case STRUCTURE_TYPE27747: if (!((t79142.value.structure_type27747)==(t79143.value.structure_type27747))) goto l14743; break; case STRUCTURE_TYPE27750: if (!((t79142.value.structure_type27750)==(t79143.value.structure_type27750))) goto l14743; break; case STRUCTURE_TYPE27753: if (!((t79142.value.structure_type27753)==(t79143.value.structure_type27753))) goto l14743; break; case STRUCTURE_TYPE27756: if (!((t79142.value.structure_type27756)==(t79143.value.structure_type27756))) goto l14743; break; case STRUCTURE_TYPE27761: if (!((t79142.value.structure_type27761)==(t79143.value.structure_type27761))) goto l14743; break; case STRUCTURE_TYPE27769: if (!((t79142.value.structure_type27769)==(t79143.value.structure_type27769))) goto l14743; break; case STRUCTURE_TYPE27776: if (!((t79142.value.structure_type27776)==(t79143.value.structure_type27776))) goto l14743; break; case STRUCTURE_TYPE27779: if (!((t79142.value.structure_type27779)==(t79143.value.structure_type27779))) goto l14743; break; case STRUCTURE_TYPE27858: if (!((t79142.value.structure_type27858)==(t79143.value.structure_type27858))) goto l14743; break; case STRING_TYPE: if (!((t79142.value.string_type)==(t79143.value.string_type))) goto l14743; break; case HEADED_VECTOR_TYPE27896: if (!((t79142.value.headed_vector_type27896)==(t79143.value.headed_vector_type27896))) goto l14743; break; case EXTERNAL_SYMBOL_TYPE: if (!((t79142.value.external_symbol_type)==(t79143.value.external_symbol_type))) goto l14743; break; case STRUCTURE_TYPE27908: if (!((t79142.value.structure_type27908)==(t79143.value.structure_type27908))) goto l14743; break; default:;} t77358.tag = TRUE_TYPE; goto l14744; l14743: t77358.tag = FALSE_TYPE; l14744: break; case NATIVE_PROCEDURE_TYPE24082: p9666 = t77369.value.native_procedure_type24082; a22853 = t77370; /* x85529 stalin.sc:6726:233326 */ /* x85529 stalin.sc:6726:233326 */ /* x85517 stalin.sc:6727:233335 */ /* x85516 stalin.sc:6729:233409 */ t79151 = a22853; /* x85515 stalin.sc:6727:233336 */ /* x85514 stalin.sc:6728:233401 */ t79152 = p9666->a22843; /* x85513 stalin.sc:6727:233337 */ t79150 = f7919(t79152); if ((t79150&3)==1) {if ((f7905(((struct p7892 *)(t79150-1)), t79151).tag)==FALSE_TYPE) goto l14747;} else if ((f7893(((struct p7892 *)t79150), t79151).tag)==FALSE_TYPE) goto l14747; /* x85527 */ /* x85519 stalin.sc:6730:233421 */ t79153 = a22853; /* x85526 stalin.sc:6731:233432 */ /* x85525 stalin.sc:6732:233453 */ /* x85524 stalin.sc:6732:233477 */ /* x85523 stalin.sc:6732:233489 */ t79158 = p9666->p9612->a22804; /* x85522 stalin.sc:6732:233478 */ a41228 = t79158; /* x299024 stalin.sc:5598:192786 */ /* x299023 stalin.sc:5598:192812 */ t79159 = a41228; /* x299022 stalin.sc:5598:192787 */ a42482 = t79159; /* x303798 */ /* x303797 */ t79160 = a42482; /* x303796 */ if (!((t79160.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37787]"); structure_ref_error();} t79156 = t79160.value.structure_type27747->s1; /* x85521 stalin.sc:6732:233454 */ a40027 = t79156; /* x292777 */ /* x292776 */ t79157 = a40027; /* x292775 */ if (!((t79157.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34944]"); structure_ref_error();} t79155 = t79157.value.structure_type27698->s9; /* x85520 stalin.sc:6731:233433 */ t79154 = f8691(t79155); /* x269965 stalin.sc:6730:233417 */ /* EQ: dispatching general to general */ if (!((t79153.tag)==(t79154.tag))) goto l14747; switch (t79153.tag) {case FIXNUM_TYPE: if (!((t79153.value.fixnum_type)==(t79154.value.fixnum_type))) goto l14747; break; case FLONUM_TYPE: if (!((t79153.value.flonum_type)==(t79154.value.flonum_type))) goto l14747; break; case INPUT_PORT_TYPE: if (!((t79153.value.input_port_type)==(t79154.value.input_port_type))) goto l14747; break; case OUTPUT_PORT_TYPE: if (!((t79153.value.output_port_type)==(t79154.value.output_port_type))) goto l14747; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t79153.value.native_procedure_type15963)==(t79154.value.native_procedure_type15963))) goto l14747; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t79153.value.native_procedure_type19067)==(t79154.value.native_procedure_type19067))) goto l14747; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t79153.value.native_procedure_type19068)==(t79154.value.native_procedure_type19068))) goto l14747; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t79153.value.native_procedure_type22459)==(t79154.value.native_procedure_type22459))) goto l14747; break; case STRUCTURE_TYPE24753: if (!((t79153.value.structure_type24753)==(t79154.value.structure_type24753))) goto l14747; break; case STRUCTURE_TYPE24757: if (!((t79153.value.structure_type24757)==(t79154.value.structure_type24757))) goto l14747; break; case STRUCTURE_TYPE27501: if (!((t79153.value.structure_type27501)==(t79154.value.structure_type27501))) goto l14747; break; case STRUCTURE_TYPE27510: if (!((t79153.value.structure_type27510)==(t79154.value.structure_type27510))) goto l14747; break; case STRUCTURE_TYPE27621: if (!((t79153.value.structure_type27621)==(t79154.value.structure_type27621))) goto l14747; break; case STRUCTURE_TYPE27650: if (!((t79153.value.structure_type27650)==(t79154.value.structure_type27650))) goto l14747; break; case STRUCTURE_TYPE27669: if (!((t79153.value.structure_type27669)==(t79154.value.structure_type27669))) goto l14747; break; case STRUCTURE_TYPE27673: if (!((t79153.value.structure_type27673)==(t79154.value.structure_type27673))) goto l14747; break; case STRUCTURE_TYPE27692: if (!((t79153.value.structure_type27692)==(t79154.value.structure_type27692))) goto l14747; break; case STRUCTURE_TYPE27694: if (!((t79153.value.structure_type27694)==(t79154.value.structure_type27694))) goto l14747; break; case STRUCTURE_TYPE27698: if (!((t79153.value.structure_type27698)==(t79154.value.structure_type27698))) goto l14747; break; case STRUCTURE_TYPE27745: if (!((t79153.value.structure_type27745)==(t79154.value.structure_type27745))) goto l14747; break; case STRUCTURE_TYPE27747: if (!((t79153.value.structure_type27747)==(t79154.value.structure_type27747))) goto l14747; break; case STRUCTURE_TYPE27750: if (!((t79153.value.structure_type27750)==(t79154.value.structure_type27750))) goto l14747; break; case STRUCTURE_TYPE27753: if (!((t79153.value.structure_type27753)==(t79154.value.structure_type27753))) goto l14747; break; case STRUCTURE_TYPE27756: if (!((t79153.value.structure_type27756)==(t79154.value.structure_type27756))) goto l14747; break; case STRUCTURE_TYPE27761: if (!((t79153.value.structure_type27761)==(t79154.value.structure_type27761))) goto l14747; break; case STRUCTURE_TYPE27769: if (!((t79153.value.structure_type27769)==(t79154.value.structure_type27769))) goto l14747; break; case STRUCTURE_TYPE27776: if (!((t79153.value.structure_type27776)==(t79154.value.structure_type27776))) goto l14747; break; case STRUCTURE_TYPE27779: if (!((t79153.value.structure_type27779)==(t79154.value.structure_type27779))) goto l14747; break; case STRUCTURE_TYPE27858: if (!((t79153.value.structure_type27858)==(t79154.value.structure_type27858))) goto l14747; break; case STRING_TYPE: if (!((t79153.value.string_type)==(t79154.value.string_type))) goto l14747; break; case HEADED_VECTOR_TYPE27896: if (!((t79153.value.headed_vector_type27896)==(t79154.value.headed_vector_type27896))) goto l14747; break; case EXTERNAL_SYMBOL_TYPE: if (!((t79153.value.external_symbol_type)==(t79154.value.external_symbol_type))) goto l14747; break; case STRUCTURE_TYPE27908: if (!((t79153.value.structure_type27908)==(t79154.value.structure_type27908))) goto l14747; break; default:;} t77358.tag = TRUE_TYPE; goto l14748; l14747: t77358.tag = FALSE_TYPE; l14748: break; case NATIVE_PROCEDURE_TYPE24084: p9665 = t77369.value.native_procedure_type24084; a22852 = t77370; /* x85493 stalin.sc:6737:233635 */ /* x85493 stalin.sc:6737:233635 */ /* x85481 stalin.sc:6737:233640 */ /* x85480 stalin.sc:6737:233678 */ t79162 = a22852; /* x85479 stalin.sc:6737:233641 */ /* x85478 stalin.sc:6737:233675 */ t79163 = p9665->a22843; /* x85477 stalin.sc:6737:233642 */ t79161 = f7920(t79163); if ((t79161&3)==1) {if ((f7905(((struct p7892 *)(t79161-1)), t79162).tag)==FALSE_TYPE) goto l14751;} else if ((f7893(((struct p7892 *)t79161), t79162).tag)==FALSE_TYPE) goto l14751; /* x85491 */ /* x85483 stalin.sc:6738:233695 */ t79164 = a22852; /* x85490 stalin.sc:6739:233704 */ /* x85489 stalin.sc:6740:233730 */ /* x85488 stalin.sc:6740:233754 */ /* x85487 stalin.sc:6740:233766 */ t79169 = p9665->p9612->a22804; /* x85486 stalin.sc:6740:233755 */ a41227 = t79169; /* x299020 stalin.sc:5598:192786 */ /* x299019 stalin.sc:5598:192812 */ t79170 = a41227; /* x299018 stalin.sc:5598:192787 */ a42483 = t79170; /* x303802 */ /* x303801 */ t79171 = a42483; /* x303800 */ if (!((t79171.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37788]"); structure_ref_error();} t79167 = t79171.value.structure_type27747->s1; /* x85485 stalin.sc:6740:233731 */ a40026 = t79167; /* x292773 */ /* x292772 */ t79168 = a40026; /* x292771 */ if (!((t79168.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34943]"); structure_ref_error();} t79166 = t79168.value.structure_type27698->s9; /* x85484 stalin.sc:6739:233705 */ t79165 = f8691(t79166); /* x269966 stalin.sc:6738:233691 */ /* EQ: dispatching general to general */ if (!((t79164.tag)==(t79165.tag))) goto l14751; switch (t79164.tag) {case FIXNUM_TYPE: if (!((t79164.value.fixnum_type)==(t79165.value.fixnum_type))) goto l14751; break; case FLONUM_TYPE: if (!((t79164.value.flonum_type)==(t79165.value.flonum_type))) goto l14751; break; case INPUT_PORT_TYPE: if (!((t79164.value.input_port_type)==(t79165.value.input_port_type))) goto l14751; break; case OUTPUT_PORT_TYPE: if (!((t79164.value.output_port_type)==(t79165.value.output_port_type))) goto l14751; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t79164.value.native_procedure_type15963)==(t79165.value.native_procedure_type15963))) goto l14751; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t79164.value.native_procedure_type19067)==(t79165.value.native_procedure_type19067))) goto l14751; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t79164.value.native_procedure_type19068)==(t79165.value.native_procedure_type19068))) goto l14751; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t79164.value.native_procedure_type22459)==(t79165.value.native_procedure_type22459))) goto l14751; break; case STRUCTURE_TYPE24753: if (!((t79164.value.structure_type24753)==(t79165.value.structure_type24753))) goto l14751; break; case STRUCTURE_TYPE24757: if (!((t79164.value.structure_type24757)==(t79165.value.structure_type24757))) goto l14751; break; case STRUCTURE_TYPE27501: if (!((t79164.value.structure_type27501)==(t79165.value.structure_type27501))) goto l14751; break; case STRUCTURE_TYPE27510: if (!((t79164.value.structure_type27510)==(t79165.value.structure_type27510))) goto l14751; break; case STRUCTURE_TYPE27621: if (!((t79164.value.structure_type27621)==(t79165.value.structure_type27621))) goto l14751; break; case STRUCTURE_TYPE27650: if (!((t79164.value.structure_type27650)==(t79165.value.structure_type27650))) goto l14751; break; case STRUCTURE_TYPE27669: if (!((t79164.value.structure_type27669)==(t79165.value.structure_type27669))) goto l14751; break; case STRUCTURE_TYPE27673: if (!((t79164.value.structure_type27673)==(t79165.value.structure_type27673))) goto l14751; break; case STRUCTURE_TYPE27692: if (!((t79164.value.structure_type27692)==(t79165.value.structure_type27692))) goto l14751; break; case STRUCTURE_TYPE27694: if (!((t79164.value.structure_type27694)==(t79165.value.structure_type27694))) goto l14751; break; case STRUCTURE_TYPE27698: if (!((t79164.value.structure_type27698)==(t79165.value.structure_type27698))) goto l14751; break; case STRUCTURE_TYPE27745: if (!((t79164.value.structure_type27745)==(t79165.value.structure_type27745))) goto l14751; break; case STRUCTURE_TYPE27747: if (!((t79164.value.structure_type27747)==(t79165.value.structure_type27747))) goto l14751; break; case STRUCTURE_TYPE27750: if (!((t79164.value.structure_type27750)==(t79165.value.structure_type27750))) goto l14751; break; case STRUCTURE_TYPE27753: if (!((t79164.value.structure_type27753)==(t79165.value.structure_type27753))) goto l14751; break; case STRUCTURE_TYPE27756: if (!((t79164.value.structure_type27756)==(t79165.value.structure_type27756))) goto l14751; break; case STRUCTURE_TYPE27761: if (!((t79164.value.structure_type27761)==(t79165.value.structure_type27761))) goto l14751; break; case STRUCTURE_TYPE27769: if (!((t79164.value.structure_type27769)==(t79165.value.structure_type27769))) goto l14751; break; case STRUCTURE_TYPE27776: if (!((t79164.value.structure_type27776)==(t79165.value.structure_type27776))) goto l14751; break; case STRUCTURE_TYPE27779: if (!((t79164.value.structure_type27779)==(t79165.value.structure_type27779))) goto l14751; break; case STRUCTURE_TYPE27858: if (!((t79164.value.structure_type27858)==(t79165.value.structure_type27858))) goto l14751; break; case STRING_TYPE: if (!((t79164.value.string_type)==(t79165.value.string_type))) goto l14751; break; case HEADED_VECTOR_TYPE27896: if (!((t79164.value.headed_vector_type27896)==(t79165.value.headed_vector_type27896))) goto l14751; break; case EXTERNAL_SYMBOL_TYPE: if (!((t79164.value.external_symbol_type)==(t79165.value.external_symbol_type))) goto l14751; break; case STRUCTURE_TYPE27908: if (!((t79164.value.structure_type27908)==(t79165.value.structure_type27908))) goto l14751; break; default:;} t77358.tag = TRUE_TYPE; goto l14752; l14751: t77358.tag = FALSE_TYPE; l14752: break; case NATIVE_PROCEDURE_TYPE24086: p9664 = t77369.value.native_procedure_type24086; a22851 = t77370; /* x85466 stalin.sc:6744:233856 */ /* x85466 stalin.sc:6744:233856 */ /* x85454 stalin.sc:6744:233861 */ /* x85453 stalin.sc:6744:233899 */ t79173 = a22851; /* x85452 stalin.sc:6744:233862 */ /* x85451 stalin.sc:6744:233896 */ t79174 = p9664->a22843; /* x85450 stalin.sc:6744:233863 */ t79172 = f7921(t79174); if ((t79172&3)==1) {if ((f7905(((struct p7892 *)(t79172-1)), t79173).tag)==FALSE_TYPE) goto l14755;} else if ((f7893(((struct p7892 *)t79172), t79173).tag)==FALSE_TYPE) goto l14755; /* x85464 */ /* x85456 stalin.sc:6745:233916 */ t79175 = a22851; /* x85463 stalin.sc:6746:233925 */ /* x85462 stalin.sc:6747:233951 */ /* x85461 stalin.sc:6747:233975 */ /* x85460 stalin.sc:6747:233987 */ t79180 = p9664->p9612->a22804; /* x85459 stalin.sc:6747:233976 */ a41226 = t79180; /* x299016 stalin.sc:5598:192786 */ /* x299015 stalin.sc:5598:192812 */ t79181 = a41226; /* x299014 stalin.sc:5598:192787 */ a42484 = t79181; /* x303806 */ /* x303805 */ t79182 = a42484; /* x303804 */ if (!((t79182.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37789]"); structure_ref_error();} t79178 = t79182.value.structure_type27747->s1; /* x85458 stalin.sc:6747:233952 */ a40025 = t79178; /* x292769 */ /* x292768 */ t79179 = a40025; /* x292767 */ if (!((t79179.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34942]"); structure_ref_error();} t79177 = t79179.value.structure_type27698->s9; /* x85457 stalin.sc:6746:233926 */ t79176 = f8691(t79177); /* x269967 stalin.sc:6745:233912 */ /* EQ: dispatching general to general */ if (!((t79175.tag)==(t79176.tag))) goto l14755; switch (t79175.tag) {case FIXNUM_TYPE: if (!((t79175.value.fixnum_type)==(t79176.value.fixnum_type))) goto l14755; break; case FLONUM_TYPE: if (!((t79175.value.flonum_type)==(t79176.value.flonum_type))) goto l14755; break; case INPUT_PORT_TYPE: if (!((t79175.value.input_port_type)==(t79176.value.input_port_type))) goto l14755; break; case OUTPUT_PORT_TYPE: if (!((t79175.value.output_port_type)==(t79176.value.output_port_type))) goto l14755; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t79175.value.native_procedure_type15963)==(t79176.value.native_procedure_type15963))) goto l14755; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t79175.value.native_procedure_type19067)==(t79176.value.native_procedure_type19067))) goto l14755; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t79175.value.native_procedure_type19068)==(t79176.value.native_procedure_type19068))) goto l14755; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t79175.value.native_procedure_type22459)==(t79176.value.native_procedure_type22459))) goto l14755; break; case STRUCTURE_TYPE24753: if (!((t79175.value.structure_type24753)==(t79176.value.structure_type24753))) goto l14755; break; case STRUCTURE_TYPE24757: if (!((t79175.value.structure_type24757)==(t79176.value.structure_type24757))) goto l14755; break; case STRUCTURE_TYPE27501: if (!((t79175.value.structure_type27501)==(t79176.value.structure_type27501))) goto l14755; break; case STRUCTURE_TYPE27510: if (!((t79175.value.structure_type27510)==(t79176.value.structure_type27510))) goto l14755; break; case STRUCTURE_TYPE27621: if (!((t79175.value.structure_type27621)==(t79176.value.structure_type27621))) goto l14755; break; case STRUCTURE_TYPE27650: if (!((t79175.value.structure_type27650)==(t79176.value.structure_type27650))) goto l14755; break; case STRUCTURE_TYPE27669: if (!((t79175.value.structure_type27669)==(t79176.value.structure_type27669))) goto l14755; break; case STRUCTURE_TYPE27673: if (!((t79175.value.structure_type27673)==(t79176.value.structure_type27673))) goto l14755; break; case STRUCTURE_TYPE27692: if (!((t79175.value.structure_type27692)==(t79176.value.structure_type27692))) goto l14755; break; case STRUCTURE_TYPE27694: if (!((t79175.value.structure_type27694)==(t79176.value.structure_type27694))) goto l14755; break; case STRUCTURE_TYPE27698: if (!((t79175.value.structure_type27698)==(t79176.value.structure_type27698))) goto l14755; break; case STRUCTURE_TYPE27745: if (!((t79175.value.structure_type27745)==(t79176.value.structure_type27745))) goto l14755; break; case STRUCTURE_TYPE27747: if (!((t79175.value.structure_type27747)==(t79176.value.structure_type27747))) goto l14755; break; case STRUCTURE_TYPE27750: if (!((t79175.value.structure_type27750)==(t79176.value.structure_type27750))) goto l14755; break; case STRUCTURE_TYPE27753: if (!((t79175.value.structure_type27753)==(t79176.value.structure_type27753))) goto l14755; break; case STRUCTURE_TYPE27756: if (!((t79175.value.structure_type27756)==(t79176.value.structure_type27756))) goto l14755; break; case STRUCTURE_TYPE27761: if (!((t79175.value.structure_type27761)==(t79176.value.structure_type27761))) goto l14755; break; case STRUCTURE_TYPE27769: if (!((t79175.value.structure_type27769)==(t79176.value.structure_type27769))) goto l14755; break; case STRUCTURE_TYPE27776: if (!((t79175.value.structure_type27776)==(t79176.value.structure_type27776))) goto l14755; break; case STRUCTURE_TYPE27779: if (!((t79175.value.structure_type27779)==(t79176.value.structure_type27779))) goto l14755; break; case STRUCTURE_TYPE27858: if (!((t79175.value.structure_type27858)==(t79176.value.structure_type27858))) goto l14755; break; case STRING_TYPE: if (!((t79175.value.string_type)==(t79176.value.string_type))) goto l14755; break; case HEADED_VECTOR_TYPE27896: if (!((t79175.value.headed_vector_type27896)==(t79176.value.headed_vector_type27896))) goto l14755; break; case EXTERNAL_SYMBOL_TYPE: if (!((t79175.value.external_symbol_type)==(t79176.value.external_symbol_type))) goto l14755; break; case STRUCTURE_TYPE27908: if (!((t79175.value.structure_type27908)==(t79176.value.structure_type27908))) goto l14755; break; default:;} t77358.tag = TRUE_TYPE; goto l14756; l14755: t77358.tag = FALSE_TYPE; l14756: break; case NATIVE_PROCEDURE_TYPE24088: p9662 = t77369.value.native_procedure_type24088; a22849 = t77370; /* x85430 stalin.sc:6752:234139 */ /* x85430 stalin.sc:6752:234139 */ /* x85418 stalin.sc:6752:234144 */ /* x85417 stalin.sc:6752:234182 */ t79184 = a22849; /* x85416 stalin.sc:6752:234145 */ /* x85415 stalin.sc:6752:234179 */ t79185 = p9662->a22843; /* x85414 stalin.sc:6752:234146 */ t79183 = f7922(t79185); if ((t79183&3)==1) {if ((f7905(((struct p7892 *)(t79183-1)), t79184).tag)==FALSE_TYPE) goto l14759;} else if ((f7893(((struct p7892 *)t79183), t79184).tag)==FALSE_TYPE) goto l14759; /* x85428 */ /* x85420 stalin.sc:6753:234195 */ t79186 = a22849; /* x85427 stalin.sc:6754:234207 */ /* x85426 stalin.sc:6755:234229 */ /* x85425 stalin.sc:6755:234253 */ /* x85424 stalin.sc:6755:234265 */ t79191 = p9662->p9612->a22804; /* x85423 stalin.sc:6755:234254 */ a41225 = t79191; /* x299012 stalin.sc:5598:192786 */ /* x299011 stalin.sc:5598:192812 */ t79192 = a41225; /* x299010 stalin.sc:5598:192787 */ a42485 = t79192; /* x303810 */ /* x303809 */ t79193 = a42485; /* x303808 */ if (!((t79193.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37790]"); structure_ref_error();} t79189 = t79193.value.structure_type27747->s1; /* x85422 stalin.sc:6755:234230 */ a40024 = t79189; /* x292765 */ /* x292764 */ t79190 = a40024; /* x292763 */ if (!((t79190.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34941]"); structure_ref_error();} t79188 = t79190.value.structure_type27698->s9; /* x85421 stalin.sc:6754:234208 */ t79187 = f8691(t79188); /* x269968 stalin.sc:6753:234191 */ /* EQ: dispatching general to general */ if (!((t79186.tag)==(t79187.tag))) goto l14759; switch (t79186.tag) {case FIXNUM_TYPE: if (!((t79186.value.fixnum_type)==(t79187.value.fixnum_type))) goto l14759; break; case FLONUM_TYPE: if (!((t79186.value.flonum_type)==(t79187.value.flonum_type))) goto l14759; break; case INPUT_PORT_TYPE: if (!((t79186.value.input_port_type)==(t79187.value.input_port_type))) goto l14759; break; case OUTPUT_PORT_TYPE: if (!((t79186.value.output_port_type)==(t79187.value.output_port_type))) goto l14759; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t79186.value.native_procedure_type15963)==(t79187.value.native_procedure_type15963))) goto l14759; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t79186.value.native_procedure_type19067)==(t79187.value.native_procedure_type19067))) goto l14759; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t79186.value.native_procedure_type19068)==(t79187.value.native_procedure_type19068))) goto l14759; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t79186.value.native_procedure_type22459)==(t79187.value.native_procedure_type22459))) goto l14759; break; case STRUCTURE_TYPE24753: if (!((t79186.value.structure_type24753)==(t79187.value.structure_type24753))) goto l14759; break; case STRUCTURE_TYPE24757: if (!((t79186.value.structure_type24757)==(t79187.value.structure_type24757))) goto l14759; break; case STRUCTURE_TYPE27501: if (!((t79186.value.structure_type27501)==(t79187.value.structure_type27501))) goto l14759; break; case STRUCTURE_TYPE27510: if (!((t79186.value.structure_type27510)==(t79187.value.structure_type27510))) goto l14759; break; case STRUCTURE_TYPE27621: if (!((t79186.value.structure_type27621)==(t79187.value.structure_type27621))) goto l14759; break; case STRUCTURE_TYPE27650: if (!((t79186.value.structure_type27650)==(t79187.value.structure_type27650))) goto l14759; break; case STRUCTURE_TYPE27669: if (!((t79186.value.structure_type27669)==(t79187.value.structure_type27669))) goto l14759; break; case STRUCTURE_TYPE27673: if (!((t79186.value.structure_type27673)==(t79187.value.structure_type27673))) goto l14759; break; case STRUCTURE_TYPE27692: if (!((t79186.value.structure_type27692)==(t79187.value.structure_type27692))) goto l14759; break; case STRUCTURE_TYPE27694: if (!((t79186.value.structure_type27694)==(t79187.value.structure_type27694))) goto l14759; break; case STRUCTURE_TYPE27698: if (!((t79186.value.structure_type27698)==(t79187.value.structure_type27698))) goto l14759; break; case STRUCTURE_TYPE27745: if (!((t79186.value.structure_type27745)==(t79187.value.structure_type27745))) goto l14759; break; case STRUCTURE_TYPE27747: if (!((t79186.value.structure_type27747)==(t79187.value.structure_type27747))) goto l14759; break; case STRUCTURE_TYPE27750: if (!((t79186.value.structure_type27750)==(t79187.value.structure_type27750))) goto l14759; break; case STRUCTURE_TYPE27753: if (!((t79186.value.structure_type27753)==(t79187.value.structure_type27753))) goto l14759; break; case STRUCTURE_TYPE27756: if (!((t79186.value.structure_type27756)==(t79187.value.structure_type27756))) goto l14759; break; case STRUCTURE_TYPE27761: if (!((t79186.value.structure_type27761)==(t79187.value.structure_type27761))) goto l14759; break; case STRUCTURE_TYPE27769: if (!((t79186.value.structure_type27769)==(t79187.value.structure_type27769))) goto l14759; break; case STRUCTURE_TYPE27776: if (!((t79186.value.structure_type27776)==(t79187.value.structure_type27776))) goto l14759; break; case STRUCTURE_TYPE27779: if (!((t79186.value.structure_type27779)==(t79187.value.structure_type27779))) goto l14759; break; case STRUCTURE_TYPE27858: if (!((t79186.value.structure_type27858)==(t79187.value.structure_type27858))) goto l14759; break; case STRING_TYPE: if (!((t79186.value.string_type)==(t79187.value.string_type))) goto l14759; break; case HEADED_VECTOR_TYPE27896: if (!((t79186.value.headed_vector_type27896)==(t79187.value.headed_vector_type27896))) goto l14759; break; case EXTERNAL_SYMBOL_TYPE: if (!((t79186.value.external_symbol_type)==(t79187.value.external_symbol_type))) goto l14759; break; case STRUCTURE_TYPE27908: if (!((t79186.value.structure_type27908)==(t79187.value.structure_type27908))) goto l14759; break; default:;} t77358.tag = TRUE_TYPE; goto l14760; l14759: t77358.tag = FALSE_TYPE; l14760: break; case NATIVE_PROCEDURE_TYPE24091: p9653 = t77369.value.native_procedure_type24091; a22840 = t77370; /* x85293 stalin.sc:6667:231598 */ /* x85282 stalin.sc:6668:231607 */ /* x85281 stalin.sc:6668:231649 */ t79195 = a22840; /* x85280 stalin.sc:6668:231608 */ /* x85279 stalin.sc:6668:231641 */ t79196 = q44; /* x85278 stalin.sc:6668:231609 */ t79197.tag = EXTERNAL_SYMBOL_TYPE; t79197.value.external_symbol_type = t79196; t79194 = f7708(t79197); if (f7709(t79194, t79195)==FALSE_TYPE) goto l14763; /* x85291 */ /* x85290 stalin.sc:6670:231722 */ t79199 = a22840; /* x85289 stalin.sc:6669:231657 */ /* x85288 stalin.sc:6669:231681 */ /* x85287 stalin.sc:6669:231700 */ /* x85286 stalin.sc:6669:231712 */ t79203 = p9653->a22804; /* x85285 stalin.sc:6669:231701 */ a41209 = t79203; /* x298948 stalin.sc:5598:192786 */ /* x298947 stalin.sc:5598:192812 */ t79204 = a41209; /* x298946 stalin.sc:5598:192787 */ a42501 = t79204; /* x303874 */ /* x303873 */ t79205 = a42501; /* x303872 */ if (!((t79205.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37806]"); structure_ref_error();} t79201 = t79205.value.structure_type27747->s1; /* x85284 stalin.sc:6669:231682 */ a39680 = t79201; /* x291389 */ /* x291388 */ t79202 = a39680; /* x291387 */ if (!((t79202.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34597]"); structure_ref_error();} t79200 = t79202.value.structure_type27698->s11; /* x85283 stalin.sc:6669:231658 */ t79198 = f7917(t79200); t77358 = ((t79198&3)==1)?f7905(((struct p7892 *)(t79198-1)), t79199):f7893(((struct p7892 *)t79198), t79199); goto l14764; l14763: /* x85292 */ t77358.tag = FALSE_TYPE; l14764: break; case NATIVE_PROCEDURE_TYPE24094: p9648 = t77369.value.native_procedure_type24094; a22835 = t77370; /* x85151 stalin.sc:6619:230307 */ /* x85140 stalin.sc:6620:230316 */ /* x85139 stalin.sc:6620:230357 */ t79207 = a22835; /* x85138 stalin.sc:6620:230317 */ /* x85137 stalin.sc:6620:230350 */ t79208 = q45; /* x85136 stalin.sc:6620:230318 */ t79209.tag = EXTERNAL_SYMBOL_TYPE; t79209.value.external_symbol_type = t79208; t79206 = f7708(t79209); if (f7709(t79206, t79207)==FALSE_TYPE) goto l14766; /* x85149 */ /* x85148 stalin.sc:6622:230430 */ t79211 = a22835; /* x85147 stalin.sc:6621:230365 */ /* x85146 stalin.sc:6621:230389 */ /* x85145 stalin.sc:6621:230408 */ /* x85144 stalin.sc:6621:230420 */ t79215 = p9648->a22804; /* x85143 stalin.sc:6621:230409 */ a41201 = t79215; /* x298916 stalin.sc:5598:192786 */ /* x298915 stalin.sc:5598:192812 */ t79216 = a41201; /* x298914 stalin.sc:5598:192787 */ a42509 = t79216; /* x303906 */ /* x303905 */ t79217 = a42509; /* x303904 */ if (!((t79217.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37814]"); structure_ref_error();} t79213 = t79217.value.structure_type27747->s1; /* x85142 stalin.sc:6621:230390 */ a39672 = t79213; /* x291357 */ /* x291356 */ t79214 = a39672; /* x291355 */ if (!((t79214.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34589]"); structure_ref_error();} t79212 = t79214.value.structure_type27698->s11; /* x85141 stalin.sc:6621:230366 */ t79210 = f7917(t79212); t77358 = ((t79210&3)==1)?f7905(((struct p7892 *)(t79210-1)), t79211):f7893(((struct p7892 *)t79210), t79211); goto l14767; l14766: /* x85150 */ t77358.tag = FALSE_TYPE; l14767: break; case NATIVE_PROCEDURE_TYPE24099: p9645 = t77369.value.native_procedure_type24099; a22832 = t77370; /* x85066 stalin.sc:6588:229467 */ /* x85055 stalin.sc:6588:229472 */ /* x85054 stalin.sc:6590:229551 */ t79219 = a22832; /* x85053 stalin.sc:6588:229473 */ /* x85052 stalin.sc:6589:229509 */ t79220 = q66; /* x85051 stalin.sc:6588:229474 */ t79221.tag = EXTERNAL_SYMBOL_TYPE; t79221.value.external_symbol_type = t79220; t79218 = f7708(t79221); if (f7709(t79218, t79219)==FALSE_TYPE) goto l14769; /* x85064 */ /* x85063 stalin.sc:6593:229635 */ t79223 = a22832; /* x85062 stalin.sc:6591:229563 */ /* x85061 stalin.sc:6592:229590 */ /* x85060 stalin.sc:6592:229609 */ /* x85059 stalin.sc:6592:229621 */ t79227 = p9645->a22804; /* x85058 stalin.sc:6592:229610 */ a41196 = t79227; /* x298896 stalin.sc:5598:192786 */ /* x298895 stalin.sc:5598:192812 */ t79228 = a41196; /* x298894 stalin.sc:5598:192787 */ a42514 = t79228; /* x303926 */ /* x303925 */ t79229 = a42514; /* x303924 */ if (!((t79229.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37819]"); structure_ref_error();} t79225 = t79229.value.structure_type27747->s1; /* x85057 stalin.sc:6592:229591 */ a39667 = t79225; /* x291337 */ /* x291336 */ t79226 = a39667; /* x291335 */ if (!((t79226.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34584]"); structure_ref_error();} t79224 = t79226.value.structure_type27698->s11; /* x85056 stalin.sc:6591:229564 */ t79222 = f7917(t79224); t77358 = ((t79222&3)==1)?f7905(((struct p7892 *)(t79222-1)), t79223):f7893(((struct p7892 *)t79222), t79223); goto l14770; l14769: /* x85065 */ t77358.tag = FALSE_TYPE; l14770: break; case NATIVE_PROCEDURE_TYPE24102: p9642 = t77369.value.native_procedure_type24102; a22829 = t77370; /* x84981 stalin.sc:6561:228682 */ /* x84970 stalin.sc:6562:228691 */ /* x84969 stalin.sc:6562:228733 */ t79231 = a22829; /* x84968 stalin.sc:6562:228692 */ /* x84967 stalin.sc:6562:228725 */ t79232 = q79; /* x84966 stalin.sc:6562:228693 */ t79233.tag = EXTERNAL_SYMBOL_TYPE; t79233.value.external_symbol_type = t79232; t79230 = f7708(t79233); if (f7709(t79230, t79231)==FALSE_TYPE) goto l14772; /* x84979 */ /* x84978 stalin.sc:6564:228806 */ t79235 = a22829; /* x84977 stalin.sc:6563:228741 */ /* x84976 stalin.sc:6563:228765 */ /* x84975 stalin.sc:6563:228784 */ /* x84974 stalin.sc:6563:228796 */ t79239 = p9642->a22804; /* x84973 stalin.sc:6563:228785 */ a41191 = t79239; /* x298876 stalin.sc:5598:192786 */ /* x298875 stalin.sc:5598:192812 */ t79240 = a41191; /* x298874 stalin.sc:5598:192787 */ a42519 = t79240; /* x303946 */ /* x303945 */ t79241 = a42519; /* x303944 */ if (!((t79241.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37824]"); structure_ref_error();} t79237 = t79241.value.structure_type27747->s1; /* x84972 stalin.sc:6563:228766 */ a39662 = t79237; /* x291317 */ /* x291316 */ t79238 = a39662; /* x291315 */ if (!((t79238.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34579]"); structure_ref_error();} t79236 = t79238.value.structure_type27698->s11; /* x84971 stalin.sc:6563:228742 */ t79234 = f7917(t79236); t77358 = ((t79234&3)==1)?f7905(((struct p7892 *)(t79234-1)), t79235):f7893(((struct p7892 *)t79234), t79235); goto l14773; l14772: /* x84980 */ t77358.tag = FALSE_TYPE; l14773: break; default: p12469 = t77369.value.native_procedure_type24159; a24610 = t77370; /* x111032 stalin.sc:12076:421281 */ /* x110999 stalin.sc:12077:421291 */ /* x110998 stalin.sc:12077:421315 */ t79242 = a24610; /* x110997 stalin.sc:12077:421292 */ a38026 = t79242; /* x284773 */ /* x284772 */ t79243 = a38026; /* x284771 */ if (!((t79243.tag)==STRUCTURE_TYPE27756)) goto l14775; /* x111030 */ /* x111004 stalin.sc:12078:421323 */ /* x111003 stalin.sc:12078:421351 */ t79245 = a24610; /* x111002 stalin.sc:12078:421324 */ /* x111001 stalin.sc:12078:421348 */ t79246 = p12469->a24602; /* x111000 stalin.sc:12078:421325 */ t79244 = f7917(t79246); if ((t79244&3)==1) {if ((f7905(((struct p7892 *)(t79244-1)), t79245).tag)==FALSE_TYPE) goto l14778;} else if ((f7893(((struct p7892 *)t79244), t79245).tag)==FALSE_TYPE) goto l14778; /* x111028 */ /* x111014 stalin.sc:12079:421359 */ /* x111013 stalin.sc:12079:421364 */ /* x111012 stalin.sc:12079:421371 */ /* x111008 stalin.sc:12079:421391 */ t79248 = a24610; /* x111011 stalin.sc:12079:421393 */ /* x111010 stalin.sc:12079:421411 */ t79251 = p12469->a24602; /* x111009 stalin.sc:12079:421394 */ t79249 = f8739(t79251); /* x111007 stalin.sc:12079:421372 */ t79250 = t79249; t79247 = f9368(t79248, t79250); /* x111006 stalin.sc:12079:421365 */ if (!(f8918(t79247)==FALSE_TYPE)) goto l14781; /* x111026 */ /* x111025 stalin.sc:12081:421454 */ /* x111024 stalin.sc:12082:421478 */ /* x111023 stalin.sc:12083:421510 */ /* x111019 stalin.sc:12083:421530 */ t79257 = a24610; /* x111022 stalin.sc:12083:421532 */ /* x111021 stalin.sc:12083:421550 */ t79260 = p12469->a24602; /* x111020 stalin.sc:12083:421533 */ t79258 = f8739(t79260); /* x111018 stalin.sc:12083:421511 */ t79259 = t79258; t79255 = f9368(t79257, t79259); /* x111017 stalin.sc:12082:421479 */ a20538 = t79255; /* x55379 */ /* x55378 */ t79256 = a20538; /* x55377 */ if (!((t79256.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("ENVIRONMENT-EXPRESSION[6639]"); structure_ref_error();} t79253 = t79256.value.structure_type27694->s1; /* x111016 stalin.sc:12081:421455 */ a39191 = t79253; /* x289433 */ /* x289432 */ t79254 = a39191; /* x289431 */ if (!((t79254.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34108]"); structure_ref_error();} t79252 = t79254.value.structure_type27698->s15; /* x111015 stalin.sc:12080:421423 */ t77358 = f12471(t79252); goto l14782; l14781: /* x111027 */ t77358.tag = FALSE_TYPE; l14782: goto l14779; l14778: /* x111029 */ t77358.tag = FALSE_TYPE; l14779: goto l14776; l14775: /* x111031 */ t77358.tag = FALSE_TYPE; l14776:;} /* x69677 */ t77357 = p8140; p8141 = t77357; a21796 = t77358; /* x69676 */ /* x69659 */ if ((a21796.tag)==FALSE_TYPE) goto l14092; /* x69660 */ return a21796; l14092: /* x69675 */ /* x69674 stalin.sc:3326:113362 */ /* x69673 stalin.sc:3326:113368 */ /* x69672 stalin.sc:3326:113394 */ t77367 = a21795; /* x69671 stalin.sc:3326:113369 */ a37260 = t77367; /* x281709 */ /* x281708 */ t77368 = a37260; /* x281707 */ t77366 = t77368->s2; /* x69670 stalin.sc:3326:113363 */ t77365 = p8141; t77360 = f8140(t77365, t77366); /* x69669 */ t77359 = p8141; p8142 = t77359; a21797 = t77360; /* x69668 */ /* x69661 */ if ((a21797.tag)==FALSE_TYPE) goto l14094; /* x69662 */ return a21797; l14094: /* x69667 */ /* x69666 stalin.sc:3327:113411 */ /* x69665 stalin.sc:3327:113438 */ t77363 = a21795; /* x69664 stalin.sc:3327:113412 */ a37218 = t77363; /* x281541 */ /* x281540 */ t77364 = a37218; /* x281539 */ t77362 = t77364->s3; /* x69663 stalin.sc:3327:113406 */ t77361 = p8142; p8140 = t77361; a21795 = t77362; goto h8140; l14090: /* x69684 */ r8140.tag = FALSE_TYPE; return r8140;} /* CAN-BE?[8137] */ struct w16638 f8137(struct w211257 a21791, struct w49 a21792) {struct w49 a37103; /* S */ struct p8137 *t79263; struct structure_type27657 *t79264; struct p8137 *t79265; struct p8137 *t79266; struct w49 t79267; struct w49 t79268; struct p8137 *e8137; struct p8137 *p8138; struct p8137 *p8139; e8137 = (struct p8137 *)alloca(sizeof(struct p8137)); if (e8137==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e8137->a21791 = a21791; /* x69696 stalin.sc:3322:113224 */ /* x69695 stalin.sc:3322:113241 */ /* x69694 stalin.sc:3322:113271 */ t79267 = a21792; /* x69693 stalin.sc:3322:113242 */ a37103 = t79267; /* x281081 */ /* x281080 */ t79268 = a37103; /* x281079 */ if (!((t79268.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-RED-BLACK-TREE-NODE[6475] 32020]"); structure_ref_error();} t79264 = t79268.value.structure_type27650->s1; /* x69692 */ /* x69691 */ /* x69690 */ /* x69689 */ t79265 = e8137; p8138 = t79265; /* x69688 */ /* x69687 */ /* x69686 */ /* x69657 */ t79266 = p8138; p8139 = t79266; /* x69656 stalin.sc:3322:113229 */ t79263 = p8139; return f8140(t79263, t79264);} /* SET-TYPE-SET-FICTITIOUS?![8133] */ void f8133(struct w49 a21788, unsigned a21789) {int a34854; /* N */ struct w49 a37042; /* S */ struct w49 a37043; /* S */ struct w49 t79269; int t79270; int t79271; int t79272; struct structure_type24753 *t79273; struct w49 t79274; struct w49 t79275; struct w49 t79276; int t79277; int t79278; int t79279; int t79280; struct structure_type24753 *t79281; struct w49 t79282; struct w49 t79283; struct w49 t79284; unsigned t79285; /* x69653 */ /* x69652 stalin.sc:3314:113037 */ /* x69645 stalin.sc:3314:113045 */ /* x69644 stalin.sc:3314:113055 */ t79285 = a21789; /* x270371 stalin.sc:3314:113046 */ /* x69647 */ /* x69646 */ /* x69642 */ /* x69641 stalin.sc:3315:113071 */ /* x69624 stalin.sc:3316:113097 */ t79269 = a21788; /* x69640 stalin.sc:3317:113101 */ /* x69625 stalin.sc:3317:113105 */ if (a21789==FALSE_TYPE) goto l14784; /* x69631 stalin.sc:3318:113114 */ /* x69630 stalin.sc:3318:113144 */ t79280 = 1; /* x69629 stalin.sc:3318:113122 */ /* x69628 stalin.sc:3318:113141 */ t79283 = a21788; /* x69627 stalin.sc:3318:113123 */ a37042 = t79283; /* x280837 */ /* x280836 */ t79284 = a37042; /* x280835 */ if (!((t79284.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-BOOLEANS[6507] 31959]"); structure_ref_error();} t79279 = t79284.value.structure_type27650->s5; /* x69626 stalin.sc:3318:113115 */ t79282.tag = STRUCTURE_TYPE24753; t79282.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t79282.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3318, 113114); out_of_memory_error();} t79282.value.structure_type24753->s0.tag = FIXNUM_TYPE; t79282.value.structure_type24753->s0.value.fixnum_type = t79280; t79282.value.structure_type24753->s1.tag = NULL_TYPE; t79281 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t79281==NULL) {backtrace("stalin.sc", 3318, 113114); out_of_memory_error();} t79281->s0.tag = FIXNUM_TYPE; t79281->s0.value.fixnum_type = t79279; t79281->s1 = t79282; t79270 = f27310(t79281); goto l14785; l14784: /* x69639 stalin.sc:3319:113153 */ /* x69638 stalin.sc:3319:113184 */ /* x69637 stalin.sc:3319:113193 */ t79277 = 1; /* x69636 stalin.sc:3319:113185 */ a34854 = t79277; /* x271701 */ /* x271700 */ t79278 = a34854; /* x271699 */ t79272 = ~t79278; /* x69635 stalin.sc:3319:113162 */ /* x69634 stalin.sc:3319:113181 */ t79275 = a21788; /* x69633 stalin.sc:3319:113163 */ a37043 = t79275; /* x280841 */ /* x280840 */ t79276 = a37043; /* x280839 */ if (!((t79276.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-BOOLEANS[6507] 31960]"); structure_ref_error();} t79271 = t79276.value.structure_type27650->s5; /* x69632 stalin.sc:3319:113154 */ t79274.tag = STRUCTURE_TYPE24753; t79274.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t79274.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3319, 113153); out_of_memory_error();} t79274.value.structure_type24753->s0.tag = FIXNUM_TYPE; t79274.value.structure_type24753->s0.value.fixnum_type = t79272; t79274.value.structure_type24753->s1.tag = NULL_TYPE; t79273 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t79273==NULL) {backtrace("stalin.sc", 3319, 113153); out_of_memory_error();} t79273->s0.tag = FIXNUM_TYPE; t79273->s0.value.fixnum_type = t79271; t79273->s1 = t79274; t79270 = f27305(t79273); l14785: /* x69623 stalin.sc:3315:113072 */ f6508(t79269, t79270); return;} /* SET-TYPE-SET-SQUISHABLE?![8128] */ void f8128(struct w49 a21784, unsigned a21785) {int a34818; /* N */ struct w49 a37032; /* S */ struct w49 a37045; /* S */ struct w49 t79286; int t79287; int t79288; int t79289; struct structure_type24753 *t79290; struct w49 t79291; struct w49 t79292; struct w49 t79293; int t79294; int t79295; int t79296; int t79297; struct structure_type24753 *t79298; struct w49 t79299; struct w49 t79300; struct w49 t79301; unsigned t79302; /* x69608 */ /* x69607 stalin.sc:3303:112747 */ /* x69600 stalin.sc:3303:112755 */ /* x69599 stalin.sc:3303:112765 */ t79302 = a21785; /* x270374 stalin.sc:3303:112756 */ /* x69602 */ /* x69601 */ /* x69597 */ /* x69596 stalin.sc:3304:112781 */ /* x69579 stalin.sc:3305:112807 */ t79286 = a21784; /* x69595 stalin.sc:3306:112811 */ /* x69580 stalin.sc:3306:112815 */ if (a21785==FALSE_TYPE) goto l14788; /* x69586 stalin.sc:3307:112824 */ /* x69585 stalin.sc:3307:112854 */ t79297 = 2; /* x69584 stalin.sc:3307:112832 */ /* x69583 stalin.sc:3307:112851 */ t79300 = a21784; /* x69582 stalin.sc:3307:112833 */ a37045 = t79300; /* x280849 */ /* x280848 */ t79301 = a37045; /* x280847 */ if (!((t79301.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-BOOLEANS[6507] 31962]"); structure_ref_error();} t79296 = t79301.value.structure_type27650->s5; /* x69581 stalin.sc:3307:112825 */ t79299.tag = STRUCTURE_TYPE24753; t79299.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t79299.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3307, 112824); out_of_memory_error();} t79299.value.structure_type24753->s0.tag = FIXNUM_TYPE; t79299.value.structure_type24753->s0.value.fixnum_type = t79297; t79299.value.structure_type24753->s1.tag = NULL_TYPE; t79298 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t79298==NULL) {backtrace("stalin.sc", 3307, 112824); out_of_memory_error();} t79298->s0.tag = FIXNUM_TYPE; t79298->s0.value.fixnum_type = t79296; t79298->s1 = t79299; t79287 = f27310(t79298); goto l14789; l14788: /* x69594 stalin.sc:3308:112863 */ /* x69593 stalin.sc:3308:112894 */ /* x69592 stalin.sc:3308:112903 */ t79294 = 2; /* x69591 stalin.sc:3308:112895 */ a34818 = t79294; /* x271557 */ /* x271556 */ t79295 = a34818; /* x271555 */ t79289 = ~t79295; /* x69590 stalin.sc:3308:112872 */ /* x69589 stalin.sc:3308:112891 */ t79292 = a21784; /* x69588 stalin.sc:3308:112873 */ a37032 = t79292; /* x280797 */ /* x280796 */ t79293 = a37032; /* x280795 */ if (!((t79293.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-BOOLEANS[6507] 31949]"); structure_ref_error();} t79288 = t79293.value.structure_type27650->s5; /* x69587 stalin.sc:3308:112864 */ t79291.tag = STRUCTURE_TYPE24753; t79291.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t79291.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3308, 112863); out_of_memory_error();} t79291.value.structure_type24753->s0.tag = FIXNUM_TYPE; t79291.value.structure_type24753->s0.value.fixnum_type = t79289; t79291.value.structure_type24753->s1.tag = NULL_TYPE; t79290 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t79290==NULL) {backtrace("stalin.sc", 3308, 112863); out_of_memory_error();} t79290->s0.tag = FIXNUM_TYPE; t79290->s0.value.fixnum_type = t79288; t79290->s1 = t79291; t79287 = f27305(t79290); l14789: /* x69578 stalin.sc:3304:112782 */ f6508(t79286, t79287); return;} /* TYPE-SET-SQUISHABLE?[8127] */ unsigned f8127(struct w49 a21783) {struct w49 a37038; /* S */ int t79303; int t79304; int t79305; struct structure_type24753 *t79306; struct w49 t79307; struct w49 t79308; struct w49 t79309; /* x69575 stalin.sc:3300:112655 */ /* x69575 stalin.sc:3300:112655 */ /* x69574 stalin.sc:3300:112660 */ /* x69573 stalin.sc:3300:112667 */ /* x69572 stalin.sc:3300:112698 */ t79305 = 2; /* x69571 stalin.sc:3300:112676 */ /* x69570 stalin.sc:3300:112695 */ t79308 = a21783; /* x69569 stalin.sc:3300:112677 */ a37038 = t79308; /* x280821 */ /* x280820 */ t79309 = a37038; /* x280819 */ if (!((t79309.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-BOOLEANS[6507] 31955]"); structure_ref_error();} t79304 = t79309.value.structure_type27650->s5; /* x69568 stalin.sc:3300:112668 */ t79307.tag = STRUCTURE_TYPE24753; t79307.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t79307.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3300, 112667); out_of_memory_error();} t79307.value.structure_type24753->s0.tag = FIXNUM_TYPE; t79307.value.structure_type24753->s0.value.fixnum_type = t79305; t79307.value.structure_type24753->s1.tag = NULL_TYPE; t79306 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t79306==NULL) {backtrace("stalin.sc", 3300, 112667); out_of_memory_error();} t79306->s0.tag = FIXNUM_TYPE; t79306->s0.value.fixnum_type = t79304; t79306->s1 = t79307; t79303 = f27305(t79306); /* x270375 stalin.sc:3300:112661 */ if (t79303==0) goto l14792; return TRUE_TYPE; l14792: return FALSE_TYPE;} /* SET-TYPE-SET-SQUEEZABLE?![8123] */ void f8123(struct w49 a21780, unsigned a21781) {int a34829; /* N */ struct w49 a37039; /* S */ struct w49 a37040; /* S */ struct w49 t79310; int t79311; int t79312; int t79313; struct structure_type24753 *t79314; struct w49 t79315; struct w49 t79316; struct w49 t79317; int t79318; int t79319; int t79320; int t79321; struct structure_type24753 *t79322; struct w49 t79323; struct w49 t79324; struct w49 t79325; unsigned t79326; /* x69563 */ /* x69562 stalin.sc:3292:112457 */ /* x69555 stalin.sc:3292:112465 */ /* x69554 stalin.sc:3292:112475 */ t79326 = a21781; /* x270377 stalin.sc:3292:112466 */ /* x69557 */ /* x69556 */ /* x69552 */ /* x69551 stalin.sc:3293:112491 */ /* x69534 stalin.sc:3294:112517 */ t79310 = a21780; /* x69550 stalin.sc:3295:112521 */ /* x69535 stalin.sc:3295:112525 */ if (a21781==FALSE_TYPE) goto l14795; /* x69541 stalin.sc:3296:112534 */ /* x69540 stalin.sc:3296:112564 */ t79321 = 4; /* x69539 stalin.sc:3296:112542 */ /* x69538 stalin.sc:3296:112561 */ t79324 = a21780; /* x69537 stalin.sc:3296:112543 */ a37039 = t79324; /* x280825 */ /* x280824 */ t79325 = a37039; /* x280823 */ if (!((t79325.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-BOOLEANS[6507] 31956]"); structure_ref_error();} t79320 = t79325.value.structure_type27650->s5; /* x69536 stalin.sc:3296:112535 */ t79323.tag = STRUCTURE_TYPE24753; t79323.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t79323.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3296, 112534); out_of_memory_error();} t79323.value.structure_type24753->s0.tag = FIXNUM_TYPE; t79323.value.structure_type24753->s0.value.fixnum_type = t79321; t79323.value.structure_type24753->s1.tag = NULL_TYPE; t79322 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t79322==NULL) {backtrace("stalin.sc", 3296, 112534); out_of_memory_error();} t79322->s0.tag = FIXNUM_TYPE; t79322->s0.value.fixnum_type = t79320; t79322->s1 = t79323; t79311 = f27310(t79322); goto l14796; l14795: /* x69549 stalin.sc:3297:112573 */ /* x69548 stalin.sc:3297:112604 */ /* x69547 stalin.sc:3297:112613 */ t79318 = 4; /* x69546 stalin.sc:3297:112605 */ a34829 = t79318; /* x271601 */ /* x271600 */ t79319 = a34829; /* x271599 */ t79313 = ~t79319; /* x69545 stalin.sc:3297:112582 */ /* x69544 stalin.sc:3297:112601 */ t79316 = a21780; /* x69543 stalin.sc:3297:112583 */ a37040 = t79316; /* x280829 */ /* x280828 */ t79317 = a37040; /* x280827 */ if (!((t79317.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-BOOLEANS[6507] 31957]"); structure_ref_error();} t79312 = t79317.value.structure_type27650->s5; /* x69542 stalin.sc:3297:112574 */ t79315.tag = STRUCTURE_TYPE24753; t79315.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t79315.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3297, 112573); out_of_memory_error();} t79315.value.structure_type24753->s0.tag = FIXNUM_TYPE; t79315.value.structure_type24753->s0.value.fixnum_type = t79313; t79315.value.structure_type24753->s1.tag = NULL_TYPE; t79314 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t79314==NULL) {backtrace("stalin.sc", 3297, 112573); out_of_memory_error();} t79314->s0.tag = FIXNUM_TYPE; t79314->s0.value.fixnum_type = t79312; t79314->s1 = t79315; t79311 = f27305(t79314); l14796: /* x69533 stalin.sc:3293:112492 */ f6508(t79310, t79311); return;} /* SET-TYPE-SET-USED?![8118] */ void f8118(struct w49 a21776) {struct w49 a37037; /* S */ struct w49 t79327; int t79328; int t79329; int t79330; struct structure_type24753 *t79331; struct w49 t79332; struct w49 t79333; struct w49 t79334; /* x69518 */ /* x69517 stalin.sc:3281:112167 */ /* x69510 stalin.sc:3281:112175 */ /* x69509 stalin.sc:3281:112185 */ /* x270380 stalin.sc:3281:112176 */ /* x69512 */ /* x69511 */ /* x69507 */ /* x69506 stalin.sc:3282:112201 */ /* x69489 stalin.sc:3283:112227 */ t79327 = a21776; /* x69505 stalin.sc:3284:112231 */ /* x69490 stalin.sc:3284:112235 */ /* x69496 stalin.sc:3285:112244 */ /* x69495 stalin.sc:3285:112274 */ t79330 = 8; /* x69494 stalin.sc:3285:112252 */ /* x69493 stalin.sc:3285:112271 */ t79333 = a21776; /* x69492 stalin.sc:3285:112253 */ a37037 = t79333; /* x280817 */ /* x280816 */ t79334 = a37037; /* x280815 */ if (!((t79334.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-BOOLEANS[6507] 31954]"); structure_ref_error();} t79329 = t79334.value.structure_type27650->s5; /* x69491 stalin.sc:3285:112245 */ t79332.tag = STRUCTURE_TYPE24753; t79332.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t79332.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3285, 112244); out_of_memory_error();} t79332.value.structure_type24753->s0.tag = FIXNUM_TYPE; t79332.value.structure_type24753->s0.value.fixnum_type = t79330; t79332.value.structure_type24753->s1.tag = NULL_TYPE; t79331 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t79331==NULL) {backtrace("stalin.sc", 3285, 112244); out_of_memory_error();} t79331->s0.tag = FIXNUM_TYPE; t79331->s0.value.fixnum_type = t79329; t79331->s1 = t79332; t79328 = f27310(t79331); /* x69488 stalin.sc:3282:112202 */ f6508(t79327, t79328); return;} /* TYPE-SET-USED?[8117] */ unsigned f8117(struct w49 a21775) {struct w49 a37044; /* S */ int t79335; int t79336; int t79337; struct structure_type24753 *t79338; struct w49 t79339; struct w49 t79340; struct w49 t79341; /* x69485 stalin.sc:3278:112081 */ /* x69485 stalin.sc:3278:112081 */ /* x69484 stalin.sc:3278:112086 */ /* x69483 stalin.sc:3278:112093 */ /* x69482 stalin.sc:3278:112124 */ t79337 = 8; /* x69481 stalin.sc:3278:112102 */ /* x69480 stalin.sc:3278:112121 */ t79340 = a21775; /* x69479 stalin.sc:3278:112103 */ a37044 = t79340; /* x280845 */ /* x280844 */ t79341 = a37044; /* x280843 */ if (!((t79341.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-BOOLEANS[6507] 31961]"); structure_ref_error();} t79336 = t79341.value.structure_type27650->s5; /* x69478 stalin.sc:3278:112094 */ t79339.tag = STRUCTURE_TYPE24753; t79339.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t79339.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3278, 112093); out_of_memory_error();} t79339.value.structure_type24753->s0.tag = FIXNUM_TYPE; t79339.value.structure_type24753->s0.value.fixnum_type = t79337; t79339.value.structure_type24753->s1.tag = NULL_TYPE; t79338 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t79338==NULL) {backtrace("stalin.sc", 3278, 112093); out_of_memory_error();} t79338->s0.tag = FIXNUM_TYPE; t79338->s0.value.fixnum_type = t79336; t79338->s1 = t79339; t79335 = f27305(t79338); /* x270381 stalin.sc:3278:112087 */ if (t79335==0) goto l14801; return TRUE_TYPE; l14801: return FALSE_TYPE;} /* SET-TYPE-SET-MARKED?![8113] */ void f8113(struct w49 a21772, unsigned a21773) {int a34835; /* N */ struct w49 a37034; /* S */ struct w49 a37041; /* S */ struct w49 t79342; int t79343; int t79344; int t79345; struct structure_type24753 *t79346; struct w49 t79347; struct w49 t79348; struct w49 t79349; int t79350; int t79351; int t79352; int t79353; struct structure_type24753 *t79354; struct w49 t79355; struct w49 t79356; struct w49 t79357; unsigned t79358; /* x69473 */ /* x69472 stalin.sc:3270:111887 */ /* x69465 stalin.sc:3270:111895 */ /* x69464 stalin.sc:3270:111905 */ t79358 = a21773; /* x270383 stalin.sc:3270:111896 */ /* x69467 */ /* x69466 */ /* x69462 */ /* x69461 stalin.sc:3271:111921 */ /* x69444 stalin.sc:3272:111947 */ t79342 = a21772; /* x69460 stalin.sc:3273:111951 */ /* x69445 stalin.sc:3273:111955 */ if (a21773==FALSE_TYPE) goto l14804; /* x69451 stalin.sc:3274:111964 */ /* x69450 stalin.sc:3274:111994 */ t79353 = 16; /* x69449 stalin.sc:3274:111972 */ /* x69448 stalin.sc:3274:111991 */ t79356 = a21772; /* x69447 stalin.sc:3274:111973 */ a37034 = t79356; /* x280805 */ /* x280804 */ t79357 = a37034; /* x280803 */ if (!((t79357.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-BOOLEANS[6507] 31951]"); structure_ref_error();} t79352 = t79357.value.structure_type27650->s5; /* x69446 stalin.sc:3274:111965 */ t79355.tag = STRUCTURE_TYPE24753; t79355.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t79355.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3274, 111964); out_of_memory_error();} t79355.value.structure_type24753->s0.tag = FIXNUM_TYPE; t79355.value.structure_type24753->s0.value.fixnum_type = t79353; t79355.value.structure_type24753->s1.tag = NULL_TYPE; t79354 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t79354==NULL) {backtrace("stalin.sc", 3274, 111964); out_of_memory_error();} t79354->s0.tag = FIXNUM_TYPE; t79354->s0.value.fixnum_type = t79352; t79354->s1 = t79355; t79343 = f27310(t79354); goto l14805; l14804: /* x69459 stalin.sc:3275:112004 */ /* x69458 stalin.sc:3275:112035 */ /* x69457 stalin.sc:3275:112044 */ t79350 = 16; /* x69456 stalin.sc:3275:112036 */ a34835 = t79350; /* x271625 */ /* x271624 */ t79351 = a34835; /* x271623 */ t79345 = ~t79351; /* x69455 stalin.sc:3275:112013 */ /* x69454 stalin.sc:3275:112032 */ t79348 = a21772; /* x69453 stalin.sc:3275:112014 */ a37041 = t79348; /* x280833 */ /* x280832 */ t79349 = a37041; /* x280831 */ if (!((t79349.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-BOOLEANS[6507] 31958]"); structure_ref_error();} t79344 = t79349.value.structure_type27650->s5; /* x69452 stalin.sc:3275:112005 */ t79347.tag = STRUCTURE_TYPE24753; t79347.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t79347.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3275, 112004); out_of_memory_error();} t79347.value.structure_type24753->s0.tag = FIXNUM_TYPE; t79347.value.structure_type24753->s0.value.fixnum_type = t79345; t79347.value.structure_type24753->s1.tag = NULL_TYPE; t79346 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t79346==NULL) {backtrace("stalin.sc", 3275, 112004); out_of_memory_error();} t79346->s0.tag = FIXNUM_TYPE; t79346->s0.value.fixnum_type = t79344; t79346->s1 = t79347; t79343 = f27305(t79346); l14805: /* x69443 stalin.sc:3271:111922 */ f6508(t79342, t79343); return;} /* TYPE-SET-MARKED?[8112] */ unsigned f8112(struct w49 a21771) {struct w49 a37035; /* S */ int t79359; int t79360; int t79361; struct structure_type24753 *t79362; struct w49 t79363; struct w49 t79364; struct w49 t79365; /* x69440 stalin.sc:3267:111798 */ /* x69440 stalin.sc:3267:111798 */ /* x69439 stalin.sc:3267:111803 */ /* x69438 stalin.sc:3267:111810 */ /* x69437 stalin.sc:3267:111841 */ t79361 = 16; /* x69436 stalin.sc:3267:111819 */ /* x69435 stalin.sc:3267:111838 */ t79364 = a21771; /* x69434 stalin.sc:3267:111820 */ a37035 = t79364; /* x280809 */ /* x280808 */ t79365 = a37035; /* x280807 */ if (!((t79365.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-BOOLEANS[6507] 31952]"); structure_ref_error();} t79360 = t79365.value.structure_type27650->s5; /* x69433 stalin.sc:3267:111811 */ t79363.tag = STRUCTURE_TYPE24753; t79363.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t79363.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3267, 111810); out_of_memory_error();} t79363.value.structure_type24753->s0.tag = FIXNUM_TYPE; t79363.value.structure_type24753->s0.value.fixnum_type = t79361; t79363.value.structure_type24753->s1.tag = NULL_TYPE; t79362 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t79362==NULL) {backtrace("stalin.sc", 3267, 111810); out_of_memory_error();} t79362->s0.tag = FIXNUM_TYPE; t79362->s0.value.fixnum_type = t79360; t79362->s1 = t79363; t79359 = f27305(t79362); /* x270384 stalin.sc:3267:111804 */ if (t79359==0) goto l14808; return TRUE_TYPE; l14808: return FALSE_TYPE;} /* [inside CREATE-ANONYMOUS-TYPE-SET 8101] */ void f8101(struct p8099 *p8101, struct w49 a21762) {struct w49 t79366; struct structure_type27650 *t79367; struct w49 t79368; /* x69322 stalin.sc:3239:111135 */ /* x69320 stalin.sc:3239:111151 */ t79366 = a21762; /* x69321 stalin.sc:3239:111153 */ t79367 = p8101->a21759; /* x69319 stalin.sc:3239:111136 */ a21648 = t79366; t79368.tag = STRUCTURE_TYPE27650; t79368.value.structure_type27650 = t79367; f8040(t79368); return;} /* CREATE-ANONYMOUS-TYPE-SET[8098] */ struct structure_type27650 *f8098(struct structure_type24753 *a21758) {struct structure_type27650 *a21759; /* W */ struct structure_type27650 *t79369; struct p8099 *t79370; struct structure_type27650 *t79371; unsigned t79372; struct w49 t79373; int t79374; int t79375; struct structure_type24753 *t79376; struct w49 t79377; struct structure_type24753 *t79378; struct w228245 t79379; struct w49 t79380; struct structure_type24753 *t79381; struct p8099 *t79382; struct structure_type24753 *t79383; struct w36108 t79384; struct w49 t79385; struct structure_type24753 *t79386; char *t79387; int t79388; char *t79389; int t79390; struct w49 t79391; struct w7121 t79392; struct p8099 *e8099; struct p8099 *p8100; /* x69338 stalin.sc:3235:110934 */ /* x69337 stalin.sc:3235:110943 */ /* x69329 stalin.sc:3235:110958 */ /* x69330 stalin.sc:3235:110961 */ /* x69332 stalin.sc:3235:110964 */ /* x69331 stalin.sc:3235:110965 */ /* x277515 stalin.sc:323:8604 */ t79387 = q35; /* x69333 stalin.sc:3235:110978 */ t79388 = 0; /* x69335 stalin.sc:3235:110980 */ /* x69334 stalin.sc:3235:110981 */ /* x278023 stalin.sc:321:8572 */ t79389 = q34; /* x69336 stalin.sc:3235:110989 */ t79390 = 0; /* x69328 stalin.sc:3235:110944 */ t79391.tag = FALSE_TYPE; t79392.tag = EXTERNAL_SYMBOL_TYPE; t79392.value.external_symbol_type = t79389; t79369 = f6465(t79391, t79387, t79388, t79392, t79390); /* x69327 */ a21759 = t79369; e8099 = (struct p8099 *)alloca(sizeof(struct p8099)); if (e8099==NULL) {backtrace_internal("CREATE-ANONYMOUS-TYPE-SET[8098]"); out_of_memory_error();} e8099->a21759 = a21759; /* x69326 */ /* x69317 stalin.sc:3237:111024 */ /* x69304 stalin.sc:3238:111054 */ t79371 = e8099->a21759; /* x69316 stalin.sc:3238:111056 */ /* x69316 stalin.sc:3238:111056 */ /* x69310 stalin.sc:3238:111061 */ /* x69308 stalin.sc:3238:111065 */ /* x69307 stalin.sc:3238:111073 */ t79376 = a21758; /* x69306 stalin.sc:3238:111066 */ /* MOVE: branching squeezed to general */ if (t79376>=((struct structure_type24753 *)VALUE_OFFSET)) {t79377.tag = STRUCTURE_TYPE24753; t79377.value.structure_type24753 = t79376;} else t79377.tag = (unsigned)t79376; t79374 = f26227(t79377); /* x69309 stalin.sc:3238:111080 */ t79375 = 1; /* x270392 stalin.sc:3238:111062 */ if (!(t79374<=t79375)) goto l14811; /* x69314 */ /* x69313 stalin.sc:3238:111102 */ t79378 = a21758; /* x69312 stalin.sc:3238:111090 */ /* x69311 stalin.sc:3238:111084 */ t79379.tag = NATIVE_PROCEDURE_TYPE7232; /* MOVE: branching squeezed to general */ if (t79378>=((struct structure_type24753 *)VALUE_OFFSET)) {t79380.tag = STRUCTURE_TYPE24753; t79380.value.structure_type24753 = t79378;} else t79380.tag = (unsigned)t79378; t79381 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t79379, t79380, t79381)==FALSE_TYPE) goto l14811; t79372 = TRUE_TYPE; goto l14812; l14811: t79372 = FALSE_TYPE; l14812: /* x69303 stalin.sc:3237:111025 */ t79373.tag = STRUCTURE_TYPE27650; t79373.value.structure_type27650 = t79371; f8133(t79373, t79372); /* x69325 stalin.sc:3239:111113 */ /* x69324 stalin.sc:3239:111157 */ t79383 = a21758; /* x69323 stalin.sc:3239:111123 */ t79382 = e8099; /* x69318 stalin.sc:3239:111114 */ t79384.tag = NATIVE_PROCEDURE_TYPE16240; t79384.value.native_procedure_type16240 = t79382; /* MOVE: branching squeezed to general */ if (t79383>=((struct structure_type24753 *)VALUE_OFFSET)) {t79385.tag = STRUCTURE_TYPE24753; t79385.value.structure_type24753 = t79383;} else t79385.tag = (unsigned)t79383; t79386 = (struct structure_type24753 *)NULL_TYPE; f27755(t79384, t79385, t79386); /* x69302 */ t79370 = e8099; p8100 = t79370; /* x69301 stalin.sc:3240:111166 */ return p8100->a21759;} /* CREATE-TYPE-SET[8092] */ struct structure_type27650 *f8092(struct w49 a21751) {struct structure_type27650 *a21753; /* W */ struct structure_type27650 *t79393; struct structure_type27650 *t79394; struct w49 t79395; unsigned t79396; struct structure_type27650 *t79397; struct structure_type27650 *t79398; struct w49 t79399; struct w49 t79400; unsigned t79401; int t79402; struct structure_type27650 *t79403; struct w21193 t79404; struct w49 t79405; char *t79406; int t79407; unsigned t79408; int t79409; struct w7121 t79410; char *t79411; /* x69298 */ /* x69297 stalin.sc:3224:110557 */ /* x69290 stalin.sc:3224:110563 */ if (a2040==FALSE_TYPE) goto l14815; /* x69294 */ /* x69293 */ /* x69292 stalin.sc:3224:110579 */ /* x69291 stalin.sc:3224:110580 */ /* x297293 QobiScheme.sc:166:5314 */ /* x297292 QobiScheme.sc:166:5321 */ t79411 = "This shouldn\'t happen"; /* x297291 QobiScheme.sc:166:5315 */ stalin_panic(t79411); goto l14816; l14815: /* x69296 stalin.sc:3224:110557 */ /* x69295 stalin.sc:3224:110557 */ l14816: /* x69289 */ /* x69288 stalin.sc:3225:110591 */ /* x69287 stalin.sc:3225:110600 */ /* x69280 stalin.sc:3225:110615 */ t79405 = a21751; /* x69281 stalin.sc:3225:110624 */ /* x69283 stalin.sc:3225:110627 */ /* x69282 stalin.sc:3225:110628 */ /* x277517 stalin.sc:323:8604 */ t79406 = q35; /* x69284 stalin.sc:3225:110641 */ t79407 = 0; /* x69285 stalin.sc:3225:110643 */ t79408 = a1680; /* x69286 stalin.sc:3225:110648 */ t79409 = 0; /* x69279 stalin.sc:3225:110601 */ /* MOVE: dispatching squished to general */ if (t79408==FALSE_TYPE) t79410.tag = (unsigned)t79408; else {t79410.tag = FIXNUM_TYPE; t79410.value.fixnum_type = (int)(((int)t79408)>>1);} t79393 = f6465(t79405, t79406, t79407, t79410, t79409); /* x69278 */ a21753 = t79393; /* x69277 */ /* x69262 stalin.sc:3226:110655 */ /* x69260 stalin.sc:3226:110682 */ t79394 = a21753; /* x69261 stalin.sc:3226:110684 */ /* x69259 stalin.sc:3226:110656 */ t79395.tag = STRUCTURE_TYPE27650; t79395.value.structure_type27650 = t79394; t79396 = TRUE_TYPE; f8133(t79395, t79396); /* x69266 stalin.sc:3227:110690 */ /* x69264 stalin.sc:3227:110710 */ t79397 = a21753; /* x69265 stalin.sc:3227:110712 */ t79398 = a21753; /* x69263 stalin.sc:3227:110691 */ t79399.tag = STRUCTURE_TYPE27650; t79399.value.structure_type27650 = t79397; t79400.tag = STRUCTURE_TYPE27650; t79400.value.structure_type27650 = t79398; f6484(t79399, t79400); /* x69271 stalin.sc:3228:110717 */ /* x69270 stalin.sc:3228:110728 */ /* x69268 stalin.sc:3228:110731 */ t79401 = a1680; /* x69269 stalin.sc:3228:110736 */ t79402 = 1; /* x270394 stalin.sc:3228:110729 */ if (!((t79401&1)==1)) {backtrace("stalin.sc", 3228, 110728); plus_error();} a1680 = (((unsigned)(((int)(((int)t79401)>>1))+t79402))<<1)+1; /* x69276 stalin.sc:3229:110742 */ /* x69275 stalin.sc:3229:110753 */ /* x69273 stalin.sc:3229:110759 */ t79403 = a21753; /* x69274 stalin.sc:3229:110761 */ t79404 = a1679; /* x270393 stalin.sc:3229:110754 */ a1679.tag = STRUCTURE_TYPE24753; a1679.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a1679.value.structure_type24753)==NULL) {backtrace("stalin.sc", 3229, 110753); out_of_memory_error();} a1679.value.structure_type24753->s0.tag = STRUCTURE_TYPE27650; a1679.value.structure_type24753->s0.value.structure_type27650 = t79403; a1679.value.structure_type24753->s1 = *((struct w49 *)(&t79404)); /* x69258 */ /* x69257 stalin.sc:3230:110770 */ return a21753;} /* [inside REINITIALIZE-TYPES-AND-TYPE-SETS! 8091] */ void f8091(struct w49 a21750) {struct w49 t79412; unsigned t79413; /* x69175 stalin.sc:3187:108798 */ /* x69173 stalin.sc:3187:108832 */ t79412 = a21750; /* x69174 stalin.sc:3187:108834 */ /* x69172 stalin.sc:3187:108799 */ t79413 = FALSE_TYPE; f7320(t79412, t79413); return;} /* [inside REINITIALIZE-TYPES-AND-TYPE-SETS! 8089] */ void f8089(struct w49 a21745) {struct w49 a19289; /* S */ struct w49 t79414; struct w49 t79415; struct w49 t79416; struct structure_type27858 *t79417; struct w49 t79418; struct structure_type27673 *t79419; struct w49 t79420; struct structure_type24753 *t79421; struct w49 t79422; struct structure_type24753 *t79423; /* x69095 */ /* x69082 stalin.sc:3145:107387 */ /* x69080 stalin.sc:3145:107422 */ t79416 = a21745; /* x69081 stalin.sc:3145:107424 */ /* x69079 stalin.sc:3145:107388 */ t79417 = (struct structure_type27858 *)FALSE_TYPE; f5696(t79416, t79417); /* x69086 stalin.sc:3146:107433 */ /* x69084 stalin.sc:3146:107462 */ t79418 = a21745; /* x69085 stalin.sc:3146:107464 */ /* x69083 stalin.sc:3146:107434 */ t79419 = (struct structure_type27673 *)FALSE_TYPE; f5704(t79418, t79419); /* x69090 stalin.sc:3147:107473 */ /* x69088 stalin.sc:3147:107506 */ t79420 = a21745; /* x69089 stalin.sc:3147:107508 */ /* x69087 stalin.sc:3147:107474 */ t79421 = (struct structure_type24753 *)NULL_TYPE; f5712(t79420, t79421); /* x69094 stalin.sc:3148:107518 */ /* x69092 stalin.sc:3148:107555 */ t79422 = a21745; /* x69093 stalin.sc:3148:107557 */ /* x69091 stalin.sc:3148:107519 */ t79423 = (struct structure_type24753 *)NULL_TYPE; f5720(t79422, t79423); /* x69078 */ /* x69077 stalin.sc:3149:107567 */ /* x69075 stalin.sc:3149:107607 */ t79414 = a21745; /* x69076 stalin.sc:3149:107609 */ /* x69074 stalin.sc:3149:107568 */ a19289 = t79414; /* x50817 */ /* x50815 */ t79415 = a19289; /* x50816 */ /* x50814 */ if ((t79415.tag)==STRUCTURE_TYPE27698) return; backtrace_internal("SET-EXPRESSION-NONHEADED-VECTOR-TYPES![5728]"); structure_set_error();} /* ESCAPES?[8086] */ unsigned f8086(struct w49 a21680, struct w49 a21681) {struct w49 a36536; /* S */ struct w49 t79424; struct w49 t79425; struct w49 t79426; struct w49 t79427; /* x69031 stalin.sc:3121:106775 */ /* x69031 stalin.sc:3121:106775 */ /* x69030 stalin.sc:3121:106780 */ /* x69029 stalin.sc:3121:106785 */ /* x69025 stalin.sc:3121:106791 */ t79424 = a21680; /* x69028 stalin.sc:3121:106793 */ /* x69027 stalin.sc:3121:106821 */ t79426 = a21681; /* x69026 stalin.sc:3121:106794 */ a36536 = t79426; /* x278813 */ /* x278812 */ t79427 = a36536; /* x278811 */ if (!((t79427.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-ESCAPING-TYPES[6823] 31453]"); structure_ref_error();} t79425 = t79427.value.structure_type27694->s24; /* x69024 stalin.sc:3121:106786 */ if ((f26351(t79424, t79425).tag)==FALSE_TYPE) goto l14818; return TRUE_TYPE; l14818: return FALSE_TYPE;} /* LOOP[8052] */ struct structure_type27657 *f8052(struct structure_type27657 *a21662) {struct structure_type27657 *a20248; /* S */ struct structure_type27657 *a20258; /* S */ struct structure_type27657 *a37157; /* S */ struct structure_type27657 *a37158; /* S */ struct structure_type27657 *a37159; /* S */ struct structure_type27657 *a37160; /* S */ struct structure_type27657 *a37161; /* S */ struct structure_type27657 *a37162; /* S */ struct structure_type27657 *a37163; /* S */ struct structure_type27657 *a37164; /* S */ struct structure_type27657 *a37165; /* S */ struct structure_type27657 *a37166; /* S */ struct structure_type27657 *a37167; /* S */ struct structure_type27657 *a37168; /* S */ struct structure_type27657 *a37169; /* S */ struct structure_type27657 *a37170; /* S */ struct structure_type27657 *a37171; /* S */ struct structure_type27657 *a37172; /* S */ struct structure_type27657 *a37173; /* S */ struct structure_type27657 *a37174; /* S */ struct structure_type27657 *a37175; /* S */ struct structure_type27657 *a37187; /* S */ struct structure_type27657 *a37188; /* S */ struct structure_type27657 *a37189; /* S */ struct structure_type27657 *a37190; /* S */ struct structure_type27657 *a37191; /* S */ struct structure_type27657 *a37192; /* S */ struct structure_type27657 *a37193; /* S */ struct structure_type27657 *a37194; /* S */ struct structure_type27657 *a37195; /* S */ struct structure_type27657 *a37196; /* S */ struct structure_type27657 *a37197; /* S */ struct structure_type27657 *a37198; /* S */ struct structure_type27657 *a37199; /* S */ struct structure_type27657 *a37200; /* S */ struct structure_type27657 *a37201; /* S */ struct structure_type27657 *a37202; /* S */ struct structure_type27657 *a37203; /* S */ struct structure_type27657 *a37204; /* S */ struct structure_type27657 *a37205; /* S */ struct structure_type27657 *a37206; /* S */ struct structure_type27657 *a37207; /* S */ struct structure_type27657 *a37208; /* S */ struct structure_type27657 *a37209; /* S */ struct structure_type27657 *a37212; /* S */ struct structure_type27657 *a37213; /* S */ struct structure_type27657 *a37214; /* S */ struct structure_type27657 *a37229; /* S */ struct structure_type27657 *a37230; /* S */ struct structure_type27657 *a37231; /* S */ struct structure_type27657 *a37232; /* S */ struct structure_type27657 *a37233; /* S */ struct structure_type27657 *a37234; /* S */ struct structure_type27657 *a37235; /* S */ struct structure_type27657 *a37236; /* S */ struct structure_type27657 *a37237; /* S */ struct structure_type27657 *a37238; /* S */ struct structure_type27657 *a37239; /* S */ struct structure_type27657 *a37240; /* S */ struct structure_type27657 *a37241; /* S */ struct structure_type27657 *a37242; /* S */ struct structure_type27657 *a37243; /* S */ struct structure_type27657 *a37244; /* S */ struct structure_type27657 *a37245; /* S */ struct structure_type27657 *a37246; /* S */ struct structure_type27657 *a37247; /* S */ struct structure_type27657 *a37248; /* S */ struct structure_type27657 *a37249; /* S */ struct structure_type27657 *a37250; /* S */ struct structure_type27657 *a37253; /* S */ struct structure_type27657 *a37254; /* S */ struct structure_type27657 *a37255; /* S */ struct structure_type27657 *a37256; /* S */ struct structure_type27657 *a37266; /* S */ struct structure_type27657 *a37267; /* S */ unsigned t79428; unsigned t79429; struct structure_type27657 *t79430; struct structure_type27657 *t79431; struct structure_type27657 *t79432; struct structure_type27657 *t79433; struct structure_type27657 *t79434; struct structure_type27657 *t79435; struct structure_type27657 *t79436; struct structure_type27657 *t79437; struct structure_type27657 *t79438; struct structure_type27657 *t79439; struct structure_type27657 *t79440; struct structure_type27657 *t79441; struct structure_type27657 *t79442; struct structure_type27657 *t79443; struct structure_type27657 *t79444; struct structure_type27657 *t79445; struct structure_type27657 *t79446; struct structure_type27657 *t79447; struct structure_type27657 *t79448; struct structure_type27657 *t79449; struct structure_type27657 *t79450; struct structure_type27657 *t79451; struct structure_type27657 *t79452; struct structure_type27657 *t79453; struct structure_type27657 *t79454; struct structure_type27657 *t79455; struct structure_type27657 *t79456; struct structure_type27657 *t79457; struct structure_type27657 *t79458; struct structure_type27657 *t79459; struct structure_type27657 *t79460; struct structure_type27657 *t79461; struct structure_type27657 *t79462; struct structure_type27657 *t79463; struct structure_type27657 *t79464; struct structure_type27657 *t79465; struct structure_type27657 *t79466; struct structure_type27657 *t79467; struct structure_type27657 *t79468; struct structure_type27657 *t79469; struct structure_type27657 *t79470; struct structure_type27657 *t79471; struct structure_type27657 *t79472; struct structure_type27657 *t79473; struct structure_type27657 *t79474; struct structure_type27657 *t79475; struct structure_type27657 *t79476; struct structure_type27657 *t79477; struct structure_type27657 *t79478; struct structure_type27657 *t79479; struct structure_type27657 *t79480; struct structure_type27657 *t79481; struct structure_type27657 *t79482; struct structure_type27657 *t79483; struct structure_type27657 *t79484; struct structure_type27657 *t79485; struct structure_type27657 *t79486; struct structure_type27657 *t79487; struct structure_type27657 *t79488; struct structure_type27657 *t79489; struct structure_type27657 *t79490; struct structure_type27657 *t79491; struct structure_type27657 *t79492; struct structure_type27657 *t79493; struct structure_type27657 *t79494; struct structure_type27657 *t79495; struct structure_type27657 *t79496; struct structure_type27657 *t79497; struct structure_type27657 *t79498; struct structure_type27657 *t79499; struct structure_type27657 *t79500; struct structure_type27657 *t79501; struct structure_type27657 *t79502; struct structure_type27657 *t79503; struct structure_type27657 *t79504; struct structure_type27657 *t79505; struct structure_type27657 *t79506; struct structure_type27657 *t79507; struct structure_type27657 *t79508; struct structure_type27657 *t79509; struct structure_type27657 *t79510; struct structure_type27657 *t79511; struct structure_type27657 *t79512; struct structure_type27657 *t79513; struct structure_type27657 *t79514; struct structure_type27657 *t79515; struct structure_type27657 *t79516; struct structure_type27657 *t79517; struct structure_type27657 *t79518; struct structure_type27657 *t79519; char *t79520; struct structure_type27657 *t79521; unsigned t79522; struct structure_type27657 *t79523; struct structure_type27657 *t79524; struct structure_type27657 *t79525; unsigned t79526; struct structure_type27657 *t79527; struct structure_type27657 *t79528; struct structure_type27657 *t79529; struct structure_type27657 *t79530; char *t79531; struct structure_type27657 *t79532; unsigned t79533; struct structure_type27657 *t79534; struct structure_type27657 *t79535; struct structure_type27657 *t79536; unsigned t79537; struct structure_type27657 *t79538; struct structure_type27657 *t79539; struct structure_type27657 *t79540; struct structure_type27657 *t79541; struct structure_type27657 *t79542; struct structure_type27657 *t79543; struct structure_type27657 *t79544; struct structure_type27657 *t79545; struct structure_type27657 *t79546; struct structure_type27657 *t79547; struct structure_type27657 *t79548; struct structure_type27657 *t79549; struct structure_type27657 *t79550; struct structure_type27657 *t79551; struct structure_type27657 *t79552; struct structure_type27657 *t79553; struct structure_type27657 *t79554; struct structure_type27657 *t79555; struct structure_type27657 *t79556; struct structure_type27657 *t79557; struct structure_type27657 *t79558; struct structure_type27657 *t79559; struct structure_type27657 *t79560; struct structure_type27657 *t79561; struct structure_type27657 *t79562; struct structure_type27657 *t79563; struct structure_type27657 *t79564; struct structure_type27657 *t79565; struct structure_type27657 *t79566; struct structure_type27657 *t79567; struct structure_type27657 *t79568; struct structure_type27657 *t79569; struct structure_type27657 *t79570; struct structure_type27657 *t79571; struct structure_type27657 *t79572; struct structure_type27657 *t79573; struct structure_type27657 *t79574; struct structure_type27657 *t79575; struct structure_type27657 *t79576; struct structure_type27657 *t79577; char *t79578; struct structure_type27657 *t79579; struct structure_type27657 *t79580; struct structure_type27657 *t79581; struct structure_type27657 *t79582; struct structure_type27657 *t79583; struct structure_type27657 *t79584; struct structure_type27657 *t79585; struct structure_type27657 *t79586; char *t79587; struct structure_type27657 *t79588; struct structure_type27657 *t79589; char *t79590; struct structure_type27657 *t79591; unsigned t79592; struct structure_type27657 *t79593; unsigned t79594; struct structure_type27657 *t79595; struct structure_type27657 *t79596; struct structure_type27657 *t79597; unsigned t79598; struct structure_type27657 *t79599; struct structure_type27657 *t79600; int t79601; unsigned t79602; struct structure_type27657 *t79603; struct structure_type27657 *t79604; struct structure_type27657 *t79605; struct structure_type27657 *t79606; struct structure_type27657 *t79607; struct structure_type27657 *t79608; struct w49 t79609; int t79610; unsigned t79611; struct structure_type27657 *t79612; struct structure_type27657 *t79613; unsigned t79614; struct structure_type27657 *t79615; struct structure_type27657 *t79616; struct structure_type27657 *t79617; struct structure_type27657 *t79618; struct structure_type27657 *t79619; struct structure_type27657 *t79620; struct structure_type27657 *t79621; struct structure_type27657 *t79622; struct w49 t79623; int t79624; unsigned t79625; struct structure_type27657 *t79626; struct structure_type27657 *t79627; unsigned t79628; struct structure_type27657 *t79629; struct structure_type27657 *t79630; struct structure_type27657 *t79631; struct structure_type27657 *t79632; /* x68987 stalin.sc:2996:101190 */ /* x68592 stalin.sc:2997:101199 */ /* x68588 stalin.sc:2997:101202 */ t79428 = a21659; /* x68591 stalin.sc:2997:101204 */ /* x68590 stalin.sc:2997:101229 */ t79430 = a21662; /* x68589 stalin.sc:2997:101205 */ a37267 = t79430; /* x281737 */ /* x281736 */ t79431 = a37267; /* x281735 */ if (!(t79431>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-KEY[6433] 32184]"); structure_ref_error();} t79429 = t79431->s1; /* x270398 stalin.sc:2997:101200 */ if (!((t79428&1)==1)) {backtrace("stalin.sc", 2997, 101199); eql_error();} if (!((t79429&1)==1)) {backtrace("stalin.sc", 2997, 101199); eql_error();} if (!(((int)(((int)t79428)>>1))==((int)(((int)t79429)>>1)))) goto l14821; /* x68595 */ /* x68594 */ /* x68593 stalin.sc:2997:101236 */ return a21662; l14821: /* x68986 */ /* x68985 */ /* x68984 */ /* x68983 stalin.sc:2999:101253 */ /* x68944 stalin.sc:2999:101257 */ /* x68940 stalin.sc:2999:101260 */ t79601 = (int)(((int)a21659)>>1); /* x68943 stalin.sc:2999:101262 */ /* x68942 stalin.sc:2999:101287 */ t79603 = a21662; /* x68941 stalin.sc:2999:101263 */ a37266 = t79603; /* x281733 */ /* x281732 */ t79604 = a37266; /* x281731 */ if (!(t79604>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-KEY[6433] 32183]"); structure_ref_error();} t79602 = t79604->s1; /* x270397 stalin.sc:2999:101258 */ if (!((t79602&1)==1)) {backtrace("stalin.sc", 2999, 101257); lt_error();} if (!(t79601<((int)(((int)t79602)>>1)))) goto l14873; /* x68963 stalin.sc:3000:101301 */ /* x68946 stalin.sc:3001:101340 */ t79619 = a21662; /* x68962 stalin.sc:3002:101353 */ /* x68949 stalin.sc:3002:101357 */ /* x68948 stalin.sc:3002:101383 */ t79621 = a21662; /* x68947 stalin.sc:3002:101358 */ a37256 = t79621; /* x281693 */ /* x281692 */ t79622 = a37256; /* x281691 */ if (!(t79622>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32173]"); structure_ref_error();} if ((t79622->s2)==((struct structure_type27657 *)FALSE_TYPE)) goto l14879; /* x68954 stalin.sc:3003:101394 */ /* x68953 stalin.sc:3003:101400 */ /* x68952 stalin.sc:3003:101426 */ t79631 = a21662; /* x68951 stalin.sc:3003:101401 */ a37229 = t79631; /* x281585 */ /* x281584 */ t79632 = a37229; /* x281583 */ if (!(t79632>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32146]"); structure_ref_error();} t79630 = t79632->s2; /* x68950 stalin.sc:3003:101395 */ t79620 = f8052(t79630); goto l14880; l14879: /* x68961 stalin.sc:3004:101438 */ /* x68956 stalin.sc:3004:101464 */ t79623 = a21648; /* x68957 stalin.sc:3004:101466 */ t79624 = (int)(((int)a21659)>>1); /* x68958 stalin.sc:3004:101468 */ /* x68959 stalin.sc:3004:101471 */ /* x68960 stalin.sc:3004:101474 */ /* x68955 stalin.sc:3004:101439 */ t79625 = (((unsigned)t79624)<<1)+1; t79626 = (struct structure_type27657 *)FALSE_TYPE; t79627 = (struct structure_type27657 *)FALSE_TYPE; t79628 = TRUE_TYPE; t79629 = f6423(t79623, t79625, t79626, t79627, t79628); t79620 = t79629; l14880: /* x68945 stalin.sc:3000:101302 */ f6442(t79619, t79620); goto l14874; l14873: /* x68982 stalin.sc:3005:101487 */ /* x68965 stalin.sc:3006:101527 */ t79605 = a21662; /* x68981 stalin.sc:3007:101540 */ /* x68968 stalin.sc:3007:101544 */ /* x68967 stalin.sc:3007:101571 */ t79607 = a21662; /* x68966 stalin.sc:3007:101545 */ a37214 = t79607; /* x281525 */ /* x281524 */ t79608 = a37214; /* x281523 */ if (!(t79608>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32131]"); structure_ref_error();} if ((t79608->s3)==((struct structure_type27657 *)FALSE_TYPE)) goto l14876; /* x68973 stalin.sc:3008:101582 */ /* x68972 stalin.sc:3008:101588 */ /* x68971 stalin.sc:3008:101615 */ t79617 = a21662; /* x68970 stalin.sc:3008:101589 */ a37187 = t79617; /* x281417 */ /* x281416 */ t79618 = a37187; /* x281415 */ if (!(t79618>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32104]"); structure_ref_error();} t79616 = t79618->s3; /* x68969 stalin.sc:3008:101583 */ t79606 = f8052(t79616); goto l14877; l14876: /* x68980 stalin.sc:3009:101627 */ /* x68975 stalin.sc:3009:101653 */ t79609 = a21648; /* x68976 stalin.sc:3009:101655 */ t79610 = (int)(((int)a21659)>>1); /* x68977 stalin.sc:3009:101657 */ /* x68978 stalin.sc:3009:101660 */ /* x68979 stalin.sc:3009:101663 */ /* x68974 stalin.sc:3009:101628 */ t79611 = (((unsigned)t79610)<<1)+1; t79612 = (struct structure_type27657 *)FALSE_TYPE; t79613 = (struct structure_type27657 *)FALSE_TYPE; t79614 = TRUE_TYPE; t79615 = f6423(t79609, t79611, t79612, t79613, t79614); t79606 = t79615; l14877: /* x68964 stalin.sc:3005:101488 */ f6450(t79605, t79606); l14874: /* x68938 */ /* x68937 stalin.sc:3010:101673 */ /* x68690 stalin.sc:3012:101740 */ /* x68598 stalin.sc:3012:101745 */ /* x68597 stalin.sc:3012:101771 */ t79432 = a21662; /* x68596 stalin.sc:3012:101746 */ a37255 = t79432; /* x281689 */ /* x281688 */ t79433 = a37255; /* x281687 */ if (!(t79433>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32172]"); structure_ref_error();} if ((t79433->s2)==((struct structure_type27657 *)FALSE_TYPE)) goto l14823; /* x68688 */ /* x68603 stalin.sc:3013:101780 */ /* x68602 stalin.sc:3013:101806 */ /* x68601 stalin.sc:3013:101832 */ t79436 = a21662; /* x68600 stalin.sc:3013:101807 */ a37250 = t79436; /* x281669 */ /* x281668 */ t79437 = a37250; /* x281667 */ if (!(t79437>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32167]"); structure_ref_error();} t79434 = t79437->s2; /* x68599 stalin.sc:3013:101781 */ a37175 = t79434; /* x281369 */ /* x281368 */ t79435 = a37175; /* x281367 */ if (!(t79435>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32092]"); structure_ref_error();} if ((t79435->s4)==FALSE_TYPE) goto l14823; /* x68686 */ /* x68606 stalin.sc:3014:101842 */ /* x68605 stalin.sc:3014:101869 */ t79438 = a21662; /* x68604 stalin.sc:3014:101843 */ a37209 = t79438; /* x281505 */ /* x281504 */ t79439 = a37209; /* x281503 */ if (!(t79439>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32126]"); structure_ref_error();} if ((t79439->s3)==((struct structure_type27657 *)FALSE_TYPE)) goto l14823; /* x68684 */ /* x68611 stalin.sc:3015:101878 */ /* x68610 stalin.sc:3015:101904 */ /* x68609 stalin.sc:3015:101931 */ t79442 = a21662; /* x68608 stalin.sc:3015:101905 */ a37208 = t79442; /* x281501 */ /* x281500 */ t79443 = a37208; /* x281499 */ if (!(t79443>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32125]"); structure_ref_error();} t79440 = t79443->s3; /* x68607 stalin.sc:3015:101879 */ a37174 = t79440; /* x281365 */ /* x281364 */ t79441 = a37174; /* x281363 */ if (!(t79441>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32091]"); structure_ref_error();} if ((t79441->s4)==FALSE_TYPE) goto l14823; /* x68682 */ /* x68681 stalin.sc:3016:101945 */ /* x68672 stalin.sc:3016:101950 */ /* x68671 stalin.sc:3017:101982 */ /* x68670 stalin.sc:3017:102008 */ t79446 = a21662; /* x68669 stalin.sc:3017:101983 */ a37249 = t79446; /* x281665 */ /* x281664 */ t79447 = a37249; /* x281663 */ if (!(t79447>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32166]"); structure_ref_error();} t79444 = t79447->s2; /* x68668 stalin.sc:3016:101951 */ a37248 = t79444; /* x281661 */ /* x281660 */ t79445 = a37248; /* x281659 */ if (!(t79445>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32165]"); structure_ref_error();} if ((t79445->s2)==((struct structure_type27657 *)FALSE_TYPE)) goto l14828; /* x68679 */ /* x68678 stalin.sc:3019:102052 */ /* x68677 stalin.sc:3020:102085 */ /* x68676 stalin.sc:3020:102111 */ t79452 = a21662; /* x68675 stalin.sc:3020:102086 */ a37247 = t79452; /* x281657 */ /* x281656 */ t79453 = a37247; /* x281655 */ if (!(t79453>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32164]"); structure_ref_error();} t79450 = t79453->s2; /* x68674 stalin.sc:3019:102053 */ a37246 = t79450; /* x281653 */ /* x281652 */ t79451 = a37246; /* x281651 */ if (!(t79451>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32163]"); structure_ref_error();} t79448 = t79451->s2; /* x68673 stalin.sc:3018:102021 */ a37173 = t79448; /* x281361 */ /* x281360 */ t79449 = a37173; /* x281359 */ if (!(t79449>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32090]"); structure_ref_error();} if (!((t79449->s4)==FALSE_TYPE)) goto l14822; l14828: /* x68665 */ /* x68664 stalin.sc:3021:102127 */ /* x68655 stalin.sc:3021:102132 */ /* x68654 stalin.sc:3022:102165 */ /* x68653 stalin.sc:3022:102191 */ t79456 = a21662; /* x68652 stalin.sc:3022:102166 */ a37245 = t79456; /* x281649 */ /* x281648 */ t79457 = a37245; /* x281647 */ if (!(t79457>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32162]"); structure_ref_error();} t79454 = t79457->s2; /* x68651 stalin.sc:3021:102133 */ a37207 = t79454; /* x281497 */ /* x281496 */ t79455 = a37207; /* x281495 */ if (!(t79455>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32124]"); structure_ref_error();} if ((t79455->s3)==((struct structure_type27657 *)FALSE_TYPE)) goto l14830; /* x68662 */ /* x68661 stalin.sc:3024:102235 */ /* x68660 stalin.sc:3025:102269 */ /* x68659 stalin.sc:3025:102295 */ t79462 = a21662; /* x68658 stalin.sc:3025:102270 */ a37244 = t79462; /* x281645 */ /* x281644 */ t79463 = a37244; /* x281643 */ if (!(t79463>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32161]"); structure_ref_error();} t79460 = t79463->s2; /* x68657 stalin.sc:3024:102236 */ a37206 = t79460; /* x281493 */ /* x281492 */ t79461 = a37206; /* x281491 */ if (!(t79461>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32123]"); structure_ref_error();} t79458 = t79461->s3; /* x68656 stalin.sc:3023:102204 */ a37172 = t79458; /* x281357 */ /* x281356 */ t79459 = a37172; /* x281355 */ if (!(t79459>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32089]"); structure_ref_error();} if (!((t79459->s4)==FALSE_TYPE)) goto l14822; l14830: /* x68648 */ /* x68647 stalin.sc:3026:102311 */ /* x68638 stalin.sc:3026:102316 */ /* x68637 stalin.sc:3027:102348 */ /* x68636 stalin.sc:3027:102375 */ t79466 = a21662; /* x68635 stalin.sc:3027:102349 */ a37205 = t79466; /* x281489 */ /* x281488 */ t79467 = a37205; /* x281487 */ if (!(t79467>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32122]"); structure_ref_error();} t79464 = t79467->s3; /* x68634 stalin.sc:3026:102317 */ a37243 = t79464; /* x281641 */ /* x281640 */ t79465 = a37243; /* x281639 */ if (!(t79465>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32160]"); structure_ref_error();} if ((t79465->s2)==((struct structure_type27657 *)FALSE_TYPE)) goto l14832; /* x68645 */ /* x68644 stalin.sc:3029:102419 */ /* x68643 stalin.sc:3030:102452 */ /* x68642 stalin.sc:3030:102479 */ t79472 = a21662; /* x68641 stalin.sc:3030:102453 */ a37204 = t79472; /* x281485 */ /* x281484 */ t79473 = a37204; /* x281483 */ if (!(t79473>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32121]"); structure_ref_error();} t79470 = t79473->s3; /* x68640 stalin.sc:3029:102420 */ a37242 = t79470; /* x281637 */ /* x281636 */ t79471 = a37242; /* x281635 */ if (!(t79471>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32159]"); structure_ref_error();} t79468 = t79471->s2; /* x68639 stalin.sc:3028:102388 */ a37171 = t79468; /* x281353 */ /* x281352 */ t79469 = a37171; /* x281351 */ if (!(t79469>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32088]"); structure_ref_error();} if (!((t79469->s4)==FALSE_TYPE)) goto l14822; l14832: /* x68631 */ /* x68622 stalin.sc:3031:102500 */ /* x68621 stalin.sc:3032:102533 */ /* x68620 stalin.sc:3032:102560 */ t79476 = a21662; /* x68619 stalin.sc:3032:102534 */ a37203 = t79476; /* x281481 */ /* x281480 */ t79477 = a37203; /* x281479 */ if (!(t79477>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32120]"); structure_ref_error();} t79474 = t79477->s3; /* x68618 stalin.sc:3031:102501 */ a37202 = t79474; /* x281477 */ /* x281476 */ t79475 = a37202; /* x281475 */ if (!(t79475>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32119]"); structure_ref_error();} if ((t79475->s3)==((struct structure_type27657 *)FALSE_TYPE)) goto l14823; /* x68629 */ /* x68628 stalin.sc:3034:102604 */ /* x68627 stalin.sc:3035:102638 */ /* x68626 stalin.sc:3035:102665 */ t79482 = a21662; /* x68625 stalin.sc:3035:102639 */ a37201 = t79482; /* x281473 */ /* x281472 */ t79483 = a37201; /* x281471 */ if (!(t79483>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32118]"); structure_ref_error();} t79480 = t79483->s3; /* x68624 stalin.sc:3034:102605 */ a37200 = t79480; /* x281469 */ /* x281468 */ t79481 = a37200; /* x281467 */ if (!(t79481>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32117]"); structure_ref_error();} t79478 = t79481->s3; /* x68623 stalin.sc:3033:102573 */ a37170 = t79478; /* x281349 */ /* x281348 */ t79479 = a37170; /* x281347 */ if (!(t79479>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32087]"); structure_ref_error();} if ((t79479->s4)==FALSE_TYPE) goto l14823; l14822: /* x68721 */ /* x68720 */ /* x68719 */ /* x68702 stalin.sc:3036:102681 */ /* x68695 stalin.sc:3036:102687 */ /* x68694 stalin.sc:3036:102713 */ t79588 = a21662; /* x68693 stalin.sc:3036:102688 */ a37157 = t79588; /* x281297 */ /* x281296 */ t79589 = a37157; /* x281295 */ if (!(t79589>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32074]"); structure_ref_error();} if ((t79589->s4)==FALSE_TYPE) goto l14870; /* x68699 */ /* x68698 */ /* x68697 stalin.sc:3036:102719 */ /* x68696 stalin.sc:3036:102720 */ /* x294965 QobiScheme.sc:166:5314 */ /* x294964 QobiScheme.sc:166:5321 */ t79590 = "This shouldn\'t happen"; /* x294963 QobiScheme.sc:166:5315 */ stalin_panic(t79590); goto l14871; l14870: /* x68701 stalin.sc:3036:102681 */ /* x68700 stalin.sc:3036:102681 */ l14871: /* x68706 stalin.sc:3037:102735 */ /* x68704 stalin.sc:3037:102766 */ t79591 = a21662; /* x68705 stalin.sc:3037:102771 */ /* x68703 stalin.sc:3037:102736 */ t79592 = TRUE_TYPE; f6458(t79591, t79592); /* x68712 stalin.sc:3038:102780 */ /* x68710 stalin.sc:3038:102811 */ /* x68709 stalin.sc:3038:102837 */ t79595 = a21662; /* x68708 stalin.sc:3038:102812 */ a37230 = t79595; /* x281589 */ /* x281588 */ t79596 = a37230; /* x281587 */ if (!(t79596>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32147]"); structure_ref_error();} t79593 = t79596->s2; /* x68711 stalin.sc:3038:102843 */ /* x68707 stalin.sc:3038:102781 */ t79594 = FALSE_TYPE; f6458(t79593, t79594); /* x68718 stalin.sc:3039:102852 */ /* x68716 stalin.sc:3039:102883 */ /* x68715 stalin.sc:3039:102910 */ t79599 = a21662; /* x68714 stalin.sc:3039:102884 */ a37188 = t79599; /* x281421 */ /* x281420 */ t79600 = a37188; /* x281419 */ if (!(t79600>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32105]"); structure_ref_error();} t79597 = t79600->s3; /* x68717 stalin.sc:3039:102916 */ /* x68713 stalin.sc:3039:102853 */ t79598 = FALSE_TYPE; f6458(t79597, t79598); /* x68692 */ /* x68691 stalin.sc:3040:102925 */ return a21662; l14823: /* x68936 */ /* x68935 */ /* x68934 */ /* x68933 stalin.sc:3042:102946 */ /* x68859 stalin.sc:3044:103012 */ /* x68836 stalin.sc:3045:103025 */ /* x68835 stalin.sc:3045:103051 */ t79538 = a21662; /* x68834 stalin.sc:3045:103026 */ a37254 = t79538; /* x281685 */ /* x281684 */ t79539 = a37254; /* x281683 */ if (!(t79539>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32171]"); structure_ref_error();} if ((t79539->s2)==((struct structure_type27657 *)FALSE_TYPE)) goto l14852; /* x68857 */ /* x68841 stalin.sc:3046:103065 */ /* x68840 stalin.sc:3046:103091 */ /* x68839 stalin.sc:3046:103117 */ t79542 = a21662; /* x68838 stalin.sc:3046:103092 */ a37235 = t79542; /* x281609 */ /* x281608 */ t79543 = a37235; /* x281607 */ if (!(t79543>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32152]"); structure_ref_error();} t79540 = t79543->s2; /* x68837 stalin.sc:3046:103066 */ a37163 = t79540; /* x281321 */ /* x281320 */ t79541 = a37163; /* x281319 */ if (!(t79541>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32080]"); structure_ref_error();} if ((t79541->s4)==FALSE_TYPE) goto l14852; /* x68855 */ /* x68846 stalin.sc:3047:103132 */ /* x68845 stalin.sc:3047:103159 */ /* x68844 stalin.sc:3047:103185 */ t79546 = a21662; /* x68843 stalin.sc:3047:103160 */ a37234 = t79546; /* x281605 */ /* x281604 */ t79547 = a37234; /* x281603 */ if (!(t79547>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32151]"); structure_ref_error();} t79544 = t79547->s2; /* x68842 stalin.sc:3047:103133 */ a37193 = t79544; /* x281441 */ /* x281440 */ t79545 = a37193; /* x281439 */ if (!(t79545>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32110]"); structure_ref_error();} if ((t79545->s3)==((struct structure_type27657 *)FALSE_TYPE)) goto l14852; /* x68853 */ /* x68852 stalin.sc:3049:103228 */ /* x68851 stalin.sc:3049:103255 */ /* x68850 stalin.sc:3049:103281 */ t79552 = a21662; /* x68849 stalin.sc:3049:103256 */ a37233 = t79552; /* x281601 */ /* x281600 */ t79553 = a37233; /* x281599 */ if (!(t79553>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32150]"); structure_ref_error();} t79550 = t79553->s2; /* x68848 stalin.sc:3049:103229 */ a37192 = t79550; /* x281437 */ /* x281436 */ t79551 = a37192; /* x281435 */ if (!(t79551>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32109]"); structure_ref_error();} t79548 = t79551->s3; /* x68847 stalin.sc:3048:103201 */ a37162 = t79548; /* x281317 */ /* x281316 */ t79549 = a37162; /* x281315 */ if (!(t79549>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32079]"); structure_ref_error();} if ((t79549->s4)==FALSE_TYPE) goto l14852; /* x68881 */ /* x68880 */ /* x68879 */ /* x68878 stalin.sc:3050:103297 */ /* x68871 stalin.sc:3050:103303 */ /* x68870 stalin.sc:3050:103329 */ t79585 = a21662; /* x68869 stalin.sc:3050:103304 */ a37158 = t79585; /* x281301 */ /* x281300 */ t79586 = a37158; /* x281299 */ if (!(t79586>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32075]"); structure_ref_error();} if ((t79586->s4)==FALSE_TYPE) goto l14867; /* x68875 */ /* x68874 */ /* x68873 stalin.sc:3050:103335 */ /* x68872 stalin.sc:3050:103336 */ /* x294969 QobiScheme.sc:166:5314 */ /* x294968 QobiScheme.sc:166:5321 */ t79587 = "This shouldn\'t happen"; /* x294967 QobiScheme.sc:166:5315 */ stalin_panic(t79587); goto l14868; l14867: /* x68877 stalin.sc:3050:103297 */ /* x68876 stalin.sc:3050:103297 */ l14868: /* x68868 */ /* x68867 stalin.sc:3051:103353 */ /* x68861 stalin.sc:3052:103392 */ t79579 = a21662; /* x68866 stalin.sc:3052:103397 */ /* x68865 stalin.sc:3052:103410 */ /* x68864 stalin.sc:3052:103436 */ t79583 = a21662; /* x68863 stalin.sc:3052:103411 */ a20248 = t79583; /* x54369 */ /* x54368 */ t79584 = a20248; /* x54367 */ if (!(t79584>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("RED-BLACK-TREE-NODE-LEFT[6441]"); structure_ref_error();} t79582 = t79584->s2; /* x68862 stalin.sc:3052:103398 */ t79580 = f8047(t79582); /* x68860 stalin.sc:3051:103354 */ t79581 = t79580; f6442(t79579, t79581); goto l14853; l14852: /* x68932 */ /* x68907 stalin.sc:3054:103505 */ /* x68884 stalin.sc:3055:103518 */ /* x68883 stalin.sc:3055:103545 */ t79554 = a21662; /* x68882 stalin.sc:3055:103519 */ a37213 = t79554; /* x281521 */ /* x281520 */ t79555 = a37213; /* x281519 */ if (!(t79555>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32130]"); structure_ref_error();} if ((t79555->s3)==((struct structure_type27657 *)FALSE_TYPE)) goto l14858; /* x68905 */ /* x68889 stalin.sc:3056:103559 */ /* x68888 stalin.sc:3056:103585 */ /* x68887 stalin.sc:3056:103612 */ t79558 = a21662; /* x68886 stalin.sc:3056:103586 */ a37191 = t79558; /* x281433 */ /* x281432 */ t79559 = a37191; /* x281431 */ if (!(t79559>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32108]"); structure_ref_error();} t79556 = t79559->s3; /* x68885 stalin.sc:3056:103560 */ a37161 = t79556; /* x281313 */ /* x281312 */ t79557 = a37161; /* x281311 */ if (!(t79557>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32078]"); structure_ref_error();} if ((t79557->s4)==FALSE_TYPE) goto l14858; /* x68903 */ /* x68894 stalin.sc:3057:103627 */ /* x68893 stalin.sc:3057:103653 */ /* x68892 stalin.sc:3057:103680 */ t79562 = a21662; /* x68891 stalin.sc:3057:103654 */ a37190 = t79562; /* x281429 */ /* x281428 */ t79563 = a37190; /* x281427 */ if (!(t79563>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32107]"); structure_ref_error();} t79560 = t79563->s3; /* x68890 stalin.sc:3057:103628 */ a37232 = t79560; /* x281597 */ /* x281596 */ t79561 = a37232; /* x281595 */ if (!(t79561>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32149]"); structure_ref_error();} if ((t79561->s2)==((struct structure_type27657 *)FALSE_TYPE)) goto l14858; /* x68901 */ /* x68900 stalin.sc:3059:103723 */ /* x68899 stalin.sc:3059:103749 */ /* x68898 stalin.sc:3059:103776 */ t79568 = a21662; /* x68897 stalin.sc:3059:103750 */ a37189 = t79568; /* x281425 */ /* x281424 */ t79569 = a37189; /* x281423 */ if (!(t79569>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32106]"); structure_ref_error();} t79566 = t79569->s3; /* x68896 stalin.sc:3059:103724 */ a37231 = t79566; /* x281593 */ /* x281592 */ t79567 = a37231; /* x281591 */ if (!(t79567>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32148]"); structure_ref_error();} t79564 = t79567->s2; /* x68895 stalin.sc:3058:103696 */ a37160 = t79564; /* x281309 */ /* x281308 */ t79565 = a37160; /* x281307 */ if (!(t79565>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32077]"); structure_ref_error();} if ((t79565->s4)==FALSE_TYPE) goto l14858; /* x68929 */ /* x68928 */ /* x68927 */ /* x68926 stalin.sc:3060:103792 */ /* x68919 stalin.sc:3060:103798 */ /* x68918 stalin.sc:3060:103824 */ t79576 = a21662; /* x68917 stalin.sc:3060:103799 */ a37159 = t79576; /* x281305 */ /* x281304 */ t79577 = a37159; /* x281303 */ if (!(t79577>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32076]"); structure_ref_error();} if ((t79577->s4)==FALSE_TYPE) goto l14864; /* x68923 */ /* x68922 */ /* x68921 stalin.sc:3060:103830 */ /* x68920 stalin.sc:3060:103831 */ /* x294973 QobiScheme.sc:166:5314 */ /* x294972 QobiScheme.sc:166:5321 */ t79578 = "This shouldn\'t happen"; /* x294971 QobiScheme.sc:166:5315 */ stalin_panic(t79578); goto l14865; l14864: /* x68925 stalin.sc:3060:103792 */ /* x68924 stalin.sc:3060:103792 */ l14865: /* x68916 */ /* x68915 stalin.sc:3061:103848 */ /* x68909 stalin.sc:3062:103888 */ t79570 = a21662; /* x68914 stalin.sc:3062:103893 */ /* x68913 stalin.sc:3062:103907 */ /* x68912 stalin.sc:3062:103934 */ t79574 = a21662; /* x68911 stalin.sc:3062:103908 */ a20258 = t79574; /* x54408 */ /* x54407 */ t79575 = a20258; /* x54406 */ if (!(t79575>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("RED-BLACK-TREE-NODE-RIGHT[6449]"); structure_ref_error();} t79573 = t79575->s3; /* x68910 stalin.sc:3062:103894 */ t79571 = f8048(t79573); /* x68908 stalin.sc:3061:103849 */ t79572 = t79571; f6450(t79570, t79572); goto l14859; l14858: /* x68931 */ /* x68930 */ l14859: l14853: /* x68833 */ /* x68832 stalin.sc:3063:103949 */ /* x68747 stalin.sc:3065:104014 */ /* x68724 stalin.sc:3066:104027 */ /* x68723 stalin.sc:3066:104053 */ t79484 = a21662; /* x68722 stalin.sc:3066:104028 */ a37253 = t79484; /* x281681 */ /* x281680 */ t79485 = a37253; /* x281679 */ if (!(t79485>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32170]"); structure_ref_error();} if ((t79485->s2)==((struct structure_type27657 *)FALSE_TYPE)) goto l14836; /* x68745 */ /* x68729 stalin.sc:3067:104067 */ /* x68728 stalin.sc:3067:104093 */ /* x68727 stalin.sc:3067:104119 */ t79488 = a21662; /* x68726 stalin.sc:3067:104094 */ a37241 = t79488; /* x281633 */ /* x281632 */ t79489 = a37241; /* x281631 */ if (!(t79489>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32158]"); structure_ref_error();} t79486 = t79489->s2; /* x68725 stalin.sc:3067:104068 */ a37169 = t79486; /* x281345 */ /* x281344 */ t79487 = a37169; /* x281343 */ if (!(t79487>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32086]"); structure_ref_error();} if ((t79487->s4)==FALSE_TYPE) goto l14836; /* x68743 */ /* x68734 stalin.sc:3068:104134 */ /* x68733 stalin.sc:3068:104160 */ /* x68732 stalin.sc:3068:104186 */ t79492 = a21662; /* x68731 stalin.sc:3068:104161 */ a37240 = t79492; /* x281629 */ /* x281628 */ t79493 = a37240; /* x281627 */ if (!(t79493>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32157]"); structure_ref_error();} t79490 = t79493->s2; /* x68730 stalin.sc:3068:104135 */ a37239 = t79490; /* x281625 */ /* x281624 */ t79491 = a37239; /* x281623 */ if (!(t79491>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32156]"); structure_ref_error();} if ((t79491->s2)==((struct structure_type27657 *)FALSE_TYPE)) goto l14836; /* x68741 */ /* x68740 stalin.sc:3070:104229 */ /* x68739 stalin.sc:3070:104255 */ /* x68738 stalin.sc:3070:104281 */ t79498 = a21662; /* x68737 stalin.sc:3070:104256 */ a37238 = t79498; /* x281621 */ /* x281620 */ t79499 = a37238; /* x281619 */ if (!(t79499>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32155]"); structure_ref_error();} t79496 = t79499->s2; /* x68736 stalin.sc:3070:104230 */ a37237 = t79496; /* x281617 */ /* x281616 */ t79497 = a37237; /* x281615 */ if (!(t79497>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32154]"); structure_ref_error();} t79494 = t79497->s2; /* x68735 stalin.sc:3069:104202 */ a37168 = t79494; /* x281341 */ /* x281340 */ t79495 = a37168; /* x281339 */ if (!(t79495>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32085]"); structure_ref_error();} if ((t79495->s4)==FALSE_TYPE) goto l14836; /* x68774 */ /* x68773 */ /* x68772 */ /* x68761 stalin.sc:3071:104297 */ /* x68754 stalin.sc:3071:104303 */ /* x68753 stalin.sc:3071:104329 */ t79529 = a21662; /* x68752 stalin.sc:3071:104304 */ a37164 = t79529; /* x281325 */ /* x281324 */ t79530 = a37164; /* x281323 */ if (!(t79530>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32081]"); structure_ref_error();} if ((t79530->s4)==FALSE_TYPE) goto l14849; /* x68758 */ /* x68757 */ /* x68756 stalin.sc:3071:104335 */ /* x68755 stalin.sc:3071:104336 */ /* x294977 QobiScheme.sc:166:5314 */ /* x294976 QobiScheme.sc:166:5321 */ t79531 = "This shouldn\'t happen"; /* x294975 QobiScheme.sc:166:5315 */ stalin_panic(t79531); goto l14850; l14849: /* x68760 stalin.sc:3071:104297 */ /* x68759 stalin.sc:3071:104297 */ l14850: /* x68767 stalin.sc:3072:104353 */ /* x68765 stalin.sc:3073:104392 */ /* x68764 stalin.sc:3073:104418 */ t79534 = a21662; /* x68763 stalin.sc:3073:104393 */ a37236 = t79534; /* x281613 */ /* x281612 */ t79535 = a37236; /* x281611 */ if (!(t79535>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32153]"); structure_ref_error();} t79532 = t79535->s2; /* x68766 stalin.sc:3073:104424 */ /* x68762 stalin.sc:3072:104354 */ t79533 = FALSE_TYPE; f6458(t79532, t79533); /* x68771 stalin.sc:3074:104435 */ /* x68769 stalin.sc:3074:104466 */ t79536 = a21662; /* x68770 stalin.sc:3074:104471 */ /* x68768 stalin.sc:3074:104436 */ t79537 = TRUE_TYPE; f6458(t79536, t79537); /* x68751 */ /* x68750 stalin.sc:3075:104482 */ /* x68749 stalin.sc:3075:104496 */ t79527 = a21662; /* x68748 stalin.sc:3075:104483 */ t79528 = f8048(t79527); return t79528; l14836: /* x68831 */ /* x68800 stalin.sc:3077:104564 */ /* x68777 stalin.sc:3078:104577 */ /* x68776 stalin.sc:3078:104604 */ t79500 = a21662; /* x68775 stalin.sc:3078:104578 */ a37212 = t79500; /* x281517 */ /* x281516 */ t79501 = a37212; /* x281515 */ if (!(t79501>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32129]"); structure_ref_error();} if ((t79501->s3)==((struct structure_type27657 *)FALSE_TYPE)) goto l14841; /* x68798 */ /* x68782 stalin.sc:3079:104618 */ /* x68781 stalin.sc:3079:104644 */ /* x68780 stalin.sc:3079:104671 */ t79504 = a21662; /* x68779 stalin.sc:3079:104645 */ a37199 = t79504; /* x281465 */ /* x281464 */ t79505 = a37199; /* x281463 */ if (!(t79505>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32116]"); structure_ref_error();} t79502 = t79505->s3; /* x68778 stalin.sc:3079:104619 */ a37167 = t79502; /* x281337 */ /* x281336 */ t79503 = a37167; /* x281335 */ if (!(t79503>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32084]"); structure_ref_error();} if ((t79503->s4)==FALSE_TYPE) goto l14841; /* x68796 */ /* x68787 stalin.sc:3080:104686 */ /* x68786 stalin.sc:3080:104713 */ /* x68785 stalin.sc:3080:104740 */ t79508 = a21662; /* x68784 stalin.sc:3080:104714 */ a37198 = t79508; /* x281461 */ /* x281460 */ t79509 = a37198; /* x281459 */ if (!(t79509>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32115]"); structure_ref_error();} t79506 = t79509->s3; /* x68783 stalin.sc:3080:104687 */ a37197 = t79506; /* x281457 */ /* x281456 */ t79507 = a37197; /* x281455 */ if (!(t79507>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32114]"); structure_ref_error();} if ((t79507->s3)==((struct structure_type27657 *)FALSE_TYPE)) goto l14841; /* x68794 */ /* x68793 stalin.sc:3082:104783 */ /* x68792 stalin.sc:3082:104810 */ /* x68791 stalin.sc:3082:104837 */ t79514 = a21662; /* x68790 stalin.sc:3082:104811 */ a37196 = t79514; /* x281453 */ /* x281452 */ t79515 = a37196; /* x281451 */ if (!(t79515>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32113]"); structure_ref_error();} t79512 = t79515->s3; /* x68789 stalin.sc:3082:104784 */ a37195 = t79512; /* x281449 */ /* x281448 */ t79513 = a37195; /* x281447 */ if (!(t79513>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32112]"); structure_ref_error();} t79510 = t79513->s3; /* x68788 stalin.sc:3081:104756 */ a37166 = t79510; /* x281333 */ /* x281332 */ t79511 = a37166; /* x281331 */ if (!(t79511>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32083]"); structure_ref_error();} if ((t79511->s4)==FALSE_TYPE) goto l14841; /* x68827 */ /* x68826 */ /* x68825 */ /* x68814 stalin.sc:3083:104853 */ /* x68807 stalin.sc:3083:104859 */ /* x68806 stalin.sc:3083:104885 */ t79518 = a21662; /* x68805 stalin.sc:3083:104860 */ a37165 = t79518; /* x281329 */ /* x281328 */ t79519 = a37165; /* x281327 */ if (!(t79519>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32082]"); structure_ref_error();} if ((t79519->s4)==FALSE_TYPE) goto l14846; /* x68811 */ /* x68810 */ /* x68809 stalin.sc:3083:104891 */ /* x68808 stalin.sc:3083:104892 */ /* x294981 QobiScheme.sc:166:5314 */ /* x294980 QobiScheme.sc:166:5321 */ t79520 = "This shouldn\'t happen"; /* x294979 QobiScheme.sc:166:5315 */ stalin_panic(t79520); goto l14847; l14846: /* x68813 stalin.sc:3083:104853 */ /* x68812 stalin.sc:3083:104853 */ l14847: /* x68820 stalin.sc:3084:104909 */ /* x68818 stalin.sc:3085:104948 */ /* x68817 stalin.sc:3085:104975 */ t79523 = a21662; /* x68816 stalin.sc:3085:104949 */ a37194 = t79523; /* x281445 */ /* x281444 */ t79524 = a37194; /* x281443 */ if (!(t79524>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32111]"); structure_ref_error();} t79521 = t79524->s3; /* x68819 stalin.sc:3085:104981 */ /* x68815 stalin.sc:3084:104910 */ t79522 = FALSE_TYPE; f6458(t79521, t79522); /* x68824 stalin.sc:3086:104992 */ /* x68822 stalin.sc:3086:105023 */ t79525 = a21662; /* x68823 stalin.sc:3086:105028 */ /* x68821 stalin.sc:3086:104993 */ t79526 = TRUE_TYPE; f6458(t79525, t79526); /* x68804 */ /* x68803 stalin.sc:3087:105039 */ /* x68802 stalin.sc:3087:105052 */ t79516 = a21662; /* x68801 stalin.sc:3087:105040 */ t79517 = f8047(t79516); return t79517; l14841: /* x68830 */ /* x68829 */ /* x68828 stalin.sc:3088:105071 */ return a21662;} /* RIGHT-ROTATE[8048] */ struct structure_type27657 *f8048(struct structure_type27657 *a21658) {struct structure_type27657 *a37155; /* S */ struct structure_type27657 *a37156; /* S */ struct structure_type27657 *a37185; /* S */ struct structure_type27657 *a37186; /* S */ struct structure_type27657 *a37223; /* S */ struct structure_type27657 *a37224; /* S */ struct structure_type27657 *a37225; /* S */ struct structure_type27657 *a37226; /* S */ struct structure_type27657 *a37227; /* S */ struct structure_type27657 *a37228; /* S */ struct structure_type27657 *a37264; /* S */ struct structure_type27657 *a37265; /* S */ struct structure_type27657 *a37271; /* S */ struct structure_type27657 *a37272; /* S */ struct w49 t79633; unsigned t79634; struct structure_type27657 *t79635; struct structure_type27657 *t79636; unsigned t79637; struct structure_type27657 *t79638; struct structure_type27657 *t79639; struct structure_type27657 *t79640; struct structure_type27657 *t79641; struct structure_type27657 *t79642; struct structure_type27657 *t79643; struct structure_type27657 *t79644; struct structure_type27657 *t79645; struct structure_type27657 *t79646; struct structure_type27657 *t79647; struct structure_type27657 *t79648; struct structure_type27657 *t79649; struct structure_type27657 *t79650; struct w49 t79651; unsigned t79652; struct structure_type27657 *t79653; struct structure_type27657 *t79654; unsigned t79655; struct structure_type27657 *t79656; struct structure_type27657 *t79657; struct structure_type27657 *t79658; struct structure_type27657 *t79659; struct structure_type27657 *t79660; struct structure_type27657 *t79661; struct structure_type27657 *t79662; struct structure_type27657 *t79663; struct structure_type27657 *t79664; struct structure_type27657 *t79665; struct structure_type27657 *t79666; struct structure_type27657 *t79667; struct structure_type27657 *t79668; struct structure_type27657 *t79669; struct structure_type27657 *t79670; struct structure_type27657 *t79671; /* x68577 stalin.sc:2979:100486 */ /* x68542 stalin.sc:2980:100515 */ /* x68541 stalin.sc:2980:100541 */ /* x68540 stalin.sc:2980:100567 */ t79641 = a21658; /* x68539 stalin.sc:2980:100542 */ a37223 = t79641; /* x281561 */ /* x281560 */ t79642 = a37223; /* x281559 */ if (!(t79642>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32140]"); structure_ref_error();} t79639 = t79642->s2; /* x68538 stalin.sc:2980:100516 */ a37271 = t79639; /* x281753 */ /* x281752 */ t79640 = a37271; /* x281751 */ if (!(t79640>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-TYPE[6425] 32188]"); structure_ref_error();} t79633 = t79640->s0; /* x68547 stalin.sc:2981:100577 */ /* x68546 stalin.sc:2981:100602 */ /* x68545 stalin.sc:2981:100628 */ t79645 = a21658; /* x68544 stalin.sc:2981:100603 */ a37224 = t79645; /* x281565 */ /* x281564 */ t79646 = a37224; /* x281563 */ if (!(t79646>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32141]"); structure_ref_error();} t79643 = t79646->s2; /* x68543 stalin.sc:2981:100578 */ a37264 = t79643; /* x281725 */ /* x281724 */ t79644 = a37264; /* x281723 */ if (!(t79644>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-KEY[6433] 32181]"); structure_ref_error();} t79634 = t79644->s1; /* x68552 stalin.sc:2982:100638 */ /* x68551 stalin.sc:2982:100664 */ /* x68550 stalin.sc:2982:100690 */ t79649 = a21658; /* x68549 stalin.sc:2982:100665 */ a37226 = t79649; /* x281573 */ /* x281572 */ t79650 = a37226; /* x281571 */ if (!(t79650>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32143]"); structure_ref_error();} t79647 = t79650->s2; /* x68548 stalin.sc:2982:100639 */ a37225 = t79647; /* x281569 */ /* x281568 */ t79648 = a37225; /* x281567 */ if (!(t79648>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32142]"); structure_ref_error();} t79635 = t79648->s2; /* x68571 stalin.sc:2983:100700 */ /* x68556 stalin.sc:2984:100730 */ /* x68555 stalin.sc:2984:100756 */ t79656 = a21658; /* x68554 stalin.sc:2984:100731 */ a37272 = t79656; /* x281757 */ /* x281756 */ t79657 = a37272; /* x281755 */ if (!(t79657>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-TYPE[6425] 32189]"); structure_ref_error();} t79651 = t79657->s0; /* x68559 stalin.sc:2985:100766 */ /* x68558 stalin.sc:2985:100791 */ t79658 = a21658; /* x68557 stalin.sc:2985:100767 */ a37265 = t79658; /* x281729 */ /* x281728 */ t79659 = a37265; /* x281727 */ if (!(t79659>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-KEY[6433] 32182]"); structure_ref_error();} t79652 = t79659->s1; /* x68564 stalin.sc:2986:100801 */ /* x68563 stalin.sc:2986:100828 */ /* x68562 stalin.sc:2986:100854 */ t79662 = a21658; /* x68561 stalin.sc:2986:100829 */ a37227 = t79662; /* x281577 */ /* x281576 */ t79663 = a37227; /* x281575 */ if (!(t79663>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32144]"); structure_ref_error();} t79660 = t79663->s2; /* x68560 stalin.sc:2986:100802 */ a37185 = t79660; /* x281409 */ /* x281408 */ t79661 = a37185; /* x281407 */ if (!(t79661>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32102]"); structure_ref_error();} t79653 = t79661->s3; /* x68567 stalin.sc:2987:100865 */ /* x68566 stalin.sc:2987:100892 */ t79664 = a21658; /* x68565 stalin.sc:2987:100866 */ a37186 = t79664; /* x281413 */ /* x281412 */ t79665 = a37186; /* x281411 */ if (!(t79665>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32103]"); structure_ref_error();} t79654 = t79665->s3; /* x68570 stalin.sc:2988:100902 */ /* x68569 stalin.sc:2988:100928 */ t79666 = a21658; /* x68568 stalin.sc:2988:100903 */ a37155 = t79666; /* x281289 */ /* x281288 */ t79667 = a37155; /* x281287 */ if (!(t79667>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32072]"); structure_ref_error();} t79655 = t79667->s4; /* x68553 stalin.sc:2983:100701 */ t79636 = f6423(t79651, t79652, t79653, t79654, t79655); /* x68576 stalin.sc:2989:100938 */ /* x68575 stalin.sc:2989:100964 */ /* x68574 stalin.sc:2989:100990 */ t79670 = a21658; /* x68573 stalin.sc:2989:100965 */ a37228 = t79670; /* x281581 */ /* x281580 */ t79671 = a37228; /* x281579 */ if (!(t79671>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32145]"); structure_ref_error();} t79668 = t79671->s2; /* x68572 stalin.sc:2989:100939 */ a37156 = t79668; /* x281293 */ /* x281292 */ t79669 = a37156; /* x281291 */ if (!(t79669>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32073]"); structure_ref_error();} t79637 = t79669->s4; /* x68537 stalin.sc:2979:100487 */ t79638 = t79636; return f6423(t79633, t79634, t79635, t79638, t79637);} /* LEFT-ROTATE[8047] */ struct structure_type27657 *f8047(struct structure_type27657 *a21657) {struct structure_type27657 *a20228; /* S */ struct structure_type27657 *a20238; /* S */ struct structure_type27657 *a20268; /* S */ struct structure_type27657 *a37154; /* S */ struct structure_type27657 *a37179; /* S */ struct structure_type27657 *a37180; /* S */ struct structure_type27657 *a37181; /* S */ struct structure_type27657 *a37182; /* S */ struct structure_type27657 *a37183; /* S */ struct structure_type27657 *a37184; /* S */ struct structure_type27657 *a37221; /* S */ struct structure_type27657 *a37222; /* S */ struct structure_type27657 *a37263; /* S */ struct structure_type27657 *a37270; /* S */ struct w49 t79672; unsigned t79673; struct structure_type27657 *t79674; struct structure_type27657 *t79675; unsigned t79676; struct structure_type27657 *t79677; struct structure_type27657 *t79678; struct structure_type27657 *t79679; struct structure_type27657 *t79680; struct structure_type27657 *t79681; struct structure_type27657 *t79682; struct structure_type27657 *t79683; struct structure_type27657 *t79684; struct structure_type27657 *t79685; struct w49 t79686; unsigned t79687; struct structure_type27657 *t79688; struct structure_type27657 *t79689; unsigned t79690; struct structure_type27657 *t79691; struct structure_type27657 *t79692; struct structure_type27657 *t79693; struct structure_type27657 *t79694; struct structure_type27657 *t79695; struct structure_type27657 *t79696; struct structure_type27657 *t79697; struct structure_type27657 *t79698; struct structure_type27657 *t79699; struct structure_type27657 *t79700; struct structure_type27657 *t79701; struct structure_type27657 *t79702; struct structure_type27657 *t79703; struct structure_type27657 *t79704; struct structure_type27657 *t79705; struct structure_type27657 *t79706; struct structure_type27657 *t79707; struct structure_type27657 *t79708; struct structure_type27657 *t79709; struct structure_type27657 *t79710; /* x68534 stalin.sc:2966:99915 */ /* x68499 stalin.sc:2967:99944 */ /* x68498 stalin.sc:2967:99970 */ /* x68497 stalin.sc:2967:99997 */ t79680 = a21657; /* x68496 stalin.sc:2967:99971 */ a37179 = t79680; /* x281385 */ /* x281384 */ t79681 = a37179; /* x281383 */ if (!(t79681>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32096]"); structure_ref_error();} t79678 = t79681->s3; /* x68495 stalin.sc:2967:99945 */ a20228 = t79678; /* x54291 */ /* x54290 */ t79679 = a20228; /* x54289 */ if (!(t79679>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("RED-BLACK-TREE-NODE-TYPE[6425]"); structure_ref_error();} t79672 = t79679->s0; /* x68504 stalin.sc:2968:100007 */ /* x68503 stalin.sc:2968:100032 */ /* x68502 stalin.sc:2968:100059 */ t79684 = a21657; /* x68501 stalin.sc:2968:100033 */ a37180 = t79684; /* x281389 */ /* x281388 */ t79685 = a37180; /* x281387 */ if (!(t79685>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32097]"); structure_ref_error();} t79682 = t79685->s3; /* x68500 stalin.sc:2968:100008 */ a20238 = t79682; /* x54330 */ /* x54329 */ t79683 = a20238; /* x54328 */ if (!(t79683>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("RED-BLACK-TREE-NODE-KEY[6433]"); structure_ref_error();} t79673 = t79683->s1; /* x68523 stalin.sc:2969:100069 */ /* x68508 stalin.sc:2970:100099 */ /* x68507 stalin.sc:2970:100125 */ t79691 = a21657; /* x68506 stalin.sc:2970:100100 */ a37270 = t79691; /* x281749 */ /* x281748 */ t79692 = a37270; /* x281747 */ if (!(t79692>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-TYPE[6425] 32187]"); structure_ref_error();} t79686 = t79692->s0; /* x68511 stalin.sc:2971:100135 */ /* x68510 stalin.sc:2971:100160 */ t79693 = a21657; /* x68509 stalin.sc:2971:100136 */ a37263 = t79693; /* x281721 */ /* x281720 */ t79694 = a37263; /* x281719 */ if (!(t79694>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-KEY[6433] 32180]"); structure_ref_error();} t79687 = t79694->s1; /* x68514 stalin.sc:2972:100170 */ /* x68513 stalin.sc:2972:100196 */ t79695 = a21657; /* x68512 stalin.sc:2972:100171 */ a37221 = t79695; /* x281553 */ /* x281552 */ t79696 = a37221; /* x281551 */ if (!(t79696>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32138]"); structure_ref_error();} t79688 = t79696->s2; /* x68519 stalin.sc:2973:100206 */ /* x68518 stalin.sc:2973:100232 */ /* x68517 stalin.sc:2973:100259 */ t79699 = a21657; /* x68516 stalin.sc:2973:100233 */ a37181 = t79699; /* x281393 */ /* x281392 */ t79700 = a37181; /* x281391 */ if (!(t79700>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32098]"); structure_ref_error();} t79697 = t79700->s3; /* x68515 stalin.sc:2973:100207 */ a37222 = t79697; /* x281557 */ /* x281556 */ t79698 = a37222; /* x281555 */ if (!(t79698>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32139]"); structure_ref_error();} t79689 = t79698->s2; /* x68522 stalin.sc:2974:100270 */ /* x68521 stalin.sc:2974:100296 */ t79701 = a21657; /* x68520 stalin.sc:2974:100271 */ a20268 = t79701; /* x54447 */ /* x54446 */ t79702 = a20268; /* x54445 */ if (!(t79702>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("RED-BLACK-TREE-NODE-RED?[6457]"); structure_ref_error();} t79690 = t79702->s4; /* x68505 stalin.sc:2969:100070 */ t79674 = f6423(t79686, t79687, t79688, t79689, t79690); /* x68528 stalin.sc:2975:100306 */ /* x68527 stalin.sc:2975:100333 */ /* x68526 stalin.sc:2975:100360 */ t79705 = a21657; /* x68525 stalin.sc:2975:100334 */ a37183 = t79705; /* x281401 */ /* x281400 */ t79706 = a37183; /* x281399 */ if (!(t79706>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32100]"); structure_ref_error();} t79703 = t79706->s3; /* x68524 stalin.sc:2975:100307 */ a37182 = t79703; /* x281397 */ /* x281396 */ t79704 = a37182; /* x281395 */ if (!(t79704>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32099]"); structure_ref_error();} t79675 = t79704->s3; /* x68533 stalin.sc:2976:100370 */ /* x68532 stalin.sc:2976:100396 */ /* x68531 stalin.sc:2976:100423 */ t79709 = a21657; /* x68530 stalin.sc:2976:100397 */ a37184 = t79709; /* x281405 */ /* x281404 */ t79710 = a37184; /* x281403 */ if (!(t79710>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32101]"); structure_ref_error();} t79707 = t79710->s3; /* x68529 stalin.sc:2976:100371 */ a37154 = t79707; /* x281285 */ /* x281284 */ t79708 = a37154; /* x281283 */ if (!(t79708>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32071]"); structure_ref_error();} t79676 = t79708->s4; /* x68494 stalin.sc:2966:99916 */ t79677 = t79674; return f6423(t79672, t79673, t79677, t79675, t79676);} /* INSERT-MEMBER![8040] */ void f8040(struct w49 a21649) {struct w49 a20295; /* S */ struct structure_type27657 *a21655; /* NODE */ struct w49 a37097; /* S */ struct w49 a37098; /* S */ struct structure_type27657 *a37176; /* S */ struct structure_type27657 *a37177; /* S */ struct structure_type27657 *a37178; /* S */ struct structure_type27657 *a37210; /* S */ struct structure_type27657 *a37211; /* S */ struct structure_type27657 *a37251; /* S */ struct structure_type27657 *a37252; /* S */ struct structure_type27657 *t79711; struct structure_type27657 *t79712; struct structure_type27657 *t79713; struct structure_type27657 *t79714; struct structure_type27657 *t79715; struct structure_type27657 *t79716; struct structure_type27657 *t79717; struct structure_type27657 *t79718; struct structure_type27657 *t79719; struct structure_type27657 *t79720; struct structure_type27657 *t79721; struct structure_type27657 *t79722; struct structure_type27657 *t79723; struct structure_type27657 *t79724; struct structure_type27657 *t79725; struct structure_type27657 *t79726; unsigned t79727; struct w49 t79728; struct w49 t79729; unsigned t79730; struct w49 t79731; struct structure_type27657 *t79732; struct w49 t79733; struct w49 t79734; struct w49 t79735; unsigned t79736; struct structure_type27657 *t79737; struct structure_type27657 *t79738; unsigned t79739; struct structure_type27657 *t79740; struct structure_type27657 *t79741; struct w49 t79742; struct w49 t79743; struct w49 t79744; /* x69019 */ /* x69016 */ /* x69015 */ /* x69018 */ /* x69017 */ /* x69014 */ /* x69013 */ /* x68536 */ /* x68535 */ /* x68579 */ /* x68578 */ /* x69012 stalin.sc:2990:101000 */ /* x69011 stalin.sc:2990:101009 */ /* x69010 stalin.sc:2990:101021 */ t79744 = a21648; /* x69009 stalin.sc:2990:101010 */ t79730 = f7936(t79744); /* x69008 */ a21659 = t79730; /* x69007 stalin.sc:2991:101028 */ /* x68581 stalin.sc:2992:101066 */ t79731 = a21649; /* x69006 stalin.sc:2993:101071 */ /* x68584 stalin.sc:2993:101075 */ /* x68583 stalin.sc:2993:101105 */ t79733 = a21649; /* x68582 stalin.sc:2993:101076 */ a37098 = t79733; /* x281061 */ /* x281060 */ t79734 = a37098; /* x281059 */ if (!((t79734.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-RED-BLACK-TREE-NODE[6475] 32015]"); structure_ref_error();} if ((t79734.value.structure_type27650->s1)==((struct structure_type27657 *)FALSE_TYPE)) goto l14888; /* x68998 stalin.sc:2994:101115 */ /* x68997 stalin.sc:2994:101132 */ /* x68996 stalin.sc:2994:101162 */ t79742 = a21649; /* x68995 stalin.sc:2994:101133 */ a20295 = t79742; /* x54540 */ /* x54539 */ t79743 = a20295; /* x54538 */ if (!((t79743.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("TYPE-SET-RED-BLACK-TREE-NODE[6475]"); structure_ref_error();} t79741 = t79743.value.structure_type27650->s1; /* x68994 */ /* x68993 */ /* x68992 */ /* x68991 */ /* x68990 */ /* x68989 */ /* x68988 */ /* x68586 */ /* x68585 stalin.sc:2994:101120 */ t79732 = f8052(t79741); goto l14889; l14888: /* x69005 stalin.sc:3089:105090 */ /* x69000 stalin.sc:3089:105116 */ t79735 = a21648; /* x69001 stalin.sc:3089:105118 */ t79736 = a21659; /* x69002 stalin.sc:3089:105120 */ /* x69003 stalin.sc:3089:105123 */ /* x69004 stalin.sc:3089:105126 */ /* x68999 stalin.sc:3089:105091 */ t79737 = (struct structure_type27657 *)FALSE_TYPE; t79738 = (struct structure_type27657 *)FALSE_TYPE; t79739 = TRUE_TYPE; t79740 = f6423(t79735, t79736, t79737, t79738, t79739); t79732 = t79740; l14889: /* x68580 stalin.sc:2991:101029 */ f6476(t79731, t79732); /* x68493 */ /* x68492 stalin.sc:3090:105134 */ /* x68491 stalin.sc:3090:105146 */ /* x68490 stalin.sc:3090:105176 */ t79728 = a21649; /* x68489 stalin.sc:3090:105147 */ a37097 = t79728; /* x281057 */ /* x281056 */ t79729 = a37097; /* x281055 */ if (!((t79729.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-RED-BLACK-TREE-NODE[6475] 32014]"); structure_ref_error();} t79711 = t79729.value.structure_type27650->s1; /* x68488 */ a21655 = t79711; /* x68487 stalin.sc:3091:105183 */ /* x68478 stalin.sc:3091:105189 */ /* x68451 stalin.sc:3091:105194 */ /* x68450 stalin.sc:3091:105220 */ t79712 = a21655; /* x68449 stalin.sc:3091:105195 */ a37178 = t79712; /* x281381 */ /* x281380 */ t79713 = a37178; /* x281379 */ if (!(t79713>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32095]"); structure_ref_error();} if ((t79713->s4)==FALSE_TYPE) goto l14882; /* x68476 */ /* x68475 stalin.sc:3092:105236 */ /* x68468 stalin.sc:3092:105241 */ /* x68467 stalin.sc:3092:105267 */ t79714 = a21655; /* x68466 stalin.sc:3092:105242 */ a37252 = t79714; /* x281677 */ /* x281676 */ t79715 = a37252; /* x281675 */ if (!(t79715>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32169]"); structure_ref_error();} if ((t79715->s2)==((struct structure_type27657 *)FALSE_TYPE)) goto l14884; /* x68473 */ /* x68472 stalin.sc:3094:105316 */ /* x68471 stalin.sc:3094:105342 */ t79718 = a21655; /* x68470 stalin.sc:3094:105317 */ a37251 = t79718; /* x281673 */ /* x281672 */ t79719 = a37251; /* x281671 */ if (!(t79719>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-LEFT[6441] 32168]"); structure_ref_error();} t79716 = t79719->s2; /* x68469 stalin.sc:3093:105282 */ a37176 = t79716; /* x281373 */ /* x281372 */ t79717 = a37176; /* x281371 */ if (!(t79717>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32093]"); structure_ref_error();} if (!((t79717->s4)==FALSE_TYPE)) goto l14881; l14884: /* x68463 */ /* x68456 stalin.sc:3095:105358 */ /* x68455 stalin.sc:3095:105385 */ t79720 = a21655; /* x68454 stalin.sc:3095:105359 */ a37211 = t79720; /* x281513 */ /* x281512 */ t79721 = a37211; /* x281511 */ if (!(t79721>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32128]"); structure_ref_error();} if ((t79721->s3)==((struct structure_type27657 *)FALSE_TYPE)) goto l14882; /* x68461 */ /* x68460 stalin.sc:3097:105434 */ /* x68459 stalin.sc:3097:105461 */ t79724 = a21655; /* x68458 stalin.sc:3097:105435 */ a37210 = t79724; /* x281509 */ /* x281508 */ t79725 = a37210; /* x281507 */ if (!(t79725>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RIGHT[6449] 32127]"); structure_ref_error();} t79722 = t79725->s3; /* x68457 stalin.sc:3096:105400 */ a37177 = t79722; /* x281377 */ /* x281376 */ t79723 = a37177; /* x281375 */ if (!(t79723>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("[clone RED-BLACK-TREE-NODE-RED?[6457] 32094]"); structure_ref_error();} if ((t79723->s4)==FALSE_TYPE) goto l14882; l14881: /* x68484 */ /* x68483 */ /* x68482 stalin.sc:3098:105474 */ /* x68480 stalin.sc:3098:105505 */ t79726 = a21655; /* x68481 stalin.sc:3098:105510 */ /* x68479 stalin.sc:3098:105475 */ t79727 = FALSE_TYPE; f6458(t79726, t79727); return; l14882: /* x68486 stalin.sc:3091:105183 */ /* x68485 stalin.sc:3091:105183 */ return;} /* MEMBER?[8033] */ unsigned f8033(struct w49 a21641, struct w49 a21642) {unsigned a21643; /* I */ struct structure_type27657 *a21646; /* NODE */ struct w49 a37099; /* S */ struct structure_type27657 *a37215; /* S */ struct structure_type27657 *a37257; /* S */ struct structure_type27657 *a37268; /* S */ struct structure_type27657 *a37269; /* S */ unsigned t79745; struct structure_type27657 *t79746; unsigned t79747; unsigned t79748; struct structure_type27657 *t79749; struct structure_type27657 *t79750; unsigned t79751; unsigned t79752; struct structure_type27657 *t79753; struct structure_type27657 *t79754; struct structure_type27657 *t79755; struct structure_type27657 *t79756; struct structure_type27657 *t79757; struct structure_type27657 *t79758; struct structure_type27657 *t79759; struct structure_type27657 *t79760; struct w49 t79761; struct w49 t79762; struct w49 t79763; /* x68446 stalin.sc:2952:99508 */ /* x68445 stalin.sc:2952:99517 */ /* x68444 stalin.sc:2952:99529 */ t79763 = a21641; /* x68443 stalin.sc:2952:99518 */ t79745 = f7936(t79763); /* x68442 */ a21643 = t79745; /* x68441 stalin.sc:2953:99536 */ /* x68440 stalin.sc:2953:99553 */ /* x68439 stalin.sc:2953:99583 */ t79761 = a21642; /* x68438 stalin.sc:2953:99554 */ a37099 = t79761; /* x281065 */ /* x281064 */ t79762 = a37099; /* x281063 */ if (!((t79762.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-RED-BLACK-TREE-NODE[6475] 32016]"); structure_ref_error();} t79746 = t79762.value.structure_type27650->s1; /* x68437 */ /* x68436 */ /* x68435 */ /* x68434 */ /* x68433 */ /* x68432 */ /* x68431 */ /* x68399 */ /* x68398 stalin.sc:2953:99541 */ a21646 = t79746; h8037: /* x68430 stalin.sc:2955:99615 */ /* x68430 stalin.sc:2955:99615 */ /* x68400 stalin.sc:2955:99620 */ if (a21646==((struct structure_type27657 *)FALSE_TYPE)) goto l14891; /* x68428 */ /* x68427 stalin.sc:2956:99630 */ /* x68423 stalin.sc:2956:99633 */ t79747 = a21643; /* x68426 stalin.sc:2956:99635 */ /* x68425 stalin.sc:2956:99660 */ t79749 = a21646; /* x68424 stalin.sc:2956:99636 */ a37269 = t79749; /* x281745 */ /* x281744 */ t79750 = a37269; /* x281743 */ t79748 = t79750->s1; /* x270399 stalin.sc:2956:99631 */ if (!((t79747&1)==1)) {backtrace("stalin.sc", 2956, 99630); eql_error();} if (!((t79748&1)==1)) {backtrace("stalin.sc", 2956, 99630); eql_error();} if (((int)(((int)t79747)>>1))==((int)(((int)t79748)>>1))) goto l14890; /* x68419 */ /* x68408 stalin.sc:2957:99676 */ /* x68404 stalin.sc:2957:99679 */ t79751 = a21643; /* x68407 stalin.sc:2957:99681 */ /* x68406 stalin.sc:2957:99706 */ t79753 = a21646; /* x68405 stalin.sc:2957:99682 */ a37268 = t79753; /* x281741 */ /* x281740 */ t79754 = a37268; /* x281739 */ t79752 = t79754->s1; /* x270400 stalin.sc:2957:99677 */ if (!((t79751&1)==1)) {backtrace("stalin.sc", 2957, 99676); lt_error();} if (!((t79752&1)==1)) {backtrace("stalin.sc", 2957, 99676); lt_error();} if (!(((int)(((int)t79751)>>1))<((int)(((int)t79752)>>1)))) goto l14896; /* x68413 stalin.sc:2958:99715 */ /* x68412 stalin.sc:2958:99721 */ /* x68411 stalin.sc:2958:99747 */ t79759 = a21646; /* x68410 stalin.sc:2958:99722 */ a37257 = t79759; /* x281697 */ /* x281696 */ t79760 = a37257; /* x281695 */ t79758 = t79760->s2; /* x68409 stalin.sc:2958:99716 */ a21646 = t79758; goto h8037; l14896: /* x68418 stalin.sc:2959:99756 */ /* x68417 stalin.sc:2959:99762 */ /* x68416 stalin.sc:2959:99789 */ t79756 = a21646; /* x68415 stalin.sc:2959:99763 */ a37215 = t79756; /* x281529 */ /* x281528 */ t79757 = a37215; /* x281527 */ t79755 = t79757->s3; /* x68414 stalin.sc:2959:99757 */ a21646 = t79755; goto h8037; l14890: return TRUE_TYPE; l14891: return FALSE_TYPE;} /* SET-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO![8008] */ void f8008(struct w49 a21637, struct structure_type24753 *a21638) {struct w49 a19423; /* S */ struct structure_type24753 *a19424; /* X */ struct w49 a19490; /* S */ struct structure_type24753 *a19491; /* X */ struct w49 a19557; /* S */ struct structure_type24753 *a19558; /* X */ struct w49 a19624; /* S */ struct structure_type24753 *a19625; /* X */ struct w49 a19713; /* S */ struct structure_type24753 *a19714; /* X */ struct w49 a19780; /* S */ struct structure_type24753 *a19781; /* X */ struct w49 a19848; /* S */ struct structure_type24753 *a19849; /* X */ struct w49 a19948; /* S */ struct structure_type24753 *a19949; /* X */ struct w49 a20037; /* S */ struct structure_type24753 *a20038; /* X */ struct w49 a20126; /* S */ struct structure_type24753 *a20127; /* X */ struct w49 a20203; /* S */ struct structure_type24753 *a20204; /* X */ struct w49 a37344; /* OBJ */ struct w49 a37444; /* OBJ */ struct w49 a37560; /* OBJ */ struct w49 a37701; /* OBJ */ struct w49 a37776; /* OBJ */ struct w49 a37897; /* OBJ */ struct w49 a37968; /* OBJ */ struct w49 a38115; /* OBJ */ struct w49 a38226; /* OBJ */ struct w49 a38285; /* OBJ */ struct w49 a38326; /* OBJ */ struct w49 t79764; struct w49 t79765; struct w49 t79766; struct w49 t79767; struct w49 t79768; struct w49 t79769; struct w49 t79770; struct w49 t79771; struct w49 t79772; struct w49 t79773; struct w49 t79774; struct w49 t79775; struct w49 t79776; struct w49 t79777; struct w49 t79778; struct w49 t79779; struct w49 t79780; struct w49 t79781; struct w49 t79782; struct w49 t79783; struct w49 t79784; struct w49 t79785; struct w49 t79786; struct w49 t79787; struct w49 t79788; struct w49 t79789; struct w49 t79790; struct w49 t79791; struct w49 t79792; struct w49 t79793; struct w49 t79794; struct w49 t79795; struct w49 t79796; char *t79797; struct w49 t79798; struct structure_type24753 *t79799; struct w49 t79800; struct structure_type24753 *t79801; struct w49 t79802; struct structure_type24753 *t79803; struct w49 t79804; struct structure_type24753 *t79805; struct w49 t79806; struct structure_type24753 *t79807; struct w49 t79808; struct structure_type24753 *t79809; struct w49 t79810; struct structure_type24753 *t79811; struct w49 t79812; struct structure_type24753 *t79813; struct w49 t79814; struct structure_type24753 *t79815; struct w49 t79816; struct structure_type24753 *t79817; struct w49 t79818; struct structure_type24753 *t79819; struct w49 t79820; struct structure_type24753 *t79821; struct w49 t79822; struct structure_type24753 *t79823; struct w49 t79824; struct structure_type24753 *t79825; struct w49 t79826; struct structure_type24753 *t79827; struct w49 t79828; struct structure_type24753 *t79829; struct w49 t79830; struct structure_type24753 *t79831; struct w49 t79832; struct structure_type24753 *t79833; struct w49 t79834; struct structure_type24753 *t79835; struct w49 t79836; struct structure_type24753 *t79837; struct w49 t79838; struct structure_type24753 *t79839; struct w49 t79840; struct structure_type24753 *t79841; char *t79842; char *t79843; char *t79844; char *t79845; char *t79846; char *t79847; char *t79848; char *t79849; char *t79850; char *t79851; char *t79852; /* x68375 stalin.sc:2898:97594 */ /* x68176 stalin.sc:2899:97603 */ /* x68175 stalin.sc:2899:97615 */ t79764 = a21637; /* x68174 stalin.sc:2899:97604 */ if (f7677(t79764)==FALSE_TYPE) goto l14898; /* x68180 */ /* x68179 */ /* x68178 stalin.sc:2899:97618 */ /* x68177 stalin.sc:2899:97619 */ /* x297297 QobiScheme.sc:166:5314 */ /* x297296 QobiScheme.sc:166:5321 */ t79852 = "This shouldn\'t happen"; /* x297295 QobiScheme.sc:166:5315 */ stalin_panic(t79852); l14898: /* x68374 */ /* x68183 stalin.sc:2900:97632 */ /* x68182 stalin.sc:2900:97644 */ t79765 = a21637; /* x68181 stalin.sc:2900:97633 */ if (f7678(t79765)==FALSE_TYPE) goto l14900; /* x68187 */ /* x68186 */ /* x68185 stalin.sc:2900:97647 */ /* x68184 stalin.sc:2900:97648 */ /* x297301 QobiScheme.sc:166:5314 */ /* x297300 QobiScheme.sc:166:5321 */ t79851 = "This shouldn\'t happen"; /* x297299 QobiScheme.sc:166:5315 */ stalin_panic(t79851); l14900: /* x68373 */ /* x68190 stalin.sc:2901:97661 */ /* x68189 stalin.sc:2901:97674 */ t79766 = a21637; /* x68188 stalin.sc:2901:97662 */ if (f7679(t79766)==FALSE_TYPE) goto l14902; /* x68194 */ /* x68193 */ /* x68192 stalin.sc:2901:97677 */ /* x68191 stalin.sc:2901:97678 */ /* x297305 QobiScheme.sc:166:5314 */ /* x297304 QobiScheme.sc:166:5321 */ t79850 = "This shouldn\'t happen"; /* x297303 QobiScheme.sc:166:5315 */ stalin_panic(t79850); l14902: /* x68372 */ /* x68197 stalin.sc:2902:97691 */ /* x68196 stalin.sc:2902:97703 */ t79767 = a21637; /* x68195 stalin.sc:2902:97692 */ if (f7682(t79767)==FALSE_TYPE) goto l14904; /* x68201 */ /* x68200 */ /* x68199 stalin.sc:2902:97706 */ /* x68198 stalin.sc:2902:97707 */ /* x297309 QobiScheme.sc:166:5314 */ /* x297308 QobiScheme.sc:166:5321 */ t79849 = "This shouldn\'t happen"; /* x297307 QobiScheme.sc:166:5315 */ stalin_panic(t79849); l14904: /* x68371 */ /* x68204 stalin.sc:2903:97720 */ /* x68203 stalin.sc:2903:97734 */ t79768 = a21637; /* x68202 stalin.sc:2903:97721 */ if (f7683(t79768)==FALSE_TYPE) goto l14906; /* x68208 */ /* x68207 */ /* x68206 stalin.sc:2903:97737 */ /* x68205 stalin.sc:2903:97738 */ /* x297313 QobiScheme.sc:166:5314 */ /* x297312 QobiScheme.sc:166:5321 */ t79848 = "This shouldn\'t happen"; /* x297311 QobiScheme.sc:166:5315 */ stalin_panic(t79848); l14906: /* x68370 */ /* x68211 stalin.sc:2904:97751 */ /* x68210 stalin.sc:2904:97765 */ t79769 = a21637; /* x68209 stalin.sc:2904:97752 */ if (f7684(t79769)==FALSE_TYPE) goto l14908; /* x68215 */ /* x68214 */ /* x68213 stalin.sc:2904:97768 */ /* x68212 stalin.sc:2904:97769 */ /* x297317 QobiScheme.sc:166:5314 */ /* x297316 QobiScheme.sc:166:5321 */ t79847 = "This shouldn\'t happen"; /* x297315 QobiScheme.sc:166:5315 */ stalin_panic(t79847); l14908: /* x68369 */ /* x68218 stalin.sc:2905:97782 */ /* x68217 stalin.sc:2905:97801 */ t79770 = a21637; /* x68216 stalin.sc:2905:97783 */ if (f7687(t79770)==FALSE_TYPE) goto l14910; /* x68222 */ /* x68221 */ /* x68220 stalin.sc:2905:97804 */ /* x68219 stalin.sc:2905:97805 */ /* x297321 QobiScheme.sc:166:5314 */ /* x297320 QobiScheme.sc:166:5321 */ t79846 = "This shouldn\'t happen"; /* x297319 QobiScheme.sc:166:5315 */ stalin_panic(t79846); l14910: /* x68368 */ /* x68225 stalin.sc:2906:97818 */ /* x68224 stalin.sc:2906:97836 */ t79771 = a21637; /* x68223 stalin.sc:2906:97819 */ if (f7700(t79771)==FALSE_TYPE) goto l14912; /* x68229 */ /* x68228 */ /* x68227 stalin.sc:2906:97839 */ /* x68226 stalin.sc:2906:97840 */ /* x297325 QobiScheme.sc:166:5314 */ /* x297324 QobiScheme.sc:166:5321 */ t79845 = "This shouldn\'t happen"; /* x297323 QobiScheme.sc:166:5315 */ stalin_panic(t79845); l14912: /* x68367 */ /* x68232 stalin.sc:2907:97853 */ /* x68231 stalin.sc:2907:97872 */ t79772 = a21637; /* x68230 stalin.sc:2907:97854 */ if (f7701(t79772)==FALSE_TYPE) goto l14914; /* x68236 */ /* x68235 */ /* x68234 stalin.sc:2907:97875 */ /* x68233 stalin.sc:2907:97876 */ /* x297329 QobiScheme.sc:166:5314 */ /* x297328 QobiScheme.sc:166:5321 */ t79844 = "This shouldn\'t happen"; /* x297327 QobiScheme.sc:166:5315 */ stalin_panic(t79844); l14914: /* x68366 */ /* x68239 stalin.sc:2908:97889 */ /* x68238 stalin.sc:2908:97907 */ t79773 = a21637; /* x68237 stalin.sc:2908:97890 */ if (f7702(t79773)==FALSE_TYPE) goto l14916; /* x68243 */ /* x68242 */ /* x68241 stalin.sc:2908:97910 */ /* x68240 stalin.sc:2908:97911 */ /* x297333 QobiScheme.sc:166:5314 */ /* x297332 QobiScheme.sc:166:5321 */ t79843 = "This shouldn\'t happen"; /* x297331 QobiScheme.sc:166:5315 */ stalin_panic(t79843); l14916: /* x68365 */ /* x68246 stalin.sc:2909:97924 */ /* x68245 stalin.sc:2909:97939 */ t79774 = a21637; /* x68244 stalin.sc:2909:97925 */ if (f7703(t79774)==FALSE_TYPE) goto l14918; /* x68250 */ /* x68249 */ /* x68248 stalin.sc:2909:97942 */ /* x68247 stalin.sc:2909:97943 */ /* x297337 QobiScheme.sc:166:5314 */ /* x297336 QobiScheme.sc:166:5321 */ t79842 = "This shouldn\'t happen"; /* x297335 QobiScheme.sc:166:5315 */ stalin_panic(t79842); l14918: /* x68364 */ /* x68253 stalin.sc:2910:97956 */ /* x68252 stalin.sc:2910:97979 */ t79775 = a21637; /* x68251 stalin.sc:2910:97957 */ a38326 = t79775; /* x285973 */ /* x285972 */ t79776 = a38326; /* x285971 */ if (!((t79776.tag)==STRUCTURE_TYPE27776)) goto l14920; /* x68259 */ /* x68258 */ /* x68257 stalin.sc:2911:97985 */ /* x68255 stalin.sc:2912:98059 */ t79838 = a21637; /* x68256 stalin.sc:2912:98061 */ t79839 = a21638; /* x68254 stalin.sc:2911:97986 */ a19423 = t79838; a19424 = t79839; /* x51315 */ /* x51313 */ t79840 = a19423; /* x51314 */ t79841 = a19424; /* x51312 */ if ((t79840.tag)==STRUCTURE_TYPE27776) {/* MOVE: branching squeezed to general */ if (t79841>=((struct structure_type24753 *)VALUE_OFFSET)) {t79840.value.structure_type27776->s3.tag = STRUCTURE_TYPE24753; t79840.value.structure_type27776->s3.value.structure_type24753 = t79841;} else t79840.value.structure_type27776->s3.tag = (unsigned)t79841; return;} backtrace_internal("SET-INTERNAL-SYMBOL-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO![5828]"); structure_set_error(); l14920: /* x68363 */ /* x68262 stalin.sc:2913:98071 */ /* x68261 stalin.sc:2913:98094 */ t79777 = a21637; /* x68260 stalin.sc:2913:98072 */ a38285 = t79777; /* x285809 */ /* x285808 */ t79778 = a38285; /* x285807 */ if (!((t79778.tag)==STRUCTURE_TYPE27779)) goto l14922; /* x68268 */ /* x68267 */ /* x68266 stalin.sc:2914:98100 */ /* x68264 stalin.sc:2915:98174 */ t79834 = a21637; /* x68265 stalin.sc:2915:98176 */ t79835 = a21638; /* x68263 stalin.sc:2914:98101 */ a19490 = t79834; a19491 = t79835; /* x51564 */ /* x51562 */ t79836 = a19490; /* x51563 */ t79837 = a19491; /* x51561 */ if ((t79836.tag)==STRUCTURE_TYPE27779) {/* MOVE: branching squeezed to general */ if (t79837>=((struct structure_type24753 *)VALUE_OFFSET)) {t79836.value.structure_type27779->s4.tag = STRUCTURE_TYPE24753; t79836.value.structure_type27779->s4.value.structure_type24753 = t79837;} else t79836.value.structure_type27779->s4.tag = (unsigned)t79837; return;} backtrace_internal("SET-EXTERNAL-SYMBOL-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO![5878]"); structure_set_error(); l14922: /* x68362 */ /* x68271 stalin.sc:2916:98186 */ /* x68270 stalin.sc:2916:98213 */ t79779 = a21637; /* x68269 stalin.sc:2916:98187 */ a38226 = t79779; /* x285573 */ /* x285572 */ t79780 = a38226; /* x285571 */ if (!((t79780.tag)==STRUCTURE_TYPE27753)) goto l14924; /* x68277 */ /* x68276 */ /* x68275 stalin.sc:2917:98219 */ /* x68273 stalin.sc:2918:98297 */ t79830 = a21637; /* x68274 stalin.sc:2918:98299 */ t79831 = a21638; /* x68272 stalin.sc:2917:98220 */ a19557 = t79830; a19558 = t79831; /* x51813 */ /* x51811 */ t79832 = a19557; /* x51812 */ t79833 = a19558; /* x51810 */ if ((t79832.tag)==STRUCTURE_TYPE27753) {/* MOVE: branching squeezed to general */ if (t79833>=((struct structure_type24753 *)VALUE_OFFSET)) {t79832.value.structure_type27753->s4.tag = STRUCTURE_TYPE24753; t79832.value.structure_type27753->s4.value.structure_type24753 = t79833;} else t79832.value.structure_type27753->s4.tag = (unsigned)t79833; return;} backtrace_internal("SET-PRIMITIVE-PROCEDURE-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO![5928]"); structure_set_error(); l14924: /* x68361 */ /* x68280 stalin.sc:2919:98309 */ /* x68279 stalin.sc:2919:98333 */ t79781 = a21637; /* x68278 stalin.sc:2919:98310 */ a38115 = t79781; /* x285129 */ /* x285128 */ t79782 = a38115; /* x285127 */ if (!((t79782.tag)==STRUCTURE_TYPE27756)) goto l14926; /* x68286 */ /* x68285 */ /* x68284 stalin.sc:2920:98339 */ /* x68282 stalin.sc:2921:98414 */ t79826 = a21637; /* x68283 stalin.sc:2921:98416 */ t79827 = a21638; /* x68281 stalin.sc:2920:98340 */ a19624 = t79826; a19625 = t79827; /* x52062 */ /* x52060 */ t79828 = a19624; /* x52061 */ t79829 = a19625; /* x52059 */ if ((t79828.tag)==STRUCTURE_TYPE27756) {/* MOVE: branching squeezed to general */ if (t79829>=((struct structure_type24753 *)VALUE_OFFSET)) {t79828.value.structure_type27756->s4.tag = STRUCTURE_TYPE24753; t79828.value.structure_type27756->s4.value.structure_type24753 = t79829;} else t79828.value.structure_type27756->s4.tag = (unsigned)t79829; return;} backtrace_internal("SET-NATIVE-PROCEDURE-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO![5978]"); structure_set_error(); l14926: /* x68360 */ /* x68289 stalin.sc:2922:98426 */ /* x68288 stalin.sc:2922:98451 */ t79783 = a21637; /* x68287 stalin.sc:2922:98427 */ a37968 = t79783; /* x284541 */ /* x284540 */ t79784 = a37968; /* x284539 */ if (!((t79784.tag)==STRUCTURE_TYPE27750)) goto l14928; /* x68295 */ /* x68294 */ /* x68293 stalin.sc:2923:98457 */ /* x68291 stalin.sc:2924:98533 */ t79822 = a21637; /* x68292 stalin.sc:2924:98535 */ t79823 = a21638; /* x68290 stalin.sc:2923:98458 */ a19713 = t79822; a19714 = t79823; /* x52391 */ /* x52389 */ t79824 = a19713; /* x52390 */ t79825 = a19714; /* x52388 */ if ((t79824.tag)==STRUCTURE_TYPE27750) {/* MOVE: branching squeezed to general */ if (t79825>=((struct structure_type24753 *)VALUE_OFFSET)) {t79824.value.structure_type27750->s6.tag = STRUCTURE_TYPE24753; t79824.value.structure_type27750->s6.value.structure_type24753 = t79825;} else t79824.value.structure_type27750->s6.tag = (unsigned)t79825; return;} backtrace_internal("SET-FOREIGN-PROCEDURE-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO![6044]"); structure_set_error(); l14928: /* x68359 */ /* x68298 stalin.sc:2925:98545 */ /* x68297 stalin.sc:2925:98565 */ t79785 = a21637; /* x68296 stalin.sc:2925:98546 */ a37897 = t79785; /* x284257 */ /* x284256 */ t79786 = a37897; /* x284255 */ if (!((t79786.tag)==STRUCTURE_TYPE27858)) goto l14930; /* x68304 */ /* x68303 */ /* x68302 stalin.sc:2926:98571 */ /* x68300 stalin.sc:2926:98638 */ t79818 = a21637; /* x68301 stalin.sc:2926:98640 */ t79819 = a21638; /* x68299 stalin.sc:2926:98572 */ a19780 = t79818; a19781 = t79819; /* x52640 */ /* x52638 */ t79820 = a19780; /* x52639 */ t79821 = a19781; /* x52637 */ if ((t79820.tag)==STRUCTURE_TYPE27858) {/* MOVE: branching squeezed to general */ if (t79821>=((struct structure_type24753 *)VALUE_OFFSET)) {t79820.value.structure_type27858->s4.tag = STRUCTURE_TYPE24753; t79820.value.structure_type27858->s4.value.structure_type24753 = t79821;} else t79820.value.structure_type27858->s4.tag = (unsigned)t79821; return;} backtrace_internal("SET-CONTINUATION-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO![6094]"); structure_set_error(); l14930: /* x68358 */ /* x68307 stalin.sc:2927:98650 */ /* x68306 stalin.sc:2927:98664 */ t79787 = a21637; /* x68305 stalin.sc:2927:98651 */ a37776 = t79787; /* x283773 */ /* x283772 */ t79788 = a37776; /* x283771 */ if (!((t79788.tag)==STRUCTURE_TYPE27673)) goto l14932; /* x68313 */ /* x68312 */ /* x68311 stalin.sc:2928:98670 */ /* x68309 stalin.sc:2928:98731 */ t79814 = a21637; /* x68310 stalin.sc:2928:98733 */ t79815 = a21638; /* x68308 stalin.sc:2928:98671 */ a19848 = t79814; a19849 = t79815; /* x52890 */ /* x52888 */ t79816 = a19848; /* x52889 */ t79817 = a19849; /* x52887 */ if ((t79816.tag)==STRUCTURE_TYPE27673) {/* MOVE: branching squeezed to general */ if (t79817>=((struct structure_type24753 *)VALUE_OFFSET)) {t79816.value.structure_type27673->s4.tag = STRUCTURE_TYPE24753; t79816.value.structure_type27673->s4.value.structure_type24753 = t79817;} else t79816.value.structure_type27673->s4.tag = (unsigned)t79817; return;} backtrace_internal("SET-STRING-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO![6144]"); structure_set_error(); l14932: /* x68357 */ /* x68316 stalin.sc:2929:98743 */ /* x68315 stalin.sc:2929:98760 */ t79789 = a21637; /* x68314 stalin.sc:2929:98744 */ a37701 = t79789; /* x283473 */ /* x283472 */ t79790 = a37701; /* x283471 */ if (!((t79790.tag)==STRUCTURE_TYPE27769)) goto l14934; /* x68322 */ /* x68321 */ /* x68320 stalin.sc:2930:98766 */ /* x68318 stalin.sc:2930:98830 */ t79810 = a21637; /* x68319 stalin.sc:2930:98832 */ t79811 = a21638; /* x68317 stalin.sc:2930:98767 */ a19948 = t79810; a19949 = t79811; /* x53259 */ /* x53257 */ t79812 = a19948; /* x53258 */ t79813 = a19949; /* x53256 */ if ((t79812.tag)==STRUCTURE_TYPE27769) {/* MOVE: branching squeezed to general */ if (t79813>=((struct structure_type24753 *)VALUE_OFFSET)) {t79812.value.structure_type27769->s6.tag = STRUCTURE_TYPE24753; t79812.value.structure_type27769->s6.value.structure_type24753 = t79813;} else t79812.value.structure_type27769->s6.tag = (unsigned)t79813; return;} backtrace_internal("SET-STRUCTURE-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO![6218]"); structure_set_error(); l14934: /* x68356 */ /* x68325 stalin.sc:2931:98842 */ /* x68324 stalin.sc:2931:98863 */ t79791 = a21637; /* x68323 stalin.sc:2931:98843 */ a37560 = t79791; /* x282909 */ /* x282908 */ t79792 = a37560; /* x282907 */ if (!((t79792.tag)==STRUCTURE_TYPE27761)) goto l14936; /* x68331 */ /* x68330 */ /* x68329 stalin.sc:2932:98869 */ /* x68327 stalin.sc:2932:98937 */ t79806 = a21637; /* x68328 stalin.sc:2932:98939 */ t79807 = a21638; /* x68326 stalin.sc:2932:98870 */ a20037 = t79806; a20038 = t79807; /* x53588 */ /* x53586 */ t79808 = a20037; /* x53587 */ t79809 = a20038; /* x53585 */ if ((t79808.tag)==STRUCTURE_TYPE27761) {/* MOVE: branching squeezed to general */ if (t79809>=((struct structure_type24753 *)VALUE_OFFSET)) {t79808.value.structure_type27761->s5.tag = STRUCTURE_TYPE24753; t79808.value.structure_type27761->s5.value.structure_type24753 = t79809;} else t79808.value.structure_type27761->s5.tag = (unsigned)t79809; return;} backtrace_internal("SET-HEADED-VECTOR-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO![6284]"); structure_set_error(); l14936: /* x68355 */ /* x68334 stalin.sc:2933:98949 */ /* x68333 stalin.sc:2933:98973 */ t79793 = a21637; /* x68332 stalin.sc:2933:98950 */ a37444 = t79793; /* x282445 */ /* x282444 */ t79794 = a37444; /* x282443 */ if (!((t79794.tag)==STRUCTURE_TYPE27669)) goto l14938; /* x68340 */ /* x68339 */ /* x68338 stalin.sc:2934:98979 */ /* x68336 stalin.sc:2935:99054 */ t79802 = a21637; /* x68337 stalin.sc:2935:99056 */ t79803 = a21638; /* x68335 stalin.sc:2934:98980 */ a20126 = t79802; a20127 = t79803; /* x53917 */ /* x53915 */ t79804 = a20126; /* x53916 */ t79805 = a20127; /* x53914 */ if ((t79804.tag)==STRUCTURE_TYPE27669) {/* MOVE: branching squeezed to general */ if (t79805>=((struct structure_type24753 *)VALUE_OFFSET)) {t79804.value.structure_type27669->s5.tag = STRUCTURE_TYPE24753; t79804.value.structure_type27669->s5.value.structure_type24753 = t79805;} else t79804.value.structure_type27669->s5.tag = (unsigned)t79805; return;} backtrace_internal("SET-NONHEADED-VECTOR-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO![6350]"); structure_set_error(); l14938: /* x68354 */ /* x68343 stalin.sc:2936:99066 */ /* x68342 stalin.sc:2936:99090 */ t79795 = a21637; /* x68341 stalin.sc:2936:99067 */ a37344 = t79795; /* x282045 */ /* x282044 */ t79796 = a37344; /* x282043 */ if (!((t79796.tag)==STRUCTURE_TYPE27908)) goto l14940; /* x68349 */ /* x68348 */ /* x68347 stalin.sc:2937:99096 */ /* x68345 stalin.sc:2938:99171 */ t79798 = a21637; /* x68346 stalin.sc:2938:99173 */ t79799 = a21638; /* x68344 stalin.sc:2937:99097 */ a20203 = t79798; a20204 = t79799; /* x54205 */ /* x54203 */ t79800 = a20203; /* x54204 */ t79801 = a20204; /* x54202 */ if ((t79800.tag)==STRUCTURE_TYPE27908) {/* MOVE: branching squeezed to general */ if (t79801>=((struct structure_type24753 *)VALUE_OFFSET)) {t79800.value.structure_type27908->s4.tag = STRUCTURE_TYPE24753; t79800.value.structure_type27908->s4.value.structure_type24753 = t79801;} else t79800.value.structure_type27908->s4.tag = (unsigned)t79801; return;} backtrace_internal("SET-DISPLACED-VECTOR-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO![6408]"); structure_set_error(); l14940: /* x68353 */ /* x68352 */ /* x68351 stalin.sc:2939:99188 */ /* x68350 stalin.sc:2939:99189 */ /* x297341 QobiScheme.sc:166:5314 */ /* x297340 QobiScheme.sc:166:5321 */ t79797 = "This shouldn\'t happen"; /* x297339 QobiScheme.sc:166:5315 */ stalin_panic(t79797);} /* TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO[7984] */ struct w3457 f7984(struct w49 a21636) {struct w49 a19422; /* S */ struct w49 a19489; /* S */ struct w49 a19556; /* S */ struct w49 a19623; /* S */ struct w49 a19712; /* S */ struct w49 a19779; /* S */ struct w49 a19847; /* S */ struct w49 a19947; /* S */ struct w49 a20036; /* S */ struct w49 a20125; /* S */ struct w49 a20202; /* S */ struct w49 a37339; /* OBJ */ struct w49 a37437; /* OBJ */ struct w49 a37554; /* OBJ */ struct w49 a37697; /* OBJ */ struct w49 a37772; /* OBJ */ struct w49 a37893; /* OBJ */ struct w49 a37964; /* OBJ */ struct w49 a38111; /* OBJ */ struct w49 a38222; /* OBJ */ struct w49 a38281; /* OBJ */ struct w49 a38322; /* OBJ */ struct w49 t79853; struct w49 t79854; struct w49 t79855; struct w49 t79856; struct w49 t79857; struct w49 t79858; struct w49 t79859; struct w49 t79860; struct w49 t79861; struct w49 t79862; struct w49 t79863; struct w49 t79864; struct w49 t79865; struct w49 t79866; struct w49 t79867; struct w49 t79868; struct w49 t79869; struct w49 t79870; struct w49 t79871; struct w49 t79872; struct w49 t79873; struct w49 t79874; struct w49 t79875; struct w49 t79876; struct w49 t79877; struct w49 t79878; struct w49 t79879; struct w49 t79880; struct w49 t79881; struct w49 t79882; struct w49 t79883; struct w49 t79884; struct w49 t79885; char *t79886; struct w49 t79887; struct w49 t79888; struct w49 t79889; struct w49 t79890; struct w49 t79891; struct w49 t79892; struct w49 t79893; struct w49 t79894; struct w49 t79895; struct w49 t79896; struct w49 t79897; struct w49 t79898; struct w49 t79899; struct w49 t79900; struct w49 t79901; struct w49 t79902; struct w49 t79903; struct w49 t79904; struct w49 t79905; struct w49 t79906; struct w49 t79907; struct w49 t79908; char *t79909; char *t79910; char *t79911; char *t79912; char *t79913; char *t79914; char *t79915; char *t79916; char *t79917; char *t79918; char *t79919; /* x68171 stalin.sc:2861:96009 */ /* x67983 stalin.sc:2862:96018 */ /* x67982 stalin.sc:2862:96030 */ t79853 = a21636; /* x67981 stalin.sc:2862:96019 */ if (f7677(t79853)==FALSE_TYPE) goto l14942; /* x67987 */ /* x67986 */ /* x67985 stalin.sc:2862:96033 */ /* x67984 stalin.sc:2862:96034 */ /* x297097 QobiScheme.sc:166:5314 */ /* x297096 QobiScheme.sc:166:5321 */ t79919 = "This shouldn\'t happen"; /* x297095 QobiScheme.sc:166:5315 */ stalin_panic(t79919); l14942: /* x68170 */ /* x67990 stalin.sc:2863:96047 */ /* x67989 stalin.sc:2863:96059 */ t79854 = a21636; /* x67988 stalin.sc:2863:96048 */ if (f7678(t79854)==FALSE_TYPE) goto l14944; /* x67994 */ /* x67993 */ /* x67992 stalin.sc:2863:96062 */ /* x67991 stalin.sc:2863:96063 */ /* x297101 QobiScheme.sc:166:5314 */ /* x297100 QobiScheme.sc:166:5321 */ t79918 = "This shouldn\'t happen"; /* x297099 QobiScheme.sc:166:5315 */ stalin_panic(t79918); l14944: /* x68169 */ /* x67997 stalin.sc:2864:96076 */ /* x67996 stalin.sc:2864:96089 */ t79855 = a21636; /* x67995 stalin.sc:2864:96077 */ if (f7679(t79855)==FALSE_TYPE) goto l14946; /* x68001 */ /* x68000 */ /* x67999 stalin.sc:2864:96092 */ /* x67998 stalin.sc:2864:96093 */ /* x297105 QobiScheme.sc:166:5314 */ /* x297104 QobiScheme.sc:166:5321 */ t79917 = "This shouldn\'t happen"; /* x297103 QobiScheme.sc:166:5315 */ stalin_panic(t79917); l14946: /* x68168 */ /* x68004 stalin.sc:2865:96106 */ /* x68003 stalin.sc:2865:96118 */ t79856 = a21636; /* x68002 stalin.sc:2865:96107 */ if (f7682(t79856)==FALSE_TYPE) goto l14948; /* x68008 */ /* x68007 */ /* x68006 stalin.sc:2865:96121 */ /* x68005 stalin.sc:2865:96122 */ /* x297109 QobiScheme.sc:166:5314 */ /* x297108 QobiScheme.sc:166:5321 */ t79916 = "This shouldn\'t happen"; /* x297107 QobiScheme.sc:166:5315 */ stalin_panic(t79916); l14948: /* x68167 */ /* x68011 stalin.sc:2866:96135 */ /* x68010 stalin.sc:2866:96149 */ t79857 = a21636; /* x68009 stalin.sc:2866:96136 */ if (f7683(t79857)==FALSE_TYPE) goto l14950; /* x68015 */ /* x68014 */ /* x68013 stalin.sc:2866:96152 */ /* x68012 stalin.sc:2866:96153 */ /* x297113 QobiScheme.sc:166:5314 */ /* x297112 QobiScheme.sc:166:5321 */ t79915 = "This shouldn\'t happen"; /* x297111 QobiScheme.sc:166:5315 */ stalin_panic(t79915); l14950: /* x68166 */ /* x68018 stalin.sc:2867:96166 */ /* x68017 stalin.sc:2867:96180 */ t79858 = a21636; /* x68016 stalin.sc:2867:96167 */ if (f7684(t79858)==FALSE_TYPE) goto l14952; /* x68022 */ /* x68021 */ /* x68020 stalin.sc:2867:96183 */ /* x68019 stalin.sc:2867:96184 */ /* x297117 QobiScheme.sc:166:5314 */ /* x297116 QobiScheme.sc:166:5321 */ t79914 = "This shouldn\'t happen"; /* x297115 QobiScheme.sc:166:5315 */ stalin_panic(t79914); l14952: /* x68165 */ /* x68025 stalin.sc:2868:96197 */ /* x68024 stalin.sc:2868:96216 */ t79859 = a21636; /* x68023 stalin.sc:2868:96198 */ if (f7687(t79859)==FALSE_TYPE) goto l14954; /* x68029 */ /* x68028 */ /* x68027 stalin.sc:2868:96219 */ /* x68026 stalin.sc:2868:96220 */ /* x297121 QobiScheme.sc:166:5314 */ /* x297120 QobiScheme.sc:166:5321 */ t79913 = "This shouldn\'t happen"; /* x297119 QobiScheme.sc:166:5315 */ stalin_panic(t79913); l14954: /* x68164 */ /* x68032 stalin.sc:2869:96233 */ /* x68031 stalin.sc:2869:96251 */ t79860 = a21636; /* x68030 stalin.sc:2869:96234 */ if (f7700(t79860)==FALSE_TYPE) goto l14956; /* x68036 */ /* x68035 */ /* x68034 stalin.sc:2869:96254 */ /* x68033 stalin.sc:2869:96255 */ /* x297125 QobiScheme.sc:166:5314 */ /* x297124 QobiScheme.sc:166:5321 */ t79912 = "This shouldn\'t happen"; /* x297123 QobiScheme.sc:166:5315 */ stalin_panic(t79912); l14956: /* x68163 */ /* x68039 stalin.sc:2870:96268 */ /* x68038 stalin.sc:2870:96287 */ t79861 = a21636; /* x68037 stalin.sc:2870:96269 */ if (f7701(t79861)==FALSE_TYPE) goto l14958; /* x68043 */ /* x68042 */ /* x68041 stalin.sc:2870:96290 */ /* x68040 stalin.sc:2870:96291 */ /* x297129 QobiScheme.sc:166:5314 */ /* x297128 QobiScheme.sc:166:5321 */ t79911 = "This shouldn\'t happen"; /* x297127 QobiScheme.sc:166:5315 */ stalin_panic(t79911); l14958: /* x68162 */ /* x68046 stalin.sc:2871:96304 */ /* x68045 stalin.sc:2871:96322 */ t79862 = a21636; /* x68044 stalin.sc:2871:96305 */ if (f7702(t79862)==FALSE_TYPE) goto l14960; /* x68050 */ /* x68049 */ /* x68048 stalin.sc:2871:96325 */ /* x68047 stalin.sc:2871:96326 */ /* x297133 QobiScheme.sc:166:5314 */ /* x297132 QobiScheme.sc:166:5321 */ t79910 = "This shouldn\'t happen"; /* x297131 QobiScheme.sc:166:5315 */ stalin_panic(t79910); l14960: /* x68161 */ /* x68053 stalin.sc:2872:96339 */ /* x68052 stalin.sc:2872:96354 */ t79863 = a21636; /* x68051 stalin.sc:2872:96340 */ if (f7703(t79863)==FALSE_TYPE) goto l14962; /* x68057 */ /* x68056 */ /* x68055 stalin.sc:2872:96357 */ /* x68054 stalin.sc:2872:96358 */ /* x297137 QobiScheme.sc:166:5314 */ /* x297136 QobiScheme.sc:166:5321 */ t79909 = "This shouldn\'t happen"; /* x297135 QobiScheme.sc:166:5315 */ stalin_panic(t79909); l14962: /* x68160 */ /* x68060 stalin.sc:2873:96371 */ /* x68059 stalin.sc:2873:96394 */ t79864 = a21636; /* x68058 stalin.sc:2873:96372 */ a38322 = t79864; /* x285957 */ /* x285956 */ t79865 = a38322; /* x285955 */ if (!((t79865.tag)==STRUCTURE_TYPE27776)) goto l14964; /* x68065 */ /* x68064 */ /* x68063 stalin.sc:2874:96400 */ /* x68062 stalin.sc:2874:96465 */ t79907 = a21636; /* x68061 stalin.sc:2874:96401 */ a19422 = t79907; /* x51309 */ /* x51308 */ t79908 = a19422; /* x51307 */ if ((t79908.tag)==STRUCTURE_TYPE27776) return t79908.value.structure_type27776->s3; backtrace_internal("INTERNAL-SYMBOL-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO[5827]"); structure_ref_error(); l14964: /* x68159 */ /* x68068 stalin.sc:2875:96472 */ /* x68067 stalin.sc:2875:96495 */ t79866 = a21636; /* x68066 stalin.sc:2875:96473 */ a38281 = t79866; /* x285793 */ /* x285792 */ t79867 = a38281; /* x285791 */ if (!((t79867.tag)==STRUCTURE_TYPE27779)) goto l14966; /* x68073 */ /* x68072 */ /* x68071 stalin.sc:2876:96501 */ /* x68070 stalin.sc:2876:96566 */ t79905 = a21636; /* x68069 stalin.sc:2876:96502 */ a19489 = t79905; /* x51558 */ /* x51557 */ t79906 = a19489; /* x51556 */ if ((t79906.tag)==STRUCTURE_TYPE27779) return t79906.value.structure_type27779->s4; backtrace_internal("EXTERNAL-SYMBOL-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO[5877]"); structure_ref_error(); l14966: /* x68158 */ /* x68076 stalin.sc:2877:96573 */ /* x68075 stalin.sc:2877:96600 */ t79868 = a21636; /* x68074 stalin.sc:2877:96574 */ a38222 = t79868; /* x285557 */ /* x285556 */ t79869 = a38222; /* x285555 */ if (!((t79869.tag)==STRUCTURE_TYPE27753)) goto l14968; /* x68081 */ /* x68080 */ /* x68079 stalin.sc:2878:96606 */ /* x68078 stalin.sc:2878:96675 */ t79903 = a21636; /* x68077 stalin.sc:2878:96607 */ a19556 = t79903; /* x51807 */ /* x51806 */ t79904 = a19556; /* x51805 */ if ((t79904.tag)==STRUCTURE_TYPE27753) return t79904.value.structure_type27753->s4; backtrace_internal("PRIMITIVE-PROCEDURE-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO[5927]"); structure_ref_error(); l14968: /* x68157 */ /* x68084 stalin.sc:2879:96682 */ /* x68083 stalin.sc:2879:96706 */ t79870 = a21636; /* x68082 stalin.sc:2879:96683 */ a38111 = t79870; /* x285113 */ /* x285112 */ t79871 = a38111; /* x285111 */ if (!((t79871.tag)==STRUCTURE_TYPE27756)) goto l14970; /* x68089 */ /* x68088 */ /* x68087 stalin.sc:2880:96712 */ /* x68086 stalin.sc:2880:96778 */ t79901 = a21636; /* x68085 stalin.sc:2880:96713 */ a19623 = t79901; /* x52056 */ /* x52055 */ t79902 = a19623; /* x52054 */ if ((t79902.tag)==STRUCTURE_TYPE27756) return t79902.value.structure_type27756->s4; backtrace_internal("NATIVE-PROCEDURE-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO[5977]"); structure_ref_error(); l14970: /* x68156 */ /* x68092 stalin.sc:2881:96785 */ /* x68091 stalin.sc:2881:96810 */ t79872 = a21636; /* x68090 stalin.sc:2881:96786 */ a37964 = t79872; /* x284525 */ /* x284524 */ t79873 = a37964; /* x284523 */ if (!((t79873.tag)==STRUCTURE_TYPE27750)) goto l14972; /* x68097 */ /* x68096 */ /* x68095 stalin.sc:2882:96816 */ /* x68094 stalin.sc:2882:96883 */ t79899 = a21636; /* x68093 stalin.sc:2882:96817 */ a19712 = t79899; /* x52385 */ /* x52384 */ t79900 = a19712; /* x52383 */ if ((t79900.tag)==STRUCTURE_TYPE27750) return t79900.value.structure_type27750->s6; backtrace_internal("FOREIGN-PROCEDURE-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO[6043]"); structure_ref_error(); l14972: /* x68155 */ /* x68100 stalin.sc:2883:96890 */ /* x68099 stalin.sc:2883:96910 */ t79874 = a21636; /* x68098 stalin.sc:2883:96891 */ a37893 = t79874; /* x284241 */ /* x284240 */ t79875 = a37893; /* x284239 */ if (!((t79875.tag)==STRUCTURE_TYPE27858)) goto l14974; /* x68105 */ /* x68104 */ /* x68103 stalin.sc:2884:96916 */ /* x68102 stalin.sc:2884:96978 */ t79897 = a21636; /* x68101 stalin.sc:2884:96917 */ a19779 = t79897; /* x52634 */ /* x52633 */ t79898 = a19779; /* x52632 */ if ((t79898.tag)==STRUCTURE_TYPE27858) return t79898.value.structure_type27858->s4; backtrace_internal("CONTINUATION-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO[6093]"); structure_ref_error(); l14974: /* x68154 */ /* x68108 stalin.sc:2885:96985 */ /* x68107 stalin.sc:2885:96999 */ t79876 = a21636; /* x68106 stalin.sc:2885:96986 */ a37772 = t79876; /* x283757 */ /* x283756 */ t79877 = a37772; /* x283755 */ if (!((t79877.tag)==STRUCTURE_TYPE27673)) goto l14976; /* x68113 */ /* x68112 */ /* x68111 stalin.sc:2885:97002 */ /* x68110 stalin.sc:2885:97058 */ t79895 = a21636; /* x68109 stalin.sc:2885:97003 */ a19847 = t79895; /* x52884 */ /* x52883 */ t79896 = a19847; /* x52882 */ if ((t79896.tag)==STRUCTURE_TYPE27673) return t79896.value.structure_type27673->s4; backtrace_internal("STRING-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO[6143]"); structure_ref_error(); l14976: /* x68153 */ /* x68116 stalin.sc:2886:97065 */ /* x68115 stalin.sc:2886:97082 */ t79878 = a21636; /* x68114 stalin.sc:2886:97066 */ a37697 = t79878; /* x283457 */ /* x283456 */ t79879 = a37697; /* x283455 */ if (!((t79879.tag)==STRUCTURE_TYPE27769)) goto l14978; /* x68121 */ /* x68120 */ /* x68119 stalin.sc:2887:97088 */ /* x68118 stalin.sc:2887:97147 */ t79893 = a21636; /* x68117 stalin.sc:2887:97089 */ a19947 = t79893; /* x53253 */ /* x53252 */ t79894 = a19947; /* x53251 */ if ((t79894.tag)==STRUCTURE_TYPE27769) return t79894.value.structure_type27769->s6; backtrace_internal("STRUCTURE-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO[6217]"); structure_ref_error(); l14978: /* x68152 */ /* x68124 stalin.sc:2888:97154 */ /* x68123 stalin.sc:2888:97175 */ t79880 = a21636; /* x68122 stalin.sc:2888:97155 */ a37554 = t79880; /* x282885 */ /* x282884 */ t79881 = a37554; /* x282883 */ if (!((t79881.tag)==STRUCTURE_TYPE27761)) goto l14980; /* x68129 */ /* x68128 */ /* x68127 stalin.sc:2889:97181 */ /* x68126 stalin.sc:2889:97244 */ t79891 = a21636; /* x68125 stalin.sc:2889:97182 */ a20036 = t79891; /* x53582 */ /* x53581 */ t79892 = a20036; /* x53580 */ if ((t79892.tag)==STRUCTURE_TYPE27761) return t79892.value.structure_type27761->s5; backtrace_internal("HEADED-VECTOR-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO[6283]"); structure_ref_error(); l14980: /* x68151 */ /* x68132 stalin.sc:2890:97251 */ /* x68131 stalin.sc:2890:97275 */ t79882 = a21636; /* x68130 stalin.sc:2890:97252 */ a37437 = t79882; /* x282417 */ /* x282416 */ t79883 = a37437; /* x282415 */ if (!((t79883.tag)==STRUCTURE_TYPE27669)) goto l14982; /* x68137 */ /* x68136 */ /* x68135 stalin.sc:2891:97281 */ /* x68134 stalin.sc:2891:97347 */ t79889 = a21636; /* x68133 stalin.sc:2891:97282 */ a20125 = t79889; /* x53911 */ /* x53910 */ t79890 = a20125; /* x53909 */ if ((t79890.tag)==STRUCTURE_TYPE27669) return t79890.value.structure_type27669->s5; backtrace_internal("NONHEADED-VECTOR-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO[6349]"); structure_ref_error(); l14982: /* x68150 */ /* x68140 stalin.sc:2892:97354 */ /* x68139 stalin.sc:2892:97378 */ t79884 = a21636; /* x68138 stalin.sc:2892:97355 */ a37339 = t79884; /* x282025 */ /* x282024 */ t79885 = a37339; /* x282023 */ if (!((t79885.tag)==STRUCTURE_TYPE27908)) goto l14984; /* x68145 */ /* x68144 */ /* x68143 stalin.sc:2893:97384 */ /* x68142 stalin.sc:2893:97450 */ t79887 = a21636; /* x68141 stalin.sc:2893:97385 */ a20202 = t79887; /* x54199 */ /* x54198 */ t79888 = a20202; /* x54197 */ if ((t79888.tag)==STRUCTURE_TYPE27908) return t79888.value.structure_type27908->s4; backtrace_internal("DISPLACED-VECTOR-TYPE-TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO[6407]"); structure_ref_error(); l14984: /* x68149 */ /* x68148 */ /* x68147 stalin.sc:2894:97462 */ /* x68146 stalin.sc:2894:97463 */ /* x297141 QobiScheme.sc:166:5314 */ /* x297140 QobiScheme.sc:166:5321 */ t79886 = "This shouldn\'t happen"; /* x297139 QobiScheme.sc:166:5315 */ stalin_panic(t79886);} /* TYPE-USE-COUNT[7960] */ unsigned f7960(struct w49 a21635) {struct w49 a37290; /* S */ struct w49 a37353; /* OBJ */ struct w49 a37374; /* S */ struct w49 a37454; /* OBJ */ struct w49 a37477; /* S */ struct w49 a37571; /* OBJ */ struct w49 a37598; /* S */ struct w49 a37714; /* OBJ */ struct w49 a37727; /* S */ struct w49 a37785; /* OBJ */ struct w49 a37810; /* S */ struct w49 a37907; /* OBJ */ struct w49 a37917; /* S */ struct w49 a37979; /* OBJ */ struct w49 a38003; /* S */ struct w49 a38128; /* OBJ */ struct w49 a38137; /* S */ struct w49 a38235; /* OBJ */ struct w49 a38244; /* S */ struct w49 a38294; /* OBJ */ struct w49 a38302; /* S */ struct w49 a38334; /* OBJ */ struct w49 t79920; struct w49 t79921; struct w49 t79922; struct w49 t79923; struct w49 t79924; struct w49 t79925; struct w49 t79926; struct w49 t79927; struct w49 t79928; struct w49 t79929; struct w49 t79930; struct w49 t79931; struct w49 t79932; struct w49 t79933; struct w49 t79934; struct w49 t79935; struct w49 t79936; struct w49 t79937; struct w49 t79938; struct w49 t79939; struct w49 t79940; struct w49 t79941; struct w49 t79942; struct w49 t79943; struct w49 t79944; struct w49 t79945; struct w49 t79946; struct w49 t79947; struct w49 t79948; struct w49 t79949; struct w49 t79950; struct w49 t79951; struct w49 t79952; char *t79953; struct w49 t79954; struct w49 t79955; struct w49 t79956; struct w49 t79957; struct w49 t79958; struct w49 t79959; struct w49 t79960; struct w49 t79961; struct w49 t79962; struct w49 t79963; struct w49 t79964; struct w49 t79965; struct w49 t79966; struct w49 t79967; struct w49 t79968; struct w49 t79969; struct w49 t79970; struct w49 t79971; struct w49 t79972; struct w49 t79973; struct w49 t79974; struct w49 t79975; /* x67978 stalin.sc:2836:94605 */ /* x67801 stalin.sc:2836:94612 */ /* x67800 stalin.sc:2836:94624 */ t79920 = a21635; /* x67799 stalin.sc:2836:94613 */ if (f7677(t79920)==FALSE_TYPE) goto l14986; /* x67804 */ /* x67803 */ /* x67802 stalin.sc:2836:94627 */ return a1979; l14986: /* x67977 */ /* x67807 stalin.sc:2837:94658 */ /* x67806 stalin.sc:2837:94670 */ t79921 = a21635; /* x67805 stalin.sc:2837:94659 */ if (f7678(t79921)==FALSE_TYPE) goto l14988; /* x67810 */ /* x67809 */ /* x67808 stalin.sc:2837:94673 */ return a1976; l14988: /* x67976 */ /* x67813 stalin.sc:2838:94704 */ /* x67812 stalin.sc:2838:94717 */ t79922 = a21635; /* x67811 stalin.sc:2838:94705 */ if (f7679(t79922)==FALSE_TYPE) goto l14990; /* x67816 */ /* x67815 */ /* x67814 stalin.sc:2838:94720 */ return a1973; l14990: /* x67975 */ /* x67819 stalin.sc:2839:94752 */ /* x67818 stalin.sc:2839:94764 */ t79923 = a21635; /* x67817 stalin.sc:2839:94753 */ if (f7682(t79923)==FALSE_TYPE) goto l14992; /* x67822 */ /* x67821 */ /* x67820 stalin.sc:2839:94767 */ return a1970; l14992: /* x67974 */ /* x67825 stalin.sc:2840:94798 */ /* x67824 stalin.sc:2840:94812 */ t79924 = a21635; /* x67823 stalin.sc:2840:94799 */ if (f7683(t79924)==FALSE_TYPE) goto l14994; /* x67828 */ /* x67827 */ /* x67826 stalin.sc:2840:94815 */ return a1967; l14994: /* x67973 */ /* x67831 stalin.sc:2841:94848 */ /* x67830 stalin.sc:2841:94862 */ t79925 = a21635; /* x67829 stalin.sc:2841:94849 */ if (f7684(t79925)==FALSE_TYPE) goto l14996; /* x67834 */ /* x67833 */ /* x67832 stalin.sc:2841:94865 */ return a1964; l14996: /* x67972 */ /* x67837 stalin.sc:2842:94898 */ /* x67836 stalin.sc:2842:94917 */ t79926 = a21635; /* x67835 stalin.sc:2842:94899 */ if (f7687(t79926)==FALSE_TYPE) goto l14998; /* x67840 */ /* x67839 */ /* x67838 stalin.sc:2842:94920 */ return a1961; l14998: /* x67971 */ /* x67843 stalin.sc:2843:94958 */ /* x67842 stalin.sc:2843:94976 */ t79927 = a21635; /* x67841 stalin.sc:2843:94959 */ if (f7700(t79927)==FALSE_TYPE) goto l15000; /* x67846 */ /* x67845 */ /* x67844 stalin.sc:2843:94979 */ return a1958; l15000: /* x67970 */ /* x67849 stalin.sc:2844:95016 */ /* x67848 stalin.sc:2844:95035 */ t79928 = a21635; /* x67847 stalin.sc:2844:95017 */ if (f7701(t79928)==FALSE_TYPE) goto l15002; /* x67852 */ /* x67851 */ /* x67850 stalin.sc:2844:95038 */ return a1955; l15002: /* x67969 */ /* x67855 stalin.sc:2845:95076 */ /* x67854 stalin.sc:2845:95094 */ t79929 = a21635; /* x67853 stalin.sc:2845:95077 */ if (f7702(t79929)==FALSE_TYPE) goto l15004; /* x67858 */ /* x67857 */ /* x67856 stalin.sc:2845:95097 */ return a1952; l15004: /* x67968 */ /* x67861 stalin.sc:2846:95134 */ /* x67860 stalin.sc:2846:95149 */ t79930 = a21635; /* x67859 stalin.sc:2846:95135 */ if (f7703(t79930)==FALSE_TYPE) goto l15006; /* x67864 */ /* x67863 */ /* x67862 stalin.sc:2846:95152 */ return a1949; l15006: /* x67967 */ /* x67867 stalin.sc:2847:95186 */ /* x67866 stalin.sc:2847:95209 */ t79931 = a21635; /* x67865 stalin.sc:2847:95187 */ a38334 = t79931; /* x286005 */ /* x286004 */ t79932 = a38334; /* x286003 */ if (!((t79932.tag)==STRUCTURE_TYPE27776)) goto l15008; /* x67872 */ /* x67871 */ /* x67870 stalin.sc:2847:95212 */ /* x67869 stalin.sc:2847:95244 */ t79974 = a21635; /* x67868 stalin.sc:2847:95213 */ a38302 = t79974; /* x285877 */ /* x285876 */ t79975 = a38302; /* x285875 */ if ((t79975.tag)==STRUCTURE_TYPE27776) return (((unsigned)(t79975.value.structure_type27776->s2))<<1)+1; backtrace_internal("[clone INTERNAL-SYMBOL-TYPE-USE-COUNT[5819] 33219]"); structure_ref_error(); l15008: /* x67966 */ /* x67875 stalin.sc:2848:95256 */ /* x67874 stalin.sc:2848:95279 */ t79933 = a21635; /* x67873 stalin.sc:2848:95257 */ a38294 = t79933; /* x285845 */ /* x285844 */ t79934 = a38294; /* x285843 */ if (!((t79934.tag)==STRUCTURE_TYPE27779)) goto l15010; /* x67880 */ /* x67879 */ /* x67878 stalin.sc:2848:95282 */ /* x67877 stalin.sc:2848:95314 */ t79972 = a21635; /* x67876 stalin.sc:2848:95283 */ a38244 = t79972; /* x285645 */ /* x285644 */ t79973 = a38244; /* x285643 */ if ((t79973.tag)==STRUCTURE_TYPE27779) return (((unsigned)(t79973.value.structure_type27779->s3))<<1)+1; backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-USE-COUNT[5869] 33161]"); structure_ref_error(); l15010: /* x67965 */ /* x67883 stalin.sc:2849:95326 */ /* x67882 stalin.sc:2849:95353 */ t79935 = a21635; /* x67881 stalin.sc:2849:95327 */ a38235 = t79935; /* x285609 */ /* x285608 */ t79936 = a38235; /* x285607 */ if (!((t79936.tag)==STRUCTURE_TYPE27753)) goto l15012; /* x67888 */ /* x67887 */ /* x67886 stalin.sc:2849:95356 */ /* x67885 stalin.sc:2849:95392 */ t79970 = a21635; /* x67884 stalin.sc:2849:95357 */ a38137 = t79970; /* x285217 */ /* x285216 */ t79971 = a38137; /* x285215 */ if ((t79971.tag)==STRUCTURE_TYPE27753) return (((unsigned)(t79971.value.structure_type27753->s3))<<1)+1; backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-USE-COUNT[5919] 33054]"); structure_ref_error(); l15012: /* x67964 */ /* x67891 stalin.sc:2850:95404 */ /* x67890 stalin.sc:2850:95428 */ t79937 = a21635; /* x67889 stalin.sc:2850:95405 */ a38128 = t79937; /* x285181 */ /* x285180 */ t79938 = a38128; /* x285179 */ if (!((t79938.tag)==STRUCTURE_TYPE27756)) goto l15014; /* x67896 */ /* x67895 */ /* x67894 stalin.sc:2850:95431 */ /* x67893 stalin.sc:2850:95464 */ t79968 = a21635; /* x67892 stalin.sc:2850:95432 */ a38003 = t79968; /* x284681 */ /* x284680 */ t79969 = a38003; /* x284679 */ if ((t79969.tag)==STRUCTURE_TYPE27756) return (((unsigned)(t79969.value.structure_type27756->s3))<<1)+1; backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-USE-COUNT[5969] 32920]"); structure_ref_error(); l15014: /* x67963 */ /* x67899 stalin.sc:2851:95476 */ /* x67898 stalin.sc:2851:95501 */ t79939 = a21635; /* x67897 stalin.sc:2851:95477 */ a37979 = t79939; /* x284585 */ /* x284584 */ t79940 = a37979; /* x284583 */ if (!((t79940.tag)==STRUCTURE_TYPE27750)) goto l15016; /* x67904 */ /* x67903 */ /* x67902 stalin.sc:2851:95504 */ /* x67901 stalin.sc:2851:95538 */ t79966 = a21635; /* x67900 stalin.sc:2851:95505 */ a37917 = t79966; /* x284337 */ /* x284336 */ t79967 = a37917; /* x284335 */ if ((t79967.tag)==STRUCTURE_TYPE27750) return (((unsigned)(t79967.value.structure_type27750->s5))<<1)+1; backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-USE-COUNT[6035] 32834]"); structure_ref_error(); l15016: /* x67962 */ /* x67907 stalin.sc:2852:95550 */ /* x67906 stalin.sc:2852:95570 */ t79941 = a21635; /* x67905 stalin.sc:2852:95551 */ a37907 = t79941; /* x284297 */ /* x284296 */ t79942 = a37907; /* x284295 */ if (!((t79942.tag)==STRUCTURE_TYPE27858)) goto l15018; /* x67912 */ /* x67911 */ /* x67910 stalin.sc:2852:95573 */ /* x67909 stalin.sc:2852:95602 */ t79964 = a21635; /* x67908 stalin.sc:2852:95574 */ a37810 = t79964; /* x283909 */ /* x283908 */ t79965 = a37810; /* x283907 */ if ((t79965.tag)==STRUCTURE_TYPE27858) return (((unsigned)(t79965.value.structure_type27858->s2))<<1)+1; backtrace_internal("[clone CONTINUATION-TYPE-USE-COUNT[6077] 32727]"); structure_ref_error(); l15018: /* x67961 */ /* x67915 stalin.sc:2853:95614 */ /* x67914 stalin.sc:2853:95628 */ t79943 = a21635; /* x67913 stalin.sc:2853:95615 */ a37785 = t79943; /* x283809 */ /* x283808 */ t79944 = a37785; /* x283807 */ if (!((t79944.tag)==STRUCTURE_TYPE27673)) goto l15020; /* x67920 */ /* x67919 */ /* x67918 stalin.sc:2853:95631 */ /* x67917 stalin.sc:2853:95654 */ t79962 = a21635; /* x67916 stalin.sc:2853:95632 */ a37727 = t79962; /* x283577 */ /* x283576 */ t79963 = a37727; /* x283575 */ if ((t79963.tag)==STRUCTURE_TYPE27673) return (((unsigned)(t79963.value.structure_type27673->s3))<<1)+1; backtrace_internal("[clone STRING-TYPE-USE-COUNT[6135] 32644]"); structure_ref_error(); l15020: /* x67960 */ /* x67923 stalin.sc:2854:95666 */ /* x67922 stalin.sc:2854:95683 */ t79945 = a21635; /* x67921 stalin.sc:2854:95667 */ a37714 = t79945; /* x283525 */ /* x283524 */ t79946 = a37714; /* x283523 */ if (!((t79946.tag)==STRUCTURE_TYPE27769)) goto l15022; /* x67928 */ /* x67927 */ /* x67926 stalin.sc:2854:95686 */ /* x67925 stalin.sc:2854:95712 */ t79960 = a21635; /* x67924 stalin.sc:2854:95687 */ a37598 = t79960; /* x283061 */ /* x283060 */ t79961 = a37598; /* x283059 */ if ((t79961.tag)==STRUCTURE_TYPE27769) return (((unsigned)(t79961.value.structure_type27769->s5))<<1)+1; backtrace_internal("[clone STRUCTURE-TYPE-USE-COUNT[6209] 32515]"); structure_ref_error(); l15022: /* x67959 */ /* x67931 stalin.sc:2855:95724 */ /* x67930 stalin.sc:2855:95745 */ t79947 = a21635; /* x67929 stalin.sc:2855:95725 */ a37571 = t79947; /* x282953 */ /* x282952 */ t79948 = a37571; /* x282951 */ if (!((t79948.tag)==STRUCTURE_TYPE27761)) goto l15024; /* x67936 */ /* x67935 */ /* x67934 stalin.sc:2855:95748 */ /* x67933 stalin.sc:2855:95778 */ t79958 = a21635; /* x67932 stalin.sc:2855:95749 */ a37477 = t79958; /* x282577 */ /* x282576 */ t79959 = a37477; /* x282575 */ if ((t79959.tag)==STRUCTURE_TYPE27761) return (((unsigned)(t79959.value.structure_type27761->s4))<<1)+1; backtrace_internal("[clone HEADED-VECTOR-TYPE-USE-COUNT[6275] 32394]"); structure_ref_error(); l15024: /* x67958 */ /* x67939 stalin.sc:2856:95790 */ /* x67938 stalin.sc:2856:95814 */ t79949 = a21635; /* x67937 stalin.sc:2856:95791 */ a37454 = t79949; /* x282485 */ /* x282484 */ t79950 = a37454; /* x282483 */ if (!((t79950.tag)==STRUCTURE_TYPE27669)) goto l15026; /* x67944 */ /* x67943 */ /* x67942 stalin.sc:2856:95817 */ /* x67941 stalin.sc:2856:95850 */ t79956 = a21635; /* x67940 stalin.sc:2856:95818 */ a37374 = t79956; /* x282165 */ /* x282164 */ t79957 = a37374; /* x282163 */ if ((t79957.tag)==STRUCTURE_TYPE27669) return (((unsigned)(t79957.value.structure_type27669->s4))<<1)+1; backtrace_internal("[clone NONHEADED-VECTOR-TYPE-USE-COUNT[6341] 32291]"); structure_ref_error(); l15026: /* x67957 */ /* x67947 stalin.sc:2857:95862 */ /* x67946 stalin.sc:2857:95886 */ t79951 = a21635; /* x67945 stalin.sc:2857:95863 */ a37353 = t79951; /* x282081 */ /* x282080 */ t79952 = a37353; /* x282079 */ if (!((t79952.tag)==STRUCTURE_TYPE27908)) goto l15028; /* x67952 */ /* x67951 */ /* x67950 stalin.sc:2857:95889 */ /* x67949 stalin.sc:2857:95922 */ t79954 = a21635; /* x67948 stalin.sc:2857:95890 */ a37290 = t79954; /* x281829 */ /* x281828 */ t79955 = a37290; /* x281827 */ if ((t79955.tag)==STRUCTURE_TYPE27908) return (((unsigned)(t79955.value.structure_type27908->s3))<<1)+1; backtrace_internal("[clone DISPLACED-VECTOR-TYPE-USE-COUNT[6399] 32207]"); structure_ref_error(); l15028: /* x67956 */ /* x67955 */ /* x67954 stalin.sc:2858:95939 */ /* x67953 stalin.sc:2858:95940 */ /* x297445 QobiScheme.sc:166:5314 */ /* x297444 QobiScheme.sc:166:5321 */ t79953 = "This shouldn\'t happen"; /* x297443 QobiScheme.sc:166:5315 */ stalin_panic(t79953);} /* TYPE-INDEX[7936] */ unsigned f7936(struct w49 a21634) {struct w49 a19469; /* S */ struct w49 a19603; /* S */ struct w49 a19692; /* S */ struct w49 a19749; /* S */ struct w49 a19827; /* S */ struct w49 a37292; /* S */ struct w49 a37352; /* OBJ */ struct w49 a37376; /* S */ struct w49 a37453; /* OBJ */ struct w49 a37479; /* S */ struct w49 a37570; /* OBJ */ struct w49 a37600; /* S */ struct w49 a37713; /* OBJ */ struct w49 a37784; /* OBJ */ struct w49 a37906; /* OBJ */ struct w49 a37978; /* OBJ */ struct w49 a38127; /* OBJ */ struct w49 a38138; /* S */ struct w49 a38234; /* OBJ */ struct w49 a38293; /* OBJ */ struct w49 a38303; /* S */ struct w49 a38333; /* OBJ */ struct w49 t79976; struct w49 t79977; struct w49 t79978; struct w49 t79979; struct w49 t79980; struct w49 t79981; struct w49 t79982; struct w49 t79983; struct w49 t79984; struct w49 t79985; struct w49 t79986; struct w49 t79987; struct w49 t79988; struct w49 t79989; struct w49 t79990; struct w49 t79991; struct w49 t79992; struct w49 t79993; struct w49 t79994; struct w49 t79995; struct w49 t79996; struct w49 t79997; struct w49 t79998; struct w49 t79999; struct w49 t80000; struct w49 t80001; struct w49 t80002; struct w49 t80003; struct w49 t80004; struct w49 t80005; struct w49 t80006; struct w49 t80007; struct w49 t80008; char *t80009; struct w49 t80010; struct w49 t80011; struct w49 t80012; struct w49 t80013; struct w49 t80014; struct w49 t80015; struct w49 t80016; struct w49 t80017; struct w49 t80018; struct w49 t80019; struct w49 t80020; struct w49 t80021; struct w49 t80022; struct w49 t80023; struct w49 t80024; struct w49 t80025; struct w49 t80026; struct w49 t80027; struct w49 t80028; struct w49 t80029; struct w49 t80030; struct w49 t80031; /* x67796 stalin.sc:2811:93526 */ /* x67619 stalin.sc:2811:93533 */ /* x67618 stalin.sc:2811:93545 */ t79976 = a21634; /* x67617 stalin.sc:2811:93534 */ if (f7677(t79976)==FALSE_TYPE) goto l15030; /* x67622 */ /* x67621 */ /* x67620 stalin.sc:2811:93548 */ return (((unsigned)0)<<1)+1; l15030: /* x67795 */ /* x67625 stalin.sc:2812:93559 */ /* x67624 stalin.sc:2812:93571 */ t79977 = a21634; /* x67623 stalin.sc:2812:93560 */ if (f7678(t79977)==FALSE_TYPE) goto l15032; /* x67628 */ /* x67627 */ /* x67626 stalin.sc:2812:93574 */ return (((unsigned)1)<<1)+1; l15032: /* x67794 */ /* x67631 stalin.sc:2813:93585 */ /* x67630 stalin.sc:2813:93598 */ t79978 = a21634; /* x67629 stalin.sc:2813:93586 */ if (f7679(t79978)==FALSE_TYPE) goto l15034; /* x67634 */ /* x67633 */ /* x67632 stalin.sc:2813:93601 */ return (((unsigned)2)<<1)+1; l15034: /* x67793 */ /* x67637 stalin.sc:2814:93612 */ /* x67636 stalin.sc:2814:93624 */ t79979 = a21634; /* x67635 stalin.sc:2814:93613 */ if (f7682(t79979)==FALSE_TYPE) goto l15036; /* x67640 */ /* x67639 */ /* x67638 stalin.sc:2814:93627 */ return (((unsigned)3)<<1)+1; l15036: /* x67792 */ /* x67643 stalin.sc:2815:93638 */ /* x67642 stalin.sc:2815:93652 */ t79980 = a21634; /* x67641 stalin.sc:2815:93639 */ if (f7683(t79980)==FALSE_TYPE) goto l15038; /* x67646 */ /* x67645 */ /* x67644 stalin.sc:2815:93655 */ return (((unsigned)4)<<1)+1; l15038: /* x67791 */ /* x67649 stalin.sc:2816:93666 */ /* x67648 stalin.sc:2816:93680 */ t79981 = a21634; /* x67647 stalin.sc:2816:93667 */ if (f7684(t79981)==FALSE_TYPE) goto l15040; /* x67652 */ /* x67651 */ /* x67650 stalin.sc:2816:93683 */ return (((unsigned)5)<<1)+1; l15040: /* x67790 */ /* x67655 stalin.sc:2817:93694 */ /* x67654 stalin.sc:2817:93713 */ t79982 = a21634; /* x67653 stalin.sc:2817:93695 */ if (f7687(t79982)==FALSE_TYPE) goto l15042; /* x67658 */ /* x67657 */ /* x67656 stalin.sc:2817:93716 */ return (((unsigned)6)<<1)+1; l15042: /* x67789 */ /* x67661 stalin.sc:2818:93727 */ /* x67660 stalin.sc:2818:93745 */ t79983 = a21634; /* x67659 stalin.sc:2818:93728 */ if (f7700(t79983)==FALSE_TYPE) goto l15044; /* x67664 */ /* x67663 */ /* x67662 stalin.sc:2818:93748 */ return (((unsigned)7)<<1)+1; l15044: /* x67788 */ /* x67667 stalin.sc:2819:93759 */ /* x67666 stalin.sc:2819:93778 */ t79984 = a21634; /* x67665 stalin.sc:2819:93760 */ if (f7701(t79984)==FALSE_TYPE) goto l15046; /* x67670 */ /* x67669 */ /* x67668 stalin.sc:2819:93781 */ return (((unsigned)8)<<1)+1; l15046: /* x67787 */ /* x67673 stalin.sc:2820:93792 */ /* x67672 stalin.sc:2820:93810 */ t79985 = a21634; /* x67671 stalin.sc:2820:93793 */ if (f7702(t79985)==FALSE_TYPE) goto l15048; /* x67676 */ /* x67675 */ /* x67674 stalin.sc:2820:93813 */ return (((unsigned)9)<<1)+1; l15048: /* x67786 */ /* x67679 stalin.sc:2821:93824 */ /* x67678 stalin.sc:2821:93839 */ t79986 = a21634; /* x67677 stalin.sc:2821:93825 */ if (f7703(t79986)==FALSE_TYPE) goto l15050; /* x67682 */ /* x67681 */ /* x67680 stalin.sc:2821:93842 */ return (((unsigned)10)<<1)+1; l15050: /* x67785 */ /* x67685 stalin.sc:2822:93854 */ /* x67684 stalin.sc:2822:93877 */ t79987 = a21634; /* x67683 stalin.sc:2822:93855 */ a38333 = t79987; /* x286001 */ /* x286000 */ t79988 = a38333; /* x285999 */ if (!((t79988.tag)==STRUCTURE_TYPE27776)) goto l15052; /* x67690 */ /* x67689 */ /* x67688 stalin.sc:2822:93880 */ /* x67687 stalin.sc:2822:93908 */ t80030 = a21634; /* x67686 stalin.sc:2822:93881 */ a38303 = t80030; /* x285881 */ /* x285880 */ t80031 = a38303; /* x285879 */ if ((t80031.tag)==STRUCTURE_TYPE27776) return t80031.value.structure_type27776->s1; backtrace_internal("[clone INTERNAL-SYMBOL-TYPE-INDEX[5811] 33220]"); structure_ref_error(); l15052: /* x67784 */ /* x67693 stalin.sc:2823:93920 */ /* x67692 stalin.sc:2823:93943 */ t79989 = a21634; /* x67691 stalin.sc:2823:93921 */ a38293 = t79989; /* x285841 */ /* x285840 */ t79990 = a38293; /* x285839 */ if (!((t79990.tag)==STRUCTURE_TYPE27779)) goto l15054; /* x67698 */ /* x67697 */ /* x67696 stalin.sc:2823:93946 */ /* x67695 stalin.sc:2823:93974 */ t80028 = a21634; /* x67694 stalin.sc:2823:93947 */ a19469 = t80028; /* x51480 */ /* x51479 */ t80029 = a19469; /* x51478 */ if ((t80029.tag)==STRUCTURE_TYPE27779) return t80029.value.structure_type27779->s2; backtrace_internal("EXTERNAL-SYMBOL-TYPE-INDEX[5861]"); structure_ref_error(); l15054: /* x67783 */ /* x67701 stalin.sc:2824:93986 */ /* x67700 stalin.sc:2824:94013 */ t79991 = a21634; /* x67699 stalin.sc:2824:93987 */ a38234 = t79991; /* x285605 */ /* x285604 */ t79992 = a38234; /* x285603 */ if (!((t79992.tag)==STRUCTURE_TYPE27753)) goto l15056; /* x67706 */ /* x67705 */ /* x67704 stalin.sc:2824:94016 */ /* x67703 stalin.sc:2824:94048 */ t80026 = a21634; /* x67702 stalin.sc:2824:94017 */ a38138 = t80026; /* x285221 */ /* x285220 */ t80027 = a38138; /* x285219 */ if ((t80027.tag)==STRUCTURE_TYPE27753) return t80027.value.structure_type27753->s2; backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-INDEX[5911] 33055]"); structure_ref_error(); l15056: /* x67782 */ /* x67709 stalin.sc:2825:94060 */ /* x67708 stalin.sc:2825:94084 */ t79993 = a21634; /* x67707 stalin.sc:2825:94061 */ a38127 = t79993; /* x285177 */ /* x285176 */ t79994 = a38127; /* x285175 */ if (!((t79994.tag)==STRUCTURE_TYPE27756)) goto l15058; /* x67714 */ /* x67713 */ /* x67712 stalin.sc:2825:94087 */ /* x67711 stalin.sc:2825:94116 */ t80024 = a21634; /* x67710 stalin.sc:2825:94088 */ a19603 = t80024; /* x51978 */ /* x51977 */ t80025 = a19603; /* x51976 */ if ((t80025.tag)==STRUCTURE_TYPE27756) return t80025.value.structure_type27756->s2; backtrace_internal("NATIVE-PROCEDURE-TYPE-INDEX[5961]"); structure_ref_error(); l15058: /* x67781 */ /* x67717 stalin.sc:2826:94128 */ /* x67716 stalin.sc:2826:94153 */ t79995 = a21634; /* x67715 stalin.sc:2826:94129 */ a37978 = t79995; /* x284581 */ /* x284580 */ t79996 = a37978; /* x284579 */ if (!((t79996.tag)==STRUCTURE_TYPE27750)) goto l15060; /* x67722 */ /* x67721 */ /* x67720 stalin.sc:2826:94156 */ /* x67719 stalin.sc:2826:94186 */ t80022 = a21634; /* x67718 stalin.sc:2826:94157 */ a19692 = t80022; /* x52307 */ /* x52306 */ t80023 = a19692; /* x52305 */ if ((t80023.tag)==STRUCTURE_TYPE27750) return t80023.value.structure_type27750->s4; backtrace_internal("FOREIGN-PROCEDURE-TYPE-INDEX[6027]"); structure_ref_error(); l15060: /* x67780 */ /* x67725 stalin.sc:2827:94198 */ /* x67724 stalin.sc:2827:94218 */ t79997 = a21634; /* x67723 stalin.sc:2827:94199 */ a37906 = t79997; /* x284293 */ /* x284292 */ t79998 = a37906; /* x284291 */ if (!((t79998.tag)==STRUCTURE_TYPE27858)) goto l15062; /* x67730 */ /* x67729 */ /* x67728 stalin.sc:2827:94221 */ /* x67727 stalin.sc:2827:94246 */ t80020 = a21634; /* x67726 stalin.sc:2827:94222 */ a19749 = t80020; /* x52517 */ /* x52516 */ t80021 = a19749; /* x52515 */ if ((t80021.tag)==STRUCTURE_TYPE27858) return t80021.value.structure_type27858->s1; backtrace_internal("CONTINUATION-TYPE-INDEX[6069]"); structure_ref_error(); l15062: /* x67779 */ /* x67733 stalin.sc:2828:94258 */ /* x67732 stalin.sc:2828:94272 */ t79999 = a21634; /* x67731 stalin.sc:2828:94259 */ a37784 = t79999; /* x283805 */ /* x283804 */ t80000 = a37784; /* x283803 */ if (!((t80000.tag)==STRUCTURE_TYPE27673)) goto l15064; /* x67738 */ /* x67737 */ /* x67736 stalin.sc:2828:94275 */ /* x67735 stalin.sc:2828:94294 */ t80018 = a21634; /* x67734 stalin.sc:2828:94276 */ a19827 = t80018; /* x52806 */ /* x52805 */ t80019 = a19827; /* x52804 */ if ((t80019.tag)==STRUCTURE_TYPE27673) return t80019.value.structure_type27673->s2; backtrace_internal("STRING-TYPE-INDEX[6127]"); structure_ref_error(); l15064: /* x67778 */ /* x67741 stalin.sc:2829:94306 */ /* x67740 stalin.sc:2829:94323 */ t80001 = a21634; /* x67739 stalin.sc:2829:94307 */ a37713 = t80001; /* x283521 */ /* x283520 */ t80002 = a37713; /* x283519 */ if (!((t80002.tag)==STRUCTURE_TYPE27769)) goto l15066; /* x67746 */ /* x67745 */ /* x67744 stalin.sc:2829:94326 */ /* x67743 stalin.sc:2829:94348 */ t80016 = a21634; /* x67742 stalin.sc:2829:94327 */ a37600 = t80016; /* x283069 */ /* x283068 */ t80017 = a37600; /* x283067 */ if ((t80017.tag)==STRUCTURE_TYPE27769) return t80017.value.structure_type27769->s4; backtrace_internal("[clone STRUCTURE-TYPE-INDEX[6201] 32517]"); structure_ref_error(); l15066: /* x67777 */ /* x67749 stalin.sc:2830:94360 */ /* x67748 stalin.sc:2830:94381 */ t80003 = a21634; /* x67747 stalin.sc:2830:94361 */ a37570 = t80003; /* x282949 */ /* x282948 */ t80004 = a37570; /* x282947 */ if (!((t80004.tag)==STRUCTURE_TYPE27761)) goto l15068; /* x67754 */ /* x67753 */ /* x67752 stalin.sc:2830:94384 */ /* x67751 stalin.sc:2830:94410 */ t80014 = a21634; /* x67750 stalin.sc:2830:94385 */ a37479 = t80014; /* x282585 */ /* x282584 */ t80015 = a37479; /* x282583 */ if ((t80015.tag)==STRUCTURE_TYPE27761) return t80015.value.structure_type27761->s3; backtrace_internal("[clone HEADED-VECTOR-TYPE-INDEX[6267] 32396]"); structure_ref_error(); l15068: /* x67776 */ /* x67757 stalin.sc:2831:94422 */ /* x67756 stalin.sc:2831:94446 */ t80005 = a21634; /* x67755 stalin.sc:2831:94423 */ a37453 = t80005; /* x282481 */ /* x282480 */ t80006 = a37453; /* x282479 */ if (!((t80006.tag)==STRUCTURE_TYPE27669)) goto l15070; /* x67762 */ /* x67761 */ /* x67760 stalin.sc:2831:94449 */ /* x67759 stalin.sc:2831:94478 */ t80012 = a21634; /* x67758 stalin.sc:2831:94450 */ a37376 = t80012; /* x282173 */ /* x282172 */ t80013 = a37376; /* x282171 */ if ((t80013.tag)==STRUCTURE_TYPE27669) return t80013.value.structure_type27669->s3; backtrace_internal("[clone NONHEADED-VECTOR-TYPE-INDEX[6333] 32293]"); structure_ref_error(); l15070: /* x67775 */ /* x67765 stalin.sc:2832:94490 */ /* x67764 stalin.sc:2832:94514 */ t80007 = a21634; /* x67763 stalin.sc:2832:94491 */ a37352 = t80007; /* x282077 */ /* x282076 */ t80008 = a37352; /* x282075 */ if (!((t80008.tag)==STRUCTURE_TYPE27908)) goto l15072; /* x67770 */ /* x67769 */ /* x67768 stalin.sc:2832:94517 */ /* x67767 stalin.sc:2832:94546 */ t80010 = a21634; /* x67766 stalin.sc:2832:94518 */ a37292 = t80010; /* x281837 */ /* x281836 */ t80011 = a37292; /* x281835 */ if ((t80011.tag)==STRUCTURE_TYPE27908) return t80011.value.structure_type27908->s2; backtrace_internal("[clone DISPLACED-VECTOR-TYPE-INDEX[6391] 32209]"); structure_ref_error(); l15072: /* x67774 */ /* x67773 */ /* x67772 stalin.sc:2833:94563 */ /* x67771 stalin.sc:2833:94564 */ /* x297441 QobiScheme.sc:166:5314 */ /* x297440 QobiScheme.sc:166:5321 */ t80009 = "This shouldn\'t happen"; /* x297439 QobiScheme.sc:166:5315 */ stalin_panic(t80009);} /* VECTOR-TYPE-ELEMENT[7931] */ struct w49 f7931(struct w49 a21633) {struct w49 a37305; /* S */ struct w49 a37341; /* OBJ */ struct w49 a37395; /* S */ struct w49 a37439; /* OBJ */ struct w49 a37508; /* S */ struct w49 a37556; /* OBJ */ struct w49 t80032; struct w49 t80033; struct w49 t80034; struct w49 t80035; struct w49 t80036; struct w49 t80037; char *t80038; struct w49 t80039; struct w49 t80040; struct w49 t80041; struct w49 t80042; struct w49 t80043; struct w49 t80044; struct w49 t80045; h7931: /* x67614 stalin.sc:2804:93235 */ /* x67584 stalin.sc:2804:93242 */ /* x67583 stalin.sc:2804:93263 */ t80032 = a21633; /* x67582 stalin.sc:2804:93243 */ a37556 = t80032; /* x282893 */ /* x282892 */ t80033 = a37556; /* x282891 */ if (!((t80033.tag)==STRUCTURE_TYPE27761)) goto l15074; /* x67589 */ /* x67588 */ /* x67587 stalin.sc:2804:93266 */ /* x67586 stalin.sc:2804:93294 */ t80044 = a21633; /* x67585 stalin.sc:2804:93267 */ a37508 = t80044; /* x282701 */ /* x282700 */ t80045 = a37508; /* x282699 */ if ((t80045.tag)==STRUCTURE_TYPE27761) return t80045.value.structure_type27761->s0; backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32425]"); structure_ref_error(); l15074: /* x67613 */ /* x67592 stalin.sc:2805:93306 */ /* x67591 stalin.sc:2805:93330 */ t80034 = a21633; /* x67590 stalin.sc:2805:93307 */ a37439 = t80034; /* x282425 */ /* x282424 */ t80035 = a37439; /* x282423 */ if (!((t80035.tag)==STRUCTURE_TYPE27669)) goto l15076; /* x67597 */ /* x67596 */ /* x67595 stalin.sc:2805:93333 */ /* x67594 stalin.sc:2805:93364 */ t80042 = a21633; /* x67593 stalin.sc:2805:93334 */ a37395 = t80042; /* x282249 */ /* x282248 */ t80043 = a37395; /* x282247 */ if ((t80043.tag)==STRUCTURE_TYPE27669) return t80043.value.structure_type27669->s0; backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ELEMENT[6309] 32312]"); structure_ref_error(); l15076: /* x67612 */ /* x67600 stalin.sc:2806:93376 */ /* x67599 stalin.sc:2806:93400 */ t80036 = a21633; /* x67598 stalin.sc:2806:93377 */ a37341 = t80036; /* x282033 */ /* x282032 */ t80037 = a37341; /* x282031 */ if (!((t80037.tag)==STRUCTURE_TYPE27908)) goto l15078; /* x67607 */ /* x67606 */ /* x67605 stalin.sc:2807:93404 */ /* x67604 stalin.sc:2807:93425 */ /* x67603 stalin.sc:2807:93470 */ t80040 = a21633; /* x67602 stalin.sc:2807:93426 */ a37305 = t80040; /* x281889 */ /* x281888 */ t80041 = a37305; /* x281887 */ if (!((t80041.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-DISPLACED-VECTOR-TYPE[6375] 32222]"); structure_ref_error();} t80039 = t80041.value.structure_type27908->s0; /* x67601 stalin.sc:2807:93405 */ a21633 = t80039; goto h7931; l15078: /* x67611 */ /* x67610 */ /* x67609 stalin.sc:2808:93488 */ /* x67608 stalin.sc:2808:93489 */ /* x297197 QobiScheme.sc:166:5314 */ /* x297196 QobiScheme.sc:166:5321 */ t80038 = "This shouldn\'t happen"; /* x297195 QobiScheme.sc:166:5315 */ stalin_panic(t80038);} /* PAIR-TYPE-CDR[7927] */ struct w49 f7927(struct w49 a21631) {struct w49 a37633; /* S */ struct w11873 t80046; struct w49 t80047; struct w49 t80048; struct w49 t80049; struct w49 t80050; char *t80051; /* x67579 */ /* x67578 stalin.sc:2800:93131 */ /* x67571 stalin.sc:2800:93139 */ /* x67570 stalin.sc:2800:93151 */ t80050 = a21631; /* x67569 stalin.sc:2800:93140 */ if (f7719(t80050)==FALSE_TYPE) goto l15080; /* x67573 */ /* x67572 */ goto l15081; l15080: /* x67577 */ /* x67576 */ /* x67575 stalin.sc:2800:93154 */ /* x67574 stalin.sc:2800:93155 */ /* x296525 QobiScheme.sc:166:5314 */ /* x296524 QobiScheme.sc:166:5321 */ t80051 = "This shouldn\'t happen"; /* x296523 QobiScheme.sc:166:5315 */ stalin_panic(t80051); l15081: /* x67568 */ /* x67567 stalin.sc:2801:93166 */ /* x67566 stalin.sc:2801:93174 */ /* x67565 stalin.sc:2801:93196 */ t80048 = a21631; /* x67564 stalin.sc:2801:93175 */ a37633 = t80048; /* x283201 */ /* x283200 */ t80049 = a37633; /* x283199 */ if (!((t80049.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32550]"); structure_ref_error();} t80046 = t80049.value.structure_type27769->s1; /* x67563 stalin.sc:2801:93167 */ t80047 = *((struct w49 *)(&t80046)); return f26181(t80047);} /* PAIR-TYPE-CAR[7923] */ struct w49 f7923(struct w49 a21629) {struct w11873 a35704; /* PAIR */ struct w49 a37634; /* S */ struct w11873 t80052; struct w11873 t80053; struct w49 t80054; struct w49 t80055; struct w49 t80056; char *t80057; /* x67560 */ /* x67559 stalin.sc:2796:93034 */ /* x67552 stalin.sc:2796:93042 */ /* x67551 stalin.sc:2796:93054 */ t80056 = a21629; /* x67550 stalin.sc:2796:93043 */ if (f7719(t80056)==FALSE_TYPE) goto l15083; /* x67554 */ /* x67553 */ goto l15084; l15083: /* x67558 */ /* x67557 */ /* x67556 stalin.sc:2796:93057 */ /* x67555 stalin.sc:2796:93058 */ /* x296529 QobiScheme.sc:166:5314 */ /* x296528 QobiScheme.sc:166:5321 */ t80057 = "This shouldn\'t happen"; /* x296527 QobiScheme.sc:166:5315 */ stalin_panic(t80057); l15084: /* x67549 */ /* x67548 stalin.sc:2797:93069 */ /* x67547 stalin.sc:2797:93076 */ /* x67546 stalin.sc:2797:93098 */ t80054 = a21629; /* x67545 stalin.sc:2797:93077 */ a37634 = t80054; /* x283205 */ /* x283204 */ t80055 = a37634; /* x283203 */ if (!((t80055.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32551]"); structure_ref_error();} t80052 = t80055.value.structure_type27769->s1; /* x67544 stalin.sc:2797:93070 */ a35704 = t80052; /* x274173 */ /* x274172 */ t80053 = a35704; /* x274171 */ if ((t80053.tag)==STRUCTURE_TYPE24753) return t80053.value.structure_type24753->s0; backtrace_internal("[clone CAR[26176] 29853]"); structure_ref_error();} /* TRULY-COMPATIBLE-CALL-VIA-MUTEX?[7922] */ unsigned f7922(struct w49 a21628) {struct structure_type24753 *a35148; /* OBJS */ struct w49 a39924; /* S */ struct structure_type24753 *t80058; struct structure_type27650 *t80059; struct structure_type27745 *t80060; struct w49 t80061; struct w49 t80062; struct structure_type27745 *t80063; struct w49 t80064; struct w49 t80065; struct w49 t80066; struct w49 t80067; struct w49 t80068; struct structure_type27745 *t80069; char *t80070; struct structure_type27745 *t80071; struct w49 t80072; /* x67541 stalin.sc:2786:92793 */ /* x67533 stalin.sc:2787:92824 */ /* x67524 stalin.sc:2787:92828 */ /* x67523 stalin.sc:2787:92840 */ t80064 = a21628; /* x67522 stalin.sc:2787:92829 */ if (f8944(t80064)==FALSE_TYPE) goto l15086; /* x67531 stalin.sc:2788:92849 */ /* x67530 stalin.sc:2788:92855 */ /* x67529 stalin.sc:2788:92876 */ /* x67528 stalin.sc:2788:92899 */ t80068 = a21628; /* x67527 stalin.sc:2788:92877 */ t80066 = f6994(t80068); /* x67526 stalin.sc:2788:92856 */ a39924 = t80066; /* x292365 */ /* x292364 */ t80067 = a39924; /* x292363 */ if (!((t80067.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34841]"); structure_ref_error();} t80065 = t80067.value.structure_type27698->s10; /* x67525 stalin.sc:2788:92850 */ a35148 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35148==NULL) {backtrace("stalin.sc", 2788, 92849); out_of_memory_error();} a35148->s0 = t80065; a35148->s1.tag = NULL_TYPE; /* x272303 */ t80058 = a35148; goto l15087; l15086: /* x67532 stalin.sc:2789:92910 */ t80058 = (struct structure_type24753 *)NULL_TYPE; l15087: /* x67534 stalin.sc:2790:92917 */ t80059 = a1675; /* x67540 stalin.sc:2791:92926 */ /* x67538 stalin.sc:2791:92946 */ /* x67537 stalin.sc:2791:92964 */ t80072 = a21628; /* x67536 stalin.sc:2791:92947 */ t80069 = f8739(t80072); /* x67539 stalin.sc:2791:92967 */ t80070 = q64; /* x67535 stalin.sc:2791:92927 */ t80071 = t80069; t80060 = f8743(t80071, t80070); /* x67521 stalin.sc:2786:92794 */ /* MOVE: branching squeezed to general */ if (t80058>=((struct structure_type24753 *)VALUE_OFFSET)) {t80061.tag = STRUCTURE_TYPE24753; t80061.value.structure_type24753 = t80058;} else t80061.tag = (unsigned)t80058; /* MOVE: branching squeezed to general */ if (t80059>=((struct structure_type27650 *)VALUE_OFFSET)) {t80062.tag = STRUCTURE_TYPE27650; t80062.value.structure_type27650 = t80059;} else t80062.tag = (unsigned)t80059; t80063 = t80060; return f7892(t80061, t80062, t80063);} /* TRULY-COMPATIBLE-CALL-VIA-FORK2?[7921] */ unsigned f7921(struct w49 a21627) {struct structure_type24753 *a35149; /* OBJS */ struct w49 a39926; /* S */ struct structure_type24753 *t80073; struct structure_type27650 *t80074; struct structure_type27745 *t80075; struct w49 t80076; struct w49 t80077; struct structure_type27745 *t80078; struct w49 t80079; struct w49 t80080; struct w49 t80081; struct w49 t80082; struct w49 t80083; struct structure_type27745 *t80084; char *t80085; struct structure_type27745 *t80086; struct w49 t80087; /* x67518 stalin.sc:2778:92552 */ /* x67510 stalin.sc:2779:92583 */ /* x67501 stalin.sc:2779:92587 */ /* x67500 stalin.sc:2779:92599 */ t80079 = a21627; /* x67499 stalin.sc:2779:92588 */ if (f8944(t80079)==FALSE_TYPE) goto l15089; /* x67508 stalin.sc:2780:92608 */ /* x67507 stalin.sc:2780:92614 */ /* x67506 stalin.sc:2780:92635 */ /* x67505 stalin.sc:2780:92658 */ t80083 = a21627; /* x67504 stalin.sc:2780:92636 */ t80081 = f6994(t80083); /* x67503 stalin.sc:2780:92615 */ a39926 = t80081; /* x292373 */ /* x292372 */ t80082 = a39926; /* x292371 */ if (!((t80082.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34843]"); structure_ref_error();} t80080 = t80082.value.structure_type27698->s10; /* x67502 stalin.sc:2780:92609 */ a35149 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35149==NULL) {backtrace("stalin.sc", 2780, 92608); out_of_memory_error();} a35149->s0 = t80080; a35149->s1.tag = NULL_TYPE; /* x272305 */ t80073 = a35149; goto l15090; l15089: /* x67509 stalin.sc:2781:92669 */ t80073 = (struct structure_type24753 *)NULL_TYPE; l15090: /* x67511 stalin.sc:2782:92676 */ t80074 = a1675; /* x67517 stalin.sc:2783:92685 */ /* x67515 stalin.sc:2783:92705 */ /* x67514 stalin.sc:2783:92723 */ t80087 = a21627; /* x67513 stalin.sc:2783:92706 */ t80084 = f8739(t80087); /* x67516 stalin.sc:2783:92726 */ t80085 = q65; /* x67512 stalin.sc:2783:92686 */ t80086 = t80084; t80075 = f8743(t80086, t80085); /* x67498 stalin.sc:2778:92553 */ /* MOVE: branching squeezed to general */ if (t80073>=((struct structure_type24753 *)VALUE_OFFSET)) {t80076.tag = STRUCTURE_TYPE24753; t80076.value.structure_type24753 = t80073;} else t80076.tag = (unsigned)t80073; /* MOVE: branching squeezed to general */ if (t80074>=((struct structure_type27650 *)VALUE_OFFSET)) {t80077.tag = STRUCTURE_TYPE27650; t80077.value.structure_type27650 = t80074;} else t80077.tag = (unsigned)t80074; t80078 = t80075; return f7892(t80076, t80077, t80078);} /* TRULY-COMPATIBLE-CALL-VIA-FORK1?[7920] */ unsigned f7920(struct w49 a21626) {struct structure_type24753 *a35150; /* OBJS */ struct w49 a39928; /* S */ struct structure_type24753 *t80088; struct structure_type27650 *t80089; struct structure_type27745 *t80090; struct w49 t80091; struct w49 t80092; struct structure_type27745 *t80093; struct w49 t80094; struct w49 t80095; struct w49 t80096; struct w49 t80097; struct w49 t80098; struct structure_type27745 *t80099; char *t80100; struct structure_type27745 *t80101; struct w49 t80102; /* x67495 stalin.sc:2770:92312 */ /* x67487 stalin.sc:2771:92343 */ /* x67478 stalin.sc:2771:92347 */ /* x67477 stalin.sc:2771:92359 */ t80094 = a21626; /* x67476 stalin.sc:2771:92348 */ if (f8944(t80094)==FALSE_TYPE) goto l15092; /* x67485 stalin.sc:2772:92368 */ /* x67484 stalin.sc:2772:92374 */ /* x67483 stalin.sc:2772:92395 */ /* x67482 stalin.sc:2772:92418 */ t80098 = a21626; /* x67481 stalin.sc:2772:92396 */ t80096 = f6994(t80098); /* x67480 stalin.sc:2772:92375 */ a39928 = t80096; /* x292381 */ /* x292380 */ t80097 = a39928; /* x292379 */ if (!((t80097.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34845]"); structure_ref_error();} t80095 = t80097.value.structure_type27698->s10; /* x67479 stalin.sc:2772:92369 */ a35150 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35150==NULL) {backtrace("stalin.sc", 2772, 92368); out_of_memory_error();} a35150->s0 = t80095; a35150->s1.tag = NULL_TYPE; /* x272307 */ t80088 = a35150; goto l15093; l15092: /* x67486 stalin.sc:2773:92429 */ t80088 = (struct structure_type24753 *)NULL_TYPE; l15093: /* x67488 stalin.sc:2774:92436 */ t80089 = a1675; /* x67494 stalin.sc:2775:92445 */ /* x67492 stalin.sc:2775:92465 */ /* x67491 stalin.sc:2775:92483 */ t80102 = a21626; /* x67490 stalin.sc:2775:92466 */ t80099 = f8739(t80102); /* x67493 stalin.sc:2775:92486 */ t80100 = q64; /* x67489 stalin.sc:2775:92446 */ t80101 = t80099; t80090 = f8743(t80101, t80100); /* x67475 stalin.sc:2770:92313 */ /* MOVE: branching squeezed to general */ if (t80088>=((struct structure_type24753 *)VALUE_OFFSET)) {t80091.tag = STRUCTURE_TYPE24753; t80091.value.structure_type24753 = t80088;} else t80091.tag = (unsigned)t80088; /* MOVE: branching squeezed to general */ if (t80089>=((struct structure_type27650 *)VALUE_OFFSET)) {t80092.tag = STRUCTURE_TYPE27650; t80092.value.structure_type27650 = t80089;} else t80092.tag = (unsigned)t80089; t80093 = t80090; return f7892(t80091, t80092, t80093);} /* TRULY-COMPATIBLE-CALL-VIA-CALL-WITH-CURRENT-CONTINUATION?[7919] */ unsigned f7919(struct w49 a21625) {struct structure_type24753 *a35151; /* OBJS */ struct structure_type24753 *a35152; /* OBJS */ struct w49 a39930; /* S */ struct w49 a39931; /* S */ struct structure_type24753 *t80103; struct structure_type27650 *t80104; struct structure_type27745 *t80105; struct w49 t80106; struct w49 t80107; struct structure_type27745 *t80108; struct w49 t80109; struct structure_type27650 *t80110; struct structure_type27858 *t80111; struct structure_type24753 *t80112; struct w49 t80113; struct w49 t80114; struct w49 t80115; struct w49 t80116; struct w49 t80117; struct w49 t80118; struct w49 t80119; struct w49 t80120; struct w49 t80121; struct w49 t80122; struct structure_type27745 *t80123; char *t80124; struct structure_type27745 *t80125; struct w49 t80126; /* x67472 stalin.sc:2761:91969 */ /* x67464 stalin.sc:2762:92000 */ /* x67444 stalin.sc:2762:92004 */ /* x67443 stalin.sc:2762:92016 */ t80109 = a21625; /* x67442 stalin.sc:2762:92005 */ if (f8944(t80109)==FALSE_TYPE) goto l15095; /* x67456 stalin.sc:2763:92025 */ /* x67455 stalin.sc:2764:92084 */ /* x67454 stalin.sc:2764:92105 */ /* x67453 stalin.sc:2764:92128 */ t80122 = a21625; /* x67452 stalin.sc:2764:92106 */ t80120 = f6994(t80122); /* x67451 stalin.sc:2764:92085 */ a39931 = t80120; /* x292393 */ /* x292392 */ t80121 = a39931; /* x292391 */ if (!((t80121.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34848]"); structure_ref_error();} t80115 = t80121.value.structure_type27698->s10; /* x67450 stalin.sc:2763:92031 */ /* x67449 stalin.sc:2763:92052 */ /* x67448 stalin.sc:2763:92075 */ t80119 = a21625; /* x67447 stalin.sc:2763:92053 */ t80117 = f6994(t80119); /* x67446 stalin.sc:2763:92032 */ a39930 = t80117; /* x292389 */ /* x292388 */ t80118 = a39930; /* x292387 */ if (!((t80118.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34847]"); structure_ref_error();} t80114 = t80118.value.structure_type27698->s10; /* x67445 stalin.sc:2763:92026 */ t80116.tag = STRUCTURE_TYPE24753; t80116.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t80116.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2763, 92025); out_of_memory_error();} t80116.value.structure_type24753->s0 = t80115; t80116.value.structure_type24753->s1.tag = NULL_TYPE; a35151 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35151==NULL) {backtrace("stalin.sc", 2763, 92025); out_of_memory_error();} a35151->s0 = t80114; a35151->s1 = t80116; /* x272309 */ t80103 = a35151; goto l15096; l15095: /* x67463 stalin.sc:2765:92139 */ /* x67462 stalin.sc:2765:92145 */ /* x67461 stalin.sc:2765:92172 */ /* x67460 stalin.sc:2765:92188 */ t80113 = a21625; /* x67459 stalin.sc:2765:92173 */ t80111 = f7110(t80113); /* x67458 stalin.sc:2765:92146 */ t80112 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t80112==NULL) {backtrace("stalin.sc", 2765, 92145); out_of_memory_error();} t80112->s0.tag = STRUCTURE_TYPE27858; t80112->s0.value.structure_type27858 = t80111; t80112->s1.tag = NULL_TYPE; t80110 = f8098(t80112); /* x67457 stalin.sc:2765:92140 */ a35152 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35152==NULL) {backtrace("stalin.sc", 2765, 92139); out_of_memory_error();} a35152->s0.tag = STRUCTURE_TYPE27650; a35152->s0.value.structure_type27650 = t80110; a35152->s1.tag = NULL_TYPE; /* x272311 */ t80103 = a35152; l15096: /* x67465 stalin.sc:2766:92196 */ t80104 = a1675; /* x67471 stalin.sc:2767:92205 */ /* x67469 stalin.sc:2767:92225 */ /* x67468 stalin.sc:2767:92243 */ t80126 = a21625; /* x67467 stalin.sc:2767:92226 */ t80123 = f8739(t80126); /* x67470 stalin.sc:2767:92246 */ t80124 = q64; /* x67466 stalin.sc:2767:92206 */ t80125 = t80123; t80105 = f8743(t80125, t80124); /* x67441 stalin.sc:2761:91970 */ t80106.tag = STRUCTURE_TYPE24753; t80106.value.structure_type24753 = t80103; /* MOVE: branching squeezed to general */ if (t80104>=((struct structure_type27650 *)VALUE_OFFSET)) {t80107.tag = STRUCTURE_TYPE27650; t80107.value.structure_type27650 = t80104;} else t80107.tag = (unsigned)t80104; t80108 = t80105; return f7892(t80106, t80107, t80108);} /* TRULY-COMPATIBLE-CALL-VIA-APPLY?[7918] */ unsigned f7918(struct w49 a21624) {struct w49 a35489; /* PAIR */ struct w11873 a35490; /* PAIR */ struct w11873 a35491; /* PAIR */ struct w49 a38536; /* S */ struct w49 a38537; /* S */ struct w49 a38538; /* S */ struct w49 a39933; /* S */ struct structure_type24753 *t80127; struct w49 t80128; struct structure_type27745 *t80129; struct w49 t80130; struct structure_type27745 *t80131; struct w12224 t80132; struct w36270 t80133; struct w49 t80134; struct structure_type24753 *t80135; struct w49 t80136; struct w49 t80137; struct w11873 t80138; struct w11873 t80139; struct w49 t80140; struct w49 t80141; struct w49 t80142; struct w12224 t80143; struct w49 t80144; struct w49 t80145; struct w49 t80146; struct w49 t80147; struct w11873 t80148; struct w11873 t80149; struct w49 t80150; struct w49 t80151; struct w49 t80152; struct w49 t80153; struct w11873 t80154; struct w49 t80155; struct w49 t80156; struct w49 t80157; struct structure_type27745 *t80158; char *t80159; struct structure_type27745 *t80160; struct w49 t80161; /* x67438 stalin.sc:2751:91558 */ /* x67424 stalin.sc:2752:91589 */ /* x67423 stalin.sc:2753:91621 */ /* x67401 stalin.sc:2753:91625 */ /* x67400 stalin.sc:2753:91637 */ t80136 = a21624; /* x67399 stalin.sc:2753:91626 */ if (f8944(t80136)==FALSE_TYPE) goto l15098; /* x67415 stalin.sc:2754:91644 */ /* x67405 stalin.sc:2754:91650 */ /* x67404 stalin.sc:2754:91673 */ t80144 = a21624; /* x67403 stalin.sc:2754:91651 */ t80142 = f6994(t80144); /* x67414 stalin.sc:2755:91679 */ /* x67413 stalin.sc:2755:91689 */ /* x67412 stalin.sc:2755:91695 */ /* x67411 stalin.sc:2755:91701 */ /* x67410 stalin.sc:2755:91723 */ t80150 = a21624; /* x67409 stalin.sc:2755:91702 */ a38536 = t80150; /* x286813 */ /* x286812 */ t80151 = a38536; /* x286811 */ if (!((t80151.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33453]"); structure_ref_error();} t80148 = t80151.value.structure_type27698->s22; /* x67408 stalin.sc:2755:91696 */ a35490 = t80148; /* x273317 */ /* x273316 */ t80149 = a35490; /* x273315 */ if (!((t80149.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29639]"); structure_ref_error();} t80146 = t80149.value.structure_type24753->s1; /* x67407 stalin.sc:2755:91690 */ a35489 = t80146; /* x273313 */ /* x273312 */ t80147 = a35489; /* x273311 */ if (!((t80147.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29638]"); structure_ref_error();} t80145 = t80147.value.structure_type24753->s1; /* x67406 stalin.sc:2755:91680 */ t80143 = f1005(t80145); /* x270402 stalin.sc:2754:91645 */ t80132.tag = STRUCTURE_TYPE24753; t80132.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t80132.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2754, 91644); out_of_memory_error();} t80132.value.structure_type24753->s0 = t80142; t80132.value.structure_type24753->s1 = *((struct w49 *)(&t80143)); goto l15099; l15098: /* x67422 stalin.sc:2756:91734 */ /* x67421 stalin.sc:2756:91744 */ /* x67420 stalin.sc:2756:91750 */ /* x67419 stalin.sc:2756:91772 */ t80140 = a21624; /* x67418 stalin.sc:2756:91751 */ a38537 = t80140; /* x286817 */ /* x286816 */ t80141 = a38537; /* x286815 */ if (!((t80141.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33454]"); structure_ref_error();} t80138 = t80141.value.structure_type27698->s22; /* x67417 stalin.sc:2756:91745 */ a35491 = t80138; /* x273321 */ /* x273320 */ t80139 = a35491; /* x273319 */ if (!((t80139.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29640]"); structure_ref_error();} t80137 = t80139.value.structure_type24753->s1; /* x67416 stalin.sc:2756:91735 */ t80132 = f1005(t80137); l15099: /* x67398 stalin.sc:2752:91594 */ /* x67397 stalin.sc:2752:91590 */ t80133.tag = NATIVE_PROCEDURE_TYPE7945; t80134 = *((struct w49 *)(&t80132)); t80135 = (struct structure_type24753 *)NULL_TYPE; t80127 = f27731(t80133, t80134, t80135); /* x67431 stalin.sc:2757:91781 */ /* x67430 stalin.sc:2757:91802 */ /* x67429 stalin.sc:2757:91808 */ /* x67428 stalin.sc:2757:91830 */ t80156 = a21624; /* x67427 stalin.sc:2757:91809 */ a38538 = t80156; /* x286821 */ /* x286820 */ t80157 = a38538; /* x286819 */ if (!((t80157.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33455]"); structure_ref_error();} t80154 = t80157.value.structure_type27698->s22; /* x67426 stalin.sc:2757:91803 */ t80155 = *((struct w49 *)(&t80154)); t80152 = f960(t80155); /* x67425 stalin.sc:2757:91782 */ a39933 = t80152; /* x292401 */ /* x292400 */ t80153 = a39933; /* x292399 */ if (!((t80153.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34850]"); structure_ref_error();} t80128 = t80153.value.structure_type27698->s10; /* x67437 stalin.sc:2758:91837 */ /* x67435 stalin.sc:2758:91857 */ /* x67434 stalin.sc:2758:91875 */ t80161 = a21624; /* x67433 stalin.sc:2758:91858 */ t80158 = f8739(t80161); /* x67436 stalin.sc:2758:91878 */ t80159 = q64; /* x67432 stalin.sc:2758:91838 */ t80160 = t80158; t80129 = f8743(t80160, t80159); /* x67396 stalin.sc:2751:91559 */ /* MOVE: branching squeezed to general */ if (t80127>=((struct structure_type24753 *)VALUE_OFFSET)) {t80130.tag = STRUCTURE_TYPE24753; t80130.value.structure_type24753 = t80127;} else t80130.tag = (unsigned)t80127; t80131 = t80129; return f7892(t80130, t80128, t80131);} /* TRULY-COMPATIBLE-CALL?[7917] */ unsigned f7917(struct w49 a21623) {struct w49 a38550; /* S */ struct structure_type24753 *t80162; struct structure_type27650 *t80163; struct structure_type27745 *t80164; struct w49 t80165; struct w49 t80166; struct structure_type27745 *t80167; struct w11873 t80168; struct w36270 t80169; struct w49 t80170; struct structure_type24753 *t80171; struct w49 t80172; struct w49 t80173; struct w49 t80174; /* x67393 stalin.sc:2745:91395 */ /* x67388 stalin.sc:2746:91426 */ /* x67387 stalin.sc:2746:91451 */ /* x67386 stalin.sc:2746:91473 */ t80172 = a21623; /* x67385 stalin.sc:2746:91452 */ a38550 = t80172; /* x286869 */ /* x286868 */ t80173 = a38550; /* x286867 */ if (!((t80173.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33467]"); structure_ref_error();} t80168 = t80173.value.structure_type27698->s22; /* x67384 stalin.sc:2746:91431 */ /* x67383 stalin.sc:2746:91427 */ t80169.tag = NATIVE_PROCEDURE_TYPE7945; t80170 = *((struct w49 *)(&t80168)); t80171 = (struct structure_type24753 *)NULL_TYPE; t80162 = f27731(t80169, t80170, t80171); /* x67389 stalin.sc:2747:91479 */ t80163 = a1675; /* x67392 stalin.sc:2748:91488 */ /* x67391 stalin.sc:2748:91506 */ t80174 = a21623; /* x67390 stalin.sc:2748:91489 */ t80164 = f8739(t80174); /* x67382 stalin.sc:2745:91396 */ /* MOVE: branching squeezed to general */ if (t80162>=((struct structure_type24753 *)VALUE_OFFSET)) {t80165.tag = STRUCTURE_TYPE24753; t80165.value.structure_type24753 = t80162;} else t80165.tag = (unsigned)t80162; /* MOVE: branching squeezed to general */ if (t80163>=((struct structure_type27650 *)VALUE_OFFSET)) {t80166.tag = STRUCTURE_TYPE27650; t80166.value.structure_type27650 = t80163;} else t80166.tag = (unsigned)t80163; t80167 = t80164; return f7892(t80165, t80166, t80167);} /* LOOP?[7911] */ struct w16638 f7911(struct w49 a21616, struct w49 a21617, struct w49 a21618) {struct w16638 r7911; struct w16638 a21619; /* v */ struct w16638 a35453; /* PAIR */ struct w16638 a35454; /* PAIR */ struct w16638 a36019; /* PAIR */ struct w16638 a36020; /* PAIR */ struct w49 t80175; struct p7911 *t80176; struct w16638 t80177; struct w49 t80178; struct p7911 *t80179; struct w49 t80180; struct w211257 t80181; struct w49 t80182; unsigned t80183; struct w49 t80184; struct w211257 t80185; struct w49 t80186; struct w16638 t80187; struct w16638 t80188; struct w16638 t80189; struct w16638 t80190; struct w49 t80191; struct w49 t80192; struct w49 t80193; struct w16638 t80194; struct w16638 t80195; struct w16638 t80196; struct w16638 t80197; struct w49 t80198; struct w49 t80199; struct w211257 t80200; struct p7911 *e7911; struct p7911 *p7912; e7911 = (struct p7911 *)alloca(sizeof(struct p7911)); if (e7911==NULL) {backtrace_internal("[inside TRULY-COMPATIBLE-PROCEDURE? 7909]"); out_of_memory_error();} e7911->a21616 = a21616; e7911->a21617 = a21617; /* x67248 stalin.sc:2728:90841 */ /* x67170 stalin.sc:2728:90845 */ /* x67169 stalin.sc:2728:90852 */ t80175 = e7911->a21616; /* x270414 stalin.sc:2728:90846 */ if (!((t80175.tag)==NULL_TYPE)) goto l15101; /* x67179 stalin.sc:2729:90862 */ /* x67173 stalin.sc:2729:90867 */ /* x67172 stalin.sc:2729:90874 */ t80198 = e7911->a21617; /* x270413 stalin.sc:2729:90868 */ if (!((t80198.tag)==NULL_TYPE)) goto l15113; /* x67177 */ /* x67175 stalin.sc:2729:90887 */ /* x67176 stalin.sc:2729:90898 */ t80199 = a21618; /* x67174 stalin.sc:2729:90879 */ t80200.tag = NATIVE_PROCEDURE_TYPE7435; return f8137(t80200, t80199); l15113: /* x67178 */ r7911.tag = FALSE_TYPE; return r7911; l15101: /* x67247 stalin.sc:2730:90908 */ /* x67246 stalin.sc:2730:90912 */ /* x67223 stalin.sc:2730:90917 */ /* x67222 stalin.sc:2730:90922 */ /* x67221 stalin.sc:2730:90929 */ t80182 = e7911->a21617; /* x270410 stalin.sc:2730:90923 */ if ((t80182.tag)==NULL_TYPE) goto l15107; /* x67244 */ /* x67233 stalin.sc:2731:90942 */ /* x67229 stalin.sc:2731:90951 */ /* x67228 stalin.sc:2731:90966 */ /* x67227 stalin.sc:2731:90973 */ t80187 = *((struct w16638 *)(&(e7911->a21616))); /* x67226 stalin.sc:2731:90967 */ a36019 = t80187; /* x275433 */ /* x275432 */ t80188 = a36019; /* x275431 */ if (!((t80188.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30168]"); structure_ref_error();} t80186 = t80188.value.structure_type24753->s0; /* x67225 stalin.sc:2731:90952 */ t80183 = f9826(t80186); /* x67232 stalin.sc:2731:90978 */ /* x67231 stalin.sc:2731:90985 */ t80189 = *((struct w16638 *)(&(e7911->a21617))); /* x67230 stalin.sc:2731:90979 */ a36020 = t80189; /* x275437 */ /* x275436 */ t80190 = a36020; /* x275435 */ if (!((t80190.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30169]"); structure_ref_error();} t80184 = t80190.value.structure_type24753->s0; /* x67224 stalin.sc:2731:90943 */ t80185.tag = t80183; if ((f8137(t80185, t80184).tag)==FALSE_TYPE) goto l15110; /* x67242 */ /* x67237 stalin.sc:2732:91005 */ /* x67236 stalin.sc:2732:91011 */ t80194 = *((struct w16638 *)(&(e7911->a21616))); /* x67235 stalin.sc:2732:91006 */ a35453 = t80194; /* x273169 */ /* x273168 */ t80195 = a35453; /* x273167 */ if (!((t80195.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29602]"); structure_ref_error();} t80191 = t80195.value.structure_type24753->s1; /* x67240 stalin.sc:2732:91015 */ /* x67239 stalin.sc:2732:91021 */ t80196 = *((struct w16638 *)(&(e7911->a21617))); /* x67238 stalin.sc:2732:91016 */ a35454 = t80196; /* x273173 */ /* x273172 */ t80197 = a35454; /* x273171 */ if (!((t80197.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29603]"); structure_ref_error();} t80192 = t80197.value.structure_type24753->s1; /* x67241 stalin.sc:2732:91025 */ t80193 = a21618; /* x67234 stalin.sc:2732:90999 */ t80177 = f7911(t80191, t80192, t80193); goto l15111; l15110: /* x67243 */ t80177.tag = FALSE_TYPE; l15111: goto l15108; l15107: /* x67245 */ t80177.tag = FALSE_TYPE; l15108: /* x67218 */ t80176 = e7911; p7912 = t80176; a21619 = t80177; /* x67217 */ /* x67180 */ if ((a21619.tag)==FALSE_TYPE) goto l15103; /* x67181 */ return a21619; l15103: /* x67216 */ /* x67184 stalin.sc:2733:91037 */ /* x67183 stalin.sc:2733:91044 */ t80178 = p7912->a21617; /* x270412 stalin.sc:2733:91038 */ if (!((t80178.tag)==NULL_TYPE)) goto l15105; /* x67214 */ /* x67212 stalin.sc:2734:91065 */ t80179 = p7912; /* x67213 stalin.sc:2740:91253 */ t80180 = a21618; /* x67185 stalin.sc:2734:91057 */ t80181.tag = NATIVE_PROCEDURE_TYPE19572; t80181.value.native_procedure_type19572 = t80179; return f8137(t80181, t80180); l15105: /* x67215 */ r7911.tag = FALSE_TYPE; return r7911;} /* [inside TRULY-COMPATIBLE-PROCEDURE? 7905] */ struct w16638 f7905(struct p7892 *p7905, struct w49 a21610) {struct w16638 r7905; struct w16638 a21611; /* v */ struct w16638 a21612; /* v */ struct w16638 a21613; /* v */ struct w49 a21622; /* E */ struct w49 a27227; /* S */ struct w49 a36281; /* S */ struct w49 a37889; /* OBJ */ struct w49 a37925; /* S */ struct w49 a37960; /* OBJ */ struct w49 a38101; /* OBJ */ struct w49 a38187; /* S */ struct w49 a38188; /* S */ struct w49 a38217; /* OBJ */ struct p7892 *t80201; struct w16638 t80202; struct p7892 *t80203; struct w16638 t80204; struct p7892 *t80205; struct w16638 t80206; struct w49 t80207; struct w49 t80208; struct p7736 *t80209; struct w49 t80210; struct w211257 t80211; int t80212; int t80213; int t80214; struct w49 t80215; struct w49 t80216; struct w49 t80217; struct w49 t80218; struct w49 t80219; struct w49 t80220; struct w49 t80221; struct w49 t80222; struct w49 t80223; struct w49 t80224; struct w49 t80225; struct structure_type27745 *t80226; struct p7892 *t80227; struct w49 t80228; struct w49 t80229; struct w49 t80230; struct p7736 *t80231; struct w49 t80232; struct w211257 t80233; int t80234; int t80235; int t80236; struct structure_type24753 *t80237; struct w49 t80238; struct w49 t80239; struct w49 t80240; struct p7738 *t80241; struct w49 t80242; struct w211257 t80243; int t80244; int t80245; int t80246; int t80247; int t80248; struct structure_type24753 *t80249; struct w49 t80250; struct w49 t80251; struct w49 t80252; struct w49 t80253; struct structure_type27745 *t80254; struct w49 t80255; struct w49 t80256; unsigned t80257; struct w49 t80258; struct w49 t80259; struct w49 t80260; struct w49 t80261; struct w49 t80262; struct w49 t80263; struct w49 t80264; struct structure_type24753 *t80265; struct w49 t80266; struct w49 t80267; struct w49 t80268; struct w213534 t80269; struct w49 t80270; struct w49 t80271; unsigned t80272; unsigned t80273; struct structure_type27745 *t80274; struct w49 t80275; struct w49 t80276; struct p16282 *t80277; struct w49 t80278; struct p16287 *t80279; unsigned t80280; struct p16282 *t80281; unsigned t80282; struct p16282 *t80283; unsigned t80284; struct p16282 *t80285; unsigned t80286; struct p16282 *t80287; unsigned t80288; struct p16282 *t80289; unsigned t80290; struct p16282 *t80291; unsigned t80292; struct p16282 *t80293; struct p16287 *t80294; unsigned t80295; struct p16282 *t80296; unsigned t80297; struct p16282 *t80298; unsigned t80299; struct p16282 *t80300; unsigned t80301; struct p16282 *t80302; unsigned t80303; struct p16282 *t80304; unsigned t80305; struct p16282 *t80306; unsigned t80307; struct p16282 *t80308; unsigned t80309; struct p16282 *t80310; unsigned t80311; struct p16282 *t80312; unsigned t80313; struct p16282 *t80314; struct w49 t80315; struct p16282 *t80316; struct w49 t80317; struct p17820 *t80318; unsigned t80319; struct p16282 *t80320; struct p16292 *t80321; struct p16287 *t80322; unsigned t80323; struct p16282 *t80324; unsigned t80325; struct p16308 *t80326; struct p16292 *t80327; struct p16302 *t80328; unsigned t80329; struct p16282 *t80330; struct p16292 *t80331; struct p16287 *t80332; unsigned t80333; struct p16282 *t80334; unsigned t80335; struct p16308 *t80336; struct p16302 *t80337; unsigned t80338; struct p16282 *t80339; unsigned t80340; struct p16282 *t80341; unsigned t80342; struct p16282 *t80343; unsigned t80344; struct p16282 *t80345; unsigned t80346; struct p16282 *t80347; unsigned t80348; struct p16282 *t80349; struct p16287 *t80350; unsigned t80351; struct p16282 *t80352; struct p16302 *t80353; unsigned t80354; struct p16282 *t80355; unsigned t80356; struct p16282 *t80357; unsigned t80358; struct p16282 *t80359; unsigned t80360; struct p16282 *t80361; unsigned t80362; struct p16282 *t80363; unsigned t80364; struct p16282 *t80365; unsigned t80366; struct p16282 *t80367; unsigned t80368; struct p16282 *t80369; unsigned t80370; struct p16282 *t80371; unsigned t80372; struct p16282 *t80373; unsigned t80374; struct p16282 *t80375; unsigned t80376; struct p16308 *t80377; unsigned t80378; struct p16308 *t80379; unsigned t80380; struct p16308 *t80381; unsigned t80382; struct p16282 *t80383; struct p16287 *t80384; struct p16287 *t80385; struct p16287 *t80386; struct p16287 *t80387; unsigned t80388; struct p16308 *t80389; unsigned t80390; struct p16308 *t80391; unsigned t80392; struct p16308 *t80393; unsigned t80394; struct p16308 *t80395; unsigned t80396; struct p16308 *t80397; unsigned t80398; struct p16308 *t80399; unsigned t80400; struct p16282 *t80401; unsigned t80402; struct p16282 *t80403; struct p16282 *t80404; unsigned t80405; struct p16308 *t80406; unsigned t80407; struct p16308 *t80408; unsigned t80409; struct p16308 *t80410; unsigned t80411; struct p16308 *t80412; unsigned t80413; struct p16308 *t80414; unsigned t80415; struct p16282 *t80416; unsigned t80417; struct p16282 *t80418; unsigned t80419; struct p16282 *t80420; unsigned t80421; struct p16282 *t80422; unsigned t80423; struct p16282 *t80424; unsigned t80425; struct p16282 *t80426; unsigned t80427; struct p16282 *t80428; unsigned t80429; struct p16282 *t80430; unsigned t80431; struct p16282 *t80432; struct p16287 *t80433; unsigned t80434; struct p16282 *t80435; unsigned t80436; struct p16282 *t80437; struct p16287 *t80438; struct p16282 *t80439; unsigned t80440; struct p16282 *t80441; struct w49 t80442; struct w49 t80443; struct w49 t80444; struct w49 t80445; struct structure_type24753 *t80446; struct w49 t80447; struct w49 t80448; struct w49 t80449; struct p7892 *p7906; struct p7892 *p7907; struct p7892 *p7908; struct p7892 *p7915; struct p7892 *p7916; /* x67377 stalin.sc:2698:89780 */ /* x67376 stalin.sc:2698:89784 */ /* x67341 stalin.sc:2698:89789 */ /* x67340 stalin.sc:2698:89816 */ t80255 = a21610; /* x67339 stalin.sc:2698:89790 */ a38217 = t80255; /* x285537 */ /* x285536 */ t80256 = a38217; /* x285535 */ if (!((t80256.tag)==STRUCTURE_TYPE27753)) goto l15139; /* x67374 */ /* x67355 stalin.sc:2699:89827 */ /* x67352 stalin.sc:2702:89962 */ t80258 = a21610; /* x67353 stalin.sc:2702:89964 */ t80259 = p7905->a21594; /* x67354 stalin.sc:2702:89967 */ t80260 = p7905->a21595; /* x67351 stalin.sc:2699:89828 */ /* x67350 stalin.sc:2700:89874 */ /* x67349 stalin.sc:2700:89879 */ /* x67347 stalin.sc:2700:89885 */ /* x67346 stalin.sc:2700:89916 */ t80267 = a21610; /* x67345 stalin.sc:2700:89886 */ a38188 = t80267; /* x285421 */ /* x285420 */ t80268 = a38188; /* x285419 */ if (!((t80268.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-NAME[5895] 33105]"); structure_ref_error();} t80264 = t80268.value.structure_type27753->s0; /* x67348 stalin.sc:2701:89926 */ t80265 = a789; /* x67344 stalin.sc:2700:89880 */ /* MOVE: branching squeezed to general */ if (t80265>=((struct structure_type24753 *)VALUE_OFFSET)) {t80266.tag = STRUCTURE_TYPE24753; t80266.value.structure_type24753 = t80265;} else t80266.tag = (unsigned)t80265; t80263 = f26354(t80264, t80266); /* x270404 stalin.sc:2700:89875 */ if (!((t80263.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 2700, 89874); structure_ref_error();} t80261 = t80263.value.structure_type24753->s1; /* x67342 stalin.sc:2699:89829 */ a36281 = t80261; /* x276323 */ /* x276322 */ t80262 = a36281; /* x276321 */ if (!((t80262.tag)==STRUCTURE_TYPE24757)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-COMPATIBLE-PROCEDURE?[16184] 30397]"); structure_ref_error();} t80257 = t80262.value.structure_type24757->s0; switch (t80257) {case NATIVE_PROCEDURE_TYPE6623: if (f16273(t80259, t80260)==FALSE_TYPE) goto l15142; break; case NATIVE_PROCEDURE_TYPE6624: if (f16269(t80259, t80260)==FALSE_TYPE) goto l15142; break; case NATIVE_PROCEDURE_TYPE6625: if (f16265(t80259, t80260)==FALSE_TYPE) goto l15142; break; case NATIVE_PROCEDURE_TYPE6626: if (f16260(t80259, t80260)==FALSE_TYPE) goto l15142; break; case NATIVE_PROCEDURE_TYPE6627: if (f16256(t80258, t80259, t80260)==FALSE_TYPE) goto l15142; break; case NATIVE_PROCEDURE_TYPE6628: if (f16252(t80259, t80260)==FALSE_TYPE) goto l15142; break; case NATIVE_PROCEDURE_TYPE6629: if (f16248(t80259, t80260)==FALSE_TYPE) goto l15142; break; case NATIVE_PROCEDURE_TYPE6630: if (f16244(t80259, t80260)==FALSE_TYPE) goto l15142; break; default: if (f16240(t80259, t80260)==FALSE_TYPE) goto l15142;} /* x67372 */ /* x67370 stalin.sc:2707:90133 */ t80270 = p7905->a21594; /* x67371 stalin.sc:2707:90136 */ t80271 = p7905->a21595; /* x67369 stalin.sc:2703:89979 */ /* x67366 stalin.sc:2706:90123 */ t80274 = p7905->a21596; /* x67367 stalin.sc:2706:90125 */ t80275 = a21610; /* x67368 stalin.sc:2706:90127 */ /* x67365 stalin.sc:2703:89980 */ /* x67364 stalin.sc:2704:90033 */ /* x67363 stalin.sc:2704:90038 */ /* x67361 stalin.sc:2704:90044 */ /* x67360 stalin.sc:2704:90075 */ t80448 = a21610; /* x67359 stalin.sc:2704:90045 */ a38187 = t80448; /* x285417 */ /* x285416 */ t80449 = a38187; /* x285415 */ if (!((t80449.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-NAME[5895] 33104]"); structure_ref_error();} t80445 = t80449.value.structure_type27753->s0; /* x67362 stalin.sc:2705:90086 */ t80446 = a789; /* x67358 stalin.sc:2704:90039 */ /* MOVE: branching squeezed to general */ if (t80446>=((struct structure_type24753 *)VALUE_OFFSET)) {t80447.tag = STRUCTURE_TYPE24753; t80447.value.structure_type24753 = t80446;} else t80447.tag = (unsigned)t80446; t80444 = f26354(t80445, t80447); /* x270403 stalin.sc:2704:90034 */ if (!((t80444.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 2704, 90033); structure_ref_error();} t80442 = t80444.value.structure_type24753->s1; /* x67356 stalin.sc:2703:89981 */ a27227 = t80442; /* x152798 */ /* x152797 */ t80443 = a27227; /* x152796 */ if (!((t80443.tag)==STRUCTURE_TYPE24757)) {backtrace_internal("PRIMITIVE-PROCEDURE-TRULY-COMPATIBLE-PROCEDURE?[16192]"); structure_ref_error();} t80273 = t80443.value.structure_type24757->s1; switch (t80273) {case NATIVE_PROCEDURE_TYPE6025: t80276.tag = FALSE_TYPE; t80277 = f18138(t80274, t80276); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80277; break; case NATIVE_PROCEDURE_TYPE6032: t80278.tag = FALSE_TYPE; t80279 = f18122(t80274, t80278); t80269.tag = NATIVE_PROCEDURE_TYPE19470; t80269.value.native_procedure_type19470 = t80279; break; case NATIVE_PROCEDURE_TYPE6038: /* x168824 stalin.sc:24650:852544 */ /* x168823 stalin.sc:24650:852576 */ /* x168822 stalin.sc:24650:852545 */ t80280 = (unsigned)NATIVE_PROCEDURE_TYPE7429; t80281 = f16282(t80280); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80281; break; case NATIVE_PROCEDURE_TYPE6044: /* x168790 stalin.sc:24641:852317 */ /* x168789 stalin.sc:24641:852318 */ f16277(); t80269.tag = NATIVE_PROCEDURE_TYPE19511; break; case NATIVE_PROCEDURE_TYPE6050: /* x168757 stalin.sc:24632:852089 */ /* x168756 stalin.sc:24632:852090 */ f16277(); t80269.tag = NATIVE_PROCEDURE_TYPE19511; break; case NATIVE_PROCEDURE_TYPE6056: /* x168724 stalin.sc:24623:851856 */ /* x168723 stalin.sc:24623:851857 */ f16277(); t80269.tag = NATIVE_PROCEDURE_TYPE19511; break; case NATIVE_PROCEDURE_TYPE6062: /* x168669 stalin.sc:24608:851440 */ /* x168668 stalin.sc:24608:851472 */ /* x168667 stalin.sc:24608:851441 */ t80282 = (unsigned)NATIVE_PROCEDURE_TYPE7430; t80283 = f16282(t80282); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80283; break; case NATIVE_PROCEDURE_TYPE6068: /* x168613 stalin.sc:24593:851015 */ /* x168612 stalin.sc:24593:851047 */ /* x168611 stalin.sc:24593:851016 */ t80284 = (unsigned)NATIVE_PROCEDURE_TYPE7430; t80285 = f16282(t80284); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80285; break; case NATIVE_PROCEDURE_TYPE6074: /* x168557 stalin.sc:24578:850589 */ /* x168556 stalin.sc:24578:850621 */ /* x168555 stalin.sc:24578:850590 */ t80286 = (unsigned)NATIVE_PROCEDURE_TYPE7430; t80287 = f16282(t80286); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80287; break; case NATIVE_PROCEDURE_TYPE6080: /* x168501 stalin.sc:24562:850159 */ /* x168500 stalin.sc:24562:850191 */ /* x168499 stalin.sc:24562:850160 */ t80288 = (unsigned)NATIVE_PROCEDURE_TYPE7430; t80289 = f16282(t80288); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80289; break; case NATIVE_PROCEDURE_TYPE6086: /* x168436 stalin.sc:24549:849698 */ /* x168435 stalin.sc:24549:849730 */ /* x168434 stalin.sc:24549:849699 */ t80290 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80291 = f16282(t80290); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80291; break; case NATIVE_PROCEDURE_TYPE6092: /* x168386 stalin.sc:24535:849339 */ /* x168385 stalin.sc:24535:849371 */ /* x168384 stalin.sc:24535:849340 */ t80292 = (unsigned)NATIVE_PROCEDURE_TYPE7822; t80293 = f16282(t80292); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80293; break; case NATIVE_PROCEDURE_TYPE6098: t80294 = f18023(); t80269.tag = NATIVE_PROCEDURE_TYPE19470; t80269.value.native_procedure_type19470 = t80294; break; case NATIVE_PROCEDURE_TYPE6104: /* x168276 stalin.sc:24502:848517 */ /* x168275 stalin.sc:24502:848518 */ f16277(); t80269.tag = NATIVE_PROCEDURE_TYPE19511; break; case NATIVE_PROCEDURE_TYPE6110: /* x168243 stalin.sc:24493:848276 */ /* x168242 stalin.sc:24493:848277 */ f16277(); t80269.tag = NATIVE_PROCEDURE_TYPE19511; break; case NATIVE_PROCEDURE_TYPE6116: /* x168184 stalin.sc:24476:847816 */ /* x168183 stalin.sc:24476:847848 */ /* x168182 stalin.sc:24476:847817 */ t80295 = (unsigned)NATIVE_PROCEDURE_TYPE7423; t80296 = f16282(t80295); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80296; break; case NATIVE_PROCEDURE_TYPE6122: /* x168119 stalin.sc:24463:847340 */ /* x168118 stalin.sc:24463:847372 */ /* x168117 stalin.sc:24463:847341 */ t80297 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80298 = f16282(t80297); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80298; break; case NATIVE_PROCEDURE_TYPE6128: /* x168035 stalin.sc:24442:846727 */ /* x168034 stalin.sc:24442:846759 */ /* x168033 stalin.sc:24442:846728 */ t80299 = (unsigned)NATIVE_PROCEDURE_TYPE7423; t80300 = f16282(t80299); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80300; break; case NATIVE_PROCEDURE_TYPE6134: /* x167958 stalin.sc:24422:846154 */ /* x167957 stalin.sc:24422:846186 */ /* x167956 stalin.sc:24422:846155 */ t80301 = (unsigned)NATIVE_PROCEDURE_TYPE7423; t80302 = f16282(t80301); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80302; break; case NATIVE_PROCEDURE_TYPE6140: /* x167881 stalin.sc:24400:845538 */ /* x167880 stalin.sc:24400:845570 */ /* x167879 stalin.sc:24400:845539 */ t80303 = (unsigned)NATIVE_PROCEDURE_TYPE7422; t80304 = f16282(t80303); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80304; break; case NATIVE_PROCEDURE_TYPE6146: /* x167804 stalin.sc:24378:844921 */ /* x167803 stalin.sc:24378:844953 */ /* x167802 stalin.sc:24378:844922 */ t80305 = (unsigned)NATIVE_PROCEDURE_TYPE7423; t80306 = f16282(t80305); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80306; break; case NATIVE_PROCEDURE_TYPE6152: /* x167623 stalin.sc:24334:843607 */ /* x167622 stalin.sc:24334:843639 */ /* x167621 stalin.sc:24334:843608 */ t80307 = (unsigned)NATIVE_PROCEDURE_TYPE7822; t80308 = f16282(t80307); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80308; break; case NATIVE_PROCEDURE_TYPE6158: /* x167442 stalin.sc:24291:842306 */ /* x167441 stalin.sc:24291:842338 */ /* x167440 stalin.sc:24291:842307 */ t80309 = (unsigned)NATIVE_PROCEDURE_TYPE7822; t80310 = f16282(t80309); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80310; break; case NATIVE_PROCEDURE_TYPE6164: /* x167377 stalin.sc:24277:841814 */ /* x167376 stalin.sc:24277:841846 */ /* x167375 stalin.sc:24277:841815 */ t80311 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80312 = f16282(t80311); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80312; break; case NATIVE_PROCEDURE_TYPE6170: /* x167312 stalin.sc:24264:841338 */ /* x167311 stalin.sc:24264:841370 */ /* x167310 stalin.sc:24264:841339 */ t80313 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80314 = f16282(t80313); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80314; break; case NATIVE_PROCEDURE_TYPE6176: t80315.tag = FALSE_TYPE; t80316 = f17842(t80274, t80315); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80316; break; case NATIVE_PROCEDURE_TYPE6182: t80317.tag = FALSE_TYPE; t80318 = f17820(t80274, t80317); t80269.tag = NATIVE_PROCEDURE_TYPE19485; t80269.value.native_procedure_type19485 = t80318; break; case NATIVE_PROCEDURE_TYPE6188: /* x166217 stalin.sc:24019:833161 */ /* x166216 stalin.sc:24019:833193 */ /* x166215 stalin.sc:24019:833162 */ t80319 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80320 = f16282(t80319); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80320; break; case NATIVE_PROCEDURE_TYPE6194: t80321 = f17788(); t80269.tag = NATIVE_PROCEDURE_TYPE19482; t80269.value.native_procedure_type19482 = t80321; break; case NATIVE_PROCEDURE_TYPE6200: t80322 = f17762(); t80269.tag = NATIVE_PROCEDURE_TYPE19470; t80269.value.native_procedure_type19470 = t80322; break; case NATIVE_PROCEDURE_TYPE6206: /* x165745 stalin.sc:23880:829563 */ /* x165744 stalin.sc:23880:829595 */ /* x165743 stalin.sc:23880:829564 */ t80323 = (unsigned)NATIVE_PROCEDURE_TYPE7406; t80324 = f16282(t80323); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80324; break; case NATIVE_PROCEDURE_TYPE6212: /* x165504 stalin.sc:23823:827795 */ /* x165503 stalin.sc:23823:827828 */ /* x165502 stalin.sc:23823:827796 */ t80325 = NATIVE_PROCEDURE_TYPE7404; t80326 = f16308(t80325); t80269.tag = NATIVE_PROCEDURE_TYPE19473; t80269.value.native_procedure_type19473 = t80326; break; case NATIVE_PROCEDURE_TYPE6218: t80327 = f17695(); t80269.tag = NATIVE_PROCEDURE_TYPE19482; t80269.value.native_procedure_type19482 = t80327; break; case NATIVE_PROCEDURE_TYPE6224: t80328 = f17654(); t80269.tag = NATIVE_PROCEDURE_TYPE19478; t80269.value.native_procedure_type19478 = t80328; break; case NATIVE_PROCEDURE_TYPE6230: /* x164820 stalin.sc:23631:822364 */ /* x164819 stalin.sc:23631:822396 */ /* x164818 stalin.sc:23631:822365 */ t80329 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80330 = f16282(t80329); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80330; break; case NATIVE_PROCEDURE_TYPE6236: t80331 = f17629(); t80269.tag = NATIVE_PROCEDURE_TYPE19482; t80269.value.native_procedure_type19482 = t80331; break; case NATIVE_PROCEDURE_TYPE6242: t80332 = f17614(); t80269.tag = NATIVE_PROCEDURE_TYPE19470; t80269.value.native_procedure_type19470 = t80332; break; case NATIVE_PROCEDURE_TYPE6248: /* x164484 stalin.sc:23531:819863 */ /* x164483 stalin.sc:23531:819895 */ /* x164482 stalin.sc:23531:819864 */ t80333 = (unsigned)NATIVE_PROCEDURE_TYPE7822; t80334 = f16282(t80333); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80334; break; case NATIVE_PROCEDURE_TYPE6254: /* x164302 stalin.sc:23495:818744 */ /* x164301 stalin.sc:23495:818777 */ /* x164300 stalin.sc:23495:818745 */ t80335 = NATIVE_PROCEDURE_TYPE7431; t80336 = f16308(t80335); t80269.tag = NATIVE_PROCEDURE_TYPE19473; t80269.value.native_procedure_type19473 = t80336; break; case NATIVE_PROCEDURE_TYPE6260: t80337 = f17547(); t80269.tag = NATIVE_PROCEDURE_TYPE19478; t80269.value.native_procedure_type19478 = t80337; break; case NATIVE_PROCEDURE_TYPE6266: /* x163839 stalin.sc:23366:815092 */ /* x163838 stalin.sc:23366:815124 */ /* x163837 stalin.sc:23366:815093 */ t80338 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80339 = f16282(t80338); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80339; break; case NATIVE_PROCEDURE_TYPE6272: /* x163749 stalin.sc:23342:814464 */ /* x163748 stalin.sc:23342:814496 */ /* x163747 stalin.sc:23342:814465 */ t80340 = (unsigned)NATIVE_PROCEDURE_TYPE7430; t80341 = f16282(t80340); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80341; break; case NATIVE_PROCEDURE_TYPE6278: /* x163691 stalin.sc:23325:814036 */ /* x163690 stalin.sc:23325:814068 */ /* x163689 stalin.sc:23325:814037 */ t80342 = (unsigned)NATIVE_PROCEDURE_TYPE7431; t80343 = f16282(t80342); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80343; break; case NATIVE_PROCEDURE_TYPE6284: /* x163626 stalin.sc:23312:813595 */ /* x163625 stalin.sc:23312:813627 */ /* x163624 stalin.sc:23312:813596 */ t80344 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80345 = f16282(t80344); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80345; break; case NATIVE_PROCEDURE_TYPE6290: /* x163505 stalin.sc:23286:812855 */ /* x163504 stalin.sc:23286:812887 */ /* x163503 stalin.sc:23286:812856 */ t80346 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80347 = f16282(t80346); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80347; break; case NATIVE_PROCEDURE_TYPE6296: /* x163386 stalin.sc:23261:812113 */ /* x163385 stalin.sc:23261:812145 */ /* x163384 stalin.sc:23261:812114 */ t80348 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80349 = f16282(t80348); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80349; break; case NATIVE_PROCEDURE_TYPE6302: t80350 = f17453(); t80269.tag = NATIVE_PROCEDURE_TYPE19470; t80269.value.native_procedure_type19470 = t80350; break; case NATIVE_PROCEDURE_TYPE6308: /* x163112 stalin.sc:23179:808802 */ /* x163111 stalin.sc:23179:808834 */ /* x163110 stalin.sc:23179:808803 */ t80351 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80352 = f16282(t80351); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80352; break; case NATIVE_PROCEDURE_TYPE6314: t80353 = f17418(); t80269.tag = NATIVE_PROCEDURE_TYPE19478; t80269.value.native_procedure_type19478 = t80353; break; case NATIVE_PROCEDURE_TYPE6320: /* x162864 stalin.sc:23091:805765 */ /* x162863 stalin.sc:23091:805797 */ /* x162862 stalin.sc:23091:805766 */ t80354 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80355 = f16282(t80354); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80355; break; case NATIVE_PROCEDURE_TYPE6326: /* x162788 stalin.sc:23056:804216 */ /* x162787 stalin.sc:23056:804248 */ /* x162786 stalin.sc:23056:804217 */ t80356 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80357 = f16282(t80356); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80357; break; case NATIVE_PROCEDURE_TYPE6332: /* x162712 stalin.sc:23021:802662 */ /* x162711 stalin.sc:23021:802694 */ /* x162710 stalin.sc:23021:802663 */ t80358 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80359 = f16282(t80358); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80359; break; case NATIVE_PROCEDURE_TYPE6338: /* x162636 stalin.sc:22999:802046 */ /* x162635 stalin.sc:22999:802078 */ /* x162634 stalin.sc:22999:802047 */ t80360 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80361 = f16282(t80360); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80361; break; case NATIVE_PROCEDURE_TYPE6344: /* x162560 stalin.sc:22977:801430 */ /* x162559 stalin.sc:22977:801462 */ /* x162558 stalin.sc:22977:801431 */ t80362 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80363 = f16282(t80362); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80363; break; case NATIVE_PROCEDURE_TYPE6350: /* x162484 stalin.sc:22955:800814 */ /* x162483 stalin.sc:22955:800846 */ /* x162482 stalin.sc:22955:800815 */ t80364 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80365 = f16282(t80364); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80365; break; case NATIVE_PROCEDURE_TYPE6356: /* x162408 stalin.sc:22920:799251 */ /* x162407 stalin.sc:22920:799283 */ /* x162406 stalin.sc:22920:799252 */ t80366 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80367 = f16282(t80366); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80367; break; case NATIVE_PROCEDURE_TYPE6362: /* x162251 stalin.sc:22888:798297 */ /* x162250 stalin.sc:22888:798329 */ /* x162249 stalin.sc:22888:798298 */ t80368 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80369 = f16282(t80368); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80369; break; case NATIVE_PROCEDURE_TYPE6368: /* x162058 stalin.sc:22848:797138 */ /* x162057 stalin.sc:22848:797170 */ /* x162056 stalin.sc:22848:797139 */ t80370 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80371 = f16282(t80370); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80371; break; case NATIVE_PROCEDURE_TYPE6374: /* x161901 stalin.sc:22816:796175 */ /* x161900 stalin.sc:22816:796207 */ /* x161899 stalin.sc:22816:796176 */ t80372 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80373 = f16282(t80372); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80373; break; case NATIVE_PROCEDURE_TYPE6380: /* x161744 stalin.sc:22783:795224 */ /* x161743 stalin.sc:22783:795256 */ /* x161742 stalin.sc:22783:795225 */ t80374 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80375 = f16282(t80374); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80375; break; case NATIVE_PROCEDURE_TYPE6386: /* x161649 stalin.sc:22759:794404 */ /* x161648 stalin.sc:22759:794437 */ /* x161647 stalin.sc:22759:794405 */ t80376 = NATIVE_PROCEDURE_TYPE7430; t80377 = f16308(t80376); t80269.tag = NATIVE_PROCEDURE_TYPE19473; t80269.value.native_procedure_type19473 = t80377; break; case NATIVE_PROCEDURE_TYPE6392: /* x161554 stalin.sc:22735:793575 */ /* x161553 stalin.sc:22735:793608 */ /* x161552 stalin.sc:22735:793576 */ t80378 = NATIVE_PROCEDURE_TYPE7430; t80379 = f16308(t80378); t80269.tag = NATIVE_PROCEDURE_TYPE19473; t80269.value.native_procedure_type19473 = t80379; break; case NATIVE_PROCEDURE_TYPE6398: /* x161457 stalin.sc:22711:792748 */ /* x161456 stalin.sc:22711:792781 */ /* x161455 stalin.sc:22711:792749 */ t80380 = NATIVE_PROCEDURE_TYPE7430; t80381 = f16308(t80380); t80269.tag = NATIVE_PROCEDURE_TYPE19473; t80269.value.native_procedure_type19473 = t80381; break; case NATIVE_PROCEDURE_TYPE6404: /* x161401 stalin.sc:22696:792282 */ /* x161400 stalin.sc:22696:792314 */ /* x161399 stalin.sc:22696:792283 */ t80382 = (unsigned)NATIVE_PROCEDURE_TYPE7430; t80383 = f16282(t80382); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80383; break; case NATIVE_PROCEDURE_TYPE6410: t80384 = f17168(); t80269.tag = NATIVE_PROCEDURE_TYPE19470; t80269.value.native_procedure_type19470 = t80384; break; case NATIVE_PROCEDURE_TYPE6416: t80385 = f17135(); t80269.tag = NATIVE_PROCEDURE_TYPE19470; t80269.value.native_procedure_type19470 = t80385; break; case NATIVE_PROCEDURE_TYPE6422: t80386 = f17102(); t80269.tag = NATIVE_PROCEDURE_TYPE19470; t80269.value.native_procedure_type19470 = t80386; break; case NATIVE_PROCEDURE_TYPE6428: t80387 = f17069(); t80269.tag = NATIVE_PROCEDURE_TYPE19470; t80269.value.native_procedure_type19470 = t80387; break; case NATIVE_PROCEDURE_TYPE6434: /* x159600 stalin.sc:22332:781438 */ /* x159599 stalin.sc:22332:781471 */ /* x159598 stalin.sc:22332:781439 */ t80388 = NATIVE_PROCEDURE_TYPE7426; t80389 = f16308(t80388); t80269.tag = NATIVE_PROCEDURE_TYPE19473; t80269.value.native_procedure_type19473 = t80389; break; case NATIVE_PROCEDURE_TYPE6440: /* x159310 stalin.sc:22270:778838 */ /* x159309 stalin.sc:22270:778871 */ /* x159308 stalin.sc:22270:778839 */ t80390 = NATIVE_PROCEDURE_TYPE7426; t80391 = f16308(t80390); t80269.tag = NATIVE_PROCEDURE_TYPE19473; t80269.value.native_procedure_type19473 = t80391; break; case NATIVE_PROCEDURE_TYPE6446: /* x159051 stalin.sc:22222:777181 */ /* x159050 stalin.sc:22222:777214 */ /* x159049 stalin.sc:22222:777182 */ t80392 = NATIVE_PROCEDURE_TYPE7426; t80393 = f16308(t80392); t80269.tag = NATIVE_PROCEDURE_TYPE19473; t80269.value.native_procedure_type19473 = t80393; break; case NATIVE_PROCEDURE_TYPE6452: /* x158792 stalin.sc:22174:775528 */ /* x158791 stalin.sc:22174:775561 */ /* x158790 stalin.sc:22174:775529 */ t80394 = NATIVE_PROCEDURE_TYPE7426; t80395 = f16308(t80394); t80269.tag = NATIVE_PROCEDURE_TYPE19473; t80269.value.native_procedure_type19473 = t80395; break; case NATIVE_PROCEDURE_TYPE6458: /* x158598 stalin.sc:22133:774026 */ /* x158597 stalin.sc:22133:774059 */ /* x158596 stalin.sc:22133:774027 */ t80396 = NATIVE_PROCEDURE_TYPE7426; t80397 = f16308(t80396); t80269.tag = NATIVE_PROCEDURE_TYPE19473; t80269.value.native_procedure_type19473 = t80397; break; case NATIVE_PROCEDURE_TYPE6464: /* x158404 stalin.sc:22092:772523 */ /* x158403 stalin.sc:22092:772556 */ /* x158402 stalin.sc:22092:772524 */ t80398 = NATIVE_PROCEDURE_TYPE7426; t80399 = f16308(t80398); t80269.tag = NATIVE_PROCEDURE_TYPE19473; t80269.value.native_procedure_type19473 = t80399; break; case NATIVE_PROCEDURE_TYPE6470: /* x158275 stalin.sc:22064:771719 */ /* x158274 stalin.sc:22064:771751 */ /* x158273 stalin.sc:22064:771720 */ t80400 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80401 = f16282(t80400); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80401; break; case NATIVE_PROCEDURE_TYPE6476: /* x158146 stalin.sc:22036:770918 */ /* x158145 stalin.sc:22036:770950 */ /* x158144 stalin.sc:22036:770919 */ t80402 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80403 = f16282(t80402); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80403; break; case NATIVE_PROCEDURE_TYPE6482: t80404 = f16793(); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80404; break; case NATIVE_PROCEDURE_TYPE6488: /* x157798 stalin.sc:21975:769138 */ /* x157797 stalin.sc:21975:769171 */ /* x157796 stalin.sc:21975:769139 */ t80405 = NATIVE_PROCEDURE_TYPE7426; t80406 = f16308(t80405); t80269.tag = NATIVE_PROCEDURE_TYPE19473; t80269.value.native_procedure_type19473 = t80406; break; case NATIVE_PROCEDURE_TYPE6494: /* x157745 stalin.sc:21965:768772 */ /* x157744 stalin.sc:21965:768805 */ /* x157743 stalin.sc:21965:768773 */ t80407 = NATIVE_PROCEDURE_TYPE7426; t80408 = f16308(t80407); t80269.tag = NATIVE_PROCEDURE_TYPE19473; t80269.value.native_procedure_type19473 = t80408; break; case NATIVE_PROCEDURE_TYPE6500: /* x157692 stalin.sc:21955:768407 */ /* x157691 stalin.sc:21955:768440 */ /* x157690 stalin.sc:21955:768408 */ t80409 = NATIVE_PROCEDURE_TYPE7426; t80410 = f16308(t80409); t80269.tag = NATIVE_PROCEDURE_TYPE19473; t80269.value.native_procedure_type19473 = t80410; break; case NATIVE_PROCEDURE_TYPE6506: /* x157639 stalin.sc:21945:768043 */ /* x157638 stalin.sc:21945:768076 */ /* x157637 stalin.sc:21945:768044 */ t80411 = NATIVE_PROCEDURE_TYPE7426; t80412 = f16308(t80411); t80269.tag = NATIVE_PROCEDURE_TYPE19473; t80269.value.native_procedure_type19473 = t80412; break; case NATIVE_PROCEDURE_TYPE6512: /* x157530 stalin.sc:21925:767379 */ /* x157529 stalin.sc:21925:767412 */ /* x157528 stalin.sc:21925:767380 */ t80413 = NATIVE_PROCEDURE_TYPE7426; t80414 = f16308(t80413); t80269.tag = NATIVE_PROCEDURE_TYPE19473; t80269.value.native_procedure_type19473 = t80414; break; case NATIVE_PROCEDURE_TYPE6518: /* x157437 stalin.sc:21907:766792 */ /* x157436 stalin.sc:21907:766824 */ /* x157435 stalin.sc:21907:766793 */ t80415 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80416 = f16282(t80415); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80416; break; case NATIVE_PROCEDURE_TYPE6524: /* x157344 stalin.sc:21889:766211 */ /* x157343 stalin.sc:21889:766243 */ /* x157342 stalin.sc:21889:766212 */ t80417 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80418 = f16282(t80417); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80418; break; case NATIVE_PROCEDURE_TYPE6530: /* x157166 stalin.sc:21859:765254 */ /* x157165 stalin.sc:21859:765286 */ /* x157164 stalin.sc:21859:765255 */ t80419 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80420 = f16282(t80419); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80420; break; case NATIVE_PROCEDURE_TYPE6536: /* x157024 stalin.sc:21832:764363 */ /* x157023 stalin.sc:21832:764395 */ /* x157022 stalin.sc:21832:764364 */ t80421 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80422 = f16282(t80421); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80422; break; case NATIVE_PROCEDURE_TYPE6542: /* x156959 stalin.sc:21819:763918 */ /* x156958 stalin.sc:21819:763950 */ /* x156957 stalin.sc:21819:763919 */ t80423 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80424 = f16282(t80423); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80424; break; case NATIVE_PROCEDURE_TYPE6548: /* x156880 stalin.sc:21794:763327 */ /* x156879 stalin.sc:21794:763359 */ /* x156878 stalin.sc:21794:763328 */ t80425 = (unsigned)NATIVE_PROCEDURE_TYPE7822; t80426 = f16282(t80425); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80426; break; case NATIVE_PROCEDURE_TYPE6554: /* x156794 stalin.sc:21770:762669 */ /* x156793 stalin.sc:21770:762701 */ /* x156792 stalin.sc:21770:762670 */ t80427 = (unsigned)NATIVE_PROCEDURE_TYPE7418; t80428 = f16282(t80427); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80428; break; case NATIVE_PROCEDURE_TYPE6560: /* x156729 stalin.sc:21757:762215 */ /* x156728 stalin.sc:21757:762247 */ /* x156727 stalin.sc:21757:762216 */ t80429 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80430 = f16282(t80429); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80430; break; case NATIVE_PROCEDURE_TYPE6566: /* x156664 stalin.sc:21744:761780 */ /* x156663 stalin.sc:21744:761812 */ /* x156662 stalin.sc:21744:761781 */ t80431 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80432 = f16282(t80431); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80432; break; case NATIVE_PROCEDURE_TYPE6572: t80433 = f16458(); t80269.tag = NATIVE_PROCEDURE_TYPE19470; t80269.value.native_procedure_type19470 = t80433; break; case NATIVE_PROCEDURE_TYPE6578: /* x154516 stalin.sc:21246:742430 */ /* x154515 stalin.sc:21246:742462 */ /* x154514 stalin.sc:21246:742431 */ t80434 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80435 = f16282(t80434); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80435; break; case NATIVE_PROCEDURE_TYPE6584: /* x154451 stalin.sc:21233:741988 */ /* x154450 stalin.sc:21233:742020 */ /* x154449 stalin.sc:21233:741989 */ t80436 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80437 = f16282(t80436); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80437; break; case NATIVE_PROCEDURE_TYPE6590: t80438 = f16418(t80275); t80269.tag = NATIVE_PROCEDURE_TYPE19470; t80269.value.native_procedure_type19470 = t80438; break; case NATIVE_PROCEDURE_TYPE6596: t80439 = f16402(t80275); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80439; break; case NATIVE_PROCEDURE_TYPE6602: /* x153801 stalin.sc:21061:736692 */ /* x153800 stalin.sc:21061:736693 */ f16297(); t80269.tag = NATIVE_PROCEDURE_TYPE19467; break; default: /* x153701 stalin.sc:21038:735831 */ /* x153700 stalin.sc:21038:735863 */ /* x153699 stalin.sc:21038:735832 */ t80440 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80441 = f16282(t80440); t80269.tag = NATIVE_PROCEDURE_TYPE19464; t80269.value.native_procedure_type19464 = t80441;} switch (t80269.tag) {case NATIVE_PROCEDURE_TYPE19464: t80202 = f16283((t80269.value.native_procedure_type19464), t80270, t80271); break; case NATIVE_PROCEDURE_TYPE19467: f16298(t80271); t80202.tag = TRUE_TYPE; break; case NATIVE_PROCEDURE_TYPE19470: t80202 = f16288((t80269.value.native_procedure_type19470), t80270, t80271); break; case NATIVE_PROCEDURE_TYPE19473: t80272 = f16309((t80269.value.native_procedure_type19473), t80270, t80271); t80202.tag = t80272; break; case NATIVE_PROCEDURE_TYPE19478: t80202 = f16303((t80269.value.native_procedure_type19478), t80270, t80271); break; case NATIVE_PROCEDURE_TYPE19482: t80202 = f16293((t80269.value.native_procedure_type19482), t80270, t80271); break; case NATIVE_PROCEDURE_TYPE19485: t80202 = f17821((t80269.value.native_procedure_type19485), t80270, t80271); break; default: f16278(t80271); t80202.tag = TRUE_TYPE;} goto l15143; l15142: /* x67373 */ t80202.tag = FALSE_TYPE; l15143: goto l15140; l15139: /* x67375 */ t80202.tag = FALSE_TYPE; l15140: /* x67338 */ t80201 = p7905; p7906 = t80201; a21611 = t80202; /* x67337 */ /* x67139 */ if ((a21611.tag)==FALSE_TYPE) goto l15115; /* x67140 */ return a21611; l15115: /* x67336 */ /* x67335 stalin.sc:2708:90143 */ /* x67269 stalin.sc:2708:90148 */ /* x67268 stalin.sc:2708:90172 */ t80223 = a21610; /* x67267 stalin.sc:2708:90149 */ a38101 = t80223; /* x285073 */ /* x285072 */ t80224 = a38101; /* x285071 */ if (!((t80224.tag)==STRUCTURE_TYPE27756)) goto l15126; /* x67333 */ /* x67281 stalin.sc:2710:90209 */ /* x67280 stalin.sc:2710:90213 */ /* x67279 stalin.sc:2710:90218 */ if (a2040==FALSE_TYPE) goto l15128; p7915 = p7906; /* x67275 */ /* x67273 stalin.sc:2710:90256 */ t80225 = a21610; /* x67274 stalin.sc:2710:90258 */ t80226 = p7915->a21596; /* x67272 stalin.sc:2710:90236 */ if ((f9367(t80225, t80226).tag)==FALSE_TYPE) goto l15129; l15128: /* x67331 */ /* x67330 stalin.sc:2711:90279 */ /* x67328 stalin.sc:2711:90299 */ t80253 = a21610; /* x67329 stalin.sc:2711:90301 */ t80254 = p7906->a21596; /* x67327 stalin.sc:2711:90280 */ t80228 = f9368(t80253, t80254); /* x67326 */ t80227 = p7906; p7916 = t80227; a21622 = t80228; /* x67325 stalin.sc:2715:90455 */ /* x67286 stalin.sc:2715:90460 */ /* x67285 stalin.sc:2715:90465 */ /* x67284 stalin.sc:2715:90477 */ t80229 = a21622; /* x67283 stalin.sc:2715:90466 */ if (!(f8944(t80229)==FALSE_TYPE)) goto l15133; /* x67323 */ /* x67289 stalin.sc:2716:90492 */ /* x67288 stalin.sc:2716:90499 */ t80230 = a21622; /* x67287 stalin.sc:2716:90493 */ if (f8931(t80230)==FALSE_TYPE) goto l15136; /* x67307 stalin.sc:2717:90506 */ /* x67305 stalin.sc:2717:90515 */ /* x67304 stalin.sc:2718:90553 */ /* x67300 stalin.sc:2718:90556 */ /* x67298 stalin.sc:2718:90559 */ /* x67297 stalin.sc:2718:90567 */ /* x67296 stalin.sc:2718:90578 */ t80251 = a21622; /* x67295 stalin.sc:2718:90568 */ t80249 = f8987(t80251); /* x67294 stalin.sc:2718:90560 */ /* MOVE: branching squeezed to general */ if (t80249>=((struct structure_type24753 *)VALUE_OFFSET)) {t80250.tag = STRUCTURE_TYPE24753; t80250.value.structure_type24753 = t80249;} else t80250.tag = (unsigned)t80249; t80247 = f26227(t80250); /* x67299 stalin.sc:2718:90582 */ t80248 = 1; /* x270406 stalin.sc:2718:90557 */ t80245 = t80247-t80248; /* x67303 stalin.sc:2719:90595 */ /* x67302 stalin.sc:2719:90603 */ t80252 = p7916->a21594; /* x67301 stalin.sc:2719:90596 */ t80246 = f26227(t80252); /* x270407 stalin.sc:2718:90554 */ t80244 = t80245-t80246; /* x67291 stalin.sc:2717:90516 */ t80241 = f7738(t80244); /* x67306 stalin.sc:2720:90615 */ t80242 = p7916->a21595; /* x67290 stalin.sc:2717:90507 */ t80243.tag = NATIVE_PROCEDURE_TYPE19912; t80243.value.native_procedure_type19912 = t80241; t80204 = f8137(t80243, t80242); goto l15137; l15136: /* x67322 stalin.sc:2721:90622 */ /* x67320 stalin.sc:2721:90631 */ /* x67319 stalin.sc:2722:90660 */ /* x67315 stalin.sc:2722:90663 */ /* x67314 stalin.sc:2722:90671 */ /* x67313 stalin.sc:2722:90682 */ t80239 = a21622; /* x67312 stalin.sc:2722:90672 */ t80237 = f8987(t80239); /* x67311 stalin.sc:2722:90664 */ /* MOVE: branching squeezed to general */ if (t80237>=((struct structure_type24753 *)VALUE_OFFSET)) {t80238.tag = STRUCTURE_TYPE24753; t80238.value.structure_type24753 = t80237;} else t80238.tag = (unsigned)t80237; t80235 = f26227(t80238); /* x67318 stalin.sc:2722:90686 */ /* x67317 stalin.sc:2722:90694 */ t80240 = p7916->a21594; /* x67316 stalin.sc:2722:90687 */ t80236 = f26227(t80240); /* x270405 stalin.sc:2722:90661 */ t80234 = t80235-t80236; /* x67309 stalin.sc:2721:90632 */ t80231 = f7736(t80234); /* x67321 stalin.sc:2723:90706 */ t80232 = p7916->a21595; /* x67308 stalin.sc:2721:90623 */ t80233.tag = NATIVE_PROCEDURE_TYPE19883; t80233.value.native_procedure_type19883 = t80231; t80204 = f8137(t80233, t80232); l15137: goto l15134; l15133: /* x67324 */ t80204.tag = FALSE_TYPE; l15134: goto l15130; l15129: /* x67332 */ t80204.tag = FALSE_TYPE; l15130: goto l15127; l15126: /* x67334 */ t80204.tag = FALSE_TYPE; l15127: /* x67266 */ t80203 = p7906; p7907 = t80203; a21612 = t80204; /* x67265 */ /* x67141 */ if ((a21612.tag)==FALSE_TYPE) goto l15117; /* x67142 */ return a21612; l15117: /* x67264 */ /* x67263 stalin.sc:2724:90716 */ /* x67165 stalin.sc:2724:90721 */ /* x67164 stalin.sc:2724:90746 */ t80216 = a21610; /* x67163 stalin.sc:2724:90722 */ a37960 = t80216; /* x284509 */ /* x284508 */ t80217 = a37960; /* x284507 */ if (!((t80217.tag)==STRUCTURE_TYPE27750)) goto l15123; /* x67261 */ /* x67258 stalin.sc:2725:90773 */ /* x67257 stalin.sc:2725:90808 */ t80221 = a21610; /* x67256 stalin.sc:2725:90774 */ a37925 = t80221; /* x284369 */ /* x284368 */ t80222 = a37925; /* x284367 */ if (!((t80222.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-PARAMETERS[6003] 32842]"); structure_ref_error();} t80218 = t80222.value.structure_type27750->s1; /* x67259 stalin.sc:2726:90822 */ t80219 = p7907->a21594; /* x67260 stalin.sc:2727:90835 */ t80220 = p7907->a21595; /* x67255 */ /* x67254 */ /* x67253 */ /* x67252 */ /* x67251 */ /* x67250 */ /* x67249 */ /* x67167 */ /* x67166 stalin.sc:2725:90762 */ t80206 = f7911(t80218, t80219, t80220); goto l15124; l15123: /* x67262 */ t80206.tag = FALSE_TYPE; l15124: /* x67162 */ t80205 = p7907; p7908 = t80205; a21613 = t80206; /* x67161 */ /* x67143 */ if ((a21613.tag)==FALSE_TYPE) goto l15119; /* x67144 */ return a21613; l15119: /* x67160 */ /* x67147 stalin.sc:2741:91269 */ /* x67146 stalin.sc:2741:91289 */ t80207 = a21610; /* x67145 stalin.sc:2741:91270 */ a37889 = t80207; /* x284225 */ /* x284224 */ t80208 = a37889; /* x284223 */ if (!((t80208.tag)==STRUCTURE_TYPE27858)) goto l15121; /* x67158 */ /* x67156 stalin.sc:2742:91309 */ /* x67155 stalin.sc:2742:91331 */ /* x67151 stalin.sc:2742:91334 */ t80213 = 1; /* x67154 stalin.sc:2742:91336 */ /* x67153 stalin.sc:2742:91344 */ t80215 = p7908->a21594; /* x67152 stalin.sc:2742:91337 */ t80214 = f26227(t80215); /* x270415 stalin.sc:2742:91332 */ t80212 = t80213-t80214; /* x67149 stalin.sc:2742:91310 */ t80209 = f7736(t80212); /* x67157 stalin.sc:2742:91350 */ t80210 = p7908->a21595; /* x67148 stalin.sc:2742:91301 */ t80211.tag = NATIVE_PROCEDURE_TYPE19883; t80211.value.native_procedure_type19883 = t80209; return f8137(t80211, t80210); l15121: /* x67159 */ r7905.tag = FALSE_TYPE; return r7905;} /* LOOP?[7899] */ struct w16638 f7899(struct w49 a21603, struct w49 a21604, struct w49 a21605) {struct w16638 r7899; struct w16638 a21606; /* v */ struct w16638 a35455; /* PAIR */ struct w16638 a35456; /* PAIR */ struct w16638 a36021; /* PAIR */ struct w16638 a36022; /* PAIR */ struct w49 t80450; struct p7899 *t80451; struct w16638 t80452; struct w49 t80453; struct p7899 *t80454; struct w49 t80455; struct w211257 t80456; struct w49 t80457; unsigned t80458; struct w49 t80459; struct w211257 t80460; struct w49 t80461; struct w16638 t80462; struct w16638 t80463; struct w16638 t80464; struct w16638 t80465; struct w49 t80466; struct w49 t80467; struct w49 t80468; struct w16638 t80469; struct w16638 t80470; struct w16638 t80471; struct w16638 t80472; struct w49 t80473; struct w49 t80474; struct w211257 t80475; struct p7899 *e7899; struct p7899 *p7900; e7899 = (struct p7899 *)alloca(sizeof(struct p7899)); if (e7899==NULL) {backtrace_internal("[inside TRULY-COMPATIBLE-PROCEDURE? 7897]"); out_of_memory_error();} e7899->a21603 = a21603; e7899->a21604 = a21604; /* x66966 stalin.sc:2682:89242 */ /* x66888 stalin.sc:2682:89246 */ /* x66887 stalin.sc:2682:89253 */ t80450 = e7899->a21603; /* x270429 stalin.sc:2682:89247 */ if (!((t80450.tag)==NULL_TYPE)) goto l15145; /* x66897 stalin.sc:2683:89263 */ /* x66891 stalin.sc:2683:89268 */ /* x66890 stalin.sc:2683:89275 */ t80473 = e7899->a21604; /* x270428 stalin.sc:2683:89269 */ if (!((t80473.tag)==NULL_TYPE)) goto l15157; /* x66895 */ /* x66893 stalin.sc:2683:89288 */ /* x66894 stalin.sc:2683:89299 */ t80474 = a21605; /* x66892 stalin.sc:2683:89280 */ t80475.tag = NATIVE_PROCEDURE_TYPE7435; return f8137(t80475, t80474); l15157: /* x66896 */ r7899.tag = FALSE_TYPE; return r7899; l15145: /* x66965 stalin.sc:2684:89309 */ /* x66964 stalin.sc:2684:89313 */ /* x66941 stalin.sc:2684:89318 */ /* x66940 stalin.sc:2684:89323 */ /* x66939 stalin.sc:2684:89330 */ t80457 = e7899->a21604; /* x270425 stalin.sc:2684:89324 */ if ((t80457.tag)==NULL_TYPE) goto l15151; /* x66962 */ /* x66951 stalin.sc:2685:89343 */ /* x66947 stalin.sc:2685:89352 */ /* x66946 stalin.sc:2685:89367 */ /* x66945 stalin.sc:2685:89374 */ t80462 = *((struct w16638 *)(&(e7899->a21603))); /* x66944 stalin.sc:2685:89368 */ a36021 = t80462; /* x275441 */ /* x275440 */ t80463 = a36021; /* x275439 */ if (!((t80463.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30170]"); structure_ref_error();} t80461 = t80463.value.structure_type24753->s0; /* x66943 stalin.sc:2685:89353 */ t80458 = f9826(t80461); /* x66950 stalin.sc:2685:89379 */ /* x66949 stalin.sc:2685:89386 */ t80464 = *((struct w16638 *)(&(e7899->a21604))); /* x66948 stalin.sc:2685:89380 */ a36022 = t80464; /* x275445 */ /* x275444 */ t80465 = a36022; /* x275443 */ if (!((t80465.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30171]"); structure_ref_error();} t80459 = t80465.value.structure_type24753->s0; /* x66942 stalin.sc:2685:89344 */ t80460.tag = t80458; if ((f8137(t80460, t80459).tag)==FALSE_TYPE) goto l15154; /* x66960 */ /* x66955 stalin.sc:2686:89406 */ /* x66954 stalin.sc:2686:89412 */ t80469 = *((struct w16638 *)(&(e7899->a21603))); /* x66953 stalin.sc:2686:89407 */ a35455 = t80469; /* x273177 */ /* x273176 */ t80470 = a35455; /* x273175 */ if (!((t80470.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29604]"); structure_ref_error();} t80466 = t80470.value.structure_type24753->s1; /* x66958 stalin.sc:2686:89416 */ /* x66957 stalin.sc:2686:89422 */ t80471 = *((struct w16638 *)(&(e7899->a21604))); /* x66956 stalin.sc:2686:89417 */ a35456 = t80471; /* x273181 */ /* x273180 */ t80472 = a35456; /* x273179 */ if (!((t80472.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29605]"); structure_ref_error();} t80467 = t80472.value.structure_type24753->s1; /* x66959 stalin.sc:2686:89426 */ t80468 = a21605; /* x66952 stalin.sc:2686:89400 */ t80452 = f7899(t80466, t80467, t80468); goto l15155; l15154: /* x66961 */ t80452.tag = FALSE_TYPE; l15155: goto l15152; l15151: /* x66963 */ t80452.tag = FALSE_TYPE; l15152: /* x66936 */ t80451 = e7899; p7900 = t80451; a21606 = t80452; /* x66935 */ /* x66898 */ if ((a21606.tag)==FALSE_TYPE) goto l15147; /* x66899 */ return a21606; l15147: /* x66934 */ /* x66902 stalin.sc:2687:89438 */ /* x66901 stalin.sc:2687:89445 */ t80453 = p7900->a21604; /* x270427 stalin.sc:2687:89439 */ if (!((t80453.tag)==NULL_TYPE)) goto l15149; /* x66932 */ /* x66930 stalin.sc:2688:89466 */ t80454 = p7900; /* x66931 stalin.sc:2694:89654 */ t80455 = a21605; /* x66903 stalin.sc:2688:89458 */ t80456.tag = NATIVE_PROCEDURE_TYPE19561; t80456.value.native_procedure_type19561 = t80454; return f8137(t80456, t80455); l15149: /* x66933 */ r7899.tag = FALSE_TYPE; return r7899;} /* [inside TRULY-COMPATIBLE-PROCEDURE? 7893] */ struct w16638 f7893(struct p7892 *p7893, struct w49 a21597) {struct w16638 r7893; struct w16638 a21598; /* v */ struct w16638 a21599; /* v */ struct w16638 a21600; /* v */ struct w49 a21609; /* E */ struct w49 a35515; /* PAIR */ struct w49 a35518; /* PAIR */ struct w49 a35519; /* PAIR */ struct w49 a36031; /* PAIR */ struct w49 a36279; /* S */ struct w49 a36282; /* S */ struct w49 a37890; /* OBJ */ struct w49 a37926; /* S */ struct w49 a37961; /* OBJ */ struct w49 a38102; /* OBJ */ struct w49 a38189; /* S */ struct w49 a38190; /* S */ struct w49 a38218; /* OBJ */ struct p7892 *t80476; struct w16638 t80477; struct p7892 *t80478; struct w16638 t80479; struct p7892 *t80480; struct w16638 t80481; struct w49 t80482; struct w49 t80483; struct p7736 *t80484; struct w49 t80485; struct w211257 t80486; int t80487; int t80488; int t80489; struct w49 t80490; struct w49 t80491; struct w49 t80492; struct w49 t80493; struct w49 t80494; struct w49 t80495; struct w49 t80496; struct w49 t80497; struct w49 t80498; struct w49 t80499; struct w49 t80500; struct w49 t80501; struct w49 t80502; struct structure_type27745 *t80503; struct p7892 *t80504; struct w49 t80505; struct w49 t80506; struct w49 t80507; struct p7736 *t80508; struct w49 t80509; struct w211257 t80510; int t80511; int t80512; int t80513; int t80514; int t80515; struct structure_type24753 *t80516; struct w49 t80517; struct w49 t80518; struct w49 t80519; struct p7736 *t80520; struct w49 t80521; struct w211257 t80522; int t80523; int t80524; int t80525; struct structure_type24753 *t80526; struct w49 t80527; struct w49 t80528; struct w49 t80529; struct w49 t80530; struct p7738 *t80531; struct w49 t80532; struct w211257 t80533; int t80534; int t80535; int t80536; struct structure_type24753 *t80537; struct w49 t80538; struct w49 t80539; struct w49 t80540; struct p7738 *t80541; struct w49 t80542; struct w211257 t80543; int t80544; int t80545; int t80546; int t80547; int t80548; struct structure_type24753 *t80549; struct w49 t80550; struct w49 t80551; struct w49 t80552; struct w49 t80553; struct structure_type27745 *t80554; struct w49 t80555; struct w49 t80556; unsigned t80557; struct w49 t80558; struct w49 t80559; struct w49 t80560; struct w49 t80561; struct w49 t80562; struct w49 t80563; struct w49 t80564; struct structure_type24753 *t80565; struct w49 t80566; struct w49 t80567; struct w49 t80568; struct w49 t80569; struct w49 t80570; struct w213534 t80571; struct w49 t80572; struct w49 t80573; unsigned t80574; unsigned t80575; struct structure_type27745 *t80576; struct w49 t80577; struct w49 t80578; struct p16282 *t80579; struct p16287 *t80580; unsigned t80581; struct p16282 *t80582; unsigned t80583; struct p16282 *t80584; unsigned t80585; struct p16282 *t80586; unsigned t80587; struct p16282 *t80588; unsigned t80589; struct p16282 *t80590; unsigned t80591; struct p16282 *t80592; unsigned t80593; struct p16282 *t80594; struct p16287 *t80595; unsigned t80596; struct p16282 *t80597; unsigned t80598; struct p16282 *t80599; unsigned t80600; struct p16282 *t80601; unsigned t80602; struct p16282 *t80603; unsigned t80604; struct p16282 *t80605; unsigned t80606; struct p16282 *t80607; unsigned t80608; struct p16282 *t80609; unsigned t80610; struct p16282 *t80611; unsigned t80612; struct p16282 *t80613; unsigned t80614; struct p16282 *t80615; struct p16282 *t80616; struct p17820 *t80617; unsigned t80618; struct p16282 *t80619; struct p16292 *t80620; struct p16287 *t80621; unsigned t80622; struct p16282 *t80623; unsigned t80624; struct p16308 *t80625; struct p16292 *t80626; struct p16302 *t80627; unsigned t80628; struct p16282 *t80629; struct p16292 *t80630; struct p16287 *t80631; unsigned t80632; struct p16282 *t80633; unsigned t80634; struct p16308 *t80635; struct p16302 *t80636; unsigned t80637; struct p16282 *t80638; unsigned t80639; struct p16282 *t80640; unsigned t80641; struct p16282 *t80642; unsigned t80643; struct p16282 *t80644; unsigned t80645; struct p16282 *t80646; unsigned t80647; struct p16282 *t80648; struct p16287 *t80649; unsigned t80650; struct p16282 *t80651; struct p16302 *t80652; unsigned t80653; struct p16282 *t80654; unsigned t80655; struct p16282 *t80656; unsigned t80657; struct p16282 *t80658; unsigned t80659; struct p16282 *t80660; unsigned t80661; struct p16282 *t80662; unsigned t80663; struct p16282 *t80664; unsigned t80665; struct p16282 *t80666; unsigned t80667; struct p16282 *t80668; unsigned t80669; struct p16282 *t80670; unsigned t80671; struct p16282 *t80672; unsigned t80673; struct p16282 *t80674; unsigned t80675; struct p16308 *t80676; unsigned t80677; struct p16308 *t80678; unsigned t80679; struct p16308 *t80680; unsigned t80681; struct p16282 *t80682; struct p16287 *t80683; struct p16287 *t80684; struct p16287 *t80685; struct p16287 *t80686; unsigned t80687; struct p16308 *t80688; unsigned t80689; struct p16308 *t80690; unsigned t80691; struct p16308 *t80692; unsigned t80693; struct p16308 *t80694; unsigned t80695; struct p16308 *t80696; unsigned t80697; struct p16308 *t80698; unsigned t80699; struct p16282 *t80700; unsigned t80701; struct p16282 *t80702; struct p16282 *t80703; unsigned t80704; struct p16308 *t80705; unsigned t80706; struct p16308 *t80707; unsigned t80708; struct p16308 *t80709; unsigned t80710; struct p16308 *t80711; unsigned t80712; struct p16308 *t80713; unsigned t80714; struct p16282 *t80715; unsigned t80716; struct p16282 *t80717; unsigned t80718; struct p16282 *t80719; unsigned t80720; struct p16282 *t80721; unsigned t80722; struct p16282 *t80723; unsigned t80724; struct p16282 *t80725; unsigned t80726; struct p16282 *t80727; unsigned t80728; struct p16282 *t80729; unsigned t80730; struct p16282 *t80731; struct p16287 *t80732; unsigned t80733; struct p16282 *t80734; unsigned t80735; struct p16282 *t80736; struct p16287 *t80737; struct p16282 *t80738; unsigned t80739; struct p16282 *t80740; struct w49 t80741; struct w49 t80742; struct w49 t80743; struct w49 t80744; struct structure_type24753 *t80745; struct w49 t80746; struct w49 t80747; struct w49 t80748; struct w49 t80749; struct w49 t80750; struct w49 t80751; struct w49 t80752; struct p7892 *p7894; struct p7892 *p7895; struct p7892 *p7896; struct p7892 *p7903; struct p7892 *p7904; /* x67137 stalin.sc:2649:88106 */ /* x67136 stalin.sc:2649:88110 */ /* x67095 stalin.sc:2649:88115 */ /* x67094 stalin.sc:2649:88142 */ t80555 = a21597; /* x67093 stalin.sc:2649:88116 */ a38218 = t80555; /* x285541 */ /* x285540 */ t80556 = a38218; /* x285539 */ if (!((t80556.tag)==STRUCTURE_TYPE27753)) goto l15186; /* x67134 */ /* x67111 stalin.sc:2650:88153 */ /* x67106 stalin.sc:2653:88288 */ t80558 = a21597; /* x67109 stalin.sc:2653:88290 */ /* x67108 stalin.sc:2653:88296 */ t80569 = p7893->a21594; /* x67107 stalin.sc:2653:88291 */ a35519 = t80569; /* x273433 */ /* x273432 */ t80570 = a35519; /* x273431 */ if (!((t80570.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29668]"); structure_ref_error();} t80559 = t80570.value.structure_type24753->s1; /* x67110 stalin.sc:2653:88300 */ t80560 = p7893->a21595; /* x67105 stalin.sc:2650:88154 */ /* x67104 stalin.sc:2651:88200 */ /* x67103 stalin.sc:2651:88205 */ /* x67101 stalin.sc:2651:88211 */ /* x67100 stalin.sc:2651:88242 */ t80567 = a21597; /* x67099 stalin.sc:2651:88212 */ a38190 = t80567; /* x285429 */ /* x285428 */ t80568 = a38190; /* x285427 */ if (!((t80568.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-NAME[5895] 33107]"); structure_ref_error();} t80564 = t80568.value.structure_type27753->s0; /* x67102 stalin.sc:2652:88252 */ t80565 = a789; /* x67098 stalin.sc:2651:88206 */ /* MOVE: branching squeezed to general */ if (t80565>=((struct structure_type24753 *)VALUE_OFFSET)) {t80566.tag = STRUCTURE_TYPE24753; t80566.value.structure_type24753 = t80565;} else t80566.tag = (unsigned)t80565; t80563 = f26354(t80564, t80566); /* x270417 stalin.sc:2651:88201 */ if (!((t80563.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 2651, 88200); structure_ref_error();} t80561 = t80563.value.structure_type24753->s1; /* x67096 stalin.sc:2650:88155 */ a36282 = t80561; /* x276327 */ /* x276326 */ t80562 = a36282; /* x276325 */ if (!((t80562.tag)==STRUCTURE_TYPE24757)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-COMPATIBLE-PROCEDURE?[16184] 30398]"); structure_ref_error();} t80557 = t80562.value.structure_type24757->s0; switch (t80557) {case NATIVE_PROCEDURE_TYPE6623: if (f16273(t80559, t80560)==FALSE_TYPE) goto l15189; break; case NATIVE_PROCEDURE_TYPE6624: if (f16269(t80559, t80560)==FALSE_TYPE) goto l15189; break; case NATIVE_PROCEDURE_TYPE6625: if (f16265(t80559, t80560)==FALSE_TYPE) goto l15189; break; case NATIVE_PROCEDURE_TYPE6626: if (f16260(t80559, t80560)==FALSE_TYPE) goto l15189; break; case NATIVE_PROCEDURE_TYPE6627: if (f16256(t80558, t80559, t80560)==FALSE_TYPE) goto l15189; break; case NATIVE_PROCEDURE_TYPE6628: if (f16252(t80559, t80560)==FALSE_TYPE) goto l15189; break; case NATIVE_PROCEDURE_TYPE6629: if (f16248(t80559, t80560)==FALSE_TYPE) goto l15189; break; case NATIVE_PROCEDURE_TYPE6630: if (f16244(t80559, t80560)==FALSE_TYPE) goto l15189; break; default: if (f16240(t80559, t80560)==FALSE_TYPE) goto l15189;} /* x67132 */ /* x67130 stalin.sc:2658:88474 */ /* x67129 stalin.sc:2658:88480 */ t80751 = p7893->a21594; /* x67128 stalin.sc:2658:88475 */ a35518 = t80751; /* x273429 */ /* x273428 */ t80752 = a35518; /* x273427 */ if (!((t80752.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29667]"); structure_ref_error();} t80572 = t80752.value.structure_type24753->s1; /* x67131 stalin.sc:2658:88484 */ t80573 = p7893->a21595; /* x67127 stalin.sc:2654:88312 */ /* x67122 stalin.sc:2657:88456 */ t80576 = p7893->a21596; /* x67123 stalin.sc:2657:88458 */ t80577 = a21597; /* x67126 stalin.sc:2657:88460 */ /* x67125 stalin.sc:2657:88467 */ t80749 = p7893->a21594; /* x67124 stalin.sc:2657:88461 */ a36031 = t80749; /* x275481 */ /* x275480 */ t80750 = a36031; /* x275479 */ if (!((t80750.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30180]"); structure_ref_error();} t80578 = t80750.value.structure_type24753->s0; /* x67121 stalin.sc:2654:88313 */ /* x67120 stalin.sc:2655:88366 */ /* x67119 stalin.sc:2655:88371 */ /* x67117 stalin.sc:2655:88377 */ /* x67116 stalin.sc:2655:88408 */ t80747 = a21597; /* x67115 stalin.sc:2655:88378 */ a38189 = t80747; /* x285425 */ /* x285424 */ t80748 = a38189; /* x285423 */ if (!((t80748.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-NAME[5895] 33106]"); structure_ref_error();} t80744 = t80748.value.structure_type27753->s0; /* x67118 stalin.sc:2656:88419 */ t80745 = a789; /* x67114 stalin.sc:2655:88372 */ /* MOVE: branching squeezed to general */ if (t80745>=((struct structure_type24753 *)VALUE_OFFSET)) {t80746.tag = STRUCTURE_TYPE24753; t80746.value.structure_type24753 = t80745;} else t80746.tag = (unsigned)t80745; t80743 = f26354(t80744, t80746); /* x270416 stalin.sc:2655:88367 */ if (!((t80743.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 2655, 88366); structure_ref_error();} t80741 = t80743.value.structure_type24753->s1; /* x67112 stalin.sc:2654:88314 */ a36279 = t80741; /* x276315 */ /* x276314 */ t80742 = a36279; /* x276313 */ if (!((t80742.tag)==STRUCTURE_TYPE24757)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TRULY-COMPATIBLE-PROCEDURE?[16192] 30395]"); structure_ref_error();} t80575 = t80742.value.structure_type24757->s1; switch (t80575) {case NATIVE_PROCEDURE_TYPE6025: t80579 = f18138(t80576, t80578); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80579; break; case NATIVE_PROCEDURE_TYPE6032: t80580 = f18122(t80576, t80578); t80571.tag = NATIVE_PROCEDURE_TYPE19470; t80571.value.native_procedure_type19470 = t80580; break; case NATIVE_PROCEDURE_TYPE6038: /* x302536 stalin.sc:24650:852544 */ /* x302535 stalin.sc:24650:852576 */ /* x302534 stalin.sc:24650:852545 */ t80581 = (unsigned)NATIVE_PROCEDURE_TYPE7429; t80582 = f16282(t80581); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80582; break; case NATIVE_PROCEDURE_TYPE6044: /* x302539 stalin.sc:24641:852317 */ /* x302538 stalin.sc:24641:852318 */ f16277(); t80571.tag = NATIVE_PROCEDURE_TYPE19511; break; case NATIVE_PROCEDURE_TYPE6050: /* x302542 stalin.sc:24632:852089 */ /* x302541 stalin.sc:24632:852090 */ f16277(); t80571.tag = NATIVE_PROCEDURE_TYPE19511; break; case NATIVE_PROCEDURE_TYPE6056: /* x302545 stalin.sc:24623:851856 */ /* x302544 stalin.sc:24623:851857 */ f16277(); t80571.tag = NATIVE_PROCEDURE_TYPE19511; break; case NATIVE_PROCEDURE_TYPE6062: /* x302549 stalin.sc:24608:851440 */ /* x302548 stalin.sc:24608:851472 */ /* x302547 stalin.sc:24608:851441 */ t80583 = (unsigned)NATIVE_PROCEDURE_TYPE7430; t80584 = f16282(t80583); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80584; break; case NATIVE_PROCEDURE_TYPE6068: /* x302553 stalin.sc:24593:851015 */ /* x302552 stalin.sc:24593:851047 */ /* x302551 stalin.sc:24593:851016 */ t80585 = (unsigned)NATIVE_PROCEDURE_TYPE7430; t80586 = f16282(t80585); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80586; break; case NATIVE_PROCEDURE_TYPE6074: /* x302557 stalin.sc:24578:850589 */ /* x302556 stalin.sc:24578:850621 */ /* x302555 stalin.sc:24578:850590 */ t80587 = (unsigned)NATIVE_PROCEDURE_TYPE7430; t80588 = f16282(t80587); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80588; break; case NATIVE_PROCEDURE_TYPE6080: /* x302561 stalin.sc:24562:850159 */ /* x302560 stalin.sc:24562:850191 */ /* x302559 stalin.sc:24562:850160 */ t80589 = (unsigned)NATIVE_PROCEDURE_TYPE7430; t80590 = f16282(t80589); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80590; break; case NATIVE_PROCEDURE_TYPE6086: /* x302565 stalin.sc:24549:849698 */ /* x302564 stalin.sc:24549:849730 */ /* x302563 stalin.sc:24549:849699 */ t80591 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80592 = f16282(t80591); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80592; break; case NATIVE_PROCEDURE_TYPE6092: /* x302569 stalin.sc:24535:849339 */ /* x302568 stalin.sc:24535:849371 */ /* x302567 stalin.sc:24535:849340 */ t80593 = (unsigned)NATIVE_PROCEDURE_TYPE7822; t80594 = f16282(t80593); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80594; break; case NATIVE_PROCEDURE_TYPE6098: t80595 = f18023(); t80571.tag = NATIVE_PROCEDURE_TYPE19470; t80571.value.native_procedure_type19470 = t80595; break; case NATIVE_PROCEDURE_TYPE6104: /* x302572 stalin.sc:24502:848517 */ /* x302571 stalin.sc:24502:848518 */ f16277(); t80571.tag = NATIVE_PROCEDURE_TYPE19511; break; case NATIVE_PROCEDURE_TYPE6110: /* x302575 stalin.sc:24493:848276 */ /* x302574 stalin.sc:24493:848277 */ f16277(); t80571.tag = NATIVE_PROCEDURE_TYPE19511; break; case NATIVE_PROCEDURE_TYPE6116: /* x302579 stalin.sc:24476:847816 */ /* x302578 stalin.sc:24476:847848 */ /* x302577 stalin.sc:24476:847817 */ t80596 = (unsigned)NATIVE_PROCEDURE_TYPE7423; t80597 = f16282(t80596); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80597; break; case NATIVE_PROCEDURE_TYPE6122: /* x302583 stalin.sc:24463:847340 */ /* x302582 stalin.sc:24463:847372 */ /* x302581 stalin.sc:24463:847341 */ t80598 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80599 = f16282(t80598); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80599; break; case NATIVE_PROCEDURE_TYPE6128: /* x302587 stalin.sc:24442:846727 */ /* x302586 stalin.sc:24442:846759 */ /* x302585 stalin.sc:24442:846728 */ t80600 = (unsigned)NATIVE_PROCEDURE_TYPE7423; t80601 = f16282(t80600); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80601; break; case NATIVE_PROCEDURE_TYPE6134: /* x302591 stalin.sc:24422:846154 */ /* x302590 stalin.sc:24422:846186 */ /* x302589 stalin.sc:24422:846155 */ t80602 = (unsigned)NATIVE_PROCEDURE_TYPE7423; t80603 = f16282(t80602); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80603; break; case NATIVE_PROCEDURE_TYPE6140: /* x302595 stalin.sc:24400:845538 */ /* x302594 stalin.sc:24400:845570 */ /* x302593 stalin.sc:24400:845539 */ t80604 = (unsigned)NATIVE_PROCEDURE_TYPE7422; t80605 = f16282(t80604); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80605; break; case NATIVE_PROCEDURE_TYPE6146: /* x302599 stalin.sc:24378:844921 */ /* x302598 stalin.sc:24378:844953 */ /* x302597 stalin.sc:24378:844922 */ t80606 = (unsigned)NATIVE_PROCEDURE_TYPE7423; t80607 = f16282(t80606); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80607; break; case NATIVE_PROCEDURE_TYPE6152: /* x302603 stalin.sc:24334:843607 */ /* x302602 stalin.sc:24334:843639 */ /* x302601 stalin.sc:24334:843608 */ t80608 = (unsigned)NATIVE_PROCEDURE_TYPE7822; t80609 = f16282(t80608); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80609; break; case NATIVE_PROCEDURE_TYPE6158: /* x302607 stalin.sc:24291:842306 */ /* x302606 stalin.sc:24291:842338 */ /* x302605 stalin.sc:24291:842307 */ t80610 = (unsigned)NATIVE_PROCEDURE_TYPE7822; t80611 = f16282(t80610); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80611; break; case NATIVE_PROCEDURE_TYPE6164: /* x302611 stalin.sc:24277:841814 */ /* x302610 stalin.sc:24277:841846 */ /* x302609 stalin.sc:24277:841815 */ t80612 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80613 = f16282(t80612); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80613; break; case NATIVE_PROCEDURE_TYPE6170: /* x302615 stalin.sc:24264:841338 */ /* x302614 stalin.sc:24264:841370 */ /* x302613 stalin.sc:24264:841339 */ t80614 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80615 = f16282(t80614); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80615; break; case NATIVE_PROCEDURE_TYPE6176: t80616 = f17842(t80576, t80578); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80616; break; case NATIVE_PROCEDURE_TYPE6182: t80617 = f17820(t80576, t80578); t80571.tag = NATIVE_PROCEDURE_TYPE19485; t80571.value.native_procedure_type19485 = t80617; break; case NATIVE_PROCEDURE_TYPE6188: /* x302619 stalin.sc:24019:833161 */ /* x302618 stalin.sc:24019:833193 */ /* x302617 stalin.sc:24019:833162 */ t80618 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80619 = f16282(t80618); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80619; break; case NATIVE_PROCEDURE_TYPE6194: t80620 = f17788(); t80571.tag = NATIVE_PROCEDURE_TYPE19482; t80571.value.native_procedure_type19482 = t80620; break; case NATIVE_PROCEDURE_TYPE6200: t80621 = f17762(); t80571.tag = NATIVE_PROCEDURE_TYPE19470; t80571.value.native_procedure_type19470 = t80621; break; case NATIVE_PROCEDURE_TYPE6206: /* x302623 stalin.sc:23880:829563 */ /* x302622 stalin.sc:23880:829595 */ /* x302621 stalin.sc:23880:829564 */ t80622 = (unsigned)NATIVE_PROCEDURE_TYPE7406; t80623 = f16282(t80622); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80623; break; case NATIVE_PROCEDURE_TYPE6212: /* x302922 stalin.sc:23823:827795 */ /* x302921 stalin.sc:23823:827828 */ /* x302920 stalin.sc:23823:827796 */ t80624 = NATIVE_PROCEDURE_TYPE7404; t80625 = f16308(t80624); t80571.tag = NATIVE_PROCEDURE_TYPE19473; t80571.value.native_procedure_type19473 = t80625; break; case NATIVE_PROCEDURE_TYPE6218: t80626 = f17695(); t80571.tag = NATIVE_PROCEDURE_TYPE19482; t80571.value.native_procedure_type19482 = t80626; break; case NATIVE_PROCEDURE_TYPE6224: t80627 = f17654(); t80571.tag = NATIVE_PROCEDURE_TYPE19478; t80571.value.native_procedure_type19478 = t80627; break; case NATIVE_PROCEDURE_TYPE6230: /* x302627 stalin.sc:23631:822364 */ /* x302626 stalin.sc:23631:822396 */ /* x302625 stalin.sc:23631:822365 */ t80628 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80629 = f16282(t80628); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80629; break; case NATIVE_PROCEDURE_TYPE6236: t80630 = f17629(); t80571.tag = NATIVE_PROCEDURE_TYPE19482; t80571.value.native_procedure_type19482 = t80630; break; case NATIVE_PROCEDURE_TYPE6242: t80631 = f17614(); t80571.tag = NATIVE_PROCEDURE_TYPE19470; t80571.value.native_procedure_type19470 = t80631; break; case NATIVE_PROCEDURE_TYPE6248: /* x302631 stalin.sc:23531:819863 */ /* x302630 stalin.sc:23531:819895 */ /* x302629 stalin.sc:23531:819864 */ t80632 = (unsigned)NATIVE_PROCEDURE_TYPE7822; t80633 = f16282(t80632); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80633; break; case NATIVE_PROCEDURE_TYPE6254: /* x302926 stalin.sc:23495:818744 */ /* x302925 stalin.sc:23495:818777 */ /* x302924 stalin.sc:23495:818745 */ t80634 = NATIVE_PROCEDURE_TYPE7431; t80635 = f16308(t80634); t80571.tag = NATIVE_PROCEDURE_TYPE19473; t80571.value.native_procedure_type19473 = t80635; break; case NATIVE_PROCEDURE_TYPE6260: t80636 = f17547(); t80571.tag = NATIVE_PROCEDURE_TYPE19478; t80571.value.native_procedure_type19478 = t80636; break; case NATIVE_PROCEDURE_TYPE6266: /* x302635 stalin.sc:23366:815092 */ /* x302634 stalin.sc:23366:815124 */ /* x302633 stalin.sc:23366:815093 */ t80637 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80638 = f16282(t80637); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80638; break; case NATIVE_PROCEDURE_TYPE6272: /* x302639 stalin.sc:23342:814464 */ /* x302638 stalin.sc:23342:814496 */ /* x302637 stalin.sc:23342:814465 */ t80639 = (unsigned)NATIVE_PROCEDURE_TYPE7430; t80640 = f16282(t80639); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80640; break; case NATIVE_PROCEDURE_TYPE6278: /* x302643 stalin.sc:23325:814036 */ /* x302642 stalin.sc:23325:814068 */ /* x302641 stalin.sc:23325:814037 */ t80641 = (unsigned)NATIVE_PROCEDURE_TYPE7431; t80642 = f16282(t80641); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80642; break; case NATIVE_PROCEDURE_TYPE6284: /* x302647 stalin.sc:23312:813595 */ /* x302646 stalin.sc:23312:813627 */ /* x302645 stalin.sc:23312:813596 */ t80643 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80644 = f16282(t80643); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80644; break; case NATIVE_PROCEDURE_TYPE6290: /* x302651 stalin.sc:23286:812855 */ /* x302650 stalin.sc:23286:812887 */ /* x302649 stalin.sc:23286:812856 */ t80645 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80646 = f16282(t80645); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80646; break; case NATIVE_PROCEDURE_TYPE6296: /* x302655 stalin.sc:23261:812113 */ /* x302654 stalin.sc:23261:812145 */ /* x302653 stalin.sc:23261:812114 */ t80647 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80648 = f16282(t80647); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80648; break; case NATIVE_PROCEDURE_TYPE6302: t80649 = f17453(); t80571.tag = NATIVE_PROCEDURE_TYPE19470; t80571.value.native_procedure_type19470 = t80649; break; case NATIVE_PROCEDURE_TYPE6308: /* x302659 stalin.sc:23179:808802 */ /* x302658 stalin.sc:23179:808834 */ /* x302657 stalin.sc:23179:808803 */ t80650 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80651 = f16282(t80650); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80651; break; case NATIVE_PROCEDURE_TYPE6314: t80652 = f17418(); t80571.tag = NATIVE_PROCEDURE_TYPE19478; t80571.value.native_procedure_type19478 = t80652; break; case NATIVE_PROCEDURE_TYPE6320: /* x302663 stalin.sc:23091:805765 */ /* x302662 stalin.sc:23091:805797 */ /* x302661 stalin.sc:23091:805766 */ t80653 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80654 = f16282(t80653); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80654; break; case NATIVE_PROCEDURE_TYPE6326: /* x302667 stalin.sc:23056:804216 */ /* x302666 stalin.sc:23056:804248 */ /* x302665 stalin.sc:23056:804217 */ t80655 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80656 = f16282(t80655); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80656; break; case NATIVE_PROCEDURE_TYPE6332: /* x302671 stalin.sc:23021:802662 */ /* x302670 stalin.sc:23021:802694 */ /* x302669 stalin.sc:23021:802663 */ t80657 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80658 = f16282(t80657); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80658; break; case NATIVE_PROCEDURE_TYPE6338: /* x302675 stalin.sc:22999:802046 */ /* x302674 stalin.sc:22999:802078 */ /* x302673 stalin.sc:22999:802047 */ t80659 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80660 = f16282(t80659); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80660; break; case NATIVE_PROCEDURE_TYPE6344: /* x302679 stalin.sc:22977:801430 */ /* x302678 stalin.sc:22977:801462 */ /* x302677 stalin.sc:22977:801431 */ t80661 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80662 = f16282(t80661); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80662; break; case NATIVE_PROCEDURE_TYPE6350: /* x302683 stalin.sc:22955:800814 */ /* x302682 stalin.sc:22955:800846 */ /* x302681 stalin.sc:22955:800815 */ t80663 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80664 = f16282(t80663); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80664; break; case NATIVE_PROCEDURE_TYPE6356: /* x302687 stalin.sc:22920:799251 */ /* x302686 stalin.sc:22920:799283 */ /* x302685 stalin.sc:22920:799252 */ t80665 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80666 = f16282(t80665); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80666; break; case NATIVE_PROCEDURE_TYPE6362: /* x302691 stalin.sc:22888:798297 */ /* x302690 stalin.sc:22888:798329 */ /* x302689 stalin.sc:22888:798298 */ t80667 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80668 = f16282(t80667); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80668; break; case NATIVE_PROCEDURE_TYPE6368: /* x302695 stalin.sc:22848:797138 */ /* x302694 stalin.sc:22848:797170 */ /* x302693 stalin.sc:22848:797139 */ t80669 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80670 = f16282(t80669); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80670; break; case NATIVE_PROCEDURE_TYPE6374: /* x302699 stalin.sc:22816:796175 */ /* x302698 stalin.sc:22816:796207 */ /* x302697 stalin.sc:22816:796176 */ t80671 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80672 = f16282(t80671); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80672; break; case NATIVE_PROCEDURE_TYPE6380: /* x302703 stalin.sc:22783:795224 */ /* x302702 stalin.sc:22783:795256 */ /* x302701 stalin.sc:22783:795225 */ t80673 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80674 = f16282(t80673); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80674; break; case NATIVE_PROCEDURE_TYPE6386: /* x302930 stalin.sc:22759:794404 */ /* x302929 stalin.sc:22759:794437 */ /* x302928 stalin.sc:22759:794405 */ t80675 = NATIVE_PROCEDURE_TYPE7430; t80676 = f16308(t80675); t80571.tag = NATIVE_PROCEDURE_TYPE19473; t80571.value.native_procedure_type19473 = t80676; break; case NATIVE_PROCEDURE_TYPE6392: /* x302934 stalin.sc:22735:793575 */ /* x302933 stalin.sc:22735:793608 */ /* x302932 stalin.sc:22735:793576 */ t80677 = NATIVE_PROCEDURE_TYPE7430; t80678 = f16308(t80677); t80571.tag = NATIVE_PROCEDURE_TYPE19473; t80571.value.native_procedure_type19473 = t80678; break; case NATIVE_PROCEDURE_TYPE6398: /* x302938 stalin.sc:22711:792748 */ /* x302937 stalin.sc:22711:792781 */ /* x302936 stalin.sc:22711:792749 */ t80679 = NATIVE_PROCEDURE_TYPE7430; t80680 = f16308(t80679); t80571.tag = NATIVE_PROCEDURE_TYPE19473; t80571.value.native_procedure_type19473 = t80680; break; case NATIVE_PROCEDURE_TYPE6404: /* x302707 stalin.sc:22696:792282 */ /* x302706 stalin.sc:22696:792314 */ /* x302705 stalin.sc:22696:792283 */ t80681 = (unsigned)NATIVE_PROCEDURE_TYPE7430; t80682 = f16282(t80681); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80682; break; case NATIVE_PROCEDURE_TYPE6410: t80683 = f17168(); t80571.tag = NATIVE_PROCEDURE_TYPE19470; t80571.value.native_procedure_type19470 = t80683; break; case NATIVE_PROCEDURE_TYPE6416: t80684 = f17135(); t80571.tag = NATIVE_PROCEDURE_TYPE19470; t80571.value.native_procedure_type19470 = t80684; break; case NATIVE_PROCEDURE_TYPE6422: t80685 = f17102(); t80571.tag = NATIVE_PROCEDURE_TYPE19470; t80571.value.native_procedure_type19470 = t80685; break; case NATIVE_PROCEDURE_TYPE6428: t80686 = f17069(); t80571.tag = NATIVE_PROCEDURE_TYPE19470; t80571.value.native_procedure_type19470 = t80686; break; case NATIVE_PROCEDURE_TYPE6434: /* x302942 stalin.sc:22332:781438 */ /* x302941 stalin.sc:22332:781471 */ /* x302940 stalin.sc:22332:781439 */ t80687 = NATIVE_PROCEDURE_TYPE7426; t80688 = f16308(t80687); t80571.tag = NATIVE_PROCEDURE_TYPE19473; t80571.value.native_procedure_type19473 = t80688; break; case NATIVE_PROCEDURE_TYPE6440: /* x302946 stalin.sc:22270:778838 */ /* x302945 stalin.sc:22270:778871 */ /* x302944 stalin.sc:22270:778839 */ t80689 = NATIVE_PROCEDURE_TYPE7426; t80690 = f16308(t80689); t80571.tag = NATIVE_PROCEDURE_TYPE19473; t80571.value.native_procedure_type19473 = t80690; break; case NATIVE_PROCEDURE_TYPE6446: /* x302950 stalin.sc:22222:777181 */ /* x302949 stalin.sc:22222:777214 */ /* x302948 stalin.sc:22222:777182 */ t80691 = NATIVE_PROCEDURE_TYPE7426; t80692 = f16308(t80691); t80571.tag = NATIVE_PROCEDURE_TYPE19473; t80571.value.native_procedure_type19473 = t80692; break; case NATIVE_PROCEDURE_TYPE6452: /* x302954 stalin.sc:22174:775528 */ /* x302953 stalin.sc:22174:775561 */ /* x302952 stalin.sc:22174:775529 */ t80693 = NATIVE_PROCEDURE_TYPE7426; t80694 = f16308(t80693); t80571.tag = NATIVE_PROCEDURE_TYPE19473; t80571.value.native_procedure_type19473 = t80694; break; case NATIVE_PROCEDURE_TYPE6458: /* x302958 stalin.sc:22133:774026 */ /* x302957 stalin.sc:22133:774059 */ /* x302956 stalin.sc:22133:774027 */ t80695 = NATIVE_PROCEDURE_TYPE7426; t80696 = f16308(t80695); t80571.tag = NATIVE_PROCEDURE_TYPE19473; t80571.value.native_procedure_type19473 = t80696; break; case NATIVE_PROCEDURE_TYPE6464: /* x302962 stalin.sc:22092:772523 */ /* x302961 stalin.sc:22092:772556 */ /* x302960 stalin.sc:22092:772524 */ t80697 = NATIVE_PROCEDURE_TYPE7426; t80698 = f16308(t80697); t80571.tag = NATIVE_PROCEDURE_TYPE19473; t80571.value.native_procedure_type19473 = t80698; break; case NATIVE_PROCEDURE_TYPE6470: /* x302711 stalin.sc:22064:771719 */ /* x302710 stalin.sc:22064:771751 */ /* x302709 stalin.sc:22064:771720 */ t80699 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80700 = f16282(t80699); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80700; break; case NATIVE_PROCEDURE_TYPE6476: /* x302715 stalin.sc:22036:770918 */ /* x302714 stalin.sc:22036:770950 */ /* x302713 stalin.sc:22036:770919 */ t80701 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80702 = f16282(t80701); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80702; break; case NATIVE_PROCEDURE_TYPE6482: t80703 = f16793(); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80703; break; case NATIVE_PROCEDURE_TYPE6488: /* x302966 stalin.sc:21975:769138 */ /* x302965 stalin.sc:21975:769171 */ /* x302964 stalin.sc:21975:769139 */ t80704 = NATIVE_PROCEDURE_TYPE7426; t80705 = f16308(t80704); t80571.tag = NATIVE_PROCEDURE_TYPE19473; t80571.value.native_procedure_type19473 = t80705; break; case NATIVE_PROCEDURE_TYPE6494: /* x302970 stalin.sc:21965:768772 */ /* x302969 stalin.sc:21965:768805 */ /* x302968 stalin.sc:21965:768773 */ t80706 = NATIVE_PROCEDURE_TYPE7426; t80707 = f16308(t80706); t80571.tag = NATIVE_PROCEDURE_TYPE19473; t80571.value.native_procedure_type19473 = t80707; break; case NATIVE_PROCEDURE_TYPE6500: /* x302974 stalin.sc:21955:768407 */ /* x302973 stalin.sc:21955:768440 */ /* x302972 stalin.sc:21955:768408 */ t80708 = NATIVE_PROCEDURE_TYPE7426; t80709 = f16308(t80708); t80571.tag = NATIVE_PROCEDURE_TYPE19473; t80571.value.native_procedure_type19473 = t80709; break; case NATIVE_PROCEDURE_TYPE6506: /* x302978 stalin.sc:21945:768043 */ /* x302977 stalin.sc:21945:768076 */ /* x302976 stalin.sc:21945:768044 */ t80710 = NATIVE_PROCEDURE_TYPE7426; t80711 = f16308(t80710); t80571.tag = NATIVE_PROCEDURE_TYPE19473; t80571.value.native_procedure_type19473 = t80711; break; case NATIVE_PROCEDURE_TYPE6512: /* x302982 stalin.sc:21925:767379 */ /* x302981 stalin.sc:21925:767412 */ /* x302980 stalin.sc:21925:767380 */ t80712 = NATIVE_PROCEDURE_TYPE7426; t80713 = f16308(t80712); t80571.tag = NATIVE_PROCEDURE_TYPE19473; t80571.value.native_procedure_type19473 = t80713; break; case NATIVE_PROCEDURE_TYPE6518: /* x302719 stalin.sc:21907:766792 */ /* x302718 stalin.sc:21907:766824 */ /* x302717 stalin.sc:21907:766793 */ t80714 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80715 = f16282(t80714); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80715; break; case NATIVE_PROCEDURE_TYPE6524: /* x302723 stalin.sc:21889:766211 */ /* x302722 stalin.sc:21889:766243 */ /* x302721 stalin.sc:21889:766212 */ t80716 = (unsigned)NATIVE_PROCEDURE_TYPE7426; t80717 = f16282(t80716); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80717; break; case NATIVE_PROCEDURE_TYPE6530: /* x302727 stalin.sc:21859:765254 */ /* x302726 stalin.sc:21859:765286 */ /* x302725 stalin.sc:21859:765255 */ t80718 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80719 = f16282(t80718); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80719; break; case NATIVE_PROCEDURE_TYPE6536: /* x302731 stalin.sc:21832:764363 */ /* x302730 stalin.sc:21832:764395 */ /* x302729 stalin.sc:21832:764364 */ t80720 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80721 = f16282(t80720); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80721; break; case NATIVE_PROCEDURE_TYPE6542: /* x302735 stalin.sc:21819:763918 */ /* x302734 stalin.sc:21819:763950 */ /* x302733 stalin.sc:21819:763919 */ t80722 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80723 = f16282(t80722); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80723; break; case NATIVE_PROCEDURE_TYPE6548: /* x302739 stalin.sc:21794:763327 */ /* x302738 stalin.sc:21794:763359 */ /* x302737 stalin.sc:21794:763328 */ t80724 = (unsigned)NATIVE_PROCEDURE_TYPE7822; t80725 = f16282(t80724); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80725; break; case NATIVE_PROCEDURE_TYPE6554: /* x302743 stalin.sc:21770:762669 */ /* x302742 stalin.sc:21770:762701 */ /* x302741 stalin.sc:21770:762670 */ t80726 = (unsigned)NATIVE_PROCEDURE_TYPE7418; t80727 = f16282(t80726); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80727; break; case NATIVE_PROCEDURE_TYPE6560: /* x302747 stalin.sc:21757:762215 */ /* x302746 stalin.sc:21757:762247 */ /* x302745 stalin.sc:21757:762216 */ t80728 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80729 = f16282(t80728); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80729; break; case NATIVE_PROCEDURE_TYPE6566: /* x302751 stalin.sc:21744:761780 */ /* x302750 stalin.sc:21744:761812 */ /* x302749 stalin.sc:21744:761781 */ t80730 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80731 = f16282(t80730); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80731; break; case NATIVE_PROCEDURE_TYPE6572: t80732 = f16458(); t80571.tag = NATIVE_PROCEDURE_TYPE19470; t80571.value.native_procedure_type19470 = t80732; break; case NATIVE_PROCEDURE_TYPE6578: /* x302755 stalin.sc:21246:742430 */ /* x302754 stalin.sc:21246:742462 */ /* x302753 stalin.sc:21246:742431 */ t80733 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80734 = f16282(t80733); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80734; break; case NATIVE_PROCEDURE_TYPE6584: /* x302759 stalin.sc:21233:741988 */ /* x302758 stalin.sc:21233:742020 */ /* x302757 stalin.sc:21233:741989 */ t80735 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80736 = f16282(t80735); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80736; break; case NATIVE_PROCEDURE_TYPE6590: t80737 = f16418(t80577); t80571.tag = NATIVE_PROCEDURE_TYPE19470; t80571.value.native_procedure_type19470 = t80737; break; case NATIVE_PROCEDURE_TYPE6596: t80738 = f16402(t80577); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80738; break; case NATIVE_PROCEDURE_TYPE6602: /* x302762 stalin.sc:21061:736692 */ /* x302761 stalin.sc:21061:736693 */ f16297(); t80571.tag = NATIVE_PROCEDURE_TYPE19467; break; default: /* x302766 stalin.sc:21038:735831 */ /* x302765 stalin.sc:21038:735863 */ /* x302764 stalin.sc:21038:735832 */ t80739 = (unsigned)NATIVE_PROCEDURE_TYPE7404; t80740 = f16282(t80739); t80571.tag = NATIVE_PROCEDURE_TYPE19464; t80571.value.native_procedure_type19464 = t80740;} switch (t80571.tag) {case NATIVE_PROCEDURE_TYPE19464: t80477 = f16283((t80571.value.native_procedure_type19464), t80572, t80573); break; case NATIVE_PROCEDURE_TYPE19467: f16298(t80573); t80477.tag = TRUE_TYPE; break; case NATIVE_PROCEDURE_TYPE19470: t80477 = f16288((t80571.value.native_procedure_type19470), t80572, t80573); break; case NATIVE_PROCEDURE_TYPE19473: t80574 = f16309((t80571.value.native_procedure_type19473), t80572, t80573); t80477.tag = t80574; break; case NATIVE_PROCEDURE_TYPE19478: t80477 = f16303((t80571.value.native_procedure_type19478), t80572, t80573); break; case NATIVE_PROCEDURE_TYPE19482: t80477 = f16293((t80571.value.native_procedure_type19482), t80572, t80573); break; case NATIVE_PROCEDURE_TYPE19485: t80477 = f17821((t80571.value.native_procedure_type19485), t80572, t80573); break; default: f16278(t80573); t80477.tag = TRUE_TYPE;} goto l15190; l15189: /* x67133 */ t80477.tag = FALSE_TYPE; l15190: goto l15187; l15186: /* x67135 */ t80477.tag = FALSE_TYPE; l15187: /* x67092 */ t80476 = p7893; p7894 = t80476; a21598 = t80477; /* x67091 */ /* x66857 */ if ((a21598.tag)==FALSE_TYPE) goto l15159; /* x66858 */ return a21598; l15159: /* x67090 */ /* x67089 stalin.sc:2659:88491 */ /* x66989 stalin.sc:2659:88496 */ /* x66988 stalin.sc:2659:88520 */ t80500 = a21597; /* x66987 stalin.sc:2659:88497 */ a38102 = t80500; /* x285077 */ /* x285076 */ t80501 = a38102; /* x285075 */ if (!((t80501.tag)==STRUCTURE_TYPE27756)) goto l15170; /* x67087 */ /* x67001 stalin.sc:2661:88557 */ /* x67000 stalin.sc:2661:88561 */ /* x66999 stalin.sc:2661:88566 */ if (a2040==FALSE_TYPE) goto l15172; p7903 = p7894; /* x66995 */ /* x66993 stalin.sc:2661:88604 */ t80502 = a21597; /* x66994 stalin.sc:2661:88606 */ t80503 = p7903->a21596; /* x66992 stalin.sc:2661:88584 */ if ((f9367(t80502, t80503).tag)==FALSE_TYPE) goto l15173; l15172: /* x67085 */ /* x67084 stalin.sc:2662:88627 */ /* x67082 stalin.sc:2662:88647 */ t80553 = a21597; /* x67083 stalin.sc:2662:88649 */ t80554 = p7894->a21596; /* x67081 stalin.sc:2662:88628 */ t80505 = f9368(t80553, t80554); /* x67080 */ t80504 = p7894; p7904 = t80504; a21609 = t80505; /* x67079 stalin.sc:2663:88656 */ /* x67004 stalin.sc:2663:88660 */ /* x67003 stalin.sc:2663:88667 */ t80506 = a21609; /* x67002 stalin.sc:2663:88661 */ if (f8931(t80506)==FALSE_TYPE) goto l15177; /* x67041 stalin.sc:2664:88676 */ /* x67007 stalin.sc:2664:88680 */ /* x67006 stalin.sc:2664:88692 */ t80530 = a21609; /* x67005 stalin.sc:2664:88681 */ if (f8944(t80530)==FALSE_TYPE) goto l15183; /* x67025 stalin.sc:2665:88698 */ /* x67023 stalin.sc:2665:88707 */ /* x67022 stalin.sc:2666:88744 */ /* x67018 stalin.sc:2666:88747 */ /* x67016 stalin.sc:2666:88750 */ /* x67015 stalin.sc:2666:88758 */ /* x67014 stalin.sc:2666:88769 */ t80551 = a21609; /* x67013 stalin.sc:2666:88759 */ t80549 = f8987(t80551); /* x67012 stalin.sc:2666:88751 */ /* MOVE: branching squeezed to general */ if (t80549>=((struct structure_type24753 *)VALUE_OFFSET)) {t80550.tag = STRUCTURE_TYPE24753; t80550.value.structure_type24753 = t80549;} else t80550.tag = (unsigned)t80549; t80547 = f26227(t80550); /* x67017 stalin.sc:2666:88773 */ t80548 = 1; /* x270422 stalin.sc:2666:88748 */ t80545 = t80547-t80548; /* x67021 stalin.sc:2666:88776 */ /* x67020 stalin.sc:2666:88784 */ t80552 = p7904->a21594; /* x67019 stalin.sc:2666:88777 */ t80546 = f26227(t80552); /* x270423 stalin.sc:2666:88745 */ t80544 = t80545-t80546; /* x67009 stalin.sc:2665:88708 */ t80541 = f7738(t80544); /* x67024 stalin.sc:2667:88795 */ t80542 = p7904->a21595; /* x67008 stalin.sc:2665:88699 */ t80543.tag = NATIVE_PROCEDURE_TYPE19912; t80543.value.native_procedure_type19912 = t80541; t80479 = f8137(t80543, t80542); goto l15184; l15183: /* x67040 stalin.sc:2668:88801 */ /* x67038 stalin.sc:2668:88810 */ /* x67037 stalin.sc:2669:88847 */ /* x67033 stalin.sc:2669:88850 */ /* x67032 stalin.sc:2669:88858 */ /* x67031 stalin.sc:2669:88869 */ t80539 = a21609; /* x67030 stalin.sc:2669:88859 */ t80537 = f8987(t80539); /* x67029 stalin.sc:2669:88851 */ /* MOVE: branching squeezed to general */ if (t80537>=((struct structure_type24753 *)VALUE_OFFSET)) {t80538.tag = STRUCTURE_TYPE24753; t80538.value.structure_type24753 = t80537;} else t80538.tag = (unsigned)t80537; t80535 = f26227(t80538); /* x67036 stalin.sc:2669:88873 */ /* x67035 stalin.sc:2669:88881 */ t80540 = p7904->a21594; /* x67034 stalin.sc:2669:88874 */ t80536 = f26227(t80540); /* x270421 stalin.sc:2669:88848 */ t80534 = t80535-t80536; /* x67027 stalin.sc:2668:88811 */ t80531 = f7738(t80534); /* x67039 stalin.sc:2670:88892 */ t80532 = p7904->a21595; /* x67026 stalin.sc:2668:88802 */ t80533.tag = NATIVE_PROCEDURE_TYPE19912; t80533.value.native_procedure_type19912 = t80531; t80479 = f8137(t80533, t80532); l15184: goto l15178; l15177: /* x67078 stalin.sc:2671:88902 */ /* x67044 stalin.sc:2671:88906 */ /* x67043 stalin.sc:2671:88918 */ t80507 = a21609; /* x67042 stalin.sc:2671:88907 */ if (f8944(t80507)==FALSE_TYPE) goto l15180; /* x67059 stalin.sc:2672:88924 */ /* x67057 stalin.sc:2672:88933 */ /* x67056 stalin.sc:2673:88961 */ /* x67052 stalin.sc:2673:88964 */ /* x67051 stalin.sc:2673:88972 */ /* x67050 stalin.sc:2673:88983 */ t80528 = a21609; /* x67049 stalin.sc:2673:88973 */ t80526 = f8987(t80528); /* x67048 stalin.sc:2673:88965 */ /* MOVE: branching squeezed to general */ if (t80526>=((struct structure_type24753 *)VALUE_OFFSET)) {t80527.tag = STRUCTURE_TYPE24753; t80527.value.structure_type24753 = t80526;} else t80527.tag = (unsigned)t80526; t80524 = f26227(t80527); /* x67055 stalin.sc:2673:88987 */ /* x67054 stalin.sc:2673:88995 */ t80529 = p7904->a21594; /* x67053 stalin.sc:2673:88988 */ t80525 = f26227(t80529); /* x270420 stalin.sc:2673:88962 */ t80523 = t80524-t80525; /* x67046 stalin.sc:2672:88934 */ t80520 = f7736(t80523); /* x67058 stalin.sc:2674:89006 */ t80521 = p7904->a21595; /* x67045 stalin.sc:2672:88925 */ t80522.tag = NATIVE_PROCEDURE_TYPE19883; t80522.value.native_procedure_type19883 = t80520; t80479 = f8137(t80522, t80521); goto l15181; l15180: /* x67077 stalin.sc:2675:89012 */ /* x67075 stalin.sc:2675:89021 */ /* x67074 stalin.sc:2676:89049 */ /* x67070 stalin.sc:2676:89052 */ /* x67068 stalin.sc:2676:89055 */ /* x67067 stalin.sc:2676:89063 */ /* x67066 stalin.sc:2676:89074 */ t80518 = a21609; /* x67065 stalin.sc:2676:89064 */ t80516 = f8987(t80518); /* x67064 stalin.sc:2676:89056 */ /* MOVE: branching squeezed to general */ if (t80516>=((struct structure_type24753 *)VALUE_OFFSET)) {t80517.tag = STRUCTURE_TYPE24753; t80517.value.structure_type24753 = t80516;} else t80517.tag = (unsigned)t80516; t80514 = f26227(t80517); /* x67069 stalin.sc:2676:89078 */ t80515 = 1; /* x270418 stalin.sc:2676:89053 */ t80512 = t80514+t80515; /* x67073 stalin.sc:2676:89081 */ /* x67072 stalin.sc:2676:89089 */ t80519 = p7904->a21594; /* x67071 stalin.sc:2676:89082 */ t80513 = f26227(t80519); /* x270419 stalin.sc:2676:89050 */ t80511 = t80512-t80513; /* x67061 stalin.sc:2675:89022 */ t80508 = f7736(t80511); /* x67076 stalin.sc:2677:89100 */ t80509 = p7904->a21595; /* x67060 stalin.sc:2675:89013 */ t80510.tag = NATIVE_PROCEDURE_TYPE19883; t80510.value.native_procedure_type19883 = t80508; t80479 = f8137(t80510, t80509); l15181: l15178: goto l15174; l15173: /* x67086 */ t80479.tag = FALSE_TYPE; l15174: goto l15171; l15170: /* x67088 */ t80479.tag = FALSE_TYPE; l15171: /* x66986 */ t80478 = p7894; p7895 = t80478; a21599 = t80479; /* x66985 */ /* x66859 */ if ((a21599.tag)==FALSE_TYPE) goto l15161; /* x66860 */ return a21599; l15161: /* x66984 */ /* x66983 stalin.sc:2678:89110 */ /* x66883 stalin.sc:2678:89115 */ /* x66882 stalin.sc:2678:89140 */ t80491 = a21597; /* x66881 stalin.sc:2678:89116 */ a37961 = t80491; /* x284513 */ /* x284512 */ t80492 = a37961; /* x284511 */ if (!((t80492.tag)==STRUCTURE_TYPE27750)) goto l15167; /* x66981 */ /* x66976 stalin.sc:2679:89167 */ /* x66975 stalin.sc:2679:89202 */ t80496 = a21597; /* x66974 stalin.sc:2679:89168 */ a37926 = t80496; /* x284373 */ /* x284372 */ t80497 = a37926; /* x284371 */ if (!((t80497.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-PARAMETERS[6003] 32843]"); structure_ref_error();} t80493 = t80497.value.structure_type27750->s1; /* x66979 stalin.sc:2680:89216 */ /* x66978 stalin.sc:2680:89222 */ t80498 = p7895->a21594; /* x66977 stalin.sc:2680:89217 */ a35515 = t80498; /* x273417 */ /* x273416 */ t80499 = a35515; /* x273415 */ if (!((t80499.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29664]"); structure_ref_error();} t80494 = t80499.value.structure_type24753->s1; /* x66980 stalin.sc:2681:89236 */ t80495 = p7895->a21595; /* x66973 */ /* x66972 */ /* x66971 */ /* x66970 */ /* x66969 */ /* x66968 */ /* x66967 */ /* x66885 */ /* x66884 stalin.sc:2679:89156 */ t80481 = f7899(t80493, t80494, t80495); goto l15168; l15167: /* x66982 */ t80481.tag = FALSE_TYPE; l15168: /* x66880 */ t80480 = p7895; p7896 = t80480; a21600 = t80481; /* x66879 */ /* x66861 */ if ((a21600.tag)==FALSE_TYPE) goto l15163; /* x66862 */ return a21600; l15163: /* x66878 */ /* x66865 stalin.sc:2695:89670 */ /* x66864 stalin.sc:2695:89690 */ t80482 = a21597; /* x66863 stalin.sc:2695:89671 */ a37890 = t80482; /* x284229 */ /* x284228 */ t80483 = a37890; /* x284227 */ if (!((t80483.tag)==STRUCTURE_TYPE27858)) goto l15165; /* x66876 */ /* x66874 stalin.sc:2696:89710 */ /* x66873 stalin.sc:2696:89732 */ /* x66869 stalin.sc:2696:89735 */ t80488 = 2; /* x66872 stalin.sc:2696:89737 */ /* x66871 stalin.sc:2696:89745 */ t80490 = p7896->a21594; /* x66870 stalin.sc:2696:89738 */ t80489 = f26227(t80490); /* x270430 stalin.sc:2696:89733 */ t80487 = t80488-t80489; /* x66867 stalin.sc:2696:89711 */ t80484 = f7736(t80487); /* x66875 stalin.sc:2696:89751 */ t80485 = p7896->a21595; /* x66866 stalin.sc:2696:89702 */ t80486.tag = NATIVE_PROCEDURE_TYPE19883; t80486.value.native_procedure_type19883 = t80484; return f8137(t80486, t80485); l15165: /* x66877 */ r7893.tag = FALSE_TYPE; return r7893;} /* TRULY-COMPATIBLE-PROCEDURE?[7892] */ unsigned f7892(struct w49 a21594, struct w49 a21595, struct structure_type27745 *a21596) {struct structure_type27745 *t80753; struct w49 t80754; struct p7892 *e7892; e7892 = (struct p7892 *)GC_malloc(sizeof(struct p7892)); if (e7892==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e7892->a21594 = a21594; e7892->a21595 = a21595; e7892->a21596 = a21596; /* x67379 stalin.sc:2647:88064 */ /* x66856 stalin.sc:2647:88068 */ /* x66855 stalin.sc:2647:88080 */ t80753 = e7892->a21596; /* x66854 stalin.sc:2647:88069 */ /* MOVE: branching squeezed to general */ if (t80753>=((struct structure_type27745 *)VALUE_OFFSET)) {t80754.tag = STRUCTURE_TYPE27745; t80754.value.structure_type27745 = t80753;} else t80754.tag = (unsigned)t80753; if (f8944(t80754)==FALSE_TYPE) goto l15192; /* x67138 stalin.sc:2648:88088 */ return (unsigned)e7892; l15192: /* x67378 stalin.sc:2697:89762 */ return ((unsigned)e7892)+1;} /* COMPATIBLE-CALL?[7886] */ unsigned f7886(struct w49 a21588) {struct w49 a38543; /* S */ struct structure_type24753 *t80755; struct structure_type27650 *t80756; struct structure_type27745 *t80757; struct w12224 t80758; struct w49 t80759; struct w11873 t80760; struct w36270 t80761; struct w49 t80762; struct structure_type24753 *t80763; struct w49 t80764; struct w49 t80765; struct w49 t80766; /* x66703 stalin.sc:2594:86137 */ /* x66698 stalin.sc:2594:86160 */ /* x66697 stalin.sc:2594:86185 */ /* x66696 stalin.sc:2594:86207 */ t80764 = a21588; /* x66695 stalin.sc:2594:86186 */ a38543 = t80764; /* x286841 */ /* x286840 */ t80765 = a38543; /* x286839 */ if (!((t80765.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33460]"); structure_ref_error();} t80760 = t80765.value.structure_type27698->s22; /* x66694 stalin.sc:2594:86165 */ /* x66693 stalin.sc:2594:86161 */ t80761.tag = NATIVE_PROCEDURE_TYPE7945; t80762 = *((struct w49 *)(&t80760)); t80763 = (struct structure_type24753 *)NULL_TYPE; t80755 = f27731(t80761, t80762, t80763); /* x66699 stalin.sc:2595:86214 */ t80756 = a1675; /* x66702 stalin.sc:2596:86224 */ /* x66701 stalin.sc:2596:86242 */ t80766 = a21588; /* x66700 stalin.sc:2596:86225 */ t80757 = f8739(t80766); /* x66692 stalin.sc:2594:86138 */ /* MOVE: branching squeezed to general */ if (t80755>=((struct structure_type24753 *)VALUE_OFFSET)) {t80758.tag = STRUCTURE_TYPE24753; t80758.value.structure_type24753 = t80755;} else t80758.tag = (unsigned)t80755; /* MOVE: branching squeezed to general */ if (t80756>=((struct structure_type27650 *)VALUE_OFFSET)) {t80759.tag = STRUCTURE_TYPE27650; t80759.value.structure_type27650 = t80756;} else t80759.tag = (unsigned)t80756; return f7873(t80758, t80759, t80757);} /* [inside COMPATIBLE-PROCEDURE? 7880] */ struct w16638 f7880(struct p7873 *p7880, struct w49 a21582) {struct w16638 r7880; unsigned a21583; /* v */ struct w16638 a21584; /* v */ struct w16638 a21585; /* v */ struct w49 a21587; /* E */ struct w49 a36280; /* S */ struct w49 a37886; /* OBJ */ struct w49 a37924; /* S */ struct w49 a37958; /* OBJ */ struct w49 a38094; /* OBJ */ struct w49 a38186; /* S */ struct w49 a38215; /* OBJ */ struct p7873 *t80767; unsigned t80768; struct p7873 *t80769; struct w16638 t80770; struct p7873 *t80771; struct w16638 t80772; struct w49 t80773; struct w49 t80774; struct p7736 *t80775; struct w49 t80776; struct w211257 t80777; int t80778; int t80779; int t80780; struct w12224 t80781; struct w49 t80782; struct w49 t80783; struct w49 t80784; struct p7736 *t80785; struct w49 t80786; struct w211257 t80787; int t80788; int t80789; int t80790; struct w49 t80791; struct w49 t80792; struct w49 t80793; struct w12224 t80794; struct w49 t80795; struct w49 t80796; struct w49 t80797; struct w49 t80798; struct structure_type27745 *t80799; struct structure_type27745 *t80800; struct p7873 *t80801; struct w49 t80802; struct w49 t80803; struct w49 t80804; struct p7736 *t80805; struct w49 t80806; struct w211257 t80807; int t80808; int t80809; int t80810; struct structure_type24753 *t80811; struct w49 t80812; struct w49 t80813; struct w12224 t80814; struct w49 t80815; struct p7738 *t80816; struct w49 t80817; struct w211257 t80818; int t80819; int t80820; int t80821; int t80822; int t80823; struct structure_type24753 *t80824; struct w49 t80825; struct w49 t80826; struct w12224 t80827; struct w49 t80828; struct w49 t80829; struct structure_type27745 *t80830; struct structure_type27745 *t80831; struct w49 t80832; struct w49 t80833; unsigned t80834; struct w49 t80835; struct w12224 t80836; struct w49 t80837; struct w49 t80838; struct w49 t80839; struct w49 t80840; struct w49 t80841; struct w49 t80842; struct w49 t80843; struct w49 t80844; struct w49 t80845; struct w49 t80846; struct w49 t80847; struct w49 t80848; struct w49 t80849; struct w49 t80850; struct structure_type24753 *t80851; struct w49 t80852; struct w49 t80853; struct w49 t80854; struct p7873 *p7881; struct p7873 *p7882; struct p7873 *p7883; struct p7873 *p7884; struct p7873 *p7885; /* x66687 stalin.sc:2564:85088 */ /* x66686 stalin.sc:2564:85092 */ /* x66686 stalin.sc:2564:85092 */ /* x66670 stalin.sc:2564:85097 */ /* x66669 stalin.sc:2564:85124 */ t80832 = a21582; /* x66668 stalin.sc:2564:85098 */ a38215 = t80832; /* x285529 */ /* x285528 */ t80833 = a38215; /* x285527 */ if (!((t80833.tag)==STRUCTURE_TYPE27753)) goto l15218; /* x66684 */ /* x66681 stalin.sc:2568:85270 */ t80835 = a21582; /* x66682 stalin.sc:2568:85272 */ t80836 = p7880->a21573; /* x66683 stalin.sc:2568:85275 */ t80837 = p7880->a21574; /* x66680 stalin.sc:2565:85136 */ /* x66679 stalin.sc:2566:85182 */ /* x66678 stalin.sc:2566:85187 */ /* x66676 stalin.sc:2566:85193 */ /* x66675 stalin.sc:2566:85224 */ t80853 = a21582; /* x66674 stalin.sc:2566:85194 */ a38186 = t80853; /* x285413 */ /* x285412 */ t80854 = a38186; /* x285411 */ if (!((t80854.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-NAME[5895] 33103]"); structure_ref_error();} t80850 = t80854.value.structure_type27753->s0; /* x66677 stalin.sc:2567:85234 */ t80851 = a789; /* x66673 stalin.sc:2566:85188 */ /* MOVE: branching squeezed to general */ if (t80851>=((struct structure_type24753 *)VALUE_OFFSET)) {t80852.tag = STRUCTURE_TYPE24753; t80852.value.structure_type24753 = t80851;} else t80852.tag = (unsigned)t80851; t80849 = f26354(t80850, t80852); /* x270431 stalin.sc:2566:85183 */ if (!((t80849.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 2566, 85182); structure_ref_error();} t80847 = t80849.value.structure_type24753->s1; /* x66671 stalin.sc:2565:85137 */ a36280 = t80847; /* x276319 */ /* x276318 */ t80848 = a36280; /* x276317 */ if (!((t80848.tag)==STRUCTURE_TYPE24757)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-COMPATIBLE-PROCEDURE?[16184] 30396]"); structure_ref_error();} t80834 = t80848.value.structure_type24757->s0; switch (t80834) {case NATIVE_PROCEDURE_TYPE6623: t80838 = *((struct w49 *)(&t80836)); if (f16273(t80838, t80837)==FALSE_TYPE) goto l15218; break; case NATIVE_PROCEDURE_TYPE6624: t80839 = *((struct w49 *)(&t80836)); if (f16269(t80839, t80837)==FALSE_TYPE) goto l15218; break; case NATIVE_PROCEDURE_TYPE6625: t80840 = *((struct w49 *)(&t80836)); if (f16265(t80840, t80837)==FALSE_TYPE) goto l15218; break; case NATIVE_PROCEDURE_TYPE6626: t80841 = *((struct w49 *)(&t80836)); if (f16260(t80841, t80837)==FALSE_TYPE) goto l15218; break; case NATIVE_PROCEDURE_TYPE6627: t80842 = *((struct w49 *)(&t80836)); if (f16256(t80835, t80842, t80837)==FALSE_TYPE) goto l15218; break; case NATIVE_PROCEDURE_TYPE6628: t80843 = *((struct w49 *)(&t80836)); if (f16252(t80843, t80837)==FALSE_TYPE) goto l15218; break; case NATIVE_PROCEDURE_TYPE6629: t80844 = *((struct w49 *)(&t80836)); if (f16248(t80844, t80837)==FALSE_TYPE) goto l15218; break; case NATIVE_PROCEDURE_TYPE6630: t80845 = *((struct w49 *)(&t80836)); if (f16244(t80845, t80837)==FALSE_TYPE) goto l15218; break; default: t80846 = *((struct w49 *)(&t80836)); if (f16240(t80846, t80837)==FALSE_TYPE) goto l15218;} t80768 = TRUE_TYPE; goto l15219; l15218: t80768 = FALSE_TYPE; l15219: /* x66667 */ t80767 = p7880; p7881 = t80767; a21583 = t80768; /* x66666 */ /* x66549 */ if (a21583==FALSE_TYPE) goto l15194; /* x66550 */ r7880.tag = a21583; return r7880; l15194: /* x66665 */ /* x66664 stalin.sc:2569:85282 */ /* x66598 stalin.sc:2569:85287 */ /* x66597 stalin.sc:2569:85311 */ t80796 = a21582; /* x66596 stalin.sc:2569:85288 */ a38094 = t80796; /* x285045 */ /* x285044 */ t80797 = a38094; /* x285043 */ if (!((t80797.tag)==STRUCTURE_TYPE27756)) goto l15205; /* x66662 */ /* x66610 stalin.sc:2571:85348 */ /* x66609 stalin.sc:2571:85352 */ /* x66608 stalin.sc:2571:85357 */ if (a2040==FALSE_TYPE) goto l15207; p7884 = p7881; /* x66604 */ /* x66602 stalin.sc:2571:85395 */ t80798 = a21582; /* x66603 stalin.sc:2571:85397 */ t80799 = p7884->a21575; /* x66601 stalin.sc:2571:85375 */ t80800 = t80799; if ((f9367(t80798, t80800).tag)==FALSE_TYPE) goto l15208; l15207: /* x66660 */ /* x66659 stalin.sc:2572:85418 */ /* x66657 stalin.sc:2572:85438 */ t80829 = a21582; /* x66658 stalin.sc:2572:85440 */ t80830 = p7881->a21575; /* x66656 stalin.sc:2572:85419 */ t80831 = t80830; t80802 = f9368(t80829, t80831); /* x66655 */ t80801 = p7881; p7885 = t80801; a21587 = t80802; /* x66654 stalin.sc:2576:85594 */ /* x66615 stalin.sc:2576:85599 */ /* x66614 stalin.sc:2576:85604 */ /* x66613 stalin.sc:2576:85616 */ t80803 = a21587; /* x66612 stalin.sc:2576:85605 */ if (!(f8944(t80803)==FALSE_TYPE)) goto l15212; /* x66652 */ /* x66618 stalin.sc:2577:85631 */ /* x66617 stalin.sc:2577:85638 */ t80804 = a21587; /* x66616 stalin.sc:2577:85632 */ if (f8931(t80804)==FALSE_TYPE) goto l15215; /* x66636 stalin.sc:2578:85645 */ /* x66634 stalin.sc:2578:85654 */ /* x66633 stalin.sc:2579:85692 */ /* x66629 stalin.sc:2579:85695 */ /* x66627 stalin.sc:2579:85698 */ /* x66626 stalin.sc:2579:85706 */ /* x66625 stalin.sc:2579:85717 */ t80826 = a21587; /* x66624 stalin.sc:2579:85707 */ t80824 = f8987(t80826); /* x66623 stalin.sc:2579:85699 */ /* MOVE: branching squeezed to general */ if (t80824>=((struct structure_type24753 *)VALUE_OFFSET)) {t80825.tag = STRUCTURE_TYPE24753; t80825.value.structure_type24753 = t80824;} else t80825.tag = (unsigned)t80824; t80822 = f26227(t80825); /* x66628 stalin.sc:2579:85721 */ t80823 = 1; /* x270433 stalin.sc:2579:85696 */ t80820 = t80822-t80823; /* x66632 stalin.sc:2580:85734 */ /* x66631 stalin.sc:2580:85742 */ t80827 = p7885->a21573; /* x66630 stalin.sc:2580:85735 */ t80828 = *((struct w49 *)(&t80827)); t80821 = f26227(t80828); /* x270434 stalin.sc:2579:85693 */ t80819 = t80820-t80821; /* x66620 stalin.sc:2578:85655 */ t80816 = f7738(t80819); /* x66635 stalin.sc:2581:85754 */ t80817 = p7885->a21574; /* x66619 stalin.sc:2578:85646 */ t80818.tag = NATIVE_PROCEDURE_TYPE19912; t80818.value.native_procedure_type19912 = t80816; t80770 = f8137(t80818, t80817); goto l15216; l15215: /* x66651 stalin.sc:2582:85761 */ /* x66649 stalin.sc:2582:85770 */ /* x66648 stalin.sc:2583:85799 */ /* x66644 stalin.sc:2583:85802 */ /* x66643 stalin.sc:2583:85810 */ /* x66642 stalin.sc:2583:85821 */ t80813 = a21587; /* x66641 stalin.sc:2583:85811 */ t80811 = f8987(t80813); /* x66640 stalin.sc:2583:85803 */ /* MOVE: branching squeezed to general */ if (t80811>=((struct structure_type24753 *)VALUE_OFFSET)) {t80812.tag = STRUCTURE_TYPE24753; t80812.value.structure_type24753 = t80811;} else t80812.tag = (unsigned)t80811; t80809 = f26227(t80812); /* x66647 stalin.sc:2583:85825 */ /* x66646 stalin.sc:2583:85833 */ t80814 = p7885->a21573; /* x66645 stalin.sc:2583:85826 */ t80815 = *((struct w49 *)(&t80814)); t80810 = f26227(t80815); /* x270432 stalin.sc:2583:85800 */ t80808 = t80809-t80810; /* x66638 stalin.sc:2582:85771 */ t80805 = f7736(t80808); /* x66650 stalin.sc:2584:85845 */ t80806 = p7885->a21574; /* x66637 stalin.sc:2582:85762 */ t80807.tag = NATIVE_PROCEDURE_TYPE19883; t80807.value.native_procedure_type19883 = t80805; t80770 = f8137(t80807, t80806); l15216: goto l15213; l15212: /* x66653 */ t80770.tag = FALSE_TYPE; l15213: goto l15209; l15208: /* x66661 */ t80770.tag = FALSE_TYPE; l15209: goto l15206; l15205: /* x66663 */ t80770.tag = FALSE_TYPE; l15206: /* x66595 */ t80769 = p7881; p7882 = t80769; a21584 = t80770; /* x66594 */ /* x66551 */ if ((a21584.tag)==FALSE_TYPE) goto l15196; /* x66552 */ return a21584; l15196: /* x66593 */ /* x66592 stalin.sc:2585:85855 */ /* x66575 stalin.sc:2585:85860 */ /* x66574 stalin.sc:2585:85885 */ t80783 = a21582; /* x66573 stalin.sc:2585:85861 */ a37958 = t80783; /* x284501 */ /* x284500 */ t80784 = a37958; /* x284499 */ if (!((t80784.tag)==STRUCTURE_TYPE27750)) goto l15202; /* x66590 */ /* x66588 stalin.sc:2586:85905 */ /* x66587 stalin.sc:2587:85931 */ /* x66583 stalin.sc:2587:85934 */ /* x66582 stalin.sc:2587:85942 */ /* x66581 stalin.sc:2587:85977 */ t80792 = a21582; /* x66580 stalin.sc:2587:85943 */ a37924 = t80792; /* x284365 */ /* x284364 */ t80793 = a37924; /* x284363 */ if (!((t80793.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-PARAMETERS[6003] 32841]"); structure_ref_error();} t80791 = t80793.value.structure_type27750->s1; /* x66579 stalin.sc:2587:85935 */ t80789 = f26227(t80791); /* x66586 stalin.sc:2588:85988 */ /* x66585 stalin.sc:2588:85996 */ t80794 = p7882->a21573; /* x66584 stalin.sc:2588:85989 */ t80795 = *((struct w49 *)(&t80794)); t80790 = f26227(t80795); /* x270437 stalin.sc:2587:85932 */ t80788 = t80789-t80790; /* x66577 stalin.sc:2586:85906 */ t80785 = f7736(t80788); /* x66589 stalin.sc:2589:86005 */ t80786 = p7882->a21574; /* x66576 stalin.sc:2586:85897 */ t80787.tag = NATIVE_PROCEDURE_TYPE19883; t80787.value.native_procedure_type19883 = t80785; t80772 = f8137(t80787, t80786); goto l15203; l15202: /* x66591 */ t80772.tag = FALSE_TYPE; l15203: /* x66572 */ t80771 = p7882; p7883 = t80771; a21585 = t80772; /* x66571 */ /* x66553 */ if ((a21585.tag)==FALSE_TYPE) goto l15198; /* x66554 */ return a21585; l15198: /* x66570 */ /* x66557 stalin.sc:2590:86017 */ /* x66556 stalin.sc:2590:86037 */ t80773 = a21582; /* x66555 stalin.sc:2590:86018 */ a37886 = t80773; /* x284213 */ /* x284212 */ t80774 = a37886; /* x284211 */ if (!((t80774.tag)==STRUCTURE_TYPE27858)) goto l15200; /* x66568 */ /* x66566 stalin.sc:2591:86057 */ /* x66565 stalin.sc:2591:86079 */ /* x66561 stalin.sc:2591:86082 */ t80779 = 1; /* x66564 stalin.sc:2591:86084 */ /* x66563 stalin.sc:2591:86092 */ t80781 = p7883->a21573; /* x66562 stalin.sc:2591:86085 */ t80782 = *((struct w49 *)(&t80781)); t80780 = f26227(t80782); /* x270438 stalin.sc:2591:86080 */ t80778 = t80779-t80780; /* x66559 stalin.sc:2591:86058 */ t80775 = f7736(t80778); /* x66567 stalin.sc:2591:86098 */ t80776 = p7883->a21574; /* x66558 stalin.sc:2591:86049 */ t80777.tag = NATIVE_PROCEDURE_TYPE19883; t80777.value.native_procedure_type19883 = t80775; return f8137(t80777, t80776); l15200: /* x66569 */ r7880.tag = FALSE_TYPE; return r7880;} /* [inside COMPATIBLE-PROCEDURE? 7874] */ struct w16638 f7874(struct p7873 *p7874, struct w49 a21576) {struct w16638 r7874; unsigned a21577; /* v */ struct w16638 a21578; /* v */ struct w16638 a21579; /* v */ struct w49 a21581; /* E */ struct w49 a27217; /* S */ struct w12224 a35502; /* PAIR */ struct w49 a37885; /* OBJ */ struct w49 a37923; /* S */ struct w49 a37957; /* OBJ */ struct w49 a38093; /* OBJ */ struct w49 a38185; /* S */ struct w49 a38214; /* OBJ */ struct p7873 *t80855; unsigned t80856; struct p7873 *t80857; struct w16638 t80858; struct p7873 *t80859; struct w16638 t80860; struct w49 t80861; struct w49 t80862; struct p7736 *t80863; struct w49 t80864; struct w211257 t80865; int t80866; int t80867; int t80868; struct w12224 t80869; struct w49 t80870; struct w49 t80871; struct w49 t80872; struct p7736 *t80873; struct w49 t80874; struct w211257 t80875; int t80876; int t80877; int t80878; int t80879; int t80880; struct w49 t80881; struct w49 t80882; struct w49 t80883; struct w12224 t80884; struct w49 t80885; struct w49 t80886; struct w49 t80887; struct w49 t80888; struct structure_type27745 *t80889; struct structure_type27745 *t80890; struct p7873 *t80891; struct w49 t80892; struct w49 t80893; struct w49 t80894; struct p7736 *t80895; struct w49 t80896; struct w211257 t80897; int t80898; int t80899; int t80900; int t80901; int t80902; struct structure_type24753 *t80903; struct w49 t80904; struct w49 t80905; struct w12224 t80906; struct w49 t80907; struct p7736 *t80908; struct w49 t80909; struct w211257 t80910; int t80911; int t80912; int t80913; struct structure_type24753 *t80914; struct w49 t80915; struct w49 t80916; struct w12224 t80917; struct w49 t80918; struct w49 t80919; struct p7738 *t80920; struct w49 t80921; struct w211257 t80922; int t80923; int t80924; int t80925; struct structure_type24753 *t80926; struct w49 t80927; struct w49 t80928; struct w12224 t80929; struct w49 t80930; struct p7738 *t80931; struct w49 t80932; struct w211257 t80933; int t80934; int t80935; int t80936; int t80937; int t80938; struct structure_type24753 *t80939; struct w49 t80940; struct w49 t80941; struct w12224 t80942; struct w49 t80943; struct w49 t80944; struct structure_type27745 *t80945; struct structure_type27745 *t80946; struct w49 t80947; struct w49 t80948; unsigned t80949; struct w49 t80950; struct w49 t80951; struct w49 t80952; struct w49 t80953; struct w49 t80954; struct w49 t80955; struct w49 t80956; struct structure_type24753 *t80957; struct w49 t80958; struct w49 t80959; struct w49 t80960; struct w12224 t80961; struct w12224 t80962; struct p7873 *p7875; struct p7873 *p7876; struct p7873 *p7877; struct p7873 *p7878; struct p7873 *p7879; /* x66547 stalin.sc:2531:83980 */ /* x66546 stalin.sc:2531:83984 */ /* x66546 stalin.sc:2531:83984 */ /* x66528 stalin.sc:2531:83989 */ /* x66527 stalin.sc:2531:84016 */ t80947 = a21576; /* x66526 stalin.sc:2531:83990 */ a38214 = t80947; /* x285525 */ /* x285524 */ t80948 = a38214; /* x285523 */ if (!((t80948.tag)==STRUCTURE_TYPE27753)) goto l15249; /* x66544 */ /* x66539 stalin.sc:2535:84162 */ t80950 = a21576; /* x66542 stalin.sc:2535:84164 */ /* x66541 stalin.sc:2535:84170 */ t80961 = p7874->a21573; /* x66540 stalin.sc:2535:84165 */ a35502 = t80961; /* x273365 */ /* x273364 */ t80962 = a35502; /* x273363 */ if (!((t80962.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29651]"); structure_ref_error();} t80951 = t80962.value.structure_type24753->s1; /* x66543 stalin.sc:2535:84174 */ t80952 = p7874->a21574; /* x66538 stalin.sc:2532:84028 */ /* x66537 stalin.sc:2533:84074 */ /* x66536 stalin.sc:2533:84079 */ /* x66534 stalin.sc:2533:84085 */ /* x66533 stalin.sc:2533:84116 */ t80959 = a21576; /* x66532 stalin.sc:2533:84086 */ a38185 = t80959; /* x285409 */ /* x285408 */ t80960 = a38185; /* x285407 */ if (!((t80960.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-NAME[5895] 33102]"); structure_ref_error();} t80956 = t80960.value.structure_type27753->s0; /* x66535 stalin.sc:2534:84126 */ t80957 = a789; /* x66531 stalin.sc:2533:84080 */ /* MOVE: branching squeezed to general */ if (t80957>=((struct structure_type24753 *)VALUE_OFFSET)) {t80958.tag = STRUCTURE_TYPE24753; t80958.value.structure_type24753 = t80957;} else t80958.tag = (unsigned)t80957; t80955 = f26354(t80956, t80958); /* x270439 stalin.sc:2533:84075 */ if (!((t80955.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 2533, 84074); structure_ref_error();} t80953 = t80955.value.structure_type24753->s1; /* x66529 stalin.sc:2532:84029 */ a27217 = t80953; /* x152759 */ /* x152758 */ t80954 = a27217; /* x152757 */ if (!((t80954.tag)==STRUCTURE_TYPE24757)) {backtrace_internal("PRIMITIVE-PROCEDURE-COMPATIBLE-PROCEDURE?[16184]"); structure_ref_error();} t80949 = t80954.value.structure_type24757->s0; switch (t80949) {case NATIVE_PROCEDURE_TYPE6623: if (f16273(t80951, t80952)==FALSE_TYPE) goto l15249; break; case NATIVE_PROCEDURE_TYPE6624: if (f16269(t80951, t80952)==FALSE_TYPE) goto l15249; break; case NATIVE_PROCEDURE_TYPE6625: if (f16265(t80951, t80952)==FALSE_TYPE) goto l15249; break; case NATIVE_PROCEDURE_TYPE6626: if (f16260(t80951, t80952)==FALSE_TYPE) goto l15249; break; case NATIVE_PROCEDURE_TYPE6627: if (f16256(t80950, t80951, t80952)==FALSE_TYPE) goto l15249; break; case NATIVE_PROCEDURE_TYPE6628: if (f16252(t80951, t80952)==FALSE_TYPE) goto l15249; break; case NATIVE_PROCEDURE_TYPE6629: if (f16248(t80951, t80952)==FALSE_TYPE) goto l15249; break; case NATIVE_PROCEDURE_TYPE6630: if (f16244(t80951, t80952)==FALSE_TYPE) goto l15249; break; default: if (f16240(t80951, t80952)==FALSE_TYPE) goto l15249;} t80856 = TRUE_TYPE; goto l15250; l15249: t80856 = FALSE_TYPE; l15250: /* x66525 */ t80855 = p7874; p7875 = t80855; a21577 = t80856; /* x66524 */ /* x66370 */ if (a21577==FALSE_TYPE) goto l15222; /* x66371 */ r7874.tag = a21577; return r7874; l15222: /* x66523 */ /* x66522 stalin.sc:2536:84181 */ /* x66422 stalin.sc:2536:84186 */ /* x66421 stalin.sc:2536:84210 */ t80886 = a21576; /* x66420 stalin.sc:2536:84187 */ a38093 = t80886; /* x285041 */ /* x285040 */ t80887 = a38093; /* x285039 */ if (!((t80887.tag)==STRUCTURE_TYPE27756)) goto l15233; /* x66520 */ /* x66434 stalin.sc:2538:84247 */ /* x66433 stalin.sc:2538:84251 */ /* x66432 stalin.sc:2538:84256 */ if (a2040==FALSE_TYPE) goto l15235; p7878 = p7875; /* x66428 */ /* x66426 stalin.sc:2538:84294 */ t80888 = a21576; /* x66427 stalin.sc:2538:84296 */ t80889 = p7878->a21575; /* x66425 stalin.sc:2538:84274 */ t80890 = t80889; if ((f9367(t80888, t80890).tag)==FALSE_TYPE) goto l15236; l15235: /* x66518 */ /* x66517 stalin.sc:2539:84317 */ /* x66515 stalin.sc:2539:84337 */ t80944 = a21576; /* x66516 stalin.sc:2539:84339 */ t80945 = p7875->a21575; /* x66514 stalin.sc:2539:84318 */ t80946 = t80945; t80892 = f9368(t80944, t80946); /* x66513 */ t80891 = p7875; p7879 = t80891; a21581 = t80892; /* x66512 stalin.sc:2540:84346 */ /* x66437 stalin.sc:2540:84350 */ /* x66436 stalin.sc:2540:84357 */ t80893 = a21581; /* x66435 stalin.sc:2540:84351 */ if (f8931(t80893)==FALSE_TYPE) goto l15240; /* x66474 stalin.sc:2541:84366 */ /* x66440 stalin.sc:2541:84370 */ /* x66439 stalin.sc:2541:84382 */ t80919 = a21581; /* x66438 stalin.sc:2541:84371 */ if (f8944(t80919)==FALSE_TYPE) goto l15246; /* x66458 stalin.sc:2542:84388 */ /* x66456 stalin.sc:2542:84397 */ /* x66455 stalin.sc:2543:84434 */ /* x66451 stalin.sc:2543:84437 */ /* x66449 stalin.sc:2543:84440 */ /* x66448 stalin.sc:2543:84448 */ /* x66447 stalin.sc:2543:84459 */ t80941 = a21581; /* x66446 stalin.sc:2543:84449 */ t80939 = f8987(t80941); /* x66445 stalin.sc:2543:84441 */ /* MOVE: branching squeezed to general */ if (t80939>=((struct structure_type24753 *)VALUE_OFFSET)) {t80940.tag = STRUCTURE_TYPE24753; t80940.value.structure_type24753 = t80939;} else t80940.tag = (unsigned)t80939; t80937 = f26227(t80940); /* x66450 stalin.sc:2543:84463 */ t80938 = 1; /* x270444 stalin.sc:2543:84438 */ t80935 = t80937-t80938; /* x66454 stalin.sc:2543:84466 */ /* x66453 stalin.sc:2543:84474 */ t80942 = p7879->a21573; /* x66452 stalin.sc:2543:84467 */ t80943 = *((struct w49 *)(&t80942)); t80936 = f26227(t80943); /* x270445 stalin.sc:2543:84435 */ t80934 = t80935-t80936; /* x66442 stalin.sc:2542:84398 */ t80931 = f7738(t80934); /* x66457 stalin.sc:2544:84485 */ t80932 = p7879->a21574; /* x66441 stalin.sc:2542:84389 */ t80933.tag = NATIVE_PROCEDURE_TYPE19912; t80933.value.native_procedure_type19912 = t80931; t80858 = f8137(t80933, t80932); goto l15247; l15246: /* x66473 stalin.sc:2545:84491 */ /* x66471 stalin.sc:2545:84500 */ /* x66470 stalin.sc:2546:84537 */ /* x66466 stalin.sc:2546:84540 */ /* x66465 stalin.sc:2546:84548 */ /* x66464 stalin.sc:2546:84559 */ t80928 = a21581; /* x66463 stalin.sc:2546:84549 */ t80926 = f8987(t80928); /* x66462 stalin.sc:2546:84541 */ /* MOVE: branching squeezed to general */ if (t80926>=((struct structure_type24753 *)VALUE_OFFSET)) {t80927.tag = STRUCTURE_TYPE24753; t80927.value.structure_type24753 = t80926;} else t80927.tag = (unsigned)t80926; t80924 = f26227(t80927); /* x66469 stalin.sc:2546:84563 */ /* x66468 stalin.sc:2546:84571 */ t80929 = p7879->a21573; /* x66467 stalin.sc:2546:84564 */ t80930 = *((struct w49 *)(&t80929)); t80925 = f26227(t80930); /* x270443 stalin.sc:2546:84538 */ t80923 = t80924-t80925; /* x66460 stalin.sc:2545:84501 */ t80920 = f7738(t80923); /* x66472 stalin.sc:2547:84582 */ t80921 = p7879->a21574; /* x66459 stalin.sc:2545:84492 */ t80922.tag = NATIVE_PROCEDURE_TYPE19912; t80922.value.native_procedure_type19912 = t80920; t80858 = f8137(t80922, t80921); l15247: goto l15241; l15240: /* x66511 stalin.sc:2548:84592 */ /* x66477 stalin.sc:2548:84596 */ /* x66476 stalin.sc:2548:84608 */ t80894 = a21581; /* x66475 stalin.sc:2548:84597 */ if (f8944(t80894)==FALSE_TYPE) goto l15243; /* x66492 stalin.sc:2549:84614 */ /* x66490 stalin.sc:2549:84623 */ /* x66489 stalin.sc:2550:84651 */ /* x66485 stalin.sc:2550:84654 */ /* x66484 stalin.sc:2550:84662 */ /* x66483 stalin.sc:2550:84673 */ t80916 = a21581; /* x66482 stalin.sc:2550:84663 */ t80914 = f8987(t80916); /* x66481 stalin.sc:2550:84655 */ /* MOVE: branching squeezed to general */ if (t80914>=((struct structure_type24753 *)VALUE_OFFSET)) {t80915.tag = STRUCTURE_TYPE24753; t80915.value.structure_type24753 = t80914;} else t80915.tag = (unsigned)t80914; t80912 = f26227(t80915); /* x66488 stalin.sc:2550:84677 */ /* x66487 stalin.sc:2550:84685 */ t80917 = p7879->a21573; /* x66486 stalin.sc:2550:84678 */ t80918 = *((struct w49 *)(&t80917)); t80913 = f26227(t80918); /* x270442 stalin.sc:2550:84652 */ t80911 = t80912-t80913; /* x66479 stalin.sc:2549:84624 */ t80908 = f7736(t80911); /* x66491 stalin.sc:2551:84696 */ t80909 = p7879->a21574; /* x66478 stalin.sc:2549:84615 */ t80910.tag = NATIVE_PROCEDURE_TYPE19883; t80910.value.native_procedure_type19883 = t80908; t80858 = f8137(t80910, t80909); goto l15244; l15243: /* x66510 stalin.sc:2552:84702 */ /* x66508 stalin.sc:2552:84711 */ /* x66507 stalin.sc:2553:84739 */ /* x66503 stalin.sc:2553:84742 */ /* x66501 stalin.sc:2553:84745 */ /* x66500 stalin.sc:2553:84753 */ /* x66499 stalin.sc:2553:84764 */ t80905 = a21581; /* x66498 stalin.sc:2553:84754 */ t80903 = f8987(t80905); /* x66497 stalin.sc:2553:84746 */ /* MOVE: branching squeezed to general */ if (t80903>=((struct structure_type24753 *)VALUE_OFFSET)) {t80904.tag = STRUCTURE_TYPE24753; t80904.value.structure_type24753 = t80903;} else t80904.tag = (unsigned)t80903; t80901 = f26227(t80904); /* x66502 stalin.sc:2553:84768 */ t80902 = 1; /* x270440 stalin.sc:2553:84743 */ t80899 = t80901+t80902; /* x66506 stalin.sc:2553:84771 */ /* x66505 stalin.sc:2553:84779 */ t80906 = p7879->a21573; /* x66504 stalin.sc:2553:84772 */ t80907 = *((struct w49 *)(&t80906)); t80900 = f26227(t80907); /* x270441 stalin.sc:2553:84740 */ t80898 = t80899-t80900; /* x66494 stalin.sc:2552:84712 */ t80895 = f7736(t80898); /* x66509 stalin.sc:2554:84790 */ t80896 = p7879->a21574; /* x66493 stalin.sc:2552:84703 */ t80897.tag = NATIVE_PROCEDURE_TYPE19883; t80897.value.native_procedure_type19883 = t80895; t80858 = f8137(t80897, t80896); l15244: l15241: goto l15237; l15236: /* x66519 */ t80858.tag = FALSE_TYPE; l15237: goto l15234; l15233: /* x66521 */ t80858.tag = FALSE_TYPE; l15234: /* x66419 */ t80857 = p7875; p7876 = t80857; a21578 = t80858; /* x66418 */ /* x66372 */ if ((a21578.tag)==FALSE_TYPE) goto l15224; /* x66373 */ return a21578; l15224: /* x66417 */ /* x66416 stalin.sc:2555:84800 */ /* x66396 stalin.sc:2555:84805 */ /* x66395 stalin.sc:2555:84830 */ t80871 = a21576; /* x66394 stalin.sc:2555:84806 */ a37957 = t80871; /* x284497 */ /* x284496 */ t80872 = a37957; /* x284495 */ if (!((t80872.tag)==STRUCTURE_TYPE27750)) goto l15230; /* x66414 */ /* x66412 stalin.sc:2556:84850 */ /* x66411 stalin.sc:2557:84876 */ /* x66407 stalin.sc:2557:84879 */ /* x66405 stalin.sc:2557:84882 */ /* x66404 stalin.sc:2557:84890 */ /* x66403 stalin.sc:2557:84925 */ t80882 = a21576; /* x66402 stalin.sc:2557:84891 */ a37923 = t80882; /* x284361 */ /* x284360 */ t80883 = a37923; /* x284359 */ if (!((t80883.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-PARAMETERS[6003] 32840]"); structure_ref_error();} t80881 = t80883.value.structure_type27750->s1; /* x66401 stalin.sc:2557:84883 */ t80879 = f26227(t80881); /* x66406 stalin.sc:2558:84939 */ t80880 = 1; /* x270447 stalin.sc:2557:84880 */ t80877 = t80879+t80880; /* x66410 stalin.sc:2559:84949 */ /* x66409 stalin.sc:2559:84957 */ t80884 = p7876->a21573; /* x66408 stalin.sc:2559:84950 */ t80885 = *((struct w49 *)(&t80884)); t80878 = f26227(t80885); /* x270448 stalin.sc:2557:84877 */ t80876 = t80877-t80878; /* x66398 stalin.sc:2556:84851 */ t80873 = f7736(t80876); /* x66413 stalin.sc:2560:84966 */ t80874 = p7876->a21574; /* x66397 stalin.sc:2556:84842 */ t80875.tag = NATIVE_PROCEDURE_TYPE19883; t80875.value.native_procedure_type19883 = t80873; t80860 = f8137(t80875, t80874); goto l15231; l15230: /* x66415 */ t80860.tag = FALSE_TYPE; l15231: /* x66393 */ t80859 = p7876; p7877 = t80859; a21579 = t80860; /* x66392 */ /* x66374 */ if ((a21579.tag)==FALSE_TYPE) goto l15226; /* x66375 */ return a21579; l15226: /* x66391 */ /* x66378 stalin.sc:2561:84978 */ /* x66377 stalin.sc:2561:84998 */ t80861 = a21576; /* x66376 stalin.sc:2561:84979 */ a37885 = t80861; /* x284209 */ /* x284208 */ t80862 = a37885; /* x284207 */ if (!((t80862.tag)==STRUCTURE_TYPE27858)) goto l15228; /* x66389 */ /* x66387 stalin.sc:2562:85018 */ /* x66386 stalin.sc:2562:85040 */ /* x66382 stalin.sc:2562:85043 */ t80867 = 2; /* x66385 stalin.sc:2562:85045 */ /* x66384 stalin.sc:2562:85053 */ t80869 = p7877->a21573; /* x66383 stalin.sc:2562:85046 */ t80870 = *((struct w49 *)(&t80869)); t80868 = f26227(t80870); /* x270449 stalin.sc:2562:85041 */ t80866 = t80867-t80868; /* x66380 stalin.sc:2562:85019 */ t80863 = f7736(t80866); /* x66388 stalin.sc:2562:85059 */ t80864 = p7877->a21574; /* x66379 stalin.sc:2562:85010 */ t80865.tag = NATIVE_PROCEDURE_TYPE19883; t80865.value.native_procedure_type19883 = t80863; return f8137(t80865, t80864); l15228: /* x66390 */ r7874.tag = FALSE_TYPE; return r7874;} /* COMPATIBLE-PROCEDURE?[7873] */ unsigned f7873(struct w12224 a21573, struct w49 a21574, struct structure_type27745 *a21575) {struct structure_type27745 *t80963; struct w49 t80964; struct p7873 *e7873; e7873 = (struct p7873 *)GC_malloc(sizeof(struct p7873)); if (e7873==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e7873->a21573 = a21573; e7873->a21574 = a21574; e7873->a21575 = a21575; /* x66689 stalin.sc:2529:83938 */ /* x66369 stalin.sc:2529:83942 */ /* x66368 stalin.sc:2529:83954 */ t80963 = e7873->a21575; /* x66367 stalin.sc:2529:83943 */ t80964.tag = STRUCTURE_TYPE27745; t80964.value.structure_type27745 = t80963; if (f8944(t80964)==FALSE_TYPE) goto l15253; /* x66548 stalin.sc:2530:83962 */ return (unsigned)e7873; l15253: /* x66688 stalin.sc:2563:85070 */ return ((unsigned)e7873)+1;} /* TYPE-USED?[7849] */ unsigned f7849(struct w49 a21572) {struct w49 a19633; /* S */ struct w49 a21164; /* U */ struct w49 a21184; /* U */ struct w49 a21200; /* U */ struct w49 a21228; /* U */ struct w49 a21260; /* U */ struct w49 a21280; /* U */ struct w49 a21312; /* U */ struct w49 a21348; /* U */ struct w49 a21396; /* U */ struct w49 a21436; /* U */ struct w49 a21472; /* U */ struct w49 a37286; /* S */ struct w49 a37346; /* OBJ */ struct w49 a37368; /* S */ struct w49 a37446; /* OBJ */ struct w49 a37466; /* S */ struct w49 a37562; /* OBJ */ struct w49 a37580; /* S */ struct w49 a37704; /* OBJ */ struct w49 a37723; /* S */ struct w49 a37778; /* OBJ */ struct w49 a37791; /* S */ struct w49 a37899; /* OBJ */ struct w49 a37914; /* S */ struct w49 a37970; /* OBJ */ struct w49 a38117; /* OBJ */ struct w49 a38135; /* S */ struct w49 a38228; /* OBJ */ struct w49 a38242; /* S */ struct w49 a38287; /* OBJ */ struct w49 a38300; /* S */ struct w49 a38328; /* OBJ */ struct w49 t80965; struct w49 t80966; struct w49 t80967; struct w49 t80968; struct w49 t80969; struct w49 t80970; struct w49 t80971; struct w49 t80972; struct w49 t80973; struct w49 t80974; struct w49 t80975; struct w49 t80976; struct w49 t80977; struct w49 t80978; struct w49 t80979; struct w49 t80980; struct w49 t80981; struct w49 t80982; struct w49 t80983; struct w49 t80984; struct w49 t80985; struct w49 t80986; struct w49 t80987; struct w49 t80988; struct w49 t80989; struct w49 t80990; struct w49 t80991; struct w49 t80992; struct w49 t80993; struct w49 t80994; struct w49 t80995; struct w49 t80996; struct w49 t80997; char *t80998; struct w49 t80999; int t81000; int t81001; int t81002; struct structure_type24753 *t81003; struct w49 t81004; struct w49 t81005; struct w49 t81006; struct w49 t81007; int t81008; int t81009; int t81010; struct structure_type24753 *t81011; struct w49 t81012; struct w49 t81013; struct w49 t81014; struct w49 t81015; int t81016; int t81017; int t81018; struct structure_type24753 *t81019; struct w49 t81020; struct w49 t81021; struct w49 t81022; struct w49 t81023; int t81024; int t81025; int t81026; struct structure_type24753 *t81027; struct w49 t81028; struct w49 t81029; struct w49 t81030; struct w49 t81031; int t81032; int t81033; int t81034; struct structure_type24753 *t81035; struct w49 t81036; struct w49 t81037; struct w49 t81038; struct w49 t81039; int t81040; int t81041; int t81042; struct structure_type24753 *t81043; struct w49 t81044; struct w49 t81045; struct w49 t81046; struct w49 t81047; int t81048; int t81049; int t81050; struct structure_type24753 *t81051; struct w49 t81052; struct w49 t81053; struct w49 t81054; struct w49 t81055; int t81056; int t81057; int t81058; struct structure_type24753 *t81059; struct w49 t81060; struct w49 t81061; struct w49 t81062; struct w49 t81063; int t81064; int t81065; int t81066; struct structure_type24753 *t81067; struct w49 t81068; struct w49 t81069; struct w49 t81070; struct w49 t81071; int t81072; int t81073; int t81074; struct structure_type24753 *t81075; struct w49 t81076; struct w49 t81077; struct w49 t81078; struct w49 t81079; int t81080; int t81081; int t81082; struct structure_type24753 *t81083; struct w49 t81084; struct w49 t81085; struct w49 t81086; /* x66364 stalin.sc:2504:82837 */ /* x66187 stalin.sc:2504:82844 */ /* x66186 stalin.sc:2504:82856 */ t80965 = a21572; /* x66185 stalin.sc:2504:82845 */ if (f7677(t80965)==FALSE_TYPE) goto l15255; /* x66190 */ /* x66189 */ /* x66188 stalin.sc:2504:82859 */ return TRUE_TYPE; l15255: /* x66363 */ /* x66193 stalin.sc:2505:82871 */ /* x66192 stalin.sc:2505:82883 */ t80966 = a21572; /* x66191 stalin.sc:2505:82872 */ if (f7678(t80966)==FALSE_TYPE) goto l15257; /* x66196 */ /* x66195 */ /* x66194 stalin.sc:2505:82886 */ return TRUE_TYPE; l15257: /* x66362 */ /* x66199 stalin.sc:2506:82898 */ /* x66198 stalin.sc:2506:82911 */ t80967 = a21572; /* x66197 stalin.sc:2506:82899 */ if (f7679(t80967)==FALSE_TYPE) goto l15259; /* x66202 */ /* x66201 */ /* x66200 stalin.sc:2506:82914 */ return TRUE_TYPE; l15259: /* x66361 */ /* x66205 stalin.sc:2507:82926 */ /* x66204 stalin.sc:2507:82938 */ t80968 = a21572; /* x66203 stalin.sc:2507:82927 */ if (f7682(t80968)==FALSE_TYPE) goto l15261; /* x66208 */ /* x66207 */ /* x66206 stalin.sc:2507:82941 */ return TRUE_TYPE; l15261: /* x66360 */ /* x66211 stalin.sc:2508:82953 */ /* x66210 stalin.sc:2508:82967 */ t80969 = a21572; /* x66209 stalin.sc:2508:82954 */ if (f7683(t80969)==FALSE_TYPE) goto l15263; /* x66214 */ /* x66213 */ /* x66212 stalin.sc:2508:82970 */ return TRUE_TYPE; l15263: /* x66359 */ /* x66217 stalin.sc:2509:82982 */ /* x66216 stalin.sc:2509:82996 */ t80970 = a21572; /* x66215 stalin.sc:2509:82983 */ if (f7684(t80970)==FALSE_TYPE) goto l15265; /* x66220 */ /* x66219 */ /* x66218 stalin.sc:2509:82999 */ return TRUE_TYPE; l15265: /* x66358 */ /* x66223 stalin.sc:2510:83011 */ /* x66222 stalin.sc:2510:83030 */ t80971 = a21572; /* x66221 stalin.sc:2510:83012 */ if (f7687(t80971)==FALSE_TYPE) goto l15267; /* x66226 */ /* x66225 */ /* x66224 stalin.sc:2510:83033 */ return TRUE_TYPE; l15267: /* x66357 */ /* x66229 stalin.sc:2511:83045 */ /* x66228 stalin.sc:2511:83063 */ t80972 = a21572; /* x66227 stalin.sc:2511:83046 */ if (f7700(t80972)==FALSE_TYPE) goto l15269; /* x66232 */ /* x66231 */ /* x66230 stalin.sc:2511:83066 */ return TRUE_TYPE; l15269: /* x66356 */ /* x66235 stalin.sc:2512:83078 */ /* x66234 stalin.sc:2512:83097 */ t80973 = a21572; /* x66233 stalin.sc:2512:83079 */ if (f7701(t80973)==FALSE_TYPE) goto l15271; /* x66238 */ /* x66237 */ /* x66236 stalin.sc:2512:83100 */ return TRUE_TYPE; l15271: /* x66355 */ /* x66241 stalin.sc:2513:83112 */ /* x66240 stalin.sc:2513:83130 */ t80974 = a21572; /* x66239 stalin.sc:2513:83113 */ if (f7702(t80974)==FALSE_TYPE) goto l15273; /* x66244 */ /* x66243 */ /* x66242 stalin.sc:2513:83133 */ return TRUE_TYPE; l15273: /* x66354 */ /* x66247 stalin.sc:2514:83145 */ /* x66246 stalin.sc:2514:83160 */ t80975 = a21572; /* x66245 stalin.sc:2514:83146 */ if (f7703(t80975)==FALSE_TYPE) goto l15275; /* x66250 */ /* x66249 */ /* x66248 stalin.sc:2514:83163 */ return TRUE_TYPE; l15275: /* x66353 */ /* x66253 stalin.sc:2515:83175 */ /* x66252 stalin.sc:2515:83198 */ t80976 = a21572; /* x66251 stalin.sc:2515:83176 */ a38328 = t80976; /* x285981 */ /* x285980 */ t80977 = a38328; /* x285979 */ if (!((t80977.tag)==STRUCTURE_TYPE27776)) goto l15277; /* x66258 */ /* x66257 */ /* x66256 stalin.sc:2515:83201 */ /* x66255 stalin.sc:2515:83229 */ t81079 = a21572; /* x66254 stalin.sc:2515:83202 */ a21164 = t81079; /* x60982 stalin.sc:1335:44352 */ /* x60982 stalin.sc:1335:44352 */ /* x60981 stalin.sc:1335:44357 */ /* x60980 stalin.sc:1335:44364 */ /* x60979 stalin.sc:1335:44407 */ t81082 = 1; /* x60978 stalin.sc:1335:44373 */ /* x60977 stalin.sc:1335:44404 */ t81085 = a21164; /* x60976 stalin.sc:1335:44374 */ a38300 = t81085; /* x285869 */ /* x285868 */ t81086 = a38300; /* x285867 */ if (!((t81086.tag)==STRUCTURE_TYPE27776)) {backtrace_internal("[clone INTERNAL-SYMBOL-TYPE-BOOLEANS[5835] 33217]"); structure_ref_error();} t81081 = t81086.value.structure_type27776->s4; /* x60975 stalin.sc:1335:44365 */ t81084.tag = STRUCTURE_TYPE24753; t81084.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81084.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1335, 44364); out_of_memory_error();} t81084.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81084.value.structure_type24753->s0.value.fixnum_type = t81082; t81084.value.structure_type24753->s1.tag = NULL_TYPE; t81083 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81083==NULL) {backtrace("stalin.sc", 1335, 44364); out_of_memory_error();} t81083->s0.tag = FIXNUM_TYPE; t81083->s0.value.fixnum_type = t81081; t81083->s1 = t81084; t81080 = f27305(t81083); /* x270655 stalin.sc:1335:44358 */ if (t81080==0) goto l15329; return TRUE_TYPE; l15329: return FALSE_TYPE; l15277: /* x66352 */ /* x66261 stalin.sc:2516:83241 */ /* x66260 stalin.sc:2516:83264 */ t80978 = a21572; /* x66259 stalin.sc:2516:83242 */ a38287 = t80978; /* x285817 */ /* x285816 */ t80979 = a38287; /* x285815 */ if (!((t80979.tag)==STRUCTURE_TYPE27779)) goto l15279; /* x66266 */ /* x66265 */ /* x66264 stalin.sc:2516:83267 */ /* x66263 stalin.sc:2516:83295 */ t81071 = a21572; /* x66262 stalin.sc:2516:83268 */ a21184 = t81071; /* x61207 stalin.sc:1390:46189 */ /* x61207 stalin.sc:1390:46189 */ /* x61206 stalin.sc:1390:46194 */ /* x61205 stalin.sc:1390:46201 */ /* x61204 stalin.sc:1390:46244 */ t81074 = 1; /* x61203 stalin.sc:1390:46210 */ /* x61202 stalin.sc:1390:46241 */ t81077 = a21184; /* x61201 stalin.sc:1390:46211 */ a38242 = t81077; /* x285637 */ /* x285636 */ t81078 = a38242; /* x285635 */ if (!((t81078.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-BOOLEANS[5885] 33159]"); structure_ref_error();} t81073 = t81078.value.structure_type27779->s5; /* x61200 stalin.sc:1390:46202 */ t81076.tag = STRUCTURE_TYPE24753; t81076.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81076.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1390, 46201); out_of_memory_error();} t81076.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81076.value.structure_type24753->s0.value.fixnum_type = t81074; t81076.value.structure_type24753->s1.tag = NULL_TYPE; t81075 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81075==NULL) {backtrace("stalin.sc", 1390, 46201); out_of_memory_error();} t81075->s0.tag = FIXNUM_TYPE; t81075->s0.value.fixnum_type = t81073; t81075->s1 = t81076; t81072 = f27305(t81075); /* x270645 stalin.sc:1390:46195 */ if (t81072==0) goto l15326; return TRUE_TYPE; l15326: return FALSE_TYPE; l15279: /* x66351 */ /* x66269 stalin.sc:2517:83307 */ /* x66268 stalin.sc:2517:83334 */ t80980 = a21572; /* x66267 stalin.sc:2517:83308 */ a38228 = t80980; /* x285581 */ /* x285580 */ t80981 = a38228; /* x285579 */ if (!((t80981.tag)==STRUCTURE_TYPE27753)) goto l15281; /* x66274 */ /* x66273 */ /* x66272 stalin.sc:2517:83337 */ /* x66271 stalin.sc:2517:83369 */ t81063 = a21572; /* x66270 stalin.sc:2517:83338 */ a21200 = t81063; /* x61387 stalin.sc:1434:47711 */ /* x61387 stalin.sc:1434:47711 */ /* x61386 stalin.sc:1434:47716 */ /* x61385 stalin.sc:1434:47723 */ /* x61384 stalin.sc:1434:47770 */ t81066 = 1; /* x61383 stalin.sc:1434:47732 */ /* x61382 stalin.sc:1434:47767 */ t81069 = a21200; /* x61381 stalin.sc:1434:47733 */ a38135 = t81069; /* x285209 */ /* x285208 */ t81070 = a38135; /* x285207 */ if (!((t81070.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-BOOLEANS[5935] 33052]"); structure_ref_error();} t81065 = t81070.value.structure_type27753->s5; /* x61380 stalin.sc:1434:47724 */ t81068.tag = STRUCTURE_TYPE24753; t81068.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81068.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1434, 47723); out_of_memory_error();} t81068.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81068.value.structure_type24753->s0.value.fixnum_type = t81066; t81068.value.structure_type24753->s1.tag = NULL_TYPE; t81067 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81067==NULL) {backtrace("stalin.sc", 1434, 47723); out_of_memory_error();} t81067->s0.tag = FIXNUM_TYPE; t81067->s0.value.fixnum_type = t81065; t81067->s1 = t81068; t81064 = f27305(t81067); /* x270637 stalin.sc:1434:47717 */ if (t81064==0) goto l15323; return TRUE_TYPE; l15323: return FALSE_TYPE; l15281: /* x66350 */ /* x66277 stalin.sc:2518:83381 */ /* x66276 stalin.sc:2518:83405 */ t80982 = a21572; /* x66275 stalin.sc:2518:83382 */ a38117 = t80982; /* x285137 */ /* x285136 */ t80983 = a38117; /* x285135 */ if (!((t80983.tag)==STRUCTURE_TYPE27756)) goto l15283; /* x66282 */ /* x66281 */ /* x66280 stalin.sc:2518:83408 */ /* x66279 stalin.sc:2518:83437 */ t81055 = a21572; /* x66278 stalin.sc:2518:83409 */ a21228 = t81055; /* x61702 stalin.sc:1511:50313 */ /* x61702 stalin.sc:1511:50313 */ /* x61701 stalin.sc:1511:50318 */ /* x61700 stalin.sc:1511:50325 */ /* x61699 stalin.sc:1511:50369 */ t81058 = 8; /* x61698 stalin.sc:1511:50334 */ /* x61697 stalin.sc:1511:50366 */ t81061 = a21228; /* x61696 stalin.sc:1511:50335 */ a19633 = t81061; /* x52095 */ /* x52094 */ t81062 = a19633; /* x52093 */ if (!((t81062.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("NATIVE-PROCEDURE-TYPE-BOOLEANS[5985]"); structure_ref_error();} t81057 = t81062.value.structure_type27756->s5; /* x61695 stalin.sc:1511:50326 */ t81060.tag = STRUCTURE_TYPE24753; t81060.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81060.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1511, 50325); out_of_memory_error();} t81060.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81060.value.structure_type24753->s0.value.fixnum_type = t81058; t81060.value.structure_type24753->s1.tag = NULL_TYPE; t81059 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81059==NULL) {backtrace("stalin.sc", 1511, 50325); out_of_memory_error();} t81059->s0.tag = FIXNUM_TYPE; t81059->s0.value.fixnum_type = t81057; t81059->s1 = t81060; t81056 = f27305(t81059); /* x270620 stalin.sc:1511:50319 */ if (t81056==0) goto l15320; return TRUE_TYPE; l15320: return FALSE_TYPE; l15283: /* x66349 */ /* x66285 stalin.sc:2519:83449 */ /* x66284 stalin.sc:2519:83474 */ t80984 = a21572; /* x66283 stalin.sc:2519:83450 */ a37970 = t80984; /* x284549 */ /* x284548 */ t80985 = a37970; /* x284547 */ if (!((t80985.tag)==STRUCTURE_TYPE27750)) goto l15285; /* x66290 */ /* x66289 */ /* x66288 stalin.sc:2519:83477 */ /* x66287 stalin.sc:2519:83507 */ t81047 = a21572; /* x66286 stalin.sc:2519:83478 */ a21260 = t81047; /* x62062 stalin.sc:1599:53291 */ /* x62062 stalin.sc:1599:53291 */ /* x62061 stalin.sc:1599:53296 */ /* x62060 stalin.sc:1599:53303 */ /* x62059 stalin.sc:1599:53348 */ t81050 = 1; /* x62058 stalin.sc:1599:53312 */ /* x62057 stalin.sc:1599:53345 */ t81053 = a21260; /* x62056 stalin.sc:1599:53313 */ a37914 = t81053; /* x284325 */ /* x284324 */ t81054 = a37914; /* x284323 */ if (!((t81054.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-BOOLEANS[6051] 32831]"); structure_ref_error();} t81049 = t81054.value.structure_type27750->s7; /* x62055 stalin.sc:1599:53304 */ t81052.tag = STRUCTURE_TYPE24753; t81052.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81052.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1599, 53303); out_of_memory_error();} t81052.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81052.value.structure_type24753->s0.value.fixnum_type = t81050; t81052.value.structure_type24753->s1.tag = NULL_TYPE; t81051 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81051==NULL) {backtrace("stalin.sc", 1599, 53303); out_of_memory_error();} t81051->s0.tag = FIXNUM_TYPE; t81051->s0.value.fixnum_type = t81049; t81051->s1 = t81052; t81048 = f27305(t81051); /* x270600 stalin.sc:1599:53297 */ if (t81048==0) goto l15317; return TRUE_TYPE; l15317: return FALSE_TYPE; l15285: /* x66348 */ /* x66293 stalin.sc:2520:83519 */ /* x66292 stalin.sc:2520:83539 */ t80986 = a21572; /* x66291 stalin.sc:2520:83520 */ a37899 = t80986; /* x284265 */ /* x284264 */ t80987 = a37899; /* x284263 */ if (!((t80987.tag)==STRUCTURE_TYPE27858)) goto l15287; /* x66298 */ /* x66297 */ /* x66296 stalin.sc:2520:83542 */ /* x66295 stalin.sc:2520:83567 */ t81039 = a21572; /* x66294 stalin.sc:2520:83543 */ a21280 = t81039; /* x62287 stalin.sc:1654:55062 */ /* x62287 stalin.sc:1654:55062 */ /* x62286 stalin.sc:1654:55067 */ /* x62285 stalin.sc:1654:55074 */ /* x62284 stalin.sc:1654:55114 */ t81042 = 2; /* x62283 stalin.sc:1654:55083 */ /* x62282 stalin.sc:1654:55111 */ t81045 = a21280; /* x62281 stalin.sc:1654:55084 */ a37791 = t81045; /* x283833 */ /* x283832 */ t81046 = a37791; /* x283831 */ if (!((t81046.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-BOOLEANS[6101] 32708]"); structure_ref_error();} t81041 = t81046.value.structure_type27858->s5; /* x62280 stalin.sc:1654:55075 */ t81044.tag = STRUCTURE_TYPE24753; t81044.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81044.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1654, 55074); out_of_memory_error();} t81044.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81044.value.structure_type24753->s0.value.fixnum_type = t81042; t81044.value.structure_type24753->s1.tag = NULL_TYPE; t81043 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81043==NULL) {backtrace("stalin.sc", 1654, 55074); out_of_memory_error();} t81043->s0.tag = FIXNUM_TYPE; t81043->s0.value.fixnum_type = t81041; t81043->s1 = t81044; t81040 = f27305(t81043); /* x270589 stalin.sc:1654:55068 */ if (t81040==0) goto l15314; return TRUE_TYPE; l15314: return FALSE_TYPE; l15287: /* x66347 */ /* x66301 stalin.sc:2521:83579 */ /* x66300 stalin.sc:2521:83593 */ t80988 = a21572; /* x66299 stalin.sc:2521:83580 */ a37778 = t80988; /* x283781 */ /* x283780 */ t80989 = a37778; /* x283779 */ if (!((t80989.tag)==STRUCTURE_TYPE27673)) goto l15289; /* x66306 */ /* x66305 */ /* x66304 stalin.sc:2521:83596 */ /* x66303 stalin.sc:2521:83615 */ t81031 = a21572; /* x66302 stalin.sc:2521:83597 */ a21312 = t81031; /* x62647 stalin.sc:1742:57675 */ /* x62647 stalin.sc:1742:57675 */ /* x62646 stalin.sc:1742:57680 */ /* x62645 stalin.sc:1742:57687 */ /* x62644 stalin.sc:1742:57721 */ t81034 = 1; /* x62643 stalin.sc:1742:57696 */ /* x62642 stalin.sc:1742:57718 */ t81037 = a21312; /* x62641 stalin.sc:1742:57697 */ a37723 = t81037; /* x283561 */ /* x283560 */ t81038 = a37723; /* x283559 */ if (!((t81038.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-BOOLEANS[6159] 32640]"); structure_ref_error();} t81033 = t81038.value.structure_type27673->s6; /* x62640 stalin.sc:1742:57688 */ t81036.tag = STRUCTURE_TYPE24753; t81036.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81036.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1742, 57687); out_of_memory_error();} t81036.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81036.value.structure_type24753->s0.value.fixnum_type = t81034; t81036.value.structure_type24753->s1.tag = NULL_TYPE; t81035 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81035==NULL) {backtrace("stalin.sc", 1742, 57687); out_of_memory_error();} t81035->s0.tag = FIXNUM_TYPE; t81035->s0.value.fixnum_type = t81033; t81035->s1 = t81036; t81032 = f27305(t81035); /* x270573 stalin.sc:1742:57681 */ if (t81032==0) goto l15311; return TRUE_TYPE; l15311: return FALSE_TYPE; l15289: /* x66346 */ /* x66309 stalin.sc:2522:83627 */ /* x66308 stalin.sc:2522:83644 */ t80990 = a21572; /* x66307 stalin.sc:2522:83628 */ a37704 = t80990; /* x283485 */ /* x283484 */ t80991 = a37704; /* x283483 */ if (!((t80991.tag)==STRUCTURE_TYPE27769)) goto l15291; /* x66314 */ /* x66313 */ /* x66312 stalin.sc:2522:83647 */ /* x66311 stalin.sc:2522:83669 */ t81023 = a21572; /* x66310 stalin.sc:2522:83648 */ a21348 = t81023; /* x63052 stalin.sc:1841:60646 */ /* x63052 stalin.sc:1841:60646 */ /* x63051 stalin.sc:1841:60651 */ /* x63050 stalin.sc:1841:60658 */ /* x63049 stalin.sc:1841:60695 */ t81026 = 4; /* x63048 stalin.sc:1841:60667 */ /* x63047 stalin.sc:1841:60692 */ t81029 = a21348; /* x63046 stalin.sc:1841:60668 */ a37580 = t81029; /* x282989 */ /* x282988 */ t81030 = a37580; /* x282987 */ if (!((t81030.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32497]"); structure_ref_error();} t81025 = t81030.value.structure_type27769->s8; /* x63045 stalin.sc:1841:60659 */ t81028.tag = STRUCTURE_TYPE24753; t81028.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81028.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1841, 60658); out_of_memory_error();} t81028.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81028.value.structure_type24753->s0.value.fixnum_type = t81026; t81028.value.structure_type24753->s1.tag = NULL_TYPE; t81027 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81027==NULL) {backtrace("stalin.sc", 1841, 60658); out_of_memory_error();} t81027->s0.tag = FIXNUM_TYPE; t81027->s0.value.fixnum_type = t81025; t81027->s1 = t81028; t81024 = f27305(t81027); /* x270550 stalin.sc:1841:60652 */ if (t81024==0) goto l15308; return TRUE_TYPE; l15308: return FALSE_TYPE; l15291: /* x66345 */ /* x66317 stalin.sc:2523:83681 */ /* x66316 stalin.sc:2523:83702 */ t80992 = a21572; /* x66315 stalin.sc:2523:83682 */ a37562 = t80992; /* x282917 */ /* x282916 */ t80993 = a37562; /* x282915 */ if (!((t80993.tag)==STRUCTURE_TYPE27761)) goto l15293; /* x66322 */ /* x66321 */ /* x66320 stalin.sc:2523:83705 */ /* x66319 stalin.sc:2523:83731 */ t81015 = a21572; /* x66318 stalin.sc:2523:83706 */ a21396 = t81015; /* x63592 stalin.sc:1973:64866 */ /* x63592 stalin.sc:1973:64866 */ /* x63591 stalin.sc:1973:64871 */ /* x63590 stalin.sc:1973:64878 */ /* x63589 stalin.sc:1973:64919 */ t81018 = 2; /* x63588 stalin.sc:1973:64887 */ /* x63587 stalin.sc:1973:64916 */ t81021 = a21396; /* x63586 stalin.sc:1973:64888 */ a37466 = t81021; /* x282533 */ /* x282532 */ t81022 = a37466; /* x282531 */ if (!((t81022.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-BOOLEANS[6299] 32383]"); structure_ref_error();} t81017 = t81022.value.structure_type27761->s7; /* x63585 stalin.sc:1973:64879 */ t81020.tag = STRUCTURE_TYPE24753; t81020.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81020.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1973, 64878); out_of_memory_error();} t81020.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81020.value.structure_type24753->s0.value.fixnum_type = t81018; t81020.value.structure_type24753->s1.tag = NULL_TYPE; t81019 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81019==NULL) {backtrace("stalin.sc", 1973, 64878); out_of_memory_error();} t81019->s0.tag = FIXNUM_TYPE; t81019->s0.value.fixnum_type = t81017; t81019->s1 = t81020; t81016 = f27305(t81019); /* x270520 stalin.sc:1973:64872 */ if (t81016==0) goto l15305; return TRUE_TYPE; l15305: return FALSE_TYPE; l15293: /* x66344 */ /* x66325 stalin.sc:2524:83743 */ /* x66324 stalin.sc:2524:83767 */ t80994 = a21572; /* x66323 stalin.sc:2524:83744 */ a37446 = t80994; /* x282453 */ /* x282452 */ t80995 = a37446; /* x282451 */ if (!((t80995.tag)==STRUCTURE_TYPE27669)) goto l15295; /* x66330 */ /* x66329 */ /* x66328 stalin.sc:2524:83770 */ /* x66327 stalin.sc:2524:83799 */ t81007 = a21572; /* x66326 stalin.sc:2524:83771 */ a21436 = t81007; /* x64042 stalin.sc:2083:68592 */ /* x64042 stalin.sc:2083:68592 */ /* x64041 stalin.sc:2083:68597 */ /* x64040 stalin.sc:2083:68604 */ /* x64039 stalin.sc:2083:68648 */ t81010 = 2; /* x64038 stalin.sc:2083:68613 */ /* x64037 stalin.sc:2083:68645 */ t81013 = a21436; /* x64036 stalin.sc:2083:68614 */ a37368 = t81013; /* x282141 */ /* x282140 */ t81014 = a37368; /* x282139 */ if (!((t81014.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-BOOLEANS[6365] 32285]"); structure_ref_error();} t81009 = t81014.value.structure_type27669->s7; /* x64035 stalin.sc:2083:68605 */ t81012.tag = STRUCTURE_TYPE24753; t81012.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81012.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2083, 68604); out_of_memory_error();} t81012.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81012.value.structure_type24753->s0.value.fixnum_type = t81010; t81012.value.structure_type24753->s1.tag = NULL_TYPE; t81011 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81011==NULL) {backtrace("stalin.sc", 2083, 68604); out_of_memory_error();} t81011->s0.tag = FIXNUM_TYPE; t81011->s0.value.fixnum_type = t81009; t81011->s1 = t81012; t81008 = f27305(t81011); /* x270496 stalin.sc:2083:68598 */ if (t81008==0) goto l15302; return TRUE_TYPE; l15302: return FALSE_TYPE; l15295: /* x66343 */ /* x66333 stalin.sc:2525:83811 */ /* x66332 stalin.sc:2525:83835 */ t80996 = a21572; /* x66331 stalin.sc:2525:83812 */ a37346 = t80996; /* x282053 */ /* x282052 */ t80997 = a37346; /* x282051 */ if (!((t80997.tag)==STRUCTURE_TYPE27908)) goto l15297; /* x66338 */ /* x66337 */ /* x66336 stalin.sc:2525:83838 */ /* x66335 stalin.sc:2525:83867 */ t80999 = a21572; /* x66334 stalin.sc:2525:83839 */ a21472 = t80999; /* x64447 stalin.sc:2182:71937 */ /* x64447 stalin.sc:2182:71937 */ /* x64446 stalin.sc:2182:71942 */ /* x64445 stalin.sc:2182:71949 */ /* x64444 stalin.sc:2182:71993 */ t81002 = 1; /* x64443 stalin.sc:2182:71958 */ /* x64442 stalin.sc:2182:71990 */ t81005 = a21472; /* x64441 stalin.sc:2182:71959 */ a37286 = t81005; /* x281813 */ /* x281812 */ t81006 = a37286; /* x281811 */ if (!((t81006.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-BOOLEANS[6415] 32203]"); structure_ref_error();} t81001 = t81006.value.structure_type27908->s5; /* x64440 stalin.sc:2182:71950 */ t81004.tag = STRUCTURE_TYPE24753; t81004.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81004.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2182, 71949); out_of_memory_error();} t81004.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81004.value.structure_type24753->s0.value.fixnum_type = t81002; t81004.value.structure_type24753->s1.tag = NULL_TYPE; t81003 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81003==NULL) {backtrace("stalin.sc", 2182, 71949); out_of_memory_error();} t81003->s0.tag = FIXNUM_TYPE; t81003->s0.value.fixnum_type = t81001; t81003->s1 = t81004; t81000 = f27305(t81003); /* x270475 stalin.sc:2182:71943 */ if (t81000==0) goto l15299; return TRUE_TYPE; l15299: return FALSE_TYPE; l15297: /* x66342 */ /* x66341 */ /* x66340 stalin.sc:2526:83884 */ /* x66339 stalin.sc:2526:83885 */ /* x297377 QobiScheme.sc:166:5314 */ /* x297376 QobiScheme.sc:166:5321 */ t80998 = "This shouldn\'t happen"; /* x297375 QobiScheme.sc:166:5315 */ stalin_panic(t80998);} /* SET-TYPE-MARKED?![7825] */ void f7825(struct w49 a21570) {struct w49 a37340; /* OBJ */ struct w49 a37438; /* OBJ */ struct w49 a37555; /* OBJ */ struct w49 a37698; /* OBJ */ struct w49 a37773; /* OBJ */ struct w49 a37894; /* OBJ */ struct w49 a37965; /* OBJ */ struct w49 a38112; /* OBJ */ struct w49 a38223; /* OBJ */ struct w49 a38282; /* OBJ */ struct w49 a38323; /* OBJ */ struct w49 t81087; struct w49 t81088; struct w49 t81089; struct w49 t81090; struct w49 t81091; struct w49 t81092; struct w49 t81093; struct w49 t81094; struct w49 t81095; struct w49 t81096; struct w49 t81097; struct w49 t81098; struct w49 t81099; struct w49 t81100; struct w49 t81101; struct w49 t81102; struct w49 t81103; struct w49 t81104; struct w49 t81105; struct w49 t81106; struct w49 t81107; struct w49 t81108; struct w49 t81109; struct w49 t81110; struct w49 t81111; struct w49 t81112; struct w49 t81113; struct w49 t81114; struct w49 t81115; struct w49 t81116; struct w49 t81117; struct w49 t81118; struct w49 t81119; char *t81120; struct w49 t81121; unsigned t81122; struct w49 t81123; unsigned t81124; struct w49 t81125; unsigned t81126; struct w49 t81127; unsigned t81128; struct w49 t81129; unsigned t81130; struct w49 t81131; unsigned t81132; struct w49 t81133; unsigned t81134; struct w49 t81135; unsigned t81136; struct w49 t81137; unsigned t81138; struct w49 t81139; unsigned t81140; struct w49 t81141; unsigned t81142; char *t81143; char *t81144; char *t81145; char *t81146; char *t81147; char *t81148; char *t81149; char *t81150; char *t81151; char *t81152; char *t81153; /* x66182 stalin.sc:2478:81673 */ /* x65983 stalin.sc:2479:81682 */ /* x65982 stalin.sc:2479:81694 */ t81087 = a21570; /* x65981 stalin.sc:2479:81683 */ if (f7677(t81087)==FALSE_TYPE) goto l15332; /* x65987 */ /* x65986 */ /* x65985 stalin.sc:2479:81697 */ /* x65984 stalin.sc:2479:81698 */ /* x297145 QobiScheme.sc:166:5314 */ /* x297144 QobiScheme.sc:166:5321 */ t81153 = "This shouldn\'t happen"; /* x297143 QobiScheme.sc:166:5315 */ stalin_panic(t81153); l15332: /* x66181 */ /* x65990 stalin.sc:2480:81711 */ /* x65989 stalin.sc:2480:81723 */ t81088 = a21570; /* x65988 stalin.sc:2480:81712 */ if (f7678(t81088)==FALSE_TYPE) goto l15334; /* x65994 */ /* x65993 */ /* x65992 stalin.sc:2480:81726 */ /* x65991 stalin.sc:2480:81727 */ /* x297149 QobiScheme.sc:166:5314 */ /* x297148 QobiScheme.sc:166:5321 */ t81152 = "This shouldn\'t happen"; /* x297147 QobiScheme.sc:166:5315 */ stalin_panic(t81152); l15334: /* x66180 */ /* x65997 stalin.sc:2481:81740 */ /* x65996 stalin.sc:2481:81753 */ t81089 = a21570; /* x65995 stalin.sc:2481:81741 */ if (f7679(t81089)==FALSE_TYPE) goto l15336; /* x66001 */ /* x66000 */ /* x65999 stalin.sc:2481:81756 */ /* x65998 stalin.sc:2481:81757 */ /* x297153 QobiScheme.sc:166:5314 */ /* x297152 QobiScheme.sc:166:5321 */ t81151 = "This shouldn\'t happen"; /* x297151 QobiScheme.sc:166:5315 */ stalin_panic(t81151); l15336: /* x66179 */ /* x66004 stalin.sc:2482:81770 */ /* x66003 stalin.sc:2482:81782 */ t81090 = a21570; /* x66002 stalin.sc:2482:81771 */ if (f7682(t81090)==FALSE_TYPE) goto l15338; /* x66008 */ /* x66007 */ /* x66006 stalin.sc:2482:81785 */ /* x66005 stalin.sc:2482:81786 */ /* x297157 QobiScheme.sc:166:5314 */ /* x297156 QobiScheme.sc:166:5321 */ t81150 = "This shouldn\'t happen"; /* x297155 QobiScheme.sc:166:5315 */ stalin_panic(t81150); l15338: /* x66178 */ /* x66011 stalin.sc:2483:81799 */ /* x66010 stalin.sc:2483:81813 */ t81091 = a21570; /* x66009 stalin.sc:2483:81800 */ if (f7683(t81091)==FALSE_TYPE) goto l15340; /* x66015 */ /* x66014 */ /* x66013 stalin.sc:2483:81816 */ /* x66012 stalin.sc:2483:81817 */ /* x297161 QobiScheme.sc:166:5314 */ /* x297160 QobiScheme.sc:166:5321 */ t81149 = "This shouldn\'t happen"; /* x297159 QobiScheme.sc:166:5315 */ stalin_panic(t81149); l15340: /* x66177 */ /* x66018 stalin.sc:2484:81830 */ /* x66017 stalin.sc:2484:81844 */ t81092 = a21570; /* x66016 stalin.sc:2484:81831 */ if (f7684(t81092)==FALSE_TYPE) goto l15342; /* x66022 */ /* x66021 */ /* x66020 stalin.sc:2484:81847 */ /* x66019 stalin.sc:2484:81848 */ /* x297165 QobiScheme.sc:166:5314 */ /* x297164 QobiScheme.sc:166:5321 */ t81148 = "This shouldn\'t happen"; /* x297163 QobiScheme.sc:166:5315 */ stalin_panic(t81148); l15342: /* x66176 */ /* x66025 stalin.sc:2485:81861 */ /* x66024 stalin.sc:2485:81880 */ t81093 = a21570; /* x66023 stalin.sc:2485:81862 */ if (f7687(t81093)==FALSE_TYPE) goto l15344; /* x66029 */ /* x66028 */ /* x66027 stalin.sc:2485:81883 */ /* x66026 stalin.sc:2485:81884 */ /* x297169 QobiScheme.sc:166:5314 */ /* x297168 QobiScheme.sc:166:5321 */ t81147 = "This shouldn\'t happen"; /* x297167 QobiScheme.sc:166:5315 */ stalin_panic(t81147); l15344: /* x66175 */ /* x66032 stalin.sc:2486:81897 */ /* x66031 stalin.sc:2486:81915 */ t81094 = a21570; /* x66030 stalin.sc:2486:81898 */ if (f7700(t81094)==FALSE_TYPE) goto l15346; /* x66036 */ /* x66035 */ /* x66034 stalin.sc:2486:81918 */ /* x66033 stalin.sc:2486:81919 */ /* x297173 QobiScheme.sc:166:5314 */ /* x297172 QobiScheme.sc:166:5321 */ t81146 = "This shouldn\'t happen"; /* x297171 QobiScheme.sc:166:5315 */ stalin_panic(t81146); l15346: /* x66174 */ /* x66039 stalin.sc:2487:81932 */ /* x66038 stalin.sc:2487:81951 */ t81095 = a21570; /* x66037 stalin.sc:2487:81933 */ if (f7701(t81095)==FALSE_TYPE) goto l15348; /* x66043 */ /* x66042 */ /* x66041 stalin.sc:2487:81954 */ /* x66040 stalin.sc:2487:81955 */ /* x297177 QobiScheme.sc:166:5314 */ /* x297176 QobiScheme.sc:166:5321 */ t81145 = "This shouldn\'t happen"; /* x297175 QobiScheme.sc:166:5315 */ stalin_panic(t81145); l15348: /* x66173 */ /* x66046 stalin.sc:2488:81968 */ /* x66045 stalin.sc:2488:81986 */ t81096 = a21570; /* x66044 stalin.sc:2488:81969 */ if (f7702(t81096)==FALSE_TYPE) goto l15350; /* x66050 */ /* x66049 */ /* x66048 stalin.sc:2488:81989 */ /* x66047 stalin.sc:2488:81990 */ /* x297181 QobiScheme.sc:166:5314 */ /* x297180 QobiScheme.sc:166:5321 */ t81144 = "This shouldn\'t happen"; /* x297179 QobiScheme.sc:166:5315 */ stalin_panic(t81144); l15350: /* x66172 */ /* x66053 stalin.sc:2489:82003 */ /* x66052 stalin.sc:2489:82018 */ t81097 = a21570; /* x66051 stalin.sc:2489:82004 */ if (f7703(t81097)==FALSE_TYPE) goto l15352; /* x66057 */ /* x66056 */ /* x66055 stalin.sc:2489:82021 */ /* x66054 stalin.sc:2489:82022 */ /* x297185 QobiScheme.sc:166:5314 */ /* x297184 QobiScheme.sc:166:5321 */ t81143 = "This shouldn\'t happen"; /* x297183 QobiScheme.sc:166:5315 */ stalin_panic(t81143); l15352: /* x66171 */ /* x66060 stalin.sc:2490:82035 */ /* x66059 stalin.sc:2490:82058 */ t81098 = a21570; /* x66058 stalin.sc:2490:82036 */ a38323 = t81098; /* x285961 */ /* x285960 */ t81099 = a38323; /* x285959 */ if (!((t81099.tag)==STRUCTURE_TYPE27776)) goto l15354; /* x66066 */ /* x66065 */ /* x66064 stalin.sc:2490:82061 */ /* x66062 stalin.sc:2490:82096 */ t81141 = a21570; /* x66063 stalin.sc:2490:82098 */ /* x66061 stalin.sc:2490:82062 */ t81142 = TRUE_TYPE; f7235(t81141, t81142); return; l15354: /* x66170 */ /* x66069 stalin.sc:2491:82106 */ /* x66068 stalin.sc:2491:82129 */ t81100 = a21570; /* x66067 stalin.sc:2491:82107 */ a38282 = t81100; /* x285797 */ /* x285796 */ t81101 = a38282; /* x285795 */ if (!((t81101.tag)==STRUCTURE_TYPE27779)) goto l15356; /* x66075 */ /* x66074 */ /* x66073 stalin.sc:2491:82132 */ /* x66071 stalin.sc:2491:82167 */ t81139 = a21570; /* x66072 stalin.sc:2491:82169 */ /* x66070 stalin.sc:2491:82133 */ t81140 = TRUE_TYPE; f7260(t81139, t81140); return; l15356: /* x66169 */ /* x66078 stalin.sc:2492:82177 */ /* x66077 stalin.sc:2492:82204 */ t81102 = a21570; /* x66076 stalin.sc:2492:82178 */ a38223 = t81102; /* x285561 */ /* x285560 */ t81103 = a38223; /* x285559 */ if (!((t81103.tag)==STRUCTURE_TYPE27753)) goto l15358; /* x66084 */ /* x66083 */ /* x66082 stalin.sc:2492:82207 */ /* x66080 stalin.sc:2492:82246 */ t81137 = a21570; /* x66081 stalin.sc:2492:82248 */ /* x66079 stalin.sc:2492:82208 */ t81138 = TRUE_TYPE; f7280(t81137, t81138); return; l15358: /* x66168 */ /* x66087 stalin.sc:2493:82256 */ /* x66086 stalin.sc:2493:82280 */ t81104 = a21570; /* x66085 stalin.sc:2493:82257 */ a38112 = t81104; /* x285117 */ /* x285116 */ t81105 = a38112; /* x285115 */ if (!((t81105.tag)==STRUCTURE_TYPE27756)) goto l15360; /* x66093 */ /* x66092 */ /* x66091 stalin.sc:2493:82283 */ /* x66089 stalin.sc:2493:82319 */ t81135 = a21570; /* x66090 stalin.sc:2493:82321 */ /* x66088 stalin.sc:2493:82284 */ t81136 = TRUE_TYPE; f7315(t81135, t81136); return; l15360: /* x66167 */ /* x66096 stalin.sc:2494:82329 */ /* x66095 stalin.sc:2494:82354 */ t81106 = a21570; /* x66094 stalin.sc:2494:82330 */ a37965 = t81106; /* x284529 */ /* x284528 */ t81107 = a37965; /* x284527 */ if (!((t81107.tag)==STRUCTURE_TYPE27750)) goto l15362; /* x66102 */ /* x66101 */ /* x66100 stalin.sc:2494:82357 */ /* x66098 stalin.sc:2494:82394 */ t81133 = a21570; /* x66099 stalin.sc:2494:82396 */ /* x66097 stalin.sc:2494:82358 */ t81134 = TRUE_TYPE; f7355(t81133, t81134); return; l15362: /* x66166 */ /* x66105 stalin.sc:2495:82404 */ /* x66104 stalin.sc:2495:82424 */ t81108 = a21570; /* x66103 stalin.sc:2495:82405 */ a37894 = t81108; /* x284245 */ /* x284244 */ t81109 = a37894; /* x284243 */ if (!((t81109.tag)==STRUCTURE_TYPE27858)) goto l15364; /* x66111 */ /* x66110 */ /* x66109 stalin.sc:2495:82427 */ /* x66107 stalin.sc:2495:82459 */ t81131 = a21570; /* x66108 stalin.sc:2495:82461 */ /* x66106 stalin.sc:2495:82428 */ t81132 = TRUE_TYPE; f7380(t81131, t81132); return; l15364: /* x66165 */ /* x66114 stalin.sc:2496:82469 */ /* x66113 stalin.sc:2496:82483 */ t81110 = a21570; /* x66112 stalin.sc:2496:82470 */ a37773 = t81110; /* x283761 */ /* x283760 */ t81111 = a37773; /* x283759 */ if (!((t81111.tag)==STRUCTURE_TYPE27673)) goto l15366; /* x66120 */ /* x66119 */ /* x66118 stalin.sc:2496:82486 */ /* x66116 stalin.sc:2496:82512 */ t81129 = a21570; /* x66117 stalin.sc:2496:82514 */ /* x66115 stalin.sc:2496:82487 */ t81130 = TRUE_TYPE; f7420(t81129, t81130); return; l15366: /* x66164 */ /* x66123 stalin.sc:2497:82522 */ /* x66122 stalin.sc:2497:82539 */ t81112 = a21570; /* x66121 stalin.sc:2497:82523 */ a37698 = t81112; /* x283461 */ /* x283460 */ t81113 = a37698; /* x283459 */ if (!((t81113.tag)==STRUCTURE_TYPE27769)) goto l15368; /* x66129 */ /* x66128 */ /* x66127 stalin.sc:2497:82542 */ /* x66125 stalin.sc:2497:82571 */ t81127 = a21570; /* x66126 stalin.sc:2497:82573 */ /* x66124 stalin.sc:2497:82543 */ t81128 = TRUE_TYPE; f7465(t81127, t81128); return; l15368: /* x66163 */ /* x66132 stalin.sc:2498:82581 */ /* x66131 stalin.sc:2498:82602 */ t81114 = a21570; /* x66130 stalin.sc:2498:82582 */ a37555 = t81114; /* x282889 */ /* x282888 */ t81115 = a37555; /* x282887 */ if (!((t81115.tag)==STRUCTURE_TYPE27761)) goto l15370; /* x66138 */ /* x66137 */ /* x66136 stalin.sc:2498:82605 */ /* x66134 stalin.sc:2498:82638 */ t81125 = a21570; /* x66135 stalin.sc:2498:82640 */ /* x66133 stalin.sc:2498:82606 */ t81126 = TRUE_TYPE; f7525(t81125, t81126); return; l15370: /* x66162 */ /* x66141 stalin.sc:2499:82648 */ /* x66140 stalin.sc:2499:82672 */ t81116 = a21570; /* x66139 stalin.sc:2499:82649 */ a37438 = t81116; /* x282421 */ /* x282420 */ t81117 = a37438; /* x282419 */ if (!((t81117.tag)==STRUCTURE_TYPE27669)) goto l15372; /* x66147 */ /* x66146 */ /* x66145 stalin.sc:2499:82675 */ /* x66143 stalin.sc:2499:82711 */ t81123 = a21570; /* x66144 stalin.sc:2499:82713 */ /* x66142 stalin.sc:2499:82676 */ t81124 = TRUE_TYPE; f7575(t81123, t81124); return; l15372: /* x66161 */ /* x66150 stalin.sc:2500:82721 */ /* x66149 stalin.sc:2500:82745 */ t81118 = a21570; /* x66148 stalin.sc:2500:82722 */ a37340 = t81118; /* x282029 */ /* x282028 */ t81119 = a37340; /* x282027 */ if (!((t81119.tag)==STRUCTURE_TYPE27908)) goto l15374; /* x66156 */ /* x66155 */ /* x66154 stalin.sc:2500:82748 */ /* x66152 stalin.sc:2500:82784 */ t81121 = a21570; /* x66153 stalin.sc:2500:82786 */ /* x66151 stalin.sc:2500:82749 */ t81122 = TRUE_TYPE; f7620(t81121, t81122); return; l15374: /* x66160 */ /* x66159 */ /* x66158 stalin.sc:2501:82799 */ /* x66157 stalin.sc:2501:82800 */ /* x297189 QobiScheme.sc:166:5314 */ /* x297188 QobiScheme.sc:166:5321 */ t81120 = "This shouldn\'t happen"; /* x297187 QobiScheme.sc:166:5315 */ stalin_panic(t81120);} /* TYPE-MARKED?[7801] */ unsigned f7801(struct w49 a21569) {struct w49 a37342; /* OBJ */ struct w49 a37441; /* OBJ */ struct w49 a37557; /* OBJ */ struct w49 a37699; /* OBJ */ struct w49 a37774; /* OBJ */ struct w49 a37895; /* OBJ */ struct w49 a37966; /* OBJ */ struct w49 a38113; /* OBJ */ struct w49 a38224; /* OBJ */ struct w49 a38283; /* OBJ */ struct w49 a38324; /* OBJ */ struct w49 t81154; struct w49 t81155; struct w49 t81156; struct w49 t81157; struct w49 t81158; struct w49 t81159; struct w49 t81160; struct w49 t81161; struct w49 t81162; struct w49 t81163; struct w49 t81164; struct w49 t81165; struct w49 t81166; struct w49 t81167; struct w49 t81168; struct w49 t81169; struct w49 t81170; struct w49 t81171; struct w49 t81172; struct w49 t81173; struct w49 t81174; struct w49 t81175; struct w49 t81176; struct w49 t81177; struct w49 t81178; struct w49 t81179; struct w49 t81180; struct w49 t81181; struct w49 t81182; struct w49 t81183; struct w49 t81184; struct w49 t81185; struct w49 t81186; char *t81187; struct w49 t81188; struct w49 t81189; struct w49 t81190; struct w49 t81191; struct w49 t81192; struct w49 t81193; struct w49 t81194; struct w49 t81195; struct w49 t81196; struct w49 t81197; struct w49 t81198; char *t81199; char *t81200; char *t81201; char *t81202; char *t81203; char *t81204; char *t81205; char *t81206; char *t81207; char *t81208; char *t81209; /* x65978 stalin.sc:2452:80427 */ /* x65790 stalin.sc:2452:80434 */ /* x65789 stalin.sc:2452:80446 */ t81154 = a21569; /* x65788 stalin.sc:2452:80435 */ if (f7677(t81154)==FALSE_TYPE) goto l15376; /* x65794 */ /* x65793 */ /* x65792 stalin.sc:2452:80449 */ /* x65791 stalin.sc:2452:80450 */ /* x297205 QobiScheme.sc:166:5314 */ /* x297204 QobiScheme.sc:166:5321 */ t81209 = "This shouldn\'t happen"; /* x297203 QobiScheme.sc:166:5315 */ stalin_panic(t81209); l15376: /* x65977 */ /* x65797 stalin.sc:2453:80468 */ /* x65796 stalin.sc:2453:80480 */ t81155 = a21569; /* x65795 stalin.sc:2453:80469 */ if (f7678(t81155)==FALSE_TYPE) goto l15378; /* x65801 */ /* x65800 */ /* x65799 stalin.sc:2453:80483 */ /* x65798 stalin.sc:2453:80484 */ /* x297209 QobiScheme.sc:166:5314 */ /* x297208 QobiScheme.sc:166:5321 */ t81208 = "This shouldn\'t happen"; /* x297207 QobiScheme.sc:166:5315 */ stalin_panic(t81208); l15378: /* x65976 */ /* x65804 stalin.sc:2454:80502 */ /* x65803 stalin.sc:2454:80515 */ t81156 = a21569; /* x65802 stalin.sc:2454:80503 */ if (f7679(t81156)==FALSE_TYPE) goto l15380; /* x65808 */ /* x65807 */ /* x65806 stalin.sc:2454:80518 */ /* x65805 stalin.sc:2454:80519 */ /* x297213 QobiScheme.sc:166:5314 */ /* x297212 QobiScheme.sc:166:5321 */ t81207 = "This shouldn\'t happen"; /* x297211 QobiScheme.sc:166:5315 */ stalin_panic(t81207); l15380: /* x65975 */ /* x65811 stalin.sc:2455:80537 */ /* x65810 stalin.sc:2455:80549 */ t81157 = a21569; /* x65809 stalin.sc:2455:80538 */ if (f7682(t81157)==FALSE_TYPE) goto l15382; /* x65815 */ /* x65814 */ /* x65813 stalin.sc:2455:80552 */ /* x65812 stalin.sc:2455:80553 */ /* x297217 QobiScheme.sc:166:5314 */ /* x297216 QobiScheme.sc:166:5321 */ t81206 = "This shouldn\'t happen"; /* x297215 QobiScheme.sc:166:5315 */ stalin_panic(t81206); l15382: /* x65974 */ /* x65818 stalin.sc:2456:80571 */ /* x65817 stalin.sc:2456:80585 */ t81158 = a21569; /* x65816 stalin.sc:2456:80572 */ if (f7683(t81158)==FALSE_TYPE) goto l15384; /* x65822 */ /* x65821 */ /* x65820 stalin.sc:2456:80588 */ /* x65819 stalin.sc:2456:80589 */ /* x297221 QobiScheme.sc:166:5314 */ /* x297220 QobiScheme.sc:166:5321 */ t81205 = "This shouldn\'t happen"; /* x297219 QobiScheme.sc:166:5315 */ stalin_panic(t81205); l15384: /* x65973 */ /* x65825 stalin.sc:2457:80607 */ /* x65824 stalin.sc:2457:80621 */ t81159 = a21569; /* x65823 stalin.sc:2457:80608 */ if (f7684(t81159)==FALSE_TYPE) goto l15386; /* x65829 */ /* x65828 */ /* x65827 stalin.sc:2457:80624 */ /* x65826 stalin.sc:2457:80625 */ /* x297225 QobiScheme.sc:166:5314 */ /* x297224 QobiScheme.sc:166:5321 */ t81204 = "This shouldn\'t happen"; /* x297223 QobiScheme.sc:166:5315 */ stalin_panic(t81204); l15386: /* x65972 */ /* x65832 stalin.sc:2458:80643 */ /* x65831 stalin.sc:2458:80662 */ t81160 = a21569; /* x65830 stalin.sc:2458:80644 */ if (f7687(t81160)==FALSE_TYPE) goto l15388; /* x65836 */ /* x65835 */ /* x65834 stalin.sc:2458:80665 */ /* x65833 stalin.sc:2458:80666 */ /* x297229 QobiScheme.sc:166:5314 */ /* x297228 QobiScheme.sc:166:5321 */ t81203 = "This shouldn\'t happen"; /* x297227 QobiScheme.sc:166:5315 */ stalin_panic(t81203); l15388: /* x65971 */ /* x65839 stalin.sc:2459:80684 */ /* x65838 stalin.sc:2459:80702 */ t81161 = a21569; /* x65837 stalin.sc:2459:80685 */ if (f7700(t81161)==FALSE_TYPE) goto l15390; /* x65843 */ /* x65842 */ /* x65841 stalin.sc:2459:80705 */ /* x65840 stalin.sc:2459:80706 */ /* x297233 QobiScheme.sc:166:5314 */ /* x297232 QobiScheme.sc:166:5321 */ t81202 = "This shouldn\'t happen"; /* x297231 QobiScheme.sc:166:5315 */ stalin_panic(t81202); l15390: /* x65970 */ /* x65846 stalin.sc:2460:80724 */ /* x65845 stalin.sc:2460:80743 */ t81162 = a21569; /* x65844 stalin.sc:2460:80725 */ if (f7701(t81162)==FALSE_TYPE) goto l15392; /* x65850 */ /* x65849 */ /* x65848 stalin.sc:2460:80746 */ /* x65847 stalin.sc:2460:80747 */ /* x297237 QobiScheme.sc:166:5314 */ /* x297236 QobiScheme.sc:166:5321 */ t81201 = "This shouldn\'t happen"; /* x297235 QobiScheme.sc:166:5315 */ stalin_panic(t81201); l15392: /* x65969 */ /* x65853 stalin.sc:2461:80765 */ /* x65852 stalin.sc:2461:80783 */ t81163 = a21569; /* x65851 stalin.sc:2461:80766 */ if (f7702(t81163)==FALSE_TYPE) goto l15394; /* x65857 */ /* x65856 */ /* x65855 stalin.sc:2461:80786 */ /* x65854 stalin.sc:2461:80787 */ /* x297241 QobiScheme.sc:166:5314 */ /* x297240 QobiScheme.sc:166:5321 */ t81200 = "This shouldn\'t happen"; /* x297239 QobiScheme.sc:166:5315 */ stalin_panic(t81200); l15394: /* x65968 */ /* x65860 stalin.sc:2462:80805 */ /* x65859 stalin.sc:2462:80820 */ t81164 = a21569; /* x65858 stalin.sc:2462:80806 */ if (f7703(t81164)==FALSE_TYPE) goto l15396; /* x65864 */ /* x65863 */ /* x65862 stalin.sc:2462:80823 */ /* x65861 stalin.sc:2462:80824 */ /* x297245 QobiScheme.sc:166:5314 */ /* x297244 QobiScheme.sc:166:5321 */ t81199 = "This shouldn\'t happen"; /* x297243 QobiScheme.sc:166:5315 */ stalin_panic(t81199); l15396: /* x65967 */ /* x65867 stalin.sc:2463:80842 */ /* x65866 stalin.sc:2463:80865 */ t81165 = a21569; /* x65865 stalin.sc:2463:80843 */ a38324 = t81165; /* x285965 */ /* x285964 */ t81166 = a38324; /* x285963 */ if (!((t81166.tag)==STRUCTURE_TYPE27776)) goto l15398; /* x65872 */ /* x65871 */ /* x65870 stalin.sc:2463:80868 */ /* x65869 stalin.sc:2463:80898 */ t81198 = a21569; /* x65868 stalin.sc:2463:80869 */ return f7234(t81198); l15398: /* x65966 */ /* x65875 stalin.sc:2464:80910 */ /* x65874 stalin.sc:2464:80933 */ t81167 = a21569; /* x65873 stalin.sc:2464:80911 */ a38283 = t81167; /* x285801 */ /* x285800 */ t81168 = a38283; /* x285799 */ if (!((t81168.tag)==STRUCTURE_TYPE27779)) goto l15400; /* x65880 */ /* x65879 */ /* x65878 stalin.sc:2464:80936 */ /* x65877 stalin.sc:2464:80966 */ t81197 = a21569; /* x65876 stalin.sc:2464:80937 */ return f7259(t81197); l15400: /* x65965 */ /* x65883 stalin.sc:2465:80978 */ /* x65882 stalin.sc:2465:81005 */ t81169 = a21569; /* x65881 stalin.sc:2465:80979 */ a38224 = t81169; /* x285565 */ /* x285564 */ t81170 = a38224; /* x285563 */ if (!((t81170.tag)==STRUCTURE_TYPE27753)) goto l15402; /* x65888 */ /* x65887 */ /* x65886 stalin.sc:2465:81008 */ /* x65885 stalin.sc:2465:81042 */ t81196 = a21569; /* x65884 stalin.sc:2465:81009 */ return f7279(t81196); l15402: /* x65964 */ /* x65891 stalin.sc:2466:81054 */ /* x65890 stalin.sc:2466:81078 */ t81171 = a21569; /* x65889 stalin.sc:2466:81055 */ a38113 = t81171; /* x285121 */ /* x285120 */ t81172 = a38113; /* x285119 */ if (!((t81172.tag)==STRUCTURE_TYPE27756)) goto l15404; /* x65896 */ /* x65895 */ /* x65894 stalin.sc:2466:81081 */ /* x65893 stalin.sc:2466:81112 */ t81195 = a21569; /* x65892 stalin.sc:2466:81082 */ return f7314(t81195); l15404: /* x65963 */ /* x65899 stalin.sc:2467:81124 */ /* x65898 stalin.sc:2467:81149 */ t81173 = a21569; /* x65897 stalin.sc:2467:81125 */ a37966 = t81173; /* x284533 */ /* x284532 */ t81174 = a37966; /* x284531 */ if (!((t81174.tag)==STRUCTURE_TYPE27750)) goto l15406; /* x65904 */ /* x65903 */ /* x65902 stalin.sc:2467:81152 */ /* x65901 stalin.sc:2467:81184 */ t81194 = a21569; /* x65900 stalin.sc:2467:81153 */ return f7354(t81194); l15406: /* x65962 */ /* x65907 stalin.sc:2468:81196 */ /* x65906 stalin.sc:2468:81216 */ t81175 = a21569; /* x65905 stalin.sc:2468:81197 */ a37895 = t81175; /* x284249 */ /* x284248 */ t81176 = a37895; /* x284247 */ if (!((t81176.tag)==STRUCTURE_TYPE27858)) goto l15408; /* x65912 */ /* x65911 */ /* x65910 stalin.sc:2468:81219 */ /* x65909 stalin.sc:2468:81246 */ t81193 = a21569; /* x65908 stalin.sc:2468:81220 */ return f7379(t81193); l15408: /* x65961 */ /* x65915 stalin.sc:2469:81258 */ /* x65914 stalin.sc:2469:81272 */ t81177 = a21569; /* x65913 stalin.sc:2469:81259 */ a37774 = t81177; /* x283765 */ /* x283764 */ t81178 = a37774; /* x283763 */ if (!((t81178.tag)==STRUCTURE_TYPE27673)) goto l15410; /* x65920 */ /* x65919 */ /* x65918 stalin.sc:2469:81275 */ /* x65917 stalin.sc:2469:81296 */ t81192 = a21569; /* x65916 stalin.sc:2469:81276 */ return f7419(t81192); l15410: /* x65960 */ /* x65923 stalin.sc:2470:81308 */ /* x65922 stalin.sc:2470:81325 */ t81179 = a21569; /* x65921 stalin.sc:2470:81309 */ a37699 = t81179; /* x283465 */ /* x283464 */ t81180 = a37699; /* x283463 */ if (!((t81180.tag)==STRUCTURE_TYPE27769)) goto l15412; /* x65928 */ /* x65927 */ /* x65926 stalin.sc:2470:81328 */ /* x65925 stalin.sc:2470:81352 */ t81191 = a21569; /* x65924 stalin.sc:2470:81329 */ return f7464(t81191); l15412: /* x65959 */ /* x65931 stalin.sc:2471:81364 */ /* x65930 stalin.sc:2471:81385 */ t81181 = a21569; /* x65929 stalin.sc:2471:81365 */ a37557 = t81181; /* x282897 */ /* x282896 */ t81182 = a37557; /* x282895 */ if (!((t81182.tag)==STRUCTURE_TYPE27761)) goto l15414; /* x65936 */ /* x65935 */ /* x65934 stalin.sc:2471:81388 */ /* x65933 stalin.sc:2471:81416 */ t81190 = a21569; /* x65932 stalin.sc:2471:81389 */ return f7524(t81190); l15414: /* x65958 */ /* x65939 stalin.sc:2472:81428 */ /* x65938 stalin.sc:2472:81452 */ t81183 = a21569; /* x65937 stalin.sc:2472:81429 */ a37441 = t81183; /* x282433 */ /* x282432 */ t81184 = a37441; /* x282431 */ if (!((t81184.tag)==STRUCTURE_TYPE27669)) goto l15416; /* x65944 */ /* x65943 */ /* x65942 stalin.sc:2472:81455 */ /* x65941 stalin.sc:2472:81486 */ t81189 = a21569; /* x65940 stalin.sc:2472:81456 */ return f7574(t81189); l15416: /* x65957 */ /* x65947 stalin.sc:2473:81498 */ /* x65946 stalin.sc:2473:81522 */ t81185 = a21569; /* x65945 stalin.sc:2473:81499 */ a37342 = t81185; /* x282037 */ /* x282036 */ t81186 = a37342; /* x282035 */ if (!((t81186.tag)==STRUCTURE_TYPE27908)) goto l15418; /* x65952 */ /* x65951 */ /* x65950 stalin.sc:2473:81525 */ /* x65949 stalin.sc:2473:81556 */ t81188 = a21569; /* x65948 stalin.sc:2473:81526 */ return f7619(t81188); l15418: /* x65956 */ /* x65955 */ /* x65954 stalin.sc:2474:81573 */ /* x65953 stalin.sc:2474:81574 */ /* x297249 QobiScheme.sc:166:5314 */ /* x297248 QobiScheme.sc:166:5321 */ t81187 = "This shouldn\'t happen"; /* x297247 QobiScheme.sc:166:5315 */ stalin_panic(t81187);} /* NEVER-ALLOCATED-ON-THE-HEAP?[7777] */ unsigned f7777(struct w49 a21568) {struct w49 a21288; /* U */ struct w49 a21332; /* U */ struct w49 a21372; /* U */ struct w49 a21412; /* U */ struct w49 a37331; /* OBJ */ struct w49 a37361; /* S */ struct w49 a37429; /* OBJ */ struct w49 a37461; /* S */ struct w49 a37547; /* OBJ */ struct w49 a37578; /* S */ struct w49 a37688; /* OBJ */ struct w49 a37720; /* S */ struct w49 a37764; /* OBJ */ struct w49 a37876; /* OBJ */ struct w49 a37953; /* OBJ */ struct w49 a38078; /* OBJ */ struct w49 a38210; /* OBJ */ struct w49 a38276; /* OBJ */ struct w49 a38317; /* OBJ */ struct w49 t81210; struct w49 t81211; struct w49 t81212; struct w49 t81213; struct w49 t81214; struct w49 t81215; struct w49 t81216; struct w49 t81217; struct w49 t81218; struct w49 t81219; struct w49 t81220; struct w49 t81221; struct w49 t81222; struct w49 t81223; struct w49 t81224; struct w49 t81225; struct w49 t81226; struct w49 t81227; struct w49 t81228; struct w49 t81229; struct w49 t81230; struct w49 t81231; struct w49 t81232; struct w49 t81233; struct w49 t81234; struct w49 t81235; struct w49 t81236; struct w49 t81237; struct w49 t81238; struct w49 t81239; struct w49 t81240; struct w49 t81241; struct w49 t81242; char *t81243; struct w49 t81244; int t81245; int t81246; int t81247; struct structure_type24753 *t81248; struct w49 t81249; struct w49 t81250; struct w49 t81251; struct w49 t81252; int t81253; int t81254; int t81255; struct structure_type24753 *t81256; struct w49 t81257; struct w49 t81258; struct w49 t81259; struct w49 t81260; int t81261; int t81262; int t81263; struct structure_type24753 *t81264; struct w49 t81265; struct w49 t81266; struct w49 t81267; struct w49 t81268; int t81269; int t81270; int t81271; struct structure_type24753 *t81272; struct w49 t81273; struct w49 t81274; struct w49 t81275; /* x65785 stalin.sc:2425:79554 */ /* x65622 stalin.sc:2426:79563 */ /* x65621 stalin.sc:2426:79575 */ t81210 = a21568; /* x65620 stalin.sc:2426:79564 */ if (f7677(t81210)==FALSE_TYPE) goto l15420; /* x65625 */ /* x65624 */ /* x65623 stalin.sc:2426:79578 */ return TRUE_TYPE; l15420: /* x65784 */ /* x65628 stalin.sc:2427:79585 */ /* x65627 stalin.sc:2427:79597 */ t81211 = a21568; /* x65626 stalin.sc:2427:79586 */ if (f7678(t81211)==FALSE_TYPE) goto l15422; /* x65631 */ /* x65630 */ /* x65629 stalin.sc:2427:79600 */ return TRUE_TYPE; l15422: /* x65783 */ /* x65634 stalin.sc:2428:79607 */ /* x65633 stalin.sc:2428:79620 */ t81212 = a21568; /* x65632 stalin.sc:2428:79608 */ if (f7679(t81212)==FALSE_TYPE) goto l15424; /* x65637 */ /* x65636 */ /* x65635 stalin.sc:2428:79623 */ return TRUE_TYPE; l15424: /* x65782 */ /* x65640 stalin.sc:2429:79630 */ /* x65639 stalin.sc:2429:79642 */ t81213 = a21568; /* x65638 stalin.sc:2429:79631 */ if (f7682(t81213)==FALSE_TYPE) goto l15426; /* x65643 */ /* x65642 */ /* x65641 stalin.sc:2429:79645 */ return TRUE_TYPE; l15426: /* x65781 */ /* x65646 stalin.sc:2430:79652 */ /* x65645 stalin.sc:2430:79666 */ t81214 = a21568; /* x65644 stalin.sc:2430:79653 */ if (f7683(t81214)==FALSE_TYPE) goto l15428; /* x65649 */ /* x65648 */ /* x65647 stalin.sc:2430:79669 */ return TRUE_TYPE; l15428: /* x65780 */ /* x65652 stalin.sc:2431:79676 */ /* x65651 stalin.sc:2431:79690 */ t81215 = a21568; /* x65650 stalin.sc:2431:79677 */ if (f7684(t81215)==FALSE_TYPE) goto l15430; /* x65655 */ /* x65654 */ /* x65653 stalin.sc:2431:79693 */ return TRUE_TYPE; l15430: /* x65779 */ /* x65658 stalin.sc:2432:79700 */ /* x65657 stalin.sc:2432:79719 */ t81216 = a21568; /* x65656 stalin.sc:2432:79701 */ if (f7687(t81216)==FALSE_TYPE) goto l15432; /* x65661 */ /* x65660 */ /* x65659 stalin.sc:2432:79722 */ return TRUE_TYPE; l15432: /* x65778 */ /* x65664 stalin.sc:2433:79729 */ /* x65663 stalin.sc:2433:79747 */ t81217 = a21568; /* x65662 stalin.sc:2433:79730 */ if (f7700(t81217)==FALSE_TYPE) goto l15434; /* x65667 */ /* x65666 */ /* x65665 stalin.sc:2433:79750 */ return TRUE_TYPE; l15434: /* x65777 */ /* x65670 stalin.sc:2434:79757 */ /* x65669 stalin.sc:2434:79776 */ t81218 = a21568; /* x65668 stalin.sc:2434:79758 */ if (f7701(t81218)==FALSE_TYPE) goto l15436; /* x65673 */ /* x65672 */ /* x65671 stalin.sc:2434:79779 */ return TRUE_TYPE; l15436: /* x65776 */ /* x65676 stalin.sc:2435:79786 */ /* x65675 stalin.sc:2435:79804 */ t81219 = a21568; /* x65674 stalin.sc:2435:79787 */ if (f7702(t81219)==FALSE_TYPE) goto l15438; /* x65679 */ /* x65678 */ /* x65677 stalin.sc:2435:79807 */ return TRUE_TYPE; l15438: /* x65775 */ /* x65682 stalin.sc:2436:79814 */ /* x65681 stalin.sc:2436:79829 */ t81220 = a21568; /* x65680 stalin.sc:2436:79815 */ if (f7703(t81220)==FALSE_TYPE) goto l15440; /* x65685 */ /* x65684 */ /* x65683 stalin.sc:2436:79832 */ return TRUE_TYPE; l15440: /* x65774 */ /* x65688 stalin.sc:2437:79839 */ /* x65687 stalin.sc:2437:79862 */ t81221 = a21568; /* x65686 stalin.sc:2437:79840 */ a38317 = t81221; /* x285937 */ /* x285936 */ t81222 = a38317; /* x285935 */ if (!((t81222.tag)==STRUCTURE_TYPE27776)) goto l15442; /* x65691 */ /* x65690 */ /* x65689 stalin.sc:2437:79865 */ return TRUE_TYPE; l15442: /* x65773 */ /* x65694 stalin.sc:2438:79872 */ /* x65693 stalin.sc:2438:79895 */ t81223 = a21568; /* x65692 stalin.sc:2438:79873 */ a38276 = t81223; /* x285773 */ /* x285772 */ t81224 = a38276; /* x285771 */ if (!((t81224.tag)==STRUCTURE_TYPE27779)) goto l15444; /* x65697 */ /* x65696 */ /* x65695 stalin.sc:2438:79898 */ return TRUE_TYPE; l15444: /* x65772 */ /* x65700 stalin.sc:2439:79905 */ /* x65699 stalin.sc:2439:79932 */ t81225 = a21568; /* x65698 stalin.sc:2439:79906 */ a38210 = t81225; /* x285509 */ /* x285508 */ t81226 = a38210; /* x285507 */ if (!((t81226.tag)==STRUCTURE_TYPE27753)) goto l15446; /* x65703 */ /* x65702 */ /* x65701 stalin.sc:2439:79935 */ return TRUE_TYPE; l15446: /* x65771 */ /* x65706 stalin.sc:2440:79942 */ /* x65705 stalin.sc:2440:79966 */ t81227 = a21568; /* x65704 stalin.sc:2440:79943 */ a38078 = t81227; /* x284981 */ /* x284980 */ t81228 = a38078; /* x284979 */ if (!((t81228.tag)==STRUCTURE_TYPE27756)) goto l15448; /* x65709 */ /* x65708 */ /* x65707 stalin.sc:2440:79969 */ return TRUE_TYPE; l15448: /* x65770 */ /* x65712 stalin.sc:2441:79976 */ /* x65711 stalin.sc:2441:80001 */ t81229 = a21568; /* x65710 stalin.sc:2441:79977 */ a37953 = t81229; /* x284481 */ /* x284480 */ t81230 = a37953; /* x284479 */ if (!((t81230.tag)==STRUCTURE_TYPE27750)) goto l15450; /* x65715 */ /* x65714 */ /* x65713 stalin.sc:2441:80004 */ return TRUE_TYPE; l15450: /* x65769 */ /* x65718 stalin.sc:2442:80011 */ /* x65717 stalin.sc:2442:80031 */ t81231 = a21568; /* x65716 stalin.sc:2442:80012 */ a37876 = t81231; /* x284173 */ /* x284172 */ t81232 = a37876; /* x284171 */ if (!((t81232.tag)==STRUCTURE_TYPE27858)) goto l15452; /* x65721 */ /* x65720 */ /* x65719 stalin.sc:2442:80034 */ return TRUE_TYPE; l15452: /* x65768 */ /* x65724 stalin.sc:2443:80041 */ /* x65723 stalin.sc:2443:80055 */ t81233 = a21568; /* x65722 stalin.sc:2443:80042 */ a37764 = t81233; /* x283725 */ /* x283724 */ t81234 = a37764; /* x283723 */ if (!((t81234.tag)==STRUCTURE_TYPE27673)) goto l15454; /* x65729 */ /* x65728 */ /* x65727 stalin.sc:2443:80058 */ /* x65726 stalin.sc:2443:80100 */ t81268 = a21568; /* x65725 stalin.sc:2443:80059 */ a21288 = t81268; /* x62377 stalin.sc:1676:55755 */ /* x62377 stalin.sc:1676:55755 */ /* x62376 stalin.sc:1676:55760 */ /* x62375 stalin.sc:1676:55767 */ /* x62374 stalin.sc:1676:55801 */ t81271 = 64; /* x62373 stalin.sc:1676:55776 */ /* x62372 stalin.sc:1676:55798 */ t81274 = a21288; /* x62371 stalin.sc:1676:55777 */ a37720 = t81274; /* x283549 */ /* x283548 */ t81275 = a37720; /* x283547 */ if (!((t81275.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-BOOLEANS[6159] 32637]"); structure_ref_error();} t81270 = t81275.value.structure_type27673->s6; /* x62370 stalin.sc:1676:55768 */ t81273.tag = STRUCTURE_TYPE24753; t81273.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81273.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1676, 55767); out_of_memory_error();} t81273.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81273.value.structure_type24753->s0.value.fixnum_type = t81271; t81273.value.structure_type24753->s1.tag = NULL_TYPE; t81272 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81272==NULL) {backtrace("stalin.sc", 1676, 55767); out_of_memory_error();} t81272->s0.tag = FIXNUM_TYPE; t81272->s0.value.fixnum_type = t81270; t81272->s1 = t81273; t81269 = f27305(t81272); /* x270583 stalin.sc:1676:55761 */ if (t81269==0) goto l15473; return TRUE_TYPE; l15473: return FALSE_TYPE; l15454: /* x65767 */ /* x65732 stalin.sc:2444:80107 */ /* x65731 stalin.sc:2444:80124 */ t81235 = a21568; /* x65730 stalin.sc:2444:80108 */ a37688 = t81235; /* x283421 */ /* x283420 */ t81236 = a37688; /* x283419 */ if (!((t81236.tag)==STRUCTURE_TYPE27769)) goto l15456; /* x65737 */ /* x65736 */ /* x65735 stalin.sc:2444:80127 */ /* x65734 stalin.sc:2444:80172 */ t81260 = a21568; /* x65733 stalin.sc:2444:80128 */ a21332 = t81260; /* x62872 stalin.sc:1797:59312 */ /* x62872 stalin.sc:1797:59312 */ /* x62871 stalin.sc:1797:59317 */ /* x62870 stalin.sc:1797:59324 */ /* x62869 stalin.sc:1797:59361 */ t81263 = 64; /* x62868 stalin.sc:1797:59333 */ /* x62867 stalin.sc:1797:59358 */ t81266 = a21332; /* x62866 stalin.sc:1797:59334 */ a37578 = t81266; /* x282981 */ /* x282980 */ t81267 = a37578; /* x282979 */ if (!((t81267.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32495]"); structure_ref_error();} t81262 = t81267.value.structure_type27769->s8; /* x62865 stalin.sc:1797:59325 */ t81265.tag = STRUCTURE_TYPE24753; t81265.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81265.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1797, 59324); out_of_memory_error();} t81265.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81265.value.structure_type24753->s0.value.fixnum_type = t81263; t81265.value.structure_type24753->s1.tag = NULL_TYPE; t81264 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81264==NULL) {backtrace("stalin.sc", 1797, 59324); out_of_memory_error();} t81264->s0.tag = FIXNUM_TYPE; t81264->s0.value.fixnum_type = t81262; t81264->s1 = t81265; t81261 = f27305(t81264); /* x270558 stalin.sc:1797:59318 */ if (t81261==0) goto l15470; return TRUE_TYPE; l15470: return FALSE_TYPE; l15456: /* x65766 */ /* x65740 stalin.sc:2445:80179 */ /* x65739 stalin.sc:2445:80200 */ t81237 = a21568; /* x65738 stalin.sc:2445:80180 */ a37547 = t81237; /* x282857 */ /* x282856 */ t81238 = a37547; /* x282855 */ if (!((t81238.tag)==STRUCTURE_TYPE27761)) goto l15458; /* x65745 */ /* x65744 */ /* x65743 stalin.sc:2445:80203 */ /* x65742 stalin.sc:2445:80252 */ t81252 = a21568; /* x65741 stalin.sc:2445:80204 */ a21372 = t81252; /* x63322 stalin.sc:1907:62688 */ /* x63322 stalin.sc:1907:62688 */ /* x63321 stalin.sc:1907:62693 */ /* x63320 stalin.sc:1907:62700 */ /* x63319 stalin.sc:1907:62741 */ t81255 = 128; /* x63318 stalin.sc:1907:62709 */ /* x63317 stalin.sc:1907:62738 */ t81258 = a21372; /* x63316 stalin.sc:1907:62710 */ a37461 = t81258; /* x282513 */ /* x282512 */ t81259 = a37461; /* x282511 */ if (!((t81259.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-BOOLEANS[6299] 32378]"); structure_ref_error();} t81254 = t81259.value.structure_type27761->s7; /* x63315 stalin.sc:1907:62701 */ t81257.tag = STRUCTURE_TYPE24753; t81257.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81257.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1907, 62700); out_of_memory_error();} t81257.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81257.value.structure_type24753->s0.value.fixnum_type = t81255; t81257.value.structure_type24753->s1.tag = NULL_TYPE; t81256 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81256==NULL) {backtrace("stalin.sc", 1907, 62700); out_of_memory_error();} t81256->s0.tag = FIXNUM_TYPE; t81256->s0.value.fixnum_type = t81254; t81256->s1 = t81257; t81253 = f27305(t81256); /* x270532 stalin.sc:1907:62694 */ if (t81253==0) goto l15467; return TRUE_TYPE; l15467: return FALSE_TYPE; l15458: /* x65765 */ /* x65748 stalin.sc:2446:80259 */ /* x65747 stalin.sc:2446:80283 */ t81239 = a21568; /* x65746 stalin.sc:2446:80260 */ a37429 = t81239; /* x282385 */ /* x282384 */ t81240 = a37429; /* x282383 */ if (!((t81240.tag)==STRUCTURE_TYPE27669)) goto l15460; /* x65753 */ /* x65752 */ /* x65751 stalin.sc:2447:80289 */ /* x65750 stalin.sc:2447:80341 */ t81244 = a21568; /* x65749 stalin.sc:2447:80290 */ a21412 = t81244; /* x63772 stalin.sc:2017:66306 */ /* x63772 stalin.sc:2017:66306 */ /* x63771 stalin.sc:2017:66311 */ /* x63770 stalin.sc:2017:66318 */ /* x63769 stalin.sc:2017:66362 */ t81247 = 128; /* x63768 stalin.sc:2017:66327 */ /* x63767 stalin.sc:2017:66359 */ t81250 = a21412; /* x63766 stalin.sc:2017:66328 */ a37361 = t81250; /* x282113 */ /* x282112 */ t81251 = a37361; /* x282111 */ if (!((t81251.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-BOOLEANS[6365] 32278]"); structure_ref_error();} t81246 = t81251.value.structure_type27669->s7; /* x63765 stalin.sc:2017:66319 */ t81249.tag = STRUCTURE_TYPE24753; t81249.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81249.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2017, 66318); out_of_memory_error();} t81249.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81249.value.structure_type24753->s0.value.fixnum_type = t81247; t81249.value.structure_type24753->s1.tag = NULL_TYPE; t81248 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81248==NULL) {backtrace("stalin.sc", 2017, 66318); out_of_memory_error();} t81248->s0.tag = FIXNUM_TYPE; t81248->s0.value.fixnum_type = t81246; t81248->s1 = t81249; t81245 = f27305(t81248); /* x270508 stalin.sc:2017:66312 */ if (t81245==0) goto l15464; return TRUE_TYPE; l15464: return FALSE_TYPE; l15460: /* x65764 */ /* x65756 stalin.sc:2448:80348 */ /* x65755 stalin.sc:2448:80372 */ t81241 = a21568; /* x65754 stalin.sc:2448:80349 */ a37331 = t81241; /* x281993 */ /* x281992 */ t81242 = a37331; /* x281991 */ if (!((t81242.tag)==STRUCTURE_TYPE27908)) goto l15462; /* x65759 */ /* x65758 */ /* x65757 stalin.sc:2448:80375 */ return TRUE_TYPE; l15462: /* x65763 */ /* x65762 */ /* x65761 stalin.sc:2449:80387 */ /* x65760 stalin.sc:2449:80388 */ /* x296125 QobiScheme.sc:166:5314 */ /* x296124 QobiScheme.sc:166:5321 */ t81243 = "This shouldn\'t happen"; /* x296123 QobiScheme.sc:166:5315 */ stalin_panic(t81243);} /* TYPE?[7755] */ unsigned f7755(struct w49 a21546) {struct w49 a37343; /* OBJ */ struct w49 a37442; /* OBJ */ struct w49 a37558; /* OBJ */ struct w49 a37700; /* OBJ */ struct w49 a37775; /* OBJ */ struct w49 a37896; /* OBJ */ struct w49 a37967; /* OBJ */ struct w49 a38114; /* OBJ */ struct w49 a38225; /* OBJ */ struct w49 a38284; /* OBJ */ struct w49 a38325; /* OBJ */ struct w49 t81276; struct w49 t81277; struct w49 t81278; struct w49 t81279; struct w49 t81280; struct w49 t81281; struct w49 t81282; struct w49 t81283; struct w49 t81284; struct w49 t81285; struct w49 t81286; struct w49 t81287; struct w49 t81288; struct w49 t81289; struct w49 t81290; struct w49 t81291; struct w49 t81292; struct w49 t81293; struct w49 t81294; struct w49 t81295; struct w49 t81296; struct w49 t81297; struct w49 t81298; struct w49 t81299; struct w49 t81300; struct w49 t81301; struct w49 t81302; struct w49 t81303; struct w49 t81304; struct w49 t81305; struct w49 t81306; struct w49 t81307; struct w49 t81308; /* x65617 stalin.sc:2401:78926 */ /* x65617 stalin.sc:2401:78926 */ /* x65616 stalin.sc:2401:78930 */ /* x65615 stalin.sc:2401:78942 */ t81276 = a21546; /* x65614 stalin.sc:2401:78931 */ if (!(f7677(t81276)==FALSE_TYPE)) goto l15475; /* x65611 */ /* x65610 stalin.sc:2402:78950 */ /* x65609 stalin.sc:2402:78962 */ t81277 = a21546; /* x65608 stalin.sc:2402:78951 */ if (!(f7678(t81277)==FALSE_TYPE)) goto l15475; /* x65605 */ /* x65604 stalin.sc:2403:78970 */ /* x65603 stalin.sc:2403:78983 */ t81278 = a21546; /* x65602 stalin.sc:2403:78971 */ if (!(f7679(t81278)==FALSE_TYPE)) goto l15475; /* x65599 */ /* x65598 stalin.sc:2404:78991 */ /* x65597 stalin.sc:2404:79003 */ t81279 = a21546; /* x65596 stalin.sc:2404:78992 */ if (!(f7682(t81279)==FALSE_TYPE)) goto l15475; /* x65593 */ /* x65592 stalin.sc:2405:79011 */ /* x65591 stalin.sc:2405:79025 */ t81280 = a21546; /* x65590 stalin.sc:2405:79012 */ if (!(f7683(t81280)==FALSE_TYPE)) goto l15475; /* x65587 */ /* x65586 stalin.sc:2406:79033 */ /* x65585 stalin.sc:2406:79047 */ t81281 = a21546; /* x65584 stalin.sc:2406:79034 */ if (!(f7684(t81281)==FALSE_TYPE)) goto l15475; /* x65581 */ /* x65580 stalin.sc:2407:79055 */ /* x65579 stalin.sc:2407:79074 */ t81282 = a21546; /* x65578 stalin.sc:2407:79056 */ if (!(f7687(t81282)==FALSE_TYPE)) goto l15475; /* x65575 */ /* x65574 stalin.sc:2408:79082 */ /* x65573 stalin.sc:2408:79100 */ t81283 = a21546; /* x65572 stalin.sc:2408:79083 */ if (!(f7700(t81283)==FALSE_TYPE)) goto l15475; /* x65569 */ /* x65568 stalin.sc:2409:79108 */ /* x65567 stalin.sc:2409:79127 */ t81284 = a21546; /* x65566 stalin.sc:2409:79109 */ if (!(f7701(t81284)==FALSE_TYPE)) goto l15475; /* x65563 */ /* x65562 stalin.sc:2410:79135 */ /* x65561 stalin.sc:2410:79153 */ t81285 = a21546; /* x65560 stalin.sc:2410:79136 */ if (!(f7702(t81285)==FALSE_TYPE)) goto l15475; /* x65557 */ /* x65556 stalin.sc:2411:79161 */ /* x65555 stalin.sc:2411:79176 */ t81286 = a21546; /* x65554 stalin.sc:2411:79162 */ if (!(f7703(t81286)==FALSE_TYPE)) goto l15475; /* x65551 */ /* x65550 stalin.sc:2412:79184 */ /* x65549 stalin.sc:2412:79207 */ t81287 = a21546; /* x65548 stalin.sc:2412:79185 */ a38325 = t81287; /* x285969 */ /* x285968 */ t81288 = a38325; /* x285967 */ if ((t81288.tag)==STRUCTURE_TYPE27776) goto l15475; /* x65545 */ /* x65544 stalin.sc:2413:79215 */ /* x65543 stalin.sc:2413:79238 */ t81289 = a21546; /* x65542 stalin.sc:2413:79216 */ a38284 = t81289; /* x285805 */ /* x285804 */ t81290 = a38284; /* x285803 */ if ((t81290.tag)==STRUCTURE_TYPE27779) goto l15475; /* x65539 */ /* x65538 stalin.sc:2414:79246 */ /* x65537 stalin.sc:2414:79273 */ t81291 = a21546; /* x65536 stalin.sc:2414:79247 */ a38225 = t81291; /* x285569 */ /* x285568 */ t81292 = a38225; /* x285567 */ if ((t81292.tag)==STRUCTURE_TYPE27753) goto l15475; /* x65533 */ /* x65532 stalin.sc:2415:79281 */ /* x65531 stalin.sc:2415:79305 */ t81293 = a21546; /* x65530 stalin.sc:2415:79282 */ a38114 = t81293; /* x285125 */ /* x285124 */ t81294 = a38114; /* x285123 */ if ((t81294.tag)==STRUCTURE_TYPE27756) goto l15475; /* x65527 */ /* x65526 stalin.sc:2416:79313 */ /* x65525 stalin.sc:2416:79338 */ t81295 = a21546; /* x65524 stalin.sc:2416:79314 */ a37967 = t81295; /* x284537 */ /* x284536 */ t81296 = a37967; /* x284535 */ if ((t81296.tag)==STRUCTURE_TYPE27750) goto l15475; /* x65521 */ /* x65520 stalin.sc:2417:79346 */ /* x65519 stalin.sc:2417:79366 */ t81297 = a21546; /* x65518 stalin.sc:2417:79347 */ a37896 = t81297; /* x284253 */ /* x284252 */ t81298 = a37896; /* x284251 */ if ((t81298.tag)==STRUCTURE_TYPE27858) goto l15475; /* x65515 */ /* x65514 stalin.sc:2418:79374 */ /* x65513 stalin.sc:2418:79388 */ t81299 = a21546; /* x65512 stalin.sc:2418:79375 */ a37775 = t81299; /* x283769 */ /* x283768 */ t81300 = a37775; /* x283767 */ if ((t81300.tag)==STRUCTURE_TYPE27673) goto l15475; /* x65509 */ /* x65508 stalin.sc:2419:79396 */ /* x65507 stalin.sc:2419:79413 */ t81301 = a21546; /* x65506 stalin.sc:2419:79397 */ a37700 = t81301; /* x283469 */ /* x283468 */ t81302 = a37700; /* x283467 */ if ((t81302.tag)==STRUCTURE_TYPE27769) goto l15475; /* x65503 */ /* x65502 stalin.sc:2420:79421 */ /* x65501 stalin.sc:2420:79442 */ t81303 = a21546; /* x65500 stalin.sc:2420:79422 */ a37558 = t81303; /* x282901 */ /* x282900 */ t81304 = a37558; /* x282899 */ if ((t81304.tag)==STRUCTURE_TYPE27761) goto l15475; /* x65497 */ /* x65496 stalin.sc:2421:79450 */ /* x65495 stalin.sc:2421:79474 */ t81305 = a21546; /* x65494 stalin.sc:2421:79451 */ a37442 = t81305; /* x282437 */ /* x282436 */ t81306 = a37442; /* x282435 */ if ((t81306.tag)==STRUCTURE_TYPE27669) goto l15475; /* x65491 */ /* x65490 stalin.sc:2422:79506 */ t81307 = a21546; /* x65489 stalin.sc:2422:79483 */ a37343 = t81307; /* x282041 */ /* x282040 */ t81308 = a37343; /* x282039 */ if (!((t81308.tag)==STRUCTURE_TYPE27908)) goto l15476; l15475: return TRUE_TYPE; l15476: return FALSE_TYPE;} /* DEGENERATE-VECTOR-TYPE?[7754] */ unsigned f7754(struct w49 a21545) {struct w49 t81309; struct w49 t81310; struct w49 t81311; /* x65444 stalin.sc:2398:78844 */ /* x65444 stalin.sc:2398:78844 */ /* x65437 stalin.sc:2398:78849 */ /* x65436 stalin.sc:2398:78863 */ t81309 = a21545; /* x65435 stalin.sc:2398:78850 */ if (f7741(t81309)==FALSE_TYPE) goto l15500; /* x65442 */ /* x65441 stalin.sc:2398:78879 */ /* x65440 stalin.sc:2398:78900 */ t81311 = a21545; /* x65439 stalin.sc:2398:78880 */ t81310 = f7931(t81311); /* x65438 stalin.sc:2398:78867 */ if (f8793(t81310)==FALSE_TYPE) goto l15500; return TRUE_TYPE; l15500: return FALSE_TYPE;} /* VECTOR-TYPE?[7741] */ unsigned f7741(struct w49 a21540) {struct w49 a37349; /* OBJ */ struct w49 a37449; /* OBJ */ struct w49 a37566; /* OBJ */ struct w49 t81312; struct w49 t81313; struct w49 t81314; struct w49 t81315; struct w49 t81316; struct w49 t81317; /* x65366 stalin.sc:2379:78148 */ /* x65366 stalin.sc:2379:78148 */ /* x65365 stalin.sc:2379:78152 */ /* x65364 stalin.sc:2379:78173 */ t81312 = a21540; /* x65363 stalin.sc:2379:78153 */ a37566 = t81312; /* x282933 */ /* x282932 */ t81313 = a37566; /* x282931 */ if ((t81313.tag)==STRUCTURE_TYPE27761) goto l15503; /* x65360 */ /* x65359 stalin.sc:2380:78181 */ /* x65358 stalin.sc:2380:78205 */ t81314 = a21540; /* x65357 stalin.sc:2380:78182 */ a37449 = t81314; /* x282465 */ /* x282464 */ t81315 = a37449; /* x282463 */ if ((t81315.tag)==STRUCTURE_TYPE27669) goto l15503; /* x65354 */ /* x65353 stalin.sc:2381:78237 */ t81316 = a21540; /* x65352 stalin.sc:2381:78214 */ a37349 = t81316; /* x282065 */ /* x282064 */ t81317 = a37349; /* x282063 */ if (!((t81317.tag)==STRUCTURE_TYPE27908)) goto l15504; l15503: return TRUE_TYPE; l15504: return FALSE_TYPE;} /* [inside LIST-TYPE-OF-LENGTH-AT-LEAST? 7739] */ struct w16638 f7739(struct p7738 *p7739, struct w49 a21538) {struct w16638 r7739; int t81318; struct w49 t81319; struct w49 t81320; struct p7738 *t81321; struct w49 t81322; struct w211257 t81323; int t81324; int t81325; int t81326; struct w49 t81327; /* x65331 stalin.sc:2369:77834 */ /* x65311 stalin.sc:2369:77838 */ /* x65310 stalin.sc:2369:77849 */ t81318 = p7739->a21537; /* x270451 stalin.sc:2369:77839 */ if (!(t81318>0)) goto l15509; /* x65327 stalin.sc:2370:77858 */ /* x65314 stalin.sc:2370:77863 */ /* x65313 stalin.sc:2370:77875 */ t81320 = a21538; /* x65312 stalin.sc:2370:77864 */ if (f7719(t81320)==FALSE_TYPE) goto l15511; /* x65325 */ /* x65321 stalin.sc:2371:77891 */ /* x65320 stalin.sc:2371:77922 */ /* x65318 stalin.sc:2371:77925 */ t81325 = p7739->a21537; /* x65319 stalin.sc:2371:77927 */ t81326 = 1; /* x270450 stalin.sc:2371:77923 */ t81324 = t81325-t81326; /* x65316 stalin.sc:2371:77892 */ t81321 = f7738(t81324); /* x65324 stalin.sc:2371:77931 */ /* x65323 stalin.sc:2371:77946 */ t81327 = a21538; /* x65322 stalin.sc:2371:77932 */ t81322 = f7927(t81327); /* x65315 stalin.sc:2371:77883 */ t81323.tag = NATIVE_PROCEDURE_TYPE19912; t81323.value.native_procedure_type19912 = t81321; return f8137(t81323, t81322); l15511: /* x65326 */ r7739.tag = FALSE_TYPE; return r7739; l15509: /* x65330 stalin.sc:2372:77957 */ /* x65329 stalin.sc:2372:77969 */ t81319 = a21538; /* x65328 stalin.sc:2372:77958 */ return f7735(t81319);} /* LIST-TYPE-OF-LENGTH-AT-LEAST?[7738] */ struct p7738 *f7738(int a21537) {struct p7738 *e7738; e7738 = (struct p7738 *)GC_malloc_atomic(sizeof(struct p7738)); if (e7738==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e7738->a21537 = a21537; /* x65332 stalin.sc:2368:77820 */ return e7738;} /* [inside LIST-TYPE-OF-LENGTH? 7737] */ struct w16638 f7737(struct p7736 *p7737, struct w49 a21536) {struct w16638 r7737; int t81328; int t81329; struct w49 t81330; struct p7736 *t81331; struct w49 t81332; struct w211257 t81333; int t81334; int t81335; int t81336; struct w49 t81337; struct w49 t81338; unsigned t81339; /* x65305 stalin.sc:2360:77602 */ /* x65280 stalin.sc:2360:77607 */ /* x65279 stalin.sc:2360:77612 */ /* x65278 stalin.sc:2360:77623 */ t81328 = p7737->a21535; /* x270454 stalin.sc:2360:77613 */ if (t81328<0) goto l15513; /* x65303 */ /* x65283 stalin.sc:2361:77638 */ /* x65282 stalin.sc:2361:77645 */ t81329 = p7737->a21535; /* x270453 stalin.sc:2361:77639 */ if (!(t81329==0)) goto l15515; /* x65286 stalin.sc:2362:77652 */ /* x65285 stalin.sc:2362:77664 */ t81338 = a21536; /* x65284 stalin.sc:2362:77653 */ t81339 = f7677(t81338); r7737.tag = t81339; return r7737; l15515: /* x65302 stalin.sc:2363:77671 */ /* x65289 stalin.sc:2363:77676 */ /* x65288 stalin.sc:2363:77688 */ t81330 = a21536; /* x65287 stalin.sc:2363:77677 */ if (f7719(t81330)==FALSE_TYPE) goto l15517; /* x65300 */ /* x65296 stalin.sc:2364:77702 */ /* x65295 stalin.sc:2364:77724 */ /* x65293 stalin.sc:2364:77727 */ t81335 = p7737->a21535; /* x65294 stalin.sc:2364:77729 */ t81336 = 1; /* x270452 stalin.sc:2364:77725 */ t81334 = t81335-t81336; /* x65291 stalin.sc:2364:77703 */ t81331 = f7736(t81334); /* x65299 stalin.sc:2364:77733 */ /* x65298 stalin.sc:2364:77748 */ t81337 = a21536; /* x65297 stalin.sc:2364:77734 */ t81332 = f7927(t81337); /* x65290 stalin.sc:2364:77694 */ t81333.tag = NATIVE_PROCEDURE_TYPE19883; t81333.value.native_procedure_type19883 = t81331; return f8137(t81333, t81332); l15517: /* x65301 */ r7737.tag = FALSE_TYPE; return r7737; l15513: /* x65304 */ r7737.tag = FALSE_TYPE; return r7737;} /* LIST-TYPE-OF-LENGTH?[7736] */ struct p7736 *f7736(int a21535) {struct p7736 *e7736; e7736 = (struct p7736 *)GC_malloc_atomic(sizeof(struct p7736)); if (e7736==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e7736->a21535 = a21535; /* x65306 stalin.sc:2359:77588 */ return e7736;} /* LIST-TYPE?[7735] */ struct w16638 f7735(struct w49 a21534) {struct p7730 *t81340; struct w49 t81341; struct structure_type24753 *t81342; /* x65273 stalin.sc:2355:77507 */ /* x65272 stalin.sc:2355:77530 */ t81341 = a21534; /* x65271 stalin.sc:2355:77508 */ /* x65270 stalin.sc:2355:77523 */ /* x65269 stalin.sc:2355:77509 */ /* x65266 */ /* x65265 */ /* x65264 */ /* x65263 */ /* x65262 */ /* x65261 */ /* x65260 */ /* x65216 */ /* x65215 stalin.sc:2353:77460 */ /* x65213 stalin.sc:2353:77475 */ /* x65214 stalin.sc:2353:77477 */ /* x65212 stalin.sc:2353:77461 */ t81342 = (struct structure_type24753 *)NULL_TYPE; t81340 = f7730(t81342); return f7731(t81340, t81341);} /* [inside LIST-TYPE-OF? 7731] */ struct w16638 f7731(struct p7730 *p7731, struct w49 a21531) {struct w16638 r7731; struct w16638 a21532; /* v */ unsigned a21533; /* v */ struct p7730 *t81343; struct w16638 t81344; struct p7730 *t81345; unsigned t81346; struct w49 t81347; struct w49 t81348; struct w211257 t81349; struct w49 t81350; struct p7730 *t81351; struct w49 t81352; struct w211257 t81353; struct structure_type24753 *t81354; struct structure_type24753 *t81355; struct w49 t81356; struct structure_type24753 *t81357; struct w49 t81358; struct w49 t81359; struct w49 t81360; struct structure_type24753 *t81361; struct w49 t81362; struct p7730 *p7732; struct p7730 *p7733; /* x65258 stalin.sc:2348:77292 */ /* x65257 stalin.sc:2348:77296 */ /* x65255 stalin.sc:2348:77302 */ t81360 = a21531; /* x65256 stalin.sc:2348:77304 */ t81361 = p7731->a21530; /* x65254 stalin.sc:2348:77297 */ /* MOVE: branching squeezed to general */ if (t81361>=((struct structure_type24753 *)VALUE_OFFSET)) {t81362.tag = STRUCTURE_TYPE24753; t81362.value.structure_type24753 = t81361;} else t81362.tag = (unsigned)t81361; t81344 = f26351(t81360, t81362); /* x65253 */ t81343 = p7731; p7732 = t81343; a21532 = t81344; /* x65252 */ /* x65217 */ if ((a21532.tag)==FALSE_TYPE) goto l15519; /* x65218 */ return a21532; l15519: /* x65251 */ /* x65250 stalin.sc:2349:77315 */ /* x65249 stalin.sc:2349:77327 */ t81359 = a21531; /* x65248 stalin.sc:2349:77316 */ t81346 = f7677(t81359); /* x65247 */ t81345 = p7732; p7733 = t81345; a21533 = t81346; /* x65246 */ /* x65219 */ if (a21533==FALSE_TYPE) goto l15521; /* x65220 */ r7731.tag = a21533; return r7731; l15521: /* x65245 */ /* x65223 stalin.sc:2350:77342 */ /* x65222 stalin.sc:2350:77354 */ t81347 = a21531; /* x65221 stalin.sc:2350:77343 */ if (f7719(t81347)==FALSE_TYPE) goto l15523; /* x65243 */ /* x65229 stalin.sc:2351:77362 */ /* x65225 stalin.sc:2351:77371 */ /* x65228 stalin.sc:2351:77373 */ /* x65227 stalin.sc:2351:77388 */ t81350 = a21531; /* x65226 stalin.sc:2351:77374 */ t81348 = f7923(t81350); /* x65224 stalin.sc:2351:77363 */ t81349.tag = NATIVE_PROCEDURE_TYPE7404; if ((f8137(t81349, t81348).tag)==FALSE_TYPE) goto l15525; /* x65241 */ /* x65237 stalin.sc:2352:77406 */ /* x65232 stalin.sc:2352:77421 */ /* x65236 stalin.sc:2352:77423 */ /* x65234 stalin.sc:2352:77429 */ t81356 = a21531; /* x65235 stalin.sc:2352:77431 */ t81357 = p7733->a21530; /* x270456 stalin.sc:2352:77424 */ t81354 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t81354==NULL) {backtrace("stalin.sc", 2352, 77423); out_of_memory_error();} t81354->s0 = t81356; /* MOVE: branching squeezed to general */ if (t81357>=((struct structure_type24753 *)VALUE_OFFSET)) {t81354->s1.tag = STRUCTURE_TYPE24753; t81354->s1.value.structure_type24753 = t81357;} else t81354->s1.tag = (unsigned)t81357; /* x65231 stalin.sc:2352:77407 */ t81355 = t81354; t81351 = f7730(t81355); /* x65240 stalin.sc:2352:77436 */ /* x65239 stalin.sc:2352:77451 */ t81358 = a21531; /* x65238 stalin.sc:2352:77437 */ t81352 = f7927(t81358); /* x65230 stalin.sc:2352:77398 */ t81353.tag = NATIVE_PROCEDURE_TYPE19917; t81353.value.native_procedure_type19917 = t81351; return f8137(t81353, t81352); l15525: /* x65242 */ r7731.tag = FALSE_TYPE; return r7731; l15523: /* x65244 */ r7731.tag = FALSE_TYPE; return r7731;} /* LIST-TYPE-OF?[7730] */ struct p7730 *f7730(struct structure_type24753 *a21530) {struct p7730 *e7730; e7730 = (struct p7730 *)GC_malloc(sizeof(struct p7730)); if (e7730==NULL) {backtrace_internal("[inside LIST-TYPE-OF? 7728]"); out_of_memory_error();} e7730->a21530 = a21530; /* x65259 stalin.sc:2347:77277 */ return e7730;} /* [inside PAIR+-TYPE? 7721] */ struct w16638 f7721(struct p7720 *p7721, struct w49 a21522) {struct w16638 r7721; struct w49 a35349; /* PAIR */ struct w49 a35350; /* PAIR */ struct w49 a35697; /* PAIR */ struct w49 a37611; /* S */ struct p7721 *t81363; struct w49 t81364; struct w49 t81365; struct w49 t81366; struct w49 t81367; struct w49 t81368; struct p7721 *t81369; struct w49 t81370; struct w228245 t81371; struct w49 t81372; struct structure_type24753 *t81373; struct w49 t81374; struct w49 t81375; struct w49 t81376; struct w49 t81377; struct w49 t81378; struct p7720 *t81379; struct w49 t81380; struct w211257 t81381; struct w49 t81382; struct structure_type24753 *t81383; struct w49 t81384; struct w49 t81385; struct w49 t81386; struct w49 t81387; struct p7721 *t81388; struct structure_type24753 *t81389; struct w228245 t81390; struct w49 t81391; struct structure_type24753 *t81392; unsigned t81393; struct w49 t81394; char *t81395; struct p7721 *e7721; struct p7721 *p7722; e7721 = (struct p7721 *)alloca(sizeof(struct p7721)); if (e7721==NULL) {backtrace_internal("PAIR+-TYPE?[7720]"); out_of_memory_error();} e7721->p7720 = p7721; e7721->a21522 = a21522; /* x65208 */ /* x65207 stalin.sc:2337:76881 */ /* x65200 stalin.sc:2337:76887 */ /* x65199 stalin.sc:2337:76894 */ t81394 = p7721->a21519; /* x270457 stalin.sc:2337:76888 */ if (!((t81394.tag)==NULL_TYPE)) goto l15535; /* x65204 */ /* x65203 */ /* x65202 stalin.sc:2337:76899 */ /* x65201 stalin.sc:2337:76900 */ /* x295405 QobiScheme.sc:166:5314 */ /* x295404 QobiScheme.sc:166:5321 */ t81395 = "This shouldn\'t happen"; /* x295403 QobiScheme.sc:166:5315 */ stalin_panic(t81395); goto l15536; l15535: /* x65206 stalin.sc:2337:76881 */ /* x65205 stalin.sc:2337:76881 */ l15536: /* x65197 */ t81363 = e7721; p7722 = t81363; /* x65196 stalin.sc:2338:76912 */ /* x65144 stalin.sc:2338:76917 */ /* x65143 stalin.sc:2338:76929 */ t81364 = p7722->a21522; /* x65142 stalin.sc:2338:76918 */ if (f7719(t81364)==FALSE_TYPE) goto l15527; /* x65194 */ /* x65150 stalin.sc:2339:76939 */ /* x65146 stalin.sc:2339:76945 */ t81365 = p7722->p7720->a21521; /* x65149 stalin.sc:2339:76947 */ /* x65148 stalin.sc:2339:76986 */ t81367 = p7722->a21522; /* x65147 stalin.sc:2339:76948 */ a37611 = t81367; /* x283113 */ /* x283112 */ t81368 = a37611; /* x283111 */ if (!((t81368.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-ALLOCATING-EXPRESSIONS[6185] 32528]"); structure_ref_error();} t81366 = t81368.value.structure_type27769->s2; /* x65145 stalin.sc:2339:76940 */ if ((f26351(t81365, t81366).tag)==FALSE_TYPE) goto l15529; /* x65192 */ /* x65162 stalin.sc:2340:76997 */ /* x65161 stalin.sc:2340:77049 */ /* x65160 stalin.sc:2340:77056 */ t81374 = p7722->p7720->a21519; /* x65159 stalin.sc:2340:77050 */ a35697 = t81374; /* x274145 */ /* x274144 */ t81375 = a35697; /* x274143 */ if (!((t81375.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29846]"); structure_ref_error();} t81370 = t81375.value.structure_type24753->s0; /* x65158 stalin.sc:2340:77004 */ t81369 = p7722; /* x65151 stalin.sc:2340:76998 */ t81371.tag = NATIVE_PROCEDURE_TYPE22710; t81371.value.native_procedure_type22710 = t81369; t81372 = t81370; t81373 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t81371, t81372, t81373)==FALSE_TYPE) goto l15531; /* x65190 */ /* x65167 stalin.sc:2341:77073 */ /* x65166 stalin.sc:2341:77080 */ /* x65165 stalin.sc:2341:77086 */ t81377 = p7722->p7720->a21519; /* x65164 stalin.sc:2341:77081 */ a35350 = t81377; /* x272757 */ /* x272756 */ t81378 = a35350; /* x272755 */ if (!((t81378.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29499]"); structure_ref_error();} t81376 = t81378.value.structure_type24753->s1; /* x270458 stalin.sc:2341:77074 */ if (!((t81376.tag)==NULL_TYPE)) goto l15533; /* x65177 stalin.sc:2342:77096 */ /* x65176 stalin.sc:2342:77148 */ t81389 = p7722->p7720->a21520; /* x65175 stalin.sc:2342:77103 */ t81388 = p7722; /* x65168 stalin.sc:2342:77097 */ t81390.tag = NATIVE_PROCEDURE_TYPE22712; t81390.value.native_procedure_type22712 = t81388; /* MOVE: branching squeezed to general */ if (t81389>=((struct structure_type24753 *)VALUE_OFFSET)) {t81391.tag = STRUCTURE_TYPE24753; t81391.value.structure_type24753 = t81389;} else t81391.tag = (unsigned)t81389; t81392 = (struct structure_type24753 *)NULL_TYPE; t81393 = f1061(t81390, t81391, t81392); r7721.tag = t81393; return r7721; l15533: /* x65189 stalin.sc:2343:77156 */ /* x65185 stalin.sc:2343:77165 */ /* x65182 stalin.sc:2343:77178 */ /* x65181 stalin.sc:2343:77184 */ t81385 = p7722->p7720->a21519; /* x65180 stalin.sc:2343:77179 */ a35349 = t81385; /* x272753 */ /* x272752 */ t81386 = a35349; /* x272751 */ if (!((t81386.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29498]"); structure_ref_error();} t81382 = t81386.value.structure_type24753->s1; /* x65183 stalin.sc:2343:77189 */ t81383 = p7722->p7720->a21520; /* x65184 stalin.sc:2343:77192 */ t81384 = p7722->p7720->a21521; /* x65179 stalin.sc:2343:77166 */ t81379 = f7720(t81382, t81383, t81384); /* x65188 stalin.sc:2343:77195 */ /* x65187 stalin.sc:2343:77210 */ t81387 = p7722->a21522; /* x65186 stalin.sc:2343:77196 */ t81380 = f7927(t81387); /* x65178 stalin.sc:2343:77157 */ t81381.tag = NATIVE_PROCEDURE_TYPE21881; t81381.value.native_procedure_type21881 = t81379; return f8137(t81381, t81380); l15531: /* x65191 */ r7721.tag = FALSE_TYPE; return r7721; l15529: /* x65193 */ r7721.tag = FALSE_TYPE; return r7721; l15527: /* x65195 */ r7721.tag = FALSE_TYPE; return r7721;} /* PAIR+-TYPE?[7720] */ struct p7720 *f7720(struct w49 a21519, struct structure_type24753 *a21520, struct w49 a21521) {struct p7720 *e7720; e7720 = (struct p7720 *)GC_malloc(sizeof(struct p7720)); if (e7720==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e7720->a21519 = a21519; e7720->a21520 = a21520; e7720->a21521 = a21521; /* x65209 */ return e7720;} /* PAIR-TYPE?[7719] */ unsigned f7719(struct w49 a21518) {struct p7717 *t81396; struct w49 t81397; char *t81398; struct w49 t81399; /* x65139 stalin.sc:2333:76799 */ /* x65138 stalin.sc:2333:76830 */ t81397 = a21518; /* x65137 stalin.sc:2333:76800 */ /* x65136 stalin.sc:2333:76823 */ t81398 = q51; /* x65135 stalin.sc:2333:76801 */ t81399.tag = EXTERNAL_SYMBOL_TYPE; t81399.value.external_symbol_type = t81398; t81396 = f7717(t81399); return f7718(t81396, t81397);} /* [inside STRUCTURE-TYPE-NAMED? 7718] */ unsigned f7718(struct p7717 *p7718, struct w49 a21517) {struct w49 a37663; /* S */ struct w49 a37703; /* OBJ */ struct w49 t81400; struct w49 t81401; struct w49 t81402; struct w49 t81403; struct w49 t81404; struct w49 t81405; /* x65131 stalin.sc:2331:76712 */ /* x65131 stalin.sc:2331:76712 */ /* x65123 stalin.sc:2331:76717 */ /* x65122 stalin.sc:2331:76734 */ t81400 = a21517; /* x65121 stalin.sc:2331:76718 */ a37703 = t81400; /* x283481 */ /* x283480 */ t81401 = a37703; /* x283479 */ if (!((t81401.tag)==STRUCTURE_TYPE27769)) goto l15538; /* x65129 */ /* x65127 stalin.sc:2331:76742 */ /* x65126 stalin.sc:2331:76763 */ t81404 = a21517; /* x65125 stalin.sc:2331:76743 */ a37663 = t81404; /* x283321 */ /* x283320 */ t81405 = a37663; /* x283319 */ if (!((t81405.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-NAME[6169] 32580]"); structure_ref_error();} t81402 = t81405.value.structure_type27769->s0; /* x65128 stalin.sc:2331:76766 */ t81403 = p7718->a21516; /* x270459 stalin.sc:2331:76738 */ /* EQ: dispatching general to general */ if (!((t81402.tag)==(t81403.tag))) goto l15538; switch (t81402.tag) {case FIXNUM_TYPE: if (!((t81402.value.fixnum_type)==(t81403.value.fixnum_type))) goto l15538; break; case FLONUM_TYPE: if (!((t81402.value.flonum_type)==(t81403.value.flonum_type))) goto l15538; break; case INPUT_PORT_TYPE: if (!((t81402.value.input_port_type)==(t81403.value.input_port_type))) goto l15538; break; case OUTPUT_PORT_TYPE: if (!((t81402.value.output_port_type)==(t81403.value.output_port_type))) goto l15538; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t81402.value.native_procedure_type15963)==(t81403.value.native_procedure_type15963))) goto l15538; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t81402.value.native_procedure_type19067)==(t81403.value.native_procedure_type19067))) goto l15538; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t81402.value.native_procedure_type19068)==(t81403.value.native_procedure_type19068))) goto l15538; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t81402.value.native_procedure_type22459)==(t81403.value.native_procedure_type22459))) goto l15538; break; case STRUCTURE_TYPE24753: if (!((t81402.value.structure_type24753)==(t81403.value.structure_type24753))) goto l15538; break; case STRUCTURE_TYPE24757: if (!((t81402.value.structure_type24757)==(t81403.value.structure_type24757))) goto l15538; break; case STRUCTURE_TYPE27501: if (!((t81402.value.structure_type27501)==(t81403.value.structure_type27501))) goto l15538; break; case STRUCTURE_TYPE27510: if (!((t81402.value.structure_type27510)==(t81403.value.structure_type27510))) goto l15538; break; case STRUCTURE_TYPE27621: if (!((t81402.value.structure_type27621)==(t81403.value.structure_type27621))) goto l15538; break; case STRUCTURE_TYPE27650: if (!((t81402.value.structure_type27650)==(t81403.value.structure_type27650))) goto l15538; break; case STRUCTURE_TYPE27669: if (!((t81402.value.structure_type27669)==(t81403.value.structure_type27669))) goto l15538; break; case STRUCTURE_TYPE27673: if (!((t81402.value.structure_type27673)==(t81403.value.structure_type27673))) goto l15538; break; case STRUCTURE_TYPE27692: if (!((t81402.value.structure_type27692)==(t81403.value.structure_type27692))) goto l15538; break; case STRUCTURE_TYPE27694: if (!((t81402.value.structure_type27694)==(t81403.value.structure_type27694))) goto l15538; break; case STRUCTURE_TYPE27698: if (!((t81402.value.structure_type27698)==(t81403.value.structure_type27698))) goto l15538; break; case STRUCTURE_TYPE27745: if (!((t81402.value.structure_type27745)==(t81403.value.structure_type27745))) goto l15538; break; case STRUCTURE_TYPE27747: if (!((t81402.value.structure_type27747)==(t81403.value.structure_type27747))) goto l15538; break; case STRUCTURE_TYPE27750: if (!((t81402.value.structure_type27750)==(t81403.value.structure_type27750))) goto l15538; break; case STRUCTURE_TYPE27753: if (!((t81402.value.structure_type27753)==(t81403.value.structure_type27753))) goto l15538; break; case STRUCTURE_TYPE27756: if (!((t81402.value.structure_type27756)==(t81403.value.structure_type27756))) goto l15538; break; case STRUCTURE_TYPE27761: if (!((t81402.value.structure_type27761)==(t81403.value.structure_type27761))) goto l15538; break; case STRUCTURE_TYPE27769: if (!((t81402.value.structure_type27769)==(t81403.value.structure_type27769))) goto l15538; break; case STRUCTURE_TYPE27776: if (!((t81402.value.structure_type27776)==(t81403.value.structure_type27776))) goto l15538; break; case STRUCTURE_TYPE27779: if (!((t81402.value.structure_type27779)==(t81403.value.structure_type27779))) goto l15538; break; case STRUCTURE_TYPE27858: if (!((t81402.value.structure_type27858)==(t81403.value.structure_type27858))) goto l15538; break; case STRING_TYPE: if (!((t81402.value.string_type)==(t81403.value.string_type))) goto l15538; break; case HEADED_VECTOR_TYPE27896: if (!((t81402.value.headed_vector_type27896)==(t81403.value.headed_vector_type27896))) goto l15538; break; case EXTERNAL_SYMBOL_TYPE: if (!((t81402.value.external_symbol_type)==(t81403.value.external_symbol_type))) goto l15538; break; case STRUCTURE_TYPE27908: if (!((t81402.value.structure_type27908)==(t81403.value.structure_type27908))) goto l15538; break; default:;} return TRUE_TYPE; l15538: return FALSE_TYPE;} /* STRUCTURE-TYPE-NAMED?[7717] */ struct p7717 *f7717(struct w49 a21516) {struct p7717 *e7717; e7717 = (struct p7717 *)GC_malloc(sizeof(struct p7717)); if (e7717==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e7717->a21516 = a21516; /* x65132 stalin.sc:2331:76700 */ return e7717;} /* PROCEDURE-TYPE?[7712] */ unsigned f7712(struct w49 a21511) {struct w49 a37866; /* OBJ */ struct w49 a37948; /* OBJ */ struct w49 a38067; /* OBJ */ struct w49 a38205; /* OBJ */ struct w49 t81406; struct w49 t81407; struct w49 t81408; struct w49 t81409; struct w49 t81410; struct w49 t81411; struct w49 t81412; struct w49 t81413; /* x65105 stalin.sc:2321:76395 */ /* x65105 stalin.sc:2321:76395 */ /* x65104 stalin.sc:2321:76399 */ /* x65103 stalin.sc:2321:76426 */ t81406 = a21511; /* x65102 stalin.sc:2321:76400 */ a38205 = t81406; /* x285489 */ /* x285488 */ t81407 = a38205; /* x285487 */ if ((t81407.tag)==STRUCTURE_TYPE27753) goto l15541; /* x65099 */ /* x65098 stalin.sc:2322:76434 */ /* x65097 stalin.sc:2322:76458 */ t81408 = a21511; /* x65096 stalin.sc:2322:76435 */ a38067 = t81408; /* x284937 */ /* x284936 */ t81409 = a38067; /* x284935 */ if ((t81409.tag)==STRUCTURE_TYPE27756) goto l15541; /* x65093 */ /* x65092 stalin.sc:2323:76466 */ /* x65091 stalin.sc:2323:76491 */ t81410 = a21511; /* x65090 stalin.sc:2323:76467 */ a37948 = t81410; /* x284461 */ /* x284460 */ t81411 = a37948; /* x284459 */ if ((t81411.tag)==STRUCTURE_TYPE27750) goto l15541; /* x65087 */ /* x65086 stalin.sc:2324:76519 */ t81412 = a21511; /* x65085 stalin.sc:2324:76500 */ a37866 = t81412; /* x284133 */ /* x284132 */ t81413 = a37866; /* x284131 */ if (!((t81413.tag)==STRUCTURE_TYPE27858)) goto l15542; l15541: return TRUE_TYPE; l15542: return FALSE_TYPE;} /* [inside CONTINUATION-TYPE-TO? 7711] */ unsigned f7711(struct p7710 *p7711, struct w49 a21510) {struct w49 a37813; /* S */ struct w49 a37846; /* OBJ */ struct w49 t81414; struct w49 t81415; struct w49 t81416; struct w49 t81417; struct w49 t81418; struct w49 t81419; /* x65075 stalin.sc:2317:76275 */ /* x65075 stalin.sc:2317:76275 */ /* x65067 stalin.sc:2317:76280 */ /* x65066 stalin.sc:2317:76300 */ t81414 = a21510; /* x65065 stalin.sc:2317:76281 */ a37846 = t81414; /* x284053 */ /* x284052 */ t81415 = a37846; /* x284051 */ if (!((t81415.tag)==STRUCTURE_TYPE27858)) goto l15548; /* x65073 */ /* x65071 stalin.sc:2318:76315 */ /* x65070 stalin.sc:2318:76356 */ t81418 = a21510; /* x65069 stalin.sc:2318:76316 */ a37813 = t81418; /* x283921 */ /* x283920 */ t81419 = a37813; /* x283919 */ if (!((t81419.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32730]"); structure_ref_error();} t81416 = t81419.value.structure_type27858->s0; /* x65072 stalin.sc:2318:76359 */ t81417 = p7711->a21509; /* x270460 stalin.sc:2318:76311 */ /* EQ: dispatching general to general */ if (!((t81416.tag)==(t81417.tag))) goto l15548; switch (t81416.tag) {case FIXNUM_TYPE: if (!((t81416.value.fixnum_type)==(t81417.value.fixnum_type))) goto l15548; break; case FLONUM_TYPE: if (!((t81416.value.flonum_type)==(t81417.value.flonum_type))) goto l15548; break; case INPUT_PORT_TYPE: if (!((t81416.value.input_port_type)==(t81417.value.input_port_type))) goto l15548; break; case OUTPUT_PORT_TYPE: if (!((t81416.value.output_port_type)==(t81417.value.output_port_type))) goto l15548; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t81416.value.native_procedure_type15963)==(t81417.value.native_procedure_type15963))) goto l15548; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t81416.value.native_procedure_type19067)==(t81417.value.native_procedure_type19067))) goto l15548; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t81416.value.native_procedure_type19068)==(t81417.value.native_procedure_type19068))) goto l15548; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t81416.value.native_procedure_type22459)==(t81417.value.native_procedure_type22459))) goto l15548; break; case STRUCTURE_TYPE24753: if (!((t81416.value.structure_type24753)==(t81417.value.structure_type24753))) goto l15548; break; case STRUCTURE_TYPE24757: if (!((t81416.value.structure_type24757)==(t81417.value.structure_type24757))) goto l15548; break; case STRUCTURE_TYPE27501: if (!((t81416.value.structure_type27501)==(t81417.value.structure_type27501))) goto l15548; break; case STRUCTURE_TYPE27510: if (!((t81416.value.structure_type27510)==(t81417.value.structure_type27510))) goto l15548; break; case STRUCTURE_TYPE27621: if (!((t81416.value.structure_type27621)==(t81417.value.structure_type27621))) goto l15548; break; case STRUCTURE_TYPE27650: if (!((t81416.value.structure_type27650)==(t81417.value.structure_type27650))) goto l15548; break; case STRUCTURE_TYPE27669: if (!((t81416.value.structure_type27669)==(t81417.value.structure_type27669))) goto l15548; break; case STRUCTURE_TYPE27673: if (!((t81416.value.structure_type27673)==(t81417.value.structure_type27673))) goto l15548; break; case STRUCTURE_TYPE27692: if (!((t81416.value.structure_type27692)==(t81417.value.structure_type27692))) goto l15548; break; case STRUCTURE_TYPE27694: if (!((t81416.value.structure_type27694)==(t81417.value.structure_type27694))) goto l15548; break; case STRUCTURE_TYPE27698: if (!((t81416.value.structure_type27698)==(t81417.value.structure_type27698))) goto l15548; break; case STRUCTURE_TYPE27745: if (!((t81416.value.structure_type27745)==(t81417.value.structure_type27745))) goto l15548; break; case STRUCTURE_TYPE27747: if (!((t81416.value.structure_type27747)==(t81417.value.structure_type27747))) goto l15548; break; case STRUCTURE_TYPE27750: if (!((t81416.value.structure_type27750)==(t81417.value.structure_type27750))) goto l15548; break; case STRUCTURE_TYPE27753: if (!((t81416.value.structure_type27753)==(t81417.value.structure_type27753))) goto l15548; break; case STRUCTURE_TYPE27756: if (!((t81416.value.structure_type27756)==(t81417.value.structure_type27756))) goto l15548; break; case STRUCTURE_TYPE27761: if (!((t81416.value.structure_type27761)==(t81417.value.structure_type27761))) goto l15548; break; case STRUCTURE_TYPE27769: if (!((t81416.value.structure_type27769)==(t81417.value.structure_type27769))) goto l15548; break; case STRUCTURE_TYPE27776: if (!((t81416.value.structure_type27776)==(t81417.value.structure_type27776))) goto l15548; break; case STRUCTURE_TYPE27779: if (!((t81416.value.structure_type27779)==(t81417.value.structure_type27779))) goto l15548; break; case STRUCTURE_TYPE27858: if (!((t81416.value.structure_type27858)==(t81417.value.structure_type27858))) goto l15548; break; case STRING_TYPE: if (!((t81416.value.string_type)==(t81417.value.string_type))) goto l15548; break; case HEADED_VECTOR_TYPE27896: if (!((t81416.value.headed_vector_type27896)==(t81417.value.headed_vector_type27896))) goto l15548; break; case EXTERNAL_SYMBOL_TYPE: if (!((t81416.value.external_symbol_type)==(t81417.value.external_symbol_type))) goto l15548; break; case STRUCTURE_TYPE27908: if (!((t81416.value.structure_type27908)==(t81417.value.structure_type27908))) goto l15548; break; default:;} return TRUE_TYPE; l15548: return FALSE_TYPE;} /* CONTINUATION-TYPE-TO?[7710] */ struct p7710 *f7710(struct w49 a21509) {struct p7710 *e7710; if ((fp1045+sizeof(struct p7710))>(&((region1045->data)[region_size1045]))) {struct region1045 *region; unsigned region_size = REGION_SIZE1045; if (sizeof(struct p7710)>region_size) region_size = sizeof(struct p7710); region = (struct region1045 *)GC_malloc_uncollectable(sizeof(struct region1045)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} region->region = region1045; region->region_size = region_size1045; region_size1045 = region_size; region1045 = region; fp1045 = &((region->data)[0]); ALIGN(fp1045);} e7710 = (struct p7710 *)fp1045; fp1045 += sizeof(struct p7710)+((4-(sizeof(struct p7710)%4))&3); e7710->a21509 = a21509; /* x65076 stalin.sc:2316:76261 */ return e7710;} /* [inside PRIMITIVE-PROCEDURE-TYPE-NAMED? 7709] */ unsigned f7709(struct p7708 *p7709, struct w49 a21508) {struct w49 a38191; /* S */ struct w49 a38220; /* OBJ */ struct w49 t81420; struct w49 t81421; struct w49 t81422; struct w49 t81423; struct w49 t81424; struct w49 t81425; /* x65061 stalin.sc:2312:76135 */ /* x65061 stalin.sc:2312:76135 */ /* x65053 stalin.sc:2312:76140 */ /* x65052 stalin.sc:2312:76167 */ t81420 = a21508; /* x65051 stalin.sc:2312:76141 */ a38220 = t81420; /* x285549 */ /* x285548 */ t81421 = a38220; /* x285547 */ if (!((t81421.tag)==STRUCTURE_TYPE27753)) goto l15552; /* x65059 */ /* x65057 stalin.sc:2313:76182 */ /* x65056 stalin.sc:2313:76213 */ t81424 = a21508; /* x65055 stalin.sc:2313:76183 */ a38191 = t81424; /* x285433 */ /* x285432 */ t81425 = a38191; /* x285431 */ if (!((t81425.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-NAME[5895] 33108]"); structure_ref_error();} t81422 = t81425.value.structure_type27753->s0; /* x65058 stalin.sc:2313:76216 */ t81423 = p7709->a21507; /* x270461 stalin.sc:2313:76178 */ /* EQ: dispatching general to general */ if (!((t81422.tag)==(t81423.tag))) goto l15552; switch (t81422.tag) {case FIXNUM_TYPE: if (!((t81422.value.fixnum_type)==(t81423.value.fixnum_type))) goto l15552; break; case FLONUM_TYPE: if (!((t81422.value.flonum_type)==(t81423.value.flonum_type))) goto l15552; break; case INPUT_PORT_TYPE: if (!((t81422.value.input_port_type)==(t81423.value.input_port_type))) goto l15552; break; case OUTPUT_PORT_TYPE: if (!((t81422.value.output_port_type)==(t81423.value.output_port_type))) goto l15552; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t81422.value.native_procedure_type15963)==(t81423.value.native_procedure_type15963))) goto l15552; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t81422.value.native_procedure_type19067)==(t81423.value.native_procedure_type19067))) goto l15552; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t81422.value.native_procedure_type19068)==(t81423.value.native_procedure_type19068))) goto l15552; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t81422.value.native_procedure_type22459)==(t81423.value.native_procedure_type22459))) goto l15552; break; case STRUCTURE_TYPE24753: if (!((t81422.value.structure_type24753)==(t81423.value.structure_type24753))) goto l15552; break; case STRUCTURE_TYPE24757: if (!((t81422.value.structure_type24757)==(t81423.value.structure_type24757))) goto l15552; break; case STRUCTURE_TYPE27501: if (!((t81422.value.structure_type27501)==(t81423.value.structure_type27501))) goto l15552; break; case STRUCTURE_TYPE27510: if (!((t81422.value.structure_type27510)==(t81423.value.structure_type27510))) goto l15552; break; case STRUCTURE_TYPE27621: if (!((t81422.value.structure_type27621)==(t81423.value.structure_type27621))) goto l15552; break; case STRUCTURE_TYPE27650: if (!((t81422.value.structure_type27650)==(t81423.value.structure_type27650))) goto l15552; break; case STRUCTURE_TYPE27669: if (!((t81422.value.structure_type27669)==(t81423.value.structure_type27669))) goto l15552; break; case STRUCTURE_TYPE27673: if (!((t81422.value.structure_type27673)==(t81423.value.structure_type27673))) goto l15552; break; case STRUCTURE_TYPE27692: if (!((t81422.value.structure_type27692)==(t81423.value.structure_type27692))) goto l15552; break; case STRUCTURE_TYPE27694: if (!((t81422.value.structure_type27694)==(t81423.value.structure_type27694))) goto l15552; break; case STRUCTURE_TYPE27698: if (!((t81422.value.structure_type27698)==(t81423.value.structure_type27698))) goto l15552; break; case STRUCTURE_TYPE27745: if (!((t81422.value.structure_type27745)==(t81423.value.structure_type27745))) goto l15552; break; case STRUCTURE_TYPE27747: if (!((t81422.value.structure_type27747)==(t81423.value.structure_type27747))) goto l15552; break; case STRUCTURE_TYPE27750: if (!((t81422.value.structure_type27750)==(t81423.value.structure_type27750))) goto l15552; break; case STRUCTURE_TYPE27753: if (!((t81422.value.structure_type27753)==(t81423.value.structure_type27753))) goto l15552; break; case STRUCTURE_TYPE27756: if (!((t81422.value.structure_type27756)==(t81423.value.structure_type27756))) goto l15552; break; case STRUCTURE_TYPE27761: if (!((t81422.value.structure_type27761)==(t81423.value.structure_type27761))) goto l15552; break; case STRUCTURE_TYPE27769: if (!((t81422.value.structure_type27769)==(t81423.value.structure_type27769))) goto l15552; break; case STRUCTURE_TYPE27776: if (!((t81422.value.structure_type27776)==(t81423.value.structure_type27776))) goto l15552; break; case STRUCTURE_TYPE27779: if (!((t81422.value.structure_type27779)==(t81423.value.structure_type27779))) goto l15552; break; case STRUCTURE_TYPE27858: if (!((t81422.value.structure_type27858)==(t81423.value.structure_type27858))) goto l15552; break; case STRING_TYPE: if (!((t81422.value.string_type)==(t81423.value.string_type))) goto l15552; break; case HEADED_VECTOR_TYPE27896: if (!((t81422.value.headed_vector_type27896)==(t81423.value.headed_vector_type27896))) goto l15552; break; case EXTERNAL_SYMBOL_TYPE: if (!((t81422.value.external_symbol_type)==(t81423.value.external_symbol_type))) goto l15552; break; case STRUCTURE_TYPE27908: if (!((t81422.value.structure_type27908)==(t81423.value.structure_type27908))) goto l15552; break; default:;} return TRUE_TYPE; l15552: return FALSE_TYPE;} /* PRIMITIVE-PROCEDURE-TYPE-NAMED?[7708] */ struct p7708 *f7708(struct w49 a21507) {struct p7708 *e7708; e7708 = (struct p7708 *)GC_malloc(sizeof(struct p7708)); if (e7708==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e7708->a21507 = a21507; /* x65062 stalin.sc:2311:76121 */ return e7708;} /* SYMBOL-TYPE?[7706] */ unsigned f7706(struct w49 a21505) {struct w49 a38275; /* OBJ */ struct w49 a38316; /* OBJ */ struct w49 t81426; struct w49 t81427; struct w49 t81428; struct w49 t81429; /* x65048 stalin.sc:2307:75992 */ /* x65048 stalin.sc:2307:75992 */ /* x65047 stalin.sc:2307:75996 */ /* x65046 stalin.sc:2307:76019 */ t81426 = a21505; /* x65045 stalin.sc:2307:75997 */ a38316 = t81426; /* x285933 */ /* x285932 */ t81427 = a38316; /* x285931 */ if ((t81427.tag)==STRUCTURE_TYPE27776) goto l15555; /* x65042 */ /* x65041 stalin.sc:2307:76045 */ t81428 = a21505; /* x65040 stalin.sc:2307:76023 */ a38275 = t81428; /* x285769 */ /* x285768 */ t81429 = a38275; /* x285767 */ if (!((t81429.tag)==STRUCTURE_TYPE27779)) goto l15556; l15555: return TRUE_TYPE; l15556: return FALSE_TYPE;} /* [inside INTERNAL-SYMBOL-TYPE-NAMED? 7705] */ unsigned f7705(struct p7704 *p7705, struct w49 a21504) {struct w49 a38305; /* S */ struct w49 a38319; /* OBJ */ struct w49 t81430; struct w49 t81431; struct w49 t81432; struct w49 t81433; struct w49 t81434; struct w49 t81435; /* x65034 stalin.sc:2304:75890 */ /* x65034 stalin.sc:2304:75890 */ /* x65026 stalin.sc:2304:75895 */ /* x65025 stalin.sc:2304:75918 */ t81430 = a21504; /* x65024 stalin.sc:2304:75896 */ a38319 = t81430; /* x285945 */ /* x285944 */ t81431 = a38319; /* x285943 */ if (!((t81431.tag)==STRUCTURE_TYPE27776)) goto l15560; /* x65032 */ /* x65030 stalin.sc:2304:75926 */ /* x65029 stalin.sc:2304:75953 */ t81434 = a21504; /* x65028 stalin.sc:2304:75927 */ a38305 = t81434; /* x285889 */ /* x285888 */ t81435 = a38305; /* x285887 */ if (!((t81435.tag)==STRUCTURE_TYPE27776)) {backtrace_internal("[clone INTERNAL-SYMBOL-TYPE-NAME[5803] 33222]"); structure_ref_error();} t81432 = t81435.value.structure_type27776->s0; /* x65031 stalin.sc:2304:75956 */ t81433 = p7705->a21503; /* x270462 stalin.sc:2304:75922 */ /* EQ: dispatching general to general */ if (!((t81432.tag)==(t81433.tag))) goto l15560; switch (t81432.tag) {case FIXNUM_TYPE: if (!((t81432.value.fixnum_type)==(t81433.value.fixnum_type))) goto l15560; break; case FLONUM_TYPE: if (!((t81432.value.flonum_type)==(t81433.value.flonum_type))) goto l15560; break; case INPUT_PORT_TYPE: if (!((t81432.value.input_port_type)==(t81433.value.input_port_type))) goto l15560; break; case OUTPUT_PORT_TYPE: if (!((t81432.value.output_port_type)==(t81433.value.output_port_type))) goto l15560; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t81432.value.native_procedure_type15963)==(t81433.value.native_procedure_type15963))) goto l15560; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t81432.value.native_procedure_type19067)==(t81433.value.native_procedure_type19067))) goto l15560; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t81432.value.native_procedure_type19068)==(t81433.value.native_procedure_type19068))) goto l15560; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t81432.value.native_procedure_type22459)==(t81433.value.native_procedure_type22459))) goto l15560; break; case STRUCTURE_TYPE24753: if (!((t81432.value.structure_type24753)==(t81433.value.structure_type24753))) goto l15560; break; case STRUCTURE_TYPE24757: if (!((t81432.value.structure_type24757)==(t81433.value.structure_type24757))) goto l15560; break; case STRUCTURE_TYPE27501: if (!((t81432.value.structure_type27501)==(t81433.value.structure_type27501))) goto l15560; break; case STRUCTURE_TYPE27510: if (!((t81432.value.structure_type27510)==(t81433.value.structure_type27510))) goto l15560; break; case STRUCTURE_TYPE27621: if (!((t81432.value.structure_type27621)==(t81433.value.structure_type27621))) goto l15560; break; case STRUCTURE_TYPE27650: if (!((t81432.value.structure_type27650)==(t81433.value.structure_type27650))) goto l15560; break; case STRUCTURE_TYPE27669: if (!((t81432.value.structure_type27669)==(t81433.value.structure_type27669))) goto l15560; break; case STRUCTURE_TYPE27673: if (!((t81432.value.structure_type27673)==(t81433.value.structure_type27673))) goto l15560; break; case STRUCTURE_TYPE27692: if (!((t81432.value.structure_type27692)==(t81433.value.structure_type27692))) goto l15560; break; case STRUCTURE_TYPE27694: if (!((t81432.value.structure_type27694)==(t81433.value.structure_type27694))) goto l15560; break; case STRUCTURE_TYPE27698: if (!((t81432.value.structure_type27698)==(t81433.value.structure_type27698))) goto l15560; break; case STRUCTURE_TYPE27745: if (!((t81432.value.structure_type27745)==(t81433.value.structure_type27745))) goto l15560; break; case STRUCTURE_TYPE27747: if (!((t81432.value.structure_type27747)==(t81433.value.structure_type27747))) goto l15560; break; case STRUCTURE_TYPE27750: if (!((t81432.value.structure_type27750)==(t81433.value.structure_type27750))) goto l15560; break; case STRUCTURE_TYPE27753: if (!((t81432.value.structure_type27753)==(t81433.value.structure_type27753))) goto l15560; break; case STRUCTURE_TYPE27756: if (!((t81432.value.structure_type27756)==(t81433.value.structure_type27756))) goto l15560; break; case STRUCTURE_TYPE27761: if (!((t81432.value.structure_type27761)==(t81433.value.structure_type27761))) goto l15560; break; case STRUCTURE_TYPE27769: if (!((t81432.value.structure_type27769)==(t81433.value.structure_type27769))) goto l15560; break; case STRUCTURE_TYPE27776: if (!((t81432.value.structure_type27776)==(t81433.value.structure_type27776))) goto l15560; break; case STRUCTURE_TYPE27779: if (!((t81432.value.structure_type27779)==(t81433.value.structure_type27779))) goto l15560; break; case STRUCTURE_TYPE27858: if (!((t81432.value.structure_type27858)==(t81433.value.structure_type27858))) goto l15560; break; case STRING_TYPE: if (!((t81432.value.string_type)==(t81433.value.string_type))) goto l15560; break; case HEADED_VECTOR_TYPE27896: if (!((t81432.value.headed_vector_type27896)==(t81433.value.headed_vector_type27896))) goto l15560; break; case EXTERNAL_SYMBOL_TYPE: if (!((t81432.value.external_symbol_type)==(t81433.value.external_symbol_type))) goto l15560; break; case STRUCTURE_TYPE27908: if (!((t81432.value.structure_type27908)==(t81433.value.structure_type27908))) goto l15560; break; default:;} return TRUE_TYPE; l15560: return FALSE_TYPE;} /* INTERNAL-SYMBOL-TYPE-NAMED?[7704] */ struct p7704 *f7704(struct w49 a21503) {struct p7704 *e7704; e7704 = (struct p7704 *)GC_malloc(sizeof(struct p7704)); if (e7704==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e7704->a21503 = a21503; /* x65035 stalin.sc:2303:75876 */ return e7704;} /* POINTER-TYPE?[7703] */ unsigned f7703(struct w49 a21502) {struct w49 t81436; char *t81437; /* x65021 stalin.sc:2299:75791 */ /* x65019 stalin.sc:2299:75796 */ t81436 = a21502; /* x65020 stalin.sc:2299:75798 */ t81437 = q63; /* x270463 stalin.sc:2299:75792 */ if (((t81436.tag)==EXTERNAL_SYMBOL_TYPE)&&((t81436.value.external_symbol_type)==t81437)) return TRUE_TYPE; else return FALSE_TYPE;} /* EOF-OBJECT-TYPE?[7702] */ unsigned f7702(struct w49 a21501) {struct w49 t81438; char *t81439; /* x65015 stalin.sc:2297:75743 */ /* x65013 stalin.sc:2297:75748 */ t81438 = a21501; /* x65014 stalin.sc:2297:75750 */ t81439 = q62; /* x270464 stalin.sc:2297:75744 */ if (((t81438.tag)==EXTERNAL_SYMBOL_TYPE)&&((t81438.value.external_symbol_type)==t81439)) return TRUE_TYPE; else return FALSE_TYPE;} /* OUTPUT-PORT-TYPE?[7701] */ unsigned f7701(struct w49 a21500) {struct w49 t81440; char *t81441; /* x65009 stalin.sc:2295:75691 */ /* x65007 stalin.sc:2295:75696 */ t81440 = a21500; /* x65008 stalin.sc:2295:75698 */ t81441 = q61; /* x270465 stalin.sc:2295:75692 */ if (((t81440.tag)==EXTERNAL_SYMBOL_TYPE)&&((t81440.value.external_symbol_type)==t81441)) return TRUE_TYPE; else return FALSE_TYPE;} /* INPUT-PORT-TYPE?[7700] */ unsigned f7700(struct w49 a21499) {struct w49 t81442; char *t81443; /* x65003 stalin.sc:2293:75639 */ /* x65001 stalin.sc:2293:75644 */ t81442 = a21499; /* x65002 stalin.sc:2293:75646 */ t81443 = q60; /* x270466 stalin.sc:2293:75640 */ if (((t81442.tag)==EXTERNAL_SYMBOL_TYPE)&&((t81442.value.external_symbol_type)==t81443)) return TRUE_TYPE; else return FALSE_TYPE;} /* NUMBER-TYPE?[7688] */ unsigned f7688(struct w49 a21491) {struct w49 t81444; struct w49 t81445; struct w49 t81446; /* x64955 stalin.sc:2283:75356 */ /* x64955 stalin.sc:2283:75356 */ /* x64954 stalin.sc:2283:75360 */ /* x64953 stalin.sc:2283:75374 */ t81444 = a21491; /* x64952 stalin.sc:2283:75361 */ if (!(f7683(t81444)==FALSE_TYPE)) goto l15563; /* x64949 */ /* x64948 stalin.sc:2283:75377 */ /* x64947 stalin.sc:2283:75391 */ t81445 = a21491; /* x64946 stalin.sc:2283:75378 */ if (!(f7684(t81445)==FALSE_TYPE)) goto l15563; /* x64943 */ /* x64942 stalin.sc:2283:75413 */ t81446 = a21491; /* x64941 stalin.sc:2283:75395 */ if (f7687(t81446)==FALSE_TYPE) goto l15564; l15563: return TRUE_TYPE; l15564: return FALSE_TYPE;} /* RECTANGULAR-TYPE?[7687] */ unsigned f7687(struct w49 a21490) {struct w49 t81447; char *t81448; /* x64934 stalin.sc:2280:75307 */ /* x64932 stalin.sc:2280:75312 */ t81447 = a21490; /* x64933 stalin.sc:2280:75314 */ t81448 = q59; /* x270467 stalin.sc:2280:75308 */ if (((t81447.tag)==EXTERNAL_SYMBOL_TYPE)&&((t81447.value.external_symbol_type)==t81448)) return TRUE_TYPE; else return FALSE_TYPE;} /* NONRECTANGULAR-NUMBER-TYPE?[7685] */ unsigned f7685(struct w49 a21488) {struct w49 t81449; struct w49 t81450; /* x64928 stalin.sc:2278:75236 */ /* x64928 stalin.sc:2278:75236 */ /* x64927 stalin.sc:2278:75240 */ /* x64926 stalin.sc:2278:75254 */ t81449 = a21488; /* x64925 stalin.sc:2278:75241 */ if (!(f7683(t81449)==FALSE_TYPE)) goto l15568; /* x64922 */ /* x64921 stalin.sc:2278:75271 */ t81450 = a21488; /* x64920 stalin.sc:2278:75258 */ if (f7684(t81450)==FALSE_TYPE) goto l15569; l15568: return TRUE_TYPE; l15569: return FALSE_TYPE;} /* FLONUM-TYPE?[7684] */ unsigned f7684(struct w49 a21487) {struct w49 t81451; char *t81452; /* x64915 stalin.sc:2276:75178 */ /* x64913 stalin.sc:2276:75183 */ t81451 = a21487; /* x64914 stalin.sc:2276:75185 */ t81452 = q58; /* x270468 stalin.sc:2276:75179 */ if (((t81451.tag)==EXTERNAL_SYMBOL_TYPE)&&((t81451.value.external_symbol_type)==t81452)) return TRUE_TYPE; else return FALSE_TYPE;} /* FIXNUM-TYPE?[7683] */ unsigned f7683(struct w49 a21486) {struct w49 t81453; char *t81454; /* x64909 stalin.sc:2274:75135 */ /* x64907 stalin.sc:2274:75140 */ t81453 = a21486; /* x64908 stalin.sc:2274:75142 */ t81454 = q57; /* x270469 stalin.sc:2274:75136 */ if (((t81453.tag)==EXTERNAL_SYMBOL_TYPE)&&((t81453.value.external_symbol_type)==t81454)) return TRUE_TYPE; else return FALSE_TYPE;} /* CHAR-TYPE?[7682] */ unsigned f7682(struct w49 a21485) {struct w49 t81455; char *t81456; /* x64903 stalin.sc:2272:75094 */ /* x64901 stalin.sc:2272:75099 */ t81455 = a21485; /* x64902 stalin.sc:2272:75101 */ t81456 = q56; /* x270470 stalin.sc:2272:75095 */ if (((t81455.tag)==EXTERNAL_SYMBOL_TYPE)&&((t81455.value.external_symbol_type)==t81456)) return TRUE_TYPE; else return FALSE_TYPE;} /* BOOLEAN-TYPE?[7680] */ unsigned f7680(struct w49 a21483) {struct w49 t81457; struct w49 t81458; /* x64897 stalin.sc:2270:75033 */ /* x64897 stalin.sc:2270:75033 */ /* x64896 stalin.sc:2270:75037 */ /* x64895 stalin.sc:2270:75049 */ t81457 = a21483; /* x64894 stalin.sc:2270:75038 */ if (!(f7678(t81457)==FALSE_TYPE)) goto l15572; /* x64891 */ /* x64890 stalin.sc:2270:75065 */ t81458 = a21483; /* x64889 stalin.sc:2270:75053 */ if (f7679(t81458)==FALSE_TYPE) goto l15573; l15572: return TRUE_TYPE; l15573: return FALSE_TYPE;} /* FALSE-TYPE?[7679] */ unsigned f7679(struct w49 a21482) {struct w49 t81459; char *t81460; /* x64884 stalin.sc:2268:74990 */ /* x64882 stalin.sc:2268:74995 */ t81459 = a21482; /* x64883 stalin.sc:2268:74997 */ t81460 = q55; /* x270471 stalin.sc:2268:74991 */ if (((t81459.tag)==EXTERNAL_SYMBOL_TYPE)&&((t81459.value.external_symbol_type)==t81460)) return TRUE_TYPE; else return FALSE_TYPE;} /* TRUE-TYPE?[7678] */ unsigned f7678(struct w49 a21481) {struct w49 t81461; char *t81462; /* x64878 stalin.sc:2266:74950 */ /* x64876 stalin.sc:2266:74955 */ t81461 = a21481; /* x64877 stalin.sc:2266:74957 */ t81462 = q54; /* x270472 stalin.sc:2266:74951 */ if (((t81461.tag)==EXTERNAL_SYMBOL_TYPE)&&((t81461.value.external_symbol_type)==t81462)) return TRUE_TYPE; else return FALSE_TYPE;} /* NULL-TYPE?[7677] */ unsigned f7677(struct w49 a21480) {struct w49 t81463; char *t81464; /* x64872 stalin.sc:2264:74911 */ /* x64870 stalin.sc:2264:74916 */ t81463 = a21480; /* x64871 stalin.sc:2264:74918 */ t81464 = q53; /* x270473 stalin.sc:2264:74912 */ if (((t81463.tag)==EXTERNAL_SYMBOL_TYPE)&&((t81463.value.external_symbol_type)==t81464)) return TRUE_TYPE; else return FALSE_TYPE;} /* SET-TYPE-EQ?-ACCESSED?![7653] */ void f7653(struct w49 a21478) {struct w49 a21153; /* U */ struct w49 a21173; /* U */ struct w49 a21193; /* U */ struct w49 a21221; /* U */ struct w49 a21253; /* U */ struct w49 a21269; /* U */ struct w49 a21297; /* U */ struct w49 a21341; /* U */ struct w49 a21381; /* U */ struct w49 a21421; /* U */ struct w49 a21457; /* U */ struct w49 a37279; /* S */ struct w49 a37321; /* OBJ */ struct w49 a37357; /* S */ struct w49 a37418; /* OBJ */ struct w49 a37458; /* S */ struct w49 a37534; /* OBJ */ struct w49 a37573; /* S */ struct w49 a37676; /* OBJ */ struct w49 a37718; /* S */ struct w49 a37747; /* OBJ */ struct w49 a37787; /* S */ struct w49 a37853; /* OBJ */ struct w49 a37909; /* S */ struct w49 a37943; /* OBJ */ struct w49 a37982; /* S */ struct w49 a38048; /* OBJ */ struct w49 a38131; /* S */ struct w49 a38199; /* OBJ */ struct w49 a38237; /* S */ struct w49 a38266; /* OBJ */ struct w49 a38296; /* S */ struct w49 a38309; /* OBJ */ struct w49 t81465; struct w49 t81466; struct w49 t81467; struct w49 t81468; struct w49 t81469; struct w49 t81470; struct w49 t81471; struct w49 t81472; struct w49 t81473; struct w49 t81474; struct w49 t81475; struct w49 t81476; struct w49 t81477; struct w49 t81478; struct w49 t81479; struct w49 t81480; struct w49 t81481; struct w49 t81482; struct w49 t81483; struct w49 t81484; struct w49 t81485; struct w49 t81486; struct w49 t81487; struct w49 t81488; struct w49 t81489; struct w49 t81490; struct w49 t81491; struct w49 t81492; struct w49 t81493; struct w49 t81494; struct w49 t81495; struct w49 t81496; struct w49 t81497; char *t81498; struct w49 t81499; struct w49 t81500; int t81501; int t81502; int t81503; struct structure_type24753 *t81504; struct w49 t81505; struct w49 t81506; struct w49 t81507; struct w49 t81508; struct w49 t81509; int t81510; int t81511; int t81512; struct structure_type24753 *t81513; struct w49 t81514; struct w49 t81515; struct w49 t81516; struct w49 t81517; struct w49 t81518; int t81519; int t81520; int t81521; struct structure_type24753 *t81522; struct w49 t81523; struct w49 t81524; struct w49 t81525; struct w49 t81526; struct w49 t81527; int t81528; int t81529; int t81530; struct structure_type24753 *t81531; struct w49 t81532; struct w49 t81533; struct w49 t81534; struct w49 t81535; struct w49 t81536; int t81537; int t81538; int t81539; struct structure_type24753 *t81540; struct w49 t81541; struct w49 t81542; struct w49 t81543; struct w49 t81544; struct w49 t81545; int t81546; int t81547; int t81548; struct structure_type24753 *t81549; struct w49 t81550; struct w49 t81551; struct w49 t81552; struct w49 t81553; struct w49 t81554; int t81555; int t81556; int t81557; struct structure_type24753 *t81558; struct w49 t81559; struct w49 t81560; struct w49 t81561; struct w49 t81562; struct w49 t81563; int t81564; int t81565; int t81566; struct structure_type24753 *t81567; struct w49 t81568; struct w49 t81569; struct w49 t81570; struct w49 t81571; struct w49 t81572; int t81573; int t81574; int t81575; struct structure_type24753 *t81576; struct w49 t81577; struct w49 t81578; struct w49 t81579; struct w49 t81580; struct w49 t81581; int t81582; int t81583; int t81584; struct structure_type24753 *t81585; struct w49 t81586; struct w49 t81587; struct w49 t81588; struct w49 t81589; struct w49 t81590; int t81591; int t81592; int t81593; struct structure_type24753 *t81594; struct w49 t81595; struct w49 t81596; struct w49 t81597; /* x64866 stalin.sc:2229:73640 */ /* x64678 stalin.sc:2229:73647 */ /* x64677 stalin.sc:2229:73659 */ t81465 = a21478; /* x64676 stalin.sc:2229:73648 */ if (f7677(t81465)==FALSE_TYPE) goto l15577; /* x64681 */ /* x64680 */ /* x64679 stalin.sc:2229:73662 */ return; l15577: /* x64865 */ /* x64684 stalin.sc:2230:73674 */ /* x64683 stalin.sc:2230:73686 */ t81466 = a21478; /* x64682 stalin.sc:2230:73675 */ if (f7678(t81466)==FALSE_TYPE) goto l15579; /* x64687 */ /* x64686 */ /* x64685 stalin.sc:2230:73689 */ return; l15579: /* x64864 */ /* x64690 stalin.sc:2231:73701 */ /* x64689 stalin.sc:2231:73714 */ t81467 = a21478; /* x64688 stalin.sc:2231:73702 */ if (f7679(t81467)==FALSE_TYPE) goto l15581; /* x64693 */ /* x64692 */ /* x64691 stalin.sc:2231:73717 */ return; l15581: /* x64863 */ /* x64696 stalin.sc:2232:73729 */ /* x64695 stalin.sc:2232:73741 */ t81468 = a21478; /* x64694 stalin.sc:2232:73730 */ if (f7682(t81468)==FALSE_TYPE) goto l15583; /* x64699 */ /* x64698 */ /* x64697 stalin.sc:2232:73744 */ return; l15583: /* x64862 */ /* x64702 stalin.sc:2233:73756 */ /* x64701 stalin.sc:2233:73770 */ t81469 = a21478; /* x64700 stalin.sc:2233:73757 */ if (f7683(t81469)==FALSE_TYPE) goto l15585; /* x64705 */ /* x64704 */ /* x64703 stalin.sc:2233:73773 */ return; l15585: /* x64861 */ /* x64708 stalin.sc:2234:73785 */ /* x64707 stalin.sc:2234:73799 */ t81470 = a21478; /* x64706 stalin.sc:2234:73786 */ if (f7684(t81470)==FALSE_TYPE) goto l15587; /* x64711 */ /* x64710 */ /* x64709 stalin.sc:2234:73802 */ return; l15587: /* x64860 */ /* x64714 stalin.sc:2235:73814 */ /* x64713 stalin.sc:2235:73833 */ t81471 = a21478; /* x64712 stalin.sc:2235:73815 */ if (f7687(t81471)==FALSE_TYPE) goto l15589; /* x64717 */ /* x64716 */ /* x64715 stalin.sc:2235:73836 */ return; l15589: /* x64859 */ /* x64720 stalin.sc:2236:73848 */ /* x64719 stalin.sc:2236:73866 */ t81472 = a21478; /* x64718 stalin.sc:2236:73849 */ if (f7700(t81472)==FALSE_TYPE) goto l15591; /* x64723 */ /* x64722 */ /* x64721 stalin.sc:2236:73869 */ return; l15591: /* x64858 */ /* x64726 stalin.sc:2237:73881 */ /* x64725 stalin.sc:2237:73900 */ t81473 = a21478; /* x64724 stalin.sc:2237:73882 */ if (f7701(t81473)==FALSE_TYPE) goto l15593; /* x64729 */ /* x64728 */ /* x64727 stalin.sc:2237:73903 */ return; l15593: /* x64857 */ /* x64732 stalin.sc:2238:73915 */ /* x64731 stalin.sc:2238:73933 */ t81474 = a21478; /* x64730 stalin.sc:2238:73916 */ if (f7702(t81474)==FALSE_TYPE) goto l15595; /* x64735 */ /* x64734 */ /* x64733 stalin.sc:2238:73936 */ return; l15595: /* x64856 */ /* x64738 stalin.sc:2239:73948 */ /* x64737 stalin.sc:2239:73963 */ t81475 = a21478; /* x64736 stalin.sc:2239:73949 */ if (f7703(t81475)==FALSE_TYPE) goto l15597; /* x64741 */ /* x64740 */ /* x64739 stalin.sc:2239:73966 */ return; l15597: /* x64855 */ /* x64744 stalin.sc:2240:73978 */ /* x64743 stalin.sc:2240:74001 */ t81476 = a21478; /* x64742 stalin.sc:2240:73979 */ a38309 = t81476; /* x285905 */ /* x285904 */ t81477 = a38309; /* x285903 */ if (!((t81477.tag)==STRUCTURE_TYPE27776)) goto l15599; /* x64750 */ /* x64749 */ /* x64748 stalin.sc:2241:74005 */ /* x64746 stalin.sc:2241:74046 */ t81589 = a21478; /* x64747 stalin.sc:2241:74048 */ /* x64745 stalin.sc:2241:74006 */ a21153 = t81589; /* x60880 */ /* x60879 stalin.sc:1305:43370 */ /* x60872 stalin.sc:1305:43378 */ /* x60871 stalin.sc:1305:43388 */ /* x270660 stalin.sc:1305:43379 */ /* x60874 */ /* x60873 */ /* x60869 */ /* x60868 stalin.sc:1306:43404 */ /* x60851 stalin.sc:1307:43442 */ t81590 = a21153; /* x60867 stalin.sc:1308:43446 */ /* x60852 stalin.sc:1308:43450 */ /* x60858 stalin.sc:1309:43459 */ /* x60857 stalin.sc:1309:43501 */ t81593 = 8; /* x60856 stalin.sc:1309:43467 */ /* x60855 stalin.sc:1309:43498 */ t81596 = a21153; /* x60854 stalin.sc:1309:43468 */ a38296 = t81596; /* x285853 */ /* x285852 */ t81597 = a38296; /* x285851 */ if (!((t81597.tag)==STRUCTURE_TYPE27776)) {backtrace_internal("[clone INTERNAL-SYMBOL-TYPE-BOOLEANS[5835] 33213]"); structure_ref_error();} t81592 = t81597.value.structure_type27776->s4; /* x60853 stalin.sc:1309:43460 */ t81595.tag = STRUCTURE_TYPE24753; t81595.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81595.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1309, 43459); out_of_memory_error();} t81595.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81595.value.structure_type24753->s0.value.fixnum_type = t81593; t81595.value.structure_type24753->s1.tag = NULL_TYPE; t81594 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81594==NULL) {backtrace("stalin.sc", 1309, 43459); out_of_memory_error();} t81594->s0.tag = FIXNUM_TYPE; t81594->s0.value.fixnum_type = t81592; t81594->s1 = t81595; t81591 = f27310(t81594); /* x60850 stalin.sc:1306:43405 */ f5836(t81590, t81591); return; l15599: /* x64854 */ /* x64753 stalin.sc:2242:74061 */ /* x64752 stalin.sc:2242:74084 */ t81478 = a21478; /* x64751 stalin.sc:2242:74062 */ a38266 = t81478; /* x285733 */ /* x285732 */ t81479 = a38266; /* x285731 */ if (!((t81479.tag)==STRUCTURE_TYPE27779)) goto l15601; /* x64759 */ /* x64758 */ /* x64757 stalin.sc:2243:74088 */ /* x64755 stalin.sc:2243:74129 */ t81580 = a21478; /* x64756 stalin.sc:2243:74131 */ /* x64754 stalin.sc:2243:74089 */ a21173 = t81580; /* x61105 */ /* x61104 stalin.sc:1360:45207 */ /* x61097 stalin.sc:1360:45215 */ /* x61096 stalin.sc:1360:45225 */ /* x270652 stalin.sc:1360:45216 */ /* x61099 */ /* x61098 */ /* x61094 */ /* x61093 stalin.sc:1361:45241 */ /* x61076 stalin.sc:1362:45279 */ t81581 = a21173; /* x61092 stalin.sc:1363:45283 */ /* x61077 stalin.sc:1363:45287 */ /* x61083 stalin.sc:1364:45296 */ /* x61082 stalin.sc:1364:45338 */ t81584 = 8; /* x61081 stalin.sc:1364:45304 */ /* x61080 stalin.sc:1364:45335 */ t81587 = a21173; /* x61079 stalin.sc:1364:45305 */ a38237 = t81587; /* x285617 */ /* x285616 */ t81588 = a38237; /* x285615 */ if (!((t81588.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-BOOLEANS[5885] 33154]"); structure_ref_error();} t81583 = t81588.value.structure_type27779->s5; /* x61078 stalin.sc:1364:45297 */ t81586.tag = STRUCTURE_TYPE24753; t81586.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81586.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1364, 45296); out_of_memory_error();} t81586.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81586.value.structure_type24753->s0.value.fixnum_type = t81584; t81586.value.structure_type24753->s1.tag = NULL_TYPE; t81585 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81585==NULL) {backtrace("stalin.sc", 1364, 45296); out_of_memory_error();} t81585->s0.tag = FIXNUM_TYPE; t81585->s0.value.fixnum_type = t81583; t81585->s1 = t81586; t81582 = f27310(t81585); /* x61075 stalin.sc:1361:45242 */ f5886(t81581, t81582); return; l15601: /* x64853 */ /* x64762 stalin.sc:2244:74144 */ /* x64761 stalin.sc:2244:74171 */ t81480 = a21478; /* x64760 stalin.sc:2244:74145 */ a38199 = t81480; /* x285465 */ /* x285464 */ t81481 = a38199; /* x285463 */ if (!((t81481.tag)==STRUCTURE_TYPE27753)) goto l15603; /* x64768 */ /* x64767 */ /* x64766 stalin.sc:2245:74175 */ /* x64764 stalin.sc:2245:74220 */ t81571 = a21478; /* x64765 stalin.sc:2245:74222 */ /* x64763 stalin.sc:2245:74176 */ a21193 = t81571; /* x61330 */ /* x61329 stalin.sc:1415:47077 */ /* x61322 stalin.sc:1415:47085 */ /* x61321 stalin.sc:1415:47095 */ /* x270642 stalin.sc:1415:47086 */ /* x61324 */ /* x61323 */ /* x61319 */ /* x61318 stalin.sc:1416:47111 */ /* x61301 stalin.sc:1417:47153 */ t81572 = a21193; /* x61317 stalin.sc:1418:47157 */ /* x61302 stalin.sc:1418:47161 */ /* x61308 stalin.sc:1419:47170 */ /* x61307 stalin.sc:1419:47216 */ t81575 = 4; /* x61306 stalin.sc:1419:47178 */ /* x61305 stalin.sc:1419:47213 */ t81578 = a21193; /* x61304 stalin.sc:1419:47179 */ a38131 = t81578; /* x285193 */ /* x285192 */ t81579 = a38131; /* x285191 */ if (!((t81579.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-BOOLEANS[5935] 33048]"); structure_ref_error();} t81574 = t81579.value.structure_type27753->s5; /* x61303 stalin.sc:1419:47171 */ t81577.tag = STRUCTURE_TYPE24753; t81577.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81577.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1419, 47170); out_of_memory_error();} t81577.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81577.value.structure_type24753->s0.value.fixnum_type = t81575; t81577.value.structure_type24753->s1.tag = NULL_TYPE; t81576 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81576==NULL) {backtrace("stalin.sc", 1419, 47170); out_of_memory_error();} t81576->s0.tag = FIXNUM_TYPE; t81576->s0.value.fixnum_type = t81574; t81576->s1 = t81577; t81573 = f27310(t81576); /* x61300 stalin.sc:1416:47112 */ f5936(t81572, t81573); return; l15603: /* x64852 */ /* x64771 stalin.sc:2246:74235 */ /* x64770 stalin.sc:2246:74259 */ t81482 = a21478; /* x64769 stalin.sc:2246:74236 */ a38048 = t81482; /* x284861 */ /* x284860 */ t81483 = a38048; /* x284859 */ if (!((t81483.tag)==STRUCTURE_TYPE27756)) goto l15605; /* x64777 */ /* x64776 */ /* x64775 stalin.sc:2247:74263 */ /* x64773 stalin.sc:2247:74305 */ t81562 = a21478; /* x64774 stalin.sc:2247:74307 */ /* x64772 stalin.sc:2247:74264 */ a21221 = t81562; /* x61645 */ /* x61644 stalin.sc:1492:49704 */ /* x61637 stalin.sc:1492:49712 */ /* x61636 stalin.sc:1492:49722 */ /* x270625 stalin.sc:1492:49713 */ /* x61639 */ /* x61638 */ /* x61634 */ /* x61633 stalin.sc:1493:49738 */ /* x61616 stalin.sc:1494:49777 */ t81563 = a21221; /* x61632 stalin.sc:1495:49781 */ /* x61617 stalin.sc:1495:49785 */ /* x61623 stalin.sc:1496:49794 */ /* x61622 stalin.sc:1496:49837 */ t81566 = 32; /* x61621 stalin.sc:1496:49802 */ /* x61620 stalin.sc:1496:49834 */ t81569 = a21221; /* x61619 stalin.sc:1496:49803 */ a37982 = t81569; /* x284597 */ /* x284596 */ t81570 = a37982; /* x284595 */ if (!((t81570.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32899]"); structure_ref_error();} t81565 = t81570.value.structure_type27756->s5; /* x61618 stalin.sc:1496:49795 */ t81568.tag = STRUCTURE_TYPE24753; t81568.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81568.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1496, 49794); out_of_memory_error();} t81568.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81568.value.structure_type24753->s0.value.fixnum_type = t81566; t81568.value.structure_type24753->s1.tag = NULL_TYPE; t81567 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81567==NULL) {backtrace("stalin.sc", 1496, 49794); out_of_memory_error();} t81567->s0.tag = FIXNUM_TYPE; t81567->s0.value.fixnum_type = t81565; t81567->s1 = t81568; t81564 = f27310(t81567); /* x61615 stalin.sc:1493:49739 */ f5986(t81563, t81564); return; l15605: /* x64851 */ /* x64780 stalin.sc:2248:74320 */ /* x64779 stalin.sc:2248:74345 */ t81484 = a21478; /* x64778 stalin.sc:2248:74321 */ a37943 = t81484; /* x284441 */ /* x284440 */ t81485 = a37943; /* x284439 */ if (!((t81485.tag)==STRUCTURE_TYPE27750)) goto l15607; /* x64786 */ /* x64785 */ /* x64784 stalin.sc:2249:74349 */ /* x64782 stalin.sc:2249:74392 */ t81553 = a21478; /* x64783 stalin.sc:2249:74394 */ /* x64781 stalin.sc:2249:74350 */ a21253 = t81553; /* x62005 */ /* x62004 stalin.sc:1580:52677 */ /* x61997 stalin.sc:1580:52685 */ /* x61996 stalin.sc:1580:52695 */ /* x270605 stalin.sc:1580:52686 */ /* x61999 */ /* x61998 */ /* x61994 */ /* x61993 stalin.sc:1581:52711 */ /* x61976 stalin.sc:1582:52751 */ t81554 = a21253; /* x61992 stalin.sc:1583:52755 */ /* x61977 stalin.sc:1583:52759 */ /* x61983 stalin.sc:1584:52768 */ /* x61982 stalin.sc:1584:52812 */ t81557 = 4; /* x61981 stalin.sc:1584:52776 */ /* x61980 stalin.sc:1584:52809 */ t81560 = a21253; /* x61979 stalin.sc:1584:52777 */ a37909 = t81560; /* x284305 */ /* x284304 */ t81561 = a37909; /* x284303 */ if (!((t81561.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-BOOLEANS[6051] 32826]"); structure_ref_error();} t81556 = t81561.value.structure_type27750->s7; /* x61978 stalin.sc:1584:52769 */ t81559.tag = STRUCTURE_TYPE24753; t81559.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81559.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1584, 52768); out_of_memory_error();} t81559.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81559.value.structure_type24753->s0.value.fixnum_type = t81557; t81559.value.structure_type24753->s1.tag = NULL_TYPE; t81558 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81558==NULL) {backtrace("stalin.sc", 1584, 52768); out_of_memory_error();} t81558->s0.tag = FIXNUM_TYPE; t81558->s0.value.fixnum_type = t81556; t81558->s1 = t81559; t81555 = f27310(t81558); /* x61975 stalin.sc:1581:52712 */ f6052(t81554, t81555); return; l15607: /* x64850 */ /* x64789 stalin.sc:2250:74407 */ /* x64788 stalin.sc:2250:74427 */ t81486 = a21478; /* x64787 stalin.sc:2250:74408 */ a37853 = t81486; /* x284081 */ /* x284080 */ t81487 = a37853; /* x284079 */ if (!((t81487.tag)==STRUCTURE_TYPE27858)) goto l15609; /* x64795 */ /* x64794 */ /* x64793 stalin.sc:2251:74431 */ /* x64791 stalin.sc:2251:74469 */ t81544 = a21478; /* x64792 stalin.sc:2251:74471 */ /* x64790 stalin.sc:2251:74432 */ a21269 = t81544; /* x62185 */ /* x62184 stalin.sc:1624:54130 */ /* x62177 stalin.sc:1624:54138 */ /* x62176 stalin.sc:1624:54148 */ /* x270597 stalin.sc:1624:54139 */ /* x62179 */ /* x62178 */ /* x62174 */ /* x62173 stalin.sc:1625:54164 */ /* x62156 stalin.sc:1626:54199 */ t81545 = a21269; /* x62172 stalin.sc:1627:54203 */ /* x62157 stalin.sc:1627:54207 */ /* x62163 stalin.sc:1628:54216 */ /* x62162 stalin.sc:1628:54255 */ t81548 = 16; /* x62161 stalin.sc:1628:54224 */ /* x62160 stalin.sc:1628:54252 */ t81551 = a21269; /* x62159 stalin.sc:1628:54225 */ a37787 = t81551; /* x283817 */ /* x283816 */ t81552 = a37787; /* x283815 */ if (!((t81552.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-BOOLEANS[6101] 32704]"); structure_ref_error();} t81547 = t81552.value.structure_type27858->s5; /* x62158 stalin.sc:1628:54217 */ t81550.tag = STRUCTURE_TYPE24753; t81550.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81550.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1628, 54216); out_of_memory_error();} t81550.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81550.value.structure_type24753->s0.value.fixnum_type = t81548; t81550.value.structure_type24753->s1.tag = NULL_TYPE; t81549 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81549==NULL) {backtrace("stalin.sc", 1628, 54216); out_of_memory_error();} t81549->s0.tag = FIXNUM_TYPE; t81549->s0.value.fixnum_type = t81547; t81549->s1 = t81550; t81546 = f27310(t81549); /* x62155 stalin.sc:1625:54165 */ f6102(t81545, t81546); return; l15609: /* x64849 */ /* x64798 stalin.sc:2252:74484 */ /* x64797 stalin.sc:2252:74498 */ t81488 = a21478; /* x64796 stalin.sc:2252:74485 */ a37747 = t81488; /* x283657 */ /* x283656 */ t81489 = a37747; /* x283655 */ if (!((t81489.tag)==STRUCTURE_TYPE27673)) goto l15611; /* x64804 */ /* x64803 */ /* x64802 stalin.sc:2253:74502 */ /* x64800 stalin.sc:2253:74534 */ t81535 = a21478; /* x64801 stalin.sc:2253:74536 */ /* x64799 stalin.sc:2253:74503 */ a21297 = t81535; /* x62500 */ /* x62499 stalin.sc:1701:56511 */ /* x62492 stalin.sc:1701:56519 */ /* x62491 stalin.sc:1701:56529 */ /* x270580 stalin.sc:1701:56520 */ /* x62494 */ /* x62493 */ /* x62489 */ /* x62488 stalin.sc:1702:56545 */ /* x62471 stalin.sc:1703:56574 */ t81536 = a21297; /* x62487 stalin.sc:1704:56578 */ /* x62472 stalin.sc:1704:56582 */ /* x62478 stalin.sc:1705:56591 */ /* x62477 stalin.sc:1705:56624 */ t81539 = 16; /* x62476 stalin.sc:1705:56599 */ /* x62475 stalin.sc:1705:56621 */ t81542 = a21297; /* x62474 stalin.sc:1705:56600 */ a37718 = t81542; /* x283541 */ /* x283540 */ t81543 = a37718; /* x283539 */ if (!((t81543.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-BOOLEANS[6159] 32635]"); structure_ref_error();} t81538 = t81543.value.structure_type27673->s6; /* x62473 stalin.sc:1705:56592 */ t81541.tag = STRUCTURE_TYPE24753; t81541.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81541.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1705, 56591); out_of_memory_error();} t81541.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81541.value.structure_type24753->s0.value.fixnum_type = t81539; t81541.value.structure_type24753->s1.tag = NULL_TYPE; t81540 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81540==NULL) {backtrace("stalin.sc", 1705, 56591); out_of_memory_error();} t81540->s0.tag = FIXNUM_TYPE; t81540->s0.value.fixnum_type = t81538; t81540->s1 = t81541; t81537 = f27310(t81540); /* x62470 stalin.sc:1702:56546 */ f6160(t81536, t81537); return; l15611: /* x64848 */ /* x64807 stalin.sc:2254:74549 */ /* x64806 stalin.sc:2254:74566 */ t81490 = a21478; /* x64805 stalin.sc:2254:74550 */ a37676 = t81490; /* x283373 */ /* x283372 */ t81491 = a37676; /* x283371 */ if (!((t81491.tag)==STRUCTURE_TYPE27769)) goto l15613; /* x64813 */ /* x64812 */ /* x64811 stalin.sc:2255:74570 */ /* x64809 stalin.sc:2255:74605 */ t81526 = a21478; /* x64810 stalin.sc:2255:74607 */ /* x64808 stalin.sc:2255:74571 */ a21341 = t81526; /* x62995 */ /* x62994 stalin.sc:1822:60110 */ /* x62987 stalin.sc:1822:60118 */ /* x62986 stalin.sc:1822:60128 */ /* x270555 stalin.sc:1822:60119 */ /* x62989 */ /* x62988 */ /* x62984 */ /* x62983 stalin.sc:1823:60144 */ /* x62966 stalin.sc:1824:60176 */ t81527 = a21341; /* x62982 stalin.sc:1825:60180 */ /* x62967 stalin.sc:1825:60184 */ /* x62973 stalin.sc:1826:60193 */ /* x62972 stalin.sc:1826:60229 */ t81530 = 16; /* x62971 stalin.sc:1826:60201 */ /* x62970 stalin.sc:1826:60226 */ t81533 = a21341; /* x62969 stalin.sc:1826:60202 */ a37573 = t81533; /* x282961 */ /* x282960 */ t81534 = a37573; /* x282959 */ if (!((t81534.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32490]"); structure_ref_error();} t81529 = t81534.value.structure_type27769->s8; /* x62968 stalin.sc:1826:60194 */ t81532.tag = STRUCTURE_TYPE24753; t81532.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81532.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1826, 60193); out_of_memory_error();} t81532.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81532.value.structure_type24753->s0.value.fixnum_type = t81530; t81532.value.structure_type24753->s1.tag = NULL_TYPE; t81531 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81531==NULL) {backtrace("stalin.sc", 1826, 60193); out_of_memory_error();} t81531->s0.tag = FIXNUM_TYPE; t81531->s0.value.fixnum_type = t81529; t81531->s1 = t81532; t81528 = f27310(t81531); /* x62965 stalin.sc:1823:60145 */ f6234(t81527, t81528); return; l15613: /* x64847 */ /* x64816 stalin.sc:2256:74620 */ /* x64815 stalin.sc:2256:74641 */ t81492 = a21478; /* x64814 stalin.sc:2256:74621 */ a37534 = t81492; /* x282805 */ /* x282804 */ t81493 = a37534; /* x282803 */ if (!((t81493.tag)==STRUCTURE_TYPE27761)) goto l15615; /* x64822 */ /* x64821 */ /* x64820 stalin.sc:2257:74645 */ /* x64818 stalin.sc:2257:74684 */ t81517 = a21478; /* x64819 stalin.sc:2257:74686 */ /* x64817 stalin.sc:2257:74646 */ a21381 = t81517; /* x63445 */ /* x63444 stalin.sc:1932:63545 */ /* x63437 stalin.sc:1932:63553 */ /* x63436 stalin.sc:1932:63563 */ /* x270529 stalin.sc:1932:63554 */ /* x63439 */ /* x63438 */ /* x63434 */ /* x63433 stalin.sc:1933:63579 */ /* x63416 stalin.sc:1934:63615 */ t81518 = a21381; /* x63432 stalin.sc:1935:63619 */ /* x63417 stalin.sc:1935:63623 */ /* x63423 stalin.sc:1936:63632 */ /* x63422 stalin.sc:1936:63672 */ t81521 = 32; /* x63421 stalin.sc:1936:63640 */ /* x63420 stalin.sc:1936:63669 */ t81524 = a21381; /* x63419 stalin.sc:1936:63641 */ a37458 = t81524; /* x282501 */ /* x282500 */ t81525 = a37458; /* x282499 */ if (!((t81525.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-BOOLEANS[6299] 32375]"); structure_ref_error();} t81520 = t81525.value.structure_type27761->s7; /* x63418 stalin.sc:1936:63633 */ t81523.tag = STRUCTURE_TYPE24753; t81523.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81523.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1936, 63632); out_of_memory_error();} t81523.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81523.value.structure_type24753->s0.value.fixnum_type = t81521; t81523.value.structure_type24753->s1.tag = NULL_TYPE; t81522 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81522==NULL) {backtrace("stalin.sc", 1936, 63632); out_of_memory_error();} t81522->s0.tag = FIXNUM_TYPE; t81522->s0.value.fixnum_type = t81520; t81522->s1 = t81523; t81519 = f27310(t81522); /* x63415 stalin.sc:1933:63580 */ f6300(t81518, t81519); return; l15615: /* x64846 */ /* x64825 stalin.sc:2258:74699 */ /* x64824 stalin.sc:2258:74723 */ t81494 = a21478; /* x64823 stalin.sc:2258:74700 */ a37418 = t81494; /* x282341 */ /* x282340 */ t81495 = a37418; /* x282339 */ if (!((t81495.tag)==STRUCTURE_TYPE27669)) goto l15617; /* x64831 */ /* x64830 */ /* x64829 stalin.sc:2259:74727 */ /* x64827 stalin.sc:2259:74769 */ t81508 = a21478; /* x64828 stalin.sc:2259:74771 */ /* x64826 stalin.sc:2259:74728 */ a21421 = t81508; /* x63895 */ /* x63894 stalin.sc:2042:67205 */ /* x63887 stalin.sc:2042:67213 */ /* x63886 stalin.sc:2042:67223 */ /* x270505 stalin.sc:2042:67214 */ /* x63889 */ /* x63888 */ /* x63884 */ /* x63883 stalin.sc:2043:67239 */ /* x63866 stalin.sc:2044:67278 */ t81509 = a21421; /* x63882 stalin.sc:2045:67282 */ /* x63867 stalin.sc:2045:67286 */ /* x63873 stalin.sc:2046:67295 */ /* x63872 stalin.sc:2046:67338 */ t81512 = 32; /* x63871 stalin.sc:2046:67303 */ /* x63870 stalin.sc:2046:67335 */ t81515 = a21421; /* x63869 stalin.sc:2046:67304 */ a37357 = t81515; /* x282097 */ /* x282096 */ t81516 = a37357; /* x282095 */ if (!((t81516.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-BOOLEANS[6365] 32274]"); structure_ref_error();} t81511 = t81516.value.structure_type27669->s7; /* x63868 stalin.sc:2046:67296 */ t81514.tag = STRUCTURE_TYPE24753; t81514.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81514.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2046, 67295); out_of_memory_error();} t81514.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81514.value.structure_type24753->s0.value.fixnum_type = t81512; t81514.value.structure_type24753->s1.tag = NULL_TYPE; t81513 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81513==NULL) {backtrace("stalin.sc", 2046, 67295); out_of_memory_error();} t81513->s0.tag = FIXNUM_TYPE; t81513->s0.value.fixnum_type = t81511; t81513->s1 = t81514; t81510 = f27310(t81513); /* x63865 stalin.sc:2043:67240 */ f6366(t81509, t81510); return; l15617: /* x64845 */ /* x64834 stalin.sc:2260:74784 */ /* x64833 stalin.sc:2260:74808 */ t81496 = a21478; /* x64832 stalin.sc:2260:74785 */ a37321 = t81496; /* x281953 */ /* x281952 */ t81497 = a37321; /* x281951 */ if (!((t81497.tag)==STRUCTURE_TYPE27908)) goto l15619; /* x64840 */ /* x64839 */ /* x64838 stalin.sc:2261:74812 */ /* x64836 stalin.sc:2261:74854 */ t81499 = a21478; /* x64837 stalin.sc:2261:74856 */ /* x64835 stalin.sc:2261:74813 */ a21457 = t81499; /* x64300 */ /* x64299 stalin.sc:2141:70553 */ /* x64292 stalin.sc:2141:70561 */ /* x64291 stalin.sc:2141:70571 */ /* x270484 stalin.sc:2141:70562 */ /* x64294 */ /* x64293 */ /* x64289 */ /* x64288 stalin.sc:2142:70587 */ /* x64271 stalin.sc:2143:70626 */ t81500 = a21457; /* x64287 stalin.sc:2144:70630 */ /* x64272 stalin.sc:2144:70634 */ /* x64278 stalin.sc:2145:70643 */ /* x64277 stalin.sc:2145:70686 */ t81503 = 16; /* x64276 stalin.sc:2145:70651 */ /* x64275 stalin.sc:2145:70683 */ t81506 = a21457; /* x64274 stalin.sc:2145:70652 */ a37279 = t81506; /* x281785 */ /* x281784 */ t81507 = a37279; /* x281783 */ if (!((t81507.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-BOOLEANS[6415] 32196]"); structure_ref_error();} t81502 = t81507.value.structure_type27908->s5; /* x64273 stalin.sc:2145:70644 */ t81505.tag = STRUCTURE_TYPE24753; t81505.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81505.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2145, 70643); out_of_memory_error();} t81505.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81505.value.structure_type24753->s0.value.fixnum_type = t81503; t81505.value.structure_type24753->s1.tag = NULL_TYPE; t81504 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81504==NULL) {backtrace("stalin.sc", 2145, 70643); out_of_memory_error();} t81504->s0.tag = FIXNUM_TYPE; t81504->s0.value.fixnum_type = t81502; t81504->s1 = t81505; t81501 = f27310(t81504); /* x64270 stalin.sc:2142:70588 */ f6416(t81500, t81501); return; l15619: /* x64844 */ /* x64843 */ /* x64842 stalin.sc:2262:74874 */ /* x64841 stalin.sc:2262:74875 */ /* x295365 QobiScheme.sc:166:5314 */ /* x295364 QobiScheme.sc:166:5321 */ t81498 = "This shouldn\'t happen"; /* x295363 QobiScheme.sc:166:5315 */ stalin_panic(t81498);} /* SET-TYPE-TYPE-TAG-ACCESSED?![7629] */ void f7629(struct w49 a21476) {struct w49 a21149; /* U */ struct w49 a21169; /* U */ struct w49 a21189; /* U */ struct w49 a21217; /* U */ struct w49 a21249; /* U */ struct w49 a21265; /* U */ struct w49 a21293; /* U */ struct w49 a21337; /* U */ struct w49 a21377; /* U */ struct w49 a21417; /* U */ struct w49 a21453; /* U */ struct w49 a37278; /* S */ struct w49 a37322; /* OBJ */ struct w49 a37358; /* S */ struct w49 a37419; /* OBJ */ struct w49 a37459; /* S */ struct w49 a37535; /* OBJ */ struct w49 a37574; /* S */ struct w49 a37678; /* OBJ */ struct w49 a37719; /* S */ struct w49 a37748; /* OBJ */ struct w49 a37788; /* S */ struct w49 a37854; /* OBJ */ struct w49 a37910; /* S */ struct w49 a37944; /* OBJ */ struct w49 a37983; /* S */ struct w49 a38049; /* OBJ */ struct w49 a38132; /* S */ struct w49 a38200; /* OBJ */ struct w49 a38238; /* S */ struct w49 a38267; /* OBJ */ struct w49 a38297; /* S */ struct w49 a38310; /* OBJ */ struct w49 t81598; struct w49 t81599; struct w49 t81600; struct w49 t81601; struct w49 t81602; struct w49 t81603; struct w49 t81604; struct w49 t81605; struct w49 t81606; struct w49 t81607; struct w49 t81608; struct w49 t81609; struct w49 t81610; struct w49 t81611; struct w49 t81612; struct w49 t81613; struct w49 t81614; struct w49 t81615; struct w49 t81616; struct w49 t81617; struct w49 t81618; struct w49 t81619; struct w49 t81620; struct w49 t81621; struct w49 t81622; struct w49 t81623; struct w49 t81624; struct w49 t81625; struct w49 t81626; struct w49 t81627; struct w49 t81628; struct w49 t81629; struct w49 t81630; char *t81631; struct w49 t81632; struct w49 t81633; int t81634; int t81635; int t81636; struct structure_type24753 *t81637; struct w49 t81638; struct w49 t81639; struct w49 t81640; struct w49 t81641; struct w49 t81642; int t81643; int t81644; int t81645; struct structure_type24753 *t81646; struct w49 t81647; struct w49 t81648; struct w49 t81649; struct w49 t81650; struct w49 t81651; int t81652; int t81653; int t81654; struct structure_type24753 *t81655; struct w49 t81656; struct w49 t81657; struct w49 t81658; struct w49 t81659; struct w49 t81660; int t81661; int t81662; int t81663; struct structure_type24753 *t81664; struct w49 t81665; struct w49 t81666; struct w49 t81667; struct w49 t81668; struct w49 t81669; int t81670; int t81671; int t81672; struct structure_type24753 *t81673; struct w49 t81674; struct w49 t81675; struct w49 t81676; struct w49 t81677; struct w49 t81678; int t81679; int t81680; int t81681; struct structure_type24753 *t81682; struct w49 t81683; struct w49 t81684; struct w49 t81685; struct w49 t81686; struct w49 t81687; int t81688; int t81689; int t81690; struct structure_type24753 *t81691; struct w49 t81692; struct w49 t81693; struct w49 t81694; struct w49 t81695; struct w49 t81696; int t81697; int t81698; int t81699; struct structure_type24753 *t81700; struct w49 t81701; struct w49 t81702; struct w49 t81703; struct w49 t81704; struct w49 t81705; int t81706; int t81707; int t81708; struct structure_type24753 *t81709; struct w49 t81710; struct w49 t81711; struct w49 t81712; struct w49 t81713; struct w49 t81714; int t81715; int t81716; int t81717; struct structure_type24753 *t81718; struct w49 t81719; struct w49 t81720; struct w49 t81721; struct w49 t81722; struct w49 t81723; int t81724; int t81725; int t81726; struct structure_type24753 *t81727; struct w49 t81728; struct w49 t81729; struct w49 t81730; /* x64673 stalin.sc:2193:72297 */ /* x64485 stalin.sc:2193:72304 */ /* x64484 stalin.sc:2193:72316 */ t81598 = a21476; /* x64483 stalin.sc:2193:72305 */ if (f7677(t81598)==FALSE_TYPE) goto l15643; /* x64488 */ /* x64487 */ /* x64486 stalin.sc:2193:72319 */ return; l15643: /* x64672 */ /* x64491 stalin.sc:2194:72331 */ /* x64490 stalin.sc:2194:72343 */ t81599 = a21476; /* x64489 stalin.sc:2194:72332 */ if (f7678(t81599)==FALSE_TYPE) goto l15645; /* x64494 */ /* x64493 */ /* x64492 stalin.sc:2194:72346 */ return; l15645: /* x64671 */ /* x64497 stalin.sc:2195:72358 */ /* x64496 stalin.sc:2195:72371 */ t81600 = a21476; /* x64495 stalin.sc:2195:72359 */ if (f7679(t81600)==FALSE_TYPE) goto l15647; /* x64500 */ /* x64499 */ /* x64498 stalin.sc:2195:72374 */ return; l15647: /* x64670 */ /* x64503 stalin.sc:2196:72386 */ /* x64502 stalin.sc:2196:72398 */ t81601 = a21476; /* x64501 stalin.sc:2196:72387 */ if (f7682(t81601)==FALSE_TYPE) goto l15649; /* x64506 */ /* x64505 */ /* x64504 stalin.sc:2196:72401 */ return; l15649: /* x64669 */ /* x64509 stalin.sc:2197:72413 */ /* x64508 stalin.sc:2197:72427 */ t81602 = a21476; /* x64507 stalin.sc:2197:72414 */ if (f7683(t81602)==FALSE_TYPE) goto l15651; /* x64512 */ /* x64511 */ /* x64510 stalin.sc:2197:72430 */ return; l15651: /* x64668 */ /* x64515 stalin.sc:2198:72442 */ /* x64514 stalin.sc:2198:72456 */ t81603 = a21476; /* x64513 stalin.sc:2198:72443 */ if (f7684(t81603)==FALSE_TYPE) goto l15653; /* x64518 */ /* x64517 */ /* x64516 stalin.sc:2198:72459 */ return; l15653: /* x64667 */ /* x64521 stalin.sc:2199:72471 */ /* x64520 stalin.sc:2199:72490 */ t81604 = a21476; /* x64519 stalin.sc:2199:72472 */ if (f7687(t81604)==FALSE_TYPE) goto l15655; /* x64524 */ /* x64523 */ /* x64522 stalin.sc:2199:72493 */ return; l15655: /* x64666 */ /* x64527 stalin.sc:2200:72505 */ /* x64526 stalin.sc:2200:72523 */ t81605 = a21476; /* x64525 stalin.sc:2200:72506 */ if (f7700(t81605)==FALSE_TYPE) goto l15657; /* x64530 */ /* x64529 */ /* x64528 stalin.sc:2200:72526 */ return; l15657: /* x64665 */ /* x64533 stalin.sc:2201:72538 */ /* x64532 stalin.sc:2201:72557 */ t81606 = a21476; /* x64531 stalin.sc:2201:72539 */ if (f7701(t81606)==FALSE_TYPE) goto l15659; /* x64536 */ /* x64535 */ /* x64534 stalin.sc:2201:72560 */ return; l15659: /* x64664 */ /* x64539 stalin.sc:2202:72572 */ /* x64538 stalin.sc:2202:72590 */ t81607 = a21476; /* x64537 stalin.sc:2202:72573 */ if (f7702(t81607)==FALSE_TYPE) goto l15661; /* x64542 */ /* x64541 */ /* x64540 stalin.sc:2202:72593 */ return; l15661: /* x64663 */ /* x64545 stalin.sc:2203:72605 */ /* x64544 stalin.sc:2203:72620 */ t81608 = a21476; /* x64543 stalin.sc:2203:72606 */ if (f7703(t81608)==FALSE_TYPE) goto l15663; /* x64548 */ /* x64547 */ /* x64546 stalin.sc:2203:72623 */ return; l15663: /* x64662 */ /* x64551 stalin.sc:2204:72635 */ /* x64550 stalin.sc:2204:72658 */ t81609 = a21476; /* x64549 stalin.sc:2204:72636 */ a38310 = t81609; /* x285909 */ /* x285908 */ t81610 = a38310; /* x285907 */ if (!((t81610.tag)==STRUCTURE_TYPE27776)) goto l15665; /* x64557 */ /* x64556 */ /* x64555 stalin.sc:2205:72662 */ /* x64553 stalin.sc:2205:72708 */ t81722 = a21476; /* x64554 stalin.sc:2205:72710 */ /* x64552 stalin.sc:2205:72663 */ a21149 = t81722; /* x60835 */ /* x60834 stalin.sc:1294:43002 */ /* x60827 stalin.sc:1294:43010 */ /* x60826 stalin.sc:1294:43020 */ /* x270661 stalin.sc:1294:43011 */ /* x60829 */ /* x60828 */ /* x60824 */ /* x60823 stalin.sc:1295:43036 */ /* x60806 stalin.sc:1296:43074 */ t81723 = a21149; /* x60822 stalin.sc:1297:43078 */ /* x60807 stalin.sc:1297:43082 */ /* x60813 stalin.sc:1298:43091 */ /* x60812 stalin.sc:1298:43133 */ t81726 = 16; /* x60811 stalin.sc:1298:43099 */ /* x60810 stalin.sc:1298:43130 */ t81729 = a21149; /* x60809 stalin.sc:1298:43100 */ a38297 = t81729; /* x285857 */ /* x285856 */ t81730 = a38297; /* x285855 */ if (!((t81730.tag)==STRUCTURE_TYPE27776)) {backtrace_internal("[clone INTERNAL-SYMBOL-TYPE-BOOLEANS[5835] 33214]"); structure_ref_error();} t81725 = t81730.value.structure_type27776->s4; /* x60808 stalin.sc:1298:43092 */ t81728.tag = STRUCTURE_TYPE24753; t81728.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81728.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1298, 43091); out_of_memory_error();} t81728.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81728.value.structure_type24753->s0.value.fixnum_type = t81726; t81728.value.structure_type24753->s1.tag = NULL_TYPE; t81727 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81727==NULL) {backtrace("stalin.sc", 1298, 43091); out_of_memory_error();} t81727->s0.tag = FIXNUM_TYPE; t81727->s0.value.fixnum_type = t81725; t81727->s1 = t81728; t81724 = f27310(t81727); /* x60805 stalin.sc:1295:43037 */ f5836(t81723, t81724); return; l15665: /* x64661 */ /* x64560 stalin.sc:2206:72723 */ /* x64559 stalin.sc:2206:72746 */ t81611 = a21476; /* x64558 stalin.sc:2206:72724 */ a38267 = t81611; /* x285737 */ /* x285736 */ t81612 = a38267; /* x285735 */ if (!((t81612.tag)==STRUCTURE_TYPE27779)) goto l15667; /* x64566 */ /* x64565 */ /* x64564 stalin.sc:2207:72750 */ /* x64562 stalin.sc:2207:72796 */ t81713 = a21476; /* x64563 stalin.sc:2207:72798 */ /* x64561 stalin.sc:2207:72751 */ a21169 = t81713; /* x61060 */ /* x61059 stalin.sc:1349:44839 */ /* x61052 stalin.sc:1349:44847 */ /* x61051 stalin.sc:1349:44857 */ /* x270653 stalin.sc:1349:44848 */ /* x61054 */ /* x61053 */ /* x61049 */ /* x61048 stalin.sc:1350:44873 */ /* x61031 stalin.sc:1351:44911 */ t81714 = a21169; /* x61047 stalin.sc:1352:44915 */ /* x61032 stalin.sc:1352:44919 */ /* x61038 stalin.sc:1353:44928 */ /* x61037 stalin.sc:1353:44970 */ t81717 = 16; /* x61036 stalin.sc:1353:44936 */ /* x61035 stalin.sc:1353:44967 */ t81720 = a21169; /* x61034 stalin.sc:1353:44937 */ a38238 = t81720; /* x285621 */ /* x285620 */ t81721 = a38238; /* x285619 */ if (!((t81721.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-BOOLEANS[5885] 33155]"); structure_ref_error();} t81716 = t81721.value.structure_type27779->s5; /* x61033 stalin.sc:1353:44929 */ t81719.tag = STRUCTURE_TYPE24753; t81719.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81719.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1353, 44928); out_of_memory_error();} t81719.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81719.value.structure_type24753->s0.value.fixnum_type = t81717; t81719.value.structure_type24753->s1.tag = NULL_TYPE; t81718 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81718==NULL) {backtrace("stalin.sc", 1353, 44928); out_of_memory_error();} t81718->s0.tag = FIXNUM_TYPE; t81718->s0.value.fixnum_type = t81716; t81718->s1 = t81719; t81715 = f27310(t81718); /* x61030 stalin.sc:1350:44874 */ f5886(t81714, t81715); return; l15667: /* x64660 */ /* x64569 stalin.sc:2208:72811 */ /* x64568 stalin.sc:2208:72838 */ t81613 = a21476; /* x64567 stalin.sc:2208:72812 */ a38200 = t81613; /* x285469 */ /* x285468 */ t81614 = a38200; /* x285467 */ if (!((t81614.tag)==STRUCTURE_TYPE27753)) goto l15669; /* x64575 */ /* x64574 */ /* x64573 stalin.sc:2209:72842 */ /* x64571 stalin.sc:2209:72892 */ t81704 = a21476; /* x64572 stalin.sc:2209:72894 */ /* x64570 stalin.sc:2209:72843 */ a21189 = t81704; /* x61285 */ /* x61284 stalin.sc:1404:46687 */ /* x61277 stalin.sc:1404:46695 */ /* x61276 stalin.sc:1404:46705 */ /* x270643 stalin.sc:1404:46696 */ /* x61279 */ /* x61278 */ /* x61274 */ /* x61273 stalin.sc:1405:46721 */ /* x61256 stalin.sc:1406:46763 */ t81705 = a21189; /* x61272 stalin.sc:1407:46767 */ /* x61257 stalin.sc:1407:46771 */ /* x61263 stalin.sc:1408:46780 */ /* x61262 stalin.sc:1408:46826 */ t81708 = 8; /* x61261 stalin.sc:1408:46788 */ /* x61260 stalin.sc:1408:46823 */ t81711 = a21189; /* x61259 stalin.sc:1408:46789 */ a38132 = t81711; /* x285197 */ /* x285196 */ t81712 = a38132; /* x285195 */ if (!((t81712.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-BOOLEANS[5935] 33049]"); structure_ref_error();} t81707 = t81712.value.structure_type27753->s5; /* x61258 stalin.sc:1408:46781 */ t81710.tag = STRUCTURE_TYPE24753; t81710.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81710.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1408, 46780); out_of_memory_error();} t81710.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81710.value.structure_type24753->s0.value.fixnum_type = t81708; t81710.value.structure_type24753->s1.tag = NULL_TYPE; t81709 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81709==NULL) {backtrace("stalin.sc", 1408, 46780); out_of_memory_error();} t81709->s0.tag = FIXNUM_TYPE; t81709->s0.value.fixnum_type = t81707; t81709->s1 = t81710; t81706 = f27310(t81709); /* x61255 stalin.sc:1405:46722 */ f5936(t81705, t81706); return; l15669: /* x64659 */ /* x64578 stalin.sc:2210:72907 */ /* x64577 stalin.sc:2210:72931 */ t81615 = a21476; /* x64576 stalin.sc:2210:72908 */ a38049 = t81615; /* x284865 */ /* x284864 */ t81616 = a38049; /* x284863 */ if (!((t81616.tag)==STRUCTURE_TYPE27756)) goto l15671; /* x64584 */ /* x64583 */ /* x64582 stalin.sc:2211:72935 */ /* x64580 stalin.sc:2211:72982 */ t81695 = a21476; /* x64581 stalin.sc:2211:72984 */ /* x64579 stalin.sc:2211:72936 */ a21217 = t81695; /* x61600 */ /* x61599 stalin.sc:1481:49329 */ /* x61592 stalin.sc:1481:49337 */ /* x61591 stalin.sc:1481:49347 */ /* x270626 stalin.sc:1481:49338 */ /* x61594 */ /* x61593 */ /* x61589 */ /* x61588 stalin.sc:1482:49363 */ /* x61571 stalin.sc:1483:49402 */ t81696 = a21217; /* x61587 stalin.sc:1484:49406 */ /* x61572 stalin.sc:1484:49410 */ /* x61578 stalin.sc:1485:49419 */ /* x61577 stalin.sc:1485:49462 */ t81699 = 64; /* x61576 stalin.sc:1485:49427 */ /* x61575 stalin.sc:1485:49459 */ t81702 = a21217; /* x61574 stalin.sc:1485:49428 */ a37983 = t81702; /* x284601 */ /* x284600 */ t81703 = a37983; /* x284599 */ if (!((t81703.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32900]"); structure_ref_error();} t81698 = t81703.value.structure_type27756->s5; /* x61573 stalin.sc:1485:49420 */ t81701.tag = STRUCTURE_TYPE24753; t81701.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81701.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1485, 49419); out_of_memory_error();} t81701.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81701.value.structure_type24753->s0.value.fixnum_type = t81699; t81701.value.structure_type24753->s1.tag = NULL_TYPE; t81700 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81700==NULL) {backtrace("stalin.sc", 1485, 49419); out_of_memory_error();} t81700->s0.tag = FIXNUM_TYPE; t81700->s0.value.fixnum_type = t81698; t81700->s1 = t81701; t81697 = f27310(t81700); /* x61570 stalin.sc:1482:49364 */ f5986(t81696, t81697); return; l15671: /* x64658 */ /* x64587 stalin.sc:2212:72997 */ /* x64586 stalin.sc:2212:73022 */ t81617 = a21476; /* x64585 stalin.sc:2212:72998 */ a37944 = t81617; /* x284445 */ /* x284444 */ t81618 = a37944; /* x284443 */ if (!((t81618.tag)==STRUCTURE_TYPE27750)) goto l15673; /* x64593 */ /* x64592 */ /* x64591 stalin.sc:2213:73026 */ /* x64589 stalin.sc:2213:73074 */ t81686 = a21476; /* x64590 stalin.sc:2213:73076 */ /* x64588 stalin.sc:2213:73027 */ a21249 = t81686; /* x61960 */ /* x61959 stalin.sc:1569:52299 */ /* x61952 stalin.sc:1569:52307 */ /* x61951 stalin.sc:1569:52317 */ /* x270606 stalin.sc:1569:52308 */ /* x61954 */ /* x61953 */ /* x61949 */ /* x61948 stalin.sc:1570:52333 */ /* x61931 stalin.sc:1571:52373 */ t81687 = a21249; /* x61947 stalin.sc:1572:52377 */ /* x61932 stalin.sc:1572:52381 */ /* x61938 stalin.sc:1573:52390 */ /* x61937 stalin.sc:1573:52434 */ t81690 = 8; /* x61936 stalin.sc:1573:52398 */ /* x61935 stalin.sc:1573:52431 */ t81693 = a21249; /* x61934 stalin.sc:1573:52399 */ a37910 = t81693; /* x284309 */ /* x284308 */ t81694 = a37910; /* x284307 */ if (!((t81694.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-BOOLEANS[6051] 32827]"); structure_ref_error();} t81689 = t81694.value.structure_type27750->s7; /* x61933 stalin.sc:1573:52391 */ t81692.tag = STRUCTURE_TYPE24753; t81692.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81692.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1573, 52390); out_of_memory_error();} t81692.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81692.value.structure_type24753->s0.value.fixnum_type = t81690; t81692.value.structure_type24753->s1.tag = NULL_TYPE; t81691 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81691==NULL) {backtrace("stalin.sc", 1573, 52390); out_of_memory_error();} t81691->s0.tag = FIXNUM_TYPE; t81691->s0.value.fixnum_type = t81689; t81691->s1 = t81692; t81688 = f27310(t81691); /* x61930 stalin.sc:1570:52334 */ f6052(t81687, t81688); return; l15673: /* x64657 */ /* x64596 stalin.sc:2214:73089 */ /* x64595 stalin.sc:2214:73109 */ t81619 = a21476; /* x64594 stalin.sc:2214:73090 */ a37854 = t81619; /* x284085 */ /* x284084 */ t81620 = a37854; /* x284083 */ if (!((t81620.tag)==STRUCTURE_TYPE27858)) goto l15675; /* x64602 */ /* x64601 */ /* x64600 stalin.sc:2215:73113 */ /* x64598 stalin.sc:2215:73156 */ t81677 = a21476; /* x64599 stalin.sc:2215:73158 */ /* x64597 stalin.sc:2215:73114 */ a21265 = t81677; /* x62140 */ /* x62139 stalin.sc:1613:53779 */ /* x62132 stalin.sc:1613:53787 */ /* x62131 stalin.sc:1613:53797 */ /* x270598 stalin.sc:1613:53788 */ /* x62134 */ /* x62133 */ /* x62129 */ /* x62128 stalin.sc:1614:53813 */ /* x62111 stalin.sc:1615:53848 */ t81678 = a21265; /* x62127 stalin.sc:1616:53852 */ /* x62112 stalin.sc:1616:53856 */ /* x62118 stalin.sc:1617:53865 */ /* x62117 stalin.sc:1617:53904 */ t81681 = 32; /* x62116 stalin.sc:1617:53873 */ /* x62115 stalin.sc:1617:53901 */ t81684 = a21265; /* x62114 stalin.sc:1617:53874 */ a37788 = t81684; /* x283821 */ /* x283820 */ t81685 = a37788; /* x283819 */ if (!((t81685.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-BOOLEANS[6101] 32705]"); structure_ref_error();} t81680 = t81685.value.structure_type27858->s5; /* x62113 stalin.sc:1617:53866 */ t81683.tag = STRUCTURE_TYPE24753; t81683.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81683.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1617, 53865); out_of_memory_error();} t81683.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81683.value.structure_type24753->s0.value.fixnum_type = t81681; t81683.value.structure_type24753->s1.tag = NULL_TYPE; t81682 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81682==NULL) {backtrace("stalin.sc", 1617, 53865); out_of_memory_error();} t81682->s0.tag = FIXNUM_TYPE; t81682->s0.value.fixnum_type = t81680; t81682->s1 = t81683; t81679 = f27310(t81682); /* x62110 stalin.sc:1614:53814 */ f6102(t81678, t81679); return; l15675: /* x64656 */ /* x64605 stalin.sc:2216:73171 */ /* x64604 stalin.sc:2216:73185 */ t81621 = a21476; /* x64603 stalin.sc:2216:73172 */ a37748 = t81621; /* x283661 */ /* x283660 */ t81622 = a37748; /* x283659 */ if (!((t81622.tag)==STRUCTURE_TYPE27673)) goto l15677; /* x64611 */ /* x64610 */ /* x64609 stalin.sc:2217:73189 */ /* x64607 stalin.sc:2217:73226 */ t81668 = a21476; /* x64608 stalin.sc:2217:73228 */ /* x64606 stalin.sc:2217:73190 */ a21293 = t81668; /* x62455 */ /* x62454 stalin.sc:1690:56196 */ /* x62447 stalin.sc:1690:56204 */ /* x62446 stalin.sc:1690:56214 */ /* x270581 stalin.sc:1690:56205 */ /* x62449 */ /* x62448 */ /* x62444 */ /* x62443 stalin.sc:1691:56230 */ /* x62426 stalin.sc:1692:56259 */ t81669 = a21293; /* x62442 stalin.sc:1693:56263 */ /* x62427 stalin.sc:1693:56267 */ /* x62433 stalin.sc:1694:56276 */ /* x62432 stalin.sc:1694:56309 */ t81672 = 32; /* x62431 stalin.sc:1694:56284 */ /* x62430 stalin.sc:1694:56306 */ t81675 = a21293; /* x62429 stalin.sc:1694:56285 */ a37719 = t81675; /* x283545 */ /* x283544 */ t81676 = a37719; /* x283543 */ if (!((t81676.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-BOOLEANS[6159] 32636]"); structure_ref_error();} t81671 = t81676.value.structure_type27673->s6; /* x62428 stalin.sc:1694:56277 */ t81674.tag = STRUCTURE_TYPE24753; t81674.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81674.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1694, 56276); out_of_memory_error();} t81674.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81674.value.structure_type24753->s0.value.fixnum_type = t81672; t81674.value.structure_type24753->s1.tag = NULL_TYPE; t81673 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81673==NULL) {backtrace("stalin.sc", 1694, 56276); out_of_memory_error();} t81673->s0.tag = FIXNUM_TYPE; t81673->s0.value.fixnum_type = t81671; t81673->s1 = t81674; t81670 = f27310(t81673); /* x62425 stalin.sc:1691:56231 */ f6160(t81669, t81670); return; l15677: /* x64655 */ /* x64614 stalin.sc:2218:73241 */ /* x64613 stalin.sc:2218:73258 */ t81623 = a21476; /* x64612 stalin.sc:2218:73242 */ a37678 = t81623; /* x283381 */ /* x283380 */ t81624 = a37678; /* x283379 */ if (!((t81624.tag)==STRUCTURE_TYPE27769)) goto l15679; /* x64620 */ /* x64619 */ /* x64618 stalin.sc:2219:73262 */ /* x64616 stalin.sc:2219:73302 */ t81659 = a21476; /* x64617 stalin.sc:2219:73304 */ /* x64615 stalin.sc:2219:73263 */ a21337 = t81659; /* x62950 */ /* x62949 stalin.sc:1811:59777 */ /* x62942 stalin.sc:1811:59785 */ /* x62941 stalin.sc:1811:59795 */ /* x270556 stalin.sc:1811:59786 */ /* x62944 */ /* x62943 */ /* x62939 */ /* x62938 stalin.sc:1812:59811 */ /* x62921 stalin.sc:1813:59843 */ t81660 = a21337; /* x62937 stalin.sc:1814:59847 */ /* x62922 stalin.sc:1814:59851 */ /* x62928 stalin.sc:1815:59860 */ /* x62927 stalin.sc:1815:59896 */ t81663 = 32; /* x62926 stalin.sc:1815:59868 */ /* x62925 stalin.sc:1815:59893 */ t81666 = a21337; /* x62924 stalin.sc:1815:59869 */ a37574 = t81666; /* x282965 */ /* x282964 */ t81667 = a37574; /* x282963 */ if (!((t81667.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32491]"); structure_ref_error();} t81662 = t81667.value.structure_type27769->s8; /* x62923 stalin.sc:1815:59861 */ t81665.tag = STRUCTURE_TYPE24753; t81665.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81665.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1815, 59860); out_of_memory_error();} t81665.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81665.value.structure_type24753->s0.value.fixnum_type = t81663; t81665.value.structure_type24753->s1.tag = NULL_TYPE; t81664 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81664==NULL) {backtrace("stalin.sc", 1815, 59860); out_of_memory_error();} t81664->s0.tag = FIXNUM_TYPE; t81664->s0.value.fixnum_type = t81662; t81664->s1 = t81665; t81661 = f27310(t81664); /* x62920 stalin.sc:1812:59812 */ f6234(t81660, t81661); return; l15679: /* x64654 */ /* x64623 stalin.sc:2220:73317 */ /* x64622 stalin.sc:2220:73338 */ t81625 = a21476; /* x64621 stalin.sc:2220:73318 */ a37535 = t81625; /* x282809 */ /* x282808 */ t81626 = a37535; /* x282807 */ if (!((t81626.tag)==STRUCTURE_TYPE27761)) goto l15681; /* x64629 */ /* x64628 */ /* x64627 stalin.sc:2221:73342 */ /* x64625 stalin.sc:2221:73386 */ t81650 = a21476; /* x64626 stalin.sc:2221:73388 */ /* x64624 stalin.sc:2221:73343 */ a21377 = t81650; /* x63400 */ /* x63399 stalin.sc:1921:63188 */ /* x63392 stalin.sc:1921:63196 */ /* x63391 stalin.sc:1921:63206 */ /* x270530 stalin.sc:1921:63197 */ /* x63394 */ /* x63393 */ /* x63389 */ /* x63388 stalin.sc:1922:63222 */ /* x63371 stalin.sc:1923:63258 */ t81651 = a21377; /* x63387 stalin.sc:1924:63262 */ /* x63372 stalin.sc:1924:63266 */ /* x63378 stalin.sc:1925:63275 */ /* x63377 stalin.sc:1925:63315 */ t81654 = 64; /* x63376 stalin.sc:1925:63283 */ /* x63375 stalin.sc:1925:63312 */ t81657 = a21377; /* x63374 stalin.sc:1925:63284 */ a37459 = t81657; /* x282505 */ /* x282504 */ t81658 = a37459; /* x282503 */ if (!((t81658.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-BOOLEANS[6299] 32376]"); structure_ref_error();} t81653 = t81658.value.structure_type27761->s7; /* x63373 stalin.sc:1925:63276 */ t81656.tag = STRUCTURE_TYPE24753; t81656.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81656.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1925, 63275); out_of_memory_error();} t81656.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81656.value.structure_type24753->s0.value.fixnum_type = t81654; t81656.value.structure_type24753->s1.tag = NULL_TYPE; t81655 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81655==NULL) {backtrace("stalin.sc", 1925, 63275); out_of_memory_error();} t81655->s0.tag = FIXNUM_TYPE; t81655->s0.value.fixnum_type = t81653; t81655->s1 = t81656; t81652 = f27310(t81655); /* x63370 stalin.sc:1922:63223 */ f6300(t81651, t81652); return; l15681: /* x64653 */ /* x64632 stalin.sc:2222:73401 */ /* x64631 stalin.sc:2222:73425 */ t81627 = a21476; /* x64630 stalin.sc:2222:73402 */ a37419 = t81627; /* x282345 */ /* x282344 */ t81628 = a37419; /* x282343 */ if (!((t81628.tag)==STRUCTURE_TYPE27669)) goto l15683; /* x64638 */ /* x64637 */ /* x64636 stalin.sc:2223:73429 */ /* x64634 stalin.sc:2223:73476 */ t81641 = a21476; /* x64635 stalin.sc:2223:73478 */ /* x64633 stalin.sc:2223:73430 */ a21417 = t81641; /* x63850 */ /* x63849 stalin.sc:2031:66830 */ /* x63842 stalin.sc:2031:66838 */ /* x63841 stalin.sc:2031:66848 */ /* x270506 stalin.sc:2031:66839 */ /* x63844 */ /* x63843 */ /* x63839 */ /* x63838 stalin.sc:2032:66864 */ /* x63821 stalin.sc:2033:66903 */ t81642 = a21417; /* x63837 stalin.sc:2034:66907 */ /* x63822 stalin.sc:2034:66911 */ /* x63828 stalin.sc:2035:66920 */ /* x63827 stalin.sc:2035:66963 */ t81645 = 64; /* x63826 stalin.sc:2035:66928 */ /* x63825 stalin.sc:2035:66960 */ t81648 = a21417; /* x63824 stalin.sc:2035:66929 */ a37358 = t81648; /* x282101 */ /* x282100 */ t81649 = a37358; /* x282099 */ if (!((t81649.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-BOOLEANS[6365] 32275]"); structure_ref_error();} t81644 = t81649.value.structure_type27669->s7; /* x63823 stalin.sc:2035:66921 */ t81647.tag = STRUCTURE_TYPE24753; t81647.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81647.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2035, 66920); out_of_memory_error();} t81647.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81647.value.structure_type24753->s0.value.fixnum_type = t81645; t81647.value.structure_type24753->s1.tag = NULL_TYPE; t81646 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81646==NULL) {backtrace("stalin.sc", 2035, 66920); out_of_memory_error();} t81646->s0.tag = FIXNUM_TYPE; t81646->s0.value.fixnum_type = t81644; t81646->s1 = t81647; t81643 = f27310(t81646); /* x63820 stalin.sc:2032:66865 */ f6366(t81642, t81643); return; l15683: /* x64652 */ /* x64641 stalin.sc:2224:73491 */ /* x64640 stalin.sc:2224:73515 */ t81629 = a21476; /* x64639 stalin.sc:2224:73492 */ a37322 = t81629; /* x281957 */ /* x281956 */ t81630 = a37322; /* x281955 */ if (!((t81630.tag)==STRUCTURE_TYPE27908)) goto l15685; /* x64647 */ /* x64646 */ /* x64645 stalin.sc:2225:73519 */ /* x64643 stalin.sc:2225:73566 */ t81632 = a21476; /* x64644 stalin.sc:2225:73568 */ /* x64642 stalin.sc:2225:73520 */ a21453 = t81632; /* x64255 */ /* x64254 stalin.sc:2130:70178 */ /* x64247 stalin.sc:2130:70186 */ /* x64246 stalin.sc:2130:70196 */ /* x270485 stalin.sc:2130:70187 */ /* x64249 */ /* x64248 */ /* x64244 */ /* x64243 stalin.sc:2131:70212 */ /* x64226 stalin.sc:2132:70251 */ t81633 = a21453; /* x64242 stalin.sc:2133:70255 */ /* x64227 stalin.sc:2133:70259 */ /* x64233 stalin.sc:2134:70268 */ /* x64232 stalin.sc:2134:70311 */ t81636 = 32; /* x64231 stalin.sc:2134:70276 */ /* x64230 stalin.sc:2134:70308 */ t81639 = a21453; /* x64229 stalin.sc:2134:70277 */ a37278 = t81639; /* x281781 */ /* x281780 */ t81640 = a37278; /* x281779 */ if (!((t81640.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-BOOLEANS[6415] 32195]"); structure_ref_error();} t81635 = t81640.value.structure_type27908->s5; /* x64228 stalin.sc:2134:70269 */ t81638.tag = STRUCTURE_TYPE24753; t81638.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81638.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2134, 70268); out_of_memory_error();} t81638.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81638.value.structure_type24753->s0.value.fixnum_type = t81636; t81638.value.structure_type24753->s1.tag = NULL_TYPE; t81637 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81637==NULL) {backtrace("stalin.sc", 2134, 70268); out_of_memory_error();} t81637->s0.tag = FIXNUM_TYPE; t81637->s0.value.fixnum_type = t81635; t81637->s1 = t81638; t81634 = f27310(t81637); /* x64225 stalin.sc:2131:70213 */ f6416(t81633, t81634); return; l15685: /* x64651 */ /* x64650 */ /* x64649 stalin.sc:2226:73586 */ /* x64648 stalin.sc:2226:73587 */ /* x295381 QobiScheme.sc:166:5314 */ /* x295380 QobiScheme.sc:166:5321 */ t81631 = "This shouldn\'t happen"; /* x295379 QobiScheme.sc:166:5315 */ stalin_panic(t81631);} /* SET-DISPLACED-VECTOR-TYPE-MARKED?![7620] */ void f7620(struct w49 a21469, unsigned a21470) {int a34837; /* N */ struct w49 a37284; /* S */ struct w49 a37289; /* S */ struct w49 t81731; int t81732; int t81733; int t81734; struct structure_type24753 *t81735; struct w49 t81736; struct w49 t81737; struct w49 t81738; int t81739; int t81740; int t81741; int t81742; struct structure_type24753 *t81743; struct w49 t81744; struct w49 t81745; struct w49 t81746; unsigned t81747; /* x64435 */ /* x64434 stalin.sc:2174:71693 */ /* x64427 stalin.sc:2174:71701 */ /* x64426 stalin.sc:2174:71711 */ t81747 = a21470; /* x270477 stalin.sc:2174:71702 */ /* x64429 */ /* x64428 */ /* x64424 */ /* x64423 stalin.sc:2175:71727 */ /* x64406 stalin.sc:2176:71766 */ t81731 = a21469; /* x64422 stalin.sc:2177:71770 */ /* x64407 stalin.sc:2177:71774 */ if (a21470==FALSE_TYPE) goto l15709; /* x64413 stalin.sc:2178:71783 */ /* x64412 stalin.sc:2178:71826 */ t81742 = 2; /* x64411 stalin.sc:2178:71791 */ /* x64410 stalin.sc:2178:71823 */ t81745 = a21469; /* x64409 stalin.sc:2178:71792 */ a37284 = t81745; /* x281805 */ /* x281804 */ t81746 = a37284; /* x281803 */ if (!((t81746.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-BOOLEANS[6415] 32201]"); structure_ref_error();} t81741 = t81746.value.structure_type27908->s5; /* x64408 stalin.sc:2178:71784 */ t81744.tag = STRUCTURE_TYPE24753; t81744.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81744.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2178, 71783); out_of_memory_error();} t81744.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81744.value.structure_type24753->s0.value.fixnum_type = t81742; t81744.value.structure_type24753->s1.tag = NULL_TYPE; t81743 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81743==NULL) {backtrace("stalin.sc", 2178, 71783); out_of_memory_error();} t81743->s0.tag = FIXNUM_TYPE; t81743->s0.value.fixnum_type = t81741; t81743->s1 = t81744; t81732 = f27310(t81743); goto l15710; l15709: /* x64421 stalin.sc:2179:71835 */ /* x64420 stalin.sc:2179:71879 */ /* x64419 stalin.sc:2179:71888 */ t81739 = 2; /* x64418 stalin.sc:2179:71880 */ a34837 = t81739; /* x271633 */ /* x271632 */ t81740 = a34837; /* x271631 */ t81734 = ~t81740; /* x64417 stalin.sc:2179:71844 */ /* x64416 stalin.sc:2179:71876 */ t81737 = a21469; /* x64415 stalin.sc:2179:71845 */ a37289 = t81737; /* x281825 */ /* x281824 */ t81738 = a37289; /* x281823 */ if (!((t81738.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-BOOLEANS[6415] 32206]"); structure_ref_error();} t81733 = t81738.value.structure_type27908->s5; /* x64414 stalin.sc:2179:71836 */ t81736.tag = STRUCTURE_TYPE24753; t81736.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81736.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2179, 71835); out_of_memory_error();} t81736.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81736.value.structure_type24753->s0.value.fixnum_type = t81734; t81736.value.structure_type24753->s1.tag = NULL_TYPE; t81735 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81735==NULL) {backtrace("stalin.sc", 2179, 71835); out_of_memory_error();} t81735->s0.tag = FIXNUM_TYPE; t81735->s0.value.fixnum_type = t81733; t81735->s1 = t81736; t81732 = f27305(t81735); l15710: /* x64405 stalin.sc:2175:71728 */ f6416(t81731, t81732); return;} /* DISPLACED-VECTOR-TYPE-MARKED?[7619] */ unsigned f7619(struct w49 a21468) {struct w49 a37285; /* S */ int t81748; int t81749; int t81750; struct structure_type24753 *t81751; struct w49 t81752; struct w49 t81753; struct w49 t81754; /* x64402 stalin.sc:2171:71579 */ /* x64402 stalin.sc:2171:71579 */ /* x64401 stalin.sc:2171:71584 */ /* x64400 stalin.sc:2171:71591 */ /* x64399 stalin.sc:2171:71635 */ t81750 = 2; /* x64398 stalin.sc:2171:71600 */ /* x64397 stalin.sc:2171:71632 */ t81753 = a21468; /* x64396 stalin.sc:2171:71601 */ a37285 = t81753; /* x281809 */ /* x281808 */ t81754 = a37285; /* x281807 */ if (!((t81754.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-BOOLEANS[6415] 32202]"); structure_ref_error();} t81749 = t81754.value.structure_type27908->s5; /* x64395 stalin.sc:2171:71592 */ t81752.tag = STRUCTURE_TYPE24753; t81752.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81752.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2171, 71591); out_of_memory_error();} t81752.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81752.value.structure_type24753->s0.value.fixnum_type = t81750; t81752.value.structure_type24753->s1.tag = NULL_TYPE; t81751 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81751==NULL) {backtrace("stalin.sc", 2171, 71591); out_of_memory_error();} t81751->s0.tag = FIXNUM_TYPE; t81751->s0.value.fixnum_type = t81749; t81751->s1 = t81752; t81748 = f27305(t81751); /* x270478 stalin.sc:2171:71585 */ if (t81748==0) goto l15713; return TRUE_TYPE; l15713: return FALSE_TYPE;} /* SET-DISPLACED-VECTOR-TYPE-SIZE?![7595] */ void f7595(struct w49 a21449) {struct w49 a37277; /* S */ struct w49 t81755; int t81756; int t81757; int t81758; struct structure_type24753 *t81759; struct w49 t81760; struct w49 t81761; struct w49 t81762; /* x64210 */ /* x64209 stalin.sc:2119:69793 */ /* x64202 stalin.sc:2119:69801 */ /* x64201 stalin.sc:2119:69811 */ /* x270486 stalin.sc:2119:69802 */ /* x64204 */ /* x64203 */ /* x64199 */ /* x64198 stalin.sc:2120:69827 */ /* x64181 stalin.sc:2121:69866 */ t81755 = a21449; /* x64197 stalin.sc:2122:69870 */ /* x64182 stalin.sc:2122:69874 */ /* x64188 stalin.sc:2123:69883 */ /* x64187 stalin.sc:2123:69926 */ t81758 = 64; /* x64186 stalin.sc:2123:69891 */ /* x64185 stalin.sc:2123:69923 */ t81761 = a21449; /* x64184 stalin.sc:2123:69892 */ a37277 = t81761; /* x281777 */ /* x281776 */ t81762 = a37277; /* x281775 */ if (!((t81762.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-BOOLEANS[6415] 32194]"); structure_ref_error();} t81757 = t81762.value.structure_type27908->s5; /* x64183 stalin.sc:2123:69884 */ t81760.tag = STRUCTURE_TYPE24753; t81760.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81760.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2123, 69883); out_of_memory_error();} t81760.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81760.value.structure_type24753->s0.value.fixnum_type = t81758; t81760.value.structure_type24753->s1.tag = NULL_TYPE; t81759 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81759==NULL) {backtrace("stalin.sc", 2123, 69883); out_of_memory_error();} t81759->s0.tag = FIXNUM_TYPE; t81759->s0.value.fixnum_type = t81757; t81759->s1 = t81760; t81756 = f27310(t81759); /* x64180 stalin.sc:2120:69828 */ f6416(t81755, t81756); return;} /* DISPLACED-VECTOR-TYPE-SIZE?[7594] */ unsigned f7594(struct w49 a21448) {struct w49 a37288; /* S */ int t81763; int t81764; int t81765; struct structure_type24753 *t81766; struct w49 t81767; struct w49 t81768; struct w49 t81769; /* x64177 stalin.sc:2116:69680 */ /* x64177 stalin.sc:2116:69680 */ /* x64176 stalin.sc:2116:69685 */ /* x64175 stalin.sc:2116:69692 */ /* x64174 stalin.sc:2116:69736 */ t81765 = 64; /* x64173 stalin.sc:2116:69701 */ /* x64172 stalin.sc:2116:69733 */ t81768 = a21448; /* x64171 stalin.sc:2116:69702 */ a37288 = t81768; /* x281821 */ /* x281820 */ t81769 = a37288; /* x281819 */ if (!((t81769.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-BOOLEANS[6415] 32205]"); structure_ref_error();} t81764 = t81769.value.structure_type27908->s5; /* x64170 stalin.sc:2116:69693 */ t81767.tag = STRUCTURE_TYPE24753; t81767.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81767.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2116, 69692); out_of_memory_error();} t81767.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81767.value.structure_type24753->s0.value.fixnum_type = t81765; t81767.value.structure_type24753->s1.tag = NULL_TYPE; t81766 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81766==NULL) {backtrace("stalin.sc", 2116, 69692); out_of_memory_error();} t81766->s0.tag = FIXNUM_TYPE; t81766->s0.value.fixnum_type = t81764; t81766->s1 = t81767; t81763 = f27305(t81766); /* x270487 stalin.sc:2116:69686 */ if (t81763==0) goto l15718; return TRUE_TYPE; l15718: return FALSE_TYPE;} /* SET-DISPLACED-VECTOR-TYPE-ALIGNMENT?![7590] */ void f7590(struct w49 a21445) {struct w49 a20212; /* S */ struct w49 t81770; int t81771; int t81772; int t81773; struct structure_type24753 *t81774; struct w49 t81775; struct w49 t81776; struct w49 t81777; /* x64165 */ /* x64164 stalin.sc:2108:69432 */ /* x64157 stalin.sc:2108:69440 */ /* x64156 stalin.sc:2108:69450 */ /* x270489 stalin.sc:2108:69441 */ /* x64159 */ /* x64158 */ /* x64154 */ /* x64153 stalin.sc:2109:69466 */ /* x64136 stalin.sc:2110:69505 */ t81770 = a21445; /* x64152 stalin.sc:2111:69509 */ /* x64137 stalin.sc:2111:69513 */ /* x64143 stalin.sc:2112:69522 */ /* x64142 stalin.sc:2112:69565 */ t81773 = 128; /* x64141 stalin.sc:2112:69530 */ /* x64140 stalin.sc:2112:69562 */ t81776 = a21445; /* x64139 stalin.sc:2112:69531 */ a20212 = t81776; /* x54238 */ /* x54237 */ t81777 = a20212; /* x54236 */ if (!((t81777.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("DISPLACED-VECTOR-TYPE-BOOLEANS[6415]"); structure_ref_error();} t81772 = t81777.value.structure_type27908->s5; /* x64138 stalin.sc:2112:69523 */ t81775.tag = STRUCTURE_TYPE24753; t81775.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81775.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2112, 69522); out_of_memory_error();} t81775.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81775.value.structure_type24753->s0.value.fixnum_type = t81773; t81775.value.structure_type24753->s1.tag = NULL_TYPE; t81774 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81774==NULL) {backtrace("stalin.sc", 2112, 69522); out_of_memory_error();} t81774->s0.tag = FIXNUM_TYPE; t81774->s0.value.fixnum_type = t81772; t81774->s1 = t81775; t81771 = f27310(t81774); /* x64135 stalin.sc:2109:69467 */ f6416(t81770, t81771); return;} /* DISPLACED-VECTOR-TYPE-ALIGNMENT?[7589] */ unsigned f7589(struct w49 a21444) {struct w49 a37287; /* S */ int t81778; int t81779; int t81780; struct structure_type24753 *t81781; struct w49 t81782; struct w49 t81783; struct w49 t81784; /* x64132 stalin.sc:2105:69313 */ /* x64132 stalin.sc:2105:69313 */ /* x64131 stalin.sc:2105:69318 */ /* x64130 stalin.sc:2105:69325 */ /* x64129 stalin.sc:2105:69369 */ t81780 = 128; /* x64128 stalin.sc:2105:69334 */ /* x64127 stalin.sc:2105:69366 */ t81783 = a21444; /* x64126 stalin.sc:2105:69335 */ a37287 = t81783; /* x281817 */ /* x281816 */ t81784 = a37287; /* x281815 */ if (!((t81784.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-BOOLEANS[6415] 32204]"); structure_ref_error();} t81779 = t81784.value.structure_type27908->s5; /* x64125 stalin.sc:2105:69326 */ t81782.tag = STRUCTURE_TYPE24753; t81782.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81782.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2105, 69325); out_of_memory_error();} t81782.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81782.value.structure_type24753->s0.value.fixnum_type = t81780; t81782.value.structure_type24753->s1.tag = NULL_TYPE; t81781 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81781==NULL) {backtrace("stalin.sc", 2105, 69325); out_of_memory_error();} t81781->s0.tag = FIXNUM_TYPE; t81781->s0.value.fixnum_type = t81779; t81781->s1 = t81782; t81778 = f27305(t81781); /* x270490 stalin.sc:2105:69319 */ if (t81778==0) goto l15723; return TRUE_TYPE; l15723: return FALSE_TYPE;} /* SET-NONHEADED-VECTOR-TYPE-ATOMIC?![7585] */ void f7585(struct w49 a21441, unsigned a21442) {int a34817; /* N */ struct w49 a37360; /* S */ struct w49 a37373; /* S */ struct w49 t81785; int t81786; int t81787; int t81788; struct structure_type24753 *t81789; struct w49 t81790; struct w49 t81791; struct w49 t81792; int t81793; int t81794; int t81795; int t81796; struct structure_type24753 *t81797; struct w49 t81798; struct w49 t81799; struct w49 t81800; unsigned t81801; /* x64120 */ /* x64119 stalin.sc:2097:69064 */ /* x64112 stalin.sc:2097:69072 */ /* x64111 stalin.sc:2097:69082 */ t81801 = a21442; /* x270492 stalin.sc:2097:69073 */ /* x64114 */ /* x64113 */ /* x64109 */ /* x64108 stalin.sc:2098:69098 */ /* x64091 stalin.sc:2099:69137 */ t81785 = a21441; /* x64107 stalin.sc:2100:69141 */ /* x64092 stalin.sc:2100:69145 */ if (a21442==FALSE_TYPE) goto l15726; /* x64098 stalin.sc:2101:69154 */ /* x64097 stalin.sc:2101:69197 */ t81796 = 1; /* x64096 stalin.sc:2101:69162 */ /* x64095 stalin.sc:2101:69194 */ t81799 = a21441; /* x64094 stalin.sc:2101:69163 */ a37373 = t81799; /* x282161 */ /* x282160 */ t81800 = a37373; /* x282159 */ if (!((t81800.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-BOOLEANS[6365] 32290]"); structure_ref_error();} t81795 = t81800.value.structure_type27669->s7; /* x64093 stalin.sc:2101:69155 */ t81798.tag = STRUCTURE_TYPE24753; t81798.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81798.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2101, 69154); out_of_memory_error();} t81798.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81798.value.structure_type24753->s0.value.fixnum_type = t81796; t81798.value.structure_type24753->s1.tag = NULL_TYPE; t81797 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81797==NULL) {backtrace("stalin.sc", 2101, 69154); out_of_memory_error();} t81797->s0.tag = FIXNUM_TYPE; t81797->s0.value.fixnum_type = t81795; t81797->s1 = t81798; t81786 = f27310(t81797); goto l15727; l15726: /* x64106 stalin.sc:2102:69206 */ /* x64105 stalin.sc:2102:69250 */ /* x64104 stalin.sc:2102:69259 */ t81793 = 1; /* x64103 stalin.sc:2102:69251 */ a34817 = t81793; /* x271553 */ /* x271552 */ t81794 = a34817; /* x271551 */ t81788 = ~t81794; /* x64102 stalin.sc:2102:69215 */ /* x64101 stalin.sc:2102:69247 */ t81791 = a21441; /* x64100 stalin.sc:2102:69216 */ a37360 = t81791; /* x282109 */ /* x282108 */ t81792 = a37360; /* x282107 */ if (!((t81792.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-BOOLEANS[6365] 32277]"); structure_ref_error();} t81787 = t81792.value.structure_type27669->s7; /* x64099 stalin.sc:2102:69207 */ t81790.tag = STRUCTURE_TYPE24753; t81790.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81790.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2102, 69206); out_of_memory_error();} t81790.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81790.value.structure_type24753->s0.value.fixnum_type = t81788; t81790.value.structure_type24753->s1.tag = NULL_TYPE; t81789 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81789==NULL) {backtrace("stalin.sc", 2102, 69206); out_of_memory_error();} t81789->s0.tag = FIXNUM_TYPE; t81789->s0.value.fixnum_type = t81787; t81789->s1 = t81790; t81786 = f27305(t81789); l15727: /* x64090 stalin.sc:2098:69099 */ f6366(t81785, t81786); return;} /* SET-NONHEADED-VECTOR-TYPE-MARKED?![7575] */ void f7575(struct w49 a21433, unsigned a21434) {int a34847; /* N */ struct w49 a37366; /* S */ struct w49 a37370; /* S */ struct w49 t81802; int t81803; int t81804; int t81805; struct structure_type24753 *t81806; struct w49 t81807; struct w49 t81808; struct w49 t81809; int t81810; int t81811; int t81812; int t81813; struct structure_type24753 *t81814; struct w49 t81815; struct w49 t81816; struct w49 t81817; unsigned t81818; /* x64030 */ /* x64029 stalin.sc:2075:68348 */ /* x64022 stalin.sc:2075:68356 */ /* x64021 stalin.sc:2075:68366 */ t81818 = a21434; /* x270498 stalin.sc:2075:68357 */ /* x64024 */ /* x64023 */ /* x64019 */ /* x64018 stalin.sc:2076:68382 */ /* x64001 stalin.sc:2077:68421 */ t81802 = a21433; /* x64017 stalin.sc:2078:68425 */ /* x64002 stalin.sc:2078:68429 */ if (a21434==FALSE_TYPE) goto l15730; /* x64008 stalin.sc:2079:68438 */ /* x64007 stalin.sc:2079:68481 */ t81813 = 4; /* x64006 stalin.sc:2079:68446 */ /* x64005 stalin.sc:2079:68478 */ t81816 = a21433; /* x64004 stalin.sc:2079:68447 */ a37366 = t81816; /* x282133 */ /* x282132 */ t81817 = a37366; /* x282131 */ if (!((t81817.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-BOOLEANS[6365] 32283]"); structure_ref_error();} t81812 = t81817.value.structure_type27669->s7; /* x64003 stalin.sc:2079:68439 */ t81815.tag = STRUCTURE_TYPE24753; t81815.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81815.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2079, 68438); out_of_memory_error();} t81815.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81815.value.structure_type24753->s0.value.fixnum_type = t81813; t81815.value.structure_type24753->s1.tag = NULL_TYPE; t81814 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81814==NULL) {backtrace("stalin.sc", 2079, 68438); out_of_memory_error();} t81814->s0.tag = FIXNUM_TYPE; t81814->s0.value.fixnum_type = t81812; t81814->s1 = t81815; t81803 = f27310(t81814); goto l15731; l15730: /* x64016 stalin.sc:2080:68490 */ /* x64015 stalin.sc:2080:68534 */ /* x64014 stalin.sc:2080:68543 */ t81810 = 4; /* x64013 stalin.sc:2080:68535 */ a34847 = t81810; /* x271673 */ /* x271672 */ t81811 = a34847; /* x271671 */ t81805 = ~t81811; /* x64012 stalin.sc:2080:68499 */ /* x64011 stalin.sc:2080:68531 */ t81808 = a21433; /* x64010 stalin.sc:2080:68500 */ a37370 = t81808; /* x282149 */ /* x282148 */ t81809 = a37370; /* x282147 */ if (!((t81809.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-BOOLEANS[6365] 32287]"); structure_ref_error();} t81804 = t81809.value.structure_type27669->s7; /* x64009 stalin.sc:2080:68491 */ t81807.tag = STRUCTURE_TYPE24753; t81807.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81807.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2080, 68490); out_of_memory_error();} t81807.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81807.value.structure_type24753->s0.value.fixnum_type = t81805; t81807.value.structure_type24753->s1.tag = NULL_TYPE; t81806 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81806==NULL) {backtrace("stalin.sc", 2080, 68490); out_of_memory_error();} t81806->s0.tag = FIXNUM_TYPE; t81806->s0.value.fixnum_type = t81804; t81806->s1 = t81807; t81803 = f27305(t81806); l15731: /* x64000 stalin.sc:2076:68383 */ f6366(t81802, t81803); return;} /* NONHEADED-VECTOR-TYPE-MARKED?[7574] */ unsigned f7574(struct w49 a21432) {struct w49 a37367; /* S */ int t81819; int t81820; int t81821; struct structure_type24753 *t81822; struct w49 t81823; struct w49 t81824; struct w49 t81825; /* x63997 stalin.sc:2072:68234 */ /* x63997 stalin.sc:2072:68234 */ /* x63996 stalin.sc:2072:68239 */ /* x63995 stalin.sc:2072:68246 */ /* x63994 stalin.sc:2072:68290 */ t81821 = 4; /* x63993 stalin.sc:2072:68255 */ /* x63992 stalin.sc:2072:68287 */ t81824 = a21432; /* x63991 stalin.sc:2072:68256 */ a37367 = t81824; /* x282137 */ /* x282136 */ t81825 = a37367; /* x282135 */ if (!((t81825.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-BOOLEANS[6365] 32284]"); structure_ref_error();} t81820 = t81825.value.structure_type27669->s7; /* x63990 stalin.sc:2072:68247 */ t81823.tag = STRUCTURE_TYPE24753; t81823.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81823.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2072, 68246); out_of_memory_error();} t81823.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81823.value.structure_type24753->s0.value.fixnum_type = t81821; t81823.value.structure_type24753->s1.tag = NULL_TYPE; t81822 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81822==NULL) {backtrace("stalin.sc", 2072, 68246); out_of_memory_error();} t81822->s0.tag = FIXNUM_TYPE; t81822->s0.value.fixnum_type = t81820; t81822->s1 = t81823; t81819 = f27305(t81822); /* x270499 stalin.sc:2072:68240 */ if (t81819==0) goto l15734; return TRUE_TYPE; l15734: return FALSE_TYPE;} /* SET-NONHEADED-VECTOR-TYPE-SIZE?![7545] */ void f7545(struct w49 a21409) {struct w49 a37364; /* S */ struct w49 t81826; int t81827; int t81828; int t81829; struct structure_type24753 *t81830; struct w49 t81831; struct w49 t81832; struct w49 t81833; /* x63760 */ /* x63759 stalin.sc:2009:66035 */ /* x63752 stalin.sc:2009:66043 */ /* x63751 stalin.sc:2009:66053 */ /* x270510 stalin.sc:2009:66044 */ /* x63754 */ /* x63753 */ /* x63749 */ /* x63748 stalin.sc:2010:66069 */ /* x63731 stalin.sc:2011:66108 */ t81826 = a21409; /* x63747 stalin.sc:2012:66112 */ /* x63732 stalin.sc:2012:66116 */ /* x63738 stalin.sc:2013:66125 */ /* x63737 stalin.sc:2013:66168 */ t81829 = 256; /* x63736 stalin.sc:2013:66133 */ /* x63735 stalin.sc:2013:66165 */ t81832 = a21409; /* x63734 stalin.sc:2013:66134 */ a37364 = t81832; /* x282125 */ /* x282124 */ t81833 = a37364; /* x282123 */ if (!((t81833.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-BOOLEANS[6365] 32281]"); structure_ref_error();} t81828 = t81833.value.structure_type27669->s7; /* x63733 stalin.sc:2013:66126 */ t81831.tag = STRUCTURE_TYPE24753; t81831.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81831.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2013, 66125); out_of_memory_error();} t81831.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81831.value.structure_type24753->s0.value.fixnum_type = t81829; t81831.value.structure_type24753->s1.tag = NULL_TYPE; t81830 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81830==NULL) {backtrace("stalin.sc", 2013, 66125); out_of_memory_error();} t81830->s0.tag = FIXNUM_TYPE; t81830->s0.value.fixnum_type = t81828; t81830->s1 = t81831; t81827 = f27310(t81830); /* x63730 stalin.sc:2010:66070 */ f6366(t81826, t81827); return;} /* NONHEADED-VECTOR-TYPE-SIZE?[7544] */ unsigned f7544(struct w49 a21408) {struct w49 a37365; /* S */ int t81834; int t81835; int t81836; struct structure_type24753 *t81837; struct w49 t81838; struct w49 t81839; struct w49 t81840; /* x63727 stalin.sc:2006:65921 */ /* x63727 stalin.sc:2006:65921 */ /* x63726 stalin.sc:2006:65926 */ /* x63725 stalin.sc:2006:65933 */ /* x63724 stalin.sc:2006:65977 */ t81836 = 256; /* x63723 stalin.sc:2006:65942 */ /* x63722 stalin.sc:2006:65974 */ t81839 = a21408; /* x63721 stalin.sc:2006:65943 */ a37365 = t81839; /* x282129 */ /* x282128 */ t81840 = a37365; /* x282127 */ if (!((t81840.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-BOOLEANS[6365] 32282]"); structure_ref_error();} t81835 = t81840.value.structure_type27669->s7; /* x63720 stalin.sc:2006:65934 */ t81838.tag = STRUCTURE_TYPE24753; t81838.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81838.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2006, 65933); out_of_memory_error();} t81838.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81838.value.structure_type24753->s0.value.fixnum_type = t81836; t81838.value.structure_type24753->s1.tag = NULL_TYPE; t81837 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81837==NULL) {backtrace("stalin.sc", 2006, 65933); out_of_memory_error();} t81837->s0.tag = FIXNUM_TYPE; t81837->s0.value.fixnum_type = t81835; t81837->s1 = t81838; t81834 = f27305(t81837); /* x270511 stalin.sc:2006:65927 */ if (t81834==0) goto l15739; return TRUE_TYPE; l15739: return FALSE_TYPE;} /* SET-NONHEADED-VECTOR-TYPE-ALIGNMENT?![7540] */ void f7540(struct w49 a21405) {struct w49 a37362; /* S */ struct w49 t81841; int t81842; int t81843; int t81844; struct structure_type24753 *t81845; struct w49 t81846; struct w49 t81847; struct w49 t81848; /* x63715 */ /* x63714 stalin.sc:1998:65673 */ /* x63707 stalin.sc:1998:65681 */ /* x63706 stalin.sc:1998:65691 */ /* x270513 stalin.sc:1998:65682 */ /* x63709 */ /* x63708 */ /* x63704 */ /* x63703 stalin.sc:1999:65707 */ /* x63686 stalin.sc:2000:65746 */ t81841 = a21405; /* x63702 stalin.sc:2001:65750 */ /* x63687 stalin.sc:2001:65754 */ /* x63693 stalin.sc:2002:65763 */ /* x63692 stalin.sc:2002:65806 */ t81844 = 512; /* x63691 stalin.sc:2002:65771 */ /* x63690 stalin.sc:2002:65803 */ t81847 = a21405; /* x63689 stalin.sc:2002:65772 */ a37362 = t81847; /* x282117 */ /* x282116 */ t81848 = a37362; /* x282115 */ if (!((t81848.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-BOOLEANS[6365] 32279]"); structure_ref_error();} t81843 = t81848.value.structure_type27669->s7; /* x63688 stalin.sc:2002:65764 */ t81846.tag = STRUCTURE_TYPE24753; t81846.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81846.value.structure_type24753)==NULL) {backtrace("stalin.sc", 2002, 65763); out_of_memory_error();} t81846.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81846.value.structure_type24753->s0.value.fixnum_type = t81844; t81846.value.structure_type24753->s1.tag = NULL_TYPE; t81845 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81845==NULL) {backtrace("stalin.sc", 2002, 65763); out_of_memory_error();} t81845->s0.tag = FIXNUM_TYPE; t81845->s0.value.fixnum_type = t81843; t81845->s1 = t81846; t81842 = f27310(t81845); /* x63685 stalin.sc:1999:65708 */ f6366(t81841, t81842); return;} /* NONHEADED-VECTOR-TYPE-ALIGNMENT?[7539] */ unsigned f7539(struct w49 a21404) {struct w49 a37363; /* S */ int t81849; int t81850; int t81851; struct structure_type24753 *t81852; struct w49 t81853; struct w49 t81854; struct w49 t81855; /* x63682 stalin.sc:1995:65554 */ /* x63682 stalin.sc:1995:65554 */ /* x63681 stalin.sc:1995:65559 */ /* x63680 stalin.sc:1995:65566 */ /* x63679 stalin.sc:1995:65610 */ t81851 = 512; /* x63678 stalin.sc:1995:65575 */ /* x63677 stalin.sc:1995:65607 */ t81854 = a21404; /* x63676 stalin.sc:1995:65576 */ a37363 = t81854; /* x282121 */ /* x282120 */ t81855 = a37363; /* x282119 */ if (!((t81855.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-BOOLEANS[6365] 32280]"); structure_ref_error();} t81850 = t81855.value.structure_type27669->s7; /* x63675 stalin.sc:1995:65567 */ t81853.tag = STRUCTURE_TYPE24753; t81853.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81853.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1995, 65566); out_of_memory_error();} t81853.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81853.value.structure_type24753->s0.value.fixnum_type = t81851; t81853.value.structure_type24753->s1.tag = NULL_TYPE; t81852 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81852==NULL) {backtrace("stalin.sc", 1995, 65566); out_of_memory_error();} t81852->s0.tag = FIXNUM_TYPE; t81852->s0.value.fixnum_type = t81850; t81852->s1 = t81853; t81849 = f27305(t81852); /* x270514 stalin.sc:1995:65560 */ if (t81849==0) goto l15744; return TRUE_TYPE; l15744: return FALSE_TYPE;} /* SET-HEADED-VECTOR-TYPE-ATOMIC?![7535] */ void f7535(struct w49 a21401, unsigned a21402) {int a34813; /* N */ struct w49 a37464; /* S */ struct w49 a37476; /* S */ struct w49 t81856; int t81857; int t81858; int t81859; struct structure_type24753 *t81860; struct w49 t81861; struct w49 t81862; struct w49 t81863; int t81864; int t81865; int t81866; int t81867; struct structure_type24753 *t81868; struct w49 t81869; struct w49 t81870; struct w49 t81871; unsigned t81872; /* x63670 */ /* x63669 stalin.sc:1987:65314 */ /* x63662 stalin.sc:1987:65322 */ /* x63661 stalin.sc:1987:65332 */ t81872 = a21402; /* x270516 stalin.sc:1987:65323 */ /* x63664 */ /* x63663 */ /* x63659 */ /* x63658 stalin.sc:1988:65348 */ /* x63641 stalin.sc:1989:65384 */ t81856 = a21401; /* x63657 stalin.sc:1990:65388 */ /* x63642 stalin.sc:1990:65392 */ if (a21402==FALSE_TYPE) goto l15747; /* x63648 stalin.sc:1991:65401 */ /* x63647 stalin.sc:1991:65441 */ t81867 = 1; /* x63646 stalin.sc:1991:65409 */ /* x63645 stalin.sc:1991:65438 */ t81870 = a21401; /* x63644 stalin.sc:1991:65410 */ a37476 = t81870; /* x282573 */ /* x282572 */ t81871 = a37476; /* x282571 */ if (!((t81871.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-BOOLEANS[6299] 32393]"); structure_ref_error();} t81866 = t81871.value.structure_type27761->s7; /* x63643 stalin.sc:1991:65402 */ t81869.tag = STRUCTURE_TYPE24753; t81869.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81869.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1991, 65401); out_of_memory_error();} t81869.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81869.value.structure_type24753->s0.value.fixnum_type = t81867; t81869.value.structure_type24753->s1.tag = NULL_TYPE; t81868 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81868==NULL) {backtrace("stalin.sc", 1991, 65401); out_of_memory_error();} t81868->s0.tag = FIXNUM_TYPE; t81868->s0.value.fixnum_type = t81866; t81868->s1 = t81869; t81857 = f27310(t81868); goto l15748; l15747: /* x63656 stalin.sc:1992:65450 */ /* x63655 stalin.sc:1992:65491 */ /* x63654 stalin.sc:1992:65500 */ t81864 = 1; /* x63653 stalin.sc:1992:65492 */ a34813 = t81864; /* x271537 */ /* x271536 */ t81865 = a34813; /* x271535 */ t81859 = ~t81865; /* x63652 stalin.sc:1992:65459 */ /* x63651 stalin.sc:1992:65488 */ t81862 = a21401; /* x63650 stalin.sc:1992:65460 */ a37464 = t81862; /* x282525 */ /* x282524 */ t81863 = a37464; /* x282523 */ if (!((t81863.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-BOOLEANS[6299] 32381]"); structure_ref_error();} t81858 = t81863.value.structure_type27761->s7; /* x63649 stalin.sc:1992:65451 */ t81861.tag = STRUCTURE_TYPE24753; t81861.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81861.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1992, 65450); out_of_memory_error();} t81861.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81861.value.structure_type24753->s0.value.fixnum_type = t81859; t81861.value.structure_type24753->s1.tag = NULL_TYPE; t81860 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81860==NULL) {backtrace("stalin.sc", 1992, 65450); out_of_memory_error();} t81860->s0.tag = FIXNUM_TYPE; t81860->s0.value.fixnum_type = t81858; t81860->s1 = t81861; t81857 = f27305(t81860); l15748: /* x63640 stalin.sc:1988:65349 */ f6300(t81856, t81857); return;} /* SET-HEADED-VECTOR-TYPE-MARKED?![7525] */ void f7525(struct w49 a21393, unsigned a21394) {int a34846; /* N */ struct w49 a37465; /* S */ struct w49 a37473; /* S */ struct w49 t81873; int t81874; int t81875; int t81876; struct structure_type24753 *t81877; struct w49 t81878; struct w49 t81879; struct w49 t81880; int t81881; int t81882; int t81883; int t81884; struct structure_type24753 *t81885; struct w49 t81886; struct w49 t81887; struct w49 t81888; unsigned t81889; /* x63580 */ /* x63579 stalin.sc:1965:64634 */ /* x63572 stalin.sc:1965:64642 */ /* x63571 stalin.sc:1965:64652 */ t81889 = a21394; /* x270522 stalin.sc:1965:64643 */ /* x63574 */ /* x63573 */ /* x63569 */ /* x63568 stalin.sc:1966:64668 */ /* x63551 stalin.sc:1967:64704 */ t81873 = a21393; /* x63567 stalin.sc:1968:64708 */ /* x63552 stalin.sc:1968:64712 */ if (a21394==FALSE_TYPE) goto l15751; /* x63558 stalin.sc:1969:64721 */ /* x63557 stalin.sc:1969:64761 */ t81884 = 4; /* x63556 stalin.sc:1969:64729 */ /* x63555 stalin.sc:1969:64758 */ t81887 = a21393; /* x63554 stalin.sc:1969:64730 */ a37465 = t81887; /* x282529 */ /* x282528 */ t81888 = a37465; /* x282527 */ if (!((t81888.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-BOOLEANS[6299] 32382]"); structure_ref_error();} t81883 = t81888.value.structure_type27761->s7; /* x63553 stalin.sc:1969:64722 */ t81886.tag = STRUCTURE_TYPE24753; t81886.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81886.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1969, 64721); out_of_memory_error();} t81886.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81886.value.structure_type24753->s0.value.fixnum_type = t81884; t81886.value.structure_type24753->s1.tag = NULL_TYPE; t81885 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81885==NULL) {backtrace("stalin.sc", 1969, 64721); out_of_memory_error();} t81885->s0.tag = FIXNUM_TYPE; t81885->s0.value.fixnum_type = t81883; t81885->s1 = t81886; t81874 = f27310(t81885); goto l15752; l15751: /* x63566 stalin.sc:1970:64770 */ /* x63565 stalin.sc:1970:64811 */ /* x63564 stalin.sc:1970:64820 */ t81881 = 4; /* x63563 stalin.sc:1970:64812 */ a34846 = t81881; /* x271669 */ /* x271668 */ t81882 = a34846; /* x271667 */ t81876 = ~t81882; /* x63562 stalin.sc:1970:64779 */ /* x63561 stalin.sc:1970:64808 */ t81879 = a21393; /* x63560 stalin.sc:1970:64780 */ a37473 = t81879; /* x282561 */ /* x282560 */ t81880 = a37473; /* x282559 */ if (!((t81880.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-BOOLEANS[6299] 32390]"); structure_ref_error();} t81875 = t81880.value.structure_type27761->s7; /* x63559 stalin.sc:1970:64771 */ t81878.tag = STRUCTURE_TYPE24753; t81878.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81878.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1970, 64770); out_of_memory_error();} t81878.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81878.value.structure_type24753->s0.value.fixnum_type = t81876; t81878.value.structure_type24753->s1.tag = NULL_TYPE; t81877 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81877==NULL) {backtrace("stalin.sc", 1970, 64770); out_of_memory_error();} t81877->s0.tag = FIXNUM_TYPE; t81877->s0.value.fixnum_type = t81875; t81877->s1 = t81878; t81874 = f27305(t81877); l15752: /* x63550 stalin.sc:1966:64669 */ f6300(t81873, t81874); return;} /* HEADED-VECTOR-TYPE-MARKED?[7524] */ unsigned f7524(struct w49 a21392) {struct w49 a37472; /* S */ int t81890; int t81891; int t81892; struct structure_type24753 *t81893; struct w49 t81894; struct w49 t81895; struct w49 t81896; /* x63547 stalin.sc:1962:64526 */ /* x63547 stalin.sc:1962:64526 */ /* x63546 stalin.sc:1962:64531 */ /* x63545 stalin.sc:1962:64538 */ /* x63544 stalin.sc:1962:64579 */ t81892 = 4; /* x63543 stalin.sc:1962:64547 */ /* x63542 stalin.sc:1962:64576 */ t81895 = a21392; /* x63541 stalin.sc:1962:64548 */ a37472 = t81895; /* x282557 */ /* x282556 */ t81896 = a37472; /* x282555 */ if (!((t81896.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-BOOLEANS[6299] 32389]"); structure_ref_error();} t81891 = t81896.value.structure_type27761->s7; /* x63540 stalin.sc:1962:64539 */ t81894.tag = STRUCTURE_TYPE24753; t81894.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81894.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1962, 64538); out_of_memory_error();} t81894.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81894.value.structure_type24753->s0.value.fixnum_type = t81892; t81894.value.structure_type24753->s1.tag = NULL_TYPE; t81893 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81893==NULL) {backtrace("stalin.sc", 1962, 64538); out_of_memory_error();} t81893->s0.tag = FIXNUM_TYPE; t81893->s0.value.fixnum_type = t81891; t81893->s1 = t81894; t81890 = f27305(t81893); /* x270523 stalin.sc:1962:64532 */ if (t81890==0) goto l15755; return TRUE_TYPE; l15755: return FALSE_TYPE;} /* SET-HEADED-VECTOR-TYPE-SIZE?![7495] */ void f7495(struct w49 a21369) {struct w49 a37463; /* S */ struct w49 t81897; int t81898; int t81899; int t81900; struct structure_type24753 *t81901; struct w49 t81902; struct w49 t81903; struct w49 t81904; /* x63310 */ /* x63309 stalin.sc:1899:62429 */ /* x63302 stalin.sc:1899:62437 */ /* x63301 stalin.sc:1899:62447 */ /* x270534 stalin.sc:1899:62438 */ /* x63304 */ /* x63303 */ /* x63299 */ /* x63298 stalin.sc:1900:62463 */ /* x63281 stalin.sc:1901:62499 */ t81897 = a21369; /* x63297 stalin.sc:1902:62503 */ /* x63282 stalin.sc:1902:62507 */ /* x63288 stalin.sc:1903:62516 */ /* x63287 stalin.sc:1903:62556 */ t81900 = 256; /* x63286 stalin.sc:1903:62524 */ /* x63285 stalin.sc:1903:62553 */ t81903 = a21369; /* x63284 stalin.sc:1903:62525 */ a37463 = t81903; /* x282521 */ /* x282520 */ t81904 = a37463; /* x282519 */ if (!((t81904.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-BOOLEANS[6299] 32380]"); structure_ref_error();} t81899 = t81904.value.structure_type27761->s7; /* x63283 stalin.sc:1903:62517 */ t81902.tag = STRUCTURE_TYPE24753; t81902.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81902.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1903, 62516); out_of_memory_error();} t81902.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81902.value.structure_type24753->s0.value.fixnum_type = t81900; t81902.value.structure_type24753->s1.tag = NULL_TYPE; t81901 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81901==NULL) {backtrace("stalin.sc", 1903, 62516); out_of_memory_error();} t81901->s0.tag = FIXNUM_TYPE; t81901->s0.value.fixnum_type = t81899; t81901->s1 = t81902; t81898 = f27310(t81901); /* x63280 stalin.sc:1900:62464 */ f6300(t81897, t81898); return;} /* HEADED-VECTOR-TYPE-SIZE?[7494] */ unsigned f7494(struct w49 a21368) {struct w49 a37471; /* S */ int t81905; int t81906; int t81907; struct structure_type24753 *t81908; struct w49 t81909; struct w49 t81910; struct w49 t81911; /* x63277 stalin.sc:1896:62321 */ /* x63277 stalin.sc:1896:62321 */ /* x63276 stalin.sc:1896:62326 */ /* x63275 stalin.sc:1896:62333 */ /* x63274 stalin.sc:1896:62374 */ t81907 = 256; /* x63273 stalin.sc:1896:62342 */ /* x63272 stalin.sc:1896:62371 */ t81910 = a21368; /* x63271 stalin.sc:1896:62343 */ a37471 = t81910; /* x282553 */ /* x282552 */ t81911 = a37471; /* x282551 */ if (!((t81911.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-BOOLEANS[6299] 32388]"); structure_ref_error();} t81906 = t81911.value.structure_type27761->s7; /* x63270 stalin.sc:1896:62334 */ t81909.tag = STRUCTURE_TYPE24753; t81909.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81909.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1896, 62333); out_of_memory_error();} t81909.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81909.value.structure_type24753->s0.value.fixnum_type = t81907; t81909.value.structure_type24753->s1.tag = NULL_TYPE; t81908 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81908==NULL) {backtrace("stalin.sc", 1896, 62333); out_of_memory_error();} t81908->s0.tag = FIXNUM_TYPE; t81908->s0.value.fixnum_type = t81906; t81908->s1 = t81909; t81905 = f27305(t81908); /* x270535 stalin.sc:1896:62327 */ if (t81905==0) goto l15760; return TRUE_TYPE; l15760: return FALSE_TYPE;} /* SET-HEADED-VECTOR-TYPE-ALIGNMENT&?![7490] */ void f7490(struct w49 a21365) {struct w49 a37468; /* S */ struct w49 t81912; int t81913; int t81914; int t81915; struct structure_type24753 *t81916; struct w49 t81917; struct w49 t81918; struct w49 t81919; /* x63265 */ /* x63264 stalin.sc:1888:62085 */ /* x63257 stalin.sc:1888:62093 */ /* x63256 stalin.sc:1888:62103 */ /* x270537 stalin.sc:1888:62094 */ /* x63259 */ /* x63258 */ /* x63254 */ /* x63253 stalin.sc:1889:62119 */ /* x63236 stalin.sc:1890:62155 */ t81912 = a21365; /* x63252 stalin.sc:1891:62159 */ /* x63237 stalin.sc:1891:62163 */ /* x63243 stalin.sc:1892:62172 */ /* x63242 stalin.sc:1892:62212 */ t81915 = 512; /* x63241 stalin.sc:1892:62180 */ /* x63240 stalin.sc:1892:62209 */ t81918 = a21365; /* x63239 stalin.sc:1892:62181 */ a37468 = t81918; /* x282541 */ /* x282540 */ t81919 = a37468; /* x282539 */ if (!((t81919.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-BOOLEANS[6299] 32385]"); structure_ref_error();} t81914 = t81919.value.structure_type27761->s7; /* x63238 stalin.sc:1892:62173 */ t81917.tag = STRUCTURE_TYPE24753; t81917.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81917.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1892, 62172); out_of_memory_error();} t81917.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81917.value.structure_type24753->s0.value.fixnum_type = t81915; t81917.value.structure_type24753->s1.tag = NULL_TYPE; t81916 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81916==NULL) {backtrace("stalin.sc", 1892, 62172); out_of_memory_error();} t81916->s0.tag = FIXNUM_TYPE; t81916->s0.value.fixnum_type = t81914; t81916->s1 = t81917; t81913 = f27310(t81916); /* x63235 stalin.sc:1889:62120 */ f6300(t81912, t81913); return;} /* HEADED-VECTOR-TYPE-ALIGNMENT&?[7489] */ unsigned f7489(struct w49 a21364) {struct w49 a37470; /* S */ int t81920; int t81921; int t81922; struct structure_type24753 *t81923; struct w49 t81924; struct w49 t81925; struct w49 t81926; /* x63232 stalin.sc:1885:61971 */ /* x63232 stalin.sc:1885:61971 */ /* x63231 stalin.sc:1885:61976 */ /* x63230 stalin.sc:1885:61983 */ /* x63229 stalin.sc:1885:62024 */ t81922 = 512; /* x63228 stalin.sc:1885:61992 */ /* x63227 stalin.sc:1885:62021 */ t81925 = a21364; /* x63226 stalin.sc:1885:61993 */ a37470 = t81925; /* x282549 */ /* x282548 */ t81926 = a37470; /* x282547 */ if (!((t81926.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-BOOLEANS[6299] 32387]"); structure_ref_error();} t81921 = t81926.value.structure_type27761->s7; /* x63225 stalin.sc:1885:61984 */ t81924.tag = STRUCTURE_TYPE24753; t81924.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81924.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1885, 61983); out_of_memory_error();} t81924.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81924.value.structure_type24753->s0.value.fixnum_type = t81922; t81924.value.structure_type24753->s1.tag = NULL_TYPE; t81923 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81923==NULL) {backtrace("stalin.sc", 1885, 61983); out_of_memory_error();} t81923->s0.tag = FIXNUM_TYPE; t81923->s0.value.fixnum_type = t81921; t81923->s1 = t81924; t81920 = f27305(t81923); /* x270538 stalin.sc:1885:61977 */ if (t81920==0) goto l15765; return TRUE_TYPE; l15765: return FALSE_TYPE;} /* SET-HEADED-VECTOR-TYPE-ALIGNMENT?![7485] */ void f7485(struct w49 a21361) {struct w49 a37462; /* S */ struct w49 t81927; int t81928; int t81929; int t81930; struct structure_type24753 *t81931; struct w49 t81932; struct w49 t81933; struct w49 t81934; /* x63220 */ /* x63219 stalin.sc:1877:61727 */ /* x63212 stalin.sc:1877:61735 */ /* x63211 stalin.sc:1877:61745 */ /* x270540 stalin.sc:1877:61736 */ /* x63214 */ /* x63213 */ /* x63209 */ /* x63208 stalin.sc:1878:61761 */ /* x63191 stalin.sc:1879:61797 */ t81927 = a21361; /* x63207 stalin.sc:1880:61801 */ /* x63192 stalin.sc:1880:61805 */ /* x63198 stalin.sc:1881:61814 */ /* x63197 stalin.sc:1881:61854 */ t81930 = 1024; /* x63196 stalin.sc:1881:61822 */ /* x63195 stalin.sc:1881:61851 */ t81933 = a21361; /* x63194 stalin.sc:1881:61823 */ a37462 = t81933; /* x282517 */ /* x282516 */ t81934 = a37462; /* x282515 */ if (!((t81934.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-BOOLEANS[6299] 32379]"); structure_ref_error();} t81929 = t81934.value.structure_type27761->s7; /* x63193 stalin.sc:1881:61815 */ t81932.tag = STRUCTURE_TYPE24753; t81932.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81932.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1881, 61814); out_of_memory_error();} t81932.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81932.value.structure_type24753->s0.value.fixnum_type = t81930; t81932.value.structure_type24753->s1.tag = NULL_TYPE; t81931 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81931==NULL) {backtrace("stalin.sc", 1881, 61814); out_of_memory_error();} t81931->s0.tag = FIXNUM_TYPE; t81931->s0.value.fixnum_type = t81929; t81931->s1 = t81932; t81928 = f27310(t81931); /* x63190 stalin.sc:1878:61762 */ f6300(t81927, t81928); return;} /* HEADED-VECTOR-TYPE-ALIGNMENT?[7484] */ unsigned f7484(struct w49 a21360) {struct w49 a37469; /* S */ int t81935; int t81936; int t81937; struct structure_type24753 *t81938; struct w49 t81939; struct w49 t81940; struct w49 t81941; /* x63187 stalin.sc:1874:61613 */ /* x63187 stalin.sc:1874:61613 */ /* x63186 stalin.sc:1874:61618 */ /* x63185 stalin.sc:1874:61625 */ /* x63184 stalin.sc:1874:61666 */ t81937 = 1024; /* x63183 stalin.sc:1874:61634 */ /* x63182 stalin.sc:1874:61663 */ t81940 = a21360; /* x63181 stalin.sc:1874:61635 */ a37469 = t81940; /* x282545 */ /* x282544 */ t81941 = a37469; /* x282543 */ if (!((t81941.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-BOOLEANS[6299] 32386]"); structure_ref_error();} t81936 = t81941.value.structure_type27761->s7; /* x63180 stalin.sc:1874:61626 */ t81939.tag = STRUCTURE_TYPE24753; t81939.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81939.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1874, 61625); out_of_memory_error();} t81939.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81939.value.structure_type24753->s0.value.fixnum_type = t81937; t81939.value.structure_type24753->s1.tag = NULL_TYPE; t81938 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81938==NULL) {backtrace("stalin.sc", 1874, 61625); out_of_memory_error();} t81938->s0.tag = FIXNUM_TYPE; t81938->s0.value.fixnum_type = t81936; t81938->s1 = t81939; t81935 = f27305(t81938); /* x270541 stalin.sc:1874:61619 */ if (t81935==0) goto l15770; return TRUE_TYPE; l15770: return FALSE_TYPE;} /* SET-STRUCTURE-TYPE-ATOMIC?![7480] */ void f7480(struct w49 a21357, unsigned a21358) {int a34814; /* N */ struct w49 a37575; /* S */ struct w49 a37595; /* S */ struct w49 t81942; int t81943; int t81944; int t81945; struct structure_type24753 *t81946; struct w49 t81947; struct w49 t81948; struct w49 t81949; int t81950; int t81951; int t81952; int t81953; struct structure_type24753 *t81954; struct w49 t81955; struct w49 t81956; struct w49 t81957; unsigned t81958; /* x63175 */ /* x63174 stalin.sc:1866:61388 */ /* x63167 stalin.sc:1866:61396 */ /* x63166 stalin.sc:1866:61406 */ t81958 = a21358; /* x270543 stalin.sc:1866:61397 */ /* x63169 */ /* x63168 */ /* x63164 */ /* x63163 stalin.sc:1867:61422 */ /* x63146 stalin.sc:1868:61454 */ t81942 = a21357; /* x63162 stalin.sc:1869:61458 */ /* x63147 stalin.sc:1869:61462 */ if (a21358==FALSE_TYPE) goto l15773; /* x63153 stalin.sc:1870:61471 */ /* x63152 stalin.sc:1870:61507 */ t81953 = 1; /* x63151 stalin.sc:1870:61479 */ /* x63150 stalin.sc:1870:61504 */ t81956 = a21357; /* x63149 stalin.sc:1870:61480 */ a37595 = t81956; /* x283049 */ /* x283048 */ t81957 = a37595; /* x283047 */ if (!((t81957.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32512]"); structure_ref_error();} t81952 = t81957.value.structure_type27769->s8; /* x63148 stalin.sc:1870:61472 */ t81955.tag = STRUCTURE_TYPE24753; t81955.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81955.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1870, 61471); out_of_memory_error();} t81955.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81955.value.structure_type24753->s0.value.fixnum_type = t81953; t81955.value.structure_type24753->s1.tag = NULL_TYPE; t81954 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81954==NULL) {backtrace("stalin.sc", 1870, 61471); out_of_memory_error();} t81954->s0.tag = FIXNUM_TYPE; t81954->s0.value.fixnum_type = t81952; t81954->s1 = t81955; t81943 = f27310(t81954); goto l15774; l15773: /* x63161 stalin.sc:1871:61516 */ /* x63160 stalin.sc:1871:61553 */ /* x63159 stalin.sc:1871:61562 */ t81950 = 1; /* x63158 stalin.sc:1871:61554 */ a34814 = t81950; /* x271541 */ /* x271540 */ t81951 = a34814; /* x271539 */ t81945 = ~t81951; /* x63157 stalin.sc:1871:61525 */ /* x63156 stalin.sc:1871:61550 */ t81948 = a21357; /* x63155 stalin.sc:1871:61526 */ a37575 = t81948; /* x282969 */ /* x282968 */ t81949 = a37575; /* x282967 */ if (!((t81949.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32492]"); structure_ref_error();} t81944 = t81949.value.structure_type27769->s8; /* x63154 stalin.sc:1871:61517 */ t81947.tag = STRUCTURE_TYPE24753; t81947.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81947.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1871, 61516); out_of_memory_error();} t81947.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81947.value.structure_type24753->s0.value.fixnum_type = t81945; t81947.value.structure_type24753->s1.tag = NULL_TYPE; t81946 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81946==NULL) {backtrace("stalin.sc", 1871, 61516); out_of_memory_error();} t81946->s0.tag = FIXNUM_TYPE; t81946->s0.value.fixnum_type = t81944; t81946->s1 = t81947; t81943 = f27305(t81946); l15774: /* x63145 stalin.sc:1867:61423 */ f6234(t81942, t81943); return;} /* SET-STRUCTURE-TYPE-FICTITIOUS?![7475] */ void f7475(struct w49 a21353, unsigned a21354) {int a34851; /* N */ struct w49 a37591; /* S */ struct w49 a37592; /* S */ struct w49 t81959; int t81960; int t81961; int t81962; struct structure_type24753 *t81963; struct w49 t81964; struct w49 t81965; struct w49 t81966; int t81967; int t81968; int t81969; int t81970; struct structure_type24753 *t81971; struct w49 t81972; struct w49 t81973; struct w49 t81974; unsigned t81975; /* x63130 */ /* x63129 stalin.sc:1855:61070 */ /* x63122 stalin.sc:1855:61078 */ /* x63121 stalin.sc:1855:61088 */ t81975 = a21354; /* x270546 stalin.sc:1855:61079 */ /* x63124 */ /* x63123 */ /* x63119 */ /* x63118 stalin.sc:1856:61104 */ /* x63101 stalin.sc:1857:61136 */ t81959 = a21353; /* x63117 stalin.sc:1858:61140 */ /* x63102 stalin.sc:1858:61144 */ if (a21354==FALSE_TYPE) goto l15777; /* x63108 stalin.sc:1859:61153 */ /* x63107 stalin.sc:1859:61189 */ t81970 = 2; /* x63106 stalin.sc:1859:61161 */ /* x63105 stalin.sc:1859:61186 */ t81973 = a21353; /* x63104 stalin.sc:1859:61162 */ a37591 = t81973; /* x283033 */ /* x283032 */ t81974 = a37591; /* x283031 */ if (!((t81974.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32508]"); structure_ref_error();} t81969 = t81974.value.structure_type27769->s8; /* x63103 stalin.sc:1859:61154 */ t81972.tag = STRUCTURE_TYPE24753; t81972.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81972.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1859, 61153); out_of_memory_error();} t81972.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81972.value.structure_type24753->s0.value.fixnum_type = t81970; t81972.value.structure_type24753->s1.tag = NULL_TYPE; t81971 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81971==NULL) {backtrace("stalin.sc", 1859, 61153); out_of_memory_error();} t81971->s0.tag = FIXNUM_TYPE; t81971->s0.value.fixnum_type = t81969; t81971->s1 = t81972; t81960 = f27310(t81971); goto l15778; l15777: /* x63116 stalin.sc:1860:61198 */ /* x63115 stalin.sc:1860:61235 */ /* x63114 stalin.sc:1860:61244 */ t81967 = 2; /* x63113 stalin.sc:1860:61236 */ a34851 = t81967; /* x271689 */ /* x271688 */ t81968 = a34851; /* x271687 */ t81962 = ~t81968; /* x63112 stalin.sc:1860:61207 */ /* x63111 stalin.sc:1860:61232 */ t81965 = a21353; /* x63110 stalin.sc:1860:61208 */ a37592 = t81965; /* x283037 */ /* x283036 */ t81966 = a37592; /* x283035 */ if (!((t81966.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32509]"); structure_ref_error();} t81961 = t81966.value.structure_type27769->s8; /* x63109 stalin.sc:1860:61199 */ t81964.tag = STRUCTURE_TYPE24753; t81964.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81964.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1860, 61198); out_of_memory_error();} t81964.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81964.value.structure_type24753->s0.value.fixnum_type = t81962; t81964.value.structure_type24753->s1.tag = NULL_TYPE; t81963 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81963==NULL) {backtrace("stalin.sc", 1860, 61198); out_of_memory_error();} t81963->s0.tag = FIXNUM_TYPE; t81963->s0.value.fixnum_type = t81961; t81963->s1 = t81964; t81960 = f27305(t81963); l15778: /* x63100 stalin.sc:1856:61105 */ f6234(t81959, t81960); return;} /* SET-STRUCTURE-TYPE-MARKED?![7465] */ void f7465(struct w49 a21345, unsigned a21346) {int a34845; /* N */ struct w49 a37579; /* S */ struct w49 a37590; /* S */ struct w49 t81976; int t81977; int t81978; int t81979; struct structure_type24753 *t81980; struct w49 t81981; struct w49 t81982; struct w49 t81983; int t81984; int t81985; int t81986; int t81987; struct structure_type24753 *t81988; struct w49 t81989; struct w49 t81990; struct w49 t81991; unsigned t81992; /* x63040 */ /* x63039 stalin.sc:1833:60430 */ /* x63032 stalin.sc:1833:60438 */ /* x63031 stalin.sc:1833:60448 */ t81992 = a21346; /* x270552 stalin.sc:1833:60439 */ /* x63034 */ /* x63033 */ /* x63029 */ /* x63028 stalin.sc:1834:60464 */ /* x63011 stalin.sc:1835:60496 */ t81976 = a21345; /* x63027 stalin.sc:1836:60500 */ /* x63012 stalin.sc:1836:60504 */ if (a21346==FALSE_TYPE) goto l15781; /* x63018 stalin.sc:1837:60513 */ /* x63017 stalin.sc:1837:60549 */ t81987 = 8; /* x63016 stalin.sc:1837:60521 */ /* x63015 stalin.sc:1837:60546 */ t81990 = a21345; /* x63014 stalin.sc:1837:60522 */ a37579 = t81990; /* x282985 */ /* x282984 */ t81991 = a37579; /* x282983 */ if (!((t81991.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32496]"); structure_ref_error();} t81986 = t81991.value.structure_type27769->s8; /* x63013 stalin.sc:1837:60514 */ t81989.tag = STRUCTURE_TYPE24753; t81989.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81989.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1837, 60513); out_of_memory_error();} t81989.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81989.value.structure_type24753->s0.value.fixnum_type = t81987; t81989.value.structure_type24753->s1.tag = NULL_TYPE; t81988 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81988==NULL) {backtrace("stalin.sc", 1837, 60513); out_of_memory_error();} t81988->s0.tag = FIXNUM_TYPE; t81988->s0.value.fixnum_type = t81986; t81988->s1 = t81989; t81977 = f27310(t81988); goto l15782; l15781: /* x63026 stalin.sc:1838:60558 */ /* x63025 stalin.sc:1838:60595 */ /* x63024 stalin.sc:1838:60604 */ t81984 = 8; /* x63023 stalin.sc:1838:60596 */ a34845 = t81984; /* x271665 */ /* x271664 */ t81985 = a34845; /* x271663 */ t81979 = ~t81985; /* x63022 stalin.sc:1838:60567 */ /* x63021 stalin.sc:1838:60592 */ t81982 = a21345; /* x63020 stalin.sc:1838:60568 */ a37590 = t81982; /* x283029 */ /* x283028 */ t81983 = a37590; /* x283027 */ if (!((t81983.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32507]"); structure_ref_error();} t81978 = t81983.value.structure_type27769->s8; /* x63019 stalin.sc:1838:60559 */ t81981.tag = STRUCTURE_TYPE24753; t81981.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81981.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1838, 60558); out_of_memory_error();} t81981.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81981.value.structure_type24753->s0.value.fixnum_type = t81979; t81981.value.structure_type24753->s1.tag = NULL_TYPE; t81980 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81980==NULL) {backtrace("stalin.sc", 1838, 60558); out_of_memory_error();} t81980->s0.tag = FIXNUM_TYPE; t81980->s0.value.fixnum_type = t81978; t81980->s1 = t81981; t81977 = f27305(t81980); l15782: /* x63010 stalin.sc:1834:60465 */ f6234(t81976, t81977); return;} /* STRUCTURE-TYPE-MARKED?[7464] */ unsigned f7464(struct w49 a21344) {struct w49 a37589; /* S */ int t81993; int t81994; int t81995; struct structure_type24753 *t81996; struct w49 t81997; struct w49 t81998; struct w49 t81999; /* x63007 stalin.sc:1830:60330 */ /* x63007 stalin.sc:1830:60330 */ /* x63006 stalin.sc:1830:60335 */ /* x63005 stalin.sc:1830:60342 */ /* x63004 stalin.sc:1830:60379 */ t81995 = 8; /* x63003 stalin.sc:1830:60351 */ /* x63002 stalin.sc:1830:60376 */ t81998 = a21344; /* x63001 stalin.sc:1830:60352 */ a37589 = t81998; /* x283025 */ /* x283024 */ t81999 = a37589; /* x283023 */ if (!((t81999.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32506]"); structure_ref_error();} t81994 = t81999.value.structure_type27769->s8; /* x63000 stalin.sc:1830:60343 */ t81997.tag = STRUCTURE_TYPE24753; t81997.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t81997.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1830, 60342); out_of_memory_error();} t81997.value.structure_type24753->s0.tag = FIXNUM_TYPE; t81997.value.structure_type24753->s0.value.fixnum_type = t81995; t81997.value.structure_type24753->s1.tag = NULL_TYPE; t81996 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t81996==NULL) {backtrace("stalin.sc", 1830, 60342); out_of_memory_error();} t81996->s0.tag = FIXNUM_TYPE; t81996->s0.value.fixnum_type = t81994; t81996->s1 = t81997; t81993 = f27305(t81996); /* x270553 stalin.sc:1830:60336 */ if (t81993==0) goto l15785; return TRUE_TYPE; l15785: return FALSE_TYPE;} /* SET-STRUCTURE-TYPE-SIZE?![7445] */ void f7445(struct w49 a21329) {struct w49 a37576; /* S */ struct w49 t82000; int t82001; int t82002; int t82003; struct structure_type24753 *t82004; struct w49 t82005; struct w49 t82006; struct w49 t82007; /* x62860 */ /* x62859 stalin.sc:1789:59069 */ /* x62852 stalin.sc:1789:59077 */ /* x62851 stalin.sc:1789:59087 */ /* x270560 stalin.sc:1789:59078 */ /* x62854 */ /* x62853 */ /* x62849 */ /* x62848 stalin.sc:1790:59103 */ /* x62831 stalin.sc:1791:59135 */ t82000 = a21329; /* x62847 stalin.sc:1792:59139 */ /* x62832 stalin.sc:1792:59143 */ /* x62838 stalin.sc:1793:59152 */ /* x62837 stalin.sc:1793:59188 */ t82003 = 128; /* x62836 stalin.sc:1793:59160 */ /* x62835 stalin.sc:1793:59185 */ t82006 = a21329; /* x62834 stalin.sc:1793:59161 */ a37576 = t82006; /* x282973 */ /* x282972 */ t82007 = a37576; /* x282971 */ if (!((t82007.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32493]"); structure_ref_error();} t82002 = t82007.value.structure_type27769->s8; /* x62833 stalin.sc:1793:59153 */ t82005.tag = STRUCTURE_TYPE24753; t82005.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82005.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1793, 59152); out_of_memory_error();} t82005.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82005.value.structure_type24753->s0.value.fixnum_type = t82003; t82005.value.structure_type24753->s1.tag = NULL_TYPE; t82004 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82004==NULL) {backtrace("stalin.sc", 1793, 59152); out_of_memory_error();} t82004->s0.tag = FIXNUM_TYPE; t82004->s0.value.fixnum_type = t82002; t82004->s1 = t82005; t82001 = f27310(t82004); /* x62830 stalin.sc:1790:59104 */ f6234(t82000, t82001); return;} /* STRUCTURE-TYPE-SIZE?[7444] */ unsigned f7444(struct w49 a21328) {struct w49 a37588; /* S */ int t82008; int t82009; int t82010; struct structure_type24753 *t82011; struct w49 t82012; struct w49 t82013; struct w49 t82014; /* x62827 stalin.sc:1786:58969 */ /* x62827 stalin.sc:1786:58969 */ /* x62826 stalin.sc:1786:58974 */ /* x62825 stalin.sc:1786:58981 */ /* x62824 stalin.sc:1786:59018 */ t82010 = 128; /* x62823 stalin.sc:1786:58990 */ /* x62822 stalin.sc:1786:59015 */ t82013 = a21328; /* x62821 stalin.sc:1786:58991 */ a37588 = t82013; /* x283021 */ /* x283020 */ t82014 = a37588; /* x283019 */ if (!((t82014.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32505]"); structure_ref_error();} t82009 = t82014.value.structure_type27769->s8; /* x62820 stalin.sc:1786:58982 */ t82012.tag = STRUCTURE_TYPE24753; t82012.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82012.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1786, 58981); out_of_memory_error();} t82012.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82012.value.structure_type24753->s0.value.fixnum_type = t82010; t82012.value.structure_type24753->s1.tag = NULL_TYPE; t82011 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82011==NULL) {backtrace("stalin.sc", 1786, 58981); out_of_memory_error();} t82011->s0.tag = FIXNUM_TYPE; t82011->s0.value.fixnum_type = t82009; t82011->s1 = t82012; t82008 = f27305(t82011); /* x270561 stalin.sc:1786:58975 */ if (t82008==0) goto l15790; return TRUE_TYPE; l15790: return FALSE_TYPE;} /* SET-STRUCTURE-TYPE-ALIGNMENT&?![7440] */ void f7440(struct w49 a21325) {struct w49 a37582; /* S */ struct w49 t82015; int t82016; int t82017; int t82018; struct structure_type24753 *t82019; struct w49 t82020; struct w49 t82021; struct w49 t82022; /* x62815 */ /* x62814 stalin.sc:1778:58749 */ /* x62807 stalin.sc:1778:58757 */ /* x62806 stalin.sc:1778:58767 */ /* x270563 stalin.sc:1778:58758 */ /* x62809 */ /* x62808 */ /* x62804 */ /* x62803 stalin.sc:1779:58783 */ /* x62786 stalin.sc:1780:58815 */ t82015 = a21325; /* x62802 stalin.sc:1781:58819 */ /* x62787 stalin.sc:1781:58823 */ /* x62793 stalin.sc:1782:58832 */ /* x62792 stalin.sc:1782:58868 */ t82018 = 256; /* x62791 stalin.sc:1782:58840 */ /* x62790 stalin.sc:1782:58865 */ t82021 = a21325; /* x62789 stalin.sc:1782:58841 */ a37582 = t82021; /* x282997 */ /* x282996 */ t82022 = a37582; /* x282995 */ if (!((t82022.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32499]"); structure_ref_error();} t82017 = t82022.value.structure_type27769->s8; /* x62788 stalin.sc:1782:58833 */ t82020.tag = STRUCTURE_TYPE24753; t82020.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82020.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1782, 58832); out_of_memory_error();} t82020.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82020.value.structure_type24753->s0.value.fixnum_type = t82018; t82020.value.structure_type24753->s1.tag = NULL_TYPE; t82019 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82019==NULL) {backtrace("stalin.sc", 1782, 58832); out_of_memory_error();} t82019->s0.tag = FIXNUM_TYPE; t82019->s0.value.fixnum_type = t82017; t82019->s1 = t82020; t82016 = f27310(t82019); /* x62785 stalin.sc:1779:58784 */ f6234(t82015, t82016); return;} /* STRUCTURE-TYPE-ALIGNMENT&?[7439] */ unsigned f7439(struct w49 a21324) {struct w49 a37587; /* S */ int t82023; int t82024; int t82025; struct structure_type24753 *t82026; struct w49 t82027; struct w49 t82028; struct w49 t82029; /* x62782 stalin.sc:1775:58643 */ /* x62782 stalin.sc:1775:58643 */ /* x62781 stalin.sc:1775:58648 */ /* x62780 stalin.sc:1775:58655 */ /* x62779 stalin.sc:1775:58692 */ t82025 = 256; /* x62778 stalin.sc:1775:58664 */ /* x62777 stalin.sc:1775:58689 */ t82028 = a21324; /* x62776 stalin.sc:1775:58665 */ a37587 = t82028; /* x283017 */ /* x283016 */ t82029 = a37587; /* x283015 */ if (!((t82029.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32504]"); structure_ref_error();} t82024 = t82029.value.structure_type27769->s8; /* x62775 stalin.sc:1775:58656 */ t82027.tag = STRUCTURE_TYPE24753; t82027.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82027.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1775, 58655); out_of_memory_error();} t82027.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82027.value.structure_type24753->s0.value.fixnum_type = t82025; t82027.value.structure_type24753->s1.tag = NULL_TYPE; t82026 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82026==NULL) {backtrace("stalin.sc", 1775, 58655); out_of_memory_error();} t82026->s0.tag = FIXNUM_TYPE; t82026->s0.value.fixnum_type = t82024; t82026->s1 = t82027; t82023 = f27305(t82026); /* x270564 stalin.sc:1775:58649 */ if (t82023==0) goto l15795; return TRUE_TYPE; l15795: return FALSE_TYPE;} /* SET-STRUCTURE-TYPE-ALIGNMENT?![7435] */ void f7435(struct w49 a21321) {struct w49 a37577; /* S */ struct w49 t82030; int t82031; int t82032; int t82033; struct structure_type24753 *t82034; struct w49 t82035; struct w49 t82036; struct w49 t82037; /* x62770 */ /* x62769 stalin.sc:1767:58417 */ /* x62762 stalin.sc:1767:58425 */ /* x62761 stalin.sc:1767:58435 */ /* x270566 stalin.sc:1767:58426 */ /* x62764 */ /* x62763 */ /* x62759 */ /* x62758 stalin.sc:1768:58451 */ /* x62741 stalin.sc:1769:58483 */ t82030 = a21321; /* x62757 stalin.sc:1770:58487 */ /* x62742 stalin.sc:1770:58491 */ /* x62748 stalin.sc:1771:58500 */ /* x62747 stalin.sc:1771:58536 */ t82033 = 512; /* x62746 stalin.sc:1771:58508 */ /* x62745 stalin.sc:1771:58533 */ t82036 = a21321; /* x62744 stalin.sc:1771:58509 */ a37577 = t82036; /* x282977 */ /* x282976 */ t82037 = a37577; /* x282975 */ if (!((t82037.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32494]"); structure_ref_error();} t82032 = t82037.value.structure_type27769->s8; /* x62743 stalin.sc:1771:58501 */ t82035.tag = STRUCTURE_TYPE24753; t82035.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82035.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1771, 58500); out_of_memory_error();} t82035.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82035.value.structure_type24753->s0.value.fixnum_type = t82033; t82035.value.structure_type24753->s1.tag = NULL_TYPE; t82034 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82034==NULL) {backtrace("stalin.sc", 1771, 58500); out_of_memory_error();} t82034->s0.tag = FIXNUM_TYPE; t82034->s0.value.fixnum_type = t82032; t82034->s1 = t82035; t82031 = f27310(t82034); /* x62740 stalin.sc:1768:58452 */ f6234(t82030, t82031); return;} /* STRUCTURE-TYPE-ALIGNMENT?[7434] */ unsigned f7434(struct w49 a21320) {struct w49 a37586; /* S */ int t82038; int t82039; int t82040; struct structure_type24753 *t82041; struct w49 t82042; struct w49 t82043; struct w49 t82044; /* x62737 stalin.sc:1764:58312 */ /* x62737 stalin.sc:1764:58312 */ /* x62736 stalin.sc:1764:58317 */ /* x62735 stalin.sc:1764:58324 */ /* x62734 stalin.sc:1764:58361 */ t82040 = 512; /* x62733 stalin.sc:1764:58333 */ /* x62732 stalin.sc:1764:58358 */ t82043 = a21320; /* x62731 stalin.sc:1764:58334 */ a37586 = t82043; /* x283013 */ /* x283012 */ t82044 = a37586; /* x283011 */ if (!((t82044.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32503]"); structure_ref_error();} t82039 = t82044.value.structure_type27769->s8; /* x62730 stalin.sc:1764:58325 */ t82042.tag = STRUCTURE_TYPE24753; t82042.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82042.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1764, 58324); out_of_memory_error();} t82042.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82042.value.structure_type24753->s0.value.fixnum_type = t82040; t82042.value.structure_type24753->s1.tag = NULL_TYPE; t82041 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82041==NULL) {backtrace("stalin.sc", 1764, 58324); out_of_memory_error();} t82041->s0.tag = FIXNUM_TYPE; t82041->s0.value.fixnum_type = t82039; t82041->s1 = t82042; t82038 = f27305(t82041); /* x270567 stalin.sc:1764:58318 */ if (t82038==0) goto l15800; return TRUE_TYPE; l15800: return FALSE_TYPE;} /* SET-STRUCTURE-TYPE-IMMEDIATE?![7430] */ void f7430(struct w49 a21317, unsigned a21318) {int a34815; /* N */ struct w49 a37584; /* S */ struct w49 a37585; /* S */ struct w49 t82045; int t82046; int t82047; int t82048; struct structure_type24753 *t82049; struct w49 t82050; struct w49 t82051; struct w49 t82052; int t82053; int t82054; int t82055; int t82056; struct structure_type24753 *t82057; struct w49 t82058; struct w49 t82059; struct w49 t82060; unsigned t82061; /* x62725 */ /* x62724 stalin.sc:1756:58085 */ /* x62717 stalin.sc:1756:58093 */ /* x62716 stalin.sc:1756:58103 */ t82061 = a21318; /* x270569 stalin.sc:1756:58094 */ /* x62719 */ /* x62718 */ /* x62714 */ /* x62713 stalin.sc:1757:58119 */ /* x62696 stalin.sc:1758:58151 */ t82045 = a21317; /* x62712 stalin.sc:1759:58155 */ /* x62697 stalin.sc:1759:58159 */ if (a21318==FALSE_TYPE) goto l15803; /* x62703 stalin.sc:1760:58168 */ /* x62702 stalin.sc:1760:58204 */ t82056 = 1024; /* x62701 stalin.sc:1760:58176 */ /* x62700 stalin.sc:1760:58201 */ t82059 = a21317; /* x62699 stalin.sc:1760:58177 */ a37584 = t82059; /* x283005 */ /* x283004 */ t82060 = a37584; /* x283003 */ if (!((t82060.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32501]"); structure_ref_error();} t82055 = t82060.value.structure_type27769->s8; /* x62698 stalin.sc:1760:58169 */ t82058.tag = STRUCTURE_TYPE24753; t82058.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82058.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1760, 58168); out_of_memory_error();} t82058.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82058.value.structure_type24753->s0.value.fixnum_type = t82056; t82058.value.structure_type24753->s1.tag = NULL_TYPE; t82057 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82057==NULL) {backtrace("stalin.sc", 1760, 58168); out_of_memory_error();} t82057->s0.tag = FIXNUM_TYPE; t82057->s0.value.fixnum_type = t82055; t82057->s1 = t82058; t82046 = f27310(t82057); goto l15804; l15803: /* x62711 stalin.sc:1761:58216 */ /* x62710 stalin.sc:1761:58253 */ /* x62709 stalin.sc:1761:58262 */ t82053 = 1024; /* x62708 stalin.sc:1761:58254 */ a34815 = t82053; /* x271545 */ /* x271544 */ t82054 = a34815; /* x271543 */ t82048 = ~t82054; /* x62707 stalin.sc:1761:58225 */ /* x62706 stalin.sc:1761:58250 */ t82051 = a21317; /* x62705 stalin.sc:1761:58226 */ a37585 = t82051; /* x283009 */ /* x283008 */ t82052 = a37585; /* x283007 */ if (!((t82052.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32502]"); structure_ref_error();} t82047 = t82052.value.structure_type27769->s8; /* x62704 stalin.sc:1761:58217 */ t82050.tag = STRUCTURE_TYPE24753; t82050.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82050.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1761, 58216); out_of_memory_error();} t82050.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82050.value.structure_type24753->s0.value.fixnum_type = t82048; t82050.value.structure_type24753->s1.tag = NULL_TYPE; t82049 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82049==NULL) {backtrace("stalin.sc", 1761, 58216); out_of_memory_error();} t82049->s0.tag = FIXNUM_TYPE; t82049->s0.value.fixnum_type = t82047; t82049->s1 = t82050; t82046 = f27305(t82049); l15804: /* x62695 stalin.sc:1757:58120 */ f6234(t82045, t82046); return;} /* STRUCTURE-TYPE-IMMEDIATE?[7429] */ unsigned f7429(struct w49 a21316) {struct w49 a37596; /* S */ int t82062; int t82063; int t82064; struct structure_type24753 *t82065; struct w49 t82066; struct w49 t82067; struct w49 t82068; /* x62692 stalin.sc:1753:57979 */ /* x62692 stalin.sc:1753:57979 */ /* x62691 stalin.sc:1753:57984 */ /* x62690 stalin.sc:1753:57991 */ /* x62689 stalin.sc:1753:58028 */ t82064 = 1024; /* x62688 stalin.sc:1753:58000 */ /* x62687 stalin.sc:1753:58025 */ t82067 = a21316; /* x62686 stalin.sc:1753:58001 */ a37596 = t82067; /* x283053 */ /* x283052 */ t82068 = a37596; /* x283051 */ if (!((t82068.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-BOOLEANS[6233] 32513]"); structure_ref_error();} t82063 = t82068.value.structure_type27769->s8; /* x62685 stalin.sc:1753:57992 */ t82066.tag = STRUCTURE_TYPE24753; t82066.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82066.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1753, 57991); out_of_memory_error();} t82066.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82066.value.structure_type24753->s0.value.fixnum_type = t82064; t82066.value.structure_type24753->s1.tag = NULL_TYPE; t82065 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82065==NULL) {backtrace("stalin.sc", 1753, 57991); out_of_memory_error();} t82065->s0.tag = FIXNUM_TYPE; t82065->s0.value.fixnum_type = t82063; t82065->s1 = t82066; t82062 = f27305(t82065); /* x270570 stalin.sc:1753:57985 */ if (t82062==0) goto l15807; return TRUE_TYPE; l15807: return FALSE_TYPE;} /* SET-STRING-TYPE-MARKED?![7420] */ void f7420(struct w49 a21309, unsigned a21310) {int a34844; /* N */ struct w49 a37721; /* S */ struct w49 a37724; /* S */ struct w49 t82069; int t82070; int t82071; int t82072; struct structure_type24753 *t82073; struct w49 t82074; struct w49 t82075; struct w49 t82076; int t82077; int t82078; int t82079; int t82080; struct structure_type24753 *t82081; struct w49 t82082; struct w49 t82083; struct w49 t82084; unsigned t82085; /* x62635 */ /* x62634 stalin.sc:1734:57471 */ /* x62627 stalin.sc:1734:57479 */ /* x62626 stalin.sc:1734:57489 */ t82085 = a21310; /* x270575 stalin.sc:1734:57480 */ /* x62629 */ /* x62628 */ /* x62624 */ /* x62623 stalin.sc:1735:57505 */ /* x62606 stalin.sc:1736:57534 */ t82069 = a21309; /* x62622 stalin.sc:1737:57538 */ /* x62607 stalin.sc:1737:57542 */ if (a21310==FALSE_TYPE) goto l15810; /* x62613 stalin.sc:1738:57551 */ /* x62612 stalin.sc:1738:57584 */ t82080 = 2; /* x62611 stalin.sc:1738:57559 */ /* x62610 stalin.sc:1738:57581 */ t82083 = a21309; /* x62609 stalin.sc:1738:57560 */ a37721 = t82083; /* x283553 */ /* x283552 */ t82084 = a37721; /* x283551 */ if (!((t82084.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-BOOLEANS[6159] 32638]"); structure_ref_error();} t82079 = t82084.value.structure_type27673->s6; /* x62608 stalin.sc:1738:57552 */ t82082.tag = STRUCTURE_TYPE24753; t82082.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82082.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1738, 57551); out_of_memory_error();} t82082.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82082.value.structure_type24753->s0.value.fixnum_type = t82080; t82082.value.structure_type24753->s1.tag = NULL_TYPE; t82081 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82081==NULL) {backtrace("stalin.sc", 1738, 57551); out_of_memory_error();} t82081->s0.tag = FIXNUM_TYPE; t82081->s0.value.fixnum_type = t82079; t82081->s1 = t82082; t82070 = f27310(t82081); goto l15811; l15810: /* x62621 stalin.sc:1739:57593 */ /* x62620 stalin.sc:1739:57627 */ /* x62619 stalin.sc:1739:57636 */ t82077 = 2; /* x62618 stalin.sc:1739:57628 */ a34844 = t82077; /* x271661 */ /* x271660 */ t82078 = a34844; /* x271659 */ t82072 = ~t82078; /* x62617 stalin.sc:1739:57602 */ /* x62616 stalin.sc:1739:57624 */ t82075 = a21309; /* x62615 stalin.sc:1739:57603 */ a37724 = t82075; /* x283565 */ /* x283564 */ t82076 = a37724; /* x283563 */ if (!((t82076.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-BOOLEANS[6159] 32641]"); structure_ref_error();} t82071 = t82076.value.structure_type27673->s6; /* x62614 stalin.sc:1739:57594 */ t82074.tag = STRUCTURE_TYPE24753; t82074.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82074.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1739, 57593); out_of_memory_error();} t82074.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82074.value.structure_type24753->s0.value.fixnum_type = t82072; t82074.value.structure_type24753->s1.tag = NULL_TYPE; t82073 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82073==NULL) {backtrace("stalin.sc", 1739, 57593); out_of_memory_error();} t82073->s0.tag = FIXNUM_TYPE; t82073->s0.value.fixnum_type = t82071; t82073->s1 = t82074; t82070 = f27305(t82073); l15811: /* x62605 stalin.sc:1735:57506 */ f6160(t82069, t82070); return;} /* STRING-TYPE-MARKED?[7419] */ unsigned f7419(struct w49 a21308) {struct w49 a37722; /* S */ int t82086; int t82087; int t82088; struct structure_type24753 *t82089; struct w49 t82090; struct w49 t82091; struct w49 t82092; /* x62602 stalin.sc:1731:57377 */ /* x62602 stalin.sc:1731:57377 */ /* x62601 stalin.sc:1731:57382 */ /* x62600 stalin.sc:1731:57389 */ /* x62599 stalin.sc:1731:57423 */ t82088 = 2; /* x62598 stalin.sc:1731:57398 */ /* x62597 stalin.sc:1731:57420 */ t82091 = a21308; /* x62596 stalin.sc:1731:57399 */ a37722 = t82091; /* x283557 */ /* x283556 */ t82092 = a37722; /* x283555 */ if (!((t82092.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-BOOLEANS[6159] 32639]"); structure_ref_error();} t82087 = t82092.value.structure_type27673->s6; /* x62595 stalin.sc:1731:57390 */ t82090.tag = STRUCTURE_TYPE24753; t82090.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82090.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1731, 57389); out_of_memory_error();} t82090.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82090.value.structure_type24753->s0.value.fixnum_type = t82088; t82090.value.structure_type24753->s1.tag = NULL_TYPE; t82089 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82089==NULL) {backtrace("stalin.sc", 1731, 57389); out_of_memory_error();} t82089->s0.tag = FIXNUM_TYPE; t82089->s0.value.fixnum_type = t82087; t82089->s1 = t82090; t82086 = f27305(t82089); /* x270576 stalin.sc:1731:57383 */ if (t82086==0) goto l15814; return TRUE_TYPE; l15814: return FALSE_TYPE;} /* SET-CONTINUATION-TYPE-FICTITIOUS?![7390] */ void f7390(struct w49 a21285, unsigned a21286) {int a34853; /* N */ struct w49 a37795; /* S */ struct w49 a37796; /* S */ struct w49 t82093; int t82094; int t82095; int t82096; struct structure_type24753 *t82097; struct w49 t82098; struct w49 t82099; struct w49 t82100; int t82101; int t82102; int t82103; int t82104; struct structure_type24753 *t82105; struct w49 t82106; struct w49 t82107; struct w49 t82108; unsigned t82109; /* x62365 */ /* x62364 stalin.sc:1668:55510 */ /* x62357 stalin.sc:1668:55518 */ /* x62356 stalin.sc:1668:55528 */ t82109 = a21286; /* x270585 stalin.sc:1668:55519 */ /* x62359 */ /* x62358 */ /* x62354 */ /* x62353 stalin.sc:1669:55544 */ /* x62336 stalin.sc:1670:55579 */ t82093 = a21285; /* x62352 stalin.sc:1671:55583 */ /* x62337 stalin.sc:1671:55587 */ if (a21286==FALSE_TYPE) goto l15817; /* x62343 stalin.sc:1672:55596 */ /* x62342 stalin.sc:1672:55635 */ t82104 = 1; /* x62341 stalin.sc:1672:55604 */ /* x62340 stalin.sc:1672:55632 */ t82107 = a21285; /* x62339 stalin.sc:1672:55605 */ a37795 = t82107; /* x283849 */ /* x283848 */ t82108 = a37795; /* x283847 */ if (!((t82108.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-BOOLEANS[6101] 32712]"); structure_ref_error();} t82103 = t82108.value.structure_type27858->s5; /* x62338 stalin.sc:1672:55597 */ t82106.tag = STRUCTURE_TYPE24753; t82106.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82106.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1672, 55596); out_of_memory_error();} t82106.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82106.value.structure_type24753->s0.value.fixnum_type = t82104; t82106.value.structure_type24753->s1.tag = NULL_TYPE; t82105 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82105==NULL) {backtrace("stalin.sc", 1672, 55596); out_of_memory_error();} t82105->s0.tag = FIXNUM_TYPE; t82105->s0.value.fixnum_type = t82103; t82105->s1 = t82106; t82094 = f27310(t82105); goto l15818; l15817: /* x62351 stalin.sc:1673:55644 */ /* x62350 stalin.sc:1673:55684 */ /* x62349 stalin.sc:1673:55693 */ t82101 = 1; /* x62348 stalin.sc:1673:55685 */ a34853 = t82101; /* x271697 */ /* x271696 */ t82102 = a34853; /* x271695 */ t82096 = ~t82102; /* x62347 stalin.sc:1673:55653 */ /* x62346 stalin.sc:1673:55681 */ t82099 = a21285; /* x62345 stalin.sc:1673:55654 */ a37796 = t82099; /* x283853 */ /* x283852 */ t82100 = a37796; /* x283851 */ if (!((t82100.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-BOOLEANS[6101] 32713]"); structure_ref_error();} t82095 = t82100.value.structure_type27858->s5; /* x62344 stalin.sc:1673:55645 */ t82098.tag = STRUCTURE_TYPE24753; t82098.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82098.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1673, 55644); out_of_memory_error();} t82098.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82098.value.structure_type24753->s0.value.fixnum_type = t82096; t82098.value.structure_type24753->s1.tag = NULL_TYPE; t82097 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82097==NULL) {backtrace("stalin.sc", 1673, 55644); out_of_memory_error();} t82097->s0.tag = FIXNUM_TYPE; t82097->s0.value.fixnum_type = t82095; t82097->s1 = t82098; t82094 = f27305(t82097); l15818: /* x62335 stalin.sc:1669:55545 */ f6102(t82093, t82094); return;} /* SET-CONTINUATION-TYPE-MARKED?![7380] */ void f7380(struct w49 a21277, unsigned a21278) {int a34843; /* N */ struct w49 a37790; /* S */ struct w49 a37794; /* S */ struct w49 t82110; int t82111; int t82112; int t82113; struct structure_type24753 *t82114; struct w49 t82115; struct w49 t82116; struct w49 t82117; int t82118; int t82119; int t82120; int t82121; struct structure_type24753 *t82122; struct w49 t82123; struct w49 t82124; struct w49 t82125; unsigned t82126; /* x62275 */ /* x62274 stalin.sc:1646:54834 */ /* x62267 stalin.sc:1646:54842 */ /* x62266 stalin.sc:1646:54852 */ t82126 = a21278; /* x270591 stalin.sc:1646:54843 */ /* x62269 */ /* x62268 */ /* x62264 */ /* x62263 stalin.sc:1647:54868 */ /* x62246 stalin.sc:1648:54903 */ t82110 = a21277; /* x62262 stalin.sc:1649:54907 */ /* x62247 stalin.sc:1649:54911 */ if (a21278==FALSE_TYPE) goto l15821; /* x62253 stalin.sc:1650:54920 */ /* x62252 stalin.sc:1650:54959 */ t82121 = 4; /* x62251 stalin.sc:1650:54928 */ /* x62250 stalin.sc:1650:54956 */ t82124 = a21277; /* x62249 stalin.sc:1650:54929 */ a37790 = t82124; /* x283829 */ /* x283828 */ t82125 = a37790; /* x283827 */ if (!((t82125.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-BOOLEANS[6101] 32707]"); structure_ref_error();} t82120 = t82125.value.structure_type27858->s5; /* x62248 stalin.sc:1650:54921 */ t82123.tag = STRUCTURE_TYPE24753; t82123.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82123.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1650, 54920); out_of_memory_error();} t82123.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82123.value.structure_type24753->s0.value.fixnum_type = t82121; t82123.value.structure_type24753->s1.tag = NULL_TYPE; t82122 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82122==NULL) {backtrace("stalin.sc", 1650, 54920); out_of_memory_error();} t82122->s0.tag = FIXNUM_TYPE; t82122->s0.value.fixnum_type = t82120; t82122->s1 = t82123; t82111 = f27310(t82122); goto l15822; l15821: /* x62261 stalin.sc:1651:54968 */ /* x62260 stalin.sc:1651:55008 */ /* x62259 stalin.sc:1651:55017 */ t82118 = 4; /* x62258 stalin.sc:1651:55009 */ a34843 = t82118; /* x271657 */ /* x271656 */ t82119 = a34843; /* x271655 */ t82113 = ~t82119; /* x62257 stalin.sc:1651:54977 */ /* x62256 stalin.sc:1651:55005 */ t82116 = a21277; /* x62255 stalin.sc:1651:54978 */ a37794 = t82116; /* x283845 */ /* x283844 */ t82117 = a37794; /* x283843 */ if (!((t82117.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-BOOLEANS[6101] 32711]"); structure_ref_error();} t82112 = t82117.value.structure_type27858->s5; /* x62254 stalin.sc:1651:54969 */ t82115.tag = STRUCTURE_TYPE24753; t82115.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82115.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1651, 54968); out_of_memory_error();} t82115.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82115.value.structure_type24753->s0.value.fixnum_type = t82113; t82115.value.structure_type24753->s1.tag = NULL_TYPE; t82114 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82114==NULL) {backtrace("stalin.sc", 1651, 54968); out_of_memory_error();} t82114->s0.tag = FIXNUM_TYPE; t82114->s0.value.fixnum_type = t82112; t82114->s1 = t82115; t82111 = f27305(t82114); l15822: /* x62245 stalin.sc:1647:54869 */ f6102(t82110, t82111); return;} /* CONTINUATION-TYPE-MARKED?[7379] */ unsigned f7379(struct w49 a21276) {struct w49 a37793; /* S */ int t82127; int t82128; int t82129; struct structure_type24753 *t82130; struct w49 t82131; struct w49 t82132; struct w49 t82133; /* x62242 stalin.sc:1643:54728 */ /* x62242 stalin.sc:1643:54728 */ /* x62241 stalin.sc:1643:54733 */ /* x62240 stalin.sc:1643:54740 */ /* x62239 stalin.sc:1643:54780 */ t82129 = 4; /* x62238 stalin.sc:1643:54749 */ /* x62237 stalin.sc:1643:54777 */ t82132 = a21276; /* x62236 stalin.sc:1643:54750 */ a37793 = t82132; /* x283841 */ /* x283840 */ t82133 = a37793; /* x283839 */ if (!((t82133.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-BOOLEANS[6101] 32710]"); structure_ref_error();} t82128 = t82133.value.structure_type27858->s5; /* x62235 stalin.sc:1643:54741 */ t82131.tag = STRUCTURE_TYPE24753; t82131.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82131.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1643, 54740); out_of_memory_error();} t82131.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82131.value.structure_type24753->s0.value.fixnum_type = t82129; t82131.value.structure_type24753->s1.tag = NULL_TYPE; t82130 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82130==NULL) {backtrace("stalin.sc", 1643, 54740); out_of_memory_error();} t82130->s0.tag = FIXNUM_TYPE; t82130->s0.value.fixnum_type = t82128; t82130->s1 = t82131; t82127 = f27305(t82130); /* x270592 stalin.sc:1643:54734 */ if (t82127==0) goto l15825; return TRUE_TYPE; l15825: return FALSE_TYPE;} /* CONTINUATION-TYPE-CONTINUATION-ACCESSED?[7374] */ unsigned f7374(struct w49 a21272) {struct w49 a37797; /* S */ int t82134; int t82135; int t82136; struct structure_type24753 *t82137; struct w49 t82138; struct w49 t82139; struct w49 t82140; /* x62197 stalin.sc:1632:54377 */ /* x62197 stalin.sc:1632:54377 */ /* x62196 stalin.sc:1632:54382 */ /* x62195 stalin.sc:1632:54389 */ /* x62194 stalin.sc:1632:54429 */ t82136 = 8; /* x62193 stalin.sc:1632:54398 */ /* x62192 stalin.sc:1632:54426 */ t82139 = a21272; /* x62191 stalin.sc:1632:54399 */ a37797 = t82139; /* x283857 */ /* x283856 */ t82140 = a37797; /* x283855 */ if (!((t82140.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-BOOLEANS[6101] 32714]"); structure_ref_error();} t82135 = t82140.value.structure_type27858->s5; /* x62190 stalin.sc:1632:54390 */ t82138.tag = STRUCTURE_TYPE24753; t82138.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82138.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1632, 54389); out_of_memory_error();} t82138.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82138.value.structure_type24753->s0.value.fixnum_type = t82136; t82138.value.structure_type24753->s1.tag = NULL_TYPE; t82137 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82137==NULL) {backtrace("stalin.sc", 1632, 54389); out_of_memory_error();} t82137->s0.tag = FIXNUM_TYPE; t82137->s0.value.fixnum_type = t82135; t82137->s1 = t82138; t82134 = f27305(t82137); /* x270595 stalin.sc:1632:54383 */ if (t82134==0) goto l15828; return TRUE_TYPE; l15828: return FALSE_TYPE;} /* SET-FOREIGN-PROCEDURE-TYPE-MARKED?![7355] */ void f7355(struct w49 a21257, unsigned a21258) {int a34842; /* N */ struct w49 a37912; /* S */ struct w49 a37916; /* S */ struct w49 t82141; int t82142; int t82143; int t82144; struct structure_type24753 *t82145; struct w49 t82146; struct w49 t82147; struct w49 t82148; int t82149; int t82150; int t82151; int t82152; struct structure_type24753 *t82153; struct w49 t82154; struct w49 t82155; struct w49 t82156; unsigned t82157; /* x62050 */ /* x62049 stalin.sc:1591:53043 */ /* x62042 stalin.sc:1591:53051 */ /* x62041 stalin.sc:1591:53061 */ t82157 = a21258; /* x270602 stalin.sc:1591:53052 */ /* x62044 */ /* x62043 */ /* x62039 */ /* x62038 stalin.sc:1592:53077 */ /* x62021 stalin.sc:1593:53117 */ t82141 = a21257; /* x62037 stalin.sc:1594:53121 */ /* x62022 stalin.sc:1594:53125 */ if (a21258==FALSE_TYPE) goto l15831; /* x62028 stalin.sc:1595:53134 */ /* x62027 stalin.sc:1595:53178 */ t82152 = 2; /* x62026 stalin.sc:1595:53142 */ /* x62025 stalin.sc:1595:53175 */ t82155 = a21257; /* x62024 stalin.sc:1595:53143 */ a37912 = t82155; /* x284317 */ /* x284316 */ t82156 = a37912; /* x284315 */ if (!((t82156.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-BOOLEANS[6051] 32829]"); structure_ref_error();} t82151 = t82156.value.structure_type27750->s7; /* x62023 stalin.sc:1595:53135 */ t82154.tag = STRUCTURE_TYPE24753; t82154.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82154.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1595, 53134); out_of_memory_error();} t82154.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82154.value.structure_type24753->s0.value.fixnum_type = t82152; t82154.value.structure_type24753->s1.tag = NULL_TYPE; t82153 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82153==NULL) {backtrace("stalin.sc", 1595, 53134); out_of_memory_error();} t82153->s0.tag = FIXNUM_TYPE; t82153->s0.value.fixnum_type = t82151; t82153->s1 = t82154; t82142 = f27310(t82153); goto l15832; l15831: /* x62036 stalin.sc:1596:53187 */ /* x62035 stalin.sc:1596:53232 */ /* x62034 stalin.sc:1596:53241 */ t82149 = 2; /* x62033 stalin.sc:1596:53233 */ a34842 = t82149; /* x271653 */ /* x271652 */ t82150 = a34842; /* x271651 */ t82144 = ~t82150; /* x62032 stalin.sc:1596:53196 */ /* x62031 stalin.sc:1596:53229 */ t82147 = a21257; /* x62030 stalin.sc:1596:53197 */ a37916 = t82147; /* x284333 */ /* x284332 */ t82148 = a37916; /* x284331 */ if (!((t82148.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-BOOLEANS[6051] 32833]"); structure_ref_error();} t82143 = t82148.value.structure_type27750->s7; /* x62029 stalin.sc:1596:53188 */ t82146.tag = STRUCTURE_TYPE24753; t82146.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82146.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1596, 53187); out_of_memory_error();} t82146.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82146.value.structure_type24753->s0.value.fixnum_type = t82144; t82146.value.structure_type24753->s1.tag = NULL_TYPE; t82145 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82145==NULL) {backtrace("stalin.sc", 1596, 53187); out_of_memory_error();} t82145->s0.tag = FIXNUM_TYPE; t82145->s0.value.fixnum_type = t82143; t82145->s1 = t82146; t82142 = f27305(t82145); l15832: /* x62020 stalin.sc:1592:53078 */ f6052(t82141, t82142); return;} /* FOREIGN-PROCEDURE-TYPE-MARKED?[7354] */ unsigned f7354(struct w49 a21256) {struct w49 a37913; /* S */ int t82158; int t82159; int t82160; struct structure_type24753 *t82161; struct w49 t82162; struct w49 t82163; struct w49 t82164; /* x62017 stalin.sc:1588:52927 */ /* x62017 stalin.sc:1588:52927 */ /* x62016 stalin.sc:1588:52932 */ /* x62015 stalin.sc:1588:52939 */ /* x62014 stalin.sc:1588:52984 */ t82160 = 2; /* x62013 stalin.sc:1588:52948 */ /* x62012 stalin.sc:1588:52981 */ t82163 = a21256; /* x62011 stalin.sc:1588:52949 */ a37913 = t82163; /* x284321 */ /* x284320 */ t82164 = a37913; /* x284319 */ if (!((t82164.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-BOOLEANS[6051] 32830]"); structure_ref_error();} t82159 = t82164.value.structure_type27750->s7; /* x62010 stalin.sc:1588:52940 */ t82162.tag = STRUCTURE_TYPE24753; t82162.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82162.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1588, 52939); out_of_memory_error();} t82162.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82162.value.structure_type24753->s0.value.fixnum_type = t82160; t82162.value.structure_type24753->s1.tag = NULL_TYPE; t82161 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82161==NULL) {backtrace("stalin.sc", 1588, 52939); out_of_memory_error();} t82161->s0.tag = FIXNUM_TYPE; t82161->s0.value.fixnum_type = t82159; t82161->s1 = t82162; t82158 = f27305(t82161); /* x270603 stalin.sc:1588:52933 */ if (t82158==0) goto l15835; return TRUE_TYPE; l15835: return FALSE_TYPE;} /* FOREIGN-PROCEDURE-TYPE-CALLED?[7339] */ unsigned f7339(struct w49 a21244) {struct w49 a37915; /* S */ int t82165; int t82166; int t82167; struct structure_type24753 *t82168; struct w49 t82169; struct w49 t82170; struct w49 t82171; /* x61882 stalin.sc:1555:51792 */ /* x61882 stalin.sc:1555:51792 */ /* x61881 stalin.sc:1555:51797 */ /* x61880 stalin.sc:1555:51804 */ /* x61879 stalin.sc:1555:51849 */ t82167 = 16; /* x61878 stalin.sc:1555:51813 */ /* x61877 stalin.sc:1555:51846 */ t82170 = a21244; /* x61876 stalin.sc:1555:51814 */ a37915 = t82170; /* x284329 */ /* x284328 */ t82171 = a37915; /* x284327 */ if (!((t82171.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-BOOLEANS[6051] 32832]"); structure_ref_error();} t82166 = t82171.value.structure_type27750->s7; /* x61875 stalin.sc:1555:51805 */ t82169.tag = STRUCTURE_TYPE24753; t82169.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82169.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1555, 51804); out_of_memory_error();} t82169.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82169.value.structure_type24753->s0.value.fixnum_type = t82167; t82169.value.structure_type24753->s1.tag = NULL_TYPE; t82168 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82168==NULL) {backtrace("stalin.sc", 1555, 51804); out_of_memory_error();} t82168->s0.tag = FIXNUM_TYPE; t82168->s0.value.fixnum_type = t82166; t82168->s1 = t82169; t82165 = f27305(t82168); /* x270608 stalin.sc:1555:51798 */ if (t82165==0) goto l15838; return TRUE_TYPE; l15838: return FALSE_TYPE;} /* SET-NATIVE-PROCEDURE-TYPE-ATOMIC?![7335] */ void f7335(struct w49 a21241, unsigned a21242) {int a34816; /* N */ struct w49 a37987; /* S */ struct w49 a38002; /* S */ struct w49 t82172; int t82173; int t82174; int t82175; struct structure_type24753 *t82176; struct w49 t82177; struct w49 t82178; struct w49 t82179; int t82180; int t82181; int t82182; int t82183; struct structure_type24753 *t82184; struct w49 t82185; struct w49 t82186; struct w49 t82187; unsigned t82188; /* x61870 */ /* x61869 stalin.sc:1547:51545 */ /* x61862 stalin.sc:1547:51553 */ /* x61861 stalin.sc:1547:51563 */ t82188 = a21242; /* x270610 stalin.sc:1547:51554 */ /* x61864 */ /* x61863 */ /* x61859 */ /* x61858 stalin.sc:1548:51579 */ /* x61841 stalin.sc:1549:51618 */ t82172 = a21241; /* x61857 stalin.sc:1550:51622 */ /* x61842 stalin.sc:1550:51626 */ if (a21242==FALSE_TYPE) goto l15841; /* x61848 stalin.sc:1551:51635 */ /* x61847 stalin.sc:1551:51678 */ t82183 = 1; /* x61846 stalin.sc:1551:51643 */ /* x61845 stalin.sc:1551:51675 */ t82186 = a21241; /* x61844 stalin.sc:1551:51644 */ a38002 = t82186; /* x284677 */ /* x284676 */ t82187 = a38002; /* x284675 */ if (!((t82187.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32919]"); structure_ref_error();} t82182 = t82187.value.structure_type27756->s5; /* x61843 stalin.sc:1551:51636 */ t82185.tag = STRUCTURE_TYPE24753; t82185.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82185.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1551, 51635); out_of_memory_error();} t82185.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82185.value.structure_type24753->s0.value.fixnum_type = t82183; t82185.value.structure_type24753->s1.tag = NULL_TYPE; t82184 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82184==NULL) {backtrace("stalin.sc", 1551, 51635); out_of_memory_error();} t82184->s0.tag = FIXNUM_TYPE; t82184->s0.value.fixnum_type = t82182; t82184->s1 = t82185; t82173 = f27310(t82184); goto l15842; l15841: /* x61856 stalin.sc:1552:51687 */ /* x61855 stalin.sc:1552:51731 */ /* x61854 stalin.sc:1552:51740 */ t82180 = 1; /* x61853 stalin.sc:1552:51732 */ a34816 = t82180; /* x271549 */ /* x271548 */ t82181 = a34816; /* x271547 */ t82175 = ~t82181; /* x61852 stalin.sc:1552:51696 */ /* x61851 stalin.sc:1552:51728 */ t82178 = a21241; /* x61850 stalin.sc:1552:51697 */ a37987 = t82178; /* x284617 */ /* x284616 */ t82179 = a37987; /* x284615 */ if (!((t82179.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32904]"); structure_ref_error();} t82174 = t82179.value.structure_type27756->s5; /* x61849 stalin.sc:1552:51688 */ t82177.tag = STRUCTURE_TYPE24753; t82177.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82177.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1552, 51687); out_of_memory_error();} t82177.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82177.value.structure_type24753->s0.value.fixnum_type = t82175; t82177.value.structure_type24753->s1.tag = NULL_TYPE; t82176 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82176==NULL) {backtrace("stalin.sc", 1552, 51687); out_of_memory_error();} t82176->s0.tag = FIXNUM_TYPE; t82176->s0.value.fixnum_type = t82174; t82176->s1 = t82177; t82173 = f27305(t82176); l15842: /* x61840 stalin.sc:1548:51580 */ f5986(t82172, t82173); return;} /* SET-NATIVE-PROCEDURE-TYPE-FICTITIOUS?![7330] */ void f7330(struct w49 a21237, unsigned a21238) {int a34852; /* N */ struct w49 a38000; /* S */ struct w49 a38001; /* S */ struct w49 t82189; int t82190; int t82191; int t82192; struct structure_type24753 *t82193; struct w49 t82194; struct w49 t82195; struct w49 t82196; int t82197; int t82198; int t82199; int t82200; struct structure_type24753 *t82201; struct w49 t82202; struct w49 t82203; struct w49 t82204; unsigned t82205; /* x61825 */ /* x61824 stalin.sc:1536:51185 */ /* x61817 stalin.sc:1536:51193 */ /* x61816 stalin.sc:1536:51203 */ t82205 = a21238; /* x270613 stalin.sc:1536:51194 */ /* x61819 */ /* x61818 */ /* x61814 */ /* x61813 stalin.sc:1537:51219 */ /* x61796 stalin.sc:1538:51258 */ t82189 = a21237; /* x61812 stalin.sc:1539:51262 */ /* x61797 stalin.sc:1539:51266 */ if (a21238==FALSE_TYPE) goto l15845; /* x61803 stalin.sc:1540:51275 */ /* x61802 stalin.sc:1540:51318 */ t82200 = 2; /* x61801 stalin.sc:1540:51283 */ /* x61800 stalin.sc:1540:51315 */ t82203 = a21237; /* x61799 stalin.sc:1540:51284 */ a38000 = t82203; /* x284669 */ /* x284668 */ t82204 = a38000; /* x284667 */ if (!((t82204.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32917]"); structure_ref_error();} t82199 = t82204.value.structure_type27756->s5; /* x61798 stalin.sc:1540:51276 */ t82202.tag = STRUCTURE_TYPE24753; t82202.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82202.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1540, 51275); out_of_memory_error();} t82202.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82202.value.structure_type24753->s0.value.fixnum_type = t82200; t82202.value.structure_type24753->s1.tag = NULL_TYPE; t82201 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82201==NULL) {backtrace("stalin.sc", 1540, 51275); out_of_memory_error();} t82201->s0.tag = FIXNUM_TYPE; t82201->s0.value.fixnum_type = t82199; t82201->s1 = t82202; t82190 = f27310(t82201); goto l15846; l15845: /* x61811 stalin.sc:1541:51327 */ /* x61810 stalin.sc:1541:51371 */ /* x61809 stalin.sc:1541:51380 */ t82197 = 2; /* x61808 stalin.sc:1541:51372 */ a34852 = t82197; /* x271693 */ /* x271692 */ t82198 = a34852; /* x271691 */ t82192 = ~t82198; /* x61807 stalin.sc:1541:51336 */ /* x61806 stalin.sc:1541:51368 */ t82195 = a21237; /* x61805 stalin.sc:1541:51337 */ a38001 = t82195; /* x284673 */ /* x284672 */ t82196 = a38001; /* x284671 */ if (!((t82196.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32918]"); structure_ref_error();} t82191 = t82196.value.structure_type27756->s5; /* x61804 stalin.sc:1541:51328 */ t82194.tag = STRUCTURE_TYPE24753; t82194.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82194.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1541, 51327); out_of_memory_error();} t82194.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82194.value.structure_type24753->s0.value.fixnum_type = t82192; t82194.value.structure_type24753->s1.tag = NULL_TYPE; t82193 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82193==NULL) {backtrace("stalin.sc", 1541, 51327); out_of_memory_error();} t82193->s0.tag = FIXNUM_TYPE; t82193->s0.value.fixnum_type = t82191; t82193->s1 = t82194; t82190 = f27305(t82193); l15846: /* x61795 stalin.sc:1537:51220 */ f5986(t82189, t82190); return;} /* SET-NATIVE-PROCEDURE-TYPE-NECESSARILY-FICTITIOUS?![7325] */ void f7325(struct w49 a21233, unsigned a21234) {int a34819; /* N */ struct w49 a37990; /* S */ struct w49 a37998; /* S */ struct w49 t82206; int t82207; int t82208; int t82209; struct structure_type24753 *t82210; struct w49 t82211; struct w49 t82212; struct w49 t82213; int t82214; int t82215; int t82216; int t82217; struct structure_type24753 *t82218; struct w49 t82219; struct w49 t82220; struct w49 t82221; unsigned t82222; /* x61780 */ /* x61779 stalin.sc:1525:50817 */ /* x61772 stalin.sc:1525:50825 */ /* x61771 stalin.sc:1525:50835 */ t82222 = a21234; /* x270616 stalin.sc:1525:50826 */ /* x61774 */ /* x61773 */ /* x61769 */ /* x61768 stalin.sc:1526:50851 */ /* x61751 stalin.sc:1527:50890 */ t82206 = a21233; /* x61767 stalin.sc:1528:50894 */ /* x61752 stalin.sc:1528:50898 */ if (a21234==FALSE_TYPE) goto l15849; /* x61758 stalin.sc:1529:50907 */ /* x61757 stalin.sc:1529:50950 */ t82217 = 4; /* x61756 stalin.sc:1529:50915 */ /* x61755 stalin.sc:1529:50947 */ t82220 = a21233; /* x61754 stalin.sc:1529:50916 */ a37998 = t82220; /* x284661 */ /* x284660 */ t82221 = a37998; /* x284659 */ if (!((t82221.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32915]"); structure_ref_error();} t82216 = t82221.value.structure_type27756->s5; /* x61753 stalin.sc:1529:50908 */ t82219.tag = STRUCTURE_TYPE24753; t82219.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82219.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1529, 50907); out_of_memory_error();} t82219.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82219.value.structure_type24753->s0.value.fixnum_type = t82217; t82219.value.structure_type24753->s1.tag = NULL_TYPE; t82218 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82218==NULL) {backtrace("stalin.sc", 1529, 50907); out_of_memory_error();} t82218->s0.tag = FIXNUM_TYPE; t82218->s0.value.fixnum_type = t82216; t82218->s1 = t82219; t82207 = f27310(t82218); goto l15850; l15849: /* x61766 stalin.sc:1530:50959 */ /* x61765 stalin.sc:1530:51003 */ /* x61764 stalin.sc:1530:51012 */ t82214 = 4; /* x61763 stalin.sc:1530:51004 */ a34819 = t82214; /* x271561 */ /* x271560 */ t82215 = a34819; /* x271559 */ t82209 = ~t82215; /* x61762 stalin.sc:1530:50968 */ /* x61761 stalin.sc:1530:51000 */ t82212 = a21233; /* x61760 stalin.sc:1530:50969 */ a37990 = t82212; /* x284629 */ /* x284628 */ t82213 = a37990; /* x284627 */ if (!((t82213.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32907]"); structure_ref_error();} t82208 = t82213.value.structure_type27756->s5; /* x61759 stalin.sc:1530:50960 */ t82211.tag = STRUCTURE_TYPE24753; t82211.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82211.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1530, 50959); out_of_memory_error();} t82211.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82211.value.structure_type24753->s0.value.fixnum_type = t82209; t82211.value.structure_type24753->s1.tag = NULL_TYPE; t82210 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82210==NULL) {backtrace("stalin.sc", 1530, 50959); out_of_memory_error();} t82210->s0.tag = FIXNUM_TYPE; t82210->s0.value.fixnum_type = t82208; t82210->s1 = t82211; t82207 = f27305(t82210); l15850: /* x61750 stalin.sc:1526:50852 */ f5986(t82206, t82207); return;} /* NATIVE-PROCEDURE-TYPE-NECESSARILY-FICTITIOUS?[7324] */ unsigned f7324(struct w49 a21232) {struct w49 a37997; /* S */ int t82223; int t82224; int t82225; struct structure_type24753 *t82226; struct w49 t82227; struct w49 t82228; struct w49 t82229; /* x61747 stalin.sc:1522:50687 */ /* x61747 stalin.sc:1522:50687 */ /* x61746 stalin.sc:1522:50692 */ /* x61745 stalin.sc:1522:50699 */ /* x61744 stalin.sc:1522:50743 */ t82225 = 4; /* x61743 stalin.sc:1522:50708 */ /* x61742 stalin.sc:1522:50740 */ t82228 = a21232; /* x61741 stalin.sc:1522:50709 */ a37997 = t82228; /* x284657 */ /* x284656 */ t82229 = a37997; /* x284655 */ if (!((t82229.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32914]"); structure_ref_error();} t82224 = t82229.value.structure_type27756->s5; /* x61740 stalin.sc:1522:50700 */ t82227.tag = STRUCTURE_TYPE24753; t82227.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82227.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1522, 50699); out_of_memory_error();} t82227.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82227.value.structure_type24753->s0.value.fixnum_type = t82225; t82227.value.structure_type24753->s1.tag = NULL_TYPE; t82226 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82226==NULL) {backtrace("stalin.sc", 1522, 50699); out_of_memory_error();} t82226->s0.tag = FIXNUM_TYPE; t82226->s0.value.fixnum_type = t82224; t82226->s1 = t82227; t82223 = f27305(t82226); /* x270617 stalin.sc:1522:50693 */ if (t82223==0) goto l15853; return TRUE_TYPE; l15853: return FALSE_TYPE;} /* SET-NATIVE-PROCEDURE-TYPE-USED?![7320] */ void f7320(struct w49 a21229, unsigned a21230) {int a34828; /* N */ struct w49 a37981; /* S */ struct w49 a37996; /* S */ struct w49 t82230; int t82231; int t82232; int t82233; struct structure_type24753 *t82234; struct w49 t82235; struct w49 t82236; struct w49 t82237; int t82238; int t82239; int t82240; int t82241; struct structure_type24753 *t82242; struct w49 t82243; struct w49 t82244; struct w49 t82245; unsigned t82246; /* x61735 */ /* x61734 stalin.sc:1514:50425 */ /* x61727 stalin.sc:1514:50433 */ /* x61726 stalin.sc:1514:50443 */ t82246 = a21230; /* x270619 stalin.sc:1514:50434 */ /* x61729 */ /* x61728 */ /* x61724 */ /* x61723 stalin.sc:1515:50459 */ /* x61706 stalin.sc:1516:50498 */ t82230 = a21229; /* x61722 stalin.sc:1517:50502 */ /* x61707 stalin.sc:1517:50506 */ if (a21230==FALSE_TYPE) goto l15856; /* x61713 stalin.sc:1518:50515 */ /* x61712 stalin.sc:1518:50558 */ t82241 = 8; /* x61711 stalin.sc:1518:50523 */ /* x61710 stalin.sc:1518:50555 */ t82244 = a21229; /* x61709 stalin.sc:1518:50524 */ a37981 = t82244; /* x284593 */ /* x284592 */ t82245 = a37981; /* x284591 */ if (!((t82245.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32898]"); structure_ref_error();} t82240 = t82245.value.structure_type27756->s5; /* x61708 stalin.sc:1518:50516 */ t82243.tag = STRUCTURE_TYPE24753; t82243.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82243.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1518, 50515); out_of_memory_error();} t82243.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82243.value.structure_type24753->s0.value.fixnum_type = t82241; t82243.value.structure_type24753->s1.tag = NULL_TYPE; t82242 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82242==NULL) {backtrace("stalin.sc", 1518, 50515); out_of_memory_error();} t82242->s0.tag = FIXNUM_TYPE; t82242->s0.value.fixnum_type = t82240; t82242->s1 = t82243; t82231 = f27310(t82242); goto l15857; l15856: /* x61721 stalin.sc:1519:50567 */ /* x61720 stalin.sc:1519:50611 */ /* x61719 stalin.sc:1519:50620 */ t82238 = 8; /* x61718 stalin.sc:1519:50612 */ a34828 = t82238; /* x271597 */ /* x271596 */ t82239 = a34828; /* x271595 */ t82233 = ~t82239; /* x61717 stalin.sc:1519:50576 */ /* x61716 stalin.sc:1519:50608 */ t82236 = a21229; /* x61715 stalin.sc:1519:50577 */ a37996 = t82236; /* x284653 */ /* x284652 */ t82237 = a37996; /* x284651 */ if (!((t82237.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32913]"); structure_ref_error();} t82232 = t82237.value.structure_type27756->s5; /* x61714 stalin.sc:1519:50568 */ t82235.tag = STRUCTURE_TYPE24753; t82235.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82235.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1519, 50567); out_of_memory_error();} t82235.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82235.value.structure_type24753->s0.value.fixnum_type = t82233; t82235.value.structure_type24753->s1.tag = NULL_TYPE; t82234 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82234==NULL) {backtrace("stalin.sc", 1519, 50567); out_of_memory_error();} t82234->s0.tag = FIXNUM_TYPE; t82234->s0.value.fixnum_type = t82232; t82234->s1 = t82235; t82231 = f27305(t82234); l15857: /* x61705 stalin.sc:1515:50460 */ f5986(t82230, t82231); return;} /* SET-NATIVE-PROCEDURE-TYPE-MARKED?![7315] */ void f7315(struct w49 a21225, unsigned a21226) {int a34841; /* N */ struct w49 a37991; /* S */ struct w49 a37999; /* S */ struct w49 t82247; int t82248; int t82249; int t82250; struct structure_type24753 *t82251; struct w49 t82252; struct w49 t82253; struct w49 t82254; int t82255; int t82256; int t82257; int t82258; struct structure_type24753 *t82259; struct w49 t82260; struct w49 t82261; struct w49 t82262; unsigned t82263; /* x61690 */ /* x61689 stalin.sc:1503:50067 */ /* x61682 stalin.sc:1503:50075 */ /* x61681 stalin.sc:1503:50085 */ t82263 = a21226; /* x270622 stalin.sc:1503:50076 */ /* x61684 */ /* x61683 */ /* x61679 */ /* x61678 stalin.sc:1504:50101 */ /* x61661 stalin.sc:1505:50140 */ t82247 = a21225; /* x61677 stalin.sc:1506:50144 */ /* x61662 stalin.sc:1506:50148 */ if (a21226==FALSE_TYPE) goto l15860; /* x61668 stalin.sc:1507:50157 */ /* x61667 stalin.sc:1507:50200 */ t82258 = 16; /* x61666 stalin.sc:1507:50165 */ /* x61665 stalin.sc:1507:50197 */ t82261 = a21225; /* x61664 stalin.sc:1507:50166 */ a37991 = t82261; /* x284633 */ /* x284632 */ t82262 = a37991; /* x284631 */ if (!((t82262.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32908]"); structure_ref_error();} t82257 = t82262.value.structure_type27756->s5; /* x61663 stalin.sc:1507:50158 */ t82260.tag = STRUCTURE_TYPE24753; t82260.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82260.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1507, 50157); out_of_memory_error();} t82260.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82260.value.structure_type24753->s0.value.fixnum_type = t82258; t82260.value.structure_type24753->s1.tag = NULL_TYPE; t82259 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82259==NULL) {backtrace("stalin.sc", 1507, 50157); out_of_memory_error();} t82259->s0.tag = FIXNUM_TYPE; t82259->s0.value.fixnum_type = t82257; t82259->s1 = t82260; t82248 = f27310(t82259); goto l15861; l15860: /* x61676 stalin.sc:1508:50210 */ /* x61675 stalin.sc:1508:50254 */ /* x61674 stalin.sc:1508:50263 */ t82255 = 16; /* x61673 stalin.sc:1508:50255 */ a34841 = t82255; /* x271649 */ /* x271648 */ t82256 = a34841; /* x271647 */ t82250 = ~t82256; /* x61672 stalin.sc:1508:50219 */ /* x61671 stalin.sc:1508:50251 */ t82253 = a21225; /* x61670 stalin.sc:1508:50220 */ a37999 = t82253; /* x284665 */ /* x284664 */ t82254 = a37999; /* x284663 */ if (!((t82254.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32916]"); structure_ref_error();} t82249 = t82254.value.structure_type27756->s5; /* x61669 stalin.sc:1508:50211 */ t82252.tag = STRUCTURE_TYPE24753; t82252.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82252.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1508, 50210); out_of_memory_error();} t82252.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82252.value.structure_type24753->s0.value.fixnum_type = t82250; t82252.value.structure_type24753->s1.tag = NULL_TYPE; t82251 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82251==NULL) {backtrace("stalin.sc", 1508, 50210); out_of_memory_error();} t82251->s0.tag = FIXNUM_TYPE; t82251->s0.value.fixnum_type = t82249; t82251->s1 = t82252; t82248 = f27305(t82251); l15861: /* x61660 stalin.sc:1504:50102 */ f5986(t82247, t82248); return;} /* NATIVE-PROCEDURE-TYPE-MARKED?[7314] */ unsigned f7314(struct w49 a21224) {struct w49 a37992; /* S */ int t82264; int t82265; int t82266; struct structure_type24753 *t82267; struct w49 t82268; struct w49 t82269; struct w49 t82270; /* x61657 stalin.sc:1500:49952 */ /* x61657 stalin.sc:1500:49952 */ /* x61656 stalin.sc:1500:49957 */ /* x61655 stalin.sc:1500:49964 */ /* x61654 stalin.sc:1500:50008 */ t82266 = 16; /* x61653 stalin.sc:1500:49973 */ /* x61652 stalin.sc:1500:50005 */ t82269 = a21224; /* x61651 stalin.sc:1500:49974 */ a37992 = t82269; /* x284637 */ /* x284636 */ t82270 = a37992; /* x284635 */ if (!((t82270.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32909]"); structure_ref_error();} t82265 = t82270.value.structure_type27756->s5; /* x61650 stalin.sc:1500:49965 */ t82268.tag = STRUCTURE_TYPE24753; t82268.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82268.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1500, 49964); out_of_memory_error();} t82268.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82268.value.structure_type24753->s0.value.fixnum_type = t82266; t82268.value.structure_type24753->s1.tag = NULL_TYPE; t82267 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82267==NULL) {backtrace("stalin.sc", 1500, 49964); out_of_memory_error();} t82267->s0.tag = FIXNUM_TYPE; t82267->s0.value.fixnum_type = t82265; t82267->s1 = t82268; t82264 = f27305(t82267); /* x270623 stalin.sc:1500:49958 */ if (t82264==0) goto l15864; return TRUE_TYPE; l15864: return FALSE_TYPE;} /* SET-NATIVE-PROCEDURE-TYPE-SIZE?![7300] */ void f7300(struct w49 a21213) {struct w49 a37988; /* S */ struct w49 t82271; int t82272; int t82273; int t82274; struct structure_type24753 *t82275; struct w49 t82276; struct w49 t82277; struct w49 t82278; /* x61555 */ /* x61554 stalin.sc:1470:48942 */ /* x61547 stalin.sc:1470:48950 */ /* x61546 stalin.sc:1470:48960 */ /* x270627 stalin.sc:1470:48951 */ /* x61549 */ /* x61548 */ /* x61544 */ /* x61543 stalin.sc:1471:48976 */ /* x61526 stalin.sc:1472:49015 */ t82271 = a21213; /* x61542 stalin.sc:1473:49019 */ /* x61527 stalin.sc:1473:49023 */ /* x61533 stalin.sc:1474:49032 */ /* x61532 stalin.sc:1474:49075 */ t82274 = 128; /* x61531 stalin.sc:1474:49040 */ /* x61530 stalin.sc:1474:49072 */ t82277 = a21213; /* x61529 stalin.sc:1474:49041 */ a37988 = t82277; /* x284621 */ /* x284620 */ t82278 = a37988; /* x284619 */ if (!((t82278.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32905]"); structure_ref_error();} t82273 = t82278.value.structure_type27756->s5; /* x61528 stalin.sc:1474:49033 */ t82276.tag = STRUCTURE_TYPE24753; t82276.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82276.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1474, 49032); out_of_memory_error();} t82276.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82276.value.structure_type24753->s0.value.fixnum_type = t82274; t82276.value.structure_type24753->s1.tag = NULL_TYPE; t82275 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82275==NULL) {backtrace("stalin.sc", 1474, 49032); out_of_memory_error();} t82275->s0.tag = FIXNUM_TYPE; t82275->s0.value.fixnum_type = t82273; t82275->s1 = t82276; t82272 = f27310(t82275); /* x61525 stalin.sc:1471:48977 */ f5986(t82271, t82272); return;} /* SET-PRIMITIVE-PROCEDURE-TYPE-MARKED?![7280] */ void f7280(struct w49 a21197, unsigned a21198) {int a34840; /* N */ struct w49 a38133; /* S */ struct w49 a38136; /* S */ struct w49 t82279; int t82280; int t82281; int t82282; struct structure_type24753 *t82283; struct w49 t82284; struct w49 t82285; struct w49 t82286; int t82287; int t82288; int t82289; int t82290; struct structure_type24753 *t82291; struct w49 t82292; struct w49 t82293; struct w49 t82294; unsigned t82295; /* x61375 */ /* x61374 stalin.sc:1426:47455 */ /* x61367 stalin.sc:1426:47463 */ /* x61366 stalin.sc:1426:47473 */ t82295 = a21198; /* x270639 stalin.sc:1426:47464 */ /* x61369 */ /* x61368 */ /* x61364 */ /* x61363 stalin.sc:1427:47489 */ /* x61346 stalin.sc:1428:47531 */ t82279 = a21197; /* x61362 stalin.sc:1429:47535 */ /* x61347 stalin.sc:1429:47539 */ if (a21198==FALSE_TYPE) goto l15869; /* x61353 stalin.sc:1430:47548 */ /* x61352 stalin.sc:1430:47594 */ t82290 = 2; /* x61351 stalin.sc:1430:47556 */ /* x61350 stalin.sc:1430:47591 */ t82293 = a21197; /* x61349 stalin.sc:1430:47557 */ a38133 = t82293; /* x285201 */ /* x285200 */ t82294 = a38133; /* x285199 */ if (!((t82294.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-BOOLEANS[5935] 33050]"); structure_ref_error();} t82289 = t82294.value.structure_type27753->s5; /* x61348 stalin.sc:1430:47549 */ t82292.tag = STRUCTURE_TYPE24753; t82292.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82292.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1430, 47548); out_of_memory_error();} t82292.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82292.value.structure_type24753->s0.value.fixnum_type = t82290; t82292.value.structure_type24753->s1.tag = NULL_TYPE; t82291 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82291==NULL) {backtrace("stalin.sc", 1430, 47548); out_of_memory_error();} t82291->s0.tag = FIXNUM_TYPE; t82291->s0.value.fixnum_type = t82289; t82291->s1 = t82292; t82280 = f27310(t82291); goto l15870; l15869: /* x61361 stalin.sc:1431:47603 */ /* x61360 stalin.sc:1431:47650 */ /* x61359 stalin.sc:1431:47659 */ t82287 = 2; /* x61358 stalin.sc:1431:47651 */ a34840 = t82287; /* x271645 */ /* x271644 */ t82288 = a34840; /* x271643 */ t82282 = ~t82288; /* x61357 stalin.sc:1431:47612 */ /* x61356 stalin.sc:1431:47647 */ t82285 = a21197; /* x61355 stalin.sc:1431:47613 */ a38136 = t82285; /* x285213 */ /* x285212 */ t82286 = a38136; /* x285211 */ if (!((t82286.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-BOOLEANS[5935] 33053]"); structure_ref_error();} t82281 = t82286.value.structure_type27753->s5; /* x61354 stalin.sc:1431:47604 */ t82284.tag = STRUCTURE_TYPE24753; t82284.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82284.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1431, 47603); out_of_memory_error();} t82284.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82284.value.structure_type24753->s0.value.fixnum_type = t82282; t82284.value.structure_type24753->s1.tag = NULL_TYPE; t82283 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82283==NULL) {backtrace("stalin.sc", 1431, 47603); out_of_memory_error();} t82283->s0.tag = FIXNUM_TYPE; t82283->s0.value.fixnum_type = t82281; t82283->s1 = t82284; t82280 = f27305(t82283); l15870: /* x61345 stalin.sc:1427:47490 */ f5936(t82279, t82280); return;} /* PRIMITIVE-PROCEDURE-TYPE-MARKED?[7279] */ unsigned f7279(struct w49 a21196) {struct w49 a38134; /* S */ int t82296; int t82297; int t82298; struct structure_type24753 *t82299; struct w49 t82300; struct w49 t82301; struct w49 t82302; /* x61342 stalin.sc:1423:47335 */ /* x61342 stalin.sc:1423:47335 */ /* x61341 stalin.sc:1423:47340 */ /* x61340 stalin.sc:1423:47347 */ /* x61339 stalin.sc:1423:47394 */ t82298 = 2; /* x61338 stalin.sc:1423:47356 */ /* x61337 stalin.sc:1423:47391 */ t82301 = a21196; /* x61336 stalin.sc:1423:47357 */ a38134 = t82301; /* x285205 */ /* x285204 */ t82302 = a38134; /* x285203 */ if (!((t82302.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-BOOLEANS[5935] 33051]"); structure_ref_error();} t82297 = t82302.value.structure_type27753->s5; /* x61335 stalin.sc:1423:47348 */ t82300.tag = STRUCTURE_TYPE24753; t82300.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82300.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1423, 47347); out_of_memory_error();} t82300.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82300.value.structure_type24753->s0.value.fixnum_type = t82298; t82300.value.structure_type24753->s1.tag = NULL_TYPE; t82299 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82299==NULL) {backtrace("stalin.sc", 1423, 47347); out_of_memory_error();} t82299->s0.tag = FIXNUM_TYPE; t82299->s0.value.fixnum_type = t82297; t82299->s1 = t82300; t82296 = f27305(t82299); /* x270640 stalin.sc:1423:47341 */ if (t82296==0) goto l15873; return TRUE_TYPE; l15873: return FALSE_TYPE;} /* SET-EXTERNAL-SYMBOL-TYPE-MARKED?![7260] */ void f7260(struct w49 a21181, unsigned a21182) {int a34839; /* N */ struct w49 a38240; /* S */ struct w49 a38243; /* S */ struct w49 t82303; int t82304; int t82305; int t82306; struct structure_type24753 *t82307; struct w49 t82308; struct w49 t82309; struct w49 t82310; int t82311; int t82312; int t82313; int t82314; struct structure_type24753 *t82315; struct w49 t82316; struct w49 t82317; struct w49 t82318; unsigned t82319; /* x61195 */ /* x61194 stalin.sc:1382:45949 */ /* x61187 stalin.sc:1382:45957 */ /* x61186 stalin.sc:1382:45967 */ t82319 = a21182; /* x270647 stalin.sc:1382:45958 */ /* x61189 */ /* x61188 */ /* x61184 */ /* x61183 stalin.sc:1383:45983 */ /* x61166 stalin.sc:1384:46021 */ t82303 = a21181; /* x61182 stalin.sc:1385:46025 */ /* x61167 stalin.sc:1385:46029 */ if (a21182==FALSE_TYPE) goto l15876; /* x61173 stalin.sc:1386:46038 */ /* x61172 stalin.sc:1386:46080 */ t82314 = 2; /* x61171 stalin.sc:1386:46046 */ /* x61170 stalin.sc:1386:46077 */ t82317 = a21181; /* x61169 stalin.sc:1386:46047 */ a38240 = t82317; /* x285629 */ /* x285628 */ t82318 = a38240; /* x285627 */ if (!((t82318.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-BOOLEANS[5885] 33157]"); structure_ref_error();} t82313 = t82318.value.structure_type27779->s5; /* x61168 stalin.sc:1386:46039 */ t82316.tag = STRUCTURE_TYPE24753; t82316.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82316.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1386, 46038); out_of_memory_error();} t82316.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82316.value.structure_type24753->s0.value.fixnum_type = t82314; t82316.value.structure_type24753->s1.tag = NULL_TYPE; t82315 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82315==NULL) {backtrace("stalin.sc", 1386, 46038); out_of_memory_error();} t82315->s0.tag = FIXNUM_TYPE; t82315->s0.value.fixnum_type = t82313; t82315->s1 = t82316; t82304 = f27310(t82315); goto l15877; l15876: /* x61181 stalin.sc:1387:46089 */ /* x61180 stalin.sc:1387:46132 */ /* x61179 stalin.sc:1387:46141 */ t82311 = 2; /* x61178 stalin.sc:1387:46133 */ a34839 = t82311; /* x271641 */ /* x271640 */ t82312 = a34839; /* x271639 */ t82306 = ~t82312; /* x61177 stalin.sc:1387:46098 */ /* x61176 stalin.sc:1387:46129 */ t82309 = a21181; /* x61175 stalin.sc:1387:46099 */ a38243 = t82309; /* x285641 */ /* x285640 */ t82310 = a38243; /* x285639 */ if (!((t82310.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-BOOLEANS[5885] 33160]"); structure_ref_error();} t82305 = t82310.value.structure_type27779->s5; /* x61174 stalin.sc:1387:46090 */ t82308.tag = STRUCTURE_TYPE24753; t82308.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82308.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1387, 46089); out_of_memory_error();} t82308.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82308.value.structure_type24753->s0.value.fixnum_type = t82306; t82308.value.structure_type24753->s1.tag = NULL_TYPE; t82307 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82307==NULL) {backtrace("stalin.sc", 1387, 46089); out_of_memory_error();} t82307->s0.tag = FIXNUM_TYPE; t82307->s0.value.fixnum_type = t82305; t82307->s1 = t82308; t82304 = f27305(t82307); l15877: /* x61165 stalin.sc:1383:45984 */ f5886(t82303, t82304); return;} /* EXTERNAL-SYMBOL-TYPE-MARKED?[7259] */ unsigned f7259(struct w49 a21180) {struct w49 a38241; /* S */ int t82320; int t82321; int t82322; struct structure_type24753 *t82323; struct w49 t82324; struct w49 t82325; struct w49 t82326; /* x61162 stalin.sc:1379:45837 */ /* x61162 stalin.sc:1379:45837 */ /* x61161 stalin.sc:1379:45842 */ /* x61160 stalin.sc:1379:45849 */ /* x61159 stalin.sc:1379:45892 */ t82322 = 2; /* x61158 stalin.sc:1379:45858 */ /* x61157 stalin.sc:1379:45889 */ t82325 = a21180; /* x61156 stalin.sc:1379:45859 */ a38241 = t82325; /* x285633 */ /* x285632 */ t82326 = a38241; /* x285631 */ if (!((t82326.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-BOOLEANS[5885] 33158]"); structure_ref_error();} t82321 = t82326.value.structure_type27779->s5; /* x61155 stalin.sc:1379:45850 */ t82324.tag = STRUCTURE_TYPE24753; t82324.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82324.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1379, 45849); out_of_memory_error();} t82324.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82324.value.structure_type24753->s0.value.fixnum_type = t82322; t82324.value.structure_type24753->s1.tag = NULL_TYPE; t82323 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82323==NULL) {backtrace("stalin.sc", 1379, 45849); out_of_memory_error();} t82323->s0.tag = FIXNUM_TYPE; t82323->s0.value.fixnum_type = t82321; t82323->s1 = t82324; t82320 = f27305(t82323); /* x270648 stalin.sc:1379:45843 */ if (t82320==0) goto l15880; return TRUE_TYPE; l15880: return FALSE_TYPE;} /* SET-INTERNAL-SYMBOL-TYPE-MARKED?![7235] */ void f7235(struct w49 a21161, unsigned a21162) {int a34838; /* N */ struct w49 a38298; /* S */ struct w49 a38301; /* S */ struct w49 t82327; int t82328; int t82329; int t82330; struct structure_type24753 *t82331; struct w49 t82332; struct w49 t82333; struct w49 t82334; int t82335; int t82336; int t82337; int t82338; struct structure_type24753 *t82339; struct w49 t82340; struct w49 t82341; struct w49 t82342; unsigned t82343; /* x60970 */ /* x60969 stalin.sc:1327:44112 */ /* x60962 stalin.sc:1327:44120 */ /* x60961 stalin.sc:1327:44130 */ t82343 = a21162; /* x270657 stalin.sc:1327:44121 */ /* x60964 */ /* x60963 */ /* x60959 */ /* x60958 stalin.sc:1328:44146 */ /* x60941 stalin.sc:1329:44184 */ t82327 = a21161; /* x60957 stalin.sc:1330:44188 */ /* x60942 stalin.sc:1330:44192 */ if (a21162==FALSE_TYPE) goto l15883; /* x60948 stalin.sc:1331:44201 */ /* x60947 stalin.sc:1331:44243 */ t82338 = 2; /* x60946 stalin.sc:1331:44209 */ /* x60945 stalin.sc:1331:44240 */ t82341 = a21161; /* x60944 stalin.sc:1331:44210 */ a38298 = t82341; /* x285861 */ /* x285860 */ t82342 = a38298; /* x285859 */ if (!((t82342.tag)==STRUCTURE_TYPE27776)) {backtrace_internal("[clone INTERNAL-SYMBOL-TYPE-BOOLEANS[5835] 33215]"); structure_ref_error();} t82337 = t82342.value.structure_type27776->s4; /* x60943 stalin.sc:1331:44202 */ t82340.tag = STRUCTURE_TYPE24753; t82340.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82340.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1331, 44201); out_of_memory_error();} t82340.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82340.value.structure_type24753->s0.value.fixnum_type = t82338; t82340.value.structure_type24753->s1.tag = NULL_TYPE; t82339 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82339==NULL) {backtrace("stalin.sc", 1331, 44201); out_of_memory_error();} t82339->s0.tag = FIXNUM_TYPE; t82339->s0.value.fixnum_type = t82337; t82339->s1 = t82340; t82328 = f27310(t82339); goto l15884; l15883: /* x60956 stalin.sc:1332:44252 */ /* x60955 stalin.sc:1332:44295 */ /* x60954 stalin.sc:1332:44304 */ t82335 = 2; /* x60953 stalin.sc:1332:44296 */ a34838 = t82335; /* x271637 */ /* x271636 */ t82336 = a34838; /* x271635 */ t82330 = ~t82336; /* x60952 stalin.sc:1332:44261 */ /* x60951 stalin.sc:1332:44292 */ t82333 = a21161; /* x60950 stalin.sc:1332:44262 */ a38301 = t82333; /* x285873 */ /* x285872 */ t82334 = a38301; /* x285871 */ if (!((t82334.tag)==STRUCTURE_TYPE27776)) {backtrace_internal("[clone INTERNAL-SYMBOL-TYPE-BOOLEANS[5835] 33218]"); structure_ref_error();} t82329 = t82334.value.structure_type27776->s4; /* x60949 stalin.sc:1332:44253 */ t82332.tag = STRUCTURE_TYPE24753; t82332.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82332.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1332, 44252); out_of_memory_error();} t82332.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82332.value.structure_type24753->s0.value.fixnum_type = t82330; t82332.value.structure_type24753->s1.tag = NULL_TYPE; t82331 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82331==NULL) {backtrace("stalin.sc", 1332, 44252); out_of_memory_error();} t82331->s0.tag = FIXNUM_TYPE; t82331->s0.value.fixnum_type = t82329; t82331->s1 = t82332; t82328 = f27305(t82331); l15884: /* x60940 stalin.sc:1328:44147 */ f5836(t82327, t82328); return;} /* INTERNAL-SYMBOL-TYPE-MARKED?[7234] */ unsigned f7234(struct w49 a21160) {struct w49 a38299; /* S */ int t82344; int t82345; int t82346; struct structure_type24753 *t82347; struct w49 t82348; struct w49 t82349; struct w49 t82350; /* x60937 stalin.sc:1324:44000 */ /* x60937 stalin.sc:1324:44000 */ /* x60936 stalin.sc:1324:44005 */ /* x60935 stalin.sc:1324:44012 */ /* x60934 stalin.sc:1324:44055 */ t82346 = 2; /* x60933 stalin.sc:1324:44021 */ /* x60932 stalin.sc:1324:44052 */ t82349 = a21160; /* x60931 stalin.sc:1324:44022 */ a38299 = t82349; /* x285865 */ /* x285864 */ t82350 = a38299; /* x285863 */ if (!((t82350.tag)==STRUCTURE_TYPE27776)) {backtrace_internal("[clone INTERNAL-SYMBOL-TYPE-BOOLEANS[5835] 33216]"); structure_ref_error();} t82345 = t82350.value.structure_type27776->s4; /* x60930 stalin.sc:1324:44013 */ t82348.tag = STRUCTURE_TYPE24753; t82348.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82348.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1324, 44012); out_of_memory_error();} t82348.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82348.value.structure_type24753->s0.value.fixnum_type = t82346; t82348.value.structure_type24753->s1.tag = NULL_TYPE; t82347 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82347==NULL) {backtrace("stalin.sc", 1324, 44012); out_of_memory_error();} t82347->s0.tag = FIXNUM_TYPE; t82347->s0.value.fixnum_type = t82345; t82347->s1 = t82348; t82344 = f27305(t82347); /* x270658 stalin.sc:1324:44006 */ if (t82344==0) goto l15887; return TRUE_TYPE; l15887: return FALSE_TYPE;} /* [inside 7194] */ void f7194(struct w49 a21133) {struct w3467 a37399; /* S */ struct w49 t82351; struct w49 t82352; struct w3467 t82353; struct w3467 t82354; /* x60602 stalin.sc:1258:41696 */ /* x60598 stalin.sc:1258:41712 */ t82351 = a21133; /* x60601 stalin.sc:1258:41715 */ /* x60600 stalin.sc:1258:41746 */ t82353 = a21130; /* x60599 stalin.sc:1258:41716 */ a37399 = t82353; /* x282265 */ /* x282264 */ t82354 = a37399; /* x282263 */ if (!((t82354.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ELEMENT[6309] 32316]"); structure_ref_error();} t82352 = t82354.value.structure_type27669->s0; /* x60597 stalin.sc:1258:41697 */ f10604(t82351, t82352); return;} /* [inside 7172] */ void f7172(struct p7168 *p7172, struct w49 a21113) {struct w3467 a37495; /* S */ struct w49 t82355; struct w49 t82356; struct w3467 t82357; struct w3467 t82358; /* x60433 stalin.sc:1213:40060 */ /* x60429 stalin.sc:1213:40076 */ t82355 = a21113; /* x60432 stalin.sc:1213:40079 */ /* x60431 stalin.sc:1213:40107 */ t82357 = p7172->a21110; /* x60430 stalin.sc:1213:40080 */ a37495 = t82357; /* x282649 */ /* x282648 */ t82358 = a37495; /* x282647 */ if (!((t82358.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32412]"); structure_ref_error();} t82356 = t82358.value.structure_type27761->s0; /* x60428 stalin.sc:1213:40061 */ f10604(t82355, t82356); return;} /* [7166] */ struct w3467 f7166(struct w49 a21107, struct w49 a21108) {struct w49 a19278; /* S */ char *a19977; /* ELEMENT */ char *a19979; /* LINK */ unsigned a19980; /* INDEX */ int a19981; /* USE-COUNT */ char *a19982; /* TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO */ int a19984; /* BOOLEANS */ struct w3467 a19996; /* S */ struct w49 a21098; /* ALLOCATING-EXPRESSION */ struct structure_type27761 *a21100; /* U */ struct w3467 a21110; /* U */ struct w49 a21114; /* v */ struct w3467 a37485; /* S */ struct w49 a38472; /* S */ struct w49 a40274; /* S */ struct p7166 *t82359; struct p7166 *t82360; struct w3467 t82361; struct p7168 *t82362; struct w49 t82363; struct w49 t82364; struct w3467 t82365; struct w3467 t82366; struct p7168 *t82367; struct w3467 t82368; struct structure_type24753 *t82369; struct w49 t82370; struct w49 t82371; struct w49 t82372; struct w49 t82373; struct w3467 t82374; struct w3467 t82375; struct p7168 *t82376; struct w49 t82377; struct w36108 t82378; struct w49 t82379; struct structure_type24753 *t82380; struct p7166 *t82381; struct w49 t82382; struct w49 t82383; struct structure_type27761 *t82384; struct structure_type27761 *t82385; struct w49 t82386; unsigned t82387; struct structure_type27761 *t82388; struct structure_type27650 *t82389; struct w49 t82390; struct w49 t82391; struct structure_type27761 *t82392; struct w49 t82393; struct structure_type27761 *t82394; struct structure_type27761 *t82395; struct w49 t82396; struct w49 t82397; unsigned t82398; int t82399; struct structure_type27761 *t82400; struct w21193 t82401; struct w49 t82402; struct structure_type24753 *t82403; struct structure_type24753 *t82404; struct structure_type27761 *t82405; struct structure_type24753 *t82406; struct w49 t82407; struct w49 t82408; char *t82409; char *t82410; unsigned t82411; int t82412; char *t82413; int t82414; char *t82415; char *t82416; unsigned t82417; int t82418; char *t82419; int t82420; char *t82421; struct p7166 *t82422; struct w21193 t82423; struct w227506 t82424; struct w49 t82425; char *t82426; char *t82427; struct w49 t82428; struct w49 t82429; struct w49 t82430; struct w49 t82431; char *t82432; struct p7166 *e7166; struct p7168 *e7168; struct p7166 *p7167; struct p7166 *p7168; struct p7168 *p7169; struct p7168 *p7171; struct p7166 *p7173; e7166 = (struct p7166 *)alloca(sizeof(struct p7166)); if (e7166==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e7166->a21107 = a21107; e7166->a21108 = a21108; /* x60500 */ /* x60499 stalin.sc:1193:39230 */ /* x60492 stalin.sc:1193:39236 */ if (a2040==FALSE_TYPE) goto l15905; /* x60496 */ /* x60495 */ /* x60494 stalin.sc:1193:39252 */ /* x60493 stalin.sc:1193:39253 */ /* x295329 QobiScheme.sc:166:5314 */ /* x295328 QobiScheme.sc:166:5321 */ t82432 = "This shouldn\'t happen"; /* x295327 QobiScheme.sc:166:5315 */ stalin_panic(t82432); goto l15906; l15905: /* x60498 stalin.sc:1193:39230 */ /* x60497 stalin.sc:1193:39230 */ l15906: /* x60491 */ t82359 = e7166; p7167 = t82359; /* x60490 stalin.sc:1194:39264 */ /* x60489 stalin.sc:1194:39273 */ /* x60488 stalin.sc:1195:39281 */ /* x60473 stalin.sc:1196:39295 */ t82422 = p7167; /* x60487 stalin.sc:1204:39587 */ /* x60482 stalin.sc:1204:39591 */ /* x60479 stalin.sc:1204:39595 */ /* x60477 stalin.sc:1204:39600 */ /* x60476 stalin.sc:1204:39617 */ t82428 = p7167->a21108; /* x60475 stalin.sc:1204:39601 */ a40274 = t82428; /* x293765 */ /* x293764 */ t82429 = a40274; /* x293763 */ if (!((t82429.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35191]"); structure_ref_error();} t82426 = t82429.value.structure_type27698->s0; /* x60478 stalin.sc:1204:39620 */ t82427 = q52; /* x270671 stalin.sc:1204:39596 */ if (!(t82426==t82427)) goto l15902; /* x60480 stalin.sc:1205:39644 */ if (a719==FALSE_TYPE) goto l15899; goto l15903; l15902: /* x60481 stalin.sc:1206:39702 */ if (a717==FALSE_TYPE) goto l15899; l15903: /* x60485 stalin.sc:1207:39758 */ /* x60484 stalin.sc:1207:39790 */ t82430 = p7167->a21108; /* x60483 stalin.sc:1207:39759 */ a38472 = t82430; /* x286557 */ /* x286556 */ t82431 = a38472; /* x286555 */ if (!((t82431.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-HEADED-VECTOR-TYPES[5719] 33389]"); structure_ref_error();} /* MOVE: branching squeezed to general */ if ((t82431.value.structure_type27698->s29)>=((struct structure_type24753 *)VALUE_OFFSET)) {t82423.tag = STRUCTURE_TYPE24753; t82423.value.structure_type24753 = t82431.value.structure_type27698->s29;} else t82423.tag = (unsigned)(t82431.value.structure_type27698->s29); goto l15900; l15899: /* x60486 stalin.sc:1208:39795 */ t82423 = a1939; l15900: /* x60446 stalin.sc:1195:39282 */ t82424.tag = NATIVE_PROCEDURE_TYPE23218; t82424.value.native_procedure_type23218 = t82422; t82425 = *((struct w49 *)(&t82423)); t82382 = f1314(t82424, t82425); /* x60445 */ t82381 = p7167; p7173 = t82381; a21114 = t82382; /* x60444 */ /* x60439 */ if ((a21114.tag)==FALSE_TYPE) goto l15893; /* x60440 */ t82361 = *((struct w3467 *)(&a21114)); goto l15894; l15893: /* x60443 */ /* x60442 stalin.sc:1209:39850 */ t82383 = p7173->a21108; /* x60441 stalin.sc:1209:39824 */ a21098 = t82383; /* x60402 */ /* x60401 stalin.sc:1179:38701 */ /* x60394 stalin.sc:1179:38707 */ if (a2040==FALSE_TYPE) goto l15896; /* x60398 */ /* x60397 */ /* x60396 stalin.sc:1179:38723 */ /* x60395 stalin.sc:1179:38724 */ /* x295325 QobiScheme.sc:166:5314 */ /* x295324 QobiScheme.sc:166:5321 */ t82421 = "This shouldn\'t happen"; /* x295323 QobiScheme.sc:166:5315 */ stalin_panic(t82421); goto l15897; l15896: /* x60400 stalin.sc:1179:38701 */ /* x60399 stalin.sc:1179:38701 */ l15897: /* x60393 */ /* x60392 stalin.sc:1180:38735 */ /* x60391 stalin.sc:1180:38745 */ /* x60381 stalin.sc:1181:38775 */ /* x60380 stalin.sc:1181:38776 */ /* x277133 stalin.sc:323:8604 */ t82409 = q35; /* x60382 stalin.sc:1181:38789 */ /* x60384 stalin.sc:1181:38793 */ /* x60383 stalin.sc:1181:38794 */ /* x277135 stalin.sc:323:8604 */ t82410 = q35; /* x60385 stalin.sc:1181:38807 */ t82411 = a1982; /* x60386 stalin.sc:1181:38812 */ t82412 = 0; /* x60388 stalin.sc:1181:38814 */ /* x60387 stalin.sc:1181:38815 */ /* x277137 stalin.sc:323:8604 */ t82413 = q35; /* x60389 stalin.sc:1181:38828 */ /* x60390 stalin.sc:1181:38831 */ t82414 = 0; /* x60379 stalin.sc:1180:38746 */ a19977 = t82409; a19979 = t82410; a19980 = t82411; a19981 = t82412; a19982 = t82413; a19984 = t82414; /* x53377 */ /* x53369 */ t82415 = a19977; /* x53370 */ /* x53371 */ t82416 = a19979; /* x53372 */ t82417 = a19980; /* x53373 */ t82418 = a19981; /* x53374 */ t82419 = a19982; /* x53375 */ /* x53376 */ t82420 = a19984; /* x53368 */ t82384 = (struct structure_type27761 *)GC_malloc(sizeof(struct structure_type27761)); if (t82384==NULL) {backtrace_internal("MAKE-HEADED-VECTOR-TYPE[6241]"); out_of_memory_error();} t82384->s0.tag = EXTERNAL_SYMBOL_TYPE; t82384->s0.value.external_symbol_type = t82415; t82384->s1.tag = NULL_TYPE; t82384->s2.tag = EXTERNAL_SYMBOL_TYPE; t82384->s2.value.external_symbol_type = t82416; t82384->s3 = t82417; t82384->s4 = t82418; t82384->s5.tag = EXTERNAL_SYMBOL_TYPE; t82384->s5.value.external_symbol_type = t82419; t82384->s6 = (struct structure_type27908 *)FALSE_TYPE; t82384->s7 = t82420; /* x60378 */ a21100 = t82384; /* x60377 */ /* x60376 */ /* x60375 */ /* x60345 stalin.sc:1182:38838 */ /* x60343 stalin.sc:1182:38871 */ t82385 = a21100; /* x60344 stalin.sc:1182:38873 */ /* x60342 stalin.sc:1182:38839 */ t82386.tag = STRUCTURE_TYPE27761; t82386.value.structure_type27761 = t82385; t82387 = TRUE_TYPE; f7535(t82386, t82387); /* x60351 stalin.sc:1183:38879 */ /* x60347 stalin.sc:1183:38912 */ t82388 = a21100; /* x60350 stalin.sc:1183:38914 */ /* x60349 stalin.sc:1183:38931 */ t82392 = a21100; /* x60348 stalin.sc:1183:38915 */ t82393.tag = STRUCTURE_TYPE27761; t82393.value.structure_type27761 = t82392; t82389 = f8092(t82393); /* x60346 stalin.sc:1183:38880 */ t82390.tag = STRUCTURE_TYPE27761; t82390.value.structure_type27761 = t82388; t82391.tag = STRUCTURE_TYPE27650; t82391.value.structure_type27650 = t82389; f6244(t82390, t82391); /* x60355 stalin.sc:1184:38937 */ /* x60353 stalin.sc:1184:38967 */ t82394 = a21100; /* x60354 stalin.sc:1184:38969 */ t82395 = a21100; /* x60352 stalin.sc:1184:38938 */ t82396.tag = STRUCTURE_TYPE27761; t82396.value.structure_type27761 = t82394; t82397.tag = STRUCTURE_TYPE27761; t82397.value.structure_type27761 = t82395; f6260(t82396, t82397); /* x60360 stalin.sc:1185:38974 */ /* x60359 stalin.sc:1185:38985 */ /* x60357 stalin.sc:1185:38988 */ t82398 = a1982; /* x60358 stalin.sc:1185:38993 */ t82399 = 1; /* x270677 stalin.sc:1185:38986 */ if (!((t82398&1)==1)) {backtrace("stalin.sc", 1185, 38985); plus_error();} a1982 = (((unsigned)(((int)(((int)t82398)>>1))+t82399))<<1)+1; /* x60365 stalin.sc:1186:38999 */ /* x60364 stalin.sc:1186:39027 */ /* x60362 stalin.sc:1186:39033 */ t82400 = a21100; /* x60363 stalin.sc:1186:39035 */ t82401 = a1939; /* x270676 stalin.sc:1186:39028 */ a1939.tag = STRUCTURE_TYPE24753; a1939.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a1939.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1186, 39027); out_of_memory_error();} a1939.value.structure_type24753->s0.tag = STRUCTURE_TYPE27761; a1939.value.structure_type24753->s0.value.structure_type27761 = t82400; a1939.value.structure_type24753->s1 = *((struct w49 *)(&t82401)); /* x60374 stalin.sc:1187:39061 */ /* x60367 stalin.sc:1188:39101 */ t82402 = a21098; /* x60373 stalin.sc:1189:39126 */ /* x60369 stalin.sc:1189:39132 */ t82405 = a21100; /* x60372 stalin.sc:1189:39134 */ /* x60371 stalin.sc:1189:39166 */ t82407 = a21098; /* x60370 stalin.sc:1189:39135 */ a19278 = t82407; /* x50772 */ /* x50771 */ t82408 = a19278; /* x50770 */ if (!((t82408.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-HEADED-VECTOR-TYPES[5719]"); structure_ref_error();} t82406 = t82408.value.structure_type27698->s29; /* x270675 stalin.sc:1189:39127 */ t82403 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t82403==NULL) {backtrace("stalin.sc", 1189, 39126); out_of_memory_error();} t82403->s0.tag = STRUCTURE_TYPE27761; t82403->s0.value.structure_type27761 = t82405; /* MOVE: branching squeezed to general */ if (t82406>=((struct structure_type24753 *)VALUE_OFFSET)) {t82403->s1.tag = STRUCTURE_TYPE24753; t82403->s1.value.structure_type24753 = t82406;} else t82403->s1.tag = (unsigned)t82406; /* x60366 stalin.sc:1187:39062 */ t82404 = t82403; f5720(t82402, t82404); /* x60341 */ /* x60340 stalin.sc:1190:39193 */ t82361.tag = STRUCTURE_TYPE27761; t82361.value.structure_type27761 = a21100; l15894: /* x60438 */ t82360 = p7167; p7168 = t82360; a21110 = t82361; e7168 = (struct p7168 *)alloca(sizeof(struct p7168)); if (e7168==NULL) {backtrace_internal("[inside 7167]"); out_of_memory_error();} e7168->p7166 = p7168; e7168->a21110 = a21110; /* x60437 */ /* x60426 stalin.sc:1210:39858 */ /* x60412 stalin.sc:1210:39866 */ /* x60408 stalin.sc:1210:39872 */ t82363 = p7168->a21108; /* x60411 stalin.sc:1210:39874 */ /* x60410 stalin.sc:1210:39917 */ t82365 = e7168->a21110; /* x60409 stalin.sc:1210:39875 */ a37485 = t82365; /* x282609 */ /* x282608 */ t82366 = a37485; /* x282607 */ if (!((t82366.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS[6251] 32402]"); structure_ref_error();} t82364 = t82366.value.structure_type27761->s1; /* x60407 stalin.sc:1210:39867 */ if ((f26351(t82363, t82364).tag)==FALSE_TYPE) goto l15890; /* x60414 */ /* x60413 */ goto l15891; l15890: /* x60425 */ /* x60424 */ t82367 = e7168; p7171 = t82367; /* x60423 stalin.sc:1211:39924 */ /* x60416 stalin.sc:1212:39976 */ t82368 = p7171->a21110; /* x60422 stalin.sc:1212:39978 */ /* x60418 stalin.sc:1212:39984 */ t82372 = p7171->p7166->a21108; /* x60421 stalin.sc:1212:39986 */ /* x60420 stalin.sc:1212:40029 */ t82374 = p7171->a21110; /* x60419 stalin.sc:1212:39987 */ a19996 = t82374; /* x53426 */ /* x53425 */ t82375 = a19996; /* x53424 */ if (!((t82375.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("HEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS[6251]"); structure_ref_error();} t82373 = t82375.value.structure_type27761->s1; /* x270674 stalin.sc:1212:39979 */ t82369 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t82369==NULL) {backtrace("stalin.sc", 1212, 39978); out_of_memory_error();} t82369->s0 = t82372; t82369->s1 = t82373; /* x60415 stalin.sc:1211:39925 */ t82370 = *((struct w49 *)(&t82368)); t82371.tag = STRUCTURE_TYPE24753; t82371.value.structure_type24753 = t82369; f6252(t82370, t82371); l15891: /* x60436 stalin.sc:1213:40037 */ /* x60435 stalin.sc:1214:40117 */ t82377 = p7168->a21107; /* x60434 stalin.sc:1213:40047 */ t82376 = e7168; /* x60427 stalin.sc:1213:40038 */ t82378.tag = NATIVE_PROCEDURE_TYPE23356; t82378.value.native_procedure_type23356 = t82376; t82379 = t82377; t82380 = (struct structure_type24753 *)NULL_TYPE; f27755(t82378, t82379, t82380); /* x60406 */ t82362 = e7168; p7169 = t82362; /* x60405 stalin.sc:1215:40123 */ return p7169->a21110;} /* [7155] */ struct w3467 f7155(struct w49 a21095, struct structure_type24753 *a21096, struct w49 a21097) {struct structure_type24753 *a34911; /* OBJS */ struct w16638 a35357; /* PAIR */ struct w16638 a35358; /* PAIR */ struct w16638 a35708; /* PAIR */ struct w16638 a35709; /* PAIR */ struct w49 t82433; struct w49 t82434; struct w16638 t82435; struct w16638 t82436; struct w49 t82437; struct structure_type24753 *t82438; struct w49 t82439; struct structure_type24753 *t82440; struct w16638 t82441; struct w16638 t82442; struct w3467 t82443; struct w49 t82444; struct structure_type24753 *t82445; struct w49 t82446; struct w16638 t82447; struct w16638 t82448; struct w49 t82449; struct structure_type24753 *t82450; struct w49 t82451; struct w16638 t82452; struct w16638 t82453; char *t82454; /* x60337 stalin.sc:1174:38485 */ /* x60300 stalin.sc:1174:38492 */ /* x60299 stalin.sc:1174:38499 */ t82433 = a21095; /* x270679 stalin.sc:1174:38493 */ if (!((t82433.tag)==NULL_TYPE)) goto l15908; /* x60304 */ /* x60303 */ /* x60302 stalin.sc:1174:38504 */ /* x60301 stalin.sc:1174:38505 */ /* x295401 QobiScheme.sc:166:5314 */ /* x295400 QobiScheme.sc:166:5321 */ t82454 = "This shouldn\'t happen"; /* x295399 QobiScheme.sc:166:5315 */ stalin_panic(t82454); l15908: /* x60336 */ /* x60309 stalin.sc:1175:38523 */ /* x60308 stalin.sc:1175:38530 */ /* x60307 stalin.sc:1175:38536 */ t82435 = *((struct w16638 *)(&a21095)); /* x60306 stalin.sc:1175:38531 */ a35358 = t82435; /* x272789 */ /* x272788 */ t82436 = a35358; /* x272787 */ if (!((t82436.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29507]"); structure_ref_error();} t82434 = t82436.value.structure_type24753->s1; /* x270678 stalin.sc:1175:38524 */ if (!((t82434.tag)==NULL_TYPE)) goto l15910; /* x60318 */ /* x60317 */ /* x60316 stalin.sc:1175:38542 */ /* x60313 stalin.sc:1175:38550 */ /* x60312 stalin.sc:1175:38557 */ t82452 = *((struct w16638 *)(&a21095)); /* x60311 stalin.sc:1175:38551 */ a35708 = t82452; /* x274189 */ /* x274188 */ t82453 = a35708; /* x274187 */ if (!((t82453.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29857]"); structure_ref_error();} t82449 = t82453.value.structure_type24753->s0; /* x60314 stalin.sc:1175:38562 */ t82450 = a21096; /* x60315 stalin.sc:1175:38565 */ t82451 = a21097; /* x60310 stalin.sc:1175:38543 */ return f7154(t82449, t82450, t82451); l15910: /* x60335 */ /* x60334 */ /* x60333 stalin.sc:1176:38582 */ /* x60322 stalin.sc:1176:38590 */ /* x60321 stalin.sc:1176:38597 */ t82441 = *((struct w16638 *)(&a21095)); /* x60320 stalin.sc:1176:38591 */ a35709 = t82441; /* x274193 */ /* x274192 */ t82442 = a35709; /* x274191 */ if (!((t82442.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29858]"); structure_ref_error();} t82437 = t82442.value.structure_type24753->s0; /* x60331 stalin.sc:1176:38602 */ /* x60330 stalin.sc:1176:38608 */ /* x60327 stalin.sc:1176:38617 */ /* x60326 stalin.sc:1176:38623 */ t82447 = *((struct w16638 *)(&a21095)); /* x60325 stalin.sc:1176:38618 */ a35357 = t82447; /* x272785 */ /* x272784 */ t82448 = a35357; /* x272783 */ if (!((t82448.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29506]"); structure_ref_error();} t82444 = t82448.value.structure_type24753->s1; /* x60328 stalin.sc:1176:38628 */ t82445 = a21096; /* x60329 stalin.sc:1176:38631 */ t82446 = a21097; /* x60324 stalin.sc:1176:38609 */ t82443 = f7155(t82444, t82445, t82446); /* x60323 stalin.sc:1176:38603 */ a34911 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34911==NULL) {backtrace("stalin.sc", 1176, 38602); out_of_memory_error();} a34911->s0 = *((struct w49 *)(&t82443)); a34911->s1.tag = NULL_TYPE; /* x271829 */ t82438 = a34911; /* x60332 stalin.sc:1176:38635 */ t82439 = a21097; /* x60319 stalin.sc:1176:38583 */ t82440 = t82438; return f7154(t82437, t82440, t82439);} /* [7154] */ struct w3467 f7154(struct w49 a21092, struct structure_type24753 *a21093, struct w49 a21094) {struct structure_type24753 *a34921; /* OBJS */ char *t82455; int t82456; struct structure_type24753 *t82457; struct w49 t82458; struct w49 t82459; struct w49 t82460; struct structure_type24753 *t82461; struct w49 t82462; struct structure_type24753 *t82463; struct w49 t82464; /* x60295 stalin.sc:1171:38416 */ /* x60288 stalin.sc:1171:38429 */ t82455 = q51; /* x60289 stalin.sc:1171:38435 */ t82456 = 2; /* x60293 stalin.sc:1171:38437 */ /* x60292 stalin.sc:1171:38447 */ t82463 = a21093; /* x60291 stalin.sc:1171:38443 */ t82462 = a21092; /* x60290 stalin.sc:1171:38438 */ t82464.tag = STRUCTURE_TYPE24753; t82464.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t82464.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1171, 38437); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t82463>=((struct structure_type24753 *)VALUE_OFFSET)) {t82464.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t82464.value.structure_type24753->s0.value.structure_type24753 = t82463;} else t82464.value.structure_type24753->s0.tag = (unsigned)t82463; t82464.value.structure_type24753->s1.tag = NULL_TYPE; a34921 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34921==NULL) {backtrace("stalin.sc", 1171, 38437); out_of_memory_error();} a34921->s0 = t82462; a34921->s1 = t82464; /* x271849 */ t82457 = a34921; /* x60294 stalin.sc:1171:38452 */ t82458 = a21094; /* x60287 stalin.sc:1171:38417 */ t82459.tag = EXTERNAL_SYMBOL_TYPE; t82459.value.external_symbol_type = t82455; t82460.tag = FIXNUM_TYPE; t82460.value.fixnum_type = t82456; t82461 = t82457; return f7139(t82459, t82460, t82461, t82458);} /* [inside 7146] */ void f7146(struct p7145 *p7146, struct w49 a21085) {struct w49 t82465; struct w49 t82466; /* x60197 stalin.sc:1166:38315 */ /* x60195 stalin.sc:1166:38331 */ t82465 = a21085; /* x60196 stalin.sc:1166:38333 */ t82466 = p7146->a21084; /* x60194 stalin.sc:1166:38316 */ f10604(t82465, t82466); return;} /* [inside 7145] */ void f7145(struct w49 a21083, struct w49 a21084) {struct p7145 *t82467; struct w49 t82468; struct w36108 t82469; struct w49 t82470; struct structure_type24753 *t82471; struct p7145 *e7145; e7145 = (struct p7145 *)alloca(sizeof(struct p7145)); if (e7145==NULL) {backtrace("stalin.sc", 1166, 38278); out_of_memory_error();} e7145->a21084 = a21084; /* x60200 stalin.sc:1166:38293 */ /* x60199 stalin.sc:1166:38337 */ t82468 = a21083; /* x60198 stalin.sc:1166:38303 */ t82467 = e7145; /* x60193 stalin.sc:1166:38294 */ t82469.tag = NATIVE_PROCEDURE_TYPE22745; t82469.value.native_procedure_type22745 = t82467; t82470 = t82468; t82471 = (struct structure_type24753 *)NULL_TYPE; f27755(t82469, t82470, t82471); return;} /* [7139] */ struct w3467 f7139(struct w49 a21075, struct w49 a21076, struct structure_type24753 *a21077, struct w49 a21078) {struct w49 a19268; /* S */ struct w49 a19877; /* NAME */ char *a19878; /* SLOTS */ char *a19880; /* LINK */ unsigned a19881; /* INDEX */ int a19882; /* USE-COUNT */ char *a19883; /* TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO */ struct w12224 a19884; /* STRUCTURE-REF-ACCESSED? */ int a19885; /* BOOLEANS */ struct w3467 a19907; /* S */ struct w49 a21061; /* NAME */ struct w49 a21062; /* J */ struct w49 a21063; /* ALLOCATING-EXPRESSION */ struct structure_type27769 *a21065; /* U */ struct w3467 a21080; /* U */ struct w49 a21086; /* v */ struct w3467 a37606; /* S */ struct w3467 a37645; /* S */ struct w49 a38473; /* S */ struct w49 a40277; /* S */ struct p7139 *t82472; struct p7139 *t82473; struct w3467 t82474; struct w49 t82475; struct w49 t82476; struct w3467 t82477; struct w3467 t82478; struct p7139 *t82479; struct w3467 t82480; struct structure_type24753 *t82481; struct w49 t82482; struct w49 t82483; struct w49 t82484; struct w49 t82485; struct w3467 t82486; struct w3467 t82487; struct structure_type24753 *t82488; struct w11873 t82489; struct w36108 t82490; struct w49 t82491; struct structure_type24753 *t82492; struct w3467 t82493; struct w3467 t82494; struct p7139 *t82495; struct w49 t82496; struct w49 t82497; struct w49 t82498; struct w49 t82499; struct structure_type27769 *t82500; struct p7132 *t82501; struct p7132 *t82502; struct structure_type27769 *t82503; unsigned t82504; struct w49 t82505; struct structure_type27769 *t82506; struct w49 t82507; unsigned t82508; struct structure_type27769 *t82509; struct w12224 t82510; struct w49 t82511; struct p7132 *t82512; struct w49 t82513; struct w227957 t82514; struct structure_type27769 *t82515; struct structure_type27769 *t82516; struct w49 t82517; struct w49 t82518; unsigned t82519; int t82520; struct structure_type27769 *t82521; struct w21193 t82522; struct w49 t82523; struct structure_type24753 *t82524; struct structure_type24753 *t82525; struct structure_type27769 *t82526; struct structure_type24753 *t82527; struct w49 t82528; struct w49 t82529; struct w49 t82530; char *t82531; char *t82532; unsigned t82533; int t82534; char *t82535; struct w12224 t82536; int t82537; struct w49 t82538; char *t82539; char *t82540; unsigned t82541; int t82542; char *t82543; struct w12224 t82544; int t82545; struct w49 t82546; struct w227957 t82547; char *t82548; struct p7139 *t82549; struct w21193 t82550; struct w227506 t82551; struct w49 t82552; char *t82553; char *t82554; struct w49 t82555; struct w49 t82556; struct w49 t82557; struct w49 t82558; char *t82559; struct p7139 *e7139; struct p7132 *e7132; struct p7132 *p7133; struct p7132 *p7134; struct p7139 *p7140; struct p7139 *p7141; struct p7139 *p7144; struct p7139 *p7147; e7139 = (struct p7139 *)alloca(sizeof(struct p7139)); if (e7139==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e7139->a21075 = a21075; e7139->a21077 = a21077; e7139->a21078 = a21078; /* x60284 */ /* x60283 stalin.sc:1146:37444 */ /* x60276 stalin.sc:1146:37450 */ if (a2040==FALSE_TYPE) goto l15927; /* x60280 */ /* x60279 */ /* x60278 stalin.sc:1146:37466 */ /* x60277 stalin.sc:1146:37467 */ /* x295465 QobiScheme.sc:166:5314 */ /* x295464 QobiScheme.sc:166:5321 */ t82559 = "This shouldn\'t happen"; /* x295463 QobiScheme.sc:166:5315 */ stalin_panic(t82559); goto l15928; l15927: /* x60282 stalin.sc:1146:37444 */ /* x60281 stalin.sc:1146:37444 */ l15928: /* x60275 */ t82472 = e7139; p7140 = t82472; /* x60274 stalin.sc:1147:37478 */ /* x60273 stalin.sc:1147:37487 */ /* x60272 stalin.sc:1148:37495 */ /* x60257 stalin.sc:1149:37509 */ t82549 = p7140; /* x60271 stalin.sc:1157:37848 */ /* x60266 stalin.sc:1157:37852 */ /* x60263 stalin.sc:1157:37856 */ /* x60261 stalin.sc:1157:37861 */ /* x60260 stalin.sc:1157:37878 */ t82555 = p7140->a21078; /* x60259 stalin.sc:1157:37862 */ a40277 = t82555; /* x293777 */ /* x293776 */ t82556 = a40277; /* x293775 */ if (!((t82556.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35194]"); structure_ref_error();} t82553 = t82556.value.structure_type27698->s0; /* x60262 stalin.sc:1157:37881 */ t82554 = q50; /* x270680 stalin.sc:1157:37857 */ if (!(t82553==t82554)) goto l15924; /* x60264 stalin.sc:1158:37903 */ if (a723==FALSE_TYPE) goto l15921; goto l15925; l15924: /* x60265 stalin.sc:1159:37957 */ if (a721==FALSE_TYPE) goto l15921; l15925: /* x60269 stalin.sc:1160:38009 */ /* x60268 stalin.sc:1160:38037 */ t82557 = p7140->a21078; /* x60267 stalin.sc:1160:38010 */ a38473 = t82557; /* x286561 */ /* x286560 */ t82558 = a38473; /* x286559 */ if (!((t82558.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-STRUCTURE-TYPES[5711] 33390]"); structure_ref_error();} /* MOVE: branching squeezed to general */ if ((t82558.value.structure_type27698->s28)>=((struct structure_type24753 *)VALUE_OFFSET)) {t82550.tag = STRUCTURE_TYPE24753; t82550.value.structure_type24753 = t82558.value.structure_type27698->s28;} else t82550.tag = (unsigned)(t82558.value.structure_type27698->s28); goto l15922; l15921: /* x60270 stalin.sc:1161:38042 */ t82550 = a1940; l15922: /* x60218 stalin.sc:1148:37496 */ t82551.tag = NATIVE_PROCEDURE_TYPE22554; t82551.value.native_procedure_type22554 = t82549; t82552 = *((struct w49 *)(&t82550)); t82496 = f1314(t82551, t82552); /* x60217 */ t82495 = p7140; p7147 = t82495; a21086 = t82496; /* x60216 */ /* x60209 */ if ((a21086.tag)==FALSE_TYPE) goto l15915; /* x60210 */ t82474 = *((struct w3467 *)(&a21086)); goto l15916; l15915: /* x60215 */ /* x60212 stalin.sc:1162:38089 */ t82497 = p7147->a21075; /* x60213 stalin.sc:1162:38091 */ t82498 = a21076; /* x60214 stalin.sc:1162:38093 */ t82499 = p7147->a21078; /* x60211 stalin.sc:1162:38067 */ a21061 = t82497; a21062 = t82498; a21063 = t82499; /* x60167 */ /* x60166 stalin.sc:1129:36810 */ /* x60159 stalin.sc:1129:36816 */ if (a2040==FALSE_TYPE) goto l15918; /* x60163 */ /* x60162 */ /* x60161 stalin.sc:1129:36832 */ /* x60160 stalin.sc:1129:36833 */ /* x295461 QobiScheme.sc:166:5314 */ /* x295460 QobiScheme.sc:166:5321 */ t82548 = "This shouldn\'t happen"; /* x295459 QobiScheme.sc:166:5315 */ stalin_panic(t82548); goto l15919; l15918: /* x60165 stalin.sc:1129:36810 */ /* x60164 stalin.sc:1129:36810 */ l15919: /* x60158 */ /* x60157 stalin.sc:1130:36844 */ /* x60156 stalin.sc:1130:36854 */ /* x60140 stalin.sc:1131:36880 */ t82530 = a21061; /* x60142 stalin.sc:1131:36885 */ /* x60141 stalin.sc:1131:36886 */ /* x277139 stalin.sc:323:8604 */ t82531 = q35; /* x60143 stalin.sc:1131:36899 */ /* x60145 stalin.sc:1131:36903 */ /* x60144 stalin.sc:1131:36904 */ /* x277141 stalin.sc:323:8604 */ t82532 = q35; /* x60146 stalin.sc:1131:36917 */ t82533 = a1982; /* x60147 stalin.sc:1131:36922 */ t82534 = 0; /* x60149 stalin.sc:1131:36924 */ /* x60148 stalin.sc:1131:36925 */ /* x277143 stalin.sc:323:8604 */ t82535 = q35; /* x60154 stalin.sc:1132:36943 */ /* x60152 stalin.sc:1132:36950 */ /* x60153 stalin.sc:1132:36966 */ t82546 = a21062; /* x60150 stalin.sc:1132:36944 */ t82547.tag = NATIVE_PROCEDURE_TYPE22559; t82536 = f1149(t82547, t82546); /* x60155 stalin.sc:1132:36969 */ t82537 = 0; /* x60139 stalin.sc:1130:36855 */ a19877 = t82530; a19878 = t82531; a19880 = t82532; a19881 = t82533; a19882 = t82534; a19883 = t82535; a19884 = t82536; a19885 = t82537; /* x53009 */ /* x53000 */ t82538 = a19877; /* x53001 */ t82539 = a19878; /* x53002 */ /* x53003 */ t82540 = a19880; /* x53004 */ t82541 = a19881; /* x53005 */ t82542 = a19882; /* x53006 */ t82543 = a19883; /* x53007 */ t82544 = a19884; /* x53008 */ t82545 = a19885; /* x52999 */ t82500 = (struct structure_type27769 *)GC_malloc(sizeof(struct structure_type27769)); if (t82500==NULL) {backtrace_internal("MAKE-STRUCTURE-TYPE[6167]"); out_of_memory_error();} t82500->s0 = t82538; t82500->s1.tag = EXTERNAL_SYMBOL_TYPE; t82500->s1.value.external_symbol_type = t82539; t82500->s2.tag = NULL_TYPE; t82500->s3.tag = EXTERNAL_SYMBOL_TYPE; t82500->s3.value.external_symbol_type = t82540; t82500->s4 = t82541; t82500->s5 = t82542; t82500->s6.tag = EXTERNAL_SYMBOL_TYPE; t82500->s6.value.external_symbol_type = t82543; t82500->s7 = t82544; t82500->s8 = t82545; /* x60138 */ a21065 = t82500; e7132 = (struct p7132 *)alloca(sizeof(struct p7132)); if (e7132==NULL) {backtrace_internal("[inside CREATE-STRUCTURE-TYPE 7131]"); out_of_memory_error();} e7132->a21065 = a21065; /* x60137 */ /* x60136 */ t82501 = e7132; p7133 = t82501; /* x60135 */ /* x60097 stalin.sc:1133:36976 */ /* x60095 stalin.sc:1133:37008 */ t82503 = p7133->a21065; /* x60096 stalin.sc:1133:37010 */ t82504 = a680; /* x60094 stalin.sc:1133:36977 */ t82505.tag = STRUCTURE_TYPE27769; t82505.value.structure_type27769 = t82503; f7430(t82505, t82504); /* x60101 stalin.sc:1134:37037 */ /* x60099 stalin.sc:1134:37066 */ t82506 = p7133->a21065; /* x60100 stalin.sc:1134:37068 */ /* x60098 stalin.sc:1134:37038 */ t82507.tag = STRUCTURE_TYPE27769; t82507.value.structure_type27769 = t82506; t82508 = TRUE_TYPE; f7480(t82507, t82508); /* x60111 stalin.sc:1135:37074 */ /* x60103 stalin.sc:1135:37101 */ t82509 = p7133->a21065; /* x60110 stalin.sc:1135:37103 */ /* x60108 stalin.sc:1135:37110 */ t82512 = p7133; /* x60109 stalin.sc:1135:37143 */ t82513 = a21062; /* x60104 stalin.sc:1135:37104 */ t82514.tag = NATIVE_PROCEDURE_TYPE22565; t82514.value.native_procedure_type22565 = t82512; t82510 = f1149(t82514, t82513); /* x60102 stalin.sc:1135:37075 */ t82511.tag = STRUCTURE_TYPE27769; t82511.value.structure_type27769 = t82509; f6178(t82511, t82510); /* x60115 stalin.sc:1136:37149 */ /* x60113 stalin.sc:1136:37175 */ t82515 = p7133->a21065; /* x60114 stalin.sc:1136:37177 */ t82516 = p7133->a21065; /* x60112 stalin.sc:1136:37150 */ t82517.tag = STRUCTURE_TYPE27769; t82517.value.structure_type27769 = t82515; t82518.tag = STRUCTURE_TYPE27769; t82518.value.structure_type27769 = t82516; f6194(t82517, t82518); /* x60120 stalin.sc:1137:37182 */ /* x60119 stalin.sc:1137:37193 */ /* x60117 stalin.sc:1137:37196 */ t82519 = a1982; /* x60118 stalin.sc:1137:37201 */ t82520 = 1; /* x270686 stalin.sc:1137:37194 */ if (!((t82519&1)==1)) {backtrace("stalin.sc", 1137, 37193); plus_error();} a1982 = (((unsigned)(((int)(((int)t82519)>>1))+t82520))<<1)+1; /* x60125 stalin.sc:1138:37207 */ /* x60124 stalin.sc:1138:37231 */ /* x60122 stalin.sc:1138:37237 */ t82521 = p7133->a21065; /* x60123 stalin.sc:1138:37239 */ t82522 = a1940; /* x270685 stalin.sc:1138:37232 */ a1940.tag = STRUCTURE_TYPE24753; a1940.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a1940.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1138, 37231); out_of_memory_error();} a1940.value.structure_type24753->s0.tag = STRUCTURE_TYPE27769; a1940.value.structure_type24753->s0.value.structure_type27769 = t82521; a1940.value.structure_type24753->s1 = *((struct w49 *)(&t82522)); /* x60134 stalin.sc:1139:37261 */ /* x60127 stalin.sc:1140:37297 */ t82523 = a21063; /* x60133 stalin.sc:1141:37322 */ /* x60129 stalin.sc:1141:37328 */ t82526 = p7133->a21065; /* x60132 stalin.sc:1141:37330 */ /* x60131 stalin.sc:1141:37358 */ t82528 = a21063; /* x60130 stalin.sc:1141:37331 */ a19268 = t82528; /* x50733 */ /* x50732 */ t82529 = a19268; /* x50731 */ if (!((t82529.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-STRUCTURE-TYPES[5711]"); structure_ref_error();} t82527 = t82529.value.structure_type27698->s28; /* x270684 stalin.sc:1141:37323 */ t82524 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t82524==NULL) {backtrace("stalin.sc", 1141, 37322); out_of_memory_error();} t82524->s0.tag = STRUCTURE_TYPE27769; t82524->s0.value.structure_type27769 = t82526; /* MOVE: branching squeezed to general */ if (t82527>=((struct structure_type24753 *)VALUE_OFFSET)) {t82524->s1.tag = STRUCTURE_TYPE24753; t82524->s1.value.structure_type24753 = t82527;} else t82524->s1.tag = (unsigned)t82527; /* x60126 stalin.sc:1139:37262 */ t82525 = t82524; f5712(t82523, t82525); /* x60093 */ t82502 = p7133; p7134 = t82502; /* x60092 stalin.sc:1142:37385 */ t82474.tag = STRUCTURE_TYPE27769; t82474.value.structure_type27769 = p7134->a21065; l15916: /* x60208 */ t82473 = p7140; p7141 = t82473; a21080 = t82474; /* x60207 */ /* x60191 stalin.sc:1163:38101 */ /* x60177 stalin.sc:1163:38109 */ /* x60173 stalin.sc:1163:38115 */ t82475 = p7141->a21078; /* x60176 stalin.sc:1163:38117 */ /* x60175 stalin.sc:1163:38156 */ t82477 = a21080; /* x60174 stalin.sc:1163:38118 */ a37606 = t82477; /* x283093 */ /* x283092 */ t82478 = a37606; /* x283091 */ if (!((t82478.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-ALLOCATING-EXPRESSIONS[6185] 32523]"); structure_ref_error();} t82476 = t82478.value.structure_type27769->s2; /* x60172 stalin.sc:1163:38110 */ if ((f26351(t82475, t82476).tag)==FALSE_TYPE) goto l15912; /* x60179 */ /* x60178 */ goto l15913; l15912: /* x60190 */ /* x60189 */ t82479 = p7141; p7144 = t82479; /* x60188 stalin.sc:1164:38163 */ /* x60181 stalin.sc:1165:38211 */ t82480 = a21080; /* x60187 stalin.sc:1165:38213 */ /* x60183 stalin.sc:1165:38219 */ t82484 = p7144->a21078; /* x60186 stalin.sc:1165:38221 */ /* x60185 stalin.sc:1165:38260 */ t82486 = a21080; /* x60184 stalin.sc:1165:38222 */ a19907 = t82486; /* x53097 */ /* x53096 */ t82487 = a19907; /* x53095 */ if (!((t82487.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("STRUCTURE-TYPE-ALLOCATING-EXPRESSIONS[6185]"); structure_ref_error();} t82485 = t82487.value.structure_type27769->s2; /* x270683 stalin.sc:1165:38214 */ t82481 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t82481==NULL) {backtrace("stalin.sc", 1165, 38213); out_of_memory_error();} t82481->s0 = t82484; t82481->s1 = t82485; /* x60180 stalin.sc:1164:38164 */ t82482 = *((struct w49 *)(&t82480)); t82483.tag = STRUCTURE_TYPE24753; t82483.value.structure_type24753 = t82481; f6186(t82482, t82483); l15913: /* x60206 stalin.sc:1166:38268 */ /* x60205 stalin.sc:1168:38356 */ /* x60204 stalin.sc:1168:38378 */ t82493 = a21080; /* x60203 stalin.sc:1168:38357 */ a37645 = t82493; /* x283249 */ /* x283248 */ t82494 = a37645; /* x283247 */ if (!((t82494.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32562]"); structure_ref_error();} t82489 = t82494.value.structure_type27769->s1; /* x60202 stalin.sc:1167:38347 */ t82488 = p7141->a21077; /* x60201 stalin.sc:1166:38278 */ /* x60192 stalin.sc:1166:38269 */ t82490.tag = NATIVE_PROCEDURE_TYPE22744; /* MOVE: branching squeezed to general */ if (t82488>=((struct structure_type24753 *)VALUE_OFFSET)) {t82491.tag = STRUCTURE_TYPE24753; t82491.value.structure_type24753 = t82488;} else t82491.tag = (unsigned)t82488; t82492 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t82492==NULL) {backtrace("stalin.sc", 1166, 38268); out_of_memory_error();} t82492->s0 = *((struct w49 *)(&t82489)); t82492->s1.tag = NULL_TYPE; f27755(t82490, t82491, t82492); /* x60171 */ /* x60170 stalin.sc:1169:38384 */ return a21080;} /* [7121] */ struct w3467 f7121(struct w49 a21056) {struct w3467 a19258; /* S */ char *a19800; /* LINK */ unsigned a19801; /* INDEX */ int a19802; /* USE-COUNT */ char *a19803; /* TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO */ int a19805; /* BOOLEANS */ struct w49 a21049; /* ALLOCATING-EXPRESSION */ struct structure_type27673 *a21051; /* U */ struct w3467 a21058; /* U */ struct w49 a21060; /* v */ struct w21193 a35680; /* PAIR */ struct w3467 a37735; /* S */ struct w3467 a37736; /* S */ struct w3467 t82560; struct w49 t82561; struct w49 t82562; struct w3467 t82563; struct w3467 t82564; struct w3467 t82565; struct structure_type24753 *t82566; struct w49 t82567; struct w49 t82568; struct w49 t82569; struct w49 t82570; struct w3467 t82571; struct w3467 t82572; struct w49 t82573; struct w49 t82574; struct structure_type27673 *t82575; struct structure_type27673 *t82576; struct structure_type27673 *t82577; struct w49 t82578; struct w49 t82579; unsigned t82580; int t82581; struct structure_type27673 *t82582; struct w21193 t82583; struct w3467 t82584; struct structure_type27673 *t82585; struct w49 t82586; struct structure_type27673 *t82587; char *t82588; unsigned t82589; int t82590; char *t82591; int t82592; char *t82593; unsigned t82594; int t82595; char *t82596; int t82597; char *t82598; struct w21193 t82599; struct w21193 t82600; struct w21193 t82601; struct w3467 t82602; struct w3467 t82603; char *t82604; /* x60089 */ /* x60088 stalin.sc:1114:36287 */ /* x60081 stalin.sc:1114:36293 */ if (a2040==FALSE_TYPE) goto l15951; /* x60085 */ /* x60084 */ /* x60083 stalin.sc:1114:36309 */ /* x60082 stalin.sc:1114:36310 */ /* x297261 QobiScheme.sc:166:5314 */ /* x297260 QobiScheme.sc:166:5321 */ t82604 = "This shouldn\'t happen"; /* x297259 QobiScheme.sc:166:5315 */ stalin_panic(t82604); goto l15952; l15951: /* x60087 stalin.sc:1114:36287 */ /* x60086 stalin.sc:1114:36287 */ l15952: /* x60080 */ /* x60079 stalin.sc:1115:36321 */ /* x60078 stalin.sc:1115:36330 */ /* x60077 stalin.sc:1115:36334 */ /* x60060 stalin.sc:1115:36338 */ if ((a21056.tag)==FALSE_TYPE) goto l15942; /* x60075 stalin.sc:1116:36344 */ /* x60061 stalin.sc:1116:36348 */ if (a725==FALSE_TYPE) goto l15945; /* x60064 stalin.sc:1117:36402 */ /* x60063 stalin.sc:1117:36426 */ t82602 = *((struct w3467 *)(&a21056)); /* x60062 stalin.sc:1117:36403 */ a19258 = t82602; /* x50694 */ /* x50693 */ t82603 = a19258; /* x50692 */ if (!((t82603.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-STRING-TYPE[5703]"); structure_ref_error();} /* MOVE: branching squeezed to general */ if ((t82603.value.structure_type27698->s27)>=((struct structure_type27673 *)VALUE_OFFSET)) {t82573.tag = STRUCTURE_TYPE27673; t82573.value.structure_type27673 = t82603.value.structure_type27698->s27;} else t82573.tag = (unsigned)(t82603.value.structure_type27698->s27); goto l15946; l15945: /* x60074 stalin.sc:1118:36437 */ /* x60069 stalin.sc:1118:36442 */ /* x60068 stalin.sc:1118:36447 */ /* x60067 stalin.sc:1118:36454 */ t82599 = a1942; /* x270687 stalin.sc:1118:36448 */ if ((t82599.tag)==NULL_TYPE) goto l15948; /* x60072 */ /* x60071 stalin.sc:1119:36484 */ t82600 = a1942; /* x60070 stalin.sc:1119:36478 */ a35680 = t82600; /* x274077 */ /* x274076 */ t82601 = a35680; /* x274075 */ if (!((t82601.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29829]"); structure_ref_error();} t82573 = t82601.value.structure_type24753->s0; goto l15949; l15948: /* x60073 */ t82573.tag = FALSE_TYPE; l15949: l15946: goto l15943; l15942: /* x60076 stalin.sc:1120:36506 */ t82573 = a1941; l15943: /* x60059 */ a21060 = t82573; /* x60058 */ /* x60053 */ if ((a21060.tag)==FALSE_TYPE) goto l15933; /* x60054 */ t82560 = *((struct w3467 *)(&a21060)); goto l15934; l15933: /* x60057 */ /* x60056 stalin.sc:1121:36558 */ t82574 = a21056; /* x60055 stalin.sc:1121:36539 */ a21049 = t82574; /* x60026 */ /* x60025 stalin.sc:1104:35958 */ /* x60018 stalin.sc:1104:35964 */ if (a2040==FALSE_TYPE) goto l15939; /* x60022 */ /* x60021 */ /* x60020 stalin.sc:1104:35980 */ /* x60019 stalin.sc:1104:35981 */ /* x297257 QobiScheme.sc:166:5314 */ /* x297256 QobiScheme.sc:166:5321 */ t82598 = "This shouldn\'t happen"; /* x297255 QobiScheme.sc:166:5315 */ stalin_panic(t82598); goto l15940; l15939: /* x60024 stalin.sc:1104:35958 */ /* x60023 stalin.sc:1104:35958 */ l15940: /* x60017 */ /* x60016 stalin.sc:1105:35992 */ /* x60015 stalin.sc:1105:36002 */ /* x60006 stalin.sc:1105:36020 */ /* x60008 stalin.sc:1105:36024 */ /* x60007 stalin.sc:1105:36025 */ /* x277505 stalin.sc:323:8604 */ t82588 = q35; /* x60009 stalin.sc:1105:36038 */ t82589 = a1982; /* x60010 stalin.sc:1105:36043 */ t82590 = 0; /* x60012 stalin.sc:1105:36045 */ /* x60011 stalin.sc:1105:36046 */ /* x277507 stalin.sc:323:8604 */ t82591 = q35; /* x60013 stalin.sc:1105:36059 */ /* x60014 stalin.sc:1105:36062 */ t82592 = 0; /* x60005 stalin.sc:1105:36003 */ a19800 = t82588; a19801 = t82589; a19802 = t82590; a19803 = t82591; a19805 = t82592; /* x52718 */ /* x52711 */ /* x52712 */ t82593 = a19800; /* x52713 */ t82594 = a19801; /* x52714 */ t82595 = a19802; /* x52715 */ t82596 = a19803; /* x52716 */ /* x52717 */ t82597 = a19805; /* x52710 */ t82575 = (struct structure_type27673 *)GC_malloc(sizeof(struct structure_type27673)); if (t82575==NULL) {backtrace_internal("MAKE-STRING-TYPE[6109]"); out_of_memory_error();} t82575->s0.tag = NULL_TYPE; t82575->s1.tag = EXTERNAL_SYMBOL_TYPE; t82575->s1.value.external_symbol_type = t82593; t82575->s2 = t82594; t82575->s3 = t82595; t82575->s4.tag = EXTERNAL_SYMBOL_TYPE; t82575->s4.value.external_symbol_type = t82596; t82575->s5 = (struct structure_type27779 *)FALSE_TYPE; t82575->s6 = t82597; /* x60004 */ a21051 = t82575; /* x60003 */ /* x60002 */ /* x60001 */ /* x59980 stalin.sc:1106:36069 */ /* x59978 stalin.sc:1106:36092 */ t82576 = a21051; /* x59979 stalin.sc:1106:36094 */ t82577 = a21051; /* x59977 stalin.sc:1106:36070 */ t82578.tag = STRUCTURE_TYPE27673; t82578.value.structure_type27673 = t82576; t82579.tag = STRUCTURE_TYPE27673; t82579.value.structure_type27673 = t82577; f6120(t82578, t82579); /* x59985 stalin.sc:1107:36099 */ /* x59984 stalin.sc:1107:36110 */ /* x59982 stalin.sc:1107:36113 */ t82580 = a1982; /* x59983 stalin.sc:1107:36118 */ t82581 = 1; /* x270691 stalin.sc:1107:36111 */ if (!((t82580&1)==1)) {backtrace("stalin.sc", 1107, 36110); plus_error();} a1982 = (((unsigned)(((int)(((int)t82580)>>1))+t82581))<<1)+1; /* x59990 stalin.sc:1108:36124 */ /* x59989 stalin.sc:1108:36145 */ /* x59987 stalin.sc:1108:36151 */ t82582 = a21051; /* x59988 stalin.sc:1108:36153 */ t82583 = a1942; /* x270690 stalin.sc:1108:36146 */ a1942.tag = STRUCTURE_TYPE24753; a1942.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a1942.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1108, 36145); out_of_memory_error();} a1942.value.structure_type24753->s0.tag = STRUCTURE_TYPE27673; a1942.value.structure_type24753->s0.value.structure_type27673 = t82582; a1942.value.structure_type24753->s1 = *((struct w49 *)(&t82583)); /* x60000 stalin.sc:1109:36172 */ /* x59991 stalin.sc:1109:36178 */ if ((a21049.tag)==FALSE_TYPE) goto l15936; /* x59997 */ /* x59996 */ /* x59995 stalin.sc:1110:36203 */ /* x59993 stalin.sc:1110:36232 */ t82584 = *((struct w3467 *)(&a21049)); /* x59994 stalin.sc:1110:36254 */ t82585 = a21051; /* x59992 stalin.sc:1110:36204 */ t82586 = *((struct w49 *)(&t82584)); t82587 = t82585; f5704(t82586, t82587); goto l15937; l15936: /* x59999 stalin.sc:1109:36172 */ /* x59998 stalin.sc:1109:36172 */ l15937: /* x59976 */ /* x59975 stalin.sc:1111:36260 */ t82560.tag = STRUCTURE_TYPE27673; t82560.value.structure_type27673 = a21051; l15934: /* x60052 */ a21058 = t82560; /* x60051 */ /* x60050 stalin.sc:1122:36566 */ /* x60036 stalin.sc:1122:36574 */ /* x60032 stalin.sc:1122:36580 */ t82561 = a21056; /* x60035 stalin.sc:1122:36582 */ /* x60034 stalin.sc:1122:36618 */ t82563 = a21058; /* x60033 stalin.sc:1122:36583 */ a37736 = t82563; /* x283613 */ /* x283612 */ t82564 = a37736; /* x283611 */ if (!((t82564.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-ALLOCATING-EXPRESSIONS[6111] 32653]"); structure_ref_error();} t82562 = t82564.value.structure_type27673->s0; /* x60031 stalin.sc:1122:36575 */ if ((f26351(t82561, t82562).tag)==FALSE_TYPE) goto l15930; /* x60038 */ /* x60037 */ goto l15931; l15930: /* x60049 */ /* x60048 */ /* x60047 stalin.sc:1123:36625 */ /* x60040 stalin.sc:1124:36670 */ t82565 = a21058; /* x60046 stalin.sc:1124:36672 */ /* x60042 stalin.sc:1124:36678 */ t82569 = a21056; /* x60045 stalin.sc:1124:36680 */ /* x60044 stalin.sc:1124:36716 */ t82571 = a21058; /* x60043 stalin.sc:1124:36681 */ a37735 = t82571; /* x283609 */ /* x283608 */ t82572 = a37735; /* x283607 */ if (!((t82572.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-ALLOCATING-EXPRESSIONS[6111] 32652]"); structure_ref_error();} t82570 = t82572.value.structure_type27673->s0; /* x270689 stalin.sc:1124:36673 */ t82566 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t82566==NULL) {backtrace("stalin.sc", 1124, 36672); out_of_memory_error();} t82566->s0 = t82569; t82566->s1 = t82570; /* x60039 stalin.sc:1123:36626 */ t82567 = *((struct w49 *)(&t82565)); t82568.tag = STRUCTURE_TYPE24753; t82568.value.structure_type24753 = t82566; f6112(t82567, t82568); l15931: /* x60030 */ /* x60029 stalin.sc:1125:36724 */ return a21058;} /* [7110] */ struct structure_type27858 *f7110(struct w49 a21047) {struct w49 a19248; /* S */ struct w49 a19732; /* ALLOCATING-EXPRESSION */ unsigned a19733; /* INDEX */ int a19734; /* USE-COUNT */ char *a19735; /* CALL-SITES */ char *a19736; /* TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO */ int a19737; /* BOOLEANS */ struct w49 a21040; /* ALLOCATING-EXPRESSION */ struct structure_type27858 *a21042; /* U */ struct structure_type27858 *a21048; /* v */ struct structure_type27858 *t82605; struct w49 t82606; struct structure_type27858 *t82607; struct structure_type27858 *t82608; struct w49 t82609; unsigned t82610; unsigned t82611; int t82612; struct structure_type27858 *t82613; struct w21193 t82614; struct w3467 t82615; struct structure_type27858 *t82616; struct w49 t82617; struct structure_type27858 *t82618; struct w49 t82619; unsigned t82620; int t82621; char *t82622; char *t82623; int t82624; struct w49 t82625; unsigned t82626; int t82627; char *t82628; char *t82629; int t82630; char *t82631; struct w49 t82632; struct w49 t82633; /* x59972 stalin.sc:1101:35837 */ /* x59971 stalin.sc:1101:35841 */ /* x59970 stalin.sc:1101:35871 */ t82632 = a21047; /* x59969 stalin.sc:1101:35842 */ a19248 = t82632; /* x50655 */ /* x50654 */ t82633 = a19248; /* x50653 */ if (!((t82633.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-CONTINUATION-TYPE[5695]"); structure_ref_error();} t82605 = t82633.value.structure_type27698->s26; /* x59968 */ a21048 = t82605; /* x59967 */ /* x59962 */ if (a21048==((struct structure_type27858 *)FALSE_TYPE)) goto l15954; /* x59963 */ return a21048; l15954: /* x59966 */ /* x59965 stalin.sc:1101:35900 */ t82606 = a21047; /* x59964 stalin.sc:1101:35875 */ a21040 = t82606; /* x59959 */ /* x59958 stalin.sc:1088:35319 */ /* x59951 stalin.sc:1088:35325 */ if (a2040==FALSE_TYPE) goto l15959; /* x59955 */ /* x59954 */ /* x59953 stalin.sc:1088:35341 */ /* x59952 stalin.sc:1088:35342 */ /* x296245 QobiScheme.sc:166:5314 */ /* x296244 QobiScheme.sc:166:5321 */ t82631 = "This shouldn\'t happen"; /* x296243 QobiScheme.sc:166:5315 */ stalin_panic(t82631); goto l15960; l15959: /* x59957 stalin.sc:1088:35319 */ /* x59956 stalin.sc:1088:35319 */ l15960: /* x59950 */ /* x59949 stalin.sc:1089:35353 */ /* x59948 stalin.sc:1089:35363 */ /* x59940 stalin.sc:1090:35392 */ t82619 = a21040; /* x59941 stalin.sc:1090:35414 */ t82620 = a1982; /* x59942 stalin.sc:1090:35419 */ t82621 = 0; /* x59944 stalin.sc:1090:35421 */ /* x59943 stalin.sc:1090:35422 */ /* x277147 stalin.sc:323:8604 */ t82622 = q35; /* x59946 stalin.sc:1090:35435 */ /* x59945 stalin.sc:1090:35436 */ /* x277149 stalin.sc:323:8604 */ t82623 = q35; /* x59947 stalin.sc:1090:35449 */ t82624 = 0; /* x59939 stalin.sc:1089:35364 */ a19732 = t82619; a19733 = t82620; a19734 = t82621; a19735 = t82622; a19736 = t82623; a19737 = t82624; /* x52468 */ /* x52462 */ t82625 = a19732; /* x52463 */ t82626 = a19733; /* x52464 */ t82627 = a19734; /* x52465 */ t82628 = a19735; /* x52466 */ t82629 = a19736; /* x52467 */ t82630 = a19737; /* x52461 */ t82607 = (struct structure_type27858 *)GC_malloc(sizeof(struct structure_type27858)); if (t82607==NULL) {backtrace_internal("MAKE-CONTINUATION-TYPE[6059]"); out_of_memory_error();} t82607->s0 = t82625; t82607->s1 = t82626; t82607->s2 = t82627; t82607->s3.tag = EXTERNAL_SYMBOL_TYPE; t82607->s3.value.external_symbol_type = t82628; t82607->s4.tag = EXTERNAL_SYMBOL_TYPE; t82607->s4.value.external_symbol_type = t82629; t82607->s5 = t82630; /* x59938 */ a21042 = t82607; /* x59937 */ /* x59936 */ /* x59935 */ /* x59914 stalin.sc:1091:35456 */ /* x59912 stalin.sc:1091:35492 */ t82608 = a21042; /* x59913 stalin.sc:1091:35494 */ /* x59911 stalin.sc:1091:35457 */ t82609.tag = STRUCTURE_TYPE27858; t82609.value.structure_type27858 = t82608; t82610 = TRUE_TYPE; f7390(t82609, t82610); /* x59919 stalin.sc:1092:35500 */ /* x59918 stalin.sc:1092:35511 */ /* x59916 stalin.sc:1092:35514 */ t82611 = a1982; /* x59917 stalin.sc:1092:35519 */ t82612 = 1; /* x270693 stalin.sc:1092:35512 */ if (!((t82611&1)==1)) {backtrace("stalin.sc", 1092, 35511); plus_error();} a1982 = (((unsigned)(((int)(((int)t82611)>>1))+t82612))<<1)+1; /* x59924 stalin.sc:1093:35525 */ /* x59923 stalin.sc:1093:35552 */ /* x59921 stalin.sc:1093:35558 */ t82613 = a21042; /* x59922 stalin.sc:1093:35560 */ t82614 = a1943; /* x270692 stalin.sc:1093:35553 */ a1943.tag = STRUCTURE_TYPE24753; a1943.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a1943.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1093, 35552); out_of_memory_error();} a1943.value.structure_type24753->s0.tag = STRUCTURE_TYPE27858; a1943.value.structure_type24753->s0.value.structure_type27858 = t82613; a1943.value.structure_type24753->s1 = *((struct w49 *)(&t82614)); /* x59934 stalin.sc:1094:35585 */ /* x59925 stalin.sc:1094:35591 */ if ((a21040.tag)==FALSE_TYPE) goto l15956; /* x59931 */ /* x59930 */ /* x59929 stalin.sc:1095:35616 */ /* x59927 stalin.sc:1095:35651 */ t82615 = *((struct w3467 *)(&a21040)); /* x59928 stalin.sc:1095:35673 */ t82616 = a21042; /* x59926 stalin.sc:1095:35617 */ t82617 = *((struct w49 *)(&t82615)); t82618 = t82616; f5696(t82617, t82618); goto l15957; l15956: /* x59933 stalin.sc:1094:35585 */ /* x59932 stalin.sc:1094:35585 */ l15957: /* x59910 */ /* x59909 stalin.sc:1096:35679 */ return a21042;} /* [7054] */ struct structure_type27779 *f7054(struct w49 a20998) {struct w49 a19442; /* DISPLACED-STRING-TYPE */ char *a19443; /* LINK */ unsigned a19444; /* INDEX */ int a19445; /* USE-COUNT */ char *a19446; /* TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO */ int a19447; /* BOOLEANS */ struct w49 a19857; /* S */ struct w49 a19858; /* S */ struct structure_type27779 *a19859; /* X */ struct w49 a20991; /* DISPLACED-STRING-TYPE */ struct structure_type27779 *a20993; /* U */ struct structure_type27779 *a21000; /* v */ struct structure_type27779 *t82634; struct w49 t82635; struct structure_type27779 *t82636; struct structure_type27779 *t82637; struct structure_type27779 *t82638; struct w49 t82639; struct w49 t82640; unsigned t82641; int t82642; struct structure_type27779 *t82643; struct w21193 t82644; struct w49 t82645; struct structure_type27779 *t82646; struct w49 t82647; struct structure_type27779 *t82648; struct w49 t82649; char *t82650; unsigned t82651; int t82652; char *t82653; int t82654; struct w49 t82655; char *t82656; unsigned t82657; int t82658; char *t82659; int t82660; char *t82661; struct w49 t82662; struct w49 t82663; char *t82664; /* x59663 */ /* x59662 stalin.sc:1035:33375 */ /* x59655 stalin.sc:1035:33381 */ if (a2040==FALSE_TYPE) goto l15967; /* x59659 */ /* x59658 */ /* x59657 stalin.sc:1035:33397 */ /* x59656 stalin.sc:1035:33398 */ /* x295357 QobiScheme.sc:166:5314 */ /* x295356 QobiScheme.sc:166:5321 */ t82664 = "This shouldn\'t happen"; /* x295355 QobiScheme.sc:166:5315 */ stalin_panic(t82664); goto l15968; l15967: /* x59661 stalin.sc:1035:33375 */ /* x59660 stalin.sc:1035:33375 */ l15968: /* x59654 */ /* x59653 stalin.sc:1036:33409 */ /* x59652 stalin.sc:1036:33413 */ /* x59651 stalin.sc:1036:33447 */ t82662 = a20998; /* x59650 stalin.sc:1036:33414 */ a19857 = t82662; /* x52923 */ /* x52922 */ t82663 = a19857; /* x52921 */ if (!((t82663.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("STRING-TYPE-EXTERNAL-SYMBOL-TYPE[6151]"); structure_ref_error();} t82634 = t82663.value.structure_type27673->s5; /* x59649 */ a21000 = t82634; /* x59648 */ /* x59643 */ if (a21000==((struct structure_type27779 *)FALSE_TYPE)) goto l15962; /* x59644 */ return a21000; l15962: /* x59647 */ /* x59646 stalin.sc:1036:33479 */ t82635 = a20998; /* x59645 stalin.sc:1036:33451 */ a20991 = t82635; /* x59640 */ /* x59639 stalin.sc:1025:33003 */ /* x59632 stalin.sc:1025:33009 */ if (a2040==FALSE_TYPE) goto l15964; /* x59636 */ /* x59635 */ /* x59634 stalin.sc:1025:33025 */ /* x59633 stalin.sc:1025:33026 */ /* x295045 QobiScheme.sc:166:5314 */ /* x295044 QobiScheme.sc:166:5321 */ t82661 = "This shouldn\'t happen"; /* x295043 QobiScheme.sc:166:5315 */ stalin_panic(t82661); goto l15965; l15964: /* x59638 stalin.sc:1025:33003 */ /* x59637 stalin.sc:1025:33003 */ l15965: /* x59631 */ /* x59630 stalin.sc:1026:33037 */ /* x59629 stalin.sc:1026:33047 */ /* x59621 stalin.sc:1027:33079 */ t82649 = a20991; /* x59623 stalin.sc:1027:33101 */ /* x59622 stalin.sc:1027:33102 */ /* x277107 stalin.sc:323:8604 */ t82650 = q35; /* x59624 stalin.sc:1027:33115 */ t82651 = a1982; /* x59625 stalin.sc:1027:33120 */ t82652 = 0; /* x59627 stalin.sc:1027:33122 */ /* x59626 stalin.sc:1027:33123 */ /* x277109 stalin.sc:323:8604 */ t82653 = q35; /* x59628 stalin.sc:1027:33136 */ t82654 = 0; /* x59620 stalin.sc:1026:33048 */ a19442 = t82649; a19443 = t82650; a19444 = t82651; a19445 = t82652; a19446 = t82653; a19447 = t82654; /* x51392 */ /* x51386 */ t82655 = a19442; /* x51387 */ t82656 = a19443; /* x51388 */ t82657 = a19444; /* x51389 */ t82658 = a19445; /* x51390 */ t82659 = a19446; /* x51391 */ t82660 = a19447; /* x51385 */ t82636 = (struct structure_type27779 *)GC_malloc(sizeof(struct structure_type27779)); if (t82636==NULL) {backtrace_internal("MAKE-EXTERNAL-SYMBOL-TYPE[5843]"); out_of_memory_error();} t82636->s0 = t82655; t82636->s1.tag = EXTERNAL_SYMBOL_TYPE; t82636->s1.value.external_symbol_type = t82656; t82636->s2 = t82657; t82636->s3 = t82658; t82636->s4.tag = EXTERNAL_SYMBOL_TYPE; t82636->s4.value.external_symbol_type = t82659; t82636->s5 = t82660; /* x59619 */ a20993 = t82636; /* x59618 */ /* x59617 */ /* x59616 */ /* x59601 stalin.sc:1028:33143 */ /* x59599 stalin.sc:1028:33175 */ t82637 = a20993; /* x59600 stalin.sc:1028:33177 */ t82638 = a20993; /* x59598 stalin.sc:1028:33144 */ t82639.tag = STRUCTURE_TYPE27779; t82639.value.structure_type27779 = t82637; t82640.tag = STRUCTURE_TYPE27779; t82640.value.structure_type27779 = t82638; f5854(t82639, t82640); /* x59606 stalin.sc:1029:33182 */ /* x59605 stalin.sc:1029:33193 */ /* x59603 stalin.sc:1029:33196 */ t82641 = a1982; /* x59604 stalin.sc:1029:33201 */ t82642 = 1; /* x270703 stalin.sc:1029:33194 */ if (!((t82641&1)==1)) {backtrace("stalin.sc", 1029, 33193); plus_error();} a1982 = (((unsigned)(((int)(((int)t82641)>>1))+t82642))<<1)+1; /* x59611 stalin.sc:1030:33207 */ /* x59610 stalin.sc:1030:33237 */ /* x59608 stalin.sc:1030:33243 */ t82643 = a20993; /* x59609 stalin.sc:1030:33245 */ t82644 = a1947; /* x270702 stalin.sc:1030:33238 */ a1947.tag = STRUCTURE_TYPE24753; a1947.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a1947.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1030, 33237); out_of_memory_error();} a1947.value.structure_type24753->s0.tag = STRUCTURE_TYPE27779; a1947.value.structure_type24753->s0.value.structure_type27779 = t82643; a1947.value.structure_type24753->s1 = *((struct w49 *)(&t82644)); /* x59615 stalin.sc:1031:33273 */ /* x59613 stalin.sc:1031:33312 */ t82645 = a20991; /* x59614 stalin.sc:1031:33334 */ t82646 = a20993; /* x59612 stalin.sc:1031:33274 */ a19858 = t82645; a19859 = t82646; /* x52929 */ /* x52927 */ t82647 = a19858; /* x52928 */ t82648 = a19859; /* x52926 */ if (!((t82647.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("SET-STRING-TYPE-EXTERNAL-SYMBOL-TYPE![6152]"); structure_set_error();} t82647.value.structure_type27673->s5 = t82648; /* x59597 */ /* x59596 stalin.sc:1032:33339 */ return a20993;} /* INITIALIZE-TYPES![7033] */ void f7033(void) {/* x59530 */ /* x59529 stalin.sc:1008:32450 */ /* x59528 stalin.sc:1008:32461 */ a1982 = (((unsigned)11)<<1)+1; /* x59527 */ /* x59526 stalin.sc:1009:32466 */ /* x59525 stalin.sc:1009:32497 */ a1945.tag = NULL_TYPE; return;} /* ANTECEDENT?[7032] */ unsigned f7032(struct w12218 a20981) {struct w12218 a38451; /* S */ char *t82665; char *t82666; struct w12218 t82667; struct w12218 t82668; /* x59428 stalin.sc:955:30871 */ /* x59426 stalin.sc:955:30876 */ /* x59425 stalin.sc:955:30889 */ t82667 = a20981; /* x59424 stalin.sc:955:30877 */ a38451 = t82667; /* x286473 */ /* x286472 */ t82668 = a38451; /* x286471 */ if (!((t82668.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-KIND[5745] 33368]"); structure_ref_error();} t82665 = t82668.value.structure_type27501->s0; /* x59427 stalin.sc:955:30892 */ t82666 = q49; /* x270706 stalin.sc:955:30872 */ if (t82665==t82666) return TRUE_TYPE; else return FALSE_TYPE;} /* DISCARD?[7031] */ unsigned f7031(struct w12218 a20980) {struct w12218 a38449; /* S */ char *t82669; char *t82670; struct w12218 t82671; struct w12218 t82672; /* x59420 stalin.sc:953:30814 */ /* x59418 stalin.sc:953:30819 */ /* x59417 stalin.sc:953:30832 */ t82671 = a20980; /* x59416 stalin.sc:953:30820 */ a38449 = t82671; /* x286465 */ /* x286464 */ t82672 = a38449; /* x286463 */ if (!((t82672.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-KIND[5745] 33366]"); structure_ref_error();} t82669 = t82672.value.structure_type27501->s0; /* x59419 stalin.sc:953:30835 */ t82670 = q47; /* x270707 stalin.sc:953:30815 */ if (t82669==t82670) return TRUE_TYPE; else return FALSE_TYPE;} /* RETURN?[7030] */ unsigned f7030(struct w12218 a20979) {struct w12218 a38450; /* S */ char *t82673; char *t82674; struct w12218 t82675; struct w12218 t82676; /* x59412 stalin.sc:951:30761 */ /* x59410 stalin.sc:951:30766 */ /* x59409 stalin.sc:951:30779 */ t82675 = a20979; /* x59408 stalin.sc:951:30767 */ a38450 = t82675; /* x286469 */ /* x286468 */ t82676 = a38450; /* x286467 */ if (!((t82676.tag)==STRUCTURE_TYPE27501)) {backtrace_internal("[clone RESULT-KIND[5745] 33367]"); structure_ref_error();} t82673 = t82676.value.structure_type27501->s0; /* x59411 stalin.sc:951:30782 */ t82674 = q48; /* x270708 stalin.sc:951:30762 */ if (t82673==t82674) return TRUE_TYPE; else return FALSE_TYPE;} /* CREATE-ANTECEDENT-RESULT[7028] */ struct structure_type27501 *f7028(struct w49 a20974, struct w12563 a20975, struct w12563 a20976, struct w12563 a20977) {char *t82677; char *t82678; struct w49 t82679; char *t82680; struct w12563 t82681; struct w12563 t82682; struct w12563 t82683; struct w49 t82684; struct w49 t82685; /* x59396 stalin.sc:945:30598 */ /* x59387 stalin.sc:945:30611 */ t82677 = q49; /* x59389 stalin.sc:945:30623 */ /* x59388 stalin.sc:945:30624 */ /* x56486 stalin.sc:321:8572 */ t82678 = q34; /* x59390 stalin.sc:945:30632 */ t82679 = a20974; /* x59392 stalin.sc:945:30641 */ /* x59391 stalin.sc:945:30642 */ /* x277533 stalin.sc:321:8572 */ t82680 = q34; /* x59393 stalin.sc:945:30650 */ t82681 = a20975; /* x59394 stalin.sc:945:30653 */ t82682 = a20976; /* x59395 stalin.sc:945:30656 */ t82683 = a20977; /* x59386 stalin.sc:945:30599 */ t82684.tag = EXTERNAL_SYMBOL_TYPE; t82684.value.external_symbol_type = t82678; t82685.tag = EXTERNAL_SYMBOL_TYPE; t82685.value.external_symbol_type = t82680; return f5743(t82677, t82684, t82679, t82685, t82681, t82682, t82683);} /* CREATE-RETURN-RESULT[7027] */ struct structure_type27501 *f7027(struct w49 a20972, struct w49 a20973) {char *t82686; struct w49 t82687; struct w49 t82688; struct structure_type24753 *t82689; char *t82690; char *t82691; char *t82692; struct w49 t82693; struct w12563 t82694; struct w12563 t82695; struct w12563 t82696; struct w49 t82697; /* x59383 stalin.sc:941:30452 */ /* x59371 stalin.sc:942:30467 */ t82686 = q48; /* x59372 stalin.sc:942:30475 */ t82687 = a20972; /* x59373 stalin.sc:942:30487 */ t82688 = a20973; /* x59376 stalin.sc:942:30496 */ /* x59375 stalin.sc:942:30501 */ t82697 = a20972; /* x59374 stalin.sc:942:30497 */ t82689 = f14286(t82697); /* x59378 stalin.sc:942:30514 */ /* x59377 stalin.sc:942:30515 */ /* x277543 stalin.sc:321:8572 */ t82690 = q34; /* x59380 stalin.sc:942:30523 */ /* x59379 stalin.sc:942:30524 */ /* x277545 stalin.sc:321:8572 */ t82691 = q34; /* x59382 stalin.sc:942:30532 */ /* x59381 stalin.sc:942:30533 */ /* x277547 stalin.sc:321:8572 */ t82692 = q34; /* x59370 stalin.sc:941:30453 */ t82693.tag = STRUCTURE_TYPE24753; t82693.value.structure_type24753 = t82689; t82694.tag = EXTERNAL_SYMBOL_TYPE; t82694.value.external_symbol_type = t82690; t82695.tag = EXTERNAL_SYMBOL_TYPE; t82695.value.external_symbol_type = t82691; t82696.tag = EXTERNAL_SYMBOL_TYPE; t82696.value.external_symbol_type = t82692; return f5743(t82686, t82687, t82688, t82693, t82694, t82695, t82696);} /* CREATE-ACCESSOR-RESULT[7025] */ struct structure_type27501 *f7025(struct w49 a20970, struct w49 a20971) {char *t82698; char *t82699; struct w49 t82700; struct w49 t82701; char *t82702; char *t82703; char *t82704; struct w49 t82705; struct w12563 t82706; struct w12563 t82707; struct w12563 t82708; /* x59350 stalin.sc:935:30214 */ /* x59339 stalin.sc:935:30227 */ t82698 = q46; /* x59341 stalin.sc:935:30237 */ /* x59340 stalin.sc:935:30238 */ /* x277535 stalin.sc:321:8572 */ t82699 = q34; /* x59342 stalin.sc:935:30246 */ t82700 = a20970; /* x59343 stalin.sc:935:30255 */ t82701 = a20971; /* x59345 stalin.sc:935:30257 */ /* x59344 stalin.sc:935:30258 */ /* x277537 stalin.sc:321:8572 */ t82702 = q34; /* x59347 stalin.sc:935:30266 */ /* x59346 stalin.sc:935:30267 */ /* x277539 stalin.sc:321:8572 */ t82703 = q34; /* x59349 stalin.sc:935:30275 */ /* x59348 stalin.sc:935:30276 */ /* x277541 stalin.sc:321:8572 */ t82704 = q34; /* x59338 stalin.sc:935:30215 */ t82705.tag = EXTERNAL_SYMBOL_TYPE; t82705.value.external_symbol_type = t82699; t82706.tag = EXTERNAL_SYMBOL_TYPE; t82706.value.external_symbol_type = t82702; t82707.tag = EXTERNAL_SYMBOL_TYPE; t82707.value.external_symbol_type = t82703; t82708.tag = EXTERNAL_SYMBOL_TYPE; t82708.value.external_symbol_type = t82704; return f5743(t82698, t82705, t82700, t82701, t82706, t82707, t82708);} /* TAIL-CALL?[7013] */ unsigned f7013(struct w49 a20957, struct w49 a20958) {struct w49 a20963; /* X */ struct w49 a22210; /* Y */ struct structure_type24753 *a36099; /* PAIR */ struct w49 a36355; /* S */ struct w49 a36479; /* S */ struct w49 a36483; /* S */ struct w49 a38655; /* S */ struct w49 a38901; /* S */ struct w49 a38953; /* S */ struct w49 a39740; /* S */ struct w49 a39741; /* S */ struct w49 a39742; /* S */ struct w49 a39743; /* S */ struct w49 a39744; /* S */ struct w49 a39745; /* S */ struct w49 a39746; /* S */ struct w49 a39958; /* S */ struct w49 a40076; /* S */ struct w49 a40077; /* S */ struct w49 a40078; /* S */ struct w49 a40297; /* S */ struct w49 a40298; /* S */ struct w49 a40299; /* S */ struct w49 a40300; /* S */ struct w49 t82709; struct w49 t82710; struct w49 t82711; struct w49 t82712; struct w49 t82713; struct w49 t82714; char *t82715; struct structure_type24753 *t82716; struct structure_type24753 *t82717; struct w49 t82718; struct w49 t82719; struct w49 t82720; struct w211257 t82721; struct w49 t82722; struct w49 t82723; struct w49 t82724; struct w49 t82725; struct w49 t82726; struct w49 t82727; struct w49 t82728; char *t82729; char *t82730; struct w49 t82731; struct w49 t82732; struct w49 t82733; struct w49 t82734; struct w49 t82735; struct w49 t82736; struct w49 t82737; struct w49 t82738; struct w49 t82739; struct w49 t82740; struct w49 t82741; struct w49 t82742; struct w49 t82743; struct w49 t82744; struct w49 t82745; struct w49 t82746; struct structure_type27745 *t82747; struct w49 t82748; struct w49 t82749; struct w49 t82750; struct w49 t82751; struct w49 t82752; char *t82753; char *t82754; struct w49 t82755; struct w49 t82756; struct w49 t82757; struct w49 t82758; char *t82759; char *t82760; struct w49 t82761; struct w49 t82762; struct w49 t82763; struct w49 t82764; char *t82765; char *t82766; struct w49 t82767; struct w49 t82768; struct w49 t82769; struct w49 t82770; struct w49 t82771; struct w49 t82772; struct w49 t82773; struct w49 t82774; struct w49 t82775; struct w49 t82776; struct w49 t82777; struct w49 t82778; struct w49 t82779; struct w49 t82780; struct w49 t82781; struct w49 t82782; struct w49 t82783; struct w49 t82784; h7013: /* x59335 stalin.sc:898:28519 */ /* x59335 stalin.sc:898:28519 */ /* x59334 stalin.sc:899:28525 */ /* x59333 stalin.sc:899:28559 */ t82709 = a20957; /* x59332 stalin.sc:899:28526 */ if (!(f8755(t82709)==FALSE_TYPE)) goto l15969; /* x59329 */ /* x59209 stalin.sc:901:28572 */ /* x59208 stalin.sc:901:28576 */ /* x59207 stalin.sc:901:28597 */ t82710 = a20957; /* x59206 stalin.sc:901:28577 */ if (!(f8752(t82710)==FALSE_TYPE)) goto l15973; /* x59203 */ /* x59174 stalin.sc:902:28612 */ /* x59173 stalin.sc:902:28639 */ t82711 = a20957; /* x59172 stalin.sc:902:28613 */ a22210 = t82711; /* x74667 stalin.sc:4474:149882 */ /* x74650 stalin.sc:4474:149887 */ /* x74649 stalin.sc:4474:149892 */ /* x74648 stalin.sc:4474:149914 */ t82712 = a22210; /* x74647 stalin.sc:4474:149893 */ if (!(f8751(t82712)==FALSE_TYPE)) goto l15970; /* x74665 */ /* x74655 stalin.sc:4475:149924 */ /* x74654 stalin.sc:4475:149929 */ /* x74653 stalin.sc:4475:149950 */ t82713 = a22210; /* x74652 stalin.sc:4475:149930 */ if (!(f8752(t82713)==FALSE_TYPE)) goto l15970; /* x74663 */ /* x74661 stalin.sc:4476:149965 */ /* x74660 stalin.sc:4476:149972 */ /* x74659 stalin.sc:4476:149991 */ t82718 = a22210; /* x74658 stalin.sc:4476:149973 */ a36355 = t82718; /* x278089 */ /* x278088 */ t82719 = a36355; /* x278087 */ if (!((t82719.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-OFFSETS[6857] 31272]"); structure_ref_error();} t82716 = t82719.value.structure_type27745->s1; /* x74657 stalin.sc:4476:149966 */ a36099 = t82716; /* x275753 */ /* x275752 */ t82717 = a36099; /* x275751 */ if (!(t82717>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 30248]"); structure_ref_error();} t82714 = t82717->s0; /* x74662 stalin.sc:4476:149995 */ t82715 = q64; /* x270185 stalin.sc:4476:149961 */ if (!(((t82714.tag)==EXTERNAL_SYMBOL_TYPE)&&((t82714.value.external_symbol_type)==t82715))) goto l15970; /* x59201 */ /* x59200 stalin.sc:912:29242 */ /* x59192 stalin.sc:912:29251 */ /* x59199 stalin.sc:915:29379 */ /* x59198 stalin.sc:916:29406 */ /* x59197 stalin.sc:916:29425 */ /* x59196 stalin.sc:916:29447 */ t82726 = a20957; /* x59195 stalin.sc:916:29426 */ a36479 = t82726; /* x278585 */ /* x278584 */ t82727 = a36479; /* x278583 */ if (!((t82727.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31396]"); structure_ref_error();} t82724 = t82727.value.structure_type27745->s0; /* x59194 stalin.sc:916:29407 */ a38655 = t82724; /* x287289 */ /* x287288 */ t82725 = a38655; /* x287287 */ if (!((t82725.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33572]"); structure_ref_error();} t82722 = t82725.value.structure_type27698->s21; /* x59193 stalin.sc:915:29380 */ a39958 = t82722; /* x292501 */ /* x292500 */ t82723 = a39958; /* x292499 */ if (!((t82723.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34875]"); structure_ref_error();} t82720 = t82723.value.structure_type27698->s10; /* x59176 stalin.sc:912:29243 */ t82721.tag = NATIVE_PROCEDURE_TYPE17623; if (!((f8137(t82721, t82720).tag)==FALSE_TYPE)) goto l15970; l15973: /* x59327 */ /* x59326 stalin.sc:917:29468 */ /* x59325 stalin.sc:917:29490 */ t82783 = a20957; /* x59324 stalin.sc:917:29469 */ a36483 = t82783; /* x278601 */ /* x278600 */ t82784 = a36483; /* x278599 */ if (!((t82784.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31400]"); structure_ref_error();} t82728 = t82784.value.structure_type27745->s0; /* x59323 */ a20963 = t82728; /* x59322 stalin.sc:918:29499 */ /* x59321 stalin.sc:919:29508 */ /* x59288 stalin.sc:919:29513 */ /* x59286 stalin.sc:919:29518 */ /* x59285 stalin.sc:919:29535 */ /* x59284 stalin.sc:919:29554 */ t82733 = a20963; /* x59283 stalin.sc:919:29536 */ a39746 = t82733; /* x291653 */ /* x291652 */ t82734 = a39746; /* x291651 */ if (!((t82734.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34663]"); structure_ref_error();} t82731 = t82734.value.structure_type27698->s11; /* x59282 stalin.sc:919:29519 */ a40300 = t82731; /* x293869 */ /* x293868 */ t82732 = a40300; /* x293867 */ if (!((t82732.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35217]"); structure_ref_error();} t82729 = t82732.value.structure_type27698->s0; /* x59287 stalin.sc:919:29558 */ t82730 = q43; /* x270712 stalin.sc:919:29514 */ if (!(t82729==t82730)) goto l15978; /* x59319 */ /* x59309 stalin.sc:920:29566 */ /* x59308 stalin.sc:920:29570 */ /* x59302 stalin.sc:920:29575 */ t82735 = a20963; /* x59307 stalin.sc:920:29577 */ /* x59306 stalin.sc:920:29600 */ /* x59305 stalin.sc:920:29619 */ t82739 = a20963; /* x59304 stalin.sc:920:29601 */ a39745 = t82739; /* x291649 */ /* x291648 */ t82740 = a39745; /* x291647 */ if (!((t82740.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34662]"); structure_ref_error();} t82737 = t82740.value.structure_type27698->s11; /* x59303 stalin.sc:920:29578 */ a38953 = t82737; /* x288481 */ /* x288480 */ t82738 = a38953; /* x288479 */ if (!((t82738.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSEQUENT[5639] 33870]"); structure_ref_error();} t82736 = t82738.value.structure_type27698->s19; /* x270710 stalin.sc:920:29571 */ /* EQ: dispatching general to general */ if ((t82735.tag)==(t82736.tag)) switch (t82735.tag) {case FIXNUM_TYPE: if ((t82735.value.fixnum_type)==(t82736.value.fixnum_type)) goto l15980; break; case FLONUM_TYPE: if ((t82735.value.flonum_type)==(t82736.value.flonum_type)) goto l15980; break; case INPUT_PORT_TYPE: if ((t82735.value.input_port_type)==(t82736.value.input_port_type)) goto l15980; break; case OUTPUT_PORT_TYPE: if ((t82735.value.output_port_type)==(t82736.value.output_port_type)) goto l15980; break; case NATIVE_PROCEDURE_TYPE15963: if ((t82735.value.native_procedure_type15963)==(t82736.value.native_procedure_type15963)) goto l15980; break; case NATIVE_PROCEDURE_TYPE19067: if ((t82735.value.native_procedure_type19067)==(t82736.value.native_procedure_type19067)) goto l15980; break; case NATIVE_PROCEDURE_TYPE19068: if ((t82735.value.native_procedure_type19068)==(t82736.value.native_procedure_type19068)) goto l15980; break; case NATIVE_PROCEDURE_TYPE22459: if ((t82735.value.native_procedure_type22459)==(t82736.value.native_procedure_type22459)) goto l15980; break; case STRUCTURE_TYPE24753: if ((t82735.value.structure_type24753)==(t82736.value.structure_type24753)) goto l15980; break; case STRUCTURE_TYPE24757: if ((t82735.value.structure_type24757)==(t82736.value.structure_type24757)) goto l15980; break; case STRUCTURE_TYPE27501: if ((t82735.value.structure_type27501)==(t82736.value.structure_type27501)) goto l15980; break; case STRUCTURE_TYPE27510: if ((t82735.value.structure_type27510)==(t82736.value.structure_type27510)) goto l15980; break; case STRUCTURE_TYPE27621: if ((t82735.value.structure_type27621)==(t82736.value.structure_type27621)) goto l15980; break; case STRUCTURE_TYPE27650: if ((t82735.value.structure_type27650)==(t82736.value.structure_type27650)) goto l15980; break; case STRUCTURE_TYPE27669: if ((t82735.value.structure_type27669)==(t82736.value.structure_type27669)) goto l15980; break; case STRUCTURE_TYPE27673: if ((t82735.value.structure_type27673)==(t82736.value.structure_type27673)) goto l15980; break; case STRUCTURE_TYPE27692: if ((t82735.value.structure_type27692)==(t82736.value.structure_type27692)) goto l15980; break; case STRUCTURE_TYPE27694: if ((t82735.value.structure_type27694)==(t82736.value.structure_type27694)) goto l15980; break; case STRUCTURE_TYPE27698: if ((t82735.value.structure_type27698)==(t82736.value.structure_type27698)) goto l15980; break; case STRUCTURE_TYPE27745: if ((t82735.value.structure_type27745)==(t82736.value.structure_type27745)) goto l15980; break; case STRUCTURE_TYPE27747: if ((t82735.value.structure_type27747)==(t82736.value.structure_type27747)) goto l15980; break; case STRUCTURE_TYPE27750: if ((t82735.value.structure_type27750)==(t82736.value.structure_type27750)) goto l15980; break; case STRUCTURE_TYPE27753: if ((t82735.value.structure_type27753)==(t82736.value.structure_type27753)) goto l15980; break; case STRUCTURE_TYPE27756: if ((t82735.value.structure_type27756)==(t82736.value.structure_type27756)) goto l15980; break; case STRUCTURE_TYPE27761: if ((t82735.value.structure_type27761)==(t82736.value.structure_type27761)) goto l15980; break; case STRUCTURE_TYPE27769: if ((t82735.value.structure_type27769)==(t82736.value.structure_type27769)) goto l15980; break; case STRUCTURE_TYPE27776: if ((t82735.value.structure_type27776)==(t82736.value.structure_type27776)) goto l15980; break; case STRUCTURE_TYPE27779: if ((t82735.value.structure_type27779)==(t82736.value.structure_type27779)) goto l15980; break; case STRUCTURE_TYPE27858: if ((t82735.value.structure_type27858)==(t82736.value.structure_type27858)) goto l15980; break; case STRING_TYPE: if ((t82735.value.string_type)==(t82736.value.string_type)) goto l15980; break; case HEADED_VECTOR_TYPE27896: if ((t82735.value.headed_vector_type27896)==(t82736.value.headed_vector_type27896)) goto l15980; break; case EXTERNAL_SYMBOL_TYPE: if ((t82735.value.external_symbol_type)==(t82736.value.external_symbol_type)) goto l15980; break; case STRUCTURE_TYPE27908: if ((t82735.value.structure_type27908)==(t82736.value.structure_type27908)) goto l15980; break; default: goto l15980;} /* x59298 */ /* x59292 stalin.sc:921:29636 */ t82741 = a20963; /* x59297 stalin.sc:921:29638 */ /* x59296 stalin.sc:921:29660 */ /* x59295 stalin.sc:921:29679 */ t82745 = a20963; /* x59294 stalin.sc:921:29661 */ a39744 = t82745; /* x291645 */ /* x291644 */ t82746 = a39744; /* x291643 */ if (!((t82746.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34661]"); structure_ref_error();} t82743 = t82746.value.structure_type27698->s11; /* x59293 stalin.sc:921:29639 */ a38901 = t82743; /* x288273 */ /* x288272 */ t82744 = a38901; /* x288271 */ if (!((t82744.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ALTERNATE[5647] 33818]"); structure_ref_error();} t82742 = t82744.value.structure_type27698->s20; /* x270711 stalin.sc:921:29632 */ /* EQ: dispatching general to general */ if (!((t82741.tag)==(t82742.tag))) goto l15978; switch (t82741.tag) {case FIXNUM_TYPE: if (!((t82741.value.fixnum_type)==(t82742.value.fixnum_type))) goto l15978; break; case FLONUM_TYPE: if (!((t82741.value.flonum_type)==(t82742.value.flonum_type))) goto l15978; break; case INPUT_PORT_TYPE: if (!((t82741.value.input_port_type)==(t82742.value.input_port_type))) goto l15978; break; case OUTPUT_PORT_TYPE: if (!((t82741.value.output_port_type)==(t82742.value.output_port_type))) goto l15978; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t82741.value.native_procedure_type15963)==(t82742.value.native_procedure_type15963))) goto l15978; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t82741.value.native_procedure_type19067)==(t82742.value.native_procedure_type19067))) goto l15978; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t82741.value.native_procedure_type19068)==(t82742.value.native_procedure_type19068))) goto l15978; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t82741.value.native_procedure_type22459)==(t82742.value.native_procedure_type22459))) goto l15978; break; case STRUCTURE_TYPE24753: if (!((t82741.value.structure_type24753)==(t82742.value.structure_type24753))) goto l15978; break; case STRUCTURE_TYPE24757: if (!((t82741.value.structure_type24757)==(t82742.value.structure_type24757))) goto l15978; break; case STRUCTURE_TYPE27501: if (!((t82741.value.structure_type27501)==(t82742.value.structure_type27501))) goto l15978; break; case STRUCTURE_TYPE27510: if (!((t82741.value.structure_type27510)==(t82742.value.structure_type27510))) goto l15978; break; case STRUCTURE_TYPE27621: if (!((t82741.value.structure_type27621)==(t82742.value.structure_type27621))) goto l15978; break; case STRUCTURE_TYPE27650: if (!((t82741.value.structure_type27650)==(t82742.value.structure_type27650))) goto l15978; break; case STRUCTURE_TYPE27669: if (!((t82741.value.structure_type27669)==(t82742.value.structure_type27669))) goto l15978; break; case STRUCTURE_TYPE27673: if (!((t82741.value.structure_type27673)==(t82742.value.structure_type27673))) goto l15978; break; case STRUCTURE_TYPE27692: if (!((t82741.value.structure_type27692)==(t82742.value.structure_type27692))) goto l15978; break; case STRUCTURE_TYPE27694: if (!((t82741.value.structure_type27694)==(t82742.value.structure_type27694))) goto l15978; break; case STRUCTURE_TYPE27698: if (!((t82741.value.structure_type27698)==(t82742.value.structure_type27698))) goto l15978; break; case STRUCTURE_TYPE27745: if (!((t82741.value.structure_type27745)==(t82742.value.structure_type27745))) goto l15978; break; case STRUCTURE_TYPE27747: if (!((t82741.value.structure_type27747)==(t82742.value.structure_type27747))) goto l15978; break; case STRUCTURE_TYPE27750: if (!((t82741.value.structure_type27750)==(t82742.value.structure_type27750))) goto l15978; break; case STRUCTURE_TYPE27753: if (!((t82741.value.structure_type27753)==(t82742.value.structure_type27753))) goto l15978; break; case STRUCTURE_TYPE27756: if (!((t82741.value.structure_type27756)==(t82742.value.structure_type27756))) goto l15978; break; case STRUCTURE_TYPE27761: if (!((t82741.value.structure_type27761)==(t82742.value.structure_type27761))) goto l15978; break; case STRUCTURE_TYPE27769: if (!((t82741.value.structure_type27769)==(t82742.value.structure_type27769))) goto l15978; break; case STRUCTURE_TYPE27776: if (!((t82741.value.structure_type27776)==(t82742.value.structure_type27776))) goto l15978; break; case STRUCTURE_TYPE27779: if (!((t82741.value.structure_type27779)==(t82742.value.structure_type27779))) goto l15978; break; case STRUCTURE_TYPE27858: if (!((t82741.value.structure_type27858)==(t82742.value.structure_type27858))) goto l15978; break; case STRING_TYPE: if (!((t82741.value.string_type)==(t82742.value.string_type))) goto l15978; break; case HEADED_VECTOR_TYPE27896: if (!((t82741.value.headed_vector_type27896)==(t82742.value.headed_vector_type27896))) goto l15978; break; case EXTERNAL_SYMBOL_TYPE: if (!((t82741.value.external_symbol_type)==(t82742.value.external_symbol_type))) goto l15978; break; case STRUCTURE_TYPE27908: if (!((t82741.value.structure_type27908)==(t82742.value.structure_type27908))) goto l15978; break; default:;} l15980: /* x59317 */ /* x59315 stalin.sc:922:29700 */ /* x59314 stalin.sc:922:29718 */ /* x59313 stalin.sc:922:29737 */ t82751 = a20963; /* x59312 stalin.sc:922:29719 */ a39743 = t82751; /* x291641 */ /* x291640 */ t82752 = a39743; /* x291639 */ if (!((t82752.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34660]"); structure_ref_error();} t82750 = t82752.value.structure_type27698->s11; /* x59311 stalin.sc:922:29701 */ t82747 = f8739(t82750); /* x59316 stalin.sc:922:29741 */ t82748 = a20958; /* x59310 stalin.sc:922:29689 */ t82749.tag = STRUCTURE_TYPE27745; t82749.value.structure_type27745 = t82747; if (!(f7013(t82749, t82748)==FALSE_TYPE)) goto l15969; l15978: /* x59278 */ /* x59245 stalin.sc:924:29761 */ /* x59244 stalin.sc:925:29772 */ /* x59242 stalin.sc:925:29777 */ /* x59241 stalin.sc:925:29794 */ /* x59240 stalin.sc:925:29813 */ t82757 = a20963; /* x59239 stalin.sc:925:29795 */ a39742 = t82757; /* x291637 */ /* x291636 */ t82758 = a39742; /* x291635 */ if (!((t82758.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34659]"); structure_ref_error();} t82755 = t82758.value.structure_type27698->s11; /* x59238 stalin.sc:925:29778 */ a40299 = t82755; /* x293865 */ /* x293864 */ t82756 = a40299; /* x293863 */ if (!((t82756.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35216]"); structure_ref_error();} t82753 = t82756.value.structure_type27698->s0; /* x59243 stalin.sc:925:29817 */ t82754 = q39; /* x270715 stalin.sc:925:29773 */ if (t82753==t82754) goto l15982; /* x59234 */ /* x59233 stalin.sc:926:29833 */ /* x59231 stalin.sc:926:29838 */ /* x59230 stalin.sc:926:29855 */ /* x59229 stalin.sc:926:29874 */ t82763 = a20963; /* x59228 stalin.sc:926:29856 */ a39741 = t82763; /* x291633 */ /* x291632 */ t82764 = a39741; /* x291631 */ if (!((t82764.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34658]"); structure_ref_error();} t82761 = t82764.value.structure_type27698->s11; /* x59227 stalin.sc:926:29839 */ a40298 = t82761; /* x293861 */ /* x293860 */ t82762 = a40298; /* x293859 */ if (!((t82762.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35215]"); structure_ref_error();} t82759 = t82762.value.structure_type27698->s0; /* x59232 stalin.sc:926:29878 */ t82760 = q40; /* x270716 stalin.sc:926:29834 */ if (t82759==t82760) goto l15982; /* x59223 */ /* x59221 stalin.sc:927:29909 */ /* x59220 stalin.sc:927:29926 */ /* x59219 stalin.sc:927:29945 */ t82769 = a20963; /* x59218 stalin.sc:927:29927 */ a39740 = t82769; /* x291629 */ /* x291628 */ t82770 = a39740; /* x291627 */ if (!((t82770.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34657]"); structure_ref_error();} t82767 = t82770.value.structure_type27698->s11; /* x59217 stalin.sc:927:29910 */ a40297 = t82767; /* x293857 */ /* x293856 */ t82768 = a40297; /* x293855 */ if (!((t82768.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35214]"); structure_ref_error();} t82765 = t82768.value.structure_type27698->s0; /* x59222 stalin.sc:927:29949 */ t82766 = q41; /* x270717 stalin.sc:927:29905 */ if (!(t82765==t82766)) goto l15970; l15982: /* x59276 */ /* x59275 stalin.sc:928:29985 */ /* x59273 stalin.sc:928:29990 */ /* x59272 stalin.sc:928:30014 */ t82773 = a20963; /* x59271 stalin.sc:928:29991 */ a40078 = t82773; /* x292981 */ /* x292980 */ t82774 = a40078; /* x292979 */ if (!((t82774.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34995]"); structure_ref_error();} t82771 = t82774.value.structure_type27698->s9; /* x59274 stalin.sc:928:30017 */ t82772 = a20958; /* x270713 stalin.sc:928:29986 */ /* EQ: dispatching general to general */ if ((t82771.tag)==(t82772.tag)) switch (t82771.tag) {case FIXNUM_TYPE: if ((t82771.value.fixnum_type)==(t82772.value.fixnum_type)) goto l15969; break; case FLONUM_TYPE: if ((t82771.value.flonum_type)==(t82772.value.flonum_type)) goto l15969; break; case INPUT_PORT_TYPE: if ((t82771.value.input_port_type)==(t82772.value.input_port_type)) goto l15969; break; case OUTPUT_PORT_TYPE: if ((t82771.value.output_port_type)==(t82772.value.output_port_type)) goto l15969; break; case NATIVE_PROCEDURE_TYPE15963: if ((t82771.value.native_procedure_type15963)==(t82772.value.native_procedure_type15963)) goto l15969; break; case NATIVE_PROCEDURE_TYPE19067: if ((t82771.value.native_procedure_type19067)==(t82772.value.native_procedure_type19067)) goto l15969; break; case NATIVE_PROCEDURE_TYPE19068: if ((t82771.value.native_procedure_type19068)==(t82772.value.native_procedure_type19068)) goto l15969; break; case NATIVE_PROCEDURE_TYPE22459: if ((t82771.value.native_procedure_type22459)==(t82772.value.native_procedure_type22459)) goto l15969; break; case STRUCTURE_TYPE24753: if ((t82771.value.structure_type24753)==(t82772.value.structure_type24753)) goto l15969; break; case STRUCTURE_TYPE24757: if ((t82771.value.structure_type24757)==(t82772.value.structure_type24757)) goto l15969; break; case STRUCTURE_TYPE27501: if ((t82771.value.structure_type27501)==(t82772.value.structure_type27501)) goto l15969; break; case STRUCTURE_TYPE27510: if ((t82771.value.structure_type27510)==(t82772.value.structure_type27510)) goto l15969; break; case STRUCTURE_TYPE27621: if ((t82771.value.structure_type27621)==(t82772.value.structure_type27621)) goto l15969; break; case STRUCTURE_TYPE27650: if ((t82771.value.structure_type27650)==(t82772.value.structure_type27650)) goto l15969; break; case STRUCTURE_TYPE27669: if ((t82771.value.structure_type27669)==(t82772.value.structure_type27669)) goto l15969; break; case STRUCTURE_TYPE27673: if ((t82771.value.structure_type27673)==(t82772.value.structure_type27673)) goto l15969; break; case STRUCTURE_TYPE27692: if ((t82771.value.structure_type27692)==(t82772.value.structure_type27692)) goto l15969; break; case STRUCTURE_TYPE27694: if ((t82771.value.structure_type27694)==(t82772.value.structure_type27694)) goto l15969; break; case STRUCTURE_TYPE27698: if ((t82771.value.structure_type27698)==(t82772.value.structure_type27698)) goto l15969; break; case STRUCTURE_TYPE27745: if ((t82771.value.structure_type27745)==(t82772.value.structure_type27745)) goto l15969; break; case STRUCTURE_TYPE27747: if ((t82771.value.structure_type27747)==(t82772.value.structure_type27747)) goto l15969; break; case STRUCTURE_TYPE27750: if ((t82771.value.structure_type27750)==(t82772.value.structure_type27750)) goto l15969; break; case STRUCTURE_TYPE27753: if ((t82771.value.structure_type27753)==(t82772.value.structure_type27753)) goto l15969; break; case STRUCTURE_TYPE27756: if ((t82771.value.structure_type27756)==(t82772.value.structure_type27756)) goto l15969; break; case STRUCTURE_TYPE27761: if ((t82771.value.structure_type27761)==(t82772.value.structure_type27761)) goto l15969; break; case STRUCTURE_TYPE27769: if ((t82771.value.structure_type27769)==(t82772.value.structure_type27769)) goto l15969; break; case STRUCTURE_TYPE27776: if ((t82771.value.structure_type27776)==(t82772.value.structure_type27776)) goto l15969; break; case STRUCTURE_TYPE27779: if ((t82771.value.structure_type27779)==(t82772.value.structure_type27779)) goto l15969; break; case STRUCTURE_TYPE27858: if ((t82771.value.structure_type27858)==(t82772.value.structure_type27858)) goto l15969; break; case STRING_TYPE: if ((t82771.value.string_type)==(t82772.value.string_type)) goto l15969; break; case HEADED_VECTOR_TYPE27896: if ((t82771.value.headed_vector_type27896)==(t82772.value.headed_vector_type27896)) goto l15969; break; case EXTERNAL_SYMBOL_TYPE: if ((t82771.value.external_symbol_type)==(t82772.value.external_symbol_type)) goto l15969; break; case STRUCTURE_TYPE27908: if ((t82771.value.structure_type27908)==(t82772.value.structure_type27908)) goto l15969; break; default: goto l15969;} /* x59267 */ /* x59266 stalin.sc:929:30023 */ /* x59265 stalin.sc:929:30028 */ /* x59264 stalin.sc:929:30047 */ /* x59263 stalin.sc:929:30071 */ t82776 = a20963; /* x59262 stalin.sc:929:30048 */ a40077 = t82776; /* x292977 */ /* x292976 */ t82777 = a40077; /* x292975 */ if (!((t82777.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34994]"); structure_ref_error();} t82775 = t82777.value.structure_type27698->s9; /* x59261 stalin.sc:929:30029 */ if (f8585(t82775)==FALSE_TYPE) goto l15969; /* x59257 */ /* x59255 stalin.sc:930:30091 */ /* x59254 stalin.sc:930:30109 */ /* x59253 stalin.sc:930:30133 */ t82781 = a20963; /* x59252 stalin.sc:930:30110 */ a40076 = t82781; /* x292973 */ /* x292972 */ t82782 = a40076; /* x292971 */ if (!((t82782.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34993]"); structure_ref_error();} t82780 = t82782.value.structure_type27698->s9; /* x59251 stalin.sc:930:30092 */ t82778 = f8659(t82780); /* x59256 stalin.sc:930:30137 */ t82779 = a20958; /* x59250 stalin.sc:930:30080 */ a20957 = t82778; a20958 = t82779; goto h7013; l15969: return TRUE_TYPE; l15970: return FALSE_TYPE;} /* THIRD-ARGUMENT[7008] */ struct w49 f7008(struct w49 a20955) {char *a20956; /* v */ struct w49 a38518; /* S */ struct w49 a38519; /* S */ struct w49 a40270; /* S */ char *t82785; char *t82786; char *t82787; struct w49 t82788; struct w49 t82789; char *t82790; char *t82791; struct w49 t82792; struct w49 t82793; char *t82794; struct w11873 t82795; struct w49 t82796; struct w49 t82797; struct w49 t82798; struct w11873 t82799; struct w49 t82800; struct w49 t82801; struct w49 t82802; struct w49 t82803; struct w49 t82804; /* x59165 stalin.sc:881:27738 */ /* x59164 stalin.sc:881:27744 */ /* x59163 stalin.sc:881:27761 */ t82803 = a20955; /* x59162 stalin.sc:881:27745 */ a40270 = t82803; /* x293749 */ /* x293748 */ t82804 = a40270; /* x293747 */ if (!((t82804.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35187]"); structure_ref_error();} t82785 = t82804.value.structure_type27698->s0; /* x59161 */ a20956 = t82785; /* x59160 */ /* x59136 */ /* x59134 */ t82786 = a20956; /* x59135 */ t82787 = q36; /* x59133 */ t82788.tag = EXTERNAL_SYMBOL_TYPE; t82788.value.external_symbol_type = t82786; t82789.tag = EXTERNAL_SYMBOL_TYPE; t82789.value.external_symbol_type = t82787; if (f26160(t82788, t82789)==FALSE_TYPE) goto l15988; /* x59143 */ /* x59142 */ /* x59141 stalin.sc:882:27774 */ /* x59140 stalin.sc:882:27781 */ /* x59139 stalin.sc:882:27803 */ t82801 = a20955; /* x59138 stalin.sc:882:27782 */ a38518 = t82801; /* x286741 */ /* x286740 */ t82802 = a38518; /* x286739 */ if (!((t82802.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33435]"); structure_ref_error();} t82799 = t82802.value.structure_type27698->s22; /* x59137 stalin.sc:882:27775 */ t82800 = *((struct w49 *)(&t82799)); return f26187(t82800); l15988: /* x59159 */ /* x59147 */ /* x59145 */ t82790 = a20956; /* x59146 */ t82791 = q37; /* x59144 */ t82792.tag = EXTERNAL_SYMBOL_TYPE; t82792.value.external_symbol_type = t82790; t82793.tag = EXTERNAL_SYMBOL_TYPE; t82793.value.external_symbol_type = t82791; if (f26160(t82792, t82793)==FALSE_TYPE) goto l15990; /* x59154 */ /* x59153 */ /* x59152 stalin.sc:883:27828 */ /* x59151 stalin.sc:883:27836 */ /* x59150 stalin.sc:883:27858 */ t82797 = a20955; /* x59149 stalin.sc:883:27837 */ a38519 = t82797; /* x286745 */ /* x286744 */ t82798 = a38519; /* x286743 */ if (!((t82798.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33436]"); structure_ref_error();} t82795 = t82798.value.structure_type27698->s22; /* x59148 stalin.sc:883:27829 */ t82796 = *((struct w49 *)(&t82795)); return f26199(t82796); l15990: /* x59158 */ /* x59157 */ /* x59156 stalin.sc:884:27871 */ /* x59155 stalin.sc:884:27872 */ /* x295241 QobiScheme.sc:166:5314 */ /* x295240 QobiScheme.sc:166:5321 */ t82794 = "This shouldn\'t happen"; /* x295239 QobiScheme.sc:166:5315 */ stalin_panic(t82794);} /* SECOND-ARGUMENT[7003] */ struct w49 f7003(struct w49 a20953) {char *a20954; /* v */ struct w49 a38539; /* S */ struct w49 a38540; /* S */ struct w49 a40291; /* S */ char *t82805; char *t82806; char *t82807; struct w49 t82808; struct w49 t82809; char *t82810; char *t82811; struct w49 t82812; struct w49 t82813; char *t82814; struct w11873 t82815; struct w49 t82816; struct w49 t82817; struct w49 t82818; struct w11873 t82819; struct w49 t82820; struct w49 t82821; struct w49 t82822; struct w49 t82823; struct w49 t82824; /* x59130 stalin.sc:875:27563 */ /* x59129 stalin.sc:875:27569 */ /* x59128 stalin.sc:875:27586 */ t82823 = a20953; /* x59127 stalin.sc:875:27570 */ a40291 = t82823; /* x293833 */ /* x293832 */ t82824 = a40291; /* x293831 */ if (!((t82824.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35208]"); structure_ref_error();} t82805 = t82824.value.structure_type27698->s0; /* x59126 */ a20954 = t82805; /* x59125 */ /* x59101 */ /* x59099 */ t82806 = a20954; /* x59100 */ t82807 = q36; /* x59098 */ t82808.tag = EXTERNAL_SYMBOL_TYPE; t82808.value.external_symbol_type = t82806; t82809.tag = EXTERNAL_SYMBOL_TYPE; t82809.value.external_symbol_type = t82807; if (f26160(t82808, t82809)==FALSE_TYPE) goto l15992; /* x59108 */ /* x59107 */ /* x59106 stalin.sc:876:27599 */ /* x59105 stalin.sc:876:27607 */ /* x59104 stalin.sc:876:27629 */ t82821 = a20953; /* x59103 stalin.sc:876:27608 */ a38539 = t82821; /* x286825 */ /* x286824 */ t82822 = a38539; /* x286823 */ if (!((t82822.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33456]"); structure_ref_error();} t82819 = t82822.value.structure_type27698->s22; /* x59102 stalin.sc:876:27600 */ t82820 = *((struct w49 *)(&t82819)); return f26181(t82820); l15992: /* x59124 */ /* x59112 */ /* x59110 */ t82810 = a20954; /* x59111 */ t82811 = q37; /* x59109 */ t82812.tag = EXTERNAL_SYMBOL_TYPE; t82812.value.external_symbol_type = t82810; t82813.tag = EXTERNAL_SYMBOL_TYPE; t82813.value.external_symbol_type = t82811; if (f26160(t82812, t82813)==FALSE_TYPE) goto l15994; /* x59119 */ /* x59118 */ /* x59117 stalin.sc:877:27654 */ /* x59116 stalin.sc:877:27661 */ /* x59115 stalin.sc:877:27683 */ t82817 = a20953; /* x59114 stalin.sc:877:27662 */ a38540 = t82817; /* x286829 */ /* x286828 */ t82818 = a38540; /* x286827 */ if (!((t82818.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33457]"); structure_ref_error();} t82815 = t82818.value.structure_type27698->s22; /* x59113 stalin.sc:877:27655 */ t82816 = *((struct w49 *)(&t82815)); return f26187(t82816); l15994: /* x59123 */ /* x59122 */ /* x59121 stalin.sc:878:27696 */ /* x59120 stalin.sc:878:27697 */ /* x296133 QobiScheme.sc:166:5314 */ /* x296132 QobiScheme.sc:166:5321 */ t82814 = "This shouldn\'t happen"; /* x296131 QobiScheme.sc:166:5315 */ stalin_panic(t82814);} /* FIRST-ARGUMENT[6998] */ struct w49 f6998(struct w49 a20951) {char *a20952; /* v */ struct w11873 a36003; /* PAIR */ struct w49 a38541; /* S */ struct w49 a38542; /* S */ struct w49 a40292; /* S */ char *t82825; char *t82826; char *t82827; struct w49 t82828; struct w49 t82829; char *t82830; char *t82831; struct w49 t82832; struct w49 t82833; char *t82834; struct w11873 t82835; struct w49 t82836; struct w49 t82837; struct w49 t82838; struct w11873 t82839; struct w11873 t82840; struct w49 t82841; struct w49 t82842; struct w49 t82843; struct w49 t82844; /* x59095 stalin.sc:869:27387 */ /* x59094 stalin.sc:869:27393 */ /* x59093 stalin.sc:869:27410 */ t82843 = a20951; /* x59092 stalin.sc:869:27394 */ a40292 = t82843; /* x293837 */ /* x293836 */ t82844 = a40292; /* x293835 */ if (!((t82844.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35209]"); structure_ref_error();} t82825 = t82844.value.structure_type27698->s0; /* x59091 */ a20952 = t82825; /* x59090 */ /* x59066 */ /* x59064 */ t82826 = a20952; /* x59065 */ t82827 = q36; /* x59063 */ t82828.tag = EXTERNAL_SYMBOL_TYPE; t82828.value.external_symbol_type = t82826; t82829.tag = EXTERNAL_SYMBOL_TYPE; t82829.value.external_symbol_type = t82827; if (f26160(t82828, t82829)==FALSE_TYPE) goto l15996; /* x59073 */ /* x59072 */ /* x59071 stalin.sc:870:27423 */ /* x59070 stalin.sc:870:27430 */ /* x59069 stalin.sc:870:27452 */ t82841 = a20951; /* x59068 stalin.sc:870:27431 */ a38541 = t82841; /* x286833 */ /* x286832 */ t82842 = a38541; /* x286831 */ if (!((t82842.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33458]"); structure_ref_error();} t82839 = t82842.value.structure_type27698->s22; /* x59067 stalin.sc:870:27424 */ a36003 = t82839; /* x275369 */ /* x275368 */ t82840 = a36003; /* x275367 */ if ((t82840.tag)==STRUCTURE_TYPE24753) return t82840.value.structure_type24753->s0; backtrace_internal("[clone CAR[26176] 30152]"); structure_ref_error(); l15996: /* x59089 */ /* x59077 */ /* x59075 */ t82830 = a20952; /* x59076 */ t82831 = q37; /* x59074 */ t82832.tag = EXTERNAL_SYMBOL_TYPE; t82832.value.external_symbol_type = t82830; t82833.tag = EXTERNAL_SYMBOL_TYPE; t82833.value.external_symbol_type = t82831; if (f26160(t82832, t82833)==FALSE_TYPE) goto l15998; /* x59084 */ /* x59083 */ /* x59082 stalin.sc:871:27477 */ /* x59081 stalin.sc:871:27485 */ /* x59080 stalin.sc:871:27507 */ t82837 = a20951; /* x59079 stalin.sc:871:27486 */ a38542 = t82837; /* x286837 */ /* x286836 */ t82838 = a38542; /* x286835 */ if (!((t82838.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33459]"); structure_ref_error();} t82835 = t82838.value.structure_type27698->s22; /* x59078 stalin.sc:871:27478 */ t82836 = *((struct w49 *)(&t82835)); return f26181(t82836); l15998: /* x59088 */ /* x59087 */ /* x59086 stalin.sc:872:27520 */ /* x59085 stalin.sc:872:27521 */ /* x296137 QobiScheme.sc:166:5314 */ /* x296136 QobiScheme.sc:166:5321 */ t82834 = "This shouldn\'t happen"; /* x296135 QobiScheme.sc:166:5315 */ stalin_panic(t82834);} /* CONTINUATION-ARGUMENT[6994] */ struct w49 f6994(struct w49 a20949) {struct w11873 a35997; /* PAIR */ struct w49 a38535; /* S */ struct w49 a40290; /* S */ struct w11873 t82845; struct w11873 t82846; struct w49 t82847; struct w49 t82848; char *t82849; char *t82850; struct w49 t82851; struct w49 t82852; char *t82853; /* x59060 */ /* x59059 stalin.sc:865:27262 */ /* x59052 stalin.sc:865:27270 */ /* x59050 stalin.sc:865:27275 */ /* x59049 stalin.sc:865:27292 */ t82851 = a20949; /* x59048 stalin.sc:865:27276 */ a40290 = t82851; /* x293829 */ /* x293828 */ t82852 = a40290; /* x293827 */ if (!((t82852.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35207]"); structure_ref_error();} t82849 = t82852.value.structure_type27698->s0; /* x59051 stalin.sc:865:27295 */ t82850 = q37; /* x270719 stalin.sc:865:27271 */ if (!(t82849==t82850)) goto l16000; /* x59054 */ /* x59053 */ goto l16001; l16000: /* x59058 */ /* x59057 */ /* x59056 stalin.sc:865:27312 */ /* x59055 stalin.sc:865:27313 */ /* x296129 QobiScheme.sc:166:5314 */ /* x296128 QobiScheme.sc:166:5321 */ t82853 = "This shouldn\'t happen"; /* x296127 QobiScheme.sc:166:5315 */ stalin_panic(t82853); l16001: /* x59046 */ /* x59045 stalin.sc:866:27324 */ /* x59044 stalin.sc:866:27331 */ /* x59043 stalin.sc:866:27353 */ t82847 = a20949; /* x59042 stalin.sc:866:27332 */ a38535 = t82847; /* x286809 */ /* x286808 */ t82848 = a38535; /* x286807 */ if (!((t82848.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33452]"); structure_ref_error();} t82845 = t82848.value.structure_type27698->s22; /* x59041 stalin.sc:866:27325 */ a35997 = t82845; /* x275345 */ /* x275344 */ t82846 = a35997; /* x275343 */ if ((t82846.tag)==STRUCTURE_TYPE24753) return t82846.value.structure_type24753->s0; backtrace_internal("[clone CAR[26176] 30146]"); structure_ref_error();} /* NONTRIVIAL-REFERENCE?[6984] */ unsigned f6984(struct w49 a20942) {char *a20943; /* v */ struct w49 a36887; /* S */ struct w49 a39068; /* S */ struct w49 a39152; /* S */ struct w49 a39179; /* S */ struct w49 a39180; /* S */ struct w49 a39986; /* S */ struct w49 a40010; /* S */ struct w49 a40408; /* S */ struct w49 a41674; /* G */ char *t82854; char *t82855; char *t82856; struct w49 t82857; struct w49 t82858; char *t82859; char *t82860; struct w49 t82861; struct w49 t82862; char *t82863; struct w49 t82864; struct w49 t82865; struct w49 t82866; struct w49 t82867; struct w49 t82868; struct w49 t82869; struct w49 t82870; struct w49 t82871; struct w49 t82872; struct w49 t82873; struct w49 t82874; struct w49 t82875; struct w49 t82876; struct w49 t82877; struct w49 t82878; struct w49 t82879; struct w49 t82880; struct w49 t82881; struct w49 t82882; struct w49 t82883; struct w49 t82884; struct w49 t82885; struct w49 t82886; struct w49 t82887; /* x58972 stalin.sc:838:26319 */ /* x58971 stalin.sc:838:26325 */ /* x58970 stalin.sc:838:26342 */ t82886 = a20942; /* x58969 stalin.sc:838:26326 */ a40408 = t82886; /* x294301 */ /* x294300 */ t82887 = a40408; /* x294299 */ if (!((t82887.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35325]"); structure_ref_error();} t82854 = t82887.value.structure_type27698->s0; /* x58968 */ a20943 = t82854; /* x58967 */ /* x58900 */ /* x58898 */ t82855 = a20943; /* x58899 */ t82856 = q38; /* x58897 */ t82857.tag = EXTERNAL_SYMBOL_TYPE; t82857.value.external_symbol_type = t82855; t82858.tag = EXTERNAL_SYMBOL_TYPE; t82858.value.external_symbol_type = t82856; if (f26160(t82857, t82858)==FALSE_TYPE) goto l16003; /* x58914 */ /* x58913 */ /* x58912 stalin.sc:839:26357 */ /* x58912 stalin.sc:839:26357 */ /* x58903 stalin.sc:839:26362 */ /* x58902 stalin.sc:839:26372 */ t82882 = a20942; /* x58901 stalin.sc:839:26363 */ if (f6961(t82882)==FALSE_TYPE) goto l16014; /* x58910 */ /* x58909 stalin.sc:839:26380 */ /* x58908 stalin.sc:839:26393 */ /* x58907 stalin.sc:839:26414 */ t82884 = a20942; /* x58906 stalin.sc:839:26394 */ a40010 = t82884; /* x292709 */ /* x292708 */ t82885 = a40010; /* x292707 */ if (!((t82885.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34927]"); structure_ref_error();} t82883 = t82885.value.structure_type27698->s10; /* x58905 stalin.sc:839:26381 */ if (!(f8793(t82883)==FALSE_TYPE)) goto l16014; return TRUE_TYPE; l16014: return FALSE_TYPE; l16003: /* x58966 */ /* x58918 */ /* x58916 */ t82859 = a20943; /* x58917 */ t82860 = q42; /* x58915 */ t82861.tag = EXTERNAL_SYMBOL_TYPE; t82861.value.external_symbol_type = t82859; t82862.tag = EXTERNAL_SYMBOL_TYPE; t82862.value.external_symbol_type = t82860; if (f26160(t82861, t82862)==FALSE_TYPE) goto l16005; /* x58961 */ /* x58960 */ /* x58959 stalin.sc:841:26434 */ /* x58959 stalin.sc:841:26434 */ /* x58921 stalin.sc:841:26439 */ /* x58920 stalin.sc:841:26450 */ t82864 = a20942; /* x58919 stalin.sc:841:26440 */ if (f6967(t82864)==FALSE_TYPE) goto l16007; /* x58957 */ /* x58926 stalin.sc:842:26454 */ /* x58925 stalin.sc:842:26465 */ /* x58924 stalin.sc:842:26486 */ t82866 = a20942; /* x58923 stalin.sc:842:26466 */ a39180 = t82866; /* x289389 */ /* x289388 */ t82867 = a39180; /* x289387 */ if (!((t82867.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34097]"); structure_ref_error();} t82865 = t82867.value.structure_type27698->s16; /* x58922 stalin.sc:842:26455 */ if (f8229(t82865)==FALSE_TYPE) goto l16007; /* x58955 */ /* x58935 stalin.sc:843:26491 */ /* x58934 stalin.sc:843:26496 */ /* x58933 stalin.sc:843:26509 */ /* x58932 stalin.sc:843:26528 */ /* x58931 stalin.sc:843:26549 */ t82871 = a20942; /* x58930 stalin.sc:843:26529 */ a39179 = t82871; /* x289385 */ /* x289384 */ t82872 = a39179; /* x289383 */ if (!((t82872.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34096]"); structure_ref_error();} t82869 = t82872.value.structure_type27698->s16; /* x58929 stalin.sc:843:26510 */ a36887 = t82869; /* x280217 */ /* x280216 */ t82870 = a36887; /* x280215 */ if (!((t82870.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31804]"); structure_ref_error();} t82868 = t82870.value.structure_type27692->s9; /* x58928 stalin.sc:843:26497 */ if (!(f8793(t82868)==FALSE_TYPE)) goto l16007; /* x58953 */ /* x58942 stalin.sc:844:26556 */ /* x58941 stalin.sc:844:26561 */ /* x58940 stalin.sc:844:26570 */ /* x58939 stalin.sc:844:26591 */ t82875 = a20942; /* x58938 stalin.sc:844:26571 */ a39152 = t82875; /* x289277 */ /* x289276 */ t82876 = a39152; /* x289275 */ if (!((t82876.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34069]"); structure_ref_error();} t82873 = t82876.value.structure_type27698->s16; /* x58937 stalin.sc:844:26562 */ a41674 = t82873; /* x300808 stalin.sc:3942:133266 */ /* x300807 stalin.sc:3942:133284 */ t82874 = a41674; /* x300806 stalin.sc:3942:133267 */ if (!(f8214(t82874)==FALSE_TYPE)) goto l16007; /* x58951 */ /* x58950 stalin.sc:846:26644 */ /* x58949 stalin.sc:846:26651 */ /* x58948 stalin.sc:846:26672 */ /* x58947 stalin.sc:846:26691 */ t82880 = a20942; /* x58946 stalin.sc:846:26673 */ a39068 = t82880; /* x288941 */ /* x288940 */ t82881 = a39068; /* x288939 */ if (!((t82881.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33985]"); structure_ref_error();} t82878 = t82881.value.structure_type27698->s17; /* x58945 stalin.sc:846:26652 */ a39986 = t82878; /* x292613 */ /* x292612 */ t82879 = a39986; /* x292611 */ if (!((t82879.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34903]"); structure_ref_error();} t82877 = t82879.value.structure_type27698->s10; /* x58944 stalin.sc:846:26645 */ if (!(f8147(t82877)==FALSE_TYPE)) goto l16007; return TRUE_TYPE; l16007: return FALSE_TYPE; l16005: /* x58965 */ /* x58964 */ /* x58963 stalin.sc:847:26707 */ /* x58962 stalin.sc:847:26708 */ /* x297045 QobiScheme.sc:166:5314 */ /* x297044 QobiScheme.sc:166:5321 */ t82863 = "This shouldn\'t happen"; /* x297043 QobiScheme.sc:166:5315 */ stalin_panic(t82863);} /* EXECUTED?[6967] */ unsigned f6967(struct w49 a20934) {char *a20935; /* v */ char *a20937; /* v */ char *a20939; /* v */ struct w49 a38590; /* S */ struct w49 a38591; /* S */ struct w49 a38862; /* S */ struct w49 a38863; /* S */ struct w49 a39085; /* S */ struct w49 a39086; /* S */ struct w49 a40407; /* S */ struct w49 a40410; /* S */ char *t82888; char *t82889; char *t82890; struct w49 t82891; struct w49 t82892; char *t82893; char *t82894; struct w49 t82895; struct w49 t82896; char *t82897; char *t82898; struct w49 t82899; struct w49 t82900; char *t82901; struct w49 t82902; struct w49 t82903; struct w49 t82904; struct w11873 t82905; struct w228245 t82906; struct w49 t82907; struct structure_type24753 *t82908; struct w49 t82909; struct w49 t82910; struct w49 t82911; struct w49 t82912; struct w49 t82913; struct w49 t82914; struct w49 t82915; char *t82916; char *t82917; char *t82918; struct w49 t82919; struct w49 t82920; char *t82921; char *t82922; struct w49 t82923; struct w49 t82924; char *t82925; char *t82926; struct w49 t82927; struct w49 t82928; char *t82929; char *t82930; char *t82931; char *t82932; struct w49 t82933; struct w49 t82934; char *t82935; char *t82936; struct w49 t82937; struct w49 t82938; char *t82939; char *t82940; struct w49 t82941; struct w49 t82942; char *t82943; struct w49 t82944; struct w49 t82945; struct w49 t82946; struct w11873 t82947; struct w228245 t82948; struct w49 t82949; struct structure_type24753 *t82950; struct w49 t82951; struct w49 t82952; struct w49 t82953; struct w49 t82954; struct w49 t82955; struct w49 t82956; struct w49 t82957; /* x58875 stalin.sc:813:25417 */ /* x58743 stalin.sc:813:25421 */ if (a2039==FALSE_TYPE) goto l16018; /* x58824 stalin.sc:814:25455 */ /* x58823 stalin.sc:814:25461 */ t82916 = a687; /* x58822 */ a20935 = t82916; /* x58821 */ /* x58756 */ /* x58755 */ /* x58753 */ t82917 = a20935; /* x58754 */ t82918 = q15; /* x58752 */ /* MOVE: branching squeezed to general */ if (t82917>=((char *)VALUE_OFFSET)) {t82919.tag = EXTERNAL_SYMBOL_TYPE; t82919.value.external_symbol_type = t82917;} else t82919.tag = (unsigned)t82917; t82920.tag = EXTERNAL_SYMBOL_TYPE; t82920.value.external_symbol_type = t82918; if (!(f26160(t82919, t82920)==FALSE_TYPE)) goto l16028; /* x58749 */ /* x58747 */ t82921 = a20935; /* x58748 */ t82922 = q16; /* x58746 */ /* MOVE: branching squeezed to general */ if (t82921>=((char *)VALUE_OFFSET)) {t82923.tag = EXTERNAL_SYMBOL_TYPE; t82923.value.external_symbol_type = t82921;} else t82923.tag = (unsigned)t82921; t82924.tag = EXTERNAL_SYMBOL_TYPE; t82924.value.external_symbol_type = t82922; if (f26160(t82923, t82924)==FALSE_TYPE) goto l16029; l16028: /* x58759 */ /* x58758 */ /* x58757 stalin.sc:815:25520 */ return TRUE_TYPE; l16029: /* x58820 */ /* x58763 */ /* x58761 */ t82925 = a20935; /* x58762 */ t82926 = q17; /* x58760 */ /* MOVE: branching squeezed to general */ if (t82925>=((char *)VALUE_OFFSET)) {t82927.tag = EXTERNAL_SYMBOL_TYPE; t82927.value.external_symbol_type = t82925;} else t82927.tag = (unsigned)t82925; t82928.tag = EXTERNAL_SYMBOL_TYPE; t82928.value.external_symbol_type = t82926; if (f26160(t82927, t82928)==FALSE_TYPE) goto l16032; /* x58815 */ /* x58814 */ /* x58813 stalin.sc:817:25552 */ /* x58812 stalin.sc:817:25558 */ /* x58811 stalin.sc:817:25575 */ t82956 = a20934; /* x58810 stalin.sc:817:25559 */ a40407 = t82956; /* x294297 */ /* x294296 */ t82957 = a40407; /* x294295 */ if (!((t82957.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35324]"); structure_ref_error();} t82930 = t82957.value.structure_type27698->s0; /* x58809 */ a20937 = t82930; /* x58808 */ /* x58767 */ /* x58765 */ t82931 = a20937; /* x58766 */ t82932 = q42; /* x58764 */ t82933.tag = EXTERNAL_SYMBOL_TYPE; t82933.value.external_symbol_type = t82931; t82934.tag = EXTERNAL_SYMBOL_TYPE; t82934.value.external_symbol_type = t82932; if (f26160(t82933, t82934)==FALSE_TYPE) goto l16034; /* x58774 */ /* x58773 */ /* x58772 stalin.sc:818:25587 */ /* x58771 stalin.sc:818:25608 */ /* x58770 stalin.sc:818:25627 */ t82954 = a20934; /* x58769 stalin.sc:818:25609 */ a39085 = t82954; /* x289009 */ /* x289008 */ t82955 = a39085; /* x289007 */ if (!((t82955.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 34002]"); structure_ref_error();} t82953 = t82955.value.structure_type27698->s17; /* x58768 stalin.sc:818:25588 */ return f6956(t82953); l16034: /* x58807 */ /* x58787 */ /* x58786 */ /* x58784 */ t82935 = a20937; /* x58785 */ t82936 = q36; /* x58783 */ t82937.tag = EXTERNAL_SYMBOL_TYPE; t82937.value.external_symbol_type = t82935; t82938.tag = EXTERNAL_SYMBOL_TYPE; t82938.value.external_symbol_type = t82936; if (!(f26160(t82937, t82938)==FALSE_TYPE)) goto l16035; /* x58780 */ /* x58778 */ t82939 = a20937; /* x58779 */ t82940 = q37; /* x58777 */ t82941.tag = EXTERNAL_SYMBOL_TYPE; t82941.value.external_symbol_type = t82939; t82942.tag = EXTERNAL_SYMBOL_TYPE; t82942.value.external_symbol_type = t82940; if (f26160(t82941, t82942)==FALSE_TYPE) goto l16036; l16035: /* x58802 */ /* x58801 */ /* x58800 stalin.sc:820:25658 */ /* x58800 stalin.sc:820:25658 */ /* x58792 stalin.sc:820:25663 */ /* x58791 stalin.sc:820:25684 */ /* x58790 stalin.sc:820:25703 */ t82945 = a20934; /* x58789 stalin.sc:820:25685 */ a38862 = t82945; /* x288117 */ /* x288116 */ t82946 = a38862; /* x288115 */ if (!((t82946.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33779]"); structure_ref_error();} t82944 = t82946.value.structure_type27698->s21; /* x58788 stalin.sc:820:25664 */ if (f6956(t82944)==FALSE_TYPE) goto l16039; /* x58798 */ /* x58797 stalin.sc:821:25741 */ /* x58796 stalin.sc:821:25763 */ t82951 = a20934; /* x58795 stalin.sc:821:25742 */ a38590 = t82951; /* x287029 */ /* x287028 */ t82952 = a38590; /* x287027 */ if (!((t82952.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33507]"); structure_ref_error();} t82947 = t82952.value.structure_type27698->s22; /* x58794 stalin.sc:821:25721 */ /* x58793 stalin.sc:821:25715 */ t82948.tag = NATIVE_PROCEDURE_TYPE7616; t82949 = *((struct w49 *)(&t82947)); t82950 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t82948, t82949, t82950)==FALSE_TYPE) goto l16039; return TRUE_TYPE; l16039: return FALSE_TYPE; l16036: /* x58806 */ /* x58805 */ /* x58804 stalin.sc:822:25776 */ /* x58803 stalin.sc:822:25777 */ /* x297041 QobiScheme.sc:166:5314 */ /* x297040 QobiScheme.sc:166:5321 */ t82943 = "This shouldn\'t happen"; /* x297039 QobiScheme.sc:166:5315 */ stalin_panic(t82943); l16032: /* x58819 */ /* x58818 */ /* x58817 stalin.sc:823:25801 */ /* x58816 stalin.sc:823:25802 */ /* x297365 QobiScheme.sc:166:5314 */ /* x297364 QobiScheme.sc:166:5321 */ t82929 = "This shouldn\'t happen"; /* x297363 QobiScheme.sc:166:5315 */ stalin_panic(t82929); l16018: /* x58874 stalin.sc:824:25818 */ /* x58873 stalin.sc:824:25824 */ /* x58872 stalin.sc:824:25841 */ t82914 = a20934; /* x58871 stalin.sc:824:25825 */ a40410 = t82914; /* x294309 */ /* x294308 */ t82915 = a40410; /* x294307 */ if (!((t82915.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35327]"); structure_ref_error();} t82888 = t82915.value.structure_type27698->s0; /* x58870 */ a20939 = t82888; /* x58869 */ /* x58828 */ /* x58826 */ t82889 = a20939; /* x58827 */ t82890 = q42; /* x58825 */ t82891.tag = EXTERNAL_SYMBOL_TYPE; t82891.value.external_symbol_type = t82889; t82892.tag = EXTERNAL_SYMBOL_TYPE; t82892.value.external_symbol_type = t82890; if (f26160(t82891, t82892)==FALSE_TYPE) goto l16020; /* x58835 */ /* x58834 */ /* x58833 stalin.sc:825:25858 */ /* x58832 stalin.sc:825:25879 */ /* x58831 stalin.sc:825:25898 */ t82912 = a20934; /* x58830 stalin.sc:825:25880 */ a39086 = t82912; /* x289013 */ /* x289012 */ t82913 = a39086; /* x289011 */ if (!((t82913.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 34003]"); structure_ref_error();} t82911 = t82913.value.structure_type27698->s17; /* x58829 stalin.sc:825:25859 */ return f6956(t82911); l16020: /* x58868 */ /* x58848 */ /* x58847 */ /* x58845 */ t82893 = a20939; /* x58846 */ t82894 = q36; /* x58844 */ t82895.tag = EXTERNAL_SYMBOL_TYPE; t82895.value.external_symbol_type = t82893; t82896.tag = EXTERNAL_SYMBOL_TYPE; t82896.value.external_symbol_type = t82894; if (!(f26160(t82895, t82896)==FALSE_TYPE)) goto l16021; /* x58841 */ /* x58839 */ t82897 = a20939; /* x58840 */ t82898 = q37; /* x58838 */ t82899.tag = EXTERNAL_SYMBOL_TYPE; t82899.value.external_symbol_type = t82897; t82900.tag = EXTERNAL_SYMBOL_TYPE; t82900.value.external_symbol_type = t82898; if (f26160(t82899, t82900)==FALSE_TYPE) goto l16022; l16021: /* x58863 */ /* x58862 */ /* x58861 stalin.sc:827:25939 */ /* x58861 stalin.sc:827:25939 */ /* x58853 stalin.sc:827:25944 */ /* x58852 stalin.sc:827:25965 */ /* x58851 stalin.sc:827:25984 */ t82903 = a20934; /* x58850 stalin.sc:827:25966 */ a38863 = t82903; /* x288121 */ /* x288120 */ t82904 = a38863; /* x288119 */ if (!((t82904.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33780]"); structure_ref_error();} t82902 = t82904.value.structure_type27698->s21; /* x58849 stalin.sc:827:25945 */ if (f6956(t82902)==FALSE_TYPE) goto l16025; /* x58859 */ /* x58858 stalin.sc:828:26020 */ /* x58857 stalin.sc:828:26042 */ t82909 = a20934; /* x58856 stalin.sc:828:26021 */ a38591 = t82909; /* x287033 */ /* x287032 */ t82910 = a38591; /* x287031 */ if (!((t82910.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33508]"); structure_ref_error();} t82905 = t82910.value.structure_type27698->s22; /* x58855 stalin.sc:828:26000 */ /* x58854 stalin.sc:828:25994 */ t82906.tag = NATIVE_PROCEDURE_TYPE7616; t82907 = *((struct w49 *)(&t82905)); t82908 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t82906, t82907, t82908)==FALSE_TYPE) goto l16025; return TRUE_TYPE; l16025: return FALSE_TYPE; l16022: /* x58867 */ /* x58866 */ /* x58865 stalin.sc:829:26060 */ /* x58864 stalin.sc:829:26061 */ /* x297049 QobiScheme.sc:166:5314 */ /* x297048 QobiScheme.sc:166:5321 */ t82901 = "This shouldn\'t happen"; /* x297047 QobiScheme.sc:166:5315 */ stalin_panic(t82901);} /* REACHED?[6961] */ unsigned f6961(struct w49 a20931) {char *a20932; /* v */ struct w49 t82958; char *t82959; char *t82960; char *t82961; struct w49 t82962; struct w49 t82963; char *t82964; char *t82965; struct w49 t82966; struct w49 t82967; char *t82968; char *t82969; struct w49 t82970; struct w49 t82971; char *t82972; struct w49 t82973; /* x58740 stalin.sc:805:25185 */ /* x58702 stalin.sc:805:25189 */ if (a2039==FALSE_TYPE) goto l16043; /* x58736 stalin.sc:806:25223 */ /* x58735 stalin.sc:806:25229 */ t82959 = a687; /* x58734 */ a20932 = t82959; /* x58733 */ /* x58715 */ /* x58714 */ /* x58712 */ t82960 = a20932; /* x58713 */ t82961 = q15; /* x58711 */ /* MOVE: branching squeezed to general */ if (t82960>=((char *)VALUE_OFFSET)) {t82962.tag = EXTERNAL_SYMBOL_TYPE; t82962.value.external_symbol_type = t82960;} else t82962.tag = (unsigned)t82960; t82963.tag = EXTERNAL_SYMBOL_TYPE; t82963.value.external_symbol_type = t82961; if (!(f26160(t82962, t82963)==FALSE_TYPE)) goto l16044; /* x58708 */ /* x58706 */ t82964 = a20932; /* x58707 */ t82965 = q16; /* x58705 */ /* MOVE: branching squeezed to general */ if (t82964>=((char *)VALUE_OFFSET)) {t82966.tag = EXTERNAL_SYMBOL_TYPE; t82966.value.external_symbol_type = t82964;} else t82966.tag = (unsigned)t82964; t82967.tag = EXTERNAL_SYMBOL_TYPE; t82967.value.external_symbol_type = t82965; if (f26160(t82966, t82967)==FALSE_TYPE) goto l16045; l16044: /* x58718 */ /* x58717 */ /* x58716 stalin.sc:807:25288 */ return TRUE_TYPE; l16045: /* x58732 */ /* x58722 */ /* x58720 */ t82968 = a20932; /* x58721 */ t82969 = q17; /* x58719 */ /* MOVE: branching squeezed to general */ if (t82968>=((char *)VALUE_OFFSET)) {t82970.tag = EXTERNAL_SYMBOL_TYPE; t82970.value.external_symbol_type = t82968;} else t82970.tag = (unsigned)t82968; t82971.tag = EXTERNAL_SYMBOL_TYPE; t82971.value.external_symbol_type = t82969; if (f26160(t82970, t82971)==FALSE_TYPE) goto l16048; /* x58727 */ /* x58726 */ /* x58725 stalin.sc:808:25313 */ /* x58724 stalin.sc:808:25334 */ t82973 = a20931; /* x58723 stalin.sc:808:25314 */ return f6926(t82973); l16048: /* x58731 */ /* x58730 */ /* x58729 stalin.sc:809:25350 */ /* x58728 stalin.sc:809:25351 */ /* x297361 QobiScheme.sc:166:5314 */ /* x297360 QobiScheme.sc:166:5321 */ t82972 = "This shouldn\'t happen"; /* x297359 QobiScheme.sc:166:5315 */ stalin_panic(t82972); l16043: /* x58739 stalin.sc:810:25367 */ /* x58738 stalin.sc:810:25388 */ t82958 = a20931; /* x58737 stalin.sc:810:25368 */ return f6926(t82958);} /* SET-EXPRESSION-RETURNS?![6957] */ void f6957(struct w49 a20928, unsigned a20929) {int a34827; /* N */ struct w49 a38459; /* S */ struct w49 a38463; /* S */ struct w49 t82974; int t82975; int t82976; int t82977; struct structure_type24753 *t82978; struct w49 t82979; struct w49 t82980; struct w49 t82981; int t82982; int t82983; int t82984; int t82985; struct structure_type24753 *t82986; struct w49 t82987; struct w49 t82988; struct w49 t82989; unsigned t82990; /* x58699 */ /* x58698 stalin.sc:797:24993 */ /* x58691 stalin.sc:797:25001 */ /* x58690 stalin.sc:797:25011 */ t82990 = a20929; /* x270729 stalin.sc:797:25002 */ /* x58693 */ /* x58692 */ /* x58688 */ /* x58687 stalin.sc:798:25027 */ /* x58670 stalin.sc:799:25055 */ t82974 = a20928; /* x58686 stalin.sc:800:25059 */ /* x58671 stalin.sc:800:25063 */ if (a20929==FALSE_TYPE) goto l16050; /* x58677 stalin.sc:801:25072 */ /* x58676 stalin.sc:801:25104 */ t82985 = 1; /* x58675 stalin.sc:801:25080 */ /* x58674 stalin.sc:801:25101 */ t82988 = a20928; /* x58673 stalin.sc:801:25081 */ a38459 = t82988; /* x286505 */ /* x286504 */ t82989 = a38459; /* x286503 */ if (!((t82989.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BOOLEANS[5735] 33376]"); structure_ref_error();} t82984 = t82989.value.structure_type27698->s31; /* x58672 stalin.sc:801:25073 */ t82987.tag = STRUCTURE_TYPE24753; t82987.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82987.value.structure_type24753)==NULL) {backtrace("stalin.sc", 801, 25072); out_of_memory_error();} t82987.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82987.value.structure_type24753->s0.value.fixnum_type = t82985; t82987.value.structure_type24753->s1.tag = NULL_TYPE; t82986 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82986==NULL) {backtrace("stalin.sc", 801, 25072); out_of_memory_error();} t82986->s0.tag = FIXNUM_TYPE; t82986->s0.value.fixnum_type = t82984; t82986->s1 = t82987; t82975 = f27310(t82986); goto l16051; l16050: /* x58685 stalin.sc:802:25113 */ /* x58684 stalin.sc:802:25146 */ /* x58683 stalin.sc:802:25155 */ t82982 = 1; /* x58682 stalin.sc:802:25147 */ a34827 = t82982; /* x271593 */ /* x271592 */ t82983 = a34827; /* x271591 */ t82977 = ~t82983; /* x58681 stalin.sc:802:25122 */ /* x58680 stalin.sc:802:25143 */ t82980 = a20928; /* x58679 stalin.sc:802:25123 */ a38463 = t82980; /* x286521 */ /* x286520 */ t82981 = a38463; /* x286519 */ if (!((t82981.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BOOLEANS[5735] 33380]"); structure_ref_error();} t82976 = t82981.value.structure_type27698->s31; /* x58678 stalin.sc:802:25114 */ t82979.tag = STRUCTURE_TYPE24753; t82979.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82979.value.structure_type24753)==NULL) {backtrace("stalin.sc", 802, 25113); out_of_memory_error();} t82979.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82979.value.structure_type24753->s0.value.fixnum_type = t82977; t82979.value.structure_type24753->s1.tag = NULL_TYPE; t82978 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82978==NULL) {backtrace("stalin.sc", 802, 25113); out_of_memory_error();} t82978->s0.tag = FIXNUM_TYPE; t82978->s0.value.fixnum_type = t82976; t82978->s1 = t82979; t82975 = f27305(t82978); l16051: /* x58669 stalin.sc:798:25028 */ f5736(t82974, t82975); return;} /* EXPRESSION-RETURNS?[6956] */ unsigned f6956(struct w49 a20927) {struct w49 a38466; /* S */ int t82991; int t82992; int t82993; struct structure_type24753 *t82994; struct w49 t82995; struct w49 t82996; struct w49 t82997; /* x58666 stalin.sc:794:24900 */ /* x58666 stalin.sc:794:24900 */ /* x58665 stalin.sc:794:24905 */ /* x58664 stalin.sc:794:24912 */ /* x58663 stalin.sc:794:24945 */ t82993 = 1; /* x58662 stalin.sc:794:24921 */ /* x58661 stalin.sc:794:24942 */ t82996 = a20927; /* x58660 stalin.sc:794:24922 */ a38466 = t82996; /* x286533 */ /* x286532 */ t82997 = a38466; /* x286531 */ if (!((t82997.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BOOLEANS[5735] 33383]"); structure_ref_error();} t82992 = t82997.value.structure_type27698->s31; /* x58659 stalin.sc:794:24913 */ t82995.tag = STRUCTURE_TYPE24753; t82995.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t82995.value.structure_type24753)==NULL) {backtrace("stalin.sc", 794, 24912); out_of_memory_error();} t82995.value.structure_type24753->s0.tag = FIXNUM_TYPE; t82995.value.structure_type24753->s0.value.fixnum_type = t82993; t82995.value.structure_type24753->s1.tag = NULL_TYPE; t82994 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t82994==NULL) {backtrace("stalin.sc", 794, 24912); out_of_memory_error();} t82994->s0.tag = FIXNUM_TYPE; t82994->s0.value.fixnum_type = t82992; t82994->s1 = t82995; t82991 = f27305(t82994); /* x270730 stalin.sc:794:24906 */ if (t82991==0) goto l16054; return TRUE_TYPE; l16054: return FALSE_TYPE;} /* EXPRESSION-CONTINUES?[6951] */ unsigned f6951(struct w49 a20923) {struct w49 a38462; /* S */ int t82998; int t82999; int t83000; struct structure_type24753 *t83001; struct w49 t83002; struct w49 t83003; struct w49 t83004; /* x58621 stalin.sc:783:24602 */ /* x58621 stalin.sc:783:24602 */ /* x58620 stalin.sc:783:24607 */ /* x58619 stalin.sc:783:24614 */ /* x58618 stalin.sc:783:24647 */ t83000 = 2; /* x58617 stalin.sc:783:24623 */ /* x58616 stalin.sc:783:24644 */ t83003 = a20923; /* x58615 stalin.sc:783:24624 */ a38462 = t83003; /* x286517 */ /* x286516 */ t83004 = a38462; /* x286515 */ if (!((t83004.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BOOLEANS[5735] 33379]"); structure_ref_error();} t82999 = t83004.value.structure_type27698->s31; /* x58614 stalin.sc:783:24615 */ t83002.tag = STRUCTURE_TYPE24753; t83002.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t83002.value.structure_type24753)==NULL) {backtrace("stalin.sc", 783, 24614); out_of_memory_error();} t83002.value.structure_type24753->s0.tag = FIXNUM_TYPE; t83002.value.structure_type24753->s0.value.fixnum_type = t83000; t83002.value.structure_type24753->s1.tag = NULL_TYPE; t83001 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t83001==NULL) {backtrace("stalin.sc", 783, 24614); out_of_memory_error();} t83001->s0.tag = FIXNUM_TYPE; t83001->s0.value.fixnum_type = t82999; t83001->s1 = t83002; t82998 = f27305(t83001); /* x270733 stalin.sc:783:24608 */ if (t82998==0) goto l16057; return TRUE_TYPE; l16057: return FALSE_TYPE;} /* EXPRESSION-NEEDS-STOP-CONVERSION-TO-CPS?[6946] */ unsigned f6946(struct w49 a20919) {struct w49 a38453; /* S */ int t83005; int t83006; int t83007; struct structure_type24753 *t83008; struct w49 t83009; struct w49 t83010; struct w49 t83011; /* x58576 stalin.sc:772:24283 */ /* x58576 stalin.sc:772:24283 */ /* x58575 stalin.sc:772:24288 */ /* x58574 stalin.sc:772:24295 */ /* x58573 stalin.sc:772:24328 */ t83007 = 4; /* x58572 stalin.sc:772:24304 */ /* x58571 stalin.sc:772:24325 */ t83010 = a20919; /* x58570 stalin.sc:772:24305 */ a38453 = t83010; /* x286481 */ /* x286480 */ t83011 = a38453; /* x286479 */ if (!((t83011.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BOOLEANS[5735] 33370]"); structure_ref_error();} t83006 = t83011.value.structure_type27698->s31; /* x58569 stalin.sc:772:24296 */ t83009.tag = STRUCTURE_TYPE24753; t83009.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t83009.value.structure_type24753)==NULL) {backtrace("stalin.sc", 772, 24295); out_of_memory_error();} t83009.value.structure_type24753->s0.tag = FIXNUM_TYPE; t83009.value.structure_type24753->s0.value.fixnum_type = t83007; t83009.value.structure_type24753->s1.tag = NULL_TYPE; t83008 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t83008==NULL) {backtrace("stalin.sc", 772, 24295); out_of_memory_error();} t83008->s0.tag = FIXNUM_TYPE; t83008->s0.value.fixnum_type = t83006; t83008->s1 = t83009; t83005 = f27305(t83008); /* x270736 stalin.sc:772:24289 */ if (t83005==0) goto l16060; return TRUE_TYPE; l16060: return FALSE_TYPE;} /* EXPRESSION-NEEDS-CONVERSION-TO-CPS?[6941] */ unsigned f6941(struct w49 a20915) {struct w49 a38454; /* S */ int t83012; int t83013; int t83014; struct structure_type24753 *t83015; struct w49 t83016; struct w49 t83017; struct w49 t83018; /* x58531 stalin.sc:761:23950 */ /* x58531 stalin.sc:761:23950 */ /* x58530 stalin.sc:761:23955 */ /* x58529 stalin.sc:761:23962 */ /* x58528 stalin.sc:761:23995 */ t83014 = 8; /* x58527 stalin.sc:761:23971 */ /* x58526 stalin.sc:761:23992 */ t83017 = a20915; /* x58525 stalin.sc:761:23972 */ a38454 = t83017; /* x286485 */ /* x286484 */ t83018 = a38454; /* x286483 */ if (!((t83018.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BOOLEANS[5735] 33371]"); structure_ref_error();} t83013 = t83018.value.structure_type27698->s31; /* x58524 stalin.sc:761:23963 */ t83016.tag = STRUCTURE_TYPE24753; t83016.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t83016.value.structure_type24753)==NULL) {backtrace("stalin.sc", 761, 23962); out_of_memory_error();} t83016.value.structure_type24753->s0.tag = FIXNUM_TYPE; t83016.value.structure_type24753->s0.value.fixnum_type = t83014; t83016.value.structure_type24753->s1.tag = NULL_TYPE; t83015 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t83015==NULL) {backtrace("stalin.sc", 761, 23962); out_of_memory_error();} t83015->s0.tag = FIXNUM_TYPE; t83015->s0.value.fixnum_type = t83013; t83015->s1 = t83016; t83012 = f27305(t83015); /* x270739 stalin.sc:761:23956 */ if (t83012==0) goto l16063; return TRUE_TYPE; l16063: return FALSE_TYPE;} /* SET-EXPRESSION-ACCESSED?![6937] */ void f6937(struct w49 a20912, unsigned a20913) {int a34832; /* N */ struct w49 a38465; /* S */ struct w49 a38469; /* S */ struct w49 t83019; int t83020; int t83021; int t83022; struct structure_type24753 *t83023; struct w49 t83024; struct w49 t83025; struct w49 t83026; int t83027; int t83028; int t83029; int t83030; struct structure_type24753 *t83031; struct w49 t83032; struct w49 t83033; struct w49 t83034; unsigned t83035; /* x58519 */ /* x58518 stalin.sc:753:23729 */ /* x58511 stalin.sc:753:23737 */ /* x58510 stalin.sc:753:23747 */ t83035 = a20913; /* x270741 stalin.sc:753:23738 */ /* x58513 */ /* x58512 */ /* x58508 */ /* x58507 stalin.sc:754:23763 */ /* x58490 stalin.sc:755:23791 */ t83019 = a20912; /* x58506 stalin.sc:756:23795 */ /* x58491 stalin.sc:756:23799 */ if (a20913==FALSE_TYPE) goto l16066; /* x58497 stalin.sc:757:23808 */ /* x58496 stalin.sc:757:23840 */ t83030 = 16; /* x58495 stalin.sc:757:23816 */ /* x58494 stalin.sc:757:23837 */ t83033 = a20912; /* x58493 stalin.sc:757:23817 */ a38465 = t83033; /* x286529 */ /* x286528 */ t83034 = a38465; /* x286527 */ if (!((t83034.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BOOLEANS[5735] 33382]"); structure_ref_error();} t83029 = t83034.value.structure_type27698->s31; /* x58492 stalin.sc:757:23809 */ t83032.tag = STRUCTURE_TYPE24753; t83032.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t83032.value.structure_type24753)==NULL) {backtrace("stalin.sc", 757, 23808); out_of_memory_error();} t83032.value.structure_type24753->s0.tag = FIXNUM_TYPE; t83032.value.structure_type24753->s0.value.fixnum_type = t83030; t83032.value.structure_type24753->s1.tag = NULL_TYPE; t83031 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t83031==NULL) {backtrace("stalin.sc", 757, 23808); out_of_memory_error();} t83031->s0.tag = FIXNUM_TYPE; t83031->s0.value.fixnum_type = t83029; t83031->s1 = t83032; t83020 = f27310(t83031); goto l16067; l16066: /* x58505 stalin.sc:758:23850 */ /* x58504 stalin.sc:758:23883 */ /* x58503 stalin.sc:758:23892 */ t83027 = 16; /* x58502 stalin.sc:758:23884 */ a34832 = t83027; /* x271613 */ /* x271612 */ t83028 = a34832; /* x271611 */ t83022 = ~t83028; /* x58501 stalin.sc:758:23859 */ /* x58500 stalin.sc:758:23880 */ t83025 = a20912; /* x58499 stalin.sc:758:23860 */ a38469 = t83025; /* x286545 */ /* x286544 */ t83026 = a38469; /* x286543 */ if (!((t83026.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BOOLEANS[5735] 33386]"); structure_ref_error();} t83021 = t83026.value.structure_type27698->s31; /* x58498 stalin.sc:758:23851 */ t83024.tag = STRUCTURE_TYPE24753; t83024.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t83024.value.structure_type24753)==NULL) {backtrace("stalin.sc", 758, 23850); out_of_memory_error();} t83024.value.structure_type24753->s0.tag = FIXNUM_TYPE; t83024.value.structure_type24753->s0.value.fixnum_type = t83022; t83024.value.structure_type24753->s1.tag = NULL_TYPE; t83023 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t83023==NULL) {backtrace("stalin.sc", 758, 23850); out_of_memory_error();} t83023->s0.tag = FIXNUM_TYPE; t83023->s0.value.fixnum_type = t83021; t83023->s1 = t83024; t83020 = f27305(t83023); l16067: /* x58489 stalin.sc:754:23764 */ f5736(t83019, t83020); return;} /* EXPRESSION-ACCESSED?[6936] */ unsigned f6936(struct w49 a20911) {struct w49 a38470; /* S */ int t83036; int t83037; int t83038; struct structure_type24753 *t83039; struct w49 t83040; struct w49 t83041; struct w49 t83042; /* x58486 stalin.sc:750:23634 */ /* x58486 stalin.sc:750:23634 */ /* x58485 stalin.sc:750:23639 */ /* x58484 stalin.sc:750:23646 */ /* x58483 stalin.sc:750:23679 */ t83038 = 16; /* x58482 stalin.sc:750:23655 */ /* x58481 stalin.sc:750:23676 */ t83041 = a20911; /* x58480 stalin.sc:750:23656 */ a38470 = t83041; /* x286549 */ /* x286548 */ t83042 = a38470; /* x286547 */ if (!((t83042.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BOOLEANS[5735] 33387]"); structure_ref_error();} t83037 = t83042.value.structure_type27698->s31; /* x58479 stalin.sc:750:23647 */ t83040.tag = STRUCTURE_TYPE24753; t83040.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t83040.value.structure_type24753)==NULL) {backtrace("stalin.sc", 750, 23646); out_of_memory_error();} t83040.value.structure_type24753->s0.tag = FIXNUM_TYPE; t83040.value.structure_type24753->s0.value.fixnum_type = t83038; t83040.value.structure_type24753->s1.tag = NULL_TYPE; t83039 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t83039==NULL) {backtrace("stalin.sc", 750, 23646); out_of_memory_error();} t83039->s0.tag = FIXNUM_TYPE; t83039->s0.value.fixnum_type = t83037; t83039->s1 = t83040; t83036 = f27305(t83039); /* x270742 stalin.sc:750:23640 */ if (t83036==0) goto l16070; return TRUE_TYPE; l16070: return FALSE_TYPE;} /* SET-EXPRESSION-INFERRED?![6932] */ void f6932(struct w49 a20908, unsigned a20909) {struct w49 a19298; /* S */ int a34831; /* N */ struct w49 a38468; /* S */ struct w49 t83043; int t83044; int t83045; int t83046; struct structure_type24753 *t83047; struct w49 t83048; struct w49 t83049; struct w49 t83050; int t83051; int t83052; int t83053; int t83054; struct structure_type24753 *t83055; struct w49 t83056; struct w49 t83057; struct w49 t83058; unsigned t83059; /* x58474 */ /* x58473 stalin.sc:742:23428 */ /* x58466 stalin.sc:742:23436 */ /* x58465 stalin.sc:742:23446 */ t83059 = a20909; /* x270744 stalin.sc:742:23437 */ /* x58468 */ /* x58467 */ /* x58463 */ /* x58462 stalin.sc:743:23462 */ /* x58445 stalin.sc:744:23490 */ t83043 = a20908; /* x58461 stalin.sc:745:23494 */ /* x58446 stalin.sc:745:23498 */ if (a20909==FALSE_TYPE) goto l16073; /* x58452 stalin.sc:746:23507 */ /* x58451 stalin.sc:746:23539 */ t83054 = 32; /* x58450 stalin.sc:746:23515 */ /* x58449 stalin.sc:746:23536 */ t83057 = a20908; /* x58448 stalin.sc:746:23516 */ a19298 = t83057; /* x50850 */ /* x50849 */ t83058 = a19298; /* x50848 */ if (!((t83058.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-BOOLEANS[5735]"); structure_ref_error();} t83053 = t83058.value.structure_type27698->s31; /* x58447 stalin.sc:746:23508 */ t83056.tag = STRUCTURE_TYPE24753; t83056.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t83056.value.structure_type24753)==NULL) {backtrace("stalin.sc", 746, 23507); out_of_memory_error();} t83056.value.structure_type24753->s0.tag = FIXNUM_TYPE; t83056.value.structure_type24753->s0.value.fixnum_type = t83054; t83056.value.structure_type24753->s1.tag = NULL_TYPE; t83055 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t83055==NULL) {backtrace("stalin.sc", 746, 23507); out_of_memory_error();} t83055->s0.tag = FIXNUM_TYPE; t83055->s0.value.fixnum_type = t83053; t83055->s1 = t83056; t83044 = f27310(t83055); goto l16074; l16073: /* x58460 stalin.sc:747:23549 */ /* x58459 stalin.sc:747:23582 */ /* x58458 stalin.sc:747:23591 */ t83051 = 32; /* x58457 stalin.sc:747:23583 */ a34831 = t83051; /* x271609 */ /* x271608 */ t83052 = a34831; /* x271607 */ t83046 = ~t83052; /* x58456 stalin.sc:747:23558 */ /* x58455 stalin.sc:747:23579 */ t83049 = a20908; /* x58454 stalin.sc:747:23559 */ a38468 = t83049; /* x286541 */ /* x286540 */ t83050 = a38468; /* x286539 */ if (!((t83050.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BOOLEANS[5735] 33385]"); structure_ref_error();} t83045 = t83050.value.structure_type27698->s31; /* x58453 stalin.sc:747:23550 */ t83048.tag = STRUCTURE_TYPE24753; t83048.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t83048.value.structure_type24753)==NULL) {backtrace("stalin.sc", 747, 23549); out_of_memory_error();} t83048.value.structure_type24753->s0.tag = FIXNUM_TYPE; t83048.value.structure_type24753->s0.value.fixnum_type = t83046; t83048.value.structure_type24753->s1.tag = NULL_TYPE; t83047 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t83047==NULL) {backtrace("stalin.sc", 747, 23549); out_of_memory_error();} t83047->s0.tag = FIXNUM_TYPE; t83047->s0.value.fixnum_type = t83045; t83047->s1 = t83048; t83044 = f27305(t83047); l16074: /* x58444 stalin.sc:743:23463 */ f5736(t83043, t83044); return;} /* EXPRESSION-INFERRED?[6931] */ unsigned f6931(struct w49 a20907) {struct w49 a38460; /* S */ int t83060; int t83061; int t83062; struct structure_type24753 *t83063; struct w49 t83064; struct w49 t83065; struct w49 t83066; /* x58441 stalin.sc:739:23333 */ /* x58441 stalin.sc:739:23333 */ /* x58440 stalin.sc:739:23338 */ /* x58439 stalin.sc:739:23345 */ /* x58438 stalin.sc:739:23378 */ t83062 = 32; /* x58437 stalin.sc:739:23354 */ /* x58436 stalin.sc:739:23375 */ t83065 = a20907; /* x58435 stalin.sc:739:23355 */ a38460 = t83065; /* x286509 */ /* x286508 */ t83066 = a38460; /* x286507 */ if (!((t83066.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BOOLEANS[5735] 33377]"); structure_ref_error();} t83061 = t83066.value.structure_type27698->s31; /* x58434 stalin.sc:739:23346 */ t83064.tag = STRUCTURE_TYPE24753; t83064.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t83064.value.structure_type24753)==NULL) {backtrace("stalin.sc", 739, 23345); out_of_memory_error();} t83064.value.structure_type24753->s0.tag = FIXNUM_TYPE; t83064.value.structure_type24753->s0.value.fixnum_type = t83062; t83064.value.structure_type24753->s1.tag = NULL_TYPE; t83063 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t83063==NULL) {backtrace("stalin.sc", 739, 23345); out_of_memory_error();} t83063->s0.tag = FIXNUM_TYPE; t83063->s0.value.fixnum_type = t83061; t83063->s1 = t83064; t83060 = f27305(t83063); /* x270745 stalin.sc:739:23339 */ if (t83060==0) goto l16077; return TRUE_TYPE; l16077: return FALSE_TYPE;} /* SET-EXPRESSION-REACHED?![6927] */ void f6927(struct w49 a20904, unsigned a20905) {int a34830; /* N */ struct w49 a38464; /* S */ struct w49 a38467; /* S */ struct w49 t83067; int t83068; int t83069; int t83070; struct structure_type24753 *t83071; struct w49 t83072; struct w49 t83073; struct w49 t83074; int t83075; int t83076; int t83077; int t83078; struct structure_type24753 *t83079; struct w49 t83080; struct w49 t83081; struct w49 t83082; unsigned t83083; /* x58429 */ /* x58428 stalin.sc:731:23127 */ /* x58421 stalin.sc:731:23135 */ /* x58420 stalin.sc:731:23145 */ t83083 = a20905; /* x270747 stalin.sc:731:23136 */ /* x58423 */ /* x58422 */ /* x58418 */ /* x58417 stalin.sc:732:23161 */ /* x58400 stalin.sc:733:23189 */ t83067 = a20904; /* x58416 stalin.sc:734:23193 */ /* x58401 stalin.sc:734:23197 */ if (a20905==FALSE_TYPE) goto l16080; /* x58407 stalin.sc:735:23206 */ /* x58406 stalin.sc:735:23238 */ t83078 = 64; /* x58405 stalin.sc:735:23214 */ /* x58404 stalin.sc:735:23235 */ t83081 = a20904; /* x58403 stalin.sc:735:23215 */ a38464 = t83081; /* x286525 */ /* x286524 */ t83082 = a38464; /* x286523 */ if (!((t83082.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BOOLEANS[5735] 33381]"); structure_ref_error();} t83077 = t83082.value.structure_type27698->s31; /* x58402 stalin.sc:735:23207 */ t83080.tag = STRUCTURE_TYPE24753; t83080.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t83080.value.structure_type24753)==NULL) {backtrace("stalin.sc", 735, 23206); out_of_memory_error();} t83080.value.structure_type24753->s0.tag = FIXNUM_TYPE; t83080.value.structure_type24753->s0.value.fixnum_type = t83078; t83080.value.structure_type24753->s1.tag = NULL_TYPE; t83079 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t83079==NULL) {backtrace("stalin.sc", 735, 23206); out_of_memory_error();} t83079->s0.tag = FIXNUM_TYPE; t83079->s0.value.fixnum_type = t83077; t83079->s1 = t83080; t83068 = f27310(t83079); goto l16081; l16080: /* x58415 stalin.sc:736:23248 */ /* x58414 stalin.sc:736:23281 */ /* x58413 stalin.sc:736:23290 */ t83075 = 64; /* x58412 stalin.sc:736:23282 */ a34830 = t83075; /* x271605 */ /* x271604 */ t83076 = a34830; /* x271603 */ t83070 = ~t83076; /* x58411 stalin.sc:736:23257 */ /* x58410 stalin.sc:736:23278 */ t83073 = a20904; /* x58409 stalin.sc:736:23258 */ a38467 = t83073; /* x286537 */ /* x286536 */ t83074 = a38467; /* x286535 */ if (!((t83074.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BOOLEANS[5735] 33384]"); structure_ref_error();} t83069 = t83074.value.structure_type27698->s31; /* x58408 stalin.sc:736:23249 */ t83072.tag = STRUCTURE_TYPE24753; t83072.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t83072.value.structure_type24753)==NULL) {backtrace("stalin.sc", 736, 23248); out_of_memory_error();} t83072.value.structure_type24753->s0.tag = FIXNUM_TYPE; t83072.value.structure_type24753->s0.value.fixnum_type = t83070; t83072.value.structure_type24753->s1.tag = NULL_TYPE; t83071 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t83071==NULL) {backtrace("stalin.sc", 736, 23248); out_of_memory_error();} t83071->s0.tag = FIXNUM_TYPE; t83071->s0.value.fixnum_type = t83069; t83071->s1 = t83072; t83068 = f27305(t83071); l16081: /* x58399 stalin.sc:732:23162 */ f5736(t83067, t83068); return;} /* EXPRESSION-REACHED?[6926] */ unsigned f6926(struct w49 a20903) {struct w49 a38471; /* S */ int t83084; int t83085; int t83086; struct structure_type24753 *t83087; struct w49 t83088; struct w49 t83089; struct w49 t83090; /* x58396 stalin.sc:728:23033 */ /* x58396 stalin.sc:728:23033 */ /* x58395 stalin.sc:728:23038 */ /* x58394 stalin.sc:728:23045 */ /* x58393 stalin.sc:728:23078 */ t83086 = 64; /* x58392 stalin.sc:728:23054 */ /* x58391 stalin.sc:728:23075 */ t83089 = a20903; /* x58390 stalin.sc:728:23055 */ a38471 = t83089; /* x286553 */ /* x286552 */ t83090 = a38471; /* x286551 */ if (!((t83090.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BOOLEANS[5735] 33388]"); structure_ref_error();} t83085 = t83090.value.structure_type27698->s31; /* x58389 stalin.sc:728:23046 */ t83088.tag = STRUCTURE_TYPE24753; t83088.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t83088.value.structure_type24753)==NULL) {backtrace("stalin.sc", 728, 23045); out_of_memory_error();} t83088.value.structure_type24753->s0.tag = FIXNUM_TYPE; t83088.value.structure_type24753->s0.value.fixnum_type = t83086; t83088.value.structure_type24753->s1.tag = NULL_TYPE; t83087 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t83087==NULL) {backtrace("stalin.sc", 728, 23045); out_of_memory_error();} t83087->s0.tag = FIXNUM_TYPE; t83087->s0.value.fixnum_type = t83085; t83087->s1 = t83088; t83084 = f27305(t83087); /* x270748 stalin.sc:728:23039 */ if (t83084==0) goto l16084; return TRUE_TYPE; l16084: return FALSE_TYPE;} /* CREATE-IF-EXPRESSION[6920] */ struct structure_type27698 *f6920(struct w49 a20896, struct w49 a20897, struct w49 a20898, struct w49 a20899) {struct structure_type27698 *a20900; /* X */ struct w49 a40151; /* S */ struct w49 a40167; /* S */ struct w49 a40183; /* S */ struct w49 a40205; /* S */ struct w49 a40216; /* S */ struct w49 a40224; /* S */ struct w49 a40435; /* OBJ */ struct w49 a40469; /* S */ struct w49 a40479; /* S */ struct w49 a40490; /* S */ struct w49 a40501; /* S */ struct w49 a40513; /* S */ struct w49 a40522; /* S */ struct w49 a40531; /* OBJ */ struct structure_type27698 *t83091; unsigned t83092; int t83093; struct structure_type27698 *t83094; struct w21193 t83095; struct w49 t83096; struct w49 t83097; struct w49 t83098; struct w49 t83099; char *t83100; unsigned t83101; char *t83102; char *t83103; char *t83104; char *t83105; char *t83106; char *t83107; char *t83108; char *t83109; char *t83110; struct w49 t83111; struct w49 t83112; struct w49 t83113; char *t83114; char *t83115; char *t83116; int t83117; struct w49 t83118; struct w7121 t83119; struct w7121 t83120; struct w7121 t83121; struct w49 t83122; struct w9140 t83123; struct w9296 t83124; struct w49 t83125; struct w49 t83126; struct w49 t83127; struct w49 t83128; struct w11873 t83129; struct w49 t83130; char *t83131; struct w49 t83132; struct w7121 t83133; struct w7121 t83134; struct w7121 t83135; unsigned t83136; char *t83137; char *t83138; char *t83139; char *t83140; char *t83141; char *t83142; char *t83143; char *t83144; char *t83145; struct w49 t83146; struct w49 t83147; struct w49 t83148; char *t83149; char *t83150; struct w49 t83151; char *t83152; int t83153; struct w49 t83154; struct w9140 t83155; struct w9296 t83156; struct w49 t83157; struct w49 t83158; struct w49 t83159; struct w49 t83160; struct w11873 t83161; struct w49 t83162; struct w49 t83163; struct w49 t83164; struct w49 t83165; struct w49 t83166; struct w49 t83167; struct w49 t83168; struct w49 t83169; struct w49 t83170; struct w49 t83171; struct w49 t83172; struct w49 t83173; char *t83174; struct w49 t83175; struct w6194 t83176; struct w6194 t83177; struct w6194 t83178; unsigned t83179; char *t83180; char *t83181; char *t83182; char *t83183; char *t83184; char *t83185; char *t83186; char *t83187; char *t83188; struct w49 t83189; struct w49 t83190; struct w49 t83191; char *t83192; char *t83193; char *t83194; int t83195; struct w7121 t83196; struct w7121 t83197; struct w7121 t83198; struct w49 t83199; struct w9140 t83200; struct w9296 t83201; struct w49 t83202; struct w49 t83203; struct w49 t83204; struct w49 t83205; struct w11873 t83206; struct w49 t83207; struct w49 t83208; struct w49 t83209; struct w49 t83210; struct w49 t83211; struct w49 t83212; struct w49 t83213; struct w49 t83214; struct w49 t83215; struct w49 t83216; struct w49 t83217; struct w49 t83218; struct w49 t83219; /* x58384 stalin.sc:687:21576 */ /* x58383 stalin.sc:687:21585 */ /* x58208 stalin.sc:688:21596 */ /* x58207 stalin.sc:688:21611 */ t83096 = a20896; /* x58206 stalin.sc:688:21597 */ a40531 = t83096; /* x294793 */ /* x294792 */ t83097 = a40531; /* x294791 */ if (!((t83097.tag)==STRUCTURE_TYPE27510)) goto l16087; /* x58268 */ /* x58267 */ /* x58266 stalin.sc:689:21621 */ /* x58210 stalin.sc:690:21644 */ t83174 = q43; /* x58213 stalin.sc:691:21654 */ /* x58212 stalin.sc:691:21676 */ t83208 = a20896; /* x58211 stalin.sc:691:21655 */ a40522 = t83208; /* x294757 */ /* x294756 */ t83209 = a40522; /* x294755 */ if (!((t83209.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-VERSION[5387] 35439]"); structure_ref_error();} /* x58216 stalin.sc:692:21687 */ /* x58215 stalin.sc:692:21708 */ t83210 = a20896; /* x58214 stalin.sc:692:21688 */ a40513 = t83210; /* x294721 */ /* x294720 */ t83211 = a40513; /* x294719 */ if (!((t83211.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CURSOR[5395] 35430]"); structure_ref_error();} /* x58219 stalin.sc:693:21719 */ /* x58218 stalin.sc:693:21742 */ t83212 = a20896; /* x58217 stalin.sc:693:21720 */ a40501 = t83212; /* x294673 */ /* x294672 */ t83213 = a40501; /* x294671 */ if (!((t83213.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-PATHNAME[5403] 35418]"); structure_ref_error();} t83175 = t83213.value.structure_type27510->s2; /* x58222 stalin.sc:694:21753 */ /* x58221 stalin.sc:694:21781 */ t83214 = a20896; /* x58220 stalin.sc:694:21754 */ a40490 = t83214; /* x294629 */ /* x294628 */ t83215 = a40490; /* x294627 */ if (!((t83215.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-LINE-POSITION[5411] 35407]"); structure_ref_error();} t83176 = t83215.value.structure_type27510->s3; /* x58225 stalin.sc:695:21792 */ /* x58224 stalin.sc:695:21825 */ t83216 = a20896; /* x58223 stalin.sc:695:21793 */ a40479 = t83216; /* x294585 */ /* x294584 */ t83217 = a40479; /* x294583 */ if (!((t83217.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CHARACTER-POSITION[5419] 35396]"); structure_ref_error();} t83177 = t83217.value.structure_type27510->s4; /* x58228 stalin.sc:696:21836 */ /* x58227 stalin.sc:696:21881 */ t83218 = a20896; /* x58226 stalin.sc:696:21837 */ a40469 = t83218; /* x294545 */ /* x294544 */ t83219 = a40469; /* x294543 */ if (!((t83219.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CHARACTER-POSITION-WITHIN-LINE[5427] 35386]"); structure_ref_error();} t83178 = t83219.value.structure_type27510->s5; /* x58229 stalin.sc:697:21892 */ t83179 = a2032; /* x58230 stalin.sc:697:21897 */ /* x58232 stalin.sc:697:21900 */ /* x58231 stalin.sc:697:21901 */ /* x277279 stalin.sc:323:8604 */ t83180 = q35; /* x58234 stalin.sc:697:21914 */ /* x58233 stalin.sc:697:21915 */ /* x277281 stalin.sc:323:8604 */ t83181 = q35; /* x58236 stalin.sc:697:21928 */ /* x58235 stalin.sc:697:21929 */ /* x277283 stalin.sc:323:8604 */ t83182 = q35; /* x58238 stalin.sc:698:21948 */ /* x58237 stalin.sc:698:21949 */ /* x277699 stalin.sc:321:8572 */ t83183 = q34; /* x58240 stalin.sc:698:21957 */ /* x58239 stalin.sc:698:21958 */ /* x277701 stalin.sc:321:8572 */ t83184 = q34; /* x58242 stalin.sc:698:21966 */ /* x58241 stalin.sc:698:21967 */ /* x277703 stalin.sc:321:8572 */ t83185 = q34; /* x58244 stalin.sc:698:21975 */ /* x58243 stalin.sc:698:21976 */ /* x277705 stalin.sc:321:8572 */ t83186 = q34; /* x58246 stalin.sc:698:21984 */ /* x58245 stalin.sc:698:21985 */ /* x277707 stalin.sc:321:8572 */ t83187 = q34; /* x58248 stalin.sc:698:21993 */ /* x58247 stalin.sc:698:21994 */ /* x277709 stalin.sc:321:8572 */ t83188 = q34; /* x58249 stalin.sc:699:22008 */ t83189 = a20897; /* x58250 stalin.sc:699:22019 */ t83190 = a20898; /* x58251 stalin.sc:699:22030 */ t83191 = a20899; /* x58253 stalin.sc:699:22040 */ /* x58252 stalin.sc:699:22041 */ /* x277711 stalin.sc:321:8572 */ t83192 = q34; /* x58255 stalin.sc:699:22049 */ /* x58254 stalin.sc:699:22050 */ /* x277713 stalin.sc:321:8572 */ t83193 = q34; /* x58256 stalin.sc:700:22064 */ /* x58258 stalin.sc:700:22067 */ /* x58257 stalin.sc:700:22068 */ /* x277285 stalin.sc:323:8604 */ t83194 = q35; /* x58259 stalin.sc:700:22081 */ /* x58260 stalin.sc:700:22085 */ /* x58261 stalin.sc:700:22088 */ /* x58262 stalin.sc:700:22091 */ /* x58263 stalin.sc:700:22095 */ /* x58264 stalin.sc:700:22099 */ /* x58265 stalin.sc:700:22103 */ t83195 = 0; /* x58209 stalin.sc:689:21622 */ t83196 = *((struct w7121 *)(&t83176)); t83197 = *((struct w7121 *)(&t83177)); t83198 = *((struct w7121 *)(&t83178)); t83199.tag = EXTERNAL_SYMBOL_TYPE; t83199.value.external_symbol_type = t83183; t83200.tag = EXTERNAL_SYMBOL_TYPE; t83200.value.external_symbol_type = t83184; t83201.tag = EXTERNAL_SYMBOL_TYPE; t83201.value.external_symbol_type = t83185; t83202.tag = EXTERNAL_SYMBOL_TYPE; t83202.value.external_symbol_type = t83186; t83203.tag = EXTERNAL_SYMBOL_TYPE; t83203.value.external_symbol_type = t83187; t83204.tag = EXTERNAL_SYMBOL_TYPE; t83204.value.external_symbol_type = t83188; t83205.tag = EXTERNAL_SYMBOL_TYPE; t83205.value.external_symbol_type = t83192; t83206.tag = EXTERNAL_SYMBOL_TYPE; t83206.value.external_symbol_type = t83193; t83207.tag = FALSE_TYPE; t83091 = f5485(t83174, t83175, t83196, t83197, t83198, t83179, t83180, t83181, t83182, t83199, t83200, t83201, t83202, t83203, t83204, t83189, t83190, t83191, t83205, t83206, t83207, t83194, t83195); goto l16088; l16087: /* x58382 */ /* x58271 stalin.sc:701:22112 */ /* x58270 stalin.sc:701:22125 */ t83098 = a20896; /* x58269 stalin.sc:701:22113 */ a40435 = t83098; /* x294409 */ /* x294408 */ t83099 = a40435; /* x294407 */ if (!((t83099.tag)==STRUCTURE_TYPE27698)) goto l16090; /* x58331 */ /* x58330 */ /* x58329 stalin.sc:702:22135 */ /* x58273 stalin.sc:703:22158 */ t83131 = q43; /* x58276 stalin.sc:704:22168 */ /* x58275 stalin.sc:704:22188 */ t83162 = a20896; /* x58274 stalin.sc:704:22169 */ a40224 = t83162; /* x293565 */ /* x293564 */ t83163 = a40224; /* x293563 */ if (!((t83163.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VERSION[5495] 35141]"); structure_ref_error();} /* x58279 stalin.sc:705:22199 */ /* x58278 stalin.sc:705:22218 */ t83164 = a20896; /* x58277 stalin.sc:705:22200 */ a40216 = t83164; /* x293533 */ /* x293532 */ t83165 = a40216; /* x293531 */ if (!((t83165.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CURSOR[5503] 35133]"); structure_ref_error();} /* x58282 stalin.sc:706:22229 */ /* x58281 stalin.sc:706:22250 */ t83166 = a20896; /* x58280 stalin.sc:706:22230 */ a40205 = t83166; /* x293489 */ /* x293488 */ t83167 = a40205; /* x293487 */ if (!((t83167.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35122]"); structure_ref_error();} t83132 = t83167.value.structure_type27698->s3; /* x58285 stalin.sc:707:22261 */ /* x58284 stalin.sc:707:22287 */ t83168 = a20896; /* x58283 stalin.sc:707:22262 */ a40183 = t83168; /* x293401 */ /* x293400 */ t83169 = a40183; /* x293399 */ if (!((t83169.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LINE-POSITION[5519] 35100]"); structure_ref_error();} t83133 = t83169.value.structure_type27698->s4; /* x58288 stalin.sc:708:22298 */ /* x58287 stalin.sc:708:22329 */ t83170 = a20896; /* x58286 stalin.sc:708:22299 */ a40167 = t83170; /* x293337 */ /* x293336 */ t83171 = a40167; /* x293335 */ if (!((t83171.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION[5527] 35084]"); structure_ref_error();} t83134 = t83171.value.structure_type27698->s5; /* x58291 stalin.sc:709:22340 */ /* x58290 stalin.sc:709:22383 */ t83172 = a20896; /* x58289 stalin.sc:709:22341 */ a40151 = t83172; /* x293273 */ /* x293272 */ t83173 = a40151; /* x293271 */ if (!((t83173.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION-WITHIN-LINE[5535] 35068]"); structure_ref_error();} t83135 = t83173.value.structure_type27698->s6; /* x58292 stalin.sc:710:22394 */ t83136 = a2032; /* x58293 stalin.sc:710:22399 */ /* x58295 stalin.sc:710:22402 */ /* x58294 stalin.sc:710:22403 */ /* x277287 stalin.sc:323:8604 */ t83137 = q35; /* x58297 stalin.sc:710:22416 */ /* x58296 stalin.sc:710:22417 */ /* x277289 stalin.sc:323:8604 */ t83138 = q35; /* x58299 stalin.sc:710:22430 */ /* x58298 stalin.sc:710:22431 */ /* x277291 stalin.sc:323:8604 */ t83139 = q35; /* x58301 stalin.sc:711:22450 */ /* x58300 stalin.sc:711:22451 */ /* x277715 stalin.sc:321:8572 */ t83140 = q34; /* x58303 stalin.sc:711:22459 */ /* x58302 stalin.sc:711:22460 */ /* x277717 stalin.sc:321:8572 */ t83141 = q34; /* x58305 stalin.sc:711:22468 */ /* x58304 stalin.sc:711:22469 */ /* x277719 stalin.sc:321:8572 */ t83142 = q34; /* x58307 stalin.sc:711:22477 */ /* x58306 stalin.sc:711:22478 */ /* x277721 stalin.sc:321:8572 */ t83143 = q34; /* x58309 stalin.sc:711:22486 */ /* x58308 stalin.sc:711:22487 */ /* x277723 stalin.sc:321:8572 */ t83144 = q34; /* x58311 stalin.sc:711:22495 */ /* x58310 stalin.sc:711:22496 */ /* x277725 stalin.sc:321:8572 */ t83145 = q34; /* x58312 stalin.sc:712:22510 */ t83146 = a20897; /* x58313 stalin.sc:712:22521 */ t83147 = a20898; /* x58314 stalin.sc:712:22532 */ t83148 = a20899; /* x58316 stalin.sc:712:22542 */ /* x58315 stalin.sc:712:22543 */ /* x277727 stalin.sc:321:8572 */ t83149 = q34; /* x58318 stalin.sc:712:22551 */ /* x58317 stalin.sc:712:22552 */ /* x277729 stalin.sc:321:8572 */ t83150 = q34; /* x58319 stalin.sc:713:22566 */ t83151 = a20896; /* x58321 stalin.sc:713:22570 */ /* x58320 stalin.sc:713:22571 */ /* x277293 stalin.sc:323:8604 */ t83152 = q35; /* x58322 stalin.sc:713:22584 */ /* x58323 stalin.sc:713:22588 */ /* x58324 stalin.sc:713:22591 */ /* x58325 stalin.sc:713:22594 */ /* x58326 stalin.sc:713:22598 */ /* x58327 stalin.sc:713:22602 */ /* x58328 stalin.sc:713:22606 */ t83153 = 0; /* x58272 stalin.sc:702:22136 */ t83154.tag = EXTERNAL_SYMBOL_TYPE; t83154.value.external_symbol_type = t83140; t83155.tag = EXTERNAL_SYMBOL_TYPE; t83155.value.external_symbol_type = t83141; t83156.tag = EXTERNAL_SYMBOL_TYPE; t83156.value.external_symbol_type = t83142; t83157.tag = EXTERNAL_SYMBOL_TYPE; t83157.value.external_symbol_type = t83143; t83158.tag = EXTERNAL_SYMBOL_TYPE; t83158.value.external_symbol_type = t83144; t83159.tag = EXTERNAL_SYMBOL_TYPE; t83159.value.external_symbol_type = t83145; t83160.tag = EXTERNAL_SYMBOL_TYPE; t83160.value.external_symbol_type = t83149; t83161.tag = EXTERNAL_SYMBOL_TYPE; t83161.value.external_symbol_type = t83150; t83091 = f5485(t83131, t83132, t83133, t83134, t83135, t83136, t83137, t83138, t83139, t83154, t83155, t83156, t83157, t83158, t83159, t83146, t83147, t83148, t83160, t83161, t83151, t83152, t83153); goto l16091; l16090: /* x58381 */ /* x58380 */ /* x58379 stalin.sc:715:22625 */ /* x58333 stalin.sc:716:22648 */ t83100 = q43; /* x58335 stalin.sc:716:22652 */ /* x58334 stalin.sc:716:22653 */ /* x294863 stalin.sc:46:1719 */ /* x58337 stalin.sc:716:22665 */ /* x58336 stalin.sc:716:22666 */ /* x294881 stalin.sc:44:1693 */ /* x58338 stalin.sc:716:22677 */ /* x58339 stalin.sc:716:22680 */ /* x58340 stalin.sc:716:22683 */ /* x58341 stalin.sc:716:22686 */ /* x58342 stalin.sc:717:22695 */ t83101 = a2032; /* x58343 stalin.sc:717:22700 */ /* x58345 stalin.sc:717:22703 */ /* x58344 stalin.sc:717:22704 */ /* x277295 stalin.sc:323:8604 */ t83102 = q35; /* x58347 stalin.sc:717:22717 */ /* x58346 stalin.sc:717:22718 */ /* x277297 stalin.sc:323:8604 */ t83103 = q35; /* x58349 stalin.sc:717:22731 */ /* x58348 stalin.sc:717:22732 */ /* x277299 stalin.sc:323:8604 */ t83104 = q35; /* x58351 stalin.sc:718:22751 */ /* x58350 stalin.sc:718:22752 */ /* x277731 stalin.sc:321:8572 */ t83105 = q34; /* x58353 stalin.sc:718:22760 */ /* x58352 stalin.sc:718:22761 */ /* x277733 stalin.sc:321:8572 */ t83106 = q34; /* x58355 stalin.sc:718:22769 */ /* x58354 stalin.sc:718:22770 */ /* x277735 stalin.sc:321:8572 */ t83107 = q34; /* x58357 stalin.sc:718:22778 */ /* x58356 stalin.sc:718:22779 */ /* x277737 stalin.sc:321:8572 */ t83108 = q34; /* x58359 stalin.sc:718:22787 */ /* x58358 stalin.sc:718:22788 */ /* x277739 stalin.sc:321:8572 */ t83109 = q34; /* x58361 stalin.sc:718:22796 */ /* x58360 stalin.sc:718:22797 */ /* x277741 stalin.sc:321:8572 */ t83110 = q34; /* x58362 stalin.sc:719:22811 */ t83111 = a20897; /* x58363 stalin.sc:719:22822 */ t83112 = a20898; /* x58364 stalin.sc:719:22833 */ t83113 = a20899; /* x58366 stalin.sc:719:22843 */ /* x58365 stalin.sc:719:22844 */ /* x277743 stalin.sc:321:8572 */ t83114 = q34; /* x58368 stalin.sc:719:22852 */ /* x58367 stalin.sc:719:22853 */ /* x277745 stalin.sc:321:8572 */ t83115 = q34; /* x58369 stalin.sc:720:22867 */ /* x58371 stalin.sc:720:22870 */ /* x58370 stalin.sc:720:22871 */ /* x277301 stalin.sc:323:8604 */ t83116 = q35; /* x58372 stalin.sc:720:22884 */ /* x58373 stalin.sc:720:22888 */ /* x58374 stalin.sc:720:22891 */ /* x58375 stalin.sc:720:22894 */ /* x58376 stalin.sc:720:22898 */ /* x58377 stalin.sc:720:22902 */ /* x58378 stalin.sc:720:22906 */ t83117 = 0; /* x58332 stalin.sc:715:22626 */ t83118.tag = FALSE_TYPE; t83119.tag = FALSE_TYPE; t83120.tag = FALSE_TYPE; t83121.tag = FALSE_TYPE; t83122.tag = EXTERNAL_SYMBOL_TYPE; t83122.value.external_symbol_type = t83105; t83123.tag = EXTERNAL_SYMBOL_TYPE; t83123.value.external_symbol_type = t83106; t83124.tag = EXTERNAL_SYMBOL_TYPE; t83124.value.external_symbol_type = t83107; t83125.tag = EXTERNAL_SYMBOL_TYPE; t83125.value.external_symbol_type = t83108; t83126.tag = EXTERNAL_SYMBOL_TYPE; t83126.value.external_symbol_type = t83109; t83127.tag = EXTERNAL_SYMBOL_TYPE; t83127.value.external_symbol_type = t83110; t83128.tag = EXTERNAL_SYMBOL_TYPE; t83128.value.external_symbol_type = t83114; t83129.tag = EXTERNAL_SYMBOL_TYPE; t83129.value.external_symbol_type = t83115; t83130.tag = FALSE_TYPE; t83091 = f5485(t83100, t83118, t83119, t83120, t83121, t83101, t83102, t83103, t83104, t83122, t83123, t83124, t83125, t83126, t83127, t83111, t83112, t83113, t83128, t83129, t83130, t83116, t83117); l16091: l16088: /* x58205 */ a20900 = t83091; /* x58204 */ /* x58198 stalin.sc:721:22915 */ /* x58197 stalin.sc:721:22926 */ /* x58195 stalin.sc:721:22929 */ t83092 = a2032; /* x58196 stalin.sc:721:22934 */ t83093 = 1; /* x270751 stalin.sc:721:22927 */ if (!((t83092&1)==1)) {backtrace("stalin.sc", 721, 22926); plus_error();} a2032 = (((unsigned)(((int)(((int)t83092)>>1))+t83093))<<1)+1; /* x58203 stalin.sc:722:22940 */ /* x58202 stalin.sc:722:22951 */ /* x58200 stalin.sc:722:22957 */ t83094 = a20900; /* x58201 stalin.sc:722:22959 */ t83095 = a2031; /* x270750 stalin.sc:722:22952 */ a2031.tag = STRUCTURE_TYPE24753; a2031.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a2031.value.structure_type24753)==NULL) {backtrace("stalin.sc", 722, 22951); out_of_memory_error();} a2031.value.structure_type24753->s0.tag = STRUCTURE_TYPE27698; a2031.value.structure_type24753->s0.value.structure_type27698 = t83094; a2031.value.structure_type24753->s1 = *((struct w49 *)(&t83095)); /* x58193 */ /* x58192 stalin.sc:723:22968 */ return a20900;} /* CREATE-SET!-EXPRESSION[6914] */ struct structure_type27698 *f6914(struct w49 a20888, struct w49 a20889, struct w49 a20890) {struct structure_type27698 *a20891; /* X */ struct w49 a40150; /* S */ struct w49 a40166; /* S */ struct w49 a40182; /* S */ struct w49 a40204; /* S */ struct w49 a40215; /* S */ struct w49 a40223; /* S */ struct w49 a40434; /* OBJ */ struct w49 a40468; /* S */ struct w49 a40478; /* S */ struct w49 a40489; /* S */ struct w49 a40500; /* S */ struct w49 a40512; /* S */ struct w49 a40521; /* S */ struct w49 a40530; /* OBJ */ struct structure_type27698 *t83220; unsigned t83221; int t83222; struct structure_type27698 *t83223; struct w21193 t83224; struct structure_type27698 *t83225; struct w21193 t83226; struct structure_type27698 *t83227; struct w21193 t83228; struct w49 t83229; struct w49 t83230; struct w49 t83231; struct w49 t83232; char *t83233; unsigned t83234; char *t83235; char *t83236; char *t83237; char *t83238; char *t83239; char *t83240; char *t83241; struct w49 t83242; struct w49 t83243; char *t83244; char *t83245; char *t83246; char *t83247; char *t83248; char *t83249; int t83250; struct w49 t83251; struct w7121 t83252; struct w7121 t83253; struct w7121 t83254; struct w49 t83255; struct w9140 t83256; struct w9296 t83257; struct w49 t83258; struct w49 t83259; struct w49 t83260; struct w49 t83261; struct w49 t83262; struct w11873 t83263; struct w49 t83264; char *t83265; struct w49 t83266; struct w7121 t83267; struct w7121 t83268; struct w7121 t83269; unsigned t83270; char *t83271; char *t83272; char *t83273; char *t83274; char *t83275; char *t83276; char *t83277; struct w49 t83278; struct w49 t83279; char *t83280; char *t83281; char *t83282; char *t83283; char *t83284; struct w49 t83285; char *t83286; int t83287; struct w49 t83288; struct w9140 t83289; struct w9296 t83290; struct w49 t83291; struct w49 t83292; struct w49 t83293; struct w49 t83294; struct w49 t83295; struct w11873 t83296; struct w49 t83297; struct w49 t83298; struct w49 t83299; struct w49 t83300; struct w49 t83301; struct w49 t83302; struct w49 t83303; struct w49 t83304; struct w49 t83305; struct w49 t83306; struct w49 t83307; struct w49 t83308; char *t83309; struct w49 t83310; struct w6194 t83311; struct w6194 t83312; struct w6194 t83313; unsigned t83314; char *t83315; char *t83316; char *t83317; char *t83318; char *t83319; char *t83320; char *t83321; struct w49 t83322; struct w49 t83323; char *t83324; char *t83325; char *t83326; char *t83327; char *t83328; char *t83329; int t83330; struct w7121 t83331; struct w7121 t83332; struct w7121 t83333; struct w49 t83334; struct w9140 t83335; struct w9296 t83336; struct w49 t83337; struct w49 t83338; struct w49 t83339; struct w49 t83340; struct w49 t83341; struct w11873 t83342; struct w49 t83343; struct w49 t83344; struct w49 t83345; struct w49 t83346; struct w49 t83347; struct w49 t83348; struct w49 t83349; struct w49 t83350; struct w49 t83351; struct w49 t83352; struct w49 t83353; struct w49 t83354; struct w49 t83355; /* x58189 stalin.sc:647:20104 */ /* x58188 stalin.sc:647:20113 */ /* x58010 stalin.sc:647:20120 */ /* x58009 stalin.sc:647:20135 */ t83229 = a20888; /* x58008 stalin.sc:647:20121 */ a40530 = t83229; /* x294789 */ /* x294788 */ t83230 = a40530; /* x294787 */ if (!((t83230.tag)==STRUCTURE_TYPE27510)) goto l16093; /* x58071 */ /* x58070 */ /* x58069 stalin.sc:648:20143 */ /* x58012 stalin.sc:649:20164 */ t83309 = q42; /* x58015 stalin.sc:650:20174 */ /* x58014 stalin.sc:650:20196 */ t83344 = a20888; /* x58013 stalin.sc:650:20175 */ a40521 = t83344; /* x294753 */ /* x294752 */ t83345 = a40521; /* x294751 */ if (!((t83345.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-VERSION[5387] 35438]"); structure_ref_error();} /* x58018 stalin.sc:651:20205 */ /* x58017 stalin.sc:651:20226 */ t83346 = a20888; /* x58016 stalin.sc:651:20206 */ a40512 = t83346; /* x294717 */ /* x294716 */ t83347 = a40512; /* x294715 */ if (!((t83347.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CURSOR[5395] 35429]"); structure_ref_error();} /* x58021 stalin.sc:652:20235 */ /* x58020 stalin.sc:652:20258 */ t83348 = a20888; /* x58019 stalin.sc:652:20236 */ a40500 = t83348; /* x294669 */ /* x294668 */ t83349 = a40500; /* x294667 */ if (!((t83349.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-PATHNAME[5403] 35417]"); structure_ref_error();} t83310 = t83349.value.structure_type27510->s2; /* x58024 stalin.sc:653:20267 */ /* x58023 stalin.sc:653:20295 */ t83350 = a20888; /* x58022 stalin.sc:653:20268 */ a40489 = t83350; /* x294625 */ /* x294624 */ t83351 = a40489; /* x294623 */ if (!((t83351.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-LINE-POSITION[5411] 35406]"); structure_ref_error();} t83311 = t83351.value.structure_type27510->s3; /* x58027 stalin.sc:654:20304 */ /* x58026 stalin.sc:654:20337 */ t83352 = a20888; /* x58025 stalin.sc:654:20305 */ a40478 = t83352; /* x294581 */ /* x294580 */ t83353 = a40478; /* x294579 */ if (!((t83353.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CHARACTER-POSITION[5419] 35395]"); structure_ref_error();} t83312 = t83353.value.structure_type27510->s4; /* x58030 stalin.sc:655:20346 */ /* x58029 stalin.sc:655:20391 */ t83354 = a20888; /* x58028 stalin.sc:655:20347 */ a40468 = t83354; /* x294541 */ /* x294540 */ t83355 = a40468; /* x294539 */ if (!((t83355.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CHARACTER-POSITION-WITHIN-LINE[5427] 35385]"); structure_ref_error();} t83313 = t83355.value.structure_type27510->s5; /* x58031 stalin.sc:656:20400 */ t83314 = a2032; /* x58032 stalin.sc:656:20405 */ /* x58034 stalin.sc:656:20408 */ /* x58033 stalin.sc:656:20409 */ /* x277249 stalin.sc:323:8604 */ t83315 = q35; /* x58036 stalin.sc:656:20422 */ /* x58035 stalin.sc:656:20423 */ /* x277251 stalin.sc:323:8604 */ t83316 = q35; /* x58038 stalin.sc:656:20436 */ /* x58037 stalin.sc:656:20437 */ /* x277253 stalin.sc:323:8604 */ t83317 = q35; /* x58040 stalin.sc:656:20450 */ /* x58039 stalin.sc:656:20451 */ /* x277645 stalin.sc:321:8572 */ t83318 = q34; /* x58042 stalin.sc:657:20463 */ /* x58041 stalin.sc:657:20464 */ /* x277647 stalin.sc:321:8572 */ t83319 = q34; /* x58044 stalin.sc:657:20472 */ /* x58043 stalin.sc:657:20473 */ /* x277649 stalin.sc:321:8572 */ t83320 = q34; /* x58046 stalin.sc:657:20481 */ /* x58045 stalin.sc:657:20482 */ /* x277651 stalin.sc:321:8572 */ t83321 = q34; /* x58047 stalin.sc:657:20490 */ t83322 = a20889; /* x58048 stalin.sc:657:20499 */ t83323 = a20890; /* x58050 stalin.sc:657:20506 */ /* x58049 stalin.sc:657:20507 */ /* x277653 stalin.sc:321:8572 */ t83324 = q34; /* x58052 stalin.sc:657:20515 */ /* x58051 stalin.sc:657:20516 */ /* x277655 stalin.sc:321:8572 */ t83325 = q34; /* x58054 stalin.sc:658:20528 */ /* x58053 stalin.sc:658:20529 */ /* x277657 stalin.sc:321:8572 */ t83326 = q34; /* x58056 stalin.sc:658:20537 */ /* x58055 stalin.sc:658:20538 */ /* x277659 stalin.sc:321:8572 */ t83327 = q34; /* x58058 stalin.sc:658:20546 */ /* x58057 stalin.sc:658:20547 */ /* x277661 stalin.sc:321:8572 */ t83328 = q34; /* x58059 stalin.sc:658:20555 */ /* x58061 stalin.sc:658:20558 */ /* x58060 stalin.sc:658:20559 */ /* x277255 stalin.sc:323:8604 */ t83329 = q35; /* x58062 stalin.sc:658:20572 */ /* x58063 stalin.sc:659:20580 */ /* x58064 stalin.sc:659:20583 */ /* x58065 stalin.sc:659:20586 */ /* x58066 stalin.sc:659:20590 */ /* x58067 stalin.sc:659:20594 */ /* x58068 stalin.sc:659:20598 */ t83330 = 0; /* x58011 stalin.sc:648:20144 */ t83331 = *((struct w7121 *)(&t83311)); t83332 = *((struct w7121 *)(&t83312)); t83333 = *((struct w7121 *)(&t83313)); t83334.tag = EXTERNAL_SYMBOL_TYPE; t83334.value.external_symbol_type = t83318; t83335.tag = EXTERNAL_SYMBOL_TYPE; t83335.value.external_symbol_type = t83319; t83336.tag = EXTERNAL_SYMBOL_TYPE; t83336.value.external_symbol_type = t83320; t83337.tag = EXTERNAL_SYMBOL_TYPE; t83337.value.external_symbol_type = t83321; t83338.tag = EXTERNAL_SYMBOL_TYPE; t83338.value.external_symbol_type = t83324; t83339.tag = EXTERNAL_SYMBOL_TYPE; t83339.value.external_symbol_type = t83325; t83340.tag = EXTERNAL_SYMBOL_TYPE; t83340.value.external_symbol_type = t83326; t83341.tag = EXTERNAL_SYMBOL_TYPE; t83341.value.external_symbol_type = t83327; t83342.tag = EXTERNAL_SYMBOL_TYPE; t83342.value.external_symbol_type = t83328; t83343.tag = FALSE_TYPE; t83220 = f5485(t83309, t83310, t83331, t83332, t83333, t83314, t83315, t83316, t83317, t83334, t83335, t83336, t83337, t83322, t83323, t83338, t83339, t83340, t83341, t83342, t83343, t83329, t83330); goto l16094; l16093: /* x58187 */ /* x58074 stalin.sc:660:20605 */ /* x58073 stalin.sc:660:20618 */ t83231 = a20888; /* x58072 stalin.sc:660:20606 */ a40434 = t83231; /* x294405 */ /* x294404 */ t83232 = a40434; /* x294403 */ if (!((t83232.tag)==STRUCTURE_TYPE27698)) goto l16096; /* x58135 */ /* x58134 */ /* x58133 stalin.sc:661:20626 */ /* x58076 stalin.sc:662:20647 */ t83265 = q42; /* x58079 stalin.sc:663:20657 */ /* x58078 stalin.sc:663:20677 */ t83297 = a20888; /* x58077 stalin.sc:663:20658 */ a40223 = t83297; /* x293561 */ /* x293560 */ t83298 = a40223; /* x293559 */ if (!((t83298.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VERSION[5495] 35140]"); structure_ref_error();} /* x58082 stalin.sc:664:20686 */ /* x58081 stalin.sc:664:20705 */ t83299 = a20888; /* x58080 stalin.sc:664:20687 */ a40215 = t83299; /* x293529 */ /* x293528 */ t83300 = a40215; /* x293527 */ if (!((t83300.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CURSOR[5503] 35132]"); structure_ref_error();} /* x58085 stalin.sc:665:20714 */ /* x58084 stalin.sc:665:20735 */ t83301 = a20888; /* x58083 stalin.sc:665:20715 */ a40204 = t83301; /* x293485 */ /* x293484 */ t83302 = a40204; /* x293483 */ if (!((t83302.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35121]"); structure_ref_error();} t83266 = t83302.value.structure_type27698->s3; /* x58088 stalin.sc:666:20744 */ /* x58087 stalin.sc:666:20770 */ t83303 = a20888; /* x58086 stalin.sc:666:20745 */ a40182 = t83303; /* x293397 */ /* x293396 */ t83304 = a40182; /* x293395 */ if (!((t83304.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LINE-POSITION[5519] 35099]"); structure_ref_error();} t83267 = t83304.value.structure_type27698->s4; /* x58091 stalin.sc:667:20779 */ /* x58090 stalin.sc:667:20810 */ t83305 = a20888; /* x58089 stalin.sc:667:20780 */ a40166 = t83305; /* x293333 */ /* x293332 */ t83306 = a40166; /* x293331 */ if (!((t83306.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION[5527] 35083]"); structure_ref_error();} t83268 = t83306.value.structure_type27698->s5; /* x58094 stalin.sc:668:20819 */ /* x58093 stalin.sc:668:20862 */ t83307 = a20888; /* x58092 stalin.sc:668:20820 */ a40150 = t83307; /* x293269 */ /* x293268 */ t83308 = a40150; /* x293267 */ if (!((t83308.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION-WITHIN-LINE[5535] 35067]"); structure_ref_error();} t83269 = t83308.value.structure_type27698->s6; /* x58095 stalin.sc:669:20871 */ t83270 = a2032; /* x58096 stalin.sc:669:20876 */ /* x58098 stalin.sc:669:20879 */ /* x58097 stalin.sc:669:20880 */ /* x277257 stalin.sc:323:8604 */ t83271 = q35; /* x58100 stalin.sc:669:20893 */ /* x58099 stalin.sc:669:20894 */ /* x277259 stalin.sc:323:8604 */ t83272 = q35; /* x58102 stalin.sc:669:20907 */ /* x58101 stalin.sc:669:20908 */ /* x277261 stalin.sc:323:8604 */ t83273 = q35; /* x58104 stalin.sc:669:20921 */ /* x58103 stalin.sc:669:20922 */ /* x277663 stalin.sc:321:8572 */ t83274 = q34; /* x58106 stalin.sc:670:20934 */ /* x58105 stalin.sc:670:20935 */ /* x277665 stalin.sc:321:8572 */ t83275 = q34; /* x58108 stalin.sc:670:20943 */ /* x58107 stalin.sc:670:20944 */ /* x277667 stalin.sc:321:8572 */ t83276 = q34; /* x58110 stalin.sc:670:20952 */ /* x58109 stalin.sc:670:20953 */ /* x277669 stalin.sc:321:8572 */ t83277 = q34; /* x58111 stalin.sc:670:20961 */ t83278 = a20889; /* x58112 stalin.sc:670:20970 */ t83279 = a20890; /* x58114 stalin.sc:670:20977 */ /* x58113 stalin.sc:670:20978 */ /* x277671 stalin.sc:321:8572 */ t83280 = q34; /* x58116 stalin.sc:670:20986 */ /* x58115 stalin.sc:670:20987 */ /* x277673 stalin.sc:321:8572 */ t83281 = q34; /* x58118 stalin.sc:671:20999 */ /* x58117 stalin.sc:671:21000 */ /* x277675 stalin.sc:321:8572 */ t83282 = q34; /* x58120 stalin.sc:671:21008 */ /* x58119 stalin.sc:671:21009 */ /* x277677 stalin.sc:321:8572 */ t83283 = q34; /* x58122 stalin.sc:671:21017 */ /* x58121 stalin.sc:671:21018 */ /* x277679 stalin.sc:321:8572 */ t83284 = q34; /* x58123 stalin.sc:671:21026 */ t83285 = a20888; /* x58125 stalin.sc:671:21030 */ /* x58124 stalin.sc:671:21031 */ /* x277263 stalin.sc:323:8604 */ t83286 = q35; /* x58126 stalin.sc:671:21044 */ /* x58127 stalin.sc:672:21052 */ /* x58128 stalin.sc:672:21055 */ /* x58129 stalin.sc:672:21058 */ /* x58130 stalin.sc:672:21062 */ /* x58131 stalin.sc:672:21066 */ /* x58132 stalin.sc:672:21070 */ t83287 = 0; /* x58075 stalin.sc:661:20627 */ t83288.tag = EXTERNAL_SYMBOL_TYPE; t83288.value.external_symbol_type = t83274; t83289.tag = EXTERNAL_SYMBOL_TYPE; t83289.value.external_symbol_type = t83275; t83290.tag = EXTERNAL_SYMBOL_TYPE; t83290.value.external_symbol_type = t83276; t83291.tag = EXTERNAL_SYMBOL_TYPE; t83291.value.external_symbol_type = t83277; t83292.tag = EXTERNAL_SYMBOL_TYPE; t83292.value.external_symbol_type = t83280; t83293.tag = EXTERNAL_SYMBOL_TYPE; t83293.value.external_symbol_type = t83281; t83294.tag = EXTERNAL_SYMBOL_TYPE; t83294.value.external_symbol_type = t83282; t83295.tag = EXTERNAL_SYMBOL_TYPE; t83295.value.external_symbol_type = t83283; t83296.tag = EXTERNAL_SYMBOL_TYPE; t83296.value.external_symbol_type = t83284; t83220 = f5485(t83265, t83266, t83267, t83268, t83269, t83270, t83271, t83272, t83273, t83288, t83289, t83290, t83291, t83278, t83279, t83292, t83293, t83294, t83295, t83296, t83285, t83286, t83287); goto l16097; l16096: /* x58186 */ /* x58185 */ /* x58184 stalin.sc:674:21085 */ /* x58137 stalin.sc:675:21106 */ t83233 = q42; /* x58139 stalin.sc:675:21112 */ /* x58138 stalin.sc:675:21113 */ /* x294861 stalin.sc:46:1719 */ /* x58141 stalin.sc:675:21125 */ /* x58140 stalin.sc:675:21126 */ /* x294879 stalin.sc:44:1693 */ /* x58142 stalin.sc:675:21137 */ /* x58143 stalin.sc:675:21140 */ /* x58144 stalin.sc:675:21143 */ /* x58145 stalin.sc:675:21146 */ /* x58146 stalin.sc:676:21153 */ t83234 = a2032; /* x58147 stalin.sc:676:21158 */ /* x58149 stalin.sc:676:21161 */ /* x58148 stalin.sc:676:21162 */ /* x277265 stalin.sc:323:8604 */ t83235 = q35; /* x58151 stalin.sc:676:21175 */ /* x58150 stalin.sc:676:21176 */ /* x277267 stalin.sc:323:8604 */ t83236 = q35; /* x58153 stalin.sc:676:21189 */ /* x58152 stalin.sc:676:21190 */ /* x277269 stalin.sc:323:8604 */ t83237 = q35; /* x58155 stalin.sc:676:21203 */ /* x58154 stalin.sc:676:21204 */ /* x277681 stalin.sc:321:8572 */ t83238 = q34; /* x58157 stalin.sc:677:21216 */ /* x58156 stalin.sc:677:21217 */ /* x277683 stalin.sc:321:8572 */ t83239 = q34; /* x58159 stalin.sc:677:21225 */ /* x58158 stalin.sc:677:21226 */ /* x277685 stalin.sc:321:8572 */ t83240 = q34; /* x58161 stalin.sc:677:21234 */ /* x58160 stalin.sc:677:21235 */ /* x277687 stalin.sc:321:8572 */ t83241 = q34; /* x58162 stalin.sc:677:21243 */ t83242 = a20889; /* x58163 stalin.sc:677:21252 */ t83243 = a20890; /* x58165 stalin.sc:677:21259 */ /* x58164 stalin.sc:677:21260 */ /* x277689 stalin.sc:321:8572 */ t83244 = q34; /* x58167 stalin.sc:677:21268 */ /* x58166 stalin.sc:677:21269 */ /* x277691 stalin.sc:321:8572 */ t83245 = q34; /* x58169 stalin.sc:678:21281 */ /* x58168 stalin.sc:678:21282 */ /* x277693 stalin.sc:321:8572 */ t83246 = q34; /* x58171 stalin.sc:678:21290 */ /* x58170 stalin.sc:678:21291 */ /* x277695 stalin.sc:321:8572 */ t83247 = q34; /* x58173 stalin.sc:678:21299 */ /* x58172 stalin.sc:678:21300 */ /* x277697 stalin.sc:321:8572 */ t83248 = q34; /* x58174 stalin.sc:678:21308 */ /* x58176 stalin.sc:678:21311 */ /* x58175 stalin.sc:678:21312 */ /* x277271 stalin.sc:323:8604 */ t83249 = q35; /* x58177 stalin.sc:678:21325 */ /* x58178 stalin.sc:679:21333 */ /* x58179 stalin.sc:679:21336 */ /* x58180 stalin.sc:679:21339 */ /* x58181 stalin.sc:679:21343 */ /* x58182 stalin.sc:679:21347 */ /* x58183 stalin.sc:679:21351 */ t83250 = 0; /* x58136 stalin.sc:674:21086 */ t83251.tag = FALSE_TYPE; t83252.tag = FALSE_TYPE; t83253.tag = FALSE_TYPE; t83254.tag = FALSE_TYPE; t83255.tag = EXTERNAL_SYMBOL_TYPE; t83255.value.external_symbol_type = t83238; t83256.tag = EXTERNAL_SYMBOL_TYPE; t83256.value.external_symbol_type = t83239; t83257.tag = EXTERNAL_SYMBOL_TYPE; t83257.value.external_symbol_type = t83240; t83258.tag = EXTERNAL_SYMBOL_TYPE; t83258.value.external_symbol_type = t83241; t83259.tag = EXTERNAL_SYMBOL_TYPE; t83259.value.external_symbol_type = t83244; t83260.tag = EXTERNAL_SYMBOL_TYPE; t83260.value.external_symbol_type = t83245; t83261.tag = EXTERNAL_SYMBOL_TYPE; t83261.value.external_symbol_type = t83246; t83262.tag = EXTERNAL_SYMBOL_TYPE; t83262.value.external_symbol_type = t83247; t83263.tag = EXTERNAL_SYMBOL_TYPE; t83263.value.external_symbol_type = t83248; t83264.tag = FALSE_TYPE; t83220 = f5485(t83233, t83251, t83252, t83253, t83254, t83234, t83235, t83236, t83237, t83255, t83256, t83257, t83258, t83242, t83243, t83259, t83260, t83261, t83262, t83263, t83264, t83249, t83250); l16097: l16094: /* x58007 */ a20891 = t83220; /* x58006 */ /* x57990 stalin.sc:680:21360 */ /* x57989 stalin.sc:680:21371 */ /* x57987 stalin.sc:680:21374 */ t83221 = a2032; /* x57988 stalin.sc:680:21379 */ t83222 = 1; /* x270755 stalin.sc:680:21372 */ if (!((t83221&1)==1)) {backtrace("stalin.sc", 680, 21371); plus_error();} a2032 = (((unsigned)(((int)(((int)t83221)>>1))+t83222))<<1)+1; /* x57995 stalin.sc:681:21385 */ /* x57994 stalin.sc:681:21396 */ /* x57992 stalin.sc:681:21402 */ t83223 = a20891; /* x57993 stalin.sc:681:21404 */ t83224 = a2031; /* x270754 stalin.sc:681:21397 */ a2031.tag = STRUCTURE_TYPE24753; a2031.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a2031.value.structure_type24753)==NULL) {backtrace("stalin.sc", 681, 21396); out_of_memory_error();} a2031.value.structure_type24753->s0.tag = STRUCTURE_TYPE27698; a2031.value.structure_type24753->s0.value.structure_type27698 = t83223; a2031.value.structure_type24753->s1 = *((struct w49 *)(&t83224)); /* x58000 stalin.sc:682:21413 */ /* x57999 stalin.sc:682:21433 */ /* x57997 stalin.sc:682:21439 */ t83225 = a20891; /* x57998 stalin.sc:682:21441 */ t83226 = a2028; /* x270753 stalin.sc:682:21434 */ a2028.tag = STRUCTURE_TYPE24753; a2028.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a2028.value.structure_type24753)==NULL) {backtrace("stalin.sc", 682, 21433); out_of_memory_error();} a2028.value.structure_type24753->s0.tag = STRUCTURE_TYPE27698; a2028.value.structure_type24753->s0.value.structure_type27698 = t83225; a2028.value.structure_type24753->s1 = *((struct w49 *)(&t83226)); /* x58005 stalin.sc:683:21459 */ /* x58004 stalin.sc:683:21478 */ /* x58002 stalin.sc:683:21484 */ t83227 = a20891; /* x58003 stalin.sc:683:21486 */ t83228 = a2027; /* x270752 stalin.sc:683:21479 */ a2027.tag = STRUCTURE_TYPE24753; a2027.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a2027.value.structure_type24753)==NULL) {backtrace("stalin.sc", 683, 21478); out_of_memory_error();} a2027.value.structure_type24753->s0.tag = STRUCTURE_TYPE27698; a2027.value.structure_type24753->s0.value.structure_type27698 = t83227; a2027.value.structure_type24753->s1 = *((struct w49 *)(&t83228)); /* x57985 */ /* x57984 stalin.sc:684:21503 */ return a20891;} /* CREATE-CONVERTED-CONTINUATION-EXPRESSION[6908] */ struct structure_type27698 *f6908(struct w49 a20880, struct structure_type27694 *a20881, unsigned a20882, struct structure_type27698 *a20883) {struct structure_type27698 *a20884; /* X */ struct w49 a40154; /* S */ struct w49 a40170; /* S */ struct w49 a40186; /* S */ struct w49 a40208; /* S */ struct w49 a40219; /* S */ struct w49 a40227; /* S */ struct w49 a40439; /* OBJ */ struct w49 a40472; /* S */ struct w49 a40482; /* S */ struct w49 a40493; /* S */ struct w49 a40504; /* S */ struct w49 a40516; /* S */ struct w49 a40525; /* S */ struct w49 a40534; /* OBJ */ struct structure_type27698 *t83356; struct structure_type27694 *t83357; struct structure_type27698 *t83358; struct w9140 t83359; unsigned t83360; int t83361; struct structure_type27698 *t83362; struct w21193 t83363; struct w49 t83364; struct w49 t83365; struct w49 t83366; struct w49 t83367; char *t83368; unsigned t83369; char *t83370; char *t83371; char *t83372; char *t83373; struct structure_type27694 *t83374; unsigned t83375; struct structure_type27698 *t83376; char *t83377; char *t83378; char *t83379; char *t83380; char *t83381; char *t83382; char *t83383; char *t83384; int t83385; struct w49 t83386; struct w7121 t83387; struct w7121 t83388; struct w7121 t83389; struct w49 t83390; struct w9140 t83391; struct w9296 t83392; struct w49 t83393; struct w49 t83394; struct w49 t83395; struct w49 t83396; struct w49 t83397; struct w49 t83398; struct w49 t83399; struct w11873 t83400; struct w49 t83401; char *t83402; struct w49 t83403; struct w7121 t83404; struct w7121 t83405; struct w7121 t83406; unsigned t83407; char *t83408; char *t83409; char *t83410; char *t83411; struct structure_type27694 *t83412; unsigned t83413; struct structure_type27698 *t83414; char *t83415; char *t83416; char *t83417; char *t83418; char *t83419; char *t83420; char *t83421; struct w49 t83422; char *t83423; int t83424; struct w49 t83425; struct w9140 t83426; struct w9296 t83427; struct w49 t83428; struct w49 t83429; struct w49 t83430; struct w49 t83431; struct w49 t83432; struct w49 t83433; struct w49 t83434; struct w11873 t83435; struct w49 t83436; struct w49 t83437; struct w49 t83438; struct w49 t83439; struct w49 t83440; struct w49 t83441; struct w49 t83442; struct w49 t83443; struct w49 t83444; struct w49 t83445; struct w49 t83446; struct w49 t83447; char *t83448; struct w49 t83449; struct w6194 t83450; struct w6194 t83451; struct w6194 t83452; unsigned t83453; char *t83454; char *t83455; char *t83456; char *t83457; struct structure_type27694 *t83458; unsigned t83459; struct structure_type27698 *t83460; char *t83461; char *t83462; char *t83463; char *t83464; char *t83465; char *t83466; char *t83467; char *t83468; int t83469; struct w7121 t83470; struct w7121 t83471; struct w7121 t83472; struct w49 t83473; struct w9140 t83474; struct w9296 t83475; struct w49 t83476; struct w49 t83477; struct w49 t83478; struct w49 t83479; struct w49 t83480; struct w49 t83481; struct w49 t83482; struct w11873 t83483; struct w49 t83484; struct w49 t83485; struct w49 t83486; struct w49 t83487; struct w49 t83488; struct w49 t83489; struct w49 t83490; struct w49 t83491; struct w49 t83492; struct w49 t83493; struct w49 t83494; struct w49 t83495; struct w49 t83496; /* x57981 stalin.sc:608:18581 */ /* x57980 stalin.sc:608:18590 */ /* x57805 stalin.sc:608:18597 */ /* x57804 stalin.sc:608:18612 */ t83364 = a20880; /* x57803 stalin.sc:608:18598 */ a40534 = t83364; /* x294805 */ /* x294804 */ t83365 = a40534; /* x294803 */ if (!((t83365.tag)==STRUCTURE_TYPE27510)) goto l16099; /* x57865 */ /* x57864 */ /* x57863 stalin.sc:609:18620 */ /* x57807 stalin.sc:610:18641 */ t83448 = q41; /* x57810 stalin.sc:611:18669 */ /* x57809 stalin.sc:611:18691 */ t83485 = a20880; /* x57808 stalin.sc:611:18670 */ a40525 = t83485; /* x294769 */ /* x294768 */ t83486 = a40525; /* x294767 */ if (!((t83486.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-VERSION[5387] 35442]"); structure_ref_error();} /* x57813 stalin.sc:612:18700 */ /* x57812 stalin.sc:612:18721 */ t83487 = a20880; /* x57811 stalin.sc:612:18701 */ a40516 = t83487; /* x294733 */ /* x294732 */ t83488 = a40516; /* x294731 */ if (!((t83488.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CURSOR[5395] 35433]"); structure_ref_error();} /* x57816 stalin.sc:613:18730 */ /* x57815 stalin.sc:613:18753 */ t83489 = a20880; /* x57814 stalin.sc:613:18731 */ a40504 = t83489; /* x294685 */ /* x294684 */ t83490 = a40504; /* x294683 */ if (!((t83490.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-PATHNAME[5403] 35421]"); structure_ref_error();} t83449 = t83490.value.structure_type27510->s2; /* x57819 stalin.sc:614:18762 */ /* x57818 stalin.sc:614:18790 */ t83491 = a20880; /* x57817 stalin.sc:614:18763 */ a40493 = t83491; /* x294641 */ /* x294640 */ t83492 = a40493; /* x294639 */ if (!((t83492.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-LINE-POSITION[5411] 35410]"); structure_ref_error();} t83450 = t83492.value.structure_type27510->s3; /* x57822 stalin.sc:615:18799 */ /* x57821 stalin.sc:615:18832 */ t83493 = a20880; /* x57820 stalin.sc:615:18800 */ a40482 = t83493; /* x294597 */ /* x294596 */ t83494 = a40482; /* x294595 */ if (!((t83494.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CHARACTER-POSITION[5419] 35399]"); structure_ref_error();} t83451 = t83494.value.structure_type27510->s4; /* x57825 stalin.sc:616:18841 */ /* x57824 stalin.sc:616:18886 */ t83495 = a20880; /* x57823 stalin.sc:616:18842 */ a40472 = t83495; /* x294557 */ /* x294556 */ t83496 = a40472; /* x294555 */ if (!((t83496.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CHARACTER-POSITION-WITHIN-LINE[5427] 35389]"); structure_ref_error();} t83452 = t83496.value.structure_type27510->s5; /* x57826 stalin.sc:617:18895 */ t83453 = a2032; /* x57827 stalin.sc:617:18900 */ /* x57829 stalin.sc:617:18903 */ /* x57828 stalin.sc:617:18904 */ /* x277351 stalin.sc:323:8604 */ t83454 = q35; /* x57831 stalin.sc:617:18917 */ /* x57830 stalin.sc:617:18918 */ /* x277353 stalin.sc:323:8604 */ t83455 = q35; /* x57833 stalin.sc:617:18931 */ /* x57832 stalin.sc:617:18932 */ /* x277355 stalin.sc:323:8604 */ t83456 = q35; /* x57835 stalin.sc:617:18945 */ /* x57834 stalin.sc:617:18946 */ /* x277855 stalin.sc:321:8572 */ t83457 = q34; /* x57836 stalin.sc:618:18958 */ t83458 = a20881; /* x57837 stalin.sc:618:18977 */ t83459 = a20882; /* x57838 stalin.sc:618:18988 */ t83460 = a20883; /* x57840 stalin.sc:618:18999 */ /* x57839 stalin.sc:618:19000 */ /* x277857 stalin.sc:321:8572 */ t83461 = q34; /* x57842 stalin.sc:618:19008 */ /* x57841 stalin.sc:618:19009 */ /* x277859 stalin.sc:321:8572 */ t83462 = q34; /* x57844 stalin.sc:619:19021 */ /* x57843 stalin.sc:619:19022 */ /* x277861 stalin.sc:321:8572 */ t83463 = q34; /* x57846 stalin.sc:619:19030 */ /* x57845 stalin.sc:619:19031 */ /* x277863 stalin.sc:321:8572 */ t83464 = q34; /* x57848 stalin.sc:619:19039 */ /* x57847 stalin.sc:619:19040 */ /* x277865 stalin.sc:321:8572 */ t83465 = q34; /* x57850 stalin.sc:619:19048 */ /* x57849 stalin.sc:619:19049 */ /* x277867 stalin.sc:321:8572 */ t83466 = q34; /* x57852 stalin.sc:619:19057 */ /* x57851 stalin.sc:619:19058 */ /* x277869 stalin.sc:321:8572 */ t83467 = q34; /* x57853 stalin.sc:620:19070 */ /* x57855 stalin.sc:620:19073 */ /* x57854 stalin.sc:620:19074 */ /* x277357 stalin.sc:323:8604 */ t83468 = q35; /* x57856 stalin.sc:620:19087 */ /* x57857 stalin.sc:620:19091 */ /* x57858 stalin.sc:620:19094 */ /* x57859 stalin.sc:620:19097 */ /* x57860 stalin.sc:620:19101 */ /* x57861 stalin.sc:620:19105 */ /* x57862 stalin.sc:620:19109 */ t83469 = 0; /* x57806 stalin.sc:609:18621 */ t83470 = *((struct w7121 *)(&t83450)); t83471 = *((struct w7121 *)(&t83451)); t83472 = *((struct w7121 *)(&t83452)); t83473.tag = EXTERNAL_SYMBOL_TYPE; t83473.value.external_symbol_type = t83457; t83474.tag = STRUCTURE_TYPE27694; t83474.value.structure_type27694 = t83458; /* MOVE: dispatching squished to general */ if (t83459==NULL_TYPE) t83475.tag = (unsigned)t83459; else {if ((t83459&3)==1) {t83475.tag = STRUCTURE_TYPE24753; t83475.value.structure_type24753 = (struct structure_type24753 *)(t83459-1);} else {t83475.tag = STRUCTURE_TYPE27692; t83475.value.structure_type27692 = (struct structure_type27692 *)t83459;}} /* MOVE: branching squeezed to general */ if (t83460>=((struct structure_type27698 *)VALUE_OFFSET)) {t83476.tag = STRUCTURE_TYPE27698; t83476.value.structure_type27698 = t83460;} else t83476.tag = (unsigned)t83460; t83477.tag = EXTERNAL_SYMBOL_TYPE; t83477.value.external_symbol_type = t83461; t83478.tag = EXTERNAL_SYMBOL_TYPE; t83478.value.external_symbol_type = t83462; t83479.tag = EXTERNAL_SYMBOL_TYPE; t83479.value.external_symbol_type = t83463; t83480.tag = EXTERNAL_SYMBOL_TYPE; t83480.value.external_symbol_type = t83464; t83481.tag = EXTERNAL_SYMBOL_TYPE; t83481.value.external_symbol_type = t83465; t83482.tag = EXTERNAL_SYMBOL_TYPE; t83482.value.external_symbol_type = t83466; t83483.tag = EXTERNAL_SYMBOL_TYPE; t83483.value.external_symbol_type = t83467; t83484.tag = FALSE_TYPE; t83356 = f5485(t83448, t83449, t83470, t83471, t83472, t83453, t83454, t83455, t83456, t83473, t83474, t83475, t83476, t83477, t83478, t83479, t83480, t83481, t83482, t83483, t83484, t83468, t83469); goto l16100; l16099: /* x57979 */ /* x57868 stalin.sc:621:19116 */ /* x57867 stalin.sc:621:19129 */ t83366 = a20880; /* x57866 stalin.sc:621:19117 */ a40439 = t83366; /* x294425 */ /* x294424 */ t83367 = a40439; /* x294423 */ if (!((t83367.tag)==STRUCTURE_TYPE27698)) goto l16102; /* x57928 */ /* x57927 */ /* x57926 stalin.sc:622:19137 */ /* x57870 stalin.sc:623:19158 */ t83402 = q41; /* x57873 stalin.sc:624:19186 */ /* x57872 stalin.sc:624:19206 */ t83436 = a20880; /* x57871 stalin.sc:624:19187 */ a40227 = t83436; /* x293577 */ /* x293576 */ t83437 = a40227; /* x293575 */ if (!((t83437.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VERSION[5495] 35144]"); structure_ref_error();} /* x57876 stalin.sc:625:19215 */ /* x57875 stalin.sc:625:19234 */ t83438 = a20880; /* x57874 stalin.sc:625:19216 */ a40219 = t83438; /* x293545 */ /* x293544 */ t83439 = a40219; /* x293543 */ if (!((t83439.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CURSOR[5503] 35136]"); structure_ref_error();} /* x57879 stalin.sc:626:19243 */ /* x57878 stalin.sc:626:19264 */ t83440 = a20880; /* x57877 stalin.sc:626:19244 */ a40208 = t83440; /* x293501 */ /* x293500 */ t83441 = a40208; /* x293499 */ if (!((t83441.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35125]"); structure_ref_error();} t83403 = t83441.value.structure_type27698->s3; /* x57882 stalin.sc:627:19273 */ /* x57881 stalin.sc:627:19299 */ t83442 = a20880; /* x57880 stalin.sc:627:19274 */ a40186 = t83442; /* x293413 */ /* x293412 */ t83443 = a40186; /* x293411 */ if (!((t83443.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LINE-POSITION[5519] 35103]"); structure_ref_error();} t83404 = t83443.value.structure_type27698->s4; /* x57885 stalin.sc:628:19308 */ /* x57884 stalin.sc:628:19339 */ t83444 = a20880; /* x57883 stalin.sc:628:19309 */ a40170 = t83444; /* x293349 */ /* x293348 */ t83445 = a40170; /* x293347 */ if (!((t83445.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION[5527] 35087]"); structure_ref_error();} t83405 = t83445.value.structure_type27698->s5; /* x57888 stalin.sc:629:19348 */ /* x57887 stalin.sc:629:19391 */ t83446 = a20880; /* x57886 stalin.sc:629:19349 */ a40154 = t83446; /* x293285 */ /* x293284 */ t83447 = a40154; /* x293283 */ if (!((t83447.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION-WITHIN-LINE[5535] 35071]"); structure_ref_error();} t83406 = t83447.value.structure_type27698->s6; /* x57889 stalin.sc:630:19400 */ t83407 = a2032; /* x57890 stalin.sc:630:19405 */ /* x57892 stalin.sc:630:19408 */ /* x57891 stalin.sc:630:19409 */ /* x277359 stalin.sc:323:8604 */ t83408 = q35; /* x57894 stalin.sc:630:19422 */ /* x57893 stalin.sc:630:19423 */ /* x277361 stalin.sc:323:8604 */ t83409 = q35; /* x57896 stalin.sc:630:19436 */ /* x57895 stalin.sc:630:19437 */ /* x277363 stalin.sc:323:8604 */ t83410 = q35; /* x57898 stalin.sc:630:19450 */ /* x57897 stalin.sc:630:19451 */ /* x277871 stalin.sc:321:8572 */ t83411 = q34; /* x57899 stalin.sc:631:19463 */ t83412 = a20881; /* x57900 stalin.sc:631:19482 */ t83413 = a20882; /* x57901 stalin.sc:631:19493 */ t83414 = a20883; /* x57903 stalin.sc:631:19504 */ /* x57902 stalin.sc:631:19505 */ /* x277873 stalin.sc:321:8572 */ t83415 = q34; /* x57905 stalin.sc:631:19513 */ /* x57904 stalin.sc:631:19514 */ /* x277875 stalin.sc:321:8572 */ t83416 = q34; /* x57907 stalin.sc:632:19526 */ /* x57906 stalin.sc:632:19527 */ /* x277877 stalin.sc:321:8572 */ t83417 = q34; /* x57909 stalin.sc:632:19535 */ /* x57908 stalin.sc:632:19536 */ /* x277879 stalin.sc:321:8572 */ t83418 = q34; /* x57911 stalin.sc:632:19544 */ /* x57910 stalin.sc:632:19545 */ /* x277881 stalin.sc:321:8572 */ t83419 = q34; /* x57913 stalin.sc:632:19553 */ /* x57912 stalin.sc:632:19554 */ /* x277883 stalin.sc:321:8572 */ t83420 = q34; /* x57915 stalin.sc:632:19562 */ /* x57914 stalin.sc:632:19563 */ /* x277885 stalin.sc:321:8572 */ t83421 = q34; /* x57916 stalin.sc:633:19575 */ t83422 = a20880; /* x57918 stalin.sc:633:19579 */ /* x57917 stalin.sc:633:19580 */ /* x277365 stalin.sc:323:8604 */ t83423 = q35; /* x57919 stalin.sc:633:19593 */ /* x57920 stalin.sc:633:19597 */ /* x57921 stalin.sc:633:19600 */ /* x57922 stalin.sc:633:19603 */ /* x57923 stalin.sc:633:19607 */ /* x57924 stalin.sc:633:19611 */ /* x57925 stalin.sc:633:19615 */ t83424 = 0; /* x57869 stalin.sc:622:19138 */ t83425.tag = EXTERNAL_SYMBOL_TYPE; t83425.value.external_symbol_type = t83411; t83426.tag = STRUCTURE_TYPE27694; t83426.value.structure_type27694 = t83412; /* MOVE: dispatching squished to general */ if (t83413==NULL_TYPE) t83427.tag = (unsigned)t83413; else {if ((t83413&3)==1) {t83427.tag = STRUCTURE_TYPE24753; t83427.value.structure_type24753 = (struct structure_type24753 *)(t83413-1);} else {t83427.tag = STRUCTURE_TYPE27692; t83427.value.structure_type27692 = (struct structure_type27692 *)t83413;}} /* MOVE: branching squeezed to general */ if (t83414>=((struct structure_type27698 *)VALUE_OFFSET)) {t83428.tag = STRUCTURE_TYPE27698; t83428.value.structure_type27698 = t83414;} else t83428.tag = (unsigned)t83414; t83429.tag = EXTERNAL_SYMBOL_TYPE; t83429.value.external_symbol_type = t83415; t83430.tag = EXTERNAL_SYMBOL_TYPE; t83430.value.external_symbol_type = t83416; t83431.tag = EXTERNAL_SYMBOL_TYPE; t83431.value.external_symbol_type = t83417; t83432.tag = EXTERNAL_SYMBOL_TYPE; t83432.value.external_symbol_type = t83418; t83433.tag = EXTERNAL_SYMBOL_TYPE; t83433.value.external_symbol_type = t83419; t83434.tag = EXTERNAL_SYMBOL_TYPE; t83434.value.external_symbol_type = t83420; t83435.tag = EXTERNAL_SYMBOL_TYPE; t83435.value.external_symbol_type = t83421; t83356 = f5485(t83402, t83403, t83404, t83405, t83406, t83407, t83408, t83409, t83410, t83425, t83426, t83427, t83428, t83429, t83430, t83431, t83432, t83433, t83434, t83435, t83422, t83423, t83424); goto l16103; l16102: /* x57978 */ /* x57977 */ /* x57976 stalin.sc:635:19630 */ /* x57930 stalin.sc:636:19651 */ t83368 = q41; /* x57932 stalin.sc:636:19675 */ /* x57931 stalin.sc:636:19676 */ /* x294869 stalin.sc:46:1719 */ /* x57934 stalin.sc:636:19688 */ /* x57933 stalin.sc:636:19689 */ /* x294887 stalin.sc:44:1693 */ /* x57935 stalin.sc:636:19700 */ /* x57936 stalin.sc:636:19703 */ /* x57937 stalin.sc:636:19706 */ /* x57938 stalin.sc:636:19709 */ /* x57939 stalin.sc:637:19716 */ t83369 = a2032; /* x57940 stalin.sc:637:19721 */ /* x57942 stalin.sc:637:19724 */ /* x57941 stalin.sc:637:19725 */ /* x277367 stalin.sc:323:8604 */ t83370 = q35; /* x57944 stalin.sc:637:19738 */ /* x57943 stalin.sc:637:19739 */ /* x277369 stalin.sc:323:8604 */ t83371 = q35; /* x57946 stalin.sc:637:19752 */ /* x57945 stalin.sc:637:19753 */ /* x277371 stalin.sc:323:8604 */ t83372 = q35; /* x57948 stalin.sc:637:19766 */ /* x57947 stalin.sc:637:19767 */ /* x277887 stalin.sc:321:8572 */ t83373 = q34; /* x57949 stalin.sc:638:19779 */ t83374 = a20881; /* x57950 stalin.sc:638:19798 */ t83375 = a20882; /* x57951 stalin.sc:638:19809 */ t83376 = a20883; /* x57953 stalin.sc:638:19820 */ /* x57952 stalin.sc:638:19821 */ /* x277889 stalin.sc:321:8572 */ t83377 = q34; /* x57955 stalin.sc:638:19829 */ /* x57954 stalin.sc:638:19830 */ /* x277891 stalin.sc:321:8572 */ t83378 = q34; /* x57957 stalin.sc:639:19842 */ /* x57956 stalin.sc:639:19843 */ /* x277893 stalin.sc:321:8572 */ t83379 = q34; /* x57959 stalin.sc:639:19851 */ /* x57958 stalin.sc:639:19852 */ /* x277895 stalin.sc:321:8572 */ t83380 = q34; /* x57961 stalin.sc:639:19860 */ /* x57960 stalin.sc:639:19861 */ /* x277897 stalin.sc:321:8572 */ t83381 = q34; /* x57963 stalin.sc:639:19869 */ /* x57962 stalin.sc:639:19870 */ /* x277899 stalin.sc:321:8572 */ t83382 = q34; /* x57965 stalin.sc:639:19878 */ /* x57964 stalin.sc:639:19879 */ /* x277901 stalin.sc:321:8572 */ t83383 = q34; /* x57966 stalin.sc:640:19891 */ /* x57968 stalin.sc:640:19894 */ /* x57967 stalin.sc:640:19895 */ /* x277373 stalin.sc:323:8604 */ t83384 = q35; /* x57969 stalin.sc:640:19908 */ /* x57970 stalin.sc:640:19912 */ /* x57971 stalin.sc:640:19915 */ /* x57972 stalin.sc:640:19918 */ /* x57973 stalin.sc:640:19922 */ /* x57974 stalin.sc:640:19926 */ /* x57975 stalin.sc:640:19930 */ t83385 = 0; /* x57929 stalin.sc:635:19631 */ t83386.tag = FALSE_TYPE; t83387.tag = FALSE_TYPE; t83388.tag = FALSE_TYPE; t83389.tag = FALSE_TYPE; t83390.tag = EXTERNAL_SYMBOL_TYPE; t83390.value.external_symbol_type = t83373; t83391.tag = STRUCTURE_TYPE27694; t83391.value.structure_type27694 = t83374; /* MOVE: dispatching squished to general */ if (t83375==NULL_TYPE) t83392.tag = (unsigned)t83375; else {if ((t83375&3)==1) {t83392.tag = STRUCTURE_TYPE24753; t83392.value.structure_type24753 = (struct structure_type24753 *)(t83375-1);} else {t83392.tag = STRUCTURE_TYPE27692; t83392.value.structure_type27692 = (struct structure_type27692 *)t83375;}} /* MOVE: branching squeezed to general */ if (t83376>=((struct structure_type27698 *)VALUE_OFFSET)) {t83393.tag = STRUCTURE_TYPE27698; t83393.value.structure_type27698 = t83376;} else t83393.tag = (unsigned)t83376; t83394.tag = EXTERNAL_SYMBOL_TYPE; t83394.value.external_symbol_type = t83377; t83395.tag = EXTERNAL_SYMBOL_TYPE; t83395.value.external_symbol_type = t83378; t83396.tag = EXTERNAL_SYMBOL_TYPE; t83396.value.external_symbol_type = t83379; t83397.tag = EXTERNAL_SYMBOL_TYPE; t83397.value.external_symbol_type = t83380; t83398.tag = EXTERNAL_SYMBOL_TYPE; t83398.value.external_symbol_type = t83381; t83399.tag = EXTERNAL_SYMBOL_TYPE; t83399.value.external_symbol_type = t83382; t83400.tag = EXTERNAL_SYMBOL_TYPE; t83400.value.external_symbol_type = t83383; t83401.tag = FALSE_TYPE; t83356 = f5485(t83368, t83386, t83387, t83388, t83389, t83369, t83370, t83371, t83372, t83390, t83391, t83392, t83393, t83394, t83395, t83396, t83397, t83398, t83399, t83400, t83401, t83384, t83385); l16103: l16100: /* x57802 */ a20884 = t83356; /* x57801 */ /* x57790 stalin.sc:641:19939 */ /* x57788 stalin.sc:641:19968 */ t83357 = a20881; /* x57789 stalin.sc:641:19987 */ t83358 = a20884; /* x57787 stalin.sc:641:19940 */ t83359.tag = STRUCTURE_TYPE27694; t83359.value.structure_type27694 = t83357; f6640(t83359, t83358); /* x57795 stalin.sc:642:19992 */ /* x57794 stalin.sc:642:20003 */ /* x57792 stalin.sc:642:20006 */ t83360 = a2032; /* x57793 stalin.sc:642:20011 */ t83361 = 1; /* x270757 stalin.sc:642:20004 */ if (!((t83360&1)==1)) {backtrace("stalin.sc", 642, 20003); plus_error();} a2032 = (((unsigned)(((int)(((int)t83360)>>1))+t83361))<<1)+1; /* x57800 stalin.sc:643:20017 */ /* x57799 stalin.sc:643:20028 */ /* x57797 stalin.sc:643:20034 */ t83362 = a20884; /* x57798 stalin.sc:643:20036 */ t83363 = a2031; /* x270756 stalin.sc:643:20029 */ a2031.tag = STRUCTURE_TYPE24753; a2031.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a2031.value.structure_type24753)==NULL) {backtrace("stalin.sc", 643, 20028); out_of_memory_error();} a2031.value.structure_type24753->s0.tag = STRUCTURE_TYPE27698; a2031.value.structure_type24753->s0.value.structure_type27698 = t83362; a2031.value.structure_type24753->s1 = *((struct w49 *)(&t83363)); /* x57786 */ /* x57785 stalin.sc:644:20045 */ return a20884;} /* CREATE-CONVERTED-LAMBDA-EXPRESSION[6902] */ struct structure_type27698 *f6902(struct w49 a20872, struct w9140 a20873, unsigned a20874, struct structure_type27698 *a20875) {struct w49 a18831; /* OBJ */ struct w49 a18832; /* S */ struct w49 a18842; /* S */ struct w49 a18852; /* S */ struct w49 a18862; /* S */ struct w49 a18872; /* S */ struct w49 a18882; /* S */ struct w49 a18998; /* S */ struct w49 a19008; /* S */ struct w49 a19048; /* S */ struct structure_type27698 *a20876; /* X */ struct w49 a40164; /* S */ struct w49 a40180; /* S */ struct w49 a40202; /* S */ struct w49 a40425; /* OBJ */ struct structure_type27698 *t83497; struct w9140 t83498; struct structure_type27698 *t83499; unsigned t83500; int t83501; struct structure_type27698 *t83502; struct w21193 t83503; struct w49 t83504; struct w49 t83505; struct w49 t83506; struct w49 t83507; char *t83508; unsigned t83509; char *t83510; char *t83511; char *t83512; char *t83513; struct w9140 t83514; unsigned t83515; struct structure_type27698 *t83516; char *t83517; char *t83518; char *t83519; char *t83520; char *t83521; char *t83522; char *t83523; char *t83524; int t83525; struct w49 t83526; struct w7121 t83527; struct w7121 t83528; struct w7121 t83529; struct w49 t83530; struct w9296 t83531; struct w49 t83532; struct w49 t83533; struct w49 t83534; struct w49 t83535; struct w49 t83536; struct w49 t83537; struct w49 t83538; struct w11873 t83539; struct w49 t83540; char *t83541; struct w49 t83542; struct w7121 t83543; struct w7121 t83544; struct w7121 t83545; unsigned t83546; char *t83547; char *t83548; char *t83549; char *t83550; struct w9140 t83551; unsigned t83552; struct structure_type27698 *t83553; char *t83554; char *t83555; char *t83556; char *t83557; char *t83558; char *t83559; char *t83560; struct w49 t83561; char *t83562; int t83563; struct w49 t83564; struct w9296 t83565; struct w49 t83566; struct w49 t83567; struct w49 t83568; struct w49 t83569; struct w49 t83570; struct w49 t83571; struct w49 t83572; struct w11873 t83573; struct w49 t83574; struct w49 t83575; struct w49 t83576; struct w49 t83577; struct w49 t83578; struct w49 t83579; struct w49 t83580; struct w49 t83581; struct w49 t83582; struct w49 t83583; struct w49 t83584; struct w49 t83585; char *t83586; struct w49 t83587; struct w6194 t83588; struct w6194 t83589; struct w6194 t83590; unsigned t83591; char *t83592; char *t83593; char *t83594; char *t83595; struct w9140 t83596; unsigned t83597; struct structure_type27698 *t83598; char *t83599; char *t83600; char *t83601; char *t83602; char *t83603; char *t83604; char *t83605; char *t83606; int t83607; struct w7121 t83608; struct w7121 t83609; struct w7121 t83610; struct w49 t83611; struct w9296 t83612; struct w49 t83613; struct w49 t83614; struct w49 t83615; struct w49 t83616; struct w49 t83617; struct w49 t83618; struct w49 t83619; struct w11873 t83620; struct w49 t83621; struct w49 t83622; struct w49 t83623; struct w49 t83624; struct w49 t83625; struct w49 t83626; struct w49 t83627; struct w49 t83628; struct w49 t83629; struct w49 t83630; struct w49 t83631; struct w49 t83632; struct w49 t83633; /* x57782 stalin.sc:568:17031 */ /* x57781 stalin.sc:568:17040 */ /* x57606 stalin.sc:568:17047 */ /* x57605 stalin.sc:568:17062 */ t83504 = a20872; /* x57604 stalin.sc:568:17048 */ a18831 = t83504; /* x49116 */ /* x49115 */ t83505 = a18831; /* x49114 */ if (!((t83505.tag)==STRUCTURE_TYPE27510)) goto l16105; /* x57666 */ /* x57665 */ /* x57664 stalin.sc:569:17070 */ /* x57608 stalin.sc:570:17091 */ t83586 = q40; /* x57611 stalin.sc:571:17113 */ /* x57610 stalin.sc:571:17135 */ t83622 = a20872; /* x57609 stalin.sc:571:17114 */ a18832 = t83622; /* x49121 */ /* x49120 */ t83623 = a18832; /* x49119 */ if (!((t83623.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("S-EXPRESSION-VERSION[5387]"); structure_ref_error();} /* x57614 stalin.sc:572:17144 */ /* x57613 stalin.sc:572:17165 */ t83624 = a20872; /* x57612 stalin.sc:572:17145 */ a18842 = t83624; /* x49160 */ /* x49159 */ t83625 = a18842; /* x49158 */ if (!((t83625.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("S-EXPRESSION-CURSOR[5395]"); structure_ref_error();} /* x57617 stalin.sc:573:17174 */ /* x57616 stalin.sc:573:17197 */ t83626 = a20872; /* x57615 stalin.sc:573:17175 */ a18852 = t83626; /* x49199 */ /* x49198 */ t83627 = a18852; /* x49197 */ if (!((t83627.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("S-EXPRESSION-PATHNAME[5403]"); structure_ref_error();} t83587 = t83627.value.structure_type27510->s2; /* x57620 stalin.sc:574:17206 */ /* x57619 stalin.sc:574:17234 */ t83628 = a20872; /* x57618 stalin.sc:574:17207 */ a18862 = t83628; /* x49238 */ /* x49237 */ t83629 = a18862; /* x49236 */ if (!((t83629.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("S-EXPRESSION-LINE-POSITION[5411]"); structure_ref_error();} t83588 = t83629.value.structure_type27510->s3; /* x57623 stalin.sc:575:17243 */ /* x57622 stalin.sc:575:17276 */ t83630 = a20872; /* x57621 stalin.sc:575:17244 */ a18872 = t83630; /* x49277 */ /* x49276 */ t83631 = a18872; /* x49275 */ if (!((t83631.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("S-EXPRESSION-CHARACTER-POSITION[5419]"); structure_ref_error();} t83589 = t83631.value.structure_type27510->s4; /* x57626 stalin.sc:576:17285 */ /* x57625 stalin.sc:576:17330 */ t83632 = a20872; /* x57624 stalin.sc:576:17286 */ a18882 = t83632; /* x49316 */ /* x49315 */ t83633 = a18882; /* x49314 */ if (!((t83633.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("S-EXPRESSION-CHARACTER-POSITION-WITHIN-LINE[5427]"); structure_ref_error();} t83590 = t83633.value.structure_type27510->s5; /* x57627 stalin.sc:577:17339 */ t83591 = a2032; /* x57628 stalin.sc:577:17344 */ /* x57630 stalin.sc:577:17347 */ /* x57629 stalin.sc:577:17348 */ /* x277175 stalin.sc:323:8604 */ t83592 = q35; /* x57632 stalin.sc:577:17361 */ /* x57631 stalin.sc:577:17362 */ /* x277177 stalin.sc:323:8604 */ t83593 = q35; /* x57634 stalin.sc:577:17375 */ /* x57633 stalin.sc:577:17376 */ /* x277179 stalin.sc:323:8604 */ t83594 = q35; /* x57636 stalin.sc:577:17389 */ /* x57635 stalin.sc:577:17390 */ /* x277549 stalin.sc:321:8572 */ t83595 = q34; /* x57637 stalin.sc:578:17402 */ t83596 = a20873; /* x57638 stalin.sc:578:17421 */ t83597 = a20874; /* x57639 stalin.sc:578:17432 */ t83598 = a20875; /* x57641 stalin.sc:578:17443 */ /* x57640 stalin.sc:578:17444 */ /* x277551 stalin.sc:321:8572 */ t83599 = q34; /* x57643 stalin.sc:578:17452 */ /* x57642 stalin.sc:578:17453 */ /* x277553 stalin.sc:321:8572 */ t83600 = q34; /* x57645 stalin.sc:579:17465 */ /* x57644 stalin.sc:579:17466 */ /* x277555 stalin.sc:321:8572 */ t83601 = q34; /* x57647 stalin.sc:579:17474 */ /* x57646 stalin.sc:579:17475 */ /* x277557 stalin.sc:321:8572 */ t83602 = q34; /* x57649 stalin.sc:579:17483 */ /* x57648 stalin.sc:579:17484 */ /* x277559 stalin.sc:321:8572 */ t83603 = q34; /* x57651 stalin.sc:579:17492 */ /* x57650 stalin.sc:579:17493 */ /* x277561 stalin.sc:321:8572 */ t83604 = q34; /* x57653 stalin.sc:579:17501 */ /* x57652 stalin.sc:579:17502 */ /* x277563 stalin.sc:321:8572 */ t83605 = q34; /* x57654 stalin.sc:580:17514 */ /* x57656 stalin.sc:580:17517 */ /* x57655 stalin.sc:580:17518 */ /* x277181 stalin.sc:323:8604 */ t83606 = q35; /* x57657 stalin.sc:580:17531 */ /* x57658 stalin.sc:580:17535 */ /* x57659 stalin.sc:580:17538 */ /* x57660 stalin.sc:580:17541 */ /* x57661 stalin.sc:580:17545 */ /* x57662 stalin.sc:580:17549 */ /* x57663 stalin.sc:580:17553 */ t83607 = 0; /* x57607 stalin.sc:569:17071 */ t83608 = *((struct w7121 *)(&t83588)); t83609 = *((struct w7121 *)(&t83589)); t83610 = *((struct w7121 *)(&t83590)); t83611.tag = EXTERNAL_SYMBOL_TYPE; t83611.value.external_symbol_type = t83595; /* MOVE: dispatching squished to general */ if (t83597==NULL_TYPE) t83612.tag = (unsigned)t83597; else {if ((t83597&3)==1) {t83612.tag = STRUCTURE_TYPE24753; t83612.value.structure_type24753 = (struct structure_type24753 *)(t83597-1);} else {t83612.tag = STRUCTURE_TYPE27692; t83612.value.structure_type27692 = (struct structure_type27692 *)t83597;}} /* MOVE: branching squeezed to general */ if (t83598>=((struct structure_type27698 *)VALUE_OFFSET)) {t83613.tag = STRUCTURE_TYPE27698; t83613.value.structure_type27698 = t83598;} else t83613.tag = (unsigned)t83598; t83614.tag = EXTERNAL_SYMBOL_TYPE; t83614.value.external_symbol_type = t83599; t83615.tag = EXTERNAL_SYMBOL_TYPE; t83615.value.external_symbol_type = t83600; t83616.tag = EXTERNAL_SYMBOL_TYPE; t83616.value.external_symbol_type = t83601; t83617.tag = EXTERNAL_SYMBOL_TYPE; t83617.value.external_symbol_type = t83602; t83618.tag = EXTERNAL_SYMBOL_TYPE; t83618.value.external_symbol_type = t83603; t83619.tag = EXTERNAL_SYMBOL_TYPE; t83619.value.external_symbol_type = t83604; t83620.tag = EXTERNAL_SYMBOL_TYPE; t83620.value.external_symbol_type = t83605; t83621.tag = FALSE_TYPE; t83497 = f5485(t83586, t83587, t83608, t83609, t83610, t83591, t83592, t83593, t83594, t83611, t83596, t83612, t83613, t83614, t83615, t83616, t83617, t83618, t83619, t83620, t83621, t83606, t83607); goto l16106; l16105: /* x57780 */ /* x57669 stalin.sc:581:17560 */ /* x57668 stalin.sc:581:17573 */ t83506 = a20872; /* x57667 stalin.sc:581:17561 */ a40425 = t83506; /* x294369 */ /* x294368 */ t83507 = a40425; /* x294367 */ if (!((t83507.tag)==STRUCTURE_TYPE27698)) goto l16108; /* x57729 */ /* x57728 */ /* x57727 stalin.sc:582:17581 */ /* x57671 stalin.sc:583:17602 */ t83541 = q40; /* x57674 stalin.sc:584:17624 */ /* x57673 stalin.sc:584:17644 */ t83574 = a20872; /* x57672 stalin.sc:584:17625 */ a18998 = t83574; /* x49680 */ /* x49679 */ t83575 = a18998; /* x49678 */ if (!((t83575.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-VERSION[5495]"); structure_ref_error();} /* x57677 stalin.sc:585:17653 */ /* x57676 stalin.sc:585:17672 */ t83576 = a20872; /* x57675 stalin.sc:585:17654 */ a19008 = t83576; /* x49719 */ /* x49718 */ t83577 = a19008; /* x49717 */ if (!((t83577.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-CURSOR[5503]"); structure_ref_error();} /* x57680 stalin.sc:586:17681 */ /* x57679 stalin.sc:586:17702 */ t83578 = a20872; /* x57678 stalin.sc:586:17682 */ a40202 = t83578; /* x293477 */ /* x293476 */ t83579 = a40202; /* x293475 */ if (!((t83579.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35119]"); structure_ref_error();} t83542 = t83579.value.structure_type27698->s3; /* x57683 stalin.sc:587:17711 */ /* x57682 stalin.sc:587:17737 */ t83580 = a20872; /* x57681 stalin.sc:587:17712 */ a40180 = t83580; /* x293389 */ /* x293388 */ t83581 = a40180; /* x293387 */ if (!((t83581.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LINE-POSITION[5519] 35097]"); structure_ref_error();} t83543 = t83581.value.structure_type27698->s4; /* x57686 stalin.sc:588:17746 */ /* x57685 stalin.sc:588:17777 */ t83582 = a20872; /* x57684 stalin.sc:588:17747 */ a40164 = t83582; /* x293325 */ /* x293324 */ t83583 = a40164; /* x293323 */ if (!((t83583.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION[5527] 35081]"); structure_ref_error();} t83544 = t83583.value.structure_type27698->s5; /* x57689 stalin.sc:589:17786 */ /* x57688 stalin.sc:589:17829 */ t83584 = a20872; /* x57687 stalin.sc:589:17787 */ a19048 = t83584; /* x49875 */ /* x49874 */ t83585 = a19048; /* x49873 */ if (!((t83585.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-CHARACTER-POSITION-WITHIN-LINE[5535]"); structure_ref_error();} t83545 = t83585.value.structure_type27698->s6; /* x57690 stalin.sc:590:17838 */ t83546 = a2032; /* x57691 stalin.sc:590:17843 */ /* x57693 stalin.sc:590:17846 */ /* x57692 stalin.sc:590:17847 */ /* x277183 stalin.sc:323:8604 */ t83547 = q35; /* x57695 stalin.sc:590:17860 */ /* x57694 stalin.sc:590:17861 */ /* x277185 stalin.sc:323:8604 */ t83548 = q35; /* x57697 stalin.sc:590:17874 */ /* x57696 stalin.sc:590:17875 */ /* x277187 stalin.sc:323:8604 */ t83549 = q35; /* x57699 stalin.sc:590:17888 */ /* x57698 stalin.sc:590:17889 */ /* x277565 stalin.sc:321:8572 */ t83550 = q34; /* x57700 stalin.sc:591:17901 */ t83551 = a20873; /* x57701 stalin.sc:591:17920 */ t83552 = a20874; /* x57702 stalin.sc:591:17931 */ t83553 = a20875; /* x57704 stalin.sc:591:17942 */ /* x57703 stalin.sc:591:17943 */ /* x277567 stalin.sc:321:8572 */ t83554 = q34; /* x57706 stalin.sc:591:17951 */ /* x57705 stalin.sc:591:17952 */ /* x277569 stalin.sc:321:8572 */ t83555 = q34; /* x57708 stalin.sc:592:17964 */ /* x57707 stalin.sc:592:17965 */ /* x277571 stalin.sc:321:8572 */ t83556 = q34; /* x57710 stalin.sc:592:17973 */ /* x57709 stalin.sc:592:17974 */ /* x277573 stalin.sc:321:8572 */ t83557 = q34; /* x57712 stalin.sc:592:17982 */ /* x57711 stalin.sc:592:17983 */ /* x277575 stalin.sc:321:8572 */ t83558 = q34; /* x57714 stalin.sc:592:17991 */ /* x57713 stalin.sc:592:17992 */ /* x277577 stalin.sc:321:8572 */ t83559 = q34; /* x57716 stalin.sc:592:18000 */ /* x57715 stalin.sc:592:18001 */ /* x277579 stalin.sc:321:8572 */ t83560 = q34; /* x57717 stalin.sc:593:18013 */ t83561 = a20872; /* x57719 stalin.sc:593:18017 */ /* x57718 stalin.sc:593:18018 */ /* x277189 stalin.sc:323:8604 */ t83562 = q35; /* x57720 stalin.sc:593:18031 */ /* x57721 stalin.sc:593:18035 */ /* x57722 stalin.sc:593:18038 */ /* x57723 stalin.sc:593:18041 */ /* x57724 stalin.sc:593:18045 */ /* x57725 stalin.sc:593:18049 */ /* x57726 stalin.sc:593:18053 */ t83563 = 0; /* x57670 stalin.sc:582:17582 */ t83564.tag = EXTERNAL_SYMBOL_TYPE; t83564.value.external_symbol_type = t83550; /* MOVE: dispatching squished to general */ if (t83552==NULL_TYPE) t83565.tag = (unsigned)t83552; else {if ((t83552&3)==1) {t83565.tag = STRUCTURE_TYPE24753; t83565.value.structure_type24753 = (struct structure_type24753 *)(t83552-1);} else {t83565.tag = STRUCTURE_TYPE27692; t83565.value.structure_type27692 = (struct structure_type27692 *)t83552;}} /* MOVE: branching squeezed to general */ if (t83553>=((struct structure_type27698 *)VALUE_OFFSET)) {t83566.tag = STRUCTURE_TYPE27698; t83566.value.structure_type27698 = t83553;} else t83566.tag = (unsigned)t83553; t83567.tag = EXTERNAL_SYMBOL_TYPE; t83567.value.external_symbol_type = t83554; t83568.tag = EXTERNAL_SYMBOL_TYPE; t83568.value.external_symbol_type = t83555; t83569.tag = EXTERNAL_SYMBOL_TYPE; t83569.value.external_symbol_type = t83556; t83570.tag = EXTERNAL_SYMBOL_TYPE; t83570.value.external_symbol_type = t83557; t83571.tag = EXTERNAL_SYMBOL_TYPE; t83571.value.external_symbol_type = t83558; t83572.tag = EXTERNAL_SYMBOL_TYPE; t83572.value.external_symbol_type = t83559; t83573.tag = EXTERNAL_SYMBOL_TYPE; t83573.value.external_symbol_type = t83560; t83497 = f5485(t83541, t83542, t83543, t83544, t83545, t83546, t83547, t83548, t83549, t83564, t83551, t83565, t83566, t83567, t83568, t83569, t83570, t83571, t83572, t83573, t83561, t83562, t83563); goto l16109; l16108: /* x57779 */ /* x57778 */ /* x57777 stalin.sc:595:18068 */ /* x57731 stalin.sc:596:18089 */ t83508 = q40; /* x57733 stalin.sc:596:18107 */ /* x57732 stalin.sc:596:18108 */ /* x48952 stalin.sc:46:1719 */ /* x57735 stalin.sc:596:18120 */ /* x57734 stalin.sc:596:18121 */ /* x48949 stalin.sc:44:1693 */ /* x57736 stalin.sc:596:18132 */ /* x57737 stalin.sc:596:18135 */ /* x57738 stalin.sc:596:18138 */ /* x57739 stalin.sc:596:18141 */ /* x57740 stalin.sc:597:18148 */ t83509 = a2032; /* x57741 stalin.sc:597:18153 */ /* x57743 stalin.sc:597:18156 */ /* x57742 stalin.sc:597:18157 */ /* x277191 stalin.sc:323:8604 */ t83510 = q35; /* x57745 stalin.sc:597:18170 */ /* x57744 stalin.sc:597:18171 */ /* x277193 stalin.sc:323:8604 */ t83511 = q35; /* x57747 stalin.sc:597:18184 */ /* x57746 stalin.sc:597:18185 */ /* x277195 stalin.sc:323:8604 */ t83512 = q35; /* x57749 stalin.sc:597:18198 */ /* x57748 stalin.sc:597:18199 */ /* x277581 stalin.sc:321:8572 */ t83513 = q34; /* x57750 stalin.sc:598:18211 */ t83514 = a20873; /* x57751 stalin.sc:598:18230 */ t83515 = a20874; /* x57752 stalin.sc:598:18241 */ t83516 = a20875; /* x57754 stalin.sc:598:18252 */ /* x57753 stalin.sc:598:18253 */ /* x277583 stalin.sc:321:8572 */ t83517 = q34; /* x57756 stalin.sc:598:18261 */ /* x57755 stalin.sc:598:18262 */ /* x277585 stalin.sc:321:8572 */ t83518 = q34; /* x57758 stalin.sc:599:18274 */ /* x57757 stalin.sc:599:18275 */ /* x277587 stalin.sc:321:8572 */ t83519 = q34; /* x57760 stalin.sc:599:18283 */ /* x57759 stalin.sc:599:18284 */ /* x277589 stalin.sc:321:8572 */ t83520 = q34; /* x57762 stalin.sc:599:18292 */ /* x57761 stalin.sc:599:18293 */ /* x277591 stalin.sc:321:8572 */ t83521 = q34; /* x57764 stalin.sc:599:18301 */ /* x57763 stalin.sc:599:18302 */ /* x277593 stalin.sc:321:8572 */ t83522 = q34; /* x57766 stalin.sc:599:18310 */ /* x57765 stalin.sc:599:18311 */ /* x277595 stalin.sc:321:8572 */ t83523 = q34; /* x57767 stalin.sc:600:18323 */ /* x57769 stalin.sc:600:18326 */ /* x57768 stalin.sc:600:18327 */ /* x277197 stalin.sc:323:8604 */ t83524 = q35; /* x57770 stalin.sc:600:18340 */ /* x57771 stalin.sc:600:18344 */ /* x57772 stalin.sc:600:18347 */ /* x57773 stalin.sc:600:18350 */ /* x57774 stalin.sc:600:18354 */ /* x57775 stalin.sc:600:18358 */ /* x57776 stalin.sc:600:18362 */ t83525 = 0; /* x57730 stalin.sc:595:18069 */ t83526.tag = FALSE_TYPE; t83527.tag = FALSE_TYPE; t83528.tag = FALSE_TYPE; t83529.tag = FALSE_TYPE; t83530.tag = EXTERNAL_SYMBOL_TYPE; t83530.value.external_symbol_type = t83513; /* MOVE: dispatching squished to general */ if (t83515==NULL_TYPE) t83531.tag = (unsigned)t83515; else {if ((t83515&3)==1) {t83531.tag = STRUCTURE_TYPE24753; t83531.value.structure_type24753 = (struct structure_type24753 *)(t83515-1);} else {t83531.tag = STRUCTURE_TYPE27692; t83531.value.structure_type27692 = (struct structure_type27692 *)t83515;}} /* MOVE: branching squeezed to general */ if (t83516>=((struct structure_type27698 *)VALUE_OFFSET)) {t83532.tag = STRUCTURE_TYPE27698; t83532.value.structure_type27698 = t83516;} else t83532.tag = (unsigned)t83516; t83533.tag = EXTERNAL_SYMBOL_TYPE; t83533.value.external_symbol_type = t83517; t83534.tag = EXTERNAL_SYMBOL_TYPE; t83534.value.external_symbol_type = t83518; t83535.tag = EXTERNAL_SYMBOL_TYPE; t83535.value.external_symbol_type = t83519; t83536.tag = EXTERNAL_SYMBOL_TYPE; t83536.value.external_symbol_type = t83520; t83537.tag = EXTERNAL_SYMBOL_TYPE; t83537.value.external_symbol_type = t83521; t83538.tag = EXTERNAL_SYMBOL_TYPE; t83538.value.external_symbol_type = t83522; t83539.tag = EXTERNAL_SYMBOL_TYPE; t83539.value.external_symbol_type = t83523; t83540.tag = FALSE_TYPE; t83497 = f5485(t83508, t83526, t83527, t83528, t83529, t83509, t83510, t83511, t83512, t83530, t83514, t83531, t83532, t83533, t83534, t83535, t83536, t83537, t83538, t83539, t83540, t83524, t83525); l16109: l16106: /* x57603 */ a20876 = t83497; /* x57602 */ /* x57591 stalin.sc:601:18371 */ /* x57589 stalin.sc:601:18400 */ t83498 = a20873; /* x57590 stalin.sc:601:18419 */ t83499 = a20876; /* x57588 stalin.sc:601:18372 */ f6640(t83498, t83499); /* x57596 stalin.sc:602:18424 */ /* x57595 stalin.sc:602:18435 */ /* x57593 stalin.sc:602:18438 */ t83500 = a2032; /* x57594 stalin.sc:602:18443 */ t83501 = 1; /* x270759 stalin.sc:602:18436 */ if (!((t83500&1)==1)) {backtrace("stalin.sc", 602, 18435); plus_error();} a2032 = (((unsigned)(((int)(((int)t83500)>>1))+t83501))<<1)+1; /* x57601 stalin.sc:603:18449 */ /* x57600 stalin.sc:603:18460 */ /* x57598 stalin.sc:603:18466 */ t83502 = a20876; /* x57599 stalin.sc:603:18468 */ t83503 = a2031; /* x270758 stalin.sc:603:18461 */ a2031.tag = STRUCTURE_TYPE24753; a2031.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a2031.value.structure_type24753)==NULL) {backtrace("stalin.sc", 603, 18460); out_of_memory_error();} a2031.value.structure_type24753->s0.tag = STRUCTURE_TYPE27698; a2031.value.structure_type24753->s0.value.structure_type27698 = t83502; a2031.value.structure_type24753->s1 = *((struct w49 *)(&t83503)); /* x57587 */ /* x57586 stalin.sc:604:18477 */ return a20876;} /* CREATE-LAMBDA-EXPRESSION[6896] */ struct structure_type27698 *f6896(struct w49 a20864, struct w9140 a20865, struct w9296 a20866, struct w49 a20867) {struct structure_type27698 *a20868; /* X */ struct w49 a40149; /* S */ struct w49 a40165; /* S */ struct w49 a40181; /* S */ struct w49 a40203; /* S */ struct w49 a40214; /* S */ struct w49 a40222; /* S */ struct w49 a40431; /* OBJ */ struct w49 a40467; /* S */ struct w49 a40477; /* S */ struct w49 a40488; /* S */ struct w49 a40499; /* S */ struct w49 a40511; /* S */ struct w49 a40520; /* S */ struct w49 a40529; /* OBJ */ struct structure_type27698 *t83634; struct w9140 t83635; struct structure_type27698 *t83636; unsigned t83637; int t83638; struct structure_type27698 *t83639; struct w21193 t83640; struct w49 t83641; struct w49 t83642; struct w49 t83643; struct w49 t83644; char *t83645; unsigned t83646; char *t83647; char *t83648; char *t83649; char *t83650; struct w9140 t83651; struct w9296 t83652; struct w49 t83653; char *t83654; char *t83655; char *t83656; char *t83657; char *t83658; char *t83659; char *t83660; char *t83661; int t83662; struct w49 t83663; struct w7121 t83664; struct w7121 t83665; struct w7121 t83666; struct w49 t83667; struct w49 t83668; struct w49 t83669; struct w49 t83670; struct w49 t83671; struct w49 t83672; struct w49 t83673; struct w11873 t83674; struct w49 t83675; char *t83676; struct w49 t83677; struct w7121 t83678; struct w7121 t83679; struct w7121 t83680; unsigned t83681; char *t83682; char *t83683; char *t83684; char *t83685; struct w9140 t83686; struct w9296 t83687; struct w49 t83688; char *t83689; char *t83690; char *t83691; char *t83692; char *t83693; char *t83694; char *t83695; struct w49 t83696; char *t83697; int t83698; struct w49 t83699; struct w49 t83700; struct w49 t83701; struct w49 t83702; struct w49 t83703; struct w49 t83704; struct w49 t83705; struct w11873 t83706; struct w49 t83707; struct w49 t83708; struct w49 t83709; struct w49 t83710; struct w49 t83711; struct w49 t83712; struct w49 t83713; struct w49 t83714; struct w49 t83715; struct w49 t83716; struct w49 t83717; struct w49 t83718; char *t83719; struct w49 t83720; struct w6194 t83721; struct w6194 t83722; struct w6194 t83723; unsigned t83724; char *t83725; char *t83726; char *t83727; char *t83728; struct w9140 t83729; struct w9296 t83730; struct w49 t83731; char *t83732; char *t83733; char *t83734; char *t83735; char *t83736; char *t83737; char *t83738; char *t83739; int t83740; struct w7121 t83741; struct w7121 t83742; struct w7121 t83743; struct w49 t83744; struct w49 t83745; struct w49 t83746; struct w49 t83747; struct w49 t83748; struct w49 t83749; struct w49 t83750; struct w11873 t83751; struct w49 t83752; struct w49 t83753; struct w49 t83754; struct w49 t83755; struct w49 t83756; struct w49 t83757; struct w49 t83758; struct w49 t83759; struct w49 t83760; struct w49 t83761; struct w49 t83762; struct w49 t83763; struct w49 t83764; /* x57583 stalin.sc:528:15517 */ /* x57582 stalin.sc:528:15526 */ /* x57407 stalin.sc:528:15533 */ /* x57406 stalin.sc:528:15548 */ t83641 = a20864; /* x57405 stalin.sc:528:15534 */ a40529 = t83641; /* x294785 */ /* x294784 */ t83642 = a40529; /* x294783 */ if (!((t83642.tag)==STRUCTURE_TYPE27510)) goto l16111; /* x57467 */ /* x57466 */ /* x57465 stalin.sc:529:15556 */ /* x57409 stalin.sc:530:15577 */ t83719 = q39; /* x57412 stalin.sc:531:15589 */ /* x57411 stalin.sc:531:15611 */ t83753 = a20864; /* x57410 stalin.sc:531:15590 */ a40520 = t83753; /* x294749 */ /* x294748 */ t83754 = a40520; /* x294747 */ if (!((t83754.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-VERSION[5387] 35437]"); structure_ref_error();} /* x57415 stalin.sc:532:15620 */ /* x57414 stalin.sc:532:15641 */ t83755 = a20864; /* x57413 stalin.sc:532:15621 */ a40511 = t83755; /* x294713 */ /* x294712 */ t83756 = a40511; /* x294711 */ if (!((t83756.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CURSOR[5395] 35428]"); structure_ref_error();} /* x57418 stalin.sc:533:15650 */ /* x57417 stalin.sc:533:15673 */ t83757 = a20864; /* x57416 stalin.sc:533:15651 */ a40499 = t83757; /* x294665 */ /* x294664 */ t83758 = a40499; /* x294663 */ if (!((t83758.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-PATHNAME[5403] 35416]"); structure_ref_error();} t83720 = t83758.value.structure_type27510->s2; /* x57421 stalin.sc:534:15682 */ /* x57420 stalin.sc:534:15710 */ t83759 = a20864; /* x57419 stalin.sc:534:15683 */ a40488 = t83759; /* x294621 */ /* x294620 */ t83760 = a40488; /* x294619 */ if (!((t83760.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-LINE-POSITION[5411] 35405]"); structure_ref_error();} t83721 = t83760.value.structure_type27510->s3; /* x57424 stalin.sc:535:15719 */ /* x57423 stalin.sc:535:15752 */ t83761 = a20864; /* x57422 stalin.sc:535:15720 */ a40477 = t83761; /* x294577 */ /* x294576 */ t83762 = a40477; /* x294575 */ if (!((t83762.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CHARACTER-POSITION[5419] 35394]"); structure_ref_error();} t83722 = t83762.value.structure_type27510->s4; /* x57427 stalin.sc:536:15761 */ /* x57426 stalin.sc:536:15806 */ t83763 = a20864; /* x57425 stalin.sc:536:15762 */ a40467 = t83763; /* x294537 */ /* x294536 */ t83764 = a40467; /* x294535 */ if (!((t83764.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CHARACTER-POSITION-WITHIN-LINE[5427] 35384]"); structure_ref_error();} t83723 = t83764.value.structure_type27510->s5; /* x57428 stalin.sc:537:15815 */ t83724 = a2032; /* x57429 stalin.sc:537:15820 */ /* x57431 stalin.sc:537:15823 */ /* x57430 stalin.sc:537:15824 */ /* x277211 stalin.sc:323:8604 */ t83725 = q35; /* x57433 stalin.sc:537:15837 */ /* x57432 stalin.sc:537:15838 */ /* x277213 stalin.sc:323:8604 */ t83726 = q35; /* x57435 stalin.sc:537:15851 */ /* x57434 stalin.sc:537:15852 */ /* x277215 stalin.sc:323:8604 */ t83727 = q35; /* x57437 stalin.sc:537:15865 */ /* x57436 stalin.sc:537:15866 */ /* x277597 stalin.sc:321:8572 */ t83728 = q34; /* x57438 stalin.sc:538:15878 */ t83729 = a20865; /* x57439 stalin.sc:538:15897 */ t83730 = a20866; /* x57440 stalin.sc:538:15908 */ t83731 = a20867; /* x57442 stalin.sc:538:15919 */ /* x57441 stalin.sc:538:15920 */ /* x277599 stalin.sc:321:8572 */ t83732 = q34; /* x57444 stalin.sc:538:15928 */ /* x57443 stalin.sc:538:15929 */ /* x277601 stalin.sc:321:8572 */ t83733 = q34; /* x57446 stalin.sc:539:15941 */ /* x57445 stalin.sc:539:15942 */ /* x277603 stalin.sc:321:8572 */ t83734 = q34; /* x57448 stalin.sc:539:15950 */ /* x57447 stalin.sc:539:15951 */ /* x277605 stalin.sc:321:8572 */ t83735 = q34; /* x57450 stalin.sc:539:15959 */ /* x57449 stalin.sc:539:15960 */ /* x277607 stalin.sc:321:8572 */ t83736 = q34; /* x57452 stalin.sc:539:15968 */ /* x57451 stalin.sc:539:15969 */ /* x277609 stalin.sc:321:8572 */ t83737 = q34; /* x57454 stalin.sc:539:15977 */ /* x57453 stalin.sc:539:15978 */ /* x277611 stalin.sc:321:8572 */ t83738 = q34; /* x57455 stalin.sc:540:15990 */ /* x57457 stalin.sc:540:15993 */ /* x57456 stalin.sc:540:15994 */ /* x277217 stalin.sc:323:8604 */ t83739 = q35; /* x57458 stalin.sc:540:16007 */ /* x57459 stalin.sc:540:16011 */ /* x57460 stalin.sc:540:16014 */ /* x57461 stalin.sc:540:16017 */ /* x57462 stalin.sc:540:16021 */ /* x57463 stalin.sc:540:16025 */ /* x57464 stalin.sc:540:16029 */ t83740 = 0; /* x57408 stalin.sc:529:15557 */ t83741 = *((struct w7121 *)(&t83721)); t83742 = *((struct w7121 *)(&t83722)); t83743 = *((struct w7121 *)(&t83723)); t83744.tag = EXTERNAL_SYMBOL_TYPE; t83744.value.external_symbol_type = t83728; t83745.tag = EXTERNAL_SYMBOL_TYPE; t83745.value.external_symbol_type = t83732; t83746.tag = EXTERNAL_SYMBOL_TYPE; t83746.value.external_symbol_type = t83733; t83747.tag = EXTERNAL_SYMBOL_TYPE; t83747.value.external_symbol_type = t83734; t83748.tag = EXTERNAL_SYMBOL_TYPE; t83748.value.external_symbol_type = t83735; t83749.tag = EXTERNAL_SYMBOL_TYPE; t83749.value.external_symbol_type = t83736; t83750.tag = EXTERNAL_SYMBOL_TYPE; t83750.value.external_symbol_type = t83737; t83751.tag = EXTERNAL_SYMBOL_TYPE; t83751.value.external_symbol_type = t83738; t83752.tag = FALSE_TYPE; t83634 = f5485(t83719, t83720, t83741, t83742, t83743, t83724, t83725, t83726, t83727, t83744, t83729, t83730, t83731, t83745, t83746, t83747, t83748, t83749, t83750, t83751, t83752, t83739, t83740); goto l16112; l16111: /* x57581 */ /* x57470 stalin.sc:541:16036 */ /* x57469 stalin.sc:541:16049 */ t83643 = a20864; /* x57468 stalin.sc:541:16037 */ a40431 = t83643; /* x294393 */ /* x294392 */ t83644 = a40431; /* x294391 */ if (!((t83644.tag)==STRUCTURE_TYPE27698)) goto l16114; /* x57530 */ /* x57529 */ /* x57528 stalin.sc:542:16057 */ /* x57472 stalin.sc:543:16078 */ t83676 = q39; /* x57475 stalin.sc:544:16090 */ /* x57474 stalin.sc:544:16110 */ t83707 = a20864; /* x57473 stalin.sc:544:16091 */ a40222 = t83707; /* x293557 */ /* x293556 */ t83708 = a40222; /* x293555 */ if (!((t83708.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VERSION[5495] 35139]"); structure_ref_error();} /* x57478 stalin.sc:545:16119 */ /* x57477 stalin.sc:545:16138 */ t83709 = a20864; /* x57476 stalin.sc:545:16120 */ a40214 = t83709; /* x293525 */ /* x293524 */ t83710 = a40214; /* x293523 */ if (!((t83710.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CURSOR[5503] 35131]"); structure_ref_error();} /* x57481 stalin.sc:546:16147 */ /* x57480 stalin.sc:546:16168 */ t83711 = a20864; /* x57479 stalin.sc:546:16148 */ a40203 = t83711; /* x293481 */ /* x293480 */ t83712 = a40203; /* x293479 */ if (!((t83712.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35120]"); structure_ref_error();} t83677 = t83712.value.structure_type27698->s3; /* x57484 stalin.sc:547:16177 */ /* x57483 stalin.sc:547:16203 */ t83713 = a20864; /* x57482 stalin.sc:547:16178 */ a40181 = t83713; /* x293393 */ /* x293392 */ t83714 = a40181; /* x293391 */ if (!((t83714.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LINE-POSITION[5519] 35098]"); structure_ref_error();} t83678 = t83714.value.structure_type27698->s4; /* x57487 stalin.sc:548:16212 */ /* x57486 stalin.sc:548:16243 */ t83715 = a20864; /* x57485 stalin.sc:548:16213 */ a40165 = t83715; /* x293329 */ /* x293328 */ t83716 = a40165; /* x293327 */ if (!((t83716.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION[5527] 35082]"); structure_ref_error();} t83679 = t83716.value.structure_type27698->s5; /* x57490 stalin.sc:549:16252 */ /* x57489 stalin.sc:549:16295 */ t83717 = a20864; /* x57488 stalin.sc:549:16253 */ a40149 = t83717; /* x293265 */ /* x293264 */ t83718 = a40149; /* x293263 */ if (!((t83718.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION-WITHIN-LINE[5535] 35066]"); structure_ref_error();} t83680 = t83718.value.structure_type27698->s6; /* x57491 stalin.sc:550:16304 */ t83681 = a2032; /* x57492 stalin.sc:550:16309 */ /* x57494 stalin.sc:550:16312 */ /* x57493 stalin.sc:550:16313 */ /* x277219 stalin.sc:323:8604 */ t83682 = q35; /* x57496 stalin.sc:550:16326 */ /* x57495 stalin.sc:550:16327 */ /* x277221 stalin.sc:323:8604 */ t83683 = q35; /* x57498 stalin.sc:550:16340 */ /* x57497 stalin.sc:550:16341 */ /* x277223 stalin.sc:323:8604 */ t83684 = q35; /* x57500 stalin.sc:550:16354 */ /* x57499 stalin.sc:550:16355 */ /* x277613 stalin.sc:321:8572 */ t83685 = q34; /* x57501 stalin.sc:551:16367 */ t83686 = a20865; /* x57502 stalin.sc:551:16386 */ t83687 = a20866; /* x57503 stalin.sc:551:16397 */ t83688 = a20867; /* x57505 stalin.sc:551:16408 */ /* x57504 stalin.sc:551:16409 */ /* x277615 stalin.sc:321:8572 */ t83689 = q34; /* x57507 stalin.sc:551:16417 */ /* x57506 stalin.sc:551:16418 */ /* x277617 stalin.sc:321:8572 */ t83690 = q34; /* x57509 stalin.sc:552:16430 */ /* x57508 stalin.sc:552:16431 */ /* x277619 stalin.sc:321:8572 */ t83691 = q34; /* x57511 stalin.sc:552:16439 */ /* x57510 stalin.sc:552:16440 */ /* x277621 stalin.sc:321:8572 */ t83692 = q34; /* x57513 stalin.sc:552:16448 */ /* x57512 stalin.sc:552:16449 */ /* x277623 stalin.sc:321:8572 */ t83693 = q34; /* x57515 stalin.sc:552:16457 */ /* x57514 stalin.sc:552:16458 */ /* x277625 stalin.sc:321:8572 */ t83694 = q34; /* x57517 stalin.sc:552:16466 */ /* x57516 stalin.sc:552:16467 */ /* x277627 stalin.sc:321:8572 */ t83695 = q34; /* x57518 stalin.sc:553:16479 */ t83696 = a20864; /* x57520 stalin.sc:553:16483 */ /* x57519 stalin.sc:553:16484 */ /* x277225 stalin.sc:323:8604 */ t83697 = q35; /* x57521 stalin.sc:553:16497 */ /* x57522 stalin.sc:553:16501 */ /* x57523 stalin.sc:553:16504 */ /* x57524 stalin.sc:553:16507 */ /* x57525 stalin.sc:553:16511 */ /* x57526 stalin.sc:553:16515 */ /* x57527 stalin.sc:553:16519 */ t83698 = 0; /* x57471 stalin.sc:542:16058 */ t83699.tag = EXTERNAL_SYMBOL_TYPE; t83699.value.external_symbol_type = t83685; t83700.tag = EXTERNAL_SYMBOL_TYPE; t83700.value.external_symbol_type = t83689; t83701.tag = EXTERNAL_SYMBOL_TYPE; t83701.value.external_symbol_type = t83690; t83702.tag = EXTERNAL_SYMBOL_TYPE; t83702.value.external_symbol_type = t83691; t83703.tag = EXTERNAL_SYMBOL_TYPE; t83703.value.external_symbol_type = t83692; t83704.tag = EXTERNAL_SYMBOL_TYPE; t83704.value.external_symbol_type = t83693; t83705.tag = EXTERNAL_SYMBOL_TYPE; t83705.value.external_symbol_type = t83694; t83706.tag = EXTERNAL_SYMBOL_TYPE; t83706.value.external_symbol_type = t83695; t83634 = f5485(t83676, t83677, t83678, t83679, t83680, t83681, t83682, t83683, t83684, t83699, t83686, t83687, t83688, t83700, t83701, t83702, t83703, t83704, t83705, t83706, t83696, t83697, t83698); goto l16115; l16114: /* x57580 */ /* x57579 */ /* x57578 stalin.sc:555:16534 */ /* x57532 stalin.sc:556:16555 */ t83645 = q39; /* x57534 stalin.sc:556:16563 */ /* x57533 stalin.sc:556:16564 */ /* x294859 stalin.sc:46:1719 */ /* x57536 stalin.sc:556:16576 */ /* x57535 stalin.sc:556:16577 */ /* x294877 stalin.sc:44:1693 */ /* x57537 stalin.sc:556:16588 */ /* x57538 stalin.sc:556:16591 */ /* x57539 stalin.sc:556:16594 */ /* x57540 stalin.sc:556:16597 */ /* x57541 stalin.sc:557:16604 */ t83646 = a2032; /* x57542 stalin.sc:557:16609 */ /* x57544 stalin.sc:557:16612 */ /* x57543 stalin.sc:557:16613 */ /* x277227 stalin.sc:323:8604 */ t83647 = q35; /* x57546 stalin.sc:557:16626 */ /* x57545 stalin.sc:557:16627 */ /* x277229 stalin.sc:323:8604 */ t83648 = q35; /* x57548 stalin.sc:557:16640 */ /* x57547 stalin.sc:557:16641 */ /* x277231 stalin.sc:323:8604 */ t83649 = q35; /* x57550 stalin.sc:557:16654 */ /* x57549 stalin.sc:557:16655 */ /* x277629 stalin.sc:321:8572 */ t83650 = q34; /* x57551 stalin.sc:558:16667 */ t83651 = a20865; /* x57552 stalin.sc:558:16686 */ t83652 = a20866; /* x57553 stalin.sc:558:16697 */ t83653 = a20867; /* x57555 stalin.sc:558:16708 */ /* x57554 stalin.sc:558:16709 */ /* x277631 stalin.sc:321:8572 */ t83654 = q34; /* x57557 stalin.sc:558:16717 */ /* x57556 stalin.sc:558:16718 */ /* x277633 stalin.sc:321:8572 */ t83655 = q34; /* x57559 stalin.sc:559:16730 */ /* x57558 stalin.sc:559:16731 */ /* x277635 stalin.sc:321:8572 */ t83656 = q34; /* x57561 stalin.sc:559:16739 */ /* x57560 stalin.sc:559:16740 */ /* x277637 stalin.sc:321:8572 */ t83657 = q34; /* x57563 stalin.sc:559:16748 */ /* x57562 stalin.sc:559:16749 */ /* x277639 stalin.sc:321:8572 */ t83658 = q34; /* x57565 stalin.sc:559:16757 */ /* x57564 stalin.sc:559:16758 */ /* x277641 stalin.sc:321:8572 */ t83659 = q34; /* x57567 stalin.sc:559:16766 */ /* x57566 stalin.sc:559:16767 */ /* x277643 stalin.sc:321:8572 */ t83660 = q34; /* x57568 stalin.sc:560:16779 */ /* x57570 stalin.sc:560:16782 */ /* x57569 stalin.sc:560:16783 */ /* x277233 stalin.sc:323:8604 */ t83661 = q35; /* x57571 stalin.sc:560:16796 */ /* x57572 stalin.sc:560:16800 */ /* x57573 stalin.sc:560:16803 */ /* x57574 stalin.sc:560:16806 */ /* x57575 stalin.sc:560:16810 */ /* x57576 stalin.sc:560:16814 */ /* x57577 stalin.sc:560:16818 */ t83662 = 0; /* x57531 stalin.sc:555:16535 */ t83663.tag = FALSE_TYPE; t83664.tag = FALSE_TYPE; t83665.tag = FALSE_TYPE; t83666.tag = FALSE_TYPE; t83667.tag = EXTERNAL_SYMBOL_TYPE; t83667.value.external_symbol_type = t83650; t83668.tag = EXTERNAL_SYMBOL_TYPE; t83668.value.external_symbol_type = t83654; t83669.tag = EXTERNAL_SYMBOL_TYPE; t83669.value.external_symbol_type = t83655; t83670.tag = EXTERNAL_SYMBOL_TYPE; t83670.value.external_symbol_type = t83656; t83671.tag = EXTERNAL_SYMBOL_TYPE; t83671.value.external_symbol_type = t83657; t83672.tag = EXTERNAL_SYMBOL_TYPE; t83672.value.external_symbol_type = t83658; t83673.tag = EXTERNAL_SYMBOL_TYPE; t83673.value.external_symbol_type = t83659; t83674.tag = EXTERNAL_SYMBOL_TYPE; t83674.value.external_symbol_type = t83660; t83675.tag = FALSE_TYPE; t83634 = f5485(t83645, t83663, t83664, t83665, t83666, t83646, t83647, t83648, t83649, t83667, t83651, t83652, t83653, t83668, t83669, t83670, t83671, t83672, t83673, t83674, t83675, t83661, t83662); l16115: l16112: /* x57404 */ a20868 = t83634; /* x57403 */ /* x57392 stalin.sc:561:16827 */ /* x57390 stalin.sc:561:16856 */ t83635 = a20865; /* x57391 stalin.sc:561:16875 */ t83636 = a20868; /* x57389 stalin.sc:561:16828 */ f6640(t83635, t83636); /* x57397 stalin.sc:562:16880 */ /* x57396 stalin.sc:562:16891 */ /* x57394 stalin.sc:562:16894 */ t83637 = a2032; /* x57395 stalin.sc:562:16899 */ t83638 = 1; /* x270761 stalin.sc:562:16892 */ if (!((t83637&1)==1)) {backtrace("stalin.sc", 562, 16891); plus_error();} a2032 = (((unsigned)(((int)(((int)t83637)>>1))+t83638))<<1)+1; /* x57402 stalin.sc:563:16905 */ /* x57401 stalin.sc:563:16916 */ /* x57399 stalin.sc:563:16922 */ t83639 = a20868; /* x57400 stalin.sc:563:16924 */ t83640 = a2031; /* x270760 stalin.sc:563:16917 */ a2031.tag = STRUCTURE_TYPE24753; a2031.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a2031.value.structure_type24753)==NULL) {backtrace("stalin.sc", 563, 16916); out_of_memory_error();} a2031.value.structure_type24753->s0.tag = STRUCTURE_TYPE27698; a2031.value.structure_type24753->s0.value.structure_type27698 = t83639; a2031.value.structure_type24753->s1 = *((struct w49 *)(&t83640)); /* x57388 */ /* x57387 stalin.sc:564:16933 */ return a20868;} /* CREATE-ACCESS-EXPRESSION[6890] */ struct structure_type27698 *f6890(struct w49 a20857, struct w49 a20858) {struct structure_type27698 *a20859; /* X */ struct w49 a40155; /* S */ struct w49 a40171; /* S */ struct w49 a40187; /* S */ struct w49 a40209; /* S */ struct w49 a40220; /* S */ struct w49 a40228; /* S */ struct w49 a40440; /* OBJ */ struct w49 a40473; /* S */ struct w49 a40483; /* S */ struct w49 a40494; /* S */ struct w49 a40505; /* S */ struct w49 a40517; /* S */ struct w49 a40526; /* S */ struct w49 a40535; /* OBJ */ struct structure_type27698 *t83765; unsigned t83766; int t83767; struct structure_type27698 *t83768; struct w21193 t83769; struct structure_type27698 *t83770; struct w21193 t83771; struct structure_type27698 *t83772; struct w21193 t83773; struct w49 t83774; struct w49 t83775; struct w49 t83776; struct w49 t83777; char *t83778; unsigned t83779; char *t83780; char *t83781; char *t83782; char *t83783; char *t83784; char *t83785; char *t83786; struct w49 t83787; char *t83788; char *t83789; char *t83790; char *t83791; char *t83792; char *t83793; char *t83794; int t83795; struct w49 t83796; struct w7121 t83797; struct w7121 t83798; struct w7121 t83799; struct w49 t83800; struct w9140 t83801; struct w9296 t83802; struct w49 t83803; struct w49 t83804; struct w49 t83805; struct w49 t83806; struct w49 t83807; struct w49 t83808; struct w11873 t83809; struct w49 t83810; char *t83811; struct w49 t83812; struct w7121 t83813; struct w7121 t83814; struct w7121 t83815; unsigned t83816; char *t83817; char *t83818; char *t83819; char *t83820; char *t83821; char *t83822; char *t83823; struct w49 t83824; char *t83825; char *t83826; char *t83827; char *t83828; char *t83829; char *t83830; struct w49 t83831; char *t83832; int t83833; struct w49 t83834; struct w9140 t83835; struct w9296 t83836; struct w49 t83837; struct w49 t83838; struct w49 t83839; struct w49 t83840; struct w49 t83841; struct w49 t83842; struct w11873 t83843; struct w49 t83844; struct w49 t83845; struct w49 t83846; struct w49 t83847; struct w49 t83848; struct w49 t83849; struct w49 t83850; struct w49 t83851; struct w49 t83852; struct w49 t83853; struct w49 t83854; struct w49 t83855; char *t83856; struct w49 t83857; struct w6194 t83858; struct w6194 t83859; struct w6194 t83860; unsigned t83861; char *t83862; char *t83863; char *t83864; char *t83865; char *t83866; char *t83867; char *t83868; struct w49 t83869; char *t83870; char *t83871; char *t83872; char *t83873; char *t83874; char *t83875; char *t83876; int t83877; struct w7121 t83878; struct w7121 t83879; struct w7121 t83880; struct w49 t83881; struct w9140 t83882; struct w9296 t83883; struct w49 t83884; struct w49 t83885; struct w49 t83886; struct w49 t83887; struct w49 t83888; struct w49 t83889; struct w11873 t83890; struct w49 t83891; struct w49 t83892; struct w49 t83893; struct w49 t83894; struct w49 t83895; struct w49 t83896; struct w49 t83897; struct w49 t83898; struct w49 t83899; struct w49 t83900; struct w49 t83901; struct w49 t83902; struct w49 t83903; /* x57384 stalin.sc:487:14024 */ /* x57383 stalin.sc:487:14033 */ /* x57202 stalin.sc:487:14040 */ /* x57201 stalin.sc:487:14055 */ t83774 = a20857; /* x57200 stalin.sc:487:14041 */ a40535 = t83774; /* x294809 */ /* x294808 */ t83775 = a40535; /* x294807 */ if (!((t83775.tag)==STRUCTURE_TYPE27510)) goto l16117; /* x57264 */ /* x57263 */ /* x57262 stalin.sc:488:14063 */ /* x57204 stalin.sc:489:14084 */ t83856 = q38; /* x57207 stalin.sc:490:14096 */ /* x57206 stalin.sc:490:14118 */ t83892 = a20857; /* x57205 stalin.sc:490:14097 */ a40526 = t83892; /* x294773 */ /* x294772 */ t83893 = a40526; /* x294771 */ if (!((t83893.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-VERSION[5387] 35443]"); structure_ref_error();} /* x57210 stalin.sc:491:14127 */ /* x57209 stalin.sc:491:14148 */ t83894 = a20857; /* x57208 stalin.sc:491:14128 */ a40517 = t83894; /* x294737 */ /* x294736 */ t83895 = a40517; /* x294735 */ if (!((t83895.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CURSOR[5395] 35434]"); structure_ref_error();} /* x57213 stalin.sc:492:14157 */ /* x57212 stalin.sc:492:14180 */ t83896 = a20857; /* x57211 stalin.sc:492:14158 */ a40505 = t83896; /* x294689 */ /* x294688 */ t83897 = a40505; /* x294687 */ if (!((t83897.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-PATHNAME[5403] 35422]"); structure_ref_error();} t83857 = t83897.value.structure_type27510->s2; /* x57216 stalin.sc:493:14189 */ /* x57215 stalin.sc:493:14217 */ t83898 = a20857; /* x57214 stalin.sc:493:14190 */ a40494 = t83898; /* x294645 */ /* x294644 */ t83899 = a40494; /* x294643 */ if (!((t83899.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-LINE-POSITION[5411] 35411]"); structure_ref_error();} t83858 = t83899.value.structure_type27510->s3; /* x57219 stalin.sc:494:14226 */ /* x57218 stalin.sc:494:14259 */ t83900 = a20857; /* x57217 stalin.sc:494:14227 */ a40483 = t83900; /* x294601 */ /* x294600 */ t83901 = a40483; /* x294599 */ if (!((t83901.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CHARACTER-POSITION[5419] 35400]"); structure_ref_error();} t83859 = t83901.value.structure_type27510->s4; /* x57222 stalin.sc:495:14268 */ /* x57221 stalin.sc:495:14313 */ t83902 = a20857; /* x57220 stalin.sc:495:14269 */ a40473 = t83902; /* x294561 */ /* x294560 */ t83903 = a40473; /* x294559 */ if (!((t83903.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CHARACTER-POSITION-WITHIN-LINE[5427] 35390]"); structure_ref_error();} t83860 = t83903.value.structure_type27510->s5; /* x57223 stalin.sc:496:14322 */ t83861 = a2032; /* x57224 stalin.sc:496:14327 */ /* x57226 stalin.sc:496:14330 */ /* x57225 stalin.sc:496:14331 */ /* x277375 stalin.sc:323:8604 */ t83862 = q35; /* x57228 stalin.sc:496:14344 */ /* x57227 stalin.sc:496:14345 */ /* x277377 stalin.sc:323:8604 */ t83863 = q35; /* x57230 stalin.sc:496:14358 */ /* x57229 stalin.sc:496:14359 */ /* x277379 stalin.sc:323:8604 */ t83864 = q35; /* x57232 stalin.sc:496:14372 */ /* x57231 stalin.sc:496:14373 */ /* x277903 stalin.sc:321:8572 */ t83865 = q34; /* x57234 stalin.sc:497:14385 */ /* x57233 stalin.sc:497:14386 */ /* x277905 stalin.sc:321:8572 */ t83866 = q34; /* x57236 stalin.sc:497:14394 */ /* x57235 stalin.sc:497:14395 */ /* x277907 stalin.sc:321:8572 */ t83867 = q34; /* x57238 stalin.sc:497:14403 */ /* x57237 stalin.sc:497:14404 */ /* x277909 stalin.sc:321:8572 */ t83868 = q34; /* x57239 stalin.sc:497:14412 */ t83869 = a20858; /* x57241 stalin.sc:497:14421 */ /* x57240 stalin.sc:497:14422 */ /* x277911 stalin.sc:321:8572 */ t83870 = q34; /* x57243 stalin.sc:497:14430 */ /* x57242 stalin.sc:497:14431 */ /* x277913 stalin.sc:321:8572 */ t83871 = q34; /* x57245 stalin.sc:498:14443 */ /* x57244 stalin.sc:498:14444 */ /* x277915 stalin.sc:321:8572 */ t83872 = q34; /* x57247 stalin.sc:498:14452 */ /* x57246 stalin.sc:498:14453 */ /* x277917 stalin.sc:321:8572 */ t83873 = q34; /* x57249 stalin.sc:498:14461 */ /* x57248 stalin.sc:498:14462 */ /* x277919 stalin.sc:321:8572 */ t83874 = q34; /* x57251 stalin.sc:498:14470 */ /* x57250 stalin.sc:498:14471 */ /* x277921 stalin.sc:321:8572 */ t83875 = q34; /* x57252 stalin.sc:498:14479 */ /* x57254 stalin.sc:498:14482 */ /* x57253 stalin.sc:498:14483 */ /* x277381 stalin.sc:323:8604 */ t83876 = q35; /* x57255 stalin.sc:498:14496 */ /* x57256 stalin.sc:499:14504 */ /* x57257 stalin.sc:499:14507 */ /* x57258 stalin.sc:499:14510 */ /* x57259 stalin.sc:499:14514 */ /* x57260 stalin.sc:499:14518 */ /* x57261 stalin.sc:499:14522 */ t83877 = 0; /* x57203 stalin.sc:488:14064 */ t83878 = *((struct w7121 *)(&t83858)); t83879 = *((struct w7121 *)(&t83859)); t83880 = *((struct w7121 *)(&t83860)); t83881.tag = EXTERNAL_SYMBOL_TYPE; t83881.value.external_symbol_type = t83865; t83882.tag = EXTERNAL_SYMBOL_TYPE; t83882.value.external_symbol_type = t83866; t83883.tag = EXTERNAL_SYMBOL_TYPE; t83883.value.external_symbol_type = t83867; t83884.tag = EXTERNAL_SYMBOL_TYPE; t83884.value.external_symbol_type = t83868; t83885.tag = EXTERNAL_SYMBOL_TYPE; t83885.value.external_symbol_type = t83870; t83886.tag = EXTERNAL_SYMBOL_TYPE; t83886.value.external_symbol_type = t83871; t83887.tag = EXTERNAL_SYMBOL_TYPE; t83887.value.external_symbol_type = t83872; t83888.tag = EXTERNAL_SYMBOL_TYPE; t83888.value.external_symbol_type = t83873; t83889.tag = EXTERNAL_SYMBOL_TYPE; t83889.value.external_symbol_type = t83874; t83890.tag = EXTERNAL_SYMBOL_TYPE; t83890.value.external_symbol_type = t83875; t83891.tag = FALSE_TYPE; t83765 = f5485(t83856, t83857, t83878, t83879, t83880, t83861, t83862, t83863, t83864, t83881, t83882, t83883, t83884, t83869, t83885, t83886, t83887, t83888, t83889, t83890, t83891, t83876, t83877); goto l16118; l16117: /* x57382 */ /* x57267 stalin.sc:500:14529 */ /* x57266 stalin.sc:500:14542 */ t83776 = a20857; /* x57265 stalin.sc:500:14530 */ a40440 = t83776; /* x294429 */ /* x294428 */ t83777 = a40440; /* x294427 */ if (!((t83777.tag)==STRUCTURE_TYPE27698)) goto l16120; /* x57329 */ /* x57328 */ /* x57327 stalin.sc:501:14550 */ /* x57269 stalin.sc:502:14571 */ t83811 = q38; /* x57272 stalin.sc:503:14583 */ /* x57271 stalin.sc:503:14603 */ t83844 = a20857; /* x57270 stalin.sc:503:14584 */ a40228 = t83844; /* x293581 */ /* x293580 */ t83845 = a40228; /* x293579 */ if (!((t83845.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VERSION[5495] 35145]"); structure_ref_error();} /* x57275 stalin.sc:504:14612 */ /* x57274 stalin.sc:504:14631 */ t83846 = a20857; /* x57273 stalin.sc:504:14613 */ a40220 = t83846; /* x293549 */ /* x293548 */ t83847 = a40220; /* x293547 */ if (!((t83847.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CURSOR[5503] 35137]"); structure_ref_error();} /* x57278 stalin.sc:505:14640 */ /* x57277 stalin.sc:505:14661 */ t83848 = a20857; /* x57276 stalin.sc:505:14641 */ a40209 = t83848; /* x293505 */ /* x293504 */ t83849 = a40209; /* x293503 */ if (!((t83849.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35126]"); structure_ref_error();} t83812 = t83849.value.structure_type27698->s3; /* x57281 stalin.sc:506:14670 */ /* x57280 stalin.sc:506:14696 */ t83850 = a20857; /* x57279 stalin.sc:506:14671 */ a40187 = t83850; /* x293417 */ /* x293416 */ t83851 = a40187; /* x293415 */ if (!((t83851.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LINE-POSITION[5519] 35104]"); structure_ref_error();} t83813 = t83851.value.structure_type27698->s4; /* x57284 stalin.sc:507:14705 */ /* x57283 stalin.sc:507:14736 */ t83852 = a20857; /* x57282 stalin.sc:507:14706 */ a40171 = t83852; /* x293353 */ /* x293352 */ t83853 = a40171; /* x293351 */ if (!((t83853.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION[5527] 35088]"); structure_ref_error();} t83814 = t83853.value.structure_type27698->s5; /* x57287 stalin.sc:508:14745 */ /* x57286 stalin.sc:508:14788 */ t83854 = a20857; /* x57285 stalin.sc:508:14746 */ a40155 = t83854; /* x293289 */ /* x293288 */ t83855 = a40155; /* x293287 */ if (!((t83855.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION-WITHIN-LINE[5535] 35072]"); structure_ref_error();} t83815 = t83855.value.structure_type27698->s6; /* x57288 stalin.sc:509:14797 */ t83816 = a2032; /* x57289 stalin.sc:509:14802 */ /* x57291 stalin.sc:509:14805 */ /* x57290 stalin.sc:509:14806 */ /* x277383 stalin.sc:323:8604 */ t83817 = q35; /* x57293 stalin.sc:509:14819 */ /* x57292 stalin.sc:509:14820 */ /* x277385 stalin.sc:323:8604 */ t83818 = q35; /* x57295 stalin.sc:509:14833 */ /* x57294 stalin.sc:509:14834 */ /* x277387 stalin.sc:323:8604 */ t83819 = q35; /* x57297 stalin.sc:509:14847 */ /* x57296 stalin.sc:509:14848 */ /* x277923 stalin.sc:321:8572 */ t83820 = q34; /* x57299 stalin.sc:510:14860 */ /* x57298 stalin.sc:510:14861 */ /* x277925 stalin.sc:321:8572 */ t83821 = q34; /* x57301 stalin.sc:510:14869 */ /* x57300 stalin.sc:510:14870 */ /* x277927 stalin.sc:321:8572 */ t83822 = q34; /* x57303 stalin.sc:510:14878 */ /* x57302 stalin.sc:510:14879 */ /* x277929 stalin.sc:321:8572 */ t83823 = q34; /* x57304 stalin.sc:510:14887 */ t83824 = a20858; /* x57306 stalin.sc:510:14896 */ /* x57305 stalin.sc:510:14897 */ /* x277931 stalin.sc:321:8572 */ t83825 = q34; /* x57308 stalin.sc:510:14905 */ /* x57307 stalin.sc:510:14906 */ /* x277933 stalin.sc:321:8572 */ t83826 = q34; /* x57310 stalin.sc:511:14918 */ /* x57309 stalin.sc:511:14919 */ /* x277935 stalin.sc:321:8572 */ t83827 = q34; /* x57312 stalin.sc:511:14927 */ /* x57311 stalin.sc:511:14928 */ /* x277937 stalin.sc:321:8572 */ t83828 = q34; /* x57314 stalin.sc:511:14936 */ /* x57313 stalin.sc:511:14937 */ /* x277939 stalin.sc:321:8572 */ t83829 = q34; /* x57316 stalin.sc:511:14945 */ /* x57315 stalin.sc:511:14946 */ /* x277941 stalin.sc:321:8572 */ t83830 = q34; /* x57317 stalin.sc:511:14954 */ t83831 = a20857; /* x57319 stalin.sc:511:14958 */ /* x57318 stalin.sc:511:14959 */ /* x277389 stalin.sc:323:8604 */ t83832 = q35; /* x57320 stalin.sc:511:14972 */ /* x57321 stalin.sc:512:14980 */ /* x57322 stalin.sc:512:14983 */ /* x57323 stalin.sc:512:14986 */ /* x57324 stalin.sc:512:14990 */ /* x57325 stalin.sc:512:14994 */ /* x57326 stalin.sc:512:14998 */ t83833 = 0; /* x57268 stalin.sc:501:14551 */ t83834.tag = EXTERNAL_SYMBOL_TYPE; t83834.value.external_symbol_type = t83820; t83835.tag = EXTERNAL_SYMBOL_TYPE; t83835.value.external_symbol_type = t83821; t83836.tag = EXTERNAL_SYMBOL_TYPE; t83836.value.external_symbol_type = t83822; t83837.tag = EXTERNAL_SYMBOL_TYPE; t83837.value.external_symbol_type = t83823; t83838.tag = EXTERNAL_SYMBOL_TYPE; t83838.value.external_symbol_type = t83825; t83839.tag = EXTERNAL_SYMBOL_TYPE; t83839.value.external_symbol_type = t83826; t83840.tag = EXTERNAL_SYMBOL_TYPE; t83840.value.external_symbol_type = t83827; t83841.tag = EXTERNAL_SYMBOL_TYPE; t83841.value.external_symbol_type = t83828; t83842.tag = EXTERNAL_SYMBOL_TYPE; t83842.value.external_symbol_type = t83829; t83843.tag = EXTERNAL_SYMBOL_TYPE; t83843.value.external_symbol_type = t83830; t83765 = f5485(t83811, t83812, t83813, t83814, t83815, t83816, t83817, t83818, t83819, t83834, t83835, t83836, t83837, t83824, t83838, t83839, t83840, t83841, t83842, t83843, t83831, t83832, t83833); goto l16121; l16120: /* x57381 */ /* x57380 */ /* x57379 stalin.sc:514:15013 */ /* x57331 stalin.sc:515:15034 */ t83778 = q38; /* x57333 stalin.sc:515:15042 */ /* x57332 stalin.sc:515:15043 */ /* x294871 stalin.sc:46:1719 */ /* x57335 stalin.sc:515:15055 */ /* x57334 stalin.sc:515:15056 */ /* x294889 stalin.sc:44:1693 */ /* x57336 stalin.sc:515:15067 */ /* x57337 stalin.sc:515:15070 */ /* x57338 stalin.sc:515:15073 */ /* x57339 stalin.sc:515:15076 */ /* x57340 stalin.sc:516:15083 */ t83779 = a2032; /* x57341 stalin.sc:516:15088 */ /* x57343 stalin.sc:516:15091 */ /* x57342 stalin.sc:516:15092 */ /* x277391 stalin.sc:323:8604 */ t83780 = q35; /* x57345 stalin.sc:516:15105 */ /* x57344 stalin.sc:516:15106 */ /* x277393 stalin.sc:323:8604 */ t83781 = q35; /* x57347 stalin.sc:516:15119 */ /* x57346 stalin.sc:516:15120 */ /* x277395 stalin.sc:323:8604 */ t83782 = q35; /* x57349 stalin.sc:516:15133 */ /* x57348 stalin.sc:516:15134 */ /* x277943 stalin.sc:321:8572 */ t83783 = q34; /* x57351 stalin.sc:517:15146 */ /* x57350 stalin.sc:517:15147 */ /* x277945 stalin.sc:321:8572 */ t83784 = q34; /* x57353 stalin.sc:517:15155 */ /* x57352 stalin.sc:517:15156 */ /* x277947 stalin.sc:321:8572 */ t83785 = q34; /* x57355 stalin.sc:517:15164 */ /* x57354 stalin.sc:517:15165 */ /* x277949 stalin.sc:321:8572 */ t83786 = q34; /* x57356 stalin.sc:517:15173 */ t83787 = a20858; /* x57358 stalin.sc:517:15182 */ /* x57357 stalin.sc:517:15183 */ /* x277951 stalin.sc:321:8572 */ t83788 = q34; /* x57360 stalin.sc:517:15191 */ /* x57359 stalin.sc:517:15192 */ /* x277953 stalin.sc:321:8572 */ t83789 = q34; /* x57362 stalin.sc:518:15204 */ /* x57361 stalin.sc:518:15205 */ /* x277955 stalin.sc:321:8572 */ t83790 = q34; /* x57364 stalin.sc:518:15213 */ /* x57363 stalin.sc:518:15214 */ /* x277957 stalin.sc:321:8572 */ t83791 = q34; /* x57366 stalin.sc:518:15222 */ /* x57365 stalin.sc:518:15223 */ /* x277959 stalin.sc:321:8572 */ t83792 = q34; /* x57368 stalin.sc:518:15231 */ /* x57367 stalin.sc:518:15232 */ /* x277961 stalin.sc:321:8572 */ t83793 = q34; /* x57369 stalin.sc:518:15240 */ /* x57371 stalin.sc:518:15243 */ /* x57370 stalin.sc:518:15244 */ /* x277397 stalin.sc:323:8604 */ t83794 = q35; /* x57372 stalin.sc:518:15257 */ /* x57373 stalin.sc:519:15265 */ /* x57374 stalin.sc:519:15268 */ /* x57375 stalin.sc:519:15271 */ /* x57376 stalin.sc:519:15275 */ /* x57377 stalin.sc:519:15279 */ /* x57378 stalin.sc:519:15283 */ t83795 = 0; /* x57330 stalin.sc:514:15014 */ t83796.tag = FALSE_TYPE; t83797.tag = FALSE_TYPE; t83798.tag = FALSE_TYPE; t83799.tag = FALSE_TYPE; t83800.tag = EXTERNAL_SYMBOL_TYPE; t83800.value.external_symbol_type = t83783; t83801.tag = EXTERNAL_SYMBOL_TYPE; t83801.value.external_symbol_type = t83784; t83802.tag = EXTERNAL_SYMBOL_TYPE; t83802.value.external_symbol_type = t83785; t83803.tag = EXTERNAL_SYMBOL_TYPE; t83803.value.external_symbol_type = t83786; t83804.tag = EXTERNAL_SYMBOL_TYPE; t83804.value.external_symbol_type = t83788; t83805.tag = EXTERNAL_SYMBOL_TYPE; t83805.value.external_symbol_type = t83789; t83806.tag = EXTERNAL_SYMBOL_TYPE; t83806.value.external_symbol_type = t83790; t83807.tag = EXTERNAL_SYMBOL_TYPE; t83807.value.external_symbol_type = t83791; t83808.tag = EXTERNAL_SYMBOL_TYPE; t83808.value.external_symbol_type = t83792; t83809.tag = EXTERNAL_SYMBOL_TYPE; t83809.value.external_symbol_type = t83793; t83810.tag = FALSE_TYPE; t83765 = f5485(t83778, t83796, t83797, t83798, t83799, t83779, t83780, t83781, t83782, t83800, t83801, t83802, t83803, t83787, t83804, t83805, t83806, t83807, t83808, t83809, t83810, t83794, t83795); l16121: l16118: /* x57199 */ a20859 = t83765; /* x57198 */ /* x57182 stalin.sc:520:15292 */ /* x57181 stalin.sc:520:15303 */ /* x57179 stalin.sc:520:15306 */ t83766 = a2032; /* x57180 stalin.sc:520:15311 */ t83767 = 1; /* x270765 stalin.sc:520:15304 */ if (!((t83766&1)==1)) {backtrace("stalin.sc", 520, 15303); plus_error();} a2032 = (((unsigned)(((int)(((int)t83766)>>1))+t83767))<<1)+1; /* x57187 stalin.sc:521:15317 */ /* x57186 stalin.sc:521:15328 */ /* x57184 stalin.sc:521:15334 */ t83768 = a20859; /* x57185 stalin.sc:521:15336 */ t83769 = a2031; /* x270764 stalin.sc:521:15329 */ a2031.tag = STRUCTURE_TYPE24753; a2031.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a2031.value.structure_type24753)==NULL) {backtrace("stalin.sc", 521, 15328); out_of_memory_error();} a2031.value.structure_type24753->s0.tag = STRUCTURE_TYPE27698; a2031.value.structure_type24753->s0.value.structure_type27698 = t83768; a2031.value.structure_type24753->s1 = *((struct w49 *)(&t83769)); /* x57192 stalin.sc:522:15345 */ /* x57191 stalin.sc:522:15362 */ /* x57189 stalin.sc:522:15368 */ t83770 = a20859; /* x57190 stalin.sc:522:15370 */ t83771 = a2029; /* x270763 stalin.sc:522:15363 */ a2029.tag = STRUCTURE_TYPE24753; a2029.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a2029.value.structure_type24753)==NULL) {backtrace("stalin.sc", 522, 15362); out_of_memory_error();} a2029.value.structure_type24753->s0.tag = STRUCTURE_TYPE27698; a2029.value.structure_type24753->s0.value.structure_type27698 = t83770; a2029.value.structure_type24753->s1 = *((struct w49 *)(&t83771)); /* x57197 stalin.sc:523:15385 */ /* x57196 stalin.sc:523:15404 */ /* x57194 stalin.sc:523:15410 */ t83772 = a20859; /* x57195 stalin.sc:523:15412 */ t83773 = a2027; /* x270762 stalin.sc:523:15405 */ a2027.tag = STRUCTURE_TYPE24753; a2027.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a2027.value.structure_type24753)==NULL) {backtrace("stalin.sc", 523, 15404); out_of_memory_error();} a2027.value.structure_type24753->s0.tag = STRUCTURE_TYPE27698; a2027.value.structure_type24753->s0.value.structure_type27698 = t83772; a2027.value.structure_type24753->s1 = *((struct w49 *)(&t83773)); /* x57177 */ /* x57176 stalin.sc:524:15429 */ return a20859;} /* CREATE-CONVERTED-CALL-EXPRESSION[6884] */ struct structure_type27698 *f6884(struct w49 a20850, struct structure_type27698 *a20851, struct structure_type24753 *a20852) {struct structure_type27698 *a20853; /* X */ struct w49 a40153; /* S */ struct w49 a40169; /* S */ struct w49 a40185; /* S */ struct w49 a40207; /* S */ struct w49 a40218; /* S */ struct w49 a40226; /* S */ struct w49 a40438; /* OBJ */ struct w49 a40471; /* S */ struct w49 a40481; /* S */ struct w49 a40492; /* S */ struct w49 a40503; /* S */ struct w49 a40515; /* S */ struct w49 a40524; /* S */ struct w49 a40533; /* OBJ */ struct structure_type27698 *t83904; unsigned t83905; int t83906; struct structure_type27698 *t83907; struct w21193 t83908; struct structure_type27698 *t83909; struct w21193 t83910; struct w49 t83911; struct w49 t83912; struct w49 t83913; struct w49 t83914; char *t83915; unsigned t83916; char *t83917; char *t83918; char *t83919; char *t83920; char *t83921; char *t83922; char *t83923; char *t83924; char *t83925; char *t83926; char *t83927; char *t83928; struct structure_type27698 *t83929; struct structure_type24753 *t83930; char *t83931; int t83932; struct w49 t83933; struct w7121 t83934; struct w7121 t83935; struct w7121 t83936; struct w49 t83937; struct w9140 t83938; struct w9296 t83939; struct w49 t83940; struct w49 t83941; struct w49 t83942; struct w49 t83943; struct w49 t83944; struct w49 t83945; struct w49 t83946; struct w11873 t83947; struct w49 t83948; char *t83949; struct w49 t83950; struct w7121 t83951; struct w7121 t83952; struct w7121 t83953; unsigned t83954; char *t83955; char *t83956; char *t83957; char *t83958; char *t83959; char *t83960; char *t83961; char *t83962; char *t83963; char *t83964; char *t83965; char *t83966; struct structure_type27698 *t83967; struct structure_type24753 *t83968; struct w49 t83969; char *t83970; int t83971; struct w49 t83972; struct w9140 t83973; struct w9296 t83974; struct w49 t83975; struct w49 t83976; struct w49 t83977; struct w49 t83978; struct w49 t83979; struct w49 t83980; struct w49 t83981; struct w11873 t83982; struct w49 t83983; struct w49 t83984; struct w49 t83985; struct w49 t83986; struct w49 t83987; struct w49 t83988; struct w49 t83989; struct w49 t83990; struct w49 t83991; struct w49 t83992; struct w49 t83993; struct w49 t83994; char *t83995; struct w49 t83996; struct w6194 t83997; struct w6194 t83998; struct w6194 t83999; unsigned t84000; char *t84001; char *t84002; char *t84003; char *t84004; char *t84005; char *t84006; char *t84007; char *t84008; char *t84009; char *t84010; char *t84011; char *t84012; struct structure_type27698 *t84013; struct structure_type24753 *t84014; char *t84015; int t84016; struct w7121 t84017; struct w7121 t84018; struct w7121 t84019; struct w49 t84020; struct w9140 t84021; struct w9296 t84022; struct w49 t84023; struct w49 t84024; struct w49 t84025; struct w49 t84026; struct w49 t84027; struct w49 t84028; struct w49 t84029; struct w11873 t84030; struct w49 t84031; struct w49 t84032; struct w49 t84033; struct w49 t84034; struct w49 t84035; struct w49 t84036; struct w49 t84037; struct w49 t84038; struct w49 t84039; struct w49 t84040; struct w49 t84041; struct w49 t84042; struct w49 t84043; /* x57173 stalin.sc:447:12526 */ /* x57172 stalin.sc:447:12535 */ /* x56994 stalin.sc:448:12546 */ /* x56993 stalin.sc:448:12561 */ t83911 = a20850; /* x56992 stalin.sc:448:12547 */ a40533 = t83911; /* x294801 */ /* x294800 */ t83912 = a40533; /* x294799 */ if (!((t83912.tag)==STRUCTURE_TYPE27510)) goto l16123; /* x57055 */ /* x57054 */ /* x57053 stalin.sc:449:12571 */ /* x56996 stalin.sc:450:12594 */ t83995 = q37; /* x56999 stalin.sc:451:12616 */ /* x56998 stalin.sc:451:12638 */ t84032 = a20850; /* x56997 stalin.sc:451:12617 */ a40524 = t84032; /* x294765 */ /* x294764 */ t84033 = a40524; /* x294763 */ if (!((t84033.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-VERSION[5387] 35441]"); structure_ref_error();} /* x57002 stalin.sc:452:12649 */ /* x57001 stalin.sc:452:12670 */ t84034 = a20850; /* x57000 stalin.sc:452:12650 */ a40515 = t84034; /* x294729 */ /* x294728 */ t84035 = a40515; /* x294727 */ if (!((t84035.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CURSOR[5395] 35432]"); structure_ref_error();} /* x57005 stalin.sc:453:12681 */ /* x57004 stalin.sc:453:12704 */ t84036 = a20850; /* x57003 stalin.sc:453:12682 */ a40503 = t84036; /* x294681 */ /* x294680 */ t84037 = a40503; /* x294679 */ if (!((t84037.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-PATHNAME[5403] 35420]"); structure_ref_error();} t83996 = t84037.value.structure_type27510->s2; /* x57008 stalin.sc:454:12715 */ /* x57007 stalin.sc:454:12743 */ t84038 = a20850; /* x57006 stalin.sc:454:12716 */ a40492 = t84038; /* x294637 */ /* x294636 */ t84039 = a40492; /* x294635 */ if (!((t84039.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-LINE-POSITION[5411] 35409]"); structure_ref_error();} t83997 = t84039.value.structure_type27510->s3; /* x57011 stalin.sc:455:12754 */ /* x57010 stalin.sc:455:12787 */ t84040 = a20850; /* x57009 stalin.sc:455:12755 */ a40481 = t84040; /* x294593 */ /* x294592 */ t84041 = a40481; /* x294591 */ if (!((t84041.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CHARACTER-POSITION[5419] 35398]"); structure_ref_error();} t83998 = t84041.value.structure_type27510->s4; /* x57014 stalin.sc:456:12798 */ /* x57013 stalin.sc:456:12843 */ t84042 = a20850; /* x57012 stalin.sc:456:12799 */ a40471 = t84042; /* x294553 */ /* x294552 */ t84043 = a40471; /* x294551 */ if (!((t84043.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CHARACTER-POSITION-WITHIN-LINE[5427] 35388]"); structure_ref_error();} t83999 = t84043.value.structure_type27510->s5; /* x57015 stalin.sc:457:12854 */ t84000 = a2032; /* x57016 stalin.sc:457:12859 */ /* x57018 stalin.sc:457:12862 */ /* x57017 stalin.sc:457:12863 */ /* x277327 stalin.sc:323:8604 */ t84001 = q35; /* x57020 stalin.sc:457:12876 */ /* x57019 stalin.sc:457:12877 */ /* x277329 stalin.sc:323:8604 */ t84002 = q35; /* x57022 stalin.sc:457:12890 */ /* x57021 stalin.sc:457:12891 */ /* x277331 stalin.sc:323:8604 */ t84003 = q35; /* x57024 stalin.sc:457:12904 */ /* x57023 stalin.sc:457:12905 */ /* x277801 stalin.sc:321:8572 */ t84004 = q34; /* x57026 stalin.sc:458:12919 */ /* x57025 stalin.sc:458:12920 */ /* x277803 stalin.sc:321:8572 */ t84005 = q34; /* x57028 stalin.sc:458:12928 */ /* x57027 stalin.sc:458:12929 */ /* x277805 stalin.sc:321:8572 */ t84006 = q34; /* x57030 stalin.sc:458:12937 */ /* x57029 stalin.sc:458:12938 */ /* x277807 stalin.sc:321:8572 */ t84007 = q34; /* x57032 stalin.sc:458:12946 */ /* x57031 stalin.sc:458:12947 */ /* x277809 stalin.sc:321:8572 */ t84008 = q34; /* x57034 stalin.sc:458:12955 */ /* x57033 stalin.sc:458:12956 */ /* x277811 stalin.sc:321:8572 */ t84009 = q34; /* x57036 stalin.sc:458:12964 */ /* x57035 stalin.sc:458:12965 */ /* x277813 stalin.sc:321:8572 */ t84010 = q34; /* x57038 stalin.sc:458:12973 */ /* x57037 stalin.sc:458:12974 */ /* x277815 stalin.sc:321:8572 */ t84011 = q34; /* x57040 stalin.sc:459:12988 */ /* x57039 stalin.sc:459:12989 */ /* x277817 stalin.sc:321:8572 */ t84012 = q34; /* x57041 stalin.sc:459:12997 */ t84013 = a20851; /* x57042 stalin.sc:459:13004 */ t84014 = a20852; /* x57043 stalin.sc:459:13014 */ /* x57045 stalin.sc:459:13017 */ /* x57044 stalin.sc:459:13018 */ /* x277333 stalin.sc:323:8604 */ t84015 = q35; /* x57046 stalin.sc:459:13031 */ /* x57047 stalin.sc:459:13035 */ /* x57048 stalin.sc:459:13038 */ /* x57049 stalin.sc:459:13041 */ /* x57050 stalin.sc:459:13045 */ /* x57051 stalin.sc:459:13049 */ /* x57052 stalin.sc:460:13059 */ t84016 = 0; /* x56995 stalin.sc:449:12572 */ t84017 = *((struct w7121 *)(&t83997)); t84018 = *((struct w7121 *)(&t83998)); t84019 = *((struct w7121 *)(&t83999)); t84020.tag = EXTERNAL_SYMBOL_TYPE; t84020.value.external_symbol_type = t84004; t84021.tag = EXTERNAL_SYMBOL_TYPE; t84021.value.external_symbol_type = t84005; t84022.tag = EXTERNAL_SYMBOL_TYPE; t84022.value.external_symbol_type = t84006; t84023.tag = EXTERNAL_SYMBOL_TYPE; t84023.value.external_symbol_type = t84007; t84024.tag = EXTERNAL_SYMBOL_TYPE; t84024.value.external_symbol_type = t84008; t84025.tag = EXTERNAL_SYMBOL_TYPE; t84025.value.external_symbol_type = t84009; t84026.tag = EXTERNAL_SYMBOL_TYPE; t84026.value.external_symbol_type = t84010; t84027.tag = EXTERNAL_SYMBOL_TYPE; t84027.value.external_symbol_type = t84011; t84028.tag = EXTERNAL_SYMBOL_TYPE; t84028.value.external_symbol_type = t84012; t84029.tag = STRUCTURE_TYPE27698; t84029.value.structure_type27698 = t84013; /* MOVE: branching squeezed to general */ if (t84014>=((struct structure_type24753 *)VALUE_OFFSET)) {t84030.tag = STRUCTURE_TYPE24753; t84030.value.structure_type24753 = t84014;} else t84030.tag = (unsigned)t84014; t84031.tag = FALSE_TYPE; t83904 = f5485(t83995, t83996, t84017, t84018, t84019, t84000, t84001, t84002, t84003, t84020, t84021, t84022, t84023, t84024, t84025, t84026, t84027, t84028, t84029, t84030, t84031, t84015, t84016); goto l16124; l16123: /* x57171 */ /* x57058 stalin.sc:461:13068 */ /* x57057 stalin.sc:461:13081 */ t83913 = a20850; /* x57056 stalin.sc:461:13069 */ a40438 = t83913; /* x294421 */ /* x294420 */ t83914 = a40438; /* x294419 */ if (!((t83914.tag)==STRUCTURE_TYPE27698)) goto l16126; /* x57119 */ /* x57118 */ /* x57117 stalin.sc:462:13091 */ /* x57060 stalin.sc:463:13114 */ t83949 = q37; /* x57063 stalin.sc:464:13136 */ /* x57062 stalin.sc:464:13156 */ t83983 = a20850; /* x57061 stalin.sc:464:13137 */ a40226 = t83983; /* x293573 */ /* x293572 */ t83984 = a40226; /* x293571 */ if (!((t83984.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VERSION[5495] 35143]"); structure_ref_error();} /* x57066 stalin.sc:465:13167 */ /* x57065 stalin.sc:465:13186 */ t83985 = a20850; /* x57064 stalin.sc:465:13168 */ a40218 = t83985; /* x293541 */ /* x293540 */ t83986 = a40218; /* x293539 */ if (!((t83986.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CURSOR[5503] 35135]"); structure_ref_error();} /* x57069 stalin.sc:466:13197 */ /* x57068 stalin.sc:466:13218 */ t83987 = a20850; /* x57067 stalin.sc:466:13198 */ a40207 = t83987; /* x293497 */ /* x293496 */ t83988 = a40207; /* x293495 */ if (!((t83988.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35124]"); structure_ref_error();} t83950 = t83988.value.structure_type27698->s3; /* x57072 stalin.sc:467:13229 */ /* x57071 stalin.sc:467:13255 */ t83989 = a20850; /* x57070 stalin.sc:467:13230 */ a40185 = t83989; /* x293409 */ /* x293408 */ t83990 = a40185; /* x293407 */ if (!((t83990.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LINE-POSITION[5519] 35102]"); structure_ref_error();} t83951 = t83990.value.structure_type27698->s4; /* x57075 stalin.sc:468:13266 */ /* x57074 stalin.sc:468:13297 */ t83991 = a20850; /* x57073 stalin.sc:468:13267 */ a40169 = t83991; /* x293345 */ /* x293344 */ t83992 = a40169; /* x293343 */ if (!((t83992.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION[5527] 35086]"); structure_ref_error();} t83952 = t83992.value.structure_type27698->s5; /* x57078 stalin.sc:469:13308 */ /* x57077 stalin.sc:469:13351 */ t83993 = a20850; /* x57076 stalin.sc:469:13309 */ a40153 = t83993; /* x293281 */ /* x293280 */ t83994 = a40153; /* x293279 */ if (!((t83994.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION-WITHIN-LINE[5535] 35070]"); structure_ref_error();} t83953 = t83994.value.structure_type27698->s6; /* x57079 stalin.sc:470:13362 */ t83954 = a2032; /* x57080 stalin.sc:470:13367 */ /* x57082 stalin.sc:470:13370 */ /* x57081 stalin.sc:470:13371 */ /* x277335 stalin.sc:323:8604 */ t83955 = q35; /* x57084 stalin.sc:470:13384 */ /* x57083 stalin.sc:470:13385 */ /* x277337 stalin.sc:323:8604 */ t83956 = q35; /* x57086 stalin.sc:470:13398 */ /* x57085 stalin.sc:470:13399 */ /* x277339 stalin.sc:323:8604 */ t83957 = q35; /* x57088 stalin.sc:470:13412 */ /* x57087 stalin.sc:470:13413 */ /* x277819 stalin.sc:321:8572 */ t83958 = q34; /* x57090 stalin.sc:471:13427 */ /* x57089 stalin.sc:471:13428 */ /* x277821 stalin.sc:321:8572 */ t83959 = q34; /* x57092 stalin.sc:471:13436 */ /* x57091 stalin.sc:471:13437 */ /* x277823 stalin.sc:321:8572 */ t83960 = q34; /* x57094 stalin.sc:471:13445 */ /* x57093 stalin.sc:471:13446 */ /* x277825 stalin.sc:321:8572 */ t83961 = q34; /* x57096 stalin.sc:471:13454 */ /* x57095 stalin.sc:471:13455 */ /* x277827 stalin.sc:321:8572 */ t83962 = q34; /* x57098 stalin.sc:471:13463 */ /* x57097 stalin.sc:471:13464 */ /* x277829 stalin.sc:321:8572 */ t83963 = q34; /* x57100 stalin.sc:471:13472 */ /* x57099 stalin.sc:471:13473 */ /* x277831 stalin.sc:321:8572 */ t83964 = q34; /* x57102 stalin.sc:471:13481 */ /* x57101 stalin.sc:471:13482 */ /* x277833 stalin.sc:321:8572 */ t83965 = q34; /* x57104 stalin.sc:472:13496 */ /* x57103 stalin.sc:472:13497 */ /* x277835 stalin.sc:321:8572 */ t83966 = q34; /* x57105 stalin.sc:472:13505 */ t83967 = a20851; /* x57106 stalin.sc:472:13512 */ t83968 = a20852; /* x57107 stalin.sc:472:13522 */ t83969 = a20850; /* x57109 stalin.sc:472:13526 */ /* x57108 stalin.sc:472:13527 */ /* x277341 stalin.sc:323:8604 */ t83970 = q35; /* x57110 stalin.sc:472:13540 */ /* x57111 stalin.sc:472:13544 */ /* x57112 stalin.sc:472:13547 */ /* x57113 stalin.sc:472:13550 */ /* x57114 stalin.sc:472:13554 */ /* x57115 stalin.sc:472:13558 */ /* x57116 stalin.sc:473:13568 */ t83971 = 0; /* x57059 stalin.sc:462:13092 */ t83972.tag = EXTERNAL_SYMBOL_TYPE; t83972.value.external_symbol_type = t83958; t83973.tag = EXTERNAL_SYMBOL_TYPE; t83973.value.external_symbol_type = t83959; t83974.tag = EXTERNAL_SYMBOL_TYPE; t83974.value.external_symbol_type = t83960; t83975.tag = EXTERNAL_SYMBOL_TYPE; t83975.value.external_symbol_type = t83961; t83976.tag = EXTERNAL_SYMBOL_TYPE; t83976.value.external_symbol_type = t83962; t83977.tag = EXTERNAL_SYMBOL_TYPE; t83977.value.external_symbol_type = t83963; t83978.tag = EXTERNAL_SYMBOL_TYPE; t83978.value.external_symbol_type = t83964; t83979.tag = EXTERNAL_SYMBOL_TYPE; t83979.value.external_symbol_type = t83965; t83980.tag = EXTERNAL_SYMBOL_TYPE; t83980.value.external_symbol_type = t83966; t83981.tag = STRUCTURE_TYPE27698; t83981.value.structure_type27698 = t83967; /* MOVE: branching squeezed to general */ if (t83968>=((struct structure_type24753 *)VALUE_OFFSET)) {t83982.tag = STRUCTURE_TYPE24753; t83982.value.structure_type24753 = t83968;} else t83982.tag = (unsigned)t83968; t83904 = f5485(t83949, t83950, t83951, t83952, t83953, t83954, t83955, t83956, t83957, t83972, t83973, t83974, t83975, t83976, t83977, t83978, t83979, t83980, t83981, t83982, t83969, t83970, t83971); goto l16127; l16126: /* x57170 */ /* x57169 */ /* x57168 stalin.sc:475:13587 */ /* x57121 stalin.sc:476:13610 */ t83915 = q37; /* x57123 stalin.sc:476:13626 */ /* x57122 stalin.sc:476:13627 */ /* x294867 stalin.sc:46:1719 */ /* x57125 stalin.sc:476:13639 */ /* x57124 stalin.sc:476:13640 */ /* x294885 stalin.sc:44:1693 */ /* x57126 stalin.sc:476:13651 */ /* x57127 stalin.sc:476:13654 */ /* x57128 stalin.sc:476:13657 */ /* x57129 stalin.sc:476:13660 */ /* x57130 stalin.sc:477:13669 */ t83916 = a2032; /* x57131 stalin.sc:477:13674 */ /* x57133 stalin.sc:477:13677 */ /* x57132 stalin.sc:477:13678 */ /* x277343 stalin.sc:323:8604 */ t83917 = q35; /* x57135 stalin.sc:477:13691 */ /* x57134 stalin.sc:477:13692 */ /* x277345 stalin.sc:323:8604 */ t83918 = q35; /* x57137 stalin.sc:477:13705 */ /* x57136 stalin.sc:477:13706 */ /* x277347 stalin.sc:323:8604 */ t83919 = q35; /* x57139 stalin.sc:477:13719 */ /* x57138 stalin.sc:477:13720 */ /* x277837 stalin.sc:321:8572 */ t83920 = q34; /* x57141 stalin.sc:478:13734 */ /* x57140 stalin.sc:478:13735 */ /* x277839 stalin.sc:321:8572 */ t83921 = q34; /* x57143 stalin.sc:478:13743 */ /* x57142 stalin.sc:478:13744 */ /* x277841 stalin.sc:321:8572 */ t83922 = q34; /* x57145 stalin.sc:478:13752 */ /* x57144 stalin.sc:478:13753 */ /* x277843 stalin.sc:321:8572 */ t83923 = q34; /* x57147 stalin.sc:478:13761 */ /* x57146 stalin.sc:478:13762 */ /* x277845 stalin.sc:321:8572 */ t83924 = q34; /* x57149 stalin.sc:478:13770 */ /* x57148 stalin.sc:478:13771 */ /* x277847 stalin.sc:321:8572 */ t83925 = q34; /* x57151 stalin.sc:478:13779 */ /* x57150 stalin.sc:478:13780 */ /* x277849 stalin.sc:321:8572 */ t83926 = q34; /* x57153 stalin.sc:478:13788 */ /* x57152 stalin.sc:478:13789 */ /* x277851 stalin.sc:321:8572 */ t83927 = q34; /* x57155 stalin.sc:479:13803 */ /* x57154 stalin.sc:479:13804 */ /* x277853 stalin.sc:321:8572 */ t83928 = q34; /* x57156 stalin.sc:479:13812 */ t83929 = a20851; /* x57157 stalin.sc:479:13819 */ t83930 = a20852; /* x57158 stalin.sc:479:13829 */ /* x57160 stalin.sc:479:13832 */ /* x57159 stalin.sc:479:13833 */ /* x277349 stalin.sc:323:8604 */ t83931 = q35; /* x57161 stalin.sc:479:13846 */ /* x57162 stalin.sc:479:13850 */ /* x57163 stalin.sc:479:13853 */ /* x57164 stalin.sc:479:13856 */ /* x57165 stalin.sc:479:13860 */ /* x57166 stalin.sc:479:13864 */ /* x57167 stalin.sc:480:13874 */ t83932 = 0; /* x57120 stalin.sc:475:13588 */ t83933.tag = FALSE_TYPE; t83934.tag = FALSE_TYPE; t83935.tag = FALSE_TYPE; t83936.tag = FALSE_TYPE; t83937.tag = EXTERNAL_SYMBOL_TYPE; t83937.value.external_symbol_type = t83920; t83938.tag = EXTERNAL_SYMBOL_TYPE; t83938.value.external_symbol_type = t83921; t83939.tag = EXTERNAL_SYMBOL_TYPE; t83939.value.external_symbol_type = t83922; t83940.tag = EXTERNAL_SYMBOL_TYPE; t83940.value.external_symbol_type = t83923; t83941.tag = EXTERNAL_SYMBOL_TYPE; t83941.value.external_symbol_type = t83924; t83942.tag = EXTERNAL_SYMBOL_TYPE; t83942.value.external_symbol_type = t83925; t83943.tag = EXTERNAL_SYMBOL_TYPE; t83943.value.external_symbol_type = t83926; t83944.tag = EXTERNAL_SYMBOL_TYPE; t83944.value.external_symbol_type = t83927; t83945.tag = EXTERNAL_SYMBOL_TYPE; t83945.value.external_symbol_type = t83928; t83946.tag = STRUCTURE_TYPE27698; t83946.value.structure_type27698 = t83929; /* MOVE: branching squeezed to general */ if (t83930>=((struct structure_type24753 *)VALUE_OFFSET)) {t83947.tag = STRUCTURE_TYPE24753; t83947.value.structure_type24753 = t83930;} else t83947.tag = (unsigned)t83930; t83948.tag = FALSE_TYPE; t83904 = f5485(t83915, t83933, t83934, t83935, t83936, t83916, t83917, t83918, t83919, t83937, t83938, t83939, t83940, t83941, t83942, t83943, t83944, t83945, t83946, t83947, t83948, t83931, t83932); l16127: l16124: /* x56991 */ a20853 = t83904; /* x56990 */ /* x56979 stalin.sc:481:13883 */ /* x56978 stalin.sc:481:13894 */ /* x56976 stalin.sc:481:13897 */ t83905 = a2032; /* x56977 stalin.sc:481:13902 */ t83906 = 1; /* x270768 stalin.sc:481:13895 */ if (!((t83905&1)==1)) {backtrace("stalin.sc", 481, 13894); plus_error();} a2032 = (((unsigned)(((int)(((int)t83905)>>1))+t83906))<<1)+1; /* x56984 stalin.sc:482:13908 */ /* x56983 stalin.sc:482:13919 */ /* x56981 stalin.sc:482:13925 */ t83907 = a20853; /* x56982 stalin.sc:482:13927 */ t83908 = a2031; /* x270767 stalin.sc:482:13920 */ a2031.tag = STRUCTURE_TYPE24753; a2031.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a2031.value.structure_type24753)==NULL) {backtrace("stalin.sc", 482, 13919); out_of_memory_error();} a2031.value.structure_type24753->s0.tag = STRUCTURE_TYPE27698; a2031.value.structure_type24753->s0.value.structure_type27698 = t83907; a2031.value.structure_type24753->s1 = *((struct w49 *)(&t83908)); /* x56989 stalin.sc:483:13936 */ /* x56988 stalin.sc:483:13950 */ /* x56986 stalin.sc:483:13956 */ t83909 = a20853; /* x56987 stalin.sc:483:13958 */ t83910 = a2030; /* x270766 stalin.sc:483:13951 */ a2030.tag = STRUCTURE_TYPE24753; a2030.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a2030.value.structure_type24753)==NULL) {backtrace("stalin.sc", 483, 13950); out_of_memory_error();} a2030.value.structure_type24753->s0.tag = STRUCTURE_TYPE27698; a2030.value.structure_type24753->s0.value.structure_type27698 = t83909; a2030.value.structure_type24753->s1 = *((struct w49 *)(&t83910)); /* x56974 */ /* x56973 stalin.sc:484:13970 */ return a20853;} /* CREATE-CALL-EXPRESSION[6878] */ struct structure_type27698 *f6878(struct w49 a20843, struct w49 a20844, struct w12224 a20845) {struct structure_type27698 *a20846; /* X */ struct w49 a40152; /* S */ struct w49 a40168; /* S */ struct w49 a40184; /* S */ struct w49 a40206; /* S */ struct w49 a40217; /* S */ struct w49 a40225; /* S */ struct w49 a40437; /* OBJ */ struct w49 a40470; /* S */ struct w49 a40480; /* S */ struct w49 a40491; /* S */ struct w49 a40502; /* S */ struct w49 a40514; /* S */ struct w49 a40523; /* S */ struct w49 a40532; /* OBJ */ struct structure_type27698 *t84044; unsigned t84045; int t84046; struct structure_type27698 *t84047; struct w21193 t84048; struct structure_type27698 *t84049; struct w21193 t84050; struct w49 t84051; struct w49 t84052; struct w49 t84053; struct w49 t84054; char *t84055; unsigned t84056; char *t84057; char *t84058; char *t84059; char *t84060; char *t84061; char *t84062; char *t84063; char *t84064; char *t84065; char *t84066; char *t84067; char *t84068; struct w49 t84069; struct w12224 t84070; char *t84071; int t84072; struct w49 t84073; struct w7121 t84074; struct w7121 t84075; struct w7121 t84076; struct w49 t84077; struct w9140 t84078; struct w9296 t84079; struct w49 t84080; struct w49 t84081; struct w49 t84082; struct w49 t84083; struct w49 t84084; struct w49 t84085; struct w11873 t84086; struct w49 t84087; char *t84088; struct w49 t84089; struct w7121 t84090; struct w7121 t84091; struct w7121 t84092; unsigned t84093; char *t84094; char *t84095; char *t84096; char *t84097; char *t84098; char *t84099; char *t84100; char *t84101; char *t84102; char *t84103; char *t84104; char *t84105; struct w49 t84106; struct w12224 t84107; struct w49 t84108; char *t84109; int t84110; struct w49 t84111; struct w9140 t84112; struct w9296 t84113; struct w49 t84114; struct w49 t84115; struct w49 t84116; struct w49 t84117; struct w49 t84118; struct w49 t84119; struct w11873 t84120; struct w49 t84121; struct w49 t84122; struct w49 t84123; struct w49 t84124; struct w49 t84125; struct w49 t84126; struct w49 t84127; struct w49 t84128; struct w49 t84129; struct w49 t84130; struct w49 t84131; struct w49 t84132; char *t84133; struct w49 t84134; struct w6194 t84135; struct w6194 t84136; struct w6194 t84137; unsigned t84138; char *t84139; char *t84140; char *t84141; char *t84142; char *t84143; char *t84144; char *t84145; char *t84146; char *t84147; char *t84148; char *t84149; char *t84150; struct w49 t84151; struct w12224 t84152; char *t84153; int t84154; struct w7121 t84155; struct w7121 t84156; struct w7121 t84157; struct w49 t84158; struct w9140 t84159; struct w9296 t84160; struct w49 t84161; struct w49 t84162; struct w49 t84163; struct w49 t84164; struct w49 t84165; struct w49 t84166; struct w11873 t84167; struct w49 t84168; struct w49 t84169; struct w49 t84170; struct w49 t84171; struct w49 t84172; struct w49 t84173; struct w49 t84174; struct w49 t84175; struct w49 t84176; struct w49 t84177; struct w49 t84178; struct w49 t84179; struct w49 t84180; /* x56970 stalin.sc:407:11042 */ /* x56969 stalin.sc:407:11051 */ /* x56791 stalin.sc:408:11062 */ /* x56790 stalin.sc:408:11077 */ t84051 = a20843; /* x56789 stalin.sc:408:11063 */ a40532 = t84051; /* x294797 */ /* x294796 */ t84052 = a40532; /* x294795 */ if (!((t84052.tag)==STRUCTURE_TYPE27510)) goto l16129; /* x56852 */ /* x56851 */ /* x56850 stalin.sc:409:11087 */ /* x56793 stalin.sc:410:11110 */ t84133 = q36; /* x56796 stalin.sc:411:11122 */ /* x56795 stalin.sc:411:11144 */ t84169 = a20843; /* x56794 stalin.sc:411:11123 */ a40523 = t84169; /* x294761 */ /* x294760 */ t84170 = a40523; /* x294759 */ if (!((t84170.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-VERSION[5387] 35440]"); structure_ref_error();} /* x56799 stalin.sc:412:11155 */ /* x56798 stalin.sc:412:11176 */ t84171 = a20843; /* x56797 stalin.sc:412:11156 */ a40514 = t84171; /* x294725 */ /* x294724 */ t84172 = a40514; /* x294723 */ if (!((t84172.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CURSOR[5395] 35431]"); structure_ref_error();} /* x56802 stalin.sc:413:11187 */ /* x56801 stalin.sc:413:11210 */ t84173 = a20843; /* x56800 stalin.sc:413:11188 */ a40502 = t84173; /* x294677 */ /* x294676 */ t84174 = a40502; /* x294675 */ if (!((t84174.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-PATHNAME[5403] 35419]"); structure_ref_error();} t84134 = t84174.value.structure_type27510->s2; /* x56805 stalin.sc:414:11221 */ /* x56804 stalin.sc:414:11249 */ t84175 = a20843; /* x56803 stalin.sc:414:11222 */ a40491 = t84175; /* x294633 */ /* x294632 */ t84176 = a40491; /* x294631 */ if (!((t84176.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-LINE-POSITION[5411] 35408]"); structure_ref_error();} t84135 = t84176.value.structure_type27510->s3; /* x56808 stalin.sc:415:11260 */ /* x56807 stalin.sc:415:11293 */ t84177 = a20843; /* x56806 stalin.sc:415:11261 */ a40480 = t84177; /* x294589 */ /* x294588 */ t84178 = a40480; /* x294587 */ if (!((t84178.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CHARACTER-POSITION[5419] 35397]"); structure_ref_error();} t84136 = t84178.value.structure_type27510->s4; /* x56811 stalin.sc:416:11304 */ /* x56810 stalin.sc:416:11349 */ t84179 = a20843; /* x56809 stalin.sc:416:11305 */ a40470 = t84179; /* x294549 */ /* x294548 */ t84180 = a40470; /* x294547 */ if (!((t84180.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CHARACTER-POSITION-WITHIN-LINE[5427] 35387]"); structure_ref_error();} t84137 = t84180.value.structure_type27510->s5; /* x56812 stalin.sc:417:11360 */ t84138 = a2032; /* x56813 stalin.sc:417:11365 */ /* x56815 stalin.sc:417:11368 */ /* x56814 stalin.sc:417:11369 */ /* x277303 stalin.sc:323:8604 */ t84139 = q35; /* x56817 stalin.sc:417:11382 */ /* x56816 stalin.sc:417:11383 */ /* x277305 stalin.sc:323:8604 */ t84140 = q35; /* x56819 stalin.sc:417:11396 */ /* x56818 stalin.sc:417:11397 */ /* x277307 stalin.sc:323:8604 */ t84141 = q35; /* x56821 stalin.sc:417:11410 */ /* x56820 stalin.sc:417:11411 */ /* x277747 stalin.sc:321:8572 */ t84142 = q34; /* x56823 stalin.sc:418:11425 */ /* x56822 stalin.sc:418:11426 */ /* x277749 stalin.sc:321:8572 */ t84143 = q34; /* x56825 stalin.sc:418:11434 */ /* x56824 stalin.sc:418:11435 */ /* x277751 stalin.sc:321:8572 */ t84144 = q34; /* x56827 stalin.sc:418:11443 */ /* x56826 stalin.sc:418:11444 */ /* x277753 stalin.sc:321:8572 */ t84145 = q34; /* x56829 stalin.sc:418:11452 */ /* x56828 stalin.sc:418:11453 */ /* x277755 stalin.sc:321:8572 */ t84146 = q34; /* x56831 stalin.sc:418:11461 */ /* x56830 stalin.sc:418:11462 */ /* x277757 stalin.sc:321:8572 */ t84147 = q34; /* x56833 stalin.sc:418:11470 */ /* x56832 stalin.sc:418:11471 */ /* x277759 stalin.sc:321:8572 */ t84148 = q34; /* x56835 stalin.sc:418:11479 */ /* x56834 stalin.sc:418:11480 */ /* x277761 stalin.sc:321:8572 */ t84149 = q34; /* x56837 stalin.sc:419:11494 */ /* x56836 stalin.sc:419:11495 */ /* x277763 stalin.sc:321:8572 */ t84150 = q34; /* x56838 stalin.sc:419:11503 */ t84151 = a20844; /* x56839 stalin.sc:419:11510 */ t84152 = a20845; /* x56840 stalin.sc:419:11520 */ /* x56842 stalin.sc:419:11523 */ /* x56841 stalin.sc:419:11524 */ /* x277309 stalin.sc:323:8604 */ t84153 = q35; /* x56843 stalin.sc:419:11537 */ /* x56844 stalin.sc:419:11541 */ /* x56845 stalin.sc:419:11544 */ /* x56846 stalin.sc:419:11547 */ /* x56847 stalin.sc:419:11551 */ /* x56848 stalin.sc:419:11555 */ /* x56849 stalin.sc:420:11565 */ t84154 = 0; /* x56792 stalin.sc:409:11088 */ t84155 = *((struct w7121 *)(&t84135)); t84156 = *((struct w7121 *)(&t84136)); t84157 = *((struct w7121 *)(&t84137)); t84158.tag = EXTERNAL_SYMBOL_TYPE; t84158.value.external_symbol_type = t84142; t84159.tag = EXTERNAL_SYMBOL_TYPE; t84159.value.external_symbol_type = t84143; t84160.tag = EXTERNAL_SYMBOL_TYPE; t84160.value.external_symbol_type = t84144; t84161.tag = EXTERNAL_SYMBOL_TYPE; t84161.value.external_symbol_type = t84145; t84162.tag = EXTERNAL_SYMBOL_TYPE; t84162.value.external_symbol_type = t84146; t84163.tag = EXTERNAL_SYMBOL_TYPE; t84163.value.external_symbol_type = t84147; t84164.tag = EXTERNAL_SYMBOL_TYPE; t84164.value.external_symbol_type = t84148; t84165.tag = EXTERNAL_SYMBOL_TYPE; t84165.value.external_symbol_type = t84149; t84166.tag = EXTERNAL_SYMBOL_TYPE; t84166.value.external_symbol_type = t84150; t84167 = *((struct w11873 *)(&t84152)); t84168.tag = FALSE_TYPE; t84044 = f5485(t84133, t84134, t84155, t84156, t84157, t84138, t84139, t84140, t84141, t84158, t84159, t84160, t84161, t84162, t84163, t84164, t84165, t84166, t84151, t84167, t84168, t84153, t84154); goto l16130; l16129: /* x56968 */ /* x56855 stalin.sc:421:11574 */ /* x56854 stalin.sc:421:11587 */ t84053 = a20843; /* x56853 stalin.sc:421:11575 */ a40437 = t84053; /* x294417 */ /* x294416 */ t84054 = a40437; /* x294415 */ if (!((t84054.tag)==STRUCTURE_TYPE27698)) goto l16132; /* x56916 */ /* x56915 */ /* x56914 stalin.sc:422:11597 */ /* x56857 stalin.sc:423:11620 */ t84088 = q36; /* x56860 stalin.sc:424:11632 */ /* x56859 stalin.sc:424:11652 */ t84121 = a20843; /* x56858 stalin.sc:424:11633 */ a40225 = t84121; /* x293569 */ /* x293568 */ t84122 = a40225; /* x293567 */ if (!((t84122.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VERSION[5495] 35142]"); structure_ref_error();} /* x56863 stalin.sc:425:11663 */ /* x56862 stalin.sc:425:11682 */ t84123 = a20843; /* x56861 stalin.sc:425:11664 */ a40217 = t84123; /* x293537 */ /* x293536 */ t84124 = a40217; /* x293535 */ if (!((t84124.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CURSOR[5503] 35134]"); structure_ref_error();} /* x56866 stalin.sc:426:11693 */ /* x56865 stalin.sc:426:11714 */ t84125 = a20843; /* x56864 stalin.sc:426:11694 */ a40206 = t84125; /* x293493 */ /* x293492 */ t84126 = a40206; /* x293491 */ if (!((t84126.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35123]"); structure_ref_error();} t84089 = t84126.value.structure_type27698->s3; /* x56869 stalin.sc:427:11725 */ /* x56868 stalin.sc:427:11751 */ t84127 = a20843; /* x56867 stalin.sc:427:11726 */ a40184 = t84127; /* x293405 */ /* x293404 */ t84128 = a40184; /* x293403 */ if (!((t84128.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LINE-POSITION[5519] 35101]"); structure_ref_error();} t84090 = t84128.value.structure_type27698->s4; /* x56872 stalin.sc:428:11762 */ /* x56871 stalin.sc:428:11793 */ t84129 = a20843; /* x56870 stalin.sc:428:11763 */ a40168 = t84129; /* x293341 */ /* x293340 */ t84130 = a40168; /* x293339 */ if (!((t84130.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION[5527] 35085]"); structure_ref_error();} t84091 = t84130.value.structure_type27698->s5; /* x56875 stalin.sc:429:11804 */ /* x56874 stalin.sc:429:11847 */ t84131 = a20843; /* x56873 stalin.sc:429:11805 */ a40152 = t84131; /* x293277 */ /* x293276 */ t84132 = a40152; /* x293275 */ if (!((t84132.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION-WITHIN-LINE[5535] 35069]"); structure_ref_error();} t84092 = t84132.value.structure_type27698->s6; /* x56876 stalin.sc:430:11858 */ t84093 = a2032; /* x56877 stalin.sc:430:11863 */ /* x56879 stalin.sc:430:11866 */ /* x56878 stalin.sc:430:11867 */ /* x277311 stalin.sc:323:8604 */ t84094 = q35; /* x56881 stalin.sc:430:11880 */ /* x56880 stalin.sc:430:11881 */ /* x277313 stalin.sc:323:8604 */ t84095 = q35; /* x56883 stalin.sc:430:11894 */ /* x56882 stalin.sc:430:11895 */ /* x277315 stalin.sc:323:8604 */ t84096 = q35; /* x56885 stalin.sc:430:11908 */ /* x56884 stalin.sc:430:11909 */ /* x277765 stalin.sc:321:8572 */ t84097 = q34; /* x56887 stalin.sc:431:11923 */ /* x56886 stalin.sc:431:11924 */ /* x277767 stalin.sc:321:8572 */ t84098 = q34; /* x56889 stalin.sc:431:11932 */ /* x56888 stalin.sc:431:11933 */ /* x277769 stalin.sc:321:8572 */ t84099 = q34; /* x56891 stalin.sc:431:11941 */ /* x56890 stalin.sc:431:11942 */ /* x277771 stalin.sc:321:8572 */ t84100 = q34; /* x56893 stalin.sc:431:11950 */ /* x56892 stalin.sc:431:11951 */ /* x277773 stalin.sc:321:8572 */ t84101 = q34; /* x56895 stalin.sc:431:11959 */ /* x56894 stalin.sc:431:11960 */ /* x277775 stalin.sc:321:8572 */ t84102 = q34; /* x56897 stalin.sc:431:11968 */ /* x56896 stalin.sc:431:11969 */ /* x277777 stalin.sc:321:8572 */ t84103 = q34; /* x56899 stalin.sc:431:11977 */ /* x56898 stalin.sc:431:11978 */ /* x277779 stalin.sc:321:8572 */ t84104 = q34; /* x56901 stalin.sc:432:11992 */ /* x56900 stalin.sc:432:11993 */ /* x277781 stalin.sc:321:8572 */ t84105 = q34; /* x56902 stalin.sc:432:12001 */ t84106 = a20844; /* x56903 stalin.sc:432:12008 */ t84107 = a20845; /* x56904 stalin.sc:432:12018 */ t84108 = a20843; /* x56906 stalin.sc:432:12022 */ /* x56905 stalin.sc:432:12023 */ /* x277317 stalin.sc:323:8604 */ t84109 = q35; /* x56907 stalin.sc:432:12036 */ /* x56908 stalin.sc:432:12040 */ /* x56909 stalin.sc:432:12043 */ /* x56910 stalin.sc:432:12046 */ /* x56911 stalin.sc:432:12050 */ /* x56912 stalin.sc:432:12054 */ /* x56913 stalin.sc:433:12064 */ t84110 = 0; /* x56856 stalin.sc:422:11598 */ t84111.tag = EXTERNAL_SYMBOL_TYPE; t84111.value.external_symbol_type = t84097; t84112.tag = EXTERNAL_SYMBOL_TYPE; t84112.value.external_symbol_type = t84098; t84113.tag = EXTERNAL_SYMBOL_TYPE; t84113.value.external_symbol_type = t84099; t84114.tag = EXTERNAL_SYMBOL_TYPE; t84114.value.external_symbol_type = t84100; t84115.tag = EXTERNAL_SYMBOL_TYPE; t84115.value.external_symbol_type = t84101; t84116.tag = EXTERNAL_SYMBOL_TYPE; t84116.value.external_symbol_type = t84102; t84117.tag = EXTERNAL_SYMBOL_TYPE; t84117.value.external_symbol_type = t84103; t84118.tag = EXTERNAL_SYMBOL_TYPE; t84118.value.external_symbol_type = t84104; t84119.tag = EXTERNAL_SYMBOL_TYPE; t84119.value.external_symbol_type = t84105; t84120 = *((struct w11873 *)(&t84107)); t84044 = f5485(t84088, t84089, t84090, t84091, t84092, t84093, t84094, t84095, t84096, t84111, t84112, t84113, t84114, t84115, t84116, t84117, t84118, t84119, t84106, t84120, t84108, t84109, t84110); goto l16133; l16132: /* x56967 */ /* x56966 */ /* x56965 stalin.sc:435:12083 */ /* x56918 stalin.sc:436:12106 */ t84055 = q36; /* x56920 stalin.sc:436:12112 */ /* x56919 stalin.sc:436:12113 */ /* x294865 stalin.sc:46:1719 */ /* x56922 stalin.sc:436:12125 */ /* x56921 stalin.sc:436:12126 */ /* x294883 stalin.sc:44:1693 */ /* x56923 stalin.sc:436:12137 */ /* x56924 stalin.sc:436:12140 */ /* x56925 stalin.sc:436:12143 */ /* x56926 stalin.sc:436:12146 */ /* x56927 stalin.sc:437:12155 */ t84056 = a2032; /* x56928 stalin.sc:437:12160 */ /* x56930 stalin.sc:437:12163 */ /* x56929 stalin.sc:437:12164 */ /* x277319 stalin.sc:323:8604 */ t84057 = q35; /* x56932 stalin.sc:437:12177 */ /* x56931 stalin.sc:437:12178 */ /* x277321 stalin.sc:323:8604 */ t84058 = q35; /* x56934 stalin.sc:437:12191 */ /* x56933 stalin.sc:437:12192 */ /* x277323 stalin.sc:323:8604 */ t84059 = q35; /* x56936 stalin.sc:437:12205 */ /* x56935 stalin.sc:437:12206 */ /* x277783 stalin.sc:321:8572 */ t84060 = q34; /* x56938 stalin.sc:438:12220 */ /* x56937 stalin.sc:438:12221 */ /* x277785 stalin.sc:321:8572 */ t84061 = q34; /* x56940 stalin.sc:438:12229 */ /* x56939 stalin.sc:438:12230 */ /* x277787 stalin.sc:321:8572 */ t84062 = q34; /* x56942 stalin.sc:438:12238 */ /* x56941 stalin.sc:438:12239 */ /* x277789 stalin.sc:321:8572 */ t84063 = q34; /* x56944 stalin.sc:438:12247 */ /* x56943 stalin.sc:438:12248 */ /* x277791 stalin.sc:321:8572 */ t84064 = q34; /* x56946 stalin.sc:438:12256 */ /* x56945 stalin.sc:438:12257 */ /* x277793 stalin.sc:321:8572 */ t84065 = q34; /* x56948 stalin.sc:438:12265 */ /* x56947 stalin.sc:438:12266 */ /* x277795 stalin.sc:321:8572 */ t84066 = q34; /* x56950 stalin.sc:438:12274 */ /* x56949 stalin.sc:438:12275 */ /* x277797 stalin.sc:321:8572 */ t84067 = q34; /* x56952 stalin.sc:439:12289 */ /* x56951 stalin.sc:439:12290 */ /* x277799 stalin.sc:321:8572 */ t84068 = q34; /* x56953 stalin.sc:439:12298 */ t84069 = a20844; /* x56954 stalin.sc:439:12305 */ t84070 = a20845; /* x56955 stalin.sc:439:12315 */ /* x56957 stalin.sc:439:12318 */ /* x56956 stalin.sc:439:12319 */ /* x277325 stalin.sc:323:8604 */ t84071 = q35; /* x56958 stalin.sc:439:12332 */ /* x56959 stalin.sc:439:12336 */ /* x56960 stalin.sc:439:12339 */ /* x56961 stalin.sc:439:12342 */ /* x56962 stalin.sc:439:12346 */ /* x56963 stalin.sc:439:12350 */ /* x56964 stalin.sc:440:12360 */ t84072 = 0; /* x56917 stalin.sc:435:12084 */ t84073.tag = FALSE_TYPE; t84074.tag = FALSE_TYPE; t84075.tag = FALSE_TYPE; t84076.tag = FALSE_TYPE; t84077.tag = EXTERNAL_SYMBOL_TYPE; t84077.value.external_symbol_type = t84060; t84078.tag = EXTERNAL_SYMBOL_TYPE; t84078.value.external_symbol_type = t84061; t84079.tag = EXTERNAL_SYMBOL_TYPE; t84079.value.external_symbol_type = t84062; t84080.tag = EXTERNAL_SYMBOL_TYPE; t84080.value.external_symbol_type = t84063; t84081.tag = EXTERNAL_SYMBOL_TYPE; t84081.value.external_symbol_type = t84064; t84082.tag = EXTERNAL_SYMBOL_TYPE; t84082.value.external_symbol_type = t84065; t84083.tag = EXTERNAL_SYMBOL_TYPE; t84083.value.external_symbol_type = t84066; t84084.tag = EXTERNAL_SYMBOL_TYPE; t84084.value.external_symbol_type = t84067; t84085.tag = EXTERNAL_SYMBOL_TYPE; t84085.value.external_symbol_type = t84068; t84086 = *((struct w11873 *)(&t84070)); t84087.tag = FALSE_TYPE; t84044 = f5485(t84055, t84073, t84074, t84075, t84076, t84056, t84057, t84058, t84059, t84077, t84078, t84079, t84080, t84081, t84082, t84083, t84084, t84085, t84069, t84086, t84087, t84071, t84072); l16133: l16130: /* x56788 */ a20846 = t84044; /* x56787 */ /* x56776 stalin.sc:441:12369 */ /* x56775 stalin.sc:441:12380 */ /* x56773 stalin.sc:441:12383 */ t84045 = a2032; /* x56774 stalin.sc:441:12388 */ t84046 = 1; /* x270771 stalin.sc:441:12381 */ if (!((t84045&1)==1)) {backtrace("stalin.sc", 441, 12380); plus_error();} a2032 = (((unsigned)(((int)(((int)t84045)>>1))+t84046))<<1)+1; /* x56781 stalin.sc:442:12394 */ /* x56780 stalin.sc:442:12405 */ /* x56778 stalin.sc:442:12411 */ t84047 = a20846; /* x56779 stalin.sc:442:12413 */ t84048 = a2031; /* x270770 stalin.sc:442:12406 */ a2031.tag = STRUCTURE_TYPE24753; a2031.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a2031.value.structure_type24753)==NULL) {backtrace("stalin.sc", 442, 12405); out_of_memory_error();} a2031.value.structure_type24753->s0.tag = STRUCTURE_TYPE27698; a2031.value.structure_type24753->s0.value.structure_type27698 = t84047; a2031.value.structure_type24753->s1 = *((struct w49 *)(&t84048)); /* x56786 stalin.sc:443:12422 */ /* x56785 stalin.sc:443:12436 */ /* x56783 stalin.sc:443:12442 */ t84049 = a20846; /* x56784 stalin.sc:443:12444 */ t84050 = a2030; /* x270769 stalin.sc:443:12437 */ a2030.tag = STRUCTURE_TYPE24753; a2030.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a2030.value.structure_type24753)==NULL) {backtrace("stalin.sc", 443, 12436); out_of_memory_error();} a2030.value.structure_type24753->s0.tag = STRUCTURE_TYPE27698; a2030.value.structure_type24753->s0.value.structure_type27698 = t84049; a2030.value.structure_type24753->s1 = *((struct w49 *)(&t84050)); /* x56771 */ /* x56770 stalin.sc:444:12456 */ return a20846;} /* CREATE-EXPRESSION[6872] */ struct structure_type27698 *f6872(char *a20837, struct w49 a20838, struct w49 a20839) {struct structure_type27698 *a20840; /* X */ struct w49 a40156; /* S */ struct w49 a40172; /* S */ struct w49 a40188; /* S */ struct w49 a40210; /* S */ struct w49 a40221; /* S */ struct w49 a40229; /* S */ struct w49 a40444; /* OBJ */ struct w49 a40474; /* S */ struct w49 a40484; /* S */ struct w49 a40495; /* S */ struct w49 a40506; /* S */ struct w49 a40518; /* S */ struct w49 a40527; /* S */ struct w49 a40536; /* OBJ */ struct structure_type27698 *t84181; unsigned t84182; int t84183; struct structure_type27698 *t84184; struct w21193 t84185; struct w49 t84186; struct w49 t84187; struct w49 t84188; struct w49 t84189; char *t84190; unsigned t84191; char *t84192; char *t84193; char *t84194; struct w49 t84195; char *t84196; char *t84197; char *t84198; char *t84199; char *t84200; char *t84201; char *t84202; char *t84203; char *t84204; char *t84205; char *t84206; int t84207; struct w49 t84208; struct w7121 t84209; struct w7121 t84210; struct w7121 t84211; struct w9140 t84212; struct w9296 t84213; struct w49 t84214; struct w49 t84215; struct w49 t84216; struct w49 t84217; struct w49 t84218; struct w49 t84219; struct w49 t84220; struct w11873 t84221; struct w49 t84222; char *t84223; struct w49 t84224; struct w7121 t84225; struct w7121 t84226; struct w7121 t84227; unsigned t84228; char *t84229; char *t84230; char *t84231; struct w49 t84232; char *t84233; char *t84234; char *t84235; char *t84236; char *t84237; char *t84238; char *t84239; char *t84240; char *t84241; char *t84242; struct w49 t84243; char *t84244; int t84245; struct w9140 t84246; struct w9296 t84247; struct w49 t84248; struct w49 t84249; struct w49 t84250; struct w49 t84251; struct w49 t84252; struct w49 t84253; struct w49 t84254; struct w11873 t84255; struct w49 t84256; struct w49 t84257; struct w49 t84258; struct w49 t84259; struct w49 t84260; struct w49 t84261; struct w49 t84262; struct w49 t84263; struct w49 t84264; struct w49 t84265; struct w49 t84266; struct w49 t84267; char *t84268; struct w49 t84269; struct w6194 t84270; struct w6194 t84271; struct w6194 t84272; unsigned t84273; char *t84274; char *t84275; char *t84276; struct w49 t84277; char *t84278; char *t84279; char *t84280; char *t84281; char *t84282; char *t84283; char *t84284; char *t84285; char *t84286; char *t84287; char *t84288; int t84289; struct w7121 t84290; struct w7121 t84291; struct w7121 t84292; struct w9140 t84293; struct w9296 t84294; struct w49 t84295; struct w49 t84296; struct w49 t84297; struct w49 t84298; struct w49 t84299; struct w49 t84300; struct w49 t84301; struct w11873 t84302; struct w49 t84303; struct w49 t84304; struct w49 t84305; struct w49 t84306; struct w49 t84307; struct w49 t84308; struct w49 t84309; struct w49 t84310; struct w49 t84311; struct w49 t84312; struct w49 t84313; struct w49 t84314; struct w49 t84315; /* x56767 stalin.sc:371:9641 */ /* x56766 stalin.sc:371:9650 */ /* x56585 stalin.sc:372:9661 */ /* x56584 stalin.sc:372:9676 */ t84186 = a20838; /* x56583 stalin.sc:372:9662 */ a40536 = t84186; /* x294813 */ /* x294812 */ t84187 = a40536; /* x294811 */ if (!((t84187.tag)==STRUCTURE_TYPE27510)) goto l16135; /* x56647 */ /* x56646 */ /* x56645 stalin.sc:373:9686 */ /* x56587 stalin.sc:374:9709 */ t84268 = a20837; /* x56590 stalin.sc:375:9720 */ /* x56589 stalin.sc:375:9742 */ t84304 = a20838; /* x56588 stalin.sc:375:9721 */ a40527 = t84304; /* x294777 */ /* x294776 */ t84305 = a40527; /* x294775 */ if (!((t84305.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-VERSION[5387] 35444]"); structure_ref_error();} /* x56593 stalin.sc:376:9753 */ /* x56592 stalin.sc:376:9774 */ t84306 = a20838; /* x56591 stalin.sc:376:9754 */ a40518 = t84306; /* x294741 */ /* x294740 */ t84307 = a40518; /* x294739 */ if (!((t84307.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CURSOR[5395] 35435]"); structure_ref_error();} /* x56596 stalin.sc:377:9785 */ /* x56595 stalin.sc:377:9808 */ t84308 = a20838; /* x56594 stalin.sc:377:9786 */ a40506 = t84308; /* x294693 */ /* x294692 */ t84309 = a40506; /* x294691 */ if (!((t84309.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-PATHNAME[5403] 35423]"); structure_ref_error();} t84269 = t84309.value.structure_type27510->s2; /* x56599 stalin.sc:378:9819 */ /* x56598 stalin.sc:378:9847 */ t84310 = a20838; /* x56597 stalin.sc:378:9820 */ a40495 = t84310; /* x294649 */ /* x294648 */ t84311 = a40495; /* x294647 */ if (!((t84311.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-LINE-POSITION[5411] 35412]"); structure_ref_error();} t84270 = t84311.value.structure_type27510->s3; /* x56602 stalin.sc:379:9858 */ /* x56601 stalin.sc:379:9891 */ t84312 = a20838; /* x56600 stalin.sc:379:9859 */ a40484 = t84312; /* x294605 */ /* x294604 */ t84313 = a40484; /* x294603 */ if (!((t84313.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CHARACTER-POSITION[5419] 35401]"); structure_ref_error();} t84271 = t84313.value.structure_type27510->s4; /* x56605 stalin.sc:380:9902 */ /* x56604 stalin.sc:380:9947 */ t84314 = a20838; /* x56603 stalin.sc:380:9903 */ a40474 = t84314; /* x294565 */ /* x294564 */ t84315 = a40474; /* x294563 */ if (!((t84315.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-CHARACTER-POSITION-WITHIN-LINE[5427] 35391]"); structure_ref_error();} t84272 = t84315.value.structure_type27510->s5; /* x56606 stalin.sc:381:9958 */ t84273 = a2032; /* x56607 stalin.sc:381:9963 */ /* x56609 stalin.sc:381:9966 */ /* x56608 stalin.sc:381:9967 */ /* x277425 stalin.sc:323:8604 */ t84274 = q35; /* x56611 stalin.sc:381:9980 */ /* x56610 stalin.sc:381:9981 */ /* x277427 stalin.sc:323:8604 */ t84275 = q35; /* x56613 stalin.sc:381:9994 */ /* x56612 stalin.sc:381:9995 */ /* x277429 stalin.sc:323:8604 */ t84276 = q35; /* x56614 stalin.sc:381:10008 */ t84277 = a20839; /* x56616 stalin.sc:381:10010 */ /* x56615 stalin.sc:381:10011 */ /* x277983 stalin.sc:321:8572 */ t84278 = q34; /* x56618 stalin.sc:382:10025 */ /* x56617 stalin.sc:382:10026 */ /* x277985 stalin.sc:321:8572 */ t84279 = q34; /* x56620 stalin.sc:382:10034 */ /* x56619 stalin.sc:382:10035 */ /* x277987 stalin.sc:321:8572 */ t84280 = q34; /* x56622 stalin.sc:382:10043 */ /* x56621 stalin.sc:382:10044 */ /* x277989 stalin.sc:321:8572 */ t84281 = q34; /* x56624 stalin.sc:382:10052 */ /* x56623 stalin.sc:382:10053 */ /* x277991 stalin.sc:321:8572 */ t84282 = q34; /* x56626 stalin.sc:382:10061 */ /* x56625 stalin.sc:382:10062 */ /* x277993 stalin.sc:321:8572 */ t84283 = q34; /* x56628 stalin.sc:382:10070 */ /* x56627 stalin.sc:382:10071 */ /* x277995 stalin.sc:321:8572 */ t84284 = q34; /* x56630 stalin.sc:382:10079 */ /* x56629 stalin.sc:382:10080 */ /* x277997 stalin.sc:321:8572 */ t84285 = q34; /* x56632 stalin.sc:383:10094 */ /* x56631 stalin.sc:383:10095 */ /* x277999 stalin.sc:321:8572 */ t84286 = q34; /* x56634 stalin.sc:383:10103 */ /* x56633 stalin.sc:383:10104 */ /* x278001 stalin.sc:321:8572 */ t84287 = q34; /* x56635 stalin.sc:383:10112 */ /* x56637 stalin.sc:383:10115 */ /* x56636 stalin.sc:383:10116 */ /* x277431 stalin.sc:323:8604 */ t84288 = q35; /* x56638 stalin.sc:383:10129 */ /* x56639 stalin.sc:383:10133 */ /* x56640 stalin.sc:383:10136 */ /* x56641 stalin.sc:383:10139 */ /* x56642 stalin.sc:383:10143 */ /* x56643 stalin.sc:383:10147 */ /* x56644 stalin.sc:383:10151 */ t84289 = 0; /* x56586 stalin.sc:373:9687 */ t84290 = *((struct w7121 *)(&t84270)); t84291 = *((struct w7121 *)(&t84271)); t84292 = *((struct w7121 *)(&t84272)); t84293.tag = EXTERNAL_SYMBOL_TYPE; t84293.value.external_symbol_type = t84278; t84294.tag = EXTERNAL_SYMBOL_TYPE; t84294.value.external_symbol_type = t84279; t84295.tag = EXTERNAL_SYMBOL_TYPE; t84295.value.external_symbol_type = t84280; t84296.tag = EXTERNAL_SYMBOL_TYPE; t84296.value.external_symbol_type = t84281; t84297.tag = EXTERNAL_SYMBOL_TYPE; t84297.value.external_symbol_type = t84282; t84298.tag = EXTERNAL_SYMBOL_TYPE; t84298.value.external_symbol_type = t84283; t84299.tag = EXTERNAL_SYMBOL_TYPE; t84299.value.external_symbol_type = t84284; t84300.tag = EXTERNAL_SYMBOL_TYPE; t84300.value.external_symbol_type = t84285; t84301.tag = EXTERNAL_SYMBOL_TYPE; t84301.value.external_symbol_type = t84286; t84302.tag = EXTERNAL_SYMBOL_TYPE; t84302.value.external_symbol_type = t84287; t84303.tag = FALSE_TYPE; t84181 = f5485(t84268, t84269, t84290, t84291, t84292, t84273, t84274, t84275, t84276, t84277, t84293, t84294, t84295, t84296, t84297, t84298, t84299, t84300, t84301, t84302, t84303, t84288, t84289); goto l16136; l16135: /* x56765 */ /* x56650 stalin.sc:384:10160 */ /* x56649 stalin.sc:384:10173 */ t84188 = a20838; /* x56648 stalin.sc:384:10161 */ a40444 = t84188; /* x294445 */ /* x294444 */ t84189 = a40444; /* x294443 */ if (!((t84189.tag)==STRUCTURE_TYPE27698)) goto l16138; /* x56712 */ /* x56711 */ /* x56710 stalin.sc:385:10183 */ /* x56652 stalin.sc:386:10206 */ t84223 = a20837; /* x56655 stalin.sc:387:10217 */ /* x56654 stalin.sc:387:10237 */ t84256 = a20838; /* x56653 stalin.sc:387:10218 */ a40229 = t84256; /* x293585 */ /* x293584 */ t84257 = a40229; /* x293583 */ if (!((t84257.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VERSION[5495] 35146]"); structure_ref_error();} /* x56658 stalin.sc:388:10248 */ /* x56657 stalin.sc:388:10267 */ t84258 = a20838; /* x56656 stalin.sc:388:10249 */ a40221 = t84258; /* x293553 */ /* x293552 */ t84259 = a40221; /* x293551 */ if (!((t84259.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CURSOR[5503] 35138]"); structure_ref_error();} /* x56661 stalin.sc:389:10278 */ /* x56660 stalin.sc:389:10299 */ t84260 = a20838; /* x56659 stalin.sc:389:10279 */ a40210 = t84260; /* x293509 */ /* x293508 */ t84261 = a40210; /* x293507 */ if (!((t84261.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35127]"); structure_ref_error();} t84224 = t84261.value.structure_type27698->s3; /* x56664 stalin.sc:390:10310 */ /* x56663 stalin.sc:390:10336 */ t84262 = a20838; /* x56662 stalin.sc:390:10311 */ a40188 = t84262; /* x293421 */ /* x293420 */ t84263 = a40188; /* x293419 */ if (!((t84263.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LINE-POSITION[5519] 35105]"); structure_ref_error();} t84225 = t84263.value.structure_type27698->s4; /* x56667 stalin.sc:391:10347 */ /* x56666 stalin.sc:391:10378 */ t84264 = a20838; /* x56665 stalin.sc:391:10348 */ a40172 = t84264; /* x293357 */ /* x293356 */ t84265 = a40172; /* x293355 */ if (!((t84265.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION[5527] 35089]"); structure_ref_error();} t84226 = t84265.value.structure_type27698->s5; /* x56670 stalin.sc:392:10389 */ /* x56669 stalin.sc:392:10432 */ t84266 = a20838; /* x56668 stalin.sc:392:10390 */ a40156 = t84266; /* x293293 */ /* x293292 */ t84267 = a40156; /* x293291 */ if (!((t84267.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CHARACTER-POSITION-WITHIN-LINE[5535] 35073]"); structure_ref_error();} t84227 = t84267.value.structure_type27698->s6; /* x56671 stalin.sc:393:10443 */ t84228 = a2032; /* x56672 stalin.sc:393:10448 */ /* x56674 stalin.sc:393:10451 */ /* x56673 stalin.sc:393:10452 */ /* x277415 stalin.sc:323:8604 */ t84229 = q35; /* x56676 stalin.sc:393:10465 */ /* x56675 stalin.sc:393:10466 */ /* x277417 stalin.sc:323:8604 */ t84230 = q35; /* x56678 stalin.sc:393:10479 */ /* x56677 stalin.sc:393:10480 */ /* x277419 stalin.sc:323:8604 */ t84231 = q35; /* x56679 stalin.sc:393:10493 */ t84232 = a20839; /* x56681 stalin.sc:393:10495 */ /* x56680 stalin.sc:393:10496 */ /* x277963 stalin.sc:321:8572 */ t84233 = q34; /* x56683 stalin.sc:394:10510 */ /* x56682 stalin.sc:394:10511 */ /* x277965 stalin.sc:321:8572 */ t84234 = q34; /* x56685 stalin.sc:394:10519 */ /* x56684 stalin.sc:394:10520 */ /* x277967 stalin.sc:321:8572 */ t84235 = q34; /* x56687 stalin.sc:394:10528 */ /* x56686 stalin.sc:394:10529 */ /* x277969 stalin.sc:321:8572 */ t84236 = q34; /* x56689 stalin.sc:394:10537 */ /* x56688 stalin.sc:394:10538 */ /* x277971 stalin.sc:321:8572 */ t84237 = q34; /* x56691 stalin.sc:394:10546 */ /* x56690 stalin.sc:394:10547 */ /* x277973 stalin.sc:321:8572 */ t84238 = q34; /* x56693 stalin.sc:394:10555 */ /* x56692 stalin.sc:394:10556 */ /* x277975 stalin.sc:321:8572 */ t84239 = q34; /* x56695 stalin.sc:394:10564 */ /* x56694 stalin.sc:394:10565 */ /* x277977 stalin.sc:321:8572 */ t84240 = q34; /* x56697 stalin.sc:395:10579 */ /* x56696 stalin.sc:395:10580 */ /* x277979 stalin.sc:321:8572 */ t84241 = q34; /* x56699 stalin.sc:395:10588 */ /* x56698 stalin.sc:395:10589 */ /* x277981 stalin.sc:321:8572 */ t84242 = q34; /* x56700 stalin.sc:395:10597 */ t84243 = a20838; /* x56702 stalin.sc:395:10601 */ /* x56701 stalin.sc:395:10602 */ /* x277421 stalin.sc:323:8604 */ t84244 = q35; /* x56703 stalin.sc:395:10615 */ /* x56704 stalin.sc:395:10619 */ /* x56705 stalin.sc:395:10622 */ /* x56706 stalin.sc:395:10625 */ /* x56707 stalin.sc:395:10629 */ /* x56708 stalin.sc:395:10633 */ /* x56709 stalin.sc:395:10637 */ t84245 = 0; /* x56651 stalin.sc:385:10184 */ t84246.tag = EXTERNAL_SYMBOL_TYPE; t84246.value.external_symbol_type = t84233; t84247.tag = EXTERNAL_SYMBOL_TYPE; t84247.value.external_symbol_type = t84234; t84248.tag = EXTERNAL_SYMBOL_TYPE; t84248.value.external_symbol_type = t84235; t84249.tag = EXTERNAL_SYMBOL_TYPE; t84249.value.external_symbol_type = t84236; t84250.tag = EXTERNAL_SYMBOL_TYPE; t84250.value.external_symbol_type = t84237; t84251.tag = EXTERNAL_SYMBOL_TYPE; t84251.value.external_symbol_type = t84238; t84252.tag = EXTERNAL_SYMBOL_TYPE; t84252.value.external_symbol_type = t84239; t84253.tag = EXTERNAL_SYMBOL_TYPE; t84253.value.external_symbol_type = t84240; t84254.tag = EXTERNAL_SYMBOL_TYPE; t84254.value.external_symbol_type = t84241; t84255.tag = EXTERNAL_SYMBOL_TYPE; t84255.value.external_symbol_type = t84242; t84181 = f5485(t84223, t84224, t84225, t84226, t84227, t84228, t84229, t84230, t84231, t84232, t84246, t84247, t84248, t84249, t84250, t84251, t84252, t84253, t84254, t84255, t84243, t84244, t84245); goto l16139; l16138: /* x56764 */ /* x56763 */ /* x56762 stalin.sc:397:10656 */ /* x56714 stalin.sc:398:10679 */ t84190 = a20837; /* x56716 stalin.sc:398:10684 */ /* x56715 stalin.sc:398:10685 */ /* x294873 stalin.sc:46:1719 */ /* x56718 stalin.sc:398:10697 */ /* x56717 stalin.sc:398:10698 */ /* x294891 stalin.sc:44:1693 */ /* x56719 stalin.sc:398:10709 */ /* x56720 stalin.sc:398:10712 */ /* x56721 stalin.sc:398:10715 */ /* x56722 stalin.sc:398:10718 */ /* x56723 stalin.sc:399:10727 */ t84191 = a2032; /* x56724 stalin.sc:399:10732 */ /* x56726 stalin.sc:399:10735 */ /* x56725 stalin.sc:399:10736 */ /* x277433 stalin.sc:323:8604 */ t84192 = q35; /* x56728 stalin.sc:399:10749 */ /* x56727 stalin.sc:399:10750 */ /* x277435 stalin.sc:323:8604 */ t84193 = q35; /* x56730 stalin.sc:399:10763 */ /* x56729 stalin.sc:399:10764 */ /* x277437 stalin.sc:323:8604 */ t84194 = q35; /* x56731 stalin.sc:399:10777 */ t84195 = a20839; /* x56733 stalin.sc:399:10779 */ /* x56732 stalin.sc:399:10780 */ /* x278003 stalin.sc:321:8572 */ t84196 = q34; /* x56735 stalin.sc:400:10794 */ /* x56734 stalin.sc:400:10795 */ /* x278005 stalin.sc:321:8572 */ t84197 = q34; /* x56737 stalin.sc:400:10803 */ /* x56736 stalin.sc:400:10804 */ /* x278007 stalin.sc:321:8572 */ t84198 = q34; /* x56739 stalin.sc:400:10812 */ /* x56738 stalin.sc:400:10813 */ /* x278009 stalin.sc:321:8572 */ t84199 = q34; /* x56741 stalin.sc:400:10821 */ /* x56740 stalin.sc:400:10822 */ /* x278011 stalin.sc:321:8572 */ t84200 = q34; /* x56743 stalin.sc:400:10830 */ /* x56742 stalin.sc:400:10831 */ /* x278013 stalin.sc:321:8572 */ t84201 = q34; /* x56745 stalin.sc:400:10839 */ /* x56744 stalin.sc:400:10840 */ /* x278015 stalin.sc:321:8572 */ t84202 = q34; /* x56747 stalin.sc:400:10848 */ /* x56746 stalin.sc:400:10849 */ /* x278017 stalin.sc:321:8572 */ t84203 = q34; /* x56749 stalin.sc:401:10863 */ /* x56748 stalin.sc:401:10864 */ /* x278019 stalin.sc:321:8572 */ t84204 = q34; /* x56751 stalin.sc:401:10872 */ /* x56750 stalin.sc:401:10873 */ /* x278021 stalin.sc:321:8572 */ t84205 = q34; /* x56752 stalin.sc:401:10881 */ /* x56754 stalin.sc:401:10884 */ /* x56753 stalin.sc:401:10885 */ /* x277439 stalin.sc:323:8604 */ t84206 = q35; /* x56755 stalin.sc:401:10898 */ /* x56756 stalin.sc:401:10902 */ /* x56757 stalin.sc:401:10905 */ /* x56758 stalin.sc:401:10908 */ /* x56759 stalin.sc:401:10912 */ /* x56760 stalin.sc:401:10916 */ /* x56761 stalin.sc:401:10920 */ t84207 = 0; /* x56713 stalin.sc:397:10657 */ t84208.tag = FALSE_TYPE; t84209.tag = FALSE_TYPE; t84210.tag = FALSE_TYPE; t84211.tag = FALSE_TYPE; t84212.tag = EXTERNAL_SYMBOL_TYPE; t84212.value.external_symbol_type = t84196; t84213.tag = EXTERNAL_SYMBOL_TYPE; t84213.value.external_symbol_type = t84197; t84214.tag = EXTERNAL_SYMBOL_TYPE; t84214.value.external_symbol_type = t84198; t84215.tag = EXTERNAL_SYMBOL_TYPE; t84215.value.external_symbol_type = t84199; t84216.tag = EXTERNAL_SYMBOL_TYPE; t84216.value.external_symbol_type = t84200; t84217.tag = EXTERNAL_SYMBOL_TYPE; t84217.value.external_symbol_type = t84201; t84218.tag = EXTERNAL_SYMBOL_TYPE; t84218.value.external_symbol_type = t84202; t84219.tag = EXTERNAL_SYMBOL_TYPE; t84219.value.external_symbol_type = t84203; t84220.tag = EXTERNAL_SYMBOL_TYPE; t84220.value.external_symbol_type = t84204; t84221.tag = EXTERNAL_SYMBOL_TYPE; t84221.value.external_symbol_type = t84205; t84222.tag = FALSE_TYPE; t84181 = f5485(t84190, t84208, t84209, t84210, t84211, t84191, t84192, t84193, t84194, t84195, t84212, t84213, t84214, t84215, t84216, t84217, t84218, t84219, t84220, t84221, t84222, t84206, t84207); l16139: l16136: /* x56582 */ a20840 = t84181; /* x56581 */ /* x56575 stalin.sc:402:10929 */ /* x56574 stalin.sc:402:10940 */ /* x56572 stalin.sc:402:10943 */ t84182 = a2032; /* x56573 stalin.sc:402:10948 */ t84183 = 1; /* x270773 stalin.sc:402:10941 */ if (!((t84182&1)==1)) {backtrace("stalin.sc", 402, 10940); plus_error();} a2032 = (((unsigned)(((int)(((int)t84182)>>1))+t84183))<<1)+1; /* x56580 stalin.sc:403:10954 */ /* x56579 stalin.sc:403:10965 */ /* x56577 stalin.sc:403:10971 */ t84184 = a20840; /* x56578 stalin.sc:403:10973 */ t84185 = a2031; /* x270772 stalin.sc:403:10966 */ a2031.tag = STRUCTURE_TYPE24753; a2031.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a2031.value.structure_type24753)==NULL) {backtrace("stalin.sc", 403, 10965); out_of_memory_error();} a2031.value.structure_type24753->s0.tag = STRUCTURE_TYPE27698; a2031.value.structure_type24753->s0.value.structure_type27698 = t84184; a2031.value.structure_type24753->s1 = *((struct w49 *)(&t84185)); /* x56570 */ /* x56569 stalin.sc:404:10982 */ return a20840;} /* CREATE-ANONYMOUS-S-EXPRESSION[6868] */ struct structure_type27510 *f6868(struct w49 a20827) {char *t84316; char *t84317; char *t84318; struct w49 t84319; struct w49 t84320; struct w6194 t84321; struct w6194 t84322; struct w6194 t84323; struct w12224 t84324; /* x56518 stalin.sc:345:9047 */ /* x56509 stalin.sc:345:9068 */ /* x56511 stalin.sc:345:9071 */ /* x56510 stalin.sc:345:9072 */ /* x278045 stalin.sc:321:8572 */ t84316 = q34; /* x56513 stalin.sc:345:9080 */ /* x56512 stalin.sc:345:9081 */ /* x278047 stalin.sc:321:8572 */ t84317 = q34; /* x56515 stalin.sc:345:9089 */ /* x56514 stalin.sc:345:9090 */ /* x278049 stalin.sc:321:8572 */ t84318 = q34; /* x56516 stalin.sc:345:9098 */ /* x56517 stalin.sc:345:9102 */ t84319 = a20827; /* x56508 stalin.sc:345:9048 */ t84320.tag = FALSE_TYPE; t84321.tag = EXTERNAL_SYMBOL_TYPE; t84321.value.external_symbol_type = t84316; t84322.tag = EXTERNAL_SYMBOL_TYPE; t84322.value.external_symbol_type = t84317; t84323.tag = EXTERNAL_SYMBOL_TYPE; t84323.value.external_symbol_type = t84318; t84324.tag = NULL_TYPE; return f6867(t84320, t84321, t84322, t84323, t84324, t84319);} /* CREATE-S-EXPRESSION[6867] */ struct structure_type27510 *f6867(struct w49 a20821, struct w6194 a20822, struct w6194 a20823, struct w6194 a20824, struct w12224 a20825, struct w49 a20826) {struct structure_type27510 *r6867; struct w49 a18823; /* PATHNAME */ struct w6194 a18824; /* LINE-POSITION */ struct w6194 a18825; /* CHARACTER-POSITION */ struct w6194 a18826; /* CHARACTER-POSITION-WITHIN-LINE */ struct w12224 a18827; /* COMMENTS */ struct w49 a18830; /* DATUM */ struct w49 t84325; struct w6194 t84326; struct w6194 t84327; struct w6194 t84328; struct w12224 t84329; struct w49 t84330; struct w49 t84331; struct w6194 t84332; struct w6194 t84333; struct w6194 t84334; struct w12224 t84335; struct w49 t84336; /* x56505 stalin.sc:333:8805 */ /* x56494 stalin.sc:333:8824 */ /* x56493 stalin.sc:333:8825 */ /* x294875 stalin.sc:46:1719 */ /* x56496 stalin.sc:334:8843 */ /* x56495 stalin.sc:334:8844 */ /* x294893 stalin.sc:44:1693 */ /* x56497 stalin.sc:335:8861 */ t84325 = a20821; /* x56498 stalin.sc:336:8876 */ t84326 = a20822; /* x56499 stalin.sc:337:8896 */ t84327 = a20823; /* x56500 stalin.sc:338:8921 */ t84328 = a20824; /* x56501 stalin.sc:339:8958 */ t84329 = a20825; /* x56502 stalin.sc:340:8973 */ /* x56503 stalin.sc:341:8982 */ /* x56504 stalin.sc:342:8991 */ t84330 = a20826; /* x56492 stalin.sc:333:8806 */ a18823 = t84325; a18824 = t84326; a18825 = t84327; a18826 = t84328; a18827 = t84329; a18830 = t84330; /* x49111 */ /* x49101 */ /* x49102 */ /* x49103 */ t84331 = a18823; /* x49104 */ t84332 = a18824; /* x49105 */ t84333 = a18825; /* x49106 */ t84334 = a18826; /* x49107 */ t84335 = a18827; /* x49108 */ /* x49109 */ /* x49110 */ t84336 = a18830; /* x49100 */ r6867 = (struct structure_type27510 *)GC_malloc(sizeof(struct structure_type27510)); if (r6867==NULL) {backtrace_internal("MAKE-S-EXPRESSION[5385]"); out_of_memory_error();} r6867->s2 = t84331; r6867->s3 = t84332; r6867->s4 = t84333; r6867->s5 = t84334; r6867->s6 = t84335; r6867->s7 = (struct structure_type27510 *)FALSE_TYPE; r6867->s8.tag = FALSE_TYPE; r6867->s9 = t84336; return r6867;} /* MAKE-CALL-SITE[6847] */ struct structure_type27745 *f6847(struct w49 a20798, struct structure_type24753 *a20799) {struct structure_type27745 *r6847; struct w49 t84337; struct structure_type24753 *t84338; /* x56394 */ /* x56392 */ t84337 = a20798; /* x56393 */ t84338 = a20799; /* x56391 */ r6847 = (struct structure_type27745 *)GC_malloc(sizeof(struct structure_type27745)); if (r6847==NULL) {backtrace_internal("MAKE-CALL-SITE[6847]"); out_of_memory_error();} r6847->s0 = t84337; r6847->s1 = t84338; return r6847;} /* SET-ENVIRONMENT-BOOLEANS![6840] */ void f6840(struct w49 a20789, int a20790) {struct w49 t84339; int t84340; /* x56360 */ /* x56358 */ t84339 = a20789; /* x56359 */ t84340 = a20790; /* x56357 */ if ((t84339.tag)==STRUCTURE_TYPE27694) {t84339.value.structure_type27694->s26 = t84340; return;} backtrace_internal("SET-ENVIRONMENT-BOOLEANS![6840]"); structure_set_error();} /* SET-ENVIRONMENT-NON-SELF-TAIL-CALL-SITES![6832] */ void f6832(struct w49 a20779, struct w11873 a20780) {struct w49 t84341; struct w11873 t84342; /* x56321 */ /* x56319 */ t84341 = a20779; /* x56320 */ t84342 = a20780; /* x56318 */ if ((t84341.tag)==STRUCTURE_TYPE27694) {t84341.value.structure_type27694->s25 = t84342; return;} backtrace_internal("SET-ENVIRONMENT-NON-SELF-TAIL-CALL-SITES![6832]"); structure_set_error();} /* SET-ENVIRONMENT-ESCAPING-TYPES![6824] */ void f6824(struct w49 a20769, struct w49 a20770) {struct w49 t84343; struct w49 t84344; /* x56282 */ /* x56280 */ t84343 = a20769; /* x56281 */ t84344 = a20770; /* x56279 */ if ((t84343.tag)==STRUCTURE_TYPE27694) {t84343.value.structure_type27694->s24 = t84344; return;} backtrace_internal("SET-ENVIRONMENT-ESCAPING-TYPES![6824]"); structure_set_error();} /* SET-ENVIRONMENT-CONTINUATION-CALLS![6816] */ void f6816(struct w49 a20759, struct w11873 a20760) {struct w49 t84345; struct w11873 t84346; /* x56243 */ /* x56241 */ t84345 = a20759; /* x56242 */ t84346 = a20760; /* x56240 */ if ((t84345.tag)==STRUCTURE_TYPE27694) {t84345.value.structure_type27694->s23 = t84346; return;} backtrace_internal("SET-ENVIRONMENT-CONTINUATION-CALLS![6816]"); structure_set_error();} /* SET-ENVIRONMENT-EXPRESSIONS![6808] */ void f6808(struct w49 a20749, struct w11873 a20750) {struct w49 t84347; struct w11873 t84348; /* x56204 */ /* x56202 */ t84347 = a20749; /* x56203 */ t84348 = a20750; /* x56201 */ if ((t84347.tag)==STRUCTURE_TYPE27694) {t84347.value.structure_type27694->s22 = t84348; return;} backtrace_internal("SET-ENVIRONMENT-EXPRESSIONS![6808]"); structure_set_error();} /* SET-ENVIRONMENT-DIRECT-NON-TAIL-CALLEES![6792] */ void f6792(struct w49 a20729, struct w3457 a20730) {struct w49 t84349; struct w3457 t84350; /* x56126 */ /* x56124 */ t84349 = a20729; /* x56125 */ t84350 = a20730; /* x56123 */ if ((t84349.tag)==STRUCTURE_TYPE27694) {t84349.value.structure_type27694->s20 = t84350; return;} backtrace_internal("SET-ENVIRONMENT-DIRECT-NON-TAIL-CALLEES![6792]"); structure_set_error();} /* SET-ENVIRONMENT-DIRECT-TAIL-CALLEES![6784] */ void f6784(struct w49 a20719, struct w3457 a20720) {struct w49 t84351; struct w3457 t84352; /* x56087 */ /* x56085 */ t84351 = a20719; /* x56086 */ t84352 = a20720; /* x56084 */ if ((t84351.tag)==STRUCTURE_TYPE27694) {t84351.value.structure_type27694->s19 = t84352; return;} backtrace_internal("SET-ENVIRONMENT-DIRECT-TAIL-CALLEES![6784]"); structure_set_error();} /* SET-ENVIRONMENT-DIRECT-NON-TAIL-CALLERS![6776] */ void f6776(struct w49 a20709, struct w3457 a20710) {struct w49 t84353; struct w3457 t84354; /* x56048 */ /* x56046 */ t84353 = a20709; /* x56047 */ t84354 = a20710; /* x56045 */ if ((t84353.tag)==STRUCTURE_TYPE27694) {t84353.value.structure_type27694->s18 = t84354; return;} backtrace_internal("SET-ENVIRONMENT-DIRECT-NON-TAIL-CALLERS![6776]"); structure_set_error();} /* SET-ENVIRONMENT-DIRECT-TAIL-CALLERS![6768] */ void f6768(struct w49 a20699, struct w3457 a20700) {struct w49 t84355; struct w3457 t84356; /* x56009 */ /* x56007 */ t84355 = a20699; /* x56008 */ t84356 = a20700; /* x56006 */ if ((t84355.tag)==STRUCTURE_TYPE27694) {t84355.value.structure_type27694->s17 = t84356; return;} backtrace_internal("SET-ENVIRONMENT-DIRECT-TAIL-CALLERS![6768]"); structure_set_error();} /* SET-ENVIRONMENT-WIDE-PROTOTYPE![6760] */ void f6760(struct w49 a20689, struct w49 a20690) {struct w49 t84357; struct w49 t84358; /* x55970 */ /* x55968 */ t84357 = a20689; /* x55969 */ t84358 = a20690; /* x55967 */ if ((t84357.tag)==STRUCTURE_TYPE27694) {t84357.value.structure_type27694->s16 = t84358; return;} backtrace_internal("SET-ENVIRONMENT-WIDE-PROTOTYPE![6760]"); structure_set_error();} /* SET-ENVIRONMENT-NARROW-CLONES![6752] */ void f6752(struct w49 a20679, struct w12224 a20680) {struct w49 t84359; struct w12224 t84360; /* x55931 */ /* x55929 */ t84359 = a20679; /* x55930 */ t84360 = a20680; /* x55928 */ if ((t84359.tag)==STRUCTURE_TYPE27694) {t84359.value.structure_type27694->s15 = *((struct w11873 *)(&t84360)); return;} backtrace_internal("SET-ENVIRONMENT-NARROW-CLONES![6752]"); structure_set_error();} /* SET-ENVIRONMENT-NARROW-PROTOTYPE![6744] */ void f6744(struct w49 a20669, struct w49 a20670) {struct w49 t84361; struct w49 t84362; /* x55892 */ /* x55890 */ t84361 = a20669; /* x55891 */ t84362 = a20670; /* x55889 */ if ((t84361.tag)==STRUCTURE_TYPE27694) {t84361.value.structure_type27694->s14 = t84362; return;} backtrace_internal("SET-ENVIRONMENT-NARROW-PROTOTYPE![6744]"); structure_set_error();} /* SET-ENVIRONMENT-PROPERLY-IN-LINED-ENVIRONMENTS![6736] */ void f6736(struct w49 a20659, struct structure_type24753 *a20660) {struct w49 t84363; struct structure_type24753 *t84364; /* x55853 */ /* x55851 */ t84363 = a20659; /* x55852 */ t84364 = a20660; /* x55850 */ if ((t84363.tag)==STRUCTURE_TYPE27694) {/* MOVE: branching squeezed to general */ if (t84364>=((struct structure_type24753 *)VALUE_OFFSET)) {t84363.value.structure_type27694->s13.tag = STRUCTURE_TYPE24753; t84363.value.structure_type27694->s13.value.structure_type24753 = t84364;} else t84363.value.structure_type27694->s13.tag = (unsigned)t84364; return;} backtrace_internal("SET-ENVIRONMENT-PROPERLY-IN-LINED-ENVIRONMENTS![6736]"); structure_set_error();} /* SET-ENVIRONMENT-DESCENDENTS![6728] */ void f6728(struct w49 a20649, struct structure_type24753 *a20650) {struct w49 t84365; struct structure_type24753 *t84366; /* x55814 */ /* x55812 */ t84365 = a20649; /* x55813 */ t84366 = a20650; /* x55811 */ if ((t84365.tag)==STRUCTURE_TYPE27694) {/* MOVE: branching squeezed to general */ if (t84366>=((struct structure_type24753 *)VALUE_OFFSET)) {t84365.value.structure_type27694->s12.tag = STRUCTURE_TYPE24753; t84365.value.structure_type27694->s12.value.structure_type24753 = t84366;} else t84365.value.structure_type27694->s12.tag = (unsigned)t84366; return;} backtrace_internal("SET-ENVIRONMENT-DESCENDENTS![6728]"); structure_set_error();} /* SET-ENVIRONMENT-ANCESTORS![6720] */ void f6720(struct w49 a20639, struct w3457 a20640) {struct w49 t84367; struct w3457 t84368; /* x55775 */ /* x55773 */ t84367 = a20639; /* x55774 */ t84368 = a20640; /* x55772 */ if ((t84367.tag)==STRUCTURE_TYPE27694) {t84367.value.structure_type27694->s11 = t84368; return;} backtrace_internal("SET-ENVIRONMENT-ANCESTORS![6720]"); structure_set_error();} /* SET-ENVIRONMENT-PARENT-SLOT![6712] */ void f6712(struct w49 a20629, struct w49 a20630) {struct w49 t84369; struct w49 t84370; /* x55736 */ /* x55734 */ t84369 = a20629; /* x55735 */ t84370 = a20630; /* x55733 */ if ((t84369.tag)==STRUCTURE_TYPE27694) {t84369.value.structure_type27694->s10 = t84370; return;} backtrace_internal("SET-ENVIRONMENT-PARENT-SLOT![6712]"); structure_set_error();} /* SET-ENVIRONMENT-PARENT-PARAMETER![6704] */ void f6704(struct w49 a20619, struct w49 a20620) {struct w49 t84371; struct w49 t84372; /* x55697 */ /* x55695 */ t84371 = a20619; /* x55696 */ t84372 = a20620; /* x55694 */ if ((t84371.tag)==STRUCTURE_TYPE27694) {t84371.value.structure_type27694->s9 = t84372; return;} backtrace_internal("SET-ENVIRONMENT-PARENT-PARAMETER![6704]"); structure_set_error();} /* SET-ENVIRONMENT-FREE-VARIABLES![6688] */ void f6688(struct w49 a20599, struct w3457 a20600) {struct w49 t84373; struct w3457 t84374; /* x55619 */ /* x55617 */ t84373 = a20599; /* x55618 */ t84374 = a20600; /* x55616 */ if ((t84373.tag)==STRUCTURE_TYPE27694) {t84373.value.structure_type27694->s7 = t84374; return;} backtrace_internal("SET-ENVIRONMENT-FREE-VARIABLES![6688]"); structure_set_error();} /* SET-ENVIRONMENT-CALL-SITES![6664] */ void f6664(struct w49 a20569, struct structure_type24753 *a20570) {struct w49 t84375; struct structure_type24753 *t84376; /* x55502 */ /* x55500 */ t84375 = a20569; /* x55501 */ t84376 = a20570; /* x55499 */ if ((t84375.tag)==STRUCTURE_TYPE27694) {t84375.value.structure_type27694->s4 = t84376; return;} backtrace_internal("SET-ENVIRONMENT-CALL-SITES![6664]"); structure_set_error();} /* SET-ENVIRONMENT-SPLIT![6656] */ void f6656(struct w49 a20559, char *a20560) {struct w49 t84377; char *t84378; /* x55463 */ /* x55461 */ t84377 = a20559; /* x55462 */ t84378 = a20560; /* x55460 */ if ((t84377.tag)==STRUCTURE_TYPE27694) {t84377.value.structure_type27694->s3 = t84378; return;} backtrace_internal("SET-ENVIRONMENT-SPLIT![6656]"); structure_set_error();} /* ENVIRONMENT-NAME[6647] */ char *f6647(struct w49 a20548) {struct w49 t84379; /* x55418 */ /* x55417 */ t84379 = a20548; /* x55416 */ if ((t84379.tag)==STRUCTURE_TYPE27694) return t84379.value.structure_type27694->s2; backtrace_internal("ENVIRONMENT-NAME[6647]"); structure_ref_error();} /* SET-ENVIRONMENT-EXPRESSION![6640] */ void f6640(struct w9140 a20539, struct structure_type27698 *a20540) {struct w9140 t84380; struct structure_type27698 *t84381; /* x55385 */ /* x55383 */ t84380 = a20539; /* x55384 */ t84381 = a20540; /* x55382 */ if ((t84380.tag)==STRUCTURE_TYPE27694) {t84380.value.structure_type27694->s1.tag = STRUCTURE_TYPE27698; t84380.value.structure_type27694->s1.value.structure_type27698 = t84381; return;} backtrace_internal("SET-ENVIRONMENT-EXPRESSION![6640]"); structure_set_error();} /* SET-VARIABLE-BOOLEANS![6622] */ void f6622(struct w49 a20491, int a20492) {struct w49 t84382; int t84383; /* x55271 */ /* x55269 */ t84382 = a20491; /* x55270 */ t84383 = a20492; /* x55268 */ if ((t84382.tag)==STRUCTURE_TYPE27692) {t84382.value.structure_type27692->s13 = t84383; return;} backtrace_internal("SET-VARIABLE-BOOLEANS![6622]"); structure_set_error();} /* SET-VARIABLE-REFERENCES![6614] */ void f6614(struct w49 a20481, struct w12224 a20482) {struct w49 t84384; struct w12224 t84385; /* x55232 */ /* x55230 */ t84384 = a20481; /* x55231 */ t84385 = a20482; /* x55229 */ if ((t84384.tag)==STRUCTURE_TYPE27692) {t84384.value.structure_type27692->s12 = t84385; return;} backtrace_internal("SET-VARIABLE-REFERENCES![6614]"); structure_set_error();} /* SET-VARIABLE-ASSIGNMENTS![6606] */ void f6606(struct w49 a20471, struct w12224 a20472) {struct w49 t84386; struct w12224 t84387; /* x55193 */ /* x55191 */ t84386 = a20471; /* x55192 */ t84387 = a20472; /* x55190 */ if ((t84386.tag)==STRUCTURE_TYPE27692) {t84386.value.structure_type27692->s11 = t84387; return;} backtrace_internal("SET-VARIABLE-ASSIGNMENTS![6606]"); structure_set_error();} /* SET-VARIABLE-ACCESSES![6598] */ void f6598(struct w49 a20461, struct w12224 a20462) {struct w49 t84388; struct w12224 t84389; /* x55154 */ /* x55152 */ t84388 = a20461; /* x55153 */ t84389 = a20462; /* x55151 */ if ((t84388.tag)==STRUCTURE_TYPE27692) {t84388.value.structure_type27692->s10 = t84389; return;} backtrace_internal("SET-VARIABLE-ACCESSES![6598]"); structure_set_error();} /* SET-VARIABLE-TYPE-SET![6590] */ void f6590(struct w49 a20451, struct w49 a20452) {struct w49 t84390; struct w49 t84391; /* x55115 */ /* x55113 */ t84390 = a20451; /* x55114 */ t84391 = a20452; /* x55112 */ if ((t84390.tag)==STRUCTURE_TYPE27692) {t84390.value.structure_type27692->s9 = t84391; return;} backtrace_internal("SET-VARIABLE-TYPE-SET![6590]"); structure_set_error();} /* SET-VARIABLE-ENVIRONMENT![6582] */ void f6582(struct w49 a20441, struct w49 a20442) {struct w49 t84392; struct w49 t84393; /* x55076 */ /* x55074 */ t84392 = a20441; /* x55075 */ t84393 = a20442; /* x55073 */ if ((t84392.tag)==STRUCTURE_TYPE27692) {t84392.value.structure_type27692->s8 = t84393; return;} backtrace_internal("SET-VARIABLE-ENVIRONMENT![6582]"); structure_set_error();} /* MAKE-VARIABLE[6515] */ struct structure_type27692 *f6515(struct w49 a20347, struct w6194 a20348, struct w6194 a20349, struct w6194 a20350, unsigned a20351, struct w49 a20352, char *a20353, char *a20354, int a20358) {struct structure_type27692 *r6515; struct w49 t84394; struct w6194 t84395; struct w6194 t84396; struct w6194 t84397; unsigned t84398; struct w49 t84399; char *t84400; char *t84401; int t84402; /* x54748 */ /* x54734 */ /* x54735 */ /* x54736 */ t84394 = a20347; /* x54737 */ t84395 = a20348; /* x54738 */ t84396 = a20349; /* x54739 */ t84397 = a20350; /* x54740 */ t84398 = a20351; /* x54741 */ t84399 = a20352; /* x54742 */ t84400 = a20353; /* x54743 */ t84401 = a20354; /* x54744 */ /* x54745 */ /* x54746 */ /* x54747 */ t84402 = a20358; /* x54733 */ r6515 = (struct structure_type27692 *)GC_malloc(sizeof(struct structure_type27692)); if (r6515==NULL) {backtrace_internal("MAKE-VARIABLE[6515]"); out_of_memory_error();} r6515->s2 = t84394; r6515->s3 = t84395; r6515->s4 = t84396; r6515->s5 = t84397; r6515->s6 = t84398; r6515->s7 = t84399; r6515->s8.tag = EXTERNAL_SYMBOL_TYPE; r6515->s8.value.external_symbol_type = t84400; r6515->s9.tag = EXTERNAL_SYMBOL_TYPE; r6515->s9.value.external_symbol_type = t84401; r6515->s10.tag = NULL_TYPE; r6515->s11.tag = NULL_TYPE; r6515->s12.tag = NULL_TYPE; r6515->s13 = t84402; return r6515;} /* SET-TYPE-SET-BOOLEANS![6508] */ void f6508(struct w49 a20336, int a20337) {struct w49 t84403; int t84404; /* x54702 */ /* x54700 */ t84403 = a20336; /* x54701 */ t84404 = a20337; /* x54699 */ if ((t84403.tag)==STRUCTURE_TYPE27650) {t84403.value.structure_type27650->s5 = t84404; return;} backtrace_internal("SET-TYPE-SET-BOOLEANS![6508]"); structure_set_error();} /* TYPE-SET-INDEX[6499] */ struct w7121 f6499(struct w49 a20325) {struct w49 t84405; /* x54657 */ /* x54656 */ t84405 = a20325; /* x54655 */ if ((t84405.tag)==STRUCTURE_TYPE27650) return t84405.value.structure_type27650->s4; backtrace_internal("TYPE-SET-INDEX[6499]"); structure_ref_error();} /* SET-TYPE-SET-MINIMAL-ALIGNMENT![6492] */ void f6492(struct w49 a20316, struct w49 a20317) {struct w49 t84406; struct w49 t84407; /* x54624 */ /* x54622 */ t84406 = a20316; /* x54623 */ t84407 = a20317; /* x54621 */ if ((t84406.tag)==STRUCTURE_TYPE27650) {t84406.value.structure_type27650->s3 = t84407; return;} backtrace_internal("SET-TYPE-SET-MINIMAL-ALIGNMENT![6492]"); structure_set_error();} /* SET-TYPE-SET-LINK![6484] */ void f6484(struct w49 a20306, struct w49 a20307) {struct w49 t84408; struct w49 t84409; /* x54585 */ /* x54583 */ t84408 = a20306; /* x54584 */ t84409 = a20307; /* x54582 */ if ((t84408.tag)==STRUCTURE_TYPE27650) {t84408.value.structure_type27650->s2 = t84409; return;} backtrace_internal("SET-TYPE-SET-LINK![6484]"); structure_set_error();} /* SET-TYPE-SET-RED-BLACK-TREE-NODE![6476] */ void f6476(struct w49 a20296, struct structure_type27657 *a20297) {struct w49 t84410; struct structure_type27657 *t84411; /* x54546 */ /* x54544 */ t84410 = a20296; /* x54545 */ t84411 = a20297; /* x54543 */ if ((t84410.tag)==STRUCTURE_TYPE27650) {t84410.value.structure_type27650->s1 = t84411; return;} backtrace_internal("SET-TYPE-SET-RED-BLACK-TREE-NODE![6476]"); structure_set_error();} /* MAKE-TYPE-SET[6465] */ struct structure_type27650 *f6465(struct w49 a20278, char *a20280, int a20281, struct w7121 a20282, int a20283) {struct structure_type27650 *r6465; struct w49 t84412; char *t84413; int t84414; struct w7121 t84415; int t84416; /* x54491 */ /* x54485 */ t84412 = a20278; /* x54486 */ /* x54487 */ t84413 = a20280; /* x54488 */ t84414 = a20281; /* x54489 */ t84415 = a20282; /* x54490 */ t84416 = a20283; /* x54484 */ r6465 = (struct structure_type27650 *)GC_malloc(sizeof(struct structure_type27650)); if (r6465==NULL) {backtrace_internal("MAKE-TYPE-SET[6465]"); out_of_memory_error();} r6465->s0 = t84412; r6465->s1 = (struct structure_type27657 *)FALSE_TYPE; r6465->s2.tag = EXTERNAL_SYMBOL_TYPE; r6465->s2.value.external_symbol_type = t84413; r6465->s3.tag = FIXNUM_TYPE; r6465->s3.value.fixnum_type = t84414; r6465->s4 = t84415; r6465->s5 = t84416; return r6465;} /* SET-RED-BLACK-TREE-NODE-RED?![6458] */ void f6458(struct structure_type27657 *a20269, unsigned a20270) {struct structure_type27657 *t84417; unsigned t84418; /* x54453 */ /* x54451 */ t84417 = a20269; /* x54452 */ t84418 = a20270; /* x54450 */ if (!(t84417>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("SET-RED-BLACK-TREE-NODE-RED?![6458]"); structure_set_error();} t84417->s4 = t84418; return;} /* SET-RED-BLACK-TREE-NODE-RIGHT![6450] */ void f6450(struct structure_type27657 *a20259, struct structure_type27657 *a20260) {struct structure_type27657 *t84419; struct structure_type27657 *t84420; /* x54414 */ /* x54412 */ t84419 = a20259; /* x54413 */ t84420 = a20260; /* x54411 */ if (!(t84419>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("SET-RED-BLACK-TREE-NODE-RIGHT![6450]"); structure_set_error();} t84419->s3 = t84420; return;} /* SET-RED-BLACK-TREE-NODE-LEFT![6442] */ void f6442(struct structure_type27657 *a20249, struct structure_type27657 *a20250) {struct structure_type27657 *t84421; struct structure_type27657 *t84422; /* x54375 */ /* x54373 */ t84421 = a20249; /* x54374 */ t84422 = a20250; /* x54372 */ if (!(t84421>=((struct structure_type27657 *)VALUE_OFFSET))) {backtrace_internal("SET-RED-BLACK-TREE-NODE-LEFT![6442]"); structure_set_error();} t84421->s2 = t84422; return;} /* MAKE-RED-BLACK-TREE-NODE[6423] */ struct structure_type27657 *f6423(struct w49 a20222, unsigned a20223, struct structure_type27657 *a20224, struct structure_type27657 *a20225, unsigned a20226) {struct structure_type27657 *r6423; struct w49 t84423; unsigned t84424; struct structure_type27657 *t84425; struct structure_type27657 *t84426; unsigned t84427; /* x54281 */ /* x54276 */ t84423 = a20222; /* x54277 */ t84424 = a20223; /* x54278 */ t84425 = a20224; /* x54279 */ t84426 = a20225; /* x54280 */ t84427 = a20226; /* x54275 */ r6423 = (struct structure_type27657 *)GC_malloc(sizeof(struct structure_type27657)); if (r6423==NULL) {backtrace_internal("MAKE-RED-BLACK-TREE-NODE[6423]"); out_of_memory_error();} r6423->s0 = t84423; r6423->s1 = t84424; r6423->s2 = t84425; r6423->s3 = t84426; r6423->s4 = t84427; return r6423;} /* SET-DISPLACED-VECTOR-TYPE-BOOLEANS![6416] */ void f6416(struct w49 a20213, int a20214) {struct w49 t84428; int t84429; /* x54244 */ /* x54242 */ t84428 = a20213; /* x54243 */ t84429 = a20214; /* x54241 */ if ((t84428.tag)==STRUCTURE_TYPE27908) {t84428.value.structure_type27908->s5 = t84429; return;} backtrace_internal("SET-DISPLACED-VECTOR-TYPE-BOOLEANS![6416]"); structure_set_error();} /* SET-DISPLACED-VECTOR-TYPE-LINK![6384] */ void f6384(struct w49 a20173, struct w49 a20174) {struct w49 t84430; struct w49 t84431; /* x54088 */ /* x54086 */ t84430 = a20173; /* x54087 */ t84431 = a20174; /* x54085 */ if ((t84430.tag)==STRUCTURE_TYPE27908) {t84430.value.structure_type27908->s1 = t84431; return;} backtrace_internal("SET-DISPLACED-VECTOR-TYPE-LINK![6384]"); structure_set_error();} /* SET-NONHEADED-VECTOR-TYPE-BOOLEANS![6366] */ void f6366(struct w49 a20146, int a20147) {struct w49 t84432; int t84433; /* x53995 */ /* x53993 */ t84432 = a20146; /* x53994 */ t84433 = a20147; /* x53992 */ if ((t84432.tag)==STRUCTURE_TYPE27669) {t84432.value.structure_type27669->s7 = t84433; return;} backtrace_internal("SET-NONHEADED-VECTOR-TYPE-BOOLEANS![6366]"); structure_set_error();} /* SET-NONHEADED-VECTOR-TYPE-LINK![6326] */ void f6326(struct w49 a20096, struct w49 a20097) {struct w49 t84434; struct w49 t84435; /* x53800 */ /* x53798 */ t84434 = a20096; /* x53799 */ t84435 = a20097; /* x53797 */ if ((t84434.tag)==STRUCTURE_TYPE27669) {t84434.value.structure_type27669->s2 = t84435; return;} backtrace_internal("SET-NONHEADED-VECTOR-TYPE-LINK![6326]"); structure_set_error();} /* SET-NONHEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS![6318] */ void f6318(struct w49 a20086, struct w49 a20087) {struct w49 t84436; struct w49 t84437; /* x53761 */ /* x53759 */ t84436 = a20086; /* x53760 */ t84437 = a20087; /* x53758 */ if ((t84436.tag)==STRUCTURE_TYPE27669) {t84436.value.structure_type27669->s1 = t84437; return;} backtrace_internal("SET-NONHEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS![6318]"); structure_set_error();} /* SET-NONHEADED-VECTOR-TYPE-ELEMENT![6310] */ void f6310(struct w49 a20076, struct w49 a20077) {struct w49 t84438; struct w49 t84439; /* x53722 */ /* x53720 */ t84438 = a20076; /* x53721 */ t84439 = a20077; /* x53719 */ if ((t84438.tag)==STRUCTURE_TYPE27669) {t84438.value.structure_type27669->s0 = t84439; return;} backtrace_internal("SET-NONHEADED-VECTOR-TYPE-ELEMENT![6310]"); structure_set_error();} /* SET-HEADED-VECTOR-TYPE-BOOLEANS![6300] */ void f6300(struct w49 a20057, int a20058) {struct w49 t84440; int t84441; /* x53666 */ /* x53664 */ t84440 = a20057; /* x53665 */ t84441 = a20058; /* x53663 */ if ((t84440.tag)==STRUCTURE_TYPE27761) {t84440.value.structure_type27761->s7 = t84441; return;} backtrace_internal("SET-HEADED-VECTOR-TYPE-BOOLEANS![6300]"); structure_set_error();} /* SET-HEADED-VECTOR-TYPE-LINK![6260] */ void f6260(struct w49 a20007, struct w49 a20008) {struct w49 t84442; struct w49 t84443; /* x53471 */ /* x53469 */ t84442 = a20007; /* x53470 */ t84443 = a20008; /* x53468 */ if ((t84442.tag)==STRUCTURE_TYPE27761) {t84442.value.structure_type27761->s2 = t84443; return;} backtrace_internal("SET-HEADED-VECTOR-TYPE-LINK![6260]"); structure_set_error();} /* SET-HEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS![6252] */ void f6252(struct w49 a19997, struct w49 a19998) {struct w49 t84444; struct w49 t84445; /* x53432 */ /* x53430 */ t84444 = a19997; /* x53431 */ t84445 = a19998; /* x53429 */ if ((t84444.tag)==STRUCTURE_TYPE27761) {t84444.value.structure_type27761->s1 = t84445; return;} backtrace_internal("SET-HEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS![6252]"); structure_set_error();} /* SET-HEADED-VECTOR-TYPE-ELEMENT![6244] */ void f6244(struct w49 a19987, struct w49 a19988) {struct w49 t84446; struct w49 t84447; /* x53393 */ /* x53391 */ t84446 = a19987; /* x53392 */ t84447 = a19988; /* x53390 */ if ((t84446.tag)==STRUCTURE_TYPE27761) {t84446.value.structure_type27761->s0 = t84447; return;} backtrace_internal("SET-HEADED-VECTOR-TYPE-ELEMENT![6244]"); structure_set_error();} /* SET-STRUCTURE-TYPE-BOOLEANS![6234] */ void f6234(struct w49 a19968, int a19969) {struct w49 t84448; int t84449; /* x53337 */ /* x53335 */ t84448 = a19968; /* x53336 */ t84449 = a19969; /* x53334 */ if ((t84448.tag)==STRUCTURE_TYPE27769) {t84448.value.structure_type27769->s8 = t84449; return;} backtrace_internal("SET-STRUCTURE-TYPE-BOOLEANS![6234]"); structure_set_error();} /* SET-STRUCTURE-TYPE-LINK![6194] */ void f6194(struct w49 a19918, struct w49 a19919) {struct w49 t84450; struct w49 t84451; /* x53142 */ /* x53140 */ t84450 = a19918; /* x53141 */ t84451 = a19919; /* x53139 */ if ((t84450.tag)==STRUCTURE_TYPE27769) {t84450.value.structure_type27769->s3 = t84451; return;} backtrace_internal("SET-STRUCTURE-TYPE-LINK![6194]"); structure_set_error();} /* SET-STRUCTURE-TYPE-ALLOCATING-EXPRESSIONS![6186] */ void f6186(struct w49 a19908, struct w49 a19909) {struct w49 t84452; struct w49 t84453; /* x53103 */ /* x53101 */ t84452 = a19908; /* x53102 */ t84453 = a19909; /* x53100 */ if ((t84452.tag)==STRUCTURE_TYPE27769) {t84452.value.structure_type27769->s2 = t84453; return;} backtrace_internal("SET-STRUCTURE-TYPE-ALLOCATING-EXPRESSIONS![6186]"); structure_set_error();} /* SET-STRUCTURE-TYPE-SLOTS![6178] */ void f6178(struct w49 a19898, struct w12224 a19899) {struct w49 t84454; struct w12224 t84455; /* x53064 */ /* x53062 */ t84454 = a19898; /* x53063 */ t84455 = a19899; /* x53061 */ if ((t84454.tag)==STRUCTURE_TYPE27769) {t84454.value.structure_type27769->s1 = *((struct w11873 *)(&t84455)); return;} backtrace_internal("SET-STRUCTURE-TYPE-SLOTS![6178]"); structure_set_error();} /* STRUCTURE-TYPE-NAME[6169] */ struct w49 f6169(struct w49 a19887) {struct w49 t84456; /* x53019 */ /* x53018 */ t84456 = a19887; /* x53017 */ if ((t84456.tag)==STRUCTURE_TYPE27769) return t84456.value.structure_type27769->s0; backtrace_internal("STRUCTURE-TYPE-NAME[6169]"); structure_ref_error();} /* SET-STRING-TYPE-BOOLEANS![6160] */ void f6160(struct w49 a19868, int a19869) {struct w49 t84457; int t84458; /* x52968 */ /* x52966 */ t84457 = a19868; /* x52967 */ t84458 = a19869; /* x52965 */ if ((t84457.tag)==STRUCTURE_TYPE27673) {t84457.value.structure_type27673->s6 = t84458; return;} backtrace_internal("SET-STRING-TYPE-BOOLEANS![6160]"); structure_set_error();} /* SET-STRING-TYPE-LINK![6120] */ void f6120(struct w49 a19818, struct w49 a19819) {struct w49 t84459; struct w49 t84460; /* x52773 */ /* x52771 */ t84459 = a19818; /* x52772 */ t84460 = a19819; /* x52770 */ if ((t84459.tag)==STRUCTURE_TYPE27673) {t84459.value.structure_type27673->s1 = t84460; return;} backtrace_internal("SET-STRING-TYPE-LINK![6120]"); structure_set_error();} /* SET-STRING-TYPE-ALLOCATING-EXPRESSIONS![6112] */ void f6112(struct w49 a19808, struct w49 a19809) {struct w49 t84461; struct w49 t84462; /* x52734 */ /* x52732 */ t84461 = a19808; /* x52733 */ t84462 = a19809; /* x52731 */ if ((t84461.tag)==STRUCTURE_TYPE27673) {t84461.value.structure_type27673->s0 = t84462; return;} backtrace_internal("SET-STRING-TYPE-ALLOCATING-EXPRESSIONS![6112]"); structure_set_error();} /* SET-CONTINUATION-TYPE-BOOLEANS![6102] */ void f6102(struct w49 a19790, int a19791) {struct w49 t84463; int t84464; /* x52679 */ /* x52677 */ t84463 = a19790; /* x52678 */ t84464 = a19791; /* x52676 */ if ((t84463.tag)==STRUCTURE_TYPE27858) {t84463.value.structure_type27858->s5 = t84464; return;} backtrace_internal("SET-CONTINUATION-TYPE-BOOLEANS![6102]"); structure_set_error();} /* SET-CONTINUATION-TYPE-CALL-SITES![6086] */ void f6086(struct w49 a19770, struct w3457 a19771) {struct w49 t84465; struct w3457 t84466; /* x52601 */ /* x52599 */ t84465 = a19770; /* x52600 */ t84466 = a19771; /* x52598 */ if ((t84465.tag)==STRUCTURE_TYPE27858) {t84465.value.structure_type27858->s3 = t84466; return;} backtrace_internal("SET-CONTINUATION-TYPE-CALL-SITES![6086]"); structure_set_error();} /* SET-FOREIGN-PROCEDURE-TYPE-BOOLEANS![6052] */ void f6052(struct w49 a19723, int a19724) {struct w49 t84467; int t84468; /* x52430 */ /* x52428 */ t84467 = a19723; /* x52429 */ t84468 = a19724; /* x52427 */ if ((t84467.tag)==STRUCTURE_TYPE27750) {t84467.value.structure_type27750->s7 = t84468; return;} backtrace_internal("SET-FOREIGN-PROCEDURE-TYPE-BOOLEANS![6052]"); structure_set_error();} /* SET-NATIVE-PROCEDURE-TYPE-BOOLEANS![5986] */ void f5986(struct w49 a19634, int a19635) {struct w49 t84469; int t84470; /* x52101 */ /* x52099 */ t84469 = a19634; /* x52100 */ t84470 = a19635; /* x52098 */ if ((t84469.tag)==STRUCTURE_TYPE27756) {t84469.value.structure_type27756->s5 = t84470; return;} backtrace_internal("SET-NATIVE-PROCEDURE-TYPE-BOOLEANS![5986]"); structure_set_error();} /* SET-NATIVE-PROCEDURE-TYPE-CALL-SITE-ENVIRONMENT-ALIST![5946] */ void f5946(struct w49 a19584, struct w12224 a19585) {struct w49 t84471; struct w12224 t84472; /* x51906 */ /* x51904 */ t84471 = a19584; /* x51905 */ t84472 = a19585; /* x51903 */ if ((t84471.tag)==STRUCTURE_TYPE27756) {t84471.value.structure_type27756->s0 = t84472; return;} backtrace_internal("SET-NATIVE-PROCEDURE-TYPE-CALL-SITE-ENVIRONMENT-ALIST![5946]"); structure_set_error();} /* SET-PRIMITIVE-PROCEDURE-TYPE-BOOLEANS![5936] */ void f5936(struct w49 a19567, int a19568) {struct w49 t84473; int t84474; /* x51852 */ /* x51850 */ t84473 = a19567; /* x51851 */ t84474 = a19568; /* x51849 */ if ((t84473.tag)==STRUCTURE_TYPE27753) {t84473.value.structure_type27753->s5 = t84474; return;} backtrace_internal("SET-PRIMITIVE-PROCEDURE-TYPE-BOOLEANS![5936]"); structure_set_error();} /* SET-EXTERNAL-SYMBOL-TYPE-BOOLEANS![5886] */ void f5886(struct w49 a19500, int a19501) {struct w49 t84475; int t84476; /* x51603 */ /* x51601 */ t84475 = a19500; /* x51602 */ t84476 = a19501; /* x51600 */ if ((t84475.tag)==STRUCTURE_TYPE27779) {t84475.value.structure_type27779->s5 = t84476; return;} backtrace_internal("SET-EXTERNAL-SYMBOL-TYPE-BOOLEANS![5886]"); structure_set_error();} /* SET-EXTERNAL-SYMBOL-TYPE-LINK![5854] */ void f5854(struct w49 a19460, struct w49 a19461) {struct w49 t84477; struct w49 t84478; /* x51447 */ /* x51445 */ t84477 = a19460; /* x51446 */ t84478 = a19461; /* x51444 */ if ((t84477.tag)==STRUCTURE_TYPE27779) {t84477.value.structure_type27779->s1 = t84478; return;} backtrace_internal("SET-EXTERNAL-SYMBOL-TYPE-LINK![5854]"); structure_set_error();} /* SET-INTERNAL-SYMBOL-TYPE-BOOLEANS![5836] */ void f5836(struct w49 a19433, int a19434) {struct w49 t84479; int t84480; /* x51354 */ /* x51352 */ t84479 = a19433; /* x51353 */ t84480 = a19434; /* x51351 */ if ((t84479.tag)==STRUCTURE_TYPE27776) {t84479.value.structure_type27776->s4 = t84480; return;} backtrace_internal("SET-INTERNAL-SYMBOL-TYPE-BOOLEANS![5836]"); structure_set_error();} /* MAKE-RESULT[5743] */ struct structure_type27501 *f5743(char *a19308, struct w49 a19309, struct w49 a19310, struct w49 a19311, struct w12563 a19312, struct w12563 a19313, struct w12563 a19314) {struct structure_type27501 *r5743; char *t84481; struct w49 t84482; struct w49 t84483; struct w49 t84484; struct w12563 t84485; struct w12563 t84486; struct w12563 t84487; /* x50895 */ /* x50888 */ t84481 = a19308; /* x50889 */ t84482 = a19309; /* x50890 */ t84483 = a19310; /* x50891 */ t84484 = a19311; /* x50892 */ t84485 = a19312; /* x50893 */ t84486 = a19313; /* x50894 */ t84487 = a19314; /* x50887 */ r5743 = (struct structure_type27501 *)GC_malloc(sizeof(struct structure_type27501)); if (r5743==NULL) {backtrace_internal("MAKE-RESULT[5743]"); out_of_memory_error();} r5743->s0 = t84481; r5743->s1 = t84482; r5743->s2 = t84483; r5743->s3 = t84484; r5743->s4 = t84485; r5743->s5 = t84486; r5743->s6 = t84487; return r5743;} /* SET-EXPRESSION-BOOLEANS![5736] */ void f5736(struct w49 a19299, int a19300) {struct w49 t84488; int t84489; /* x50856 */ /* x50854 */ t84488 = a19299; /* x50855 */ t84489 = a19300; /* x50853 */ if ((t84488.tag)==STRUCTURE_TYPE27698) {t84488.value.structure_type27698->s31 = t84489; return;} backtrace_internal("SET-EXPRESSION-BOOLEANS![5736]"); structure_set_error();} /* SET-EXPRESSION-HEADED-VECTOR-TYPES![5720] */ void f5720(struct w49 a19279, struct structure_type24753 *a19280) {struct w49 t84490; struct structure_type24753 *t84491; /* x50778 */ /* x50776 */ t84490 = a19279; /* x50777 */ t84491 = a19280; /* x50775 */ if ((t84490.tag)==STRUCTURE_TYPE27698) {t84490.value.structure_type27698->s29 = t84491; return;} backtrace_internal("SET-EXPRESSION-HEADED-VECTOR-TYPES![5720]"); structure_set_error();} /* SET-EXPRESSION-STRUCTURE-TYPES![5712] */ void f5712(struct w49 a19269, struct structure_type24753 *a19270) {struct w49 t84492; struct structure_type24753 *t84493; /* x50739 */ /* x50737 */ t84492 = a19269; /* x50738 */ t84493 = a19270; /* x50736 */ if ((t84492.tag)==STRUCTURE_TYPE27698) {t84492.value.structure_type27698->s28 = t84493; return;} backtrace_internal("SET-EXPRESSION-STRUCTURE-TYPES![5712]"); structure_set_error();} /* SET-EXPRESSION-STRING-TYPE![5704] */ void f5704(struct w49 a19259, struct structure_type27673 *a19260) {struct w49 t84494; struct structure_type27673 *t84495; /* x50700 */ /* x50698 */ t84494 = a19259; /* x50699 */ t84495 = a19260; /* x50697 */ if ((t84494.tag)==STRUCTURE_TYPE27698) {t84494.value.structure_type27698->s27 = t84495; return;} backtrace_internal("SET-EXPRESSION-STRING-TYPE![5704]"); structure_set_error();} /* SET-EXPRESSION-CONTINUATION-TYPE![5696] */ void f5696(struct w49 a19249, struct structure_type27858 *a19250) {struct w49 t84496; struct structure_type27858 *t84497; /* x50661 */ /* x50659 */ t84496 = a19249; /* x50660 */ t84497 = a19250; /* x50658 */ if ((t84496.tag)==STRUCTURE_TYPE27698) {t84496.value.structure_type27698->s26 = t84497; return;} backtrace_internal("SET-EXPRESSION-CONTINUATION-TYPE![5696]"); structure_set_error();} /* SET-EXPRESSION-TYPE-ALLOCATION-ALIST![5688] */ void f5688(struct w49 a19239, struct w12224 a19240) {struct w49 t84498; struct w12224 t84499; /* x50622 */ /* x50620 */ t84498 = a19239; /* x50621 */ t84499 = a19240; /* x50619 */ if ((t84498.tag)==STRUCTURE_TYPE27698) {t84498.value.structure_type27698->s25 = t84499; return;} backtrace_internal("SET-EXPRESSION-TYPE-ALLOCATION-ALIST![5688]"); structure_set_error();} /* SET-EXPRESSION-RESULT![5680] */ void f5680(struct w49 a19229, struct structure_type27501 *a19230) {struct w49 t84500; struct structure_type27501 *t84501; /* x50583 */ /* x50581 */ t84500 = a19229; /* x50582 */ t84501 = a19230; /* x50580 */ if ((t84500.tag)==STRUCTURE_TYPE27698) {/* MOVE: branching squeezed to general */ if (t84501>=((struct structure_type27501 *)VALUE_OFFSET)) {t84500.value.structure_type27698->s24.tag = STRUCTURE_TYPE27501; t84500.value.structure_type27698->s24.value.structure_type27501 = t84501;} else t84500.value.structure_type27698->s24.tag = (unsigned)t84501; return;} backtrace_internal("SET-EXPRESSION-RESULT![5680]"); structure_set_error();} /* SET-EXPRESSION-ARGUMENTS![5664] */ void f5664(struct w49 a19209, struct w12224 a19210) {struct w49 t84502; struct w12224 t84503; /* x50505 */ /* x50503 */ t84502 = a19209; /* x50504 */ t84503 = a19210; /* x50502 */ if ((t84502.tag)==STRUCTURE_TYPE27698) {t84502.value.structure_type27698->s22 = *((struct w11873 *)(&t84503)); return;} backtrace_internal("SET-EXPRESSION-ARGUMENTS![5664]"); structure_set_error();} /* SET-EXPRESSION-CALLEE![5656] */ void f5656(struct w49 a19199, struct w6852 a19200) {struct w49 t84504; struct w6852 t84505; /* x50466 */ /* x50464 */ t84504 = a19199; /* x50465 */ t84505 = a19200; /* x50463 */ if ((t84504.tag)==STRUCTURE_TYPE27698) {t84504.value.structure_type27698->s21 = *((struct w49 *)(&t84505)); return;} backtrace_internal("SET-EXPRESSION-CALLEE![5656]"); structure_set_error();} /* SET-EXPRESSION-ALTERNATE![5648] */ void f5648(struct w49 a19189, struct w6852 a19190) {struct w49 t84506; struct w6852 t84507; /* x50427 */ /* x50425 */ t84506 = a19189; /* x50426 */ t84507 = a19190; /* x50424 */ if ((t84506.tag)==STRUCTURE_TYPE27698) {t84506.value.structure_type27698->s20 = *((struct w49 *)(&t84507)); return;} backtrace_internal("SET-EXPRESSION-ALTERNATE![5648]"); structure_set_error();} /* SET-EXPRESSION-CONSEQUENT![5640] */ void f5640(struct w49 a19179, struct w6852 a19180) {struct w49 t84508; struct w6852 t84509; /* x50388 */ /* x50386 */ t84508 = a19179; /* x50387 */ t84509 = a19180; /* x50385 */ if ((t84508.tag)==STRUCTURE_TYPE27698) {t84508.value.structure_type27698->s19 = *((struct w49 *)(&t84509)); return;} backtrace_internal("SET-EXPRESSION-CONSEQUENT![5640]"); structure_set_error();} /* SET-EXPRESSION-ANTECEDENT![5632] */ void f5632(struct w49 a19169, struct w6852 a19170) {struct w49 t84510; struct w6852 t84511; /* x50349 */ /* x50347 */ t84510 = a19169; /* x50348 */ t84511 = a19170; /* x50346 */ if ((t84510.tag)==STRUCTURE_TYPE27698) {t84510.value.structure_type27698->s18 = *((struct w49 *)(&t84511)); return;} backtrace_internal("SET-EXPRESSION-ANTECEDENT![5632]"); structure_set_error();} /* SET-EXPRESSION-BODY![5608] */ void f5608(struct w49 a19139, struct w225099 a19140) {struct w49 t84512; struct w225099 t84513; /* x50232 */ /* x50230 */ t84512 = a19139; /* x50231 */ t84513 = a19140; /* x50229 */ if ((t84512.tag)==STRUCTURE_TYPE27698) {t84512.value.structure_type27698->s15 = *((struct w49 *)(&t84513)); return;} backtrace_internal("SET-EXPRESSION-BODY![5608]"); structure_set_error();} /* SET-EXPRESSION-PARAMETERS![5600] */ void f5600(struct w49 a19129, struct w11873 a19130) {struct w49 t84514; struct w11873 t84515; /* x50193 */ /* x50191 */ t84514 = a19129; /* x50192 */ t84515 = a19130; /* x50190 */ if ((t84514.tag)==STRUCTURE_TYPE27698) {t84514.value.structure_type27698->s14 = *((struct w9296 *)(&t84515)); return;} backtrace_internal("SET-EXPRESSION-PARAMETERS![5600]"); structure_set_error();} /* SET-EXPRESSION-PARENT![5576] */ void f5576(struct w49 a19099, struct w49 a19100) {struct w49 t84516; struct w49 t84517; /* x50076 */ /* x50074 */ t84516 = a19099; /* x50075 */ t84517 = a19100; /* x50073 */ if ((t84516.tag)==STRUCTURE_TYPE27698) {t84516.value.structure_type27698->s11 = t84517; return;} backtrace_internal("SET-EXPRESSION-PARENT![5576]"); structure_set_error();} /* SET-EXPRESSION-TYPE-SET![5568] */ void f5568(struct w49 a19089, struct w49 a19090) {struct w49 t84518; struct w49 t84519; /* x50037 */ /* x50035 */ t84518 = a19089; /* x50036 */ t84519 = a19090; /* x50034 */ if ((t84518.tag)==STRUCTURE_TYPE27698) {t84518.value.structure_type27698->s10 = t84519; return;} backtrace_internal("SET-EXPRESSION-TYPE-SET![5568]"); structure_set_error();} /* EXPRESSION-TYPE-SET[5567] */ struct w49 f5567(struct w49 a19088) {struct w49 t84520; /* x50031 */ /* x50030 */ t84520 = a19088; /* x50029 */ if ((t84520.tag)==STRUCTURE_TYPE27698) return t84520.value.structure_type27698->s10; backtrace_internal("EXPRESSION-TYPE-SET[5567]"); structure_ref_error();} /* SET-EXPRESSION-ENVIRONMENT![5560] */ void f5560(struct w49 a19079, struct w49 a19080) {struct w49 t84521; struct w49 t84522; /* x49998 */ /* x49996 */ t84521 = a19079; /* x49997 */ t84522 = a19080; /* x49995 */ if ((t84521.tag)==STRUCTURE_TYPE27698) {t84521.value.structure_type27698->s9 = t84522; return;} backtrace_internal("SET-EXPRESSION-ENVIRONMENT![5560]"); structure_set_error();} /* SET-EXPRESSION-LINK![5552] */ void f5552(struct w49 a19069, struct w49 a19070) {struct w49 t84523; struct w49 t84524; /* x49959 */ /* x49957 */ t84523 = a19069; /* x49958 */ t84524 = a19070; /* x49956 */ if ((t84523.tag)==STRUCTURE_TYPE27698) {t84523.value.structure_type27698->s8 = t84524; return;} backtrace_internal("SET-EXPRESSION-LINK![5552]"); structure_set_error();} /* EXPRESSION-INDEX[5543] */ unsigned f5543(struct w49 a19058) {struct w49 t84525; /* x49914 */ /* x49913 */ t84525 = a19058; /* x49912 */ if ((t84525.tag)==STRUCTURE_TYPE27698) return t84525.value.structure_type27698->s7; backtrace_internal("EXPRESSION-INDEX[5543]"); structure_ref_error();} /* MAKE-EXPRESSION[5485] */ struct structure_type27698 *f5485(char *a18955, struct w49 a18958, struct w7121 a18959, struct w7121 a18960, struct w7121 a18961, unsigned a18962, char *a18964, char *a18965, char *a18966, struct w49 a18967, struct w9140 a18968, struct w9296 a18969, struct w49 a18970, struct w49 a18971, struct w49 a18972, struct w49 a18973, struct w49 a18974, struct w49 a18975, struct w49 a18976, struct w11873 a18977, struct w49 a18978, char *a18979, int a18986) {struct structure_type27698 *r5485; char *t84526; struct w49 t84527; struct w7121 t84528; struct w7121 t84529; struct w7121 t84530; unsigned t84531; char *t84532; char *t84533; char *t84534; struct w49 t84535; struct w9140 t84536; struct w9296 t84537; struct w49 t84538; struct w49 t84539; struct w49 t84540; struct w49 t84541; struct w49 t84542; struct w49 t84543; struct w49 t84544; struct w11873 t84545; struct w49 t84546; char *t84547; int t84548; /* x49631 */ /* x49599 */ t84526 = a18955; /* x49600 */ /* x49601 */ /* x49602 */ t84527 = a18958; /* x49603 */ t84528 = a18959; /* x49604 */ t84529 = a18960; /* x49605 */ t84530 = a18961; /* x49606 */ t84531 = a18962; /* x49607 */ /* x49608 */ t84532 = a18964; /* x49609 */ t84533 = a18965; /* x49610 */ t84534 = a18966; /* x49611 */ t84535 = a18967; /* x49612 */ t84536 = a18968; /* x49613 */ t84537 = a18969; /* x49614 */ t84538 = a18970; /* x49615 */ t84539 = a18971; /* x49616 */ t84540 = a18972; /* x49617 */ t84541 = a18973; /* x49618 */ t84542 = a18974; /* x49619 */ t84543 = a18975; /* x49620 */ t84544 = a18976; /* x49621 */ t84545 = a18977; /* x49622 */ t84546 = a18978; /* x49623 */ t84547 = a18979; /* x49624 */ /* x49625 */ /* x49626 */ /* x49627 */ /* x49628 */ /* x49629 */ /* x49630 */ t84548 = a18986; /* x49598 */ r5485 = (struct structure_type27698 *)GC_malloc(sizeof(struct structure_type27698)); if (r5485==NULL) {backtrace_internal("MAKE-EXPRESSION[5485]"); out_of_memory_error();} r5485->s0 = t84526; r5485->s3 = t84527; r5485->s4 = t84528; r5485->s5 = t84529; r5485->s6 = t84530; r5485->s7 = t84531; r5485->s8.tag = FALSE_TYPE; r5485->s9.tag = EXTERNAL_SYMBOL_TYPE; r5485->s9.value.external_symbol_type = t84532; r5485->s10.tag = EXTERNAL_SYMBOL_TYPE; r5485->s10.value.external_symbol_type = t84533; r5485->s11.tag = EXTERNAL_SYMBOL_TYPE; r5485->s11.value.external_symbol_type = t84534; r5485->s12 = t84535; r5485->s13 = t84536; r5485->s14 = t84537; r5485->s15 = t84538; r5485->s16 = t84539; r5485->s17 = t84540; r5485->s18 = t84541; r5485->s19 = t84542; r5485->s20 = t84543; r5485->s21 = t84544; r5485->s22 = t84545; r5485->s23 = t84546; r5485->s24.tag = EXTERNAL_SYMBOL_TYPE; r5485->s24.value.external_symbol_type = t84547; r5485->s25.tag = NULL_TYPE; r5485->s26 = (struct structure_type27858 *)FALSE_TYPE; r5485->s27 = (struct structure_type27673 *)FALSE_TYPE; r5485->s28 = (struct structure_type24753 *)NULL_TYPE; r5485->s29 = (struct structure_type24753 *)NULL_TYPE; r5485->s31 = t84548; return r5485;} /* MAKE-PROGRAM-POINT[5467] */ struct structure_type27747 *f5467(unsigned a18932, struct w49 a18933) {struct structure_type27747 *r5467; unsigned t84549; struct w49 t84550; /* x49512 */ /* x49510 */ t84549 = a18932; /* x49511 */ t84550 = a18933; /* x49509 */ r5467 = (struct structure_type27747 *)GC_malloc(sizeof(struct structure_type27747)); if (r5467==NULL) {backtrace_internal("MAKE-PROGRAM-POINT[5467]"); out_of_memory_error();} r5467->s0 = t84549; r5467->s1 = t84550; return r5467;} /* NOTIFY-PP3[5380] */ void f5380(char *a18812, struct structure_type24753 *a18813) {struct structure_type24753 *t84551; char *t84554; struct structure_type24753 *t84555; unsigned t84556; struct w49 t84557; struct w49 t84558; /* x49092 */ /* x49091 stalin.sc:77:2610 */ /* x49088 stalin.sc:78:2654 */ /* x49087 stalin.sc:78:2655 */ /* x3947 Scheme-to-C-compatibility.sc:40:1650 */ /* x49090 stalin.sc:77:2623 */ /* x49089 stalin.sc:77:2624 */ /* x3944 Scheme-to-C-compatibility.sc:39:1623 */ /* x49086 */ /* x49085 */ /* x49072 stalin.sc:80:2705 */ /* x49071 stalin.sc:80:2723 */ /* x49070 stalin.sc:80:2706 */ /* x3951 Scheme-to-C-compatibility.sc:41:1684 */ /* x3950 Scheme-to-C-compatibility.sc:41:1685 */ /* x49075 stalin.sc:81:2728 */ /* x49074 stalin.sc:81:2747 */ /* x49073 stalin.sc:81:2729 */ /* x297552 Scheme-to-C-compatibility.sc:42:1730 */ /* x297551 Scheme-to-C-compatibility.sc:42:1731 */ /* x49081 stalin.sc:82:2753 */ /* x49077 stalin.sc:82:2760 */ /* x49078 stalin.sc:82:2767 */ /* x49079 stalin.sc:82:2770 */ t84554 = a18812; /* x49080 stalin.sc:82:2784 */ t84555 = a18813; /* x270774 stalin.sc:82:2754 */ t84556 = TRUE_TYPE; t84557.tag = STRING_TYPE; t84557.value.string_type = t84554; t84558.tag = STRUCTURE_TYPE24753; t84558.value.structure_type24753 = t84555; f665(t84556, t84557, t84558); /* x49084 stalin.sc:83:2792 */ /* x49083 stalin.sc:83:2810 */ /* x49082 stalin.sc:83:2793 */ /* x297561 Scheme-to-C-compatibility.sc:41:1684 */ /* x297560 Scheme-to-C-compatibility.sc:41:1685 */ /* x49069 */ /* x49068 stalin.sc:84:2819 */ /* x49067 stalin.sc:84:2838 */ /* x49066 stalin.sc:84:2820 */ /* x3955 Scheme-to-C-compatibility.sc:42:1730 */ /* x3954 Scheme-to-C-compatibility.sc:42:1731 */ /* x49065 */ /* x49064 stalin.sc:85:2849 */ /* x49063 stalin.sc:85:2850 */ t84551 = (struct structure_type24753 *)NULL_TYPE; f28716(t84551); return;} /* NOTIFY-PP[5376] */ void f5376(char *a18806, struct structure_type24753 *a18807) {struct structure_type24753 *t84559; char *t84561; struct structure_type24753 *t84562; unsigned t84563; struct w49 t84564; struct w49 t84565; /* x49060 */ /* x49059 stalin.sc:68:2365 */ /* x49058 stalin.sc:68:2380 */ /* x49057 stalin.sc:68:2381 */ /* x297563 Scheme-to-C-compatibility.sc:40:1650 */ /* x49056 */ /* x49055 */ /* x49048 stalin.sc:70:2425 */ /* x49047 stalin.sc:70:2444 */ /* x49046 stalin.sc:70:2426 */ /* x297558 Scheme-to-C-compatibility.sc:42:1730 */ /* x297557 Scheme-to-C-compatibility.sc:42:1731 */ /* x49054 stalin.sc:71:2450 */ /* x49050 stalin.sc:71:2457 */ /* x49051 stalin.sc:71:2464 */ /* x49052 stalin.sc:71:2467 */ t84561 = a18806; /* x49053 stalin.sc:71:2481 */ t84562 = a18807; /* x270775 stalin.sc:71:2451 */ t84563 = TRUE_TYPE; t84564.tag = STRING_TYPE; t84564.value.string_type = t84561; t84565.tag = STRUCTURE_TYPE24753; t84565.value.structure_type24753 = t84562; f665(t84563, t84564, t84565); /* x49045 */ /* x49044 stalin.sc:72:2489 */ /* x49043 stalin.sc:72:2508 */ /* x49042 stalin.sc:72:2490 */ /* x297555 Scheme-to-C-compatibility.sc:42:1730 */ /* x297554 Scheme-to-C-compatibility.sc:42:1731 */ /* x49041 */ /* x49040 stalin.sc:73:2519 */ /* x49039 stalin.sc:73:2520 */ t84559 = (struct structure_type24753 *)NULL_TYPE; f28716(t84559); return;} /* NOTIFY[5365] */ void f5365(struct w49 a18797, struct structure_type24753 *a18798) {char *a18799; /* STRING */ char *t84566; struct structure_type24753 *t84567; char *t84568; struct w49 t84569; struct w49 t84570; struct structure_type24753 *t84571; unsigned t84572; struct w49 t84573; struct w49 t84574; /* x48969 stalin.sc:50:1799 */ /* x48968 stalin.sc:50:1813 */ /* x48964 stalin.sc:50:1820 */ /* x48965 stalin.sc:50:1827 */ /* x48966 stalin.sc:50:1830 */ t84570 = a18797; /* x48967 stalin.sc:50:1844 */ t84571 = a18798; /* x270776 stalin.sc:50:1814 */ t84572 = FALSE_TYPE; t84573 = t84570; /* MOVE: branching squeezed to general */ if (t84571>=((struct structure_type24753 *)VALUE_OFFSET)) {t84574.tag = STRUCTURE_TYPE24753; t84574.value.structure_type24753 = t84571;} else t84574.tag = (unsigned)t84571; t84566 = f665(t84572, t84573, t84574); /* x48962 */ a18799 = t84566; /* x48961 */ /* x48960 stalin.sc:51:1854 */ /* x48959 stalin.sc:51:1863 */ t84568 = a18799; /* x48958 stalin.sc:51:1855 */ t84569.tag = STRING_TYPE; t84569.value.string_type = t84568; f28712(t84569); /* x48957 */ /* x48956 stalin.sc:52:1873 */ /* x48955 stalin.sc:52:1874 */ t84567 = (struct structure_type24753 *)NULL_TYPE; f28716(t84567); return;} /* GENSYM[5362] */ char *f5362(char *a18796) {char *t84575; char *t84576; /* x48946 stalin.sc:42:1622 */ /* x48945 stalin.sc:42:1649 */ /* x48944 stalin.sc:42:1662 */ t84576 = a18796; /* x48943 stalin.sc:42:1650 */ t84575 = f27595(t84576); /* x270777 stalin.sc:42:1623 */ return t84575;} /* CLOCK-SAMPLE[4651] */ float f4651(void) {int a18099; /* TIME */ float a18106; /* TIME */ float t84577; float t84578; float t84579; int t84580; float t84581; int t84582; int t84583; float t84584; int t84585; int t84586; float t84587; float t84588; float t84589; int t84590; /* x42714 QobiScheme.sc:4693:150416 */ /* x42697 QobiScheme.sc:4693:150420 */ /* x42713 QobiScheme.sc:4695:150483 */ /* x42712 QobiScheme.sc:4695:150495 */ /* x42711 QobiScheme.sc:4695:150496 */ /* x42680 QobiScheme.sc:4679:150075 */ /* x42679 QobiScheme.sc:4679:150087 */ /* x42678 QobiScheme.sc:4679:150088 */ t84580 = clock(); /* x42677 */ a18099 = t84580; /* x42676 */ /* x42675 QobiScheme.sc:4680:150099 */ /* x42654 QobiScheme.sc:4680:150103 */ /* x42652 QobiScheme.sc:4680:150106 */ t84585 = a18099; /* x42653 QobiScheme.sc:4680:150111 */ t84586 = 0; /* x270785 QobiScheme.sc:4680:150104 */ if (!(t84585s3; /* x23485 QobiScheme.sc:1771:54318 */ /* x23484 QobiScheme.sc:1771:54326 */ t84634 = a15814; /* x23483 QobiScheme.sc:1771:54319 */ a15729 = t84634; /* x23046 */ /* x23045 */ t84635 = a15729; /* x23044 */ t84592 = t84635->s0; /* x23488 QobiScheme.sc:1770:54284 */ /* x23487 QobiScheme.sc:1770:54299 */ t84636 = a15815; /* x270798 QobiScheme.sc:1770:54285 */ if (!((t84636.tag)==STRING_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1770, 54284); string_length_error();} t84593 = strlen(t84636.value.string_type); /* x23479 */ a15817 = t84591; a15818 = t84592; a15819 = t84593; /* x23478 QobiScheme.sc:1773:54385 */ /* x23476 QobiScheme.sc:1773:54407 */ /* x23475 QobiScheme.sc:1773:54423 */ t84630 = a15814; /* x23474 QobiScheme.sc:1773:54408 */ a15769 = t84630; /* x23202 */ /* x23201 */ t84631 = a15769; /* x23200 */ t84594 = t84631->s4; /* x23477 QobiScheme.sc:1773:54433 */ t84595 = 0; /* x23473 */ /* x23472 */ /* x23471 */ /* x23470 */ /* x23469 */ /* x23468 */ /* x23467 */ /* x23409 */ /* x23408 QobiScheme.sc:1773:54390 */ a15822 = t84594; a15823 = t84595; h2298: /* x23466 QobiScheme.sc:1774:54440 */ /* x23413 QobiScheme.sc:1774:54444 */ /* x23411 QobiScheme.sc:1774:54447 */ t84596 = a15823; /* x23412 QobiScheme.sc:1774:54449 */ t84597 = a15819; /* x270805 QobiScheme.sc:1774:54445 */ if (!(t84596==t84597)) goto l16148; /* x23417 QobiScheme.sc:1775:54459 */ /* x23415 QobiScheme.sc:1775:54481 */ t84627 = a15822; /* x23416 QobiScheme.sc:1775:54491 */ t84628 = a15816; /* x23414 QobiScheme.sc:1775:54460 */ /* MOVE: branching squeezed to general */ if (t84627>=((struct structure_type27621 *)VALUE_OFFSET)) {t84629.tag = STRUCTURE_TYPE27621; t84629.value.structure_type27621 = t84627;} else t84629.tag = (unsigned)t84627; f2279(t84629, t84628); return; l16148: /* x23465 QobiScheme.sc:1776:54505 */ /* x23464 QobiScheme.sc:1776:54514 */ /* x23463 QobiScheme.sc:1776:54541 */ /* x23461 QobiScheme.sc:1776:54553 */ t84625 = a15815; /* x23462 QobiScheme.sc:1776:54560 */ t84626 = a15823; /* x270799 QobiScheme.sc:1776:54542 */ if (!((t84625.tag)==STRING_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1776, 54541); string_ref1_error();} if ((t84626<0)||(t84626>=strlen(t84625.value.string_type))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1776, 54541); string_ref3_error();} t84622 = (t84625.value.string_type)[t84626]; /* x23459 QobiScheme.sc:1776:54515 */ /* x23458 QobiScheme.sc:1776:54535 */ t84623 = a15814; /* x23457 QobiScheme.sc:1776:54516 */ a15739 = t84623; /* x23085 */ /* x23084 */ t84624 = a15739; /* x23083 */ t84621 = t84624->s1; switch (t84621) {case FALSE_TYPE: backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1776, 54514); call_error(); break; case NATIVE_PROCEDURE_TYPE21570: t84598 = f15290(t84622); break; case NATIVE_PROCEDURE_TYPE21574: t84598 = f15288(t84622); break; case NATIVE_PROCEDURE_TYPE21576: t84598 = f15286(t84622); break; default: t84598 = f15284(t84622);} /* x23456 */ a15824 = t84598; /* x23455 */ /* x23454 QobiScheme.sc:1777:54567 */ /* x23436 QobiScheme.sc:1777:54575 */ /* x23434 QobiScheme.sc:1777:54587 */ /* x23433 QobiScheme.sc:1777:54604 */ t84609 = a15822; /* x23432 QobiScheme.sc:1777:54588 */ a40543 = t84609; /* x294905 */ /* x294904 */ t84610 = a40543; /* x294903 */ if (!(t84610>=((struct structure_type27621 *)VALUE_OFFSET))) {backtrace_internal("[clone TRIE-NODE-TABLE[2270] 35485]"); structure_ref_error();} t84607 = t84610->s0; /* x23435 QobiScheme.sc:1777:54615 */ t84608 = a15824; /* x270802 QobiScheme.sc:1777:54576 */ if (!((t84607&3)==0)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1777, 54575); vector_ref1_error();} if (!(t84607>=((unsigned)VALUE_OFFSET))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1777, 54575); vector_ref1_error();} if ((t84608<0)||(t84608>=(((struct headed_vector_type27896 *)t84607)->length))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1777, 54575); vector_ref3_error();} if ((((((struct headed_vector_type27896 *)t84607)->element)[t84608]).tag)==FALSE_TYPE) goto l16150; /* x23438 */ /* x23437 */ goto l16151; l16150: /* x23453 */ /* x23452 */ /* x23451 QobiScheme.sc:1778:54620 */ /* x23442 QobiScheme.sc:1778:54633 */ /* x23441 QobiScheme.sc:1778:54650 */ t84614 = a15822; /* x23440 QobiScheme.sc:1778:54634 */ a40542 = t84614; /* x294901 */ /* x294900 */ t84615 = a40542; /* x294899 */ if (!(t84615>=((struct structure_type27621 *)VALUE_OFFSET))) {backtrace_internal("[clone TRIE-NODE-TABLE[2270] 35484]"); structure_ref_error();} t84611 = t84615->s0; /* x23443 QobiScheme.sc:1779:54669 */ t84612 = a15824; /* x23450 QobiScheme.sc:1780:54679 */ /* x23448 QobiScheme.sc:1780:54695 */ /* x23446 QobiScheme.sc:1780:54708 */ t84619 = a15818; /* x23447 QobiScheme.sc:1780:54710 */ /* x270800 QobiScheme.sc:1780:54696 */ if (!((t84619&1)==1)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1780, 54695); make_vector_error();} t84616 = (struct headed_vector_type27896 *)GC_malloc(sizeof(struct headed_vector_type27896)+((((int)(((int)t84619)>>1))-1)*sizeof(struct w49))); if (t84616==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1780, 54695); out_of_memory_error();} t84616->length = (int)(((int)t84619)>>1); for (t84620 = &((t84616->element)[0]); t84620<(&((t84616->element)[(int)(((int)t84619)>>1)])); t84620++) (*t84620).tag = FALSE_TYPE; /* x23449 QobiScheme.sc:1780:54714 */ t84617 = a15817; /* x23444 QobiScheme.sc:1780:54680 */ t84618 = t84616; t84613 = f2268(t84618, t84617); /* x270801 QobiScheme.sc:1778:54621 */ if (!((t84611&3)==0)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1778, 54620); vector_set1_error();} if (!(t84611>=((unsigned)VALUE_OFFSET))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1778, 54620); vector_set1_error();} if ((t84612<0)||(t84612>=(((struct headed_vector_type27896 *)t84611)->length))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1778, 54620); vector_set3_error();} ((((struct headed_vector_type27896 *)t84611)->element)[t84612]).tag = STRUCTURE_TYPE27621; ((((struct headed_vector_type27896 *)t84611)->element)[t84612]).value.structure_type27621 = t84613; l16151: /* x23430 */ /* x23429 QobiScheme.sc:1781:54732 */ /* x23424 QobiScheme.sc:1781:54738 */ /* x23422 QobiScheme.sc:1781:54750 */ /* x23421 QobiScheme.sc:1781:54767 */ t84603 = a15822; /* x23420 QobiScheme.sc:1781:54751 */ a15782 = t84603; /* x23252 */ /* x23251 */ t84604 = a15782; /* x23250 */ if (!(t84604>=((struct structure_type27621 *)VALUE_OFFSET))) {backtrace_internal("TRIE-NODE-TABLE[2270]"); structure_ref_error();} t84601 = t84604->s0; /* x23423 QobiScheme.sc:1781:54778 */ t84602 = a15824; /* x270804 QobiScheme.sc:1781:54739 */ if (!((t84601&3)==0)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1781, 54738); vector_ref1_error();} if (!(t84601>=((unsigned)VALUE_OFFSET))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1781, 54738); vector_ref1_error();} if ((t84602<0)||(t84602>=(((struct headed_vector_type27896 *)t84601)->length))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1781, 54738); vector_ref3_error();} /* MOVE: branching general to squeezed */ t84599 = ((((((struct headed_vector_type27896 *)t84601)->element)[t84602]).tag)==STRUCTURE_TYPE27621)?((((struct headed_vector_type27896 *)t84601)->element)[t84602]).value.structure_type27621:(struct structure_type27621 *)(((((struct headed_vector_type27896 *)t84601)->element)[t84602]).tag); /* x23428 QobiScheme.sc:1781:54781 */ /* x23426 QobiScheme.sc:1781:54784 */ t84605 = a15823; /* x23427 QobiScheme.sc:1781:54786 */ t84606 = 1; /* x270803 QobiScheme.sc:1781:54782 */ t84600 = t84605+t84606; /* x23418 QobiScheme.sc:1781:54733 */ a15822 = t84599; a15823 = t84600; goto h2298;} /* TRIE-REF[2288] */ struct w49 f2288(struct structure_type27623 *a15807, struct w49 a15808) {struct structure_type27623 *a15759; /* S */ struct structure_type27621 *a15792; /* S */ int a15809; /* M */ struct structure_type27621 *a15812; /* TRIE-NODE */ int a15813; /* I */ struct structure_type27621 *a40544; /* S */ struct structure_type27623 *a40549; /* S */ struct structure_type27623 *a40555; /* S */ int t84637; struct structure_type27621 *t84638; int t84639; struct structure_type27623 *t84640; struct structure_type27623 *t84641; int t84642; int t84643; struct structure_type27621 *t84644; int t84645; unsigned t84646; int t84647; struct structure_type27621 *t84648; struct structure_type27621 *t84649; unsigned t84650; char t84651; struct structure_type27623 *t84652; struct structure_type27623 *t84653; struct w49 t84654; int t84655; int t84656; int t84657; struct structure_type27621 *t84658; struct structure_type27621 *t84659; struct structure_type27623 *t84660; struct structure_type27623 *t84661; struct w49 t84662; /* x23405 QobiScheme.sc:1759:53920 */ /* x23404 QobiScheme.sc:1759:53929 */ /* x23403 QobiScheme.sc:1759:53944 */ t84662 = a15808; /* x270806 QobiScheme.sc:1759:53930 */ if (!((t84662.tag)==STRING_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1759, 53929); string_length_error();} t84637 = strlen(t84662.value.string_type); /* x23401 */ a15809 = t84637; /* x23400 QobiScheme.sc:1760:53956 */ /* x23398 QobiScheme.sc:1760:53978 */ /* x23397 QobiScheme.sc:1760:53994 */ t84660 = a15807; /* x23396 QobiScheme.sc:1760:53979 */ a40549 = t84660; /* x294929 */ /* x294928 */ t84661 = a40549; /* x294927 */ t84638 = t84661->s4; /* x23399 QobiScheme.sc:1760:54004 */ t84639 = 0; /* x23395 */ /* x23394 */ /* x23393 */ /* x23392 */ /* x23391 */ /* x23390 */ /* x23389 */ /* x23356 */ /* x23355 QobiScheme.sc:1760:53961 */ a15812 = t84638; a15813 = t84639; h2292: /* x23388 QobiScheme.sc:1761:54011 */ /* x23357 QobiScheme.sc:1761:54015 */ if (a15812==((struct structure_type27621 *)FALSE_TYPE)) goto l16153; /* x23384 QobiScheme.sc:1762:54032 */ /* x23361 QobiScheme.sc:1762:54036 */ /* x23359 QobiScheme.sc:1762:54039 */ t84642 = a15813; /* x23360 QobiScheme.sc:1762:54041 */ t84643 = a15809; /* x270810 QobiScheme.sc:1762:54037 */ if (!(t84642==t84643)) goto l16155; /* x23364 QobiScheme.sc:1763:54048 */ /* x23363 QobiScheme.sc:1763:54065 */ t84658 = a15812; /* x23362 QobiScheme.sc:1763:54049 */ a15792 = t84658; /* x23291 */ /* x23290 */ t84659 = a15792; /* x23289 */ return t84659->s1; l16155: /* x23383 QobiScheme.sc:1764:54080 */ /* x23378 QobiScheme.sc:1764:54086 */ /* x23369 QobiScheme.sc:1764:54098 */ /* x23368 QobiScheme.sc:1764:54115 */ t84648 = a15812; /* x23367 QobiScheme.sc:1764:54099 */ a40544 = t84648; /* x294909 */ /* x294908 */ t84649 = a40544; /* x294907 */ t84646 = t84649->s0; /* x23377 QobiScheme.sc:1765:54134 */ /* x23376 QobiScheme.sc:1765:54161 */ /* x23374 QobiScheme.sc:1765:54173 */ t84654 = a15808; /* x23375 QobiScheme.sc:1765:54180 */ t84655 = a15813; /* x270808 QobiScheme.sc:1765:54162 */ if (!((t84654.tag)==STRING_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1765, 54161); string_ref1_error();} if ((t84655<0)||(t84655>=strlen(t84654.value.string_type))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1765, 54161); string_ref3_error();} t84651 = (t84654.value.string_type)[t84655]; /* x23372 QobiScheme.sc:1765:54135 */ /* x23371 QobiScheme.sc:1765:54155 */ t84652 = a15807; /* x23370 QobiScheme.sc:1765:54136 */ a40555 = t84652; /* x294953 */ /* x294952 */ t84653 = a40555; /* x294951 */ t84650 = t84653->s1; switch (t84650) {case FALSE_TYPE: backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1765, 54134); call_error(); break; case NATIVE_PROCEDURE_TYPE21570: t84647 = f15290(t84651); break; case NATIVE_PROCEDURE_TYPE21574: t84647 = f15288(t84651); break; case NATIVE_PROCEDURE_TYPE21576: t84647 = f15286(t84651); break; default: t84647 = f15284(t84651);} /* x270809 QobiScheme.sc:1764:54087 */ if (!((t84646&3)==0)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1764, 54086); vector_ref1_error();} if (!(t84646>=((unsigned)VALUE_OFFSET))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1764, 54086); vector_ref1_error();} if ((t84647<0)||(t84647>=(((struct headed_vector_type27896 *)t84646)->length))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1764, 54086); vector_ref3_error();} /* MOVE: branching general to squeezed */ t84644 = ((((((struct headed_vector_type27896 *)t84646)->element)[t84647]).tag)==STRUCTURE_TYPE27621)?((((struct headed_vector_type27896 *)t84646)->element)[t84647]).value.structure_type27621:(struct structure_type27621 *)(((((struct headed_vector_type27896 *)t84646)->element)[t84647]).tag); /* x23382 QobiScheme.sc:1766:54188 */ /* x23380 QobiScheme.sc:1766:54191 */ t84656 = a15813; /* x23381 QobiScheme.sc:1766:54193 */ t84657 = 1; /* x270807 QobiScheme.sc:1766:54189 */ t84645 = t84656+t84657; /* x23365 QobiScheme.sc:1764:54081 */ a15812 = t84644; a15813 = t84645; goto h2292; l16153: /* x23387 QobiScheme.sc:1767:54205 */ /* x23386 QobiScheme.sc:1767:54225 */ t84640 = a15807; /* x23385 QobiScheme.sc:1767:54206 */ a15759 = t84640; /* x23163 */ /* x23162 */ t84641 = a15759; /* x23161 */ return t84641->s3;} /* CREATE-TRIE[2286] */ struct structure_type27623 *f2286(int a15802, unsigned a15803, unsigned a15804, struct w49 a15805) {struct w49 a35838; /* PAIR */ int t84663; unsigned t84664; unsigned t84665; struct w49 t84666; struct structure_type27621 *t84667; unsigned t84668; unsigned t84669; unsigned t84670; struct headed_vector_type27896 *t84671; struct w49 t84672; struct headed_vector_type27896 *t84673; int t84674; struct w49 *t84675; struct w49 t84676; struct w49 t84677; struct w49 t84678; /* x23352 */ /* x23351 QobiScheme.sc:1749:53655 */ /* x23344 QobiScheme.sc:1749:53659 */ /* x23343 QobiScheme.sc:1749:53666 */ t84676 = a15805; /* x270811 QobiScheme.sc:1749:53660 */ if (!((t84676.tag)==NULL_TYPE)) goto l16157; /* x23346 QobiScheme.sc:1750:53686 */ /* x23345 QobiScheme.sc:1750:53706 */ a15805.tag = FALSE_TYPE; goto l16158; l16157: /* x23350 QobiScheme.sc:1751:53715 */ /* x23349 QobiScheme.sc:1751:53735 */ /* x23348 QobiScheme.sc:1751:53742 */ t84677 = a15805; /* x23347 QobiScheme.sc:1751:53736 */ a35838 = t84677; /* x274709 */ /* x274708 */ t84678 = a35838; /* x274707 */ if (!((t84678.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29987]"); structure_ref_error();} a15805 = t84678.value.structure_type24753->s0; l16158: /* x23341 */ /* x23340 QobiScheme.sc:1752:53760 */ /* x23329 QobiScheme.sc:1752:53771 */ t84663 = a15802; /* x23330 QobiScheme.sc:1753:53778 */ t84664 = a15803; /* x23331 QobiScheme.sc:1754:53797 */ t84665 = a15804; /* x23332 QobiScheme.sc:1755:53816 */ t84666 = a15805; /* x23339 QobiScheme.sc:1756:53835 */ /* x23337 QobiScheme.sc:1756:53851 */ /* x23335 QobiScheme.sc:1756:53864 */ t84674 = a15802; /* x23336 QobiScheme.sc:1756:53866 */ /* x270812 QobiScheme.sc:1756:53852 */ t84671 = (struct headed_vector_type27896 *)GC_malloc(sizeof(struct headed_vector_type27896)+((t84674-1)*sizeof(struct w49))); if (t84671==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1756, 53851); out_of_memory_error();} t84671->length = t84674; for (t84675 = &((t84671->element)[0]); t84675<(&((t84671->element)[t84674])); t84675++) (*t84675).tag = FALSE_TYPE; /* x23338 QobiScheme.sc:1756:53870 */ t84672 = a15805; /* x23333 QobiScheme.sc:1756:53836 */ t84673 = t84671; t84667 = f2268(t84673, t84672); /* x23328 QobiScheme.sc:1752:53761 */ t84668 = (((unsigned)t84663)<<1)+1; t84669 = t84664; t84670 = t84665; return f2226(t84668, t84669, t84670, t84666, t84667);} /* SET-TRIE-NODE-VALUE![2279] */ void f2279(struct w49 a15793, struct w49 a15794) {struct w49 t84679; struct w49 t84680; /* x23297 */ /* x23295 */ t84679 = a15793; /* x23296 */ t84680 = a15794; /* x23294 */ if ((t84679.tag)==STRUCTURE_TYPE27621) {t84679.value.structure_type27621->s1 = t84680; return;} backtrace_internal("SET-TRIE-NODE-VALUE![2279]"); structure_set_error();} /* MAKE-TRIE-NODE[2268] */ struct structure_type27621 *f2268(struct headed_vector_type27896 *a15779, struct w49 a15780) {struct structure_type27621 *r2268; struct headed_vector_type27896 *t84681; struct w49 t84682; /* x23242 */ /* x23240 */ t84681 = a15779; /* x23241 */ t84682 = a15780; /* x23239 */ r2268 = (struct structure_type27621 *)GC_malloc(sizeof(struct structure_type27621)); if (r2268==NULL) {backtrace_internal("MAKE-TRIE-NODE[2268]"); out_of_memory_error();} r2268->s0 = (unsigned)t84681; r2268->s1 = t84682; return r2268;} /* MAKE-TRIE[2226] */ struct structure_type27623 *f2226(unsigned a15723, unsigned a15724, unsigned a15725, struct w49 a15726, struct structure_type27621 *a15727) {struct structure_type27623 *r2226; unsigned t84683; unsigned t84684; unsigned t84685; struct w49 t84686; struct structure_type27621 *t84687; /* x23036 */ /* x23031 */ t84683 = a15723; /* x23032 */ t84684 = a15724; /* x23033 */ t84685 = a15725; /* x23034 */ t84686 = a15726; /* x23035 */ t84687 = a15727; /* x23030 */ r2226 = (struct structure_type27623 *)GC_malloc(sizeof(struct structure_type27623)); if (r2226==NULL) {backtrace_internal("MAKE-TRIE[2226]"); out_of_memory_error();} r2226->s0 = t84683; r2226->s1 = t84684; r2226->s2 = t84685; r2226->s3 = t84686; r2226->s4 = t84687; return r2226;} /* RM[2186] */ void f2186(char *a15704) {char *a15627; /* STRING */ struct w49 a15630; /* CHARS */ struct structure_type24753 *a15631; /* C */ struct w16638 a35637; /* PAIR */ struct w16638 a36224; /* PAIR */ struct w16638 a36225; /* PAIR */ struct w16638 a36226; /* PAIR */ struct w16638 a36227; /* PAIR */ struct w16638 a36228; /* PAIR */ int t84688; char *t84689; char *t84690; char *t84691; unsigned t84692; struct w49 t84693; struct w49 t84694; char *t84695; struct structure_type24753 *t84696; struct w49 t84697; struct w49 t84698; struct structure_type24753 *t84699; struct w16638 t84700; struct w16638 t84701; struct w49 t84702; struct structure_type24753 *t84703; struct w16638 t84704; struct w16638 t84705; struct w49 t84706; char t84707; struct w49 t84708; char t84709; struct w16638 t84710; struct w16638 t84711; struct w49 t84712; char t84713; struct w49 t84714; char t84715; struct w16638 t84716; struct w16638 t84717; struct w49 t84718; char t84719; struct w49 t84720; char t84721; struct w16638 t84722; struct w16638 t84723; struct w49 t84724; char t84725; struct w49 t84726; char t84727; struct w16638 t84728; struct w16638 t84729; char t84730; struct structure_type24753 *t84731; struct w12224 t84732; struct w49 t84733; struct structure_type24753 *t84734; struct w49 t84735; char *t84736; char *t84737; /* x22791 QobiScheme.sc:1696:51874 */ /* x22783 QobiScheme.sc:1696:51882 */ /* x22782 QobiScheme.sc:1696:51889 */ /* x22781 QobiScheme.sc:1696:51897 */ /* x22780 QobiScheme.sc:1696:51920 */ /* x22779 QobiScheme.sc:1696:51929 */ t84695 = a15704; /* x22778 QobiScheme.sc:1696:51921 */ a15627 = t84695; /* x21995 QobiScheme.sc:1541:46334 */ /* x21993 QobiScheme.sc:1541:46352 */ /* x21992 QobiScheme.sc:1541:46366 */ t84736 = a15627; /* x21991 QobiScheme.sc:1541:46353 */ a34032.tag = STRING_TYPE; a34032.value.string_type = t84736; t84696 = f27579(); /* x21994 QobiScheme.sc:1541:46378 */ /* x21990 */ /* x21989 */ /* x21988 */ /* x21987 */ /* x21986 */ /* x21985 */ /* x21984 */ /* x21919 */ /* x21918 QobiScheme.sc:1541:46339 */ /* MOVE: branching squeezed to general */ if (t84696>=((struct structure_type24753 *)VALUE_OFFSET)) {a15630.tag = STRUCTURE_TYPE24753; a15630.value.structure_type24753 = t84696;} else a15630.tag = (unsigned)t84696; a15631 = (struct structure_type24753 *)NULL_TYPE; h2096: /* x21983 QobiScheme.sc:1542:46386 */ /* x21922 QobiScheme.sc:1542:46390 */ /* x21921 QobiScheme.sc:1542:46397 */ t84697 = a15630; /* x270817 QobiScheme.sc:1542:46391 */ if (!((t84697.tag)==NULL_TYPE)) goto l16162; /* x21927 QobiScheme.sc:1543:46410 */ /* x21926 QobiScheme.sc:1543:46424 */ /* x21925 QobiScheme.sc:1543:46433 */ t84734 = a15631; /* x21924 QobiScheme.sc:1543:46425 */ /* MOVE: branching squeezed to general */ if (t84734>=((struct structure_type24753 *)VALUE_OFFSET)) {t84735.tag = STRUCTURE_TYPE24753; t84735.value.structure_type24753 = t84734;} else t84735.tag = (unsigned)t84734; t84732 = f26331(t84735); /* x21923 QobiScheme.sc:1543:46411 */ t84733 = *((struct w49 *)(&t84732)); t84691 = f27585(t84733); goto l16163; l16162: /* x21982 QobiScheme.sc:1544:46443 */ /* x21931 QobiScheme.sc:1544:46449 */ /* x21930 QobiScheme.sc:1544:46455 */ t84700 = *((struct w16638 *)(&a15630)); /* x21929 QobiScheme.sc:1544:46450 */ a35637 = t84700; /* x273905 */ /* x273904 */ t84701 = a35637; /* x273903 */ if (!((t84701.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29786]"); structure_ref_error();} t84698 = t84701.value.structure_type24753->s1; /* x21981 QobiScheme.sc:1545:46467 */ /* x21935 QobiScheme.sc:1545:46473 */ /* x21934 QobiScheme.sc:1545:46480 */ t84704 = *((struct w16638 *)(&a15630)); /* x21933 QobiScheme.sc:1545:46474 */ a36224 = t84704; /* x276253 */ /* x276252 */ t84705 = a36224; /* x276251 */ if (!((t84705.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30373]"); structure_ref_error();} t84702 = t84705.value.structure_type24753->s0; /* x21980 QobiScheme.sc:1546:46491 */ /* x21974 QobiScheme.sc:1546:46495 */ /* x21973 QobiScheme.sc:1546:46499 */ /* x21972 QobiScheme.sc:1546:46521 */ t84707 = '\\'; /* x21971 QobiScheme.sc:1546:46507 */ /* x21970 QobiScheme.sc:1546:46514 */ t84710 = *((struct w16638 *)(&a15630)); /* x21969 QobiScheme.sc:1546:46508 */ a36228 = t84710; /* x276269 */ /* x276268 */ t84711 = a36228; /* x276267 */ if (!((t84711.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30377]"); structure_ref_error();} t84706 = t84711.value.structure_type24753->s0; /* x21968 QobiScheme.sc:1546:46500 */ t84708 = t84706; t84709 = t84707; if (!(f27342(t84708, t84709)==FALSE_TYPE)) goto l16164; /* x21965 */ /* x21964 QobiScheme.sc:1547:46531 */ /* x21963 QobiScheme.sc:1547:46553 */ t84713 = '\"'; /* x21962 QobiScheme.sc:1547:46539 */ /* x21961 QobiScheme.sc:1547:46546 */ t84716 = *((struct w16638 *)(&a15630)); /* x21960 QobiScheme.sc:1547:46540 */ a36227 = t84716; /* x276265 */ /* x276264 */ t84717 = a36227; /* x276263 */ if (!((t84717.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30376]"); structure_ref_error();} t84712 = t84717.value.structure_type24753->s0; /* x21959 QobiScheme.sc:1547:46532 */ t84714 = t84712; t84715 = t84713; if (!(f27342(t84714, t84715)==FALSE_TYPE)) goto l16164; /* x21956 */ /* x21955 QobiScheme.sc:1548:46563 */ /* x21954 QobiScheme.sc:1548:46585 */ t84719 = '$'; /* x21953 QobiScheme.sc:1548:46571 */ /* x21952 QobiScheme.sc:1548:46578 */ t84722 = *((struct w16638 *)(&a15630)); /* x21951 QobiScheme.sc:1548:46572 */ a36226 = t84722; /* x276261 */ /* x276260 */ t84723 = a36226; /* x276259 */ if (!((t84723.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30375]"); structure_ref_error();} t84718 = t84723.value.structure_type24753->s0; /* x21950 QobiScheme.sc:1548:46564 */ t84720 = t84718; t84721 = t84719; if (!(f27342(t84720, t84721)==FALSE_TYPE)) goto l16164; /* x21947 */ /* x21946 QobiScheme.sc:1549:46617 */ t84725 = '&'; /* x21945 QobiScheme.sc:1549:46603 */ /* x21944 QobiScheme.sc:1549:46610 */ t84728 = *((struct w16638 *)(&a15630)); /* x21943 QobiScheme.sc:1549:46604 */ a36225 = t84728; /* x276257 */ /* x276256 */ t84729 = a36225; /* x276255 */ if (!((t84729.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30374]"); structure_ref_error();} t84724 = t84729.value.structure_type24753->s0; /* x21942 QobiScheme.sc:1549:46596 */ t84726 = t84724; t84727 = t84725; if (f27342(t84726, t84727)==FALSE_TYPE) goto l16165; l16164: /* x21978 QobiScheme.sc:1550:46631 */ /* x21976 QobiScheme.sc:1550:46637 */ t84730 = '\\'; /* x21977 QobiScheme.sc:1550:46641 */ t84731 = a15631; /* x270815 QobiScheme.sc:1550:46632 */ t84703 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t84703==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1550, 46631); out_of_memory_error();} t84703->s0.tag = ((unsigned)((unsigned char)t84730))<<2; /* MOVE: branching squeezed to general */ if (t84731>=((struct structure_type24753 *)VALUE_OFFSET)) {t84703->s1.tag = STRUCTURE_TYPE24753; t84703->s1.value.structure_type24753 = t84731;} else t84703->s1.tag = (unsigned)t84731; goto l16166; l16165: /* x21979 QobiScheme.sc:1551:46652 */ t84703 = a15631; l16166: /* x270816 QobiScheme.sc:1545:46468 */ t84699 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t84699==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1545, 46467); out_of_memory_error();} t84699->s0 = t84702; /* MOVE: branching squeezed to general */ if (t84703>=((struct structure_type24753 *)VALUE_OFFSET)) {t84699->s1.tag = STRUCTURE_TYPE24753; t84699->s1.value.structure_type24753 = t84703;} else t84699->s1.tag = (unsigned)t84703; /* x21928 QobiScheme.sc:1544:46444 */ a15630 = t84698; a15631 = t84699; goto h2096; l16163: /* x22777 QobiScheme.sc:1696:51908 */ t84690 = "rm -rf ~a"; /* x22776 QobiScheme.sc:1696:51905 */ /* x22775 QobiScheme.sc:1696:51898 */ t84692 = FALSE_TYPE; t84693.tag = STRING_TYPE; t84693.value.string_type = t84690; t84694.tag = STRUCTURE_TYPE24753; t84694.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t84694.value.structure_type24753)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1696, 51897); out_of_memory_error();} t84694.value.structure_type24753->s0.tag = STRING_TYPE; t84694.value.structure_type24753->s0.value.string_type = t84691; t84694.value.structure_type24753->s1.tag = NULL_TYPE; t84689 = f665(t84692, t84693, t84694); /* x22774 QobiScheme.sc:1696:51890 */ t84688 = system(t84689); /* x270814 QobiScheme.sc:1696:51883 */ if (!(t84688==0)) goto l16160; /* x22785 */ /* x22784 */ return; l16160: /* x22790 */ /* x22789 */ /* x22788 QobiScheme.sc:1697:51944 */ /* x22787 QobiScheme.sc:1697:51951 */ t84737 = "RM failed"; /* x270813 QobiScheme.sc:1697:51945 */ stalin_panic(t84737);} /* CAN-OPEN-FILE-FOR-INPUT?[2087] */ unsigned f2087(struct w49 a15623) {FILE *a15625; /* INPUT-PORT */ struct w49 t84738; char *t84739; struct w49 t84740; struct w49 t84741; FILE *t84742; FILE *t84744; FILE *t84745; FILE *t84746; struct w49 t84747; char *t84748; /* x21913 QobiScheme.sc:1530:46005 */ /* x21913 QobiScheme.sc:1530:46005 */ /* x21912 QobiScheme.sc:1530:46009 */ /* x21911 QobiScheme.sc:1530:46028 */ t84739 = "-"; /* x21910 QobiScheme.sc:1530:46019 */ t84738 = a15623; /* x21909 QobiScheme.sc:1530:46010 */ t84740 = t84738; t84741.tag = STRING_TYPE; t84741.value.string_type = t84739; if (!(f27434(t84740, t84741)==FALSE_TYPE)) goto l16170; /* x21906 */ /* x21905 QobiScheme.sc:1532:46061 */ /* x21903 QobiScheme.sc:1533:46129 */ t84747 = a15623; /* x21904 QobiScheme.sc:1533:46138 */ t84748 = "r"; /* x21902 QobiScheme.sc:1532:46062 */ if (!((t84747.tag)==STRING_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1532, 46061); foreign_call_error();} t84742 = fopen((t84747.value.string_type), t84748); /* x21901 */ a15625 = t84742; /* x21900 */ /* x21899 QobiScheme.sc:1534:46151 */ /* x21891 QobiScheme.sc:1534:46159 */ /* x21890 QobiScheme.sc:1534:46166 */ t84745 = a15625; /* x270818 QobiScheme.sc:1534:46160 */ if (!(t84745==NULL)) goto l16175; /* x21893 */ /* x21892 */ goto l16176; l16175: /* x21898 */ /* x21897 */ /* x21896 QobiScheme.sc:1535:46185 */ /* x21895 QobiScheme.sc:1535:46235 */ t84746 = a15625; /* x21894 QobiScheme.sc:1535:46186 */ fclose(t84746); l16176: /* x21888 */ /* x21887 QobiScheme.sc:1536:46254 */ /* x21886 QobiScheme.sc:1536:46259 */ /* x21885 QobiScheme.sc:1536:46266 */ t84744 = a15625; /* x270819 QobiScheme.sc:1536:46260 */ if (t84744==NULL) goto l16171; l16170: return TRUE_TYPE; l16171: return FALSE_TYPE;} /* REPLACE-EXTENSION[2082] */ char *f2082(char *a15619, char *a15620) {char *t84749; char *t84750; char *t84751; struct structure_type24753 *t84752; struct w49 t84753; struct w49 t84754; char *t84755; char *t84756; char *t84757; struct w49 t84758; struct w49 t84759; char *t84760; /* x21869 */ /* x21868 QobiScheme.sc:1513:45654 */ /* x21860 QobiScheme.sc:1513:45660 */ /* x21859 QobiScheme.sc:1513:45679 */ t84757 = "-"; /* x21858 QobiScheme.sc:1513:45670 */ t84756 = a15619; /* x21857 QobiScheme.sc:1513:45661 */ /* MOVE: branching squeezed to general */ if (t84756>=((char *)VALUE_OFFSET)) {t84758.tag = STRING_TYPE; t84758.value.string_type = t84756;} else t84758.tag = (unsigned)t84756; t84759.tag = STRING_TYPE; t84759.value.string_type = t84757; if (f27434(t84758, t84759)==FALSE_TYPE) goto l16178; /* x21865 */ /* x21864 */ /* x21863 QobiScheme.sc:1513:45684 */ /* x21862 QobiScheme.sc:1513:45691 */ t84760 = "Invalid pathname"; /* x270821 QobiScheme.sc:1513:45685 */ stalin_panic(t84760); goto l16179; l16178: /* x21867 QobiScheme.sc:1513:45654 */ /* x21866 QobiScheme.sc:1513:45654 */ l16179: /* x21856 */ /* x21855 QobiScheme.sc:1514:45713 */ /* x21854 QobiScheme.sc:1514:45759 */ t84751 = a15620; /* x21853 QobiScheme.sc:1514:45755 */ t84750 = "."; /* x21852 QobiScheme.sc:1514:45728 */ /* x21851 QobiScheme.sc:1514:45745 */ t84755 = a15619; /* x21850 QobiScheme.sc:1514:45729 */ t84749 = f2069(t84755); /* x21849 QobiScheme.sc:1514:45714 */ t84754.tag = STRUCTURE_TYPE24753; t84754.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t84754.value.structure_type24753)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1514, 45713); out_of_memory_error();} t84754.value.structure_type24753->s0.tag = STRING_TYPE; t84754.value.structure_type24753->s0.value.string_type = t84751; t84754.value.structure_type24753->s1.tag = NULL_TYPE; t84753.tag = STRUCTURE_TYPE24753; t84753.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t84753.value.structure_type24753)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1514, 45713); out_of_memory_error();} t84753.value.structure_type24753->s0.tag = STRING_TYPE; t84753.value.structure_type24753->s0.value.string_type = t84750; t84753.value.structure_type24753->s1 = t84754; t84752 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t84752==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1514, 45713); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t84749>=((char *)VALUE_OFFSET)) {t84752->s0.tag = STRING_TYPE; t84752->s0.value.string_type = t84749;} else t84752->s0.tag = (unsigned)t84749; t84752->s1 = t84753; return f27556(t84752);} /* DEFAULT-EXTENSION[2078] */ struct w49 f2078(struct w49 a15616, char *a15617) {struct w49 r2078; struct w49 a15601; /* PATHNAME */ struct w49 a15605; /* L */ struct w16638 a35634; /* PAIR */ struct w16638 a36215; /* PAIR */ struct w16638 a36216; /* PAIR */ struct w49 t84761; struct w12224 t84762; struct w49 t84763; struct w49 t84764; char t84765; struct w49 t84766; char t84767; struct w16638 t84768; struct w16638 t84769; struct w49 t84770; char t84771; struct w49 t84772; char t84773; struct w16638 t84774; struct w16638 t84775; struct w49 t84776; struct w16638 t84777; struct w16638 t84778; struct structure_type24753 *t84779; struct w49 t84780; struct w49 t84781; struct w49 t84782; char *t84783; struct w49 t84784; struct w49 t84785; char *t84786; struct w49 t84787; char *t84788; char *t84789; struct structure_type24753 *t84790; char *t84791; struct w49 t84792; struct w49 t84793; struct w49 t84794; char *t84795; struct w49 t84796; struct w49 t84797; char *t84798; /* x21846 */ /* x21845 QobiScheme.sc:1507:45456 */ /* x21837 QobiScheme.sc:1507:45462 */ /* x21836 QobiScheme.sc:1507:45481 */ t84795 = "-"; /* x21835 QobiScheme.sc:1507:45472 */ t84794 = a15616; /* x21834 QobiScheme.sc:1507:45463 */ t84796 = t84794; t84797.tag = STRING_TYPE; t84797.value.string_type = t84795; if (f27434(t84796, t84797)==FALSE_TYPE) goto l16189; /* x21842 */ /* x21841 */ /* x21840 QobiScheme.sc:1507:45486 */ /* x21839 QobiScheme.sc:1507:45493 */ t84798 = "Invalid pathname"; /* x270822 QobiScheme.sc:1507:45487 */ stalin_panic(t84798); goto l16190; l16189: /* x21844 QobiScheme.sc:1507:45456 */ /* x21843 QobiScheme.sc:1507:45456 */ l16190: /* x21833 */ /* x21832 QobiScheme.sc:1508:45515 */ /* x21825 QobiScheme.sc:1508:45519 */ /* x21824 QobiScheme.sc:1508:45535 */ t84761 = a15616; /* x21823 QobiScheme.sc:1508:45520 */ a15601 = t84761; /* x21712 */ /* x21711 QobiScheme.sc:1484:44635 */ /* x21703 QobiScheme.sc:1484:44641 */ /* x21702 QobiScheme.sc:1484:44660 */ t84783 = "-"; /* x21701 QobiScheme.sc:1484:44651 */ t84782 = a15601; /* x21700 QobiScheme.sc:1484:44642 */ t84784 = t84782; t84785.tag = STRING_TYPE; t84785.value.string_type = t84783; if (f27434(t84784, t84785)==FALSE_TYPE) goto l16186; /* x21708 */ /* x21707 */ /* x21706 QobiScheme.sc:1484:44665 */ /* x21705 QobiScheme.sc:1484:44672 */ t84786 = "Invalid pathname"; /* x270825 QobiScheme.sc:1484:44666 */ stalin_panic(t84786); goto l16187; l16186: /* x21710 QobiScheme.sc:1484:44635 */ /* x21709 QobiScheme.sc:1484:44635 */ l16187: /* x21699 */ /* x21698 QobiScheme.sc:1485:44694 */ /* x21697 QobiScheme.sc:1485:44708 */ /* x21696 QobiScheme.sc:1485:44717 */ /* x21695 QobiScheme.sc:1485:44731 */ t84781 = a15601; /* x21694 QobiScheme.sc:1485:44718 */ a34032 = t84781; t84779 = f27579(); /* x21693 QobiScheme.sc:1485:44709 */ /* MOVE: branching squeezed to general */ if (t84779>=((struct structure_type24753 *)VALUE_OFFSET)) {t84780.tag = STRUCTURE_TYPE24753; t84780.value.structure_type24753 = t84779;} else t84780.tag = (unsigned)t84779; t84762 = f26331(t84780); /* x21692 */ /* x21691 */ /* x21690 */ /* x21689 */ /* x21688 */ /* x21687 */ /* x21686 */ /* x21652 */ /* x21651 QobiScheme.sc:1485:44699 */ a15605 = *((struct w49 *)(&t84762)); h2058: /* x21685 QobiScheme.sc:1486:44746 */ /* x21657 QobiScheme.sc:1486:44751 */ /* x21656 QobiScheme.sc:1486:44756 */ /* x21655 QobiScheme.sc:1486:44763 */ t84763 = a15605; /* x270827 QobiScheme.sc:1486:44757 */ if ((t84763.tag)==NULL_TYPE) goto l16181; /* x21683 */ /* x21665 QobiScheme.sc:1487:44774 */ /* x21664 QobiScheme.sc:1487:44779 */ /* x21663 QobiScheme.sc:1487:44797 */ t84765 = '/'; /* x21662 QobiScheme.sc:1487:44787 */ /* x21661 QobiScheme.sc:1487:44794 */ t84768 = *((struct w16638 *)(&a15605)); /* x21660 QobiScheme.sc:1487:44788 */ a36216 = t84768; /* x276221 */ /* x276220 */ t84769 = a36216; /* x276219 */ if (!((t84769.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30365]"); structure_ref_error();} t84764 = t84769.value.structure_type24753->s0; /* x21659 QobiScheme.sc:1487:44780 */ t84766 = t84764; t84767 = t84765; if (!(f27342(t84766, t84767)==FALSE_TYPE)) goto l16181; /* x21681 */ /* x21680 QobiScheme.sc:1488:44814 */ /* x21679 QobiScheme.sc:1488:44832 */ t84771 = '.'; /* x21678 QobiScheme.sc:1488:44822 */ /* x21677 QobiScheme.sc:1488:44829 */ t84774 = *((struct w16638 *)(&a15605)); /* x21676 QobiScheme.sc:1488:44823 */ a36215 = t84774; /* x276217 */ /* x276216 */ t84775 = a36215; /* x276215 */ if (!((t84775.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30364]"); structure_ref_error();} t84770 = t84775.value.structure_type24753->s0; /* x21675 QobiScheme.sc:1488:44815 */ t84772 = t84770; t84773 = t84771; if (!(f27342(t84772, t84773)==FALSE_TYPE)) goto l16180; /* x21672 */ /* x21671 QobiScheme.sc:1488:44843 */ /* x21670 QobiScheme.sc:1488:44849 */ t84777 = *((struct w16638 *)(&a15605)); /* x21669 QobiScheme.sc:1488:44844 */ a35634 = t84777; /* x273893 */ /* x273892 */ t84778 = a35634; /* x273891 */ if (!((t84778.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29783]"); structure_ref_error();} t84776 = t84778.value.structure_type24753->s1; /* x21668 QobiScheme.sc:1488:44838 */ a15605 = t84776; goto h2058; l16180: /* x21826 QobiScheme.sc:1509:45550 */ return a15616; l16181: /* x21831 QobiScheme.sc:1510:45564 */ /* x21830 QobiScheme.sc:1510:45592 */ t84789 = a15617; /* x21829 QobiScheme.sc:1510:45588 */ t84788 = "."; /* x21828 QobiScheme.sc:1510:45579 */ t84787 = a15616; /* x21827 QobiScheme.sc:1510:45565 */ t84793.tag = STRUCTURE_TYPE24753; t84793.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t84793.value.structure_type24753)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1510, 45564); out_of_memory_error();} t84793.value.structure_type24753->s0.tag = STRING_TYPE; t84793.value.structure_type24753->s0.value.string_type = t84789; t84793.value.structure_type24753->s1.tag = NULL_TYPE; t84792.tag = STRUCTURE_TYPE24753; t84792.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t84792.value.structure_type24753)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1510, 45564); out_of_memory_error();} t84792.value.structure_type24753->s0.tag = STRING_TYPE; t84792.value.structure_type24753->s0.value.string_type = t84788; t84792.value.structure_type24753->s1 = t84793; t84790 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t84790==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1510, 45564); out_of_memory_error();} t84790->s0 = t84787; t84790->s1 = t84792; t84791 = f27556(t84790); r2078.tag = STRING_TYPE; r2078.value.string_type = t84791; return r2078;} /* STRIP-EXTENSION[2069] */ char *f2069(char *a15610) {struct w49 a15614; /* L */ struct w49 a35597; /* PAIR */ struct w49 a35598; /* PAIR */ struct w49 a36179; /* PAIR */ struct w49 a36180; /* PAIR */ struct w12224 t84799; struct w49 t84800; struct w49 t84801; char t84802; struct w49 t84803; char t84804; struct w49 t84805; struct w49 t84806; struct w49 t84807; char t84808; struct w49 t84809; char t84810; struct w49 t84811; struct w49 t84812; struct w49 t84813; struct w49 t84814; struct w49 t84815; struct w12224 t84816; struct w49 t84817; char *t84818; struct w49 t84819; struct w49 t84820; struct w49 t84821; struct structure_type24753 *t84822; struct w49 t84823; char *t84824; char *t84825; char *t84826; struct w49 t84827; struct w49 t84828; char *t84829; /* x21820 */ /* x21819 QobiScheme.sc:1498:45146 */ /* x21811 QobiScheme.sc:1498:45152 */ /* x21810 QobiScheme.sc:1498:45171 */ t84826 = "-"; /* x21809 QobiScheme.sc:1498:45162 */ t84825 = a15610; /* x21808 QobiScheme.sc:1498:45153 */ /* MOVE: branching squeezed to general */ if (t84825>=((char *)VALUE_OFFSET)) {t84827.tag = STRING_TYPE; t84827.value.string_type = t84825;} else t84827.tag = (unsigned)t84825; t84828.tag = STRING_TYPE; t84828.value.string_type = t84826; if (f27434(t84827, t84828)==FALSE_TYPE) goto l16197; /* x21816 */ /* x21815 */ /* x21814 QobiScheme.sc:1498:45176 */ /* x21813 QobiScheme.sc:1498:45183 */ t84829 = "Invalid pathname"; /* x270823 QobiScheme.sc:1498:45177 */ stalin_panic(t84829); goto l16198; l16197: /* x21818 QobiScheme.sc:1498:45146 */ /* x21817 QobiScheme.sc:1498:45146 */ l16198: /* x21807 */ /* x21806 QobiScheme.sc:1499:45205 */ /* x21805 QobiScheme.sc:1499:45219 */ /* x21804 QobiScheme.sc:1499:45228 */ /* x21803 QobiScheme.sc:1499:45242 */ t84824 = a15610; /* x21802 QobiScheme.sc:1499:45229 */ /* MOVE: branching squeezed to general */ if (t84824>=((char *)VALUE_OFFSET)) {a34032.tag = STRING_TYPE; a34032.value.string_type = t84824;} else a34032.tag = (unsigned)t84824; t84822 = f27579(); /* x21801 QobiScheme.sc:1499:45220 */ /* MOVE: branching squeezed to general */ if (t84822>=((struct structure_type24753 *)VALUE_OFFSET)) {t84823.tag = STRUCTURE_TYPE24753; t84823.value.structure_type24753 = t84822;} else t84823.tag = (unsigned)t84822; t84799 = f26331(t84823); /* x21800 */ /* x21799 */ /* x21798 */ /* x21797 */ /* x21796 */ /* x21795 */ /* x21794 */ /* x21758 */ /* x21757 QobiScheme.sc:1499:45210 */ a15614 = *((struct w49 *)(&t84799)); h2073: /* x21793 QobiScheme.sc:1500:45257 */ /* x21772 QobiScheme.sc:1500:45261 */ /* x21771 QobiScheme.sc:1500:45265 */ /* x21770 QobiScheme.sc:1500:45272 */ t84800 = a15614; /* x270824 QobiScheme.sc:1500:45266 */ if ((t84800.tag)==NULL_TYPE) goto l16191; /* x21766 */ /* x21765 QobiScheme.sc:1500:45293 */ t84802 = '/'; /* x21764 QobiScheme.sc:1500:45283 */ /* x21763 QobiScheme.sc:1500:45290 */ t84805 = a15614; /* x21762 QobiScheme.sc:1500:45284 */ a36180 = t84805; /* x276077 */ /* x276076 */ t84806 = a36180; /* x276075 */ if (!((t84806.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30329]"); structure_ref_error();} t84801 = t84806.value.structure_type24753->s0; /* x21761 QobiScheme.sc:1500:45276 */ t84803 = t84801; t84804 = t84802; if (f27342(t84803, t84804)==FALSE_TYPE) goto l16192; l16191: /* x21773 QobiScheme.sc:1501:45305 */ return a15610; l16192: /* x21792 QobiScheme.sc:1502:45320 */ /* x21779 QobiScheme.sc:1502:45324 */ /* x21778 QobiScheme.sc:1502:45342 */ t84808 = '.'; /* x21777 QobiScheme.sc:1502:45332 */ /* x21776 QobiScheme.sc:1502:45339 */ t84811 = a15614; /* x21775 QobiScheme.sc:1502:45333 */ a36179 = t84811; /* x276073 */ /* x276072 */ t84812 = a36179; /* x276071 */ if (!((t84812.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30328]"); structure_ref_error();} t84807 = t84812.value.structure_type24753->s0; /* x21774 QobiScheme.sc:1502:45325 */ t84809 = t84807; t84810 = t84808; if (f27342(t84809, t84810)==FALSE_TYPE) goto l16195; /* x21786 QobiScheme.sc:1503:45350 */ /* x21785 QobiScheme.sc:1503:45364 */ /* x21784 QobiScheme.sc:1503:45373 */ /* x21783 QobiScheme.sc:1503:45379 */ t84820 = a15614; /* x21782 QobiScheme.sc:1503:45374 */ a35597 = t84820; /* x273745 */ /* x273744 */ t84821 = a35597; /* x273743 */ if (!((t84821.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29746]"); structure_ref_error();} t84819 = t84821.value.structure_type24753->s1; /* x21781 QobiScheme.sc:1503:45365 */ t84816 = f26331(t84819); /* x21780 QobiScheme.sc:1503:45351 */ t84817 = *((struct w49 *)(&t84816)); t84818 = f27585(t84817); return t84818; l16195: /* x21791 QobiScheme.sc:1504:45387 */ /* x21790 QobiScheme.sc:1504:45393 */ /* x21789 QobiScheme.sc:1504:45399 */ t84814 = a15614; /* x21788 QobiScheme.sc:1504:45394 */ a35598 = t84814; /* x273749 */ /* x273748 */ t84815 = a35598; /* x273747 */ if (!((t84815.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29747]"); structure_ref_error();} t84813 = t84815.value.structure_type24753->s1; /* x21787 QobiScheme.sc:1504:45388 */ a15614 = t84813; goto h2073;} /* READ-LINE[1999] */ char *f1999(struct w49 a15554) {struct structure_type24753 *a15558; /* CHARS */ unsigned a15559; /* CHAR */ struct w49 a36230; /* PAIR */ unsigned t84830; unsigned t84831; char t84832; char t84833; struct w49 t84834; char t84835; struct structure_type24753 *t84836; char t84837; struct structure_type24753 *t84838; struct w12224 t84839; struct w49 t84840; char *t84841; struct structure_type24753 *t84842; struct w49 t84843; struct structure_type24753 *t84844; struct w12224 t84845; struct w49 t84846; char *t84847; struct structure_type24753 *t84848; struct w49 t84849; struct w49 t84850; struct structure_type24753 *t84851; struct w49 t84852; struct w49 t84853; struct w49 t84854; /* x21322 */ /* x21321 QobiScheme.sc:1414:42213 */ /* x21313 QobiScheme.sc:1414:42217 */ /* x21312 QobiScheme.sc:1414:42224 */ t84852 = a15554; /* x270838 QobiScheme.sc:1414:42218 */ if (!((t84852.tag)==NULL_TYPE)) goto l16206; /* x21316 QobiScheme.sc:1414:42230 */ /* x21315 QobiScheme.sc:1414:42241 */ /* x21314 QobiScheme.sc:1414:42242 */ /* x271525 */ a15554.tag = INPUT_PORT_TYPE; a15554.value.input_port_type = a34449; goto l16207; l16206: /* x21320 QobiScheme.sc:1414:42263 */ /* x21319 QobiScheme.sc:1414:42274 */ /* x21318 QobiScheme.sc:1414:42281 */ t84853 = a15554; /* x21317 QobiScheme.sc:1414:42275 */ a36230 = t84853; /* x276277 */ /* x276276 */ t84854 = a36230; /* x276275 */ if (!((t84854.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30379]"); structure_ref_error();} a15554 = t84854.value.structure_type24753->s0; l16207: /* x21310 */ /* x21309 QobiScheme.sc:1415:42290 */ /* x21308 QobiScheme.sc:1415:42308 */ /* x21307 */ /* x21306 */ /* x21305 */ /* x21304 */ /* x21303 */ /* x21302 */ /* x21301 */ /* x21265 */ /* x21264 QobiScheme.sc:1415:42295 */ a15558 = (struct structure_type24753 *)NULL_TYPE; h2003: /* x21300 QobiScheme.sc:1416:42316 */ /* x21299 QobiScheme.sc:1416:42328 */ /* x21298 QobiScheme.sc:1416:42339 */ t84850 = a15554; /* x21297 QobiScheme.sc:1416:42329 */ t84851 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t84851==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1416, 42328); out_of_memory_error();} t84851->s0 = t84850; t84851->s1.tag = NULL_TYPE; t84830 = f28696(t84851); /* x21296 */ a15559 = t84830; /* x21295 QobiScheme.sc:1417:42350 */ /* x21268 QobiScheme.sc:1417:42354 */ /* x21267 QobiScheme.sc:1417:42367 */ t84831 = a15559; /* x270841 QobiScheme.sc:1417:42355 */ if (!(t84831==EOF_OBJECT_TYPE)) goto l16200; /* x21278 QobiScheme.sc:1418:42380 */ /* x21271 QobiScheme.sc:1418:42384 */ /* x21270 QobiScheme.sc:1418:42391 */ t84844 = a15558; /* x270840 QobiScheme.sc:1418:42385 */ if (!(((unsigned)t84844)==NULL_TYPE)) goto l16204; /* x21272 QobiScheme.sc:1418:42398 */ return (char *)a15559; l16204: /* x21277 QobiScheme.sc:1418:42403 */ /* x21276 QobiScheme.sc:1418:42417 */ /* x21275 QobiScheme.sc:1418:42426 */ t84848 = a15558; /* x21274 QobiScheme.sc:1418:42418 */ t84849.tag = STRUCTURE_TYPE24753; t84849.value.structure_type24753 = t84848; t84845 = f26331(t84849); /* x21273 QobiScheme.sc:1418:42404 */ t84846 = *((struct w49 *)(&t84845)); t84847 = f27585(t84846); return t84847; l16200: /* x21294 QobiScheme.sc:1419:42442 */ /* x21282 QobiScheme.sc:1419:42446 */ /* x21281 QobiScheme.sc:1419:42459 */ t84833 = '\n'; /* x21280 QobiScheme.sc:1419:42454 */ t84832 = (char)(a15559>>2); /* x21279 QobiScheme.sc:1419:42447 */ t84834.tag = ((unsigned)((unsigned char)t84832))<<2; t84835 = t84833; if (f27342(t84834, t84835)==FALSE_TYPE) goto l16202; /* x21287 QobiScheme.sc:1420:42474 */ /* x21286 QobiScheme.sc:1420:42488 */ /* x21285 QobiScheme.sc:1420:42497 */ t84842 = a15558; /* x21284 QobiScheme.sc:1420:42489 */ /* MOVE: branching squeezed to general */ if (t84842>=((struct structure_type24753 *)VALUE_OFFSET)) {t84843.tag = STRUCTURE_TYPE24753; t84843.value.structure_type24753 = t84842;} else t84843.tag = (unsigned)t84842; t84839 = f26331(t84843); /* x21283 QobiScheme.sc:1420:42475 */ t84840 = *((struct w49 *)(&t84839)); t84841 = f27585(t84840); return t84841; l16202: /* x21293 QobiScheme.sc:1421:42509 */ /* x21292 QobiScheme.sc:1421:42515 */ /* x21290 QobiScheme.sc:1421:42521 */ t84837 = (char)(a15559>>2); /* x21291 QobiScheme.sc:1421:42526 */ t84838 = a15558; /* x270839 QobiScheme.sc:1421:42516 */ t84836 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t84836==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1421, 42515); out_of_memory_error();} t84836->s0.tag = ((unsigned)((unsigned char)t84837))<<2; /* MOVE: branching squeezed to general */ if (t84838>=((struct structure_type24753 *)VALUE_OFFSET)) {t84836->s1.tag = STRUCTURE_TYPE24753; t84836->s1.value.structure_type24753 = t84838;} else t84836->s1.tag = (unsigned)t84838; /* x21288 QobiScheme.sc:1421:42510 */ a15558 = t84836; goto h2003;} /* SUBSTRING?[1883] */ unsigned f1883(char *a15449, char *a15450) {int a14705; /* N */ int a14708; /* I */ int a14727; /* N */ int a14730; /* I */ int a15451; /* N */ int a15452; /* I */ int a15453; /* J */ int t84855; int t84856; int t84857; int t84858; int t84859; int t84860; int t84861; int t84862; int t84863; int t84864; int t84865; char t84866; char t84867; struct w49 t84868; char t84869; char *t84870; int t84871; char *t84872; int t84873; int t84874; int t84875; int t84876; int t84877; int t84878; int t84879; int t84880; int t84881; int t84882; int t84883; int t84884; int t84885; char *t84886; char *t84887; /* x20334 QobiScheme.sc:1238:36640 */ /* x20333 QobiScheme.sc:1238:36649 */ /* x20332 QobiScheme.sc:1238:36664 */ t84887 = a15449; /* x270842 QobiScheme.sc:1238:36650 */ t84855 = strlen(t84887); /* x20330 */ a15451 = t84855; /* x20329 QobiScheme.sc:1239:36672 */ /* x20319 QobiScheme.sc:1239:36680 */ /* x20328 QobiScheme.sc:1243:36789 */ /* x20326 QobiScheme.sc:1243:36792 */ /* x20324 QobiScheme.sc:1243:36795 */ /* x20323 QobiScheme.sc:1243:36810 */ t84886 = a15450; /* x270843 QobiScheme.sc:1243:36796 */ t84884 = strlen(t84886); /* x20325 QobiScheme.sc:1243:36814 */ t84885 = a15451; /* x270844 QobiScheme.sc:1243:36793 */ t84882 = t84884-t84885; /* x20327 QobiScheme.sc:1243:36817 */ t84883 = 1; /* x270845 QobiScheme.sc:1243:36790 */ t84856 = t84882+t84883; /* x20301 QobiScheme.sc:1239:36673 */ a14705 = t84856; /* x14449 QobiScheme.sc:315:9672 */ /* x14448 QobiScheme.sc:315:9686 */ t84857 = 0; /* x14447 */ /* x14446 */ /* x14445 */ /* x14444 */ /* x14443 */ /* x14442 */ /* x14441 */ /* x14420 */ /* x14419 QobiScheme.sc:315:9677 */ a14708 = t84857; h1051: /* x14440 QobiScheme.sc:315:9690 */ /* x14440 QobiScheme.sc:315:9690 */ /* x14424 QobiScheme.sc:315:9695 */ /* x14422 QobiScheme.sc:315:9698 */ t84858 = a14708; /* x14423 QobiScheme.sc:315:9700 */ t84859 = a14705; /* x270963 QobiScheme.sc:315:9696 */ if (!(t84858=t84864) goto l16208; /* x14556 */ /* x14548 QobiScheme.sc:334:10180 */ /* x14547 QobiScheme.sc:334:10183 */ t84865 = a14730; /* x14546 QobiScheme.sc:334:10181 */ a15453 = t84865; /* x20315 QobiScheme.sc:1241:36724 */ /* x20314 QobiScheme.sc:1241:36750 */ /* x20309 QobiScheme.sc:1241:36762 */ t84872 = a15450; /* x20313 QobiScheme.sc:1241:36765 */ /* x20311 QobiScheme.sc:1241:36768 */ t84874 = a15453; /* x20312 QobiScheme.sc:1241:36770 */ t84875 = a15452; /* x270846 QobiScheme.sc:1241:36766 */ t84873 = t84874+t84875; /* x270847 QobiScheme.sc:1241:36751 */ if ((t84873<0)||(t84873>=strlen(t84872))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1241, 36750); string_ref3_error();} t84867 = t84872[t84873]; /* x20307 QobiScheme.sc:1241:36732 */ /* x20305 QobiScheme.sc:1241:36744 */ t84870 = a15449; /* x20306 QobiScheme.sc:1241:36747 */ t84871 = a15453; /* x270848 QobiScheme.sc:1241:36733 */ if ((t84871<0)||(t84871>=strlen(t84870))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1241, 36732); string_ref3_error();} t84866 = t84870[t84871]; /* x20303 QobiScheme.sc:1241:36725 */ t84868.tag = ((unsigned)((unsigned char)t84866))<<2; t84869 = t84867; if (f27342(t84868, t84869)==FALSE_TYPE) goto l16212; /* x14554 */ /* x14553 QobiScheme.sc:334:10192 */ /* x14551 QobiScheme.sc:334:10195 */ t84877 = a14730; /* x14552 QobiScheme.sc:334:10197 */ t84878 = 1; /* x270953 QobiScheme.sc:334:10193 */ t84876 = t84877+t84878; /* x14549 QobiScheme.sc:334:10187 */ a14730 = t84876; goto h1070; l16212: /* x14432 */ /* x14431 QobiScheme.sc:315:9719 */ /* x14429 QobiScheme.sc:315:9722 */ t84880 = a14708; /* x14430 QobiScheme.sc:315:9724 */ t84881 = 1; /* x270962 QobiScheme.sc:315:9720 */ t84879 = t84880+t84881; /* x14427 QobiScheme.sc:315:9714 */ a14708 = t84879; goto h1051; l16208: return TRUE_TYPE; l16209: return FALSE_TYPE;} /* MINP[1583] */ struct w49 f1583(unsigned a15175, struct w49 a15176) {struct w49 a15180; /* X */ struct w49 a15181; /* L */ struct w49 a23924; /* E1 */ struct w49 a23925; /* E2 */ struct w49 a25453; /* CASE1 */ struct w49 a25454; /* CASE2 */ struct w16638 a35536; /* PAIR */ struct w49 a35537; /* PAIR */ struct w16638 a36101; /* PAIR */ struct w16638 a36105; /* PAIR */ struct w49 a36106; /* PAIR */ struct w49 t84888; struct w49 t84889; struct w49 t84890; struct w49 t84891; struct w49 t84892; unsigned t84893; struct w49 t84894; struct w49 t84895; int t84896; int t84897; struct w49 t84898; struct w49 t84899; int t84900; int t84901; struct w49 t84902; struct w49 t84903; struct w16638 t84904; struct w16638 t84905; struct w16638 t84906; struct w16638 t84907; struct w16638 t84908; struct w16638 t84909; struct w49 t84910; struct w49 t84911; struct w49 t84912; struct w49 t84913; struct w49 t84914; char *t84915; /* x17882 */ /* x17881 QobiScheme.sc:815:23661 */ /* x17874 QobiScheme.sc:815:23667 */ /* x17873 QobiScheme.sc:815:23674 */ t84914 = a15176; /* x270850 QobiScheme.sc:815:23668 */ if (!((t84914.tag)==NULL_TYPE)) goto l16221; /* x17878 */ /* x17877 */ /* x17876 QobiScheme.sc:815:23677 */ /* x17875 QobiScheme.sc:815:23678 */ /* x296421 QobiScheme.sc:166:5314 */ /* x296420 QobiScheme.sc:166:5321 */ t84915 = "This shouldn\'t happen"; /* x296419 QobiScheme.sc:166:5315 */ stalin_panic(t84915); goto l16222; l16221: /* x17880 QobiScheme.sc:815:23661 */ /* x17879 QobiScheme.sc:815:23661 */ l16222: /* x17871 */ /* x17870 QobiScheme.sc:816:23689 */ /* x17866 QobiScheme.sc:816:23703 */ /* x17865 QobiScheme.sc:816:23710 */ t84910 = a15176; /* x17864 QobiScheme.sc:816:23704 */ a36106 = t84910; /* x275781 */ /* x275780 */ t84911 = a36106; /* x275779 */ if (!((t84911.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30255]"); structure_ref_error();} t84888 = t84911.value.structure_type24753->s0; /* x17869 QobiScheme.sc:816:23717 */ /* x17868 QobiScheme.sc:816:23723 */ t84912 = a15176; /* x17867 QobiScheme.sc:816:23718 */ a35537 = t84912; /* x273505 */ /* x273504 */ t84913 = a35537; /* x273503 */ if (!((t84913.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29686]"); structure_ref_error();} t84889 = t84913.value.structure_type24753->s1; /* x17863 */ /* x17862 */ /* x17861 */ /* x17860 */ /* x17859 */ /* x17858 */ /* x17857 */ /* x17835 */ /* x17834 QobiScheme.sc:816:23694 */ a15180 = t84888; a15181 = t84889; h1587: /* x17856 QobiScheme.sc:817:23730 */ /* x17838 QobiScheme.sc:817:23734 */ /* x17837 QobiScheme.sc:817:23741 */ t84890 = a15181; /* x270851 QobiScheme.sc:817:23735 */ if (!((t84890.tag)==NULL_TYPE)) goto l16216; /* x17839 QobiScheme.sc:817:23744 */ return a15180; l16216: /* x17855 QobiScheme.sc:817:23746 */ /* x17851 QobiScheme.sc:817:23752 */ /* x17846 QobiScheme.sc:817:23756 */ /* x17842 QobiScheme.sc:817:23759 */ t84894 = a15180; /* x17845 QobiScheme.sc:817:23761 */ /* x17844 QobiScheme.sc:817:23768 */ t84904 = *((struct w16638 *)(&a15181)); /* x17843 QobiScheme.sc:817:23762 */ a36105 = t84904; /* x275777 */ /* x275776 */ t84905 = a36105; /* x275775 */ if (!((t84905.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30254]"); structure_ref_error();} t84895 = t84905.value.structure_type24753->s0; /* x17841 QobiScheme.sc:817:23757 */ t84893 = a15175; switch (t84893) {case NATIVE_PROCEDURE_TYPE7247: if (f8736(t84894, t84895)==FALSE_TYPE) goto l16218; break; case NATIVE_PROCEDURE_TYPE7349: if (f8184(t84894, t84895)==FALSE_TYPE) goto l16218; break; case NATIVE_PROCEDURE_TYPE17116: a23924 = t84894; a23925 = t84895; /* x103941 stalin.sc:10364:359181 */ /* x103937 stalin.sc:10364:359184 */ /* x103936 stalin.sc:10364:359212 */ t84898 = a23924; /* x103935 stalin.sc:10364:359185 */ t84896 = f11483(t84898); /* x103940 stalin.sc:10365:359225 */ /* x103939 stalin.sc:10365:359253 */ t84899 = a23925; /* x103938 stalin.sc:10365:359226 */ t84897 = f11483(t84899); /* x269508 stalin.sc:10364:359182 */ if (!(t84896>t84897)) goto l16218; break; default: a25453 = t84894; a25454 = t84895; /* x124469 stalin.sc:14907:522083 */ /* x124465 stalin.sc:14907:522086 */ /* x124464 stalin.sc:14907:522094 */ t84902 = a25453; /* x124463 stalin.sc:14907:522087 */ t84900 = f26227(t84902); /* x124468 stalin.sc:14907:522101 */ /* x124467 stalin.sc:14907:522109 */ t84903 = a25454; /* x124466 stalin.sc:14907:522102 */ t84901 = f26227(t84903); /* x269021 stalin.sc:14907:522084 */ if (!(t84900>t84901)) goto l16218;} /* x17847 QobiScheme.sc:817:23772 */ t84891 = a15180; goto l16219; l16218: /* x17850 QobiScheme.sc:817:23774 */ /* x17849 QobiScheme.sc:817:23781 */ t84906 = *((struct w16638 *)(&a15181)); /* x17848 QobiScheme.sc:817:23775 */ a36101 = t84906; /* x275761 */ /* x275760 */ t84907 = a36101; /* x275759 */ if (!((t84907.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30250]"); structure_ref_error();} t84891 = t84907.value.structure_type24753->s0; l16219: /* x17854 QobiScheme.sc:817:23785 */ /* x17853 QobiScheme.sc:817:23791 */ t84908 = *((struct w16638 *)(&a15181)); /* x17852 QobiScheme.sc:817:23786 */ a35536 = t84908; /* x273501 */ /* x273500 */ t84909 = a35536; /* x273499 */ if (!((t84909.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29685]"); structure_ref_error();} t84892 = t84909.value.structure_type24753->s1; /* x17840 QobiScheme.sc:817:23747 */ a15180 = t84891; a15181 = t84892; goto h1587;} /* SORT[1581] */ struct w49 f1581(struct w49 a15171, unsigned a15172, unsigned a15173) {struct w49 a35582; /* PAIR */ struct w49 a35583; /* PAIR */ struct w49 t84916; struct w49 t84917; struct w49 t84918; struct w49 t84919; struct w49 t84920; struct w49 t84921; unsigned t84922; unsigned t84923; struct w49 t84924; unsigned t84925; unsigned t84926; struct w49 t84927; struct w49 t84928; unsigned t84929; unsigned t84930; struct w49 t84931; struct w49 t84932; struct w49 t84933; /* x17831 QobiScheme.sc:807:23457 */ /* x17809 QobiScheme.sc:807:23461 */ /* x17808 QobiScheme.sc:807:23465 */ /* x17807 QobiScheme.sc:807:23472 */ t84916 = a15171; /* x270852 QobiScheme.sc:807:23466 */ if ((t84916.tag)==NULL_TYPE) goto l16223; /* x17803 */ /* x17802 QobiScheme.sc:807:23485 */ /* x17801 QobiScheme.sc:807:23491 */ t84918 = a15171; /* x17800 QobiScheme.sc:807:23486 */ a35583 = t84918; /* x273689 */ /* x273688 */ t84919 = a35583; /* x273687 */ if (!((t84919.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29732]"); structure_ref_error();} t84917 = t84919.value.structure_type24753->s1; /* x270853 QobiScheme.sc:807:23479 */ if (!((t84917.tag)==NULL_TYPE)) goto l16224; l16223: /* x17810 QobiScheme.sc:808:23504 */ return a15171; l16224: /* x17830 QobiScheme.sc:809:23514 */ /* x17818 QobiScheme.sc:809:23521 */ /* x17815 QobiScheme.sc:809:23527 */ /* x17814 QobiScheme.sc:809:23540 */ t84927 = a15171; /* x17813 QobiScheme.sc:809:23528 */ t84924 = f1572(t84927); /* x17816 QobiScheme.sc:809:23546 */ t84925 = a15172; /* x17817 QobiScheme.sc:809:23556 */ t84926 = a15173; /* x17812 QobiScheme.sc:809:23522 */ t84920 = f1581(t84924, t84925, t84926); /* x17827 QobiScheme.sc:810:23566 */ /* x17824 QobiScheme.sc:810:23572 */ /* x17823 QobiScheme.sc:810:23585 */ /* x17822 QobiScheme.sc:810:23591 */ t84932 = a15171; /* x17821 QobiScheme.sc:810:23586 */ a35582 = t84932; /* x273685 */ /* x273684 */ t84933 = a35582; /* x273683 */ if (!((t84933.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29731]"); structure_ref_error();} t84931 = t84933.value.structure_type24753->s1; /* x17820 QobiScheme.sc:810:23573 */ t84928 = f1572(t84931); /* x17825 QobiScheme.sc:810:23598 */ t84929 = a15172; /* x17826 QobiScheme.sc:810:23608 */ t84930 = a15173; /* x17819 QobiScheme.sc:810:23567 */ t84921 = f1581(t84928, t84929, t84930); /* x17828 QobiScheme.sc:811:23618 */ t84922 = a15172; /* x17829 QobiScheme.sc:812:23633 */ t84923 = a15173; /* x17811 QobiScheme.sc:809:23515 */ return f1576(t84920, t84921, t84922, t84923);} /* MERGE[1576] */ struct w49 f1576(struct w49 a15167, struct w49 a15168, unsigned a15169, unsigned a15170) {struct w49 r1576; struct w49 a25955; /* U2 */ struct w49 a25971; /* U2 */ struct w49 a33596; /* X1 */ struct w49 a33597; /* X2 */ struct w49 a33604; /* X1 */ struct w49 a33605; /* X2 */ struct w16638 a35577; /* PAIR */ struct w16638 a35578; /* PAIR */ struct w16638 a36149; /* PAIR */ struct w16638 a36150; /* PAIR */ struct w16638 a36151; /* PAIR */ struct w16638 a36152; /* PAIR */ struct w49 a36988; /* S */ struct w49 a36989; /* S */ struct w49 a40556; /* X */ struct w49 a40557; /* X */ struct w49 t84934; struct w49 t84935; unsigned t84936; struct w49 t84937; struct w49 t84938; struct w49 t84939; struct w49 t84940; struct w49 t84942; struct w49 t84943; struct w49 t84945; struct w49 t84946; struct w49 t84947; struct w49 t84948; unsigned t84949; struct w49 t84950; unsigned t84951; unsigned t84952; struct w49 t84953; struct w16638 t84954; struct w16638 t84955; unsigned t84956; struct w49 t84957; unsigned t84958; unsigned t84959; struct w49 t84960; struct w16638 t84961; struct w16638 t84962; struct w49 t84963; struct w49 t84964; struct w16638 t84965; struct w16638 t84966; struct w16638 t84967; struct w49 t84968; unsigned t84969; unsigned t84970; struct w49 t84971; struct w16638 t84972; struct w16638 t84973; struct w49 t84974; struct w49 t84975; struct w16638 t84976; struct w16638 t84977; struct w49 t84978; struct w16638 t84979; unsigned t84980; unsigned t84981; struct w49 t84982; struct w16638 t84983; struct w16638 t84984; /* x17794 QobiScheme.sc:800:23162 */ /* x17740 QobiScheme.sc:800:23169 */ /* x17739 QobiScheme.sc:800:23176 */ t84934 = a15167; /* x270857 QobiScheme.sc:800:23170 */ if (!((t84934.tag)==NULL_TYPE)) goto l16227; /* x17743 */ /* x17742 */ /* x17741 QobiScheme.sc:800:23183 */ return a15168; l16227: /* x17793 */ /* x17746 QobiScheme.sc:801:23198 */ /* x17745 QobiScheme.sc:801:23205 */ t84935 = a15168; /* x270856 QobiScheme.sc:801:23199 */ if (!((t84935.tag)==NULL_TYPE)) goto l16229; /* x17749 */ /* x17748 */ /* x17747 QobiScheme.sc:801:23212 */ return a15167; l16229: /* x17792 */ /* x17761 QobiScheme.sc:802:23227 */ /* x17755 QobiScheme.sc:802:23238 */ /* x17754 QobiScheme.sc:802:23243 */ /* x17753 QobiScheme.sc:802:23250 */ t84954 = *((struct w16638 *)(&a15167)); /* x17752 QobiScheme.sc:802:23244 */ a36151 = t84954; /* x275961 */ /* x275960 */ t84955 = a36151; /* x275959 */ if (!((t84955.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30300]"); structure_ref_error();} t84950 = t84955.value.structure_type24753->s0; /* x17751 QobiScheme.sc:802:23239 */ t84949 = a15170; switch (t84949) {case NATIVE_PROCEDURE_TYPE7386: t84951 = f7960(t84950); /* MOVE: dispatching squished to general */ if (t84951==FALSE_TYPE) t84937.tag = (unsigned)t84951; else {t84937.tag = FIXNUM_TYPE; t84937.value.fixnum_type = (int)(((int)t84951)>>1);} break; case NATIVE_PROCEDURE_TYPE7387: t84952 = f7936(t84950); /* MOVE: dispatching squished to general */ if (t84952==FALSE_TYPE) t84937.tag = (unsigned)t84952; else {t84937.tag = FIXNUM_TYPE; t84937.value.fixnum_type = (int)(((int)t84952)>>1);} break; case NATIVE_PROCEDURE_TYPE7714: a36988 = t84950; /* x280621 */ /* x280620 */ t84953 = a36988; /* x280619 */ if (!((t84953.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-INDEX[6565] 31905]"); structure_ref_error();} /* MOVE: dispatching squished to general */ if ((t84953.value.structure_type27692->s6)==FALSE_TYPE) t84937.tag = (unsigned)(t84953.value.structure_type27692->s6); else {t84937.tag = FIXNUM_TYPE; t84937.value.fixnum_type = (int)(((int)(t84953.value.structure_type27692->s6))>>1);} break; default: a40556 = t84950; /* x297547 QobiScheme.sc:153:5129 */ t84937 = a40556;} /* x17760 QobiScheme.sc:802:23258 */ /* x17759 QobiScheme.sc:802:23263 */ /* x17758 QobiScheme.sc:802:23270 */ t84961 = *((struct w16638 *)(&a15168)); /* x17757 QobiScheme.sc:802:23264 */ a36152 = t84961; /* x275965 */ /* x275964 */ t84962 = a36152; /* x275963 */ if (!((t84962.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30301]"); structure_ref_error();} t84957 = t84962.value.structure_type24753->s0; /* x17756 QobiScheme.sc:802:23259 */ t84956 = a15170; switch (t84956) {case NATIVE_PROCEDURE_TYPE7386: t84958 = f7960(t84957); /* MOVE: dispatching squished to general */ if (t84958==FALSE_TYPE) t84938.tag = (unsigned)t84958; else {t84938.tag = FIXNUM_TYPE; t84938.value.fixnum_type = (int)(((int)t84958)>>1);} break; case NATIVE_PROCEDURE_TYPE7387: t84959 = f7936(t84957); /* MOVE: dispatching squished to general */ if (t84959==FALSE_TYPE) t84938.tag = (unsigned)t84959; else {t84938.tag = FIXNUM_TYPE; t84938.value.fixnum_type = (int)(((int)t84959)>>1);} break; case NATIVE_PROCEDURE_TYPE7714: a36989 = t84957; /* x280625 */ /* x280624 */ t84960 = a36989; /* x280623 */ if (!((t84960.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-INDEX[6565] 31906]"); structure_ref_error();} /* MOVE: dispatching squished to general */ if ((t84960.value.structure_type27692->s6)==FALSE_TYPE) t84938.tag = (unsigned)(t84960.value.structure_type27692->s6); else {t84938.tag = FIXNUM_TYPE; t84938.value.fixnum_type = (int)(((int)(t84960.value.structure_type27692->s6))>>1);} break; default: a40557 = t84957; /* x297549 QobiScheme.sc:153:5129 */ t84938 = a40557;} /* x17750 QobiScheme.sc:802:23228 */ t84936 = a15169; switch (t84936) {case NATIVE_PROCEDURE_TYPE424: a33604 = t84937; a33605 = t84938; /* x251622 */ /* x251584 */ /* x251582 */ t84939 = a33604; /* x251583 */ t84940 = a33605; /* x251581 */ switch (t84939.tag) {case FIXNUM_TYPE: switch (t84940.tag) {case FIXNUM_TYPE: if (!((t84939.value.fixnum_type)>(t84940.value.fixnum_type))) goto l16231; break; case FLONUM_TYPE: if (!((t84939.value.fixnum_type)>(t84940.value.flonum_type))) goto l16231; break; default: backtrace_internal(">[27217]"); gt_error();} break; case FLONUM_TYPE: switch (t84940.tag) {case FIXNUM_TYPE: if (!((t84939.value.flonum_type)>(t84940.value.fixnum_type))) goto l16231; break; case FLONUM_TYPE: if (!((t84939.value.flonum_type)>(t84940.value.flonum_type))) goto l16231; break; default: backtrace_internal(">[27217]"); gt_error();} break; default: backtrace_internal(">[27217]"); gt_error();} /* x251620 */ /* x251618 */ /* x251619 */ /* x251617 */ /* x251616 */ /* x251615 */ /* x251614 */ /* x251613 */ /* x251612 */ /* x251611 */ /* x251586 */ /* x251585 */ /* x251610 */ /* x251609 */ /* x251608 */ /* x267169 */ break; case NATIVE_PROCEDURE_TYPE425: a33596 = t84937; a33597 = t84938; /* x251578 */ /* x251540 */ /* x251538 */ t84942 = a33596; /* x251539 */ t84943 = a33597; /* x251537 */ switch (t84942.tag) {case FIXNUM_TYPE: switch (t84943.tag) {case FIXNUM_TYPE: if (!((t84942.value.fixnum_type)<(t84943.value.fixnum_type))) goto l16231; break; case FLONUM_TYPE: if (!((t84942.value.fixnum_type)<(t84943.value.flonum_type))) goto l16231; break; default: backtrace_internal("<[27211]"); lt_error();} break; case FLONUM_TYPE: switch (t84943.tag) {case FIXNUM_TYPE: if (!((t84942.value.flonum_type)<(t84943.value.fixnum_type))) goto l16231; break; case FLONUM_TYPE: if (!((t84942.value.flonum_type)<(t84943.value.flonum_type))) goto l16231; break; default: backtrace_internal("<[27211]"); lt_error();} break; default: backtrace_internal("<[27211]"); lt_error();} /* x251576 */ /* x251574 */ /* x251575 */ /* x251573 */ /* x251572 */ /* x251571 */ /* x251570 */ /* x251569 */ /* x251568 */ /* x251567 */ /* x251542 */ /* x251541 */ /* x251566 */ /* x251565 */ /* x251564 */ /* x267173 */ break; case NATIVE_PROCEDURE_TYPE15180: a25955 = t84938; /* x131251 stalin.sc:16527:577131 */ /* x131250 stalin.sc:16527:577135 */ /* x131249 stalin.sc:16527:577149 */ t84945 = a25955; /* x131248 stalin.sc:16527:577136 */ if (!(f7683(t84945)==FALSE_TYPE)) goto l16230; /* x131245 */ /* x131244 stalin.sc:16527:577178 */ t84946 = a25955; /* x131243 stalin.sc:16527:577154 */ if (f7754(t84946)==FALSE_TYPE) goto l16231; break; default: a25971 = t84938; /* x131456 stalin.sc:16558:578548 */ /* x131455 stalin.sc:16558:578552 */ /* x131454 stalin.sc:16558:578566 */ t84947 = a25971; /* x131453 stalin.sc:16558:578553 */ if (!(f7683(t84947)==FALSE_TYPE)) goto l16230; /* x131450 */ /* x131449 stalin.sc:16558:578595 */ t84948 = a25971; /* x131448 stalin.sc:16558:578571 */ if (f7754(t84948)==FALSE_TYPE) goto l16231;} l16230: /* x17776 */ /* x17775 */ /* x17774 QobiScheme.sc:803:23280 */ /* x17765 QobiScheme.sc:803:23286 */ /* x17764 QobiScheme.sc:803:23293 */ t84976 = *((struct w16638 *)(&a15167)); /* x17763 QobiScheme.sc:803:23287 */ a36149 = t84976; /* x275953 */ /* x275952 */ t84977 = a36149; /* x275951 */ if (!((t84977.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30298]"); structure_ref_error();} t84974 = t84977.value.structure_type24753->s0; /* x17773 QobiScheme.sc:803:23300 */ /* x17769 QobiScheme.sc:803:23307 */ /* x17768 QobiScheme.sc:803:23313 */ t84983 = *((struct w16638 *)(&a15167)); /* x17767 QobiScheme.sc:803:23308 */ a35577 = t84983; /* x273665 */ /* x273664 */ t84984 = a35577; /* x273663 */ if (!((t84984.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29726]"); structure_ref_error();} t84978 = t84984.value.structure_type24753->s1; /* x17770 QobiScheme.sc:803:23320 */ t84979 = *((struct w16638 *)(&a15168)); /* x17771 QobiScheme.sc:803:23326 */ t84980 = a15169; /* x17772 QobiScheme.sc:803:23336 */ t84981 = a15170; /* x17766 QobiScheme.sc:803:23301 */ t84982 = *((struct w49 *)(&t84979)); t84975 = f1576(t84978, t84982, t84980, t84981); /* x270855 QobiScheme.sc:803:23281 */ r1576.tag = STRUCTURE_TYPE24753; r1576.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r1576.value.structure_type24753)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 803, 23280); out_of_memory_error();} r1576.value.structure_type24753->s0 = t84974; r1576.value.structure_type24753->s1 = t84975; return r1576; l16231: /* x17791 */ /* x17790 */ /* x17789 QobiScheme.sc:804:23356 */ /* x17780 QobiScheme.sc:804:23362 */ /* x17779 QobiScheme.sc:804:23369 */ t84965 = *((struct w16638 *)(&a15168)); /* x17778 QobiScheme.sc:804:23363 */ a36150 = t84965; /* x275957 */ /* x275956 */ t84966 = a36150; /* x275955 */ if (!((t84966.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30299]"); structure_ref_error();} t84963 = t84966.value.structure_type24753->s0; /* x17788 QobiScheme.sc:804:23376 */ /* x17782 QobiScheme.sc:804:23383 */ t84967 = *((struct w16638 *)(&a15167)); /* x17785 QobiScheme.sc:804:23389 */ /* x17784 QobiScheme.sc:804:23395 */ t84972 = *((struct w16638 *)(&a15168)); /* x17783 QobiScheme.sc:804:23390 */ a35578 = t84972; /* x273669 */ /* x273668 */ t84973 = a35578; /* x273667 */ if (!((t84973.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29727]"); structure_ref_error();} t84968 = t84973.value.structure_type24753->s1; /* x17786 QobiScheme.sc:804:23402 */ t84969 = a15169; /* x17787 QobiScheme.sc:804:23412 */ t84970 = a15170; /* x17781 QobiScheme.sc:804:23377 */ t84971 = *((struct w49 *)(&t84967)); t84964 = f1576(t84971, t84968, t84969, t84970); /* x270854 QobiScheme.sc:804:23357 */ r1576.tag = STRUCTURE_TYPE24753; r1576.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r1576.value.structure_type24753)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 804, 23356); out_of_memory_error();} r1576.value.structure_type24753->s0 = t84963; r1576.value.structure_type24753->s1 = t84964; return r1576;} /* EVERY-OTHER[1572] */ struct w49 f1572(struct w49 a15166) {struct w49 r1572; struct w49 a35579; /* PAIR */ struct w16638 a35580; /* PAIR */ struct w16638 a35581; /* PAIR */ struct w16638 a36153; /* PAIR */ struct w49 t84985; struct w49 t84986; struct w16638 t84987; struct w16638 t84988; struct w49 t84989; struct w49 t84990; struct w16638 t84991; struct w16638 t84992; struct w49 t84993; struct w49 t84994; struct w49 t84995; struct w16638 t84996; struct w16638 t84997; /* x17735 QobiScheme.sc:795:22990 */ /* x17708 QobiScheme.sc:795:22997 */ /* x17707 QobiScheme.sc:795:23004 */ t84985 = a15166; /* x270860 QobiScheme.sc:795:22998 */ if (!((t84985.tag)==NULL_TYPE)) goto l16237; /* x17711 */ /* x17710 */ /* x17709 QobiScheme.sc:795:23010 */ r1572.tag = NULL_TYPE; return r1572; l16237: /* x17734 */ /* x17716 QobiScheme.sc:796:23023 */ /* x17715 QobiScheme.sc:796:23030 */ /* x17714 QobiScheme.sc:796:23036 */ t84987 = *((struct w16638 *)(&a15166)); /* x17713 QobiScheme.sc:796:23031 */ a35581 = t84987; /* x273681 */ /* x273680 */ t84988 = a35581; /* x273679 */ if (!((t84988.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29730]"); structure_ref_error();} t84986 = t84988.value.structure_type24753->s1; /* x270859 QobiScheme.sc:796:23024 */ if (!((t84986.tag)==NULL_TYPE)) goto l16239; /* x17719 */ /* x17718 */ /* x17717 QobiScheme.sc:796:23043 */ return a15166; l16239: /* x17733 */ /* x17732 */ /* x17731 QobiScheme.sc:797:23062 */ /* x17723 QobiScheme.sc:797:23068 */ /* x17722 QobiScheme.sc:797:23075 */ t84991 = *((struct w16638 *)(&a15166)); /* x17721 QobiScheme.sc:797:23069 */ a36153 = t84991; /* x275969 */ /* x275968 */ t84992 = a36153; /* x275967 */ if (!((t84992.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30302]"); structure_ref_error();} t84989 = t84992.value.structure_type24753->s0; /* x17730 QobiScheme.sc:797:23081 */ /* x17729 QobiScheme.sc:797:23094 */ /* x17728 QobiScheme.sc:797:23100 */ /* x17727 QobiScheme.sc:797:23106 */ t84996 = *((struct w16638 *)(&a15166)); /* x17726 QobiScheme.sc:797:23101 */ a35580 = t84996; /* x273677 */ /* x273676 */ t84997 = a35580; /* x273675 */ if (!((t84997.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29729]"); structure_ref_error();} t84994 = t84997.value.structure_type24753->s1; /* x17725 QobiScheme.sc:797:23095 */ a35579 = t84994; /* x273673 */ /* x273672 */ t84995 = a35579; /* x273671 */ if (!((t84995.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29728]"); structure_ref_error();} t84993 = t84995.value.structure_type24753->s1; /* x17724 QobiScheme.sc:797:23082 */ t84990 = f1572(t84993); /* x270858 QobiScheme.sc:797:23063 */ r1572.tag = STRUCTURE_TYPE24753; r1572.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((r1572.value.structure_type24753)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 797, 23062); out_of_memory_error();} r1572.value.structure_type24753->s0 = t84989; r1572.value.structure_type24753->s1 = t84990; return r1572;} /* EQUIVALENCE-CLASSESP[1553] */ struct structure_type24753 *f1553(struct p1542 *p1553, struct w49 a15150) {struct structure_type24753 *r1553; struct w49 a15151; /* Y */ struct structure_type24753 *a15152; /* X */ struct w49 a15153; /* Z */ struct structure_type24753 *a35213; /* OBJS */ struct w16638 a35586; /* PAIR */ struct w16638 a36156; /* PAIR */ struct w49 t84998; struct p1542 *t84999; struct w49 t85000; struct p1554 *t85001; struct structure_type24753 *t85002; struct p1554 *t85003; struct w49 t85004; struct p1554 *t85005; struct structure_type24753 *t85006; struct structure_type24753 *t85007; struct w49 t85008; struct structure_type24753 *t85009; struct w12224 t85010; struct w49 t85011; struct w3467 t85012; struct w3467 t85013; struct structure_type24753 *t85014; struct w49 t85015; struct w49 t85016; struct p1554 *t85017; struct structure_type24753 *t85018; struct w227506 t85019; struct w49 t85020; struct p1542 *t85021; struct p1542 *t85022; struct w49 t85023; struct w16638 t85024; struct w16638 t85025; struct w16638 t85026; struct w16638 t85027; struct p1554 *e1554; struct p1542 *p1554; struct p1554 *p1555; struct p1554 *p1556; struct p1554 *p1557; /* x17631 QobiScheme.sc:770:22235 */ /* x17582 QobiScheme.sc:770:22239 */ /* x17581 QobiScheme.sc:770:22246 */ t84998 = a15150; /* x270869 QobiScheme.sc:770:22240 */ if (!((t84998.tag)==NULL_TYPE)) goto l16241; /* x17583 QobiScheme.sc:771:22255 */ return (struct structure_type24753 *)NULL_TYPE; l16241: /* x17630 QobiScheme.sc:772:22265 */ /* x17629 QobiScheme.sc:772:22275 */ /* x17628 QobiScheme.sc:772:22282 */ t85026 = *((struct w16638 *)(&a15150)); /* x17627 QobiScheme.sc:772:22276 */ a36156 = t85026; /* x275981 */ /* x275980 */ t85027 = a36156; /* x275979 */ if (!((t85027.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30305]"); structure_ref_error();} t85000 = t85027.value.structure_type24753->s0; /* x17626 */ t84999 = p1553; p1554 = t84999; a15151 = t85000; e1554 = (struct p1554 *)alloca(sizeof(struct p1554)); if (e1554==NULL) {backtrace_internal("EQUIVALENCE-CLASSESP[1553]"); out_of_memory_error();} e1554->p1542 = p1554; e1554->a15151 = a15151; /* x17625 */ /* x17624 QobiScheme.sc:773:22295 */ /* x17620 QobiScheme.sc:773:22317 */ t85022 = p1554; /* x17623 QobiScheme.sc:773:22319 */ /* x17622 QobiScheme.sc:773:22325 */ t85024 = *((struct w16638 *)(&a15150)); /* x17621 QobiScheme.sc:773:22320 */ a35586 = t85024; /* x273701 */ /* x273700 */ t85025 = a35586; /* x273699 */ if (!((t85025.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29735]"); structure_ref_error();} t85023 = t85025.value.structure_type24753->s1; /* x17619 QobiScheme.sc:773:22296 */ t85021 = p1554; t85002 = f1553(t85021, t85023); /* x17618 */ t85001 = e1554; p1555 = t85001; a15152 = t85002; /* x17617 */ /* x17616 QobiScheme.sc:774:22339 */ /* x17614 QobiScheme.sc:774:22348 */ t85017 = p1555; /* x17615 QobiScheme.sc:774:22391 */ t85018 = a15152; /* x17605 QobiScheme.sc:774:22340 */ t85019.tag = NATIVE_PROCEDURE_TYPE15157; t85019.value.native_procedure_type15157 = t85017; /* MOVE: branching squeezed to general */ if (t85018>=((struct structure_type24753 *)VALUE_OFFSET)) {t85020.tag = STRUCTURE_TYPE24753; t85020.value.structure_type24753 = t85018;} else t85020.tag = (unsigned)t85018; t85004 = f1314(t85019, t85020); /* x17604 */ t85003 = p1555; p1556 = t85003; a15153 = t85004; /* x17603 */ /* x17602 */ t85005 = p1556; p1557 = t85005; /* x17601 QobiScheme.sc:775:22403 */ /* x17584 QobiScheme.sc:775:22407 */ if ((a15153.tag)==FALSE_TYPE) goto l16243; /* x17594 QobiScheme.sc:775:22409 */ /* x17589 QobiScheme.sc:775:22415 */ /* x17587 QobiScheme.sc:775:22421 */ t85011 = p1557->a15151; /* x17588 QobiScheme.sc:775:22423 */ t85012 = *((struct w3467 *)(&a15153)); /* x270867 QobiScheme.sc:775:22416 */ t85009 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t85009==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 775, 22415); out_of_memory_error();} t85009->s0 = t85011; t85009->s1 = *((struct w49 *)(&t85012)); /* x17593 QobiScheme.sc:775:22426 */ /* x17591 QobiScheme.sc:775:22435 */ t85013 = *((struct w3467 *)(&a15153)); /* x17592 QobiScheme.sc:775:22437 */ t85014 = a15152; /* x17590 QobiScheme.sc:775:22427 */ t85015 = *((struct w49 *)(&t85013)); /* MOVE: branching squeezed to general */ if (t85014>=((struct structure_type24753 *)VALUE_OFFSET)) {t85016.tag = STRUCTURE_TYPE24753; t85016.value.structure_type24753 = t85014;} else t85016.tag = (unsigned)t85014; t85010 = f1194(t85015, t85016); /* x270868 QobiScheme.sc:775:22410 */ r1553 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r1553==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 775, 22409); out_of_memory_error();} r1553->s0.tag = STRUCTURE_TYPE24753; r1553->s0.value.structure_type24753 = t85009; r1553->s1 = *((struct w49 *)(&t85010)); return r1553; l16243: /* x17600 QobiScheme.sc:775:22441 */ /* x17598 QobiScheme.sc:775:22447 */ /* x17597 QobiScheme.sc:775:22453 */ t85008 = p1557->a15151; /* x17596 QobiScheme.sc:775:22448 */ a35213 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35213==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 775, 22447); out_of_memory_error();} a35213->s0 = t85008; a35213->s1.tag = NULL_TYPE; /* x272433 */ t85006 = a35213; /* x17599 QobiScheme.sc:775:22456 */ t85007 = a15152; /* x270866 QobiScheme.sc:775:22442 */ r1553 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r1553==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 775, 22441); out_of_memory_error();} r1553->s0.tag = STRUCTURE_TYPE24753; r1553->s0.value.structure_type24753 = t85006; /* MOVE: branching squeezed to general */ if (t85007>=((struct structure_type24753 *)VALUE_OFFSET)) {r1553->s1.tag = STRUCTURE_TYPE24753; r1553->s1.value.structure_type24753 = t85007;} else r1553->s1.tag = (unsigned)t85007; return r1553;} /* [inside LOOP 1549] */ struct w49 f1549(struct w49 a15145) {struct w49 t85028; unsigned t85029; struct w228463 t85030; /* x17550 QobiScheme.sc:777:22521 */ /* x17547 QobiScheme.sc:777:22529 */ /* x17548 QobiScheme.sc:777:22536 */ t85028 = a15145; /* x17549 QobiScheme.sc:777:22538 */ /* x17546 QobiScheme.sc:777:22522 */ t85029 = NATIVE_PROCEDURE_TYPE454; t85030.tag = NULL_TYPE; return f1006(t85029, t85028, t85030);} /* TRANSITIVE-EQUIVALENCE-CLASSESP[1536] */ struct structure_type24753 *f1536(unsigned a15131, struct w49 a15132) {struct structure_type24753 *r1536; struct w49 a15133; /* Y */ struct structure_type24753 *a15134; /* X */ struct w49 a15135; /* Z */ struct structure_type24753 *a35134; /* OBJS */ struct w16638 a35471; /* PAIR */ struct w16638 a35978; /* PAIR */ struct w49 t85031; struct p1536 *t85032; struct w49 t85033; struct p1537 *t85034; struct structure_type24753 *t85035; struct p1537 *t85036; struct w49 t85037; struct p1537 *t85038; struct structure_type24753 *t85039; struct structure_type24753 *t85040; struct w49 t85041; struct structure_type24753 *t85042; struct w12224 t85043; struct w49 t85044; struct w3467 t85045; struct w3467 t85046; struct structure_type24753 *t85047; struct w49 t85048; struct w49 t85049; struct p1537 *t85050; struct structure_type24753 *t85051; struct w227506 t85052; struct w49 t85053; unsigned t85054; struct w49 t85055; struct w16638 t85056; struct w16638 t85057; struct w16638 t85058; struct w16638 t85059; struct p1536 *e1536; struct p1537 *e1537; struct p1536 *p1537; struct p1537 *p1538; struct p1537 *p1539; struct p1537 *p1540; e1536 = (struct p1536 *)alloca(sizeof(struct p1536)); if (e1536==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e1536->a15131 = a15131; /* x17526 QobiScheme.sc:759:21839 */ /* x17479 QobiScheme.sc:759:21843 */ /* x17478 QobiScheme.sc:759:21850 */ t85031 = a15132; /* x270874 QobiScheme.sc:759:21844 */ if (!((t85031.tag)==NULL_TYPE)) goto l16245; /* x17480 QobiScheme.sc:760:21858 */ return (struct structure_type24753 *)NULL_TYPE; l16245: /* x17525 QobiScheme.sc:761:21867 */ /* x17524 QobiScheme.sc:761:21877 */ /* x17523 QobiScheme.sc:761:21884 */ t85058 = *((struct w16638 *)(&a15132)); /* x17522 QobiScheme.sc:761:21878 */ a35978 = t85058; /* x275269 */ /* x275268 */ t85059 = a35978; /* x275267 */ if (!((t85059.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30127]"); structure_ref_error();} t85033 = t85059.value.structure_type24753->s0; /* x17521 */ t85032 = e1536; p1537 = t85032; a15133 = t85033; e1537 = (struct p1537 *)alloca(sizeof(struct p1537)); if (e1537==NULL) {backtrace_internal("TRANSITIVE-EQUIVALENCE-CLASSESP[1536]"); out_of_memory_error();} e1537->p1536 = p1537; e1537->a15133 = a15133; /* x17520 */ /* x17519 QobiScheme.sc:762:21896 */ /* x17515 QobiScheme.sc:762:21929 */ t85054 = p1537->a15131; /* x17518 QobiScheme.sc:762:21931 */ /* x17517 QobiScheme.sc:762:21937 */ t85056 = *((struct w16638 *)(&a15132)); /* x17516 QobiScheme.sc:762:21932 */ a35471 = t85056; /* x273241 */ /* x273240 */ t85057 = a35471; /* x273239 */ if (!((t85057.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29620]"); structure_ref_error();} t85055 = t85057.value.structure_type24753->s1; /* x17514 QobiScheme.sc:762:21897 */ t85035 = f1536(t85054, t85055); /* x17513 */ t85034 = e1537; p1538 = t85034; a15134 = t85035; /* x17512 */ /* x17511 QobiScheme.sc:763:21950 */ /* x17509 QobiScheme.sc:763:21959 */ t85050 = p1538; /* x17510 QobiScheme.sc:763:21988 */ t85051 = a15134; /* x17502 QobiScheme.sc:763:21951 */ t85052.tag = NATIVE_PROCEDURE_TYPE20305; t85052.value.native_procedure_type20305 = t85050; /* MOVE: branching squeezed to general */ if (t85051>=((struct structure_type24753 *)VALUE_OFFSET)) {t85053.tag = STRUCTURE_TYPE24753; t85053.value.structure_type24753 = t85051;} else t85053.tag = (unsigned)t85051; t85037 = f1314(t85052, t85053); /* x17501 */ t85036 = p1538; p1539 = t85036; a15135 = t85037; /* x17500 */ /* x17499 */ t85038 = p1539; p1540 = t85038; /* x17498 QobiScheme.sc:764:21999 */ /* x17481 QobiScheme.sc:764:22003 */ if ((a15135.tag)==FALSE_TYPE) goto l16247; /* x17491 QobiScheme.sc:764:22005 */ /* x17486 QobiScheme.sc:764:22011 */ /* x17484 QobiScheme.sc:764:22017 */ t85044 = p1540->a15133; /* x17485 QobiScheme.sc:764:22019 */ t85045 = *((struct w3467 *)(&a15135)); /* x270872 QobiScheme.sc:764:22012 */ t85042 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t85042==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 764, 22011); out_of_memory_error();} t85042->s0 = t85044; t85042->s1 = *((struct w49 *)(&t85045)); /* x17490 QobiScheme.sc:764:22022 */ /* x17488 QobiScheme.sc:764:22031 */ t85046 = *((struct w3467 *)(&a15135)); /* x17489 QobiScheme.sc:764:22033 */ t85047 = a15134; /* x17487 QobiScheme.sc:764:22023 */ t85048 = *((struct w49 *)(&t85046)); /* MOVE: branching squeezed to general */ if (t85047>=((struct structure_type24753 *)VALUE_OFFSET)) {t85049.tag = STRUCTURE_TYPE24753; t85049.value.structure_type24753 = t85047;} else t85049.tag = (unsigned)t85047; t85043 = f1194(t85048, t85049); /* x270873 QobiScheme.sc:764:22006 */ r1536 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r1536==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 764, 22005); out_of_memory_error();} r1536->s0.tag = STRUCTURE_TYPE24753; r1536->s0.value.structure_type24753 = t85042; r1536->s1 = *((struct w49 *)(&t85043)); return r1536; l16247: /* x17497 QobiScheme.sc:764:22037 */ /* x17495 QobiScheme.sc:764:22043 */ /* x17494 QobiScheme.sc:764:22049 */ t85041 = p1540->a15133; /* x17493 QobiScheme.sc:764:22044 */ a35134 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35134==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 764, 22043); out_of_memory_error();} a35134->s0 = t85041; a35134->s1.tag = NULL_TYPE; /* x272275 */ t85039 = a35134; /* x17496 QobiScheme.sc:764:22052 */ t85040 = a15134; /* x270871 QobiScheme.sc:764:22038 */ r1536 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r1536==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 764, 22037); out_of_memory_error();} r1536->s0.tag = STRUCTURE_TYPE24753; r1536->s0.value.structure_type24753 = t85039; /* MOVE: branching squeezed to general */ if (t85040>=((struct structure_type24753 *)VALUE_OFFSET)) {r1536->s1.tag = STRUCTURE_TYPE24753; r1536->s1.value.structure_type24753 = t85040;} else r1536->s1.tag = (unsigned)t85040; return r1536;} /* EQUIVALENCE-CLASSESQ[1518] */ struct structure_type24753 *f1518(struct w49 a15116) {struct structure_type24753 *r1518; struct w49 a15117; /* Y */ struct structure_type24753 *a15118; /* X */ struct w49 a15119; /* Z */ struct structure_type24753 *a35211; /* OBJS */ struct w16638 a35576; /* PAIR */ struct w16638 a36138; /* PAIR */ struct w49 t85060; struct w49 t85061; struct p1519 *t85062; struct structure_type24753 *t85063; struct p1519 *t85064; struct w49 t85065; struct p1519 *t85066; struct structure_type24753 *t85067; struct structure_type24753 *t85068; struct w49 t85069; struct structure_type24753 *t85070; struct w12224 t85071; struct w49 t85072; struct w3467 t85073; struct w3467 t85074; struct structure_type24753 *t85075; struct w49 t85076; struct w49 t85077; struct p1519 *t85078; struct structure_type24753 *t85079; struct w227506 t85080; struct w49 t85081; struct w49 t85082; struct w16638 t85083; struct w16638 t85084; struct w16638 t85085; struct w16638 t85086; struct p1519 *e1519; struct p1519 *p1520; struct p1519 *p1521; struct p1519 *p1522; /* x17372 QobiScheme.sc:732:20972 */ /* x17326 QobiScheme.sc:732:20976 */ /* x17325 QobiScheme.sc:732:20983 */ t85060 = a15116; /* x270879 QobiScheme.sc:732:20977 */ if (!((t85060.tag)==NULL_TYPE)) goto l16249; /* x17327 QobiScheme.sc:733:20991 */ return (struct structure_type24753 *)NULL_TYPE; l16249: /* x17371 QobiScheme.sc:734:21000 */ /* x17370 QobiScheme.sc:734:21010 */ /* x17369 QobiScheme.sc:734:21017 */ t85085 = *((struct w16638 *)(&a15116)); /* x17368 QobiScheme.sc:734:21011 */ a36138 = t85085; /* x275909 */ /* x275908 */ t85086 = a36138; /* x275907 */ if (!((t85086.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30287]"); structure_ref_error();} t85061 = t85086.value.structure_type24753->s0; /* x17367 */ a15117 = t85061; e1519 = (struct p1519 *)alloca(sizeof(struct p1519)); if (e1519==NULL) {backtrace_internal("EQUIVALENCE-CLASSESQ[1518]"); out_of_memory_error();} e1519->a15117 = a15117; /* x17366 */ /* x17365 QobiScheme.sc:735:21029 */ /* x17364 QobiScheme.sc:735:21051 */ /* x17363 QobiScheme.sc:735:21057 */ t85083 = *((struct w16638 *)(&a15116)); /* x17362 QobiScheme.sc:735:21052 */ a35576 = t85083; /* x273661 */ /* x273660 */ t85084 = a35576; /* x273659 */ if (!((t85084.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29725]"); structure_ref_error();} t85082 = t85084.value.structure_type24753->s1; /* x17361 QobiScheme.sc:735:21030 */ t85063 = f1518(t85082); /* x17360 */ t85062 = e1519; p1520 = t85062; a15118 = t85063; /* x17359 */ /* x17358 QobiScheme.sc:736:21070 */ /* x17356 QobiScheme.sc:736:21079 */ t85078 = p1520; /* x17357 QobiScheme.sc:736:21110 */ t85079 = a15118; /* x17349 QobiScheme.sc:736:21071 */ t85080.tag = NATIVE_PROCEDURE_TYPE15673; t85080.value.native_procedure_type15673 = t85078; /* MOVE: branching squeezed to general */ if (t85079>=((struct structure_type24753 *)VALUE_OFFSET)) {t85081.tag = STRUCTURE_TYPE24753; t85081.value.structure_type24753 = t85079;} else t85081.tag = (unsigned)t85079; t85065 = f1314(t85080, t85081); /* x17348 */ t85064 = p1520; p1521 = t85064; a15119 = t85065; /* x17347 */ /* x17346 */ t85066 = p1521; p1522 = t85066; /* x17345 QobiScheme.sc:737:21121 */ /* x17328 QobiScheme.sc:737:21125 */ if ((a15119.tag)==FALSE_TYPE) goto l16251; /* x17338 QobiScheme.sc:737:21127 */ /* x17333 QobiScheme.sc:737:21133 */ /* x17331 QobiScheme.sc:737:21139 */ t85072 = p1522->a15117; /* x17332 QobiScheme.sc:737:21141 */ t85073 = *((struct w3467 *)(&a15119)); /* x270877 QobiScheme.sc:737:21134 */ t85070 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t85070==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 737, 21133); out_of_memory_error();} t85070->s0 = t85072; t85070->s1 = *((struct w49 *)(&t85073)); /* x17337 QobiScheme.sc:737:21144 */ /* x17335 QobiScheme.sc:737:21153 */ t85074 = *((struct w3467 *)(&a15119)); /* x17336 QobiScheme.sc:737:21155 */ t85075 = a15118; /* x17334 QobiScheme.sc:737:21145 */ t85076 = *((struct w49 *)(&t85074)); /* MOVE: branching squeezed to general */ if (t85075>=((struct structure_type24753 *)VALUE_OFFSET)) {t85077.tag = STRUCTURE_TYPE24753; t85077.value.structure_type24753 = t85075;} else t85077.tag = (unsigned)t85075; t85071 = f1194(t85076, t85077); /* x270878 QobiScheme.sc:737:21128 */ r1518 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r1518==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 737, 21127); out_of_memory_error();} r1518->s0.tag = STRUCTURE_TYPE24753; r1518->s0.value.structure_type24753 = t85070; r1518->s1 = *((struct w49 *)(&t85071)); return r1518; l16251: /* x17344 QobiScheme.sc:737:21159 */ /* x17342 QobiScheme.sc:737:21165 */ /* x17341 QobiScheme.sc:737:21171 */ t85069 = p1522->a15117; /* x17340 QobiScheme.sc:737:21166 */ a35211 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35211==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 737, 21165); out_of_memory_error();} a35211->s0 = t85069; a35211->s1.tag = NULL_TYPE; /* x272429 */ t85067 = a35211; /* x17343 QobiScheme.sc:737:21174 */ t85068 = a15118; /* x270876 QobiScheme.sc:737:21160 */ r1518 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (r1518==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 737, 21159); out_of_memory_error();} r1518->s0.tag = STRUCTURE_TYPE24753; r1518->s0.value.structure_type24753 = t85067; /* MOVE: branching squeezed to general */ if (t85068>=((struct structure_type24753 *)VALUE_OFFSET)) {r1518->s1.tag = STRUCTURE_TYPE24753; r1518->s1.value.structure_type24753 = t85068;} else r1518->s1.tag = (unsigned)t85068; return r1518;} /* REMOVE-DUPLICATESQ[1486] */ struct w12224 f1486(struct structure_type24753 *a15095) {struct w49 a15098; /* X */ struct structure_type24753 *a15099; /* C */ struct w16638 a35405; /* PAIR */ struct w16638 a35406; /* PAIR */ struct w16638 a35874; /* PAIR */ struct w16638 a35875; /* PAIR */ struct structure_type24753 *t85087; struct w49 t85088; struct w49 t85089; struct structure_type24753 *t85090; struct w49 t85091; struct w16638 t85092; struct w16638 t85093; struct w49 t85094; struct structure_type24753 *t85095; struct w16638 t85096; struct w16638 t85097; struct w49 t85098; struct structure_type24753 *t85099; struct w16638 t85100; struct w16638 t85101; struct w49 t85102; struct structure_type24753 *t85103; struct w16638 t85104; struct w16638 t85105; struct structure_type24753 *t85106; struct w49 t85107; /* x17167 QobiScheme.sc:704:20103 */ /* x17165 QobiScheme.sc:704:20117 */ t85087 = a15095; /* x17166 QobiScheme.sc:704:20123 */ /* x17164 */ /* x17163 */ /* x17162 */ /* x17161 */ /* x17160 */ /* x17159 */ /* x17158 */ /* x17120 */ /* x17119 QobiScheme.sc:704:20108 */ /* MOVE: branching squeezed to general */ if (t85087>=((struct structure_type24753 *)VALUE_OFFSET)) {a15098.tag = STRUCTURE_TYPE24753; a15098.value.structure_type24753 = t85087;} else a15098.tag = (unsigned)t85087; a15099 = (struct structure_type24753 *)NULL_TYPE; h1489: /* x17157 QobiScheme.sc:705:20131 */ /* x17123 QobiScheme.sc:705:20138 */ /* x17122 QobiScheme.sc:705:20145 */ t85088 = a15098; /* x270885 QobiScheme.sc:705:20139 */ if (!((t85088.tag)==NULL_TYPE)) goto l16253; /* x17128 */ /* x17127 */ /* x17126 QobiScheme.sc:705:20148 */ /* x17125 QobiScheme.sc:705:20157 */ t85106 = a15099; /* x17124 QobiScheme.sc:705:20149 */ /* MOVE: branching squeezed to general */ if (t85106>=((struct structure_type24753 *)VALUE_OFFSET)) {t85107.tag = STRUCTURE_TYPE24753; t85107.value.structure_type24753 = t85106;} else t85107.tag = (unsigned)t85106; return f26331(t85107); l16253: /* x17156 */ /* x17134 QobiScheme.sc:706:20163 */ /* x17132 QobiScheme.sc:706:20169 */ /* x17131 QobiScheme.sc:706:20176 */ t85092 = *((struct w16638 *)(&a15098)); /* x17130 QobiScheme.sc:706:20170 */ a35875 = t85092; /* x274857 */ /* x274856 */ t85093 = a35875; /* x274855 */ if (!((t85093.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30024]"); structure_ref_error();} t85089 = t85093.value.structure_type24753->s0; /* x17133 QobiScheme.sc:706:20179 */ t85090 = a15099; /* x17129 QobiScheme.sc:706:20164 */ /* MOVE: branching squeezed to general */ if (t85090>=((struct structure_type24753 *)VALUE_OFFSET)) {t85091.tag = STRUCTURE_TYPE24753; t85091.value.structure_type24753 = t85090;} else t85091.tag = (unsigned)t85090; if ((f26351(t85089, t85091).tag)==FALSE_TYPE) goto l16255; /* x17142 */ /* x17141 */ /* x17140 QobiScheme.sc:706:20182 */ /* x17138 QobiScheme.sc:706:20188 */ /* x17137 QobiScheme.sc:706:20194 */ t85104 = *((struct w16638 *)(&a15098)); /* x17136 QobiScheme.sc:706:20189 */ a35405 = t85104; /* x272977 */ /* x272976 */ t85105 = a35405; /* x272975 */ if (!((t85105.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29554]"); structure_ref_error();} t85102 = t85105.value.structure_type24753->s1; /* x17139 QobiScheme.sc:706:20197 */ t85103 = a15099; /* x17135 QobiScheme.sc:706:20183 */ a15098 = t85102; a15099 = t85103; goto h1489; l16255: /* x17155 */ /* x17154 */ /* x17153 QobiScheme.sc:707:20208 */ /* x17146 QobiScheme.sc:707:20214 */ /* x17145 QobiScheme.sc:707:20220 */ t85096 = *((struct w16638 *)(&a15098)); /* x17144 QobiScheme.sc:707:20215 */ a35406 = t85096; /* x272981 */ /* x272980 */ t85097 = a35406; /* x272979 */ if (!((t85097.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29555]"); structure_ref_error();} t85094 = t85097.value.structure_type24753->s1; /* x17152 QobiScheme.sc:707:20223 */ /* x17150 QobiScheme.sc:707:20229 */ /* x17149 QobiScheme.sc:707:20236 */ t85100 = *((struct w16638 *)(&a15098)); /* x17148 QobiScheme.sc:707:20230 */ a35874 = t85100; /* x274853 */ /* x274852 */ t85101 = a35874; /* x274851 */ if (!((t85101.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30023]"); structure_ref_error();} t85098 = t85101.value.structure_type24753->s0; /* x17151 QobiScheme.sc:707:20239 */ t85099 = a15099; /* x270884 QobiScheme.sc:707:20224 */ t85095 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t85095==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 707, 20223); out_of_memory_error();} t85095->s0 = t85098; /* MOVE: branching squeezed to general */ if (t85099>=((struct structure_type24753 *)VALUE_OFFSET)) {t85095->s1.tag = STRUCTURE_TYPE24753; t85095->s1.value.structure_type24753 = t85099;} else t85095->s1.tag = (unsigned)t85099; /* x17143 QobiScheme.sc:707:20209 */ a15098 = t85094; a15099 = t85095; goto h1489;} /* SET-DIFFERENCEQ[1454] */ struct w12224 f1454(struct w21193 a15070, struct w12224 a15071) {struct w49 a15074; /* L */ struct structure_type24753 *a15075; /* C */ struct w16638 a35542; /* PAIR */ struct w16638 a35543; /* PAIR */ struct w16638 a36110; /* PAIR */ struct w16638 a36111; /* PAIR */ struct w21193 t85108; struct w49 t85109; struct w49 t85110; struct w12224 t85111; struct w49 t85112; struct w16638 t85113; struct w16638 t85114; struct w49 t85115; struct structure_type24753 *t85116; struct w16638 t85117; struct w16638 t85118; struct w49 t85119; struct structure_type24753 *t85120; struct w16638 t85121; struct w16638 t85122; struct w49 t85123; struct structure_type24753 *t85124; struct w16638 t85125; struct w16638 t85126; struct structure_type24753 *t85127; struct w49 t85128; /* x16962 QobiScheme.sc:676:19241 */ /* x16960 QobiScheme.sc:676:19255 */ t85108 = a15070; /* x16961 QobiScheme.sc:676:19261 */ /* x16959 */ /* x16958 */ /* x16957 */ /* x16956 */ /* x16955 */ /* x16954 */ /* x16953 */ /* x16915 */ /* x16914 QobiScheme.sc:676:19246 */ a15074 = *((struct w49 *)(&t85108)); a15075 = (struct structure_type24753 *)NULL_TYPE; h1457: /* x16952 QobiScheme.sc:677:19269 */ /* x16918 QobiScheme.sc:677:19276 */ /* x16917 QobiScheme.sc:677:19283 */ t85109 = a15074; /* x270887 QobiScheme.sc:677:19277 */ if (!((t85109.tag)==NULL_TYPE)) goto l16257; /* x16923 */ /* x16922 */ /* x16921 QobiScheme.sc:677:19286 */ /* x16920 QobiScheme.sc:677:19295 */ t85127 = a15075; /* x16919 QobiScheme.sc:677:19287 */ /* MOVE: branching squeezed to general */ if (t85127>=((struct structure_type24753 *)VALUE_OFFSET)) {t85128.tag = STRUCTURE_TYPE24753; t85128.value.structure_type24753 = t85127;} else t85128.tag = (unsigned)t85127; return f26331(t85128); l16257: /* x16951 */ /* x16929 QobiScheme.sc:678:19301 */ /* x16927 QobiScheme.sc:678:19307 */ /* x16926 QobiScheme.sc:678:19314 */ t85113 = *((struct w16638 *)(&a15074)); /* x16925 QobiScheme.sc:678:19308 */ a36111 = t85113; /* x275801 */ /* x275800 */ t85114 = a36111; /* x275799 */ if (!((t85114.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30260]"); structure_ref_error();} t85110 = t85114.value.structure_type24753->s0; /* x16928 QobiScheme.sc:678:19317 */ t85111 = a15071; /* x16924 QobiScheme.sc:678:19302 */ t85112 = *((struct w49 *)(&t85111)); if ((f26351(t85110, t85112).tag)==FALSE_TYPE) goto l16259; /* x16937 */ /* x16936 */ /* x16935 QobiScheme.sc:678:19320 */ /* x16933 QobiScheme.sc:678:19326 */ /* x16932 QobiScheme.sc:678:19332 */ t85125 = *((struct w16638 *)(&a15074)); /* x16931 QobiScheme.sc:678:19327 */ a35542 = t85125; /* x273525 */ /* x273524 */ t85126 = a35542; /* x273523 */ if (!((t85126.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29691]"); structure_ref_error();} t85123 = t85126.value.structure_type24753->s1; /* x16934 QobiScheme.sc:678:19335 */ t85124 = a15075; /* x16930 QobiScheme.sc:678:19321 */ a15074 = t85123; a15075 = t85124; goto h1457; l16259: /* x16950 */ /* x16949 */ /* x16948 QobiScheme.sc:679:19346 */ /* x16941 QobiScheme.sc:679:19352 */ /* x16940 QobiScheme.sc:679:19358 */ t85117 = *((struct w16638 *)(&a15074)); /* x16939 QobiScheme.sc:679:19353 */ a35543 = t85117; /* x273529 */ /* x273528 */ t85118 = a35543; /* x273527 */ if (!((t85118.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29692]"); structure_ref_error();} t85115 = t85118.value.structure_type24753->s1; /* x16947 QobiScheme.sc:679:19361 */ /* x16945 QobiScheme.sc:679:19367 */ /* x16944 QobiScheme.sc:679:19374 */ t85121 = *((struct w16638 *)(&a15074)); /* x16943 QobiScheme.sc:679:19368 */ a36110 = t85121; /* x275797 */ /* x275796 */ t85122 = a36110; /* x275795 */ if (!((t85122.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30259]"); structure_ref_error();} t85119 = t85122.value.structure_type24753->s0; /* x16946 QobiScheme.sc:679:19377 */ t85120 = a15075; /* x270886 QobiScheme.sc:679:19362 */ t85116 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t85116==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 679, 19361); out_of_memory_error();} t85116->s0 = t85119; /* MOVE: branching squeezed to general */ if (t85120>=((struct structure_type24753 *)VALUE_OFFSET)) {t85116->s1.tag = STRUCTURE_TYPE24753; t85116->s1.value.structure_type24753 = t85120;} else t85116->s1.tag = (unsigned)t85120; /* x16938 QobiScheme.sc:679:19347 */ a15074 = t85115; a15075 = t85116; goto h1457;} /* INTERSECTIONQ[1422] */ struct w12224 f1422(struct structure_type24753 *a15045, struct w12224 a15046) {struct w49 a15049; /* L */ struct structure_type24753 *a15050; /* C */ struct w16638 a35498; /* PAIR */ struct w16638 a35499; /* PAIR */ struct w16638 a36004; /* PAIR */ struct w16638 a36005; /* PAIR */ struct structure_type24753 *t85129; struct w49 t85130; struct w49 t85131; struct w12224 t85132; struct w49 t85133; struct w16638 t85134; struct w16638 t85135; struct w49 t85136; struct structure_type24753 *t85137; struct w16638 t85138; struct w16638 t85139; struct w49 t85140; struct structure_type24753 *t85141; struct w16638 t85142; struct w16638 t85143; struct w49 t85144; struct structure_type24753 *t85145; struct w16638 t85146; struct w16638 t85147; struct structure_type24753 *t85148; struct w49 t85149; /* x16757 QobiScheme.sc:648:18386 */ /* x16755 QobiScheme.sc:648:18400 */ t85129 = a15045; /* x16756 QobiScheme.sc:648:18406 */ /* x16754 */ /* x16753 */ /* x16752 */ /* x16751 */ /* x16750 */ /* x16749 */ /* x16748 */ /* x16710 */ /* x16709 QobiScheme.sc:648:18391 */ /* MOVE: branching squeezed to general */ if (t85129>=((struct structure_type24753 *)VALUE_OFFSET)) {a15049.tag = STRUCTURE_TYPE24753; a15049.value.structure_type24753 = t85129;} else a15049.tag = (unsigned)t85129; a15050 = (struct structure_type24753 *)NULL_TYPE; h1425: /* x16747 QobiScheme.sc:649:18414 */ /* x16713 QobiScheme.sc:649:18421 */ /* x16712 QobiScheme.sc:649:18428 */ t85130 = a15049; /* x270889 QobiScheme.sc:649:18422 */ if (!((t85130.tag)==NULL_TYPE)) goto l16261; /* x16718 */ /* x16717 */ /* x16716 QobiScheme.sc:649:18431 */ /* x16715 QobiScheme.sc:649:18440 */ t85148 = a15050; /* x16714 QobiScheme.sc:649:18432 */ /* MOVE: branching squeezed to general */ if (t85148>=((struct structure_type24753 *)VALUE_OFFSET)) {t85149.tag = STRUCTURE_TYPE24753; t85149.value.structure_type24753 = t85148;} else t85149.tag = (unsigned)t85148; return f26331(t85149); l16261: /* x16746 */ /* x16724 QobiScheme.sc:650:18446 */ /* x16722 QobiScheme.sc:650:18452 */ /* x16721 QobiScheme.sc:650:18459 */ t85134 = *((struct w16638 *)(&a15049)); /* x16720 QobiScheme.sc:650:18453 */ a36005 = t85134; /* x275377 */ /* x275376 */ t85135 = a36005; /* x275375 */ if (!((t85135.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30154]"); structure_ref_error();} t85131 = t85135.value.structure_type24753->s0; /* x16723 QobiScheme.sc:650:18462 */ t85132 = a15046; /* x16719 QobiScheme.sc:650:18447 */ t85133 = *((struct w49 *)(&t85132)); if ((f26351(t85131, t85133).tag)==FALSE_TYPE) goto l16263; /* x16737 */ /* x16736 */ /* x16735 QobiScheme.sc:650:18465 */ /* x16728 QobiScheme.sc:650:18471 */ /* x16727 QobiScheme.sc:650:18477 */ t85142 = *((struct w16638 *)(&a15049)); /* x16726 QobiScheme.sc:650:18472 */ a35498 = t85142; /* x273349 */ /* x273348 */ t85143 = a35498; /* x273347 */ if (!((t85143.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29647]"); structure_ref_error();} t85140 = t85143.value.structure_type24753->s1; /* x16734 QobiScheme.sc:650:18480 */ /* x16732 QobiScheme.sc:650:18486 */ /* x16731 QobiScheme.sc:650:18493 */ t85146 = *((struct w16638 *)(&a15049)); /* x16730 QobiScheme.sc:650:18487 */ a36004 = t85146; /* x275373 */ /* x275372 */ t85147 = a36004; /* x275371 */ if (!((t85147.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30153]"); structure_ref_error();} t85144 = t85147.value.structure_type24753->s0; /* x16733 QobiScheme.sc:650:18496 */ t85145 = a15050; /* x270888 QobiScheme.sc:650:18481 */ t85141 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t85141==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 650, 18480); out_of_memory_error();} t85141->s0 = t85144; /* MOVE: branching squeezed to general */ if (t85145>=((struct structure_type24753 *)VALUE_OFFSET)) {t85141->s1.tag = STRUCTURE_TYPE24753; t85141->s1.value.structure_type24753 = t85145;} else t85141->s1.tag = (unsigned)t85145; /* x16725 QobiScheme.sc:650:18466 */ a15049 = t85140; a15050 = t85141; goto h1425; l16263: /* x16745 */ /* x16744 */ /* x16743 QobiScheme.sc:651:18508 */ /* x16741 QobiScheme.sc:651:18514 */ /* x16740 QobiScheme.sc:651:18520 */ t85138 = *((struct w16638 *)(&a15049)); /* x16739 QobiScheme.sc:651:18515 */ a35499 = t85138; /* x273353 */ /* x273352 */ t85139 = a35499; /* x273351 */ if (!((t85139.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29648]"); structure_ref_error();} t85136 = t85139.value.structure_type24753->s1; /* x16742 QobiScheme.sc:651:18523 */ t85137 = a15050; /* x16738 QobiScheme.sc:651:18509 */ a15049 = t85136; a15050 = t85137; goto h1425;} /* UNIONQ[1390] */ struct w49 f1390(struct w49 a15020, struct w49 a15021) {struct w49 a15024; /* L */ struct structure_type24753 *a15025; /* C */ struct w16638 a35544; /* PAIR */ struct w16638 a35545; /* PAIR */ struct w16638 a36112; /* PAIR */ struct w16638 a36113; /* PAIR */ struct w49 t85150; struct w49 t85151; struct w49 t85152; struct w49 t85153; struct w16638 t85154; struct w16638 t85155; struct w49 t85156; struct structure_type24753 *t85157; struct w16638 t85158; struct w16638 t85159; struct w49 t85160; struct structure_type24753 *t85161; struct w16638 t85162; struct w16638 t85163; struct w49 t85164; struct structure_type24753 *t85165; struct w16638 t85166; struct w16638 t85167; struct w12224 t85168; struct w49 t85169; struct structure_type24753 *t85170; struct w49 t85171; struct structure_type24753 *t85172; struct w49 t85173; /* x16543 QobiScheme.sc:620:17510 */ /* x16541 QobiScheme.sc:620:17524 */ t85150 = a15020; /* x16542 QobiScheme.sc:620:17530 */ /* x16540 */ /* x16539 */ /* x16538 */ /* x16537 */ /* x16536 */ /* x16535 */ /* x16534 */ /* x16493 */ /* x16492 QobiScheme.sc:620:17515 */ a15024 = t85150; a15025 = (struct structure_type24753 *)NULL_TYPE; h1393: /* x16533 QobiScheme.sc:621:17538 */ /* x16496 QobiScheme.sc:621:17545 */ /* x16495 QobiScheme.sc:621:17552 */ t85151 = a15024; /* x270891 QobiScheme.sc:621:17546 */ if (!((t85151.tag)==NULL_TYPE)) goto l16265; /* x16504 */ /* x16503 */ /* x16502 QobiScheme.sc:621:17555 */ /* x16501 QobiScheme.sc:621:17575 */ t85169 = a15021; /* x16500 QobiScheme.sc:621:17563 */ /* x16499 QobiScheme.sc:621:17572 */ t85172 = a15025; /* x16498 QobiScheme.sc:621:17564 */ /* MOVE: branching squeezed to general */ if (t85172>=((struct structure_type24753 *)VALUE_OFFSET)) {t85173.tag = STRUCTURE_TYPE24753; t85173.value.structure_type24753 = t85172;} else t85173.tag = (unsigned)t85172; t85168 = f26331(t85173); /* x16497 QobiScheme.sc:621:17556 */ t85171.tag = STRUCTURE_TYPE24753; t85171.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t85171.value.structure_type24753)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 621, 17555); out_of_memory_error();} t85171.value.structure_type24753->s0 = t85169; t85171.value.structure_type24753->s1.tag = NULL_TYPE; t85170 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t85170==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 621, 17555); out_of_memory_error();} t85170->s0 = *((struct w49 *)(&t85168)); t85170->s1 = t85171; return f26254(t85170); l16265: /* x16532 */ /* x16510 QobiScheme.sc:622:17581 */ /* x16508 QobiScheme.sc:622:17587 */ /* x16507 QobiScheme.sc:622:17594 */ t85154 = *((struct w16638 *)(&a15024)); /* x16506 QobiScheme.sc:622:17588 */ a36113 = t85154; /* x275809 */ /* x275808 */ t85155 = a36113; /* x275807 */ if (!((t85155.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30262]"); structure_ref_error();} t85152 = t85155.value.structure_type24753->s0; /* x16509 QobiScheme.sc:622:17597 */ t85153 = a15021; /* x16505 QobiScheme.sc:622:17582 */ if ((f26351(t85152, t85153).tag)==FALSE_TYPE) goto l16267; /* x16518 */ /* x16517 */ /* x16516 QobiScheme.sc:622:17600 */ /* x16514 QobiScheme.sc:622:17606 */ /* x16513 QobiScheme.sc:622:17612 */ t85166 = *((struct w16638 *)(&a15024)); /* x16512 QobiScheme.sc:622:17607 */ a35544 = t85166; /* x273533 */ /* x273532 */ t85167 = a35544; /* x273531 */ if (!((t85167.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29693]"); structure_ref_error();} t85164 = t85167.value.structure_type24753->s1; /* x16515 QobiScheme.sc:622:17615 */ t85165 = a15025; /* x16511 QobiScheme.sc:622:17601 */ a15024 = t85164; a15025 = t85165; goto h1393; l16267: /* x16531 */ /* x16530 */ /* x16529 QobiScheme.sc:623:17626 */ /* x16522 QobiScheme.sc:623:17632 */ /* x16521 QobiScheme.sc:623:17638 */ t85158 = *((struct w16638 *)(&a15024)); /* x16520 QobiScheme.sc:623:17633 */ a35545 = t85158; /* x273537 */ /* x273536 */ t85159 = a35545; /* x273535 */ if (!((t85159.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29694]"); structure_ref_error();} t85156 = t85159.value.structure_type24753->s1; /* x16528 QobiScheme.sc:623:17641 */ /* x16526 QobiScheme.sc:623:17647 */ /* x16525 QobiScheme.sc:623:17654 */ t85162 = *((struct w16638 *)(&a15024)); /* x16524 QobiScheme.sc:623:17648 */ a36112 = t85162; /* x275805 */ /* x275804 */ t85163 = a36112; /* x275803 */ if (!((t85163.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30261]"); structure_ref_error();} t85160 = t85163.value.structure_type24753->s0; /* x16527 QobiScheme.sc:623:17657 */ t85161 = a15025; /* x270890 QobiScheme.sc:623:17642 */ t85157 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t85157==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 623, 17641); out_of_memory_error();} t85157->s0 = t85160; /* MOVE: branching squeezed to general */ if (t85161>=((struct structure_type24753 *)VALUE_OFFSET)) {t85157->s1.tag = STRUCTURE_TYPE24753; t85157->s1.value.structure_type24753 = t85161;} else t85157->s1.tag = (unsigned)t85161; /* x16519 QobiScheme.sc:623:17627 */ a15024 = t85156; a15025 = t85157; goto h1393;} /* SUBSETP?[1384] */ unsigned f1384(struct structure_type24753 *a15008, struct structure_type24753 *a15009) {struct p1384 *t85174; struct structure_type24753 *t85175; struct w228245 t85176; struct w49 t85177; struct structure_type24753 *t85178; struct p1384 *e1384; e1384 = (struct p1384 *)alloca(sizeof(struct p1384)); if (e1384==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e1384->a15009 = a15009; /* x16439 QobiScheme.sc:608:17151 */ /* x16438 QobiScheme.sc:608:17186 */ t85175 = a15008; /* x16437 QobiScheme.sc:608:17158 */ t85174 = e1384; /* x16431 QobiScheme.sc:608:17152 */ t85176.tag = NATIVE_PROCEDURE_TYPE23982; t85176.value.native_procedure_type23982 = t85174; /* MOVE: branching squeezed to general */ if (t85175>=((struct structure_type24753 *)VALUE_OFFSET)) {t85177.tag = STRUCTURE_TYPE24753; t85177.value.structure_type24753 = t85175;} else t85177.tag = (unsigned)t85175; t85178 = (struct structure_type24753 *)NULL_TYPE; return f1061(t85176, t85177, t85178);} /* SUBSETQ?[1378] */ unsigned f1378(struct w3457 a14998, struct w3457 a14999) {struct p1378 *t85179; struct w3457 t85180; struct w228245 t85181; struct w49 t85182; struct structure_type24753 *t85183; struct p1378 *e1378; e1378 = (struct p1378 *)alloca(sizeof(struct p1378)); if (e1378==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e1378->a14999 = a14999; /* x16408 QobiScheme.sc:602:16965 */ /* x16407 QobiScheme.sc:602:16998 */ t85180 = a14998; /* x16406 QobiScheme.sc:602:16972 */ t85179 = e1378; /* x16401 QobiScheme.sc:602:16966 */ t85181.tag = NATIVE_PROCEDURE_TYPE24305; t85181.value.native_procedure_type24305 = t85179; t85182 = *((struct w49 *)(&t85180)); t85183 = (struct structure_type24753 *)NULL_TYPE; return f1061(t85181, t85182, t85183);} /* COUNT-IF-NOT[1370] */ int f1370(unsigned a14992, struct w227393 a14993) {struct w49 a14996; /* L */ int a14997; /* C */ struct w49 a23106; /* X */ struct w49 a25551; /* U */ struct w49 a25623; /* U */ struct w49 a25640; /* U */ struct w49 a25642; /* U */ struct w16638 a35566; /* PAIR */ struct w16638 a35567; /* PAIR */ struct w16638 a36139; /* PAIR */ struct w49 a40380; /* S */ struct w227393 t85184; int t85185; struct w49 t85186; unsigned t85187; struct w49 t85188; struct w49 t85189; struct w49 t85190; struct w49 t85191; struct w49 t85192; struct w49 t85193; struct w49 t85194; char *t85195; char *t85196; struct w49 t85197; struct w49 t85198; struct w49 t85199; struct w49 t85200; struct w16638 t85201; struct w16638 t85202; struct w49 t85203; int t85204; struct w16638 t85205; struct w16638 t85206; int t85207; int t85208; struct w49 t85209; int t85210; struct w16638 t85211; struct w16638 t85212; /* x16398 QobiScheme.sc:597:16825 */ /* x16396 QobiScheme.sc:597:16839 */ t85184 = a14993; /* x16397 QobiScheme.sc:597:16845 */ t85185 = 0; /* x16395 */ /* x16394 */ /* x16393 */ /* x16392 */ /* x16391 */ /* x16390 */ /* x16389 */ /* x16356 */ /* x16355 QobiScheme.sc:597:16830 */ a14996 = *((struct w49 *)(&t85184)); a14997 = t85185; h1373: /* x16388 QobiScheme.sc:598:16851 */ /* x16359 QobiScheme.sc:598:16858 */ /* x16358 QobiScheme.sc:598:16865 */ t85186 = a14996; /* x270893 QobiScheme.sc:598:16859 */ if (!((t85186.tag)==NULL_TYPE)) goto l16269; /* x16362 */ /* x16361 */ /* x16360 QobiScheme.sc:598:16868 */ return a14997; l16269: /* x16387 */ /* x16367 QobiScheme.sc:599:16873 */ /* x16366 QobiScheme.sc:599:16876 */ /* x16365 QobiScheme.sc:599:16883 */ t85201 = *((struct w16638 *)(&a14996)); /* x16364 QobiScheme.sc:599:16877 */ a36139 = t85201; /* x275913 */ /* x275912 */ t85202 = a36139; /* x275911 */ if (!((t85202.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30288]"); structure_ref_error();} t85188 = t85202.value.structure_type24753->s0; /* x16363 QobiScheme.sc:599:16874 */ t85187 = a14992; switch (t85187) {case NATIVE_PROCEDURE_TYPE7030: if (f13055(t85188)==FALSE_TYPE) goto l16271; break; case NATIVE_PROCEDURE_TYPE7222: if (f8918(t85188)==FALSE_TYPE) goto l16271; break; case NATIVE_PROCEDURE_TYPE7224: if ((f8899(t85188).tag)==FALSE_TYPE) goto l16271; break; case NATIVE_PROCEDURE_TYPE14937: a25551 = t85188; /* x125196 stalin.sc:15119:527410 */ /* x125195 stalin.sc:15119:527414 */ /* x125194 stalin.sc:15119:527426 */ t85189 = a25551; /* x125193 stalin.sc:15119:527415 */ if (!(f7682(t85189)==FALSE_TYPE)) goto l16270; /* x125190 */ /* x125189 stalin.sc:15119:527442 */ t85190 = a25551; /* x125188 stalin.sc:15119:527430 */ if (f8793(t85190)==FALSE_TYPE) goto l16271; break; case NATIVE_PROCEDURE_TYPE16308: a25623 = t85188; /* x126315 stalin.sc:15405:538103 */ /* x126314 stalin.sc:15405:538107 */ /* x126313 stalin.sc:15405:538119 */ t85191 = a25623; /* x126312 stalin.sc:15405:538108 */ if (!(f7682(t85191)==FALSE_TYPE)) goto l16270; /* x126309 */ /* x126308 stalin.sc:15405:538135 */ t85192 = a25623; /* x126307 stalin.sc:15405:538123 */ if (f8793(t85192)==FALSE_TYPE) goto l16271; break; case NATIVE_PROCEDURE_TYPE16560: a25640 = t85188; /* x126495 stalin.sc:15465:540170 */ /* x126494 stalin.sc:15465:540174 */ /* x126493 stalin.sc:15465:540186 */ t85193 = a25640; /* x126492 stalin.sc:15465:540175 */ if (!(f7682(t85193)==FALSE_TYPE)) goto l16270; /* x126489 */ /* x126488 stalin.sc:15465:540202 */ t85194 = a25640; /* x126487 stalin.sc:15465:540190 */ if (f8793(t85194)==FALSE_TYPE) goto l16271; break; case NATIVE_PROCEDURE_TYPE17064: a23106 = t85188; /* x89721 stalin.sc:7516:258554 */ /* x89719 stalin.sc:7516:258559 */ /* x89718 stalin.sc:7516:258576 */ t85197 = a23106; /* x89717 stalin.sc:7516:258560 */ a40380 = t85197; /* x294189 */ /* x294188 */ t85198 = a40380; /* x294187 */ if (!((t85198.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35297]"); structure_ref_error();} t85195 = t85198.value.structure_type27698->s0; /* x89720 stalin.sc:7516:258579 */ t85196 = q42; /* x269855 stalin.sc:7516:258555 */ if (!(t85195==t85196)) goto l16271; break; default: a25642 = t85188; /* x126537 stalin.sc:15472:540420 */ /* x126536 stalin.sc:15472:540424 */ /* x126535 stalin.sc:15472:540436 */ t85199 = a25642; /* x126534 stalin.sc:15472:540425 */ if (!(f7682(t85199)==FALSE_TYPE)) goto l16270; /* x126531 */ /* x126530 stalin.sc:15472:540452 */ t85200 = a25642; /* x126529 stalin.sc:15472:540440 */ if (f8793(t85200)==FALSE_TYPE) goto l16271;} l16270: /* x16375 */ /* x16374 */ /* x16373 QobiScheme.sc:599:16887 */ /* x16371 QobiScheme.sc:599:16893 */ /* x16370 QobiScheme.sc:599:16899 */ t85211 = *((struct w16638 *)(&a14996)); /* x16369 QobiScheme.sc:599:16894 */ a35566 = t85211; /* x273621 */ /* x273620 */ t85212 = a35566; /* x273619 */ if (!((t85212.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29715]"); structure_ref_error();} t85209 = t85212.value.structure_type24753->s1; /* x16372 QobiScheme.sc:599:16902 */ t85210 = a14997; /* x16368 QobiScheme.sc:599:16888 */ a14996 = t85209; a14997 = t85210; goto h1373; l16271: /* x16386 */ /* x16385 */ /* x16384 QobiScheme.sc:600:16913 */ /* x16379 QobiScheme.sc:600:16919 */ /* x16378 QobiScheme.sc:600:16925 */ t85205 = *((struct w16638 *)(&a14996)); /* x16377 QobiScheme.sc:600:16920 */ a35567 = t85205; /* x273625 */ /* x273624 */ t85206 = a35567; /* x273623 */ if (!((t85206.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29716]"); structure_ref_error();} t85203 = t85206.value.structure_type24753->s1; /* x16383 QobiScheme.sc:600:16928 */ /* x16381 QobiScheme.sc:600:16931 */ t85207 = a14997; /* x16382 QobiScheme.sc:600:16933 */ t85208 = 1; /* x270892 QobiScheme.sc:600:16929 */ t85204 = t85207+t85208; /* x16376 QobiScheme.sc:600:16914 */ a14996 = t85203; a14997 = t85204; goto h1373;} /* COUNT-IF[1362] */ int f1362(struct p11483 *a14986, struct w21193 a14987) {struct w49 a14990; /* L */ int a14991; /* C */ struct w49 a23890; /* Y */ struct w49 a25120; /* U */ struct w49 a25122; /* U */ struct w49 a25161; /* X */ struct structure_type24753 *a25162; /* US */ struct w49 a25607; /* U */ struct w49 a33204; /* G */ struct w49 a33205; /* E */ struct w49 a33206; /* E */ struct w49 a33207; /* E */ struct w49 a33208; /* E */ struct w16638 a35541; /* PAIR */ struct w16638 a35574; /* PAIR */ struct w16638 a36141; /* PAIR */ struct w49 a36449; /* S */ struct w49 a36456; /* S */ struct w49 a36481; /* S */ struct w49 a36889; /* S */ struct w49 a38874; /* S */ struct w49 a40017; /* S */ struct w49 a40069; /* S */ struct w49 a41660; /* G */ struct w49 a41680; /* G */ struct w49 a41707; /* G */ struct w49 a41746; /* G */ struct w21193 t85213; int t85214; struct w49 t85215; struct p11483 *t85216; struct w49 t85217; struct w49 t85218; struct w49 t85219; struct w49 t85220; struct w49 t85221; struct w49 t85222; struct structure_type24753 *t85223; struct p13376 *t85224; struct structure_type24753 *t85225; struct w228345 t85226; struct w49 t85227; struct structure_type24753 *t85228; struct w49 t85229; struct w49 t85230; struct w49 t85231; struct w49 t85232; struct w49 t85233; struct w49 t85234; struct w49 t85235; struct w49 t85236; struct w49 t85237; struct w49 t85238; struct w49 t85239; struct w49 t85240; struct w49 t85241; struct w49 t85242; struct w49 t85243; struct w49 t85244; struct w49 t85245; struct w49 t85246; struct w49 t85247; struct w49 t85248; struct w49 t85249; struct w49 t85250; struct w49 t85251; struct w49 t85252; struct w49 t85253; struct w49 t85254; struct w49 t85255; struct w49 t85256; struct w49 t85257; struct w49 t85258; struct w49 t85259; struct w49 t85260; struct w49 t85261; struct w49 t85262; unsigned t85263; struct w49 t85264; struct w49 t85265; struct w49 t85266; struct w49 t85267; struct w49 t85268; struct w49 t85269; struct w49 t85270; struct w49 t85271; struct w49 t85272; struct w49 t85273; struct w49 t85274; struct w16638 t85275; struct w16638 t85276; struct w49 t85277; int t85278; struct w16638 t85279; struct w16638 t85280; struct w49 t85281; int t85282; struct w16638 t85283; struct w16638 t85284; int t85285; int t85286; struct p13376 *e13376; struct p11483 *p11484; /* x16352 QobiScheme.sc:591:16680 */ /* x16350 QobiScheme.sc:591:16694 */ t85213 = a14987; /* x16351 QobiScheme.sc:591:16700 */ t85214 = 0; /* x16349 */ /* x16348 */ /* x16347 */ /* x16346 */ /* x16345 */ /* x16344 */ /* x16343 */ /* x16310 */ /* x16309 QobiScheme.sc:591:16685 */ a14990 = *((struct w49 *)(&t85213)); a14991 = t85214; h1365: /* x16342 QobiScheme.sc:592:16706 */ /* x16313 QobiScheme.sc:592:16713 */ /* x16312 QobiScheme.sc:592:16720 */ t85215 = a14990; /* x270895 QobiScheme.sc:592:16714 */ if (!((t85215.tag)==NULL_TYPE)) goto l16277; /* x16316 */ /* x16315 */ /* x16314 QobiScheme.sc:592:16723 */ return a14991; l16277: /* x16341 */ /* x16321 QobiScheme.sc:593:16728 */ /* x16320 QobiScheme.sc:593:16731 */ /* x16319 QobiScheme.sc:593:16738 */ t85275 = *((struct w16638 *)(&a14990)); /* x16318 QobiScheme.sc:593:16732 */ a36141 = t85275; /* x275921 */ /* x275920 */ t85276 = a36141; /* x275919 */ if (!((t85276.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30290]"); structure_ref_error();} t85217 = t85276.value.structure_type24753->s0; /* x16317 QobiScheme.sc:593:16729 */ t85216 = a14986; switch ((unsigned)t85216) {case NATIVE_PROCEDURE_TYPE7030: if (f13055(t85217)==FALSE_TYPE) goto l16279; break; case NATIVE_PROCEDURE_TYPE7222: if (f8918(t85217)==FALSE_TYPE) goto l16279; break; case NATIVE_PROCEDURE_TYPE7278: if (f8563(t85217)==FALSE_TYPE) goto l16279; break; case NATIVE_PROCEDURE_TYPE7314: a41660 = t85217; /* x300752 stalin.sc:3965:133896 */ /* x300751 stalin.sc:3965:133915 */ t85218 = a41660; /* x300750 stalin.sc:3965:133897 */ if (f8219(t85218)==FALSE_TYPE) goto l16279; break; case NATIVE_PROCEDURE_TYPE7317: a41680 = t85217; /* x300832 stalin.sc:3942:133266 */ /* x300831 stalin.sc:3942:133284 */ t85219 = a41680; /* x300830 stalin.sc:3942:133267 */ if (f8214(t85219)==FALSE_TYPE) goto l16279; break; case NATIVE_PROCEDURE_TYPE7320: a41707 = t85217; /* x300940 stalin.sc:3916:132554 */ /* x300939 stalin.sc:3916:132572 */ t85220 = a41707; /* x300938 stalin.sc:3916:132555 */ if (f8209(t85220)==FALSE_TYPE) goto l16279; break; case NATIVE_PROCEDURE_TYPE7323: a41746 = t85217; /* x301096 stalin.sc:3890:131852 */ /* x301095 stalin.sc:3890:131869 */ t85221 = a41746; /* x301094 stalin.sc:3890:131853 */ if (f8204(t85221)==FALSE_TYPE) goto l16279; break; case NATIVE_PROCEDURE_TYPE7331: if (f8236(t85217)==FALSE_TYPE) goto l16279; break; case NATIVE_PROCEDURE_TYPE7332: if (f8229(t85217)==FALSE_TYPE) goto l16279; break; case NATIVE_PROCEDURE_TYPE7611: if (f6984(t85217)==FALSE_TYPE) goto l16279; break; case NATIVE_PROCEDURE_TYPE15642: a25161 = t85217; /* x120391 stalin.sc:13995:494328 */ /* x120340 stalin.sc:13995:494333 */ /* x120339 stalin.sc:13995:494344 */ t85222 = a25161; /* x120338 stalin.sc:13995:494334 */ if (f6967(t85222)==FALSE_TYPE) goto l16279; /* x120389 */ /* x120388 stalin.sc:13996:494360 */ /* x120387 stalin.sc:13997:494376 */ /* x120386 stalin.sc:13997:494397 */ /* x120385 stalin.sc:13997:494416 */ t85232 = a25161; /* x120384 stalin.sc:13997:494398 */ a38874 = t85232; /* x288165 */ /* x288164 */ t85233 = a38874; /* x288163 */ if (!((t85233.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33791]"); structure_ref_error();} t85230 = t85233.value.structure_type27698->s21; /* x120383 stalin.sc:13997:494377 */ a40017 = t85230; /* x292737 */ /* x292736 */ t85231 = a40017; /* x292735 */ if (!((t85231.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34934]"); structure_ref_error();} t85229 = t85231.value.structure_type27698->s10; /* x120382 stalin.sc:13996:494361 */ t85223 = f8162(t85229); /* x120381 */ a25162 = t85223; e13376 = (struct p13376 *)alloca(sizeof(struct p13376)); if (e13376==NULL) {backtrace_internal("[inside PRINT-NUMBER-OF-CALL-SITES-THAT-DISPATCH-ON-CLONES 13375]"); out_of_memory_error();} e13376->a25162 = a25162; /* x120380 stalin.sc:13998:494427 */ /* x120379 stalin.sc:14007:494664 */ t85225 = e13376->a25162; /* x120378 stalin.sc:13998:494433 */ t85224 = e13376; /* x120341 stalin.sc:13998:494428 */ t85226.tag = NATIVE_PROCEDURE_TYPE16821; t85226.value.native_procedure_type16821 = t85224; /* MOVE: branching squeezed to general */ if (t85225>=((struct structure_type24753 *)VALUE_OFFSET)) {t85227.tag = STRUCTURE_TYPE24753; t85227.value.structure_type24753 = t85225;} else t85227.tag = (unsigned)t85225; t85228 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t85226, t85227, t85228).tag)==FALSE_TYPE) goto l16279; break; case NATIVE_PROCEDURE_TYPE15663: a25122 = t85217; /* x118728 stalin.sc:13579:476855 */ /* x118721 stalin.sc:13579:476860 */ /* x118720 stalin.sc:13579:476869 */ t85234 = a25122; /* x118719 stalin.sc:13579:476861 */ if ((f8899(t85234).tag)==FALSE_TYPE) goto l16279; /* x118726 */ /* x118725 stalin.sc:13579:476877 */ /* x118724 stalin.sc:13579:476884 */ t85235 = a25122; /* x118723 stalin.sc:13579:476878 */ if (!(f8918(t85235)==FALSE_TYPE)) goto l16279; break; case NATIVE_PROCEDURE_TYPE15665: a25120 = t85217; /* x118693 stalin.sc:13570:476578 */ /* x118688 stalin.sc:13570:476583 */ /* x118687 stalin.sc:13570:476592 */ t85236 = a25120; /* x118686 stalin.sc:13570:476584 */ if ((f8899(t85236).tag)==FALSE_TYPE) goto l16279; /* x118691 */ /* x118690 stalin.sc:13570:476602 */ t85237 = a25120; /* x118689 stalin.sc:13570:476596 */ if (f8918(t85237)==FALSE_TYPE) goto l16279; break; case NATIVE_PROCEDURE_TYPE15747: a33208 = t85217; /* x227187 stalin.sc:31981:1104178 */ /* x227170 stalin.sc:31981:1104183 */ /* x227169 stalin.sc:31981:1104202 */ t85238 = a33208; /* x227168 stalin.sc:31981:1104184 */ if (f8526(t85238)==FALSE_TYPE) goto l16279; /* x227185 */ /* x227173 stalin.sc:31982:1104212 */ /* x227172 stalin.sc:31982:1104235 */ t85239 = a33208; /* x227171 stalin.sc:31982:1104213 */ if ((f8897(t85239).tag)==FALSE_TYPE) goto l16279; /* x227183 */ /* x227182 stalin.sc:31983:1104250 */ /* x227178 stalin.sc:31983:1104255 */ /* x227177 stalin.sc:31983:1104273 */ t85242 = a33208; /* x227176 stalin.sc:31983:1104256 */ t85240 = f8965(t85242); /* x227181 stalin.sc:31983:1104276 */ /* x227180 stalin.sc:31983:1104284 */ t85243 = a33208; /* x227179 stalin.sc:31983:1104277 */ t85241 = f8682(t85243); /* x267559 stalin.sc:31983:1104251 */ /* EQ: dispatching general to general */ if ((t85240.tag)==(t85241.tag)) switch (t85240.tag) {case FIXNUM_TYPE: if ((t85240.value.fixnum_type)==(t85241.value.fixnum_type)) goto l16279; break; case FLONUM_TYPE: if ((t85240.value.flonum_type)==(t85241.value.flonum_type)) goto l16279; break; case INPUT_PORT_TYPE: if ((t85240.value.input_port_type)==(t85241.value.input_port_type)) goto l16279; break; case OUTPUT_PORT_TYPE: if ((t85240.value.output_port_type)==(t85241.value.output_port_type)) goto l16279; break; case NATIVE_PROCEDURE_TYPE15963: if ((t85240.value.native_procedure_type15963)==(t85241.value.native_procedure_type15963)) goto l16279; break; case NATIVE_PROCEDURE_TYPE19067: if ((t85240.value.native_procedure_type19067)==(t85241.value.native_procedure_type19067)) goto l16279; break; case NATIVE_PROCEDURE_TYPE19068: if ((t85240.value.native_procedure_type19068)==(t85241.value.native_procedure_type19068)) goto l16279; break; case NATIVE_PROCEDURE_TYPE22459: if ((t85240.value.native_procedure_type22459)==(t85241.value.native_procedure_type22459)) goto l16279; break; case STRUCTURE_TYPE24753: if ((t85240.value.structure_type24753)==(t85241.value.structure_type24753)) goto l16279; break; case STRUCTURE_TYPE24757: if ((t85240.value.structure_type24757)==(t85241.value.structure_type24757)) goto l16279; break; case STRUCTURE_TYPE27501: if ((t85240.value.structure_type27501)==(t85241.value.structure_type27501)) goto l16279; break; case STRUCTURE_TYPE27510: if ((t85240.value.structure_type27510)==(t85241.value.structure_type27510)) goto l16279; break; case STRUCTURE_TYPE27621: if ((t85240.value.structure_type27621)==(t85241.value.structure_type27621)) goto l16279; break; case STRUCTURE_TYPE27650: if ((t85240.value.structure_type27650)==(t85241.value.structure_type27650)) goto l16279; break; case STRUCTURE_TYPE27669: if ((t85240.value.structure_type27669)==(t85241.value.structure_type27669)) goto l16279; break; case STRUCTURE_TYPE27673: if ((t85240.value.structure_type27673)==(t85241.value.structure_type27673)) goto l16279; break; case STRUCTURE_TYPE27692: if ((t85240.value.structure_type27692)==(t85241.value.structure_type27692)) goto l16279; break; case STRUCTURE_TYPE27694: if ((t85240.value.structure_type27694)==(t85241.value.structure_type27694)) goto l16279; break; case STRUCTURE_TYPE27698: if ((t85240.value.structure_type27698)==(t85241.value.structure_type27698)) goto l16279; break; case STRUCTURE_TYPE27745: if ((t85240.value.structure_type27745)==(t85241.value.structure_type27745)) goto l16279; break; case STRUCTURE_TYPE27747: if ((t85240.value.structure_type27747)==(t85241.value.structure_type27747)) goto l16279; break; case STRUCTURE_TYPE27750: if ((t85240.value.structure_type27750)==(t85241.value.structure_type27750)) goto l16279; break; case STRUCTURE_TYPE27753: if ((t85240.value.structure_type27753)==(t85241.value.structure_type27753)) goto l16279; break; case STRUCTURE_TYPE27756: if ((t85240.value.structure_type27756)==(t85241.value.structure_type27756)) goto l16279; break; case STRUCTURE_TYPE27761: if ((t85240.value.structure_type27761)==(t85241.value.structure_type27761)) goto l16279; break; case STRUCTURE_TYPE27769: if ((t85240.value.structure_type27769)==(t85241.value.structure_type27769)) goto l16279; break; case STRUCTURE_TYPE27776: if ((t85240.value.structure_type27776)==(t85241.value.structure_type27776)) goto l16279; break; case STRUCTURE_TYPE27779: if ((t85240.value.structure_type27779)==(t85241.value.structure_type27779)) goto l16279; break; case STRUCTURE_TYPE27858: if ((t85240.value.structure_type27858)==(t85241.value.structure_type27858)) goto l16279; break; case STRING_TYPE: if ((t85240.value.string_type)==(t85241.value.string_type)) goto l16279; break; case HEADED_VECTOR_TYPE27896: if ((t85240.value.headed_vector_type27896)==(t85241.value.headed_vector_type27896)) goto l16279; break; case EXTERNAL_SYMBOL_TYPE: if ((t85240.value.external_symbol_type)==(t85241.value.external_symbol_type)) goto l16279; break; case STRUCTURE_TYPE27908: if ((t85240.value.structure_type27908)==(t85241.value.structure_type27908)) goto l16279; break; default: goto l16279;} break; case NATIVE_PROCEDURE_TYPE15748: a33207 = t85217; /* x227163 stalin.sc:31976:1104032 */ /* x227146 stalin.sc:31976:1104037 */ /* x227145 stalin.sc:31976:1104056 */ t85244 = a33207; /* x227144 stalin.sc:31976:1104038 */ if (f8526(t85244)==FALSE_TYPE) goto l16279; /* x227161 */ /* x227149 stalin.sc:31977:1104066 */ /* x227148 stalin.sc:31977:1104084 */ t85245 = a33207; /* x227147 stalin.sc:31977:1104067 */ if (f8584(t85245)==FALSE_TYPE) goto l16279; /* x227159 */ /* x227158 stalin.sc:31978:1104099 */ /* x227154 stalin.sc:31978:1104104 */ /* x227153 stalin.sc:31978:1104117 */ t85248 = a33207; /* x227152 stalin.sc:31978:1104105 */ t85246 = f8639(t85248); /* x227157 stalin.sc:31978:1104120 */ /* x227156 stalin.sc:31978:1104128 */ t85249 = a33207; /* x227155 stalin.sc:31978:1104121 */ t85247 = f8682(t85249); /* x267561 stalin.sc:31978:1104100 */ /* EQ: dispatching general to general */ if ((t85246.tag)==(t85247.tag)) switch (t85246.tag) {case FIXNUM_TYPE: if ((t85246.value.fixnum_type)==(t85247.value.fixnum_type)) goto l16279; break; case FLONUM_TYPE: if ((t85246.value.flonum_type)==(t85247.value.flonum_type)) goto l16279; break; case INPUT_PORT_TYPE: if ((t85246.value.input_port_type)==(t85247.value.input_port_type)) goto l16279; break; case OUTPUT_PORT_TYPE: if ((t85246.value.output_port_type)==(t85247.value.output_port_type)) goto l16279; break; case NATIVE_PROCEDURE_TYPE15963: if ((t85246.value.native_procedure_type15963)==(t85247.value.native_procedure_type15963)) goto l16279; break; case NATIVE_PROCEDURE_TYPE19067: if ((t85246.value.native_procedure_type19067)==(t85247.value.native_procedure_type19067)) goto l16279; break; case NATIVE_PROCEDURE_TYPE19068: if ((t85246.value.native_procedure_type19068)==(t85247.value.native_procedure_type19068)) goto l16279; break; case NATIVE_PROCEDURE_TYPE22459: if ((t85246.value.native_procedure_type22459)==(t85247.value.native_procedure_type22459)) goto l16279; break; case STRUCTURE_TYPE24753: if ((t85246.value.structure_type24753)==(t85247.value.structure_type24753)) goto l16279; break; case STRUCTURE_TYPE24757: if ((t85246.value.structure_type24757)==(t85247.value.structure_type24757)) goto l16279; break; case STRUCTURE_TYPE27501: if ((t85246.value.structure_type27501)==(t85247.value.structure_type27501)) goto l16279; break; case STRUCTURE_TYPE27510: if ((t85246.value.structure_type27510)==(t85247.value.structure_type27510)) goto l16279; break; case STRUCTURE_TYPE27621: if ((t85246.value.structure_type27621)==(t85247.value.structure_type27621)) goto l16279; break; case STRUCTURE_TYPE27650: if ((t85246.value.structure_type27650)==(t85247.value.structure_type27650)) goto l16279; break; case STRUCTURE_TYPE27669: if ((t85246.value.structure_type27669)==(t85247.value.structure_type27669)) goto l16279; break; case STRUCTURE_TYPE27673: if ((t85246.value.structure_type27673)==(t85247.value.structure_type27673)) goto l16279; break; case STRUCTURE_TYPE27692: if ((t85246.value.structure_type27692)==(t85247.value.structure_type27692)) goto l16279; break; case STRUCTURE_TYPE27694: if ((t85246.value.structure_type27694)==(t85247.value.structure_type27694)) goto l16279; break; case STRUCTURE_TYPE27698: if ((t85246.value.structure_type27698)==(t85247.value.structure_type27698)) goto l16279; break; case STRUCTURE_TYPE27745: if ((t85246.value.structure_type27745)==(t85247.value.structure_type27745)) goto l16279; break; case STRUCTURE_TYPE27747: if ((t85246.value.structure_type27747)==(t85247.value.structure_type27747)) goto l16279; break; case STRUCTURE_TYPE27750: if ((t85246.value.structure_type27750)==(t85247.value.structure_type27750)) goto l16279; break; case STRUCTURE_TYPE27753: if ((t85246.value.structure_type27753)==(t85247.value.structure_type27753)) goto l16279; break; case STRUCTURE_TYPE27756: if ((t85246.value.structure_type27756)==(t85247.value.structure_type27756)) goto l16279; break; case STRUCTURE_TYPE27761: if ((t85246.value.structure_type27761)==(t85247.value.structure_type27761)) goto l16279; break; case STRUCTURE_TYPE27769: if ((t85246.value.structure_type27769)==(t85247.value.structure_type27769)) goto l16279; break; case STRUCTURE_TYPE27776: if ((t85246.value.structure_type27776)==(t85247.value.structure_type27776)) goto l16279; break; case STRUCTURE_TYPE27779: if ((t85246.value.structure_type27779)==(t85247.value.structure_type27779)) goto l16279; break; case STRUCTURE_TYPE27858: if ((t85246.value.structure_type27858)==(t85247.value.structure_type27858)) goto l16279; break; case STRING_TYPE: if ((t85246.value.string_type)==(t85247.value.string_type)) goto l16279; break; case HEADED_VECTOR_TYPE27896: if ((t85246.value.headed_vector_type27896)==(t85247.value.headed_vector_type27896)) goto l16279; break; case EXTERNAL_SYMBOL_TYPE: if ((t85246.value.external_symbol_type)==(t85247.value.external_symbol_type)) goto l16279; break; case STRUCTURE_TYPE27908: if ((t85246.value.structure_type27908)==(t85247.value.structure_type27908)) goto l16279; break; default: goto l16279;} break; case NATIVE_PROCEDURE_TYPE15749: a33206 = t85217; /* x227139 stalin.sc:31974:1103942 */ /* x227134 stalin.sc:31974:1103947 */ /* x227133 stalin.sc:31974:1103966 */ t85250 = a33206; /* x227132 stalin.sc:31974:1103948 */ if (f8526(t85250)==FALSE_TYPE) goto l16279; /* x227137 */ /* x227136 stalin.sc:31974:1103992 */ t85251 = a33206; /* x227135 stalin.sc:31974:1103970 */ if ((f8897(t85251).tag)==FALSE_TYPE) goto l16279; break; case NATIVE_PROCEDURE_TYPE15750: a33205 = t85217; /* x227127 stalin.sc:31972:1103853 */ /* x227122 stalin.sc:31972:1103858 */ /* x227121 stalin.sc:31972:1103877 */ t85252 = a33205; /* x227120 stalin.sc:31972:1103859 */ if (f8526(t85252)==FALSE_TYPE) goto l16279; /* x227125 */ /* x227124 stalin.sc:31972:1103898 */ t85253 = a33205; /* x227123 stalin.sc:31972:1103881 */ if (f8584(t85253)==FALSE_TYPE) goto l16279; break; case NATIVE_PROCEDURE_TYPE15751: a33204 = t85217; /* x227092 stalin.sc:31964:1103602 */ /* x227091 stalin.sc:31964:1103607 */ /* x227090 stalin.sc:31964:1103620 */ /* x227089 stalin.sc:31964:1103639 */ t85255 = a33204; /* x227088 stalin.sc:31964:1103621 */ a36889 = t85255; /* x280225 */ /* x280224 */ t85256 = a36889; /* x280223 */ if (!((t85256.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31806]"); structure_ref_error();} t85254 = t85256.value.structure_type27692->s9; /* x227087 stalin.sc:31964:1103608 */ if (!(f8793(t85254)==FALSE_TYPE)) goto l16279; break; case NATIVE_PROCEDURE_TYPE20641: a25607 = t85217; /* x126133 stalin.sc:15328:534780 */ /* x126132 stalin.sc:15328:534784 */ /* x126131 stalin.sc:15328:534798 */ t85257 = a25607; /* x126130 stalin.sc:15328:534785 */ if (!(f7683(t85257)==FALSE_TYPE)) goto l16278; /* x126127 */ /* x126126 stalin.sc:15333:535003 */ t85258 = a25607; /* x126125 stalin.sc:15333:534979 */ if (f7754(t85258)==FALSE_TYPE) goto l16279; break; default: p11484 = t85216; a23890 = t85217; /* x103630 stalin.sc:10212:353742 */ /* x103600 stalin.sc:10214:353799 */ /* x103599 stalin.sc:10214:353820 */ t85259 = a23890; /* x103598 stalin.sc:10214:353800 */ if (f8752(t85259)==FALSE_TYPE) goto l16279; /* x103628 */ /* x103605 stalin.sc:10216:353890 */ /* x103604 stalin.sc:10216:353901 */ /* x103603 stalin.sc:10216:353923 */ t85261 = a23890; /* x103602 stalin.sc:10216:353902 */ a36481 = t85261; /* x278593 */ /* x278592 */ t85262 = a36481; /* x278591 */ if (!((t85262.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31398]"); structure_ref_error();} t85260 = t85262.value.structure_type27745->s0; /* x103601 stalin.sc:10216:353891 */ if (f6967(t85260)==FALSE_TYPE) goto l16279; /* x103626 */ /* x103614 stalin.sc:10217:353931 */ /* x103613 stalin.sc:10217:353982 */ /* x103612 stalin.sc:10217:354000 */ t85268 = p11484->a23889; /* x103611 stalin.sc:10217:353983 */ t85264 = f8691(t85268); /* x103610 stalin.sc:10217:353932 */ /* x103609 stalin.sc:10217:353956 */ /* x103608 stalin.sc:10217:353978 */ t85266 = a23890; /* x103607 stalin.sc:10217:353957 */ a36456 = t85266; /* x278493 */ /* x278492 */ t85267 = a36456; /* x278491 */ if (!((t85267.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31373]"); structure_ref_error();} t85265 = t85267.value.structure_type27745->s0; /* x103606 stalin.sc:10217:353933 */ t85263 = f7917(t85265); if ((t85263&3)==1) {if ((f7905(((struct p7892 *)(t85263-1)), t85264).tag)==FALSE_TYPE) goto l16279;} else if ((f7893(((struct p7892 *)t85263), t85264).tag)==FALSE_TYPE) goto l16279; /* x103624 */ /* x103623 stalin.sc:10220:354105 */ /* x103621 stalin.sc:10220:354117 */ /* x103620 stalin.sc:10220:354141 */ /* x103619 stalin.sc:10220:354163 */ t85273 = a23890; /* x103618 stalin.sc:10220:354142 */ a36449 = t85273; /* x278465 */ /* x278464 */ t85274 = a36449; /* x278463 */ if (!((t85274.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31366]"); structure_ref_error();} t85271 = t85274.value.structure_type27745->s0; /* x103617 stalin.sc:10220:354118 */ a40069 = t85271; /* x292945 */ /* x292944 */ t85272 = a40069; /* x292943 */ if (!((t85272.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34986]"); structure_ref_error();} t85269 = t85272.value.structure_type27698->s9; /* x103622 stalin.sc:10220:354167 */ t85270 = p11484->a23889; /* x103616 stalin.sc:10220:354106 */ if (!(f8736(t85269, t85270)==FALSE_TYPE)) goto l16279;} l16278: /* x16332 */ /* x16331 */ /* x16330 QobiScheme.sc:593:16742 */ /* x16325 QobiScheme.sc:593:16748 */ /* x16324 QobiScheme.sc:593:16754 */ t85283 = *((struct w16638 *)(&a14990)); /* x16323 QobiScheme.sc:593:16749 */ a35574 = t85283; /* x273653 */ /* x273652 */ t85284 = a35574; /* x273651 */ if (!((t85284.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29723]"); structure_ref_error();} t85281 = t85284.value.structure_type24753->s1; /* x16329 QobiScheme.sc:593:16757 */ /* x16327 QobiScheme.sc:593:16760 */ t85285 = a14991; /* x16328 QobiScheme.sc:593:16762 */ t85286 = 1; /* x270894 QobiScheme.sc:593:16758 */ t85282 = t85285+t85286; /* x16322 QobiScheme.sc:593:16743 */ a14990 = t85281; a14991 = t85282; goto h1365; l16279: /* x16340 */ /* x16339 */ /* x16338 QobiScheme.sc:594:16774 */ /* x16336 QobiScheme.sc:594:16780 */ /* x16335 QobiScheme.sc:594:16786 */ t85279 = *((struct w16638 *)(&a14990)); /* x16334 QobiScheme.sc:594:16781 */ a35541 = t85279; /* x273521 */ /* x273520 */ t85280 = a35541; /* x273519 */ if (!((t85280.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29690]"); structure_ref_error();} t85277 = t85280.value.structure_type24753->s1; /* x16337 QobiScheme.sc:594:16789 */ t85278 = a14991; /* x16333 QobiScheme.sc:594:16775 */ a14990 = t85277; a14991 = t85278; goto h1365;} /* FIND-IF[1314] */ struct w49 f1314(struct w227506 a14951, struct w49 a14952) {struct w49 r1314; struct w49 a14955; /* L */ struct w49 a15120; /* W */ struct w49 a15136; /* W */ struct w49 a15154; /* W */ struct w49 a15164; /* X1 */ struct w49 a21011; /* U */ struct w49 a21024; /* U */ struct w49 a21039; /* U */ struct w49 a21087; /* U */ struct w49 a21115; /* U */ struct w49 a23670; /* E1 */ struct w49 a23678; /* E1 */ struct w49 a24461; /* US0 */ struct w49 a24462; /* US0 */ struct w49 a24479; /* US0 */ struct w49 a24480; /* US0 */ struct w49 a24497; /* US0 */ struct w49 a24498; /* US0 */ struct w49 a24709; /* E */ struct w49 a24739; /* E */ struct w49 a25427; /* PAIR1 */ struct w49 a25428; /* PAIR2 */ struct w49 a25439; /* PAIRS */ struct w49 a25441; /* PAIR1 */ struct w49 a25442; /* PAIR2 */ struct w49 a25455; /* PAIR1 */ struct w49 a25456; /* PAIR2 */ struct w49 a25974; /* US */ struct w49 a26489; /* C2 */ struct w49 a26491; /* C2 */ struct w49 a27189; /* U */ struct w49 a33010; /* HERALD */ struct w49 a33016; /* HERALD */ struct w16638 a35635; /* PAIR */ struct w49 a35784; /* PAIR */ struct w49 a35785; /* PAIR */ struct w49 a35806; /* PAIR */ struct w49 a35807; /* PAIR */ struct w49 a35977; /* PAIR */ struct w49 a36123; /* PAIR */ struct w49 a36124; /* PAIR */ struct w49 a36125; /* PAIR */ struct w49 a36137; /* PAIR */ struct w16638 a36219; /* PAIR */ struct w16638 a36220; /* PAIR */ struct w49 a36587; /* S */ struct w49 a36588; /* S */ struct w49 a36608; /* S */ struct w49 a36690; /* S */ struct w49 a36691; /* S */ struct w49 a37628; /* S */ struct w49 a37932; /* S */ struct w49 a38177; /* S */ struct w49 a40273; /* S */ struct w49 a40276; /* S */ struct w49 t85287; struct w49 t85288; struct w227506 t85289; struct w49 t85290; struct w49 t85291; struct w49 t85292; struct w49 t85293; struct w49 t85294; struct w49 t85295; struct structure_type24753 *t85296; struct w49 t85297; struct p1554 *t85298; struct w49 t85299; struct w228345 t85300; struct w49 t85301; struct structure_type24753 *t85302; struct w49 t85303; struct w49 t85304; struct w49 t85305; struct w49 t85306; struct w49 t85307; struct w49 t85308; struct w49 t85309; struct w49 t85310; struct w49 t85311; struct w49 t85312; struct w49 t85313; struct w49 t85314; struct w49 t85315; struct w49 t85316; struct w49 t85317; struct w49 t85318; struct w49 t85319; struct w49 t85320; struct w49 t85321; struct w49 t85322; struct w49 t85323; struct w49 t85324; struct w49 t85325; struct w49 t85326; struct w49 t85327; struct w49 t85328; struct w49 t85329; struct w49 t85330; struct w49 t85331; struct w49 t85332; struct w49 t85333; struct w49 t85334; struct w49 t85335; struct w49 t85336; struct w49 t85337; struct w49 t85338; struct w49 t85339; struct w49 t85340; unsigned t85341; unsigned t85342; struct w6852 t85343; struct w49 t85344; struct w49 t85345; struct w49 t85346; struct w6852 t85347; struct w49 t85348; struct w49 t85349; struct w49 t85350; struct w49 t85351; struct w49 t85352; struct w49 t85353; struct w49 t85354; struct w49 t85355; struct w49 t85356; struct p7708 *t85357; struct w49 t85358; struct w49 t85359; struct w49 t85360; struct w49 t85361; struct w49 t85362; struct w49 t85363; struct w49 t85364; struct w49 t85365; struct w49 t85366; struct w49 t85367; struct w49 t85368; unsigned t85369; struct w49 t85370; struct w49 t85371; struct w49 t85372; struct w49 t85373; struct w49 t85374; struct w49 t85375; struct w49 t85376; struct w49 t85377; struct w49 t85378; struct w49 t85379; struct w49 t85380; struct w49 t85381; struct w49 t85382; struct w49 t85383; struct w49 t85384; struct w49 t85385; struct w49 t85386; struct w228345 t85387; struct w49 t85388; struct structure_type24753 *t85389; struct p1569 *t85390; struct w49 t85391; struct w228345 t85392; struct w49 t85393; struct structure_type24753 *t85394; struct w49 t85395; struct w49 t85396; struct w49 t85397; struct w49 t85398; struct w49 t85399; struct w49 t85400; struct w49 t85401; struct w49 t85402; struct w49 t85403; struct w49 t85404; struct w49 t85405; struct w49 t85406; struct w49 t85407; struct w49 t85408; struct w49 t85409; struct w49 t85410; struct p7717 *t85411; struct w49 t85412; struct w49 t85413; char *t85414; char *t85415; struct w49 t85416; struct w49 t85417; struct structure_type24753 *t85418; struct w11873 t85419; struct w228245 t85420; struct w49 t85421; struct structure_type24753 *t85422; struct w49 t85423; struct w49 t85424; char *t85425; char *t85426; struct w49 t85427; struct w49 t85428; struct p7174 *t85429; struct w49 t85430; struct w228245 t85431; struct w49 t85432; struct structure_type24753 *t85433; struct w49 t85434; struct w49 t85435; struct w49 t85436; struct w49 t85437; struct w49 t85438; struct w49 t85439; struct w49 t85440; struct w49 t85441; struct w49 t85442; struct w49 t85443; struct w49 t85444; struct w49 t85445; struct w49 t85446; struct structure_type24753 *t85447; struct w49 t85448; struct w16638 t85449; struct w16638 t85450; struct w49 t85451; struct w16638 t85452; struct w16638 t85453; struct w16638 t85454; struct w16638 t85455; struct p1569 *e1569; struct p7174 *e7174; struct p1519 *p1523; struct p1537 *p1541; struct p1554 *p1558; struct p7139 *p7148; struct p7139 *p7149; struct p7166 *p7174; struct p7174 *p7175; struct p11034 *p11037; struct p11049 *p11050; struct p12263 *p12270; struct p12263 *p12271; struct p12289 *p12296; struct p12289 *p12297; struct p12315 *p12322; struct p12315 *p12323; struct p14564 *p14576; struct p15178 *p15186; struct p15178 *p15193; struct p16154 *p16157; /* x16080 QobiScheme.sc:555:15862 */ /* x16079 QobiScheme.sc:555:15876 */ t85287 = a14952; /* x16078 */ /* x16077 */ /* x16076 */ /* x16075 */ /* x16074 */ /* x16073 */ /* x16072 */ /* x16046 */ /* x16045 QobiScheme.sc:555:15867 */ a14955 = t85287; h1317: /* x16071 QobiScheme.sc:556:15882 */ /* x16049 QobiScheme.sc:556:15889 */ /* x16048 QobiScheme.sc:556:15896 */ t85288 = a14955; /* x270896 QobiScheme.sc:556:15890 */ if (!((t85288.tag)==NULL_TYPE)) goto l16294; /* x16052 */ /* x16051 */ /* x16050 QobiScheme.sc:556:15899 */ r1314.tag = FALSE_TYPE; return r1314; l16294: /* x16070 */ /* x16057 QobiScheme.sc:557:15905 */ /* x16056 QobiScheme.sc:557:15908 */ /* x16055 QobiScheme.sc:557:15915 */ t85449 = *((struct w16638 *)(&a14955)); /* x16054 QobiScheme.sc:557:15909 */ a36220 = t85449; /* x276237 */ /* x276236 */ t85450 = a36220; /* x276235 */ if (!((t85450.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30369]"); structure_ref_error();} t85290 = t85450.value.structure_type24753->s0; /* x16053 QobiScheme.sc:557:15906 */ t85289 = a14951; switch (t85289.tag) {case NATIVE_PROCEDURE_TYPE7224: if ((f8899(t85290).tag)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE12325: a33010 = t85290; /* x225307 stalin.sc:31376:1080488 */ /* x225306 stalin.sc:31376:1080514 */ /* x225305 stalin.sc:31376:1080522 */ t85296 = a666; /* x225304 stalin.sc:31376:1080515 */ /* MOVE: branching squeezed to general */ if (t85296>=((struct structure_type24753 *)VALUE_OFFSET)) {t85297.tag = STRUCTURE_TYPE24753; t85297.value.structure_type24753 = t85296;} else t85297.tag = (unsigned)t85296; t85292 = f26181(t85297); /* x225303 stalin.sc:31376:1080498 */ /* x225302 stalin.sc:31376:1080506 */ t85295 = a33010; /* x225301 stalin.sc:31376:1080499 */ t85291 = f26181(t85295); /* x225300 stalin.sc:31376:1080489 */ t85293 = t85291; t85294 = t85292; if (f27434(t85293, t85294)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE15157: p1558 = t85289.value.native_procedure_type15157; a15154 = t85290; /* x17613 QobiScheme.sc:774:22360 */ /* x17612 QobiScheme.sc:774:22387 */ t85299 = a15154; /* x17611 QobiScheme.sc:774:22366 */ t85298 = p1558; /* x17606 QobiScheme.sc:774:22361 */ t85300.tag = NATIVE_PROCEDURE_TYPE15158; t85300.value.native_procedure_type15158 = t85298; t85301 = t85299; t85302 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t85300, t85301, t85302).tag)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE15624: a24709 = t85290; /* x113180 stalin.sc:12429:434034 */ /* x113179 stalin.sc:12429:434042 */ /* x113178 stalin.sc:12429:434050 */ t85304 = a24709; /* x113177 stalin.sc:12429:434043 */ t85303 = f8682(t85304); /* x113176 stalin.sc:12429:434035 */ if (f8581(t85303)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE15673: p1523 = t85289.value.native_procedure_type15673; a15120 = t85290; /* x17355 QobiScheme.sc:736:21091 */ /* x17351 QobiScheme.sc:736:21096 */ t85305 = p1523->a15117; /* x17354 QobiScheme.sc:736:21098 */ /* x17353 QobiScheme.sc:736:21105 */ t85307 = a15120; /* x17352 QobiScheme.sc:736:21099 */ a36137 = t85307; /* x275905 */ /* x275904 */ t85308 = a36137; /* x275903 */ if (!((t85308.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30286]"); structure_ref_error();} t85306 = t85308.value.structure_type24753->s0; /* x270875 QobiScheme.sc:736:21092 */ /* EQ: dispatching general to general */ if (!((t85305.tag)==(t85306.tag))) goto l16296; switch (t85305.tag) {case FIXNUM_TYPE: if (!((t85305.value.fixnum_type)==(t85306.value.fixnum_type))) goto l16296; break; case FLONUM_TYPE: if (!((t85305.value.flonum_type)==(t85306.value.flonum_type))) goto l16296; break; case INPUT_PORT_TYPE: if (!((t85305.value.input_port_type)==(t85306.value.input_port_type))) goto l16296; break; case OUTPUT_PORT_TYPE: if (!((t85305.value.output_port_type)==(t85306.value.output_port_type))) goto l16296; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t85305.value.native_procedure_type15963)==(t85306.value.native_procedure_type15963))) goto l16296; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t85305.value.native_procedure_type19067)==(t85306.value.native_procedure_type19067))) goto l16296; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t85305.value.native_procedure_type19068)==(t85306.value.native_procedure_type19068))) goto l16296; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t85305.value.native_procedure_type22459)==(t85306.value.native_procedure_type22459))) goto l16296; break; case STRUCTURE_TYPE24753: if (!((t85305.value.structure_type24753)==(t85306.value.structure_type24753))) goto l16296; break; case STRUCTURE_TYPE24757: if (!((t85305.value.structure_type24757)==(t85306.value.structure_type24757))) goto l16296; break; case STRUCTURE_TYPE27501: if (!((t85305.value.structure_type27501)==(t85306.value.structure_type27501))) goto l16296; break; case STRUCTURE_TYPE27510: if (!((t85305.value.structure_type27510)==(t85306.value.structure_type27510))) goto l16296; break; case STRUCTURE_TYPE27621: if (!((t85305.value.structure_type27621)==(t85306.value.structure_type27621))) goto l16296; break; case STRUCTURE_TYPE27650: if (!((t85305.value.structure_type27650)==(t85306.value.structure_type27650))) goto l16296; break; case STRUCTURE_TYPE27669: if (!((t85305.value.structure_type27669)==(t85306.value.structure_type27669))) goto l16296; break; case STRUCTURE_TYPE27673: if (!((t85305.value.structure_type27673)==(t85306.value.structure_type27673))) goto l16296; break; case STRUCTURE_TYPE27692: if (!((t85305.value.structure_type27692)==(t85306.value.structure_type27692))) goto l16296; break; case STRUCTURE_TYPE27694: if (!((t85305.value.structure_type27694)==(t85306.value.structure_type27694))) goto l16296; break; case STRUCTURE_TYPE27698: if (!((t85305.value.structure_type27698)==(t85306.value.structure_type27698))) goto l16296; break; case STRUCTURE_TYPE27745: if (!((t85305.value.structure_type27745)==(t85306.value.structure_type27745))) goto l16296; break; case STRUCTURE_TYPE27747: if (!((t85305.value.structure_type27747)==(t85306.value.structure_type27747))) goto l16296; break; case STRUCTURE_TYPE27750: if (!((t85305.value.structure_type27750)==(t85306.value.structure_type27750))) goto l16296; break; case STRUCTURE_TYPE27753: if (!((t85305.value.structure_type27753)==(t85306.value.structure_type27753))) goto l16296; break; case STRUCTURE_TYPE27756: if (!((t85305.value.structure_type27756)==(t85306.value.structure_type27756))) goto l16296; break; case STRUCTURE_TYPE27761: if (!((t85305.value.structure_type27761)==(t85306.value.structure_type27761))) goto l16296; break; case STRUCTURE_TYPE27769: if (!((t85305.value.structure_type27769)==(t85306.value.structure_type27769))) goto l16296; break; case STRUCTURE_TYPE27776: if (!((t85305.value.structure_type27776)==(t85306.value.structure_type27776))) goto l16296; break; case STRUCTURE_TYPE27779: if (!((t85305.value.structure_type27779)==(t85306.value.structure_type27779))) goto l16296; break; case STRUCTURE_TYPE27858: if (!((t85305.value.structure_type27858)==(t85306.value.structure_type27858))) goto l16296; break; case STRING_TYPE: if (!((t85305.value.string_type)==(t85306.value.string_type))) goto l16296; break; case HEADED_VECTOR_TYPE27896: if (!((t85305.value.headed_vector_type27896)==(t85306.value.headed_vector_type27896))) goto l16296; break; case EXTERNAL_SYMBOL_TYPE: if (!((t85305.value.external_symbol_type)==(t85306.value.external_symbol_type))) goto l16296; break; case STRUCTURE_TYPE27908: if (!((t85305.value.structure_type27908)==(t85306.value.structure_type27908))) goto l16296; break; default:;} break; case NATIVE_PROCEDURE_TYPE15706: p11050 = t85289.value.native_procedure_type15706; a23678 = t85290; /* x100225 stalin.sc:9724:336069 */ /* x100215 stalin.sc:9724:336074 */ /* x100213 stalin.sc:9724:336079 */ /* x100212 stalin.sc:9724:336109 */ t85311 = a23678; /* x100211 stalin.sc:9724:336080 */ a36608 = t85311; /* x279101 */ /* x279100 */ t85312 = a36608; /* x279099 */ if (!((t85312.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-NARROW-PROTOTYPE[6743] 31525]"); structure_ref_error();} t85309 = t85312.value.structure_type27694->s14; /* x100214 stalin.sc:9724:336113 */ t85310 = a23678; /* x269648 stalin.sc:9724:336075 */ /* EQ: dispatching general to general */ if (!((t85309.tag)==(t85310.tag))) goto l16296; switch (t85309.tag) {case FIXNUM_TYPE: if (!((t85309.value.fixnum_type)==(t85310.value.fixnum_type))) goto l16296; break; case FLONUM_TYPE: if (!((t85309.value.flonum_type)==(t85310.value.flonum_type))) goto l16296; break; case INPUT_PORT_TYPE: if (!((t85309.value.input_port_type)==(t85310.value.input_port_type))) goto l16296; break; case OUTPUT_PORT_TYPE: if (!((t85309.value.output_port_type)==(t85310.value.output_port_type))) goto l16296; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t85309.value.native_procedure_type15963)==(t85310.value.native_procedure_type15963))) goto l16296; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t85309.value.native_procedure_type19067)==(t85310.value.native_procedure_type19067))) goto l16296; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t85309.value.native_procedure_type19068)==(t85310.value.native_procedure_type19068))) goto l16296; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t85309.value.native_procedure_type22459)==(t85310.value.native_procedure_type22459))) goto l16296; break; case STRUCTURE_TYPE24753: if (!((t85309.value.structure_type24753)==(t85310.value.structure_type24753))) goto l16296; break; case STRUCTURE_TYPE24757: if (!((t85309.value.structure_type24757)==(t85310.value.structure_type24757))) goto l16296; break; case STRUCTURE_TYPE27501: if (!((t85309.value.structure_type27501)==(t85310.value.structure_type27501))) goto l16296; break; case STRUCTURE_TYPE27510: if (!((t85309.value.structure_type27510)==(t85310.value.structure_type27510))) goto l16296; break; case STRUCTURE_TYPE27621: if (!((t85309.value.structure_type27621)==(t85310.value.structure_type27621))) goto l16296; break; case STRUCTURE_TYPE27650: if (!((t85309.value.structure_type27650)==(t85310.value.structure_type27650))) goto l16296; break; case STRUCTURE_TYPE27669: if (!((t85309.value.structure_type27669)==(t85310.value.structure_type27669))) goto l16296; break; case STRUCTURE_TYPE27673: if (!((t85309.value.structure_type27673)==(t85310.value.structure_type27673))) goto l16296; break; case STRUCTURE_TYPE27692: if (!((t85309.value.structure_type27692)==(t85310.value.structure_type27692))) goto l16296; break; case STRUCTURE_TYPE27694: if (!((t85309.value.structure_type27694)==(t85310.value.structure_type27694))) goto l16296; break; case STRUCTURE_TYPE27698: if (!((t85309.value.structure_type27698)==(t85310.value.structure_type27698))) goto l16296; break; case STRUCTURE_TYPE27745: if (!((t85309.value.structure_type27745)==(t85310.value.structure_type27745))) goto l16296; break; case STRUCTURE_TYPE27747: if (!((t85309.value.structure_type27747)==(t85310.value.structure_type27747))) goto l16296; break; case STRUCTURE_TYPE27750: if (!((t85309.value.structure_type27750)==(t85310.value.structure_type27750))) goto l16296; break; case STRUCTURE_TYPE27753: if (!((t85309.value.structure_type27753)==(t85310.value.structure_type27753))) goto l16296; break; case STRUCTURE_TYPE27756: if (!((t85309.value.structure_type27756)==(t85310.value.structure_type27756))) goto l16296; break; case STRUCTURE_TYPE27761: if (!((t85309.value.structure_type27761)==(t85310.value.structure_type27761))) goto l16296; break; case STRUCTURE_TYPE27769: if (!((t85309.value.structure_type27769)==(t85310.value.structure_type27769))) goto l16296; break; case STRUCTURE_TYPE27776: if (!((t85309.value.structure_type27776)==(t85310.value.structure_type27776))) goto l16296; break; case STRUCTURE_TYPE27779: if (!((t85309.value.structure_type27779)==(t85310.value.structure_type27779))) goto l16296; break; case STRUCTURE_TYPE27858: if (!((t85309.value.structure_type27858)==(t85310.value.structure_type27858))) goto l16296; break; case STRING_TYPE: if (!((t85309.value.string_type)==(t85310.value.string_type))) goto l16296; break; case HEADED_VECTOR_TYPE27896: if (!((t85309.value.headed_vector_type27896)==(t85310.value.headed_vector_type27896))) goto l16296; break; case EXTERNAL_SYMBOL_TYPE: if (!((t85309.value.external_symbol_type)==(t85310.value.external_symbol_type))) goto l16296; break; case STRUCTURE_TYPE27908: if (!((t85309.value.structure_type27908)==(t85310.value.structure_type27908))) goto l16296; break; default:;} /* x100223 */ /* x100219 stalin.sc:9725:336126 */ /* x100218 stalin.sc:9725:336154 */ t85315 = a23678; /* x100217 stalin.sc:9725:336127 */ a36587 = t85315; /* x279017 */ /* x279016 */ t85316 = a36587; /* x279015 */ if (!((t85316.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-WIDE-PROTOTYPE[6759] 31504]"); structure_ref_error();} t85313 = t85316.value.structure_type27694->s16; /* x100222 stalin.sc:9726:336167 */ /* x100221 stalin.sc:9726:336195 */ t85317 = p11050->a23677; /* x100220 stalin.sc:9726:336168 */ a36588 = t85317; /* x279021 */ /* x279020 */ t85318 = a36588; /* x279019 */ if (!((t85318.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-WIDE-PROTOTYPE[6759] 31505]"); structure_ref_error();} t85314 = t85318.value.structure_type27694->s16; /* x269647 stalin.sc:9725:336122 */ /* EQ: dispatching general to general */ if (!((t85313.tag)==(t85314.tag))) goto l16296; switch (t85313.tag) {case FIXNUM_TYPE: if (!((t85313.value.fixnum_type)==(t85314.value.fixnum_type))) goto l16296; break; case FLONUM_TYPE: if (!((t85313.value.flonum_type)==(t85314.value.flonum_type))) goto l16296; break; case INPUT_PORT_TYPE: if (!((t85313.value.input_port_type)==(t85314.value.input_port_type))) goto l16296; break; case OUTPUT_PORT_TYPE: if (!((t85313.value.output_port_type)==(t85314.value.output_port_type))) goto l16296; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t85313.value.native_procedure_type15963)==(t85314.value.native_procedure_type15963))) goto l16296; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t85313.value.native_procedure_type19067)==(t85314.value.native_procedure_type19067))) goto l16296; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t85313.value.native_procedure_type19068)==(t85314.value.native_procedure_type19068))) goto l16296; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t85313.value.native_procedure_type22459)==(t85314.value.native_procedure_type22459))) goto l16296; break; case STRUCTURE_TYPE24753: if (!((t85313.value.structure_type24753)==(t85314.value.structure_type24753))) goto l16296; break; case STRUCTURE_TYPE24757: if (!((t85313.value.structure_type24757)==(t85314.value.structure_type24757))) goto l16296; break; case STRUCTURE_TYPE27501: if (!((t85313.value.structure_type27501)==(t85314.value.structure_type27501))) goto l16296; break; case STRUCTURE_TYPE27510: if (!((t85313.value.structure_type27510)==(t85314.value.structure_type27510))) goto l16296; break; case STRUCTURE_TYPE27621: if (!((t85313.value.structure_type27621)==(t85314.value.structure_type27621))) goto l16296; break; case STRUCTURE_TYPE27650: if (!((t85313.value.structure_type27650)==(t85314.value.structure_type27650))) goto l16296; break; case STRUCTURE_TYPE27669: if (!((t85313.value.structure_type27669)==(t85314.value.structure_type27669))) goto l16296; break; case STRUCTURE_TYPE27673: if (!((t85313.value.structure_type27673)==(t85314.value.structure_type27673))) goto l16296; break; case STRUCTURE_TYPE27692: if (!((t85313.value.structure_type27692)==(t85314.value.structure_type27692))) goto l16296; break; case STRUCTURE_TYPE27694: if (!((t85313.value.structure_type27694)==(t85314.value.structure_type27694))) goto l16296; break; case STRUCTURE_TYPE27698: if (!((t85313.value.structure_type27698)==(t85314.value.structure_type27698))) goto l16296; break; case STRUCTURE_TYPE27745: if (!((t85313.value.structure_type27745)==(t85314.value.structure_type27745))) goto l16296; break; case STRUCTURE_TYPE27747: if (!((t85313.value.structure_type27747)==(t85314.value.structure_type27747))) goto l16296; break; case STRUCTURE_TYPE27750: if (!((t85313.value.structure_type27750)==(t85314.value.structure_type27750))) goto l16296; break; case STRUCTURE_TYPE27753: if (!((t85313.value.structure_type27753)==(t85314.value.structure_type27753))) goto l16296; break; case STRUCTURE_TYPE27756: if (!((t85313.value.structure_type27756)==(t85314.value.structure_type27756))) goto l16296; break; case STRUCTURE_TYPE27761: if (!((t85313.value.structure_type27761)==(t85314.value.structure_type27761))) goto l16296; break; case STRUCTURE_TYPE27769: if (!((t85313.value.structure_type27769)==(t85314.value.structure_type27769))) goto l16296; break; case STRUCTURE_TYPE27776: if (!((t85313.value.structure_type27776)==(t85314.value.structure_type27776))) goto l16296; break; case STRUCTURE_TYPE27779: if (!((t85313.value.structure_type27779)==(t85314.value.structure_type27779))) goto l16296; break; case STRUCTURE_TYPE27858: if (!((t85313.value.structure_type27858)==(t85314.value.structure_type27858))) goto l16296; break; case STRING_TYPE: if (!((t85313.value.string_type)==(t85314.value.string_type))) goto l16296; break; case HEADED_VECTOR_TYPE27896: if (!((t85313.value.headed_vector_type27896)==(t85314.value.headed_vector_type27896))) goto l16296; break; case EXTERNAL_SYMBOL_TYPE: if (!((t85313.value.external_symbol_type)==(t85314.value.external_symbol_type))) goto l16296; break; case STRUCTURE_TYPE27908: if (!((t85313.value.structure_type27908)==(t85314.value.structure_type27908))) goto l16296; break; default:;} break; case NATIVE_PROCEDURE_TYPE16259: p12323 = t85289.value.native_procedure_type16259; a24498 = t85290; /* x109857 stalin.sc:11689:408237 */ /* x109855 stalin.sc:11689:408243 */ /* x109854 stalin.sc:11689:408250 */ t85321 = p12323->a24493; /* x109853 stalin.sc:11689:408244 */ a36125 = t85321; /* x275857 */ /* x275856 */ t85322 = a36125; /* x275855 */ if (!((t85322.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30274]"); structure_ref_error();} t85319 = t85322.value.structure_type24753->s0; /* x109856 stalin.sc:11689:408254 */ t85320 = a24498; /* x109852 stalin.sc:11689:408238 */ if ((f26351(t85319, t85320).tag)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE16260: p12322 = t85289.value.native_procedure_type16260; a24497 = t85290; /* x109847 stalin.sc:11690:408302 */ /* x109845 stalin.sc:11690:408308 */ /* x109844 stalin.sc:11690:408316 */ t85325 = p12322->a24493; /* x109843 stalin.sc:11690:408309 */ t85323 = f26181(t85325); /* x109846 stalin.sc:11690:408320 */ t85324 = a24497; /* x109842 stalin.sc:11690:408303 */ if ((f26351(t85323, t85324).tag)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE16274: p12297 = t85289.value.native_procedure_type16274; a24480 = t85290; /* x109702 stalin.sc:11663:407407 */ /* x109700 stalin.sc:11663:407413 */ /* x109699 stalin.sc:11663:407420 */ t85328 = p12297->a24475; /* x109698 stalin.sc:11663:407414 */ a36124 = t85328; /* x275853 */ /* x275852 */ t85329 = a36124; /* x275851 */ if (!((t85329.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30273]"); structure_ref_error();} t85326 = t85329.value.structure_type24753->s0; /* x109701 stalin.sc:11663:407424 */ t85327 = a24480; /* x109697 stalin.sc:11663:407408 */ if ((f26351(t85326, t85327).tag)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE16275: p12296 = t85289.value.native_procedure_type16275; a24479 = t85290; /* x109692 stalin.sc:11664:407472 */ /* x109690 stalin.sc:11664:407478 */ /* x109689 stalin.sc:11664:407486 */ t85332 = p12296->a24475; /* x109688 stalin.sc:11664:407479 */ t85330 = f26181(t85332); /* x109691 stalin.sc:11664:407490 */ t85331 = a24479; /* x109687 stalin.sc:11664:407473 */ if ((f26351(t85330, t85331).tag)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE16289: p12271 = t85289.value.native_procedure_type16289; a24462 = t85290; /* x109532 stalin.sc:11629:406371 */ /* x109530 stalin.sc:11629:406377 */ /* x109529 stalin.sc:11629:406384 */ t85335 = p12271->a24457; /* x109528 stalin.sc:11629:406378 */ a36123 = t85335; /* x275849 */ /* x275848 */ t85336 = a36123; /* x275847 */ if (!((t85336.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30272]"); structure_ref_error();} t85333 = t85336.value.structure_type24753->s0; /* x109531 stalin.sc:11629:406388 */ t85334 = a24462; /* x109527 stalin.sc:11629:406372 */ if ((f26351(t85333, t85334).tag)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE16290: p12270 = t85289.value.native_procedure_type16290; a24461 = t85290; /* x109522 stalin.sc:11630:406431 */ /* x109520 stalin.sc:11630:406437 */ /* x109519 stalin.sc:11630:406445 */ t85339 = p12270->a24457; /* x109518 stalin.sc:11630:406438 */ t85337 = f26181(t85339); /* x109521 stalin.sc:11630:406449 */ t85338 = a24461; /* x109517 stalin.sc:11630:406432 */ if ((f26351(t85337, t85338).tag)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE17462: p11037 = t85289.value.native_procedure_type17462; a23670 = t85290; /* x100107 stalin.sc:9696:335083 */ /* x100093 stalin.sc:9696:335088 */ /* x100092 stalin.sc:9696:335097 */ t85340 = a23670; /* x100091 stalin.sc:9696:335089 */ if ((f8899(t85340).tag)==FALSE_TYPE) goto l16296; /* x100105 */ /* x100099 stalin.sc:9697:335114 */ /* x100098 stalin.sc:9697:335136 */ /* x100097 stalin.sc:9697:335160 */ t85345 = a23670; /* x100096 stalin.sc:9697:335137 */ a36690 = t85345; /* x279429 */ /* x279428 */ t85346 = a36690; /* x279427 */ if (!((t85346.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31607]"); structure_ref_error();} t85343 = t85346.value.structure_type27694->s1; /* x100095 stalin.sc:9697:335115 */ t85344 = *((struct w49 *)(&t85343)); t85341 = f6936(t85344); /* x100104 stalin.sc:9698:335171 */ /* x100103 stalin.sc:9698:335193 */ /* x100102 stalin.sc:9698:335217 */ t85349 = p11037->a23668; /* x100101 stalin.sc:9698:335194 */ a36691 = t85349; /* x279433 */ /* x279432 */ t85350 = a36691; /* x279431 */ if (!((t85350.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31608]"); structure_ref_error();} t85347 = t85350.value.structure_type27694->s1; /* x100100 stalin.sc:9698:335172 */ t85348 = *((struct w49 *)(&t85347)); t85342 = f6936(t85348); /* x269651 stalin.sc:9697:335110 */ if (!(t85341==t85342)) goto l16296; break; case NATIVE_PROCEDURE_TYPE17649: a21039 = t85290; /* x59892 stalin.sc:1083:35131 */ /* x59891 stalin.sc:1083:35173 */ t85352 = a21033; /* x59890 stalin.sc:1083:35141 */ /* x59889 stalin.sc:1083:35170 */ t85355 = a21039; /* x59888 stalin.sc:1083:35142 */ a37932 = t85355; /* x284397 */ /* x284396 */ t85356 = a37932; /* x284395 */ if (!((t85356.tag)==STRUCTURE_TYPE27750)) {backtrace_internal("[clone FOREIGN-PROCEDURE-TYPE-NAME[5995] 32849]"); structure_ref_error();} t85351 = t85356.value.structure_type27750->s0; /* x59887 stalin.sc:1083:35132 */ t85353 = t85351; t85354 = t85352; if (f27434(t85353, t85354)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE17684: a21011 = t85290; /* x59725 stalin.sc:1050:33894 */ /* x59717 stalin.sc:1050:33899 */ /* x59716 stalin.sc:1050:33936 */ t85358 = a21011; /* x59715 stalin.sc:1050:33900 */ /* x59714 stalin.sc:1050:33933 */ t85359 = a21007; /* x59713 stalin.sc:1050:33901 */ t85357 = f7708(t85359); if (f7709(t85357, t85358)==FALSE_TYPE) goto l16296; /* x59723 */ /* x59721 stalin.sc:1051:33953 */ /* x59720 stalin.sc:1051:33989 */ t85362 = a21011; /* x59719 stalin.sc:1051:33954 */ a38177 = t85362; /* x285377 */ /* x285376 */ t85363 = a38177; /* x285375 */ if (!((t85363.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33094]"); structure_ref_error();} t85360 = t85363.value.structure_type27753->s1; /* x59722 stalin.sc:1051:33992 */ t85361 = a21008; /* x59718 stalin.sc:1051:33946 */ if (f26165(t85360, t85361)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE17744: a21024 = t85290; /* x59814 stalin.sc:1068:34593 */ /* x59810 stalin.sc:1068:34598 */ t85364 = a21022; /* x59813 stalin.sc:1068:34600 */ /* x59812 stalin.sc:1068:34618 */ t85366 = a21024; /* x59811 stalin.sc:1068:34601 */ t85365 = f8966(t85366); /* x270696 stalin.sc:1068:34594 */ /* EQ: dispatching general to general */ if (!((t85364.tag)==(t85365.tag))) goto l16296; switch (t85364.tag) {case FIXNUM_TYPE: if (!((t85364.value.fixnum_type)==(t85365.value.fixnum_type))) goto l16296; break; case FLONUM_TYPE: if (!((t85364.value.flonum_type)==(t85365.value.flonum_type))) goto l16296; break; case INPUT_PORT_TYPE: if (!((t85364.value.input_port_type)==(t85365.value.input_port_type))) goto l16296; break; case OUTPUT_PORT_TYPE: if (!((t85364.value.output_port_type)==(t85365.value.output_port_type))) goto l16296; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t85364.value.native_procedure_type15963)==(t85365.value.native_procedure_type15963))) goto l16296; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t85364.value.native_procedure_type19067)==(t85365.value.native_procedure_type19067))) goto l16296; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t85364.value.native_procedure_type19068)==(t85365.value.native_procedure_type19068))) goto l16296; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t85364.value.native_procedure_type22459)==(t85365.value.native_procedure_type22459))) goto l16296; break; case STRUCTURE_TYPE24753: if (!((t85364.value.structure_type24753)==(t85365.value.structure_type24753))) goto l16296; break; case STRUCTURE_TYPE24757: if (!((t85364.value.structure_type24757)==(t85365.value.structure_type24757))) goto l16296; break; case STRUCTURE_TYPE27501: if (!((t85364.value.structure_type27501)==(t85365.value.structure_type27501))) goto l16296; break; case STRUCTURE_TYPE27510: if (!((t85364.value.structure_type27510)==(t85365.value.structure_type27510))) goto l16296; break; case STRUCTURE_TYPE27621: if (!((t85364.value.structure_type27621)==(t85365.value.structure_type27621))) goto l16296; break; case STRUCTURE_TYPE27650: if (!((t85364.value.structure_type27650)==(t85365.value.structure_type27650))) goto l16296; break; case STRUCTURE_TYPE27669: if (!((t85364.value.structure_type27669)==(t85365.value.structure_type27669))) goto l16296; break; case STRUCTURE_TYPE27673: if (!((t85364.value.structure_type27673)==(t85365.value.structure_type27673))) goto l16296; break; case STRUCTURE_TYPE27692: if (!((t85364.value.structure_type27692)==(t85365.value.structure_type27692))) goto l16296; break; case STRUCTURE_TYPE27694: if (!((t85364.value.structure_type27694)==(t85365.value.structure_type27694))) goto l16296; break; case STRUCTURE_TYPE27698: if (!((t85364.value.structure_type27698)==(t85365.value.structure_type27698))) goto l16296; break; case STRUCTURE_TYPE27745: if (!((t85364.value.structure_type27745)==(t85365.value.structure_type27745))) goto l16296; break; case STRUCTURE_TYPE27747: if (!((t85364.value.structure_type27747)==(t85365.value.structure_type27747))) goto l16296; break; case STRUCTURE_TYPE27750: if (!((t85364.value.structure_type27750)==(t85365.value.structure_type27750))) goto l16296; break; case STRUCTURE_TYPE27753: if (!((t85364.value.structure_type27753)==(t85365.value.structure_type27753))) goto l16296; break; case STRUCTURE_TYPE27756: if (!((t85364.value.structure_type27756)==(t85365.value.structure_type27756))) goto l16296; break; case STRUCTURE_TYPE27761: if (!((t85364.value.structure_type27761)==(t85365.value.structure_type27761))) goto l16296; break; case STRUCTURE_TYPE27769: if (!((t85364.value.structure_type27769)==(t85365.value.structure_type27769))) goto l16296; break; case STRUCTURE_TYPE27776: if (!((t85364.value.structure_type27776)==(t85365.value.structure_type27776))) goto l16296; break; case STRUCTURE_TYPE27779: if (!((t85364.value.structure_type27779)==(t85365.value.structure_type27779))) goto l16296; break; case STRUCTURE_TYPE27858: if (!((t85364.value.structure_type27858)==(t85365.value.structure_type27858))) goto l16296; break; case STRING_TYPE: if (!((t85364.value.string_type)==(t85365.value.string_type))) goto l16296; break; case HEADED_VECTOR_TYPE27896: if (!((t85364.value.headed_vector_type27896)==(t85365.value.headed_vector_type27896))) goto l16296; break; case EXTERNAL_SYMBOL_TYPE: if (!((t85364.value.external_symbol_type)==(t85365.value.external_symbol_type))) goto l16296; break; case STRUCTURE_TYPE27908: if (!((t85364.value.structure_type27908)==(t85365.value.structure_type27908))) goto l16296; break; default:;} break; case NATIVE_PROCEDURE_TYPE18237: if (f12781((t85289.value.native_procedure_type18237), t85290)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE18252: if (f12748((t85289.value.native_procedure_type18252), t85290)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE18254: if (f12736((t85289.value.native_procedure_type18254), t85290)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE18572: if (f7705((t85289.value.native_procedure_type18572), t85290)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE18915: a24739 = t85290; /* x113483 stalin.sc:12543:438260 */ /* x113482 stalin.sc:12543:438268 */ /* x113481 stalin.sc:12543:438276 */ t85368 = a24739; /* x113480 stalin.sc:12543:438269 */ t85367 = f8682(t85368); /* x113479 stalin.sc:12543:438261 */ if (f8581(t85367)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE20305: p1541 = t85289.value.native_procedure_type20305; a15136 = t85290; /* x17508 QobiScheme.sc:763:21971 */ /* x17504 QobiScheme.sc:763:21974 */ t85370 = p1541->a15133; /* x17507 QobiScheme.sc:763:21976 */ /* x17506 QobiScheme.sc:763:21983 */ t85384 = a15136; /* x17505 QobiScheme.sc:763:21977 */ a35977 = t85384; /* x275265 */ /* x275264 */ t85385 = a35977; /* x275263 */ if (!((t85385.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30126]"); structure_ref_error();} t85371 = t85385.value.structure_type24753->s0; /* x17503 QobiScheme.sc:763:21972 */ t85369 = p1541->p1536->a15131; switch (t85369) {case NATIVE_PROCEDURE_TYPE20302: a25455 = t85370; a25456 = t85371; /* x124496 stalin.sc:14891:521318 */ /* x124492 stalin.sc:14891:521328 */ /* x124491 stalin.sc:14891:521336 */ t85374 = a25455; /* x124490 stalin.sc:14891:521329 */ t85372 = f26181(t85374); /* x124495 stalin.sc:14891:521343 */ /* x124494 stalin.sc:14891:521351 */ t85375 = a25456; /* x124493 stalin.sc:14891:521344 */ t85373 = f26181(t85375); /* x124489 stalin.sc:14891:521319 */ if (f13424(t85372, t85373)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE20447: a25441 = t85370; a25442 = t85371; /* x124275 stalin.sc:14827:519159 */ /* x124271 stalin.sc:14827:519169 */ /* x124270 stalin.sc:14827:519177 */ t85378 = a25441; /* x124269 stalin.sc:14827:519170 */ t85376 = f26181(t85378); /* x124274 stalin.sc:14827:519184 */ /* x124273 stalin.sc:14827:519192 */ t85379 = a25442; /* x124272 stalin.sc:14827:519185 */ t85377 = f26181(t85379); /* x124268 stalin.sc:14827:519160 */ if (f13424(t85376, t85377)==FALSE_TYPE) goto l16296; break; default: a25427 = t85370; a25428 = t85371; /* x124060 stalin.sc:14818:518880 */ /* x124056 stalin.sc:14818:518890 */ /* x124055 stalin.sc:14818:518898 */ t85382 = a25427; /* x124054 stalin.sc:14818:518891 */ t85380 = f26181(t85382); /* x124059 stalin.sc:14818:518905 */ /* x124058 stalin.sc:14818:518913 */ t85383 = a25428; /* x124057 stalin.sc:14818:518906 */ t85381 = f26181(t85383); /* x124053 stalin.sc:14818:518881 */ if (f13424(t85380, t85381)==FALSE_TYPE) goto l16296;} break; case NATIVE_PROCEDURE_TYPE20452: a25439 = t85290; /* x124248 stalin.sc:14843:519817 */ /* x124247 stalin.sc:14846:519932 */ t85386 = a25439; /* x124246 stalin.sc:14843:519823 */ /* x124237 stalin.sc:14843:519818 */ t85387.tag = NATIVE_PROCEDURE_TYPE20453; t85388 = t85386; t85389 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t85387, t85388, t85389).tag)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE21513: a15164 = t85290; e1569 = (struct p1569 *)alloca(sizeof(struct p1569)); if (e1569==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 787, 22796); out_of_memory_error();} e1569->a15164 = a15164; /* x17688 QobiScheme.sc:788:22812 */ /* x17687 QobiScheme.sc:788:22817 */ /* x17686 QobiScheme.sc:789:22878 */ t85391 = a15160; /* x17685 QobiScheme.sc:788:22823 */ t85390 = e1569; /* x17672 QobiScheme.sc:788:22818 */ t85392.tag = NATIVE_PROCEDURE_TYPE21514; t85392.value.native_procedure_type21514 = t85390; t85393 = t85391; t85394 = (struct structure_type24753 *)NULL_TYPE; if (!((f1042(t85392, t85393, t85394).tag)==FALSE_TYPE)) goto l16296; break; case NATIVE_PROCEDURE_TYPE21696: p15193 = t85289.value.native_procedure_type21696; a26491 = t85290; /* x138010 stalin.sc:17720:619547 */ /* x138006 stalin.sc:17720:619555 */ /* x138005 stalin.sc:17720:619562 */ /* x138004 stalin.sc:17720:619570 */ /* x138003 stalin.sc:17720:619577 */ t85400 = a26491; /* x138002 stalin.sc:17720:619571 */ a35807 = t85400; /* x274585 */ /* x274584 */ t85401 = a35807; /* x274583 */ if (!((t85401.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29956]"); structure_ref_error();} t85399 = t85401.value.structure_type24753->s0; /* x138001 stalin.sc:17720:619563 */ t85397 = f26181(t85399); /* x138000 stalin.sc:17720:619556 */ a35806 = t85397; /* x274581 */ /* x274580 */ t85398 = a35806; /* x274579 */ if (!((t85398.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29955]"); structure_ref_error();} t85395 = t85398.value.structure_type24753->s0; /* x138009 stalin.sc:17720:619583 */ /* x138008 stalin.sc:17720:619588 */ t85402 = p15193->a26484; /* x268696 stalin.sc:17720:619584 */ if (!((t85402.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17720, 619583); structure_ref_error();} t85396 = t85402.value.structure_type24753->s1; /* x137999 stalin.sc:17720:619548 */ if (f26165(t85395, t85396)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE21733: p15186 = t85289.value.native_procedure_type21733; a26489 = t85290; /* x137942 stalin.sc:17710:619213 */ /* x137938 stalin.sc:17710:619221 */ /* x137937 stalin.sc:17710:619228 */ /* x137936 stalin.sc:17710:619236 */ /* x137935 stalin.sc:17710:619243 */ t85408 = a26489; /* x137934 stalin.sc:17710:619237 */ a35785 = t85408; /* x274497 */ /* x274496 */ t85409 = a35785; /* x274495 */ if (!((t85409.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29934]"); structure_ref_error();} t85407 = t85409.value.structure_type24753->s0; /* x137933 stalin.sc:17710:619229 */ t85405 = f26181(t85407); /* x137932 stalin.sc:17710:619222 */ a35784 = t85405; /* x274493 */ /* x274492 */ t85406 = a35784; /* x274491 */ if (!((t85406.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29933]"); structure_ref_error();} t85403 = t85406.value.structure_type24753->s0; /* x137941 stalin.sc:17710:619249 */ /* x137940 stalin.sc:17710:619254 */ t85410 = p15186->a26484; /* x268702 stalin.sc:17710:619250 */ if (!((t85410.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 17710, 619249); structure_ref_error();} t85404 = t85410.value.structure_type24753->s0; /* x137931 stalin.sc:17710:619214 */ if (f26165(t85403, t85404)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE22554: p7148 = t85289.value.native_procedure_type22554; a21087 = t85290; /* x60256 stalin.sc:1150:37527 */ /* x60223 stalin.sc:1151:37539 */ /* x60222 stalin.sc:1151:37566 */ t85412 = a21087; /* x60221 stalin.sc:1151:37540 */ /* x60220 stalin.sc:1151:37563 */ t85413 = p7148->a21075; /* x60219 stalin.sc:1151:37541 */ t85411 = f7717(t85413); if (f7718(t85411, t85412)==FALSE_TYPE) goto l16296; /* x60254 */ /* x60253 stalin.sc:1152:37580 */ /* x60252 stalin.sc:1152:37585 */ /* x60249 stalin.sc:1152:37589 */ /* x60247 stalin.sc:1152:37594 */ /* x60246 stalin.sc:1152:37611 */ t85416 = p7148->a21078; /* x60245 stalin.sc:1152:37595 */ a40276 = t85416; /* x293773 */ /* x293772 */ t85417 = a40276; /* x293771 */ if (!((t85417.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35193]"); structure_ref_error();} t85414 = t85417.value.structure_type27698->s0; /* x60248 stalin.sc:1152:37614 */ t85415 = q50; /* x270681 stalin.sc:1152:37590 */ if (!(t85414==t85415)) goto l16303; /* x60250 stalin.sc:1153:37636 */ if (a724==FALSE_TYPE) goto l16295; goto l16304; l16303: /* x60251 stalin.sc:1154:37690 */ if (a722==FALSE_TYPE) goto l16295; l16304: p7149 = p7148; /* x60240 */ /* x60239 stalin.sc:1156:37814 */ /* x60238 stalin.sc:1156:37836 */ t85423 = a21087; /* x60237 stalin.sc:1156:37815 */ a37628 = t85423; /* x283181 */ /* x283180 */ t85424 = a37628; /* x283179 */ if (!((t85424.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32545]"); structure_ref_error();} t85419 = t85424.value.structure_type27769->s1; /* x60236 stalin.sc:1156:37810 */ t85418 = p7149->a21077; /* x60235 stalin.sc:1155:37752 */ /* x60226 stalin.sc:1155:37746 */ t85420.tag = NATIVE_PROCEDURE_TYPE22683; /* MOVE: branching squeezed to general */ if (t85418>=((struct structure_type24753 *)VALUE_OFFSET)) {t85421.tag = STRUCTURE_TYPE24753; t85421.value.structure_type24753 = t85418;} else t85421.tag = (unsigned)t85418; t85422 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t85422==NULL) {backtrace_internal("[inside 7149]"); out_of_memory_error();} t85422->s0 = *((struct w49 *)(&t85419)); t85422->s1.tag = NULL_TYPE; if (f1061(t85420, t85421, t85422)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE22701: if (f12760((t85289.value.native_procedure_type22701), t85290)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE23218: p7174 = t85289.value.native_procedure_type23218; a21115 = t85290; e7174 = (struct p7174 *)alloca(sizeof(struct p7174)); if (e7174==NULL) {backtrace("stalin.sc", 1196, 39295); out_of_memory_error();} e7174->p7166 = p7174; e7174->a21115 = a21115; /* x60472 stalin.sc:1197:39313 */ /* x60471 stalin.sc:1197:39317 */ /* x60470 stalin.sc:1198:39326 */ /* x60467 stalin.sc:1198:39330 */ /* x60465 stalin.sc:1198:39335 */ /* x60464 stalin.sc:1198:39352 */ t85427 = p7174->a21108; /* x60463 stalin.sc:1198:39336 */ a40273 = t85427; /* x293761 */ /* x293760 */ t85428 = a40273; /* x293759 */ if (!((t85428.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35190]"); structure_ref_error();} t85425 = t85428.value.structure_type27698->s0; /* x60466 stalin.sc:1198:39355 */ t85426 = q52; /* x270672 stalin.sc:1198:39331 */ if (!(t85425==t85426)) goto l16307; /* x60468 stalin.sc:1199:39381 */ if (a720==FALSE_TYPE) goto l16295; goto l16308; l16307: /* x60469 stalin.sc:1200:39443 */ if (a718==FALSE_TYPE) goto l16295; l16308: p7175 = e7174; /* x60458 */ /* x60457 stalin.sc:1203:39576 */ t85430 = p7175->p7166->a21107; /* x60456 stalin.sc:1202:39514 */ t85429 = p7175; /* x60449 stalin.sc:1201:39504 */ t85431.tag = NATIVE_PROCEDURE_TYPE23220; t85431.value.native_procedure_type23220 = t85429; t85432 = t85430; t85433 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t85431, t85432, t85433)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE23264: if (f12771((t85289.value.native_procedure_type23264), t85290)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE23628: p14576 = t85289.value.native_procedure_type23628; a25974 = t85290; /* x131496 stalin.sc:16544:578048 */ /* x131494 stalin.sc:16544:578054 */ t85434 = p14576->a25965; /* x131495 stalin.sc:16544:578056 */ t85435 = a25974; /* x131493 stalin.sc:16544:578049 */ if ((f26351(t85434, t85435).tag)==FALSE_TYPE) goto l16296; break; case NATIVE_PROCEDURE_TYPE23915: p16157 = t85289.value.native_procedure_type23915; a27189 = t85290; /* x152198 stalin.sc:20782:727554 */ /* x152178 stalin.sc:20782:727559 */ /* x152177 stalin.sc:20782:727568 */ t85436 = a27189; /* x152176 stalin.sc:20782:727560 */ if ((f8899(t85436).tag)==FALSE_TYPE) goto l16296; /* x152196 */ /* x152183 stalin.sc:20783:727578 */ /* x152182 stalin.sc:20783:727583 */ /* x152181 stalin.sc:20783:727590 */ t85437 = a27189; /* x152180 stalin.sc:20783:727584 */ if (!(f8918(t85437)==FALSE_TYPE)) goto l16296; /* x152194 */ /* x152186 stalin.sc:20784:727601 */ /* x152185 stalin.sc:20784:727624 */ t85438 = a27189; /* x152184 stalin.sc:20784:727602 */ if ((f8897(t85438).tag)==FALSE_TYPE) goto l16296; /* x152192 */ /* x152188 stalin.sc:20785:727639 */ t85439 = p16157->a27186; /* x152191 stalin.sc:20785:727641 */ /* x152190 stalin.sc:20785:727659 */ t85441 = a27189; /* x152189 stalin.sc:20785:727642 */ t85440 = f8965(t85441); /* x268355 stalin.sc:20785:727635 */ /* EQ: dispatching general to general */ if (!((t85439.tag)==(t85440.tag))) goto l16296; switch (t85439.tag) {case FIXNUM_TYPE: if (!((t85439.value.fixnum_type)==(t85440.value.fixnum_type))) goto l16296; break; case FLONUM_TYPE: if (!((t85439.value.flonum_type)==(t85440.value.flonum_type))) goto l16296; break; case INPUT_PORT_TYPE: if (!((t85439.value.input_port_type)==(t85440.value.input_port_type))) goto l16296; break; case OUTPUT_PORT_TYPE: if (!((t85439.value.output_port_type)==(t85440.value.output_port_type))) goto l16296; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t85439.value.native_procedure_type15963)==(t85440.value.native_procedure_type15963))) goto l16296; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t85439.value.native_procedure_type19067)==(t85440.value.native_procedure_type19067))) goto l16296; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t85439.value.native_procedure_type19068)==(t85440.value.native_procedure_type19068))) goto l16296; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t85439.value.native_procedure_type22459)==(t85440.value.native_procedure_type22459))) goto l16296; break; case STRUCTURE_TYPE24753: if (!((t85439.value.structure_type24753)==(t85440.value.structure_type24753))) goto l16296; break; case STRUCTURE_TYPE24757: if (!((t85439.value.structure_type24757)==(t85440.value.structure_type24757))) goto l16296; break; case STRUCTURE_TYPE27501: if (!((t85439.value.structure_type27501)==(t85440.value.structure_type27501))) goto l16296; break; case STRUCTURE_TYPE27510: if (!((t85439.value.structure_type27510)==(t85440.value.structure_type27510))) goto l16296; break; case STRUCTURE_TYPE27621: if (!((t85439.value.structure_type27621)==(t85440.value.structure_type27621))) goto l16296; break; case STRUCTURE_TYPE27650: if (!((t85439.value.structure_type27650)==(t85440.value.structure_type27650))) goto l16296; break; case STRUCTURE_TYPE27669: if (!((t85439.value.structure_type27669)==(t85440.value.structure_type27669))) goto l16296; break; case STRUCTURE_TYPE27673: if (!((t85439.value.structure_type27673)==(t85440.value.structure_type27673))) goto l16296; break; case STRUCTURE_TYPE27692: if (!((t85439.value.structure_type27692)==(t85440.value.structure_type27692))) goto l16296; break; case STRUCTURE_TYPE27694: if (!((t85439.value.structure_type27694)==(t85440.value.structure_type27694))) goto l16296; break; case STRUCTURE_TYPE27698: if (!((t85439.value.structure_type27698)==(t85440.value.structure_type27698))) goto l16296; break; case STRUCTURE_TYPE27745: if (!((t85439.value.structure_type27745)==(t85440.value.structure_type27745))) goto l16296; break; case STRUCTURE_TYPE27747: if (!((t85439.value.structure_type27747)==(t85440.value.structure_type27747))) goto l16296; break; case STRUCTURE_TYPE27750: if (!((t85439.value.structure_type27750)==(t85440.value.structure_type27750))) goto l16296; break; case STRUCTURE_TYPE27753: if (!((t85439.value.structure_type27753)==(t85440.value.structure_type27753))) goto l16296; break; case STRUCTURE_TYPE27756: if (!((t85439.value.structure_type27756)==(t85440.value.structure_type27756))) goto l16296; break; case STRUCTURE_TYPE27761: if (!((t85439.value.structure_type27761)==(t85440.value.structure_type27761))) goto l16296; break; case STRUCTURE_TYPE27769: if (!((t85439.value.structure_type27769)==(t85440.value.structure_type27769))) goto l16296; break; case STRUCTURE_TYPE27776: if (!((t85439.value.structure_type27776)==(t85440.value.structure_type27776))) goto l16296; break; case STRUCTURE_TYPE27779: if (!((t85439.value.structure_type27779)==(t85440.value.structure_type27779))) goto l16296; break; case STRUCTURE_TYPE27858: if (!((t85439.value.structure_type27858)==(t85440.value.structure_type27858))) goto l16296; break; case STRING_TYPE: if (!((t85439.value.string_type)==(t85440.value.string_type))) goto l16296; break; case HEADED_VECTOR_TYPE27896: if (!((t85439.value.headed_vector_type27896)==(t85440.value.headed_vector_type27896))) goto l16296; break; case EXTERNAL_SYMBOL_TYPE: if (!((t85439.value.external_symbol_type)==(t85440.value.external_symbol_type))) goto l16296; break; case STRUCTURE_TYPE27908: if (!((t85439.value.structure_type27908)==(t85440.value.structure_type27908))) goto l16296; break; default:;} break; default: a33016 = t85290; /* x225425 stalin.sc:31393:1081011 */ /* x225424 stalin.sc:31393:1081037 */ /* x225423 stalin.sc:31393:1081045 */ t85447 = a666; /* x225422 stalin.sc:31393:1081038 */ /* MOVE: branching squeezed to general */ if (t85447>=((struct structure_type24753 *)VALUE_OFFSET)) {t85448.tag = STRUCTURE_TYPE24753; t85448.value.structure_type24753 = t85447;} else t85448.tag = (unsigned)t85447; t85443 = f26181(t85448); /* x225421 stalin.sc:31393:1081021 */ /* x225420 stalin.sc:31393:1081029 */ t85446 = a33016; /* x225419 stalin.sc:31393:1081022 */ t85442 = f26181(t85446); /* x225418 stalin.sc:31393:1081012 */ t85444 = t85442; t85445 = t85443; if (f27434(t85444, t85445)==FALSE_TYPE) goto l16296;} l16295: /* x16062 */ /* x16061 */ /* x16060 QobiScheme.sc:557:15919 */ /* x16059 QobiScheme.sc:557:15926 */ t85454 = *((struct w16638 *)(&a14955)); /* x16058 QobiScheme.sc:557:15920 */ a36219 = t85454; /* x276233 */ /* x276232 */ t85455 = a36219; /* x276231 */ if ((t85455.tag)==STRUCTURE_TYPE24753) return t85455.value.structure_type24753->s0; backtrace_internal("[clone CAR[26176] 30368]"); structure_ref_error(); l16296: /* x16069 */ /* x16068 */ /* x16067 QobiScheme.sc:558:15937 */ /* x16066 QobiScheme.sc:558:15943 */ /* x16065 QobiScheme.sc:558:15949 */ t85452 = *((struct w16638 *)(&a14955)); /* x16064 QobiScheme.sc:558:15944 */ a35635 = t85452; /* x273897 */ /* x273896 */ t85453 = a35635; /* x273895 */ if (!((t85453.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29784]"); structure_ref_error();} t85451 = t85453.value.structure_type24753->s1; /* x16063 QobiScheme.sc:558:15938 */ a14955 = t85451; goto h1317;} /* POSITIONP[1258] */ unsigned f1258(struct w49 a14912, struct w49 a14913) {struct w49 a14916; /* L */ int a14917; /* I */ struct w16638 a35593; /* PAIR */ struct w16638 a36166; /* PAIR */ struct w49 t85456; int t85457; struct w49 t85458; struct w49 t85459; struct w49 t85460; struct w49 t85461; struct w49 t85462; struct w16638 t85463; struct w16638 t85464; struct w49 t85465; int t85466; struct w16638 t85467; struct w16638 t85468; int t85469; int t85470; /* x15804 QobiScheme.sc:513:14986 */ /* x15802 QobiScheme.sc:513:15000 */ t85456 = a14913; /* x15803 QobiScheme.sc:513:15006 */ t85457 = 0; /* x15801 */ /* x15800 */ /* x15799 */ /* x15798 */ /* x15797 */ /* x15796 */ /* x15795 */ /* x15766 */ /* x15765 QobiScheme.sc:513:14991 */ a14916 = t85456; a14917 = t85457; h1261: /* x15794 QobiScheme.sc:514:15012 */ /* x15769 QobiScheme.sc:514:15019 */ /* x15768 QobiScheme.sc:514:15026 */ t85458 = a14916; /* x270898 QobiScheme.sc:514:15020 */ if (!((t85458.tag)==NULL_TYPE)) goto l16313; /* x15772 */ /* x15771 */ /* x15770 QobiScheme.sc:514:15029 */ return (unsigned)FALSE_TYPE; l16313: /* x15793 */ /* x15778 QobiScheme.sc:515:15035 */ /* x15777 QobiScheme.sc:515:15040 */ /* x15776 QobiScheme.sc:515:15047 */ t85463 = *((struct w16638 *)(&a14916)); /* x15775 QobiScheme.sc:515:15041 */ a36166 = t85463; /* x276021 */ /* x276020 */ t85464 = a36166; /* x276019 */ if (!((t85464.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30315]"); structure_ref_error();} t85460 = t85464.value.structure_type24753->s0; /* x15774 QobiScheme.sc:515:15038 */ t85459 = a14912; /* x15773 QobiScheme.sc:515:15036 */ t85461 = t85459; t85462 = t85460; if (f27434(t85461, t85462)==FALSE_TYPE) goto l16315; /* x15781 */ /* x15780 */ /* x15779 QobiScheme.sc:515:15051 */ return (((unsigned)a14917)<<1)+1; l16315: /* x15792 */ /* x15791 */ /* x15790 QobiScheme.sc:516:15061 */ /* x15785 QobiScheme.sc:516:15067 */ /* x15784 QobiScheme.sc:516:15073 */ t85467 = *((struct w16638 *)(&a14916)); /* x15783 QobiScheme.sc:516:15068 */ a35593 = t85467; /* x273729 */ /* x273728 */ t85468 = a35593; /* x273727 */ if (!((t85468.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29742]"); structure_ref_error();} t85465 = t85468.value.structure_type24753->s1; /* x15789 QobiScheme.sc:516:15076 */ /* x15787 QobiScheme.sc:516:15079 */ t85469 = a14917; /* x15788 QobiScheme.sc:516:15081 */ t85470 = 1; /* x270897 QobiScheme.sc:516:15077 */ t85466 = t85469+t85470; /* x15782 QobiScheme.sc:516:15062 */ a14916 = t85465; a14917 = t85466; goto h1261;} /* POSITIONQ[1234] */ unsigned f1234(struct w49 a14893, struct w49 a14894) {struct w49 a14897; /* L */ int a14898; /* I */ struct w16638 a35528; /* PAIR */ struct w16638 a36085; /* PAIR */ struct w49 t85471; int t85472; struct w49 t85473; struct w49 t85474; struct w49 t85475; struct w16638 t85476; struct w16638 t85477; struct w49 t85478; int t85479; struct w16638 t85480; struct w16638 t85481; int t85482; int t85483; /* x15678 QobiScheme.sc:495:14588 */ /* x15676 QobiScheme.sc:495:14602 */ t85471 = a14894; /* x15677 QobiScheme.sc:495:14608 */ t85472 = 0; /* x15675 */ /* x15674 */ /* x15673 */ /* x15672 */ /* x15671 */ /* x15670 */ /* x15669 */ /* x15640 */ /* x15639 QobiScheme.sc:495:14593 */ a14897 = t85471; a14898 = t85472; h1237: /* x15668 QobiScheme.sc:496:14614 */ /* x15643 QobiScheme.sc:496:14621 */ /* x15642 QobiScheme.sc:496:14628 */ t85473 = a14897; /* x270903 QobiScheme.sc:496:14622 */ if (!((t85473.tag)==NULL_TYPE)) goto l16317; /* x15646 */ /* x15645 */ /* x15644 QobiScheme.sc:496:14631 */ return (unsigned)FALSE_TYPE; l16317: /* x15667 */ /* x15652 QobiScheme.sc:497:14637 */ /* x15648 QobiScheme.sc:497:14642 */ t85474 = a14893; /* x15651 QobiScheme.sc:497:14644 */ /* x15650 QobiScheme.sc:497:14651 */ t85476 = *((struct w16638 *)(&a14897)); /* x15649 QobiScheme.sc:497:14645 */ a36085 = t85476; /* x275697 */ /* x275696 */ t85477 = a36085; /* x275695 */ if (!((t85477.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30234]"); structure_ref_error();} t85475 = t85477.value.structure_type24753->s0; /* x270902 QobiScheme.sc:497:14638 */ /* EQ: dispatching general to general */ if (!((t85474.tag)==(t85475.tag))) goto l16319; switch (t85474.tag) {case FIXNUM_TYPE: if (!((t85474.value.fixnum_type)==(t85475.value.fixnum_type))) goto l16319; break; case FLONUM_TYPE: if (!((t85474.value.flonum_type)==(t85475.value.flonum_type))) goto l16319; break; case INPUT_PORT_TYPE: if (!((t85474.value.input_port_type)==(t85475.value.input_port_type))) goto l16319; break; case OUTPUT_PORT_TYPE: if (!((t85474.value.output_port_type)==(t85475.value.output_port_type))) goto l16319; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t85474.value.native_procedure_type15963)==(t85475.value.native_procedure_type15963))) goto l16319; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t85474.value.native_procedure_type19067)==(t85475.value.native_procedure_type19067))) goto l16319; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t85474.value.native_procedure_type19068)==(t85475.value.native_procedure_type19068))) goto l16319; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t85474.value.native_procedure_type22459)==(t85475.value.native_procedure_type22459))) goto l16319; break; case STRUCTURE_TYPE24753: if (!((t85474.value.structure_type24753)==(t85475.value.structure_type24753))) goto l16319; break; case STRUCTURE_TYPE24757: if (!((t85474.value.structure_type24757)==(t85475.value.structure_type24757))) goto l16319; break; case STRUCTURE_TYPE27501: if (!((t85474.value.structure_type27501)==(t85475.value.structure_type27501))) goto l16319; break; case STRUCTURE_TYPE27510: if (!((t85474.value.structure_type27510)==(t85475.value.structure_type27510))) goto l16319; break; case STRUCTURE_TYPE27621: if (!((t85474.value.structure_type27621)==(t85475.value.structure_type27621))) goto l16319; break; case STRUCTURE_TYPE27650: if (!((t85474.value.structure_type27650)==(t85475.value.structure_type27650))) goto l16319; break; case STRUCTURE_TYPE27669: if (!((t85474.value.structure_type27669)==(t85475.value.structure_type27669))) goto l16319; break; case STRUCTURE_TYPE27673: if (!((t85474.value.structure_type27673)==(t85475.value.structure_type27673))) goto l16319; break; case STRUCTURE_TYPE27692: if (!((t85474.value.structure_type27692)==(t85475.value.structure_type27692))) goto l16319; break; case STRUCTURE_TYPE27694: if (!((t85474.value.structure_type27694)==(t85475.value.structure_type27694))) goto l16319; break; case STRUCTURE_TYPE27698: if (!((t85474.value.structure_type27698)==(t85475.value.structure_type27698))) goto l16319; break; case STRUCTURE_TYPE27745: if (!((t85474.value.structure_type27745)==(t85475.value.structure_type27745))) goto l16319; break; case STRUCTURE_TYPE27747: if (!((t85474.value.structure_type27747)==(t85475.value.structure_type27747))) goto l16319; break; case STRUCTURE_TYPE27750: if (!((t85474.value.structure_type27750)==(t85475.value.structure_type27750))) goto l16319; break; case STRUCTURE_TYPE27753: if (!((t85474.value.structure_type27753)==(t85475.value.structure_type27753))) goto l16319; break; case STRUCTURE_TYPE27756: if (!((t85474.value.structure_type27756)==(t85475.value.structure_type27756))) goto l16319; break; case STRUCTURE_TYPE27761: if (!((t85474.value.structure_type27761)==(t85475.value.structure_type27761))) goto l16319; break; case STRUCTURE_TYPE27769: if (!((t85474.value.structure_type27769)==(t85475.value.structure_type27769))) goto l16319; break; case STRUCTURE_TYPE27776: if (!((t85474.value.structure_type27776)==(t85475.value.structure_type27776))) goto l16319; break; case STRUCTURE_TYPE27779: if (!((t85474.value.structure_type27779)==(t85475.value.structure_type27779))) goto l16319; break; case STRUCTURE_TYPE27858: if (!((t85474.value.structure_type27858)==(t85475.value.structure_type27858))) goto l16319; break; case STRING_TYPE: if (!((t85474.value.string_type)==(t85475.value.string_type))) goto l16319; break; case HEADED_VECTOR_TYPE27896: if (!((t85474.value.headed_vector_type27896)==(t85475.value.headed_vector_type27896))) goto l16319; break; case EXTERNAL_SYMBOL_TYPE: if (!((t85474.value.external_symbol_type)==(t85475.value.external_symbol_type))) goto l16319; break; case STRUCTURE_TYPE27908: if (!((t85474.value.structure_type27908)==(t85475.value.structure_type27908))) goto l16319; break; default:;} /* x15655 */ /* x15654 */ /* x15653 QobiScheme.sc:497:14655 */ return (((unsigned)a14898)<<1)+1; l16319: /* x15666 */ /* x15665 */ /* x15664 QobiScheme.sc:498:14665 */ /* x15659 QobiScheme.sc:498:14671 */ /* x15658 QobiScheme.sc:498:14677 */ t85480 = *((struct w16638 *)(&a14897)); /* x15657 QobiScheme.sc:498:14672 */ a35528 = t85480; /* x273469 */ /* x273468 */ t85481 = a35528; /* x273467 */ if (!((t85481.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29677]"); structure_ref_error();} t85478 = t85481.value.structure_type24753->s1; /* x15663 QobiScheme.sc:498:14680 */ /* x15661 QobiScheme.sc:498:14683 */ t85482 = a14898; /* x15662 QobiScheme.sc:498:14685 */ t85483 = 1; /* x270901 QobiScheme.sc:498:14681 */ t85479 = t85482+t85483; /* x15656 QobiScheme.sc:498:14666 */ a14897 = t85478; a14898 = t85479; goto h1237;} /* REMOVE-IF-NOT[1226] */ struct w12224 f1226(struct w227671 a14887, struct w49 a14888) {struct w49 a14733; /* V */ int a14737; /* I */ struct w49 a14891; /* L */ struct structure_type24753 *a14892; /* C */ struct w49 a19448; /* OBJ */ struct w49 a19449; /* S */ struct w49 a19738; /* OBJ */ struct w49 a20085; /* S */ struct w49 a20335; /* S */ struct w49 a20440; /* S */ struct w49 a21204; /* U */ struct w49 a21208; /* U */ struct w49 a21212; /* U */ struct w49 a21539; /* U */ struct w49 a21763; /* W */ struct w49 a21767; /* W */ struct w49 a22160; /* Y */ struct w49 a22233; /* E */ struct w49 a22828; /* U */ struct w49 a22831; /* U */ struct w49 a22834; /* U */ struct w49 a22837; /* U */ struct w49 a22839; /* U */ struct w49 a22842; /* U */ struct w49 a22843; /* X */ struct w49 a22878; /* U */ struct w49 a23211; /* E */ struct w49 a23235; /* X */ struct w49 a23283; /* X */ struct w49 a23294; /* X */ struct w49 a23498; /* U */ struct w49 a23681; /* E */ struct w49 a23706; /* Y-E */ struct w49 a23923; /* Y */ struct w49 a23930; /* E */ struct w49 a24617; /* X1 */ struct w49 a24619; /* X */ struct w49 a24706; /* E1 */ struct w49 a24964; /* U */ struct w49 a24965; /* U */ struct w49 a24966; /* U */ struct w49 a24967; /* U */ struct w49 a24968; /* U */ struct w49 a24969; /* U */ struct w49 a24970; /* W */ struct w49 a25570; /* U */ struct w49 a25689; /* U */ struct w49 a25730; /* U */ struct w49 a25731; /* U */ struct w49 a25969; /* U */ struct w49 a25973; /* U */ struct w49 a26064; /* U */ struct w49 a26065; /* U */ struct w49 a26076; /* U */ struct w49 a26077; /* U */ struct w49 a26100; /* U */ struct w49 a26492; /* C2 */ struct w49 a26581; /* U */ struct w49 a26809; /* U */ struct w49 a26810; /* U */ struct w49 a26837; /* G */ struct w49 a26843; /* G */ struct w49 a26847; /* G */ struct w49 a26864; /* G */ struct w49 a27055; /* U */ struct w49 a27065; /* U */ struct w49 a27074; /* U */ struct w49 a27075; /* X */ struct w49 a27154; /* G */ struct w49 a27469; /* U */ struct w49 a27493; /* U */ struct w49 a27785; /* U */ struct w49 a27968; /* U */ struct w49 a30622; /* U */ struct w49 a30655; /* U */ struct w49 a30709; /* U */ struct w49 a30744; /* U */ struct w49 a30765; /* U */ struct w49 a31077; /* U */ struct w49 a33174; /* E */ struct w49 a33175; /* G */ struct w49 a33210; /* X */ struct w49 a33243; /* G */ struct w49 a33254; /* E */ char *a33263; /* v */ struct w49 a33290; /* G */ struct w49 a33307; /* Y */ struct w49 a33308; /* E1 */ struct w49 a33309; /* E2 */ struct w16638 a35575; /* PAIR */ struct w16638 a35591; /* PAIR */ struct w49 a35737; /* PAIR */ struct w49 a35900; /* PAIR */ struct w16638 a36136; /* PAIR */ struct w16638 a36177; /* PAIR */ struct structure_type27745 *a36384; /* S */ struct structure_type27745 *a36385; /* S */ struct structure_type27745 *a36386; /* S */ struct structure_type27745 *a36387; /* S */ struct structure_type27745 *a36395; /* S */ struct structure_type27745 *a36396; /* S */ struct structure_type27745 *a36415; /* S */ struct w49 a36440; /* S */ struct w49 a36450; /* S */ struct w49 a36453; /* S */ struct w49 a36454; /* S */ struct w49 a36475; /* S */ struct w49 a36617; /* S */ struct w49 a36723; /* S */ struct w49 a36893; /* S */ struct w49 a36903; /* S */ struct w49 a36904; /* S */ struct w49 a36905; /* S */ struct w49 a36906; /* S */ struct w49 a36975; /* S */ struct w49 a37009; /* S */ struct w49 a37029; /* S */ struct w49 a37091; /* S */ struct w49 a37297; /* S */ struct w49 a37302; /* S */ struct w49 a37325; /* OBJ */ struct w49 a37381; /* S */ struct w49 a37422; /* OBJ */ struct w49 a37443; /* OBJ */ struct w49 a37484; /* S */ struct w49 a37486; /* S */ struct w49 a37487; /* S */ struct w49 a37488; /* S */ struct w49 a37489; /* S */ struct w49 a37498; /* S */ struct w49 a37537; /* OBJ */ struct w49 a37538; /* OBJ */ struct w49 a37540; /* OBJ */ struct w49 a37541; /* OBJ */ struct w49 a37551; /* OBJ */ struct w49 a37559; /* OBJ */ struct w49 a37605; /* S */ struct w49 a37609; /* S */ struct w49 a37610; /* S */ struct w49 a37679; /* OBJ */ struct w49 a37732; /* S */ struct w49 a37770; /* OBJ */ struct w49 a37821; /* S */ struct w49 a37865; /* OBJ */ struct w49 a37984; /* S */ struct w49 a37985; /* S */ struct w49 a37986; /* S */ struct w49 a38027; /* OBJ */ struct w49 a38028; /* OBJ */ struct w49 a38029; /* OBJ */ struct w49 a38030; /* OBJ */ struct w49 a38031; /* OBJ */ struct w49 a38032; /* OBJ */ struct w49 a38162; /* S */ struct w49 a38168; /* S */ struct w49 a38249; /* S */ struct w49 a38255; /* S */ struct w49 a38279; /* OBJ */ struct w49 a38617; /* S */ struct w49 a38683; /* S */ struct w49 a38684; /* S */ struct w49 a38696; /* S */ struct w49 a39032; /* S */ struct w49 a39080; /* S */ struct w49 a39118; /* S */ struct w49 a39119; /* S */ struct w49 a39120; /* S */ struct w49 a39121; /* S */ struct w49 a39161; /* S */ struct w49 a39172; /* S */ struct w49 a39523; /* S */ struct w49 a39528; /* S */ struct w49 a39529; /* S */ struct w49 a39660; /* S */ struct w49 a39664; /* S */ struct w49 a39669; /* S */ struct w49 a39674; /* S */ struct w49 a39677; /* S */ struct w49 a39682; /* S */ struct w49 a39715; /* S */ struct w49 a39802; /* S */ struct w49 a39803; /* S */ struct w49 a39804; /* S */ struct w49 a39805; /* S */ struct w49 a39806; /* S */ struct w49 a39807; /* S */ struct w49 a39808; /* S */ struct w49 a39823; /* S */ struct w49 a39851; /* S */ struct w49 a39874; /* S */ struct w49 a39877; /* S */ struct w49 a39878; /* S */ struct w49 a39991; /* S */ struct w49 a39992; /* S */ struct w49 a40072; /* S */ struct w49 a40095; /* S */ struct w49 a40120; /* S */ struct w49 a40213; /* S */ struct w49 a40346; /* S */ struct w49 a40347; /* S */ struct w49 a40348; /* S */ struct w49 a40372; /* S */ struct w49 a40373; /* S */ struct w49 a41189; /* D */ struct w49 a41193; /* D */ struct w49 a41198; /* D */ struct w49 a41203; /* D */ struct w49 a41206; /* D */ struct w49 a41211; /* D */ struct w49 a41257; /* D */ struct w49 a41625; /* G */ struct w49 a41626; /* G */ struct w49 a41644; /* G */ struct w49 a41645; /* G */ struct w49 a41646; /* G */ struct w49 a41647; /* G */ struct w49 a41648; /* G */ struct w49 a41657; /* G */ struct w49 a41664; /* G */ struct w49 a41676; /* G */ struct w49 a41691; /* G */ struct w49 a41695; /* G */ struct w49 a41704; /* G */ struct w49 a41710; /* G */ struct w49 a41711; /* G */ struct w49 a41730; /* G */ struct w49 a41731; /* G */ struct w49 a41732; /* G */ struct w49 a41733; /* G */ struct w49 a41734; /* G */ struct w49 a41743; /* G */ struct w49 a42453; /* S */ struct w49 a42499; /* S */ struct w49 a42504; /* S */ struct w49 a42507; /* S */ struct w49 a42512; /* S */ struct w49 a42517; /* S */ struct w49 a42521; /* S */ struct w49 t85484; struct w49 t85485; struct w227671 t85486; struct w49 t85487; struct w49 t85488; struct w49 t85489; struct w49 t85490; int t85491; int t85492; int t85493; struct structure_type24753 *t85494; struct w49 t85495; struct w49 t85496; struct w49 t85497; int t85498; int t85499; int t85500; struct structure_type24753 *t85501; struct w49 t85502; struct w49 t85503; struct w49 t85504; struct w49 t85505; struct w49 t85506; struct w49 t85507; struct w49 t85508; struct w49 t85509; struct w49 t85510; int t85511; int t85512; int t85513; struct structure_type24753 *t85514; struct w49 t85515; struct w49 t85516; struct w49 t85517; int t85518; int t85519; int t85520; struct structure_type24753 *t85521; struct w49 t85522; struct w49 t85523; struct w49 t85524; int t85525; int t85526; int t85527; struct structure_type24753 *t85528; struct w49 t85529; struct w49 t85530; struct w49 t85531; struct w49 t85532; struct w49 t85533; struct w49 t85534; struct w49 t85535; struct w49 t85536; struct w49 t85537; struct w49 t85538; struct w49 t85539; struct w49 t85540; struct w49 t85541; struct w49 t85542; struct w49 t85543; struct w49 t85544; struct w49 t85545; struct w49 t85546; struct w49 t85547; struct w49 t85548; struct w49 t85549; struct w49 t85550; struct w49 t85551; struct w49 t85552; struct w49 t85553; struct w49 t85554; struct w49 t85555; struct w49 t85556; struct w49 t85557; struct w49 t85558; struct w49 t85559; struct w49 t85560; struct w49 t85561; struct w49 t85562; struct w49 t85563; struct w49 t85564; struct w49 t85565; struct w49 t85566; struct w49 t85567; struct w49 t85568; char *t85569; char *t85570; char *t85571; struct w49 t85572; struct w49 t85573; char *t85574; char *t85575; struct w49 t85576; struct w49 t85577; char *t85578; char *t85579; struct w49 t85580; struct w49 t85581; char *t85582; char *t85583; struct w49 t85584; struct w49 t85585; char *t85586; char *t85587; struct w49 t85588; struct w49 t85589; char *t85590; struct w49 t85591; struct w49 t85592; struct w49 t85593; struct w49 t85594; struct w49 t85595; char *t85596; struct w6315 t85597; char *t85598; struct w6315 t85599; struct w49 t85600; struct structure_type24753 *t85601; struct w228345 t85602; struct w49 t85603; struct structure_type24753 *t85604; struct w49 t85605; struct w49 t85606; struct w49 t85607; struct w49 t85608; struct w49 t85609; struct w49 t85610; struct w49 t85611; struct w49 t85612; struct w49 t85613; struct w49 t85614; struct w49 t85615; struct w49 t85616; struct w49 t85617; struct w49 t85618; struct w49 t85619; struct w49 t85620; struct w49 t85621; struct w49 t85622; struct w49 t85623; struct w49 t85624; struct w49 t85625; struct w49 t85626; struct w49 t85627; struct w49 t85628; struct w49 t85629; struct w49 t85630; struct w49 t85631; struct w49 t85632; struct w49 t85633; struct w6194 t85634; struct w49 t85635; struct p12651 *t85636; struct w12224 t85637; struct w228345 t85638; struct w49 t85639; struct structure_type24753 *t85640; struct w49 t85641; struct w49 t85642; struct w49 t85643; struct w49 t85644; struct w49 t85645; struct w49 t85646; struct w49 t85647; struct w49 t85648; struct w49 t85649; struct w49 t85650; struct w49 t85651; struct w49 t85652; struct w49 t85653; struct w49 t85654; struct w49 t85655; struct w49 t85656; char *t85657; char *t85658; struct w49 t85659; struct w49 t85660; struct w49 t85661; struct w49 t85662; char *t85663; char *t85664; struct w49 t85665; struct w49 t85666; struct w49 t85667; struct w49 t85668; struct w49 t85669; struct w49 t85670; struct w49 t85671; struct w49 t85672; struct w49 t85673; struct w49 t85674; char *t85675; char *t85676; struct w49 t85677; struct w49 t85678; struct w49 t85679; struct w49 t85680; struct w49 t85681; struct w49 t85682; struct w49 t85683; struct w49 t85684; struct w49 t85685; struct w49 t85686; struct w49 t85687; struct w49 t85688; struct w49 t85689; struct w49 t85690; struct w49 t85691; struct w49 t85692; struct structure_type24753 *t85693; struct w49 t85694; struct w49 t85695; struct w49 t85696; struct w49 t85697; struct w49 t85698; struct w49 t85699; struct w49 t85700; struct w49 t85701; struct w49 t85702; struct w49 t85703; struct w49 t85704; struct w49 t85705; struct w49 t85706; struct w49 t85707; struct w49 t85708; struct w49 t85709; struct w49 t85710; struct w49 t85711; struct w49 t85712; struct w49 t85713; struct w49 t85714; struct w49 t85715; struct w49 t85716; struct w49 t85717; struct w49 t85718; struct w49 t85719; struct w49 t85720; struct w49 t85721; struct w49 t85722; struct w49 t85723; struct w49 t85724; struct w49 t85725; struct w49 t85726; struct w49 t85727; struct w49 t85728; struct p10391 *t85729; struct w21193 t85730; struct w228345 t85731; struct w49 t85732; struct structure_type24753 *t85733; char *t85734; char *t85735; struct w49 t85736; struct w49 t85737; char *t85738; char *t85739; struct w49 t85740; struct w49 t85741; struct w49 t85742; struct w49 t85743; struct w49 t85744; struct w9296 t85745; struct w49 t85746; struct w49 t85747; struct w49 t85748; struct p10307 *t85749; struct w21193 t85750; struct w228118 t85751; struct w227393 t85752; struct w49 t85753; struct w49 t85754; char *t85755; struct w49 t85756; struct w49 t85757; struct structure_type24753 *t85758; struct w228345 t85759; struct w49 t85760; struct structure_type24753 *t85761; struct w49 t85762; struct w6852 t85763; struct w49 t85764; struct w49 t85765; struct w49 t85766; struct w49 t85767; struct w49 t85768; struct p12479 *t85769; struct w49 t85770; struct w211257 t85771; struct w49 t85772; struct w49 t85773; struct w49 t85774; struct w49 t85775; struct w49 t85776; struct p12477 *t85777; struct w49 t85778; struct w211257 t85779; struct w49 t85780; struct w49 t85781; struct w49 t85782; struct w49 t85783; struct w49 t85784; struct w49 t85785; struct w49 t85786; struct w49 t85787; int t85788; int t85789; int t85790; struct w49 t85791; struct w49 t85792; struct structure_type24753 *t85793; struct w49 t85794; struct w49 t85795; struct w49 t85796; struct w49 t85797; struct w49 t85798; struct w49 t85799; struct w49 t85800; int t85801; struct p1076 *t85802; struct w36270 t85803; struct w49 t85804; struct structure_type24753 *t85805; int t85806; int t85807; int t85808; struct w49 t85809; struct w49 t85810; struct w49 t85811; struct w49 t85812; struct w49 t85813; struct w49 t85814; struct w49 t85815; struct w49 t85816; struct w49 t85817; struct w49 t85818; struct w49 t85819; struct w49 t85820; struct w49 t85821; struct w49 t85822; struct w49 t85823; struct w49 t85824; struct w49 t85825; struct w49 t85826; struct w49 t85827; struct w49 t85828; struct w49 t85829; struct w49 t85830; struct w49 t85831; struct w49 t85832; struct w49 t85833; struct w49 t85834; struct w49 t85835; struct w49 t85836; struct w49 t85837; struct w49 t85838; struct w49 t85839; struct w49 t85840; struct w49 t85841; struct w49 t85842; struct w49 t85843; struct w49 t85844; struct w49 t85845; struct w49 t85846; struct w49 t85847; struct w49 t85848; struct w49 t85849; struct w49 t85850; struct w49 t85851; struct w49 t85852; struct w49 t85853; struct w49 t85854; struct w49 t85855; struct w49 t85856; struct w49 t85857; struct w49 t85858; struct w49 t85859; struct w49 t85860; unsigned t85861; struct w49 t85862; struct w49 t85863; struct w49 t85864; struct w49 t85865; struct w49 t85866; struct w49 t85867; struct w49 t85868; struct w49 t85869; struct w49 t85870; struct w49 t85871; struct w49 t85872; struct w49 t85873; struct w49 t85874; struct w49 t85875; struct w49 t85876; struct w49 t85877; struct w49 t85878; struct w49 t85879; struct w49 t85880; struct w49 t85881; struct w49 t85882; struct w49 t85883; struct w49 t85884; struct w49 t85885; struct w49 t85886; struct w49 t85887; struct w49 t85888; struct p7717 *t85889; struct w49 t85890; struct w49 t85891; struct w49 t85892; struct w49 t85893; struct w49 t85894; struct w49 t85895; struct w49 t85896; struct w49 t85897; struct structure_type27745 *t85898; struct structure_type27745 *t85899; struct w49 t85900; struct w49 t85901; struct w49 t85902; struct w49 t85903; struct w49 t85904; struct w49 t85905; struct w49 t85906; struct w49 t85907; struct w49 t85908; struct w49 t85909; struct p15197 *t85910; struct structure_type24753 *t85911; struct w228118 t85912; struct w227393 t85913; struct w49 t85914; struct w49 t85915; struct w49 t85916; struct w49 t85917; struct w49 t85918; struct w49 t85919; struct w49 t85920; struct w49 t85921; struct w49 t85922; struct w49 t85923; struct structure_type27745 *t85924; struct structure_type27745 *t85925; struct w49 t85926; struct w49 t85927; struct w49 t85928; struct w49 t85929; struct w49 t85930; struct w49 t85931; struct structure_type27745 *t85932; struct structure_type27745 *t85933; struct w49 t85934; struct w49 t85935; struct w49 t85936; struct w49 t85937; struct w49 t85938; struct w49 t85939; struct w49 t85940; struct w49 t85941; struct structure_type27745 *t85942; struct structure_type27745 *t85943; struct p7717 *t85944; struct w49 t85945; struct w49 t85946; struct w49 t85947; struct w49 t85948; struct w49 t85949; struct w49 t85950; struct w49 t85951; struct w49 t85952; struct structure_type27745 *t85953; struct structure_type27745 *t85954; struct w49 t85955; struct w49 t85956; struct w49 t85957; struct w49 t85958; struct w49 t85959; struct w49 t85960; struct structure_type27745 *t85961; struct structure_type27745 *t85962; struct w49 t85963; struct w49 t85964; struct w49 t85965; struct w49 t85966; struct w49 t85967; struct w49 t85968; struct structure_type27745 *t85969; struct structure_type27745 *t85970; struct w49 t85971; struct w49 t85972; struct w49 t85973; struct w49 t85974; struct w49 t85975; struct w49 t85976; struct w49 t85977; struct w49 t85978; struct w49 t85979; struct w49 t85980; struct w49 t85981; struct w49 t85982; struct w49 t85983; struct w49 t85984; struct w49 t85985; struct w49 t85986; struct w49 t85987; struct w49 t85988; struct w49 t85989; struct w49 t85990; unsigned t85991; struct w49 t85992; struct w49 t85993; struct w49 t85994; struct w49 t85995; struct w49 t85996; struct w49 t85997; struct w49 t85998; struct p9656 *t85999; struct w49 t86000; struct w211257 t86001; struct w49 t86002; struct w49 t86003; struct w49 t86004; struct w49 t86005; struct w49 t86006; struct w49 t86007; struct w49 t86008; unsigned t86009; struct w49 t86010; struct w49 t86011; struct w49 t86012; struct w49 t86013; struct w49 t86014; struct w49 t86015; struct w49 t86016; struct w49 t86017; struct w49 t86018; struct w49 t86019; unsigned t86020; struct w49 t86021; struct w49 t86022; struct w49 t86023; struct w49 t86024; struct w49 t86025; struct w49 t86026; struct w49 t86027; struct w49 t86028; struct w49 t86029; struct w49 t86030; unsigned t86031; struct w49 t86032; struct w49 t86033; struct w49 t86034; struct w49 t86035; struct w49 t86036; struct w49 t86037; struct w49 t86038; struct w49 t86039; struct w49 t86040; struct w49 t86041; unsigned t86042; struct w49 t86043; struct w49 t86044; struct w49 t86045; struct w49 t86046; struct w49 t86047; struct w49 t86048; struct w49 t86049; struct w49 t86050; struct w49 t86051; struct w49 t86052; unsigned t86053; struct w49 t86054; struct w49 t86055; struct w49 t86056; struct w49 t86057; struct w49 t86058; struct w49 t86059; struct w49 t86060; struct w49 t86061; struct w49 t86062; struct w49 t86063; unsigned t86064; struct w49 t86065; struct w49 t86066; struct w49 t86067; struct w49 t86068; struct w49 t86069; struct w49 t86070; struct w49 t86071; struct w49 t86072; struct w49 t86073; struct w49 t86074; struct w49 t86075; struct w49 t86076; struct w49 t86077; struct w49 t86078; struct w49 t86079; struct w49 t86080; struct w49 t86081; struct w16638 t86082; struct w16638 t86083; struct w49 t86084; struct structure_type24753 *t86085; struct w16638 t86086; struct w16638 t86087; struct w49 t86088; struct structure_type24753 *t86089; struct w16638 t86090; struct w16638 t86091; struct w49 t86092; struct structure_type24753 *t86093; struct w16638 t86094; struct w16638 t86095; struct structure_type24753 *t86096; struct w49 t86097; struct p1076 *e1076; struct p9656 *e9656; struct p10307 *e10307; struct p10391 *e10391; struct p12477 *e12477; struct p12479 *e12479; struct p12651 *e12651; struct p15197 *e15197; struct p1076 *p1077; struct p8667 *p8677; struct p8667 *p8678; struct p8776 *p8777; struct p8776 *p8778; struct p9612 *p9641; struct p9612 *p9644; struct p9612 *p9647; struct p9612 *p9650; struct p9612 *p9652; struct p9612 *p9655; struct p9612 *p9656; struct p9612 *p9691; struct p10391 *p10392; struct p11499 *p11521; struct p12476 *p12477; struct p15922 *p15966; struct p15922 *p15972; struct p16379 *p16390; struct p16391 *p16401; struct p16646 *p16647; struct p17660 *p17672; struct p17673 *p17694; struct p17706 *p17717; struct p17726 *p17735; struct p17736 *p17746; struct p17869 *p17882; /* x15636 QobiScheme.sc:489:14423 */ /* x15634 QobiScheme.sc:489:14437 */ t85484 = a14888; /* x15635 QobiScheme.sc:489:14443 */ /* x15633 */ /* x15632 */ /* x15631 */ /* x15630 */ /* x15629 */ /* x15628 */ /* x15627 */ /* x15590 */ /* x15589 QobiScheme.sc:489:14428 */ a14891 = t85484; a14892 = (struct structure_type24753 *)NULL_TYPE; h1229: /* x15626 QobiScheme.sc:490:14451 */ /* x15593 QobiScheme.sc:490:14458 */ /* x15592 QobiScheme.sc:490:14465 */ t85485 = a14891; /* x270905 QobiScheme.sc:490:14459 */ if (!((t85485.tag)==NULL_TYPE)) goto l16321; /* x15598 */ /* x15597 */ /* x15596 QobiScheme.sc:490:14468 */ /* x15595 QobiScheme.sc:490:14477 */ t86096 = a14892; /* x15594 QobiScheme.sc:490:14469 */ /* MOVE: branching squeezed to general */ if (t86096>=((struct structure_type24753 *)VALUE_OFFSET)) {t86097.tag = STRUCTURE_TYPE24753; t86097.value.structure_type24753 = t86096;} else t86097.tag = (unsigned)t86096; return f26331(t86097); l16321: /* x15625 */ /* x15603 QobiScheme.sc:491:14483 */ /* x15602 QobiScheme.sc:491:14486 */ /* x15601 QobiScheme.sc:491:14493 */ t86082 = *((struct w16638 *)(&a14891)); /* x15600 QobiScheme.sc:491:14487 */ a36177 = t86082; /* x276065 */ /* x276064 */ t86083 = a36177; /* x276063 */ if (!((t86083.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30326]"); structure_ref_error();} t85487 = t86083.value.structure_type24753->s0; /* x15599 QobiScheme.sc:491:14484 */ t85486 = a14887; switch (t85486.tag) {case NATIVE_PROCEDURE_TYPE5964: f18659(t85487); break; case NATIVE_PROCEDURE_TYPE5967: f18658(t85487); break; case NATIVE_PROCEDURE_TYPE5968: f18650(t85487); break; case NATIVE_PROCEDURE_TYPE5969: f18643(t85487); break; case NATIVE_PROCEDURE_TYPE5970: if ((f18639(t85487).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE5971: f18506(t85487); break; case NATIVE_PROCEDURE_TYPE5972: f18505(t85487); break; case NATIVE_PROCEDURE_TYPE5973: f18504(t85487); break; case NATIVE_PROCEDURE_TYPE5974: f18500(t85487); break; case NATIVE_PROCEDURE_TYPE5975: f18492(t85487); break; case NATIVE_PROCEDURE_TYPE5976: f18486(t85487); break; case NATIVE_PROCEDURE_TYPE5977: f18482(t85487); break; case NATIVE_PROCEDURE_TYPE5978: f18480(t85487); break; case NATIVE_PROCEDURE_TYPE5979: f18475(t85487); break; case NATIVE_PROCEDURE_TYPE5980: f18473(t85487); break; case NATIVE_PROCEDURE_TYPE5981: f18471(t85487); break; case NATIVE_PROCEDURE_TYPE5982: f18469(t85487); break; case NATIVE_PROCEDURE_TYPE5983: f18467(t85487); break; case NATIVE_PROCEDURE_TYPE5984: f18461(t85487); break; case NATIVE_PROCEDURE_TYPE5985: f18455(t85487); break; case NATIVE_PROCEDURE_TYPE5986: f18453(t85487); break; case NATIVE_PROCEDURE_TYPE5987: if ((f18449(t85487).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE5988: f18447(t85487); break; case NATIVE_PROCEDURE_TYPE5989: f18440(t85487); break; case NATIVE_PROCEDURE_TYPE5990: f18436(t85487); break; case NATIVE_PROCEDURE_TYPE5991: f18432(t85487); break; case NATIVE_PROCEDURE_TYPE5992: f18428(t85487); break; case NATIVE_PROCEDURE_TYPE5995: f18342(t85487); break; case NATIVE_PROCEDURE_TYPE5996: f18338(t85487); break; case NATIVE_PROCEDURE_TYPE6001: f18317(t85487); break; case NATIVE_PROCEDURE_TYPE6002: f18316(t85487); break; case NATIVE_PROCEDURE_TYPE6003: if ((f18306(t85487).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE6004: f18302(t85487); break; case NATIVE_PROCEDURE_TYPE6005: f18294(t85487); break; case NATIVE_PROCEDURE_TYPE6006: f18293(t85487); break; case NATIVE_PROCEDURE_TYPE6007: f18285(t85487); break; case NATIVE_PROCEDURE_TYPE6008: f18279(t85487); break; case NATIVE_PROCEDURE_TYPE6009: f18266(t85487); break; case NATIVE_PROCEDURE_TYPE6010: if ((f18261(t85487).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE6011: if ((f18257(t85487).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE6012: f18244(t85487); break; case NATIVE_PROCEDURE_TYPE6013: f18228(t85487); break; case NATIVE_PROCEDURE_TYPE6845: if (f14024(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE6852: if (f13914(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7224: if ((f8899(t85487).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7232: if (f8793(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7238: if ((f8773(t85487).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7287: if (f8526(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7309: if (f8471(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7314: a41648 = t85487; /* x300704 stalin.sc:3965:133896 */ /* x300703 stalin.sc:3965:133915 */ t85488 = a41648; /* x300702 stalin.sc:3965:133897 */ if (f8219(t85488)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7320: a41691 = t85487; /* x300876 stalin.sc:3916:132554 */ /* x300875 stalin.sc:3916:132572 */ t85489 = a41691; /* x300874 stalin.sc:3916:132555 */ if (f8209(t85489)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7323: a41734 = t85487; /* x301048 stalin.sc:3890:131852 */ /* x301047 stalin.sc:3890:131869 */ t85490 = a41734; /* x301046 stalin.sc:3890:131853 */ if (f8204(t85490)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7334: if ((f8224(t85487).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7346: if (f8194(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7358: if (f8148(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7370: if (f8117(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7374: a21767 = t85487; while (region8107!=((struct region8107 *)(&initial_region8107))) {struct region8107 *region; region = region8107; region8107 = region8107->region; GC_free(region);} region_size8107 = REGION_SIZE8107; fp8107 = &((region8107->data)[0]); ALIGN(fp8107); /* x69395 stalin.sc:3256:111515 */ /* x69394 stalin.sc:3256:111520 */ /* x69393 stalin.sc:3256:111527 */ /* x69392 stalin.sc:3256:111558 */ t85493 = 32; /* x69391 stalin.sc:3256:111536 */ /* x69390 stalin.sc:3256:111555 */ t85496 = a21767; /* x69389 stalin.sc:3256:111537 */ a37029 = t85496; /* x280785 */ /* x280784 */ t85497 = a37029; /* x280783 */ if (!((t85497.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-BOOLEANS[6507] 31946]"); structure_ref_error();} t85492 = t85497.value.structure_type27650->s5; /* x69388 stalin.sc:3256:111528 */ if ((fp8107+sizeof(struct structure_type24753))>(&((region8107->data)[region_size8107]))) {struct region8107 *region; unsigned region_size = REGION_SIZE8107; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8107 *)GC_malloc_uncollectable(sizeof(struct region8107)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 3256, 111527); out_of_memory_error();} region->region = region8107; region_size8107 = region_size; region8107 = region; fp8107 = &((region->data)[0]); ALIGN(fp8107);} t85495.tag = STRUCTURE_TYPE24753; t85495.value.structure_type24753 = (struct structure_type24753 *)fp8107; fp8107 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t85495.value.structure_type24753->s0.tag = FIXNUM_TYPE; t85495.value.structure_type24753->s0.value.fixnum_type = t85493; t85495.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8107+sizeof(struct structure_type24753))>(&((region8107->data)[region_size8107]))) {struct region8107 *region; unsigned region_size = REGION_SIZE8107; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8107 *)GC_malloc_uncollectable(sizeof(struct region8107)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 3256, 111527); out_of_memory_error();} region->region = region8107; region_size8107 = region_size; region8107 = region; fp8107 = &((region->data)[0]); ALIGN(fp8107);} t85494 = (struct structure_type24753 *)fp8107; fp8107 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t85494->s0.tag = FIXNUM_TYPE; t85494->s0.value.fixnum_type = t85492; t85494->s1 = t85495; t85491 = f27305(t85494); /* x270387 stalin.sc:3256:111521 */ if (t85491==0) goto l16323; break; case NATIVE_PROCEDURE_TYPE7376: a21763 = t85487; while (region8102!=((struct region8102 *)(&initial_region8102))) {struct region8102 *region; region = region8102; region8102 = region8102->region; GC_free(region);} region_size8102 = REGION_SIZE8102; fp8102 = &((region8102->data)[0]); ALIGN(fp8102); /* x69350 stalin.sc:3245:111229 */ /* x69349 stalin.sc:3245:111234 */ /* x69348 stalin.sc:3245:111241 */ /* x69347 stalin.sc:3245:111272 */ t85500 = 64; /* x69346 stalin.sc:3245:111250 */ /* x69345 stalin.sc:3245:111269 */ t85503 = a21763; /* x69344 stalin.sc:3245:111251 */ a20335 = t85503; /* x54696 */ /* x54695 */ t85504 = a20335; /* x54694 */ if (!((t85504.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("TYPE-SET-BOOLEANS[6507]"); structure_ref_error();} t85499 = t85504.value.structure_type27650->s5; /* x69343 stalin.sc:3245:111242 */ if ((fp8102+sizeof(struct structure_type24753))>(&((region8102->data)[region_size8102]))) {struct region8102 *region; unsigned region_size = REGION_SIZE8102; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8102 *)GC_malloc_uncollectable(sizeof(struct region8102)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 3245, 111241); out_of_memory_error();} region->region = region8102; region_size8102 = region_size; region8102 = region; fp8102 = &((region->data)[0]); ALIGN(fp8102);} t85502.tag = STRUCTURE_TYPE24753; t85502.value.structure_type24753 = (struct structure_type24753 *)fp8102; fp8102 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t85502.value.structure_type24753->s0.tag = FIXNUM_TYPE; t85502.value.structure_type24753->s0.value.fixnum_type = t85500; t85502.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp8102+sizeof(struct structure_type24753))>(&((region8102->data)[region_size8102]))) {struct region8102 *region; unsigned region_size = REGION_SIZE8102; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region8102 *)GC_malloc_uncollectable(sizeof(struct region8102)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 3245, 111241); out_of_memory_error();} region->region = region8102; region_size8102 = region_size; region8102 = region; fp8102 = &((region->data)[0]); ALIGN(fp8102);} t85501 = (struct structure_type24753 *)fp8102; fp8102 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t85501->s0.tag = FIXNUM_TYPE; t85501->s0.value.fixnum_type = t85499; t85501->s1 = t85502; t85498 = f27305(t85501); /* x270390 stalin.sc:3245:111235 */ if (t85498==0) goto l16323; break; case NATIVE_PROCEDURE_TYPE7400: if (f7849(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7404: if (f7755(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7406: if (f7741(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7407: a21539 = t85487; /* x65345 stalin.sc:2375:78022 */ /* x65337 stalin.sc:2375:78027 */ /* x65336 stalin.sc:2375:78051 */ t85505 = a21539; /* x65335 stalin.sc:2375:78028 */ a37422 = t85505; /* x282357 */ /* x282356 */ t85506 = a37422; /* x282355 */ if (!((t85506.tag)==STRUCTURE_TYPE27669)) goto l16323; /* x65343 */ /* x65339 stalin.sc:2376:78066 */ /* x65342 stalin.sc:2376:78069 */ /* x65341 stalin.sc:2376:78115 */ t85509 = a21539; /* x65340 stalin.sc:2376:78070 */ a20085 = t85509; /* x53755 */ /* x53754 */ t85510 = a20085; /* x53753 */ if (!((t85510.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("NONHEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS[6317]"); structure_ref_error();} t85507 = t85510.value.structure_type27669->s1; /* x65338 stalin.sc:2376:78061 */ t85508.tag = FALSE_TYPE; if ((f26351(t85508, t85507).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7410: if ((f7735(t85487).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7413: if (f7719(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7415: if (f7712(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7418: if (f7706(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7420: if (f7703(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7421: if (f7702(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7422: if (f7701(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7423: if (f7700(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7426: if (f7688(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7427: if (f7687(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7429: if (f7684(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7430: if (f7683(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7431: if (f7682(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7432: if (f7680(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7433: if (f7679(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7434: if (f7678(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7435: if (f7677(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7448: if (f7594(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7450: if (f7589(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7456: if (f7574(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7465: if (f7544(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7467: if (f7539(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7473: if (f7524(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7482: if (f7494(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7484: if (f7489(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7486: if (f7484(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7494: if (f7464(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7500: if (f7444(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7502: if (f7439(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7504: if (f7434(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7510: if (f7419(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7522: if (f7379(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7544: if (f7314(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7548: a21212 = t85487; while (region7299!=((struct region7299 *)(&initial_region7299))) {struct region7299 *region; region = region7299; region7299 = region7299->region; GC_free(region);} region_size7299 = REGION_SIZE7299; fp7299 = &((region7299->data)[0]); ALIGN(fp7299); /* x61522 stalin.sc:1467:48828 */ /* x61521 stalin.sc:1467:48833 */ /* x61520 stalin.sc:1467:48840 */ /* x61519 stalin.sc:1467:48884 */ t85513 = 128; /* x61518 stalin.sc:1467:48849 */ /* x61517 stalin.sc:1467:48881 */ t85516 = a21212; /* x61516 stalin.sc:1467:48850 */ a37986 = t85516; /* x284613 */ /* x284612 */ t85517 = a37986; /* x284611 */ if (!((t85517.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32903]"); structure_ref_error();} t85512 = t85517.value.structure_type27756->s5; /* x61515 stalin.sc:1467:48841 */ if ((fp7299+sizeof(struct structure_type24753))>(&((region7299->data)[region_size7299]))) {struct region7299 *region; unsigned region_size = REGION_SIZE7299; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7299 *)GC_malloc_uncollectable(sizeof(struct region7299)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1467, 48840); out_of_memory_error();} region->region = region7299; region_size7299 = region_size; region7299 = region; fp7299 = &((region->data)[0]); ALIGN(fp7299);} t85515.tag = STRUCTURE_TYPE24753; t85515.value.structure_type24753 = (struct structure_type24753 *)fp7299; fp7299 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t85515.value.structure_type24753->s0.tag = FIXNUM_TYPE; t85515.value.structure_type24753->s0.value.fixnum_type = t85513; t85515.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7299+sizeof(struct structure_type24753))>(&((region7299->data)[region_size7299]))) {struct region7299 *region; unsigned region_size = REGION_SIZE7299; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7299 *)GC_malloc_uncollectable(sizeof(struct region7299)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1467, 48840); out_of_memory_error();} region->region = region7299; region_size7299 = region_size; region7299 = region; fp7299 = &((region->data)[0]); ALIGN(fp7299);} t85514 = (struct structure_type24753 *)fp7299; fp7299 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t85514->s0.tag = FIXNUM_TYPE; t85514->s0.value.fixnum_type = t85512; t85514->s1 = t85515; t85511 = f27305(t85514); /* x270628 stalin.sc:1467:48834 */ if (t85511==0) goto l16323; break; case NATIVE_PROCEDURE_TYPE7550: a21208 = t85487; while (region7294!=((struct region7294 *)(&initial_region7294))) {struct region7294 *region; region = region7294; region7294 = region7294->region; GC_free(region);} region_size7294 = REGION_SIZE7294; fp7294 = &((region7294->data)[0]); ALIGN(fp7294); /* x61477 stalin.sc:1456:48460 */ /* x61476 stalin.sc:1456:48465 */ /* x61475 stalin.sc:1456:48472 */ /* x61474 stalin.sc:1456:48516 */ t85520 = 256; /* x61473 stalin.sc:1456:48481 */ /* x61472 stalin.sc:1456:48513 */ t85523 = a21208; /* x61471 stalin.sc:1456:48482 */ a37985 = t85523; /* x284609 */ /* x284608 */ t85524 = a37985; /* x284607 */ if (!((t85524.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32902]"); structure_ref_error();} t85519 = t85524.value.structure_type27756->s5; /* x61470 stalin.sc:1456:48473 */ if ((fp7294+sizeof(struct structure_type24753))>(&((region7294->data)[region_size7294]))) {struct region7294 *region; unsigned region_size = REGION_SIZE7294; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7294 *)GC_malloc_uncollectable(sizeof(struct region7294)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1456, 48472); out_of_memory_error();} region->region = region7294; region_size7294 = region_size; region7294 = region; fp7294 = &((region->data)[0]); ALIGN(fp7294);} t85522.tag = STRUCTURE_TYPE24753; t85522.value.structure_type24753 = (struct structure_type24753 *)fp7294; fp7294 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t85522.value.structure_type24753->s0.tag = FIXNUM_TYPE; t85522.value.structure_type24753->s0.value.fixnum_type = t85520; t85522.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7294+sizeof(struct structure_type24753))>(&((region7294->data)[region_size7294]))) {struct region7294 *region; unsigned region_size = REGION_SIZE7294; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7294 *)GC_malloc_uncollectable(sizeof(struct region7294)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1456, 48472); out_of_memory_error();} region->region = region7294; region_size7294 = region_size; region7294 = region; fp7294 = &((region->data)[0]); ALIGN(fp7294);} t85521 = (struct structure_type24753 *)fp7294; fp7294 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t85521->s0.tag = FIXNUM_TYPE; t85521->s0.value.fixnum_type = t85519; t85521->s1 = t85522; t85518 = f27305(t85521); /* x270631 stalin.sc:1456:48466 */ if (t85518==0) goto l16323; break; case NATIVE_PROCEDURE_TYPE7552: a21204 = t85487; while (region7289!=((struct region7289 *)(&initial_region7289))) {struct region7289 *region; region = region7289; region7289 = region7289->region; GC_free(region);} region_size7289 = REGION_SIZE7289; fp7289 = &((region7289->data)[0]); ALIGN(fp7289); /* x61432 stalin.sc:1445:48087 */ /* x61431 stalin.sc:1445:48092 */ /* x61430 stalin.sc:1445:48099 */ /* x61429 stalin.sc:1445:48143 */ t85527 = 512; /* x61428 stalin.sc:1445:48108 */ /* x61427 stalin.sc:1445:48140 */ t85530 = a21204; /* x61426 stalin.sc:1445:48109 */ a37984 = t85530; /* x284605 */ /* x284604 */ t85531 = a37984; /* x284603 */ if (!((t85531.tag)==STRUCTURE_TYPE27756)) {backtrace_internal("[clone NATIVE-PROCEDURE-TYPE-BOOLEANS[5985] 32901]"); structure_ref_error();} t85526 = t85531.value.structure_type27756->s5; /* x61425 stalin.sc:1445:48100 */ if ((fp7289+sizeof(struct structure_type24753))>(&((region7289->data)[region_size7289]))) {struct region7289 *region; unsigned region_size = REGION_SIZE7289; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7289 *)GC_malloc_uncollectable(sizeof(struct region7289)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1445, 48099); out_of_memory_error();} region->region = region7289; region_size7289 = region_size; region7289 = region; fp7289 = &((region->data)[0]); ALIGN(fp7289);} t85529.tag = STRUCTURE_TYPE24753; t85529.value.structure_type24753 = (struct structure_type24753 *)fp7289; fp7289 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t85529.value.structure_type24753->s0.tag = FIXNUM_TYPE; t85529.value.structure_type24753->s0.value.fixnum_type = t85527; t85529.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp7289+sizeof(struct structure_type24753))>(&((region7289->data)[region_size7289]))) {struct region7289 *region; unsigned region_size = REGION_SIZE7289; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region7289 *)GC_malloc_uncollectable(sizeof(struct region7289)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 1445, 48099); out_of_memory_error();} region->region = region7289; region_size7289 = region_size; region7289 = region; fp7289 = &((region->data)[0]); ALIGN(fp7289);} t85528 = (struct structure_type24753 *)fp7289; fp7289 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t85528->s0.tag = FIXNUM_TYPE; t85528->s0.value.fixnum_type = t85526; t85528->s1 = t85529; t85525 = f27305(t85528); /* x270634 stalin.sc:1445:48093 */ if (t85525==0) goto l16323; break; case NATIVE_PROCEDURE_TYPE7614: if (f6961(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7624: if (f6936(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7718: a37009 = t85487; /* x280705 */ /* x280704 */ t85532 = a37009; /* x280703 */ if (!((t85532.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-PATHNAME[6533] 31926]"); structure_ref_error();} if ((t85532.value.structure_type27692->s2.tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE7773: a37443 = t85487; /* x282441 */ /* x282440 */ t85533 = a37443; /* x282439 */ if (!((t85533.tag)==STRUCTURE_TYPE27669)) goto l16323; break; case NATIVE_PROCEDURE_TYPE7790: a37559 = t85487; /* x282905 */ /* x282904 */ t85534 = a37559; /* x282903 */ if (!((t85534.tag)==STRUCTURE_TYPE27761)) goto l16323; break; case NATIVE_PROCEDURE_TYPE7807: a37679 = t85487; /* x283385 */ /* x283384 */ t85535 = a37679; /* x283383 */ if (!((t85535.tag)==STRUCTURE_TYPE27769)) goto l16323; break; case NATIVE_PROCEDURE_TYPE7822: a37770 = t85487; /* x283749 */ /* x283748 */ t85536 = a37770; /* x283747 */ if (!((t85536.tag)==STRUCTURE_TYPE27673)) goto l16323; break; case NATIVE_PROCEDURE_TYPE7954: a40213 = t85487; /* x293521 */ /* x293520 */ t85537 = a40213; /* x293519 */ if (!((t85537.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PATHNAME[5511] 35130]"); structure_ref_error();} if ((t85537.value.structure_type27698->s3.tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE14107: /* x12 stalin.sc:32903:1140843 */ goto l16323; break; case NATIVE_PROCEDURE_TYPE15241: p8777 = t85486.value.native_procedure_type15241; a22233 = t85487; /* x74972 stalin.sc:4543:152674 */ /* x74944 stalin.sc:4543:152679 */ /* x74942 stalin.sc:4543:152696 */ t85538 = p8777->a22232; /* x74943 stalin.sc:4543:152698 */ t85539 = a22233; /* x74941 stalin.sc:4543:152680 */ if (f8790(t85538, t85539)==FALSE_TYPE) goto l16323; /* x74970 */ /* x74962 stalin.sc:4544:152702 */ /* x74961 stalin.sc:4544:152706 */ /* x74960 stalin.sc:4544:152711 */ /* x74959 stalin.sc:4544:152730 */ t85540 = a22233; /* x74958 stalin.sc:4544:152712 */ if (f8585(t85540)==FALSE_TYPE) goto l16326; p8778 = p8777; /* x74954 */ /* x74953 stalin.sc:4545:152744 */ /* x74949 stalin.sc:4545:152761 */ t85541 = p8778->a22232; /* x74952 stalin.sc:4545:152763 */ /* x74951 stalin.sc:4545:152781 */ t85543 = a22233; /* x74950 stalin.sc:4545:152764 */ t85542 = f8659(t85543); /* x74948 stalin.sc:4545:152745 */ if (!(f8788(t85541, t85542)==FALSE_TYPE)) goto l16323; l16326: /* x74968 */ /* x74967 stalin.sc:4546:152793 */ /* x74965 stalin.sc:4546:152820 */ t85544 = p8777->a22232; /* x74966 stalin.sc:4546:152822 */ t85545 = a22233; /* x74964 stalin.sc:4546:152794 */ if (!(f8791(t85544, t85545)==FALSE_TYPE)) goto l16323; break; case NATIVE_PROCEDURE_TYPE15250: a33307 = t85487; /* x228597 stalin.sc:32241:1113620 */ /* x228557 stalin.sc:32242:1113627 */ /* x228556 stalin.sc:32242:1113676 */ t85546 = a33307; /* x228555 stalin.sc:32242:1113628 */ if ((f8773(t85546).tag)==FALSE_TYPE) goto l16323; /* x228595 */ /* x228594 stalin.sc:32243:1113692 */ /* x228593 stalin.sc:32243:1113716 */ /* x228592 stalin.sc:32243:1113738 */ t85556 = a33307; /* x228591 stalin.sc:32243:1113717 */ a36475 = t85556; /* x278569 */ /* x278568 */ t85557 = a36475; /* x278567 */ if (!((t85557.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31392]"); structure_ref_error();} t85554 = t85557.value.structure_type27745->s0; /* x228590 stalin.sc:32243:1113693 */ a40095 = t85554; /* x293049 */ /* x293048 */ t85555 = a40095; /* x293047 */ if (!((t85555.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35012]"); structure_ref_error();} t85547 = t85555.value.structure_type27698->s9; /* x228589 */ a33308 = t85547; /* x228588 */ /* x228587 stalin.sc:32244:1113756 */ /* x228586 stalin.sc:32244:1113762 */ t85553 = a33308; /* x228585 stalin.sc:32244:1113757 */ t85548 = f8692(t85553); /* x228584 */ a33309 = t85548; /* x228583 */ /* x228582 */ /* x228581 stalin.sc:32255:1114384 */ /* x228580 stalin.sc:32255:1114388 */ /* x228575 stalin.sc:32255:1114393 */ /* x228574 stalin.sc:32255:1114406 */ t85549 = a33308; /* x228573 stalin.sc:32255:1114394 */ if (f8528(t85549)==FALSE_TYPE) goto l16329; /* x228578 */ /* x228577 stalin.sc:32255:1114422 */ t85550 = a33308; /* x228576 stalin.sc:32255:1114411 */ if (!(f8543(t85550)==FALSE_TYPE)) goto l16322; l16329: /* x228570 */ /* x228569 stalin.sc:32256:1114434 */ /* x228568 stalin.sc:32256:1114447 */ t85551 = a33309; /* x228567 stalin.sc:32256:1114435 */ if (!((f8593(t85551).tag)==FALSE_TYPE)) goto l16322; /* x228564 */ /* x228563 stalin.sc:32257:1114471 */ t85552 = a33309; /* x228562 stalin.sc:32257:1114459 */ if ((f8608(t85552).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE15263: a33290 = t85487; /* x228368 stalin.sc:32111:1109301 */ /* x228367 stalin.sc:32111:1109305 */ /* x228366 stalin.sc:32111:1109313 */ t85558 = a33290; /* x228365 stalin.sc:32111:1109306 */ a41743 = t85558; /* x301084 stalin.sc:3890:131852 */ /* x301083 stalin.sc:3890:131869 */ t85559 = a41743; /* x301082 stalin.sc:3890:131853 */ if (!(f8204(t85559)==FALSE_TYPE)) goto l16322; /* x228362 */ /* x228361 stalin.sc:32111:1109316 */ /* x228360 stalin.sc:32111:1109325 */ t85560 = a33290; /* x228359 stalin.sc:32111:1109317 */ a41704 = t85560; /* x300928 stalin.sc:3916:132554 */ /* x300927 stalin.sc:3916:132572 */ t85561 = a41704; /* x300926 stalin.sc:3916:132555 */ if (!(f8209(t85561)==FALSE_TYPE)) goto l16322; /* x228356 */ /* x228355 stalin.sc:32111:1109328 */ /* x228354 stalin.sc:32111:1109337 */ t85562 = a33290; /* x228353 stalin.sc:32111:1109329 */ a41676 = t85562; /* x300816 stalin.sc:3942:133266 */ /* x300815 stalin.sc:3942:133284 */ t85563 = a41676; /* x300814 stalin.sc:3942:133267 */ if (!(f8214(t85563)==FALSE_TYPE)) goto l16322; /* x228350 */ /* x228349 stalin.sc:32111:1109350 */ t85564 = a33290; /* x228348 stalin.sc:32111:1109341 */ a41657 = t85564; /* x300740 stalin.sc:3965:133896 */ /* x300739 stalin.sc:3965:133915 */ t85565 = a41657; /* x300738 stalin.sc:3965:133897 */ if (f8219(t85565)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE15280: a33254 = t85487; /* x228015 stalin.sc:32154:1110513 */ /* x227869 stalin.sc:32155:1110524 */ /* x227868 stalin.sc:32155:1110543 */ t85566 = a33254; /* x227867 stalin.sc:32155:1110525 */ if (f8585(t85566)==FALSE_TYPE) goto l16323; /* x228013 */ /* x228012 stalin.sc:32156:1110556 */ /* x228011 stalin.sc:32156:1110568 */ t85567 = a33254; /* x228010 stalin.sc:32156:1110557 */ if (!(f8543(t85567)==FALSE_TYPE)) goto l16322; /* x228007 */ /* x228006 stalin.sc:32157:1110574 */ /* x228005 stalin.sc:32157:1110586 */ t85568 = a33254; /* x228004 stalin.sc:32157:1110575 */ if (!(f8944(t85568)==FALSE_TYPE)) goto l16322; /* x228001 */ /* x228000 stalin.sc:32158:1110592 */ /* x227999 stalin.sc:32158:1110598 */ t85569 = a686; /* x227998 */ a33263 = t85569; /* x227997 */ /* x227922 */ /* x227920 */ t85570 = a33263; /* x227921 */ t85571 = q18; /* x227919 */ /* MOVE: branching squeezed to general */ if (t85570>=((char *)VALUE_OFFSET)) {t85572.tag = EXTERNAL_SYMBOL_TYPE; t85572.value.external_symbol_type = t85570;} else t85572.tag = (unsigned)t85570; t85573.tag = EXTERNAL_SYMBOL_TYPE; t85573.value.external_symbol_type = t85571; if (f26160(t85572, t85573)==FALSE_TYPE) goto l16340; /* x227928 */ /* x227927 */ /* x227926 stalin.sc:32160:1110650 */ /* x227924 stalin.sc:32161:1110671 */ /* x227925 stalin.sc:32161:1110674 */ t85598 = "Immediate flat closures are not (yet) implemented"; /* x227923 stalin.sc:32160:1110651 */ t85599.tag = FALSE_TYPE; f9707(t85599, t85598); goto l16341; l16340: /* x227996 */ /* x227932 */ /* x227930 */ t85574 = a33263; /* x227931 */ t85575 = q19; /* x227929 */ /* MOVE: branching squeezed to general */ if (t85574>=((char *)VALUE_OFFSET)) {t85576.tag = EXTERNAL_SYMBOL_TYPE; t85576.value.external_symbol_type = t85574;} else t85576.tag = (unsigned)t85574; t85577.tag = EXTERNAL_SYMBOL_TYPE; t85577.value.external_symbol_type = t85575; if (f26160(t85576, t85577)==FALSE_TYPE) goto l16343; /* x227938 */ /* x227937 */ /* x227936 stalin.sc:32163:1110754 */ /* x227934 stalin.sc:32164:1110775 */ /* x227935 stalin.sc:32164:1110778 */ t85596 = "Indirect flat closures are not (yet) implemented"; /* x227933 stalin.sc:32163:1110755 */ t85597.tag = FALSE_TYPE; f9707(t85597, t85596); goto l16344; l16343: /* x227995 */ /* x227951 */ /* x227950 */ /* x227948 */ t85578 = a33263; /* x227949 */ t85579 = q20; /* x227947 */ /* MOVE: branching squeezed to general */ if (t85578>=((char *)VALUE_OFFSET)) {t85580.tag = EXTERNAL_SYMBOL_TYPE; t85580.value.external_symbol_type = t85578;} else t85580.tag = (unsigned)t85578; t85581.tag = EXTERNAL_SYMBOL_TYPE; t85581.value.external_symbol_type = t85579; if (!(f26160(t85580, t85581)==FALSE_TYPE)) goto l16345; /* x227944 */ /* x227942 */ t85582 = a33263; /* x227943 */ t85583 = q21; /* x227941 */ /* MOVE: branching squeezed to general */ if (t85582>=((char *)VALUE_OFFSET)) {t85584.tag = EXTERNAL_SYMBOL_TYPE; t85584.value.external_symbol_type = t85582;} else t85584.tag = (unsigned)t85582; t85585.tag = EXTERNAL_SYMBOL_TYPE; t85585.value.external_symbol_type = t85583; if (f26160(t85584, t85585)==FALSE_TYPE) goto l16346; l16345: /* x227964 */ /* x227963 */ /* x227962 stalin.sc:32166:1110878 */ /* x227961 stalin.sc:32166:1110882 */ /* x227960 stalin.sc:32166:1110905 */ t85594 = a33254; /* x227959 stalin.sc:32166:1110883 */ if (!((f8897(t85594).tag)==FALSE_TYPE)) goto l16322; /* x227956 */ /* x227955 stalin.sc:32166:1110922 */ t85595 = a33254; /* x227954 stalin.sc:32166:1110909 */ if (!(f8563(t85595)==FALSE_TYPE)) goto l16322; goto l16347; l16346: /* x227994 */ /* x227968 */ /* x227966 */ t85586 = a33263; /* x227967 */ t85587 = q22; /* x227965 */ /* MOVE: branching squeezed to general */ if (t85586>=((char *)VALUE_OFFSET)) {t85588.tag = EXTERNAL_SYMBOL_TYPE; t85588.value.external_symbol_type = t85586;} else t85588.tag = (unsigned)t85586; t85589.tag = EXTERNAL_SYMBOL_TYPE; t85589.value.external_symbol_type = t85587; if (f26160(t85588, t85589)==FALSE_TYPE) goto l16350; /* x227989 */ /* x227988 */ /* x227987 stalin.sc:32168:1110946 */ /* x227986 stalin.sc:32168:1110950 */ /* x227985 stalin.sc:32168:1110973 */ t85591 = a33254; /* x227984 stalin.sc:32168:1110951 */ if (!((f8897(t85591).tag)==FALSE_TYPE)) goto l16322; /* x227981 */ /* x227980 stalin.sc:32169:1110985 */ /* x227979 stalin.sc:32169:1110999 */ t85592 = a33254; /* x227978 stalin.sc:32169:1110986 */ if (!(f8563(t85592)==FALSE_TYPE)) goto l16322; /* x227975 */ /* x227974 stalin.sc:32170:1111029 */ t85593 = a33254; /* x227973 stalin.sc:32170:1111012 */ if (!(f8584(t85593)==FALSE_TYPE)) goto l16322; goto l16351; l16350: /* x227993 */ /* x227992 */ /* x227991 stalin.sc:32171:1111044 */ /* x227990 stalin.sc:32171:1111045 */ /* x296485 QobiScheme.sc:166:5314 */ /* x296484 QobiScheme.sc:166:5321 */ t85590 = "This shouldn\'t happen"; /* x296483 QobiScheme.sc:166:5315 */ stalin_panic(t85590); l16351: l16347: l16344: l16341: /* x227916 */ /* x227915 stalin.sc:32172:1111059 */ /* x227914 stalin.sc:32172:1111072 */ t85600 = a33254; /* x227913 stalin.sc:32172:1111060 */ if (!(f8528(t85600)==FALSE_TYPE)) goto l16322; /* x227910 */ /* x227909 stalin.sc:32175:1111162 */ /* x227908 stalin.sc:32175:1111173 */ t85605 = a33254; /* x227907 stalin.sc:32175:1111163 */ t85601 = f8987(t85605); /* x227906 stalin.sc:32173:1111084 */ /* x227878 stalin.sc:32173:1111079 */ t85602.tag = NATIVE_PROCEDURE_TYPE18909; /* MOVE: branching squeezed to general */ if (t85601>=((struct structure_type24753 *)VALUE_OFFSET)) {t85603.tag = STRUCTURE_TYPE24753; t85603.value.structure_type24753 = t85601;} else t85603.tag = (unsigned)t85601; t85604 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t85602, t85603, t85604).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE15484: a24970 = t85487; /* x115830 stalin.sc:13077:458485 */ /* x115828 stalin.sc:13077:458490 */ /* x115827 stalin.sc:13077:458505 */ t85608 = a24970; /* x115826 stalin.sc:13077:458491 */ a37091 = t85608; /* x281033 */ /* x281032 */ t85609 = a37091; /* x281031 */ if (!((t85609.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LINK[6483] 32008]"); structure_ref_error();} t85606 = t85609.value.structure_type27650->s2; /* x115829 stalin.sc:13077:458508 */ t85607 = a24970; /* x269267 stalin.sc:13077:458486 */ /* EQ: dispatching general to general */ if (!((t85606.tag)==(t85607.tag))) goto l16323; switch (t85606.tag) {case FIXNUM_TYPE: if (!((t85606.value.fixnum_type)==(t85607.value.fixnum_type))) goto l16323; break; case FLONUM_TYPE: if (!((t85606.value.flonum_type)==(t85607.value.flonum_type))) goto l16323; break; case INPUT_PORT_TYPE: if (!((t85606.value.input_port_type)==(t85607.value.input_port_type))) goto l16323; break; case OUTPUT_PORT_TYPE: if (!((t85606.value.output_port_type)==(t85607.value.output_port_type))) goto l16323; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t85606.value.native_procedure_type15963)==(t85607.value.native_procedure_type15963))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t85606.value.native_procedure_type19067)==(t85607.value.native_procedure_type19067))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t85606.value.native_procedure_type19068)==(t85607.value.native_procedure_type19068))) goto l16323; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t85606.value.native_procedure_type22459)==(t85607.value.native_procedure_type22459))) goto l16323; break; case STRUCTURE_TYPE24753: if (!((t85606.value.structure_type24753)==(t85607.value.structure_type24753))) goto l16323; break; case STRUCTURE_TYPE24757: if (!((t85606.value.structure_type24757)==(t85607.value.structure_type24757))) goto l16323; break; case STRUCTURE_TYPE27501: if (!((t85606.value.structure_type27501)==(t85607.value.structure_type27501))) goto l16323; break; case STRUCTURE_TYPE27510: if (!((t85606.value.structure_type27510)==(t85607.value.structure_type27510))) goto l16323; break; case STRUCTURE_TYPE27621: if (!((t85606.value.structure_type27621)==(t85607.value.structure_type27621))) goto l16323; break; case STRUCTURE_TYPE27650: if (!((t85606.value.structure_type27650)==(t85607.value.structure_type27650))) goto l16323; break; case STRUCTURE_TYPE27669: if (!((t85606.value.structure_type27669)==(t85607.value.structure_type27669))) goto l16323; break; case STRUCTURE_TYPE27673: if (!((t85606.value.structure_type27673)==(t85607.value.structure_type27673))) goto l16323; break; case STRUCTURE_TYPE27692: if (!((t85606.value.structure_type27692)==(t85607.value.structure_type27692))) goto l16323; break; case STRUCTURE_TYPE27694: if (!((t85606.value.structure_type27694)==(t85607.value.structure_type27694))) goto l16323; break; case STRUCTURE_TYPE27698: if (!((t85606.value.structure_type27698)==(t85607.value.structure_type27698))) goto l16323; break; case STRUCTURE_TYPE27745: if (!((t85606.value.structure_type27745)==(t85607.value.structure_type27745))) goto l16323; break; case STRUCTURE_TYPE27747: if (!((t85606.value.structure_type27747)==(t85607.value.structure_type27747))) goto l16323; break; case STRUCTURE_TYPE27750: if (!((t85606.value.structure_type27750)==(t85607.value.structure_type27750))) goto l16323; break; case STRUCTURE_TYPE27753: if (!((t85606.value.structure_type27753)==(t85607.value.structure_type27753))) goto l16323; break; case STRUCTURE_TYPE27756: if (!((t85606.value.structure_type27756)==(t85607.value.structure_type27756))) goto l16323; break; case STRUCTURE_TYPE27761: if (!((t85606.value.structure_type27761)==(t85607.value.structure_type27761))) goto l16323; break; case STRUCTURE_TYPE27769: if (!((t85606.value.structure_type27769)==(t85607.value.structure_type27769))) goto l16323; break; case STRUCTURE_TYPE27776: if (!((t85606.value.structure_type27776)==(t85607.value.structure_type27776))) goto l16323; break; case STRUCTURE_TYPE27779: if (!((t85606.value.structure_type27779)==(t85607.value.structure_type27779))) goto l16323; break; case STRUCTURE_TYPE27858: if (!((t85606.value.structure_type27858)==(t85607.value.structure_type27858))) goto l16323; break; case STRING_TYPE: if (!((t85606.value.string_type)==(t85607.value.string_type))) goto l16323; break; case HEADED_VECTOR_TYPE27896: if (!((t85606.value.headed_vector_type27896)==(t85607.value.headed_vector_type27896))) goto l16323; break; case EXTERNAL_SYMBOL_TYPE: if (!((t85606.value.external_symbol_type)==(t85607.value.external_symbol_type))) goto l16323; break; case STRUCTURE_TYPE27908: if (!((t85606.value.structure_type27908)==(t85607.value.structure_type27908))) goto l16323; break; default:;} break; case NATIVE_PROCEDURE_TYPE15486: a24969 = t85487; /* x115819 stalin.sc:13075:458371 */ /* x115817 stalin.sc:13075:458376 */ /* x115816 stalin.sc:13075:458404 */ t85612 = a24969; /* x115815 stalin.sc:13075:458377 */ a37297 = t85612; /* x281857 */ /* x281856 */ t85613 = a37297; /* x281855 */ if (!((t85613.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-LINK[6383] 32214]"); structure_ref_error();} t85610 = t85613.value.structure_type27908->s1; /* x115818 stalin.sc:13075:458407 */ t85611 = a24969; /* x269268 stalin.sc:13075:458372 */ /* EQ: dispatching general to general */ if (!((t85610.tag)==(t85611.tag))) goto l16323; switch (t85610.tag) {case FIXNUM_TYPE: if (!((t85610.value.fixnum_type)==(t85611.value.fixnum_type))) goto l16323; break; case FLONUM_TYPE: if (!((t85610.value.flonum_type)==(t85611.value.flonum_type))) goto l16323; break; case INPUT_PORT_TYPE: if (!((t85610.value.input_port_type)==(t85611.value.input_port_type))) goto l16323; break; case OUTPUT_PORT_TYPE: if (!((t85610.value.output_port_type)==(t85611.value.output_port_type))) goto l16323; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t85610.value.native_procedure_type15963)==(t85611.value.native_procedure_type15963))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t85610.value.native_procedure_type19067)==(t85611.value.native_procedure_type19067))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t85610.value.native_procedure_type19068)==(t85611.value.native_procedure_type19068))) goto l16323; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t85610.value.native_procedure_type22459)==(t85611.value.native_procedure_type22459))) goto l16323; break; case STRUCTURE_TYPE24753: if (!((t85610.value.structure_type24753)==(t85611.value.structure_type24753))) goto l16323; break; case STRUCTURE_TYPE24757: if (!((t85610.value.structure_type24757)==(t85611.value.structure_type24757))) goto l16323; break; case STRUCTURE_TYPE27501: if (!((t85610.value.structure_type27501)==(t85611.value.structure_type27501))) goto l16323; break; case STRUCTURE_TYPE27510: if (!((t85610.value.structure_type27510)==(t85611.value.structure_type27510))) goto l16323; break; case STRUCTURE_TYPE27621: if (!((t85610.value.structure_type27621)==(t85611.value.structure_type27621))) goto l16323; break; case STRUCTURE_TYPE27650: if (!((t85610.value.structure_type27650)==(t85611.value.structure_type27650))) goto l16323; break; case STRUCTURE_TYPE27669: if (!((t85610.value.structure_type27669)==(t85611.value.structure_type27669))) goto l16323; break; case STRUCTURE_TYPE27673: if (!((t85610.value.structure_type27673)==(t85611.value.structure_type27673))) goto l16323; break; case STRUCTURE_TYPE27692: if (!((t85610.value.structure_type27692)==(t85611.value.structure_type27692))) goto l16323; break; case STRUCTURE_TYPE27694: if (!((t85610.value.structure_type27694)==(t85611.value.structure_type27694))) goto l16323; break; case STRUCTURE_TYPE27698: if (!((t85610.value.structure_type27698)==(t85611.value.structure_type27698))) goto l16323; break; case STRUCTURE_TYPE27745: if (!((t85610.value.structure_type27745)==(t85611.value.structure_type27745))) goto l16323; break; case STRUCTURE_TYPE27747: if (!((t85610.value.structure_type27747)==(t85611.value.structure_type27747))) goto l16323; break; case STRUCTURE_TYPE27750: if (!((t85610.value.structure_type27750)==(t85611.value.structure_type27750))) goto l16323; break; case STRUCTURE_TYPE27753: if (!((t85610.value.structure_type27753)==(t85611.value.structure_type27753))) goto l16323; break; case STRUCTURE_TYPE27756: if (!((t85610.value.structure_type27756)==(t85611.value.structure_type27756))) goto l16323; break; case STRUCTURE_TYPE27761: if (!((t85610.value.structure_type27761)==(t85611.value.structure_type27761))) goto l16323; break; case STRUCTURE_TYPE27769: if (!((t85610.value.structure_type27769)==(t85611.value.structure_type27769))) goto l16323; break; case STRUCTURE_TYPE27776: if (!((t85610.value.structure_type27776)==(t85611.value.structure_type27776))) goto l16323; break; case STRUCTURE_TYPE27779: if (!((t85610.value.structure_type27779)==(t85611.value.structure_type27779))) goto l16323; break; case STRUCTURE_TYPE27858: if (!((t85610.value.structure_type27858)==(t85611.value.structure_type27858))) goto l16323; break; case STRING_TYPE: if (!((t85610.value.string_type)==(t85611.value.string_type))) goto l16323; break; case HEADED_VECTOR_TYPE27896: if (!((t85610.value.headed_vector_type27896)==(t85611.value.headed_vector_type27896))) goto l16323; break; case EXTERNAL_SYMBOL_TYPE: if (!((t85610.value.external_symbol_type)==(t85611.value.external_symbol_type))) goto l16323; break; case STRUCTURE_TYPE27908: if (!((t85610.value.structure_type27908)==(t85611.value.structure_type27908))) goto l16323; break; default:;} break; case NATIVE_PROCEDURE_TYPE15488: a24968 = t85487; /* x115808 stalin.sc:13072:458230 */ /* x115806 stalin.sc:13072:458235 */ /* x115805 stalin.sc:13072:458263 */ t85616 = a24968; /* x115804 stalin.sc:13072:458236 */ a37381 = t85616; /* x282193 */ /* x282192 */ t85617 = a37381; /* x282191 */ if (!((t85617.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-LINK[6325] 32298]"); structure_ref_error();} t85614 = t85617.value.structure_type27669->s2; /* x115807 stalin.sc:13072:458266 */ t85615 = a24968; /* x269269 stalin.sc:13072:458231 */ /* EQ: dispatching general to general */ if (!((t85614.tag)==(t85615.tag))) goto l16323; switch (t85614.tag) {case FIXNUM_TYPE: if (!((t85614.value.fixnum_type)==(t85615.value.fixnum_type))) goto l16323; break; case FLONUM_TYPE: if (!((t85614.value.flonum_type)==(t85615.value.flonum_type))) goto l16323; break; case INPUT_PORT_TYPE: if (!((t85614.value.input_port_type)==(t85615.value.input_port_type))) goto l16323; break; case OUTPUT_PORT_TYPE: if (!((t85614.value.output_port_type)==(t85615.value.output_port_type))) goto l16323; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t85614.value.native_procedure_type15963)==(t85615.value.native_procedure_type15963))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t85614.value.native_procedure_type19067)==(t85615.value.native_procedure_type19067))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t85614.value.native_procedure_type19068)==(t85615.value.native_procedure_type19068))) goto l16323; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t85614.value.native_procedure_type22459)==(t85615.value.native_procedure_type22459))) goto l16323; break; case STRUCTURE_TYPE24753: if (!((t85614.value.structure_type24753)==(t85615.value.structure_type24753))) goto l16323; break; case STRUCTURE_TYPE24757: if (!((t85614.value.structure_type24757)==(t85615.value.structure_type24757))) goto l16323; break; case STRUCTURE_TYPE27501: if (!((t85614.value.structure_type27501)==(t85615.value.structure_type27501))) goto l16323; break; case STRUCTURE_TYPE27510: if (!((t85614.value.structure_type27510)==(t85615.value.structure_type27510))) goto l16323; break; case STRUCTURE_TYPE27621: if (!((t85614.value.structure_type27621)==(t85615.value.structure_type27621))) goto l16323; break; case STRUCTURE_TYPE27650: if (!((t85614.value.structure_type27650)==(t85615.value.structure_type27650))) goto l16323; break; case STRUCTURE_TYPE27669: if (!((t85614.value.structure_type27669)==(t85615.value.structure_type27669))) goto l16323; break; case STRUCTURE_TYPE27673: if (!((t85614.value.structure_type27673)==(t85615.value.structure_type27673))) goto l16323; break; case STRUCTURE_TYPE27692: if (!((t85614.value.structure_type27692)==(t85615.value.structure_type27692))) goto l16323; break; case STRUCTURE_TYPE27694: if (!((t85614.value.structure_type27694)==(t85615.value.structure_type27694))) goto l16323; break; case STRUCTURE_TYPE27698: if (!((t85614.value.structure_type27698)==(t85615.value.structure_type27698))) goto l16323; break; case STRUCTURE_TYPE27745: if (!((t85614.value.structure_type27745)==(t85615.value.structure_type27745))) goto l16323; break; case STRUCTURE_TYPE27747: if (!((t85614.value.structure_type27747)==(t85615.value.structure_type27747))) goto l16323; break; case STRUCTURE_TYPE27750: if (!((t85614.value.structure_type27750)==(t85615.value.structure_type27750))) goto l16323; break; case STRUCTURE_TYPE27753: if (!((t85614.value.structure_type27753)==(t85615.value.structure_type27753))) goto l16323; break; case STRUCTURE_TYPE27756: if (!((t85614.value.structure_type27756)==(t85615.value.structure_type27756))) goto l16323; break; case STRUCTURE_TYPE27761: if (!((t85614.value.structure_type27761)==(t85615.value.structure_type27761))) goto l16323; break; case STRUCTURE_TYPE27769: if (!((t85614.value.structure_type27769)==(t85615.value.structure_type27769))) goto l16323; break; case STRUCTURE_TYPE27776: if (!((t85614.value.structure_type27776)==(t85615.value.structure_type27776))) goto l16323; break; case STRUCTURE_TYPE27779: if (!((t85614.value.structure_type27779)==(t85615.value.structure_type27779))) goto l16323; break; case STRUCTURE_TYPE27858: if (!((t85614.value.structure_type27858)==(t85615.value.structure_type27858))) goto l16323; break; case STRING_TYPE: if (!((t85614.value.string_type)==(t85615.value.string_type))) goto l16323; break; case HEADED_VECTOR_TYPE27896: if (!((t85614.value.headed_vector_type27896)==(t85615.value.headed_vector_type27896))) goto l16323; break; case EXTERNAL_SYMBOL_TYPE: if (!((t85614.value.external_symbol_type)==(t85615.value.external_symbol_type))) goto l16323; break; case STRUCTURE_TYPE27908: if (!((t85614.value.structure_type27908)==(t85615.value.structure_type27908))) goto l16323; break; default:;} break; case NATIVE_PROCEDURE_TYPE15490: a24967 = t85487; /* x115797 stalin.sc:13069:458095 */ /* x115795 stalin.sc:13069:458100 */ /* x115794 stalin.sc:13069:458125 */ t85620 = a24967; /* x115793 stalin.sc:13069:458101 */ a37484 = t85620; /* x282605 */ /* x282604 */ t85621 = a37484; /* x282603 */ if (!((t85621.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-LINK[6259] 32401]"); structure_ref_error();} t85618 = t85621.value.structure_type27761->s2; /* x115796 stalin.sc:13069:458128 */ t85619 = a24967; /* x269270 stalin.sc:13069:458096 */ /* EQ: dispatching general to general */ if (!((t85618.tag)==(t85619.tag))) goto l16323; switch (t85618.tag) {case FIXNUM_TYPE: if (!((t85618.value.fixnum_type)==(t85619.value.fixnum_type))) goto l16323; break; case FLONUM_TYPE: if (!((t85618.value.flonum_type)==(t85619.value.flonum_type))) goto l16323; break; case INPUT_PORT_TYPE: if (!((t85618.value.input_port_type)==(t85619.value.input_port_type))) goto l16323; break; case OUTPUT_PORT_TYPE: if (!((t85618.value.output_port_type)==(t85619.value.output_port_type))) goto l16323; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t85618.value.native_procedure_type15963)==(t85619.value.native_procedure_type15963))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t85618.value.native_procedure_type19067)==(t85619.value.native_procedure_type19067))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t85618.value.native_procedure_type19068)==(t85619.value.native_procedure_type19068))) goto l16323; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t85618.value.native_procedure_type22459)==(t85619.value.native_procedure_type22459))) goto l16323; break; case STRUCTURE_TYPE24753: if (!((t85618.value.structure_type24753)==(t85619.value.structure_type24753))) goto l16323; break; case STRUCTURE_TYPE24757: if (!((t85618.value.structure_type24757)==(t85619.value.structure_type24757))) goto l16323; break; case STRUCTURE_TYPE27501: if (!((t85618.value.structure_type27501)==(t85619.value.structure_type27501))) goto l16323; break; case STRUCTURE_TYPE27510: if (!((t85618.value.structure_type27510)==(t85619.value.structure_type27510))) goto l16323; break; case STRUCTURE_TYPE27621: if (!((t85618.value.structure_type27621)==(t85619.value.structure_type27621))) goto l16323; break; case STRUCTURE_TYPE27650: if (!((t85618.value.structure_type27650)==(t85619.value.structure_type27650))) goto l16323; break; case STRUCTURE_TYPE27669: if (!((t85618.value.structure_type27669)==(t85619.value.structure_type27669))) goto l16323; break; case STRUCTURE_TYPE27673: if (!((t85618.value.structure_type27673)==(t85619.value.structure_type27673))) goto l16323; break; case STRUCTURE_TYPE27692: if (!((t85618.value.structure_type27692)==(t85619.value.structure_type27692))) goto l16323; break; case STRUCTURE_TYPE27694: if (!((t85618.value.structure_type27694)==(t85619.value.structure_type27694))) goto l16323; break; case STRUCTURE_TYPE27698: if (!((t85618.value.structure_type27698)==(t85619.value.structure_type27698))) goto l16323; break; case STRUCTURE_TYPE27745: if (!((t85618.value.structure_type27745)==(t85619.value.structure_type27745))) goto l16323; break; case STRUCTURE_TYPE27747: if (!((t85618.value.structure_type27747)==(t85619.value.structure_type27747))) goto l16323; break; case STRUCTURE_TYPE27750: if (!((t85618.value.structure_type27750)==(t85619.value.structure_type27750))) goto l16323; break; case STRUCTURE_TYPE27753: if (!((t85618.value.structure_type27753)==(t85619.value.structure_type27753))) goto l16323; break; case STRUCTURE_TYPE27756: if (!((t85618.value.structure_type27756)==(t85619.value.structure_type27756))) goto l16323; break; case STRUCTURE_TYPE27761: if (!((t85618.value.structure_type27761)==(t85619.value.structure_type27761))) goto l16323; break; case STRUCTURE_TYPE27769: if (!((t85618.value.structure_type27769)==(t85619.value.structure_type27769))) goto l16323; break; case STRUCTURE_TYPE27776: if (!((t85618.value.structure_type27776)==(t85619.value.structure_type27776))) goto l16323; break; case STRUCTURE_TYPE27779: if (!((t85618.value.structure_type27779)==(t85619.value.structure_type27779))) goto l16323; break; case STRUCTURE_TYPE27858: if (!((t85618.value.structure_type27858)==(t85619.value.structure_type27858))) goto l16323; break; case STRING_TYPE: if (!((t85618.value.string_type)==(t85619.value.string_type))) goto l16323; break; case HEADED_VECTOR_TYPE27896: if (!((t85618.value.headed_vector_type27896)==(t85619.value.headed_vector_type27896))) goto l16323; break; case EXTERNAL_SYMBOL_TYPE: if (!((t85618.value.external_symbol_type)==(t85619.value.external_symbol_type))) goto l16323; break; case STRUCTURE_TYPE27908: if (!((t85618.value.structure_type27908)==(t85619.value.structure_type27908))) goto l16323; break; default:;} break; case NATIVE_PROCEDURE_TYPE15492: a24966 = t85487; /* x115786 stalin.sc:13066:457971 */ /* x115784 stalin.sc:13066:457976 */ /* x115783 stalin.sc:13066:457997 */ t85624 = a24966; /* x115782 stalin.sc:13066:457977 */ a37605 = t85624; /* x283089 */ /* x283088 */ t85625 = a37605; /* x283087 */ if (!((t85625.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-LINK[6193] 32522]"); structure_ref_error();} t85622 = t85625.value.structure_type27769->s3; /* x115785 stalin.sc:13066:458000 */ t85623 = a24966; /* x269271 stalin.sc:13066:457972 */ /* EQ: dispatching general to general */ if (!((t85622.tag)==(t85623.tag))) goto l16323; switch (t85622.tag) {case FIXNUM_TYPE: if (!((t85622.value.fixnum_type)==(t85623.value.fixnum_type))) goto l16323; break; case FLONUM_TYPE: if (!((t85622.value.flonum_type)==(t85623.value.flonum_type))) goto l16323; break; case INPUT_PORT_TYPE: if (!((t85622.value.input_port_type)==(t85623.value.input_port_type))) goto l16323; break; case OUTPUT_PORT_TYPE: if (!((t85622.value.output_port_type)==(t85623.value.output_port_type))) goto l16323; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t85622.value.native_procedure_type15963)==(t85623.value.native_procedure_type15963))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t85622.value.native_procedure_type19067)==(t85623.value.native_procedure_type19067))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t85622.value.native_procedure_type19068)==(t85623.value.native_procedure_type19068))) goto l16323; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t85622.value.native_procedure_type22459)==(t85623.value.native_procedure_type22459))) goto l16323; break; case STRUCTURE_TYPE24753: if (!((t85622.value.structure_type24753)==(t85623.value.structure_type24753))) goto l16323; break; case STRUCTURE_TYPE24757: if (!((t85622.value.structure_type24757)==(t85623.value.structure_type24757))) goto l16323; break; case STRUCTURE_TYPE27501: if (!((t85622.value.structure_type27501)==(t85623.value.structure_type27501))) goto l16323; break; case STRUCTURE_TYPE27510: if (!((t85622.value.structure_type27510)==(t85623.value.structure_type27510))) goto l16323; break; case STRUCTURE_TYPE27621: if (!((t85622.value.structure_type27621)==(t85623.value.structure_type27621))) goto l16323; break; case STRUCTURE_TYPE27650: if (!((t85622.value.structure_type27650)==(t85623.value.structure_type27650))) goto l16323; break; case STRUCTURE_TYPE27669: if (!((t85622.value.structure_type27669)==(t85623.value.structure_type27669))) goto l16323; break; case STRUCTURE_TYPE27673: if (!((t85622.value.structure_type27673)==(t85623.value.structure_type27673))) goto l16323; break; case STRUCTURE_TYPE27692: if (!((t85622.value.structure_type27692)==(t85623.value.structure_type27692))) goto l16323; break; case STRUCTURE_TYPE27694: if (!((t85622.value.structure_type27694)==(t85623.value.structure_type27694))) goto l16323; break; case STRUCTURE_TYPE27698: if (!((t85622.value.structure_type27698)==(t85623.value.structure_type27698))) goto l16323; break; case STRUCTURE_TYPE27745: if (!((t85622.value.structure_type27745)==(t85623.value.structure_type27745))) goto l16323; break; case STRUCTURE_TYPE27747: if (!((t85622.value.structure_type27747)==(t85623.value.structure_type27747))) goto l16323; break; case STRUCTURE_TYPE27750: if (!((t85622.value.structure_type27750)==(t85623.value.structure_type27750))) goto l16323; break; case STRUCTURE_TYPE27753: if (!((t85622.value.structure_type27753)==(t85623.value.structure_type27753))) goto l16323; break; case STRUCTURE_TYPE27756: if (!((t85622.value.structure_type27756)==(t85623.value.structure_type27756))) goto l16323; break; case STRUCTURE_TYPE27761: if (!((t85622.value.structure_type27761)==(t85623.value.structure_type27761))) goto l16323; break; case STRUCTURE_TYPE27769: if (!((t85622.value.structure_type27769)==(t85623.value.structure_type27769))) goto l16323; break; case STRUCTURE_TYPE27776: if (!((t85622.value.structure_type27776)==(t85623.value.structure_type27776))) goto l16323; break; case STRUCTURE_TYPE27779: if (!((t85622.value.structure_type27779)==(t85623.value.structure_type27779))) goto l16323; break; case STRUCTURE_TYPE27858: if (!((t85622.value.structure_type27858)==(t85623.value.structure_type27858))) goto l16323; break; case STRING_TYPE: if (!((t85622.value.string_type)==(t85623.value.string_type))) goto l16323; break; case HEADED_VECTOR_TYPE27896: if (!((t85622.value.headed_vector_type27896)==(t85623.value.headed_vector_type27896))) goto l16323; break; case EXTERNAL_SYMBOL_TYPE: if (!((t85622.value.external_symbol_type)==(t85623.value.external_symbol_type))) goto l16323; break; case STRUCTURE_TYPE27908: if (!((t85622.value.structure_type27908)==(t85623.value.structure_type27908))) goto l16323; break; default:;} break; case NATIVE_PROCEDURE_TYPE15494: a24965 = t85487; /* x115775 stalin.sc:13063:457857 */ /* x115773 stalin.sc:13063:457862 */ /* x115772 stalin.sc:13063:457880 */ t85628 = a24965; /* x115771 stalin.sc:13063:457863 */ a37732 = t85628; /* x283597 */ /* x283596 */ t85629 = a37732; /* x283595 */ if (!((t85629.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-LINK[6119] 32649]"); structure_ref_error();} t85626 = t85629.value.structure_type27673->s1; /* x115774 stalin.sc:13063:457883 */ t85627 = a24965; /* x269272 stalin.sc:13063:457858 */ /* EQ: dispatching general to general */ if (!((t85626.tag)==(t85627.tag))) goto l16323; switch (t85626.tag) {case FIXNUM_TYPE: if (!((t85626.value.fixnum_type)==(t85627.value.fixnum_type))) goto l16323; break; case FLONUM_TYPE: if (!((t85626.value.flonum_type)==(t85627.value.flonum_type))) goto l16323; break; case INPUT_PORT_TYPE: if (!((t85626.value.input_port_type)==(t85627.value.input_port_type))) goto l16323; break; case OUTPUT_PORT_TYPE: if (!((t85626.value.output_port_type)==(t85627.value.output_port_type))) goto l16323; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t85626.value.native_procedure_type15963)==(t85627.value.native_procedure_type15963))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t85626.value.native_procedure_type19067)==(t85627.value.native_procedure_type19067))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t85626.value.native_procedure_type19068)==(t85627.value.native_procedure_type19068))) goto l16323; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t85626.value.native_procedure_type22459)==(t85627.value.native_procedure_type22459))) goto l16323; break; case STRUCTURE_TYPE24753: if (!((t85626.value.structure_type24753)==(t85627.value.structure_type24753))) goto l16323; break; case STRUCTURE_TYPE24757: if (!((t85626.value.structure_type24757)==(t85627.value.structure_type24757))) goto l16323; break; case STRUCTURE_TYPE27501: if (!((t85626.value.structure_type27501)==(t85627.value.structure_type27501))) goto l16323; break; case STRUCTURE_TYPE27510: if (!((t85626.value.structure_type27510)==(t85627.value.structure_type27510))) goto l16323; break; case STRUCTURE_TYPE27621: if (!((t85626.value.structure_type27621)==(t85627.value.structure_type27621))) goto l16323; break; case STRUCTURE_TYPE27650: if (!((t85626.value.structure_type27650)==(t85627.value.structure_type27650))) goto l16323; break; case STRUCTURE_TYPE27669: if (!((t85626.value.structure_type27669)==(t85627.value.structure_type27669))) goto l16323; break; case STRUCTURE_TYPE27673: if (!((t85626.value.structure_type27673)==(t85627.value.structure_type27673))) goto l16323; break; case STRUCTURE_TYPE27692: if (!((t85626.value.structure_type27692)==(t85627.value.structure_type27692))) goto l16323; break; case STRUCTURE_TYPE27694: if (!((t85626.value.structure_type27694)==(t85627.value.structure_type27694))) goto l16323; break; case STRUCTURE_TYPE27698: if (!((t85626.value.structure_type27698)==(t85627.value.structure_type27698))) goto l16323; break; case STRUCTURE_TYPE27745: if (!((t85626.value.structure_type27745)==(t85627.value.structure_type27745))) goto l16323; break; case STRUCTURE_TYPE27747: if (!((t85626.value.structure_type27747)==(t85627.value.structure_type27747))) goto l16323; break; case STRUCTURE_TYPE27750: if (!((t85626.value.structure_type27750)==(t85627.value.structure_type27750))) goto l16323; break; case STRUCTURE_TYPE27753: if (!((t85626.value.structure_type27753)==(t85627.value.structure_type27753))) goto l16323; break; case STRUCTURE_TYPE27756: if (!((t85626.value.structure_type27756)==(t85627.value.structure_type27756))) goto l16323; break; case STRUCTURE_TYPE27761: if (!((t85626.value.structure_type27761)==(t85627.value.structure_type27761))) goto l16323; break; case STRUCTURE_TYPE27769: if (!((t85626.value.structure_type27769)==(t85627.value.structure_type27769))) goto l16323; break; case STRUCTURE_TYPE27776: if (!((t85626.value.structure_type27776)==(t85627.value.structure_type27776))) goto l16323; break; case STRUCTURE_TYPE27779: if (!((t85626.value.structure_type27779)==(t85627.value.structure_type27779))) goto l16323; break; case STRUCTURE_TYPE27858: if (!((t85626.value.structure_type27858)==(t85627.value.structure_type27858))) goto l16323; break; case STRING_TYPE: if (!((t85626.value.string_type)==(t85627.value.string_type))) goto l16323; break; case HEADED_VECTOR_TYPE27896: if (!((t85626.value.headed_vector_type27896)==(t85627.value.headed_vector_type27896))) goto l16323; break; case EXTERNAL_SYMBOL_TYPE: if (!((t85626.value.external_symbol_type)==(t85627.value.external_symbol_type))) goto l16323; break; case STRUCTURE_TYPE27908: if (!((t85626.value.structure_type27908)==(t85627.value.structure_type27908))) goto l16323; break; default:;} break; case NATIVE_PROCEDURE_TYPE15496: a24964 = t85487; /* x115755 stalin.sc:13058:457619 */ /* x115753 stalin.sc:13058:457624 */ /* x115752 stalin.sc:13058:457651 */ t85632 = a24964; /* x115751 stalin.sc:13058:457625 */ a38249 = t85632; /* x285665 */ /* x285664 */ t85633 = a38249; /* x285663 */ if (!((t85633.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-LINK[5853] 33166]"); structure_ref_error();} t85630 = t85633.value.structure_type27779->s1; /* x115754 stalin.sc:13058:457654 */ t85631 = a24964; /* x269273 stalin.sc:13058:457620 */ /* EQ: dispatching general to general */ if (!((t85630.tag)==(t85631.tag))) goto l16323; switch (t85630.tag) {case FIXNUM_TYPE: if (!((t85630.value.fixnum_type)==(t85631.value.fixnum_type))) goto l16323; break; case FLONUM_TYPE: if (!((t85630.value.flonum_type)==(t85631.value.flonum_type))) goto l16323; break; case INPUT_PORT_TYPE: if (!((t85630.value.input_port_type)==(t85631.value.input_port_type))) goto l16323; break; case OUTPUT_PORT_TYPE: if (!((t85630.value.output_port_type)==(t85631.value.output_port_type))) goto l16323; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t85630.value.native_procedure_type15963)==(t85631.value.native_procedure_type15963))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t85630.value.native_procedure_type19067)==(t85631.value.native_procedure_type19067))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t85630.value.native_procedure_type19068)==(t85631.value.native_procedure_type19068))) goto l16323; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t85630.value.native_procedure_type22459)==(t85631.value.native_procedure_type22459))) goto l16323; break; case STRUCTURE_TYPE24753: if (!((t85630.value.structure_type24753)==(t85631.value.structure_type24753))) goto l16323; break; case STRUCTURE_TYPE24757: if (!((t85630.value.structure_type24757)==(t85631.value.structure_type24757))) goto l16323; break; case STRUCTURE_TYPE27501: if (!((t85630.value.structure_type27501)==(t85631.value.structure_type27501))) goto l16323; break; case STRUCTURE_TYPE27510: if (!((t85630.value.structure_type27510)==(t85631.value.structure_type27510))) goto l16323; break; case STRUCTURE_TYPE27621: if (!((t85630.value.structure_type27621)==(t85631.value.structure_type27621))) goto l16323; break; case STRUCTURE_TYPE27650: if (!((t85630.value.structure_type27650)==(t85631.value.structure_type27650))) goto l16323; break; case STRUCTURE_TYPE27669: if (!((t85630.value.structure_type27669)==(t85631.value.structure_type27669))) goto l16323; break; case STRUCTURE_TYPE27673: if (!((t85630.value.structure_type27673)==(t85631.value.structure_type27673))) goto l16323; break; case STRUCTURE_TYPE27692: if (!((t85630.value.structure_type27692)==(t85631.value.structure_type27692))) goto l16323; break; case STRUCTURE_TYPE27694: if (!((t85630.value.structure_type27694)==(t85631.value.structure_type27694))) goto l16323; break; case STRUCTURE_TYPE27698: if (!((t85630.value.structure_type27698)==(t85631.value.structure_type27698))) goto l16323; break; case STRUCTURE_TYPE27745: if (!((t85630.value.structure_type27745)==(t85631.value.structure_type27745))) goto l16323; break; case STRUCTURE_TYPE27747: if (!((t85630.value.structure_type27747)==(t85631.value.structure_type27747))) goto l16323; break; case STRUCTURE_TYPE27750: if (!((t85630.value.structure_type27750)==(t85631.value.structure_type27750))) goto l16323; break; case STRUCTURE_TYPE27753: if (!((t85630.value.structure_type27753)==(t85631.value.structure_type27753))) goto l16323; break; case STRUCTURE_TYPE27756: if (!((t85630.value.structure_type27756)==(t85631.value.structure_type27756))) goto l16323; break; case STRUCTURE_TYPE27761: if (!((t85630.value.structure_type27761)==(t85631.value.structure_type27761))) goto l16323; break; case STRUCTURE_TYPE27769: if (!((t85630.value.structure_type27769)==(t85631.value.structure_type27769))) goto l16323; break; case STRUCTURE_TYPE27776: if (!((t85630.value.structure_type27776)==(t85631.value.structure_type27776))) goto l16323; break; case STRUCTURE_TYPE27779: if (!((t85630.value.structure_type27779)==(t85631.value.structure_type27779))) goto l16323; break; case STRUCTURE_TYPE27858: if (!((t85630.value.structure_type27858)==(t85631.value.structure_type27858))) goto l16323; break; case STRING_TYPE: if (!((t85630.value.string_type)==(t85631.value.string_type))) goto l16323; break; case HEADED_VECTOR_TYPE27896: if (!((t85630.value.headed_vector_type27896)==(t85631.value.headed_vector_type27896))) goto l16323; break; case EXTERNAL_SYMBOL_TYPE: if (!((t85630.value.external_symbol_type)==(t85631.value.external_symbol_type))) goto l16323; break; case STRUCTURE_TYPE27908: if (!((t85630.value.structure_type27908)==(t85631.value.structure_type27908))) goto l16323; break; default:;} break; case NATIVE_PROCEDURE_TYPE15634: a24706 = t85487; e12651 = (struct p12651 *)alloca(sizeof(struct p12651)); if (e12651==NULL) {backtrace("stalin.sc", 12436, 434268); out_of_memory_error();} e12651->a24706 = a24706; /* x113139 stalin.sc:12437:434286 */ /* x113129 stalin.sc:12437:434291 */ /* x113128 stalin.sc:12437:434296 */ /* x113127 stalin.sc:12437:434305 */ /* x113126 stalin.sc:12437:434325 */ t85635 = e12651->a24706; /* x113125 stalin.sc:12437:434306 */ t85634 = f8624(t85635); /* x269386 stalin.sc:12437:434297 */ if ((t85634.tag)==FIXNUM_TYPE) goto l16323; /* x113137 */ /* x113136 stalin.sc:12438:434378 */ t85637 = a24703; /* x113135 stalin.sc:12438:434340 */ t85636 = e12651; /* x113130 stalin.sc:12438:434335 */ t85638.tag = NATIVE_PROCEDURE_TYPE23818; t85638.value.native_procedure_type23818 = t85636; t85639 = *((struct w49 *)(&t85637)); t85640 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t85638, t85639, t85640).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE15679: a23706 = t85487; /* x100542 stalin.sc:9661:333775 */ /* x100535 stalin.sc:9661:333780 */ /* x100534 stalin.sc:9661:333784 */ /* x100533 stalin.sc:9661:333806 */ /* x100532 stalin.sc:9661:333811 */ t85642 = a23706; /* x269637 stalin.sc:9661:333807 */ if (!((t85642.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 9661, 333806); structure_ref_error();} t85641 = t85642.value.structure_type24753->s0; /* x100530 stalin.sc:9661:333785 */ if (!(f8751(t85641)==FALSE_TYPE)) goto l16357; /* x100527 */ /* x100526 stalin.sc:9662:333830 */ /* x100525 stalin.sc:9662:333852 */ /* x100524 stalin.sc:9662:333857 */ t85646 = a23706; /* x269638 stalin.sc:9662:333853 */ if (!((t85646.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 9662, 333852); structure_ref_error();} t85644 = t85646.value.structure_type24753->s0; /* x100522 stalin.sc:9662:333831 */ a36440 = t85644; /* x278429 */ /* x278428 */ t85645 = a36440; /* x278427 */ if (!((t85645.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31357]"); structure_ref_error();} t85643 = t85645.value.structure_type27745->s0; /* x100521 stalin.sc:9662:333821 */ if (f6961(t85643)==FALSE_TYPE) goto l16323; l16357: /* x100540 */ /* x100539 stalin.sc:9663:333880 */ /* x100538 stalin.sc:9663:333885 */ t85648 = a23706; /* x269636 stalin.sc:9663:333881 */ if (!((t85648.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 9663, 333880); structure_ref_error();} t85647 = t85648.value.structure_type24753->s1; /* x100536 stalin.sc:9663:333872 */ if ((f8899(t85647).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE15701: a23681 = t85487; /* x100289 stalin.sc:9742:336729 */ /* x100284 stalin.sc:9742:336734 */ /* x100283 stalin.sc:9742:336743 */ t85649 = a23681; /* x100282 stalin.sc:9742:336735 */ if ((f8899(t85649).tag)==FALSE_TYPE) goto l16323; /* x100287 */ /* x100286 stalin.sc:9742:336753 */ t85650 = a23681; /* x100285 stalin.sc:9742:336747 */ if (f8918(t85650)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE15744: a33210 = t85487; /* x227211 stalin.sc:31988:1104400 */ /* x227210 stalin.sc:31988:1104419 */ /* x227209 stalin.sc:31988:1104443 */ t85652 = a33210; /* x227208 stalin.sc:31988:1104420 */ a40120 = t85652; /* x293149 */ /* x293148 */ t85653 = a40120; /* x293147 */ if (!((t85653.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35037]"); structure_ref_error();} t85651 = t85653.value.structure_type27698->s9; /* x227207 stalin.sc:31988:1104401 */ if (f8526(t85651)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE15963: if (f7718((t85486.value.native_procedure_type15963), t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE16695: a23294 = t85487; e10391 = (struct p10391 *)alloca(sizeof(struct p10391)); if (e10391==NULL) {backtrace("stalin.sc", 8263, 281476); out_of_memory_error();} e10391->a23294 = a23294; /* x93826 stalin.sc:8264:281494 */ /* x93732 stalin.sc:8264:281499 */ /* x93731 stalin.sc:8264:281522 */ t85654 = e10391->a23294; /* x93730 stalin.sc:8264:281500 */ a23283 = t85654; h10376: /* x93039 stalin.sc:8161:278709 */ /* x93038 stalin.sc:8161:278713 */ /* x93037 stalin.sc:8161:278718 */ /* x93036 stalin.sc:8161:278737 */ t85655 = a23283; /* x93035 stalin.sc:8161:278719 */ a39823 = t85655; /* x291961 */ /* x291960 */ t85656 = a39823; /* x291959 */ if (!((t85656.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34740]"); structure_ref_error();} if ((t85656.value.structure_type27698->s11.tag)==FALSE_TYPE) goto l16360; /* x93031 */ /* x93030 stalin.sc:8162:278746 */ /* x93020 stalin.sc:8162:278751 */ /* x93019 stalin.sc:8162:278755 */ /* x93017 stalin.sc:8162:278760 */ /* x93016 stalin.sc:8162:278777 */ /* x93015 stalin.sc:8162:278796 */ t85661 = a23283; /* x93014 stalin.sc:8162:278778 */ a39808 = t85661; /* x291901 */ /* x291900 */ t85662 = a39808; /* x291899 */ if (!((t85662.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34725]"); structure_ref_error();} t85659 = t85662.value.structure_type27698->s11; /* x93013 stalin.sc:8162:278761 */ a40348 = t85659; /* x294061 */ /* x294060 */ t85660 = a40348; /* x294059 */ if (!((t85660.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35265]"); structure_ref_error();} t85657 = t85660.value.structure_type27698->s0; /* x93018 stalin.sc:8162:278800 */ t85658 = q36; /* x269797 stalin.sc:8162:278756 */ if (t85657==t85658) goto l16363; /* x93009 */ /* x93007 stalin.sc:8163:278819 */ /* x93006 stalin.sc:8163:278836 */ /* x93005 stalin.sc:8163:278855 */ t85667 = a23283; /* x93004 stalin.sc:8163:278837 */ a39807 = t85667; /* x291897 */ /* x291896 */ t85668 = a39807; /* x291895 */ if (!((t85668.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34724]"); structure_ref_error();} t85665 = t85668.value.structure_type27698->s11; /* x93003 stalin.sc:8163:278820 */ a40347 = t85665; /* x294057 */ /* x294056 */ t85666 = a40347; /* x294055 */ if (!((t85666.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35264]"); structure_ref_error();} t85663 = t85666.value.structure_type27698->s0; /* x93008 stalin.sc:8163:278859 */ t85664 = q37; /* x269798 stalin.sc:8163:278815 */ if (!(t85663==t85664)) goto l16362; l16363: /* x93028 */ /* x93022 stalin.sc:8164:278885 */ t85669 = a23283; /* x93027 stalin.sc:8164:278887 */ /* x93026 stalin.sc:8164:278906 */ /* x93025 stalin.sc:8164:278925 */ t85673 = a23283; /* x93024 stalin.sc:8164:278907 */ a39806 = t85673; /* x291893 */ /* x291892 */ t85674 = a39806; /* x291891 */ if (!((t85674.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34723]"); structure_ref_error();} t85671 = t85674.value.structure_type27698->s11; /* x93023 stalin.sc:8164:278888 */ a38696 = t85671; /* x287453 */ /* x287452 */ t85672 = a38696; /* x287451 */ if (!((t85672.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33613]"); structure_ref_error();} t85670 = t85672.value.structure_type27698->s21; /* x269796 stalin.sc:8164:278881 */ /* EQ: dispatching general to general */ if ((t85669.tag)==(t85670.tag)) switch (t85669.tag) {case FIXNUM_TYPE: if ((t85669.value.fixnum_type)==(t85670.value.fixnum_type)) goto l16360; break; case FLONUM_TYPE: if ((t85669.value.flonum_type)==(t85670.value.flonum_type)) goto l16360; break; case INPUT_PORT_TYPE: if ((t85669.value.input_port_type)==(t85670.value.input_port_type)) goto l16360; break; case OUTPUT_PORT_TYPE: if ((t85669.value.output_port_type)==(t85670.value.output_port_type)) goto l16360; break; case NATIVE_PROCEDURE_TYPE15963: if ((t85669.value.native_procedure_type15963)==(t85670.value.native_procedure_type15963)) goto l16360; break; case NATIVE_PROCEDURE_TYPE19067: if ((t85669.value.native_procedure_type19067)==(t85670.value.native_procedure_type19067)) goto l16360; break; case NATIVE_PROCEDURE_TYPE19068: if ((t85669.value.native_procedure_type19068)==(t85670.value.native_procedure_type19068)) goto l16360; break; case NATIVE_PROCEDURE_TYPE22459: if ((t85669.value.native_procedure_type22459)==(t85670.value.native_procedure_type22459)) goto l16360; break; case STRUCTURE_TYPE24753: if ((t85669.value.structure_type24753)==(t85670.value.structure_type24753)) goto l16360; break; case STRUCTURE_TYPE24757: if ((t85669.value.structure_type24757)==(t85670.value.structure_type24757)) goto l16360; break; case STRUCTURE_TYPE27501: if ((t85669.value.structure_type27501)==(t85670.value.structure_type27501)) goto l16360; break; case STRUCTURE_TYPE27510: if ((t85669.value.structure_type27510)==(t85670.value.structure_type27510)) goto l16360; break; case STRUCTURE_TYPE27621: if ((t85669.value.structure_type27621)==(t85670.value.structure_type27621)) goto l16360; break; case STRUCTURE_TYPE27650: if ((t85669.value.structure_type27650)==(t85670.value.structure_type27650)) goto l16360; break; case STRUCTURE_TYPE27669: if ((t85669.value.structure_type27669)==(t85670.value.structure_type27669)) goto l16360; break; case STRUCTURE_TYPE27673: if ((t85669.value.structure_type27673)==(t85670.value.structure_type27673)) goto l16360; break; case STRUCTURE_TYPE27692: if ((t85669.value.structure_type27692)==(t85670.value.structure_type27692)) goto l16360; break; case STRUCTURE_TYPE27694: if ((t85669.value.structure_type27694)==(t85670.value.structure_type27694)) goto l16360; break; case STRUCTURE_TYPE27698: if ((t85669.value.structure_type27698)==(t85670.value.structure_type27698)) goto l16360; break; case STRUCTURE_TYPE27745: if ((t85669.value.structure_type27745)==(t85670.value.structure_type27745)) goto l16360; break; case STRUCTURE_TYPE27747: if ((t85669.value.structure_type27747)==(t85670.value.structure_type27747)) goto l16360; break; case STRUCTURE_TYPE27750: if ((t85669.value.structure_type27750)==(t85670.value.structure_type27750)) goto l16360; break; case STRUCTURE_TYPE27753: if ((t85669.value.structure_type27753)==(t85670.value.structure_type27753)) goto l16360; break; case STRUCTURE_TYPE27756: if ((t85669.value.structure_type27756)==(t85670.value.structure_type27756)) goto l16360; break; case STRUCTURE_TYPE27761: if ((t85669.value.structure_type27761)==(t85670.value.structure_type27761)) goto l16360; break; case STRUCTURE_TYPE27769: if ((t85669.value.structure_type27769)==(t85670.value.structure_type27769)) goto l16360; break; case STRUCTURE_TYPE27776: if ((t85669.value.structure_type27776)==(t85670.value.structure_type27776)) goto l16360; break; case STRUCTURE_TYPE27779: if ((t85669.value.structure_type27779)==(t85670.value.structure_type27779)) goto l16360; break; case STRUCTURE_TYPE27858: if ((t85669.value.structure_type27858)==(t85670.value.structure_type27858)) goto l16360; break; case STRING_TYPE: if ((t85669.value.string_type)==(t85670.value.string_type)) goto l16360; break; case HEADED_VECTOR_TYPE27896: if ((t85669.value.headed_vector_type27896)==(t85670.value.headed_vector_type27896)) goto l16360; break; case EXTERNAL_SYMBOL_TYPE: if ((t85669.value.external_symbol_type)==(t85670.value.external_symbol_type)) goto l16360; break; case STRUCTURE_TYPE27908: if ((t85669.value.structure_type27908)==(t85670.value.structure_type27908)) goto l16360; break; default: goto l16360;} l16362: /* x92997 */ /* x92977 stalin.sc:8165:278941 */ /* x92975 stalin.sc:8165:278946 */ /* x92974 stalin.sc:8165:278963 */ /* x92973 stalin.sc:8165:278982 */ t85679 = a23283; /* x92972 stalin.sc:8165:278964 */ a39805 = t85679; /* x291889 */ /* x291888 */ t85680 = a39805; /* x291887 */ if (!((t85680.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34722]"); structure_ref_error();} t85677 = t85680.value.structure_type27698->s11; /* x92971 stalin.sc:8165:278947 */ a40346 = t85677; /* x294053 */ /* x294052 */ t85678 = a40346; /* x294051 */ if (!((t85678.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35263]"); structure_ref_error();} t85675 = t85678.value.structure_type27698->s0; /* x92976 stalin.sc:8165:278986 */ t85676 = q43; /* x269800 stalin.sc:8165:278942 */ if (!(t85675==t85676)) goto l16323; /* x92995 */ /* x92994 stalin.sc:8166:278998 */ /* x92988 stalin.sc:8166:279003 */ t85681 = a23283; /* x92993 stalin.sc:8166:279005 */ /* x92992 stalin.sc:8166:279028 */ /* x92991 stalin.sc:8166:279047 */ t85685 = a23283; /* x92990 stalin.sc:8166:279029 */ a39804 = t85685; /* x291885 */ /* x291884 */ t85686 = a39804; /* x291883 */ if (!((t85686.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34721]"); structure_ref_error();} t85683 = t85686.value.structure_type27698->s11; /* x92989 stalin.sc:8166:279006 */ a39032 = t85683; /* x288797 */ /* x288796 */ t85684 = a39032; /* x288795 */ if (!((t85684.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ANTECEDENT[5631] 33949]"); structure_ref_error();} t85682 = t85684.value.structure_type27698->s18; /* x269799 stalin.sc:8166:278999 */ /* EQ: dispatching general to general */ if ((t85681.tag)==(t85682.tag)) switch (t85681.tag) {case FIXNUM_TYPE: if ((t85681.value.fixnum_type)==(t85682.value.fixnum_type)) goto l16360; break; case FLONUM_TYPE: if ((t85681.value.flonum_type)==(t85682.value.flonum_type)) goto l16360; break; case INPUT_PORT_TYPE: if ((t85681.value.input_port_type)==(t85682.value.input_port_type)) goto l16360; break; case OUTPUT_PORT_TYPE: if ((t85681.value.output_port_type)==(t85682.value.output_port_type)) goto l16360; break; case NATIVE_PROCEDURE_TYPE15963: if ((t85681.value.native_procedure_type15963)==(t85682.value.native_procedure_type15963)) goto l16360; break; case NATIVE_PROCEDURE_TYPE19067: if ((t85681.value.native_procedure_type19067)==(t85682.value.native_procedure_type19067)) goto l16360; break; case NATIVE_PROCEDURE_TYPE19068: if ((t85681.value.native_procedure_type19068)==(t85682.value.native_procedure_type19068)) goto l16360; break; case NATIVE_PROCEDURE_TYPE22459: if ((t85681.value.native_procedure_type22459)==(t85682.value.native_procedure_type22459)) goto l16360; break; case STRUCTURE_TYPE24753: if ((t85681.value.structure_type24753)==(t85682.value.structure_type24753)) goto l16360; break; case STRUCTURE_TYPE24757: if ((t85681.value.structure_type24757)==(t85682.value.structure_type24757)) goto l16360; break; case STRUCTURE_TYPE27501: if ((t85681.value.structure_type27501)==(t85682.value.structure_type27501)) goto l16360; break; case STRUCTURE_TYPE27510: if ((t85681.value.structure_type27510)==(t85682.value.structure_type27510)) goto l16360; break; case STRUCTURE_TYPE27621: if ((t85681.value.structure_type27621)==(t85682.value.structure_type27621)) goto l16360; break; case STRUCTURE_TYPE27650: if ((t85681.value.structure_type27650)==(t85682.value.structure_type27650)) goto l16360; break; case STRUCTURE_TYPE27669: if ((t85681.value.structure_type27669)==(t85682.value.structure_type27669)) goto l16360; break; case STRUCTURE_TYPE27673: if ((t85681.value.structure_type27673)==(t85682.value.structure_type27673)) goto l16360; break; case STRUCTURE_TYPE27692: if ((t85681.value.structure_type27692)==(t85682.value.structure_type27692)) goto l16360; break; case STRUCTURE_TYPE27694: if ((t85681.value.structure_type27694)==(t85682.value.structure_type27694)) goto l16360; break; case STRUCTURE_TYPE27698: if ((t85681.value.structure_type27698)==(t85682.value.structure_type27698)) goto l16360; break; case STRUCTURE_TYPE27745: if ((t85681.value.structure_type27745)==(t85682.value.structure_type27745)) goto l16360; break; case STRUCTURE_TYPE27747: if ((t85681.value.structure_type27747)==(t85682.value.structure_type27747)) goto l16360; break; case STRUCTURE_TYPE27750: if ((t85681.value.structure_type27750)==(t85682.value.structure_type27750)) goto l16360; break; case STRUCTURE_TYPE27753: if ((t85681.value.structure_type27753)==(t85682.value.structure_type27753)) goto l16360; break; case STRUCTURE_TYPE27756: if ((t85681.value.structure_type27756)==(t85682.value.structure_type27756)) goto l16360; break; case STRUCTURE_TYPE27761: if ((t85681.value.structure_type27761)==(t85682.value.structure_type27761)) goto l16360; break; case STRUCTURE_TYPE27769: if ((t85681.value.structure_type27769)==(t85682.value.structure_type27769)) goto l16360; break; case STRUCTURE_TYPE27776: if ((t85681.value.structure_type27776)==(t85682.value.structure_type27776)) goto l16360; break; case STRUCTURE_TYPE27779: if ((t85681.value.structure_type27779)==(t85682.value.structure_type27779)) goto l16360; break; case STRUCTURE_TYPE27858: if ((t85681.value.structure_type27858)==(t85682.value.structure_type27858)) goto l16360; break; case STRING_TYPE: if ((t85681.value.string_type)==(t85682.value.string_type)) goto l16360; break; case HEADED_VECTOR_TYPE27896: if ((t85681.value.headed_vector_type27896)==(t85682.value.headed_vector_type27896)) goto l16360; break; case EXTERNAL_SYMBOL_TYPE: if ((t85681.value.external_symbol_type)==(t85682.value.external_symbol_type)) goto l16360; break; case STRUCTURE_TYPE27908: if ((t85681.value.structure_type27908)==(t85682.value.structure_type27908)) goto l16360; break; default: goto l16360;} /* x92984 */ /* x92983 stalin.sc:8167:279082 */ /* x92982 stalin.sc:8167:279101 */ t85688 = a23283; /* x92981 stalin.sc:8167:279083 */ a39803 = t85688; /* x291881 */ /* x291880 */ t85689 = a39803; /* x291879 */ if (!((t85689.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34720]"); structure_ref_error();} t85687 = t85689.value.structure_type27698->s11; /* x92980 stalin.sc:8167:279060 */ a23283 = t85687; goto h10376; l16360: /* x93824 */ /* x93735 stalin.sc:8265:281529 */ /* x93734 stalin.sc:8265:281548 */ t85690 = e10391->a23294; /* x93733 stalin.sc:8265:281530 */ a39802 = t85690; /* x291877 */ /* x291876 */ t85691 = a39802; /* x291875 */ if (!((t85691.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34719]"); structure_ref_error();} if ((t85691.value.structure_type27698->s11.tag)==FALSE_TYPE) goto l16323; /* x93822 */ /* x93743 stalin.sc:8266:281555 */ /* x93741 stalin.sc:8266:281561 */ /* x93740 stalin.sc:8266:281576 */ /* x93739 stalin.sc:8266:281597 */ t85697 = e10391->a23294; /* x93738 stalin.sc:8266:281577 */ a39161 = t85697; /* x289313 */ /* x289312 */ t85698 = a39161; /* x289311 */ if (!((t85698.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34078]"); structure_ref_error();} t85695 = t85698.value.structure_type27698->s16; /* x93737 stalin.sc:8266:281562 */ a36975 = t85695; /* x280569 */ /* x280568 */ t85696 = a36975; /* x280567 */ if (!((t85696.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-NAME[6573] 31892]"); structure_ref_error();} t85692 = t85696.value.structure_type27692->s7; /* x93742 stalin.sc:8267:281604 */ t85693 = a1389; /* x93736 stalin.sc:8266:281556 */ t85694.tag = STRUCTURE_TYPE24753; t85694.value.structure_type24753 = t85693; if ((f26354(t85692, t85694).tag)==FALSE_TYPE) goto l16323; /* x93820 */ /* x93754 stalin.sc:8268:281640 */ /* x93753 stalin.sc:8269:281650 */ /* x93752 stalin.sc:8270:281664 */ /* x93751 stalin.sc:8270:281672 */ /* x93750 stalin.sc:8270:281694 */ /* x93749 stalin.sc:8270:281715 */ t85703 = e10391->a23294; /* x93748 stalin.sc:8270:281695 */ a39121 = t85703; /* x289153 */ /* x289152 */ t85704 = a39121; /* x289151 */ if (!((t85704.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34038]"); structure_ref_error();} t85701 = t85704.value.structure_type27698->s16; /* x93747 stalin.sc:8270:281673 */ a36906 = t85701; /* x280293 */ /* x280292 */ t85702 = a36906; /* x280291 */ if (!((t85702.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31823]"); structure_ref_error();} t85700 = t85702.value.structure_type27692->s8; /* x93746 stalin.sc:8270:281665 */ t85699 = f8682(t85700); /* x93745 stalin.sc:8269:281651 */ if (!(f8581(t85699)==FALSE_TYPE)) goto l16323; /* x93818 */ /* x93817 stalin.sc:8271:281730 */ /* x93816 stalin.sc:8272:281747 */ /* x93815 stalin.sc:8273:281758 */ /* x93814 stalin.sc:8274:281770 */ /* x93813 stalin.sc:8274:281792 */ /* x93812 stalin.sc:8274:281813 */ t85710 = e10391->a23294; /* x93811 stalin.sc:8274:281793 */ a39120 = t85710; /* x289149 */ /* x289148 */ t85711 = a39120; /* x289147 */ if (!((t85711.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34037]"); structure_ref_error();} t85708 = t85711.value.structure_type27698->s16; /* x93810 stalin.sc:8274:281771 */ a36905 = t85708; /* x280289 */ /* x280288 */ t85709 = a36905; /* x280287 */ if (!((t85709.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31822]"); structure_ref_error();} t85707 = t85709.value.structure_type27692->s8; /* x93809 stalin.sc:8273:281759 */ t85706 = f8682(t85707); /* x93808 stalin.sc:8272:281748 */ t85705 = f8682(t85706); /* x93807 stalin.sc:8271:281731 */ if (!(f8581(t85705)==FALSE_TYPE)) goto l16322; p10392 = e10391; /* x93804 */ /* x93771 stalin.sc:8276:281842 */ /* x93770 stalin.sc:8277:281850 */ /* x93769 stalin.sc:8278:281862 */ /* x93768 stalin.sc:8279:281875 */ /* x93767 stalin.sc:8280:281889 */ /* x93766 stalin.sc:8281:281904 */ /* x93765 stalin.sc:8281:281926 */ /* x93764 stalin.sc:8281:281947 */ t85718 = p10392->a23294; /* x93763 stalin.sc:8281:281927 */ a39119 = t85718; /* x289145 */ /* x289144 */ t85719 = a39119; /* x289143 */ if (!((t85719.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34036]"); structure_ref_error();} t85716 = t85719.value.structure_type27698->s16; /* x93762 stalin.sc:8281:281905 */ a36904 = t85716; /* x280285 */ /* x280284 */ t85717 = a36904; /* x280283 */ if (!((t85717.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31821]"); structure_ref_error();} t85715 = t85717.value.structure_type27692->s8; /* x93761 stalin.sc:8280:281890 */ t85714 = f8682(t85715); /* x93760 stalin.sc:8279:281876 */ t85713 = f8682(t85714); /* x93759 stalin.sc:8278:281863 */ t85712 = f8682(t85713); /* x93758 stalin.sc:8277:281851 */ if (!(f8581(t85712)==FALSE_TYPE)) goto l16323; /* x93802 */ /* x93786 stalin.sc:8282:281965 */ /* x93785 stalin.sc:8283:281976 */ /* x93784 stalin.sc:8284:281988 */ /* x93783 stalin.sc:8285:282001 */ /* x93782 stalin.sc:8286:282015 */ /* x93781 stalin.sc:8287:282030 */ /* x93780 stalin.sc:8287:282052 */ /* x93779 stalin.sc:8287:282073 */ t85727 = p10392->a23294; /* x93778 stalin.sc:8287:282053 */ a39118 = t85727; /* x289141 */ /* x289140 */ t85728 = a39118; /* x289139 */ if (!((t85728.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34035]"); structure_ref_error();} t85725 = t85728.value.structure_type27698->s16; /* x93777 stalin.sc:8287:282031 */ a36903 = t85725; /* x280281 */ /* x280280 */ t85726 = a36903; /* x280279 */ if (!((t85726.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31820]"); structure_ref_error();} t85724 = t85726.value.structure_type27692->s8; /* x93776 stalin.sc:8286:282016 */ t85723 = f8682(t85724); /* x93775 stalin.sc:8285:282002 */ t85722 = f8682(t85723); /* x93774 stalin.sc:8284:281989 */ t85721 = f8682(t85722); /* x93773 stalin.sc:8283:281977 */ t85720 = f8682(t85721); /* x93772 stalin.sc:8282:281966 */ if (f8581(t85720)==FALSE_TYPE) goto l16323; /* x93800 */ /* x93799 stalin.sc:8288:282096 */ /* x93798 stalin.sc:8291:282189 */ t85730 = a2028; /* x93797 stalin.sc:8288:282102 */ t85729 = p10392; /* x93788 stalin.sc:8288:282097 */ t85731.tag = NATIVE_PROCEDURE_TYPE19020; t85731.value.native_procedure_type19020 = t85729; t85732 = *((struct w49 *)(&t85730)); t85733 = (struct structure_type24753 *)NULL_TYPE; if (!((f1042(t85731, t85732, t85733).tag)==FALSE_TYPE)) goto l16323; break; case NATIVE_PROCEDURE_TYPE17070: a23235 = t85487; e10307 = (struct p10307 *)alloca(sizeof(struct p10307)); if (e10307==NULL) {backtrace("stalin.sc", 7673, 262898); out_of_memory_error();} e10307->a23235 = a23235; /* x92319 stalin.sc:7674:262912 */ /* x92279 stalin.sc:7674:262917 */ /* x92277 stalin.sc:7674:262922 */ /* x92276 stalin.sc:7674:262939 */ t85736 = e10307->a23235; /* x92275 stalin.sc:7674:262923 */ a40373 = t85736; /* x294161 */ /* x294160 */ t85737 = a40373; /* x294159 */ if (!((t85737.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35290]"); structure_ref_error();} t85734 = t85737.value.structure_type27698->s0; /* x92278 stalin.sc:7674:262942 */ t85735 = q42; /* x269826 stalin.sc:7674:262918 */ if (!(t85734==t85735)) goto l16323; /* x92317 */ /* x92287 stalin.sc:7675:262956 */ /* x92285 stalin.sc:7675:262961 */ /* x92284 stalin.sc:7675:262978 */ /* x92283 stalin.sc:7675:262997 */ t85742 = e10307->a23235; /* x92282 stalin.sc:7675:262979 */ a39080 = t85742; /* x288989 */ /* x288988 */ t85743 = a39080; /* x288987 */ if (!((t85743.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33997]"); structure_ref_error();} t85740 = t85743.value.structure_type27698->s17; /* x92281 stalin.sc:7675:262962 */ a40372 = t85740; /* x294157 */ /* x294156 */ t85741 = a40372; /* x294155 */ if (!((t85741.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35289]"); structure_ref_error();} t85738 = t85741.value.structure_type27698->s0; /* x92286 stalin.sc:7675:263001 */ t85739 = q39; /* x269825 stalin.sc:7675:262957 */ if (!(t85738==t85739)) goto l16323; /* x92315 */ /* x92293 stalin.sc:7676:263017 */ /* x92291 stalin.sc:7676:263023 */ /* x92290 stalin.sc:7676:263044 */ t85747 = e10307->a23235; /* x92289 stalin.sc:7676:263024 */ a39172 = t85747; /* x289357 */ /* x289356 */ t85748 = a39172; /* x289355 */ if (!((t85748.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34089]"); structure_ref_error();} t85744 = t85748.value.structure_type27698->s16; /* x92292 stalin.sc:7676:263047 */ t85745 = a23109; /* x92288 stalin.sc:7676:263018 */ t85746 = *((struct w49 *)(&t85745)); if ((f26351(t85744, t85746).tag)==FALSE_TYPE) goto l16323; /* x92313 */ /* x92312 stalin.sc:7681:263195 */ t85750 = a2031; /* x92311 stalin.sc:7677:263063 */ t85749 = e10307; /* x92294 stalin.sc:7677:263059 */ t85751.tag = NATIVE_PROCEDURE_TYPE17071; t85751.value.native_procedure_type17071 = t85749; t85752 = *((struct w227393 *)(&t85750)); if (f1080(t85751, t85752)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE17108: a23930 = t85487; /* x104076 stalin.sc:10236:354615 */ /* x103997 stalin.sc:10238:354688 */ /* x103996 stalin.sc:10238:354697 */ t85753 = a23930; /* x103995 stalin.sc:10238:354689 */ if ((f8899(t85753).tag)==FALSE_TYPE) goto l16323; /* x104074 */ /* x104002 stalin.sc:10240:354738 */ /* x104001 stalin.sc:10240:354743 */ /* x104000 stalin.sc:10240:354750 */ t85754 = a23930; /* x103999 stalin.sc:10240:354744 */ if (!(f8918(t85754)==FALSE_TYPE)) goto l16323; /* x104072 */ /* x104008 stalin.sc:10242:354826 */ /* x104006 stalin.sc:10242:354831 */ /* x104005 stalin.sc:10242:354850 */ t85756 = a23930; /* x104004 stalin.sc:10242:354832 */ a36617 = t85756; /* x279137 */ /* x279136 */ t85757 = a36617; /* x279135 */ if (!((t85757.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-SPLIT[6655] 31534]"); structure_ref_error();} t85755 = t85757.value.structure_type27694->s3; /* x104007 stalin.sc:10242:354853 */ /* x269504 stalin.sc:10242:354827 */ if (!(t85755==((char *)FALSE_TYPE))) goto l16323; /* x104070 */ /* x104069 stalin.sc:10246:355032 */ /* x104068 stalin.sc:10254:355318 */ /* x104067 stalin.sc:10254:355330 */ t85762 = a23930; /* x104066 stalin.sc:10254:355319 */ t85758 = f8615(t85762); /* x104065 stalin.sc:10246:355038 */ /* x104010 stalin.sc:10246:355033 */ t85759.tag = NATIVE_PROCEDURE_TYPE21400; /* MOVE: branching squeezed to general */ if (t85758>=((struct structure_type24753 *)VALUE_OFFSET)) {t85760.tag = STRUCTURE_TYPE24753; t85760.value.structure_type24753 = t85758;} else t85760.tag = (unsigned)t85758; t85761 = (struct structure_type24753 *)NULL_TYPE; if (!((f1042(t85759, t85760, t85761).tag)==FALSE_TYPE)) goto l16323; break; case NATIVE_PROCEDURE_TYPE17198: a23211 = t85487; /* x91871 stalin.sc:8020:273552 */ /* x91870 stalin.sc:8020:273574 */ /* x91869 stalin.sc:8020:273598 */ t85765 = a23211; /* x91868 stalin.sc:8020:273575 */ a36723 = t85765; /* x279561 */ /* x279560 */ t85766 = a36723; /* x279559 */ if (!((t85766.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31640]"); structure_ref_error();} t85763 = t85766.value.structure_type27694->s1; /* x91867 stalin.sc:8020:273553 */ t85764 = *((struct w49 *)(&t85763)); if (f6936(t85764)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE17804: a24619 = t85487; e12479 = (struct p12479 *)alloca(sizeof(struct p12479)); if (e12479==NULL) {backtrace("stalin.sc", 12006, 419056); out_of_memory_error();} e12479->a24619 = a24619; /* x111250 stalin.sc:12007:419075 */ /* x111172 stalin.sc:12008:419088 */ /* x111171 stalin.sc:12008:419099 */ t85767 = e12479->a24619; /* x111170 stalin.sc:12008:419089 */ if (f6967(t85767)==FALSE_TYPE) goto l16323; /* x111248 */ /* x111177 stalin.sc:12009:419110 */ /* x111176 stalin.sc:12009:419115 */ /* x111175 stalin.sc:12009:419127 */ t85768 = e12479->a24619; /* x111174 stalin.sc:12009:419116 */ if (!(f8944(t85768)==FALSE_TYPE)) goto l16323; /* x111246 */ /* x111240 stalin.sc:12011:419150 */ t85769 = e12479; /* x111245 stalin.sc:12033:419757 */ /* x111244 stalin.sc:12033:419778 */ /* x111243 stalin.sc:12033:419797 */ t85774 = e12479->a24619; /* x111242 stalin.sc:12033:419779 */ a38684 = t85774; /* x287405 */ /* x287404 */ t85775 = a38684; /* x287403 */ if (!((t85775.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33601]"); structure_ref_error();} t85772 = t85775.value.structure_type27698->s21; /* x111241 stalin.sc:12033:419758 */ a39992 = t85772; /* x292637 */ /* x292636 */ t85773 = a39992; /* x292635 */ if (!((t85773.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34909]"); structure_ref_error();} t85770 = t85773.value.structure_type27698->s10; /* x111178 stalin.sc:12010:419140 */ t85771.tag = NATIVE_PROCEDURE_TYPE17805; t85771.value.native_procedure_type17805 = t85769; if ((f8137(t85771, t85770).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE17808: p12477 = t85486.value.native_procedure_type17808; a24617 = t85487; e12477 = (struct p12477 *)alloca(sizeof(struct p12477)); if (e12477==NULL) {backtrace("stalin.sc", 12039, 419990); out_of_memory_error();} e12477->p12476 = p12477; e12477->a24617 = a24617; /* x111160 stalin.sc:12040:420010 */ /* x111132 stalin.sc:12041:420023 */ /* x111131 stalin.sc:12041:420034 */ t85776 = e12477->a24617; /* x111130 stalin.sc:12041:420024 */ if (f6967(t85776)==FALSE_TYPE) goto l16323; /* x111158 */ /* x111152 stalin.sc:12043:420064 */ t85777 = e12477; /* x111157 stalin.sc:12048:420214 */ /* x111156 stalin.sc:12048:420235 */ /* x111155 stalin.sc:12048:420254 */ t85782 = e12477->a24617; /* x111154 stalin.sc:12048:420236 */ a38683 = t85782; /* x287401 */ /* x287400 */ t85783 = a38683; /* x287399 */ if (!((t85783.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33600]"); structure_ref_error();} t85780 = t85783.value.structure_type27698->s21; /* x111153 stalin.sc:12048:420215 */ a39991 = t85780; /* x292633 */ /* x292632 */ t85781 = a39991; /* x292631 */ if (!((t85781.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34908]"); structure_ref_error();} t85778 = t85781.value.structure_type27698->s10; /* x111133 stalin.sc:12042:420047 */ t85779.tag = NATIVE_PROCEDURE_TYPE17809; t85779.value.native_procedure_type17809 = t85777; if ((f8137(t85779, t85778).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE18400: a23498 = t85487; /* x97713 stalin.sc:9190:315069 */ /* x97712 stalin.sc:9190:315074 */ /* x97711 stalin.sc:9190:315087 */ t85784 = a23498; /* x97710 stalin.sc:9190:315075 */ if (!(f7679(t85784)==FALSE_TYPE)) goto l16323; break; case NATIVE_PROCEDURE_TYPE18547: p15972 = t85486.value.native_procedure_type18547; a27074 = t85487; /* x149284 stalin.sc:20068:702446 */ /* x149268 stalin.sc:20068:702451 */ /* x149267 stalin.sc:20068:702472 */ t85785 = a27074; /* x149266 stalin.sc:20068:702452 */ a37551 = t85785; /* x282873 */ /* x282872 */ t85786 = a37551; /* x282871 */ if (!((t85786.tag)==STRUCTURE_TYPE27761)) goto l16323; /* x149282 */ /* x149281 stalin.sc:20073:702598 */ /* x149280 stalin.sc:20073:702619 */ t85809 = p15972->a27041; /* x149279 stalin.sc:20073:702599 */ a39523 = t85809; /* x290761 */ /* x290760 */ t85810 = a39523; /* x290759 */ if (!((t85810.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34440]"); structure_ref_error();} t85787 = t85810.value.structure_type27698->s12; /* x149278 stalin.sc:20070:702498 */ /* x149269 stalin.sc:20069:702480 */ a14733 = t85787; /* x14619 QobiScheme.sc:337:10242 */ /* x14618 QobiScheme.sc:337:10256 */ t85788 = 0; /* x14617 */ /* x14616 */ /* x14615 */ /* x14614 */ /* x14613 */ /* x14612 */ /* x14611 */ /* x14576 */ /* x14575 QobiScheme.sc:337:10247 */ a14737 = t85788; h1076: e1076 = (struct p1076 *)alloca(sizeof(struct p1076)); if (e1076==NULL) {backtrace_internal("[inside EVERY-VECTOR 1074]"); out_of_memory_error();} e1076->a14737 = a14737; /* x14610 QobiScheme.sc:338:10262 */ /* x14609 QobiScheme.sc:338:10266 */ /* x14605 QobiScheme.sc:338:10270 */ t85789 = e1076->a14737; /* x14608 QobiScheme.sc:338:10272 */ /* x14607 QobiScheme.sc:338:10287 */ t85791 = a14733; /* x270946 QobiScheme.sc:338:10273 */ if (!((t85791.tag)==HEADED_VECTOR_TYPE27896)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 338, 10272); vector_length_error();} t85790 = t85791.value.headed_vector_type27896->length; /* x270947 QobiScheme.sc:338:10267 */ if (t85789>=t85790) goto l16322; p1077 = e1076; /* x14601 */ /* x14593 QobiScheme.sc:339:10302 */ /* x14580 QobiScheme.sc:339:10309 */ /* x14584 QobiScheme.sc:340:10315 */ /* x14582 QobiScheme.sc:340:10327 */ t85800 = a14733; /* x14583 QobiScheme.sc:340:10329 */ t85801 = p1077->a14737; /* x270950 QobiScheme.sc:340:10316 */ if (!((t85800.tag)==HEADED_VECTOR_TYPE27896)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 340, 10315); vector_ref1_error();} if ((t85801<0)||(t85801>=(t85800.value.headed_vector_type27896->length))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 340, 10315); vector_ref3_error();} t85792 = (t85800.value.headed_vector_type27896->element)[t85801]; /* x14592 QobiScheme.sc:341:10336 */ /* x14591 QobiScheme.sc:341:10371 */ /* x14590 QobiScheme.sc:341:10341 */ t85802 = p1077; /* x14585 QobiScheme.sc:341:10337 */ t85803.tag = NATIVE_PROCEDURE_TYPE23320; t85803.value.native_procedure_type23320 = t85802; t85804.tag = NULL_TYPE; t85805 = (struct structure_type24753 *)NULL_TYPE; t85793 = f27731(t85803, t85804, t85805); /* x270951 QobiScheme.sc:339:10303 */ a27075 = t85792; if (!(((unsigned)t85793)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 339, 10302); call_error();} /* x149277 stalin.sc:20071:702516 */ /* x149273 stalin.sc:20071:702530 */ /* x149272 stalin.sc:20071:702551 */ t85796 = a27075; /* x149271 stalin.sc:20071:702531 */ a39874 = t85796; /* x292165 */ /* x292164 */ t85797 = a39874; /* x292163 */ if (!((t85797.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34791]"); structure_ref_error();} t85794 = t85797.value.structure_type27698->s10; /* x149276 stalin.sc:20072:702560 */ /* x149275 stalin.sc:20072:702588 */ t85798 = a27074; /* x149274 stalin.sc:20072:702561 */ a37498 = t85798; /* x282661 */ /* x282660 */ t85799 = a37498; /* x282659 */ if (!((t85799.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32415]"); structure_ref_error();} t85795 = t85799.value.structure_type27761->s0; /* x149270 stalin.sc:20071:702517 */ if (f8184(t85794, t85795)==FALSE_TYPE) goto l16323; /* x14599 */ /* x14598 QobiScheme.sc:342:10389 */ /* x14596 QobiScheme.sc:342:10392 */ t85807 = p1077->a14737; /* x14597 QobiScheme.sc:342:10394 */ t85808 = 1; /* x270948 QobiScheme.sc:342:10390 */ t85806 = t85807+t85808; /* x14594 QobiScheme.sc:342:10384 */ a14737 = t85806; goto h1076; break; case NATIVE_PROCEDURE_TYPE18563: p15966 = t85486.value.native_procedure_type18563; a27065 = t85487; /* x149128 stalin.sc:20010:700460 */ /* x149100 stalin.sc:20010:700465 */ /* x149099 stalin.sc:20010:700477 */ t85811 = a27065; /* x149098 stalin.sc:20010:700466 */ if (f7719(t85811)==FALSE_TYPE) goto l16323; /* x149126 */ /* x149112 stalin.sc:20011:700484 */ /* x149108 stalin.sc:20012:700503 */ /* x149107 stalin.sc:20012:700524 */ /* x149106 stalin.sc:20012:700529 */ /* x149105 stalin.sc:20012:700550 */ t85817 = p15966->a27041; /* x149104 stalin.sc:20012:700530 */ a39529 = t85817; /* x290785 */ /* x290784 */ t85818 = a39529; /* x290783 */ if (!((t85818.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34446]"); structure_ref_error();} t85816 = t85818.value.structure_type27698->s12; /* x268423 stalin.sc:20012:700525 */ if (!((t85816.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 20012, 700524); structure_ref_error();} t85814 = t85816.value.structure_type24753->s0; /* x149102 stalin.sc:20012:700504 */ a39878 = t85814; /* x292181 */ /* x292180 */ t85815 = a39878; /* x292179 */ if (!((t85815.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34795]"); structure_ref_error();} t85812 = t85815.value.structure_type27698->s10; /* x149111 stalin.sc:20013:700560 */ /* x149110 stalin.sc:20013:700575 */ t85819 = a27065; /* x149109 stalin.sc:20013:700561 */ t85813 = f7923(t85819); /* x149101 stalin.sc:20011:700485 */ if (f8184(t85812, t85813)==FALSE_TYPE) goto l16323; /* x149124 */ /* x149120 stalin.sc:20015:700602 */ /* x149119 stalin.sc:20015:700623 */ /* x149118 stalin.sc:20015:700628 */ /* x149117 stalin.sc:20015:700649 */ t85825 = p15966->a27041; /* x149116 stalin.sc:20015:700629 */ a39528 = t85825; /* x290781 */ /* x290780 */ t85826 = a39528; /* x290779 */ if (!((t85826.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34445]"); structure_ref_error();} t85824 = t85826.value.structure_type27698->s12; /* x268422 stalin.sc:20015:700624 */ if (!((t85824.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 20015, 700623); structure_ref_error();} t85822 = t85824.value.structure_type24753->s1; /* x149114 stalin.sc:20015:700603 */ a39877 = t85822; /* x292177 */ /* x292176 */ t85823 = a39877; /* x292175 */ if (!((t85823.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34794]"); structure_ref_error();} t85820 = t85823.value.structure_type27698->s10; /* x149123 stalin.sc:20016:700659 */ /* x149122 stalin.sc:20016:700674 */ t85827 = a27065; /* x149121 stalin.sc:20016:700660 */ t85821 = f7927(t85827); /* x149113 stalin.sc:20014:700584 */ if (f8184(t85820, t85821)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE18572: if (f7705((t85486.value.native_procedure_type18572), t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE18588: a27055 = t85487; /* x148787 stalin.sc:19998:699998 */ /* x148779 stalin.sc:19998:700003 */ /* x148778 stalin.sc:19998:700026 */ t85828 = a27055; /* x148777 stalin.sc:19998:700004 */ a38279 = t85828; /* x285785 */ /* x285784 */ t85829 = a38279; /* x285783 */ if (!((t85829.tag)==STRUCTURE_TYPE27779)) goto l16323; /* x148785 */ /* x148783 stalin.sc:19999:700037 */ /* x148782 stalin.sc:19999:700081 */ t85832 = a27055; /* x148781 stalin.sc:19999:700038 */ a38255 = t85832; /* x285689 */ /* x285688 */ t85833 = a38255; /* x285687 */ if (!((t85833.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-DISPLACED-STRING-TYPE[5845] 33172]"); structure_ref_error();} t85830 = t85833.value.structure_type27779->s0; /* x148784 stalin.sc:20000:700092 */ t85831 = a1941; /* x268433 stalin.sc:19999:700033 */ /* EQ: dispatching general to general */ if (!((t85830.tag)==(t85831.tag))) goto l16323; switch (t85830.tag) {case FIXNUM_TYPE: if (!((t85830.value.fixnum_type)==(t85831.value.fixnum_type))) goto l16323; break; case FLONUM_TYPE: if (!((t85830.value.flonum_type)==(t85831.value.flonum_type))) goto l16323; break; case INPUT_PORT_TYPE: if (!((t85830.value.input_port_type)==(t85831.value.input_port_type))) goto l16323; break; case OUTPUT_PORT_TYPE: if (!((t85830.value.output_port_type)==(t85831.value.output_port_type))) goto l16323; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t85830.value.native_procedure_type15963)==(t85831.value.native_procedure_type15963))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t85830.value.native_procedure_type19067)==(t85831.value.native_procedure_type19067))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t85830.value.native_procedure_type19068)==(t85831.value.native_procedure_type19068))) goto l16323; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t85830.value.native_procedure_type22459)==(t85831.value.native_procedure_type22459))) goto l16323; break; case STRUCTURE_TYPE24753: if (!((t85830.value.structure_type24753)==(t85831.value.structure_type24753))) goto l16323; break; case STRUCTURE_TYPE24757: if (!((t85830.value.structure_type24757)==(t85831.value.structure_type24757))) goto l16323; break; case STRUCTURE_TYPE27501: if (!((t85830.value.structure_type27501)==(t85831.value.structure_type27501))) goto l16323; break; case STRUCTURE_TYPE27510: if (!((t85830.value.structure_type27510)==(t85831.value.structure_type27510))) goto l16323; break; case STRUCTURE_TYPE27621: if (!((t85830.value.structure_type27621)==(t85831.value.structure_type27621))) goto l16323; break; case STRUCTURE_TYPE27650: if (!((t85830.value.structure_type27650)==(t85831.value.structure_type27650))) goto l16323; break; case STRUCTURE_TYPE27669: if (!((t85830.value.structure_type27669)==(t85831.value.structure_type27669))) goto l16323; break; case STRUCTURE_TYPE27673: if (!((t85830.value.structure_type27673)==(t85831.value.structure_type27673))) goto l16323; break; case STRUCTURE_TYPE27692: if (!((t85830.value.structure_type27692)==(t85831.value.structure_type27692))) goto l16323; break; case STRUCTURE_TYPE27694: if (!((t85830.value.structure_type27694)==(t85831.value.structure_type27694))) goto l16323; break; case STRUCTURE_TYPE27698: if (!((t85830.value.structure_type27698)==(t85831.value.structure_type27698))) goto l16323; break; case STRUCTURE_TYPE27745: if (!((t85830.value.structure_type27745)==(t85831.value.structure_type27745))) goto l16323; break; case STRUCTURE_TYPE27747: if (!((t85830.value.structure_type27747)==(t85831.value.structure_type27747))) goto l16323; break; case STRUCTURE_TYPE27750: if (!((t85830.value.structure_type27750)==(t85831.value.structure_type27750))) goto l16323; break; case STRUCTURE_TYPE27753: if (!((t85830.value.structure_type27753)==(t85831.value.structure_type27753))) goto l16323; break; case STRUCTURE_TYPE27756: if (!((t85830.value.structure_type27756)==(t85831.value.structure_type27756))) goto l16323; break; case STRUCTURE_TYPE27761: if (!((t85830.value.structure_type27761)==(t85831.value.structure_type27761))) goto l16323; break; case STRUCTURE_TYPE27769: if (!((t85830.value.structure_type27769)==(t85831.value.structure_type27769))) goto l16323; break; case STRUCTURE_TYPE27776: if (!((t85830.value.structure_type27776)==(t85831.value.structure_type27776))) goto l16323; break; case STRUCTURE_TYPE27779: if (!((t85830.value.structure_type27779)==(t85831.value.structure_type27779))) goto l16323; break; case STRUCTURE_TYPE27858: if (!((t85830.value.structure_type27858)==(t85831.value.structure_type27858))) goto l16323; break; case STRING_TYPE: if (!((t85830.value.string_type)==(t85831.value.string_type))) goto l16323; break; case HEADED_VECTOR_TYPE27896: if (!((t85830.value.headed_vector_type27896)==(t85831.value.headed_vector_type27896))) goto l16323; break; case EXTERNAL_SYMBOL_TYPE: if (!((t85830.value.external_symbol_type)==(t85831.value.external_symbol_type))) goto l16323; break; case STRUCTURE_TYPE27908: if (!((t85830.value.structure_type27908)==(t85831.value.structure_type27908))) goto l16323; break; default:;} break; case NATIVE_PROCEDURE_TYPE18685: a26847 = t85487; /* x145582 stalin.sc:19285:675476 */ /* x145581 stalin.sc:19285:675480 */ /* x145580 stalin.sc:19285:675488 */ t85834 = a26847; /* x145579 stalin.sc:19285:675481 */ a41731 = t85834; /* x301036 stalin.sc:3890:131852 */ /* x301035 stalin.sc:3890:131869 */ t85835 = a41731; /* x301034 stalin.sc:3890:131853 */ if (!(f8204(t85835)==FALSE_TYPE)) goto l16322; /* x145576 */ /* x145575 stalin.sc:19285:675501 */ t85836 = a26847; /* x145574 stalin.sc:19285:675492 */ a41645 = t85836; /* x300692 stalin.sc:3965:133896 */ /* x300691 stalin.sc:3965:133915 */ t85837 = a41645; /* x300690 stalin.sc:3965:133897 */ if (f8219(t85837)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE18688: a27154 = t85487; /* x151311 stalin.sc:20548:719480 */ /* x151310 stalin.sc:20548:719484 */ /* x151309 stalin.sc:20548:719492 */ t85838 = a27154; /* x151308 stalin.sc:20548:719485 */ a41730 = t85838; /* x301032 stalin.sc:3890:131852 */ /* x301031 stalin.sc:3890:131869 */ t85839 = a41730; /* x301030 stalin.sc:3890:131853 */ if (!(f8204(t85839)==FALSE_TYPE)) goto l16322; /* x151305 */ /* x151304 stalin.sc:20548:719505 */ t85840 = a27154; /* x151303 stalin.sc:20548:719496 */ a41644 = t85840; /* x300688 stalin.sc:3965:133896 */ /* x300687 stalin.sc:3965:133915 */ t85841 = a41644; /* x300686 stalin.sc:3965:133897 */ if (f8219(t85841)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE18696: a26843 = t85487; /* x145532 stalin.sc:19271:675004 */ /* x145531 stalin.sc:19271:675008 */ /* x145530 stalin.sc:19271:675016 */ t85842 = a26843; /* x145529 stalin.sc:19271:675009 */ a41732 = t85842; /* x301040 stalin.sc:3890:131852 */ /* x301039 stalin.sc:3890:131869 */ t85843 = a41732; /* x301038 stalin.sc:3890:131853 */ if (!(f8204(t85843)==FALSE_TYPE)) goto l16322; /* x145526 */ /* x145525 stalin.sc:19271:675029 */ t85844 = a26843; /* x145524 stalin.sc:19271:675020 */ a41646 = t85844; /* x300696 stalin.sc:3965:133896 */ /* x300695 stalin.sc:3965:133915 */ t85845 = a41646; /* x300694 stalin.sc:3965:133897 */ if (f8219(t85845)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE18781: p8677 = t85486.value.native_procedure_type18781; a22160 = t85487; /* x74058 stalin.sc:4337:145636 */ /* x74057 stalin.sc:4337:145640 */ /* x74056 stalin.sc:4337:145662 */ t85846 = a22160; /* x74055 stalin.sc:4337:145641 */ if (!(f8751(t85846)==FALSE_TYPE)) goto l16322; p8678 = p8677; /* x74052 */ /* x74051 stalin.sc:4338:145678 */ /* x74049 stalin.sc:4338:145705 */ t85847 = a22160; /* x74050 stalin.sc:4338:145707 */ t85848 = p8678->a22155; /* x74048 stalin.sc:4338:145679 */ if (!(f8791(t85847, t85848)==FALSE_TYPE)) goto l16323; break; case NATIVE_PROCEDURE_TYPE18821: a33243 = t85487; /* x227658 stalin.sc:32212:1112576 */ /* x227657 stalin.sc:32212:1112580 */ /* x227656 stalin.sc:32212:1112588 */ t85849 = a33243; /* x227655 stalin.sc:32212:1112581 */ a41733 = t85849; /* x301044 stalin.sc:3890:131852 */ /* x301043 stalin.sc:3890:131869 */ t85850 = a41733; /* x301042 stalin.sc:3890:131853 */ if (!(f8204(t85850)==FALSE_TYPE)) goto l16322; /* x227652 */ /* x227651 stalin.sc:32212:1112591 */ /* x227650 stalin.sc:32212:1112600 */ t85851 = a33243; /* x227649 stalin.sc:32212:1112592 */ a41695 = t85851; /* x300892 stalin.sc:3916:132554 */ /* x300891 stalin.sc:3916:132572 */ t85852 = a41695; /* x300890 stalin.sc:3916:132555 */ if (!(f8209(t85852)==FALSE_TYPE)) goto l16322; /* x227646 */ /* x227645 stalin.sc:32212:1112603 */ /* x227644 stalin.sc:32212:1112612 */ t85853 = a33243; /* x227643 stalin.sc:32212:1112604 */ a41664 = t85853; /* x300768 stalin.sc:3942:133266 */ /* x300767 stalin.sc:3942:133284 */ t85854 = a41664; /* x300766 stalin.sc:3942:133267 */ if (!(f8214(t85854)==FALSE_TYPE)) goto l16322; /* x227640 */ /* x227639 stalin.sc:32212:1112625 */ t85855 = a33243; /* x227638 stalin.sc:32212:1112616 */ a41647 = t85855; /* x300700 stalin.sc:3965:133896 */ /* x300699 stalin.sc:3965:133915 */ t85856 = a41647; /* x300698 stalin.sc:3965:133897 */ if (f8219(t85856)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE19067: if ((f7905((t85486.value.native_procedure_type19067), t85487).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE19068: if ((f7893((t85486.value.native_procedure_type19068), t85487).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE19459: p11521 = t85486.value.native_procedure_type19459; a23923 = t85487; /* x103900 stalin.sc:10343:358428 */ /* x103872 stalin.sc:10345:358491 */ /* x103871 stalin.sc:10345:358512 */ t85857 = a23923; /* x103870 stalin.sc:10345:358492 */ if (f8752(t85857)==FALSE_TYPE) goto l16323; /* x103898 */ /* x103877 stalin.sc:10347:358588 */ /* x103876 stalin.sc:10347:358599 */ /* x103875 stalin.sc:10347:358621 */ t85859 = a23923; /* x103874 stalin.sc:10347:358600 */ a36454 = t85859; /* x278485 */ /* x278484 */ t85860 = a36454; /* x278483 */ if (!((t85860.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31371]"); structure_ref_error();} t85858 = t85860.value.structure_type27745->s0; /* x103873 stalin.sc:10347:358589 */ if (f6967(t85858)==FALSE_TYPE) goto l16323; /* x103896 */ /* x103884 stalin.sc:10348:358632 */ /* x103883 stalin.sc:10348:358683 */ t85862 = p11521->a23900; /* x103882 stalin.sc:10348:358633 */ /* x103881 stalin.sc:10348:358657 */ /* x103880 stalin.sc:10348:358679 */ t85864 = a23923; /* x103879 stalin.sc:10348:358658 */ a36453 = t85864; /* x278481 */ /* x278480 */ t85865 = a36453; /* x278479 */ if (!((t85865.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31370]"); structure_ref_error();} t85863 = t85865.value.structure_type27745->s0; /* x103878 stalin.sc:10348:358634 */ t85861 = f7917(t85863); if ((t85861&3)==1) {if ((f7905(((struct p7892 *)(t85861-1)), t85862).tag)==FALSE_TYPE) goto l16323;} else if ((f7893(((struct p7892 *)t85861), t85862).tag)==FALSE_TYPE) goto l16323; /* x103894 */ /* x103893 stalin.sc:10351:358796 */ /* x103891 stalin.sc:10352:358814 */ /* x103890 stalin.sc:10352:358838 */ /* x103889 stalin.sc:10352:358860 */ t85870 = a23923; /* x103888 stalin.sc:10352:358839 */ a36450 = t85870; /* x278469 */ /* x278468 */ t85871 = a36450; /* x278467 */ if (!((t85871.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31367]"); structure_ref_error();} t85868 = t85871.value.structure_type27745->s0; /* x103887 stalin.sc:10352:358815 */ a40072 = t85868; /* x292957 */ /* x292956 */ t85869 = a40072; /* x292955 */ if (!((t85869.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34989]"); structure_ref_error();} t85866 = t85869.value.structure_type27698->s9; /* x103892 stalin.sc:10353:358870 */ t85867 = p11521->p11498->a23899; /* x103886 stalin.sc:10351:358797 */ if (!(f8736(t85866, t85867)==FALSE_TYPE)) goto l16323; break; case NATIVE_PROCEDURE_TYPE19555: if (f9842(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE19878: if ((f7880((t85486.value.native_procedure_type19878), t85487).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE19886: if ((f7874((t85486.value.native_procedure_type19886), t85487).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE20074: a25570 = t85487; /* x125641 stalin.sc:15206:530377 */ /* x125634 stalin.sc:15206:530382 */ /* x125633 stalin.sc:15206:530387 */ /* x125632 stalin.sc:15206:530399 */ t85872 = a25570; /* x125631 stalin.sc:15206:530388 */ if (!(f7682(t85872)==FALSE_TYPE)) goto l16323; /* x125639 */ /* x125638 stalin.sc:15206:530408 */ /* x125637 stalin.sc:15206:530421 */ t85873 = a25570; /* x125636 stalin.sc:15206:530409 */ if (!(f8793(t85873)==FALSE_TYPE)) goto l16323; break; case NATIVE_PROCEDURE_TYPE20108: a25689 = t85487; /* x127472 stalin.sc:15673:546880 */ /* x127465 stalin.sc:15673:546885 */ /* x127464 stalin.sc:15673:546890 */ /* x127463 stalin.sc:15673:546902 */ t85874 = a25689; /* x127462 stalin.sc:15673:546891 */ if (!(f7682(t85874)==FALSE_TYPE)) goto l16323; /* x127470 */ /* x127469 stalin.sc:15673:546911 */ /* x127468 stalin.sc:15673:546924 */ t85875 = a25689; /* x127467 stalin.sc:15673:546912 */ if (!(f8793(t85875)==FALSE_TYPE)) goto l16323; break; case NATIVE_PROCEDURE_TYPE20151: a25731 = t85487; /* x128046 stalin.sc:15812:551103 */ /* x128039 stalin.sc:15812:551108 */ /* x128038 stalin.sc:15812:551113 */ /* x128037 stalin.sc:15812:551125 */ t85876 = a25731; /* x128036 stalin.sc:15812:551114 */ if (!(f7682(t85876)==FALSE_TYPE)) goto l16323; /* x128044 */ /* x128043 stalin.sc:15812:551134 */ /* x128042 stalin.sc:15812:551147 */ t85877 = a25731; /* x128041 stalin.sc:15812:551135 */ if (!(f8793(t85877)==FALSE_TYPE)) goto l16323; break; case NATIVE_PROCEDURE_TYPE20152: a25730 = t85487; /* x128022 stalin.sc:15803:550840 */ /* x128015 stalin.sc:15803:550845 */ /* x128014 stalin.sc:15803:550850 */ /* x128013 stalin.sc:15803:550862 */ t85878 = a25730; /* x128012 stalin.sc:15803:550851 */ if (!(f7682(t85878)==FALSE_TYPE)) goto l16323; /* x128020 */ /* x128019 stalin.sc:15803:550871 */ /* x128018 stalin.sc:15803:550884 */ t85879 = a25730; /* x128017 stalin.sc:15803:550872 */ if (!(f8793(t85879)==FALSE_TYPE)) goto l16323; break; case NATIVE_PROCEDURE_TYPE20287: if ((f15484((t85486.value.native_procedure_type20287), t85487).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE20433: a26581 = t85487; /* x140447 stalin.sc:18104:635209 */ /* x140446 stalin.sc:18104:635213 */ /* x140445 stalin.sc:18104:635218 */ /* x140444 stalin.sc:18104:635230 */ t85880 = a26581; /* x140443 stalin.sc:18104:635219 */ if (f7682(t85880)==FALSE_TYPE) goto l16322; /* x140439 */ /* x140438 stalin.sc:18104:635239 */ /* x140437 stalin.sc:18104:635252 */ t85881 = a26581; /* x140436 stalin.sc:18104:635240 */ if (!(f8793(t85881)==FALSE_TYPE)) goto l16323; break; case NATIVE_PROCEDURE_TYPE20497: if ((f15473((t85486.value.native_procedure_type20497), t85487).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE20553: if ((f15456((t85486.value.native_procedure_type20553), t85487).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE20857: a26100 = t85487; /* x133065 stalin.sc:16884:589780 */ /* x133064 stalin.sc:16884:589785 */ /* x133063 stalin.sc:16884:589797 */ t85882 = a26100; /* x133062 stalin.sc:16884:589786 */ if (!(f7682(t85882)==FALSE_TYPE)) goto l16323; break; case NATIVE_PROCEDURE_TYPE20865: a26077 = t85487; /* x132812 stalin.sc:16796:587049 */ /* x132811 stalin.sc:16796:587054 */ /* x132810 stalin.sc:16796:587067 */ t85883 = a26077; /* x132809 stalin.sc:16796:587055 */ if (!(f8793(t85883)==FALSE_TYPE)) goto l16323; break; case NATIVE_PROCEDURE_TYPE20866: a26076 = t85487; /* x132803 stalin.sc:16795:586964 */ /* x132796 stalin.sc:16795:586969 */ /* x132795 stalin.sc:16795:586974 */ /* x132794 stalin.sc:16795:586986 */ t85884 = a26076; /* x132793 stalin.sc:16795:586975 */ if (!(f7682(t85884)==FALSE_TYPE)) goto l16323; /* x132801 */ /* x132800 stalin.sc:16795:586995 */ /* x132799 stalin.sc:16795:587008 */ t85885 = a26076; /* x132798 stalin.sc:16795:586996 */ if (!(f8793(t85885)==FALSE_TYPE)) goto l16323; break; case NATIVE_PROCEDURE_TYPE20874: a26065 = t85487; /* x132592 stalin.sc:16734:585264 */ /* x132591 stalin.sc:16734:585269 */ /* x132590 stalin.sc:16734:585282 */ t85886 = a26065; /* x132589 stalin.sc:16734:585270 */ if (!(f8793(t85886)==FALSE_TYPE)) goto l16323; break; case NATIVE_PROCEDURE_TYPE20875: a26064 = t85487; /* x132583 stalin.sc:16733:585179 */ /* x132576 stalin.sc:16733:585184 */ /* x132575 stalin.sc:16733:585189 */ /* x132574 stalin.sc:16733:585201 */ t85887 = a26064; /* x132573 stalin.sc:16733:585190 */ if (!(f7682(t85887)==FALSE_TYPE)) goto l16323; /* x132581 */ /* x132580 stalin.sc:16733:585210 */ /* x132579 stalin.sc:16733:585223 */ t85888 = a26064; /* x132578 stalin.sc:16733:585211 */ if (!(f8793(t85888)==FALSE_TYPE)) goto l16323; break; case NATIVE_PROCEDURE_TYPE20903: p16401 = t85486.value.native_procedure_type20903; a27493 = t85487; /* x154046 stalin.sc:21103:738041 */ /* x154036 stalin.sc:21103:738046 */ /* x154035 stalin.sc:21105:738134 */ t85890 = a27493; /* x154034 stalin.sc:21103:738047 */ /* x154033 stalin.sc:21104:738078 */ /* x154032 stalin.sc:21104:738085 */ /* x154031 stalin.sc:21104:738121 */ t85894 = p16401->a27472; /* x154030 stalin.sc:21104:738086 */ a38168 = t85894; /* x285341 */ /* x285340 */ t85895 = a38168; /* x285339 */ if (!((t85895.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33085]"); structure_ref_error();} t85892 = t85895.value.structure_type27753->s1; /* x154029 stalin.sc:21104:738079 */ a35900 = t85892; /* x274957 */ /* x274956 */ t85893 = a35900; /* x274955 */ if (!((t85893.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30049]"); structure_ref_error();} t85891 = t85893.value.structure_type24753->s0; /* x154028 stalin.sc:21103:738048 */ t85889 = f7717(t85891); if (f7718(t85889, t85890)==FALSE_TYPE) goto l16323; /* x154044 */ /* x154040 stalin.sc:21106:738149 */ /* x154039 stalin.sc:21106:738171 */ t85898 = p16401->a27471; /* x154038 stalin.sc:21106:738150 */ a36396 = t85898; /* x278253 */ /* x278252 */ t85899 = a36396; /* x278251 */ t85896 = t85899->s0; /* x154043 stalin.sc:21107:738179 */ /* x154042 stalin.sc:21107:738218 */ t85900 = a27493; /* x154041 stalin.sc:21107:738180 */ a37610 = t85900; /* x283109 */ /* x283108 */ t85901 = a37610; /* x283107 */ if (!((t85901.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-ALLOCATING-EXPRESSIONS[6185] 32527]"); structure_ref_error();} t85897 = t85901.value.structure_type27769->s2; /* x154037 stalin.sc:21106:738144 */ if ((f26351(t85896, t85897).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE20929: if (f16596(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE20930: a27785 = t85487; /* x156548 stalin.sc:21687:760156 */ /* x156541 stalin.sc:21687:760161 */ /* x156540 stalin.sc:21687:760166 */ /* x156539 stalin.sc:21687:760178 */ t85902 = a27785; /* x156538 stalin.sc:21687:760167 */ if (!(f7682(t85902)==FALSE_TYPE)) goto l16323; /* x156546 */ /* x156545 stalin.sc:21688:760198 */ /* x156544 stalin.sc:21688:760211 */ t85903 = a27785; /* x156543 stalin.sc:21688:760199 */ if (!(f8793(t85903)==FALSE_TYPE)) goto l16323; break; case NATIVE_PROCEDURE_TYPE21067: if (f16816(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE21089: p16647 = t85486.value.native_procedure_type21089; a27968 = t85487; /* x156935 stalin.sc:21813:763692 */ /* x156927 stalin.sc:21813:763697 */ /* x156926 stalin.sc:21813:763720 */ t85904 = a27968; /* x156925 stalin.sc:21813:763698 */ a19448 = t85904; /* x51397 */ /* x51396 */ t85905 = a19448; /* x51395 */ if (!((t85905.tag)==STRUCTURE_TYPE27779)) goto l16323; /* x156933 */ /* x156931 stalin.sc:21814:763730 */ /* x156930 stalin.sc:21814:763774 */ t85908 = a27968; /* x156929 stalin.sc:21814:763731 */ a19449 = t85908; /* x51402 */ /* x51401 */ t85909 = a19449; /* x51400 */ if (!((t85909.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("EXTERNAL-SYMBOL-TYPE-DISPLACED-STRING-TYPE[5845]"); structure_ref_error();} t85906 = t85909.value.structure_type27779->s0; /* x156932 stalin.sc:21814:763777 */ t85907 = p16647->a27967; /* x268249 stalin.sc:21814:763726 */ /* EQ: dispatching general to general */ if (!((t85906.tag)==(t85907.tag))) goto l16323; switch (t85906.tag) {case FIXNUM_TYPE: if (!((t85906.value.fixnum_type)==(t85907.value.fixnum_type))) goto l16323; break; case FLONUM_TYPE: if (!((t85906.value.flonum_type)==(t85907.value.flonum_type))) goto l16323; break; case INPUT_PORT_TYPE: if (!((t85906.value.input_port_type)==(t85907.value.input_port_type))) goto l16323; break; case OUTPUT_PORT_TYPE: if (!((t85906.value.output_port_type)==(t85907.value.output_port_type))) goto l16323; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t85906.value.native_procedure_type15963)==(t85907.value.native_procedure_type15963))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t85906.value.native_procedure_type19067)==(t85907.value.native_procedure_type19067))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t85906.value.native_procedure_type19068)==(t85907.value.native_procedure_type19068))) goto l16323; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t85906.value.native_procedure_type22459)==(t85907.value.native_procedure_type22459))) goto l16323; break; case STRUCTURE_TYPE24753: if (!((t85906.value.structure_type24753)==(t85907.value.structure_type24753))) goto l16323; break; case STRUCTURE_TYPE24757: if (!((t85906.value.structure_type24757)==(t85907.value.structure_type24757))) goto l16323; break; case STRUCTURE_TYPE27501: if (!((t85906.value.structure_type27501)==(t85907.value.structure_type27501))) goto l16323; break; case STRUCTURE_TYPE27510: if (!((t85906.value.structure_type27510)==(t85907.value.structure_type27510))) goto l16323; break; case STRUCTURE_TYPE27621: if (!((t85906.value.structure_type27621)==(t85907.value.structure_type27621))) goto l16323; break; case STRUCTURE_TYPE27650: if (!((t85906.value.structure_type27650)==(t85907.value.structure_type27650))) goto l16323; break; case STRUCTURE_TYPE27669: if (!((t85906.value.structure_type27669)==(t85907.value.structure_type27669))) goto l16323; break; case STRUCTURE_TYPE27673: if (!((t85906.value.structure_type27673)==(t85907.value.structure_type27673))) goto l16323; break; case STRUCTURE_TYPE27692: if (!((t85906.value.structure_type27692)==(t85907.value.structure_type27692))) goto l16323; break; case STRUCTURE_TYPE27694: if (!((t85906.value.structure_type27694)==(t85907.value.structure_type27694))) goto l16323; break; case STRUCTURE_TYPE27698: if (!((t85906.value.structure_type27698)==(t85907.value.structure_type27698))) goto l16323; break; case STRUCTURE_TYPE27745: if (!((t85906.value.structure_type27745)==(t85907.value.structure_type27745))) goto l16323; break; case STRUCTURE_TYPE27747: if (!((t85906.value.structure_type27747)==(t85907.value.structure_type27747))) goto l16323; break; case STRUCTURE_TYPE27750: if (!((t85906.value.structure_type27750)==(t85907.value.structure_type27750))) goto l16323; break; case STRUCTURE_TYPE27753: if (!((t85906.value.structure_type27753)==(t85907.value.structure_type27753))) goto l16323; break; case STRUCTURE_TYPE27756: if (!((t85906.value.structure_type27756)==(t85907.value.structure_type27756))) goto l16323; break; case STRUCTURE_TYPE27761: if (!((t85906.value.structure_type27761)==(t85907.value.structure_type27761))) goto l16323; break; case STRUCTURE_TYPE27769: if (!((t85906.value.structure_type27769)==(t85907.value.structure_type27769))) goto l16323; break; case STRUCTURE_TYPE27776: if (!((t85906.value.structure_type27776)==(t85907.value.structure_type27776))) goto l16323; break; case STRUCTURE_TYPE27779: if (!((t85906.value.structure_type27779)==(t85907.value.structure_type27779))) goto l16323; break; case STRUCTURE_TYPE27858: if (!((t85906.value.structure_type27858)==(t85907.value.structure_type27858))) goto l16323; break; case STRING_TYPE: if (!((t85906.value.string_type)==(t85907.value.string_type))) goto l16323; break; case HEADED_VECTOR_TYPE27896: if (!((t85906.value.headed_vector_type27896)==(t85907.value.headed_vector_type27896))) goto l16323; break; case EXTERNAL_SYMBOL_TYPE: if (!((t85906.value.external_symbol_type)==(t85907.value.external_symbol_type))) goto l16323; break; case STRUCTURE_TYPE27908: if (!((t85906.value.structure_type27908)==(t85907.value.structure_type27908))) goto l16323; break; default:;} break; case NATIVE_PROCEDURE_TYPE21685: a26492 = t85487; e15197 = (struct p15197 *)alloca(sizeof(struct p15197)); if (e15197==NULL) {backtrace("stalin.sc", 17697, 618805); out_of_memory_error();} e15197->a26492 = a26492; /* x138064 stalin.sc:17698:618826 */ /* x138063 stalin.sc:17701:618944 */ t85911 = a26478; /* x138062 stalin.sc:17698:618831 */ t85910 = e15197; /* x138043 stalin.sc:17698:618827 */ t85912.tag = NATIVE_PROCEDURE_TYPE21686; t85912.value.native_procedure_type21686 = t85910; /* MOVE: branching squeezed to general */ if (t85911>=((struct structure_type24753 *)VALUE_OFFSET)) {t85913.tag = STRUCTURE_TYPE24753; t85913.value.structure_type24753 = t85911;} else t85913.tag = (unsigned)t85911; if (f1080(t85912, t85913)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE21881: if ((f7721((t85486.value.native_procedure_type21881), t85487).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE21980: p17717 = t85486.value.native_procedure_type21980; a30709 = t85487; /* x165473 stalin.sc:23776:826508 */ /* x165465 stalin.sc:23776:826513 */ /* x165464 stalin.sc:23776:826537 */ t85914 = a30709; /* x165463 stalin.sc:23776:826514 */ a37325 = t85914; /* x281969 */ /* x281968 */ t85915 = a37325; /* x281967 */ if (!((t85915.tag)==STRUCTURE_TYPE27908)) goto l16323; /* x165471 */ /* x165467 stalin.sc:23777:826551 */ t85916 = a30709; /* x165470 stalin.sc:23777:826553 */ /* x165469 stalin.sc:23777:826598 */ t85918 = p17717->a30702; /* x165468 stalin.sc:23777:826554 */ a37302 = t85918; /* x281877 */ /* x281876 */ t85919 = a37302; /* x281875 */ if (!((t85919.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-DISPLACED-VECTOR-TYPE[6375] 32219]"); structure_ref_error();} t85917 = t85919.value.structure_type27908->s0; /* x268093 stalin.sc:23777:826547 */ /* EQ: dispatching general to general */ if (!((t85916.tag)==(t85917.tag))) goto l16323; switch (t85916.tag) {case FIXNUM_TYPE: if (!((t85916.value.fixnum_type)==(t85917.value.fixnum_type))) goto l16323; break; case FLONUM_TYPE: if (!((t85916.value.flonum_type)==(t85917.value.flonum_type))) goto l16323; break; case INPUT_PORT_TYPE: if (!((t85916.value.input_port_type)==(t85917.value.input_port_type))) goto l16323; break; case OUTPUT_PORT_TYPE: if (!((t85916.value.output_port_type)==(t85917.value.output_port_type))) goto l16323; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t85916.value.native_procedure_type15963)==(t85917.value.native_procedure_type15963))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t85916.value.native_procedure_type19067)==(t85917.value.native_procedure_type19067))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t85916.value.native_procedure_type19068)==(t85917.value.native_procedure_type19068))) goto l16323; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t85916.value.native_procedure_type22459)==(t85917.value.native_procedure_type22459))) goto l16323; break; case STRUCTURE_TYPE24753: if (!((t85916.value.structure_type24753)==(t85917.value.structure_type24753))) goto l16323; break; case STRUCTURE_TYPE24757: if (!((t85916.value.structure_type24757)==(t85917.value.structure_type24757))) goto l16323; break; case STRUCTURE_TYPE27501: if (!((t85916.value.structure_type27501)==(t85917.value.structure_type27501))) goto l16323; break; case STRUCTURE_TYPE27510: if (!((t85916.value.structure_type27510)==(t85917.value.structure_type27510))) goto l16323; break; case STRUCTURE_TYPE27621: if (!((t85916.value.structure_type27621)==(t85917.value.structure_type27621))) goto l16323; break; case STRUCTURE_TYPE27650: if (!((t85916.value.structure_type27650)==(t85917.value.structure_type27650))) goto l16323; break; case STRUCTURE_TYPE27669: if (!((t85916.value.structure_type27669)==(t85917.value.structure_type27669))) goto l16323; break; case STRUCTURE_TYPE27673: if (!((t85916.value.structure_type27673)==(t85917.value.structure_type27673))) goto l16323; break; case STRUCTURE_TYPE27692: if (!((t85916.value.structure_type27692)==(t85917.value.structure_type27692))) goto l16323; break; case STRUCTURE_TYPE27694: if (!((t85916.value.structure_type27694)==(t85917.value.structure_type27694))) goto l16323; break; case STRUCTURE_TYPE27698: if (!((t85916.value.structure_type27698)==(t85917.value.structure_type27698))) goto l16323; break; case STRUCTURE_TYPE27745: if (!((t85916.value.structure_type27745)==(t85917.value.structure_type27745))) goto l16323; break; case STRUCTURE_TYPE27747: if (!((t85916.value.structure_type27747)==(t85917.value.structure_type27747))) goto l16323; break; case STRUCTURE_TYPE27750: if (!((t85916.value.structure_type27750)==(t85917.value.structure_type27750))) goto l16323; break; case STRUCTURE_TYPE27753: if (!((t85916.value.structure_type27753)==(t85917.value.structure_type27753))) goto l16323; break; case STRUCTURE_TYPE27756: if (!((t85916.value.structure_type27756)==(t85917.value.structure_type27756))) goto l16323; break; case STRUCTURE_TYPE27761: if (!((t85916.value.structure_type27761)==(t85917.value.structure_type27761))) goto l16323; break; case STRUCTURE_TYPE27769: if (!((t85916.value.structure_type27769)==(t85917.value.structure_type27769))) goto l16323; break; case STRUCTURE_TYPE27776: if (!((t85916.value.structure_type27776)==(t85917.value.structure_type27776))) goto l16323; break; case STRUCTURE_TYPE27779: if (!((t85916.value.structure_type27779)==(t85917.value.structure_type27779))) goto l16323; break; case STRUCTURE_TYPE27858: if (!((t85916.value.structure_type27858)==(t85917.value.structure_type27858))) goto l16323; break; case STRING_TYPE: if (!((t85916.value.string_type)==(t85917.value.string_type))) goto l16323; break; case HEADED_VECTOR_TYPE27896: if (!((t85916.value.headed_vector_type27896)==(t85917.value.headed_vector_type27896))) goto l16323; break; case EXTERNAL_SYMBOL_TYPE: if (!((t85916.value.external_symbol_type)==(t85917.value.external_symbol_type))) goto l16323; break; case STRUCTURE_TYPE27908: if (!((t85916.value.structure_type27908)==(t85917.value.structure_type27908))) goto l16323; break; default:;} break; case NATIVE_PROCEDURE_TYPE21994: p17694 = t85486.value.native_procedure_type21994; a30655 = t85487; /* x165242 stalin.sc:23711:824741 */ /* x165232 stalin.sc:23711:824746 */ /* x165231 stalin.sc:23711:824767 */ t85920 = a30655; /* x165230 stalin.sc:23711:824747 */ a37541 = t85920; /* x282833 */ /* x282832 */ t85921 = a37541; /* x282831 */ if (!((t85921.tag)==STRUCTURE_TYPE27761)) goto l16323; /* x165240 */ /* x165236 stalin.sc:23712:824782 */ /* x165235 stalin.sc:23712:824804 */ t85924 = p17694->a30624; /* x165234 stalin.sc:23712:824783 */ a36387 = t85924; /* x278217 */ /* x278216 */ t85925 = a36387; /* x278215 */ t85922 = t85925->s0; /* x165239 stalin.sc:23713:824812 */ /* x165238 stalin.sc:23713:824855 */ t85926 = a30655; /* x165237 stalin.sc:23713:824813 */ a37489 = t85926; /* x282625 */ /* x282624 */ t85927 = a37489; /* x282623 */ if (!((t85927.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS[6251] 32406]"); structure_ref_error();} t85923 = t85927.value.structure_type27761->s1; /* x165233 stalin.sc:23712:824777 */ if ((f26351(t85922, t85923).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22021: p17746 = t85486.value.native_procedure_type22021; a30765 = t85487; /* x165712 stalin.sc:23860:828961 */ /* x165702 stalin.sc:23860:828966 */ /* x165701 stalin.sc:23860:828987 */ t85928 = a30765; /* x165700 stalin.sc:23860:828967 */ a37540 = t85928; /* x282829 */ /* x282828 */ t85929 = a37540; /* x282827 */ if (!((t85929.tag)==STRUCTURE_TYPE27761)) goto l16323; /* x165710 */ /* x165706 stalin.sc:23861:829000 */ /* x165705 stalin.sc:23861:829022 */ t85932 = p17746->a30746; /* x165704 stalin.sc:23861:829001 */ a36386 = t85932; /* x278213 */ /* x278212 */ t85933 = a36386; /* x278211 */ t85930 = t85933->s0; /* x165709 stalin.sc:23862:829035 */ /* x165708 stalin.sc:23862:829078 */ t85934 = a30765; /* x165707 stalin.sc:23862:829036 */ a37488 = t85934; /* x282621 */ /* x282620 */ t85935 = a37488; /* x282619 */ if (!((t85935.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS[6251] 32405]"); structure_ref_error();} t85931 = t85935.value.structure_type27761->s1; /* x165703 stalin.sc:23861:828995 */ if ((f26351(t85930, t85931).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22098: p17882 = t85486.value.native_procedure_type22098; a31077 = t85487; /* x166991 stalin.sc:24209:839468 */ /* x166981 stalin.sc:24209:839473 */ /* x166980 stalin.sc:24209:839493 */ t85936 = a31077; /* x166979 stalin.sc:24209:839474 */ a37865 = t85936; /* x284129 */ /* x284128 */ t85937 = a37865; /* x284127 */ if (!((t85937.tag)==STRUCTURE_TYPE27858)) goto l16323; /* x166989 */ /* x166985 stalin.sc:24210:839509 */ /* x166984 stalin.sc:24210:839550 */ t85940 = a31077; /* x166983 stalin.sc:24210:839510 */ a37821 = t85940; /* x283953 */ /* x283952 */ t85941 = a37821; /* x283951 */ if (!((t85941.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32738]"); structure_ref_error();} t85938 = t85941.value.structure_type27858->s0; /* x166988 stalin.sc:24211:839559 */ /* x166987 stalin.sc:24211:839581 */ t85942 = p17882->a31050; /* x166986 stalin.sc:24211:839560 */ a36415 = t85942; /* x278329 */ /* x278328 */ t85943 = a36415; /* x278327 */ t85939 = t85943->s0; /* x268062 stalin.sc:24210:839505 */ /* EQ: dispatching general to general */ if (!((t85938.tag)==(t85939.tag))) goto l16323; switch (t85938.tag) {case FIXNUM_TYPE: if (!((t85938.value.fixnum_type)==(t85939.value.fixnum_type))) goto l16323; break; case FLONUM_TYPE: if (!((t85938.value.flonum_type)==(t85939.value.flonum_type))) goto l16323; break; case INPUT_PORT_TYPE: if (!((t85938.value.input_port_type)==(t85939.value.input_port_type))) goto l16323; break; case OUTPUT_PORT_TYPE: if (!((t85938.value.output_port_type)==(t85939.value.output_port_type))) goto l16323; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t85938.value.native_procedure_type15963)==(t85939.value.native_procedure_type15963))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t85938.value.native_procedure_type19067)==(t85939.value.native_procedure_type19067))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t85938.value.native_procedure_type19068)==(t85939.value.native_procedure_type19068))) goto l16323; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t85938.value.native_procedure_type22459)==(t85939.value.native_procedure_type22459))) goto l16323; break; case STRUCTURE_TYPE24753: if (!((t85938.value.structure_type24753)==(t85939.value.structure_type24753))) goto l16323; break; case STRUCTURE_TYPE24757: if (!((t85938.value.structure_type24757)==(t85939.value.structure_type24757))) goto l16323; break; case STRUCTURE_TYPE27501: if (!((t85938.value.structure_type27501)==(t85939.value.structure_type27501))) goto l16323; break; case STRUCTURE_TYPE27510: if (!((t85938.value.structure_type27510)==(t85939.value.structure_type27510))) goto l16323; break; case STRUCTURE_TYPE27621: if (!((t85938.value.structure_type27621)==(t85939.value.structure_type27621))) goto l16323; break; case STRUCTURE_TYPE27650: if (!((t85938.value.structure_type27650)==(t85939.value.structure_type27650))) goto l16323; break; case STRUCTURE_TYPE27669: if (!((t85938.value.structure_type27669)==(t85939.value.structure_type27669))) goto l16323; break; case STRUCTURE_TYPE27673: if (!((t85938.value.structure_type27673)==(t85939.value.structure_type27673))) goto l16323; break; case STRUCTURE_TYPE27692: if (!((t85938.value.structure_type27692)==(t85939.value.structure_type27692))) goto l16323; break; case STRUCTURE_TYPE27694: if (!((t85938.value.structure_type27694)==(t85939.value.structure_type27694))) goto l16323; break; case STRUCTURE_TYPE27698: if (!((t85938.value.structure_type27698)==(t85939.value.structure_type27698))) goto l16323; break; case STRUCTURE_TYPE27745: if (!((t85938.value.structure_type27745)==(t85939.value.structure_type27745))) goto l16323; break; case STRUCTURE_TYPE27747: if (!((t85938.value.structure_type27747)==(t85939.value.structure_type27747))) goto l16323; break; case STRUCTURE_TYPE27750: if (!((t85938.value.structure_type27750)==(t85939.value.structure_type27750))) goto l16323; break; case STRUCTURE_TYPE27753: if (!((t85938.value.structure_type27753)==(t85939.value.structure_type27753))) goto l16323; break; case STRUCTURE_TYPE27756: if (!((t85938.value.structure_type27756)==(t85939.value.structure_type27756))) goto l16323; break; case STRUCTURE_TYPE27761: if (!((t85938.value.structure_type27761)==(t85939.value.structure_type27761))) goto l16323; break; case STRUCTURE_TYPE27769: if (!((t85938.value.structure_type27769)==(t85939.value.structure_type27769))) goto l16323; break; case STRUCTURE_TYPE27776: if (!((t85938.value.structure_type27776)==(t85939.value.structure_type27776))) goto l16323; break; case STRUCTURE_TYPE27779: if (!((t85938.value.structure_type27779)==(t85939.value.structure_type27779))) goto l16323; break; case STRUCTURE_TYPE27858: if (!((t85938.value.structure_type27858)==(t85939.value.structure_type27858))) goto l16323; break; case STRING_TYPE: if (!((t85938.value.string_type)==(t85939.value.string_type))) goto l16323; break; case HEADED_VECTOR_TYPE27896: if (!((t85938.value.headed_vector_type27896)==(t85939.value.headed_vector_type27896))) goto l16323; break; case EXTERNAL_SYMBOL_TYPE: if (!((t85938.value.external_symbol_type)==(t85939.value.external_symbol_type))) goto l16323; break; case STRUCTURE_TYPE27908: if (!((t85938.value.structure_type27908)==(t85939.value.structure_type27908))) goto l16323; break; default:;} break; case NATIVE_PROCEDURE_TYPE22271: p16390 = t85486.value.native_procedure_type22271; a27469 = t85487; /* x153925 stalin.sc:21080:737351 */ /* x153915 stalin.sc:21080:737356 */ /* x153914 stalin.sc:21082:737442 */ t85945 = a27469; /* x153913 stalin.sc:21080:737357 */ /* x153912 stalin.sc:21081:737387 */ /* x153911 stalin.sc:21081:737394 */ /* x153910 stalin.sc:21081:737430 */ t85949 = p16390->a27455; /* x153909 stalin.sc:21081:737395 */ a38162 = t85949; /* x285317 */ /* x285316 */ t85950 = a38162; /* x285315 */ if (!((t85950.tag)==STRUCTURE_TYPE27753)) {backtrace_internal("[clone PRIMITIVE-PROCEDURE-TYPE-ARGUMENTS[5903] 33079]"); structure_ref_error();} t85947 = t85950.value.structure_type27753->s1; /* x153908 stalin.sc:21081:737388 */ a35737 = t85947; /* x274305 */ /* x274304 */ t85948 = a35737; /* x274303 */ if (!((t85948.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29886]"); structure_ref_error();} t85946 = t85948.value.structure_type24753->s0; /* x153907 stalin.sc:21080:737358 */ t85944 = f7717(t85946); if (f7718(t85944, t85945)==FALSE_TYPE) goto l16323; /* x153923 */ /* x153919 stalin.sc:21083:737456 */ /* x153918 stalin.sc:21083:737478 */ t85953 = p16390->a27454; /* x153917 stalin.sc:21083:737457 */ a36395 = t85953; /* x278249 */ /* x278248 */ t85954 = a36395; /* x278247 */ t85951 = t85954->s0; /* x153922 stalin.sc:21084:737485 */ /* x153921 stalin.sc:21084:737524 */ t85955 = a27469; /* x153920 stalin.sc:21084:737486 */ a37609 = t85955; /* x283105 */ /* x283104 */ t85956 = a37609; /* x283103 */ if (!((t85956.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-ALLOCATING-EXPRESSIONS[6185] 32526]"); structure_ref_error();} t85952 = t85956.value.structure_type27769->s2; /* x153916 stalin.sc:21083:737451 */ if ((f26351(t85951, t85952).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22284: p17672 = t85486.value.native_procedure_type22284; a30622 = t85487; /* x165008 stalin.sc:23668:823660 */ /* x164998 stalin.sc:23668:823665 */ /* x164997 stalin.sc:23668:823686 */ t85957 = a30622; /* x164996 stalin.sc:23668:823666 */ a37538 = t85957; /* x282821 */ /* x282820 */ t85958 = a37538; /* x282819 */ if (!((t85958.tag)==STRUCTURE_TYPE27761)) goto l16323; /* x165006 */ /* x165002 stalin.sc:23669:823700 */ /* x165001 stalin.sc:23669:823722 */ t85961 = p17672->a30608; /* x165000 stalin.sc:23669:823701 */ a36385 = t85961; /* x278209 */ /* x278208 */ t85962 = a36385; /* x278207 */ t85959 = t85962->s0; /* x165005 stalin.sc:23670:823729 */ /* x165004 stalin.sc:23670:823772 */ t85963 = a30622; /* x165003 stalin.sc:23670:823730 */ a37487 = t85963; /* x282617 */ /* x282616 */ t85964 = a37487; /* x282615 */ if (!((t85964.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS[6251] 32404]"); structure_ref_error();} t85960 = t85964.value.structure_type27761->s1; /* x164999 stalin.sc:23669:823695 */ if ((f26351(t85959, t85960).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22295: p17735 = t85486.value.native_procedure_type22295; a30744 = t85487; /* x165600 stalin.sc:23840:828384 */ /* x165590 stalin.sc:23840:828389 */ /* x165589 stalin.sc:23840:828410 */ t85965 = a30744; /* x165588 stalin.sc:23840:828390 */ a37537 = t85965; /* x282817 */ /* x282816 */ t85966 = a37537; /* x282815 */ if (!((t85966.tag)==STRUCTURE_TYPE27761)) goto l16323; /* x165598 */ /* x165594 stalin.sc:23841:828424 */ /* x165593 stalin.sc:23841:828446 */ t85969 = p17735->a30731; /* x165592 stalin.sc:23841:828425 */ a36384 = t85969; /* x278205 */ /* x278204 */ t85970 = a36384; /* x278203 */ t85967 = t85970->s0; /* x165597 stalin.sc:23842:828453 */ /* x165596 stalin.sc:23842:828496 */ t85971 = a30744; /* x165595 stalin.sc:23842:828454 */ a37486 = t85971; /* x282613 */ /* x282612 */ t85972 = a37486; /* x282611 */ if (!((t85972.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS[6251] 32403]"); structure_ref_error();} t85968 = t85972.value.structure_type27761->s1; /* x165591 stalin.sc:23841:828419 */ if ((f26351(t85967, t85968).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22439: if (f16724(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22443: if (f16800(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22459: if (f16363((t85486.value.native_procedure_type22459), t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22461: if (f16437(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22462: if (f16449(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22463: if (f16602(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22464: if (f16614(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22465: if (f16652(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22466: if (f16664(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22467: if (f16686(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22468: if (f16709(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22474: if (f16806(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22484: if (f17508(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22485: if (f17538(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22487: if (f17645(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22489: if (f17811(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22491: if (f17904(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22492: if (f17916(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22493: if (f17990(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE22494: if (f18046(t85487)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE23631: a25973 = t85487; /* x131478 stalin.sc:16564:578746 */ /* x131471 stalin.sc:16564:578751 */ /* x131470 stalin.sc:16564:578756 */ /* x131469 stalin.sc:16564:578768 */ t85973 = a25973; /* x131468 stalin.sc:16564:578757 */ if (!(f7682(t85973)==FALSE_TYPE)) goto l16323; /* x131476 */ /* x131475 stalin.sc:16564:578777 */ /* x131474 stalin.sc:16564:578790 */ t85974 = a25973; /* x131473 stalin.sc:16564:578778 */ if (!(f8793(t85974)==FALSE_TYPE)) goto l16323; break; case NATIVE_PROCEDURE_TYPE23640: a25969 = t85487; /* x131442 stalin.sc:16553:578343 */ /* x131435 stalin.sc:16553:578348 */ /* x131434 stalin.sc:16553:578353 */ /* x131433 stalin.sc:16553:578365 */ t85975 = a25969; /* x131432 stalin.sc:16553:578354 */ if (!(f7682(t85975)==FALSE_TYPE)) goto l16323; /* x131440 */ /* x131439 stalin.sc:16553:578374 */ /* x131438 stalin.sc:16553:578387 */ t85976 = a25969; /* x131437 stalin.sc:16553:578375 */ if (!(f8793(t85976)==FALSE_TYPE)) goto l16323; break; case NATIVE_PROCEDURE_TYPE23832: a26810 = t85487; /* x144957 stalin.sc:19137:670823 */ /* x144950 stalin.sc:19137:670828 */ /* x144949 stalin.sc:19137:670833 */ /* x144948 stalin.sc:19137:670845 */ t85977 = a26810; /* x144947 stalin.sc:19137:670834 */ if (!(f7682(t85977)==FALSE_TYPE)) goto l16323; /* x144955 */ /* x144954 stalin.sc:19137:670854 */ /* x144953 stalin.sc:19137:670867 */ t85978 = a26810; /* x144952 stalin.sc:19137:670855 */ if (!(f8793(t85978)==FALSE_TYPE)) goto l16323; break; case NATIVE_PROCEDURE_TYPE23833: a26809 = t85487; /* x144932 stalin.sc:19130:670649 */ /* x144925 stalin.sc:19130:670654 */ /* x144924 stalin.sc:19130:670659 */ /* x144923 stalin.sc:19130:670671 */ t85979 = a26809; /* x144922 stalin.sc:19130:670660 */ if (!(f7682(t85979)==FALSE_TYPE)) goto l16323; /* x144930 */ /* x144929 stalin.sc:19131:670687 */ /* x144928 stalin.sc:19131:670700 */ t85980 = a26809; /* x144927 stalin.sc:19131:670688 */ if (!(f8793(t85980)==FALSE_TYPE)) goto l16323; break; case NATIVE_PROCEDURE_TYPE23876: a26837 = t85487; /* x145467 stalin.sc:19260:674609 */ /* x145466 stalin.sc:19260:674613 */ /* x145465 stalin.sc:19260:674621 */ t85981 = a26837; /* x145464 stalin.sc:19260:674614 */ a41711 = t85981; /* x300956 stalin.sc:3890:131852 */ /* x300955 stalin.sc:3890:131869 */ t85982 = a41711; /* x300954 stalin.sc:3890:131853 */ if (!(f8204(t85982)==FALSE_TYPE)) goto l16322; /* x145461 */ /* x145460 stalin.sc:19260:674634 */ t85983 = a26837; /* x145459 stalin.sc:19260:674625 */ a41626 = t85983; /* x300616 stalin.sc:3965:133896 */ /* x300615 stalin.sc:3965:133915 */ t85984 = a41626; /* x300614 stalin.sc:3965:133897 */ if (f8219(t85984)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE23897: a26864 = t85487; /* x145876 stalin.sc:19362:677971 */ /* x145875 stalin.sc:19362:677975 */ /* x145874 stalin.sc:19362:677983 */ t85985 = a26864; /* x145873 stalin.sc:19362:677976 */ a41710 = t85985; /* x300952 stalin.sc:3890:131852 */ /* x300951 stalin.sc:3890:131869 */ t85986 = a41710; /* x300950 stalin.sc:3890:131853 */ if (!(f8204(t85986)==FALSE_TYPE)) goto l16322; /* x145870 */ /* x145869 stalin.sc:19362:677996 */ t85987 = a26864; /* x145868 stalin.sc:19362:677987 */ a41625 = t85987; /* x300612 stalin.sc:3965:133896 */ /* x300611 stalin.sc:3965:133915 */ t85988 = a41625; /* x300610 stalin.sc:3965:133897 */ if (f8219(t85988)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE24055: p9691 = t85486.value.native_procedure_type24055; a22878 = t85487; /* x86160 stalin.sc:6883:238756 */ /* x86149 stalin.sc:6884:238768 */ /* x86148 stalin.sc:6884:238788 */ t85989 = a22878; /* x86147 stalin.sc:6884:238769 */ a19738 = t85989; /* x52473 */ /* x52472 */ t85990 = a19738; /* x52471 */ if (!((t85990.tag)==STRUCTURE_TYPE27858)) goto l16323; /* x86158 */ /* x86157 stalin.sc:6885:238859 */ t85992 = a22878; /* x86156 stalin.sc:6885:238799 */ /* x86155 stalin.sc:6885:238823 */ /* x86154 stalin.sc:6885:238842 */ /* x86153 stalin.sc:6885:238854 */ t85996 = p9691->a22804; /* x86152 stalin.sc:6885:238843 */ a41257 = t85996; /* x299140 stalin.sc:5598:192786 */ /* x299139 stalin.sc:5598:192812 */ t85997 = a41257; /* x299138 stalin.sc:5598:192787 */ a42453 = t85997; /* x303682 */ /* x303681 */ t85998 = a42453; /* x303680 */ if (!((t85998.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37758]"); structure_ref_error();} t85994 = t85998.value.structure_type27747->s1; /* x86151 stalin.sc:6885:238824 */ a39715 = t85994; /* x291529 */ /* x291528 */ t85995 = a39715; /* x291527 */ if (!((t85995.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34632]"); structure_ref_error();} t85993 = t85995.value.structure_type27698->s11; /* x86150 stalin.sc:6885:238800 */ t85991 = f7917(t85993); if ((t85991&3)==1) {if ((f7905(((struct p7892 *)(t85991-1)), t85992).tag)==FALSE_TYPE) goto l16323;} else if ((f7893(((struct p7892 *)t85991), t85992).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE24077: p9656 = t85486.value.native_procedure_type24077; a22843 = t85487; e9656 = (struct p9656 *)alloca(sizeof(struct p9656)); if (e9656==NULL) {backtrace("stalin.sc", 6704, 232739); out_of_memory_error();} e9656->p9612 = p9656; e9656->a22843 = a22843; /* x85596 stalin.sc:6705:232754 */ /* x85590 stalin.sc:6706:232767 */ t85999 = e9656; /* x85595 stalin.sc:6757:234329 */ /* x85594 stalin.sc:6757:234350 */ /* x85593 stalin.sc:6757:234369 */ t86004 = e9656->a22843; /* x85592 stalin.sc:6757:234351 */ a38617 = t86004; /* x287137 */ /* x287136 */ t86005 = a38617; /* x287135 */ if (!((t86005.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33534]"); structure_ref_error();} t86002 = t86005.value.structure_type27698->s21; /* x85591 stalin.sc:6757:234330 */ a39851 = t86002; /* x292073 */ /* x292072 */ t86003 = a39851; /* x292071 */ if (!((t86003.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34768]"); structure_ref_error();} t86000 = t86003.value.structure_type27698->s10; /* x85394 stalin.sc:6705:232755 */ t86001.tag = NATIVE_PROCEDURE_TYPE24078; t86001.value.native_procedure_type24078 = t85999; if ((f8137(t86001, t86000).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE24092: p9655 = t85486.value.native_procedure_type24092; a22842 = t85487; /* x85347 stalin.sc:6684:232094 */ /* x85329 stalin.sc:6684:232099 */ /* x85328 stalin.sc:6684:232123 */ t86006 = a22842; /* x85327 stalin.sc:6684:232100 */ a38032 = t86006; /* x284797 */ /* x284796 */ t86007 = a38032; /* x284795 */ if (!((t86007.tag)==STRUCTURE_TYPE27756)) goto l16323; /* x85345 */ /* x85334 stalin.sc:6685:232132 */ /* x85333 stalin.sc:6685:232137 */ /* x85332 stalin.sc:6685:232144 */ t86008 = a22842; /* x85331 stalin.sc:6685:232138 */ if (!(f8918(t86008)==FALSE_TYPE)) goto l16323; /* x85343 */ /* x85342 stalin.sc:6688:232240 */ t86010 = a22842; /* x85341 stalin.sc:6686:232155 */ /* x85340 stalin.sc:6687:232197 */ /* x85339 stalin.sc:6687:232216 */ /* x85338 stalin.sc:6687:232228 */ t86014 = p9655->a22804; /* x85337 stalin.sc:6687:232217 */ a41211 = t86014; /* x298956 stalin.sc:5598:192786 */ /* x298955 stalin.sc:5598:192812 */ t86015 = a41211; /* x298954 stalin.sc:5598:192787 */ a42499 = t86015; /* x303866 */ /* x303865 */ t86016 = a42499; /* x303864 */ if (!((t86016.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37804]"); structure_ref_error();} t86012 = t86016.value.structure_type27747->s1; /* x85336 stalin.sc:6687:232198 */ a39682 = t86012; /* x291397 */ /* x291396 */ t86013 = a39682; /* x291395 */ if (!((t86013.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34599]"); structure_ref_error();} t86011 = t86013.value.structure_type27698->s11; /* x85335 stalin.sc:6686:232156 */ t86009 = f7922(t86011); if ((t86009&3)==1) {if ((f7905(((struct p7892 *)(t86009-1)), t86010).tag)==FALSE_TYPE) goto l16323;} else if ((f7893(((struct p7892 *)t86009), t86010).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE24095: p9652 = t85486.value.native_procedure_type24095; a22839 = t85487; /* x85261 stalin.sc:6657:231325 */ /* x85243 stalin.sc:6657:231330 */ /* x85242 stalin.sc:6657:231354 */ t86017 = a22839; /* x85241 stalin.sc:6657:231331 */ a38031 = t86017; /* x284793 */ /* x284792 */ t86018 = a38031; /* x284791 */ if (!((t86018.tag)==STRUCTURE_TYPE27756)) goto l16323; /* x85259 */ /* x85248 stalin.sc:6658:231360 */ /* x85247 stalin.sc:6658:231365 */ /* x85246 stalin.sc:6658:231372 */ t86019 = a22839; /* x85245 stalin.sc:6658:231366 */ if (!(f8918(t86019)==FALSE_TYPE)) goto l16323; /* x85257 */ /* x85256 stalin.sc:6661:231459 */ t86021 = a22839; /* x85255 stalin.sc:6659:231380 */ /* x85254 stalin.sc:6660:231419 */ /* x85253 stalin.sc:6660:231438 */ /* x85252 stalin.sc:6660:231450 */ t86025 = p9652->a22804; /* x85251 stalin.sc:6660:231439 */ a41206 = t86025; /* x298936 stalin.sc:5598:192786 */ /* x298935 stalin.sc:5598:192812 */ t86026 = a41206; /* x298934 stalin.sc:5598:192787 */ a42504 = t86026; /* x303886 */ /* x303885 */ t86027 = a42504; /* x303884 */ if (!((t86027.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37809]"); structure_ref_error();} t86023 = t86027.value.structure_type27747->s1; /* x85250 stalin.sc:6660:231420 */ a39677 = t86023; /* x291377 */ /* x291376 */ t86024 = a39677; /* x291375 */ if (!((t86024.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34594]"); structure_ref_error();} t86022 = t86024.value.structure_type27698->s11; /* x85249 stalin.sc:6659:231381 */ t86020 = f7921(t86022); if ((t86020&3)==1) {if ((f7905(((struct p7892 *)(t86020-1)), t86021).tag)==FALSE_TYPE) goto l16323;} else if ((f7893(((struct p7892 *)t86020), t86021).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE24097: p9650 = t85486.value.native_procedure_type24097; a22837 = t85487; /* x85206 stalin.sc:6638:230817 */ /* x85188 stalin.sc:6638:230822 */ /* x85187 stalin.sc:6638:230846 */ t86028 = a22837; /* x85186 stalin.sc:6638:230823 */ a38030 = t86028; /* x284789 */ /* x284788 */ t86029 = a38030; /* x284787 */ if (!((t86029.tag)==STRUCTURE_TYPE27756)) goto l16323; /* x85204 */ /* x85193 stalin.sc:6639:230852 */ /* x85192 stalin.sc:6639:230857 */ /* x85191 stalin.sc:6639:230864 */ t86030 = a22837; /* x85190 stalin.sc:6639:230858 */ if (!(f8918(t86030)==FALSE_TYPE)) goto l16323; /* x85202 */ /* x85201 stalin.sc:6642:230951 */ t86032 = a22837; /* x85200 stalin.sc:6640:230872 */ /* x85199 stalin.sc:6641:230911 */ /* x85198 stalin.sc:6641:230930 */ /* x85197 stalin.sc:6641:230942 */ t86036 = p9650->a22804; /* x85196 stalin.sc:6641:230931 */ a41203 = t86036; /* x298924 stalin.sc:5598:192786 */ /* x298923 stalin.sc:5598:192812 */ t86037 = a41203; /* x298922 stalin.sc:5598:192787 */ a42507 = t86037; /* x303898 */ /* x303897 */ t86038 = a42507; /* x303896 */ if (!((t86038.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37812]"); structure_ref_error();} t86034 = t86038.value.structure_type27747->s1; /* x85195 stalin.sc:6641:230912 */ a39674 = t86034; /* x291365 */ /* x291364 */ t86035 = a39674; /* x291363 */ if (!((t86035.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34591]"); structure_ref_error();} t86033 = t86035.value.structure_type27698->s11; /* x85194 stalin.sc:6640:230873 */ t86031 = f7920(t86033); if ((t86031&3)==1) {if ((f7905(((struct p7892 *)(t86031-1)), t86032).tag)==FALSE_TYPE) goto l16323;} else if ((f7893(((struct p7892 *)t86031), t86032).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE24100: p9647 = t85486.value.native_procedure_type24100; a22834 = t85487; /* x85120 stalin.sc:6608:230000 */ /* x85102 stalin.sc:6609:230010 */ /* x85101 stalin.sc:6609:230034 */ t86039 = a22834; /* x85100 stalin.sc:6609:230011 */ a38029 = t86039; /* x284785 */ /* x284784 */ t86040 = a38029; /* x284783 */ if (!((t86040.tag)==STRUCTURE_TYPE27756)) goto l16323; /* x85118 */ /* x85107 stalin.sc:6610:230042 */ /* x85106 stalin.sc:6610:230047 */ /* x85105 stalin.sc:6610:230054 */ t86041 = a22834; /* x85104 stalin.sc:6610:230048 */ if (!(f8918(t86041)==FALSE_TYPE)) goto l16323; /* x85116 */ /* x85115 stalin.sc:6613:230172 */ t86043 = a22834; /* x85114 stalin.sc:6611:230064 */ /* x85113 stalin.sc:6612:230130 */ /* x85112 stalin.sc:6612:230149 */ /* x85111 stalin.sc:6612:230161 */ t86047 = p9647->a22804; /* x85110 stalin.sc:6612:230150 */ a41198 = t86047; /* x298904 stalin.sc:5598:192786 */ /* x298903 stalin.sc:5598:192812 */ t86048 = a41198; /* x298902 stalin.sc:5598:192787 */ a42512 = t86048; /* x303918 */ /* x303917 */ t86049 = a42512; /* x303916 */ if (!((t86049.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37817]"); structure_ref_error();} t86045 = t86049.value.structure_type27747->s1; /* x85109 stalin.sc:6612:230131 */ a39669 = t86045; /* x291345 */ /* x291344 */ t86046 = a39669; /* x291343 */ if (!((t86046.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34586]"); structure_ref_error();} t86044 = t86046.value.structure_type27698->s11; /* x85108 stalin.sc:6611:230065 */ t86042 = f7919(t86044); if ((t86042&3)==1) {if ((f7905(((struct p7892 *)(t86042-1)), t86043).tag)==FALSE_TYPE) goto l16323;} else if ((f7893(((struct p7892 *)t86042), t86043).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE24103: p9644 = t85486.value.native_procedure_type24103; a22831 = t85487; /* x85035 stalin.sc:6578:229178 */ /* x85017 stalin.sc:6578:229183 */ /* x85016 stalin.sc:6578:229207 */ t86050 = a22831; /* x85015 stalin.sc:6578:229184 */ a38028 = t86050; /* x284781 */ /* x284780 */ t86051 = a38028; /* x284779 */ if (!((t86051.tag)==STRUCTURE_TYPE27756)) goto l16323; /* x85033 */ /* x85022 stalin.sc:6579:229216 */ /* x85021 stalin.sc:6579:229221 */ /* x85020 stalin.sc:6579:229228 */ t86052 = a22831; /* x85019 stalin.sc:6579:229222 */ if (!(f8918(t86052)==FALSE_TYPE)) goto l16323; /* x85031 */ /* x85030 stalin.sc:6582:229324 */ t86054 = a22831; /* x85029 stalin.sc:6580:229239 */ /* x85028 stalin.sc:6581:229281 */ /* x85027 stalin.sc:6581:229300 */ /* x85026 stalin.sc:6581:229312 */ t86058 = p9644->a22804; /* x85025 stalin.sc:6581:229301 */ a41193 = t86058; /* x298884 stalin.sc:5598:192786 */ /* x298883 stalin.sc:5598:192812 */ t86059 = a41193; /* x298882 stalin.sc:5598:192787 */ a42517 = t86059; /* x303938 */ /* x303937 */ t86060 = a42517; /* x303936 */ if (!((t86060.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37822]"); structure_ref_error();} t86056 = t86060.value.structure_type27747->s1; /* x85024 stalin.sc:6581:229282 */ a39664 = t86056; /* x291325 */ /* x291324 */ t86057 = a39664; /* x291323 */ if (!((t86057.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34581]"); structure_ref_error();} t86055 = t86057.value.structure_type27698->s11; /* x85023 stalin.sc:6580:229240 */ t86053 = f7918(t86055); if ((t86053&3)==1) {if ((f7905(((struct p7892 *)(t86053-1)), t86054).tag)==FALSE_TYPE) goto l16323;} else if ((f7893(((struct p7892 *)t86053), t86054).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE24105: p9641 = t85486.value.native_procedure_type24105; a22828 = t85487; /* x84952 stalin.sc:6553:228426 */ /* x84934 stalin.sc:6553:228431 */ /* x84933 stalin.sc:6553:228455 */ t86061 = a22828; /* x84932 stalin.sc:6553:228432 */ a38027 = t86061; /* x284777 */ /* x284776 */ t86062 = a38027; /* x284775 */ if (!((t86062.tag)==STRUCTURE_TYPE27756)) goto l16323; /* x84950 */ /* x84939 stalin.sc:6554:228463 */ /* x84938 stalin.sc:6554:228468 */ /* x84937 stalin.sc:6554:228475 */ t86063 = a22828; /* x84936 stalin.sc:6554:228469 */ if (!(f8918(t86063)==FALSE_TYPE)) goto l16323; /* x84948 */ /* x84947 stalin.sc:6556:228551 */ t86065 = a22828; /* x84946 stalin.sc:6555:228485 */ /* x84945 stalin.sc:6555:228509 */ /* x84944 stalin.sc:6555:228528 */ /* x84943 stalin.sc:6555:228540 */ t86069 = p9641->a22804; /* x84942 stalin.sc:6555:228529 */ a41189 = t86069; /* x298868 stalin.sc:5598:192786 */ /* x298867 stalin.sc:5598:192812 */ t86070 = a41189; /* x298866 stalin.sc:5598:192787 */ a42521 = t86070; /* x303954 */ /* x303953 */ t86071 = a42521; /* x303952 */ if (!((t86071.tag)==STRUCTURE_TYPE27747)) {backtrace_internal("[clone PROGRAM-POINT-EXPRESSION[5477] 37826]"); structure_ref_error();} t86067 = t86071.value.structure_type27747->s1; /* x84941 stalin.sc:6555:228510 */ a39660 = t86067; /* x291309 */ /* x291308 */ t86068 = a39660; /* x291307 */ if (!((t86068.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34577]"); structure_ref_error();} t86066 = t86068.value.structure_type27698->s11; /* x84940 stalin.sc:6555:228486 */ t86064 = f7917(t86066); if ((t86064&3)==1) {if ((f7905(((struct p7892 *)(t86064-1)), t86065).tag)==FALSE_TYPE) goto l16323;} else if ((f7893(((struct p7892 *)t86064), t86065).tag)==FALSE_TYPE) goto l16323; break; case NATIVE_PROCEDURE_TYPE24173: a33175 = t85487; /* x226706 stalin.sc:31937:1102551 */ /* x226700 stalin.sc:31937:1102556 */ /* x226699 stalin.sc:31937:1102578 */ t86074 = a33175; /* x226698 stalin.sc:31937:1102557 */ a20440 = t86074; /* x55070 */ /* x55069 */ t86075 = a20440; /* x55068 */ if (!((t86075.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("VARIABLE-ENVIRONMENT[6581]"); structure_ref_error();} t86072 = t86075.value.structure_type27692->s8; /* x226705 stalin.sc:31938:1102585 */ /* x226704 stalin.sc:31938:1102601 */ /* x226703 stalin.sc:31938:1102623 */ t86077 = a33175; /* x226702 stalin.sc:31938:1102602 */ a36893 = t86077; /* x280241 */ /* x280240 */ t86078 = a36893; /* x280239 */ if (!((t86078.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31810]"); structure_ref_error();} t86076 = t86078.value.structure_type27692->s8; /* x226701 stalin.sc:31938:1102586 */ t86073 = f8976(t86076); /* x267570 stalin.sc:31937:1102552 */ /* EQ: dispatching general to general */ if (!((t86072.tag)==(t86073.tag))) goto l16323; switch (t86072.tag) {case FIXNUM_TYPE: if (!((t86072.value.fixnum_type)==(t86073.value.fixnum_type))) goto l16323; break; case FLONUM_TYPE: if (!((t86072.value.flonum_type)==(t86073.value.flonum_type))) goto l16323; break; case INPUT_PORT_TYPE: if (!((t86072.value.input_port_type)==(t86073.value.input_port_type))) goto l16323; break; case OUTPUT_PORT_TYPE: if (!((t86072.value.output_port_type)==(t86073.value.output_port_type))) goto l16323; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t86072.value.native_procedure_type15963)==(t86073.value.native_procedure_type15963))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t86072.value.native_procedure_type19067)==(t86073.value.native_procedure_type19067))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t86072.value.native_procedure_type19068)==(t86073.value.native_procedure_type19068))) goto l16323; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t86072.value.native_procedure_type22459)==(t86073.value.native_procedure_type22459))) goto l16323; break; case STRUCTURE_TYPE24753: if (!((t86072.value.structure_type24753)==(t86073.value.structure_type24753))) goto l16323; break; case STRUCTURE_TYPE24757: if (!((t86072.value.structure_type24757)==(t86073.value.structure_type24757))) goto l16323; break; case STRUCTURE_TYPE27501: if (!((t86072.value.structure_type27501)==(t86073.value.structure_type27501))) goto l16323; break; case STRUCTURE_TYPE27510: if (!((t86072.value.structure_type27510)==(t86073.value.structure_type27510))) goto l16323; break; case STRUCTURE_TYPE27621: if (!((t86072.value.structure_type27621)==(t86073.value.structure_type27621))) goto l16323; break; case STRUCTURE_TYPE27650: if (!((t86072.value.structure_type27650)==(t86073.value.structure_type27650))) goto l16323; break; case STRUCTURE_TYPE27669: if (!((t86072.value.structure_type27669)==(t86073.value.structure_type27669))) goto l16323; break; case STRUCTURE_TYPE27673: if (!((t86072.value.structure_type27673)==(t86073.value.structure_type27673))) goto l16323; break; case STRUCTURE_TYPE27692: if (!((t86072.value.structure_type27692)==(t86073.value.structure_type27692))) goto l16323; break; case STRUCTURE_TYPE27694: if (!((t86072.value.structure_type27694)==(t86073.value.structure_type27694))) goto l16323; break; case STRUCTURE_TYPE27698: if (!((t86072.value.structure_type27698)==(t86073.value.structure_type27698))) goto l16323; break; case STRUCTURE_TYPE27745: if (!((t86072.value.structure_type27745)==(t86073.value.structure_type27745))) goto l16323; break; case STRUCTURE_TYPE27747: if (!((t86072.value.structure_type27747)==(t86073.value.structure_type27747))) goto l16323; break; case STRUCTURE_TYPE27750: if (!((t86072.value.structure_type27750)==(t86073.value.structure_type27750))) goto l16323; break; case STRUCTURE_TYPE27753: if (!((t86072.value.structure_type27753)==(t86073.value.structure_type27753))) goto l16323; break; case STRUCTURE_TYPE27756: if (!((t86072.value.structure_type27756)==(t86073.value.structure_type27756))) goto l16323; break; case STRUCTURE_TYPE27761: if (!((t86072.value.structure_type27761)==(t86073.value.structure_type27761))) goto l16323; break; case STRUCTURE_TYPE27769: if (!((t86072.value.structure_type27769)==(t86073.value.structure_type27769))) goto l16323; break; case STRUCTURE_TYPE27776: if (!((t86072.value.structure_type27776)==(t86073.value.structure_type27776))) goto l16323; break; case STRUCTURE_TYPE27779: if (!((t86072.value.structure_type27779)==(t86073.value.structure_type27779))) goto l16323; break; case STRUCTURE_TYPE27858: if (!((t86072.value.structure_type27858)==(t86073.value.structure_type27858))) goto l16323; break; case STRING_TYPE: if (!((t86072.value.string_type)==(t86073.value.string_type))) goto l16323; break; case HEADED_VECTOR_TYPE27896: if (!((t86072.value.headed_vector_type27896)==(t86073.value.headed_vector_type27896))) goto l16323; break; case EXTERNAL_SYMBOL_TYPE: if (!((t86072.value.external_symbol_type)==(t86073.value.external_symbol_type))) goto l16323; break; case STRUCTURE_TYPE27908: if (!((t86072.value.structure_type27908)==(t86073.value.structure_type27908))) goto l16323; break; default:;} break; case NATIVE_PROCEDURE_TYPE24174: a33174 = t85487; /* x226689 stalin.sc:31930:1102231 */ /* x226685 stalin.sc:31930:1102236 */ t86079 = a33174; /* x226688 stalin.sc:31930:1102238 */ /* x226687 stalin.sc:31930:1102254 */ t86081 = a33174; /* x226686 stalin.sc:31930:1102239 */ t86080 = f8976(t86081); /* x267571 stalin.sc:31930:1102232 */ /* EQ: dispatching general to general */ if (!((t86079.tag)==(t86080.tag))) goto l16323; switch (t86079.tag) {case FIXNUM_TYPE: if (!((t86079.value.fixnum_type)==(t86080.value.fixnum_type))) goto l16323; break; case FLONUM_TYPE: if (!((t86079.value.flonum_type)==(t86080.value.flonum_type))) goto l16323; break; case INPUT_PORT_TYPE: if (!((t86079.value.input_port_type)==(t86080.value.input_port_type))) goto l16323; break; case OUTPUT_PORT_TYPE: if (!((t86079.value.output_port_type)==(t86080.value.output_port_type))) goto l16323; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t86079.value.native_procedure_type15963)==(t86080.value.native_procedure_type15963))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t86079.value.native_procedure_type19067)==(t86080.value.native_procedure_type19067))) goto l16323; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t86079.value.native_procedure_type19068)==(t86080.value.native_procedure_type19068))) goto l16323; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t86079.value.native_procedure_type22459)==(t86080.value.native_procedure_type22459))) goto l16323; break; case STRUCTURE_TYPE24753: if (!((t86079.value.structure_type24753)==(t86080.value.structure_type24753))) goto l16323; break; case STRUCTURE_TYPE24757: if (!((t86079.value.structure_type24757)==(t86080.value.structure_type24757))) goto l16323; break; case STRUCTURE_TYPE27501: if (!((t86079.value.structure_type27501)==(t86080.value.structure_type27501))) goto l16323; break; case STRUCTURE_TYPE27510: if (!((t86079.value.structure_type27510)==(t86080.value.structure_type27510))) goto l16323; break; case STRUCTURE_TYPE27621: if (!((t86079.value.structure_type27621)==(t86080.value.structure_type27621))) goto l16323; break; case STRUCTURE_TYPE27650: if (!((t86079.value.structure_type27650)==(t86080.value.structure_type27650))) goto l16323; break; case STRUCTURE_TYPE27669: if (!((t86079.value.structure_type27669)==(t86080.value.structure_type27669))) goto l16323; break; case STRUCTURE_TYPE27673: if (!((t86079.value.structure_type27673)==(t86080.value.structure_type27673))) goto l16323; break; case STRUCTURE_TYPE27692: if (!((t86079.value.structure_type27692)==(t86080.value.structure_type27692))) goto l16323; break; case STRUCTURE_TYPE27694: if (!((t86079.value.structure_type27694)==(t86080.value.structure_type27694))) goto l16323; break; case STRUCTURE_TYPE27698: if (!((t86079.value.structure_type27698)==(t86080.value.structure_type27698))) goto l16323; break; case STRUCTURE_TYPE27745: if (!((t86079.value.structure_type27745)==(t86080.value.structure_type27745))) goto l16323; break; case STRUCTURE_TYPE27747: if (!((t86079.value.structure_type27747)==(t86080.value.structure_type27747))) goto l16323; break; case STRUCTURE_TYPE27750: if (!((t86079.value.structure_type27750)==(t86080.value.structure_type27750))) goto l16323; break; case STRUCTURE_TYPE27753: if (!((t86079.value.structure_type27753)==(t86080.value.structure_type27753))) goto l16323; break; case STRUCTURE_TYPE27756: if (!((t86079.value.structure_type27756)==(t86080.value.structure_type27756))) goto l16323; break; case STRUCTURE_TYPE27761: if (!((t86079.value.structure_type27761)==(t86080.value.structure_type27761))) goto l16323; break; case STRUCTURE_TYPE27769: if (!((t86079.value.structure_type27769)==(t86080.value.structure_type27769))) goto l16323; break; case STRUCTURE_TYPE27776: if (!((t86079.value.structure_type27776)==(t86080.value.structure_type27776))) goto l16323; break; case STRUCTURE_TYPE27779: if (!((t86079.value.structure_type27779)==(t86080.value.structure_type27779))) goto l16323; break; case STRUCTURE_TYPE27858: if (!((t86079.value.structure_type27858)==(t86080.value.structure_type27858))) goto l16323; break; case STRING_TYPE: if (!((t86079.value.string_type)==(t86080.value.string_type))) goto l16323; break; case HEADED_VECTOR_TYPE27896: if (!((t86079.value.headed_vector_type27896)==(t86080.value.headed_vector_type27896))) goto l16323; break; case EXTERNAL_SYMBOL_TYPE: if (!((t86079.value.external_symbol_type)==(t86080.value.external_symbol_type))) goto l16323; break; case STRUCTURE_TYPE27908: if (!((t86079.value.structure_type27908)==(t86080.value.structure_type27908))) goto l16323; break; default:;} break; default: backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 491, 14483); call_error();} l16322: /* x15616 */ /* x15615 */ /* x15614 QobiScheme.sc:491:14497 */ /* x15607 QobiScheme.sc:491:14503 */ /* x15606 QobiScheme.sc:491:14509 */ t86090 = *((struct w16638 *)(&a14891)); /* x15605 QobiScheme.sc:491:14504 */ a35575 = t86090; /* x273657 */ /* x273656 */ t86091 = a35575; /* x273655 */ if (!((t86091.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29724]"); structure_ref_error();} t86088 = t86091.value.structure_type24753->s1; /* x15613 QobiScheme.sc:491:14512 */ /* x15611 QobiScheme.sc:491:14518 */ /* x15610 QobiScheme.sc:491:14525 */ t86094 = *((struct w16638 *)(&a14891)); /* x15609 QobiScheme.sc:491:14519 */ a36136 = t86094; /* x275901 */ /* x275900 */ t86095 = a36136; /* x275899 */ if (!((t86095.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30285]"); structure_ref_error();} t86092 = t86095.value.structure_type24753->s0; /* x15612 QobiScheme.sc:491:14528 */ t86093 = a14892; /* x270904 QobiScheme.sc:491:14513 */ t86089 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t86089==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 491, 14512); out_of_memory_error();} t86089->s0 = t86092; /* MOVE: branching squeezed to general */ if (t86093>=((struct structure_type24753 *)VALUE_OFFSET)) {t86089->s1.tag = STRUCTURE_TYPE24753; t86089->s1.value.structure_type24753 = t86093;} else t86089->s1.tag = (unsigned)t86093; /* x15604 QobiScheme.sc:491:14498 */ a14891 = t86088; a14892 = t86089; goto h1229; l16323: /* x15624 */ /* x15623 */ /* x15622 QobiScheme.sc:492:14540 */ /* x15620 QobiScheme.sc:492:14546 */ /* x15619 QobiScheme.sc:492:14552 */ t86086 = *((struct w16638 *)(&a14891)); /* x15618 QobiScheme.sc:492:14547 */ a35591 = t86086; /* x273721 */ /* x273720 */ t86087 = a35591; /* x273719 */ if (!((t86087.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29740]"); structure_ref_error();} t86084 = t86087.value.structure_type24753->s1; /* x15621 QobiScheme.sc:492:14555 */ t86085 = a14892; /* x15617 QobiScheme.sc:492:14541 */ a14891 = t86084; a14892 = t86085; goto h1229;} /* REMOVE-IF[1218] */ struct w12224 f1218(unsigned a14881, struct w49 a14882) {struct w49 a14885; /* L */ struct structure_type24753 *a14886; /* C */ struct w49 a23244; /* X */ struct w49 a23279; /* X */ struct w49 a23280; /* X */ struct w49 a23281; /* X */ struct w49 a23282; /* X */ struct w49 a23926; /* E1 */ struct w49 a25961; /* U */ struct w49 a26089; /* U */ struct w49 a26629; /* U */ struct w49 a26817; /* W */ struct w49 a27163; /* U */ struct w49 a27190; /* U */ struct w49 a27765; /* U */ struct w49 a27769; /* U */ struct w49 a27776; /* U */ struct w49 a32241; /* S */ struct w16638 a35621; /* PAIR */ struct w16638 a35622; /* PAIR */ struct w16638 a36203; /* PAIR */ struct w16638 a36204; /* PAIR */ struct w49 a39626; /* S */ struct w49 a39824; /* S */ struct w49 a39825; /* S */ struct w49 a39826; /* S */ struct w49 a39827; /* S */ struct w49 a41481; /* S */ struct w49 t86098; struct w49 t86099; unsigned t86100; struct w49 t86101; struct w49 t86102; struct w49 t86103; char *t86104; struct w49 t86105; struct w49 t86106; struct w49 t86107; int t86108; int t86109; struct w49 t86110; struct w49 t86111; struct w49 t86112; struct w49 t86113; char *t86114; struct w49 t86115; struct w49 t86116; struct w49 t86117; char *t86118; struct w49 t86119; struct w49 t86120; struct w49 t86121; char *t86122; struct w49 t86123; struct w49 t86124; struct w49 t86125; char *t86126; struct w49 t86127; struct w49 t86128; struct p11524 *t86129; struct p11524 *t86131; struct w12224 t86132; struct w228345 t86133; struct w49 t86134; struct structure_type24753 *t86135; struct w49 t86136; char *t86137; struct w49 t86138; struct w49 t86139; struct w49 t86140; struct w49 t86141; struct w49 t86142; struct w49 t86143; struct w49 t86144; struct w49 t86145; struct w49 t86146; struct w49 t86147; struct w49 t86148; struct w49 t86149; struct w49 t86150; struct w49 t86151; struct w49 t86152; struct w49 t86153; struct w49 t86154; struct w49 t86155; struct w49 t86156; unsigned t86157; struct w49 t86158; struct w16638 t86159; struct w16638 t86160; struct w49 t86161; struct structure_type24753 *t86162; struct w16638 t86163; struct w16638 t86164; struct w49 t86165; struct structure_type24753 *t86166; struct w16638 t86167; struct w16638 t86168; struct w49 t86169; struct structure_type24753 *t86170; struct w16638 t86171; struct w16638 t86172; struct structure_type24753 *t86173; struct w49 t86174; struct p11524 *e11524; struct p11524 *p11525; /* x15586 QobiScheme.sc:482:14216 */ /* x15584 QobiScheme.sc:482:14230 */ t86098 = a14882; /* x15585 QobiScheme.sc:482:14236 */ /* x15583 */ /* x15582 */ /* x15581 */ /* x15580 */ /* x15579 */ /* x15578 */ /* x15577 */ /* x15540 */ /* x15539 QobiScheme.sc:482:14221 */ a14885 = t86098; a14886 = (struct structure_type24753 *)NULL_TYPE; h1221: /* x15576 QobiScheme.sc:483:14244 */ /* x15543 QobiScheme.sc:483:14251 */ /* x15542 QobiScheme.sc:483:14258 */ t86099 = a14885; /* x270907 QobiScheme.sc:483:14252 */ if (!((t86099.tag)==NULL_TYPE)) goto l16435; /* x15548 */ /* x15547 */ /* x15546 QobiScheme.sc:483:14261 */ /* x15545 QobiScheme.sc:483:14270 */ t86173 = a14886; /* x15544 QobiScheme.sc:483:14262 */ /* MOVE: branching squeezed to general */ if (t86173>=((struct structure_type24753 *)VALUE_OFFSET)) {t86174.tag = STRUCTURE_TYPE24753; t86174.value.structure_type24753 = t86173;} else t86174.tag = (unsigned)t86173; return f26331(t86174); l16435: /* x15575 */ /* x15553 QobiScheme.sc:484:14276 */ /* x15552 QobiScheme.sc:484:14279 */ /* x15551 QobiScheme.sc:484:14286 */ t86159 = *((struct w16638 *)(&a14885)); /* x15550 QobiScheme.sc:484:14280 */ a36204 = t86159; /* x276173 */ /* x276172 */ t86160 = a36204; /* x276171 */ if (!((t86160.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30353]"); structure_ref_error();} t86101 = t86160.value.structure_type24753->s0; /* x15549 QobiScheme.sc:484:14277 */ t86100 = a14881; switch (t86100) {case NATIVE_PROCEDURE_TYPE7167: if (f9741(t86101)==FALSE_TYPE) goto l16437; break; case NATIVE_PROCEDURE_TYPE7202: if (f9390(t86101)==FALSE_TYPE) goto l16437; break; case NATIVE_PROCEDURE_TYPE7232: if (f8793(t86101)==FALSE_TYPE) goto l16437; break; case NATIVE_PROCEDURE_TYPE7243: if (f8751(t86101)==FALSE_TYPE) goto l16437; break; case NATIVE_PROCEDURE_TYPE7272: if (f8585(t86101)==FALSE_TYPE) goto l16437; break; case NATIVE_PROCEDURE_TYPE7309: if (f8471(t86101)==FALSE_TYPE) goto l16437; break; case NATIVE_PROCEDURE_TYPE7405: if (f7754(t86101)==FALSE_TYPE) goto l16437; break; case NATIVE_PROCEDURE_TYPE7431: if (f7682(t86101)==FALSE_TYPE) goto l16437; break; case NATIVE_PROCEDURE_TYPE7506: if (f7429(t86101)==FALSE_TYPE) goto l16437; break; case NATIVE_PROCEDURE_TYPE14778: a32241 = t86101; /* x170405 stalin.sc:24952:862757 */ /* x170389 stalin.sc:24952:862762 */ /* x170388 stalin.sc:24952:862772 */ t86102 = a32241; /* x170387 stalin.sc:24952:862763 */ if (f9740(t86102)==FALSE_TYPE) goto l16437; /* x170403 */ /* x170395 stalin.sc:24953:862781 */ /* x170393 stalin.sc:24953:862789 */ /* x170392 stalin.sc:24953:862799 */ t86106 = a32241; /* x170391 stalin.sc:24953:862790 */ a41481 = t86106; /* x300036 stalin.sc:6964:241199 */ /* x300035 stalin.sc:6964:241207 */ t86107 = a41481; /* x300034 stalin.sc:6964:241200 */ t86103 = f9719(t86107); /* x170394 stalin.sc:24953:862802 */ t86104 = q97; /* x170390 stalin.sc:24953:862782 */ t86105.tag = EXTERNAL_SYMBOL_TYPE; t86105.value.external_symbol_type = t86104; if (f9745(t86103, t86105)==FALSE_TYPE) goto l16437; /* x170401 */ /* x170399 stalin.sc:24954:862820 */ /* x170398 stalin.sc:24954:862831 */ t86110 = a32241; /* x170397 stalin.sc:24954:862821 */ t86108 = f9734(t86110); /* x170400 stalin.sc:24954:862834 */ t86109 = 2; /* x267994 stalin.sc:24954:862818 */ if (!(t86108==t86109)) goto l16437; break; case NATIVE_PROCEDURE_TYPE15143: a25961 = t86101; /* x131287 stalin.sc:16506:576369 */ /* x131286 stalin.sc:16506:576373 */ /* x131285 stalin.sc:16506:576385 */ t86111 = a25961; /* x131284 stalin.sc:16506:576374 */ if (!(f7682(t86111)==FALSE_TYPE)) goto l16436; /* x131281 */ /* x131280 stalin.sc:16506:576401 */ t86112 = a25961; /* x131279 stalin.sc:16506:576389 */ if (f8793(t86112)==FALSE_TYPE) goto l16437; break; case NATIVE_PROCEDURE_TYPE16683: a23282 = t86101; /* x92958 stalin.sc:8152:278442 */ /* x92955 stalin.sc:8152:278447 */ /* x92954 stalin.sc:8152:278466 */ t86115 = a23282; /* x92953 stalin.sc:8152:278448 */ a39827 = t86115; /* x291977 */ /* x291976 */ t86116 = a39827; /* x291975 */ if (!((t86116.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34744]"); structure_ref_error();} t86113 = t86116.value.structure_type27698->s11; /* x92957 stalin.sc:8152:278469 */ /* x92956 stalin.sc:8152:278470 */ /* x277497 stalin.sc:323:8604 */ t86114 = q35; /* x269801 stalin.sc:8152:278443 */ if (!(((t86113.tag)==EXTERNAL_SYMBOL_TYPE)&&((t86113.value.external_symbol_type)==t86114))) goto l16437; break; case NATIVE_PROCEDURE_TYPE16684: a23281 = t86101; /* x92946 stalin.sc:8149:278331 */ /* x92943 stalin.sc:8149:278336 */ /* x92942 stalin.sc:8149:278355 */ t86119 = a23281; /* x92941 stalin.sc:8149:278337 */ a39826 = t86119; /* x291973 */ /* x291972 */ t86120 = a39826; /* x291971 */ if (!((t86120.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34743]"); structure_ref_error();} t86117 = t86120.value.structure_type27698->s11; /* x92945 stalin.sc:8149:278358 */ /* x92944 stalin.sc:8149:278359 */ /* x277495 stalin.sc:323:8604 */ t86118 = q35; /* x269802 stalin.sc:8149:278332 */ if (!(((t86117.tag)==EXTERNAL_SYMBOL_TYPE)&&((t86117.value.external_symbol_type)==t86118))) goto l16437; break; case NATIVE_PROCEDURE_TYPE16685: a23280 = t86101; /* x92934 stalin.sc:8146:278226 */ /* x92931 stalin.sc:8146:278231 */ /* x92930 stalin.sc:8146:278250 */ t86123 = a23280; /* x92929 stalin.sc:8146:278232 */ a39825 = t86123; /* x291969 */ /* x291968 */ t86124 = a39825; /* x291967 */ if (!((t86124.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34742]"); structure_ref_error();} t86121 = t86124.value.structure_type27698->s11; /* x92933 stalin.sc:8146:278253 */ /* x92932 stalin.sc:8146:278254 */ /* x277493 stalin.sc:323:8604 */ t86122 = q35; /* x269803 stalin.sc:8146:278227 */ if (!(((t86121.tag)==EXTERNAL_SYMBOL_TYPE)&&((t86121.value.external_symbol_type)==t86122))) goto l16437; break; case NATIVE_PROCEDURE_TYPE16686: a23279 = t86101; /* x92922 stalin.sc:8144:278131 */ /* x92919 stalin.sc:8144:278136 */ /* x92918 stalin.sc:8144:278155 */ t86127 = a23279; /* x92917 stalin.sc:8144:278137 */ a39824 = t86127; /* x291965 */ /* x291964 */ t86128 = a39824; /* x291963 */ if (!((t86128.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34741]"); structure_ref_error();} t86125 = t86128.value.structure_type27698->s11; /* x92921 stalin.sc:8144:278158 */ /* x92920 stalin.sc:8144:278159 */ /* x277491 stalin.sc:323:8604 */ t86126 = q35; /* x269804 stalin.sc:8144:278132 */ if (!(((t86125.tag)==EXTERNAL_SYMBOL_TYPE)&&((t86125.value.external_symbol_type)==t86126))) goto l16437; break; case NATIVE_PROCEDURE_TYPE17110: a23926 = t86101; e11524 = (struct p11524 *)alloca(sizeof(struct p11524)); if (e11524==NULL) {backtrace_internal("[inside LOOP 11495]"); out_of_memory_error();} e11524->a23926 = a23926; /* x103988 */ /* x103987 stalin.sc:10259:355512 */ /* x103986 stalin.sc:10259:355513 */ f4651(); /* x103985 */ t86129 = e11524; p11525 = t86129; /* x103984 stalin.sc:10260:355556 */ /* x103983 stalin.sc:10269:355817 */ t86132 = a23897; /* x103982 stalin.sc:10260:355562 */ t86131 = p11525; /* x103954 stalin.sc:10260:355557 */ t86133.tag = NATIVE_PROCEDURE_TYPE17112; t86133.value.native_procedure_type17112 = t86131; t86134 = *((struct w49 *)(&t86132)); t86135 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t86133, t86134, t86135).tag)==FALSE_TYPE) goto l16437; break; case NATIVE_PROCEDURE_TYPE17796: a23244 = t86101; /* x92407 stalin.sc:8155:278555 */ /* x92404 stalin.sc:8155:278560 */ /* x92403 stalin.sc:8155:278579 */ t86138 = a23244; /* x92402 stalin.sc:8155:278561 */ a39626 = t86138; /* x291173 */ /* x291172 */ t86139 = a39626; /* x291171 */ if (!((t86139.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34543]"); structure_ref_error();} t86136 = t86139.value.structure_type27698->s11; /* x92406 stalin.sc:8155:278582 */ /* x92405 stalin.sc:8155:278583 */ /* x277115 stalin.sc:323:8604 */ t86137 = q35; /* x269821 stalin.sc:8155:278556 */ if (!(((t86136.tag)==EXTERNAL_SYMBOL_TYPE)&&((t86136.value.external_symbol_type)==t86137))) goto l16437; break; case NATIVE_PROCEDURE_TYPE20458: a26089 = t86101; /* x132963 stalin.sc:16854:588909 */ /* x132962 stalin.sc:16854:588913 */ /* x132961 stalin.sc:16854:588925 */ t86140 = a26089; /* x132960 stalin.sc:16854:588914 */ if (!(f7682(t86140)==FALSE_TYPE)) goto l16436; /* x132957 */ /* x132956 stalin.sc:16854:588941 */ t86141 = a26089; /* x132955 stalin.sc:16854:588929 */ if (f8793(t86141)==FALSE_TYPE) goto l16437; break; case NATIVE_PROCEDURE_TYPE20569: a26629 = t86101; /* x141602 stalin.sc:18381:645653 */ /* x141601 stalin.sc:18381:645657 */ /* x141600 stalin.sc:18381:645669 */ t86142 = a26629; /* x141599 stalin.sc:18381:645658 */ if (!(f7682(t86142)==FALSE_TYPE)) goto l16436; /* x141596 */ /* x141595 stalin.sc:18381:645685 */ t86143 = a26629; /* x141594 stalin.sc:18381:645673 */ if (f8793(t86143)==FALSE_TYPE) goto l16437; break; case NATIVE_PROCEDURE_TYPE20946: a27776 = t86101; /* x156372 stalin.sc:21672:759617 */ /* x156371 stalin.sc:21672:759621 */ /* x156370 stalin.sc:21672:759633 */ t86144 = a27776; /* x156369 stalin.sc:21672:759622 */ if (!(f7682(t86144)==FALSE_TYPE)) goto l16436; /* x156366 */ /* x156365 stalin.sc:21672:759649 */ t86145 = a27776; /* x156364 stalin.sc:21672:759637 */ if (f8793(t86145)==FALSE_TYPE) goto l16437; break; case NATIVE_PROCEDURE_TYPE20960: a27769 = t86101; /* x156092 stalin.sc:21618:757386 */ /* x156091 stalin.sc:21618:757390 */ /* x156090 stalin.sc:21618:757402 */ t86146 = a27769; /* x156089 stalin.sc:21618:757391 */ if (!(f7682(t86146)==FALSE_TYPE)) goto l16436; /* x156086 */ /* x156085 stalin.sc:21618:757418 */ t86147 = a27769; /* x156084 stalin.sc:21618:757406 */ if (f8793(t86147)==FALSE_TYPE) goto l16437; break; case NATIVE_PROCEDURE_TYPE20969: a27765 = t86101; /* x155953 stalin.sc:21594:756633 */ /* x155952 stalin.sc:21594:756637 */ /* x155951 stalin.sc:21594:756649 */ t86148 = a27765; /* x155950 stalin.sc:21594:756638 */ if (!(f7682(t86148)==FALSE_TYPE)) goto l16436; /* x155947 */ /* x155946 stalin.sc:21594:756665 */ t86149 = a27765; /* x155945 stalin.sc:21594:756653 */ if (f8793(t86149)==FALSE_TYPE) goto l16437; break; case NATIVE_PROCEDURE_TYPE21465: a27190 = t86101; /* x152227 stalin.sc:20792:727894 */ /* x152226 stalin.sc:20792:727898 */ /* x152225 stalin.sc:20792:727903 */ /* x152224 stalin.sc:20792:727912 */ t86150 = a27190; /* x152223 stalin.sc:20792:727904 */ if ((f8899(t86150).tag)==FALSE_TYPE) goto l16436; /* x152219 */ /* x152218 stalin.sc:20792:727923 */ t86151 = a27190; /* x152217 stalin.sc:20792:727917 */ if (f8918(t86151)==FALSE_TYPE) goto l16437; break; case NATIVE_PROCEDURE_TYPE21507: a26817 = t86101; /* x145131 stalin.sc:19175:672019 */ /* x145130 stalin.sc:19175:672023 */ /* x145129 stalin.sc:19175:672036 */ t86152 = a26817; /* x145128 stalin.sc:19175:672024 */ if (!(f8793(t86152)==FALSE_TYPE)) goto l16436; /* x145125 */ /* x145124 stalin.sc:19176:672044 */ /* x145123 stalin.sc:19176:672058 */ t86153 = a26817; /* x145122 stalin.sc:19176:672045 */ if (!(f8148(t86153)==FALSE_TYPE)) goto l16436; /* x145119 */ /* x145118 stalin.sc:19177:672066 */ /* x145117 stalin.sc:19177:672077 */ t86154 = a26817; /* x145116 stalin.sc:19177:672067 */ if (!(f13798(t86154)==FALSE_TYPE)) goto l16436; /* x145113 */ /* x145112 stalin.sc:19178:672085 */ /* x145111 stalin.sc:19178:672096 */ t86155 = a26817; /* x145110 stalin.sc:19178:672086 */ if (!(f13859(t86155)==FALSE_TYPE)) goto l16436; /* x145107 */ /* x145106 stalin.sc:19179:672115 */ t86156 = a26817; /* x145105 stalin.sc:19179:672105 */ if (f14024(t86156)==FALSE_TYPE) goto l16437; break; default: a27163 = t86101; /* x151626 stalin.sc:20618:721966 */ /* x151625 stalin.sc:20618:721973 */ /* x151624 stalin.sc:20618:721989 */ t86158 = a27163; /* x151623 stalin.sc:20618:721974 */ t86157 = f7960(t86158); /* x268388 stalin.sc:20618:721967 */ if (!((t86157&1)==1)) {backtrace("stalin.sc", 20618, 721966); zero_error();} if (!(((int)(((int)t86157)>>1))==0)) goto l16437;} l16436: /* x15561 */ /* x15560 */ /* x15559 QobiScheme.sc:484:14290 */ /* x15557 QobiScheme.sc:484:14296 */ /* x15556 QobiScheme.sc:484:14302 */ t86171 = *((struct w16638 *)(&a14885)); /* x15555 QobiScheme.sc:484:14297 */ a35621 = t86171; /* x273841 */ /* x273840 */ t86172 = a35621; /* x273839 */ if (!((t86172.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29770]"); structure_ref_error();} t86169 = t86172.value.structure_type24753->s1; /* x15558 QobiScheme.sc:484:14305 */ t86170 = a14886; /* x15554 QobiScheme.sc:484:14291 */ a14885 = t86169; a14886 = t86170; goto h1221; l16437: /* x15574 */ /* x15573 */ /* x15572 QobiScheme.sc:485:14316 */ /* x15565 QobiScheme.sc:485:14322 */ /* x15564 QobiScheme.sc:485:14328 */ t86163 = *((struct w16638 *)(&a14885)); /* x15563 QobiScheme.sc:485:14323 */ a35622 = t86163; /* x273845 */ /* x273844 */ t86164 = a35622; /* x273843 */ if (!((t86164.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29771]"); structure_ref_error();} t86161 = t86164.value.structure_type24753->s1; /* x15571 QobiScheme.sc:485:14331 */ /* x15569 QobiScheme.sc:485:14337 */ /* x15568 QobiScheme.sc:485:14344 */ t86167 = *((struct w16638 *)(&a14885)); /* x15567 QobiScheme.sc:485:14338 */ a36203 = t86167; /* x276169 */ /* x276168 */ t86168 = a36203; /* x276167 */ if (!((t86168.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30352]"); structure_ref_error();} t86165 = t86168.value.structure_type24753->s0; /* x15570 QobiScheme.sc:485:14347 */ t86166 = a14886; /* x270906 QobiScheme.sc:485:14332 */ t86162 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t86162==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 485, 14331); out_of_memory_error();} t86162->s0 = t86165; /* MOVE: branching squeezed to general */ if (t86166>=((struct structure_type24753 *)VALUE_OFFSET)) {t86162->s1.tag = STRUCTURE_TYPE24753; t86162->s1.value.structure_type24753 = t86166;} else t86162->s1.tag = (unsigned)t86166; /* x15562 QobiScheme.sc:485:14317 */ a14885 = t86161; a14886 = t86162; goto h1221;} /* REMOVEQ[1194] */ struct w12224 f1194(struct w49 a14862, struct w49 a14863) {struct w49 a14866; /* L */ struct structure_type24753 *a14867; /* C */ struct w16638 a35584; /* PAIR */ struct w16638 a35585; /* PAIR */ struct w16638 a36154; /* PAIR */ struct w16638 a36155; /* PAIR */ struct w49 t86175; struct w49 t86176; struct w49 t86177; struct w49 t86178; struct w16638 t86179; struct w16638 t86180; struct w49 t86181; struct structure_type24753 *t86182; struct w16638 t86183; struct w16638 t86184; struct w49 t86185; struct structure_type24753 *t86186; struct w16638 t86187; struct w16638 t86188; struct w49 t86189; struct structure_type24753 *t86190; struct w16638 t86191; struct w16638 t86192; struct structure_type24753 *t86193; struct w49 t86194; /* x15434 QobiScheme.sc:461:13598 */ /* x15432 QobiScheme.sc:461:13612 */ t86175 = a14863; /* x15433 QobiScheme.sc:461:13618 */ /* x15431 */ /* x15430 */ /* x15429 */ /* x15428 */ /* x15427 */ /* x15426 */ /* x15425 */ /* x15387 */ /* x15386 QobiScheme.sc:461:13603 */ a14866 = t86175; a14867 = (struct structure_type24753 *)NULL_TYPE; h1197: /* x15424 QobiScheme.sc:462:13626 */ /* x15390 QobiScheme.sc:462:13633 */ /* x15389 QobiScheme.sc:462:13640 */ t86176 = a14866; /* x270910 QobiScheme.sc:462:13634 */ if (!((t86176.tag)==NULL_TYPE)) goto l16452; /* x15395 */ /* x15394 */ /* x15393 QobiScheme.sc:462:13643 */ /* x15392 QobiScheme.sc:462:13652 */ t86193 = a14867; /* x15391 QobiScheme.sc:462:13644 */ /* MOVE: branching squeezed to general */ if (t86193>=((struct structure_type24753 *)VALUE_OFFSET)) {t86194.tag = STRUCTURE_TYPE24753; t86194.value.structure_type24753 = t86193;} else t86194.tag = (unsigned)t86193; return f26331(t86194); l16452: /* x15423 */ /* x15401 QobiScheme.sc:463:13658 */ /* x15397 QobiScheme.sc:463:13663 */ t86177 = a14862; /* x15400 QobiScheme.sc:463:13665 */ /* x15399 QobiScheme.sc:463:13672 */ t86179 = *((struct w16638 *)(&a14866)); /* x15398 QobiScheme.sc:463:13666 */ a36155 = t86179; /* x275977 */ /* x275976 */ t86180 = a36155; /* x275975 */ if (!((t86180.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30304]"); structure_ref_error();} t86178 = t86180.value.structure_type24753->s0; /* x270909 QobiScheme.sc:463:13659 */ /* EQ: dispatching general to general */ if (!((t86177.tag)==(t86178.tag))) goto l16454; switch (t86177.tag) {case FIXNUM_TYPE: if (!((t86177.value.fixnum_type)==(t86178.value.fixnum_type))) goto l16454; break; case FLONUM_TYPE: if (!((t86177.value.flonum_type)==(t86178.value.flonum_type))) goto l16454; break; case INPUT_PORT_TYPE: if (!((t86177.value.input_port_type)==(t86178.value.input_port_type))) goto l16454; break; case OUTPUT_PORT_TYPE: if (!((t86177.value.output_port_type)==(t86178.value.output_port_type))) goto l16454; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t86177.value.native_procedure_type15963)==(t86178.value.native_procedure_type15963))) goto l16454; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t86177.value.native_procedure_type19067)==(t86178.value.native_procedure_type19067))) goto l16454; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t86177.value.native_procedure_type19068)==(t86178.value.native_procedure_type19068))) goto l16454; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t86177.value.native_procedure_type22459)==(t86178.value.native_procedure_type22459))) goto l16454; break; case STRUCTURE_TYPE24753: if (!((t86177.value.structure_type24753)==(t86178.value.structure_type24753))) goto l16454; break; case STRUCTURE_TYPE24757: if (!((t86177.value.structure_type24757)==(t86178.value.structure_type24757))) goto l16454; break; case STRUCTURE_TYPE27501: if (!((t86177.value.structure_type27501)==(t86178.value.structure_type27501))) goto l16454; break; case STRUCTURE_TYPE27510: if (!((t86177.value.structure_type27510)==(t86178.value.structure_type27510))) goto l16454; break; case STRUCTURE_TYPE27621: if (!((t86177.value.structure_type27621)==(t86178.value.structure_type27621))) goto l16454; break; case STRUCTURE_TYPE27650: if (!((t86177.value.structure_type27650)==(t86178.value.structure_type27650))) goto l16454; break; case STRUCTURE_TYPE27669: if (!((t86177.value.structure_type27669)==(t86178.value.structure_type27669))) goto l16454; break; case STRUCTURE_TYPE27673: if (!((t86177.value.structure_type27673)==(t86178.value.structure_type27673))) goto l16454; break; case STRUCTURE_TYPE27692: if (!((t86177.value.structure_type27692)==(t86178.value.structure_type27692))) goto l16454; break; case STRUCTURE_TYPE27694: if (!((t86177.value.structure_type27694)==(t86178.value.structure_type27694))) goto l16454; break; case STRUCTURE_TYPE27698: if (!((t86177.value.structure_type27698)==(t86178.value.structure_type27698))) goto l16454; break; case STRUCTURE_TYPE27745: if (!((t86177.value.structure_type27745)==(t86178.value.structure_type27745))) goto l16454; break; case STRUCTURE_TYPE27747: if (!((t86177.value.structure_type27747)==(t86178.value.structure_type27747))) goto l16454; break; case STRUCTURE_TYPE27750: if (!((t86177.value.structure_type27750)==(t86178.value.structure_type27750))) goto l16454; break; case STRUCTURE_TYPE27753: if (!((t86177.value.structure_type27753)==(t86178.value.structure_type27753))) goto l16454; break; case STRUCTURE_TYPE27756: if (!((t86177.value.structure_type27756)==(t86178.value.structure_type27756))) goto l16454; break; case STRUCTURE_TYPE27761: if (!((t86177.value.structure_type27761)==(t86178.value.structure_type27761))) goto l16454; break; case STRUCTURE_TYPE27769: if (!((t86177.value.structure_type27769)==(t86178.value.structure_type27769))) goto l16454; break; case STRUCTURE_TYPE27776: if (!((t86177.value.structure_type27776)==(t86178.value.structure_type27776))) goto l16454; break; case STRUCTURE_TYPE27779: if (!((t86177.value.structure_type27779)==(t86178.value.structure_type27779))) goto l16454; break; case STRUCTURE_TYPE27858: if (!((t86177.value.structure_type27858)==(t86178.value.structure_type27858))) goto l16454; break; case STRING_TYPE: if (!((t86177.value.string_type)==(t86178.value.string_type))) goto l16454; break; case HEADED_VECTOR_TYPE27896: if (!((t86177.value.headed_vector_type27896)==(t86178.value.headed_vector_type27896))) goto l16454; break; case EXTERNAL_SYMBOL_TYPE: if (!((t86177.value.external_symbol_type)==(t86178.value.external_symbol_type))) goto l16454; break; case STRUCTURE_TYPE27908: if (!((t86177.value.structure_type27908)==(t86178.value.structure_type27908))) goto l16454; break; default:;} /* x15409 */ /* x15408 */ /* x15407 QobiScheme.sc:463:13676 */ /* x15405 QobiScheme.sc:463:13682 */ /* x15404 QobiScheme.sc:463:13688 */ t86191 = *((struct w16638 *)(&a14866)); /* x15403 QobiScheme.sc:463:13683 */ a35584 = t86191; /* x273693 */ /* x273692 */ t86192 = a35584; /* x273691 */ if (!((t86192.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29733]"); structure_ref_error();} t86189 = t86192.value.structure_type24753->s1; /* x15406 QobiScheme.sc:463:13691 */ t86190 = a14867; /* x15402 QobiScheme.sc:463:13677 */ a14866 = t86189; a14867 = t86190; goto h1197; l16454: /* x15422 */ /* x15421 */ /* x15420 QobiScheme.sc:464:13702 */ /* x15413 QobiScheme.sc:464:13708 */ /* x15412 QobiScheme.sc:464:13714 */ t86183 = *((struct w16638 *)(&a14866)); /* x15411 QobiScheme.sc:464:13709 */ a35585 = t86183; /* x273697 */ /* x273696 */ t86184 = a35585; /* x273695 */ if (!((t86184.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29734]"); structure_ref_error();} t86181 = t86184.value.structure_type24753->s1; /* x15419 QobiScheme.sc:464:13717 */ /* x15417 QobiScheme.sc:464:13723 */ /* x15416 QobiScheme.sc:464:13730 */ t86187 = *((struct w16638 *)(&a14866)); /* x15415 QobiScheme.sc:464:13724 */ a36154 = t86187; /* x275973 */ /* x275972 */ t86188 = a36154; /* x275971 */ if (!((t86188.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30303]"); structure_ref_error();} t86185 = t86188.value.structure_type24753->s0; /* x15418 QobiScheme.sc:464:13733 */ t86186 = a14867; /* x270908 QobiScheme.sc:464:13718 */ t86182 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t86182==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 464, 13717); out_of_memory_error();} t86182->s0 = t86185; /* MOVE: branching squeezed to general */ if (t86186>=((struct structure_type24753 *)VALUE_OFFSET)) {t86182->s1.tag = STRUCTURE_TYPE24753; t86182->s1.value.structure_type24753 = t86186;} else t86182->s1.tag = (unsigned)t86186; /* x15410 QobiScheme.sc:464:13703 */ a14866 = t86181; a14867 = t86182; goto h1197;} /* PAIRWISE?[1183] */ unsigned f1183(unsigned a14845, struct w11873 a14846) {struct w49 a14850; /* L1 */ struct w49 a14851; /* L2 */ struct w3457 a15011; /* X */ struct w3457 a15012; /* Y */ struct w49 a22311; /* E1 */ struct w49 a22312; /* E2 */ struct w49 a22323; /* E1 */ struct w49 a22324; /* E2 */ struct w49 a24571; /* E1 */ struct w49 a24572; /* E2 */ struct w49 a35530; /* PAIR */ struct w49 a35531; /* PAIR */ struct w11873 a35532; /* PAIR */ struct w49 a36095; /* PAIR */ struct w49 a36096; /* PAIR */ struct w11873 t86195; struct w11873 t86196; struct w49 t86197; struct w49 t86198; unsigned t86199; struct w49 t86200; struct w49 t86201; struct w49 t86202; struct w49 t86203; struct w16638 t86204; struct w16638 t86205; struct w49 t86206; struct w49 t86207; struct w49 t86208; struct w49 t86209; struct w49 t86210; struct w49 t86211; struct w49 t86212; struct w49 t86213; struct w49 t86214; struct w49 t86215; struct w49 t86216; struct w49 t86217; struct w3457 t86218; struct w3457 t86219; struct w3457 t86220; struct w3457 t86221; struct w3457 t86222; struct w3457 t86223; struct w49 t86224; struct w49 t86225; struct w49 t86226; struct w49 t86227; struct w49 t86228; struct w49 t86229; struct w49 t86230; struct w49 t86231; struct w49 t86232; struct w49 t86233; struct w49 t86234; struct w49 t86235; struct w11873 t86236; struct w11873 t86237; /* x15334 QobiScheme.sc:445:13135 */ /* x15334 QobiScheme.sc:445:13135 */ /* x15333 QobiScheme.sc:445:13139 */ /* x15332 QobiScheme.sc:445:13146 */ t86195 = a14846; /* x270911 QobiScheme.sc:445:13140 */ if ((t86195.tag)==NULL_TYPE) goto l16455; /* x15328 */ /* x15324 QobiScheme.sc:446:13169 */ t86196 = a14846; /* x15327 QobiScheme.sc:446:13176 */ /* x15326 QobiScheme.sc:446:13182 */ t86236 = a14846; /* x15325 QobiScheme.sc:446:13177 */ a35532 = t86236; /* x273485 */ /* x273484 */ t86237 = a35532; /* x273483 */ if (!((t86237.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29681]"); structure_ref_error();} t86197 = t86237.value.structure_type24753->s1; /* x15323 */ /* x15322 */ /* x15321 */ /* x15320 */ /* x15319 */ /* x15318 */ /* x15317 */ /* x15290 */ /* x15289 QobiScheme.sc:446:13159 */ a14850 = *((struct w49 *)(&t86196)); a14851 = t86197; h1187: /* x15316 QobiScheme.sc:448:13238 */ /* x15315 QobiScheme.sc:448:13242 */ /* x15314 QobiScheme.sc:448:13249 */ t86198 = a14851; /* x270912 QobiScheme.sc:448:13243 */ if ((t86198.tag)==NULL_TYPE) goto l16455; /* x15310 */ /* x15300 QobiScheme.sc:449:13261 */ /* x15296 QobiScheme.sc:449:13264 */ /* x15295 QobiScheme.sc:449:13271 */ t86226 = a14850; /* x15294 QobiScheme.sc:449:13265 */ a36095 = t86226; /* x275737 */ /* x275736 */ t86227 = a36095; /* x275735 */ if (!((t86227.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30244]"); structure_ref_error();} t86200 = t86227.value.structure_type24753->s0; /* x15299 QobiScheme.sc:449:13275 */ /* x15298 QobiScheme.sc:449:13282 */ t86228 = a14851; /* x15297 QobiScheme.sc:449:13276 */ a36096 = t86228; /* x275741 */ /* x275740 */ t86229 = a36096; /* x275739 */ if (!((t86229.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30245]"); structure_ref_error();} t86201 = t86229.value.structure_type24753->s0; /* x15293 QobiScheme.sc:449:13262 */ t86199 = a14845; switch (t86199) {case NATIVE_PROCEDURE_TYPE17926: a24571 = t86200; a24572 = t86201; /* x110436 stalin.sc:11867:414394 */ /* x110435 stalin.sc:11867:414398 */ /* x110434 stalin.sc:11867:414403 */ /* x110433 stalin.sc:11867:414422 */ t86202 = a24571; /* x110432 stalin.sc:11867:414404 */ if (f8526(t86202)==FALSE_TYPE) goto l16460; /* x110428 */ /* x110427 stalin.sc:11868:414433 */ /* x110426 stalin.sc:11868:414438 */ /* x110425 stalin.sc:11868:414457 */ t86203 = a24572; /* x110424 stalin.sc:11868:414439 */ if (f8526(t86203)==FALSE_TYPE) goto l16460; /* x110420 */ /* x110410 stalin.sc:11869:414473 */ /* x110406 stalin.sc:11869:414478 */ /* x110405 stalin.sc:11869:414501 */ t86206 = a24571; /* x110404 stalin.sc:11869:414479 */ t86204 = f8897(t86206); /* x110409 stalin.sc:11870:414514 */ /* x110408 stalin.sc:11870:414537 */ t86207 = a24572; /* x110407 stalin.sc:11870:414515 */ t86205 = f8897(t86207); /* x269414 stalin.sc:11869:414474 */ /* EQ: dispatching general to general */ if (!((t86204.tag)==(t86205.tag))) goto l16456; switch (t86204.tag) {case FIXNUM_TYPE: if (!((t86204.value.fixnum_type)==(t86205.value.fixnum_type))) goto l16456; break; case FLONUM_TYPE: if (!((t86204.value.flonum_type)==(t86205.value.flonum_type))) goto l16456; break; case INPUT_PORT_TYPE: if (!((t86204.value.input_port_type)==(t86205.value.input_port_type))) goto l16456; break; case OUTPUT_PORT_TYPE: if (!((t86204.value.output_port_type)==(t86205.value.output_port_type))) goto l16456; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t86204.value.native_procedure_type15963)==(t86205.value.native_procedure_type15963))) goto l16456; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t86204.value.native_procedure_type19067)==(t86205.value.native_procedure_type19067))) goto l16456; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t86204.value.native_procedure_type19068)==(t86205.value.native_procedure_type19068))) goto l16456; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t86204.value.native_procedure_type22459)==(t86205.value.native_procedure_type22459))) goto l16456; break; case STRUCTURE_TYPE24753: if (!((t86204.value.structure_type24753)==(t86205.value.structure_type24753))) goto l16456; break; case STRUCTURE_TYPE24757: if (!((t86204.value.structure_type24757)==(t86205.value.structure_type24757))) goto l16456; break; case STRUCTURE_TYPE27501: if (!((t86204.value.structure_type27501)==(t86205.value.structure_type27501))) goto l16456; break; case STRUCTURE_TYPE27510: if (!((t86204.value.structure_type27510)==(t86205.value.structure_type27510))) goto l16456; break; case STRUCTURE_TYPE27621: if (!((t86204.value.structure_type27621)==(t86205.value.structure_type27621))) goto l16456; break; case STRUCTURE_TYPE27650: if (!((t86204.value.structure_type27650)==(t86205.value.structure_type27650))) goto l16456; break; case STRUCTURE_TYPE27669: if (!((t86204.value.structure_type27669)==(t86205.value.structure_type27669))) goto l16456; break; case STRUCTURE_TYPE27673: if (!((t86204.value.structure_type27673)==(t86205.value.structure_type27673))) goto l16456; break; case STRUCTURE_TYPE27692: if (!((t86204.value.structure_type27692)==(t86205.value.structure_type27692))) goto l16456; break; case STRUCTURE_TYPE27694: if (!((t86204.value.structure_type27694)==(t86205.value.structure_type27694))) goto l16456; break; case STRUCTURE_TYPE27698: if (!((t86204.value.structure_type27698)==(t86205.value.structure_type27698))) goto l16456; break; case STRUCTURE_TYPE27745: if (!((t86204.value.structure_type27745)==(t86205.value.structure_type27745))) goto l16456; break; case STRUCTURE_TYPE27747: if (!((t86204.value.structure_type27747)==(t86205.value.structure_type27747))) goto l16456; break; case STRUCTURE_TYPE27750: if (!((t86204.value.structure_type27750)==(t86205.value.structure_type27750))) goto l16456; break; case STRUCTURE_TYPE27753: if (!((t86204.value.structure_type27753)==(t86205.value.structure_type27753))) goto l16456; break; case STRUCTURE_TYPE27756: if (!((t86204.value.structure_type27756)==(t86205.value.structure_type27756))) goto l16456; break; case STRUCTURE_TYPE27761: if (!((t86204.value.structure_type27761)==(t86205.value.structure_type27761))) goto l16456; break; case STRUCTURE_TYPE27769: if (!((t86204.value.structure_type27769)==(t86205.value.structure_type27769))) goto l16456; break; case STRUCTURE_TYPE27776: if (!((t86204.value.structure_type27776)==(t86205.value.structure_type27776))) goto l16456; break; case STRUCTURE_TYPE27779: if (!((t86204.value.structure_type27779)==(t86205.value.structure_type27779))) goto l16456; break; case STRUCTURE_TYPE27858: if (!((t86204.value.structure_type27858)==(t86205.value.structure_type27858))) goto l16456; break; case STRING_TYPE: if (!((t86204.value.string_type)==(t86205.value.string_type))) goto l16456; break; case HEADED_VECTOR_TYPE27896: if (!((t86204.value.headed_vector_type27896)==(t86205.value.headed_vector_type27896))) goto l16456; break; case EXTERNAL_SYMBOL_TYPE: if (!((t86204.value.external_symbol_type)==(t86205.value.external_symbol_type))) goto l16456; break; case STRUCTURE_TYPE27908: if (!((t86204.value.structure_type27908)==(t86205.value.structure_type27908))) goto l16456; break; default:;} /* x110418 */ /* x110414 stalin.sc:11871:414558 */ /* x110413 stalin.sc:11871:414576 */ t86210 = a24571; /* x110412 stalin.sc:11871:414559 */ t86208 = f8965(t86210); /* x110417 stalin.sc:11872:414589 */ /* x110416 stalin.sc:11872:414607 */ t86211 = a24572; /* x110415 stalin.sc:11872:414590 */ t86209 = f8965(t86211); /* x269413 stalin.sc:11871:414554 */ /* EQ: dispatching general to general */ if (!((t86208.tag)==(t86209.tag))) goto l16456; switch (t86208.tag) {case FIXNUM_TYPE: if (!((t86208.value.fixnum_type)==(t86209.value.fixnum_type))) goto l16456; break; case FLONUM_TYPE: if (!((t86208.value.flonum_type)==(t86209.value.flonum_type))) goto l16456; break; case INPUT_PORT_TYPE: if (!((t86208.value.input_port_type)==(t86209.value.input_port_type))) goto l16456; break; case OUTPUT_PORT_TYPE: if (!((t86208.value.output_port_type)==(t86209.value.output_port_type))) goto l16456; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t86208.value.native_procedure_type15963)==(t86209.value.native_procedure_type15963))) goto l16456; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t86208.value.native_procedure_type19067)==(t86209.value.native_procedure_type19067))) goto l16456; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t86208.value.native_procedure_type19068)==(t86209.value.native_procedure_type19068))) goto l16456; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t86208.value.native_procedure_type22459)==(t86209.value.native_procedure_type22459))) goto l16456; break; case STRUCTURE_TYPE24753: if (!((t86208.value.structure_type24753)==(t86209.value.structure_type24753))) goto l16456; break; case STRUCTURE_TYPE24757: if (!((t86208.value.structure_type24757)==(t86209.value.structure_type24757))) goto l16456; break; case STRUCTURE_TYPE27501: if (!((t86208.value.structure_type27501)==(t86209.value.structure_type27501))) goto l16456; break; case STRUCTURE_TYPE27510: if (!((t86208.value.structure_type27510)==(t86209.value.structure_type27510))) goto l16456; break; case STRUCTURE_TYPE27621: if (!((t86208.value.structure_type27621)==(t86209.value.structure_type27621))) goto l16456; break; case STRUCTURE_TYPE27650: if (!((t86208.value.structure_type27650)==(t86209.value.structure_type27650))) goto l16456; break; case STRUCTURE_TYPE27669: if (!((t86208.value.structure_type27669)==(t86209.value.structure_type27669))) goto l16456; break; case STRUCTURE_TYPE27673: if (!((t86208.value.structure_type27673)==(t86209.value.structure_type27673))) goto l16456; break; case STRUCTURE_TYPE27692: if (!((t86208.value.structure_type27692)==(t86209.value.structure_type27692))) goto l16456; break; case STRUCTURE_TYPE27694: if (!((t86208.value.structure_type27694)==(t86209.value.structure_type27694))) goto l16456; break; case STRUCTURE_TYPE27698: if (!((t86208.value.structure_type27698)==(t86209.value.structure_type27698))) goto l16456; break; case STRUCTURE_TYPE27745: if (!((t86208.value.structure_type27745)==(t86209.value.structure_type27745))) goto l16456; break; case STRUCTURE_TYPE27747: if (!((t86208.value.structure_type27747)==(t86209.value.structure_type27747))) goto l16456; break; case STRUCTURE_TYPE27750: if (!((t86208.value.structure_type27750)==(t86209.value.structure_type27750))) goto l16456; break; case STRUCTURE_TYPE27753: if (!((t86208.value.structure_type27753)==(t86209.value.structure_type27753))) goto l16456; break; case STRUCTURE_TYPE27756: if (!((t86208.value.structure_type27756)==(t86209.value.structure_type27756))) goto l16456; break; case STRUCTURE_TYPE27761: if (!((t86208.value.structure_type27761)==(t86209.value.structure_type27761))) goto l16456; break; case STRUCTURE_TYPE27769: if (!((t86208.value.structure_type27769)==(t86209.value.structure_type27769))) goto l16456; break; case STRUCTURE_TYPE27776: if (!((t86208.value.structure_type27776)==(t86209.value.structure_type27776))) goto l16456; break; case STRUCTURE_TYPE27779: if (!((t86208.value.structure_type27779)==(t86209.value.structure_type27779))) goto l16456; break; case STRUCTURE_TYPE27858: if (!((t86208.value.structure_type27858)==(t86209.value.structure_type27858))) goto l16456; break; case STRING_TYPE: if (!((t86208.value.string_type)==(t86209.value.string_type))) goto l16456; break; case HEADED_VECTOR_TYPE27896: if (!((t86208.value.headed_vector_type27896)==(t86209.value.headed_vector_type27896))) goto l16456; break; case EXTERNAL_SYMBOL_TYPE: if (!((t86208.value.external_symbol_type)==(t86209.value.external_symbol_type))) goto l16456; break; case STRUCTURE_TYPE27908: if (!((t86208.value.structure_type27908)==(t86209.value.structure_type27908))) goto l16456; break; default:;} break; case NATIVE_PROCEDURE_TYPE24284: a22323 = t86200; a22324 = t86201; /* x76482 stalin.sc:4860:165148 */ /* x76478 stalin.sc:4860:165153 */ /* x76477 stalin.sc:4860:165169 */ t86214 = a22323; /* x76476 stalin.sc:4860:165154 */ t86212 = f8976(t86214); /* x76481 stalin.sc:4860:165173 */ /* x76480 stalin.sc:4860:165189 */ t86215 = a22324; /* x76479 stalin.sc:4860:165174 */ t86213 = f8976(t86215); /* x270123 stalin.sc:4860:165149 */ /* EQ: dispatching general to general */ if (!((t86212.tag)==(t86213.tag))) goto l16456; switch (t86212.tag) {case FIXNUM_TYPE: if (!((t86212.value.fixnum_type)==(t86213.value.fixnum_type))) goto l16456; break; case FLONUM_TYPE: if (!((t86212.value.flonum_type)==(t86213.value.flonum_type))) goto l16456; break; case INPUT_PORT_TYPE: if (!((t86212.value.input_port_type)==(t86213.value.input_port_type))) goto l16456; break; case OUTPUT_PORT_TYPE: if (!((t86212.value.output_port_type)==(t86213.value.output_port_type))) goto l16456; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t86212.value.native_procedure_type15963)==(t86213.value.native_procedure_type15963))) goto l16456; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t86212.value.native_procedure_type19067)==(t86213.value.native_procedure_type19067))) goto l16456; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t86212.value.native_procedure_type19068)==(t86213.value.native_procedure_type19068))) goto l16456; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t86212.value.native_procedure_type22459)==(t86213.value.native_procedure_type22459))) goto l16456; break; case STRUCTURE_TYPE24753: if (!((t86212.value.structure_type24753)==(t86213.value.structure_type24753))) goto l16456; break; case STRUCTURE_TYPE24757: if (!((t86212.value.structure_type24757)==(t86213.value.structure_type24757))) goto l16456; break; case STRUCTURE_TYPE27501: if (!((t86212.value.structure_type27501)==(t86213.value.structure_type27501))) goto l16456; break; case STRUCTURE_TYPE27510: if (!((t86212.value.structure_type27510)==(t86213.value.structure_type27510))) goto l16456; break; case STRUCTURE_TYPE27621: if (!((t86212.value.structure_type27621)==(t86213.value.structure_type27621))) goto l16456; break; case STRUCTURE_TYPE27650: if (!((t86212.value.structure_type27650)==(t86213.value.structure_type27650))) goto l16456; break; case STRUCTURE_TYPE27669: if (!((t86212.value.structure_type27669)==(t86213.value.structure_type27669))) goto l16456; break; case STRUCTURE_TYPE27673: if (!((t86212.value.structure_type27673)==(t86213.value.structure_type27673))) goto l16456; break; case STRUCTURE_TYPE27692: if (!((t86212.value.structure_type27692)==(t86213.value.structure_type27692))) goto l16456; break; case STRUCTURE_TYPE27694: if (!((t86212.value.structure_type27694)==(t86213.value.structure_type27694))) goto l16456; break; case STRUCTURE_TYPE27698: if (!((t86212.value.structure_type27698)==(t86213.value.structure_type27698))) goto l16456; break; case STRUCTURE_TYPE27745: if (!((t86212.value.structure_type27745)==(t86213.value.structure_type27745))) goto l16456; break; case STRUCTURE_TYPE27747: if (!((t86212.value.structure_type27747)==(t86213.value.structure_type27747))) goto l16456; break; case STRUCTURE_TYPE27750: if (!((t86212.value.structure_type27750)==(t86213.value.structure_type27750))) goto l16456; break; case STRUCTURE_TYPE27753: if (!((t86212.value.structure_type27753)==(t86213.value.structure_type27753))) goto l16456; break; case STRUCTURE_TYPE27756: if (!((t86212.value.structure_type27756)==(t86213.value.structure_type27756))) goto l16456; break; case STRUCTURE_TYPE27761: if (!((t86212.value.structure_type27761)==(t86213.value.structure_type27761))) goto l16456; break; case STRUCTURE_TYPE27769: if (!((t86212.value.structure_type27769)==(t86213.value.structure_type27769))) goto l16456; break; case STRUCTURE_TYPE27776: if (!((t86212.value.structure_type27776)==(t86213.value.structure_type27776))) goto l16456; break; case STRUCTURE_TYPE27779: if (!((t86212.value.structure_type27779)==(t86213.value.structure_type27779))) goto l16456; break; case STRUCTURE_TYPE27858: if (!((t86212.value.structure_type27858)==(t86213.value.structure_type27858))) goto l16456; break; case STRING_TYPE: if (!((t86212.value.string_type)==(t86213.value.string_type))) goto l16456; break; case HEADED_VECTOR_TYPE27896: if (!((t86212.value.headed_vector_type27896)==(t86213.value.headed_vector_type27896))) goto l16456; break; case EXTERNAL_SYMBOL_TYPE: if (!((t86212.value.external_symbol_type)==(t86213.value.external_symbol_type))) goto l16456; break; case STRUCTURE_TYPE27908: if (!((t86212.value.structure_type27908)==(t86213.value.structure_type27908))) goto l16456; break; default:;} break; default: a22311 = t86200; a22312 = t86201; /* x76342 stalin.sc:4817:163311 */ /* x76341 stalin.sc:4817:163315 */ /* x76340 stalin.sc:4817:163320 */ /* x76339 stalin.sc:4817:163339 */ t86216 = a22311; /* x76338 stalin.sc:4817:163321 */ if (f8526(t86216)==FALSE_TYPE) goto l16460; /* x76334 */ /* x76333 stalin.sc:4818:163348 */ /* x76332 stalin.sc:4818:163353 */ /* x76331 stalin.sc:4818:163372 */ t86217 = a22312; /* x76330 stalin.sc:4818:163354 */ if (f8526(t86217)==FALSE_TYPE) goto l16460; /* x76326 */ /* x76322 stalin.sc:4819:163394 */ /* x76321 stalin.sc:4819:163405 */ t86224 = a22311; /* x76320 stalin.sc:4819:163395 */ t86218 = f8951(t86224); /* x76325 stalin.sc:4819:163409 */ /* x76324 stalin.sc:4819:163420 */ t86225 = a22312; /* x76323 stalin.sc:4819:163410 */ t86219 = f8951(t86225); /* x76319 stalin.sc:4819:163382 */ a15011 = t86218; a15012 = t86219; /* x16451 QobiScheme.sc:610:17217 */ /* x16445 QobiScheme.sc:610:17222 */ /* x16443 QobiScheme.sc:610:17232 */ t86220 = a15011; /* x16444 QobiScheme.sc:610:17234 */ t86221 = a15012; /* x16442 QobiScheme.sc:610:17223 */ if (f1378(t86220, t86221)==FALSE_TYPE) goto l16456; /* x16449 */ /* x16447 QobiScheme.sc:610:17247 */ t86222 = a15012; /* x16448 QobiScheme.sc:610:17249 */ t86223 = a15011; /* x16446 QobiScheme.sc:610:17238 */ if (f1378(t86222, t86223)==FALSE_TYPE) goto l16456;} l16460: /* x15308 */ /* x15304 QobiScheme.sc:449:13293 */ /* x15303 QobiScheme.sc:449:13299 */ t86232 = a14850; /* x15302 QobiScheme.sc:449:13294 */ a35530 = t86232; /* x273477 */ /* x273476 */ t86233 = a35530; /* x273475 */ if (!((t86233.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29679]"); structure_ref_error();} t86230 = t86233.value.structure_type24753->s1; /* x15307 QobiScheme.sc:449:13303 */ /* x15306 QobiScheme.sc:449:13309 */ t86234 = a14851; /* x15305 QobiScheme.sc:449:13304 */ a35531 = t86234; /* x273481 */ /* x273480 */ t86235 = a35531; /* x273479 */ if (!((t86235.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29680]"); structure_ref_error();} t86231 = t86235.value.structure_type24753->s1; /* x15301 QobiScheme.sc:449:13288 */ a14850 = t86230; a14851 = t86231; goto h1187; l16455: return TRUE_TYPE; l16456: return FALSE_TYPE;} /* ASSP[1182] */ struct w49 f1182(struct w49 a14843, struct w49 a14844) {struct w49 r1182; struct w16638 a35407; /* PAIR */ struct w16638 a35876; /* PAIR */ struct w16638 a35877; /* PAIR */ struct w49 t86238; struct w49 t86239; struct w49 t86240; struct w49 t86241; struct w16638 t86242; struct w16638 t86243; struct w49 t86244; struct w49 t86245; struct w16638 t86246; struct w16638 t86247; struct w16638 t86248; struct w16638 t86249; h1182: /* x15284 QobiScheme.sc:441:13007 */ /* x15263 QobiScheme.sc:441:13012 */ /* x15262 QobiScheme.sc:441:13017 */ /* x15261 QobiScheme.sc:441:13024 */ t86238 = a14844; /* x270914 QobiScheme.sc:441:13018 */ if ((t86238.tag)==NULL_TYPE) goto l16468; /* x15282 */ /* x15271 QobiScheme.sc:442:13042 */ /* x15265 QobiScheme.sc:442:13045 */ t86239 = a14843; /* x15270 QobiScheme.sc:442:13047 */ /* x15269 QobiScheme.sc:442:13052 */ /* x15268 QobiScheme.sc:442:13059 */ t86242 = *((struct w16638 *)(&a14844)); /* x15267 QobiScheme.sc:442:13053 */ a35877 = t86242; /* x274865 */ /* x274864 */ t86243 = a35877; /* x274863 */ if (!((t86243.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30026]"); structure_ref_error();} t86241 = t86243.value.structure_type24753->s0; /* x270913 QobiScheme.sc:442:13048 */ if (!((t86241.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 442, 13047); structure_ref_error();} t86240 = t86241.value.structure_type24753->s0; /* x15264 QobiScheme.sc:442:13043 */ if (f8788(t86239, t86240)==FALSE_TYPE) goto l16470; /* x15274 QobiScheme.sc:442:13068 */ /* x15273 QobiScheme.sc:442:13075 */ t86248 = *((struct w16638 *)(&a14844)); /* x15272 QobiScheme.sc:442:13069 */ a35876 = t86248; /* x274861 */ /* x274860 */ t86249 = a35876; /* x274859 */ if ((t86249.tag)==STRUCTURE_TYPE24753) return t86249.value.structure_type24753->s0; backtrace_internal("[clone CAR[26176] 30025]"); structure_ref_error(); l16470: /* x15281 QobiScheme.sc:442:13082 */ /* x15276 QobiScheme.sc:442:13088 */ /* x15277 QobiScheme.sc:442:13090 */ t86244 = a14843; /* x15280 QobiScheme.sc:442:13092 */ /* x15279 QobiScheme.sc:442:13098 */ t86246 = *((struct w16638 *)(&a14844)); /* x15278 QobiScheme.sc:442:13093 */ a35407 = t86246; /* x272985 */ /* x272984 */ t86247 = a35407; /* x272983 */ if (!((t86247.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29556]"); structure_ref_error();} t86245 = t86247.value.structure_type24753->s1; /* x15275 QobiScheme.sc:442:13083 */ a14843 = t86244; a14844 = t86245; goto h1182; l16468: /* x15283 */ r1182.tag = FALSE_TYPE; return r1182;} /* MEMP[1178] */ struct w16638 f1178(struct p14552 *a14839, struct w49 a14840, struct w49 a14841) {struct w16638 r1178; struct w49 a19806; /* OBJ */ struct w49 a19886; /* OBJ */ struct w49 a23908; /* U1 */ struct w49 a23909; /* U2 */ struct w49 a24976; /* U-E1 */ struct w49 a24977; /* U-E2 */ struct w49 a25958; /* U1 */ struct w49 a25959; /* U2 */ struct w16638 a35595; /* PAIR */ struct w16638 a36175; /* PAIR */ struct w49 a37406; /* OBJ */ struct w49 a37407; /* OBJ */ struct w49 a37523; /* OBJ */ struct w49 a37524; /* OBJ */ struct w49 a37739; /* OBJ */ struct w49 t86250; struct p14552 *t86251; struct w49 t86252; struct w49 t86253; struct w49 t86254; struct w49 t86255; struct w49 t86256; struct w49 t86257; struct w49 t86258; struct w49 t86259; struct w49 t86260; struct w49 t86261; struct w49 t86262; struct w49 t86263; struct w49 t86264; struct w49 t86265; struct w49 t86266; struct w49 t86267; struct w49 t86268; struct w49 t86269; struct w49 t86270; struct w49 t86271; struct p7717 *t86272; struct w49 t86273; struct w49 t86274; struct w49 t86275; struct w49 t86276; struct w49 t86277; struct w49 t86278; struct w49 t86279; struct w49 t86280; struct w49 t86281; struct w49 t86282; struct w49 t86283; struct p14553 *t86284; struct w12224 t86285; struct w228345 t86286; struct w49 t86287; struct structure_type24753 *t86288; struct w16638 t86289; struct w16638 t86290; struct p14552 *t86291; struct w49 t86292; struct w49 t86293; struct w16638 t86294; struct w16638 t86295; struct p14553 *e14553; struct p14552 *p14553; h1178: /* x15256 QobiScheme.sc:438:12910 */ /* x15233 QobiScheme.sc:438:12917 */ /* x15232 QobiScheme.sc:438:12924 */ t86250 = a14841; /* x270916 QobiScheme.sc:438:12918 */ if (!((t86250.tag)==NULL_TYPE)) goto l16472; /* x15236 */ /* x15235 */ /* x15234 QobiScheme.sc:438:12927 */ r1178.tag = FALSE_TYPE; return r1178; l16472: /* x15255 */ /* x15242 QobiScheme.sc:438:12932 */ /* x15238 QobiScheme.sc:438:12935 */ t86252 = a14840; /* x15241 QobiScheme.sc:438:12937 */ /* x15240 QobiScheme.sc:438:12944 */ t86289 = *((struct w16638 *)(&a14841)); /* x15239 QobiScheme.sc:438:12938 */ a36175 = t86289; /* x276057 */ /* x276056 */ t86290 = a36175; /* x276055 */ if (!((t86290.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30324]"); structure_ref_error();} t86253 = t86290.value.structure_type24753->s0; /* x15237 QobiScheme.sc:438:12933 */ t86251 = a14839; switch ((unsigned)t86251) {case NATIVE_PROCEDURE_TYPE340: t86254 = t86252; t86255 = t86253; if (f27434(t86254, t86255)==FALSE_TYPE) goto l16474; break; case NATIVE_PROCEDURE_TYPE7195: if (f9428(t86252, t86253)==FALSE_TYPE) goto l16474; break; case NATIVE_PROCEDURE_TYPE7236: if (f8788(t86252, t86253)==FALSE_TYPE) goto l16474; break; case NATIVE_PROCEDURE_TYPE15481: a24976 = t86252; a24977 = t86253; /* x115903 stalin.sc:13087:458842 */ /* x115893 stalin.sc:13087:458847 */ /* x115889 stalin.sc:13087:458852 */ /* x115888 stalin.sc:13087:458857 */ t86258 = a24976; /* x269262 stalin.sc:13087:458853 */ if (!((t86258.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 13087, 458852); structure_ref_error();} t86256 = t86258.value.structure_type24753->s0; /* x115892 stalin.sc:13087:458863 */ /* x115891 stalin.sc:13087:458868 */ t86259 = a24977; /* x269261 stalin.sc:13087:458864 */ if (!((t86259.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 13087, 458863); structure_ref_error();} t86257 = t86259.value.structure_type24753->s0; /* x269263 stalin.sc:13087:458848 */ /* EQ: dispatching general to general */ if (!((t86256.tag)==(t86257.tag))) goto l16474; switch (t86256.tag) {case FIXNUM_TYPE: if (!((t86256.value.fixnum_type)==(t86257.value.fixnum_type))) goto l16474; break; case FLONUM_TYPE: if (!((t86256.value.flonum_type)==(t86257.value.flonum_type))) goto l16474; break; case INPUT_PORT_TYPE: if (!((t86256.value.input_port_type)==(t86257.value.input_port_type))) goto l16474; break; case OUTPUT_PORT_TYPE: if (!((t86256.value.output_port_type)==(t86257.value.output_port_type))) goto l16474; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t86256.value.native_procedure_type15963)==(t86257.value.native_procedure_type15963))) goto l16474; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t86256.value.native_procedure_type19067)==(t86257.value.native_procedure_type19067))) goto l16474; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t86256.value.native_procedure_type19068)==(t86257.value.native_procedure_type19068))) goto l16474; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t86256.value.native_procedure_type22459)==(t86257.value.native_procedure_type22459))) goto l16474; break; case STRUCTURE_TYPE24753: if (!((t86256.value.structure_type24753)==(t86257.value.structure_type24753))) goto l16474; break; case STRUCTURE_TYPE24757: if (!((t86256.value.structure_type24757)==(t86257.value.structure_type24757))) goto l16474; break; case STRUCTURE_TYPE27501: if (!((t86256.value.structure_type27501)==(t86257.value.structure_type27501))) goto l16474; break; case STRUCTURE_TYPE27510: if (!((t86256.value.structure_type27510)==(t86257.value.structure_type27510))) goto l16474; break; case STRUCTURE_TYPE27621: if (!((t86256.value.structure_type27621)==(t86257.value.structure_type27621))) goto l16474; break; case STRUCTURE_TYPE27650: if (!((t86256.value.structure_type27650)==(t86257.value.structure_type27650))) goto l16474; break; case STRUCTURE_TYPE27669: if (!((t86256.value.structure_type27669)==(t86257.value.structure_type27669))) goto l16474; break; case STRUCTURE_TYPE27673: if (!((t86256.value.structure_type27673)==(t86257.value.structure_type27673))) goto l16474; break; case STRUCTURE_TYPE27692: if (!((t86256.value.structure_type27692)==(t86257.value.structure_type27692))) goto l16474; break; case STRUCTURE_TYPE27694: if (!((t86256.value.structure_type27694)==(t86257.value.structure_type27694))) goto l16474; break; case STRUCTURE_TYPE27698: if (!((t86256.value.structure_type27698)==(t86257.value.structure_type27698))) goto l16474; break; case STRUCTURE_TYPE27745: if (!((t86256.value.structure_type27745)==(t86257.value.structure_type27745))) goto l16474; break; case STRUCTURE_TYPE27747: if (!((t86256.value.structure_type27747)==(t86257.value.structure_type27747))) goto l16474; break; case STRUCTURE_TYPE27750: if (!((t86256.value.structure_type27750)==(t86257.value.structure_type27750))) goto l16474; break; case STRUCTURE_TYPE27753: if (!((t86256.value.structure_type27753)==(t86257.value.structure_type27753))) goto l16474; break; case STRUCTURE_TYPE27756: if (!((t86256.value.structure_type27756)==(t86257.value.structure_type27756))) goto l16474; break; case STRUCTURE_TYPE27761: if (!((t86256.value.structure_type27761)==(t86257.value.structure_type27761))) goto l16474; break; case STRUCTURE_TYPE27769: if (!((t86256.value.structure_type27769)==(t86257.value.structure_type27769))) goto l16474; break; case STRUCTURE_TYPE27776: if (!((t86256.value.structure_type27776)==(t86257.value.structure_type27776))) goto l16474; break; case STRUCTURE_TYPE27779: if (!((t86256.value.structure_type27779)==(t86257.value.structure_type27779))) goto l16474; break; case STRUCTURE_TYPE27858: if (!((t86256.value.structure_type27858)==(t86257.value.structure_type27858))) goto l16474; break; case STRING_TYPE: if (!((t86256.value.string_type)==(t86257.value.string_type))) goto l16474; break; case HEADED_VECTOR_TYPE27896: if (!((t86256.value.headed_vector_type27896)==(t86257.value.headed_vector_type27896))) goto l16474; break; case EXTERNAL_SYMBOL_TYPE: if (!((t86256.value.external_symbol_type)==(t86257.value.external_symbol_type))) goto l16474; break; case STRUCTURE_TYPE27908: if (!((t86256.value.structure_type27908)==(t86257.value.structure_type27908))) goto l16474; break; default:;} /* x115901 */ /* x115897 stalin.sc:13087:458880 */ /* x115896 stalin.sc:13087:458885 */ t86262 = a24976; /* x269259 stalin.sc:13087:458881 */ if (!((t86262.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 13087, 458880); structure_ref_error();} t86260 = t86262.value.structure_type24753->s1; /* x115900 stalin.sc:13087:458891 */ /* x115899 stalin.sc:13087:458896 */ t86263 = a24977; /* x269258 stalin.sc:13087:458892 */ if (!((t86263.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 13087, 458891); structure_ref_error();} t86261 = t86263.value.structure_type24753->s1; /* x269260 stalin.sc:13087:458876 */ /* EQ: dispatching general to general */ if (!((t86260.tag)==(t86261.tag))) goto l16474; switch (t86260.tag) {case FIXNUM_TYPE: if (!((t86260.value.fixnum_type)==(t86261.value.fixnum_type))) goto l16474; break; case FLONUM_TYPE: if (!((t86260.value.flonum_type)==(t86261.value.flonum_type))) goto l16474; break; case INPUT_PORT_TYPE: if (!((t86260.value.input_port_type)==(t86261.value.input_port_type))) goto l16474; break; case OUTPUT_PORT_TYPE: if (!((t86260.value.output_port_type)==(t86261.value.output_port_type))) goto l16474; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t86260.value.native_procedure_type15963)==(t86261.value.native_procedure_type15963))) goto l16474; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t86260.value.native_procedure_type19067)==(t86261.value.native_procedure_type19067))) goto l16474; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t86260.value.native_procedure_type19068)==(t86261.value.native_procedure_type19068))) goto l16474; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t86260.value.native_procedure_type22459)==(t86261.value.native_procedure_type22459))) goto l16474; break; case STRUCTURE_TYPE24753: if (!((t86260.value.structure_type24753)==(t86261.value.structure_type24753))) goto l16474; break; case STRUCTURE_TYPE24757: if (!((t86260.value.structure_type24757)==(t86261.value.structure_type24757))) goto l16474; break; case STRUCTURE_TYPE27501: if (!((t86260.value.structure_type27501)==(t86261.value.structure_type27501))) goto l16474; break; case STRUCTURE_TYPE27510: if (!((t86260.value.structure_type27510)==(t86261.value.structure_type27510))) goto l16474; break; case STRUCTURE_TYPE27621: if (!((t86260.value.structure_type27621)==(t86261.value.structure_type27621))) goto l16474; break; case STRUCTURE_TYPE27650: if (!((t86260.value.structure_type27650)==(t86261.value.structure_type27650))) goto l16474; break; case STRUCTURE_TYPE27669: if (!((t86260.value.structure_type27669)==(t86261.value.structure_type27669))) goto l16474; break; case STRUCTURE_TYPE27673: if (!((t86260.value.structure_type27673)==(t86261.value.structure_type27673))) goto l16474; break; case STRUCTURE_TYPE27692: if (!((t86260.value.structure_type27692)==(t86261.value.structure_type27692))) goto l16474; break; case STRUCTURE_TYPE27694: if (!((t86260.value.structure_type27694)==(t86261.value.structure_type27694))) goto l16474; break; case STRUCTURE_TYPE27698: if (!((t86260.value.structure_type27698)==(t86261.value.structure_type27698))) goto l16474; break; case STRUCTURE_TYPE27745: if (!((t86260.value.structure_type27745)==(t86261.value.structure_type27745))) goto l16474; break; case STRUCTURE_TYPE27747: if (!((t86260.value.structure_type27747)==(t86261.value.structure_type27747))) goto l16474; break; case STRUCTURE_TYPE27750: if (!((t86260.value.structure_type27750)==(t86261.value.structure_type27750))) goto l16474; break; case STRUCTURE_TYPE27753: if (!((t86260.value.structure_type27753)==(t86261.value.structure_type27753))) goto l16474; break; case STRUCTURE_TYPE27756: if (!((t86260.value.structure_type27756)==(t86261.value.structure_type27756))) goto l16474; break; case STRUCTURE_TYPE27761: if (!((t86260.value.structure_type27761)==(t86261.value.structure_type27761))) goto l16474; break; case STRUCTURE_TYPE27769: if (!((t86260.value.structure_type27769)==(t86261.value.structure_type27769))) goto l16474; break; case STRUCTURE_TYPE27776: if (!((t86260.value.structure_type27776)==(t86261.value.structure_type27776))) goto l16474; break; case STRUCTURE_TYPE27779: if (!((t86260.value.structure_type27779)==(t86261.value.structure_type27779))) goto l16474; break; case STRUCTURE_TYPE27858: if (!((t86260.value.structure_type27858)==(t86261.value.structure_type27858))) goto l16474; break; case STRING_TYPE: if (!((t86260.value.string_type)==(t86261.value.string_type))) goto l16474; break; case HEADED_VECTOR_TYPE27896: if (!((t86260.value.headed_vector_type27896)==(t86261.value.headed_vector_type27896))) goto l16474; break; case EXTERNAL_SYMBOL_TYPE: if (!((t86260.value.external_symbol_type)==(t86261.value.external_symbol_type))) goto l16474; break; case STRUCTURE_TYPE27908: if (!((t86260.value.structure_type27908)==(t86261.value.structure_type27908))) goto l16474; break; default:;} break; case NATIVE_PROCEDURE_TYPE23981: a23908 = t86252; a23909 = t86253; /* x103740 stalin.sc:10305:357192 */ /* x103739 stalin.sc:10305:357196 */ /* x103737 stalin.sc:10305:357201 */ t86264 = a23908; /* x103738 stalin.sc:10305:357204 */ t86265 = a23909; /* x269514 stalin.sc:10305:357197 */ /* EQ: dispatching general to general */ if ((t86264.tag)==(t86265.tag)) switch (t86264.tag) {case FIXNUM_TYPE: if ((t86264.value.fixnum_type)==(t86265.value.fixnum_type)) goto l16473; break; case FLONUM_TYPE: if ((t86264.value.flonum_type)==(t86265.value.flonum_type)) goto l16473; break; case INPUT_PORT_TYPE: if ((t86264.value.input_port_type)==(t86265.value.input_port_type)) goto l16473; break; case OUTPUT_PORT_TYPE: if ((t86264.value.output_port_type)==(t86265.value.output_port_type)) goto l16473; break; case NATIVE_PROCEDURE_TYPE15963: if ((t86264.value.native_procedure_type15963)==(t86265.value.native_procedure_type15963)) goto l16473; break; case NATIVE_PROCEDURE_TYPE19067: if ((t86264.value.native_procedure_type19067)==(t86265.value.native_procedure_type19067)) goto l16473; break; case NATIVE_PROCEDURE_TYPE19068: if ((t86264.value.native_procedure_type19068)==(t86265.value.native_procedure_type19068)) goto l16473; break; case NATIVE_PROCEDURE_TYPE22459: if ((t86264.value.native_procedure_type22459)==(t86265.value.native_procedure_type22459)) goto l16473; break; case STRUCTURE_TYPE24753: if ((t86264.value.structure_type24753)==(t86265.value.structure_type24753)) goto l16473; break; case STRUCTURE_TYPE24757: if ((t86264.value.structure_type24757)==(t86265.value.structure_type24757)) goto l16473; break; case STRUCTURE_TYPE27501: if ((t86264.value.structure_type27501)==(t86265.value.structure_type27501)) goto l16473; break; case STRUCTURE_TYPE27510: if ((t86264.value.structure_type27510)==(t86265.value.structure_type27510)) goto l16473; break; case STRUCTURE_TYPE27621: if ((t86264.value.structure_type27621)==(t86265.value.structure_type27621)) goto l16473; break; case STRUCTURE_TYPE27650: if ((t86264.value.structure_type27650)==(t86265.value.structure_type27650)) goto l16473; break; case STRUCTURE_TYPE27669: if ((t86264.value.structure_type27669)==(t86265.value.structure_type27669)) goto l16473; break; case STRUCTURE_TYPE27673: if ((t86264.value.structure_type27673)==(t86265.value.structure_type27673)) goto l16473; break; case STRUCTURE_TYPE27692: if ((t86264.value.structure_type27692)==(t86265.value.structure_type27692)) goto l16473; break; case STRUCTURE_TYPE27694: if ((t86264.value.structure_type27694)==(t86265.value.structure_type27694)) goto l16473; break; case STRUCTURE_TYPE27698: if ((t86264.value.structure_type27698)==(t86265.value.structure_type27698)) goto l16473; break; case STRUCTURE_TYPE27745: if ((t86264.value.structure_type27745)==(t86265.value.structure_type27745)) goto l16473; break; case STRUCTURE_TYPE27747: if ((t86264.value.structure_type27747)==(t86265.value.structure_type27747)) goto l16473; break; case STRUCTURE_TYPE27750: if ((t86264.value.structure_type27750)==(t86265.value.structure_type27750)) goto l16473; break; case STRUCTURE_TYPE27753: if ((t86264.value.structure_type27753)==(t86265.value.structure_type27753)) goto l16473; break; case STRUCTURE_TYPE27756: if ((t86264.value.structure_type27756)==(t86265.value.structure_type27756)) goto l16473; break; case STRUCTURE_TYPE27761: if ((t86264.value.structure_type27761)==(t86265.value.structure_type27761)) goto l16473; break; case STRUCTURE_TYPE27769: if ((t86264.value.structure_type27769)==(t86265.value.structure_type27769)) goto l16473; break; case STRUCTURE_TYPE27776: if ((t86264.value.structure_type27776)==(t86265.value.structure_type27776)) goto l16473; break; case STRUCTURE_TYPE27779: if ((t86264.value.structure_type27779)==(t86265.value.structure_type27779)) goto l16473; break; case STRUCTURE_TYPE27858: if ((t86264.value.structure_type27858)==(t86265.value.structure_type27858)) goto l16473; break; case STRING_TYPE: if ((t86264.value.string_type)==(t86265.value.string_type)) goto l16473; break; case HEADED_VECTOR_TYPE27896: if ((t86264.value.headed_vector_type27896)==(t86265.value.headed_vector_type27896)) goto l16473; break; case EXTERNAL_SYMBOL_TYPE: if ((t86264.value.external_symbol_type)==(t86265.value.external_symbol_type)) goto l16473; break; case STRUCTURE_TYPE27908: if ((t86264.value.structure_type27908)==(t86265.value.structure_type27908)) goto l16473; break; default: goto l16473;} /* x103733 */ /* x103732 stalin.sc:10306:357217 */ /* x103727 stalin.sc:10306:357222 */ /* x103726 stalin.sc:10306:357236 */ t86266 = a23908; /* x103725 stalin.sc:10306:357223 */ a37739 = t86266; /* x283625 */ /* x283624 */ t86267 = a37739; /* x283623 */ if (!((t86267.tag)==STRUCTURE_TYPE27673)) goto l16477; /* x103730 */ /* x103729 stalin.sc:10306:357254 */ t86268 = a23909; /* x103728 stalin.sc:10306:357241 */ a19806 = t86268; /* x52723 */ /* x52722 */ t86269 = a19806; /* x52721 */ if ((t86269.tag)==STRUCTURE_TYPE27673) goto l16473; l16477: /* x103722 */ /* x103721 stalin.sc:10307:357268 */ /* x103712 stalin.sc:10307:357273 */ /* x103711 stalin.sc:10307:357290 */ t86270 = a23908; /* x103710 stalin.sc:10307:357274 */ a19886 = t86270; /* x53014 */ /* x53013 */ t86271 = a19886; /* x53012 */ if (!((t86271.tag)==STRUCTURE_TYPE27769)) goto l16479; /* x103719 */ /* x103718 stalin.sc:10310:357368 */ t86273 = a23909; /* x103717 stalin.sc:10308:357302 */ /* x103716 stalin.sc:10309:357334 */ /* x103715 stalin.sc:10309:357355 */ t86275 = a23908; /* x103714 stalin.sc:10309:357335 */ t86274 = f6169(t86275); /* x103713 stalin.sc:10308:357303 */ t86272 = f7717(t86274); if (!(f7718(t86272, t86273)==FALSE_TYPE)) goto l16473; l16479: /* x103707 */ /* x103706 stalin.sc:10311:357382 */ /* x103701 stalin.sc:10311:357387 */ /* x103700 stalin.sc:10311:357408 */ t86276 = a23908; /* x103699 stalin.sc:10311:357388 */ a37524 = t86276; /* x282765 */ /* x282764 */ t86277 = a37524; /* x282763 */ if (!((t86277.tag)==STRUCTURE_TYPE27761)) goto l16481; /* x103704 */ /* x103703 stalin.sc:10312:357440 */ t86278 = a23909; /* x103702 stalin.sc:10312:357420 */ a37523 = t86278; /* x282761 */ /* x282760 */ t86279 = a37523; /* x282759 */ if ((t86279.tag)==STRUCTURE_TYPE27761) goto l16473; l16481: /* x103696 */ /* x103691 stalin.sc:10313:357459 */ /* x103690 stalin.sc:10313:357483 */ t86280 = a23908; /* x103689 stalin.sc:10313:357460 */ a37407 = t86280; /* x282297 */ /* x282296 */ t86281 = a37407; /* x282295 */ if (!((t86281.tag)==STRUCTURE_TYPE27669)) goto l16474; /* x103694 */ /* x103693 stalin.sc:10314:357518 */ t86282 = a23909; /* x103692 stalin.sc:10314:357495 */ a37406 = t86282; /* x282293 */ /* x282292 */ t86283 = a37406; /* x282291 */ if (!((t86283.tag)==STRUCTURE_TYPE27669)) goto l16474; break; default: p14553 = t86251; a25958 = t86252; a25959 = t86253; e14553 = (struct p14553 *)alloca(sizeof(struct p14553)); if (e14553==NULL) {backtrace("stalin.sc", 16503, 576251); out_of_memory_error();} e14553->a25958 = a25958; e14553->a25959 = a25959; /* x131274 stalin.sc:16504:576274 */ /* x131273 stalin.sc:16505:576335 */ t86285 = p14553->a25957; /* x131272 stalin.sc:16504:576280 */ t86284 = e14553; /* x131261 stalin.sc:16504:576275 */ t86286.tag = NATIVE_PROCEDURE_TYPE15160; t86286.value.native_procedure_type15160 = t86284; t86287 = *((struct w49 *)(&t86285)); t86288 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t86286, t86287, t86288).tag)==FALSE_TYPE) goto l16474;} l16473: /* x15245 */ /* x15244 */ /* x15243 QobiScheme.sc:438:12948 */ return *((struct w16638 *)(&a14841)); l16474: /* x15254 */ /* x15253 */ /* x15252 QobiScheme.sc:438:12957 */ /* x15247 QobiScheme.sc:438:12963 */ t86291 = a14839; /* x15248 QobiScheme.sc:438:12965 */ t86292 = a14840; /* x15251 QobiScheme.sc:438:12967 */ /* x15250 QobiScheme.sc:438:12973 */ t86294 = *((struct w16638 *)(&a14841)); /* x15249 QobiScheme.sc:438:12968 */ a35595 = t86294; /* x273737 */ /* x273736 */ t86295 = a35595; /* x273735 */ if (!((t86295.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29744]"); structure_ref_error();} t86293 = t86295.value.structure_type24753->s1; /* x15246 QobiScheme.sc:438:12958 */ a14839 = t86291; a14840 = t86292; a14841 = t86293; goto h1178;} /* ENUMERATE[1169] */ struct structure_type24753 *f1169(int a14830) {int a14833; /* I */ struct structure_type24753 *a14834; /* C */ int t86296; int t86297; int t86298; int t86299; struct structure_type24753 *t86300; int t86301; int t86302; int t86303; struct structure_type24753 *t86304; int t86305; int t86306; /* x15209 QobiScheme.sc:429:12695 */ /* x15207 QobiScheme.sc:429:12709 */ /* x15205 QobiScheme.sc:429:12712 */ t86305 = a14830; /* x15206 QobiScheme.sc:429:12714 */ t86306 = 1; /* x270917 QobiScheme.sc:429:12710 */ t86296 = t86305-t86306; /* x15208 QobiScheme.sc:429:12721 */ /* x15203 */ /* x15202 */ /* x15201 */ /* x15200 */ /* x15199 */ /* x15198 */ /* x15197 */ /* x15180 */ /* x15179 QobiScheme.sc:429:12700 */ a14833 = t86296; a14834 = (struct structure_type24753 *)NULL_TYPE; h1172: /* x15196 QobiScheme.sc:430:12729 */ /* x15184 QobiScheme.sc:430:12733 */ /* x15182 QobiScheme.sc:430:12737 */ t86297 = a14833; /* x15183 QobiScheme.sc:430:12739 */ t86298 = 0; /* x270920 QobiScheme.sc:430:12734 */ if (!(t86297>=t86298)) goto l16485; /* x15194 QobiScheme.sc:430:12742 */ /* x15189 QobiScheme.sc:430:12748 */ /* x15187 QobiScheme.sc:430:12751 */ t86301 = a14833; /* x15188 QobiScheme.sc:430:12753 */ t86302 = 1; /* x270919 QobiScheme.sc:430:12749 */ t86299 = t86301-t86302; /* x15193 QobiScheme.sc:430:12756 */ /* x15191 QobiScheme.sc:430:12762 */ t86303 = a14833; /* x15192 QobiScheme.sc:430:12764 */ t86304 = a14834; /* x270918 QobiScheme.sc:430:12757 */ t86300 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t86300==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 430, 12756); out_of_memory_error();} t86300->s0.tag = FIXNUM_TYPE; t86300->s0.value.fixnum_type = t86303; /* MOVE: branching squeezed to general */ if (t86304>=((struct structure_type24753 *)VALUE_OFFSET)) {t86300->s1.tag = STRUCTURE_TYPE24753; t86300->s1.value.structure_type24753 = t86304;} else t86300->s1.tag = (unsigned)t86304; /* x15185 QobiScheme.sc:430:12743 */ a14833 = t86299; a14834 = t86300; goto h1172; l16485: /* x15195 QobiScheme.sc:430:12768 */ return a14834;} /* [inside MAP-VECTOR 1158] */ struct w49 f1158(struct p1157 *p1158, struct w49 a14821) {struct w49 t86307; int t86308; /* x15113 QobiScheme.sc:416:12467 */ /* x15111 QobiScheme.sc:416:12479 */ t86307 = a14821; /* x15112 QobiScheme.sc:416:12481 */ t86308 = p1158->a14820; /* x270924 QobiScheme.sc:416:12468 */ if ((t86307.tag)==HEADED_VECTOR_TYPE27896) {if ((t86308<0)||(t86308>=(t86307.value.headed_vector_type27896->length))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 416, 12467); vector_ref3_error();} return (t86307.value.headed_vector_type27896->element)[t86308];} backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 416, 12467); vector_ref1_error();} /* MAP-VECTOR[1154] */ struct headed_vector_type27896 *f1154(unsigned a14815, struct w49 a14816) {struct headed_vector_type27896 *a14818; /* U */ struct p1154 *t86309; struct headed_vector_type27896 *t86310; struct p1155 *t86311; struct p1155 *t86312; int t86313; unsigned t86314; struct w49 t86315; int t86316; struct w49 t86317; struct p1154 *e1154; struct p1155 *e1155; struct p1154 *p1155; struct p1155 *p1156; e1154 = (struct p1154 *)alloca(sizeof(struct p1154)); if (e1154==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e1154->a14815 = a14815; e1154->a14816 = a14816; /* x15131 QobiScheme.sc:411:12321 */ /* x15130 QobiScheme.sc:411:12330 */ /* x15129 QobiScheme.sc:411:12343 */ /* x15128 QobiScheme.sc:411:12358 */ t86317 = e1154->a14816; /* x270921 QobiScheme.sc:411:12344 */ if (!((t86317.tag)==HEADED_VECTOR_TYPE27896)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 411, 12343); vector_length_error();} t86316 = t86317.value.headed_vector_type27896->length; /* x270922 QobiScheme.sc:411:12331 */ t86310 = (struct headed_vector_type27896 *)GC_malloc(sizeof(struct headed_vector_type27896)+((t86316-1)*sizeof(struct w49))); if (t86310==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 411, 12330); out_of_memory_error();} t86310->length = t86316; /* x15125 */ t86309 = e1154; p1155 = t86309; a14818 = t86310; e1155 = (struct p1155 *)alloca(sizeof(struct p1155)); if (e1155==NULL) {backtrace_internal("MAP-VECTOR[1154]"); out_of_memory_error();} e1155->p1154 = p1155; e1155->a14818 = a14818; /* x15124 */ /* x15123 QobiScheme.sc:412:12366 */ /* x15119 QobiScheme.sc:413:12381 */ t86312 = e1155; /* x15122 QobiScheme.sc:417:12498 */ /* x15121 QobiScheme.sc:417:12513 */ t86315 = p1155->a14816; /* x270923 QobiScheme.sc:417:12499 */ if (!((t86315.tag)==HEADED_VECTOR_TYPE27896)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 417, 12498); vector_length_error();} t86313 = t86315.value.headed_vector_type27896->length; /* x15099 QobiScheme.sc:412:12367 */ t86314 = ((unsigned)t86312)+3; f1120(t86314, t86313); /* x15098 */ t86311 = e1155; p1156 = t86311; /* x15097 QobiScheme.sc:418:12519 */ return p1156->a14818;} /* MAP-N[1149] */ struct w12224 f1149(struct w227957 a14809, struct w49 a14810) {int a14813; /* I */ struct structure_type24753 *a14814; /* C */ int a24450; /* I */ int a26579; /* I */ int a26580; /* I */ int a26618; /* I */ char *a26619; /* C */ struct w49 a26621; /* v */ int a26624; /* I */ char *a26625; /* C */ struct w49 a26627; /* v */ int a26858; /* I */ int a27164; /* I */ int a27165; /* I */ int a27783; /* I */ int a27784; /* I */ int a30395; /* I */ int a30764; /* I */ struct w49 a37514; /* S */ struct structure_type24753 *a41861; /* CS */ struct structure_type24753 *a42019; /* CS */ struct structure_type24753 *a42020; /* CS */ int t86318; int t86319; struct w49 t86320; struct structure_type24753 *t86321; struct w49 t86322; int t86323; struct structure_type24753 *t86324; int t86325; int t86326; struct w49 t86327; struct structure_type24753 *t86328; struct w227957 t86329; int t86330; struct structure_type24753 *t86331; unsigned t86332; struct w49 t86333; struct w228463 t86334; struct p12254 *t86335; struct w49 t86336; struct w36270 t86337; struct w49 t86338; struct structure_type24753 *t86339; struct structure_type24753 *t86340; char *t86341; struct w49 t86342; struct w49 t86343; struct structure_type24753 *t86344; struct structure_type24753 *t86345; char *t86346; struct w61020 t86347; struct w61020 t86348; struct structure_type24753 *t86349; struct w49 t86350; struct structure_type24753 *t86351; struct w49 t86352; struct structure_type24753 *t86353; struct w49 t86354; char *t86355; struct w61020 t86356; struct w30215 t86357; struct w49 t86358; struct w30215 t86359; int t86360; struct w30215 t86361; struct w49 t86362; struct structure_type24753 *t86363; char *t86364; struct w49 t86365; struct w49 t86366; struct structure_type24753 *t86367; struct structure_type24753 *t86368; char *t86369; struct w61020 t86370; struct w61020 t86371; struct structure_type24753 *t86372; struct structure_type24753 *t86373; struct w49 t86374; struct structure_type24753 *t86375; struct w49 t86376; char *t86377; struct w61020 t86378; int t86379; struct w49 t86380; char *t86381; char *t86382; char *t86383; char *t86384; struct structure_type24753 *t86385; char *t86386; struct w49 t86387; struct w49 t86388; int t86389; char t86390; char *t86391; int t86392; int t86393; char *t86394; int t86395; int t86396; char *t86397; char *t86398; struct w49 t86399; struct w49 t86400; struct w3467 t86401; struct w49 t86402; int t86403; int t86404; int t86405; struct structure_type24753 *t86406; struct w49 t86407; char *t86408; char *t86409; char *t86410; char *t86411; struct structure_type24753 *t86412; char *t86413; struct w49 t86414; struct w49 t86415; int t86416; char t86417; char *t86418; int t86419; int t86420; char *t86421; int t86422; int t86423; char *t86424; char *t86425; struct w49 t86426; struct w49 t86427; struct w3467 t86428; struct w49 t86429; int t86430; int t86431; int t86432; struct structure_type24753 *t86433; struct w49 t86434; struct structure_type24753 *t86435; struct structure_type24753 *t86436; struct w49 t86437; struct w49 t86438; struct structure_type24753 *t86439; struct structure_type24753 *t86440; char *t86441; struct w61020 t86442; struct w61020 t86443; struct structure_type24753 *t86444; struct w49 t86445; struct structure_type24753 *t86446; struct w49 t86447; struct structure_type24753 *t86448; struct w49 t86449; char *t86450; struct w61020 t86451; struct w30215 t86452; struct w49 t86453; struct w30215 t86454; int t86455; struct w30215 t86456; struct w49 t86457; struct structure_type24753 *t86458; char *t86459; struct w61020 t86460; struct w61020 t86461; struct structure_type24753 *t86462; struct w49 t86463; struct structure_type24753 *t86464; struct w49 t86465; struct structure_type24753 *t86466; struct w49 t86467; char *t86468; struct w61020 t86469; struct w30215 t86470; struct w49 t86471; struct w30215 t86472; int t86473; struct w30215 t86474; struct w49 t86475; struct structure_type24753 *t86476; struct structure_type24753 *t86477; struct w49 t86478; struct w49 t86479; struct structure_type24753 *t86480; struct structure_type24753 *t86481; char *t86482; struct w61020 t86483; struct w61020 t86484; struct structure_type24753 *t86485; struct structure_type24753 *t86486; struct w49 t86487; struct structure_type24753 *t86488; struct w49 t86489; char *t86490; struct w61020 t86491; int t86492; struct w49 t86493; struct structure_type24753 *t86494; char *t86495; struct w61020 t86496; struct w61020 t86497; struct structure_type24753 *t86498; struct structure_type24753 *t86499; struct w49 t86500; struct structure_type24753 *t86501; struct w49 t86502; char *t86503; struct w61020 t86504; int t86505; struct w49 t86506; struct structure_type24753 *t86507; struct w49 t86508; struct w49 t86509; struct structure_type24753 *t86510; struct w49 t86511; struct w49 t86512; struct w49 t86513; char *t86514; struct w49 t86515; struct w49 t86516; struct w211113 t86517; int t86518; struct w49 t86519; struct w49 t86520; struct w49 t86521; struct w49 t86522; struct w49 t86523; int t86524; struct w49 t86525; struct w12224 t86526; int t86527; struct w49 t86528; struct w49 t86529; struct w49 t86530; int t86531; struct w49 t86532; struct structure_type24753 *t86533; struct w61020 t86534; struct structure_type24753 *t86535; struct structure_type24753 *t86536; int t86537; struct w49 t86538; struct structure_type24753 *t86539; struct structure_type24753 *t86540; struct w49 t86541; struct w49 t86542; char *t86543; struct structure_type24753 *t86544; struct structure_type24753 *t86545; struct w49 t86546; struct w49 t86547; struct structure_type24753 *t86548; struct w49 t86549; struct structure_type24753 *t86550; int t86551; struct w49 t86552; struct structure_type24753 *t86553; struct w49 t86554; struct w12224 t86555; int t86556; int t86557; struct w49 t86558; struct structure_type24753 *t86559; struct w49 t86560; int t86561; int t86562; int t86563; int t86564; int t86565; int t86566; int t86567; int t86568; struct structure_type24753 *t86569; struct w49 t86570; char *t86571; struct structure_type24753 *t86572; struct structure_type24753 *t86573; struct w49 t86574; struct w49 t86575; struct structure_type24753 *t86576; struct w49 t86577; struct structure_type24753 *t86578; int t86579; struct structure_type27501 *t86580; struct w49 t86581; struct w49 t86582; struct w12218 t86583; struct w49 t86584; struct w49 t86585; struct w60864 t86586; struct w49 t86587; struct structure_type27501 *t86588; struct w49 t86589; struct w49 t86590; struct w49 t86591; struct w49 t86592; struct w49 t86593; char *t86594; struct w49 t86595; int t86596; struct w49 t86597; struct w49 t86598; int t86599; struct w49 t86600; struct w49 t86601; int t86602; struct w49 t86603; struct structure_type27769 *t86604; struct w49 t86605; struct structure_type27650 *t86606; struct p12254 *e12254; struct p7132 *p7135; struct p12247 *p12254; struct p15345 *p15351; struct p15347 *p15352; struct p15424 *p15425; struct p15435 *p15436; struct p16486 *p16593; struct p16590 *p16594; struct p17596 *p17597; struct p17743 *p17745; /* x15094 QobiScheme.sc:406:12136 */ /* x15092 QobiScheme.sc:406:12150 */ t86318 = 0; /* x15093 QobiScheme.sc:406:12156 */ /* x15091 */ /* x15090 */ /* x15089 */ /* x15088 */ /* x15087 */ /* x15086 */ /* x15085 */ /* x15064 */ /* x15063 QobiScheme.sc:406:12141 */ a14813 = t86318; a14814 = (struct structure_type24753 *)NULL_TYPE; h1152: /* x15084 QobiScheme.sc:407:12164 */ /* x15068 QobiScheme.sc:407:12168 */ /* x15066 QobiScheme.sc:407:12171 */ t86319 = a14813; /* x15067 QobiScheme.sc:407:12173 */ t86320 = a14810; /* x270930 QobiScheme.sc:407:12169 */ switch (t86320.tag) {case FIXNUM_TYPE: if (!(t86319<(t86320.value.fixnum_type))) goto l16487; break; case FLONUM_TYPE: if (!(t86319<(t86320.value.flonum_type))) goto l16487; break; default: backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 407, 12168); lt_error();} /* x15080 QobiScheme.sc:407:12176 */ /* x15073 QobiScheme.sc:407:12182 */ /* x15071 QobiScheme.sc:407:12185 */ t86325 = a14813; /* x15072 QobiScheme.sc:407:12187 */ t86326 = 1; /* x270929 QobiScheme.sc:407:12183 */ t86323 = t86325+t86326; /* x15079 QobiScheme.sc:407:12190 */ /* x15077 QobiScheme.sc:407:12196 */ /* x15076 QobiScheme.sc:407:12199 */ t86330 = a14813; /* x15075 QobiScheme.sc:407:12197 */ t86329 = a14809; switch (t86329.tag) {case NATIVE_PROCEDURE_TYPE15969: p12254 = t86329.value.native_procedure_type15969; a24450 = t86330; e12254 = (struct p12254 *)alloca(sizeof(struct p12254)); if (e12254==NULL) {backtrace("stalin.sc", 11639, 406651); out_of_memory_error();} e12254->a24450 = a24450; /* x109444 stalin.sc:11640:406670 */ /* x109430 stalin.sc:11640:406678 */ /* x109442 stalin.sc:11641:406693 */ /* x109441 stalin.sc:11644:406780 */ t86336 = p12254->a24444; /* x109440 stalin.sc:11641:406698 */ t86335 = e12254; /* x109431 stalin.sc:11641:406694 */ t86337.tag = NATIVE_PROCEDURE_TYPE22732; t86337.value.native_procedure_type22732 = t86335; t86338 = t86336; t86339 = (struct structure_type24753 *)NULL_TYPE; t86331 = f27731(t86337, t86338, t86339); /* x109443 stalin.sc:11645:406792 */ /* x109429 stalin.sc:11640:406671 */ t86332 = NATIVE_PROCEDURE_TYPE15925; /* MOVE: branching squeezed to general */ if (t86331>=((struct structure_type24753 *)VALUE_OFFSET)) {t86333.tag = STRUCTURE_TYPE24753; t86333.value.structure_type24753 = t86331;} else t86333.tag = (unsigned)t86331; t86334.tag = NULL_TYPE; t86327 = f1006(t86332, t86333, t86334); break; case NATIVE_PROCEDURE_TYPE20440: p15352 = t86329.value.native_procedure_type20440; a26580 = t86330; /* x140404 stalin.sc:18123:635816 */ /* x140401 stalin.sc:18123:635822 */ /* x140391 stalin.sc:18124:635845 */ /* x140390 stalin.sc:18124:635859 */ /* x140389 stalin.sc:18124:635864 */ /* x140387 stalin.sc:18124:635869 */ t86354 = p15352->p15345->a26572; /* x140388 stalin.sc:18124:635871 */ t86355 = "value"; /* x140386 stalin.sc:18124:635865 */ t86356.tag = STRING_TYPE; t86356.value.string_type = t86355; t86351 = f13585(t86354, t86356); /* x140385 stalin.sc:18124:635860 */ t86352.tag = STRUCTURE_TYPE24753; t86352.value.structure_type24753 = t86351; t86353 = (struct structure_type24753 *)NULL_TYPE; t86349 = f13625(t86352, t86353); /* x140384 stalin.sc:18124:635846 */ t86350.tag = STRUCTURE_TYPE24753; t86350.value.structure_type24753 = t86349; t86345 = f13553(t86350); /* x140400 stalin.sc:18125:635888 */ /* x140399 stalin.sc:18125:635898 */ /* x140397 stalin.sc:18125:635901 */ /* x140395 stalin.sc:18125:635904 */ t86361 = p15352->a26576; /* x140396 stalin.sc:18125:635916 */ t86362 = a1233; /* x268602 stalin.sc:18125:635902 */ if ((t86361.tag)==FIXNUM_TYPE) {switch (t86362.tag) {case FIXNUM_TYPE: t86359.tag = FIXNUM_TYPE; t86359.value.fixnum_type = (t86361.value.fixnum_type)*(t86362.value.fixnum_type); break; case FLONUM_TYPE: t86359.tag = FLONUM_TYPE; t86359.value.flonum_type = (t86361.value.fixnum_type)*(t86362.value.flonum_type); break; default: backtrace("stalin.sc", 18125, 635901); times_error();}} else switch (t86362.tag) {case FIXNUM_TYPE: t86359.tag = FLONUM_TYPE; t86359.value.flonum_type = (t86361.value.flonum_type)*(t86362.value.fixnum_type); break; case FLONUM_TYPE: t86359.tag = FLONUM_TYPE; t86359.value.flonum_type = (t86361.value.flonum_type)*(t86362.value.flonum_type); break; default: backtrace("stalin.sc", 18125, 635901); times_error();} /* x140398 stalin.sc:18125:635931 */ t86360 = a26580; /* x268603 stalin.sc:18125:635899 */ if ((t86359.tag)==FIXNUM_TYPE) {t86357.tag = FIXNUM_TYPE; t86357.value.fixnum_type = (t86359.value.fixnum_type)+t86360;} else {t86357.tag = FLONUM_TYPE; t86357.value.flonum_type = (t86359.value.flonum_type)+t86360;} /* x140392 stalin.sc:18125:635889 */ t86358 = *((struct w49 *)(&t86357)); t86346 = f13530(t86358); /* x140383 stalin.sc:18123:635823 */ t86347.tag = STRUCTURE_TYPE24753; t86347.value.structure_type24753 = t86345; t86348.tag = STRING_TYPE; t86348.value.string_type = t86346; t86340 = f13541(t86347, t86348); /* x140403 stalin.sc:18126:635941 */ /* x140402 stalin.sc:18126:635942 */ /* x276927 stalin.sc:14555:511005 */ t86341 = "0"; /* x140382 stalin.sc:18123:635817 */ t86342.tag = STRUCTURE_TYPE24753; t86342.value.structure_type24753 = t86340; t86343.tag = STRING_TYPE; t86343.value.string_type = t86341; t86344 = f13637(t86342, t86343); t86327.tag = STRUCTURE_TYPE24753; t86327.value.structure_type24753 = t86344; break; case NATIVE_PROCEDURE_TYPE20445: p15351 = t86329.value.native_procedure_type20445; a26579 = t86330; /* x140375 stalin.sc:18116:635644 */ /* x140372 stalin.sc:18116:635650 */ /* x140368 stalin.sc:18117:635673 */ /* x140367 stalin.sc:18117:635689 */ /* x140366 stalin.sc:18117:635694 */ /* x140364 stalin.sc:18117:635699 */ t86376 = p15351->a26572; /* x140365 stalin.sc:18117:635701 */ t86377 = "value"; /* x140363 stalin.sc:18117:635695 */ t86378.tag = STRING_TYPE; t86378.value.string_type = t86377; t86373 = f13585(t86376, t86378); /* x140362 stalin.sc:18117:635690 */ t86374.tag = STRUCTURE_TYPE24753; t86374.value.structure_type24753 = t86373; t86375 = (struct structure_type24753 *)NULL_TYPE; t86372 = f13625(t86374, t86375); /* x140361 stalin.sc:18117:635674 */ t86368 = f13552(t86372); /* x140371 stalin.sc:18118:635718 */ /* x140370 stalin.sc:18118:635728 */ t86379 = a26579; /* x140369 stalin.sc:18118:635719 */ t86380.tag = FIXNUM_TYPE; t86380.value.fixnum_type = t86379; t86369 = f13530(t86380); /* x140360 stalin.sc:18116:635651 */ t86370.tag = STRUCTURE_TYPE24753; t86370.value.structure_type24753 = t86368; t86371.tag = STRING_TYPE; t86371.value.string_type = t86369; t86363 = f13541(t86370, t86371); /* x140374 stalin.sc:18119:635737 */ /* x140373 stalin.sc:18119:635738 */ /* x276925 stalin.sc:14555:511005 */ t86364 = "0"; /* x140359 stalin.sc:18116:635645 */ t86365.tag = STRUCTURE_TYPE24753; t86365.value.structure_type24753 = t86363; t86366.tag = STRING_TYPE; t86366.value.string_type = t86364; t86367 = f13637(t86365, t86366); t86327.tag = STRUCTURE_TYPE24753; t86327.value.structure_type24753 = t86367; break; case NATIVE_PROCEDURE_TYPE20572: p15436 = t86329.value.native_procedure_type20572; a26624 = t86330; while (region15436!=((struct region15436 *)(&initial_region15436))) {struct region15436 *region; region = region15436; region15436 = region15436->region; GC_free(region);} region_size15436 = REGION_SIZE15436; fp15436 = &((region15436->data)[0]); ALIGN(fp15436); /* x141564 stalin.sc:18385:645738 */ /* x141563 stalin.sc:18385:645747 */ /* x141562 stalin.sc:18386:645770 */ /* x141561 stalin.sc:18386:645775 */ /* x141560 stalin.sc:18386:645779 */ /* x141558 stalin.sc:18386:645785 */ t86405 = a26624; /* x141559 stalin.sc:18386:645787 */ t86406 = p15436->a26623; /* x141557 stalin.sc:18386:645780 */ /* MOVE: branching squeezed to general */ if (t86406>=((struct structure_type24753 *)VALUE_OFFSET)) {t86407.tag = STRUCTURE_TYPE24753; t86407.value.structure_type24753 = t86406;} else t86407.tag = (unsigned)t86406; t86402 = f26355(t86405, t86407); /* x141556 */ a26627 = t86402; /* x141555 */ /* x141549 */ if ((a26627.tag)==FALSE_TYPE) goto l16492; /* x141550 */ t86401 = *((struct w3467 *)(&a26627)); goto l16493; l16492: /* x141554 */ /* x141552 stalin.sc:18386:645800 */ t86403 = 0; /* x141553 stalin.sc:18386:645802 */ t86404 = 0; /* x268559 stalin.sc:18386:645795 */ if ((fp15436+sizeof(struct structure_type24753))>(&((region15436->data)[region_size15436]))) {struct region15436 *region; unsigned region_size = REGION_SIZE15436; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region15436 *)GC_malloc_uncollectable(sizeof(struct region15436)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside MOVE-GENERAL 15441]"); out_of_memory_error();} region->region = region15436; region_size15436 = region_size; region15436 = region; fp15436 = &((region->data)[0]); ALIGN(fp15436);} t86401.tag = STRUCTURE_TYPE24753; t86401.value.structure_type24753 = (struct structure_type24753 *)fp15436; fp15436 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t86401.value.structure_type24753->s0.tag = FIXNUM_TYPE; t86401.value.structure_type24753->s0.value.fixnum_type = t86403; t86401.value.structure_type24753->s1.tag = FIXNUM_TYPE; t86401.value.structure_type24753->s1.value.fixnum_type = t86404; l16493: /* x268560 stalin.sc:18386:645771 */ if (!((t86401.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 18386, 645770); structure_ref_error();} t86399 = t86401.value.structure_type24753->s1; /* x141547 stalin.sc:18385:645748 */ t86400 = t86399; t86381 = f28396(t86400); /* x141546 */ a26625 = t86381; /* x141545 */ /* x141544 stalin.sc:18387:645815 */ /* x141537 stalin.sc:18387:645821 */ /* x141535 stalin.sc:18387:645824 */ /* x141534 stalin.sc:18387:645839 */ t86397 = a26625; /* x268561 stalin.sc:18387:645825 */ t86395 = strlen(t86397); /* x141536 stalin.sc:18387:645842 */ t86396 = 2; /* x268562 stalin.sc:18387:645822 */ if (!(t86395>t86396)) goto l16489; /* x141541 */ /* x141540 */ /* x141539 stalin.sc:18387:645845 */ /* x141538 stalin.sc:18387:645846 */ /* x295993 QobiScheme.sc:166:5314 */ /* x295992 QobiScheme.sc:166:5321 */ t86398 = "This shouldn\'t happen"; /* x295991 QobiScheme.sc:166:5315 */ stalin_panic(t86398); goto l16490; l16489: /* x141543 stalin.sc:18387:645815 */ /* x141542 stalin.sc:18387:645815 */ l16490: /* x141531 */ while (region15438!=((struct region15438 *)(&initial_region15438))) {struct region15438 *region; region = region15438; region15438 = region15438->region; GC_free(region);} region_size15438 = REGION_SIZE15438; fp15438 = &((region15438->data)[0]); ALIGN(fp15438); /* x141530 stalin.sc:18388:645861 */ /* x141529 stalin.sc:18389:645929 */ t86384 = a26625; /* x141528 stalin.sc:18389:645887 */ /* x141526 stalin.sc:18389:645900 */ /* x141522 stalin.sc:18389:645903 */ t86392 = 3; /* x141525 stalin.sc:18389:645905 */ /* x141524 stalin.sc:18389:645920 */ t86394 = a26625; /* x268563 stalin.sc:18389:645906 */ t86393 = strlen(t86394); /* x268564 stalin.sc:18389:645901 */ t86389 = t86392-t86393; /* x141527 stalin.sc:18389:645924 */ t86390 = '0'; /* x268565 stalin.sc:18389:645888 */ if ((fp15438+((t86389+1)*sizeof(char)))>(&((region15438->data)[region_size15438]))) {struct region15438 *region; unsigned region_size = REGION_SIZE15438; if (((t86389+1)*sizeof(char))>region_size) region_size = (t86389+1)*sizeof(char); region = (struct region15438 *)GC_malloc_uncollectable(sizeof(struct region15438)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 18389, 645887); out_of_memory_error();} region->region = region15438; region_size15438 = region_size; region15438 = region; fp15438 = &((region->data)[0]); ALIGN(fp15438);} t86383 = (char *)fp15438; t86383[t86389] = '\0'; fp15438 += ((t86389+1)*sizeof(char))+((4-(((t86389+1)*sizeof(char))%4))&3); for (t86391 = &(t86383[0]); t86391<(&(t86383[t86389])); t86391++) *t86391 = t86390; /* x141519 stalin.sc:18389:645882 */ t86382 = "\\"; /* x141518 stalin.sc:18388:645862 */ if ((fp15438+sizeof(struct structure_type24753))>(&((region15438->data)[region_size15438]))) {struct region15438 *region; unsigned region_size = REGION_SIZE15438; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region15438 *)GC_malloc_uncollectable(sizeof(struct region15438)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 18388, 645861); out_of_memory_error();} region->region = region15438; region_size15438 = region_size; region15438 = region; fp15438 = &((region->data)[0]); ALIGN(fp15438);} t86388.tag = STRUCTURE_TYPE24753; t86388.value.structure_type24753 = (struct structure_type24753 *)fp15438; fp15438 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t86388.value.structure_type24753->s0.tag = STRING_TYPE; t86388.value.structure_type24753->s0.value.string_type = t86384; t86388.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp15438+sizeof(struct structure_type24753))>(&((region15438->data)[region_size15438]))) {struct region15438 *region; unsigned region_size = REGION_SIZE15438; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region15438 *)GC_malloc_uncollectable(sizeof(struct region15438)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 18388, 645861); out_of_memory_error();} region->region = region15438; region_size15438 = region_size; region15438 = region; fp15438 = &((region->data)[0]); ALIGN(fp15438);} t86387.tag = STRUCTURE_TYPE24753; t86387.value.structure_type24753 = (struct structure_type24753 *)fp15438; fp15438 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t86387.value.structure_type24753->s0.tag = STRING_TYPE; t86387.value.structure_type24753->s0.value.string_type = t86383; t86387.value.structure_type24753->s1 = t86388; if ((fp15438+sizeof(struct structure_type24753))>(&((region15438->data)[region_size15438]))) {struct region15438 *region; unsigned region_size = REGION_SIZE15438; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region15438 *)GC_malloc_uncollectable(sizeof(struct region15438)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 18388, 645861); out_of_memory_error();} region->region = region15438; region_size15438 = region_size; region15438 = region; fp15438 = &((region->data)[0]); ALIGN(fp15438);} t86385 = (struct structure_type24753 *)fp15438; fp15438 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t86385->s0.tag = STRING_TYPE; t86385->s0.value.string_type = t86382; t86385->s1 = t86387; t86386 = f27556(t86385); t86327.tag = STRING_TYPE; t86327.value.string_type = t86386; break; case NATIVE_PROCEDURE_TYPE20586: p15425 = t86329.value.native_procedure_type20586; a26618 = t86330; while (region15425!=((struct region15425 *)(&initial_region15425))) {struct region15425 *region; region = region15425; region15425 = region15425->region; GC_free(region);} region_size15425 = REGION_SIZE15425; fp15425 = &((region15425->data)[0]); ALIGN(fp15425); /* x141381 stalin.sc:18332:643932 */ /* x141380 stalin.sc:18332:643941 */ /* x141379 stalin.sc:18333:643962 */ /* x141378 stalin.sc:18333:643967 */ /* x141377 stalin.sc:18333:643971 */ /* x141375 stalin.sc:18333:643977 */ t86432 = a26618; /* x141376 stalin.sc:18333:643979 */ t86433 = p15425->a26617; /* x141374 stalin.sc:18333:643972 */ /* MOVE: branching squeezed to general */ if (t86433>=((struct structure_type24753 *)VALUE_OFFSET)) {t86434.tag = STRUCTURE_TYPE24753; t86434.value.structure_type24753 = t86433;} else t86434.tag = (unsigned)t86433; t86429 = f26355(t86432, t86434); /* x141373 */ a26621 = t86429; /* x141372 */ /* x141366 */ if ((a26621.tag)==FALSE_TYPE) goto l16498; /* x141367 */ t86428 = *((struct w3467 *)(&a26621)); goto l16499; l16498: /* x141371 */ /* x141369 stalin.sc:18333:643992 */ t86430 = 0; /* x141370 stalin.sc:18333:643994 */ t86431 = 0; /* x268572 stalin.sc:18333:643987 */ if ((fp15425+sizeof(struct structure_type24753))>(&((region15425->data)[region_size15425]))) {struct region15425 *region; unsigned region_size = REGION_SIZE15425; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region15425 *)GC_malloc_uncollectable(sizeof(struct region15425)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside MOVE-GENERAL 15430]"); out_of_memory_error();} region->region = region15425; region_size15425 = region_size; region15425 = region; fp15425 = &((region->data)[0]); ALIGN(fp15425);} t86428.tag = STRUCTURE_TYPE24753; t86428.value.structure_type24753 = (struct structure_type24753 *)fp15425; fp15425 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t86428.value.structure_type24753->s0.tag = FIXNUM_TYPE; t86428.value.structure_type24753->s0.value.fixnum_type = t86430; t86428.value.structure_type24753->s1.tag = FIXNUM_TYPE; t86428.value.structure_type24753->s1.value.fixnum_type = t86431; l16499: /* x268573 stalin.sc:18333:643963 */ if (!((t86428.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 18333, 643962); structure_ref_error();} t86426 = t86428.value.structure_type24753->s1; /* x141364 stalin.sc:18332:643942 */ t86427 = t86426; t86408 = f28396(t86427); /* x141363 */ a26619 = t86408; /* x141362 */ /* x141361 stalin.sc:18334:644012 */ /* x141354 stalin.sc:18334:644018 */ /* x141352 stalin.sc:18334:644021 */ /* x141351 stalin.sc:18334:644036 */ t86424 = a26619; /* x268574 stalin.sc:18334:644022 */ t86422 = strlen(t86424); /* x141353 stalin.sc:18334:644039 */ t86423 = 2; /* x268575 stalin.sc:18334:644019 */ if (!(t86422>t86423)) goto l16495; /* x141358 */ /* x141357 */ /* x141356 stalin.sc:18334:644042 */ /* x141355 stalin.sc:18334:644043 */ /* x295989 QobiScheme.sc:166:5314 */ /* x295988 QobiScheme.sc:166:5321 */ t86425 = "This shouldn\'t happen"; /* x295987 QobiScheme.sc:166:5315 */ stalin_panic(t86425); goto l16496; l16495: /* x141360 stalin.sc:18334:644012 */ /* x141359 stalin.sc:18334:644012 */ l16496: /* x141348 */ while (region15427!=((struct region15427 *)(&initial_region15427))) {struct region15427 *region; region = region15427; region15427 = region15427->region; GC_free(region);} region_size15427 = REGION_SIZE15427; fp15427 = &((region15427->data)[0]); ALIGN(fp15427); /* x141347 stalin.sc:18335:644063 */ /* x141346 stalin.sc:18338:644137 */ t86411 = a26619; /* x141345 stalin.sc:18337:644091 */ /* x141343 stalin.sc:18337:644104 */ /* x141339 stalin.sc:18337:644107 */ t86419 = 3; /* x141342 stalin.sc:18337:644109 */ /* x141341 stalin.sc:18337:644124 */ t86421 = a26619; /* x268576 stalin.sc:18337:644110 */ t86420 = strlen(t86421); /* x268577 stalin.sc:18337:644105 */ t86416 = t86419-t86420; /* x141344 stalin.sc:18337:644128 */ t86417 = '0'; /* x268578 stalin.sc:18337:644092 */ if ((fp15427+((t86416+1)*sizeof(char)))>(&((region15427->data)[region_size15427]))) {struct region15427 *region; unsigned region_size = REGION_SIZE15427; if (((t86416+1)*sizeof(char))>region_size) region_size = (t86416+1)*sizeof(char); region = (struct region15427 *)GC_malloc_uncollectable(sizeof(struct region15427)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 18337, 644091); out_of_memory_error();} region->region = region15427; region_size15427 = region_size; region15427 = region; fp15427 = &((region->data)[0]); ALIGN(fp15427);} t86410 = (char *)fp15427; t86410[t86416] = '\0'; fp15427 += ((t86416+1)*sizeof(char))+((4-(((t86416+1)*sizeof(char))%4))&3); for (t86418 = &(t86410[0]); t86418<(&(t86410[t86416])); t86418++) *t86418 = t86417; /* x141336 stalin.sc:18336:644082 */ t86409 = "\\"; /* x141335 stalin.sc:18335:644064 */ if ((fp15427+sizeof(struct structure_type24753))>(&((region15427->data)[region_size15427]))) {struct region15427 *region; unsigned region_size = REGION_SIZE15427; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region15427 *)GC_malloc_uncollectable(sizeof(struct region15427)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 18335, 644063); out_of_memory_error();} region->region = region15427; region_size15427 = region_size; region15427 = region; fp15427 = &((region->data)[0]); ALIGN(fp15427);} t86415.tag = STRUCTURE_TYPE24753; t86415.value.structure_type24753 = (struct structure_type24753 *)fp15427; fp15427 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t86415.value.structure_type24753->s0.tag = STRING_TYPE; t86415.value.structure_type24753->s0.value.string_type = t86411; t86415.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp15427+sizeof(struct structure_type24753))>(&((region15427->data)[region_size15427]))) {struct region15427 *region; unsigned region_size = REGION_SIZE15427; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region15427 *)GC_malloc_uncollectable(sizeof(struct region15427)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 18335, 644063); out_of_memory_error();} region->region = region15427; region_size15427 = region_size; region15427 = region; fp15427 = &((region->data)[0]); ALIGN(fp15427);} t86414.tag = STRUCTURE_TYPE24753; t86414.value.structure_type24753 = (struct structure_type24753 *)fp15427; fp15427 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t86414.value.structure_type24753->s0.tag = STRING_TYPE; t86414.value.structure_type24753->s0.value.string_type = t86410; t86414.value.structure_type24753->s1 = t86415; if ((fp15427+sizeof(struct structure_type24753))>(&((region15427->data)[region_size15427]))) {struct region15427 *region; unsigned region_size = REGION_SIZE15427; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region15427 *)GC_malloc_uncollectable(sizeof(struct region15427)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 18335, 644063); out_of_memory_error();} region->region = region15427; region_size15427 = region_size; region15427 = region; fp15427 = &((region->data)[0]); ALIGN(fp15427);} t86412 = (struct structure_type24753 *)fp15427; fp15427 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t86412->s0.tag = STRING_TYPE; t86412->s0.value.string_type = t86409; t86412->s1 = t86414; t86413 = f27556(t86412); t86327.tag = STRING_TYPE; t86327.value.string_type = t86413; break; case NATIVE_PROCEDURE_TYPE20935: p16594 = t86329.value.native_procedure_type20935; a27784 = t86330; /* x156509 stalin.sc:21712:760899 */ /* x156489 stalin.sc:21712:760905 */ /* x156479 stalin.sc:21713:760932 */ /* x156478 stalin.sc:21713:760946 */ /* x156477 stalin.sc:21713:760951 */ /* x156475 stalin.sc:21713:760956 */ t86449 = p16594->p16486->a27732; /* x156476 stalin.sc:21713:760959 */ t86450 = "value"; /* x156474 stalin.sc:21713:760952 */ t86451.tag = STRING_TYPE; t86451.value.string_type = t86450; t86446 = f13585(t86449, t86451); /* x156473 stalin.sc:21713:760947 */ t86447.tag = STRUCTURE_TYPE24753; t86447.value.structure_type24753 = t86446; t86448 = (struct structure_type24753 *)NULL_TYPE; t86444 = f13625(t86447, t86448); /* x156472 stalin.sc:21713:760933 */ t86445.tag = STRUCTURE_TYPE24753; t86445.value.structure_type24753 = t86444; t86440 = f13553(t86445); /* x156488 stalin.sc:21714:760980 */ /* x156487 stalin.sc:21715:761001 */ /* x156485 stalin.sc:21715:761004 */ /* x156483 stalin.sc:21715:761007 */ t86456 = p16594->a27781; /* x156484 stalin.sc:21715:761019 */ t86457 = a1233; /* x268269 stalin.sc:21715:761005 */ if ((t86456.tag)==FIXNUM_TYPE) {switch (t86457.tag) {case FIXNUM_TYPE: t86454.tag = FIXNUM_TYPE; t86454.value.fixnum_type = (t86456.value.fixnum_type)*(t86457.value.fixnum_type); break; case FLONUM_TYPE: t86454.tag = FLONUM_TYPE; t86454.value.flonum_type = (t86456.value.fixnum_type)*(t86457.value.flonum_type); break; default: backtrace("stalin.sc", 21715, 761004); times_error();}} else switch (t86457.tag) {case FIXNUM_TYPE: t86454.tag = FLONUM_TYPE; t86454.value.flonum_type = (t86456.value.flonum_type)*(t86457.value.fixnum_type); break; case FLONUM_TYPE: t86454.tag = FLONUM_TYPE; t86454.value.flonum_type = (t86456.value.flonum_type)*(t86457.value.flonum_type); break; default: backtrace("stalin.sc", 21715, 761004); times_error();} /* x156486 stalin.sc:21715:761034 */ t86455 = a27784; /* x268270 stalin.sc:21715:761002 */ if ((t86454.tag)==FIXNUM_TYPE) {t86452.tag = FIXNUM_TYPE; t86452.value.fixnum_type = (t86454.value.fixnum_type)+t86455;} else {t86452.tag = FLONUM_TYPE; t86452.value.flonum_type = (t86454.value.flonum_type)+t86455;} /* x156480 stalin.sc:21714:760981 */ t86453 = *((struct w49 *)(&t86452)); t86441 = f13530(t86453); /* x156471 stalin.sc:21712:760906 */ t86442.tag = STRUCTURE_TYPE24753; t86442.value.structure_type24753 = t86440; t86443.tag = STRING_TYPE; t86443.value.string_type = t86441; t86435 = f13541(t86442, t86443); /* x156508 stalin.sc:21716:761048 */ /* x156498 stalin.sc:21717:761075 */ /* x156497 stalin.sc:21717:761089 */ /* x156496 stalin.sc:21717:761094 */ /* x156494 stalin.sc:21717:761099 */ t86467 = p16594->p16486->a27734; /* x156495 stalin.sc:21717:761102 */ t86468 = "value"; /* x156493 stalin.sc:21717:761095 */ t86469.tag = STRING_TYPE; t86469.value.string_type = t86468; t86464 = f13585(t86467, t86469); /* x156492 stalin.sc:21717:761090 */ t86465.tag = STRUCTURE_TYPE24753; t86465.value.structure_type24753 = t86464; t86466 = (struct structure_type24753 *)NULL_TYPE; t86462 = f13625(t86465, t86466); /* x156491 stalin.sc:21717:761076 */ t86463.tag = STRUCTURE_TYPE24753; t86463.value.structure_type24753 = t86462; t86458 = f13553(t86463); /* x156507 stalin.sc:21718:761123 */ /* x156506 stalin.sc:21719:761144 */ /* x156504 stalin.sc:21719:761147 */ /* x156502 stalin.sc:21719:761150 */ t86474 = p16594->a27781; /* x156503 stalin.sc:21719:761162 */ t86475 = a1233; /* x268267 stalin.sc:21719:761148 */ if ((t86474.tag)==FIXNUM_TYPE) {switch (t86475.tag) {case FIXNUM_TYPE: t86472.tag = FIXNUM_TYPE; t86472.value.fixnum_type = (t86474.value.fixnum_type)*(t86475.value.fixnum_type); break; case FLONUM_TYPE: t86472.tag = FLONUM_TYPE; t86472.value.flonum_type = (t86474.value.fixnum_type)*(t86475.value.flonum_type); break; default: backtrace("stalin.sc", 21719, 761147); times_error();}} else switch (t86475.tag) {case FIXNUM_TYPE: t86472.tag = FLONUM_TYPE; t86472.value.flonum_type = (t86474.value.flonum_type)*(t86475.value.fixnum_type); break; case FLONUM_TYPE: t86472.tag = FLONUM_TYPE; t86472.value.flonum_type = (t86474.value.flonum_type)*(t86475.value.flonum_type); break; default: backtrace("stalin.sc", 21719, 761147); times_error();} /* x156505 stalin.sc:21719:761177 */ t86473 = a27784; /* x268268 stalin.sc:21719:761145 */ if ((t86472.tag)==FIXNUM_TYPE) {t86470.tag = FIXNUM_TYPE; t86470.value.fixnum_type = (t86472.value.fixnum_type)+t86473;} else {t86470.tag = FLONUM_TYPE; t86470.value.flonum_type = (t86472.value.flonum_type)+t86473;} /* x156499 stalin.sc:21718:761124 */ t86471 = *((struct w49 *)(&t86470)); t86459 = f13530(t86471); /* x156490 stalin.sc:21716:761049 */ t86460.tag = STRUCTURE_TYPE24753; t86460.value.structure_type24753 = t86458; t86461.tag = STRING_TYPE; t86461.value.string_type = t86459; t86436 = f13541(t86460, t86461); /* x156470 stalin.sc:21712:760900 */ t86437.tag = STRUCTURE_TYPE24753; t86437.value.structure_type24753 = t86435; t86438.tag = STRUCTURE_TYPE24753; t86438.value.structure_type24753 = t86436; t86439 = f13591(t86437, t86438); t86327.tag = STRUCTURE_TYPE24753; t86327.value.structure_type24753 = t86439; break; case NATIVE_PROCEDURE_TYPE20936: p16593 = t86329.value.native_procedure_type20936; a27783 = t86330; /* x156465 stalin.sc:21704:760640 */ /* x156451 stalin.sc:21704:760646 */ /* x156447 stalin.sc:21705:760673 */ /* x156446 stalin.sc:21705:760689 */ /* x156445 stalin.sc:21705:760694 */ /* x156443 stalin.sc:21705:760699 */ t86489 = p16593->a27732; /* x156444 stalin.sc:21705:760702 */ t86490 = "value"; /* x156442 stalin.sc:21705:760695 */ t86491.tag = STRING_TYPE; t86491.value.string_type = t86490; t86486 = f13585(t86489, t86491); /* x156441 stalin.sc:21705:760690 */ t86487.tag = STRUCTURE_TYPE24753; t86487.value.structure_type24753 = t86486; t86488 = (struct structure_type24753 *)NULL_TYPE; t86485 = f13625(t86487, t86488); /* x156440 stalin.sc:21705:760674 */ t86481 = f13552(t86485); /* x156450 stalin.sc:21706:760723 */ /* x156449 stalin.sc:21706:760733 */ t86492 = a27783; /* x156448 stalin.sc:21706:760724 */ t86493.tag = FIXNUM_TYPE; t86493.value.fixnum_type = t86492; t86482 = f13530(t86493); /* x156439 stalin.sc:21704:760647 */ t86483.tag = STRUCTURE_TYPE24753; t86483.value.structure_type24753 = t86481; t86484.tag = STRING_TYPE; t86484.value.string_type = t86482; t86476 = f13541(t86483, t86484); /* x156464 stalin.sc:21707:760746 */ /* x156460 stalin.sc:21708:760773 */ /* x156459 stalin.sc:21708:760789 */ /* x156458 stalin.sc:21708:760794 */ /* x156456 stalin.sc:21708:760799 */ t86502 = p16593->a27734; /* x156457 stalin.sc:21708:760802 */ t86503 = "value"; /* x156455 stalin.sc:21708:760795 */ t86504.tag = STRING_TYPE; t86504.value.string_type = t86503; t86499 = f13585(t86502, t86504); /* x156454 stalin.sc:21708:760790 */ t86500.tag = STRUCTURE_TYPE24753; t86500.value.structure_type24753 = t86499; t86501 = (struct structure_type24753 *)NULL_TYPE; t86498 = f13625(t86500, t86501); /* x156453 stalin.sc:21708:760774 */ t86494 = f13552(t86498); /* x156463 stalin.sc:21709:760823 */ /* x156462 stalin.sc:21709:760833 */ t86505 = a27783; /* x156461 stalin.sc:21709:760824 */ t86506.tag = FIXNUM_TYPE; t86506.value.fixnum_type = t86505; t86495 = f13530(t86506); /* x156452 stalin.sc:21707:760747 */ t86496.tag = STRUCTURE_TYPE24753; t86496.value.structure_type24753 = t86494; t86497.tag = STRING_TYPE; t86497.value.string_type = t86495; t86477 = f13541(t86496, t86497); /* x156438 stalin.sc:21704:760641 */ t86478.tag = STRUCTURE_TYPE24753; t86478.value.structure_type24753 = t86476; t86479.tag = STRUCTURE_TYPE24753; t86479.value.structure_type24753 = t86477; t86480 = f13591(t86478, t86479); t86327.tag = STRUCTURE_TYPE24753; t86327.value.structure_type24753 = t86480; break; case NATIVE_PROCEDURE_TYPE21397: p17597 = t86329.value.native_procedure_type21397; a30395 = t86330; /* x164403 stalin.sc:23515:819408 */ /* x164388 stalin.sc:23515:819414 */ /* x164379 stalin.sc:23516:819436 */ t86511 = p17597->a30394; /* x164383 stalin.sc:23516:819438 */ /* x164381 stalin.sc:23516:819455 */ /* x164382 stalin.sc:23516:819468 */ t86516 = p17597->a30392; /* x164380 stalin.sc:23516:819439 */ t86517.tag = NATIVE_PROCEDURE_TYPE7822; t86512 = f8157(t86517, t86516); /* x164384 stalin.sc:23516:819471 */ t86513 = p17597->a30392; /* x164387 stalin.sc:23516:819473 */ /* x164386 stalin.sc:23516:819483 */ t86518 = a30395; /* x164385 stalin.sc:23516:819474 */ t86519.tag = FIXNUM_TYPE; t86519.value.fixnum_type = t86518; t86514 = f13530(t86519); /* x164378 stalin.sc:23515:819415 */ t86515.tag = STRING_TYPE; t86515.value.string_type = t86514; t86507 = f14750(t86511, t86512, t86513, t86515); /* x164402 stalin.sc:23517:819490 */ /* x164393 stalin.sc:23517:819499 */ /* x164391 stalin.sc:23517:819509 */ t86523 = p17597->p17588->a30374; /* x164392 stalin.sc:23517:819512 */ t86524 = a30395; /* x164390 stalin.sc:23517:819500 */ t86525.tag = FIXNUM_TYPE; t86525.value.fixnum_type = t86524; t86520 = f26338(t86523, t86525); /* x164397 stalin.sc:23518:819520 */ /* x164395 stalin.sc:23518:819530 */ t86526 = p17597->a30393; /* x164396 stalin.sc:23518:819533 */ t86527 = a30395; /* x164394 stalin.sc:23518:819521 */ t86528 = *((struct w49 *)(&t86526)); t86529.tag = FIXNUM_TYPE; t86529.value.fixnum_type = t86527; t86521 = f26338(t86528, t86529); /* x164401 stalin.sc:23519:819541 */ /* x164399 stalin.sc:23519:819551 */ t86530 = p17597->p17588->a30375; /* x164400 stalin.sc:23519:819554 */ t86531 = a30395; /* x164398 stalin.sc:23519:819542 */ t86532.tag = FIXNUM_TYPE; t86532.value.fixnum_type = t86531; t86522 = f26338(t86530, t86532); /* x164389 stalin.sc:23517:819491 */ t86508 = f14485(t86520, t86521, t86522); /* x164377 stalin.sc:23515:819409 */ t86509.tag = STRUCTURE_TYPE24753; t86509.value.structure_type24753 = t86507; t86510 = f13637(t86509, t86508); t86327.tag = STRUCTURE_TYPE24753; t86327.value.structure_type24753 = t86510; break; case NATIVE_PROCEDURE_TYPE21449: a27165 = t86330; /* x151721 stalin.sc:20678:723716 */ /* x151720 stalin.sc:20678:723725 */ /* x151719 stalin.sc:20678:723749 */ t86537 = a27165; /* x151718 stalin.sc:20678:723726 */ t86533 = f13519(t86537); /* x151717 stalin.sc:20678:723717 */ t86534.tag = STRUCTURE_TYPE24753; t86534.value.structure_type24753 = t86533; t86535 = (struct structure_type24753 *)NULL_TYPE; t86536 = f13645(t86534, t86535); t86327.tag = STRUCTURE_TYPE24753; t86327.value.structure_type24753 = t86536; break; case NATIVE_PROCEDURE_TYPE21495: a27164 = t86330; /* x151697 stalin.sc:20660:723117 */ /* x151696 stalin.sc:20662:723203 */ /* x151695 stalin.sc:20663:723223 */ /* x151694 stalin.sc:20664:723247 */ /* x151677 stalin.sc:20665:723263 */ /* x151676 stalin.sc:20665:723272 */ t86559 = a1196; /* x151675 stalin.sc:20665:723264 */ /* MOVE: branching squeezed to general */ if (t86559>=((struct structure_type24753 *)VALUE_OFFSET)) {t86560.tag = STRUCTURE_TYPE24753; t86560.value.structure_type24753 = t86559;} else t86560.tag = (unsigned)t86559; t86555 = f26331(t86560); /* x151681 stalin.sc:20666:723294 */ /* x151679 stalin.sc:20666:723297 */ t86561 = a839; /* x151680 stalin.sc:20666:723348 */ t86562 = a27164; /* x268387 stalin.sc:20666:723295 */ t86556 = t86561*t86562; /* x151693 stalin.sc:20667:723358 */ /* x151689 stalin.sc:20667:723363 */ /* x151684 stalin.sc:20667:723366 */ t86565 = a839; /* x151688 stalin.sc:20668:723425 */ /* x151686 stalin.sc:20668:723428 */ t86567 = a27164; /* x151687 stalin.sc:20668:723430 */ t86568 = 1; /* x268384 stalin.sc:20668:723426 */ t86566 = t86567+t86568; /* x268385 stalin.sc:20667:723364 */ t86563 = t86565*t86566; /* x151692 stalin.sc:20669:723439 */ /* x151691 stalin.sc:20669:723447 */ t86569 = a1196; /* x151690 stalin.sc:20669:723440 */ /* MOVE: branching squeezed to general */ if (t86569>=((struct structure_type24753 *)VALUE_OFFSET)) {t86570.tag = STRUCTURE_TYPE24753; t86570.value.structure_type24753 = t86569;} else t86570.tag = (unsigned)t86569; t86564 = f26227(t86570); /* x268386 stalin.sc:20667:723359 */ t86557 = IMIN(t86563, t86564); /* x151674 stalin.sc:20664:723248 */ t86558 = *((struct w49 *)(&t86555)); t86553 = f26233(t86558, t86556, t86557); /* x151673 stalin.sc:20663:723224 */ /* MOVE: branching squeezed to general */ if (t86553>=((struct structure_type24753 *)VALUE_OFFSET)) {t86554.tag = STRUCTURE_TYPE24753; t86554.value.structure_type24753 = t86553;} else t86554.tag = (unsigned)t86553; t86552 = f13492(t86554); /* x151672 stalin.sc:20662:723204 */ t86539 = f13501(t86552); /* x151671 stalin.sc:20661:723138 */ /* x151670 stalin.sc:20661:723160 */ /* x151669 stalin.sc:20661:723170 */ /* x151668 stalin.sc:20661:723194 */ t86551 = a27164; /* x151667 stalin.sc:20661:723171 */ t86548 = f13519(t86551); /* x151666 stalin.sc:20661:723161 */ t86549.tag = STRUCTURE_TYPE24753; t86549.value.structure_type24753 = t86548; t86550 = (struct structure_type24753 *)NULL_TYPE; t86544 = f13641(t86549, t86550); /* x151665 stalin.sc:20661:723153 */ t86543 = "void"; /* x151664 stalin.sc:20661:723139 */ t86547.tag = STRUCTURE_TYPE24753; t86547.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t86547.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20661, 723138); out_of_memory_error();} t86547.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t86547.value.structure_type24753->s0.value.structure_type24753 = t86544; t86547.value.structure_type24753->s1.tag = NULL_TYPE; a42020 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42020==NULL) {backtrace("stalin.sc", 20661, 723138); out_of_memory_error();} a42020->s0.tag = STRING_TYPE; a42020->s0.value.string_type = t86543; a42020->s1 = t86547; /* x302192 stalin.sc:14386:505956 */ /* x302191 stalin.sc:14386:505972 */ t86545 = a42020; /* x302190 stalin.sc:14386:505957 */ t86546.tag = STRUCTURE_TYPE24753; t86546.value.structure_type24753 = t86545; t86538 = f13474(t86546); /* x151663 stalin.sc:20660:723118 */ t86542.tag = STRUCTURE_TYPE24753; t86542.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t86542.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20660, 723117); out_of_memory_error();} t86542.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t86542.value.structure_type24753->s0.value.structure_type24753 = t86539; t86542.value.structure_type24753->s1.tag = NULL_TYPE; a41861 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41861==NULL) {backtrace("stalin.sc", 20660, 723117); out_of_memory_error();} a41861->s0 = t86538; a41861->s1 = t86542; /* x301556 stalin.sc:14400:506485 */ /* x301555 stalin.sc:14400:506503 */ t86540 = a41861; /* x301554 stalin.sc:14400:506486 */ t86541.tag = STRUCTURE_TYPE24753; t86541.value.structure_type24753 = t86540; t86327 = f13492(t86541); break; case NATIVE_PROCEDURE_TYPE21496: a26858 = t86330; /* x145767 stalin.sc:19319:676570 */ /* x145766 stalin.sc:19319:676592 */ /* x145765 stalin.sc:19319:676605 */ /* x145764 stalin.sc:19319:676629 */ t86579 = a26858; /* x145763 stalin.sc:19319:676606 */ t86576 = f13519(t86579); /* x145762 stalin.sc:19319:676593 */ t86577.tag = STRUCTURE_TYPE24753; t86577.value.structure_type24753 = t86576; t86578 = (struct structure_type24753 *)NULL_TYPE; t86572 = f13642(t86577, t86578); /* x145761 stalin.sc:19319:676585 */ t86571 = "void"; /* x145760 stalin.sc:19319:676571 */ t86575.tag = STRUCTURE_TYPE24753; t86575.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t86575.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19319, 676570); out_of_memory_error();} t86575.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t86575.value.structure_type24753->s0.value.structure_type24753 = t86572; t86575.value.structure_type24753->s1.tag = NULL_TYPE; a42019 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42019==NULL) {backtrace("stalin.sc", 19319, 676570); out_of_memory_error();} a42019->s0.tag = STRING_TYPE; a42019->s0.value.string_type = t86571; a42019->s1 = t86575; /* x302188 stalin.sc:14386:505956 */ /* x302187 stalin.sc:14386:505972 */ t86573 = a42019; /* x302186 stalin.sc:14386:505957 */ t86574.tag = STRUCTURE_TYPE24753; t86574.value.structure_type24753 = t86573; t86327 = f13474(t86574); break; case NATIVE_PROCEDURE_TYPE22024: p17745 = t86329.value.native_procedure_type22024; a30764 = t86330; /* x165685 stalin.sc:23868:829229 */ /* x165676 stalin.sc:23868:829235 */ /* x165661 stalin.sc:23868:829239 */ /* x165660 stalin.sc:23868:829264 */ t86584 = p17745->a30763; /* x165659 stalin.sc:23868:829240 */ if (f7754(t86584)==FALSE_TYPE) goto l16501; /* x165662 stalin.sc:23869:829275 */ t86580 = a1194; goto l16502; l16501: /* x165675 stalin.sc:23870:829293 */ /* x165666 stalin.sc:23871:829326 */ /* x165665 stalin.sc:23871:829354 */ t86589 = p17745->a30763; /* x165664 stalin.sc:23871:829327 */ a37514 = t86589; /* x282725 */ /* x282724 */ t86590 = a37514; /* x282723 */ if (!((t86590.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32431]"); structure_ref_error();} t86585 = t86590.value.structure_type27761->s0; /* x165674 stalin.sc:23872:829366 */ /* x165668 stalin.sc:23872:829384 */ t86591 = p17745->p17742->p17741->a30761; /* x165669 stalin.sc:23872:829386 */ t86592 = p17745->a30763; /* x165670 stalin.sc:23872:829388 */ t86593 = p17745->p17742->a30762; /* x165673 stalin.sc:23872:829390 */ /* x165672 stalin.sc:23872:829400 */ t86596 = a30764; /* x165671 stalin.sc:23872:829391 */ t86597.tag = FIXNUM_TYPE; t86597.value.fixnum_type = t86596; t86594 = f13530(t86597); /* x165667 stalin.sc:23872:829367 */ t86595.tag = STRING_TYPE; t86595.value.string_type = t86594; t86586 = f14753(t86591, t86592, t86593, t86595); /* x165663 stalin.sc:23870:829294 */ t86587 = *((struct w49 *)(&t86586)); t86588 = f7025(t86585, t86587); t86580 = t86588; l16502: /* x165680 stalin.sc:23873:829410 */ /* x165678 stalin.sc:23873:829420 */ t86598 = p17745->p17742->p17741->p17736->a30748; /* x165679 stalin.sc:23873:829423 */ t86599 = a30764; /* x165677 stalin.sc:23873:829411 */ t86600.tag = FIXNUM_TYPE; t86600.value.fixnum_type = t86599; t86581 = f26338(t86598, t86600); /* x165684 stalin.sc:23874:829430 */ /* x165682 stalin.sc:23874:829440 */ t86601 = p17745->p17742->p17741->p17736->a30749; /* x165683 stalin.sc:23874:829443 */ t86602 = a30764; /* x165681 stalin.sc:23874:829431 */ t86603.tag = FIXNUM_TYPE; t86603.value.fixnum_type = t86602; t86582 = f26338(t86601, t86603); /* x165658 stalin.sc:23868:829230 */ /* MOVE: branching squeezed to general */ if (t86580>=((struct structure_type27501 *)VALUE_OFFSET)) {t86583.tag = STRUCTURE_TYPE27501; t86583.value.structure_type27501 = t86580;} else t86583.tag = (unsigned)t86580; t86327 = f15496(t86583, t86581, t86582); break; case NATIVE_PROCEDURE_TYPE22438: /* x153804 stalin.sc:21062:736744 */ t86327.tag = NATIVE_PROCEDURE_TYPE7404; break; case NATIVE_PROCEDURE_TYPE22440: /* x157642 stalin.sc:21946:768110 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22441: /* x157533 stalin.sc:21926:767446 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22442: /* x157748 stalin.sc:21966:768839 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22444: /* x157801 stalin.sc:21976:769205 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22445: /* x157695 stalin.sc:21956:768474 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22446: /* x158601 stalin.sc:22134:774093 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22447: /* x158407 stalin.sc:22093:772590 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22448: /* x159054 stalin.sc:22223:777248 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22449: /* x159603 stalin.sc:22333:781505 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22450: /* x159313 stalin.sc:22271:778905 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22451: /* x158795 stalin.sc:22175:775595 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22452: /* x161460 stalin.sc:22712:792815 */ t86327.tag = NATIVE_PROCEDURE_TYPE7430; break; case NATIVE_PROCEDURE_TYPE22453: /* x161652 stalin.sc:22760:794471 */ t86327.tag = NATIVE_PROCEDURE_TYPE7430; break; case NATIVE_PROCEDURE_TYPE22454: /* x161557 stalin.sc:22736:793642 */ t86327.tag = NATIVE_PROCEDURE_TYPE7430; break; case NATIVE_PROCEDURE_TYPE22455: /* x164305 stalin.sc:23496:818809 */ t86327.tag = NATIVE_PROCEDURE_TYPE7431; break; case NATIVE_PROCEDURE_TYPE22456: /* x165507 stalin.sc:23824:827855 */ t86327.tag = NATIVE_PROCEDURE_TYPE7404; break; case NATIVE_PROCEDURE_TYPE22457: /* x166338 stalin.sc:24045:834073 */ t86327.tag = NATIVE_PROCEDURE_TYPE7404; break; case NATIVE_PROCEDURE_TYPE22460: /* x153810 stalin.sc:21063:736774 */ t86327.tag = NATIVE_PROCEDURE_TYPE7404; break; case NATIVE_PROCEDURE_TYPE22469: /* x157539 stalin.sc:21927:767483 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22470: /* x157648 stalin.sc:21947:768147 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22471: /* x157701 stalin.sc:21957:768511 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22472: /* x157754 stalin.sc:21967:768876 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22473: /* x157807 stalin.sc:21977:769242 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22475: /* x158413 stalin.sc:22094:772627 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22476: /* x158607 stalin.sc:22135:774130 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22477: /* x158801 stalin.sc:22176:775632 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22478: /* x159060 stalin.sc:22224:777285 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22479: /* x159319 stalin.sc:22272:778942 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22480: /* x159609 stalin.sc:22334:781542 */ t86327.tag = NATIVE_PROCEDURE_TYPE7426; break; case NATIVE_PROCEDURE_TYPE22481: /* x161466 stalin.sc:22713:792852 */ t86327.tag = NATIVE_PROCEDURE_TYPE7430; break; case NATIVE_PROCEDURE_TYPE22482: /* x161563 stalin.sc:22737:793679 */ t86327.tag = NATIVE_PROCEDURE_TYPE7430; break; case NATIVE_PROCEDURE_TYPE22483: /* x161658 stalin.sc:22761:794508 */ t86327.tag = NATIVE_PROCEDURE_TYPE7430; break; case NATIVE_PROCEDURE_TYPE22486: /* x164311 stalin.sc:23497:818844 */ t86327.tag = NATIVE_PROCEDURE_TYPE7431; break; case NATIVE_PROCEDURE_TYPE22488: /* x165513 stalin.sc:23825:827885 */ t86327.tag = NATIVE_PROCEDURE_TYPE7404; break; case NATIVE_PROCEDURE_TYPE22490: /* x166355 stalin.sc:24048:834215 */ t86327.tag = NATIVE_PROCEDURE_TYPE7404; break; case NATIVE_PROCEDURE_TYPE22559: /* x60151 stalin.sc:1132:36962 */ t86327.tag = FALSE_TYPE; break; default: p7135 = t86329.value.native_procedure_type22565; /* x60107 stalin.sc:1135:37122 */ /* x60106 stalin.sc:1135:37139 */ t86604 = p7135->a21065; /* x60105 stalin.sc:1135:37123 */ t86605.tag = STRUCTURE_TYPE27769; t86605.value.structure_type27769 = t86604; t86606 = f8092(t86605); t86327.tag = STRUCTURE_TYPE27650; t86327.value.structure_type27650 = t86606;} /* x15078 QobiScheme.sc:407:12202 */ t86328 = a14814; /* x270928 QobiScheme.sc:407:12191 */ t86324 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t86324==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 407, 12190); out_of_memory_error();} t86324->s0 = t86327; /* MOVE: branching squeezed to general */ if (t86328>=((struct structure_type24753 *)VALUE_OFFSET)) {t86324->s1.tag = STRUCTURE_TYPE24753; t86324->s1.value.structure_type24753 = t86328;} else t86324->s1.tag = (unsigned)t86328; /* x15069 QobiScheme.sc:407:12177 */ a14813 = t86323; a14814 = t86324; goto h1152; l16487: /* x15083 QobiScheme.sc:407:12206 */ /* x15082 QobiScheme.sc:407:12215 */ t86321 = a14814; /* x15081 QobiScheme.sc:407:12207 */ /* MOVE: branching squeezed to general */ if (t86321>=((struct structure_type24753 *)VALUE_OFFSET)) {t86322.tag = STRUCTURE_TYPE24753; t86322.value.structure_type24753 = t86321;} else t86322.tag = (unsigned)t86321; return f26331(t86322);} /* MAP-INDEXED[1144] */ struct w12224 f1144(struct p18442 *a14802, struct w49 a14803) {int a14806; /* I */ struct w49 a14807; /* L */ struct structure_type24753 *a14808; /* C */ struct w49 a26811; /* W */ int a26812; /* I */ struct w49 a27161; /* U */ int a27162; /* I */ struct w49 a32373; /* SLOT */ int a32374; /* I */ struct w49 a32375; /* SLOT */ struct w16638 a35613; /* PAIR */ struct w16638 a36201; /* PAIR */ struct w49 a41100; /* S */ struct w49 a42384; /* S */ int t86607; struct w49 t86608; struct w49 t86609; int t86610; struct w49 t86611; struct structure_type24753 *t86612; int t86613; int t86614; struct w16638 t86615; struct w16638 t86616; struct w49 t86617; struct structure_type24753 *t86618; struct p18442 *t86619; struct w49 t86620; int t86621; struct w61020 t86622; char *t86623; struct w49 t86624; struct w30215 t86625; struct w49 t86626; int t86627; struct w30215 t86628; int t86629; int t86630; int t86631; struct w49 t86632; struct w49 t86633; struct w49 t86634; struct structure_type24753 *t86635; struct w49 t86636; struct structure_type24753 *t86637; struct w49 t86638; int t86639; struct w49 t86640; struct p18442 *t86641; struct w49 t86642; char *t86643; struct structure_type24753 *t86644; struct w49 t86645; struct w49 t86646; struct structure_type24753 *t86647; struct structure_type24753 *t86648; struct structure_type24753 *t86649; struct w49 t86650; struct w49 t86651; char *t86652; struct structure_type24753 *t86653; struct w49 t86654; struct w49 t86655; struct structure_type24753 *t86656; struct structure_type24753 *t86657; struct w49 t86658; struct w49 t86659; char *t86660; struct structure_type24753 *t86661; struct w49 t86662; struct w49 t86663; char *t86664; char *t86665; char *t86666; char *t86667; struct structure_type24753 *t86668; struct w49 t86669; struct w49 t86670; struct w49 t86671; struct w49 t86672; struct structure_type24753 *t86674; struct w49 t86675; struct w49 t86676; struct structure_type24753 *t86677; struct structure_type24753 *t86678; struct w49 t86679; struct w49 t86680; char *t86681; struct structure_type24753 *t86682; struct w49 t86683; struct w49 t86684; char *t86685; struct structure_type24753 *t86686; struct w49 t86687; struct w49 t86688; struct w49 t86689; struct structure_type24753 *t86690; struct w49 t86691; int t86692; struct w49 t86693; struct w49 t86694; struct structure_type24753 *t86696; struct structure_type24753 *t86697; struct w49 t86698; struct w49 t86699; char *t86700; struct structure_type24753 *t86701; struct w49 t86702; struct w49 t86703; struct structure_type24753 *t86704; struct structure_type24753 *t86705; struct w49 t86706; struct w49 t86707; char *t86708; struct structure_type24753 *t86709; struct w49 t86710; struct w49 t86711; char *t86712; char *t86713; char *t86714; char *t86715; char *t86716; char *t86717; struct structure_type24753 *t86718; struct w49 t86719; struct w49 t86720; struct w49 t86721; struct w49 t86722; struct w49 t86723; struct w49 t86724; struct structure_type24753 *t86727; struct w49 t86728; struct w49 t86729; struct structure_type24753 *t86730; struct structure_type24753 *t86731; struct w49 t86732; struct w49 t86733; char *t86734; struct structure_type24753 *t86735; struct w49 t86736; struct w49 t86737; char *t86738; struct structure_type24753 *t86739; struct w49 t86740; struct w49 t86741; struct w49 t86742; struct structure_type24753 *t86743; struct w49 t86744; int t86745; struct w49 t86746; struct w49 t86747; struct structure_type24753 *t86750; struct w49 t86751; struct w49 t86752; char *t86753; struct structure_type24753 *t86754; struct w49 t86755; struct w49 t86756; struct structure_type24753 *t86757; struct structure_type24753 *t86758; struct w49 t86759; struct w49 t86760; char *t86761; struct structure_type24753 *t86762; struct w49 t86763; struct w49 t86764; char *t86765; char *t86766; char *t86767; char *t86768; char *t86769; char *t86770; struct structure_type24753 *t86771; struct w49 t86772; struct w49 t86773; struct w49 t86774; struct w49 t86775; struct w49 t86776; struct w49 t86777; struct structure_type24753 *t86780; struct structure_type24753 *t86781; struct w49 t86782; struct w49 t86783; char *t86784; struct structure_type24753 *t86785; struct w49 t86786; struct w49 t86787; struct structure_type24753 *t86788; struct structure_type24753 *t86789; struct w49 t86790; struct w49 t86791; struct structure_type24753 *t86792; struct w49 t86793; struct w49 t86794; char *t86795; struct structure_type24753 *t86796; struct w49 t86797; struct w49 t86798; struct structure_type24753 *t86799; struct w49 t86800; struct w49 t86801; struct structure_type24753 *t86802; struct structure_type24753 *t86803; struct w49 t86804; struct w49 t86805; char *t86806; struct structure_type24753 *t86807; struct w49 t86808; struct w49 t86809; char *t86810; struct structure_type24753 *t86811; struct w49 t86812; struct w49 t86813; struct w49 t86814; struct structure_type24753 *t86815; struct w49 t86816; int t86817; struct w49 t86818; struct w49 t86819; struct structure_type24753 *t86821; struct w49 t86822; struct w49 t86823; char *t86824; struct structure_type24753 *t86825; struct w49 t86826; struct w49 t86827; struct structure_type24753 *t86828; struct w49 t86829; struct w49 t86830; struct structure_type24753 *t86831; struct structure_type24753 *t86832; struct w49 t86833; struct w49 t86834; char *t86835; struct structure_type24753 *t86836; struct w49 t86837; struct w49 t86838; char *t86839; struct structure_type24753 *t86840; struct w49 t86841; struct w49 t86842; struct w49 t86843; struct structure_type24753 *t86844; struct w49 t86845; int t86846; struct w49 t86847; struct w49 t86848; struct structure_type24753 *t86851; struct w49 t86852; struct w49 t86853; struct structure_type24753 *t86854; struct structure_type24753 *t86855; struct w49 t86856; struct w49 t86857; char *t86858; struct structure_type24753 *t86859; struct w49 t86860; struct w49 t86861; char *t86862; struct structure_type24753 *t86863; struct w49 t86864; struct w49 t86865; struct w49 t86866; struct structure_type24753 *t86867; struct w49 t86868; int t86869; struct w49 t86870; struct w49 t86871; struct w49 t86874; struct w49 t86875; struct w49 t86876; struct w16638 t86877; struct w16638 t86878; struct structure_type24753 *t86879; struct w49 t86880; struct p18442 *p18443; struct p18442 *p18444; /* x15060 QobiScheme.sc:399:11952 */ /* x15057 QobiScheme.sc:399:11966 */ t86607 = 0; /* x15058 QobiScheme.sc:399:11972 */ t86608 = a14803; /* x15059 QobiScheme.sc:399:11978 */ /* x15056 */ /* x15055 */ /* x15054 */ /* x15053 */ /* x15052 */ /* x15051 */ /* x15050 */ /* x15024 */ /* x15023 QobiScheme.sc:399:11957 */ a14806 = t86607; a14807 = t86608; a14808 = (struct structure_type24753 *)NULL_TYPE; h1147: /* x15049 QobiScheme.sc:400:11986 */ /* x15027 QobiScheme.sc:400:11990 */ /* x15026 QobiScheme.sc:400:11997 */ t86609 = a14807; /* x270933 QobiScheme.sc:400:11991 */ if (!((t86609.tag)==NULL_TYPE)) goto l16504; /* x15030 QobiScheme.sc:401:12006 */ /* x15029 QobiScheme.sc:401:12015 */ t86879 = a14808; /* x15028 QobiScheme.sc:401:12007 */ /* MOVE: branching squeezed to general */ if (t86879>=((struct structure_type24753 *)VALUE_OFFSET)) {t86880.tag = STRUCTURE_TYPE24753; t86880.value.structure_type24753 = t86879;} else t86880.tag = (unsigned)t86879; return f26331(t86880); l16504: /* x15048 QobiScheme.sc:402:12024 */ /* x15035 QobiScheme.sc:402:12030 */ /* x15033 QobiScheme.sc:402:12033 */ t86613 = a14806; /* x15034 QobiScheme.sc:402:12035 */ t86614 = 1; /* x270932 QobiScheme.sc:402:12031 */ t86610 = t86613+t86614; /* x15038 QobiScheme.sc:402:12038 */ /* x15037 QobiScheme.sc:402:12044 */ t86615 = *((struct w16638 *)(&a14807)); /* x15036 QobiScheme.sc:402:12039 */ a35613 = t86615; /* x273809 */ /* x273808 */ t86616 = a35613; /* x273807 */ if (!((t86616.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29762]"); structure_ref_error();} t86611 = t86616.value.structure_type24753->s1; /* x15047 QobiScheme.sc:402:12047 */ /* x15045 QobiScheme.sc:402:12053 */ /* x15043 QobiScheme.sc:402:12056 */ /* x15042 QobiScheme.sc:402:12063 */ t86877 = *((struct w16638 *)(&a14807)); /* x15041 QobiScheme.sc:402:12057 */ a36201 = t86877; /* x276161 */ /* x276160 */ t86878 = a36201; /* x276159 */ if (!((t86878.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30350]"); structure_ref_error();} t86620 = t86878.value.structure_type24753->s0; /* x15044 QobiScheme.sc:402:12066 */ t86621 = a14806; /* x15040 QobiScheme.sc:402:12054 */ t86619 = a14802; switch ((unsigned)t86619) {case NATIVE_PROCEDURE_TYPE21528: a27161 = t86620; a27162 = t86621; /* x151575 stalin.sc:20646:722641 */ /* x151559 stalin.sc:20646:722651 */ /* x151558 stalin.sc:20646:722663 */ t86624 = a27161; /* x151557 stalin.sc:20646:722652 */ t86622 = f14433(t86624); /* x151574 stalin.sc:20647:722673 */ /* x151573 stalin.sc:20647:722683 */ /* x151568 stalin.sc:20647:722686 */ /* x151563 stalin.sc:20647:722689 */ t86629 = a27162; /* x151567 stalin.sc:20647:722691 */ /* x151564 stalin.sc:20647:722695 */ if (a1971==FALSE_TYPE) goto l16506; /* x151565 stalin.sc:20647:722713 */ t86630 = 256; goto l16507; l16506: /* x151566 stalin.sc:20647:722717 */ t86630 = 0; l16507: /* x268395 stalin.sc:20647:722687 */ t86627 = t86629+t86630; /* x151572 stalin.sc:20648:722727 */ /* x151570 stalin.sc:20648:722733 */ t86631 = 2; /* x151571 stalin.sc:20648:722735 */ t86632 = a1226; /* x268394 stalin.sc:20648:722728 */ switch (t86632.tag) {case FIXNUM_TYPE: if ((t86632.value.fixnum_type)<0) {t86628.tag = FLONUM_TYPE; t86628.value.flonum_type = pow(t86631, (t86632.value.fixnum_type));} else {t86628.tag = FIXNUM_TYPE; t86628.value.fixnum_type = ipow(t86631, (t86632.value.fixnum_type));} break; case FLONUM_TYPE: t86628.tag = FLONUM_TYPE; t86628.value.flonum_type = pow(t86631, (t86632.value.flonum_type)); break; default: backtrace("stalin.sc", 20648, 722727); expt2_error();} /* x268396 stalin.sc:20647:722684 */ if ((t86628.tag)==FIXNUM_TYPE) {t86625.tag = FIXNUM_TYPE; t86625.value.fixnum_type = t86627*(t86628.value.fixnum_type);} else {t86625.tag = FLONUM_TYPE; t86625.value.flonum_type = t86627*(t86628.value.flonum_type);} /* x151560 stalin.sc:20647:722674 */ t86626 = *((struct w49 *)(&t86625)); t86623 = f13530(t86626); /* x151556 stalin.sc:20646:722642 */ t86617 = f13635(t86622, t86623); break; case NATIVE_PROCEDURE_TYPE23830: a26811 = t86620; a26812 = t86621; /* x144998 stalin.sc:19147:671108 */ /* x144987 stalin.sc:19147:671112 */ /* x144986 stalin.sc:19147:671125 */ t86633 = a26811; /* x144985 stalin.sc:19147:671113 */ if (f8793(t86633)==FALSE_TYPE) goto l16509; /* x144989 stalin.sc:19148:671133 */ /* x144988 stalin.sc:19148:671134 */ /* x276441 stalin.sc:14693:514793 */ t86617.tag = STRING_TYPE; t86617.value.string_type = ""; goto l16510; l16509: /* x144997 stalin.sc:19149:671147 */ /* x144996 stalin.sc:19149:671164 */ /* x144992 stalin.sc:19149:671176 */ t86636 = a26811; /* x144995 stalin.sc:19149:671178 */ /* x144994 stalin.sc:19149:671183 */ t86639 = a26812; /* x144993 stalin.sc:19149:671179 */ t86640.tag = FIXNUM_TYPE; t86640.value.fixnum_type = t86639; t86637 = f14287(t86640); /* x144991 stalin.sc:19149:671165 */ t86638.tag = STRUCTURE_TYPE24753; t86638.value.structure_type24753 = t86637; t86634 = f14414(t86636, t86638); /* x144990 stalin.sc:19149:671148 */ t86635 = f13514(t86634); t86617.tag = STRUCTURE_TYPE24753; t86617.value.structure_type24753 = t86635; l16510: break; default: p18443 = t86619; a32373 = t86620; a32374 = t86621; /* x205492 stalin.sc:28410:976621 */ /* x205491 stalin.sc:28410:976633 */ /* x205490 stalin.sc:28410:976643 */ t86874 = a32373; /* x205489 stalin.sc:28410:976634 */ a41100 = t86874; /* x298512 stalin.sc:6937:240340 */ /* x298511 stalin.sc:6937:240360 */ t86875 = a41100; /* x298510 stalin.sc:6937:240341 */ a42384 = t86875; /* x303034 */ /* x303033 */ t86876 = a42384; /* x303032 */ if (!((t86876.tag)==STRUCTURE_TYPE27510)) {backtrace_internal("[clone S-EXPRESSION-DATUM[5459] 37560]"); structure_ref_error();} t86642 = t86876.value.structure_type27510->s9; /* x205488 */ t86641 = p18443; p18444 = t86641; a32375 = t86642; /* x205487 stalin.sc:28412:976678 */ /* x205278 */ t86643 = q239; /* x205486 */ /* x205321 */ /* x205281 */ t86652 = q97; /* x205320 */ /* x205298 */ /* x205294 stalin.sc:28413:976701 */ /* x205293 stalin.sc:28414:976726 */ /* x205292 stalin.sc:28416:976787 */ /* x205291 stalin.sc:28416:976803 */ t86672 = a32375; /* x267948 stalin.sc:28416:976788 */ if (!((t86672.tag)==EXTERNAL_SYMBOL_TYPE)) {backtrace("stalin.sc", 28416, 976787); symbol_string_error();} t86667 = t86672.value.external_symbol_type; /* x205289 stalin.sc:28415:976773 */ t86666 = "-"; /* x205288 stalin.sc:28414:976741 */ /* x205287 stalin.sc:28414:976757 */ t86671 = p18444->a32372; /* x267949 stalin.sc:28414:976742 */ if (!((t86671.tag)==EXTERNAL_SYMBOL_TYPE)) {backtrace("stalin.sc", 28414, 976741); symbol_string_error();} t86665 = t86671.value.external_symbol_type; /* x205285 stalin.sc:28414:976727 */ t86670.tag = STRUCTURE_TYPE24753; t86670.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t86670.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28414, 976726); out_of_memory_error();} t86670.value.structure_type24753->s0.tag = STRING_TYPE; t86670.value.structure_type24753->s0.value.string_type = t86667; t86670.value.structure_type24753->s1.tag = NULL_TYPE; t86669.tag = STRUCTURE_TYPE24753; t86669.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t86669.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28414, 976726); out_of_memory_error();} t86669.value.structure_type24753->s0.tag = STRING_TYPE; t86669.value.structure_type24753->s0.value.string_type = t86666; t86669.value.structure_type24753->s1 = t86670; t86668 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t86668==NULL) {backtrace("stalin.sc", 28414, 976726); out_of_memory_error();} t86668->s0.tag = STRING_TYPE; t86668->s0.value.string_type = t86665; t86668->s1 = t86669; t86664 = f27556(t86668); /* x205284 stalin.sc:28413:976702 */ t86660 = f26395(t86664); /* x205297 */ t86661 = &t86673; /* x205283 */ t86662.tag = EXTERNAL_SYMBOL_TYPE; t86662.value.external_symbol_type = t86660; t86663.tag = STRUCTURE_TYPE24753; t86663.value.structure_type24753 = t86661; t86656 = f26175(t86662, t86663); /* x205319 */ /* x205317 */ /* x205313 */ /* x205302 */ t86681 = q77; /* x205312 */ /* x205304 */ t86685 = q99; /* x205311 */ /* x205306 stalin.sc:28418:976864 */ t86689 = p18444->a32372; /* x205310 */ /* x205308 stalin.sc:28418:976870 */ t86692 = a32374; /* x205309 */ /* x205307 */ t86693.tag = FIXNUM_TYPE; t86693.value.fixnum_type = t86692; t86694.tag = NULL_TYPE; t86690 = f26175(t86693, t86694); /* x205305 */ t86691.tag = STRUCTURE_TYPE24753; t86691.value.structure_type24753 = t86690; t86686 = f26175(t86689, t86691); /* x205303 */ t86687.tag = EXTERNAL_SYMBOL_TYPE; t86687.value.external_symbol_type = t86685; t86688.tag = STRUCTURE_TYPE24753; t86688.value.structure_type24753 = t86686; t86682 = f26175(t86687, t86688); /* x205301 */ t86683.tag = EXTERNAL_SYMBOL_TYPE; t86683.value.external_symbol_type = t86681; t86684.tag = STRUCTURE_TYPE24753; t86684.value.structure_type24753 = t86682; t86677 = f26175(t86683, t86684); /* x205316 */ t86678 = &t86695; /* x205300 */ t86679.tag = STRUCTURE_TYPE24753; t86679.value.structure_type24753 = t86677; t86680.tag = STRUCTURE_TYPE24753; t86680.value.structure_type24753 = t86678; t86674 = f26175(t86679, t86680); /* x205318 */ /* x205299 */ t86675.tag = STRUCTURE_TYPE24753; t86675.value.structure_type24753 = t86674; t86676.tag = NULL_TYPE; t86657 = f26175(t86675, t86676); /* x205282 */ t86658.tag = STRUCTURE_TYPE24753; t86658.value.structure_type24753 = t86656; t86659.tag = STRUCTURE_TYPE24753; t86659.value.structure_type24753 = t86657; t86653 = f26175(t86658, t86659); /* x205280 */ t86654.tag = EXTERNAL_SYMBOL_TYPE; t86654.value.external_symbol_type = t86652; t86655.tag = STRUCTURE_TYPE24753; t86655.value.structure_type24753 = t86653; t86648 = f26175(t86654, t86655); /* x205485 */ /* x205370 */ /* x205324 */ t86700 = q97; /* x205369 */ /* x205345 */ /* x205339 stalin.sc:28419:976892 */ /* x205338 stalin.sc:28420:976917 */ /* x205337 stalin.sc:28424:977027 */ t86717 = "!"; /* x205336 stalin.sc:28423:976995 */ /* x205335 stalin.sc:28423:977011 */ t86724 = a32375; /* x267946 stalin.sc:28423:976996 */ if (!((t86724.tag)==EXTERNAL_SYMBOL_TYPE)) {backtrace("stalin.sc", 28423, 976995); symbol_string_error();} t86716 = t86724.value.external_symbol_type; /* x205333 stalin.sc:28422:976981 */ t86715 = "-"; /* x205332 stalin.sc:28421:976949 */ /* x205331 stalin.sc:28421:976965 */ t86723 = p18444->a32372; /* x267947 stalin.sc:28421:976950 */ if (!((t86723.tag)==EXTERNAL_SYMBOL_TYPE)) {backtrace("stalin.sc", 28421, 976949); symbol_string_error();} t86714 = t86723.value.external_symbol_type; /* x205329 stalin.sc:28420:976932 */ t86713 = "SET-"; /* x205328 stalin.sc:28420:976918 */ t86722.tag = STRUCTURE_TYPE24753; t86722.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t86722.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28420, 976917); out_of_memory_error();} t86722.value.structure_type24753->s0.tag = STRING_TYPE; t86722.value.structure_type24753->s0.value.string_type = t86717; t86722.value.structure_type24753->s1.tag = NULL_TYPE; t86721.tag = STRUCTURE_TYPE24753; t86721.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t86721.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28420, 976917); out_of_memory_error();} t86721.value.structure_type24753->s0.tag = STRING_TYPE; t86721.value.structure_type24753->s0.value.string_type = t86716; t86721.value.structure_type24753->s1 = t86722; t86720.tag = STRUCTURE_TYPE24753; t86720.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t86720.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28420, 976917); out_of_memory_error();} t86720.value.structure_type24753->s0.tag = STRING_TYPE; t86720.value.structure_type24753->s0.value.string_type = t86715; t86720.value.structure_type24753->s1 = t86721; t86719.tag = STRUCTURE_TYPE24753; t86719.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t86719.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28420, 976917); out_of_memory_error();} t86719.value.structure_type24753->s0.tag = STRING_TYPE; t86719.value.structure_type24753->s0.value.string_type = t86714; t86719.value.structure_type24753->s1 = t86720; t86718 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t86718==NULL) {backtrace("stalin.sc", 28420, 976917); out_of_memory_error();} t86718->s0.tag = STRING_TYPE; t86718->s0.value.string_type = t86713; t86718->s1 = t86719; t86712 = f27556(t86718); /* x205327 stalin.sc:28419:976893 */ t86708 = f26395(t86712); /* x205344 */ t86709 = &t86725; /* x205326 */ t86710.tag = EXTERNAL_SYMBOL_TYPE; t86710.value.external_symbol_type = t86708; t86711.tag = STRUCTURE_TYPE24753; t86711.value.structure_type24753 = t86709; t86704 = f26175(t86710, t86711); /* x205368 */ /* x205366 */ /* x205360 */ /* x205349 */ t86734 = q77; /* x205359 */ /* x205351 */ t86738 = q100; /* x205358 */ /* x205353 stalin.sc:28426:977089 */ t86742 = p18444->a32372; /* x205357 */ /* x205355 stalin.sc:28426:977095 */ t86745 = a32374; /* x205356 */ /* x205354 */ t86746.tag = FIXNUM_TYPE; t86746.value.fixnum_type = t86745; t86747.tag = NULL_TYPE; t86743 = f26175(t86746, t86747); /* x205352 */ t86744.tag = STRUCTURE_TYPE24753; t86744.value.structure_type24753 = t86743; t86739 = f26175(t86742, t86744); /* x205350 */ t86740.tag = EXTERNAL_SYMBOL_TYPE; t86740.value.external_symbol_type = t86738; t86741.tag = STRUCTURE_TYPE24753; t86741.value.structure_type24753 = t86739; t86735 = f26175(t86740, t86741); /* x205348 */ t86736.tag = EXTERNAL_SYMBOL_TYPE; t86736.value.external_symbol_type = t86734; t86737.tag = STRUCTURE_TYPE24753; t86737.value.structure_type24753 = t86735; t86730 = f26175(t86736, t86737); /* x205365 */ t86731 = &t86748; /* x205347 */ t86732.tag = STRUCTURE_TYPE24753; t86732.value.structure_type24753 = t86730; t86733.tag = STRUCTURE_TYPE24753; t86733.value.structure_type24753 = t86731; t86727 = f26175(t86732, t86733); /* x205367 */ /* x205346 */ t86728.tag = STRUCTURE_TYPE24753; t86728.value.structure_type24753 = t86727; t86729.tag = NULL_TYPE; t86705 = f26175(t86728, t86729); /* x205325 */ t86706.tag = STRUCTURE_TYPE24753; t86706.value.structure_type24753 = t86704; t86707.tag = STRUCTURE_TYPE24753; t86707.value.structure_type24753 = t86705; t86701 = f26175(t86706, t86707); /* x205323 */ t86702.tag = EXTERNAL_SYMBOL_TYPE; t86702.value.external_symbol_type = t86700; t86703.tag = STRUCTURE_TYPE24753; t86703.value.structure_type24753 = t86701; t86696 = f26175(t86702, t86703); /* x205484 */ /* x205482 */ /* x205373 */ t86753 = q97; /* x205481 */ /* x205394 */ /* x205388 stalin.sc:28427:977119 */ /* x205387 stalin.sc:28428:977144 */ /* x205386 stalin.sc:28432:977260 */ t86770 = "!"; /* x205385 stalin.sc:28431:977228 */ /* x205384 stalin.sc:28431:977244 */ t86777 = a32375; /* x267944 stalin.sc:28431:977229 */ if (!((t86777.tag)==EXTERNAL_SYMBOL_TYPE)) {backtrace("stalin.sc", 28431, 977228); symbol_string_error();} t86769 = t86777.value.external_symbol_type; /* x205382 stalin.sc:28430:977214 */ t86768 = "-"; /* x205381 stalin.sc:28429:977182 */ /* x205380 stalin.sc:28429:977198 */ t86776 = p18444->a32372; /* x267945 stalin.sc:28429:977183 */ if (!((t86776.tag)==EXTERNAL_SYMBOL_TYPE)) {backtrace("stalin.sc", 28429, 977182); symbol_string_error();} t86767 = t86776.value.external_symbol_type; /* x205378 stalin.sc:28428:977159 */ t86766 = "LOCAL-SET-"; /* x205377 stalin.sc:28428:977145 */ t86775.tag = STRUCTURE_TYPE24753; t86775.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t86775.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28428, 977144); out_of_memory_error();} t86775.value.structure_type24753->s0.tag = STRING_TYPE; t86775.value.structure_type24753->s0.value.string_type = t86770; t86775.value.structure_type24753->s1.tag = NULL_TYPE; t86774.tag = STRUCTURE_TYPE24753; t86774.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t86774.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28428, 977144); out_of_memory_error();} t86774.value.structure_type24753->s0.tag = STRING_TYPE; t86774.value.structure_type24753->s0.value.string_type = t86769; t86774.value.structure_type24753->s1 = t86775; t86773.tag = STRUCTURE_TYPE24753; t86773.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t86773.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28428, 977144); out_of_memory_error();} t86773.value.structure_type24753->s0.tag = STRING_TYPE; t86773.value.structure_type24753->s0.value.string_type = t86768; t86773.value.structure_type24753->s1 = t86774; t86772.tag = STRUCTURE_TYPE24753; t86772.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t86772.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28428, 977144); out_of_memory_error();} t86772.value.structure_type24753->s0.tag = STRING_TYPE; t86772.value.structure_type24753->s0.value.string_type = t86767; t86772.value.structure_type24753->s1 = t86773; t86771 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t86771==NULL) {backtrace("stalin.sc", 28428, 977144); out_of_memory_error();} t86771->s0.tag = STRING_TYPE; t86771->s0.value.string_type = t86766; t86771->s1 = t86772; t86765 = f27556(t86771); /* x205376 stalin.sc:28427:977120 */ t86761 = f26395(t86765); /* x205393 */ t86762 = &t86778; /* x205375 */ t86763.tag = EXTERNAL_SYMBOL_TYPE; t86763.value.external_symbol_type = t86761; t86764.tag = STRUCTURE_TYPE24753; t86764.value.structure_type24753 = t86762; t86757 = f26175(t86763, t86764); /* x205480 */ /* x205456 */ /* x205397 */ t86784 = q242; /* x205455 */ /* x205425 */ /* x205423 */ /* x205401 */ t86795 = q502; /* x205422 */ /* x205420 */ /* x205416 */ /* x205405 */ t86806 = q77; /* x205415 */ /* x205407 */ t86810 = q99; /* x205414 */ /* x205409 stalin.sc:28434:977330 */ t86814 = p18444->a32372; /* x205413 */ /* x205411 stalin.sc:28434:977336 */ t86817 = a32374; /* x205412 */ /* x205410 */ t86818.tag = FIXNUM_TYPE; t86818.value.fixnum_type = t86817; t86819.tag = NULL_TYPE; t86815 = f26175(t86818, t86819); /* x205408 */ t86816.tag = STRUCTURE_TYPE24753; t86816.value.structure_type24753 = t86815; t86811 = f26175(t86814, t86816); /* x205406 */ t86812.tag = EXTERNAL_SYMBOL_TYPE; t86812.value.external_symbol_type = t86810; t86813.tag = STRUCTURE_TYPE24753; t86813.value.structure_type24753 = t86811; t86807 = f26175(t86812, t86813); /* x205404 */ t86808.tag = EXTERNAL_SYMBOL_TYPE; t86808.value.external_symbol_type = t86806; t86809.tag = STRUCTURE_TYPE24753; t86809.value.structure_type24753 = t86807; t86802 = f26175(t86808, t86809); /* x205419 */ t86803 = &t86820; /* x205403 */ t86804.tag = STRUCTURE_TYPE24753; t86804.value.structure_type24753 = t86802; t86805.tag = STRUCTURE_TYPE24753; t86805.value.structure_type24753 = t86803; t86799 = f26175(t86804, t86805); /* x205421 */ /* x205402 */ t86800.tag = STRUCTURE_TYPE24753; t86800.value.structure_type24753 = t86799; t86801.tag = NULL_TYPE; t86796 = f26175(t86800, t86801); /* x205400 */ t86797.tag = EXTERNAL_SYMBOL_TYPE; t86797.value.external_symbol_type = t86795; t86798.tag = STRUCTURE_TYPE24753; t86798.value.structure_type24753 = t86796; t86792 = f26175(t86797, t86798); /* x205424 */ /* x205399 */ t86793.tag = STRUCTURE_TYPE24753; t86793.value.structure_type24753 = t86792; t86794.tag = NULL_TYPE; t86788 = f26175(t86793, t86794); /* x205454 */ /* x205452 */ /* x205428 */ t86824 = q503; /* x205451 */ /* x205449 */ /* x205443 */ /* x205432 */ t86835 = q77; /* x205442 */ /* x205434 */ t86839 = q100; /* x205441 */ /* x205436 stalin.sc:28437:977436 */ t86843 = p18444->a32372; /* x205440 */ /* x205438 stalin.sc:28437:977442 */ t86846 = a32374; /* x205439 */ /* x205437 */ t86847.tag = FIXNUM_TYPE; t86847.value.fixnum_type = t86846; t86848.tag = NULL_TYPE; t86844 = f26175(t86847, t86848); /* x205435 */ t86845.tag = STRUCTURE_TYPE24753; t86845.value.structure_type24753 = t86844; t86840 = f26175(t86843, t86845); /* x205433 */ t86841.tag = EXTERNAL_SYMBOL_TYPE; t86841.value.external_symbol_type = t86839; t86842.tag = STRUCTURE_TYPE24753; t86842.value.structure_type24753 = t86840; t86836 = f26175(t86841, t86842); /* x205431 */ t86837.tag = EXTERNAL_SYMBOL_TYPE; t86837.value.external_symbol_type = t86835; t86838.tag = STRUCTURE_TYPE24753; t86838.value.structure_type24753 = t86836; t86831 = f26175(t86837, t86838); /* x205448 */ t86832 = &t86849; /* x205430 */ t86833.tag = STRUCTURE_TYPE24753; t86833.value.structure_type24753 = t86831; t86834.tag = STRUCTURE_TYPE24753; t86834.value.structure_type24753 = t86832; t86828 = f26175(t86833, t86834); /* x205450 */ /* x205429 */ t86829.tag = STRUCTURE_TYPE24753; t86829.value.structure_type24753 = t86828; t86830.tag = NULL_TYPE; t86825 = f26175(t86829, t86830); /* x205427 */ t86826.tag = EXTERNAL_SYMBOL_TYPE; t86826.value.external_symbol_type = t86824; t86827.tag = STRUCTURE_TYPE24753; t86827.value.structure_type24753 = t86825; t86821 = f26175(t86826, t86827); /* x205453 */ /* x205426 */ t86822.tag = STRUCTURE_TYPE24753; t86822.value.structure_type24753 = t86821; t86823.tag = NULL_TYPE; t86789 = f26175(t86822, t86823); /* x205398 */ t86790.tag = STRUCTURE_TYPE24753; t86790.value.structure_type24753 = t86788; t86791.tag = STRUCTURE_TYPE24753; t86791.value.structure_type24753 = t86789; t86785 = f26175(t86790, t86791); /* x205396 */ t86786.tag = EXTERNAL_SYMBOL_TYPE; t86786.value.external_symbol_type = t86784; t86787.tag = STRUCTURE_TYPE24753; t86787.value.structure_type24753 = t86785; t86780 = f26175(t86786, t86787); /* x205479 */ /* x205477 */ /* x205471 */ /* x205460 */ t86858 = q77; /* x205470 */ /* x205462 */ t86862 = q100; /* x205469 */ /* x205464 stalin.sc:28438:977496 */ t86866 = p18444->a32372; /* x205468 */ /* x205466 stalin.sc:28438:977502 */ t86869 = a32374; /* x205467 */ /* x205465 */ t86870.tag = FIXNUM_TYPE; t86870.value.fixnum_type = t86869; t86871.tag = NULL_TYPE; t86867 = f26175(t86870, t86871); /* x205463 */ t86868.tag = STRUCTURE_TYPE24753; t86868.value.structure_type24753 = t86867; t86863 = f26175(t86866, t86868); /* x205461 */ t86864.tag = EXTERNAL_SYMBOL_TYPE; t86864.value.external_symbol_type = t86862; t86865.tag = STRUCTURE_TYPE24753; t86865.value.structure_type24753 = t86863; t86859 = f26175(t86864, t86865); /* x205459 */ t86860.tag = EXTERNAL_SYMBOL_TYPE; t86860.value.external_symbol_type = t86858; t86861.tag = STRUCTURE_TYPE24753; t86861.value.structure_type24753 = t86859; t86854 = f26175(t86860, t86861); /* x205476 */ t86855 = &t86872; /* x205458 */ t86856.tag = STRUCTURE_TYPE24753; t86856.value.structure_type24753 = t86854; t86857.tag = STRUCTURE_TYPE24753; t86857.value.structure_type24753 = t86855; t86851 = f26175(t86856, t86857); /* x205478 */ /* x205457 */ t86852.tag = STRUCTURE_TYPE24753; t86852.value.structure_type24753 = t86851; t86853.tag = NULL_TYPE; t86781 = f26175(t86852, t86853); /* x205395 */ t86782.tag = STRUCTURE_TYPE24753; t86782.value.structure_type24753 = t86780; t86783.tag = STRUCTURE_TYPE24753; t86783.value.structure_type24753 = t86781; t86758 = f26175(t86782, t86783); /* x205374 */ t86759.tag = STRUCTURE_TYPE24753; t86759.value.structure_type24753 = t86757; t86760.tag = STRUCTURE_TYPE24753; t86760.value.structure_type24753 = t86758; t86754 = f26175(t86759, t86760); /* x205372 */ t86755.tag = EXTERNAL_SYMBOL_TYPE; t86755.value.external_symbol_type = t86753; t86756.tag = STRUCTURE_TYPE24753; t86756.value.structure_type24753 = t86754; t86750 = f26175(t86755, t86756); /* x205483 */ /* x205371 */ t86751.tag = STRUCTURE_TYPE24753; t86751.value.structure_type24753 = t86750; t86752.tag = NULL_TYPE; t86697 = f26175(t86751, t86752); /* x205322 */ t86698.tag = STRUCTURE_TYPE24753; t86698.value.structure_type24753 = t86696; t86699.tag = STRUCTURE_TYPE24753; t86699.value.structure_type24753 = t86697; t86649 = f26175(t86698, t86699); /* x205279 */ t86650.tag = STRUCTURE_TYPE24753; t86650.value.structure_type24753 = t86648; t86651.tag = STRUCTURE_TYPE24753; t86651.value.structure_type24753 = t86649; t86644 = f26175(t86650, t86651); /* x205277 */ t86645.tag = EXTERNAL_SYMBOL_TYPE; t86645.value.external_symbol_type = t86643; t86646.tag = STRUCTURE_TYPE24753; t86646.value.structure_type24753 = t86644; t86647 = f26175(t86645, t86646); t86617.tag = STRUCTURE_TYPE24753; t86617.value.structure_type24753 = t86647;} /* x15046 QobiScheme.sc:402:12069 */ t86618 = a14808; /* x270931 QobiScheme.sc:402:12048 */ t86612 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t86612==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 402, 12047); out_of_memory_error();} t86612->s0 = t86617; /* MOVE: branching squeezed to general */ if (t86618>=((struct structure_type24753 *)VALUE_OFFSET)) {t86612->s1.tag = STRUCTURE_TYPE24753; t86612->s1.value.structure_type24753 = t86618;} else t86612->s1.tag = (unsigned)t86618; /* x15031 QobiScheme.sc:402:12025 */ a14806 = t86610; a14807 = t86611; a14808 = t86612; goto h1147;} /* [inside FOR-EACH-VECTOR 1143] */ struct w49 f1143(struct p1142 *p1143, struct w49 a14801) {struct w49 t86881; int t86882; /* x15011 QobiScheme.sc:392:11813 */ /* x15009 QobiScheme.sc:392:11825 */ t86881 = a14801; /* x15010 QobiScheme.sc:392:11827 */ t86882 = p1143->a14800; /* x270935 QobiScheme.sc:392:11814 */ if ((t86881.tag)==HEADED_VECTOR_TYPE27896) {if ((t86882<0)||(t86882>=(t86881.value.headed_vector_type27896->length))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 392, 11813); vector_ref3_error();} return (t86881.value.headed_vector_type27896->element)[t86882];} backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 392, 11813); vector_ref1_error();} /* FOR-EACH-VECTOR[1141] */ void f1141(unsigned a14797, struct w49 a14798) {struct p1141 *t86883; int t86884; unsigned t86885; struct w49 t86886; struct p1141 *e1141; e1141 = (struct p1141 *)alloca(sizeof(struct p1141)); if (e1141==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e1141->a14797 = a14797; e1141->a14798 = a14798; /* x15020 QobiScheme.sc:390:11741 */ /* x15016 QobiScheme.sc:391:11755 */ t86883 = e1141; /* x15019 QobiScheme.sc:393:11842 */ /* x15018 QobiScheme.sc:393:11857 */ t86886 = e1141->a14798; /* x270934 QobiScheme.sc:393:11843 */ if (!((t86886.tag)==HEADED_VECTOR_TYPE27896)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 393, 11842); vector_length_error();} t86884 = t86886.value.headed_vector_type27896->length; /* x15000 QobiScheme.sc:390:11742 */ t86885 = ((unsigned)t86883)+1; f1120(t86885, t86884); return;} /* FOR-EACH-N[1120] */ void f1120(unsigned a14780, int a14781) {int a14784; /* I */ int a14800; /* I */ int a14820; /* I */ struct w49 a22423; /* X */ struct w49 a22459; /* X1 */ struct w49 a22460; /* X */ struct w49 a23255; /* X1 */ struct w49 a23537; /* X1 */ int a27073; /* I */ int a32839; /* I */ char a32841; /* C */ char *a32845; /* v */ struct w49 a39526; /* S */ struct w49 a39813; /* S */ int t86887; int t86888; int t86889; int t86890; int t86891; int t86892; unsigned t86893; int t86894; char t86895; FILE *t86896; char t86897; struct structure_type24753 *t86898; struct headed_vector_type27896 *t86899; int t86900; struct w49 t86901; unsigned t86902; struct w49 t86903; struct structure_type24753 *t86904; struct w49 t86905; struct w49 t86906; struct w49 t86907; struct w49 t86908; struct w49 t86909; struct structure_type24753 *t86910; struct w49 t86911; struct w49 t86912; struct structure_type27698 *t86913; struct w49 t86914; struct structure_type24753 *t86915; struct w30215 t86916; struct w49 t86917; struct structure_type24753 *t86918; struct structure_type27698 *t86919; struct w49 t86920; int t86921; struct p1157 *t86922; struct w36270 t86923; struct w49 t86924; struct structure_type24753 *t86925; unsigned t86926; struct w49 t86927; struct structure_type24753 *t86928; struct w49 t86929; struct w49 t86930; struct w49 t86931; struct w49 t86932; struct w49 t86933; struct w49 t86934; struct w49 t86935; struct w49 t86936; char *t86937; struct w49 t86938; struct w49 t86939; char *t86940; struct w49 t86941; struct w49 t86942; struct w49 t86943; struct w49 t86944; struct structure_type27698 *t86945; struct w49 t86946; struct w49 t86947; int t86948; struct p1142 *t86949; struct w36270 t86950; struct w49 t86951; struct structure_type24753 *t86952; char t86953; char t86954; FILE *t86955; char t86956; struct structure_type24753 *t86957; char *t86958; char *t86959; char *t86960; struct w49 t86961; struct w49 t86962; char *t86963; char *t86964; struct w49 t86965; struct w49 t86966; char *t86967; char *t86968; struct w49 t86969; struct w49 t86970; char t86971; char t86972; struct w49 t86973; char t86974; char t86975; char t86976; struct w49 t86977; char t86978; char t86979; char t86980; struct w49 t86981; char t86982; char t86983; char t86984; struct w49 t86985; char t86986; char t86987; char t86988; struct w49 t86989; char t86990; char t86991; char t86992; struct w49 t86993; char t86994; char t86995; char t86996; struct w49 t86997; char t86998; char t86999; char t87000; struct w49 t87001; char t87002; int t87003; int t87004; int t87005; int t87006; char t87007; char t87008; struct w49 t87009; char t87010; struct w49 t87011; int t87012; struct w49 t87013; struct structure_type27501 *t87014; struct w49 t87015; struct structure_type27501 *t87016; struct w49 t87017; struct structure_type24753 *t87018; struct w49 t87019; struct structure_type24753 *t87020; char *t87021; struct w49 t87022; struct w49 t87023; struct structure_type24753 *t87024; char *t87025; struct w49 t87026; struct w61020 t87027; int t87028; struct w49 t87029; struct w49 t87030; int t87031; struct w49 t87032; struct w49 t87033; struct p1142 *e1142; struct p1157 *e1157; struct p1141 *p1142; struct p1155 *p1157; struct p9146 *p9159; struct p9209 *p9211; struct p9176 *p9212; struct p10316 *p10334; struct p15969 *p15971; struct p19147 *p19158; /* x14938 QobiScheme.sc:381:11439 */ /* x14937 QobiScheme.sc:381:11453 */ t86887 = 0; /* x14936 */ /* x14935 */ /* x14934 */ /* x14933 */ /* x14932 */ /* x14931 */ /* x14930 */ /* x14909 */ /* x14908 QobiScheme.sc:381:11444 */ a14784 = t86887; h1123: /* x14929 QobiScheme.sc:381:11457 */ /* x14913 QobiScheme.sc:381:11463 */ /* x14911 QobiScheme.sc:381:11466 */ t86888 = a14784; /* x14912 QobiScheme.sc:381:11468 */ t86889 = a14781; /* x270939 QobiScheme.sc:381:11464 */ if (!(t86888region; GC_free(region);} region_size19154 = REGION_SIZE19154; fp19154 = &((region19154->data)[0]); ALIGN(fp19154); /* x224313 stalin.sc:31089:1070868 */ /* x224312 stalin.sc:31089:1070888 */ t86896 = a32822; /* x224311 stalin.sc:31089:1070880 */ t86895 = ' '; /* x224310 stalin.sc:31089:1070869 */ t86897 = t86895; if ((fp19154+sizeof(struct structure_type24753))>(&((region19154->data)[region_size19154]))) {struct region19154 *region; unsigned region_size = REGION_SIZE19154; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region19154 *)GC_malloc_uncollectable(sizeof(struct region19154)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 31089, 1070868); out_of_memory_error();} region->region = region19154; region_size19154 = region_size; region19154 = region; fp19154 = &((region->data)[0]); ALIGN(fp19154);} t86898 = (struct structure_type24753 *)fp19154; fp19154 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t86898->s0.tag = OUTPUT_PORT_TYPE; t86898->s0.value.output_port_type = t86896; t86898->s1.tag = NULL_TYPE; f28720(t86897, t86898);} else switch (t86893&3) {case 3: p1157 = (struct p1155 *)(t86893-3); a14820 = t86894; e1157 = (struct p1157 *)alloca(sizeof(struct p1157)); if (e1157==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 413, 12381); out_of_memory_error();} e1157->a14820 = a14820; /* x15118 QobiScheme.sc:414:12397 */ /* x15101 QobiScheme.sc:415:12415 */ t86899 = p1157->a14818; /* x15102 QobiScheme.sc:415:12417 */ t86900 = e1157->a14820; /* x15117 QobiScheme.sc:416:12424 */ /* x15104 QobiScheme.sc:416:12431 */ t86902 = p1157->p1154->a14815; /* x15108 QobiScheme.sc:416:12433 */ /* x15106 QobiScheme.sc:416:12445 */ t86920 = p1157->p1154->a14816; /* x15107 QobiScheme.sc:416:12447 */ t86921 = e1157->a14820; /* x270925 QobiScheme.sc:416:12434 */ if (!((t86920.tag)==HEADED_VECTOR_TYPE27896)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 416, 12433); vector_ref1_error();} if ((t86921<0)||(t86921>=(t86920.value.headed_vector_type27896->length))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 416, 12433); vector_ref3_error();} t86903 = (t86920.value.headed_vector_type27896->element)[t86921]; /* x15116 QobiScheme.sc:416:12450 */ /* x15115 QobiScheme.sc:416:12485 */ /* x15114 QobiScheme.sc:416:12455 */ t86922 = e1157; /* x15109 QobiScheme.sc:416:12451 */ t86923.tag = NATIVE_PROCEDURE_TYPE14133; t86923.value.native_procedure_type14133 = t86922; t86924.tag = NULL_TYPE; t86925 = (struct structure_type24753 *)NULL_TYPE; t86904 = f27731(t86923, t86924, t86925); /* x270926 QobiScheme.sc:416:12425 */ switch (t86902) {case NATIVE_PROCEDURE_TYPE7145: t86905 = t86903; if (!(((unsigned)t86904)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 416, 12424); call_error();} t86901 = f9788(t86905); break; case NATIVE_PROCEDURE_TYPE7146: t86906 = t86903; if (!(((unsigned)t86904)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 416, 12424); call_error();} t86901 = f9774(t86906); break; case NATIVE_PROCEDURE_TYPE15306: t86907 = t86903; if (!(((unsigned)t86904)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 416, 12424); call_error();} t86901 = f13143(t86907); break; case NATIVE_PROCEDURE_TYPE17971: t86908 = t86903; if (!(((unsigned)t86904)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 416, 12424); call_error();} t86901 = f13186(t86908); break; case NATIVE_PROCEDURE_TYPE24314: a23537 = t86903; if (!(((unsigned)t86904)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 416, 12424); call_error();} /* x98248 stalin.sc:9290:318741 */ /* x98247 stalin.sc:9290:318750 */ /* x98246 stalin.sc:9290:318771 */ t86911 = a23537; /* x98245 stalin.sc:9290:318751 */ t86909 = f5567(t86911); /* x98244 stalin.sc:9290:318742 */ t86910 = f8162(t86909); /* MOVE: branching squeezed to general */ if (t86910>=((struct structure_type24753 *)VALUE_OFFSET)) {t86901.tag = STRUCTURE_TYPE24753; t86901.value.structure_type24753 = t86910;} else t86901.tag = (unsigned)t86910; break; default: switch (t86902&3) {case 2: t86912 = t86903; if (!(((unsigned)t86904)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 416, 12424); call_error();} t86913 = f10026(((struct p9977 *)(t86902-2)), t86912); t86901.tag = STRUCTURE_TYPE27698; t86901.value.structure_type27698 = t86913; break; case 0: p9159 = (struct p9146 *)t86902; a22423 = t86903; if (!(((unsigned)t86904)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 416, 12424); call_error();} /* x77801 stalin.sc:5147:175850 */ /* x77799 stalin.sc:5147:175856 */ t86914 = a22423; /* x77800 stalin.sc:5147:175858 */ t86915 = p9159->a22421; /* x77798 stalin.sc:5147:175851 */ t86916 = f9146(t86914, t86915); t86901 = *((struct w49 *)(&t86916)); break; default: p9212 = (struct p9176 *)(t86902-1); a22460 = t86903; if (!(((unsigned)t86904)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 416, 12424); call_error();} /* x78295 stalin.sc:5220:178471 */ /* x78293 stalin.sc:5220:178477 */ t86917 = a22460; /* x78294 stalin.sc:5220:178479 */ t86918 = p9212->a22432; /* x78292 stalin.sc:5220:178472 */ t86919 = f9176(t86917, t86918); t86901.tag = STRUCTURE_TYPE27698; t86901.value.structure_type27698 = t86919;}} /* x270927 QobiScheme.sc:414:12398 */ if ((t86900<0)||(t86900>=(t86899->length))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 414, 12397); vector_set3_error();} (t86899->element)[t86900] = t86901; break; case 1: p1142 = (struct p1141 *)(t86893-1); a14800 = t86894; e1142 = (struct p1142 *)alloca(sizeof(struct p1142)); if (e1142==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 391, 11755); out_of_memory_error();} e1142->a14800 = a14800; /* x15015 QobiScheme.sc:392:11770 */ /* x15002 QobiScheme.sc:392:11777 */ t86926 = p1142->a14797; /* x15006 QobiScheme.sc:392:11779 */ /* x15004 QobiScheme.sc:392:11791 */ t86947 = p1142->a14798; /* x15005 QobiScheme.sc:392:11793 */ t86948 = e1142->a14800; /* x270936 QobiScheme.sc:392:11780 */ if (!((t86947.tag)==HEADED_VECTOR_TYPE27896)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 392, 11779); vector_ref1_error();} if ((t86948<0)||(t86948>=(t86947.value.headed_vector_type27896->length))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 392, 11779); vector_ref3_error();} t86927 = (t86947.value.headed_vector_type27896->element)[t86948]; /* x15014 QobiScheme.sc:392:11796 */ /* x15013 QobiScheme.sc:392:11831 */ /* x15012 QobiScheme.sc:392:11801 */ t86949 = e1142; /* x15007 QobiScheme.sc:392:11797 */ t86950.tag = NATIVE_PROCEDURE_TYPE14802; t86950.value.native_procedure_type14802 = t86949; t86951.tag = NULL_TYPE; t86952 = (struct structure_type24753 *)NULL_TYPE; t86928 = f27731(t86950, t86951, t86952); /* x270937 QobiScheme.sc:392:11771 */ switch (t86926) {case NATIVE_PROCEDURE_TYPE7110: t86929 = t86927; if (!(((unsigned)t86928)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 392, 11770); call_error();} f10634(t86929); break; case NATIVE_PROCEDURE_TYPE14797: t86930 = t86927; if (!(((unsigned)t86928)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 392, 11770); call_error();} f9896(t86930); break; case NATIVE_PROCEDURE_TYPE17077: t86931 = t86927; if (!(((unsigned)t86928)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 392, 11770); call_error();} f10255(t86931); break; case NATIVE_PROCEDURE_TYPE17212: t86932 = t86927; if (!(((unsigned)t86928)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 392, 11770); call_error();} f10207(t86932); break; case NATIVE_PROCEDURE_TYPE17297: t86933 = t86927; if (!(((unsigned)t86928)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 392, 11770); call_error();} f10070(t86933); break; case NATIVE_PROCEDURE_TYPE18028: t86934 = t86927; if (!(((unsigned)t86928)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 392, 11770); call_error();} f10159(t86934); break; default: switch (t86926&3) {case 2: p10334 = (struct p10316 *)(t86926-2); a23255 = t86927; if (!(((unsigned)t86928)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 392, 11770); call_error();} /* x92592 */ /* x92587 stalin.sc:8099:276336 */ /* x92580 stalin.sc:8099:276344 */ /* x92577 stalin.sc:8099:276349 */ /* x92576 stalin.sc:8099:276368 */ t86938 = a23255; /* x92575 stalin.sc:8099:276350 */ a39813 = t86938; /* x291921 */ /* x291920 */ t86939 = a39813; /* x291919 */ if (!((t86939.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARENT[5575] 34730]"); structure_ref_error();} t86936 = t86939.value.structure_type27698->s11; /* x92579 stalin.sc:8099:276372 */ /* x92578 stalin.sc:8099:276373 */ /* x277403 stalin.sc:323:8604 */ t86937 = q35; /* x269812 stalin.sc:8099:276345 */ if (!(((t86936.tag)==EXTERNAL_SYMBOL_TYPE)&&((t86936.value.external_symbol_type)==t86937))) goto l16514; /* x92582 */ /* x92581 */ goto l16515; l16514: /* x92586 */ /* x92585 */ /* x92584 stalin.sc:8099:276387 */ /* x92583 stalin.sc:8099:276388 */ /* x296869 QobiScheme.sc:166:5314 */ /* x296868 QobiScheme.sc:166:5321 */ t86940 = "This shouldn\'t happen"; /* x296867 QobiScheme.sc:166:5315 */ stalin_panic(t86940); l16515: /* x92591 stalin.sc:8100:276404 */ /* x92589 stalin.sc:8100:276428 */ t86941 = a23255; /* x92590 stalin.sc:8100:276431 */ t86942 = p10334->a23248; /* x92588 stalin.sc:8100:276405 */ f5576(t86941, t86942); /* x92573 */ /* x92572 stalin.sc:8101:276440 */ /* x92571 stalin.sc:8101:276446 */ t86935 = a23255; /* x92570 stalin.sc:8101:276441 */ f10316(t86935); break; case 0: t86943 = t86927; if (!(((unsigned)t86928)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 392, 11770); call_error();} f10411(((struct p10409 *)t86926), t86943); break; default: p9211 = (struct p9209 *)(t86926-1); a22459 = t86927; if (!(((unsigned)t86928)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 392, 11770); call_error();} /* x78280 stalin.sc:5223:178611 */ /* x78278 stalin.sc:5223:178635 */ t86944 = a22459; /* x78279 stalin.sc:5223:178638 */ t86945 = p9211->a22456; /* x78277 stalin.sc:5223:178612 */ t86946.tag = STRUCTURE_TYPE27698; t86946.value.structure_type27698 = t86945; f5576(t86944, t86946);}} break; case 2: p19158 = (struct p19147 *)(t86893-2); a32839 = t86894; /* x224345 stalin.sc:31095:1071006 */ /* x224344 stalin.sc:31095:1071021 */ /* x224342 stalin.sc:31095:1071033 */ t87011 = p19158->a32833; /* x224343 stalin.sc:31095:1071035 */ t87012 = a32839; /* x267635 stalin.sc:31095:1071022 */ if (!((t87011.tag)==STRING_TYPE)) {backtrace("stalin.sc", 31095, 1071021); string_ref1_error();} if ((t87012<0)||(t87012>=strlen(t87011.value.string_type))) {backtrace("stalin.sc", 31095, 1071021); string_ref3_error();} t86953 = (t87011.value.string_type)[t87012]; /* x224340 stalin.sc:31095:1071007 */ a32841 = t86953; /* x224561 */ /* x224553 stalin.sc:31065:1070062 */ /* x224552 stalin.sc:31065:1070068 */ t86958 = a32825; /* x224551 */ a32845 = t86958; /* x224550 */ /* x224435 */ /* x224433 */ t86959 = a32845; /* x224434 */ t86960 = q12; /* x224432 */ t86961.tag = EXTERNAL_SYMBOL_TYPE; t86961.value.external_symbol_type = t86959; t86962.tag = EXTERNAL_SYMBOL_TYPE; t86962.value.external_symbol_type = t86960; if (f26160(t86961, t86962)==FALSE_TYPE) goto l16517; /* x224481 */ /* x224480 */ /* x224479 stalin.sc:31067:1070095 */ /* x224439 stalin.sc:31067:1070102 */ /* x224438 stalin.sc:31067:1070112 */ t86988 = '\"'; /* x224437 stalin.sc:31067:1070110 */ t86987 = a32841; /* x224436 stalin.sc:31067:1070103 */ t86989.tag = ((unsigned)((unsigned char)t86987))<<2; t86990 = t86988; if (f27342(t86989, t86990)==FALSE_TYPE) goto l16544; /* x224443 */ /* x224442 */ /* x224441 stalin.sc:31067:1070117 */ /* x224440 stalin.sc:31067:1070129 */ a32825 = q161; goto l16545; l16544: /* x224478 */ /* x224447 stalin.sc:31068:1070146 */ /* x224446 stalin.sc:31068:1070156 */ t86992 = '\''; /* x224445 stalin.sc:31068:1070154 */ t86991 = a32841; /* x224444 stalin.sc:31068:1070147 */ t86993.tag = ((unsigned)((unsigned char)t86991))<<2; t86994 = t86992; if (f27342(t86993, t86994)==FALSE_TYPE) goto l16547; /* x224451 */ /* x224450 */ /* x224449 stalin.sc:31068:1070161 */ /* x224448 stalin.sc:31068:1070173 */ a32825 = q56; goto l16548; l16547: /* x224477 */ /* x224455 stalin.sc:31069:1070188 */ /* x224454 stalin.sc:31069:1070198 */ t86996 = '{'; /* x224453 stalin.sc:31069:1070196 */ t86995 = a32841; /* x224452 stalin.sc:31069:1070189 */ t86997.tag = ((unsigned)((unsigned char)t86995))<<2; t86998 = t86996; if (f27342(t86997, t86998)==FALSE_TYPE) goto l16550; /* x224462 */ /* x224461 */ /* x224460 stalin.sc:31069:1070203 */ /* x224459 stalin.sc:31069:1070216 */ /* x224457 stalin.sc:31069:1070219 */ t87005 = a32824; /* x224458 stalin.sc:31069:1070226 */ t87006 = 1; /* x267629 stalin.sc:31069:1070217 */ a32824 = t87005+t87006; goto l16551; l16550: /* x224476 */ /* x224466 stalin.sc:31070:1070238 */ /* x224465 stalin.sc:31070:1070248 */ t87000 = '}'; /* x224464 stalin.sc:31070:1070246 */ t86999 = a32841; /* x224463 stalin.sc:31070:1070239 */ t87001.tag = ((unsigned)((unsigned char)t86999))<<2; t87002 = t87000; if (f27342(t87001, t87002)==FALSE_TYPE) goto l16553; /* x224473 */ /* x224472 */ /* x224471 stalin.sc:31070:1070253 */ /* x224470 stalin.sc:31070:1070266 */ /* x224468 stalin.sc:31070:1070269 */ t87003 = a32824; /* x224469 stalin.sc:31070:1070276 */ t87004 = 1; /* x267628 stalin.sc:31070:1070267 */ a32824 = t87003-t87004; goto l16554; l16553: /* x224475 */ /* x224474 */ l16554: l16551: l16548: l16545: goto l16518; l16517: /* x224549 */ /* x224485 */ /* x224483 */ t86963 = a32845; /* x224484 */ t86964 = q161; /* x224482 */ t86965.tag = EXTERNAL_SYMBOL_TYPE; t86965.value.external_symbol_type = t86963; t86966.tag = EXTERNAL_SYMBOL_TYPE; t86966.value.external_symbol_type = t86964; if (f26160(t86965, t86966)==FALSE_TYPE) goto l16520; /* x224513 */ /* x224512 */ /* x224511 stalin.sc:31072:1070306 */ /* x224486 stalin.sc:31072:1070313 */ if (a32828==FALSE_TYPE) goto l16535; /* x224490 */ /* x224489 */ /* x224488 stalin.sc:31072:1070324 */ /* x224487 stalin.sc:31072:1070341 */ a32828 = FALSE_TYPE; goto l16536; l16535: /* x224510 */ /* x224494 stalin.sc:31073:1070353 */ /* x224493 stalin.sc:31073:1070363 */ t86980 = '\\'; /* x224492 stalin.sc:31073:1070361 */ t86979 = a32841; /* x224491 stalin.sc:31073:1070354 */ t86981.tag = ((unsigned)((unsigned char)t86979))<<2; t86982 = t86980; if (f27342(t86981, t86982)==FALSE_TYPE) goto l16538; /* x224498 */ /* x224497 */ /* x224496 stalin.sc:31073:1070368 */ /* x224495 stalin.sc:31073:1070385 */ a32828 = TRUE_TYPE; goto l16539; l16538: /* x224509 */ /* x224502 stalin.sc:31074:1070397 */ /* x224501 stalin.sc:31074:1070407 */ t86984 = '\"'; /* x224500 stalin.sc:31074:1070405 */ t86983 = a32841; /* x224499 stalin.sc:31074:1070398 */ t86985.tag = ((unsigned)((unsigned char)t86983))<<2; t86986 = t86984; if (f27342(t86985, t86986)==FALSE_TYPE) goto l16541; /* x224506 */ /* x224505 */ /* x224504 stalin.sc:31074:1070412 */ /* x224503 stalin.sc:31074:1070424 */ a32825 = q12; goto l16542; l16541: /* x224508 */ /* x224507 */ l16542: l16539: l16536: goto l16521; l16520: /* x224548 */ /* x224517 */ /* x224515 */ t86967 = a32845; /* x224516 */ t86968 = q56; /* x224514 */ t86969.tag = EXTERNAL_SYMBOL_TYPE; t86969.value.external_symbol_type = t86967; t86970.tag = EXTERNAL_SYMBOL_TYPE; t86970.value.external_symbol_type = t86968; if (f26160(t86969, t86970)==FALSE_TYPE) goto l16523; /* x224545 */ /* x224544 */ /* x224543 stalin.sc:31076:1070455 */ /* x224518 stalin.sc:31076:1070462 */ if (a32828==FALSE_TYPE) goto l16526; /* x224522 */ /* x224521 */ /* x224520 stalin.sc:31076:1070473 */ /* x224519 stalin.sc:31076:1070490 */ a32828 = FALSE_TYPE; goto l16527; l16526: /* x224542 */ /* x224526 stalin.sc:31077:1070502 */ /* x224525 stalin.sc:31077:1070512 */ t86972 = '\\'; /* x224524 stalin.sc:31077:1070510 */ t86971 = a32841; /* x224523 stalin.sc:31077:1070503 */ t86973.tag = ((unsigned)((unsigned char)t86971))<<2; t86974 = t86972; if (f27342(t86973, t86974)==FALSE_TYPE) goto l16529; /* x224530 */ /* x224529 */ /* x224528 stalin.sc:31077:1070517 */ /* x224527 stalin.sc:31077:1070534 */ a32828 = TRUE_TYPE; goto l16530; l16529: /* x224541 */ /* x224534 stalin.sc:31078:1070546 */ /* x224533 stalin.sc:31078:1070556 */ t86976 = '\''; /* x224532 stalin.sc:31078:1070554 */ t86975 = a32841; /* x224531 stalin.sc:31078:1070547 */ t86977.tag = ((unsigned)((unsigned char)t86975))<<2; t86978 = t86976; if (f27342(t86977, t86978)==FALSE_TYPE) goto l16532; /* x224538 */ /* x224537 */ /* x224536 stalin.sc:31078:1070561 */ /* x224535 stalin.sc:31078:1070573 */ a32825 = q12; goto l16533; l16532: /* x224540 */ /* x224539 */ l16533: l16530: l16527: goto l16524; l16523: /* x224547 */ /* x224546 */ l16524: l16521: l16518: /* x224555 stalin.sc:31079:1070589 */ /* x224554 stalin.sc:31079:1070604 */ a32827 = FALSE_TYPE; /* x224560 stalin.sc:31080:1070613 */ /* x224559 stalin.sc:31080:1070625 */ /* x224558 stalin.sc:31080:1070635 */ t87008 = '{'; /* x224557 stalin.sc:31080:1070633 */ t87007 = a32841; /* x224556 stalin.sc:31080:1070626 */ t87009.tag = ((unsigned)((unsigned char)t87007))<<2; t87010 = t87008; a32826 = f27342(t87009, t87010); /* x224431 */ while (region19168!=((struct region19168 *)(&initial_region19168))) {struct region19168 *region; region = region19168; region19168 = region19168->region; GC_free(region);} region_size19168 = REGION_SIZE19168; fp19168 = &((region19168->data)[0]); ALIGN(fp19168); /* x224430 stalin.sc:31081:1070646 */ /* x224429 stalin.sc:31081:1070660 */ t86955 = a32822; /* x224428 stalin.sc:31081:1070658 */ t86954 = a32841; /* x224427 stalin.sc:31081:1070647 */ t86956 = t86954; if ((fp19168+sizeof(struct structure_type24753))>(&((region19168->data)[region_size19168]))) {struct region19168 *region; unsigned region_size = REGION_SIZE19168; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region19168 *)GC_malloc_uncollectable(sizeof(struct region19168)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 31081, 1070646); out_of_memory_error();} region->region = region19168; region_size19168 = region_size; region19168 = region; fp19168 = &((region->data)[0]); ALIGN(fp19168);} t86957 = (struct structure_type24753 *)fp19168; fp19168 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t86957->s0.tag = OUTPUT_PORT_TYPE; t86957->s0.value.output_port_type = t86955; t86957->s1.tag = NULL_TYPE; f28720(t86956, t86957); break; default: p15971 = (struct p15969 *)t86893; a27073 = t86894; /* x149246 stalin.sc:20104:703460 */ /* x149245 stalin.sc:20105:703477 */ /* x149238 stalin.sc:20105:703486 */ /* x149228 stalin.sc:20106:703517 */ t87017 = p15971->a27067; /* x149237 stalin.sc:20106:703520 */ /* x149233 stalin.sc:20106:703533 */ /* x149231 stalin.sc:20106:703538 */ t87024 = p15971->a27068; /* x149232 stalin.sc:20106:703540 */ t87025 = "element"; /* x149230 stalin.sc:20106:703534 */ t87026.tag = STRUCTURE_TYPE24753; t87026.value.structure_type24753 = t87024; t87027.tag = STRING_TYPE; t87027.value.string_type = t87025; t87020 = f13585(t87026, t87027); /* x149236 stalin.sc:20106:703551 */ /* x149235 stalin.sc:20106:703561 */ t87028 = a27073; /* x149234 stalin.sc:20106:703552 */ t87029.tag = FIXNUM_TYPE; t87029.value.fixnum_type = t87028; t87021 = f13530(t87029); /* x149229 stalin.sc:20106:703521 */ t87022.tag = STRUCTURE_TYPE24753; t87022.value.structure_type24753 = t87020; t87023.tag = STRING_TYPE; t87023.value.string_type = t87021; t87018 = f13540(t87022, t87023); /* x149227 stalin.sc:20105:703487 */ t87019.tag = STRUCTURE_TYPE24753; t87019.value.structure_type24753 = t87018; t87014 = f7025(t87017, t87019); /* x149244 stalin.sc:20107:703572 */ /* x149242 stalin.sc:20107:703584 */ /* x149241 stalin.sc:20107:703605 */ t87032 = p15971->p15922->a27041; /* x149240 stalin.sc:20107:703585 */ a39526 = t87032; /* x290773 */ /* x290772 */ t87033 = a39526; /* x290771 */ if (!((t87033.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CONSTANT[5583] 34443]"); structure_ref_error();} t87030 = t87033.value.structure_type27698->s12; /* x149243 stalin.sc:20107:703608 */ t87031 = a27073; /* x268416 stalin.sc:20107:703573 */ if (!((t87030.tag)==HEADED_VECTOR_TYPE27896)) {backtrace("stalin.sc", 20107, 703572); vector_ref1_error();} if ((t87031<0)||(t87031>=(t87030.value.headed_vector_type27896->length))) {backtrace("stalin.sc", 20107, 703572); vector_ref3_error();} t87015 = (t87030.value.headed_vector_type27896->element)[t87031]; /* x149226 stalin.sc:20105:703478 */ t87016 = t87014; t87013 = f15922(t87016, t87015); /* x149225 stalin.sc:20104:703461 */ f13463(t87013);} /* x14920 */ /* x14919 QobiScheme.sc:381:11477 */ /* x14918 QobiScheme.sc:381:11483 */ /* x14916 QobiScheme.sc:381:11486 */ t86891 = a14784; /* x14917 QobiScheme.sc:381:11488 */ t86892 = 1; /* x270938 QobiScheme.sc:381:11484 */ t86890 = t86891+t86892; /* x14914 QobiScheme.sc:381:11478 */ a14784 = t86890; goto h1123; l16512: /* x14928 QobiScheme.sc:381:11457 */ /* x14927 QobiScheme.sc:381:11457 */ return;} /* ONE[1080] */ unsigned f1080(struct w228118 a14740, struct w227393 a14741) {struct w49 a14745; /* L */ struct structure_type24753 *a14746; /* &REST */ struct w49 a14749; /* L */ struct structure_type24753 *a14750; /* &REST */ struct w49 a35554; /* PAIR */ struct w16638 a35555; /* PAIR */ struct w16638 a35556; /* PAIR */ struct w49 a36122; /* PAIR */ struct w16638 a36140; /* PAIR */ struct w227393 t87034; struct w49 t87035; struct w228118 t87036; struct w49 t87037; struct structure_type24753 *t87038; struct w49 t87039; struct w49 t87040; struct w49 t87041; struct w49 t87042; struct w49 t87043; struct w49 t87044; struct w49 t87045; struct w49 t87046; struct w49 t87047; struct w49 t87048; struct w49 t87049; struct w49 t87050; struct w49 t87051; struct w49 t87052; struct w49 t87053; struct w49 t87054; struct w16638 t87055; struct w16638 t87056; struct structure_type24753 *t87057; struct w36270 t87058; struct w49 t87059; struct structure_type24753 *t87060; struct w49 t87061; struct structure_type24753 *t87062; struct w16638 t87063; struct w16638 t87064; struct structure_type24753 *t87065; struct w36270 t87066; struct w49 t87067; struct structure_type24753 *t87068; struct w49 t87069; struct structure_type24753 *t87070; struct w49 t87071; struct w228118 t87072; struct w49 t87073; struct structure_type24753 *t87074; struct w49 t87075; struct w49 t87076; struct w49 t87077; struct w49 t87078; struct w49 t87079; struct w49 t87080; struct w49 t87081; struct w49 t87082; struct w49 t87083; struct w49 t87084; struct w49 t87085; struct w49 t87086; struct w49 t87087; struct w49 t87088; struct w49 t87089; struct w49 t87090; struct w49 t87091; struct w49 t87092; struct structure_type24753 *t87093; struct w36270 t87094; struct w49 t87095; struct structure_type24753 *t87096; struct w49 t87097; struct structure_type24753 *t87098; struct w49 t87099; struct w49 t87100; struct structure_type24753 *t87101; struct w36270 t87102; struct w49 t87103; struct structure_type24753 *t87104; struct w16638 t87105; struct w16638 t87106; struct structure_type24753 *t87107; struct w36270 t87108; struct w49 t87109; struct structure_type24753 *t87110; /* x14708 QobiScheme.sc:345:10430 */ /* x14706 QobiScheme.sc:345:10444 */ t87034 = a14741; /* x14707 QobiScheme.sc:345:10454 */ /* x14705 */ /* x14704 */ /* x14703 */ /* x14702 */ /* x14701 */ /* x14700 */ /* x14699 */ /* x14623 */ /* x14622 QobiScheme.sc:345:10435 */ a14745 = *((struct w49 *)(&t87034)); a14746 = (struct structure_type24753 *)NULL_TYPE; h1083: /* x14698 QobiScheme.sc:346:10464 */ /* x14698 QobiScheme.sc:346:10464 */ /* x14628 QobiScheme.sc:346:10469 */ /* x14627 QobiScheme.sc:346:10474 */ /* x14626 QobiScheme.sc:346:10481 */ t87035 = a14745; /* x270944 QobiScheme.sc:346:10475 */ if ((t87035.tag)==NULL_TYPE) goto l16556; /* x14696 */ /* x14638 QobiScheme.sc:347:10496 */ /* x14630 QobiScheme.sc:347:10503 */ t87036 = a14740; /* x14633 QobiScheme.sc:347:10505 */ /* x14632 QobiScheme.sc:347:10512 */ t87055 = *((struct w16638 *)(&a14745)); /* x14631 QobiScheme.sc:347:10506 */ a36140 = t87055; /* x275917 */ /* x275916 */ t87056 = a36140; /* x275915 */ if (!((t87056.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30289]"); structure_ref_error();} t87037 = t87056.value.structure_type24753->s0; /* x14637 QobiScheme.sc:347:10515 */ /* x14636 QobiScheme.sc:347:10526 */ t87057 = a14746; /* x14635 QobiScheme.sc:347:10520 */ /* x14634 QobiScheme.sc:347:10516 */ t87058.tag = NATIVE_PROCEDURE_TYPE494; /* MOVE: branching squeezed to general */ if (t87057>=((struct structure_type24753 *)VALUE_OFFSET)) {t87059.tag = STRUCTURE_TYPE24753; t87059.value.structure_type24753 = t87057;} else t87059.tag = (unsigned)t87057; t87060 = (struct structure_type24753 *)NULL_TYPE; t87038 = f27731(t87058, t87059, t87060); /* x270943 QobiScheme.sc:347:10497 */ switch (t87036.tag) {case NATIVE_PROCEDURE_TYPE7030: t87039 = t87037; if (!(((unsigned)t87038)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 347, 10496); call_error();} if (f13055(t87039)==FALSE_TYPE) goto l16560; break; case NATIVE_PROCEDURE_TYPE7222: t87040 = t87037; if (!(((unsigned)t87038)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 347, 10496); call_error();} if (f8918(t87040)==FALSE_TYPE) goto l16560; break; case NATIVE_PROCEDURE_TYPE15656: t87041 = t87037; if (!(((unsigned)t87038)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 347, 10496); call_error();} if (f13273(t87041)==FALSE_TYPE) goto l16560; break; case NATIVE_PROCEDURE_TYPE15662: t87042 = t87037; if (!(((unsigned)t87038)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 347, 10496); call_error();} if (f13272(t87042)==FALSE_TYPE) goto l16560; break; case NATIVE_PROCEDURE_TYPE15664: t87043 = t87037; if (!(((unsigned)t87038)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 347, 10496); call_error();} if (f13270(t87043)==FALSE_TYPE) goto l16560; break; case NATIVE_PROCEDURE_TYPE15666: t87044 = t87037; if (!(((unsigned)t87038)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 347, 10496); call_error();} if (f13268(t87044)==FALSE_TYPE) goto l16560; break; case NATIVE_PROCEDURE_TYPE15668: t87045 = t87037; if (!(((unsigned)t87038)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 347, 10496); call_error();} if (f13267(t87045)==FALSE_TYPE) goto l16560; break; case NATIVE_PROCEDURE_TYPE16320: t87046 = t87037; if (!(((unsigned)t87038)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 347, 10496); call_error();} if (f13816(t87046)==FALSE_TYPE) goto l16560; break; case NATIVE_PROCEDURE_TYPE17071: t87047 = t87037; if (!(((unsigned)t87038)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 347, 10496); call_error();} if (f10308((t87036.value.native_procedure_type17071), t87047)==FALSE_TYPE) goto l16560; break; case NATIVE_PROCEDURE_TYPE17531: t87048 = t87037; if (!(((unsigned)t87038)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 347, 10496); call_error();} if (f11023((t87036.value.native_procedure_type17531), t87048)==FALSE_TYPE) goto l16560; break; case NATIVE_PROCEDURE_TYPE18237: t87049 = t87037; if (!(((unsigned)t87038)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 347, 10496); call_error();} if (f12781((t87036.value.native_procedure_type18237), t87049)==FALSE_TYPE) goto l16560; break; case NATIVE_PROCEDURE_TYPE18252: t87050 = t87037; if (!(((unsigned)t87038)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 347, 10496); call_error();} if (f12748((t87036.value.native_procedure_type18252), t87050)==FALSE_TYPE) goto l16560; break; case NATIVE_PROCEDURE_TYPE18254: t87051 = t87037; if (!(((unsigned)t87038)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 347, 10496); call_error();} if (f12736((t87036.value.native_procedure_type18254), t87051)==FALSE_TYPE) goto l16560; break; case NATIVE_PROCEDURE_TYPE21686: t87052 = t87037; if (!(((unsigned)t87038)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 347, 10496); call_error();} if (f15198((t87036.value.native_procedure_type21686), t87052)==FALSE_TYPE) goto l16560; break; case NATIVE_PROCEDURE_TYPE22701: t87053 = t87037; if (!(((unsigned)t87038)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 347, 10496); call_error();} if (f12760((t87036.value.native_procedure_type22701), t87053)==FALSE_TYPE) goto l16560; break; default: t87054 = t87037; if (!(((unsigned)t87038)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 347, 10496); call_error();} if (f12771((t87036.value.native_procedure_type23264), t87054)==FALSE_TYPE) goto l16560;} /* x14686 QobiScheme.sc:348:10538 */ /* x14681 QobiScheme.sc:348:10552 */ /* x14680 QobiScheme.sc:348:10558 */ t87105 = *((struct w16638 *)(&a14745)); /* x14679 QobiScheme.sc:348:10553 */ a35555 = t87105; /* x273577 */ /* x273576 */ t87106 = a35555; /* x273575 */ if (!((t87106.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29704]"); structure_ref_error();} t87069 = t87106.value.structure_type24753->s1; /* x14685 QobiScheme.sc:348:10569 */ /* x14684 QobiScheme.sc:348:10579 */ t87107 = a14746; /* x14683 QobiScheme.sc:348:10574 */ /* x14682 QobiScheme.sc:348:10570 */ t87108.tag = NATIVE_PROCEDURE_TYPE493; /* MOVE: branching squeezed to general */ if (t87107>=((struct structure_type24753 *)VALUE_OFFSET)) {t87109.tag = STRUCTURE_TYPE24753; t87109.value.structure_type24753 = t87107;} else t87109.tag = (unsigned)t87107; t87110 = (struct structure_type24753 *)NULL_TYPE; t87070 = f27731(t87108, t87109, t87110); /* x14678 */ /* x14677 */ /* x14676 */ /* x14675 */ /* x14674 */ /* x14673 */ /* x14672 */ /* x14640 */ /* x14639 QobiScheme.sc:348:10543 */ a14749 = t87069; a14750 = t87070; h1086: /* x14671 QobiScheme.sc:349:10593 */ /* x14670 QobiScheme.sc:349:10597 */ /* x14669 QobiScheme.sc:349:10604 */ t87071 = a14749; /* x270940 QobiScheme.sc:349:10598 */ if ((t87071.tag)==NULL_TYPE) goto l16555; /* x14665 */ /* x14654 QobiScheme.sc:350:10614 */ /* x14653 QobiScheme.sc:350:10619 */ /* x14645 QobiScheme.sc:350:10626 */ t87072 = a14740; /* x14648 QobiScheme.sc:350:10628 */ /* x14647 QobiScheme.sc:350:10635 */ t87091 = a14749; /* x14646 QobiScheme.sc:350:10629 */ a36122 = t87091; /* x275845 */ /* x275844 */ t87092 = a36122; /* x275843 */ if (!((t87092.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30271]"); structure_ref_error();} t87073 = t87092.value.structure_type24753->s0; /* x14652 QobiScheme.sc:350:10638 */ /* x14651 QobiScheme.sc:350:10649 */ t87093 = a14750; /* x14650 QobiScheme.sc:350:10643 */ /* x14649 QobiScheme.sc:350:10639 */ t87094.tag = NATIVE_PROCEDURE_TYPE494; /* MOVE: branching squeezed to general */ if (t87093>=((struct structure_type24753 *)VALUE_OFFSET)) {t87095.tag = STRUCTURE_TYPE24753; t87095.value.structure_type24753 = t87093;} else t87095.tag = (unsigned)t87093; t87096 = (struct structure_type24753 *)NULL_TYPE; t87074 = f27731(t87094, t87095, t87096); /* x270941 QobiScheme.sc:350:10620 */ switch (t87072.tag) {case NATIVE_PROCEDURE_TYPE7030: t87075 = t87073; if (!(((unsigned)t87074)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 350, 10619); call_error();} if (!(f13055(t87075)==FALSE_TYPE)) goto l16556; break; case NATIVE_PROCEDURE_TYPE7222: t87076 = t87073; if (!(((unsigned)t87074)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 350, 10619); call_error();} if (!(f8918(t87076)==FALSE_TYPE)) goto l16556; break; case NATIVE_PROCEDURE_TYPE15656: t87077 = t87073; if (!(((unsigned)t87074)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 350, 10619); call_error();} if (!(f13273(t87077)==FALSE_TYPE)) goto l16556; break; case NATIVE_PROCEDURE_TYPE15662: t87078 = t87073; if (!(((unsigned)t87074)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 350, 10619); call_error();} if (!(f13272(t87078)==FALSE_TYPE)) goto l16556; break; case NATIVE_PROCEDURE_TYPE15664: t87079 = t87073; if (!(((unsigned)t87074)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 350, 10619); call_error();} if (!(f13270(t87079)==FALSE_TYPE)) goto l16556; break; case NATIVE_PROCEDURE_TYPE15666: t87080 = t87073; if (!(((unsigned)t87074)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 350, 10619); call_error();} if (!(f13268(t87080)==FALSE_TYPE)) goto l16556; break; case NATIVE_PROCEDURE_TYPE15668: t87081 = t87073; if (!(((unsigned)t87074)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 350, 10619); call_error();} if (!(f13267(t87081)==FALSE_TYPE)) goto l16556; break; case NATIVE_PROCEDURE_TYPE16320: t87082 = t87073; if (!(((unsigned)t87074)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 350, 10619); call_error();} if (!(f13816(t87082)==FALSE_TYPE)) goto l16556; break; case NATIVE_PROCEDURE_TYPE17071: t87083 = t87073; if (!(((unsigned)t87074)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 350, 10619); call_error();} if (!(f10308((t87072.value.native_procedure_type17071), t87083)==FALSE_TYPE)) goto l16556; break; case NATIVE_PROCEDURE_TYPE17531: t87084 = t87073; if (!(((unsigned)t87074)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 350, 10619); call_error();} if (!(f11023((t87072.value.native_procedure_type17531), t87084)==FALSE_TYPE)) goto l16556; break; case NATIVE_PROCEDURE_TYPE18237: t87085 = t87073; if (!(((unsigned)t87074)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 350, 10619); call_error();} if (!(f12781((t87072.value.native_procedure_type18237), t87085)==FALSE_TYPE)) goto l16556; break; case NATIVE_PROCEDURE_TYPE18252: t87086 = t87073; if (!(((unsigned)t87074)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 350, 10619); call_error();} if (!(f12748((t87072.value.native_procedure_type18252), t87086)==FALSE_TYPE)) goto l16556; break; case NATIVE_PROCEDURE_TYPE18254: t87087 = t87073; if (!(((unsigned)t87074)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 350, 10619); call_error();} if (!(f12736((t87072.value.native_procedure_type18254), t87087)==FALSE_TYPE)) goto l16556; break; case NATIVE_PROCEDURE_TYPE21686: t87088 = t87073; if (!(((unsigned)t87074)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 350, 10619); call_error();} if (!(f15198((t87072.value.native_procedure_type21686), t87088)==FALSE_TYPE)) goto l16556; break; case NATIVE_PROCEDURE_TYPE22701: t87089 = t87073; if (!(((unsigned)t87074)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 350, 10619); call_error();} if (!(f12760((t87072.value.native_procedure_type22701), t87089)==FALSE_TYPE)) goto l16556; break; default: t87090 = t87073; if (!(((unsigned)t87074)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 350, 10619); call_error();} if (!(f12771((t87072.value.native_procedure_type23264), t87090)==FALSE_TYPE)) goto l16556;} /* x14663 */ /* x14658 QobiScheme.sc:351:10671 */ /* x14657 QobiScheme.sc:351:10677 */ t87099 = a14749; /* x14656 QobiScheme.sc:351:10672 */ a35554 = t87099; /* x273573 */ /* x273572 */ t87100 = a35554; /* x273571 */ if (!((t87100.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29703]"); structure_ref_error();} t87097 = t87100.value.structure_type24753->s1; /* x14662 QobiScheme.sc:351:10680 */ /* x14661 QobiScheme.sc:351:10690 */ t87101 = a14750; /* x14660 QobiScheme.sc:351:10685 */ /* x14659 QobiScheme.sc:351:10681 */ t87102.tag = NATIVE_PROCEDURE_TYPE493; /* MOVE: branching squeezed to general */ if (t87101>=((struct structure_type24753 *)VALUE_OFFSET)) {t87103.tag = STRUCTURE_TYPE24753; t87103.value.structure_type24753 = t87101;} else t87103.tag = (unsigned)t87101; t87104 = (struct structure_type24753 *)NULL_TYPE; t87098 = f27731(t87102, t87103, t87104); /* x14655 QobiScheme.sc:351:10666 */ a14749 = t87097; a14750 = t87098; goto h1086; goto l16561; l16560: /* x14695 QobiScheme.sc:352:10705 */ /* x14690 QobiScheme.sc:352:10711 */ /* x14689 QobiScheme.sc:352:10717 */ t87063 = *((struct w16638 *)(&a14745)); /* x14688 QobiScheme.sc:352:10712 */ a35556 = t87063; /* x273581 */ /* x273580 */ t87064 = a35556; /* x273579 */ if (!((t87064.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29705]"); structure_ref_error();} t87061 = t87064.value.structure_type24753->s1; /* x14694 QobiScheme.sc:352:10720 */ /* x14693 QobiScheme.sc:352:10730 */ t87065 = a14746; /* x14692 QobiScheme.sc:352:10725 */ /* x14691 QobiScheme.sc:352:10721 */ t87066.tag = NATIVE_PROCEDURE_TYPE493; /* MOVE: branching squeezed to general */ if (t87065>=((struct structure_type24753 *)VALUE_OFFSET)) {t87067.tag = STRUCTURE_TYPE24753; t87067.value.structure_type24753 = t87065;} else t87067.tag = (unsigned)t87065; t87068 = (struct structure_type24753 *)NULL_TYPE; t87062 = f27731(t87066, t87067, t87068); /* x14687 QobiScheme.sc:352:10706 */ a14745 = t87061; a14746 = t87062; goto h1083; l16561: l16555: return TRUE_TYPE; l16556: return FALSE_TYPE;} /* [inside LOOP 1078] */ struct w49 f1078(struct p1076 *p1078, struct w49 a14739) {struct w49 t87111; int t87112; /* x14589 QobiScheme.sc:341:10353 */ /* x14587 QobiScheme.sc:341:10365 */ t87111 = a14739; /* x14588 QobiScheme.sc:341:10367 */ t87112 = p1078->a14737; /* x270949 QobiScheme.sc:341:10354 */ if ((t87111.tag)==HEADED_VECTOR_TYPE27896) {if ((t87112<0)||(t87112>=(t87111.value.headed_vector_type27896->length))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 341, 10353); vector_ref3_error();} return (t87111.value.headed_vector_type27896->element)[t87112];} backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 341, 10353); vector_ref1_error();} /* EVERY[1061] */ unsigned f1061(struct w228245 a14718, struct w49 a14719, struct structure_type24753 *a14720) {struct w49 a14723; /* L */ struct structure_type24753 *a14724; /* &REST */ struct w49 a15000; /* XE */ struct w49 a15010; /* XE */ struct w49 a21089; /* US */ struct w49 a21090; /* W */ struct w49 a21091; /* U */ struct w49 a21117; /* U1 */ struct w49 a21524; /* U1 */ struct w49 a21525; /* U1 */ struct w49 a21970; /* X */ struct w49 a21984; /* X */ struct w49 a21986; /* E1 */ struct w49 a21988; /* E2 */ struct w49 a22251; /* E */ struct w49 a22255; /* E1 */ struct w49 a22261; /* Y */ struct w49 a22600; /* W */ struct w49 a22611; /* E */ struct w49 a22613; /* G */ struct w49 a23107; /* X */ struct w49 a23108; /* X */ struct w49 a24366; /* E */ struct w49 a24369; /* E1 */ struct w49 a24700; /* E */ struct w49 a24910; /* W1 */ struct w49 a24911; /* W2 */ struct w49 a25745; /* Y-E */ struct w49 a25746; /* E */ char *a25747; /* v */ struct w49 a25748; /* E */ struct w49 a25752; /* W */ struct w49 a25753; /* W */ struct w49 a25771; /* G */ struct w49 a25777; /* G */ struct w49 a25952; /* U */ struct w49 a26258; /* U */ struct w49 a26264; /* U */ struct w49 a26278; /* U */ struct w49 a26280; /* U */ struct w49 a26283; /* U */ struct w49 a26301; /* U */ struct w49 a26308; /* U */ struct w49 a26318; /* U */ struct w49 a26328; /* U */ struct w49 a26598; /* U */ struct w49 a26602; /* U */ struct w49 a26604; /* U */ struct w49 a26608; /* U */ struct w49 a26613; /* U */ struct w49 a26632; /* U */ struct w49 a26637; /* U */ struct w49 a26643; /* U */ struct w49 a26648; /* U */ struct w49 a26655; /* U */ struct w49 a26663; /* U */ struct w49 a27355; /* W */ struct w49 a27745; /* U */ struct w49 a27751; /* U */ struct w49 a27771; /* U */ struct w49 a27778; /* U */ struct w49 a28631; /* W */ struct w49 a28633; /* W */ struct w49 a28634; /* W */ struct w49 a28690; /* W */ struct w49 a28692; /* W */ struct w49 a28693; /* W */ struct w49 a28749; /* W */ struct w49 a28751; /* W */ struct w49 a28752; /* W */ struct w49 a28810; /* W */ struct w49 a28812; /* W */ struct w49 a28813; /* W */ struct w49 a28871; /* W */ struct w49 a28873; /* W */ struct w49 a28874; /* W */ struct w49 a28932; /* W */ struct w49 a28934; /* W */ struct w49 a32229; /* S */ struct w49 a32252; /* S */ struct w49 a32262; /* S */ struct w49 a35624; /* PAIR */ struct w49 a36206; /* PAIR */ struct w49 a36444; /* S */ struct w49 a36843; /* S */ struct w49 a36852; /* S */ struct w49 a36859; /* S */ struct w49 a36860; /* S */ struct w49 a36901; /* S */ struct w49 a36920; /* S */ struct w49 a37510; /* S */ struct w49 a37837; /* S */ struct w49 a38579; /* S */ struct w49 a38644; /* S */ struct w49 a38669; /* S */ struct w49 a38670; /* S */ struct w49 a39231; /* S */ struct w49 a39433; /* S */ struct w49 a40060; /* S */ struct w49 a40061; /* S */ struct w49 a40062; /* S */ struct w49 a40319; /* S */ struct w49 a40362; /* S */ struct w49 a40363; /* S */ struct w49 a41486; /* S */ struct w49 a41586; /* S */ struct w49 a41614; /* S */ struct w49 a41651; /* G */ struct w49 a41652; /* G */ struct w49 t87113; struct structure_type24753 *t87114; struct w49 t87115; struct w228245 t87116; struct w49 t87117; struct structure_type24753 *t87118; struct w49 t87119; struct w49 t87120; struct w49 t87121; struct w49 t87122; struct w49 t87123; struct w49 t87124; struct w49 t87125; struct w49 t87126; struct w49 t87127; struct w49 t87128; struct w49 t87129; struct w49 t87130; char *t87131; struct w49 t87132; struct w49 t87133; struct w49 t87134; struct w49 t87135; struct w49 t87136; struct w49 t87137; struct w49 t87138; struct w49 t87139; struct w49 t87140; char *t87141; struct w49 t87142; struct w49 t87143; struct w49 t87144; struct w49 t87145; struct w49 t87146; struct w49 t87147; char *t87148; char *t87149; char *t87150; struct w49 t87151; struct w49 t87152; char *t87153; char *t87154; struct w49 t87155; struct w49 t87156; char *t87157; char *t87158; struct w49 t87159; struct w49 t87160; char *t87161; char *t87162; struct w49 t87163; struct w49 t87164; char *t87165; char *t87166; struct w49 t87167; struct w49 t87168; char *t87169; struct w49 t87170; struct w3467 t87171; struct w49 t87172; struct w49 t87173; struct w49 t87174; struct w49 t87175; struct w49 t87176; char *t87177; struct w6315 t87178; struct w3457 t87179; struct w228245 t87180; struct w49 t87181; struct structure_type24753 *t87182; struct w49 t87183; char *t87184; struct w6315 t87185; char *t87186; struct w6315 t87187; struct w49 t87188; struct w6194 t87189; struct w49 t87190; char *t87191; char *t87192; struct w49 t87193; struct w49 t87194; char *t87195; char *t87196; struct w49 t87197; struct w49 t87198; struct w11873 t87199; struct w49 t87200; struct w49 t87201; char *t87202; char *t87203; struct w49 t87204; struct w49 t87205; struct w49 t87206; struct w49 t87207; struct w49 t87208; struct w49 t87209; struct w49 t87210; struct w49 t87211; struct w9296 t87212; struct w49 t87213; struct w49 t87214; struct w49 t87215; struct w49 t87216; struct w49 t87217; struct w49 t87218; struct w49 t87219; struct w49 t87220; struct w49 t87221; struct w49 t87222; struct w49 t87223; struct w49 t87224; struct w49 t87225; struct w49 t87226; struct w49 t87227; struct w49 t87228; struct w49 t87229; struct w49 t87230; struct w49 t87231; struct w49 t87232; struct w49 t87233; struct w49 t87234; struct w211225 t87235; struct w49 t87236; struct w49 t87237; struct w49 t87238; struct w49 t87239; struct w49 t87240; struct w211225 t87241; struct w49 t87242; struct w49 t87243; struct w49 t87244; struct w3457 t87245; struct w228245 t87246; struct w49 t87247; struct structure_type24753 *t87248; struct w49 t87249; struct w49 t87250; struct w49 t87251; struct w49 t87252; struct w49 t87253; struct w49 t87254; struct w49 t87255; struct w49 t87256; struct w49 t87257; unsigned t87258; struct w49 t87259; struct w211257 t87260; struct w49 t87261; struct w49 t87262; struct w49 t87263; struct w49 t87264; struct w49 t87265; struct w49 t87266; struct w49 t87267; struct w49 t87268; struct w49 t87269; struct w49 t87270; struct w49 t87271; struct w49 t87272; struct w49 t87273; struct w49 t87274; struct w49 t87275; struct w49 t87276; struct w49 t87277; struct w49 t87278; struct w49 t87279; struct w49 t87280; struct p8400 *t87281; struct w11873 t87282; struct w228245 t87283; struct w49 t87284; struct structure_type24753 *t87285; struct w49 t87286; struct w49 t87287; struct w49 t87288; struct w49 t87289; struct w49 t87290; struct p8400 *t87291; struct w3457 t87292; struct w228245 t87293; struct w49 t87294; struct structure_type24753 *t87295; struct w49 t87296; struct w49 t87297; struct w49 t87298; struct w49 t87299; struct w49 t87300; struct w49 t87301; struct w49 t87302; struct w49 t87303; struct w49 t87304; struct w49 t87305; struct w49 t87306; struct w49 t87307; struct w49 t87308; struct w49 t87309; struct w49 t87310; struct w49 t87311; struct w49 t87312; unsigned t87313; struct w49 t87314; struct w49 t87315; unsigned t87316; struct w49 t87317; struct w49 t87318; struct w49 t87319; struct w49 t87320; unsigned t87321; unsigned t87322; struct w49 t87323; struct w49 t87324; struct w49 t87325; struct w49 t87326; unsigned t87327; struct w49 t87328; struct w49 t87329; unsigned t87330; struct w49 t87331; struct w49 t87332; struct w49 t87333; struct w49 t87334; struct w49 t87335; struct w49 t87336; struct w49 t87337; struct w49 t87338; struct w49 t87339; struct w49 t87340; struct w49 t87341; struct w49 t87342; unsigned t87343; unsigned t87344; struct w49 t87345; struct w49 t87346; struct w49 t87347; struct w49 t87348; struct w49 t87349; struct w49 t87350; struct w49 t87351; struct w49 t87352; unsigned t87353; struct w49 t87354; struct w49 t87355; unsigned t87356; struct w49 t87357; struct w49 t87358; struct w49 t87359; struct w49 t87360; struct w49 t87361; struct w49 t87362; struct w3467 t87363; struct w49 t87364; struct w49 t87365; struct w49 t87366; struct w49 t87367; struct w49 t87368; struct w49 t87369; struct w49 t87370; struct w49 t87371; struct w49 t87372; unsigned t87373; unsigned t87374; struct w49 t87375; struct w49 t87376; struct w49 t87377; struct w49 t87378; struct w49 t87379; struct w49 t87380; struct w49 t87381; struct w211225 t87382; struct w49 t87383; struct w211225 t87384; struct p7150 *t87385; struct w49 t87386; struct w228245 t87387; struct w49 t87388; struct structure_type24753 *t87389; struct w49 t87390; struct w49 t87391; struct w49 t87392; struct w49 t87393; struct w49 t87394; struct w49 t87395; struct w49 t87396; struct w49 t87397; struct w49 t87398; struct w49 t87399; struct w49 t87400; struct w49 t87401; struct w49 t87402; struct w211257 t87403; struct w49 t87404; struct w211257 t87405; struct w49 t87406; struct w211257 t87407; struct w49 t87408; struct w211257 t87409; struct w49 t87410; struct w211257 t87411; struct w49 t87412; struct w211257 t87413; struct w49 t87414; struct w211257 t87415; struct w49 t87416; struct w211257 t87417; struct w49 t87418; struct w211257 t87419; struct w49 t87420; struct w211257 t87421; struct w49 t87422; struct w211257 t87423; struct w49 t87424; struct w211257 t87425; struct w49 t87426; struct w211257 t87427; struct w49 t87428; struct w211257 t87429; struct w49 t87430; struct w211257 t87431; struct w49 t87432; struct w211257 t87433; struct w49 t87434; struct w211257 t87435; struct w49 t87436; struct w49 t87437; struct w49 t87438; struct w49 t87439; struct w49 t87440; struct w49 t87441; struct w49 t87442; struct structure_type24753 *t87443; struct p14552 *t87444; struct w49 t87445; struct w49 t87446; struct w3457 t87447; struct w49 t87448; struct w49 t87449; struct w49 t87450; struct structure_type24753 *t87451; struct w36270 t87452; struct w49 t87453; struct structure_type24753 *t87454; struct w49 t87455; struct structure_type24753 *t87456; struct w49 t87457; struct w49 t87458; struct structure_type24753 *t87459; struct w36270 t87460; struct w49 t87461; struct structure_type24753 *t87462; struct p7150 *e7150; struct p8400 *e8400; struct p1378 *p1379; struct p1384 *p1385; struct p7150 *p7151; struct p7174 *p7176; struct p7721 *p7723; struct p7721 *p7724; struct p8372 *p8378; struct p8372 *p8379; struct p8395 *p8400; struct p8400 *p8401; struct p8400 *p8402; struct p8400 *p8403; struct p8400 *p8404; struct p8832 *p8838; struct p12146 *p12147; struct p14859 *p14861; struct p14852 *p14885; struct p14852 *p14886; struct p14852 *p14888; struct p14852 *p14889; struct p14852 *p14890; struct p14852 *p14891; struct p14852 *p14892; struct p15396 *p15398; struct p15369 *p15410; struct p15369 *p15411; struct p15369 *p15412; struct p15369 *p15417; struct p15369 *p15418; struct p15369 *p15492; struct p16308 *p16311; struct p16486 *p16545; struct p16486 *p16546; struct p16486 *p16547; /* x14539 QobiScheme.sc:328:9982 */ /* x14537 QobiScheme.sc:328:9996 */ t87113 = a14719; /* x14538 QobiScheme.sc:328:10006 */ t87114 = a14720; /* x14536 */ /* x14535 */ /* x14534 */ /* x14533 */ /* x14532 */ /* x14531 */ /* x14530 */ /* x14500 */ /* x14499 QobiScheme.sc:328:9987 */ a14723 = t87113; a14724 = t87114; h1064: /* x14529 QobiScheme.sc:329:10016 */ /* x14529 QobiScheme.sc:329:10016 */ /* x14528 QobiScheme.sc:329:10020 */ /* x14527 QobiScheme.sc:329:10027 */ t87115 = a14723; /* x270954 QobiScheme.sc:329:10021 */ if ((t87115.tag)==NULL_TYPE) goto l16564; /* x14523 */ /* x14512 QobiScheme.sc:330:10041 */ /* x14504 QobiScheme.sc:330:10048 */ t87116 = a14718; /* x14507 QobiScheme.sc:330:10050 */ /* x14506 QobiScheme.sc:330:10057 */ t87449 = a14723; /* x14505 QobiScheme.sc:330:10051 */ a36206 = t87449; /* x276181 */ /* x276180 */ t87450 = a36206; /* x276179 */ if (!((t87450.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30355]"); structure_ref_error();} t87117 = t87450.value.structure_type24753->s0; /* x14511 QobiScheme.sc:330:10060 */ /* x14510 QobiScheme.sc:330:10071 */ t87451 = a14724; /* x14509 QobiScheme.sc:330:10065 */ /* x14508 QobiScheme.sc:330:10061 */ t87452.tag = NATIVE_PROCEDURE_TYPE494; /* MOVE: branching squeezed to general */ if (t87451>=((struct structure_type24753 *)VALUE_OFFSET)) {t87453.tag = STRUCTURE_TYPE24753; t87453.value.structure_type24753 = t87451;} else t87453.tag = (unsigned)t87451; t87454 = (struct structure_type24753 *)NULL_TYPE; t87118 = f27731(t87452, t87453, t87454); /* x270955 QobiScheme.sc:330:10042 */ switch (t87116.tag) {case NATIVE_PROCEDURE_TYPE366: t87119 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} if (f27405(t87119)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE7030: t87120 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} if (f13055(t87120)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE7221: t87121 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} if (f8931(t87121)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE7222: t87122 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} if (f8918(t87122)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE7223: t87123 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} if (f8903(t87123)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE7232: t87124 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} if (f8793(t87124)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE7346: t87125 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} if (f8194(t87125)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE7431: t87126 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} if (f7682(t87126)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE7433: t87127 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} if (f7679(t87127)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE7616: t87128 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} if (f6956(t87128)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE7624: t87129 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} if (f6936(t87129)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE14216: a32252 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x170756 stalin.sc:25001:864130 */ /* x170755 stalin.sc:25001:864135 */ /* x170753 stalin.sc:25001:864143 */ /* x170752 stalin.sc:25001:864153 */ t87133 = a32252; /* x170751 stalin.sc:25001:864144 */ a41614 = t87133; /* x300568 stalin.sc:6964:241199 */ /* x300567 stalin.sc:6964:241207 */ t87134 = a41614; /* x300566 stalin.sc:6964:241200 */ t87130 = f9719(t87134); /* x170754 stalin.sc:25001:864156 */ t87131 = q95; /* x170750 stalin.sc:25001:864136 */ t87132.tag = EXTERNAL_SYMBOL_TYPE; t87132.value.external_symbol_type = t87131; if (!(f9745(t87130, t87132)==FALSE_TYPE)) goto l16565; break; case NATIVE_PROCEDURE_TYPE14342: a32262 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x170980 stalin.sc:25028:865178 */ /* x170979 stalin.sc:25028:865188 */ /* x170978 stalin.sc:25028:865198 */ t87136 = a32262; /* x170977 stalin.sc:25028:865189 */ a41586 = t87136; /* x300456 stalin.sc:6964:241199 */ /* x300455 stalin.sc:6964:241207 */ t87137 = a41586; /* x300454 stalin.sc:6964:241200 */ t87135 = f9719(t87137); /* x170976 stalin.sc:25028:865179 */ if (f9766(t87135)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE14762: a32229 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x170084 stalin.sc:24917:861425 */ /* x170071 stalin.sc:24917:861430 */ /* x170070 stalin.sc:24917:861440 */ t87138 = a32229; /* x170069 stalin.sc:24917:861431 */ if (f9766(t87138)==FALSE_TYPE) goto l16565; /* x170082 */ /* x170074 stalin.sc:24917:861443 */ /* x170073 stalin.sc:24917:861453 */ t87139 = a32229; /* x170072 stalin.sc:24917:861444 */ if (f9740(t87139)==FALSE_TYPE) goto l16565; /* x170080 */ /* x170078 stalin.sc:24917:861464 */ /* x170077 stalin.sc:24917:861474 */ t87143 = a32229; /* x170076 stalin.sc:24917:861465 */ a41486 = t87143; /* x300056 stalin.sc:6964:241199 */ /* x300055 stalin.sc:6964:241207 */ t87144 = a41486; /* x300054 stalin.sc:6964:241200 */ t87140 = f9719(t87144); /* x170079 stalin.sc:24917:861477 */ t87141 = q97; /* x170075 stalin.sc:24917:861457 */ t87142.tag = EXTERNAL_SYMBOL_TYPE; t87142.value.external_symbol_type = t87141; if (f9745(t87140, t87142)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE15179: a25952 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x131231 stalin.sc:16511:576513 */ /* x131230 stalin.sc:16511:576517 */ /* x131229 stalin.sc:16511:576531 */ t87145 = a25952; /* x131228 stalin.sc:16511:576518 */ if (!(f7683(t87145)==FALSE_TYPE)) goto l16568; /* x131225 */ /* x131224 stalin.sc:16515:576716 */ t87146 = a25952; /* x131223 stalin.sc:16515:576692 */ if (f7754(t87146)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE15369: a25745 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x128195 stalin.sc:15842:552345 */ /* x128194 stalin.sc:15842:552354 */ /* x128193 stalin.sc:15842:552359 */ t87188 = a25745; /* x268903 stalin.sc:15842:552355 */ if (!((t87188.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 15842, 552354); structure_ref_error();} t87147 = t87188.value.structure_type24753->s1; /* x128191 */ a25746 = t87147; /* x128190 stalin.sc:15843:552370 */ /* x128189 stalin.sc:15843:552376 */ t87148 = a686; /* x128188 */ a25747 = t87148; /* x128187 */ /* x128096 */ /* x128094 */ t87149 = a25747; /* x128095 */ t87150 = q18; /* x128093 */ /* MOVE: branching squeezed to general */ if (t87149>=((char *)VALUE_OFFSET)) {t87151.tag = EXTERNAL_SYMBOL_TYPE; t87151.value.external_symbol_type = t87149;} else t87151.tag = (unsigned)t87149; t87152.tag = EXTERNAL_SYMBOL_TYPE; t87152.value.external_symbol_type = t87150; if (f26160(t87151, t87152)==FALSE_TYPE) goto l16573; /* x128102 */ /* x128101 */ /* x128100 stalin.sc:15845:552430 */ /* x128098 stalin.sc:15846:552452 */ /* x128099 stalin.sc:15846:552455 */ t87186 = "Immediate flat closures are not (yet) implemented"; /* x128097 stalin.sc:15845:552431 */ t87187.tag = FALSE_TYPE; f9707(t87187, t87186); goto l16574; l16573: /* x128186 */ /* x128106 */ /* x128104 */ t87153 = a25747; /* x128105 */ t87154 = q19; /* x128103 */ /* MOVE: branching squeezed to general */ if (t87153>=((char *)VALUE_OFFSET)) {t87155.tag = EXTERNAL_SYMBOL_TYPE; t87155.value.external_symbol_type = t87153;} else t87155.tag = (unsigned)t87153; t87156.tag = EXTERNAL_SYMBOL_TYPE; t87156.value.external_symbol_type = t87154; if (f26160(t87155, t87156)==FALSE_TYPE) goto l16576; /* x128112 */ /* x128111 */ /* x128110 stalin.sc:15848:552537 */ /* x128108 stalin.sc:15849:552559 */ /* x128109 stalin.sc:15849:552562 */ t87184 = "Indirect flat closures are not (yet) implemented"; /* x128107 stalin.sc:15848:552538 */ t87185.tag = FALSE_TYPE; f9707(t87185, t87184); goto l16577; l16576: /* x128185 */ /* x128116 */ /* x128114 */ t87157 = a25747; /* x128115 */ t87158 = q20; /* x128113 */ /* MOVE: branching squeezed to general */ if (t87157>=((char *)VALUE_OFFSET)) {t87159.tag = EXTERNAL_SYMBOL_TYPE; t87159.value.external_symbol_type = t87157;} else t87159.tag = (unsigned)t87157; t87160.tag = EXTERNAL_SYMBOL_TYPE; t87160.value.external_symbol_type = t87158; if (f26160(t87159, t87160)==FALSE_TYPE) goto l16579; /* x128136 */ /* x128135 */ /* x128134 stalin.sc:15851:552647 */ /* x128133 stalin.sc:15854:552755 */ /* x128132 stalin.sc:15854:552766 */ t87183 = a25746; /* x128131 stalin.sc:15854:552756 */ t87179 = f8951(t87183); /* x128130 stalin.sc:15851:552654 */ /* x128117 stalin.sc:15851:552648 */ t87180.tag = NATIVE_PROCEDURE_TYPE20817; t87181 = *((struct w49 *)(&t87179)); t87182 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t87180, t87181, t87182)==FALSE_TYPE) goto l16565; goto l16580; l16579: /* x128184 */ /* x128140 */ /* x128138 */ t87161 = a25747; /* x128139 */ t87162 = q21; /* x128137 */ /* MOVE: branching squeezed to general */ if (t87161>=((char *)VALUE_OFFSET)) {t87163.tag = EXTERNAL_SYMBOL_TYPE; t87163.value.external_symbol_type = t87161;} else t87163.tag = (unsigned)t87161; t87164.tag = EXTERNAL_SYMBOL_TYPE; t87164.value.external_symbol_type = t87162; if (f26160(t87163, t87164)==FALSE_TYPE) goto l16582; /* x128146 */ /* x128145 */ /* x128144 stalin.sc:15856:552802 */ /* x128142 stalin.sc:15857:552824 */ /* x128143 stalin.sc:15857:552827 */ t87177 = "Indirect display closures are not (yet) implemented"; /* x128141 stalin.sc:15856:552803 */ t87178.tag = FALSE_TYPE; f9707(t87178, t87177); goto l16583; l16582: /* x128183 */ /* x128150 */ /* x128148 */ t87165 = a25747; /* x128149 */ t87166 = q22; /* x128147 */ /* MOVE: branching squeezed to general */ if (t87165>=((char *)VALUE_OFFSET)) {t87167.tag = EXTERNAL_SYMBOL_TYPE; t87167.value.external_symbol_type = t87165;} else t87167.tag = (unsigned)t87165; t87168.tag = EXTERNAL_SYMBOL_TYPE; t87168.value.external_symbol_type = t87166; if (f26160(t87167, t87168)==FALSE_TYPE) goto l16585; /* x128178 */ /* x128177 */ /* x128176 stalin.sc:15859:552904 */ /* x128175 stalin.sc:15859:552908 */ /* x128174 stalin.sc:15859:552913 */ /* x128173 stalin.sc:15859:552936 */ t87170 = a25746; /* x128172 stalin.sc:15859:552914 */ if ((f8897(t87170).tag)==FALSE_TYPE) goto l16568; /* x128168 */ /* x128161 stalin.sc:15860:552948 */ /* x128160 stalin.sc:15860:552953 */ /* x128159 stalin.sc:15861:552978 */ /* x128158 stalin.sc:15861:552990 */ /* x128157 stalin.sc:15861:553008 */ t87174 = a25746; /* x128156 stalin.sc:15861:552991 */ t87173 = f8965(t87174); /* x128155 stalin.sc:15861:552979 */ t87171 = f8619(t87173); /* x128154 stalin.sc:15860:552954 */ t87172 = *((struct w49 *)(&t87171)); if (!(f13035(t87172)==FALSE_TYPE)) goto l16565; /* x128166 */ /* x128165 stalin.sc:15862:553043 */ /* x128164 stalin.sc:15862:553061 */ t87176 = a25746; /* x128163 stalin.sc:15862:553044 */ t87175 = f8965(t87176); /* x128162 stalin.sc:15862:553023 */ if (f14226(t87175)==FALSE_TYPE) goto l16565; goto l16586; l16585: /* x128182 */ /* x128181 */ /* x128180 stalin.sc:15863:553079 */ /* x128179 stalin.sc:15863:553080 */ /* x295877 QobiScheme.sc:166:5314 */ /* x295876 QobiScheme.sc:166:5321 */ t87169 = "This shouldn\'t happen"; /* x295875 QobiScheme.sc:166:5315 */ stalin_panic(t87169); l16586: l16583: l16580: l16577: l16574: break; case NATIVE_PROCEDURE_TYPE15637: a24700 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x113102 stalin.sc:12441:434437 */ /* x113101 stalin.sc:12441:434446 */ /* x113100 stalin.sc:12441:434466 */ t87190 = a24700; /* x113099 stalin.sc:12441:434447 */ t87189 = f8624(t87190); /* x269389 stalin.sc:12441:434438 */ if (!((t87189.tag)==FIXNUM_TYPE)) goto l16565; break; case NATIVE_PROCEDURE_TYPE17065: a23107 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x89775 stalin.sc:7534:259044 */ /* x89773 stalin.sc:7534:259049 */ /* x89772 stalin.sc:7534:259066 */ t87193 = a23107; /* x89771 stalin.sc:7534:259050 */ a40362 = t87193; /* x294117 */ /* x294116 */ t87194 = a40362; /* x294115 */ if (!((t87194.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35279]"); structure_ref_error();} t87191 = t87194.value.structure_type27698->s0; /* x89774 stalin.sc:7534:259069 */ t87192 = q38; /* x269852 stalin.sc:7534:259045 */ if (!(t87191==t87192)) goto l16565; break; case NATIVE_PROCEDURE_TYPE17066: a23108 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x89907 stalin.sc:7570:260059 */ /* x89872 stalin.sc:7570:260064 */ /* x89870 stalin.sc:7570:260069 */ /* x89869 stalin.sc:7570:260086 */ t87197 = a23108; /* x89868 stalin.sc:7570:260070 */ a40363 = t87197; /* x294121 */ /* x294120 */ t87198 = a40363; /* x294119 */ if (!((t87198.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35280]"); structure_ref_error();} t87195 = t87198.value.structure_type27698->s0; /* x89871 stalin.sc:7570:260089 */ t87196 = q36; /* x269848 stalin.sc:7570:260065 */ if (!(t87195==t87196)) goto l16565; /* x89905 */ /* x89877 stalin.sc:7571:260101 */ /* x89876 stalin.sc:7571:260108 */ /* x89875 stalin.sc:7571:260130 */ t87200 = a23108; /* x89874 stalin.sc:7571:260109 */ a38579 = t87200; /* x286985 */ /* x286984 */ t87201 = a38579; /* x286983 */ if (!((t87201.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33496]"); structure_ref_error();} t87199 = t87201.value.structure_type27698->s22; /* x269847 stalin.sc:7571:260102 */ if (!((t87199.tag)==NULL_TYPE)) goto l16565; /* x89903 */ /* x89885 stalin.sc:7572:260139 */ /* x89883 stalin.sc:7572:260144 */ /* x89882 stalin.sc:7572:260161 */ /* x89881 stalin.sc:7572:260180 */ t87206 = a23108; /* x89880 stalin.sc:7572:260162 */ a38670 = t87206; /* x287349 */ /* x287348 */ t87207 = a38670; /* x287347 */ if (!((t87207.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33587]"); structure_ref_error();} t87204 = t87207.value.structure_type27698->s21; /* x89879 stalin.sc:7572:260145 */ a40319 = t87204; /* x293945 */ /* x293944 */ t87205 = a40319; /* x293943 */ if (!((t87205.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35236]"); structure_ref_error();} t87202 = t87205.value.structure_type27698->s0; /* x89884 stalin.sc:7573:260187 */ t87203 = q39; /* x269846 stalin.sc:7572:260140 */ if (!(t87202==t87203)) goto l16565; /* x89901 */ /* x89892 stalin.sc:7574:260201 */ /* x89891 stalin.sc:7574:260206 */ /* x89890 stalin.sc:7574:260223 */ /* x89889 stalin.sc:7574:260242 */ t87210 = a23108; /* x89888 stalin.sc:7574:260224 */ a38669 = t87210; /* x287345 */ /* x287344 */ t87211 = a38669; /* x287343 */ if (!((t87211.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33586]"); structure_ref_error();} t87208 = t87211.value.structure_type27698->s21; /* x89887 stalin.sc:7574:260207 */ a39231 = t87208; /* x289593 */ /* x289592 */ t87209 = a39231; /* x289591 */ if (!((t87209.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34148]"); structure_ref_error();} if (!((t87209.value.structure_type27698->s15.tag)==FALSE_TYPE)) goto l16565; /* x89899 */ /* x89898 stalin.sc:7575:260259 */ /* x89897 stalin.sc:7575:260282 */ /* x89896 stalin.sc:7575:260301 */ t87215 = a23108; /* x89895 stalin.sc:7575:260283 */ a38644 = t87215; /* x287245 */ /* x287244 */ t87216 = a38644; /* x287243 */ if (!((t87216.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33561]"); structure_ref_error();} t87213 = t87216.value.structure_type27698->s21; /* x89894 stalin.sc:7575:260260 */ a39433 = t87213; /* x290401 */ /* x290400 */ t87214 = a39433; /* x290399 */ if (!((t87214.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34350]"); structure_ref_error();} t87212 = t87214.value.structure_type27698->s14; /* x269844 stalin.sc:7575:260253 */ if (!((t87212.tag)==NULL_TYPE)) goto l16565; break; case NATIVE_PROCEDURE_TYPE17882: a22251 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x75400 stalin.sc:4625:155696 */ /* x75399 stalin.sc:4625:155700 */ /* x75398 stalin.sc:4625:155705 */ /* x75397 stalin.sc:4625:155724 */ t87217 = a22251; /* x75396 stalin.sc:4625:155706 */ if (f8526(t87217)==FALSE_TYPE) goto l16568; /* x75392 */ /* x75391 stalin.sc:4626:155749 */ /* x75390 stalin.sc:4626:155763 */ t87224 = a22251; /* x75389 stalin.sc:4626:155750 */ t87218 = f8634(t87224); /* x75388 */ /* x75387 */ /* x75386 */ /* x75385 */ /* x75384 */ /* x75383 */ /* x75382 */ /* x75360 */ /* x75359 stalin.sc:4626:155738 */ a22255 = t87218; h8828: /* x75381 stalin.sc:4627:155774 */ /* x75380 stalin.sc:4627:155778 */ /* x75379 stalin.sc:4627:155786 */ t87219 = a22255; /* x75378 stalin.sc:4627:155779 */ if (!(f8581(t87219)==FALSE_TYPE)) goto l16568; /* x75375 */ /* x75368 stalin.sc:4628:155798 */ /* x75367 stalin.sc:4628:155803 */ /* x75365 stalin.sc:4628:155814 */ t87220 = a22255; /* x75366 stalin.sc:4628:155817 */ t87221 = a22251; /* x75364 stalin.sc:4628:155804 */ if (!(f8698(t87220, t87221)==FALSE_TYPE)) goto l16565; /* x75373 */ /* x75372 stalin.sc:4629:155836 */ /* x75371 stalin.sc:4629:155850 */ t87223 = a22255; /* x75370 stalin.sc:4629:155837 */ t87222 = f8634(t87223); /* x75369 stalin.sc:4629:155830 */ a22255 = t87222; goto h8828; break; case NATIVE_PROCEDURE_TYPE18141: p8378 = t87116.value.native_procedure_type18141; a21970 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x71692 stalin.sc:3843:130088 */ /* x71691 stalin.sc:3843:130092 */ /* x71690 stalin.sc:3843:130097 */ /* x71689 stalin.sc:3843:130120 */ t87225 = a21970; /* x71688 stalin.sc:3843:130098 */ if (f6984(t87225)==FALSE_TYPE) goto l16568; p8379 = p8378; /* x71684 */ /* x71680 stalin.sc:3844:130141 */ t87226 = a21970; /* x71683 stalin.sc:3844:130143 */ /* x71682 stalin.sc:3844:130165 */ t87228 = p8379->a21967; /* x71681 stalin.sc:3844:130144 */ a36920 = t87228; /* x280349 */ /* x280348 */ t87229 = a36920; /* x280347 */ if (!((t87229.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31837]"); structure_ref_error();} t87227 = t87229.value.structure_type27692->s8; /* x71679 stalin.sc:3844:130128 */ if (f8999(t87226, t87227)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE18483: p15492 = t87116.value.native_procedure_type18483; a26663 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x142365 stalin.sc:18183:638229 */ /* x142363 stalin.sc:18183:638238 */ t87230 = a26663; /* x142364 stalin.sc:18183:638240 */ t87231 = p15492->a26591; /* x142362 stalin.sc:18183:638230 */ if (f8033(t87230, t87231)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE18660: a25777 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x128522 stalin.sc:15929:555279 */ /* x128521 stalin.sc:15929:555283 */ /* x128520 stalin.sc:15929:555288 */ /* x128519 stalin.sc:15929:555298 */ t87232 = a25777; /* x128518 stalin.sc:15929:555289 */ a41652 = t87232; /* x300720 stalin.sc:3965:133896 */ /* x300719 stalin.sc:3965:133915 */ t87233 = a41652; /* x300718 stalin.sc:3965:133897 */ if (f8219(t87233)==FALSE_TYPE) goto l16568; /* x128514 */ /* x128510 stalin.sc:15931:555327 */ /* x128513 stalin.sc:15933:555413 */ /* x128512 stalin.sc:15933:555432 */ t87236 = a25777; /* x128511 stalin.sc:15933:555414 */ a36860 = t87236; /* x280109 */ /* x280108 */ t87237 = a36860; /* x280107 */ if (!((t87237.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31777]"); structure_ref_error();} t87234 = t87237.value.structure_type27692->s9; /* x128501 stalin.sc:15930:555310 */ t87235.tag = NATIVE_PROCEDURE_TYPE18663; if (f8146(t87235, t87234)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE18665: a25771 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x128484 stalin.sc:15917:554867 */ /* x128483 stalin.sc:15917:554871 */ /* x128482 stalin.sc:15917:554876 */ /* x128481 stalin.sc:15917:554886 */ t87238 = a25771; /* x128480 stalin.sc:15917:554877 */ a41651 = t87238; /* x300716 stalin.sc:3965:133896 */ /* x300715 stalin.sc:3965:133915 */ t87239 = a41651; /* x300714 stalin.sc:3965:133897 */ if (f8219(t87239)==FALSE_TYPE) goto l16568; /* x128476 */ /* x128472 stalin.sc:15919:554910 */ /* x128475 stalin.sc:15921:554984 */ /* x128474 stalin.sc:15921:555003 */ t87242 = a25771; /* x128473 stalin.sc:15921:554985 */ a36859 = t87242; /* x280105 */ /* x280104 */ t87243 = a36859; /* x280103 */ if (!((t87243.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31776]"); structure_ref_error();} t87240 = t87243.value.structure_type27692->s9; /* x128463 stalin.sc:15918:554899 */ t87241.tag = NATIVE_PROCEDURE_TYPE18667; if (f8146(t87241, t87240)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE19164: a22611 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x80032 stalin.sc:5576:192185 */ /* x80031 stalin.sc:5576:192189 */ /* x80030 stalin.sc:5576:192194 */ /* x80029 stalin.sc:5576:192213 */ t87244 = a22611; /* x80028 stalin.sc:5576:192195 */ if (f8526(t87244)==FALSE_TYPE) goto l16568; /* x80024 */ /* x80023 stalin.sc:5581:192357 */ /* x80022 stalin.sc:5581:192373 */ t87249 = a22611; /* x80021 stalin.sc:5581:192358 */ t87245 = f8629(t87249); /* x80020 stalin.sc:5577:192232 */ /* x80004 stalin.sc:5577:192226 */ t87246.tag = NATIVE_PROCEDURE_TYPE19169; t87247 = *((struct w49 *)(&t87245)); t87248 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t87246, t87247, t87248)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE19169: a22613 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x80019 stalin.sc:5578:192253 */ /* x80018 stalin.sc:5578:192257 */ /* x80017 stalin.sc:5578:192262 */ /* x80016 stalin.sc:5578:192273 */ t87250 = a22613; /* x80015 stalin.sc:5578:192263 */ if (f8229(t87250)==FALSE_TYPE) goto l16568; /* x80011 */ /* x80010 stalin.sc:5580:192324 */ /* x80009 stalin.sc:5580:192343 */ t87256 = a22613; /* x80008 stalin.sc:5580:192325 */ a36852 = t87256; /* x280077 */ /* x280076 */ t87257 = a36852; /* x280075 */ if (!((t87257.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31769]"); structure_ref_error();} t87251 = t87257.value.structure_type27692->s9; /* x80007 stalin.sc:5579:192284 */ a22600 = t87251; /* x79980 stalin.sc:5561:191723 */ /* x79979 stalin.sc:5561:191727 */ /* x79978 stalin.sc:5561:191734 */ t87252 = a22600; /* x79977 stalin.sc:5561:191728 */ if (!(f8147(t87252)==FALSE_TYPE)) goto l16568; /* x79974 */ /* x79967 stalin.sc:5562:191747 */ /* x79966 stalin.sc:5562:191761 */ t87253 = a22600; /* x79965 stalin.sc:5562:191748 */ if (f8148(t87253)==FALSE_TYPE) goto l16565; /* x79972 */ /* x79971 stalin.sc:5562:191789 */ /* x79970 stalin.sc:5562:191801 */ t87255 = a22600; /* x79969 stalin.sc:5562:191790 */ t87254 = f8153(t87255); /* x79968 stalin.sc:5562:191765 */ if (f9390(t87254)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE19476: p16311 = t87116.value.native_procedure_type19476; a27355 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x153443 stalin.sc:20980:734140 */ /* x153441 stalin.sc:20980:734149 */ t87258 = p16311->a27351; /* x153442 stalin.sc:20980:734151 */ t87259 = a27355; /* x153440 stalin.sc:20980:734141 */ t87260.tag = t87258; if ((f8137(t87260, t87259).tag)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE19506: p8838 = t87116.value.native_procedure_type19506; a22261 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x75461 stalin.sc:4639:156148 */ /* x75455 stalin.sc:4640:156169 */ /* x75454 stalin.sc:4640:156193 */ /* x75453 stalin.sc:4640:156215 */ t87265 = a22261; /* x75452 stalin.sc:4640:156194 */ a36444 = t87265; /* x278445 */ /* x278444 */ t87266 = a36444; /* x278443 */ if (!((t87266.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31361]"); structure_ref_error();} t87263 = t87266.value.structure_type27745->s0; /* x75451 stalin.sc:4640:156170 */ a40060 = t87263; /* x292909 */ /* x292908 */ t87264 = a40060; /* x292907 */ if (!((t87264.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34977]"); structure_ref_error();} t87261 = t87264.value.structure_type27698->s9; /* x75460 stalin.sc:4641:156226 */ /* x75459 stalin.sc:4642:156258 */ /* x75458 stalin.sc:4642:156299 */ t87269 = p8838->a22257; /* x75457 stalin.sc:4642:156259 */ a37837 = t87269; /* x284017 */ /* x284016 */ t87270 = a37837; /* x284015 */ if (!((t87270.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32754]"); structure_ref_error();} t87267 = t87270.value.structure_type27858->s0; /* x75456 stalin.sc:4641:156227 */ a40061 = t87267; /* x292913 */ /* x292912 */ t87268 = a40061; /* x292911 */ if (!((t87268.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34978]"); structure_ref_error();} t87262 = t87268.value.structure_type27698->s9; /* x75450 stalin.sc:4639:156149 */ if (f8999(t87261, t87262)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE19861: p12147 = t87116.value.native_procedure_type19861; a24366 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x108762 stalin.sc:11351:395787 */ /* x108761 stalin.sc:11351:395802 */ /* x108760 stalin.sc:11351:395824 */ t87278 = p12147->a24365; /* x108759 stalin.sc:11351:395803 */ a36901 = t87278; /* x280273 */ /* x280272 */ t87279 = a36901; /* x280271 */ if (!((t87279.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31818]"); structure_ref_error();} t87271 = t87279.value.structure_type27692->s8; /* x108758 */ /* x108757 */ /* x108756 */ /* x108755 */ /* x108754 */ /* x108753 */ /* x108752 */ /* x108728 */ /* x108727 stalin.sc:11351:395792 */ a24369 = t87271; h12150: /* x108751 stalin.sc:11352:395835 */ /* x108733 stalin.sc:11352:395840 */ /* x108732 stalin.sc:11352:395845 */ /* x108731 stalin.sc:11352:395853 */ t87272 = a24369; /* x108730 stalin.sc:11352:395846 */ if (!(f8581(t87272)==FALSE_TYPE)) goto l16565; /* x108749 */ /* x108748 stalin.sc:11353:395866 */ /* x108744 stalin.sc:11353:395871 */ t87273 = a24369; /* x108747 stalin.sc:11353:395874 */ /* x108746 stalin.sc:11353:395882 */ t87275 = a24366; /* x108745 stalin.sc:11353:395875 */ t87274 = f8682(t87275); /* x269455 stalin.sc:11353:395867 */ /* EQ: dispatching general to general */ if ((t87273.tag)==(t87274.tag)) switch (t87273.tag) {case FIXNUM_TYPE: if ((t87273.value.fixnum_type)==(t87274.value.fixnum_type)) goto l16568; break; case FLONUM_TYPE: if ((t87273.value.flonum_type)==(t87274.value.flonum_type)) goto l16568; break; case INPUT_PORT_TYPE: if ((t87273.value.input_port_type)==(t87274.value.input_port_type)) goto l16568; break; case OUTPUT_PORT_TYPE: if ((t87273.value.output_port_type)==(t87274.value.output_port_type)) goto l16568; break; case NATIVE_PROCEDURE_TYPE15963: if ((t87273.value.native_procedure_type15963)==(t87274.value.native_procedure_type15963)) goto l16568; break; case NATIVE_PROCEDURE_TYPE19067: if ((t87273.value.native_procedure_type19067)==(t87274.value.native_procedure_type19067)) goto l16568; break; case NATIVE_PROCEDURE_TYPE19068: if ((t87273.value.native_procedure_type19068)==(t87274.value.native_procedure_type19068)) goto l16568; break; case NATIVE_PROCEDURE_TYPE22459: if ((t87273.value.native_procedure_type22459)==(t87274.value.native_procedure_type22459)) goto l16568; break; case STRUCTURE_TYPE24753: if ((t87273.value.structure_type24753)==(t87274.value.structure_type24753)) goto l16568; break; case STRUCTURE_TYPE24757: if ((t87273.value.structure_type24757)==(t87274.value.structure_type24757)) goto l16568; break; case STRUCTURE_TYPE27501: if ((t87273.value.structure_type27501)==(t87274.value.structure_type27501)) goto l16568; break; case STRUCTURE_TYPE27510: if ((t87273.value.structure_type27510)==(t87274.value.structure_type27510)) goto l16568; break; case STRUCTURE_TYPE27621: if ((t87273.value.structure_type27621)==(t87274.value.structure_type27621)) goto l16568; break; case STRUCTURE_TYPE27650: if ((t87273.value.structure_type27650)==(t87274.value.structure_type27650)) goto l16568; break; case STRUCTURE_TYPE27669: if ((t87273.value.structure_type27669)==(t87274.value.structure_type27669)) goto l16568; break; case STRUCTURE_TYPE27673: if ((t87273.value.structure_type27673)==(t87274.value.structure_type27673)) goto l16568; break; case STRUCTURE_TYPE27692: if ((t87273.value.structure_type27692)==(t87274.value.structure_type27692)) goto l16568; break; case STRUCTURE_TYPE27694: if ((t87273.value.structure_type27694)==(t87274.value.structure_type27694)) goto l16568; break; case STRUCTURE_TYPE27698: if ((t87273.value.structure_type27698)==(t87274.value.structure_type27698)) goto l16568; break; case STRUCTURE_TYPE27745: if ((t87273.value.structure_type27745)==(t87274.value.structure_type27745)) goto l16568; break; case STRUCTURE_TYPE27747: if ((t87273.value.structure_type27747)==(t87274.value.structure_type27747)) goto l16568; break; case STRUCTURE_TYPE27750: if ((t87273.value.structure_type27750)==(t87274.value.structure_type27750)) goto l16568; break; case STRUCTURE_TYPE27753: if ((t87273.value.structure_type27753)==(t87274.value.structure_type27753)) goto l16568; break; case STRUCTURE_TYPE27756: if ((t87273.value.structure_type27756)==(t87274.value.structure_type27756)) goto l16568; break; case STRUCTURE_TYPE27761: if ((t87273.value.structure_type27761)==(t87274.value.structure_type27761)) goto l16568; break; case STRUCTURE_TYPE27769: if ((t87273.value.structure_type27769)==(t87274.value.structure_type27769)) goto l16568; break; case STRUCTURE_TYPE27776: if ((t87273.value.structure_type27776)==(t87274.value.structure_type27776)) goto l16568; break; case STRUCTURE_TYPE27779: if ((t87273.value.structure_type27779)==(t87274.value.structure_type27779)) goto l16568; break; case STRUCTURE_TYPE27858: if ((t87273.value.structure_type27858)==(t87274.value.structure_type27858)) goto l16568; break; case STRING_TYPE: if ((t87273.value.string_type)==(t87274.value.string_type)) goto l16568; break; case HEADED_VECTOR_TYPE27896: if ((t87273.value.headed_vector_type27896)==(t87274.value.headed_vector_type27896)) goto l16568; break; case EXTERNAL_SYMBOL_TYPE: if ((t87273.value.external_symbol_type)==(t87274.value.external_symbol_type)) goto l16568; break; case STRUCTURE_TYPE27908: if ((t87273.value.structure_type27908)==(t87274.value.structure_type27908)) goto l16568; break; default: goto l16568;} /* x108740 */ /* x108739 stalin.sc:11353:395892 */ /* x108738 stalin.sc:11353:395900 */ t87277 = a24369; /* x108737 stalin.sc:11353:395893 */ t87276 = f8682(t87277); /* x108736 stalin.sc:11353:395887 */ a24369 = t87276; goto h12150; break; case NATIVE_PROCEDURE_TYPE19867: p8400 = t87116.value.native_procedure_type19867; a21984 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} e8400 = (struct p8400 *)alloca(sizeof(struct p8400)); if (e8400==NULL) {backtrace("stalin.sc", 3876, 131338); out_of_memory_error();} e8400->p8395 = p8400; e8400->a21984 = a21984; /* x71940 stalin.sc:3877:131353 */ /* x71939 stalin.sc:3877:131357 */ /* x71938 stalin.sc:3877:131362 */ /* x71937 stalin.sc:3877:131385 */ t87280 = e8400->a21984; /* x71936 stalin.sc:3877:131363 */ if (f6984(t87280)==FALSE_TYPE) goto l16568; p8401 = e8400; /* x71932 */ /* x71931 stalin.sc:3885:131689 */ /* x71930 stalin.sc:3885:131704 */ /* x71929 stalin.sc:3885:131716 */ /* x71928 stalin.sc:3885:131735 */ t87288 = p8401->p8395->a21981; /* x71927 stalin.sc:3885:131717 */ a36843 = t87288; /* x280041 */ /* x280040 */ t87289 = a36843; /* x280039 */ if (!((t87289.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31760]"); structure_ref_error();} t87287 = t87289.value.structure_type27692->s9; /* x71926 stalin.sc:3885:131705 */ t87286 = f8153(t87287); /* x71925 stalin.sc:3885:131690 */ t87282 = f8984(t87286); /* x71924 stalin.sc:3878:131403 */ t87281 = p8401; /* x71901 stalin.sc:3878:131397 */ t87283.tag = NATIVE_PROCEDURE_TYPE19873; t87283.value.native_procedure_type19873 = t87281; t87284 = *((struct w49 *)(&t87282)); t87285 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t87283, t87284, t87285)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE19873: p8402 = t87116.value.native_procedure_type19873; a21986 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x71923 stalin.sc:3881:131551 */ /* x71922 stalin.sc:3881:131555 */ /* x71921 stalin.sc:3881:131560 */ /* x71920 stalin.sc:3881:131579 */ t87290 = a21986; /* x71919 stalin.sc:3881:131561 */ if (f8526(t87290)==FALSE_TYPE) goto l16568; p8403 = p8402; /* x71915 */ /* x71914 stalin.sc:3884:131664 */ /* x71913 stalin.sc:3884:131675 */ t87296 = a21986; /* x71912 stalin.sc:3884:131665 */ t87292 = f8951(t87296); /* x71911 stalin.sc:3882:131596 */ t87291 = p8403; /* x71904 stalin.sc:3882:131590 */ t87293.tag = NATIVE_PROCEDURE_TYPE19875; t87293.value.native_procedure_type19875 = t87291; t87294 = *((struct w49 *)(&t87292)); t87295 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t87293, t87294, t87295)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE19875: p8404 = t87116.value.native_procedure_type19875; a21988 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x71910 stalin.sc:3883:131615 */ /* x71908 stalin.sc:3883:131627 */ /* x71907 stalin.sc:3883:131651 */ t87299 = p8404->a21984; /* x71906 stalin.sc:3883:131628 */ a40062 = t87299; /* x292917 */ /* x292916 */ t87300 = a40062; /* x292915 */ if (!((t87300.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34979]"); structure_ref_error();} t87297 = t87300.value.structure_type27698->s9; /* x71909 stalin.sc:3883:131654 */ t87298 = a21988; /* x71905 stalin.sc:3883:131616 */ if (f8736(t87297, t87298)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE20068: a26264 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x135052 stalin.sc:17245:602921 */ /* x135051 stalin.sc:17245:602925 */ /* x135050 stalin.sc:17245:602937 */ t87301 = a26264; /* x135049 stalin.sc:17245:602926 */ if (!(f7682(t87301)==FALSE_TYPE)) goto l16568; /* x135046 */ /* x135045 stalin.sc:17245:602953 */ t87302 = a26264; /* x135044 stalin.sc:17245:602941 */ if (f8793(t87302)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE20084: p14861 = t87116.value.native_procedure_type20084; a26258 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x134978 stalin.sc:17234:602502 */ /* x134976 stalin.sc:17234:602507 */ t87303 = a26258; /* x134977 stalin.sc:17234:602509 */ t87304 = p14861->a26256; /* x268767 stalin.sc:17234:602503 */ /* EQ: dispatching general to general */ if (!((t87303.tag)==(t87304.tag))) goto l16565; switch (t87303.tag) {case FIXNUM_TYPE: if (!((t87303.value.fixnum_type)==(t87304.value.fixnum_type))) goto l16565; break; case FLONUM_TYPE: if (!((t87303.value.flonum_type)==(t87304.value.flonum_type))) goto l16565; break; case INPUT_PORT_TYPE: if (!((t87303.value.input_port_type)==(t87304.value.input_port_type))) goto l16565; break; case OUTPUT_PORT_TYPE: if (!((t87303.value.output_port_type)==(t87304.value.output_port_type))) goto l16565; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t87303.value.native_procedure_type15963)==(t87304.value.native_procedure_type15963))) goto l16565; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t87303.value.native_procedure_type19067)==(t87304.value.native_procedure_type19067))) goto l16565; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t87303.value.native_procedure_type19068)==(t87304.value.native_procedure_type19068))) goto l16565; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t87303.value.native_procedure_type22459)==(t87304.value.native_procedure_type22459))) goto l16565; break; case STRUCTURE_TYPE24753: if (!((t87303.value.structure_type24753)==(t87304.value.structure_type24753))) goto l16565; break; case STRUCTURE_TYPE24757: if (!((t87303.value.structure_type24757)==(t87304.value.structure_type24757))) goto l16565; break; case STRUCTURE_TYPE27501: if (!((t87303.value.structure_type27501)==(t87304.value.structure_type27501))) goto l16565; break; case STRUCTURE_TYPE27510: if (!((t87303.value.structure_type27510)==(t87304.value.structure_type27510))) goto l16565; break; case STRUCTURE_TYPE27621: if (!((t87303.value.structure_type27621)==(t87304.value.structure_type27621))) goto l16565; break; case STRUCTURE_TYPE27650: if (!((t87303.value.structure_type27650)==(t87304.value.structure_type27650))) goto l16565; break; case STRUCTURE_TYPE27669: if (!((t87303.value.structure_type27669)==(t87304.value.structure_type27669))) goto l16565; break; case STRUCTURE_TYPE27673: if (!((t87303.value.structure_type27673)==(t87304.value.structure_type27673))) goto l16565; break; case STRUCTURE_TYPE27692: if (!((t87303.value.structure_type27692)==(t87304.value.structure_type27692))) goto l16565; break; case STRUCTURE_TYPE27694: if (!((t87303.value.structure_type27694)==(t87304.value.structure_type27694))) goto l16565; break; case STRUCTURE_TYPE27698: if (!((t87303.value.structure_type27698)==(t87304.value.structure_type27698))) goto l16565; break; case STRUCTURE_TYPE27745: if (!((t87303.value.structure_type27745)==(t87304.value.structure_type27745))) goto l16565; break; case STRUCTURE_TYPE27747: if (!((t87303.value.structure_type27747)==(t87304.value.structure_type27747))) goto l16565; break; case STRUCTURE_TYPE27750: if (!((t87303.value.structure_type27750)==(t87304.value.structure_type27750))) goto l16565; break; case STRUCTURE_TYPE27753: if (!((t87303.value.structure_type27753)==(t87304.value.structure_type27753))) goto l16565; break; case STRUCTURE_TYPE27756: if (!((t87303.value.structure_type27756)==(t87304.value.structure_type27756))) goto l16565; break; case STRUCTURE_TYPE27761: if (!((t87303.value.structure_type27761)==(t87304.value.structure_type27761))) goto l16565; break; case STRUCTURE_TYPE27769: if (!((t87303.value.structure_type27769)==(t87304.value.structure_type27769))) goto l16565; break; case STRUCTURE_TYPE27776: if (!((t87303.value.structure_type27776)==(t87304.value.structure_type27776))) goto l16565; break; case STRUCTURE_TYPE27779: if (!((t87303.value.structure_type27779)==(t87304.value.structure_type27779))) goto l16565; break; case STRUCTURE_TYPE27858: if (!((t87303.value.structure_type27858)==(t87304.value.structure_type27858))) goto l16565; break; case STRING_TYPE: if (!((t87303.value.string_type)==(t87304.value.string_type))) goto l16565; break; case HEADED_VECTOR_TYPE27896: if (!((t87303.value.headed_vector_type27896)==(t87304.value.headed_vector_type27896))) goto l16565; break; case EXTERNAL_SYMBOL_TYPE: if (!((t87303.value.external_symbol_type)==(t87304.value.external_symbol_type))) goto l16565; break; case STRUCTURE_TYPE27908: if (!((t87303.value.structure_type27908)==(t87304.value.structure_type27908))) goto l16565; break; default:;} break; case NATIVE_PROCEDURE_TYPE20090: a26301 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x135486 stalin.sc:17323:605909 */ /* x135485 stalin.sc:17323:605913 */ /* x135484 stalin.sc:17323:605925 */ t87305 = a26301; /* x135483 stalin.sc:17323:605914 */ if (!(f7682(t87305)==FALSE_TYPE)) goto l16568; /* x135480 */ /* x135479 stalin.sc:17323:605941 */ t87306 = a26301; /* x135478 stalin.sc:17323:605929 */ if (f8793(t87306)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE20207: a26328 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x135724 stalin.sc:17359:607482 */ /* x135723 stalin.sc:17359:607486 */ /* x135722 stalin.sc:17359:607498 */ t87307 = a26328; /* x135721 stalin.sc:17359:607487 */ if (!(f7682(t87307)==FALSE_TYPE)) goto l16568; /* x135718 */ /* x135717 stalin.sc:17359:607514 */ t87308 = a26328; /* x135716 stalin.sc:17359:607502 */ if (f8793(t87308)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE20215: a26318 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x135645 stalin.sc:17346:606925 */ /* x135644 stalin.sc:17346:606929 */ /* x135643 stalin.sc:17346:606941 */ t87309 = a26318; /* x135642 stalin.sc:17346:606930 */ if (!(f7682(t87309)==FALSE_TYPE)) goto l16568; /* x135639 */ /* x135638 stalin.sc:17346:606957 */ t87310 = a26318; /* x135637 stalin.sc:17346:606945 */ if (f8793(t87310)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE20224: a26308 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x135553 stalin.sc:17335:606402 */ /* x135552 stalin.sc:17335:606406 */ /* x135551 stalin.sc:17335:606418 */ t87311 = a26308; /* x135550 stalin.sc:17335:606407 */ if (!(f7682(t87311)==FALSE_TYPE)) goto l16568; /* x135547 */ /* x135546 stalin.sc:17335:606434 */ t87312 = a26308; /* x135545 stalin.sc:17335:606422 */ if (f8793(t87312)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE20244: p14885 = t87116.value.native_procedure_type20244; a26278 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x135218 stalin.sc:17270:604059 */ /* x135217 stalin.sc:17270:604063 */ /* x135216 stalin.sc:17270:604068 */ /* x135215 stalin.sc:17270:604075 */ /* x135213 stalin.sc:17270:604087 */ t87314 = a26278; /* x135214 stalin.sc:17270:604089 */ t87315 = p14885->p14848->a26250; /* x135212 stalin.sc:17270:604076 */ t87313 = f14564(t87314, t87315); /* x268754 stalin.sc:17270:604069 */ if (!((t87313&1)==1)) {backtrace("stalin.sc", 17270, 604068); zero_error();} if (!(((int)(((int)t87313)>>1))==0)) goto l16568; p14886 = p14885; /* x135207 */ /* x135206 stalin.sc:17271:604107 */ /* x135204 stalin.sc:17271:604119 */ t87317 = a26278; /* x135205 stalin.sc:17271:604121 */ t87318 = p14886->a26253; /* x135203 stalin.sc:17271:604108 */ t87316 = f14564(t87317, t87318); /* x268756 stalin.sc:17271:604101 */ if (!((t87316&1)==1)) {backtrace_internal("[inside PROMOTE! 14886]"); zero_error();} if (!(((int)(((int)t87316)>>1))==0)) goto l16565; break; case NATIVE_PROCEDURE_TYPE20247: p14888 = t87116.value.native_procedure_type20247; a26280 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x135266 stalin.sc:17276:604189 */ /* x135265 stalin.sc:17276:604193 */ /* x135264 stalin.sc:17276:604205 */ t87319 = a26280; /* x135263 stalin.sc:17276:604194 */ if (!(f7682(t87319)==FALSE_TYPE)) goto l16568; p14889 = p14888; /* x135260 */ /* x135259 stalin.sc:17277:604216 */ /* x135258 stalin.sc:17277:604229 */ t87320 = a26280; /* x135257 stalin.sc:17277:604217 */ if (!(f8793(t87320)==FALSE_TYPE)) goto l16568; p14890 = p14889; /* x135254 */ /* x135249 stalin.sc:17278:604243 */ /* x135247 stalin.sc:17278:604255 */ t87323 = a26280; /* x135248 stalin.sc:17278:604257 */ t87324 = p14890->p14848->a26250; /* x135246 stalin.sc:17278:604244 */ t87321 = f14564(t87323, t87324); /* x135253 stalin.sc:17278:604260 */ /* x135251 stalin.sc:17278:604272 */ t87325 = a26280; /* x135252 stalin.sc:17278:604274 */ t87326 = p14890->a26253; /* x135250 stalin.sc:17278:604261 */ t87322 = f14564(t87325, t87326); /* x268751 stalin.sc:17278:604241 */ if (!((t87321&1)==1)) {backtrace_internal("[inside PROMOTE! 14890]"); eql_error();} if (!((t87322&1)==1)) {backtrace_internal("[inside PROMOTE! 14890]"); eql_error();} if (!(((int)(((int)t87321)>>1))==((int)(((int)t87322)>>1)))) goto l16565; break; case NATIVE_PROCEDURE_TYPE20252: p14891 = t87116.value.native_procedure_type20252; a26283 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x135289 stalin.sc:17281:604314 */ /* x135288 stalin.sc:17281:604318 */ /* x135287 stalin.sc:17281:604323 */ /* x135286 stalin.sc:17281:604330 */ /* x135284 stalin.sc:17281:604342 */ t87328 = a26283; /* x135285 stalin.sc:17281:604344 */ t87329 = p14891->p14848->a26250; /* x135283 stalin.sc:17281:604331 */ t87327 = f14564(t87328, t87329); /* x268748 stalin.sc:17281:604324 */ if (!((t87327&1)==1)) {backtrace("stalin.sc", 17281, 604323); zero_error();} if (!(((int)(((int)t87327)>>1))==0)) goto l16568; p14892 = p14891; /* x135278 */ /* x135277 stalin.sc:17282:604364 */ /* x135275 stalin.sc:17282:604376 */ t87331 = a26283; /* x135276 stalin.sc:17282:604378 */ t87332 = p14892->a26253; /* x135274 stalin.sc:17282:604365 */ t87330 = f14564(t87331, t87332); /* x268750 stalin.sc:17282:604358 */ if (!((t87330&1)==1)) {backtrace_internal("[inside PROMOTE! 14892]"); zero_error();} if (!(((int)(((int)t87330)>>1))==0)) goto l16565; break; case NATIVE_PROCEDURE_TYPE20484: a26655 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x142221 stalin.sc:18499:649862 */ /* x142220 stalin.sc:18499:649866 */ /* x142219 stalin.sc:18499:649878 */ t87333 = a26655; /* x142218 stalin.sc:18499:649867 */ if (!(f7682(t87333)==FALSE_TYPE)) goto l16568; /* x142215 */ /* x142214 stalin.sc:18499:649894 */ t87334 = a26655; /* x142213 stalin.sc:18499:649882 */ if (f8793(t87334)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE20540: a26648 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x142081 stalin.sc:18473:648953 */ /* x142080 stalin.sc:18473:648957 */ /* x142079 stalin.sc:18473:648969 */ t87335 = a26648; /* x142078 stalin.sc:18473:648958 */ if (!(f7682(t87335)==FALSE_TYPE)) goto l16568; /* x142075 */ /* x142074 stalin.sc:18473:648985 */ t87336 = a26648; /* x142073 stalin.sc:18473:648973 */ if (f8793(t87336)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE20544: a26643 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x141920 stalin.sc:18450:648049 */ /* x141919 stalin.sc:18450:648053 */ /* x141918 stalin.sc:18450:648065 */ t87337 = a26643; /* x141917 stalin.sc:18450:648054 */ if (!(f7682(t87337)==FALSE_TYPE)) goto l16568; /* x141914 */ /* x141913 stalin.sc:18450:648081 */ t87338 = a26643; /* x141912 stalin.sc:18450:648069 */ if (f8793(t87338)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE20556: a26637 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x141707 stalin.sc:18397:646118 */ /* x141706 stalin.sc:18397:646122 */ /* x141705 stalin.sc:18397:646134 */ t87339 = a26637; /* x141704 stalin.sc:18397:646123 */ if (!(f7682(t87339)==FALSE_TYPE)) goto l16568; /* x141701 */ /* x141700 stalin.sc:18397:646150 */ t87340 = a26637; /* x141699 stalin.sc:18397:646138 */ if (f8793(t87340)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE20560: p15410 = t87116.value.native_procedure_type20560; a26608 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x141183 stalin.sc:18271:641776 */ /* x141182 stalin.sc:18271:641780 */ /* x141181 stalin.sc:18271:641792 */ t87341 = a26608; /* x141180 stalin.sc:18271:641781 */ if (!(f7682(t87341)==FALSE_TYPE)) goto l16568; p15411 = p15410; /* x141177 */ /* x141176 stalin.sc:18272:641802 */ /* x141175 stalin.sc:18272:641815 */ t87342 = a26608; /* x141174 stalin.sc:18272:641803 */ if (!(f8793(t87342)==FALSE_TYPE)) goto l16568; p15412 = p15411; /* x141171 */ /* x141166 stalin.sc:18273:641828 */ /* x141164 stalin.sc:18273:641840 */ t87345 = a26608; /* x141165 stalin.sc:18273:641842 */ t87346 = p15412->p15368->p15355->a26585; /* x141163 stalin.sc:18273:641829 */ t87343 = f14564(t87345, t87346); /* x141170 stalin.sc:18273:641845 */ /* x141168 stalin.sc:18273:641857 */ t87347 = a26608; /* x141169 stalin.sc:18273:641859 */ t87348 = p15412->a26591; /* x141167 stalin.sc:18273:641846 */ t87344 = f14564(t87347, t87348); /* x268589 stalin.sc:18273:641826 */ if (!((t87343&1)==1)) {backtrace_internal("[inside MOVE-GENERAL 15412]"); eql_error();} if (!((t87344&1)==1)) {backtrace_internal("[inside MOVE-GENERAL 15412]"); eql_error();} if (!(((int)(((int)t87343)>>1))==((int)(((int)t87344)>>1)))) goto l16565; break; case NATIVE_PROCEDURE_TYPE20563: a26632 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x141656 stalin.sc:18280:642053 */ /* x141655 stalin.sc:18280:642057 */ /* x141654 stalin.sc:18280:642069 */ t87349 = a26632; /* x141653 stalin.sc:18280:642058 */ if (!(f7682(t87349)==FALSE_TYPE)) goto l16568; /* x141650 */ /* x141649 stalin.sc:18281:642079 */ /* x141648 stalin.sc:18281:642092 */ t87350 = a26632; /* x141647 stalin.sc:18281:642080 */ if (!(f8793(t87350)==FALSE_TYPE)) goto l16568; /* x141644 */ /* x141643 stalin.sc:18282:642102 */ /* x141642 stalin.sc:18282:642116 */ t87351 = a26632; /* x141641 stalin.sc:18282:642103 */ if (!(f7683(t87351)==FALSE_TYPE)) goto l16568; /* x141638 */ /* x141637 stalin.sc:18287:642331 */ t87352 = a26632; /* x141636 stalin.sc:18287:642307 */ if (f7754(t87352)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE20583: p15417 = t87116.value.native_procedure_type20583; a26613 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x141231 stalin.sc:18295:642606 */ /* x141230 stalin.sc:18295:642610 */ /* x141229 stalin.sc:18295:642615 */ /* x141228 stalin.sc:18295:642622 */ /* x141226 stalin.sc:18295:642634 */ t87354 = a26613; /* x141227 stalin.sc:18295:642636 */ t87355 = p15417->p15368->p15355->a26585; /* x141225 stalin.sc:18295:642623 */ t87353 = f14564(t87354, t87355); /* x268584 stalin.sc:18295:642616 */ if (!((t87353&1)==1)) {backtrace("stalin.sc", 18295, 642615); zero_error();} if (!(((int)(((int)t87353)>>1))==0)) goto l16568; p15418 = p15417; /* x141220 */ /* x141219 stalin.sc:18296:642656 */ /* x141217 stalin.sc:18296:642668 */ t87357 = a26613; /* x141218 stalin.sc:18296:642670 */ t87358 = p15418->a26591; /* x141216 stalin.sc:18296:642657 */ t87356 = f14564(t87357, t87358); /* x268586 stalin.sc:18296:642650 */ if (!((t87356&1)==1)) {backtrace_internal("[inside MOVE-GENERAL 15418]"); zero_error();} if (!(((int)(((int)t87356)>>1))==0)) goto l16565; break; case NATIVE_PROCEDURE_TYPE20604: a26604 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x141072 stalin.sc:18253:641163 */ /* x141071 stalin.sc:18253:641167 */ /* x141070 stalin.sc:18253:641179 */ t87359 = a26604; /* x141069 stalin.sc:18253:641168 */ if (!(f7682(t87359)==FALSE_TYPE)) goto l16568; /* x141066 */ /* x141065 stalin.sc:18253:641195 */ t87360 = a26604; /* x141064 stalin.sc:18253:641183 */ if (f8793(t87360)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE20615: p15398 = t87116.value.native_procedure_type20615; a26602 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x140921 stalin.sc:18235:640414 */ /* x140919 stalin.sc:18235:640419 */ t87361 = a26602; /* x140920 stalin.sc:18235:640421 */ t87362 = p15398->a26600; /* x268591 stalin.sc:18235:640415 */ /* EQ: dispatching general to general */ if (!((t87361.tag)==(t87362.tag))) goto l16565; switch (t87361.tag) {case FIXNUM_TYPE: if (!((t87361.value.fixnum_type)==(t87362.value.fixnum_type))) goto l16565; break; case FLONUM_TYPE: if (!((t87361.value.flonum_type)==(t87362.value.flonum_type))) goto l16565; break; case INPUT_PORT_TYPE: if (!((t87361.value.input_port_type)==(t87362.value.input_port_type))) goto l16565; break; case OUTPUT_PORT_TYPE: if (!((t87361.value.output_port_type)==(t87362.value.output_port_type))) goto l16565; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t87361.value.native_procedure_type15963)==(t87362.value.native_procedure_type15963))) goto l16565; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t87361.value.native_procedure_type19067)==(t87362.value.native_procedure_type19067))) goto l16565; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t87361.value.native_procedure_type19068)==(t87362.value.native_procedure_type19068))) goto l16565; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t87361.value.native_procedure_type22459)==(t87362.value.native_procedure_type22459))) goto l16565; break; case STRUCTURE_TYPE24753: if (!((t87361.value.structure_type24753)==(t87362.value.structure_type24753))) goto l16565; break; case STRUCTURE_TYPE24757: if (!((t87361.value.structure_type24757)==(t87362.value.structure_type24757))) goto l16565; break; case STRUCTURE_TYPE27501: if (!((t87361.value.structure_type27501)==(t87362.value.structure_type27501))) goto l16565; break; case STRUCTURE_TYPE27510: if (!((t87361.value.structure_type27510)==(t87362.value.structure_type27510))) goto l16565; break; case STRUCTURE_TYPE27621: if (!((t87361.value.structure_type27621)==(t87362.value.structure_type27621))) goto l16565; break; case STRUCTURE_TYPE27650: if (!((t87361.value.structure_type27650)==(t87362.value.structure_type27650))) goto l16565; break; case STRUCTURE_TYPE27669: if (!((t87361.value.structure_type27669)==(t87362.value.structure_type27669))) goto l16565; break; case STRUCTURE_TYPE27673: if (!((t87361.value.structure_type27673)==(t87362.value.structure_type27673))) goto l16565; break; case STRUCTURE_TYPE27692: if (!((t87361.value.structure_type27692)==(t87362.value.structure_type27692))) goto l16565; break; case STRUCTURE_TYPE27694: if (!((t87361.value.structure_type27694)==(t87362.value.structure_type27694))) goto l16565; break; case STRUCTURE_TYPE27698: if (!((t87361.value.structure_type27698)==(t87362.value.structure_type27698))) goto l16565; break; case STRUCTURE_TYPE27745: if (!((t87361.value.structure_type27745)==(t87362.value.structure_type27745))) goto l16565; break; case STRUCTURE_TYPE27747: if (!((t87361.value.structure_type27747)==(t87362.value.structure_type27747))) goto l16565; break; case STRUCTURE_TYPE27750: if (!((t87361.value.structure_type27750)==(t87362.value.structure_type27750))) goto l16565; break; case STRUCTURE_TYPE27753: if (!((t87361.value.structure_type27753)==(t87362.value.structure_type27753))) goto l16565; break; case STRUCTURE_TYPE27756: if (!((t87361.value.structure_type27756)==(t87362.value.structure_type27756))) goto l16565; break; case STRUCTURE_TYPE27761: if (!((t87361.value.structure_type27761)==(t87362.value.structure_type27761))) goto l16565; break; case STRUCTURE_TYPE27769: if (!((t87361.value.structure_type27769)==(t87362.value.structure_type27769))) goto l16565; break; case STRUCTURE_TYPE27776: if (!((t87361.value.structure_type27776)==(t87362.value.structure_type27776))) goto l16565; break; case STRUCTURE_TYPE27779: if (!((t87361.value.structure_type27779)==(t87362.value.structure_type27779))) goto l16565; break; case STRUCTURE_TYPE27858: if (!((t87361.value.structure_type27858)==(t87362.value.structure_type27858))) goto l16565; break; case STRING_TYPE: if (!((t87361.value.string_type)==(t87362.value.string_type))) goto l16565; break; case HEADED_VECTOR_TYPE27896: if (!((t87361.value.headed_vector_type27896)==(t87362.value.headed_vector_type27896))) goto l16565; break; case EXTERNAL_SYMBOL_TYPE: if (!((t87361.value.external_symbol_type)==(t87362.value.external_symbol_type))) goto l16565; break; case STRUCTURE_TYPE27908: if (!((t87361.value.structure_type27908)==(t87362.value.structure_type27908))) goto l16565; break; default:;} break; case NATIVE_PROCEDURE_TYPE20817: a25748 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x128129 stalin.sc:15852:552673 */ /* x128124 stalin.sc:15852:552678 */ /* x128123 stalin.sc:15852:552683 */ /* x128122 stalin.sc:15852:552701 */ /* x128121 stalin.sc:15852:552713 */ t87365 = a25748; /* x128120 stalin.sc:15852:552702 */ t87363 = f8619(t87365); /* x128119 stalin.sc:15852:552684 */ t87364 = *((struct w49 *)(&t87363)); if (!(f13035(t87364)==FALSE_TYPE)) goto l16565; /* x128127 */ /* x128126 stalin.sc:15853:552744 */ t87366 = a25748; /* x128125 stalin.sc:15853:552724 */ if (f14226(t87366)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE20926: a27778 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x156393 stalin.sc:21675:759700 */ /* x156392 stalin.sc:21675:759704 */ /* x156391 stalin.sc:21675:759716 */ t87367 = a27778; /* x156390 stalin.sc:21675:759705 */ if (!(f7682(t87367)==FALSE_TYPE)) goto l16568; /* x156387 */ /* x156386 stalin.sc:21675:759732 */ t87368 = a27778; /* x156385 stalin.sc:21675:759720 */ if (f8793(t87368)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE20949: a27771 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x156224 stalin.sc:21643:758281 */ /* x156223 stalin.sc:21643:758285 */ /* x156222 stalin.sc:21643:758297 */ t87369 = a27771; /* x156221 stalin.sc:21643:758286 */ if (!(f7682(t87369)==FALSE_TYPE)) goto l16568; /* x156218 */ /* x156217 stalin.sc:21643:758313 */ t87370 = a27771; /* x156216 stalin.sc:21643:758301 */ if (f8793(t87370)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE20963: p16545 = t87116.value.native_procedure_type20963; a27751 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x155699 stalin.sc:21551:755231 */ /* x155698 stalin.sc:21551:755235 */ /* x155697 stalin.sc:21551:755247 */ t87371 = a27751; /* x155696 stalin.sc:21551:755236 */ if (!(f7682(t87371)==FALSE_TYPE)) goto l16568; p16546 = p16545; /* x155693 */ /* x155692 stalin.sc:21552:755259 */ /* x155691 stalin.sc:21552:755272 */ t87372 = a27751; /* x155690 stalin.sc:21552:755260 */ if (!(f8793(t87372)==FALSE_TYPE)) goto l16568; p16547 = p16546; /* x155687 */ /* x155682 stalin.sc:21553:755287 */ /* x155680 stalin.sc:21553:755299 */ t87375 = a27751; /* x155681 stalin.sc:21553:755301 */ t87376 = p16547->a27733; /* x155679 stalin.sc:21553:755288 */ t87373 = f14564(t87375, t87376); /* x155686 stalin.sc:21553:755305 */ /* x155684 stalin.sc:21553:755317 */ t87377 = a27751; /* x155685 stalin.sc:21553:755319 */ t87378 = p16547->a27735; /* x155683 stalin.sc:21553:755306 */ t87374 = f14564(t87377, t87378); /* x268290 stalin.sc:21553:755285 */ if (!((t87373&1)==1)) {backtrace_internal("[inside top level 16547]"); eql_error();} if (!((t87374&1)==1)) {backtrace_internal("[inside top level 16547]"); eql_error();} if (!(((int)(((int)t87373)>>1))==((int)(((int)t87374)>>1)))) goto l16565; break; case NATIVE_PROCEDURE_TYPE20987: a27745 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x155423 stalin.sc:21486:752311 */ /* x155422 stalin.sc:21486:752315 */ /* x155421 stalin.sc:21486:752327 */ t87379 = a27745; /* x155420 stalin.sc:21486:752316 */ if (!(f7682(t87379)==FALSE_TYPE)) goto l16568; /* x155417 */ /* x155416 stalin.sc:21486:752343 */ t87380 = a27745; /* x155415 stalin.sc:21486:752331 */ if (f8793(t87380)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE22567: a25753 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x128257 stalin.sc:15875:553470 */ /* x128255 stalin.sc:15875:553480 */ /* x128256 stalin.sc:15878:553573 */ t87381 = a25753; /* x128246 stalin.sc:15875:553471 */ t87382.tag = NATIVE_PROCEDURE_TYPE22743; if (f8146(t87382, t87381)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE22568: a25752 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x128239 stalin.sc:15872:553385 */ /* x128237 stalin.sc:15872:553395 */ /* x128238 stalin.sc:15872:553408 */ t87383 = a25752; /* x128236 stalin.sc:15872:553386 */ t87384.tag = NATIVE_PROCEDURE_TYPE6835; if (f8146(t87384, t87383)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE22683: a21089 = t87117; if (!(t87118>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} a21090 = t87118->s0; if (!((t87118->s1.tag)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} e7150 = (struct p7150 *)alloca(sizeof(struct p7150)); if (e7150==NULL) {backtrace("stalin.sc", 1155, 37752); out_of_memory_error();} e7150->a21090 = a21090; /* x60234 stalin.sc:1155:37767 */ /* x60233 stalin.sc:1155:37801 */ t87386 = a21089; /* x60232 stalin.sc:1155:37774 */ t87385 = e7150; /* x60227 stalin.sc:1155:37768 */ t87387.tag = NATIVE_PROCEDURE_TYPE22684; t87387.value.native_procedure_type22684 = t87385; t87388 = t87386; t87389 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t87387, t87388, t87389)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE22684: p7151 = t87116.value.native_procedure_type22684; a21091 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x60231 stalin.sc:1155:37786 */ /* x60229 stalin.sc:1155:37795 */ t87390 = a21091; /* x60230 stalin.sc:1155:37797 */ t87391 = p7151->a21090; /* x60228 stalin.sc:1155:37787 */ if (f8033(t87390, t87391)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE22690: a24910 = t87117; if (!(t87118>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} a24911 = t87118->s0; if (!((t87118->s1.tag)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x115038 stalin.sc:12924:452429 */ /* x115034 stalin.sc:12924:452434 */ /* x115033 stalin.sc:12924:452456 */ t87394 = a24910; /* x115032 stalin.sc:12924:452435 */ t87392 = f12820(t87394); /* x115037 stalin.sc:12925:452464 */ /* x115036 stalin.sc:12925:452486 */ t87395 = a24911; /* x115035 stalin.sc:12925:452465 */ t87393 = f12820(t87395); /* x269299 stalin.sc:12924:452430 */ /* EQ: dispatching general to general */ if (!((t87392.tag)==(t87393.tag))) goto l16565; switch (t87392.tag) {case FIXNUM_TYPE: if (!((t87392.value.fixnum_type)==(t87393.value.fixnum_type))) goto l16565; break; case FLONUM_TYPE: if (!((t87392.value.flonum_type)==(t87393.value.flonum_type))) goto l16565; break; case INPUT_PORT_TYPE: if (!((t87392.value.input_port_type)==(t87393.value.input_port_type))) goto l16565; break; case OUTPUT_PORT_TYPE: if (!((t87392.value.output_port_type)==(t87393.value.output_port_type))) goto l16565; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t87392.value.native_procedure_type15963)==(t87393.value.native_procedure_type15963))) goto l16565; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t87392.value.native_procedure_type19067)==(t87393.value.native_procedure_type19067))) goto l16565; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t87392.value.native_procedure_type19068)==(t87393.value.native_procedure_type19068))) goto l16565; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t87392.value.native_procedure_type22459)==(t87393.value.native_procedure_type22459))) goto l16565; break; case STRUCTURE_TYPE24753: if (!((t87392.value.structure_type24753)==(t87393.value.structure_type24753))) goto l16565; break; case STRUCTURE_TYPE24757: if (!((t87392.value.structure_type24757)==(t87393.value.structure_type24757))) goto l16565; break; case STRUCTURE_TYPE27501: if (!((t87392.value.structure_type27501)==(t87393.value.structure_type27501))) goto l16565; break; case STRUCTURE_TYPE27510: if (!((t87392.value.structure_type27510)==(t87393.value.structure_type27510))) goto l16565; break; case STRUCTURE_TYPE27621: if (!((t87392.value.structure_type27621)==(t87393.value.structure_type27621))) goto l16565; break; case STRUCTURE_TYPE27650: if (!((t87392.value.structure_type27650)==(t87393.value.structure_type27650))) goto l16565; break; case STRUCTURE_TYPE27669: if (!((t87392.value.structure_type27669)==(t87393.value.structure_type27669))) goto l16565; break; case STRUCTURE_TYPE27673: if (!((t87392.value.structure_type27673)==(t87393.value.structure_type27673))) goto l16565; break; case STRUCTURE_TYPE27692: if (!((t87392.value.structure_type27692)==(t87393.value.structure_type27692))) goto l16565; break; case STRUCTURE_TYPE27694: if (!((t87392.value.structure_type27694)==(t87393.value.structure_type27694))) goto l16565; break; case STRUCTURE_TYPE27698: if (!((t87392.value.structure_type27698)==(t87393.value.structure_type27698))) goto l16565; break; case STRUCTURE_TYPE27745: if (!((t87392.value.structure_type27745)==(t87393.value.structure_type27745))) goto l16565; break; case STRUCTURE_TYPE27747: if (!((t87392.value.structure_type27747)==(t87393.value.structure_type27747))) goto l16565; break; case STRUCTURE_TYPE27750: if (!((t87392.value.structure_type27750)==(t87393.value.structure_type27750))) goto l16565; break; case STRUCTURE_TYPE27753: if (!((t87392.value.structure_type27753)==(t87393.value.structure_type27753))) goto l16565; break; case STRUCTURE_TYPE27756: if (!((t87392.value.structure_type27756)==(t87393.value.structure_type27756))) goto l16565; break; case STRUCTURE_TYPE27761: if (!((t87392.value.structure_type27761)==(t87393.value.structure_type27761))) goto l16565; break; case STRUCTURE_TYPE27769: if (!((t87392.value.structure_type27769)==(t87393.value.structure_type27769))) goto l16565; break; case STRUCTURE_TYPE27776: if (!((t87392.value.structure_type27776)==(t87393.value.structure_type27776))) goto l16565; break; case STRUCTURE_TYPE27779: if (!((t87392.value.structure_type27779)==(t87393.value.structure_type27779))) goto l16565; break; case STRUCTURE_TYPE27858: if (!((t87392.value.structure_type27858)==(t87393.value.structure_type27858))) goto l16565; break; case STRING_TYPE: if (!((t87392.value.string_type)==(t87393.value.string_type))) goto l16565; break; case HEADED_VECTOR_TYPE27896: if (!((t87392.value.headed_vector_type27896)==(t87393.value.headed_vector_type27896))) goto l16565; break; case EXTERNAL_SYMBOL_TYPE: if (!((t87392.value.external_symbol_type)==(t87393.value.external_symbol_type))) goto l16565; break; case STRUCTURE_TYPE27908: if (!((t87392.value.structure_type27908)==(t87393.value.structure_type27908))) goto l16565; break; default:;} break; case NATIVE_PROCEDURE_TYPE22710: p7723 = t87116.value.native_procedure_type22710; a21524 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x65157 stalin.sc:2340:77017 */ /* x65153 stalin.sc:2340:77026 */ t87396 = a21524; /* x65156 stalin.sc:2340:77029 */ /* x65155 stalin.sc:2340:77044 */ t87398 = p7723->a21522; /* x65154 stalin.sc:2340:77030 */ t87397 = f7923(t87398); /* x65152 stalin.sc:2340:77018 */ if (f8033(t87396, t87397)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE22712: p7724 = t87116.value.native_procedure_type22712; a21525 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x65174 stalin.sc:2342:77116 */ /* x65170 stalin.sc:2342:77125 */ t87399 = a21525; /* x65173 stalin.sc:2342:77128 */ /* x65172 stalin.sc:2342:77143 */ t87401 = p7724->a21522; /* x65171 stalin.sc:2342:77129 */ t87400 = f7927(t87401); /* x65169 stalin.sc:2342:77117 */ if (f8033(t87399, t87400)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE22988: a28693 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x158660 stalin.sc:22140:774314 */ /* x158658 stalin.sc:22140:774323 */ /* x158659 stalin.sc:22140:774351 */ t87402 = a28693; /* x158657 stalin.sc:22140:774315 */ t87403.tag = NATIVE_PROCEDURE_TYPE7428; if ((f8137(t87403, t87402).tag)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE22992: a28692 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x158644 stalin.sc:22138:774217 */ /* x158642 stalin.sc:22138:774226 */ /* x158643 stalin.sc:22138:774239 */ t87404 = a28692; /* x158641 stalin.sc:22138:774218 */ t87405.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t87405, t87404).tag)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE22996: a28690 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x158617 stalin.sc:22143:774482 */ /* x158615 stalin.sc:22143:774491 */ /* x158616 stalin.sc:22143:774504 */ t87406 = a28690; /* x158614 stalin.sc:22143:774483 */ t87407.tag = NATIVE_PROCEDURE_TYPE7426; if ((f8137(t87407, t87406).tag)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE23001: a28634 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x158466 stalin.sc:22099:772811 */ /* x158464 stalin.sc:22099:772820 */ /* x158465 stalin.sc:22099:772848 */ t87408 = a28634; /* x158463 stalin.sc:22099:772812 */ t87409.tag = NATIVE_PROCEDURE_TYPE7428; if ((f8137(t87409, t87408).tag)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE23005: a28633 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x158450 stalin.sc:22097:772714 */ /* x158448 stalin.sc:22097:772723 */ /* x158449 stalin.sc:22097:772736 */ t87410 = a28633; /* x158447 stalin.sc:22097:772715 */ t87411.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t87411, t87410).tag)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE23009: a28631 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x158423 stalin.sc:22102:772979 */ /* x158421 stalin.sc:22102:772988 */ /* x158422 stalin.sc:22102:773001 */ t87412 = a28631; /* x158420 stalin.sc:22102:772980 */ t87413.tag = NATIVE_PROCEDURE_TYPE7426; if ((f8137(t87413, t87412).tag)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE23015: a28813 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x159121 stalin.sc:22232:777540 */ /* x159119 stalin.sc:22232:777549 */ /* x159120 stalin.sc:22232:777577 */ t87414 = a28813; /* x159118 stalin.sc:22232:777541 */ t87415.tag = NATIVE_PROCEDURE_TYPE7428; if ((f8137(t87415, t87414).tag)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE23019: a28812 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x159105 stalin.sc:22230:777439 */ /* x159103 stalin.sc:22230:777448 */ /* x159104 stalin.sc:22230:777461 */ t87416 = a28812; /* x159102 stalin.sc:22230:777440 */ t87417.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t87417, t87416).tag)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE23023: a28810 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x159078 stalin.sc:22235:777707 */ /* x159076 stalin.sc:22235:777716 */ /* x159077 stalin.sc:22235:777729 */ t87418 = a28810; /* x159075 stalin.sc:22235:777708 */ t87419.tag = NATIVE_PROCEDURE_TYPE7426; if ((f8137(t87419, t87418).tag)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE23029: a28934 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x159646 stalin.sc:22337:781629 */ /* x159644 stalin.sc:22337:781638 */ /* x159645 stalin.sc:22337:781666 */ t87420 = a28934; /* x159643 stalin.sc:22337:781630 */ t87421.tag = NATIVE_PROCEDURE_TYPE7428; if ((f8137(t87421, t87420).tag)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE23033: a28932 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x159619 stalin.sc:22339:781741 */ /* x159617 stalin.sc:22339:781750 */ /* x159618 stalin.sc:22339:781763 */ t87422 = a28932; /* x159616 stalin.sc:22339:781742 */ t87423.tag = NATIVE_PROCEDURE_TYPE7426; if ((f8137(t87423, t87422).tag)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE23056: a28874 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x159372 stalin.sc:22277:779126 */ /* x159370 stalin.sc:22277:779135 */ /* x159371 stalin.sc:22277:779163 */ t87424 = a28874; /* x159369 stalin.sc:22277:779127 */ t87425.tag = NATIVE_PROCEDURE_TYPE7428; if ((f8137(t87425, t87424).tag)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE23060: a28873 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x159356 stalin.sc:22275:779029 */ /* x159354 stalin.sc:22275:779038 */ /* x159355 stalin.sc:22275:779051 */ t87426 = a28873; /* x159353 stalin.sc:22275:779030 */ t87427.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t87427, t87426).tag)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE23064: a28871 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x159329 stalin.sc:22280:779294 */ /* x159327 stalin.sc:22280:779303 */ /* x159328 stalin.sc:22280:779316 */ t87428 = a28871; /* x159326 stalin.sc:22280:779295 */ t87429.tag = NATIVE_PROCEDURE_TYPE7426; if ((f8137(t87429, t87428).tag)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE23070: a28752 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x158862 stalin.sc:22184:775887 */ /* x158860 stalin.sc:22184:775896 */ /* x158861 stalin.sc:22184:775924 */ t87430 = a28752; /* x158859 stalin.sc:22184:775888 */ t87431.tag = NATIVE_PROCEDURE_TYPE7428; if ((f8137(t87431, t87430).tag)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE23074: a28751 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x158846 stalin.sc:22182:775786 */ /* x158844 stalin.sc:22182:775795 */ /* x158845 stalin.sc:22182:775808 */ t87432 = a28751; /* x158843 stalin.sc:22182:775787 */ t87433.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t87433, t87432).tag)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE23078: a28749 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x158819 stalin.sc:22187:776054 */ /* x158817 stalin.sc:22187:776063 */ /* x158818 stalin.sc:22187:776076 */ t87434 = a28749; /* x158816 stalin.sc:22187:776055 */ t87435.tag = NATIVE_PROCEDURE_TYPE7426; if ((f8137(t87435, t87434).tag)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE23220: p7176 = t87116.value.native_procedure_type23220; a21117 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x60455 stalin.sc:1202:39527 */ /* x60451 stalin.sc:1202:39536 */ t87436 = a21117; /* x60454 stalin.sc:1202:39539 */ /* x60453 stalin.sc:1202:39567 */ t87438 = p7176->a21115; /* x60452 stalin.sc:1202:39540 */ a37510 = t87438; /* x282709 */ /* x282708 */ t87439 = a37510; /* x282707 */ if (!((t87439.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-ELEMENT[6243] 32427]"); structure_ref_error();} t87437 = t87439.value.structure_type27761->s0; /* x60450 stalin.sc:1202:39528 */ if (f8033(t87436, t87437)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE23720: a26598 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x140886 stalin.sc:18227:640163 */ /* x140885 stalin.sc:18227:640167 */ /* x140884 stalin.sc:18227:640179 */ t87440 = a26598; /* x140883 stalin.sc:18227:640168 */ if (!(f7682(t87440)==FALSE_TYPE)) goto l16568; /* x140880 */ /* x140879 stalin.sc:18227:640195 */ t87441 = a26598; /* x140878 stalin.sc:18227:640183 */ if (f8793(t87441)==FALSE_TYPE) goto l16565; break; case NATIVE_PROCEDURE_TYPE23982: p1385 = t87116.value.native_procedure_type23982; a15010 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x16436 QobiScheme.sc:608:17171 */ /* x16433 QobiScheme.sc:608:17177 */ /* x16434 QobiScheme.sc:608:17179 */ t87442 = a15010; /* x16435 QobiScheme.sc:608:17182 */ t87443 = p1385->a15009; /* x16432 QobiScheme.sc:608:17172 */ t87444 = (struct p14552 *)NATIVE_PROCEDURE_TYPE23981; /* MOVE: branching squeezed to general */ if (t87443>=((struct structure_type24753 *)VALUE_OFFSET)) {t87445.tag = STRUCTURE_TYPE24753; t87445.value.structure_type24753 = t87443;} else t87445.tag = (unsigned)t87443; if ((f1178(t87444, t87442, t87445).tag)==FALSE_TYPE) goto l16565; break; default: p1379 = t87116.value.native_procedure_type24305; a15000 = t87117; if (!(((unsigned)t87118)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 330, 10041); call_error();} /* x16405 QobiScheme.sc:602:16985 */ /* x16403 QobiScheme.sc:602:16991 */ t87446 = a15000; /* x16404 QobiScheme.sc:602:16994 */ t87447 = p1379->a14999; /* x16402 QobiScheme.sc:602:16986 */ t87448 = *((struct w49 *)(&t87447)); if ((f26351(t87446, t87448).tag)==FALSE_TYPE) goto l16565;} l16568: /* x14521 */ /* x14516 QobiScheme.sc:331:10089 */ /* x14515 QobiScheme.sc:331:10095 */ t87457 = a14723; /* x14514 QobiScheme.sc:331:10090 */ a35624 = t87457; /* x273853 */ /* x273852 */ t87458 = a35624; /* x273851 */ if (!((t87458.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29773]"); structure_ref_error();} t87455 = t87458.value.structure_type24753->s1; /* x14520 QobiScheme.sc:331:10098 */ /* x14519 QobiScheme.sc:331:10108 */ t87459 = a14724; /* x14518 QobiScheme.sc:331:10103 */ /* x14517 QobiScheme.sc:331:10099 */ t87460.tag = NATIVE_PROCEDURE_TYPE493; /* MOVE: branching squeezed to general */ if (t87459>=((struct structure_type24753 *)VALUE_OFFSET)) {t87461.tag = STRUCTURE_TYPE24753; t87461.value.structure_type24753 = t87459;} else t87461.tag = (unsigned)t87459; t87462 = (struct structure_type24753 *)NULL_TYPE; t87456 = f27731(t87460, t87461, t87462); /* x14513 QobiScheme.sc:331:10084 */ a14723 = t87455; a14724 = t87456; goto h1064; l16564: return TRUE_TYPE; l16565: return FALSE_TYPE;} /* [inside LOOP 1059] */ struct w49 f1059(struct p1057 *p1059, struct w49 a14717) {struct w49 t87463; int t87464; /* x14480 QobiScheme.sc:322:9879 */ /* x14478 QobiScheme.sc:322:9891 */ t87463 = a14717; /* x14479 QobiScheme.sc:322:9893 */ t87464 = p1059->a14715; /* x270956 QobiScheme.sc:322:9880 */ if ((t87463.tag)==HEADED_VECTOR_TYPE27896) {if ((t87464<0)||(t87464>=(t87463.value.headed_vector_type27896->length))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 322, 9879); vector_ref3_error();} return (t87463.value.headed_vector_type27896->element)[t87464];} backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 322, 9879); vector_ref1_error();} /* SOME[1042] */ struct w16638 f1042(struct w228345 a14696, struct w49 a14697, struct structure_type24753 *a14698) {struct w16638 r1042; char *sfp1045; char *sfp9514; char *sfp12482; struct w49 a14701; /* L */ struct structure_type24753 *a14702; /* &REST */ struct w16638 a14703; /* v */ struct structure_type24753 *a15018; /* X */ struct structure_type24753 *a15019; /* Y */ struct w49 a15146; /* X */ struct w49 a15147; /* Y */ struct w49 a15148; /* XE */ struct w49 a15155; /* V */ struct w49 a15165; /* X2 */ struct w49 a19078; /* S */ struct w49 a19238; /* S */ struct w49 a19582; /* OBJ */ struct w49 a19897; /* S */ struct w49 a20284; /* OBJ */ struct w49 a20285; /* S */ struct w49 a20450; /* S */ struct w49 a20558; /* S */ struct w49 a20698; /* S */ struct w49 a20708; /* S */ struct w49 a20718; /* S */ struct w49 a20728; /* S */ struct w49 a20758; /* S */ struct w49 a20801; /* S */ struct w49 a20941; /* X */ struct w49 a21639; /* U1 */ struct w49 a21640; /* U2 */ struct w49 a21883; /* X */ struct w49 a21886; /* E */ struct w49 a21893; /* X */ struct w49 a21896; /* E */ struct w49 a21912; /* E */ struct w49 a21913; /* E */ struct w49 a21914; /* U/W */ struct w49 a21918; /* E */ struct w49 a21919; /* Y */ unsigned a21920; /* v */ struct w49 a21922; /* X */ struct w49 a21925; /* E1 */ struct w16638 a21926; /* v */ struct w49 a21929; /* E */ struct w49 a21947; /* E */ struct w49 a21954; /* Y */ struct w49 a21956; /* E */ struct w49 a21957; /* X */ struct w49 a21989; /* G */ struct w49 a21996; /* G */ struct w49 a22003; /* G */ struct w49 a22072; /* E */ struct w49 a22110; /* Y */ struct w49 a22116; /* E1 */ struct w49 a22117; /* X */ struct w49 a22118; /* U-E */ struct w49 a22121; /* X */ struct w49 a22180; /* G */ struct w49 a22181; /* E */ struct w49 a22182; /* G */ unsigned a22183; /* v */ struct w49 a22184; /* E */ struct w49 a22197; /* E1 */ struct w49 a22198; /* E2 */ struct w49 a22230; /* E */ struct w49 a22288; /* E */ struct w49 a22374; /* E */ struct w49 a22375; /* G */ struct w49 a22381; /* P? */ struct w49 a22382; /* W */ struct structure_type27747 *a22707; /* D1 */ struct structure_type27747 *a22708; /* D2 */ struct structure_type24753 *a22709; /* DS */ struct w49 a22710; /* D */ struct p9515 *a22711; /* LOOP */ struct structure_type27747 *a22716; /* D1 */ struct structure_type27747 *a22717; /* D2 */ unsigned a22718; /* v */ struct w49 a23157; /* X */ struct w49 a23296; /* X1 */ struct w49 a23302; /* G */ struct w49 a23328; /* X */ struct w49 a23360; /* U */ struct w49 a23383; /* U */ struct w49 a23406; /* U */ struct w49 a23669; /* E1 */ struct w49 a23905; /* Y */ struct w49 a23906; /* X */ struct w49 a23907; /* G */ struct w49 a23928; /* E2 */ struct w49 a23929; /* Y */ struct w49 a23931; /* Y */ struct w49 a23934; /* E1 */ struct w49 a23945; /* E */ struct w16638 a23948; /* v */ struct w49 a23970; /* E */ unsigned a23972; /* v */ struct w16638 a23973; /* v */ struct w49 a23994; /* E */ struct w49 a24016; /* E */ struct w49 a24033; /* E */ struct w49 a24045; /* E1 */ struct w49 a24046; /* E2 */ struct w16638 a24047; /* v */ struct w49 a24140; /* E */ struct w49 a24343; /* X */ struct w49 a24372; /* X */ struct w49 a24399; /* E1 */ struct w49 a24403; /* X */ struct w49 a24428; /* E1 */ struct w49 a24429; /* Y */ struct w49 a24612; /* X1 */ struct w49 a24613; /* XS */ struct w49 a24614; /* X2 */ struct w49 a24622; /* X */ struct w49 a24623; /* X1 */ struct p12483 *a24624; /* LOOP */ struct w49 a24707; /* E2 */ struct w49 a24716; /* Y */ struct w49 a24718; /* Y */ struct w49 a24722; /* E1 */ struct w49 a24723; /* X */ struct w49 a24726; /* E1 */ struct w49 a24755; /* E3 */ struct w49 a24986; /* W */ struct w49 a24994; /* X */ struct w49 a24995; /* U-E */ struct w49 a25163; /* U1 */ struct w49 a25164; /* U2 */ struct w49 a25223; /* OTHER-VARIABLE */ struct w49 a25440; /* PAIR */ struct w49 a25960; /* W */ struct w49 a26058; /* U1 */ struct w49 a26070; /* U1 */ struct w49 a26088; /* U */ struct w49 a26257; /* U */ struct w49 a26266; /* U */ struct w49 a26274; /* U */ struct w49 a26275; /* U */ struct w49 a26310; /* U */ struct w49 a26601; /* U */ struct w49 a26606; /* U */ struct w49 a26615; /* U */ struct w49 a26640; /* U1 */ struct w49 a26645; /* U */ struct w49 a26651; /* U1 */ struct w49 a26658; /* U1 */ struct w49 a26813; /* U/W1 */ struct w49 a26814; /* U/W2 */ unsigned a26815; /* v */ struct w16638 a26816; /* v */ struct w49 a26823; /* W */ struct w49 a26824; /* U */ struct w49 a27053; /* C */ struct w49 a27747; /* U */ struct w49 a27760; /* U */ struct w49 a27773; /* U */ struct w49 a28632; /* W */ struct w49 a28635; /* W */ struct w49 a28691; /* W */ struct w49 a28694; /* W */ struct w49 a28750; /* W */ struct w49 a28753; /* W */ struct w49 a28811; /* W */ struct w49 a28814; /* W */ struct w49 a28872; /* W */ struct w49 a28875; /* W */ struct w49 a28933; /* W */ struct w49 a31042; /* E */ struct w49 a31044; /* Y */ struct w49 a31068; /* E */ struct w49 a31070; /* Y */ struct w49 a31087; /* E */ struct w49 a31089; /* Y */ struct w49 a32211; /* S */ struct w49 a32234; /* S */ struct w49 a33172; /* E */ struct w49 a33259; /* G */ struct w16638 a35620; /* PAIR */ struct w49 a35651; /* PAIR */ struct w16638 a36202; /* PAIR */ struct w49 a36358; /* S */ struct w49 a36359; /* S */ struct structure_type27745 *a36360; /* S */ struct w49 a36361; /* S */ struct structure_type27745 *a36362; /* S */ struct structure_type27745 *a36363; /* S */ struct w49 a36364; /* S */ struct w49 a36365; /* S */ struct w49 a36482; /* S */ struct w49 a36558; /* S */ struct w49 a36576; /* S */ struct w49 a36615; /* S */ struct w49 a36661; /* S */ struct w49 a36662; /* S */ struct w49 a36663; /* S */ struct w49 a36664; /* S */ struct w49 a36665; /* S */ struct w49 a36688; /* S */ struct w49 a36689; /* S */ struct w49 a36807; /* S */ struct w49 a36808; /* S */ struct w49 a36809; /* S */ struct w49 a36810; /* S */ struct w49 a36894; /* S */ struct w49 a36895; /* S */ struct w49 a36896; /* S */ struct w49 a36897; /* S */ struct w49 a36898; /* S */ struct w49 a36899; /* S */ struct w49 a36900; /* S */ struct w49 a36954; /* S */ struct w49 a37010; /* OBJ */ struct w49 a37106; /* S */ struct w49 a37145; /* OBJ */ struct w49 a37146; /* OBJ */ struct w49 a37615; /* S */ struct w49 a37616; /* S */ struct w49 a37666; /* OBJ */ struct w49 a37667; /* OBJ */ struct w49 a37668; /* OBJ */ struct w49 a37669; /* OBJ */ struct w49 a37814; /* S */ struct w49 a38024; /* OBJ */ struct w49 a38025; /* OBJ */ struct w49 a38110; /* OBJ */ struct w49 a38485; /* S */ struct w49 a38515; /* S */ struct w49 a38516; /* S */ struct w49 a38517; /* S */ struct w49 a38622; /* S */ struct w49 a38623; /* S */ struct w49 a38868; /* S */ struct w49 a38871; /* S */ struct w49 a39057; /* S */ struct w49 a39093; /* S */ struct w49 a39094; /* S */ struct w49 a39095; /* S */ struct w49 a39096; /* S */ struct w49 a39097; /* S */ struct w49 a39162; /* S */ struct w6852 a39424; /* S */ struct w49 a39833; /* S */ struct w49 a39860; /* S */ struct w49 a39861; /* S */ struct w49 a39862; /* S */ struct w49 a39863; /* S */ struct w49 a39864; /* S */ struct w49 a39865; /* S */ struct w49 a39867; /* S */ struct w49 a39911; /* S */ struct w49 a39916; /* S */ struct w49 a40012; /* S */ struct w49 a40015; /* S */ struct w49 a40031; /* S */ struct w49 a40032; /* S */ struct w49 a40033; /* S */ struct w49 a40034; /* S */ struct w49 a40035; /* S */ struct w49 a40036; /* S */ struct w49 a40037; /* S */ struct w49 a40038; /* S */ struct w49 a40039; /* S */ struct w49 a40040; /* S */ struct w49 a40075; /* S */ struct w49 a40104; /* S */ struct w49 a40268; /* S */ struct w49 a40269; /* S */ struct w49 a41475; /* S */ struct w49 a41599; /* S */ struct w49 a41623; /* G */ struct w49 a41662; /* G */ struct w49 a41663; /* G */ struct w49 a42103; /* E */ struct w49 t87465; struct structure_type24753 *t87466; struct w49 t87467; struct w16638 t87468; struct w49 t87469; struct structure_type24753 *t87470; struct w16638 t87471; struct w16638 t87472; struct structure_type24753 *t87473; struct w36270 t87474; struct w49 t87475; struct structure_type24753 *t87476; struct w228345 t87477; struct w49 t87478; struct structure_type24753 *t87479; struct w49 t87480; unsigned t87481; struct w49 t87482; unsigned t87483; struct w49 t87484; unsigned t87485; struct w49 t87486; struct w49 t87487; unsigned t87488; struct w49 t87489; unsigned t87490; struct w49 t87491; unsigned t87492; struct w49 t87493; unsigned t87494; struct w49 t87495; unsigned t87496; struct w49 t87497; unsigned t87498; struct w49 t87499; unsigned t87500; struct w49 t87501; unsigned t87502; struct w49 t87503; struct w49 t87504; struct w49 t87505; struct w49 t87506; struct w49 t87507; struct w49 t87508; struct w49 t87509; struct w49 t87510; struct w49 t87511; struct w49 t87512; unsigned t87513; struct w49 t87514; char *t87515; struct w49 t87516; unsigned t87517; struct w49 t87518; struct w49 t87519; struct w49 t87520; struct w49 t87521; struct w49 t87522; char *t87523; struct w49 t87524; struct w49 t87525; struct w49 t87526; struct p1542 *t87527; struct w49 t87528; struct w49 t87529; struct p1550 *t87530; struct w49 t87531; struct w228345 t87532; struct w49 t87533; struct structure_type24753 *t87534; struct p14552 *t87535; struct w49 t87536; struct w49 t87537; struct p14552 *t87538; struct w49 t87539; struct w49 t87540; struct w49 t87541; struct w49 t87542; struct w49 t87543; struct w49 t87544; struct w49 t87545; struct w49 t87546; struct w49 t87547; struct w49 t87548; struct w49 t87549; struct w49 t87550; struct w49 t87551; struct w49 t87552; struct w3457 t87553; struct w49 t87554; struct w49 t87555; struct w49 t87556; struct w3467 t87557; struct w49 t87558; struct w12224 t87559; struct w49 t87560; struct w49 t87561; struct w49 t87562; struct w49 t87563; struct w49 t87564; unsigned t87565; struct w49 t87566; struct p11560 *t87567; struct p11560 *t87568; struct p11560 *t87569; unsigned t87570; struct p11560 *t87571; struct w16638 t87572; struct p11560 *t87573; struct w3457 t87574; struct w228345 t87575; struct w49 t87576; struct structure_type24753 *t87577; struct w49 t87578; struct w49 t87579; struct p11560 *t87580; struct w3457 t87581; struct w228345 t87582; struct w49 t87583; struct structure_type24753 *t87584; struct w49 t87585; struct w49 t87586; struct p11619 *t87587; struct w49 t87588; struct w49 t87589; struct w49 t87590; unsigned t87591; struct w49 t87592; unsigned t87593; struct w16638 t87594; struct w49 t87595; struct w49 t87596; struct w49 t87597; struct w49 t87598; struct p12194 *t87599; struct w49 t87600; struct w211257 t87601; struct w49 t87602; struct w49 t87603; struct w49 t87604; struct w49 t87605; struct w49 t87606; struct w49 t87607; struct w49 t87608; struct w49 t87609; struct w49 t87610; struct w49 t87611; struct p9140 *t87612; struct w49 t87613; struct w49 t87614; struct w49 t87615; struct w49 t87616; struct p12121 *t87617; struct w49 t87618; struct w211257 t87619; struct w49 t87620; struct w49 t87621; struct w49 t87622; struct w49 t87623; struct w49 t87624; struct w49 t87625; struct w49 t87626; struct w49 t87627; struct w49 t87628; struct w49 t87629; struct p9140 *t87630; struct w49 t87631; struct w49 t87632; struct w49 t87633; struct w49 t87634; char *t87635; struct w49 t87636; struct w49 t87637; struct p13377 *t87638; struct structure_type24753 *t87639; struct w228345 t87640; struct w49 t87641; struct structure_type24753 *t87642; struct w49 t87643; struct w49 t87644; struct w49 t87645; struct w49 t87646; struct w49 t87647; struct w49 t87648; struct w49 t87649; struct w49 t87650; struct w49 t87651; struct w49 t87652; struct w49 t87653; struct w49 t87654; struct w49 t87655; struct w49 t87656; struct w49 t87657; struct w49 t87658; struct w49 t87659; struct w49 t87660; struct w49 t87661; struct w49 t87662; struct p11524 *t87663; struct structure_type24753 *t87664; struct w228345 t87665; struct w49 t87666; struct structure_type24753 *t87667; struct w49 t87668; struct w49 t87669; struct w49 t87670; struct w49 t87671; struct w49 t87672; struct w49 t87673; struct w49 t87674; struct w49 t87675; struct w49 t87676; struct w49 t87677; struct w49 t87678; struct w49 t87679; struct w49 t87680; unsigned t87681; unsigned t87682; struct w6852 t87683; struct w49 t87684; struct w49 t87685; struct w49 t87686; struct w6852 t87687; struct w49 t87688; struct w49 t87689; struct w49 t87690; struct w49 t87691; struct w49 t87692; char *t87693; struct w49 t87694; struct w49 t87695; struct w49 t87696; struct w49 t87697; struct w49 t87698; struct p12483 *t87699; struct w49 t87700; struct p12482 *t87701; struct p12483 *t87702; struct p12471 *t87703; struct w49 t87704; struct w228345 t87705; struct w49 t87706; struct structure_type24753 *t87707; struct w49 t87710; struct structure_type27747 *t87711; struct structure_type27747 *t87712; unsigned t87713; struct structure_type27747 *t87714; struct structure_type27747 *t87715; struct p9512 *t87716; struct p9513 *t87717; struct w49 t87718; struct w228345 t87719; struct w49 t87720; struct structure_type24753 *t87721; struct structure_type27747 *t87722; struct w49 t87723; struct structure_type27747 *t87724; struct structure_type27747 *t87725; struct w49 t87726; struct w49 t87727; struct w49 t87728; struct w49 t87729; unsigned t87730; struct w49 t87731; struct p11538 *t87732; struct p11538 *t87733; struct p11538 *t87734; struct p11538 *t87735; struct w16638 t87736; struct p11538 *t87737; struct w3457 t87738; struct w228345 t87739; struct w49 t87740; struct structure_type24753 *t87741; struct w49 t87742; struct w49 t87743; struct p11538 *t87744; struct w3457 t87745; struct w228345 t87746; struct w49 t87747; struct structure_type24753 *t87748; struct w49 t87749; struct w49 t87750; unsigned t87751; unsigned t87753; struct w49 t87754; unsigned t87755; struct w16638 t87756; int t87757; int t87758; struct structure_type24753 *t87759; struct w49 t87760; struct w49 t87761; struct w49 t87762; struct w3457 t87763; struct w228345 t87764; struct w49 t87765; struct structure_type24753 *t87766; struct w49 t87767; struct w49 t87768; struct w49 t87770; struct w16638 t87771; struct w49 t87772; struct p9140 *t87773; struct w49 t87774; struct w49 t87775; struct w49 t87776; struct w49 t87777; struct w49 t87778; struct w49 t87779; struct p8246 *t87780; struct w3457 t87781; struct w228345 t87782; struct w49 t87783; struct structure_type24753 *t87784; struct w49 t87785; struct w49 t87786; struct w49 t87787; struct w49 t87788; struct w49 t87789; struct w49 t87790; struct w49 t87791; struct w49 t87792; struct w49 t87793; struct w49 t87794; struct w49 t87795; struct w49 t87796; struct p8291 *t87797; struct structure_type24753 *t87798; struct w228345 t87799; struct w49 t87800; struct structure_type24753 *t87801; struct w49 t87802; struct w49 t87803; struct p8246 *t87804; struct w49 t87805; struct w49 t87806; struct w49 t87807; struct w49 t87808; struct w49 t87809; struct w49 t87810; struct w49 t87811; struct w49 t87812; struct w49 t87813; struct w49 t87814; struct p8246 *t87815; struct w49 t87816; struct w49 t87817; struct p8246 *t87818; struct p8246 *t87819; struct w49 t87820; struct w49 t87821; struct w49 t87822; struct w3457 t87823; struct w228345 t87824; struct w49 t87825; struct structure_type24753 *t87826; struct w49 t87827; struct w49 t87828; struct w49 t87830; struct w16638 t87831; struct w49 t87832; struct w49 t87833; struct p12230 *t87834; struct structure_type24753 *t87835; struct w228345 t87836; struct w49 t87837; struct structure_type24753 *t87838; struct w49 t87839; struct p12668 *t87840; struct w11873 t87841; struct w228345 t87842; struct w49 t87843; struct structure_type24753 *t87844; struct w49 t87845; struct w49 t87846; struct w49 t87847; struct w49 t87848; struct w49 t87849; int t87850; struct w49 t87851; struct w49 t87852; struct w49 t87853; struct w49 t87854; struct w49 t87855; struct w49 t87856; struct w12224 t87857; struct w228345 t87858; struct w49 t87859; struct structure_type24753 *t87860; struct w49 t87861; struct w49 t87862; struct w49 t87863; struct w49 t87864; struct w49 t87865; struct w3467 t87866; struct w49 t87867; struct w49 t87868; struct w49 t87869; struct w49 t87870; struct w49 t87871; struct w49 t87872; struct w49 t87873; struct w49 t87874; struct w49 t87875; char *t87876; char *t87877; struct w49 t87878; struct w49 t87879; int t87880; int t87881; struct w11873 t87882; struct w49 t87883; struct w49 t87884; struct w49 t87885; char *t87886; char *t87887; struct w49 t87888; struct w49 t87889; int t87890; int t87891; struct w11873 t87892; struct w49 t87893; struct w49 t87894; struct w49 t87895; struct p7708 *t87896; struct w49 t87897; struct w211257 t87898; char *t87899; struct w49 t87900; struct w49 t87901; struct w49 t87902; struct w49 t87903; struct w49 t87904; struct p8610 *t87905; struct w49 t87906; struct w211257 t87907; struct w49 t87908; struct w49 t87909; struct w49 t87910; struct w49 t87911; struct w49 t87912; struct w49 t87913; struct w49 t87914; struct w49 t87915; struct w49 t87916; struct w49 t87917; struct w49 t87918; struct w49 t87919; struct w49 t87920; struct w49 t87921; struct w49 t87922; struct w49 t87923; struct w49 t87924; struct w49 t87925; struct w49 t87926; struct w49 t87927; struct w49 t87928; struct w49 t87929; struct w49 t87930; struct w49 t87931; struct p8246 *t87932; struct w49 t87933; struct w49 t87934; struct w49 t87935; struct w49 t87936; struct w49 t87937; struct w49 t87938; struct w49 t87939; struct w49 t87940; struct p8246 *t87941; struct w49 t87942; struct w49 t87943; struct p8246 *t87944; struct p8246 *t87945; struct w49 t87946; struct w49 t87947; struct w49 t87948; struct w49 t87949; unsigned t87950; struct w49 t87951; struct w49 t87952; struct w11873 t87953; struct w9296 t87954; struct w228345 t87955; struct w49 t87956; struct structure_type24753 *t87957; struct w49 t87958; struct w49 t87959; struct w49 t87960; struct w49 t87961; struct w6852 t87962; struct w6852 t87963; struct w49 t87964; struct w49 t87965; struct p7710 *t87966; struct w49 t87967; struct w49 t87968; struct structure_type27745 *t87969; struct structure_type27745 *t87970; struct w49 t87971; struct p7710 *t87972; struct w49 t87973; struct w49 t87974; struct structure_type27745 *t87975; struct structure_type27745 *t87976; struct w49 t87977; struct p7710 *t87978; struct w49 t87979; struct w49 t87980; struct structure_type27745 *t87981; struct structure_type27745 *t87982; struct w49 t87983; struct w49 t87984; struct w49 t87985; unsigned t87986; unsigned t87987; struct w49 t87988; struct w49 t87989; struct w49 t87990; struct w49 t87991; struct w49 t87992; struct w49 t87993; struct w49 t87994; struct w49 t87995; struct w49 t87996; struct w49 t87997; struct w49 t87998; struct w49 t87999; struct w49 t88000; struct w49 t88001; unsigned t88002; struct w49 t88003; struct w49 t88004; struct p8246 *t88005; struct w49 t88006; struct w49 t88007; struct w6852 t88008; struct w49 t88009; struct w49 t88010; struct w49 t88011; struct w49 t88012; struct w49 t88013; struct w49 t88014; char *t88015; struct w6315 t88016; struct w49 t88017; struct w49 t88018; struct p9030 *t88019; struct w3457 t88020; struct w228345 t88021; struct w49 t88022; struct structure_type24753 *t88023; struct w49 t88024; struct p8347 *t88025; struct p8347 *t88026; struct w12224 t88027; struct w228345 t88028; struct w49 t88029; struct structure_type24753 *t88030; struct w49 t88031; struct w49 t88032; struct w49 t88033; struct w49 t88034; struct w49 t88035; struct w49 t88036; struct w49 t88037; char *t88038; struct w6315 t88039; struct w49 t88040; struct structure_type24753 *t88041; struct w49 t88042; unsigned t88043; struct w49 t88044; struct w49 t88045; char *t88046; struct w49 t88047; struct w49 t88048; unsigned t88049; struct w49 t88050; struct w49 t88051; struct w49 t88052; struct w49 t88053; struct w49 t88054; struct w49 t88055; struct w49 t88056; struct w49 t88057; struct w49 t88058; struct w49 t88059; struct w49 t88060; struct w49 t88061; struct w49 t88062; struct w49 t88063; struct w49 t88064; struct w49 t88065; struct w49 t88066; struct w49 t88067; struct w49 t88068; struct w49 t88069; struct w49 t88070; struct w49 t88071; struct w49 t88072; char *t88073; struct w49 t88074; struct w49 t88075; char *t88076; char *t88077; struct w49 t88078; struct w49 t88079; struct w49 t88080; struct w49 t88081; struct w49 t88082; struct w49 t88083; struct w49 t88084; struct w49 t88085; struct p15678 *t88086; struct w21193 t88087; struct w228345 t88088; struct w49 t88089; struct structure_type24753 *t88090; struct w49 t88091; struct w49 t88092; struct w49 t88093; struct w49 t88094; unsigned t88095; struct w16638 t88096; struct w49 t88097; struct w49 t88098; struct w49 t88099; struct w49 t88100; struct w49 t88101; struct w11873 t88102; struct w49 t88103; struct w49 t88104; struct w49 t88105; struct w49 t88106; struct w49 t88107; struct w49 t88108; struct w49 t88109; struct w49 t88110; struct w49 t88111; struct structure_type24753 *t88112; struct w49 t88113; struct w12224 t88114; struct w36270 t88115; struct w49 t88116; struct structure_type24753 *t88117; struct w11873 t88118; struct w227671 t88119; struct w49 t88120; struct w49 t88121; struct w49 t88122; struct w49 t88123; struct w49 t88124; struct w49 t88125; struct w49 t88126; struct w49 t88127; struct w49 t88128; struct w49 t88129; struct p17869 *t88130; struct w49 t88131; struct w211257 t88132; struct w6852 t88133; struct w49 t88134; struct w49 t88135; struct w49 t88136; struct p17869 *t88137; struct w49 t88138; struct w211257 t88139; struct w6852 t88140; struct w49 t88141; struct w49 t88142; struct w49 t88143; struct w49 t88144; unsigned t88145; unsigned t88146; struct w49 t88147; struct w49 t88148; struct w49 t88149; struct w49 t88150; struct w49 t88151; unsigned t88152; unsigned t88153; struct w49 t88154; struct w49 t88155; struct w49 t88156; struct w49 t88157; struct p17852 *t88158; struct w49 t88159; struct w211257 t88160; struct w6852 t88161; struct w49 t88162; struct w49 t88163; struct w49 t88164; struct p9030 *t88165; struct w49 t88166; struct w49 t88167; struct w211257 t88168; struct w49 t88169; struct w211257 t88170; struct w49 t88171; struct w211257 t88172; struct w49 t88173; struct w211257 t88174; struct w49 t88175; struct w211257 t88176; struct w49 t88177; struct w211257 t88178; struct w49 t88179; struct w211257 t88180; struct w49 t88181; struct w211257 t88182; struct w49 t88183; struct w211257 t88184; struct w49 t88185; struct w211257 t88186; struct w49 t88187; struct w211257 t88188; struct w49 t88189; struct w49 t88190; struct w49 t88191; struct w49 t88192; struct p8705 *t88193; unsigned t88194; struct w49 t88195; struct w49 t88196; struct p8705 *t88197; struct w11873 t88198; struct w228345 t88199; struct w49 t88200; struct structure_type24753 *t88201; struct w49 t88202; struct w49 t88203; struct w49 t88204; struct w49 t88205; struct w49 t88206; struct w49 t88207; struct w49 t88208; struct w49 t88209; struct w49 t88210; struct w49 t88211; struct w49 t88212; struct w49 t88213; struct p8705 *t88214; struct w11873 t88215; struct w228345 t88216; struct w49 t88217; struct structure_type24753 *t88218; struct w49 t88219; struct w49 t88220; struct w49 t88221; struct w49 t88222; struct w49 t88223; struct w49 t88224; struct w16638 t88225; struct w49 t88226; struct w49 t88227; struct w49 t88228; struct w49 t88229; struct w49 t88230; struct w49 t88231; struct w49 t88232; struct w49 t88233; struct w49 t88234; struct w49 t88235; struct w49 t88236; struct w49 t88237; struct w49 t88238; struct w11873 t88239; struct w49 t88240; struct w49 t88241; struct w49 t88242; struct w49 t88243; struct w49 t88244; struct w49 t88245; struct w49 t88246; struct w49 t88247; struct w49 t88248; struct p9030 *t88249; struct w49 t88250; struct w49 t88251; struct w49 t88252; struct w49 t88253; struct w49 t88254; struct w49 t88255; struct w49 t88256; struct w49 t88257; struct w49 t88258; struct w49 t88259; struct w49 t88260; struct w49 t88261; struct p8351 *t88262; struct structure_type24753 *t88263; struct w228345 t88264; struct w49 t88265; struct structure_type24753 *t88266; struct w49 t88267; struct w49 t88268; struct w49 t88269; struct w49 t88270; struct w49 t88271; struct w49 t88272; struct w49 t88273; struct w49 t88274; struct w49 t88275; struct w49 t88276; struct structure_type24753 *t88277; struct structure_type24753 *t88278; struct structure_type24753 *t88279; struct structure_type24753 *t88280; struct structure_type24753 *t88281; struct structure_type24753 *t88282; struct w49 t88283; struct w49 t88284; struct w49 t88285; struct w49 t88286; struct w49 t88287; struct w49 t88288; struct w49 t88289; struct w49 t88290; struct w49 t88291; struct w49 t88292; struct p12671 *t88293; struct w49 t88294; struct w211257 t88295; struct w49 t88296; struct w49 t88297; struct w49 t88298; struct w49 t88299; struct w49 t88300; struct w49 t88301; struct w49 t88302; struct w49 t88303; struct w49 t88304; struct w49 t88305; struct w49 t88306; struct w49 t88307; struct w49 t88308; struct w49 t88309; struct w49 t88310; struct p8291 *t88311; unsigned t88312; struct p8291 *t88313; struct p8291 *t88314; struct p8246 *t88316; struct structure_type24753 *t88317; struct w228345 t88318; struct w49 t88319; struct structure_type24753 *t88320; struct w49 t88321; unsigned t88322; unsigned t88323; unsigned t88324; struct w49 t88325; struct w49 t88326; struct w49 t88327; struct w49 t88328; struct w49 t88329; struct p8246 *t88330; struct w49 t88331; struct w49 t88332; struct p8246 *t88333; struct w16638 t88334; struct w49 t88335; struct w49 t88336; struct w49 t88337; struct w49 t88338; struct w49 t88339; struct w49 t88340; struct p8246 *t88341; struct w49 t88342; struct w49 t88343; struct w49 t88344; struct p8246 *t88345; struct p8246 *t88346; struct w11873 t88347; struct w228345 t88348; struct w49 t88349; struct structure_type24753 *t88350; struct w49 t88351; struct w21193 t88352; struct w36108 t88353; struct w49 t88354; struct structure_type24753 *t88355; struct w49 t88356; struct p8246 *t88357; struct p8246 *t88358; struct w49 t88359; struct w49 t88360; struct w49 t88361; struct w3457 t88362; struct w228345 t88363; struct w49 t88364; struct structure_type24753 *t88365; struct w49 t88366; struct w49 t88367; struct w49 t88368; unsigned t88369; struct p9515 *t88370; struct w49 t88371; struct p9513 *t88372; struct p9515 *t88373; struct w49 t88374; struct w49 t88375; struct w49 t88376; struct w49 t88377; struct w49 t88378; struct w49 t88379; struct w49 t88380; struct w49 t88381; struct w49 t88382; struct w49 t88383; unsigned t88384; struct w16638 t88385; struct w16638 t88386; struct structure_type24753 *t88387; struct w36270 t88388; struct w49 t88389; struct structure_type24753 *t88390; struct p1550 *e1550; struct p8351 *e8351; struct p8610 *e8610; struct p9512 *e9512; struct p9513 *e9513; struct p9515 *e9515; struct p12121 *e12121; struct p12194 *e12194; struct p12230 *e12230; struct p12482 *e12482; struct p12483 *e12483; struct p12671 *e12671; struct p13377 *e13377; struct p15678 *e15678; struct p1542 *p1550; struct p1550 *p1551; struct p1554 *p1559; struct p1569 *p1570; struct p8246 *p8248; struct p8246 *p8249; struct p8246 *p8250; struct p8246 *p8251; struct p8246 *p8252; struct p8246 *p8256; struct p8246 *p8257; struct p8246 *p8258; struct p8246 *p8259; struct p8246 *p8260; struct p8246 *p8288; struct p8246 *p8289; struct p8291 *p8293; struct p8291 *p8294; struct p8291 *p8295; struct p8291 *p8296; struct p8291 *p8297; struct p8246 *p8298; struct p8246 *p8299; struct p8246 *p8300; struct p8246 *p8301; struct p8246 *p8302; struct p8246 *p8303; struct p8246 *p8304; struct p8246 *p8341; struct p8246 *p8342; struct p8347 *p8349; struct p8347 *p8350; struct p8347 *p8351; struct p8351 *p8352; struct p8590 *p8591; struct p8593 *p8602; struct p8593 *p8604; struct p8608 *p8610; struct p8610 *p8611; struct p8705 *p8707; struct p8705 *p8708; struct p8705 *p8709; struct p8705 *p8710; struct p8705 *p8711; struct p8773 *p8774; struct p8773 *p8775; struct p9030 *p9049; struct p9030 *p9050; struct p9030 *p9064; struct p9512 *p9513; struct p9513 *p9514; struct p9513 *p9515; struct p9515 *p9516; struct p10110 *p10111; struct p10391 *p10393; struct p10497 *p10513; struct p10532 *p10552; struct p10583 *p10590; struct p11034 *p11035; struct p11498 *p11504; struct p11524 *p11526; struct p11524 *p11527; struct p11538 *p11541; struct p11538 *p11542; struct p11538 *p11543; struct p11538 *p11544; struct p11538 *p11545; struct p11560 *p11563; struct p11560 *p11564; struct p11560 *p11565; struct p11560 *p11566; struct p11560 *p11567; struct p11619 *p11620; struct p12119 *p12121; struct p12184 *p12187; struct p12192 *p12194; struct p12230 *p12231; struct p12471 *p12472; struct p12471 *p12473; struct p12471 *p12474; struct p12482 *p12483; struct p12483 *p12484; struct p12651 *p12652; struct p12661 *p12663; struct p12665 *p12666; struct p12668 *p12670; struct p12668 *p12671; struct p12668 *p12674; struct p12706 *p12707; struct p13018 *p13019; struct p13026 *p13027; struct p13376 *p13377; struct p13377 *p13378; struct p13437 *p13440; struct p14553 *p14554; struct p14650 *p14652; struct p14661 *p14663; struct p14673 *p14677; struct p14859 *p14860; struct p14852 *p14881; struct p15396 *p15397; struct p15456 *p15457; struct p15473 *p15474; struct p15484 *p15485; struct p15678 *p15679; struct p17852 *p17856; struct p17857 *p17858; struct p17869 *p17873; struct p17874 *p17875; struct p17869 *p17896; struct p17897 *p17898; /* x14416 QobiScheme.sc:309:9504 */ /* x14414 QobiScheme.sc:309:9518 */ t87465 = a14697; /* x14415 QobiScheme.sc:309:9528 */ t87466 = a14698; /* x14413 */ /* x14412 */ /* x14411 */ /* x14410 */ /* x14409 */ /* x14408 */ /* x14407 */ /* x14375 */ /* x14374 QobiScheme.sc:309:9509 */ a14701 = t87465; a14702 = t87466; sfp1045 = fp1045; h1045: /* x14406 QobiScheme.sc:310:9538 */ /* x14380 QobiScheme.sc:310:9543 */ /* x14379 QobiScheme.sc:310:9548 */ /* x14378 QobiScheme.sc:310:9555 */ t87467 = a14701; /* x270965 QobiScheme.sc:310:9549 */ if ((t87467.tag)==NULL_TYPE) goto l16635; /* x14404 */ /* x14403 QobiScheme.sc:311:9570 */ /* x14395 QobiScheme.sc:311:9577 */ t87477 = a14696; /* x14398 QobiScheme.sc:311:9579 */ /* x14397 QobiScheme.sc:311:9586 */ t88385 = *((struct w16638 *)(&a14701)); /* x14396 QobiScheme.sc:311:9580 */ a36202 = t88385; /* x276165 */ /* x276164 */ t88386 = a36202; /* x276163 */ if (!((t88386.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30351]"); structure_ref_error();} t87478 = t88386.value.structure_type24753->s0; /* x14402 QobiScheme.sc:311:9589 */ /* x14401 QobiScheme.sc:311:9600 */ t88387 = a14702; /* x14400 QobiScheme.sc:311:9594 */ /* x14399 QobiScheme.sc:311:9590 */ t88388.tag = NATIVE_PROCEDURE_TYPE494; /* MOVE: branching squeezed to general */ if (t88387>=((struct structure_type24753 *)VALUE_OFFSET)) {t88389.tag = STRUCTURE_TYPE24753; t88389.value.structure_type24753 = t88387;} else t88389.tag = (unsigned)t88387; t88390 = (struct structure_type24753 *)NULL_TYPE; t87479 = f27731(t88388, t88389, t88390); /* x270964 QobiScheme.sc:311:9571 */ switch (t87477.tag) {case NATIVE_PROCEDURE_TYPE7221: t87480 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} t87481 = f8931(t87480); t87468.tag = t87481; break; case NATIVE_PROCEDURE_TYPE7222: t87482 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} t87483 = f8918(t87482); t87468.tag = t87483; break; case NATIVE_PROCEDURE_TYPE7223: t87484 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} t87485 = f8903(t87484); t87468.tag = t87485; break; case NATIVE_PROCEDURE_TYPE7224: t87486 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} t87468 = f8899(t87486); break; case NATIVE_PROCEDURE_TYPE7232: t87487 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} t87488 = f8793(t87487); t87468.tag = t87488; break; case NATIVE_PROCEDURE_TYPE7305: t87489 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} t87490 = f8481(t87489); t87468.tag = t87490; break; case NATIVE_PROCEDURE_TYPE7307: t87491 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} t87492 = f8476(t87491); t87468.tag = t87492; break; case NATIVE_PROCEDURE_TYPE7314: t87493 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} t87494 = f8451(t87493); t87468.tag = t87494; break; case NATIVE_PROCEDURE_TYPE7332: t87495 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} t87496 = f8229(t87495); t87468.tag = t87496; break; case NATIVE_PROCEDURE_TYPE7359: t87497 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} t87498 = f8147(t87497); t87468.tag = t87498; break; case NATIVE_PROCEDURE_TYPE7431: t87499 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} t87500 = f7682(t87499); t87468.tag = t87500; break; case NATIVE_PROCEDURE_TYPE7433: t87501 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} t87502 = f7679(t87501); t87468.tag = t87502; break; case NATIVE_PROCEDURE_TYPE7612: a20941 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x58894 stalin.sc:832:26104 */ /* x58894 stalin.sc:832:26104 */ /* x58889 stalin.sc:832:26109 */ /* x58888 stalin.sc:832:26114 */ /* x58882 stalin.sc:832:26119 */ /* x58881 stalin.sc:832:26143 */ t87505 = a20941; /* x58880 stalin.sc:832:26120 */ a19078 = t87505; /* x49992 */ /* x49991 */ t87506 = a19078; /* x49990 */ if (!((t87506.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-ENVIRONMENT[5559]"); structure_ref_error();} t87503 = t87506.value.structure_type27698->s9; /* x58887 stalin.sc:833:26148 */ /* x58886 stalin.sc:833:26170 */ /* x58885 stalin.sc:833:26191 */ t87509 = a20941; /* x58884 stalin.sc:833:26171 */ a39093 = t87509; /* x289041 */ /* x289040 */ t87510 = a39093; /* x289039 */ if (!((t87510.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34010]"); structure_ref_error();} t87507 = t87510.value.structure_type27698->s16; /* x58883 stalin.sc:833:26149 */ a36894 = t87507; /* x280245 */ /* x280244 */ t87508 = a36894; /* x280243 */ if (!((t87508.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31811]"); structure_ref_error();} t87504 = t87508.value.structure_type27692->s8; /* x270727 stalin.sc:832:26115 */ /* EQ: dispatching general to general */ if ((t87503.tag)==(t87504.tag)) switch (t87503.tag) {case FIXNUM_TYPE: if ((t87503.value.fixnum_type)==(t87504.value.fixnum_type)) goto l16641; break; case FLONUM_TYPE: if ((t87503.value.flonum_type)==(t87504.value.flonum_type)) goto l16641; break; case INPUT_PORT_TYPE: if ((t87503.value.input_port_type)==(t87504.value.input_port_type)) goto l16641; break; case OUTPUT_PORT_TYPE: if ((t87503.value.output_port_type)==(t87504.value.output_port_type)) goto l16641; break; case NATIVE_PROCEDURE_TYPE15963: if ((t87503.value.native_procedure_type15963)==(t87504.value.native_procedure_type15963)) goto l16641; break; case NATIVE_PROCEDURE_TYPE19067: if ((t87503.value.native_procedure_type19067)==(t87504.value.native_procedure_type19067)) goto l16641; break; case NATIVE_PROCEDURE_TYPE19068: if ((t87503.value.native_procedure_type19068)==(t87504.value.native_procedure_type19068)) goto l16641; break; case NATIVE_PROCEDURE_TYPE22459: if ((t87503.value.native_procedure_type22459)==(t87504.value.native_procedure_type22459)) goto l16641; break; case STRUCTURE_TYPE24753: if ((t87503.value.structure_type24753)==(t87504.value.structure_type24753)) goto l16641; break; case STRUCTURE_TYPE24757: if ((t87503.value.structure_type24757)==(t87504.value.structure_type24757)) goto l16641; break; case STRUCTURE_TYPE27501: if ((t87503.value.structure_type27501)==(t87504.value.structure_type27501)) goto l16641; break; case STRUCTURE_TYPE27510: if ((t87503.value.structure_type27510)==(t87504.value.structure_type27510)) goto l16641; break; case STRUCTURE_TYPE27621: if ((t87503.value.structure_type27621)==(t87504.value.structure_type27621)) goto l16641; break; case STRUCTURE_TYPE27650: if ((t87503.value.structure_type27650)==(t87504.value.structure_type27650)) goto l16641; break; case STRUCTURE_TYPE27669: if ((t87503.value.structure_type27669)==(t87504.value.structure_type27669)) goto l16641; break; case STRUCTURE_TYPE27673: if ((t87503.value.structure_type27673)==(t87504.value.structure_type27673)) goto l16641; break; case STRUCTURE_TYPE27692: if ((t87503.value.structure_type27692)==(t87504.value.structure_type27692)) goto l16641; break; case STRUCTURE_TYPE27694: if ((t87503.value.structure_type27694)==(t87504.value.structure_type27694)) goto l16641; break; case STRUCTURE_TYPE27698: if ((t87503.value.structure_type27698)==(t87504.value.structure_type27698)) goto l16641; break; case STRUCTURE_TYPE27745: if ((t87503.value.structure_type27745)==(t87504.value.structure_type27745)) goto l16641; break; case STRUCTURE_TYPE27747: if ((t87503.value.structure_type27747)==(t87504.value.structure_type27747)) goto l16641; break; case STRUCTURE_TYPE27750: if ((t87503.value.structure_type27750)==(t87504.value.structure_type27750)) goto l16641; break; case STRUCTURE_TYPE27753: if ((t87503.value.structure_type27753)==(t87504.value.structure_type27753)) goto l16641; break; case STRUCTURE_TYPE27756: if ((t87503.value.structure_type27756)==(t87504.value.structure_type27756)) goto l16641; break; case STRUCTURE_TYPE27761: if ((t87503.value.structure_type27761)==(t87504.value.structure_type27761)) goto l16641; break; case STRUCTURE_TYPE27769: if ((t87503.value.structure_type27769)==(t87504.value.structure_type27769)) goto l16641; break; case STRUCTURE_TYPE27776: if ((t87503.value.structure_type27776)==(t87504.value.structure_type27776)) goto l16641; break; case STRUCTURE_TYPE27779: if ((t87503.value.structure_type27779)==(t87504.value.structure_type27779)) goto l16641; break; case STRUCTURE_TYPE27858: if ((t87503.value.structure_type27858)==(t87504.value.structure_type27858)) goto l16641; break; case STRING_TYPE: if ((t87503.value.string_type)==(t87504.value.string_type)) goto l16641; break; case HEADED_VECTOR_TYPE27896: if ((t87503.value.headed_vector_type27896)==(t87504.value.headed_vector_type27896)) goto l16641; break; case EXTERNAL_SYMBOL_TYPE: if ((t87503.value.external_symbol_type)==(t87504.value.external_symbol_type)) goto l16641; break; case STRUCTURE_TYPE27908: if ((t87503.value.structure_type27908)==(t87504.value.structure_type27908)) goto l16641; break; default: goto l16641;} /* x58892 */ /* x58891 stalin.sc:834:26226 */ t87511 = a20941; /* x58890 stalin.sc:834:26204 */ if (f6984(t87511)==FALSE_TYPE) goto l16641; t87468.tag = TRUE_TYPE; goto l16642; l16641: t87468.tag = FALSE_TYPE; l16642: break; case NATIVE_PROCEDURE_TYPE7622: t87512 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} t87513 = f6941(t87512); t87468.tag = t87513; break; case NATIVE_PROCEDURE_TYPE14290: a32211 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x169487 stalin.sc:24838:858703 */ /* x169485 stalin.sc:24838:858711 */ /* x169484 stalin.sc:24838:858721 */ t87518 = a32211; /* x169483 stalin.sc:24838:858712 */ a41599 = t87518; /* x300508 stalin.sc:6964:241199 */ /* x300507 stalin.sc:6964:241207 */ t87519 = a41599; /* x300506 stalin.sc:6964:241200 */ t87514 = f9719(t87519); /* x169486 stalin.sc:24838:858724 */ t87515 = q9; /* x169482 stalin.sc:24838:858704 */ t87516.tag = EXTERNAL_SYMBOL_TYPE; t87516.value.external_symbol_type = t87515; t87517 = f9745(t87514, t87516); t87468.tag = t87517; break; case NATIVE_PROCEDURE_TYPE14764: a32234 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x170179 stalin.sc:24940:862311 */ /* x170179 stalin.sc:24940:862311 */ /* x170166 stalin.sc:24940:862316 */ /* x170165 stalin.sc:24940:862326 */ t87520 = a32234; /* x170164 stalin.sc:24940:862317 */ if (f9766(t87520)==FALSE_TYPE) goto l16645; /* x170177 */ /* x170169 stalin.sc:24940:862329 */ /* x170168 stalin.sc:24940:862339 */ t87521 = a32234; /* x170167 stalin.sc:24940:862330 */ if (f9740(t87521)==FALSE_TYPE) goto l16645; /* x170175 */ /* x170173 stalin.sc:24940:862350 */ /* x170172 stalin.sc:24940:862360 */ t87525 = a32234; /* x170171 stalin.sc:24940:862351 */ a41475 = t87525; /* x300012 stalin.sc:6964:241199 */ /* x300011 stalin.sc:6964:241207 */ t87526 = a41475; /* x300010 stalin.sc:6964:241200 */ t87522 = f9719(t87526); /* x170174 stalin.sc:24940:862363 */ t87523 = q97; /* x170170 stalin.sc:24940:862343 */ t87524.tag = EXTERNAL_SYMBOL_TYPE; t87524.value.external_symbol_type = t87523; if (f9745(t87522, t87524)==FALSE_TYPE) goto l16645; t87468.tag = TRUE_TYPE; goto l16646; l16645: t87468.tag = FALSE_TYPE; l16646: break; case NATIVE_PROCEDURE_TYPE15158: p1559 = t87477.value.native_procedure_type15158; a15155 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x17610 QobiScheme.sc:774:22378 */ /* x17608 QobiScheme.sc:774:22381 */ t87528 = p1559->a15151; /* x17609 QobiScheme.sc:774:22383 */ t87529 = a15155; /* x17607 QobiScheme.sc:774:22379 */ t87527 = p1559->p1542; p1550 = t87527; a15146 = t87528; a15147 = t87529; e1550 = (struct p1550 *)alloca(sizeof(struct p1550)); if (e1550==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 779, 22571); out_of_memory_error();} e1550->p1542 = p1550; e1550->a15147 = a15147; /* x17561 QobiScheme.sc:779:22585 */ /* x17560 QobiScheme.sc:779:22619 */ t87531 = a15146; /* x17559 QobiScheme.sc:779:22591 */ t87530 = e1550; /* x17553 QobiScheme.sc:779:22586 */ t87532.tag = NATIVE_PROCEDURE_TYPE15159; t87532.value.native_procedure_type15159 = t87530; t87533 = t87531; t87534 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t87532, t87533, t87534); break; case NATIVE_PROCEDURE_TYPE15159: p1551 = t87477.value.native_procedure_type15159; a15148 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x17558 QobiScheme.sc:779:22604 */ /* x17555 QobiScheme.sc:779:22610 */ t87535 = p1551->p1542->a15137; /* x17556 QobiScheme.sc:779:22612 */ t87536 = a15148; /* x17557 QobiScheme.sc:779:22615 */ t87537 = p1551->a15147; /* x17554 QobiScheme.sc:779:22605 */ t87538 = t87535; t87468 = f1178(t87538, t87536, t87537); break; case NATIVE_PROCEDURE_TYPE15160: p14554 = t87477.value.native_procedure_type15160; a25960 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x131271 stalin.sc:16504:576292 */ /* x131271 stalin.sc:16504:576292 */ /* x131265 stalin.sc:16504:576297 */ /* x131263 stalin.sc:16504:576306 */ t87539 = p14554->a25958; /* x131264 stalin.sc:16504:576309 */ t87540 = a25960; /* x131262 stalin.sc:16504:576298 */ if (f8033(t87539, t87540)==FALSE_TYPE) goto l16650; /* x131269 */ /* x131267 stalin.sc:16504:576321 */ t87541 = p14554->a25959; /* x131268 stalin.sc:16504:576324 */ t87542 = a25960; /* x131266 stalin.sc:16504:576313 */ if (f8033(t87541, t87542)==FALSE_TYPE) goto l16650; t87468.tag = TRUE_TYPE; goto l16651; l16650: t87468.tag = FALSE_TYPE; l16651: break; case NATIVE_PROCEDURE_TYPE15237: p8774 = t87477.value.native_procedure_type15237; a22230 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x74926 stalin.sc:4531:152286 */ /* x74926 stalin.sc:4531:152286 */ /* x74892 stalin.sc:4531:152291 */ /* x74891 stalin.sc:4531:152313 */ t87543 = a22230; /* x74890 stalin.sc:4531:152292 */ if (f8471(t87543)==FALSE_TYPE) goto l16654; /* x74924 */ /* x74896 stalin.sc:4532:152318 */ /* x74894 stalin.sc:4532:152335 */ t87544 = p8774->a22229; /* x74895 stalin.sc:4532:152337 */ t87545 = a22230; /* x74893 stalin.sc:4532:152319 */ if (f8790(t87544, t87545)==FALSE_TYPE) goto l16654; /* x74922 */ /* x74914 stalin.sc:4533:152342 */ /* x74913 stalin.sc:4533:152346 */ /* x74912 stalin.sc:4533:152351 */ /* x74911 stalin.sc:4533:152370 */ t87546 = a22230; /* x74910 stalin.sc:4533:152352 */ if (f8585(t87546)==FALSE_TYPE) goto l16658; p8775 = p8774; /* x74906 */ /* x74905 stalin.sc:4534:152385 */ /* x74901 stalin.sc:4534:152402 */ t87547 = p8775->a22229; /* x74904 stalin.sc:4534:152404 */ /* x74903 stalin.sc:4534:152422 */ t87549 = a22230; /* x74902 stalin.sc:4534:152405 */ t87548 = f8659(t87549); /* x74900 stalin.sc:4534:152386 */ if (!(f8788(t87547, t87548)==FALSE_TYPE)) goto l16654; l16658: /* x74920 */ /* x74919 stalin.sc:4535:152435 */ /* x74917 stalin.sc:4535:152462 */ t87550 = p8774->a22229; /* x74918 stalin.sc:4535:152464 */ t87551 = a22230; /* x74916 stalin.sc:4535:152436 */ if (!(f8791(t87550, t87551)==FALSE_TYPE)) goto l16654; t87468.tag = TRUE_TYPE; goto l16655; l16654: t87468.tag = FALSE_TYPE; l16655: break; case NATIVE_PROCEDURE_TYPE15270: a22288 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x75826 stalin.sc:4718:159426 */ /* x75826 stalin.sc:4718:159426 */ /* x75817 stalin.sc:4718:159431 */ /* x75816 stalin.sc:4718:159450 */ t87552 = a22288; /* x75815 stalin.sc:4718:159432 */ if (f8526(t87552)==FALSE_TYPE) goto l16661; /* x75824 */ /* x75823 stalin.sc:4718:159458 */ /* x75822 stalin.sc:4718:159465 */ /* x75821 stalin.sc:4718:159476 */ t87554 = a22288; /* x75820 stalin.sc:4718:159466 */ t87553 = f8951(t87554); /* x270153 stalin.sc:4718:159459 */ if ((t87553.tag)==NULL_TYPE) goto l16661; t87468.tag = TRUE_TYPE; goto l16662; l16661: t87468.tag = FALSE_TYPE; l16662: break; case NATIVE_PROCEDURE_TYPE15379: p13027 = t87477.value.native_procedure_type15379; a24994 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x116076 stalin.sc:13149:461211 */ /* x116075 stalin.sc:13149:461222 */ /* x116071 stalin.sc:13149:461228 */ t87558 = p13027->a24993; /* x116074 stalin.sc:13149:461230 */ /* x116073 stalin.sc:13149:461264 */ t87561 = a24994; /* x116072 stalin.sc:13149:461231 */ a38485 = t87561; /* x286609 */ /* x286608 */ t87562 = a38485; /* x286607 */ if (!((t87562.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-ALLOCATION-ALIST[5687] 33402]"); structure_ref_error();} t87559 = t87562.value.structure_type27698->s25; /* x116070 stalin.sc:13149:461223 */ t87560 = *((struct w49 *)(&t87559)); t87555 = f26354(t87558, t87560); /* x116069 */ a24995 = t87555; /* x116068 stalin.sc:13150:461278 */ /* x116068 stalin.sc:13150:461278 */ /* x116061 stalin.sc:13150:461283 */ if ((a24995.tag)==FALSE_TYPE) goto l16665; /* x116066 */ /* x116065 stalin.sc:13150:461305 */ /* x116064 stalin.sc:13150:461310 */ t87557 = *((struct w3467 *)(&a24995)); /* x269256 stalin.sc:13150:461306 */ if (!((t87557.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 13150, 461305); structure_ref_error();} t87556 = t87557.value.structure_type24753->s1; /* x116062 stalin.sc:13150:461288 */ if (f13035(t87556)==FALSE_TYPE) goto l16665; t87468.tag = TRUE_TYPE; goto l16666; l16665: t87468.tag = FALSE_TYPE; l16666: break; case NATIVE_PROCEDURE_TYPE15394: p13019 = t87477.value.native_procedure_type15394; a24986 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x116028 stalin.sc:13140:460902 */ /* x116026 stalin.sc:13140:460914 */ t87563 = a24986; /* x116027 stalin.sc:13140:460916 */ t87564 = p13019->a24985; /* x116025 stalin.sc:13140:460903 */ t87468 = f9140(t87563, t87564); break; case NATIVE_PROCEDURE_TYPE15615: p11563 = t87477.value.native_procedure_type15615; a23970 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x104294 stalin.sc:10400:360340 */ /* x104259 stalin.sc:10400:360345 */ /* x104258 stalin.sc:10400:360350 */ /* x104257 stalin.sc:10400:360359 */ t87566 = a23970; /* x104256 stalin.sc:10400:360351 */ t87565 = p11563->p11559->a23963; if (t87565==NATIVE_PROCEDURE_TYPE7307) {if (!(f8476(t87566)==FALSE_TYPE)) goto l16669;} else if (!(f8471(t87566)==FALSE_TYPE)) goto l16669; /* x104292 */ /* x104291 */ t87567 = p11563; p11564 = t87567; /* x104290 */ /* x104289 stalin.sc:10401:360377 */ /* x104287 stalin.sc:10401:360384 */ t87592 = a23970; /* x104288 stalin.sc:10401:360386 */ /* x104286 stalin.sc:10401:360378 */ t87591 = p11564->p11559->a23964; if (t87591==NATIVE_PROCEDURE_TYPE7306) {t87593 = TRUE_TYPE; f8477(t87592, t87593);} else {t87594.tag = TRUE_TYPE; f8472(t87592, t87594);} /* x104285 */ t87568 = p11564; p11565 = t87568; /* x104284 stalin.sc:10402:360397 */ /* x104283 stalin.sc:10402:360401 */ /* x104282 stalin.sc:10402:360405 */ t87588 = a23970; /* x104281 stalin.sc:10402:360402 */ t87587 = p11565->p11559->a23962; switch ((unsigned)t87587) {case NATIVE_PROCEDURE_TYPE15609: /* x113385 stalin.sc:12498:436874 */ t87570 = FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE17919: /* x104712 stalin.sc:10496:363922 */ t87570 = FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE20340: /* x71604 stalin.sc:3787:128244 */ t87570 = FALSE_TYPE; break; default: p11620 = t87587; a24033 = t87588; /* x104589 stalin.sc:10458:362454 */ /* x104587 stalin.sc:10458:362459 */ t87589 = a24033; /* x104588 stalin.sc:10458:362461 */ t87590 = p11620->a24031; /* x269493 stalin.sc:10458:362455 */ /* EQ: dispatching general to general */ if ((t87589.tag)==(t87590.tag)) {switch (t87589.tag) {case FIXNUM_TYPE: t87570 = ((t87589.value.fixnum_type)==(t87590.value.fixnum_type))?TRUE_TYPE:FALSE_TYPE; break; case FLONUM_TYPE: t87570 = ((t87589.value.flonum_type)==(t87590.value.flonum_type))?TRUE_TYPE:FALSE_TYPE; break; case INPUT_PORT_TYPE: t87570 = ((t87589.value.input_port_type)==(t87590.value.input_port_type))?TRUE_TYPE:FALSE_TYPE; break; case OUTPUT_PORT_TYPE: t87570 = ((t87589.value.output_port_type)==(t87590.value.output_port_type))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE15963: t87570 = ((t87589.value.native_procedure_type15963)==(t87590.value.native_procedure_type15963))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19067: t87570 = ((t87589.value.native_procedure_type19067)==(t87590.value.native_procedure_type19067))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19068: t87570 = ((t87589.value.native_procedure_type19068)==(t87590.value.native_procedure_type19068))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE22459: t87570 = ((t87589.value.native_procedure_type22459)==(t87590.value.native_procedure_type22459))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24753: t87570 = ((t87589.value.structure_type24753)==(t87590.value.structure_type24753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24757: t87570 = ((t87589.value.structure_type24757)==(t87590.value.structure_type24757))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27501: t87570 = ((t87589.value.structure_type27501)==(t87590.value.structure_type27501))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27510: t87570 = ((t87589.value.structure_type27510)==(t87590.value.structure_type27510))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27621: t87570 = ((t87589.value.structure_type27621)==(t87590.value.structure_type27621))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27650: t87570 = ((t87589.value.structure_type27650)==(t87590.value.structure_type27650))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27669: t87570 = ((t87589.value.structure_type27669)==(t87590.value.structure_type27669))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27673: t87570 = ((t87589.value.structure_type27673)==(t87590.value.structure_type27673))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27692: t87570 = ((t87589.value.structure_type27692)==(t87590.value.structure_type27692))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27694: t87570 = ((t87589.value.structure_type27694)==(t87590.value.structure_type27694))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27698: t87570 = ((t87589.value.structure_type27698)==(t87590.value.structure_type27698))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27745: t87570 = ((t87589.value.structure_type27745)==(t87590.value.structure_type27745))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27747: t87570 = ((t87589.value.structure_type27747)==(t87590.value.structure_type27747))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27750: t87570 = ((t87589.value.structure_type27750)==(t87590.value.structure_type27750))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27753: t87570 = ((t87589.value.structure_type27753)==(t87590.value.structure_type27753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27756: t87570 = ((t87589.value.structure_type27756)==(t87590.value.structure_type27756))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27761: t87570 = ((t87589.value.structure_type27761)==(t87590.value.structure_type27761))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27769: t87570 = ((t87589.value.structure_type27769)==(t87590.value.structure_type27769))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27776: t87570 = ((t87589.value.structure_type27776)==(t87590.value.structure_type27776))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27779: t87570 = ((t87589.value.structure_type27779)==(t87590.value.structure_type27779))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27858: t87570 = ((t87589.value.structure_type27858)==(t87590.value.structure_type27858))?TRUE_TYPE:FALSE_TYPE; break; case STRING_TYPE: t87570 = ((t87589.value.string_type)==(t87590.value.string_type))?TRUE_TYPE:FALSE_TYPE; break; case HEADED_VECTOR_TYPE27896: t87570 = ((t87589.value.headed_vector_type27896)==(t87590.value.headed_vector_type27896))?TRUE_TYPE:FALSE_TYPE; break; case EXTERNAL_SYMBOL_TYPE: t87570 = ((t87589.value.external_symbol_type)==(t87590.value.external_symbol_type))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27908: t87570 = ((t87589.value.structure_type27908)==(t87590.value.structure_type27908))?TRUE_TYPE:FALSE_TYPE; break; default: t87570 = TRUE_TYPE;}} else t87570 = FALSE_TYPE;} /* x104280 */ t87569 = p11565; p11566 = t87569; a23972 = t87570; /* x104279 */ /* x104260 */ if (a23972==FALSE_TYPE) goto l16672; /* x104261 */ t87468.tag = a23972; goto l16673; l16672: /* x104278 */ /* x104277 stalin.sc:10403:360412 */ /* x104276 stalin.sc:10403:360424 */ /* x104275 stalin.sc:10403:360457 */ t87585 = a23970; /* x104274 stalin.sc:10403:360425 */ a20698 = t87585; /* x56003 */ /* x56002 */ t87586 = a20698; /* x56001 */ if (!((t87586.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("ENVIRONMENT-DIRECT-TAIL-CALLERS[6767]"); structure_ref_error();} t87581 = t87586.value.structure_type27694->s17; /* x104273 stalin.sc:10403:360418 */ t87580 = p11566->a23966; /* x104272 stalin.sc:10403:360413 */ t87582.tag = NATIVE_PROCEDURE_TYPE15615; t87582.value.native_procedure_type15615 = t87580; t87583 = *((struct w49 *)(&t87581)); t87584 = (struct structure_type24753 *)NULL_TYPE; t87572 = f1042(t87582, t87583, t87584); /* x104271 */ t87571 = p11566; p11567 = t87571; a23973 = t87572; /* x104270 */ /* x104262 */ if ((a23973.tag)==FALSE_TYPE) goto l16675; /* x104263 */ t87468 = a23973; goto l16676; l16675: /* x104269 */ /* x104268 stalin.sc:10404:360477 */ /* x104267 stalin.sc:10404:360514 */ t87578 = a23970; /* x104266 stalin.sc:10404:360478 */ a20708 = t87578; /* x56042 */ /* x56041 */ t87579 = a20708; /* x56040 */ if (!((t87579.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("ENVIRONMENT-DIRECT-NON-TAIL-CALLERS[6775]"); structure_ref_error();} t87574 = t87579.value.structure_type27694->s18; /* x104265 stalin.sc:10404:360471 */ t87573 = p11567->a23966; /* x104264 stalin.sc:10404:360466 */ t87575.tag = NATIVE_PROCEDURE_TYPE15615; t87575.value.native_procedure_type15615 = t87573; t87576 = *((struct w49 *)(&t87574)); t87577 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t87575, t87576, t87577); l16676: l16673: goto l16670; l16669: /* x104293 */ t87468.tag = FALSE_TYPE; l16670: break; case NATIVE_PROCEDURE_TYPE15621: p12666 = t87477.value.native_procedure_type15621; a24718 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x113280 stalin.sc:12461:435393 */ /* x113280 stalin.sc:12461:435393 */ /* x113274 stalin.sc:12461:435398 */ /* x113273 stalin.sc:12461:435403 */ /* x113272 stalin.sc:12461:435425 */ t87595 = a24718; /* x113271 stalin.sc:12461:435404 */ if (!(f8751(t87595)==FALSE_TYPE)) goto l16678; /* x113278 */ /* x113276 stalin.sc:12462:435460 */ t87596 = a24718; /* x113277 stalin.sc:12462:435462 */ t87597 = p12666->a24717; /* x113275 stalin.sc:12462:435434 */ if (f8791(t87596, t87597)==FALSE_TYPE) goto l16678; t87468.tag = TRUE_TYPE; goto l16679; l16678: t87468.tag = FALSE_TYPE; l16679: break; case NATIVE_PROCEDURE_TYPE16028: p12194 = t87477.value.native_procedure_type16028; a24403 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} e12194 = (struct p12194 *)alloca(sizeof(struct p12194)); if (e12194==NULL) {backtrace("stalin.sc", 11441, 399287); out_of_memory_error();} e12194->p12192 = p12194; e12194->a24403 = a24403; /* x109110 stalin.sc:11442:399303 */ /* x109057 stalin.sc:11442:399308 */ /* x109056 stalin.sc:11442:399319 */ t87598 = e12194->a24403; /* x109055 stalin.sc:11442:399309 */ if (f6967(t87598)==FALSE_TYPE) goto l16682; /* x109108 */ /* x109088 stalin.sc:11443:399324 */ /* x109082 stalin.sc:11444:399336 */ t87599 = e12194; /* x109087 stalin.sc:11449:399549 */ /* x109086 stalin.sc:11449:399570 */ /* x109085 stalin.sc:11449:399589 */ t87604 = e12194->a24403; /* x109084 stalin.sc:11449:399571 */ a38871 = t87604; /* x288153 */ /* x288152 */ t87605 = a38871; /* x288151 */ if (!((t87605.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33788]"); structure_ref_error();} t87602 = t87605.value.structure_type27698->s21; /* x109083 stalin.sc:11449:399550 */ a40015 = t87602; /* x292729 */ /* x292728 */ t87603 = a40015; /* x292727 */ if (!((t87603.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34932]"); structure_ref_error();} t87600 = t87603.value.structure_type27698->s10; /* x109058 stalin.sc:11443:399325 */ t87601.tag = NATIVE_PROCEDURE_TYPE16056; t87601.value.native_procedure_type16056 = t87599; if ((f8137(t87601, t87600).tag)==FALSE_TYPE) goto l16685; /* x109106 */ /* x109096 stalin.sc:11450:399596 */ /* x109090 stalin.sc:11450:399605 */ t87606 = p12194->a24401; /* x109095 stalin.sc:11450:399608 */ /* x109094 stalin.sc:11450:399629 */ /* x109093 stalin.sc:11450:399645 */ t87610 = e12194->a24403; /* x109092 stalin.sc:11450:399630 */ t87608 = f6998(t87610); /* x109091 stalin.sc:11450:399609 */ a39916 = t87608; /* x292333 */ /* x292332 */ t87609 = a39916; /* x292331 */ if (!((t87609.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34833]"); structure_ref_error();} t87607 = t87609.value.structure_type27698->s10; /* x109089 stalin.sc:11450:399597 */ if (f8033(t87606, t87607)==FALSE_TYPE) goto l16688; /* x109104 */ /* x109098 stalin.sc:11452:399677 */ /* x109103 stalin.sc:11452:399688 */ /* x109102 stalin.sc:11452:399709 */ /* x109101 stalin.sc:11452:399726 */ t87615 = e12194->a24403; /* x109100 stalin.sc:11452:399710 */ t87613 = f7003(t87615); /* x109099 stalin.sc:11452:399689 */ a39867 = t87613; /* x292137 */ /* x292136 */ t87614 = a39867; /* x292135 */ if (!((t87614.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34784]"); structure_ref_error();} t87611 = t87614.value.structure_type27698->s10; /* x109097 stalin.sc:11451:399653 */ t87612 = (struct p9140 *)NATIVE_PROCEDURE_TYPE7067; t87468 = f9030(t87612, t87611); goto l16689; l16688: /* x109105 */ t87468.tag = FALSE_TYPE; l16689: goto l16686; l16685: /* x109107 */ t87468.tag = FALSE_TYPE; l16686: goto l16683; l16682: /* x109109 */ t87468.tag = FALSE_TYPE; l16683: break; case NATIVE_PROCEDURE_TYPE16066: p12121 = t87477.value.native_procedure_type16066; a24343 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} e12121 = (struct p12121 *)alloca(sizeof(struct p12121)); if (e12121==NULL) {backtrace("stalin.sc", 11498, 401583); out_of_memory_error();} e12121->a24343 = a24343; /* x108511 stalin.sc:11499:401599 */ /* x108469 stalin.sc:11499:401604 */ /* x108468 stalin.sc:11499:401615 */ t87616 = e12121->a24343; /* x108467 stalin.sc:11499:401605 */ if (f6967(t87616)==FALSE_TYPE) goto l16691; /* x108509 */ /* x108489 stalin.sc:11500:401620 */ /* x108483 stalin.sc:11501:401632 */ t87617 = e12121; /* x108488 stalin.sc:11504:401752 */ /* x108487 stalin.sc:11504:401773 */ /* x108486 stalin.sc:11504:401792 */ t87622 = e12121->a24343; /* x108485 stalin.sc:11504:401774 */ a38868 = t87622; /* x288141 */ /* x288140 */ t87623 = a38868; /* x288139 */ if (!((t87623.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33785]"); structure_ref_error();} t87620 = t87623.value.structure_type27698->s21; /* x108484 stalin.sc:11504:401753 */ a40012 = t87620; /* x292717 */ /* x292716 */ t87621 = a40012; /* x292715 */ if (!((t87621.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34929]"); structure_ref_error();} t87618 = t87621.value.structure_type27698->s10; /* x108470 stalin.sc:11500:401621 */ t87619.tag = NATIVE_PROCEDURE_TYPE16073; t87619.value.native_procedure_type16073 = t87617; if ((f8137(t87619, t87618).tag)==FALSE_TYPE) goto l16694; /* x108507 */ /* x108497 stalin.sc:11505:401799 */ /* x108491 stalin.sc:11505:401808 */ t87624 = p12121->a24341; /* x108496 stalin.sc:11505:401811 */ /* x108495 stalin.sc:11505:401832 */ /* x108494 stalin.sc:11505:401848 */ t87628 = e12121->a24343; /* x108493 stalin.sc:11505:401833 */ t87626 = f6998(t87628); /* x108492 stalin.sc:11505:401812 */ a39911 = t87626; /* x292313 */ /* x292312 */ t87627 = a39911; /* x292311 */ if (!((t87627.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34828]"); structure_ref_error();} t87625 = t87627.value.structure_type27698->s10; /* x108490 stalin.sc:11505:401800 */ if (f8033(t87624, t87625)==FALSE_TYPE) goto l16697; /* x108505 */ /* x108499 stalin.sc:11507:401880 */ /* x108504 stalin.sc:11507:401891 */ /* x108503 stalin.sc:11507:401912 */ /* x108502 stalin.sc:11507:401928 */ t87633 = e12121->a24343; /* x108501 stalin.sc:11507:401913 */ t87631 = f7008(t87633); /* x108500 stalin.sc:11507:401892 */ a39865 = t87631; /* x292129 */ /* x292128 */ t87632 = a39865; /* x292127 */ if (!((t87632.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34782]"); structure_ref_error();} t87629 = t87632.value.structure_type27698->s10; /* x108498 stalin.sc:11506:401856 */ t87630 = (struct p9140 *)NATIVE_PROCEDURE_TYPE7067; t87468 = f9030(t87630, t87629); goto l16698; l16697: /* x108506 */ t87468.tag = FALSE_TYPE; l16698: goto l16695; l16694: /* x108508 */ t87468.tag = FALSE_TYPE; l16695: goto l16692; l16691: /* x108510 */ t87468.tag = FALSE_TYPE; l16692: break; case NATIVE_PROCEDURE_TYPE16680: a23302 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x93868 stalin.sc:8329:283713 */ /* x93865 stalin.sc:8329:283718 */ /* x93864 stalin.sc:8329:283740 */ t87636 = a23302; /* x93863 stalin.sc:8329:283719 */ a36954 = t87636; /* x280485 */ /* x280484 */ t87637 = a36954; /* x280483 */ if (!((t87637.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31871]"); structure_ref_error();} t87634 = t87637.value.structure_type27692->s8; /* x93867 stalin.sc:8329:283743 */ /* x93866 stalin.sc:8329:283744 */ /* x277499 stalin.sc:323:8604 */ t87635 = q35; /* x269780 stalin.sc:8329:283714 */ t87468.tag = (((t87634.tag)==EXTERNAL_SYMBOL_TYPE)&&((t87634.value.external_symbol_type)==t87635))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE16821: p13377 = t87477.value.native_procedure_type16821; a25163 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} e13377 = (struct p13377 *)alloca(sizeof(struct p13377)); if (e13377==NULL) {backtrace("stalin.sc", 13998, 494433); out_of_memory_error();} e13377->a25163 = a25163; /* x120377 stalin.sc:13999:494450 */ /* x120376 stalin.sc:14006:494656 */ t87639 = p13377->a25162; /* x120375 stalin.sc:13999:494456 */ t87638 = e13377; /* x120342 stalin.sc:13999:494451 */ t87640.tag = NATIVE_PROCEDURE_TYPE16823; t87640.value.native_procedure_type16823 = t87638; /* MOVE: branching squeezed to general */ if (t87639>=((struct structure_type24753 *)VALUE_OFFSET)) {t87641.tag = STRUCTURE_TYPE24753; t87641.value.structure_type24753 = t87639;} else t87641.tag = (unsigned)t87639; t87642 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t87640, t87641, t87642); break; case NATIVE_PROCEDURE_TYPE16823: p13378 = t87477.value.native_procedure_type16823; a25164 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x120374 stalin.sc:14000:494473 */ /* x120374 stalin.sc:14000:494473 */ /* x120348 stalin.sc:14000:494478 */ /* x120347 stalin.sc:14000:494483 */ /* x120345 stalin.sc:14000:494488 */ t87643 = p13378->a25163; /* x120346 stalin.sc:14000:494491 */ t87644 = a25164; /* x269179 stalin.sc:14000:494484 */ /* EQ: dispatching general to general */ if ((t87643.tag)==(t87644.tag)) switch (t87643.tag) {case FIXNUM_TYPE: if ((t87643.value.fixnum_type)==(t87644.value.fixnum_type)) goto l16700; break; case FLONUM_TYPE: if ((t87643.value.flonum_type)==(t87644.value.flonum_type)) goto l16700; break; case INPUT_PORT_TYPE: if ((t87643.value.input_port_type)==(t87644.value.input_port_type)) goto l16700; break; case OUTPUT_PORT_TYPE: if ((t87643.value.output_port_type)==(t87644.value.output_port_type)) goto l16700; break; case NATIVE_PROCEDURE_TYPE15963: if ((t87643.value.native_procedure_type15963)==(t87644.value.native_procedure_type15963)) goto l16700; break; case NATIVE_PROCEDURE_TYPE19067: if ((t87643.value.native_procedure_type19067)==(t87644.value.native_procedure_type19067)) goto l16700; break; case NATIVE_PROCEDURE_TYPE19068: if ((t87643.value.native_procedure_type19068)==(t87644.value.native_procedure_type19068)) goto l16700; break; case NATIVE_PROCEDURE_TYPE22459: if ((t87643.value.native_procedure_type22459)==(t87644.value.native_procedure_type22459)) goto l16700; break; case STRUCTURE_TYPE24753: if ((t87643.value.structure_type24753)==(t87644.value.structure_type24753)) goto l16700; break; case STRUCTURE_TYPE24757: if ((t87643.value.structure_type24757)==(t87644.value.structure_type24757)) goto l16700; break; case STRUCTURE_TYPE27501: if ((t87643.value.structure_type27501)==(t87644.value.structure_type27501)) goto l16700; break; case STRUCTURE_TYPE27510: if ((t87643.value.structure_type27510)==(t87644.value.structure_type27510)) goto l16700; break; case STRUCTURE_TYPE27621: if ((t87643.value.structure_type27621)==(t87644.value.structure_type27621)) goto l16700; break; case STRUCTURE_TYPE27650: if ((t87643.value.structure_type27650)==(t87644.value.structure_type27650)) goto l16700; break; case STRUCTURE_TYPE27669: if ((t87643.value.structure_type27669)==(t87644.value.structure_type27669)) goto l16700; break; case STRUCTURE_TYPE27673: if ((t87643.value.structure_type27673)==(t87644.value.structure_type27673)) goto l16700; break; case STRUCTURE_TYPE27692: if ((t87643.value.structure_type27692)==(t87644.value.structure_type27692)) goto l16700; break; case STRUCTURE_TYPE27694: if ((t87643.value.structure_type27694)==(t87644.value.structure_type27694)) goto l16700; break; case STRUCTURE_TYPE27698: if ((t87643.value.structure_type27698)==(t87644.value.structure_type27698)) goto l16700; break; case STRUCTURE_TYPE27745: if ((t87643.value.structure_type27745)==(t87644.value.structure_type27745)) goto l16700; break; case STRUCTURE_TYPE27747: if ((t87643.value.structure_type27747)==(t87644.value.structure_type27747)) goto l16700; break; case STRUCTURE_TYPE27750: if ((t87643.value.structure_type27750)==(t87644.value.structure_type27750)) goto l16700; break; case STRUCTURE_TYPE27753: if ((t87643.value.structure_type27753)==(t87644.value.structure_type27753)) goto l16700; break; case STRUCTURE_TYPE27756: if ((t87643.value.structure_type27756)==(t87644.value.structure_type27756)) goto l16700; break; case STRUCTURE_TYPE27761: if ((t87643.value.structure_type27761)==(t87644.value.structure_type27761)) goto l16700; break; case STRUCTURE_TYPE27769: if ((t87643.value.structure_type27769)==(t87644.value.structure_type27769)) goto l16700; break; case STRUCTURE_TYPE27776: if ((t87643.value.structure_type27776)==(t87644.value.structure_type27776)) goto l16700; break; case STRUCTURE_TYPE27779: if ((t87643.value.structure_type27779)==(t87644.value.structure_type27779)) goto l16700; break; case STRUCTURE_TYPE27858: if ((t87643.value.structure_type27858)==(t87644.value.structure_type27858)) goto l16700; break; case STRING_TYPE: if ((t87643.value.string_type)==(t87644.value.string_type)) goto l16700; break; case HEADED_VECTOR_TYPE27896: if ((t87643.value.headed_vector_type27896)==(t87644.value.headed_vector_type27896)) goto l16700; break; case EXTERNAL_SYMBOL_TYPE: if ((t87643.value.external_symbol_type)==(t87644.value.external_symbol_type)) goto l16700; break; case STRUCTURE_TYPE27908: if ((t87643.value.structure_type27908)==(t87644.value.structure_type27908)) goto l16700; break; default: goto l16700;} /* x120372 */ /* x120351 stalin.sc:14001:494505 */ /* x120350 stalin.sc:14001:494529 */ t87645 = p13378->a25163; /* x120349 stalin.sc:14001:494506 */ a38110 = t87645; /* x285109 */ /* x285108 */ t87646 = a38110; /* x285107 */ if (!((t87646.tag)==STRUCTURE_TYPE27756)) goto l16700; /* x120370 */ /* x120354 stalin.sc:14002:494542 */ /* x120353 stalin.sc:14002:494551 */ t87647 = p13378->a25163; /* x120352 stalin.sc:14002:494543 */ if ((f8899(t87647).tag)==FALSE_TYPE) goto l16700; /* x120368 */ /* x120357 stalin.sc:14003:494564 */ /* x120356 stalin.sc:14003:494588 */ t87648 = a25164; /* x120355 stalin.sc:14003:494565 */ a38025 = t87648; /* x284769 */ /* x284768 */ t87649 = a38025; /* x284767 */ if (!((t87649.tag)==STRUCTURE_TYPE27756)) goto l16700; /* x120366 */ /* x120360 stalin.sc:14004:494601 */ /* x120359 stalin.sc:14004:494610 */ t87650 = a25164; /* x120358 stalin.sc:14004:494602 */ if ((f8899(t87650).tag)==FALSE_TYPE) goto l16700; /* x120364 */ /* x120362 stalin.sc:14005:494637 */ t87651 = p13378->a25163; /* x120363 stalin.sc:14005:494640 */ t87652 = a25164; /* x120361 stalin.sc:14005:494624 */ a21639 = t87651; a21640 = t87652; /* x68395 stalin.sc:2945:99334 */ /* x68380 stalin.sc:2945:99339 */ /* x68379 stalin.sc:2945:99363 */ t87653 = a21639; /* x68378 stalin.sc:2945:99340 */ a38024 = t87653; /* x284765 */ /* x284764 */ t87654 = a38024; /* x284763 */ if (!((t87654.tag)==STRUCTURE_TYPE27756)) goto l16700; /* x68393 */ /* x68383 stalin.sc:2946:99373 */ /* x68382 stalin.sc:2946:99397 */ t87655 = a21640; /* x68381 stalin.sc:2946:99374 */ a19582 = t87655; /* x51895 */ /* x51894 */ t87656 = a19582; /* x51893 */ if (!((t87656.tag)==STRUCTURE_TYPE27756)) goto l16700; /* x68391 */ /* x68387 stalin.sc:2947:99412 */ /* x68386 stalin.sc:2947:99428 */ t87659 = a21639; /* x68385 stalin.sc:2947:99413 */ t87657 = f8976(t87659); /* x68390 stalin.sc:2947:99432 */ /* x68389 stalin.sc:2947:99448 */ t87660 = a21640; /* x68388 stalin.sc:2947:99433 */ t87658 = f8976(t87660); /* x270401 stalin.sc:2947:99408 */ /* EQ: dispatching general to general */ if (!((t87657.tag)==(t87658.tag))) goto l16700; switch (t87657.tag) {case FIXNUM_TYPE: if (!((t87657.value.fixnum_type)==(t87658.value.fixnum_type))) goto l16700; break; case FLONUM_TYPE: if (!((t87657.value.flonum_type)==(t87658.value.flonum_type))) goto l16700; break; case INPUT_PORT_TYPE: if (!((t87657.value.input_port_type)==(t87658.value.input_port_type))) goto l16700; break; case OUTPUT_PORT_TYPE: if (!((t87657.value.output_port_type)==(t87658.value.output_port_type))) goto l16700; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t87657.value.native_procedure_type15963)==(t87658.value.native_procedure_type15963))) goto l16700; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t87657.value.native_procedure_type19067)==(t87658.value.native_procedure_type19067))) goto l16700; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t87657.value.native_procedure_type19068)==(t87658.value.native_procedure_type19068))) goto l16700; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t87657.value.native_procedure_type22459)==(t87658.value.native_procedure_type22459))) goto l16700; break; case STRUCTURE_TYPE24753: if (!((t87657.value.structure_type24753)==(t87658.value.structure_type24753))) goto l16700; break; case STRUCTURE_TYPE24757: if (!((t87657.value.structure_type24757)==(t87658.value.structure_type24757))) goto l16700; break; case STRUCTURE_TYPE27501: if (!((t87657.value.structure_type27501)==(t87658.value.structure_type27501))) goto l16700; break; case STRUCTURE_TYPE27510: if (!((t87657.value.structure_type27510)==(t87658.value.structure_type27510))) goto l16700; break; case STRUCTURE_TYPE27621: if (!((t87657.value.structure_type27621)==(t87658.value.structure_type27621))) goto l16700; break; case STRUCTURE_TYPE27650: if (!((t87657.value.structure_type27650)==(t87658.value.structure_type27650))) goto l16700; break; case STRUCTURE_TYPE27669: if (!((t87657.value.structure_type27669)==(t87658.value.structure_type27669))) goto l16700; break; case STRUCTURE_TYPE27673: if (!((t87657.value.structure_type27673)==(t87658.value.structure_type27673))) goto l16700; break; case STRUCTURE_TYPE27692: if (!((t87657.value.structure_type27692)==(t87658.value.structure_type27692))) goto l16700; break; case STRUCTURE_TYPE27694: if (!((t87657.value.structure_type27694)==(t87658.value.structure_type27694))) goto l16700; break; case STRUCTURE_TYPE27698: if (!((t87657.value.structure_type27698)==(t87658.value.structure_type27698))) goto l16700; break; case STRUCTURE_TYPE27745: if (!((t87657.value.structure_type27745)==(t87658.value.structure_type27745))) goto l16700; break; case STRUCTURE_TYPE27747: if (!((t87657.value.structure_type27747)==(t87658.value.structure_type27747))) goto l16700; break; case STRUCTURE_TYPE27750: if (!((t87657.value.structure_type27750)==(t87658.value.structure_type27750))) goto l16700; break; case STRUCTURE_TYPE27753: if (!((t87657.value.structure_type27753)==(t87658.value.structure_type27753))) goto l16700; break; case STRUCTURE_TYPE27756: if (!((t87657.value.structure_type27756)==(t87658.value.structure_type27756))) goto l16700; break; case STRUCTURE_TYPE27761: if (!((t87657.value.structure_type27761)==(t87658.value.structure_type27761))) goto l16700; break; case STRUCTURE_TYPE27769: if (!((t87657.value.structure_type27769)==(t87658.value.structure_type27769))) goto l16700; break; case STRUCTURE_TYPE27776: if (!((t87657.value.structure_type27776)==(t87658.value.structure_type27776))) goto l16700; break; case STRUCTURE_TYPE27779: if (!((t87657.value.structure_type27779)==(t87658.value.structure_type27779))) goto l16700; break; case STRUCTURE_TYPE27858: if (!((t87657.value.structure_type27858)==(t87658.value.structure_type27858))) goto l16700; break; case STRING_TYPE: if (!((t87657.value.string_type)==(t87658.value.string_type))) goto l16700; break; case HEADED_VECTOR_TYPE27896: if (!((t87657.value.headed_vector_type27896)==(t87658.value.headed_vector_type27896))) goto l16700; break; case EXTERNAL_SYMBOL_TYPE: if (!((t87657.value.external_symbol_type)==(t87658.value.external_symbol_type))) goto l16700; break; case STRUCTURE_TYPE27908: if (!((t87657.value.structure_type27908)==(t87658.value.structure_type27908))) goto l16700; break; default:;} t87468.tag = TRUE_TYPE; goto l16701; l16700: t87468.tag = FALSE_TYPE; l16701: break; case NATIVE_PROCEDURE_TYPE17112: p11526 = t87477.value.native_procedure_type17112; a23928 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x103981 stalin.sc:10261:355582 */ /* x103960 stalin.sc:10261:355587 */ /* x103959 stalin.sc:10261:355592 */ /* x103957 stalin.sc:10261:355597 */ t87661 = p11526->a23926; /* x103958 stalin.sc:10261:355600 */ t87662 = a23928; /* x269506 stalin.sc:10261:355593 */ /* EQ: dispatching general to general */ if ((t87661.tag)==(t87662.tag)) switch (t87661.tag) {case FIXNUM_TYPE: if ((t87661.value.fixnum_type)==(t87662.value.fixnum_type)) goto l16710; break; case FLONUM_TYPE: if ((t87661.value.flonum_type)==(t87662.value.flonum_type)) goto l16710; break; case INPUT_PORT_TYPE: if ((t87661.value.input_port_type)==(t87662.value.input_port_type)) goto l16710; break; case OUTPUT_PORT_TYPE: if ((t87661.value.output_port_type)==(t87662.value.output_port_type)) goto l16710; break; case NATIVE_PROCEDURE_TYPE15963: if ((t87661.value.native_procedure_type15963)==(t87662.value.native_procedure_type15963)) goto l16710; break; case NATIVE_PROCEDURE_TYPE19067: if ((t87661.value.native_procedure_type19067)==(t87662.value.native_procedure_type19067)) goto l16710; break; case NATIVE_PROCEDURE_TYPE19068: if ((t87661.value.native_procedure_type19068)==(t87662.value.native_procedure_type19068)) goto l16710; break; case NATIVE_PROCEDURE_TYPE22459: if ((t87661.value.native_procedure_type22459)==(t87662.value.native_procedure_type22459)) goto l16710; break; case STRUCTURE_TYPE24753: if ((t87661.value.structure_type24753)==(t87662.value.structure_type24753)) goto l16710; break; case STRUCTURE_TYPE24757: if ((t87661.value.structure_type24757)==(t87662.value.structure_type24757)) goto l16710; break; case STRUCTURE_TYPE27501: if ((t87661.value.structure_type27501)==(t87662.value.structure_type27501)) goto l16710; break; case STRUCTURE_TYPE27510: if ((t87661.value.structure_type27510)==(t87662.value.structure_type27510)) goto l16710; break; case STRUCTURE_TYPE27621: if ((t87661.value.structure_type27621)==(t87662.value.structure_type27621)) goto l16710; break; case STRUCTURE_TYPE27650: if ((t87661.value.structure_type27650)==(t87662.value.structure_type27650)) goto l16710; break; case STRUCTURE_TYPE27669: if ((t87661.value.structure_type27669)==(t87662.value.structure_type27669)) goto l16710; break; case STRUCTURE_TYPE27673: if ((t87661.value.structure_type27673)==(t87662.value.structure_type27673)) goto l16710; break; case STRUCTURE_TYPE27692: if ((t87661.value.structure_type27692)==(t87662.value.structure_type27692)) goto l16710; break; case STRUCTURE_TYPE27694: if ((t87661.value.structure_type27694)==(t87662.value.structure_type27694)) goto l16710; break; case STRUCTURE_TYPE27698: if ((t87661.value.structure_type27698)==(t87662.value.structure_type27698)) goto l16710; break; case STRUCTURE_TYPE27745: if ((t87661.value.structure_type27745)==(t87662.value.structure_type27745)) goto l16710; break; case STRUCTURE_TYPE27747: if ((t87661.value.structure_type27747)==(t87662.value.structure_type27747)) goto l16710; break; case STRUCTURE_TYPE27750: if ((t87661.value.structure_type27750)==(t87662.value.structure_type27750)) goto l16710; break; case STRUCTURE_TYPE27753: if ((t87661.value.structure_type27753)==(t87662.value.structure_type27753)) goto l16710; break; case STRUCTURE_TYPE27756: if ((t87661.value.structure_type27756)==(t87662.value.structure_type27756)) goto l16710; break; case STRUCTURE_TYPE27761: if ((t87661.value.structure_type27761)==(t87662.value.structure_type27761)) goto l16710; break; case STRUCTURE_TYPE27769: if ((t87661.value.structure_type27769)==(t87662.value.structure_type27769)) goto l16710; break; case STRUCTURE_TYPE27776: if ((t87661.value.structure_type27776)==(t87662.value.structure_type27776)) goto l16710; break; case STRUCTURE_TYPE27779: if ((t87661.value.structure_type27779)==(t87662.value.structure_type27779)) goto l16710; break; case STRUCTURE_TYPE27858: if ((t87661.value.structure_type27858)==(t87662.value.structure_type27858)) goto l16710; break; case STRING_TYPE: if ((t87661.value.string_type)==(t87662.value.string_type)) goto l16710; break; case HEADED_VECTOR_TYPE27896: if ((t87661.value.headed_vector_type27896)==(t87662.value.headed_vector_type27896)) goto l16710; break; case EXTERNAL_SYMBOL_TYPE: if ((t87661.value.external_symbol_type)==(t87662.value.external_symbol_type)) goto l16710; break; case STRUCTURE_TYPE27908: if ((t87661.value.structure_type27908)==(t87662.value.structure_type27908)) goto l16710; break; default: goto l16710;} /* x103979 */ /* x103978 stalin.sc:10268:355792 */ /* x103977 stalin.sc:10268:355804 */ t87668 = a23928; /* x103976 stalin.sc:10268:355793 */ t87664 = f8615(t87668); /* x103975 stalin.sc:10262:355616 */ t87663 = p11526; /* x103961 stalin.sc:10262:355611 */ t87665.tag = NATIVE_PROCEDURE_TYPE17113; t87665.value.native_procedure_type17113 = t87663; /* MOVE: branching squeezed to general */ if (t87664>=((struct structure_type24753 *)VALUE_OFFSET)) {t87666.tag = STRUCTURE_TYPE24753; t87666.value.structure_type24753 = t87664;} else t87666.tag = (unsigned)t87664; t87667 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t87665, t87666, t87667); goto l16711; l16710: /* x103980 */ t87468.tag = FALSE_TYPE; l16711: break; case NATIVE_PROCEDURE_TYPE17113: p11527 = t87477.value.native_procedure_type17113; a23929 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x103974 stalin.sc:10263:355640 */ /* x103974 stalin.sc:10263:355640 */ /* x103964 stalin.sc:10263:355645 */ /* x103963 stalin.sc:10263:355666 */ t87669 = a23929; /* x103962 stalin.sc:10263:355646 */ if (f8752(t87669)==FALSE_TYPE) goto l16713; /* x103972 */ /* x103970 stalin.sc:10265:355702 */ /* x103969 stalin.sc:10266:355738 */ /* x103968 stalin.sc:10266:355760 */ t87674 = a23929; /* x103967 stalin.sc:10266:355739 */ a36482 = t87674; /* x278597 */ /* x278596 */ t87675 = a36482; /* x278595 */ if (!((t87675.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31399]"); structure_ref_error();} t87672 = t87675.value.structure_type27745->s0; /* x103966 stalin.sc:10265:355703 */ a40075 = t87672; /* x292969 */ /* x292968 */ t87673 = a40075; /* x292967 */ if (!((t87673.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34992]"); structure_ref_error();} t87670 = t87673.value.structure_type27698->s9; /* x103971 stalin.sc:10267:355775 */ t87671 = p11527->a23926; /* x103965 stalin.sc:10264:355680 */ if (f8736(t87670, t87671)==FALSE_TYPE) goto l16713; t87468.tag = TRUE_TYPE; goto l16714; l16713: t87468.tag = FALSE_TYPE; l16714: break; case NATIVE_PROCEDURE_TYPE17291: p10111 = t87477.value.native_procedure_type17291; a23157 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x90473 stalin.sc:7725:264684 */ /* x90471 stalin.sc:7725:264689 */ /* x90470 stalin.sc:7725:264710 */ t87678 = a23157; /* x90469 stalin.sc:7725:264690 */ a39162 = t87678; /* x289317 */ /* x289316 */ t87679 = a39162; /* x289315 */ if (!((t87679.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34079]"); structure_ref_error();} t87676 = t87679.value.structure_type27698->s16; /* x90472 stalin.sc:7725:264713 */ t87677 = p10111->a23156; /* x269837 stalin.sc:7725:264685 */ /* EQ: dispatching general to general */ if ((t87676.tag)==(t87677.tag)) {switch (t87676.tag) {case FIXNUM_TYPE: t87468.tag = ((t87676.value.fixnum_type)==(t87677.value.fixnum_type))?TRUE_TYPE:FALSE_TYPE; break; case FLONUM_TYPE: t87468.tag = ((t87676.value.flonum_type)==(t87677.value.flonum_type))?TRUE_TYPE:FALSE_TYPE; break; case INPUT_PORT_TYPE: t87468.tag = ((t87676.value.input_port_type)==(t87677.value.input_port_type))?TRUE_TYPE:FALSE_TYPE; break; case OUTPUT_PORT_TYPE: t87468.tag = ((t87676.value.output_port_type)==(t87677.value.output_port_type))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE15963: t87468.tag = ((t87676.value.native_procedure_type15963)==(t87677.value.native_procedure_type15963))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19067: t87468.tag = ((t87676.value.native_procedure_type19067)==(t87677.value.native_procedure_type19067))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19068: t87468.tag = ((t87676.value.native_procedure_type19068)==(t87677.value.native_procedure_type19068))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE22459: t87468.tag = ((t87676.value.native_procedure_type22459)==(t87677.value.native_procedure_type22459))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24753: t87468.tag = ((t87676.value.structure_type24753)==(t87677.value.structure_type24753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24757: t87468.tag = ((t87676.value.structure_type24757)==(t87677.value.structure_type24757))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27501: t87468.tag = ((t87676.value.structure_type27501)==(t87677.value.structure_type27501))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27510: t87468.tag = ((t87676.value.structure_type27510)==(t87677.value.structure_type27510))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27621: t87468.tag = ((t87676.value.structure_type27621)==(t87677.value.structure_type27621))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27650: t87468.tag = ((t87676.value.structure_type27650)==(t87677.value.structure_type27650))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27669: t87468.tag = ((t87676.value.structure_type27669)==(t87677.value.structure_type27669))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27673: t87468.tag = ((t87676.value.structure_type27673)==(t87677.value.structure_type27673))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27692: t87468.tag = ((t87676.value.structure_type27692)==(t87677.value.structure_type27692))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27694: t87468.tag = ((t87676.value.structure_type27694)==(t87677.value.structure_type27694))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27698: t87468.tag = ((t87676.value.structure_type27698)==(t87677.value.structure_type27698))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27745: t87468.tag = ((t87676.value.structure_type27745)==(t87677.value.structure_type27745))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27747: t87468.tag = ((t87676.value.structure_type27747)==(t87677.value.structure_type27747))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27750: t87468.tag = ((t87676.value.structure_type27750)==(t87677.value.structure_type27750))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27753: t87468.tag = ((t87676.value.structure_type27753)==(t87677.value.structure_type27753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27756: t87468.tag = ((t87676.value.structure_type27756)==(t87677.value.structure_type27756))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27761: t87468.tag = ((t87676.value.structure_type27761)==(t87677.value.structure_type27761))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27769: t87468.tag = ((t87676.value.structure_type27769)==(t87677.value.structure_type27769))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27776: t87468.tag = ((t87676.value.structure_type27776)==(t87677.value.structure_type27776))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27779: t87468.tag = ((t87676.value.structure_type27779)==(t87677.value.structure_type27779))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27858: t87468.tag = ((t87676.value.structure_type27858)==(t87677.value.structure_type27858))?TRUE_TYPE:FALSE_TYPE; break; case STRING_TYPE: t87468.tag = ((t87676.value.string_type)==(t87677.value.string_type))?TRUE_TYPE:FALSE_TYPE; break; case HEADED_VECTOR_TYPE27896: t87468.tag = ((t87676.value.headed_vector_type27896)==(t87677.value.headed_vector_type27896))?TRUE_TYPE:FALSE_TYPE; break; case EXTERNAL_SYMBOL_TYPE: t87468.tag = ((t87676.value.external_symbol_type)==(t87677.value.external_symbol_type))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27908: t87468.tag = ((t87676.value.structure_type27908)==(t87677.value.structure_type27908))?TRUE_TYPE:FALSE_TYPE; break; default: t87468.tag = TRUE_TYPE;}} else t87468.tag = FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE17460: p11035 = t87477.value.native_procedure_type17460; a23669 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x100075 stalin.sc:9688:334799 */ /* x100075 stalin.sc:9688:334799 */ /* x100061 stalin.sc:9688:334804 */ /* x100060 stalin.sc:9688:334813 */ t87680 = a23669; /* x100059 stalin.sc:9688:334805 */ if ((f8899(t87680).tag)==FALSE_TYPE) goto l16717; /* x100073 */ /* x100067 stalin.sc:9689:334830 */ /* x100066 stalin.sc:9689:334852 */ /* x100065 stalin.sc:9689:334876 */ t87685 = a23669; /* x100064 stalin.sc:9689:334853 */ a36688 = t87685; /* x279421 */ /* x279420 */ t87686 = a36688; /* x279419 */ if (!((t87686.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31605]"); structure_ref_error();} t87683 = t87686.value.structure_type27694->s1; /* x100063 stalin.sc:9689:334831 */ t87684 = *((struct w49 *)(&t87683)); t87681 = f6936(t87684); /* x100072 stalin.sc:9690:334887 */ /* x100071 stalin.sc:9690:334909 */ /* x100070 stalin.sc:9690:334933 */ t87689 = p11035->a23668; /* x100069 stalin.sc:9690:334910 */ a36689 = t87689; /* x279425 */ /* x279424 */ t87690 = a36689; /* x279423 */ if (!((t87690.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31606]"); structure_ref_error();} t87687 = t87690.value.structure_type27694->s1; /* x100068 stalin.sc:9690:334888 */ t87688 = *((struct w49 *)(&t87687)); t87682 = f6936(t87688); /* x269652 stalin.sc:9689:334826 */ if (!(t87681==t87682)) goto l16717; t87468.tag = TRUE_TYPE; goto l16718; l16717: t87468.tag = FALSE_TYPE; l16718: break; case NATIVE_PROCEDURE_TYPE17482: t87691 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} t87468 = f11574((t87477.value.native_procedure_type17482), t87691); break; case NATIVE_PROCEDURE_TYPE17562: a23328 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x94270 stalin.sc:8384:285751 */ /* x94267 stalin.sc:8384:285756 */ /* x94266 stalin.sc:8384:285780 */ t87694 = a23328; /* x94265 stalin.sc:8384:285757 */ a40104 = t87694; /* x293085 */ /* x293084 */ t87695 = a40104; /* x293083 */ if (!((t87695.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 35021]"); structure_ref_error();} t87692 = t87695.value.structure_type27698->s9; /* x94269 stalin.sc:8384:285783 */ /* x94268 stalin.sc:8384:285784 */ /* x277201 stalin.sc:323:8604 */ t87693 = q35; /* x269771 stalin.sc:8384:285752 */ t87468.tag = (((t87692.tag)==EXTERNAL_SYMBOL_TYPE)&&((t87692.value.external_symbol_type)==t87693))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE17814: t87696 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} t87468 = f12471(t87696); break; case NATIVE_PROCEDURE_TYPE17817: p12472 = t87477.value.native_procedure_type17817; a24612 = t87478; if (!(t87479>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} a24613 = t87479->s0; if (!((t87479->s1.tag)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x111103 stalin.sc:12055:420427 */ /* x111089 stalin.sc:12055:420432 */ /* x111087 stalin.sc:12055:420459 */ t87697 = p12472->a24611; /* x111088 stalin.sc:12055:420461 */ t87698 = a24612; /* x111086 stalin.sc:12055:420433 */ a24622 = t87697; a24623 = t87698; sfp12482 = fp12482; e12482 = (struct p12482 *)alloca(sizeof(struct p12482)); if (e12482==NULL) {backtrace_internal("[inside DETERMINE-WHICH-EXPRESSIONS-NEED-CONVERSION-TO-CPS! 12451]"); out_of_memory_error();} e12482->a24623 = a24623; /* x111623 stalin.sc:11913:416179 */ /* x111622 stalin.sc:11913:416193 */ t87700 = a24622; /* x111621 */ /* x111620 */ /* x111619 */ /* x111618 */ t87701 = e12482; p12483 = t87701; if ((fp12482+sizeof(struct p12483))>(&((region12482->data)[region_size12482]))) {struct region12482 *region; unsigned region_size = REGION_SIZE12482; if (sizeof(struct p12483)>region_size) region_size = sizeof(struct p12483); region = (struct region12482 *)GC_malloc_uncollectable(sizeof(struct region12482)+(region_size-1)); if (region==NULL) {backtrace_internal("SOME-SUBEXPRESSION-CALLS?[12482]"); out_of_memory_error();} region->region = region12482; region->region_size = region_size12482; region_size12482 = region_size; region12482 = region; fp12482 = &((region->data)[0]); ALIGN(fp12482);} e12483 = (struct p12483 *)fp12482; fp12482 += sizeof(struct p12483)+((4-(sizeof(struct p12483)%4))&3); e12483->p12482 = p12483; e12483->a24624 = a24624; /* x111617 */ /* x111616 */ /* x111615 */ e12483->a24624 = e12483; /* x111257 */ t87702 = e12483; p12484 = t87702; /* x111256 stalin.sc:11913:416184 */ t87699 = p12484->a24624; if ((f12485(t87699, t87700).tag)==FALSE_TYPE) goto l16721; while ((sfp12482<(&((region12482->data)[0])))||(sfp12482>(&((region12482->data)[region_size12482])))) {struct region12482 *region; region = region12482; region_size12482 = region12482->region_size; region12482 = region12482->region; GC_free(region);} fp12482 = sfp12482; /* x111101 */ /* x111100 stalin.sc:12056:420532 */ t87704 = a24613; /* x111099 stalin.sc:12056:420479 */ t87703 = p12472; /* x111090 stalin.sc:12056:420474 */ t87705.tag = NATIVE_PROCEDURE_TYPE17832; t87705.value.native_procedure_type17832 = t87703; t87706 = t87704; t87707 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t87705, t87706, t87707); goto l16722; l16721: /* x111102 */ t87468.tag = FALSE_TYPE; l16722: break; case NATIVE_PROCEDURE_TYPE17818: p12474 = t87477.value.native_procedure_type17818; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x111112 stalin.sc:12059:420569 */ /* x111110 stalin.sc:12059:420590 */ /* x111111 stalin.sc:12059:420592 */ /* x111109 stalin.sc:12059:420570 */ /* x110926 stalin.sc:11901:415778 */ /* x110925 stalin.sc:11901:415782 */ /* x110924 */ /* x110923 */ /* x110890 */ /* x110891 */ t87468.tag = TRUE_TYPE; break; case NATIVE_PROCEDURE_TYPE17822: t87710 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} t87468 = f12485((t87477.value.native_procedure_type17822), t87710); break; case NATIVE_PROCEDURE_TYPE17832: p12473 = t87477.value.native_procedure_type17832; a24614 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x111098 stalin.sc:12056:420492 */ /* x111094 stalin.sc:12056:420508 */ /* x111093 stalin.sc:12056:420515 */ t87728 = p12473->a24611; /* x111092 stalin.sc:12056:420509 */ t87711 = f9424(t87728); /* x111097 stalin.sc:12056:420518 */ /* x111096 stalin.sc:12056:420526 */ t87729 = a24614; /* x111095 stalin.sc:12056:420519 */ t87712 = f9423(t87729); /* x111091 stalin.sc:12056:420493 */ a22716 = t87711; a22717 = t87712; /* x82248 stalin.sc:5977:207606 */ /* x82247 stalin.sc:5977:207610 */ /* x82245 stalin.sc:5977:207631 */ t87724 = a22716; /* x82246 stalin.sc:5977:207634 */ t87725 = a22717; /* x82244 stalin.sc:5977:207611 */ t87726.tag = STRUCTURE_TYPE27747; t87726.value.structure_type27747 = t87724; t87727.tag = STRUCTURE_TYPE27747; t87727.value.structure_type27747 = t87725; t87713 = f9428(t87726, t87727); /* x82243 */ a22718 = t87713; /* x82242 */ /* x82236 */ if (a22718==FALSE_TYPE) goto l16725; /* x82237 */ t87468.tag = a22718; goto l16726; l16725: /* x82241 */ /* x82239 stalin.sc:5977:207663 */ t87714 = a22716; /* x82240 stalin.sc:5977:207666 */ t87715 = a22717; /* x82238 stalin.sc:5977:207639 */ a22707 = t87714; a22708 = t87715; e9512 = (struct p9512 *)alloca(sizeof(struct p9512)); if (e9512==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} e9512->a22708 = a22708; /* x82233 stalin.sc:5966:207279 */ /* x82232 stalin.sc:5966:207289 */ /* x82231 */ t87716 = e9512; p9513 = t87716; a22709 = (struct structure_type24753 *)NULL_TYPE; e9513 = (struct p9513 *)alloca(sizeof(struct p9513)); if (e9513==NULL) {backtrace_internal("CONTROL-PROPERLY-FLOWS?[9512]"); out_of_memory_error();} e9513->p9512 = p9513; e9513->a22709 = a22709; /* x82230 stalin.sc:5967:207297 */ /* x82229 stalin.sc:5974:207526 */ /* x82228 stalin.sc:5974:207566 */ t87722 = a22707; /* x82227 stalin.sc:5974:207527 */ t87723.tag = STRUCTURE_TYPE27747; t87723.value.structure_type27747 = t87722; t87718 = f9612(t87723); /* x82226 stalin.sc:5967:207303 */ t87717 = e9513; /* x82181 stalin.sc:5967:207298 */ t87719.tag = NATIVE_PROCEDURE_TYPE24132; t87719.value.native_procedure_type24132 = t87717; t87720 = t87718; t87721 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t87719, t87720, t87721); l16726: break; case NATIVE_PROCEDURE_TYPE17901: p11541 = t87477.value.native_procedure_type17901; a23945 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x104156 stalin.sc:10377:359510 */ /* x104121 stalin.sc:10377:359515 */ /* x104120 stalin.sc:10377:359520 */ /* x104119 stalin.sc:10377:359529 */ t87731 = a23945; /* x104118 stalin.sc:10377:359521 */ t87730 = p11541->p11537->a23938; if (t87730==NATIVE_PROCEDURE_TYPE7307) {if (!(f8476(t87731)==FALSE_TYPE)) goto l16728;} else if (!(f8471(t87731)==FALSE_TYPE)) goto l16728; /* x104154 */ /* x104153 */ t87732 = p11541; p11542 = t87732; /* x104152 */ /* x104151 stalin.sc:10378:359547 */ /* x104149 stalin.sc:10378:359554 */ t87754 = a23945; /* x104150 stalin.sc:10378:359556 */ /* x104148 stalin.sc:10378:359548 */ t87753 = p11542->p11537->a23939; if (t87753==NATIVE_PROCEDURE_TYPE7306) {t87755 = TRUE_TYPE; f8477(t87754, t87755);} else {t87756.tag = TRUE_TYPE; f8472(t87754, t87756);} /* x104147 */ t87733 = p11542; p11543 = t87733; /* x104146 stalin.sc:10379:359567 */ /* x104145 stalin.sc:10379:359571 */ /* x104144 stalin.sc:10379:359575 */ /* x104143 stalin.sc:10379:359572 */ t87751 = p11543->p11537->a23937; switch (t87751) {case NATIVE_PROCEDURE_TYPE17897: /* x109367 stalin.sc:11580:404734 */ break; case NATIVE_PROCEDURE_TYPE18263: /* x104682 stalin.sc:10484:363423 */ break; case NATIVE_PROCEDURE_TYPE18930: /* x71016 stalin.sc:3619:122738 */ break; default: /* x71593 stalin.sc:3781:128012 */;} /* x104142 */ t87734 = p11543; p11544 = t87734; /* x104141 */ /* x104122 */ /* x104140 */ /* x104139 stalin.sc:10380:359582 */ /* x104138 stalin.sc:10380:359594 */ /* x104137 stalin.sc:10380:359627 */ t87749 = a23945; /* x104136 stalin.sc:10380:359595 */ a20718 = t87749; /* x56081 */ /* x56080 */ t87750 = a20718; /* x56079 */ if (!((t87750.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("ENVIRONMENT-DIRECT-TAIL-CALLEES[6783]"); structure_ref_error();} t87745 = t87750.value.structure_type27694->s19; /* x104135 stalin.sc:10380:359588 */ t87744 = p11544->a23941; /* x104134 stalin.sc:10380:359583 */ t87746.tag = NATIVE_PROCEDURE_TYPE17901; t87746.value.native_procedure_type17901 = t87744; t87747 = *((struct w49 *)(&t87745)); t87748 = (struct structure_type24753 *)NULL_TYPE; t87736 = f1042(t87746, t87747, t87748); /* x104133 */ t87735 = p11544; p11545 = t87735; a23948 = t87736; /* x104132 */ /* x104124 */ if ((a23948.tag)==FALSE_TYPE) goto l16732; /* x104125 */ t87468 = a23948; goto l16733; l16732: /* x104131 */ /* x104130 stalin.sc:10381:359647 */ /* x104129 stalin.sc:10381:359684 */ t87742 = a23945; /* x104128 stalin.sc:10381:359648 */ a20728 = t87742; /* x56120 */ /* x56119 */ t87743 = a20728; /* x56118 */ if (!((t87743.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("ENVIRONMENT-DIRECT-NON-TAIL-CALLEES[6791]"); structure_ref_error();} t87738 = t87743.value.structure_type27694->s20; /* x104127 stalin.sc:10381:359641 */ t87737 = p11545->a23941; /* x104126 stalin.sc:10381:359636 */ t87739.tag = NATIVE_PROCEDURE_TYPE17901; t87739.value.native_procedure_type17901 = t87737; t87740 = *((struct w49 *)(&t87738)); t87741 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t87739, t87740, t87741); l16733: goto l16729; l16728: /* x104155 */ t87468.tag = FALSE_TYPE; l16729: break; case NATIVE_PROCEDURE_TYPE17921: a24140 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x105699 stalin.sc:10738:372648 */ /* x105697 stalin.sc:10738:372651 */ /* x105696 stalin.sc:10738:372659 */ /* x105695 stalin.sc:10738:372671 */ t87761 = a24140; /* x105694 stalin.sc:10738:372660 */ t87759 = f8615(t87761); /* x105693 stalin.sc:10738:372652 */ /* MOVE: branching squeezed to general */ if (t87759>=((struct structure_type24753 *)VALUE_OFFSET)) {t87760.tag = STRUCTURE_TYPE24753; t87760.value.structure_type24753 = t87759;} else t87760.tag = (unsigned)t87759; t87757 = f26227(t87760); /* x105698 stalin.sc:10738:372675 */ t87758 = 1; /* x269487 stalin.sc:10738:372649 */ t87468.tag = (t87757>t87758)?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE17964: a24016 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x104515 stalin.sc:10441:361840 */ /* x104491 stalin.sc:10441:361845 */ /* x104490 stalin.sc:10441:361850 */ /* x104489 stalin.sc:10441:361859 */ t87762 = a24016; /* x104488 stalin.sc:10441:361851 */ if (!(f8471(t87762)==FALSE_TYPE)) goto l16735; /* x104513 */ /* x104512 */ /* x104511 */ /* x104510 stalin.sc:10442:361877 */ /* x104508 stalin.sc:10442:361884 */ t87770 = a24016; /* x104509 stalin.sc:10442:361886 */ /* x104507 stalin.sc:10442:361878 */ t87771.tag = TRUE_TYPE; f8472(t87770, t87771); /* x104506 */ /* x104505 stalin.sc:10443:361897 */ /* x104504 stalin.sc:10443:361901 */ /* x104503 stalin.sc:10443:361905 */ /* x104502 stalin.sc:10443:361902 */ /* x104772 stalin.sc:10521:364962 */ /* x104501 */ /* x104500 */ /* x104492 */ /* x104499 */ /* x104498 stalin.sc:10443:361920 */ /* x104497 stalin.sc:10443:361953 */ t87767 = a24016; /* x104496 stalin.sc:10443:361921 */ a36576 = t87767; /* x278973 */ /* x278972 */ t87768 = a36576; /* x278971 */ if (!((t87768.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLERS[6767] 31493]"); structure_ref_error();} t87763 = t87768.value.structure_type27694->s17; /* x104495 stalin.sc:10443:361914 */ /* x104494 stalin.sc:10443:361909 */ t87764.tag = NATIVE_PROCEDURE_TYPE17964; t87765 = *((struct w49 *)(&t87763)); t87766 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t87764, t87765, t87766); goto l16736; l16735: /* x104514 */ t87468.tag = FALSE_TYPE; l16736: break; case NATIVE_PROCEDURE_TYPE18055: a24372 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x108789 stalin.sc:11358:396039 */ /* x108783 stalin.sc:11359:396070 */ /* x108788 stalin.sc:11359:396081 */ /* x108787 stalin.sc:11359:396102 */ /* x108786 stalin.sc:11359:396121 */ t87776 = a24372; /* x108785 stalin.sc:11359:396103 */ a39057 = t87776; /* x288897 */ /* x288896 */ t87777 = a39057; /* x288895 */ if (!((t87777.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-SOURCE[5623] 33974]"); structure_ref_error();} t87774 = t87777.value.structure_type27698->s17; /* x108784 stalin.sc:11359:396082 */ a39833 = t87774; /* x292001 */ /* x292000 */ t87775 = a39833; /* x291999 */ if (!((t87775.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34750]"); structure_ref_error();} t87772 = t87775.value.structure_type27698->s10; /* x108782 stalin.sc:11358:396040 */ t87773 = (struct p9140 *)NATIVE_PROCEDURE_TYPE7067; t87468 = f9030(t87773, t87772); break; case NATIVE_PROCEDURE_TYPE18144: p8288 = t87477.value.native_procedure_type18144; a21912 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x71055 stalin.sc:3647:123569 */ /* x71043 stalin.sc:3650:123658 */ /* x71042 stalin.sc:3650:123681 */ t87778 = a21912; /* x71041 stalin.sc:3650:123659 */ a22072 = t87778; /* x73070 stalin.sc:4147:139235 */ /* x73069 stalin.sc:4147:139254 */ t87779 = a22072; /* x73068 stalin.sc:4147:139236 */ if (f8526(t87779)==FALSE_TYPE) goto l16739; /* x71053 */ /* x71052 stalin.sc:3652:123762 */ /* x71051 stalin.sc:3652:123773 */ t87785 = a21912; /* x71050 stalin.sc:3652:123763 */ t87781 = f8951(t87785); /* x71049 stalin.sc:3652:123732 */ t87780 = p8288; /* x71044 stalin.sc:3652:123727 */ t87782.tag = NATIVE_PROCEDURE_TYPE24034; t87782.value.native_procedure_type24034 = t87780; t87783 = *((struct w49 *)(&t87781)); t87784 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t87782, t87783, t87784); goto l16740; l16739: /* x71054 */ t87468.tag = FALSE_TYPE; l16740: break; case NATIVE_PROCEDURE_TYPE18145: a21914 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x71085 stalin.sc:3658:123899 */ /* x71085 stalin.sc:3658:123899 */ /* x71066 stalin.sc:3658:123904 */ /* x71065 stalin.sc:3658:123915 */ t87786 = a21914; /* x71064 stalin.sc:3658:123905 */ a20284 = t87786; /* x54496 */ /* x54495 */ t87787 = a20284; /* x54494 */ if (!((t87787.tag)==STRUCTURE_TYPE27650)) goto l16742; /* x71083 */ /* x71069 stalin.sc:3659:123924 */ /* x71068 stalin.sc:3659:123938 */ t87788 = a21914; /* x71067 stalin.sc:3659:123925 */ if (f8148(t87788)==FALSE_TYPE) goto l16742; /* x71081 */ /* x71074 stalin.sc:3660:123947 */ /* x71073 stalin.sc:3660:123958 */ /* x71072 stalin.sc:3660:123977 */ t87791 = a21914; /* x71071 stalin.sc:3660:123959 */ a37106 = t87791; /* x281093 */ /* x281092 */ t87792 = a37106; /* x281091 */ if (!((t87792.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("[clone TYPE-SET-LOCATION[6467] 32023]"); structure_ref_error();} t87789 = t87792.value.structure_type27650->s0; /* x71070 stalin.sc:3660:123948 */ a37010 = t87789; /* x280709 */ /* x280708 */ t87790 = a37010; /* x280707 */ if (!((t87790.tag)==STRUCTURE_TYPE27692)) goto l16742; /* x71079 */ /* x71078 stalin.sc:3661:123998 */ /* x71077 stalin.sc:3661:124017 */ t87794 = a21914; /* x71076 stalin.sc:3661:123999 */ a20285 = t87794; /* x54501 */ /* x54500 */ t87795 = a20285; /* x54499 */ if (!((t87795.tag)==STRUCTURE_TYPE27650)) {backtrace_internal("TYPE-SET-LOCATION[6467]"); structure_ref_error();} t87793 = t87795.value.structure_type27650->s0; /* x71075 stalin.sc:3661:123988 */ if (f8229(t87793)==FALSE_TYPE) goto l16742; t87468.tag = TRUE_TYPE; goto l16743; l16742: t87468.tag = FALSE_TYPE; l16743: break; case NATIVE_PROCEDURE_TYPE18165: p8293 = t87477.value.native_procedure_type18165; a21918 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x71278 stalin.sc:3687:124851 */ /* x71099 stalin.sc:3688:124859 */ /* x71098 stalin.sc:3688:124878 */ t87796 = a21918; /* x71097 stalin.sc:3688:124860 */ if (f8526(t87796)==FALSE_TYPE) goto l16748; /* x71276 */ /* x71275 stalin.sc:3746:126849 */ /* x71274 stalin.sc:3746:126861 */ t87802 = a21918; /* x71273 stalin.sc:3746:126850 */ t87798 = f8615(t87802); /* x71272 stalin.sc:3691:124949 */ t87797 = p8293; /* x71100 stalin.sc:3690:124940 */ t87799.tag = NATIVE_PROCEDURE_TYPE24006; t87799.value.native_procedure_type24006 = t87797; /* MOVE: branching squeezed to general */ if (t87798>=((struct structure_type24753 *)VALUE_OFFSET)) {t87800.tag = STRUCTURE_TYPE24753; t87800.value.structure_type24753 = t87798;} else t87800.tag = (unsigned)t87798; t87801 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t87799, t87800, t87801); goto l16749; l16748: /* x71277 */ t87468.tag = FALSE_TYPE; l16749: break; case NATIVE_PROCEDURE_TYPE18171: p8248 = t87477.value.native_procedure_type18171; a21883 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x70808 stalin.sc:3568:120848 */ /* x70808 stalin.sc:3568:120848 */ /* x70765 stalin.sc:3570:120894 */ /* x70764 stalin.sc:3570:120917 */ t87803 = a21883; /* x70763 stalin.sc:3570:120895 */ if (f6984(t87803)==FALSE_TYPE) goto l16751; /* x70806 */ /* x70805 stalin.sc:3572:120969 */ /* x70804 stalin.sc:3572:120993 */ t87820 = a21883; /* x70803 stalin.sc:3572:120970 */ a40031 = t87820; /* x292793 */ /* x292792 */ t87821 = a40031; /* x292791 */ if (!((t87821.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34948]"); structure_ref_error();} t87805 = t87821.value.structure_type27698->s9; /* x70802 */ /* x70801 */ /* x70800 */ /* x70799 */ t87818 = p8248; p8249 = t87818; /* x70798 */ /* x70797 */ /* x70796 */ /* x70767 */ t87819 = p8249; p8250 = t87819; /* x70766 stalin.sc:3572:120959 */ t87804 = p8250; p8251 = t87804; a21886 = t87805; h8251: /* x70795 stalin.sc:3574:121044 */ /* x70775 stalin.sc:3575:121051 */ /* x70774 stalin.sc:3575:121056 */ /* x70770 stalin.sc:3575:121061 */ t87806 = a21886; /* x70773 stalin.sc:3575:121063 */ /* x70772 stalin.sc:3575:121085 */ t87808 = p8251->a21882; /* x70771 stalin.sc:3575:121064 */ a36896 = t87808; /* x280253 */ /* x280252 */ t87809 = a36896; /* x280251 */ if (!((t87809.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31813]"); structure_ref_error();} t87807 = t87809.value.structure_type27692->s8; /* x270327 stalin.sc:3575:121057 */ /* EQ: dispatching general to general */ if ((t87806.tag)==(t87807.tag)) switch (t87806.tag) {case FIXNUM_TYPE: if ((t87806.value.fixnum_type)==(t87807.value.fixnum_type)) goto l16751; break; case FLONUM_TYPE: if ((t87806.value.flonum_type)==(t87807.value.flonum_type)) goto l16751; break; case INPUT_PORT_TYPE: if ((t87806.value.input_port_type)==(t87807.value.input_port_type)) goto l16751; break; case OUTPUT_PORT_TYPE: if ((t87806.value.output_port_type)==(t87807.value.output_port_type)) goto l16751; break; case NATIVE_PROCEDURE_TYPE15963: if ((t87806.value.native_procedure_type15963)==(t87807.value.native_procedure_type15963)) goto l16751; break; case NATIVE_PROCEDURE_TYPE19067: if ((t87806.value.native_procedure_type19067)==(t87807.value.native_procedure_type19067)) goto l16751; break; case NATIVE_PROCEDURE_TYPE19068: if ((t87806.value.native_procedure_type19068)==(t87807.value.native_procedure_type19068)) goto l16751; break; case NATIVE_PROCEDURE_TYPE22459: if ((t87806.value.native_procedure_type22459)==(t87807.value.native_procedure_type22459)) goto l16751; break; case STRUCTURE_TYPE24753: if ((t87806.value.structure_type24753)==(t87807.value.structure_type24753)) goto l16751; break; case STRUCTURE_TYPE24757: if ((t87806.value.structure_type24757)==(t87807.value.structure_type24757)) goto l16751; break; case STRUCTURE_TYPE27501: if ((t87806.value.structure_type27501)==(t87807.value.structure_type27501)) goto l16751; break; case STRUCTURE_TYPE27510: if ((t87806.value.structure_type27510)==(t87807.value.structure_type27510)) goto l16751; break; case STRUCTURE_TYPE27621: if ((t87806.value.structure_type27621)==(t87807.value.structure_type27621)) goto l16751; break; case STRUCTURE_TYPE27650: if ((t87806.value.structure_type27650)==(t87807.value.structure_type27650)) goto l16751; break; case STRUCTURE_TYPE27669: if ((t87806.value.structure_type27669)==(t87807.value.structure_type27669)) goto l16751; break; case STRUCTURE_TYPE27673: if ((t87806.value.structure_type27673)==(t87807.value.structure_type27673)) goto l16751; break; case STRUCTURE_TYPE27692: if ((t87806.value.structure_type27692)==(t87807.value.structure_type27692)) goto l16751; break; case STRUCTURE_TYPE27694: if ((t87806.value.structure_type27694)==(t87807.value.structure_type27694)) goto l16751; break; case STRUCTURE_TYPE27698: if ((t87806.value.structure_type27698)==(t87807.value.structure_type27698)) goto l16751; break; case STRUCTURE_TYPE27745: if ((t87806.value.structure_type27745)==(t87807.value.structure_type27745)) goto l16751; break; case STRUCTURE_TYPE27747: if ((t87806.value.structure_type27747)==(t87807.value.structure_type27747)) goto l16751; break; case STRUCTURE_TYPE27750: if ((t87806.value.structure_type27750)==(t87807.value.structure_type27750)) goto l16751; break; case STRUCTURE_TYPE27753: if ((t87806.value.structure_type27753)==(t87807.value.structure_type27753)) goto l16751; break; case STRUCTURE_TYPE27756: if ((t87806.value.structure_type27756)==(t87807.value.structure_type27756)) goto l16751; break; case STRUCTURE_TYPE27761: if ((t87806.value.structure_type27761)==(t87807.value.structure_type27761)) goto l16751; break; case STRUCTURE_TYPE27769: if ((t87806.value.structure_type27769)==(t87807.value.structure_type27769)) goto l16751; break; case STRUCTURE_TYPE27776: if ((t87806.value.structure_type27776)==(t87807.value.structure_type27776)) goto l16751; break; case STRUCTURE_TYPE27779: if ((t87806.value.structure_type27779)==(t87807.value.structure_type27779)) goto l16751; break; case STRUCTURE_TYPE27858: if ((t87806.value.structure_type27858)==(t87807.value.structure_type27858)) goto l16751; break; case STRING_TYPE: if ((t87806.value.string_type)==(t87807.value.string_type)) goto l16751; break; case HEADED_VECTOR_TYPE27896: if ((t87806.value.headed_vector_type27896)==(t87807.value.headed_vector_type27896)) goto l16751; break; case EXTERNAL_SYMBOL_TYPE: if ((t87806.value.external_symbol_type)==(t87807.value.external_symbol_type)) goto l16751; break; case STRUCTURE_TYPE27908: if ((t87806.value.structure_type27908)==(t87807.value.structure_type27908)) goto l16751; break; default: goto l16751;} /* x70793 */ /* x70792 stalin.sc:3582:121339 */ /* x70788 stalin.sc:3582:121349 */ /* x70787 stalin.sc:3582:121367 */ t87812 = a21886; /* x70786 stalin.sc:3582:121350 */ t87810 = f8691(t87812); /* x70791 stalin.sc:3582:121370 */ /* x70790 stalin.sc:3582:121392 */ t87813 = p8251->a21882; /* x70789 stalin.sc:3582:121371 */ a36895 = t87813; /* x280249 */ /* x280248 */ t87814 = a36895; /* x280247 */ if (!((t87814.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31812]"); structure_ref_error();} t87811 = t87814.value.structure_type27692->s8; /* x70785 stalin.sc:3582:121340 */ if (!(f8086(t87810, t87811)==FALSE_TYPE)) goto l16750; p8252 = p8251; /* x70782 */ /* x70781 stalin.sc:3584:121433 */ /* x70780 stalin.sc:3584:121441 */ t87817 = a21886; /* x70779 stalin.sc:3584:121434 */ t87816 = f8682(t87817); /* x70778 stalin.sc:3584:121427 */ t87815 = p8252; p8251 = t87815; a21886 = t87816; goto h8251; l16750: t87468.tag = TRUE_TYPE; goto l16752; l16751: t87468.tag = FALSE_TYPE; l16752: break; case NATIVE_PROCEDURE_TYPE18196: a23994 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x104410 stalin.sc:10423:361180 */ /* x104386 stalin.sc:10423:361185 */ /* x104385 stalin.sc:10423:361190 */ /* x104384 stalin.sc:10423:361199 */ t87822 = a23994; /* x104383 stalin.sc:10423:361191 */ if (!(f8471(t87822)==FALSE_TYPE)) goto l16757; /* x104408 */ /* x104407 */ /* x104406 */ /* x104405 stalin.sc:10424:361217 */ /* x104403 stalin.sc:10424:361224 */ t87830 = a23994; /* x104404 stalin.sc:10424:361226 */ /* x104402 stalin.sc:10424:361218 */ t87831.tag = TRUE_TYPE; f8472(t87830, t87831); /* x104401 */ /* x104400 stalin.sc:10425:361237 */ /* x104399 stalin.sc:10425:361241 */ /* x104398 stalin.sc:10425:361245 */ /* x104397 stalin.sc:10425:361242 */ /* x104742 stalin.sc:10508:364436 */ /* x104396 */ /* x104395 */ /* x104387 */ /* x104394 */ /* x104393 stalin.sc:10425:361260 */ /* x104392 stalin.sc:10425:361293 */ t87827 = a23994; /* x104391 stalin.sc:10425:361261 */ a36558 = t87827; /* x278901 */ /* x278900 */ t87828 = a36558; /* x278899 */ if (!((t87828.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-DIRECT-TAIL-CALLEES[6783] 31475]"); structure_ref_error();} t87823 = t87828.value.structure_type27694->s19; /* x104390 stalin.sc:10425:361254 */ /* x104389 stalin.sc:10425:361249 */ t87824.tag = NATIVE_PROCEDURE_TYPE18196; t87825 = *((struct w49 *)(&t87823)); t87826 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t87824, t87825, t87826); goto l16758; l16757: /* x104409 */ t87468.tag = FALSE_TYPE; l16758: break; case NATIVE_PROCEDURE_TYPE18212: a24428 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} e12230 = (struct p12230 *)alloca(sizeof(struct p12230)); if (e12230==NULL) {backtrace("stalin.sc", 11584, 404845); out_of_memory_error();} e12230->a24428 = a24428; /* x109356 stalin.sc:11585:404865 */ /* x109319 stalin.sc:11585:404870 */ /* x109318 stalin.sc:11585:404889 */ t87832 = e12230->a24428; /* x109317 stalin.sc:11585:404871 */ if (f8526(t87832)==FALSE_TYPE) goto l16761; /* x109354 */ /* x109324 stalin.sc:11586:404898 */ /* x109323 stalin.sc:11586:404903 */ /* x109322 stalin.sc:11586:404922 */ t87833 = e12230->a24428; /* x109321 stalin.sc:11586:404904 */ if (!(f8585(t87833)==FALSE_TYPE)) goto l16764; /* x109352 */ /* x109351 stalin.sc:11592:405119 */ /* x109350 stalin.sc:11592:405131 */ t87839 = e12230->a24428; /* x109349 stalin.sc:11592:405120 */ t87835 = f8615(t87839); /* x109348 stalin.sc:11587:404938 */ t87834 = e12230; /* x109325 stalin.sc:11587:404933 */ t87836.tag = NATIVE_PROCEDURE_TYPE24005; t87836.value.native_procedure_type24005 = t87834; /* MOVE: branching squeezed to general */ if (t87835>=((struct structure_type24753 *)VALUE_OFFSET)) {t87837.tag = STRUCTURE_TYPE24753; t87837.value.structure_type24753 = t87835;} else t87837.tag = (unsigned)t87835; t87838 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t87836, t87837, t87838); goto l16765; l16764: /* x109353 */ t87468.tag = FALSE_TYPE; l16765: goto l16762; l16761: /* x109355 */ t87468.tag = FALSE_TYPE; l16762: break; case NATIVE_PROCEDURE_TYPE18265: p12670 = t87477.value.native_procedure_type18265; a24722 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x113374 stalin.sc:12503:437021 */ /* x113373 stalin.sc:12528:437744 */ /* x113372 stalin.sc:12528:437776 */ t87845 = a24722; /* x113371 stalin.sc:12528:437745 */ a20758 = t87845; /* x56237 */ /* x56236 */ t87846 = a20758; /* x56235 */ if (!((t87846.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("ENVIRONMENT-CONTINUATION-CALLS[6815]"); structure_ref_error();} t87841 = t87846.value.structure_type27694->s23; /* x113370 stalin.sc:12504:437034 */ t87840 = p12670; /* x113297 stalin.sc:12503:437022 */ t87842.tag = NATIVE_PROCEDURE_TYPE23998; t87842.value.native_procedure_type23998 = t87840; t87843 = *((struct w49 *)(&t87841)); t87844 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t87842, t87843, t87844); break; case NATIVE_PROCEDURE_TYPE18451: p8591 = t87477.value.native_procedure_type18451; a22110 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x73444 stalin.sc:4216:141470 */ /* x73444 stalin.sc:4216:141470 */ /* x73438 stalin.sc:4216:141475 */ /* x73437 stalin.sc:4216:141480 */ /* x73436 stalin.sc:4216:141502 */ t87847 = a22110; /* x73435 stalin.sc:4216:141481 */ if (!(f8751(t87847)==FALSE_TYPE)) goto l16767; /* x73442 */ /* x73440 stalin.sc:4216:141533 */ t87848 = a22110; /* x73441 stalin.sc:4216:141535 */ t87849 = p8591->a22109; /* x73439 stalin.sc:4216:141507 */ if (f8791(t87848, t87849)==FALSE_TYPE) goto l16767; t87468.tag = TRUE_TYPE; goto l16768; l16767: t87468.tag = FALSE_TYPE; l16768: break; case NATIVE_PROCEDURE_TYPE18590: a27053 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x148742 stalin.sc:19976:699181 */ /* x148741 stalin.sc:19976:699188 */ /* x148740 stalin.sc:19976:699203 */ t87851 = a27053; /* x268434 stalin.sc:19976:699189 */ if (!((t87851.tag)>2))); /* x268435 stalin.sc:19976:699182 */ t87468.tag = (t87850==0)?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE18894: p8604 = t87477.value.native_procedure_type18894; a22117 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x73575 stalin.sc:4228:141923 */ /* x73547 stalin.sc:4228:141928 */ /* x73546 stalin.sc:4228:141939 */ t87852 = a22117; /* x73545 stalin.sc:4228:141929 */ if (f6967(t87852)==FALSE_TYPE) goto l16771; /* x73573 */ /* x73553 stalin.sc:4229:141949 */ /* x73551 stalin.sc:4229:141963 */ /* x73550 stalin.sc:4229:141987 */ t87855 = a22117; /* x73549 stalin.sc:4229:141964 */ a40038 = t87855; /* x292821 */ /* x292820 */ t87856 = a40038; /* x292819 */ if (!((t87856.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34955]"); structure_ref_error();} t87853 = t87856.value.structure_type27698->s9; /* x73552 stalin.sc:4229:141990 */ t87854 = p8604->a22112; /* x73548 stalin.sc:4229:141950 */ if (f8999(t87853, t87854)==FALSE_TYPE) goto l16774; /* x73571 */ /* x73570 stalin.sc:4233:142098 */ /* x73569 stalin.sc:4233:142132 */ t87861 = a22117; /* x73568 stalin.sc:4233:142099 */ a19238 = t87861; /* x50616 */ /* x50615 */ t87862 = a19238; /* x50614 */ if (!((t87862.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("EXPRESSION-TYPE-ALLOCATION-ALIST[5687]"); structure_ref_error();} t87857 = t87862.value.structure_type27698->s25; /* x73567 stalin.sc:4230:142006 */ /* x73554 stalin.sc:4230:142001 */ t87858.tag = NATIVE_PROCEDURE_TYPE23990; t87859 = *((struct w49 *)(&t87857)); t87860 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t87858, t87859, t87860); goto l16775; l16774: /* x73572 */ t87468.tag = FALSE_TYPE; l16775: goto l16772; l16771: /* x73574 */ t87468.tag = FALSE_TYPE; l16772: break; case NATIVE_PROCEDURE_TYPE18899: p8602 = t87477.value.native_procedure_type18899; a22116 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x73524 stalin.sc:4246:142617 */ /* x73524 stalin.sc:4246:142617 */ /* x73511 stalin.sc:4246:142622 */ /* x73510 stalin.sc:4246:142631 */ t87863 = a22116; /* x73509 stalin.sc:4246:142623 */ if ((f8899(t87863).tag)==FALSE_TYPE) goto l16777; /* x73522 */ /* x73515 stalin.sc:4247:142637 */ /* x73513 stalin.sc:4247:142651 */ t87864 = a22116; /* x73514 stalin.sc:4247:142654 */ t87865 = p8602->a22112; /* x73512 stalin.sc:4247:142638 */ if (f8999(t87864, t87865)==FALSE_TYPE) goto l16777; /* x73520 */ /* x73519 stalin.sc:4248:142678 */ /* x73518 stalin.sc:4248:142690 */ t87868 = a22116; /* x73517 stalin.sc:4248:142679 */ t87866 = f8619(t87868); /* x73516 stalin.sc:4248:142660 */ t87867 = *((struct w49 *)(&t87866)); if (f13034(t87867)==FALSE_TYPE) goto l16777; t87468.tag = TRUE_TYPE; goto l16778; l16777: t87468.tag = FALSE_TYPE; l16778: break; case NATIVE_PROCEDURE_TYPE18908: p8610 = t87477.value.native_procedure_type18908; a22121 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} e8610 = (struct p8610 *)alloca(sizeof(struct p8610)); if (e8610==NULL) {backtrace("stalin.sc", 4256, 142955); out_of_memory_error();} e8610->a22121 = a22121; /* x73698 stalin.sc:4257:142968 */ /* x73599 stalin.sc:4257:142973 */ /* x73598 stalin.sc:4257:142992 */ /* x73597 stalin.sc:4257:143016 */ t87870 = e8610->a22121; /* x73596 stalin.sc:4257:142993 */ a40037 = t87870; /* x292817 */ /* x292816 */ t87871 = a40037; /* x292815 */ if (!((t87871.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34954]"); structure_ref_error();} t87869 = t87871.value.structure_type27698->s9; /* x73595 stalin.sc:4257:142974 */ if (f8526(t87869)==FALSE_TYPE) goto l16782; /* x73696 */ /* x73605 stalin.sc:4258:143026 */ /* x73603 stalin.sc:4258:143040 */ /* x73602 stalin.sc:4258:143064 */ t87874 = e8610->a22121; /* x73601 stalin.sc:4258:143041 */ a40036 = t87874; /* x292813 */ /* x292812 */ t87875 = a40036; /* x292811 */ if (!((t87875.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34953]"); structure_ref_error();} t87872 = t87875.value.structure_type27698->s9; /* x73604 stalin.sc:4258:143067 */ t87873 = p8610->a22119; /* x73600 stalin.sc:4258:143027 */ if (f8999(t87872, t87873)==FALSE_TYPE) goto l16785; /* x73694 */ /* x73642 stalin.sc:4262:143266 */ /* x73641 stalin.sc:4262:143270 */ /* x73631 stalin.sc:4262:143275 */ /* x73629 stalin.sc:4262:143280 */ /* x73628 stalin.sc:4262:143297 */ t87878 = e8610->a22121; /* x73627 stalin.sc:4262:143281 */ a40269 = t87878; /* x293745 */ /* x293744 */ t87879 = a40269; /* x293743 */ if (!((t87879.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35186]"); structure_ref_error();} t87876 = t87879.value.structure_type27698->s0; /* x73630 stalin.sc:4262:143300 */ t87877 = q36; /* x270227 stalin.sc:4262:143276 */ if (!(t87876==t87877)) goto l16790; /* x73639 */ /* x73637 stalin.sc:4263:143318 */ /* x73636 stalin.sc:4263:143326 */ /* x73635 stalin.sc:4263:143348 */ t87884 = e8610->a22121; /* x73634 stalin.sc:4263:143327 */ a38516 = t87884; /* x286733 */ /* x286732 */ t87885 = a38516; /* x286731 */ if (!((t87885.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33433]"); structure_ref_error();} t87882 = t87885.value.structure_type27698->s22; /* x73633 stalin.sc:4263:143319 */ t87883 = *((struct w49 *)(&t87882)); t87880 = f26227(t87883); /* x73638 stalin.sc:4263:143352 */ t87881 = 1; /* x270226 stalin.sc:4263:143316 */ if (t87880==t87881) goto l16787; l16790: p8611 = e8610; /* x73623 */ /* x73613 stalin.sc:4264:143364 */ /* x73611 stalin.sc:4264:143369 */ /* x73610 stalin.sc:4264:143386 */ t87888 = p8611->a22121; /* x73609 stalin.sc:4264:143370 */ a40268 = t87888; /* x293741 */ /* x293740 */ t87889 = a40268; /* x293739 */ if (!((t87889.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35185]"); structure_ref_error();} t87886 = t87889.value.structure_type27698->s0; /* x73612 stalin.sc:4264:143389 */ t87887 = q37; /* x270229 stalin.sc:4264:143365 */ if (!(t87886==t87887)) goto l16788; /* x73621 */ /* x73619 stalin.sc:4265:143417 */ /* x73618 stalin.sc:4265:143425 */ /* x73617 stalin.sc:4265:143447 */ t87894 = p8611->a22121; /* x73616 stalin.sc:4265:143426 */ a38515 = t87894; /* x286729 */ /* x286728 */ t87895 = a38515; /* x286727 */ if (!((t87895.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33432]"); structure_ref_error();} t87892 = t87895.value.structure_type27698->s22; /* x73615 stalin.sc:4265:143418 */ t87893 = *((struct w49 *)(&t87892)); t87890 = f26227(t87893); /* x73620 stalin.sc:4265:143451 */ t87891 = 2; /* x270228 stalin.sc:4265:143415 */ if (!(t87890==t87891)) goto l16788; l16787: /* x73692 */ /* x73652 stalin.sc:4266:143462 */ /* x73646 stalin.sc:4266:143471 */ /* x73645 stalin.sc:4267:143513 */ t87899 = q66; /* x73644 stalin.sc:4266:143472 */ t87900.tag = EXTERNAL_SYMBOL_TYPE; t87900.value.external_symbol_type = t87899; t87896 = f7708(t87900); /* x73651 stalin.sc:4268:143554 */ /* x73650 stalin.sc:4268:143575 */ /* x73649 stalin.sc:4268:143594 */ t87903 = e8610->a22121; /* x73648 stalin.sc:4268:143576 */ a38623 = t87903; /* x287161 */ /* x287160 */ t87904 = a38623; /* x287159 */ if (!((t87904.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33540]"); structure_ref_error();} t87901 = t87904.value.structure_type27698->s21; /* x73647 stalin.sc:4268:143555 */ a39862 = t87901; /* x292117 */ /* x292116 */ t87902 = a39862; /* x292115 */ if (!((t87902.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34779]"); structure_ref_error();} t87897 = t87902.value.structure_type27698->s10; /* x73643 stalin.sc:4266:143463 */ t87898.tag = NATIVE_PROCEDURE_TYPE17685; t87898.value.native_procedure_type17685 = t87896; if ((f8137(t87898, t87897).tag)==FALSE_TYPE) goto l16794; /* x73690 */ /* x73684 stalin.sc:4269:143614 */ t87905 = e8610; /* x73689 stalin.sc:4282:143981 */ /* x73688 stalin.sc:4282:144002 */ /* x73687 stalin.sc:4282:144018 */ t87910 = e8610->a22121; /* x73686 stalin.sc:4282:144003 */ t87908 = f6998(t87910); /* x73685 stalin.sc:4282:143982 */ a39861 = t87908; /* x292113 */ /* x292112 */ t87909 = a39861; /* x292111 */ if (!((t87909.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34778]"); structure_ref_error();} t87906 = t87909.value.structure_type27698->s10; /* x73653 stalin.sc:4269:143606 */ t87907.tag = NATIVE_PROCEDURE_TYPE23992; t87907.value.native_procedure_type23992 = t87905; t87468 = f8137(t87907, t87906); goto l16795; l16794: /* x73691 */ t87468.tag = FALSE_TYPE; l16795: goto l16789; l16788: /* x73693 */ t87468.tag = FALSE_TYPE; l16789: goto l16786; l16785: /* x73695 */ t87468.tag = FALSE_TYPE; l16786: goto l16783; l16782: /* x73697 */ t87468.tag = FALSE_TYPE; l16783: break; case NATIVE_PROCEDURE_TYPE18909: a33259 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x227905 stalin.sc:32174:1111099 */ /* x227905 stalin.sc:32174:1111099 */ /* x227904 stalin.sc:32174:1111103 */ /* x227903 stalin.sc:32174:1111111 */ t87911 = a33259; /* x227902 stalin.sc:32174:1111104 */ a21989 = t87911; /* x71978 stalin.sc:3890:131852 */ /* x71977 stalin.sc:3890:131869 */ t87912 = a21989; /* x71976 stalin.sc:3890:131853 */ if (!(f8204(t87912)==FALSE_TYPE)) goto l16796; /* x227899 */ /* x227898 stalin.sc:32174:1111114 */ /* x227897 stalin.sc:32174:1111123 */ t87913 = a33259; /* x227896 stalin.sc:32174:1111115 */ a21996 = t87913; /* x72097 stalin.sc:3916:132554 */ /* x72096 stalin.sc:3916:132572 */ t87914 = a21996; /* x72095 stalin.sc:3916:132555 */ if (!(f8209(t87914)==FALSE_TYPE)) goto l16796; /* x227893 */ /* x227892 stalin.sc:32174:1111126 */ /* x227891 stalin.sc:32174:1111135 */ t87915 = a33259; /* x227890 stalin.sc:32174:1111127 */ a22003 = t87915; /* x72216 stalin.sc:3942:133266 */ /* x72215 stalin.sc:3942:133284 */ t87916 = a22003; /* x72214 stalin.sc:3942:133267 */ if (!(f8214(t87916)==FALSE_TYPE)) goto l16796; /* x227887 */ /* x227886 stalin.sc:32174:1111148 */ t87917 = a33259; /* x227885 stalin.sc:32174:1111139 */ if (f8451(t87917)==FALSE_TYPE) goto l16797; l16796: t87468.tag = TRUE_TYPE; goto l16798; l16797: t87468.tag = FALSE_TYPE; l16798: break; case NATIVE_PROCEDURE_TYPE18955: p12663 = t87477.value.native_procedure_type18955; a24716 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x113235 stalin.sc:12474:435772 */ /* x113235 stalin.sc:12474:435772 */ /* x113221 stalin.sc:12474:435777 */ /* x113220 stalin.sc:12474:435782 */ /* x113219 stalin.sc:12474:435804 */ t87918 = a24716; /* x113218 stalin.sc:12474:435783 */ if (!(f8751(t87918)==FALSE_TYPE)) goto l16803; /* x113233 */ /* x113225 stalin.sc:12475:435818 */ /* x113223 stalin.sc:12475:435845 */ t87919 = a24716; /* x113224 stalin.sc:12475:435847 */ t87920 = p12663->a24714; /* x113222 stalin.sc:12475:435819 */ if (f8791(t87919, t87920)==FALSE_TYPE) goto l16803; /* x113231 */ /* x113229 stalin.sc:12476:435875 */ /* x113228 stalin.sc:12476:435897 */ t87923 = a24716; /* x113227 stalin.sc:12476:435876 */ a36359 = t87923; /* x278105 */ /* x278104 */ t87924 = a36359; /* x278103 */ if (!((t87924.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31276]"); structure_ref_error();} t87921 = t87924.value.structure_type27745->s0; /* x113230 stalin.sc:12476:435900 */ t87922 = p12663->p12658->a24711; /* x113226 stalin.sc:12476:435862 */ if (f8999(t87921, t87922)==FALSE_TYPE) goto l16803; t87468.tag = TRUE_TYPE; goto l16804; l16803: t87468.tag = FALSE_TYPE; l16804: break; case NATIVE_PROCEDURE_TYPE19020: p10393 = t87477.value.native_procedure_type19020; a23296 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x93796 stalin.sc:8289:282122 */ /* x93792 stalin.sc:8289:282127 */ /* x93791 stalin.sc:8289:282148 */ t87927 = a23296; /* x93790 stalin.sc:8289:282128 */ a39095 = t87927; /* x289049 */ /* x289048 */ t87928 = a39095; /* x289047 */ if (!((t87928.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34012]"); structure_ref_error();} t87925 = t87928.value.structure_type27698->s16; /* x93795 stalin.sc:8290:282157 */ /* x93794 stalin.sc:8290:282178 */ t87929 = p10393->a23294; /* x93793 stalin.sc:8290:282158 */ a39096 = t87929; /* x289053 */ /* x289052 */ t87930 = a39096; /* x289051 */ if (!((t87930.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34013]"); structure_ref_error();} t87926 = t87930.value.structure_type27698->s16; /* x269782 stalin.sc:8289:282123 */ /* EQ: dispatching general to general */ if ((t87925.tag)==(t87926.tag)) {switch (t87925.tag) {case FIXNUM_TYPE: t87468.tag = ((t87925.value.fixnum_type)==(t87926.value.fixnum_type))?TRUE_TYPE:FALSE_TYPE; break; case FLONUM_TYPE: t87468.tag = ((t87925.value.flonum_type)==(t87926.value.flonum_type))?TRUE_TYPE:FALSE_TYPE; break; case INPUT_PORT_TYPE: t87468.tag = ((t87925.value.input_port_type)==(t87926.value.input_port_type))?TRUE_TYPE:FALSE_TYPE; break; case OUTPUT_PORT_TYPE: t87468.tag = ((t87925.value.output_port_type)==(t87926.value.output_port_type))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE15963: t87468.tag = ((t87925.value.native_procedure_type15963)==(t87926.value.native_procedure_type15963))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19067: t87468.tag = ((t87925.value.native_procedure_type19067)==(t87926.value.native_procedure_type19067))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19068: t87468.tag = ((t87925.value.native_procedure_type19068)==(t87926.value.native_procedure_type19068))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE22459: t87468.tag = ((t87925.value.native_procedure_type22459)==(t87926.value.native_procedure_type22459))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24753: t87468.tag = ((t87925.value.structure_type24753)==(t87926.value.structure_type24753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24757: t87468.tag = ((t87925.value.structure_type24757)==(t87926.value.structure_type24757))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27501: t87468.tag = ((t87925.value.structure_type27501)==(t87926.value.structure_type27501))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27510: t87468.tag = ((t87925.value.structure_type27510)==(t87926.value.structure_type27510))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27621: t87468.tag = ((t87925.value.structure_type27621)==(t87926.value.structure_type27621))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27650: t87468.tag = ((t87925.value.structure_type27650)==(t87926.value.structure_type27650))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27669: t87468.tag = ((t87925.value.structure_type27669)==(t87926.value.structure_type27669))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27673: t87468.tag = ((t87925.value.structure_type27673)==(t87926.value.structure_type27673))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27692: t87468.tag = ((t87925.value.structure_type27692)==(t87926.value.structure_type27692))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27694: t87468.tag = ((t87925.value.structure_type27694)==(t87926.value.structure_type27694))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27698: t87468.tag = ((t87925.value.structure_type27698)==(t87926.value.structure_type27698))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27745: t87468.tag = ((t87925.value.structure_type27745)==(t87926.value.structure_type27745))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27747: t87468.tag = ((t87925.value.structure_type27747)==(t87926.value.structure_type27747))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27750: t87468.tag = ((t87925.value.structure_type27750)==(t87926.value.structure_type27750))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27753: t87468.tag = ((t87925.value.structure_type27753)==(t87926.value.structure_type27753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27756: t87468.tag = ((t87925.value.structure_type27756)==(t87926.value.structure_type27756))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27761: t87468.tag = ((t87925.value.structure_type27761)==(t87926.value.structure_type27761))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27769: t87468.tag = ((t87925.value.structure_type27769)==(t87926.value.structure_type27769))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27776: t87468.tag = ((t87925.value.structure_type27776)==(t87926.value.structure_type27776))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27779: t87468.tag = ((t87925.value.structure_type27779)==(t87926.value.structure_type27779))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27858: t87468.tag = ((t87925.value.structure_type27858)==(t87926.value.structure_type27858))?TRUE_TYPE:FALSE_TYPE; break; case STRING_TYPE: t87468.tag = ((t87925.value.string_type)==(t87926.value.string_type))?TRUE_TYPE:FALSE_TYPE; break; case HEADED_VECTOR_TYPE27896: t87468.tag = ((t87925.value.headed_vector_type27896)==(t87926.value.headed_vector_type27896))?TRUE_TYPE:FALSE_TYPE; break; case EXTERNAL_SYMBOL_TYPE: t87468.tag = ((t87925.value.external_symbol_type)==(t87926.value.external_symbol_type))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27908: t87468.tag = ((t87925.value.structure_type27908)==(t87926.value.structure_type27908))?TRUE_TYPE:FALSE_TYPE; break; default: t87468.tag = TRUE_TYPE;}} else t87468.tag = FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19106: p8256 = t87477.value.native_procedure_type19106; a21893 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x70874 stalin.sc:3625:122894 */ /* x70874 stalin.sc:3625:122894 */ /* x70829 stalin.sc:3627:122940 */ /* x70828 stalin.sc:3627:122963 */ t87931 = a21893; /* x70827 stalin.sc:3627:122941 */ if (f6984(t87931)==FALSE_TYPE) goto l16808; /* x70872 */ /* x70871 stalin.sc:3629:123015 */ /* x70870 stalin.sc:3629:123039 */ t87946 = a21893; /* x70869 stalin.sc:3629:123016 */ a40035 = t87946; /* x292809 */ /* x292808 */ t87947 = a40035; /* x292807 */ if (!((t87947.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34952]"); structure_ref_error();} t87933 = t87947.value.structure_type27698->s9; /* x70868 */ /* x70867 */ /* x70866 */ /* x70865 */ t87944 = p8256; p8257 = t87944; /* x70864 */ /* x70863 */ /* x70862 */ /* x70831 */ t87945 = p8257; p8258 = t87945; /* x70830 stalin.sc:3629:123005 */ t87932 = p8258; p8259 = t87932; a21896 = t87933; h8259: /* x70861 stalin.sc:3630:123052 */ /* x70839 stalin.sc:3632:123108 */ /* x70838 stalin.sc:3632:123113 */ /* x70834 stalin.sc:3632:123118 */ t87934 = a21896; /* x70837 stalin.sc:3632:123120 */ /* x70836 stalin.sc:3632:123142 */ t87936 = p8259->a21882; /* x70835 stalin.sc:3632:123121 */ a36898 = t87936; /* x280261 */ /* x280260 */ t87937 = a36898; /* x280259 */ if (!((t87937.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31815]"); structure_ref_error();} t87935 = t87937.value.structure_type27692->s8; /* x270324 stalin.sc:3632:123114 */ /* EQ: dispatching general to general */ if ((t87934.tag)==(t87935.tag)) switch (t87934.tag) {case FIXNUM_TYPE: if ((t87934.value.fixnum_type)==(t87935.value.fixnum_type)) goto l16808; break; case FLONUM_TYPE: if ((t87934.value.flonum_type)==(t87935.value.flonum_type)) goto l16808; break; case INPUT_PORT_TYPE: if ((t87934.value.input_port_type)==(t87935.value.input_port_type)) goto l16808; break; case OUTPUT_PORT_TYPE: if ((t87934.value.output_port_type)==(t87935.value.output_port_type)) goto l16808; break; case NATIVE_PROCEDURE_TYPE15963: if ((t87934.value.native_procedure_type15963)==(t87935.value.native_procedure_type15963)) goto l16808; break; case NATIVE_PROCEDURE_TYPE19067: if ((t87934.value.native_procedure_type19067)==(t87935.value.native_procedure_type19067)) goto l16808; break; case NATIVE_PROCEDURE_TYPE19068: if ((t87934.value.native_procedure_type19068)==(t87935.value.native_procedure_type19068)) goto l16808; break; case NATIVE_PROCEDURE_TYPE22459: if ((t87934.value.native_procedure_type22459)==(t87935.value.native_procedure_type22459)) goto l16808; break; case STRUCTURE_TYPE24753: if ((t87934.value.structure_type24753)==(t87935.value.structure_type24753)) goto l16808; break; case STRUCTURE_TYPE24757: if ((t87934.value.structure_type24757)==(t87935.value.structure_type24757)) goto l16808; break; case STRUCTURE_TYPE27501: if ((t87934.value.structure_type27501)==(t87935.value.structure_type27501)) goto l16808; break; case STRUCTURE_TYPE27510: if ((t87934.value.structure_type27510)==(t87935.value.structure_type27510)) goto l16808; break; case STRUCTURE_TYPE27621: if ((t87934.value.structure_type27621)==(t87935.value.structure_type27621)) goto l16808; break; case STRUCTURE_TYPE27650: if ((t87934.value.structure_type27650)==(t87935.value.structure_type27650)) goto l16808; break; case STRUCTURE_TYPE27669: if ((t87934.value.structure_type27669)==(t87935.value.structure_type27669)) goto l16808; break; case STRUCTURE_TYPE27673: if ((t87934.value.structure_type27673)==(t87935.value.structure_type27673)) goto l16808; break; case STRUCTURE_TYPE27692: if ((t87934.value.structure_type27692)==(t87935.value.structure_type27692)) goto l16808; break; case STRUCTURE_TYPE27694: if ((t87934.value.structure_type27694)==(t87935.value.structure_type27694)) goto l16808; break; case STRUCTURE_TYPE27698: if ((t87934.value.structure_type27698)==(t87935.value.structure_type27698)) goto l16808; break; case STRUCTURE_TYPE27745: if ((t87934.value.structure_type27745)==(t87935.value.structure_type27745)) goto l16808; break; case STRUCTURE_TYPE27747: if ((t87934.value.structure_type27747)==(t87935.value.structure_type27747)) goto l16808; break; case STRUCTURE_TYPE27750: if ((t87934.value.structure_type27750)==(t87935.value.structure_type27750)) goto l16808; break; case STRUCTURE_TYPE27753: if ((t87934.value.structure_type27753)==(t87935.value.structure_type27753)) goto l16808; break; case STRUCTURE_TYPE27756: if ((t87934.value.structure_type27756)==(t87935.value.structure_type27756)) goto l16808; break; case STRUCTURE_TYPE27761: if ((t87934.value.structure_type27761)==(t87935.value.structure_type27761)) goto l16808; break; case STRUCTURE_TYPE27769: if ((t87934.value.structure_type27769)==(t87935.value.structure_type27769)) goto l16808; break; case STRUCTURE_TYPE27776: if ((t87934.value.structure_type27776)==(t87935.value.structure_type27776)) goto l16808; break; case STRUCTURE_TYPE27779: if ((t87934.value.structure_type27779)==(t87935.value.structure_type27779)) goto l16808; break; case STRUCTURE_TYPE27858: if ((t87934.value.structure_type27858)==(t87935.value.structure_type27858)) goto l16808; break; case STRING_TYPE: if ((t87934.value.string_type)==(t87935.value.string_type)) goto l16808; break; case HEADED_VECTOR_TYPE27896: if ((t87934.value.headed_vector_type27896)==(t87935.value.headed_vector_type27896)) goto l16808; break; case EXTERNAL_SYMBOL_TYPE: if ((t87934.value.external_symbol_type)==(t87935.value.external_symbol_type)) goto l16808; break; case STRUCTURE_TYPE27908: if ((t87934.value.structure_type27908)==(t87935.value.structure_type27908)) goto l16808; break; default: goto l16808;} /* x70859 */ /* x70842 stalin.sc:3634:123194 */ /* x70841 stalin.sc:3634:123216 */ t87938 = a21896; /* x70840 stalin.sc:3634:123195 */ if (f8471(t87938)==FALSE_TYPE) goto l16808; /* x70857 */ /* x70856 stalin.sc:3639:123352 */ /* x70855 stalin.sc:3639:123383 */ /* x70854 stalin.sc:3639:123401 */ t87940 = a21896; /* x70853 stalin.sc:3639:123384 */ t87939 = f8691(t87940); /* x70852 stalin.sc:3639:123353 */ if (!(f7314(t87939)==FALSE_TYPE)) goto l16807; p8260 = p8259; /* x70849 */ /* x70848 stalin.sc:3641:123440 */ /* x70847 stalin.sc:3641:123448 */ t87943 = a21896; /* x70846 stalin.sc:3641:123441 */ t87942 = f8682(t87943); /* x70845 stalin.sc:3641:123434 */ t87941 = p8260; p8259 = t87941; a21896 = t87942; goto h8259; l16807: t87468.tag = TRUE_TYPE; goto l16809; l16808: t87468.tag = FALSE_TYPE; l16809: break; case NATIVE_PROCEDURE_TYPE19162: p12707 = t87477.value.native_procedure_type19162; a24755 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x113662 stalin.sc:12589:440282 */ /* x113660 stalin.sc:12589:440292 */ /* x113659 stalin.sc:12589:440310 */ t87951 = a24755; /* x113658 stalin.sc:12589:440293 */ t87948 = f8691(t87951); /* x113661 stalin.sc:12589:440314 */ t87949 = p12707->a24753; /* x113657 stalin.sc:12589:440283 */ t87950 = f8086(t87948, t87949); t87468.tag = t87950; break; case NATIVE_PROCEDURE_TYPE19457: p11504 = t87477.value.native_procedure_type19457; a23905 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x103767 stalin.sc:10298:356981 */ /* x103677 stalin.sc:10298:356986 */ /* x103676 stalin.sc:10298:357007 */ t87952 = a23905; /* x103675 stalin.sc:10298:356987 */ if (f8752(t87952)==FALSE_TYPE) goto l16815; /* x103765 */ /* x103764 stalin.sc:10318:357658 */ /* x103763 stalin.sc:10318:357681 */ /* x103762 stalin.sc:10318:357705 */ t87964 = p11504->a23899; /* x103761 stalin.sc:10318:357682 */ a36661 = t87964; /* x279313 */ /* x279312 */ t87965 = a36661; /* x279311 */ if (!((t87965.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31578]"); structure_ref_error();} t87962 = t87965.value.structure_type27694->s1; /* x103760 stalin.sc:10318:357659 */ a39424 = t87962; /* x290365 */ /* x290364 */ t87963 = a39424; /* x290363 */ if (!((t87963.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34341]"); structure_ref_error();} t87954 = t87963.value.structure_type27698->s14; /* x103759 stalin.sc:10317:357606 */ /* x103758 stalin.sc:10317:357628 */ /* x103757 stalin.sc:10317:357650 */ t87960 = a23905; /* x103756 stalin.sc:10317:357629 */ a36361 = t87960; /* x278113 */ /* x278112 */ t87961 = a36361; /* x278111 */ if (!((t87961.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31278]"); structure_ref_error();} t87958 = t87961.value.structure_type27745->s0; /* x103755 stalin.sc:10317:357607 */ a38517 = t87958; /* x286737 */ /* x286736 */ t87959 = a38517; /* x286735 */ if (!((t87959.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33434]"); structure_ref_error();} t87953 = t87959.value.structure_type27698->s22; /* x103754 stalin.sc:10299:357021 */ /* x103678 stalin.sc:10299:357016 */ t87955.tag = NATIVE_PROCEDURE_TYPE23980; t87956 = *((struct w49 *)(&t87953)); t87957 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t87957==NULL) {backtrace_internal("[inside LOOP 11504]"); out_of_memory_error();} t87957->s0 = *((struct w49 *)(&t87954)); t87957->s1.tag = NULL_TYPE; t87468 = f1042(t87955, t87956, t87957); goto l16816; l16815: /* x103766 */ t87468.tag = FALSE_TYPE; l16816: break; case NATIVE_PROCEDURE_TYPE19929: p10590 = t87477.value.native_procedure_type19929; a23406 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x96014 stalin.sc:8863:301209 */ /* x96014 stalin.sc:8863:301209 */ /* x96009 stalin.sc:8863:301214 */ /* x96008 stalin.sc:8863:301264 */ t87967 = a23406; /* x96007 stalin.sc:8863:301215 */ /* x96006 stalin.sc:8863:301238 */ /* x96005 stalin.sc:8863:301260 */ t87969 = p10590->a23399; /* x96004 stalin.sc:8863:301239 */ a36362 = t87969; /* x278117 */ /* x278116 */ t87970 = a36362; /* x278115 */ t87968 = t87970->s0; /* x96003 stalin.sc:8863:301216 */ t87966 = f7710(t87968); if (f7711(t87966, t87967)==FALSE_TYPE) goto l16818; /* x96012 */ /* x96011 stalin.sc:8864:301312 */ t87971 = a23406; /* x96010 stalin.sc:8864:301271 */ if (f7374(t87971)==FALSE_TYPE) goto l16818; t87468.tag = TRUE_TYPE; goto l16819; l16818: t87468.tag = FALSE_TYPE; l16819: break; case NATIVE_PROCEDURE_TYPE19971: p10552 = t87477.value.native_procedure_type19971; a23383 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x95546 stalin.sc:8710:295668 */ /* x95546 stalin.sc:8710:295668 */ /* x95541 stalin.sc:8710:295673 */ /* x95540 stalin.sc:8710:295723 */ t87973 = a23383; /* x95539 stalin.sc:8710:295674 */ /* x95538 stalin.sc:8710:295697 */ /* x95537 stalin.sc:8710:295719 */ t87975 = p10552->a23368; /* x95536 stalin.sc:8710:295698 */ a36360 = t87975; /* x278109 */ /* x278108 */ t87976 = a36360; /* x278107 */ if (!(t87976>=((struct structure_type27745 *)VALUE_OFFSET))) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31277]"); structure_ref_error();} t87974 = t87976->s0; /* x95535 stalin.sc:8710:295675 */ t87972 = f7710(t87974); if (f7711(t87972, t87973)==FALSE_TYPE) goto l16822; /* x95544 */ /* x95543 stalin.sc:8711:295774 */ t87977 = a23383; /* x95542 stalin.sc:8711:295733 */ if (f7374(t87977)==FALSE_TYPE) goto l16822; t87468.tag = TRUE_TYPE; goto l16823; l16822: t87468.tag = FALSE_TYPE; l16823: break; case NATIVE_PROCEDURE_TYPE20011: p10513 = t87477.value.native_procedure_type20011; a23360 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x94914 stalin.sc:8572:291530 */ /* x94914 stalin.sc:8572:291530 */ /* x94909 stalin.sc:8572:291535 */ /* x94908 stalin.sc:8572:291585 */ t87979 = a23360; /* x94907 stalin.sc:8572:291536 */ /* x94906 stalin.sc:8572:291559 */ /* x94905 stalin.sc:8572:291581 */ t87981 = p10513->a23349; /* x94904 stalin.sc:8572:291560 */ a36363 = t87981; /* x278121 */ /* x278120 */ t87982 = a36363; /* x278119 */ t87980 = t87982->s0; /* x94903 stalin.sc:8572:291537 */ t87978 = f7710(t87980); if (f7711(t87978, t87979)==FALSE_TYPE) goto l16826; /* x94912 */ /* x94911 stalin.sc:8573:291633 */ t87983 = a23360; /* x94910 stalin.sc:8573:291592 */ if (f7374(t87983)==FALSE_TYPE) goto l16826; t87468.tag = TRUE_TYPE; goto l16827; l16826: t87468.tag = FALSE_TYPE; l16827: break; case NATIVE_PROCEDURE_TYPE20058: p14881 = t87477.value.native_procedure_type20058; a26274 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x135176 stalin.sc:17262:603714 */ /* x135176 stalin.sc:17262:603714 */ /* x135155 stalin.sc:17262:603719 */ /* x135154 stalin.sc:17262:603724 */ /* x135153 stalin.sc:17262:603736 */ t87984 = a26274; /* x135152 stalin.sc:17262:603725 */ if (!(f7682(t87984)==FALSE_TYPE)) goto l16830; /* x135174 */ /* x135160 stalin.sc:17263:603748 */ /* x135159 stalin.sc:17263:603753 */ /* x135158 stalin.sc:17263:603766 */ t87985 = a26274; /* x135157 stalin.sc:17263:603754 */ if (!(f8793(t87985)==FALSE_TYPE)) goto l16830; /* x135172 */ /* x135171 stalin.sc:17264:603783 */ /* x135166 stalin.sc:17264:603786 */ /* x135164 stalin.sc:17264:603798 */ t87988 = a26274; /* x135165 stalin.sc:17264:603800 */ t87989 = p14881->p14848->a26250; /* x135163 stalin.sc:17264:603787 */ t87986 = f14564(t87988, t87989); /* x135170 stalin.sc:17264:603803 */ /* x135168 stalin.sc:17264:603815 */ t87990 = a26274; /* x135169 stalin.sc:17264:603817 */ t87991 = p14881->a26253; /* x135167 stalin.sc:17264:603804 */ t87987 = f14564(t87990, t87991); /* x268758 stalin.sc:17264:603784 */ if (!((t87986&1)==1)) {backtrace("stalin.sc", 17264, 603783); eql_error();} if (!((t87987&1)==1)) {backtrace("stalin.sc", 17264, 603783); eql_error();} if (((int)(((int)t87986)>>1))==((int)(((int)t87987)>>1))) goto l16830; t87468.tag = TRUE_TYPE; goto l16831; l16830: t87468.tag = FALSE_TYPE; l16831: break; case NATIVE_PROCEDURE_TYPE20060: a26275 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x135192 stalin.sc:17267:603919 */ /* x135192 stalin.sc:17267:603919 */ /* x135191 stalin.sc:17267:603923 */ /* x135190 stalin.sc:17267:603935 */ t87992 = a26275; /* x135189 stalin.sc:17267:603924 */ if (!(f7682(t87992)==FALSE_TYPE)) goto l16834; /* x135186 */ /* x135185 stalin.sc:17267:603951 */ t87993 = a26275; /* x135184 stalin.sc:17267:603939 */ if (f8793(t87993)==FALSE_TYPE) goto l16835; l16834: t87468.tag = TRUE_TYPE; goto l16836; l16835: t87468.tag = FALSE_TYPE; l16836: break; case NATIVE_PROCEDURE_TYPE20082: p14860 = t87477.value.native_procedure_type20082; a26257 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x134969 stalin.sc:17233:602458 */ /* x134967 stalin.sc:17233:602463 */ t87994 = a26257; /* x134968 stalin.sc:17233:602465 */ t87995 = p14860->a26256; /* x268769 stalin.sc:17233:602459 */ /* EQ: dispatching general to general */ if ((t87994.tag)==(t87995.tag)) {switch (t87994.tag) {case FIXNUM_TYPE: t87468.tag = ((t87994.value.fixnum_type)==(t87995.value.fixnum_type))?TRUE_TYPE:FALSE_TYPE; break; case FLONUM_TYPE: t87468.tag = ((t87994.value.flonum_type)==(t87995.value.flonum_type))?TRUE_TYPE:FALSE_TYPE; break; case INPUT_PORT_TYPE: t87468.tag = ((t87994.value.input_port_type)==(t87995.value.input_port_type))?TRUE_TYPE:FALSE_TYPE; break; case OUTPUT_PORT_TYPE: t87468.tag = ((t87994.value.output_port_type)==(t87995.value.output_port_type))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE15963: t87468.tag = ((t87994.value.native_procedure_type15963)==(t87995.value.native_procedure_type15963))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19067: t87468.tag = ((t87994.value.native_procedure_type19067)==(t87995.value.native_procedure_type19067))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19068: t87468.tag = ((t87994.value.native_procedure_type19068)==(t87995.value.native_procedure_type19068))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE22459: t87468.tag = ((t87994.value.native_procedure_type22459)==(t87995.value.native_procedure_type22459))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24753: t87468.tag = ((t87994.value.structure_type24753)==(t87995.value.structure_type24753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24757: t87468.tag = ((t87994.value.structure_type24757)==(t87995.value.structure_type24757))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27501: t87468.tag = ((t87994.value.structure_type27501)==(t87995.value.structure_type27501))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27510: t87468.tag = ((t87994.value.structure_type27510)==(t87995.value.structure_type27510))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27621: t87468.tag = ((t87994.value.structure_type27621)==(t87995.value.structure_type27621))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27650: t87468.tag = ((t87994.value.structure_type27650)==(t87995.value.structure_type27650))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27669: t87468.tag = ((t87994.value.structure_type27669)==(t87995.value.structure_type27669))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27673: t87468.tag = ((t87994.value.structure_type27673)==(t87995.value.structure_type27673))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27692: t87468.tag = ((t87994.value.structure_type27692)==(t87995.value.structure_type27692))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27694: t87468.tag = ((t87994.value.structure_type27694)==(t87995.value.structure_type27694))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27698: t87468.tag = ((t87994.value.structure_type27698)==(t87995.value.structure_type27698))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27745: t87468.tag = ((t87994.value.structure_type27745)==(t87995.value.structure_type27745))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27747: t87468.tag = ((t87994.value.structure_type27747)==(t87995.value.structure_type27747))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27750: t87468.tag = ((t87994.value.structure_type27750)==(t87995.value.structure_type27750))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27753: t87468.tag = ((t87994.value.structure_type27753)==(t87995.value.structure_type27753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27756: t87468.tag = ((t87994.value.structure_type27756)==(t87995.value.structure_type27756))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27761: t87468.tag = ((t87994.value.structure_type27761)==(t87995.value.structure_type27761))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27769: t87468.tag = ((t87994.value.structure_type27769)==(t87995.value.structure_type27769))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27776: t87468.tag = ((t87994.value.structure_type27776)==(t87995.value.structure_type27776))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27779: t87468.tag = ((t87994.value.structure_type27779)==(t87995.value.structure_type27779))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27858: t87468.tag = ((t87994.value.structure_type27858)==(t87995.value.structure_type27858))?TRUE_TYPE:FALSE_TYPE; break; case STRING_TYPE: t87468.tag = ((t87994.value.string_type)==(t87995.value.string_type))?TRUE_TYPE:FALSE_TYPE; break; case HEADED_VECTOR_TYPE27896: t87468.tag = ((t87994.value.headed_vector_type27896)==(t87995.value.headed_vector_type27896))?TRUE_TYPE:FALSE_TYPE; break; case EXTERNAL_SYMBOL_TYPE: t87468.tag = ((t87994.value.external_symbol_type)==(t87995.value.external_symbol_type))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27908: t87468.tag = ((t87994.value.structure_type27908)==(t87995.value.structure_type27908))?TRUE_TYPE:FALSE_TYPE; break; default: t87468.tag = TRUE_TYPE;}} else t87468.tag = FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE20227: a26310 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x135569 stalin.sc:17336:606468 */ /* x135569 stalin.sc:17336:606468 */ /* x135568 stalin.sc:17336:606472 */ /* x135567 stalin.sc:17336:606484 */ t87996 = a26310; /* x135566 stalin.sc:17336:606473 */ if (!(f7682(t87996)==FALSE_TYPE)) goto l16838; /* x135563 */ /* x135562 stalin.sc:17336:606500 */ t87997 = a26310; /* x135561 stalin.sc:17336:606488 */ if (f8793(t87997)==FALSE_TYPE) goto l16839; l16838: t87468.tag = TRUE_TYPE; goto l16840; l16839: t87468.tag = FALSE_TYPE; l16840: break; case NATIVE_PROCEDURE_TYPE20290: p15485 = t87477.value.native_procedure_type20290; a26658 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x142247 stalin.sc:18507:650174 */ /* x142245 stalin.sc:18507:650179 */ t87998 = p15485->a26657; /* x142246 stalin.sc:18507:650181 */ t87999 = a26658; /* x268548 stalin.sc:18507:650175 */ /* EQ: dispatching general to general */ if ((t87998.tag)==(t87999.tag)) {switch (t87998.tag) {case FIXNUM_TYPE: t87468.tag = ((t87998.value.fixnum_type)==(t87999.value.fixnum_type))?TRUE_TYPE:FALSE_TYPE; break; case FLONUM_TYPE: t87468.tag = ((t87998.value.flonum_type)==(t87999.value.flonum_type))?TRUE_TYPE:FALSE_TYPE; break; case INPUT_PORT_TYPE: t87468.tag = ((t87998.value.input_port_type)==(t87999.value.input_port_type))?TRUE_TYPE:FALSE_TYPE; break; case OUTPUT_PORT_TYPE: t87468.tag = ((t87998.value.output_port_type)==(t87999.value.output_port_type))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE15963: t87468.tag = ((t87998.value.native_procedure_type15963)==(t87999.value.native_procedure_type15963))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19067: t87468.tag = ((t87998.value.native_procedure_type19067)==(t87999.value.native_procedure_type19067))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19068: t87468.tag = ((t87998.value.native_procedure_type19068)==(t87999.value.native_procedure_type19068))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE22459: t87468.tag = ((t87998.value.native_procedure_type22459)==(t87999.value.native_procedure_type22459))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24753: t87468.tag = ((t87998.value.structure_type24753)==(t87999.value.structure_type24753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24757: t87468.tag = ((t87998.value.structure_type24757)==(t87999.value.structure_type24757))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27501: t87468.tag = ((t87998.value.structure_type27501)==(t87999.value.structure_type27501))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27510: t87468.tag = ((t87998.value.structure_type27510)==(t87999.value.structure_type27510))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27621: t87468.tag = ((t87998.value.structure_type27621)==(t87999.value.structure_type27621))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27650: t87468.tag = ((t87998.value.structure_type27650)==(t87999.value.structure_type27650))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27669: t87468.tag = ((t87998.value.structure_type27669)==(t87999.value.structure_type27669))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27673: t87468.tag = ((t87998.value.structure_type27673)==(t87999.value.structure_type27673))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27692: t87468.tag = ((t87998.value.structure_type27692)==(t87999.value.structure_type27692))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27694: t87468.tag = ((t87998.value.structure_type27694)==(t87999.value.structure_type27694))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27698: t87468.tag = ((t87998.value.structure_type27698)==(t87999.value.structure_type27698))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27745: t87468.tag = ((t87998.value.structure_type27745)==(t87999.value.structure_type27745))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27747: t87468.tag = ((t87998.value.structure_type27747)==(t87999.value.structure_type27747))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27750: t87468.tag = ((t87998.value.structure_type27750)==(t87999.value.structure_type27750))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27753: t87468.tag = ((t87998.value.structure_type27753)==(t87999.value.structure_type27753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27756: t87468.tag = ((t87998.value.structure_type27756)==(t87999.value.structure_type27756))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27761: t87468.tag = ((t87998.value.structure_type27761)==(t87999.value.structure_type27761))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27769: t87468.tag = ((t87998.value.structure_type27769)==(t87999.value.structure_type27769))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27776: t87468.tag = ((t87998.value.structure_type27776)==(t87999.value.structure_type27776))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27779: t87468.tag = ((t87998.value.structure_type27779)==(t87999.value.structure_type27779))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27858: t87468.tag = ((t87998.value.structure_type27858)==(t87999.value.structure_type27858))?TRUE_TYPE:FALSE_TYPE; break; case STRING_TYPE: t87468.tag = ((t87998.value.string_type)==(t87999.value.string_type))?TRUE_TYPE:FALSE_TYPE; break; case HEADED_VECTOR_TYPE27896: t87468.tag = ((t87998.value.headed_vector_type27896)==(t87999.value.headed_vector_type27896))?TRUE_TYPE:FALSE_TYPE; break; case EXTERNAL_SYMBOL_TYPE: t87468.tag = ((t87998.value.external_symbol_type)==(t87999.value.external_symbol_type))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27908: t87468.tag = ((t87998.value.structure_type27908)==(t87999.value.structure_type27908))?TRUE_TYPE:FALSE_TYPE; break; default: t87468.tag = TRUE_TYPE;}} else t87468.tag = FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE20308: p13440 = t87477.value.native_procedure_type20308; a25223 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x121522 stalin.sc:14257:502084 */ /* x121518 stalin.sc:14257:502092 */ /* x121517 stalin.sc:14257:502097 */ t88003 = p13440->a25221; /* x269106 stalin.sc:14257:502093 */ if (!((t88003.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 14257, 502092); structure_ref_error();} t88000 = t88003.value.structure_type24753->s0; /* x121521 stalin.sc:14257:502107 */ /* x121520 stalin.sc:14257:502112 */ t88004 = a25223; /* x269105 stalin.sc:14257:502108 */ if (!((t88004.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 14257, 502107); structure_ref_error();} t88001 = t88004.value.structure_type24753->s0; /* x121515 stalin.sc:14257:502085 */ t88002 = f26165(t88000, t88001); t87468.tag = t88002; break; case NATIVE_PROCEDURE_TYPE20372: p8341 = t87477.value.native_procedure_type20372; a21947 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x71443 */ /* x71442 stalin.sc:3764:127316 */ /* x71433 stalin.sc:3764:127322 */ /* x71432 stalin.sc:3764:127329 */ t88014 = a21947; /* x71431 stalin.sc:3764:127323 */ if (f8931(t88014)==FALSE_TYPE) goto l16847; /* x71439 */ /* x71438 */ /* x71437 stalin.sc:3764:127332 */ /* x71435 stalin.sc:3764:127347 */ /* x71436 stalin.sc:3764:127350 */ t88015 = "unimplemented"; /* x71434 stalin.sc:3764:127333 */ t88016.tag = FALSE_TYPE; f9707(t88016, t88015); goto l16848; l16847: /* x71441 stalin.sc:3764:127316 */ /* x71440 stalin.sc:3764:127316 */ l16848: /* x71430 */ t88005 = p8341; p8342 = t88005; /* x71429 stalin.sc:3765:127372 */ /* x71429 stalin.sc:3765:127372 */ /* x71423 stalin.sc:3767:127431 */ /* x71417 stalin.sc:3767:127440 */ t88006 = p8342->a21882; /* x71422 stalin.sc:3767:127444 */ /* x71421 stalin.sc:3767:127470 */ /* x71420 stalin.sc:3767:127494 */ t88010 = a21947; /* x71419 stalin.sc:3767:127471 */ a36662 = t88010; /* x279317 */ /* x279316 */ t88011 = a36662; /* x279315 */ if (!((t88011.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31579]"); structure_ref_error();} t88008 = t88011.value.structure_type27694->s1; /* x71418 stalin.sc:3767:127445 */ t88009 = *((struct w49 *)(&t88008)); t88007 = f8683(t88009); /* x71416 stalin.sc:3767:127432 */ if (f8033(t88006, t88007)==FALSE_TYPE) goto l16843; /* x71427 */ /* x71425 stalin.sc:3769:127542 */ t88012 = p8342->a21882; /* x71426 stalin.sc:3769:127546 */ t88013 = a21947; /* x71424 stalin.sc:3769:127533 */ if (f8086(t88012, t88013)==FALSE_TYPE) goto l16843; t87468.tag = TRUE_TYPE; goto l16844; l16843: t87468.tag = FALSE_TYPE; l16844: break; case NATIVE_PROCEDURE_TYPE20410: p9049 = t87477.value.native_procedure_type20410; a22374 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x77032 stalin.sc:4986:169874 */ /* x77005 stalin.sc:4986:169879 */ /* x77004 stalin.sc:4986:169902 */ t88017 = a22374; /* x77003 stalin.sc:4986:169880 */ a42103 = t88017; /* x302524 stalin.sc:4147:139235 */ /* x302523 stalin.sc:4147:139254 */ t88018 = a42103; /* x302522 stalin.sc:4147:139236 */ if (f8526(t88018)==FALSE_TYPE) goto l16850; /* x77030 */ /* x77029 stalin.sc:4992:170077 */ /* x77028 stalin.sc:4992:170093 */ t88024 = a22374; /* x77027 stalin.sc:4992:170078 */ t88020 = f8629(t88024); /* x77026 stalin.sc:4987:169917 */ t88019 = p9049; /* x77006 stalin.sc:4987:169912 */ t88021.tag = NATIVE_PROCEDURE_TYPE23967; t88021.value.native_procedure_type23967 = t88019; t88022 = *((struct w49 *)(&t88020)); t88023 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t88021, t88022, t88023); goto l16851; l16850: /* x77031 */ t87468.tag = FALSE_TYPE; l16851: break; case NATIVE_PROCEDURE_TYPE20417: p8349 = t87477.value.native_procedure_type20417; a21954 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x71522 */ /* x71521 stalin.sc:3815:129117 */ /* x71512 stalin.sc:3815:129125 */ /* x71511 stalin.sc:3815:129146 */ t88036 = a21954; /* x71510 stalin.sc:3815:129126 */ if (f8752(t88036)==FALSE_TYPE) goto l16853; /* x71514 */ /* x71513 */ goto l16854; l16853: /* x71520 */ /* x71519 */ /* x71518 stalin.sc:3815:129149 */ /* x71516 stalin.sc:3815:129164 */ t88037 = a21954; /* x71517 stalin.sc:3815:129166 */ t88038 = "unimplemented"; /* x71515 stalin.sc:3815:129150 */ t88039 = *((struct w6315 *)(&t88037)); f9707(t88039, t88038); l16854: /* x71509 */ t88025 = p8349; p8350 = t88025; /* x71508 stalin.sc:3817:129245 */ /* x71507 stalin.sc:3830:129618 */ /* x71506 stalin.sc:3830:129627 */ /* x71505 stalin.sc:3830:129651 */ /* x71504 stalin.sc:3830:129673 */ t88034 = a21954; /* x71503 stalin.sc:3830:129652 */ a36364 = t88034; /* x278125 */ /* x278124 */ t88035 = a36364; /* x278123 */ if (!((t88035.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31281]"); structure_ref_error();} t88032 = t88035.value.structure_type27745->s0; /* x71502 stalin.sc:3830:129628 */ a40039 = t88032; /* x292825 */ /* x292824 */ t88033 = a40039; /* x292823 */ if (!((t88033.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34956]"); structure_ref_error();} t88031 = t88033.value.structure_type27698->s9; /* x71501 stalin.sc:3830:129619 */ t88027 = f11641(t88031); /* x71500 stalin.sc:3818:129255 */ t88026 = p8350; /* x71468 stalin.sc:3817:129246 */ t88028.tag = NATIVE_PROCEDURE_TYPE23971; t88028.value.native_procedure_type23971 = t88026; t88029 = *((struct w49 *)(&t88027)); t88030 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t88028, t88029, t88030); break; case NATIVE_PROCEDURE_TYPE20453: a25440 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x124245 stalin.sc:14845:519877 */ /* x124241 stalin.sc:14845:519885 */ /* x124240 stalin.sc:14845:519892 */ t88044 = a25440; /* x124239 stalin.sc:14845:519886 */ a35651 = t88044; /* x273961 */ /* x273960 */ t88045 = a35651; /* x273959 */ if (!((t88045.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29800]"); structure_ref_error();} t88040 = t88045.value.structure_type24753->s0; /* x124244 stalin.sc:14845:519898 */ /* x124243 stalin.sc:14845:519911 */ t88046 = "default"; /* x124242 stalin.sc:14845:519899 */ t88047.tag = STRING_TYPE; t88047.value.string_type = t88046; t88041 = f13515(t88047); /* x124238 stalin.sc:14845:519878 */ t88042.tag = STRUCTURE_TYPE24753; t88042.value.structure_type24753 = t88041; t88043 = f26165(t88040, t88042); t87468.tag = t88043; break; case NATIVE_PROCEDURE_TYPE20457: p14677 = t87477.value.native_procedure_type20457; a26088 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x132948 stalin.sc:16851:588812 */ /* x132948 stalin.sc:16851:588812 */ /* x132940 stalin.sc:16851:588817 */ /* x132939 stalin.sc:16851:588834 */ t88048 = a26088; /* x132938 stalin.sc:16851:588818 */ if (f13914(t88048)==FALSE_TYPE) goto l16856; /* x132946 */ /* x132945 stalin.sc:16851:588844 */ /* x132943 stalin.sc:16851:588856 */ t88050 = a26088; /* x132944 stalin.sc:16851:588858 */ t88051 = p14677->a26080; /* x132942 stalin.sc:16851:588845 */ t88049 = f14564(t88050, t88051); /* x268803 stalin.sc:16851:588838 */ if (!((t88049&1)==1)) {backtrace_internal("[inside COMPILE-SQUISHED-DEFAULTLESS-TYPE-SWITCH 14677]"); zero_error();} if (!(((int)(((int)t88049)>>1))==0)) goto l16856; t87468.tag = TRUE_TYPE; goto l16857; l16856: t87468.tag = FALSE_TYPE; l16857: break; case NATIVE_PROCEDURE_TYPE20539: p15474 = t87477.value.native_procedure_type20539; a26651 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x142097 stalin.sc:18478:649153 */ /* x142095 stalin.sc:18478:649158 */ t88052 = p15474->a26650; /* x142096 stalin.sc:18478:649160 */ t88053 = a26651; /* x268552 stalin.sc:18478:649154 */ /* EQ: dispatching general to general */ if ((t88052.tag)==(t88053.tag)) {switch (t88052.tag) {case FIXNUM_TYPE: t87468.tag = ((t88052.value.fixnum_type)==(t88053.value.fixnum_type))?TRUE_TYPE:FALSE_TYPE; break; case FLONUM_TYPE: t87468.tag = ((t88052.value.flonum_type)==(t88053.value.flonum_type))?TRUE_TYPE:FALSE_TYPE; break; case INPUT_PORT_TYPE: t87468.tag = ((t88052.value.input_port_type)==(t88053.value.input_port_type))?TRUE_TYPE:FALSE_TYPE; break; case OUTPUT_PORT_TYPE: t87468.tag = ((t88052.value.output_port_type)==(t88053.value.output_port_type))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE15963: t87468.tag = ((t88052.value.native_procedure_type15963)==(t88053.value.native_procedure_type15963))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19067: t87468.tag = ((t88052.value.native_procedure_type19067)==(t88053.value.native_procedure_type19067))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19068: t87468.tag = ((t88052.value.native_procedure_type19068)==(t88053.value.native_procedure_type19068))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE22459: t87468.tag = ((t88052.value.native_procedure_type22459)==(t88053.value.native_procedure_type22459))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24753: t87468.tag = ((t88052.value.structure_type24753)==(t88053.value.structure_type24753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24757: t87468.tag = ((t88052.value.structure_type24757)==(t88053.value.structure_type24757))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27501: t87468.tag = ((t88052.value.structure_type27501)==(t88053.value.structure_type27501))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27510: t87468.tag = ((t88052.value.structure_type27510)==(t88053.value.structure_type27510))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27621: t87468.tag = ((t88052.value.structure_type27621)==(t88053.value.structure_type27621))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27650: t87468.tag = ((t88052.value.structure_type27650)==(t88053.value.structure_type27650))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27669: t87468.tag = ((t88052.value.structure_type27669)==(t88053.value.structure_type27669))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27673: t87468.tag = ((t88052.value.structure_type27673)==(t88053.value.structure_type27673))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27692: t87468.tag = ((t88052.value.structure_type27692)==(t88053.value.structure_type27692))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27694: t87468.tag = ((t88052.value.structure_type27694)==(t88053.value.structure_type27694))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27698: t87468.tag = ((t88052.value.structure_type27698)==(t88053.value.structure_type27698))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27745: t87468.tag = ((t88052.value.structure_type27745)==(t88053.value.structure_type27745))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27747: t87468.tag = ((t88052.value.structure_type27747)==(t88053.value.structure_type27747))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27750: t87468.tag = ((t88052.value.structure_type27750)==(t88053.value.structure_type27750))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27753: t87468.tag = ((t88052.value.structure_type27753)==(t88053.value.structure_type27753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27756: t87468.tag = ((t88052.value.structure_type27756)==(t88053.value.structure_type27756))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27761: t87468.tag = ((t88052.value.structure_type27761)==(t88053.value.structure_type27761))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27769: t87468.tag = ((t88052.value.structure_type27769)==(t88053.value.structure_type27769))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27776: t87468.tag = ((t88052.value.structure_type27776)==(t88053.value.structure_type27776))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27779: t87468.tag = ((t88052.value.structure_type27779)==(t88053.value.structure_type27779))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27858: t87468.tag = ((t88052.value.structure_type27858)==(t88053.value.structure_type27858))?TRUE_TYPE:FALSE_TYPE; break; case STRING_TYPE: t87468.tag = ((t88052.value.string_type)==(t88053.value.string_type))?TRUE_TYPE:FALSE_TYPE; break; case HEADED_VECTOR_TYPE27896: t87468.tag = ((t88052.value.headed_vector_type27896)==(t88053.value.headed_vector_type27896))?TRUE_TYPE:FALSE_TYPE; break; case EXTERNAL_SYMBOL_TYPE: t87468.tag = ((t88052.value.external_symbol_type)==(t88053.value.external_symbol_type))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27908: t87468.tag = ((t88052.value.structure_type27908)==(t88053.value.structure_type27908))?TRUE_TYPE:FALSE_TYPE; break; default: t87468.tag = TRUE_TYPE;}} else t87468.tag = FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE20545: a26645 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x141952 stalin.sc:18454:648230 */ /* x141952 stalin.sc:18454:648230 */ /* x141951 stalin.sc:18454:648234 */ /* x141950 stalin.sc:18454:648246 */ t88054 = a26645; /* x141949 stalin.sc:18454:648235 */ if (!(f7682(t88054)==FALSE_TYPE)) goto l16859; /* x141946 */ /* x141945 stalin.sc:18454:648262 */ t88055 = a26645; /* x141944 stalin.sc:18454:648250 */ if (f8793(t88055)==FALSE_TYPE) goto l16860; l16859: t87468.tag = TRUE_TYPE; goto l16861; l16860: t87468.tag = FALSE_TYPE; l16861: break; case NATIVE_PROCEDURE_TYPE20555: p15457 = t87477.value.native_procedure_type20555; a26640 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x141723 stalin.sc:18403:646331 */ /* x141721 stalin.sc:18403:646336 */ t88056 = p15457->a26639; /* x141722 stalin.sc:18403:646338 */ t88057 = a26640; /* x268554 stalin.sc:18403:646332 */ /* EQ: dispatching general to general */ if ((t88056.tag)==(t88057.tag)) {switch (t88056.tag) {case FIXNUM_TYPE: t87468.tag = ((t88056.value.fixnum_type)==(t88057.value.fixnum_type))?TRUE_TYPE:FALSE_TYPE; break; case FLONUM_TYPE: t87468.tag = ((t88056.value.flonum_type)==(t88057.value.flonum_type))?TRUE_TYPE:FALSE_TYPE; break; case INPUT_PORT_TYPE: t87468.tag = ((t88056.value.input_port_type)==(t88057.value.input_port_type))?TRUE_TYPE:FALSE_TYPE; break; case OUTPUT_PORT_TYPE: t87468.tag = ((t88056.value.output_port_type)==(t88057.value.output_port_type))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE15963: t87468.tag = ((t88056.value.native_procedure_type15963)==(t88057.value.native_procedure_type15963))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19067: t87468.tag = ((t88056.value.native_procedure_type19067)==(t88057.value.native_procedure_type19067))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19068: t87468.tag = ((t88056.value.native_procedure_type19068)==(t88057.value.native_procedure_type19068))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE22459: t87468.tag = ((t88056.value.native_procedure_type22459)==(t88057.value.native_procedure_type22459))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24753: t87468.tag = ((t88056.value.structure_type24753)==(t88057.value.structure_type24753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24757: t87468.tag = ((t88056.value.structure_type24757)==(t88057.value.structure_type24757))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27501: t87468.tag = ((t88056.value.structure_type27501)==(t88057.value.structure_type27501))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27510: t87468.tag = ((t88056.value.structure_type27510)==(t88057.value.structure_type27510))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27621: t87468.tag = ((t88056.value.structure_type27621)==(t88057.value.structure_type27621))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27650: t87468.tag = ((t88056.value.structure_type27650)==(t88057.value.structure_type27650))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27669: t87468.tag = ((t88056.value.structure_type27669)==(t88057.value.structure_type27669))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27673: t87468.tag = ((t88056.value.structure_type27673)==(t88057.value.structure_type27673))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27692: t87468.tag = ((t88056.value.structure_type27692)==(t88057.value.structure_type27692))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27694: t87468.tag = ((t88056.value.structure_type27694)==(t88057.value.structure_type27694))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27698: t87468.tag = ((t88056.value.structure_type27698)==(t88057.value.structure_type27698))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27745: t87468.tag = ((t88056.value.structure_type27745)==(t88057.value.structure_type27745))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27747: t87468.tag = ((t88056.value.structure_type27747)==(t88057.value.structure_type27747))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27750: t87468.tag = ((t88056.value.structure_type27750)==(t88057.value.structure_type27750))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27753: t87468.tag = ((t88056.value.structure_type27753)==(t88057.value.structure_type27753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27756: t87468.tag = ((t88056.value.structure_type27756)==(t88057.value.structure_type27756))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27761: t87468.tag = ((t88056.value.structure_type27761)==(t88057.value.structure_type27761))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27769: t87468.tag = ((t88056.value.structure_type27769)==(t88057.value.structure_type27769))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27776: t87468.tag = ((t88056.value.structure_type27776)==(t88057.value.structure_type27776))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27779: t87468.tag = ((t88056.value.structure_type27779)==(t88057.value.structure_type27779))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27858: t87468.tag = ((t88056.value.structure_type27858)==(t88057.value.structure_type27858))?TRUE_TYPE:FALSE_TYPE; break; case STRING_TYPE: t87468.tag = ((t88056.value.string_type)==(t88057.value.string_type))?TRUE_TYPE:FALSE_TYPE; break; case HEADED_VECTOR_TYPE27896: t87468.tag = ((t88056.value.headed_vector_type27896)==(t88057.value.headed_vector_type27896))?TRUE_TYPE:FALSE_TYPE; break; case EXTERNAL_SYMBOL_TYPE: t87468.tag = ((t88056.value.external_symbol_type)==(t88057.value.external_symbol_type))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27908: t87468.tag = ((t88056.value.structure_type27908)==(t88057.value.structure_type27908))?TRUE_TYPE:FALSE_TYPE; break; default: t87468.tag = TRUE_TYPE;}} else t87468.tag = FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE20567: a26615 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x141251 stalin.sc:18292:642481 */ /* x141251 stalin.sc:18292:642481 */ /* x141250 stalin.sc:18292:642485 */ /* x141249 stalin.sc:18292:642497 */ t88058 = a26615; /* x141248 stalin.sc:18292:642486 */ if (!(f7682(t88058)==FALSE_TYPE)) goto l16863; /* x141245 */ /* x141244 stalin.sc:18292:642513 */ t88059 = a26615; /* x141243 stalin.sc:18292:642501 */ if (f8793(t88059)==FALSE_TYPE) goto l16864; l16863: t87468.tag = TRUE_TYPE; goto l16865; l16864: t87468.tag = FALSE_TYPE; l16865: break; case NATIVE_PROCEDURE_TYPE20613: p15397 = t87477.value.native_procedure_type20613; a26601 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x140913 stalin.sc:18234:640368 */ /* x140911 stalin.sc:18234:640373 */ t88060 = a26601; /* x140912 stalin.sc:18234:640375 */ t88061 = p15397->a26600; /* x268592 stalin.sc:18234:640369 */ /* EQ: dispatching general to general */ if ((t88060.tag)==(t88061.tag)) {switch (t88060.tag) {case FIXNUM_TYPE: t87468.tag = ((t88060.value.fixnum_type)==(t88061.value.fixnum_type))?TRUE_TYPE:FALSE_TYPE; break; case FLONUM_TYPE: t87468.tag = ((t88060.value.flonum_type)==(t88061.value.flonum_type))?TRUE_TYPE:FALSE_TYPE; break; case INPUT_PORT_TYPE: t87468.tag = ((t88060.value.input_port_type)==(t88061.value.input_port_type))?TRUE_TYPE:FALSE_TYPE; break; case OUTPUT_PORT_TYPE: t87468.tag = ((t88060.value.output_port_type)==(t88061.value.output_port_type))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE15963: t87468.tag = ((t88060.value.native_procedure_type15963)==(t88061.value.native_procedure_type15963))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19067: t87468.tag = ((t88060.value.native_procedure_type19067)==(t88061.value.native_procedure_type19067))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE19068: t87468.tag = ((t88060.value.native_procedure_type19068)==(t88061.value.native_procedure_type19068))?TRUE_TYPE:FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE22459: t87468.tag = ((t88060.value.native_procedure_type22459)==(t88061.value.native_procedure_type22459))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24753: t87468.tag = ((t88060.value.structure_type24753)==(t88061.value.structure_type24753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE24757: t87468.tag = ((t88060.value.structure_type24757)==(t88061.value.structure_type24757))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27501: t87468.tag = ((t88060.value.structure_type27501)==(t88061.value.structure_type27501))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27510: t87468.tag = ((t88060.value.structure_type27510)==(t88061.value.structure_type27510))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27621: t87468.tag = ((t88060.value.structure_type27621)==(t88061.value.structure_type27621))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27650: t87468.tag = ((t88060.value.structure_type27650)==(t88061.value.structure_type27650))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27669: t87468.tag = ((t88060.value.structure_type27669)==(t88061.value.structure_type27669))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27673: t87468.tag = ((t88060.value.structure_type27673)==(t88061.value.structure_type27673))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27692: t87468.tag = ((t88060.value.structure_type27692)==(t88061.value.structure_type27692))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27694: t87468.tag = ((t88060.value.structure_type27694)==(t88061.value.structure_type27694))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27698: t87468.tag = ((t88060.value.structure_type27698)==(t88061.value.structure_type27698))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27745: t87468.tag = ((t88060.value.structure_type27745)==(t88061.value.structure_type27745))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27747: t87468.tag = ((t88060.value.structure_type27747)==(t88061.value.structure_type27747))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27750: t87468.tag = ((t88060.value.structure_type27750)==(t88061.value.structure_type27750))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27753: t87468.tag = ((t88060.value.structure_type27753)==(t88061.value.structure_type27753))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27756: t87468.tag = ((t88060.value.structure_type27756)==(t88061.value.structure_type27756))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27761: t87468.tag = ((t88060.value.structure_type27761)==(t88061.value.structure_type27761))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27769: t87468.tag = ((t88060.value.structure_type27769)==(t88061.value.structure_type27769))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27776: t87468.tag = ((t88060.value.structure_type27776)==(t88061.value.structure_type27776))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27779: t87468.tag = ((t88060.value.structure_type27779)==(t88061.value.structure_type27779))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27858: t87468.tag = ((t88060.value.structure_type27858)==(t88061.value.structure_type27858))?TRUE_TYPE:FALSE_TYPE; break; case STRING_TYPE: t87468.tag = ((t88060.value.string_type)==(t88061.value.string_type))?TRUE_TYPE:FALSE_TYPE; break; case HEADED_VECTOR_TYPE27896: t87468.tag = ((t88060.value.headed_vector_type27896)==(t88061.value.headed_vector_type27896))?TRUE_TYPE:FALSE_TYPE; break; case EXTERNAL_SYMBOL_TYPE: t87468.tag = ((t88060.value.external_symbol_type)==(t88061.value.external_symbol_type))?TRUE_TYPE:FALSE_TYPE; break; case STRUCTURE_TYPE27908: t87468.tag = ((t88060.value.structure_type27908)==(t88061.value.structure_type27908))?TRUE_TYPE:FALSE_TYPE; break; default: t87468.tag = TRUE_TYPE;}} else t87468.tag = FALSE_TYPE; break; case NATIVE_PROCEDURE_TYPE20692: p12187 = t87477.value.native_procedure_type20692; a24399 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x108974 stalin.sc:11426:398805 */ /* x108972 stalin.sc:11426:398822 */ t88062 = a24399; /* x108973 stalin.sc:11426:398825 */ t88063 = p12187->a24396; /* x108971 stalin.sc:11426:398806 */ t87468 = f11619(t88062, t88063); break; case NATIVE_PROCEDURE_TYPE20950: a27773 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x156264 stalin.sc:21649:758634 */ /* x156264 stalin.sc:21649:758634 */ /* x156263 stalin.sc:21649:758638 */ /* x156262 stalin.sc:21649:758650 */ t88064 = a27773; /* x156261 stalin.sc:21649:758639 */ if (!(f7682(t88064)==FALSE_TYPE)) goto l16867; /* x156258 */ /* x156257 stalin.sc:21649:758666 */ t88065 = a27773; /* x156256 stalin.sc:21649:758654 */ if (f8793(t88065)==FALSE_TYPE) goto l16868; l16867: t87468.tag = TRUE_TYPE; goto l16869; l16868: t87468.tag = FALSE_TYPE; l16869: break; case NATIVE_PROCEDURE_TYPE20965: a27760 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x155786 stalin.sc:21566:755663 */ /* x155786 stalin.sc:21566:755663 */ /* x155785 stalin.sc:21566:755667 */ /* x155784 stalin.sc:21566:755679 */ t88066 = a27760; /* x155783 stalin.sc:21566:755668 */ if (!(f7682(t88066)==FALSE_TYPE)) goto l16871; /* x155780 */ /* x155779 stalin.sc:21566:755695 */ t88067 = a27760; /* x155778 stalin.sc:21566:755683 */ if (f8793(t88067)==FALSE_TYPE) goto l16872; l16871: t87468.tag = TRUE_TYPE; goto l16873; l16872: t87468.tag = FALSE_TYPE; l16873: break; case NATIVE_PROCEDURE_TYPE20988: a27747 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x155463 stalin.sc:21492:752652 */ /* x155463 stalin.sc:21492:752652 */ /* x155462 stalin.sc:21492:752656 */ /* x155461 stalin.sc:21492:752668 */ t88068 = a27747; /* x155460 stalin.sc:21492:752657 */ if (!(f7682(t88068)==FALSE_TYPE)) goto l16875; /* x155457 */ /* x155456 stalin.sc:21492:752684 */ t88069 = a27747; /* x155455 stalin.sc:21492:752672 */ if (f8793(t88069)==FALSE_TYPE) goto l16876; l16875: t87468.tag = TRUE_TYPE; goto l16877; l16876: t87468.tag = FALSE_TYPE; l16877: break; case NATIVE_PROCEDURE_TYPE21400: a23931 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x104064 stalin.sc:10247:355056 */ /* x104064 stalin.sc:10247:355056 */ /* x104013 stalin.sc:10247:355061 */ /* x104012 stalin.sc:10247:355082 */ t88070 = a23931; /* x104011 stalin.sc:10247:355062 */ if (f8752(t88070)==FALSE_TYPE) goto l16880; /* x104062 */ /* x104061 stalin.sc:10248:355105 */ /* x104060 stalin.sc:10249:355136 */ /* x104059 stalin.sc:10249:355158 */ t88084 = a23931; /* x104058 stalin.sc:10249:355137 */ a36365 = t88084; /* x278129 */ /* x278128 */ t88085 = a36365; /* x278127 */ if (!((t88085.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31282]"); structure_ref_error();} t88082 = t88085.value.structure_type27745->s0; /* x104057 stalin.sc:10248:355106 */ a40040 = t88082; /* x292829 */ /* x292828 */ t88083 = a40040; /* x292827 */ if (!((t88083.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34957]"); structure_ref_error();} t88071 = t88083.value.structure_type27698->s9; /* x104056 */ /* x104055 */ /* x104054 */ /* x104053 */ /* x104052 */ /* x104051 */ /* x104050 */ /* x104015 */ /* x104014 stalin.sc:10248:355094 */ a23934 = t88071; h11532: /* x104049 stalin.sc:10250:355169 */ /* x104020 stalin.sc:10250:355174 */ /* x104019 stalin.sc:10250:355179 */ /* x104018 stalin.sc:10250:355187 */ t88072 = a23934; /* x104017 stalin.sc:10250:355180 */ if (!(f8581(t88072)==FALSE_TYPE)) goto l16880; /* x104047 */ /* x104046 stalin.sc:10251:355206 */ /* x104044 stalin.sc:10251:355211 */ /* x104043 stalin.sc:10251:355230 */ t88074 = a23934; /* x104042 stalin.sc:10251:355212 */ a36615 = t88074; /* x279129 */ /* x279128 */ t88075 = a36615; /* x279127 */ if (!((t88075.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-SPLIT[6655] 31532]"); structure_ref_error();} t88073 = t88075.value.structure_type27694->s3; /* x104045 stalin.sc:10251:355234 */ /* x269500 stalin.sc:10251:355207 */ if (t88073==((char *)TRUE_TYPE)) goto l16879; /* x104038 */ /* x104037 stalin.sc:10252:355245 */ /* x104035 stalin.sc:10252:355250 */ /* x104034 stalin.sc:10252:355269 */ t88078 = a23934; /* x104033 stalin.sc:10252:355251 */ a20558 = t88078; /* x55457 */ /* x55456 */ t88079 = a20558; /* x55455 */ if (!((t88079.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("ENVIRONMENT-SPLIT[6655]"); structure_ref_error();} t88076 = t88079.value.structure_type27694->s3; /* x104036 stalin.sc:10252:355273 */ t88077 = q185; /* x269501 stalin.sc:10252:355246 */ if (t88076==t88077) goto l16879; /* x104029 */ /* x104028 stalin.sc:10253:355295 */ /* x104027 stalin.sc:10253:355303 */ t88081 = a23934; /* x104026 stalin.sc:10253:355296 */ t88080 = f8682(t88081); /* x104025 stalin.sc:10253:355289 */ a23934 = t88080; goto h11532; l16879: t87468.tag = TRUE_TYPE; goto l16881; l16880: t87468.tag = FALSE_TYPE; l16881: break; case NATIVE_PROCEDURE_TYPE21502: a26823 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} e15678 = (struct p15678 *)alloca(sizeof(struct p15678)); if (e15678==NULL) {backtrace("stalin.sc", 19070, 668850); out_of_memory_error();} e15678->a26823 = a26823; /* x145205 stalin.sc:19071:668869 */ /* x145204 stalin.sc:19075:668995 */ t88087 = a1940; /* x145203 stalin.sc:19071:668875 */ t88086 = e15678; /* x145185 stalin.sc:19071:668870 */ t88088.tag = NATIVE_PROCEDURE_TYPE23954; t88088.value.native_procedure_type23954 = t88086; t88089 = *((struct w49 *)(&t88087)); t88090 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t88088, t88089, t88090); break; case NATIVE_PROCEDURE_TYPE21514: p1570 = t87477.value.native_procedure_type21514; a15165 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x17684 QobiScheme.sc:788:22836 */ /* x17678 QobiScheme.sc:788:22841 */ /* x17677 QobiScheme.sc:788:22846 */ /* x17675 QobiScheme.sc:788:22851 */ t88091 = a15165; /* x17676 QobiScheme.sc:788:22854 */ t88092 = p1570->a15164; /* x270861 QobiScheme.sc:788:22847 */ /* EQ: dispatching general to general */ if ((t88091.tag)==(t88092.tag)) switch (t88091.tag) {case FIXNUM_TYPE: if ((t88091.value.fixnum_type)==(t88092.value.fixnum_type)) goto l16887; break; case FLONUM_TYPE: if ((t88091.value.flonum_type)==(t88092.value.flonum_type)) goto l16887; break; case INPUT_PORT_TYPE: if ((t88091.value.input_port_type)==(t88092.value.input_port_type)) goto l16887; break; case OUTPUT_PORT_TYPE: if ((t88091.value.output_port_type)==(t88092.value.output_port_type)) goto l16887; break; case NATIVE_PROCEDURE_TYPE15963: if ((t88091.value.native_procedure_type15963)==(t88092.value.native_procedure_type15963)) goto l16887; break; case NATIVE_PROCEDURE_TYPE19067: if ((t88091.value.native_procedure_type19067)==(t88092.value.native_procedure_type19067)) goto l16887; break; case NATIVE_PROCEDURE_TYPE19068: if ((t88091.value.native_procedure_type19068)==(t88092.value.native_procedure_type19068)) goto l16887; break; case NATIVE_PROCEDURE_TYPE22459: if ((t88091.value.native_procedure_type22459)==(t88092.value.native_procedure_type22459)) goto l16887; break; case STRUCTURE_TYPE24753: if ((t88091.value.structure_type24753)==(t88092.value.structure_type24753)) goto l16887; break; case STRUCTURE_TYPE24757: if ((t88091.value.structure_type24757)==(t88092.value.structure_type24757)) goto l16887; break; case STRUCTURE_TYPE27501: if ((t88091.value.structure_type27501)==(t88092.value.structure_type27501)) goto l16887; break; case STRUCTURE_TYPE27510: if ((t88091.value.structure_type27510)==(t88092.value.structure_type27510)) goto l16887; break; case STRUCTURE_TYPE27621: if ((t88091.value.structure_type27621)==(t88092.value.structure_type27621)) goto l16887; break; case STRUCTURE_TYPE27650: if ((t88091.value.structure_type27650)==(t88092.value.structure_type27650)) goto l16887; break; case STRUCTURE_TYPE27669: if ((t88091.value.structure_type27669)==(t88092.value.structure_type27669)) goto l16887; break; case STRUCTURE_TYPE27673: if ((t88091.value.structure_type27673)==(t88092.value.structure_type27673)) goto l16887; break; case STRUCTURE_TYPE27692: if ((t88091.value.structure_type27692)==(t88092.value.structure_type27692)) goto l16887; break; case STRUCTURE_TYPE27694: if ((t88091.value.structure_type27694)==(t88092.value.structure_type27694)) goto l16887; break; case STRUCTURE_TYPE27698: if ((t88091.value.structure_type27698)==(t88092.value.structure_type27698)) goto l16887; break; case STRUCTURE_TYPE27745: if ((t88091.value.structure_type27745)==(t88092.value.structure_type27745)) goto l16887; break; case STRUCTURE_TYPE27747: if ((t88091.value.structure_type27747)==(t88092.value.structure_type27747)) goto l16887; break; case STRUCTURE_TYPE27750: if ((t88091.value.structure_type27750)==(t88092.value.structure_type27750)) goto l16887; break; case STRUCTURE_TYPE27753: if ((t88091.value.structure_type27753)==(t88092.value.structure_type27753)) goto l16887; break; case STRUCTURE_TYPE27756: if ((t88091.value.structure_type27756)==(t88092.value.structure_type27756)) goto l16887; break; case STRUCTURE_TYPE27761: if ((t88091.value.structure_type27761)==(t88092.value.structure_type27761)) goto l16887; break; case STRUCTURE_TYPE27769: if ((t88091.value.structure_type27769)==(t88092.value.structure_type27769)) goto l16887; break; case STRUCTURE_TYPE27776: if ((t88091.value.structure_type27776)==(t88092.value.structure_type27776)) goto l16887; break; case STRUCTURE_TYPE27779: if ((t88091.value.structure_type27779)==(t88092.value.structure_type27779)) goto l16887; break; case STRUCTURE_TYPE27858: if ((t88091.value.structure_type27858)==(t88092.value.structure_type27858)) goto l16887; break; case STRING_TYPE: if ((t88091.value.string_type)==(t88092.value.string_type)) goto l16887; break; case HEADED_VECTOR_TYPE27896: if ((t88091.value.headed_vector_type27896)==(t88092.value.headed_vector_type27896)) goto l16887; break; case EXTERNAL_SYMBOL_TYPE: if ((t88091.value.external_symbol_type)==(t88092.value.external_symbol_type)) goto l16887; break; case STRUCTURE_TYPE27908: if ((t88091.value.structure_type27908)==(t88092.value.structure_type27908)) goto l16887; break; default: goto l16887;} /* x17682 */ /* x17680 QobiScheme.sc:788:22862 */ t88093 = a15165; /* x17681 QobiScheme.sc:788:22865 */ t88094 = p1570->a15164; /* x17679 QobiScheme.sc:788:22860 */ a26813 = t88093; a26814 = t88094; /* x145089 stalin.sc:19154:671296 */ /* x145088 stalin.sc:19156:671375 */ /* x145088 stalin.sc:19156:671375 */ /* x145072 stalin.sc:19156:671380 */ /* x145071 stalin.sc:19156:671397 */ t88123 = a26813; /* x145070 stalin.sc:19156:671381 */ a37669 = t88123; /* x283345 */ /* x283344 */ t88124 = a37669; /* x283343 */ if (!((t88124.tag)==STRUCTURE_TYPE27769)) goto l16911; /* x145086 */ /* x145075 stalin.sc:19157:671405 */ /* x145074 stalin.sc:19157:671432 */ t88125 = a26813; /* x145073 stalin.sc:19157:671406 */ if (f7429(t88125)==FALSE_TYPE) goto l16911; /* x145084 */ /* x145078 stalin.sc:19158:671440 */ /* x145077 stalin.sc:19158:671451 */ t88126 = a26814; /* x145076 stalin.sc:19158:671441 */ a37146 = t88126; /* x281253 */ /* x281252 */ t88127 = a37146; /* x281251 */ if (!((t88127.tag)==STRUCTURE_TYPE27650)) goto l16911; /* x145082 */ /* x145080 stalin.sc:19159:671468 */ t88128 = a26813; /* x145081 stalin.sc:19159:671473 */ t88129 = a26814; /* x145079 stalin.sc:19159:671460 */ if (f8033(t88128, t88129)==FALSE_TYPE) goto l16911; t88095 = TRUE_TYPE; goto l16912; l16911: t88095 = FALSE_TYPE; l16912: /* x145069 */ a26815 = t88095; /* x145068 */ /* x145018 */ if (a26815==FALSE_TYPE) goto l16890; /* x145019 */ t87468.tag = a26815; goto l16891; l16890: /* x145067 */ /* x145066 stalin.sc:19162:671572 */ /* x145042 stalin.sc:19162:671577 */ /* x145041 stalin.sc:19162:671594 */ t88106 = a26813; /* x145040 stalin.sc:19162:671578 */ a37668 = t88106; /* x283341 */ /* x283340 */ t88107 = a37668; /* x283339 */ if (!((t88107.tag)==STRUCTURE_TYPE27769)) goto l16902; /* x145064 */ /* x145045 stalin.sc:19163:671602 */ /* x145044 stalin.sc:19163:671629 */ t88108 = a26813; /* x145043 stalin.sc:19163:671603 */ if (f7429(t88108)==FALSE_TYPE) goto l16905; /* x145062 */ /* x145048 stalin.sc:19164:671637 */ /* x145047 stalin.sc:19164:671654 */ t88109 = a26814; /* x145046 stalin.sc:19164:671638 */ a37667 = t88109; /* x283337 */ /* x283336 */ t88110 = a37667; /* x283335 */ if (!((t88110.tag)==STRUCTURE_TYPE27769)) goto l16908; /* x145060 */ /* x145050 stalin.sc:19165:671668 */ t88111 = a26813; /* x145059 stalin.sc:19166:671681 */ /* x145058 stalin.sc:19167:671703 */ /* x145054 stalin.sc:19167:671718 */ /* x145057 stalin.sc:19168:671738 */ /* x145056 stalin.sc:19168:671760 */ t88121 = a26814; /* x145055 stalin.sc:19168:671739 */ a37615 = t88121; /* x283129 */ /* x283128 */ t88122 = a37615; /* x283127 */ if (!((t88122.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32532]"); structure_ref_error();} t88118 = t88122.value.structure_type27769->s1; /* x145053 stalin.sc:19167:671704 */ t88119.tag = NATIVE_PROCEDURE_TYPE7358; t88120 = *((struct w49 *)(&t88118)); t88114 = f1226(t88119, t88120); /* x145052 stalin.sc:19166:671686 */ /* x145051 stalin.sc:19166:671682 */ t88115.tag = NATIVE_PROCEDURE_TYPE7355; t88116 = *((struct w49 *)(&t88114)); t88117 = (struct structure_type24753 *)NULL_TYPE; t88112 = f27731(t88115, t88116, t88117); /* x145049 stalin.sc:19165:671663 */ /* MOVE: branching squeezed to general */ if (t88112>=((struct structure_type24753 *)VALUE_OFFSET)) {t88113.tag = STRUCTURE_TYPE24753; t88113.value.structure_type24753 = t88112;} else t88113.tag = (unsigned)t88112; t88096 = f26351(t88111, t88113); goto l16909; l16908: /* x145061 */ t88096.tag = FALSE_TYPE; l16909: goto l16906; l16905: /* x145063 */ t88096.tag = FALSE_TYPE; l16906: goto l16903; l16902: /* x145065 */ t88096.tag = FALSE_TYPE; l16903: /* x145039 */ a26816 = t88096; /* x145038 */ /* x145020 */ if ((a26816.tag)==FALSE_TYPE) goto l16893; /* x145021 */ t87468 = a26816; goto l16894; l16893: /* x145037 */ /* x145024 stalin.sc:19170:671846 */ /* x145023 stalin.sc:19170:671857 */ t88097 = a26813; /* x145022 stalin.sc:19170:671847 */ a37145 = t88097; /* x281249 */ /* x281248 */ t88098 = a37145; /* x281247 */ if (!((t88098.tag)==STRUCTURE_TYPE27650)) goto l16896; /* x145035 */ /* x145027 stalin.sc:19171:671865 */ /* x145026 stalin.sc:19171:671882 */ t88099 = a26814; /* x145025 stalin.sc:19171:671866 */ a37666 = t88099; /* x283333 */ /* x283332 */ t88100 = a37666; /* x283331 */ if (!((t88100.tag)==STRUCTURE_TYPE27769)) goto l16899; /* x145033 */ /* x145029 stalin.sc:19172:671896 */ t88101 = a26813; /* x145032 stalin.sc:19172:671901 */ /* x145031 stalin.sc:19172:671923 */ t88104 = a26814; /* x145030 stalin.sc:19172:671902 */ a19897 = t88104; /* x53058 */ /* x53057 */ t88105 = a19897; /* x53056 */ if (!((t88105.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("STRUCTURE-TYPE-SLOTS[6177]"); structure_ref_error();} t88102 = t88105.value.structure_type27769->s1; /* x145028 stalin.sc:19172:671891 */ t88103 = *((struct w49 *)(&t88102)); t87468 = f26351(t88101, t88103); goto l16900; l16899: /* x145034 */ t87468.tag = FALSE_TYPE; l16900: goto l16897; l16896: /* x145036 */ t87468.tag = FALSE_TYPE; l16897: l16894: l16891: goto l16888; l16887: /* x17683 */ t87468.tag = FALSE_TYPE; l16888: break; case NATIVE_PROCEDURE_TYPE22167: p17873 = t87477.value.native_procedure_type22167; a31068 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x166922 stalin.sc:24176:838285 */ /* x166916 stalin.sc:24177:838300 */ t88130 = p17873; /* x166921 stalin.sc:24181:838466 */ /* x166920 stalin.sc:24181:838492 */ /* x166919 stalin.sc:24181:838516 */ t88135 = a31068; /* x166918 stalin.sc:24181:838493 */ a36664 = t88135; /* x279325 */ /* x279324 */ t88136 = a36664; /* x279323 */ if (!((t88136.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31581]"); structure_ref_error();} t88133 = t88136.value.structure_type27694->s1; /* x166917 stalin.sc:24181:838467 */ t88134 = *((struct w49 *)(&t88133)); t88131 = f8683(t88134); /* x166893 stalin.sc:24176:838286 */ t88132.tag = NATIVE_PROCEDURE_TYPE23952; t88132.value.native_procedure_type23952 = t88130; t87468 = f8137(t88132, t88131); break; case NATIVE_PROCEDURE_TYPE22168: p17896 = t87477.value.native_procedure_type22168; a31087 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x167258 stalin.sc:24251:840932 */ /* x167252 stalin.sc:24252:840949 */ t88137 = p17896; /* x167257 stalin.sc:24256:841117 */ /* x167256 stalin.sc:24256:841143 */ /* x167255 stalin.sc:24256:841167 */ t88142 = a31087; /* x167254 stalin.sc:24256:841144 */ a36663 = t88142; /* x279321 */ /* x279320 */ t88143 = a36663; /* x279319 */ if (!((t88143.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31580]"); structure_ref_error();} t88140 = t88143.value.structure_type27694->s1; /* x167253 stalin.sc:24256:841118 */ t88141 = *((struct w49 *)(&t88140)); t88138 = f8683(t88141); /* x167231 stalin.sc:24251:840933 */ t88139.tag = NATIVE_PROCEDURE_TYPE23953; t88139.value.native_procedure_type23953 = t88137; t87468 = f8137(t88139, t88138); break; case NATIVE_PROCEDURE_TYPE22172: p14663 = t87477.value.native_procedure_type22172; a26070 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x132628 stalin.sc:16806:587367 */ /* x132628 stalin.sc:16806:587367 */ /* x132616 stalin.sc:16806:587372 */ /* x132615 stalin.sc:16806:587377 */ /* x132614 stalin.sc:16806:587390 */ t88144 = a26070; /* x132613 stalin.sc:16806:587378 */ if (!(f8793(t88144)==FALSE_TYPE)) goto l16917; /* x132626 */ /* x132621 stalin.sc:16807:587407 */ /* x132619 stalin.sc:16807:587419 */ t88147 = p14663->a26068; /* x132620 stalin.sc:16807:587421 */ t88148 = p14663->p14646->a26048; /* x132618 stalin.sc:16807:587408 */ t88145 = f14564(t88147, t88148); /* x132625 stalin.sc:16807:587424 */ /* x132623 stalin.sc:16807:587436 */ t88149 = a26070; /* x132624 stalin.sc:16807:587439 */ t88150 = p14663->p14646->a26048; /* x132622 stalin.sc:16807:587425 */ t88146 = f14564(t88149, t88150); /* x268814 stalin.sc:16807:587405 */ if (!((t88145&1)==1)) {backtrace_internal("[inside COMPILE-SQUISHED-TYPE-SWITCH 14663]"); eql_error();} if (!((t88146&1)==1)) {backtrace_internal("[inside COMPILE-SQUISHED-TYPE-SWITCH 14663]"); eql_error();} if (!(((int)(((int)t88145)>>1))==((int)(((int)t88146)>>1)))) goto l16917; t87468.tag = TRUE_TYPE; goto l16918; l16917: t87468.tag = FALSE_TYPE; l16918: break; case NATIVE_PROCEDURE_TYPE22174: p14652 = t87477.value.native_procedure_type22174; a26058 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x132350 stalin.sc:16740:585495 */ /* x132350 stalin.sc:16740:585495 */ /* x132338 stalin.sc:16740:585500 */ /* x132337 stalin.sc:16740:585505 */ /* x132336 stalin.sc:16740:585518 */ t88151 = a26058; /* x132335 stalin.sc:16740:585506 */ if (!(f8793(t88151)==FALSE_TYPE)) goto l16921; /* x132348 */ /* x132343 stalin.sc:16741:585534 */ /* x132341 stalin.sc:16741:585546 */ t88154 = p14652->a26056; /* x132342 stalin.sc:16741:585548 */ t88155 = p14652->p14646->a26048; /* x132340 stalin.sc:16741:585535 */ t88152 = f14564(t88154, t88155); /* x132347 stalin.sc:16741:585551 */ /* x132345 stalin.sc:16741:585563 */ t88156 = a26058; /* x132346 stalin.sc:16741:585566 */ t88157 = p14652->p14646->a26048; /* x132344 stalin.sc:16741:585552 */ t88153 = f14564(t88156, t88157); /* x268824 stalin.sc:16741:585532 */ if (!((t88152&1)==1)) {backtrace_internal("[inside COMPILE-SQUISHED-TYPE-SWITCH 14652]"); eql_error();} if (!((t88153&1)==1)) {backtrace_internal("[inside COMPILE-SQUISHED-TYPE-SWITCH 14652]"); eql_error();} if (!(((int)(((int)t88152)>>1))==((int)(((int)t88153)>>1)))) goto l16921; t87468.tag = TRUE_TYPE; goto l16922; l16921: t87468.tag = FALSE_TYPE; l16922: break; case NATIVE_PROCEDURE_TYPE22308: p17856 = t87477.value.native_procedure_type22308; a31042 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x166749 stalin.sc:24135:837023 */ /* x166743 stalin.sc:24136:837038 */ t88158 = p17856; /* x166748 stalin.sc:24140:837204 */ /* x166747 stalin.sc:24140:837230 */ /* x166746 stalin.sc:24140:837254 */ t88163 = a31042; /* x166745 stalin.sc:24140:837231 */ a36665 = t88163; /* x279329 */ /* x279328 */ t88164 = a36665; /* x279327 */ if (!((t88164.tag)==STRUCTURE_TYPE27694)) {backtrace_internal("[clone ENVIRONMENT-EXPRESSION[6639] 31582]"); structure_ref_error();} t88161 = t88164.value.structure_type27694->s1; /* x166744 stalin.sc:24140:837205 */ t88162 = *((struct w49 *)(&t88161)); t88159 = f8683(t88162); /* x166720 stalin.sc:24135:837024 */ t88160.tag = NATIVE_PROCEDURE_TYPE23951; t88160.value.native_procedure_type23951 = t88158; t87468 = f8137(t88160, t88159); break; case NATIVE_PROCEDURE_TYPE22645: p9064 = t87477.value.native_procedure_type22645; a22381 = t87478; if (!(t87479>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} a22382 = t87479->s0; if (!((t87479->s1.tag)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x77141 stalin.sc:5011:170926 */ /* x77136 stalin.sc:5011:170931 */ if ((a22381.tag)==FALSE_TYPE) goto l16925; /* x77139 */ /* x77138 stalin.sc:5011:170941 */ t88166 = a22382; /* x77137 stalin.sc:5011:170935 */ t88165 = p9064; t87468 = f9033(t88165, t88166); goto l16926; l16925: /* x77140 */ t87468.tag = FALSE_TYPE; l16926: break; case NATIVE_PROCEDURE_TYPE22990: a28694 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x158668 stalin.sc:22141:774384 */ /* x158666 stalin.sc:22141:774393 */ /* x158667 stalin.sc:22141:774406 */ t88167 = a28694; /* x158665 stalin.sc:22141:774385 */ t88168.tag = NATIVE_PROCEDURE_TYPE7429; t87468 = f8137(t88168, t88167); break; case NATIVE_PROCEDURE_TYPE22998: a28691 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x158625 stalin.sc:22144:774537 */ /* x158623 stalin.sc:22144:774546 */ /* x158624 stalin.sc:22144:774564 */ t88169 = a28691; /* x158622 stalin.sc:22144:774538 */ t88170.tag = NATIVE_PROCEDURE_TYPE7427; t87468 = f8137(t88170, t88169); break; case NATIVE_PROCEDURE_TYPE23003: a28635 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x158474 stalin.sc:22100:772881 */ /* x158472 stalin.sc:22100:772890 */ /* x158473 stalin.sc:22100:772903 */ t88171 = a28635; /* x158471 stalin.sc:22100:772882 */ t88172.tag = NATIVE_PROCEDURE_TYPE7429; t87468 = f8137(t88172, t88171); break; case NATIVE_PROCEDURE_TYPE23011: a28632 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x158431 stalin.sc:22103:773034 */ /* x158429 stalin.sc:22103:773043 */ /* x158430 stalin.sc:22103:773061 */ t88173 = a28632; /* x158428 stalin.sc:22103:773035 */ t88174.tag = NATIVE_PROCEDURE_TYPE7427; t87468 = f8137(t88174, t88173); break; case NATIVE_PROCEDURE_TYPE23017: a28814 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x159129 stalin.sc:22233:777605 */ /* x159127 stalin.sc:22233:777614 */ /* x159128 stalin.sc:22233:777627 */ t88175 = a28814; /* x159126 stalin.sc:22233:777606 */ t88176.tag = NATIVE_PROCEDURE_TYPE7429; t87468 = f8137(t88176, t88175); break; case NATIVE_PROCEDURE_TYPE23025: a28811 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x159086 stalin.sc:22236:777757 */ /* x159084 stalin.sc:22236:777766 */ /* x159085 stalin.sc:22236:777784 */ t88177 = a28811; /* x159083 stalin.sc:22236:777758 */ t88178.tag = NATIVE_PROCEDURE_TYPE7427; t87468 = f8137(t88178, t88177); break; case NATIVE_PROCEDURE_TYPE23035: a28933 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x159627 stalin.sc:22340:781796 */ /* x159625 stalin.sc:22340:781805 */ /* x159626 stalin.sc:22340:781823 */ t88179 = a28933; /* x159624 stalin.sc:22340:781797 */ t88180.tag = NATIVE_PROCEDURE_TYPE7427; t87468 = f8137(t88180, t88179); break; case NATIVE_PROCEDURE_TYPE23058: a28875 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x159380 stalin.sc:22278:779196 */ /* x159378 stalin.sc:22278:779205 */ /* x159379 stalin.sc:22278:779218 */ t88181 = a28875; /* x159377 stalin.sc:22278:779197 */ t88182.tag = NATIVE_PROCEDURE_TYPE7429; t87468 = f8137(t88182, t88181); break; case NATIVE_PROCEDURE_TYPE23066: a28872 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x159337 stalin.sc:22281:779349 */ /* x159335 stalin.sc:22281:779358 */ /* x159336 stalin.sc:22281:779376 */ t88183 = a28872; /* x159334 stalin.sc:22281:779350 */ t88184.tag = NATIVE_PROCEDURE_TYPE7427; t87468 = f8137(t88184, t88183); break; case NATIVE_PROCEDURE_TYPE23072: a28753 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x158870 stalin.sc:22185:775952 */ /* x158868 stalin.sc:22185:775961 */ /* x158869 stalin.sc:22185:775974 */ t88185 = a28753; /* x158867 stalin.sc:22185:775953 */ t88186.tag = NATIVE_PROCEDURE_TYPE7429; t87468 = f8137(t88186, t88185); break; case NATIVE_PROCEDURE_TYPE23080: a28750 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x158827 stalin.sc:22188:776104 */ /* x158825 stalin.sc:22188:776113 */ /* x158826 stalin.sc:22188:776131 */ t88187 = a28750; /* x158824 stalin.sc:22188:776105 */ t88188.tag = NATIVE_PROCEDURE_TYPE7427; t87468 = f8137(t88188, t88187); break; case NATIVE_PROCEDURE_TYPE23632: a26266 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x135078 stalin.sc:17247:603043 */ /* x135078 stalin.sc:17247:603043 */ /* x135077 stalin.sc:17247:603047 */ /* x135076 stalin.sc:17247:603059 */ t88189 = a26266; /* x135075 stalin.sc:17247:603048 */ if (!(f7682(t88189)==FALSE_TYPE)) goto l16927; /* x135072 */ /* x135071 stalin.sc:17247:603075 */ t88190 = a26266; /* x135070 stalin.sc:17247:603063 */ if (f8793(t88190)==FALSE_TYPE) goto l16928; l16927: t87468.tag = TRUE_TYPE; goto l16929; l16928: t87468.tag = FALSE_TYPE; l16929: break; case NATIVE_PROCEDURE_TYPE23637: a26606 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x141094 stalin.sc:18256:641316 */ /* x141094 stalin.sc:18256:641316 */ /* x141093 stalin.sc:18256:641320 */ /* x141092 stalin.sc:18256:641332 */ t88191 = a26606; /* x141091 stalin.sc:18256:641321 */ if (!(f7682(t88191)==FALSE_TYPE)) goto l16931; /* x141088 */ /* x141087 stalin.sc:18256:641348 */ t88192 = a26606; /* x141086 stalin.sc:18256:641336 */ if (f8793(t88192)==FALSE_TYPE) goto l16932; l16931: t87468.tag = TRUE_TYPE; goto l16933; l16932: t87468.tag = FALSE_TYPE; l16933: break; case NATIVE_PROCEDURE_TYPE23805: p8709 = t87477.value.native_procedure_type23805; a22182 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x74356 stalin.sc:4393:147358 */ /* x74355 stalin.sc:4393:147362 */ /* x74355 stalin.sc:4393:147362 */ /* x74350 stalin.sc:4393:147367 */ /* x74346 stalin.sc:4393:147372 */ t88206 = p8709->a22177; /* x74349 stalin.sc:4393:147375 */ /* x74348 stalin.sc:4393:147397 */ t88208 = a22182; /* x74347 stalin.sc:4393:147376 */ a36900 = t88208; /* x280269 */ /* x280268 */ t88209 = a36900; /* x280267 */ if (!((t88209.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31817]"); structure_ref_error();} t88207 = t88209.value.structure_type27692->s8; /* x270205 stalin.sc:4393:147368 */ /* EQ: dispatching general to general */ if (!((t88206.tag)==(t88207.tag))) goto l16942; switch (t88206.tag) {case FIXNUM_TYPE: if (!((t88206.value.fixnum_type)==(t88207.value.fixnum_type))) goto l16942; break; case FLONUM_TYPE: if (!((t88206.value.flonum_type)==(t88207.value.flonum_type))) goto l16942; break; case INPUT_PORT_TYPE: if (!((t88206.value.input_port_type)==(t88207.value.input_port_type))) goto l16942; break; case OUTPUT_PORT_TYPE: if (!((t88206.value.output_port_type)==(t88207.value.output_port_type))) goto l16942; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t88206.value.native_procedure_type15963)==(t88207.value.native_procedure_type15963))) goto l16942; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t88206.value.native_procedure_type19067)==(t88207.value.native_procedure_type19067))) goto l16942; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t88206.value.native_procedure_type19068)==(t88207.value.native_procedure_type19068))) goto l16942; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t88206.value.native_procedure_type22459)==(t88207.value.native_procedure_type22459))) goto l16942; break; case STRUCTURE_TYPE24753: if (!((t88206.value.structure_type24753)==(t88207.value.structure_type24753))) goto l16942; break; case STRUCTURE_TYPE24757: if (!((t88206.value.structure_type24757)==(t88207.value.structure_type24757))) goto l16942; break; case STRUCTURE_TYPE27501: if (!((t88206.value.structure_type27501)==(t88207.value.structure_type27501))) goto l16942; break; case STRUCTURE_TYPE27510: if (!((t88206.value.structure_type27510)==(t88207.value.structure_type27510))) goto l16942; break; case STRUCTURE_TYPE27621: if (!((t88206.value.structure_type27621)==(t88207.value.structure_type27621))) goto l16942; break; case STRUCTURE_TYPE27650: if (!((t88206.value.structure_type27650)==(t88207.value.structure_type27650))) goto l16942; break; case STRUCTURE_TYPE27669: if (!((t88206.value.structure_type27669)==(t88207.value.structure_type27669))) goto l16942; break; case STRUCTURE_TYPE27673: if (!((t88206.value.structure_type27673)==(t88207.value.structure_type27673))) goto l16942; break; case STRUCTURE_TYPE27692: if (!((t88206.value.structure_type27692)==(t88207.value.structure_type27692))) goto l16942; break; case STRUCTURE_TYPE27694: if (!((t88206.value.structure_type27694)==(t88207.value.structure_type27694))) goto l16942; break; case STRUCTURE_TYPE27698: if (!((t88206.value.structure_type27698)==(t88207.value.structure_type27698))) goto l16942; break; case STRUCTURE_TYPE27745: if (!((t88206.value.structure_type27745)==(t88207.value.structure_type27745))) goto l16942; break; case STRUCTURE_TYPE27747: if (!((t88206.value.structure_type27747)==(t88207.value.structure_type27747))) goto l16942; break; case STRUCTURE_TYPE27750: if (!((t88206.value.structure_type27750)==(t88207.value.structure_type27750))) goto l16942; break; case STRUCTURE_TYPE27753: if (!((t88206.value.structure_type27753)==(t88207.value.structure_type27753))) goto l16942; break; case STRUCTURE_TYPE27756: if (!((t88206.value.structure_type27756)==(t88207.value.structure_type27756))) goto l16942; break; case STRUCTURE_TYPE27761: if (!((t88206.value.structure_type27761)==(t88207.value.structure_type27761))) goto l16942; break; case STRUCTURE_TYPE27769: if (!((t88206.value.structure_type27769)==(t88207.value.structure_type27769))) goto l16942; break; case STRUCTURE_TYPE27776: if (!((t88206.value.structure_type27776)==(t88207.value.structure_type27776))) goto l16942; break; case STRUCTURE_TYPE27779: if (!((t88206.value.structure_type27779)==(t88207.value.structure_type27779))) goto l16942; break; case STRUCTURE_TYPE27858: if (!((t88206.value.structure_type27858)==(t88207.value.structure_type27858))) goto l16942; break; case STRING_TYPE: if (!((t88206.value.string_type)==(t88207.value.string_type))) goto l16942; break; case HEADED_VECTOR_TYPE27896: if (!((t88206.value.headed_vector_type27896)==(t88207.value.headed_vector_type27896))) goto l16942; break; case EXTERNAL_SYMBOL_TYPE: if (!((t88206.value.external_symbol_type)==(t88207.value.external_symbol_type))) goto l16942; break; case STRUCTURE_TYPE27908: if (!((t88206.value.structure_type27908)==(t88207.value.structure_type27908))) goto l16942; break; default:;} /* x74353 */ /* x74352 stalin.sc:4393:147411 */ t88210 = a22182; /* x74351 stalin.sc:4393:147402 */ a41623 = t88210; /* x300604 stalin.sc:3965:133896 */ /* x300603 stalin.sc:3965:133915 */ t88211 = a41623; /* x300602 stalin.sc:3965:133897 */ if (f8219(t88211)==FALSE_TYPE) goto l16942; t88194 = TRUE_TYPE; goto l16943; l16942: t88194 = FALSE_TYPE; l16943: /* x74344 */ t88193 = p8709; p8710 = t88193; a22183 = t88194; /* x74343 */ /* x74317 */ if (a22183==FALSE_TYPE) goto l16936; /* x74318 */ t87468.tag = a22183; goto l16937; l16936: /* x74342 */ /* x74321 stalin.sc:4394:147424 */ /* x74320 stalin.sc:4394:147433 */ t88195 = a22182; /* x74319 stalin.sc:4394:147425 */ a41662 = t88195; /* x300760 stalin.sc:3942:133266 */ /* x300759 stalin.sc:3942:133284 */ t88196 = a41662; /* x300758 stalin.sc:3942:133267 */ if (f8214(t88196)==FALSE_TYPE) goto l16939; /* x74340 */ /* x74339 stalin.sc:4402:147648 */ /* x74338 stalin.sc:4402:147663 */ /* x74337 stalin.sc:4402:147675 */ /* x74336 stalin.sc:4402:147694 */ t88204 = a22182; /* x74335 stalin.sc:4402:147676 */ a36809 = t88204; /* x279905 */ /* x279904 */ t88205 = a36809; /* x279903 */ if (!((t88205.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31726]"); structure_ref_error();} t88203 = t88205.value.structure_type27692->s9; /* x74334 stalin.sc:4402:147664 */ t88202 = f8153(t88203); /* x74333 stalin.sc:4402:147649 */ t88198 = f8984(t88202); /* x74332 stalin.sc:4395:147444 */ t88197 = p8710; /* x74322 stalin.sc:4395:147439 */ t88199.tag = NATIVE_PROCEDURE_TYPE23949; t88199.value.native_procedure_type23949 = t88197; t88200 = *((struct w49 *)(&t88198)); t88201 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t88199, t88200, t88201); goto l16940; l16939: /* x74341 */ t87468.tag = FALSE_TYPE; l16940: l16937: break; case NATIVE_PROCEDURE_TYPE23807: p8707 = t87477.value.native_procedure_type23807; a22180 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x74308 stalin.sc:4406:147766 */ /* x74287 stalin.sc:4406:147771 */ /* x74286 stalin.sc:4406:147780 */ t88212 = a22180; /* x74285 stalin.sc:4406:147772 */ a41663 = t88212; /* x300764 stalin.sc:3942:133266 */ /* x300763 stalin.sc:3942:133284 */ t88213 = a41663; /* x300762 stalin.sc:3942:133267 */ if (f8214(t88213)==FALSE_TYPE) goto l16946; /* x74306 */ /* x74305 stalin.sc:4413:147996 */ /* x74304 stalin.sc:4413:148011 */ /* x74303 stalin.sc:4413:148023 */ /* x74302 stalin.sc:4413:148042 */ t88221 = a22180; /* x74301 stalin.sc:4413:148024 */ a36810 = t88221; /* x279909 */ /* x279908 */ t88222 = a36810; /* x279907 */ if (!((t88222.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31727]"); structure_ref_error();} t88220 = t88222.value.structure_type27692->s9; /* x74300 stalin.sc:4413:148012 */ t88219 = f8153(t88220); /* x74299 stalin.sc:4413:147997 */ t88215 = f8984(t88219); /* x74298 stalin.sc:4407:147794 */ t88214 = p8707; /* x74288 stalin.sc:4407:147789 */ t88216.tag = NATIVE_PROCEDURE_TYPE23945; t88216.value.native_procedure_type23945 = t88214; t88217 = *((struct w49 *)(&t88215)); t88218 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t88216, t88217, t88218); goto l16947; l16946: /* x74307 */ t87468.tag = FALSE_TYPE; l16947: break; case NATIVE_PROCEDURE_TYPE23818: p12652 = t87477.value.native_procedure_type23818; a24707 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x113134 stalin.sc:12438:434353 */ /* x113132 stalin.sc:12438:434370 */ t88223 = a24707; /* x113133 stalin.sc:12438:434373 */ t88224 = p12652->a24706; /* x113131 stalin.sc:12438:434354 */ a24045 = t88223; a24046 = t88224; /* x104657 stalin.sc:10472:362982 */ /* x104656 stalin.sc:10472:362986 */ /* x104654 stalin.sc:10472:363008 */ t88228 = a24045; /* x104655 stalin.sc:10472:363011 */ t88229 = a24046; /* x104653 stalin.sc:10472:362987 */ t88225 = f11630(t88228, t88229); /* x104652 */ a24047 = t88225; /* x104651 */ /* x104645 */ if ((a24047.tag)==FALSE_TYPE) goto l16949; /* x104646 */ t87468 = a24047; goto l16950; l16949: /* x104650 */ /* x104648 stalin.sc:10472:363041 */ t88226 = a24045; /* x104649 stalin.sc:10472:363044 */ t88227 = a24046; /* x104647 stalin.sc:10472:363016 */ t87468 = f11631(t88226, t88227); l16950: break; case NATIVE_PROCEDURE_TYPE23888: t88230 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} t87468 = f11552(t88230); break; case NATIVE_PROCEDURE_TYPE23945: p8708 = t87477.value.native_procedure_type23945; a22181 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x74297 stalin.sc:4408:147811 */ /* x74297 stalin.sc:4408:147811 */ /* x74291 stalin.sc:4411:147945 */ /* x74290 stalin.sc:4411:147964 */ t88231 = a22181; /* x74289 stalin.sc:4411:147946 */ if (f8526(t88231)==FALSE_TYPE) goto l16952; /* x74295 */ /* x74293 stalin.sc:4412:147984 */ t88232 = p8708->a22177; /* x74294 stalin.sc:4412:147987 */ t88233 = a22181; /* x74292 stalin.sc:4412:147974 */ if (f8698(t88232, t88233)==FALSE_TYPE) goto l16952; t87468.tag = TRUE_TYPE; goto l16953; l16952: t87468.tag = FALSE_TYPE; l16953: break; case NATIVE_PROCEDURE_TYPE23949: p8711 = t87477.value.native_procedure_type23949; a22184 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x74331 stalin.sc:4396:147465 */ /* x74331 stalin.sc:4396:147465 */ /* x74325 stalin.sc:4400:147596 */ /* x74324 stalin.sc:4400:147615 */ t88234 = a22184; /* x74323 stalin.sc:4400:147597 */ if (f8526(t88234)==FALSE_TYPE) goto l16956; /* x74329 */ /* x74327 stalin.sc:4401:147632 */ t88235 = p8711->a22177; /* x74328 stalin.sc:4401:147635 */ t88236 = a22184; /* x74326 stalin.sc:4401:147622 */ if (f8698(t88235, t88236)==FALSE_TYPE) goto l16956; t87468.tag = TRUE_TYPE; goto l16957; l16956: t87468.tag = FALSE_TYPE; l16957: break; case NATIVE_PROCEDURE_TYPE23954: p15679 = t87477.value.native_procedure_type23954; a26824 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x145202 stalin.sc:19072:668894 */ /* x145202 stalin.sc:19072:668894 */ /* x145188 stalin.sc:19072:668899 */ /* x145187 stalin.sc:19072:668926 */ t88237 = a26824; /* x145186 stalin.sc:19072:668900 */ if (f7429(t88237)==FALSE_TYPE) goto l16960; /* x145200 */ /* x145194 stalin.sc:19073:668934 */ /* x145190 stalin.sc:19073:668940 */ t88238 = p15679->a26823; /* x145193 stalin.sc:19073:668942 */ /* x145192 stalin.sc:19073:668964 */ t88241 = a26824; /* x145191 stalin.sc:19073:668943 */ a37616 = t88241; /* x283133 */ /* x283132 */ t88242 = a37616; /* x283131 */ if (!((t88242.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-SLOTS[6177] 32533]"); structure_ref_error();} t88239 = t88242.value.structure_type27769->s1; /* x145189 stalin.sc:19073:668935 */ t88240 = *((struct w49 *)(&t88239)); if ((f26351(t88238, t88240).tag)==FALSE_TYPE) goto l16960; /* x145198 */ /* x145196 stalin.sc:19074:668982 */ t88243 = a26824; /* x145197 stalin.sc:19074:668984 */ t88244 = p15679->a26823; /* x145195 stalin.sc:19074:668974 */ if (f8033(t88243, t88244)==FALSE_TYPE) goto l16960; t87468.tag = TRUE_TYPE; goto l16961; l16960: t87468.tag = FALSE_TYPE; l16961: break; case NATIVE_PROCEDURE_TYPE23967: p9050 = t87477.value.native_procedure_type23967; a22375 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x77025 stalin.sc:4988:169935 */ /* x77009 stalin.sc:4988:169940 */ /* x77008 stalin.sc:4988:169951 */ t88245 = a22375; /* x77007 stalin.sc:4988:169941 */ if (f8229(t88245)==FALSE_TYPE) goto l16965; /* x77023 */ /* x77016 stalin.sc:4989:169965 */ /* x77015 stalin.sc:4989:169970 */ /* x77014 stalin.sc:4990:170005 */ /* x77013 stalin.sc:4990:170024 */ t88247 = a22375; /* x77012 stalin.sc:4990:170006 */ a36808 = t88247; /* x279901 */ /* x279900 */ t88248 = a36808; /* x279899 */ if (!((t88248.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31725]"); structure_ref_error();} t88246 = t88248.value.structure_type27692->s9; /* x77011 stalin.sc:4989:169971 */ if (!(f9390(t88246)==FALSE_TYPE)) goto l16968; /* x77021 */ /* x77020 stalin.sc:4991:170047 */ /* x77019 stalin.sc:4991:170066 */ t88251 = a22375; /* x77018 stalin.sc:4991:170048 */ a36807 = t88251; /* x279897 */ /* x279896 */ t88252 = a36807; /* x279895 */ if (!((t88252.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31724]"); structure_ref_error();} t88250 = t88252.value.structure_type27692->s9; /* x77017 stalin.sc:4991:170041 */ t88249 = p9050; t87468 = f9033(t88249, t88250); goto l16969; l16968: /* x77022 */ t87468.tag = FALSE_TYPE; l16969: goto l16966; l16965: /* x77024 */ t87468.tag = FALSE_TYPE; l16966: break; case NATIVE_PROCEDURE_TYPE23971: p8351 = t87477.value.native_procedure_type23971; a21956 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} e8351 = (struct p8351 *)alloca(sizeof(struct p8351)); if (e8351==NULL) {backtrace("stalin.sc", 3818, 129255); out_of_memory_error();} e8351->a21956 = a21956; /* x71499 stalin.sc:3819:129272 */ /* x71471 stalin.sc:3819:129277 */ /* x71470 stalin.sc:3819:129299 */ t88253 = e8351->a21956; /* x71469 stalin.sc:3819:129278 */ if (f8476(t88253)==FALSE_TYPE) goto l16971; /* x71497 */ /* x71483 stalin.sc:3820:129305 */ /* x71475 stalin.sc:3820:129314 */ /* x71474 stalin.sc:3820:129332 */ t88256 = e8351->a21956; /* x71473 stalin.sc:3820:129315 */ t88254 = f8691(t88256); /* x71482 stalin.sc:3821:129340 */ /* x71481 stalin.sc:3822:129367 */ /* x71480 stalin.sc:3823:129390 */ /* x71479 stalin.sc:3823:129431 */ t88260 = p8351->p8246->a21882; /* x71478 stalin.sc:3823:129391 */ a37814 = t88260; /* x283925 */ /* x283924 */ t88261 = a37814; /* x283923 */ if (!((t88261.tag)==STRUCTURE_TYPE27858)) {backtrace_internal("[clone CONTINUATION-TYPE-ALLOCATING-EXPRESSION[6061] 32731]"); structure_ref_error();} t88259 = t88261.value.structure_type27858->s0; /* x71477 stalin.sc:3822:129368 */ t88257 = f6998(t88259); /* x71476 stalin.sc:3821:129341 */ a39864 = t88257; /* x292125 */ /* x292124 */ t88258 = a39864; /* x292123 */ if (!((t88258.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34781]"); structure_ref_error();} t88255 = t88258.value.structure_type27698->s10; /* x71472 stalin.sc:3820:129306 */ if (f8033(t88254, t88255)==FALSE_TYPE) goto l16974; /* x71495 */ /* x71494 stalin.sc:3828:129585 */ t88263 = p8351->a21952; /* x71493 stalin.sc:3824:129448 */ t88262 = e8351; /* x71484 stalin.sc:3824:129443 */ t88264.tag = NATIVE_PROCEDURE_TYPE23972; t88264.value.native_procedure_type23972 = t88262; /* MOVE: branching squeezed to general */ if (t88263>=((struct structure_type24753 *)VALUE_OFFSET)) {t88265.tag = STRUCTURE_TYPE24753; t88265.value.structure_type24753 = t88263;} else t88265.tag = (unsigned)t88263; t88266 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t88264, t88265, t88266); goto l16975; l16974: /* x71496 */ t87468.tag = FALSE_TYPE; l16975: goto l16972; l16971: /* x71498 */ t87468.tag = FALSE_TYPE; l16972: break; case NATIVE_PROCEDURE_TYPE23972: p8352 = t87477.value.native_procedure_type23972; a21957 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x71492 stalin.sc:3826:129500 */ /* x71486 stalin.sc:3827:129525 */ t88267 = p8352->a21956; /* x71491 stalin.sc:3827:129527 */ /* x71490 stalin.sc:3827:129549 */ /* x71489 stalin.sc:3827:129570 */ t88275 = a21957; /* x71488 stalin.sc:3827:129550 */ a39097 = t88275; /* x289057 */ /* x289056 */ t88276 = a39097; /* x289055 */ if (!((t88276.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34014]"); structure_ref_error();} t88273 = t88276.value.structure_type27698->s16; /* x71487 stalin.sc:3827:129528 */ a36899 = t88273; /* x280265 */ /* x280264 */ t88274 = a36899; /* x280263 */ if (!((t88274.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31816]"); structure_ref_error();} t88268 = t88274.value.structure_type27692->s8; /* x71485 stalin.sc:3826:129501 */ a22197 = t88267; a22198 = t88268; /* x74519 stalin.sc:4443:149019 */ /* x74519 stalin.sc:4443:149019 */ /* x74513 stalin.sc:4443:149024 */ /* x74512 stalin.sc:4443:149029 */ /* x74510 stalin.sc:4443:149034 */ t88269 = a22197; /* x74511 stalin.sc:4443:149037 */ t88270 = a22198; /* x270199 stalin.sc:4443:149030 */ /* EQ: dispatching general to general */ if ((t88269.tag)==(t88270.tag)) switch (t88269.tag) {case FIXNUM_TYPE: if ((t88269.value.fixnum_type)==(t88270.value.fixnum_type)) goto l16977; break; case FLONUM_TYPE: if ((t88269.value.flonum_type)==(t88270.value.flonum_type)) goto l16977; break; case INPUT_PORT_TYPE: if ((t88269.value.input_port_type)==(t88270.value.input_port_type)) goto l16977; break; case OUTPUT_PORT_TYPE: if ((t88269.value.output_port_type)==(t88270.value.output_port_type)) goto l16977; break; case NATIVE_PROCEDURE_TYPE15963: if ((t88269.value.native_procedure_type15963)==(t88270.value.native_procedure_type15963)) goto l16977; break; case NATIVE_PROCEDURE_TYPE19067: if ((t88269.value.native_procedure_type19067)==(t88270.value.native_procedure_type19067)) goto l16977; break; case NATIVE_PROCEDURE_TYPE19068: if ((t88269.value.native_procedure_type19068)==(t88270.value.native_procedure_type19068)) goto l16977; break; case NATIVE_PROCEDURE_TYPE22459: if ((t88269.value.native_procedure_type22459)==(t88270.value.native_procedure_type22459)) goto l16977; break; case STRUCTURE_TYPE24753: if ((t88269.value.structure_type24753)==(t88270.value.structure_type24753)) goto l16977; break; case STRUCTURE_TYPE24757: if ((t88269.value.structure_type24757)==(t88270.value.structure_type24757)) goto l16977; break; case STRUCTURE_TYPE27501: if ((t88269.value.structure_type27501)==(t88270.value.structure_type27501)) goto l16977; break; case STRUCTURE_TYPE27510: if ((t88269.value.structure_type27510)==(t88270.value.structure_type27510)) goto l16977; break; case STRUCTURE_TYPE27621: if ((t88269.value.structure_type27621)==(t88270.value.structure_type27621)) goto l16977; break; case STRUCTURE_TYPE27650: if ((t88269.value.structure_type27650)==(t88270.value.structure_type27650)) goto l16977; break; case STRUCTURE_TYPE27669: if ((t88269.value.structure_type27669)==(t88270.value.structure_type27669)) goto l16977; break; case STRUCTURE_TYPE27673: if ((t88269.value.structure_type27673)==(t88270.value.structure_type27673)) goto l16977; break; case STRUCTURE_TYPE27692: if ((t88269.value.structure_type27692)==(t88270.value.structure_type27692)) goto l16977; break; case STRUCTURE_TYPE27694: if ((t88269.value.structure_type27694)==(t88270.value.structure_type27694)) goto l16977; break; case STRUCTURE_TYPE27698: if ((t88269.value.structure_type27698)==(t88270.value.structure_type27698)) goto l16977; break; case STRUCTURE_TYPE27745: if ((t88269.value.structure_type27745)==(t88270.value.structure_type27745)) goto l16977; break; case STRUCTURE_TYPE27747: if ((t88269.value.structure_type27747)==(t88270.value.structure_type27747)) goto l16977; break; case STRUCTURE_TYPE27750: if ((t88269.value.structure_type27750)==(t88270.value.structure_type27750)) goto l16977; break; case STRUCTURE_TYPE27753: if ((t88269.value.structure_type27753)==(t88270.value.structure_type27753)) goto l16977; break; case STRUCTURE_TYPE27756: if ((t88269.value.structure_type27756)==(t88270.value.structure_type27756)) goto l16977; break; case STRUCTURE_TYPE27761: if ((t88269.value.structure_type27761)==(t88270.value.structure_type27761)) goto l16977; break; case STRUCTURE_TYPE27769: if ((t88269.value.structure_type27769)==(t88270.value.structure_type27769)) goto l16977; break; case STRUCTURE_TYPE27776: if ((t88269.value.structure_type27776)==(t88270.value.structure_type27776)) goto l16977; break; case STRUCTURE_TYPE27779: if ((t88269.value.structure_type27779)==(t88270.value.structure_type27779)) goto l16977; break; case STRUCTURE_TYPE27858: if ((t88269.value.structure_type27858)==(t88270.value.structure_type27858)) goto l16977; break; case STRING_TYPE: if ((t88269.value.string_type)==(t88270.value.string_type)) goto l16977; break; case HEADED_VECTOR_TYPE27896: if ((t88269.value.headed_vector_type27896)==(t88270.value.headed_vector_type27896)) goto l16977; break; case EXTERNAL_SYMBOL_TYPE: if ((t88269.value.external_symbol_type)==(t88270.value.external_symbol_type)) goto l16977; break; case STRUCTURE_TYPE27908: if ((t88269.value.structure_type27908)==(t88270.value.structure_type27908)) goto l16977; break; default: goto l16977;} /* x74517 */ /* x74515 stalin.sc:4443:149054 */ t88271 = a22197; /* x74516 stalin.sc:4443:149057 */ t88272 = a22198; /* x74514 stalin.sc:4443:149043 */ if (f8736(t88271, t88272)==FALSE_TYPE) goto l16977; t87468.tag = TRUE_TYPE; goto l16978; l16977: t87468.tag = FALSE_TYPE; l16978: break; case NATIVE_PROCEDURE_TYPE23980: a23906 = t87478; if (!(t87479>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} a23907 = t87479->s0; if (!((t87479->s1.tag)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x103753 stalin.sc:10300:357040 */ /* x103753 stalin.sc:10300:357040 */ /* x103752 stalin.sc:10300:357045 */ /* x103741 stalin.sc:10304:357171 */ /* x103746 stalin.sc:10315:357529 */ /* x103745 stalin.sc:10315:357538 */ /* x103744 stalin.sc:10315:357559 */ t88284 = a23906; /* x103743 stalin.sc:10315:357539 */ a39863 = t88284; /* x292121 */ /* x292120 */ t88285 = a39863; /* x292119 */ if (!((t88285.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34780]"); structure_ref_error();} t88283 = t88285.value.structure_type27698->s10; /* x103742 stalin.sc:10315:357530 */ t88277 = f8162(t88283); /* x103751 stalin.sc:10316:357567 */ /* x103750 stalin.sc:10316:357576 */ /* x103749 stalin.sc:10316:357595 */ t88287 = a23907; /* x103748 stalin.sc:10316:357577 */ a20450 = t88287; /* x55109 */ /* x55108 */ t88288 = a20450; /* x55107 */ if (!((t88288.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("VARIABLE-TYPE-SET[6589]"); structure_ref_error();} t88286 = t88288.value.structure_type27692->s9; /* x103747 stalin.sc:10316:357568 */ t88278 = f8162(t88286); /* x103680 stalin.sc:10300:357046 */ a15018 = t88277; a15019 = t88278; /* x16489 QobiScheme.sc:616:17408 */ /* x16482 QobiScheme.sc:616:17413 */ /* x16479 QobiScheme.sc:616:17423 */ /* x16480 QobiScheme.sc:616:17425 */ t88279 = a15018; /* x16481 QobiScheme.sc:616:17427 */ t88280 = a15019; /* x16478 QobiScheme.sc:616:17414 */ if (f1384(t88279, t88280)==FALSE_TYPE) goto l16980; /* x16487 */ /* x16484 QobiScheme.sc:616:17440 */ /* x16485 QobiScheme.sc:616:17442 */ t88281 = a15019; /* x16486 QobiScheme.sc:616:17444 */ t88282 = a15018; /* x16483 QobiScheme.sc:616:17431 */ if (!(f1384(t88281, t88282)==FALSE_TYPE)) goto l16981; l16980: t87468.tag = TRUE_TYPE; goto l16982; l16981: t87468.tag = FALSE_TYPE; l16982: break; case NATIVE_PROCEDURE_TYPE23990: a22118 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x73566 stalin.sc:4231:142027 */ /* x73566 stalin.sc:4231:142027 */ /* x73559 stalin.sc:4231:142032 */ /* x73558 stalin.sc:4231:142044 */ /* x73557 stalin.sc:4231:142049 */ t88290 = a22118; /* x270231 stalin.sc:4231:142045 */ if (!((t88290.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 4231, 142044); structure_ref_error();} t88289 = t88290.value.structure_type24753->s0; /* x73555 stalin.sc:4231:142033 */ if (f7849(t88289)==FALSE_TYPE) goto l16985; /* x73564 */ /* x73563 stalin.sc:4232:142079 */ /* x73562 stalin.sc:4232:142084 */ t88292 = a22118; /* x270230 stalin.sc:4232:142080 */ if (!((t88292.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 4232, 142079); structure_ref_error();} t88291 = t88292.value.structure_type24753->s1; /* x73560 stalin.sc:4232:142061 */ if (f13034(t88291)==FALSE_TYPE) goto l16985; t87468.tag = TRUE_TYPE; goto l16986; l16985: t87468.tag = FALSE_TYPE; l16986: break; case NATIVE_PROCEDURE_TYPE23998: p12671 = t87477.value.native_procedure_type23998; a24723 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} e12671 = (struct p12671 *)alloca(sizeof(struct p12671)); if (e12671==NULL) {backtrace("stalin.sc", 12504, 437034); out_of_memory_error();} e12671->p12668 = p12671; e12671->a24723 = a24723; /* x113369 stalin.sc:12505:437047 */ /* x113363 stalin.sc:12506:437058 */ t88293 = e12671; /* x113368 stalin.sc:12526:437637 */ /* x113367 stalin.sc:12526:437658 */ /* x113366 stalin.sc:12526:437677 */ t88298 = e12671->a24723; /* x113365 stalin.sc:12526:437659 */ a38622 = t88298; /* x287157 */ /* x287156 */ t88299 = a38622; /* x287155 */ if (!((t88299.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33539]"); structure_ref_error();} t88296 = t88299.value.structure_type27698->s21; /* x113364 stalin.sc:12526:437638 */ a39860 = t88296; /* x292109 */ /* x292108 */ t88297 = a39860; /* x292107 */ if (!((t88297.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34777]"); structure_ref_error();} t88294 = t88297.value.structure_type27698->s10; /* x113298 stalin.sc:12505:437048 */ t88295.tag = NATIVE_PROCEDURE_TYPE23999; t88295.value.native_procedure_type23999 = t88293; t87468 = f8137(t88295, t88294); break; case NATIVE_PROCEDURE_TYPE24001: p12674 = t87477.value.native_procedure_type24001; a24726 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x113340 stalin.sc:12521:437461 */ /* x113340 stalin.sc:12521:437461 */ /* x113335 stalin.sc:12521:437466 */ /* x113334 stalin.sc:12521:437471 */ /* x113332 stalin.sc:12521:437476 */ t88300 = a24726; /* x113333 stalin.sc:12521:437479 */ t88301 = p12674->a24719; /* x269381 stalin.sc:12521:437472 */ /* EQ: dispatching general to general */ if ((t88300.tag)==(t88301.tag)) switch (t88300.tag) {case FIXNUM_TYPE: if ((t88300.value.fixnum_type)==(t88301.value.fixnum_type)) goto l16989; break; case FLONUM_TYPE: if ((t88300.value.flonum_type)==(t88301.value.flonum_type)) goto l16989; break; case INPUT_PORT_TYPE: if ((t88300.value.input_port_type)==(t88301.value.input_port_type)) goto l16989; break; case OUTPUT_PORT_TYPE: if ((t88300.value.output_port_type)==(t88301.value.output_port_type)) goto l16989; break; case NATIVE_PROCEDURE_TYPE15963: if ((t88300.value.native_procedure_type15963)==(t88301.value.native_procedure_type15963)) goto l16989; break; case NATIVE_PROCEDURE_TYPE19067: if ((t88300.value.native_procedure_type19067)==(t88301.value.native_procedure_type19067)) goto l16989; break; case NATIVE_PROCEDURE_TYPE19068: if ((t88300.value.native_procedure_type19068)==(t88301.value.native_procedure_type19068)) goto l16989; break; case NATIVE_PROCEDURE_TYPE22459: if ((t88300.value.native_procedure_type22459)==(t88301.value.native_procedure_type22459)) goto l16989; break; case STRUCTURE_TYPE24753: if ((t88300.value.structure_type24753)==(t88301.value.structure_type24753)) goto l16989; break; case STRUCTURE_TYPE24757: if ((t88300.value.structure_type24757)==(t88301.value.structure_type24757)) goto l16989; break; case STRUCTURE_TYPE27501: if ((t88300.value.structure_type27501)==(t88301.value.structure_type27501)) goto l16989; break; case STRUCTURE_TYPE27510: if ((t88300.value.structure_type27510)==(t88301.value.structure_type27510)) goto l16989; break; case STRUCTURE_TYPE27621: if ((t88300.value.structure_type27621)==(t88301.value.structure_type27621)) goto l16989; break; case STRUCTURE_TYPE27650: if ((t88300.value.structure_type27650)==(t88301.value.structure_type27650)) goto l16989; break; case STRUCTURE_TYPE27669: if ((t88300.value.structure_type27669)==(t88301.value.structure_type27669)) goto l16989; break; case STRUCTURE_TYPE27673: if ((t88300.value.structure_type27673)==(t88301.value.structure_type27673)) goto l16989; break; case STRUCTURE_TYPE27692: if ((t88300.value.structure_type27692)==(t88301.value.structure_type27692)) goto l16989; break; case STRUCTURE_TYPE27694: if ((t88300.value.structure_type27694)==(t88301.value.structure_type27694)) goto l16989; break; case STRUCTURE_TYPE27698: if ((t88300.value.structure_type27698)==(t88301.value.structure_type27698)) goto l16989; break; case STRUCTURE_TYPE27745: if ((t88300.value.structure_type27745)==(t88301.value.structure_type27745)) goto l16989; break; case STRUCTURE_TYPE27747: if ((t88300.value.structure_type27747)==(t88301.value.structure_type27747)) goto l16989; break; case STRUCTURE_TYPE27750: if ((t88300.value.structure_type27750)==(t88301.value.structure_type27750)) goto l16989; break; case STRUCTURE_TYPE27753: if ((t88300.value.structure_type27753)==(t88301.value.structure_type27753)) goto l16989; break; case STRUCTURE_TYPE27756: if ((t88300.value.structure_type27756)==(t88301.value.structure_type27756)) goto l16989; break; case STRUCTURE_TYPE27761: if ((t88300.value.structure_type27761)==(t88301.value.structure_type27761)) goto l16989; break; case STRUCTURE_TYPE27769: if ((t88300.value.structure_type27769)==(t88301.value.structure_type27769)) goto l16989; break; case STRUCTURE_TYPE27776: if ((t88300.value.structure_type27776)==(t88301.value.structure_type27776)) goto l16989; break; case STRUCTURE_TYPE27779: if ((t88300.value.structure_type27779)==(t88301.value.structure_type27779)) goto l16989; break; case STRUCTURE_TYPE27858: if ((t88300.value.structure_type27858)==(t88301.value.structure_type27858)) goto l16989; break; case STRING_TYPE: if ((t88300.value.string_type)==(t88301.value.string_type)) goto l16989; break; case HEADED_VECTOR_TYPE27896: if ((t88300.value.headed_vector_type27896)==(t88301.value.headed_vector_type27896)) goto l16989; break; case EXTERNAL_SYMBOL_TYPE: if ((t88300.value.external_symbol_type)==(t88301.value.external_symbol_type)) goto l16989; break; case STRUCTURE_TYPE27908: if ((t88300.value.structure_type27908)==(t88301.value.structure_type27908)) goto l16989; break; default: goto l16989;} /* x113338 */ /* x113337 stalin.sc:12521:437505 */ t88302 = a24726; /* x113336 stalin.sc:12521:437484 */ if (f8476(t88302)==FALSE_TYPE) goto l16989; t87468.tag = TRUE_TYPE; goto l16990; l16989: t87468.tag = FALSE_TYPE; l16990: break; case NATIVE_PROCEDURE_TYPE24005: p12231 = t87477.value.native_procedure_type24005; a24429 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x109347 stalin.sc:11588:404955 */ /* x109347 stalin.sc:11588:404955 */ /* x109330 stalin.sc:11588:404960 */ /* x109329 stalin.sc:11588:404965 */ /* x109328 stalin.sc:11588:404987 */ t88303 = a24429; /* x109327 stalin.sc:11588:404966 */ if (!(f8751(t88303)==FALSE_TYPE)) goto l16993; /* x109345 */ /* x109337 stalin.sc:11589:404994 */ /* x109336 stalin.sc:11590:405020 */ /* x109335 stalin.sc:11590:405044 */ /* x109334 stalin.sc:11590:405066 */ t88307 = a24429; /* x109333 stalin.sc:11590:405045 */ a36358 = t88307; /* x278101 */ /* x278100 */ t88308 = a36358; /* x278099 */ if (!((t88308.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("[clone CALL-SITE-EXPRESSION[6849] 31275]"); structure_ref_error();} t88305 = t88308.value.structure_type27745->s0; /* x109332 stalin.sc:11590:405021 */ a40034 = t88305; /* x292805 */ /* x292804 */ t88306 = a40034; /* x292803 */ if (!((t88306.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34951]"); structure_ref_error();} t88304 = t88306.value.structure_type27698->s9; /* x109331 stalin.sc:11589:404995 */ if (f8476(t88304)==FALSE_TYPE) goto l16993; /* x109343 */ /* x109342 stalin.sc:11591:405079 */ /* x109340 stalin.sc:11591:405106 */ t88309 = a24429; /* x109341 stalin.sc:11591:405108 */ t88310 = p12231->a24428; /* x109339 stalin.sc:11591:405080 */ if (!(f8791(t88309, t88310)==FALSE_TYPE)) goto l16993; t87468.tag = TRUE_TYPE; goto l16994; l16993: t87468.tag = FALSE_TYPE; l16994: break; case NATIVE_PROCEDURE_TYPE24006: p8294 = t87477.value.native_procedure_type24006; a21919 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x71271 stalin.sc:3692:124966 */ /* x71270 stalin.sc:3700:125449 */ /* x71270 stalin.sc:3700:125449 */ /* x71269 stalin.sc:3700:125454 */ /* x71268 stalin.sc:3700:125475 */ t88329 = a21919; /* x71267 stalin.sc:3700:125455 */ if (!(f8752(t88329)==FALSE_TYPE)) goto l17001; t88312 = TRUE_TYPE; goto l17002; l17001: t88312 = FALSE_TYPE; l17002: /* x71265 */ t88311 = p8294; p8295 = t88311; a21920 = t88312; /* x71264 */ /* x71101 */ if (a21920==FALSE_TYPE) goto l16998; /* x71102 */ t87468.tag = a21920; goto l16999; l16998: /* x71263 */ /* x71262 */ t88313 = p8295; p8296 = t88313; /* x71261 */ /* x71260 stalin.sc:3704:125597 */ /* x71252 stalin.sc:3704:125610 */ /* x71253 stalin.sc:3705:125632 */ /* x71254 stalin.sc:3706:125659 */ /* x71259 stalin.sc:3707:125691 */ /* x71258 stalin.sc:3707:125715 */ /* x71257 stalin.sc:3707:125737 */ t88327 = a21919; /* x71256 stalin.sc:3707:125716 */ a20801 = t88327; /* x56404 */ /* x56403 */ t88328 = a20801; /* x56402 */ if (!((t88328.tag)==STRUCTURE_TYPE27745)) {backtrace_internal("CALL-SITE-EXPRESSION[6849]"); structure_ref_error();} t88325 = t88328.value.structure_type27745->s0; /* x71255 stalin.sc:3707:125692 */ a40033 = t88325; /* x292801 */ /* x292800 */ t88326 = a40033; /* x292799 */ if (!((t88326.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34950]"); structure_ref_error();} t88321 = t88326.value.structure_type27698->s9; /* x71250 stalin.sc:3704:125598 */ t88322 = NATIVE_PROCEDURE_TYPE24009; t88323 = NATIVE_PROCEDURE_TYPE7309; t88324 = NATIVE_PROCEDURE_TYPE7308; f11570(t88322, t88323, t88324, t88321); /* x71249 */ t88314 = p8296; p8297 = t88314; /* x71248 stalin.sc:3709:125777 */ /* x71247 stalin.sc:3744:126810 */ t88317 = p8297->a21915; /* x71246 stalin.sc:3710:125791 */ t88316 = p8297->p8246; /* x71103 stalin.sc:3709:125778 */ t88318.tag = NATIVE_PROCEDURE_TYPE24011; t88318.value.native_procedure_type24011 = t88316; /* MOVE: branching squeezed to general */ if (t88317>=((struct structure_type24753 *)VALUE_OFFSET)) {t88319.tag = STRUCTURE_TYPE24753; t88319.value.structure_type24753 = t88317;} else t88319.tag = (unsigned)t88317; t88320 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t88318, t88319, t88320); l16999: break; case NATIVE_PROCEDURE_TYPE24011: p8298 = t87477.value.native_procedure_type24011; a21922 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x71245 stalin.sc:3712:125828 */ /* x71244 stalin.sc:3712:125844 */ /* x71243 stalin.sc:3712:125868 */ t88359 = a21922; /* x71242 stalin.sc:3712:125845 */ a40032 = t88359; /* x292797 */ /* x292796 */ t88360 = a40032; /* x292795 */ if (!((t88360.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ENVIRONMENT[5559] 34949]"); structure_ref_error();} t88331 = t88360.value.structure_type27698->s9; /* x71241 */ /* x71240 */ /* x71239 */ /* x71238 */ t88357 = p8298; p8299 = t88357; /* x71237 */ /* x71236 */ /* x71235 */ /* x71105 */ t88358 = p8299; p8300 = t88358; /* x71104 stalin.sc:3712:125833 */ t88330 = p8300; p8301 = t88330; a21925 = t88331; h8301: /* x71234 stalin.sc:3713:125876 */ /* x71108 stalin.sc:3715:125915 */ /* x71107 stalin.sc:3715:125927 */ t88332 = a21925; /* x71106 stalin.sc:3715:125916 */ if (f8538(t88332)==FALSE_TYPE) goto l17004; /* x71232 */ /* x71231 stalin.sc:3717:125944 */ /* x71132 stalin.sc:3719:125981 */ /* x71131 stalin.sc:3719:126003 */ t88344 = a21925; /* x71130 stalin.sc:3719:125982 */ if (f8471(t88344)==FALSE_TYPE) goto l17012; /* x71229 */ /* x71228 */ t88345 = p8301; p8303 = t88345; /* x71227 */ /* x71158 stalin.sc:3722:126071 */ /* x71157 stalin.sc:3723:126137 */ t88352 = a1594; /* x71156 stalin.sc:3722:126081 */ /* x71151 stalin.sc:3722:126072 */ t88353.tag = NATIVE_PROCEDURE_TYPE24030; t88354 = *((struct w49 *)(&t88352)); t88355 = (struct structure_type24753 *)NULL_TYPE; f27755(t88353, t88354, t88355); /* x71226 stalin.sc:3724:126150 */ /* x71225 stalin.sc:3724:126164 */ t88356 = a21925; /* x71224 */ /* x71223 */ /* x71222 */ /* x71221 */ /* x71220 */ /* x71219 */ /* x71218 */ /* x71160 */ /* x71159 stalin.sc:3724:126155 */ f8309(t88356); /* x71150 */ t88346 = p8303; p8304 = t88346; /* x71149 stalin.sc:3733:126457 */ /* x71148 stalin.sc:3736:126564 */ /* x71147 stalin.sc:3736:126579 */ t88351 = p8304->a21882; /* x71146 stalin.sc:3736:126565 */ t88347 = f8984(t88351); /* x71145 stalin.sc:3733:126463 */ /* x71133 stalin.sc:3733:126458 */ t88348.tag = NATIVE_PROCEDURE_TYPE24032; t88349 = *((struct w49 *)(&t88347)); t88350 = (struct structure_type24753 *)NULL_TYPE; t88334 = f1042(t88348, t88349, t88350); goto l17013; l17012: /* x71230 */ t88334.tag = FALSE_TYPE; l17013: /* x71129 */ t88333 = p8301; p8302 = t88333; a21926 = t88334; /* x71128 */ /* x71109 */ if ((a21926.tag)==FALSE_TYPE) goto l17007; /* x71110 */ t87468 = a21926; goto l17008; l17007: /* x71127 */ /* x71120 stalin.sc:3739:126636 */ /* x71119 stalin.sc:3740:126648 */ /* x71113 stalin.sc:3740:126653 */ t88335 = a21925; /* x71118 stalin.sc:3740:126656 */ /* x71117 stalin.sc:3740:126678 */ /* x71116 stalin.sc:3740:126699 */ t88339 = a21922; /* x71115 stalin.sc:3740:126679 */ a39094 = t88339; /* x289045 */ /* x289044 */ t88340 = a39094; /* x289043 */ if (!((t88340.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-VARIABLE[5615] 34011]"); structure_ref_error();} t88337 = t88340.value.structure_type27698->s16; /* x71114 stalin.sc:3740:126657 */ a36897 = t88337; /* x280257 */ /* x280256 */ t88338 = a36897; /* x280255 */ if (!((t88338.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-ENVIRONMENT[6581] 31814]"); structure_ref_error();} t88336 = t88338.value.structure_type27692->s8; /* x270319 stalin.sc:3740:126649 */ /* EQ: dispatching general to general */ if ((t88335.tag)==(t88336.tag)) switch (t88335.tag) {case FIXNUM_TYPE: if ((t88335.value.fixnum_type)==(t88336.value.fixnum_type)) goto l17010; break; case FLONUM_TYPE: if ((t88335.value.flonum_type)==(t88336.value.flonum_type)) goto l17010; break; case INPUT_PORT_TYPE: if ((t88335.value.input_port_type)==(t88336.value.input_port_type)) goto l17010; break; case OUTPUT_PORT_TYPE: if ((t88335.value.output_port_type)==(t88336.value.output_port_type)) goto l17010; break; case NATIVE_PROCEDURE_TYPE15963: if ((t88335.value.native_procedure_type15963)==(t88336.value.native_procedure_type15963)) goto l17010; break; case NATIVE_PROCEDURE_TYPE19067: if ((t88335.value.native_procedure_type19067)==(t88336.value.native_procedure_type19067)) goto l17010; break; case NATIVE_PROCEDURE_TYPE19068: if ((t88335.value.native_procedure_type19068)==(t88336.value.native_procedure_type19068)) goto l17010; break; case NATIVE_PROCEDURE_TYPE22459: if ((t88335.value.native_procedure_type22459)==(t88336.value.native_procedure_type22459)) goto l17010; break; case STRUCTURE_TYPE24753: if ((t88335.value.structure_type24753)==(t88336.value.structure_type24753)) goto l17010; break; case STRUCTURE_TYPE24757: if ((t88335.value.structure_type24757)==(t88336.value.structure_type24757)) goto l17010; break; case STRUCTURE_TYPE27501: if ((t88335.value.structure_type27501)==(t88336.value.structure_type27501)) goto l17010; break; case STRUCTURE_TYPE27510: if ((t88335.value.structure_type27510)==(t88336.value.structure_type27510)) goto l17010; break; case STRUCTURE_TYPE27621: if ((t88335.value.structure_type27621)==(t88336.value.structure_type27621)) goto l17010; break; case STRUCTURE_TYPE27650: if ((t88335.value.structure_type27650)==(t88336.value.structure_type27650)) goto l17010; break; case STRUCTURE_TYPE27669: if ((t88335.value.structure_type27669)==(t88336.value.structure_type27669)) goto l17010; break; case STRUCTURE_TYPE27673: if ((t88335.value.structure_type27673)==(t88336.value.structure_type27673)) goto l17010; break; case STRUCTURE_TYPE27692: if ((t88335.value.structure_type27692)==(t88336.value.structure_type27692)) goto l17010; break; case STRUCTURE_TYPE27694: if ((t88335.value.structure_type27694)==(t88336.value.structure_type27694)) goto l17010; break; case STRUCTURE_TYPE27698: if ((t88335.value.structure_type27698)==(t88336.value.structure_type27698)) goto l17010; break; case STRUCTURE_TYPE27745: if ((t88335.value.structure_type27745)==(t88336.value.structure_type27745)) goto l17010; break; case STRUCTURE_TYPE27747: if ((t88335.value.structure_type27747)==(t88336.value.structure_type27747)) goto l17010; break; case STRUCTURE_TYPE27750: if ((t88335.value.structure_type27750)==(t88336.value.structure_type27750)) goto l17010; break; case STRUCTURE_TYPE27753: if ((t88335.value.structure_type27753)==(t88336.value.structure_type27753)) goto l17010; break; case STRUCTURE_TYPE27756: if ((t88335.value.structure_type27756)==(t88336.value.structure_type27756)) goto l17010; break; case STRUCTURE_TYPE27761: if ((t88335.value.structure_type27761)==(t88336.value.structure_type27761)) goto l17010; break; case STRUCTURE_TYPE27769: if ((t88335.value.structure_type27769)==(t88336.value.structure_type27769)) goto l17010; break; case STRUCTURE_TYPE27776: if ((t88335.value.structure_type27776)==(t88336.value.structure_type27776)) goto l17010; break; case STRUCTURE_TYPE27779: if ((t88335.value.structure_type27779)==(t88336.value.structure_type27779)) goto l17010; break; case STRUCTURE_TYPE27858: if ((t88335.value.structure_type27858)==(t88336.value.structure_type27858)) goto l17010; break; case STRING_TYPE: if ((t88335.value.string_type)==(t88336.value.string_type)) goto l17010; break; case HEADED_VECTOR_TYPE27896: if ((t88335.value.headed_vector_type27896)==(t88336.value.headed_vector_type27896)) goto l17010; break; case EXTERNAL_SYMBOL_TYPE: if ((t88335.value.external_symbol_type)==(t88336.value.external_symbol_type)) goto l17010; break; case STRUCTURE_TYPE27908: if ((t88335.value.structure_type27908)==(t88336.value.structure_type27908)) goto l17010; break; default: goto l17010;} /* x71125 */ /* x71124 stalin.sc:3742:126748 */ /* x71123 stalin.sc:3742:126756 */ t88343 = a21925; /* x71122 stalin.sc:3742:126749 */ t88342 = f8682(t88343); /* x71121 stalin.sc:3742:126742 */ t88341 = p8302; p8301 = t88341; a21925 = t88342; goto h8301; l17010: /* x71126 */ t87468.tag = FALSE_TYPE; l17008: goto l17005; l17004: /* x71233 */ t87468.tag = FALSE_TYPE; l17005: break; case NATIVE_PROCEDURE_TYPE24032: a21929 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x71144 stalin.sc:3734:126482 */ /* x71136 stalin.sc:3734:126487 */ /* x71135 stalin.sc:3734:126506 */ t88361 = a21929; /* x71134 stalin.sc:3734:126488 */ if (f8526(t88361)==FALSE_TYPE) goto l17015; /* x71142 */ /* x71141 stalin.sc:3735:126541 */ /* x71140 stalin.sc:3735:126552 */ t88366 = a21929; /* x71139 stalin.sc:3735:126542 */ t88362 = f8951(t88366); /* x71138 stalin.sc:3735:126520 */ /* x71137 stalin.sc:3735:126515 */ t88363.tag = NATIVE_PROCEDURE_TYPE7307; t88364 = *((struct w49 *)(&t88362)); t88365 = (struct structure_type24753 *)NULL_TYPE; t87468 = f1042(t88363, t88364, t88365); goto l17016; l17015: /* x71143 */ t87468.tag = FALSE_TYPE; l17016: break; case NATIVE_PROCEDURE_TYPE24034: p8289 = t87477.value.native_procedure_type24034; a21913 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x71048 stalin.sc:3652:123744 */ /* x71046 stalin.sc:3652:123754 */ t88367 = p8289->a21882; /* x71047 stalin.sc:3652:123758 */ t88368 = a21913; /* x71045 stalin.sc:3652:123745 */ t88369 = f8086(t88367, t88368); t87468.tag = t88369; break; case NATIVE_PROCEDURE_TYPE24132: p9514 = t87477.value.native_procedure_type24132; a22710 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} sfp9514 = fp9514; /* x82225 stalin.sc:5968:207317 */ /* x82224 stalin.sc:5968:207331 */ t88371 = a22710; /* x82223 */ /* x82222 */ /* x82221 */ /* x82220 */ t88372 = p9514; p9515 = t88372; if ((fp9514+sizeof(struct p9515))>(&((region9514->data)[region_size9514]))) {struct region9514 *region; unsigned region_size = REGION_SIZE9514; if (sizeof(struct p9515)>region_size) region_size = sizeof(struct p9515); region = (struct region9514 *)GC_malloc_uncollectable(sizeof(struct region9514)+(region_size-1)); if (region==NULL) {backtrace_internal("[inside CONTROL-PROPERLY-FLOWS? 9514]"); out_of_memory_error();} region->region = region9514; region->region_size = region_size9514; region_size9514 = region_size; region9514 = region; fp9514 = &((region->data)[0]); ALIGN(fp9514);} e9515 = (struct p9515 *)fp9514; fp9514 += sizeof(struct p9515)+((4-(sizeof(struct p9515)%4))&3); e9515->p9513 = p9515; e9515->a22711 = a22711; /* x82219 */ /* x82218 */ /* x82217 */ e9515->a22711 = e9515; /* x82183 */ t88373 = e9515; p9516 = t88373; /* x82182 stalin.sc:5968:207322 */ t88370 = p9516->a22711; t87468 = f9517(t88370, t88371); while ((sfp9514<(&((region9514->data)[0])))||(sfp9514>(&((region9514->data)[region_size9514])))) {struct region9514 *region; region = region9514; region_size9514 = region9514->region_size; region9514 = region9514->region; GC_free(region);} fp9514 = sfp9514; break; case NATIVE_PROCEDURE_TYPE24135: t88374 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} t87468 = f9517((t87477.value.native_procedure_type24135), t88374); break; case NATIVE_PROCEDURE_TYPE24261: a33172 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x226644 stalin.sc:31920:1101651 */ /* x226644 stalin.sc:31920:1101651 */ /* x226643 stalin.sc:31920:1101656 */ /* x226639 stalin.sc:31920:1101661 */ t88375 = a33172; /* x226642 stalin.sc:31920:1101663 */ /* x226641 stalin.sc:31920:1101679 */ t88377 = a33172; /* x226640 stalin.sc:31920:1101664 */ t88376 = f8976(t88377); /* x267572 stalin.sc:31920:1101657 */ /* EQ: dispatching general to general */ if ((t88375.tag)==(t88376.tag)) switch (t88375.tag) {case FIXNUM_TYPE: if ((t88375.value.fixnum_type)==(t88376.value.fixnum_type)) goto l17018; break; case FLONUM_TYPE: if ((t88375.value.flonum_type)==(t88376.value.flonum_type)) goto l17018; break; case INPUT_PORT_TYPE: if ((t88375.value.input_port_type)==(t88376.value.input_port_type)) goto l17018; break; case OUTPUT_PORT_TYPE: if ((t88375.value.output_port_type)==(t88376.value.output_port_type)) goto l17018; break; case NATIVE_PROCEDURE_TYPE15963: if ((t88375.value.native_procedure_type15963)==(t88376.value.native_procedure_type15963)) goto l17018; break; case NATIVE_PROCEDURE_TYPE19067: if ((t88375.value.native_procedure_type19067)==(t88376.value.native_procedure_type19067)) goto l17018; break; case NATIVE_PROCEDURE_TYPE19068: if ((t88375.value.native_procedure_type19068)==(t88376.value.native_procedure_type19068)) goto l17018; break; case NATIVE_PROCEDURE_TYPE22459: if ((t88375.value.native_procedure_type22459)==(t88376.value.native_procedure_type22459)) goto l17018; break; case STRUCTURE_TYPE24753: if ((t88375.value.structure_type24753)==(t88376.value.structure_type24753)) goto l17018; break; case STRUCTURE_TYPE24757: if ((t88375.value.structure_type24757)==(t88376.value.structure_type24757)) goto l17018; break; case STRUCTURE_TYPE27501: if ((t88375.value.structure_type27501)==(t88376.value.structure_type27501)) goto l17018; break; case STRUCTURE_TYPE27510: if ((t88375.value.structure_type27510)==(t88376.value.structure_type27510)) goto l17018; break; case STRUCTURE_TYPE27621: if ((t88375.value.structure_type27621)==(t88376.value.structure_type27621)) goto l17018; break; case STRUCTURE_TYPE27650: if ((t88375.value.structure_type27650)==(t88376.value.structure_type27650)) goto l17018; break; case STRUCTURE_TYPE27669: if ((t88375.value.structure_type27669)==(t88376.value.structure_type27669)) goto l17018; break; case STRUCTURE_TYPE27673: if ((t88375.value.structure_type27673)==(t88376.value.structure_type27673)) goto l17018; break; case STRUCTURE_TYPE27692: if ((t88375.value.structure_type27692)==(t88376.value.structure_type27692)) goto l17018; break; case STRUCTURE_TYPE27694: if ((t88375.value.structure_type27694)==(t88376.value.structure_type27694)) goto l17018; break; case STRUCTURE_TYPE27698: if ((t88375.value.structure_type27698)==(t88376.value.structure_type27698)) goto l17018; break; case STRUCTURE_TYPE27745: if ((t88375.value.structure_type27745)==(t88376.value.structure_type27745)) goto l17018; break; case STRUCTURE_TYPE27747: if ((t88375.value.structure_type27747)==(t88376.value.structure_type27747)) goto l17018; break; case STRUCTURE_TYPE27750: if ((t88375.value.structure_type27750)==(t88376.value.structure_type27750)) goto l17018; break; case STRUCTURE_TYPE27753: if ((t88375.value.structure_type27753)==(t88376.value.structure_type27753)) goto l17018; break; case STRUCTURE_TYPE27756: if ((t88375.value.structure_type27756)==(t88376.value.structure_type27756)) goto l17018; break; case STRUCTURE_TYPE27761: if ((t88375.value.structure_type27761)==(t88376.value.structure_type27761)) goto l17018; break; case STRUCTURE_TYPE27769: if ((t88375.value.structure_type27769)==(t88376.value.structure_type27769)) goto l17018; break; case STRUCTURE_TYPE27776: if ((t88375.value.structure_type27776)==(t88376.value.structure_type27776)) goto l17018; break; case STRUCTURE_TYPE27779: if ((t88375.value.structure_type27779)==(t88376.value.structure_type27779)) goto l17018; break; case STRUCTURE_TYPE27858: if ((t88375.value.structure_type27858)==(t88376.value.structure_type27858)) goto l17018; break; case STRING_TYPE: if ((t88375.value.string_type)==(t88376.value.string_type)) goto l17018; break; case HEADED_VECTOR_TYPE27896: if ((t88375.value.headed_vector_type27896)==(t88376.value.headed_vector_type27896)) goto l17018; break; case EXTERNAL_SYMBOL_TYPE: if ((t88375.value.external_symbol_type)==(t88376.value.external_symbol_type)) goto l17018; break; case STRUCTURE_TYPE27908: if ((t88375.value.structure_type27908)==(t88376.value.structure_type27908)) goto l17018; break; default: goto l17018;} t87468.tag = TRUE_TYPE; goto l17019; l17018: t87468.tag = FALSE_TYPE; l17019: break; case NATIVE_PROCEDURE_TYPE24683: p17858 = t87477.value.native_procedure_type24683; a31044 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x166735 stalin.sc:24138:837137 */ /* x166735 stalin.sc:24138:837137 */ /* x166734 stalin.sc:24138:837142 */ /* x166732 stalin.sc:24138:837149 */ t88378 = a31044; /* x166733 stalin.sc:24138:837151 */ t88379 = p17858->a31043; /* x166731 stalin.sc:24138:837143 */ if (!(f8792(t88378, t88379)==FALSE_TYPE)) goto l17021; t87468.tag = TRUE_TYPE; goto l17022; l17021: t87468.tag = FALSE_TYPE; l17022: break; case NATIVE_PROCEDURE_TYPE24685: p17875 = t87477.value.native_procedure_type24685; a31070 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x166908 stalin.sc:24179:838399 */ /* x166908 stalin.sc:24179:838399 */ /* x166907 stalin.sc:24179:838404 */ /* x166905 stalin.sc:24179:838411 */ t88380 = a31070; /* x166906 stalin.sc:24179:838413 */ t88381 = p17875->a31069; /* x166904 stalin.sc:24179:838405 */ if (!(f8792(t88380, t88381)==FALSE_TYPE)) goto l17024; t87468.tag = TRUE_TYPE; goto l17025; l17024: t87468.tag = FALSE_TYPE; l17025: break; default: p17898 = t87477.value.native_procedure_type24686; a31089 = t87478; if (!(((unsigned)t87479)==NULL_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 311, 9570); call_error();} /* x167244 stalin.sc:24254:841052 */ /* x167242 stalin.sc:24254:841059 */ t88382 = a31089; /* x167243 stalin.sc:24254:841061 */ t88383 = p17898->a31088; /* x167241 stalin.sc:24254:841053 */ t88384 = f8792(t88382, t88383); t87468.tag = t88384;} /* x14393 */ a14703 = t87468; /* x14392 */ /* x14381 */ if ((a14703.tag)==FALSE_TYPE) goto l16638; /* x14382 */ r1042 = a14703; goto l16639; l16638: /* x14391 */ /* x14386 QobiScheme.sc:312:9618 */ /* x14385 QobiScheme.sc:312:9624 */ t87471 = *((struct w16638 *)(&a14701)); /* x14384 QobiScheme.sc:312:9619 */ a35620 = t87471; /* x273837 */ /* x273836 */ t87472 = a35620; /* x273835 */ if (!((t87472.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29769]"); structure_ref_error();} t87469 = t87472.value.structure_type24753->s1; /* x14390 QobiScheme.sc:312:9627 */ /* x14389 QobiScheme.sc:312:9637 */ t87473 = a14702; /* x14388 QobiScheme.sc:312:9632 */ /* x14387 QobiScheme.sc:312:9628 */ t87474.tag = NATIVE_PROCEDURE_TYPE493; /* MOVE: branching squeezed to general */ if (t87473>=((struct structure_type24753 *)VALUE_OFFSET)) {t87475.tag = STRUCTURE_TYPE24753; t87475.value.structure_type24753 = t87473;} else t87475.tag = (unsigned)t87473; t87476 = (struct structure_type24753 *)NULL_TYPE; t87470 = f27731(t87474, t87475, t87476); /* x14383 QobiScheme.sc:312:9613 */ a14701 = t87469; a14702 = t87470; goto h1045; l16639: goto l16636; l16635: /* x14405 */ r1042.tag = FALSE_TYPE; l16636: while ((sfp1045<(&((region1045->data)[0])))||(sfp1045>(&((region1045->data)[region_size1045])))) {struct region1045 *region; region = region1045; region_size1045 = region1045->region_size; region1045 = region1045->region; GC_free(region);} fp1045 = sfp1045; return r1042;} /* REDUCE-VECTOR[1019] */ struct w49 f1019(unsigned a14671, struct headed_vector_type27896 *a14672, unsigned a14673) {struct w49 r1019; int a14674; /* N */ int a14677; /* I */ struct w49 a14678; /* C */ int t88391; int t88392; int t88393; int t88394; int t88395; struct w49 t88396; int t88397; int t88398; int t88399; struct w49 t88400; int t88401; int t88402; unsigned t88403; struct w49 t88404; struct w49 t88405; struct structure_type24753 *t88406; struct w30215 t88407; struct w49 t88408; struct headed_vector_type27896 *t88409; int t88410; struct headed_vector_type27896 *t88411; int t88412; struct headed_vector_type27896 *t88413; int t88414; struct headed_vector_type27896 *t88415; /* x14273 QobiScheme.sc:290:8943 */ /* x14272 QobiScheme.sc:290:8952 */ /* x14271 QobiScheme.sc:290:8967 */ t88415 = a14672; /* x270967 QobiScheme.sc:290:8953 */ t88391 = t88415->length; /* x14269 */ a14674 = t88391; /* x14268 QobiScheme.sc:291:8974 */ /* x14217 QobiScheme.sc:291:8981 */ /* x14216 QobiScheme.sc:291:8988 */ t88392 = a14674; /* x270974 QobiScheme.sc:291:8982 */ if (!(t88392==0)) goto l17027; /* x14220 */ /* x14219 */ /* x14218 QobiScheme.sc:291:8991 */ /* MOVE: dispatching squished to general */ if (a14673==NULL_TYPE) {r1019.tag = (unsigned)a14673; return r1019;} r1019.tag = FIXNUM_TYPE; r1019.value.fixnum_type = (int)(((int)a14673)>>1); return r1019; l17027: /* x14267 */ /* x14224 QobiScheme.sc:292:8996 */ /* x14222 QobiScheme.sc:292:8999 */ t88393 = a14674; /* x14223 QobiScheme.sc:292:9001 */ t88394 = 1; /* x270973 QobiScheme.sc:292:8997 */ if (!(t88393==t88394)) goto l17029; /* x14230 */ /* x14229 */ /* x14228 QobiScheme.sc:292:9004 */ /* x14226 QobiScheme.sc:292:9016 */ t88413 = a14672; /* x14227 QobiScheme.sc:292:9018 */ t88414 = 0; /* x270972 QobiScheme.sc:292:9005 */ if ((t88414<0)||(t88414>=(t88413->length))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 292, 9004); vector_ref3_error();} return (t88413->element)[t88414]; l17029: /* x14266 */ /* x14265 */ /* x14264 QobiScheme.sc:293:9029 */ /* x14259 QobiScheme.sc:293:9043 */ t88395 = 1; /* x14263 QobiScheme.sc:293:9049 */ /* x14261 QobiScheme.sc:293:9061 */ t88411 = a14672; /* x14262 QobiScheme.sc:293:9063 */ t88412 = 0; /* x270968 QobiScheme.sc:293:9050 */ if ((t88412<0)||(t88412>=(t88411->length))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 293, 9049); vector_ref3_error();} t88396 = (t88411->element)[t88412]; /* x14258 */ /* x14257 */ /* x14256 */ /* x14255 */ /* x14254 */ /* x14253 */ /* x14252 */ /* x14232 */ /* x14231 QobiScheme.sc:293:9034 */ a14677 = t88395; a14678 = t88396; h1026: /* x14251 QobiScheme.sc:294:9076 */ /* x14236 QobiScheme.sc:294:9080 */ /* x14234 QobiScheme.sc:294:9083 */ t88397 = a14677; /* x14235 QobiScheme.sc:294:9085 */ t88398 = a14674; /* x270971 QobiScheme.sc:294:9081 */ if (!(t88397==t88398)) goto l17031; /* x14237 QobiScheme.sc:294:9088 */ return a14678; l17031: /* x14250 QobiScheme.sc:294:9090 */ /* x14242 QobiScheme.sc:294:9096 */ /* x14240 QobiScheme.sc:294:9099 */ t88401 = a14677; /* x14241 QobiScheme.sc:294:9101 */ t88402 = 1; /* x270970 QobiScheme.sc:294:9097 */ t88399 = t88401+t88402; /* x14249 QobiScheme.sc:294:9104 */ /* x14244 QobiScheme.sc:294:9107 */ t88404 = a14678; /* x14248 QobiScheme.sc:294:9109 */ /* x14246 QobiScheme.sc:294:9121 */ t88409 = a14672; /* x14247 QobiScheme.sc:294:9123 */ t88410 = a14677; /* x270969 QobiScheme.sc:294:9110 */ if ((t88410<0)||(t88410>=(t88409->length))) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 294, 9109); vector_ref3_error();} t88405 = (t88409->element)[t88410]; /* x14243 QobiScheme.sc:294:9105 */ t88403 = a14671; if (t88403==NATIVE_PROCEDURE_TYPE414) {t88408.tag = STRUCTURE_TYPE24753; t88408.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t88408.value.structure_type24753)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 294, 9104); out_of_memory_error();} t88408.value.structure_type24753->s0 = t88405; t88408.value.structure_type24753->s1.tag = NULL_TYPE; t88406 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t88406==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 294, 9104); out_of_memory_error();} t88406->s0 = t88404; t88406->s1 = t88408; t88407 = f27250(t88406); t88400 = *((struct w49 *)(&t88407));} else t88400 = f1390(t88404, t88405); /* x14238 QobiScheme.sc:294:9091 */ a14677 = t88399; a14678 = t88400; goto h1026;} /* REDUCE[1006] */ struct w49 f1006(unsigned a14657, struct w49 a14658, struct w228463 a14659) {struct w49 a14662; /* L */ struct w49 a14663; /* C */ struct w49 a33378; /* S1 */ struct w49 a33379; /* S2 */ struct w49 a33633; /* X */ struct structure_type24753 *a33634; /* XS */ struct w49 a33637; /* XS */ struct w30215 a33638; /* R */ struct w49 a33639; /* X */ struct structure_type24753 *a33640; /* XS */ struct w49 a33643; /* XS */ struct w30215 a33644; /* R */ struct w16638 a35610; /* PAIR */ struct w16638 a35611; /* PAIR */ struct w16638 a35612; /* PAIR */ struct w16638 a36198; /* PAIR */ struct w16638 a36199; /* PAIR */ struct w16638 a36200; /* PAIR */ struct w49 t88416; struct w49 t88417; struct w16638 t88418; struct w16638 t88419; struct w49 t88420; struct w49 t88421; struct w49 t88422; struct w49 t88423; struct w49 t88424; struct w16638 t88425; struct w16638 t88426; unsigned t88427; struct w49 t88428; struct w49 t88429; struct structure_type24753 *t88430; char *t88431; struct w49 t88432; struct structure_type24753 *t88433; struct w30215 t88434; struct w49 t88435; struct structure_type24753 *t88436; struct w49 t88437; struct w30215 t88438; struct w49 t88439; struct w49 t88440; struct w30215 t88441; struct w16638 t88442; struct w30215 t88443; struct w49 t88444; struct w16638 t88445; struct structure_type24753 *t88446; struct w49 t88447; struct w49 t88448; struct structure_type24753 *t88449; struct structure_type24753 *t88450; struct w49 t88451; struct w30215 t88452; struct w49 t88453; struct w49 t88454; struct w30215 t88455; struct w16638 t88456; struct w30215 t88457; struct w49 t88458; struct w16638 t88459; struct structure_type24753 *t88460; struct w49 t88461; struct w49 t88462; struct structure_type24753 *t88463; struct structure_type24753 *t88464; struct w49 t88465; struct w49 t88466; char *t88467; struct w49 t88468; struct structure_type24753 *t88469; char *t88470; struct w49 t88471; struct w49 t88472; struct w16638 t88473; struct w16638 t88474; struct w16638 t88475; struct w16638 t88476; struct w16638 t88477; struct w16638 t88478; struct w16638 t88479; struct w16638 t88480; /* x14182 QobiScheme.sc:281:8651 */ /* x14133 QobiScheme.sc:281:8658 */ /* x14132 QobiScheme.sc:281:8665 */ t88416 = a14658; /* x270977 QobiScheme.sc:281:8659 */ if (!((t88416.tag)==NULL_TYPE)) goto l17033; /* x14136 */ /* x14135 */ /* x14134 QobiScheme.sc:281:8668 */ return *((struct w49 *)(&a14659)); l17033: /* x14181 */ /* x14141 QobiScheme.sc:282:8679 */ /* x14140 QobiScheme.sc:282:8686 */ /* x14139 QobiScheme.sc:282:8692 */ t88418 = *((struct w16638 *)(&a14658)); /* x14138 QobiScheme.sc:282:8687 */ a35612 = t88418; /* x273805 */ /* x273804 */ t88419 = a35612; /* x273803 */ if (!((t88419.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29761]"); structure_ref_error();} t88417 = t88419.value.structure_type24753->s1; /* x270976 QobiScheme.sc:282:8680 */ if (!((t88417.tag)==NULL_TYPE)) goto l17035; /* x14146 */ /* x14145 */ /* x14144 QobiScheme.sc:282:8696 */ /* x14143 QobiScheme.sc:282:8703 */ t88479 = *((struct w16638 *)(&a14658)); /* x14142 QobiScheme.sc:282:8697 */ a36198 = t88479; /* x276149 */ /* x276148 */ t88480 = a36198; /* x276147 */ if ((t88480.tag)==STRUCTURE_TYPE24753) return t88480.value.structure_type24753->s0; backtrace_internal("[clone CAR[26176] 30347]"); structure_ref_error(); l17035: /* x14180 */ /* x14179 */ /* x14178 QobiScheme.sc:283:8720 */ /* x14174 QobiScheme.sc:283:8734 */ /* x14173 QobiScheme.sc:283:8740 */ t88475 = *((struct w16638 *)(&a14658)); /* x14172 QobiScheme.sc:283:8735 */ a35611 = t88475; /* x273801 */ /* x273800 */ t88476 = a35611; /* x273799 */ if (!((t88476.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29760]"); structure_ref_error();} t88420 = t88476.value.structure_type24753->s1; /* x14177 QobiScheme.sc:283:8747 */ /* x14176 QobiScheme.sc:283:8754 */ t88477 = *((struct w16638 *)(&a14658)); /* x14175 QobiScheme.sc:283:8748 */ a36200 = t88477; /* x276157 */ /* x276156 */ t88478 = a36200; /* x276155 */ if (!((t88478.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30349]"); structure_ref_error();} t88421 = t88478.value.structure_type24753->s0; /* x14171 */ /* x14170 */ /* x14169 */ /* x14168 */ /* x14167 */ /* x14166 */ /* x14165 */ /* x14148 */ /* x14147 QobiScheme.sc:283:8725 */ a14662 = t88420; a14663 = t88421; h1012: /* x14164 QobiScheme.sc:284:8766 */ /* x14151 QobiScheme.sc:284:8770 */ /* x14150 QobiScheme.sc:284:8777 */ t88422 = a14662; /* x270975 QobiScheme.sc:284:8771 */ if (!((t88422.tag)==NULL_TYPE)) goto l17037; /* x14152 QobiScheme.sc:284:8780 */ return a14663; l17037: /* x14163 QobiScheme.sc:284:8782 */ /* x14156 QobiScheme.sc:284:8788 */ /* x14155 QobiScheme.sc:284:8794 */ t88425 = *((struct w16638 *)(&a14662)); /* x14154 QobiScheme.sc:284:8789 */ a35610 = t88425; /* x273797 */ /* x273796 */ t88426 = a35610; /* x273795 */ if (!((t88426.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29759]"); structure_ref_error();} t88423 = t88426.value.structure_type24753->s1; /* x14162 QobiScheme.sc:284:8797 */ /* x14158 QobiScheme.sc:284:8800 */ t88428 = a14663; /* x14161 QobiScheme.sc:284:8802 */ /* x14160 QobiScheme.sc:284:8809 */ t88473 = *((struct w16638 *)(&a14662)); /* x14159 QobiScheme.sc:284:8803 */ a36199 = t88473; /* x276153 */ /* x276152 */ t88474 = a36199; /* x276151 */ if (!((t88474.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30348]"); structure_ref_error();} t88429 = t88474.value.structure_type24753->s0; /* x14157 QobiScheme.sc:284:8798 */ t88427 = a14657; switch (t88427) {case NATIVE_PROCEDURE_TYPE329: t88432.tag = STRUCTURE_TYPE24753; t88432.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t88432.value.structure_type24753)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 284, 8797); out_of_memory_error();} t88432.value.structure_type24753->s0 = t88429; t88432.value.structure_type24753->s1.tag = NULL_TYPE; t88430 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t88430==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 284, 8797); out_of_memory_error();} t88430->s0 = t88428; t88430->s1 = t88432; t88431 = f27556(t88430); t88424.tag = STRING_TYPE; t88424.value.string_type = t88431; break; case NATIVE_PROCEDURE_TYPE414: t88435.tag = STRUCTURE_TYPE24753; t88435.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t88435.value.structure_type24753)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 284, 8797); out_of_memory_error();} t88435.value.structure_type24753->s0 = t88429; t88435.value.structure_type24753->s1.tag = NULL_TYPE; t88433 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t88433==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 284, 8797); out_of_memory_error();} t88433->s0 = t88428; t88433->s1 = t88435; t88434 = f27250(t88433); t88424 = *((struct w49 *)(&t88434)); break; case NATIVE_PROCEDURE_TYPE415: a33639 = t88428; a33640 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a33640==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 284, 8797); out_of_memory_error();} a33640->s0 = t88429; a33640->s1.tag = NULL_TYPE; /* x251828 */ /* x251789 */ /* x251788 */ t88436 = a33640; /* x267151 */ /* x251827 */ /* x251820 */ /* x251819 */ t88446 = a33640; /* x267147 */ t88437 = t88446->s1; /* x251826 */ /* x251822 */ t88447 = a33639; /* x251825 */ /* x251824 */ t88449 = a33640; /* x267146 */ t88448 = t88449->s0; /* x251821 */ switch (t88447.tag) {case FIXNUM_TYPE: switch (t88448.tag) {case FIXNUM_TYPE: t88438.tag = FIXNUM_TYPE; t88438.value.fixnum_type = IMIN((t88447.value.fixnum_type), (t88448.value.fixnum_type)); break; case FLONUM_TYPE: t88438.tag = FLONUM_TYPE; t88438.value.flonum_type = RMIN((t88447.value.fixnum_type), (t88448.value.flonum_type)); break; default: backtrace_internal("MIN[27245]"); min_error();} break; case FLONUM_TYPE: switch (t88448.tag) {case FIXNUM_TYPE: t88438.tag = FLONUM_TYPE; t88438.value.flonum_type = RMIN((t88447.value.flonum_type), (t88448.value.fixnum_type)); break; case FLONUM_TYPE: t88438.tag = FLONUM_TYPE; t88438.value.flonum_type = RMIN((t88447.value.flonum_type), (t88448.value.flonum_type)); break; default: backtrace_internal("MIN[27245]"); min_error();} break; default: backtrace_internal("MIN[27245]"); min_error();} /* x251817 */ /* x251816 */ /* x251815 */ /* x251814 */ /* x251813 */ /* x251812 */ /* x251811 */ /* x251794 */ /* x251793 */ a33643 = t88437; a33644 = t88438; h27248: /* x251810 */ /* x251797 */ /* x251796 */ t88439 = a33643; /* x267150 */ if (!((t88439.tag)==NULL_TYPE)) goto l17040; /* x251798 */ t88424 = *((struct w49 *)(&a33644)); goto l17041; l17040: /* x251809 */ /* x251802 */ /* x251801 */ t88442 = *((struct w16638 *)(&a33643)); /* x267149 */ if (!((t88442.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27248]"); structure_ref_error();} t88440 = t88442.value.structure_type24753->s1; /* x251808 */ /* x251804 */ t88443 = a33644; /* x251807 */ /* x251806 */ t88445 = *((struct w16638 *)(&a33643)); /* x267148 */ if (!((t88445.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27248]"); structure_ref_error();} t88444 = t88445.value.structure_type24753->s0; /* x251803 */ if ((t88443.tag)==FIXNUM_TYPE) {switch (t88444.tag) {case FIXNUM_TYPE: t88441.tag = FIXNUM_TYPE; t88441.value.fixnum_type = IMIN((t88443.value.fixnum_type), (t88444.value.fixnum_type)); break; case FLONUM_TYPE: t88441.tag = FLONUM_TYPE; t88441.value.flonum_type = RMIN((t88443.value.fixnum_type), (t88444.value.flonum_type)); break; default: backtrace_internal("LOOP[27248]"); min_error();}} else switch (t88444.tag) {case FIXNUM_TYPE: t88441.tag = FLONUM_TYPE; t88441.value.flonum_type = RMIN((t88443.value.flonum_type), (t88444.value.fixnum_type)); break; case FLONUM_TYPE: t88441.tag = FLONUM_TYPE; t88441.value.flonum_type = RMIN((t88443.value.flonum_type), (t88444.value.flonum_type)); break; default: backtrace_internal("LOOP[27248]"); min_error();} /* x251799 */ a33643 = t88440; a33644 = t88441; goto h27248; l17041: break; case NATIVE_PROCEDURE_TYPE416: a33633 = t88428; a33634 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a33634==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 284, 8797); out_of_memory_error();} a33634->s0 = t88429; a33634->s1.tag = NULL_TYPE; /* x251784 */ /* x251745 */ /* x251744 */ t88450 = a33634; /* x267157 */ /* x251783 */ /* x251776 */ /* x251775 */ t88460 = a33634; /* x267153 */ t88451 = t88460->s1; /* x251782 */ /* x251778 */ t88461 = a33633; /* x251781 */ /* x251780 */ t88463 = a33634; /* x267152 */ t88462 = t88463->s0; /* x251777 */ switch (t88461.tag) {case FIXNUM_TYPE: switch (t88462.tag) {case FIXNUM_TYPE: t88452.tag = FIXNUM_TYPE; t88452.value.fixnum_type = IMAX((t88461.value.fixnum_type), (t88462.value.fixnum_type)); break; case FLONUM_TYPE: t88452.tag = FLONUM_TYPE; t88452.value.flonum_type = RMAX((t88461.value.fixnum_type), (t88462.value.flonum_type)); break; default: backtrace_internal("MAX[27240]"); max_error();} break; case FLONUM_TYPE: switch (t88462.tag) {case FIXNUM_TYPE: t88452.tag = FLONUM_TYPE; t88452.value.flonum_type = RMAX((t88461.value.flonum_type), (t88462.value.fixnum_type)); break; case FLONUM_TYPE: t88452.tag = FLONUM_TYPE; t88452.value.flonum_type = RMAX((t88461.value.flonum_type), (t88462.value.flonum_type)); break; default: backtrace_internal("MAX[27240]"); max_error();} break; default: backtrace_internal("MAX[27240]"); max_error();} /* x251773 */ /* x251772 */ /* x251771 */ /* x251770 */ /* x251769 */ /* x251768 */ /* x251767 */ /* x251750 */ /* x251749 */ a33637 = t88451; a33638 = t88452; h27243: /* x251766 */ /* x251753 */ /* x251752 */ t88453 = a33637; /* x267156 */ if (!((t88453.tag)==NULL_TYPE)) goto l17044; /* x251754 */ t88424 = *((struct w49 *)(&a33638)); goto l17045; l17044: /* x251765 */ /* x251758 */ /* x251757 */ t88456 = *((struct w16638 *)(&a33637)); /* x267155 */ if (!((t88456.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27243]"); structure_ref_error();} t88454 = t88456.value.structure_type24753->s1; /* x251764 */ /* x251760 */ t88457 = a33638; /* x251763 */ /* x251762 */ t88459 = *((struct w16638 *)(&a33637)); /* x267154 */ if (!((t88459.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("LOOP[27243]"); structure_ref_error();} t88458 = t88459.value.structure_type24753->s0; /* x251759 */ if ((t88457.tag)==FIXNUM_TYPE) {switch (t88458.tag) {case FIXNUM_TYPE: t88455.tag = FIXNUM_TYPE; t88455.value.fixnum_type = IMAX((t88457.value.fixnum_type), (t88458.value.fixnum_type)); break; case FLONUM_TYPE: t88455.tag = FLONUM_TYPE; t88455.value.flonum_type = RMAX((t88457.value.fixnum_type), (t88458.value.flonum_type)); break; default: backtrace_internal("LOOP[27243]"); max_error();}} else switch (t88458.tag) {case FIXNUM_TYPE: t88455.tag = FLONUM_TYPE; t88455.value.flonum_type = RMAX((t88457.value.flonum_type), (t88458.value.fixnum_type)); break; case FLONUM_TYPE: t88455.tag = FLONUM_TYPE; t88455.value.flonum_type = RMAX((t88457.value.flonum_type), (t88458.value.flonum_type)); break; default: backtrace_internal("LOOP[27243]"); max_error();} /* x251755 */ a33637 = t88454; a33638 = t88455; goto h27243; l17045: break; case NATIVE_PROCEDURE_TYPE454: t88465.tag = STRUCTURE_TYPE24753; t88465.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t88465.value.structure_type24753)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 284, 8797); out_of_memory_error();} t88465.value.structure_type24753->s0 = t88429; t88465.value.structure_type24753->s1.tag = NULL_TYPE; t88464 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t88464==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 284, 8797); out_of_memory_error();} t88464->s0 = t88428; t88464->s1 = t88465; t88424 = f26254(t88464); break; case NATIVE_PROCEDURE_TYPE8055: t88424 = f1390(t88428, t88429); break; case NATIVE_PROCEDURE_TYPE14846: a33378 = t88428; a33379 = t88429; while (region19647!=((struct region19647 *)(&initial_region19647))) {struct region19647 *region; region = region19647; region19647 = region19647->region; GC_free(region);} region_size19647 = REGION_SIZE19647; fp19647 = &((region19647->data)[0]); ALIGN(fp19647); /* x229757 stalin.sc:32592:1126211 */ /* x229756 stalin.sc:32592:1126233 */ t88468 = a33379; /* x229755 stalin.sc:32592:1126229 */ t88467 = " "; /* x229754 stalin.sc:32592:1126226 */ t88466 = a33378; /* x229753 stalin.sc:32592:1126212 */ if ((fp19647+sizeof(struct structure_type24753))>(&((region19647->data)[region_size19647]))) {struct region19647 *region; unsigned region_size = REGION_SIZE19647; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region19647 *)GC_malloc_uncollectable(sizeof(struct region19647)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 32592, 1126211); out_of_memory_error();} region->region = region19647; region_size19647 = region_size; region19647 = region; fp19647 = &((region->data)[0]); ALIGN(fp19647);} t88472.tag = STRUCTURE_TYPE24753; t88472.value.structure_type24753 = (struct structure_type24753 *)fp19647; fp19647 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t88472.value.structure_type24753->s0 = t88468; t88472.value.structure_type24753->s1.tag = NULL_TYPE; if ((fp19647+sizeof(struct structure_type24753))>(&((region19647->data)[region_size19647]))) {struct region19647 *region; unsigned region_size = REGION_SIZE19647; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region19647 *)GC_malloc_uncollectable(sizeof(struct region19647)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 32592, 1126211); out_of_memory_error();} region->region = region19647; region_size19647 = region_size; region19647 = region; fp19647 = &((region->data)[0]); ALIGN(fp19647);} t88471.tag = STRUCTURE_TYPE24753; t88471.value.structure_type24753 = (struct structure_type24753 *)fp19647; fp19647 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t88471.value.structure_type24753->s0.tag = STRING_TYPE; t88471.value.structure_type24753->s0.value.string_type = t88467; t88471.value.structure_type24753->s1 = t88472; if ((fp19647+sizeof(struct structure_type24753))>(&((region19647->data)[region_size19647]))) {struct region19647 *region; unsigned region_size = REGION_SIZE19647; if (sizeof(struct structure_type24753)>region_size) region_size = sizeof(struct structure_type24753); region = (struct region19647 *)GC_malloc_uncollectable(sizeof(struct region19647)+(region_size-1)); if (region==NULL) {backtrace("stalin.sc", 32592, 1126211); out_of_memory_error();} region->region = region19647; region_size19647 = region_size; region19647 = region; fp19647 = &((region->data)[0]); ALIGN(fp19647);} t88469 = (struct structure_type24753 *)fp19647; fp19647 += sizeof(struct structure_type24753)+((4-(sizeof(struct structure_type24753)%4))&3); t88469->s0 = t88466; t88469->s1 = t88471; t88470 = f27556(t88469); t88424.tag = STRING_TYPE; t88424.value.string_type = t88470; break; case NATIVE_PROCEDURE_TYPE15134: t88424 = f14557(t88428, t88429); break; default: t88424 = f12328(t88428, t88429);} /* x14153 QobiScheme.sc:284:8783 */ a14662 = t88423; a14663 = t88424; goto h1012;} /* BUT-LAST[1005] */ struct w12224 f1005(struct w49 a14656) {struct w12224 a35614; /* PAIR */ struct w49 t88481; struct w12224 t88482; struct w12224 t88483; struct w49 t88484; /* x14128 QobiScheme.sc:272:8526 */ /* x14127 QobiScheme.sc:272:8535 */ /* x14126 QobiScheme.sc:272:8541 */ /* x14125 QobiScheme.sc:272:8550 */ t88484 = a14656; /* x14124 QobiScheme.sc:272:8542 */ t88482 = f26331(t88484); /* x14123 QobiScheme.sc:272:8536 */ a35614 = t88482; /* x273813 */ /* x273812 */ t88483 = a35614; /* x273811 */ if (!((t88483.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29763]"); structure_ref_error();} t88481 = t88483.value.structure_type24753->s1; /* x14122 QobiScheme.sc:272:8527 */ return f26331(t88481);} /* NUMBER->STRING-OF-LENGTH[976] */ char *f976(int a14619, int a14620) {char *a14621; /* STRING */ char *t88485; char *t88486; char *t88487; struct structure_type24753 *t88488; struct w49 t88489; int t88490; char t88491; char *t88492; int t88493; int t88494; char *t88495; int t88496; struct w49 t88497; /* x13814 QobiScheme.sc:193:6114 */ /* x13813 QobiScheme.sc:193:6128 */ /* x13812 QobiScheme.sc:193:6144 */ t88496 = a14619; /* x13811 QobiScheme.sc:193:6129 */ t88497.tag = FIXNUM_TYPE; t88497.value.fixnum_type = t88496; t88485 = f28396(t88497); /* x13810 */ a14621 = t88485; /* x13809 QobiScheme.sc:194:6156 */ /* x13808 QobiScheme.sc:195:6230 */ t88487 = a14621; /* x13807 QobiScheme.sc:194:6171 */ /* x13805 QobiScheme.sc:194:6184 */ /* x13801 QobiScheme.sc:194:6187 */ t88493 = a14620; /* x13804 QobiScheme.sc:194:6194 */ /* x13803 QobiScheme.sc:194:6209 */ t88495 = a14621; /* x270982 QobiScheme.sc:194:6195 */ t88494 = strlen(t88495); /* x270983 QobiScheme.sc:194:6185 */ t88490 = t88493-t88494; /* x13806 QobiScheme.sc:194:6218 */ t88491 = ' '; /* x270984 QobiScheme.sc:194:6172 */ t88486 = (char *)alloca((t88490+1)*sizeof(char)); if (t88486==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 194, 6171); out_of_memory_error();} t88486[t88490] = '\0'; for (t88492 = &(t88486[0]); t88492<(&(t88486[t88490])); t88492++) *t88492 = t88491; /* x13798 QobiScheme.sc:194:6157 */ t88489.tag = STRUCTURE_TYPE24753; t88489.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t88489.value.structure_type24753)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 194, 6156); out_of_memory_error();} t88489.value.structure_type24753->s0.tag = STRING_TYPE; t88489.value.structure_type24753->s0.value.string_type = t88487; t88489.value.structure_type24753->s1.tag = NULL_TYPE; t88488 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t88488==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 194, 6156); out_of_memory_error();} t88488->s0.tag = STRING_TYPE; t88488->s0.value.string_type = t88486; t88488->s1 = t88489; return f27556(t88488);} /* LAST[960] */ struct w49 f960(struct w49 a14603) {struct w49 a35603; /* PAIR */ struct w49 a35604; /* PAIR */ struct w49 a36194; /* PAIR */ struct w49 t88498; struct w49 t88499; struct w49 t88500; struct w49 t88501; struct w49 t88502; struct w49 t88503; struct w49 t88504; struct w49 t88505; h960: /* x13646 QobiScheme.sc:147:4995 */ /* x13637 QobiScheme.sc:147:4999 */ /* x13636 QobiScheme.sc:147:5006 */ /* x13635 QobiScheme.sc:147:5012 */ t88499 = a14603; /* x13634 QobiScheme.sc:147:5007 */ a35604 = t88499; /* x273773 */ /* x273772 */ t88500 = a35604; /* x273771 */ if (!((t88500.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29753]"); structure_ref_error();} t88498 = t88500.value.structure_type24753->s1; /* x270986 QobiScheme.sc:147:5000 */ if (!((t88498.tag)==NULL_TYPE)) goto l17047; /* x13640 QobiScheme.sc:147:5016 */ /* x13639 QobiScheme.sc:147:5023 */ t88504 = a14603; /* x13638 QobiScheme.sc:147:5017 */ a36194 = t88504; /* x276133 */ /* x276132 */ t88505 = a36194; /* x276131 */ if ((t88505.tag)==STRUCTURE_TYPE24753) return t88505.value.structure_type24753->s0; backtrace_internal("[clone CAR[26176] 30343]"); structure_ref_error(); l17047: /* x13645 QobiScheme.sc:147:5026 */ /* x13644 QobiScheme.sc:147:5032 */ /* x13643 QobiScheme.sc:147:5038 */ t88502 = a14603; /* x13642 QobiScheme.sc:147:5033 */ a35603 = t88502; /* x273769 */ /* x273768 */ t88503 = a35603; /* x273767 */ if (!((t88503.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29752]"); structure_ref_error();} t88501 = t88503.value.structure_type24753->s1; /* x13641 QobiScheme.sc:147:5027 */ a14603 = t88501; goto h960;} /* [inside DISPLAY-TO-RESULT 850] */ void f850(struct p731 *p850, struct w49 a14459) {struct w49 t88506; struct structure_type24753 *t88507; /* x5518 Scheme-to-C-compatibility.sc:277:9620 */ /* x5517 Scheme-to-C-compatibility.sc:277:9633 */ /* x5515 Scheme-to-C-compatibility.sc:277:9639 */ t88506 = a14459; /* x5516 Scheme-to-C-compatibility.sc:277:9641 */ t88507 = p850->a14327; /* x271101 Scheme-to-C-compatibility.sc:277:9634 */ p850->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p850->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 277, 9633); out_of_memory_error();} p850->a14327->s0 = t88506; /* MOVE: branching squeezed to general */ if (t88507>=((struct structure_type24753 *)VALUE_OFFSET)) {p850->a14327->s1.tag = STRUCTURE_TYPE24753; p850->a14327->s1.value.structure_type24753 = t88507;} else p850->a14327->s1.tag = (unsigned)t88507; return;} /* DISPLAY-TO-RESULT[841] */ void f841(struct p731 *p841, struct w49 a14455) {char *a14506; /* X */ int a14507; /* N */ int a14510; /* I */ int a14523; /* N */ int a14526; /* I */ struct w49 a14532; /* X */ int a14540; /* N */ int a14544; /* I */ struct w49 t88508; struct w16638 t88509; struct w32142 t88510; struct w32134 t88511; struct w32119 t88512; struct w32111 t88513; struct w32103 t88514; struct w32087 t88515; struct w32087 t88516; struct w32078 t88517; struct w32070 t88518; struct w32062 t88519; struct w31981 t88520; char *t88521; struct p731 *t88522; struct p731 *t88523; char t88524; struct structure_type24753 *t88525; char t88526; struct structure_type24753 *t88527; char t88528; struct structure_type24753 *t88529; struct p731 *t88530; int t88531; int t88532; struct p731 *t88533; struct p731 *t88534; struct p731 *t88535; int t88536; int t88537; int t88538; struct p731 *t88539; struct p731 *t88540; struct p731 *t88541; int t88542; int t88543; int t88544; char t88545; struct structure_type24753 *t88546; struct p731 *t88547; struct w49 t88548; struct w49 t88549; int t88550; struct p731 *t88551; struct p731 *t88552; struct p731 *t88553; struct w49 t88554; struct headed_vector_type27896 *t88555; int t88556; struct headed_vector_type27896 *t88557; struct p731 *t88558; struct p731 *t88559; char t88560; struct structure_type24753 *t88561; char t88562; struct structure_type24753 *t88563; struct p731 *t88564; struct structure_type24753 *t88565; struct w49 t88566; struct w49 t88567; struct w49 t88568; struct w49 t88569; struct p731 *t88570; struct p731 *t88571; struct p731 *t88572; struct w49 t88573; struct w49 t88574; struct p731 *t88575; struct w49 t88576; struct w49 t88577; char t88578; struct structure_type24753 *t88579; struct p731 *t88580; struct p731 *t88581; struct p731 *t88582; struct w49 t88583; struct w49 t88584; struct p731 *t88585; struct w49 t88586; struct w49 t88587; char t88588; struct structure_type24753 *t88589; struct p731 *t88590; struct p731 *t88591; struct w49 t88592; struct w49 t88593; struct p731 *t88594; struct p731 *t88595; struct p731 *t88596; struct p731 *t88597; int t88598; struct p731 *t88599; int t88600; int t88601; int t88602; struct p731 *t88603; struct p731 *t88604; struct p731 *t88605; int t88606; int t88607; int t88608; char t88609; struct structure_type24753 *t88610; struct w49 t88611; int t88612; struct p731 *t88613; struct p731 *t88614; char *t88615; struct p731 *t88616; struct p731 *t88617; char t88618; struct structure_type24753 *t88619; char t88620; struct structure_type24753 *t88621; char t88622; struct structure_type24753 *t88623; char t88624; struct structure_type24753 *t88625; char t88626; struct structure_type24753 *t88627; char t88628; struct structure_type24753 *t88629; char t88630; struct structure_type24753 *t88631; char t88632; struct structure_type24753 *t88633; char t88634; struct structure_type24753 *t88635; char t88636; struct structure_type24753 *t88637; char t88638; struct structure_type24753 *t88639; char t88640; struct structure_type24753 *t88641; struct p731 *t88642; struct p731 *t88643; char *t88644; struct p731 *t88645; int t88646; struct p731 *t88647; struct p731 *t88648; int t88649; int t88650; int t88651; struct p731 *t88652; struct p731 *t88653; struct p731 *t88654; int t88655; int t88656; int t88657; char t88658; struct structure_type24753 *t88659; char *t88660; int t88661; struct p731 *t88662; struct p731 *t88663; char *t88664; char *t88665; struct p731 *t88666; struct p731 *t88667; char t88668; struct structure_type24753 *t88669; char t88670; struct structure_type24753 *t88671; char t88672; struct structure_type24753 *t88673; char t88674; struct structure_type24753 *t88675; char t88676; struct structure_type24753 *t88677; char t88678; struct structure_type24753 *t88679; char t88680; struct structure_type24753 *t88681; char t88682; struct structure_type24753 *t88683; char t88684; struct structure_type24753 *t88685; char t88686; struct structure_type24753 *t88687; char t88688; struct structure_type24753 *t88689; char t88690; struct structure_type24753 *t88691; char t88692; struct structure_type24753 *t88693; struct p731 *t88694; struct p731 *t88695; char t88696; struct structure_type24753 *t88697; char t88698; struct structure_type24753 *t88699; char t88700; struct structure_type24753 *t88701; char t88702; struct structure_type24753 *t88703; char t88704; struct structure_type24753 *t88705; char t88706; struct structure_type24753 *t88707; char t88708; struct structure_type24753 *t88709; char t88710; struct structure_type24753 *t88711; char t88712; struct structure_type24753 *t88713; char t88714; struct structure_type24753 *t88715; char t88716; struct structure_type24753 *t88717; char t88718; struct structure_type24753 *t88719; char t88720; struct structure_type24753 *t88721; char t88722; struct structure_type24753 *t88723; struct p731 *t88724; struct p731 *t88725; char t88726; struct structure_type24753 *t88727; char t88728; struct structure_type24753 *t88729; char t88730; struct structure_type24753 *t88731; char t88732; struct structure_type24753 *t88733; char t88734; struct structure_type24753 *t88735; char t88736; struct structure_type24753 *t88737; char t88738; struct structure_type24753 *t88739; char t88740; struct structure_type24753 *t88741; char t88742; struct structure_type24753 *t88743; char t88744; struct structure_type24753 *t88745; char t88746; struct structure_type24753 *t88747; char t88748; struct structure_type24753 *t88749; char t88750; struct structure_type24753 *t88751; struct p731 *t88752; struct p731 *t88753; struct structure_type24753 *t88754; struct w36108 t88755; struct w49 t88756; struct structure_type24753 *t88757; char *t88758; struct w30215 t88759; struct w49 t88760; struct p731 *t88761; char t88762; struct structure_type24753 *t88763; struct p731 *t88764; struct p731 *t88765; char t88766; struct structure_type24753 *t88767; char t88768; struct structure_type24753 *t88769; struct p731 *t88770; struct p731 *t88771; char t88772; struct structure_type24753 *t88773; char t88774; struct structure_type24753 *t88775; struct p731 *t88776; struct p731 *t88777; char t88778; struct structure_type24753 *t88779; char t88780; struct structure_type24753 *t88781; struct p731 *p842; struct p731 *p843; struct p731 *p844; struct p731 *p845; struct p731 *p846; struct p731 *p847; struct p731 *p848; struct p731 *p849; struct p731 *p851; struct p731 *p852; struct p731 *p853; struct p731 *p854; struct p731 *p855; struct p731 *p856; struct p731 *p859; struct p731 *p860; struct p731 *p861; struct p731 *p862; struct p731 *p863; struct p731 *p864; struct p731 *p865; struct p731 *p866; struct p731 *p867; struct p731 *p870; struct p731 *p871; struct p731 *p872; struct p731 *p873; struct p731 *p874; struct p731 *p875; struct p731 *p876; struct p731 *p877; struct p731 *p878; struct p731 *p881; struct p731 *p882; struct p731 *p883; struct p731 *p884; struct p731 *p885; struct p731 *p886; struct p731 *p887; struct p731 *p888; struct p731 *p889; struct p731 *p890; struct p731 *p892; struct p731 *p893; struct p731 *p894; struct p731 *p896; struct p731 *p897; struct p731 *p898; struct p731 *p899; struct p731 *p900; struct p731 *p902; struct p731 *p903; /* x6157 Scheme-to-C-compatibility.sc:265:9254 */ /* x5450 Scheme-to-C-compatibility.sc:265:9261 */ /* x5449 Scheme-to-C-compatibility.sc:265:9268 */ t88508 = a14455; /* x271113 Scheme-to-C-compatibility.sc:265:9262 */ if (!((t88508.tag)==NULL_TYPE)) goto l17049; /* x5464 */ /* x5463 */ t88776 = p841; p842 = t88776; /* x5462 */ /* x5461 Scheme-to-C-compatibility.sc:266:9276 */ /* x5460 Scheme-to-C-compatibility.sc:266:9289 */ /* x5458 Scheme-to-C-compatibility.sc:266:9295 */ t88780 = '('; /* x5459 Scheme-to-C-compatibility.sc:266:9299 */ t88781 = p842->a14327; /* x271111 Scheme-to-C-compatibility.sc:266:9290 */ p842->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p842->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 266, 9289); out_of_memory_error();} p842->a14327->s0.tag = ((unsigned)((unsigned char)t88780))<<2; /* MOVE: branching squeezed to general */ if (t88781>=((struct structure_type24753 *)VALUE_OFFSET)) {p842->a14327->s1.tag = STRUCTURE_TYPE24753; p842->a14327->s1.value.structure_type24753 = t88781;} else p842->a14327->s1.tag = (unsigned)t88781; /* x5456 */ t88777 = p842; p843 = t88777; /* x5455 Scheme-to-C-compatibility.sc:267:9313 */ /* x5454 Scheme-to-C-compatibility.sc:267:9326 */ /* x5452 Scheme-to-C-compatibility.sc:267:9332 */ t88778 = ')'; /* x5453 Scheme-to-C-compatibility.sc:267:9336 */ t88779 = p843->a14327; /* x271112 Scheme-to-C-compatibility.sc:267:9327 */ p843->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p843->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 267, 9326); out_of_memory_error();} p843->a14327->s0.tag = ((unsigned)((unsigned char)t88778))<<2; /* MOVE: branching squeezed to general */ if (t88779>=((struct structure_type24753 *)VALUE_OFFSET)) {p843->a14327->s1.tag = STRUCTURE_TYPE24753; p843->a14327->s1.value.structure_type24753 = t88779;} else p843->a14327->s1.tag = (unsigned)t88779; return; l17049: /* x6156 */ /* x5468 Scheme-to-C-compatibility.sc:268:9351 */ /* x5466 Scheme-to-C-compatibility.sc:268:9356 */ t88509 = *((struct w16638 *)(&a14455)); /* x5467 Scheme-to-C-compatibility.sc:268:9358 */ /* x271110 Scheme-to-C-compatibility.sc:268:9352 */ if (!((t88509.tag)==TRUE_TYPE)) goto l17051; /* x5482 */ /* x5481 */ t88770 = p841; p844 = t88770; /* x5480 */ /* x5479 Scheme-to-C-compatibility.sc:269:9367 */ /* x5478 Scheme-to-C-compatibility.sc:269:9380 */ /* x5476 Scheme-to-C-compatibility.sc:269:9386 */ t88774 = '#'; /* x5477 Scheme-to-C-compatibility.sc:269:9390 */ t88775 = p844->a14327; /* x271108 Scheme-to-C-compatibility.sc:269:9381 */ p844->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p844->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 269, 9380); out_of_memory_error();} p844->a14327->s0.tag = ((unsigned)((unsigned char)t88774))<<2; /* MOVE: branching squeezed to general */ if (t88775>=((struct structure_type24753 *)VALUE_OFFSET)) {p844->a14327->s1.tag = STRUCTURE_TYPE24753; p844->a14327->s1.value.structure_type24753 = t88775;} else p844->a14327->s1.tag = (unsigned)t88775; /* x5474 */ t88771 = p844; p845 = t88771; /* x5473 Scheme-to-C-compatibility.sc:270:9404 */ /* x5472 Scheme-to-C-compatibility.sc:270:9417 */ /* x5470 Scheme-to-C-compatibility.sc:270:9423 */ t88772 = 'T'; /* x5471 Scheme-to-C-compatibility.sc:270:9427 */ t88773 = p845->a14327; /* x271109 Scheme-to-C-compatibility.sc:270:9418 */ p845->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p845->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 270, 9417); out_of_memory_error();} p845->a14327->s0.tag = ((unsigned)((unsigned char)t88772))<<2; /* MOVE: branching squeezed to general */ if (t88773>=((struct structure_type24753 *)VALUE_OFFSET)) {p845->a14327->s1.tag = STRUCTURE_TYPE24753; p845->a14327->s1.value.structure_type24753 = t88773;} else p845->a14327->s1.tag = (unsigned)t88773; return; l17051: /* x6155 */ /* x5485 Scheme-to-C-compatibility.sc:271:9442 */ /* x5484 Scheme-to-C-compatibility.sc:271:9447 */ if (!((a14455.tag)==FALSE_TYPE)) goto l17053; /* x5499 */ /* x5498 */ t88764 = p841; p846 = t88764; /* x5497 */ /* x5496 Scheme-to-C-compatibility.sc:272:9455 */ /* x5495 Scheme-to-C-compatibility.sc:272:9468 */ /* x5493 Scheme-to-C-compatibility.sc:272:9474 */ t88768 = '#'; /* x5494 Scheme-to-C-compatibility.sc:272:9478 */ t88769 = p846->a14327; /* x271105 Scheme-to-C-compatibility.sc:272:9469 */ p846->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p846->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 272, 9468); out_of_memory_error();} p846->a14327->s0.tag = ((unsigned)((unsigned char)t88768))<<2; /* MOVE: branching squeezed to general */ if (t88769>=((struct structure_type24753 *)VALUE_OFFSET)) {p846->a14327->s1.tag = STRUCTURE_TYPE24753; p846->a14327->s1.value.structure_type24753 = t88769;} else p846->a14327->s1.tag = (unsigned)t88769; /* x5491 */ t88765 = p846; p847 = t88765; /* x5490 Scheme-to-C-compatibility.sc:273:9492 */ /* x5489 Scheme-to-C-compatibility.sc:273:9505 */ /* x5487 Scheme-to-C-compatibility.sc:273:9511 */ t88766 = 'F'; /* x5488 Scheme-to-C-compatibility.sc:273:9515 */ t88767 = p847->a14327; /* x271106 Scheme-to-C-compatibility.sc:273:9506 */ p847->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p847->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 273, 9505); out_of_memory_error();} p847->a14327->s0.tag = ((unsigned)((unsigned char)t88766))<<2; /* MOVE: branching squeezed to general */ if (t88767>=((struct structure_type24753 *)VALUE_OFFSET)) {p847->a14327->s1.tag = STRUCTURE_TYPE24753; p847->a14327->s1.value.structure_type24753 = t88767;} else p847->a14327->s1.tag = (unsigned)t88767; return; l17053: /* x6154 */ /* x5502 Scheme-to-C-compatibility.sc:274:9530 */ /* x5501 Scheme-to-C-compatibility.sc:274:9537 */ t88510 = *((struct w32142 *)(&a14455)); /* x271104 Scheme-to-C-compatibility.sc:274:9531 */ if (!((t88510.tag)>2); /* x5505 Scheme-to-C-compatibility.sc:275:9566 */ t88763 = p848->a14327; /* x271103 Scheme-to-C-compatibility.sc:275:9559 */ p848->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p848->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 275, 9558); out_of_memory_error();} p848->a14327->s0.tag = ((unsigned)((unsigned char)t88762))<<2; /* MOVE: branching squeezed to general */ if (t88763>=((struct structure_type24753 *)VALUE_OFFSET)) {p848->a14327->s1.tag = STRUCTURE_TYPE24753; p848->a14327->s1.value.structure_type24753 = t88763;} else p848->a14327->s1.tag = (unsigned)t88763; return; l17055: /* x6153 */ /* x5512 Scheme-to-C-compatibility.sc:276:9581 */ /* x5511 Scheme-to-C-compatibility.sc:276:9590 */ t88511 = *((struct w32134 *)(&a14455)); /* x271102 Scheme-to-C-compatibility.sc:276:9582 */ switch (t88511.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: break; default: goto l17057;} /* x5527 */ /* x5526 */ t88752 = p841; p849 = t88752; /* x5525 Scheme-to-C-compatibility.sc:277:9598 */ /* x5524 Scheme-to-C-compatibility.sc:278:9659 */ /* x5523 Scheme-to-C-compatibility.sc:278:9673 */ /* x5522 Scheme-to-C-compatibility.sc:278:9689 */ t88759 = *((struct w30215 *)(&a14455)); /* x5521 Scheme-to-C-compatibility.sc:278:9674 */ t88760 = *((struct w49 *)(&t88759)); t88758 = f28396(t88760); /* x5520 Scheme-to-C-compatibility.sc:278:9660 */ a34032.tag = STRING_TYPE; a34032.value.string_type = t88758; t88754 = f27579(); /* x5519 Scheme-to-C-compatibility.sc:277:9608 */ t88753 = p849; /* x5513 Scheme-to-C-compatibility.sc:277:9599 */ t88755.tag = NATIVE_PROCEDURE_TYPE11291; t88755.value.native_procedure_type11291 = t88753; /* MOVE: branching squeezed to general */ if (t88754>=((struct structure_type24753 *)VALUE_OFFSET)) {t88756.tag = STRUCTURE_TYPE24753; t88756.value.structure_type24753 = t88754;} else t88756.tag = (unsigned)t88754; t88757 = (struct structure_type24753 *)NULL_TYPE; f27755(t88755, t88756, t88757); return; l17057: /* x6152 */ /* x5530 Scheme-to-C-compatibility.sc:279:9700 */ /* x5529 Scheme-to-C-compatibility.sc:279:9713 */ t88512 = *((struct w32119 *)(&a14455)); /* x271100 Scheme-to-C-compatibility.sc:279:9701 */ if (!((t88512.tag)==INPUT_PORT_TYPE)) goto l17059; /* x5599 */ /* x5598 */ t88724 = p841; p851 = t88724; /* x5597 */ /* x5541 Scheme-to-C-compatibility.sc:280:9721 */ /* x5540 Scheme-to-C-compatibility.sc:280:9734 */ /* x5538 Scheme-to-C-compatibility.sc:280:9740 */ t88728 = '#'; /* x5539 Scheme-to-C-compatibility.sc:280:9744 */ t88729 = p851->a14327; /* x271098 Scheme-to-C-compatibility.sc:280:9735 */ p851->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p851->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 280, 9734); out_of_memory_error();} p851->a14327->s0.tag = ((unsigned)((unsigned char)t88728))<<2; /* MOVE: branching squeezed to general */ if (t88729>=((struct structure_type24753 *)VALUE_OFFSET)) {p851->a14327->s1.tag = STRUCTURE_TYPE24753; p851->a14327->s1.value.structure_type24753 = t88729;} else p851->a14327->s1.tag = (unsigned)t88729; /* x5546 Scheme-to-C-compatibility.sc:281:9758 */ /* x5545 Scheme-to-C-compatibility.sc:281:9771 */ /* x5543 Scheme-to-C-compatibility.sc:281:9777 */ t88730 = '*'; /* x5544 Scheme-to-C-compatibility.sc:281:9781 */ t88731 = p851->a14327; /* x271097 Scheme-to-C-compatibility.sc:281:9772 */ p851->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p851->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 281, 9771); out_of_memory_error();} p851->a14327->s0.tag = ((unsigned)((unsigned char)t88730))<<2; /* MOVE: branching squeezed to general */ if (t88731>=((struct structure_type24753 *)VALUE_OFFSET)) {p851->a14327->s1.tag = STRUCTURE_TYPE24753; p851->a14327->s1.value.structure_type24753 = t88731;} else p851->a14327->s1.tag = (unsigned)t88731; /* x5551 Scheme-to-C-compatibility.sc:282:9795 */ /* x5550 Scheme-to-C-compatibility.sc:282:9808 */ /* x5548 Scheme-to-C-compatibility.sc:282:9814 */ t88732 = 'I'; /* x5549 Scheme-to-C-compatibility.sc:282:9818 */ t88733 = p851->a14327; /* x271096 Scheme-to-C-compatibility.sc:282:9809 */ p851->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p851->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 282, 9808); out_of_memory_error();} p851->a14327->s0.tag = ((unsigned)((unsigned char)t88732))<<2; /* MOVE: branching squeezed to general */ if (t88733>=((struct structure_type24753 *)VALUE_OFFSET)) {p851->a14327->s1.tag = STRUCTURE_TYPE24753; p851->a14327->s1.value.structure_type24753 = t88733;} else p851->a14327->s1.tag = (unsigned)t88733; /* x5556 Scheme-to-C-compatibility.sc:283:9832 */ /* x5555 Scheme-to-C-compatibility.sc:283:9845 */ /* x5553 Scheme-to-C-compatibility.sc:283:9851 */ t88734 = 'N'; /* x5554 Scheme-to-C-compatibility.sc:283:9855 */ t88735 = p851->a14327; /* x271095 Scheme-to-C-compatibility.sc:283:9846 */ p851->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p851->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 283, 9845); out_of_memory_error();} p851->a14327->s0.tag = ((unsigned)((unsigned char)t88734))<<2; /* MOVE: branching squeezed to general */ if (t88735>=((struct structure_type24753 *)VALUE_OFFSET)) {p851->a14327->s1.tag = STRUCTURE_TYPE24753; p851->a14327->s1.value.structure_type24753 = t88735;} else p851->a14327->s1.tag = (unsigned)t88735; /* x5561 Scheme-to-C-compatibility.sc:284:9869 */ /* x5560 Scheme-to-C-compatibility.sc:284:9882 */ /* x5558 Scheme-to-C-compatibility.sc:284:9888 */ t88736 = 'P'; /* x5559 Scheme-to-C-compatibility.sc:284:9892 */ t88737 = p851->a14327; /* x271094 Scheme-to-C-compatibility.sc:284:9883 */ p851->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p851->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 284, 9882); out_of_memory_error();} p851->a14327->s0.tag = ((unsigned)((unsigned char)t88736))<<2; /* MOVE: branching squeezed to general */ if (t88737>=((struct structure_type24753 *)VALUE_OFFSET)) {p851->a14327->s1.tag = STRUCTURE_TYPE24753; p851->a14327->s1.value.structure_type24753 = t88737;} else p851->a14327->s1.tag = (unsigned)t88737; /* x5566 Scheme-to-C-compatibility.sc:285:9906 */ /* x5565 Scheme-to-C-compatibility.sc:285:9919 */ /* x5563 Scheme-to-C-compatibility.sc:285:9925 */ t88738 = 'U'; /* x5564 Scheme-to-C-compatibility.sc:285:9929 */ t88739 = p851->a14327; /* x271093 Scheme-to-C-compatibility.sc:285:9920 */ p851->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p851->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 285, 9919); out_of_memory_error();} p851->a14327->s0.tag = ((unsigned)((unsigned char)t88738))<<2; /* MOVE: branching squeezed to general */ if (t88739>=((struct structure_type24753 *)VALUE_OFFSET)) {p851->a14327->s1.tag = STRUCTURE_TYPE24753; p851->a14327->s1.value.structure_type24753 = t88739;} else p851->a14327->s1.tag = (unsigned)t88739; /* x5571 Scheme-to-C-compatibility.sc:286:9943 */ /* x5570 Scheme-to-C-compatibility.sc:286:9956 */ /* x5568 Scheme-to-C-compatibility.sc:286:9962 */ t88740 = 'T'; /* x5569 Scheme-to-C-compatibility.sc:286:9966 */ t88741 = p851->a14327; /* x271092 Scheme-to-C-compatibility.sc:286:9957 */ p851->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p851->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 286, 9956); out_of_memory_error();} p851->a14327->s0.tag = ((unsigned)((unsigned char)t88740))<<2; /* MOVE: branching squeezed to general */ if (t88741>=((struct structure_type24753 *)VALUE_OFFSET)) {p851->a14327->s1.tag = STRUCTURE_TYPE24753; p851->a14327->s1.value.structure_type24753 = t88741;} else p851->a14327->s1.tag = (unsigned)t88741; /* x5576 Scheme-to-C-compatibility.sc:287:9980 */ /* x5575 Scheme-to-C-compatibility.sc:287:9993 */ /* x5573 Scheme-to-C-compatibility.sc:287:9999 */ t88742 = '-'; /* x5574 Scheme-to-C-compatibility.sc:287:10003 */ t88743 = p851->a14327; /* x271091 Scheme-to-C-compatibility.sc:287:9994 */ p851->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p851->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 287, 9993); out_of_memory_error();} p851->a14327->s0.tag = ((unsigned)((unsigned char)t88742))<<2; /* MOVE: branching squeezed to general */ if (t88743>=((struct structure_type24753 *)VALUE_OFFSET)) {p851->a14327->s1.tag = STRUCTURE_TYPE24753; p851->a14327->s1.value.structure_type24753 = t88743;} else p851->a14327->s1.tag = (unsigned)t88743; /* x5581 Scheme-to-C-compatibility.sc:288:10017 */ /* x5580 Scheme-to-C-compatibility.sc:288:10030 */ /* x5578 Scheme-to-C-compatibility.sc:288:10036 */ t88744 = 'P'; /* x5579 Scheme-to-C-compatibility.sc:288:10040 */ t88745 = p851->a14327; /* x271090 Scheme-to-C-compatibility.sc:288:10031 */ p851->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p851->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 288, 10030); out_of_memory_error();} p851->a14327->s0.tag = ((unsigned)((unsigned char)t88744))<<2; /* MOVE: branching squeezed to general */ if (t88745>=((struct structure_type24753 *)VALUE_OFFSET)) {p851->a14327->s1.tag = STRUCTURE_TYPE24753; p851->a14327->s1.value.structure_type24753 = t88745;} else p851->a14327->s1.tag = (unsigned)t88745; /* x5586 Scheme-to-C-compatibility.sc:289:10054 */ /* x5585 Scheme-to-C-compatibility.sc:289:10067 */ /* x5583 Scheme-to-C-compatibility.sc:289:10073 */ t88746 = 'O'; /* x5584 Scheme-to-C-compatibility.sc:289:10077 */ t88747 = p851->a14327; /* x271089 Scheme-to-C-compatibility.sc:289:10068 */ p851->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p851->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 289, 10067); out_of_memory_error();} p851->a14327->s0.tag = ((unsigned)((unsigned char)t88746))<<2; /* MOVE: branching squeezed to general */ if (t88747>=((struct structure_type24753 *)VALUE_OFFSET)) {p851->a14327->s1.tag = STRUCTURE_TYPE24753; p851->a14327->s1.value.structure_type24753 = t88747;} else p851->a14327->s1.tag = (unsigned)t88747; /* x5591 Scheme-to-C-compatibility.sc:290:10091 */ /* x5590 Scheme-to-C-compatibility.sc:290:10104 */ /* x5588 Scheme-to-C-compatibility.sc:290:10110 */ t88748 = 'R'; /* x5589 Scheme-to-C-compatibility.sc:290:10114 */ t88749 = p851->a14327; /* x271088 Scheme-to-C-compatibility.sc:290:10105 */ p851->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p851->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 290, 10104); out_of_memory_error();} p851->a14327->s0.tag = ((unsigned)((unsigned char)t88748))<<2; /* MOVE: branching squeezed to general */ if (t88749>=((struct structure_type24753 *)VALUE_OFFSET)) {p851->a14327->s1.tag = STRUCTURE_TYPE24753; p851->a14327->s1.value.structure_type24753 = t88749;} else p851->a14327->s1.tag = (unsigned)t88749; /* x5596 Scheme-to-C-compatibility.sc:291:10128 */ /* x5595 Scheme-to-C-compatibility.sc:291:10141 */ /* x5593 Scheme-to-C-compatibility.sc:291:10147 */ t88750 = 'T'; /* x5594 Scheme-to-C-compatibility.sc:291:10151 */ t88751 = p851->a14327; /* x271087 Scheme-to-C-compatibility.sc:291:10142 */ p851->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p851->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 291, 10141); out_of_memory_error();} p851->a14327->s0.tag = ((unsigned)((unsigned char)t88750))<<2; /* MOVE: branching squeezed to general */ if (t88751>=((struct structure_type24753 *)VALUE_OFFSET)) {p851->a14327->s1.tag = STRUCTURE_TYPE24753; p851->a14327->s1.value.structure_type24753 = t88751;} else p851->a14327->s1.tag = (unsigned)t88751; /* x5536 */ t88725 = p851; p852 = t88725; /* x5535 Scheme-to-C-compatibility.sc:292:10165 */ /* x5534 Scheme-to-C-compatibility.sc:292:10178 */ /* x5532 Scheme-to-C-compatibility.sc:292:10184 */ t88726 = '*'; /* x5533 Scheme-to-C-compatibility.sc:292:10188 */ t88727 = p852->a14327; /* x271099 Scheme-to-C-compatibility.sc:292:10179 */ p852->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p852->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 292, 10178); out_of_memory_error();} p852->a14327->s0.tag = ((unsigned)((unsigned char)t88726))<<2; /* MOVE: branching squeezed to general */ if (t88727>=((struct structure_type24753 *)VALUE_OFFSET)) {p852->a14327->s1.tag = STRUCTURE_TYPE24753; p852->a14327->s1.value.structure_type24753 = t88727;} else p852->a14327->s1.tag = (unsigned)t88727; return; l17059: /* x6151 */ /* x5602 Scheme-to-C-compatibility.sc:293:10203 */ /* x5601 Scheme-to-C-compatibility.sc:293:10217 */ t88513 = *((struct w32111 *)(&a14455)); /* x271086 Scheme-to-C-compatibility.sc:293:10204 */ if (!((t88513.tag)==OUTPUT_PORT_TYPE)) goto l17061; /* x5676 */ /* x5675 */ t88694 = p841; p853 = t88694; /* x5674 */ /* x5613 Scheme-to-C-compatibility.sc:294:10225 */ /* x5612 Scheme-to-C-compatibility.sc:294:10238 */ /* x5610 Scheme-to-C-compatibility.sc:294:10244 */ t88698 = '#'; /* x5611 Scheme-to-C-compatibility.sc:294:10248 */ t88699 = p853->a14327; /* x271084 Scheme-to-C-compatibility.sc:294:10239 */ p853->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p853->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 294, 10238); out_of_memory_error();} p853->a14327->s0.tag = ((unsigned)((unsigned char)t88698))<<2; /* MOVE: branching squeezed to general */ if (t88699>=((struct structure_type24753 *)VALUE_OFFSET)) {p853->a14327->s1.tag = STRUCTURE_TYPE24753; p853->a14327->s1.value.structure_type24753 = t88699;} else p853->a14327->s1.tag = (unsigned)t88699; /* x5618 Scheme-to-C-compatibility.sc:295:10262 */ /* x5617 Scheme-to-C-compatibility.sc:295:10275 */ /* x5615 Scheme-to-C-compatibility.sc:295:10281 */ t88700 = '*'; /* x5616 Scheme-to-C-compatibility.sc:295:10285 */ t88701 = p853->a14327; /* x271083 Scheme-to-C-compatibility.sc:295:10276 */ p853->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p853->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 295, 10275); out_of_memory_error();} p853->a14327->s0.tag = ((unsigned)((unsigned char)t88700))<<2; /* MOVE: branching squeezed to general */ if (t88701>=((struct structure_type24753 *)VALUE_OFFSET)) {p853->a14327->s1.tag = STRUCTURE_TYPE24753; p853->a14327->s1.value.structure_type24753 = t88701;} else p853->a14327->s1.tag = (unsigned)t88701; /* x5623 Scheme-to-C-compatibility.sc:296:10299 */ /* x5622 Scheme-to-C-compatibility.sc:296:10312 */ /* x5620 Scheme-to-C-compatibility.sc:296:10318 */ t88702 = 'O'; /* x5621 Scheme-to-C-compatibility.sc:296:10322 */ t88703 = p853->a14327; /* x271082 Scheme-to-C-compatibility.sc:296:10313 */ p853->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p853->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 296, 10312); out_of_memory_error();} p853->a14327->s0.tag = ((unsigned)((unsigned char)t88702))<<2; /* MOVE: branching squeezed to general */ if (t88703>=((struct structure_type24753 *)VALUE_OFFSET)) {p853->a14327->s1.tag = STRUCTURE_TYPE24753; p853->a14327->s1.value.structure_type24753 = t88703;} else p853->a14327->s1.tag = (unsigned)t88703; /* x5628 Scheme-to-C-compatibility.sc:297:10336 */ /* x5627 Scheme-to-C-compatibility.sc:297:10349 */ /* x5625 Scheme-to-C-compatibility.sc:297:10355 */ t88704 = 'U'; /* x5626 Scheme-to-C-compatibility.sc:297:10359 */ t88705 = p853->a14327; /* x271081 Scheme-to-C-compatibility.sc:297:10350 */ p853->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p853->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 297, 10349); out_of_memory_error();} p853->a14327->s0.tag = ((unsigned)((unsigned char)t88704))<<2; /* MOVE: branching squeezed to general */ if (t88705>=((struct structure_type24753 *)VALUE_OFFSET)) {p853->a14327->s1.tag = STRUCTURE_TYPE24753; p853->a14327->s1.value.structure_type24753 = t88705;} else p853->a14327->s1.tag = (unsigned)t88705; /* x5633 Scheme-to-C-compatibility.sc:298:10373 */ /* x5632 Scheme-to-C-compatibility.sc:298:10386 */ /* x5630 Scheme-to-C-compatibility.sc:298:10392 */ t88706 = 'T'; /* x5631 Scheme-to-C-compatibility.sc:298:10396 */ t88707 = p853->a14327; /* x271080 Scheme-to-C-compatibility.sc:298:10387 */ p853->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p853->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 298, 10386); out_of_memory_error();} p853->a14327->s0.tag = ((unsigned)((unsigned char)t88706))<<2; /* MOVE: branching squeezed to general */ if (t88707>=((struct structure_type24753 *)VALUE_OFFSET)) {p853->a14327->s1.tag = STRUCTURE_TYPE24753; p853->a14327->s1.value.structure_type24753 = t88707;} else p853->a14327->s1.tag = (unsigned)t88707; /* x5638 Scheme-to-C-compatibility.sc:299:10410 */ /* x5637 Scheme-to-C-compatibility.sc:299:10423 */ /* x5635 Scheme-to-C-compatibility.sc:299:10429 */ t88708 = 'P'; /* x5636 Scheme-to-C-compatibility.sc:299:10433 */ t88709 = p853->a14327; /* x271079 Scheme-to-C-compatibility.sc:299:10424 */ p853->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p853->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 299, 10423); out_of_memory_error();} p853->a14327->s0.tag = ((unsigned)((unsigned char)t88708))<<2; /* MOVE: branching squeezed to general */ if (t88709>=((struct structure_type24753 *)VALUE_OFFSET)) {p853->a14327->s1.tag = STRUCTURE_TYPE24753; p853->a14327->s1.value.structure_type24753 = t88709;} else p853->a14327->s1.tag = (unsigned)t88709; /* x5643 Scheme-to-C-compatibility.sc:300:10447 */ /* x5642 Scheme-to-C-compatibility.sc:300:10460 */ /* x5640 Scheme-to-C-compatibility.sc:300:10466 */ t88710 = 'U'; /* x5641 Scheme-to-C-compatibility.sc:300:10470 */ t88711 = p853->a14327; /* x271078 Scheme-to-C-compatibility.sc:300:10461 */ p853->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p853->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 300, 10460); out_of_memory_error();} p853->a14327->s0.tag = ((unsigned)((unsigned char)t88710))<<2; /* MOVE: branching squeezed to general */ if (t88711>=((struct structure_type24753 *)VALUE_OFFSET)) {p853->a14327->s1.tag = STRUCTURE_TYPE24753; p853->a14327->s1.value.structure_type24753 = t88711;} else p853->a14327->s1.tag = (unsigned)t88711; /* x5648 Scheme-to-C-compatibility.sc:301:10484 */ /* x5647 Scheme-to-C-compatibility.sc:301:10497 */ /* x5645 Scheme-to-C-compatibility.sc:301:10503 */ t88712 = 'T'; /* x5646 Scheme-to-C-compatibility.sc:301:10507 */ t88713 = p853->a14327; /* x271077 Scheme-to-C-compatibility.sc:301:10498 */ p853->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p853->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 301, 10497); out_of_memory_error();} p853->a14327->s0.tag = ((unsigned)((unsigned char)t88712))<<2; /* MOVE: branching squeezed to general */ if (t88713>=((struct structure_type24753 *)VALUE_OFFSET)) {p853->a14327->s1.tag = STRUCTURE_TYPE24753; p853->a14327->s1.value.structure_type24753 = t88713;} else p853->a14327->s1.tag = (unsigned)t88713; /* x5653 Scheme-to-C-compatibility.sc:302:10521 */ /* x5652 Scheme-to-C-compatibility.sc:302:10534 */ /* x5650 Scheme-to-C-compatibility.sc:302:10540 */ t88714 = '-'; /* x5651 Scheme-to-C-compatibility.sc:302:10544 */ t88715 = p853->a14327; /* x271076 Scheme-to-C-compatibility.sc:302:10535 */ p853->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p853->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 302, 10534); out_of_memory_error();} p853->a14327->s0.tag = ((unsigned)((unsigned char)t88714))<<2; /* MOVE: branching squeezed to general */ if (t88715>=((struct structure_type24753 *)VALUE_OFFSET)) {p853->a14327->s1.tag = STRUCTURE_TYPE24753; p853->a14327->s1.value.structure_type24753 = t88715;} else p853->a14327->s1.tag = (unsigned)t88715; /* x5658 Scheme-to-C-compatibility.sc:303:10558 */ /* x5657 Scheme-to-C-compatibility.sc:303:10571 */ /* x5655 Scheme-to-C-compatibility.sc:303:10577 */ t88716 = 'P'; /* x5656 Scheme-to-C-compatibility.sc:303:10581 */ t88717 = p853->a14327; /* x271075 Scheme-to-C-compatibility.sc:303:10572 */ p853->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p853->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 303, 10571); out_of_memory_error();} p853->a14327->s0.tag = ((unsigned)((unsigned char)t88716))<<2; /* MOVE: branching squeezed to general */ if (t88717>=((struct structure_type24753 *)VALUE_OFFSET)) {p853->a14327->s1.tag = STRUCTURE_TYPE24753; p853->a14327->s1.value.structure_type24753 = t88717;} else p853->a14327->s1.tag = (unsigned)t88717; /* x5663 Scheme-to-C-compatibility.sc:304:10595 */ /* x5662 Scheme-to-C-compatibility.sc:304:10608 */ /* x5660 Scheme-to-C-compatibility.sc:304:10614 */ t88718 = 'O'; /* x5661 Scheme-to-C-compatibility.sc:304:10618 */ t88719 = p853->a14327; /* x271074 Scheme-to-C-compatibility.sc:304:10609 */ p853->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p853->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 304, 10608); out_of_memory_error();} p853->a14327->s0.tag = ((unsigned)((unsigned char)t88718))<<2; /* MOVE: branching squeezed to general */ if (t88719>=((struct structure_type24753 *)VALUE_OFFSET)) {p853->a14327->s1.tag = STRUCTURE_TYPE24753; p853->a14327->s1.value.structure_type24753 = t88719;} else p853->a14327->s1.tag = (unsigned)t88719; /* x5668 Scheme-to-C-compatibility.sc:305:10632 */ /* x5667 Scheme-to-C-compatibility.sc:305:10645 */ /* x5665 Scheme-to-C-compatibility.sc:305:10651 */ t88720 = 'R'; /* x5666 Scheme-to-C-compatibility.sc:305:10655 */ t88721 = p853->a14327; /* x271073 Scheme-to-C-compatibility.sc:305:10646 */ p853->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p853->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 305, 10645); out_of_memory_error();} p853->a14327->s0.tag = ((unsigned)((unsigned char)t88720))<<2; /* MOVE: branching squeezed to general */ if (t88721>=((struct structure_type24753 *)VALUE_OFFSET)) {p853->a14327->s1.tag = STRUCTURE_TYPE24753; p853->a14327->s1.value.structure_type24753 = t88721;} else p853->a14327->s1.tag = (unsigned)t88721; /* x5673 Scheme-to-C-compatibility.sc:306:10669 */ /* x5672 Scheme-to-C-compatibility.sc:306:10682 */ /* x5670 Scheme-to-C-compatibility.sc:306:10688 */ t88722 = 'T'; /* x5671 Scheme-to-C-compatibility.sc:306:10692 */ t88723 = p853->a14327; /* x271072 Scheme-to-C-compatibility.sc:306:10683 */ p853->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p853->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 306, 10682); out_of_memory_error();} p853->a14327->s0.tag = ((unsigned)((unsigned char)t88722))<<2; /* MOVE: branching squeezed to general */ if (t88723>=((struct structure_type24753 *)VALUE_OFFSET)) {p853->a14327->s1.tag = STRUCTURE_TYPE24753; p853->a14327->s1.value.structure_type24753 = t88723;} else p853->a14327->s1.tag = (unsigned)t88723; /* x5608 */ t88695 = p853; p854 = t88695; /* x5607 Scheme-to-C-compatibility.sc:307:10706 */ /* x5606 Scheme-to-C-compatibility.sc:307:10719 */ /* x5604 Scheme-to-C-compatibility.sc:307:10725 */ t88696 = '*'; /* x5605 Scheme-to-C-compatibility.sc:307:10729 */ t88697 = p854->a14327; /* x271085 Scheme-to-C-compatibility.sc:307:10720 */ p854->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p854->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 307, 10719); out_of_memory_error();} p854->a14327->s0.tag = ((unsigned)((unsigned char)t88696))<<2; /* MOVE: branching squeezed to general */ if (t88697>=((struct structure_type24753 *)VALUE_OFFSET)) {p854->a14327->s1.tag = STRUCTURE_TYPE24753; p854->a14327->s1.value.structure_type24753 = t88697;} else p854->a14327->s1.tag = (unsigned)t88697; return; l17061: /* x6150 */ /* x5679 Scheme-to-C-compatibility.sc:308:10744 */ /* x5678 Scheme-to-C-compatibility.sc:308:10757 */ t88514 = *((struct w32103 *)(&a14455)); /* x271071 Scheme-to-C-compatibility.sc:308:10745 */ if (!((t88514.tag)==EOF_OBJECT_TYPE)) goto l17063; /* x5748 */ /* x5747 */ t88666 = p841; p855 = t88666; /* x5746 */ /* x5690 Scheme-to-C-compatibility.sc:309:10765 */ /* x5689 Scheme-to-C-compatibility.sc:309:10778 */ /* x5687 Scheme-to-C-compatibility.sc:309:10784 */ t88670 = '#'; /* x5688 Scheme-to-C-compatibility.sc:309:10788 */ t88671 = p855->a14327; /* x271069 Scheme-to-C-compatibility.sc:309:10779 */ p855->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p855->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 309, 10778); out_of_memory_error();} p855->a14327->s0.tag = ((unsigned)((unsigned char)t88670))<<2; /* MOVE: branching squeezed to general */ if (t88671>=((struct structure_type24753 *)VALUE_OFFSET)) {p855->a14327->s1.tag = STRUCTURE_TYPE24753; p855->a14327->s1.value.structure_type24753 = t88671;} else p855->a14327->s1.tag = (unsigned)t88671; /* x5695 Scheme-to-C-compatibility.sc:310:10802 */ /* x5694 Scheme-to-C-compatibility.sc:310:10815 */ /* x5692 Scheme-to-C-compatibility.sc:310:10821 */ t88672 = '*'; /* x5693 Scheme-to-C-compatibility.sc:310:10825 */ t88673 = p855->a14327; /* x271068 Scheme-to-C-compatibility.sc:310:10816 */ p855->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p855->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 310, 10815); out_of_memory_error();} p855->a14327->s0.tag = ((unsigned)((unsigned char)t88672))<<2; /* MOVE: branching squeezed to general */ if (t88673>=((struct structure_type24753 *)VALUE_OFFSET)) {p855->a14327->s1.tag = STRUCTURE_TYPE24753; p855->a14327->s1.value.structure_type24753 = t88673;} else p855->a14327->s1.tag = (unsigned)t88673; /* x5700 Scheme-to-C-compatibility.sc:311:10839 */ /* x5699 Scheme-to-C-compatibility.sc:311:10852 */ /* x5697 Scheme-to-C-compatibility.sc:311:10858 */ t88674 = 'E'; /* x5698 Scheme-to-C-compatibility.sc:311:10862 */ t88675 = p855->a14327; /* x271067 Scheme-to-C-compatibility.sc:311:10853 */ p855->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p855->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 311, 10852); out_of_memory_error();} p855->a14327->s0.tag = ((unsigned)((unsigned char)t88674))<<2; /* MOVE: branching squeezed to general */ if (t88675>=((struct structure_type24753 *)VALUE_OFFSET)) {p855->a14327->s1.tag = STRUCTURE_TYPE24753; p855->a14327->s1.value.structure_type24753 = t88675;} else p855->a14327->s1.tag = (unsigned)t88675; /* x5705 Scheme-to-C-compatibility.sc:312:10876 */ /* x5704 Scheme-to-C-compatibility.sc:312:10889 */ /* x5702 Scheme-to-C-compatibility.sc:312:10895 */ t88676 = 'O'; /* x5703 Scheme-to-C-compatibility.sc:312:10899 */ t88677 = p855->a14327; /* x271066 Scheme-to-C-compatibility.sc:312:10890 */ p855->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p855->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 312, 10889); out_of_memory_error();} p855->a14327->s0.tag = ((unsigned)((unsigned char)t88676))<<2; /* MOVE: branching squeezed to general */ if (t88677>=((struct structure_type24753 *)VALUE_OFFSET)) {p855->a14327->s1.tag = STRUCTURE_TYPE24753; p855->a14327->s1.value.structure_type24753 = t88677;} else p855->a14327->s1.tag = (unsigned)t88677; /* x5710 Scheme-to-C-compatibility.sc:313:10913 */ /* x5709 Scheme-to-C-compatibility.sc:313:10926 */ /* x5707 Scheme-to-C-compatibility.sc:313:10932 */ t88678 = 'F'; /* x5708 Scheme-to-C-compatibility.sc:313:10936 */ t88679 = p855->a14327; /* x271065 Scheme-to-C-compatibility.sc:313:10927 */ p855->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p855->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 313, 10926); out_of_memory_error();} p855->a14327->s0.tag = ((unsigned)((unsigned char)t88678))<<2; /* MOVE: branching squeezed to general */ if (t88679>=((struct structure_type24753 *)VALUE_OFFSET)) {p855->a14327->s1.tag = STRUCTURE_TYPE24753; p855->a14327->s1.value.structure_type24753 = t88679;} else p855->a14327->s1.tag = (unsigned)t88679; /* x5715 Scheme-to-C-compatibility.sc:314:10950 */ /* x5714 Scheme-to-C-compatibility.sc:314:10963 */ /* x5712 Scheme-to-C-compatibility.sc:314:10969 */ t88680 = '-'; /* x5713 Scheme-to-C-compatibility.sc:314:10973 */ t88681 = p855->a14327; /* x271064 Scheme-to-C-compatibility.sc:314:10964 */ p855->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p855->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 314, 10963); out_of_memory_error();} p855->a14327->s0.tag = ((unsigned)((unsigned char)t88680))<<2; /* MOVE: branching squeezed to general */ if (t88681>=((struct structure_type24753 *)VALUE_OFFSET)) {p855->a14327->s1.tag = STRUCTURE_TYPE24753; p855->a14327->s1.value.structure_type24753 = t88681;} else p855->a14327->s1.tag = (unsigned)t88681; /* x5720 Scheme-to-C-compatibility.sc:315:10987 */ /* x5719 Scheme-to-C-compatibility.sc:315:11000 */ /* x5717 Scheme-to-C-compatibility.sc:315:11006 */ t88682 = 'O'; /* x5718 Scheme-to-C-compatibility.sc:315:11010 */ t88683 = p855->a14327; /* x271063 Scheme-to-C-compatibility.sc:315:11001 */ p855->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p855->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 315, 11000); out_of_memory_error();} p855->a14327->s0.tag = ((unsigned)((unsigned char)t88682))<<2; /* MOVE: branching squeezed to general */ if (t88683>=((struct structure_type24753 *)VALUE_OFFSET)) {p855->a14327->s1.tag = STRUCTURE_TYPE24753; p855->a14327->s1.value.structure_type24753 = t88683;} else p855->a14327->s1.tag = (unsigned)t88683; /* x5725 Scheme-to-C-compatibility.sc:316:11024 */ /* x5724 Scheme-to-C-compatibility.sc:316:11037 */ /* x5722 Scheme-to-C-compatibility.sc:316:11043 */ t88684 = 'B'; /* x5723 Scheme-to-C-compatibility.sc:316:11047 */ t88685 = p855->a14327; /* x271062 Scheme-to-C-compatibility.sc:316:11038 */ p855->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p855->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 316, 11037); out_of_memory_error();} p855->a14327->s0.tag = ((unsigned)((unsigned char)t88684))<<2; /* MOVE: branching squeezed to general */ if (t88685>=((struct structure_type24753 *)VALUE_OFFSET)) {p855->a14327->s1.tag = STRUCTURE_TYPE24753; p855->a14327->s1.value.structure_type24753 = t88685;} else p855->a14327->s1.tag = (unsigned)t88685; /* x5730 Scheme-to-C-compatibility.sc:317:11061 */ /* x5729 Scheme-to-C-compatibility.sc:317:11074 */ /* x5727 Scheme-to-C-compatibility.sc:317:11080 */ t88686 = 'J'; /* x5728 Scheme-to-C-compatibility.sc:317:11084 */ t88687 = p855->a14327; /* x271061 Scheme-to-C-compatibility.sc:317:11075 */ p855->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p855->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 317, 11074); out_of_memory_error();} p855->a14327->s0.tag = ((unsigned)((unsigned char)t88686))<<2; /* MOVE: branching squeezed to general */ if (t88687>=((struct structure_type24753 *)VALUE_OFFSET)) {p855->a14327->s1.tag = STRUCTURE_TYPE24753; p855->a14327->s1.value.structure_type24753 = t88687;} else p855->a14327->s1.tag = (unsigned)t88687; /* x5735 Scheme-to-C-compatibility.sc:318:11098 */ /* x5734 Scheme-to-C-compatibility.sc:318:11111 */ /* x5732 Scheme-to-C-compatibility.sc:318:11117 */ t88688 = 'E'; /* x5733 Scheme-to-C-compatibility.sc:318:11121 */ t88689 = p855->a14327; /* x271060 Scheme-to-C-compatibility.sc:318:11112 */ p855->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p855->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 318, 11111); out_of_memory_error();} p855->a14327->s0.tag = ((unsigned)((unsigned char)t88688))<<2; /* MOVE: branching squeezed to general */ if (t88689>=((struct structure_type24753 *)VALUE_OFFSET)) {p855->a14327->s1.tag = STRUCTURE_TYPE24753; p855->a14327->s1.value.structure_type24753 = t88689;} else p855->a14327->s1.tag = (unsigned)t88689; /* x5740 Scheme-to-C-compatibility.sc:319:11135 */ /* x5739 Scheme-to-C-compatibility.sc:319:11148 */ /* x5737 Scheme-to-C-compatibility.sc:319:11154 */ t88690 = 'C'; /* x5738 Scheme-to-C-compatibility.sc:319:11158 */ t88691 = p855->a14327; /* x271059 Scheme-to-C-compatibility.sc:319:11149 */ p855->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p855->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 319, 11148); out_of_memory_error();} p855->a14327->s0.tag = ((unsigned)((unsigned char)t88690))<<2; /* MOVE: branching squeezed to general */ if (t88691>=((struct structure_type24753 *)VALUE_OFFSET)) {p855->a14327->s1.tag = STRUCTURE_TYPE24753; p855->a14327->s1.value.structure_type24753 = t88691;} else p855->a14327->s1.tag = (unsigned)t88691; /* x5745 Scheme-to-C-compatibility.sc:320:11172 */ /* x5744 Scheme-to-C-compatibility.sc:320:11185 */ /* x5742 Scheme-to-C-compatibility.sc:320:11191 */ t88692 = 'T'; /* x5743 Scheme-to-C-compatibility.sc:320:11195 */ t88693 = p855->a14327; /* x271058 Scheme-to-C-compatibility.sc:320:11186 */ p855->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p855->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 320, 11185); out_of_memory_error();} p855->a14327->s0.tag = ((unsigned)((unsigned char)t88692))<<2; /* MOVE: branching squeezed to general */ if (t88693>=((struct structure_type24753 *)VALUE_OFFSET)) {p855->a14327->s1.tag = STRUCTURE_TYPE24753; p855->a14327->s1.value.structure_type24753 = t88693;} else p855->a14327->s1.tag = (unsigned)t88693; /* x5685 */ t88667 = p855; p856 = t88667; /* x5684 Scheme-to-C-compatibility.sc:321:11209 */ /* x5683 Scheme-to-C-compatibility.sc:321:11222 */ /* x5681 Scheme-to-C-compatibility.sc:321:11228 */ t88668 = '*'; /* x5682 Scheme-to-C-compatibility.sc:321:11232 */ t88669 = p856->a14327; /* x271070 Scheme-to-C-compatibility.sc:321:11223 */ p856->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p856->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 321, 11222); out_of_memory_error();} p856->a14327->s0.tag = ((unsigned)((unsigned char)t88668))<<2; /* MOVE: branching squeezed to general */ if (t88669>=((struct structure_type24753 *)VALUE_OFFSET)) {p856->a14327->s1.tag = STRUCTURE_TYPE24753; p856->a14327->s1.value.structure_type24753 = t88669;} else p856->a14327->s1.tag = (unsigned)t88669; return; l17063: /* x6149 */ /* x5751 Scheme-to-C-compatibility.sc:322:11247 */ /* x5750 Scheme-to-C-compatibility.sc:322:11257 */ t88515 = *((struct w32087 *)(&a14455)); /* x271057 Scheme-to-C-compatibility.sc:322:11248 */ /* x6148 */ /* x5808 Scheme-to-C-compatibility.sc:333:11636 */ /* x5807 Scheme-to-C-compatibility.sc:333:11645 */ t88516 = *((struct w32087 *)(&a14455)); /* x271046 Scheme-to-C-compatibility.sc:333:11637 */ if (!((t88516.tag)==EXTERNAL_SYMBOL_TYPE)) goto l17066; /* x5858 */ /* x5857 */ t88642 = p841; p859 = t88642; /* x5856 Scheme-to-C-compatibility.sc:334:11653 */ /* x5855 Scheme-to-C-compatibility.sc:334:11663 */ /* x5854 Scheme-to-C-compatibility.sc:334:11679 */ t88665 = a14455.value.external_symbol_type; /* x271040 Scheme-to-C-compatibility.sc:334:11664 */ t88644 = t88665; /* x5852 */ t88643 = p859; p860 = t88643; a14506 = t88644; /* x5851 */ /* x5850 Scheme-to-C-compatibility.sc:335:11691 */ /* x5849 Scheme-to-C-compatibility.sc:335:11706 */ t88664 = a14506; /* x271041 Scheme-to-C-compatibility.sc:335:11692 */ t88646 = strlen(t88664); /* x5847 */ t88645 = p860; p861 = t88645; a14507 = t88646; /* x5846 */ /* x5845 */ t88647 = p861; p862 = t88647; /* x5844 Scheme-to-C-compatibility.sc:336:11717 */ /* x5843 Scheme-to-C-compatibility.sc:336:11731 */ t88649 = 0; /* x5842 */ /* x5841 */ /* x5840 */ /* x5839 */ t88662 = p862; p863 = t88662; /* x5838 */ /* x5837 */ /* x5836 */ /* x5810 */ t88663 = p863; p864 = t88663; /* x5809 Scheme-to-C-compatibility.sc:336:11722 */ t88648 = p864; p865 = t88648; a14510 = t88649; h865: /* x5835 Scheme-to-C-compatibility.sc:337:11742 */ /* x5814 Scheme-to-C-compatibility.sc:337:11748 */ /* x5812 Scheme-to-C-compatibility.sc:337:11751 */ t88650 = a14510; /* x5813 Scheme-to-C-compatibility.sc:337:11753 */ t88651 = a14507; /* x271045 Scheme-to-C-compatibility.sc:337:11749 */ if (!(t88650=strlen(t88660))) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 338, 11783); string_ref3_error();} t88658 = t88660[t88661]; /* x5827 Scheme-to-C-compatibility.sc:338:11800 */ t88659 = p866->a14327; /* x271043 Scheme-to-C-compatibility.sc:338:11778 */ p866->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p866->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 338, 11777); out_of_memory_error();} p866->a14327->s0.tag = ((unsigned)((unsigned char)t88658))<<2; /* MOVE: branching squeezed to general */ if (t88659>=((struct structure_type24753 *)VALUE_OFFSET)) {p866->a14327->s1.tag = STRUCTURE_TYPE24753; p866->a14327->s1.value.structure_type24753 = t88659;} else p866->a14327->s1.tag = (unsigned)t88659; /* x5821 */ t88653 = p866; p867 = t88653; /* x5820 Scheme-to-C-compatibility.sc:339:11817 */ /* x5819 Scheme-to-C-compatibility.sc:339:11823 */ /* x5817 Scheme-to-C-compatibility.sc:339:11826 */ t88656 = a14510; /* x5818 Scheme-to-C-compatibility.sc:339:11828 */ t88657 = 1; /* x271044 Scheme-to-C-compatibility.sc:339:11824 */ t88655 = t88656+t88657; /* x5815 Scheme-to-C-compatibility.sc:339:11818 */ t88654 = p867; p865 = t88654; a14510 = t88655; goto h865; l17090: /* x5834 Scheme-to-C-compatibility.sc:337:11742 */ /* x5833 Scheme-to-C-compatibility.sc:337:11742 */ return; l17066: /* x6147 */ /* x5861 Scheme-to-C-compatibility.sc:340:11841 */ /* x5860 Scheme-to-C-compatibility.sc:340:11853 */ t88517 = *((struct w32078 *)(&a14455)); /* x271039 Scheme-to-C-compatibility.sc:340:11842 */ switch (t88517.tag) {case TRUE_TYPE: case STRUCTURE_TYPE24753: case STRUCTURE_TYPE24757: case STRUCTURE_TYPE27501: case STRUCTURE_TYPE27510: case STRUCTURE_TYPE27621: case STRUCTURE_TYPE27650: case STRUCTURE_TYPE27669: case STRUCTURE_TYPE27673: case STRUCTURE_TYPE27692: case STRUCTURE_TYPE27694: case STRUCTURE_TYPE27698: case STRUCTURE_TYPE27745: case STRUCTURE_TYPE27747: case STRUCTURE_TYPE27750: case STRUCTURE_TYPE27753: case STRUCTURE_TYPE27756: case STRUCTURE_TYPE27761: case STRUCTURE_TYPE27769: case STRUCTURE_TYPE27776: case STRUCTURE_TYPE27779: case STRUCTURE_TYPE27858: case STRING_TYPE: case HEADED_VECTOR_TYPE27896: case STRUCTURE_TYPE27908: goto l17068; break; default:;} /* x5925 */ /* x5924 */ t88616 = p841; p870 = t88616; /* x5923 */ /* x5872 Scheme-to-C-compatibility.sc:341:11861 */ /* x5871 Scheme-to-C-compatibility.sc:341:11874 */ /* x5869 Scheme-to-C-compatibility.sc:341:11880 */ t88620 = '#'; /* x5870 Scheme-to-C-compatibility.sc:341:11884 */ t88621 = p870->a14327; /* x271037 Scheme-to-C-compatibility.sc:341:11875 */ p870->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p870->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 341, 11874); out_of_memory_error();} p870->a14327->s0.tag = ((unsigned)((unsigned char)t88620))<<2; /* MOVE: branching squeezed to general */ if (t88621>=((struct structure_type24753 *)VALUE_OFFSET)) {p870->a14327->s1.tag = STRUCTURE_TYPE24753; p870->a14327->s1.value.structure_type24753 = t88621;} else p870->a14327->s1.tag = (unsigned)t88621; /* x5877 Scheme-to-C-compatibility.sc:342:11898 */ /* x5876 Scheme-to-C-compatibility.sc:342:11911 */ /* x5874 Scheme-to-C-compatibility.sc:342:11917 */ t88622 = '*'; /* x5875 Scheme-to-C-compatibility.sc:342:11921 */ t88623 = p870->a14327; /* x271036 Scheme-to-C-compatibility.sc:342:11912 */ p870->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p870->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 342, 11911); out_of_memory_error();} p870->a14327->s0.tag = ((unsigned)((unsigned char)t88622))<<2; /* MOVE: branching squeezed to general */ if (t88623>=((struct structure_type24753 *)VALUE_OFFSET)) {p870->a14327->s1.tag = STRUCTURE_TYPE24753; p870->a14327->s1.value.structure_type24753 = t88623;} else p870->a14327->s1.tag = (unsigned)t88623; /* x5882 Scheme-to-C-compatibility.sc:343:11935 */ /* x5881 Scheme-to-C-compatibility.sc:343:11948 */ /* x5879 Scheme-to-C-compatibility.sc:343:11954 */ t88624 = 'P'; /* x5880 Scheme-to-C-compatibility.sc:343:11958 */ t88625 = p870->a14327; /* x271035 Scheme-to-C-compatibility.sc:343:11949 */ p870->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p870->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 343, 11948); out_of_memory_error();} p870->a14327->s0.tag = ((unsigned)((unsigned char)t88624))<<2; /* MOVE: branching squeezed to general */ if (t88625>=((struct structure_type24753 *)VALUE_OFFSET)) {p870->a14327->s1.tag = STRUCTURE_TYPE24753; p870->a14327->s1.value.structure_type24753 = t88625;} else p870->a14327->s1.tag = (unsigned)t88625; /* x5887 Scheme-to-C-compatibility.sc:344:11972 */ /* x5886 Scheme-to-C-compatibility.sc:344:11985 */ /* x5884 Scheme-to-C-compatibility.sc:344:11991 */ t88626 = 'R'; /* x5885 Scheme-to-C-compatibility.sc:344:11995 */ t88627 = p870->a14327; /* x271034 Scheme-to-C-compatibility.sc:344:11986 */ p870->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p870->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 344, 11985); out_of_memory_error();} p870->a14327->s0.tag = ((unsigned)((unsigned char)t88626))<<2; /* MOVE: branching squeezed to general */ if (t88627>=((struct structure_type24753 *)VALUE_OFFSET)) {p870->a14327->s1.tag = STRUCTURE_TYPE24753; p870->a14327->s1.value.structure_type24753 = t88627;} else p870->a14327->s1.tag = (unsigned)t88627; /* x5892 Scheme-to-C-compatibility.sc:345:12009 */ /* x5891 Scheme-to-C-compatibility.sc:345:12022 */ /* x5889 Scheme-to-C-compatibility.sc:345:12028 */ t88628 = 'O'; /* x5890 Scheme-to-C-compatibility.sc:345:12032 */ t88629 = p870->a14327; /* x271033 Scheme-to-C-compatibility.sc:345:12023 */ p870->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p870->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 345, 12022); out_of_memory_error();} p870->a14327->s0.tag = ((unsigned)((unsigned char)t88628))<<2; /* MOVE: branching squeezed to general */ if (t88629>=((struct structure_type24753 *)VALUE_OFFSET)) {p870->a14327->s1.tag = STRUCTURE_TYPE24753; p870->a14327->s1.value.structure_type24753 = t88629;} else p870->a14327->s1.tag = (unsigned)t88629; /* x5897 Scheme-to-C-compatibility.sc:346:12046 */ /* x5896 Scheme-to-C-compatibility.sc:346:12059 */ /* x5894 Scheme-to-C-compatibility.sc:346:12065 */ t88630 = 'C'; /* x5895 Scheme-to-C-compatibility.sc:346:12069 */ t88631 = p870->a14327; /* x271032 Scheme-to-C-compatibility.sc:346:12060 */ p870->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p870->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 346, 12059); out_of_memory_error();} p870->a14327->s0.tag = ((unsigned)((unsigned char)t88630))<<2; /* MOVE: branching squeezed to general */ if (t88631>=((struct structure_type24753 *)VALUE_OFFSET)) {p870->a14327->s1.tag = STRUCTURE_TYPE24753; p870->a14327->s1.value.structure_type24753 = t88631;} else p870->a14327->s1.tag = (unsigned)t88631; /* x5902 Scheme-to-C-compatibility.sc:347:12083 */ /* x5901 Scheme-to-C-compatibility.sc:347:12096 */ /* x5899 Scheme-to-C-compatibility.sc:347:12102 */ t88632 = 'E'; /* x5900 Scheme-to-C-compatibility.sc:347:12106 */ t88633 = p870->a14327; /* x271031 Scheme-to-C-compatibility.sc:347:12097 */ p870->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p870->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 347, 12096); out_of_memory_error();} p870->a14327->s0.tag = ((unsigned)((unsigned char)t88632))<<2; /* MOVE: branching squeezed to general */ if (t88633>=((struct structure_type24753 *)VALUE_OFFSET)) {p870->a14327->s1.tag = STRUCTURE_TYPE24753; p870->a14327->s1.value.structure_type24753 = t88633;} else p870->a14327->s1.tag = (unsigned)t88633; /* x5907 Scheme-to-C-compatibility.sc:348:12120 */ /* x5906 Scheme-to-C-compatibility.sc:348:12133 */ /* x5904 Scheme-to-C-compatibility.sc:348:12139 */ t88634 = 'D'; /* x5905 Scheme-to-C-compatibility.sc:348:12143 */ t88635 = p870->a14327; /* x271030 Scheme-to-C-compatibility.sc:348:12134 */ p870->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p870->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 348, 12133); out_of_memory_error();} p870->a14327->s0.tag = ((unsigned)((unsigned char)t88634))<<2; /* MOVE: branching squeezed to general */ if (t88635>=((struct structure_type24753 *)VALUE_OFFSET)) {p870->a14327->s1.tag = STRUCTURE_TYPE24753; p870->a14327->s1.value.structure_type24753 = t88635;} else p870->a14327->s1.tag = (unsigned)t88635; /* x5912 Scheme-to-C-compatibility.sc:349:12157 */ /* x5911 Scheme-to-C-compatibility.sc:349:12170 */ /* x5909 Scheme-to-C-compatibility.sc:349:12176 */ t88636 = 'U'; /* x5910 Scheme-to-C-compatibility.sc:349:12180 */ t88637 = p870->a14327; /* x271029 Scheme-to-C-compatibility.sc:349:12171 */ p870->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p870->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 349, 12170); out_of_memory_error();} p870->a14327->s0.tag = ((unsigned)((unsigned char)t88636))<<2; /* MOVE: branching squeezed to general */ if (t88637>=((struct structure_type24753 *)VALUE_OFFSET)) {p870->a14327->s1.tag = STRUCTURE_TYPE24753; p870->a14327->s1.value.structure_type24753 = t88637;} else p870->a14327->s1.tag = (unsigned)t88637; /* x5917 Scheme-to-C-compatibility.sc:350:12194 */ /* x5916 Scheme-to-C-compatibility.sc:350:12207 */ /* x5914 Scheme-to-C-compatibility.sc:350:12213 */ t88638 = 'R'; /* x5915 Scheme-to-C-compatibility.sc:350:12217 */ t88639 = p870->a14327; /* x271028 Scheme-to-C-compatibility.sc:350:12208 */ p870->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p870->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 350, 12207); out_of_memory_error();} p870->a14327->s0.tag = ((unsigned)((unsigned char)t88638))<<2; /* MOVE: branching squeezed to general */ if (t88639>=((struct structure_type24753 *)VALUE_OFFSET)) {p870->a14327->s1.tag = STRUCTURE_TYPE24753; p870->a14327->s1.value.structure_type24753 = t88639;} else p870->a14327->s1.tag = (unsigned)t88639; /* x5922 Scheme-to-C-compatibility.sc:351:12231 */ /* x5921 Scheme-to-C-compatibility.sc:351:12244 */ /* x5919 Scheme-to-C-compatibility.sc:351:12250 */ t88640 = 'E'; /* x5920 Scheme-to-C-compatibility.sc:351:12254 */ t88641 = p870->a14327; /* x271027 Scheme-to-C-compatibility.sc:351:12245 */ p870->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p870->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 351, 12244); out_of_memory_error();} p870->a14327->s0.tag = ((unsigned)((unsigned char)t88640))<<2; /* MOVE: branching squeezed to general */ if (t88641>=((struct structure_type24753 *)VALUE_OFFSET)) {p870->a14327->s1.tag = STRUCTURE_TYPE24753; p870->a14327->s1.value.structure_type24753 = t88641;} else p870->a14327->s1.tag = (unsigned)t88641; /* x5867 */ t88617 = p870; p871 = t88617; /* x5866 Scheme-to-C-compatibility.sc:352:12268 */ /* x5865 Scheme-to-C-compatibility.sc:352:12281 */ /* x5863 Scheme-to-C-compatibility.sc:352:12287 */ t88618 = '*'; /* x5864 Scheme-to-C-compatibility.sc:352:12291 */ t88619 = p871->a14327; /* x271038 Scheme-to-C-compatibility.sc:352:12282 */ p871->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p871->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 352, 12281); out_of_memory_error();} p871->a14327->s0.tag = ((unsigned)((unsigned char)t88618))<<2; /* MOVE: branching squeezed to general */ if (t88619>=((struct structure_type24753 *)VALUE_OFFSET)) {p871->a14327->s1.tag = STRUCTURE_TYPE24753; p871->a14327->s1.value.structure_type24753 = t88619;} else p871->a14327->s1.tag = (unsigned)t88619; return; l17068: /* x6146 */ /* x5928 Scheme-to-C-compatibility.sc:353:12306 */ /* x5927 Scheme-to-C-compatibility.sc:353:12315 */ t88518 = *((struct w32070 *)(&a14455)); /* x271026 Scheme-to-C-compatibility.sc:353:12307 */ if (!((t88518.tag)==STRING_TYPE)) goto l17070; /* x5971 */ /* x5970 */ t88596 = p841; p872 = t88596; /* x5969 Scheme-to-C-compatibility.sc:354:12323 */ /* x5968 Scheme-to-C-compatibility.sc:354:12332 */ /* x5967 Scheme-to-C-compatibility.sc:354:12347 */ t88615 = a14455.value.string_type; /* x271021 Scheme-to-C-compatibility.sc:354:12333 */ t88598 = strlen(t88615); /* x5965 */ t88597 = p872; p873 = t88597; a14523 = t88598; /* x5964 Scheme-to-C-compatibility.sc:355:12358 */ /* x5963 Scheme-to-C-compatibility.sc:355:12372 */ t88600 = 0; /* x5962 */ /* x5961 */ /* x5960 */ /* x5959 */ t88613 = p873; p874 = t88613; /* x5958 */ /* x5957 */ /* x5956 */ /* x5930 */ t88614 = p874; p875 = t88614; /* x5929 Scheme-to-C-compatibility.sc:355:12363 */ t88599 = p875; p876 = t88599; a14526 = t88600; h876: /* x5955 Scheme-to-C-compatibility.sc:356:12383 */ /* x5934 Scheme-to-C-compatibility.sc:356:12389 */ /* x5932 Scheme-to-C-compatibility.sc:356:12392 */ t88601 = a14526; /* x5933 Scheme-to-C-compatibility.sc:356:12394 */ t88602 = a14523; /* x271025 Scheme-to-C-compatibility.sc:356:12390 */ if (!(t88601=strlen(t88611.value.string_type))) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 357, 12424); string_ref3_error();} t88609 = (t88611.value.string_type)[t88612]; /* x5947 Scheme-to-C-compatibility.sc:357:12441 */ t88610 = p877->a14327; /* x271023 Scheme-to-C-compatibility.sc:357:12419 */ p877->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p877->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 357, 12418); out_of_memory_error();} p877->a14327->s0.tag = ((unsigned)((unsigned char)t88609))<<2; /* MOVE: branching squeezed to general */ if (t88610>=((struct structure_type24753 *)VALUE_OFFSET)) {p877->a14327->s1.tag = STRUCTURE_TYPE24753; p877->a14327->s1.value.structure_type24753 = t88610;} else p877->a14327->s1.tag = (unsigned)t88610; /* x5941 */ t88604 = p877; p878 = t88604; /* x5940 Scheme-to-C-compatibility.sc:358:12458 */ /* x5939 Scheme-to-C-compatibility.sc:358:12464 */ /* x5937 Scheme-to-C-compatibility.sc:358:12467 */ t88607 = a14526; /* x5938 Scheme-to-C-compatibility.sc:358:12469 */ t88608 = 1; /* x271024 Scheme-to-C-compatibility.sc:358:12465 */ t88606 = t88607+t88608; /* x5935 Scheme-to-C-compatibility.sc:358:12459 */ t88605 = p878; p876 = t88605; a14526 = t88606; goto h876; l17088: /* x5954 Scheme-to-C-compatibility.sc:356:12383 */ /* x5953 Scheme-to-C-compatibility.sc:356:12383 */ return; l17070: /* x6145 */ /* x5974 Scheme-to-C-compatibility.sc:359:12482 */ /* x5973 Scheme-to-C-compatibility.sc:359:12489 */ t88519 = *((struct w32062 *)(&a14455)); /* x271020 Scheme-to-C-compatibility.sc:359:12483 */ if (!((t88519.tag)==STRUCTURE_TYPE24753)) goto l17072; /* x6056 */ /* x6055 */ t88558 = p841; p881 = t88558; /* x6054 */ /* x5985 Scheme-to-C-compatibility.sc:360:12497 */ /* x5984 Scheme-to-C-compatibility.sc:360:12510 */ /* x5982 Scheme-to-C-compatibility.sc:360:12516 */ t88562 = '('; /* x5983 Scheme-to-C-compatibility.sc:360:12520 */ t88563 = p881->a14327; /* x271018 Scheme-to-C-compatibility.sc:360:12511 */ p881->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p881->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 360, 12510); out_of_memory_error();} p881->a14327->s0.tag = ((unsigned)((unsigned char)t88562))<<2; /* MOVE: branching squeezed to general */ if (t88563>=((struct structure_type24753 *)VALUE_OFFSET)) {p881->a14327->s1.tag = STRUCTURE_TYPE24753; p881->a14327->s1.value.structure_type24753 = t88563;} else p881->a14327->s1.tag = (unsigned)t88563; /* x6053 Scheme-to-C-compatibility.sc:361:12534 */ /* x6052 Scheme-to-C-compatibility.sc:361:12548 */ t88565 = a14455.value.structure_type24753; /* x6051 */ /* x6050 */ /* x6049 */ /* x6048 */ t88594 = p881; p883 = t88594; /* x6047 */ /* x6046 */ /* x6045 */ /* x5987 */ t88595 = p883; p884 = t88595; /* x5986 Scheme-to-C-compatibility.sc:361:12539 */ t88564 = p884; p885 = t88564; a14532.tag = STRUCTURE_TYPE24753; a14532.value.structure_type24753 = t88565; h885: /* x6044 Scheme-to-C-compatibility.sc:362:12558 */ /* x5992 Scheme-to-C-compatibility.sc:362:12565 */ /* x5991 Scheme-to-C-compatibility.sc:362:12572 */ /* x5990 Scheme-to-C-compatibility.sc:362:12577 */ t88567 = a14532; /* x271016 Scheme-to-C-compatibility.sc:362:12573 */ if (!((t88567.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 362, 12572); structure_ref_error();} t88566 = t88567.value.structure_type24753->s1; /* x271017 Scheme-to-C-compatibility.sc:362:12566 */ if (!((t88566.tag)==NULL_TYPE)) goto l17082; /* x5999 */ /* x5998 */ t88590 = p885; p886 = t88590; /* x5997 Scheme-to-C-compatibility.sc:363:12587 */ /* x5996 Scheme-to-C-compatibility.sc:363:12606 */ /* x5995 Scheme-to-C-compatibility.sc:363:12611 */ t88593 = a14532; /* x271015 Scheme-to-C-compatibility.sc:363:12607 */ if (!((t88593.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 363, 12606); structure_ref_error();} t88592 = t88593.value.structure_type24753->s0; /* x5993 Scheme-to-C-compatibility.sc:363:12588 */ t88591 = p886; f841(t88591, t88592); goto l17083; l17082: /* x6043 */ /* x6004 Scheme-to-C-compatibility.sc:364:12622 */ /* x6003 Scheme-to-C-compatibility.sc:364:12629 */ /* x6002 Scheme-to-C-compatibility.sc:364:12634 */ t88569 = a14532; /* x271013 Scheme-to-C-compatibility.sc:364:12630 */ if (!((t88569.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 364, 12629); structure_ref_error();} t88568 = t88569.value.structure_type24753->s1; /* x271014 Scheme-to-C-compatibility.sc:364:12623 */ if (!((t88568.tag)==STRUCTURE_TYPE24753)) goto l17085; /* x6023 */ /* x6022 */ t88580 = p885; p887 = t88580; /* x6021 */ /* x6015 Scheme-to-C-compatibility.sc:365:12644 */ /* x6014 Scheme-to-C-compatibility.sc:365:12663 */ /* x6013 Scheme-to-C-compatibility.sc:365:12668 */ t88587 = a14532; /* x271011 Scheme-to-C-compatibility.sc:365:12664 */ if (!((t88587.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 365, 12663); structure_ref_error();} t88586 = t88587.value.structure_type24753->s0; /* x6011 Scheme-to-C-compatibility.sc:365:12645 */ t88585 = p887; f841(t88585, t88586); /* x6020 Scheme-to-C-compatibility.sc:366:12678 */ /* x6019 Scheme-to-C-compatibility.sc:366:12691 */ /* x6017 Scheme-to-C-compatibility.sc:366:12697 */ t88588 = ' '; /* x6018 Scheme-to-C-compatibility.sc:366:12705 */ t88589 = p887->a14327; /* x271010 Scheme-to-C-compatibility.sc:366:12692 */ p887->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p887->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 366, 12691); out_of_memory_error();} p887->a14327->s0.tag = ((unsigned)((unsigned char)t88588))<<2; /* MOVE: branching squeezed to general */ if (t88589>=((struct structure_type24753 *)VALUE_OFFSET)) {p887->a14327->s1.tag = STRUCTURE_TYPE24753; p887->a14327->s1.value.structure_type24753 = t88589;} else p887->a14327->s1.tag = (unsigned)t88589; /* x6010 */ t88581 = p887; p888 = t88581; /* x6009 Scheme-to-C-compatibility.sc:367:12720 */ /* x6008 Scheme-to-C-compatibility.sc:367:12726 */ /* x6007 Scheme-to-C-compatibility.sc:367:12731 */ t88584 = a14532; /* x271012 Scheme-to-C-compatibility.sc:367:12727 */ if (!((t88584.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 367, 12726); structure_ref_error();} t88583 = t88584.value.structure_type24753->s1; /* x6005 Scheme-to-C-compatibility.sc:367:12721 */ t88582 = p888; p885 = t88582; a14532 = t88583; goto h885; goto l17086; l17085: /* x6042 */ /* x6041 */ t88570 = p885; p889 = t88570; /* x6040 */ /* x6034 Scheme-to-C-compatibility.sc:368:12747 */ /* x6033 Scheme-to-C-compatibility.sc:368:12766 */ /* x6032 Scheme-to-C-compatibility.sc:368:12771 */ t88577 = a14532; /* x271008 Scheme-to-C-compatibility.sc:368:12767 */ if (!((t88577.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 368, 12766); structure_ref_error();} t88576 = t88577.value.structure_type24753->s0; /* x6030 Scheme-to-C-compatibility.sc:368:12748 */ t88575 = p889; f841(t88575, t88576); /* x6039 Scheme-to-C-compatibility.sc:369:12779 */ /* x6038 Scheme-to-C-compatibility.sc:369:12792 */ /* x6036 Scheme-to-C-compatibility.sc:369:12798 */ t88578 = ' '; /* x6037 Scheme-to-C-compatibility.sc:369:12806 */ t88579 = p889->a14327; /* x271007 Scheme-to-C-compatibility.sc:369:12793 */ p889->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p889->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 369, 12792); out_of_memory_error();} p889->a14327->s0.tag = ((unsigned)((unsigned char)t88578))<<2; /* MOVE: branching squeezed to general */ if (t88579>=((struct structure_type24753 *)VALUE_OFFSET)) {p889->a14327->s1.tag = STRUCTURE_TYPE24753; p889->a14327->s1.value.structure_type24753 = t88579;} else p889->a14327->s1.tag = (unsigned)t88579; /* x6029 */ t88571 = p889; p890 = t88571; /* x6028 Scheme-to-C-compatibility.sc:370:12819 */ /* x6027 Scheme-to-C-compatibility.sc:370:12838 */ /* x6026 Scheme-to-C-compatibility.sc:370:12843 */ t88574 = a14532; /* x271009 Scheme-to-C-compatibility.sc:370:12839 */ if (!((t88574.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 370, 12838); structure_ref_error();} t88573 = t88574.value.structure_type24753->s1; /* x6024 Scheme-to-C-compatibility.sc:370:12820 */ t88572 = p890; f841(t88572, t88573); l17086: l17083: /* x5980 */ t88559 = p881; p882 = t88559; /* x5979 Scheme-to-C-compatibility.sc:371:12855 */ /* x5978 Scheme-to-C-compatibility.sc:371:12868 */ /* x5976 Scheme-to-C-compatibility.sc:371:12874 */ t88560 = ')'; /* x5977 Scheme-to-C-compatibility.sc:371:12878 */ t88561 = p882->a14327; /* x271019 Scheme-to-C-compatibility.sc:371:12869 */ p882->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p882->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 371, 12868); out_of_memory_error();} p882->a14327->s0.tag = ((unsigned)((unsigned char)t88560))<<2; /* MOVE: branching squeezed to general */ if (t88561>=((struct structure_type24753 *)VALUE_OFFSET)) {p882->a14327->s1.tag = STRUCTURE_TYPE24753; p882->a14327->s1.value.structure_type24753 = t88561;} else p882->a14327->s1.tag = (unsigned)t88561; return; l17072: /* x6144 */ /* x6059 Scheme-to-C-compatibility.sc:372:12893 */ /* x6058 Scheme-to-C-compatibility.sc:372:12902 */ t88520 = *((struct w31981 *)(&a14455)); /* x271006 Scheme-to-C-compatibility.sc:372:12894 */ if (!((t88520.tag)==HEADED_VECTOR_TYPE27896)) goto l17074; /* x6138 */ /* x6137 */ t88522 = p841; p892 = t88522; /* x6136 */ /* x6070 Scheme-to-C-compatibility.sc:373:12910 */ /* x6069 Scheme-to-C-compatibility.sc:373:12923 */ /* x6067 Scheme-to-C-compatibility.sc:373:12929 */ t88526 = '#'; /* x6068 Scheme-to-C-compatibility.sc:373:12933 */ t88527 = p892->a14327; /* x271004 Scheme-to-C-compatibility.sc:373:12924 */ p892->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p892->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 373, 12923); out_of_memory_error();} p892->a14327->s0.tag = ((unsigned)((unsigned char)t88526))<<2; /* MOVE: branching squeezed to general */ if (t88527>=((struct structure_type24753 *)VALUE_OFFSET)) {p892->a14327->s1.tag = STRUCTURE_TYPE24753; p892->a14327->s1.value.structure_type24753 = t88527;} else p892->a14327->s1.tag = (unsigned)t88527; /* x6075 Scheme-to-C-compatibility.sc:374:12947 */ /* x6074 Scheme-to-C-compatibility.sc:374:12960 */ /* x6072 Scheme-to-C-compatibility.sc:374:12966 */ t88528 = '('; /* x6073 Scheme-to-C-compatibility.sc:374:12970 */ t88529 = p892->a14327; /* x271003 Scheme-to-C-compatibility.sc:374:12961 */ p892->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p892->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 374, 12960); out_of_memory_error();} p892->a14327->s0.tag = ((unsigned)((unsigned char)t88528))<<2; /* MOVE: branching squeezed to general */ if (t88529>=((struct structure_type24753 *)VALUE_OFFSET)) {p892->a14327->s1.tag = STRUCTURE_TYPE24753; p892->a14327->s1.value.structure_type24753 = t88529;} else p892->a14327->s1.tag = (unsigned)t88529; /* x6135 Scheme-to-C-compatibility.sc:375:12984 */ /* x6134 Scheme-to-C-compatibility.sc:375:12993 */ /* x6133 Scheme-to-C-compatibility.sc:375:13008 */ t88557 = a14455.value.headed_vector_type27896; /* x270996 Scheme-to-C-compatibility.sc:375:12994 */ t88531 = t88557->length; /* x6131 */ t88530 = p892; p894 = t88530; a14540 = t88531; /* x6130 Scheme-to-C-compatibility.sc:376:13019 */ /* x6078 Scheme-to-C-compatibility.sc:376:13027 */ /* x6077 Scheme-to-C-compatibility.sc:376:13034 */ t88532 = a14540; /* x271002 Scheme-to-C-compatibility.sc:376:13028 */ if (!(t88532==0)) goto l17076; /* x6080 */ /* x6079 */ goto l17077; l17076: /* x6129 */ /* x6128 */ t88533 = p894; p896 = t88533; /* x6127 */ /* x6126 Scheme-to-C-compatibility.sc:377:13044 */ /* x6125 Scheme-to-C-compatibility.sc:377:13063 */ /* x6123 Scheme-to-C-compatibility.sc:377:13075 */ t88555 = a14455.value.headed_vector_type27896; /* x6124 Scheme-to-C-compatibility.sc:377:13077 */ t88556 = 0; /* x270997 Scheme-to-C-compatibility.sc:377:13064 */ if ((t88556<0)||(t88556>=(t88555->length))) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 377, 13063); vector_ref3_error();} t88554 = (t88555->element)[t88556]; /* x6121 Scheme-to-C-compatibility.sc:377:13045 */ t88553 = p896; f841(t88553, t88554); /* x6120 */ t88534 = p896; p897 = t88534; /* x6119 Scheme-to-C-compatibility.sc:378:13088 */ /* x6118 Scheme-to-C-compatibility.sc:378:13102 */ t88536 = 1; /* x6117 */ /* x6116 */ /* x6115 */ /* x6114 */ t88551 = p897; p898 = t88551; /* x6113 */ /* x6112 */ /* x6111 */ /* x6082 */ t88552 = p898; p899 = t88552; /* x6081 Scheme-to-C-compatibility.sc:378:13093 */ t88535 = p899; p900 = t88535; a14544 = t88536; h900: /* x6110 Scheme-to-C-compatibility.sc:379:13114 */ /* x6086 Scheme-to-C-compatibility.sc:379:13122 */ /* x6084 Scheme-to-C-compatibility.sc:379:13125 */ t88537 = a14544; /* x6085 Scheme-to-C-compatibility.sc:379:13127 */ t88538 = a14540; /* x271001 Scheme-to-C-compatibility.sc:379:13123 */ if (!(t88537==t88538)) goto l17079; /* x6088 */ /* x6087 */ goto l17080; l17079: /* x6109 */ /* x6108 */ t88539 = p900; p902 = t88539; /* x6107 */ /* x6100 Scheme-to-C-compatibility.sc:380:13132 */ /* x6099 Scheme-to-C-compatibility.sc:380:13145 */ /* x6097 Scheme-to-C-compatibility.sc:380:13151 */ t88545 = ' '; /* x6098 Scheme-to-C-compatibility.sc:380:13159 */ t88546 = p902->a14327; /* x270999 Scheme-to-C-compatibility.sc:380:13146 */ p902->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p902->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 380, 13145); out_of_memory_error();} p902->a14327->s0.tag = ((unsigned)((unsigned char)t88545))<<2; /* MOVE: branching squeezed to general */ if (t88546>=((struct structure_type24753 *)VALUE_OFFSET)) {p902->a14327->s1.tag = STRUCTURE_TYPE24753; p902->a14327->s1.value.structure_type24753 = t88546;} else p902->a14327->s1.tag = (unsigned)t88546; /* x6106 Scheme-to-C-compatibility.sc:381:13170 */ /* x6105 Scheme-to-C-compatibility.sc:381:13189 */ /* x6103 Scheme-to-C-compatibility.sc:381:13201 */ t88549 = a14455; /* x6104 Scheme-to-C-compatibility.sc:381:13203 */ t88550 = a14544; /* x270998 Scheme-to-C-compatibility.sc:381:13190 */ if (!((t88549.tag)==HEADED_VECTOR_TYPE27896)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 381, 13189); vector_ref1_error();} if ((t88550<0)||(t88550>=(t88549.value.headed_vector_type27896->length))) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 381, 13189); vector_ref3_error();} t88548 = (t88549.value.headed_vector_type27896->element)[t88550]; /* x6101 Scheme-to-C-compatibility.sc:381:13171 */ t88547 = p902; f841(t88547, t88548); /* x6095 */ t88540 = p902; p903 = t88540; /* x6094 Scheme-to-C-compatibility.sc:382:13209 */ /* x6093 Scheme-to-C-compatibility.sc:382:13215 */ /* x6091 Scheme-to-C-compatibility.sc:382:13218 */ t88543 = a14544; /* x6092 Scheme-to-C-compatibility.sc:382:13220 */ t88544 = 1; /* x271000 Scheme-to-C-compatibility.sc:382:13216 */ t88542 = t88543+t88544; /* x6089 Scheme-to-C-compatibility.sc:382:13210 */ t88541 = p903; p900 = t88541; a14544 = t88542; goto h900; l17080: l17077: /* x6065 */ t88523 = p892; p893 = t88523; /* x6064 Scheme-to-C-compatibility.sc:383:13233 */ /* x6063 Scheme-to-C-compatibility.sc:383:13246 */ /* x6061 Scheme-to-C-compatibility.sc:383:13252 */ t88524 = ')'; /* x6062 Scheme-to-C-compatibility.sc:383:13256 */ t88525 = p893->a14327; /* x271005 Scheme-to-C-compatibility.sc:383:13247 */ p893->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p893->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 383, 13246); out_of_memory_error();} p893->a14327->s0.tag = ((unsigned)((unsigned char)t88524))<<2; /* MOVE: branching squeezed to general */ if (t88525>=((struct structure_type24753 *)VALUE_OFFSET)) {p893->a14327->s1.tag = STRUCTURE_TYPE24753; p893->a14327->s1.value.structure_type24753 = t88525;} else p893->a14327->s1.tag = (unsigned)t88525; return; l17074: /* x6143 */ /* x6142 */ /* x6141 Scheme-to-C-compatibility.sc:384:13276 */ /* x6140 Scheme-to-C-compatibility.sc:385:13287 */ t88521 = "FORMAT with DISPLAY-methods is not (yet) implemented"; /* x270995 Scheme-to-C-compatibility.sc:384:13277 */ stalin_panic(t88521);} /* [inside WRITE-TO-RESULT 780] */ void f780(struct p731 *p780, struct w49 a14363) {struct w49 t88782; struct structure_type24753 *t88783; /* x4760 Scheme-to-C-compatibility.sc:149:5284 */ /* x4759 Scheme-to-C-compatibility.sc:149:5297 */ /* x4757 Scheme-to-C-compatibility.sc:149:5303 */ t88782 = a14363; /* x4758 Scheme-to-C-compatibility.sc:149:5305 */ t88783 = p780->a14327; /* x271225 Scheme-to-C-compatibility.sc:149:5298 */ p780->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p780->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 149, 5297); out_of_memory_error();} p780->a14327->s0 = t88782; /* MOVE: branching squeezed to general */ if (t88783>=((struct structure_type24753 *)VALUE_OFFSET)) {p780->a14327->s1.tag = STRUCTURE_TYPE24753; p780->a14327->s1.value.structure_type24753 = t88783;} else p780->a14327->s1.tag = (unsigned)t88783; return;} /* WRITE-TO-RESULT[764] */ void f764(struct p731 *p764, struct w49 a14346) {char a14352; /* v */ char *a14410; /* X */ int a14411; /* N */ int a14414; /* I */ int a14429; /* N */ int a14432; /* I */ struct w49 a14440; /* X */ int a14448; /* N */ int a14452; /* I */ struct w49 t88784; struct w16638 t88785; struct w32142 t88786; struct w32134 t88787; struct w32119 t88788; struct w32111 t88789; struct w32103 t88790; struct w32087 t88791; struct w32087 t88792; struct w32078 t88793; struct w32070 t88794; struct w32062 t88795; struct w31981 t88796; char *t88797; struct p731 *t88798; struct p731 *t88799; char t88800; struct structure_type24753 *t88801; char t88802; struct structure_type24753 *t88803; char t88804; struct structure_type24753 *t88805; struct p731 *t88806; int t88807; int t88808; struct p731 *t88809; struct p731 *t88810; struct p731 *t88811; int t88812; int t88813; int t88814; struct p731 *t88815; struct p731 *t88816; struct p731 *t88817; int t88818; int t88819; int t88820; char t88821; struct structure_type24753 *t88822; struct p731 *t88823; struct w49 t88824; struct w49 t88825; int t88826; struct p731 *t88827; struct p731 *t88828; struct p731 *t88829; struct w49 t88830; struct headed_vector_type27896 *t88831; int t88832; struct headed_vector_type27896 *t88833; struct p731 *t88834; struct p731 *t88835; char t88836; struct structure_type24753 *t88837; char t88838; struct structure_type24753 *t88839; struct p731 *t88840; struct structure_type24753 *t88841; struct w49 t88842; struct w49 t88843; struct w49 t88844; struct w49 t88845; struct p731 *t88846; struct p731 *t88847; struct p731 *t88848; struct w49 t88849; struct w49 t88850; struct p731 *t88851; struct w49 t88852; struct w49 t88853; char t88854; struct structure_type24753 *t88855; struct p731 *t88856; struct p731 *t88857; struct p731 *t88858; struct w49 t88859; struct w49 t88860; struct p731 *t88861; struct w49 t88862; struct w49 t88863; char t88864; struct structure_type24753 *t88865; struct p731 *t88866; struct p731 *t88867; struct w49 t88868; struct w49 t88869; struct p731 *t88870; struct p731 *t88871; struct p731 *t88872; struct p731 *t88873; char t88874; struct structure_type24753 *t88875; char t88876; struct structure_type24753 *t88877; struct p731 *t88878; int t88879; struct p731 *t88880; int t88881; int t88882; int t88883; struct p731 *t88884; char t88885; char t88886; struct w49 t88887; char t88888; struct w49 t88889; int t88890; char t88891; char t88892; struct w49 t88893; char t88894; struct w49 t88895; int t88896; char t88897; struct structure_type24753 *t88898; struct p731 *t88899; struct p731 *t88900; struct p731 *t88901; int t88902; int t88903; int t88904; char t88905; struct structure_type24753 *t88906; struct w49 t88907; int t88908; struct p731 *t88909; struct p731 *t88910; char *t88911; struct p731 *t88912; struct p731 *t88913; char t88914; struct structure_type24753 *t88915; char t88916; struct structure_type24753 *t88917; char t88918; struct structure_type24753 *t88919; char t88920; struct structure_type24753 *t88921; char t88922; struct structure_type24753 *t88923; char t88924; struct structure_type24753 *t88925; char t88926; struct structure_type24753 *t88927; char t88928; struct structure_type24753 *t88929; char t88930; struct structure_type24753 *t88931; char t88932; struct structure_type24753 *t88933; char t88934; struct structure_type24753 *t88935; char t88936; struct structure_type24753 *t88937; struct p731 *t88938; struct p731 *t88939; char *t88940; struct p731 *t88941; int t88942; struct p731 *t88943; struct p731 *t88944; int t88945; int t88946; int t88947; struct p731 *t88948; struct p731 *t88949; struct p731 *t88950; int t88951; int t88952; int t88953; char t88954; struct structure_type24753 *t88955; char *t88956; int t88957; struct p731 *t88958; struct p731 *t88959; char *t88960; char *t88961; struct p731 *t88962; struct p731 *t88963; char t88964; struct structure_type24753 *t88965; char t88966; struct structure_type24753 *t88967; char t88968; struct structure_type24753 *t88969; char t88970; struct structure_type24753 *t88971; char t88972; struct structure_type24753 *t88973; char t88974; struct structure_type24753 *t88975; char t88976; struct structure_type24753 *t88977; char t88978; struct structure_type24753 *t88979; char t88980; struct structure_type24753 *t88981; char t88982; struct structure_type24753 *t88983; char t88984; struct structure_type24753 *t88985; char t88986; struct structure_type24753 *t88987; char t88988; struct structure_type24753 *t88989; struct p731 *t88990; struct p731 *t88991; char t88992; struct structure_type24753 *t88993; char t88994; struct structure_type24753 *t88995; char t88996; struct structure_type24753 *t88997; char t88998; struct structure_type24753 *t88999; char t89000; struct structure_type24753 *t89001; char t89002; struct structure_type24753 *t89003; char t89004; struct structure_type24753 *t89005; char t89006; struct structure_type24753 *t89007; char t89008; struct structure_type24753 *t89009; char t89010; struct structure_type24753 *t89011; char t89012; struct structure_type24753 *t89013; char t89014; struct structure_type24753 *t89015; char t89016; struct structure_type24753 *t89017; char t89018; struct structure_type24753 *t89019; struct p731 *t89020; struct p731 *t89021; char t89022; struct structure_type24753 *t89023; char t89024; struct structure_type24753 *t89025; char t89026; struct structure_type24753 *t89027; char t89028; struct structure_type24753 *t89029; char t89030; struct structure_type24753 *t89031; char t89032; struct structure_type24753 *t89033; char t89034; struct structure_type24753 *t89035; char t89036; struct structure_type24753 *t89037; char t89038; struct structure_type24753 *t89039; char t89040; struct structure_type24753 *t89041; char t89042; struct structure_type24753 *t89043; char t89044; struct structure_type24753 *t89045; char t89046; struct structure_type24753 *t89047; struct p731 *t89048; struct p731 *t89049; struct structure_type24753 *t89050; struct w36108 t89051; struct w49 t89052; struct structure_type24753 *t89053; char *t89054; struct w30215 t89055; struct w49 t89056; struct p731 *t89057; struct p731 *t89058; struct p731 *t89059; char t89060; char t89061; char t89062; struct w49 t89063; struct w49 t89064; char t89065; char t89066; struct w49 t89067; struct w49 t89068; struct p731 *t89069; char t89070; struct structure_type24753 *t89071; struct p731 *t89072; struct p731 *t89073; char t89074; struct structure_type24753 *t89075; char t89076; struct structure_type24753 *t89077; char t89078; struct structure_type24753 *t89079; char t89080; struct structure_type24753 *t89081; char t89082; struct structure_type24753 *t89083; struct p731 *t89084; struct p731 *t89085; char t89086; struct structure_type24753 *t89087; char t89088; struct structure_type24753 *t89089; char t89090; struct structure_type24753 *t89091; char t89092; struct structure_type24753 *t89093; char t89094; struct structure_type24753 *t89095; char t89096; struct structure_type24753 *t89097; char t89098; struct structure_type24753 *t89099; char t89100; struct structure_type24753 *t89101; char t89102; struct structure_type24753 *t89103; struct p731 *t89104; struct p731 *t89105; char t89106; struct structure_type24753 *t89107; char t89108; struct structure_type24753 *t89109; struct p731 *t89110; struct p731 *t89111; char t89112; struct structure_type24753 *t89113; char t89114; struct structure_type24753 *t89115; struct p731 *t89116; struct p731 *t89117; char t89118; struct structure_type24753 *t89119; char t89120; struct structure_type24753 *t89121; struct p731 *p765; struct p731 *p766; struct p731 *p767; struct p731 *p768; struct p731 *p769; struct p731 *p770; struct p731 *p771; struct p731 *p772; struct p731 *p773; struct p731 *p774; struct p731 *p775; struct p731 *p776; struct p731 *p777; struct p731 *p778; struct p731 *p779; struct p731 *p781; struct p731 *p782; struct p731 *p783; struct p731 *p784; struct p731 *p785; struct p731 *p786; struct p731 *p789; struct p731 *p790; struct p731 *p791; struct p731 *p792; struct p731 *p793; struct p731 *p794; struct p731 *p795; struct p731 *p796; struct p731 *p797; struct p731 *p800; struct p731 *p801; struct p731 *p802; struct p731 *p803; struct p731 *p804; struct p731 *p805; struct p731 *p806; struct p731 *p807; struct p731 *p808; struct p731 *p809; struct p731 *p810; struct p731 *p811; struct p731 *p812; struct p731 *p816; struct p731 *p817; struct p731 *p818; struct p731 *p819; struct p731 *p820; struct p731 *p821; struct p731 *p822; struct p731 *p823; struct p731 *p824; struct p731 *p825; struct p731 *p827; struct p731 *p828; struct p731 *p829; struct p731 *p831; struct p731 *p832; struct p731 *p833; struct p731 *p834; struct p731 *p835; struct p731 *p837; struct p731 *p838; /* x5445 Scheme-to-C-compatibility.sc:119:4255 */ /* x4597 Scheme-to-C-compatibility.sc:119:4262 */ /* x4596 Scheme-to-C-compatibility.sc:119:4269 */ t88784 = a14346; /* x271251 Scheme-to-C-compatibility.sc:119:4263 */ if (!((t88784.tag)==NULL_TYPE)) goto l17092; /* x4611 */ /* x4610 */ t89116 = p764; p765 = t89116; /* x4609 */ /* x4608 Scheme-to-C-compatibility.sc:120:4277 */ /* x4607 Scheme-to-C-compatibility.sc:120:4290 */ /* x4605 Scheme-to-C-compatibility.sc:120:4296 */ t89120 = '('; /* x4606 Scheme-to-C-compatibility.sc:120:4300 */ t89121 = p765->a14327; /* x271249 Scheme-to-C-compatibility.sc:120:4291 */ p765->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p765->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 120, 4290); out_of_memory_error();} p765->a14327->s0.tag = ((unsigned)((unsigned char)t89120))<<2; /* MOVE: branching squeezed to general */ if (t89121>=((struct structure_type24753 *)VALUE_OFFSET)) {p765->a14327->s1.tag = STRUCTURE_TYPE24753; p765->a14327->s1.value.structure_type24753 = t89121;} else p765->a14327->s1.tag = (unsigned)t89121; /* x4603 */ t89117 = p765; p766 = t89117; /* x4602 Scheme-to-C-compatibility.sc:121:4314 */ /* x4601 Scheme-to-C-compatibility.sc:121:4327 */ /* x4599 Scheme-to-C-compatibility.sc:121:4333 */ t89118 = ')'; /* x4600 Scheme-to-C-compatibility.sc:121:4337 */ t89119 = p766->a14327; /* x271250 Scheme-to-C-compatibility.sc:121:4328 */ p766->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p766->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 121, 4327); out_of_memory_error();} p766->a14327->s0.tag = ((unsigned)((unsigned char)t89118))<<2; /* MOVE: branching squeezed to general */ if (t89119>=((struct structure_type24753 *)VALUE_OFFSET)) {p766->a14327->s1.tag = STRUCTURE_TYPE24753; p766->a14327->s1.value.structure_type24753 = t89119;} else p766->a14327->s1.tag = (unsigned)t89119; return; l17092: /* x5444 */ /* x4615 Scheme-to-C-compatibility.sc:122:4352 */ /* x4613 Scheme-to-C-compatibility.sc:122:4357 */ t88785 = *((struct w16638 *)(&a14346)); /* x4614 Scheme-to-C-compatibility.sc:122:4359 */ /* x271248 Scheme-to-C-compatibility.sc:122:4353 */ if (!((t88785.tag)==TRUE_TYPE)) goto l17094; /* x4629 */ /* x4628 */ t89110 = p764; p767 = t89110; /* x4627 */ /* x4626 Scheme-to-C-compatibility.sc:123:4368 */ /* x4625 Scheme-to-C-compatibility.sc:123:4381 */ /* x4623 Scheme-to-C-compatibility.sc:123:4387 */ t89114 = '#'; /* x4624 Scheme-to-C-compatibility.sc:123:4391 */ t89115 = p767->a14327; /* x271246 Scheme-to-C-compatibility.sc:123:4382 */ p767->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p767->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 123, 4381); out_of_memory_error();} p767->a14327->s0.tag = ((unsigned)((unsigned char)t89114))<<2; /* MOVE: branching squeezed to general */ if (t89115>=((struct structure_type24753 *)VALUE_OFFSET)) {p767->a14327->s1.tag = STRUCTURE_TYPE24753; p767->a14327->s1.value.structure_type24753 = t89115;} else p767->a14327->s1.tag = (unsigned)t89115; /* x4621 */ t89111 = p767; p768 = t89111; /* x4620 Scheme-to-C-compatibility.sc:124:4405 */ /* x4619 Scheme-to-C-compatibility.sc:124:4418 */ /* x4617 Scheme-to-C-compatibility.sc:124:4424 */ t89112 = 'T'; /* x4618 Scheme-to-C-compatibility.sc:124:4428 */ t89113 = p768->a14327; /* x271247 Scheme-to-C-compatibility.sc:124:4419 */ p768->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p768->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 124, 4418); out_of_memory_error();} p768->a14327->s0.tag = ((unsigned)((unsigned char)t89112))<<2; /* MOVE: branching squeezed to general */ if (t89113>=((struct structure_type24753 *)VALUE_OFFSET)) {p768->a14327->s1.tag = STRUCTURE_TYPE24753; p768->a14327->s1.value.structure_type24753 = t89113;} else p768->a14327->s1.tag = (unsigned)t89113; return; l17094: /* x5443 */ /* x4632 Scheme-to-C-compatibility.sc:125:4443 */ /* x4631 Scheme-to-C-compatibility.sc:125:4448 */ if (!((a14346.tag)==FALSE_TYPE)) goto l17096; /* x4646 */ /* x4645 */ t89104 = p764; p769 = t89104; /* x4644 */ /* x4643 Scheme-to-C-compatibility.sc:126:4456 */ /* x4642 Scheme-to-C-compatibility.sc:126:4469 */ /* x4640 Scheme-to-C-compatibility.sc:126:4475 */ t89108 = '#'; /* x4641 Scheme-to-C-compatibility.sc:126:4479 */ t89109 = p769->a14327; /* x271243 Scheme-to-C-compatibility.sc:126:4470 */ p769->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p769->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 126, 4469); out_of_memory_error();} p769->a14327->s0.tag = ((unsigned)((unsigned char)t89108))<<2; /* MOVE: branching squeezed to general */ if (t89109>=((struct structure_type24753 *)VALUE_OFFSET)) {p769->a14327->s1.tag = STRUCTURE_TYPE24753; p769->a14327->s1.value.structure_type24753 = t89109;} else p769->a14327->s1.tag = (unsigned)t89109; /* x4638 */ t89105 = p769; p770 = t89105; /* x4637 Scheme-to-C-compatibility.sc:127:4493 */ /* x4636 Scheme-to-C-compatibility.sc:127:4506 */ /* x4634 Scheme-to-C-compatibility.sc:127:4512 */ t89106 = 'F'; /* x4635 Scheme-to-C-compatibility.sc:127:4516 */ t89107 = p770->a14327; /* x271244 Scheme-to-C-compatibility.sc:127:4507 */ p770->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p770->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 127, 4506); out_of_memory_error();} p770->a14327->s0.tag = ((unsigned)((unsigned char)t89106))<<2; /* MOVE: branching squeezed to general */ if (t89107>=((struct structure_type24753 *)VALUE_OFFSET)) {p770->a14327->s1.tag = STRUCTURE_TYPE24753; p770->a14327->s1.value.structure_type24753 = t89107;} else p770->a14327->s1.tag = (unsigned)t89107; return; l17096: /* x5442 */ /* x4649 Scheme-to-C-compatibility.sc:128:4531 */ /* x4648 Scheme-to-C-compatibility.sc:128:4538 */ t88786 = *((struct w32142 *)(&a14346)); /* x271242 Scheme-to-C-compatibility.sc:128:4532 */ if (!((t88786.tag)a14327; /* x271228 Scheme-to-C-compatibility.sc:129:4560 */ p771->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p771->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 129, 4559); out_of_memory_error();} p771->a14327->s0.tag = ((unsigned)((unsigned char)t89100))<<2; /* MOVE: branching squeezed to general */ if (t89101>=((struct structure_type24753 *)VALUE_OFFSET)) {p771->a14327->s1.tag = STRUCTURE_TYPE24753; p771->a14327->s1.value.structure_type24753 = t89101;} else p771->a14327->s1.tag = (unsigned)t89101; /* x4748 Scheme-to-C-compatibility.sc:130:4583 */ /* x4747 Scheme-to-C-compatibility.sc:130:4596 */ /* x4745 Scheme-to-C-compatibility.sc:130:4602 */ t89102 = '\\'; /* x4746 Scheme-to-C-compatibility.sc:130:4606 */ t89103 = p771->a14327; /* x271227 Scheme-to-C-compatibility.sc:130:4597 */ p771->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p771->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 130, 4596); out_of_memory_error();} p771->a14327->s0.tag = ((unsigned)((unsigned char)t89102))<<2; /* MOVE: branching squeezed to general */ if (t89103>=((struct structure_type24753 *)VALUE_OFFSET)) {p771->a14327->s1.tag = STRUCTURE_TYPE24753; p771->a14327->s1.value.structure_type24753 = t89103;} else p771->a14327->s1.tag = (unsigned)t89103; /* x4738 */ t89058 = p771; p772 = t89058; /* x4737 Scheme-to-C-compatibility.sc:132:4681 */ /* x4736 Scheme-to-C-compatibility.sc:132:4687 */ t89060 = (char)((a14346.tag)>>2); /* x4735 */ t89059 = p772; p773 = t89059; a14352 = t89060; /* x4734 */ /* x4653 */ /* x4651 */ t89061 = a14352; /* x4652 */ t89062 = '\n'; /* x4650 */ t89063.tag = ((unsigned)((unsigned char)t89061))<<2; t89064.tag = ((unsigned)((unsigned char)t89062))<<2; if (f26160(t89063, t89064)==FALSE_TYPE) goto l17139; /* x4692 */ /* x4691 */ t89084 = p773; p774 = t89084; /* x4690 */ /* x4664 Scheme-to-C-compatibility.sc:134:4715 */ /* x4663 Scheme-to-C-compatibility.sc:134:4728 */ /* x4661 Scheme-to-C-compatibility.sc:134:4734 */ t89088 = 'N'; /* x4662 Scheme-to-C-compatibility.sc:134:4738 */ t89089 = p774->a14327; /* x271240 Scheme-to-C-compatibility.sc:134:4729 */ p774->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p774->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 134, 4728); out_of_memory_error();} p774->a14327->s0.tag = ((unsigned)((unsigned char)t89088))<<2; /* MOVE: branching squeezed to general */ if (t89089>=((struct structure_type24753 *)VALUE_OFFSET)) {p774->a14327->s1.tag = STRUCTURE_TYPE24753; p774->a14327->s1.value.structure_type24753 = t89089;} else p774->a14327->s1.tag = (unsigned)t89089; /* x4669 Scheme-to-C-compatibility.sc:135:4754 */ /* x4668 Scheme-to-C-compatibility.sc:135:4767 */ /* x4666 Scheme-to-C-compatibility.sc:135:4773 */ t89090 = 'e'; /* x4667 Scheme-to-C-compatibility.sc:135:4777 */ t89091 = p774->a14327; /* x271239 Scheme-to-C-compatibility.sc:135:4768 */ p774->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p774->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 135, 4767); out_of_memory_error();} p774->a14327->s0.tag = ((unsigned)((unsigned char)t89090))<<2; /* MOVE: branching squeezed to general */ if (t89091>=((struct structure_type24753 *)VALUE_OFFSET)) {p774->a14327->s1.tag = STRUCTURE_TYPE24753; p774->a14327->s1.value.structure_type24753 = t89091;} else p774->a14327->s1.tag = (unsigned)t89091; /* x4674 Scheme-to-C-compatibility.sc:136:4793 */ /* x4673 Scheme-to-C-compatibility.sc:136:4806 */ /* x4671 Scheme-to-C-compatibility.sc:136:4812 */ t89092 = 'w'; /* x4672 Scheme-to-C-compatibility.sc:136:4816 */ t89093 = p774->a14327; /* x271238 Scheme-to-C-compatibility.sc:136:4807 */ p774->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p774->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 136, 4806); out_of_memory_error();} p774->a14327->s0.tag = ((unsigned)((unsigned char)t89092))<<2; /* MOVE: branching squeezed to general */ if (t89093>=((struct structure_type24753 *)VALUE_OFFSET)) {p774->a14327->s1.tag = STRUCTURE_TYPE24753; p774->a14327->s1.value.structure_type24753 = t89093;} else p774->a14327->s1.tag = (unsigned)t89093; /* x4679 Scheme-to-C-compatibility.sc:137:4832 */ /* x4678 Scheme-to-C-compatibility.sc:137:4845 */ /* x4676 Scheme-to-C-compatibility.sc:137:4851 */ t89094 = 'l'; /* x4677 Scheme-to-C-compatibility.sc:137:4855 */ t89095 = p774->a14327; /* x271237 Scheme-to-C-compatibility.sc:137:4846 */ p774->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p774->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 137, 4845); out_of_memory_error();} p774->a14327->s0.tag = ((unsigned)((unsigned char)t89094))<<2; /* MOVE: branching squeezed to general */ if (t89095>=((struct structure_type24753 *)VALUE_OFFSET)) {p774->a14327->s1.tag = STRUCTURE_TYPE24753; p774->a14327->s1.value.structure_type24753 = t89095;} else p774->a14327->s1.tag = (unsigned)t89095; /* x4684 Scheme-to-C-compatibility.sc:138:4871 */ /* x4683 Scheme-to-C-compatibility.sc:138:4884 */ /* x4681 Scheme-to-C-compatibility.sc:138:4890 */ t89096 = 'i'; /* x4682 Scheme-to-C-compatibility.sc:138:4894 */ t89097 = p774->a14327; /* x271236 Scheme-to-C-compatibility.sc:138:4885 */ p774->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p774->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 138, 4884); out_of_memory_error();} p774->a14327->s0.tag = ((unsigned)((unsigned char)t89096))<<2; /* MOVE: branching squeezed to general */ if (t89097>=((struct structure_type24753 *)VALUE_OFFSET)) {p774->a14327->s1.tag = STRUCTURE_TYPE24753; p774->a14327->s1.value.structure_type24753 = t89097;} else p774->a14327->s1.tag = (unsigned)t89097; /* x4689 Scheme-to-C-compatibility.sc:139:4910 */ /* x4688 Scheme-to-C-compatibility.sc:139:4923 */ /* x4686 Scheme-to-C-compatibility.sc:139:4929 */ t89098 = 'n'; /* x4687 Scheme-to-C-compatibility.sc:139:4933 */ t89099 = p774->a14327; /* x271235 Scheme-to-C-compatibility.sc:139:4924 */ p774->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p774->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 139, 4923); out_of_memory_error();} p774->a14327->s0.tag = ((unsigned)((unsigned char)t89098))<<2; /* MOVE: branching squeezed to general */ if (t89099>=((struct structure_type24753 *)VALUE_OFFSET)) {p774->a14327->s1.tag = STRUCTURE_TYPE24753; p774->a14327->s1.value.structure_type24753 = t89099;} else p774->a14327->s1.tag = (unsigned)t89099; /* x4659 */ t89085 = p774; p775 = t89085; /* x4658 Scheme-to-C-compatibility.sc:140:4949 */ /* x4657 Scheme-to-C-compatibility.sc:140:4962 */ /* x4655 Scheme-to-C-compatibility.sc:140:4968 */ t89086 = 'e'; /* x4656 Scheme-to-C-compatibility.sc:140:4972 */ t89087 = p775->a14327; /* x271241 Scheme-to-C-compatibility.sc:140:4963 */ p775->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p775->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 140, 4962); out_of_memory_error();} p775->a14327->s0.tag = ((unsigned)((unsigned char)t89086))<<2; /* MOVE: branching squeezed to general */ if (t89087>=((struct structure_type24753 *)VALUE_OFFSET)) {p775->a14327->s1.tag = STRUCTURE_TYPE24753; p775->a14327->s1.value.structure_type24753 = t89087;} else p775->a14327->s1.tag = (unsigned)t89087; return; l17139: /* x4733 */ /* x4696 */ /* x4694 */ t89065 = a14352; /* x4695 */ t89066 = ' '; /* x4693 */ t89067.tag = ((unsigned)((unsigned char)t89065))<<2; t89068.tag = ((unsigned)((unsigned char)t89066))<<2; if (f26160(t89067, t89068)==FALSE_TYPE) goto l17141; /* x4725 */ /* x4724 */ t89072 = p773; p776 = t89072; /* x4723 */ /* x4707 Scheme-to-C-compatibility.sc:142:5006 */ /* x4706 Scheme-to-C-compatibility.sc:142:5019 */ /* x4704 Scheme-to-C-compatibility.sc:142:5025 */ t89076 = 'S'; /* x4705 Scheme-to-C-compatibility.sc:142:5029 */ t89077 = p776->a14327; /* x271233 Scheme-to-C-compatibility.sc:142:5020 */ p776->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p776->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 142, 5019); out_of_memory_error();} p776->a14327->s0.tag = ((unsigned)((unsigned char)t89076))<<2; /* MOVE: branching squeezed to general */ if (t89077>=((struct structure_type24753 *)VALUE_OFFSET)) {p776->a14327->s1.tag = STRUCTURE_TYPE24753; p776->a14327->s1.value.structure_type24753 = t89077;} else p776->a14327->s1.tag = (unsigned)t89077; /* x4712 Scheme-to-C-compatibility.sc:143:5045 */ /* x4711 Scheme-to-C-compatibility.sc:143:5058 */ /* x4709 Scheme-to-C-compatibility.sc:143:5064 */ t89078 = 'p'; /* x4710 Scheme-to-C-compatibility.sc:143:5068 */ t89079 = p776->a14327; /* x271232 Scheme-to-C-compatibility.sc:143:5059 */ p776->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p776->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 143, 5058); out_of_memory_error();} p776->a14327->s0.tag = ((unsigned)((unsigned char)t89078))<<2; /* MOVE: branching squeezed to general */ if (t89079>=((struct structure_type24753 *)VALUE_OFFSET)) {p776->a14327->s1.tag = STRUCTURE_TYPE24753; p776->a14327->s1.value.structure_type24753 = t89079;} else p776->a14327->s1.tag = (unsigned)t89079; /* x4717 Scheme-to-C-compatibility.sc:144:5084 */ /* x4716 Scheme-to-C-compatibility.sc:144:5097 */ /* x4714 Scheme-to-C-compatibility.sc:144:5103 */ t89080 = 'a'; /* x4715 Scheme-to-C-compatibility.sc:144:5107 */ t89081 = p776->a14327; /* x271231 Scheme-to-C-compatibility.sc:144:5098 */ p776->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p776->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 144, 5097); out_of_memory_error();} p776->a14327->s0.tag = ((unsigned)((unsigned char)t89080))<<2; /* MOVE: branching squeezed to general */ if (t89081>=((struct structure_type24753 *)VALUE_OFFSET)) {p776->a14327->s1.tag = STRUCTURE_TYPE24753; p776->a14327->s1.value.structure_type24753 = t89081;} else p776->a14327->s1.tag = (unsigned)t89081; /* x4722 Scheme-to-C-compatibility.sc:145:5123 */ /* x4721 Scheme-to-C-compatibility.sc:145:5136 */ /* x4719 Scheme-to-C-compatibility.sc:145:5142 */ t89082 = 'c'; /* x4720 Scheme-to-C-compatibility.sc:145:5146 */ t89083 = p776->a14327; /* x271230 Scheme-to-C-compatibility.sc:145:5137 */ p776->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p776->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 145, 5136); out_of_memory_error();} p776->a14327->s0.tag = ((unsigned)((unsigned char)t89082))<<2; /* MOVE: branching squeezed to general */ if (t89083>=((struct structure_type24753 *)VALUE_OFFSET)) {p776->a14327->s1.tag = STRUCTURE_TYPE24753; p776->a14327->s1.value.structure_type24753 = t89083;} else p776->a14327->s1.tag = (unsigned)t89083; /* x4702 */ t89073 = p776; p777 = t89073; /* x4701 Scheme-to-C-compatibility.sc:146:5162 */ /* x4700 Scheme-to-C-compatibility.sc:146:5175 */ /* x4698 Scheme-to-C-compatibility.sc:146:5181 */ t89074 = 'e'; /* x4699 Scheme-to-C-compatibility.sc:146:5185 */ t89075 = p777->a14327; /* x271234 Scheme-to-C-compatibility.sc:146:5176 */ p777->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p777->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 146, 5175); out_of_memory_error();} p777->a14327->s0.tag = ((unsigned)((unsigned char)t89074))<<2; /* MOVE: branching squeezed to general */ if (t89075>=((struct structure_type24753 *)VALUE_OFFSET)) {p777->a14327->s1.tag = STRUCTURE_TYPE24753; p777->a14327->s1.value.structure_type24753 = t89075;} else p777->a14327->s1.tag = (unsigned)t89075; return; l17141: /* x4732 */ /* x4731 */ t89069 = p773; p778 = t89069; /* x4730 Scheme-to-C-compatibility.sc:147:5207 */ /* x4729 Scheme-to-C-compatibility.sc:147:5220 */ /* x4727 Scheme-to-C-compatibility.sc:147:5226 */ t89070 = (char)((a14346.tag)>>2); /* x4728 Scheme-to-C-compatibility.sc:147:5228 */ t89071 = p778->a14327; /* x271229 Scheme-to-C-compatibility.sc:147:5221 */ p778->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p778->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 147, 5220); out_of_memory_error();} p778->a14327->s0.tag = ((unsigned)((unsigned char)t89070))<<2; /* MOVE: branching squeezed to general */ if (t89071>=((struct structure_type24753 *)VALUE_OFFSET)) {p778->a14327->s1.tag = STRUCTURE_TYPE24753; p778->a14327->s1.value.structure_type24753 = t89071;} else p778->a14327->s1.tag = (unsigned)t89071; return; l17098: /* x5441 */ /* x4754 Scheme-to-C-compatibility.sc:148:5245 */ /* x4753 Scheme-to-C-compatibility.sc:148:5254 */ t88787 = *((struct w32134 *)(&a14346)); /* x271226 Scheme-to-C-compatibility.sc:148:5246 */ switch (t88787.tag) {case FIXNUM_TYPE: case FLONUM_TYPE: break; default: goto l17100;} /* x4769 */ /* x4768 */ t89048 = p764; p779 = t89048; /* x4767 Scheme-to-C-compatibility.sc:149:5262 */ /* x4766 Scheme-to-C-compatibility.sc:150:5323 */ /* x4765 Scheme-to-C-compatibility.sc:150:5337 */ /* x4764 Scheme-to-C-compatibility.sc:150:5353 */ t89055 = *((struct w30215 *)(&a14346)); /* x4763 Scheme-to-C-compatibility.sc:150:5338 */ t89056 = *((struct w49 *)(&t89055)); t89054 = f28396(t89056); /* x4762 Scheme-to-C-compatibility.sc:150:5324 */ a34032.tag = STRING_TYPE; a34032.value.string_type = t89054; t89050 = f27579(); /* x4761 Scheme-to-C-compatibility.sc:149:5272 */ t89049 = p779; /* x4755 Scheme-to-C-compatibility.sc:149:5263 */ t89051.tag = NATIVE_PROCEDURE_TYPE11214; t89051.value.native_procedure_type11214 = t89049; /* MOVE: branching squeezed to general */ if (t89050>=((struct structure_type24753 *)VALUE_OFFSET)) {t89052.tag = STRUCTURE_TYPE24753; t89052.value.structure_type24753 = t89050;} else t89052.tag = (unsigned)t89050; t89053 = (struct structure_type24753 *)NULL_TYPE; f27755(t89051, t89052, t89053); return; l17100: /* x5440 */ /* x4772 Scheme-to-C-compatibility.sc:151:5364 */ /* x4771 Scheme-to-C-compatibility.sc:151:5377 */ t88788 = *((struct w32119 *)(&a14346)); /* x271224 Scheme-to-C-compatibility.sc:151:5365 */ if (!((t88788.tag)==INPUT_PORT_TYPE)) goto l17102; /* x4841 */ /* x4840 */ t89020 = p764; p781 = t89020; /* x4839 */ /* x4783 Scheme-to-C-compatibility.sc:152:5385 */ /* x4782 Scheme-to-C-compatibility.sc:152:5398 */ /* x4780 Scheme-to-C-compatibility.sc:152:5404 */ t89024 = '#'; /* x4781 Scheme-to-C-compatibility.sc:152:5408 */ t89025 = p781->a14327; /* x271222 Scheme-to-C-compatibility.sc:152:5399 */ p781->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p781->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 152, 5398); out_of_memory_error();} p781->a14327->s0.tag = ((unsigned)((unsigned char)t89024))<<2; /* MOVE: branching squeezed to general */ if (t89025>=((struct structure_type24753 *)VALUE_OFFSET)) {p781->a14327->s1.tag = STRUCTURE_TYPE24753; p781->a14327->s1.value.structure_type24753 = t89025;} else p781->a14327->s1.tag = (unsigned)t89025; /* x4788 Scheme-to-C-compatibility.sc:153:5422 */ /* x4787 Scheme-to-C-compatibility.sc:153:5435 */ /* x4785 Scheme-to-C-compatibility.sc:153:5441 */ t89026 = '*'; /* x4786 Scheme-to-C-compatibility.sc:153:5445 */ t89027 = p781->a14327; /* x271221 Scheme-to-C-compatibility.sc:153:5436 */ p781->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p781->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 153, 5435); out_of_memory_error();} p781->a14327->s0.tag = ((unsigned)((unsigned char)t89026))<<2; /* MOVE: branching squeezed to general */ if (t89027>=((struct structure_type24753 *)VALUE_OFFSET)) {p781->a14327->s1.tag = STRUCTURE_TYPE24753; p781->a14327->s1.value.structure_type24753 = t89027;} else p781->a14327->s1.tag = (unsigned)t89027; /* x4793 Scheme-to-C-compatibility.sc:154:5459 */ /* x4792 Scheme-to-C-compatibility.sc:154:5472 */ /* x4790 Scheme-to-C-compatibility.sc:154:5478 */ t89028 = 'I'; /* x4791 Scheme-to-C-compatibility.sc:154:5482 */ t89029 = p781->a14327; /* x271220 Scheme-to-C-compatibility.sc:154:5473 */ p781->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p781->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 154, 5472); out_of_memory_error();} p781->a14327->s0.tag = ((unsigned)((unsigned char)t89028))<<2; /* MOVE: branching squeezed to general */ if (t89029>=((struct structure_type24753 *)VALUE_OFFSET)) {p781->a14327->s1.tag = STRUCTURE_TYPE24753; p781->a14327->s1.value.structure_type24753 = t89029;} else p781->a14327->s1.tag = (unsigned)t89029; /* x4798 Scheme-to-C-compatibility.sc:155:5496 */ /* x4797 Scheme-to-C-compatibility.sc:155:5509 */ /* x4795 Scheme-to-C-compatibility.sc:155:5515 */ t89030 = 'N'; /* x4796 Scheme-to-C-compatibility.sc:155:5519 */ t89031 = p781->a14327; /* x271219 Scheme-to-C-compatibility.sc:155:5510 */ p781->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p781->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 155, 5509); out_of_memory_error();} p781->a14327->s0.tag = ((unsigned)((unsigned char)t89030))<<2; /* MOVE: branching squeezed to general */ if (t89031>=((struct structure_type24753 *)VALUE_OFFSET)) {p781->a14327->s1.tag = STRUCTURE_TYPE24753; p781->a14327->s1.value.structure_type24753 = t89031;} else p781->a14327->s1.tag = (unsigned)t89031; /* x4803 Scheme-to-C-compatibility.sc:156:5533 */ /* x4802 Scheme-to-C-compatibility.sc:156:5546 */ /* x4800 Scheme-to-C-compatibility.sc:156:5552 */ t89032 = 'P'; /* x4801 Scheme-to-C-compatibility.sc:156:5556 */ t89033 = p781->a14327; /* x271218 Scheme-to-C-compatibility.sc:156:5547 */ p781->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p781->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 156, 5546); out_of_memory_error();} p781->a14327->s0.tag = ((unsigned)((unsigned char)t89032))<<2; /* MOVE: branching squeezed to general */ if (t89033>=((struct structure_type24753 *)VALUE_OFFSET)) {p781->a14327->s1.tag = STRUCTURE_TYPE24753; p781->a14327->s1.value.structure_type24753 = t89033;} else p781->a14327->s1.tag = (unsigned)t89033; /* x4808 Scheme-to-C-compatibility.sc:157:5570 */ /* x4807 Scheme-to-C-compatibility.sc:157:5583 */ /* x4805 Scheme-to-C-compatibility.sc:157:5589 */ t89034 = 'U'; /* x4806 Scheme-to-C-compatibility.sc:157:5593 */ t89035 = p781->a14327; /* x271217 Scheme-to-C-compatibility.sc:157:5584 */ p781->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p781->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 157, 5583); out_of_memory_error();} p781->a14327->s0.tag = ((unsigned)((unsigned char)t89034))<<2; /* MOVE: branching squeezed to general */ if (t89035>=((struct structure_type24753 *)VALUE_OFFSET)) {p781->a14327->s1.tag = STRUCTURE_TYPE24753; p781->a14327->s1.value.structure_type24753 = t89035;} else p781->a14327->s1.tag = (unsigned)t89035; /* x4813 Scheme-to-C-compatibility.sc:158:5607 */ /* x4812 Scheme-to-C-compatibility.sc:158:5620 */ /* x4810 Scheme-to-C-compatibility.sc:158:5626 */ t89036 = 'T'; /* x4811 Scheme-to-C-compatibility.sc:158:5630 */ t89037 = p781->a14327; /* x271216 Scheme-to-C-compatibility.sc:158:5621 */ p781->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p781->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 158, 5620); out_of_memory_error();} p781->a14327->s0.tag = ((unsigned)((unsigned char)t89036))<<2; /* MOVE: branching squeezed to general */ if (t89037>=((struct structure_type24753 *)VALUE_OFFSET)) {p781->a14327->s1.tag = STRUCTURE_TYPE24753; p781->a14327->s1.value.structure_type24753 = t89037;} else p781->a14327->s1.tag = (unsigned)t89037; /* x4818 Scheme-to-C-compatibility.sc:159:5644 */ /* x4817 Scheme-to-C-compatibility.sc:159:5657 */ /* x4815 Scheme-to-C-compatibility.sc:159:5663 */ t89038 = '-'; /* x4816 Scheme-to-C-compatibility.sc:159:5667 */ t89039 = p781->a14327; /* x271215 Scheme-to-C-compatibility.sc:159:5658 */ p781->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p781->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 159, 5657); out_of_memory_error();} p781->a14327->s0.tag = ((unsigned)((unsigned char)t89038))<<2; /* MOVE: branching squeezed to general */ if (t89039>=((struct structure_type24753 *)VALUE_OFFSET)) {p781->a14327->s1.tag = STRUCTURE_TYPE24753; p781->a14327->s1.value.structure_type24753 = t89039;} else p781->a14327->s1.tag = (unsigned)t89039; /* x4823 Scheme-to-C-compatibility.sc:160:5681 */ /* x4822 Scheme-to-C-compatibility.sc:160:5694 */ /* x4820 Scheme-to-C-compatibility.sc:160:5700 */ t89040 = 'P'; /* x4821 Scheme-to-C-compatibility.sc:160:5704 */ t89041 = p781->a14327; /* x271214 Scheme-to-C-compatibility.sc:160:5695 */ p781->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p781->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 160, 5694); out_of_memory_error();} p781->a14327->s0.tag = ((unsigned)((unsigned char)t89040))<<2; /* MOVE: branching squeezed to general */ if (t89041>=((struct structure_type24753 *)VALUE_OFFSET)) {p781->a14327->s1.tag = STRUCTURE_TYPE24753; p781->a14327->s1.value.structure_type24753 = t89041;} else p781->a14327->s1.tag = (unsigned)t89041; /* x4828 Scheme-to-C-compatibility.sc:161:5718 */ /* x4827 Scheme-to-C-compatibility.sc:161:5731 */ /* x4825 Scheme-to-C-compatibility.sc:161:5737 */ t89042 = 'O'; /* x4826 Scheme-to-C-compatibility.sc:161:5741 */ t89043 = p781->a14327; /* x271213 Scheme-to-C-compatibility.sc:161:5732 */ p781->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p781->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 161, 5731); out_of_memory_error();} p781->a14327->s0.tag = ((unsigned)((unsigned char)t89042))<<2; /* MOVE: branching squeezed to general */ if (t89043>=((struct structure_type24753 *)VALUE_OFFSET)) {p781->a14327->s1.tag = STRUCTURE_TYPE24753; p781->a14327->s1.value.structure_type24753 = t89043;} else p781->a14327->s1.tag = (unsigned)t89043; /* x4833 Scheme-to-C-compatibility.sc:162:5755 */ /* x4832 Scheme-to-C-compatibility.sc:162:5768 */ /* x4830 Scheme-to-C-compatibility.sc:162:5774 */ t89044 = 'R'; /* x4831 Scheme-to-C-compatibility.sc:162:5778 */ t89045 = p781->a14327; /* x271212 Scheme-to-C-compatibility.sc:162:5769 */ p781->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p781->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 162, 5768); out_of_memory_error();} p781->a14327->s0.tag = ((unsigned)((unsigned char)t89044))<<2; /* MOVE: branching squeezed to general */ if (t89045>=((struct structure_type24753 *)VALUE_OFFSET)) {p781->a14327->s1.tag = STRUCTURE_TYPE24753; p781->a14327->s1.value.structure_type24753 = t89045;} else p781->a14327->s1.tag = (unsigned)t89045; /* x4838 Scheme-to-C-compatibility.sc:163:5792 */ /* x4837 Scheme-to-C-compatibility.sc:163:5805 */ /* x4835 Scheme-to-C-compatibility.sc:163:5811 */ t89046 = 'T'; /* x4836 Scheme-to-C-compatibility.sc:163:5815 */ t89047 = p781->a14327; /* x271211 Scheme-to-C-compatibility.sc:163:5806 */ p781->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p781->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 163, 5805); out_of_memory_error();} p781->a14327->s0.tag = ((unsigned)((unsigned char)t89046))<<2; /* MOVE: branching squeezed to general */ if (t89047>=((struct structure_type24753 *)VALUE_OFFSET)) {p781->a14327->s1.tag = STRUCTURE_TYPE24753; p781->a14327->s1.value.structure_type24753 = t89047;} else p781->a14327->s1.tag = (unsigned)t89047; /* x4778 */ t89021 = p781; p782 = t89021; /* x4777 Scheme-to-C-compatibility.sc:164:5829 */ /* x4776 Scheme-to-C-compatibility.sc:164:5842 */ /* x4774 Scheme-to-C-compatibility.sc:164:5848 */ t89022 = '*'; /* x4775 Scheme-to-C-compatibility.sc:164:5852 */ t89023 = p782->a14327; /* x271223 Scheme-to-C-compatibility.sc:164:5843 */ p782->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p782->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 164, 5842); out_of_memory_error();} p782->a14327->s0.tag = ((unsigned)((unsigned char)t89022))<<2; /* MOVE: branching squeezed to general */ if (t89023>=((struct structure_type24753 *)VALUE_OFFSET)) {p782->a14327->s1.tag = STRUCTURE_TYPE24753; p782->a14327->s1.value.structure_type24753 = t89023;} else p782->a14327->s1.tag = (unsigned)t89023; return; l17102: /* x5439 */ /* x4844 Scheme-to-C-compatibility.sc:165:5867 */ /* x4843 Scheme-to-C-compatibility.sc:165:5881 */ t88789 = *((struct w32111 *)(&a14346)); /* x271210 Scheme-to-C-compatibility.sc:165:5868 */ if (!((t88789.tag)==OUTPUT_PORT_TYPE)) goto l17104; /* x4918 */ /* x4917 */ t88990 = p764; p783 = t88990; /* x4916 */ /* x4855 Scheme-to-C-compatibility.sc:166:5889 */ /* x4854 Scheme-to-C-compatibility.sc:166:5902 */ /* x4852 Scheme-to-C-compatibility.sc:166:5908 */ t88994 = '#'; /* x4853 Scheme-to-C-compatibility.sc:166:5912 */ t88995 = p783->a14327; /* x271208 Scheme-to-C-compatibility.sc:166:5903 */ p783->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p783->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 166, 5902); out_of_memory_error();} p783->a14327->s0.tag = ((unsigned)((unsigned char)t88994))<<2; /* MOVE: branching squeezed to general */ if (t88995>=((struct structure_type24753 *)VALUE_OFFSET)) {p783->a14327->s1.tag = STRUCTURE_TYPE24753; p783->a14327->s1.value.structure_type24753 = t88995;} else p783->a14327->s1.tag = (unsigned)t88995; /* x4860 Scheme-to-C-compatibility.sc:167:5926 */ /* x4859 Scheme-to-C-compatibility.sc:167:5939 */ /* x4857 Scheme-to-C-compatibility.sc:167:5945 */ t88996 = '*'; /* x4858 Scheme-to-C-compatibility.sc:167:5949 */ t88997 = p783->a14327; /* x271207 Scheme-to-C-compatibility.sc:167:5940 */ p783->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p783->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 167, 5939); out_of_memory_error();} p783->a14327->s0.tag = ((unsigned)((unsigned char)t88996))<<2; /* MOVE: branching squeezed to general */ if (t88997>=((struct structure_type24753 *)VALUE_OFFSET)) {p783->a14327->s1.tag = STRUCTURE_TYPE24753; p783->a14327->s1.value.structure_type24753 = t88997;} else p783->a14327->s1.tag = (unsigned)t88997; /* x4865 Scheme-to-C-compatibility.sc:168:5963 */ /* x4864 Scheme-to-C-compatibility.sc:168:5976 */ /* x4862 Scheme-to-C-compatibility.sc:168:5982 */ t88998 = 'O'; /* x4863 Scheme-to-C-compatibility.sc:168:5986 */ t88999 = p783->a14327; /* x271206 Scheme-to-C-compatibility.sc:168:5977 */ p783->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p783->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 168, 5976); out_of_memory_error();} p783->a14327->s0.tag = ((unsigned)((unsigned char)t88998))<<2; /* MOVE: branching squeezed to general */ if (t88999>=((struct structure_type24753 *)VALUE_OFFSET)) {p783->a14327->s1.tag = STRUCTURE_TYPE24753; p783->a14327->s1.value.structure_type24753 = t88999;} else p783->a14327->s1.tag = (unsigned)t88999; /* x4870 Scheme-to-C-compatibility.sc:169:6000 */ /* x4869 Scheme-to-C-compatibility.sc:169:6013 */ /* x4867 Scheme-to-C-compatibility.sc:169:6019 */ t89000 = 'U'; /* x4868 Scheme-to-C-compatibility.sc:169:6023 */ t89001 = p783->a14327; /* x271205 Scheme-to-C-compatibility.sc:169:6014 */ p783->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p783->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 169, 6013); out_of_memory_error();} p783->a14327->s0.tag = ((unsigned)((unsigned char)t89000))<<2; /* MOVE: branching squeezed to general */ if (t89001>=((struct structure_type24753 *)VALUE_OFFSET)) {p783->a14327->s1.tag = STRUCTURE_TYPE24753; p783->a14327->s1.value.structure_type24753 = t89001;} else p783->a14327->s1.tag = (unsigned)t89001; /* x4875 Scheme-to-C-compatibility.sc:170:6037 */ /* x4874 Scheme-to-C-compatibility.sc:170:6050 */ /* x4872 Scheme-to-C-compatibility.sc:170:6056 */ t89002 = 'T'; /* x4873 Scheme-to-C-compatibility.sc:170:6060 */ t89003 = p783->a14327; /* x271204 Scheme-to-C-compatibility.sc:170:6051 */ p783->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p783->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 170, 6050); out_of_memory_error();} p783->a14327->s0.tag = ((unsigned)((unsigned char)t89002))<<2; /* MOVE: branching squeezed to general */ if (t89003>=((struct structure_type24753 *)VALUE_OFFSET)) {p783->a14327->s1.tag = STRUCTURE_TYPE24753; p783->a14327->s1.value.structure_type24753 = t89003;} else p783->a14327->s1.tag = (unsigned)t89003; /* x4880 Scheme-to-C-compatibility.sc:171:6074 */ /* x4879 Scheme-to-C-compatibility.sc:171:6087 */ /* x4877 Scheme-to-C-compatibility.sc:171:6093 */ t89004 = 'P'; /* x4878 Scheme-to-C-compatibility.sc:171:6097 */ t89005 = p783->a14327; /* x271203 Scheme-to-C-compatibility.sc:171:6088 */ p783->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p783->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 171, 6087); out_of_memory_error();} p783->a14327->s0.tag = ((unsigned)((unsigned char)t89004))<<2; /* MOVE: branching squeezed to general */ if (t89005>=((struct structure_type24753 *)VALUE_OFFSET)) {p783->a14327->s1.tag = STRUCTURE_TYPE24753; p783->a14327->s1.value.structure_type24753 = t89005;} else p783->a14327->s1.tag = (unsigned)t89005; /* x4885 Scheme-to-C-compatibility.sc:172:6111 */ /* x4884 Scheme-to-C-compatibility.sc:172:6124 */ /* x4882 Scheme-to-C-compatibility.sc:172:6130 */ t89006 = 'U'; /* x4883 Scheme-to-C-compatibility.sc:172:6134 */ t89007 = p783->a14327; /* x271202 Scheme-to-C-compatibility.sc:172:6125 */ p783->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p783->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 172, 6124); out_of_memory_error();} p783->a14327->s0.tag = ((unsigned)((unsigned char)t89006))<<2; /* MOVE: branching squeezed to general */ if (t89007>=((struct structure_type24753 *)VALUE_OFFSET)) {p783->a14327->s1.tag = STRUCTURE_TYPE24753; p783->a14327->s1.value.structure_type24753 = t89007;} else p783->a14327->s1.tag = (unsigned)t89007; /* x4890 Scheme-to-C-compatibility.sc:173:6148 */ /* x4889 Scheme-to-C-compatibility.sc:173:6161 */ /* x4887 Scheme-to-C-compatibility.sc:173:6167 */ t89008 = 'T'; /* x4888 Scheme-to-C-compatibility.sc:173:6171 */ t89009 = p783->a14327; /* x271201 Scheme-to-C-compatibility.sc:173:6162 */ p783->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p783->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 173, 6161); out_of_memory_error();} p783->a14327->s0.tag = ((unsigned)((unsigned char)t89008))<<2; /* MOVE: branching squeezed to general */ if (t89009>=((struct structure_type24753 *)VALUE_OFFSET)) {p783->a14327->s1.tag = STRUCTURE_TYPE24753; p783->a14327->s1.value.structure_type24753 = t89009;} else p783->a14327->s1.tag = (unsigned)t89009; /* x4895 Scheme-to-C-compatibility.sc:174:6185 */ /* x4894 Scheme-to-C-compatibility.sc:174:6198 */ /* x4892 Scheme-to-C-compatibility.sc:174:6204 */ t89010 = '-'; /* x4893 Scheme-to-C-compatibility.sc:174:6208 */ t89011 = p783->a14327; /* x271200 Scheme-to-C-compatibility.sc:174:6199 */ p783->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p783->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 174, 6198); out_of_memory_error();} p783->a14327->s0.tag = ((unsigned)((unsigned char)t89010))<<2; /* MOVE: branching squeezed to general */ if (t89011>=((struct structure_type24753 *)VALUE_OFFSET)) {p783->a14327->s1.tag = STRUCTURE_TYPE24753; p783->a14327->s1.value.structure_type24753 = t89011;} else p783->a14327->s1.tag = (unsigned)t89011; /* x4900 Scheme-to-C-compatibility.sc:175:6222 */ /* x4899 Scheme-to-C-compatibility.sc:175:6235 */ /* x4897 Scheme-to-C-compatibility.sc:175:6241 */ t89012 = 'P'; /* x4898 Scheme-to-C-compatibility.sc:175:6245 */ t89013 = p783->a14327; /* x271199 Scheme-to-C-compatibility.sc:175:6236 */ p783->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p783->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 175, 6235); out_of_memory_error();} p783->a14327->s0.tag = ((unsigned)((unsigned char)t89012))<<2; /* MOVE: branching squeezed to general */ if (t89013>=((struct structure_type24753 *)VALUE_OFFSET)) {p783->a14327->s1.tag = STRUCTURE_TYPE24753; p783->a14327->s1.value.structure_type24753 = t89013;} else p783->a14327->s1.tag = (unsigned)t89013; /* x4905 Scheme-to-C-compatibility.sc:176:6259 */ /* x4904 Scheme-to-C-compatibility.sc:176:6272 */ /* x4902 Scheme-to-C-compatibility.sc:176:6278 */ t89014 = 'O'; /* x4903 Scheme-to-C-compatibility.sc:176:6282 */ t89015 = p783->a14327; /* x271198 Scheme-to-C-compatibility.sc:176:6273 */ p783->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p783->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 176, 6272); out_of_memory_error();} p783->a14327->s0.tag = ((unsigned)((unsigned char)t89014))<<2; /* MOVE: branching squeezed to general */ if (t89015>=((struct structure_type24753 *)VALUE_OFFSET)) {p783->a14327->s1.tag = STRUCTURE_TYPE24753; p783->a14327->s1.value.structure_type24753 = t89015;} else p783->a14327->s1.tag = (unsigned)t89015; /* x4910 Scheme-to-C-compatibility.sc:177:6296 */ /* x4909 Scheme-to-C-compatibility.sc:177:6309 */ /* x4907 Scheme-to-C-compatibility.sc:177:6315 */ t89016 = 'R'; /* x4908 Scheme-to-C-compatibility.sc:177:6319 */ t89017 = p783->a14327; /* x271197 Scheme-to-C-compatibility.sc:177:6310 */ p783->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p783->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 177, 6309); out_of_memory_error();} p783->a14327->s0.tag = ((unsigned)((unsigned char)t89016))<<2; /* MOVE: branching squeezed to general */ if (t89017>=((struct structure_type24753 *)VALUE_OFFSET)) {p783->a14327->s1.tag = STRUCTURE_TYPE24753; p783->a14327->s1.value.structure_type24753 = t89017;} else p783->a14327->s1.tag = (unsigned)t89017; /* x4915 Scheme-to-C-compatibility.sc:178:6333 */ /* x4914 Scheme-to-C-compatibility.sc:178:6346 */ /* x4912 Scheme-to-C-compatibility.sc:178:6352 */ t89018 = 'T'; /* x4913 Scheme-to-C-compatibility.sc:178:6356 */ t89019 = p783->a14327; /* x271196 Scheme-to-C-compatibility.sc:178:6347 */ p783->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p783->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 178, 6346); out_of_memory_error();} p783->a14327->s0.tag = ((unsigned)((unsigned char)t89018))<<2; /* MOVE: branching squeezed to general */ if (t89019>=((struct structure_type24753 *)VALUE_OFFSET)) {p783->a14327->s1.tag = STRUCTURE_TYPE24753; p783->a14327->s1.value.structure_type24753 = t89019;} else p783->a14327->s1.tag = (unsigned)t89019; /* x4850 */ t88991 = p783; p784 = t88991; /* x4849 Scheme-to-C-compatibility.sc:179:6370 */ /* x4848 Scheme-to-C-compatibility.sc:179:6383 */ /* x4846 Scheme-to-C-compatibility.sc:179:6389 */ t88992 = '*'; /* x4847 Scheme-to-C-compatibility.sc:179:6393 */ t88993 = p784->a14327; /* x271209 Scheme-to-C-compatibility.sc:179:6384 */ p784->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p784->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 179, 6383); out_of_memory_error();} p784->a14327->s0.tag = ((unsigned)((unsigned char)t88992))<<2; /* MOVE: branching squeezed to general */ if (t88993>=((struct structure_type24753 *)VALUE_OFFSET)) {p784->a14327->s1.tag = STRUCTURE_TYPE24753; p784->a14327->s1.value.structure_type24753 = t88993;} else p784->a14327->s1.tag = (unsigned)t88993; return; l17104: /* x5438 */ /* x4921 Scheme-to-C-compatibility.sc:180:6408 */ /* x4920 Scheme-to-C-compatibility.sc:180:6421 */ t88790 = *((struct w32103 *)(&a14346)); /* x271195 Scheme-to-C-compatibility.sc:180:6409 */ if (!((t88790.tag)==EOF_OBJECT_TYPE)) goto l17106; /* x4990 */ /* x4989 */ t88962 = p764; p785 = t88962; /* x4988 */ /* x4932 Scheme-to-C-compatibility.sc:181:6429 */ /* x4931 Scheme-to-C-compatibility.sc:181:6442 */ /* x4929 Scheme-to-C-compatibility.sc:181:6448 */ t88966 = '#'; /* x4930 Scheme-to-C-compatibility.sc:181:6452 */ t88967 = p785->a14327; /* x271193 Scheme-to-C-compatibility.sc:181:6443 */ p785->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p785->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 181, 6442); out_of_memory_error();} p785->a14327->s0.tag = ((unsigned)((unsigned char)t88966))<<2; /* MOVE: branching squeezed to general */ if (t88967>=((struct structure_type24753 *)VALUE_OFFSET)) {p785->a14327->s1.tag = STRUCTURE_TYPE24753; p785->a14327->s1.value.structure_type24753 = t88967;} else p785->a14327->s1.tag = (unsigned)t88967; /* x4937 Scheme-to-C-compatibility.sc:182:6466 */ /* x4936 Scheme-to-C-compatibility.sc:182:6479 */ /* x4934 Scheme-to-C-compatibility.sc:182:6485 */ t88968 = '*'; /* x4935 Scheme-to-C-compatibility.sc:182:6489 */ t88969 = p785->a14327; /* x271192 Scheme-to-C-compatibility.sc:182:6480 */ p785->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p785->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 182, 6479); out_of_memory_error();} p785->a14327->s0.tag = ((unsigned)((unsigned char)t88968))<<2; /* MOVE: branching squeezed to general */ if (t88969>=((struct structure_type24753 *)VALUE_OFFSET)) {p785->a14327->s1.tag = STRUCTURE_TYPE24753; p785->a14327->s1.value.structure_type24753 = t88969;} else p785->a14327->s1.tag = (unsigned)t88969; /* x4942 Scheme-to-C-compatibility.sc:183:6503 */ /* x4941 Scheme-to-C-compatibility.sc:183:6516 */ /* x4939 Scheme-to-C-compatibility.sc:183:6522 */ t88970 = 'E'; /* x4940 Scheme-to-C-compatibility.sc:183:6526 */ t88971 = p785->a14327; /* x271191 Scheme-to-C-compatibility.sc:183:6517 */ p785->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p785->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 183, 6516); out_of_memory_error();} p785->a14327->s0.tag = ((unsigned)((unsigned char)t88970))<<2; /* MOVE: branching squeezed to general */ if (t88971>=((struct structure_type24753 *)VALUE_OFFSET)) {p785->a14327->s1.tag = STRUCTURE_TYPE24753; p785->a14327->s1.value.structure_type24753 = t88971;} else p785->a14327->s1.tag = (unsigned)t88971; /* x4947 Scheme-to-C-compatibility.sc:184:6540 */ /* x4946 Scheme-to-C-compatibility.sc:184:6553 */ /* x4944 Scheme-to-C-compatibility.sc:184:6559 */ t88972 = 'O'; /* x4945 Scheme-to-C-compatibility.sc:184:6563 */ t88973 = p785->a14327; /* x271190 Scheme-to-C-compatibility.sc:184:6554 */ p785->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p785->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 184, 6553); out_of_memory_error();} p785->a14327->s0.tag = ((unsigned)((unsigned char)t88972))<<2; /* MOVE: branching squeezed to general */ if (t88973>=((struct structure_type24753 *)VALUE_OFFSET)) {p785->a14327->s1.tag = STRUCTURE_TYPE24753; p785->a14327->s1.value.structure_type24753 = t88973;} else p785->a14327->s1.tag = (unsigned)t88973; /* x4952 Scheme-to-C-compatibility.sc:185:6577 */ /* x4951 Scheme-to-C-compatibility.sc:185:6590 */ /* x4949 Scheme-to-C-compatibility.sc:185:6596 */ t88974 = 'F'; /* x4950 Scheme-to-C-compatibility.sc:185:6600 */ t88975 = p785->a14327; /* x271189 Scheme-to-C-compatibility.sc:185:6591 */ p785->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p785->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 185, 6590); out_of_memory_error();} p785->a14327->s0.tag = ((unsigned)((unsigned char)t88974))<<2; /* MOVE: branching squeezed to general */ if (t88975>=((struct structure_type24753 *)VALUE_OFFSET)) {p785->a14327->s1.tag = STRUCTURE_TYPE24753; p785->a14327->s1.value.structure_type24753 = t88975;} else p785->a14327->s1.tag = (unsigned)t88975; /* x4957 Scheme-to-C-compatibility.sc:186:6614 */ /* x4956 Scheme-to-C-compatibility.sc:186:6627 */ /* x4954 Scheme-to-C-compatibility.sc:186:6633 */ t88976 = '-'; /* x4955 Scheme-to-C-compatibility.sc:186:6637 */ t88977 = p785->a14327; /* x271188 Scheme-to-C-compatibility.sc:186:6628 */ p785->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p785->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 186, 6627); out_of_memory_error();} p785->a14327->s0.tag = ((unsigned)((unsigned char)t88976))<<2; /* MOVE: branching squeezed to general */ if (t88977>=((struct structure_type24753 *)VALUE_OFFSET)) {p785->a14327->s1.tag = STRUCTURE_TYPE24753; p785->a14327->s1.value.structure_type24753 = t88977;} else p785->a14327->s1.tag = (unsigned)t88977; /* x4962 Scheme-to-C-compatibility.sc:187:6651 */ /* x4961 Scheme-to-C-compatibility.sc:187:6664 */ /* x4959 Scheme-to-C-compatibility.sc:187:6670 */ t88978 = 'O'; /* x4960 Scheme-to-C-compatibility.sc:187:6674 */ t88979 = p785->a14327; /* x271187 Scheme-to-C-compatibility.sc:187:6665 */ p785->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p785->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 187, 6664); out_of_memory_error();} p785->a14327->s0.tag = ((unsigned)((unsigned char)t88978))<<2; /* MOVE: branching squeezed to general */ if (t88979>=((struct structure_type24753 *)VALUE_OFFSET)) {p785->a14327->s1.tag = STRUCTURE_TYPE24753; p785->a14327->s1.value.structure_type24753 = t88979;} else p785->a14327->s1.tag = (unsigned)t88979; /* x4967 Scheme-to-C-compatibility.sc:188:6688 */ /* x4966 Scheme-to-C-compatibility.sc:188:6701 */ /* x4964 Scheme-to-C-compatibility.sc:188:6707 */ t88980 = 'B'; /* x4965 Scheme-to-C-compatibility.sc:188:6711 */ t88981 = p785->a14327; /* x271186 Scheme-to-C-compatibility.sc:188:6702 */ p785->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p785->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 188, 6701); out_of_memory_error();} p785->a14327->s0.tag = ((unsigned)((unsigned char)t88980))<<2; /* MOVE: branching squeezed to general */ if (t88981>=((struct structure_type24753 *)VALUE_OFFSET)) {p785->a14327->s1.tag = STRUCTURE_TYPE24753; p785->a14327->s1.value.structure_type24753 = t88981;} else p785->a14327->s1.tag = (unsigned)t88981; /* x4972 Scheme-to-C-compatibility.sc:189:6725 */ /* x4971 Scheme-to-C-compatibility.sc:189:6738 */ /* x4969 Scheme-to-C-compatibility.sc:189:6744 */ t88982 = 'J'; /* x4970 Scheme-to-C-compatibility.sc:189:6748 */ t88983 = p785->a14327; /* x271185 Scheme-to-C-compatibility.sc:189:6739 */ p785->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p785->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 189, 6738); out_of_memory_error();} p785->a14327->s0.tag = ((unsigned)((unsigned char)t88982))<<2; /* MOVE: branching squeezed to general */ if (t88983>=((struct structure_type24753 *)VALUE_OFFSET)) {p785->a14327->s1.tag = STRUCTURE_TYPE24753; p785->a14327->s1.value.structure_type24753 = t88983;} else p785->a14327->s1.tag = (unsigned)t88983; /* x4977 Scheme-to-C-compatibility.sc:190:6762 */ /* x4976 Scheme-to-C-compatibility.sc:190:6775 */ /* x4974 Scheme-to-C-compatibility.sc:190:6781 */ t88984 = 'E'; /* x4975 Scheme-to-C-compatibility.sc:190:6785 */ t88985 = p785->a14327; /* x271184 Scheme-to-C-compatibility.sc:190:6776 */ p785->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p785->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 190, 6775); out_of_memory_error();} p785->a14327->s0.tag = ((unsigned)((unsigned char)t88984))<<2; /* MOVE: branching squeezed to general */ if (t88985>=((struct structure_type24753 *)VALUE_OFFSET)) {p785->a14327->s1.tag = STRUCTURE_TYPE24753; p785->a14327->s1.value.structure_type24753 = t88985;} else p785->a14327->s1.tag = (unsigned)t88985; /* x4982 Scheme-to-C-compatibility.sc:191:6799 */ /* x4981 Scheme-to-C-compatibility.sc:191:6812 */ /* x4979 Scheme-to-C-compatibility.sc:191:6818 */ t88986 = 'C'; /* x4980 Scheme-to-C-compatibility.sc:191:6822 */ t88987 = p785->a14327; /* x271183 Scheme-to-C-compatibility.sc:191:6813 */ p785->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p785->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 191, 6812); out_of_memory_error();} p785->a14327->s0.tag = ((unsigned)((unsigned char)t88986))<<2; /* MOVE: branching squeezed to general */ if (t88987>=((struct structure_type24753 *)VALUE_OFFSET)) {p785->a14327->s1.tag = STRUCTURE_TYPE24753; p785->a14327->s1.value.structure_type24753 = t88987;} else p785->a14327->s1.tag = (unsigned)t88987; /* x4987 Scheme-to-C-compatibility.sc:192:6836 */ /* x4986 Scheme-to-C-compatibility.sc:192:6849 */ /* x4984 Scheme-to-C-compatibility.sc:192:6855 */ t88988 = 'T'; /* x4985 Scheme-to-C-compatibility.sc:192:6859 */ t88989 = p785->a14327; /* x271182 Scheme-to-C-compatibility.sc:192:6850 */ p785->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p785->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 192, 6849); out_of_memory_error();} p785->a14327->s0.tag = ((unsigned)((unsigned char)t88988))<<2; /* MOVE: branching squeezed to general */ if (t88989>=((struct structure_type24753 *)VALUE_OFFSET)) {p785->a14327->s1.tag = STRUCTURE_TYPE24753; p785->a14327->s1.value.structure_type24753 = t88989;} else p785->a14327->s1.tag = (unsigned)t88989; /* x4927 */ t88963 = p785; p786 = t88963; /* x4926 Scheme-to-C-compatibility.sc:193:6873 */ /* x4925 Scheme-to-C-compatibility.sc:193:6886 */ /* x4923 Scheme-to-C-compatibility.sc:193:6892 */ t88964 = '*'; /* x4924 Scheme-to-C-compatibility.sc:193:6896 */ t88965 = p786->a14327; /* x271194 Scheme-to-C-compatibility.sc:193:6887 */ p786->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p786->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 193, 6886); out_of_memory_error();} p786->a14327->s0.tag = ((unsigned)((unsigned char)t88964))<<2; /* MOVE: branching squeezed to general */ if (t88965>=((struct structure_type24753 *)VALUE_OFFSET)) {p786->a14327->s1.tag = STRUCTURE_TYPE24753; p786->a14327->s1.value.structure_type24753 = t88965;} else p786->a14327->s1.tag = (unsigned)t88965; return; l17106: /* x5437 */ /* x4993 Scheme-to-C-compatibility.sc:194:6911 */ /* x4992 Scheme-to-C-compatibility.sc:194:6921 */ t88791 = *((struct w32087 *)(&a14346)); /* x271181 Scheme-to-C-compatibility.sc:194:6912 */ /* x5436 */ /* x5050 Scheme-to-C-compatibility.sc:205:7300 */ /* x5049 Scheme-to-C-compatibility.sc:205:7309 */ t88792 = *((struct w32087 *)(&a14346)); /* x271170 Scheme-to-C-compatibility.sc:205:7301 */ if (!((t88792.tag)==EXTERNAL_SYMBOL_TYPE)) goto l17109; /* x5100 */ /* x5099 */ t88938 = p764; p789 = t88938; /* x5098 Scheme-to-C-compatibility.sc:207:7354 */ /* x5097 Scheme-to-C-compatibility.sc:207:7364 */ /* x5096 Scheme-to-C-compatibility.sc:207:7380 */ t88961 = a14346.value.external_symbol_type; /* x271164 Scheme-to-C-compatibility.sc:207:7365 */ t88940 = t88961; /* x5094 */ t88939 = p789; p790 = t88939; a14410 = t88940; /* x5093 */ /* x5092 Scheme-to-C-compatibility.sc:208:7392 */ /* x5091 Scheme-to-C-compatibility.sc:208:7407 */ t88960 = a14410; /* x271165 Scheme-to-C-compatibility.sc:208:7393 */ t88942 = strlen(t88960); /* x5089 */ t88941 = p790; p791 = t88941; a14411 = t88942; /* x5088 */ /* x5087 */ t88943 = p791; p792 = t88943; /* x5086 Scheme-to-C-compatibility.sc:209:7418 */ /* x5085 Scheme-to-C-compatibility.sc:209:7432 */ t88945 = 0; /* x5084 */ /* x5083 */ /* x5082 */ /* x5081 */ t88958 = p792; p793 = t88958; /* x5080 */ /* x5079 */ /* x5078 */ /* x5052 */ t88959 = p793; p794 = t88959; /* x5051 Scheme-to-C-compatibility.sc:209:7423 */ t88944 = p794; p795 = t88944; a14414 = t88945; h795: /* x5077 Scheme-to-C-compatibility.sc:210:7443 */ /* x5056 Scheme-to-C-compatibility.sc:210:7449 */ /* x5054 Scheme-to-C-compatibility.sc:210:7452 */ t88946 = a14414; /* x5055 Scheme-to-C-compatibility.sc:210:7454 */ t88947 = a14411; /* x271169 Scheme-to-C-compatibility.sc:210:7450 */ if (!(t88946=strlen(t88956))) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 211, 7484); string_ref3_error();} t88954 = t88956[t88957]; /* x5069 Scheme-to-C-compatibility.sc:211:7501 */ t88955 = p796->a14327; /* x271167 Scheme-to-C-compatibility.sc:211:7479 */ p796->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p796->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 211, 7478); out_of_memory_error();} p796->a14327->s0.tag = ((unsigned)((unsigned char)t88954))<<2; /* MOVE: branching squeezed to general */ if (t88955>=((struct structure_type24753 *)VALUE_OFFSET)) {p796->a14327->s1.tag = STRUCTURE_TYPE24753; p796->a14327->s1.value.structure_type24753 = t88955;} else p796->a14327->s1.tag = (unsigned)t88955; /* x5063 */ t88949 = p796; p797 = t88949; /* x5062 Scheme-to-C-compatibility.sc:212:7518 */ /* x5061 Scheme-to-C-compatibility.sc:212:7524 */ /* x5059 Scheme-to-C-compatibility.sc:212:7527 */ t88952 = a14414; /* x5060 Scheme-to-C-compatibility.sc:212:7529 */ t88953 = 1; /* x271168 Scheme-to-C-compatibility.sc:212:7525 */ t88951 = t88952+t88953; /* x5057 Scheme-to-C-compatibility.sc:212:7519 */ t88950 = p797; p795 = t88950; a14414 = t88951; goto h795; l17137: /* x5076 Scheme-to-C-compatibility.sc:210:7443 */ /* x5075 Scheme-to-C-compatibility.sc:210:7443 */ return; l17109: /* x5435 */ /* x5103 Scheme-to-C-compatibility.sc:213:7542 */ /* x5102 Scheme-to-C-compatibility.sc:213:7554 */ t88793 = *((struct w32078 *)(&a14346)); /* x271163 Scheme-to-C-compatibility.sc:213:7543 */ switch (t88793.tag) {case TRUE_TYPE: case STRUCTURE_TYPE24753: case STRUCTURE_TYPE24757: case STRUCTURE_TYPE27501: case STRUCTURE_TYPE27510: case STRUCTURE_TYPE27621: case STRUCTURE_TYPE27650: case STRUCTURE_TYPE27669: case STRUCTURE_TYPE27673: case STRUCTURE_TYPE27692: case STRUCTURE_TYPE27694: case STRUCTURE_TYPE27698: case STRUCTURE_TYPE27745: case STRUCTURE_TYPE27747: case STRUCTURE_TYPE27750: case STRUCTURE_TYPE27753: case STRUCTURE_TYPE27756: case STRUCTURE_TYPE27761: case STRUCTURE_TYPE27769: case STRUCTURE_TYPE27776: case STRUCTURE_TYPE27779: case STRUCTURE_TYPE27858: case STRING_TYPE: case HEADED_VECTOR_TYPE27896: case STRUCTURE_TYPE27908: goto l17111; break; default:;} /* x5167 */ /* x5166 */ t88912 = p764; p800 = t88912; /* x5165 */ /* x5114 Scheme-to-C-compatibility.sc:214:7562 */ /* x5113 Scheme-to-C-compatibility.sc:214:7575 */ /* x5111 Scheme-to-C-compatibility.sc:214:7581 */ t88916 = '#'; /* x5112 Scheme-to-C-compatibility.sc:214:7585 */ t88917 = p800->a14327; /* x271161 Scheme-to-C-compatibility.sc:214:7576 */ p800->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p800->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 214, 7575); out_of_memory_error();} p800->a14327->s0.tag = ((unsigned)((unsigned char)t88916))<<2; /* MOVE: branching squeezed to general */ if (t88917>=((struct structure_type24753 *)VALUE_OFFSET)) {p800->a14327->s1.tag = STRUCTURE_TYPE24753; p800->a14327->s1.value.structure_type24753 = t88917;} else p800->a14327->s1.tag = (unsigned)t88917; /* x5119 Scheme-to-C-compatibility.sc:215:7599 */ /* x5118 Scheme-to-C-compatibility.sc:215:7612 */ /* x5116 Scheme-to-C-compatibility.sc:215:7618 */ t88918 = '*'; /* x5117 Scheme-to-C-compatibility.sc:215:7622 */ t88919 = p800->a14327; /* x271160 Scheme-to-C-compatibility.sc:215:7613 */ p800->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p800->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 215, 7612); out_of_memory_error();} p800->a14327->s0.tag = ((unsigned)((unsigned char)t88918))<<2; /* MOVE: branching squeezed to general */ if (t88919>=((struct structure_type24753 *)VALUE_OFFSET)) {p800->a14327->s1.tag = STRUCTURE_TYPE24753; p800->a14327->s1.value.structure_type24753 = t88919;} else p800->a14327->s1.tag = (unsigned)t88919; /* x5124 Scheme-to-C-compatibility.sc:216:7636 */ /* x5123 Scheme-to-C-compatibility.sc:216:7649 */ /* x5121 Scheme-to-C-compatibility.sc:216:7655 */ t88920 = 'P'; /* x5122 Scheme-to-C-compatibility.sc:216:7659 */ t88921 = p800->a14327; /* x271159 Scheme-to-C-compatibility.sc:216:7650 */ p800->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p800->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 216, 7649); out_of_memory_error();} p800->a14327->s0.tag = ((unsigned)((unsigned char)t88920))<<2; /* MOVE: branching squeezed to general */ if (t88921>=((struct structure_type24753 *)VALUE_OFFSET)) {p800->a14327->s1.tag = STRUCTURE_TYPE24753; p800->a14327->s1.value.structure_type24753 = t88921;} else p800->a14327->s1.tag = (unsigned)t88921; /* x5129 Scheme-to-C-compatibility.sc:217:7673 */ /* x5128 Scheme-to-C-compatibility.sc:217:7686 */ /* x5126 Scheme-to-C-compatibility.sc:217:7692 */ t88922 = 'R'; /* x5127 Scheme-to-C-compatibility.sc:217:7696 */ t88923 = p800->a14327; /* x271158 Scheme-to-C-compatibility.sc:217:7687 */ p800->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p800->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 217, 7686); out_of_memory_error();} p800->a14327->s0.tag = ((unsigned)((unsigned char)t88922))<<2; /* MOVE: branching squeezed to general */ if (t88923>=((struct structure_type24753 *)VALUE_OFFSET)) {p800->a14327->s1.tag = STRUCTURE_TYPE24753; p800->a14327->s1.value.structure_type24753 = t88923;} else p800->a14327->s1.tag = (unsigned)t88923; /* x5134 Scheme-to-C-compatibility.sc:218:7710 */ /* x5133 Scheme-to-C-compatibility.sc:218:7723 */ /* x5131 Scheme-to-C-compatibility.sc:218:7729 */ t88924 = 'O'; /* x5132 Scheme-to-C-compatibility.sc:218:7733 */ t88925 = p800->a14327; /* x271157 Scheme-to-C-compatibility.sc:218:7724 */ p800->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p800->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 218, 7723); out_of_memory_error();} p800->a14327->s0.tag = ((unsigned)((unsigned char)t88924))<<2; /* MOVE: branching squeezed to general */ if (t88925>=((struct structure_type24753 *)VALUE_OFFSET)) {p800->a14327->s1.tag = STRUCTURE_TYPE24753; p800->a14327->s1.value.structure_type24753 = t88925;} else p800->a14327->s1.tag = (unsigned)t88925; /* x5139 Scheme-to-C-compatibility.sc:219:7747 */ /* x5138 Scheme-to-C-compatibility.sc:219:7760 */ /* x5136 Scheme-to-C-compatibility.sc:219:7766 */ t88926 = 'C'; /* x5137 Scheme-to-C-compatibility.sc:219:7770 */ t88927 = p800->a14327; /* x271156 Scheme-to-C-compatibility.sc:219:7761 */ p800->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p800->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 219, 7760); out_of_memory_error();} p800->a14327->s0.tag = ((unsigned)((unsigned char)t88926))<<2; /* MOVE: branching squeezed to general */ if (t88927>=((struct structure_type24753 *)VALUE_OFFSET)) {p800->a14327->s1.tag = STRUCTURE_TYPE24753; p800->a14327->s1.value.structure_type24753 = t88927;} else p800->a14327->s1.tag = (unsigned)t88927; /* x5144 Scheme-to-C-compatibility.sc:220:7784 */ /* x5143 Scheme-to-C-compatibility.sc:220:7797 */ /* x5141 Scheme-to-C-compatibility.sc:220:7803 */ t88928 = 'E'; /* x5142 Scheme-to-C-compatibility.sc:220:7807 */ t88929 = p800->a14327; /* x271155 Scheme-to-C-compatibility.sc:220:7798 */ p800->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p800->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 220, 7797); out_of_memory_error();} p800->a14327->s0.tag = ((unsigned)((unsigned char)t88928))<<2; /* MOVE: branching squeezed to general */ if (t88929>=((struct structure_type24753 *)VALUE_OFFSET)) {p800->a14327->s1.tag = STRUCTURE_TYPE24753; p800->a14327->s1.value.structure_type24753 = t88929;} else p800->a14327->s1.tag = (unsigned)t88929; /* x5149 Scheme-to-C-compatibility.sc:221:7821 */ /* x5148 Scheme-to-C-compatibility.sc:221:7834 */ /* x5146 Scheme-to-C-compatibility.sc:221:7840 */ t88930 = 'D'; /* x5147 Scheme-to-C-compatibility.sc:221:7844 */ t88931 = p800->a14327; /* x271154 Scheme-to-C-compatibility.sc:221:7835 */ p800->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p800->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 221, 7834); out_of_memory_error();} p800->a14327->s0.tag = ((unsigned)((unsigned char)t88930))<<2; /* MOVE: branching squeezed to general */ if (t88931>=((struct structure_type24753 *)VALUE_OFFSET)) {p800->a14327->s1.tag = STRUCTURE_TYPE24753; p800->a14327->s1.value.structure_type24753 = t88931;} else p800->a14327->s1.tag = (unsigned)t88931; /* x5154 Scheme-to-C-compatibility.sc:222:7858 */ /* x5153 Scheme-to-C-compatibility.sc:222:7871 */ /* x5151 Scheme-to-C-compatibility.sc:222:7877 */ t88932 = 'U'; /* x5152 Scheme-to-C-compatibility.sc:222:7881 */ t88933 = p800->a14327; /* x271153 Scheme-to-C-compatibility.sc:222:7872 */ p800->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p800->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 222, 7871); out_of_memory_error();} p800->a14327->s0.tag = ((unsigned)((unsigned char)t88932))<<2; /* MOVE: branching squeezed to general */ if (t88933>=((struct structure_type24753 *)VALUE_OFFSET)) {p800->a14327->s1.tag = STRUCTURE_TYPE24753; p800->a14327->s1.value.structure_type24753 = t88933;} else p800->a14327->s1.tag = (unsigned)t88933; /* x5159 Scheme-to-C-compatibility.sc:223:7895 */ /* x5158 Scheme-to-C-compatibility.sc:223:7908 */ /* x5156 Scheme-to-C-compatibility.sc:223:7914 */ t88934 = 'R'; /* x5157 Scheme-to-C-compatibility.sc:223:7918 */ t88935 = p800->a14327; /* x271152 Scheme-to-C-compatibility.sc:223:7909 */ p800->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p800->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 223, 7908); out_of_memory_error();} p800->a14327->s0.tag = ((unsigned)((unsigned char)t88934))<<2; /* MOVE: branching squeezed to general */ if (t88935>=((struct structure_type24753 *)VALUE_OFFSET)) {p800->a14327->s1.tag = STRUCTURE_TYPE24753; p800->a14327->s1.value.structure_type24753 = t88935;} else p800->a14327->s1.tag = (unsigned)t88935; /* x5164 Scheme-to-C-compatibility.sc:224:7932 */ /* x5163 Scheme-to-C-compatibility.sc:224:7945 */ /* x5161 Scheme-to-C-compatibility.sc:224:7951 */ t88936 = 'E'; /* x5162 Scheme-to-C-compatibility.sc:224:7955 */ t88937 = p800->a14327; /* x271151 Scheme-to-C-compatibility.sc:224:7946 */ p800->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p800->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 224, 7945); out_of_memory_error();} p800->a14327->s0.tag = ((unsigned)((unsigned char)t88936))<<2; /* MOVE: branching squeezed to general */ if (t88937>=((struct structure_type24753 *)VALUE_OFFSET)) {p800->a14327->s1.tag = STRUCTURE_TYPE24753; p800->a14327->s1.value.structure_type24753 = t88937;} else p800->a14327->s1.tag = (unsigned)t88937; /* x5109 */ t88913 = p800; p801 = t88913; /* x5108 Scheme-to-C-compatibility.sc:225:7969 */ /* x5107 Scheme-to-C-compatibility.sc:225:7982 */ /* x5105 Scheme-to-C-compatibility.sc:225:7988 */ t88914 = '*'; /* x5106 Scheme-to-C-compatibility.sc:225:7992 */ t88915 = p801->a14327; /* x271162 Scheme-to-C-compatibility.sc:225:7983 */ p801->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p801->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 225, 7982); out_of_memory_error();} p801->a14327->s0.tag = ((unsigned)((unsigned char)t88914))<<2; /* MOVE: branching squeezed to general */ if (t88915>=((struct structure_type24753 *)VALUE_OFFSET)) {p801->a14327->s1.tag = STRUCTURE_TYPE24753; p801->a14327->s1.value.structure_type24753 = t88915;} else p801->a14327->s1.tag = (unsigned)t88915; return; l17111: /* x5434 */ /* x5170 Scheme-to-C-compatibility.sc:226:8007 */ /* x5169 Scheme-to-C-compatibility.sc:226:8016 */ t88794 = *((struct w32070 *)(&a14346)); /* x271150 Scheme-to-C-compatibility.sc:226:8008 */ if (!((t88794.tag)==STRING_TYPE)) goto l17113; /* x5259 */ /* x5258 */ t88872 = p764; p802 = t88872; /* x5257 */ /* x5181 Scheme-to-C-compatibility.sc:227:8024 */ /* x5180 Scheme-to-C-compatibility.sc:227:8037 */ /* x5178 Scheme-to-C-compatibility.sc:227:8043 */ t88876 = '\"'; /* x5179 Scheme-to-C-compatibility.sc:227:8047 */ t88877 = p802->a14327; /* x271148 Scheme-to-C-compatibility.sc:227:8038 */ p802->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p802->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 227, 8037); out_of_memory_error();} p802->a14327->s0.tag = ((unsigned)((unsigned char)t88876))<<2; /* MOVE: branching squeezed to general */ if (t88877>=((struct structure_type24753 *)VALUE_OFFSET)) {p802->a14327->s1.tag = STRUCTURE_TYPE24753; p802->a14327->s1.value.structure_type24753 = t88877;} else p802->a14327->s1.tag = (unsigned)t88877; /* x5256 Scheme-to-C-compatibility.sc:228:8061 */ /* x5255 Scheme-to-C-compatibility.sc:228:8070 */ /* x5254 Scheme-to-C-compatibility.sc:228:8085 */ t88911 = a14346.value.string_type; /* x271140 Scheme-to-C-compatibility.sc:228:8071 */ t88879 = strlen(t88911); /* x5252 */ t88878 = p802; p804 = t88878; a14429 = t88879; /* x5251 Scheme-to-C-compatibility.sc:229:8096 */ /* x5250 Scheme-to-C-compatibility.sc:229:8110 */ t88881 = 0; /* x5249 */ /* x5248 */ /* x5247 */ /* x5246 */ t88909 = p804; p805 = t88909; /* x5245 */ /* x5244 */ /* x5243 */ /* x5183 */ t88910 = p805; p806 = t88910; /* x5182 Scheme-to-C-compatibility.sc:229:8101 */ t88880 = p806; p807 = t88880; a14432 = t88881; h807: /* x5242 Scheme-to-C-compatibility.sc:230:8121 */ /* x5187 Scheme-to-C-compatibility.sc:230:8127 */ /* x5185 Scheme-to-C-compatibility.sc:230:8130 */ t88882 = a14432; /* x5186 Scheme-to-C-compatibility.sc:230:8132 */ t88883 = a14429; /* x271147 Scheme-to-C-compatibility.sc:230:8128 */ if (!(t88882=strlen(t88889.value.string_type))) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 231, 8161); string_ref3_error();} t88885 = (t88889.value.string_type)[t88890]; /* x5209 Scheme-to-C-compatibility.sc:231:8154 */ t88887.tag = ((unsigned)((unsigned char)t88885))<<2; t88888 = t88886; if (!(f27342(t88887, t88888)==FALSE_TYPE)) goto l17133; p809 = p808; /* x5206 */ /* x5205 Scheme-to-C-compatibility.sc:232:8187 */ /* x5204 Scheme-to-C-compatibility.sc:232:8212 */ t88892 = '\"'; /* x5203 Scheme-to-C-compatibility.sc:232:8195 */ /* x5201 Scheme-to-C-compatibility.sc:232:8207 */ t88895 = a14346; /* x5202 Scheme-to-C-compatibility.sc:232:8209 */ t88896 = a14432; /* x271145 Scheme-to-C-compatibility.sc:232:8196 */ if (!((t88895.tag)==STRING_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 232, 8195); string_ref1_error();} if ((t88896<0)||(t88896>=strlen(t88895.value.string_type))) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 232, 8195); string_ref3_error();} t88891 = (t88895.value.string_type)[t88896]; /* x5199 Scheme-to-C-compatibility.sc:232:8188 */ t88893.tag = ((unsigned)((unsigned char)t88891))<<2; t88894 = t88892; if (!(f27342(t88893, t88894)==FALSE_TYPE)) goto l17133; p810 = p809; /* x5196 */ /* x5195 Scheme-to-C-compatibility.sc:233:8234 */ /* x5193 Scheme-to-C-compatibility.sc:233:8240 */ t88897 = '\\'; /* x5194 Scheme-to-C-compatibility.sc:233:8244 */ t88898 = p810->a14327; /* x271146 Scheme-to-C-compatibility.sc:233:8235 */ p810->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p810->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 233, 8234); out_of_memory_error();} p810->a14327->s0.tag = ((unsigned)((unsigned char)t88897))<<2; /* MOVE: branching squeezed to general */ if (t88898>=((struct structure_type24753 *)VALUE_OFFSET)) {p810->a14327->s1.tag = STRUCTURE_TYPE24753; p810->a14327->s1.value.structure_type24753 = t88898;} else p810->a14327->s1.tag = (unsigned)t88898; l17133: /* x5234 */ /* x5233 */ t88899 = p808; p811 = t88899; /* x5232 */ /* x5231 Scheme-to-C-compatibility.sc:234:8256 */ /* x5230 Scheme-to-C-compatibility.sc:234:8269 */ /* x5228 Scheme-to-C-compatibility.sc:234:8275 */ /* x5226 Scheme-to-C-compatibility.sc:234:8287 */ t88907 = a14346; /* x5227 Scheme-to-C-compatibility.sc:234:8289 */ t88908 = a14432; /* x271141 Scheme-to-C-compatibility.sc:234:8276 */ if (!((t88907.tag)==STRING_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 234, 8275); string_ref1_error();} if ((t88908<0)||(t88908>=strlen(t88907.value.string_type))) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 234, 8275); string_ref3_error();} t88905 = (t88907.value.string_type)[t88908]; /* x5229 Scheme-to-C-compatibility.sc:234:8292 */ t88906 = p811->a14327; /* x271142 Scheme-to-C-compatibility.sc:234:8270 */ p811->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p811->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 234, 8269); out_of_memory_error();} p811->a14327->s0.tag = ((unsigned)((unsigned char)t88905))<<2; /* MOVE: branching squeezed to general */ if (t88906>=((struct structure_type24753 *)VALUE_OFFSET)) {p811->a14327->s1.tag = STRUCTURE_TYPE24753; p811->a14327->s1.value.structure_type24753 = t88906;} else p811->a14327->s1.tag = (unsigned)t88906; /* x5223 */ t88900 = p811; p812 = t88900; /* x5222 Scheme-to-C-compatibility.sc:235:8303 */ /* x5221 Scheme-to-C-compatibility.sc:235:8309 */ /* x5219 Scheme-to-C-compatibility.sc:235:8312 */ t88903 = a14432; /* x5220 Scheme-to-C-compatibility.sc:235:8314 */ t88904 = 1; /* x271143 Scheme-to-C-compatibility.sc:235:8310 */ t88902 = t88903+t88904; /* x5217 Scheme-to-C-compatibility.sc:235:8304 */ t88901 = p812; p807 = t88901; a14432 = t88902; goto h807; goto l17132; l17131: /* x5241 Scheme-to-C-compatibility.sc:230:8121 */ /* x5240 Scheme-to-C-compatibility.sc:230:8121 */ l17132: /* x5176 */ t88873 = p802; p803 = t88873; /* x5175 Scheme-to-C-compatibility.sc:236:8327 */ /* x5174 Scheme-to-C-compatibility.sc:236:8340 */ /* x5172 Scheme-to-C-compatibility.sc:236:8346 */ t88874 = '\"'; /* x5173 Scheme-to-C-compatibility.sc:236:8350 */ t88875 = p803->a14327; /* x271149 Scheme-to-C-compatibility.sc:236:8341 */ p803->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p803->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 236, 8340); out_of_memory_error();} p803->a14327->s0.tag = ((unsigned)((unsigned char)t88874))<<2; /* MOVE: branching squeezed to general */ if (t88875>=((struct structure_type24753 *)VALUE_OFFSET)) {p803->a14327->s1.tag = STRUCTURE_TYPE24753; p803->a14327->s1.value.structure_type24753 = t88875;} else p803->a14327->s1.tag = (unsigned)t88875; return; l17113: /* x5433 */ /* x5262 Scheme-to-C-compatibility.sc:237:8365 */ /* x5261 Scheme-to-C-compatibility.sc:237:8372 */ t88795 = *((struct w32062 *)(&a14346)); /* x271139 Scheme-to-C-compatibility.sc:237:8366 */ if (!((t88795.tag)==STRUCTURE_TYPE24753)) goto l17115; /* x5344 */ /* x5343 */ t88834 = p764; p816 = t88834; /* x5342 */ /* x5273 Scheme-to-C-compatibility.sc:238:8380 */ /* x5272 Scheme-to-C-compatibility.sc:238:8393 */ /* x5270 Scheme-to-C-compatibility.sc:238:8399 */ t88838 = '('; /* x5271 Scheme-to-C-compatibility.sc:238:8403 */ t88839 = p816->a14327; /* x271137 Scheme-to-C-compatibility.sc:238:8394 */ p816->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p816->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 238, 8393); out_of_memory_error();} p816->a14327->s0.tag = ((unsigned)((unsigned char)t88838))<<2; /* MOVE: branching squeezed to general */ if (t88839>=((struct structure_type24753 *)VALUE_OFFSET)) {p816->a14327->s1.tag = STRUCTURE_TYPE24753; p816->a14327->s1.value.structure_type24753 = t88839;} else p816->a14327->s1.tag = (unsigned)t88839; /* x5341 Scheme-to-C-compatibility.sc:239:8417 */ /* x5340 Scheme-to-C-compatibility.sc:239:8431 */ t88841 = a14346.value.structure_type24753; /* x5339 */ /* x5338 */ /* x5337 */ /* x5336 */ t88870 = p816; p818 = t88870; /* x5335 */ /* x5334 */ /* x5333 */ /* x5275 */ t88871 = p818; p819 = t88871; /* x5274 Scheme-to-C-compatibility.sc:239:8422 */ t88840 = p819; p820 = t88840; a14440.tag = STRUCTURE_TYPE24753; a14440.value.structure_type24753 = t88841; h820: /* x5332 Scheme-to-C-compatibility.sc:240:8441 */ /* x5280 Scheme-to-C-compatibility.sc:240:8448 */ /* x5279 Scheme-to-C-compatibility.sc:240:8455 */ /* x5278 Scheme-to-C-compatibility.sc:240:8460 */ t88843 = a14440; /* x271135 Scheme-to-C-compatibility.sc:240:8456 */ if (!((t88843.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 240, 8455); structure_ref_error();} t88842 = t88843.value.structure_type24753->s1; /* x271136 Scheme-to-C-compatibility.sc:240:8449 */ if (!((t88842.tag)==NULL_TYPE)) goto l17125; /* x5287 */ /* x5286 */ t88866 = p820; p821 = t88866; /* x5285 Scheme-to-C-compatibility.sc:241:8470 */ /* x5284 Scheme-to-C-compatibility.sc:241:8487 */ /* x5283 Scheme-to-C-compatibility.sc:241:8492 */ t88869 = a14440; /* x271134 Scheme-to-C-compatibility.sc:241:8488 */ if (!((t88869.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 241, 8487); structure_ref_error();} t88868 = t88869.value.structure_type24753->s0; /* x5281 Scheme-to-C-compatibility.sc:241:8471 */ t88867 = p821; f764(t88867, t88868); goto l17126; l17125: /* x5331 */ /* x5292 Scheme-to-C-compatibility.sc:242:8503 */ /* x5291 Scheme-to-C-compatibility.sc:242:8510 */ /* x5290 Scheme-to-C-compatibility.sc:242:8515 */ t88845 = a14440; /* x271132 Scheme-to-C-compatibility.sc:242:8511 */ if (!((t88845.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 242, 8510); structure_ref_error();} t88844 = t88845.value.structure_type24753->s1; /* x271133 Scheme-to-C-compatibility.sc:242:8504 */ if (!((t88844.tag)==STRUCTURE_TYPE24753)) goto l17128; /* x5311 */ /* x5310 */ t88856 = p820; p822 = t88856; /* x5309 */ /* x5303 Scheme-to-C-compatibility.sc:243:8525 */ /* x5302 Scheme-to-C-compatibility.sc:243:8542 */ /* x5301 Scheme-to-C-compatibility.sc:243:8547 */ t88863 = a14440; /* x271130 Scheme-to-C-compatibility.sc:243:8543 */ if (!((t88863.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 243, 8542); structure_ref_error();} t88862 = t88863.value.structure_type24753->s0; /* x5299 Scheme-to-C-compatibility.sc:243:8526 */ t88861 = p822; f764(t88861, t88862); /* x5308 Scheme-to-C-compatibility.sc:244:8557 */ /* x5307 Scheme-to-C-compatibility.sc:244:8570 */ /* x5305 Scheme-to-C-compatibility.sc:244:8576 */ t88864 = ' '; /* x5306 Scheme-to-C-compatibility.sc:244:8584 */ t88865 = p822->a14327; /* x271129 Scheme-to-C-compatibility.sc:244:8571 */ p822->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p822->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 244, 8570); out_of_memory_error();} p822->a14327->s0.tag = ((unsigned)((unsigned char)t88864))<<2; /* MOVE: branching squeezed to general */ if (t88865>=((struct structure_type24753 *)VALUE_OFFSET)) {p822->a14327->s1.tag = STRUCTURE_TYPE24753; p822->a14327->s1.value.structure_type24753 = t88865;} else p822->a14327->s1.tag = (unsigned)t88865; /* x5298 */ t88857 = p822; p823 = t88857; /* x5297 Scheme-to-C-compatibility.sc:245:8599 */ /* x5296 Scheme-to-C-compatibility.sc:245:8605 */ /* x5295 Scheme-to-C-compatibility.sc:245:8610 */ t88860 = a14440; /* x271131 Scheme-to-C-compatibility.sc:245:8606 */ if (!((t88860.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 245, 8605); structure_ref_error();} t88859 = t88860.value.structure_type24753->s1; /* x5293 Scheme-to-C-compatibility.sc:245:8600 */ t88858 = p823; p820 = t88858; a14440 = t88859; goto h820; goto l17129; l17128: /* x5330 */ /* x5329 */ t88846 = p820; p824 = t88846; /* x5328 */ /* x5322 Scheme-to-C-compatibility.sc:246:8626 */ /* x5321 Scheme-to-C-compatibility.sc:246:8643 */ /* x5320 Scheme-to-C-compatibility.sc:246:8648 */ t88853 = a14440; /* x271127 Scheme-to-C-compatibility.sc:246:8644 */ if (!((t88853.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 246, 8643); structure_ref_error();} t88852 = t88853.value.structure_type24753->s0; /* x5318 Scheme-to-C-compatibility.sc:246:8627 */ t88851 = p824; f764(t88851, t88852); /* x5327 Scheme-to-C-compatibility.sc:247:8656 */ /* x5326 Scheme-to-C-compatibility.sc:247:8669 */ /* x5324 Scheme-to-C-compatibility.sc:247:8675 */ t88854 = ' '; /* x5325 Scheme-to-C-compatibility.sc:247:8683 */ t88855 = p824->a14327; /* x271126 Scheme-to-C-compatibility.sc:247:8670 */ p824->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p824->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 247, 8669); out_of_memory_error();} p824->a14327->s0.tag = ((unsigned)((unsigned char)t88854))<<2; /* MOVE: branching squeezed to general */ if (t88855>=((struct structure_type24753 *)VALUE_OFFSET)) {p824->a14327->s1.tag = STRUCTURE_TYPE24753; p824->a14327->s1.value.structure_type24753 = t88855;} else p824->a14327->s1.tag = (unsigned)t88855; /* x5317 */ t88847 = p824; p825 = t88847; /* x5316 Scheme-to-C-compatibility.sc:248:8696 */ /* x5315 Scheme-to-C-compatibility.sc:248:8713 */ /* x5314 Scheme-to-C-compatibility.sc:248:8718 */ t88850 = a14440; /* x271128 Scheme-to-C-compatibility.sc:248:8714 */ if (!((t88850.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 248, 8713); structure_ref_error();} t88849 = t88850.value.structure_type24753->s1; /* x5312 Scheme-to-C-compatibility.sc:248:8697 */ t88848 = p825; f764(t88848, t88849); l17129: l17126: /* x5268 */ t88835 = p816; p817 = t88835; /* x5267 Scheme-to-C-compatibility.sc:249:8730 */ /* x5266 Scheme-to-C-compatibility.sc:249:8743 */ /* x5264 Scheme-to-C-compatibility.sc:249:8749 */ t88836 = ')'; /* x5265 Scheme-to-C-compatibility.sc:249:8753 */ t88837 = p817->a14327; /* x271138 Scheme-to-C-compatibility.sc:249:8744 */ p817->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p817->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 249, 8743); out_of_memory_error();} p817->a14327->s0.tag = ((unsigned)((unsigned char)t88836))<<2; /* MOVE: branching squeezed to general */ if (t88837>=((struct structure_type24753 *)VALUE_OFFSET)) {p817->a14327->s1.tag = STRUCTURE_TYPE24753; p817->a14327->s1.value.structure_type24753 = t88837;} else p817->a14327->s1.tag = (unsigned)t88837; return; l17115: /* x5432 */ /* x5347 Scheme-to-C-compatibility.sc:250:8768 */ /* x5346 Scheme-to-C-compatibility.sc:250:8777 */ t88796 = *((struct w31981 *)(&a14346)); /* x271125 Scheme-to-C-compatibility.sc:250:8769 */ if (!((t88796.tag)==HEADED_VECTOR_TYPE27896)) goto l17117; /* x5426 */ /* x5425 */ t88798 = p764; p827 = t88798; /* x5424 */ /* x5358 Scheme-to-C-compatibility.sc:251:8785 */ /* x5357 Scheme-to-C-compatibility.sc:251:8798 */ /* x5355 Scheme-to-C-compatibility.sc:251:8804 */ t88802 = '#'; /* x5356 Scheme-to-C-compatibility.sc:251:8808 */ t88803 = p827->a14327; /* x271123 Scheme-to-C-compatibility.sc:251:8799 */ p827->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p827->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 251, 8798); out_of_memory_error();} p827->a14327->s0.tag = ((unsigned)((unsigned char)t88802))<<2; /* MOVE: branching squeezed to general */ if (t88803>=((struct structure_type24753 *)VALUE_OFFSET)) {p827->a14327->s1.tag = STRUCTURE_TYPE24753; p827->a14327->s1.value.structure_type24753 = t88803;} else p827->a14327->s1.tag = (unsigned)t88803; /* x5363 Scheme-to-C-compatibility.sc:252:8822 */ /* x5362 Scheme-to-C-compatibility.sc:252:8835 */ /* x5360 Scheme-to-C-compatibility.sc:252:8841 */ t88804 = '('; /* x5361 Scheme-to-C-compatibility.sc:252:8845 */ t88805 = p827->a14327; /* x271122 Scheme-to-C-compatibility.sc:252:8836 */ p827->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p827->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 252, 8835); out_of_memory_error();} p827->a14327->s0.tag = ((unsigned)((unsigned char)t88804))<<2; /* MOVE: branching squeezed to general */ if (t88805>=((struct structure_type24753 *)VALUE_OFFSET)) {p827->a14327->s1.tag = STRUCTURE_TYPE24753; p827->a14327->s1.value.structure_type24753 = t88805;} else p827->a14327->s1.tag = (unsigned)t88805; /* x5423 Scheme-to-C-compatibility.sc:253:8859 */ /* x5422 Scheme-to-C-compatibility.sc:253:8868 */ /* x5421 Scheme-to-C-compatibility.sc:253:8883 */ t88833 = a14346.value.headed_vector_type27896; /* x271115 Scheme-to-C-compatibility.sc:253:8869 */ t88807 = t88833->length; /* x5419 */ t88806 = p827; p829 = t88806; a14448 = t88807; /* x5418 Scheme-to-C-compatibility.sc:254:8894 */ /* x5366 Scheme-to-C-compatibility.sc:254:8902 */ /* x5365 Scheme-to-C-compatibility.sc:254:8909 */ t88808 = a14448; /* x271121 Scheme-to-C-compatibility.sc:254:8903 */ if (!(t88808==0)) goto l17119; /* x5368 */ /* x5367 */ goto l17120; l17119: /* x5417 */ /* x5416 */ t88809 = p829; p831 = t88809; /* x5415 */ /* x5414 Scheme-to-C-compatibility.sc:255:8919 */ /* x5413 Scheme-to-C-compatibility.sc:255:8936 */ /* x5411 Scheme-to-C-compatibility.sc:255:8948 */ t88831 = a14346.value.headed_vector_type27896; /* x5412 Scheme-to-C-compatibility.sc:255:8950 */ t88832 = 0; /* x271116 Scheme-to-C-compatibility.sc:255:8937 */ if ((t88832<0)||(t88832>=(t88831->length))) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 255, 8936); vector_ref3_error();} t88830 = (t88831->element)[t88832]; /* x5409 Scheme-to-C-compatibility.sc:255:8920 */ t88829 = p831; f764(t88829, t88830); /* x5408 */ t88810 = p831; p832 = t88810; /* x5407 Scheme-to-C-compatibility.sc:256:8961 */ /* x5406 Scheme-to-C-compatibility.sc:256:8975 */ t88812 = 1; /* x5405 */ /* x5404 */ /* x5403 */ /* x5402 */ t88827 = p832; p833 = t88827; /* x5401 */ /* x5400 */ /* x5399 */ /* x5370 */ t88828 = p833; p834 = t88828; /* x5369 Scheme-to-C-compatibility.sc:256:8966 */ t88811 = p834; p835 = t88811; a14452 = t88812; h835: /* x5398 Scheme-to-C-compatibility.sc:257:8987 */ /* x5374 Scheme-to-C-compatibility.sc:257:8995 */ /* x5372 Scheme-to-C-compatibility.sc:257:8998 */ t88813 = a14452; /* x5373 Scheme-to-C-compatibility.sc:257:9000 */ t88814 = a14448; /* x271120 Scheme-to-C-compatibility.sc:257:8996 */ if (!(t88813==t88814)) goto l17122; /* x5376 */ /* x5375 */ goto l17123; l17122: /* x5397 */ /* x5396 */ t88815 = p835; p837 = t88815; /* x5395 */ /* x5388 Scheme-to-C-compatibility.sc:258:9005 */ /* x5387 Scheme-to-C-compatibility.sc:258:9018 */ /* x5385 Scheme-to-C-compatibility.sc:258:9024 */ t88821 = ' '; /* x5386 Scheme-to-C-compatibility.sc:258:9032 */ t88822 = p837->a14327; /* x271118 Scheme-to-C-compatibility.sc:258:9019 */ p837->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p837->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 258, 9018); out_of_memory_error();} p837->a14327->s0.tag = ((unsigned)((unsigned char)t88821))<<2; /* MOVE: branching squeezed to general */ if (t88822>=((struct structure_type24753 *)VALUE_OFFSET)) {p837->a14327->s1.tag = STRUCTURE_TYPE24753; p837->a14327->s1.value.structure_type24753 = t88822;} else p837->a14327->s1.tag = (unsigned)t88822; /* x5394 Scheme-to-C-compatibility.sc:259:9043 */ /* x5393 Scheme-to-C-compatibility.sc:259:9060 */ /* x5391 Scheme-to-C-compatibility.sc:259:9072 */ t88825 = a14346; /* x5392 Scheme-to-C-compatibility.sc:259:9074 */ t88826 = a14452; /* x271117 Scheme-to-C-compatibility.sc:259:9061 */ if (!((t88825.tag)==HEADED_VECTOR_TYPE27896)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 259, 9060); vector_ref1_error();} if ((t88826<0)||(t88826>=(t88825.value.headed_vector_type27896->length))) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 259, 9060); vector_ref3_error();} t88824 = (t88825.value.headed_vector_type27896->element)[t88826]; /* x5389 Scheme-to-C-compatibility.sc:259:9044 */ t88823 = p837; f764(t88823, t88824); /* x5383 */ t88816 = p837; p838 = t88816; /* x5382 Scheme-to-C-compatibility.sc:260:9080 */ /* x5381 Scheme-to-C-compatibility.sc:260:9086 */ /* x5379 Scheme-to-C-compatibility.sc:260:9089 */ t88819 = a14452; /* x5380 Scheme-to-C-compatibility.sc:260:9091 */ t88820 = 1; /* x271119 Scheme-to-C-compatibility.sc:260:9087 */ t88818 = t88819+t88820; /* x5377 Scheme-to-C-compatibility.sc:260:9081 */ t88817 = p838; p835 = t88817; a14452 = t88818; goto h835; l17123: l17120: /* x5353 */ t88799 = p827; p828 = t88799; /* x5352 Scheme-to-C-compatibility.sc:261:9104 */ /* x5351 Scheme-to-C-compatibility.sc:261:9117 */ /* x5349 Scheme-to-C-compatibility.sc:261:9123 */ t88800 = ')'; /* x5350 Scheme-to-C-compatibility.sc:261:9127 */ t88801 = p828->a14327; /* x271124 Scheme-to-C-compatibility.sc:261:9118 */ p828->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p828->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 261, 9117); out_of_memory_error();} p828->a14327->s0.tag = ((unsigned)((unsigned char)t88800))<<2; /* MOVE: branching squeezed to general */ if (t88801>=((struct structure_type24753 *)VALUE_OFFSET)) {p828->a14327->s1.tag = STRUCTURE_TYPE24753; p828->a14327->s1.value.structure_type24753 = t88801;} else p828->a14327->s1.tag = (unsigned)t88801; return; l17117: /* x5431 */ /* x5430 */ /* x5429 Scheme-to-C-compatibility.sc:262:9147 */ /* x5428 Scheme-to-C-compatibility.sc:263:9158 */ t88797 = "FORMAT with WRITE-methods is not (yet) implemented"; /* x271114 Scheme-to-C-compatibility.sc:262:9148 */ stalin_panic(t88797);} /* FORMAT[665] */ char *f665(unsigned a14293, struct w49 a14294, struct w49 a14295) {char *r665; int a14311; /* N */ unsigned a14312; /* TWIDDLE? */ int a14315; /* I */ char a14316; /* CHAR */ char a14319; /* v */ int a14326; /* N */ struct structure_type24753 *a14327; /* RESULT */ unsigned a14328; /* TWIDDLE? */ int a14335; /* I */ char a14336; /* CHAR */ char a14339; /* v */ unsigned t89122; unsigned t89123; unsigned t89124; char *t89125; int t89126; struct p731 *t89127; struct p731 *t89128; int t89129; struct p731 *t89130; struct p731 *t89131; int t89132; struct p731 *t89133; char t89134; struct p731 *t89135; int t89136; int t89137; struct w49 t89138; struct p731 *t89139; struct w12224 t89140; struct w49 t89141; struct structure_type24753 *t89142; struct w49 t89143; char *t89144; char *t89145; struct p731 *t89146; struct p731 *t89147; int t89148; int t89149; int t89150; char t89151; char t89152; struct w49 t89153; char t89154; struct p731 *t89155; char t89156; struct structure_type24753 *t89157; struct p731 *t89158; struct p731 *t89159; char t89160; char t89161; char t89162; struct w49 t89163; struct w49 t89164; char t89165; char t89166; struct w49 t89167; struct w49 t89168; char t89169; char t89170; struct w49 t89171; struct w49 t89172; char t89173; char t89174; struct w49 t89175; struct w49 t89176; char t89177; char t89178; struct w49 t89179; struct w49 t89180; char t89181; char t89182; struct w49 t89183; struct w49 t89184; char *t89185; struct p731 *t89186; char t89187; struct structure_type24753 *t89188; struct p731 *t89189; char t89190; struct structure_type24753 *t89191; struct p731 *t89192; struct w49 t89193; struct w49 t89194; char *t89195; struct p731 *t89196; struct w49 t89197; struct w49 t89198; struct p731 *t89199; struct w49 t89200; struct w49 t89201; char *t89202; struct p731 *t89203; struct w49 t89204; struct w49 t89205; struct w49 t89206; int t89207; struct p731 *t89208; struct p731 *t89209; int t89210; int t89211; struct w49 t89212; int t89213; int t89214; int t89215; char t89216; int t89217; int t89218; struct w49 t89219; char *t89220; char *t89221; int t89222; int t89223; int t89224; char t89225; char t89226; struct w49 t89227; char t89228; char t89229; char t89230; struct structure_type24753 *t89231; char t89232; char t89233; char t89234; struct w49 t89235; struct w49 t89236; char t89237; char t89238; struct w49 t89239; struct w49 t89240; char t89241; char t89242; struct w49 t89243; struct w49 t89244; char t89245; char t89246; struct w49 t89247; struct w49 t89248; char t89249; char t89250; struct w49 t89251; struct w49 t89252; char t89253; char t89254; struct w49 t89255; struct w49 t89256; char *t89257; struct structure_type24753 *t89258; char t89259; char t89260; struct structure_type24753 *t89261; struct w49 t89262; struct w49 t89263; char *t89264; struct w49 t89265; struct w49 t89266; struct structure_type24753 *t89267; struct w49 t89268; struct w49 t89269; struct w49 t89270; char *t89271; struct w49 t89272; struct w49 t89273; struct w49 t89274; struct w49 t89275; int t89276; int t89277; int t89278; struct w49 t89279; struct p731 *e731; struct p731 *p732; struct p731 *p733; struct p731 *p735; struct p731 *p736; struct p731 *p737; struct p731 *p738; struct p731 *p739; struct p731 *p740; struct p731 *p741; struct p731 *p744; struct p731 *p745; struct p731 *p747; struct p731 *p749; struct p731 *p754; struct p731 *p758; struct p731 *p759; struct p731 *p762; /* x6186 Scheme-to-C-compatibility.sc:63:2235 */ /* x3991 Scheme-to-C-compatibility.sc:64:2244 */ /* x3990 Scheme-to-C-compatibility.sc:64:2258 */ t89122 = a14293; /* x271312 Scheme-to-C-compatibility.sc:64:2245 */ /* x6185 */ /* x4196 Scheme-to-C-compatibility.sc:89:3213 */ /* x4194 Scheme-to-C-compatibility.sc:89:3218 */ t89123 = a14293; /* x4195 Scheme-to-C-compatibility.sc:89:3230 */ /* x271292 Scheme-to-C-compatibility.sc:89:3214 */ if (!(t89123==TRUE_TYPE)) goto l17144; /* x4392 */ /* x4391 */ /* x4390 Scheme-to-C-compatibility.sc:90:3237 */ /* x4388 Scheme-to-C-compatibility.sc:91:3262 */ /* x4386 Scheme-to-C-compatibility.sc:91:3265 */ /* x4385 Scheme-to-C-compatibility.sc:91:3280 */ t89279 = a14294; /* x271273 Scheme-to-C-compatibility.sc:91:3266 */ if (!((t89279.tag)==STRING_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 91, 3265); string_length_error();} t89277 = strlen(t89279.value.string_type); /* x4387 Scheme-to-C-compatibility.sc:91:3295 */ t89278 = 1; /* x271274 Scheme-to-C-compatibility.sc:91:3263 */ t89213 = t89277-t89278; /* x4389 Scheme-to-C-compatibility.sc:90:3253 */ /* x4382 */ a14311 = t89213; a14312 = FALSE_TYPE; /* x4381 Scheme-to-C-compatibility.sc:92:3304 */ /* x4199 Scheme-to-C-compatibility.sc:92:3312 */ /* x4198 Scheme-to-C-compatibility.sc:92:3323 */ t89214 = a14311; /* x271291 Scheme-to-C-compatibility.sc:92:3313 */ if (!(t89214<0)) goto l17182; /* x4201 */ /* x4200 */ return r665; l17182: /* x4380 */ /* x4379 */ /* x4378 Scheme-to-C-compatibility.sc:93:3331 */ /* x4377 Scheme-to-C-compatibility.sc:93:3345 */ t89215 = 0; /* x4376 */ /* x4375 */ /* x4374 */ /* x4373 */ /* x4372 */ /* x4371 */ /* x4370 */ /* x4203 */ /* x4202 Scheme-to-C-compatibility.sc:93:3336 */ a14315 = t89215; h704: /* x4369 Scheme-to-C-compatibility.sc:94:3355 */ /* x4368 Scheme-to-C-compatibility.sc:94:3367 */ /* x4366 Scheme-to-C-compatibility.sc:94:3379 */ t89275 = a14294; /* x4367 Scheme-to-C-compatibility.sc:94:3393 */ t89276 = a14315; /* x271275 Scheme-to-C-compatibility.sc:94:3368 */ if (!((t89275.tag)==STRING_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 94, 3367); string_ref1_error();} if ((t89276<0)||(t89276>=strlen(t89275.value.string_type))) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 94, 3367); string_ref3_error();} t89216 = (t89275.value.string_type)[t89276]; /* x4364 */ a14316 = t89216; /* x4363 */ /* x4362 Scheme-to-C-compatibility.sc:95:3405 */ /* x4238 Scheme-to-C-compatibility.sc:95:3412 */ if (a14312==FALSE_TYPE) goto l17190; /* x4347 */ /* x4346 */ /* x4345 */ /* x4344 Scheme-to-C-compatibility.sc:96:3428 */ /* x4343 Scheme-to-C-compatibility.sc:96:3434 */ t89232 = a14316; /* x4342 */ a14319 = t89232; /* x4341 */ /* x4254 */ /* x4253 */ /* x4251 */ t89233 = a14319; /* x4252 */ t89234 = 'a'; /* x4250 */ t89235.tag = ((unsigned)((unsigned char)t89233))<<2; t89236.tag = ((unsigned)((unsigned char)t89234))<<2; if (!(f26160(t89235, t89236)==FALSE_TYPE)) goto l17195; /* x4247 */ /* x4245 */ t89237 = a14319; /* x4246 */ t89238 = 'A'; /* x4244 */ t89239.tag = ((unsigned)((unsigned char)t89237))<<2; t89240.tag = ((unsigned)((unsigned char)t89238))<<2; if (f26160(t89239, t89240)==FALSE_TYPE) goto l17196; l17195: /* x4278 */ /* x4277 */ /* x4276 */ /* x4270 Scheme-to-C-compatibility.sc:98:3460 */ /* x4262 Scheme-to-C-compatibility.sc:98:3466 */ /* x4261 Scheme-to-C-compatibility.sc:98:3473 */ t89270 = a14295; /* x271283 Scheme-to-C-compatibility.sc:98:3467 */ if (!((t89270.tag)==NULL_TYPE)) goto l17213; /* x4267 */ /* x4266 */ /* x4265 Scheme-to-C-compatibility.sc:98:3484 */ /* x4264 Scheme-to-C-compatibility.sc:98:3491 */ t89271 = "Too few FORMAT arguments"; /* x271282 Scheme-to-C-compatibility.sc:98:3485 */ stalin_panic(t89271); goto l17214; l17213: /* x4269 Scheme-to-C-compatibility.sc:98:3460 */ /* x4268 Scheme-to-C-compatibility.sc:98:3460 */ l17214: /* x4275 Scheme-to-C-compatibility.sc:99:3522 */ /* x4274 Scheme-to-C-compatibility.sc:99:3531 */ /* x4273 Scheme-to-C-compatibility.sc:99:3536 */ t89274 = a14295; /* x271281 Scheme-to-C-compatibility.sc:99:3532 */ if (!((t89274.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 99, 3531); structure_ref_error();} t89272 = t89274.value.structure_type24753->s0; /* x4271 Scheme-to-C-compatibility.sc:99:3523 */ t89273 = t89272; f28712(t89273); /* x4259 */ /* x4258 Scheme-to-C-compatibility.sc:100:3550 */ /* x4257 Scheme-to-C-compatibility.sc:100:3566 */ /* x4256 Scheme-to-C-compatibility.sc:100:3571 */ t89269 = a14295; /* x271284 Scheme-to-C-compatibility.sc:100:3567 */ if (!((t89269.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 100, 3566); structure_ref_error();} a14295 = t89269.value.structure_type24753->s1; goto l17197; l17196: /* x4340 */ /* x4291 */ /* x4290 */ /* x4288 */ t89241 = a14319; /* x4289 */ t89242 = 's'; /* x4287 */ t89243.tag = ((unsigned)((unsigned char)t89241))<<2; t89244.tag = ((unsigned)((unsigned char)t89242))<<2; if (!(f26160(t89243, t89244)==FALSE_TYPE)) goto l17199; /* x4284 */ /* x4282 */ t89245 = a14319; /* x4283 */ t89246 = 'S'; /* x4281 */ t89247.tag = ((unsigned)((unsigned char)t89245))<<2; t89248.tag = ((unsigned)((unsigned char)t89246))<<2; if (f26160(t89247, t89248)==FALSE_TYPE) goto l17200; l17199: /* x4315 */ /* x4314 */ /* x4313 */ /* x4307 Scheme-to-C-compatibility.sc:102:3605 */ /* x4299 Scheme-to-C-compatibility.sc:102:3611 */ /* x4298 Scheme-to-C-compatibility.sc:102:3618 */ t89263 = a14295; /* x271279 Scheme-to-C-compatibility.sc:102:3612 */ if (!((t89263.tag)==NULL_TYPE)) goto l17210; /* x4304 */ /* x4303 */ /* x4302 Scheme-to-C-compatibility.sc:102:3629 */ /* x4301 Scheme-to-C-compatibility.sc:102:3636 */ t89264 = "Too few FORMAT arguments"; /* x271278 Scheme-to-C-compatibility.sc:102:3630 */ stalin_panic(t89264); goto l17211; l17210: /* x4306 Scheme-to-C-compatibility.sc:102:3605 */ /* x4305 Scheme-to-C-compatibility.sc:102:3605 */ l17211: /* x4312 Scheme-to-C-compatibility.sc:103:3667 */ /* x4311 Scheme-to-C-compatibility.sc:103:3674 */ /* x4310 Scheme-to-C-compatibility.sc:103:3679 */ t89268 = a14295; /* x271277 Scheme-to-C-compatibility.sc:103:3675 */ if (!((t89268.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 103, 3674); structure_ref_error();} t89265 = t89268.value.structure_type24753->s0; /* x4308 Scheme-to-C-compatibility.sc:103:3668 */ t89266 = t89265; t89267 = (struct structure_type24753 *)NULL_TYPE; f28708(t89266, t89267); /* x4296 */ /* x4295 Scheme-to-C-compatibility.sc:104:3693 */ /* x4294 Scheme-to-C-compatibility.sc:104:3709 */ /* x4293 Scheme-to-C-compatibility.sc:104:3714 */ t89262 = a14295; /* x271280 Scheme-to-C-compatibility.sc:104:3710 */ if (!((t89262.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 104, 3709); structure_ref_error();} a14295 = t89262.value.structure_type24753->s1; goto l17201; l17200: /* x4339 */ /* x4319 */ /* x4317 */ t89249 = a14319; /* x4318 */ t89250 = '~'; /* x4316 */ t89251.tag = ((unsigned)((unsigned char)t89249))<<2; t89252.tag = ((unsigned)((unsigned char)t89250))<<2; if (f26160(t89251, t89252)==FALSE_TYPE) goto l17204; /* x4324 */ /* x4323 */ /* x4322 Scheme-to-C-compatibility.sc:105:3742 */ /* x4321 Scheme-to-C-compatibility.sc:105:3754 */ t89259 = '~'; /* x4320 Scheme-to-C-compatibility.sc:105:3743 */ t89260 = t89259; t89261 = (struct structure_type24753 *)NULL_TYPE; f28720(t89260, t89261); goto l17205; l17204: /* x4338 */ /* x4328 */ /* x4326 */ t89253 = a14319; /* x4327 */ t89254 = '%'; /* x4325 */ t89255.tag = ((unsigned)((unsigned char)t89253))<<2; t89256.tag = ((unsigned)((unsigned char)t89254))<<2; if (f26160(t89255, t89256)==FALSE_TYPE) goto l17207; /* x4332 */ /* x4331 */ /* x4330 Scheme-to-C-compatibility.sc:106:3775 */ /* x4329 Scheme-to-C-compatibility.sc:106:3776 */ t89258 = (struct structure_type24753 *)NULL_TYPE; f28716(t89258); goto l17208; l17207: /* x4337 */ /* x4336 */ /* x4335 Scheme-to-C-compatibility.sc:107:3800 */ /* x4334 Scheme-to-C-compatibility.sc:107:3807 */ t89257 = "Improper FORMAT directive"; /* x271276 Scheme-to-C-compatibility.sc:107:3801 */ stalin_panic(t89257); l17208: l17205: l17201: l17197: /* x4241 */ /* x4240 Scheme-to-C-compatibility.sc:108:3845 */ /* x4239 Scheme-to-C-compatibility.sc:108:3860 */ a14312 = FALSE_TYPE; goto l17191; l17190: /* x4361 */ /* x4351 Scheme-to-C-compatibility.sc:109:3872 */ /* x4350 Scheme-to-C-compatibility.sc:109:3885 */ t89226 = '~'; /* x4349 Scheme-to-C-compatibility.sc:109:3880 */ t89225 = a14316; /* x4348 Scheme-to-C-compatibility.sc:109:3873 */ t89227.tag = ((unsigned)((unsigned char)t89225))<<2; t89228 = t89226; if (f27342(t89227, t89228)==FALSE_TYPE) goto l17193; /* x4355 */ /* x4354 */ /* x4353 Scheme-to-C-compatibility.sc:109:3890 */ /* x4352 Scheme-to-C-compatibility.sc:109:3905 */ a14312 = TRUE_TYPE; goto l17194; l17193: /* x4360 */ /* x4359 */ /* x4358 Scheme-to-C-compatibility.sc:110:3922 */ /* x4357 Scheme-to-C-compatibility.sc:110:3934 */ t89229 = a14316; /* x4356 Scheme-to-C-compatibility.sc:110:3923 */ t89230 = t89229; t89231 = (struct structure_type24753 *)NULL_TYPE; f28720(t89230, t89231); l17194: l17191: /* x4237 */ /* x4236 Scheme-to-C-compatibility.sc:111:3949 */ /* x4207 Scheme-to-C-compatibility.sc:111:3956 */ /* x4205 Scheme-to-C-compatibility.sc:111:3959 */ t89217 = a14315; /* x4206 Scheme-to-C-compatibility.sc:111:3961 */ t89218 = a14311; /* x271290 Scheme-to-C-compatibility.sc:111:3957 */ if (!(t89217a14327 = a14327; /* x6166 */ /* x6163 */ /* x6162 */ /* x6165 */ /* x6164 */ /* x6161 */ t89127 = e731; p732 = t89127; /* x6160 */ /* x5447 */ /* x5446 */ /* x6159 */ /* x6158 */ /* x4594 */ t89128 = p732; p733 = t89128; /* x4593 Scheme-to-C-compatibility.sc:386:13350 */ /* x4399 Scheme-to-C-compatibility.sc:386:13358 */ /* x4398 Scheme-to-C-compatibility.sc:386:13369 */ t89129 = a14326; /* x271271 Scheme-to-C-compatibility.sc:386:13359 */ if (!(t89129<0)) goto l17148; /* x4401 */ /* x4400 */ return r665; l17148: /* x4592 */ /* x4591 */ t89130 = p733; p735 = t89130; /* x4590 Scheme-to-C-compatibility.sc:387:13377 */ /* x4589 Scheme-to-C-compatibility.sc:387:13391 */ t89132 = 0; /* x4588 */ /* x4587 */ /* x4586 */ /* x4585 */ t89208 = p735; p736 = t89208; /* x4584 */ /* x4583 */ /* x4582 */ /* x4403 */ t89209 = p736; p737 = t89209; /* x4402 Scheme-to-C-compatibility.sc:387:13382 */ t89131 = p737; p738 = t89131; a14335 = t89132; h738: /* x4581 Scheme-to-C-compatibility.sc:388:13401 */ /* x4580 Scheme-to-C-compatibility.sc:388:13413 */ /* x4578 Scheme-to-C-compatibility.sc:388:13425 */ t89206 = a14294; /* x4579 Scheme-to-C-compatibility.sc:388:13439 */ t89207 = a14335; /* x271252 Scheme-to-C-compatibility.sc:388:13414 */ if (!((t89206.tag)==STRING_TYPE)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 388, 13413); string_ref1_error();} if ((t89207<0)||(t89207>=strlen(t89206.value.string_type))) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 388, 13413); string_ref3_error();} t89134 = (t89206.value.string_type)[t89207]; /* x4576 */ t89133 = p738; p739 = t89133; a14336 = t89134; /* x4575 */ /* x4574 Scheme-to-C-compatibility.sc:389:13451 */ /* x4443 Scheme-to-C-compatibility.sc:389:13458 */ if (a14328==FALSE_TYPE) goto l17156; /* x4557 */ /* x4556 */ t89158 = p739; p745 = t89158; /* x4555 */ /* x4554 Scheme-to-C-compatibility.sc:390:13474 */ /* x4553 Scheme-to-C-compatibility.sc:390:13480 */ t89160 = a14336; /* x4552 */ t89159 = p745; p747 = t89159; a14339 = t89160; /* x4551 */ /* x4459 */ /* x4458 */ /* x4456 */ t89161 = a14339; /* x4457 */ t89162 = 'a'; /* x4455 */ t89163.tag = ((unsigned)((unsigned char)t89161))<<2; t89164.tag = ((unsigned)((unsigned char)t89162))<<2; if (!(f26160(t89163, t89164)==FALSE_TYPE)) goto l17161; /* x4452 */ /* x4450 */ t89165 = a14339; /* x4451 */ t89166 = 'A'; /* x4449 */ t89167.tag = ((unsigned)((unsigned char)t89165))<<2; t89168.tag = ((unsigned)((unsigned char)t89166))<<2; if (f26160(t89167, t89168)==FALSE_TYPE) goto l17162; l17161: /* x4483 */ /* x4482 */ t89199 = p747; p749 = t89199; /* x4481 */ /* x4475 Scheme-to-C-compatibility.sc:392:13506 */ /* x4467 Scheme-to-C-compatibility.sc:392:13512 */ /* x4466 Scheme-to-C-compatibility.sc:392:13519 */ t89201 = a14295; /* x271263 Scheme-to-C-compatibility.sc:392:13513 */ if (!((t89201.tag)==NULL_TYPE)) goto l17179; /* x4472 */ /* x4471 */ /* x4470 Scheme-to-C-compatibility.sc:392:13530 */ /* x4469 Scheme-to-C-compatibility.sc:392:13537 */ t89202 = "Too few FORMAT arguments"; /* x271262 Scheme-to-C-compatibility.sc:392:13531 */ stalin_panic(t89202); goto l17180; l17179: /* x4474 Scheme-to-C-compatibility.sc:392:13506 */ /* x4473 Scheme-to-C-compatibility.sc:392:13506 */ l17180: /* x4480 Scheme-to-C-compatibility.sc:393:13568 */ /* x4479 Scheme-to-C-compatibility.sc:393:13587 */ /* x4478 Scheme-to-C-compatibility.sc:393:13592 */ t89205 = a14295; /* x271261 Scheme-to-C-compatibility.sc:393:13588 */ if (!((t89205.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 393, 13587); structure_ref_error();} t89204 = t89205.value.structure_type24753->s0; /* x4476 Scheme-to-C-compatibility.sc:393:13569 */ t89203 = p749; f841(t89203, t89204); /* x4464 */ /* x4463 Scheme-to-C-compatibility.sc:394:13606 */ /* x4462 Scheme-to-C-compatibility.sc:394:13622 */ /* x4461 Scheme-to-C-compatibility.sc:394:13627 */ t89200 = a14295; /* x271264 Scheme-to-C-compatibility.sc:394:13623 */ if (!((t89200.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 394, 13622); structure_ref_error();} a14295 = t89200.value.structure_type24753->s1; goto l17163; l17162: /* x4550 */ /* x4496 */ /* x4495 */ /* x4493 */ t89169 = a14339; /* x4494 */ t89170 = 's'; /* x4492 */ t89171.tag = ((unsigned)((unsigned char)t89169))<<2; t89172.tag = ((unsigned)((unsigned char)t89170))<<2; if (!(f26160(t89171, t89172)==FALSE_TYPE)) goto l17165; /* x4489 */ /* x4487 */ t89173 = a14339; /* x4488 */ t89174 = 'S'; /* x4486 */ t89175.tag = ((unsigned)((unsigned char)t89173))<<2; t89176.tag = ((unsigned)((unsigned char)t89174))<<2; if (f26160(t89175, t89176)==FALSE_TYPE) goto l17166; l17165: /* x4520 */ /* x4519 */ t89192 = p747; p754 = t89192; /* x4518 */ /* x4512 Scheme-to-C-compatibility.sc:396:13661 */ /* x4504 Scheme-to-C-compatibility.sc:396:13667 */ /* x4503 Scheme-to-C-compatibility.sc:396:13674 */ t89194 = a14295; /* x271259 Scheme-to-C-compatibility.sc:396:13668 */ if (!((t89194.tag)==NULL_TYPE)) goto l17176; /* x4509 */ /* x4508 */ /* x4507 Scheme-to-C-compatibility.sc:396:13685 */ /* x4506 Scheme-to-C-compatibility.sc:396:13692 */ t89195 = "Too few FORMAT arguments"; /* x271258 Scheme-to-C-compatibility.sc:396:13686 */ stalin_panic(t89195); goto l17177; l17176: /* x4511 Scheme-to-C-compatibility.sc:396:13661 */ /* x4510 Scheme-to-C-compatibility.sc:396:13661 */ l17177: /* x4517 Scheme-to-C-compatibility.sc:397:13723 */ /* x4516 Scheme-to-C-compatibility.sc:397:13740 */ /* x4515 Scheme-to-C-compatibility.sc:397:13745 */ t89198 = a14295; /* x271257 Scheme-to-C-compatibility.sc:397:13741 */ if (!((t89198.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 397, 13740); structure_ref_error();} t89197 = t89198.value.structure_type24753->s0; /* x4513 Scheme-to-C-compatibility.sc:397:13724 */ t89196 = p754; f764(t89196, t89197); /* x4501 */ /* x4500 Scheme-to-C-compatibility.sc:398:13759 */ /* x4499 Scheme-to-C-compatibility.sc:398:13775 */ /* x4498 Scheme-to-C-compatibility.sc:398:13780 */ t89193 = a14295; /* x271260 Scheme-to-C-compatibility.sc:398:13776 */ if (!((t89193.tag)==STRUCTURE_TYPE24753)) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 398, 13775); structure_ref_error();} a14295 = t89193.value.structure_type24753->s1; goto l17167; l17166: /* x4549 */ /* x4524 */ /* x4522 */ t89177 = a14339; /* x4523 */ t89178 = '~'; /* x4521 */ t89179.tag = ((unsigned)((unsigned char)t89177))<<2; t89180.tag = ((unsigned)((unsigned char)t89178))<<2; if (f26160(t89179, t89180)==FALSE_TYPE) goto l17170; /* x4531 */ /* x4530 */ t89189 = p747; p758 = t89189; /* x4529 Scheme-to-C-compatibility.sc:399:13808 */ /* x4528 Scheme-to-C-compatibility.sc:399:13821 */ /* x4526 Scheme-to-C-compatibility.sc:399:13827 */ t89190 = '~'; /* x4527 Scheme-to-C-compatibility.sc:399:13831 */ t89191 = p758->a14327; /* x271256 Scheme-to-C-compatibility.sc:399:13822 */ p758->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p758->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 399, 13821); out_of_memory_error();} p758->a14327->s0.tag = ((unsigned)((unsigned char)t89190))<<2; /* MOVE: branching squeezed to general */ if (t89191>=((struct structure_type24753 *)VALUE_OFFSET)) {p758->a14327->s1.tag = STRUCTURE_TYPE24753; p758->a14327->s1.value.structure_type24753 = t89191;} else p758->a14327->s1.tag = (unsigned)t89191; goto l17171; l17170: /* x4548 */ /* x4535 */ /* x4533 */ t89181 = a14339; /* x4534 */ t89182 = '%'; /* x4532 */ t89183.tag = ((unsigned)((unsigned char)t89181))<<2; t89184.tag = ((unsigned)((unsigned char)t89182))<<2; if (f26160(t89183, t89184)==FALSE_TYPE) goto l17173; /* x4542 */ /* x4541 */ t89186 = p747; p759 = t89186; /* x4540 Scheme-to-C-compatibility.sc:400:13856 */ /* x4539 Scheme-to-C-compatibility.sc:400:13869 */ /* x4537 Scheme-to-C-compatibility.sc:400:13875 */ t89187 = '\n'; /* x4538 Scheme-to-C-compatibility.sc:400:13885 */ t89188 = p759->a14327; /* x271255 Scheme-to-C-compatibility.sc:400:13870 */ p759->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p759->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 400, 13869); out_of_memory_error();} p759->a14327->s0.tag = ((unsigned)((unsigned char)t89187))<<2; /* MOVE: branching squeezed to general */ if (t89188>=((struct structure_type24753 *)VALUE_OFFSET)) {p759->a14327->s1.tag = STRUCTURE_TYPE24753; p759->a14327->s1.value.structure_type24753 = t89188;} else p759->a14327->s1.tag = (unsigned)t89188; goto l17174; l17173: /* x4547 */ /* x4546 */ /* x4545 Scheme-to-C-compatibility.sc:401:13909 */ /* x4544 Scheme-to-C-compatibility.sc:401:13916 */ t89185 = "Improper FORMAT directive"; /* x271254 Scheme-to-C-compatibility.sc:401:13910 */ stalin_panic(t89185); l17174: l17171: l17167: l17163: /* x4446 */ /* x4445 Scheme-to-C-compatibility.sc:402:13954 */ /* x4444 Scheme-to-C-compatibility.sc:402:13969 */ a14328 = FALSE_TYPE; goto l17157; l17156: /* x4573 */ /* x4561 Scheme-to-C-compatibility.sc:403:13981 */ /* x4560 Scheme-to-C-compatibility.sc:403:13994 */ t89152 = '~'; /* x4559 Scheme-to-C-compatibility.sc:403:13989 */ t89151 = a14336; /* x4558 Scheme-to-C-compatibility.sc:403:13982 */ t89153.tag = ((unsigned)((unsigned char)t89151))<<2; t89154 = t89152; if (f27342(t89153, t89154)==FALSE_TYPE) goto l17159; /* x4565 */ /* x4564 */ /* x4563 Scheme-to-C-compatibility.sc:403:13999 */ /* x4562 Scheme-to-C-compatibility.sc:403:14014 */ a14328 = TRUE_TYPE; goto l17160; l17159: /* x4572 */ /* x4571 */ t89155 = p739; p762 = t89155; /* x4570 Scheme-to-C-compatibility.sc:404:14031 */ /* x4569 Scheme-to-C-compatibility.sc:404:14044 */ /* x4567 Scheme-to-C-compatibility.sc:404:14050 */ t89156 = a14336; /* x4568 Scheme-to-C-compatibility.sc:404:14055 */ t89157 = p762->a14327; /* x271253 Scheme-to-C-compatibility.sc:404:14045 */ p762->a14327 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((p762->a14327)==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/Scheme-to-C-compatibility.sc", 404, 14044); out_of_memory_error();} p762->a14327->s0.tag = ((unsigned)((unsigned char)t89156))<<2; /* MOVE: branching squeezed to general */ if (t89157>=((struct structure_type24753 *)VALUE_OFFSET)) {p762->a14327->s1.tag = STRUCTURE_TYPE24753; p762->a14327->s1.value.structure_type24753 = t89157;} else p762->a14327->s1.tag = (unsigned)t89157; l17160: l17157: /* x4442 */ t89135 = p739; p740 = t89135; /* x4441 Scheme-to-C-compatibility.sc:405:14073 */ /* x4407 Scheme-to-C-compatibility.sc:405:14080 */ /* x4405 Scheme-to-C-compatibility.sc:405:14083 */ t89136 = a14335; /* x4406 Scheme-to-C-compatibility.sc:405:14085 */ t89137 = a14326; /* x271270 Scheme-to-C-compatibility.sc:405:14081 */ if (!(t89136a14327; /* x4433 Scheme-to-C-compatibility.sc:408:14258 */ /* MOVE: branching squeezed to general */ if (t89142>=((struct structure_type24753 *)VALUE_OFFSET)) {t89143.tag = STRUCTURE_TYPE24753; t89143.value.structure_type24753 = t89142;} else t89143.tag = (unsigned)t89142; t89140 = f26331(t89143); /* x4432 Scheme-to-C-compatibility.sc:408:14244 */ t89141 = *((struct w49 *)(&t89140)); return f27585(t89141); l17146: /* x6183 */ /* x6182 */ /* x6181 Scheme-to-C-compatibility.sc:409:14290 */ /* x6180 Scheme-to-C-compatibility.sc:409:14297 */ t89125 = "Improper FORMAT destination"; /* x270992 Scheme-to-C-compatibility.sc:409:14291 */ stalin_panic(t89125);} /* STRING-ARGUMENT[644] */ char *f644(struct w49 a14279) {struct w49 t89280; char *t89281; /* x3887 */ /* x3882 */ /* x3881 */ t89280 = a14279; /* x271318 */ if (!((t89280.tag)==STRING_TYPE)) goto l17216; /* x3883 */ return a14279.value.string_type; l17216: /* x3886 */ /* x3885 */ t89281 = "This shouldn\'t happen"; /* x271317 */ stalin_panic(t89281);} /* USAGE[642] */ void f642(void) {char *t89282; char *t89283; struct w49 t89284; char *t89285; struct structure_type24753 *t89286; struct w49 t89287; struct w49 t89288; /* x3862 */ /* x3861 */ /* x3860 */ t89285 = " [-version] [-I include-directory]* [[-s|-x|-q|-t]] [[-treat-all-symbols-as-external|-do-not-treat-all-symbols-as-external]] [[-index-allocated-string-types-by-expression|-do-not-index-allocated-string-types-by-expression]] [[-index-constant-structure-types-by-slot-types|-do-not-index-constant-structure-types-by-slot-types]] [[-index-constant-structure-types-by-expression|-do-not-index-constant-structure-types-by-expression]] [[-index-allocated-structure-types-by-slot-types|-do-not-index-allocated-structure-types-by-slot-types]] [[-index-allocated-structure-types-by-expression|-do-not-index-allocated-structure-types-by-expression]] [[-index-constant-headed-vector-types-by-element-type|-do-not-index-constant-headed-vector-types-by-element-type]] [[-index-constant-headed-vector-types-by-expression|-do-not-index-constant-headed-vector-types-by-expression]] [[-index-allocated-headed-vector-types-by-element-type|-do-not-index-allocated-headed-vector-types-by-element-type]] [[-index-allocated-headed-vector-types-by-expression|-do-not-index-allocated-headed-vector-types-by-expression]] [[-index-constant-nonheaded-vector-types-by-element-type|-do-not-index-constant-nonheaded-vector-types-by-element-type]] [[-index-constant-nonheaded-vector-types-by-expression|-do-not-index-constant-nonheaded-vector-types-by-expression]] [[-index-allocated-nonheaded-vector-types-by-element-type|-do-not-index-allocated-nonheaded-vector-types-by-element-type]] [[-index-allocated-nonheaded-vector-types-by-expression|-do-not-index-allocated-nonheaded-vector-types-by-expression]] [[-no-clone-size-limit|-clone-size-limit number-of-expressions]] [-split-even-if-no-widening] [[-fully-convert-to-CPS|-no-escaping-continuations]] [-du] [-Ob] [-Om] [-On] [-Or] [-Ot] [-d0] [-d1] [-d2] [-d3] [-d4] [-d5] [-d6] [-d7] [-closure-conversion-statistics] [-dc] [-dC] [-dH] [-dg] [-dh] [-d] [-architecture name] [[-baseline|-conventional|-lightweight]] [[-immediate-flat|-indirect-flat|-immediate-display|-indirect-display|-linked]] [[-align-strings|-do-not-align-strings]] [-de] [-df] [-dG] [-di] [-dI] [-dp] [-dP] [-ds] [-dS] [-Tmk] [-no-tail-call-optimization] [-db] [-c] [-k] [-cc C-compiler] [-copt C-compiler-options]* [pathname]"; /* x3859 */ t89284 = a13725; /* x3858 */ t89283 = "usage: "; /* x3857 */ t89288.tag = STRUCTURE_TYPE24753; t89288.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t89288.value.structure_type24753)==NULL) {backtrace_internal("USAGE[642]"); out_of_memory_error();} t89288.value.structure_type24753->s0.tag = STRING_TYPE; t89288.value.structure_type24753->s0.value.string_type = t89285; t89288.value.structure_type24753->s1.tag = NULL_TYPE; t89287.tag = STRUCTURE_TYPE24753; t89287.value.structure_type24753 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if ((t89287.value.structure_type24753)==NULL) {backtrace_internal("USAGE[642]"); out_of_memory_error();} t89287.value.structure_type24753->s0 = t89284; t89287.value.structure_type24753->s1 = t89288; t89286 = (struct structure_type24753 *)alloca(sizeof(struct structure_type24753)); if (t89286==NULL) {backtrace_internal("USAGE[642]"); out_of_memory_error();} t89286->s0.tag = STRING_TYPE; t89286->s0.value.string_type = t89283; t89286->s1 = t89287; t89282 = f27556(t89286); /* x271321 */ stalin_panic(t89282);} /* [inside top level 0] */ void f0(struct nonheaded_vector_type24736 a0) {struct w49 a663; /* *CURRENT-ARCHITECTURE-NAME* */ struct structure_type24753 *a669; /* *COPTS* */ char *a670; /* *CC* */ unsigned a671; /* *KEEP-C?* */ unsigned a672; /* *RUN-CC?* */ unsigned a673; /* *DATABASE?* */ unsigned a674; /* *TAIL-CALL-OPTIMIZATION?* */ unsigned a676; /* *SQUISH?* */ unsigned a678; /* *COPY-PROPAGATION?* */ unsigned a679; /* *PROMOTE-REPRESENTATIONS?* */ struct w49 a688; /* *ARCHITECTURE-NAME* */ char *a689; /* *FLONUM-REPRESENTATION* */ unsigned a695; /* *CLOSURE-CONVERSION-STATISTICS?* */ unsigned a697; /* *P6?* */ unsigned a698; /* *P5?* */ unsigned a699; /* *P4?* */ unsigned a700; /* *P3?* */ unsigned a701; /* *P2?* */ unsigned a702; /* *P1?* */ unsigned a709; /* *NO-ESCAPING-CONTINUATIONS?* */ unsigned a710; /* *FULLY-CONVERT-TO-CPS?* */ unsigned a727; /* *TROTSKY?* */ unsigned a728; /* *QOBISCHEME?* */ unsigned a729; /* *XLIB-AND-GL?* */ unsigned a730; /* *SCHEME->C-COMPATIBILITY?* */ struct structure_type24753 *a735; /* *TROTSKY-MACROS* */ struct structure_type24753 *a736; /* *QOBISCHEME-MACROS* */ struct structure_type24753 *a737; /* *XLIB-AND-GL-MACROS* */ struct structure_type24753 *a740; /* *SCHEME->C-COMPATIBILITY-MACROS* */ struct structure_type24753 *a754; /* *R4RS-MACROS* */ struct w49 a1937; /* */ float a3044; /* INFINITY */ float a3100; /* TWO-PI */ float a3102; /* PI */ struct w49 a13718; /* ARGUMENTS */ char *a13729; /* PATHNAME */ struct structure_type24753 *a13730; /* COPTS */ char *a13732; /* CC */ unsigned a13733; /* CC? */ unsigned a13734; /* KEEP-C? */ unsigned a13735; /* DISABLE-RUN-CC? */ unsigned a13736; /* DISABLE-DATABASE? */ unsigned a13737; /* DISABLE-TAIL-CALL-OPTIMIZATION? */ unsigned a13738; /* TREADMARKS? */ unsigned a13739; /* DISABLE-SQUISHING? */ unsigned a13740; /* DISABLE-SQUEEZING? */ unsigned a13741; /* COPY-PROPAGATION? */ unsigned a13742; /* PROMOTE-REPRESENTATIONS? */ unsigned a13743; /* IMMEDIATE-STRUCTURES? */ unsigned a13744; /* TYPE-IF? */ unsigned a13745; /* GLOBALS? */ unsigned a13746; /* DISABLE-FORGERY? */ unsigned a13747; /* EQ?-FORGERY? */ unsigned a13748; /* DO-NOT-ALIGN-STRINGS? */ unsigned a13749; /* ALIGN-STRINGS? */ unsigned a13750; /* LINKED? */ unsigned a13751; /* INDIRECT-DISPLAY? */ unsigned a13752; /* IMMEDIATE-DISPLAY? */ unsigned a13753; /* INDIRECT-FLAT? */ unsigned a13754; /* IMMEDIATE-FLAT? */ unsigned a13755; /* LIGHTWEIGHT? */ unsigned a13756; /* CONVENTIONAL? */ unsigned a13757; /* BASELINE? */ char *a13758; /* ARCHITECTURE-NAME */ unsigned a13759; /* ARCHITECTURE-NAME? */ unsigned a13760; /* D? */ unsigned a13761; /* DISABLE-EXPANDABLE-REGIONS? */ unsigned a13762; /* MEMORY-MESSAGES? */ unsigned a13763; /* DISABLE-REGION-ALLOCATION? */ unsigned a13764; /* DISABLE-HEAP-ALLOCATION? */ unsigned a13765; /* DISABLE-STACK-ALLOCATION? */ unsigned a13766; /* CLOSURE-CONVERSION-STATISTICS? */ unsigned a13767; /* P7? */ unsigned a13768; /* P6? */ unsigned a13769; /* P5? */ unsigned a13770; /* P4? */ unsigned a13771; /* P3? */ unsigned a13772; /* P2? */ unsigned a13773; /* P1? */ unsigned a13774; /* P0? */ unsigned a13775; /* DISABLE-TYPE-CHECKS? */ unsigned a13776; /* DISABLE-RUNTIME-CHECKS? */ unsigned a13777; /* DISABLE-OVERFLOW-CHECKS? */ unsigned a13778; /* DISABLE-MEMORY-CHECKS? */ unsigned a13779; /* DISABLE-BOUNDS-CHECKS? */ unsigned a13780; /* DISABLE-UNIQUENESS? */ unsigned a13781; /* NO-ESCAPING-CONTINUATIONS? */ unsigned a13782; /* FULLY-CONVERT-TO-CPS? */ unsigned a13783; /* SPLIT-EVEN-IF-NO-WIDENING? */ int a13784; /* CLONE-SIZE-LIMIT */ unsigned a13785; /* CLONE-SIZE-LIMIT? */ unsigned a13786; /* NO-CLONE-SIZE-LIMIT? */ unsigned a13787; /* DO-NOT-INDEX-ALLOCATED-NONHEADED-VECTOR-TYPES-BY-EXPRESSION? */ unsigned a13788; /* INDEX-ALLOCATED-NONHEADED-VECTOR-TYPES-BY-EXPRESSION? */ unsigned a13789; /* DO-NOT-INDEX-ALLOCATED-NONHEADED-VECTOR-TYPES-BY-ELEMENT-TYPE? */ unsigned a13790; /* INDEX-ALLOCATED-NONHEADED-VECTOR-TYPES-BY-ELEMENT-TYPE? */ unsigned a13791; /* DO-NOT-INDEX-CONSTANT-NONHEADED-VECTOR-TYPES-BY-EXPRESSION? */ unsigned a13792; /* INDEX-CONSTANT-NONHEADED-VECTOR-TYPES-BY-EXPRESSION? */ unsigned a13793; /* DO-NOT-INDEX-CONSTANT-NONHEADED-VECTOR-TYPES-BY-ELEMENT-TYPE? */ unsigned a13794; /* INDEX-CONSTANT-NONHEADED-VECTOR-TYPES-BY-ELEMENT-TYPE? */ unsigned a13795; /* DO-NOT-INDEX-ALLOCATED-HEADED-VECTOR-TYPES-BY-EXPRESSION? */ unsigned a13796; /* INDEX-ALLOCATED-HEADED-VECTOR-TYPES-BY-EXPRESSION? */ unsigned a13797; /* DO-NOT-INDEX-ALLOCATED-HEADED-VECTOR-TYPES-BY-ELEMENT-TYPE? */ unsigned a13798; /* INDEX-ALLOCATED-HEADED-VECTOR-TYPES-BY-ELEMENT-TYPE? */ unsigned a13799; /* DO-NOT-INDEX-CONSTANT-HEADED-VECTOR-TYPES-BY-EXPRESSION? */ unsigned a13800; /* INDEX-CONSTANT-HEADED-VECTOR-TYPES-BY-EXPRESSION? */ unsigned a13801; /* DO-NOT-INDEX-CONSTANT-HEADED-VECTOR-TYPES-BY-ELEMENT-TYPE? */ unsigned a13802; /* INDEX-CONSTANT-HEADED-VECTOR-TYPES-BY-ELEMENT-TYPE? */ unsigned a13803; /* DO-NOT-INDEX-ALLOCATED-STRUCTURE-TYPES-BY-EXPRESSION? */ unsigned a13804; /* INDEX-ALLOCATED-STRUCTURE-TYPES-BY-EXPRESSION? */ unsigned a13805; /* DO-NOT-INDEX-ALLOCATED-STRUCTURE-TYPES-BY-SLOT-TYPES? */ unsigned a13806; /* INDEX-ALLOCATED-STRUCTURE-TYPES-BY-SLOT-TYPES? */ unsigned a13807; /* DO-NOT-INDEX-CONSTANT-STRUCTURE-TYPES-BY-EXPRESSION? */ unsigned a13808; /* INDEX-CONSTANT-STRUCTURE-TYPES-BY-EXPRESSION? */ unsigned a13809; /* DO-NOT-INDEX-CONSTANT-STRUCTURE-TYPES-BY-SLOT-TYPES? */ unsigned a13810; /* INDEX-CONSTANT-STRUCTURE-TYPES-BY-SLOT-TYPES? */ unsigned a13811; /* DO-NOT-INDEX-ALLOCATED-STRING-TYPES-BY-EXPRESSION? */ unsigned a13812; /* INDEX-ALLOCATED-STRING-TYPES-BY-EXPRESSION? */ unsigned a13813; /* DO-NOT-TREAT-ALL-SYMBOLS-AS-EXTERNAL? */ unsigned a13814; /* TREAT-ALL-SYMBOLS-AS-EXTERNAL? */ unsigned a13815; /* T? */ unsigned a13816; /* Q? */ unsigned a13817; /* X? */ unsigned a13818; /* S? */ struct structure_type24753 *a13819; /* INCLUDE-PATH */ unsigned a13821; /* VERSION? */ struct w49 a13915; /* SS */ struct w49 a14281; /* STRING */ struct w29434 a14283; /* INTEGER */ struct structure_type24753 *a15105; /* X */ struct w49 a15108; /* X */ struct structure_type24753 *a15109; /* C */ struct w49 a15157; /* L */ struct structure_type24753 *a15161; /* C */ struct w49 a15162; /* X */ char *a15560; /* PATHNAME */ struct structure_type24753 *a15563; /* LINES */ char *a15564; /* LINE */ struct w49 a15577; /* PATHNAME */ char *a20066; /* ELEMENT */ char *a20068; /* LINK */ unsigned a20069; /* INDEX */ int a20070; /* USE-COUNT */ char *a20071; /* TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO */ int a20073; /* BOOLEANS */ struct structure_type27669 *a21120; /* U */ struct structure_type24753 *a21127; /* US */ struct w49 a21134; /* v */ struct w49 a23041; /* S */ struct w49 a23072; /* S */ struct structure_type24753 *a23110; /* XS */ struct w12224 a23112; /* XS2 */ struct w12224 a23288; /* XS */ struct w12224 a23898; /* ES2 */ struct w49 a24679; /* X */ struct structure_type27692 *a24682; /* G */ struct w49 a24698; /* ROOT */ struct w49 a24858; /* INITIAL-VALUE */ struct w49 a24888; /* US */ struct w49 a24896; /* US */ struct w49 a24905; /* US */ struct w49 a24920; /* US */ struct w49 a24932; /* US */ struct w49 a24943; /* US */ struct structure_type24753 *a26476; /* C */ struct structure_type24753 *a26504; /* C */ struct structure_type24753 *a26543; /* C */ struct w49 a27160; /* US */ char *a27181; /* v */ char *a32820; /* PATHNAME */ struct w49 a32849; /* PATHNAME */ struct w49 a32850; /* ARCHITECTURE */ char *a32878; /* v */ char *a32879; /* v */ char *a32880; /* v */ struct w49 a32881; /* INCLUDE-PATH */ float a33014; /* T */ struct w49 a33015; /* HERALD */ char *a33020; /* PATHNAME */ char *a33038; /* PATHNAME */ struct structure_type24753 *a33049; /* SS-SPITTER */ struct w49 a33050; /* SS */ struct w49 a33051; /* SPITTER */ unsigned a33111; /* AGAIN? */ int a33187; /* I */ struct structure_type24753 *a33209; /* COUNTS */ struct w12224 a33232; /* ES */ struct w12224 a33268; /* ES */ struct w12224 a33294; /* YS */ struct w12224 a33312; /* YS */ struct w49 a33333; /* C1 */ struct w49 a33334; /* C1 */ struct w49 a33338; /* U */ struct w49 a33339; /* G */ struct w49 a33340; /* W */ struct w60861 a33341; /* T */ struct structure_type24753 *a33343; /* C */ struct w49 a33344; /* C */ struct w49 a33345; /* C */ struct structure_type24753 *a33346; /* C */ struct structure_type24753 *a34863; /* OBJS */ struct structure_type24753 *a34889; /* OBJS */ struct structure_type24753 *a34890; /* OBJS */ struct structure_type24753 *a35113; /* OBJS */ struct structure_type24753 *a35114; /* OBJS */ struct structure_type24753 *a35115; /* OBJS */ struct structure_type24753 *a35116; /* OBJS */ struct structure_type24753 *a35118; /* OBJS */ struct structure_type24753 *a35193; /* OBJS */ struct structure_type24753 *a35205; /* OBJS */ struct structure_type24753 *a35207; /* OBJS */ struct structure_type24753 *a35208; /* OBJS */ struct structure_type24753 *a35209; /* OBJS */ struct structure_type24753 *a35210; /* OBJS */ struct structure_type24753 *a35212; /* OBJS */ struct structure_type24753 *a35241; /* OBJS */ struct structure_type24753 *a35279; /* OBJS */ struct structure_type24753 *a35280; /* OBJS */ struct structure_type24753 *a35281; /* OBJS */ struct structure_type24753 *a35282; /* OBJS */ struct structure_type24753 *a35283; /* OBJS */ struct structure_type24753 *a35284; /* OBJS */ struct structure_type24753 *a35285; /* OBJS */ struct structure_type24753 *a35286; /* OBJS */ struct structure_type24753 *a35287; /* OBJS */ struct structure_type24753 *a35288; /* OBJS */ struct structure_type24753 *a35289; /* OBJS */ struct structure_type24753 *a35290; /* OBJS */ struct structure_type24753 *a35291; /* OBJS */ struct structure_type24753 *a35292; /* OBJS */ struct structure_type24753 *a35293; /* OBJS */ struct structure_type24753 *a35294; /* OBJS */ struct structure_type24753 *a35295; /* OBJS */ struct structure_type24753 *a35296; /* OBJS */ struct structure_type24753 *a35297; /* OBJS */ struct structure_type24753 *a35298; /* OBJS */ struct structure_type24753 *a35299; /* OBJS */ struct structure_type24753 *a35300; /* OBJS */ struct structure_type24753 *a35301; /* OBJS */ struct structure_type24753 *a35302; /* OBJS */ struct structure_type24753 *a35303; /* OBJS */ struct structure_type24753 *a35304; /* OBJS */ struct structure_type24753 *a35305; /* OBJS */ struct structure_type24753 *a35306; /* OBJS */ struct structure_type24753 *a35307; /* OBJS */ struct structure_type24753 *a35308; /* OBJS */ struct structure_type24753 *a35309; /* OBJS */ struct structure_type24753 *a35310; /* OBJS */ struct structure_type24753 *a35311; /* OBJS */ struct structure_type24753 *a35312; /* OBJS */ struct structure_type24753 *a35313; /* OBJS */ struct structure_type24753 *a35314; /* OBJS */ struct structure_type24753 *a35315; /* OBJS */ struct structure_type24753 *a35316; /* OBJS */ struct structure_type24753 *a35317; /* OBJS */ struct structure_type24753 *a35318; /* OBJS */ struct structure_type24753 *a35319; /* OBJS */ struct structure_type24753 *a35320; /* OBJS */ struct structure_type24753 *a35321; /* OBJS */ struct structure_type24753 *a35322; /* OBJS */ struct structure_type24753 *a35323; /* OBJS */ struct structure_type24753 *a35324; /* OBJS */ struct structure_type24753 *a35325; /* OBJS */ struct w16638 a35326; /* PAIR */ struct w16638 a35329; /* PAIR */ struct w16638 a35330; /* PAIR */ struct w16638 a35346; /* PAIR */ struct w16638 a35347; /* PAIR */ struct w16638 a35351; /* PAIR */ struct w16638 a35352; /* PAIR */ struct w16638 a35546; /* PAIR */ struct w16638 a35547; /* PAIR */ struct w16638 a35552; /* PAIR */ struct w16638 a35553; /* PAIR */ struct w16638 a35568; /* PAIR */ struct w16638 a35569; /* PAIR */ struct w3467 a35640; /* PAIR */ struct structure_type24753 *a35641; /* PAIR */ struct structure_type24753 *a35642; /* PAIR */ struct structure_type24753 *a36009; /* PAIR */ struct structure_type24753 *a36107; /* PAIR */ struct w16638 a36127; /* PAIR */ struct w16638 a36128; /* PAIR */ struct w49 a36142; /* PAIR */ struct w16638 a36143; /* PAIR */ struct w16638 a36144; /* PAIR */ struct w16638 a36145; /* PAIR */ struct w16638 a36146; /* PAIR */ struct w16638 a36147; /* PAIR */ struct w16638 a36148; /* PAIR */ struct structure_type24753 *a36181; /* PAIR */ struct w49 a36229; /* PAIR */ struct w49 a36841; /* S */ struct w49 a36851; /* S */ struct w49 a37296; /* S */ struct w49 a37380; /* S */ struct w3467 a37384; /* S */ struct w3467 a37387; /* S */ struct w49 a37483; /* S */ struct w49 a37604; /* S */ struct w49 a37731; /* S */ struct w49 a38248; /* S */ struct w49 a38583; /* S */ struct w49 a38584; /* S */ struct w49 a38585; /* S */ struct w49 a38586; /* S */ struct w49 a38587; /* S */ struct w49 a38588; /* S */ struct w49 a38593; /* S */ struct w49 a38594; /* S */ struct w49 a38595; /* S */ struct w49 a38596; /* S */ struct w49 a38597; /* S */ struct w49 a38707; /* S */ struct w49 a38708; /* S */ struct w49 a38709; /* S */ struct w49 a38710; /* S */ struct w49 a38711; /* S */ struct w49 a38712; /* S */ struct w49 a38713; /* S */ struct w49 a38714; /* S */ struct w49 a38716; /* S */ struct w49 a38717; /* S */ struct w49 a38718; /* S */ struct w49 a38719; /* S */ struct w49 a38720; /* S */ struct w49 a38721; /* S */ struct w49 a38722; /* S */ struct w49 a38723; /* S */ struct w49 a38724; /* S */ struct w49 a38725; /* S */ struct w49 a38726; /* S */ struct w49 a38727; /* S */ struct w49 a38728; /* S */ struct w49 a38729; /* S */ struct w49 a38730; /* S */ struct w49 a38731; /* S */ struct w49 a38732; /* S */ struct w49 a38733; /* S */ struct w49 a38734; /* S */ struct w49 a38735; /* S */ struct w49 a38736; /* S */ struct w49 a38737; /* S */ struct w49 a38738; /* S */ struct w49 a38739; /* S */ struct w49 a38740; /* S */ struct w49 a38741; /* S */ struct w49 a38742; /* S */ struct w49 a38743; /* S */ struct w49 a38744; /* S */ struct w49 a38745; /* S */ struct w49 a38746; /* S */ struct w49 a38747; /* S */ struct w49 a38748; /* S */ struct w49 a38749; /* S */ struct w49 a38750; /* S */ struct w49 a38751; /* S */ struct w49 a38752; /* S */ struct w49 a38753; /* S */ struct w49 a38754; /* S */ struct w49 a38755; /* S */ struct w49 a38756; /* S */ struct w49 a38757; /* S */ struct w49 a38758; /* S */ struct w49 a38759; /* S */ struct w49 a38760; /* S */ struct w49 a38761; /* S */ struct w49 a38762; /* S */ struct w49 a38763; /* S */ struct w49 a38764; /* S */ struct w49 a38765; /* S */ struct w49 a38766; /* S */ struct w49 a38767; /* S */ struct w49 a38768; /* S */ struct w49 a38769; /* S */ struct w49 a38770; /* S */ struct w49 a38771; /* S */ struct w49 a38772; /* S */ struct w49 a38773; /* S */ struct w49 a38774; /* S */ struct w49 a38775; /* S */ struct w49 a38776; /* S */ struct w49 a38777; /* S */ struct w49 a38778; /* S */ struct w49 a38779; /* S */ struct w49 a38780; /* S */ struct w49 a38781; /* S */ struct w49 a38784; /* S */ struct w49 a38785; /* S */ struct w49 a38786; /* S */ struct w49 a38787; /* S */ struct w49 a38788; /* S */ struct w49 a38789; /* S */ struct w49 a38790; /* S */ struct w49 a38791; /* S */ struct w49 a38792; /* S */ struct w49 a38793; /* S */ struct w49 a38794; /* S */ struct w49 a38795; /* S */ struct w49 a38796; /* S */ struct w49 a38797; /* S */ struct w49 a38798; /* S */ struct w49 a38799; /* S */ struct w49 a38800; /* S */ struct w49 a38801; /* S */ struct w49 a38802; /* S */ struct w49 a38803; /* S */ struct w49 a38804; /* S */ struct w49 a38805; /* S */ struct w49 a38806; /* S */ struct w49 a38807; /* S */ struct w49 a38808; /* S */ struct w49 a38809; /* S */ struct w49 a38810; /* S */ struct w49 a38811; /* S */ struct w49 a38812; /* S */ struct w49 a38813; /* S */ struct w49 a38814; /* S */ struct w49 a38815; /* S */ struct w49 a38816; /* S */ struct w49 a38817; /* S */ struct w49 a38818; /* S */ struct w49 a38819; /* S */ struct w49 a38820; /* S */ struct w49 a38821; /* S */ struct w49 a38822; /* S */ struct w49 a38823; /* S */ struct w49 a38824; /* S */ struct w49 a38825; /* S */ struct w49 a38826; /* S */ struct w49 a38827; /* S */ struct w49 a38828; /* S */ struct w49 a38829; /* S */ struct w49 a38830; /* S */ struct w49 a38831; /* S */ struct w49 a38832; /* S */ struct w49 a38833; /* S */ struct w49 a38834; /* S */ struct w49 a38835; /* S */ struct w49 a38836; /* S */ struct w49 a38837; /* S */ struct w49 a38838; /* S */ struct w49 a38839; /* S */ struct w49 a38840; /* S */ struct w49 a38841; /* S */ struct w49 a38842; /* S */ struct w49 a38843; /* S */ struct w49 a38844; /* S */ struct w49 a38845; /* S */ struct w49 a38846; /* S */ struct w49 a38847; /* S */ struct w49 a38848; /* S */ struct w49 a38849; /* S */ struct w49 a38850; /* S */ struct w49 a38851; /* S */ struct w49 a38852; /* S */ struct w49 a38853; /* S */ struct w49 a38854; /* S */ struct w49 a38855; /* S */ struct w49 a39247; /* S */ struct w49 a39248; /* S */ struct w49 a39249; /* S */ struct w49 a39250; /* S */ struct w49 a39251; /* S */ struct w49 a39252; /* S */ struct w49 a39253; /* S */ struct w49 a39254; /* S */ struct w49 a39257; /* S */ struct w49 a39258; /* S */ struct w49 a39259; /* S */ struct w49 a39260; /* S */ struct w49 a39261; /* S */ struct w49 a39262; /* S */ struct w49 a39263; /* S */ struct w49 a39264; /* S */ struct w49 a39265; /* S */ struct w49 a39266; /* S */ struct w49 a39267; /* S */ struct w49 a39268; /* S */ struct w49 a39269; /* S */ struct w49 a39270; /* S */ struct w49 a39271; /* S */ struct w49 a39272; /* S */ struct w49 a39273; /* S */ struct w49 a39274; /* S */ struct w49 a39275; /* S */ struct w49 a39276; /* S */ struct w49 a39277; /* S */ struct w49 a39278; /* S */ struct w49 a39279; /* S */ struct w49 a39280; /* S */ struct w49 a39281; /* S */ struct w49 a39282; /* S */ struct w49 a39283; /* S */ struct w49 a39284; /* S */ struct w49 a39285; /* S */ struct w49 a39286; /* S */ struct w49 a39287; /* S */ struct w49 a39288; /* S */ struct w49 a39289; /* S */ struct w49 a39290; /* S */ struct w49 a39291; /* S */ struct w49 a39292; /* S */ struct w49 a39293; /* S */ struct w49 a39294; /* S */ struct w49 a39295; /* S */ struct w49 a39296; /* S */ struct w49 a39297; /* S */ struct w49 a39298; /* S */ struct w49 a39299; /* S */ struct w49 a39300; /* S */ struct w49 a39301; /* S */ struct w49 a39302; /* S */ struct w49 a39303; /* S */ struct w49 a39304; /* S */ struct w49 a39305; /* S */ struct w49 a39306; /* S */ struct w49 a39307; /* S */ struct w49 a39308; /* S */ struct w49 a39309; /* S */ struct w49 a39310; /* S */ struct w49 a39311; /* S */ struct w49 a39312; /* S */ struct w49 a39313; /* S */ struct w49 a39314; /* S */ struct w49 a39315; /* S */ struct w49 a39316; /* S */ struct w49 a39317; /* S */ struct w49 a39318; /* S */ struct w49 a39319; /* S */ struct w49 a39320; /* S */ struct w49 a39321; /* S */ struct w49 a39322; /* S */ struct w49 a39323; /* S */ struct w49 a39324; /* S */ struct w49 a39325; /* S */ struct w49 a39326; /* S */ struct w49 a39327; /* S */ struct w49 a39328; /* S */ struct w49 a39329; /* S */ struct w49 a39330; /* S */ struct w49 a39331; /* S */ struct w49 a39334; /* S */ struct w49 a39335; /* S */ struct w49 a39336; /* S */ struct w49 a39337; /* S */ struct w49 a39338; /* S */ struct w49 a39339; /* S */ struct w49 a39340; /* S */ struct w49 a39341; /* S */ struct w49 a39342; /* S */ struct w49 a39343; /* S */ struct w49 a39344; /* S */ struct w49 a39345; /* S */ struct w49 a39346; /* S */ struct w49 a39347; /* S */ struct w49 a39348; /* S */ struct w49 a39349; /* S */ struct w49 a39350; /* S */ struct w49 a39351; /* S */ struct w49 a39352; /* S */ struct w49 a39353; /* S */ struct w49 a39354; /* S */ struct w49 a39355; /* S */ struct w49 a39356; /* S */ struct w49 a39357; /* S */ struct w49 a39358; /* S */ struct w49 a39359; /* S */ struct w49 a39360; /* S */ struct w49 a39361; /* S */ struct w49 a39362; /* S */ struct w49 a39363; /* S */ struct w49 a39364; /* S */ struct w49 a39365; /* S */ struct w49 a39366; /* S */ struct w49 a39367; /* S */ struct w49 a39368; /* S */ struct w49 a39369; /* S */ struct w49 a39370; /* S */ struct w49 a39371; /* S */ struct w49 a39372; /* S */ struct w49 a39373; /* S */ struct w49 a39374; /* S */ struct w49 a39375; /* S */ struct w49 a39376; /* S */ struct w49 a39377; /* S */ struct w49 a39378; /* S */ struct w49 a39379; /* S */ struct w49 a39380; /* S */ struct w49 a39381; /* S */ struct w49 a39382; /* S */ struct w49 a39383; /* S */ struct w49 a39384; /* S */ struct w49 a39385; /* S */ struct w49 a39386; /* S */ struct w49 a39387; /* S */ struct w49 a39388; /* S */ struct w49 a39389; /* S */ struct w49 a39390; /* S */ struct w49 a39391; /* S */ struct w49 a39392; /* S */ struct w49 a39393; /* S */ struct w49 a39394; /* S */ struct w49 a39395; /* S */ struct w49 a39396; /* S */ struct w49 a39397; /* S */ struct w49 a39398; /* S */ struct w49 a39399; /* S */ struct w49 a39400; /* S */ struct w49 a39401; /* S */ struct w49 a39402; /* S */ struct w49 a39403; /* S */ struct w49 a39404; /* S */ struct w49 a39405; /* S */ struct w49 a39406; /* S */ struct w49 a39407; /* S */ struct w49 a39408; /* S */ struct w49 a39409; /* S */ struct w49 a39410; /* S */ struct w49 a39411; /* S */ struct w49 a39412; /* S */ struct w49 a39413; /* S */ struct w49 a39414; /* S */ struct w49 a39415; /* S */ struct w49 a39416; /* S */ struct w49 a39417; /* S */ struct w49 a39418; /* S */ struct w49 a39419; /* S */ struct w49 a39420; /* S */ struct w49 a39421; /* S */ struct w49 a39441; /* S */ struct w49 a39443; /* S */ struct w49 a39444; /* S */ struct w49 a39445; /* S */ struct w49 a39446; /* S */ struct w49 a39447; /* S */ struct w49 a39449; /* S */ struct w49 a39450; /* S */ struct w49 a39451; /* S */ struct w49 a39452; /* S */ struct w49 a39453; /* S */ struct w49 a39454; /* S */ struct w49 a39455; /* S */ struct w49 a39456; /* S */ struct w49 a39457; /* S */ struct w49 a39458; /* S */ struct w49 a39459; /* S */ struct w49 a39463; /* S */ struct w49 a39513; /* S */ struct w49 a39514; /* S */ struct w49 a39987; /* S */ struct w49 a40009; /* S */ struct w49 a40018; /* S */ struct w49 a40019; /* S */ struct w49 a40374; /* S */ struct w49 a40375; /* S */ struct w49 a40376; /* S */ struct w49 a40377; /* S */ struct w49 a40378; /* S */ struct w49 a40379; /* S */ struct w49 a40381; /* S */ struct w49 a40382; /* S */ struct w49 a40383; /* S */ struct w49 a40384; /* S */ struct w49 a40400; /* S */ struct w49 a41640; /* G */ struct w49 a41641; /* G */ struct w49 a41642; /* G */ struct w49 a41643; /* G */ struct w49 a41678; /* G */ struct w49 a41692; /* G */ struct w49 a41693; /* G */ struct w49 a41725; /* G */ struct w49 a41726; /* G */ struct w49 a41727; /* G */ struct w49 a41729; /* G */ struct structure_type24753 *a41856; /* CS */ struct structure_type24753 *a41857; /* CS */ struct structure_type24753 *a41858; /* CS */ struct structure_type24753 *a41859; /* CS */ struct structure_type24753 *a41860; /* CS */ struct structure_type24753 *a41862; /* CS */ struct structure_type24753 *a41863; /* CS */ struct structure_type24753 *a41864; /* CS */ struct structure_type24753 *a41865; /* CS */ struct structure_type24753 *a41866; /* CS */ struct structure_type24753 *a41867; /* CS */ struct structure_type24753 *a41868; /* CS */ struct structure_type24753 *a41869; /* CS */ struct structure_type24753 *a41939; /* CS */ struct structure_type24753 *a42021; /* CS */ struct structure_type24753 *a42022; /* CS */ struct structure_type24753 *a42023; /* CS */ struct structure_type24753 *a42039; /* CS */ struct structure_type24753 *a42040; /* CS */ struct structure_type24753 *a42041; /* CS */ struct structure_type24753 *a42042; /* CS */ struct structure_type24753 *a42096; /* CS */ struct structure_type24753 *t89289; struct w49 t89290; char *t89291; char *t89292; int t89293; char *t89294; struct structure_type24753 *t89295; struct w49 t89296; struct w49 t89297; struct w12224 t89298; struct w36108 t89299; struct w49 t89300; struct structure_type24753 *t89301; struct structure_type24753 *t89302; struct w49 t89303; char *t89304; struct w49 t89305; struct structure_type24753 *t89306; float t89307; struct w49 t89308; struct structure_type24753 *t89309; struct structure_type24753 *t89310; float t89311; struct w49 t89312; struct w49 t89313; float t89314; struct w49 t89315; struct structure_type24753 *t89316; struct structure_type24753 *t89317; struct structure_type24753 *t89318; struct w49 t89319; struct w3467 t89320; float t89321; struct w49 t89322; float t89323; struct w3467 t89324; struct w3467 t89325; float t89326; struct w49 t89327; struct structure_type24753 *t89328; struct structure_type24753 *t89329; struct structure_type24753 *t89330; struct w227506 t89331; struct w49 t89332; unsigned t89333; char *t89334; struct w49 t89335; struct w49 t89336; char *t89337; struct structure_type24753 *t89338; struct w49 t89339; struct structure_type27698 *t89340; struct w21193 t89341; struct w49 t89342; struct w12224 t89343; unsigned t89344; char *t89345; char *t89346; char *t89347; struct w49 t89348; struct w49 t89349; struct w9296 t89350; struct w49 t89351; struct w49 t89352; struct w49 t89353; int t89354; int t89355; struct w9296 t89356; struct w49 t89357; struct w49 t89358; struct w49 t89359; struct w49 t89360; struct w49 t89361; char *t89362; char *t89363; struct w49 t89364; struct w49 t89365; struct w49 t89366; struct w49 t89367; char *t89368; char *t89369; struct w49 t89370; struct w49 t89371; struct w49 t89372; struct w49 t89373; struct w49 t89374; struct w49 t89375; char *t89376; char *t89377; struct w49 t89378; struct w49 t89379; struct w49 t89380; struct w49 t89381; struct w49 t89382; struct w49 t89383; struct w49 t89384; struct w49 t89385; char *t89386; char *t89387; struct w49 t89388; struct w49 t89389; struct w49 t89390; struct w49 t89391; struct w49 t89392; struct w49 t89393; struct w49 t89394; struct w49 t89395; struct w49 t89396; struct w49 t89397; struct w9296 t89398; struct w49 t89399; struct w49 t89400; struct w49 t89401; struct w49 t89402; struct w49 t89403; struct w49 t89404; struct w49 t89405; struct w49 t89406; struct w49 t89407; struct w49 t89408; struct w49 t89409; int t89410; int t89411; struct w9296 t89412; struct w49 t89413; struct w49 t89414; struct w49 t89415; struct w49 t89416; struct w49 t89417; struct w49 t89418; struct w49 t89419; struct w49 t89420; struct w49 t89421; struct w49 t89422; struct w49 t89423; struct w9296 t89424; struct w228245 t89425; struct w49 t89426; struct structure_type24753 *t89427; struct w49 t89428; struct w49 t89429; struct w49 t89430; struct w49 t89431; struct w49 t89432; struct w49 t89433; struct w49 t89434; struct w49 t89435; struct w49 t89436; struct w49 t89437; int t89438; int t89439; struct w11873 t89440; unsigned t89441; struct w227393 t89442; struct w49 t89443; struct w49 t89444; struct w49 t89445; struct w49 t89446; struct w49 t89447; struct w49 t89448; struct w49 t89449; struct w49 t89450; char *t89451; char *t89452; struct w49 t89453; struct w49 t89454; struct w49 t89455; struct w49 t89456; struct w49 t89457; struct w49 t89458; struct w49 t89459; struct w49 t89460; struct w49 t89461; struct w49 t89462; struct w49 t89463; struct w49 t89464; int t89465; int t89466; struct w11873 t89467; struct w49 t89468; struct w49 t89469; struct w49 t89470; struct w49 t89471; struct w49 t89472; struct w49 t89473; struct w49 t89474; struct w49 t89475; struct w49 t89476; struct w49 t89477; struct w49 t89478; struct w49 t89479; struct w49 t89480; struct w11873 t89481; struct w228245 t89482; struct w49 t89483; struct structure_type24753 *t89484; struct w49 t89485; struct w49 t89486; struct w49 t89487; struct w49 t89488; struct w49 t89489; struct w49 t89490; struct w49 t89491; struct w49 t89492; struct w49 t89493; struct w49 t89494; struct w49 t89495; struct w49 t89496; char *t89497; char *t89498; struct w49 t89499; struct w49 t89500; struct w49 t89501; struct w49 t89502; struct w49 t89503; struct w49 t89504; struct w49 t89505; struct w49 t89506; struct w49 t89507; struct w49 t89508; struct w49 t89509; struct w49 t89510; struct w49 t89511; struct w49 t89512; struct w9296 t89513; struct w49 t89514; struct w49 t89515; struct w49 t89516; struct w49 t89517; struct w49 t89518; struct w49 t89519; struct w49 t89520; struct w49 t89521; struct w49 t89522; struct w49 t89523; struct w49 t89524; struct w49 t89525; struct w49 t89526; struct w49 t89527; struct w49 t89528; int t89529; int t89530; struct w9296 t89531; struct w49 t89532; struct w49 t89533; struct w49 t89534; struct w49 t89535; struct w49 t89536; struct w49 t89537; struct w49 t89538; struct w49 t89539; struct w49 t89540; struct w49 t89541; struct w49 t89542; struct w49 t89543; struct w49 t89544; struct w49 t89545; struct w49 t89546; char *t89547; char *t89548; struct w49 t89549; struct w49 t89550; struct w49 t89551; struct w49 t89552; struct w49 t89553; struct w49 t89554; struct w49 t89555; struct w49 t89556; struct w49 t89557; struct w49 t89558; struct w49 t89559; struct w49 t89560; struct w49 t89561; struct w49 t89562; struct w49 t89563; struct w49 t89564; struct w11873 t89565; struct w228245 t89566; struct w49 t89567; struct structure_type24753 *t89568; struct w49 t89569; struct w49 t89570; struct w49 t89571; struct w49 t89572; struct w49 t89573; struct w49 t89574; struct w49 t89575; struct w49 t89576; struct w49 t89577; struct w49 t89578; struct w49 t89579; struct w49 t89580; struct w49 t89581; struct w49 t89582; struct w49 t89583; struct w49 t89584; char *t89585; char *t89586; struct w49 t89587; struct w49 t89588; struct w49 t89589; struct w49 t89590; struct w49 t89591; struct w49 t89592; struct w49 t89593; struct w49 t89594; struct w49 t89595; struct w49 t89596; struct w49 t89597; struct w49 t89598; struct w49 t89599; struct w49 t89600; struct w49 t89601; struct w49 t89602; struct w49 t89603; struct w49 t89604; struct w9296 t89605; struct w49 t89606; struct w49 t89607; struct w49 t89608; struct w49 t89609; struct w49 t89610; struct w49 t89611; struct w49 t89612; struct w49 t89613; struct w49 t89614; struct w49 t89615; struct w49 t89616; struct w49 t89617; struct w49 t89618; struct w49 t89619; struct w49 t89620; struct w49 t89621; struct w49 t89622; struct w49 t89623; struct w49 t89624; char *t89625; char *t89626; struct w49 t89627; struct w49 t89628; struct w49 t89629; struct w49 t89630; struct w49 t89631; struct w49 t89632; struct w49 t89633; struct w49 t89634; struct w49 t89635; struct w49 t89636; struct w49 t89637; struct w49 t89638; struct w49 t89639; struct w49 t89640; struct w49 t89641; struct w49 t89642; struct w49 t89643; struct w49 t89644; struct w49 t89645; struct w49 t89646; char *t89647; char *t89648; struct w49 t89649; struct w49 t89650; struct w49 t89651; struct w49 t89652; struct w49 t89653; struct w49 t89654; struct w49 t89655; struct w49 t89656; struct w49 t89657; struct w49 t89658; struct w49 t89659; struct w49 t89660; struct w49 t89661; struct w49 t89662; struct w49 t89663; struct w49 t89664; struct w49 t89665; struct w49 t89666; struct w49 t89667; struct w49 t89668; struct w49 t89669; struct w49 t89670; struct w9296 t89671; struct w49 t89672; struct w49 t89673; struct w49 t89674; struct w49 t89675; struct w49 t89676; struct w49 t89677; struct w49 t89678; struct w49 t89679; struct w49 t89680; struct w49 t89681; struct w49 t89682; struct w49 t89683; struct w49 t89684; struct w49 t89685; struct w49 t89686; struct w49 t89687; struct w49 t89688; struct w49 t89689; struct w49 t89690; struct w49 t89691; struct w49 t89692; struct w49 t89693; struct w49 t89694; struct w9296 t89695; struct w228245 t89696; struct w49 t89697; struct structure_type24753 *t89698; struct w49 t89699; struct w49 t89700; struct w49 t89701; struct w49 t89702; struct w49 t89703; struct w49 t89704; struct w49 t89705; struct w49 t89706; struct w49 t89707; struct w49 t89708; struct w49 t89709; struct w49 t89710; struct w49 t89711; struct w49 t89712; struct w49 t89713; struct w49 t89714; struct w49 t89715; struct w49 t89716; struct w49 t89717; struct w49 t89718; struct w49 t89719; struct w49 t89720; struct w9296 t89721; struct structure_type24753 *t89722; struct w12224 t89723; struct w12224 t89724; struct w21193 t89725; struct w228245 t89726; struct w49 t89727; struct structure_type24753 *t89728; struct w21193 t89729; struct w228245 t89730; struct w49 t89731; struct structure_type24753 *t89732; char *t89733; struct w21193 t89734; struct w36108 t89735; struct w49 t89736; struct structure_type24753 *t89737; struct w21193 t89738; struct w36108 t89739; struct w49 t89740; struct structure_type24753 *t89741; struct w12224 t89742; struct w36108 t89743; struct w49 t89744; struct structure_type24753 *t89745; struct w9296 t89746; struct w36108 t89747; struct w49 t89748; struct structure_type24753 *t89749; struct w12224 t89750; struct w36108 t89751; struct w49 t89752; struct structure_type24753 *t89753; struct w12224 t89754; struct w36108 t89755; struct w49 t89756; struct structure_type24753 *t89757; struct w49 t89758; struct w12224 t89759; struct w11873 t89760; struct w49 t89761; struct w49 t89762; struct w49 t89763; struct w49 t89764; struct w49 t89765; struct w49 t89766; struct w49 t89767; struct w49 t89768; struct w49 t89769; struct w49 t89770; struct w49 t89771; struct w49 t89772; struct w49 t89773; struct w49 t89774; struct w49 t89775; struct w49 t89776; struct w9296 t89777; struct w227671 t89778; struct w49 t89779; struct w49 t89780; struct w49 t89781; struct w49 t89782; struct w49 t89783; struct w49 t89784; struct w49 t89785; struct w49 t89786; struct w49 t89787; struct w49 t89788; struct w49 t89789; struct w49 t89790; struct w49 t89791; struct w49 t89792; struct w49 t89793; struct w49 t89794; struct w49 t89795; struct w49 t89796; struct w49 t89797; struct structure_type24753 *t89798; struct w36108 t89799; struct w49 t89800; struct structure_type24753 *t89801; struct w11873 t89802; int t89803; int t89804; struct w49 t89805; struct w49 t89806; struct w49 t89807; struct w49 t89808; struct w49 t89809; struct w49 t89810; struct w49 t89811; struct w49 t89812; struct w49 t89813; struct w49 t89814; struct w49 t89815; struct w49 t89816; struct w49 t89817; struct w49 t89818; struct w49 t89819; struct w49 t89820; struct w49 t89821; struct w9296 t89822; struct w49 t89823; struct w49 t89824; struct w49 t89825; struct w49 t89826; struct w49 t89827; struct w49 t89828; struct w49 t89829; struct w49 t89830; struct w49 t89831; struct w49 t89832; struct w49 t89833; struct w49 t89834; struct w49 t89835; struct w49 t89836; struct w49 t89837; struct w49 t89838; struct w49 t89839; struct w49 t89840; struct w49 t89841; struct w11873 t89842; struct w49 t89843; struct w49 t89844; struct w49 t89845; struct w49 t89846; struct w49 t89847; struct w49 t89848; struct w49 t89849; struct w49 t89850; struct w49 t89851; struct w49 t89852; struct w49 t89853; struct w49 t89854; struct w49 t89855; struct w49 t89856; struct w49 t89857; struct w49 t89858; struct w49 t89859; struct w49 t89860; struct structure_type24753 *t89861; struct w12224 t89862; struct w49 t89863; struct w49 t89864; struct w49 t89865; struct w49 t89866; struct w49 t89867; struct w49 t89868; struct w49 t89869; struct w49 t89870; struct w49 t89871; struct w49 t89872; struct w49 t89873; struct w49 t89874; struct w49 t89875; struct w49 t89876; struct w11873 t89877; int t89878; int t89879; struct w49 t89880; struct w49 t89881; struct w49 t89882; struct w49 t89883; struct w49 t89884; struct w49 t89885; struct w49 t89886; struct w49 t89887; struct w49 t89888; struct w49 t89889; struct w49 t89890; struct w49 t89891; struct w49 t89892; struct w49 t89893; struct w49 t89894; struct w49 t89895; struct w49 t89896; struct w9296 t89897; struct w49 t89898; struct w49 t89899; struct w49 t89900; struct w49 t89901; struct w49 t89902; struct w49 t89903; struct w49 t89904; struct w49 t89905; struct w49 t89906; struct w49 t89907; struct w49 t89908; struct w49 t89909; struct w49 t89910; struct w49 t89911; struct w49 t89912; struct w49 t89913; struct w49 t89914; struct w49 t89915; struct w49 t89916; struct w49 t89917; struct w12224 t89918; struct w49 t89919; struct w49 t89920; struct w49 t89921; struct w49 t89922; struct w49 t89923; struct w49 t89924; struct w49 t89925; struct w49 t89926; struct w49 t89927; struct w49 t89928; struct w49 t89929; struct w49 t89930; struct w49 t89931; struct w49 t89932; struct w49 t89933; struct w49 t89934; struct w49 t89935; struct w49 t89936; struct w11873 t89937; struct w227671 t89938; struct w49 t89939; struct w49 t89940; struct w49 t89941; struct w49 t89942; struct w49 t89943; struct w49 t89944; struct w49 t89945; struct w49 t89946; struct w49 t89947; struct w49 t89948; struct w49 t89949; struct w49 t89950; struct w49 t89951; struct w49 t89952; struct w49 t89953; struct w49 t89954; struct w49 t89955; struct w49 t89956; struct w49 t89957; struct w49 t89958; struct w49 t89959; struct w49 t89960; struct w49 t89961; struct w49 t89962; struct w49 t89963; struct w49 t89964; struct w49 t89965; struct w49 t89966; struct w49 t89967; struct w49 t89968; struct w49 t89969; struct w49 t89970; struct w49 t89971; struct w49 t89972; struct w49 t89973; struct w49 t89974; struct w49 t89975; struct w49 t89976; struct w49 t89977; struct w49 t89978; struct w49 t89979; struct w49 t89980; struct w49 t89981; struct w49 t89982; struct w49 t89983; struct w225099 t89984; struct w49 t89985; struct w49 t89986; struct w49 t89987; struct w49 t89988; struct w49 t89989; struct w49 t89990; struct w49 t89991; struct w49 t89992; struct w49 t89993; struct w49 t89994; struct w49 t89995; struct w49 t89996; struct w49 t89997; struct w49 t89998; struct w49 t89999; struct w49 t90000; struct w49 t90001; struct w49 t90002; struct w49 t90003; struct w49 t90004; struct structure_type24753 *t90005; struct w36108 t90006; struct w49 t90007; struct structure_type24753 *t90008; struct w9296 t90009; int t90010; int t90011; struct w49 t90012; struct w49 t90013; struct w49 t90014; struct w49 t90015; struct w49 t90016; struct w49 t90017; struct w49 t90018; struct w49 t90019; struct w49 t90020; struct w49 t90021; struct w49 t90022; struct w49 t90023; struct w49 t90024; struct w49 t90025; struct w49 t90026; struct w49 t90027; struct w49 t90028; struct w49 t90029; struct w49 t90030; struct w49 t90031; struct w49 t90032; struct w49 t90033; struct w49 t90034; struct w11873 t90035; struct w49 t90036; struct w49 t90037; struct w49 t90038; struct w49 t90039; struct w49 t90040; struct w49 t90041; struct w49 t90042; struct w49 t90043; struct w49 t90044; struct w49 t90045; struct w49 t90046; struct w49 t90047; struct w49 t90048; struct w49 t90049; struct w49 t90050; struct w49 t90051; struct w49 t90052; struct w49 t90053; struct w49 t90054; struct w49 t90055; struct w49 t90056; struct w9296 t90057; struct w49 t90058; struct w49 t90059; struct w49 t90060; struct w49 t90061; struct w49 t90062; struct w49 t90063; struct w49 t90064; struct w49 t90065; struct w49 t90066; struct w49 t90067; struct w49 t90068; struct w49 t90069; struct w49 t90070; struct w49 t90071; struct w49 t90072; struct w49 t90073; struct w49 t90074; struct w49 t90075; struct w49 t90076; struct w49 t90077; struct w49 t90078; struct w49 t90079; struct w49 t90080; struct w49 t90081; struct structure_type24753 *t90082; struct w11873 t90083; struct w49 t90084; struct w49 t90085; struct w49 t90086; struct w49 t90087; struct w49 t90088; struct w49 t90089; struct w49 t90090; struct w49 t90091; struct w49 t90092; struct w49 t90093; struct w49 t90094; struct w49 t90095; struct w49 t90096; struct w49 t90097; struct w49 t90098; struct w49 t90099; struct w49 t90100; struct w49 t90101; struct w49 t90102; struct w49 t90103; struct w9296 t90104; int t90105; int t90106; struct w49 t90107; struct w49 t90108; struct w49 t90109; struct w49 t90110; struct w49 t90111; struct w49 t90112; struct w49 t90113; struct w49 t90114; struct w49 t90115; struct w49 t90116; struct w49 t90117; struct w49 t90118; struct w49 t90119; struct w49 t90120; struct w49 t90121; struct w49 t90122; struct w49 t90123; struct w49 t90124; struct w49 t90125; struct w49 t90126; struct w49 t90127; struct w49 t90128; struct w49 t90129; struct w11873 t90130; struct w49 t90131; struct w49 t90132; struct w49 t90133; struct w49 t90134; struct w49 t90135; struct w49 t90136; struct w49 t90137; struct w49 t90138; struct w49 t90139; struct w49 t90140; struct w49 t90141; struct w49 t90142; struct w49 t90143; struct w49 t90144; struct w49 t90145; struct w49 t90146; struct w49 t90147; struct w49 t90148; struct w49 t90149; struct w49 t90150; struct w49 t90151; struct w21193 t90152; struct w227671 t90153; struct w49 t90154; struct w12224 t90155; struct w21193 t90156; struct w227671 t90157; struct w49 t90158; struct w12224 t90159; struct w21193 t90160; struct w227671 t90161; struct w49 t90162; struct w12224 t90163; struct w21193 t90164; struct w227671 t90165; struct w49 t90166; struct w12224 t90167; struct w21193 t90168; struct w227671 t90169; struct w49 t90170; struct w12224 t90171; struct w21193 t90172; struct w227671 t90173; struct w49 t90174; struct w12224 t90175; struct w21193 t90176; struct w227671 t90177; struct w49 t90178; struct w12224 t90179; struct w21193 t90180; struct w36108 t90181; struct w49 t90182; struct structure_type24753 *t90183; struct w21193 t90184; struct w36108 t90185; struct w49 t90186; struct structure_type24753 *t90187; struct w49 t90188; struct structure_type24753 *t90189; struct w12224 t90190; struct w21193 t90191; struct structure_type24753 *t90192; struct w227671 t90193; struct w49 t90194; struct w49 t90195; struct w11873 t90196; struct w49 t90197; struct w49 t90198; struct w49 t90199; struct w49 t90200; struct w49 t90201; struct w49 t90202; struct w49 t90203; struct w49 t90204; struct w49 t90205; struct w49 t90206; struct w49 t90207; struct w49 t90208; struct w49 t90209; struct w49 t90210; struct w49 t90211; struct w49 t90212; struct w49 t90213; struct w49 t90214; struct w49 t90215; struct w49 t90216; struct w49 t90217; struct w49 t90218; struct w49 t90219; struct w49 t90220; struct w49 t90221; struct w49 t90222; struct w49 t90223; struct w49 t90224; struct w49 t90225; struct w49 t90226; struct w49 t90227; struct w49 t90228; struct w49 t90229; struct w49 t90230; struct w49 t90231; struct w49 t90232; struct w49 t90233; struct w49 t90234; struct w49 t90235; struct w49 t90236; struct w49 t90237; struct w49 t90238; struct w49 t90239; struct w49 t90240; struct w49 t90241; struct w49 t90242; struct w49 t90243; struct w49 t90244; struct w49 t90245; struct w49 t90246; struct w49 t90247; struct w49 t90248; struct w49 t90249; struct w49 t90250; struct w49 t90251; struct w49 t90252; struct w49 t90253; struct w49 t90254; struct w49 t90255; struct w49 t90256; struct w49 t90257; struct w49 t90258; struct w9140 t90259; struct w9296 t90260; struct structure_type27698 *t90261; struct w49 t90262; struct structure_type27698 *t90263; struct w49 t90264; struct w49 t90265; struct w49 t90266; struct w49 t90267; struct structure_type27698 *t90268; struct w49 t90269; struct structure_type27692 *t90270; struct w49 t90271; struct structure_type27694 *t90272; struct structure_type24753 *t90273; struct structure_type27698 *t90274; unsigned t90275; struct structure_type27698 *t90276; struct w49 t90277; struct w49 t90278; char *t90279; struct w49 t90280; char *t90281; struct structure_type27692 *t90282; struct w49 t90283; struct structure_type27692 *t90284; struct w49 t90285; struct w49 t90286; struct w49 t90287; char *t90288; struct w49 t90289; struct w49 t90290; unsigned t90291; char *t90292; struct w21193 t90293; struct w228345 t90294; struct w49 t90295; struct structure_type24753 *t90296; char *t90297; struct w21193 t90298; struct w228345 t90299; struct w49 t90300; struct structure_type24753 *t90301; char *t90302; struct w6315 t90303; unsigned t90304; char *t90305; struct w49 t90306; struct w49 t90307; char *t90308; struct w21193 t90309; struct w36108 t90310; struct w49 t90311; struct structure_type24753 *t90312; struct w21193 t90313; struct w227671 t90314; struct w49 t90315; struct w12224 t90316; struct w21193 t90317; struct w227671 t90318; struct w49 t90319; struct w12224 t90320; struct w21193 t90321; struct w36108 t90322; struct w49 t90323; struct structure_type24753 *t90324; unsigned t90325; char *t90326; struct w12224 t90327; struct structure_type24753 *t90328; struct w21193 t90329; struct w36108 t90330; struct w49 t90331; struct structure_type24753 *t90332; struct w12224 t90333; struct w36270 t90334; struct w49 t90335; struct structure_type24753 *t90336; struct w21193 t90337; struct w227671 t90338; struct w49 t90339; struct w21193 t90340; struct w228345 t90341; struct w49 t90342; struct structure_type24753 *t90343; char *t90344; struct w49 t90345; struct structure_type24753 *t90346; unsigned t90347; char *t90348; unsigned t90349; char *t90350; unsigned t90351; char *t90352; unsigned t90353; char *t90354; struct w12224 t90355; struct w21193 t90356; struct w12224 t90357; struct w12224 t90358; struct w12224 t90359; struct w36108 t90360; struct w49 t90361; struct structure_type24753 *t90362; struct w21193 t90363; struct w12224 t90364; struct w12224 t90365; struct w21193 t90366; struct w12224 t90367; struct w12224 t90368; struct w21193 t90369; struct w227671 t90370; struct w49 t90371; unsigned t90372; char *t90373; unsigned t90374; char *t90375; unsigned t90376; char *t90377; unsigned t90378; char *t90379; struct w21193 t90380; struct w36108 t90381; struct w49 t90382; struct structure_type24753 *t90383; struct w21193 t90384; struct w36108 t90385; struct w49 t90386; struct structure_type24753 *t90387; int t90388; int t90389; struct w12224 t90390; struct w12224 t90391; struct w12224 t90392; struct w36108 t90393; struct w49 t90394; struct structure_type24753 *t90395; struct w12224 t90396; struct w12224 t90397; struct w49 t90398; struct w21691 t90399; unsigned t90400; struct w49 t90401; struct w12224 t90402; unsigned t90403; struct w49 t90404; struct w21193 t90405; struct w227671 t90406; struct w49 t90407; char *t90408; int t90409; char *t90410; struct w49 t90411; struct structure_type24753 *t90412; struct w49 t90413; int t90414; int t90415; int t90416; int t90417; int t90418; int t90419; int t90420; char *t90421; unsigned t90422; char *t90423; char *t90424; struct structure_type24753 *t90425; struct structure_type27650 *t90426; struct w21193 t90427; struct w36108 t90428; struct w49 t90429; struct structure_type24753 *t90430; struct w21193 t90431; struct w36108 t90432; struct w49 t90433; struct structure_type24753 *t90434; struct w49 t90435; struct w3467 t90436; struct structure_type24753 *t90437; struct w3467 t90438; struct w49 t90439; struct w49 t90440; struct w3467 t90441; struct w3467 t90442; struct w3467 t90443; struct structure_type24753 *t90444; struct w49 t90445; struct w49 t90446; struct w49 t90447; struct w3467 t90448; struct w3467 t90449; struct structure_type24753 *t90450; struct w36108 t90451; struct w49 t90452; struct structure_type24753 *t90453; struct w49 t90454; struct structure_type27669 *t90455; struct structure_type27669 *t90456; struct w49 t90457; unsigned t90458; struct structure_type27669 *t90459; struct structure_type27650 *t90460; struct w49 t90461; struct w49 t90462; struct structure_type27669 *t90463; struct w49 t90464; struct structure_type27669 *t90465; struct structure_type27669 *t90466; struct w49 t90467; struct w49 t90468; unsigned t90469; int t90470; struct structure_type27669 *t90471; struct w21193 t90472; char *t90473; char *t90474; unsigned t90475; int t90476; char *t90477; int t90478; char *t90479; char *t90480; unsigned t90481; int t90482; char *t90483; int t90484; char *t90485; char *t90486; struct w49 t90487; struct w49 t90488; struct structure_type24753 *t90489; struct structure_type27650 *t90490; struct structure_type24753 *t90491; struct structure_type24753 *t90492; struct structure_type27650 *t90493; char *t90494; struct structure_type24753 *t90495; struct structure_type27650 *t90496; char *t90497; struct structure_type24753 *t90498; struct structure_type27650 *t90499; char *t90500; struct structure_type24753 *t90501; struct structure_type27650 *t90502; char *t90503; struct structure_type24753 *t90504; struct structure_type27650 *t90505; char *t90506; struct structure_type24753 *t90507; struct structure_type27650 *t90508; char *t90509; struct structure_type24753 *t90510; struct structure_type27650 *t90511; struct w49 t90512; struct structure_type24753 *t90513; struct structure_type27650 *t90514; char *t90515; struct structure_type24753 *t90516; struct structure_type27650 *t90517; char *t90518; struct structure_type24753 *t90519; struct structure_type27650 *t90520; struct w21193 t90521; struct w36108 t90522; struct w49 t90523; struct structure_type24753 *t90524; struct w21193 t90525; struct w36108 t90526; struct w49 t90527; struct structure_type24753 *t90528; struct w21193 t90529; struct w36108 t90530; struct w49 t90531; struct structure_type24753 *t90532; struct w21193 t90533; struct w36108 t90534; struct w49 t90535; struct structure_type24753 *t90536; struct w49 t90537; struct w49 t90539; struct structure_type24753 *t90540; struct structure_type27650 *t90541; struct structure_type27745 *t90542; struct w49 t90543; struct w49 t90544; struct w49 t90545; struct w49 t90546; struct structure_type27650 *t90547; struct w21193 t90548; struct w36108 t90549; struct w49 t90550; struct structure_type24753 *t90551; unsigned t90552; char *t90553; struct w21193 t90554; struct w36108 t90555; struct w49 t90556; struct structure_type24753 *t90557; unsigned t90558; char *t90559; struct w21193 t90560; struct w36108 t90561; struct w49 t90562; struct structure_type24753 *t90563; struct w21193 t90564; struct w36108 t90565; struct w49 t90566; struct structure_type24753 *t90567; struct w21193 t90568; struct w36108 t90569; struct w49 t90570; struct structure_type24753 *t90571; struct w21193 t90572; struct w36108 t90573; struct w49 t90574; struct structure_type24753 *t90575; struct w21193 t90576; struct w36108 t90577; struct w49 t90578; struct structure_type24753 *t90579; struct w21193 t90580; struct w36108 t90581; struct w49 t90582; struct structure_type24753 *t90583; unsigned t90584; char *t90585; unsigned t90586; char *t90587; struct w21193 t90589; struct w36108 t90590; struct w49 t90591; struct structure_type24753 *t90592; struct w21193 t90593; struct w36108 t90594; struct w49 t90595; struct structure_type24753 *t90596; struct w21193 t90597; struct w36108 t90598; struct w49 t90599; struct structure_type24753 *t90600; struct w49 t90601; struct w49 t90602; unsigned t90603; char *t90604; struct w21193 t90605; struct w36108 t90606; struct w49 t90607; struct structure_type24753 *t90608; unsigned t90609; char *t90610; struct w21193 t90611; struct w36108 t90612; struct w49 t90613; struct structure_type24753 *t90614; struct w21193 t90615; struct w36108 t90616; struct w49 t90617; struct structure_type24753 *t90618; struct w21193 t90619; struct w36108 t90620; struct w49 t90621; struct structure_type24753 *t90622; struct w21193 t90623; struct w36108 t90624; struct w49 t90625; struct structure_type24753 *t90626; struct w49 t90627; struct w49 t90628; struct structure_type24753 *t90629; struct structure_type27650 *t90630; struct w16638 t90631; struct structure_type27745 *t90632; struct w12224 t90633; struct w49 t90634; struct w49 t90635; struct w49 t90636; struct structure_type27650 *t90637; struct w49 t90638; struct w211257 t90639; struct w49 t90640; struct w49 t90641; struct w49 t90642; struct w49 t90643; struct w21193 t90644; struct w36108 t90645; struct w49 t90646; struct structure_type24753 *t90647; unsigned t90648; char *t90649; struct w21193 t90650; struct w36108 t90651; struct w49 t90652; struct structure_type24753 *t90653; struct w21193 t90654; struct w36108 t90655; struct w49 t90656; struct structure_type24753 *t90657; struct w21193 t90658; struct w36108 t90659; struct w49 t90660; struct structure_type24753 *t90661; unsigned t90662; char *t90663; struct w21193 t90664; struct w36108 t90665; struct w49 t90666; struct structure_type24753 *t90667; struct w21193 t90668; struct w36108 t90669; struct w49 t90670; struct structure_type24753 *t90671; unsigned t90672; char *t90673; struct w21193 t90674; struct w36108 t90675; struct w49 t90676; struct structure_type24753 *t90677; struct w21193 t90678; struct w36108 t90679; struct w49 t90680; struct structure_type24753 *t90681; struct w21193 t90682; struct w36108 t90683; struct w49 t90684; struct structure_type24753 *t90685; struct w21193 t90686; struct w36108 t90687; struct w49 t90688; struct structure_type24753 *t90689; struct w21193 t90690; struct w36108 t90691; struct w49 t90692; struct structure_type24753 *t90693; struct w21193 t90694; struct w36108 t90695; struct w49 t90696; struct structure_type24753 *t90697; unsigned t90698; char *t90699; struct w21193 t90700; struct w36108 t90701; struct w49 t90702; struct structure_type24753 *t90703; struct w21193 t90704; struct w36108 t90705; struct w49 t90706; struct structure_type24753 *t90707; struct w21193 t90708; struct w36108 t90709; struct w49 t90710; struct structure_type24753 *t90711; struct w21193 t90712; struct w36108 t90713; struct w49 t90714; struct structure_type24753 *t90715; struct w21193 t90716; struct w36108 t90717; struct w49 t90718; struct structure_type24753 *t90719; struct w21193 t90720; struct w36108 t90721; struct w49 t90722; struct structure_type24753 *t90723; struct w21193 t90724; struct w36108 t90725; struct w49 t90726; struct structure_type24753 *t90727; struct w21193 t90728; struct w36108 t90729; struct w49 t90730; struct structure_type24753 *t90731; struct w21193 t90732; struct w36108 t90733; struct w49 t90734; struct structure_type24753 *t90735; struct w21193 t90736; struct w36108 t90737; struct w49 t90738; struct structure_type24753 *t90739; struct w21193 t90740; struct w36108 t90741; struct w49 t90742; struct structure_type24753 *t90743; struct w21193 t90744; struct w36108 t90745; struct w49 t90746; struct structure_type24753 *t90747; struct w21193 t90748; struct w36108 t90749; struct w49 t90750; struct structure_type24753 *t90751; struct w21193 t90752; struct w36108 t90753; struct w49 t90754; struct structure_type24753 *t90755; unsigned t90756; char *t90757; struct w49 t90758; struct w36108 t90759; struct w49 t90760; struct structure_type24753 *t90761; struct w21193 t90762; struct w21193 t90763; struct w21193 t90764; struct structure_type24753 *t90765; struct w49 t90766; struct w49 t90767; struct w21193 t90768; struct w36108 t90769; struct w49 t90770; struct structure_type24753 *t90771; struct w21193 t90772; struct w36108 t90773; struct w49 t90774; struct structure_type24753 *t90775; struct w21193 t90776; struct w36108 t90777; struct w49 t90778; struct structure_type24753 *t90779; struct w21193 t90780; struct w36108 t90781; struct w49 t90782; struct structure_type24753 *t90783; struct w21193 t90784; struct w36108 t90785; struct w49 t90786; struct structure_type24753 *t90787; unsigned t90788; char *t90789; struct w21193 t90790; struct w36108 t90791; struct w49 t90792; struct structure_type24753 *t90793; char *t90794; struct w49 t90795; struct structure_type24753 *t90796; struct w21193 t90797; struct w36108 t90798; struct w49 t90799; struct structure_type24753 *t90800; unsigned t90801; char *t90802; struct w21193 t90803; struct w36108 t90804; struct w49 t90805; struct structure_type24753 *t90806; unsigned t90807; char *t90808; struct w21193 t90809; struct w36108 t90810; struct w49 t90811; struct structure_type24753 *t90812; struct w12224 t90813; struct w36108 t90814; struct w49 t90815; struct structure_type24753 *t90816; struct structure_type24753 *t90817; struct structure_type24753 *t90818; struct w49 t90819; struct w49 t90820; struct structure_type24753 *t90821; struct w49 t90822; struct w16638 t90823; struct w16638 t90824; struct w49 t90825; struct structure_type24753 *t90826; struct w16638 t90827; struct w16638 t90828; struct w49 t90829; struct structure_type24753 *t90830; struct w16638 t90831; struct w16638 t90832; struct w49 t90833; struct structure_type24753 *t90834; struct w16638 t90835; struct w16638 t90836; struct structure_type24753 *t90837; struct w49 t90838; struct w21193 t90839; struct w36270 t90840; struct w49 t90841; struct structure_type24753 *t90842; struct structure_type24753 *t90843; struct structure_type24753 *t90844; struct w36108 t90845; struct w49 t90846; struct structure_type24753 *t90847; struct w21193 t90848; struct w36108 t90849; struct w49 t90850; struct structure_type24753 *t90851; struct w21193 t90852; struct w36270 t90853; struct w49 t90854; struct structure_type24753 *t90855; struct structure_type24753 *t90856; struct structure_type24753 *t90857; struct w36108 t90858; struct w49 t90859; struct structure_type24753 *t90860; struct w21193 t90861; struct w36108 t90862; struct w49 t90863; struct structure_type24753 *t90864; struct w21193 t90865; struct w36270 t90866; struct w49 t90867; struct structure_type24753 *t90868; unsigned t90869; char *t90870; unsigned t90871; char *t90872; char *t90874; struct w21193 t90875; struct w36108 t90876; struct w49 t90877; struct structure_type24753 *t90878; struct w21193 t90879; struct w36108 t90880; struct w49 t90881; struct structure_type24753 *t90882; struct w21193 t90883; struct w36108 t90884; struct w49 t90885; struct structure_type24753 *t90886; struct w21193 t90887; struct w36108 t90888; struct w49 t90889; struct structure_type24753 *t90890; struct w21193 t90891; struct w36108 t90892; struct w49 t90893; struct structure_type24753 *t90894; struct w21193 t90895; struct w36108 t90896; struct w49 t90897; struct structure_type24753 *t90898; struct w21193 t90899; struct w36108 t90900; struct w49 t90901; struct structure_type24753 *t90902; struct w21193 t90903; struct w36108 t90904; struct w49 t90905; struct structure_type24753 *t90906; unsigned t90908; char *t90909; struct w21193 t90910; struct w36108 t90911; struct w49 t90912; struct structure_type24753 *t90913; struct w21193 t90914; struct w36108 t90915; struct w49 t90916; struct structure_type24753 *t90917; struct w21193 t90918; struct w36108 t90919; struct w49 t90920; struct structure_type24753 *t90921; char *t90922; char *t90923; struct w21193 t90925; struct w36108 t90926; struct w49 t90927; struct structure_type24753 *t90928; struct w21193 t90929; struct w36108 t90930; struct w49 t90931; struct structure_type24753 *t90932; struct w49 t90933; char *t90934; struct structure_type24753 *t90935; struct w49 t90936; struct structure_type24753 *t90937; char *t90938; int t90939; int t90940; int t90941; int t90942; int t90943; int t90944; int t90945; int t90946; int t90947; int t90948; int t90949; int t90950; int t90951; int t90952; float t90953; int t90954; int t90955; int t90956; int t90957; struct w49 t90958; struct w49 t90959; struct w49 t90960; struct w49 t90961; struct w49 t90962; struct w49 t90963; struct w49 t90964; struct w49 t90965; struct w49 t90966; struct w49 t90967; struct w49 t90968; struct w49 t90969; struct w49 t90970; struct w49 t90971; struct w49 t90972; struct w49 t90973; struct w49 t90974; struct w49 t90975; struct w49 t90976; struct w21193 t90977; struct w49 t90978; struct w21193 t90979; struct p11483 *t90980; struct w21193 t90981; struct p11483 *t90982; struct w21193 t90983; struct p11483 *t90984; struct w21193 t90985; struct p11483 *t90986; struct w21193 t90987; struct p11483 *t90988; struct w21193 t90989; struct p11483 *t90990; struct w21193 t90991; struct p11483 *t90992; struct w21193 t90993; struct w49 t90994; struct w21193 t90995; struct p11483 *t90996; struct w21193 t90997; struct p11483 *t90998; struct w21193 t90999; struct p11483 *t91000; struct w21193 t91001; struct p11483 *t91002; struct w21193 t91003; struct p11483 *t91004; struct structure_type24753 *t91005; struct w49 t91006; float t91007; struct structure_type24753 *t91008; int t91009; unsigned t91010; struct w49 t91011; struct w228463 t91012; int t91013; struct structure_type24753 *t91014; struct w49 t91015; struct w12224 t91016; struct w36270 t91017; struct w49 t91018; struct structure_type24753 *t91019; struct w21193 t91020; struct w227671 t91021; struct w49 t91022; struct w21193 t91023; struct w49 t91024; struct w21193 t91025; struct p11483 *t91026; struct w21193 t91027; struct w49 t91028; struct w21193 t91029; struct p11483 *t91030; unsigned t91031; char *t91032; struct w49 t91033; struct w21193 t91034; struct w228245 t91035; struct w49 t91036; struct structure_type24753 *t91037; char *t91038; struct structure_type24753 *t91039; int t91040; struct w12224 t91041; struct w12224 t91042; int t91043; struct w21193 t91044; struct w227671 t91045; struct w49 t91046; int t91047; int t91048; struct w21691 t91049; struct w36108 t91050; struct w49 t91051; struct structure_type24753 *t91052; struct w49 t91053; struct w21193 t91054; struct w227506 t91055; struct w49 t91056; unsigned t91057; char *t91058; struct w21193 t91059; struct w36108 t91060; struct w49 t91061; struct structure_type24753 *t91062; struct w21193 t91063; struct w36108 t91064; struct w49 t91065; struct structure_type24753 *t91066; unsigned t91067; char *t91068; struct w21193 t91069; struct w36108 t91070; struct w49 t91071; struct structure_type24753 *t91072; unsigned t91073; char *t91074; struct w21193 t91075; struct w36108 t91076; struct w49 t91077; struct structure_type24753 *t91078; unsigned t91079; char *t91080; struct w12224 t91081; struct w36108 t91082; struct w49 t91083; struct structure_type24753 *t91084; struct structure_type24753 *t91085; struct w227671 t91086; struct w49 t91087; struct w21193 t91088; struct w36108 t91089; struct w49 t91090; struct structure_type24753 *t91091; unsigned t91092; char *t91093; struct headed_vector_type27624 *t91094; struct w21193 t91095; struct w36108 t91096; struct w49 t91097; struct structure_type24753 *t91098; struct w21193 t91099; struct w36108 t91100; struct w49 t91101; struct structure_type24753 *t91102; struct w21193 t91103; struct w36108 t91104; struct w49 t91105; struct structure_type24753 *t91106; struct w21193 t91107; struct w36108 t91108; struct w49 t91109; struct structure_type24753 *t91110; struct w21193 t91111; struct w36108 t91112; struct w49 t91113; struct structure_type24753 *t91114; struct w21193 t91115; struct w36108 t91116; struct w49 t91117; struct structure_type24753 *t91118; struct w30215 t91119; struct structure_type24753 **t91120; struct w49 t91121; int t91122; struct structure_type24753 *t91123; int t91124; unsigned t91125; struct w49 t91126; struct w228463 t91127; struct w21193 t91128; struct w36270 t91129; struct w49 t91130; struct structure_type24753 *t91131; struct w21193 t91132; struct w36108 t91133; struct w49 t91134; struct structure_type24753 *t91135; char *t91136; struct structure_type24753 *t91137; char *t91138; struct structure_type24753 *t91139; struct w49 t91140; unsigned t91141; char *t91142; struct w21193 t91143; struct w36108 t91144; struct w49 t91145; struct structure_type24753 *t91146; struct w21193 t91147; struct w49 t91148; struct w49 t91149; struct w16638 t91150; struct w16638 t91151; struct w49 t91152; struct w49 t91153; struct w49 t91154; struct w49 t91155; struct w49 t91156; struct w49 t91158; struct w36108 t91159; struct w49 t91160; struct structure_type24753 *t91161; struct w16638 t91162; struct w16638 t91163; struct w16638 t91164; struct w16638 t91165; struct w21193 t91166; struct w49 t91167; struct w49 t91168; struct w16638 t91169; struct w16638 t91170; struct w49 t91171; struct w49 t91172; struct w49 t91173; struct w49 t91174; struct w49 t91175; struct w49 t91177; struct w36108 t91178; struct w49 t91179; struct structure_type24753 *t91180; struct w16638 t91181; struct w16638 t91182; struct w16638 t91183; struct w16638 t91184; struct w21193 t91185; struct w49 t91186; struct w49 t91187; struct w16638 t91188; struct w16638 t91189; struct w49 t91190; struct w49 t91191; struct w49 t91192; struct w49 t91193; struct w49 t91194; struct w49 t91196; struct w36108 t91197; struct w49 t91198; struct structure_type24753 *t91199; struct w16638 t91200; struct w16638 t91201; struct w16638 t91202; struct w16638 t91203; struct w21193 t91204; struct w49 t91205; struct w49 t91206; struct w16638 t91207; struct w16638 t91208; struct w49 t91209; struct w49 t91210; struct w49 t91211; struct w49 t91212; struct w49 t91213; struct w49 t91215; struct w36108 t91216; struct w49 t91217; struct structure_type24753 *t91218; struct w16638 t91219; struct w16638 t91220; struct w16638 t91221; struct w16638 t91222; struct w21193 t91223; struct w49 t91224; struct w49 t91225; struct w16638 t91226; struct w16638 t91227; struct w49 t91228; struct w49 t91229; struct w49 t91230; struct w49 t91231; struct w49 t91232; struct w49 t91234; struct w36108 t91235; struct w49 t91236; struct structure_type24753 *t91237; struct w16638 t91238; struct w16638 t91239; struct w16638 t91240; struct w16638 t91241; struct w21193 t91242; struct w49 t91243; struct w49 t91244; struct w16638 t91245; struct w16638 t91246; struct w49 t91247; struct w49 t91248; struct w49 t91249; struct w49 t91250; struct w49 t91251; struct w49 t91253; struct w36108 t91254; struct w49 t91255; struct structure_type24753 *t91256; struct w16638 t91257; struct w49 t91258; struct w16638 t91259; struct w16638 t91260; struct structure_type27623 *t91261; struct w21193 t91262; struct w36108 t91263; struct w49 t91264; struct structure_type24753 *t91265; struct w21193 t91266; struct w36108 t91267; struct w49 t91268; struct structure_type24753 *t91269; struct w49 t91270; struct structure_type27621 *t91271; unsigned t91272; unsigned t91273; unsigned t91274; struct w49 t91275; struct headed_vector_type27896 *t91276; struct w49 t91277; struct w49 t91278; struct w49 t91279; struct w21193 t91280; struct w227671 t91281; struct w49 t91282; struct w12224 t91283; struct structure_type27650 *t91284; struct structure_type24753 *t91285; struct w49 t91286; struct w49 t91287; struct structure_type24753 *t91288; struct w36270 t91289; struct w49 t91290; struct structure_type24753 *t91291; struct structure_type27650 *t91292; struct w49 t91293; struct w21193 t91294; struct w227671 t91295; struct w49 t91296; struct w12224 t91297; struct w21193 t91298; struct w227671 t91299; struct w49 t91300; struct w12224 t91301; struct w21193 t91302; struct w227671 t91303; struct w49 t91304; struct w12224 t91305; struct w21193 t91306; struct w227671 t91307; struct w49 t91308; struct w12224 t91309; struct w21193 t91310; struct w227671 t91311; struct w49 t91312; struct w12224 t91313; struct w21193 t91314; struct w227671 t91315; struct w49 t91316; struct w12224 t91317; struct w21193 t91318; struct w36108 t91319; struct w49 t91320; struct structure_type24753 *t91321; struct w21193 t91322; struct w36108 t91323; struct w49 t91324; struct structure_type24753 *t91325; struct w21193 t91326; struct w36108 t91327; struct w49 t91328; struct structure_type24753 *t91329; struct w21193 t91330; struct w36108 t91331; struct w49 t91332; struct structure_type24753 *t91333; struct w21193 t91334; struct w36108 t91335; struct w49 t91336; struct structure_type24753 *t91337; struct w21193 t91338; struct w36108 t91339; struct w49 t91340; struct structure_type24753 *t91341; struct w21193 t91342; struct w36108 t91343; struct w49 t91344; struct structure_type24753 *t91345; struct w21193 t91346; struct w36108 t91347; struct w49 t91348; struct structure_type24753 *t91349; struct w49 t91350; struct w49 t91351; unsigned t91352; char *t91353; struct w21193 t91354; struct w36108 t91355; struct w49 t91356; struct structure_type24753 *t91357; unsigned t91358; char *t91359; struct w21193 t91360; struct w36108 t91361; struct w49 t91362; struct structure_type24753 *t91363; struct w21193 t91364; struct w36108 t91365; struct w49 t91366; struct structure_type24753 *t91367; struct w21193 t91368; struct w36108 t91369; struct w49 t91370; struct structure_type24753 *t91371; struct w21193 t91372; struct w36108 t91373; struct w49 t91374; struct structure_type24753 *t91375; unsigned t91376; char *t91377; struct w21193 t91378; struct w36108 t91379; struct w49 t91380; struct structure_type24753 *t91381; struct w21193 t91382; struct w36108 t91383; struct w49 t91384; struct structure_type24753 *t91385; struct w21193 t91386; struct w36108 t91387; struct w49 t91388; struct structure_type24753 *t91389; struct w21193 t91390; struct w36108 t91391; struct w49 t91392; struct structure_type24753 *t91393; struct w21193 t91394; struct w36108 t91395; struct w49 t91396; struct structure_type24753 *t91397; struct w21193 t91398; struct w36108 t91399; struct w49 t91400; struct structure_type24753 *t91401; struct w21193 t91402; struct w36108 t91403; struct w49 t91404; struct structure_type24753 *t91405; struct w21193 t91406; struct w36108 t91407; struct w49 t91408; struct structure_type24753 *t91409; unsigned t91410; char *t91411; struct w21193 t91412; struct w36108 t91413; struct w49 t91414; struct structure_type24753 *t91415; struct w21193 t91416; struct w36108 t91417; struct w49 t91418; struct structure_type24753 *t91419; struct w21193 t91420; struct w36108 t91421; struct w49 t91422; struct structure_type24753 *t91423; struct w21193 t91424; struct w36108 t91425; struct w49 t91426; struct structure_type24753 *t91427; char *t91428; struct structure_type24753 *t91429; char *t91430; struct structure_type24753 *t91431; struct w49 t91432; struct w21193 t91433; struct w36108 t91434; struct w49 t91435; struct structure_type24753 *t91436; struct w12224 t91437; struct w12224 t91438; struct w36108 t91439; struct w49 t91440; struct structure_type24753 *t91441; struct w12224 t91442; char *t91443; struct w49 t91444; struct structure_type24753 *t91445; int t91446; int t91447; struct w21691 t91448; struct w49 t91449; struct w21193 t91450; struct w227671 t91451; struct w49 t91452; struct w12224 t91453; struct w12224 t91454; struct w36108 t91455; struct w49 t91456; struct structure_type24753 *t91457; char *t91458; struct w49 t91459; struct structure_type24753 *t91460; int t91461; int t91462; struct w12224 t91463; struct w49 t91464; struct w21193 t91465; unsigned t91466; struct w49 t91467; struct w12224 t91468; struct w12224 t91469; struct w21691 t91470; struct w36108 t91471; struct w49 t91472; struct structure_type24753 *t91473; char *t91474; struct w49 t91475; struct structure_type24753 *t91476; struct w49 t91477; int t91478; struct structure_type24753 *t91479; int t91480; unsigned t91481; struct w49 t91482; struct w228463 t91483; struct w21691 t91484; struct w36270 t91485; struct w49 t91486; struct structure_type24753 *t91487; struct structure_type24753 *t91488; struct w227671 t91489; struct w49 t91490; struct w12224 t91491; struct w12224 t91492; struct w21691 t91493; struct w36108 t91494; struct w49 t91495; struct structure_type24753 *t91496; char *t91497; struct w49 t91498; struct structure_type24753 *t91499; struct w49 t91500; int t91501; struct structure_type24753 *t91502; int t91503; unsigned t91504; struct w49 t91505; struct w228463 t91506; struct w21691 t91507; struct w36270 t91508; struct w49 t91509; struct structure_type24753 *t91510; struct structure_type24753 *t91511; struct w227671 t91512; struct w49 t91513; struct w21193 t91514; struct w36108 t91515; struct w49 t91516; struct structure_type24753 *t91517; struct w21193 t91518; struct w36108 t91519; struct w49 t91520; struct structure_type24753 *t91521; unsigned t91522; char *t91523; struct w21193 t91524; struct w36108 t91525; struct w49 t91526; struct structure_type24753 *t91527; unsigned t91528; char *t91529; struct w21193 t91530; struct w36108 t91531; struct w49 t91532; struct structure_type24753 *t91533; struct w21193 t91534; struct w36108 t91535; struct w49 t91536; struct structure_type24753 *t91537; unsigned t91538; char *t91539; unsigned t91540; char *t91541; struct w21193 t91542; struct w36108 t91543; struct w49 t91544; struct structure_type24753 *t91545; unsigned t91546; char *t91547; struct w21193 t91548; struct w36108 t91549; struct w49 t91550; struct structure_type24753 *t91551; struct w21193 t91552; struct w36108 t91553; struct w49 t91554; struct structure_type24753 *t91555; unsigned t91556; char *t91557; struct w49 t91558; struct w49 t91559; struct w49 t91560; struct w49 t91561; struct w49 t91562; struct w60861 t91563; struct w49 t91564; struct structure_type24753 *t91565; struct w49 t91566; struct w49 t91567; struct structure_type24753 *t91568; struct structure_type24753 *t91569; char *t91570; struct w49 t91571; char *t91572; unsigned t91573; char *t91574; char *t91575; struct structure_type24753 *t91576; struct w12224 t91577; struct structure_type24753 *t91578; struct w49 t91579; struct structure_type24753 *t91580; struct w227671 t91581; struct w49 t91582; struct structure_type24753 *t91583; struct w49 t91584; struct structure_type24753 *t91585; struct w49 t91586; unsigned t91587; char *t91588; unsigned t91589; char *t91590; struct structure_type24753 *t91591; struct structure_type24753 *t91592; struct w49 t91593; struct structure_type27623 *t91594; struct structure_type27623 *t91595; struct structure_type27623 *t91596; struct structure_type27623 *t91597; struct structure_type24753 *t91598; struct w49 t91599; struct structure_type24753 *t91600; struct w49 t91601; int t91602; int t91603; unsigned t91604; unsigned t91605; struct w49 t91606; int t91607; int t91608; unsigned t91609; unsigned t91610; struct w49 t91611; int t91612; int t91613; unsigned t91614; unsigned t91615; struct w49 t91616; int t91617; int t91618; unsigned t91619; unsigned t91620; struct w49 t91621; unsigned t91622; char *t91623; struct structure_type24753 *t91624; struct structure_type24753 *t91625; struct w49 t91626; struct structure_type24753 *t91627; struct w49 t91628; unsigned t91629; char *t91630; struct w49 t91631; char t91632; struct w49 t91633; struct w49 t91634; struct w49 t91635; struct w49 t91636; struct structure_type24753 *t91637; struct w49 t91638; struct w49 t91639; struct w49 t91640; struct w49 t91641; char *t91642; struct w61020 t91643; struct structure_type24753 *t91644; char *t91645; char *t91646; char *t91647; char *t91648; struct w61020 t91649; struct w61020 t91650; char *t91651; struct structure_type24753 *t91652; struct w49 t91653; struct w49 t91654; struct w49 t91655; struct w49 t91656; struct w49 t91657; struct w49 t91658; struct w49 t91659; struct w49 t91660; struct w49 t91661; struct w49 t91662; struct w49 t91663; struct structure_type24753 *t91664; struct w49 t91665; struct structure_type24753 *t91666; struct w36270 t91667; struct w49 t91668; struct structure_type24753 *t91669; struct w29434 t91670; char *t91671; struct w49 t91672; char *t91673; char *t91674; char *t91675; char *t91676; char *t91677; struct w49 t91678; char *t91679; char *t91680; char *t91681; struct w49 t91682; struct w49 t91683; struct w49 t91684; struct w49 t91685; struct w49 t91686; struct w49 t91687; struct w49 t91688; struct w49 t91689; struct w49 t91690; struct w49 t91691; struct w30215 t91692; struct w49 t91693; int t91694; struct w29434 t91695; struct w30215 t91696; struct w49 t91697; int t91698; struct w29434 t91699; struct w30215 t91700; struct w49 t91701; int t91702; struct w29434 t91703; char *t91704; struct w49 t91705; char *t91706; struct w49 t91707; char *t91708; struct w49 t91709; struct w49 t91710; struct w49 t91711; struct w49 t91712; char *t91713; char *t91714; struct w49 t91715; char *t91716; struct w49 t91717; char *t91718; struct w49 t91719; struct w49 t91720; struct w49 t91721; struct w49 t91722; char *t91723; struct w49 t91724; char *t91725; struct w49 t91726; char *t91727; struct w49 t91728; char *t91729; struct w49 t91730; char *t91731; struct w49 t91732; char *t91733; struct w49 t91734; char *t91735; struct w49 t91736; char *t91737; struct w49 t91738; struct w49 t91739; struct w49 t91740; struct w49 t91741; struct w49 t91742; struct structure_type24753 *t91743; struct w49 t91744; struct w49 t91745; struct w49 t91746; struct w12224 t91747; struct w49 t91748; struct w49 t91749; struct p18442 *t91750; char *t91751; char *t91752; struct w61020 t91753; struct w30215 t91754; struct w49 t91755; int t91756; struct w30215 t91757; int t91758; int t91759; struct w49 t91760; int t91761; struct w49 t91762; char *t91763; char *t91764; struct w61020 t91765; struct w30215 t91766; struct w49 t91767; int t91768; struct w30215 t91769; int t91770; struct w49 t91771; struct w12224 t91772; struct w49 t91773; unsigned t91774; unsigned t91775; struct w49 t91776; unsigned t91777; struct structure_type24753 *t91778; struct w21193 t91779; struct w21193 t91780; struct w21193 t91781; struct w21193 t91782; struct w21193 t91783; struct w21193 t91784; struct w21193 t91785; struct w21193 t91786; struct w21193 t91787; struct w21193 t91788; struct w21193 t91789; struct structure_type24753 *t91790; struct w49 t91791; struct w49 t91792; struct w49 t91793; struct w49 t91794; struct w49 t91795; struct w49 t91796; struct w49 t91797; struct w49 t91798; struct w49 t91799; struct w49 t91800; struct w49 t91801; char *t91802; char *t91803; char *t91804; char *t91805; char *t91806; char *t91807; char *t91808; char *t91809; char *t91810; char *t91811; char *t91812; struct w49 t91813; struct w49 t91814; struct w49 t91815; struct w49 t91816; struct w49 t91817; struct w49 t91818; struct w49 t91819; struct w49 t91820; struct w49 t91821; struct w49 t91822; struct w49 t91823; struct w49 t91824; struct w49 t91825; struct w49 t91826; struct w49 t91827; struct w49 t91828; struct w49 t91829; struct w49 t91830; struct w49 t91831; struct w49 t91832; struct w49 t91833; struct w49 t91834; struct w49 t91835; struct structure_type24753 *t91836; struct structure_type24753 *t91837; struct w49 t91838; struct w49 t91839; struct w49 t91840; struct w49 t91841; struct w49 t91842; struct w49 t91843; struct w49 t91844; struct w49 t91845; struct w49 t91846; struct w49 t91847; struct w49 t91848; struct w49 t91849; struct w49 t91850; struct w49 t91851; struct structure_type24753 *t91852; struct w49 t91853; struct w21193 t91854; struct w36270 t91855; struct w49 t91856; struct structure_type24753 *t91857; struct structure_type24753 *t91858; struct w49 t91859; struct w21193 t91860; struct w36270 t91861; struct w49 t91862; struct structure_type24753 *t91863; struct w49 t91864; struct w49 t91865; struct w49 t91866; struct w49 t91867; struct structure_type24753 *t91868; struct w49 t91869; struct w49 t91870; struct w49 t91871; struct w49 t91872; struct structure_type24753 *t91873; struct w49 t91874; struct w21193 t91875; struct w36270 t91876; struct w49 t91877; struct structure_type24753 *t91878; struct structure_type24753 *t91879; struct w49 t91880; struct w21193 t91881; struct w36270 t91882; struct w49 t91883; struct structure_type24753 *t91884; struct structure_type24753 *t91885; struct w49 t91886; struct w12224 t91887; struct w36270 t91888; struct w49 t91889; struct structure_type24753 *t91890; struct w49 t91891; struct w49 t91892; struct w49 t91893; struct w49 t91894; struct w12224 t91895; struct structure_type24753 *t91896; struct w49 t91897; struct w16638 t91898; struct w49 t91899; struct w49 t91900; struct structure_type24753 *t91901; char *t91902; struct w16638 t91903; struct w227506 t91904; struct w49 t91905; struct structure_type24753 *t91906; struct w49 t91907; struct w12224 t91908; struct w12224 t91909; struct structure_type24753 *t91910; struct w49 t91911; struct w21193 t91912; unsigned t91913; struct w49 t91914; struct w21193 t91915; unsigned t91916; struct w49 t91917; struct structure_type24753 *t91918; struct w49 t91919; struct w21193 t91920; struct w36270 t91921; struct w49 t91922; struct structure_type24753 *t91923; struct w21193 t91924; struct w228345 t91925; struct w49 t91926; struct structure_type24753 *t91927; char *t91928; struct structure_type24753 *t91929; struct w49 t91930; struct w21193 t91931; struct w36270 t91932; struct w49 t91933; struct structure_type24753 *t91934; struct structure_type24753 *t91935; struct w49 t91936; struct w12224 t91937; struct w36270 t91938; struct w49 t91939; struct structure_type24753 *t91940; struct w21193 t91941; struct w227671 t91942; struct w49 t91943; struct structure_type24753 *t91944; struct w49 t91945; struct structure_type24753 *t91946; struct w36270 t91947; struct w49 t91948; struct structure_type24753 *t91949; struct structure_type24753 *t91950; struct w49 t91951; struct w21193 t91952; struct w36270 t91953; struct w49 t91954; struct structure_type24753 *t91955; struct structure_type24753 *t91956; struct w49 t91957; struct w21193 t91958; struct w36270 t91959; struct w49 t91960; struct structure_type24753 *t91961; struct w12224 t91962; struct w49 t91963; int t91964; struct w227957 t91965; struct w49 t91966; float t91967; float t91968; int t91969; float t91970; struct structure_type24753 *t91971; struct w49 t91972; int t91973; struct w12224 t91974; struct w49 t91975; struct structure_type24753 *t91976; struct w49 t91977; struct w12224 t91978; struct w49 t91979; int t91980; struct w227957 t91981; struct w49 t91982; float t91983; float t91984; int t91985; float t91986; struct structure_type24753 *t91987; struct w49 t91988; int t91989; char *t91990; struct structure_type24753 *t91991; struct structure_type24753 *t91992; struct w49 t91993; struct w49 t91994; struct w49 t91995; char *t91996; char *t91997; char *t91998; char *t91999; char *t92000; struct w49 t92001; struct structure_type24753 *t92002; char *t92003; struct w49 t92004; struct w49 t92005; struct w49 t92006; struct structure_type24753 *t92007; struct w49 t92008; char *t92009; char *t92010; struct structure_type24753 *t92011; struct w49 t92012; struct w49 t92013; char *t92014; struct structure_type24753 *t92015; struct structure_type24753 *t92016; struct w49 t92017; struct w49 t92018; struct structure_type24753 *t92019; struct w49 t92020; char *t92021; struct w49 t92022; struct w49 t92023; struct w49 t92024; struct w49 t92025; struct w49 t92026; struct w49 t92027; char *t92028; struct w49 t92029; struct w61020 t92030; struct w49 t92031; struct structure_type24753 *t92032; struct w49 t92033; struct w49 t92034; struct w49 t92035; struct w49 t92036; struct w49 t92037; struct w49 t92038; struct w49 t92039; struct w49 t92040; struct w12224 t92041; struct w49 t92042; struct structure_type24753 *t92043; struct w49 t92044; struct w61020 t92045; struct w61020 t92046; struct w61020 t92047; struct w61020 t92048; struct w61020 t92049; struct w61020 t92050; struct w61020 t92051; struct w61020 t92052; struct w61020 t92053; struct w61020 t92054; struct w61020 t92055; struct w61020 t92056; struct w61020 t92057; struct w49 t92058; struct w49 t92059; struct w49 t92060; struct w49 t92061; struct w49 t92062; struct w49 t92063; struct w61020 t92064; struct w61020 t92065; struct w61020 t92066; struct w61020 t92067; struct w61020 t92068; struct w61020 t92069; struct w61020 t92070; struct w61020 t92071; struct w61020 t92072; struct w61020 t92073; struct w61020 t92074; struct w61020 t92075; struct w49 t92076; struct w49 t92077; struct structure_type24753 *t92078; struct w49 t92079; struct w49 t92080; struct w49 t92081; struct w49 t92082; struct w49 t92083; struct w49 t92084; struct w49 t92085; struct w49 t92086; struct w49 t92087; struct w49 t92088; struct w49 t92089; struct w49 t92090; struct w49 t92091; struct w49 t92092; struct w49 t92093; struct w49 t92094; struct w49 t92095; struct w49 t92096; struct w49 t92097; struct w49 t92098; struct w49 t92099; struct w49 t92100; struct w49 t92101; struct w49 t92102; struct w49 t92103; struct w49 t92104; struct w49 t92105; struct w49 t92106; struct w49 t92107; struct w49 t92108; struct w49 t92109; struct w49 t92110; struct w49 t92111; struct structure_type24753 *t92112; struct structure_type24753 *t92113; struct structure_type24753 *t92114; char *t92115; struct w49 t92116; struct w49 t92117; struct w165970 t92118; struct w30215 t92119; struct w49 t92120; int t92121; struct w49 t92122; struct structure_type24753 *t92123; struct structure_type24753 *t92124; struct structure_type24753 *t92125; char *t92126; struct w49 t92127; struct w49 t92128; struct w165970 t92129; struct w30215 t92130; struct w49 t92131; int t92132; struct w49 t92133; struct structure_type24753 *t92134; struct structure_type24753 *t92135; struct structure_type24753 *t92136; char *t92137; struct w49 t92138; struct w49 t92139; struct w165970 t92140; struct w30215 t92141; struct w49 t92142; int t92143; struct w49 t92144; struct structure_type24753 *t92145; struct structure_type24753 *t92146; struct structure_type24753 *t92147; char *t92148; struct w49 t92149; struct w49 t92150; struct w165970 t92151; struct w30215 t92152; struct w49 t92153; int t92154; struct w49 t92155; struct structure_type24753 *t92156; struct structure_type24753 *t92157; struct structure_type24753 *t92158; char *t92159; struct w49 t92160; struct w49 t92161; struct w165970 t92162; struct w30215 t92163; struct w49 t92164; int t92165; struct w49 t92166; struct structure_type24753 *t92167; struct structure_type24753 *t92168; struct structure_type24753 *t92169; char *t92170; struct w49 t92171; struct w49 t92172; struct w165970 t92173; struct w30215 t92174; struct w49 t92175; int t92176; struct w49 t92177; struct structure_type24753 *t92178; struct structure_type24753 *t92179; struct structure_type24753 *t92180; char *t92181; struct w49 t92182; struct w49 t92183; struct w165970 t92184; struct w30215 t92185; struct w49 t92186; int t92187; struct w49 t92188; struct structure_type24753 *t92189; struct structure_type24753 *t92190; struct structure_type24753 *t92191; char *t92192; struct w49 t92193; struct w49 t92194; struct w165970 t92195; struct w30215 t92196; struct w49 t92197; int t92198; struct w49 t92199; struct structure_type24753 *t92200; struct structure_type24753 *t92201; struct structure_type24753 *t92202; char *t92203; struct w49 t92204; struct w49 t92205; struct w165970 t92206; struct w30215 t92207; struct w49 t92208; int t92209; struct w49 t92210; struct structure_type24753 *t92211; struct structure_type24753 *t92212; struct structure_type24753 *t92213; char *t92214; struct w49 t92215; struct w49 t92216; struct w165970 t92217; struct w30215 t92218; struct w49 t92219; int t92220; struct w49 t92221; struct structure_type24753 *t92222; struct structure_type24753 *t92223; struct structure_type24753 *t92224; char *t92225; struct w49 t92226; struct w49 t92227; struct w165970 t92228; struct w30215 t92229; struct w49 t92230; int t92231; struct w49 t92232; struct structure_type24753 *t92233; struct structure_type24753 *t92234; struct structure_type24753 *t92235; char *t92236; struct w49 t92237; struct w49 t92238; struct w165970 t92239; struct w30215 t92240; struct w49 t92241; int t92242; struct w49 t92243; struct structure_type24753 *t92244; struct structure_type24753 *t92245; struct structure_type24753 *t92246; char *t92247; struct w49 t92248; struct w49 t92249; struct w165970 t92250; struct w30215 t92251; struct w49 t92252; int t92253; struct w49 t92254; struct structure_type24753 *t92255; struct w49 t92256; struct w49 t92257; struct w36270 t92258; struct w49 t92259; struct structure_type24753 *t92260; struct w12224 t92261; struct w12224 t92262; struct w12224 t92263; struct w12224 t92264; struct w12224 t92265; struct structure_type24753 *t92266; struct w49 t92267; struct w49 t92268; struct w49 t92269; struct w49 t92270; struct w21193 t92271; struct w227671 t92272; struct w49 t92273; struct w21193 t92274; struct w227671 t92275; struct w49 t92276; struct w21193 t92277; struct w227671 t92278; struct w49 t92279; struct w21193 t92280; struct w227671 t92281; struct w49 t92282; struct w21193 t92283; struct w227671 t92284; struct w49 t92285; char *t92286; char *t92287; char *t92288; struct w49 t92289; struct w49 t92290; char *t92291; char *t92292; struct w49 t92293; struct w49 t92294; char *t92295; char *t92296; struct w49 t92297; struct w49 t92298; char *t92299; char *t92300; struct w49 t92301; struct w49 t92302; char *t92303; char *t92304; struct w49 t92305; struct w49 t92306; char *t92307; struct structure_type24753 *t92308; struct w49 t92309; struct w12224 t92310; struct w36270 t92311; struct w49 t92312; struct structure_type24753 *t92313; struct structure_type24753 *t92314; struct w12224 t92315; struct w36270 t92316; struct w49 t92317; struct structure_type24753 *t92318; struct w12224 t92319; struct w227671 t92320; struct w49 t92321; struct w21193 t92322; unsigned t92323; struct w49 t92324; struct structure_type24753 *t92325; struct w49 t92326; struct w12224 t92327; struct w36270 t92328; struct w49 t92329; struct structure_type24753 *t92330; struct w21193 t92331; struct w227671 t92332; struct w49 t92333; struct structure_type24753 *t92334; struct w49 t92335; struct w12224 t92336; struct w36270 t92337; struct w49 t92338; struct structure_type24753 *t92339; struct w21193 t92340; struct w227671 t92341; struct w49 t92342; struct structure_type24753 *t92343; struct w49 t92344; struct w12224 t92345; struct w36270 t92346; struct w49 t92347; struct structure_type24753 *t92348; struct w21193 t92349; struct w227671 t92350; struct w49 t92351; struct structure_type24753 *t92352; struct w49 t92353; struct w12224 t92354; struct w36270 t92355; struct w49 t92356; struct structure_type24753 *t92357; struct w21193 t92358; struct w227671 t92359; struct w49 t92360; struct structure_type24753 *t92361; struct w49 t92362; struct w12224 t92363; struct w36270 t92364; struct w49 t92365; struct structure_type24753 *t92366; struct w21193 t92367; struct w227671 t92368; struct w49 t92369; struct structure_type24753 *t92370; struct structure_type24753 *t92371; struct structure_type24753 *t92372; char *t92373; struct w49 t92374; struct w49 t92375; struct w49 t92376; struct w49 t92377; struct structure_type24753 *t92378; struct structure_type24753 *t92379; struct structure_type24753 *t92380; char *t92381; struct w49 t92382; struct w49 t92383; struct w49 t92384; struct w49 t92385; struct structure_type24753 *t92386; struct structure_type24753 *t92387; struct structure_type24753 *t92388; char *t92389; struct w49 t92390; struct w49 t92391; struct w49 t92392; struct w49 t92393; struct structure_type24753 *t92394; struct structure_type24753 *t92395; struct structure_type24753 *t92396; char *t92397; struct w49 t92398; struct w49 t92399; struct structure_type24753 *t92400; struct w49 t92401; char *t92402; char *t92403; struct w49 t92404; struct w30215 t92405; struct w49 t92406; int t92407; struct w49 t92408; struct structure_type24753 *t92409; struct structure_type24753 *t92410; struct structure_type24753 *t92411; char *t92412; struct w49 t92413; struct w49 t92414; struct w49 t92415; char *t92416; char *t92417; struct structure_type24753 *t92418; struct w49 t92419; struct w49 t92420; struct w49 t92421; struct structure_type24753 *t92422; struct structure_type24753 *t92423; struct structure_type24753 *t92424; char *t92425; struct w49 t92426; struct w49 t92427; struct w49 t92428; struct w49 t92429; char *t92430; struct structure_type24753 *t92431; struct w49 t92432; struct w49 t92433; struct w49 t92434; struct structure_type24753 *t92435; struct structure_type24753 *t92436; struct structure_type24753 *t92437; char *t92438; struct w49 t92439; struct w49 t92440; struct w49 t92441; struct w49 t92442; char *t92443; struct structure_type24753 *t92444; struct w49 t92445; struct w49 t92446; struct w49 t92447; struct structure_type24753 *t92448; struct structure_type24753 *t92449; struct structure_type24753 *t92450; char *t92451; struct w49 t92452; struct w49 t92453; struct w49 t92454; struct w49 t92455; char *t92456; struct structure_type24753 *t92457; struct w49 t92458; struct w49 t92459; struct w49 t92460; struct structure_type24753 *t92461; struct structure_type24753 *t92462; struct structure_type24753 *t92463; char *t92464; struct w49 t92465; struct w49 t92466; struct w49 t92467; struct w49 t92468; struct structure_type24753 *t92469; struct structure_type24753 *t92470; struct structure_type24753 *t92471; char *t92472; struct w49 t92473; struct w49 t92474; struct w49 t92475; struct w49 t92476; struct structure_type24753 *t92477; struct structure_type24753 *t92478; struct structure_type24753 *t92479; char *t92480; struct w49 t92481; struct w49 t92482; struct w49 t92483; struct w49 t92484; struct structure_type24753 *t92485; struct structure_type24753 *t92486; struct structure_type24753 *t92487; char *t92488; struct w49 t92489; struct w49 t92490; struct w49 t92491; struct w49 t92492; struct structure_type24753 *t92493; struct w49 t92494; struct w49 t92495; struct w36270 t92496; struct w49 t92497; struct structure_type24753 *t92498; struct w12224 t92499; struct w12224 t92500; struct w12224 t92501; struct w12224 t92502; struct w12224 t92503; struct structure_type24753 *t92504; struct w49 t92505; struct w49 t92506; struct w49 t92507; struct w49 t92508; struct w21193 t92509; struct w227671 t92510; struct w49 t92511; struct w21193 t92512; struct w227671 t92513; struct w49 t92514; struct w21193 t92515; struct w227671 t92516; struct w49 t92517; struct w21193 t92518; struct w227671 t92519; struct w49 t92520; struct w21193 t92521; struct w227671 t92522; struct w49 t92523; struct structure_type24753 *t92524; struct w49 t92525; struct w12224 t92526; struct w36270 t92527; struct w49 t92528; struct structure_type24753 *t92529; struct w21193 t92530; struct w227671 t92531; struct w49 t92532; struct w49 t92533; struct w49 t92534; struct structure_type24753 *t92535; struct structure_type24753 *t92536; struct w49 t92537; struct w49 t92538; struct w49 t92539; struct structure_type24753 *t92540; struct structure_type24753 *t92541; struct w49 t92542; struct structure_type24753 *t92543; struct structure_type24753 *t92544; struct structure_type24753 *t92545; struct w49 t92546; char *t92547; char *t92548; struct w49 t92549; struct w49 t92550; struct structure_type24753 *t92551; char *t92552; struct structure_type24753 *t92553; char *t92554; struct w49 t92555; struct w12224 t92556; struct w49 t92557; char *t92558; char *t92559; struct w49 t92560; struct w49 t92561; struct structure_type24753 *t92562; struct w49 t92563; char *t92564; struct w61020 t92565; struct structure_type24753 *t92566; struct structure_type24753 *t92567; char *t92568; struct w49 t92569; struct w49 t92570; unsigned t92571; struct structure_type24753 *t92572; struct structure_type24753 *t92573; struct structure_type24753 *t92574; struct w49 t92575; char *t92576; char *t92577; struct w49 t92578; struct w49 t92579; struct structure_type24753 *t92580; struct w49 t92581; char *t92582; struct structure_type24753 *t92583; char *t92584; struct w49 t92585; struct w12224 t92586; struct w49 t92587; char *t92588; char *t92589; struct w49 t92590; struct w49 t92591; struct structure_type24753 *t92592; struct w49 t92593; char *t92594; struct w61020 t92595; char *t92596; char *t92597; char *t92598; struct w61020 t92599; struct structure_type24753 *t92600; struct w49 t92601; char *t92602; struct w49 t92603; char *t92604; struct w49 t92605; char *t92606; struct w49 t92607; struct w12224 t92608; struct w49 t92609; int t92610; struct w227957 t92611; struct w49 t92612; float t92613; float t92614; int t92615; float t92616; struct structure_type24753 *t92617; struct w49 t92618; int t92619; struct structure_type24753 *t92620; struct w49 t92621; char *t92622; struct w49 t92623; unsigned t92624; char *t92625; char *t92626; struct w49 t92627; struct w49 t92628; struct w49 t92629; struct w49 t92630; struct structure_type24753 *t92631; struct w49 t92632; struct w49 t92633; char *t92634; struct w49 t92635; struct structure_type24753 *t92636; struct w49 t92637; struct w21193 t92638; struct w36270 t92639; struct w49 t92640; struct structure_type24753 *t92641; struct structure_type24753 *t92642; struct w49 t92643; char *t92644; struct w49 t92645; unsigned t92646; char *t92647; char *t92648; struct w49 t92649; struct w49 t92650; struct w49 t92651; struct w49 t92652; struct w49 t92653; struct structure_type24753 *t92654; struct w49 t92655; struct w49 t92656; struct w49 t92657; struct structure_type24753 *t92658; struct w49 t92659; struct w21193 t92660; struct w36270 t92661; struct w49 t92662; struct structure_type24753 *t92663; char *t92664; struct w49 t92665; char *t92666; char *t92667; struct w61020 t92668; struct structure_type24753 *t92669; struct structure_type24753 *t92670; char *t92671; struct w49 t92672; struct w49 t92673; struct w61020 t92674; struct w49 t92675; struct structure_type24753 *t92676; struct w49 t92677; struct w49 t92678; struct w49 t92679; struct w49 t92680; struct w49 t92681; struct w49 t92682; struct w49 t92683; struct w49 t92684; struct w49 t92685; struct structure_type27501 *t92686; struct w49 t92687; char *t92688; char *t92689; struct structure_type27501 *t92690; struct w61020 t92691; struct w49 t92692; struct w49 t92693; struct w49 t92694; struct w49 t92695; struct w60861 t92696; struct w49 t92697; struct w49 t92698; struct w61020 t92699; struct w49 t92700; struct w49 t92701; struct w49 t92702; struct w49 t92703; struct w49 t92704; struct w49 t92705; struct w211113 t92706; struct w49 t92707; struct w49 t92708; struct w49 t92709; struct w49 t92710; struct w49 t92711; struct w49 t92712; struct structure_type27745 *t92713; struct structure_type24753 *t92714; struct w60861 t92715; struct w49 t92716; struct w49 t92717; struct structure_type24753 *t92718; struct w49 t92719; struct w49 t92720; struct w211257 t92721; struct structure_type24753 *t92722; struct structure_type24753 *t92723; struct structure_type24753 *t92724; struct w49 t92725; struct w49 t92726; struct structure_type24753 *t92727; struct w49 t92728; char *t92729; struct structure_type24753 *t92730; struct w49 t92731; struct w211235 t92732; struct structure_type24753 *t92733; struct structure_type24753 *t92734; struct structure_type24753 *t92735; struct w60864 t92736; struct w49 t92737; struct w49 t92738; struct structure_type24753 *t92739; struct w49 t92740; struct w49 t92741; struct structure_type27501 *t92742; struct structure_type24753 *t92743; struct w49 t92744; struct w12218 t92745; struct w49 t92746; struct w49 t92747; struct w60864 t92748; struct w49 t92749; struct w49 t92750; struct structure_type27501 *t92751; struct w60864 t92752; struct w49 t92753; struct w49 t92754; struct w49 t92755; struct w49 t92756; struct w49 t92757; struct w49 t92758; struct w49 t92759; struct structure_type27745 *t92760; struct structure_type24753 *t92761; struct w49 t92762; struct w12224 t92763; struct w49 t92764; struct w49 t92765; struct structure_type27745 *t92766; struct structure_type24753 *t92767; struct w60861 t92768; struct w49 t92769; struct w12224 t92770; struct w49 t92771; struct w49 t92772; struct structure_type27745 *t92773; struct w49 t92774; struct w49 t92775; struct structure_type27745 *t92776; struct w49 t92777; struct w49 t92778; struct w49 t92779; struct w49 t92780; struct w49 t92781; struct w60864 t92782; struct w49 t92783; struct w49 t92784; struct structure_type24753 *t92785; struct structure_type24753 *t92786; struct w49 t92787; struct w49 t92788; struct w49 t92789; struct w49 t92790; struct w49 t92791; struct w49 t92792; struct structure_type24753 *t92793; struct structure_type24753 *t92794; struct w49 t92795; char *t92796; char *t92797; char *t92798; char *t92799; char *t92800; struct structure_type24753 *t92801; struct w49 t92802; struct w49 t92803; struct w49 t92804; struct structure_type24753 *t92805; struct w49 t92806; struct w49 t92807; struct structure_type24753 *t92808; struct w49 t92809; char *t92810; char *t92811; struct w49 t92812; struct w49 t92813; struct w49 t92814; struct w49 t92815; struct structure_type24753 *t92816; struct w49 t92817; struct w49 t92818; struct structure_type24753 *t92819; struct w49 t92820; struct structure_type24753 *t92821; struct w36270 t92822; struct w49 t92823; struct structure_type24753 *t92824; struct structure_type24753 *t92825; struct w49 t92826; struct w21193 t92827; struct w36270 t92828; struct w49 t92829; struct structure_type24753 *t92830; char *t92831; char *t92832; unsigned t92833; char *t92834; char *t92835; unsigned t92836; char *t92837; int t92838; struct w49 t92839; struct structure_type24753 *t92840; char *t92841; unsigned t92842; struct w49 t92843; struct w228463 t92844; char *t92845; struct w49 t92846; struct w49 t92847; struct w49 t92848; struct structure_type24753 *t92849; struct structure_type24753 *t92850; struct w49 t92851; struct structure_type24753 *t92852; unsigned t92853; struct w49 t92854; struct w228463 t92855; struct w49 t92856; struct w36270 t92857; struct w49 t92858; struct structure_type24753 *t92859; char *t92860; struct structure_type24753 *t92861; struct w49 t92862; struct w49 t92863; char *t92864; struct structure_type24753 *t92865; struct w49 t92866; struct w49 t92867; char *t92868; char *t92869; struct w49 t92870; struct w49 t92871; char *t92872; char *t92873; struct w12224 t92874; struct w49 t92875; struct structure_type24753 *t92876; struct w49 t92877; struct structure_type24753 *t92878; struct w49 t92879; struct w49 t92880; struct structure_type24753 *t92881; struct structure_type24753 *t92882; struct w49 t92883; struct structure_type24753 *t92884; unsigned t92885; struct w49 t92886; struct w228463 t92887; struct w49 t92888; struct w36270 t92889; struct w49 t92890; struct structure_type24753 *t92891; char *t92892; struct structure_type24753 *t92893; struct w49 t92894; struct w49 t92895; char *t92896; struct w49 t92897; struct w49 t92898; struct structure_type24753 *t92899; struct w49 t92900; struct structure_type24753 *t92901; struct w49 t92902; struct structure_type24753 *t92904; struct w49 t92905; struct structure_type24753 *t92906; struct w49 t92907; struct structure_type24753 *t92909; struct structure_type24753 *t92910; struct w49 t92911; char *t92913; unsigned t92914; char *t92915; char *t92916; char *t92917; char *t92918; struct structure_type24753 *t92919; struct w49 t92920; struct structure_type24753 *t92921; struct structure_type24753 *t92922; struct w49 t92923; struct w49 t92924; struct w49 t92925; struct structure_type24753 *t92926; struct w49 t92927; struct w49 t92928; struct w49 t92929; struct w49 t92930; struct structure_type24753 *t92931; struct w49 t92932; char *t92933; char *t92934; struct w49 t92935; struct w49 t92936; char *t92937; char *t92938; struct w49 t92939; int t92940; char *t92941; struct w49 t92942; struct w49 t92943; struct structure_type24753 *t92944; char *t92945; char *t92946; struct w49 t92947; char *t92948; struct w6315 t92949; char *t92950; struct w6315 t92951; char *t92952; struct w6315 t92953; char *t92954; struct w6315 t92955; char *t92956; struct w6315 t92957; char *t92958; struct w49 t92959; struct w49 t92960; struct w49 t92961; struct w49 t92962; int t92963; struct w49 t92964; int t92965; char *t92966; struct w49 t92967; struct w49 t92968; struct structure_type24753 *t92969; struct w49 t92970; int t92971; struct w49 t92972; struct w49 t92973; int t92974; struct w49 t92975; char *t92976; char *t92977; char *t92978; struct w49 t92979; struct w49 t92980; char *t92981; char *t92982; struct w49 t92983; struct w49 t92984; char *t92985; struct w49 t92986; int t92987; struct w49 t92988; struct w49 t92989; int t92990; struct w49 t92991; struct w49 t92992; int t92993; struct w49 t92994; struct w49 t92995; int t92996; struct w49 t92997; struct w49 t92998; int t92999; struct w49 t93000; struct w49 t93001; int t93002; struct w49 t93003; struct w49 t93004; int t93005; struct w49 t93006; struct w49 t93007; int t93008; struct w49 t93009; struct w49 t93010; int t93011; struct w49 t93012; struct w49 t93013; int t93014; struct w49 t93015; char *t93016; char *t93017; char *t93018; struct w49 t93019; struct w49 t93020; char *t93021; char *t93022; struct w49 t93023; struct w49 t93024; char *t93025; struct w49 t93026; int t93027; struct w49 t93028; struct w49 t93029; int t93030; struct w49 t93031; struct w49 t93032; int t93033; struct w49 t93034; struct w49 t93035; int t93036; struct w49 t93037; struct w49 t93038; int t93039; struct w49 t93040; struct w49 t93041; int t93042; struct w49 t93043; struct w49 t93044; int t93045; struct w49 t93046; struct w49 t93047; int t93048; struct w49 t93049; struct w49 t93050; int t93051; struct w49 t93052; struct w49 t93053; int t93054; struct w49 t93055; char *t93056; char *t93057; char *t93058; struct w49 t93059; struct w49 t93060; char *t93061; char *t93062; struct w49 t93063; struct w49 t93064; char *t93065; struct w49 t93066; int t93067; struct w49 t93068; struct w49 t93069; int t93070; struct w49 t93071; struct w49 t93072; int t93073; struct w49 t93074; struct w49 t93075; int t93076; struct w49 t93077; struct w49 t93078; int t93079; struct w49 t93080; struct w49 t93081; int t93082; struct w49 t93083; struct w49 t93084; struct w49 t93085; struct w49 t93086; struct w49 t93087; char *t93088; struct w49 t93089; struct w49 t93090; struct w49 t93091; struct p18678 *t93092; char *t93093; struct w49 t93094; char *t93095; char *t93096; char *t93097; char *t93098; char *t93099; char *t93100; char *t93101; struct w49 t93102; struct w49 t93103; struct w49 t93104; struct w12563 t93105; struct w12563 t93106; struct w12563 t93107; struct structure_type27501 *t93108; char *t93109; char *t93110; char *t93111; char *t93112; char *t93113; char *t93114; char *t93115; char *t93116; struct w49 t93117; struct structure_type24753 *t93118; struct structure_type24753 *t93119; struct w49 t93120; struct w49 t93121; struct structure_type24753 *t93122; struct structure_type24753 *t93123; struct w49 t93124; struct w49 t93125; struct structure_type24753 *t93126; struct structure_type24753 *t93127; struct w49 t93128; struct w49 t93129; struct structure_type24753 *t93130; struct structure_type24753 *t93131; struct w49 t93132; unsigned t93133; char *t93134; struct w49 t93135; struct w49 t93136; char *t93137; struct w49 t93138; struct w49 t93139; struct w49 t93140; struct w49 t93141; char *t93142; struct w49 t93143; struct w49 t93144; struct w49 t93145; struct w49 t93146; char *t93147; struct w49 t93148; struct w49 t93149; struct w49 t93150; struct w49 t93151; char *t93152; struct w49 t93153; struct w49 t93154; struct w49 t93155; struct w49 t93156; char *t93157; struct w49 t93158; struct w49 t93159; struct w49 t93160; struct w49 t93161; char *t93162; struct w49 t93163; struct w49 t93164; struct w49 t93165; struct w49 t93166; char *t93167; struct w49 t93168; struct w49 t93169; struct w49 t93170; struct w49 t93171; char *t93172; struct w49 t93173; struct w49 t93174; struct w49 t93175; struct w49 t93176; char *t93177; struct w49 t93178; struct w49 t93179; struct w49 t93180; struct w49 t93181; char *t93182; struct w49 t93183; struct w49 t93184; struct w49 t93185; struct w49 t93186; char *t93187; struct w49 t93188; struct w49 t93189; struct w49 t93190; struct w49 t93191; char *t93192; struct w49 t93193; struct w49 t93194; struct w49 t93195; struct w49 t93196; char *t93197; struct w49 t93198; struct w49 t93199; struct w49 t93200; struct w49 t93201; char *t93202; struct w49 t93203; struct w49 t93204; struct w49 t93205; struct w49 t93206; char *t93207; struct w49 t93208; struct w49 t93209; struct w49 t93210; struct w49 t93211; char *t93212; struct w49 t93213; struct w49 t93214; struct w49 t93215; struct w49 t93216; char *t93217; struct w49 t93218; struct w49 t93219; struct w49 t93220; struct w49 t93221; char *t93222; struct w49 t93223; struct w49 t93224; struct w49 t93225; struct w49 t93226; char *t93227; struct w49 t93228; struct w49 t93229; struct w49 t93230; struct w49 t93231; char *t93232; struct w49 t93233; struct w49 t93234; struct w49 t93235; struct w49 t93236; char *t93237; struct w49 t93238; struct w49 t93239; struct w49 t93240; struct w49 t93241; char *t93242; struct w49 t93243; struct w49 t93244; struct w49 t93245; struct w49 t93246; char *t93247; struct w49 t93248; struct w49 t93249; struct w49 t93250; struct w49 t93251; char *t93252; struct w49 t93253; struct w49 t93254; struct w49 t93255; struct w49 t93256; char *t93257; struct w49 t93258; struct w49 t93259; struct w49 t93260; struct w49 t93261; char *t93262; struct w49 t93263; struct w49 t93264; struct w49 t93265; struct w49 t93266; char *t93267; struct w49 t93268; struct w49 t93269; struct w49 t93270; struct w49 t93271; char *t93272; struct w49 t93273; struct w49 t93274; struct w49 t93275; struct w49 t93276; char *t93277; struct w49 t93278; struct w49 t93279; struct w49 t93280; struct w49 t93281; char *t93282; struct w49 t93283; struct w49 t93284; struct w49 t93285; struct w49 t93286; char *t93287; struct w49 t93288; struct w49 t93289; struct w49 t93290; struct w49 t93291; char *t93292; struct w49 t93293; struct w49 t93294; struct w49 t93295; struct w49 t93296; char *t93297; struct w49 t93298; struct w49 t93299; struct w49 t93300; struct w49 t93301; char *t93302; struct w49 t93303; struct w49 t93304; struct w49 t93305; struct w49 t93306; char *t93307; struct w49 t93308; struct w49 t93309; struct w49 t93310; struct w49 t93311; char *t93312; struct w49 t93313; struct w49 t93314; struct w49 t93315; struct w49 t93316; char *t93317; struct w49 t93318; struct w49 t93319; struct w49 t93320; struct w49 t93321; char *t93322; struct w49 t93323; struct w49 t93324; struct w49 t93325; struct w49 t93326; char *t93327; struct w49 t93328; struct w49 t93329; struct w49 t93330; struct w49 t93331; char *t93332; struct w49 t93333; struct w49 t93334; struct w49 t93335; struct w49 t93336; char *t93337; struct w49 t93338; struct w49 t93339; struct w49 t93340; struct w49 t93341; char *t93342; struct w49 t93343; struct w49 t93344; struct w49 t93345; struct w49 t93346; char *t93347; struct w49 t93348; struct w49 t93349; struct w49 t93350; struct w49 t93351; char *t93352; struct w49 t93353; struct w49 t93354; struct w49 t93355; struct w49 t93356; char *t93357; struct w49 t93358; struct w49 t93359; struct w49 t93360; struct w49 t93361; char *t93362; struct w49 t93363; struct w49 t93364; struct w49 t93365; struct w49 t93366; char *t93367; struct w49 t93368; struct w49 t93369; struct w49 t93370; struct w49 t93371; char *t93372; struct w49 t93373; struct w49 t93374; struct w49 t93375; struct w49 t93376; char *t93377; struct w49 t93378; struct w49 t93379; struct w49 t93380; struct w49 t93381; char *t93382; struct w49 t93383; struct w49 t93384; struct w49 t93385; struct w49 t93386; char *t93387; struct w49 t93388; struct w49 t93389; struct w49 t93390; struct w49 t93391; char *t93392; struct w49 t93393; struct w49 t93394; struct w49 t93395; struct w49 t93396; char *t93397; struct w49 t93398; struct w49 t93399; struct w49 t93400; struct w49 t93401; char *t93402; struct w49 t93403; struct w49 t93404; struct w49 t93405; struct w49 t93406; char *t93407; struct w49 t93408; struct w49 t93409; struct w49 t93410; struct w49 t93411; char *t93412; struct w49 t93413; struct w49 t93414; struct w49 t93415; struct w49 t93416; char *t93417; struct w49 t93418; struct w49 t93419; struct w49 t93420; struct w49 t93421; char *t93422; struct w49 t93423; struct w49 t93424; struct w49 t93425; struct w49 t93426; char *t93427; struct w49 t93428; struct w49 t93429; struct w49 t93430; struct w49 t93431; char *t93432; struct w49 t93433; struct w49 t93434; struct w49 t93435; struct w49 t93436; char *t93437; struct w49 t93438; struct w49 t93439; struct w49 t93440; struct w49 t93441; char *t93442; struct w49 t93443; struct w49 t93444; struct w49 t93445; struct w49 t93446; char *t93447; struct w49 t93448; struct w49 t93449; struct w49 t93450; struct w49 t93451; char *t93452; struct w49 t93453; struct w49 t93454; struct w49 t93455; struct w49 t93456; char *t93457; struct w49 t93458; struct w49 t93459; struct w49 t93460; struct w49 t93461; char *t93462; struct w49 t93463; struct w49 t93464; struct w49 t93465; struct w49 t93466; char *t93467; struct w49 t93468; struct w49 t93469; struct w49 t93470; struct w49 t93471; char *t93472; struct w49 t93473; struct w49 t93474; struct w49 t93475; struct w49 t93476; char *t93477; struct w49 t93478; struct w49 t93479; struct w49 t93480; struct w49 t93481; char *t93482; struct w49 t93483; struct w49 t93484; struct w49 t93485; struct w49 t93486; char *t93487; struct w49 t93488; struct w49 t93489; struct w49 t93490; struct w49 t93491; char *t93492; struct w49 t93493; struct w49 t93494; struct w49 t93495; struct w49 t93496; char *t93497; struct w49 t93498; struct w49 t93499; struct w49 t93500; struct w49 t93501; char *t93502; struct w49 t93503; struct w49 t93504; struct w49 t93505; struct w49 t93506; char *t93507; struct w49 t93508; struct w49 t93509; struct w49 t93510; struct w49 t93511; char *t93512; struct w49 t93513; struct w49 t93514; struct w49 t93515; struct w49 t93516; char *t93517; struct w49 t93518; struct w49 t93519; struct w49 t93520; struct w49 t93521; char *t93522; struct w49 t93523; struct w49 t93524; struct w49 t93525; struct w49 t93526; char *t93527; struct w49 t93528; struct w49 t93529; struct w49 t93530; struct w49 t93531; char *t93532; struct w49 t93533; struct w49 t93534; struct w49 t93535; struct w49 t93536; char *t93537; struct w49 t93538; struct w49 t93539; struct w49 t93540; struct w49 t93541; char *t93542; struct w49 t93543; struct w49 t93544; struct w49 t93545; struct w49 t93546; char *t93547; struct w49 t93548; struct w49 t93549; struct w49 t93550; struct w49 t93551; char *t93552; struct w49 t93553; struct w49 t93554; struct w49 t93555; struct w49 t93556; char *t93557; struct w49 t93558; struct w49 t93559; struct w49 t93560; struct w49 t93561; char *t93562; struct w49 t93563; struct w49 t93564; struct w49 t93565; struct w49 t93566; char *t93567; struct w49 t93568; struct w49 t93569; struct w49 t93570; struct w49 t93571; char *t93572; struct w49 t93573; struct w49 t93574; struct w49 t93575; struct w49 t93576; struct w49 t93577; char *t93578; struct structure_type24753 *t93579; struct w49 t93580; struct w49 t93581; struct w49 t93582; struct w49 t93583; struct w49 t93584; struct w49 t93585; struct w49 t93586; struct w49 t93587; struct w49 t93588; struct w49 t93589; struct w49 t93590; struct w49 t93591; struct w49 t93592; struct w49 t93593; struct w49 t93594; struct w49 t93595; struct w49 t93596; struct w49 t93597; struct w49 t93598; struct w49 t93599; struct w49 t93600; struct w49 t93601; struct w49 t93602; struct w49 t93603; struct w49 t93604; struct w49 t93605; struct w49 t93606; struct w49 t93607; struct w49 t93608; struct w49 t93609; struct w49 t93610; struct w49 t93611; struct w49 t93612; struct w49 t93613; struct w49 t93614; struct w49 t93615; struct w49 t93616; struct w49 t93617; struct w49 t93618; struct w49 t93619; struct w49 t93620; struct w49 t93621; struct w49 t93622; struct w49 t93623; struct w49 t93624; struct w49 t93625; struct w49 t93626; struct w49 t93627; struct w49 t93628; struct w49 t93629; struct w49 t93630; struct w49 t93631; struct w49 t93632; struct w49 t93633; struct w49 t93634; struct w49 t93635; struct w49 t93636; struct w49 t93637; struct w49 t93638; struct w49 t93639; struct w49 t93640; struct w49 t93641; struct w49 t93642; struct w49 t93643; struct w29434 t93644; struct w29434 t93645; struct w30215 t93646; struct w49 t93647; struct w49 t93648; struct w49 t93649; struct w49 t93650; struct w49 t93651; struct w49 t93652; struct w49 t93653; struct w49 t93654; struct w49 t93655; struct w49 t93656; struct w49 t93657; struct w49 t93658; struct w49 t93659; struct w49 t93660; struct w49 t93661; struct w49 t93662; struct w49 t93663; struct w49 t93664; struct w49 t93665; struct w49 t93666; struct w49 t93667; struct w49 t93668; struct w49 t93669; struct w49 t93670; struct w49 t93671; struct w49 t93672; struct w49 t93673; struct w49 t93674; struct w49 t93675; struct w49 t93676; struct w49 t93677; struct w49 t93678; struct w49 t93679; struct w49 t93680; struct w49 t93681; struct w49 t93682; struct w49 t93683; struct w49 t93684; char *t93685; struct structure_type24753 *t93686; struct w49 t93687; struct w49 t93688; struct w49 t93689; struct w49 t93690; struct w49 t93691; struct w49 t93692; struct w49 t93693; char *t93694; struct w49 t93695; struct w49 t93696; int t93698; char *t93699; unsigned t93700; struct w49 t93701; struct w49 t93702; char *t93703; struct w49 t93704; char *t93706; char *t93707; char *t93708; struct w49 t93709; unsigned t93710; struct w49 t93711; struct w49 t93712; char *t93713; struct w49 t93714; struct w49 t93715; struct w49 t93716; char *t93717; char *t93718; char *t93719; struct w49 t93720; struct w49 t93721; char *t93722; struct w49 t93723; struct p18678 *t93724; char *t93725; char *t93726; struct structure_type24753 *t93727; char *t93728; char *t93729; struct structure_type24753 *t93730; struct w49 t93731; struct structure_type24753 *t93732; struct w49 t93733; struct w12224 t93734; struct w49 t93735; struct structure_type24753 *t93736; struct structure_type24753 *t93737; struct structure_type24753 *t93738; struct structure_type24753 *t93739; struct w49 t93740; struct w49 t93741; int t93744; int t93745; int t93746; int t93747; char *t93748; int t93749; struct w49 t93750; struct structure_type24753 *t93751; struct w49 t93752; struct w49 t93753; struct nonheaded_vector_type24736 t93754; int t93756; float t93757; float t93758; float t93759; float t93760; float t93761; float t93762; float t93763; float t93764; float t93765; float t93766; float t93767; float t93768; float t93769; float t93770; float t93771; float t93772; int t93773; int t93774; int t93775; struct structure_type24753 *t94477; struct structure_type24753 *t94478; char *t94479; struct structure_type24757 *t94480; unsigned t94481; unsigned t94482; unsigned t94483; unsigned t94484; unsigned t94485; unsigned t94486; unsigned t94487; struct structure_type24753 *t94488; struct structure_type24753 *t94489; char *t94490; struct structure_type24757 *t94491; unsigned t94492; unsigned t94493; unsigned t94494; unsigned t94495; unsigned t94496; unsigned t94497; unsigned t94498; struct structure_type24753 *t94499; struct structure_type24753 *t94500; char *t94501; struct structure_type24757 *t94502; unsigned t94503; unsigned t94504; unsigned t94505; unsigned t94506; unsigned t94507; unsigned t94508; unsigned t94509; struct structure_type24753 *t94510; struct structure_type24753 *t94511; char *t94512; struct structure_type24757 *t94513; unsigned t94514; unsigned t94515; unsigned t94516; unsigned t94517; unsigned t94518; unsigned t94519; unsigned t94520; struct structure_type24753 *t94521; struct structure_type24753 *t94522; char *t94523; struct structure_type24757 *t94524; unsigned t94525; unsigned t94526; unsigned t94527; unsigned t94528; unsigned t94529; unsigned t94530; unsigned t94531; struct structure_type24753 *t94532; struct structure_type24753 *t94533; char *t94534; struct structure_type24757 *t94535; unsigned t94536; unsigned t94537; unsigned t94538; unsigned t94539; unsigned t94540; unsigned t94541; unsigned t94542; struct structure_type24753 *t94543; struct structure_type24753 *t94544; char *t94545; struct structure_type24757 *t94546; unsigned t94547; unsigned t94548; unsigned t94549; unsigned t94550; unsigned t94551; unsigned t94552; unsigned t94553; struct structure_type24753 *t94554; struct structure_type24753 *t94555; char *t94556; struct structure_type24757 *t94557; unsigned t94558; unsigned t94559; unsigned t94560; unsigned t94561; unsigned t94562; unsigned t94563; unsigned t94564; struct structure_type24753 *t94565; struct structure_type24753 *t94566; char *t94567; struct structure_type24757 *t94568; unsigned t94569; unsigned t94570; unsigned t94571; unsigned t94572; unsigned t94573; unsigned t94574; unsigned t94575; struct structure_type24753 *t94576; struct structure_type24753 *t94577; char *t94578; struct structure_type24757 *t94579; unsigned t94580; unsigned t94581; unsigned t94582; unsigned t94583; unsigned t94584; unsigned t94585; unsigned t94586; struct structure_type24753 *t94587; struct structure_type24753 *t94588; char *t94589; struct structure_type24757 *t94590; unsigned t94591; unsigned t94592; unsigned t94593; unsigned t94594; unsigned t94595; unsigned t94596; unsigned t94597; struct structure_type24753 *t94598; struct structure_type24753 *t94599; char *t94600; struct structure_type24757 *t94601; unsigned t94602; unsigned t94603; unsigned t94604; unsigned t94605; unsigned t94606; unsigned t94607; unsigned t94608; struct structure_type24753 *t94609; struct structure_type24753 *t94610; char *t94611; struct structure_type24757 *t94612; unsigned t94613; unsigned t94614; unsigned t94615; unsigned t94616; unsigned t94617; unsigned t94618; unsigned t94619; struct structure_type24753 *t94620; struct structure_type24753 *t94621; char *t94622; struct structure_type24757 *t94623; unsigned t94624; unsigned t94625; unsigned t94626; unsigned t94627; unsigned t94628; unsigned t94629; unsigned t94630; struct structure_type24753 *t94631; struct structure_type24753 *t94632; char *t94633; struct structure_type24757 *t94634; unsigned t94635; unsigned t94636; unsigned t94637; unsigned t94638; unsigned t94639; unsigned t94640; unsigned t94641; struct structure_type24753 *t94642; struct structure_type24753 *t94643; char *t94644; struct structure_type24757 *t94645; unsigned t94646; unsigned t94647; unsigned t94648; unsigned t94649; unsigned t94650; unsigned t94651; unsigned t94652; struct structure_type24753 *t94653; struct structure_type24753 *t94654; char *t94655; struct structure_type24757 *t94656; unsigned t94657; unsigned t94658; unsigned t94659; unsigned t94660; unsigned t94661; unsigned t94662; unsigned t94663; struct structure_type24753 *t94664; struct structure_type24753 *t94665; char *t94666; struct structure_type24757 *t94667; unsigned t94668; unsigned t94669; unsigned t94670; unsigned t94671; unsigned t94672; unsigned t94673; unsigned t94674; struct structure_type24753 *t94675; struct structure_type24753 *t94676; char *t94677; struct structure_type24757 *t94678; unsigned t94679; unsigned t94680; unsigned t94681; unsigned t94682; unsigned t94683; unsigned t94684; unsigned t94685; struct structure_type24753 *t94686; struct structure_type24753 *t94687; char *t94688; struct structure_type24757 *t94689; unsigned t94690; unsigned t94691; unsigned t94692; unsigned t94693; unsigned t94694; unsigned t94695; unsigned t94696; struct structure_type24753 *t94697; struct structure_type24753 *t94698; char *t94699; struct structure_type24757 *t94700; unsigned t94701; unsigned t94702; unsigned t94703; unsigned t94704; unsigned t94705; unsigned t94706; unsigned t94707; struct structure_type24753 *t94708; struct structure_type24753 *t94709; char *t94710; struct structure_type24757 *t94711; unsigned t94712; unsigned t94713; unsigned t94714; unsigned t94715; unsigned t94716; unsigned t94717; unsigned t94718; struct structure_type24753 *t94719; struct structure_type24753 *t94720; char *t94721; struct structure_type24757 *t94722; unsigned t94723; unsigned t94724; unsigned t94725; unsigned t94726; unsigned t94727; unsigned t94728; unsigned t94729; struct structure_type24753 *t94730; struct structure_type24753 *t94731; char *t94732; struct structure_type24757 *t94733; unsigned t94734; unsigned t94735; unsigned t94736; unsigned t94737; unsigned t94738; unsigned t94739; unsigned t94740; struct structure_type24753 *t94741; struct structure_type24753 *t94742; char *t94743; struct structure_type24757 *t94744; unsigned t94745; unsigned t94746; unsigned t94747; unsigned t94748; unsigned t94749; unsigned t94750; unsigned t94751; struct structure_type24753 *t94752; struct structure_type24753 *t94753; char *t94754; struct structure_type24757 *t94755; unsigned t94756; unsigned t94757; unsigned t94758; unsigned t94759; unsigned t94760; unsigned t94761; unsigned t94762; struct structure_type24753 *t94763; struct structure_type24753 *t94764; char *t94765; struct structure_type24757 *t94766; unsigned t94767; unsigned t94768; unsigned t94769; unsigned t94770; unsigned t94771; unsigned t94772; unsigned t94773; struct structure_type24753 *t94774; struct structure_type24753 *t94775; char *t94776; struct structure_type24757 *t94777; unsigned t94778; unsigned t94779; unsigned t94780; unsigned t94781; unsigned t94782; unsigned t94783; unsigned t94784; struct structure_type24753 *t94785; struct structure_type24753 *t94786; char *t94787; struct structure_type24757 *t94788; unsigned t94789; unsigned t94790; unsigned t94791; unsigned t94792; unsigned t94793; unsigned t94794; unsigned t94795; struct structure_type24753 *t94796; struct structure_type24753 *t94797; char *t94798; struct structure_type24757 *t94799; unsigned t94800; unsigned t94801; unsigned t94802; unsigned t94803; unsigned t94804; unsigned t94805; unsigned t94806; struct structure_type24753 *t94807; struct structure_type24753 *t94808; char *t94809; struct structure_type24757 *t94810; unsigned t94811; unsigned t94812; unsigned t94813; unsigned t94814; unsigned t94815; unsigned t94816; unsigned t94817; struct structure_type24753 *t94818; struct structure_type24753 *t94819; char *t94820; struct structure_type24757 *t94821; unsigned t94822; unsigned t94823; unsigned t94824; unsigned t94825; unsigned t94826; unsigned t94827; unsigned t94828; struct structure_type24753 *t94829; struct structure_type24753 *t94830; char *t94831; struct structure_type24757 *t94832; unsigned t94833; unsigned t94834; unsigned t94835; unsigned t94836; unsigned t94837; unsigned t94838; unsigned t94839; struct structure_type24753 *t94840; struct structure_type24753 *t94841; char *t94842; struct structure_type24757 *t94843; unsigned t94844; unsigned t94845; unsigned t94846; unsigned t94847; unsigned t94848; unsigned t94849; unsigned t94850; struct structure_type24753 *t94851; struct structure_type24753 *t94852; char *t94853; struct structure_type24757 *t94854; unsigned t94855; unsigned t94856; unsigned t94857; unsigned t94858; unsigned t94859; unsigned t94860; unsigned t94861; struct structure_type24753 *t94862; struct structure_type24753 *t94863; char *t94864; struct structure_type24757 *t94865; unsigned t94866; unsigned t94867; unsigned t94868; unsigned t94869; unsigned t94870; unsigned t94871; unsigned t94872; struct structure_type24753 *t94873; struct structure_type24753 *t94874; char *t94875; struct structure_type24757 *t94876; unsigned t94877; unsigned t94878; unsigned t94879; unsigned t94880; unsigned t94881; unsigned t94882; unsigned t94883; struct structure_type24753 *t94884; struct structure_type24753 *t94885; char *t94886; struct structure_type24757 *t94887; unsigned t94888; unsigned t94889; unsigned t94890; unsigned t94891; unsigned t94892; unsigned t94893; unsigned t94894; struct structure_type24753 *t94895; struct structure_type24753 *t94896; char *t94897; struct structure_type24757 *t94898; unsigned t94899; unsigned t94900; unsigned t94901; unsigned t94902; unsigned t94903; unsigned t94904; unsigned t94905; struct structure_type24753 *t94906; struct structure_type24753 *t94907; char *t94908; struct structure_type24757 *t94909; unsigned t94910; unsigned t94911; unsigned t94912; unsigned t94913; unsigned t94914; unsigned t94915; unsigned t94916; struct structure_type24753 *t94917; struct structure_type24753 *t94918; char *t94919; struct structure_type24757 *t94920; unsigned t94921; unsigned t94922; unsigned t94923; unsigned t94924; unsigned t94925; unsigned t94926; unsigned t94927; struct structure_type24753 *t94928; struct structure_type24753 *t94929; char *t94930; struct structure_type24757 *t94931; unsigned t94932; unsigned t94933; unsigned t94934; unsigned t94935; unsigned t94936; unsigned t94937; unsigned t94938; struct structure_type24753 *t94939; struct structure_type24753 *t94940; char *t94941; struct structure_type24757 *t94942; unsigned t94943; unsigned t94944; unsigned t94945; unsigned t94946; unsigned t94947; unsigned t94948; unsigned t94949; struct structure_type24753 *t94950; struct structure_type24753 *t94951; char *t94952; struct structure_type24757 *t94953; unsigned t94954; unsigned t94955; unsigned t94956; unsigned t94957; unsigned t94958; unsigned t94959; unsigned t94960; struct structure_type24753 *t94961; struct structure_type24753 *t94962; char *t94963; struct structure_type24757 *t94964; unsigned t94965; unsigned t94966; unsigned t94967; unsigned t94968; unsigned t94969; unsigned t94970; unsigned t94971; struct structure_type24753 *t94972; struct structure_type24753 *t94973; char *t94974; struct structure_type24757 *t94975; unsigned t94976; unsigned t94977; unsigned t94978; unsigned t94979; unsigned t94980; unsigned t94981; unsigned t94982; struct structure_type24753 *t94983; struct structure_type24753 *t94984; char *t94985; struct structure_type24757 *t94986; unsigned t94987; unsigned t94988; unsigned t94989; unsigned t94990; unsigned t94991; unsigned t94992; unsigned t94993; struct structure_type24753 *t94994; struct structure_type24753 *t94995; char *t94996; struct structure_type24757 *t94997; unsigned t94998; unsigned t94999; unsigned t95000; unsigned t95001; unsigned t95002; unsigned t95003; unsigned t95004; struct structure_type24753 *t95005; struct structure_type24753 *t95006; char *t95007; struct structure_type24757 *t95008; unsigned t95009; unsigned t95010; unsigned t95011; unsigned t95012; unsigned t95013; unsigned t95014; unsigned t95015; struct structure_type24753 *t95016; struct structure_type24753 *t95017; char *t95018; struct structure_type24757 *t95019; unsigned t95020; unsigned t95021; unsigned t95022; unsigned t95023; unsigned t95024; unsigned t95025; unsigned t95026; struct structure_type24753 *t95027; struct structure_type24753 *t95028; char *t95029; struct structure_type24757 *t95030; unsigned t95031; unsigned t95032; unsigned t95033; unsigned t95034; unsigned t95035; unsigned t95036; unsigned t95037; struct structure_type24753 *t95038; struct structure_type24753 *t95039; char *t95040; struct structure_type24757 *t95041; unsigned t95042; unsigned t95043; unsigned t95044; unsigned t95045; unsigned t95046; unsigned t95047; unsigned t95048; struct structure_type24753 *t95049; struct structure_type24753 *t95050; char *t95051; struct structure_type24757 *t95052; unsigned t95053; unsigned t95054; unsigned t95055; unsigned t95056; unsigned t95057; unsigned t95058; unsigned t95059; struct structure_type24753 *t95060; struct structure_type24753 *t95061; char *t95062; struct structure_type24757 *t95063; unsigned t95064; unsigned t95065; unsigned t95066; unsigned t95067; unsigned t95068; unsigned t95069; unsigned t95070; struct structure_type24753 *t95071; struct structure_type24753 *t95072; char *t95073; struct structure_type24757 *t95074; unsigned t95075; unsigned t95076; unsigned t95077; unsigned t95078; unsigned t95079; unsigned t95080; unsigned t95081; struct structure_type24753 *t95082; struct structure_type24753 *t95083; char *t95084; struct structure_type24757 *t95085; unsigned t95086; unsigned t95087; unsigned t95088; unsigned t95089; unsigned t95090; unsigned t95091; unsigned t95092; struct structure_type24753 *t95093; struct structure_type24753 *t95094; char *t95095; struct structure_type24757 *t95096; unsigned t95097; unsigned t95098; unsigned t95099; unsigned t95100; unsigned t95101; unsigned t95102; unsigned t95103; struct structure_type24753 *t95104; struct structure_type24753 *t95105; char *t95106; struct structure_type24757 *t95107; unsigned t95108; unsigned t95109; unsigned t95110; unsigned t95111; unsigned t95112; unsigned t95113; unsigned t95114; struct structure_type24753 *t95115; struct structure_type24753 *t95116; char *t95117; struct structure_type24757 *t95118; unsigned t95119; unsigned t95120; unsigned t95121; unsigned t95122; unsigned t95123; unsigned t95124; unsigned t95125; struct structure_type24753 *t95126; struct structure_type24753 *t95127; char *t95128; struct structure_type24757 *t95129; unsigned t95130; unsigned t95131; unsigned t95132; unsigned t95133; unsigned t95134; unsigned t95135; unsigned t95136; struct structure_type24753 *t95137; struct structure_type24753 *t95138; char *t95139; struct structure_type24757 *t95140; unsigned t95141; unsigned t95142; unsigned t95143; unsigned t95144; unsigned t95145; unsigned t95146; unsigned t95147; struct structure_type24753 *t95148; struct structure_type24753 *t95149; char *t95150; struct structure_type24757 *t95151; unsigned t95152; unsigned t95153; unsigned t95154; unsigned t95155; unsigned t95156; unsigned t95157; unsigned t95158; struct structure_type24753 *t95159; struct structure_type24753 *t95160; char *t95161; struct structure_type24757 *t95162; unsigned t95163; unsigned t95164; unsigned t95165; unsigned t95166; unsigned t95167; unsigned t95168; unsigned t95169; struct structure_type24753 *t95170; struct structure_type24753 *t95171; char *t95172; struct structure_type24757 *t95173; unsigned t95174; unsigned t95175; unsigned t95176; unsigned t95177; unsigned t95178; unsigned t95179; unsigned t95180; struct structure_type24753 *t95181; struct structure_type24753 *t95182; char *t95183; struct structure_type24757 *t95184; unsigned t95185; unsigned t95186; unsigned t95187; unsigned t95188; unsigned t95189; unsigned t95190; unsigned t95191; struct structure_type24753 *t95192; struct structure_type24753 *t95193; char *t95194; struct structure_type24757 *t95195; unsigned t95196; unsigned t95197; unsigned t95198; unsigned t95199; unsigned t95200; unsigned t95201; unsigned t95202; struct structure_type24753 *t95203; struct structure_type24753 *t95204; char *t95205; struct structure_type24757 *t95206; unsigned t95207; unsigned t95208; unsigned t95209; unsigned t95210; unsigned t95211; unsigned t95212; unsigned t95213; struct structure_type24753 *t95214; struct structure_type24753 *t95215; char *t95216; struct structure_type24757 *t95217; unsigned t95218; unsigned t95219; unsigned t95220; unsigned t95221; unsigned t95222; unsigned t95223; unsigned t95224; struct structure_type24753 *t95225; struct structure_type24753 *t95226; char *t95227; struct structure_type24757 *t95228; unsigned t95229; unsigned t95230; unsigned t95231; unsigned t95232; unsigned t95233; unsigned t95234; unsigned t95235; struct structure_type24753 *t95236; struct structure_type24753 *t95237; char *t95238; struct structure_type24757 *t95239; unsigned t95240; unsigned t95241; unsigned t95242; unsigned t95243; unsigned t95244; unsigned t95245; unsigned t95246; struct structure_type24753 *t95247; struct structure_type24753 *t95248; char *t95249; struct structure_type24757 *t95250; unsigned t95251; unsigned t95252; unsigned t95253; unsigned t95254; unsigned t95255; unsigned t95256; unsigned t95257; struct structure_type24753 *t95258; struct structure_type24753 *t95259; char *t95260; struct structure_type24757 *t95261; unsigned t95262; unsigned t95263; unsigned t95264; unsigned t95265; unsigned t95266; unsigned t95267; unsigned t95268; struct structure_type24753 *t95269; struct structure_type24753 *t95270; char *t95271; struct structure_type24757 *t95272; unsigned t95273; unsigned t95274; unsigned t95275; unsigned t95276; unsigned t95277; unsigned t95278; unsigned t95279; struct structure_type24753 *t95280; struct structure_type24753 *t95281; char *t95282; struct structure_type24757 *t95283; unsigned t95284; unsigned t95285; unsigned t95286; unsigned t95287; unsigned t95288; unsigned t95289; unsigned t95290; struct structure_type24753 *t95291; struct structure_type24753 *t95292; char *t95293; struct structure_type24757 *t95294; unsigned t95295; unsigned t95296; unsigned t95297; unsigned t95298; unsigned t95299; unsigned t95300; unsigned t95301; struct structure_type24753 *t95302; struct structure_type24753 *t95303; char *t95304; struct structure_type24757 *t95305; unsigned t95306; unsigned t95307; unsigned t95308; unsigned t95309; unsigned t95310; unsigned t95311; unsigned t95312; struct structure_type24753 *t95313; struct structure_type24753 *t95314; char *t95315; struct structure_type24757 *t95316; unsigned t95317; unsigned t95318; unsigned t95319; unsigned t95320; unsigned t95321; unsigned t95322; unsigned t95323; struct structure_type24753 *t95324; struct structure_type24753 *t95325; char *t95326; struct structure_type24757 *t95327; unsigned t95328; unsigned t95329; unsigned t95330; unsigned t95331; unsigned t95332; unsigned t95333; unsigned t95334; struct structure_type24753 *t95335; struct structure_type24753 *t95336; char *t95337; struct structure_type24757 *t95338; unsigned t95339; unsigned t95340; unsigned t95341; unsigned t95342; unsigned t95343; unsigned t95344; unsigned t95345; struct structure_type24753 *t95346; struct structure_type24753 *t95347; char *t95348; struct structure_type24757 *t95349; unsigned t95350; unsigned t95351; unsigned t95352; unsigned t95353; unsigned t95354; unsigned t95355; unsigned t95356; struct structure_type24753 *t95357; struct structure_type24753 *t95358; char *t95359; struct structure_type24757 *t95360; unsigned t95361; unsigned t95362; unsigned t95363; unsigned t95364; unsigned t95365; unsigned t95366; unsigned t95367; struct structure_type24753 *t95368; struct structure_type24753 *t95369; char *t95370; struct structure_type24757 *t95371; unsigned t95372; unsigned t95373; unsigned t95374; unsigned t95375; unsigned t95376; unsigned t95377; unsigned t95378; struct structure_type24753 *t95379; struct structure_type24753 *t95380; char *t95381; struct structure_type24757 *t95382; unsigned t95383; unsigned t95384; unsigned t95385; unsigned t95386; unsigned t95387; unsigned t95388; unsigned t95389; struct structure_type24753 *t95390; struct structure_type24753 *t95391; char *t95392; struct structure_type24757 *t95393; unsigned t95394; unsigned t95395; unsigned t95396; unsigned t95397; unsigned t95398; unsigned t95399; unsigned t95400; struct structure_type24753 *t95401; struct structure_type24753 *t95402; char *t95403; struct structure_type24757 *t95404; unsigned t95405; unsigned t95406; unsigned t95407; unsigned t95408; unsigned t95409; unsigned t95410; unsigned t95411; struct structure_type24753 *t95412; struct structure_type24753 *t95413; char *t95414; struct structure_type24757 *t95415; unsigned t95416; unsigned t95417; unsigned t95418; unsigned t95419; unsigned t95420; unsigned t95421; unsigned t95422; struct structure_type24753 *t95423; struct structure_type24753 *t95424; char *t95425; struct structure_type24757 *t95426; unsigned t95427; unsigned t95428; unsigned t95429; unsigned t95430; unsigned t95431; unsigned t95432; unsigned t95433; struct structure_type24753 *t95434; struct structure_type24753 *t95435; char *t95436; struct structure_type24757 *t95437; unsigned t95438; unsigned t95439; unsigned t95440; unsigned t95441; unsigned t95442; unsigned t95443; unsigned t95444; struct structure_type24753 *t95445; struct structure_type24753 *t95446; char *t95447; struct structure_type24757 *t95448; unsigned t95449; unsigned t95450; unsigned t95451; unsigned t95452; unsigned t95453; unsigned t95454; unsigned t95455; struct structure_type24753 *t95456; struct structure_type24753 *t95457; char *t95458; struct structure_type24757 *t95459; unsigned t95460; unsigned t95461; unsigned t95462; unsigned t95463; unsigned t95464; unsigned t95465; unsigned t95466; struct structure_type24753 *t95467; struct structure_type24753 *t95468; char *t95469; struct structure_type24757 *t95470; unsigned t95471; unsigned t95472; unsigned t95473; unsigned t95474; unsigned t95475; unsigned t95476; unsigned t95477; struct structure_type24753 *t95478; struct structure_type24753 *t95479; char *t95480; struct structure_type24757 *t95481; unsigned t95482; unsigned t95483; unsigned t95484; unsigned t95485; unsigned t95486; unsigned t95487; unsigned t95488; struct structure_type24753 *t95489; struct structure_type24753 *t95490; char *t95491; struct structure_type24757 *t95492; unsigned t95493; unsigned t95494; unsigned t95495; unsigned t95496; unsigned t95497; unsigned t95498; unsigned t95499; struct structure_type24753 *t95500; struct structure_type24753 *t95501; char *t95502; struct structure_type24757 *t95503; unsigned t95504; unsigned t95505; unsigned t95506; unsigned t95507; unsigned t95508; unsigned t95509; unsigned t95510; struct structure_type24753 *t95511; struct structure_type24753 *t95512; char *t95513; struct structure_type24757 *t95514; unsigned t95515; unsigned t95516; unsigned t95517; unsigned t95518; unsigned t95519; unsigned t95520; unsigned t95521; struct structure_type24753 *t95522; struct structure_type24753 *t95523; char *t95524; struct structure_type24757 *t95525; unsigned t95526; unsigned t95527; unsigned t95528; unsigned t95529; unsigned t95530; unsigned t95531; unsigned t95532; struct structure_type24753 *t95533; struct structure_type24753 *t95534; char *t95535; struct structure_type24757 *t95536; unsigned t95537; unsigned t95538; unsigned t95539; unsigned t95540; unsigned t95541; unsigned t95542; unsigned t95543; struct structure_type24753 *t95544; struct structure_type24753 *t95545; char *t95546; struct structure_type24757 *t95547; unsigned t95548; unsigned t95549; unsigned t95550; unsigned t95551; unsigned t95552; unsigned t95553; unsigned t95554; struct structure_type24753 *t95555; struct structure_type24753 *t95556; struct structure_type24753 *t95557; struct structure_type24753 *t95558; struct structure_type24753 *t95559; struct structure_type24753 *t95560; struct structure_type24753 *t95561; struct structure_type24753 *t95562; struct structure_type24753 *t95563; struct structure_type24753 *t95564; struct structure_type24753 *t95565; struct structure_type24753 *t95566; struct structure_type24753 *t95567; struct w49 t95568; struct w49 t95569; struct w49 t95570; struct w49 t95571; struct w49 t95572; struct w49 t95573; struct w49 t95574; struct w49 t95575; struct w49 t95576; struct w49 t95577; struct w49 t95578; struct w49 t95579; char *t95580; struct w49 t95581; char *t95582; struct w49 t95583; char *t95584; struct w49 t95585; char *t95586; struct w49 t95587; char *t95588; struct w49 t95589; char *t95590; struct w49 t95591; char *t95592; struct w49 t95593; char *t95594; struct w49 t95595; char *t95596; struct w49 t95597; char *t95598; struct w49 t95599; char *t95600; struct w49 t95601; char *t95602; struct w49 t95603; char *t95604; struct w49 t95605; struct structure_type24753 *t102816; struct structure_type24753 *t102817; struct w49 t102818; char *t102819; struct w49 t102820; char *t102821; struct w49 t102822; struct structure_type24753 *t102823; struct structure_type24753 *t102824; struct structure_type24753 *t102825; struct w49 t102826; struct w49 t102827; char *t102828; struct w49 t102829; char *t102830; struct w49 t102831; char *t102832; struct w49 t102833; struct structure_type24753 *t102834; struct structure_type24753 *t102835; struct structure_type24753 *t102836; struct structure_type24753 *t102837; struct structure_type24753 *t102838; struct structure_type24753 *t102839; struct structure_type24753 *t102840; struct structure_type24753 *t102841; struct structure_type24753 *t102842; struct structure_type24753 *t102843; struct structure_type24753 *t102844; struct structure_type24753 *t102845; struct structure_type24753 *t102846; struct structure_type24753 *t102847; struct structure_type24753 *t102848; struct structure_type24753 *t102849; struct structure_type24753 *t102850; struct structure_type24753 *t102851; struct structure_type24753 *t102852; struct structure_type24753 *t102853; struct structure_type24753 *t102854; struct structure_type24753 *t102855; struct structure_type24753 *t102856; struct w49 t102857; struct w49 t102858; struct w49 t102859; struct w49 t102860; struct w49 t102861; struct w49 t102862; struct w49 t102863; struct w49 t102864; struct w49 t102865; struct w49 t102866; struct w49 t102867; struct w49 t102868; struct w49 t102869; struct w49 t102870; struct w49 t102871; struct w49 t102872; struct w49 t102873; struct w49 t102874; struct w49 t102875; struct w49 t102876; struct w49 t102877; struct w49 t102878; char *t102879; struct w49 t102880; char *t102881; struct w49 t102882; char *t102883; struct w49 t102884; char *t102885; struct w49 t102886; char *t102887; struct w49 t102888; char *t102889; struct w49 t102890; char *t102891; struct w49 t102892; char *t102893; struct w49 t102894; char *t102895; struct w49 t102896; char *t102897; struct w49 t102898; char *t102899; struct w49 t102900; char *t102901; struct w49 t102902; char *t102903; struct w49 t102904; char *t102905; struct w49 t102906; char *t102907; struct w49 t102908; char *t102909; struct w49 t102910; char *t102911; struct w49 t102912; char *t102913; struct w49 t102914; char *t102915; struct w49 t102916; char *t102917; struct w49 t102918; char *t102919; struct w49 t102920; char *t102921; struct w49 t102922; char *t102923; struct w49 t102924; struct structure_type24753 *t102925; char *t102926; struct w49 t102927; struct headed_vector_type24751 *t102928; struct headed_vector_type24751 *t102930; struct headed_vector_type24751 *t102932; struct headed_vector_type24746 *t102938; FILE *t102942; FILE *t102943; struct headed_vector_type24746 *t102944; int t102945; /* x265715 */ /* x265280 */ /* x265279 */ /* x265282 */ /* x265281 */ /* x265284 */ /* x265283 */ /* x265286 */ /* x265285 */ /* x265288 */ /* x265287 */ /* x265290 */ /* x265289 */ /* x265292 */ /* x265291 */ /* x265294 */ /* x265293 */ /* x265296 */ /* x265295 */ /* x265298 */ /* x265297 */ /* x265300 */ /* x265299 */ /* x265302 */ /* x265301 */ /* x265304 */ /* x265303 */ /* x265306 */ /* x265305 */ /* x265308 */ /* x265307 */ /* x265310 */ /* x265309 */ /* x265312 */ /* x265311 */ /* x265314 */ /* x265313 */ /* x265316 */ /* x265315 */ /* x265318 */ /* x265317 */ /* x265320 */ /* x265319 */ /* x265322 */ /* x265321 */ /* x265324 */ /* x265323 */ /* x265326 */ /* x265325 */ /* x265328 */ /* x265327 */ /* x265330 */ /* x265329 */ /* x265332 */ /* x265331 */ /* x265334 */ /* x265333 */ /* x265336 */ /* x265335 */ /* x265338 */ /* x265337 */ /* x265340 */ /* x265339 */ /* x265342 */ /* x265341 */ /* x265344 */ /* x265343 */ /* x265346 */ /* x265345 */ /* x265348 */ /* x265347 */ /* x265350 */ /* x265349 */ /* x265352 */ /* x265351 */ /* x265354 */ /* x265353 */ /* x265356 */ /* x265355 */ /* x265358 */ /* x265357 */ /* x265360 */ /* x265359 */ /* x265362 */ /* x265361 */ /* x265364 */ /* x265363 */ /* x265366 */ /* x265365 */ /* x265368 */ /* x265367 */ /* x265370 */ /* x265369 */ /* x265372 */ /* x265371 */ /* x265374 */ /* x265373 */ /* x265376 */ /* x265375 */ /* x265378 */ /* x265377 */ /* x265380 */ /* x265379 */ /* x265382 */ /* x265381 */ /* x265384 */ /* x265383 */ /* x265386 */ /* x265385 */ /* x265388 */ /* x265387 */ /* x265390 */ /* x265389 */ /* x265392 */ /* x265391 */ /* x265394 */ /* x265393 */ /* x265396 */ /* x265395 */ /* x265398 */ /* x265397 */ /* x265400 */ /* x265399 */ /* x265402 */ /* x265401 */ /* x265404 */ /* x265403 */ /* x265406 */ /* x265405 */ /* x265408 */ /* x265407 */ /* x265410 */ /* x265409 */ /* x265412 */ /* x265411 */ /* x265414 */ /* x265413 */ /* x265416 */ /* x265415 */ /* x265418 */ /* x265417 */ /* x265420 */ /* x265419 */ /* x265422 */ /* x265421 */ /* x265424 */ /* x265423 */ /* x265426 */ /* x265425 */ /* x265428 */ /* x265427 */ /* x265430 */ /* x265429 */ /* x265432 */ /* x265431 */ /* x265434 */ /* x265433 */ /* x265436 */ /* x265435 */ /* x265438 */ /* x265437 */ /* x265440 */ /* x265439 */ /* x265442 */ /* x265441 */ /* x265444 */ /* x265443 */ /* x265446 */ /* x265445 */ /* x265448 */ /* x265447 */ /* x265450 */ /* x265449 */ /* x265452 */ /* x265451 */ /* x265454 */ /* x265453 */ /* x265456 */ /* x265455 */ /* x265458 */ /* x265457 */ /* x265460 */ /* x265459 */ /* x265462 */ /* x265461 */ /* x265464 */ /* x265463 */ /* x265466 */ /* x265465 */ /* x265468 */ /* x265467 */ /* x265470 */ /* x265469 */ /* x265472 */ /* x265471 */ /* x265474 */ /* x265473 */ /* x265476 */ /* x265475 */ /* x265478 */ /* x265477 */ /* x265480 */ /* x265479 */ /* x265482 */ /* x265481 */ /* x265484 */ /* x265483 */ /* x265486 */ /* x265485 */ /* x265488 */ /* x265487 */ /* x265490 */ /* x265489 */ /* x265492 */ /* x265491 */ /* x265494 */ /* x265493 */ /* x265496 */ /* x265495 */ /* x265498 */ /* x265497 */ /* x265500 */ /* x265499 */ /* x265502 */ /* x265501 */ /* x265504 */ /* x265503 */ /* x265506 */ /* x265505 */ /* x265508 */ /* x265507 */ /* x265510 */ /* x265509 */ /* x265512 */ /* x265511 */ /* x265514 */ /* x265513 */ /* x265516 */ /* x265515 */ /* x265518 */ /* x265517 */ /* x265520 */ /* x265519 */ /* x265522 */ /* x265521 */ /* x265524 */ /* x265523 */ /* x265526 */ /* x265525 */ /* x265528 */ /* x265527 */ /* x265530 */ /* x265529 */ /* x265532 */ /* x265531 */ /* x265534 */ /* x265533 */ /* x265536 */ /* x265535 */ /* x265538 */ /* x265537 */ /* x265540 */ /* x265539 */ /* x265542 */ /* x265541 */ /* x265544 */ /* x265543 */ /* x265546 */ /* x265545 */ /* x265548 */ /* x265547 */ /* x265550 */ /* x265549 */ /* x265552 */ /* x265551 */ /* x265554 */ /* x265553 */ /* x265556 */ /* x265555 */ /* x265558 */ /* x265557 */ /* x265560 */ /* x265559 */ /* x265562 */ /* x265561 */ /* x265564 */ /* x265563 */ /* x265566 */ /* x265565 */ /* x265568 */ /* x265567 */ /* x265570 */ /* x265569 */ /* x265572 */ /* x265571 */ /* x265574 */ /* x265573 */ /* x265576 */ /* x265575 */ /* x265578 */ /* x265577 */ /* x265580 */ /* x265579 */ /* x265582 */ /* x265581 */ /* x265584 */ /* x265583 */ /* x265586 */ /* x265585 */ /* x265588 */ /* x265587 */ /* x265590 */ /* x265589 */ /* x265592 */ /* x265591 */ /* x265594 */ /* x265593 */ /* x265596 */ /* x265595 */ /* x265598 */ /* x265597 */ /* x265600 */ /* x265599 */ /* x265602 */ /* x265601 */ /* x265604 */ /* x265603 */ /* x265606 */ /* x265605 */ /* x265608 */ /* x265607 */ /* x265610 */ /* x265609 */ /* x265612 */ /* x265611 */ /* x265614 */ /* x265613 */ /* x265616 */ /* x265615 */ /* x265618 */ /* x265617 */ /* x265620 */ /* x265619 */ /* x265622 */ /* x265621 */ /* x265624 */ /* x265623 */ /* x265626 */ /* x265625 */ /* x265628 */ /* x265627 */ /* x265630 */ /* x265629 */ /* x265632 */ /* x265631 */ /* x265634 */ /* x265633 */ /* x265636 */ /* x265635 */ /* x265638 */ /* x265637 */ /* x265640 */ /* x265639 */ /* x265642 */ /* x265641 */ /* x265644 */ /* x265643 */ /* x265646 */ /* x265645 */ /* x265648 */ /* x265647 */ /* x265650 */ /* x265649 */ /* x265652 */ /* x265651 */ /* x265654 */ /* x265653 */ /* x265656 */ /* x265655 */ /* x265658 */ /* x265657 */ /* x265660 */ /* x265659 */ /* x265662 */ /* x265661 */ /* x265664 */ /* x265663 */ /* x265666 */ /* x265665 */ /* x265668 */ /* x265667 */ /* x265670 */ /* x265669 */ /* x265672 */ /* x265671 */ /* x265674 */ /* x265673 */ /* x265676 */ /* x265675 */ /* x265678 */ /* x265677 */ /* x265680 */ /* x265679 */ /* x265682 */ /* x265681 */ /* x265684 */ /* x265683 */ /* x265686 */ /* x265685 */ /* x265688 */ /* x265687 */ /* x265690 */ /* x265689 */ /* x265692 */ /* x265691 */ /* x265694 */ /* x265693 */ /* x265696 */ /* x265695 */ /* x265698 */ /* x265697 */ /* x265700 */ /* x265699 */ /* x265702 */ /* x265701 */ /* x265704 */ /* x265703 */ /* x265706 */ /* x265705 */ /* x265708 */ /* x265707 */ /* x265710 */ /* x265709 */ /* x265712 */ /* x265711 */ /* x265714 */ /* x265713 */ /* x265278 */ /* x265277 */ /* x243198 */ /* x243197 */ /* x243203 */ /* x243202 */ /* x243282 */ /* x243281 */ /* x243288 */ /* x243287 */ /* x243411 */ /* x243410 */ /* x243416 */ /* x243415 */ /* x243422 */ /* x243421 */ /* x243427 */ /* x243426 */ /* x243432 */ /* x243431 */ /* x243438 */ /* x243437 */ /* x243444 */ /* x243443 */ /* x243451 */ /* x243450 */ /* x243458 */ /* x243457 */ /* x243465 */ /* x243464 */ /* x243472 */ /* x243471 */ /* x243481 */ /* x243480 */ /* x243490 */ /* x243489 */ /* x243499 */ /* x243498 */ /* x243508 */ /* x243507 */ /* x243517 */ /* x243516 */ /* x243526 */ /* x243525 */ /* x243535 */ /* x243534 */ /* x243544 */ /* x243543 */ /* x243555 */ /* x243554 */ /* x243566 */ /* x243565 */ /* x243577 */ /* x243576 */ /* x243588 */ /* x243587 */ /* x243599 */ /* x243598 */ /* x243610 */ /* x243609 */ /* x243621 */ /* x243620 */ /* x243632 */ /* x243631 */ /* x243643 */ /* x243642 */ /* x243654 */ /* x243653 */ /* x243665 */ /* x243664 */ /* x243676 */ /* x243675 */ /* x243687 */ /* x243686 */ /* x243698 */ /* x243697 */ /* x243709 */ /* x243708 */ /* x243720 */ /* x243719 */ /* x243725 */ /* x243724 */ /* x243801 */ /* x243800 */ /* x243804 */ /* x243803 */ /* x243838 */ /* x243837 */ /* x243879 */ /* x243878 */ /* x243929 */ /* x243928 */ /* x243992 */ /* x243991 */ /* x244067 */ /* x244066 */ /* x244500 */ /* x244499 */ /* x244530 */ /* x244529 */ /* x244571 */ /* x244570 */ /* x244587 */ /* x244586 */ /* x244623 */ /* x244622 */ /* x244660 */ /* x244659 */ /* x244683 */ /* x244682 */ /* x244706 */ /* x244705 */ /* x244729 */ /* x244728 */ /* x244756 */ /* x244755 */ /* x244783 */ /* x244782 */ /* x244810 */ /* x244809 */ /* x244847 */ /* x244846 */ /* x244887 */ /* x244886 */ /* x244921 */ /* x244920 */ /* x244965 */ /* x244964 */ /* x244982 */ /* x244981 */ /* x245023 */ /* x245022 */ /* x245028 */ /* x245027 */ /* x245033 */ /* x245032 */ /* x245038 */ /* x245037 */ /* x251463 */ /* x251462 */ /* x251461 */ /* x251460 */ a33576 = (struct structure_type24753 *)NULL_TYPE; /* x251459 */ /* x251468 */ /* x251467 */ /* x251470 */ /* x251469 */ /* x251475 */ /* x251474 */ /* x251477 */ /* x251476 */ /* x251482 */ /* x251481 */ /* x251487 */ /* x251486 */ /* x251492 */ /* x251491 */ /* x251536 */ /* x251535 */ /* x251580 */ /* x251579 */ /* x251624 */ /* x251623 */ /* x251668 */ /* x251667 */ /* x251712 */ /* x251711 */ /* x251717 */ /* x251716 */ /* x251722 */ /* x251721 */ /* x251727 */ /* x251726 */ /* x251734 */ /* x251733 */ /* x251742 */ /* x251741 */ /* x251786 */ /* x251785 */ /* x251830 */ /* x251829 */ /* x251872 */ /* x251871 */ /* x251914 */ /* x251913 */ /* x251958 */ /* x251957 */ /* x252002 */ /* x252001 */ /* x252012 */ /* x252011 */ /* x252018 */ /* x252017 */ /* x252024 */ /* x252023 */ /* x252059 */ /* x252058 */ /* x252211 */ /* x252210 */ /* x252353 */ /* x252352 */ /* x252359 */ /* x252358 */ /* x252365 */ /* x252364 */ /* x252370 */ /* x252369 */ /* x252412 */ /* x252411 */ /* x252454 */ /* x252453 */ /* x252496 */ /* x252495 */ /* x252501 */ /* x252500 */ /* x252506 */ /* x252505 */ /* x252511 */ /* x252510 */ /* x252516 */ /* x252515 */ /* x252521 */ /* x252520 */ /* x252526 */ /* x252525 */ /* x252531 */ /* x252530 */ /* x252536 */ /* x252535 */ /* x252541 */ /* x252540 */ /* x252546 */ /* x252545 */ /* x252551 */ /* x252550 */ /* x252581 */ /* x252580 */ /* x252586 */ /* x252585 */ /* x252592 */ /* x252591 */ /* x252597 */ /* x252596 */ /* x252602 */ /* x252601 */ /* x252605 */ /* x252604 */ /* x252603 */ /* x252608 */ /* x252607 */ /* x252606 */ /* x252613 */ /* x252612 */ /* x252655 */ /* x252654 */ /* x252697 */ /* x252696 */ /* x252739 */ /* x252738 */ /* x252781 */ /* x252780 */ /* x252823 */ /* x252822 */ /* x252871 */ /* x252870 */ /* x252919 */ /* x252918 */ /* x252967 */ /* x252966 */ /* x253015 */ /* x253014 */ /* x253063 */ /* x253062 */ /* x253330 */ /* x253329 */ /* x253328 */ t102928 = (struct headed_vector_type24751 *)(&t102929); /* x253071 */ a33825 = t102928; /* x253070 */ /* x253597 */ /* x253596 */ /* x253595 */ t102930 = (struct headed_vector_type24751 *)(&t102931); /* x253338 */ a33827 = t102930; /* x253337 */ /* x253864 */ /* x253863 */ /* x253862 */ t102932 = (struct headed_vector_type24751 *)(&t102933); /* x253605 */ a33829 = t102932; /* x253604 */ /* x254131 */ /* x254130 */ /* x254129 */ /* x253872 */ /* x253871 */ /* x254398 */ /* x254397 */ /* x254396 */ /* x254139 */ /* x254138 */ /* x254403 */ /* x254402 */ /* x254408 */ /* x254407 */ /* x254677 */ /* x254676 */ /* x254675 */ t102938 = (struct headed_vector_type24746 *)(&t102939); /* x254418 */ a33837 = t102938; /* x254417 */ /* x254946 */ /* x254945 */ /* x254944 */ /* x254687 */ /* x254686 */ /* x254951 */ /* x254950 */ /* x254981 */ /* x254980 */ /* x255027 */ /* x255026 */ /* x255032 */ /* x255031 */ /* x255038 */ /* x255037 */ /* x255045 */ /* x255044 */ /* x255130 */ /* x255129 */ /* x255215 */ /* x255214 */ /* x255320 */ /* x255319 */ /* x255425 */ /* x255424 */ /* x255530 */ /* x255529 */ /* x255635 */ /* x255634 */ /* x255740 */ /* x255739 */ /* x255845 */ /* x255844 */ /* x255950 */ /* x255949 */ /* x256055 */ /* x256054 */ /* x256107 */ /* x256106 */ /* x256229 */ /* x256228 */ /* x256265 */ /* x256264 */ /* x256317 */ /* x256316 */ /* x256372 */ /* x256371 */ /* x256414 */ /* x256413 */ /* x256475 */ /* x256474 */ /* x256480 */ /* x256479 */ /* x256510 */ /* x256509 */ /* x256517 */ /* x256516 */ /* x256563 */ /* x256562 */ /* x256568 */ /* x256567 */ /* x256574 */ /* x256573 */ /* x256581 */ /* x256580 */ /* x256614 */ /* x256613 */ /* x256666 */ /* x256665 */ /* x256705 */ /* x256704 */ /* x256760 */ /* x256759 */ /* x256881 */ /* x256880 */ /* x256941 */ /* x256940 */ /* x256993 */ /* x256992 */ /* x256998 */ /* x256997 */ /* x257072 */ /* x257071 */ /* x257261 */ /* x257260 */ /* x257453 */ /* x257452 */ /* x257457 */ /* x257456 */ /* x257462 */ /* x257461 */ /* x257482 */ /* x257481 */ /* x257502 */ /* x257501 */ /* x257507 */ /* x257506 */ /* x257512 */ /* x257511 */ /* x257515 */ /* x257514 */ /* x257513 */ /* x257518 */ /* x257517 */ /* x257516 */ /* x257521 */ /* x257520 */ /* x257519 */ /* x257524 */ /* x257523 */ /* x257522 */ /* x257529 */ /* x257528 */ /* x257534 */ /* x257533 */ /* x257539 */ /* x257538 */ /* x257544 */ /* x257543 */ /* x260774 */ /* x260773 */ /* x260777 */ /* x260776 */ /* x260775 */ /* x260780 */ /* x260779 */ /* x260778 */ /* x260785 */ /* x260784 */ /* x260788 */ /* x260787 */ /* x260786 */ /* x260791 */ /* x260790 */ /* x260789 */ /* x260794 */ /* x260793 */ /* x260792 */ /* x260797 */ /* x260796 */ /* x260795 */ /* x260800 */ /* x260799 */ /* x260798 */ /* x260803 */ /* x260802 */ /* x260801 */ /* x260806 */ /* x260805 */ /* x260804 */ /* x265238 */ /* x265229 */ /* x265230 */ /* x265232 */ /* x265231 */ t102942 = stdout; /* x265234 */ /* x265233 */ t102943 = stdin; /* x265237 */ /* x265236 */ t102945 = 20; /* x265717 */ t102944 = (struct headed_vector_type24746 *)GC_malloc_atomic(sizeof(struct headed_vector_type24746)+((t102945-1)*sizeof(int))); if (t102944==NULL) {backtrace_internal("[inside top level 1]"); out_of_memory_error();} t102944->length = t102945; /* x265228 */ a34448 = t102942; a34449 = t102943; a34450 = t102944; /* x265227 */ /* x265208 */ /* x265207 */ /* x265210 */ /* x265209 */ /* x265212 */ /* x265211 */ /* x265214 */ /* x265213 */ /* x265216 */ /* x265215 */ /* x265218 */ /* x265217 */ /* x265220 */ /* x265219 */ /* x265222 */ /* x265221 */ /* x265224 */ /* x265223 */ /* x265226 */ /* x265225 */ /* x265206 */ /* x265205 */ /* x260819 */ /* x260818 */ /* x260821 */ /* x260820 */ /* x260823 */ /* x260822 */ /* x260825 */ /* x260824 */ /* x260867 */ /* x260866 */ /* x261059 */ /* x261058 */ /* x261210 */ /* x261209 */ /* x261354 */ /* x261353 */ /* x261802 */ /* x261801 */ /* x262153 */ /* x262152 */ /* x262807 */ /* x262806 */ /* x264929 */ /* x264928 */ /* x264932 */ /* x264931 */ /* x264935 */ /* x264934 */ /* x264959 */ /* x264958 */ /* x264983 */ /* x264982 */ /* x265012 */ /* x265011 */ /* x265041 */ /* x265040 */ /* x265070 */ /* x265069 */ /* x265101 */ /* x265100 */ /* x265132 */ /* x265131 */ /* x265163 */ /* x265162 */ /* x265194 */ /* x265193 */ /* x265204 */ /* x265203 */ /* x260817 */ /* x260816 */ /* x260815 */ /* x265243 */ /* x265242 */ /* x265248 */ /* x265247 */ /* x265253 */ /* x265252 */ /* x265258 */ /* x265257 */ /* x265263 */ /* x265262 */ /* x265268 */ /* x265267 */ /* x265270 */ /* x265269 */ /* x265272 */ /* x265271 */ /* x265274 */ /* x265273 */ /* x265276 */ /* x265275 */ /* x243193 */ /* x243192 */ /* x242978 */ /* x242979 */ /* x242980 */ /* x242981 */ /* x242982 */ /* x242983 */ /* x242984 */ /* x242985 */ /* x242986 */ /* x242987 */ /* x242988 */ /* x242989 */ /* x242990 */ /* x242991 */ /* x242992 */ /* x242993 */ /* x242994 */ /* x242995 */ /* x242996 */ /* x242997 */ /* x242998 */ /* x242999 */ /* x243000 */ /* x243001 */ /* x243002 */ /* x243003 */ /* x243004 */ /* x243005 */ /* x243006 */ /* x243007 */ /* x243008 */ /* x243009 */ /* x243010 */ /* x243011 */ /* x243012 */ /* x243013 */ /* x243014 */ /* x243015 */ /* x243016 */ /* x243017 */ /* x243018 */ /* x243019 */ /* x243020 */ /* x243021 */ /* x243022 */ /* x243023 */ /* x243024 */ /* x243025 */ /* x243026 */ /* x243027 */ /* x243028 */ /* x243029 */ /* x243030 */ /* x243031 */ /* x243032 */ /* x243033 */ /* x243034 */ /* x243035 */ /* x243036 */ /* x243037 */ /* x243038 */ /* x243039 */ /* x243040 */ /* x243041 */ /* x243042 */ /* x243043 */ /* x243044 */ /* x243045 */ /* x243046 */ /* x243047 */ /* x243048 */ /* x243049 */ /* x243050 */ /* x243051 */ /* x243052 */ /* x243053 */ /* x243054 */ /* x243055 */ /* x243056 */ /* x243057 */ /* x243058 */ /* x243059 */ /* x243060 */ /* x243061 */ /* x243062 */ /* x243063 */ /* x243064 */ /* x243065 */ /* x243066 */ /* x243067 */ /* x243068 */ /* x243069 */ /* x243070 */ /* x243071 */ /* x243072 */ /* x243073 */ /* x243074 */ /* x243075 */ /* x243076 */ /* x243077 */ /* x243078 */ /* x243079 */ /* x243080 */ /* x243081 */ /* x243082 */ /* x243083 */ /* x243084 */ /* x243085 */ /* x243086 */ /* x243087 */ /* x243088 */ /* x243089 */ /* x243090 */ /* x243091 */ /* x243092 */ /* x243093 */ /* x243094 */ /* x243095 */ /* x243096 */ /* x243097 */ /* x243098 */ /* x243099 */ /* x243100 */ /* x243101 */ /* x243102 */ /* x243103 */ /* x243104 */ /* x243105 */ /* x243106 */ /* x243107 */ /* x243108 */ /* x243109 */ /* x243110 */ /* x243111 */ /* x243112 */ /* x243113 */ /* x243114 */ /* x243115 */ /* x243116 */ /* x243117 */ /* x243118 */ /* x243119 */ /* x243120 */ /* x243121 */ /* x243122 */ /* x243123 */ /* x243124 */ /* x243125 */ /* x243126 */ /* x243127 */ /* x243128 */ /* x243129 */ /* x243130 */ /* x243131 */ /* x243132 */ /* x243133 */ /* x243134 */ /* x243135 */ /* x243136 */ /* x243137 */ /* x243138 */ /* x243139 */ /* x243140 */ /* x243141 */ /* x243142 */ /* x243143 */ /* x243144 */ /* x243145 */ /* x243146 */ /* x243147 */ /* x243148 */ /* x243149 */ /* x243150 */ /* x243151 */ /* x243152 */ /* x243153 */ /* x243154 */ /* x243155 */ /* x243156 */ /* x243157 */ /* x243158 */ /* x243159 */ /* x243160 */ /* x243161 */ /* x243162 */ /* x243163 */ /* x243164 */ /* x243165 */ /* x243166 */ /* x243167 */ /* x243168 */ /* x243169 */ /* x243170 */ /* x243171 */ /* x243172 */ /* x243173 */ /* x243174 */ /* x243175 */ /* x243176 */ /* x243177 */ /* x243178 */ /* x243179 */ /* x243180 */ /* x243181 */ /* x243182 */ /* x243183 */ /* x243184 */ /* x243185 */ /* x243186 */ /* x243187 */ /* x243188 */ /* x243189 */ /* x243190 */ /* x243191 */ /* x242977 */ /* x242976 */ /* x230013 */ /* x230012 */ /* x230015 */ /* x230014 */ /* x230017 */ /* x230016 */ /* x230019 */ /* x230018 */ /* x230021 */ /* x230020 */ /* x230023 */ /* x230022 */ /* x230025 */ /* x230024 */ /* x230027 */ /* x230026 */ /* x230029 */ /* x230028 */ /* x230031 */ /* x230030 */ /* x230033 */ /* x230032 */ /* x230035 */ /* x230034 */ /* x230037 */ /* x230036 */ /* x230039 */ /* x230038 */ /* x230041 */ /* x230040 */ /* x230043 */ /* x230042 */ /* x230045 */ /* x230044 */ /* x230047 */ /* x230046 */ /* x230049 */ /* x230048 */ /* x230051 */ /* x230050 */ /* x230053 */ /* x230052 */ /* x230055 */ /* x230054 */ /* x230057 */ /* x230056 */ /* x230059 */ /* x230058 */ /* x230061 */ /* x230060 */ /* x230063 */ /* x230062 */ /* x230065 */ /* x230064 */ /* x230067 */ /* x230066 */ /* x230069 */ /* x230068 */ /* x230071 */ /* x230070 */ /* x230073 */ /* x230072 */ /* x230075 */ /* x230074 */ /* x230077 */ /* x230076 */ /* x230079 */ /* x230078 */ /* x230081 */ /* x230080 */ /* x230083 */ /* x230082 */ /* x230085 */ /* x230084 */ /* x230087 */ /* x230086 */ /* x230089 */ /* x230088 */ /* x230091 */ /* x230090 */ /* x230093 */ /* x230092 */ /* x230095 */ /* x230094 */ /* x230097 */ /* x230096 */ /* x230099 */ /* x230098 */ /* x230101 */ /* x230100 */ /* x230103 */ /* x230102 */ /* x230105 */ /* x230104 */ /* x230107 */ /* x230106 */ /* x230109 */ /* x230108 */ /* x230111 */ /* x230110 */ /* x230113 */ /* x230112 */ /* x230115 */ /* x230114 */ /* x230117 */ /* x230116 */ /* x230119 */ /* x230118 */ /* x230121 */ /* x230120 */ /* x230123 */ /* x230122 */ /* x230125 */ /* x230124 */ /* x230127 */ /* x230126 */ /* x230129 */ /* x230128 */ /* x230131 */ /* x230130 */ /* x230133 */ /* x230132 */ /* x230135 */ /* x230134 */ /* x230137 */ /* x230136 */ /* x230139 */ /* x230138 */ /* x230141 */ /* x230140 */ /* x230143 */ /* x230142 */ /* x230145 */ /* x230144 */ /* x230147 */ /* x230146 */ /* x230149 */ /* x230148 */ /* x230151 */ /* x230150 */ /* x230153 */ /* x230152 */ /* x230155 */ /* x230154 */ /* x230157 */ /* x230156 */ /* x230159 */ /* x230158 */ /* x230161 */ /* x230160 */ /* x230163 */ /* x230162 */ /* x230165 */ /* x230164 */ /* x230167 */ /* x230166 */ /* x230169 */ /* x230168 */ /* x230171 */ /* x230170 */ /* x230173 */ /* x230172 */ /* x230175 */ /* x230174 */ /* x230177 */ /* x230176 */ /* x230179 */ /* x230178 */ /* x230181 */ /* x230180 */ /* x230183 */ /* x230182 */ /* x230185 */ /* x230184 */ /* x230187 */ /* x230186 */ /* x230189 */ /* x230188 */ /* x230191 */ /* x230190 */ /* x230193 */ /* x230192 */ /* x230195 */ /* x230194 */ /* x230197 */ /* x230196 */ /* x230199 */ /* x230198 */ /* x230201 */ /* x230200 */ /* x230203 */ /* x230202 */ /* x230205 */ /* x230204 */ /* x230207 */ /* x230206 */ /* x230209 */ /* x230208 */ /* x230211 */ /* x230210 */ /* x230213 */ /* x230212 */ /* x230215 */ /* x230214 */ /* x230217 */ /* x230216 */ /* x230219 */ /* x230218 */ /* x230221 */ /* x230220 */ /* x230223 */ /* x230222 */ /* x230225 */ /* x230224 */ /* x230227 */ /* x230226 */ /* x230229 */ /* x230228 */ /* x230231 */ /* x230230 */ /* x230233 */ /* x230232 */ /* x230235 */ /* x230234 */ /* x230237 */ /* x230236 */ /* x230239 */ /* x230238 */ /* x230241 */ /* x230240 */ /* x230243 */ /* x230242 */ /* x230245 */ /* x230244 */ /* x230247 */ /* x230246 */ /* x230249 */ /* x230248 */ /* x230251 */ /* x230250 */ /* x230253 */ /* x230252 */ /* x230255 */ /* x230254 */ /* x230257 */ /* x230256 */ /* x230259 */ /* x230258 */ /* x230261 */ /* x230260 */ /* x230263 */ /* x230262 */ /* x230265 */ /* x230264 */ /* x230267 */ /* x230266 */ /* x230269 */ /* x230268 */ /* x230271 */ /* x230270 */ /* x230273 */ /* x230272 */ /* x230275 */ /* x230274 */ /* x230277 */ /* x230276 */ /* x230279 */ /* x230278 */ /* x230281 */ /* x230280 */ /* x230283 */ /* x230282 */ /* x230285 */ /* x230284 */ /* x230287 */ /* x230286 */ /* x230289 */ /* x230288 */ /* x230291 */ /* x230290 */ /* x230293 */ /* x230292 */ /* x230295 */ /* x230294 */ /* x230297 */ /* x230296 */ /* x230299 */ /* x230298 */ /* x230301 */ /* x230300 */ /* x230303 */ /* x230302 */ /* x230305 */ /* x230304 */ /* x230307 */ /* x230306 */ /* x230309 */ /* x230308 */ /* x230311 */ /* x230310 */ /* x230313 */ /* x230312 */ /* x230315 */ /* x230314 */ /* x230317 */ /* x230316 */ /* x230319 */ /* x230318 */ /* x230321 */ /* x230320 */ /* x230323 */ /* x230322 */ /* x230325 */ /* x230324 */ /* x230327 */ /* x230326 */ /* x230329 */ /* x230328 */ /* x230331 */ /* x230330 */ /* x230333 */ /* x230332 */ /* x230335 */ /* x230334 */ /* x230337 */ /* x230336 */ /* x230339 */ /* x230338 */ /* x230341 */ /* x230340 */ /* x230343 */ /* x230342 */ /* x230345 */ /* x230344 */ /* x230347 */ /* x230346 */ /* x230349 */ /* x230348 */ /* x230351 */ /* x230350 */ /* x230353 */ /* x230352 */ /* x230355 */ /* x230354 */ /* x230357 */ /* x230356 */ /* x230359 */ /* x230358 */ /* x230361 */ /* x230360 */ /* x230363 */ /* x230362 */ /* x230365 */ /* x230364 */ /* x230367 */ /* x230366 */ /* x230369 */ /* x230368 */ /* x230371 */ /* x230370 */ /* x230373 */ /* x230372 */ /* x230375 */ /* x230374 */ /* x230377 */ /* x230376 */ /* x230379 */ /* x230378 */ /* x230381 */ /* x230380 */ /* x230383 */ /* x230382 */ /* x230385 */ /* x230384 */ /* x230387 */ /* x230386 */ /* x230389 */ /* x230388 */ /* x230391 */ /* x230390 */ /* x230393 */ /* x230392 */ /* x230395 */ /* x230394 */ /* x230397 */ /* x230396 */ /* x230399 */ /* x230398 */ /* x230401 */ /* x230400 */ /* x230403 */ /* x230402 */ /* x230405 */ /* x230404 */ /* x230407 */ /* x230406 */ /* x230409 */ /* x230408 */ /* x230411 */ /* x230410 */ /* x230413 */ /* x230412 */ /* x230415 */ /* x230414 */ /* x230417 */ /* x230416 */ /* x230419 */ /* x230418 */ /* x230421 */ /* x230420 */ /* x230423 */ /* x230422 */ /* x230425 */ /* x230424 */ /* x230427 */ /* x230426 */ /* x230429 */ /* x230428 */ /* x230431 */ /* x230430 */ /* x230433 */ /* x230432 */ /* x230435 */ /* x230434 */ /* x230437 */ /* x230436 */ /* x230439 */ /* x230438 */ /* x230441 */ /* x230440 */ /* x230443 */ /* x230442 */ /* x230445 */ /* x230444 */ /* x230447 */ /* x230446 */ /* x230449 */ /* x230448 */ /* x230451 */ /* x230450 */ /* x230453 */ /* x230452 */ /* x230455 */ /* x230454 */ /* x230457 */ /* x230456 */ /* x230459 */ /* x230458 */ /* x230461 */ /* x230460 */ /* x230463 */ /* x230462 */ /* x230465 */ /* x230464 */ /* x230467 */ /* x230466 */ /* x230469 */ /* x230468 */ /* x230471 */ /* x230470 */ /* x230473 */ /* x230472 */ /* x230475 */ /* x230474 */ /* x230477 */ /* x230476 */ /* x230479 */ /* x230478 */ /* x230481 */ /* x230480 */ /* x230483 */ /* x230482 */ /* x230485 */ /* x230484 */ /* x230487 */ /* x230486 */ /* x230489 */ /* x230488 */ /* x230491 */ /* x230490 */ /* x230493 */ /* x230492 */ /* x230495 */ /* x230494 */ /* x230497 */ /* x230496 */ /* x230499 */ /* x230498 */ /* x230501 */ /* x230500 */ /* x230503 */ /* x230502 */ /* x230505 */ /* x230504 */ /* x230507 */ /* x230506 */ /* x230509 */ /* x230508 */ /* x230511 */ /* x230510 */ /* x230513 */ /* x230512 */ /* x230515 */ /* x230514 */ /* x230517 */ /* x230516 */ /* x230519 */ /* x230518 */ /* x230521 */ /* x230520 */ /* x230523 */ /* x230522 */ /* x230525 */ /* x230524 */ /* x230527 */ /* x230526 */ /* x230529 */ /* x230528 */ /* x230531 */ /* x230530 */ /* x230533 */ /* x230532 */ /* x230535 */ /* x230534 */ /* x230537 */ /* x230536 */ /* x230539 */ /* x230538 */ /* x230541 */ /* x230540 */ /* x230543 */ /* x230542 */ /* x230545 */ /* x230544 */ /* x230547 */ /* x230546 */ /* x230549 */ /* x230548 */ /* x230551 */ /* x230550 */ /* x230553 */ /* x230552 */ /* x230555 */ /* x230554 */ /* x230557 */ /* x230556 */ /* x230559 */ /* x230558 */ /* x230561 */ /* x230560 */ /* x230563 */ /* x230562 */ /* x230565 */ /* x230564 */ /* x230567 */ /* x230566 */ /* x230569 */ /* x230568 */ /* x230571 */ /* x230570 */ /* x230573 */ /* x230572 */ /* x230575 */ /* x230574 */ /* x230577 */ /* x230576 */ /* x230579 */ /* x230578 */ /* x230581 */ /* x230580 */ /* x230583 */ /* x230582 */ /* x230585 */ /* x230584 */ /* x230587 */ /* x230586 */ /* x230589 */ /* x230588 */ /* x230591 */ /* x230590 */ /* x230593 */ /* x230592 */ /* x230595 */ /* x230594 */ /* x230597 */ /* x230596 */ /* x230599 */ /* x230598 */ /* x230601 */ /* x230600 */ /* x230603 */ /* x230602 */ /* x230605 */ /* x230604 */ /* x230607 */ /* x230606 */ /* x230609 */ /* x230608 */ /* x230611 */ /* x230610 */ /* x230613 */ /* x230612 */ /* x230615 */ /* x230614 */ /* x230617 */ /* x230616 */ /* x230619 */ /* x230618 */ /* x230621 */ /* x230620 */ /* x230623 */ /* x230622 */ /* x230625 */ /* x230624 */ /* x230627 */ /* x230626 */ /* x230629 */ /* x230628 */ /* x230631 */ /* x230630 */ /* x230633 */ /* x230632 */ /* x230635 */ /* x230634 */ /* x230637 */ /* x230636 */ /* x230639 */ /* x230638 */ /* x230641 */ /* x230640 */ /* x230643 */ /* x230642 */ /* x230645 */ /* x230644 */ /* x230647 */ /* x230646 */ /* x230649 */ /* x230648 */ /* x230651 */ /* x230650 */ /* x230653 */ /* x230652 */ /* x230655 */ /* x230654 */ /* x230657 */ /* x230656 */ /* x230659 */ /* x230658 */ /* x230661 */ /* x230660 */ /* x230663 */ /* x230662 */ /* x230665 */ /* x230664 */ /* x230667 */ /* x230666 */ /* x230669 */ /* x230668 */ /* x230671 */ /* x230670 */ /* x230673 */ /* x230672 */ /* x230675 */ /* x230674 */ /* x230677 */ /* x230676 */ /* x230679 */ /* x230678 */ /* x230681 */ /* x230680 */ /* x230683 */ /* x230682 */ /* x230685 */ /* x230684 */ /* x230687 */ /* x230686 */ /* x230689 */ /* x230688 */ /* x230691 */ /* x230690 */ /* x230693 */ /* x230692 */ /* x230695 */ /* x230694 */ /* x230697 */ /* x230696 */ /* x230699 */ /* x230698 */ /* x230701 */ /* x230700 */ /* x230703 */ /* x230702 */ /* x230705 */ /* x230704 */ /* x230707 */ /* x230706 */ /* x230709 */ /* x230708 */ /* x230711 */ /* x230710 */ /* x230713 */ /* x230712 */ /* x230715 */ /* x230714 */ /* x230717 */ /* x230716 */ /* x230719 */ /* x230718 */ /* x230721 */ /* x230720 */ /* x230723 */ /* x230722 */ /* x230725 */ /* x230724 */ /* x230727 */ /* x230726 */ /* x230729 */ /* x230728 */ /* x230731 */ /* x230730 */ /* x230733 */ /* x230732 */ /* x230735 */ /* x230734 */ /* x230737 */ /* x230736 */ /* x230739 */ /* x230738 */ /* x230741 */ /* x230740 */ /* x230743 */ /* x230742 */ /* x230745 */ /* x230744 */ /* x230747 */ /* x230746 */ /* x230749 */ /* x230748 */ /* x230751 */ /* x230750 */ /* x230753 */ /* x230752 */ /* x230755 */ /* x230754 */ /* x230757 */ /* x230756 */ /* x230759 */ /* x230758 */ /* x230761 */ /* x230760 */ /* x230763 */ /* x230762 */ /* x230765 */ /* x230764 */ /* x230767 */ /* x230766 */ /* x230769 */ /* x230768 */ /* x230771 */ /* x230770 */ /* x230773 */ /* x230772 */ /* x230775 */ /* x230774 */ /* x230777 */ /* x230776 */ /* x230779 */ /* x230778 */ /* x230781 */ /* x230780 */ /* x230783 */ /* x230782 */ /* x230785 */ /* x230784 */ /* x230787 */ /* x230786 */ /* x230789 */ /* x230788 */ /* x230791 */ /* x230790 */ /* x230793 */ /* x230792 */ /* x230795 */ /* x230794 */ /* x230797 */ /* x230796 */ /* x230799 */ /* x230798 */ /* x230801 */ /* x230800 */ /* x230803 */ /* x230802 */ /* x230805 */ /* x230804 */ /* x230807 */ /* x230806 */ /* x230809 */ /* x230808 */ /* x230811 */ /* x230810 */ /* x230813 */ /* x230812 */ /* x230815 */ /* x230814 */ /* x230817 */ /* x230816 */ /* x230819 */ /* x230818 */ /* x230821 */ /* x230820 */ /* x230823 */ /* x230822 */ /* x230825 */ /* x230824 */ /* x230827 */ /* x230826 */ /* x230829 */ /* x230828 */ /* x230831 */ /* x230830 */ /* x230833 */ /* x230832 */ /* x230835 */ /* x230834 */ /* x230837 */ /* x230836 */ /* x230839 */ /* x230838 */ /* x230841 */ /* x230840 */ /* x230843 */ /* x230842 */ /* x230845 */ /* x230844 */ /* x230847 */ /* x230846 */ /* x230849 */ /* x230848 */ /* x230851 */ /* x230850 */ /* x230853 */ /* x230852 */ /* x230855 */ /* x230854 */ /* x230857 */ /* x230856 */ /* x230859 */ /* x230858 */ /* x230861 */ /* x230860 */ /* x230863 */ /* x230862 */ /* x230865 */ /* x230864 */ /* x230867 */ /* x230866 */ /* x230869 */ /* x230868 */ /* x230871 */ /* x230870 */ /* x230873 */ /* x230872 */ /* x230875 */ /* x230874 */ /* x230877 */ /* x230876 */ /* x230879 */ /* x230878 */ /* x230881 */ /* x230880 */ /* x230883 */ /* x230882 */ /* x230885 */ /* x230884 */ /* x230887 */ /* x230886 */ /* x230889 */ /* x230888 */ /* x230891 */ /* x230890 */ /* x230893 */ /* x230892 */ /* x230895 */ /* x230894 */ /* x230897 */ /* x230896 */ /* x230899 */ /* x230898 */ /* x230901 */ /* x230900 */ /* x230903 */ /* x230902 */ /* x230905 */ /* x230904 */ /* x230907 */ /* x230906 */ /* x230909 */ /* x230908 */ /* x230911 */ /* x230910 */ /* x230913 */ /* x230912 */ /* x230915 */ /* x230914 */ /* x230917 */ /* x230916 */ /* x230919 */ /* x230918 */ /* x230921 */ /* x230920 */ /* x230923 */ /* x230922 */ /* x230925 */ /* x230924 */ /* x230927 */ /* x230926 */ /* x230929 */ /* x230928 */ /* x230931 */ /* x230930 */ /* x230933 */ /* x230932 */ /* x230935 */ /* x230934 */ /* x230937 */ /* x230936 */ /* x230939 */ /* x230938 */ /* x230941 */ /* x230940 */ /* x230943 */ /* x230942 */ /* x230945 */ /* x230944 */ /* x230947 */ /* x230946 */ /* x230949 */ /* x230948 */ /* x230951 */ /* x230950 */ /* x230953 */ /* x230952 */ /* x230955 */ /* x230954 */ /* x230957 */ /* x230956 */ /* x230959 */ /* x230958 */ /* x230961 */ /* x230960 */ /* x230963 */ /* x230962 */ /* x230965 */ /* x230964 */ /* x230967 */ /* x230966 */ /* x230969 */ /* x230968 */ /* x230971 */ /* x230970 */ /* x230973 */ /* x230972 */ /* x230975 */ /* x230974 */ /* x230977 */ /* x230976 */ /* x230979 */ /* x230978 */ /* x230981 */ /* x230980 */ /* x230983 */ /* x230982 */ /* x230985 */ /* x230984 */ /* x230987 */ /* x230986 */ /* x230989 */ /* x230988 */ /* x230991 */ /* x230990 */ /* x230993 */ /* x230992 */ /* x230995 */ /* x230994 */ /* x230997 */ /* x230996 */ /* x230999 */ /* x230998 */ /* x231001 */ /* x231000 */ /* x231003 */ /* x231002 */ /* x231005 */ /* x231004 */ /* x231007 */ /* x231006 */ /* x231009 */ /* x231008 */ /* x231011 */ /* x231010 */ /* x231013 */ /* x231012 */ /* x231015 */ /* x231014 */ /* x231017 */ /* x231016 */ /* x231019 */ /* x231018 */ /* x231021 */ /* x231020 */ /* x231023 */ /* x231022 */ /* x231025 */ /* x231024 */ /* x231027 */ /* x231026 */ /* x231029 */ /* x231028 */ /* x231031 */ /* x231030 */ /* x231033 */ /* x231032 */ /* x231035 */ /* x231034 */ /* x231037 */ /* x231036 */ /* x231039 */ /* x231038 */ /* x231041 */ /* x231040 */ /* x231043 */ /* x231042 */ /* x231045 */ /* x231044 */ /* x231047 */ /* x231046 */ /* x231049 */ /* x231048 */ /* x231051 */ /* x231050 */ /* x231053 */ /* x231052 */ /* x231055 */ /* x231054 */ /* x231057 */ /* x231056 */ /* x231059 */ /* x231058 */ /* x231061 */ /* x231060 */ /* x231063 */ /* x231062 */ /* x231065 */ /* x231064 */ /* x231067 */ /* x231066 */ /* x231069 */ /* x231068 */ /* x231071 */ /* x231070 */ /* x231073 */ /* x231072 */ /* x231075 */ /* x231074 */ /* x231077 */ /* x231076 */ /* x231079 */ /* x231078 */ /* x231081 */ /* x231080 */ /* x231083 */ /* x231082 */ /* x231085 */ /* x231084 */ /* x231087 */ /* x231086 */ /* x231089 */ /* x231088 */ /* x231091 */ /* x231090 */ /* x231093 */ /* x231092 */ /* x231095 */ /* x231094 */ /* x231097 */ /* x231096 */ /* x231099 */ /* x231098 */ /* x231101 */ /* x231100 */ /* x231103 */ /* x231102 */ /* x231105 */ /* x231104 */ /* x231107 */ /* x231106 */ /* x231109 */ /* x231108 */ /* x231111 */ /* x231110 */ /* x231113 */ /* x231112 */ /* x231115 */ /* x231114 */ /* x231117 */ /* x231116 */ /* x231119 */ /* x231118 */ /* x231121 */ /* x231120 */ /* x231123 */ /* x231122 */ /* x231125 */ /* x231124 */ /* x231127 */ /* x231126 */ /* x231129 */ /* x231128 */ /* x231131 */ /* x231130 */ /* x231133 */ /* x231132 */ /* x231135 */ /* x231134 */ /* x231137 */ /* x231136 */ /* x231139 */ /* x231138 */ /* x231141 */ /* x231140 */ /* x231143 */ /* x231142 */ /* x231145 */ /* x231144 */ /* x231147 */ /* x231146 */ /* x231149 */ /* x231148 */ /* x231151 */ /* x231150 */ /* x231153 */ /* x231152 */ /* x231155 */ /* x231154 */ /* x231157 */ /* x231156 */ /* x231159 */ /* x231158 */ /* x231161 */ /* x231160 */ /* x231163 */ /* x231162 */ /* x231165 */ /* x231164 */ /* x231167 */ /* x231166 */ /* x231169 */ /* x231168 */ /* x231171 */ /* x231170 */ /* x231173 */ /* x231172 */ /* x231175 */ /* x231174 */ /* x231177 */ /* x231176 */ /* x231179 */ /* x231178 */ /* x231181 */ /* x231180 */ /* x231183 */ /* x231182 */ /* x231185 */ /* x231184 */ /* x231187 */ /* x231186 */ /* x231189 */ /* x231188 */ /* x231191 */ /* x231190 */ /* x231193 */ /* x231192 */ /* x231195 */ /* x231194 */ /* x231197 */ /* x231196 */ /* x231199 */ /* x231198 */ /* x231201 */ /* x231200 */ /* x231203 */ /* x231202 */ /* x231205 */ /* x231204 */ /* x231207 */ /* x231206 */ /* x231209 */ /* x231208 */ /* x231211 */ /* x231210 */ /* x231213 */ /* x231212 */ /* x231215 */ /* x231214 */ /* x231217 */ /* x231216 */ /* x231219 */ /* x231218 */ /* x231221 */ /* x231220 */ /* x231223 */ /* x231222 */ /* x231225 */ /* x231224 */ /* x231227 */ /* x231226 */ /* x231229 */ /* x231228 */ /* x231231 */ /* x231230 */ /* x231233 */ /* x231232 */ /* x231235 */ /* x231234 */ /* x231237 */ /* x231236 */ /* x231239 */ /* x231238 */ /* x231241 */ /* x231240 */ /* x231243 */ /* x231242 */ /* x231245 */ /* x231244 */ /* x231247 */ /* x231246 */ /* x231249 */ /* x231248 */ /* x231251 */ /* x231250 */ /* x231253 */ /* x231252 */ /* x231255 */ /* x231254 */ /* x231257 */ /* x231256 */ /* x231259 */ /* x231258 */ /* x231261 */ /* x231260 */ /* x231263 */ /* x231262 */ /* x231265 */ /* x231264 */ /* x231267 */ /* x231266 */ /* x231269 */ /* x231268 */ /* x231271 */ /* x231270 */ /* x231273 */ /* x231272 */ /* x231275 */ /* x231274 */ /* x231277 */ /* x231276 */ /* x231279 */ /* x231278 */ /* x231281 */ /* x231280 */ /* x231283 */ /* x231282 */ /* x231285 */ /* x231284 */ /* x231287 */ /* x231286 */ /* x231289 */ /* x231288 */ /* x231291 */ /* x231290 */ /* x231293 */ /* x231292 */ /* x231295 */ /* x231294 */ /* x231297 */ /* x231296 */ /* x231299 */ /* x231298 */ /* x231301 */ /* x231300 */ /* x231303 */ /* x231302 */ /* x231305 */ /* x231304 */ /* x231307 */ /* x231306 */ /* x231309 */ /* x231308 */ /* x231311 */ /* x231310 */ /* x231313 */ /* x231312 */ /* x231315 */ /* x231314 */ /* x231317 */ /* x231316 */ /* x231319 */ /* x231318 */ /* x231321 */ /* x231320 */ /* x231323 */ /* x231322 */ /* x231325 */ /* x231324 */ /* x231327 */ /* x231326 */ /* x231329 */ /* x231328 */ /* x231331 */ /* x231330 */ /* x231333 */ /* x231332 */ /* x231335 */ /* x231334 */ /* x231337 */ /* x231336 */ /* x231339 */ /* x231338 */ /* x231341 */ /* x231340 */ /* x231343 */ /* x231342 */ /* x231345 */ /* x231344 */ /* x231347 */ /* x231346 */ /* x231349 */ /* x231348 */ /* x231351 */ /* x231350 */ /* x231353 */ /* x231352 */ /* x231355 */ /* x231354 */ /* x231357 */ /* x231356 */ /* x231359 */ /* x231358 */ /* x231361 */ /* x231360 */ /* x231363 */ /* x231362 */ /* x231365 */ /* x231364 */ /* x231367 */ /* x231366 */ /* x231369 */ /* x231368 */ /* x231371 */ /* x231370 */ /* x231373 */ /* x231372 */ /* x231375 */ /* x231374 */ /* x231377 */ /* x231376 */ /* x231379 */ /* x231378 */ /* x231381 */ /* x231380 */ /* x231383 */ /* x231382 */ /* x231385 */ /* x231384 */ /* x231387 */ /* x231386 */ /* x231389 */ /* x231388 */ /* x231391 */ /* x231390 */ /* x231393 */ /* x231392 */ /* x231395 */ /* x231394 */ /* x231397 */ /* x231396 */ /* x231399 */ /* x231398 */ /* x231401 */ /* x231400 */ /* x231403 */ /* x231402 */ /* x231405 */ /* x231404 */ /* x231407 */ /* x231406 */ /* x231409 */ /* x231408 */ /* x231411 */ /* x231410 */ /* x231413 */ /* x231412 */ /* x231415 */ /* x231414 */ /* x231417 */ /* x231416 */ /* x231419 */ /* x231418 */ /* x231421 */ /* x231420 */ /* x231423 */ /* x231422 */ /* x231425 */ /* x231424 */ /* x231427 */ /* x231426 */ /* x231429 */ /* x231428 */ /* x231431 */ /* x231430 */ /* x231433 */ /* x231432 */ /* x231435 */ /* x231434 */ /* x231437 */ /* x231436 */ /* x231439 */ /* x231438 */ /* x231441 */ /* x231440 */ /* x231443 */ /* x231442 */ /* x231445 */ /* x231444 */ /* x231447 */ /* x231446 */ /* x231449 */ /* x231448 */ /* x231451 */ /* x231450 */ /* x231453 */ /* x231452 */ /* x231455 */ /* x231454 */ /* x231457 */ /* x231456 */ /* x231459 */ /* x231458 */ /* x231461 */ /* x231460 */ /* x231463 */ /* x231462 */ /* x231465 */ /* x231464 */ /* x231467 */ /* x231466 */ /* x231469 */ /* x231468 */ /* x231471 */ /* x231470 */ /* x231473 */ /* x231472 */ /* x231475 */ /* x231474 */ /* x231477 */ /* x231476 */ /* x231479 */ /* x231478 */ /* x231481 */ /* x231480 */ /* x231483 */ /* x231482 */ /* x231485 */ /* x231484 */ /* x231487 */ /* x231486 */ /* x231489 */ /* x231488 */ /* x231491 */ /* x231490 */ /* x231493 */ /* x231492 */ /* x231495 */ /* x231494 */ /* x231497 */ /* x231496 */ /* x231499 */ /* x231498 */ /* x231501 */ /* x231500 */ /* x231503 */ /* x231502 */ /* x231505 */ /* x231504 */ /* x231507 */ /* x231506 */ /* x231509 */ /* x231508 */ /* x231511 */ /* x231510 */ /* x231513 */ /* x231512 */ /* x231515 */ /* x231514 */ /* x231517 */ /* x231516 */ /* x231519 */ /* x231518 */ /* x231521 */ /* x231520 */ /* x231523 */ /* x231522 */ /* x231525 */ /* x231524 */ /* x231527 */ /* x231526 */ /* x231529 */ /* x231528 */ /* x231531 */ /* x231530 */ /* x231533 */ /* x231532 */ /* x231535 */ /* x231534 */ /* x231537 */ /* x231536 */ /* x231539 */ /* x231538 */ /* x231541 */ /* x231540 */ /* x231543 */ /* x231542 */ /* x231545 */ /* x231544 */ /* x231547 */ /* x231546 */ /* x231549 */ /* x231548 */ /* x231551 */ /* x231550 */ /* x231553 */ /* x231552 */ /* x231555 */ /* x231554 */ /* x231557 */ /* x231556 */ /* x231559 */ /* x231558 */ /* x231561 */ /* x231560 */ /* x231563 */ /* x231562 */ /* x231565 */ /* x231564 */ /* x231567 */ /* x231566 */ /* x231569 */ /* x231568 */ /* x231571 */ /* x231570 */ /* x231573 */ /* x231572 */ /* x231575 */ /* x231574 */ /* x231577 */ /* x231576 */ /* x231579 */ /* x231578 */ /* x231581 */ /* x231580 */ /* x231583 */ /* x231582 */ /* x231585 */ /* x231584 */ /* x231587 */ /* x231586 */ /* x231589 */ /* x231588 */ /* x231591 */ /* x231590 */ /* x231593 */ /* x231592 */ /* x231595 */ /* x231594 */ /* x231597 */ /* x231596 */ /* x231599 */ /* x231598 */ /* x231601 */ /* x231600 */ /* x231603 */ /* x231602 */ /* x231605 */ /* x231604 */ /* x231607 */ /* x231606 */ /* x231609 */ /* x231608 */ /* x231611 */ /* x231610 */ /* x231613 */ /* x231612 */ /* x231615 */ /* x231614 */ /* x231617 */ /* x231616 */ /* x231619 */ /* x231618 */ /* x231621 */ /* x231620 */ /* x231623 */ /* x231622 */ /* x231625 */ /* x231624 */ /* x231627 */ /* x231626 */ /* x231629 */ /* x231628 */ /* x231631 */ /* x231630 */ /* x231633 */ /* x231632 */ /* x231635 */ /* x231634 */ /* x231637 */ /* x231636 */ /* x231639 */ /* x231638 */ /* x231641 */ /* x231640 */ /* x231643 */ /* x231642 */ /* x231645 */ /* x231644 */ /* x231647 */ /* x231646 */ /* x231649 */ /* x231648 */ /* x231651 */ /* x231650 */ /* x231653 */ /* x231652 */ /* x231655 */ /* x231654 */ /* x231657 */ /* x231656 */ /* x231659 */ /* x231658 */ /* x231661 */ /* x231660 */ /* x231663 */ /* x231662 */ /* x231665 */ /* x231664 */ /* x231667 */ /* x231666 */ /* x231669 */ /* x231668 */ /* x231671 */ /* x231670 */ /* x231673 */ /* x231672 */ /* x231675 */ /* x231674 */ /* x231677 */ /* x231676 */ /* x231679 */ /* x231678 */ /* x231681 */ /* x231680 */ /* x231683 */ /* x231682 */ /* x231685 */ /* x231684 */ /* x231687 */ /* x231686 */ /* x231689 */ /* x231688 */ /* x231691 */ /* x231690 */ /* x231693 */ /* x231692 */ /* x231695 */ /* x231694 */ /* x231697 */ /* x231696 */ /* x231699 */ /* x231698 */ /* x231701 */ /* x231700 */ /* x231703 */ /* x231702 */ /* x231705 */ /* x231704 */ /* x231707 */ /* x231706 */ /* x231709 */ /* x231708 */ /* x231711 */ /* x231710 */ /* x231713 */ /* x231712 */ /* x231715 */ /* x231714 */ /* x231717 */ /* x231716 */ /* x231719 */ /* x231718 */ /* x231721 */ /* x231720 */ /* x231723 */ /* x231722 */ /* x231725 */ /* x231724 */ /* x231727 */ /* x231726 */ /* x231729 */ /* x231728 */ /* x231731 */ /* x231730 */ /* x231733 */ /* x231732 */ /* x231735 */ /* x231734 */ /* x231737 */ /* x231736 */ /* x231739 */ /* x231738 */ /* x231741 */ /* x231740 */ /* x231743 */ /* x231742 */ /* x231745 */ /* x231744 */ /* x231747 */ /* x231746 */ /* x231749 */ /* x231748 */ /* x231751 */ /* x231750 */ /* x231753 */ /* x231752 */ /* x231755 */ /* x231754 */ /* x231757 */ /* x231756 */ /* x231759 */ /* x231758 */ /* x231761 */ /* x231760 */ /* x231763 */ /* x231762 */ /* x231765 */ /* x231764 */ /* x231767 */ /* x231766 */ /* x231769 */ /* x231768 */ /* x231771 */ /* x231770 */ /* x231773 */ /* x231772 */ /* x231775 */ /* x231774 */ /* x231777 */ /* x231776 */ /* x231779 */ /* x231778 */ /* x231781 */ /* x231780 */ /* x231783 */ /* x231782 */ /* x231785 */ /* x231784 */ /* x231787 */ /* x231786 */ /* x231789 */ /* x231788 */ /* x231791 */ /* x231790 */ /* x231793 */ /* x231792 */ /* x231795 */ /* x231794 */ /* x231797 */ /* x231796 */ /* x231799 */ /* x231798 */ /* x231801 */ /* x231800 */ /* x231803 */ /* x231802 */ /* x231805 */ /* x231804 */ /* x231807 */ /* x231806 */ /* x231809 */ /* x231808 */ /* x231811 */ /* x231810 */ /* x231813 */ /* x231812 */ /* x231815 */ /* x231814 */ /* x231817 */ /* x231816 */ /* x231819 */ /* x231818 */ /* x231821 */ /* x231820 */ /* x231823 */ /* x231822 */ /* x231825 */ /* x231824 */ /* x231827 */ /* x231826 */ /* x231829 */ /* x231828 */ /* x231831 */ /* x231830 */ /* x231833 */ /* x231832 */ /* x231835 */ /* x231834 */ /* x231837 */ /* x231836 */ /* x231839 */ /* x231838 */ /* x231841 */ /* x231840 */ /* x231843 */ /* x231842 */ /* x231845 */ /* x231844 */ /* x231847 */ /* x231846 */ /* x231849 */ /* x231848 */ /* x231851 */ /* x231850 */ /* x231853 */ /* x231852 */ /* x231855 */ /* x231854 */ /* x231857 */ /* x231856 */ /* x231859 */ /* x231858 */ /* x231861 */ /* x231860 */ /* x231863 */ /* x231862 */ /* x231865 */ /* x231864 */ /* x231867 */ /* x231866 */ /* x231869 */ /* x231868 */ /* x231871 */ /* x231870 */ /* x231873 */ /* x231872 */ /* x231875 */ /* x231874 */ /* x231877 */ /* x231876 */ /* x231879 */ /* x231878 */ /* x231881 */ /* x231880 */ /* x231883 */ /* x231882 */ /* x231885 */ /* x231884 */ /* x231887 */ /* x231886 */ /* x231889 */ /* x231888 */ /* x231891 */ /* x231890 */ /* x231893 */ /* x231892 */ /* x231895 */ /* x231894 */ /* x231897 */ /* x231896 */ /* x231899 */ /* x231898 */ /* x231901 */ /* x231900 */ /* x231903 */ /* x231902 */ /* x231905 */ /* x231904 */ /* x231907 */ /* x231906 */ /* x231909 */ /* x231908 */ /* x231911 */ /* x231910 */ /* x231913 */ /* x231912 */ /* x231915 */ /* x231914 */ /* x231917 */ /* x231916 */ /* x231919 */ /* x231918 */ /* x231921 */ /* x231920 */ /* x231923 */ /* x231922 */ /* x231925 */ /* x231924 */ /* x231927 */ /* x231926 */ /* x231929 */ /* x231928 */ /* x231931 */ /* x231930 */ /* x231933 */ /* x231932 */ /* x231935 */ /* x231934 */ /* x231937 */ /* x231936 */ /* x231939 */ /* x231938 */ /* x231941 */ /* x231940 */ /* x231943 */ /* x231942 */ /* x231945 */ /* x231944 */ /* x231947 */ /* x231946 */ /* x231949 */ /* x231948 */ /* x231951 */ /* x231950 */ /* x231953 */ /* x231952 */ /* x231955 */ /* x231954 */ /* x231957 */ /* x231956 */ /* x231959 */ /* x231958 */ /* x231961 */ /* x231960 */ /* x231963 */ /* x231962 */ /* x231965 */ /* x231964 */ /* x231967 */ /* x231966 */ /* x231969 */ /* x231968 */ /* x231971 */ /* x231970 */ /* x231973 */ /* x231972 */ /* x231975 */ /* x231974 */ /* x231977 */ /* x231976 */ /* x231979 */ /* x231978 */ /* x231981 */ /* x231980 */ /* x231983 */ /* x231982 */ /* x231985 */ /* x231984 */ /* x231987 */ /* x231986 */ /* x231989 */ /* x231988 */ /* x231991 */ /* x231990 */ /* x231993 */ /* x231992 */ /* x231995 */ /* x231994 */ /* x231997 */ /* x231996 */ /* x231999 */ /* x231998 */ /* x232001 */ /* x232000 */ /* x232003 */ /* x232002 */ /* x232005 */ /* x232004 */ /* x232007 */ /* x232006 */ /* x232009 */ /* x232008 */ /* x232011 */ /* x232010 */ /* x232013 */ /* x232012 */ /* x232015 */ /* x232014 */ /* x232017 */ /* x232016 */ /* x232019 */ /* x232018 */ /* x232021 */ /* x232020 */ /* x232023 */ /* x232022 */ /* x232025 */ /* x232024 */ /* x232027 */ /* x232026 */ /* x232029 */ /* x232028 */ /* x232031 */ /* x232030 */ /* x232033 */ /* x232032 */ /* x232035 */ /* x232034 */ /* x232037 */ /* x232036 */ /* x232039 */ /* x232038 */ /* x232041 */ /* x232040 */ /* x232043 */ /* x232042 */ /* x232045 */ /* x232044 */ /* x232047 */ /* x232046 */ /* x232049 */ /* x232048 */ /* x232051 */ /* x232050 */ /* x232053 */ /* x232052 */ /* x232055 */ /* x232054 */ /* x232057 */ /* x232056 */ /* x232059 */ /* x232058 */ /* x232061 */ /* x232060 */ /* x232063 */ /* x232062 */ /* x232065 */ /* x232064 */ /* x232067 */ /* x232066 */ /* x232069 */ /* x232068 */ /* x232071 */ /* x232070 */ /* x232073 */ /* x232072 */ /* x232075 */ /* x232074 */ /* x232077 */ /* x232076 */ /* x232079 */ /* x232078 */ /* x232081 */ /* x232080 */ /* x232083 */ /* x232082 */ /* x232085 */ /* x232084 */ /* x232087 */ /* x232086 */ /* x232089 */ /* x232088 */ /* x232091 */ /* x232090 */ /* x232093 */ /* x232092 */ /* x232095 */ /* x232094 */ /* x232097 */ /* x232096 */ /* x232099 */ /* x232098 */ /* x232101 */ /* x232100 */ /* x232103 */ /* x232102 */ /* x232105 */ /* x232104 */ /* x232107 */ /* x232106 */ /* x232109 */ /* x232108 */ /* x232111 */ /* x232110 */ /* x232113 */ /* x232112 */ /* x232115 */ /* x232114 */ /* x232117 */ /* x232116 */ /* x232119 */ /* x232118 */ /* x232121 */ /* x232120 */ /* x232123 */ /* x232122 */ /* x232125 */ /* x232124 */ /* x232127 */ /* x232126 */ /* x232129 */ /* x232128 */ /* x232131 */ /* x232130 */ /* x232133 */ /* x232132 */ /* x232135 */ /* x232134 */ /* x232137 */ /* x232136 */ /* x232139 */ /* x232138 */ /* x232141 */ /* x232140 */ /* x232143 */ /* x232142 */ /* x232145 */ /* x232144 */ /* x232147 */ /* x232146 */ /* x232149 */ /* x232148 */ /* x232151 */ /* x232150 */ /* x232153 */ /* x232152 */ /* x232155 */ /* x232154 */ /* x232157 */ /* x232156 */ /* x232159 */ /* x232158 */ /* x232161 */ /* x232160 */ /* x232163 */ /* x232162 */ /* x232165 */ /* x232164 */ /* x232167 */ /* x232166 */ /* x232169 */ /* x232168 */ /* x232171 */ /* x232170 */ /* x232173 */ /* x232172 */ /* x232175 */ /* x232174 */ /* x232177 */ /* x232176 */ /* x232179 */ /* x232178 */ /* x232181 */ /* x232180 */ /* x232183 */ /* x232182 */ /* x232185 */ /* x232184 */ /* x232187 */ /* x232186 */ /* x232189 */ /* x232188 */ /* x232191 */ /* x232190 */ /* x232193 */ /* x232192 */ /* x232195 */ /* x232194 */ /* x232197 */ /* x232196 */ /* x232199 */ /* x232198 */ /* x232201 */ /* x232200 */ /* x232203 */ /* x232202 */ /* x232205 */ /* x232204 */ /* x232207 */ /* x232206 */ /* x232209 */ /* x232208 */ /* x232211 */ /* x232210 */ /* x232213 */ /* x232212 */ /* x232215 */ /* x232214 */ /* x232217 */ /* x232216 */ /* x232219 */ /* x232218 */ /* x232221 */ /* x232220 */ /* x232223 */ /* x232222 */ /* x232225 */ /* x232224 */ /* x232227 */ /* x232226 */ /* x232229 */ /* x232228 */ /* x232231 */ /* x232230 */ /* x232233 */ /* x232232 */ /* x232235 */ /* x232234 */ /* x232237 */ /* x232236 */ /* x232239 */ /* x232238 */ /* x232241 */ /* x232240 */ /* x232243 */ /* x232242 */ /* x232245 */ /* x232244 */ /* x232247 */ /* x232246 */ /* x232249 */ /* x232248 */ /* x232251 */ /* x232250 */ /* x232253 */ /* x232252 */ /* x232255 */ /* x232254 */ /* x232257 */ /* x232256 */ /* x232259 */ /* x232258 */ /* x232261 */ /* x232260 */ /* x232263 */ /* x232262 */ /* x232265 */ /* x232264 */ /* x232267 */ /* x232266 */ /* x232269 */ /* x232268 */ /* x232271 */ /* x232270 */ /* x232273 */ /* x232272 */ /* x232275 */ /* x232274 */ /* x232277 */ /* x232276 */ /* x232279 */ /* x232278 */ /* x232281 */ /* x232280 */ /* x232283 */ /* x232282 */ /* x232285 */ /* x232284 */ /* x232287 */ /* x232286 */ /* x232289 */ /* x232288 */ /* x232291 */ /* x232290 */ /* x232293 */ /* x232292 */ /* x232295 */ /* x232294 */ /* x232297 */ /* x232296 */ /* x232299 */ /* x232298 */ /* x232301 */ /* x232300 */ /* x232303 */ /* x232302 */ /* x232305 */ /* x232304 */ /* x232307 */ /* x232306 */ /* x232309 */ /* x232308 */ /* x232311 */ /* x232310 */ /* x232313 */ /* x232312 */ /* x232315 */ /* x232314 */ /* x232317 */ /* x232316 */ /* x232319 */ /* x232318 */ /* x232321 */ /* x232320 */ /* x232323 */ /* x232322 */ /* x232325 */ /* x232324 */ /* x232327 */ /* x232326 */ /* x232329 */ /* x232328 */ /* x232331 */ /* x232330 */ /* x232333 */ /* x232332 */ /* x232335 */ /* x232334 */ /* x232337 */ /* x232336 */ /* x232339 */ /* x232338 */ /* x232341 */ /* x232340 */ /* x232343 */ /* x232342 */ /* x232345 */ /* x232344 */ /* x232347 */ /* x232346 */ /* x232349 */ /* x232348 */ /* x232351 */ /* x232350 */ /* x232353 */ /* x232352 */ /* x232355 */ /* x232354 */ /* x232357 */ /* x232356 */ /* x232359 */ /* x232358 */ /* x232361 */ /* x232360 */ /* x232363 */ /* x232362 */ /* x232365 */ /* x232364 */ /* x232367 */ /* x232366 */ /* x232369 */ /* x232368 */ /* x232371 */ /* x232370 */ /* x232373 */ /* x232372 */ /* x232375 */ /* x232374 */ /* x232377 */ /* x232376 */ /* x232379 */ /* x232378 */ /* x232381 */ /* x232380 */ /* x232383 */ /* x232382 */ /* x232385 */ /* x232384 */ /* x232387 */ /* x232386 */ /* x232389 */ /* x232388 */ /* x232391 */ /* x232390 */ /* x232393 */ /* x232392 */ /* x232395 */ /* x232394 */ /* x232397 */ /* x232396 */ /* x232399 */ /* x232398 */ /* x232401 */ /* x232400 */ /* x232403 */ /* x232402 */ /* x232405 */ /* x232404 */ /* x232407 */ /* x232406 */ /* x232409 */ /* x232408 */ /* x232411 */ /* x232410 */ /* x232413 */ /* x232412 */ /* x232415 */ /* x232414 */ /* x232417 */ /* x232416 */ /* x232419 */ /* x232418 */ /* x232421 */ /* x232420 */ /* x232423 */ /* x232422 */ /* x232425 */ /* x232424 */ /* x232427 */ /* x232426 */ /* x232429 */ /* x232428 */ /* x232431 */ /* x232430 */ /* x232433 */ /* x232432 */ /* x232435 */ /* x232434 */ /* x232437 */ /* x232436 */ /* x232439 */ /* x232438 */ /* x232441 */ /* x232440 */ /* x232443 */ /* x232442 */ /* x232445 */ /* x232444 */ /* x232447 */ /* x232446 */ /* x232449 */ /* x232448 */ /* x232451 */ /* x232450 */ /* x232453 */ /* x232452 */ /* x232455 */ /* x232454 */ /* x232457 */ /* x232456 */ /* x232459 */ /* x232458 */ /* x232461 */ /* x232460 */ /* x232463 */ /* x232462 */ /* x232465 */ /* x232464 */ /* x232467 */ /* x232466 */ /* x232469 */ /* x232468 */ /* x232471 */ /* x232470 */ /* x232473 */ /* x232472 */ /* x232475 */ /* x232474 */ /* x232477 */ /* x232476 */ /* x232479 */ /* x232478 */ /* x232481 */ /* x232480 */ /* x232483 */ /* x232482 */ /* x232485 */ /* x232484 */ /* x232487 */ /* x232486 */ /* x232489 */ /* x232488 */ /* x232491 */ /* x232490 */ /* x232493 */ /* x232492 */ /* x232495 */ /* x232494 */ /* x232497 */ /* x232496 */ /* x232499 */ /* x232498 */ /* x232501 */ /* x232500 */ /* x232503 */ /* x232502 */ /* x232505 */ /* x232504 */ /* x232507 */ /* x232506 */ /* x232509 */ /* x232508 */ /* x232511 */ /* x232510 */ /* x232513 */ /* x232512 */ /* x232515 */ /* x232514 */ /* x232517 */ /* x232516 */ /* x232519 */ /* x232518 */ /* x232521 */ /* x232520 */ /* x232523 */ /* x232522 */ /* x232525 */ /* x232524 */ /* x232527 */ /* x232526 */ /* x232529 */ /* x232528 */ /* x232531 */ /* x232530 */ /* x232533 */ /* x232532 */ /* x232535 */ /* x232534 */ /* x232537 */ /* x232536 */ /* x232539 */ /* x232538 */ /* x232541 */ /* x232540 */ /* x232543 */ /* x232542 */ /* x232545 */ /* x232544 */ /* x232547 */ /* x232546 */ /* x232549 */ /* x232548 */ /* x232551 */ /* x232550 */ /* x232553 */ /* x232552 */ /* x232555 */ /* x232554 */ /* x232557 */ /* x232556 */ /* x232559 */ /* x232558 */ /* x232561 */ /* x232560 */ /* x232563 */ /* x232562 */ /* x232565 */ /* x232564 */ /* x232567 */ /* x232566 */ /* x232569 */ /* x232568 */ /* x232571 */ /* x232570 */ /* x232573 */ /* x232572 */ /* x232575 */ /* x232574 */ /* x232577 */ /* x232576 */ /* x232579 */ /* x232578 */ /* x232581 */ /* x232580 */ /* x232583 */ /* x232582 */ /* x232585 */ /* x232584 */ /* x232587 */ /* x232586 */ /* x232589 */ /* x232588 */ /* x232591 */ /* x232590 */ /* x232593 */ /* x232592 */ /* x232595 */ /* x232594 */ /* x232597 */ /* x232596 */ /* x232599 */ /* x232598 */ /* x232601 */ /* x232600 */ /* x232603 */ /* x232602 */ /* x232605 */ /* x232604 */ /* x232607 */ /* x232606 */ /* x232609 */ /* x232608 */ /* x232611 */ /* x232610 */ /* x232613 */ /* x232612 */ /* x232615 */ /* x232614 */ /* x232617 */ /* x232616 */ /* x232619 */ /* x232618 */ /* x232621 */ /* x232620 */ /* x232623 */ /* x232622 */ /* x232625 */ /* x232624 */ /* x232627 */ /* x232626 */ /* x232629 */ /* x232628 */ /* x232631 */ /* x232630 */ /* x232633 */ /* x232632 */ /* x232635 */ /* x232634 */ /* x232637 */ /* x232636 */ /* x232639 */ /* x232638 */ /* x232641 */ /* x232640 */ /* x232643 */ /* x232642 */ /* x232645 */ /* x232644 */ /* x232647 */ /* x232646 */ /* x232649 */ /* x232648 */ /* x232651 */ /* x232650 */ /* x232653 */ /* x232652 */ /* x232655 */ /* x232654 */ /* x232657 */ /* x232656 */ /* x232659 */ /* x232658 */ /* x232661 */ /* x232660 */ /* x232663 */ /* x232662 */ /* x232665 */ /* x232664 */ /* x232667 */ /* x232666 */ /* x232669 */ /* x232668 */ /* x232671 */ /* x232670 */ /* x232673 */ /* x232672 */ /* x232675 */ /* x232674 */ /* x232677 */ /* x232676 */ /* x232679 */ /* x232678 */ /* x232681 */ /* x232680 */ /* x232683 */ /* x232682 */ /* x232685 */ /* x232684 */ /* x232687 */ /* x232686 */ /* x232689 */ /* x232688 */ /* x232691 */ /* x232690 */ /* x232693 */ /* x232692 */ /* x232695 */ /* x232694 */ /* x232697 */ /* x232696 */ /* x232699 */ /* x232698 */ /* x232701 */ /* x232700 */ /* x232703 */ /* x232702 */ /* x232705 */ /* x232704 */ /* x232707 */ /* x232706 */ /* x232709 */ /* x232708 */ /* x232711 */ /* x232710 */ /* x232713 */ /* x232712 */ /* x232715 */ /* x232714 */ /* x232717 */ /* x232716 */ /* x232719 */ /* x232718 */ /* x232721 */ /* x232720 */ /* x232723 */ /* x232722 */ /* x232725 */ /* x232724 */ /* x232727 */ /* x232726 */ /* x232729 */ /* x232728 */ /* x232731 */ /* x232730 */ /* x232733 */ /* x232732 */ /* x232735 */ /* x232734 */ /* x232737 */ /* x232736 */ /* x232739 */ /* x232738 */ /* x232741 */ /* x232740 */ /* x232743 */ /* x232742 */ /* x232745 */ /* x232744 */ /* x232747 */ /* x232746 */ /* x232749 */ /* x232748 */ /* x232751 */ /* x232750 */ /* x232753 */ /* x232752 */ /* x232755 */ /* x232754 */ /* x232757 */ /* x232756 */ /* x232759 */ /* x232758 */ /* x232761 */ /* x232760 */ /* x232763 */ /* x232762 */ /* x232765 */ /* x232764 */ /* x232767 */ /* x232766 */ /* x232769 */ /* x232768 */ /* x232771 */ /* x232770 */ /* x232773 */ /* x232772 */ /* x232775 */ /* x232774 */ /* x232777 */ /* x232776 */ /* x232779 */ /* x232778 */ /* x232781 */ /* x232780 */ /* x232783 */ /* x232782 */ /* x232785 */ /* x232784 */ /* x232787 */ /* x232786 */ /* x232789 */ /* x232788 */ /* x232791 */ /* x232790 */ /* x232793 */ /* x232792 */ /* x232795 */ /* x232794 */ /* x232797 */ /* x232796 */ /* x232799 */ /* x232798 */ /* x232801 */ /* x232800 */ /* x232803 */ /* x232802 */ /* x232805 */ /* x232804 */ /* x232807 */ /* x232806 */ /* x232809 */ /* x232808 */ /* x232811 */ /* x232810 */ /* x232813 */ /* x232812 */ /* x232815 */ /* x232814 */ /* x232817 */ /* x232816 */ /* x232819 */ /* x232818 */ /* x232821 */ /* x232820 */ /* x232823 */ /* x232822 */ /* x232825 */ /* x232824 */ /* x232827 */ /* x232826 */ /* x232829 */ /* x232828 */ /* x232831 */ /* x232830 */ /* x232833 */ /* x232832 */ /* x232835 */ /* x232834 */ /* x232837 */ /* x232836 */ /* x232839 */ /* x232838 */ /* x232841 */ /* x232840 */ /* x232843 */ /* x232842 */ /* x232845 */ /* x232844 */ /* x232847 */ /* x232846 */ /* x232849 */ /* x232848 */ /* x232851 */ /* x232850 */ /* x232853 */ /* x232852 */ /* x232855 */ /* x232854 */ /* x232857 */ /* x232856 */ /* x232859 */ /* x232858 */ /* x232861 */ /* x232860 */ /* x232863 */ /* x232862 */ /* x232865 */ /* x232864 */ /* x232867 */ /* x232866 */ /* x232869 */ /* x232868 */ /* x232871 */ /* x232870 */ /* x232873 */ /* x232872 */ /* x232875 */ /* x232874 */ /* x232877 */ /* x232876 */ /* x232879 */ /* x232878 */ /* x232881 */ /* x232880 */ /* x232883 */ /* x232882 */ /* x232885 */ /* x232884 */ /* x232887 */ /* x232886 */ /* x232889 */ /* x232888 */ /* x232891 */ /* x232890 */ /* x232893 */ /* x232892 */ /* x232895 */ /* x232894 */ /* x232897 */ /* x232896 */ /* x232899 */ /* x232898 */ /* x232901 */ /* x232900 */ /* x232903 */ /* x232902 */ /* x232905 */ /* x232904 */ /* x232907 */ /* x232906 */ /* x232909 */ /* x232908 */ /* x232911 */ /* x232910 */ /* x232913 */ /* x232912 */ /* x232915 */ /* x232914 */ /* x232917 */ /* x232916 */ /* x232919 */ /* x232918 */ /* x232921 */ /* x232920 */ /* x232923 */ /* x232922 */ /* x232925 */ /* x232924 */ /* x232927 */ /* x232926 */ /* x232929 */ /* x232928 */ /* x232931 */ /* x232930 */ /* x232933 */ /* x232932 */ /* x232935 */ /* x232934 */ /* x232937 */ /* x232936 */ /* x232939 */ /* x232938 */ /* x232941 */ /* x232940 */ /* x232943 */ /* x232942 */ /* x232945 */ /* x232944 */ /* x232947 */ /* x232946 */ /* x232949 */ /* x232948 */ /* x232951 */ /* x232950 */ /* x232953 */ /* x232952 */ /* x232955 */ /* x232954 */ /* x232957 */ /* x232956 */ /* x232959 */ /* x232958 */ /* x232961 */ /* x232960 */ /* x232963 */ /* x232962 */ /* x232965 */ /* x232964 */ /* x232967 */ /* x232966 */ /* x232969 */ /* x232968 */ /* x232971 */ /* x232970 */ /* x232973 */ /* x232972 */ /* x232975 */ /* x232974 */ /* x232977 */ /* x232976 */ /* x232979 */ /* x232978 */ /* x232981 */ /* x232980 */ /* x232983 */ /* x232982 */ /* x232985 */ /* x232984 */ /* x232987 */ /* x232986 */ /* x232989 */ /* x232988 */ /* x232991 */ /* x232990 */ /* x232993 */ /* x232992 */ /* x232995 */ /* x232994 */ /* x232997 */ /* x232996 */ /* x232999 */ /* x232998 */ /* x233001 */ /* x233000 */ /* x233003 */ /* x233002 */ /* x233005 */ /* x233004 */ /* x233007 */ /* x233006 */ /* x233009 */ /* x233008 */ /* x233011 */ /* x233010 */ /* x233013 */ /* x233012 */ /* x233015 */ /* x233014 */ /* x233017 */ /* x233016 */ /* x233019 */ /* x233018 */ /* x233021 */ /* x233020 */ /* x233023 */ /* x233022 */ /* x233025 */ /* x233024 */ /* x233027 */ /* x233026 */ /* x233029 */ /* x233028 */ /* x233031 */ /* x233030 */ /* x233033 */ /* x233032 */ /* x233035 */ /* x233034 */ /* x233037 */ /* x233036 */ /* x233039 */ /* x233038 */ /* x233041 */ /* x233040 */ /* x233043 */ /* x233042 */ /* x233045 */ /* x233044 */ /* x233047 */ /* x233046 */ /* x233049 */ /* x233048 */ /* x233051 */ /* x233050 */ /* x233053 */ /* x233052 */ /* x233055 */ /* x233054 */ /* x233057 */ /* x233056 */ /* x233059 */ /* x233058 */ /* x233061 */ /* x233060 */ /* x233063 */ /* x233062 */ /* x233065 */ /* x233064 */ /* x233067 */ /* x233066 */ /* x233069 */ /* x233068 */ /* x233071 */ /* x233070 */ /* x233073 */ /* x233072 */ /* x233075 */ /* x233074 */ /* x233077 */ /* x233076 */ /* x233079 */ /* x233078 */ /* x233081 */ /* x233080 */ /* x233083 */ /* x233082 */ /* x233085 */ /* x233084 */ /* x233087 */ /* x233086 */ /* x233089 */ /* x233088 */ /* x233091 */ /* x233090 */ /* x233093 */ /* x233092 */ /* x233095 */ /* x233094 */ /* x233097 */ /* x233096 */ /* x233099 */ /* x233098 */ /* x233101 */ /* x233100 */ /* x233103 */ /* x233102 */ /* x233105 */ /* x233104 */ /* x233107 */ /* x233106 */ /* x233109 */ /* x233108 */ /* x233111 */ /* x233110 */ /* x233113 */ /* x233112 */ /* x233115 */ /* x233114 */ /* x233117 */ /* x233116 */ /* x233119 */ /* x233118 */ /* x233121 */ /* x233120 */ /* x233123 */ /* x233122 */ /* x233125 */ /* x233124 */ /* x233127 */ /* x233126 */ /* x233129 */ /* x233128 */ /* x233131 */ /* x233130 */ /* x233133 */ /* x233132 */ /* x233135 */ /* x233134 */ /* x233137 */ /* x233136 */ /* x233139 */ /* x233138 */ /* x233141 */ /* x233140 */ /* x233143 */ /* x233142 */ /* x233145 */ /* x233144 */ /* x233147 */ /* x233146 */ /* x233149 */ /* x233148 */ /* x233151 */ /* x233150 */ /* x233153 */ /* x233152 */ /* x233155 */ /* x233154 */ /* x233157 */ /* x233156 */ /* x233159 */ /* x233158 */ /* x233161 */ /* x233160 */ /* x233163 */ /* x233162 */ /* x233165 */ /* x233164 */ /* x233167 */ /* x233166 */ /* x233169 */ /* x233168 */ /* x233171 */ /* x233170 */ /* x233173 */ /* x233172 */ /* x233175 */ /* x233174 */ /* x233177 */ /* x233176 */ /* x233179 */ /* x233178 */ /* x233181 */ /* x233180 */ /* x233183 */ /* x233182 */ /* x233185 */ /* x233184 */ /* x233187 */ /* x233186 */ /* x233189 */ /* x233188 */ /* x233191 */ /* x233190 */ /* x233193 */ /* x233192 */ /* x233195 */ /* x233194 */ /* x233197 */ /* x233196 */ /* x233199 */ /* x233198 */ /* x233201 */ /* x233200 */ /* x233203 */ /* x233202 */ /* x233205 */ /* x233204 */ /* x233207 */ /* x233206 */ /* x233209 */ /* x233208 */ /* x233211 */ /* x233210 */ /* x233213 */ /* x233212 */ /* x233215 */ /* x233214 */ /* x233217 */ /* x233216 */ /* x233219 */ /* x233218 */ /* x233221 */ /* x233220 */ /* x233223 */ /* x233222 */ /* x233225 */ /* x233224 */ /* x233227 */ /* x233226 */ /* x233229 */ /* x233228 */ /* x233231 */ /* x233230 */ /* x233233 */ /* x233232 */ /* x233235 */ /* x233234 */ /* x233237 */ /* x233236 */ /* x233239 */ /* x233238 */ /* x233241 */ /* x233240 */ /* x233243 */ /* x233242 */ /* x233245 */ /* x233244 */ /* x233247 */ /* x233246 */ /* x233249 */ /* x233248 */ /* x233251 */ /* x233250 */ /* x233253 */ /* x233252 */ /* x233255 */ /* x233254 */ /* x233257 */ /* x233256 */ /* x233259 */ /* x233258 */ /* x233261 */ /* x233260 */ /* x233263 */ /* x233262 */ /* x233265 */ /* x233264 */ /* x233267 */ /* x233266 */ /* x233269 */ /* x233268 */ /* x233271 */ /* x233270 */ /* x233273 */ /* x233272 */ /* x233275 */ /* x233274 */ /* x233277 */ /* x233276 */ /* x233279 */ /* x233278 */ /* x233281 */ /* x233280 */ /* x233283 */ /* x233282 */ /* x233285 */ /* x233284 */ /* x233287 */ /* x233286 */ /* x233289 */ /* x233288 */ /* x233291 */ /* x233290 */ /* x233293 */ /* x233292 */ /* x233295 */ /* x233294 */ /* x233297 */ /* x233296 */ /* x233299 */ /* x233298 */ /* x233301 */ /* x233300 */ /* x233303 */ /* x233302 */ /* x233305 */ /* x233304 */ /* x233307 */ /* x233306 */ /* x233309 */ /* x233308 */ /* x233311 */ /* x233310 */ /* x233313 */ /* x233312 */ /* x233315 */ /* x233314 */ /* x233317 */ /* x233316 */ /* x233319 */ /* x233318 */ /* x233321 */ /* x233320 */ /* x233323 */ /* x233322 */ /* x233325 */ /* x233324 */ /* x233327 */ /* x233326 */ /* x233329 */ /* x233328 */ /* x233331 */ /* x233330 */ /* x233333 */ /* x233332 */ /* x233335 */ /* x233334 */ /* x233337 */ /* x233336 */ /* x233339 */ /* x233338 */ /* x233341 */ /* x233340 */ /* x233343 */ /* x233342 */ /* x233345 */ /* x233344 */ /* x233347 */ /* x233346 */ /* x233349 */ /* x233348 */ /* x233351 */ /* x233350 */ /* x233353 */ /* x233352 */ /* x233355 */ /* x233354 */ /* x233357 */ /* x233356 */ /* x233359 */ /* x233358 */ /* x233361 */ /* x233360 */ /* x233363 */ /* x233362 */ /* x233365 */ /* x233364 */ /* x233367 */ /* x233366 */ /* x233369 */ /* x233368 */ /* x233371 */ /* x233370 */ /* x233373 */ /* x233372 */ /* x233375 */ /* x233374 */ /* x233377 */ /* x233376 */ /* x233379 */ /* x233378 */ /* x233381 */ /* x233380 */ /* x233383 */ /* x233382 */ /* x233385 */ /* x233384 */ /* x233387 */ /* x233386 */ /* x233389 */ /* x233388 */ /* x233391 */ /* x233390 */ /* x233393 */ /* x233392 */ /* x233395 */ /* x233394 */ /* x233397 */ /* x233396 */ /* x233399 */ /* x233398 */ /* x233401 */ /* x233400 */ /* x233403 */ /* x233402 */ /* x233405 */ /* x233404 */ /* x233407 */ /* x233406 */ /* x233409 */ /* x233408 */ /* x233411 */ /* x233410 */ /* x233413 */ /* x233412 */ /* x233415 */ /* x233414 */ /* x233417 */ /* x233416 */ /* x233419 */ /* x233418 */ /* x233421 */ /* x233420 */ /* x233423 */ /* x233422 */ /* x233425 */ /* x233424 */ /* x233427 */ /* x233426 */ /* x233429 */ /* x233428 */ /* x233431 */ /* x233430 */ /* x233433 */ /* x233432 */ /* x233435 */ /* x233434 */ /* x233437 */ /* x233436 */ /* x233439 */ /* x233438 */ /* x233441 */ /* x233440 */ /* x233443 */ /* x233442 */ /* x233445 */ /* x233444 */ /* x233447 */ /* x233446 */ /* x233449 */ /* x233448 */ /* x233451 */ /* x233450 */ /* x233453 */ /* x233452 */ /* x233455 */ /* x233454 */ /* x233457 */ /* x233456 */ /* x233459 */ /* x233458 */ /* x233461 */ /* x233460 */ /* x233463 */ /* x233462 */ /* x233465 */ /* x233464 */ /* x233467 */ /* x233466 */ /* x233469 */ /* x233468 */ /* x233471 */ /* x233470 */ /* x233473 */ /* x233472 */ /* x233475 */ /* x233474 */ /* x233477 */ /* x233476 */ /* x233479 */ /* x233478 */ /* x233481 */ /* x233480 */ /* x233483 */ /* x233482 */ /* x233485 */ /* x233484 */ /* x233487 */ /* x233486 */ /* x233489 */ /* x233488 */ /* x233491 */ /* x233490 */ /* x233493 */ /* x233492 */ /* x233495 */ /* x233494 */ /* x233497 */ /* x233496 */ /* x233499 */ /* x233498 */ /* x233501 */ /* x233500 */ /* x233503 */ /* x233502 */ /* x233505 */ /* x233504 */ /* x233507 */ /* x233506 */ /* x233509 */ /* x233508 */ /* x233511 */ /* x233510 */ /* x233513 */ /* x233512 */ /* x233515 */ /* x233514 */ /* x233517 */ /* x233516 */ /* x233519 */ /* x233518 */ /* x233521 */ /* x233520 */ /* x233523 */ /* x233522 */ /* x233525 */ /* x233524 */ /* x233527 */ /* x233526 */ /* x233529 */ /* x233528 */ /* x233531 */ /* x233530 */ /* x233533 */ /* x233532 */ /* x233535 */ /* x233534 */ /* x233537 */ /* x233536 */ /* x233539 */ /* x233538 */ /* x233541 */ /* x233540 */ /* x233543 */ /* x233542 */ /* x233545 */ /* x233544 */ /* x233547 */ /* x233546 */ /* x233549 */ /* x233548 */ /* x233551 */ /* x233550 */ /* x233553 */ /* x233552 */ /* x233555 */ /* x233554 */ /* x233557 */ /* x233556 */ /* x233559 */ /* x233558 */ /* x233561 */ /* x233560 */ /* x233563 */ /* x233562 */ /* x233565 */ /* x233564 */ /* x233567 */ /* x233566 */ /* x233569 */ /* x233568 */ /* x233571 */ /* x233570 */ /* x233573 */ /* x233572 */ /* x233575 */ /* x233574 */ /* x233577 */ /* x233576 */ /* x233579 */ /* x233578 */ /* x233581 */ /* x233580 */ /* x233583 */ /* x233582 */ /* x233585 */ /* x233584 */ /* x233587 */ /* x233586 */ /* x233589 */ /* x233588 */ /* x233591 */ /* x233590 */ /* x233593 */ /* x233592 */ /* x233595 */ /* x233594 */ /* x233597 */ /* x233596 */ /* x233599 */ /* x233598 */ /* x233601 */ /* x233600 */ /* x233603 */ /* x233602 */ /* x233605 */ /* x233604 */ /* x233607 */ /* x233606 */ /* x233609 */ /* x233608 */ /* x233611 */ /* x233610 */ /* x233613 */ /* x233612 */ /* x233615 */ /* x233614 */ /* x233617 */ /* x233616 */ /* x233619 */ /* x233618 */ /* x233621 */ /* x233620 */ /* x233623 */ /* x233622 */ /* x233625 */ /* x233624 */ /* x233627 */ /* x233626 */ /* x233629 */ /* x233628 */ /* x233631 */ /* x233630 */ /* x233633 */ /* x233632 */ /* x233635 */ /* x233634 */ /* x233637 */ /* x233636 */ /* x233639 */ /* x233638 */ /* x233641 */ /* x233640 */ /* x233643 */ /* x233642 */ /* x233645 */ /* x233644 */ /* x233647 */ /* x233646 */ /* x233649 */ /* x233648 */ /* x233651 */ /* x233650 */ /* x233653 */ /* x233652 */ /* x233655 */ /* x233654 */ /* x233657 */ /* x233656 */ /* x233659 */ /* x233658 */ /* x233661 */ /* x233660 */ /* x233663 */ /* x233662 */ /* x233665 */ /* x233664 */ /* x233667 */ /* x233666 */ /* x233669 */ /* x233668 */ /* x233671 */ /* x233670 */ /* x233673 */ /* x233672 */ /* x233675 */ /* x233674 */ /* x233677 */ /* x233676 */ /* x233679 */ /* x233678 */ /* x233681 */ /* x233680 */ /* x233683 */ /* x233682 */ /* x233685 */ /* x233684 */ /* x233687 */ /* x233686 */ /* x233689 */ /* x233688 */ /* x233691 */ /* x233690 */ /* x233693 */ /* x233692 */ /* x233695 */ /* x233694 */ /* x233697 */ /* x233696 */ /* x233699 */ /* x233698 */ /* x233701 */ /* x233700 */ /* x233703 */ /* x233702 */ /* x233705 */ /* x233704 */ /* x233707 */ /* x233706 */ /* x233709 */ /* x233708 */ /* x233711 */ /* x233710 */ /* x233713 */ /* x233712 */ /* x233715 */ /* x233714 */ /* x233717 */ /* x233716 */ /* x233719 */ /* x233718 */ /* x233721 */ /* x233720 */ /* x233723 */ /* x233722 */ /* x233725 */ /* x233724 */ /* x233727 */ /* x233726 */ /* x233729 */ /* x233728 */ /* x233731 */ /* x233730 */ /* x233733 */ /* x233732 */ /* x233735 */ /* x233734 */ /* x233737 */ /* x233736 */ /* x233739 */ /* x233738 */ /* x233741 */ /* x233740 */ /* x233743 */ /* x233742 */ /* x233745 */ /* x233744 */ /* x233747 */ /* x233746 */ /* x233749 */ /* x233748 */ /* x233751 */ /* x233750 */ /* x233753 */ /* x233752 */ /* x233755 */ /* x233754 */ /* x233757 */ /* x233756 */ /* x233759 */ /* x233758 */ /* x233761 */ /* x233760 */ /* x233763 */ /* x233762 */ /* x233765 */ /* x233764 */ /* x233767 */ /* x233766 */ /* x233769 */ /* x233768 */ /* x233771 */ /* x233770 */ /* x233773 */ /* x233772 */ /* x233775 */ /* x233774 */ /* x233777 */ /* x233776 */ /* x233779 */ /* x233778 */ /* x233781 */ /* x233780 */ /* x233783 */ /* x233782 */ /* x233785 */ /* x233784 */ /* x233787 */ /* x233786 */ /* x233789 */ /* x233788 */ /* x233791 */ /* x233790 */ /* x233793 */ /* x233792 */ /* x233795 */ /* x233794 */ /* x233797 */ /* x233796 */ /* x233799 */ /* x233798 */ /* x233801 */ /* x233800 */ /* x233803 */ /* x233802 */ /* x233805 */ /* x233804 */ /* x233807 */ /* x233806 */ /* x233809 */ /* x233808 */ /* x233811 */ /* x233810 */ /* x233813 */ /* x233812 */ /* x233815 */ /* x233814 */ /* x233817 */ /* x233816 */ /* x233819 */ /* x233818 */ /* x233821 */ /* x233820 */ /* x233823 */ /* x233822 */ /* x233825 */ /* x233824 */ /* x233827 */ /* x233826 */ /* x233829 */ /* x233828 */ /* x233831 */ /* x233830 */ /* x233833 */ /* x233832 */ /* x233835 */ /* x233834 */ /* x233837 */ /* x233836 */ /* x233839 */ /* x233838 */ /* x233841 */ /* x233840 */ /* x233843 */ /* x233842 */ /* x233845 */ /* x233844 */ /* x233847 */ /* x233846 */ /* x233849 */ /* x233848 */ /* x233851 */ /* x233850 */ /* x233853 */ /* x233852 */ /* x233855 */ /* x233854 */ /* x233857 */ /* x233856 */ /* x233859 */ /* x233858 */ /* x233861 */ /* x233860 */ /* x233863 */ /* x233862 */ /* x233865 */ /* x233864 */ /* x233867 */ /* x233866 */ /* x233869 */ /* x233868 */ /* x233871 */ /* x233870 */ /* x233873 */ /* x233872 */ /* x233875 */ /* x233874 */ /* x233877 */ /* x233876 */ /* x233879 */ /* x233878 */ /* x233881 */ /* x233880 */ /* x233883 */ /* x233882 */ /* x233885 */ /* x233884 */ /* x233887 */ /* x233886 */ /* x233889 */ /* x233888 */ /* x233891 */ /* x233890 */ /* x233893 */ /* x233892 */ /* x233895 */ /* x233894 */ /* x233897 */ /* x233896 */ /* x233899 */ /* x233898 */ /* x233901 */ /* x233900 */ /* x233903 */ /* x233902 */ /* x233905 */ /* x233904 */ /* x233907 */ /* x233906 */ /* x233909 */ /* x233908 */ /* x233911 */ /* x233910 */ /* x233913 */ /* x233912 */ /* x233915 */ /* x233914 */ /* x233917 */ /* x233916 */ /* x233919 */ /* x233918 */ /* x233921 */ /* x233920 */ /* x233923 */ /* x233922 */ /* x233925 */ /* x233924 */ /* x233927 */ /* x233926 */ /* x233929 */ /* x233928 */ /* x233931 */ /* x233930 */ /* x233933 */ /* x233932 */ /* x233935 */ /* x233934 */ /* x233937 */ /* x233936 */ /* x233939 */ /* x233938 */ /* x233941 */ /* x233940 */ /* x233943 */ /* x233942 */ /* x233945 */ /* x233944 */ /* x233947 */ /* x233946 */ /* x233949 */ /* x233948 */ /* x233951 */ /* x233950 */ /* x233953 */ /* x233952 */ /* x233955 */ /* x233954 */ /* x233957 */ /* x233956 */ /* x233959 */ /* x233958 */ /* x233961 */ /* x233960 */ /* x233963 */ /* x233962 */ /* x233965 */ /* x233964 */ /* x233967 */ /* x233966 */ /* x233969 */ /* x233968 */ /* x233971 */ /* x233970 */ /* x233973 */ /* x233972 */ /* x233975 */ /* x233974 */ /* x233977 */ /* x233976 */ /* x233979 */ /* x233978 */ /* x233981 */ /* x233980 */ /* x233983 */ /* x233982 */ /* x233985 */ /* x233984 */ /* x233987 */ /* x233986 */ /* x233989 */ /* x233988 */ /* x233991 */ /* x233990 */ /* x233993 */ /* x233992 */ /* x233995 */ /* x233994 */ /* x233997 */ /* x233996 */ /* x233999 */ /* x233998 */ /* x234001 */ /* x234000 */ /* x234003 */ /* x234002 */ /* x234005 */ /* x234004 */ /* x234007 */ /* x234006 */ /* x234009 */ /* x234008 */ /* x234011 */ /* x234010 */ /* x234013 */ /* x234012 */ /* x234015 */ /* x234014 */ /* x234017 */ /* x234016 */ /* x234019 */ /* x234018 */ /* x234021 */ /* x234020 */ /* x234023 */ /* x234022 */ /* x234025 */ /* x234024 */ /* x234027 */ /* x234026 */ /* x234029 */ /* x234028 */ /* x234031 */ /* x234030 */ /* x234033 */ /* x234032 */ /* x234035 */ /* x234034 */ /* x234037 */ /* x234036 */ /* x234039 */ /* x234038 */ /* x234041 */ /* x234040 */ /* x234043 */ /* x234042 */ /* x234045 */ /* x234044 */ /* x234047 */ /* x234046 */ /* x234049 */ /* x234048 */ /* x234051 */ /* x234050 */ /* x234053 */ /* x234052 */ /* x234055 */ /* x234054 */ /* x234057 */ /* x234056 */ /* x234059 */ /* x234058 */ /* x234061 */ /* x234060 */ /* x234063 */ /* x234062 */ /* x234065 */ /* x234064 */ /* x234067 */ /* x234066 */ /* x234069 */ /* x234068 */ /* x234071 */ /* x234070 */ /* x234073 */ /* x234072 */ /* x234075 */ /* x234074 */ /* x234077 */ /* x234076 */ /* x234079 */ /* x234078 */ /* x234081 */ /* x234080 */ /* x234083 */ /* x234082 */ /* x234085 */ /* x234084 */ /* x234087 */ /* x234086 */ /* x234089 */ /* x234088 */ /* x234091 */ /* x234090 */ /* x234093 */ /* x234092 */ /* x234095 */ /* x234094 */ /* x234097 */ /* x234096 */ /* x234099 */ /* x234098 */ /* x234101 */ /* x234100 */ /* x234103 */ /* x234102 */ /* x234105 */ /* x234104 */ /* x234107 */ /* x234106 */ /* x234109 */ /* x234108 */ /* x234111 */ /* x234110 */ /* x234113 */ /* x234112 */ /* x234115 */ /* x234114 */ /* x234117 */ /* x234116 */ /* x234119 */ /* x234118 */ /* x234121 */ /* x234120 */ /* x234123 */ /* x234122 */ /* x234125 */ /* x234124 */ /* x234127 */ /* x234126 */ /* x234129 */ /* x234128 */ /* x234131 */ /* x234130 */ /* x234133 */ /* x234132 */ /* x234135 */ /* x234134 */ /* x234137 */ /* x234136 */ /* x234139 */ /* x234138 */ /* x234141 */ /* x234140 */ /* x234143 */ /* x234142 */ /* x234145 */ /* x234144 */ /* x234147 */ /* x234146 */ /* x234149 */ /* x234148 */ /* x234151 */ /* x234150 */ /* x234153 */ /* x234152 */ /* x234155 */ /* x234154 */ /* x234157 */ /* x234156 */ /* x234159 */ /* x234158 */ /* x234161 */ /* x234160 */ /* x234163 */ /* x234162 */ /* x234165 */ /* x234164 */ /* x234167 */ /* x234166 */ /* x234169 */ /* x234168 */ /* x234171 */ /* x234170 */ /* x234173 */ /* x234172 */ /* x234175 */ /* x234174 */ /* x234177 */ /* x234176 */ /* x234179 */ /* x234178 */ /* x234181 */ /* x234180 */ /* x234183 */ /* x234182 */ /* x234185 */ /* x234184 */ /* x234187 */ /* x234186 */ /* x234189 */ /* x234188 */ /* x234191 */ /* x234190 */ /* x234193 */ /* x234192 */ /* x234195 */ /* x234194 */ /* x234197 */ /* x234196 */ /* x234199 */ /* x234198 */ /* x234201 */ /* x234200 */ /* x234203 */ /* x234202 */ /* x234205 */ /* x234204 */ /* x234207 */ /* x234206 */ /* x234209 */ /* x234208 */ /* x234211 */ /* x234210 */ /* x234213 */ /* x234212 */ /* x234215 */ /* x234214 */ /* x234217 */ /* x234216 */ /* x234219 */ /* x234218 */ /* x234221 */ /* x234220 */ /* x234223 */ /* x234222 */ /* x234225 */ /* x234224 */ /* x234227 */ /* x234226 */ /* x234229 */ /* x234228 */ /* x234231 */ /* x234230 */ /* x234233 */ /* x234232 */ /* x234235 */ /* x234234 */ /* x234237 */ /* x234236 */ /* x234239 */ /* x234238 */ /* x234241 */ /* x234240 */ /* x234243 */ /* x234242 */ /* x234245 */ /* x234244 */ /* x234247 */ /* x234246 */ /* x234249 */ /* x234248 */ /* x234251 */ /* x234250 */ /* x234253 */ /* x234252 */ /* x234255 */ /* x234254 */ /* x234257 */ /* x234256 */ /* x234259 */ /* x234258 */ /* x234261 */ /* x234260 */ /* x234263 */ /* x234262 */ /* x234265 */ /* x234264 */ /* x234267 */ /* x234266 */ /* x234269 */ /* x234268 */ /* x234271 */ /* x234270 */ /* x234273 */ /* x234272 */ /* x234275 */ /* x234274 */ /* x234277 */ /* x234276 */ /* x234279 */ /* x234278 */ /* x234281 */ /* x234280 */ /* x234283 */ /* x234282 */ /* x234285 */ /* x234284 */ /* x234287 */ /* x234286 */ /* x234289 */ /* x234288 */ /* x234291 */ /* x234290 */ /* x234293 */ /* x234292 */ /* x234295 */ /* x234294 */ /* x234297 */ /* x234296 */ /* x234299 */ /* x234298 */ /* x234301 */ /* x234300 */ /* x234303 */ /* x234302 */ /* x234305 */ /* x234304 */ /* x234307 */ /* x234306 */ /* x234309 */ /* x234308 */ /* x234311 */ /* x234310 */ /* x234313 */ /* x234312 */ /* x234315 */ /* x234314 */ /* x234317 */ /* x234316 */ /* x234319 */ /* x234318 */ /* x234321 */ /* x234320 */ /* x234323 */ /* x234322 */ /* x234325 */ /* x234324 */ /* x234327 */ /* x234326 */ /* x234329 */ /* x234328 */ /* x234331 */ /* x234330 */ /* x234333 */ /* x234332 */ /* x234335 */ /* x234334 */ /* x234337 */ /* x234336 */ /* x234339 */ /* x234338 */ /* x234341 */ /* x234340 */ /* x234343 */ /* x234342 */ /* x234345 */ /* x234344 */ /* x234347 */ /* x234346 */ /* x234349 */ /* x234348 */ /* x234351 */ /* x234350 */ /* x234353 */ /* x234352 */ /* x234355 */ /* x234354 */ /* x234357 */ /* x234356 */ /* x234359 */ /* x234358 */ /* x234361 */ /* x234360 */ /* x234363 */ /* x234362 */ /* x234365 */ /* x234364 */ /* x234367 */ /* x234366 */ /* x234369 */ /* x234368 */ /* x234371 */ /* x234370 */ /* x234373 */ /* x234372 */ /* x234375 */ /* x234374 */ /* x234377 */ /* x234376 */ /* x234379 */ /* x234378 */ /* x234381 */ /* x234380 */ /* x234383 */ /* x234382 */ /* x234385 */ /* x234384 */ /* x234387 */ /* x234386 */ /* x234389 */ /* x234388 */ /* x234391 */ /* x234390 */ /* x234393 */ /* x234392 */ /* x234395 */ /* x234394 */ /* x234397 */ /* x234396 */ /* x234399 */ /* x234398 */ /* x234401 */ /* x234400 */ /* x234403 */ /* x234402 */ /* x234405 */ /* x234404 */ /* x234407 */ /* x234406 */ /* x234409 */ /* x234408 */ /* x234411 */ /* x234410 */ /* x234413 */ /* x234412 */ /* x234415 */ /* x234414 */ /* x234417 */ /* x234416 */ /* x234419 */ /* x234418 */ /* x234421 */ /* x234420 */ /* x234423 */ /* x234422 */ /* x234425 */ /* x234424 */ /* x234427 */ /* x234426 */ /* x234429 */ /* x234428 */ /* x234431 */ /* x234430 */ /* x234433 */ /* x234432 */ /* x234435 */ /* x234434 */ /* x234437 */ /* x234436 */ /* x234439 */ /* x234438 */ /* x234441 */ /* x234440 */ /* x234443 */ /* x234442 */ /* x234445 */ /* x234444 */ /* x234447 */ /* x234446 */ /* x234449 */ /* x234448 */ /* x234451 */ /* x234450 */ /* x234453 */ /* x234452 */ /* x234455 */ /* x234454 */ /* x234457 */ /* x234456 */ /* x234459 */ /* x234458 */ /* x234461 */ /* x234460 */ /* x234463 */ /* x234462 */ /* x234465 */ /* x234464 */ /* x234467 */ /* x234466 */ /* x234469 */ /* x234468 */ /* x234471 */ /* x234470 */ /* x234473 */ /* x234472 */ /* x234475 */ /* x234474 */ /* x234477 */ /* x234476 */ /* x234479 */ /* x234478 */ /* x234481 */ /* x234480 */ /* x234483 */ /* x234482 */ /* x234485 */ /* x234484 */ /* x234487 */ /* x234486 */ /* x234489 */ /* x234488 */ /* x234491 */ /* x234490 */ /* x234493 */ /* x234492 */ /* x234495 */ /* x234494 */ /* x234497 */ /* x234496 */ /* x234499 */ /* x234498 */ /* x234501 */ /* x234500 */ /* x234503 */ /* x234502 */ /* x234505 */ /* x234504 */ /* x234507 */ /* x234506 */ /* x234509 */ /* x234508 */ /* x234511 */ /* x234510 */ /* x234513 */ /* x234512 */ /* x234515 */ /* x234514 */ /* x234517 */ /* x234516 */ /* x234519 */ /* x234518 */ /* x234521 */ /* x234520 */ /* x234523 */ /* x234522 */ /* x234525 */ /* x234524 */ /* x234527 */ /* x234526 */ /* x234529 */ /* x234528 */ /* x234531 */ /* x234530 */ /* x234533 */ /* x234532 */ /* x234535 */ /* x234534 */ /* x234537 */ /* x234536 */ /* x234539 */ /* x234538 */ /* x234541 */ /* x234540 */ /* x234543 */ /* x234542 */ /* x234545 */ /* x234544 */ /* x234547 */ /* x234546 */ /* x234549 */ /* x234548 */ /* x234551 */ /* x234550 */ /* x234553 */ /* x234552 */ /* x234555 */ /* x234554 */ /* x234557 */ /* x234556 */ /* x234559 */ /* x234558 */ /* x234561 */ /* x234560 */ /* x234563 */ /* x234562 */ /* x234565 */ /* x234564 */ /* x234567 */ /* x234566 */ /* x234569 */ /* x234568 */ /* x234571 */ /* x234570 */ /* x234573 */ /* x234572 */ /* x234575 */ /* x234574 */ /* x234577 */ /* x234576 */ /* x234579 */ /* x234578 */ /* x234581 */ /* x234580 */ /* x234583 */ /* x234582 */ /* x234585 */ /* x234584 */ /* x234587 */ /* x234586 */ /* x234589 */ /* x234588 */ /* x234591 */ /* x234590 */ /* x234593 */ /* x234592 */ /* x234595 */ /* x234594 */ /* x234597 */ /* x234596 */ /* x234599 */ /* x234598 */ /* x234601 */ /* x234600 */ /* x234603 */ /* x234602 */ /* x234605 */ /* x234604 */ /* x234607 */ /* x234606 */ /* x234609 */ /* x234608 */ /* x234611 */ /* x234610 */ /* x234613 */ /* x234612 */ /* x234615 */ /* x234614 */ /* x234617 */ /* x234616 */ /* x234619 */ /* x234618 */ /* x234621 */ /* x234620 */ /* x234623 */ /* x234622 */ /* x234625 */ /* x234624 */ /* x234627 */ /* x234626 */ /* x234629 */ /* x234628 */ /* x234631 */ /* x234630 */ /* x234633 */ /* x234632 */ /* x234635 */ /* x234634 */ /* x234637 */ /* x234636 */ /* x234639 */ /* x234638 */ /* x234641 */ /* x234640 */ /* x234643 */ /* x234642 */ /* x234645 */ /* x234644 */ /* x234647 */ /* x234646 */ /* x234649 */ /* x234648 */ /* x234651 */ /* x234650 */ /* x234653 */ /* x234652 */ /* x234655 */ /* x234654 */ /* x234657 */ /* x234656 */ /* x234659 */ /* x234658 */ /* x234661 */ /* x234660 */ /* x234663 */ /* x234662 */ /* x234665 */ /* x234664 */ /* x234667 */ /* x234666 */ /* x234669 */ /* x234668 */ /* x234671 */ /* x234670 */ /* x234673 */ /* x234672 */ /* x234675 */ /* x234674 */ /* x234677 */ /* x234676 */ /* x234679 */ /* x234678 */ /* x234681 */ /* x234680 */ /* x234683 */ /* x234682 */ /* x234685 */ /* x234684 */ /* x234687 */ /* x234686 */ /* x234689 */ /* x234688 */ /* x234691 */ /* x234690 */ /* x234693 */ /* x234692 */ /* x234695 */ /* x234694 */ /* x234697 */ /* x234696 */ /* x234699 */ /* x234698 */ /* x234701 */ /* x234700 */ /* x234703 */ /* x234702 */ /* x234705 */ /* x234704 */ /* x234707 */ /* x234706 */ /* x234709 */ /* x234708 */ /* x234711 */ /* x234710 */ /* x234713 */ /* x234712 */ /* x234715 */ /* x234714 */ /* x234717 */ /* x234716 */ /* x234719 */ /* x234718 */ /* x234721 */ /* x234720 */ /* x234723 */ /* x234722 */ /* x234725 */ /* x234724 */ /* x234727 */ /* x234726 */ /* x234729 */ /* x234728 */ /* x234731 */ /* x234730 */ /* x234733 */ /* x234732 */ /* x234735 */ /* x234734 */ /* x234737 */ /* x234736 */ /* x234739 */ /* x234738 */ /* x234741 */ /* x234740 */ /* x234743 */ /* x234742 */ /* x234745 */ /* x234744 */ /* x234747 */ /* x234746 */ /* x234749 */ /* x234748 */ /* x234751 */ /* x234750 */ /* x234753 */ /* x234752 */ /* x234755 */ /* x234754 */ /* x234757 */ /* x234756 */ /* x234759 */ /* x234758 */ /* x234761 */ /* x234760 */ /* x234763 */ /* x234762 */ /* x234765 */ /* x234764 */ /* x234767 */ /* x234766 */ /* x234769 */ /* x234768 */ /* x234771 */ /* x234770 */ /* x234773 */ /* x234772 */ /* x234775 */ /* x234774 */ /* x234777 */ /* x234776 */ /* x234779 */ /* x234778 */ /* x234781 */ /* x234780 */ /* x234783 */ /* x234782 */ /* x234785 */ /* x234784 */ /* x234787 */ /* x234786 */ /* x234789 */ /* x234788 */ /* x234791 */ /* x234790 */ /* x234793 */ /* x234792 */ /* x234795 */ /* x234794 */ /* x234797 */ /* x234796 */ /* x234799 */ /* x234798 */ /* x234801 */ /* x234800 */ /* x234803 */ /* x234802 */ /* x234805 */ /* x234804 */ /* x234807 */ /* x234806 */ /* x234809 */ /* x234808 */ /* x234811 */ /* x234810 */ /* x234813 */ /* x234812 */ /* x234815 */ /* x234814 */ /* x234817 */ /* x234816 */ /* x234819 */ /* x234818 */ /* x234821 */ /* x234820 */ /* x234823 */ /* x234822 */ /* x234825 */ /* x234824 */ /* x234827 */ /* x234826 */ /* x234829 */ /* x234828 */ /* x234831 */ /* x234830 */ /* x234833 */ /* x234832 */ /* x234835 */ /* x234834 */ /* x234837 */ /* x234836 */ /* x234839 */ /* x234838 */ /* x234841 */ /* x234840 */ /* x234843 */ /* x234842 */ /* x234845 */ /* x234844 */ /* x234847 */ /* x234846 */ /* x234849 */ /* x234848 */ /* x234851 */ /* x234850 */ /* x234853 */ /* x234852 */ /* x234855 */ /* x234854 */ /* x234857 */ /* x234856 */ /* x234859 */ /* x234858 */ /* x234861 */ /* x234860 */ /* x234863 */ /* x234862 */ /* x234865 */ /* x234864 */ /* x234867 */ /* x234866 */ /* x234869 */ /* x234868 */ /* x234871 */ /* x234870 */ /* x234873 */ /* x234872 */ /* x234875 */ /* x234874 */ /* x234877 */ /* x234876 */ /* x234879 */ /* x234878 */ /* x234881 */ /* x234880 */ /* x234883 */ /* x234882 */ /* x234885 */ /* x234884 */ /* x234887 */ /* x234886 */ /* x234889 */ /* x234888 */ /* x234891 */ /* x234890 */ /* x234893 */ /* x234892 */ /* x234895 */ /* x234894 */ /* x234897 */ /* x234896 */ /* x234899 */ /* x234898 */ /* x234901 */ /* x234900 */ /* x234903 */ /* x234902 */ /* x234905 */ /* x234904 */ /* x234907 */ /* x234906 */ /* x234909 */ /* x234908 */ /* x234911 */ /* x234910 */ /* x234913 */ /* x234912 */ /* x234915 */ /* x234914 */ /* x234917 */ /* x234916 */ /* x234919 */ /* x234918 */ /* x234921 */ /* x234920 */ /* x234923 */ /* x234922 */ /* x234925 */ /* x234924 */ /* x234927 */ /* x234926 */ /* x234929 */ /* x234928 */ /* x234931 */ /* x234930 */ /* x234933 */ /* x234932 */ /* x234935 */ /* x234934 */ /* x234937 */ /* x234936 */ /* x234939 */ /* x234938 */ /* x234941 */ /* x234940 */ /* x234943 */ /* x234942 */ /* x234945 */ /* x234944 */ /* x234947 */ /* x234946 */ /* x234949 */ /* x234948 */ /* x234951 */ /* x234950 */ /* x234953 */ /* x234952 */ /* x234955 */ /* x234954 */ /* x234957 */ /* x234956 */ /* x234959 */ /* x234958 */ /* x234961 */ /* x234960 */ /* x234963 */ /* x234962 */ /* x234965 */ /* x234964 */ /* x234967 */ /* x234966 */ /* x234969 */ /* x234968 */ /* x234971 */ /* x234970 */ /* x234973 */ /* x234972 */ /* x234975 */ /* x234974 */ /* x234977 */ /* x234976 */ /* x234979 */ /* x234978 */ /* x234981 */ /* x234980 */ /* x234983 */ /* x234982 */ /* x234985 */ /* x234984 */ /* x234987 */ /* x234986 */ /* x234989 */ /* x234988 */ /* x234991 */ /* x234990 */ /* x234993 */ /* x234992 */ /* x234995 */ /* x234994 */ /* x234997 */ /* x234996 */ /* x234999 */ /* x234998 */ /* x235001 */ /* x235000 */ /* x235003 */ /* x235002 */ /* x235005 */ /* x235004 */ /* x235007 */ /* x235006 */ /* x235009 */ /* x235008 */ /* x235011 */ /* x235010 */ /* x235013 */ /* x235012 */ /* x235015 */ /* x235014 */ /* x235017 */ /* x235016 */ /* x235019 */ /* x235018 */ /* x235021 */ /* x235020 */ /* x235023 */ /* x235022 */ /* x235025 */ /* x235024 */ /* x235027 */ /* x235026 */ /* x235029 */ /* x235028 */ /* x235031 */ /* x235030 */ /* x235033 */ /* x235032 */ /* x235035 */ /* x235034 */ /* x235037 */ /* x235036 */ /* x235039 */ /* x235038 */ /* x235041 */ /* x235040 */ /* x235043 */ /* x235042 */ /* x235045 */ /* x235044 */ /* x235047 */ /* x235046 */ /* x235049 */ /* x235048 */ /* x235051 */ /* x235050 */ /* x235053 */ /* x235052 */ /* x235055 */ /* x235054 */ /* x235057 */ /* x235056 */ /* x235059 */ /* x235058 */ /* x235061 */ /* x235060 */ /* x235063 */ /* x235062 */ /* x235065 */ /* x235064 */ /* x235067 */ /* x235066 */ /* x235069 */ /* x235068 */ /* x235071 */ /* x235070 */ /* x235073 */ /* x235072 */ /* x235075 */ /* x235074 */ /* x235077 */ /* x235076 */ /* x235079 */ /* x235078 */ /* x235081 */ /* x235080 */ /* x235083 */ /* x235082 */ /* x235085 */ /* x235084 */ /* x235087 */ /* x235086 */ /* x235089 */ /* x235088 */ /* x235091 */ /* x235090 */ /* x235093 */ /* x235092 */ /* x235095 */ /* x235094 */ /* x235097 */ /* x235096 */ /* x235099 */ /* x235098 */ /* x235101 */ /* x235100 */ /* x235103 */ /* x235102 */ /* x235105 */ /* x235104 */ /* x235107 */ /* x235106 */ /* x235109 */ /* x235108 */ /* x235111 */ /* x235110 */ /* x235113 */ /* x235112 */ /* x235115 */ /* x235114 */ /* x235117 */ /* x235116 */ /* x235119 */ /* x235118 */ /* x235121 */ /* x235120 */ /* x235123 */ /* x235122 */ /* x235125 */ /* x235124 */ /* x235127 */ /* x235126 */ /* x235129 */ /* x235128 */ /* x235131 */ /* x235130 */ /* x235133 */ /* x235132 */ /* x235135 */ /* x235134 */ /* x235137 */ /* x235136 */ /* x235139 */ /* x235138 */ /* x235141 */ /* x235140 */ /* x235143 */ /* x235142 */ /* x235145 */ /* x235144 */ /* x235147 */ /* x235146 */ /* x235149 */ /* x235148 */ /* x235151 */ /* x235150 */ /* x235153 */ /* x235152 */ /* x235155 */ /* x235154 */ /* x235157 */ /* x235156 */ /* x235159 */ /* x235158 */ /* x235161 */ /* x235160 */ /* x235163 */ /* x235162 */ /* x235165 */ /* x235164 */ /* x235167 */ /* x235166 */ /* x235169 */ /* x235168 */ /* x235171 */ /* x235170 */ /* x235173 */ /* x235172 */ /* x235175 */ /* x235174 */ /* x235177 */ /* x235176 */ /* x235179 */ /* x235178 */ /* x235181 */ /* x235180 */ /* x235183 */ /* x235182 */ /* x235185 */ /* x235184 */ /* x235187 */ /* x235186 */ /* x235189 */ /* x235188 */ /* x235191 */ /* x235190 */ /* x235193 */ /* x235192 */ /* x235195 */ /* x235194 */ /* x235197 */ /* x235196 */ /* x235199 */ /* x235198 */ /* x235201 */ /* x235200 */ /* x235203 */ /* x235202 */ /* x235205 */ /* x235204 */ /* x235207 */ /* x235206 */ /* x235209 */ /* x235208 */ /* x235211 */ /* x235210 */ /* x235213 */ /* x235212 */ /* x235215 */ /* x235214 */ /* x235217 */ /* x235216 */ /* x235219 */ /* x235218 */ /* x235221 */ /* x235220 */ /* x235223 */ /* x235222 */ /* x235225 */ /* x235224 */ /* x235227 */ /* x235226 */ /* x235229 */ /* x235228 */ /* x235231 */ /* x235230 */ /* x235233 */ /* x235232 */ /* x235235 */ /* x235234 */ /* x235237 */ /* x235236 */ /* x235239 */ /* x235238 */ /* x235241 */ /* x235240 */ /* x235243 */ /* x235242 */ /* x235245 */ /* x235244 */ /* x235247 */ /* x235246 */ /* x235249 */ /* x235248 */ /* x235251 */ /* x235250 */ /* x235253 */ /* x235252 */ /* x235255 */ /* x235254 */ /* x235257 */ /* x235256 */ /* x235259 */ /* x235258 */ /* x235261 */ /* x235260 */ /* x235263 */ /* x235262 */ /* x235265 */ /* x235264 */ /* x235267 */ /* x235266 */ /* x235269 */ /* x235268 */ /* x235271 */ /* x235270 */ /* x235273 */ /* x235272 */ /* x235275 */ /* x235274 */ /* x235277 */ /* x235276 */ /* x235279 */ /* x235278 */ /* x235281 */ /* x235280 */ /* x235283 */ /* x235282 */ /* x235285 */ /* x235284 */ /* x235287 */ /* x235286 */ /* x235289 */ /* x235288 */ /* x235291 */ /* x235290 */ /* x235293 */ /* x235292 */ /* x235295 */ /* x235294 */ /* x235297 */ /* x235296 */ /* x235299 */ /* x235298 */ /* x235301 */ /* x235300 */ /* x235303 */ /* x235302 */ /* x235305 */ /* x235304 */ /* x235307 */ /* x235306 */ /* x235309 */ /* x235308 */ /* x235311 */ /* x235310 */ /* x235313 */ /* x235312 */ /* x235315 */ /* x235314 */ /* x235317 */ /* x235316 */ /* x235319 */ /* x235318 */ /* x235321 */ /* x235320 */ /* x235323 */ /* x235322 */ /* x235325 */ /* x235324 */ /* x235327 */ /* x235326 */ /* x235329 */ /* x235328 */ /* x235331 */ /* x235330 */ /* x235333 */ /* x235332 */ /* x235335 */ /* x235334 */ /* x235337 */ /* x235336 */ /* x235339 */ /* x235338 */ /* x235341 */ /* x235340 */ /* x235343 */ /* x235342 */ /* x235345 */ /* x235344 */ /* x235347 */ /* x235346 */ /* x235349 */ /* x235348 */ /* x235351 */ /* x235350 */ /* x235353 */ /* x235352 */ /* x235355 */ /* x235354 */ /* x235357 */ /* x235356 */ /* x235359 */ /* x235358 */ /* x235361 */ /* x235360 */ /* x235363 */ /* x235362 */ /* x235365 */ /* x235364 */ /* x235367 */ /* x235366 */ /* x235369 */ /* x235368 */ /* x235371 */ /* x235370 */ /* x235373 */ /* x235372 */ /* x235375 */ /* x235374 */ /* x235377 */ /* x235376 */ /* x235379 */ /* x235378 */ /* x235381 */ /* x235380 */ /* x235383 */ /* x235382 */ /* x235385 */ /* x235384 */ /* x235387 */ /* x235386 */ /* x235389 */ /* x235388 */ /* x235391 */ /* x235390 */ /* x235393 */ /* x235392 */ /* x235395 */ /* x235394 */ /* x235397 */ /* x235396 */ /* x235399 */ /* x235398 */ /* x235401 */ /* x235400 */ /* x235403 */ /* x235402 */ /* x235405 */ /* x235404 */ /* x235407 */ /* x235406 */ /* x235409 */ /* x235408 */ /* x235411 */ /* x235410 */ /* x235413 */ /* x235412 */ /* x235415 */ /* x235414 */ /* x235417 */ /* x235416 */ /* x235419 */ /* x235418 */ /* x235421 */ /* x235420 */ /* x235423 */ /* x235422 */ /* x235425 */ /* x235424 */ /* x235427 */ /* x235426 */ /* x235429 */ /* x235428 */ /* x235431 */ /* x235430 */ /* x235433 */ /* x235432 */ /* x235435 */ /* x235434 */ /* x235437 */ /* x235436 */ /* x235439 */ /* x235438 */ /* x235441 */ /* x235440 */ /* x235443 */ /* x235442 */ /* x235445 */ /* x235444 */ /* x235447 */ /* x235446 */ /* x235449 */ /* x235448 */ /* x235451 */ /* x235450 */ /* x235453 */ /* x235452 */ /* x235455 */ /* x235454 */ /* x235457 */ /* x235456 */ /* x235459 */ /* x235458 */ /* x235461 */ /* x235460 */ /* x235463 */ /* x235462 */ /* x235465 */ /* x235464 */ /* x235467 */ /* x235466 */ /* x235469 */ /* x235468 */ /* x235471 */ /* x235470 */ /* x235473 */ /* x235472 */ /* x235475 */ /* x235474 */ /* x235477 */ /* x235476 */ /* x235479 */ /* x235478 */ /* x235481 */ /* x235480 */ /* x235483 */ /* x235482 */ /* x235485 */ /* x235484 */ /* x235487 */ /* x235486 */ /* x235489 */ /* x235488 */ /* x235491 */ /* x235490 */ /* x235493 */ /* x235492 */ /* x235495 */ /* x235494 */ /* x235497 */ /* x235496 */ /* x235499 */ /* x235498 */ /* x235501 */ /* x235500 */ /* x235503 */ /* x235502 */ /* x235505 */ /* x235504 */ /* x235507 */ /* x235506 */ /* x235509 */ /* x235508 */ /* x235511 */ /* x235510 */ /* x235513 */ /* x235512 */ /* x235515 */ /* x235514 */ /* x235517 */ /* x235516 */ /* x235519 */ /* x235518 */ /* x235521 */ /* x235520 */ /* x235523 */ /* x235522 */ /* x235525 */ /* x235524 */ /* x235527 */ /* x235526 */ /* x235529 */ /* x235528 */ /* x235531 */ /* x235530 */ /* x235533 */ /* x235532 */ /* x235535 */ /* x235534 */ /* x235537 */ /* x235536 */ /* x235539 */ /* x235538 */ /* x235541 */ /* x235540 */ /* x235543 */ /* x235542 */ /* x235545 */ /* x235544 */ /* x235547 */ /* x235546 */ /* x235549 */ /* x235548 */ /* x235551 */ /* x235550 */ /* x235553 */ /* x235552 */ /* x235555 */ /* x235554 */ /* x235557 */ /* x235556 */ /* x235559 */ /* x235558 */ /* x235561 */ /* x235560 */ /* x235563 */ /* x235562 */ /* x235565 */ /* x235564 */ /* x235567 */ /* x235566 */ /* x235569 */ /* x235568 */ /* x235571 */ /* x235570 */ /* x235573 */ /* x235572 */ /* x235575 */ /* x235574 */ /* x235577 */ /* x235576 */ /* x235579 */ /* x235578 */ /* x235581 */ /* x235580 */ /* x235583 */ /* x235582 */ /* x235585 */ /* x235584 */ /* x235587 */ /* x235586 */ /* x235589 */ /* x235588 */ /* x235591 */ /* x235590 */ /* x235593 */ /* x235592 */ /* x235595 */ /* x235594 */ /* x235597 */ /* x235596 */ /* x235599 */ /* x235598 */ /* x235601 */ /* x235600 */ /* x235603 */ /* x235602 */ /* x235605 */ /* x235604 */ /* x235607 */ /* x235606 */ /* x235609 */ /* x235608 */ /* x235611 */ /* x235610 */ /* x235613 */ /* x235612 */ /* x235615 */ /* x235614 */ /* x235617 */ /* x235616 */ /* x235619 */ /* x235618 */ /* x235621 */ /* x235620 */ /* x235623 */ /* x235622 */ /* x235625 */ /* x235624 */ /* x235627 */ /* x235626 */ /* x235629 */ /* x235628 */ /* x235631 */ /* x235630 */ /* x235633 */ /* x235632 */ /* x235635 */ /* x235634 */ /* x235637 */ /* x235636 */ /* x235639 */ /* x235638 */ /* x235641 */ /* x235640 */ /* x235643 */ /* x235642 */ /* x235645 */ /* x235644 */ /* x235647 */ /* x235646 */ /* x235649 */ /* x235648 */ /* x235651 */ /* x235650 */ /* x235653 */ /* x235652 */ /* x235655 */ /* x235654 */ /* x235657 */ /* x235656 */ /* x235659 */ /* x235658 */ /* x235661 */ /* x235660 */ /* x235663 */ /* x235662 */ /* x235665 */ /* x235664 */ /* x235667 */ /* x235666 */ /* x235669 */ /* x235668 */ /* x235671 */ /* x235670 */ /* x235673 */ /* x235672 */ /* x235675 */ /* x235674 */ /* x235677 */ /* x235676 */ /* x235679 */ /* x235678 */ /* x235681 */ /* x235680 */ /* x235683 */ /* x235682 */ /* x235685 */ /* x235684 */ /* x235687 */ /* x235686 */ /* x235689 */ /* x235688 */ /* x235691 */ /* x235690 */ /* x235693 */ /* x235692 */ /* x235695 */ /* x235694 */ /* x235697 */ /* x235696 */ /* x235699 */ /* x235698 */ /* x235701 */ /* x235700 */ /* x235703 */ /* x235702 */ /* x235705 */ /* x235704 */ /* x235707 */ /* x235706 */ /* x235709 */ /* x235708 */ /* x235711 */ /* x235710 */ /* x235713 */ /* x235712 */ /* x235715 */ /* x235714 */ /* x235717 */ /* x235716 */ /* x235719 */ /* x235718 */ /* x235721 */ /* x235720 */ /* x235723 */ /* x235722 */ /* x235725 */ /* x235724 */ /* x235727 */ /* x235726 */ /* x235729 */ /* x235728 */ /* x235731 */ /* x235730 */ /* x235733 */ /* x235732 */ /* x235735 */ /* x235734 */ /* x235737 */ /* x235736 */ /* x235739 */ /* x235738 */ /* x235741 */ /* x235740 */ /* x235743 */ /* x235742 */ /* x235745 */ /* x235744 */ /* x235747 */ /* x235746 */ /* x235749 */ /* x235748 */ /* x235751 */ /* x235750 */ /* x235753 */ /* x235752 */ /* x235755 */ /* x235754 */ /* x235757 */ /* x235756 */ /* x235759 */ /* x235758 */ /* x235761 */ /* x235760 */ /* x235763 */ /* x235762 */ /* x235765 */ /* x235764 */ /* x235767 */ /* x235766 */ /* x235769 */ /* x235768 */ /* x235771 */ /* x235770 */ /* x235773 */ /* x235772 */ /* x235775 */ /* x235774 */ /* x235777 */ /* x235776 */ /* x235779 */ /* x235778 */ /* x235781 */ /* x235780 */ /* x235783 */ /* x235782 */ /* x235785 */ /* x235784 */ /* x235787 */ /* x235786 */ /* x235789 */ /* x235788 */ /* x235791 */ /* x235790 */ /* x235793 */ /* x235792 */ /* x235795 */ /* x235794 */ /* x235797 */ /* x235796 */ /* x235799 */ /* x235798 */ /* x235801 */ /* x235800 */ /* x235803 */ /* x235802 */ /* x235805 */ /* x235804 */ /* x235807 */ /* x235806 */ /* x235809 */ /* x235808 */ /* x235811 */ /* x235810 */ /* x235813 */ /* x235812 */ /* x235815 */ /* x235814 */ /* x235817 */ /* x235816 */ /* x235819 */ /* x235818 */ /* x235821 */ /* x235820 */ /* x235823 */ /* x235822 */ /* x235825 */ /* x235824 */ /* x235827 */ /* x235826 */ /* x235829 */ /* x235828 */ /* x235831 */ /* x235830 */ /* x235833 */ /* x235832 */ /* x235835 */ /* x235834 */ /* x235837 */ /* x235836 */ /* x235839 */ /* x235838 */ /* x235841 */ /* x235840 */ /* x235843 */ /* x235842 */ /* x235845 */ /* x235844 */ /* x235847 */ /* x235846 */ /* x235849 */ /* x235848 */ /* x235851 */ /* x235850 */ /* x235853 */ /* x235852 */ /* x235855 */ /* x235854 */ /* x235857 */ /* x235856 */ /* x235859 */ /* x235858 */ /* x235861 */ /* x235860 */ /* x235863 */ /* x235862 */ /* x235865 */ /* x235864 */ /* x235867 */ /* x235866 */ /* x235869 */ /* x235868 */ /* x235871 */ /* x235870 */ /* x235873 */ /* x235872 */ /* x235875 */ /* x235874 */ /* x235877 */ /* x235876 */ /* x235879 */ /* x235878 */ /* x235881 */ /* x235880 */ /* x235883 */ /* x235882 */ /* x235885 */ /* x235884 */ /* x235887 */ /* x235886 */ /* x235889 */ /* x235888 */ /* x235891 */ /* x235890 */ /* x235893 */ /* x235892 */ /* x235895 */ /* x235894 */ /* x235897 */ /* x235896 */ /* x235899 */ /* x235898 */ /* x235901 */ /* x235900 */ /* x235903 */ /* x235902 */ /* x235905 */ /* x235904 */ /* x235907 */ /* x235906 */ /* x235909 */ /* x235908 */ /* x235911 */ /* x235910 */ /* x235913 */ /* x235912 */ /* x235915 */ /* x235914 */ /* x235917 */ /* x235916 */ /* x235919 */ /* x235918 */ /* x235921 */ /* x235920 */ /* x235923 */ /* x235922 */ /* x235925 */ /* x235924 */ /* x235927 */ /* x235926 */ /* x235929 */ /* x235928 */ /* x235931 */ /* x235930 */ /* x235933 */ /* x235932 */ /* x235935 */ /* x235934 */ /* x235937 */ /* x235936 */ /* x235939 */ /* x235938 */ /* x235941 */ /* x235940 */ /* x235943 */ /* x235942 */ /* x235945 */ /* x235944 */ /* x235947 */ /* x235946 */ /* x235949 */ /* x235948 */ /* x235951 */ /* x235950 */ /* x235953 */ /* x235952 */ /* x235955 */ /* x235954 */ /* x235957 */ /* x235956 */ /* x235959 */ /* x235958 */ /* x235961 */ /* x235960 */ /* x235963 */ /* x235962 */ /* x235965 */ /* x235964 */ /* x235967 */ /* x235966 */ /* x235969 */ /* x235968 */ /* x235971 */ /* x235970 */ /* x235973 */ /* x235972 */ /* x235975 */ /* x235974 */ /* x235977 */ /* x235976 */ /* x235979 */ /* x235978 */ /* x235981 */ /* x235980 */ /* x235983 */ /* x235982 */ /* x235985 */ /* x235984 */ /* x235987 */ /* x235986 */ /* x235989 */ /* x235988 */ /* x235991 */ /* x235990 */ /* x235993 */ /* x235992 */ /* x235995 */ /* x235994 */ /* x235997 */ /* x235996 */ /* x235999 */ /* x235998 */ /* x236001 */ /* x236000 */ /* x236003 */ /* x236002 */ /* x236005 */ /* x236004 */ /* x236007 */ /* x236006 */ /* x236009 */ /* x236008 */ /* x236011 */ /* x236010 */ /* x236013 */ /* x236012 */ /* x236015 */ /* x236014 */ /* x236017 */ /* x236016 */ /* x236019 */ /* x236018 */ /* x236021 */ /* x236020 */ /* x236023 */ /* x236022 */ /* x236025 */ /* x236024 */ /* x236027 */ /* x236026 */ /* x236029 */ /* x236028 */ /* x236031 */ /* x236030 */ /* x236033 */ /* x236032 */ /* x236035 */ /* x236034 */ /* x236037 */ /* x236036 */ /* x236039 */ /* x236038 */ /* x236041 */ /* x236040 */ /* x236043 */ /* x236042 */ /* x236045 */ /* x236044 */ /* x236047 */ /* x236046 */ /* x236049 */ /* x236048 */ /* x236051 */ /* x236050 */ /* x236053 */ /* x236052 */ /* x236055 */ /* x236054 */ /* x236057 */ /* x236056 */ /* x236059 */ /* x236058 */ /* x236061 */ /* x236060 */ /* x236063 */ /* x236062 */ /* x236065 */ /* x236064 */ /* x236067 */ /* x236066 */ /* x236069 */ /* x236068 */ /* x236071 */ /* x236070 */ /* x236073 */ /* x236072 */ /* x236075 */ /* x236074 */ /* x236077 */ /* x236076 */ /* x236079 */ /* x236078 */ /* x236081 */ /* x236080 */ /* x236083 */ /* x236082 */ /* x236085 */ /* x236084 */ /* x236087 */ /* x236086 */ /* x236089 */ /* x236088 */ /* x236091 */ /* x236090 */ /* x236093 */ /* x236092 */ /* x236095 */ /* x236094 */ /* x236097 */ /* x236096 */ /* x236099 */ /* x236098 */ /* x236101 */ /* x236100 */ /* x236103 */ /* x236102 */ /* x236105 */ /* x236104 */ /* x236107 */ /* x236106 */ /* x236109 */ /* x236108 */ /* x236111 */ /* x236110 */ /* x236113 */ /* x236112 */ /* x236115 */ /* x236114 */ /* x236117 */ /* x236116 */ /* x236119 */ /* x236118 */ /* x236121 */ /* x236120 */ /* x236123 */ /* x236122 */ /* x236125 */ /* x236124 */ /* x236127 */ /* x236126 */ /* x236129 */ /* x236128 */ /* x236131 */ /* x236130 */ /* x236133 */ /* x236132 */ /* x236135 */ /* x236134 */ /* x236137 */ /* x236136 */ /* x236139 */ /* x236138 */ /* x236141 */ /* x236140 */ /* x236143 */ /* x236142 */ /* x236145 */ /* x236144 */ /* x236147 */ /* x236146 */ /* x236149 */ /* x236148 */ /* x236151 */ /* x236150 */ /* x236153 */ /* x236152 */ /* x236155 */ /* x236154 */ /* x236157 */ /* x236156 */ /* x236159 */ /* x236158 */ /* x236161 */ /* x236160 */ /* x236163 */ /* x236162 */ /* x236165 */ /* x236164 */ /* x236167 */ /* x236166 */ /* x236169 */ /* x236168 */ /* x236171 */ /* x236170 */ /* x236173 */ /* x236172 */ /* x236175 */ /* x236174 */ /* x236177 */ /* x236176 */ /* x236179 */ /* x236178 */ /* x236181 */ /* x236180 */ /* x236183 */ /* x236182 */ /* x236185 */ /* x236184 */ /* x236187 */ /* x236186 */ /* x236189 */ /* x236188 */ /* x236191 */ /* x236190 */ /* x236193 */ /* x236192 */ /* x236195 */ /* x236194 */ /* x236197 */ /* x236196 */ /* x236199 */ /* x236198 */ /* x236201 */ /* x236200 */ /* x236203 */ /* x236202 */ /* x236205 */ /* x236204 */ /* x236207 */ /* x236206 */ /* x236209 */ /* x236208 */ /* x236211 */ /* x236210 */ /* x236213 */ /* x236212 */ /* x236215 */ /* x236214 */ /* x236217 */ /* x236216 */ /* x236219 */ /* x236218 */ /* x236221 */ /* x236220 */ /* x236223 */ /* x236222 */ /* x236225 */ /* x236224 */ /* x236227 */ /* x236226 */ /* x236229 */ /* x236228 */ /* x236231 */ /* x236230 */ /* x236233 */ /* x236232 */ /* x236235 */ /* x236234 */ /* x236237 */ /* x236236 */ /* x236239 */ /* x236238 */ /* x236241 */ /* x236240 */ /* x236243 */ /* x236242 */ /* x236245 */ /* x236244 */ /* x236247 */ /* x236246 */ /* x236249 */ /* x236248 */ /* x236251 */ /* x236250 */ /* x236253 */ /* x236252 */ /* x236255 */ /* x236254 */ /* x236257 */ /* x236256 */ /* x236259 */ /* x236258 */ /* x236261 */ /* x236260 */ /* x236263 */ /* x236262 */ /* x236265 */ /* x236264 */ /* x236267 */ /* x236266 */ /* x236269 */ /* x236268 */ /* x236271 */ /* x236270 */ /* x236273 */ /* x236272 */ /* x236275 */ /* x236274 */ /* x236277 */ /* x236276 */ /* x236279 */ /* x236278 */ /* x236281 */ /* x236280 */ /* x236283 */ /* x236282 */ /* x236285 */ /* x236284 */ /* x236287 */ /* x236286 */ /* x236289 */ /* x236288 */ /* x236291 */ /* x236290 */ /* x236293 */ /* x236292 */ /* x236295 */ /* x236294 */ /* x236297 */ /* x236296 */ /* x236299 */ /* x236298 */ /* x236301 */ /* x236300 */ /* x236303 */ /* x236302 */ /* x236305 */ /* x236304 */ /* x236307 */ /* x236306 */ /* x236309 */ /* x236308 */ /* x236311 */ /* x236310 */ /* x236313 */ /* x236312 */ /* x236315 */ /* x236314 */ /* x236317 */ /* x236316 */ /* x236319 */ /* x236318 */ /* x236321 */ /* x236320 */ /* x236323 */ /* x236322 */ /* x236325 */ /* x236324 */ /* x236327 */ /* x236326 */ /* x236329 */ /* x236328 */ /* x236331 */ /* x236330 */ /* x236333 */ /* x236332 */ /* x236335 */ /* x236334 */ /* x236337 */ /* x236336 */ /* x236339 */ /* x236338 */ /* x236341 */ /* x236340 */ /* x236343 */ /* x236342 */ /* x236345 */ /* x236344 */ /* x236347 */ /* x236346 */ /* x236349 */ /* x236348 */ /* x236351 */ /* x236350 */ /* x236353 */ /* x236352 */ /* x236355 */ /* x236354 */ /* x236357 */ /* x236356 */ /* x236359 */ /* x236358 */ /* x236361 */ /* x236360 */ /* x236363 */ /* x236362 */ /* x236365 */ /* x236364 */ /* x236367 */ /* x236366 */ /* x236369 */ /* x236368 */ /* x236371 */ /* x236370 */ /* x236373 */ /* x236372 */ /* x236375 */ /* x236374 */ /* x236377 */ /* x236376 */ /* x236379 */ /* x236378 */ /* x236381 */ /* x236380 */ /* x236383 */ /* x236382 */ /* x236385 */ /* x236384 */ /* x236387 */ /* x236386 */ /* x236389 */ /* x236388 */ /* x236391 */ /* x236390 */ /* x236393 */ /* x236392 */ /* x236395 */ /* x236394 */ /* x236397 */ /* x236396 */ /* x236399 */ /* x236398 */ /* x236401 */ /* x236400 */ /* x236403 */ /* x236402 */ /* x236405 */ /* x236404 */ /* x236407 */ /* x236406 */ /* x236409 */ /* x236408 */ /* x236411 */ /* x236410 */ /* x236413 */ /* x236412 */ /* x236415 */ /* x236414 */ /* x236417 */ /* x236416 */ /* x236419 */ /* x236418 */ /* x236421 */ /* x236420 */ /* x236423 */ /* x236422 */ /* x236425 */ /* x236424 */ /* x236427 */ /* x236426 */ /* x236429 */ /* x236428 */ /* x236431 */ /* x236430 */ /* x236433 */ /* x236432 */ /* x236435 */ /* x236434 */ /* x236437 */ /* x236436 */ /* x236439 */ /* x236438 */ /* x236441 */ /* x236440 */ /* x236443 */ /* x236442 */ /* x236445 */ /* x236444 */ /* x236447 */ /* x236446 */ /* x236449 */ /* x236448 */ /* x236451 */ /* x236450 */ /* x236453 */ /* x236452 */ /* x236455 */ /* x236454 */ /* x236457 */ /* x236456 */ /* x236459 */ /* x236458 */ /* x236461 */ /* x236460 */ /* x236463 */ /* x236462 */ /* x236465 */ /* x236464 */ /* x236467 */ /* x236466 */ /* x236469 */ /* x236468 */ /* x236471 */ /* x236470 */ /* x236473 */ /* x236472 */ /* x236475 */ /* x236474 */ /* x236477 */ /* x236476 */ /* x236479 */ /* x236478 */ /* x236481 */ /* x236480 */ /* x236483 */ /* x236482 */ /* x236485 */ /* x236484 */ /* x236487 */ /* x236486 */ /* x236489 */ /* x236488 */ /* x236491 */ /* x236490 */ /* x236493 */ /* x236492 */ /* x236495 */ /* x236494 */ /* x236497 */ /* x236496 */ /* x236499 */ /* x236498 */ /* x236501 */ /* x236500 */ /* x236503 */ /* x236502 */ /* x236505 */ /* x236504 */ /* x236507 */ /* x236506 */ /* x236509 */ /* x236508 */ /* x236511 */ /* x236510 */ /* x236513 */ /* x236512 */ /* x236515 */ /* x236514 */ /* x236517 */ /* x236516 */ /* x236519 */ /* x236518 */ /* x236521 */ /* x236520 */ /* x236523 */ /* x236522 */ /* x236525 */ /* x236524 */ /* x236527 */ /* x236526 */ /* x236529 */ /* x236528 */ /* x236531 */ /* x236530 */ /* x236533 */ /* x236532 */ /* x236535 */ /* x236534 */ /* x236537 */ /* x236536 */ /* x236539 */ /* x236538 */ /* x236541 */ /* x236540 */ /* x236543 */ /* x236542 */ /* x236545 */ /* x236544 */ /* x236547 */ /* x236546 */ /* x236549 */ /* x236548 */ /* x236551 */ /* x236550 */ /* x236553 */ /* x236552 */ /* x236555 */ /* x236554 */ /* x236557 */ /* x236556 */ /* x236559 */ /* x236558 */ /* x236561 */ /* x236560 */ /* x236563 */ /* x236562 */ /* x236565 */ /* x236564 */ /* x236567 */ /* x236566 */ /* x236569 */ /* x236568 */ /* x236571 */ /* x236570 */ /* x236573 */ /* x236572 */ /* x236575 */ /* x236574 */ /* x236577 */ /* x236576 */ /* x236579 */ /* x236578 */ /* x236581 */ /* x236580 */ /* x236583 */ /* x236582 */ /* x236585 */ /* x236584 */ /* x236587 */ /* x236586 */ /* x236589 */ /* x236588 */ /* x236591 */ /* x236590 */ /* x236593 */ /* x236592 */ /* x236595 */ /* x236594 */ /* x236597 */ /* x236596 */ /* x236599 */ /* x236598 */ /* x236601 */ /* x236600 */ /* x236603 */ /* x236602 */ /* x236605 */ /* x236604 */ /* x236607 */ /* x236606 */ /* x236609 */ /* x236608 */ /* x236611 */ /* x236610 */ /* x236613 */ /* x236612 */ /* x236615 */ /* x236614 */ /* x236617 */ /* x236616 */ /* x236619 */ /* x236618 */ /* x236621 */ /* x236620 */ /* x236623 */ /* x236622 */ /* x236625 */ /* x236624 */ /* x236627 */ /* x236626 */ /* x236629 */ /* x236628 */ /* x236631 */ /* x236630 */ /* x236633 */ /* x236632 */ /* x236635 */ /* x236634 */ /* x236637 */ /* x236636 */ /* x236639 */ /* x236638 */ /* x236641 */ /* x236640 */ /* x236643 */ /* x236642 */ /* x236645 */ /* x236644 */ /* x236647 */ /* x236646 */ /* x236649 */ /* x236648 */ /* x236651 */ /* x236650 */ /* x236653 */ /* x236652 */ /* x236655 */ /* x236654 */ /* x236657 */ /* x236656 */ /* x236659 */ /* x236658 */ /* x236661 */ /* x236660 */ /* x236663 */ /* x236662 */ /* x236665 */ /* x236664 */ /* x236667 */ /* x236666 */ /* x236669 */ /* x236668 */ /* x236671 */ /* x236670 */ /* x236673 */ /* x236672 */ /* x236675 */ /* x236674 */ /* x236677 */ /* x236676 */ /* x236679 */ /* x236678 */ /* x236681 */ /* x236680 */ /* x236683 */ /* x236682 */ /* x236685 */ /* x236684 */ /* x236687 */ /* x236686 */ /* x236689 */ /* x236688 */ /* x236691 */ /* x236690 */ /* x236693 */ /* x236692 */ /* x236695 */ /* x236694 */ /* x236697 */ /* x236696 */ /* x236699 */ /* x236698 */ /* x236701 */ /* x236700 */ /* x236703 */ /* x236702 */ /* x236705 */ /* x236704 */ /* x236707 */ /* x236706 */ /* x236709 */ /* x236708 */ /* x236711 */ /* x236710 */ /* x236713 */ /* x236712 */ /* x236715 */ /* x236714 */ /* x236717 */ /* x236716 */ /* x236719 */ /* x236718 */ /* x236721 */ /* x236720 */ /* x236723 */ /* x236722 */ /* x236725 */ /* x236724 */ /* x236727 */ /* x236726 */ /* x236729 */ /* x236728 */ /* x236731 */ /* x236730 */ /* x236733 */ /* x236732 */ /* x236735 */ /* x236734 */ /* x236737 */ /* x236736 */ /* x236739 */ /* x236738 */ /* x236741 */ /* x236740 */ /* x236743 */ /* x236742 */ /* x236745 */ /* x236744 */ /* x236747 */ /* x236746 */ /* x236749 */ /* x236748 */ /* x236751 */ /* x236750 */ /* x236753 */ /* x236752 */ /* x236755 */ /* x236754 */ /* x236757 */ /* x236756 */ /* x236759 */ /* x236758 */ /* x236761 */ /* x236760 */ /* x236763 */ /* x236762 */ /* x236765 */ /* x236764 */ /* x236767 */ /* x236766 */ /* x236769 */ /* x236768 */ /* x236771 */ /* x236770 */ /* x236773 */ /* x236772 */ /* x236775 */ /* x236774 */ /* x236777 */ /* x236776 */ /* x236779 */ /* x236778 */ /* x236781 */ /* x236780 */ /* x236783 */ /* x236782 */ /* x236785 */ /* x236784 */ /* x236787 */ /* x236786 */ /* x236789 */ /* x236788 */ /* x236791 */ /* x236790 */ /* x236793 */ /* x236792 */ /* x236795 */ /* x236794 */ /* x236797 */ /* x236796 */ /* x236799 */ /* x236798 */ /* x236801 */ /* x236800 */ /* x236803 */ /* x236802 */ /* x236805 */ /* x236804 */ /* x236807 */ /* x236806 */ /* x236809 */ /* x236808 */ /* x236811 */ /* x236810 */ /* x236813 */ /* x236812 */ /* x236815 */ /* x236814 */ /* x236817 */ /* x236816 */ /* x236819 */ /* x236818 */ /* x236821 */ /* x236820 */ /* x236823 */ /* x236822 */ /* x236825 */ /* x236824 */ /* x236827 */ /* x236826 */ /* x236829 */ /* x236828 */ /* x236831 */ /* x236830 */ /* x236833 */ /* x236832 */ /* x236835 */ /* x236834 */ /* x236837 */ /* x236836 */ /* x236839 */ /* x236838 */ /* x236841 */ /* x236840 */ /* x236843 */ /* x236842 */ /* x236845 */ /* x236844 */ /* x236847 */ /* x236846 */ /* x236849 */ /* x236848 */ /* x236851 */ /* x236850 */ /* x236853 */ /* x236852 */ /* x236855 */ /* x236854 */ /* x236857 */ /* x236856 */ /* x236859 */ /* x236858 */ /* x236861 */ /* x236860 */ /* x236863 */ /* x236862 */ /* x236865 */ /* x236864 */ /* x236867 */ /* x236866 */ /* x236869 */ /* x236868 */ /* x236871 */ /* x236870 */ /* x236873 */ /* x236872 */ /* x236875 */ /* x236874 */ /* x236877 */ /* x236876 */ /* x236879 */ /* x236878 */ /* x236881 */ /* x236880 */ /* x236883 */ /* x236882 */ /* x236885 */ /* x236884 */ /* x236887 */ /* x236886 */ /* x236889 */ /* x236888 */ /* x236891 */ /* x236890 */ /* x236893 */ /* x236892 */ /* x236895 */ /* x236894 */ /* x236897 */ /* x236896 */ /* x236899 */ /* x236898 */ /* x236901 */ /* x236900 */ /* x236903 */ /* x236902 */ /* x236905 */ /* x236904 */ /* x236907 */ /* x236906 */ /* x236909 */ /* x236908 */ /* x236911 */ /* x236910 */ /* x236913 */ /* x236912 */ /* x236915 */ /* x236914 */ /* x236917 */ /* x236916 */ /* x236919 */ /* x236918 */ /* x236921 */ /* x236920 */ /* x236923 */ /* x236922 */ /* x236925 */ /* x236924 */ /* x236927 */ /* x236926 */ /* x236929 */ /* x236928 */ /* x236931 */ /* x236930 */ /* x236933 */ /* x236932 */ /* x236935 */ /* x236934 */ /* x236937 */ /* x236936 */ /* x236939 */ /* x236938 */ /* x236941 */ /* x236940 */ /* x236943 */ /* x236942 */ /* x236945 */ /* x236944 */ /* x236947 */ /* x236946 */ /* x236949 */ /* x236948 */ /* x236951 */ /* x236950 */ /* x236953 */ /* x236952 */ /* x236955 */ /* x236954 */ /* x236957 */ /* x236956 */ /* x236959 */ /* x236958 */ /* x236961 */ /* x236960 */ /* x236963 */ /* x236962 */ /* x236965 */ /* x236964 */ /* x236967 */ /* x236966 */ /* x236969 */ /* x236968 */ /* x236971 */ /* x236970 */ /* x236973 */ /* x236972 */ /* x236975 */ /* x236974 */ /* x236977 */ /* x236976 */ /* x236979 */ /* x236978 */ /* x236981 */ /* x236980 */ /* x236983 */ /* x236982 */ /* x236985 */ /* x236984 */ /* x236987 */ /* x236986 */ /* x236989 */ /* x236988 */ /* x236991 */ /* x236990 */ /* x236993 */ /* x236992 */ /* x236995 */ /* x236994 */ /* x236997 */ /* x236996 */ /* x236999 */ /* x236998 */ /* x237001 */ /* x237000 */ /* x237003 */ /* x237002 */ /* x237005 */ /* x237004 */ /* x237007 */ /* x237006 */ /* x237009 */ /* x237008 */ /* x237011 */ /* x237010 */ /* x237013 */ /* x237012 */ /* x237015 */ /* x237014 */ /* x237017 */ /* x237016 */ /* x237019 */ /* x237018 */ /* x237021 */ /* x237020 */ /* x237023 */ /* x237022 */ /* x237025 */ /* x237024 */ /* x237027 */ /* x237026 */ /* x237029 */ /* x237028 */ /* x237031 */ /* x237030 */ /* x237033 */ /* x237032 */ /* x237035 */ /* x237034 */ /* x237037 */ /* x237036 */ /* x237039 */ /* x237038 */ /* x237041 */ /* x237040 */ /* x237043 */ /* x237042 */ /* x237045 */ /* x237044 */ /* x237047 */ /* x237046 */ /* x237049 */ /* x237048 */ /* x237051 */ /* x237050 */ /* x237053 */ /* x237052 */ /* x237055 */ /* x237054 */ /* x237057 */ /* x237056 */ /* x237059 */ /* x237058 */ /* x237061 */ /* x237060 */ /* x237063 */ /* x237062 */ /* x237065 */ /* x237064 */ /* x237067 */ /* x237066 */ /* x237069 */ /* x237068 */ /* x237071 */ /* x237070 */ /* x237073 */ /* x237072 */ /* x237075 */ /* x237074 */ /* x237077 */ /* x237076 */ /* x237079 */ /* x237078 */ /* x237081 */ /* x237080 */ /* x237083 */ /* x237082 */ /* x237085 */ /* x237084 */ /* x237087 */ /* x237086 */ /* x237089 */ /* x237088 */ /* x237091 */ /* x237090 */ /* x237093 */ /* x237092 */ /* x237095 */ /* x237094 */ /* x237097 */ /* x237096 */ /* x237099 */ /* x237098 */ /* x237101 */ /* x237100 */ /* x237103 */ /* x237102 */ /* x237105 */ /* x237104 */ /* x237107 */ /* x237106 */ /* x237109 */ /* x237108 */ /* x237111 */ /* x237110 */ /* x237113 */ /* x237112 */ /* x237115 */ /* x237114 */ /* x237117 */ /* x237116 */ /* x237119 */ /* x237118 */ /* x237121 */ /* x237120 */ /* x237123 */ /* x237122 */ /* x237125 */ /* x237124 */ /* x237127 */ /* x237126 */ /* x237129 */ /* x237128 */ /* x237131 */ /* x237130 */ /* x237133 */ /* x237132 */ /* x237135 */ /* x237134 */ /* x237137 */ /* x237136 */ /* x237139 */ /* x237138 */ /* x237141 */ /* x237140 */ /* x237143 */ /* x237142 */ /* x237145 */ /* x237144 */ /* x237147 */ /* x237146 */ /* x237149 */ /* x237148 */ /* x237151 */ /* x237150 */ /* x237153 */ /* x237152 */ /* x237155 */ /* x237154 */ /* x237157 */ /* x237156 */ /* x237159 */ /* x237158 */ /* x237161 */ /* x237160 */ /* x237163 */ /* x237162 */ /* x237165 */ /* x237164 */ /* x237167 */ /* x237166 */ /* x237169 */ /* x237168 */ /* x237171 */ /* x237170 */ /* x237173 */ /* x237172 */ /* x237175 */ /* x237174 */ /* x237177 */ /* x237176 */ /* x237179 */ /* x237178 */ /* x237181 */ /* x237180 */ /* x237183 */ /* x237182 */ /* x237185 */ /* x237184 */ /* x237187 */ /* x237186 */ /* x237189 */ /* x237188 */ /* x237191 */ /* x237190 */ /* x237193 */ /* x237192 */ /* x237195 */ /* x237194 */ /* x237197 */ /* x237196 */ /* x237199 */ /* x237198 */ /* x237201 */ /* x237200 */ /* x237203 */ /* x237202 */ /* x237205 */ /* x237204 */ /* x237207 */ /* x237206 */ /* x237209 */ /* x237208 */ /* x237211 */ /* x237210 */ /* x237213 */ /* x237212 */ /* x237215 */ /* x237214 */ /* x237217 */ /* x237216 */ /* x237219 */ /* x237218 */ /* x237221 */ /* x237220 */ /* x237223 */ /* x237222 */ /* x237225 */ /* x237224 */ /* x237227 */ /* x237226 */ /* x237229 */ /* x237228 */ /* x237231 */ /* x237230 */ /* x237233 */ /* x237232 */ /* x237235 */ /* x237234 */ /* x237237 */ /* x237236 */ /* x237239 */ /* x237238 */ /* x237241 */ /* x237240 */ /* x237243 */ /* x237242 */ /* x237245 */ /* x237244 */ /* x237247 */ /* x237246 */ /* x237249 */ /* x237248 */ /* x237251 */ /* x237250 */ /* x237253 */ /* x237252 */ /* x237255 */ /* x237254 */ /* x237257 */ /* x237256 */ /* x237259 */ /* x237258 */ /* x237261 */ /* x237260 */ /* x237263 */ /* x237262 */ /* x237265 */ /* x237264 */ /* x237267 */ /* x237266 */ /* x237269 */ /* x237268 */ /* x237271 */ /* x237270 */ /* x237273 */ /* x237272 */ /* x237275 */ /* x237274 */ /* x237277 */ /* x237276 */ /* x237279 */ /* x237278 */ /* x237281 */ /* x237280 */ /* x237283 */ /* x237282 */ /* x237285 */ /* x237284 */ /* x237287 */ /* x237286 */ /* x237289 */ /* x237288 */ /* x237291 */ /* x237290 */ /* x237293 */ /* x237292 */ /* x237295 */ /* x237294 */ /* x237297 */ /* x237296 */ /* x237299 */ /* x237298 */ /* x237301 */ /* x237300 */ /* x237303 */ /* x237302 */ /* x237305 */ /* x237304 */ /* x237307 */ /* x237306 */ /* x237309 */ /* x237308 */ /* x237311 */ /* x237310 */ /* x237313 */ /* x237312 */ /* x237315 */ /* x237314 */ /* x237317 */ /* x237316 */ /* x237319 */ /* x237318 */ /* x237321 */ /* x237320 */ /* x237323 */ /* x237322 */ /* x237325 */ /* x237324 */ /* x237327 */ /* x237326 */ /* x237329 */ /* x237328 */ /* x237331 */ /* x237330 */ /* x237333 */ /* x237332 */ /* x237335 */ /* x237334 */ /* x237337 */ /* x237336 */ /* x237339 */ /* x237338 */ /* x237341 */ /* x237340 */ /* x237343 */ /* x237342 */ /* x237345 */ /* x237344 */ /* x237347 */ /* x237346 */ /* x237349 */ /* x237348 */ /* x237351 */ /* x237350 */ /* x237353 */ /* x237352 */ /* x237355 */ /* x237354 */ /* x237357 */ /* x237356 */ /* x237359 */ /* x237358 */ /* x237361 */ /* x237360 */ /* x237363 */ /* x237362 */ /* x237365 */ /* x237364 */ /* x237367 */ /* x237366 */ /* x237369 */ /* x237368 */ /* x237371 */ /* x237370 */ /* x237373 */ /* x237372 */ /* x237375 */ /* x237374 */ /* x237377 */ /* x237376 */ /* x237379 */ /* x237378 */ /* x237381 */ /* x237380 */ /* x237383 */ /* x237382 */ /* x237385 */ /* x237384 */ /* x237387 */ /* x237386 */ /* x237389 */ /* x237388 */ /* x237391 */ /* x237390 */ /* x237393 */ /* x237392 */ /* x237395 */ /* x237394 */ /* x237397 */ /* x237396 */ /* x237399 */ /* x237398 */ /* x237401 */ /* x237400 */ /* x237403 */ /* x237402 */ /* x237405 */ /* x237404 */ /* x237407 */ /* x237406 */ /* x237409 */ /* x237408 */ /* x237411 */ /* x237410 */ /* x237413 */ /* x237412 */ /* x237415 */ /* x237414 */ /* x237417 */ /* x237416 */ /* x237419 */ /* x237418 */ /* x237421 */ /* x237420 */ /* x237423 */ /* x237422 */ /* x237425 */ /* x237424 */ /* x237427 */ /* x237426 */ /* x237429 */ /* x237428 */ /* x237431 */ /* x237430 */ /* x237433 */ /* x237432 */ /* x237435 */ /* x237434 */ /* x237437 */ /* x237436 */ /* x237439 */ /* x237438 */ /* x237441 */ /* x237440 */ /* x237443 */ /* x237442 */ /* x237445 */ /* x237444 */ /* x237447 */ /* x237446 */ /* x237449 */ /* x237448 */ /* x237451 */ /* x237450 */ /* x237453 */ /* x237452 */ /* x237455 */ /* x237454 */ /* x237457 */ /* x237456 */ /* x237459 */ /* x237458 */ /* x237461 */ /* x237460 */ /* x237463 */ /* x237462 */ /* x237465 */ /* x237464 */ /* x237467 */ /* x237466 */ /* x237469 */ /* x237468 */ /* x237471 */ /* x237470 */ /* x237473 */ /* x237472 */ /* x237475 */ /* x237474 */ /* x237477 */ /* x237476 */ /* x237479 */ /* x237478 */ /* x237481 */ /* x237480 */ /* x237483 */ /* x237482 */ /* x237485 */ /* x237484 */ /* x237487 */ /* x237486 */ /* x237489 */ /* x237488 */ /* x237491 */ /* x237490 */ /* x237493 */ /* x237492 */ /* x237495 */ /* x237494 */ /* x237497 */ /* x237496 */ /* x237499 */ /* x237498 */ /* x237501 */ /* x237500 */ /* x237503 */ /* x237502 */ /* x237505 */ /* x237504 */ /* x237507 */ /* x237506 */ /* x237509 */ /* x237508 */ /* x237511 */ /* x237510 */ /* x237513 */ /* x237512 */ /* x237515 */ /* x237514 */ /* x237517 */ /* x237516 */ /* x237519 */ /* x237518 */ /* x237521 */ /* x237520 */ /* x237523 */ /* x237522 */ /* x237525 */ /* x237524 */ /* x237527 */ /* x237526 */ /* x237529 */ /* x237528 */ /* x237531 */ /* x237530 */ /* x237533 */ /* x237532 */ /* x237535 */ /* x237534 */ /* x237537 */ /* x237536 */ /* x237539 */ /* x237538 */ /* x237541 */ /* x237540 */ /* x237543 */ /* x237542 */ /* x237545 */ /* x237544 */ /* x237547 */ /* x237546 */ /* x237549 */ /* x237548 */ /* x237551 */ /* x237550 */ /* x237553 */ /* x237552 */ /* x237555 */ /* x237554 */ /* x237557 */ /* x237556 */ /* x237559 */ /* x237558 */ /* x237561 */ /* x237560 */ /* x237563 */ /* x237562 */ /* x237565 */ /* x237564 */ /* x237567 */ /* x237566 */ /* x237569 */ /* x237568 */ /* x237571 */ /* x237570 */ /* x237573 */ /* x237572 */ /* x237575 */ /* x237574 */ /* x237577 */ /* x237576 */ /* x237579 */ /* x237578 */ /* x237581 */ /* x237580 */ /* x237583 */ /* x237582 */ /* x237585 */ /* x237584 */ /* x237587 */ /* x237586 */ /* x237589 */ /* x237588 */ /* x237591 */ /* x237590 */ /* x237593 */ /* x237592 */ /* x237595 */ /* x237594 */ /* x237597 */ /* x237596 */ /* x237599 */ /* x237598 */ /* x237601 */ /* x237600 */ /* x237603 */ /* x237602 */ /* x237605 */ /* x237604 */ /* x237607 */ /* x237606 */ /* x237609 */ /* x237608 */ /* x237611 */ /* x237610 */ /* x237613 */ /* x237612 */ /* x237615 */ /* x237614 */ /* x237617 */ /* x237616 */ /* x237619 */ /* x237618 */ /* x237621 */ /* x237620 */ /* x237623 */ /* x237622 */ /* x237625 */ /* x237624 */ /* x237627 */ /* x237626 */ /* x237629 */ /* x237628 */ /* x237631 */ /* x237630 */ /* x237633 */ /* x237632 */ /* x237635 */ /* x237634 */ /* x237637 */ /* x237636 */ /* x237639 */ /* x237638 */ /* x237641 */ /* x237640 */ /* x237643 */ /* x237642 */ /* x237645 */ /* x237644 */ /* x237647 */ /* x237646 */ /* x237649 */ /* x237648 */ /* x237651 */ /* x237650 */ /* x237653 */ /* x237652 */ /* x237655 */ /* x237654 */ /* x237657 */ /* x237656 */ /* x237659 */ /* x237658 */ /* x237661 */ /* x237660 */ /* x237663 */ /* x237662 */ /* x237665 */ /* x237664 */ /* x237667 */ /* x237666 */ /* x237669 */ /* x237668 */ /* x237671 */ /* x237670 */ /* x237673 */ /* x237672 */ /* x237675 */ /* x237674 */ /* x237677 */ /* x237676 */ /* x237679 */ /* x237678 */ /* x237681 */ /* x237680 */ /* x237683 */ /* x237682 */ /* x237685 */ /* x237684 */ /* x237687 */ /* x237686 */ /* x237689 */ /* x237688 */ /* x237691 */ /* x237690 */ /* x237693 */ /* x237692 */ /* x237695 */ /* x237694 */ /* x237697 */ /* x237696 */ /* x237699 */ /* x237698 */ /* x237701 */ /* x237700 */ /* x237703 */ /* x237702 */ /* x237705 */ /* x237704 */ /* x237707 */ /* x237706 */ /* x237709 */ /* x237708 */ /* x237711 */ /* x237710 */ /* x237713 */ /* x237712 */ /* x237715 */ /* x237714 */ /* x237717 */ /* x237716 */ /* x237719 */ /* x237718 */ /* x237721 */ /* x237720 */ /* x237723 */ /* x237722 */ /* x237725 */ /* x237724 */ /* x237727 */ /* x237726 */ /* x237729 */ /* x237728 */ /* x237731 */ /* x237730 */ /* x237733 */ /* x237732 */ /* x237735 */ /* x237734 */ /* x237737 */ /* x237736 */ /* x237739 */ /* x237738 */ /* x237741 */ /* x237740 */ /* x237743 */ /* x237742 */ /* x237745 */ /* x237744 */ /* x237747 */ /* x237746 */ /* x237749 */ /* x237748 */ /* x237751 */ /* x237750 */ /* x237753 */ /* x237752 */ /* x237755 */ /* x237754 */ /* x237757 */ /* x237756 */ /* x237759 */ /* x237758 */ /* x237761 */ /* x237760 */ /* x237763 */ /* x237762 */ /* x237765 */ /* x237764 */ /* x237767 */ /* x237766 */ /* x237769 */ /* x237768 */ /* x237771 */ /* x237770 */ /* x237773 */ /* x237772 */ /* x237775 */ /* x237774 */ /* x237777 */ /* x237776 */ /* x237779 */ /* x237778 */ /* x237781 */ /* x237780 */ /* x237783 */ /* x237782 */ /* x237785 */ /* x237784 */ /* x237787 */ /* x237786 */ /* x237789 */ /* x237788 */ /* x237791 */ /* x237790 */ /* x237793 */ /* x237792 */ /* x237795 */ /* x237794 */ /* x237797 */ /* x237796 */ /* x237799 */ /* x237798 */ /* x237801 */ /* x237800 */ /* x237803 */ /* x237802 */ /* x237805 */ /* x237804 */ /* x237807 */ /* x237806 */ /* x237809 */ /* x237808 */ /* x237811 */ /* x237810 */ /* x237813 */ /* x237812 */ /* x237815 */ /* x237814 */ /* x237817 */ /* x237816 */ /* x237819 */ /* x237818 */ /* x237821 */ /* x237820 */ /* x237823 */ /* x237822 */ /* x237825 */ /* x237824 */ /* x237827 */ /* x237826 */ /* x237829 */ /* x237828 */ /* x237831 */ /* x237830 */ /* x237833 */ /* x237832 */ /* x237835 */ /* x237834 */ /* x237837 */ /* x237836 */ /* x237839 */ /* x237838 */ /* x237841 */ /* x237840 */ /* x237843 */ /* x237842 */ /* x237845 */ /* x237844 */ /* x237847 */ /* x237846 */ /* x237849 */ /* x237848 */ /* x237851 */ /* x237850 */ /* x237853 */ /* x237852 */ /* x237855 */ /* x237854 */ /* x237857 */ /* x237856 */ /* x237859 */ /* x237858 */ /* x237861 */ /* x237860 */ /* x237863 */ /* x237862 */ /* x237865 */ /* x237864 */ /* x237867 */ /* x237866 */ /* x237869 */ /* x237868 */ /* x237871 */ /* x237870 */ /* x237873 */ /* x237872 */ /* x237875 */ /* x237874 */ /* x237877 */ /* x237876 */ /* x237879 */ /* x237878 */ /* x237881 */ /* x237880 */ /* x237883 */ /* x237882 */ /* x237885 */ /* x237884 */ /* x237887 */ /* x237886 */ /* x237889 */ /* x237888 */ /* x237891 */ /* x237890 */ /* x237893 */ /* x237892 */ /* x237895 */ /* x237894 */ /* x237897 */ /* x237896 */ /* x237899 */ /* x237898 */ /* x237901 */ /* x237900 */ /* x237903 */ /* x237902 */ /* x237905 */ /* x237904 */ /* x237907 */ /* x237906 */ /* x237909 */ /* x237908 */ /* x237911 */ /* x237910 */ /* x237913 */ /* x237912 */ /* x237915 */ /* x237914 */ /* x237917 */ /* x237916 */ /* x237919 */ /* x237918 */ /* x237921 */ /* x237920 */ /* x237923 */ /* x237922 */ /* x237925 */ /* x237924 */ /* x237927 */ /* x237926 */ /* x237929 */ /* x237928 */ /* x237931 */ /* x237930 */ /* x237933 */ /* x237932 */ /* x237935 */ /* x237934 */ /* x237937 */ /* x237936 */ /* x237939 */ /* x237938 */ /* x237941 */ /* x237940 */ /* x237943 */ /* x237942 */ /* x237945 */ /* x237944 */ /* x237947 */ /* x237946 */ /* x237949 */ /* x237948 */ /* x237951 */ /* x237950 */ /* x237953 */ /* x237952 */ /* x237955 */ /* x237954 */ /* x237957 */ /* x237956 */ /* x237959 */ /* x237958 */ /* x237961 */ /* x237960 */ /* x237963 */ /* x237962 */ /* x237965 */ /* x237964 */ /* x237967 */ /* x237966 */ /* x237969 */ /* x237968 */ /* x237971 */ /* x237970 */ /* x237973 */ /* x237972 */ /* x237975 */ /* x237974 */ /* x237977 */ /* x237976 */ /* x237979 */ /* x237978 */ /* x237981 */ /* x237980 */ /* x237983 */ /* x237982 */ /* x237985 */ /* x237984 */ /* x237987 */ /* x237986 */ /* x237989 */ /* x237988 */ /* x237991 */ /* x237990 */ /* x237993 */ /* x237992 */ /* x237995 */ /* x237994 */ /* x237997 */ /* x237996 */ /* x237999 */ /* x237998 */ /* x238001 */ /* x238000 */ /* x238003 */ /* x238002 */ /* x238005 */ /* x238004 */ /* x238007 */ /* x238006 */ /* x238009 */ /* x238008 */ /* x238011 */ /* x238010 */ /* x238013 */ /* x238012 */ /* x238015 */ /* x238014 */ /* x238017 */ /* x238016 */ /* x238019 */ /* x238018 */ /* x238021 */ /* x238020 */ /* x238023 */ /* x238022 */ /* x238025 */ /* x238024 */ /* x238027 */ /* x238026 */ /* x238029 */ /* x238028 */ /* x238031 */ /* x238030 */ /* x238033 */ /* x238032 */ /* x238035 */ /* x238034 */ /* x238037 */ /* x238036 */ /* x238039 */ /* x238038 */ /* x238041 */ /* x238040 */ /* x238043 */ /* x238042 */ /* x238045 */ /* x238044 */ /* x238047 */ /* x238046 */ /* x238049 */ /* x238048 */ /* x238051 */ /* x238050 */ /* x238053 */ /* x238052 */ /* x238055 */ /* x238054 */ /* x238057 */ /* x238056 */ /* x238059 */ /* x238058 */ /* x238061 */ /* x238060 */ /* x238063 */ /* x238062 */ /* x238065 */ /* x238064 */ /* x238067 */ /* x238066 */ /* x238069 */ /* x238068 */ /* x238071 */ /* x238070 */ /* x238073 */ /* x238072 */ /* x238075 */ /* x238074 */ /* x238077 */ /* x238076 */ /* x238079 */ /* x238078 */ /* x238081 */ /* x238080 */ /* x238083 */ /* x238082 */ /* x238085 */ /* x238084 */ /* x238087 */ /* x238086 */ /* x238089 */ /* x238088 */ /* x238091 */ /* x238090 */ /* x238093 */ /* x238092 */ /* x238095 */ /* x238094 */ /* x238097 */ /* x238096 */ /* x238099 */ /* x238098 */ /* x238101 */ /* x238100 */ /* x238103 */ /* x238102 */ /* x238105 */ /* x238104 */ /* x238107 */ /* x238106 */ /* x238109 */ /* x238108 */ /* x238111 */ /* x238110 */ /* x238113 */ /* x238112 */ /* x238115 */ /* x238114 */ /* x238117 */ /* x238116 */ /* x238119 */ /* x238118 */ /* x238121 */ /* x238120 */ /* x238123 */ /* x238122 */ /* x238125 */ /* x238124 */ /* x238127 */ /* x238126 */ /* x238129 */ /* x238128 */ /* x238131 */ /* x238130 */ /* x238133 */ /* x238132 */ /* x238135 */ /* x238134 */ /* x238137 */ /* x238136 */ /* x238139 */ /* x238138 */ /* x238141 */ /* x238140 */ /* x238143 */ /* x238142 */ /* x238145 */ /* x238144 */ /* x238147 */ /* x238146 */ /* x238149 */ /* x238148 */ /* x238151 */ /* x238150 */ /* x238153 */ /* x238152 */ /* x238155 */ /* x238154 */ /* x238157 */ /* x238156 */ /* x238159 */ /* x238158 */ /* x238161 */ /* x238160 */ /* x238163 */ /* x238162 */ /* x238165 */ /* x238164 */ /* x238167 */ /* x238166 */ /* x238169 */ /* x238168 */ /* x238171 */ /* x238170 */ /* x238173 */ /* x238172 */ /* x238175 */ /* x238174 */ /* x238177 */ /* x238176 */ /* x238179 */ /* x238178 */ /* x238181 */ /* x238180 */ /* x238183 */ /* x238182 */ /* x238185 */ /* x238184 */ /* x238187 */ /* x238186 */ /* x238189 */ /* x238188 */ /* x238191 */ /* x238190 */ /* x238193 */ /* x238192 */ /* x238195 */ /* x238194 */ /* x238197 */ /* x238196 */ /* x238199 */ /* x238198 */ /* x238201 */ /* x238200 */ /* x238203 */ /* x238202 */ /* x238205 */ /* x238204 */ /* x238207 */ /* x238206 */ /* x238209 */ /* x238208 */ /* x238211 */ /* x238210 */ /* x238213 */ /* x238212 */ /* x238215 */ /* x238214 */ /* x238217 */ /* x238216 */ /* x238219 */ /* x238218 */ /* x238221 */ /* x238220 */ /* x238223 */ /* x238222 */ /* x238225 */ /* x238224 */ /* x238227 */ /* x238226 */ /* x238229 */ /* x238228 */ /* x238231 */ /* x238230 */ /* x238233 */ /* x238232 */ /* x238235 */ /* x238234 */ /* x238237 */ /* x238236 */ /* x238239 */ /* x238238 */ /* x238241 */ /* x238240 */ /* x238243 */ /* x238242 */ /* x238245 */ /* x238244 */ /* x238247 */ /* x238246 */ /* x238249 */ /* x238248 */ /* x238251 */ /* x238250 */ /* x238253 */ /* x238252 */ /* x238255 */ /* x238254 */ /* x238257 */ /* x238256 */ /* x238259 */ /* x238258 */ /* x238261 */ /* x238260 */ /* x238263 */ /* x238262 */ /* x238265 */ /* x238264 */ /* x238267 */ /* x238266 */ /* x238269 */ /* x238268 */ /* x238271 */ /* x238270 */ /* x238273 */ /* x238272 */ /* x238275 */ /* x238274 */ /* x238277 */ /* x238276 */ /* x238279 */ /* x238278 */ /* x238281 */ /* x238280 */ /* x238283 */ /* x238282 */ /* x238285 */ /* x238284 */ /* x238287 */ /* x238286 */ /* x238289 */ /* x238288 */ /* x238291 */ /* x238290 */ /* x238293 */ /* x238292 */ /* x238295 */ /* x238294 */ /* x238297 */ /* x238296 */ /* x238299 */ /* x238298 */ /* x238301 */ /* x238300 */ /* x238303 */ /* x238302 */ /* x238305 */ /* x238304 */ /* x238307 */ /* x238306 */ /* x238309 */ /* x238308 */ /* x238311 */ /* x238310 */ /* x238313 */ /* x238312 */ /* x238315 */ /* x238314 */ /* x238317 */ /* x238316 */ /* x238319 */ /* x238318 */ /* x238321 */ /* x238320 */ /* x238323 */ /* x238322 */ /* x238325 */ /* x238324 */ /* x238327 */ /* x238326 */ /* x238329 */ /* x238328 */ /* x238331 */ /* x238330 */ /* x238333 */ /* x238332 */ /* x238335 */ /* x238334 */ /* x238337 */ /* x238336 */ /* x238339 */ /* x238338 */ /* x238341 */ /* x238340 */ /* x238343 */ /* x238342 */ /* x238345 */ /* x238344 */ /* x238347 */ /* x238346 */ /* x238349 */ /* x238348 */ /* x238351 */ /* x238350 */ /* x238353 */ /* x238352 */ /* x238355 */ /* x238354 */ /* x238357 */ /* x238356 */ /* x238359 */ /* x238358 */ /* x238361 */ /* x238360 */ /* x238363 */ /* x238362 */ /* x238365 */ /* x238364 */ /* x238367 */ /* x238366 */ /* x238369 */ /* x238368 */ /* x238371 */ /* x238370 */ /* x238373 */ /* x238372 */ /* x238375 */ /* x238374 */ /* x238377 */ /* x238376 */ /* x238379 */ /* x238378 */ /* x238381 */ /* x238380 */ /* x238383 */ /* x238382 */ /* x238385 */ /* x238384 */ /* x238387 */ /* x238386 */ /* x238389 */ /* x238388 */ /* x238391 */ /* x238390 */ /* x238393 */ /* x238392 */ /* x238395 */ /* x238394 */ /* x238397 */ /* x238396 */ /* x238399 */ /* x238398 */ /* x238401 */ /* x238400 */ /* x238403 */ /* x238402 */ /* x238405 */ /* x238404 */ /* x238407 */ /* x238406 */ /* x238409 */ /* x238408 */ /* x238411 */ /* x238410 */ /* x238413 */ /* x238412 */ /* x238415 */ /* x238414 */ /* x238417 */ /* x238416 */ /* x238419 */ /* x238418 */ /* x238421 */ /* x238420 */ /* x238423 */ /* x238422 */ /* x238425 */ /* x238424 */ /* x238427 */ /* x238426 */ /* x238429 */ /* x238428 */ /* x238431 */ /* x238430 */ /* x238433 */ /* x238432 */ /* x238435 */ /* x238434 */ /* x238437 */ /* x238436 */ /* x238439 */ /* x238438 */ /* x238441 */ /* x238440 */ /* x238443 */ /* x238442 */ /* x238445 */ /* x238444 */ /* x238447 */ /* x238446 */ /* x238449 */ /* x238448 */ /* x238451 */ /* x238450 */ /* x238453 */ /* x238452 */ /* x238455 */ /* x238454 */ /* x238457 */ /* x238456 */ /* x238459 */ /* x238458 */ /* x238461 */ /* x238460 */ /* x238463 */ /* x238462 */ /* x238465 */ /* x238464 */ /* x238467 */ /* x238466 */ /* x238469 */ /* x238468 */ /* x238471 */ /* x238470 */ /* x238473 */ /* x238472 */ /* x238475 */ /* x238474 */ /* x238477 */ /* x238476 */ /* x238479 */ /* x238478 */ /* x238481 */ /* x238480 */ /* x238483 */ /* x238482 */ /* x238485 */ /* x238484 */ /* x238487 */ /* x238486 */ /* x238489 */ /* x238488 */ /* x238491 */ /* x238490 */ /* x238493 */ /* x238492 */ /* x238495 */ /* x238494 */ /* x238497 */ /* x238496 */ /* x238499 */ /* x238498 */ /* x238501 */ /* x238500 */ /* x238503 */ /* x238502 */ /* x238505 */ /* x238504 */ /* x238507 */ /* x238506 */ /* x238509 */ /* x238508 */ /* x238511 */ /* x238510 */ /* x238513 */ /* x238512 */ /* x238515 */ /* x238514 */ /* x238517 */ /* x238516 */ /* x238519 */ /* x238518 */ /* x238521 */ /* x238520 */ /* x238523 */ /* x238522 */ /* x238525 */ /* x238524 */ /* x238527 */ /* x238526 */ /* x238529 */ /* x238528 */ /* x238531 */ /* x238530 */ /* x238533 */ /* x238532 */ /* x238535 */ /* x238534 */ /* x238537 */ /* x238536 */ /* x238539 */ /* x238538 */ /* x238541 */ /* x238540 */ /* x238543 */ /* x238542 */ /* x238545 */ /* x238544 */ /* x238547 */ /* x238546 */ /* x238549 */ /* x238548 */ /* x238551 */ /* x238550 */ /* x238553 */ /* x238552 */ /* x238555 */ /* x238554 */ /* x238557 */ /* x238556 */ /* x238559 */ /* x238558 */ /* x238561 */ /* x238560 */ /* x238563 */ /* x238562 */ /* x238565 */ /* x238564 */ /* x238567 */ /* x238566 */ /* x238569 */ /* x238568 */ /* x238571 */ /* x238570 */ /* x238573 */ /* x238572 */ /* x238575 */ /* x238574 */ /* x238577 */ /* x238576 */ /* x238579 */ /* x238578 */ /* x238581 */ /* x238580 */ /* x238583 */ /* x238582 */ /* x238585 */ /* x238584 */ /* x238587 */ /* x238586 */ /* x238589 */ /* x238588 */ /* x238591 */ /* x238590 */ /* x238593 */ /* x238592 */ /* x238595 */ /* x238594 */ /* x238597 */ /* x238596 */ /* x238599 */ /* x238598 */ /* x238601 */ /* x238600 */ /* x238603 */ /* x238602 */ /* x238605 */ /* x238604 */ /* x238607 */ /* x238606 */ /* x238609 */ /* x238608 */ /* x238611 */ /* x238610 */ /* x238613 */ /* x238612 */ /* x238615 */ /* x238614 */ /* x238617 */ /* x238616 */ /* x238619 */ /* x238618 */ /* x238621 */ /* x238620 */ /* x238623 */ /* x238622 */ /* x238625 */ /* x238624 */ /* x238627 */ /* x238626 */ /* x238629 */ /* x238628 */ /* x238631 */ /* x238630 */ /* x238633 */ /* x238632 */ /* x238635 */ /* x238634 */ /* x238637 */ /* x238636 */ /* x238639 */ /* x238638 */ /* x238641 */ /* x238640 */ /* x238643 */ /* x238642 */ /* x238645 */ /* x238644 */ /* x238647 */ /* x238646 */ /* x238649 */ /* x238648 */ /* x238651 */ /* x238650 */ /* x238653 */ /* x238652 */ /* x238655 */ /* x238654 */ /* x238657 */ /* x238656 */ /* x238659 */ /* x238658 */ /* x238661 */ /* x238660 */ /* x238663 */ /* x238662 */ /* x238665 */ /* x238664 */ /* x238667 */ /* x238666 */ /* x238669 */ /* x238668 */ /* x238671 */ /* x238670 */ /* x238673 */ /* x238672 */ /* x238675 */ /* x238674 */ /* x238677 */ /* x238676 */ /* x238679 */ /* x238678 */ /* x238681 */ /* x238680 */ /* x238683 */ /* x238682 */ /* x238685 */ /* x238684 */ /* x238687 */ /* x238686 */ /* x238689 */ /* x238688 */ /* x238691 */ /* x238690 */ /* x238693 */ /* x238692 */ /* x238695 */ /* x238694 */ /* x238697 */ /* x238696 */ /* x238699 */ /* x238698 */ /* x238701 */ /* x238700 */ /* x238703 */ /* x238702 */ /* x238705 */ /* x238704 */ /* x238707 */ /* x238706 */ /* x238709 */ /* x238708 */ /* x238711 */ /* x238710 */ /* x238713 */ /* x238712 */ /* x238715 */ /* x238714 */ /* x238717 */ /* x238716 */ /* x238719 */ /* x238718 */ /* x238721 */ /* x238720 */ /* x238723 */ /* x238722 */ /* x238725 */ /* x238724 */ /* x238727 */ /* x238726 */ /* x238729 */ /* x238728 */ /* x238731 */ /* x238730 */ /* x238733 */ /* x238732 */ /* x238735 */ /* x238734 */ /* x238737 */ /* x238736 */ /* x238739 */ /* x238738 */ /* x238741 */ /* x238740 */ /* x238743 */ /* x238742 */ /* x238745 */ /* x238744 */ /* x238747 */ /* x238746 */ /* x238749 */ /* x238748 */ /* x238751 */ /* x238750 */ /* x238753 */ /* x238752 */ /* x238755 */ /* x238754 */ /* x238757 */ /* x238756 */ /* x238759 */ /* x238758 */ /* x238761 */ /* x238760 */ /* x238763 */ /* x238762 */ /* x238765 */ /* x238764 */ /* x238767 */ /* x238766 */ /* x238769 */ /* x238768 */ /* x238771 */ /* x238770 */ /* x238773 */ /* x238772 */ /* x238775 */ /* x238774 */ /* x238777 */ /* x238776 */ /* x238779 */ /* x238778 */ /* x238781 */ /* x238780 */ /* x238783 */ /* x238782 */ /* x238785 */ /* x238784 */ /* x238787 */ /* x238786 */ /* x238789 */ /* x238788 */ /* x238791 */ /* x238790 */ /* x238793 */ /* x238792 */ /* x238795 */ /* x238794 */ /* x238797 */ /* x238796 */ /* x238799 */ /* x238798 */ /* x238801 */ /* x238800 */ /* x238803 */ /* x238802 */ /* x238805 */ /* x238804 */ /* x238807 */ /* x238806 */ /* x238809 */ /* x238808 */ /* x238811 */ /* x238810 */ /* x238813 */ /* x238812 */ /* x238815 */ /* x238814 */ /* x238817 */ /* x238816 */ /* x238819 */ /* x238818 */ /* x238821 */ /* x238820 */ /* x238823 */ /* x238822 */ /* x238825 */ /* x238824 */ /* x238827 */ /* x238826 */ /* x238829 */ /* x238828 */ /* x238831 */ /* x238830 */ /* x238833 */ /* x238832 */ /* x238835 */ /* x238834 */ /* x238837 */ /* x238836 */ /* x238839 */ /* x238838 */ /* x238841 */ /* x238840 */ /* x238843 */ /* x238842 */ /* x238845 */ /* x238844 */ /* x238847 */ /* x238846 */ /* x238849 */ /* x238848 */ /* x238851 */ /* x238850 */ /* x238853 */ /* x238852 */ /* x238855 */ /* x238854 */ /* x238857 */ /* x238856 */ /* x238859 */ /* x238858 */ /* x238861 */ /* x238860 */ /* x238863 */ /* x238862 */ /* x238865 */ /* x238864 */ /* x238867 */ /* x238866 */ /* x238869 */ /* x238868 */ /* x238871 */ /* x238870 */ /* x238873 */ /* x238872 */ /* x238875 */ /* x238874 */ /* x238877 */ /* x238876 */ /* x238879 */ /* x238878 */ /* x238881 */ /* x238880 */ /* x238883 */ /* x238882 */ /* x238885 */ /* x238884 */ /* x238887 */ /* x238886 */ /* x238889 */ /* x238888 */ /* x238891 */ /* x238890 */ /* x238893 */ /* x238892 */ /* x238895 */ /* x238894 */ /* x238897 */ /* x238896 */ /* x238899 */ /* x238898 */ /* x238901 */ /* x238900 */ /* x238903 */ /* x238902 */ /* x238905 */ /* x238904 */ /* x238907 */ /* x238906 */ /* x238909 */ /* x238908 */ /* x238911 */ /* x238910 */ /* x238913 */ /* x238912 */ /* x238915 */ /* x238914 */ /* x238917 */ /* x238916 */ /* x238919 */ /* x238918 */ /* x238921 */ /* x238920 */ /* x238923 */ /* x238922 */ /* x238925 */ /* x238924 */ /* x238927 */ /* x238926 */ /* x238929 */ /* x238928 */ /* x238931 */ /* x238930 */ /* x238933 */ /* x238932 */ /* x238935 */ /* x238934 */ /* x238937 */ /* x238936 */ /* x238939 */ /* x238938 */ /* x238941 */ /* x238940 */ /* x238943 */ /* x238942 */ /* x238945 */ /* x238944 */ /* x238947 */ /* x238946 */ /* x238949 */ /* x238948 */ /* x238951 */ /* x238950 */ /* x238953 */ /* x238952 */ /* x238955 */ /* x238954 */ /* x238957 */ /* x238956 */ /* x238959 */ /* x238958 */ /* x238961 */ /* x238960 */ /* x238963 */ /* x238962 */ /* x238965 */ /* x238964 */ /* x238967 */ /* x238966 */ /* x238969 */ /* x238968 */ /* x238971 */ /* x238970 */ /* x238973 */ /* x238972 */ /* x238975 */ /* x238974 */ /* x238977 */ /* x238976 */ /* x238979 */ /* x238978 */ /* x238981 */ /* x238980 */ /* x238983 */ /* x238982 */ /* x238985 */ /* x238984 */ /* x238987 */ /* x238986 */ /* x238989 */ /* x238988 */ /* x238991 */ /* x238990 */ /* x238993 */ /* x238992 */ /* x238995 */ /* x238994 */ /* x238997 */ /* x238996 */ /* x238999 */ /* x238998 */ /* x239001 */ /* x239000 */ /* x239003 */ /* x239002 */ /* x239005 */ /* x239004 */ /* x239007 */ /* x239006 */ /* x239009 */ /* x239008 */ /* x239011 */ /* x239010 */ /* x239013 */ /* x239012 */ /* x239015 */ /* x239014 */ /* x239017 */ /* x239016 */ /* x239019 */ /* x239018 */ /* x239021 */ /* x239020 */ /* x239023 */ /* x239022 */ /* x239025 */ /* x239024 */ /* x239027 */ /* x239026 */ /* x239029 */ /* x239028 */ /* x239031 */ /* x239030 */ /* x239033 */ /* x239032 */ /* x239035 */ /* x239034 */ /* x239037 */ /* x239036 */ /* x239039 */ /* x239038 */ /* x239041 */ /* x239040 */ /* x239043 */ /* x239042 */ /* x239045 */ /* x239044 */ /* x239047 */ /* x239046 */ /* x239049 */ /* x239048 */ /* x239051 */ /* x239050 */ /* x239053 */ /* x239052 */ /* x239055 */ /* x239054 */ /* x239057 */ /* x239056 */ /* x239059 */ /* x239058 */ /* x239061 */ /* x239060 */ /* x239063 */ /* x239062 */ /* x239065 */ /* x239064 */ /* x239067 */ /* x239066 */ /* x239069 */ /* x239068 */ /* x239071 */ /* x239070 */ /* x239073 */ /* x239072 */ /* x239075 */ /* x239074 */ /* x239077 */ /* x239076 */ /* x239079 */ /* x239078 */ /* x239081 */ /* x239080 */ /* x239083 */ /* x239082 */ /* x239085 */ /* x239084 */ /* x239087 */ /* x239086 */ /* x239089 */ /* x239088 */ /* x239091 */ /* x239090 */ /* x239093 */ /* x239092 */ /* x239095 */ /* x239094 */ /* x239097 */ /* x239096 */ /* x239099 */ /* x239098 */ /* x239101 */ /* x239100 */ /* x239103 */ /* x239102 */ /* x239105 */ /* x239104 */ /* x239107 */ /* x239106 */ /* x239109 */ /* x239108 */ /* x239111 */ /* x239110 */ /* x239113 */ /* x239112 */ /* x239115 */ /* x239114 */ /* x239117 */ /* x239116 */ /* x239119 */ /* x239118 */ /* x239121 */ /* x239120 */ /* x239123 */ /* x239122 */ /* x239125 */ /* x239124 */ /* x239127 */ /* x239126 */ /* x239129 */ /* x239128 */ /* x239131 */ /* x239130 */ /* x239133 */ /* x239132 */ /* x239135 */ /* x239134 */ /* x239137 */ /* x239136 */ /* x239139 */ /* x239138 */ /* x239141 */ /* x239140 */ /* x239143 */ /* x239142 */ /* x239145 */ /* x239144 */ /* x239147 */ /* x239146 */ /* x239149 */ /* x239148 */ /* x239151 */ /* x239150 */ /* x239153 */ /* x239152 */ /* x239155 */ /* x239154 */ /* x239157 */ /* x239156 */ /* x239159 */ /* x239158 */ /* x239161 */ /* x239160 */ /* x239163 */ /* x239162 */ /* x239165 */ /* x239164 */ /* x239167 */ /* x239166 */ /* x239169 */ /* x239168 */ /* x239171 */ /* x239170 */ /* x239173 */ /* x239172 */ /* x239175 */ /* x239174 */ /* x239177 */ /* x239176 */ /* x239179 */ /* x239178 */ /* x239181 */ /* x239180 */ /* x239183 */ /* x239182 */ /* x239185 */ /* x239184 */ /* x239187 */ /* x239186 */ /* x239189 */ /* x239188 */ /* x239191 */ /* x239190 */ /* x239193 */ /* x239192 */ /* x239195 */ /* x239194 */ /* x239197 */ /* x239196 */ /* x239199 */ /* x239198 */ /* x239201 */ /* x239200 */ /* x239203 */ /* x239202 */ /* x239205 */ /* x239204 */ /* x239207 */ /* x239206 */ /* x239209 */ /* x239208 */ /* x239211 */ /* x239210 */ /* x239213 */ /* x239212 */ /* x239215 */ /* x239214 */ /* x239217 */ /* x239216 */ /* x239219 */ /* x239218 */ /* x239221 */ /* x239220 */ /* x239223 */ /* x239222 */ /* x239225 */ /* x239224 */ /* x239227 */ /* x239226 */ /* x239229 */ /* x239228 */ /* x239231 */ /* x239230 */ /* x239233 */ /* x239232 */ /* x239235 */ /* x239234 */ /* x239237 */ /* x239236 */ /* x239239 */ /* x239238 */ /* x239241 */ /* x239240 */ /* x239243 */ /* x239242 */ /* x239245 */ /* x239244 */ /* x239247 */ /* x239246 */ /* x239249 */ /* x239248 */ /* x239251 */ /* x239250 */ /* x239253 */ /* x239252 */ /* x239255 */ /* x239254 */ /* x239257 */ /* x239256 */ /* x239259 */ /* x239258 */ /* x239261 */ /* x239260 */ /* x239263 */ /* x239262 */ /* x239265 */ /* x239264 */ /* x239267 */ /* x239266 */ /* x239269 */ /* x239268 */ /* x239271 */ /* x239270 */ /* x239273 */ /* x239272 */ /* x239275 */ /* x239274 */ /* x239277 */ /* x239276 */ /* x239279 */ /* x239278 */ /* x239281 */ /* x239280 */ /* x239283 */ /* x239282 */ /* x239285 */ /* x239284 */ /* x239287 */ /* x239286 */ /* x239289 */ /* x239288 */ /* x239291 */ /* x239290 */ /* x239293 */ /* x239292 */ /* x239295 */ /* x239294 */ /* x239297 */ /* x239296 */ /* x239299 */ /* x239298 */ /* x239301 */ /* x239300 */ /* x239303 */ /* x239302 */ /* x239305 */ /* x239304 */ /* x239307 */ /* x239306 */ /* x239309 */ /* x239308 */ /* x239311 */ /* x239310 */ /* x239313 */ /* x239312 */ /* x239315 */ /* x239314 */ /* x239317 */ /* x239316 */ /* x239319 */ /* x239318 */ /* x239321 */ /* x239320 */ /* x239323 */ /* x239322 */ /* x239325 */ /* x239324 */ /* x239327 */ /* x239326 */ /* x239329 */ /* x239328 */ /* x239331 */ /* x239330 */ /* x239333 */ /* x239332 */ /* x239335 */ /* x239334 */ /* x239337 */ /* x239336 */ /* x239339 */ /* x239338 */ /* x239341 */ /* x239340 */ /* x239343 */ /* x239342 */ /* x239345 */ /* x239344 */ /* x239347 */ /* x239346 */ /* x239349 */ /* x239348 */ /* x239351 */ /* x239350 */ /* x239353 */ /* x239352 */ /* x239355 */ /* x239354 */ /* x239357 */ /* x239356 */ /* x239359 */ /* x239358 */ /* x239361 */ /* x239360 */ /* x239363 */ /* x239362 */ /* x239365 */ /* x239364 */ /* x239367 */ /* x239366 */ /* x239369 */ /* x239368 */ /* x239371 */ /* x239370 */ /* x239373 */ /* x239372 */ /* x239375 */ /* x239374 */ /* x239377 */ /* x239376 */ /* x239379 */ /* x239378 */ /* x239381 */ /* x239380 */ /* x239383 */ /* x239382 */ /* x239385 */ /* x239384 */ /* x239387 */ /* x239386 */ /* x239389 */ /* x239388 */ /* x239391 */ /* x239390 */ /* x239393 */ /* x239392 */ /* x239395 */ /* x239394 */ /* x239397 */ /* x239396 */ /* x239399 */ /* x239398 */ /* x239401 */ /* x239400 */ /* x239403 */ /* x239402 */ /* x239405 */ /* x239404 */ /* x239407 */ /* x239406 */ /* x239409 */ /* x239408 */ /* x239411 */ /* x239410 */ /* x239413 */ /* x239412 */ /* x239415 */ /* x239414 */ /* x239417 */ /* x239416 */ /* x239419 */ /* x239418 */ /* x239421 */ /* x239420 */ /* x239423 */ /* x239422 */ /* x239425 */ /* x239424 */ /* x239427 */ /* x239426 */ /* x239429 */ /* x239428 */ /* x239431 */ /* x239430 */ /* x239433 */ /* x239432 */ /* x239435 */ /* x239434 */ /* x239437 */ /* x239436 */ /* x239439 */ /* x239438 */ /* x239441 */ /* x239440 */ /* x239443 */ /* x239442 */ /* x239445 */ /* x239444 */ /* x239447 */ /* x239446 */ /* x239449 */ /* x239448 */ /* x239451 */ /* x239450 */ /* x239453 */ /* x239452 */ /* x239455 */ /* x239454 */ /* x239457 */ /* x239456 */ /* x239459 */ /* x239458 */ /* x239461 */ /* x239460 */ /* x239463 */ /* x239462 */ /* x239465 */ /* x239464 */ /* x239467 */ /* x239466 */ /* x239469 */ /* x239468 */ /* x239471 */ /* x239470 */ /* x239473 */ /* x239472 */ /* x239475 */ /* x239474 */ /* x239477 */ /* x239476 */ /* x239479 */ /* x239478 */ /* x239481 */ /* x239480 */ /* x239483 */ /* x239482 */ /* x239485 */ /* x239484 */ /* x239487 */ /* x239486 */ /* x239489 */ /* x239488 */ /* x239491 */ /* x239490 */ /* x239493 */ /* x239492 */ /* x239495 */ /* x239494 */ /* x239497 */ /* x239496 */ /* x239499 */ /* x239498 */ /* x239501 */ /* x239500 */ /* x239503 */ /* x239502 */ /* x239505 */ /* x239504 */ /* x239507 */ /* x239506 */ /* x239509 */ /* x239508 */ /* x239511 */ /* x239510 */ /* x239513 */ /* x239512 */ /* x239515 */ /* x239514 */ /* x239517 */ /* x239516 */ /* x239519 */ /* x239518 */ /* x239521 */ /* x239520 */ /* x239523 */ /* x239522 */ /* x239525 */ /* x239524 */ /* x239527 */ /* x239526 */ /* x239529 */ /* x239528 */ /* x239531 */ /* x239530 */ /* x239533 */ /* x239532 */ /* x239535 */ /* x239534 */ /* x239537 */ /* x239536 */ /* x239539 */ /* x239538 */ /* x239541 */ /* x239540 */ /* x239543 */ /* x239542 */ /* x239545 */ /* x239544 */ /* x239547 */ /* x239546 */ /* x239549 */ /* x239548 */ /* x239551 */ /* x239550 */ /* x239553 */ /* x239552 */ /* x239555 */ /* x239554 */ /* x239557 */ /* x239556 */ /* x239559 */ /* x239558 */ /* x239561 */ /* x239560 */ /* x239563 */ /* x239562 */ /* x239565 */ /* x239564 */ /* x239567 */ /* x239566 */ /* x239569 */ /* x239568 */ /* x239571 */ /* x239570 */ /* x239573 */ /* x239572 */ /* x239575 */ /* x239574 */ /* x239577 */ /* x239576 */ /* x239579 */ /* x239578 */ /* x239581 */ /* x239580 */ /* x239583 */ /* x239582 */ /* x239585 */ /* x239584 */ /* x239587 */ /* x239586 */ /* x239589 */ /* x239588 */ /* x239591 */ /* x239590 */ /* x239593 */ /* x239592 */ /* x239595 */ /* x239594 */ /* x239597 */ /* x239596 */ /* x239599 */ /* x239598 */ /* x239601 */ /* x239600 */ /* x239603 */ /* x239602 */ /* x239605 */ /* x239604 */ /* x239607 */ /* x239606 */ /* x239609 */ /* x239608 */ /* x239611 */ /* x239610 */ /* x239613 */ /* x239612 */ /* x239615 */ /* x239614 */ /* x239617 */ /* x239616 */ /* x239619 */ /* x239618 */ /* x239621 */ /* x239620 */ /* x239623 */ /* x239622 */ /* x239625 */ /* x239624 */ /* x239627 */ /* x239626 */ /* x239629 */ /* x239628 */ /* x239631 */ /* x239630 */ /* x239633 */ /* x239632 */ /* x239635 */ /* x239634 */ /* x239637 */ /* x239636 */ /* x239639 */ /* x239638 */ /* x239641 */ /* x239640 */ /* x239643 */ /* x239642 */ /* x239645 */ /* x239644 */ /* x239647 */ /* x239646 */ /* x239649 */ /* x239648 */ /* x239651 */ /* x239650 */ /* x239653 */ /* x239652 */ /* x239655 */ /* x239654 */ /* x239657 */ /* x239656 */ /* x239659 */ /* x239658 */ /* x239661 */ /* x239660 */ /* x239663 */ /* x239662 */ /* x239665 */ /* x239664 */ /* x239667 */ /* x239666 */ /* x239669 */ /* x239668 */ /* x239671 */ /* x239670 */ /* x239673 */ /* x239672 */ /* x239675 */ /* x239674 */ /* x239677 */ /* x239676 */ /* x239679 */ /* x239678 */ /* x239681 */ /* x239680 */ /* x239683 */ /* x239682 */ /* x239685 */ /* x239684 */ /* x239687 */ /* x239686 */ /* x239689 */ /* x239688 */ /* x239691 */ /* x239690 */ /* x239693 */ /* x239692 */ /* x239695 */ /* x239694 */ /* x239697 */ /* x239696 */ /* x239699 */ /* x239698 */ /* x239701 */ /* x239700 */ /* x239703 */ /* x239702 */ /* x239705 */ /* x239704 */ /* x239707 */ /* x239706 */ /* x239709 */ /* x239708 */ /* x239711 */ /* x239710 */ /* x239713 */ /* x239712 */ /* x239715 */ /* x239714 */ /* x239717 */ /* x239716 */ /* x239719 */ /* x239718 */ /* x239721 */ /* x239720 */ /* x239723 */ /* x239722 */ /* x239725 */ /* x239724 */ /* x239727 */ /* x239726 */ /* x239729 */ /* x239728 */ /* x239731 */ /* x239730 */ /* x239733 */ /* x239732 */ /* x239735 */ /* x239734 */ /* x239737 */ /* x239736 */ /* x239739 */ /* x239738 */ /* x239741 */ /* x239740 */ /* x239743 */ /* x239742 */ /* x239745 */ /* x239744 */ /* x239747 */ /* x239746 */ /* x239749 */ /* x239748 */ /* x239751 */ /* x239750 */ /* x239753 */ /* x239752 */ /* x239755 */ /* x239754 */ /* x239757 */ /* x239756 */ /* x239759 */ /* x239758 */ /* x239761 */ /* x239760 */ /* x239763 */ /* x239762 */ /* x239765 */ /* x239764 */ /* x239767 */ /* x239766 */ /* x239769 */ /* x239768 */ /* x239771 */ /* x239770 */ /* x239773 */ /* x239772 */ /* x239775 */ /* x239774 */ /* x239777 */ /* x239776 */ /* x239779 */ /* x239778 */ /* x239781 */ /* x239780 */ /* x239783 */ /* x239782 */ /* x239785 */ /* x239784 */ /* x239787 */ /* x239786 */ /* x239789 */ /* x239788 */ /* x239791 */ /* x239790 */ /* x239793 */ /* x239792 */ /* x239795 */ /* x239794 */ /* x239797 */ /* x239796 */ /* x239799 */ /* x239798 */ /* x239801 */ /* x239800 */ /* x239803 */ /* x239802 */ /* x239805 */ /* x239804 */ /* x239807 */ /* x239806 */ /* x239809 */ /* x239808 */ /* x239811 */ /* x239810 */ /* x239813 */ /* x239812 */ /* x239815 */ /* x239814 */ /* x239817 */ /* x239816 */ /* x239819 */ /* x239818 */ /* x239821 */ /* x239820 */ /* x239823 */ /* x239822 */ /* x239825 */ /* x239824 */ /* x239827 */ /* x239826 */ /* x239829 */ /* x239828 */ /* x239831 */ /* x239830 */ /* x239833 */ /* x239832 */ /* x239835 */ /* x239834 */ /* x239837 */ /* x239836 */ /* x239839 */ /* x239838 */ /* x239841 */ /* x239840 */ /* x239843 */ /* x239842 */ /* x239845 */ /* x239844 */ /* x239847 */ /* x239846 */ /* x239849 */ /* x239848 */ /* x239851 */ /* x239850 */ /* x239853 */ /* x239852 */ /* x239855 */ /* x239854 */ /* x239857 */ /* x239856 */ /* x239859 */ /* x239858 */ /* x239861 */ /* x239860 */ /* x239863 */ /* x239862 */ /* x239865 */ /* x239864 */ /* x239867 */ /* x239866 */ /* x239869 */ /* x239868 */ /* x239871 */ /* x239870 */ /* x239873 */ /* x239872 */ /* x239875 */ /* x239874 */ /* x239877 */ /* x239876 */ /* x239879 */ /* x239878 */ /* x239881 */ /* x239880 */ /* x239883 */ /* x239882 */ /* x239885 */ /* x239884 */ /* x239887 */ /* x239886 */ /* x239889 */ /* x239888 */ /* x239891 */ /* x239890 */ /* x239893 */ /* x239892 */ /* x239895 */ /* x239894 */ /* x239897 */ /* x239896 */ /* x239899 */ /* x239898 */ /* x239901 */ /* x239900 */ /* x239903 */ /* x239902 */ /* x239905 */ /* x239904 */ /* x239907 */ /* x239906 */ /* x239909 */ /* x239908 */ /* x239911 */ /* x239910 */ /* x239913 */ /* x239912 */ /* x239915 */ /* x239914 */ /* x239917 */ /* x239916 */ /* x239919 */ /* x239918 */ /* x239921 */ /* x239920 */ /* x239923 */ /* x239922 */ /* x239925 */ /* x239924 */ /* x239927 */ /* x239926 */ /* x239929 */ /* x239928 */ /* x239931 */ /* x239930 */ /* x239933 */ /* x239932 */ /* x239935 */ /* x239934 */ /* x239937 */ /* x239936 */ /* x239939 */ /* x239938 */ /* x239941 */ /* x239940 */ /* x239943 */ /* x239942 */ /* x239945 */ /* x239944 */ /* x239947 */ /* x239946 */ /* x239949 */ /* x239948 */ /* x239951 */ /* x239950 */ /* x239953 */ /* x239952 */ /* x239955 */ /* x239954 */ /* x239957 */ /* x239956 */ /* x239959 */ /* x239958 */ /* x239961 */ /* x239960 */ /* x239963 */ /* x239962 */ /* x239965 */ /* x239964 */ /* x239967 */ /* x239966 */ /* x239969 */ /* x239968 */ /* x239971 */ /* x239970 */ /* x239973 */ /* x239972 */ /* x239975 */ /* x239974 */ /* x239977 */ /* x239976 */ /* x239979 */ /* x239978 */ /* x239981 */ /* x239980 */ /* x239983 */ /* x239982 */ /* x239985 */ /* x239984 */ /* x239987 */ /* x239986 */ /* x239989 */ /* x239988 */ /* x239991 */ /* x239990 */ /* x239993 */ /* x239992 */ /* x239995 */ /* x239994 */ /* x239997 */ /* x239996 */ /* x239999 */ /* x239998 */ /* x240001 */ /* x240000 */ /* x240003 */ /* x240002 */ /* x240005 */ /* x240004 */ /* x240007 */ /* x240006 */ /* x240009 */ /* x240008 */ /* x240011 */ /* x240010 */ /* x240013 */ /* x240012 */ /* x240015 */ /* x240014 */ /* x240017 */ /* x240016 */ /* x240019 */ /* x240018 */ /* x240021 */ /* x240020 */ /* x240023 */ /* x240022 */ /* x240025 */ /* x240024 */ /* x240027 */ /* x240026 */ /* x240029 */ /* x240028 */ /* x240031 */ /* x240030 */ /* x240033 */ /* x240032 */ /* x240035 */ /* x240034 */ /* x240037 */ /* x240036 */ /* x240039 */ /* x240038 */ /* x240041 */ /* x240040 */ /* x240043 */ /* x240042 */ /* x240045 */ /* x240044 */ /* x240047 */ /* x240046 */ /* x240049 */ /* x240048 */ /* x240051 */ /* x240050 */ /* x240053 */ /* x240052 */ /* x240055 */ /* x240054 */ /* x240057 */ /* x240056 */ /* x240059 */ /* x240058 */ /* x240061 */ /* x240060 */ /* x240063 */ /* x240062 */ /* x240065 */ /* x240064 */ /* x240067 */ /* x240066 */ /* x240069 */ /* x240068 */ /* x240071 */ /* x240070 */ /* x240073 */ /* x240072 */ /* x240075 */ /* x240074 */ /* x240077 */ /* x240076 */ /* x240079 */ /* x240078 */ /* x240081 */ /* x240080 */ /* x240083 */ /* x240082 */ /* x240085 */ /* x240084 */ /* x240087 */ /* x240086 */ /* x240089 */ /* x240088 */ /* x240091 */ /* x240090 */ /* x240093 */ /* x240092 */ /* x240095 */ /* x240094 */ /* x240097 */ /* x240096 */ /* x240099 */ /* x240098 */ /* x240101 */ /* x240100 */ /* x240103 */ /* x240102 */ /* x240105 */ /* x240104 */ /* x240107 */ /* x240106 */ /* x240109 */ /* x240108 */ /* x240111 */ /* x240110 */ /* x240113 */ /* x240112 */ /* x240115 */ /* x240114 */ /* x240117 */ /* x240116 */ /* x240119 */ /* x240118 */ /* x240121 */ /* x240120 */ /* x240123 */ /* x240122 */ /* x240125 */ /* x240124 */ /* x240127 */ /* x240126 */ /* x240129 */ /* x240128 */ /* x240131 */ /* x240130 */ /* x240133 */ /* x240132 */ /* x240135 */ /* x240134 */ /* x240137 */ /* x240136 */ /* x240139 */ /* x240138 */ /* x240141 */ /* x240140 */ /* x240143 */ /* x240142 */ /* x240145 */ /* x240144 */ /* x240147 */ /* x240146 */ /* x240149 */ /* x240148 */ /* x240151 */ /* x240150 */ /* x240153 */ /* x240152 */ /* x240155 */ /* x240154 */ /* x240157 */ /* x240156 */ /* x240159 */ /* x240158 */ /* x240161 */ /* x240160 */ /* x240163 */ /* x240162 */ /* x240165 */ /* x240164 */ /* x240167 */ /* x240166 */ /* x240169 */ /* x240168 */ /* x240171 */ /* x240170 */ /* x240173 */ /* x240172 */ /* x240175 */ /* x240174 */ /* x240177 */ /* x240176 */ /* x240179 */ /* x240178 */ /* x240181 */ /* x240180 */ /* x240183 */ /* x240182 */ /* x240185 */ /* x240184 */ /* x240187 */ /* x240186 */ /* x240189 */ /* x240188 */ /* x240191 */ /* x240190 */ /* x240193 */ /* x240192 */ /* x240195 */ /* x240194 */ /* x240197 */ /* x240196 */ /* x240199 */ /* x240198 */ /* x240201 */ /* x240200 */ /* x240203 */ /* x240202 */ /* x240205 */ /* x240204 */ /* x240207 */ /* x240206 */ /* x240209 */ /* x240208 */ /* x240211 */ /* x240210 */ /* x240213 */ /* x240212 */ /* x240215 */ /* x240214 */ /* x240217 */ /* x240216 */ /* x240219 */ /* x240218 */ /* x240221 */ /* x240220 */ /* x240223 */ /* x240222 */ /* x240225 */ /* x240224 */ /* x240227 */ /* x240226 */ /* x240229 */ /* x240228 */ /* x240231 */ /* x240230 */ /* x240233 */ /* x240232 */ /* x240235 */ /* x240234 */ /* x240237 */ /* x240236 */ /* x240239 */ /* x240238 */ /* x240241 */ /* x240240 */ /* x240243 */ /* x240242 */ /* x240245 */ /* x240244 */ /* x240247 */ /* x240246 */ /* x240249 */ /* x240248 */ /* x240251 */ /* x240250 */ /* x240253 */ /* x240252 */ /* x240255 */ /* x240254 */ /* x240257 */ /* x240256 */ /* x240259 */ /* x240258 */ /* x240261 */ /* x240260 */ /* x240263 */ /* x240262 */ /* x240265 */ /* x240264 */ /* x240267 */ /* x240266 */ /* x240269 */ /* x240268 */ /* x240271 */ /* x240270 */ /* x240273 */ /* x240272 */ /* x240275 */ /* x240274 */ /* x240277 */ /* x240276 */ /* x240279 */ /* x240278 */ /* x240281 */ /* x240280 */ /* x240283 */ /* x240282 */ /* x240285 */ /* x240284 */ /* x240287 */ /* x240286 */ /* x240289 */ /* x240288 */ /* x240291 */ /* x240290 */ /* x240293 */ /* x240292 */ /* x240295 */ /* x240294 */ /* x240297 */ /* x240296 */ /* x240299 */ /* x240298 */ /* x240301 */ /* x240300 */ /* x240303 */ /* x240302 */ /* x240305 */ /* x240304 */ /* x240307 */ /* x240306 */ /* x240309 */ /* x240308 */ /* x240311 */ /* x240310 */ /* x240313 */ /* x240312 */ /* x240315 */ /* x240314 */ /* x240317 */ /* x240316 */ /* x240319 */ /* x240318 */ /* x240321 */ /* x240320 */ /* x240323 */ /* x240322 */ /* x240325 */ /* x240324 */ /* x240327 */ /* x240326 */ /* x240329 */ /* x240328 */ /* x240331 */ /* x240330 */ /* x240333 */ /* x240332 */ /* x240335 */ /* x240334 */ /* x240337 */ /* x240336 */ /* x240339 */ /* x240338 */ /* x240341 */ /* x240340 */ /* x240343 */ /* x240342 */ /* x240345 */ /* x240344 */ /* x240347 */ /* x240346 */ /* x240349 */ /* x240348 */ /* x240351 */ /* x240350 */ /* x240353 */ /* x240352 */ /* x240355 */ /* x240354 */ /* x240357 */ /* x240356 */ /* x240359 */ /* x240358 */ /* x240361 */ /* x240360 */ /* x240363 */ /* x240362 */ /* x240365 */ /* x240364 */ /* x240367 */ /* x240366 */ /* x240369 */ /* x240368 */ /* x240371 */ /* x240370 */ /* x240373 */ /* x240372 */ /* x240375 */ /* x240374 */ /* x240377 */ /* x240376 */ /* x240379 */ /* x240378 */ /* x240381 */ /* x240380 */ /* x240383 */ /* x240382 */ /* x240385 */ /* x240384 */ /* x240387 */ /* x240386 */ /* x240389 */ /* x240388 */ /* x240391 */ /* x240390 */ /* x240393 */ /* x240392 */ /* x240395 */ /* x240394 */ /* x240397 */ /* x240396 */ /* x240399 */ /* x240398 */ /* x240401 */ /* x240400 */ /* x240403 */ /* x240402 */ /* x240405 */ /* x240404 */ /* x240407 */ /* x240406 */ /* x240409 */ /* x240408 */ /* x240411 */ /* x240410 */ /* x240413 */ /* x240412 */ /* x240415 */ /* x240414 */ /* x240417 */ /* x240416 */ /* x240419 */ /* x240418 */ /* x240421 */ /* x240420 */ /* x240423 */ /* x240422 */ /* x240425 */ /* x240424 */ /* x240427 */ /* x240426 */ /* x240429 */ /* x240428 */ /* x240431 */ /* x240430 */ /* x240433 */ /* x240432 */ /* x240435 */ /* x240434 */ /* x240437 */ /* x240436 */ /* x240439 */ /* x240438 */ /* x240441 */ /* x240440 */ /* x240443 */ /* x240442 */ /* x240445 */ /* x240444 */ /* x240447 */ /* x240446 */ /* x240449 */ /* x240448 */ /* x240451 */ /* x240450 */ /* x240453 */ /* x240452 */ /* x240455 */ /* x240454 */ /* x240457 */ /* x240456 */ /* x240459 */ /* x240458 */ /* x240461 */ /* x240460 */ /* x240463 */ /* x240462 */ /* x240465 */ /* x240464 */ /* x240467 */ /* x240466 */ /* x240469 */ /* x240468 */ /* x240471 */ /* x240470 */ /* x240473 */ /* x240472 */ /* x240475 */ /* x240474 */ /* x240477 */ /* x240476 */ /* x240479 */ /* x240478 */ /* x240481 */ /* x240480 */ /* x240483 */ /* x240482 */ /* x240485 */ /* x240484 */ /* x240487 */ /* x240486 */ /* x240489 */ /* x240488 */ /* x240491 */ /* x240490 */ /* x240493 */ /* x240492 */ /* x240495 */ /* x240494 */ /* x240497 */ /* x240496 */ /* x240499 */ /* x240498 */ /* x240501 */ /* x240500 */ /* x240503 */ /* x240502 */ /* x240505 */ /* x240504 */ /* x240507 */ /* x240506 */ /* x240509 */ /* x240508 */ /* x240511 */ /* x240510 */ /* x240513 */ /* x240512 */ /* x240515 */ /* x240514 */ /* x240517 */ /* x240516 */ /* x240519 */ /* x240518 */ /* x240521 */ /* x240520 */ /* x240523 */ /* x240522 */ /* x240525 */ /* x240524 */ /* x240527 */ /* x240526 */ /* x240529 */ /* x240528 */ /* x240531 */ /* x240530 */ /* x240533 */ /* x240532 */ /* x240535 */ /* x240534 */ /* x240537 */ /* x240536 */ /* x240539 */ /* x240538 */ /* x240541 */ /* x240540 */ /* x240543 */ /* x240542 */ /* x240545 */ /* x240544 */ /* x240547 */ /* x240546 */ /* x240549 */ /* x240548 */ /* x240551 */ /* x240550 */ /* x240553 */ /* x240552 */ /* x240555 */ /* x240554 */ /* x240557 */ /* x240556 */ /* x240559 */ /* x240558 */ /* x240561 */ /* x240560 */ /* x240563 */ /* x240562 */ /* x240565 */ /* x240564 */ /* x240567 */ /* x240566 */ /* x240569 */ /* x240568 */ /* x240571 */ /* x240570 */ /* x240573 */ /* x240572 */ /* x240575 */ /* x240574 */ /* x240577 */ /* x240576 */ /* x240579 */ /* x240578 */ /* x240581 */ /* x240580 */ /* x240583 */ /* x240582 */ /* x240585 */ /* x240584 */ /* x240587 */ /* x240586 */ /* x240589 */ /* x240588 */ /* x240591 */ /* x240590 */ /* x240593 */ /* x240592 */ /* x240595 */ /* x240594 */ /* x240597 */ /* x240596 */ /* x240599 */ /* x240598 */ /* x240601 */ /* x240600 */ /* x240603 */ /* x240602 */ /* x240605 */ /* x240604 */ /* x240607 */ /* x240606 */ /* x240609 */ /* x240608 */ /* x240611 */ /* x240610 */ /* x240613 */ /* x240612 */ /* x240615 */ /* x240614 */ /* x240617 */ /* x240616 */ /* x240619 */ /* x240618 */ /* x240621 */ /* x240620 */ /* x240623 */ /* x240622 */ /* x240625 */ /* x240624 */ /* x240627 */ /* x240626 */ /* x240629 */ /* x240628 */ /* x240631 */ /* x240630 */ /* x240633 */ /* x240632 */ /* x240635 */ /* x240634 */ /* x240637 */ /* x240636 */ /* x240639 */ /* x240638 */ /* x240641 */ /* x240640 */ /* x240643 */ /* x240642 */ /* x240645 */ /* x240644 */ /* x240647 */ /* x240646 */ /* x240649 */ /* x240648 */ /* x240651 */ /* x240650 */ /* x240653 */ /* x240652 */ /* x240655 */ /* x240654 */ /* x240657 */ /* x240656 */ /* x240659 */ /* x240658 */ /* x240661 */ /* x240660 */ /* x240663 */ /* x240662 */ /* x240665 */ /* x240664 */ /* x240667 */ /* x240666 */ /* x240669 */ /* x240668 */ /* x240671 */ /* x240670 */ /* x240673 */ /* x240672 */ /* x240675 */ /* x240674 */ /* x240677 */ /* x240676 */ /* x240679 */ /* x240678 */ /* x240681 */ /* x240680 */ /* x240683 */ /* x240682 */ /* x240685 */ /* x240684 */ /* x240687 */ /* x240686 */ /* x240689 */ /* x240688 */ /* x240691 */ /* x240690 */ /* x240693 */ /* x240692 */ /* x240695 */ /* x240694 */ /* x240697 */ /* x240696 */ /* x240699 */ /* x240698 */ /* x240701 */ /* x240700 */ /* x240703 */ /* x240702 */ /* x240705 */ /* x240704 */ /* x240707 */ /* x240706 */ /* x240709 */ /* x240708 */ /* x240711 */ /* x240710 */ /* x240713 */ /* x240712 */ /* x240715 */ /* x240714 */ /* x240717 */ /* x240716 */ /* x240719 */ /* x240718 */ /* x240721 */ /* x240720 */ /* x240723 */ /* x240722 */ /* x240725 */ /* x240724 */ /* x240727 */ /* x240726 */ /* x240729 */ /* x240728 */ /* x240731 */ /* x240730 */ /* x240733 */ /* x240732 */ /* x240735 */ /* x240734 */ /* x240737 */ /* x240736 */ /* x240739 */ /* x240738 */ /* x240741 */ /* x240740 */ /* x240743 */ /* x240742 */ /* x240745 */ /* x240744 */ /* x240747 */ /* x240746 */ /* x240749 */ /* x240748 */ /* x240751 */ /* x240750 */ /* x240753 */ /* x240752 */ /* x240755 */ /* x240754 */ /* x240757 */ /* x240756 */ /* x240759 */ /* x240758 */ /* x240761 */ /* x240760 */ /* x240763 */ /* x240762 */ /* x240765 */ /* x240764 */ /* x240767 */ /* x240766 */ /* x240769 */ /* x240768 */ /* x240771 */ /* x240770 */ /* x240773 */ /* x240772 */ /* x240775 */ /* x240774 */ /* x240777 */ /* x240776 */ /* x240779 */ /* x240778 */ /* x240781 */ /* x240780 */ /* x240783 */ /* x240782 */ /* x240785 */ /* x240784 */ /* x240787 */ /* x240786 */ /* x240789 */ /* x240788 */ /* x240791 */ /* x240790 */ /* x240793 */ /* x240792 */ /* x240795 */ /* x240794 */ /* x240797 */ /* x240796 */ /* x240799 */ /* x240798 */ /* x240801 */ /* x240800 */ /* x240803 */ /* x240802 */ /* x240805 */ /* x240804 */ /* x240807 */ /* x240806 */ /* x240809 */ /* x240808 */ /* x240811 */ /* x240810 */ /* x240813 */ /* x240812 */ /* x240815 */ /* x240814 */ /* x240817 */ /* x240816 */ /* x240819 */ /* x240818 */ /* x240821 */ /* x240820 */ /* x240823 */ /* x240822 */ /* x240825 */ /* x240824 */ /* x240827 */ /* x240826 */ /* x240829 */ /* x240828 */ /* x240831 */ /* x240830 */ /* x240833 */ /* x240832 */ /* x240835 */ /* x240834 */ /* x240837 */ /* x240836 */ /* x240839 */ /* x240838 */ /* x240841 */ /* x240840 */ /* x240843 */ /* x240842 */ /* x240845 */ /* x240844 */ /* x240847 */ /* x240846 */ /* x240849 */ /* x240848 */ /* x240851 */ /* x240850 */ /* x240853 */ /* x240852 */ /* x240855 */ /* x240854 */ /* x240857 */ /* x240856 */ /* x240859 */ /* x240858 */ /* x240861 */ /* x240860 */ /* x240863 */ /* x240862 */ /* x240865 */ /* x240864 */ /* x240867 */ /* x240866 */ /* x240869 */ /* x240868 */ /* x240871 */ /* x240870 */ /* x240873 */ /* x240872 */ /* x240875 */ /* x240874 */ /* x240877 */ /* x240876 */ /* x240879 */ /* x240878 */ /* x240881 */ /* x240880 */ /* x240883 */ /* x240882 */ /* x240885 */ /* x240884 */ /* x240887 */ /* x240886 */ /* x240889 */ /* x240888 */ /* x240891 */ /* x240890 */ /* x240893 */ /* x240892 */ /* x240895 */ /* x240894 */ /* x240897 */ /* x240896 */ /* x240899 */ /* x240898 */ /* x230011 */ /* x230010 */ /* x3943 */ /* x3942 Scheme-to-C-compatibility.sc:36:1521 */ /* x3941 Scheme-to-C-compatibility.sc:36:1522 */ /* x3946 */ /* x3945 */ /* x3949 */ /* x3948 */ /* x3953 */ /* x3952 */ /* x3957 */ /* x3956 */ /* x3984 */ /* x3983 Scheme-to-C-compatibility.sc:55:2079 */ /* x3986 */ /* x3985 Scheme-to-C-compatibility.sc:57:2109 */ /* x3988 */ /* x3987 Scheme-to-C-compatibility.sc:59:2138 */ /* x6188 */ /* x6187 */ /* x6190 */ /* x6189 Scheme-to-C-compatibility.sc:411:14345 */ /* x6192 */ /* x6191 Scheme-to-C-compatibility.sc:413:14414 */ /* x6194 */ /* x6193 */ /* x6196 */ /* x6195 */ /* x6198 */ /* x6197 */ /* x6200 */ /* x6199 */ /* x6202 */ /* x6201 */ /* x6204 */ /* x6203 */ /* x6206 */ /* x6205 */ /* x6208 */ /* x6207 */ /* x6210 */ /* x6209 */ /* x6212 */ /* x6211 */ /* x6214 */ /* x6213 */ /* x6216 */ /* x6215 */ /* x6218 */ /* x6217 */ /* x6220 */ /* x6219 */ /* x6222 */ /* x6221 */ /* x6224 */ /* x6223 */ /* x6226 */ /* x6225 */ /* x6228 */ /* x6227 */ /* x6230 */ /* x6229 */ /* x6232 */ /* x6231 */ /* x6234 */ /* x6233 */ /* x6236 */ /* x6235 */ /* x6238 */ /* x6237 */ /* x6240 */ /* x6239 */ /* x6242 */ /* x6241 */ /* x6244 */ /* x6243 */ /* x6246 */ /* x6245 */ /* x6248 */ /* x6247 */ /* x6250 */ /* x6249 */ /* x6252 */ /* x6251 */ /* x6254 */ /* x6253 */ /* x6256 */ /* x6255 */ /* x6258 */ /* x6257 */ /* x6260 */ /* x6259 */ /* x6262 */ /* x6261 */ /* x6264 */ /* x6263 */ /* x6266 */ /* x6265 */ /* x6268 */ /* x6267 */ /* x6270 */ /* x6269 */ /* x6272 */ /* x6271 */ /* x6274 */ /* x6273 */ /* x6276 */ /* x6275 */ /* x6278 */ /* x6277 */ /* x6280 */ /* x6279 */ /* x6282 */ /* x6281 */ /* x6284 */ /* x6283 */ /* x6286 */ /* x6285 */ /* x6288 */ /* x6287 */ /* x6290 */ /* x6289 */ /* x6292 */ /* x6291 */ /* x6294 */ /* x6293 */ /* x6296 */ /* x6295 */ /* x6298 */ /* x6297 */ /* x6300 */ /* x6299 */ /* x6302 */ /* x6301 */ /* x6304 */ /* x6303 */ /* x6306 */ /* x6305 */ /* x6308 */ /* x6307 */ /* x6310 */ /* x6309 */ /* x6312 */ /* x6311 */ /* x6314 */ /* x6313 */ /* x6316 */ /* x6315 */ /* x6318 */ /* x6317 */ /* x6320 */ /* x6319 */ /* x6322 */ /* x6321 */ /* x6324 */ /* x6323 */ /* x6326 */ /* x6325 */ /* x6328 */ /* x6327 */ /* x6330 */ /* x6329 */ /* x6332 */ /* x6331 */ /* x6334 */ /* x6333 */ /* x6336 */ /* x6335 */ /* x6338 */ /* x6337 */ /* x6340 */ /* x6339 */ /* x6342 */ /* x6341 */ /* x6344 */ /* x6343 */ /* x6346 */ /* x6345 */ /* x6348 */ /* x6347 */ /* x6350 */ /* x6349 */ /* x6352 */ /* x6351 */ /* x6354 */ /* x6353 */ /* x6356 */ /* x6355 */ /* x6358 */ /* x6357 */ /* x6360 */ /* x6359 */ /* x6362 */ /* x6361 */ /* x6364 */ /* x6363 */ /* x6366 */ /* x6365 */ /* x6368 */ /* x6367 */ /* x6370 */ /* x6369 */ /* x6372 */ /* x6371 */ /* x6374 */ /* x6373 */ /* x6376 */ /* x6375 */ /* x6378 */ /* x6377 */ /* x6380 */ /* x6379 */ /* x6382 */ /* x6381 */ /* x6384 */ /* x6383 */ /* x6386 */ /* x6385 */ /* x6388 */ /* x6387 */ /* x6390 */ /* x6389 */ /* x6392 */ /* x6391 */ /* x6394 */ /* x6393 */ /* x6396 */ /* x6395 */ /* x6398 */ /* x6397 */ /* x6400 */ /* x6399 */ /* x6402 */ /* x6401 */ /* x6404 */ /* x6403 */ /* x6406 */ /* x6405 */ /* x6408 */ /* x6407 */ /* x6410 */ /* x6409 */ /* x6412 */ /* x6411 */ /* x6414 */ /* x6413 */ /* x6416 */ /* x6415 */ /* x6418 */ /* x6417 */ /* x6420 */ /* x6419 */ /* x6422 */ /* x6421 */ /* x6424 */ /* x6423 */ /* x6426 */ /* x6425 */ /* x6428 */ /* x6427 */ /* x6430 */ /* x6429 */ /* x6432 */ /* x6431 */ /* x6434 */ /* x6433 */ /* x6436 */ /* x6435 */ /* x6438 */ /* x6437 */ /* x6440 */ /* x6439 */ /* x6442 */ /* x6441 */ /* x6444 */ /* x6443 */ /* x6446 */ /* x6445 */ /* x6448 */ /* x6447 */ /* x6450 */ /* x6449 */ /* x6452 */ /* x6451 */ /* x6454 */ /* x6453 */ /* x6456 */ /* x6455 */ /* x6458 */ /* x6457 */ /* x6460 */ /* x6459 */ /* x6462 */ /* x6461 */ /* x6464 */ /* x6463 */ /* x6466 */ /* x6465 */ /* x6468 */ /* x6467 */ /* x6470 */ /* x6469 */ /* x6472 */ /* x6471 */ /* x6474 */ /* x6473 */ /* x6476 */ /* x6475 */ /* x6478 */ /* x6477 */ /* x6480 */ /* x6479 */ /* x6482 */ /* x6481 */ /* x6484 */ /* x6483 */ /* x6486 */ /* x6485 */ /* x6488 */ /* x6487 */ /* x6490 */ /* x6489 */ /* x6492 */ /* x6491 */ /* x6494 */ /* x6493 */ /* x6496 */ /* x6495 */ /* x6498 */ /* x6497 */ /* x6500 */ /* x6499 */ /* x6502 */ /* x6501 */ /* x6504 */ /* x6503 */ /* x6506 */ /* x6505 */ /* x6508 */ /* x6507 */ /* x6510 */ /* x6509 */ /* x6512 */ /* x6511 */ /* x6514 */ /* x6513 */ /* x6516 */ /* x6515 */ /* x6518 */ /* x6517 */ /* x6520 */ /* x6519 */ /* x6522 */ /* x6521 */ /* x6524 */ /* x6523 */ /* x6526 */ /* x6525 */ /* x6528 */ /* x6527 */ /* x6530 */ /* x6529 */ /* x6532 */ /* x6531 */ /* x6534 */ /* x6533 */ /* x6536 */ /* x6535 */ /* x6538 */ /* x6537 */ /* x6540 */ /* x6539 */ /* x6542 */ /* x6541 */ /* x6544 */ /* x6543 */ /* x6546 */ /* x6545 */ /* x6548 */ /* x6547 */ /* x6550 */ /* x6549 */ /* x6552 */ /* x6551 */ /* x6554 */ /* x6553 */ /* x6556 */ /* x6555 */ /* x6558 */ /* x6557 */ /* x6560 */ /* x6559 */ /* x6562 */ /* x6561 */ /* x6564 */ /* x6563 */ /* x6566 */ /* x6565 */ /* x6568 */ /* x6567 */ /* x6570 */ /* x6569 */ /* x6572 */ /* x6571 */ /* x6574 */ /* x6573 */ /* x6576 */ /* x6575 */ /* x6578 */ /* x6577 */ /* x6580 */ /* x6579 */ /* x6582 */ /* x6581 */ /* x6584 */ /* x6583 */ /* x6586 */ /* x6585 */ /* x6588 */ /* x6587 */ /* x6590 */ /* x6589 */ /* x6592 */ /* x6591 */ /* x6594 */ /* x6593 */ /* x6596 */ /* x6595 */ /* x6598 */ /* x6597 */ /* x6600 */ /* x6599 */ /* x6602 */ /* x6601 */ /* x6604 */ /* x6603 */ /* x6606 */ /* x6605 */ /* x6608 */ /* x6607 */ /* x6610 */ /* x6609 */ /* x6612 */ /* x6611 */ /* x6614 */ /* x6613 */ /* x6616 */ /* x6615 */ /* x6618 */ /* x6617 */ /* x6620 */ /* x6619 */ /* x6622 */ /* x6621 */ /* x6624 */ /* x6623 */ /* x6626 */ /* x6625 */ /* x6628 */ /* x6627 */ /* x6630 */ /* x6629 */ /* x6632 */ /* x6631 */ /* x6634 */ /* x6633 */ /* x6636 */ /* x6635 */ /* x6638 */ /* x6637 */ /* x6640 */ /* x6639 */ /* x6642 */ /* x6641 */ /* x6644 */ /* x6643 */ /* x6646 */ /* x6645 */ /* x6648 */ /* x6647 */ /* x6650 */ /* x6649 */ /* x6652 */ /* x6651 */ /* x6654 */ /* x6653 */ /* x6656 */ /* x6655 */ /* x6658 */ /* x6657 */ /* x6660 */ /* x6659 */ /* x6662 */ /* x6661 */ /* x6664 */ /* x6663 */ /* x6666 */ /* x6665 */ /* x6668 */ /* x6667 */ /* x6670 */ /* x6669 */ /* x6672 */ /* x6671 */ /* x6674 */ /* x6673 */ /* x6676 */ /* x6675 */ /* x6678 */ /* x6677 */ /* x6680 */ /* x6679 */ /* x6682 */ /* x6681 */ /* x6684 */ /* x6683 */ /* x6686 */ /* x6685 */ /* x6688 */ /* x6687 */ /* x6690 */ /* x6689 */ /* x6692 */ /* x6691 */ /* x6694 */ /* x6693 */ /* x6696 */ /* x6695 */ /* x6698 */ /* x6697 */ /* x6700 */ /* x6699 */ /* x6702 */ /* x6701 */ /* x6704 */ /* x6703 */ /* x6706 */ /* x6705 */ /* x6708 */ /* x6707 */ /* x6710 */ /* x6709 */ /* x6712 */ /* x6711 */ /* x6714 */ /* x6713 */ /* x6716 */ /* x6715 */ /* x6718 */ /* x6717 */ /* x6720 */ /* x6719 */ /* x6722 */ /* x6721 */ /* x6724 */ /* x6723 */ /* x6726 */ /* x6725 */ /* x6728 */ /* x6727 */ /* x6730 */ /* x6729 */ /* x6732 */ /* x6731 */ /* x6734 */ /* x6733 */ /* x6736 */ /* x6735 */ /* x6738 */ /* x6737 */ /* x6740 */ /* x6739 */ /* x6742 */ /* x6741 */ /* x6744 */ /* x6743 */ /* x6746 */ /* x6745 */ /* x6748 */ /* x6747 */ /* x6750 */ /* x6749 */ /* x6752 */ /* x6751 */ /* x6754 */ /* x6753 */ /* x6756 */ /* x6755 */ /* x6758 */ /* x6757 */ /* x6760 */ /* x6759 */ /* x6762 */ /* x6761 */ /* x6764 */ /* x6763 */ /* x6766 */ /* x6765 */ /* x6768 */ /* x6767 */ /* x6770 */ /* x6769 */ /* x6772 */ /* x6771 */ /* x6774 */ /* x6773 */ /* x6776 */ /* x6775 */ /* x6778 */ /* x6777 */ /* x6780 */ /* x6779 */ /* x6782 */ /* x6781 */ /* x6784 */ /* x6783 */ /* x6786 */ /* x6785 */ /* x6788 */ /* x6787 */ /* x6790 */ /* x6789 */ /* x6792 */ /* x6791 */ /* x6794 */ /* x6793 */ /* x6796 */ /* x6795 */ /* x6798 */ /* x6797 */ /* x6800 */ /* x6799 */ /* x6802 */ /* x6801 */ /* x6804 */ /* x6803 */ /* x6806 */ /* x6805 */ /* x6808 */ /* x6807 */ /* x6810 */ /* x6809 */ /* x6812 */ /* x6811 */ /* x6814 */ /* x6813 */ /* x6816 */ /* x6815 */ /* x6818 */ /* x6817 */ /* x6820 */ /* x6819 */ /* x6822 */ /* x6821 */ /* x6824 */ /* x6823 */ /* x6826 */ /* x6825 */ /* x6828 */ /* x6827 */ /* x6830 */ /* x6829 */ /* x6832 */ /* x6831 */ /* x6834 */ /* x6833 */ /* x6836 */ /* x6835 */ /* x6838 */ /* x6837 */ /* x6840 */ /* x6839 */ /* x6842 */ /* x6841 */ /* x6844 */ /* x6843 */ /* x6846 */ /* x6845 */ /* x6848 */ /* x6847 */ /* x6850 */ /* x6849 */ /* x6852 */ /* x6851 */ /* x6854 */ /* x6853 */ /* x6856 */ /* x6855 */ /* x6858 */ /* x6857 */ /* x6860 */ /* x6859 */ /* x6862 */ /* x6861 */ /* x6864 */ /* x6863 */ /* x6866 */ /* x6865 */ /* x6868 */ /* x6867 */ /* x6870 */ /* x6869 */ /* x6872 */ /* x6871 */ /* x6874 */ /* x6873 */ /* x6876 */ /* x6875 */ /* x6878 */ /* x6877 */ /* x6880 */ /* x6879 */ /* x6882 */ /* x6881 */ /* x6884 */ /* x6883 */ /* x6886 */ /* x6885 */ /* x6888 */ /* x6887 */ /* x6890 */ /* x6889 */ /* x6892 */ /* x6891 */ /* x6894 */ /* x6893 */ /* x6896 */ /* x6895 */ /* x6898 */ /* x6897 */ /* x6900 */ /* x6899 */ /* x6902 */ /* x6901 */ /* x6904 */ /* x6903 */ /* x6906 */ /* x6905 */ /* x6908 */ /* x6907 */ /* x6910 */ /* x6909 */ /* x6912 */ /* x6911 */ /* x6914 */ /* x6913 */ /* x6916 */ /* x6915 */ /* x6918 */ /* x6917 */ /* x6920 */ /* x6919 */ /* x6922 */ /* x6921 */ /* x6924 */ /* x6923 */ /* x6926 */ /* x6925 */ /* x6928 */ /* x6927 */ /* x6930 */ /* x6929 */ /* x6932 */ /* x6931 */ /* x6934 */ /* x6933 */ /* x6936 */ /* x6935 */ /* x6938 */ /* x6937 */ /* x6940 */ /* x6939 */ /* x6942 */ /* x6941 */ /* x6944 */ /* x6943 */ /* x6946 */ /* x6945 */ /* x6948 */ /* x6947 */ /* x6950 */ /* x6949 */ /* x6952 */ /* x6951 */ /* x6954 */ /* x6953 */ /* x6956 */ /* x6955 */ /* x6958 */ /* x6957 */ /* x6960 */ /* x6959 */ /* x6962 */ /* x6961 */ /* x6964 */ /* x6963 */ /* x6966 */ /* x6965 */ /* x6968 */ /* x6967 */ /* x6970 */ /* x6969 */ /* x6972 */ /* x6971 */ /* x6974 */ /* x6973 */ /* x6976 */ /* x6975 */ /* x6978 */ /* x6977 */ /* x6980 */ /* x6979 */ /* x6982 */ /* x6981 */ /* x6984 */ /* x6983 */ /* x6986 */ /* x6985 */ /* x6988 */ /* x6987 */ /* x6990 */ /* x6989 */ /* x6992 */ /* x6991 */ /* x6994 */ /* x6993 */ /* x6996 */ /* x6995 */ /* x6998 */ /* x6997 */ /* x7000 */ /* x6999 */ /* x7002 */ /* x7001 */ /* x7004 */ /* x7003 */ /* x7006 */ /* x7005 */ /* x7008 */ /* x7007 */ /* x7010 */ /* x7009 */ /* x7012 */ /* x7011 */ /* x7014 */ /* x7013 */ /* x7016 */ /* x7015 */ /* x7018 */ /* x7017 */ /* x7020 */ /* x7019 */ /* x7022 */ /* x7021 */ /* x7024 */ /* x7023 */ /* x7026 */ /* x7025 */ /* x7028 */ /* x7027 */ /* x7030 */ /* x7029 */ /* x7032 */ /* x7031 */ /* x7034 */ /* x7033 */ /* x7036 */ /* x7035 */ /* x7038 */ /* x7037 */ /* x7040 */ /* x7039 */ /* x7042 */ /* x7041 */ /* x7044 */ /* x7043 */ /* x7046 */ /* x7045 */ /* x7048 */ /* x7047 */ /* x7050 */ /* x7049 */ /* x7052 */ /* x7051 */ /* x7054 */ /* x7053 */ /* x7056 */ /* x7055 xlib-original.sc:463:47462 */ /* x7058 */ /* x7057 xlib-original.sc:464:47502 */ /* x7060 */ /* x7059 xlib-original.sc:465:47526 */ /* x7062 */ /* x7061 xlib-original.sc:466:47560 */ /* x7064 */ /* x7063 xlib-original.sc:467:47594 */ /* x7066 */ /* x7065 xlib-original.sc:468:47627 */ /* x7068 */ /* x7067 xlib-original.sc:469:47657 */ /* x7070 */ /* x7069 xlib-original.sc:470:47688 */ /* x7072 */ /* x7071 xlib-original.sc:471:47723 */ /* x7074 */ /* x7073 xlib-original.sc:472:47749 */ /* x7076 */ /* x7075 xlib-original.sc:473:47778 */ /* x7078 */ /* x7077 xlib-original.sc:474:47810 */ /* x7080 */ /* x7079 xlib-original.sc:475:47841 */ /* x7082 */ /* x7081 xlib-original.sc:476:47869 */ /* x7084 */ /* x7083 xlib-original.sc:477:47900 */ /* x7086 */ /* x7085 xlib-original.sc:478:47932 */ /* x7088 */ /* x7087 xlib-original.sc:479:47966 */ /* x7090 */ /* x7089 xlib-original.sc:480:48001 */ /* x7092 */ /* x7091 xlib-original.sc:481:48038 */ /* x7094 */ /* x7093 xlib-original.sc:482:48073 */ /* x7096 */ /* x7095 xlib-original.sc:483:48109 */ /* x7098 */ /* x7097 xlib-original.sc:484:48147 */ /* x7100 */ /* x7099 xlib-original.sc:485:48189 */ /* x7102 */ /* x7101 xlib-original.sc:486:48228 */ /* x7104 */ /* x7103 xlib-original.sc:487:48267 */ /* x7106 */ /* x7105 xlib-original.sc:488:48306 */ /* x7108 */ /* x7107 xlib-original.sc:489:48346 */ /* x7110 */ /* x7109 xlib-original.sc:490:48386 */ /* x7112 */ /* x7111 xlib-original.sc:491:48425 */ /* x7114 */ /* x7113 xlib-original.sc:492:48463 */ /* x7116 */ /* x7115 xlib-original.sc:493:48499 */ /* x7118 */ /* x7117 xlib-original.sc:494:48543 */ /* x7120 */ /* x7119 xlib-original.sc:495:48586 */ /* x7122 */ /* x7121 xlib-original.sc:496:48629 */ /* x7124 */ /* x7123 xlib-original.sc:497:48676 */ /* x7126 */ /* x7125 xlib-original.sc:498:48725 */ /* x7128 */ /* x7127 xlib-original.sc:499:48766 */ /* x7130 */ /* x7129 xlib-original.sc:500:48810 */ /* x7132 */ /* x7131 xlib-original.sc:501:48854 */ /* x7134 */ /* x7133 xlib-original.sc:502:48899 */ /* x7136 */ /* x7135 xlib-original.sc:503:48934 */ /* x7138 */ /* x7137 xlib-original.sc:504:48964 */ /* x7140 */ /* x7139 xlib-original.sc:505:48995 */ /* x7142 */ /* x7141 xlib-original.sc:506:49028 */ /* x7144 */ /* x7143 xlib-original.sc:507:49060 */ /* x7146 */ /* x7145 xlib-original.sc:508:49091 */ /* x7148 */ /* x7147 xlib-original.sc:509:49122 */ /* x7150 */ /* x7149 xlib-original.sc:510:49149 */ /* x7152 */ /* x7151 xlib-original.sc:511:49177 */ /* x7154 */ /* x7153 xlib-original.sc:512:49210 */ /* x7156 */ /* x7155 xlib-original.sc:513:49237 */ /* x7158 */ /* x7157 xlib-original.sc:514:49272 */ /* x7160 */ /* x7159 xlib-original.sc:515:49301 */ /* x7162 */ /* x7161 xlib-original.sc:516:49338 */ /* x7164 */ /* x7163 xlib-original.sc:517:49371 */ /* x7166 */ /* x7165 xlib-original.sc:518:49405 */ /* x7168 */ /* x7167 xlib-original.sc:519:49437 */ /* x7170 */ /* x7169 xlib-original.sc:520:49467 */ /* x7172 */ /* x7171 xlib-original.sc:521:49498 */ /* x7174 */ /* x7173 xlib-original.sc:522:49533 */ /* x7176 */ /* x7175 xlib-original.sc:523:49569 */ /* x7178 */ /* x7177 xlib-original.sc:524:49606 */ /* x7180 */ /* x7179 xlib-original.sc:525:49640 */ /* x7182 */ /* x7181 xlib-original.sc:526:49674 */ /* x7184 */ /* x7183 xlib-original.sc:527:49710 */ /* x7186 */ /* x7185 xlib-original.sc:528:49747 */ /* x7188 */ /* x7187 xlib-original.sc:529:49782 */ /* x7190 */ /* x7189 xlib-original.sc:530:49817 */ /* x7192 */ /* x7191 xlib-original.sc:531:49854 */ /* x7194 */ /* x7193 xlib-original.sc:532:49890 */ /* x7196 */ /* x7195 xlib-original.sc:533:49925 */ /* x7198 */ /* x7197 xlib-original.sc:534:49959 */ /* x7200 */ /* x7199 xlib-original.sc:535:49993 */ /* x7202 */ /* x7201 xlib-original.sc:536:50023 */ /* x7204 */ /* x7203 xlib-original.sc:537:50053 */ /* x7206 */ /* x7205 xlib-original.sc:538:50081 */ /* x7208 */ /* x7207 xlib-original.sc:539:50112 */ /* x7210 */ /* x7209 xlib-original.sc:540:50140 */ /* x7212 */ /* x7211 xlib-original.sc:541:50168 */ /* x7214 */ /* x7213 xlib-original.sc:542:50197 */ /* x7216 */ /* x7215 xlib-original.sc:543:50226 */ /* x7218 */ /* x7217 xlib-original.sc:544:50255 */ /* x7220 */ /* x7219 xlib-original.sc:545:50290 */ /* x7222 */ /* x7221 xlib-original.sc:546:50322 */ /* x7224 */ /* x7223 xlib-original.sc:547:50357 */ /* x7226 */ /* x7225 xlib-original.sc:548:50389 */ /* x7228 */ /* x7227 xlib-original.sc:549:50421 */ /* x7230 */ /* x7229 xlib-original.sc:550:50453 */ /* x7232 */ /* x7231 xlib-original.sc:551:50485 */ /* x7234 */ /* x7233 xlib-original.sc:552:50517 */ /* x7236 */ /* x7235 xlib-original.sc:553:50548 */ /* x7238 */ /* x7237 xlib-original.sc:554:50581 */ /* x7240 */ /* x7239 xlib-original.sc:555:50614 */ /* x7242 */ /* x7241 xlib-original.sc:556:50648 */ /* x7244 */ /* x7243 xlib-original.sc:557:50682 */ /* x7246 */ /* x7245 xlib-original.sc:558:50716 */ /* x7248 */ /* x7247 xlib-original.sc:559:50747 */ /* x7250 */ /* x7249 xlib-original.sc:560:50774 */ /* x7252 */ /* x7251 xlib-original.sc:561:50801 */ /* x7254 */ /* x7253 xlib-original.sc:562:50828 */ /* x7256 */ /* x7255 xlib-original.sc:563:50855 */ /* x7258 */ /* x7257 xlib-original.sc:564:50887 */ /* x7260 */ /* x7259 xlib-original.sc:565:50917 */ /* x7262 */ /* x7261 xlib-original.sc:566:50949 */ /* x7264 */ /* x7263 xlib-original.sc:567:50987 */ /* x7266 */ /* x7265 xlib-original.sc:568:51017 */ /* x7268 */ /* x7267 xlib-original.sc:569:51051 */ /* x7270 */ /* x7269 xlib-original.sc:570:51084 */ /* x7272 */ /* x7271 xlib-original.sc:571:51118 */ /* x7274 */ /* x7273 xlib-original.sc:572:51153 */ /* x7276 */ /* x7275 xlib-original.sc:573:51195 */ /* x7278 */ /* x7277 xlib-original.sc:574:51228 */ /* x7280 */ /* x7279 xlib-original.sc:575:51265 */ /* x7282 */ /* x7281 xlib-original.sc:576:51301 */ /* x7284 */ /* x7283 xlib-original.sc:577:51341 */ /* x7286 */ /* x7285 xlib-original.sc:578:51388 */ /* x7288 */ /* x7287 xlib-original.sc:579:51431 */ /* x7290 */ /* x7289 xlib-original.sc:580:51461 */ /* x7292 */ /* x7291 xlib-original.sc:581:51494 */ /* x7294 */ /* x7293 xlib-original.sc:582:51528 */ /* x7296 */ /* x7295 xlib-original.sc:583:51560 */ /* x7298 */ /* x7297 xlib-original.sc:584:51591 */ /* x7300 */ /* x7299 xlib-original.sc:585:51627 */ /* x7302 */ /* x7301 xlib-original.sc:586:51661 */ /* x7304 */ /* x7303 xlib-original.sc:587:51700 */ /* x7306 */ /* x7305 xlib-original.sc:588:51737 */ /* x7308 */ /* x7307 xlib-original.sc:589:51769 */ /* x7310 */ /* x7309 xlib-original.sc:590:51802 */ /* x7312 */ /* x7311 xlib-original.sc:591:51833 */ /* x7314 */ /* x7313 xlib-original.sc:592:51867 */ /* x7316 */ /* x7315 xlib-original.sc:593:51902 */ /* x7318 */ /* x7317 xlib-original.sc:594:51937 */ /* x7320 */ /* x7319 xlib-original.sc:595:51967 */ /* x7322 */ /* x7321 xlib-original.sc:596:51999 */ /* x7324 */ /* x7323 xlib-original.sc:597:52030 */ /* x7326 */ /* x7325 xlib-original.sc:598:52063 */ /* x7328 */ /* x7327 xlib-original.sc:599:52096 */ /* x7330 */ /* x7329 xlib-original.sc:600:52128 */ /* x7332 */ /* x7331 xlib-original.sc:601:52162 */ /* x7334 */ /* x7333 xlib-original.sc:602:52191 */ /* x7336 */ /* x7335 xlib-original.sc:603:52219 */ /* x7338 */ /* x7337 xlib-original.sc:604:52251 */ /* x7340 */ /* x7339 xlib-original.sc:605:52290 */ /* x7342 */ /* x7341 xlib-original.sc:606:52324 */ /* x7344 */ /* x7343 xlib-original.sc:607:52351 */ /* x7346 */ /* x7345 xlib-original.sc:608:52381 */ /* x7348 */ /* x7347 xlib-original.sc:609:52409 */ /* x7350 */ /* x7349 xlib-original.sc:610:52438 */ /* x7352 */ /* x7351 xlib-original.sc:611:52467 */ /* x7354 */ /* x7353 xlib-original.sc:612:52494 */ /* x7356 */ /* x7355 xlib-original.sc:613:52523 */ /* x7358 */ /* x7357 xlib-original.sc:614:52550 */ /* x7360 */ /* x7359 xlib-original.sc:615:52578 */ /* x7362 */ /* x7361 xlib-original.sc:616:52609 */ /* x7364 */ /* x7363 xlib-original.sc:617:52638 */ /* x7366 */ /* x7365 xlib-original.sc:618:52667 */ /* x7368 */ /* x7367 xlib-original.sc:619:52696 */ /* x7370 */ /* x7369 xlib-original.sc:620:52722 */ /* x7372 */ /* x7371 xlib-original.sc:621:52754 */ /* x7374 */ /* x7373 xlib-original.sc:622:52782 */ /* x7376 */ /* x7375 xlib-original.sc:623:52812 */ /* x7378 */ /* x7377 xlib-original.sc:624:52850 */ /* x7380 */ /* x7379 xlib-original.sc:625:52890 */ /* x7382 */ /* x7381 xlib-original.sc:626:52930 */ /* x7384 */ /* x7383 xlib-original.sc:627:52963 */ /* x7386 */ /* x7385 xlib-original.sc:628:52992 */ /* x7388 */ /* x7387 xlib-original.sc:629:53024 */ /* x7390 */ /* x7389 xlib-original.sc:630:53055 */ /* x7392 */ /* x7391 xlib-original.sc:631:53089 */ /* x7394 */ /* x7393 xlib-original.sc:632:53122 */ /* x7396 */ /* x7395 xlib-original.sc:633:53154 */ /* x7398 */ /* x7397 xlib-original.sc:634:53187 */ /* x7400 */ /* x7399 xlib-original.sc:635:53222 */ /* x7402 */ /* x7401 xlib-original.sc:636:53258 */ /* x7404 */ /* x7403 xlib-original.sc:637:53294 */ /* x7406 */ /* x7405 xlib-original.sc:638:53334 */ /* x7408 */ /* x7407 xlib-original.sc:639:53367 */ /* x7410 */ /* x7409 xlib-original.sc:640:53401 */ /* x7412 */ /* x7411 xlib-original.sc:641:53439 */ /* x7414 */ /* x7413 xlib-original.sc:642:53472 */ /* x7416 */ /* x7415 xlib-original.sc:643:53503 */ /* x7418 */ /* x7417 xlib-original.sc:644:53530 */ /* x7420 */ /* x7419 xlib-original.sc:645:53553 */ /* x7422 */ /* x7421 xlib-original.sc:646:53580 */ /* x7424 */ /* x7423 xlib-original.sc:647:53608 */ /* x7426 */ /* x7425 xlib-original.sc:648:53641 */ /* x7428 */ /* x7427 xlib-original.sc:649:53671 */ /* x7430 */ /* x7429 xlib-original.sc:650:53703 */ /* x7432 */ /* x7431 xlib-original.sc:651:53737 */ /* x7434 */ /* x7433 xlib-original.sc:652:53773 */ /* x7436 */ /* x7435 xlib-original.sc:653:53805 */ /* x7438 */ /* x7437 xlib-original.sc:654:53841 */ /* x7440 */ /* x7439 xlib-original.sc:655:53872 */ /* x7442 */ /* x7441 xlib-original.sc:656:53905 */ /* x7444 */ /* x7443 xlib-original.sc:657:53936 */ /* x7446 */ /* x7445 xlib-original.sc:658:53972 */ /* x7448 */ /* x7447 xlib-original.sc:659:54004 */ /* x7450 */ /* x7449 xlib-original.sc:660:54040 */ /* x7452 */ /* x7451 xlib-original.sc:661:54073 */ /* x7454 */ /* x7453 xlib-original.sc:662:54106 */ /* x7456 */ /* x7455 xlib-original.sc:663:54135 */ /* x7458 */ /* x7457 xlib-original.sc:664:54165 */ /* x7460 */ /* x7459 xlib-original.sc:665:54191 */ /* x7462 */ /* x7461 xlib-original.sc:666:54221 */ /* x7464 */ /* x7463 xlib-original.sc:667:54253 */ /* x7466 */ /* x7465 xlib-original.sc:668:54283 */ /* x7468 */ /* x7467 xlib-original.sc:669:54316 */ /* x7470 */ /* x7469 xlib-original.sc:670:54349 */ /* x7472 */ /* x7471 xlib-original.sc:671:54379 */ /* x7474 */ /* x7473 xlib-original.sc:672:54414 */ /* x7476 */ /* x7475 xlib-original.sc:673:54449 */ /* x7478 */ /* x7477 xlib-original.sc:674:54474 */ /* x7480 */ /* x7479 xlib-original.sc:675:54499 */ /* x7482 */ /* x7481 xlib-original.sc:676:54524 */ /* x7484 */ /* x7483 xlib-original.sc:677:54552 */ /* x7486 */ /* x7485 xlib-original.sc:678:54580 */ /* x7488 */ /* x7487 xlib-original.sc:679:54611 */ /* x7490 */ /* x7489 xlib-original.sc:680:54643 */ /* x7492 */ /* x7491 xlib-original.sc:681:54678 */ /* x7494 */ /* x7493 xlib-original.sc:682:54713 */ /* x7496 */ /* x7495 xlib-original.sc:683:54747 */ /* x7498 */ /* x7497 xlib-original.sc:684:54774 */ /* x7500 */ /* x7499 xlib-original.sc:685:54799 */ /* x7502 */ /* x7501 xlib-original.sc:686:54831 */ /* x7504 */ /* x7503 xlib-original.sc:687:54857 */ /* x7506 */ /* x7505 xlib-original.sc:688:54890 */ /* x7508 */ /* x7507 xlib-original.sc:689:54916 */ /* x7510 */ /* x7509 xlib-original.sc:690:54941 */ /* x7512 */ /* x7511 xlib-original.sc:691:54965 */ /* x7514 */ /* x7513 xlib-original.sc:692:54990 */ /* x7516 */ /* x7515 xlib-original.sc:693:55017 */ /* x7518 */ /* x7517 xlib-original.sc:694:55045 */ /* x7520 */ /* x7519 xlib-original.sc:695:55077 */ /* x7522 */ /* x7521 xlib-original.sc:696:55112 */ /* x7524 */ /* x7523 xlib-original.sc:697:55145 */ /* x7526 */ /* x7525 xlib-original.sc:698:55172 */ /* x7528 */ /* x7527 xlib-original.sc:699:55198 */ /* x7530 */ /* x7529 xlib-original.sc:700:55228 */ /* x7532 */ /* x7531 xlib-original.sc:701:55261 */ /* x7534 */ /* x7533 xlib-original.sc:702:55295 */ /* x7536 */ /* x7535 xlib-original.sc:703:55325 */ /* x7538 */ /* x7537 xlib-original.sc:704:55352 */ /* x7540 */ /* x7539 xlib-original.sc:705:55380 */ /* x7542 */ /* x7541 xlib-original.sc:706:55413 */ /* x7544 */ /* x7543 xlib-original.sc:707:55442 */ /* x7546 */ /* x7545 xlib-original.sc:708:55471 */ /* x7548 */ /* x7547 xlib-original.sc:709:55500 */ /* x7550 */ /* x7549 xlib-original.sc:710:55529 */ /* x7552 */ /* x7551 xlib-original.sc:711:55558 */ /* x7554 */ /* x7553 xlib-original.sc:712:55590 */ /* x7556 */ /* x7555 xlib-original.sc:713:55628 */ /* x7558 */ /* x7557 xlib-original.sc:714:55659 */ /* x7560 */ /* x7559 xlib-original.sc:715:55690 */ /* x7562 */ /* x7561 xlib-original.sc:716:55724 */ /* x7564 */ /* x7563 xlib-original.sc:717:55760 */ /* x7566 */ /* x7565 xlib-original.sc:718:55788 */ /* x7568 */ /* x7567 xlib-original.sc:719:55815 */ /* x7570 */ /* x7569 xlib-original.sc:720:55843 */ /* x7572 */ /* x7571 xlib-original.sc:721:55871 */ /* x7574 */ /* x7573 xlib-original.sc:722:55906 */ /* x7576 */ /* x7575 xlib-original.sc:723:55943 */ /* x7578 */ /* x7577 xlib-original.sc:724:55970 */ /* x7580 */ /* x7579 xlib-original.sc:725:55999 */ /* x7582 */ /* x7581 xlib-original.sc:726:56025 */ /* x7584 */ /* x7583 xlib-original.sc:727:56053 */ /* x7586 */ /* x7585 xlib-original.sc:728:56084 */ /* x7588 */ /* x7587 xlib-original.sc:729:56114 */ /* x7590 */ /* x7589 xlib-original.sc:730:56145 */ /* x7592 */ /* x7591 xlib-original.sc:731:56177 */ /* x7594 */ /* x7593 xlib-original.sc:732:56209 */ /* x7596 */ /* x7595 xlib-original.sc:733:56240 */ /* x7598 */ /* x7597 xlib-original.sc:734:56272 */ /* x7600 */ /* x7599 xlib-original.sc:735:56303 */ /* x7602 */ /* x7601 xlib-original.sc:736:56335 */ /* x7604 */ /* x7603 xlib-original.sc:737:56368 */ /* x7606 */ /* x7605 xlib-original.sc:738:56400 */ /* x7608 */ /* x7607 xlib-original.sc:739:56428 */ /* x7610 */ /* x7609 xlib-original.sc:740:56460 */ /* x7612 */ /* x7611 xlib-original.sc:741:56500 */ /* x7614 */ /* x7613 xlib-original.sc:742:56540 */ /* x7616 */ /* x7615 xlib-original.sc:743:56569 */ /* x7618 */ /* x7617 xlib-original.sc:744:56608 */ /* x7620 */ /* x7619 xlib-original.sc:745:56651 */ /* x7622 */ /* x7621 xlib-original.sc:746:56688 */ /* x7624 */ /* x7623 xlib-original.sc:747:56726 */ /* x7626 */ /* x7625 xlib-original.sc:748:56761 */ /* x7628 */ /* x7627 xlib-original.sc:749:56798 */ /* x7630 */ /* x7629 xlib-original.sc:750:56834 */ /* x7632 */ /* x7631 xlib-original.sc:751:56869 */ /* x7634 */ /* x7633 xlib-original.sc:752:56904 */ /* x7636 */ /* x7635 xlib-original.sc:753:56940 */ /* x7638 */ /* x7637 xlib-original.sc:754:56975 */ /* x7640 */ /* x7639 xlib-original.sc:755:57005 */ /* x7642 */ /* x7641 xlib-original.sc:756:57035 */ /* x7644 */ /* x7643 xlib-original.sc:757:57063 */ /* x7646 */ /* x7645 xlib-original.sc:758:57090 */ /* x7648 */ /* x7647 xlib-original.sc:759:57119 */ /* x7650 */ /* x7649 xlib-original.sc:760:57147 */ /* x7652 */ /* x7651 xlib-original.sc:761:57172 */ /* x7654 */ /* x7653 xlib-original.sc:762:57199 */ /* x7656 */ /* x7655 xlib-original.sc:763:57225 */ /* x7658 */ /* x7657 xlib-original.sc:764:57256 */ /* x7660 */ /* x7659 xlib-original.sc:765:57285 */ /* x7662 */ /* x7661 xlib-original.sc:766:57317 */ /* x7664 */ /* x7663 xlib-original.sc:767:57354 */ /* x7666 */ /* x7665 xlib-original.sc:768:57390 */ /* x7668 */ /* x7667 xlib-original.sc:769:57431 */ /* x7670 */ /* x7669 xlib-original.sc:770:57461 */ /* x7672 */ /* x7671 xlib-original.sc:771:57490 */ /* x7674 */ /* x7673 xlib-original.sc:772:57527 */ /* x7676 */ /* x7675 xlib-original.sc:773:57560 */ /* x7678 */ /* x7677 xlib-original.sc:774:57591 */ /* x7680 */ /* x7679 xlib-original.sc:775:57625 */ /* x7682 */ /* x7681 xlib-original.sc:776:57650 */ /* x7684 */ /* x7683 xlib-original.sc:777:57680 */ /* x7686 */ /* x7685 xlib-original.sc:778:57706 */ /* x7688 */ /* x7687 xlib-original.sc:779:57743 */ /* x7690 */ /* x7689 xlib-original.sc:780:57779 */ /* x7692 */ /* x7691 xlib-original.sc:781:57810 */ /* x7694 */ /* x7693 xlib-original.sc:782:57843 */ /* x7696 */ /* x7695 xlib-original.sc:783:57878 */ /* x7698 */ /* x7697 xlib-original.sc:784:57913 */ /* x7700 */ /* x7699 xlib-original.sc:785:57947 */ /* x7702 */ /* x7701 xlib-original.sc:786:57985 */ /* x7704 */ /* x7703 xlib-original.sc:787:58019 */ /* x7706 */ /* x7705 xlib-original.sc:788:58054 */ /* x7708 */ /* x7707 xlib-original.sc:789:58092 */ /* x7710 */ /* x7709 xlib-original.sc:790:58133 */ /* x7712 */ /* x7711 xlib-original.sc:791:58171 */ /* x7714 */ /* x7713 xlib-original.sc:792:58205 */ /* x7716 */ /* x7715 xlib-original.sc:793:58241 */ /* x7718 */ /* x7717 xlib-original.sc:794:58277 */ /* x7720 */ /* x7719 xlib-original.sc:795:58314 */ /* x7722 */ /* x7721 xlib-original.sc:796:58344 */ /* x7724 */ /* x7723 xlib-original.sc:797:58374 */ /* x7726 */ /* x7725 xlib-original.sc:798:58406 */ /* x7728 */ /* x7727 xlib-original.sc:799:58439 */ /* x7730 */ /* x7729 xlib-original.sc:800:58469 */ /* x7732 */ /* x7731 xlib-original.sc:801:58498 */ /* x7734 */ /* x7733 xlib-original.sc:802:58529 */ /* x7736 */ /* x7735 xlib-original.sc:803:58560 */ /* x7738 */ /* x7737 xlib-original.sc:804:58589 */ /* x7740 */ /* x7739 xlib-original.sc:805:58620 */ /* x7742 */ /* x7741 xlib-original.sc:806:58648 */ /* x7744 */ /* x7743 xlib-original.sc:807:58676 */ /* x7746 */ /* x7745 xlib-original.sc:808:58709 */ /* x7748 */ /* x7747 xlib-original.sc:809:58747 */ /* x7750 */ /* x7749 xlib-original.sc:810:58783 */ /* x7752 */ /* x7751 xlib-original.sc:811:58812 */ /* x7754 */ /* x7753 xlib-original.sc:812:58837 */ /* x7756 */ /* x7755 xlib-original.sc:813:58866 */ /* x7758 */ /* x7757 xlib-original.sc:814:58896 */ /* x7760 */ /* x7759 xlib-original.sc:815:58930 */ /* x7762 */ /* x7761 xlib-original.sc:816:58964 */ /* x7764 */ /* x7763 xlib-original.sc:817:58998 */ /* x7766 */ /* x7765 xlib-original.sc:818:59032 */ /* x7768 */ /* x7767 xlib-original.sc:819:59070 */ /* x7770 */ /* x7769 xlib-original.sc:820:59105 */ /* x7772 */ /* x7771 xlib-original.sc:821:59140 */ /* x7774 */ /* x7773 xlib-original.sc:822:59176 */ /* x7776 */ /* x7775 xlib-original.sc:823:59213 */ /* x7778 */ /* x7777 xlib-original.sc:824:59240 */ /* x7780 */ /* x7779 xlib-original.sc:825:59266 */ /* x7782 */ /* x7781 xlib-original.sc:826:59292 */ /* x7784 */ /* x7783 xlib-original.sc:827:59322 */ /* x7786 */ /* x7785 xlib-original.sc:828:59353 */ /* x7788 */ /* x7787 xlib-original.sc:829:59382 */ /* x7790 */ /* x7789 xlib-original.sc:830:59412 */ /* x7792 */ /* x7791 xlib-original.sc:831:59442 */ /* x7794 */ /* x7793 xlib-original.sc:832:59473 */ /* x7796 */ /* x7795 xlib-original.sc:833:59499 */ /* x7798 */ /* x7797 xlib-original.sc:834:59528 */ /* x7800 */ /* x7799 xlib-original.sc:835:59553 */ /* x7802 */ /* x7801 xlib-original.sc:836:59581 */ /* x7804 */ /* x7803 xlib-original.sc:837:59610 */ /* x7806 */ /* x7805 xlib-original.sc:838:59641 */ /* x7808 */ /* x7807 xlib-original.sc:839:59669 */ /* x7810 */ /* x7809 xlib-original.sc:840:59700 */ /* x7812 */ /* x7811 xlib-original.sc:841:59731 */ /* x7814 */ /* x7813 xlib-original.sc:842:59760 */ /* x7816 */ /* x7815 xlib-original.sc:843:59794 */ /* x7818 */ /* x7817 xlib-original.sc:844:59828 */ /* x7820 */ /* x7819 xlib-original.sc:845:59864 */ /* x7822 */ /* x7821 xlib-original.sc:846:59897 */ /* x7824 */ /* x7823 xlib-original.sc:847:59933 */ /* x7826 */ /* x7825 xlib-original.sc:848:59962 */ /* x7828 */ /* x7827 xlib-original.sc:849:59997 */ /* x7830 */ /* x7829 xlib-original.sc:850:60028 */ /* x7832 */ /* x7831 xlib-original.sc:851:60057 */ /* x7834 */ /* x7833 xlib-original.sc:852:60088 */ /* x7836 */ /* x7835 xlib-original.sc:853:60121 */ /* x7838 */ /* x7837 xlib-original.sc:854:60153 */ /* x7840 */ /* x7839 xlib-original.sc:855:60184 */ /* x7842 */ /* x7841 xlib-original.sc:856:60217 */ /* x7844 */ /* x7843 xlib-original.sc:857:60249 */ /* x7846 */ /* x7845 xlib-original.sc:858:60281 */ /* x7848 */ /* x7847 xlib-original.sc:859:60317 */ /* x7850 */ /* x7849 xlib-original.sc:860:60352 */ /* x7852 */ /* x7851 xlib-original.sc:861:60387 */ /* x7854 */ /* x7853 xlib-original.sc:862:60424 */ /* x7856 */ /* x7855 xlib-original.sc:863:60464 */ /* x7858 */ /* x7857 xlib-original.sc:864:60503 */ /* x7860 */ /* x7859 xlib-original.sc:865:60546 */ /* x7862 */ /* x7861 xlib-original.sc:866:60588 */ /* x7864 */ /* x7863 xlib-original.sc:867:60623 */ /* x7866 */ /* x7865 xlib-original.sc:868:60658 */ /* x7868 */ /* x7867 xlib-original.sc:869:60694 */ /* x7870 */ /* x7869 xlib-original.sc:870:60731 */ /* x7872 */ /* x7871 xlib-original.sc:871:60765 */ /* x7874 */ /* x7873 xlib-original.sc:872:60794 */ /* x7876 */ /* x7875 xlib-original.sc:873:60821 */ /* x7878 */ /* x7877 xlib-original.sc:874:60848 */ /* x7880 */ /* x7879 */ /* x7882 */ /* x7881 */ /* x7884 */ /* x7883 */ /* x7886 */ /* x7885 */ /* x7888 */ /* x7887 xlib-original.sc:969:65626 */ /* x7890 */ /* x7889 xlib-original.sc:970:65658 */ /* x7892 */ /* x7891 xlib-original.sc:971:65684 */ /* x7894 */ /* x7893 xlib-original.sc:972:65711 */ /* x7896 */ /* x7895 xlib-original.sc:973:65740 */ /* x7898 */ /* x7897 xlib-original.sc:974:65771 */ /* x7900 */ /* x7899 xlib-original.sc:975:65802 */ /* x7902 */ /* x7901 xlib-original.sc:976:65831 */ /* x7904 */ /* x7903 xlib-original.sc:977:65865 */ /* x7906 */ /* x7905 xlib-original.sc:978:65899 */ /* x7908 */ /* x7907 xlib-original.sc:979:65934 */ /* x7910 */ /* x7909 xlib-original.sc:980:65969 */ /* x7912 */ /* x7911 xlib-original.sc:981:66004 */ /* x7914 */ /* x7913 xlib-original.sc:982:66039 */ /* x7916 */ /* x7915 xlib-original.sc:983:66074 */ /* x7918 */ /* x7917 xlib-original.sc:984:66109 */ /* x7920 */ /* x7919 xlib-original.sc:985:66141 */ /* x7922 */ /* x7921 xlib-original.sc:986:66169 */ /* x7924 */ /* x7923 xlib-original.sc:987:66200 */ /* x7926 */ /* x7925 xlib-original.sc:988:66230 */ /* x7928 */ /* x7927 xlib-original.sc:989:66259 */ /* x7930 */ /* x7929 xlib-original.sc:990:66292 */ /* x7932 */ /* x7931 xlib-original.sc:991:66332 */ /* x7934 */ /* x7933 xlib-original.sc:992:66369 */ /* x7936 */ /* x7935 xlib-original.sc:993:66405 */ /* x7938 */ /* x7937 xlib-original.sc:994:66441 */ /* x7940 */ /* x7939 xlib-original.sc:995:66480 */ /* x7942 */ /* x7941 xlib-original.sc:996:66516 */ /* x7944 */ /* x7943 xlib-original.sc:997:66553 */ /* x7946 */ /* x7945 xlib-original.sc:998:66588 */ /* x7948 */ /* x7947 xlib-original.sc:999:66618 */ /* x7950 */ /* x7949 xlib-original.sc:1000:66650 */ /* x7952 */ /* x7951 xlib-original.sc:1001:66680 */ /* x7954 */ /* x7953 xlib-original.sc:1002:66714 */ /* x7956 */ /* x7955 xlib-original.sc:1003:66746 */ /* x7958 */ /* x7957 xlib-original.sc:1004:66787 */ /* x7960 */ /* x7959 xlib-original.sc:1005:66823 */ /* x7962 */ /* x7961 xlib-original.sc:1006:66859 */ /* x7964 */ /* x7963 xlib-original.sc:1007:66890 */ /* x7966 */ /* x7965 xlib-original.sc:1008:66929 */ /* x7968 */ /* x7967 xlib-original.sc:1009:66966 */ /* x7970 */ /* x7969 xlib-original.sc:1010:67003 */ /* x7972 */ /* x7971 xlib-original.sc:1011:67036 */ /* x7974 */ /* x7973 xlib-original.sc:1012:67070 */ /* x7976 */ /* x7975 xlib-original.sc:1013:67103 */ /* x7978 */ /* x7977 xlib-original.sc:1014:67136 */ /* x7980 */ /* x7979 xlib-original.sc:1015:67173 */ /* x7982 */ /* x7981 xlib-original.sc:1016:67210 */ /* x7984 */ /* x7983 xlib-original.sc:1017:67245 */ /* x7986 */ /* x7985 xlib-original.sc:1018:67280 */ /* x7988 */ /* x7987 xlib-original.sc:1019:67322 */ /* x7990 */ /* x7989 xlib-original.sc:1020:67365 */ /* x7992 */ /* x7991 xlib-original.sc:1021:67405 */ /* x7994 */ /* x7993 xlib-original.sc:1022:67446 */ /* x7996 */ /* x7995 xlib-original.sc:1023:67482 */ /* x7998 */ /* x7997 xlib-original.sc:1024:67514 */ /* x8000 */ /* x7999 xlib-original.sc:1025:67548 */ /* x8002 */ /* x8001 xlib-original.sc:1026:67578 */ /* x8004 */ /* x8003 xlib-original.sc:1027:67612 */ /* x8006 */ /* x8005 xlib-original.sc:1028:67646 */ /* x8008 */ /* x8007 xlib-original.sc:1029:67679 */ /* x8010 */ /* x8009 xlib-original.sc:1030:67709 */ /* x8012 */ /* x8011 xlib-original.sc:1031:67742 */ /* x8014 */ /* x8013 xlib-original.sc:1032:67777 */ /* x8016 */ /* x8015 xlib-original.sc:1033:67810 */ /* x8018 */ /* x8017 xlib-original.sc:1034:67844 */ /* x8020 */ /* x8019 xlib-original.sc:1035:67876 */ /* x8022 */ /* x8021 xlib-original.sc:1036:67916 */ /* x8024 */ /* x8023 xlib-original.sc:1037:67955 */ /* x8026 */ /* x8025 xlib-original.sc:1041:68065 */ /* x8028 */ /* x8027 xlib-original.sc:1042:68095 */ /* x8030 */ /* x8029 xlib-original.sc:1043:68130 */ /* x8032 */ /* x8031 xlib-original.sc:1044:68162 */ /* x8034 */ /* x8033 xlib-original.sc:1045:68195 */ /* x8036 */ /* x8035 xlib-original.sc:1046:68227 */ /* x8038 */ /* x8037 xlib-original.sc:1047:68260 */ /* x8040 */ /* x8039 xlib-original.sc:1048:68293 */ /* x8042 */ /* x8041 xlib-original.sc:1049:68329 */ /* x8044 */ /* x8043 xlib-original.sc:1050:68361 */ /* x8046 */ /* x8045 xlib-original.sc:1051:68392 */ /* x8048 */ /* x8047 xlib-original.sc:1052:68423 */ /* x8050 */ /* x8049 xlib-original.sc:1053:68452 */ /* x8052 */ /* x8051 xlib-original.sc:1054:68484 */ /* x8054 */ /* x8053 xlib-original.sc:1055:68515 */ /* x8056 */ /* x8055 xlib-original.sc:1056:68547 */ /* x8058 */ /* x8057 xlib-original.sc:1057:68578 */ /* x8060 */ /* x8059 xlib-original.sc:1058:68608 */ /* x8062 */ /* x8061 xlib-original.sc:1059:68640 */ /* x8064 */ /* x8063 xlib-original.sc:1060:68673 */ /* x8066 */ /* x8065 xlib-original.sc:1061:68705 */ /* x8068 */ /* x8067 xlib-original.sc:1062:68739 */ /* x8070 */ /* x8069 xlib-original.sc:1063:68772 */ /* x8072 */ /* x8071 xlib-original.sc:1064:68803 */ /* x8074 */ /* x8073 xlib-original.sc:1065:68834 */ /* x8076 */ /* x8075 xlib-original.sc:1066:68865 */ /* x8078 */ /* x8077 xlib-original.sc:1067:68896 */ /* x8080 */ /* x8079 xlib-original.sc:1068:68929 */ /* x8082 */ /* x8081 xlib-original.sc:1069:68960 */ /* x8084 */ /* x8083 xlib-original.sc:1070:68992 */ /* x8086 */ /* x8085 xlib-original.sc:1071:69030 */ /* x8088 */ /* x8087 xlib-original.sc:1072:69070 */ /* x8090 */ /* x8089 xlib-original.sc:1073:69105 */ /* x8092 */ /* x8091 xlib-original.sc:1074:69140 */ /* x8094 */ /* x8093 xlib-original.sc:1075:69173 */ /* x8096 */ /* x8095 xlib-original.sc:1076:69208 */ /* x8098 */ /* x8097 xlib-original.sc:1077:69240 */ /* x8100 */ /* x8099 xlib-original.sc:1078:69272 */ /* x8102 */ /* x8101 xlib-original.sc:1079:69304 */ /* x8104 */ /* x8103 xlib-original.sc:1080:69336 */ /* x8106 */ /* x8105 xlib-original.sc:1081:69371 */ /* x8108 */ /* x8107 xlib-original.sc:1082:69409 */ /* x8110 */ /* x8109 xlib-original.sc:1083:69442 */ /* x8112 */ /* x8111 xlib-original.sc:1084:69481 */ /* x8114 */ /* x8113 xlib-original.sc:1085:69519 */ /* x8116 */ /* x8115 xlib-original.sc:1086:69556 */ /* x8118 */ /* x8117 xlib-original.sc:1087:69592 */ /* x8120 */ /* x8119 xlib-original.sc:1088:69623 */ /* x8122 */ /* x8121 xlib-original.sc:1089:69654 */ /* x8124 */ /* x8123 xlib-original.sc:1090:69685 */ /* x8126 */ /* x8125 xlib-original.sc:1091:69716 */ /* x8128 */ /* x8127 xlib-original.sc:1092:69747 */ /* x8130 */ /* x8129 xlib-original.sc:1093:69778 */ /* x8132 */ /* x8131 xlib-original.sc:1094:69809 */ /* x8134 */ /* x8133 xlib-original.sc:1095:69840 */ /* x8136 */ /* x8135 xlib-original.sc:1096:69871 */ /* x8138 */ /* x8137 xlib-original.sc:1097:69902 */ /* x8140 */ /* x8139 xlib-original.sc:1098:69931 */ /* x8142 */ /* x8141 xlib-original.sc:1099:69960 */ /* x8144 */ /* x8143 xlib-original.sc:1100:69989 */ /* x8146 */ /* x8145 xlib-original.sc:1101:70018 */ /* x8148 */ /* x8147 xlib-original.sc:1102:70047 */ /* x8150 */ /* x8149 xlib-original.sc:1103:70076 */ /* x8152 */ /* x8151 xlib-original.sc:1104:70105 */ /* x8154 */ /* x8153 xlib-original.sc:1105:70134 */ /* x8156 */ /* x8155 xlib-original.sc:1106:70163 */ /* x8158 */ /* x8157 xlib-original.sc:1107:70193 */ /* x8160 */ /* x8159 xlib-original.sc:1108:70223 */ /* x8162 */ /* x8161 xlib-original.sc:1109:70252 */ /* x8164 */ /* x8163 xlib-original.sc:1110:70282 */ /* x8166 */ /* x8165 xlib-original.sc:1111:70311 */ /* x8168 */ /* x8167 xlib-original.sc:1112:70341 */ /* x8170 */ /* x8169 xlib-original.sc:1113:70370 */ /* x8172 */ /* x8171 xlib-original.sc:1114:70400 */ /* x8174 */ /* x8173 xlib-original.sc:1115:70429 */ /* x8176 */ /* x8175 xlib-original.sc:1116:70459 */ /* x8178 */ /* x8177 xlib-original.sc:1117:70488 */ /* x8180 */ /* x8179 xlib-original.sc:1118:70518 */ /* x8182 */ /* x8181 xlib-original.sc:1119:70547 */ /* x8184 */ /* x8183 xlib-original.sc:1120:70577 */ /* x8186 */ /* x8185 xlib-original.sc:1121:70606 */ /* x8188 */ /* x8187 xlib-original.sc:1122:70636 */ /* x8190 */ /* x8189 xlib-original.sc:1123:70665 */ /* x8192 */ /* x8191 xlib-original.sc:1124:70695 */ /* x8194 */ /* x8193 xlib-original.sc:1125:70724 */ /* x8196 */ /* x8195 xlib-original.sc:1126:70754 */ /* x8198 */ /* x8197 xlib-original.sc:1127:70784 */ /* x8200 */ /* x8199 xlib-original.sc:1128:70814 */ /* x8202 */ /* x8201 xlib-original.sc:1129:70843 */ /* x8204 */ /* x8203 xlib-original.sc:1130:70873 */ /* x8206 */ /* x8205 xlib-original.sc:1131:70902 */ /* x8208 */ /* x8207 xlib-original.sc:1132:70932 */ /* x8210 */ /* x8209 xlib-original.sc:1133:70961 */ /* x8212 */ /* x8211 xlib-original.sc:1134:70991 */ /* x8214 */ /* x8213 xlib-original.sc:1135:71020 */ /* x8216 */ /* x8215 xlib-original.sc:1136:71050 */ /* x8218 */ /* x8217 xlib-original.sc:1137:71079 */ /* x8220 */ /* x8219 xlib-original.sc:1138:71109 */ /* x8222 */ /* x8221 xlib-original.sc:1139:71138 */ /* x8224 */ /* x8223 xlib-original.sc:1140:71168 */ /* x8226 */ /* x8225 xlib-original.sc:1141:71197 */ /* x8228 */ /* x8227 xlib-original.sc:1142:71227 */ /* x8230 */ /* x8229 xlib-original.sc:1143:71256 */ /* x8232 */ /* x8231 xlib-original.sc:1144:71286 */ /* x8234 */ /* x8233 xlib-original.sc:1145:71315 */ /* x8236 */ /* x8235 xlib-original.sc:1146:71345 */ /* x8238 */ /* x8237 xlib-original.sc:1147:71375 */ /* x8240 */ /* x8239 xlib-original.sc:1148:71405 */ /* x8242 */ /* x8241 xlib-original.sc:1149:71435 */ /* x8244 */ /* x8243 xlib-original.sc:1150:71465 */ /* x8246 */ /* x8245 xlib-original.sc:1151:71495 */ /* x8248 */ /* x8247 xlib-original.sc:1152:71525 */ /* x8250 */ /* x8249 xlib-original.sc:1153:71555 */ /* x8252 */ /* x8251 xlib-original.sc:1154:71585 */ /* x8254 */ /* x8253 xlib-original.sc:1155:71615 */ /* x8256 */ /* x8255 xlib-original.sc:1156:71645 */ /* x8258 */ /* x8257 xlib-original.sc:1157:71675 */ /* x8260 */ /* x8259 xlib-original.sc:1158:71709 */ /* x8262 */ /* x8261 xlib-original.sc:1159:71743 */ /* x8264 */ /* x8263 xlib-original.sc:1160:71779 */ /* x8266 */ /* x8265 xlib-original.sc:1161:71815 */ /* x8268 */ /* x8267 xlib-original.sc:1162:71851 */ /* x8270 */ /* x8269 xlib-original.sc:1163:71888 */ /* x8272 */ /* x8271 xlib-original.sc:1164:71921 */ /* x8274 */ /* x8273 xlib-original.sc:1165:71954 */ /* x8276 */ /* x8275 xlib-original.sc:1166:71986 */ /* x8278 */ /* x8277 xlib-original.sc:1167:72018 */ /* x8280 */ /* x8279 xlib-original.sc:1168:72052 */ /* x8282 */ /* x8281 xlib-original.sc:1169:72086 */ /* x8284 */ /* x8283 xlib-original.sc:1170:72120 */ /* x8286 */ /* x8285 xlib-original.sc:1171:72154 */ /* x8288 */ /* x8287 xlib-original.sc:1172:72186 */ /* x8290 */ /* x8289 xlib-original.sc:1173:72216 */ /* x8292 */ /* x8291 xlib-original.sc:1174:72248 */ /* x8294 */ /* x8293 xlib-original.sc:1175:72282 */ /* x8296 */ /* x8295 xlib-original.sc:1176:72312 */ /* x8298 */ /* x8297 xlib-original.sc:1177:72343 */ /* x8300 */ /* x8299 xlib-original.sc:1178:72376 */ /* x8302 */ /* x8301 xlib-original.sc:1179:72410 */ /* x8304 */ /* x8303 xlib-original.sc:1180:72443 */ /* x8306 */ /* x8305 xlib-original.sc:1181:72477 */ /* x8308 */ /* x8307 xlib-original.sc:1182:72509 */ /* x8310 */ /* x8309 xlib-original.sc:1183:72537 */ /* x8312 */ /* x8311 xlib-original.sc:1184:72566 */ /* x8314 */ /* x8313 xlib-original.sc:1185:72595 */ /* x8316 */ /* x8315 xlib-original.sc:1186:72625 */ /* x8318 */ /* x8317 xlib-original.sc:1187:72654 */ /* x8320 */ /* x8319 xlib-original.sc:1188:72679 */ /* x8322 */ /* x8321 xlib-original.sc:1189:72704 */ /* x8324 */ /* x8323 xlib-original.sc:1190:72729 */ /* x8326 */ /* x8325 xlib-original.sc:1191:72754 */ /* x8328 */ /* x8327 xlib-original.sc:1192:72779 */ /* x8330 */ /* x8329 xlib-original.sc:1193:72804 */ /* x8332 */ /* x8331 xlib-original.sc:1194:72829 */ /* x8334 */ /* x8333 xlib-original.sc:1195:72854 */ /* x8336 */ /* x8335 xlib-original.sc:1196:72879 */ /* x8338 */ /* x8337 xlib-original.sc:1197:72904 */ /* x8340 */ /* x8339 xlib-original.sc:1198:72933 */ /* x8342 */ /* x8341 xlib-original.sc:1199:72966 */ /* x8344 */ /* x8343 xlib-original.sc:1200:72994 */ /* x8346 */ /* x8345 xlib-original.sc:1201:73023 */ /* x8348 */ /* x8347 xlib-original.sc:1202:73054 */ /* x8350 */ /* x8349 xlib-original.sc:1203:73086 */ /* x8352 */ /* x8351 xlib-original.sc:1204:73112 */ /* x8354 */ /* x8353 xlib-original.sc:1205:73137 */ /* x8356 */ /* x8355 xlib-original.sc:1206:73162 */ /* x8358 */ /* x8357 xlib-original.sc:1207:73187 */ /* x8360 */ /* x8359 xlib-original.sc:1208:73212 */ /* x8362 */ /* x8361 xlib-original.sc:1209:73237 */ /* x8364 */ /* x8363 xlib-original.sc:1210:73262 */ /* x8366 */ /* x8365 xlib-original.sc:1211:73287 */ /* x8368 */ /* x8367 xlib-original.sc:1212:73312 */ /* x8370 */ /* x8369 xlib-original.sc:1213:73337 */ /* x8372 */ /* x8371 xlib-original.sc:1214:73362 */ /* x8374 */ /* x8373 xlib-original.sc:1215:73387 */ /* x8376 */ /* x8375 xlib-original.sc:1216:73412 */ /* x8378 */ /* x8377 xlib-original.sc:1217:73437 */ /* x8380 */ /* x8379 xlib-original.sc:1218:73462 */ /* x8382 */ /* x8381 xlib-original.sc:1219:73487 */ /* x8384 */ /* x8383 xlib-original.sc:1220:73512 */ /* x8386 */ /* x8385 xlib-original.sc:1221:73537 */ /* x8388 */ /* x8387 xlib-original.sc:1222:73562 */ /* x8390 */ /* x8389 xlib-original.sc:1223:73587 */ /* x8392 */ /* x8391 xlib-original.sc:1224:73612 */ /* x8394 */ /* x8393 xlib-original.sc:1225:73637 */ /* x8396 */ /* x8395 xlib-original.sc:1226:73662 */ /* x8398 */ /* x8397 xlib-original.sc:1227:73687 */ /* x8400 */ /* x8399 xlib-original.sc:1228:73712 */ /* x8402 */ /* x8401 xlib-original.sc:1229:73737 */ /* x8404 */ /* x8403 xlib-original.sc:1230:73762 */ /* x8406 */ /* x8405 xlib-original.sc:1231:73797 */ /* x8408 */ /* x8407 xlib-original.sc:1232:73830 */ /* x8410 */ /* x8409 xlib-original.sc:1233:73866 */ /* x8412 */ /* x8411 xlib-original.sc:1234:73901 */ /* x8414 */ /* x8413 xlib-original.sc:1235:73935 */ /* x8416 */ /* x8415 xlib-original.sc:1236:73968 */ /* x8418 */ /* x8417 xlib-original.sc:1237:73995 */ /* x8420 */ /* x8419 xlib-original.sc:1238:74022 */ /* x8422 */ /* x8421 xlib-original.sc:1239:74049 */ /* x8424 */ /* x8423 xlib-original.sc:1240:74076 */ /* x8426 */ /* x8425 xlib-original.sc:1241:74104 */ /* x8428 */ /* x8427 xlib-original.sc:1242:74132 */ /* x8430 */ /* x8429 xlib-original.sc:1243:74160 */ /* x8432 */ /* x8431 xlib-original.sc:1244:74188 */ /* x8434 */ /* x8433 xlib-original.sc:1245:74216 */ /* x8436 */ /* x8435 xlib-original.sc:1246:74244 */ /* x8438 */ /* x8437 xlib-original.sc:1247:74272 */ /* x8440 */ /* x8439 xlib-original.sc:1248:74300 */ /* x8442 */ /* x8441 xlib-original.sc:1249:74328 */ /* x8444 */ /* x8443 xlib-original.sc:1250:74356 */ /* x8446 */ /* x8445 xlib-original.sc:1251:74384 */ /* x8448 */ /* x8447 xlib-original.sc:1252:74412 */ /* x8450 */ /* x8449 xlib-original.sc:1253:74440 */ /* x8452 */ /* x8451 xlib-original.sc:1254:74468 */ /* x8454 */ /* x8453 xlib-original.sc:1255:74496 */ /* x8456 */ /* x8455 xlib-original.sc:1256:74524 */ /* x8458 */ /* x8457 xlib-original.sc:1257:74552 */ /* x8460 */ /* x8459 xlib-original.sc:1258:74580 */ /* x8462 */ /* x8461 xlib-original.sc:1259:74608 */ /* x8464 */ /* x8463 xlib-original.sc:1260:74636 */ /* x8466 */ /* x8465 xlib-original.sc:1261:74664 */ /* x8468 */ /* x8467 xlib-original.sc:1262:74692 */ /* x8470 */ /* x8469 xlib-original.sc:1263:74726 */ /* x8472 */ /* x8471 xlib-original.sc:1264:74754 */ /* x8474 */ /* x8473 xlib-original.sc:1265:74789 */ /* x8476 */ /* x8475 xlib-original.sc:1266:74824 */ /* x8478 */ /* x8477 xlib-original.sc:1267:74861 */ /* x8480 */ /* x8479 xlib-original.sc:1268:74896 */ /* x8482 */ /* x8481 xlib-original.sc:1269:74925 */ /* x8484 */ /* x8483 xlib-original.sc:1270:74958 */ /* x8486 */ /* x8485 xlib-original.sc:1271:74991 */ /* x8488 */ /* x8487 xlib-original.sc:1272:75019 */ /* x8490 */ /* x8489 xlib-original.sc:1273:75053 */ /* x8492 */ /* x8491 xlib-original.sc:1274:75085 */ /* x8494 */ /* x8493 xlib-original.sc:1275:75119 */ /* x8496 */ /* x8495 xlib-original.sc:1276:75153 */ /* x8498 */ /* x8497 xlib-original.sc:1277:75189 */ /* x8500 */ /* x8499 xlib-original.sc:1278:75227 */ /* x8502 */ /* x8501 xlib-original.sc:1279:75259 */ /* x8504 */ /* x8503 xlib-original.sc:1280:75290 */ /* x8506 */ /* x8505 xlib-original.sc:1281:75325 */ /* x8508 */ /* x8507 xlib-original.sc:1282:75356 */ /* x8510 */ /* x8509 xlib-original.sc:1283:75387 */ /* x8512 */ /* x8511 xlib-original.sc:1284:75421 */ /* x8514 */ /* x8513 xlib-original.sc:1285:75457 */ /* x8516 */ /* x8515 xlib-original.sc:1286:75495 */ /* x8518 */ /* x8517 xlib-original.sc:1287:75525 */ /* x8520 */ /* x8519 xlib-original.sc:1288:75552 */ /* x8522 */ /* x8521 xlib-original.sc:1289:75586 */ /* x8524 */ /* x8523 xlib-original.sc:1290:75625 */ /* x8526 */ /* x8525 xlib-original.sc:1291:75657 */ /* x8528 */ /* x8527 xlib-original.sc:1292:75693 */ /* x8530 */ /* x8529 xlib-original.sc:1293:75727 */ /* x8532 */ /* x8531 xlib-original.sc:1294:75766 */ /* x8534 */ /* x8533 xlib-original.sc:1295:75801 */ /* x8536 */ /* x8535 xlib-original.sc:1296:75833 */ /* x8538 */ /* x8537 xlib-original.sc:1297:75871 */ /* x8540 */ /* x8539 xlib-original.sc:1298:75908 */ /* x8542 */ /* x8541 xlib-original.sc:1299:75939 */ /* x8544 */ /* x8543 xlib-original.sc:1300:75970 */ /* x8546 */ /* x8545 xlib-original.sc:1301:76006 */ /* x8548 */ /* x8547 xlib-original.sc:1302:76037 */ /* x8550 */ /* x8549 xlib-original.sc:1303:76072 */ /* x8552 */ /* x8551 xlib-original.sc:1304:76102 */ /* x8554 */ /* x8553 xlib-original.sc:1305:76129 */ /* x8556 */ /* x8555 xlib-original.sc:1306:76162 */ /* x8558 */ /* x8557 xlib-original.sc:1307:76193 */ /* x8560 */ /* x8559 xlib-original.sc:1308:76224 */ /* x8562 */ /* x8561 xlib-original.sc:1309:76260 */ /* x8564 */ /* x8563 xlib-original.sc:1310:76295 */ /* x8566 */ /* x8565 xlib-original.sc:1311:76326 */ /* x8568 */ /* x8567 xlib-original.sc:1312:76357 */ /* x8570 */ /* x8569 xlib-original.sc:1313:76393 */ /* x8572 */ /* x8571 xlib-original.sc:1314:76428 */ /* x8574 */ /* x8573 xlib-original.sc:1315:76456 */ /* x8576 */ /* x8575 xlib-original.sc:1316:76487 */ /* x8578 */ /* x8577 xlib-original.sc:1317:76518 */ /* x8580 */ /* x8579 xlib-original.sc:1318:76549 */ /* x8582 */ /* x8581 xlib-original.sc:1319:76585 */ /* x8584 */ /* x8583 xlib-original.sc:1320:76616 */ /* x8586 */ /* x8585 xlib-original.sc:1321:76651 */ /* x8588 */ /* x8587 xlib-original.sc:1322:76684 */ /* x8590 */ /* x8589 xlib-original.sc:1323:76717 */ /* x8592 */ /* x8591 xlib-original.sc:1324:76748 */ /* x8594 */ /* x8593 xlib-original.sc:1325:76779 */ /* x8596 */ /* x8595 xlib-original.sc:1326:76815 */ /* x8598 */ /* x8597 xlib-original.sc:1327:76850 */ /* x8600 */ /* x8599 xlib-original.sc:1328:76881 */ /* x8602 */ /* x8601 xlib-original.sc:1329:76911 */ /* x8604 */ /* x8603 xlib-original.sc:1330:76942 */ /* x8606 */ /* x8605 xlib-original.sc:1331:76975 */ /* x8608 */ /* x8607 xlib-original.sc:1332:77008 */ /* x8610 */ /* x8609 xlib-original.sc:1333:77046 */ /* x8612 */ /* x8611 xlib-original.sc:1334:77079 */ /* x8614 */ /* x8613 xlib-original.sc:1335:77116 */ /* x8616 */ /* x8615 xlib-original.sc:1336:77148 */ /* x8618 */ /* x8617 xlib-original.sc:1337:77177 */ /* x8620 */ /* x8619 xlib-original.sc:1338:77212 */ /* x8622 */ /* x8621 xlib-original.sc:1339:77245 */ /* x8624 */ /* x8623 xlib-original.sc:1340:77278 */ /* x8626 */ /* x8625 xlib-original.sc:1341:77316 */ /* x8628 */ /* x8627 xlib-original.sc:1342:77353 */ /* x8630 */ /* x8629 xlib-original.sc:1343:77386 */ /* x8632 */ /* x8631 xlib-original.sc:1344:77419 */ /* x8634 */ /* x8633 xlib-original.sc:1345:77457 */ /* x8636 */ /* x8635 xlib-original.sc:1346:77494 */ /* x8638 */ /* x8637 xlib-original.sc:1347:77524 */ /* x8640 */ /* x8639 xlib-original.sc:1348:77557 */ /* x8642 */ /* x8641 xlib-original.sc:1349:77590 */ /* x8644 */ /* x8643 xlib-original.sc:1350:77623 */ /* x8646 */ /* x8645 xlib-original.sc:1351:77661 */ /* x8648 */ /* x8647 xlib-original.sc:1352:77694 */ /* x8650 */ /* x8649 xlib-original.sc:1353:77731 */ /* x8652 */ /* x8651 xlib-original.sc:1354:77764 */ /* x8654 */ /* x8653 xlib-original.sc:1355:77795 */ /* x8656 */ /* x8655 xlib-original.sc:1356:77828 */ /* x8658 */ /* x8657 xlib-original.sc:1357:77861 */ /* x8660 */ /* x8659 xlib-original.sc:1358:77899 */ /* x8662 */ /* x8661 xlib-original.sc:1359:77936 */ /* x8664 */ /* x8663 xlib-original.sc:1360:77969 */ /* x8666 */ /* x8665 xlib-original.sc:1361:78001 */ /* x8668 */ /* x8667 xlib-original.sc:1362:78036 */ /* x8670 */ /* x8669 xlib-original.sc:1363:78073 */ /* x8672 */ /* x8671 xlib-original.sc:1364:78122 */ /* x8674 */ /* x8673 xlib-original.sc:1365:78168 */ /* x8676 */ /* x8675 xlib-original.sc:1366:78212 */ /* x8678 */ /* x8677 xlib-original.sc:1367:78256 */ /* x8680 */ /* x8679 xlib-original.sc:1368:78293 */ /* x8682 */ /* x8681 xlib-original.sc:1369:78334 */ /* x8684 */ /* x8683 xlib-original.sc:1370:78372 */ /* x8686 */ /* x8685 xlib-original.sc:1374:78462 */ /* x8688 */ /* x8687 xlib-original.sc:1375:78495 */ /* x8690 */ /* x8689 xlib-original.sc:1376:78523 */ /* x8692 */ /* x8691 xlib-original.sc:1377:78562 */ /* x8694 */ /* x8693 xlib-original.sc:1378:78599 */ /* x8696 */ /* x8695 xlib-original.sc:1379:78626 */ /* x8698 */ /* x8697 xlib-original.sc:1380:78657 */ /* x8700 */ /* x8699 xlib-original.sc:1381:78699 */ /* x8702 */ /* x8701 xlib-original.sc:1382:78742 */ /* x8704 */ /* x8703 xlib-original.sc:1383:78777 */ /* x8706 */ /* x8705 xlib-original.sc:1384:78811 */ /* x8708 */ /* x8707 xlib-original.sc:1385:78845 */ /* x8710 */ /* x8709 xlib-original.sc:1386:78879 */ /* x8712 */ /* x8711 xlib-original.sc:1387:78909 */ /* x8714 */ /* x8713 xlib-original.sc:1388:78938 */ /* x8716 */ /* x8715 xlib-original.sc:1389:78972 */ /* x8718 */ /* x8717 xlib-original.sc:1390:79001 */ /* x8720 */ /* x8719 xlib-original.sc:1391:79038 */ /* x8722 */ /* x8721 xlib-original.sc:1392:79071 */ /* x8724 */ /* x8723 xlib-original.sc:1393:79108 */ /* x8726 */ /* x8725 xlib-original.sc:1394:79135 */ /* x8728 */ /* x8727 xlib-original.sc:1395:79165 */ /* x8730 */ /* x8729 xlib-original.sc:1396:79201 */ /* x8732 */ /* x8731 xlib-original.sc:1397:79236 */ /* x8734 */ /* x8733 xlib-original.sc:1398:79271 */ /* x8736 */ /* x8735 xlib-original.sc:1399:79305 */ /* x8738 */ /* x8737 xlib-original.sc:1400:79337 */ /* x8740 */ /* x8739 xlib-original.sc:1401:79366 */ /* x8742 */ /* x8741 xlib-original.sc:1402:79397 */ /* x8744 */ /* x8743 xlib-original.sc:1403:79426 */ /* x8746 */ /* x8745 xlib-original.sc:1404:79455 */ /* x8748 */ /* x8747 xlib-original.sc:1405:79484 */ /* x8750 */ /* x8749 xlib-original.sc:1406:79513 */ /* x8752 */ /* x8751 xlib-original.sc:1407:79541 */ /* x8754 */ /* x8753 xlib-original.sc:1408:79575 */ /* x8756 */ /* x8755 xlib-original.sc:1409:79607 */ /* x8758 */ /* x8757 xlib-original.sc:1410:79640 */ /* x8760 */ /* x8759 xlib-original.sc:1411:79672 */ /* x8762 */ /* x8761 xlib-original.sc:1412:79706 */ /* x8764 */ /* x8763 xlib-original.sc:1413:79738 */ /* x8766 */ /* x8765 xlib-original.sc:1414:79770 */ /* x8768 */ /* x8767 xlib-original.sc:1415:79797 */ /* x8770 */ /* x8769 xlib-original.sc:1416:79833 */ /* x8772 */ /* x8771 xlib-original.sc:1417:79862 */ /* x8774 */ /* x8773 xlib-original.sc:1418:79892 */ /* x8776 */ /* x8775 xlib-original.sc:1419:79922 */ /* x8778 */ /* x8777 xlib-original.sc:1420:79950 */ /* x8780 */ /* x8779 xlib-original.sc:1421:79988 */ /* x8782 */ /* x8781 xlib-original.sc:1422:80021 */ /* x8784 */ /* x8783 xlib-original.sc:1423:80055 */ /* x8786 */ /* x8785 xlib-original.sc:1424:80088 */ /* x8788 */ /* x8787 xlib-original.sc:1425:80123 */ /* x8790 */ /* x8789 xlib-original.sc:1426:80156 */ /* x8792 */ /* x8791 xlib-original.sc:1427:80189 */ /* x8794 */ /* x8793 xlib-original.sc:1428:80227 */ /* x8796 */ /* x8795 xlib-original.sc:1429:80269 */ /* x8798 */ /* x8797 xlib-original.sc:1430:80307 */ /* x8800 */ /* x8799 xlib-original.sc:1431:80346 */ /* x8802 */ /* x8801 xlib-original.sc:1432:80382 */ /* x8804 */ /* x8803 xlib-original.sc:1433:80424 */ /* x8806 */ /* x8805 xlib-original.sc:1434:80456 */ /* x8808 */ /* x8807 xlib-original.sc:1435:80487 */ /* x8810 */ /* x8809 xlib-original.sc:1436:80518 */ /* x8812 */ /* x8811 xlib-original.sc:1437:80551 */ /* x8814 */ /* x8813 xlib-original.sc:1438:80580 */ /* x8816 */ /* x8815 xlib-original.sc:1439:80611 */ /* x8818 */ /* x8817 xlib-original.sc:1440:80642 */ /* x8820 */ /* x8819 xlib-original.sc:1441:80681 */ /* x8822 */ /* x8821 xlib-original.sc:1442:80721 */ /* x8824 */ /* x8823 xlib-original.sc:1443:80762 */ /* x8826 */ /* x8825 xlib-original.sc:1444:80795 */ /* x8828 */ /* x8827 xlib-original.sc:1445:80827 */ /* x8830 */ /* x8829 xlib-original.sc:1446:80856 */ /* x8832 */ /* x8831 xlib-original.sc:1447:80889 */ /* x8834 */ /* x8833 xlib-original.sc:1448:80922 */ /* x8836 */ /* x8835 xlib-original.sc:1449:80955 */ /* x8838 */ /* x8837 xlib-original.sc:1450:80985 */ /* x8840 */ /* x8839 xlib-original.sc:1451:81015 */ /* x8842 */ /* x8841 */ /* x8844 */ /* x8843 */ /* x8846 */ /* x8845 */ /* x8848 */ /* x8847 */ /* x8850 */ /* x8849 */ /* x8852 */ /* x8851 */ /* x8854 */ /* x8853 */ /* x8856 */ /* x8855 */ /* x8858 */ /* x8857 */ /* x8860 */ /* x8859 */ /* x8862 */ /* x8861 */ /* x8864 */ /* x8863 */ /* x8866 */ /* x8865 */ /* x8868 */ /* x8867 */ /* x8870 */ /* x8869 */ /* x8872 */ /* x8871 */ /* x8874 */ /* x8873 */ /* x8876 */ /* x8875 */ /* x8878 */ /* x8877 */ /* x8880 */ /* x8879 */ /* x8882 */ /* x8881 */ /* x8884 */ /* x8883 */ /* x8886 */ /* x8885 */ /* x8888 */ /* x8887 */ /* x8890 */ /* x8889 */ /* x8892 */ /* x8891 */ /* x8894 */ /* x8893 */ /* x8896 */ /* x8895 */ /* x8898 */ /* x8897 */ /* x8900 */ /* x8899 */ /* x8902 */ /* x8901 */ /* x8904 */ /* x8903 */ /* x8906 */ /* x8905 */ /* x8908 */ /* x8907 */ /* x8910 */ /* x8909 */ /* x8912 */ /* x8911 */ /* x8914 */ /* x8913 */ /* x8916 */ /* x8915 */ /* x8918 */ /* x8917 */ /* x8920 */ /* x8919 */ /* x8922 */ /* x8921 */ /* x8924 */ /* x8923 */ /* x8926 */ /* x8925 */ /* x8928 */ /* x8927 */ /* x8930 */ /* x8929 */ /* x8932 */ /* x8931 */ /* x8934 */ /* x8933 */ /* x8936 */ /* x8935 */ /* x8938 */ /* x8937 */ /* x8940 */ /* x8939 */ /* x8942 */ /* x8941 */ /* x8944 */ /* x8943 */ /* x8946 */ /* x8945 */ /* x8948 */ /* x8947 */ /* x8950 */ /* x8949 */ /* x8952 */ /* x8951 */ /* x8954 */ /* x8953 */ /* x8956 */ /* x8955 */ /* x8958 */ /* x8957 */ /* x8960 */ /* x8959 */ /* x8962 */ /* x8961 */ /* x8964 */ /* x8963 */ /* x8966 */ /* x8965 */ /* x8968 */ /* x8967 */ /* x8970 */ /* x8969 */ /* x8972 */ /* x8971 */ /* x8974 */ /* x8973 */ /* x8976 */ /* x8975 */ /* x8978 */ /* x8977 */ /* x8980 */ /* x8979 */ /* x8982 */ /* x8981 */ /* x8984 */ /* x8983 */ /* x8986 */ /* x8985 */ /* x8988 */ /* x8987 */ /* x8990 */ /* x8989 */ /* x8992 */ /* x8991 */ /* x8994 */ /* x8993 */ /* x8996 */ /* x8995 */ /* x8998 */ /* x8997 */ /* x9000 */ /* x8999 */ /* x9002 */ /* x9001 */ /* x9004 */ /* x9003 */ /* x9006 */ /* x9005 */ /* x9008 */ /* x9007 */ /* x9010 */ /* x9009 */ /* x9012 */ /* x9011 */ /* x9014 */ /* x9013 */ /* x9016 */ /* x9015 */ /* x9018 */ /* x9017 */ /* x9020 */ /* x9019 */ /* x9022 */ /* x9021 */ /* x9024 */ /* x9023 */ /* x9026 */ /* x9025 */ /* x9028 */ /* x9027 */ /* x9030 */ /* x9029 */ /* x9032 */ /* x9031 */ /* x9034 */ /* x9033 */ /* x9036 */ /* x9035 */ /* x9038 */ /* x9037 */ /* x9040 */ /* x9039 */ /* x9042 */ /* x9041 */ /* x9044 */ /* x9043 */ /* x9046 */ /* x9045 */ /* x9048 */ /* x9047 */ /* x9050 */ /* x9049 */ /* x9052 */ /* x9051 */ /* x9054 */ /* x9053 */ /* x9056 */ /* x9055 */ /* x9058 */ /* x9057 */ /* x9060 */ /* x9059 */ /* x9062 */ /* x9061 */ /* x9064 */ /* x9063 */ /* x9066 */ /* x9065 */ /* x9068 */ /* x9067 */ /* x9070 */ /* x9069 */ /* x9072 */ /* x9071 */ /* x9074 */ /* x9073 */ /* x9076 */ /* x9075 */ /* x9078 */ /* x9077 */ /* x9080 */ /* x9079 */ /* x9082 */ /* x9081 */ /* x9084 */ /* x9083 */ /* x9086 */ /* x9085 */ /* x9088 */ /* x9087 */ /* x9090 */ /* x9089 */ /* x9092 */ /* x9091 */ /* x9094 */ /* x9093 */ /* x9096 */ /* x9095 */ /* x9098 */ /* x9097 */ /* x9100 */ /* x9099 */ /* x9102 */ /* x9101 */ /* x9104 */ /* x9103 */ /* x9106 */ /* x9105 */ /* x9108 */ /* x9107 */ /* x9110 */ /* x9109 */ /* x9112 */ /* x9111 */ /* x9114 */ /* x9113 */ /* x9116 */ /* x9115 */ /* x9118 */ /* x9117 */ /* x9120 */ /* x9119 */ /* x9122 */ /* x9121 */ /* x9124 */ /* x9123 */ /* x9126 */ /* x9125 */ /* x9128 */ /* x9127 */ /* x9130 */ /* x9129 */ /* x9132 */ /* x9131 */ /* x9134 */ /* x9133 */ /* x9136 */ /* x9135 */ /* x9138 */ /* x9137 */ /* x9140 */ /* x9139 */ /* x9142 */ /* x9141 */ /* x9144 */ /* x9143 */ /* x9146 */ /* x9145 */ /* x9148 */ /* x9147 */ /* x9150 */ /* x9149 */ /* x9152 */ /* x9151 */ /* x9154 */ /* x9153 */ /* x9156 */ /* x9155 */ /* x9158 */ /* x9157 */ /* x9160 */ /* x9159 */ /* x9162 */ /* x9161 */ /* x9164 */ /* x9163 */ /* x9166 */ /* x9165 */ /* x9168 */ /* x9167 */ /* x9170 */ /* x9169 */ /* x9172 */ /* x9171 */ /* x9174 */ /* x9173 */ /* x9176 */ /* x9175 */ /* x9178 */ /* x9177 */ /* x9180 */ /* x9179 */ /* x9182 */ /* x9181 */ /* x9184 */ /* x9183 */ /* x9186 */ /* x9185 */ /* x9188 */ /* x9187 */ /* x9190 */ /* x9189 */ /* x9192 */ /* x9191 */ /* x9194 */ /* x9193 */ /* x9196 */ /* x9195 */ /* x9198 */ /* x9197 */ /* x9200 */ /* x9199 */ /* x9202 */ /* x9201 */ /* x9204 */ /* x9203 */ /* x9206 */ /* x9205 */ /* x9208 */ /* x9207 */ /* x9210 */ /* x9209 */ /* x9212 */ /* x9211 */ /* x9214 */ /* x9213 */ /* x9216 */ /* x9215 */ /* x9218 */ /* x9217 */ /* x9220 */ /* x9219 */ /* x9222 */ /* x9221 */ /* x9224 */ /* x9223 */ /* x9226 */ /* x9225 */ /* x9228 */ /* x9227 */ /* x9230 */ /* x9229 */ /* x9232 */ /* x9231 */ /* x9234 */ /* x9233 */ /* x9236 */ /* x9235 */ /* x9238 */ /* x9237 */ /* x9240 */ /* x9239 */ /* x9242 */ /* x9241 */ /* x9244 */ /* x9243 */ /* x9246 */ /* x9245 */ /* x9248 */ /* x9247 */ /* x9250 */ /* x9249 */ /* x9252 */ /* x9251 */ /* x9254 */ /* x9253 */ /* x9256 */ /* x9255 */ /* x9258 */ /* x9257 */ /* x9260 */ /* x9259 */ /* x9262 */ /* x9261 */ /* x9264 */ /* x9263 */ /* x9266 */ /* x9265 */ /* x9268 */ /* x9267 */ /* x9270 */ /* x9269 */ /* x9272 */ /* x9271 */ /* x9274 */ /* x9273 */ /* x9276 */ /* x9275 */ /* x9278 */ /* x9277 */ /* x9280 */ /* x9279 */ /* x9282 */ /* x9281 */ /* x9284 */ /* x9283 */ /* x9286 */ /* x9285 */ /* x9288 */ /* x9287 */ /* x9290 */ /* x9289 */ /* x9292 */ /* x9291 */ /* x9294 */ /* x9293 */ /* x9296 */ /* x9295 */ /* x9298 */ /* x9297 */ /* x9300 */ /* x9299 */ /* x9302 */ /* x9301 */ /* x9304 */ /* x9303 */ /* x9306 */ /* x9305 */ /* x9308 */ /* x9307 */ /* x9310 */ /* x9309 */ /* x9312 */ /* x9311 */ /* x9314 */ /* x9313 */ /* x9316 */ /* x9315 */ /* x9318 */ /* x9317 */ /* x9320 */ /* x9319 */ /* x9322 */ /* x9321 */ /* x9324 */ /* x9323 */ /* x9326 */ /* x9325 */ /* x9328 */ /* x9327 */ /* x9330 */ /* x9329 */ /* x9332 */ /* x9331 */ /* x9334 */ /* x9333 */ /* x9336 */ /* x9335 */ /* x9338 */ /* x9337 */ /* x9340 */ /* x9339 */ /* x9342 */ /* x9341 */ /* x9344 */ /* x9343 */ /* x9346 */ /* x9345 */ /* x9348 */ /* x9347 */ /* x9350 */ /* x9349 */ /* x9352 */ /* x9351 */ /* x9354 */ /* x9353 */ /* x9356 */ /* x9355 */ /* x9358 */ /* x9357 */ /* x9360 */ /* x9359 */ /* x9362 */ /* x9361 */ /* x9364 */ /* x9363 */ /* x9366 */ /* x9365 */ /* x9368 */ /* x9367 */ /* x9370 */ /* x9369 */ /* x9372 */ /* x9371 */ /* x9374 */ /* x9373 */ /* x9376 */ /* x9375 */ /* x9378 */ /* x9377 */ /* x9380 */ /* x9379 */ /* x9382 */ /* x9381 */ /* x9384 */ /* x9383 */ /* x9386 */ /* x9385 */ /* x9388 */ /* x9387 */ /* x9390 */ /* x9389 */ /* x9392 */ /* x9391 */ /* x9394 */ /* x9393 */ /* x9396 */ /* x9395 */ /* x9398 */ /* x9397 */ /* x9400 */ /* x9399 */ /* x9402 */ /* x9401 */ /* x9404 */ /* x9403 */ /* x9406 */ /* x9405 */ /* x9408 */ /* x9407 */ /* x9410 */ /* x9409 */ /* x9412 */ /* x9411 */ /* x9414 */ /* x9413 */ /* x9416 */ /* x9415 */ /* x9418 */ /* x9417 */ /* x9420 */ /* x9419 */ /* x9422 */ /* x9421 */ /* x9424 */ /* x9423 */ /* x9426 */ /* x9425 */ /* x9428 */ /* x9427 */ /* x9430 */ /* x9429 */ /* x9432 */ /* x9431 */ /* x9434 */ /* x9433 */ /* x9436 */ /* x9435 */ /* x9438 */ /* x9437 */ /* x9440 */ /* x9439 */ /* x9442 */ /* x9441 */ /* x9444 */ /* x9443 */ /* x9446 */ /* x9445 */ /* x9448 */ /* x9447 */ /* x9450 */ /* x9449 */ /* x9452 */ /* x9451 */ /* x9454 */ /* x9453 */ /* x9456 */ /* x9455 */ /* x9458 */ /* x9457 */ /* x9460 */ /* x9459 */ /* x9462 */ /* x9461 */ /* x9464 */ /* x9463 */ /* x9466 */ /* x9465 */ /* x9468 */ /* x9467 */ /* x9470 */ /* x9469 */ /* x9472 */ /* x9471 */ /* x9474 */ /* x9473 */ /* x9476 */ /* x9475 */ /* x9478 */ /* x9477 */ /* x9480 */ /* x9479 */ /* x9482 */ /* x9481 */ /* x9484 */ /* x9483 */ /* x9486 */ /* x9485 */ /* x9488 */ /* x9487 */ /* x9490 */ /* x9489 */ /* x9492 */ /* x9491 */ /* x9494 */ /* x9493 */ /* x9496 */ /* x9495 */ /* x9498 */ /* x9497 */ /* x9500 */ /* x9499 */ /* x9502 */ /* x9501 */ /* x9504 */ /* x9503 */ /* x9506 */ /* x9505 */ /* x9508 */ /* x9507 */ /* x9510 */ /* x9509 */ /* x9512 */ /* x9511 */ /* x9514 */ /* x9513 */ /* x9516 */ /* x9515 */ /* x9518 */ /* x9517 */ /* x9520 */ /* x9519 */ /* x9522 */ /* x9521 */ /* x9524 */ /* x9523 */ /* x9526 */ /* x9525 */ /* x9528 */ /* x9527 */ /* x9530 */ /* x9529 */ /* x9532 */ /* x9531 */ /* x9534 */ /* x9533 */ /* x9536 */ /* x9535 */ /* x9538 */ /* x9537 */ /* x9540 */ /* x9539 */ /* x9542 */ /* x9541 */ /* x9544 */ /* x9543 */ /* x9546 */ /* x9545 */ /* x9548 */ /* x9547 */ /* x9550 */ /* x9549 */ /* x9552 */ /* x9551 */ /* x9554 */ /* x9553 */ /* x9556 */ /* x9555 */ /* x9558 */ /* x9557 */ /* x9560 */ /* x9559 */ /* x9562 */ /* x9561 */ /* x9564 */ /* x9563 */ /* x9566 */ /* x9565 */ /* x9568 */ /* x9567 */ /* x9570 */ /* x9569 */ /* x9572 */ /* x9571 */ /* x9574 */ /* x9573 */ /* x9576 */ /* x9575 */ /* x9578 */ /* x9577 */ /* x9580 */ /* x9579 */ /* x9582 */ /* x9581 */ /* x9584 */ /* x9583 */ /* x9586 */ /* x9585 */ /* x9588 */ /* x9587 */ /* x9590 */ /* x9589 */ /* x9592 */ /* x9591 */ /* x9594 */ /* x9593 */ /* x9596 */ /* x9595 */ /* x9598 */ /* x9597 */ /* x9600 */ /* x9599 */ /* x9602 */ /* x9601 */ /* x9604 */ /* x9603 */ /* x9606 */ /* x9605 */ /* x9608 */ /* x9607 */ /* x9610 */ /* x9609 */ /* x9612 */ /* x9611 */ /* x9614 */ /* x9613 */ /* x9616 */ /* x9615 */ /* x9618 */ /* x9617 */ /* x9620 */ /* x9619 */ /* x9622 */ /* x9621 */ /* x9624 */ /* x9623 */ /* x9626 */ /* x9625 */ /* x9628 */ /* x9627 */ /* x9630 */ /* x9629 */ /* x9632 */ /* x9631 */ /* x9634 */ /* x9633 */ /* x9636 */ /* x9635 */ /* x9638 */ /* x9637 */ /* x9640 */ /* x9639 */ /* x9642 */ /* x9641 */ /* x9644 */ /* x9643 */ /* x9646 */ /* x9645 */ /* x9648 */ /* x9647 */ /* x9650 */ /* x9649 */ /* x9652 */ /* x9651 */ /* x9654 */ /* x9653 */ /* x9656 */ /* x9655 */ /* x9658 */ /* x9657 */ /* x9660 */ /* x9659 */ /* x9662 */ /* x9661 */ /* x9664 */ /* x9663 */ /* x9666 */ /* x9665 */ /* x9668 */ /* x9667 */ /* x9670 */ /* x9669 */ /* x9672 */ /* x9671 */ /* x9674 */ /* x9673 */ /* x9676 */ /* x9675 */ /* x9678 */ /* x9677 */ /* x9680 */ /* x9679 */ /* x9682 */ /* x9681 */ /* x9684 */ /* x9683 */ /* x9686 */ /* x9685 */ /* x9688 */ /* x9687 */ /* x9690 */ /* x9689 */ /* x9692 */ /* x9691 */ /* x9694 */ /* x9693 */ /* x9696 */ /* x9695 */ /* x9698 */ /* x9697 */ /* x9700 */ /* x9699 */ /* x9702 */ /* x9701 */ /* x9704 */ /* x9703 */ /* x9706 */ /* x9705 */ /* x9708 */ /* x9707 */ /* x9710 */ /* x9709 */ /* x9712 */ /* x9711 */ /* x9714 */ /* x9713 */ /* x9716 */ /* x9715 */ /* x9718 */ /* x9717 */ /* x9720 */ /* x9719 */ /* x9722 */ /* x9721 */ /* x9724 */ /* x9723 */ /* x9726 */ /* x9725 */ /* x9728 */ /* x9727 */ /* x9730 */ /* x9729 */ /* x9732 */ /* x9731 */ /* x9734 */ /* x9733 */ /* x9736 */ /* x9735 */ /* x9738 */ /* x9737 */ /* x9740 */ /* x9739 */ /* x9742 */ /* x9741 */ /* x9744 */ /* x9743 */ /* x9746 */ /* x9745 */ /* x9748 */ /* x9747 */ /* x9750 */ /* x9749 */ /* x9752 */ /* x9751 */ /* x9754 */ /* x9753 */ /* x9756 */ /* x9755 */ /* x9758 */ /* x9757 */ /* x9760 */ /* x9759 */ /* x9762 */ /* x9761 */ /* x9764 */ /* x9763 */ /* x9766 */ /* x9765 */ /* x9768 */ /* x9767 */ /* x9770 */ /* x9769 */ /* x9772 */ /* x9771 */ /* x9774 */ /* x9773 */ /* x9776 */ /* x9775 */ /* x9778 */ /* x9777 */ /* x9780 */ /* x9779 */ /* x9782 */ /* x9781 */ /* x9784 */ /* x9783 */ /* x9786 */ /* x9785 */ /* x9788 */ /* x9787 */ /* x9790 */ /* x9789 */ /* x9792 */ /* x9791 */ /* x9794 */ /* x9793 */ /* x9796 */ /* x9795 */ /* x9798 */ /* x9797 */ /* x9800 */ /* x9799 */ /* x9802 */ /* x9801 */ /* x9804 */ /* x9803 */ /* x9806 */ /* x9805 */ /* x9808 */ /* x9807 */ /* x9810 */ /* x9809 */ /* x9812 */ /* x9811 */ /* x9814 */ /* x9813 */ /* x9816 */ /* x9815 */ /* x9818 */ /* x9817 */ /* x9820 */ /* x9819 */ /* x9822 */ /* x9821 */ /* x9824 */ /* x9823 */ /* x9826 */ /* x9825 */ /* x9828 */ /* x9827 */ /* x9830 */ /* x9829 */ /* x9832 */ /* x9831 */ /* x9834 */ /* x9833 */ /* x9836 */ /* x9835 */ /* x9838 */ /* x9837 */ /* x9840 */ /* x9839 */ /* x9842 */ /* x9841 */ /* x9844 */ /* x9843 */ /* x9846 */ /* x9845 */ /* x9848 */ /* x9847 */ /* x9850 */ /* x9849 */ /* x9852 */ /* x9851 */ /* x9854 */ /* x9853 */ /* x9856 */ /* x9855 */ /* x9858 */ /* x9857 */ /* x9860 */ /* x9859 */ /* x9862 */ /* x9861 */ /* x9864 */ /* x9863 */ /* x9866 */ /* x9865 */ /* x9868 */ /* x9867 */ /* x9870 */ /* x9869 */ /* x9872 */ /* x9871 */ /* x9874 */ /* x9873 */ /* x9876 */ /* x9875 */ /* x9878 */ /* x9877 */ /* x9880 */ /* x9879 */ /* x9882 */ /* x9881 */ /* x9884 */ /* x9883 */ /* x9886 */ /* x9885 */ /* x9888 */ /* x9887 */ /* x9890 */ /* x9889 */ /* x9892 */ /* x9891 */ /* x9894 */ /* x9893 */ /* x9896 */ /* x9895 */ /* x9898 */ /* x9897 */ /* x9900 */ /* x9899 */ /* x9902 */ /* x9901 */ /* x9904 */ /* x9903 */ /* x9906 */ /* x9905 */ /* x9908 */ /* x9907 */ /* x9910 */ /* x9909 */ /* x9912 */ /* x9911 */ /* x9914 */ /* x9913 */ /* x9916 */ /* x9915 */ /* x9918 */ /* x9917 */ /* x9920 */ /* x9919 */ /* x9922 */ /* x9921 */ /* x9924 */ /* x9923 */ /* x9926 */ /* x9925 */ /* x9928 */ /* x9927 */ /* x9930 */ /* x9929 */ /* x9932 */ /* x9931 */ /* x9934 */ /* x9933 */ /* x9936 */ /* x9935 */ /* x9938 */ /* x9937 */ /* x9940 */ /* x9939 */ /* x9942 */ /* x9941 */ /* x9944 */ /* x9943 */ /* x9946 */ /* x9945 */ /* x9948 */ /* x9947 */ /* x9950 */ /* x9949 */ /* x9952 */ /* x9951 */ /* x9954 */ /* x9953 */ /* x9956 */ /* x9955 */ /* x9958 */ /* x9957 */ /* x9960 */ /* x9959 */ /* x9962 */ /* x9961 */ /* x9964 */ /* x9963 */ /* x9966 */ /* x9965 */ /* x9968 */ /* x9967 */ /* x9970 */ /* x9969 */ /* x9972 */ /* x9971 */ /* x9974 */ /* x9973 */ /* x9976 */ /* x9975 */ /* x9978 */ /* x9977 */ /* x9980 */ /* x9979 */ /* x9982 */ /* x9981 */ /* x9984 */ /* x9983 */ /* x9986 */ /* x9985 */ /* x9988 */ /* x9987 */ /* x9990 */ /* x9989 */ /* x9992 */ /* x9991 */ /* x9994 */ /* x9993 */ /* x9996 */ /* x9995 */ /* x9998 */ /* x9997 */ /* x10000 */ /* x9999 */ /* x10002 */ /* x10001 */ /* x10004 */ /* x10003 */ /* x10006 */ /* x10005 */ /* x10008 */ /* x10007 */ /* x10010 */ /* x10009 */ /* x10012 */ /* x10011 */ /* x10014 */ /* x10013 */ /* x10016 */ /* x10015 */ /* x10018 */ /* x10017 */ /* x10020 */ /* x10019 */ /* x10022 */ /* x10021 */ /* x10024 */ /* x10023 */ /* x10026 */ /* x10025 */ /* x10028 */ /* x10027 */ /* x10030 */ /* x10029 */ /* x10032 */ /* x10031 */ /* x10034 */ /* x10033 */ /* x10036 */ /* x10035 */ /* x10038 */ /* x10037 */ /* x10040 */ /* x10039 */ /* x10042 */ /* x10041 */ /* x10044 */ /* x10043 */ /* x10046 */ /* x10045 */ /* x10048 */ /* x10047 */ /* x10050 */ /* x10049 */ /* x10052 */ /* x10051 */ /* x10054 */ /* x10053 */ /* x10056 */ /* x10055 */ /* x10058 */ /* x10057 */ /* x10060 */ /* x10059 */ /* x10062 */ /* x10061 */ /* x10064 */ /* x10063 */ /* x10066 */ /* x10065 */ /* x10068 */ /* x10067 */ /* x10070 */ /* x10069 */ /* x10072 */ /* x10071 */ /* x10074 */ /* x10073 */ /* x10076 */ /* x10075 */ /* x10078 */ /* x10077 */ /* x10080 */ /* x10079 */ /* x10082 */ /* x10081 */ /* x10084 */ /* x10083 */ /* x10086 */ /* x10085 */ /* x10088 */ /* x10087 */ /* x10090 */ /* x10089 */ /* x10092 */ /* x10091 */ /* x10094 */ /* x10093 */ /* x10096 */ /* x10095 */ /* x10098 */ /* x10097 */ /* x10100 */ /* x10099 */ /* x10102 */ /* x10101 */ /* x10104 */ /* x10103 */ /* x10106 */ /* x10105 */ /* x10108 */ /* x10107 */ /* x10110 */ /* x10109 */ /* x10112 */ /* x10111 */ /* x10114 */ /* x10113 */ /* x10116 */ /* x10115 */ /* x10118 */ /* x10117 */ /* x10120 */ /* x10119 */ /* x10122 */ /* x10121 */ /* x10124 */ /* x10123 */ /* x10126 */ /* x10125 */ /* x10128 */ /* x10127 */ /* x10130 */ /* x10129 */ /* x10132 */ /* x10131 */ /* x10134 */ /* x10133 */ /* x10136 */ /* x10135 */ /* x10138 */ /* x10137 */ /* x10140 */ /* x10139 */ /* x10142 */ /* x10141 */ /* x10144 */ /* x10143 */ /* x10146 */ /* x10145 */ /* x10148 */ /* x10147 */ /* x10150 */ /* x10149 */ /* x10152 */ /* x10151 */ /* x10154 */ /* x10153 */ /* x10156 */ /* x10155 */ /* x10158 */ /* x10157 */ /* x10160 */ /* x10159 */ /* x10162 */ /* x10161 */ /* x10164 */ /* x10163 */ /* x10166 */ /* x10165 */ /* x10168 */ /* x10167 */ /* x10170 */ /* x10169 */ /* x10172 */ /* x10171 */ /* x10174 */ /* x10173 */ /* x10176 */ /* x10175 */ /* x10178 */ /* x10177 */ /* x10180 */ /* x10179 */ /* x10182 */ /* x10181 */ /* x10184 */ /* x10183 */ /* x10186 */ /* x10185 */ /* x10188 */ /* x10187 */ /* x10190 */ /* x10189 */ /* x10192 */ /* x10191 */ /* x10194 */ /* x10193 */ /* x10196 */ /* x10195 */ /* x10198 */ /* x10197 */ /* x10200 */ /* x10199 */ /* x10202 */ /* x10201 */ /* x10204 */ /* x10203 */ /* x10206 */ /* x10205 */ /* x10208 */ /* x10207 */ /* x10210 */ /* x10209 */ /* x10212 */ /* x10211 */ /* x10214 */ /* x10213 */ /* x10216 */ /* x10215 */ /* x10218 */ /* x10217 */ /* x10220 */ /* x10219 */ /* x10222 */ /* x10221 */ /* x10224 */ /* x10223 */ /* x10226 */ /* x10225 */ /* x10228 */ /* x10227 */ /* x10230 */ /* x10229 */ /* x10232 */ /* x10231 */ /* x10234 */ /* x10233 */ /* x10236 */ /* x10235 */ /* x10238 */ /* x10237 */ /* x10240 */ /* x10239 */ /* x10242 */ /* x10241 */ /* x10244 */ /* x10243 */ /* x10246 */ /* x10245 */ /* x10248 */ /* x10247 */ /* x10250 */ /* x10249 */ /* x10252 */ /* x10251 */ /* x10254 */ /* x10253 */ /* x10256 */ /* x10255 */ /* x10258 */ /* x10257 */ /* x10260 */ /* x10259 */ /* x10262 */ /* x10261 */ /* x10264 */ /* x10263 */ /* x10266 */ /* x10265 */ /* x10268 */ /* x10267 */ /* x10270 */ /* x10269 */ /* x10272 */ /* x10271 */ /* x10274 */ /* x10273 */ /* x10276 */ /* x10275 */ /* x10278 */ /* x10277 */ /* x10280 */ /* x10279 */ /* x10282 */ /* x10281 */ /* x10284 */ /* x10283 */ /* x10286 */ /* x10285 */ /* x10288 */ /* x10287 */ /* x10290 */ /* x10289 */ /* x10292 */ /* x10291 */ /* x10294 */ /* x10293 */ /* x10296 */ /* x10295 */ /* x10298 */ /* x10297 */ /* x10300 */ /* x10299 */ /* x10302 */ /* x10301 */ /* x10304 */ /* x10303 */ /* x10306 */ /* x10305 */ /* x10308 */ /* x10307 */ /* x10310 */ /* x10309 */ /* x10312 */ /* x10311 */ /* x10314 */ /* x10313 */ /* x10316 */ /* x10315 */ /* x10318 */ /* x10317 */ /* x10320 */ /* x10319 */ /* x10322 */ /* x10321 */ /* x10324 */ /* x10323 */ /* x10326 */ /* x10325 */ /* x10328 */ /* x10327 */ /* x10330 */ /* x10329 */ /* x10332 */ /* x10331 */ /* x10334 */ /* x10333 */ /* x10336 */ /* x10335 */ /* x10338 */ /* x10337 */ /* x10340 */ /* x10339 */ /* x10342 */ /* x10341 */ /* x10344 */ /* x10343 */ /* x10346 */ /* x10345 */ /* x10348 */ /* x10347 */ /* x10350 */ /* x10349 */ /* x10352 */ /* x10351 */ /* x10354 */ /* x10353 */ /* x10356 */ /* x10355 */ /* x10358 */ /* x10357 */ /* x10360 */ /* x10359 */ /* x10362 */ /* x10361 */ /* x10364 */ /* x10363 */ /* x10366 */ /* x10365 */ /* x10368 */ /* x10367 */ /* x10370 */ /* x10369 */ /* x10372 */ /* x10371 */ /* x10374 */ /* x10373 */ /* x10376 */ /* x10375 */ /* x10378 */ /* x10377 */ /* x10380 */ /* x10379 */ /* x10382 */ /* x10381 */ /* x10384 */ /* x10383 */ /* x10386 */ /* x10385 */ /* x10388 */ /* x10387 */ /* x10390 */ /* x10389 */ /* x10392 */ /* x10391 */ /* x10394 */ /* x10393 */ /* x10396 */ /* x10395 */ /* x10398 */ /* x10397 */ /* x10400 */ /* x10399 */ /* x10402 */ /* x10401 */ /* x10404 */ /* x10403 */ /* x10406 */ /* x10405 */ /* x10408 */ /* x10407 */ /* x10410 */ /* x10409 */ /* x10412 */ /* x10411 */ /* x10414 */ /* x10413 */ /* x10416 */ /* x10415 */ /* x10418 */ /* x10417 */ /* x10420 */ /* x10419 */ /* x10422 */ /* x10421 */ /* x10424 */ /* x10423 */ /* x10426 */ /* x10425 */ /* x10428 */ /* x10427 */ /* x10430 */ /* x10429 */ /* x10432 */ /* x10431 */ /* x10434 */ /* x10433 */ /* x10436 */ /* x10435 */ /* x10438 */ /* x10437 */ /* x10440 */ /* x10439 */ /* x10442 */ /* x10441 */ /* x10444 */ /* x10443 */ /* x10446 */ /* x10445 */ /* x10448 */ /* x10447 */ /* x10450 */ /* x10449 */ /* x10452 */ /* x10451 */ /* x10454 */ /* x10453 */ /* x10456 */ /* x10455 */ /* x10458 */ /* x10457 */ /* x10460 */ /* x10459 */ /* x10462 */ /* x10461 */ /* x10464 */ /* x10463 */ /* x10466 */ /* x10465 */ /* x10468 */ /* x10467 */ /* x10470 */ /* x10469 */ /* x10472 */ /* x10471 */ /* x10474 */ /* x10473 */ /* x10476 */ /* x10475 */ /* x10478 */ /* x10477 */ /* x10480 */ /* x10479 */ /* x10482 */ /* x10481 */ /* x10484 */ /* x10483 */ /* x10486 */ /* x10485 */ /* x10488 */ /* x10487 */ /* x10490 */ /* x10489 */ /* x10492 */ /* x10491 */ /* x10494 */ /* x10493 */ /* x10496 */ /* x10495 */ /* x10498 */ /* x10497 */ /* x10500 */ /* x10499 */ /* x10502 */ /* x10501 */ /* x10504 */ /* x10503 */ /* x10506 */ /* x10505 */ /* x10508 */ /* x10507 */ /* x10510 */ /* x10509 */ /* x10512 */ /* x10511 */ /* x10514 */ /* x10513 */ /* x10516 */ /* x10515 */ /* x10518 */ /* x10517 */ /* x10520 */ /* x10519 */ /* x10522 */ /* x10521 */ /* x10524 */ /* x10523 */ /* x10526 */ /* x10525 */ /* x10528 */ /* x10527 */ /* x10530 */ /* x10529 */ /* x10532 */ /* x10531 */ /* x10534 */ /* x10533 */ /* x10536 */ /* x10535 */ /* x10538 */ /* x10537 */ /* x10540 */ /* x10539 */ /* x10542 */ /* x10541 */ /* x10544 */ /* x10543 */ /* x10546 */ /* x10545 */ /* x10548 */ /* x10547 */ /* x10550 */ /* x10549 */ /* x10552 */ /* x10551 */ /* x10554 */ /* x10553 */ /* x10556 */ /* x10555 */ /* x10558 */ /* x10557 */ /* x10560 */ /* x10559 */ /* x10562 */ /* x10561 */ /* x10564 */ /* x10563 */ /* x10566 */ /* x10565 */ /* x10568 */ /* x10567 */ /* x10570 */ /* x10569 */ /* x10572 */ /* x10571 */ /* x10574 */ /* x10573 */ /* x10576 */ /* x10575 */ /* x10578 */ /* x10577 */ /* x10580 */ /* x10579 */ /* x10582 */ /* x10581 */ /* x10584 */ /* x10583 */ /* x10586 */ /* x10585 */ /* x10588 */ /* x10587 */ /* x10590 */ /* x10589 */ /* x10592 */ /* x10591 */ /* x10594 */ /* x10593 */ /* x10596 */ /* x10595 */ /* x10598 */ /* x10597 */ /* x10600 */ /* x10599 */ /* x10602 */ /* x10601 */ /* x10604 */ /* x10603 */ /* x10606 */ /* x10605 */ /* x10608 */ /* x10607 */ /* x10610 */ /* x10609 */ /* x10612 */ /* x10611 */ /* x10614 */ /* x10613 */ /* x10616 */ /* x10615 */ /* x10618 */ /* x10617 */ /* x10620 */ /* x10619 */ /* x10622 */ /* x10621 */ /* x10624 */ /* x10623 */ /* x10626 */ /* x10625 */ /* x10628 */ /* x10627 */ /* x10630 */ /* x10629 */ /* x10632 */ /* x10631 */ /* x10634 */ /* x10633 */ /* x10636 */ /* x10635 */ /* x10638 */ /* x10637 */ /* x10640 */ /* x10639 */ /* x10642 */ /* x10641 */ /* x10644 */ /* x10643 */ /* x10646 */ /* x10645 */ /* x10648 */ /* x10647 */ /* x10650 */ /* x10649 */ /* x10652 */ /* x10651 */ /* x10654 */ /* x10653 */ /* x10656 */ /* x10655 */ /* x10658 */ /* x10657 */ /* x10660 */ /* x10659 */ /* x10662 */ /* x10661 */ /* x10664 */ /* x10663 */ /* x10666 */ /* x10665 */ /* x10668 */ /* x10667 */ /* x10670 */ /* x10669 */ /* x10672 */ /* x10671 */ /* x10674 */ /* x10673 */ /* x10676 */ /* x10675 */ /* x10678 */ /* x10677 */ /* x10680 */ /* x10679 */ /* x10682 */ /* x10681 */ /* x10684 */ /* x10683 */ /* x10686 */ /* x10685 */ /* x10688 */ /* x10687 */ /* x10690 */ /* x10689 */ /* x10692 */ /* x10691 */ /* x10694 */ /* x10693 */ /* x10696 */ /* x10695 */ /* x10698 */ /* x10697 */ /* x10700 */ /* x10699 */ /* x10702 */ /* x10701 */ /* x10704 */ /* x10703 */ /* x10706 */ /* x10705 */ /* x10708 */ /* x10707 */ /* x10710 */ /* x10709 */ /* x10712 */ /* x10711 */ /* x10714 */ /* x10713 */ /* x10716 */ /* x10715 */ /* x10718 */ /* x10717 */ /* x10720 */ /* x10719 */ /* x10722 */ /* x10721 */ /* x10724 */ /* x10723 */ /* x10726 */ /* x10725 */ /* x10728 */ /* x10727 */ /* x10730 */ /* x10729 */ /* x10732 */ /* x10731 */ /* x10734 */ /* x10733 */ /* x10736 */ /* x10735 */ /* x10738 */ /* x10737 */ /* x10740 */ /* x10739 */ /* x10742 */ /* x10741 */ /* x10744 */ /* x10743 */ /* x10746 */ /* x10745 */ /* x10748 */ /* x10747 */ /* x10750 */ /* x10749 */ /* x10752 */ /* x10751 */ /* x10754 */ /* x10753 */ /* x10756 */ /* x10755 */ /* x10758 */ /* x10757 */ /* x10760 */ /* x10759 */ /* x10762 */ /* x10761 */ /* x10764 */ /* x10763 */ /* x10766 */ /* x10765 */ /* x10768 */ /* x10767 */ /* x10770 */ /* x10769 */ /* x10772 */ /* x10771 */ /* x10774 */ /* x10773 */ /* x10776 */ /* x10775 */ /* x10778 */ /* x10777 */ /* x10780 */ /* x10779 */ /* x10782 */ /* x10781 */ /* x10784 */ /* x10783 */ /* x10786 */ /* x10785 */ /* x10788 */ /* x10787 */ /* x10790 */ /* x10789 */ /* x10792 */ /* x10791 */ /* x10794 */ /* x10793 */ /* x10796 */ /* x10795 */ /* x10798 */ /* x10797 */ /* x10800 */ /* x10799 */ /* x10802 */ /* x10801 */ /* x10804 */ /* x10803 */ /* x10806 */ /* x10805 */ /* x10808 */ /* x10807 */ /* x10810 */ /* x10809 */ /* x10812 */ /* x10811 */ /* x10814 */ /* x10813 */ /* x10816 */ /* x10815 */ /* x10818 */ /* x10817 */ /* x10820 */ /* x10819 */ /* x10822 */ /* x10821 */ /* x10824 */ /* x10823 */ /* x10826 */ /* x10825 */ /* x10828 */ /* x10827 */ /* x10830 */ /* x10829 */ /* x10832 */ /* x10831 */ /* x10834 */ /* x10833 */ /* x10836 */ /* x10835 */ /* x10838 */ /* x10837 */ /* x10840 */ /* x10839 */ /* x10842 */ /* x10841 */ /* x10844 */ /* x10843 */ /* x10846 */ /* x10845 */ /* x10848 */ /* x10847 */ /* x10850 */ /* x10849 */ /* x10852 */ /* x10851 */ /* x10854 */ /* x10853 */ /* x10856 */ /* x10855 */ /* x10858 */ /* x10857 */ /* x10860 */ /* x10859 */ /* x10862 */ /* x10861 */ /* x10864 */ /* x10863 */ /* x10866 */ /* x10865 */ /* x10868 */ /* x10867 */ /* x10870 */ /* x10869 */ /* x10872 */ /* x10871 */ /* x10874 */ /* x10873 */ /* x10876 */ /* x10875 */ /* x10878 */ /* x10877 */ /* x10880 */ /* x10879 */ /* x10882 */ /* x10881 */ /* x10884 */ /* x10883 */ /* x10886 */ /* x10885 */ /* x10888 */ /* x10887 */ /* x10890 */ /* x10889 */ /* x10892 */ /* x10891 */ /* x10894 */ /* x10893 */ /* x10896 */ /* x10895 */ /* x10898 */ /* x10897 */ /* x10900 */ /* x10899 */ /* x10902 */ /* x10901 */ /* x10904 */ /* x10903 */ /* x10906 */ /* x10905 */ /* x10908 */ /* x10907 */ /* x10910 */ /* x10909 */ /* x10912 */ /* x10911 */ /* x10914 */ /* x10913 */ /* x10916 */ /* x10915 */ /* x10918 */ /* x10917 */ /* x10920 */ /* x10919 */ /* x10922 */ /* x10921 */ /* x10924 */ /* x10923 */ /* x10926 */ /* x10925 */ /* x10928 */ /* x10927 */ /* x10930 */ /* x10929 */ /* x10932 */ /* x10931 */ /* x10934 */ /* x10933 */ /* x10936 */ /* x10935 */ /* x10938 */ /* x10937 */ /* x10940 */ /* x10939 */ /* x10942 */ /* x10941 */ /* x10944 */ /* x10943 */ /* x10946 */ /* x10945 */ /* x10948 */ /* x10947 */ /* x10950 */ /* x10949 */ /* x10952 */ /* x10951 */ /* x10954 */ /* x10953 */ /* x10956 */ /* x10955 */ /* x10958 */ /* x10957 */ /* x10960 */ /* x10959 */ /* x10962 */ /* x10961 */ /* x10964 */ /* x10963 */ /* x10966 */ /* x10965 */ /* x10968 */ /* x10967 */ /* x10970 */ /* x10969 */ /* x10972 */ /* x10971 */ /* x10974 */ /* x10973 */ /* x10976 */ /* x10975 */ /* x10978 */ /* x10977 */ /* x10980 */ /* x10979 */ /* x10982 */ /* x10981 */ /* x10984 */ /* x10983 */ /* x10986 */ /* x10985 */ /* x10988 */ /* x10987 */ /* x10990 */ /* x10989 */ /* x10992 */ /* x10991 */ /* x10994 */ /* x10993 */ /* x10996 */ /* x10995 */ /* x10998 */ /* x10997 */ /* x11000 */ /* x10999 */ /* x11002 */ /* x11001 */ /* x11004 */ /* x11003 */ /* x11006 */ /* x11005 */ /* x11008 */ /* x11007 */ /* x11010 */ /* x11009 */ /* x11012 */ /* x11011 */ /* x11014 */ /* x11013 */ /* x11016 */ /* x11015 */ /* x11018 */ /* x11017 */ /* x11020 */ /* x11019 */ /* x11022 */ /* x11021 */ /* x11024 */ /* x11023 */ /* x11026 */ /* x11025 */ /* x11028 */ /* x11027 */ /* x11030 */ /* x11029 */ /* x11032 */ /* x11031 */ /* x11034 */ /* x11033 */ /* x11036 */ /* x11035 */ /* x11038 */ /* x11037 */ /* x11040 */ /* x11039 */ /* x11042 */ /* x11041 */ /* x11044 */ /* x11043 */ /* x11046 */ /* x11045 */ /* x11048 */ /* x11047 */ /* x11050 */ /* x11049 */ /* x11052 */ /* x11051 */ /* x11054 */ /* x11053 */ /* x11056 */ /* x11055 */ /* x11058 */ /* x11057 */ /* x11060 */ /* x11059 */ /* x11062 */ /* x11061 */ /* x11064 */ /* x11063 */ /* x11066 */ /* x11065 */ /* x11068 */ /* x11067 */ /* x11070 */ /* x11069 */ /* x11072 */ /* x11071 */ /* x11074 */ /* x11073 */ /* x11076 */ /* x11075 */ /* x11078 */ /* x11077 */ /* x11080 */ /* x11079 */ /* x11082 */ /* x11081 */ /* x11084 */ /* x11083 */ /* x11086 */ /* x11085 */ /* x11088 */ /* x11087 */ /* x11090 */ /* x11089 */ /* x11092 */ /* x11091 */ /* x11094 */ /* x11093 */ /* x11096 */ /* x11095 */ /* x11098 */ /* x11097 */ /* x11100 */ /* x11099 */ /* x11102 */ /* x11101 */ /* x11104 */ /* x11103 */ /* x11106 */ /* x11105 */ /* x11108 */ /* x11107 */ /* x11110 */ /* x11109 */ /* x11112 */ /* x11111 */ /* x11114 */ /* x11113 */ /* x11116 */ /* x11115 */ /* x11118 */ /* x11117 */ /* x11120 */ /* x11119 */ /* x11122 */ /* x11121 */ /* x11124 */ /* x11123 */ /* x11126 */ /* x11125 */ /* x11128 */ /* x11127 */ /* x11130 */ /* x11129 */ /* x11132 */ /* x11131 */ /* x11134 */ /* x11133 */ /* x11136 */ /* x11135 */ /* x11138 */ /* x11137 */ /* x11140 */ /* x11139 */ /* x11142 */ /* x11141 */ /* x11144 */ /* x11143 */ /* x11146 */ /* x11145 */ /* x11148 */ /* x11147 */ /* x11150 */ /* x11149 */ /* x11152 */ /* x11151 */ /* x11154 */ /* x11153 */ /* x11156 */ /* x11155 */ /* x11158 */ /* x11157 */ /* x11160 */ /* x11159 */ /* x11162 */ /* x11161 */ /* x11164 */ /* x11163 */ /* x11166 */ /* x11165 */ /* x11168 */ /* x11167 */ /* x11170 */ /* x11169 */ /* x11172 */ /* x11171 */ /* x11174 */ /* x11173 */ /* x11176 */ /* x11175 */ /* x11178 */ /* x11177 */ /* x11180 */ /* x11179 */ /* x11182 */ /* x11181 */ /* x11184 */ /* x11183 */ /* x11186 */ /* x11185 */ /* x11188 */ /* x11187 */ /* x11190 */ /* x11189 */ /* x11192 */ /* x11191 */ /* x11194 */ /* x11193 */ /* x11196 */ /* x11195 */ /* x11198 */ /* x11197 */ /* x11200 */ /* x11199 */ /* x11202 */ /* x11201 */ /* x11204 */ /* x11203 */ /* x11206 */ /* x11205 */ /* x11208 */ /* x11207 */ /* x11210 */ /* x11209 */ /* x11212 */ /* x11211 */ /* x11214 */ /* x11213 */ /* x11216 */ /* x11215 */ /* x11218 */ /* x11217 */ /* x11220 */ /* x11219 */ /* x11222 */ /* x11221 */ /* x11224 */ /* x11223 */ /* x11226 */ /* x11225 */ /* x11228 */ /* x11227 */ /* x11230 */ /* x11229 */ /* x11232 */ /* x11231 */ /* x11234 */ /* x11233 */ /* x11236 */ /* x11235 */ /* x11238 */ /* x11237 */ /* x11240 */ /* x11239 */ /* x11242 */ /* x11241 */ /* x11244 */ /* x11243 */ /* x11246 */ /* x11245 */ /* x11248 */ /* x11247 */ /* x11250 */ /* x11249 */ /* x11252 */ /* x11251 */ /* x11254 */ /* x11253 */ /* x11256 */ /* x11255 */ /* x11258 */ /* x11257 */ /* x11260 */ /* x11259 */ /* x11262 */ /* x11261 */ /* x11264 */ /* x11263 */ /* x11266 */ /* x11265 */ /* x11268 */ /* x11267 */ /* x11270 */ /* x11269 */ /* x11272 */ /* x11271 */ /* x11274 */ /* x11273 */ /* x11276 */ /* x11275 */ /* x11278 */ /* x11277 */ /* x11280 */ /* x11279 */ /* x11282 */ /* x11281 */ /* x11284 */ /* x11283 */ /* x11286 */ /* x11285 */ /* x11288 */ /* x11287 */ /* x11290 */ /* x11289 */ /* x11292 */ /* x11291 */ /* x11294 */ /* x11293 */ /* x11296 */ /* x11295 */ /* x11298 */ /* x11297 */ /* x11300 */ /* x11299 */ /* x11302 */ /* x11301 */ /* x11304 */ /* x11303 */ /* x11306 */ /* x11305 */ /* x11308 */ /* x11307 */ /* x11310 */ /* x11309 */ /* x11312 */ /* x11311 */ /* x11314 */ /* x11313 */ /* x11316 */ /* x11315 */ /* x11318 */ /* x11317 */ /* x11320 */ /* x11319 */ /* x11322 */ /* x11321 */ /* x11324 */ /* x11323 */ /* x11326 */ /* x11325 */ /* x11328 */ /* x11327 */ /* x11330 */ /* x11329 */ /* x11332 */ /* x11331 */ /* x11334 */ /* x11333 */ /* x11336 */ /* x11335 */ /* x11338 */ /* x11337 */ /* x11340 */ /* x11339 */ /* x11342 */ /* x11341 */ /* x11344 */ /* x11343 */ /* x11346 */ /* x11345 */ /* x11348 */ /* x11347 */ /* x11350 */ /* x11349 */ /* x11352 */ /* x11351 */ /* x11354 */ /* x11353 */ /* x11356 */ /* x11355 */ /* x11358 */ /* x11357 */ /* x11360 */ /* x11359 */ /* x11362 */ /* x11361 */ /* x11364 */ /* x11363 */ /* x11366 */ /* x11365 */ /* x11368 */ /* x11367 */ /* x11370 */ /* x11369 */ /* x11372 */ /* x11371 */ /* x11374 */ /* x11373 */ /* x11376 */ /* x11375 */ /* x11378 */ /* x11377 */ /* x11380 */ /* x11379 */ /* x11382 */ /* x11381 */ /* x11384 */ /* x11383 */ /* x11386 */ /* x11385 */ /* x11388 */ /* x11387 */ /* x11390 */ /* x11389 */ /* x11392 */ /* x11391 */ /* x11394 */ /* x11393 */ /* x11396 */ /* x11395 */ /* x11398 */ /* x11397 */ /* x11400 */ /* x11399 */ /* x11402 */ /* x11401 */ /* x11404 */ /* x11403 */ /* x11406 */ /* x11405 */ /* x11408 */ /* x11407 */ /* x11410 */ /* x11409 */ /* x11412 */ /* x11411 */ /* x11414 */ /* x11413 */ /* x11416 */ /* x11415 */ /* x11418 */ /* x11417 */ /* x11420 */ /* x11419 */ /* x11422 */ /* x11421 */ /* x11424 */ /* x11423 */ /* x11426 */ /* x11425 */ /* x11428 */ /* x11427 */ /* x11430 */ /* x11429 */ /* x11432 */ /* x11431 */ /* x11434 */ /* x11433 */ /* x11436 */ /* x11435 */ /* x11438 */ /* x11437 */ /* x11440 */ /* x11439 */ /* x11442 */ /* x11441 */ /* x11444 */ /* x11443 */ /* x11446 */ /* x11445 */ /* x11448 */ /* x11447 */ /* x11450 */ /* x11449 */ /* x11452 */ /* x11451 */ /* x11454 */ /* x11453 */ /* x11456 */ /* x11455 */ /* x11458 */ /* x11457 */ /* x11460 */ /* x11459 */ /* x11462 */ /* x11461 */ /* x11464 */ /* x11463 */ /* x11466 */ /* x11465 */ /* x11468 */ /* x11467 */ /* x11470 */ /* x11469 */ /* x11472 */ /* x11471 */ /* x11474 */ /* x11473 */ /* x11476 */ /* x11475 */ /* x11478 */ /* x11477 */ /* x11480 */ /* x11479 */ /* x11482 */ /* x11481 */ /* x11484 */ /* x11483 */ /* x11486 */ /* x11485 */ /* x11488 */ /* x11487 */ /* x11490 */ /* x11489 */ /* x11492 */ /* x11491 */ /* x11494 */ /* x11493 */ /* x11496 */ /* x11495 */ /* x11498 */ /* x11497 */ /* x11500 */ /* x11499 */ /* x11502 */ /* x11501 */ /* x11504 */ /* x11503 */ /* x11506 */ /* x11505 */ /* x11508 */ /* x11507 */ /* x11510 */ /* x11509 */ /* x11512 */ /* x11511 */ /* x11514 */ /* x11513 */ /* x11516 */ /* x11515 */ /* x11518 */ /* x11517 */ /* x11520 */ /* x11519 */ /* x11522 */ /* x11521 */ /* x11524 */ /* x11523 */ /* x11526 */ /* x11525 */ /* x11528 */ /* x11527 */ /* x11530 */ /* x11529 */ /* x11532 */ /* x11531 */ /* x11534 */ /* x11533 */ /* x11536 */ /* x11535 */ /* x11538 */ /* x11537 */ /* x11540 */ /* x11539 */ /* x11542 */ /* x11541 */ /* x11544 */ /* x11543 */ /* x11546 */ /* x11545 */ /* x11548 */ /* x11547 */ /* x11550 */ /* x11549 */ /* x11552 */ /* x11551 */ /* x11554 */ /* x11553 */ /* x11556 */ /* x11555 */ /* x11558 */ /* x11557 */ /* x11560 */ /* x11559 */ /* x11562 */ /* x11561 */ /* x11564 */ /* x11563 */ /* x11566 */ /* x11565 */ /* x11568 */ /* x11567 */ /* x11570 */ /* x11569 */ /* x11572 */ /* x11571 */ /* x11574 */ /* x11573 */ /* x11576 */ /* x11575 */ /* x11578 */ /* x11577 */ /* x11580 */ /* x11579 */ /* x11582 */ /* x11581 */ /* x11584 */ /* x11583 */ /* x11586 */ /* x11585 */ /* x11588 */ /* x11587 */ /* x11590 */ /* x11589 */ /* x11592 */ /* x11591 */ /* x11594 */ /* x11593 */ /* x11596 */ /* x11595 */ /* x11598 */ /* x11597 */ /* x11600 */ /* x11599 */ /* x11602 */ /* x11601 */ /* x11604 */ /* x11603 */ /* x11606 */ /* x11605 */ /* x11608 */ /* x11607 */ /* x11610 */ /* x11609 */ /* x11612 */ /* x11611 */ /* x11614 */ /* x11613 */ /* x11616 */ /* x11615 */ /* x11618 */ /* x11617 */ /* x11620 */ /* x11619 */ /* x11622 */ /* x11621 */ /* x11624 */ /* x11623 */ /* x11626 */ /* x11625 */ /* x11628 */ /* x11627 */ /* x11630 */ /* x11629 */ /* x11632 */ /* x11631 */ /* x11634 */ /* x11633 */ /* x11636 */ /* x11635 */ /* x11638 */ /* x11637 */ /* x11640 */ /* x11639 */ /* x11642 */ /* x11641 */ /* x11644 */ /* x11643 */ /* x11646 */ /* x11645 */ /* x11648 */ /* x11647 */ /* x11650 */ /* x11649 */ /* x11652 */ /* x11651 */ /* x11654 */ /* x11653 */ /* x11656 */ /* x11655 */ /* x11658 */ /* x11657 */ /* x11660 */ /* x11659 */ /* x11662 */ /* x11661 */ /* x11664 */ /* x11663 */ /* x11666 */ /* x11665 */ /* x11668 */ /* x11667 */ /* x11670 */ /* x11669 */ /* x11672 */ /* x11671 */ /* x11674 */ /* x11673 */ /* x11676 */ /* x11675 */ /* x11678 */ /* x11677 */ /* x11680 */ /* x11679 */ /* x11682 */ /* x11681 */ /* x11684 */ /* x11683 */ /* x11686 */ /* x11685 */ /* x11688 */ /* x11687 */ /* x11690 */ /* x11689 */ /* x11692 */ /* x11691 */ /* x11694 */ /* x11693 */ /* x11696 */ /* x11695 */ /* x11698 */ /* x11697 */ /* x11700 */ /* x11699 */ /* x11702 */ /* x11701 */ /* x11704 */ /* x11703 */ /* x11706 */ /* x11705 */ /* x11708 */ /* x11707 */ /* x11710 */ /* x11709 */ /* x11712 */ /* x11711 */ /* x11714 */ /* x11713 */ /* x11716 */ /* x11715 */ /* x11718 */ /* x11717 */ /* x11720 */ /* x11719 */ /* x11722 */ /* x11721 */ /* x11724 */ /* x11723 */ /* x11726 */ /* x11725 */ /* x11728 */ /* x11727 */ /* x11730 */ /* x11729 */ /* x11732 */ /* x11731 */ /* x11734 */ /* x11733 */ /* x11736 */ /* x11735 */ /* x11738 */ /* x11737 */ /* x11740 */ /* x11739 */ /* x11742 */ /* x11741 */ /* x11744 */ /* x11743 */ /* x11746 */ /* x11745 */ /* x11748 */ /* x11747 */ /* x11750 */ /* x11749 */ /* x11752 */ /* x11751 */ /* x11754 */ /* x11753 */ /* x11756 */ /* x11755 */ /* x11758 */ /* x11757 */ /* x11760 */ /* x11759 */ /* x11762 */ /* x11761 */ /* x11764 */ /* x11763 */ /* x11766 */ /* x11765 */ /* x11768 */ /* x11767 */ /* x11770 */ /* x11769 */ /* x11772 */ /* x11771 */ /* x11774 */ /* x11773 */ /* x11776 */ /* x11775 */ /* x11778 */ /* x11777 */ /* x11780 */ /* x11779 */ /* x11782 */ /* x11781 */ /* x11784 */ /* x11783 */ /* x11786 */ /* x11785 */ /* x11788 */ /* x11787 */ /* x11790 */ /* x11789 */ /* x11792 */ /* x11791 */ /* x11794 */ /* x11793 */ /* x11796 */ /* x11795 */ /* x11798 */ /* x11797 */ /* x11800 */ /* x11799 */ /* x11802 */ /* x11801 */ /* x11804 */ /* x11803 */ /* x11806 */ /* x11805 */ /* x11808 */ /* x11807 */ /* x11810 */ /* x11809 */ /* x11812 */ /* x11811 */ /* x11814 */ /* x11813 */ /* x11816 */ /* x11815 */ /* x11818 */ /* x11817 */ /* x11820 */ /* x11819 */ /* x11822 */ /* x11821 */ /* x11824 */ /* x11823 */ /* x11826 */ /* x11825 */ /* x11828 */ /* x11827 */ /* x11830 */ /* x11829 */ /* x11832 */ /* x11831 */ /* x11834 */ /* x11833 */ /* x11836 */ /* x11835 */ /* x11838 */ /* x11837 */ /* x11840 */ /* x11839 */ /* x11842 */ /* x11841 */ /* x11844 */ /* x11843 */ /* x11846 */ /* x11845 */ /* x11848 */ /* x11847 */ /* x11850 */ /* x11849 */ /* x11852 */ /* x11851 */ /* x11854 */ /* x11853 */ /* x11856 */ /* x11855 */ /* x11858 */ /* x11857 */ /* x11860 */ /* x11859 */ /* x11862 */ /* x11861 */ /* x11864 */ /* x11863 */ /* x11866 */ /* x11865 */ /* x11868 */ /* x11867 */ /* x11870 */ /* x11869 */ /* x11872 */ /* x11871 */ /* x11874 */ /* x11873 */ /* x11876 */ /* x11875 */ /* x11878 */ /* x11877 */ /* x11880 */ /* x11879 */ /* x11882 */ /* x11881 */ /* x11884 */ /* x11883 */ /* x11886 */ /* x11885 */ /* x11888 */ /* x11887 */ /* x11890 */ /* x11889 */ /* x11892 */ /* x11891 */ /* x11894 */ /* x11893 */ /* x11896 */ /* x11895 */ /* x11898 */ /* x11897 */ /* x11900 */ /* x11899 */ /* x11902 */ /* x11901 */ /* x11904 */ /* x11903 */ /* x11906 */ /* x11905 */ /* x11908 */ /* x11907 */ /* x11910 */ /* x11909 */ /* x11912 */ /* x11911 */ /* x11914 */ /* x11913 */ /* x11916 */ /* x11915 */ /* x11918 */ /* x11917 */ /* x11920 */ /* x11919 */ /* x11922 */ /* x11921 */ /* x11924 */ /* x11923 */ /* x11926 */ /* x11925 */ /* x11928 */ /* x11927 */ /* x11930 */ /* x11929 */ /* x11932 */ /* x11931 */ /* x11934 */ /* x11933 */ /* x11936 */ /* x11935 */ /* x11938 */ /* x11937 */ /* x11940 */ /* x11939 */ /* x11942 */ /* x11941 */ /* x11944 */ /* x11943 */ /* x11946 */ /* x11945 */ /* x11948 */ /* x11947 */ /* x11950 */ /* x11949 */ /* x11952 */ /* x11951 */ /* x11954 */ /* x11953 */ /* x11956 */ /* x11955 */ /* x11958 */ /* x11957 */ /* x11960 */ /* x11959 */ /* x11962 */ /* x11961 */ /* x11964 */ /* x11963 */ /* x11966 */ /* x11965 */ /* x11968 */ /* x11967 */ /* x11970 */ /* x11969 */ /* x11972 */ /* x11971 */ /* x11974 */ /* x11973 */ /* x11976 */ /* x11975 */ /* x11978 */ /* x11977 */ /* x11980 */ /* x11979 */ /* x11982 */ /* x11981 */ /* x11984 */ /* x11983 */ /* x11986 */ /* x11985 */ /* x11988 */ /* x11987 */ /* x11990 */ /* x11989 */ /* x11992 */ /* x11991 */ /* x11994 */ /* x11993 */ /* x11996 */ /* x11995 */ /* x11998 */ /* x11997 */ /* x12000 */ /* x11999 */ /* x12002 */ /* x12001 */ /* x12004 */ /* x12003 */ /* x12006 */ /* x12005 */ /* x12008 */ /* x12007 */ /* x12010 */ /* x12009 */ /* x12012 */ /* x12011 */ /* x12014 */ /* x12013 */ /* x12016 */ /* x12015 */ /* x12018 */ /* x12017 */ /* x12020 */ /* x12019 */ /* x12022 */ /* x12021 */ /* x12024 */ /* x12023 */ /* x12026 */ /* x12025 */ /* x12028 */ /* x12027 */ /* x12030 */ /* x12029 */ /* x12032 */ /* x12031 */ /* x12034 */ /* x12033 */ /* x12036 */ /* x12035 */ /* x12038 */ /* x12037 */ /* x12040 */ /* x12039 */ /* x12042 */ /* x12041 */ /* x12044 */ /* x12043 */ /* x12046 */ /* x12045 */ /* x12048 */ /* x12047 */ /* x12050 */ /* x12049 */ /* x12052 */ /* x12051 */ /* x12054 */ /* x12053 */ /* x12056 */ /* x12055 */ /* x12058 */ /* x12057 */ /* x12060 */ /* x12059 */ /* x12062 */ /* x12061 */ /* x12064 */ /* x12063 */ /* x12066 */ /* x12065 */ /* x12068 */ /* x12067 */ /* x12070 */ /* x12069 */ /* x12072 */ /* x12071 */ /* x12074 */ /* x12073 */ /* x12076 */ /* x12075 */ /* x12078 */ /* x12077 */ /* x12080 */ /* x12079 */ /* x12082 */ /* x12081 */ /* x12084 */ /* x12083 */ /* x12086 */ /* x12085 */ /* x12088 */ /* x12087 */ /* x12090 */ /* x12089 */ /* x12092 */ /* x12091 */ /* x12094 */ /* x12093 */ /* x12096 */ /* x12095 */ /* x12098 */ /* x12097 */ /* x12100 */ /* x12099 */ /* x12102 */ /* x12101 */ /* x12104 */ /* x12103 */ /* x12106 */ /* x12105 */ /* x12108 */ /* x12107 */ /* x12110 */ /* x12109 */ /* x12112 */ /* x12111 */ /* x12114 */ /* x12113 */ /* x12116 */ /* x12115 */ /* x12118 */ /* x12117 */ /* x12120 */ /* x12119 */ /* x12122 */ /* x12121 */ /* x12124 */ /* x12123 */ /* x12126 */ /* x12125 */ /* x12128 */ /* x12127 */ /* x12130 */ /* x12129 */ /* x12132 */ /* x12131 */ /* x12134 */ /* x12133 */ /* x12136 */ /* x12135 */ /* x12138 */ /* x12137 */ /* x12140 */ /* x12139 */ /* x12142 */ /* x12141 */ /* x12144 */ /* x12143 */ /* x12146 */ /* x12145 */ /* x12148 */ /* x12147 */ /* x12150 */ /* x12149 */ /* x12152 */ /* x12151 */ /* x12154 */ /* x12153 */ /* x12156 */ /* x12155 */ /* x12158 */ /* x12157 */ /* x12160 */ /* x12159 */ /* x12162 */ /* x12161 */ /* x12164 */ /* x12163 */ /* x12166 */ /* x12165 */ /* x12168 */ /* x12167 */ /* x12170 */ /* x12169 */ /* x12172 */ /* x12171 */ /* x12174 */ /* x12173 */ /* x12176 */ /* x12175 */ /* x12178 */ /* x12177 */ /* x12180 */ /* x12179 */ /* x12182 */ /* x12181 */ /* x12184 */ /* x12183 */ /* x12186 */ /* x12185 */ /* x12188 */ /* x12187 */ /* x12190 */ /* x12189 */ /* x12192 */ /* x12191 */ /* x12194 */ /* x12193 */ /* x12196 */ /* x12195 */ /* x12198 */ /* x12197 */ /* x12200 */ /* x12199 */ /* x12202 */ /* x12201 */ /* x12204 */ /* x12203 */ /* x12206 */ /* x12205 */ /* x12208 */ /* x12207 */ /* x12210 */ /* x12209 */ /* x12212 */ /* x12211 */ /* x12214 */ /* x12213 */ /* x12216 */ /* x12215 */ /* x12218 */ /* x12217 */ /* x12220 */ /* x12219 */ /* x12222 */ /* x12221 */ /* x12224 */ /* x12223 */ /* x12226 */ /* x12225 */ /* x12228 */ /* x12227 */ /* x12230 */ /* x12229 */ /* x12232 */ /* x12231 */ /* x12234 */ /* x12233 */ /* x12236 */ /* x12235 */ /* x12238 */ /* x12237 */ /* x12240 */ /* x12239 */ /* x12242 */ /* x12241 */ /* x12244 */ /* x12243 */ /* x12246 */ /* x12245 */ /* x12248 */ /* x12247 */ /* x12250 */ /* x12249 */ /* x12252 */ /* x12251 */ /* x12254 */ /* x12253 */ /* x12256 */ /* x12255 */ /* x12258 */ /* x12257 */ /* x12260 */ /* x12259 */ /* x12262 */ /* x12261 */ /* x12264 */ /* x12263 */ /* x12266 */ /* x12265 */ /* x12268 */ /* x12267 */ /* x12270 */ /* x12269 */ /* x12272 */ /* x12271 */ /* x12274 */ /* x12273 */ /* x12276 */ /* x12275 */ /* x12278 */ /* x12277 */ /* x12280 */ /* x12279 */ /* x12282 */ /* x12281 */ /* x12284 */ /* x12283 */ /* x12286 */ /* x12285 */ /* x12288 */ /* x12287 */ /* x12290 */ /* x12289 */ /* x12292 */ /* x12291 */ /* x12294 */ /* x12293 */ /* x12296 */ /* x12295 */ /* x12298 */ /* x12297 */ /* x12300 */ /* x12299 */ /* x12302 */ /* x12301 */ /* x12304 */ /* x12303 */ /* x12306 */ /* x12305 */ /* x12308 */ /* x12307 */ /* x12310 */ /* x12309 */ /* x12312 */ /* x12311 */ /* x12314 */ /* x12313 */ /* x12316 */ /* x12315 */ /* x12318 */ /* x12317 */ /* x12320 */ /* x12319 */ /* x12322 */ /* x12321 */ /* x12324 */ /* x12323 */ /* x12326 */ /* x12325 */ /* x12328 */ /* x12327 */ /* x12330 */ /* x12329 */ /* x12332 */ /* x12331 */ /* x12334 */ /* x12333 */ /* x12336 */ /* x12335 */ /* x12338 */ /* x12337 */ /* x12340 */ /* x12339 */ /* x12342 */ /* x12341 */ /* x12344 */ /* x12343 */ /* x12346 */ /* x12345 */ /* x12348 */ /* x12347 */ /* x12350 */ /* x12349 */ /* x12352 */ /* x12351 */ /* x12354 */ /* x12353 */ /* x12356 */ /* x12355 */ /* x12358 */ /* x12357 */ /* x12360 */ /* x12359 */ /* x12362 */ /* x12361 */ /* x12364 */ /* x12363 */ /* x12366 */ /* x12365 */ /* x12368 */ /* x12367 */ /* x12370 */ /* x12369 */ /* x12372 */ /* x12371 */ /* x12374 */ /* x12373 */ /* x12376 */ /* x12375 */ /* x12378 */ /* x12377 */ /* x12380 */ /* x12379 */ /* x12382 */ /* x12381 */ /* x12384 */ /* x12383 */ /* x12386 */ /* x12385 */ /* x12388 */ /* x12387 */ /* x12390 */ /* x12389 */ /* x12392 */ /* x12391 */ /* x12394 */ /* x12393 */ /* x12396 */ /* x12395 */ /* x12398 */ /* x12397 */ /* x12400 */ /* x12399 */ /* x12402 */ /* x12401 */ /* x12404 */ /* x12403 */ /* x12406 */ /* x12405 */ /* x12408 */ /* x12407 */ /* x12410 */ /* x12409 */ /* x12412 */ /* x12411 */ /* x12414 */ /* x12413 */ /* x12416 */ /* x12415 */ /* x12418 */ /* x12417 */ /* x12420 */ /* x12419 */ /* x12422 */ /* x12421 */ /* x12424 */ /* x12423 */ /* x12426 */ /* x12425 */ /* x12428 */ /* x12427 */ /* x12430 */ /* x12429 */ /* x12432 */ /* x12431 */ /* x12434 */ /* x12433 */ /* x12436 */ /* x12435 */ /* x12438 */ /* x12437 */ /* x12440 */ /* x12439 */ /* x12442 */ /* x12441 */ /* x12444 */ /* x12443 */ /* x12446 */ /* x12445 */ /* x12448 */ /* x12447 */ /* x12450 */ /* x12449 */ /* x12452 */ /* x12451 */ /* x12454 */ /* x12453 */ /* x12456 */ /* x12455 */ /* x12458 */ /* x12457 */ /* x12460 */ /* x12459 */ /* x12462 */ /* x12461 */ /* x12464 */ /* x12463 */ /* x12466 */ /* x12465 */ /* x12468 */ /* x12467 */ /* x12470 */ /* x12469 */ /* x12472 */ /* x12471 */ /* x12474 */ /* x12473 */ /* x12476 */ /* x12475 */ /* x12478 */ /* x12477 */ /* x12480 */ /* x12479 */ /* x12482 */ /* x12481 */ /* x12484 */ /* x12483 */ /* x12486 */ /* x12485 */ /* x12488 */ /* x12487 */ /* x12490 */ /* x12489 */ /* x12492 */ /* x12491 */ /* x12494 */ /* x12493 */ /* x12496 */ /* x12495 */ /* x12498 */ /* x12497 */ /* x12500 */ /* x12499 */ /* x12502 */ /* x12501 */ /* x12504 */ /* x12503 */ /* x12506 */ /* x12505 */ /* x12508 */ /* x12507 */ /* x12510 */ /* x12509 */ /* x12512 */ /* x12511 */ /* x12514 */ /* x12513 */ /* x12516 */ /* x12515 */ /* x12518 */ /* x12517 */ /* x12520 */ /* x12519 */ /* x12522 */ /* x12521 */ /* x12524 */ /* x12523 */ /* x12526 */ /* x12525 */ /* x12528 */ /* x12527 */ /* x12530 */ /* x12529 */ /* x12532 */ /* x12531 */ /* x12534 */ /* x12533 */ /* x12536 */ /* x12535 */ /* x12538 */ /* x12537 */ /* x12540 */ /* x12539 */ /* x12542 */ /* x12541 */ /* x12544 */ /* x12543 */ /* x12546 */ /* x12545 */ /* x12548 */ /* x12547 */ /* x12550 */ /* x12549 */ /* x12552 */ /* x12551 */ /* x12554 */ /* x12553 */ /* x12556 */ /* x12555 */ /* x12558 */ /* x12557 */ /* x12560 */ /* x12559 */ /* x12562 */ /* x12561 */ /* x12564 */ /* x12563 */ /* x12566 */ /* x12565 */ /* x12568 */ /* x12567 */ /* x12570 */ /* x12569 */ /* x12572 */ /* x12571 */ /* x12574 */ /* x12573 */ /* x12576 */ /* x12575 */ /* x12578 */ /* x12577 */ /* x12580 */ /* x12579 */ /* x12582 */ /* x12581 */ /* x12584 */ /* x12583 */ /* x12586 */ /* x12585 */ /* x12588 */ /* x12587 */ /* x12590 */ /* x12589 */ /* x12592 */ /* x12591 */ /* x12594 */ /* x12593 */ /* x12596 */ /* x12595 */ /* x12598 */ /* x12597 */ /* x12600 */ /* x12599 */ /* x12602 */ /* x12601 */ /* x12604 */ /* x12603 */ /* x12606 */ /* x12605 */ /* x12608 */ /* x12607 */ /* x12610 */ /* x12609 */ /* x12612 */ /* x12611 */ /* x12614 */ /* x12613 */ /* x12616 */ /* x12615 */ /* x12618 */ /* x12617 */ /* x12620 */ /* x12619 */ /* x12622 */ /* x12621 */ /* x12624 */ /* x12623 */ /* x12626 */ /* x12625 */ /* x12628 */ /* x12627 */ /* x12630 */ /* x12629 */ /* x12632 */ /* x12631 */ /* x12634 */ /* x12633 */ /* x12636 */ /* x12635 */ /* x12638 */ /* x12637 */ /* x12640 */ /* x12639 */ /* x12642 */ /* x12641 */ /* x12644 */ /* x12643 */ /* x12646 */ /* x12645 */ /* x12648 */ /* x12647 */ /* x12650 */ /* x12649 */ /* x12652 */ /* x12651 */ /* x12654 */ /* x12653 */ /* x12656 */ /* x12655 */ /* x12658 */ /* x12657 */ /* x12660 */ /* x12659 */ /* x12662 */ /* x12661 */ /* x12664 */ /* x12663 */ /* x12666 */ /* x12665 */ /* x12668 */ /* x12667 */ /* x12670 */ /* x12669 */ /* x12672 */ /* x12671 */ /* x12674 */ /* x12673 */ /* x12676 */ /* x12675 */ /* x12678 */ /* x12677 */ /* x12680 */ /* x12679 */ /* x12682 */ /* x12681 */ /* x12684 */ /* x12683 */ /* x12686 */ /* x12685 */ /* x12688 */ /* x12687 */ /* x12690 */ /* x12689 */ /* x12692 */ /* x12691 */ /* x12694 */ /* x12693 */ /* x12696 */ /* x12695 */ /* x12698 */ /* x12697 */ /* x12700 */ /* x12699 */ /* x12702 */ /* x12701 */ /* x12704 */ /* x12703 */ /* x12706 */ /* x12705 */ /* x12708 */ /* x12707 */ /* x12710 */ /* x12709 */ /* x12712 */ /* x12711 */ /* x12714 */ /* x12713 */ /* x12716 */ /* x12715 */ /* x12718 */ /* x12717 */ /* x12720 */ /* x12719 */ /* x12722 */ /* x12721 */ /* x12724 */ /* x12723 */ /* x12726 */ /* x12725 */ /* x12728 */ /* x12727 */ /* x12730 */ /* x12729 */ /* x12732 */ /* x12731 */ /* x12734 */ /* x12733 */ /* x12736 */ /* x12735 */ /* x12738 */ /* x12737 */ /* x12740 */ /* x12739 */ /* x12742 */ /* x12741 */ /* x12744 */ /* x12743 */ /* x12746 */ /* x12745 */ /* x12748 */ /* x12747 */ /* x12750 */ /* x12749 */ /* x12752 */ /* x12751 */ /* x12754 */ /* x12753 */ /* x12756 */ /* x12755 */ /* x12758 */ /* x12757 */ /* x12760 */ /* x12759 */ /* x12762 */ /* x12761 */ /* x12764 */ /* x12763 */ /* x12766 */ /* x12765 */ /* x12768 */ /* x12767 */ /* x12770 */ /* x12769 */ /* x12772 */ /* x12771 */ /* x12774 */ /* x12773 */ /* x12776 */ /* x12775 */ /* x12778 */ /* x12777 */ /* x12780 */ /* x12779 */ /* x12782 */ /* x12781 */ /* x12784 */ /* x12783 */ /* x12786 */ /* x12785 */ /* x12788 */ /* x12787 */ /* x12790 */ /* x12789 */ /* x12792 */ /* x12791 */ /* x12794 */ /* x12793 */ /* x12796 */ /* x12795 */ /* x12798 */ /* x12797 */ /* x12800 */ /* x12799 */ /* x12802 */ /* x12801 */ /* x12804 */ /* x12803 */ /* x12806 */ /* x12805 */ /* x12808 */ /* x12807 */ /* x12810 */ /* x12809 */ /* x12812 */ /* x12811 */ /* x12814 */ /* x12813 */ /* x12816 */ /* x12815 */ /* x12818 */ /* x12817 */ /* x12820 */ /* x12819 */ /* x12822 */ /* x12821 */ /* x12824 */ /* x12823 */ /* x12826 */ /* x12825 */ /* x12828 */ /* x12827 */ /* x12830 */ /* x12829 */ /* x12832 */ /* x12831 */ /* x12834 */ /* x12833 */ /* x12836 */ /* x12835 */ /* x12838 */ /* x12837 */ /* x12840 */ /* x12839 */ /* x12842 */ /* x12841 */ /* x12844 */ /* x12843 */ /* x12846 */ /* x12845 */ /* x12848 */ /* x12847 */ /* x12850 */ /* x12849 */ /* x12852 */ /* x12851 */ /* x12854 */ /* x12853 */ /* x12856 */ /* x12855 */ /* x12858 */ /* x12857 */ /* x12860 */ /* x12859 */ /* x12862 */ /* x12861 */ /* x12864 */ /* x12863 */ /* x12866 */ /* x12865 */ /* x12868 */ /* x12867 */ /* x12870 */ /* x12869 */ /* x12872 */ /* x12871 */ /* x12874 */ /* x12873 */ /* x12876 */ /* x12875 */ /* x12878 */ /* x12877 */ /* x12880 */ /* x12879 */ /* x12882 */ /* x12881 */ /* x12884 */ /* x12883 */ /* x12886 */ /* x12885 */ /* x12888 */ /* x12887 */ /* x12890 */ /* x12889 */ /* x12892 */ /* x12891 */ /* x12894 */ /* x12893 */ /* x12896 */ /* x12895 */ /* x12898 */ /* x12897 */ /* x12900 */ /* x12899 */ /* x12902 */ /* x12901 */ /* x12904 */ /* x12903 */ /* x12906 */ /* x12905 */ /* x12908 */ /* x12907 */ /* x12910 */ /* x12909 */ /* x12912 */ /* x12911 */ /* x12914 */ /* x12913 */ /* x12916 */ /* x12915 */ /* x12918 */ /* x12917 */ /* x12920 */ /* x12919 */ /* x12922 */ /* x12921 */ /* x12924 */ /* x12923 */ /* x12926 */ /* x12925 */ /* x12928 */ /* x12927 */ /* x12930 */ /* x12929 */ /* x12932 */ /* x12931 */ /* x12934 */ /* x12933 */ /* x12936 */ /* x12935 */ /* x12938 */ /* x12937 */ /* x12940 */ /* x12939 */ /* x12942 */ /* x12941 */ /* x12944 */ /* x12943 */ /* x12946 */ /* x12945 */ /* x12948 */ /* x12947 */ /* x12950 */ /* x12949 */ /* x12952 */ /* x12951 */ /* x12954 */ /* x12953 */ /* x12956 */ /* x12955 */ /* x12958 */ /* x12957 */ /* x12960 */ /* x12959 */ /* x12962 */ /* x12961 */ /* x12964 */ /* x12963 */ /* x12966 */ /* x12965 */ /* x12968 */ /* x12967 */ /* x12970 */ /* x12969 */ /* x12972 */ /* x12971 */ /* x12974 */ /* x12973 */ /* x12976 */ /* x12975 */ /* x12978 */ /* x12977 */ /* x12980 */ /* x12979 */ /* x12982 */ /* x12981 */ /* x12984 */ /* x12983 */ /* x12986 */ /* x12985 */ /* x12988 */ /* x12987 */ /* x12990 */ /* x12989 */ /* x12992 */ /* x12991 */ /* x12994 */ /* x12993 */ /* x12996 */ /* x12995 */ /* x12998 */ /* x12997 */ /* x13000 */ /* x12999 */ /* x13002 */ /* x13001 */ /* x13004 */ /* x13003 */ /* x13006 */ /* x13005 */ /* x13008 */ /* x13007 */ /* x13010 */ /* x13009 */ /* x13012 */ /* x13011 */ /* x13014 */ /* x13013 */ /* x13016 */ /* x13015 */ /* x13018 */ /* x13017 */ /* x13020 */ /* x13019 */ /* x13022 */ /* x13021 */ /* x13024 */ /* x13023 */ /* x13026 */ /* x13025 */ /* x13028 */ /* x13027 */ /* x13030 */ /* x13029 */ /* x13032 */ /* x13031 */ /* x13034 */ /* x13033 */ /* x13036 */ /* x13035 */ /* x13038 */ /* x13037 */ /* x13040 */ /* x13039 */ /* x13042 */ /* x13041 */ /* x13044 */ /* x13043 */ /* x13046 */ /* x13045 */ /* x13048 */ /* x13047 */ /* x13050 */ /* x13049 */ /* x13052 */ /* x13051 */ /* x13054 */ /* x13053 */ /* x13056 */ /* x13055 */ /* x13058 */ /* x13057 */ /* x13060 */ /* x13059 */ /* x13062 */ /* x13061 */ /* x13064 */ /* x13063 */ /* x13066 */ /* x13065 */ /* x13068 */ /* x13067 */ /* x13070 */ /* x13069 */ /* x13072 */ /* x13071 */ /* x13074 */ /* x13073 */ /* x13076 */ /* x13075 */ /* x13078 */ /* x13077 */ /* x13080 */ /* x13079 */ /* x13082 */ /* x13081 */ /* x13084 */ /* x13083 */ /* x13086 */ /* x13085 */ /* x13088 */ /* x13087 */ /* x13090 */ /* x13089 */ /* x13092 */ /* x13091 */ /* x13094 */ /* x13093 */ /* x13096 */ /* x13095 */ /* x13098 */ /* x13097 */ /* x13100 */ /* x13099 */ /* x13102 */ /* x13101 */ /* x13104 */ /* x13103 */ /* x13106 */ /* x13105 */ /* x13108 */ /* x13107 */ /* x13110 */ /* x13109 */ /* x13112 */ /* x13111 */ /* x13114 */ /* x13113 */ /* x13116 */ /* x13115 */ /* x13118 */ /* x13117 */ /* x13120 */ /* x13119 */ /* x13122 */ /* x13121 */ /* x13124 */ /* x13123 */ /* x13126 */ /* x13125 */ /* x13128 */ /* x13127 */ /* x13130 */ /* x13129 */ /* x13132 */ /* x13131 */ /* x13134 */ /* x13133 */ /* x13136 */ /* x13135 */ /* x13138 */ /* x13137 */ /* x13140 */ /* x13139 */ /* x13142 */ /* x13141 */ /* x13144 */ /* x13143 */ /* x13146 */ /* x13145 */ /* x13148 */ /* x13147 */ /* x13150 */ /* x13149 */ /* x13152 */ /* x13151 */ /* x13154 */ /* x13153 */ /* x13156 */ /* x13155 */ /* x13158 */ /* x13157 */ /* x13160 */ /* x13159 */ /* x13162 */ /* x13161 */ /* x13164 */ /* x13163 */ /* x13166 */ /* x13165 */ /* x13168 */ /* x13167 */ /* x13170 */ /* x13169 */ /* x13172 */ /* x13171 */ /* x13174 */ /* x13173 */ /* x13176 */ /* x13175 */ /* x13178 */ /* x13177 */ /* x13180 */ /* x13179 */ /* x13182 */ /* x13181 */ /* x13184 */ /* x13183 */ /* x13186 */ /* x13185 */ /* x13188 */ /* x13187 */ /* x13190 */ /* x13189 */ /* x13192 */ /* x13191 */ /* x13194 */ /* x13193 */ /* x13196 */ /* x13195 */ /* x13198 */ /* x13197 */ /* x13200 */ /* x13199 */ /* x13202 */ /* x13201 */ /* x13204 */ /* x13203 */ /* x13206 */ /* x13205 */ /* x13208 */ /* x13207 */ /* x13210 */ /* x13209 */ /* x13212 */ /* x13211 */ /* x13214 */ /* x13213 */ /* x13216 */ /* x13215 */ /* x13218 */ /* x13217 */ /* x13220 */ /* x13219 */ /* x13222 */ /* x13221 */ /* x13224 */ /* x13223 */ /* x13226 */ /* x13225 */ /* x13228 */ /* x13227 */ /* x13230 */ /* x13229 */ /* x13232 */ /* x13231 */ /* x13234 */ /* x13233 */ /* x13236 */ /* x13235 */ /* x13238 */ /* x13237 */ /* x13240 */ /* x13239 */ /* x13242 */ /* x13241 */ /* x13244 */ /* x13243 */ /* x13246 */ /* x13245 */ /* x13248 */ /* x13247 */ /* x13250 */ /* x13249 */ /* x13252 */ /* x13251 */ /* x13254 */ /* x13253 */ /* x13256 */ /* x13255 */ /* x13258 */ /* x13257 */ /* x13260 */ /* x13259 */ /* x13262 */ /* x13261 */ /* x13264 */ /* x13263 */ /* x13272 */ /* x13271 xlib.sc:41:1648 */ /* x13270 xlib.sc:41:1649 */ /* x13297 xlib.sc:42:1663 */ /* x13296 xlib.sc:42:1691 */ /* x13295 xlib.sc:42:1704 */ t93756 = 50; /* x270989 xlib.sc:42:1692 */ /* x13293 */ /* x13292 xlib.sc:43:1711 */ /* x13291 xlib.sc:44:1738 */ /* x13302 */ /* x13301 */ /* x13307 */ /* x13306 */ /* x13309 */ /* x13308 xlib.sc:57:2132 */ /* x13311 */ /* x13310 xlib.sc:59:2158 */ /* x13313 */ /* x13312 xlib.sc:60:2217 */ /* x13315 */ /* x13314 xlib.sc:61:2278 */ /* x13317 */ /* x13316 xlib.sc:62:2337 */ /* x13385 */ /* x13384 QobiScheme.sc:64:2680 */ /* x13392 */ /* x13391 QobiScheme.sc:72:2920 */ /* x13419 */ /* x13418 QobiScheme.sc:81:3141 */ /* x13446 */ /* x13445 QobiScheme.sc:90:3361 */ /* x13473 */ /* x13472 QobiScheme.sc:99:3599 */ /* x13502 */ /* x13501 QobiScheme.sc:109:3892 */ /* x13531 */ /* x13530 QobiScheme.sc:119:4183 */ /* x13560 */ /* x13559 QobiScheme.sc:133:4490 */ /* x13562 */ /* x13561 QobiScheme.sc:134:4521 */ /* x13564 */ /* x13563 QobiScheme.sc:135:4552 */ /* x13566 */ /* x13565 QobiScheme.sc:136:4585 */ /* x13632 */ /* x13631 QobiScheme.sc:145:4961 */ /* x13648 */ /* x13647 */ /* x13665 */ /* x13664 */ /* x13675 */ /* x13674 QobiScheme.sc:160:5237 */ /* x13677 */ /* x13676 QobiScheme.sc:162:5260 */ /* x13682 */ /* x13681 */ /* x13816 */ /* x13815 */ /* x13979 */ /* x13978 QobiScheme.sc:235:7594 */ /* x14046 */ /* x14045 */ /* x14130 */ /* x14129 */ /* x14184 */ /* x14183 */ /* x14275 */ /* x14274 */ /* x14418 */ /* x14417 */ /* x14451 */ /* x14450 */ /* x14498 */ /* x14497 */ /* x14541 */ /* x14540 */ /* x14574 */ /* x14573 */ /* x14621 */ /* x14620 */ /* x14710 */ /* x14709 */ /* x14940 */ /* x14939 */ /* x15022 */ /* x15021 */ /* x15062 */ /* x15061 */ /* x15096 */ /* x15095 */ /* x15133 */ /* x15132 */ /* x15211 */ /* x15210 */ /* x15258 */ /* x15257 */ /* x15286 */ /* x15285 */ /* x15336 */ /* x15335 */ /* x15436 */ /* x15435 */ /* x15588 */ /* x15587 */ /* x15638 */ /* x15637 */ /* x15680 */ /* x15679 */ /* x15722 */ /* x15721 */ /* x15806 */ /* x15805 */ /* x16082 */ /* x16081 */ /* x16354 */ /* x16353 */ /* x16400 */ /* x16399 */ /* x16410 */ /* x16409 */ /* x16441 */ /* x16440 */ /* x16453 */ /* x16452 */ /* x16491 */ /* x16490 */ /* x16545 */ /* x16544 */ /* x16759 */ /* x16758 */ /* x16964 */ /* x16963 */ /* x17169 */ /* x17168 */ /* x17271 */ /* x17270 */ /* x17323 */ /* x17322 */ /* x17374 */ /* x17373 */ /* x17528 */ /* x17527 */ /* x17640 */ /* x17639 */ /* x17705 */ /* x17704 */ /* x17737 */ /* x17736 */ /* x17796 */ /* x17795 */ /* x17833 */ /* x17832 */ /* x17884 */ /* x17883 */ /* x18114 */ /* x18113 QobiScheme.sc:857:25016 */ /* x18116 */ /* x18115 QobiScheme.sc:863:25122 */ /* x18119 */ /* x18118 QobiScheme.sc:865:25195 */ /* x18117 QobiScheme.sc:865:25196 */ /* x18702 */ /* x18701 QobiScheme.sc:974:28999 */ /* x18717 */ /* x18716 */ /* x19320 */ /* x19319 QobiScheme.sc:1086:31642 */ /* x20336 */ /* x20335 */ /* x21324 */ /* x21323 */ /* x21393 */ /* x21392 */ /* x21441 */ /* x21440 */ /* x21559 */ /* x21558 */ /* x21650 */ /* x21649 */ /* x21714 */ /* x21713 */ /* x21822 */ /* x21821 */ /* x21848 */ /* x21847 */ /* x21871 */ /* x21870 */ /* x21873 */ /* x21872 QobiScheme.sc:1518:45807 */ /* x21915 */ /* x21914 */ /* x21917 */ /* x21916 QobiScheme.sc:1538:46303 */ /* x21997 */ /* x21996 */ /* x22793 */ /* x22792 */ /* x23038 */ /* x23037 */ /* x23048 */ /* x23047 */ /* x23087 */ /* x23086 */ /* x23165 */ /* x23164 */ /* x23204 */ /* x23203 */ /* x23244 */ /* x23243 */ /* x23254 */ /* x23253 */ /* x23260 */ /* x23259 */ /* x23293 */ /* x23292 */ /* x23299 */ /* x23298 */ /* x23354 */ /* x23353 */ /* x23407 */ /* x23406 */ /* x23491 */ /* x23490 */ /* x23720 */ /* x23719 */ /* x25448 */ /* x25447 QobiScheme.sc:2101:64514 */ /* x29129 */ /* x29128 QobiScheme.sc:2463:76761 */ /* x29127 QobiScheme.sc:2463:76767 */ t93757 = -1.0; /* x270796 QobiScheme.sc:2463:76762 */ a3102 = acos(t93757); /* x29134 */ /* x29133 QobiScheme.sc:2465:76791 */ /* x29131 QobiScheme.sc:2465:76794 */ t93758 = a3102; /* x29132 QobiScheme.sc:2465:76797 */ t93759 = 2.0; /* x270795 QobiScheme.sc:2465:76792 */ /* x29139 */ /* x29138 QobiScheme.sc:2467:76819 */ /* x29136 QobiScheme.sc:2467:76822 */ t93760 = 2.0; /* x29137 QobiScheme.sc:2467:76826 */ t93761 = a3102; /* x270794 QobiScheme.sc:2467:76820 */ a3100 = t93760*t93761; /* x29143 */ /* x29142 QobiScheme.sc:2469:76849 */ /* x29141 QobiScheme.sc:2469:76852 */ t93762 = a3102; /* x270793 QobiScheme.sc:2469:76850 */ /* x29148 */ /* x29147 QobiScheme.sc:2471:76877 */ /* x29145 QobiScheme.sc:2471:76880 */ t93763 = a3100; /* x29146 QobiScheme.sc:2471:76887 */ t93764 = 3.6000001430511474609375e2; /* x270792 QobiScheme.sc:2471:76878 */ /* x29153 */ /* x29152 QobiScheme.sc:2473:76923 */ /* x29150 QobiScheme.sc:2473:76926 */ t93765 = 3.6000001430511474609375e2; /* x29151 QobiScheme.sc:2473:76932 */ t93766 = a3100; /* x270791 QobiScheme.sc:2473:76924 */ /* x32132 */ /* x32131 QobiScheme.sc:2991:95216 */ /* x32137 */ /* x32136 QobiScheme.sc:2993:95246 */ /* x32134 QobiScheme.sc:2993:95249 */ t93767 = -1.0; /* x32135 QobiScheme.sc:2993:95254 */ t93768 = 0.0; /* x270790 QobiScheme.sc:2993:95247 */ /* x32142 */ /* x32141 QobiScheme.sc:2995:95287 */ /* x32139 QobiScheme.sc:2995:95290 */ t93769 = 1.0; /* x32140 QobiScheme.sc:2995:95294 */ t93770 = 0.0; /* x270789 QobiScheme.sc:2995:95288 */ a3044 = t93769/t93770; /* x32147 */ /* x32146 QobiScheme.sc:2997:95323 */ /* x32144 QobiScheme.sc:2997:95326 */ t93771 = a3044; /* x32145 QobiScheme.sc:2997:95335 */ t93772 = a3044; /* x270788 QobiScheme.sc:2997:95324 */ /* x32248 */ /* x32247 QobiScheme.sc:3018:95846 */ /* x32250 */ /* x32249 QobiScheme.sc:3019:95871 */ /* x32252 */ /* x32251 QobiScheme.sc:3020:95895 */ /* x32254 */ /* x32253 QobiScheme.sc:3021:95919 */ /* x32256 */ /* x32255 QobiScheme.sc:3022:95942 */ /* x32258 */ /* x32257 QobiScheme.sc:3023:95972 */ /* x32260 */ /* x32259 QobiScheme.sc:3024:95997 */ /* x39496 */ /* x39495 QobiScheme.sc:4100:131170 */ /* x39498 */ /* x39497 QobiScheme.sc:4104:131268 */ /* x39500 */ /* x39499 QobiScheme.sc:4108:131354 */ /* x39502 */ /* x39501 QobiScheme.sc:4112:131446 */ /* x39504 */ /* x39503 QobiScheme.sc:4116:131561 */ /* x39506 */ /* x39505 QobiScheme.sc:4120:131683 */ /* x39508 */ /* x39507 QobiScheme.sc:4124:131806 */ /* x39510 */ /* x39509 QobiScheme.sc:4128:131911 */ /* x39882 */ /* x39881 QobiScheme.sc:4230:135351 */ /* x39884 */ /* x39883 QobiScheme.sc:4234:135461 */ /* x39886 */ /* x39885 QobiScheme.sc:4238:135559 */ /* x39888 */ /* x39887 QobiScheme.sc:4242:135655 */ /* x39890 */ /* x39889 QobiScheme.sc:4246:135752 */ /* x39892 */ /* x39891 QobiScheme.sc:4250:135849 */ /* x39894 */ /* x39893 QobiScheme.sc:4254:135944 */ /* x40250 */ /* x40249 QobiScheme.sc:4343:138978 */ /* x40252 */ /* x40251 QobiScheme.sc:4344:139005 */ /* x40254 */ /* x40253 QobiScheme.sc:4345:139024 */ /* x40256 */ /* x40255 QobiScheme.sc:4346:139049 */ /* x40258 */ /* x40257 QobiScheme.sc:4347:139071 */ /* x40260 */ /* x40259 QobiScheme.sc:4348:139095 */ /* x42627 */ /* x42626 QobiScheme.sc:4662:149587 */ /* x42629 */ /* x42628 QobiScheme.sc:4664:149661 */ a2875 = 0.0; /* x42631 */ /* x42630 QobiScheme.sc:4665:149694 */ /* x42633 */ /* x42632 QobiScheme.sc:4666:149723 */ /* x42635 */ /* x42634 QobiScheme.sc:4667:149752 */ a2872 = 0.0; /* x42637 */ /* x42636 QobiScheme.sc:4669:149770 */ a2871 = 0.0; /* x42639 */ /* x42638 QobiScheme.sc:4670:149787 */ a2870 = TRUE_TYPE; /* x42642 */ /* x42641 QobiScheme.sc:4673:149832 */ /* x42640 QobiScheme.sc:4673:149833 */ a2869 = CLOCKS_PER_SEC; /* x42682 */ /* x42681 */ /* x42716 */ /* x42715 */ /* x42750 */ /* x42749 QobiScheme.sc:4715:150969 */ /* x42748 QobiScheme.sc:4715:150984 */ t93773 = 13; /* x270780 QobiScheme.sc:4715:150970 */ if ((t93773<0)||(t93773>=256)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 4715, 150969); integer_to_char2_error();} /* x42754 */ /* x42753 QobiScheme.sc:4716:151004 */ /* x42752 QobiScheme.sc:4716:151019 */ t93774 = 27; /* x270779 QobiScheme.sc:4716:151005 */ if ((t93774<0)||(t93774>=256)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 4716, 151004); integer_to_char2_error();} /* x42758 */ /* x42757 QobiScheme.sc:4717:151039 */ /* x42756 QobiScheme.sc:4717:151054 */ t93775 = 127; /* x270778 QobiScheme.sc:4717:151040 */ if ((t93775<0)||(t93775>=256)) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 4717, 151039); integer_to_char2_error();} /* x42760 */ /* x42759 QobiScheme.sc:4719:151133 */ /* x42762 */ /* x42761 QobiScheme.sc:4720:151154 */ /* x42764 */ /* x42763 QobiScheme.sc:4721:151180 */ /* x42766 */ /* x42765 QobiScheme.sc:4722:151207 */ /* x42768 */ /* x42767 QobiScheme.sc:4723:151235 */ /* x42770 */ /* x42769 QobiScheme.sc:4724:151266 */ /* x42772 */ /* x42771 QobiScheme.sc:4725:151302 */ /* x42774 */ /* x42773 QobiScheme.sc:4726:151332 */ /* x42776 */ /* x42775 QobiScheme.sc:4727:151357 */ /* x42778 */ /* x42777 QobiScheme.sc:4728:151383 */ /* x42780 */ /* x42779 QobiScheme.sc:4729:151409 */ /* x42782 */ /* x42781 QobiScheme.sc:4730:151434 */ /* x42784 */ /* x42783 QobiScheme.sc:4731:151458 */ /* x42786 */ /* x42785 QobiScheme.sc:4732:151485 */ /* x42788 */ /* x42787 QobiScheme.sc:4733:151511 */ /* x42790 */ /* x42789 QobiScheme.sc:4734:151537 */ /* x42792 */ /* x42791 QobiScheme.sc:4735:151566 */ /* x42794 */ /* x42793 QobiScheme.sc:4736:151594 */ /* x42796 */ /* x42795 QobiScheme.sc:4737:151622 */ /* x42798 */ /* x42797 QobiScheme.sc:4738:151655 */ /* x42800 */ /* x42799 QobiScheme.sc:4739:151689 */ /* x42802 */ /* x42801 QobiScheme.sc:4740:151726 */ /* x42804 */ /* x42803 QobiScheme.sc:4741:151757 */ /* x42806 */ /* x42805 QobiScheme.sc:4742:151787 */ /* x42808 */ /* x42807 QobiScheme.sc:4743:151819 */ /* x42810 */ /* x42809 QobiScheme.sc:4744:151840 */ /* x42812 */ /* x42811 QobiScheme.sc:4745:151862 */ /* x42814 */ /* x42813 QobiScheme.sc:4746:151884 */ /* x42816 */ /* x42815 QobiScheme.sc:4747:151911 */ /* x42818 */ /* x42817 QobiScheme.sc:4748:151941 */ /* x42820 */ /* x42819 QobiScheme.sc:4749:151965 */ /* x42822 */ /* x42821 QobiScheme.sc:4750:151991 */ /* x42824 */ /* x42823 QobiScheme.sc:4751:152018 */ /* x42826 */ /* x42825 QobiScheme.sc:4752:152040 */ /* x42828 */ /* x42827 QobiScheme.sc:4753:152071 */ /* x42830 */ /* x42829 QobiScheme.sc:4754:152095 */ /* x42832 */ /* x42831 QobiScheme.sc:4755:152128 */ /* x42834 */ /* x42833 QobiScheme.sc:4756:152151 */ /* x42836 */ /* x42835 QobiScheme.sc:4757:152183 */ /* x42838 */ /* x42837 QobiScheme.sc:4758:152207 */ /* x42840 */ /* x42839 QobiScheme.sc:4759:152240 */ /* x42842 */ /* x42841 QobiScheme.sc:4760:152263 */ /* x42844 */ /* x42843 QobiScheme.sc:4761:152285 */ /* x42846 */ /* x42845 QobiScheme.sc:4762:152316 */ /* x42848 */ /* x42847 QobiScheme.sc:4763:152341 */ /* x42850 */ /* x42849 QobiScheme.sc:4764:152369 */ /* x42852 */ /* x42851 QobiScheme.sc:4765:152388 */ /* x42854 */ /* x42853 QobiScheme.sc:4766:152410 */ /* x42856 */ /* x42855 QobiScheme.sc:4767:152428 */ /* x42858 */ /* x42857 QobiScheme.sc:4768:152449 */ /* x42860 */ /* x42859 QobiScheme.sc:4769:152472 */ /* x42862 */ /* x42861 QobiScheme.sc:4770:152498 */ /* x42864 */ /* x42863 QobiScheme.sc:4771:152518 */ /* x42866 */ /* x42865 QobiScheme.sc:4772:152541 */ /* x42868 */ /* x42867 QobiScheme.sc:4773:152566 */ /* x42870 */ /* x42869 QobiScheme.sc:4774:152594 */ /* x42872 */ /* x42871 QobiScheme.sc:4775:152613 */ /* x42874 */ /* x42873 QobiScheme.sc:4776:152635 */ /* x42876 */ /* x42875 QobiScheme.sc:4777:152656 */ /* x42878 */ /* x42877 QobiScheme.sc:4778:152680 */ /* x42880 */ /* x42879 QobiScheme.sc:4779:152701 */ /* x42882 */ /* x42881 QobiScheme.sc:4780:152725 */ /* x42884 */ /* x42883 QobiScheme.sc:4781:152746 */ /* x42886 */ /* x42885 QobiScheme.sc:4782:152770 */ /* x42888 */ /* x42887 QobiScheme.sc:4783:152796 */ /* x42890 */ /* x42889 QobiScheme.sc:4784:152825 */ /* x42892 */ /* x42891 QobiScheme.sc:4785:152848 */ /* x42894 */ /* x42893 QobiScheme.sc:4786:152877 */ /* x42896 */ /* x42895 QobiScheme.sc:4787:152902 */ /* x42898 */ /* x42897 QobiScheme.sc:4788:152922 */ /* x42900 */ /* x42899 QobiScheme.sc:4789:152951 */ /* x42902 */ /* x42901 QobiScheme.sc:4790:152978 */ /* x42904 */ /* x42903 QobiScheme.sc:4791:153002 */ /* x42906 */ /* x42905 QobiScheme.sc:4792:153023 */ /* x42908 */ /* x42907 QobiScheme.sc:4793:153049 */ /* x42910 */ /* x42909 QobiScheme.sc:4794:153070 */ /* x42912 */ /* x42911 QobiScheme.sc:4795:153091 */ /* x42914 */ /* x42913 QobiScheme.sc:4796:153113 */ /* x42916 */ /* x42915 QobiScheme.sc:4797:153134 */ /* x42918 */ /* x42917 QobiScheme.sc:4798:153165 */ /* x42920 */ /* x42919 QobiScheme.sc:4799:153197 */ /* x42922 */ /* x42921 QobiScheme.sc:4800:153230 */ /* x42924 */ /* x42923 QobiScheme.sc:4801:153255 */ /* x42926 */ /* x42925 QobiScheme.sc:4802:153274 */ /* x42928 */ /* x42927 QobiScheme.sc:4803:153294 */ /* x42930 */ /* x42929 QobiScheme.sc:4804:153313 */ /* x42932 */ /* x42931 QobiScheme.sc:4805:153334 */ /* x42934 */ /* x42933 QobiScheme.sc:4806:153354 */ /* x42936 */ /* x42935 QobiScheme.sc:4807:153373 */ /* x42938 */ /* x42937 QobiScheme.sc:4808:153403 */ /* x42940 */ /* x42939 QobiScheme.sc:4809:153436 */ /* x42942 */ /* x42941 QobiScheme.sc:4810:153463 */ /* x42944 */ /* x42943 QobiScheme.sc:4811:153493 */ /* x42946 */ /* x42945 QobiScheme.sc:4812:153526 */ /* x42948 */ /* x42947 QobiScheme.sc:4813:153565 */ /* x42950 */ /* x42949 QobiScheme.sc:4814:153597 */ /* x42952 */ /* x42951 QobiScheme.sc:4815:153628 */ /* x42954 */ /* x42953 QobiScheme.sc:4816:153667 */ /* x46176 */ /* x46175 QobiScheme.sc:5467:175138 */ /* x46213 */ /* x46212 QobiScheme.sc:5482:175492 */ /* x46215 */ /* x46214 QobiScheme.sc:5486:175615 */ /* x46217 */ /* x46216 QobiScheme.sc:5490:175713 */ /* x48948 */ /* x48947 */ /* x48951 */ /* x48950 */ /* x48954 */ /* x48953 */ /* x48971 */ /* x48970 */ /* x49062 */ /* x49061 */ /* x49094 */ /* x49093 */ /* x49099 */ /* x49098 */ /* x49113 */ /* x49112 */ /* x49118 */ /* x49117 */ /* x49123 */ /* x49122 */ /* x49162 */ /* x49161 */ /* x49201 */ /* x49200 */ /* x49240 */ /* x49239 */ /* x49279 */ /* x49278 */ /* x49318 */ /* x49317 */ /* x49357 */ /* x49356 */ /* x49396 */ /* x49395 */ /* x49402 */ /* x49401 */ /* x49435 */ /* x49434 */ /* x49441 */ /* x49440 */ /* x49474 */ /* x49473 */ /* x49514 */ /* x49513 */ /* x49524 */ /* x49523 */ /* x49563 */ /* x49562 */ /* x49633 */ /* x49632 */ /* x49638 */ /* x49637 */ /* x49643 */ /* x49642 */ /* x49682 */ /* x49681 */ /* x49721 */ /* x49720 */ /* x49760 */ /* x49759 */ /* x49799 */ /* x49798 */ /* x49838 */ /* x49837 */ /* x49877 */ /* x49876 */ /* x49916 */ /* x49915 */ /* x49955 */ /* x49954 */ /* x49961 */ /* x49960 */ /* x49994 */ /* x49993 */ /* x50000 */ /* x49999 */ /* x50033 */ /* x50032 */ /* x50039 */ /* x50038 */ /* x50072 */ /* x50071 */ /* x50078 */ /* x50077 */ /* x50111 */ /* x50110 */ /* x50150 */ /* x50149 */ /* x50156 */ /* x50155 */ /* x50189 */ /* x50188 */ /* x50195 */ /* x50194 */ /* x50228 */ /* x50227 */ /* x50234 */ /* x50233 */ /* x50267 */ /* x50266 */ /* x50306 */ /* x50305 */ /* x50312 */ /* x50311 */ /* x50345 */ /* x50344 */ /* x50351 */ /* x50350 */ /* x50384 */ /* x50383 */ /* x50390 */ /* x50389 */ /* x50423 */ /* x50422 */ /* x50429 */ /* x50428 */ /* x50462 */ /* x50461 */ /* x50468 */ /* x50467 */ /* x50501 */ /* x50500 */ /* x50507 */ /* x50506 */ /* x50540 */ /* x50539 */ /* x50579 */ /* x50578 */ /* x50585 */ /* x50584 */ /* x50618 */ /* x50617 */ /* x50624 */ /* x50623 */ /* x50657 */ /* x50656 */ /* x50663 */ /* x50662 */ /* x50696 */ /* x50695 */ /* x50702 */ /* x50701 */ /* x50735 */ /* x50734 */ /* x50741 */ /* x50740 */ /* x50774 */ /* x50773 */ /* x50780 */ /* x50779 */ /* x50813 */ /* x50812 */ /* x50819 */ /* x50818 */ /* x50852 */ /* x50851 */ /* x50858 */ /* x50857 */ /* x50897 */ /* x50896 */ /* x50902 */ /* x50901 */ /* x50907 */ /* x50906 */ /* x50946 */ /* x50945 */ /* x50985 */ /* x50984 */ /* x51024 */ /* x51023 */ /* x51063 */ /* x51062 */ /* x51102 */ /* x51101 */ /* x51141 */ /* x51140 */ /* x51184 */ /* x51183 */ /* x51189 */ /* x51188 */ /* x51194 */ /* x51193 */ /* x51233 */ /* x51232 */ /* x51272 */ /* x51271 */ /* x51278 */ /* x51277 */ /* x51311 */ /* x51310 */ /* x51317 */ /* x51316 */ /* x51350 */ /* x51349 */ /* x51356 */ /* x51355 */ /* x51394 */ /* x51393 */ /* x51399 */ /* x51398 */ /* x51404 */ /* x51403 */ /* x51410 */ /* x51409 */ /* x51443 */ /* x51442 */ /* x51449 */ /* x51448 */ /* x51482 */ /* x51481 */ /* x51521 */ /* x51520 */ /* x51527 */ /* x51526 */ /* x51560 */ /* x51559 */ /* x51566 */ /* x51565 */ /* x51599 */ /* x51598 */ /* x51605 */ /* x51604 */ /* x51643 */ /* x51642 */ /* x51648 */ /* x51647 */ /* x51653 */ /* x51652 */ /* x51692 */ /* x51691 */ /* x51731 */ /* x51730 */ /* x51770 */ /* x51769 */ /* x51776 */ /* x51775 */ /* x51809 */ /* x51808 */ /* x51815 */ /* x51814 */ /* x51848 */ /* x51847 */ /* x51854 */ /* x51853 */ /* x51892 */ /* x51891 */ /* x51897 */ /* x51896 */ /* x51902 */ /* x51901 */ /* x51908 */ /* x51907 */ /* x51941 */ /* x51940 */ /* x51947 */ /* x51946 */ /* x51980 */ /* x51979 */ /* x52019 */ /* x52018 */ /* x52025 */ /* x52024 */ /* x52058 */ /* x52057 */ /* x52064 */ /* x52063 */ /* x52097 */ /* x52096 */ /* x52103 */ /* x52102 */ /* x52143 */ /* x52142 */ /* x52148 */ /* x52147 */ /* x52153 */ /* x52152 */ /* x52192 */ /* x52191 */ /* x52231 */ /* x52230 */ /* x52270 */ /* x52269 */ /* x52309 */ /* x52308 */ /* x52348 */ /* x52347 */ /* x52354 */ /* x52353 */ /* x52387 */ /* x52386 */ /* x52393 */ /* x52392 */ /* x52426 */ /* x52425 */ /* x52432 */ /* x52431 */ /* x52470 */ /* x52469 */ /* x52475 */ /* x52474 */ /* x52480 */ /* x52479 */ /* x52519 */ /* x52518 */ /* x52558 */ /* x52557 */ /* x52564 */ /* x52563 */ /* x52597 */ /* x52596 */ /* x52603 */ /* x52602 */ /* x52636 */ /* x52635 */ /* x52642 */ /* x52641 */ /* x52675 */ /* x52674 */ /* x52681 */ /* x52680 */ /* x52720 */ /* x52719 */ /* x52725 */ /* x52724 */ /* x52730 */ /* x52729 */ /* x52736 */ /* x52735 */ /* x52769 */ /* x52768 */ /* x52775 */ /* x52774 */ /* x52808 */ /* x52807 */ /* x52847 */ /* x52846 */ /* x52853 */ /* x52852 */ /* x52886 */ /* x52885 */ /* x52892 */ /* x52891 */ /* x52925 */ /* x52924 */ /* x52931 */ /* x52930 */ /* x52964 */ /* x52963 */ /* x52970 */ /* x52969 */ /* x53011 */ /* x53010 */ /* x53016 */ /* x53015 */ /* x53021 */ /* x53020 */ /* x53060 */ /* x53059 */ /* x53066 */ /* x53065 */ /* x53099 */ /* x53098 */ /* x53105 */ /* x53104 */ /* x53138 */ /* x53137 */ /* x53144 */ /* x53143 */ /* x53177 */ /* x53176 */ /* x53216 */ /* x53215 */ /* x53222 */ /* x53221 */ /* x53255 */ /* x53254 */ /* x53261 */ /* x53260 */ /* x53294 */ /* x53293 */ /* x53333 */ /* x53332 */ /* x53339 */ /* x53338 */ /* x53379 */ /* x53378 */ /* x53384 */ /* x53383 */ /* x53389 */ /* x53388 */ /* x53395 */ /* x53394 */ /* x53428 */ /* x53427 */ /* x53434 */ /* x53433 */ /* x53467 */ /* x53466 */ /* x53473 */ /* x53472 */ /* x53506 */ /* x53505 */ /* x53545 */ /* x53544 */ /* x53551 */ /* x53550 */ /* x53584 */ /* x53583 */ /* x53590 */ /* x53589 */ /* x53623 */ /* x53622 */ /* x53629 */ /* x53628 */ /* x53662 */ /* x53661 */ /* x53668 */ /* x53667 */ /* x53708 */ /* x53707 */ /* x53713 */ /* x53712 */ /* x53718 */ /* x53717 */ /* x53724 */ /* x53723 */ /* x53757 */ /* x53756 */ /* x53763 */ /* x53762 */ /* x53796 */ /* x53795 */ /* x53802 */ /* x53801 */ /* x53835 */ /* x53834 */ /* x53874 */ /* x53873 */ /* x53880 */ /* x53879 */ /* x53913 */ /* x53912 */ /* x53919 */ /* x53918 */ /* x53952 */ /* x53951 */ /* x53958 */ /* x53957 */ /* x53991 */ /* x53990 */ /* x53997 */ /* x53996 */ /* x54035 */ /* x54034 */ /* x54040 */ /* x54039 */ /* x54045 */ /* x54044 */ /* x54051 */ /* x54050 */ /* x54084 */ /* x54083 */ /* x54090 */ /* x54089 */ /* x54123 */ /* x54122 */ /* x54162 */ /* x54161 */ /* x54168 */ /* x54167 */ /* x54201 */ /* x54200 */ /* x54207 */ /* x54206 */ /* x54240 */ /* x54239 */ /* x54246 */ /* x54245 */ /* x54283 */ /* x54282 */ /* x54293 */ /* x54292 */ /* x54332 */ /* x54331 */ /* x54371 */ /* x54370 */ /* x54377 */ /* x54376 */ /* x54410 */ /* x54409 */ /* x54416 */ /* x54415 */ /* x54449 */ /* x54448 */ /* x54455 */ /* x54454 */ /* x54493 */ /* x54492 */ /* x54498 */ /* x54497 */ /* x54503 */ /* x54502 */ /* x54509 */ /* x54508 */ /* x54542 */ /* x54541 */ /* x54548 */ /* x54547 */ /* x54581 */ /* x54580 */ /* x54587 */ /* x54586 */ /* x54620 */ /* x54619 */ /* x54626 */ /* x54625 */ /* x54659 */ /* x54658 */ /* x54698 */ /* x54697 */ /* x54704 */ /* x54703 */ /* x54750 */ /* x54749 */ /* x54755 */ /* x54754 */ /* x54760 */ /* x54759 */ /* x54799 */ /* x54798 */ /* x54838 */ /* x54837 */ /* x54877 */ /* x54876 */ /* x54916 */ /* x54915 */ /* x54955 */ /* x54954 */ /* x54994 */ /* x54993 */ /* x55033 */ /* x55032 */ /* x55072 */ /* x55071 */ /* x55078 */ /* x55077 */ /* x55111 */ /* x55110 */ /* x55117 */ /* x55116 */ /* x55150 */ /* x55149 */ /* x55156 */ /* x55155 */ /* x55189 */ /* x55188 */ /* x55195 */ /* x55194 */ /* x55228 */ /* x55227 */ /* x55234 */ /* x55233 */ /* x55267 */ /* x55266 */ /* x55273 */ /* x55272 */ /* x55332 */ /* x55331 */ /* x55337 */ /* x55336 */ /* x55342 */ /* x55341 */ /* x55381 */ /* x55380 */ /* x55387 */ /* x55386 */ /* x55420 */ /* x55419 */ /* x55459 */ /* x55458 */ /* x55465 */ /* x55464 */ /* x55498 */ /* x55497 */ /* x55504 */ /* x55503 */ /* x55537 */ /* x55536 */ /* x55543 */ /* x55542 */ /* x55576 */ /* x55575 */ /* x55582 */ /* x55581 */ /* x55615 */ /* x55614 */ /* x55621 */ /* x55620 */ /* x55654 */ /* x55653 */ /* x55660 */ /* x55659 */ /* x55693 */ /* x55692 */ /* x55699 */ /* x55698 */ /* x55732 */ /* x55731 */ /* x55738 */ /* x55737 */ /* x55771 */ /* x55770 */ /* x55777 */ /* x55776 */ /* x55810 */ /* x55809 */ /* x55816 */ /* x55815 */ /* x55849 */ /* x55848 */ /* x55855 */ /* x55854 */ /* x55888 */ /* x55887 */ /* x55894 */ /* x55893 */ /* x55927 */ /* x55926 */ /* x55933 */ /* x55932 */ /* x55966 */ /* x55965 */ /* x55972 */ /* x55971 */ /* x56005 */ /* x56004 */ /* x56011 */ /* x56010 */ /* x56044 */ /* x56043 */ /* x56050 */ /* x56049 */ /* x56083 */ /* x56082 */ /* x56089 */ /* x56088 */ /* x56122 */ /* x56121 */ /* x56128 */ /* x56127 */ /* x56161 */ /* x56160 */ /* x56167 */ /* x56166 */ /* x56200 */ /* x56199 */ /* x56206 */ /* x56205 */ /* x56239 */ /* x56238 */ /* x56245 */ /* x56244 */ /* x56278 */ /* x56277 */ /* x56284 */ /* x56283 */ /* x56317 */ /* x56316 */ /* x56323 */ /* x56322 */ /* x56356 */ /* x56355 */ /* x56362 */ /* x56361 */ /* x56396 */ /* x56395 */ /* x56401 */ /* x56400 */ /* x56406 */ /* x56405 */ /* x56445 */ /* x56444 */ /* x56481 */ /* x56480 stalin.sc:317:8488 */ a2040 = FALSE_TYPE; /* x56483 */ /* x56482 stalin.sc:318:8529 */ a2039 = FALSE_TYPE; /* x56485 */ /* x56484 stalin.sc:319:8550 */ a2038 = FALSE_TYPE; /* x56488 */ /* x56487 */ /* x56491 */ /* x56490 */ /* x56507 */ /* x56506 */ /* x56520 */ /* x56519 */ /* x56536 */ /* x56535 stalin.sc:352:9274 */ a2032 = (unsigned)FALSE_TYPE; /* x56538 */ /* x56537 stalin.sc:353:9291 */ a2031.tag = FALSE_TYPE; /* x56540 */ /* x56539 stalin.sc:354:9311 */ a2030.tag = FALSE_TYPE; /* x56542 */ /* x56541 stalin.sc:355:9334 */ a2029.tag = FALSE_TYPE; /* x56544 */ /* x56543 stalin.sc:356:9360 */ a2028.tag = FALSE_TYPE; /* x56546 */ /* x56545 stalin.sc:357:9385 */ a2027.tag = FALSE_TYPE; /* x56548 */ /* x56547 stalin.sc:358:9401 */ a2026.tag = FALSE_TYPE; /* x56550 */ /* x56549 stalin.sc:359:9418 */ a2025.tag = FALSE_TYPE; /* x56568 */ /* x56567 */ /* x56769 */ /* x56768 */ /* x56972 */ /* x56971 */ /* x57175 */ /* x57174 */ /* x57386 */ /* x57385 */ /* x57585 */ /* x57584 */ /* x57784 */ /* x57783 */ /* x57983 */ /* x57982 */ /* x58191 */ /* x58190 */ /* x58386 */ /* x58385 */ /* x58398 */ /* x58397 */ /* x58431 */ /* x58430 */ /* x58443 */ /* x58442 */ /* x58476 */ /* x58475 */ /* x58488 */ /* x58487 */ /* x58521 */ /* x58520 */ /* x58533 */ /* x58532 */ /* x58566 */ /* x58565 */ /* x58578 */ /* x58577 */ /* x58611 */ /* x58610 */ /* x58623 */ /* x58622 */ /* x58656 */ /* x58655 */ /* x58668 */ /* x58667 */ /* x58701 */ /* x58700 */ /* x58742 */ /* x58741 */ /* x58877 */ /* x58876 */ /* x58896 */ /* x58895 */ /* x58974 */ /* x58973 */ /* x59040 */ /* x59039 */ /* x59062 */ /* x59061 */ /* x59097 */ /* x59096 */ /* x59132 */ /* x59131 */ /* x59167 */ /* x59166 */ /* x59337 */ /* x59336 */ /* x59352 */ /* x59351 */ /* x59369 */ /* x59368 */ /* x59385 */ /* x59384 */ /* x59398 */ /* x59397 */ /* x59406 */ /* x59405 */ /* x59414 */ /* x59413 */ /* x59422 */ /* x59421 */ /* x59430 */ /* x59429 */ /* x59432 */ /* x59431 stalin.sc:959:30939 */ a1982 = (unsigned)FALSE_TYPE; /* x59434 */ /* x59433 stalin.sc:960:30958 */ a1981 = (char *)FALSE_TYPE; /* x59436 */ /* x59435 stalin.sc:961:30988 */ /* x59438 */ /* x59437 stalin.sc:962:31022 */ a1979 = (unsigned)FALSE_TYPE; /* x59440 */ /* x59439 stalin.sc:963:31041 */ a1978 = (char *)FALSE_TYPE; /* x59442 */ /* x59441 stalin.sc:964:31071 */ /* x59444 */ /* x59443 stalin.sc:965:31105 */ a1976 = (unsigned)FALSE_TYPE; /* x59446 */ /* x59445 stalin.sc:966:31125 */ a1975 = (char *)FALSE_TYPE; /* x59448 */ /* x59447 stalin.sc:967:31156 */ /* x59450 */ /* x59449 stalin.sc:968:31191 */ a1973 = (unsigned)FALSE_TYPE; /* x59452 */ /* x59451 stalin.sc:969:31210 */ a1972 = (char *)FALSE_TYPE; /* x59454 */ /* x59453 stalin.sc:970:31240 */ a1971 = FALSE_TYPE; /* x59456 */ /* x59455 stalin.sc:971:31274 */ a1970 = (unsigned)FALSE_TYPE; /* x59458 */ /* x59457 stalin.sc:972:31295 */ a1969 = (char *)FALSE_TYPE; /* x59460 */ /* x59459 stalin.sc:973:31327 */ /* x59462 */ /* x59461 stalin.sc:974:31363 */ a1967 = (unsigned)FALSE_TYPE; /* x59464 */ /* x59463 stalin.sc:975:31384 */ a1966 = (char *)FALSE_TYPE; /* x59466 */ /* x59465 stalin.sc:976:31416 */ /* x59468 */ /* x59467 stalin.sc:977:31452 */ a1964 = (unsigned)FALSE_TYPE; /* x59470 */ /* x59469 stalin.sc:978:31478 */ a1963 = (char *)FALSE_TYPE; /* x59472 */ /* x59471 stalin.sc:979:31515 */ /* x59474 */ /* x59473 stalin.sc:980:31556 */ a1961 = (unsigned)FALSE_TYPE; /* x59476 */ /* x59475 stalin.sc:981:31581 */ a1960 = (char *)FALSE_TYPE; /* x59478 */ /* x59477 stalin.sc:982:31617 */ /* x59480 */ /* x59479 stalin.sc:983:31657 */ a1958 = (unsigned)FALSE_TYPE; /* x59482 */ /* x59481 stalin.sc:984:31683 */ a1957 = (char *)FALSE_TYPE; /* x59484 */ /* x59483 stalin.sc:985:31720 */ /* x59486 */ /* x59485 stalin.sc:986:31761 */ a1955 = (unsigned)FALSE_TYPE; /* x59488 */ /* x59487 stalin.sc:987:31786 */ a1954 = (char *)FALSE_TYPE; /* x59490 */ /* x59489 stalin.sc:988:31822 */ /* x59492 */ /* x59491 stalin.sc:989:31862 */ a1952 = (unsigned)FALSE_TYPE; /* x59494 */ /* x59493 stalin.sc:990:31884 */ a1951 = (char *)FALSE_TYPE; /* x59496 */ /* x59495 stalin.sc:991:31917 */ /* x59498 */ /* x59497 stalin.sc:992:31954 */ a1949 = (unsigned)FALSE_TYPE; /* x59500 */ /* x59499 stalin.sc:993:31990 */ a1948.tag = FALSE_TYPE; /* x59502 */ /* x59501 stalin.sc:994:32026 */ a1947.tag = FALSE_TYPE; /* x59504 */ /* x59503 stalin.sc:995:32066 */ a1946.tag = FALSE_TYPE; /* x59506 */ /* x59505 stalin.sc:996:32103 */ a1945.tag = FALSE_TYPE; /* x59508 */ /* x59507 stalin.sc:997:32141 */ a1944.tag = FALSE_TYPE; /* x59510 */ /* x59509 stalin.sc:998:32174 */ a1943.tag = FALSE_TYPE; /* x59512 */ /* x59511 stalin.sc:999:32201 */ a1942.tag = FALSE_TYPE; /* x59514 */ /* x59513 stalin.sc:1000:32237 */ a1941.tag = FALSE_TYPE; /* x59516 */ /* x59515 stalin.sc:1001:32267 */ a1940.tag = FALSE_TYPE; /* x59518 */ /* x59517 stalin.sc:1002:32301 */ a1939.tag = FALSE_TYPE; /* x59520 */ /* x59519 stalin.sc:1003:32338 */ a1938.tag = FALSE_TYPE; /* x59522 */ /* x59521 stalin.sc:1004:32379 */ a1937.tag = FALSE_TYPE; /* x59524 */ /* x59523 stalin.sc:1005:32416 */ a1936.tag = FALSE_TYPE; /* x59532 */ /* x59531 */ /* x59569 */ /* x59568 */ /* x59595 */ /* x59594 */ /* x59642 */ /* x59641 */ /* x59665 */ /* x59664 */ /* x59703 */ /* x59702 */ /* x59741 */ /* x59740 */ /* x59800 */ /* x59799 */ /* x59835 */ /* x59834 */ /* x59875 */ /* x59874 */ /* x59908 */ /* x59907 */ /* x59961 */ /* x59960 */ /* x59974 */ /* x59973 */ /* x60028 */ /* x60027 */ /* x60091 */ /* x60090 */ /* x60169 */ /* x60168 */ /* x60286 */ /* x60285 */ /* x60297 */ /* x60296 */ /* x60339 */ /* x60338 */ /* x60404 */ /* x60403 */ /* x60502 */ /* x60501 */ /* x60573 */ /* x60572 */ /* x60674 */ /* x60673 */ /* x60741 */ /* x60740 */ /* x60792 */ /* x60791 */ /* x60837 */ /* x60836 */ /* x60882 */ /* x60881 */ /* x60939 */ /* x60938 */ /* x60972 */ /* x60971 */ /* x60984 */ /* x60983 */ /* x61017 */ /* x61016 */ /* x61062 */ /* x61061 */ /* x61107 */ /* x61106 */ /* x61119 */ /* x61118 */ /* x61164 */ /* x61163 */ /* x61197 */ /* x61196 */ /* x61209 */ /* x61208 */ /* x61242 */ /* x61241 */ /* x61287 */ /* x61286 */ /* x61332 */ /* x61331 */ /* x61344 */ /* x61343 */ /* x61377 */ /* x61376 */ /* x61389 */ /* x61388 */ /* x61422 */ /* x61421 */ /* x61434 */ /* x61433 */ /* x61467 */ /* x61466 */ /* x61479 */ /* x61478 */ /* x61512 */ /* x61511 */ /* x61524 */ /* x61523 */ /* x61557 */ /* x61556 */ /* x61602 */ /* x61601 */ /* x61647 */ /* x61646 */ /* x61659 */ /* x61658 */ /* x61692 */ /* x61691 */ /* x61704 */ /* x61703 */ /* x61737 */ /* x61736 */ /* x61749 */ /* x61748 */ /* x61782 */ /* x61781 */ /* x61794 */ /* x61793 */ /* x61827 */ /* x61826 */ /* x61839 */ /* x61838 */ /* x61872 */ /* x61871 */ /* x61884 */ /* x61883 */ /* x61917 */ /* x61916 */ /* x61962 */ /* x61961 */ /* x62007 */ /* x62006 */ /* x62019 */ /* x62018 */ /* x62052 */ /* x62051 */ /* x62064 */ /* x62063 */ /* x62097 */ /* x62096 */ /* x62142 */ /* x62141 */ /* x62187 */ /* x62186 */ /* x62199 */ /* x62198 */ /* x62232 */ /* x62231 */ /* x62244 */ /* x62243 */ /* x62277 */ /* x62276 */ /* x62289 */ /* x62288 */ /* x62322 */ /* x62321 */ /* x62334 */ /* x62333 */ /* x62367 */ /* x62366 */ /* x62379 */ /* x62378 */ /* x62412 */ /* x62411 */ /* x62457 */ /* x62456 */ /* x62502 */ /* x62501 */ /* x62547 */ /* x62546 */ /* x62592 */ /* x62591 */ /* x62604 */ /* x62603 */ /* x62637 */ /* x62636 */ /* x62649 */ /* x62648 */ /* x62682 */ /* x62681 */ /* x62694 */ /* x62693 */ /* x62727 */ /* x62726 */ /* x62739 */ /* x62738 */ /* x62772 */ /* x62771 */ /* x62784 */ /* x62783 */ /* x62817 */ /* x62816 */ /* x62829 */ /* x62828 */ /* x62862 */ /* x62861 */ /* x62874 */ /* x62873 */ /* x62907 */ /* x62906 */ /* x62952 */ /* x62951 */ /* x62997 */ /* x62996 */ /* x63009 */ /* x63008 */ /* x63042 */ /* x63041 */ /* x63054 */ /* x63053 */ /* x63087 */ /* x63086 */ /* x63099 */ /* x63098 */ /* x63132 */ /* x63131 */ /* x63144 */ /* x63143 */ /* x63177 */ /* x63176 */ /* x63189 */ /* x63188 */ /* x63222 */ /* x63221 */ /* x63234 */ /* x63233 */ /* x63267 */ /* x63266 */ /* x63279 */ /* x63278 */ /* x63312 */ /* x63311 */ /* x63324 */ /* x63323 */ /* x63357 */ /* x63356 */ /* x63402 */ /* x63401 */ /* x63447 */ /* x63446 */ /* x63492 */ /* x63491 */ /* x63504 */ /* x63503 */ /* x63537 */ /* x63536 */ /* x63549 */ /* x63548 */ /* x63582 */ /* x63581 */ /* x63594 */ /* x63593 */ /* x63627 */ /* x63626 */ /* x63639 */ /* x63638 */ /* x63672 */ /* x63671 */ /* x63684 */ /* x63683 */ /* x63717 */ /* x63716 */ /* x63729 */ /* x63728 */ /* x63762 */ /* x63761 */ /* x63774 */ /* x63773 */ /* x63807 */ /* x63806 */ /* x63852 */ /* x63851 */ /* x63897 */ /* x63896 */ /* x63942 */ /* x63941 */ /* x63954 */ /* x63953 */ /* x63987 */ /* x63986 */ /* x63999 */ /* x63998 */ /* x64032 */ /* x64031 */ /* x64044 */ /* x64043 */ /* x64077 */ /* x64076 */ /* x64089 */ /* x64088 */ /* x64122 */ /* x64121 */ /* x64134 */ /* x64133 */ /* x64167 */ /* x64166 */ /* x64179 */ /* x64178 */ /* x64212 */ /* x64211 */ /* x64257 */ /* x64256 */ /* x64302 */ /* x64301 */ /* x64347 */ /* x64346 */ /* x64359 */ /* x64358 */ /* x64392 */ /* x64391 */ /* x64404 */ /* x64403 */ /* x64437 */ /* x64436 */ /* x64449 */ /* x64448 */ /* x64482 */ /* x64481 */ /* x64675 */ /* x64674 */ /* x64868 */ /* x64867 */ /* x64874 */ /* x64873 */ /* x64880 */ /* x64879 */ /* x64886 */ /* x64885 */ /* x64899 */ /* x64898 */ /* x64905 */ /* x64904 */ /* x64911 */ /* x64910 */ /* x64917 */ /* x64916 */ /* x64930 */ /* x64929 */ /* x64936 */ /* x64935 */ /* x64957 */ /* x64956 */ /* x64974 */ /* x64973 */ /* x64999 */ /* x64998 */ /* x65005 */ /* x65004 */ /* x65011 */ /* x65010 */ /* x65017 */ /* x65016 */ /* x65023 */ /* x65022 */ /* x65037 */ /* x65036 */ /* x65050 */ /* x65049 */ /* x65064 */ /* x65063 */ /* x65078 */ /* x65077 */ /* x65107 */ /* x65106 */ /* x65134 */ /* x65133 */ /* x65141 */ /* x65140 */ /* x65211 */ /* x65210 */ /* x65268 */ /* x65267 */ /* x65275 */ /* x65274 */ /* x65308 */ /* x65307 */ /* x65334 */ /* x65333 */ /* x65347 */ /* x65346 */ /* x65368 */ /* x65367 */ /* x65446 */ /* x65445 */ /* x65619 */ /* x65618 */ /* x65787 */ /* x65786 */ /* x65980 */ /* x65979 */ /* x66184 */ /* x66183 */ /* x66366 */ /* x66365 */ /* x66691 */ /* x66690 */ /* x66705 */ /* x66704 */ /* x67381 */ /* x67380 */ /* x67395 */ /* x67394 */ /* x67440 */ /* x67439 */ /* x67474 */ /* x67473 */ /* x67497 */ /* x67496 */ /* x67520 */ /* x67519 */ /* x67543 */ /* x67542 */ /* x67562 */ /* x67561 */ /* x67581 */ /* x67580 */ /* x67616 */ /* x67615 */ /* x67798 */ /* x67797 */ /* x67980 */ /* x67979 */ /* x68173 */ /* x68172 */ /* x68377 */ /* x68376 */ /* x68397 */ /* x68396 */ /* x68448 */ /* x68447 */ /* x69021 */ /* x69020 */ /* x69033 */ /* x69032 */ /* x69035 */ /* x69034 stalin.sc:3125:106865 */ a1680 = (unsigned)FALSE_TYPE; /* x69037 */ /* x69036 stalin.sc:3126:106882 */ a1679.tag = FALSE_TYPE; /* x69039 */ /* x69038 stalin.sc:3127:106899 */ a1678 = (struct structure_type27650 *)FALSE_TYPE; /* x69041 */ /* x69040 stalin.sc:3128:106915 */ /* x69043 */ /* x69042 stalin.sc:3129:106934 */ a1676 = (struct structure_type27650 *)FALSE_TYPE; /* x69045 */ /* x69044 stalin.sc:3130:106953 */ a1675 = (struct structure_type27650 *)FALSE_TYPE; /* x69047 */ /* x69046 stalin.sc:3131:106978 */ a1674 = (struct structure_type27650 *)FALSE_TYPE; /* x69049 */ /* x69048 stalin.sc:3132:107004 */ a1673 = (struct structure_type27650 *)FALSE_TYPE; /* x69051 */ /* x69050 stalin.sc:3133:107040 */ a1672 = (struct structure_type27650 *)FALSE_TYPE; /* x69053 */ /* x69052 stalin.sc:3134:107078 */ a1671 = (struct structure_type27650 *)FALSE_TYPE; /* x69055 */ /* x69054 stalin.sc:3135:107116 */ a1670 = (struct structure_type27650 *)FALSE_TYPE; /* x69057 */ /* x69056 stalin.sc:3136:107154 */ a1669 = (struct structure_type27650 *)FALSE_TYPE; /* x69059 */ /* x69058 stalin.sc:3137:107196 */ a1668 = (struct structure_type27650 *)FALSE_TYPE; /* x69061 */ /* x69060 stalin.sc:3138:107239 */ a1667 = (struct structure_type27650 *)FALSE_TYPE; /* x69063 */ /* x69062 stalin.sc:3139:107278 */ a1666 = (struct structure_type27650 *)FALSE_TYPE; /* x69256 */ /* x69255 */ /* x69300 */ /* x69299 */ /* x69340 */ /* x69339 */ /* x69352 */ /* x69351 */ /* x69385 */ /* x69384 */ /* x69397 */ /* x69396 */ /* x69430 */ /* x69429 */ /* x69442 */ /* x69441 */ /* x69475 */ /* x69474 */ /* x69487 */ /* x69486 */ /* x69520 */ /* x69519 */ /* x69532 */ /* x69531 */ /* x69565 */ /* x69564 */ /* x69577 */ /* x69576 */ /* x69610 */ /* x69609 */ /* x69622 */ /* x69621 */ /* x69655 */ /* x69654 */ /* x69698 */ /* x69697 */ /* x69709 */ /* x69708 */ /* x69717 */ /* x69716 */ /* x69724 */ /* x69723 */ /* x69747 */ /* x69746 */ /* x69769 */ /* x69768 */ /* x69788 */ /* x69787 */ /* x69807 */ /* x69806 */ /* x69833 */ /* x69832 */ /* x69879 */ /* x69878 */ /* x69887 */ /* x69886 */ /* x69925 */ /* x69924 */ /* x69941 */ /* x69940 */ /* x69951 */ /* x69950 */ /* x69953 */ /* x69952 stalin.sc:3395:115580 */ a1634 = (unsigned)FALSE_TYPE; /* x69955 */ /* x69954 stalin.sc:3396:115597 */ a1633.tag = FALSE_TYPE; /* x69963 */ /* x69962 */ /* x70060 */ /* x70059 */ /* x70072 */ /* x70071 */ /* x70105 */ /* x70104 */ /* x70117 */ /* x70116 */ /* x70150 */ /* x70149 */ /* x70162 */ /* x70161 */ /* x70195 */ /* x70194 */ /* x70207 */ /* x70206 */ /* x70240 */ /* x70239 */ /* x70252 */ /* x70251 */ /* x70285 */ /* x70284 */ /* x70297 */ /* x70296 */ /* x70330 */ /* x70329 */ /* x70337 */ /* x70336 */ /* x70622 */ /* x70621 */ /* x70676 */ /* x70675 */ /* x70730 */ /* x70729 */ /* x70738 */ /* x70737 */ /* x70746 */ /* x70745 */ /* x70754 */ /* x70753 */ /* x71648 */ /* x71647 */ /* x71724 */ /* x71723 */ /* x71855 */ /* x71854 */ /* x71975 */ /* x71974 */ /* x71980 */ /* x71979 */ /* x72025 */ /* x72024 */ /* x72094 */ /* x72093 */ /* x72099 */ /* x72098 */ /* x72144 */ /* x72143 */ /* x72213 */ /* x72212 */ /* x72218 */ /* x72217 */ /* x72251 */ /* x72250 */ /* x72320 */ /* x72319 */ /* x72325 */ /* x72324 */ /* x72360 */ /* x72359 */ /* x72429 */ /* x72428 */ /* x72431 */ /* x72430 stalin.sc:3990:134557 */ a1595 = (unsigned)FALSE_TYPE; /* x72433 */ /* x72432 stalin.sc:3991:134574 */ a1594.tag = FALSE_TYPE; /* x72435 */ /* x72434 stalin.sc:3992:134592 */ /* x72445 */ /* x72444 */ /* x72560 */ /* x72559 */ /* x72572 */ /* x72571 */ /* x72605 */ /* x72604 */ /* x72617 */ /* x72616 */ /* x72650 */ /* x72649 */ /* x72662 */ /* x72661 */ /* x72695 */ /* x72694 */ /* x72707 */ /* x72706 */ /* x72740 */ /* x72739 */ /* x72752 */ /* x72751 */ /* x72785 */ /* x72784 */ /* x72797 */ /* x72796 */ /* x72830 */ /* x72829 */ /* x72842 */ /* x72841 */ /* x72875 */ /* x72874 */ /* x72887 */ /* x72886 */ /* x72920 */ /* x72919 */ /* x72932 */ /* x72931 */ /* x72965 */ /* x72964 */ /* x72977 */ /* x72976 */ /* x73010 */ /* x73009 */ /* x73022 */ /* x73021 */ /* x73055 */ /* x73054 */ /* x73067 */ /* x73066 */ /* x73072 */ /* x73071 */ /* x73099 */ /* x73098 */ /* x73126 */ /* x73125 */ /* x73153 */ /* x73152 */ /* x73180 */ /* x73179 */ /* x73207 */ /* x73206 */ /* x73234 */ /* x73233 */ /* x73261 */ /* x73260 */ /* x73278 */ /* x73277 */ /* x73286 */ /* x73285 */ /* x73352 */ /* x73351 */ /* x73358 */ /* x73357 */ /* x73382 */ /* x73381 */ /* x73391 */ /* x73390 */ /* x73432 */ /* x73431 */ /* x73451 */ /* x73450 */ /* x73461 */ /* x73460 */ /* x73593 */ /* x73592 */ /* x73715 */ /* x73714 */ /* x73732 */ /* x73731 */ /* x73759 */ /* x73758 */ /* x73786 */ /* x73785 */ /* x73813 */ /* x73812 */ /* x73840 */ /* x73839 */ /* x73867 */ /* x73866 */ /* x73894 */ /* x73893 */ /* x73924 */ /* x73923 */ /* x73951 */ /* x73950 */ /* x73995 */ /* x73994 */ /* x74088 */ /* x74087 */ /* x74095 */ /* x74094 */ /* x74127 */ /* x74126 */ /* x74153 */ /* x74152 */ /* x74162 */ /* x74161 */ /* x74178 */ /* x74177 */ /* x74229 */ /* x74228 */ /* x74281 */ /* x74280 */ /* x74364 */ /* x74363 */ /* x74483 */ /* x74482 */ /* x74507 */ /* x74506 */ /* x74521 */ /* x74520 */ /* x74523 */ /* x74522 stalin.sc:4447:149100 */ /* x74525 */ /* x74524 stalin.sc:4448:149117 */ a1524 = (struct structure_type24753 *)FALSE_TYPE; /* x74541 */ /* x74540 */ /* x74625 */ /* x74624 */ /* x74631 */ /* x74630 */ /* x74645 */ /* x74644 */ /* x74669 */ /* x74668 */ /* x74717 */ /* x74716 */ /* x74885 */ /* x74884 */ /* x74939 */ /* x74938 */ /* x74983 */ /* x74982 */ /* x75099 */ /* x75098 */ /* x75112 */ /* x75111 */ /* x75139 */ /* x75138 */ /* x75158 */ /* x75157 */ /* x75333 */ /* x75332 */ /* x75426 */ /* x75425 */ /* x75492 */ /* x75491 */ /* x75531 */ /* x75530 */ /* x75697 */ /* x75696 */ /* x75749 */ /* x75748 */ /* x75813 */ /* x75812 */ /* x75833 */ /* x75832 */ /* x75869 */ /* x75868 */ /* x76031 */ /* x76030 */ /* x76134 */ /* x76133 */ /* x76237 */ /* x76236 */ /* x76304 */ /* x76303 */ /* x76395 */ /* x76394 */ /* x76402 */ /* x76401 */ /* x76464 */ /* x76463 */ /* x76513 */ /* x76512 */ /* x76532 */ /* x76531 */ /* x76618 */ /* x76617 */ /* x76782 */ /* x76781 */ /* x76888 */ /* x76887 */ /* x76902 */ /* x76901 */ /* x77325 */ /* x77324 */ /* x77684 */ /* x77683 */ /* x77698 */ /* x77697 */ /* x77996 */ /* x77995 */ /* x79654 */ /* x79653 */ /* x79681 */ /* x79680 */ /* x79690 */ /* x79689 */ /* x79876 */ /* x79875 */ /* x79962 */ /* x79961 */ /* x79982 */ /* x79981 */ /* x80099 */ /* x80098 */ /* x80105 */ /* x80104 */ /* x80111 */ /* x80110 */ /* x80116 */ /* x80115 */ /* x80128 */ /* x80127 */ /* x80148 */ /* x80147 */ /* x82235 */ /* x82234 */ /* x82250 */ /* x82249 */ /* x86178 */ /* x86177 */ /* x86246 */ /* x86245 stalin.sc:6906:239480 */ /* x86272 */ /* x86271 */ /* x86320 */ /* x86319 */ /* x86325 */ /* x86324 */ /* x86333 */ /* x86332 */ /* x86343 */ /* x86342 */ /* x86389 */ /* x86388 */ /* x86396 */ /* x86395 */ /* x86403 */ /* x86402 */ /* x86408 */ /* x86407 */ /* x86415 */ /* x86414 */ /* x86424 */ /* x86423 */ /* x86435 */ /* x86434 */ /* x86448 */ /* x86447 */ /* x86463 */ /* x86462 */ /* x86480 */ /* x86479 */ /* x86499 */ /* x86498 */ /* x86520 */ /* x86519 */ /* x86543 */ /* x86542 */ /* x86568 */ /* x86567 */ /* x86595 */ /* x86594 */ /* x86600 */ /* x86599 */ /* x86628 */ /* x86627 */ /* x86635 */ /* x86634 */ /* x86642 */ /* x86641 */ /* x86649 */ /* x86648 */ /* x86656 */ /* x86655 */ /* x86663 */ /* x86662 */ /* x86670 */ /* x86669 */ /* x86678 */ /* x86677 */ /* x86685 */ /* x86684 */ /* x86692 */ /* x86691 */ /* x86699 */ /* x86698 */ /* x86706 */ /* x86705 */ /* x86713 */ /* x86712 */ /* x86720 */ /* x86719 */ /* x86728 */ /* x86727 */ /* x86762 */ /* x86761 */ /* x86785 */ /* x86784 */ /* x86833 */ /* x86832 */ /* x86853 */ /* x86852 */ /* x86861 */ /* x86860 */ /* x86877 */ /* x86876 */ /* x86884 */ /* x86883 */ /* x86892 */ /* x86891 */ /* x86899 */ /* x86898 */ /* x86945 */ /* x86944 */ /* x87052 */ /* x87051 */ /* x87184 */ /* x87183 */ /* x87343 */ /* x87342 */ /* x87508 */ /* x87507 */ /* x87671 */ /* x87670 */ /* x87678 */ /* x87677 */ /* x87688 */ /* x87687 */ /* x87772 */ /* x87771 */ /* x87807 */ /* x87806 */ /* x87862 */ /* x87861 */ /* x87904 */ /* x87903 */ /* x87944 */ /* x87943 */ /* x88644 */ /* x88643 */ /* x88678 */ /* x88677 */ /* x88710 */ /* x88709 */ /* x89604 */ /* x89603 */ /* x92399 */ /* x92398 */ /* x92965 */ /* x92964 */ /* x93041 */ /* x93040 */ /* x93593 */ /* x93592 stalin.sc:8172:279247 */ a1389 = &t93776; /* x93832 */ /* x93831 */ /* x93860 */ /* x93859 */ /* x93895 */ /* x93894 */ /* x94262 */ /* x94261 */ /* x94301 */ /* x94300 */ /* x94561 */ /* x94560 */ /* x94598 */ /* x94597 */ /* x94615 */ /* x94614 */ /* x95178 */ /* x95177 */ /* x95822 */ /* x95821 */ /* x95954 */ /* x95953 */ /* x96298 */ /* x96297 */ /* x96473 */ /* x96472 */ /* x96483 */ /* x96482 */ /* x96501 */ /* x96500 */ /* x96612 */ /* x96611 */ /* x96683 */ /* x96682 */ /* x97345 */ /* x97344 */ /* x97749 */ /* x97748 */ /* x97880 */ /* x97879 */ /* x98891 */ /* x98890 */ /* x98912 */ /* x98911 */ /* x98956 */ /* x98955 */ /* x99183 */ /* x99182 */ /* x99326 */ /* x99325 */ /* x99775 */ /* x99774 */ /* x100000 */ /* x99999 */ /* x100577 */ /* x100576 */ /* x103596 */ /* x103595 */ /* x103637 */ /* x103636 */ /* x104098 */ /* x104097 */ /* x104173 */ /* x104172 */ /* x104236 */ /* x104235 */ /* x104311 */ /* x104310 */ /* x104374 */ /* x104373 */ /* x104427 */ /* x104426 */ /* x104532 */ /* x104531 */ /* x104596 */ /* x104595 */ /* x104611 */ /* x104610 */ /* x104659 */ /* x104658 */ /* x104667 */ /* x104666 */ /* x104675 */ /* x104674 */ /* x104690 */ /* x104689 */ /* x104705 */ /* x104704 */ /* x104720 */ /* x104719 */ /* x104735 */ /* x104734 */ /* x104750 */ /* x104749 */ /* x104780 */ /* x104779 */ /* x104835 */ /* x104834 */ /* x104850 */ /* x104849 */ /* x104860 */ /* x104859 */ /* x105682 */ /* x105681 */ /* x105730 */ /* x105729 */ /* x106849 */ /* x106848 */ /* x106993 */ /* x106992 */ /* x107738 */ /* x107737 */ /* x107969 */ /* x107968 */ /* x108339 */ /* x108338 */ /* x108381 */ /* x108380 */ /* x108433 */ /* x108432 */ /* x108464 */ /* x108463 */ /* x109242 */ /* x109241 */ /* x109288 */ /* x109287 */ /* x109309 */ /* x109308 */ /* x109383 */ /* x109382 */ /* x110039 */ /* x110038 */ /* x110261 */ /* x110260 */ /* x110889 */ /* x110888 */ /* x110928 */ /* x110927 */ /* x111632 */ /* x111631 */ /* x111643 */ /* x111642 */ /* x111654 */ /* x111653 */ /* x111663 */ /* x111662 */ /* x112273 */ /* x112272 */ /* x112586 */ /* x112585 */ /* x113096 */ /* x113095 */ /* x113186 */ /* x113185 */ /* x113292 */ /* x113291 */ /* x113396 */ /* x113395 */ /* x113502 */ /* x113501 */ /* x113537 */ /* x113536 */ /* x113590 */ /* x113589 */ /* x113628 */ /* x113627 */ /* x113678 */ /* x113677 */ /* x113734 */ /* x113733 */ /* x113853 */ /* x113852 */ /* x114239 */ /* x114238 */ /* x114525 */ /* x114524 */ /* x114549 */ /* x114548 */ /* x116022 */ /* x116021 */ /* x116047 */ /* x116046 */ /* x116119 */ /* x116118 */ /* x116124 */ /* x116123 */ /* x116130 */ /* x116129 */ /* x116136 */ /* x116135 */ /* x116138 */ /* x116137 stalin.sc:13177:462147 */ a1281 = FALSE_TYPE; /* x116258 */ /* x116257 */ /* x116268 */ /* x116267 */ /* x116270 */ /* x116269 stalin.sc:13210:463208 */ /* x116336 */ /* x116335 */ /* x116355 */ /* x116354 */ /* x116428 */ /* x116427 */ /* x116470 */ /* x116469 */ /* x116879 */ /* x116878 */ /* x116978 */ /* x116977 */ /* x116990 */ /* x116989 */ /* x117053 */ /* x117052 */ /* x117625 */ /* x117624 */ /* x118174 */ /* x118173 */ /* x118211 */ /* x118210 stalin.sc:13482:473760 */ /* x118954 */ /* x118953 */ /* x120397 */ /* x120396 */ /* x120413 */ /* x120412 */ /* x120434 */ /* x120433 */ /* x120727 */ /* x120726 stalin.sc:14111:498019 */ a1252.tag = FALSE_TYPE; /* x120729 */ /* x120728 stalin.sc:14112:498040 */ a1251.tag = FALSE_TYPE; /* x120731 */ /* x120730 stalin.sc:14113:498061 */ a1250.tag = FALSE_TYPE; /* x120733 */ /* x120732 stalin.sc:14114:498082 */ a1249.tag = FALSE_TYPE; /* x120735 */ /* x120734 stalin.sc:14115:498100 */ a1248.tag = FALSE_TYPE; /* x120737 */ /* x120736 stalin.sc:14116:498123 */ a1247.tag = FALSE_TYPE; /* x120739 */ /* x120738 stalin.sc:14117:498153 */ a1246.tag = FALSE_TYPE; /* x120741 */ /* x120740 stalin.sc:14118:498172 */ a1245.tag = FALSE_TYPE; /* x120743 */ /* x120742 stalin.sc:14119:498193 */ a1244.tag = FALSE_TYPE; /* x120745 */ /* x120744 stalin.sc:14120:498222 */ a1243.tag = FALSE_TYPE; /* x120747 */ /* x120746 stalin.sc:14121:498253 */ a1242.tag = FALSE_TYPE; /* x120749 */ /* x120748 stalin.sc:14122:498284 */ a1241.tag = FALSE_TYPE; /* x120751 */ /* x120750 stalin.sc:14125:498433 */ a1240.tag = FALSE_TYPE; /* x120753 */ /* x120752 stalin.sc:14126:498464 */ a1239.tag = FALSE_TYPE; /* x120755 */ /* x120754 stalin.sc:14127:498492 */ a1238.tag = FALSE_TYPE; /* x120757 */ /* x120756 stalin.sc:14128:498525 */ a1237.tag = FALSE_TYPE; /* x120759 */ /* x120758 stalin.sc:14129:498554 */ a1236.tag = FALSE_TYPE; /* x120761 */ /* x120760 stalin.sc:14130:498585 */ a1235.tag = FALSE_TYPE; /* x120763 */ /* x120762 stalin.sc:14131:498609 */ a1234.tag = FALSE_TYPE; /* x120765 */ /* x120764 stalin.sc:14132:498635 */ a1233.tag = FALSE_TYPE; /* x120767 */ /* x120766 stalin.sc:14133:498661 */ a1232.tag = FALSE_TYPE; /* x120769 */ /* x120768 stalin.sc:14136:498800 */ a1231.tag = FALSE_TYPE; /* x120771 */ /* x120770 stalin.sc:14137:498826 */ a1230.tag = FALSE_TYPE; /* x120773 */ /* x120772 stalin.sc:14138:498849 */ a1229.tag = FALSE_TYPE; /* x120775 */ /* x120774 stalin.sc:14139:498877 */ a1228.tag = FALSE_TYPE; /* x120777 */ /* x120776 stalin.sc:14141:498930 */ a1227.tag = FALSE_TYPE; /* x120779 */ /* x120778 stalin.sc:14145:498985 */ a1226.tag = FALSE_TYPE; /* x120781 */ /* x120780 stalin.sc:14146:499020 */ a1225.tag = FALSE_TYPE; /* x120783 */ /* x120782 stalin.sc:14150:499078 */ a1224 = FALSE_TYPE; /* x120785 */ /* x120784 stalin.sc:14151:499110 */ a1223 = FALSE_TYPE; /* x120787 */ /* x120786 stalin.sc:14152:499142 */ a1222 = FALSE_TYPE; /* x120789 */ /* x120788 stalin.sc:14153:499179 */ a1221 = FALSE_TYPE; /* x120791 */ /* x120790 stalin.sc:14154:499210 */ a1220 = FALSE_TYPE; /* x120793 */ /* x120792 stalin.sc:14155:499241 */ a1219 = FALSE_TYPE; /* x120795 */ /* x120794 stalin.sc:14156:499272 */ a1218 = FALSE_TYPE; /* x120797 */ /* x120796 stalin.sc:14157:499305 */ a1217 = FALSE_TYPE; /* x120799 */ /* x120798 stalin.sc:14158:499337 */ a1216 = FALSE_TYPE; /* x120801 */ /* x120800 stalin.sc:14159:499366 */ a1215 = FALSE_TYPE; /* x120803 */ /* x120802 stalin.sc:14160:499400 */ a1214 = FALSE_TYPE; /* x120805 */ /* x120804 stalin.sc:14161:499430 */ a1213 = FALSE_TYPE; /* x120807 */ /* x120806 stalin.sc:14162:499462 */ a1212 = FALSE_TYPE; /* x120809 */ /* x120808 stalin.sc:14166:499510 */ a1211 = FALSE_TYPE; /* x120811 */ /* x120810 stalin.sc:14167:499537 */ a1210 = FALSE_TYPE; /* x120813 */ /* x120812 stalin.sc:14168:499564 */ a1209 = FALSE_TYPE; /* x120815 */ /* x120814 stalin.sc:14169:499596 */ a1208 = FALSE_TYPE; /* x120817 */ /* x120816 stalin.sc:14170:499622 */ a1207 = FALSE_TYPE; /* x120819 */ /* x120818 stalin.sc:14171:499648 */ a1206 = FALSE_TYPE; /* x120821 */ /* x120820 stalin.sc:14172:499674 */ a1205 = FALSE_TYPE; /* x120823 */ /* x120822 stalin.sc:14173:499702 */ a1204 = FALSE_TYPE; /* x120825 */ /* x120824 stalin.sc:14174:499729 */ a1203 = FALSE_TYPE; /* x120827 */ /* x120826 stalin.sc:14175:499753 */ a1202 = FALSE_TYPE; /* x120829 */ /* x120828 stalin.sc:14176:499782 */ a1201 = FALSE_TYPE; /* x120831 */ /* x120830 stalin.sc:14178:499801 */ a1200 = (struct structure_type24753 *)FALSE_TYPE; /* x120833 */ /* x120832 stalin.sc:14179:499823 */ a1199.tag = FALSE_TYPE; /* x120835 */ /* x120834 stalin.sc:14180:499845 */ a1198.tag = FALSE_TYPE; /* x120837 */ /* x120836 stalin.sc:14181:499872 */ a1197 = (struct structure_type24753 *)FALSE_TYPE; /* x120839 */ /* x120838 stalin.sc:14182:499898 */ a1196 = (struct structure_type24753 *)FALSE_TYPE; /* x120841 */ /* x120840 stalin.sc:14183:499925 */ a1195 = (struct structure_type24753 *)FALSE_TYPE; /* x120843 */ /* x120842 stalin.sc:14184:499947 */ a1194 = (struct structure_type27501 *)FALSE_TYPE; /* x120885 */ /* x120884 */ /* x120949 */ /* x120948 */ /* x121086 */ /* x121085 */ /* x121107 */ /* x121106 */ /* x121128 */ /* x121127 */ /* x121159 */ /* x121158 */ /* x121180 */ /* x121179 */ /* x121253 */ /* x121252 */ /* x121291 */ /* x121290 */ /* x121585 */ /* x121584 */ /* x121763 */ /* x121762 */ /* x121798 */ /* x121797 */ /* x121871 */ /* x121870 */ /* x121913 */ /* x121912 */ /* x121929 */ /* x121928 */ /* x121960 */ /* x121959 */ /* x122059 */ /* x122058 */ /* x122074 */ /* x122073 */ /* x122132 */ /* x122131 */ /* x122147 */ /* x122146 */ /* x122153 */ /* x122152 */ /* x122159 */ /* x122158 */ /* x122205 */ /* x122204 */ /* x122210 */ /* x122209 */ /* x122256 */ /* x122255 */ /* x122307 */ /* x122306 */ /* x122312 */ /* x122311 */ /* x122375 */ /* x122374 */ /* x122417 */ /* x122416 */ /* x122426 */ /* x122425 */ /* x122434 */ /* x122433 */ /* x122440 */ /* x122439 */ /* x122446 */ /* x122445 */ /* x122484 */ /* x122483 */ /* x122492 */ /* x122491 */ /* x122495 */ /* x122494 */ /* x122498 */ /* x122497 */ /* x122501 */ /* x122500 */ /* x122540 */ /* x122539 */ /* x122549 */ /* x122548 */ /* x122554 */ /* x122553 */ /* x122559 */ /* x122558 */ /* x122687 */ /* x122686 */ /* x122701 */ /* x122700 */ /* x122711 */ /* x122710 */ /* x122726 */ /* x122725 */ /* x122736 */ /* x122735 */ /* x122742 */ /* x122741 */ /* x122771 */ /* x122770 */ /* x122781 */ /* x122780 */ /* x122790 */ /* x122789 */ /* x122796 */ /* x122795 */ /* x122802 */ /* x122801 */ /* x122811 */ /* x122810 */ /* x122820 */ /* x122819 */ /* x122829 */ /* x122828 */ /* x122843 */ /* x122842 */ /* x122890 */ /* x122889 */ /* x122937 */ /* x122936 */ /* x122945 */ /* x122944 */ /* x122954 */ /* x122953 */ /* x122965 */ /* x122964 */ /* x122968 */ /* x122967 */ /* x122971 */ /* x122970 */ /* x122974 */ /* x122973 */ /* x122977 */ /* x122976 */ /* x122980 */ /* x122979 */ /* x122983 */ /* x122982 */ /* x122991 */ /* x122990 */ /* x122999 */ /* x122998 */ /* x123056 */ /* x123055 */ /* x123115 */ /* x123114 */ /* x123122 */ /* x123121 */ /* x123129 */ /* x123128 */ /* x123136 */ /* x123135 */ /* x123147 */ /* x123146 */ /* x123154 */ /* x123153 */ /* x123161 */ /* x123160 */ /* x123168 */ /* x123167 */ /* x123175 */ /* x123174 */ /* x123182 */ /* x123181 */ /* x123189 */ /* x123188 */ /* x123196 */ /* x123195 */ /* x123203 */ /* x123202 */ /* x123210 */ /* x123209 */ /* x123217 */ /* x123216 */ /* x123224 */ /* x123223 */ /* x123231 */ /* x123230 */ /* x123238 */ /* x123237 */ /* x123251 */ /* x123250 */ /* x123297 */ /* x123296 */ /* x123329 */ /* x123328 */ /* x123336 */ /* x123335 */ /* x123343 */ /* x123342 */ /* x123356 */ /* x123355 */ /* x123369 */ /* x123368 */ /* x123401 */ /* x123400 */ /* x123414 */ /* x123413 */ /* x123421 */ /* x123420 */ /* x123427 */ /* x123426 */ /* x123433 */ /* x123432 */ /* x123443 */ /* x123442 */ /* x123450 */ /* x123449 */ /* x123457 */ /* x123456 */ /* x123460 */ /* x123459 */ /* x123468 */ /* x123467 */ /* x123483 */ /* x123482 */ /* x123488 */ /* x123487 */ /* x123498 */ /* x123497 */ /* x123518 */ /* x123517 */ /* x123527 */ /* x123526 */ /* x123543 */ /* x123542 */ /* x123554 */ /* x123553 */ /* x123588 */ /* x123587 */ /* x123709 */ /* x123708 */ /* x123833 */ /* x123832 */ /* x123844 */ /* x123843 */ /* x123869 */ /* x123868 */ /* x124051 */ /* x124050 */ /* x124069 */ /* x124068 */ /* x124077 */ /* x124076 */ /* x124302 */ /* x124301 */ /* x124515 */ /* x124514 */ /* x124518 */ /* x124517 */ /* x124529 */ /* x124528 */ /* x124540 */ /* x124539 */ /* x124551 */ /* x124550 */ /* x124562 */ /* x124561 */ /* x124573 */ /* x124572 */ /* x124584 */ /* x124583 */ /* x124595 */ /* x124594 */ /* x124606 */ /* x124605 */ /* x124617 */ /* x124616 */ /* x124628 */ /* x124627 */ /* x124639 */ /* x124638 */ /* x124651 */ /* x124650 */ /* x124662 */ /* x124661 */ /* x124674 */ /* x124673 */ /* x124687 */ /* x124686 */ /* x124699 */ /* x124698 */ /* x124713 */ /* x124712 */ /* x124726 */ /* x124725 */ /* x124739 */ /* x124738 */ /* x124753 */ /* x124752 */ /* x124765 */ /* x124764 */ /* x124777 */ /* x124776 */ /* x124839 */ /* x124838 */ /* x124860 */ /* x124859 */ /* x124881 */ /* x124880 */ /* x124935 */ /* x124934 */ /* x124959 */ /* x124958 */ /* x124977 */ /* x124976 */ /* x124988 */ /* x124987 */ /* x125010 */ /* x125009 */ /* x125166 */ /* x125165 */ /* x125183 */ /* x125182 */ /* x125205 */ /* x125204 */ /* x125379 */ /* x125378 */ /* x125628 */ /* x125627 */ /* x125658 */ /* x125657 */ /* x125687 */ /* x125686 */ /* x126056 */ /* x126055 */ /* x126084 */ /* x126083 */ /* x126091 */ /* x126090 */ /* x126097 */ /* x126096 */ /* x126167 */ /* x126166 */ /* x126387 */ /* x126386 */ /* x126699 */ /* x126698 */ /* x126967 */ /* x126966 */ /* x127007 */ /* x127006 */ /* x127042 */ /* x127041 */ /* x127094 */ /* x127093 */ /* x127391 */ /* x127390 */ /* x127496 */ /* x127495 */ /* x127525 */ /* x127524 */ /* x127939 */ /* x127938 */ /* x128074 */ /* x128073 */ /* x128426 */ /* x128425 */ /* x128579 */ /* x128578 */ /* x128755 */ /* x128754 */ /* x128789 */ /* x128788 */ /* x128799 */ /* x128798 */ /* x128806 */ /* x128805 */ /* x128816 */ /* x128815 */ /* x128826 */ /* x128825 */ /* x128836 */ /* x128835 */ /* x128846 */ /* x128845 */ /* x128852 */ /* x128851 */ /* x128862 */ /* x128861 */ /* x128870 */ /* x128869 */ /* x128901 */ /* x128900 */ /* x128909 */ /* x128908 */ /* x128927 */ /* x128926 */ /* x128935 */ /* x128934 */ /* x128943 */ /* x128942 */ /* x129167 */ /* x129166 */ /* x129179 */ /* x129178 */ /* x129189 */ /* x129188 */ /* x129199 */ /* x129198 */ /* x129209 */ /* x129208 */ /* x129215 */ /* x129214 */ /* x129227 */ /* x129226 */ /* x129237 */ /* x129236 */ /* x129240 */ /* x129239 */ /* x129272 */ /* x129271 */ /* x129304 */ /* x129303 */ /* x129314 */ /* x129313 */ /* x129324 */ /* x129323 */ /* x129332 */ /* x129331 */ /* x129340 */ /* x129339 */ /* x129348 */ /* x129347 */ /* x129356 */ /* x129355 */ /* x129364 */ /* x129363 */ /* x129371 */ /* x129370 */ /* x129378 */ /* x129377 */ /* x129385 */ /* x129384 */ /* x129392 */ /* x129391 */ /* x129399 */ /* x129398 */ /* x129406 */ /* x129405 */ /* x129413 */ /* x129412 */ /* x129419 */ /* x129418 */ /* x129426 */ /* x129425 */ /* x129433 */ /* x129432 */ /* x129440 */ /* x129439 */ /* x129447 */ /* x129446 */ /* x129454 */ /* x129453 */ /* x129461 */ /* x129460 */ /* x129467 */ /* x129466 */ /* x129474 */ /* x129473 */ /* x129481 */ /* x129480 */ /* x129488 */ /* x129487 */ /* x129499 */ /* x129498 */ /* x129511 */ /* x129510 */ /* x129521 */ /* x129520 */ /* x129533 */ /* x129532 */ /* x129543 */ /* x129542 */ /* x129555 */ /* x129554 */ /* x129558 */ /* x129557 */ /* x129561 */ /* x129560 */ /* x129968 */ /* x129967 */ /* x130006 */ /* x130005 */ /* x130069 */ /* x130068 */ /* x130078 */ /* x130077 */ /* x130087 */ /* x130086 */ /* x130097 */ /* x130096 */ /* x130107 */ /* x130106 */ /* x130113 */ /* x130112 */ /* x130142 */ /* x130141 */ /* x130163 */ /* x130162 */ /* x130176 */ /* x130175 */ /* x130597 */ /* x130596 */ /* x130644 */ /* x130643 */ /* x130875 */ /* x130874 */ /* x131105 */ /* x131104 */ /* x131159 */ /* x131158 */ /* x131218 */ /* x131217 */ /* x131393 */ /* x131392 */ /* x131520 */ /* x131519 */ /* x131619 */ /* x131618 */ /* x131637 */ /* x131636 */ /* x131648 */ /* x131647 */ /* x131664 */ /* x131663 */ /* x131760 */ /* x131759 */ /* x131821 */ /* x131820 */ /* x131897 */ /* x131896 */ /* x132081 */ /* x132080 */ /* x132180 */ /* x132179 */ /* x132241 */ /* x132240 */ /* x132317 */ /* x132316 */ /* x132843 */ /* x132842 */ /* x132979 */ /* x132978 */ /* x133091 */ /* x133090 */ /* x133140 */ /* x133139 */ /* x133161 */ /* x133160 */ /* x133384 */ /* x133383 */ /* x133471 */ /* x133470 */ /* x133685 */ /* x133684 */ /* x133692 */ /* x133691 */ /* x133699 */ /* x133698 */ /* x133711 */ /* x133710 */ /* x133721 */ /* x133720 */ /* x133737 */ /* x133736 */ /* x133804 */ /* x133803 */ /* x133823 */ /* x133822 */ /* x133842 */ /* x133841 */ /* x133847 */ /* x133846 */ /* x133853 */ /* x133852 */ /* x133894 */ /* x133893 */ /* x133935 */ /* x133934 */ /* x133985 */ /* x133984 */ /* x134001 */ /* x134000 */ /* x134016 */ /* x134015 */ /* x134031 */ /* x134030 */ /* x134040 */ /* x134039 */ /* x134050 */ /* x134049 */ /* x134060 */ /* x134059 */ /* x134070 */ /* x134069 */ /* x134081 */ /* x134080 */ /* x134445 */ /* x134444 */ /* x134686 */ /* x134685 */ /* x134846 */ /* x134845 */ /* x134938 */ /* x134937 */ /* x135821 */ /* x135820 */ /* x136073 */ /* x136072 */ /* x136307 */ /* x136306 */ /* x136520 */ /* x136519 */ /* x136801 */ /* x136800 */ /* x136814 */ /* x136813 */ /* x137392 */ /* x137391 */ /* x137445 */ /* x137444 */ /* x137866 */ /* x137865 */ /* x138182 */ /* x138181 */ /* x138797 */ /* x138796 */ /* x139111 */ /* x139110 */ /* x139965 */ /* x139964 stalin.sc:17849:623957 */ a877 = &t94051; /* x139967 */ /* x139966 stalin.sc:17999:631754 */ a876 = (struct structure_type24753 *)FALSE_TYPE; /* x139969 */ /* x139968 stalin.sc:18001:631778 */ a875 = (struct structure_type24753 *)FALSE_TYPE; /* x139991 */ /* x139990 */ /* x140036 */ /* x140035 */ /* x140067 */ /* x140066 */ /* x140259 */ /* x140258 */ /* x140282 */ /* x140281 */ /* x140337 */ /* x140336 */ /* x140459 */ /* x140458 */ /* x142420 */ /* x142419 */ /* x142429 */ /* x142428 */ /* x142440 */ /* x142439 */ /* x142449 */ /* x142448 */ /* x142518 */ /* x142517 */ /* x142567 */ /* x142566 */ /* x142793 */ /* x142792 */ /* x142795 */ /* x142794 stalin.sc:18589:652987 */ a860 = (unsigned)FALSE_TYPE; /* x142823 */ /* x142822 */ /* x143115 */ /* x143114 */ /* x143208 */ /* x143207 */ /* x143366 */ /* x143365 */ /* x143848 */ /* x143847 */ /* x143911 */ /* x143910 */ /* x144023 */ /* x144022 */ /* x144164 */ /* x144163 */ /* x144302 */ /* x144301 */ /* x144579 */ /* x144578 */ /* x144691 */ /* x144690 */ /* x144792 */ /* x144791 */ /* x145218 */ /* x145217 */ /* x145375 */ /* x145374 */ /* x145399 */ /* x145398 */ /* x145428 */ /* x145427 */ /* x145489 */ /* x145488 */ /* x145554 */ /* x145553 */ /* x145602 */ /* x145601 */ /* x145755 */ /* x145754 */ /* x145757 */ /* x145756 stalin.sc:19314:676457 */ a839 = 3000; /* x145784 */ /* x145783 */ /* x145935 */ /* x145934 */ /* x145992 */ /* x145991 */ /* x145994 */ /* x145993 stalin.sc:19385:678656 */ a835 = (unsigned)FALSE_TYPE; /* x146009 */ /* x146008 */ /* x146035 */ /* x146034 */ /* x146055 */ /* x146054 */ /* x146088 */ /* x146087 */ /* x146184 */ /* x146183 */ /* x146435 */ /* x146434 */ /* x146612 */ /* x146611 */ /* x146998 */ /* x146997 */ /* x147872 */ /* x147871 */ /* x147895 */ /* x147894 */ /* x148238 */ /* x148237 */ /* x148251 */ /* x148250 */ /* x148269 */ /* x148268 */ /* x148424 */ /* x148423 */ /* x148466 */ /* x148465 */ /* x148523 */ /* x148522 */ /* x151132 */ /* x151131 */ /* x151552 */ /* x151551 */ /* x151660 */ /* x151659 */ /* x151714 */ /* x151713 */ /* x151738 */ /* x151737 */ /* x152740 */ /* x152739 */ /* x152751 */ /* x152750 */ /* x152761 */ /* x152760 */ /* x152800 */ /* x152799 */ /* x152839 */ /* x152838 */ /* x152878 */ /* x152877 */ /* x152917 */ /* x152916 */ /* x152956 */ /* x152955 */ /* x152995 */ /* x152994 */ /* x153031 */ /* x153030 stalin.sc:20901:731795 */ a789 = (struct structure_type24753 *)NULL_TYPE; /* x153052 */ /* x153051 */ /* x153073 */ /* x153072 */ /* x153094 */ /* x153093 */ /* x153115 */ /* x153114 */ /* x153140 */ /* x153139 */ /* x153170 */ /* x153169 */ /* x153191 */ /* x153190 */ /* x153212 */ /* x153211 */ /* x153233 */ /* x153232 */ /* x153250 */ /* x153249 */ /* x153280 */ /* x153279 */ /* x153318 */ /* x153317 */ /* x153364 */ /* x153363 */ /* x153381 */ /* x153380 */ /* x153438 */ /* x153437 */ /* x153462 */ /* x153461 */ /* x153493 */ /* x153492 */ /* x153527 */ /* x153526 */ /* x153564 */ /* x153563 */ /* x153604 */ /* x153603 */ /* x153623 */ /* x153622 */ /* x153674 */ /* x153673 */ /* x153693 */ /* x153692 */ /* x153794 stalin.sc:21036:735765 */ /* x153793 */ /* x153791 */ /* x153696 */ t94479 = q101; /* x153790 */ /* x153698 stalin.sc:21037:735805 */ /* x153702 */ /* x153712 */ /* x153727 */ /* x153777 */ /* x153779 */ /* x153789 */ /* x153697 */ t94481 = NATIVE_PROCEDURE_TYPE6630; t94482 = NATIVE_PROCEDURE_TYPE6608; t94483 = NATIVE_PROCEDURE_TYPE6607; t94484 = NATIVE_PROCEDURE_TYPE6606; t94485 = NATIVE_PROCEDURE_TYPE6605; t94486 = NATIVE_PROCEDURE_TYPE6604; t94487 = NATIVE_PROCEDURE_TYPE6603; t94480 = f16182(t94481, t94482, t94483, t94484, t94485, t94486, t94487); /* x268322 */ t94477 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94477==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94477->s0.tag = EXTERNAL_SYMBOL_TYPE; t94477->s0.value.external_symbol_type = t94479; t94477->s1.tag = STRUCTURE_TYPE24757; t94477->s1.value.structure_type24757 = t94480; /* x153792 */ t94478 = a789; /* x268323 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94477; /* MOVE: branching squeezed to general */ if (t94478>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94478;} else a789->s1.tag = (unsigned)t94478; /* x154071 stalin.sc:21059:736623 */ /* x154070 */ /* x154068 */ /* x153797 */ t94490 = q98; /* x154067 */ /* x153799 stalin.sc:21060:736667 */ /* x153802 */ /* x153808 */ /* x153814 */ /* x153839 */ /* x153938 */ /* x154066 */ /* x153798 */ t94492 = NATIVE_PROCEDURE_TYPE6627; t94493 = NATIVE_PROCEDURE_TYPE6602; t94494 = NATIVE_PROCEDURE_TYPE6601; t94495 = NATIVE_PROCEDURE_TYPE6600; t94496 = NATIVE_PROCEDURE_TYPE6599; t94497 = NATIVE_PROCEDURE_TYPE6598; t94498 = NATIVE_PROCEDURE_TYPE6597; t94491 = f16182(t94492, t94493, t94494, t94495, t94496, t94497, t94498); /* x268319 */ t94488 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94488==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94488->s0.tag = EXTERNAL_SYMBOL_TYPE; t94488->s0.value.external_symbol_type = t94490; t94488->s1.tag = STRUCTURE_TYPE24757; t94488->s1.value.structure_type24757 = t94491; /* x154069 */ t94489 = a789; /* x268320 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94488; /* MOVE: branching squeezed to general */ if (t94489>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94489;} else a789->s1.tag = (unsigned)t94489; /* x154244 stalin.sc:21127:738660 */ /* x154243 */ /* x154241 */ /* x154074 */ t94501 = q99; /* x154240 */ /* x154076 stalin.sc:21128:738703 */ /* x154086 */ /* x154096 */ /* x154106 */ /* x154154 */ /* x154196 */ /* x154239 */ /* x154075 */ t94503 = NATIVE_PROCEDURE_TYPE6630; t94504 = NATIVE_PROCEDURE_TYPE6596; t94505 = NATIVE_PROCEDURE_TYPE6595; t94506 = NATIVE_PROCEDURE_TYPE6594; t94507 = NATIVE_PROCEDURE_TYPE6593; t94508 = NATIVE_PROCEDURE_TYPE6592; t94509 = NATIVE_PROCEDURE_TYPE6591; t94502 = f16182(t94503, t94504, t94505, t94506, t94507, t94508, t94509); /* x268315 */ t94499 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94499==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94499->s0.tag = EXTERNAL_SYMBOL_TYPE; t94499->s0.value.external_symbol_type = t94501; t94499->s1.tag = STRUCTURE_TYPE24757; t94499->s1.value.structure_type24757 = t94502; /* x154242 */ t94500 = a789; /* x268316 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94499; /* MOVE: branching squeezed to general */ if (t94500>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94500;} else a789->s1.tag = (unsigned)t94500; /* x154443 stalin.sc:21172:740157 */ /* x154442 */ /* x154440 */ /* x154247 */ t94512 = q100; /* x154439 */ /* x154249 stalin.sc:21173:740201 */ /* x154260 */ /* x154271 */ /* x154282 */ /* x154323 */ /* x154373 */ /* x154438 */ /* x154248 */ t94514 = NATIVE_PROCEDURE_TYPE6629; t94515 = NATIVE_PROCEDURE_TYPE6590; t94516 = NATIVE_PROCEDURE_TYPE6589; t94517 = NATIVE_PROCEDURE_TYPE6588; t94518 = NATIVE_PROCEDURE_TYPE6587; t94519 = NATIVE_PROCEDURE_TYPE6586; t94520 = NATIVE_PROCEDURE_TYPE6585; t94513 = f16182(t94514, t94515, t94516, t94517, t94518, t94519, t94520); /* x268313 */ t94510 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94510==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94510->s0.tag = EXTERNAL_SYMBOL_TYPE; t94510->s0.value.external_symbol_type = t94512; t94510->s1.tag = STRUCTURE_TYPE24757; t94510->s1.value.structure_type24757 = t94513; /* x154441 */ t94511 = a789; /* x268314 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94510; /* MOVE: branching squeezed to general */ if (t94511>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94511;} else a789->s1.tag = (unsigned)t94511; /* x154508 stalin.sc:21231:741929 */ /* x154507 */ /* x154505 */ /* x154446 */ t94523 = q102; /* x154504 */ /* x154448 stalin.sc:21232:741962 */ /* x154452 */ /* x154456 */ /* x154465 */ /* x154497 */ /* x154499 */ /* x154503 */ /* x154447 */ t94525 = NATIVE_PROCEDURE_TYPE6630; t94526 = NATIVE_PROCEDURE_TYPE6584; t94527 = NATIVE_PROCEDURE_TYPE6583; t94528 = NATIVE_PROCEDURE_TYPE6582; t94529 = NATIVE_PROCEDURE_TYPE6581; t94530 = NATIVE_PROCEDURE_TYPE6580; t94531 = NATIVE_PROCEDURE_TYPE6579; t94524 = f16182(t94525, t94526, t94527, t94528, t94529, t94530, t94531); /* x268311 */ t94521 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94521==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94521->s0.tag = EXTERNAL_SYMBOL_TYPE; t94521->s0.value.external_symbol_type = t94523; t94521->s1.tag = STRUCTURE_TYPE24757; t94521->s1.value.structure_type24757 = t94524; /* x154506 */ t94522 = a789; /* x268312 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94521; /* MOVE: branching squeezed to general */ if (t94522>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94522;} else a789->s1.tag = (unsigned)t94522; /* x154573 stalin.sc:21244:742366 */ /* x154572 */ /* x154570 */ /* x154511 */ t94534 = q103; /* x154569 */ /* x154513 stalin.sc:21245:742404 */ /* x154517 */ /* x154521 */ /* x154530 */ /* x154562 */ /* x154564 */ /* x154568 */ /* x154512 */ t94536 = NATIVE_PROCEDURE_TYPE6630; t94537 = NATIVE_PROCEDURE_TYPE6578; t94538 = NATIVE_PROCEDURE_TYPE6577; t94539 = NATIVE_PROCEDURE_TYPE6576; t94540 = NATIVE_PROCEDURE_TYPE6575; t94541 = NATIVE_PROCEDURE_TYPE6574; t94542 = NATIVE_PROCEDURE_TYPE6573; t94535 = f16182(t94536, t94537, t94538, t94539, t94540, t94541, t94542); /* x268308 */ t94532 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94532==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94532->s0.tag = EXTERNAL_SYMBOL_TYPE; t94532->s0.value.external_symbol_type = t94534; t94532->s1.tag = STRUCTURE_TYPE24757; t94532->s1.value.structure_type24757 = t94535; /* x154571 */ t94533 = a789; /* x268309 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94532; /* MOVE: branching squeezed to general */ if (t94533>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94533;} else a789->s1.tag = (unsigned)t94533; /* x156656 stalin.sc:21257:742820 */ /* x156655 */ /* x156653 */ /* x154576 */ t94545 = q104; /* x156652 */ /* x154578 stalin.sc:21258:742853 */ /* x154583 */ /* x154588 */ /* x154593 */ /* x154750 */ /* x154752 */ /* x156651 */ /* x154577 */ t94547 = NATIVE_PROCEDURE_TYPE6629; t94548 = NATIVE_PROCEDURE_TYPE6572; t94549 = NATIVE_PROCEDURE_TYPE6571; t94550 = NATIVE_PROCEDURE_TYPE6570; t94551 = NATIVE_PROCEDURE_TYPE6569; t94552 = NATIVE_PROCEDURE_TYPE6568; t94553 = NATIVE_PROCEDURE_TYPE6567; t94546 = f16182(t94547, t94548, t94549, t94550, t94551, t94552, t94553); /* x268305 */ t94543 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94543==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94543->s0.tag = EXTERNAL_SYMBOL_TYPE; t94543->s0.value.external_symbol_type = t94545; t94543->s1.tag = STRUCTURE_TYPE24757; t94543->s1.value.structure_type24757 = t94546; /* x156654 */ t94544 = a789; /* x268306 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94543; /* MOVE: branching squeezed to general */ if (t94544>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94544;} else a789->s1.tag = (unsigned)t94544; /* x156721 stalin.sc:21742:761719 */ /* x156720 */ /* x156718 */ /* x156659 */ t94556 = q111; /* x156717 */ /* x156661 stalin.sc:21743:761754 */ /* x156665 */ /* x156669 */ /* x156678 */ /* x156710 */ /* x156712 */ /* x156716 */ /* x156660 */ t94558 = NATIVE_PROCEDURE_TYPE6630; t94559 = NATIVE_PROCEDURE_TYPE6566; t94560 = NATIVE_PROCEDURE_TYPE6565; t94561 = NATIVE_PROCEDURE_TYPE6564; t94562 = NATIVE_PROCEDURE_TYPE6563; t94563 = NATIVE_PROCEDURE_TYPE6562; t94564 = NATIVE_PROCEDURE_TYPE6561; t94557 = f16182(t94558, t94559, t94560, t94561, t94562, t94563, t94564); /* x268259 */ t94554 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94554==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94554->s0.tag = EXTERNAL_SYMBOL_TYPE; t94554->s0.value.external_symbol_type = t94556; t94554->s1.tag = STRUCTURE_TYPE24757; t94554->s1.value.structure_type24757 = t94557; /* x156719 */ t94555 = a789; /* x268260 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94554; /* MOVE: branching squeezed to general */ if (t94555>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94555;} else a789->s1.tag = (unsigned)t94555; /* x156786 stalin.sc:21755:762152 */ /* x156785 */ /* x156783 */ /* x156724 */ t94567 = q112; /* x156782 */ /* x156726 stalin.sc:21756:762189 */ /* x156730 */ /* x156734 */ /* x156743 */ /* x156775 */ /* x156777 */ /* x156781 */ /* x156725 */ t94569 = NATIVE_PROCEDURE_TYPE6630; t94570 = NATIVE_PROCEDURE_TYPE6560; t94571 = NATIVE_PROCEDURE_TYPE6559; t94572 = NATIVE_PROCEDURE_TYPE6558; t94573 = NATIVE_PROCEDURE_TYPE6557; t94574 = NATIVE_PROCEDURE_TYPE6556; t94575 = NATIVE_PROCEDURE_TYPE6555; t94568 = f16182(t94569, t94570, t94571, t94572, t94573, t94574, t94575); /* x268256 */ t94565 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94565==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94565->s0.tag = EXTERNAL_SYMBOL_TYPE; t94565->s0.value.external_symbol_type = t94567; t94565->s1.tag = STRUCTURE_TYPE24757; t94565->s1.value.structure_type24757 = t94568; /* x156784 */ t94566 = a789; /* x268257 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94565; /* MOVE: branching squeezed to general */ if (t94566>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94566;} else a789->s1.tag = (unsigned)t94566; /* x156872 stalin.sc:21768:762599 */ /* x156871 */ /* x156869 */ /* x156789 */ t94578 = q113; /* x156868 */ /* x156791 stalin.sc:21769:762643 */ /* x156795 */ /* x156799 */ /* x156803 */ /* x156810 */ /* x156812 */ /* x156867 */ /* x156790 */ t94580 = NATIVE_PROCEDURE_TYPE6630; t94581 = NATIVE_PROCEDURE_TYPE6554; t94582 = NATIVE_PROCEDURE_TYPE6553; t94583 = NATIVE_PROCEDURE_TYPE6552; t94584 = NATIVE_PROCEDURE_TYPE6551; t94585 = NATIVE_PROCEDURE_TYPE6550; t94586 = NATIVE_PROCEDURE_TYPE6549; t94579 = f16182(t94580, t94581, t94582, t94583, t94584, t94585, t94586); /* x268253 */ t94576 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94576==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94576->s0.tag = EXTERNAL_SYMBOL_TYPE; t94576->s0.value.external_symbol_type = t94578; t94576->s1.tag = STRUCTURE_TYPE24757; t94576->s1.value.structure_type24757 = t94579; /* x156870 */ t94577 = a789; /* x268254 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94576; /* MOVE: branching squeezed to general */ if (t94577>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94577;} else a789->s1.tag = (unsigned)t94577; /* x156951 stalin.sc:21792:763246 */ /* x156950 */ /* x156948 */ /* x156875 */ t94589 = q114; /* x156947 */ /* x156877 stalin.sc:21793:763301 */ /* x156881 */ /* x156885 */ /* x156889 */ /* x156910 */ /* x156912 */ /* x156946 */ /* x156876 */ t94591 = NATIVE_PROCEDURE_TYPE6630; t94592 = NATIVE_PROCEDURE_TYPE6548; t94593 = NATIVE_PROCEDURE_TYPE6547; t94594 = NATIVE_PROCEDURE_TYPE6546; t94595 = NATIVE_PROCEDURE_TYPE6545; t94596 = NATIVE_PROCEDURE_TYPE6544; t94597 = NATIVE_PROCEDURE_TYPE6543; t94590 = f16182(t94591, t94592, t94593, t94594, t94595, t94596, t94597); /* x268250 */ t94587 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94587==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94587->s0.tag = EXTERNAL_SYMBOL_TYPE; t94587->s0.value.external_symbol_type = t94589; t94587->s1.tag = STRUCTURE_TYPE24757; t94587->s1.value.structure_type24757 = t94590; /* x156949 */ t94588 = a789; /* x268251 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94587; /* MOVE: branching squeezed to general */ if (t94588>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94588;} else a789->s1.tag = (unsigned)t94588; /* x157016 stalin.sc:21817:763855 */ /* x157015 */ /* x157013 */ /* x156954 */ t94600 = q115; /* x157012 */ /* x156956 stalin.sc:21818:763892 */ /* x156960 */ /* x156964 */ /* x156973 */ /* x157005 */ /* x157007 */ /* x157011 */ /* x156955 */ t94602 = NATIVE_PROCEDURE_TYPE6630; t94603 = NATIVE_PROCEDURE_TYPE6542; t94604 = NATIVE_PROCEDURE_TYPE6541; t94605 = NATIVE_PROCEDURE_TYPE6540; t94606 = NATIVE_PROCEDURE_TYPE6539; t94607 = NATIVE_PROCEDURE_TYPE6538; t94608 = NATIVE_PROCEDURE_TYPE6537; t94601 = f16182(t94602, t94603, t94604, t94605, t94606, t94607, t94608); /* x268247 */ t94598 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94598==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94598->s0.tag = EXTERNAL_SYMBOL_TYPE; t94598->s0.value.external_symbol_type = t94600; t94598->s1.tag = STRUCTURE_TYPE24757; t94598->s1.value.structure_type24757 = t94601; /* x157014 */ t94599 = a789; /* x268248 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94598; /* MOVE: branching squeezed to general */ if (t94599>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94599;} else a789->s1.tag = (unsigned)t94599; /* x157158 stalin.sc:21830:764302 */ /* x157157 */ /* x157155 */ /* x157019 */ t94611 = q116; /* x157154 */ /* x157021 stalin.sc:21831:764337 */ /* x157025 */ /* x157029 */ /* x157055 */ /* x157108 */ /* x157110 */ /* x157153 */ /* x157020 */ t94613 = NATIVE_PROCEDURE_TYPE6630; t94614 = NATIVE_PROCEDURE_TYPE6536; t94615 = NATIVE_PROCEDURE_TYPE6535; t94616 = NATIVE_PROCEDURE_TYPE6534; t94617 = NATIVE_PROCEDURE_TYPE6533; t94618 = NATIVE_PROCEDURE_TYPE6532; t94619 = NATIVE_PROCEDURE_TYPE6531; t94612 = f16182(t94613, t94614, t94615, t94616, t94617, t94618, t94619); /* x268244 */ t94609 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94609==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94609->s0.tag = EXTERNAL_SYMBOL_TYPE; t94609->s0.value.external_symbol_type = t94611; t94609->s1.tag = STRUCTURE_TYPE24757; t94609->s1.value.structure_type24757 = t94612; /* x157156 */ t94610 = a789; /* x268245 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94609; /* MOVE: branching squeezed to general */ if (t94610>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94610;} else a789->s1.tag = (unsigned)t94610; /* x157336 stalin.sc:21857:765190 */ /* x157335 */ /* x157333 */ /* x157161 */ t94622 = q117; /* x157332 */ /* x157163 stalin.sc:21858:765228 */ /* x157167 */ /* x157171 */ /* x157190 */ /* x157243 */ /* x157245 */ /* x157331 */ /* x157162 */ t94624 = NATIVE_PROCEDURE_TYPE6630; t94625 = NATIVE_PROCEDURE_TYPE6530; t94626 = NATIVE_PROCEDURE_TYPE6529; t94627 = NATIVE_PROCEDURE_TYPE6528; t94628 = NATIVE_PROCEDURE_TYPE6527; t94629 = NATIVE_PROCEDURE_TYPE6526; t94630 = NATIVE_PROCEDURE_TYPE6525; t94623 = f16182(t94624, t94625, t94626, t94627, t94628, t94629, t94630); /* x268239 */ t94620 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94620==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94620->s0.tag = EXTERNAL_SYMBOL_TYPE; t94620->s0.value.external_symbol_type = t94622; t94620->s1.tag = STRUCTURE_TYPE24757; t94620->s1.value.structure_type24757 = t94623; /* x157334 */ t94621 = a789; /* x268240 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94620; /* MOVE: branching squeezed to general */ if (t94621>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94621;} else a789->s1.tag = (unsigned)t94621; /* x157429 stalin.sc:21887:766149 */ /* x157428 */ /* x157426 */ /* x157339 */ t94633 = q118; /* x157425 */ /* x157341 stalin.sc:21888:766185 */ /* x157345 */ /* x157349 */ /* x157363 */ /* x157402 */ /* x157404 */ /* x157424 */ /* x157340 */ t94635 = NATIVE_PROCEDURE_TYPE6630; t94636 = NATIVE_PROCEDURE_TYPE6524; t94637 = NATIVE_PROCEDURE_TYPE6523; t94638 = NATIVE_PROCEDURE_TYPE6522; t94639 = NATIVE_PROCEDURE_TYPE6521; t94640 = NATIVE_PROCEDURE_TYPE6520; t94641 = NATIVE_PROCEDURE_TYPE6519; t94634 = f16182(t94635, t94636, t94637, t94638, t94639, t94640, t94641); /* x268235 */ t94631 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94631==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94631->s0.tag = EXTERNAL_SYMBOL_TYPE; t94631->s0.value.external_symbol_type = t94633; t94631->s1.tag = STRUCTURE_TYPE24757; t94631->s1.value.structure_type24757 = t94634; /* x157427 */ t94632 = a789; /* x268236 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94631; /* MOVE: branching squeezed to general */ if (t94632>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94632;} else a789->s1.tag = (unsigned)t94632; /* x157522 stalin.sc:21905:766728 */ /* x157521 */ /* x157519 */ /* x157432 */ t94644 = q119; /* x157518 */ /* x157434 stalin.sc:21906:766766 */ /* x157438 */ /* x157452 */ /* x157456 */ /* x157495 */ /* x157497 */ /* x157517 */ /* x157433 */ t94646 = NATIVE_PROCEDURE_TYPE6630; t94647 = NATIVE_PROCEDURE_TYPE6518; t94648 = NATIVE_PROCEDURE_TYPE6517; t94649 = NATIVE_PROCEDURE_TYPE6516; t94650 = NATIVE_PROCEDURE_TYPE6515; t94651 = NATIVE_PROCEDURE_TYPE6514; t94652 = NATIVE_PROCEDURE_TYPE6513; t94645 = f16182(t94646, t94647, t94648, t94649, t94650, t94651, t94652); /* x268232 */ t94642 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94642==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94642->s0.tag = EXTERNAL_SYMBOL_TYPE; t94642->s0.value.external_symbol_type = t94644; t94642->s1.tag = STRUCTURE_TYPE24757; t94642->s1.value.structure_type24757 = t94645; /* x157520 */ t94643 = a789; /* x268233 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94642; /* MOVE: branching squeezed to general */ if (t94643>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94643;} else a789->s1.tag = (unsigned)t94643; /* x157631 stalin.sc:21923:767313 */ /* x157630 */ /* x157628 */ /* x157525 */ t94655 = q120; /* x157627 */ /* x157527 stalin.sc:21924:767344 */ /* x157531 */ /* x157537 */ /* x157543 */ /* x157555 */ /* x157557 */ /* x157626 */ /* x157526 */ t94657 = NATIVE_PROCEDURE_TYPE6623; t94658 = NATIVE_PROCEDURE_TYPE6512; t94659 = NATIVE_PROCEDURE_TYPE6511; t94660 = NATIVE_PROCEDURE_TYPE6510; t94661 = NATIVE_PROCEDURE_TYPE6509; t94662 = NATIVE_PROCEDURE_TYPE6508; t94663 = NATIVE_PROCEDURE_TYPE6507; t94656 = f16182(t94657, t94658, t94659, t94660, t94661, t94662, t94663); /* x268229 */ t94653 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94653==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94653->s0.tag = EXTERNAL_SYMBOL_TYPE; t94653->s0.value.external_symbol_type = t94655; t94653->s1.tag = STRUCTURE_TYPE24757; t94653->s1.value.structure_type24757 = t94656; /* x157629 */ t94654 = a789; /* x268230 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94653; /* MOVE: branching squeezed to general */ if (t94654>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94654;} else a789->s1.tag = (unsigned)t94654; /* x157684 stalin.sc:21943:767977 */ /* x157683 */ /* x157681 */ /* x157634 */ t94666 = q121; /* x157680 */ /* x157636 stalin.sc:21944:768008 */ /* x157640 */ /* x157646 */ /* x157652 */ /* x157664 */ /* x157666 */ /* x157679 */ /* x157635 */ t94668 = NATIVE_PROCEDURE_TYPE6623; t94669 = NATIVE_PROCEDURE_TYPE6506; t94670 = NATIVE_PROCEDURE_TYPE6505; t94671 = NATIVE_PROCEDURE_TYPE6504; t94672 = NATIVE_PROCEDURE_TYPE6503; t94673 = NATIVE_PROCEDURE_TYPE6502; t94674 = NATIVE_PROCEDURE_TYPE6501; t94667 = f16182(t94668, t94669, t94670, t94671, t94672, t94673, t94674); /* x268227 */ t94664 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94664==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94664->s0.tag = EXTERNAL_SYMBOL_TYPE; t94664->s0.value.external_symbol_type = t94666; t94664->s1.tag = STRUCTURE_TYPE24757; t94664->s1.value.structure_type24757 = t94667; /* x157682 */ t94665 = a789; /* x268228 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94664; /* MOVE: branching squeezed to general */ if (t94665>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94665;} else a789->s1.tag = (unsigned)t94665; /* x157737 stalin.sc:21953:768341 */ /* x157736 */ /* x157734 */ /* x157687 */ t94677 = q122; /* x157733 */ /* x157689 stalin.sc:21954:768372 */ /* x157693 */ /* x157699 */ /* x157705 */ /* x157717 */ /* x157719 */ /* x157732 */ /* x157688 */ t94679 = NATIVE_PROCEDURE_TYPE6623; t94680 = NATIVE_PROCEDURE_TYPE6500; t94681 = NATIVE_PROCEDURE_TYPE6499; t94682 = NATIVE_PROCEDURE_TYPE6498; t94683 = NATIVE_PROCEDURE_TYPE6497; t94684 = NATIVE_PROCEDURE_TYPE6496; t94685 = NATIVE_PROCEDURE_TYPE6495; t94678 = f16182(t94679, t94680, t94681, t94682, t94683, t94684, t94685); /* x268225 */ t94675 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94675==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94675->s0.tag = EXTERNAL_SYMBOL_TYPE; t94675->s0.value.external_symbol_type = t94677; t94675->s1.tag = STRUCTURE_TYPE24757; t94675->s1.value.structure_type24757 = t94678; /* x157735 */ t94676 = a789; /* x268226 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94675; /* MOVE: branching squeezed to general */ if (t94676>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94676;} else a789->s1.tag = (unsigned)t94676; /* x157790 stalin.sc:21963:768705 */ /* x157789 */ /* x157787 */ /* x157740 */ t94688 = q123; /* x157786 */ /* x157742 stalin.sc:21964:768737 */ /* x157746 */ /* x157752 */ /* x157758 */ /* x157770 */ /* x157772 */ /* x157785 */ /* x157741 */ t94690 = NATIVE_PROCEDURE_TYPE6623; t94691 = NATIVE_PROCEDURE_TYPE6494; t94692 = NATIVE_PROCEDURE_TYPE6493; t94693 = NATIVE_PROCEDURE_TYPE6492; t94694 = NATIVE_PROCEDURE_TYPE6491; t94695 = NATIVE_PROCEDURE_TYPE6490; t94696 = NATIVE_PROCEDURE_TYPE6489; t94689 = f16182(t94690, t94691, t94692, t94693, t94694, t94695, t94696); /* x268223 */ t94686 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94686==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94686->s0.tag = EXTERNAL_SYMBOL_TYPE; t94686->s0.value.external_symbol_type = t94688; t94686->s1.tag = STRUCTURE_TYPE24757; t94686->s1.value.structure_type24757 = t94689; /* x157788 */ t94687 = a789; /* x268224 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94686; /* MOVE: branching squeezed to general */ if (t94687>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94687;} else a789->s1.tag = (unsigned)t94687; /* x157843 stalin.sc:21973:769071 */ /* x157842 */ /* x157840 */ /* x157793 */ t94699 = q124; /* x157839 */ /* x157795 stalin.sc:21974:769103 */ /* x157799 */ /* x157805 */ /* x157811 */ /* x157823 */ /* x157825 */ /* x157838 */ /* x157794 */ t94701 = NATIVE_PROCEDURE_TYPE6623; t94702 = NATIVE_PROCEDURE_TYPE6488; t94703 = NATIVE_PROCEDURE_TYPE6487; t94704 = NATIVE_PROCEDURE_TYPE6486; t94705 = NATIVE_PROCEDURE_TYPE6485; t94706 = NATIVE_PROCEDURE_TYPE6484; t94707 = NATIVE_PROCEDURE_TYPE6483; t94700 = f16182(t94701, t94702, t94703, t94704, t94705, t94706, t94707); /* x268221 */ t94697 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94697==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94697->s0.tag = EXTERNAL_SYMBOL_TYPE; t94697->s0.value.external_symbol_type = t94699; t94697->s1.tag = STRUCTURE_TYPE24757; t94697->s1.value.structure_type24757 = t94700; /* x157841 */ t94698 = a789; /* x268222 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94697; /* MOVE: branching squeezed to general */ if (t94698>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94698;} else a789->s1.tag = (unsigned)t94698; /* x158138 stalin.sc:21983:769437 */ /* x158137 */ /* x158135 */ /* x157846 */ t94710 = q125; /* x158134 */ /* x157848 stalin.sc:21985:769544 */ /* x157887 */ /* x157926 */ /* x157965 */ /* x157977 */ /* x157979 */ /* x158133 */ /* x157847 */ t94712 = NATIVE_PROCEDURE_TYPE6630; t94713 = NATIVE_PROCEDURE_TYPE6482; t94714 = NATIVE_PROCEDURE_TYPE6481; t94715 = NATIVE_PROCEDURE_TYPE6480; t94716 = NATIVE_PROCEDURE_TYPE6479; t94717 = NATIVE_PROCEDURE_TYPE6478; t94718 = NATIVE_PROCEDURE_TYPE6477; t94711 = f16182(t94712, t94713, t94714, t94715, t94716, t94717, t94718); /* x268219 */ t94708 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94708==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94708->s0.tag = EXTERNAL_SYMBOL_TYPE; t94708->s0.value.external_symbol_type = t94710; t94708->s1.tag = STRUCTURE_TYPE24757; t94708->s1.value.structure_type24757 = t94711; /* x158136 */ t94709 = a789; /* x268220 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94708; /* MOVE: branching squeezed to general */ if (t94709>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94709;} else a789->s1.tag = (unsigned)t94709; /* x158267 stalin.sc:22034:770853 */ /* x158266 */ /* x158264 */ /* x158141 */ t94721 = q126; /* x158263 */ /* x158143 stalin.sc:22035:770892 */ /* x158147 */ /* x158151 */ /* x158155 */ /* x158167 */ /* x158169 */ /* x158262 */ /* x158142 */ t94723 = NATIVE_PROCEDURE_TYPE6630; t94724 = NATIVE_PROCEDURE_TYPE6476; t94725 = NATIVE_PROCEDURE_TYPE6475; t94726 = NATIVE_PROCEDURE_TYPE6474; t94727 = NATIVE_PROCEDURE_TYPE6473; t94728 = NATIVE_PROCEDURE_TYPE6472; t94729 = NATIVE_PROCEDURE_TYPE6471; t94722 = f16182(t94723, t94724, t94725, t94726, t94727, t94728, t94729); /* x268217 */ t94719 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94719==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94719->s0.tag = EXTERNAL_SYMBOL_TYPE; t94719->s0.value.external_symbol_type = t94721; t94719->s1.tag = STRUCTURE_TYPE24757; t94719->s1.value.structure_type24757 = t94722; /* x158265 */ t94720 = a789; /* x268218 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94719; /* MOVE: branching squeezed to general */ if (t94720>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94720;} else a789->s1.tag = (unsigned)t94720; /* x158396 stalin.sc:22062:771654 */ /* x158395 */ /* x158393 */ /* x158270 */ t94732 = q127; /* x158392 */ /* x158272 stalin.sc:22063:771693 */ /* x158276 */ /* x158280 */ /* x158284 */ /* x158296 */ /* x158298 */ /* x158391 */ /* x158271 */ t94734 = NATIVE_PROCEDURE_TYPE6630; t94735 = NATIVE_PROCEDURE_TYPE6470; t94736 = NATIVE_PROCEDURE_TYPE6469; t94737 = NATIVE_PROCEDURE_TYPE6468; t94738 = NATIVE_PROCEDURE_TYPE6467; t94739 = NATIVE_PROCEDURE_TYPE6466; t94740 = NATIVE_PROCEDURE_TYPE6465; t94733 = f16182(t94734, t94735, t94736, t94737, t94738, t94739, t94740); /* x268215 */ t94730 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94730==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94730->s0.tag = EXTERNAL_SYMBOL_TYPE; t94730->s0.value.external_symbol_type = t94732; t94730->s1.tag = STRUCTURE_TYPE24757; t94730->s1.value.structure_type24757 = t94733; /* x158394 */ t94731 = a789; /* x268216 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94730; /* MOVE: branching squeezed to general */ if (t94731>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94731;} else a789->s1.tag = (unsigned)t94731; /* x158590 stalin.sc:22090:772455 */ /* x158589 */ /* x158587 */ /* x158399 */ t94743 = q128; /* x158586 */ /* x158401 stalin.sc:22091:772488 */ /* x158405 */ /* x158411 */ /* x158417 */ /* x158491 */ /* x158493 */ /* x158585 */ /* x158400 */ t94745 = NATIVE_PROCEDURE_TYPE6624; t94746 = NATIVE_PROCEDURE_TYPE6464; t94747 = NATIVE_PROCEDURE_TYPE6463; t94748 = NATIVE_PROCEDURE_TYPE6462; t94749 = NATIVE_PROCEDURE_TYPE6461; t94750 = NATIVE_PROCEDURE_TYPE6460; t94751 = NATIVE_PROCEDURE_TYPE6459; t94744 = f16182(t94745, t94746, t94747, t94748, t94749, t94750, t94751); /* x268213 */ t94741 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94741==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94741->s0.tag = EXTERNAL_SYMBOL_TYPE; t94741->s0.value.external_symbol_type = t94743; t94741->s1.tag = STRUCTURE_TYPE24757; t94741->s1.value.structure_type24757 = t94744; /* x158588 */ t94742 = a789; /* x268214 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94741; /* MOVE: branching squeezed to general */ if (t94742>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94742;} else a789->s1.tag = (unsigned)t94742; /* x158784 stalin.sc:22131:773958 */ /* x158783 */ /* x158781 */ /* x158593 */ t94754 = q129; /* x158780 */ /* x158595 stalin.sc:22132:773991 */ /* x158599 */ /* x158605 */ /* x158611 */ /* x158685 */ /* x158687 */ /* x158779 */ /* x158594 */ t94756 = NATIVE_PROCEDURE_TYPE6624; t94757 = NATIVE_PROCEDURE_TYPE6458; t94758 = NATIVE_PROCEDURE_TYPE6457; t94759 = NATIVE_PROCEDURE_TYPE6456; t94760 = NATIVE_PROCEDURE_TYPE6455; t94761 = NATIVE_PROCEDURE_TYPE6454; t94762 = NATIVE_PROCEDURE_TYPE6453; t94755 = f16182(t94756, t94757, t94758, t94759, t94760, t94761, t94762); /* x268210 */ t94752 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94752==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94752->s0.tag = EXTERNAL_SYMBOL_TYPE; t94752->s0.value.external_symbol_type = t94754; t94752->s1.tag = STRUCTURE_TYPE24757; t94752->s1.value.structure_type24757 = t94755; /* x158782 */ t94753 = a789; /* x268211 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94752; /* MOVE: branching squeezed to general */ if (t94753>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94753;} else a789->s1.tag = (unsigned)t94753; /* x159043 stalin.sc:22172:775461 */ /* x159042 */ /* x159040 */ /* x158787 */ t94765 = q4; /* x159039 */ /* x158789 stalin.sc:22173:775492 */ /* x158793 */ /* x158799 */ /* x158805 */ /* x158890 */ /* x158892 */ /* x159038 */ /* x158788 */ t94767 = NATIVE_PROCEDURE_TYPE6625; t94768 = NATIVE_PROCEDURE_TYPE6452; t94769 = NATIVE_PROCEDURE_TYPE6451; t94770 = NATIVE_PROCEDURE_TYPE6450; t94771 = NATIVE_PROCEDURE_TYPE6449; t94772 = NATIVE_PROCEDURE_TYPE6448; t94773 = NATIVE_PROCEDURE_TYPE6447; t94766 = f16182(t94767, t94768, t94769, t94770, t94771, t94772, t94773); /* x268207 */ t94763 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94763==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94763->s0.tag = EXTERNAL_SYMBOL_TYPE; t94763->s0.value.external_symbol_type = t94765; t94763->s1.tag = STRUCTURE_TYPE24757; t94763->s1.value.structure_type24757 = t94766; /* x159041 */ t94764 = a789; /* x268208 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94763; /* MOVE: branching squeezed to general */ if (t94764>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94764;} else a789->s1.tag = (unsigned)t94764; /* x159302 stalin.sc:22220:777114 */ /* x159301 */ /* x159299 */ /* x159046 */ t94776 = q130; /* x159298 */ /* x159048 stalin.sc:22221:777145 */ /* x159052 */ /* x159058 */ /* x159064 */ /* x159149 */ /* x159151 */ /* x159297 */ /* x159047 */ t94778 = NATIVE_PROCEDURE_TYPE6625; t94779 = NATIVE_PROCEDURE_TYPE6446; t94780 = NATIVE_PROCEDURE_TYPE6445; t94781 = NATIVE_PROCEDURE_TYPE6444; t94782 = NATIVE_PROCEDURE_TYPE6443; t94783 = NATIVE_PROCEDURE_TYPE6442; t94784 = NATIVE_PROCEDURE_TYPE6441; t94777 = f16182(t94778, t94779, t94780, t94781, t94782, t94783, t94784); /* x268202 */ t94774 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94774==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94774->s0.tag = EXTERNAL_SYMBOL_TYPE; t94774->s0.value.external_symbol_type = t94776; t94774->s1.tag = STRUCTURE_TYPE24757; t94774->s1.value.structure_type24757 = t94777; /* x159300 */ t94775 = a789; /* x268203 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94774; /* MOVE: branching squeezed to general */ if (t94775>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94775;} else a789->s1.tag = (unsigned)t94775; /* x159592 stalin.sc:22268:778772 */ /* x159591 */ /* x159589 */ /* x159305 */ t94787 = q2; /* x159588 */ /* x159307 stalin.sc:22269:778803 */ /* x159311 */ /* x159317 */ /* x159323 */ /* x159397 */ /* x159399 */ /* x159587 */ /* x159306 */ t94789 = NATIVE_PROCEDURE_TYPE6624; t94790 = NATIVE_PROCEDURE_TYPE6440; t94791 = NATIVE_PROCEDURE_TYPE6439; t94792 = NATIVE_PROCEDURE_TYPE6438; t94793 = NATIVE_PROCEDURE_TYPE6437; t94794 = NATIVE_PROCEDURE_TYPE6436; t94795 = NATIVE_PROCEDURE_TYPE6435; t94788 = f16182(t94789, t94790, t94791, t94792, t94793, t94794, t94795); /* x268197 */ t94785 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94785==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94785->s0.tag = EXTERNAL_SYMBOL_TYPE; t94785->s0.value.external_symbol_type = t94787; t94785->s1.tag = STRUCTURE_TYPE24757; t94785->s1.value.structure_type24757 = t94788; /* x159590 */ t94786 = a789; /* x268198 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94785; /* MOVE: branching squeezed to general */ if (t94786>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94786;} else a789->s1.tag = (unsigned)t94786; /* x159805 stalin.sc:22320:780633 */ /* x159804 */ /* x159802 */ /* x159595 */ t94798 = q131; /* x159801 */ /* x159597 stalin.sc:22331:781403 */ /* x159601 */ /* x159607 */ /* x159613 */ /* x159661 */ /* x159663 */ /* x159800 */ /* x159596 */ t94800 = NATIVE_PROCEDURE_TYPE6624; t94801 = NATIVE_PROCEDURE_TYPE6434; t94802 = NATIVE_PROCEDURE_TYPE6433; t94803 = NATIVE_PROCEDURE_TYPE6432; t94804 = NATIVE_PROCEDURE_TYPE6431; t94805 = NATIVE_PROCEDURE_TYPE6430; t94806 = NATIVE_PROCEDURE_TYPE6429; t94799 = f16182(t94800, t94801, t94802, t94803, t94804, t94805, t94806); /* x268194 */ t94796 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94796==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94796->s0.tag = EXTERNAL_SYMBOL_TYPE; t94796->s0.value.external_symbol_type = t94798; t94796->s1.tag = STRUCTURE_TYPE24757; t94796->s1.value.structure_type24757 = t94799; /* x159803 */ t94797 = a789; /* x268195 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94796; /* MOVE: branching squeezed to general */ if (t94797>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94797;} else a789->s1.tag = (unsigned)t94797; /* x160202 stalin.sc:22374:782832 */ /* x160201 */ /* x160199 */ /* x159808 */ t94809 = q132; /* x160198 */ /* x159810 stalin.sc:22377:782974 */ /* x159815 */ /* x159820 */ /* x159825 */ /* x159900 */ /* x159902 */ /* x160197 */ /* x159809 */ t94811 = NATIVE_PROCEDURE_TYPE6629; t94812 = NATIVE_PROCEDURE_TYPE6428; t94813 = NATIVE_PROCEDURE_TYPE6427; t94814 = NATIVE_PROCEDURE_TYPE6426; t94815 = NATIVE_PROCEDURE_TYPE6425; t94816 = NATIVE_PROCEDURE_TYPE6424; t94817 = NATIVE_PROCEDURE_TYPE6423; t94810 = f16182(t94811, t94812, t94813, t94814, t94815, t94816, t94817); /* x268191 */ t94807 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94807==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94807->s0.tag = EXTERNAL_SYMBOL_TYPE; t94807->s0.value.external_symbol_type = t94809; t94807->s1.tag = STRUCTURE_TYPE24757; t94807->s1.value.structure_type24757 = t94810; /* x160200 */ t94808 = a789; /* x268192 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94807; /* MOVE: branching squeezed to general */ if (t94808>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94808;} else a789->s1.tag = (unsigned)t94808; /* x160599 stalin.sc:22454:785192 */ /* x160598 */ /* x160596 */ /* x160205 */ t94820 = q133; /* x160595 */ /* x160207 stalin.sc:22457:785335 */ /* x160212 */ /* x160217 */ /* x160222 */ /* x160297 */ /* x160299 */ /* x160594 */ /* x160206 */ t94822 = NATIVE_PROCEDURE_TYPE6629; t94823 = NATIVE_PROCEDURE_TYPE6422; t94824 = NATIVE_PROCEDURE_TYPE6421; t94825 = NATIVE_PROCEDURE_TYPE6420; t94826 = NATIVE_PROCEDURE_TYPE6419; t94827 = NATIVE_PROCEDURE_TYPE6418; t94828 = NATIVE_PROCEDURE_TYPE6417; t94821 = f16182(t94822, t94823, t94824, t94825, t94826, t94827, t94828); /* x268189 */ t94818 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94818==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94818->s0.tag = EXTERNAL_SYMBOL_TYPE; t94818->s0.value.external_symbol_type = t94820; t94818->s1.tag = STRUCTURE_TYPE24757; t94818->s1.value.structure_type24757 = t94821; /* x160597 */ t94819 = a789; /* x268190 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94818; /* MOVE: branching squeezed to general */ if (t94819>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94819;} else a789->s1.tag = (unsigned)t94819; /* x160996 stalin.sc:22534:787559 */ /* x160995 */ /* x160993 */ /* x160602 */ t94831 = q134; /* x160992 */ /* x160604 stalin.sc:22537:787687 */ /* x160609 */ /* x160614 */ /* x160619 */ /* x160694 */ /* x160696 */ /* x160991 */ /* x160603 */ t94833 = NATIVE_PROCEDURE_TYPE6629; t94834 = NATIVE_PROCEDURE_TYPE6416; t94835 = NATIVE_PROCEDURE_TYPE6415; t94836 = NATIVE_PROCEDURE_TYPE6414; t94837 = NATIVE_PROCEDURE_TYPE6413; t94838 = NATIVE_PROCEDURE_TYPE6412; t94839 = NATIVE_PROCEDURE_TYPE6411; t94832 = f16182(t94833, t94834, t94835, t94836, t94837, t94838, t94839); /* x268187 */ t94829 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94829==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94829->s0.tag = EXTERNAL_SYMBOL_TYPE; t94829->s0.value.external_symbol_type = t94831; t94829->s1.tag = STRUCTURE_TYPE24757; t94829->s1.value.structure_type24757 = t94832; /* x160994 */ t94830 = a789; /* x268188 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94829; /* MOVE: branching squeezed to general */ if (t94830>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94830;} else a789->s1.tag = (unsigned)t94830; /* x161393 stalin.sc:22614:789885 */ /* x161392 */ /* x161390 */ /* x160999 */ t94842 = q135; /* x161389 */ /* x161001 stalin.sc:22616:789974 */ /* x161006 */ /* x161011 */ /* x161016 */ /* x161091 */ /* x161093 */ /* x161388 */ /* x161000 */ t94844 = NATIVE_PROCEDURE_TYPE6629; t94845 = NATIVE_PROCEDURE_TYPE6410; t94846 = NATIVE_PROCEDURE_TYPE6409; t94847 = NATIVE_PROCEDURE_TYPE6408; t94848 = NATIVE_PROCEDURE_TYPE6407; t94849 = NATIVE_PROCEDURE_TYPE6406; t94850 = NATIVE_PROCEDURE_TYPE6405; t94843 = f16182(t94844, t94845, t94846, t94847, t94848, t94849, t94850); /* x268185 */ t94840 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94840==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94840->s0.tag = EXTERNAL_SYMBOL_TYPE; t94840->s0.value.external_symbol_type = t94842; t94840->s1.tag = STRUCTURE_TYPE24757; t94840->s1.value.structure_type24757 = t94843; /* x161391 */ t94841 = a789; /* x268186 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94840; /* MOVE: branching squeezed to general */ if (t94841>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94841;} else a789->s1.tag = (unsigned)t94841; /* x161449 stalin.sc:22693:792172 */ /* x161448 */ /* x161446 */ /* x161396 */ t94853 = q136; /* x161445 */ /* x161398 stalin.sc:22695:792256 */ /* x161402 */ /* x161406 */ /* x161410 */ /* x161417 */ /* x161419 */ /* x161444 */ /* x161397 */ t94855 = NATIVE_PROCEDURE_TYPE6630; t94856 = NATIVE_PROCEDURE_TYPE6404; t94857 = NATIVE_PROCEDURE_TYPE6403; t94858 = NATIVE_PROCEDURE_TYPE6402; t94859 = NATIVE_PROCEDURE_TYPE6401; t94860 = NATIVE_PROCEDURE_TYPE6400; t94861 = NATIVE_PROCEDURE_TYPE6399; t94854 = f16182(t94855, t94856, t94857, t94858, t94859, t94860, t94861); /* x268183 */ t94851 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94851==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94851->s0.tag = EXTERNAL_SYMBOL_TYPE; t94851->s0.value.external_symbol_type = t94853; t94851->s1.tag = STRUCTURE_TYPE24757; t94851->s1.value.structure_type24757 = t94854; /* x161447 */ t94852 = a789; /* x268184 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94851; /* MOVE: branching squeezed to general */ if (t94852>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94852;} else a789->s1.tag = (unsigned)t94852; /* x161546 stalin.sc:22708:792628 */ /* x161545 */ /* x161543 */ /* x161452 */ t94864 = q137; /* x161542 */ /* x161454 stalin.sc:22710:792712 */ /* x161458 */ /* x161464 */ /* x161470 */ /* x161477 */ /* x161479 */ /* x161541 */ /* x161453 */ t94866 = NATIVE_PROCEDURE_TYPE6625; t94867 = NATIVE_PROCEDURE_TYPE6398; t94868 = NATIVE_PROCEDURE_TYPE6397; t94869 = NATIVE_PROCEDURE_TYPE6396; t94870 = NATIVE_PROCEDURE_TYPE6395; t94871 = NATIVE_PROCEDURE_TYPE6394; t94872 = NATIVE_PROCEDURE_TYPE6393; t94865 = f16182(t94866, t94867, t94868, t94869, t94870, t94871, t94872); /* x268181 */ t94862 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94862==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94862->s0.tag = EXTERNAL_SYMBOL_TYPE; t94862->s0.value.external_symbol_type = t94864; t94862->s1.tag = STRUCTURE_TYPE24757; t94862->s1.value.structure_type24757 = t94865; /* x161544 */ t94863 = a789; /* x268182 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94862; /* MOVE: branching squeezed to general */ if (t94863>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94863;} else a789->s1.tag = (unsigned)t94863; /* x161641 stalin.sc:22732:793456 */ /* x161640 */ /* x161638 */ /* x161549 */ t94875 = q138; /* x161637 */ /* x161551 stalin.sc:22734:793539 */ /* x161555 */ /* x161561 */ /* x161567 */ /* x161574 */ /* x161576 */ /* x161636 */ /* x161550 */ t94877 = NATIVE_PROCEDURE_TYPE6625; t94878 = NATIVE_PROCEDURE_TYPE6392; t94879 = NATIVE_PROCEDURE_TYPE6391; t94880 = NATIVE_PROCEDURE_TYPE6390; t94881 = NATIVE_PROCEDURE_TYPE6389; t94882 = NATIVE_PROCEDURE_TYPE6388; t94883 = NATIVE_PROCEDURE_TYPE6387; t94876 = f16182(t94877, t94878, t94879, t94880, t94881, t94882, t94883); /* x268177 */ t94873 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94873==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94873->s0.tag = EXTERNAL_SYMBOL_TYPE; t94873->s0.value.external_symbol_type = t94875; t94873->s1.tag = STRUCTURE_TYPE24757; t94873->s1.value.structure_type24757 = t94876; /* x161639 */ t94874 = a789; /* x268178 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94873; /* MOVE: branching squeezed to general */ if (t94874>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94874;} else a789->s1.tag = (unsigned)t94874; /* x161736 stalin.sc:22756:794284 */ /* x161735 */ /* x161733 */ /* x161644 */ t94886 = q139; /* x161732 */ /* x161646 stalin.sc:22758:794368 */ /* x161650 */ /* x161656 */ /* x161662 */ /* x161669 */ /* x161671 */ /* x161731 */ /* x161645 */ t94888 = NATIVE_PROCEDURE_TYPE6625; t94889 = NATIVE_PROCEDURE_TYPE6386; t94890 = NATIVE_PROCEDURE_TYPE6385; t94891 = NATIVE_PROCEDURE_TYPE6384; t94892 = NATIVE_PROCEDURE_TYPE6383; t94893 = NATIVE_PROCEDURE_TYPE6382; t94894 = NATIVE_PROCEDURE_TYPE6381; t94887 = f16182(t94888, t94889, t94890, t94891, t94892, t94893, t94894); /* x268173 */ t94884 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94884==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94884->s0.tag = EXTERNAL_SYMBOL_TYPE; t94884->s0.value.external_symbol_type = t94886; t94884->s1.tag = STRUCTURE_TYPE24757; t94884->s1.value.structure_type24757 = t94887; /* x161734 */ t94885 = a789; /* x268174 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94884; /* MOVE: branching squeezed to general */ if (t94885>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94885;} else a789->s1.tag = (unsigned)t94885; /* x161893 stalin.sc:22780:795106 */ /* x161892 */ /* x161890 */ /* x161739 */ t94897 = q140; /* x161889 */ /* x161741 stalin.sc:22782:795198 */ /* x161745 */ /* x161749 */ /* x161753 */ /* x161792 */ /* x161794 */ /* x161888 */ /* x161740 */ t94899 = NATIVE_PROCEDURE_TYPE6630; t94900 = NATIVE_PROCEDURE_TYPE6380; t94901 = NATIVE_PROCEDURE_TYPE6379; t94902 = NATIVE_PROCEDURE_TYPE6378; t94903 = NATIVE_PROCEDURE_TYPE6377; t94904 = NATIVE_PROCEDURE_TYPE6376; t94905 = NATIVE_PROCEDURE_TYPE6375; t94898 = f16182(t94899, t94900, t94901, t94902, t94903, t94904, t94905); /* x268169 */ t94895 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94895==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94895->s0.tag = EXTERNAL_SYMBOL_TYPE; t94895->s0.value.external_symbol_type = t94897; t94895->s1.tag = STRUCTURE_TYPE24757; t94895->s1.value.structure_type24757 = t94898; /* x161891 */ t94896 = a789; /* x268170 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94895; /* MOVE: branching squeezed to general */ if (t94896>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94896;} else a789->s1.tag = (unsigned)t94896; /* x162050 stalin.sc:22813:796055 */ /* x162049 */ /* x162047 */ /* x161896 */ t94908 = q141; /* x162046 */ /* x161898 stalin.sc:22815:796149 */ /* x161902 */ /* x161906 */ /* x161910 */ /* x161949 */ /* x161951 */ /* x162045 */ /* x161897 */ t94910 = NATIVE_PROCEDURE_TYPE6630; t94911 = NATIVE_PROCEDURE_TYPE6374; t94912 = NATIVE_PROCEDURE_TYPE6373; t94913 = NATIVE_PROCEDURE_TYPE6372; t94914 = NATIVE_PROCEDURE_TYPE6371; t94915 = NATIVE_PROCEDURE_TYPE6370; t94916 = NATIVE_PROCEDURE_TYPE6369; t94909 = f16182(t94910, t94911, t94912, t94913, t94914, t94915, t94916); /* x268167 */ t94906 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94906==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94906->s0.tag = EXTERNAL_SYMBOL_TYPE; t94906->s0.value.external_symbol_type = t94908; t94906->s1.tag = STRUCTURE_TYPE24757; t94906->s1.value.structure_type24757 = t94909; /* x162048 */ t94907 = a789; /* x268168 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94906; /* MOVE: branching squeezed to general */ if (t94907>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94907;} else a789->s1.tag = (unsigned)t94907; /* x162243 stalin.sc:22845:797017 */ /* x162242 */ /* x162240 */ /* x162053 */ t94919 = q142; /* x162239 */ /* x162055 stalin.sc:22847:797112 */ /* x162059 */ /* x162063 */ /* x162067 */ /* x162106 */ /* x162108 */ /* x162238 */ /* x162054 */ t94921 = NATIVE_PROCEDURE_TYPE6630; t94922 = NATIVE_PROCEDURE_TYPE6368; t94923 = NATIVE_PROCEDURE_TYPE6367; t94924 = NATIVE_PROCEDURE_TYPE6366; t94925 = NATIVE_PROCEDURE_TYPE6365; t94926 = NATIVE_PROCEDURE_TYPE6364; t94927 = NATIVE_PROCEDURE_TYPE6363; t94920 = f16182(t94921, t94922, t94923, t94924, t94925, t94926, t94927); /* x268165 */ t94917 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94917==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94917->s0.tag = EXTERNAL_SYMBOL_TYPE; t94917->s0.value.external_symbol_type = t94919; t94917->s1.tag = STRUCTURE_TYPE24757; t94917->s1.value.structure_type24757 = t94920; /* x162241 */ t94918 = a789; /* x268166 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94917; /* MOVE: branching squeezed to general */ if (t94918>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94918;} else a789->s1.tag = (unsigned)t94918; /* x162400 stalin.sc:22885:798179 */ /* x162399 */ /* x162397 */ /* x162246 */ t94930 = q143; /* x162396 */ /* x162248 stalin.sc:22887:798271 */ /* x162252 */ /* x162256 */ /* x162260 */ /* x162299 */ /* x162301 */ /* x162395 */ /* x162247 */ t94932 = NATIVE_PROCEDURE_TYPE6630; t94933 = NATIVE_PROCEDURE_TYPE6362; t94934 = NATIVE_PROCEDURE_TYPE6361; t94935 = NATIVE_PROCEDURE_TYPE6360; t94936 = NATIVE_PROCEDURE_TYPE6359; t94937 = NATIVE_PROCEDURE_TYPE6358; t94938 = NATIVE_PROCEDURE_TYPE6357; t94931 = f16182(t94932, t94933, t94934, t94935, t94936, t94937, t94938); /* x268163 */ t94928 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94928==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94928->s0.tag = EXTERNAL_SYMBOL_TYPE; t94928->s0.value.external_symbol_type = t94930; t94928->s1.tag = STRUCTURE_TYPE24757; t94928->s1.value.structure_type24757 = t94931; /* x162398 */ t94929 = a789; /* x268164 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94928; /* MOVE: branching squeezed to general */ if (t94929>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94929;} else a789->s1.tag = (unsigned)t94929; /* x162476 stalin.sc:22917:799135 */ /* x162475 */ /* x162473 */ /* x162403 */ t94941 = q144; /* x162472 */ /* x162405 stalin.sc:22919:799225 */ /* x162409 */ /* x162413 */ /* x162417 */ /* x162424 */ /* x162426 */ /* x162471 */ /* x162404 */ t94943 = NATIVE_PROCEDURE_TYPE6630; t94944 = NATIVE_PROCEDURE_TYPE6356; t94945 = NATIVE_PROCEDURE_TYPE6355; t94946 = NATIVE_PROCEDURE_TYPE6354; t94947 = NATIVE_PROCEDURE_TYPE6353; t94948 = NATIVE_PROCEDURE_TYPE6352; t94949 = NATIVE_PROCEDURE_TYPE6351; t94942 = f16182(t94943, t94944, t94945, t94946, t94947, t94948, t94949); /* x268161 */ t94939 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94939==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94939->s0.tag = EXTERNAL_SYMBOL_TYPE; t94939->s0.value.external_symbol_type = t94941; t94939->s1.tag = STRUCTURE_TYPE24757; t94939->s1.value.structure_type24757 = t94942; /* x162474 */ t94940 = a789; /* x268162 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94939; /* MOVE: branching squeezed to general */ if (t94940>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94940;} else a789->s1.tag = (unsigned)t94940; /* x162552 stalin.sc:22939:799751 */ /* x162551 */ /* x162549 */ /* x162479 */ t94952 = q145; /* x162548 */ /* x162481 stalin.sc:22954:800788 */ /* x162485 */ /* x162489 */ /* x162493 */ /* x162500 */ /* x162502 */ /* x162547 */ /* x162480 */ t94954 = NATIVE_PROCEDURE_TYPE6630; t94955 = NATIVE_PROCEDURE_TYPE6350; t94956 = NATIVE_PROCEDURE_TYPE6349; t94957 = NATIVE_PROCEDURE_TYPE6348; t94958 = NATIVE_PROCEDURE_TYPE6347; t94959 = NATIVE_PROCEDURE_TYPE6346; t94960 = NATIVE_PROCEDURE_TYPE6345; t94953 = f16182(t94954, t94955, t94956, t94957, t94958, t94959, t94960); /* x268159 */ t94950 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94950==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94950->s0.tag = EXTERNAL_SYMBOL_TYPE; t94950->s0.value.external_symbol_type = t94952; t94950->s1.tag = STRUCTURE_TYPE24757; t94950->s1.value.structure_type24757 = t94953; /* x162550 */ t94951 = a789; /* x268160 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94950; /* MOVE: branching squeezed to general */ if (t94951>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94951;} else a789->s1.tag = (unsigned)t94951; /* x162628 stalin.sc:22974:801314 */ /* x162627 */ /* x162625 */ /* x162555 */ t94963 = q146; /* x162624 */ /* x162557 stalin.sc:22976:801404 */ /* x162561 */ /* x162565 */ /* x162569 */ /* x162576 */ /* x162578 */ /* x162623 */ /* x162556 */ t94965 = NATIVE_PROCEDURE_TYPE6630; t94966 = NATIVE_PROCEDURE_TYPE6344; t94967 = NATIVE_PROCEDURE_TYPE6343; t94968 = NATIVE_PROCEDURE_TYPE6342; t94969 = NATIVE_PROCEDURE_TYPE6341; t94970 = NATIVE_PROCEDURE_TYPE6340; t94971 = NATIVE_PROCEDURE_TYPE6339; t94964 = f16182(t94965, t94966, t94967, t94968, t94969, t94970, t94971); /* x268157 */ t94961 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94961==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94961->s0.tag = EXTERNAL_SYMBOL_TYPE; t94961->s0.value.external_symbol_type = t94963; t94961->s1.tag = STRUCTURE_TYPE24757; t94961->s1.value.structure_type24757 = t94964; /* x162626 */ t94962 = a789; /* x268158 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94961; /* MOVE: branching squeezed to general */ if (t94962>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94962;} else a789->s1.tag = (unsigned)t94962; /* x162704 stalin.sc:22996:801930 */ /* x162703 */ /* x162701 */ /* x162631 */ t94974 = q147; /* x162700 */ /* x162633 stalin.sc:22998:802020 */ /* x162637 */ /* x162641 */ /* x162645 */ /* x162652 */ /* x162654 */ /* x162699 */ /* x162632 */ t94976 = NATIVE_PROCEDURE_TYPE6630; t94977 = NATIVE_PROCEDURE_TYPE6338; t94978 = NATIVE_PROCEDURE_TYPE6337; t94979 = NATIVE_PROCEDURE_TYPE6336; t94980 = NATIVE_PROCEDURE_TYPE6335; t94981 = NATIVE_PROCEDURE_TYPE6334; t94982 = NATIVE_PROCEDURE_TYPE6333; t94975 = f16182(t94976, t94977, t94978, t94979, t94980, t94981, t94982); /* x268155 */ t94972 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94972==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94972->s0.tag = EXTERNAL_SYMBOL_TYPE; t94972->s0.value.external_symbol_type = t94974; t94972->s1.tag = STRUCTURE_TYPE24757; t94972->s1.value.structure_type24757 = t94975; /* x162702 */ t94973 = a789; /* x268156 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94972; /* MOVE: branching squeezed to general */ if (t94973>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94973;} else a789->s1.tag = (unsigned)t94973; /* x162780 stalin.sc:23018:802546 */ /* x162779 */ /* x162777 */ /* x162707 */ t94985 = q148; /* x162776 */ /* x162709 stalin.sc:23020:802636 */ /* x162713 */ /* x162717 */ /* x162721 */ /* x162728 */ /* x162730 */ /* x162775 */ /* x162708 */ t94987 = NATIVE_PROCEDURE_TYPE6630; t94988 = NATIVE_PROCEDURE_TYPE6332; t94989 = NATIVE_PROCEDURE_TYPE6331; t94990 = NATIVE_PROCEDURE_TYPE6330; t94991 = NATIVE_PROCEDURE_TYPE6329; t94992 = NATIVE_PROCEDURE_TYPE6328; t94993 = NATIVE_PROCEDURE_TYPE6327; t94986 = f16182(t94987, t94988, t94989, t94990, t94991, t94992, t94993); /* x268153 */ t94983 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94983==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94983->s0.tag = EXTERNAL_SYMBOL_TYPE; t94983->s0.value.external_symbol_type = t94985; t94983->s1.tag = STRUCTURE_TYPE24757; t94983->s1.value.structure_type24757 = t94986; /* x162778 */ t94984 = a789; /* x268154 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94983; /* MOVE: branching squeezed to general */ if (t94984>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94984;} else a789->s1.tag = (unsigned)t94984; /* x162856 stalin.sc:23040:803162 */ /* x162855 */ /* x162853 */ /* x162783 */ t94996 = q149; /* x162852 */ /* x162785 stalin.sc:23055:804190 */ /* x162789 */ /* x162793 */ /* x162797 */ /* x162804 */ /* x162806 */ /* x162851 */ /* x162784 */ t94998 = NATIVE_PROCEDURE_TYPE6630; t94999 = NATIVE_PROCEDURE_TYPE6326; t95000 = NATIVE_PROCEDURE_TYPE6325; t95001 = NATIVE_PROCEDURE_TYPE6324; t95002 = NATIVE_PROCEDURE_TYPE6323; t95003 = NATIVE_PROCEDURE_TYPE6322; t95004 = NATIVE_PROCEDURE_TYPE6321; t94997 = f16182(t94998, t94999, t95000, t95001, t95002, t95003, t95004); /* x268151 */ t94994 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t94994==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t94994->s0.tag = EXTERNAL_SYMBOL_TYPE; t94994->s0.value.external_symbol_type = t94996; t94994->s1.tag = STRUCTURE_TYPE24757; t94994->s1.value.structure_type24757 = t94997; /* x162854 */ t94995 = a789; /* x268152 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t94994; /* MOVE: branching squeezed to general */ if (t94995>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t94995;} else a789->s1.tag = (unsigned)t94995; /* x162932 stalin.sc:23075:804711 */ /* x162931 */ /* x162929 */ /* x162859 */ t95007 = q150; /* x162928 */ /* x162861 stalin.sc:23090:805739 */ /* x162865 */ /* x162869 */ /* x162873 */ /* x162880 */ /* x162882 */ /* x162927 */ /* x162860 */ t95009 = NATIVE_PROCEDURE_TYPE6630; t95010 = NATIVE_PROCEDURE_TYPE6320; t95011 = NATIVE_PROCEDURE_TYPE6319; t95012 = NATIVE_PROCEDURE_TYPE6318; t95013 = NATIVE_PROCEDURE_TYPE6317; t95014 = NATIVE_PROCEDURE_TYPE6316; t95015 = NATIVE_PROCEDURE_TYPE6315; t95008 = f16182(t95009, t95010, t95011, t95012, t95013, t95014, t95015); /* x268149 */ t95005 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95005==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95005->s0.tag = EXTERNAL_SYMBOL_TYPE; t95005->s0.value.external_symbol_type = t95007; t95005->s1.tag = STRUCTURE_TYPE24757; t95005->s1.value.structure_type24757 = t95008; /* x162930 */ t95006 = a789; /* x268150 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95005; /* MOVE: branching squeezed to general */ if (t95006>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95006;} else a789->s1.tag = (unsigned)t95006; /* x163104 stalin.sc:23110:806260 */ /* x163103 */ /* x163101 */ /* x162935 */ t95018 = q151; /* x163100 */ /* x162937 stalin.sc:23112:806351 */ /* x162942 */ /* x162947 */ /* x162952 */ /* x162963 */ /* x162965 */ /* x163099 */ /* x162936 */ t95020 = NATIVE_PROCEDURE_TYPE6626; t95021 = NATIVE_PROCEDURE_TYPE6314; t95022 = NATIVE_PROCEDURE_TYPE6313; t95023 = NATIVE_PROCEDURE_TYPE6312; t95024 = NATIVE_PROCEDURE_TYPE6311; t95025 = NATIVE_PROCEDURE_TYPE6310; t95026 = NATIVE_PROCEDURE_TYPE6309; t95019 = f16182(t95020, t95021, t95022, t95023, t95024, t95025, t95026); /* x268147 */ t95016 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95016==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95016->s0.tag = EXTERNAL_SYMBOL_TYPE; t95016->s0.value.external_symbol_type = t95018; t95016->s1.tag = STRUCTURE_TYPE24757; t95016->s1.value.structure_type24757 = t95019; /* x163102 */ t95017 = a789; /* x268148 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95016; /* MOVE: branching squeezed to general */ if (t95017>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95017;} else a789->s1.tag = (unsigned)t95017; /* x163180 stalin.sc:23163:807742 */ /* x163179 */ /* x163177 */ /* x163107 */ t95029 = q152; /* x163176 */ /* x163109 stalin.sc:23178:808776 */ /* x163113 */ /* x163117 */ /* x163121 */ /* x163128 */ /* x163130 */ /* x163175 */ /* x163108 */ t95031 = NATIVE_PROCEDURE_TYPE6630; t95032 = NATIVE_PROCEDURE_TYPE6308; t95033 = NATIVE_PROCEDURE_TYPE6307; t95034 = NATIVE_PROCEDURE_TYPE6306; t95035 = NATIVE_PROCEDURE_TYPE6305; t95036 = NATIVE_PROCEDURE_TYPE6304; t95037 = NATIVE_PROCEDURE_TYPE6303; t95030 = f16182(t95031, t95032, t95033, t95034, t95035, t95036, t95037); /* x268144 */ t95027 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95027==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95027->s0.tag = EXTERNAL_SYMBOL_TYPE; t95027->s0.value.external_symbol_type = t95029; t95027->s1.tag = STRUCTURE_TYPE24757; t95027->s1.value.structure_type24757 = t95030; /* x163178 */ t95028 = a789; /* x268145 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95027; /* MOVE: branching squeezed to general */ if (t95028>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95028;} else a789->s1.tag = (unsigned)t95028; /* x163378 stalin.sc:23198:809297 */ /* x163377 */ /* x163375 */ /* x163183 */ t95040 = q153; /* x163374 */ /* x163185 stalin.sc:23220:810840 */ /* x163190 */ /* x163195 */ /* x163200 */ /* x163242 */ /* x163244 */ /* x163373 */ /* x163184 */ t95042 = NATIVE_PROCEDURE_TYPE6629; t95043 = NATIVE_PROCEDURE_TYPE6302; t95044 = NATIVE_PROCEDURE_TYPE6301; t95045 = NATIVE_PROCEDURE_TYPE6300; t95046 = NATIVE_PROCEDURE_TYPE6299; t95047 = NATIVE_PROCEDURE_TYPE6298; t95048 = NATIVE_PROCEDURE_TYPE6297; t95041 = f16182(t95042, t95043, t95044, t95045, t95046, t95047, t95048); /* x268142 */ t95038 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95038==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95038->s0.tag = EXTERNAL_SYMBOL_TYPE; t95038->s0.value.external_symbol_type = t95040; t95038->s1.tag = STRUCTURE_TYPE24757; t95038->s1.value.structure_type24757 = t95041; /* x163376 */ t95039 = a789; /* x268143 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95038; /* MOVE: branching squeezed to general */ if (t95039>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95039;} else a789->s1.tag = (unsigned)t95039; /* x163497 stalin.sc:23259:812043 */ /* x163496 */ /* x163494 */ /* x163381 */ t95051 = q154; /* x163493 */ /* x163383 stalin.sc:23260:812087 */ /* x163387 */ /* x163391 */ /* x163395 */ /* x163425 */ /* x163427 */ /* x163492 */ /* x163382 */ t95053 = NATIVE_PROCEDURE_TYPE6630; t95054 = NATIVE_PROCEDURE_TYPE6296; t95055 = NATIVE_PROCEDURE_TYPE6295; t95056 = NATIVE_PROCEDURE_TYPE6294; t95057 = NATIVE_PROCEDURE_TYPE6293; t95058 = NATIVE_PROCEDURE_TYPE6292; t95059 = NATIVE_PROCEDURE_TYPE6291; t95052 = f16182(t95053, t95054, t95055, t95056, t95057, t95058, t95059); /* x268140 */ t95049 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95049==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95049->s0.tag = EXTERNAL_SYMBOL_TYPE; t95049->s0.value.external_symbol_type = t95051; t95049->s1.tag = STRUCTURE_TYPE24757; t95049->s1.value.structure_type24757 = t95052; /* x163495 */ t95050 = a789; /* x268141 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95049; /* MOVE: branching squeezed to general */ if (t95050>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95050;} else a789->s1.tag = (unsigned)t95050; /* x163618 stalin.sc:23284:812785 */ /* x163617 */ /* x163615 */ /* x163500 */ t95062 = q155; /* x163614 */ /* x163502 stalin.sc:23285:812829 */ /* x163506 */ /* x163510 */ /* x163514 */ /* x163521 */ /* x163523 */ /* x163613 */ /* x163501 */ t95064 = NATIVE_PROCEDURE_TYPE6630; t95065 = NATIVE_PROCEDURE_TYPE6290; t95066 = NATIVE_PROCEDURE_TYPE6289; t95067 = NATIVE_PROCEDURE_TYPE6288; t95068 = NATIVE_PROCEDURE_TYPE6287; t95069 = NATIVE_PROCEDURE_TYPE6286; t95070 = NATIVE_PROCEDURE_TYPE6285; t95063 = f16182(t95064, t95065, t95066, t95067, t95068, t95069, t95070); /* x268138 */ t95060 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95060==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95060->s0.tag = EXTERNAL_SYMBOL_TYPE; t95060->s0.value.external_symbol_type = t95062; t95060->s1.tag = STRUCTURE_TYPE24757; t95060->s1.value.structure_type24757 = t95063; /* x163616 */ t95061 = a789; /* x268139 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95060; /* MOVE: branching squeezed to general */ if (t95061>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95061;} else a789->s1.tag = (unsigned)t95061; /* x163683 stalin.sc:23310:813534 */ /* x163682 */ /* x163680 */ /* x163621 */ t95073 = q156; /* x163679 */ /* x163623 stalin.sc:23311:813569 */ /* x163627 */ /* x163631 */ /* x163640 */ /* x163672 */ /* x163674 */ /* x163678 */ /* x163622 */ t95075 = NATIVE_PROCEDURE_TYPE6630; t95076 = NATIVE_PROCEDURE_TYPE6284; t95077 = NATIVE_PROCEDURE_TYPE6283; t95078 = NATIVE_PROCEDURE_TYPE6282; t95079 = NATIVE_PROCEDURE_TYPE6281; t95080 = NATIVE_PROCEDURE_TYPE6280; t95081 = NATIVE_PROCEDURE_TYPE6279; t95074 = f16182(t95075, t95076, t95077, t95078, t95079, t95080, t95081); /* x268136 */ t95071 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95071==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95071->s0.tag = EXTERNAL_SYMBOL_TYPE; t95071->s0.value.external_symbol_type = t95073; t95071->s1.tag = STRUCTURE_TYPE24757; t95071->s1.value.structure_type24757 = t95074; /* x163681 */ t95072 = a789; /* x268137 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95071; /* MOVE: branching squeezed to general */ if (t95072>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95072;} else a789->s1.tag = (unsigned)t95072; /* x163741 stalin.sc:23323:813967 */ /* x163740 */ /* x163738 */ /* x163686 */ t95084 = q157; /* x163737 */ /* x163688 stalin.sc:23324:814010 */ /* x163692 */ /* x163696 */ /* x163700 */ /* x163707 */ /* x163709 */ /* x163736 */ /* x163687 */ t95086 = NATIVE_PROCEDURE_TYPE6630; t95087 = NATIVE_PROCEDURE_TYPE6278; t95088 = NATIVE_PROCEDURE_TYPE6277; t95089 = NATIVE_PROCEDURE_TYPE6276; t95090 = NATIVE_PROCEDURE_TYPE6275; t95091 = NATIVE_PROCEDURE_TYPE6274; t95092 = NATIVE_PROCEDURE_TYPE6273; t95085 = f16182(t95086, t95087, t95088, t95089, t95090, t95091, t95092); /* x268133 */ t95082 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95082==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95082->s0.tag = EXTERNAL_SYMBOL_TYPE; t95082->s0.value.external_symbol_type = t95084; t95082->s1.tag = STRUCTURE_TYPE24757; t95082->s1.value.structure_type24757 = t95085; /* x163739 */ t95083 = a789; /* x268134 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95082; /* MOVE: branching squeezed to general */ if (t95083>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95083;} else a789->s1.tag = (unsigned)t95083; /* x163831 stalin.sc:23340:814395 */ /* x163830 */ /* x163828 */ /* x163744 */ t95095 = q158; /* x163827 */ /* x163746 stalin.sc:23341:814438 */ /* x163750 */ /* x163754 */ /* x163758 */ /* x163765 */ /* x163767 */ /* x163826 */ /* x163745 */ t95097 = NATIVE_PROCEDURE_TYPE6630; t95098 = NATIVE_PROCEDURE_TYPE6272; t95099 = NATIVE_PROCEDURE_TYPE6271; t95100 = NATIVE_PROCEDURE_TYPE6270; t95101 = NATIVE_PROCEDURE_TYPE6269; t95102 = NATIVE_PROCEDURE_TYPE6268; t95103 = NATIVE_PROCEDURE_TYPE6267; t95096 = f16182(t95097, t95098, t95099, t95100, t95101, t95102, t95103); /* x268131 */ t95093 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95093==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95093->s0.tag = EXTERNAL_SYMBOL_TYPE; t95093->s0.value.external_symbol_type = t95095; t95093->s1.tag = STRUCTURE_TYPE24757; t95093->s1.value.structure_type24757 = t95096; /* x163829 */ t95094 = a789; /* x268132 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95093; /* MOVE: branching squeezed to general */ if (t95094>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95094;} else a789->s1.tag = (unsigned)t95094; /* x163896 stalin.sc:23364:815029 */ /* x163895 */ /* x163893 */ /* x163834 */ t95106 = q159; /* x163892 */ /* x163836 stalin.sc:23365:815066 */ /* x163840 */ /* x163844 */ /* x163853 */ /* x163885 */ /* x163887 */ /* x163891 */ /* x163835 */ t95108 = NATIVE_PROCEDURE_TYPE6630; t95109 = NATIVE_PROCEDURE_TYPE6266; t95110 = NATIVE_PROCEDURE_TYPE6265; t95111 = NATIVE_PROCEDURE_TYPE6264; t95112 = NATIVE_PROCEDURE_TYPE6263; t95113 = NATIVE_PROCEDURE_TYPE6262; t95114 = NATIVE_PROCEDURE_TYPE6261; t95107 = f16182(t95108, t95109, t95110, t95111, t95112, t95113, t95114); /* x268129 */ t95104 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95104==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95104->s0.tag = EXTERNAL_SYMBOL_TYPE; t95104->s0.value.external_symbol_type = t95106; t95104->s1.tag = STRUCTURE_TYPE24757; t95104->s1.value.structure_type24757 = t95107; /* x163894 */ t95105 = a789; /* x268130 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95104; /* MOVE: branching squeezed to general */ if (t95105>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95105;} else a789->s1.tag = (unsigned)t95105; /* x164294 stalin.sc:23377:815476 */ /* x164293 */ /* x164291 */ /* x163899 */ t95117 = q160; /* x164290 */ /* x163901 stalin.sc:23378:815517 */ /* x163906 */ /* x163911 */ /* x163916 */ /* x163935 */ /* x163937 */ /* x164289 */ /* x163900 */ t95119 = NATIVE_PROCEDURE_TYPE6626; t95120 = NATIVE_PROCEDURE_TYPE6260; t95121 = NATIVE_PROCEDURE_TYPE6259; t95122 = NATIVE_PROCEDURE_TYPE6258; t95123 = NATIVE_PROCEDURE_TYPE6257; t95124 = NATIVE_PROCEDURE_TYPE6256; t95125 = NATIVE_PROCEDURE_TYPE6255; t95118 = f16182(t95119, t95120, t95121, t95122, t95123, t95124, t95125); /* x268126 */ t95115 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95115==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95115->s0.tag = EXTERNAL_SYMBOL_TYPE; t95115->s0.value.external_symbol_type = t95117; t95115->s1.tag = STRUCTURE_TYPE24757; t95115->s1.value.structure_type24757 = t95118; /* x164292 */ t95116 = a789; /* x268127 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95115; /* MOVE: branching squeezed to general */ if (t95116>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95116;} else a789->s1.tag = (unsigned)t95116; /* x164476 stalin.sc:23493:818672 */ /* x164475 */ /* x164473 */ /* x164297 */ t95128 = q161; /* x164472 */ /* x164299 stalin.sc:23494:818708 */ /* x164303 */ /* x164309 */ /* x164315 */ /* x164326 */ /* x164328 */ /* x164471 */ /* x164298 */ t95130 = NATIVE_PROCEDURE_TYPE6625; t95131 = NATIVE_PROCEDURE_TYPE6254; t95132 = NATIVE_PROCEDURE_TYPE6253; t95133 = NATIVE_PROCEDURE_TYPE6252; t95134 = NATIVE_PROCEDURE_TYPE6251; t95135 = NATIVE_PROCEDURE_TYPE6250; t95136 = NATIVE_PROCEDURE_TYPE6249; t95129 = f16182(t95130, t95131, t95132, t95133, t95134, t95135, t95136); /* x268117 */ t95126 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95126==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95126->s0.tag = EXTERNAL_SYMBOL_TYPE; t95126->s0.value.external_symbol_type = t95128; t95126->s1.tag = STRUCTURE_TYPE24757; t95126->s1.value.structure_type24757 = t95129; /* x164474 */ t95127 = a789; /* x268118 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95126; /* MOVE: branching squeezed to general */ if (t95127>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95127;} else a789->s1.tag = (unsigned)t95127; /* x164548 stalin.sc:23529:819794 */ /* x164547 */ /* x164545 */ /* x164479 */ t95139 = q162; /* x164544 */ /* x164481 stalin.sc:23530:819837 */ /* x164485 */ /* x164489 */ /* x164493 */ /* x164518 */ /* x164520 */ /* x164543 */ /* x164480 */ t95141 = NATIVE_PROCEDURE_TYPE6630; t95142 = NATIVE_PROCEDURE_TYPE6248; t95143 = NATIVE_PROCEDURE_TYPE6247; t95144 = NATIVE_PROCEDURE_TYPE6246; t95145 = NATIVE_PROCEDURE_TYPE6245; t95146 = NATIVE_PROCEDURE_TYPE6244; t95147 = NATIVE_PROCEDURE_TYPE6243; t95140 = f16182(t95141, t95142, t95143, t95144, t95145, t95146, t95147); /* x268112 */ t95137 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95137==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95137->s0.tag = EXTERNAL_SYMBOL_TYPE; t95137->s0.value.external_symbol_type = t95139; t95137->s1.tag = STRUCTURE_TYPE24757; t95137->s1.value.structure_type24757 = t95140; /* x164546 */ t95138 = a789; /* x268113 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95137; /* MOVE: branching squeezed to general */ if (t95138>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95138;} else a789->s1.tag = (unsigned)t95138; /* x164678 stalin.sc:23550:820332 */ /* x164677 */ /* x164675 */ /* x164551 */ t95150 = q163; /* x164674 */ /* x164553 stalin.sc:23551:820372 */ /* x164558 */ /* x164563 */ /* x164568 */ /* x164593 */ /* x164595 */ /* x164673 */ /* x164552 */ t95152 = NATIVE_PROCEDURE_TYPE6629; t95153 = NATIVE_PROCEDURE_TYPE6242; t95154 = NATIVE_PROCEDURE_TYPE6241; t95155 = NATIVE_PROCEDURE_TYPE6240; t95156 = NATIVE_PROCEDURE_TYPE6239; t95157 = NATIVE_PROCEDURE_TYPE6238; t95158 = NATIVE_PROCEDURE_TYPE6237; t95151 = f16182(t95152, t95153, t95154, t95155, t95156, t95157, t95158); /* x268110 */ t95148 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95148==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95148->s0.tag = EXTERNAL_SYMBOL_TYPE; t95148->s0.value.external_symbol_type = t95150; t95148->s1.tag = STRUCTURE_TYPE24757; t95148->s1.value.structure_type24757 = t95151; /* x164676 */ t95149 = a789; /* x268111 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95148; /* MOVE: branching squeezed to general */ if (t95149>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95149;} else a789->s1.tag = (unsigned)t95149; /* x164812 stalin.sc:23588:821280 */ /* x164811 */ /* x164809 */ /* x164681 */ t95161 = q164; /* x164808 */ /* x164683 stalin.sc:23589:821321 */ /* x164689 */ /* x164695 */ /* x164701 */ /* x164706 */ /* x164708 */ /* x164807 */ /* x164682 */ t95163 = NATIVE_PROCEDURE_TYPE6628; t95164 = NATIVE_PROCEDURE_TYPE6236; t95165 = NATIVE_PROCEDURE_TYPE6235; t95166 = NATIVE_PROCEDURE_TYPE6234; t95167 = NATIVE_PROCEDURE_TYPE6233; t95168 = NATIVE_PROCEDURE_TYPE6232; t95169 = NATIVE_PROCEDURE_TYPE6231; t95162 = f16182(t95163, t95164, t95165, t95166, t95167, t95168, t95169); /* x268108 */ t95159 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95159==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95159->s0.tag = EXTERNAL_SYMBOL_TYPE; t95159->s0.value.external_symbol_type = t95161; t95159->s1.tag = STRUCTURE_TYPE24757; t95159->s1.value.structure_type24757 = t95162; /* x164810 */ t95160 = a789; /* x268109 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95159; /* MOVE: branching squeezed to general */ if (t95160>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95160;} else a789->s1.tag = (unsigned)t95160; /* x164877 stalin.sc:23629:822301 */ /* x164876 */ /* x164874 */ /* x164815 */ t95172 = q165; /* x164873 */ /* x164817 stalin.sc:23630:822338 */ /* x164821 */ /* x164825 */ /* x164834 */ /* x164866 */ /* x164868 */ /* x164872 */ /* x164816 */ t95174 = NATIVE_PROCEDURE_TYPE6630; t95175 = NATIVE_PROCEDURE_TYPE6230; t95176 = NATIVE_PROCEDURE_TYPE6229; t95177 = NATIVE_PROCEDURE_TYPE6228; t95178 = NATIVE_PROCEDURE_TYPE6227; t95179 = NATIVE_PROCEDURE_TYPE6226; t95180 = NATIVE_PROCEDURE_TYPE6225; t95173 = f16182(t95174, t95175, t95176, t95177, t95178, t95179, t95180); /* x268106 */ t95170 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95170==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95170->s0.tag = EXTERNAL_SYMBOL_TYPE; t95170->s0.value.external_symbol_type = t95172; t95170->s1.tag = STRUCTURE_TYPE24757; t95170->s1.value.structure_type24757 = t95173; /* x164875 */ t95171 = a789; /* x268107 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95170; /* MOVE: branching squeezed to general */ if (t95171>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95171;} else a789->s1.tag = (unsigned)t95171; /* x165267 stalin.sc:23642:822748 */ /* x165266 */ /* x165264 */ /* x164880 */ t95183 = q166; /* x165263 */ /* x164882 stalin.sc:23643:822789 */ /* x164887 */ /* x164892 */ /* x164897 */ /* x164920 */ /* x165021 */ /* x165262 */ /* x164881 */ t95185 = NATIVE_PROCEDURE_TYPE6626; t95186 = NATIVE_PROCEDURE_TYPE6224; t95187 = NATIVE_PROCEDURE_TYPE6223; t95188 = NATIVE_PROCEDURE_TYPE6222; t95189 = NATIVE_PROCEDURE_TYPE6221; t95190 = NATIVE_PROCEDURE_TYPE6220; t95191 = NATIVE_PROCEDURE_TYPE6219; t95184 = f16182(t95185, t95186, t95187, t95188, t95189, t95190, t95191); /* x268103 */ t95181 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95181==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95181->s0.tag = EXTERNAL_SYMBOL_TYPE; t95181->s0.value.external_symbol_type = t95183; t95181->s1.tag = STRUCTURE_TYPE24757; t95181->s1.value.structure_type24757 = t95184; /* x165265 */ t95182 = a789; /* x268104 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95181; /* MOVE: branching squeezed to general */ if (t95182>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95182;} else a789->s1.tag = (unsigned)t95182; /* x165496 stalin.sc:23755:825930 */ /* x165495 */ /* x165493 */ /* x165270 */ t95194 = q167; /* x165492 */ /* x165272 stalin.sc:23756:825981 */ /* x165278 */ /* x165284 */ /* x165290 */ /* x165311 */ /* x165313 */ /* x165491 */ /* x165271 */ t95196 = NATIVE_PROCEDURE_TYPE6628; t95197 = NATIVE_PROCEDURE_TYPE6218; t95198 = NATIVE_PROCEDURE_TYPE6217; t95199 = NATIVE_PROCEDURE_TYPE6216; t95200 = NATIVE_PROCEDURE_TYPE6215; t95201 = NATIVE_PROCEDURE_TYPE6214; t95202 = NATIVE_PROCEDURE_TYPE6213; t95195 = f16182(t95196, t95197, t95198, t95199, t95200, t95201, t95202); /* x268094 */ t95192 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95192==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95192->s0.tag = EXTERNAL_SYMBOL_TYPE; t95192->s0.value.external_symbol_type = t95194; t95192->s1.tag = STRUCTURE_TYPE24757; t95192->s1.value.structure_type24757 = t95195; /* x165494 */ t95193 = a789; /* x268095 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95192; /* MOVE: branching squeezed to general */ if (t95193>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95193;} else a789->s1.tag = (unsigned)t95193; /* x165737 stalin.sc:23821:827723 */ /* x165736 */ /* x165734 */ /* x165499 */ t95205 = q6; /* x165733 */ /* x165501 stalin.sc:23822:827759 */ /* x165505 */ /* x165511 */ /* x165517 */ /* x165536 */ /* x165613 */ /* x165732 */ /* x165500 */ t95207 = NATIVE_PROCEDURE_TYPE6625; t95208 = NATIVE_PROCEDURE_TYPE6212; t95209 = NATIVE_PROCEDURE_TYPE6211; t95210 = NATIVE_PROCEDURE_TYPE6210; t95211 = NATIVE_PROCEDURE_TYPE6209; t95212 = NATIVE_PROCEDURE_TYPE6208; t95213 = NATIVE_PROCEDURE_TYPE6207; t95206 = f16182(t95207, t95208, t95209, t95210, t95211, t95212, t95213); /* x268091 */ t95203 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95203==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95203->s0.tag = EXTERNAL_SYMBOL_TYPE; t95203->s0.value.external_symbol_type = t95205; t95203->s1.tag = STRUCTURE_TYPE24757; t95203->s1.value.structure_type24757 = t95206; /* x165735 */ t95204 = a789; /* x268092 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95203; /* MOVE: branching squeezed to general */ if (t95204>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95204;} else a789->s1.tag = (unsigned)t95204; /* x165829 stalin.sc:23878:829494 */ /* x165828 */ /* x165826 */ /* x165740 */ t95216 = q168; /* x165825 */ /* x165742 stalin.sc:23879:829537 */ /* x165746 */ /* x165750 */ /* x165754 */ /* x165799 */ /* x165801 */ /* x165824 */ /* x165741 */ t95218 = NATIVE_PROCEDURE_TYPE6630; t95219 = NATIVE_PROCEDURE_TYPE6206; t95220 = NATIVE_PROCEDURE_TYPE6205; t95221 = NATIVE_PROCEDURE_TYPE6204; t95222 = NATIVE_PROCEDURE_TYPE6203; t95223 = NATIVE_PROCEDURE_TYPE6202; t95224 = NATIVE_PROCEDURE_TYPE6201; t95217 = f16182(t95218, t95219, t95220, t95221, t95222, t95223, t95224); /* x268087 */ t95214 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95214==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95214->s0.tag = EXTERNAL_SYMBOL_TYPE; t95214->s0.value.external_symbol_type = t95216; t95214->s1.tag = STRUCTURE_TYPE24757; t95214->s1.value.structure_type24757 = t95217; /* x165827 */ t95215 = a789; /* x268088 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95214; /* MOVE: branching squeezed to general */ if (t95215>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95215;} else a789->s1.tag = (unsigned)t95215; /* x166028 stalin.sc:23904:830241 */ /* x166027 */ /* x166025 */ /* x165832 */ t95227 = q169; /* x166024 */ /* x165834 stalin.sc:23905:830281 */ /* x165839 */ /* x165844 */ /* x165849 */ /* x165909 */ /* x165943 */ /* x166023 */ /* x165833 */ t95229 = NATIVE_PROCEDURE_TYPE6629; t95230 = NATIVE_PROCEDURE_TYPE6200; t95231 = NATIVE_PROCEDURE_TYPE6199; t95232 = NATIVE_PROCEDURE_TYPE6198; t95233 = NATIVE_PROCEDURE_TYPE6197; t95234 = NATIVE_PROCEDURE_TYPE6196; t95235 = NATIVE_PROCEDURE_TYPE6195; t95228 = f16182(t95229, t95230, t95231, t95232, t95233, t95234, t95235); /* x268085 */ t95225 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95225==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95225->s0.tag = EXTERNAL_SYMBOL_TYPE; t95225->s0.value.external_symbol_type = t95227; t95225->s1.tag = STRUCTURE_TYPE24757; t95225->s1.value.structure_type24757 = t95228; /* x166026 */ t95226 = a789; /* x268086 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95225; /* MOVE: branching squeezed to general */ if (t95226>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95226;} else a789->s1.tag = (unsigned)t95226; /* x166209 stalin.sc:23961:831742 */ /* x166208 */ /* x166206 */ /* x166031 */ t95238 = q170; /* x166205 */ /* x166033 stalin.sc:23962:831783 */ /* x166039 */ /* x166045 */ /* x166051 */ /* x166073 */ /* x166113 */ /* x166204 */ /* x166032 */ t95240 = NATIVE_PROCEDURE_TYPE6628; t95241 = NATIVE_PROCEDURE_TYPE6194; t95242 = NATIVE_PROCEDURE_TYPE6193; t95243 = NATIVE_PROCEDURE_TYPE6192; t95244 = NATIVE_PROCEDURE_TYPE6191; t95245 = NATIVE_PROCEDURE_TYPE6190; t95246 = NATIVE_PROCEDURE_TYPE6189; t95239 = f16182(t95240, t95241, t95242, t95243, t95244, t95245, t95246); /* x268083 */ t95236 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95236==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95236->s0.tag = EXTERNAL_SYMBOL_TYPE; t95236->s0.value.external_symbol_type = t95238; t95236->s1.tag = STRUCTURE_TYPE24757; t95236->s1.value.structure_type24757 = t95239; /* x166207 */ t95237 = a789; /* x268084 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95236; /* MOVE: branching squeezed to general */ if (t95237>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95237;} else a789->s1.tag = (unsigned)t95237; /* x166274 stalin.sc:24017:833095 */ /* x166273 */ /* x166271 */ /* x166212 */ t95249 = q171; /* x166270 */ /* x166214 stalin.sc:24018:833135 */ /* x166218 */ /* x166222 */ /* x166231 */ /* x166263 */ /* x166265 */ /* x166269 */ /* x166213 */ t95251 = NATIVE_PROCEDURE_TYPE6630; t95252 = NATIVE_PROCEDURE_TYPE6188; t95253 = NATIVE_PROCEDURE_TYPE6187; t95254 = NATIVE_PROCEDURE_TYPE6186; t95255 = NATIVE_PROCEDURE_TYPE6185; t95256 = NATIVE_PROCEDURE_TYPE6184; t95257 = NATIVE_PROCEDURE_TYPE6183; t95250 = f16182(t95251, t95252, t95253, t95254, t95255, t95256, t95257); /* x268081 */ t95247 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95247==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95247->s0.tag = EXTERNAL_SYMBOL_TYPE; t95247->s0.value.external_symbol_type = t95249; t95247->s1.tag = STRUCTURE_TYPE24757; t95247->s1.value.structure_type24757 = t95250; /* x166272 */ t95248 = a789; /* x268082 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95247; /* MOVE: branching squeezed to general */ if (t95248>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95248;} else a789->s1.tag = (unsigned)t95248; /* x166551 stalin.sc:24030:833563 */ /* x166550 */ /* x166548 */ /* x166277 */ t95260 = q79; /* x166547 */ /* x166279 stalin.sc:24031:833598 */ /* x166333 */ /* x166350 */ /* x166367 */ /* x166432 */ /* x166434 */ /* x166546 */ /* x166278 */ t95262 = NATIVE_PROCEDURE_TYPE6623; t95263 = NATIVE_PROCEDURE_TYPE6182; t95264 = NATIVE_PROCEDURE_TYPE6181; t95265 = NATIVE_PROCEDURE_TYPE6180; t95266 = NATIVE_PROCEDURE_TYPE6179; t95267 = NATIVE_PROCEDURE_TYPE6178; t95268 = NATIVE_PROCEDURE_TYPE6177; t95261 = f16182(t95262, t95263, t95264, t95265, t95266, t95267, t95268); /* x268078 */ t95258 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95258==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95258->s0.tag = EXTERNAL_SYMBOL_TYPE; t95258->s0.value.external_symbol_type = t95260; t95258->s1.tag = STRUCTURE_TYPE24757; t95258->s1.value.structure_type24757 = t95261; /* x166549 */ t95259 = a789; /* x268079 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95258; /* MOVE: branching squeezed to general */ if (t95259>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95259;} else a789->s1.tag = (unsigned)t95259; /* x167304 stalin.sc:24083:835383 */ /* x167303 */ /* x167301 */ /* x166554 */ t95271 = q66; /* x167300 */ /* x166556 stalin.sc:24084:835443 */ /* x166583 */ /* x166610 */ /* x166637 */ /* x166687 */ /* x166860 */ /* x167299 */ /* x166555 */ t95273 = NATIVE_PROCEDURE_TYPE6630; t95274 = NATIVE_PROCEDURE_TYPE6176; t95275 = NATIVE_PROCEDURE_TYPE6175; t95276 = NATIVE_PROCEDURE_TYPE6174; t95277 = NATIVE_PROCEDURE_TYPE6173; t95278 = NATIVE_PROCEDURE_TYPE6172; t95279 = NATIVE_PROCEDURE_TYPE6171; t95272 = f16182(t95273, t95274, t95275, t95276, t95277, t95278, t95279); /* x268067 */ t95269 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95269==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95269->s0.tag = EXTERNAL_SYMBOL_TYPE; t95269->s0.value.external_symbol_type = t95271; t95269->s1.tag = STRUCTURE_TYPE24757; t95269->s1.value.structure_type24757 = t95272; /* x167302 */ t95270 = a789; /* x268068 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95269; /* MOVE: branching squeezed to general */ if (t95270>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95270;} else a789->s1.tag = (unsigned)t95270; /* x167369 stalin.sc:24262:841271 */ /* x167368 */ /* x167366 */ /* x167307 */ t95282 = q172; /* x167365 */ /* x167309 stalin.sc:24263:841312 */ /* x167313 */ /* x167317 */ /* x167326 */ /* x167358 */ /* x167360 */ /* x167364 */ /* x167308 */ t95284 = NATIVE_PROCEDURE_TYPE6630; t95285 = NATIVE_PROCEDURE_TYPE6170; t95286 = NATIVE_PROCEDURE_TYPE6169; t95287 = NATIVE_PROCEDURE_TYPE6168; t95288 = NATIVE_PROCEDURE_TYPE6167; t95289 = NATIVE_PROCEDURE_TYPE6166; t95290 = NATIVE_PROCEDURE_TYPE6165; t95283 = f16182(t95284, t95285, t95286, t95287, t95288, t95289, t95290); /* x268059 */ t95280 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95280==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95280->s0.tag = EXTERNAL_SYMBOL_TYPE; t95280->s0.value.external_symbol_type = t95282; t95280->s1.tag = STRUCTURE_TYPE24757; t95280->s1.value.structure_type24757 = t95283; /* x167367 */ t95281 = a789; /* x268060 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95280; /* MOVE: branching squeezed to general */ if (t95281>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95281;} else a789->s1.tag = (unsigned)t95281; /* x167434 stalin.sc:24275:841746 */ /* x167433 */ /* x167431 */ /* x167372 */ t95293 = q173; /* x167430 */ /* x167374 stalin.sc:24276:841788 */ /* x167378 */ /* x167382 */ /* x167391 */ /* x167423 */ /* x167425 */ /* x167429 */ /* x167373 */ t95295 = NATIVE_PROCEDURE_TYPE6630; t95296 = NATIVE_PROCEDURE_TYPE6164; t95297 = NATIVE_PROCEDURE_TYPE6163; t95298 = NATIVE_PROCEDURE_TYPE6162; t95299 = NATIVE_PROCEDURE_TYPE6161; t95300 = NATIVE_PROCEDURE_TYPE6160; t95301 = NATIVE_PROCEDURE_TYPE6159; t95294 = f16182(t95295, t95296, t95297, t95298, t95299, t95300, t95301); /* x268056 */ t95291 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95291==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95291->s0.tag = EXTERNAL_SYMBOL_TYPE; t95291->s0.value.external_symbol_type = t95293; t95291->s1.tag = STRUCTURE_TYPE24757; t95291->s1.value.structure_type24757 = t95294; /* x167432 */ t95292 = a789; /* x268057 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95291; /* MOVE: branching squeezed to general */ if (t95292>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95292;} else a789->s1.tag = (unsigned)t95292; /* x167615 stalin.sc:24289:842235 */ /* x167614 */ /* x167612 */ /* x167437 */ t95304 = q174; /* x167611 */ /* x167439 stalin.sc:24290:842280 */ /* x167443 */ /* x167447 */ /* x167451 */ /* x167458 */ /* x167460 */ /* x167610 */ /* x167438 */ t95306 = NATIVE_PROCEDURE_TYPE6630; t95307 = NATIVE_PROCEDURE_TYPE6158; t95308 = NATIVE_PROCEDURE_TYPE6157; t95309 = NATIVE_PROCEDURE_TYPE6156; t95310 = NATIVE_PROCEDURE_TYPE6155; t95311 = NATIVE_PROCEDURE_TYPE6154; t95312 = NATIVE_PROCEDURE_TYPE6153; t95305 = f16182(t95306, t95307, t95308, t95309, t95310, t95311, t95312); /* x268053 */ t95302 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95302==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95302->s0.tag = EXTERNAL_SYMBOL_TYPE; t95302->s0.value.external_symbol_type = t95304; t95302->s1.tag = STRUCTURE_TYPE24757; t95302->s1.value.structure_type24757 = t95305; /* x167613 */ t95303 = a789; /* x268054 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95302; /* MOVE: branching squeezed to general */ if (t95303>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95303;} else a789->s1.tag = (unsigned)t95303; /* x167796 stalin.sc:24332:843535 */ /* x167795 */ /* x167793 */ /* x167618 */ t95315 = q175; /* x167792 */ /* x167620 stalin.sc:24333:843581 */ /* x167624 */ /* x167628 */ /* x167632 */ /* x167639 */ /* x167641 */ /* x167791 */ /* x167619 */ t95317 = NATIVE_PROCEDURE_TYPE6630; t95318 = NATIVE_PROCEDURE_TYPE6152; t95319 = NATIVE_PROCEDURE_TYPE6151; t95320 = NATIVE_PROCEDURE_TYPE6150; t95321 = NATIVE_PROCEDURE_TYPE6149; t95322 = NATIVE_PROCEDURE_TYPE6148; t95323 = NATIVE_PROCEDURE_TYPE6147; t95316 = f16182(t95317, t95318, t95319, t95320, t95321, t95322, t95323); /* x268050 */ t95313 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95313==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95313->s0.tag = EXTERNAL_SYMBOL_TYPE; t95313->s0.value.external_symbol_type = t95315; t95313->s1.tag = STRUCTURE_TYPE24757; t95313->s1.value.structure_type24757 = t95316; /* x167794 */ t95314 = a789; /* x268051 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95313; /* MOVE: branching squeezed to general */ if (t95314>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95314;} else a789->s1.tag = (unsigned)t95314; /* x167873 stalin.sc:24376:844849 */ /* x167872 */ /* x167870 */ /* x167799 */ t95326 = q176; /* x167869 */ /* x167801 stalin.sc:24377:844895 */ /* x167805 */ /* x167809 */ /* x167813 */ /* x167818 */ /* x167820 */ /* x167868 */ /* x167800 */ t95328 = NATIVE_PROCEDURE_TYPE6630; t95329 = NATIVE_PROCEDURE_TYPE6146; t95330 = NATIVE_PROCEDURE_TYPE6145; t95331 = NATIVE_PROCEDURE_TYPE6144; t95332 = NATIVE_PROCEDURE_TYPE6143; t95333 = NATIVE_PROCEDURE_TYPE6142; t95334 = NATIVE_PROCEDURE_TYPE6141; t95327 = f16182(t95328, t95329, t95330, t95331, t95332, t95333, t95334); /* x268047 */ t95324 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95324==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95324->s0.tag = EXTERNAL_SYMBOL_TYPE; t95324->s0.value.external_symbol_type = t95326; t95324->s1.tag = STRUCTURE_TYPE24757; t95324->s1.value.structure_type24757 = t95327; /* x167871 */ t95325 = a789; /* x268048 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95324; /* MOVE: branching squeezed to general */ if (t95325>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95325;} else a789->s1.tag = (unsigned)t95325; /* x167950 stalin.sc:24398:845465 */ /* x167949 */ /* x167947 */ /* x167876 */ t95337 = q177; /* x167946 */ /* x167878 stalin.sc:24399:845512 */ /* x167882 */ /* x167886 */ /* x167890 */ /* x167895 */ /* x167897 */ /* x167945 */ /* x167877 */ t95339 = NATIVE_PROCEDURE_TYPE6630; t95340 = NATIVE_PROCEDURE_TYPE6140; t95341 = NATIVE_PROCEDURE_TYPE6139; t95342 = NATIVE_PROCEDURE_TYPE6138; t95343 = NATIVE_PROCEDURE_TYPE6137; t95344 = NATIVE_PROCEDURE_TYPE6136; t95345 = NATIVE_PROCEDURE_TYPE6135; t95338 = f16182(t95339, t95340, t95341, t95342, t95343, t95344, t95345); /* x268045 */ t95335 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95335==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95335->s0.tag = EXTERNAL_SYMBOL_TYPE; t95335->s0.value.external_symbol_type = t95337; t95335->s1.tag = STRUCTURE_TYPE24757; t95335->s1.value.structure_type24757 = t95338; /* x167948 */ t95336 = a789; /* x268046 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95335; /* MOVE: branching squeezed to general */ if (t95336>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95336;} else a789->s1.tag = (unsigned)t95336; /* x168027 stalin.sc:24420:846088 */ /* x168026 */ /* x168024 */ /* x167953 */ t95348 = q227; /* x168023 */ /* x167955 stalin.sc:24421:846128 */ /* x167959 */ /* x167963 */ /* x167967 */ /* x167979 */ /* x167981 */ /* x168022 */ /* x167954 */ t95350 = NATIVE_PROCEDURE_TYPE6630; t95351 = NATIVE_PROCEDURE_TYPE6134; t95352 = NATIVE_PROCEDURE_TYPE6133; t95353 = NATIVE_PROCEDURE_TYPE6132; t95354 = NATIVE_PROCEDURE_TYPE6131; t95355 = NATIVE_PROCEDURE_TYPE6130; t95356 = NATIVE_PROCEDURE_TYPE6129; t95349 = f16182(t95350, t95351, t95352, t95353, t95354, t95355, t95356); /* x268043 */ t95346 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95346==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95346->s0.tag = EXTERNAL_SYMBOL_TYPE; t95346->s0.value.external_symbol_type = t95348; t95346->s1.tag = STRUCTURE_TYPE24757; t95346->s1.value.structure_type24757 = t95349; /* x168025 */ t95347 = a789; /* x268044 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95346; /* MOVE: branching squeezed to general */ if (t95347>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95347;} else a789->s1.tag = (unsigned)t95347; /* x168111 stalin.sc:24440:846661 */ /* x168110 */ /* x168108 */ /* x168030 */ t95359 = q229; /* x168107 */ /* x168032 stalin.sc:24441:846701 */ /* x168036 */ /* x168040 */ /* x168044 */ /* x168056 */ /* x168058 */ /* x168106 */ /* x168031 */ t95361 = NATIVE_PROCEDURE_TYPE6630; t95362 = NATIVE_PROCEDURE_TYPE6128; t95363 = NATIVE_PROCEDURE_TYPE6127; t95364 = NATIVE_PROCEDURE_TYPE6126; t95365 = NATIVE_PROCEDURE_TYPE6125; t95366 = NATIVE_PROCEDURE_TYPE6124; t95367 = NATIVE_PROCEDURE_TYPE6123; t95360 = f16182(t95361, t95362, t95363, t95364, t95365, t95366, t95367); /* x268041 */ t95357 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95357==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95357->s0.tag = EXTERNAL_SYMBOL_TYPE; t95357->s0.value.external_symbol_type = t95359; t95357->s1.tag = STRUCTURE_TYPE24757; t95357->s1.value.structure_type24757 = t95360; /* x168109 */ t95358 = a789; /* x268042 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95357; /* MOVE: branching squeezed to general */ if (t95358>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95358;} else a789->s1.tag = (unsigned)t95358; /* x168176 stalin.sc:24461:847273 */ /* x168175 */ /* x168173 */ /* x168114 */ t95370 = q178; /* x168172 */ /* x168116 stalin.sc:24462:847314 */ /* x168120 */ /* x168124 */ /* x168133 */ /* x168165 */ /* x168167 */ /* x168171 */ /* x168115 */ t95372 = NATIVE_PROCEDURE_TYPE6630; t95373 = NATIVE_PROCEDURE_TYPE6122; t95374 = NATIVE_PROCEDURE_TYPE6121; t95375 = NATIVE_PROCEDURE_TYPE6120; t95376 = NATIVE_PROCEDURE_TYPE6119; t95377 = NATIVE_PROCEDURE_TYPE6118; t95378 = NATIVE_PROCEDURE_TYPE6117; t95371 = f16182(t95372, t95373, t95374, t95375, t95376, t95377, t95378); /* x268039 */ t95368 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95368==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95368->s0.tag = EXTERNAL_SYMBOL_TYPE; t95368->s0.value.external_symbol_type = t95370; t95368->s1.tag = STRUCTURE_TYPE24757; t95368->s1.value.structure_type24757 = t95371; /* x168174 */ t95369 = a789; /* x268040 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95368; /* MOVE: branching squeezed to general */ if (t95369>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95369;} else a789->s1.tag = (unsigned)t95369; /* x168236 stalin.sc:24474:847748 */ /* x168235 */ /* x168233 */ /* x168179 */ t95381 = q231; /* x168232 */ /* x168181 stalin.sc:24475:847790 */ /* x168185 */ /* x168189 */ /* x168193 */ /* x168205 */ /* x168207 */ /* x168231 */ /* x168180 */ t95383 = NATIVE_PROCEDURE_TYPE6630; t95384 = NATIVE_PROCEDURE_TYPE6116; t95385 = NATIVE_PROCEDURE_TYPE6115; t95386 = NATIVE_PROCEDURE_TYPE6114; t95387 = NATIVE_PROCEDURE_TYPE6113; t95388 = NATIVE_PROCEDURE_TYPE6112; t95389 = NATIVE_PROCEDURE_TYPE6111; t95382 = f16182(t95383, t95384, t95385, t95386, t95387, t95388, t95389); /* x268036 */ t95379 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95379==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95379->s0.tag = EXTERNAL_SYMBOL_TYPE; t95379->s0.value.external_symbol_type = t95381; t95379->s1.tag = STRUCTURE_TYPE24757; t95379->s1.value.structure_type24757 = t95382; /* x168234 */ t95380 = a789; /* x268037 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95379; /* MOVE: branching squeezed to general */ if (t95380>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95380;} else a789->s1.tag = (unsigned)t95380; /* x168269 stalin.sc:24491:848199 */ /* x168268 */ /* x168266 */ /* x168239 */ t95392 = q232; /* x168265 */ /* x168241 stalin.sc:24492:848248 */ /* x168244 */ /* x168246 */ /* x168248 */ /* x168255 */ /* x168257 */ /* x168264 */ /* x168240 */ t95394 = NATIVE_PROCEDURE_TYPE6631; t95395 = NATIVE_PROCEDURE_TYPE6110; t95396 = NATIVE_PROCEDURE_TYPE6109; t95397 = NATIVE_PROCEDURE_TYPE6108; t95398 = NATIVE_PROCEDURE_TYPE6107; t95399 = NATIVE_PROCEDURE_TYPE6106; t95400 = NATIVE_PROCEDURE_TYPE6105; t95393 = f16182(t95394, t95395, t95396, t95397, t95398, t95399, t95400); /* x268034 */ t95390 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95390==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95390->s0.tag = EXTERNAL_SYMBOL_TYPE; t95390->s0.value.external_symbol_type = t95392; t95390->s1.tag = STRUCTURE_TYPE24757; t95390->s1.value.structure_type24757 = t95393; /* x168267 */ t95391 = a789; /* x268035 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95390; /* MOVE: branching squeezed to general */ if (t95391>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95391;} else a789->s1.tag = (unsigned)t95391; /* x168302 stalin.sc:24500:848439 */ /* x168301 */ /* x168299 */ /* x168272 */ t95403 = q233; /* x168298 */ /* x168274 stalin.sc:24501:848489 */ /* x168277 */ /* x168279 */ /* x168281 */ /* x168288 */ /* x168290 */ /* x168297 */ /* x168273 */ t95405 = NATIVE_PROCEDURE_TYPE6631; t95406 = NATIVE_PROCEDURE_TYPE6104; t95407 = NATIVE_PROCEDURE_TYPE6103; t95408 = NATIVE_PROCEDURE_TYPE6102; t95409 = NATIVE_PROCEDURE_TYPE6101; t95410 = NATIVE_PROCEDURE_TYPE6100; t95411 = NATIVE_PROCEDURE_TYPE6099; t95404 = f16182(t95405, t95406, t95407, t95408, t95409, t95410, t95411); /* x268032 */ t95401 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95401==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95401->s0.tag = EXTERNAL_SYMBOL_TYPE; t95401->s0.value.external_symbol_type = t95403; t95401->s1.tag = STRUCTURE_TYPE24757; t95401->s1.value.structure_type24757 = t95404; /* x168300 */ t95402 = a789; /* x268033 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95401; /* MOVE: branching squeezed to general */ if (t95402>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95402;} else a789->s1.tag = (unsigned)t95402; /* x168378 stalin.sc:24509:848683 */ /* x168377 */ /* x168375 */ /* x168305 */ t95414 = q234; /* x168374 */ /* x168307 stalin.sc:24510:848724 */ /* x168312 */ /* x168317 */ /* x168322 */ /* x168327 */ /* x168329 */ /* x168373 */ /* x168306 */ t95416 = NATIVE_PROCEDURE_TYPE6629; t95417 = NATIVE_PROCEDURE_TYPE6098; t95418 = NATIVE_PROCEDURE_TYPE6097; t95419 = NATIVE_PROCEDURE_TYPE6096; t95420 = NATIVE_PROCEDURE_TYPE6095; t95421 = NATIVE_PROCEDURE_TYPE6094; t95422 = NATIVE_PROCEDURE_TYPE6093; t95415 = f16182(t95416, t95417, t95418, t95419, t95420, t95421, t95422); /* x268030 */ t95412 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95412==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95412->s0.tag = EXTERNAL_SYMBOL_TYPE; t95412->s0.value.external_symbol_type = t95414; t95412->s1.tag = STRUCTURE_TYPE24757; t95412->s1.value.structure_type24757 = t95415; /* x168376 */ t95413 = a789; /* x268031 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95412; /* MOVE: branching squeezed to general */ if (t95413>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95413;} else a789->s1.tag = (unsigned)t95413; /* x168428 stalin.sc:24533:849278 */ /* x168427 */ /* x168425 */ /* x168381 */ t95425 = q179; /* x168424 */ /* x168383 stalin.sc:24534:849313 */ /* x168387 */ /* x168391 */ /* x168395 */ /* x168400 */ /* x168402 */ /* x168423 */ /* x168382 */ t95427 = NATIVE_PROCEDURE_TYPE6630; t95428 = NATIVE_PROCEDURE_TYPE6092; t95429 = NATIVE_PROCEDURE_TYPE6091; t95430 = NATIVE_PROCEDURE_TYPE6090; t95431 = NATIVE_PROCEDURE_TYPE6089; t95432 = NATIVE_PROCEDURE_TYPE6088; t95433 = NATIVE_PROCEDURE_TYPE6087; t95426 = f16182(t95427, t95428, t95429, t95430, t95431, t95432, t95433); /* x268028 */ t95423 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95423==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95423->s0.tag = EXTERNAL_SYMBOL_TYPE; t95423->s0.value.external_symbol_type = t95425; t95423->s1.tag = STRUCTURE_TYPE24757; t95423->s1.value.structure_type24757 = t95426; /* x168426 */ t95424 = a789; /* x268029 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95423; /* MOVE: branching squeezed to general */ if (t95424>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95424;} else a789->s1.tag = (unsigned)t95424; /* x168493 stalin.sc:24547:849634 */ /* x168492 */ /* x168490 */ /* x168431 */ t95436 = q180; /* x168489 */ /* x168433 stalin.sc:24548:849672 */ /* x168437 */ /* x168441 */ /* x168450 */ /* x168482 */ /* x168484 */ /* x168488 */ /* x168432 */ t95438 = NATIVE_PROCEDURE_TYPE6630; t95439 = NATIVE_PROCEDURE_TYPE6086; t95440 = NATIVE_PROCEDURE_TYPE6085; t95441 = NATIVE_PROCEDURE_TYPE6084; t95442 = NATIVE_PROCEDURE_TYPE6083; t95443 = NATIVE_PROCEDURE_TYPE6082; t95444 = NATIVE_PROCEDURE_TYPE6081; t95437 = f16182(t95438, t95439, t95440, t95441, t95442, t95443, t95444); /* x268026 */ t95434 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95434==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95434->s0.tag = EXTERNAL_SYMBOL_TYPE; t95434->s0.value.external_symbol_type = t95436; t95434->s1.tag = STRUCTURE_TYPE24757; t95434->s1.value.structure_type24757 = t95437; /* x168491 */ t95435 = a789; /* x268027 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95434; /* MOVE: branching squeezed to general */ if (t95435>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95435;} else a789->s1.tag = (unsigned)t95435; /* x168549 stalin.sc:24560:850088 */ /* x168548 */ /* x168546 */ /* x168496 */ t95447 = q181; /* x168545 */ /* x168498 stalin.sc:24561:850133 */ /* x168502 */ /* x168506 */ /* x168510 */ /* x168517 */ /* x168519 */ /* x168544 */ /* x168497 */ t95449 = NATIVE_PROCEDURE_TYPE6630; t95450 = NATIVE_PROCEDURE_TYPE6080; t95451 = NATIVE_PROCEDURE_TYPE6079; t95452 = NATIVE_PROCEDURE_TYPE6078; t95453 = NATIVE_PROCEDURE_TYPE6077; t95454 = NATIVE_PROCEDURE_TYPE6076; t95455 = NATIVE_PROCEDURE_TYPE6075; t95448 = f16182(t95449, t95450, t95451, t95452, t95453, t95454, t95455); /* x268023 */ t95445 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95445==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95445->s0.tag = EXTERNAL_SYMBOL_TYPE; t95445->s0.value.external_symbol_type = t95447; t95445->s1.tag = STRUCTURE_TYPE24757; t95445->s1.value.structure_type24757 = t95448; /* x168547 */ t95446 = a789; /* x268024 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95445; /* MOVE: branching squeezed to general */ if (t95446>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95446;} else a789->s1.tag = (unsigned)t95446; /* x168605 stalin.sc:24576:850514 */ /* x168604 */ /* x168602 */ /* x168552 */ t95458 = q182; /* x168601 */ /* x168554 stalin.sc:24577:850563 */ /* x168558 */ /* x168562 */ /* x168566 */ /* x168573 */ /* x168575 */ /* x168600 */ /* x168553 */ t95460 = NATIVE_PROCEDURE_TYPE6630; t95461 = NATIVE_PROCEDURE_TYPE6074; t95462 = NATIVE_PROCEDURE_TYPE6073; t95463 = NATIVE_PROCEDURE_TYPE6072; t95464 = NATIVE_PROCEDURE_TYPE6071; t95465 = NATIVE_PROCEDURE_TYPE6070; t95466 = NATIVE_PROCEDURE_TYPE6069; t95459 = f16182(t95460, t95461, t95462, t95463, t95464, t95465, t95466); /* x268021 */ t95456 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95456==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95456->s0.tag = EXTERNAL_SYMBOL_TYPE; t95456->s0.value.external_symbol_type = t95458; t95456->s1.tag = STRUCTURE_TYPE24757; t95456->s1.value.structure_type24757 = t95459; /* x168603 */ t95457 = a789; /* x268022 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95456; /* MOVE: branching squeezed to general */ if (t95457>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95457;} else a789->s1.tag = (unsigned)t95457; /* x168661 stalin.sc:24591:850939 */ /* x168660 */ /* x168658 */ /* x168608 */ t95469 = q183; /* x168657 */ /* x168610 stalin.sc:24592:850989 */ /* x168614 */ /* x168618 */ /* x168622 */ /* x168629 */ /* x168631 */ /* x168656 */ /* x168609 */ t95471 = NATIVE_PROCEDURE_TYPE6630; t95472 = NATIVE_PROCEDURE_TYPE6068; t95473 = NATIVE_PROCEDURE_TYPE6067; t95474 = NATIVE_PROCEDURE_TYPE6066; t95475 = NATIVE_PROCEDURE_TYPE6065; t95476 = NATIVE_PROCEDURE_TYPE6064; t95477 = NATIVE_PROCEDURE_TYPE6063; t95470 = f16182(t95471, t95472, t95473, t95474, t95475, t95476, t95477); /* x268019 */ t95467 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95467==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95467->s0.tag = EXTERNAL_SYMBOL_TYPE; t95467->s0.value.external_symbol_type = t95469; t95467->s1.tag = STRUCTURE_TYPE24757; t95467->s1.value.structure_type24757 = t95470; /* x168659 */ t95468 = a789; /* x268020 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95467; /* MOVE: branching squeezed to general */ if (t95468>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95468;} else a789->s1.tag = (unsigned)t95468; /* x168717 stalin.sc:24606:851368 */ /* x168716 */ /* x168714 */ /* x168664 */ t95480 = q184; /* x168713 */ /* x168666 stalin.sc:24607:851414 */ /* x168670 */ /* x168674 */ /* x168678 */ /* x168685 */ /* x168687 */ /* x168712 */ /* x168665 */ t95482 = NATIVE_PROCEDURE_TYPE6630; t95483 = NATIVE_PROCEDURE_TYPE6062; t95484 = NATIVE_PROCEDURE_TYPE6061; t95485 = NATIVE_PROCEDURE_TYPE6060; t95486 = NATIVE_PROCEDURE_TYPE6059; t95487 = NATIVE_PROCEDURE_TYPE6058; t95488 = NATIVE_PROCEDURE_TYPE6057; t95481 = f16182(t95482, t95483, t95484, t95485, t95486, t95487, t95488); /* x268017 */ t95478 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95478==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95478->s0.tag = EXTERNAL_SYMBOL_TYPE; t95478->s0.value.external_symbol_type = t95480; t95478->s1.tag = STRUCTURE_TYPE24757; t95478->s1.value.structure_type24757 = t95481; /* x168715 */ t95479 = a789; /* x268018 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95478; /* MOVE: branching squeezed to general */ if (t95479>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95479;} else a789->s1.tag = (unsigned)t95479; /* x168750 stalin.sc:24621:851781 */ /* x168749 */ /* x168747 */ /* x168720 */ t95491 = q235; /* x168746 */ /* x168722 stalin.sc:24622:851828 */ /* x168725 */ /* x168727 */ /* x168729 */ /* x168736 */ /* x168738 */ /* x168745 */ /* x168721 */ t95493 = NATIVE_PROCEDURE_TYPE6631; t95494 = NATIVE_PROCEDURE_TYPE6056; t95495 = NATIVE_PROCEDURE_TYPE6055; t95496 = NATIVE_PROCEDURE_TYPE6054; t95497 = NATIVE_PROCEDURE_TYPE6053; t95498 = NATIVE_PROCEDURE_TYPE6052; t95499 = NATIVE_PROCEDURE_TYPE6051; t95492 = f16182(t95493, t95494, t95495, t95496, t95497, t95498, t95499); /* x268015 */ t95489 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95489==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95489->s0.tag = EXTERNAL_SYMBOL_TYPE; t95489->s0.value.external_symbol_type = t95491; t95489->s1.tag = STRUCTURE_TYPE24757; t95489->s1.value.structure_type24757 = t95492; /* x168748 */ t95490 = a789; /* x268016 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95489; /* MOVE: branching squeezed to general */ if (t95490>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95490;} else a789->s1.tag = (unsigned)t95490; /* x168783 stalin.sc:24630:852023 */ /* x168782 */ /* x168780 */ /* x168753 */ t95502 = q236; /* x168779 */ /* x168755 stalin.sc:24631:852061 */ /* x168758 */ /* x168760 */ /* x168762 */ /* x168769 */ /* x168771 */ /* x168778 */ /* x168754 */ t95504 = NATIVE_PROCEDURE_TYPE6631; t95505 = NATIVE_PROCEDURE_TYPE6050; t95506 = NATIVE_PROCEDURE_TYPE6049; t95507 = NATIVE_PROCEDURE_TYPE6048; t95508 = NATIVE_PROCEDURE_TYPE6047; t95509 = NATIVE_PROCEDURE_TYPE6046; t95510 = NATIVE_PROCEDURE_TYPE6045; t95503 = f16182(t95504, t95505, t95506, t95507, t95508, t95509, t95510); /* x268013 */ t95500 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95500==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95500->s0.tag = EXTERNAL_SYMBOL_TYPE; t95500->s0.value.external_symbol_type = t95502; t95500->s1.tag = STRUCTURE_TYPE24757; t95500->s1.value.structure_type24757 = t95503; /* x168781 */ t95501 = a789; /* x268014 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95500; /* MOVE: branching squeezed to general */ if (t95501>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95501;} else a789->s1.tag = (unsigned)t95501; /* x168816 stalin.sc:24639:852247 */ /* x168815 */ /* x168813 */ /* x168786 */ t95513 = q237; /* x168812 */ /* x168788 stalin.sc:24640:852289 */ /* x168791 */ /* x168793 */ /* x168795 */ /* x168802 */ /* x168804 */ /* x168811 */ /* x168787 */ t95515 = NATIVE_PROCEDURE_TYPE6631; t95516 = NATIVE_PROCEDURE_TYPE6044; t95517 = NATIVE_PROCEDURE_TYPE6043; t95518 = NATIVE_PROCEDURE_TYPE6042; t95519 = NATIVE_PROCEDURE_TYPE6041; t95520 = NATIVE_PROCEDURE_TYPE6040; t95521 = NATIVE_PROCEDURE_TYPE6039; t95514 = f16182(t95515, t95516, t95517, t95518, t95519, t95520, t95521); /* x268011 */ t95511 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95511==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95511->s0.tag = EXTERNAL_SYMBOL_TYPE; t95511->s0.value.external_symbol_type = t95513; t95511->s1.tag = STRUCTURE_TYPE24757; t95511->s1.value.structure_type24757 = t95514; /* x168814 */ t95512 = a789; /* x268012 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95511; /* MOVE: branching squeezed to general */ if (t95512>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95512;} else a789->s1.tag = (unsigned)t95512; /* x168876 stalin.sc:24648:852479 */ /* x168875 */ /* x168873 */ /* x168819 */ t95524 = q238; /* x168872 */ /* x168821 stalin.sc:24649:852518 */ /* x168825 */ /* x168829 */ /* x168833 */ /* x168845 */ /* x168847 */ /* x168871 */ /* x168820 */ t95526 = NATIVE_PROCEDURE_TYPE6630; t95527 = NATIVE_PROCEDURE_TYPE6038; t95528 = NATIVE_PROCEDURE_TYPE6037; t95529 = NATIVE_PROCEDURE_TYPE6036; t95530 = NATIVE_PROCEDURE_TYPE6035; t95531 = NATIVE_PROCEDURE_TYPE6034; t95532 = NATIVE_PROCEDURE_TYPE6033; t95525 = f16182(t95526, t95527, t95528, t95529, t95530, t95531, t95532); /* x268009 */ t95522 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95522==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95522->s0.tag = EXTERNAL_SYMBOL_TYPE; t95522->s0.value.external_symbol_type = t95524; t95522->s1.tag = STRUCTURE_TYPE24757; t95522->s1.value.structure_type24757 = t95525; /* x168874 */ t95523 = a789; /* x268010 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95522; /* MOVE: branching squeezed to general */ if (t95523>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95523;} else a789->s1.tag = (unsigned)t95523; /* x169169 stalin.sc:24664:852928 */ /* x169168 */ /* x169166 */ /* x168879 */ t95535 = q45; /* x169165 */ /* x168881 stalin.sc:24666:853038 */ /* x168914 */ /* x168947 */ /* x168980 */ /* x169018 */ /* x169020 */ /* x169164 */ /* x168880 */ t95537 = NATIVE_PROCEDURE_TYPE6629; t95538 = NATIVE_PROCEDURE_TYPE6032; t95539 = NATIVE_PROCEDURE_TYPE6031; t95540 = NATIVE_PROCEDURE_TYPE6030; t95541 = NATIVE_PROCEDURE_TYPE6029; t95542 = NATIVE_PROCEDURE_TYPE6028; t95543 = NATIVE_PROCEDURE_TYPE6027; t95536 = f16182(t95537, t95538, t95539, t95540, t95541, t95542, t95543); /* x268007 */ t95533 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95533==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95533->s0.tag = EXTERNAL_SYMBOL_TYPE; t95533->s0.value.external_symbol_type = t95535; t95533->s1.tag = STRUCTURE_TYPE24757; t95533->s1.value.structure_type24757 = t95536; /* x169167 */ t95534 = a789; /* x268008 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95533; /* MOVE: branching squeezed to general */ if (t95534>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95534;} else a789->s1.tag = (unsigned)t95534; /* x169361 stalin.sc:24748:855632 */ /* x169360 */ /* x169358 */ /* x169172 */ t95546 = q44; /* x169357 */ /* x169174 stalin.sc:24751:855760 */ /* x169192 */ /* x169210 */ /* x169228 */ /* x169248 */ /* x169250 */ /* x169356 */ /* x169173 */ t95548 = NATIVE_PROCEDURE_TYPE6630; t95549 = NATIVE_PROCEDURE_TYPE6025; t95550 = NATIVE_PROCEDURE_TYPE6024; t95551 = NATIVE_PROCEDURE_TYPE6023; t95552 = NATIVE_PROCEDURE_TYPE6022; t95553 = NATIVE_PROCEDURE_TYPE6021; t95554 = NATIVE_PROCEDURE_TYPE6020; t95547 = f16182(t95548, t95549, t95550, t95551, t95552, t95553, t95554); /* x268005 */ t95544 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t95544==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} t95544->s0.tag = EXTERNAL_SYMBOL_TYPE; t95544->s0.value.external_symbol_type = t95546; t95544->s1.tag = STRUCTURE_TYPE24757; t95544->s1.value.structure_type24757 = t95547; /* x169359 */ t95545 = a789; /* x268006 */ a789 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a789==NULL) {backtrace_internal("[inside top level 4]"); out_of_memory_error();} a789->s0.tag = STRUCTURE_TYPE24753; a789->s0.value.structure_type24753 = t95544; /* MOVE: branching squeezed to general */ if (t95545>=((struct structure_type24753 *)VALUE_OFFSET)) {a789->s1.tag = STRUCTURE_TYPE24753; a789->s1.value.structure_type24753 = t95545;} else a789->s1.tag = (unsigned)t95545; /* x169363 */ /* x169362 stalin.sc:24809:857827 */ a765 = (char *)FALSE_TYPE; /* x169365 */ /* x169364 stalin.sc:24810:857848 */ a764 = (char *)FALSE_TYPE; /* x169367 */ /* x169366 stalin.sc:24811:857867 */ a763 = (char *)FALSE_TYPE; /* x169369 */ /* x169368 stalin.sc:24812:857886 */ a762 = (char *)FALSE_TYPE; /* x169440 */ /* x169439 */ /* x169883 */ /* x169882 */ /* x170051 */ /* x170050 */ /* x170140 */ /* x170139 */ /* x170150 */ /* x170149 */ /* x170487 */ /* x170486 */ /* x170489 */ /* x170488 stalin.sc:24986:863757 */ a755.tag = NULL_TYPE; /* x172089 */ /* x172088 stalin.sc:24989:863786 */ /* x172087 stalin.sc:25190:870526 */ /* x172086 stalin.sc:25191:870551 */ /* x172081 stalin.sc:25190:870532 */ t95604 = q9; /* x172080 stalin.sc:25190:870527 */ t95605.tag = STRUCTURE_TYPE24753; t95605.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95605.value.structure_type24753)==NULL) {backtrace("stalin.sc", 25190, 870526); out_of_memory_error();} t95605.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE6001; t95605.value.structure_type24753->s1.tag = NULL_TYPE; a35292 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35292==NULL) {backtrace("stalin.sc", 25190, 870526); out_of_memory_error();} a35292->s0.tag = EXTERNAL_SYMBOL_TYPE; a35292->s0.value.external_symbol_type = t95604; a35292->s1 = t95605; /* x272591 */ t95567 = a35292; /* x172079 stalin.sc:25189:870446 */ /* x172078 stalin.sc:25189:870461 */ /* x172073 stalin.sc:25189:870452 */ t95602 = q8; /* x172072 stalin.sc:25189:870447 */ t95603.tag = STRUCTURE_TYPE24753; t95603.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95603.value.structure_type24753)==NULL) {backtrace("stalin.sc", 25189, 870446); out_of_memory_error();} t95603.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE6002; t95603.value.structure_type24753->s1.tag = NULL_TYPE; a35291 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35291==NULL) {backtrace("stalin.sc", 25189, 870446); out_of_memory_error();} a35291->s0.tag = EXTERNAL_SYMBOL_TYPE; a35291->s0.value.external_symbol_type = t95602; a35291->s1 = t95603; /* x272589 */ t95566 = a35291; /* x172071 stalin.sc:25180:870122 */ /* x172070 */ /* x172005 stalin.sc:25180:870128 */ t95600 = q10; /* x172004 stalin.sc:25180:870123 */ t95601.tag = STRUCTURE_TYPE24753; t95601.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95601.value.structure_type24753)==NULL) {backtrace("stalin.sc", 25180, 870122); out_of_memory_error();} t95601.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE6003; t95601.value.structure_type24753->s1.tag = NULL_TYPE; a35290 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35290==NULL) {backtrace("stalin.sc", 25180, 870122); out_of_memory_error();} a35290->s0.tag = EXTERNAL_SYMBOL_TYPE; a35290->s0.value.external_symbol_type = t95600; a35290->s1 = t95601; /* x272587 */ t95565 = a35290; /* x172003 stalin.sc:25164:869727 */ /* x172002 */ /* x171884 stalin.sc:25164:869733 */ t95598 = q248; /* x171883 stalin.sc:25164:869728 */ t95599.tag = STRUCTURE_TYPE24753; t95599.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95599.value.structure_type24753)==NULL) {backtrace("stalin.sc", 25164, 869727); out_of_memory_error();} t95599.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE6004; t95599.value.structure_type24753->s1.tag = NULL_TYPE; a35289 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35289==NULL) {backtrace("stalin.sc", 25164, 869727); out_of_memory_error();} a35289->s0.tag = EXTERNAL_SYMBOL_TYPE; a35289->s0.value.external_symbol_type = t95598; a35289->s1 = t95599; /* x272585 */ t95564 = a35289; /* x171882 stalin.sc:25137:868879 */ /* x171881 */ /* x171691 stalin.sc:25137:868885 */ t95596 = q247; /* x171690 stalin.sc:25137:868880 */ t95597.tag = STRUCTURE_TYPE24753; t95597.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95597.value.structure_type24753)==NULL) {backtrace("stalin.sc", 25137, 868879); out_of_memory_error();} t95597.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE6005; t95597.value.structure_type24753->s1.tag = NULL_TYPE; a35288 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35288==NULL) {backtrace("stalin.sc", 25137, 868879); out_of_memory_error();} a35288->s0.tag = EXTERNAL_SYMBOL_TYPE; a35288->s0.value.external_symbol_type = t95596; a35288->s1 = t95597; /* x272583 */ t95563 = a35288; /* x171689 stalin.sc:25136:868809 */ /* x171688 stalin.sc:25136:868822 */ /* x171670 stalin.sc:25136:868815 */ t95594 = q239; /* x171669 stalin.sc:25136:868810 */ t95595.tag = STRUCTURE_TYPE24753; t95595.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95595.value.structure_type24753)==NULL) {backtrace("stalin.sc", 25136, 868809); out_of_memory_error();} t95595.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE6006; t95595.value.structure_type24753->s1.tag = NULL_TYPE; a35287 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35287==NULL) {backtrace("stalin.sc", 25136, 868809); out_of_memory_error();} a35287->s0.tag = EXTERNAL_SYMBOL_TYPE; a35287->s0.value.external_symbol_type = t95594; a35287->s1 = t95595; /* x272581 */ t95562 = a35287; /* x171668 stalin.sc:25118:868205 */ /* x171667 */ /* x171537 stalin.sc:25118:868211 */ t95592 = q245; /* x171536 stalin.sc:25118:868206 */ t95593.tag = STRUCTURE_TYPE24753; t95593.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95593.value.structure_type24753)==NULL) {backtrace("stalin.sc", 25118, 868205); out_of_memory_error();} t95593.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE6007; t95593.value.structure_type24753->s1.tag = NULL_TYPE; a35286 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35286==NULL) {backtrace("stalin.sc", 25118, 868205); out_of_memory_error();} a35286->s0.tag = EXTERNAL_SYMBOL_TYPE; a35286->s0.value.external_symbol_type = t95592; a35286->s1 = t95593; /* x272579 */ t95561 = a35286; /* x171535 stalin.sc:25103:867698 */ /* x171534 */ /* x171427 stalin.sc:25103:867704 */ t95590 = q246; /* x171426 stalin.sc:25103:867699 */ t95591.tag = STRUCTURE_TYPE24753; t95591.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95591.value.structure_type24753)==NULL) {backtrace("stalin.sc", 25103, 867698); out_of_memory_error();} t95591.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE6008; t95591.value.structure_type24753->s1.tag = NULL_TYPE; a35285 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35285==NULL) {backtrace("stalin.sc", 25103, 867698); out_of_memory_error();} a35285->s0.tag = EXTERNAL_SYMBOL_TYPE; a35285->s0.value.external_symbol_type = t95590; a35285->s1 = t95591; /* x272577 */ t95560 = a35285; /* x171425 stalin.sc:25066:866388 */ /* x171424 */ /* x171174 stalin.sc:25066:866394 */ t95588 = q242; /* x171173 stalin.sc:25066:866389 */ t95589.tag = STRUCTURE_TYPE24753; t95589.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95589.value.structure_type24753)==NULL) {backtrace("stalin.sc", 25066, 866388); out_of_memory_error();} t95589.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE6009; t95589.value.structure_type24753->s1.tag = NULL_TYPE; a35284 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35284==NULL) {backtrace("stalin.sc", 25066, 866388); out_of_memory_error();} a35284->s0.tag = EXTERNAL_SYMBOL_TYPE; a35284->s0.value.external_symbol_type = t95588; a35284->s1 = t95589; /* x272575 */ t95559 = a35284; /* x171172 stalin.sc:25057:866140 */ /* x171171 stalin.sc:25058:866151 */ /* x171096 stalin.sc:25057:866146 */ t95586 = q241; /* x171095 stalin.sc:25057:866141 */ t95587.tag = STRUCTURE_TYPE24753; t95587.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95587.value.structure_type24753)==NULL) {backtrace("stalin.sc", 25057, 866140); out_of_memory_error();} t95587.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE6010; t95587.value.structure_type24753->s1.tag = NULL_TYPE; a35283 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35283==NULL) {backtrace("stalin.sc", 25057, 866140); out_of_memory_error();} a35283->s0.tag = EXTERNAL_SYMBOL_TYPE; a35283->s0.value.external_symbol_type = t95586; a35283->s1 = t95587; /* x272573 */ t95558 = a35283; /* x171094 stalin.sc:25050:865943 */ /* x171093 stalin.sc:25051:865955 */ /* x171042 stalin.sc:25050:865949 */ t95584 = q244; /* x171041 stalin.sc:25050:865944 */ t95585.tag = STRUCTURE_TYPE24753; t95585.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95585.value.structure_type24753)==NULL) {backtrace("stalin.sc", 25050, 865943); out_of_memory_error();} t95585.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE6011; t95585.value.structure_type24753->s1.tag = NULL_TYPE; a35282 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35282==NULL) {backtrace("stalin.sc", 25050, 865943); out_of_memory_error();} a35282->s0.tag = EXTERNAL_SYMBOL_TYPE; a35282->s0.value.external_symbol_type = t95584; a35282->s1 = t95585; /* x272571 */ t95557 = a35282; /* x171040 stalin.sc:25021:864962 */ /* x171039 */ /* x170794 stalin.sc:25021:864968 */ t95582 = q243; /* x170793 stalin.sc:25021:864963 */ t95583.tag = STRUCTURE_TYPE24753; t95583.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95583.value.structure_type24753)==NULL) {backtrace("stalin.sc", 25021, 864962); out_of_memory_error();} t95583.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE6012; t95583.value.structure_type24753->s1.tag = NULL_TYPE; a35281 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35281==NULL) {backtrace("stalin.sc", 25021, 864962); out_of_memory_error();} a35281->s0.tag = EXTERNAL_SYMBOL_TYPE; a35281->s0.value.external_symbol_type = t95582; a35281->s1 = t95583; /* x272569 */ t95556 = a35281; /* x170792 stalin.sc:24990:863794 */ /* x170791 */ /* x170492 stalin.sc:24990:863800 */ t95580 = q240; /* x170491 stalin.sc:24990:863795 */ t95581.tag = STRUCTURE_TYPE24753; t95581.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95581.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24990, 863794); out_of_memory_error();} t95581.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE6013; t95581.value.structure_type24753->s1.tag = NULL_TYPE; a35280 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35280==NULL) {backtrace("stalin.sc", 24990, 863794); out_of_memory_error();} a35280->s0.tag = EXTERNAL_SYMBOL_TYPE; a35280->s0.value.external_symbol_type = t95580; a35280->s1 = t95581; /* x272567 */ t95555 = a35280; /* x170490 stalin.sc:24989:863787 */ t95579.tag = STRUCTURE_TYPE24753; t95579.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95579.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24989, 863786); out_of_memory_error();} t95579.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t95579.value.structure_type24753->s0.value.structure_type24753 = t95567; t95579.value.structure_type24753->s1.tag = NULL_TYPE; t95578.tag = STRUCTURE_TYPE24753; t95578.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95578.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24989, 863786); out_of_memory_error();} t95578.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t95578.value.structure_type24753->s0.value.structure_type24753 = t95566; t95578.value.structure_type24753->s1 = t95579; t95577.tag = STRUCTURE_TYPE24753; t95577.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95577.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24989, 863786); out_of_memory_error();} t95577.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t95577.value.structure_type24753->s0.value.structure_type24753 = t95565; t95577.value.structure_type24753->s1 = t95578; t95576.tag = STRUCTURE_TYPE24753; t95576.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95576.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24989, 863786); out_of_memory_error();} t95576.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t95576.value.structure_type24753->s0.value.structure_type24753 = t95564; t95576.value.structure_type24753->s1 = t95577; t95575.tag = STRUCTURE_TYPE24753; t95575.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95575.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24989, 863786); out_of_memory_error();} t95575.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t95575.value.structure_type24753->s0.value.structure_type24753 = t95563; t95575.value.structure_type24753->s1 = t95576; t95574.tag = STRUCTURE_TYPE24753; t95574.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95574.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24989, 863786); out_of_memory_error();} t95574.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t95574.value.structure_type24753->s0.value.structure_type24753 = t95562; t95574.value.structure_type24753->s1 = t95575; t95573.tag = STRUCTURE_TYPE24753; t95573.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95573.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24989, 863786); out_of_memory_error();} t95573.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t95573.value.structure_type24753->s0.value.structure_type24753 = t95561; t95573.value.structure_type24753->s1 = t95574; t95572.tag = STRUCTURE_TYPE24753; t95572.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95572.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24989, 863786); out_of_memory_error();} t95572.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t95572.value.structure_type24753->s0.value.structure_type24753 = t95560; t95572.value.structure_type24753->s1 = t95573; t95571.tag = STRUCTURE_TYPE24753; t95571.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95571.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24989, 863786); out_of_memory_error();} t95571.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t95571.value.structure_type24753->s0.value.structure_type24753 = t95559; t95571.value.structure_type24753->s1 = t95572; t95570.tag = STRUCTURE_TYPE24753; t95570.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95570.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24989, 863786); out_of_memory_error();} t95570.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t95570.value.structure_type24753->s0.value.structure_type24753 = t95558; t95570.value.structure_type24753->s1 = t95571; t95569.tag = STRUCTURE_TYPE24753; t95569.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95569.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24989, 863786); out_of_memory_error();} t95569.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t95569.value.structure_type24753->s0.value.structure_type24753 = t95557; t95569.value.structure_type24753->s1 = t95570; t95568.tag = STRUCTURE_TYPE24753; t95568.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t95568.value.structure_type24753)==NULL) {backtrace("stalin.sc", 24989, 863786); out_of_memory_error();} t95568.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t95568.value.structure_type24753->s0.value.structure_type24753 = t95556; t95568.value.structure_type24753->s1 = t95569; a35279 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35279==NULL) {backtrace("stalin.sc", 24989, 863786); out_of_memory_error();} a35279->s0.tag = STRUCTURE_TYPE24753; a35279->s0.value.structure_type24753 = t95555; a35279->s1 = t95568; /* x272565 */ a754 = a35279; /* x177865 */ /* x177864 stalin.sc:25197:870668 */ a753 = &t95606; /* x186527 */ /* x186526 stalin.sc:25683:888584 */ a752 = &t98493; /* x203735 */ /* x203734 */ /* x203737 */ /* x203736 stalin.sc:28153:967411 */ a750 = FALSE_TYPE; /* x203739 */ /* x203738 stalin.sc:28154:967430 */ a749 = FALSE_TYPE; /* x203741 */ /* x203740 stalin.sc:28155:967453 */ a748 = FALSE_TYPE; /* x203743 */ /* x203742 stalin.sc:28156:967480 */ a747 = FALSE_TYPE; /* x203745 */ /* x203744 stalin.sc:28157:967516 */ a746 = FALSE_TYPE; /* x203747 */ /* x203746 stalin.sc:28158:967538 */ a745 = FALSE_TYPE; /* x203749 */ /* x203748 stalin.sc:28159:967569 */ a744 = FALSE_TYPE; /* x203751 */ /* x203750 stalin.sc:28161:967595 */ a743 = (struct structure_type24753 *)FALSE_TYPE; /* x203767 */ /* x203766 */ /* x203924 */ /* x203923 */ /* x204026 */ /* x204025 stalin.sc:28257:970767 */ /* x204024 stalin.sc:28262:970936 */ /* x204023 */ /* x203972 stalin.sc:28262:970942 */ t102821 = q494; /* x203971 stalin.sc:28262:970937 */ t102822.tag = STRUCTURE_TYPE24753; t102822.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102822.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28262, 970936); out_of_memory_error();} t102822.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5995; t102822.value.structure_type24753->s1.tag = NULL_TYPE; a35295 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35295==NULL) {backtrace("stalin.sc", 28262, 970936); out_of_memory_error();} a35295->s0.tag = EXTERNAL_SYMBOL_TYPE; a35295->s0.value.external_symbol_type = t102821; a35295->s1 = t102822; /* x272597 */ t102817 = a35295; /* x203970 stalin.sc:28258:970775 */ /* x203969 */ /* x203927 stalin.sc:28258:970781 */ t102819 = q493; /* x203926 stalin.sc:28258:970776 */ t102820.tag = STRUCTURE_TYPE24753; t102820.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102820.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28258, 970775); out_of_memory_error();} t102820.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5996; t102820.value.structure_type24753->s1.tag = NULL_TYPE; a35294 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35294==NULL) {backtrace("stalin.sc", 28258, 970775); out_of_memory_error();} a35294->s0.tag = EXTERNAL_SYMBOL_TYPE; a35294->s0.value.external_symbol_type = t102819; a35294->s1 = t102820; /* x272595 */ t102816 = a35294; /* x203925 stalin.sc:28257:970768 */ t102818.tag = STRUCTURE_TYPE24753; t102818.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102818.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28257, 970767); out_of_memory_error();} t102818.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102818.value.structure_type24753->s0.value.structure_type24753 = t102817; t102818.value.structure_type24753->s1.tag = NULL_TYPE; a35293 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35293==NULL) {backtrace("stalin.sc", 28257, 970767); out_of_memory_error();} a35293->s0.tag = STRUCTURE_TYPE24753; a35293->s0.value.structure_type24753 = t102816; a35293->s1 = t102818; /* x272593 */ a740 = a35293; /* x204535 */ /* x204534 */ /* x205014 */ /* x205013 */ /* x205182 */ /* x205181 stalin.sc:28359:974778 */ /* x205180 stalin.sc:28378:975511 */ /* x205179 */ /* x205151 stalin.sc:28378:975517 */ t102832 = q500; /* x205150 stalin.sc:28378:975512 */ t102833.tag = STRUCTURE_TYPE24753; t102833.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102833.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28378, 975511); out_of_memory_error();} t102833.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5990; t102833.value.structure_type24753->s1.tag = NULL_TYPE; a35299 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35299==NULL) {backtrace("stalin.sc", 28378, 975511); out_of_memory_error();} a35299->s0.tag = EXTERNAL_SYMBOL_TYPE; a35299->s0.value.external_symbol_type = t102832; a35299->s1 = t102833; /* x272605 */ t102825 = a35299; /* x205149 stalin.sc:28373:975296 */ /* x205148 */ /* x205109 stalin.sc:28373:975302 */ t102830 = q499; /* x205108 stalin.sc:28373:975297 */ t102831.tag = STRUCTURE_TYPE24753; t102831.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102831.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28373, 975296); out_of_memory_error();} t102831.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5991; t102831.value.structure_type24753->s1.tag = NULL_TYPE; a35298 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35298==NULL) {backtrace("stalin.sc", 28373, 975296); out_of_memory_error();} a35298->s0.tag = EXTERNAL_SYMBOL_TYPE; a35298->s0.value.external_symbol_type = t102830; a35298->s1 = t102831; /* x272603 */ t102824 = a35298; /* x205107 stalin.sc:28359:974784 */ /* x205106 */ /* x205017 stalin.sc:28359:974790 */ t102828 = q498; /* x205016 stalin.sc:28359:974785 */ t102829.tag = STRUCTURE_TYPE24753; t102829.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102829.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28359, 974784); out_of_memory_error();} t102829.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5992; t102829.value.structure_type24753->s1.tag = NULL_TYPE; a35297 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35297==NULL) {backtrace("stalin.sc", 28359, 974784); out_of_memory_error();} a35297->s0.tag = EXTERNAL_SYMBOL_TYPE; a35297->s0.value.external_symbol_type = t102828; a35297->s1 = t102829; /* x272601 */ t102823 = a35297; /* x205015 stalin.sc:28359:974779 */ t102827.tag = STRUCTURE_TYPE24753; t102827.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102827.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28359, 974778); out_of_memory_error();} t102827.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102827.value.structure_type24753->s0.value.structure_type24753 = t102825; t102827.value.structure_type24753->s1.tag = NULL_TYPE; t102826.tag = STRUCTURE_TYPE24753; t102826.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102826.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28359, 974778); out_of_memory_error();} t102826.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102826.value.structure_type24753->s0.value.structure_type24753 = t102824; t102826.value.structure_type24753->s1 = t102827; a35296 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35296==NULL) {backtrace("stalin.sc", 28359, 974778); out_of_memory_error();} a35296->s0.tag = STRUCTURE_TYPE24753; a35296->s0.value.structure_type24753 = t102823; a35296->s1 = t102826; /* x272599 */ a737 = a35296; /* x220406 */ /* x220405 stalin.sc:28389:975889 */ /* x220404 stalin.sc:30416:1046953 */ /* x220403 stalin.sc:30417:1046973 */ /* x220378 stalin.sc:30416:1046959 */ t102923 = q751; /* x220377 stalin.sc:30416:1046954 */ t102924.tag = STRUCTURE_TYPE24753; t102924.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102924.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30416, 1046953); out_of_memory_error();} t102924.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5967; t102924.value.structure_type24753->s1.tag = NULL_TYPE; a35323 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35323==NULL) {backtrace("stalin.sc", 30416, 1046953); out_of_memory_error();} a35323->s0.tag = EXTERNAL_SYMBOL_TYPE; a35323->s0.value.external_symbol_type = t102923; a35323->s1 = t102924; /* x272653 */ t102856 = a35323; /* x220376 stalin.sc:30389:1046078 */ /* x220375 */ /* x220185 stalin.sc:30389:1046084 */ t102921 = q750; /* x220184 stalin.sc:30389:1046079 */ t102922.tag = STRUCTURE_TYPE24753; t102922.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102922.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30389, 1046078); out_of_memory_error();} t102922.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5968; t102922.value.structure_type24753->s1.tag = NULL_TYPE; a35322 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35322==NULL) {backtrace("stalin.sc", 30389, 1046078); out_of_memory_error();} a35322->s0.tag = EXTERNAL_SYMBOL_TYPE; a35322->s0.value.external_symbol_type = t102921; a35322->s1 = t102922; /* x272651 */ t102855 = a35322; /* x220183 stalin.sc:30378:1045677 */ /* x220182 */ /* x220099 stalin.sc:30378:1045683 */ t102919 = q749; /* x220098 stalin.sc:30378:1045678 */ t102920.tag = STRUCTURE_TYPE24753; t102920.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102920.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30378, 1045677); out_of_memory_error();} t102920.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5969; t102920.value.structure_type24753->s1.tag = NULL_TYPE; a35321 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35321==NULL) {backtrace("stalin.sc", 30378, 1045677); out_of_memory_error();} a35321->s0.tag = EXTERNAL_SYMBOL_TYPE; a35321->s0.value.external_symbol_type = t102919; a35321->s1 = t102920; /* x272649 */ t102854 = a35321; /* x220097 stalin.sc:30369:1045389 */ /* x220096 stalin.sc:30370:1045412 */ /* x220019 stalin.sc:30369:1045395 */ t102917 = q748; /* x220018 stalin.sc:30369:1045390 */ t102918.tag = STRUCTURE_TYPE24753; t102918.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102918.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30369, 1045389); out_of_memory_error();} t102918.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5970; t102918.value.structure_type24753->s1.tag = NULL_TYPE; a35320 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35320==NULL) {backtrace("stalin.sc", 30369, 1045389); out_of_memory_error();} a35320->s0.tag = EXTERNAL_SYMBOL_TYPE; a35320->s0.value.external_symbol_type = t102917; a35320->s1 = t102918; /* x272647 */ t102853 = a35320; /* x220017 stalin.sc:30053:1035420 */ /* x220016 */ /* x217709 stalin.sc:30053:1035426 */ t102915 = q733; /* x217708 stalin.sc:30053:1035421 */ t102916.tag = STRUCTURE_TYPE24753; t102916.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102916.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30053, 1035420); out_of_memory_error();} t102916.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5971; t102916.value.structure_type24753->s1.tag = NULL_TYPE; a35319 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35319==NULL) {backtrace("stalin.sc", 30053, 1035420); out_of_memory_error();} a35319->s0.tag = EXTERNAL_SYMBOL_TYPE; a35319->s0.value.external_symbol_type = t102915; a35319->s1 = t102916; /* x272645 */ t102852 = a35319; /* x217707 stalin.sc:29239:1006320 */ /* x217706 stalin.sc:29252:1006628 */ /* x211873 stalin.sc:29239:1006326 */ t102913 = q701; /* x211872 stalin.sc:29239:1006321 */ t102914.tag = STRUCTURE_TYPE24753; t102914.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102914.value.structure_type24753)==NULL) {backtrace("stalin.sc", 29239, 1006320); out_of_memory_error();} t102914.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5972; t102914.value.structure_type24753->s1.tag = NULL_TYPE; a35318 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35318==NULL) {backtrace("stalin.sc", 29239, 1006320); out_of_memory_error();} a35318->s0.tag = EXTERNAL_SYMBOL_TYPE; a35318->s0.value.external_symbol_type = t102913; a35318->s1 = t102914; /* x272643 */ t102851 = a35318; /* x211871 stalin.sc:28646:984399 */ /* x211870 stalin.sc:28655:984643 */ /* x207419 stalin.sc:28646:984405 */ t102911 = q526; /* x207418 stalin.sc:28646:984400 */ t102912.tag = STRUCTURE_TYPE24753; t102912.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102912.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28646, 984399); out_of_memory_error();} t102912.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5973; t102912.value.structure_type24753->s1.tag = NULL_TYPE; a35317 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35317==NULL) {backtrace("stalin.sc", 28646, 984399); out_of_memory_error();} a35317->s0.tag = EXTERNAL_SYMBOL_TYPE; a35317->s0.value.external_symbol_type = t102911; a35317->s1 = t102912; /* x272641 */ t102850 = a35317; /* x207417 stalin.sc:28628:983753 */ /* x207416 */ /* x207195 stalin.sc:28628:983759 */ t102909 = q524; /* x207194 stalin.sc:28628:983754 */ t102910.tag = STRUCTURE_TYPE24753; t102910.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102910.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28628, 983753); out_of_memory_error();} t102910.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5974; t102910.value.structure_type24753->s1.tag = NULL_TYPE; a35316 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35316==NULL) {backtrace("stalin.sc", 28628, 983753); out_of_memory_error();} a35316->s0.tag = EXTERNAL_SYMBOL_TYPE; a35316->s0.value.external_symbol_type = t102909; a35316->s1 = t102910; /* x272639 */ t102849 = a35316; /* x207193 stalin.sc:28597:982738 */ /* x207192 */ /* x206947 stalin.sc:28597:982744 */ t102907 = q522; /* x206946 stalin.sc:28597:982739 */ t102908.tag = STRUCTURE_TYPE24753; t102908.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102908.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28597, 982738); out_of_memory_error();} t102908.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5975; t102908.value.structure_type24753->s1.tag = NULL_TYPE; a35315 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35315==NULL) {backtrace("stalin.sc", 28597, 982738); out_of_memory_error();} a35315->s0.tag = EXTERNAL_SYMBOL_TYPE; a35315->s0.value.external_symbol_type = t102907; a35315->s1 = t102908; /* x272637 */ t102848 = a35315; /* x206945 stalin.sc:28577:982052 */ /* x206944 */ /* x206779 stalin.sc:28577:982058 */ t102905 = q521; /* x206778 stalin.sc:28577:982053 */ t102906.tag = STRUCTURE_TYPE24753; t102906.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102906.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28577, 982052); out_of_memory_error();} t102906.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5976; t102906.value.structure_type24753->s1.tag = NULL_TYPE; a35314 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35314==NULL) {backtrace("stalin.sc", 28577, 982052); out_of_memory_error();} a35314->s0.tag = EXTERNAL_SYMBOL_TYPE; a35314->s0.value.external_symbol_type = t102905; a35314->s1 = t102906; /* x272635 */ t102847 = a35314; /* x206777 stalin.sc:28567:981694 */ /* x206776 */ /* x206674 stalin.sc:28567:981700 */ t102903 = q518; /* x206673 stalin.sc:28567:981695 */ t102904.tag = STRUCTURE_TYPE24753; t102904.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102904.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28567, 981694); out_of_memory_error();} t102904.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5977; t102904.value.structure_type24753->s1.tag = NULL_TYPE; a35313 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35313==NULL) {backtrace("stalin.sc", 28567, 981694); out_of_memory_error();} a35313->s0.tag = EXTERNAL_SYMBOL_TYPE; a35313->s0.value.external_symbol_type = t102903; a35313->s1 = t102904; /* x272633 */ t102846 = a35313; /* x206672 stalin.sc:28562:981551 */ /* x206671 stalin.sc:28563:981564 */ /* x206644 stalin.sc:28562:981557 */ t102901 = q517; /* x206643 stalin.sc:28562:981552 */ t102902.tag = STRUCTURE_TYPE24753; t102902.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102902.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28562, 981551); out_of_memory_error();} t102902.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5978; t102902.value.structure_type24753->s1.tag = NULL_TYPE; a35312 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35312==NULL) {backtrace("stalin.sc", 28562, 981551); out_of_memory_error();} a35312->s0.tag = EXTERNAL_SYMBOL_TYPE; a35312->s0.value.external_symbol_type = t102901; a35312->s1 = t102902; /* x272631 */ t102845 = a35312; /* x206642 stalin.sc:28554:981263 */ /* x206641 */ /* x206558 stalin.sc:28554:981269 */ t102899 = q516; /* x206557 stalin.sc:28554:981264 */ t102900.tag = STRUCTURE_TYPE24753; t102900.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102900.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28554, 981263); out_of_memory_error();} t102900.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5979; t102900.value.structure_type24753->s1.tag = NULL_TYPE; a35311 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35311==NULL) {backtrace("stalin.sc", 28554, 981263); out_of_memory_error();} a35311->s0.tag = EXTERNAL_SYMBOL_TYPE; a35311->s0.value.external_symbol_type = t102899; a35311->s1 = t102900; /* x272629 */ t102844 = a35311; /* x206556 stalin.sc:28545:981026 */ /* x206555 stalin.sc:28546:981047 */ /* x206493 stalin.sc:28545:981032 */ t102897 = q503; /* x206492 stalin.sc:28545:981027 */ t102898.tag = STRUCTURE_TYPE24753; t102898.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102898.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28545, 981026); out_of_memory_error();} t102898.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5980; t102898.value.structure_type24753->s1.tag = NULL_TYPE; a35310 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35310==NULL) {backtrace("stalin.sc", 28545, 981026); out_of_memory_error();} a35310->s0.tag = EXTERNAL_SYMBOL_TYPE; a35310->s0.value.external_symbol_type = t102897; a35310->s1 = t102898; /* x272627 */ t102843 = a35310; /* x206491 stalin.sc:28529:980473 */ /* x206490 stalin.sc:28530:980494 */ /* x206328 stalin.sc:28529:980479 */ t102895 = q515; /* x206327 stalin.sc:28529:980474 */ t102896.tag = STRUCTURE_TYPE24753; t102896.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102896.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28529, 980473); out_of_memory_error();} t102896.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5981; t102896.value.structure_type24753->s1.tag = NULL_TYPE; a35309 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35309==NULL) {backtrace("stalin.sc", 28529, 980473); out_of_memory_error();} a35309->s0.tag = EXTERNAL_SYMBOL_TYPE; a35309->s0.value.external_symbol_type = t102895; a35309->s1 = t102896; /* x272625 */ t102842 = a35309; /* x206326 stalin.sc:28515:979984 */ /* x206325 stalin.sc:28516:980002 */ /* x206186 stalin.sc:28515:979990 */ t102893 = q514; /* x206185 stalin.sc:28515:979985 */ t102894.tag = STRUCTURE_TYPE24753; t102894.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102894.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28515, 979984); out_of_memory_error();} t102894.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5982; t102894.value.structure_type24753->s1.tag = NULL_TYPE; a35308 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35308==NULL) {backtrace("stalin.sc", 28515, 979984); out_of_memory_error();} a35308->s0.tag = EXTERNAL_SYMBOL_TYPE; a35308->s0.value.external_symbol_type = t102893; a35308->s1 = t102894; /* x272623 */ t102841 = a35308; /* x206184 stalin.sc:28506:979701 */ /* x206183 stalin.sc:28508:979758 */ /* x206112 stalin.sc:28506:979707 */ t102891 = q513; /* x206111 stalin.sc:28506:979702 */ t102892.tag = STRUCTURE_TYPE24753; t102892.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102892.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28506, 979701); out_of_memory_error();} t102892.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5983; t102892.value.structure_type24753->s1.tag = NULL_TYPE; a35307 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35307==NULL) {backtrace("stalin.sc", 28506, 979701); out_of_memory_error();} a35307->s0.tag = EXTERNAL_SYMBOL_TYPE; a35307->s0.value.external_symbol_type = t102891; a35307->s1 = t102892; /* x272621 */ t102840 = a35307; /* x206110 stalin.sc:28483:978951 */ /* x206109 */ /* x205919 stalin.sc:28483:978957 */ t102889 = q511; /* x205918 stalin.sc:28483:978952 */ t102890.tag = STRUCTURE_TYPE24753; t102890.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102890.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28483, 978951); out_of_memory_error();} t102890.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5984; t102890.value.structure_type24753->s1.tag = NULL_TYPE; a35306 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35306==NULL) {backtrace("stalin.sc", 28483, 978951); out_of_memory_error();} a35306->s0.tag = EXTERNAL_SYMBOL_TYPE; a35306->s0.value.external_symbol_type = t102889; a35306->s1 = t102890; /* x272619 */ t102839 = a35306; /* x205917 stalin.sc:28467:978366 */ /* x205916 */ /* x205759 stalin.sc:28467:978372 */ t102887 = q509; /* x205758 stalin.sc:28467:978367 */ t102888.tag = STRUCTURE_TYPE24753; t102888.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102888.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28467, 978366); out_of_memory_error();} t102888.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5985; t102888.value.structure_type24753->s1.tag = NULL_TYPE; a35305 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35305==NULL) {backtrace("stalin.sc", 28467, 978366); out_of_memory_error();} a35305->s0.tag = EXTERNAL_SYMBOL_TYPE; a35305->s0.value.external_symbol_type = t102887; a35305->s1 = t102888; /* x272617 */ t102838 = a35305; /* x205757 stalin.sc:28456:977988 */ /* x205756 stalin.sc:28457:978008 */ /* x205659 stalin.sc:28456:977994 */ t102885 = q508; /* x205658 stalin.sc:28456:977989 */ t102886.tag = STRUCTURE_TYPE24753; t102886.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102886.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28456, 977988); out_of_memory_error();} t102886.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5986; t102886.value.structure_type24753->s1.tag = NULL_TYPE; a35304 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35304==NULL) {backtrace("stalin.sc", 28456, 977988); out_of_memory_error();} a35304->s0.tag = EXTERNAL_SYMBOL_TYPE; a35304->s0.value.external_symbol_type = t102885; a35304->s1 = t102886; /* x272615 */ t102837 = a35304; /* x205657 stalin.sc:28449:977755 */ /* x205656 stalin.sc:28450:977770 */ /* x205600 stalin.sc:28449:977761 */ t102883 = q505; /* x205599 stalin.sc:28449:977756 */ t102884.tag = STRUCTURE_TYPE24753; t102884.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102884.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28449, 977755); out_of_memory_error();} t102884.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5987; t102884.value.structure_type24753->s1.tag = NULL_TYPE; a35303 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35303==NULL) {backtrace("stalin.sc", 28449, 977755); out_of_memory_error();} a35303->s0.tag = EXTERNAL_SYMBOL_TYPE; a35303->s0.value.external_symbol_type = t102883; a35303->s1 = t102884; /* x272613 */ t102836 = a35303; /* x205598 stalin.sc:28441:977541 */ /* x205597 stalin.sc:28442:977555 */ /* x205543 stalin.sc:28441:977547 */ t102881 = q504; /* x205542 stalin.sc:28441:977542 */ t102882.tag = STRUCTURE_TYPE24753; t102882.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102882.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28441, 977541); out_of_memory_error();} t102882.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5988; t102882.value.structure_type24753->s1.tag = NULL_TYPE; a35302 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35302==NULL) {backtrace("stalin.sc", 28441, 977541); out_of_memory_error();} a35302->s0.tag = EXTERNAL_SYMBOL_TYPE; a35302->s0.value.external_symbol_type = t102881; a35302->s1 = t102882; /* x272611 */ t102835 = a35302; /* x205541 stalin.sc:28390:975897 */ /* x205540 */ /* x205185 stalin.sc:28390:975903 */ t102879 = q501; /* x205184 stalin.sc:28390:975898 */ t102880.tag = STRUCTURE_TYPE24753; t102880.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102880.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28390, 975897); out_of_memory_error();} t102880.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5989; t102880.value.structure_type24753->s1.tag = NULL_TYPE; a35301 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35301==NULL) {backtrace("stalin.sc", 28390, 975897); out_of_memory_error();} a35301->s0.tag = EXTERNAL_SYMBOL_TYPE; a35301->s0.value.external_symbol_type = t102879; a35301->s1 = t102880; /* x272609 */ t102834 = a35301; /* x205183 stalin.sc:28389:975890 */ t102878.tag = STRUCTURE_TYPE24753; t102878.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102878.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102878.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102878.value.structure_type24753->s0.value.structure_type24753 = t102856; t102878.value.structure_type24753->s1.tag = NULL_TYPE; t102877.tag = STRUCTURE_TYPE24753; t102877.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102877.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102877.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102877.value.structure_type24753->s0.value.structure_type24753 = t102855; t102877.value.structure_type24753->s1 = t102878; t102876.tag = STRUCTURE_TYPE24753; t102876.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102876.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102876.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102876.value.structure_type24753->s0.value.structure_type24753 = t102854; t102876.value.structure_type24753->s1 = t102877; t102875.tag = STRUCTURE_TYPE24753; t102875.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102875.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102875.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102875.value.structure_type24753->s0.value.structure_type24753 = t102853; t102875.value.structure_type24753->s1 = t102876; t102874.tag = STRUCTURE_TYPE24753; t102874.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102874.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102874.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102874.value.structure_type24753->s0.value.structure_type24753 = t102852; t102874.value.structure_type24753->s1 = t102875; t102873.tag = STRUCTURE_TYPE24753; t102873.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102873.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102873.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102873.value.structure_type24753->s0.value.structure_type24753 = t102851; t102873.value.structure_type24753->s1 = t102874; t102872.tag = STRUCTURE_TYPE24753; t102872.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102872.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102872.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102872.value.structure_type24753->s0.value.structure_type24753 = t102850; t102872.value.structure_type24753->s1 = t102873; t102871.tag = STRUCTURE_TYPE24753; t102871.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102871.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102871.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102871.value.structure_type24753->s0.value.structure_type24753 = t102849; t102871.value.structure_type24753->s1 = t102872; t102870.tag = STRUCTURE_TYPE24753; t102870.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102870.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102870.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102870.value.structure_type24753->s0.value.structure_type24753 = t102848; t102870.value.structure_type24753->s1 = t102871; t102869.tag = STRUCTURE_TYPE24753; t102869.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102869.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102869.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102869.value.structure_type24753->s0.value.structure_type24753 = t102847; t102869.value.structure_type24753->s1 = t102870; t102868.tag = STRUCTURE_TYPE24753; t102868.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102868.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102868.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102868.value.structure_type24753->s0.value.structure_type24753 = t102846; t102868.value.structure_type24753->s1 = t102869; t102867.tag = STRUCTURE_TYPE24753; t102867.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102867.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102867.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102867.value.structure_type24753->s0.value.structure_type24753 = t102845; t102867.value.structure_type24753->s1 = t102868; t102866.tag = STRUCTURE_TYPE24753; t102866.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102866.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102866.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102866.value.structure_type24753->s0.value.structure_type24753 = t102844; t102866.value.structure_type24753->s1 = t102867; t102865.tag = STRUCTURE_TYPE24753; t102865.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102865.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102865.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102865.value.structure_type24753->s0.value.structure_type24753 = t102843; t102865.value.structure_type24753->s1 = t102866; t102864.tag = STRUCTURE_TYPE24753; t102864.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102864.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102864.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102864.value.structure_type24753->s0.value.structure_type24753 = t102842; t102864.value.structure_type24753->s1 = t102865; t102863.tag = STRUCTURE_TYPE24753; t102863.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102863.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102863.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102863.value.structure_type24753->s0.value.structure_type24753 = t102841; t102863.value.structure_type24753->s1 = t102864; t102862.tag = STRUCTURE_TYPE24753; t102862.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102862.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102862.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102862.value.structure_type24753->s0.value.structure_type24753 = t102840; t102862.value.structure_type24753->s1 = t102863; t102861.tag = STRUCTURE_TYPE24753; t102861.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102861.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102861.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102861.value.structure_type24753->s0.value.structure_type24753 = t102839; t102861.value.structure_type24753->s1 = t102862; t102860.tag = STRUCTURE_TYPE24753; t102860.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102860.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102860.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102860.value.structure_type24753->s0.value.structure_type24753 = t102838; t102860.value.structure_type24753->s1 = t102861; t102859.tag = STRUCTURE_TYPE24753; t102859.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102859.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102859.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102859.value.structure_type24753->s0.value.structure_type24753 = t102837; t102859.value.structure_type24753->s1 = t102860; t102858.tag = STRUCTURE_TYPE24753; t102858.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102858.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102858.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102858.value.structure_type24753->s0.value.structure_type24753 = t102836; t102858.value.structure_type24753->s1 = t102859; t102857.tag = STRUCTURE_TYPE24753; t102857.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102857.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} t102857.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t102857.value.structure_type24753->s0.value.structure_type24753 = t102835; t102857.value.structure_type24753->s1 = t102858; a35300 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35300==NULL) {backtrace("stalin.sc", 28389, 975889); out_of_memory_error();} a35300->s0.tag = STRUCTURE_TYPE24753; a35300->s0.value.structure_type24753 = t102834; a35300->s1 = t102857; /* x272607 */ a736 = a35300; /* x220639 */ /* x220638 stalin.sc:30422:1047091 */ /* x220637 stalin.sc:30423:1047099 */ /* x220636 */ /* x220409 stalin.sc:30423:1047105 */ t102926 = q752; /* x220408 stalin.sc:30423:1047100 */ t102927.tag = STRUCTURE_TYPE24753; t102927.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t102927.value.structure_type24753)==NULL) {backtrace("stalin.sc", 30423, 1047099); out_of_memory_error();} t102927.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE5964; t102927.value.structure_type24753->s1.tag = NULL_TYPE; a35325 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35325==NULL) {backtrace("stalin.sc", 30423, 1047099); out_of_memory_error();} a35325->s0.tag = EXTERNAL_SYMBOL_TYPE; a35325->s0.value.external_symbol_type = t102926; a35325->s1 = t102927; /* x272657 */ t102925 = a35325; /* x220407 stalin.sc:30422:1047092 */ a35324 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35324==NULL) {backtrace("stalin.sc", 30422, 1047091); out_of_memory_error();} a35324->s0.tag = STRUCTURE_TYPE24753; a35324->s0.value.structure_type24753 = t102925; a35324->s1.tag = NULL_TYPE; /* x272655 */ a735 = a35324; /* x220727 */ /* x220726 */ /* x220735 */ /* x220734 */ /* x224283 */ /* x224282 */ /* x224584 */ /* x224583 */ /* x224586 */ /* x224585 stalin.sc:31108:1071354 */ a730 = FALSE_TYPE; /* x224588 */ /* x224587 stalin.sc:31109:1071381 */ a729 = FALSE_TYPE; /* x224590 */ /* x224589 stalin.sc:31110:1071407 */ a728 = FALSE_TYPE; /* x224592 */ /* x224591 stalin.sc:31111:1071430 */ a727 = FALSE_TYPE; /* x224594 */ /* x224593 stalin.sc:31112:1071475 */ a726 = FALSE_TYPE; /* x224596 */ /* x224595 stalin.sc:31113:1071533 */ a725 = FALSE_TYPE; /* x224598 */ /* x224597 stalin.sc:31114:1071593 */ a724 = FALSE_TYPE; /* x224600 */ /* x224599 stalin.sc:31115:1071653 */ a723 = FALSE_TYPE; /* x224602 */ /* x224601 stalin.sc:31116:1071714 */ a722 = FALSE_TYPE; /* x224604 */ /* x224603 stalin.sc:31117:1071775 */ a721 = FALSE_TYPE; /* x224606 */ /* x224605 stalin.sc:31118:1071841 */ a720 = FALSE_TYPE; /* x224608 */ /* x224607 stalin.sc:31119:1071905 */ a719 = FALSE_TYPE; /* x224610 */ /* x224609 stalin.sc:31120:1071972 */ a718 = FALSE_TYPE; /* x224612 */ /* x224611 stalin.sc:31121:1072037 */ a717 = FALSE_TYPE; /* x224614 */ /* x224613 stalin.sc:31122:1072106 */ /* x224616 */ /* x224615 stalin.sc:31123:1072173 */ /* x224618 */ /* x224617 stalin.sc:31124:1072243 */ /* x224620 */ /* x224619 stalin.sc:31125:1072311 */ /* x224622 */ /* x224621 stalin.sc:31126:1072342 */ a712 = 0; /* x224624 */ /* x224623 stalin.sc:31127:1072382 */ a711 = FALSE_TYPE; /* x224626 */ /* x224625 stalin.sc:31128:1072418 */ a710 = FALSE_TYPE; /* x224628 */ /* x224627 stalin.sc:31129:1072459 */ a709 = FALSE_TYPE; /* x224630 */ /* x224629 stalin.sc:31130:1072485 */ a708 = FALSE_TYPE; /* x224632 */ /* x224631 stalin.sc:31131:1072514 */ a707 = FALSE_TYPE; /* x224634 */ /* x224633 stalin.sc:31132:1072543 */ a706 = FALSE_TYPE; /* x224636 */ /* x224635 stalin.sc:31133:1072574 */ a705 = FALSE_TYPE; /* x224638 */ /* x224637 stalin.sc:31134:1072604 */ a704 = FALSE_TYPE; /* x224640 */ /* x224639 stalin.sc:31135:1072631 */ a703 = FALSE_TYPE; /* x224642 */ /* x224641 stalin.sc:31136:1072649 */ a702 = FALSE_TYPE; /* x224644 */ /* x224643 stalin.sc:31137:1072667 */ a701 = FALSE_TYPE; /* x224646 */ /* x224645 stalin.sc:31138:1072685 */ a700 = FALSE_TYPE; /* x224648 */ /* x224647 stalin.sc:31139:1072703 */ a699 = FALSE_TYPE; /* x224650 */ /* x224649 stalin.sc:31140:1072721 */ a698 = FALSE_TYPE; /* x224652 */ /* x224651 stalin.sc:31141:1072739 */ a697 = FALSE_TYPE; /* x224654 */ /* x224653 stalin.sc:31142:1072757 */ a696 = FALSE_TYPE; /* x224656 */ /* x224655 stalin.sc:31143:1072802 */ a695 = FALSE_TYPE; /* x224658 */ /* x224657 stalin.sc:31144:1072834 */ a694 = FALSE_TYPE; /* x224660 */ /* x224659 stalin.sc:31145:1072865 */ a693 = FALSE_TYPE; /* x224662 */ /* x224661 stalin.sc:31146:1072898 */ a692 = FALSE_TYPE; /* x224664 */ /* x224663 stalin.sc:31147:1072929 */ a691 = FALSE_TYPE; /* x224666 */ /* x224665 stalin.sc:31148:1072963 */ a690 = FALSE_TYPE; /* x224668 */ /* x224667 stalin.sc:31149:1072999 */ a689 = (char *)FALSE_TYPE; /* x224670 */ /* x224669 stalin.sc:31150:1073031 */ a688.tag = FALSE_TYPE; /* x224672 */ /* x224671 stalin.sc:31151:1073071 */ a687 = (char *)FALSE_TYPE; /* x224674 */ /* x224673 stalin.sc:31152:1073108 */ a686 = (char *)FALSE_TYPE; /* x224676 */ /* x224675 stalin.sc:31153:1073137 */ a685 = FALSE_TYPE; /* x224678 */ /* x224677 stalin.sc:31154:1073164 */ a684 = FALSE_TYPE; /* x224680 */ /* x224679 stalin.sc:31155:1073187 */ a683 = FALSE_TYPE; /* x224682 */ /* x224681 stalin.sc:31156:1073210 */ a682 = FALSE_TYPE; /* x224684 */ /* x224683 stalin.sc:31157:1073233 */ a681 = FALSE_TYPE; /* x224686 */ /* x224685 stalin.sc:31158:1073269 */ a680 = FALSE_TYPE; /* x224688 */ /* x224687 stalin.sc:31159:1073308 */ a679 = FALSE_TYPE; /* x224690 */ /* x224689 stalin.sc:31160:1073340 */ a678 = FALSE_TYPE; /* x224692 */ /* x224691 stalin.sc:31161:1073363 */ a677 = FALSE_TYPE; /* x224694 */ /* x224693 stalin.sc:31162:1073385 */ a676 = FALSE_TYPE; /* x224696 */ /* x224695 stalin.sc:31163:1073411 */ a675 = FALSE_TYPE; /* x224698 */ /* x224697 stalin.sc:31164:1073449 */ a674 = FALSE_TYPE; /* x224700 */ /* x224699 stalin.sc:31165:1073473 */ a673 = FALSE_TYPE; /* x224702 */ /* x224701 stalin.sc:31166:1073495 */ a672 = FALSE_TYPE; /* x224704 */ /* x224703 stalin.sc:31167:1073517 */ a671 = FALSE_TYPE; /* x224706 */ /* x224705 stalin.sc:31168:1073534 */ a670 = ""; /* x224708 */ /* x224707 stalin.sc:31169:1073554 */ a669 = (struct structure_type24753 *)NULL_TYPE; /* x224710 */ /* x224709 stalin.sc:31173:1073605 */ a668.tag = NULL_TYPE; /* x224712 */ /* x224711 stalin.sc:31174:1073629 */ a667 = (struct structure_type24753 *)NULL_TYPE; /* x224714 */ /* x224713 stalin.sc:31175:1073651 */ a666 = (struct structure_type24753 *)FALSE_TYPE; /* x224716 */ /* x224715 stalin.sc:31176:1073673 */ a665 = (struct structure_type24753 *)NULL_TYPE; /* x224718 */ /* x224717 stalin.sc:31177:1073710 */ a664 = FALSE_TYPE; /* x224720 */ /* x224719 stalin.sc:31178:1073750 */ a663.tag = FALSE_TYPE; /* x224751 */ /* x224750 */ /* x224992 */ /* x224991 */ /* x225123 */ /* x225122 */ /* x225259 */ /* x225258 */ /* x225334 */ /* x225333 */ /* x225441 */ /* x225440 */ /* x225447 */ /* x225446 */ /* x225479 */ /* x225478 */ /* x225639 */ /* x225638 */ /* x226561 */ /* x226560 */ /* x230009 */ /* x230008 */ /* x3940 */ /* x3939 stalin.sc:32620:1126988 */ /* x3938 */ /* x3937 */ t93754 = a0; /* x3936 */ a34087.tag = NONHEADED_VECTOR_TYPE24736; a34087.value.nonheaded_vector_type24736 = t93754; t89289 = f27645(); /* x3935 */ /* MOVE: branching squeezed to general */ if (t89289>=((struct structure_type24753 *)VALUE_OFFSET)) {a13718.tag = STRUCTURE_TYPE24753; a13718.value.structure_type24753 = t89289;} else a13718.tag = (unsigned)t89289; /* x3934 */ /* x3929 */ /* x3928 */ /* x3931 */ /* x3930 */ /* x3933 */ /* x3932 */ /* x3927 */ /* x3926 */ /* x3889 */ /* x3888 */ /* x3909 */ /* x3908 */ /* x3925 */ /* x3924 */ /* x3879 */ /* x3878 */ /* x3877 */ /* x3876 */ t93753 = a13718; /* x271319 */ if (!((t93753.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside top level 8]"); structure_ref_error();} t89290 = t93753.value.structure_type24753->s0; /* x3874 */ a13725 = t89290; /* x3873 */ /* x3872 */ /* x3871 */ /* x3870 */ /* x3869 */ /* x3864 */ /* x3863 */ /* x3868 */ /* x3867 */ /* x3866 */ t93752 = a13718; /* x271320 */ if (!((t93752.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside top level 10]"); structure_ref_error();} a13718 = t93752.value.structure_type24753->s1; /* x3855 */ /* x3854 */ /* x3761 stalin.sc:32755:1133332 */ /* x3762 */ /* x3763 */ /* x3764 stalin.sc:32753:1133189 */ t89291 = "gcc"; /* x3765 */ /* x3766 */ /* x3767 */ /* x3768 */ /* x3769 */ /* x3770 */ /* x3771 */ /* x3772 */ /* x3773 */ /* x3774 */ /* x3775 */ /* x3776 */ /* x3777 */ /* x3778 */ /* x3779 */ /* x3780 */ /* x3781 */ /* x3782 */ /* x3783 */ /* x3784 */ /* x3785 */ /* x3786 */ /* x3787 */ /* x3788 */ /* x3789 */ /* x3790 stalin.sc:32727:1132033 */ t89292 = ""; /* x3791 */ /* x3792 */ /* x3793 */ /* x3794 */ /* x3795 */ /* x3796 */ /* x3797 */ /* x3798 */ /* x3799 */ /* x3800 */ /* x3801 */ /* x3802 */ /* x3803 */ /* x3804 */ /* x3805 */ /* x3806 */ /* x3807 */ /* x3808 */ /* x3809 */ /* x3810 */ /* x3811 */ /* x3812 */ /* x3813 */ /* x3814 */ /* x3815 */ /* x3816 stalin.sc:32699:1130761 */ t89293 = 80; /* x3817 */ /* x3818 */ /* x3819 */ /* x3820 */ /* x3821 */ /* x3822 */ /* x3823 */ /* x3824 */ /* x3825 */ /* x3826 */ /* x3827 */ /* x3828 */ /* x3829 */ /* x3830 */ /* x3831 */ /* x3832 */ /* x3833 */ /* x3834 */ /* x3835 */ /* x3836 */ /* x3837 */ /* x3838 */ /* x3839 */ /* x3840 */ /* x3841 */ /* x3842 */ /* x3843 */ /* x3844 */ /* x3845 */ /* x3846 */ /* x3847 */ /* x3848 */ /* x3849 */ /* x3850 */ /* x3851 */ /* x3852 */ /* x3853 */ /* x3760 */ a13729 = (char *)FALSE_TYPE; a13730 = (struct structure_type24753 *)NULL_TYPE; a13732 = t89291; a13733 = FALSE_TYPE; a13734 = FALSE_TYPE; a13735 = FALSE_TYPE; a13736 = FALSE_TYPE; a13737 = FALSE_TYPE; a13738 = FALSE_TYPE; a13739 = FALSE_TYPE; a13740 = FALSE_TYPE; a13741 = FALSE_TYPE; a13742 = FALSE_TYPE; a13743 = FALSE_TYPE; a13744 = FALSE_TYPE; a13745 = FALSE_TYPE; a13746 = FALSE_TYPE; a13747 = FALSE_TYPE; a13748 = FALSE_TYPE; a13749 = FALSE_TYPE; a13750 = FALSE_TYPE; a13751 = FALSE_TYPE; a13752 = FALSE_TYPE; a13753 = FALSE_TYPE; a13754 = FALSE_TYPE; a13755 = FALSE_TYPE; a13756 = FALSE_TYPE; a13757 = FALSE_TYPE; a13758 = t89292; a13759 = FALSE_TYPE; a13760 = FALSE_TYPE; a13761 = FALSE_TYPE; a13762 = FALSE_TYPE; a13763 = FALSE_TYPE; a13764 = FALSE_TYPE; a13765 = FALSE_TYPE; a13766 = FALSE_TYPE; a13767 = FALSE_TYPE; a13768 = FALSE_TYPE; a13769 = FALSE_TYPE; a13770 = FALSE_TYPE; a13771 = FALSE_TYPE; a13772 = FALSE_TYPE; a13773 = FALSE_TYPE; a13774 = FALSE_TYPE; a13775 = FALSE_TYPE; a13776 = FALSE_TYPE; a13777 = FALSE_TYPE; a13778 = FALSE_TYPE; a13779 = FALSE_TYPE; a13780 = FALSE_TYPE; a13781 = FALSE_TYPE; a13782 = FALSE_TYPE; a13783 = FALSE_TYPE; a13784 = t89293; a13785 = FALSE_TYPE; a13786 = FALSE_TYPE; a13787 = FALSE_TYPE; a13788 = FALSE_TYPE; a13789 = FALSE_TYPE; a13790 = FALSE_TYPE; a13791 = FALSE_TYPE; a13792 = FALSE_TYPE; a13793 = FALSE_TYPE; a13794 = FALSE_TYPE; a13795 = FALSE_TYPE; a13796 = FALSE_TYPE; a13797 = FALSE_TYPE; a13798 = FALSE_TYPE; a13799 = FALSE_TYPE; a13800 = FALSE_TYPE; a13801 = FALSE_TYPE; a13802 = FALSE_TYPE; a13803 = FALSE_TYPE; a13804 = FALSE_TYPE; a13805 = FALSE_TYPE; a13806 = FALSE_TYPE; a13807 = FALSE_TYPE; a13808 = FALSE_TYPE; a13809 = FALSE_TYPE; a13810 = FALSE_TYPE; a13811 = FALSE_TYPE; a13812 = FALSE_TYPE; a13813 = FALSE_TYPE; a13814 = FALSE_TYPE; a13815 = FALSE_TYPE; a13816 = FALSE_TYPE; a13817 = FALSE_TYPE; a13818 = FALSE_TYPE; a13819 = (struct structure_type24753 *)NULL_TYPE; a13821 = FALSE_TYPE; /* x3759 */ /* x2956 */ /* x2955 */ /* x2954 */ /* x2953 */ /* x2952 */ /* x2951 */ /* x2950 */ /* x2949 */ /* x51 */ /* x50 */ h23: /* x2948 */ /* x54 */ /* x53 */ t93135 = a13718; /* x271524 */ if (!((t93135.tag)==NULL_TYPE)) goto l17768; /* x56 */ /* x55 */ goto l17769; l17768: /* x2947 */ /* x2946 */ /* x2945 */ /* x62 */ /* x61 */ t93137 = "-version"; /* x60 */ /* x59 */ t93140 = a13718; /* x271523 */ if (!((t93140.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93136 = t93140.value.structure_type24753->s0; /* x57 */ t93138 = t93136; t93139.tag = STRING_TYPE; t93139.value.string_type = t93137; if (f27434(t93138, t93139)==FALSE_TYPE) goto l17771; /* x82 */ /* x81 */ /* x80 */ /* x69 */ /* x68 */ /* x67 */ t93690 = a13718; /* x271522 */ if (!((t93690.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 26]"); structure_ref_error();} a13718 = t93690.value.structure_type24753->s1; /* x77 */ /* x70 */ if (a13821==FALSE_TYPE) goto l18380; /* x74 */ /* x73 */ /* x72 */ /* x71 */ f642(); goto l18381; l18380: /* x76 */ /* x75 */ l18381: /* x79 */ /* x78 */ a13821 = TRUE_TYPE; /* x65 */ /* x64 */ /* x63 */ goto h23; goto l17772; l17771: /* x2944 */ /* x88 */ /* x87 */ t93142 = "-I"; /* x86 */ /* x85 */ t93145 = a13718; /* x271521 */ if (!((t93145.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93141 = t93145.value.structure_type24753->s0; /* x83 */ t93143 = t93141; t93144.tag = STRING_TYPE; t93144.value.string_type = t93142; if (f27434(t93143, t93144)==FALSE_TYPE) goto l17774; /* x124 */ /* x123 */ /* x122 */ /* x95 */ /* x94 */ /* x93 */ t93683 = a13718; /* x271520 */ if (!((t93683.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 30]"); structure_ref_error();} a13718 = t93683.value.structure_type24753->s1; /* x97 */ /* x96 */ /* x107 */ /* x100 */ /* x99 */ t93684 = a13718; /* x271519 */ if (!((t93684.tag)==NULL_TYPE)) goto l18377; /* x104 */ /* x103 */ /* x102 */ /* x101 */ f642(); goto l18378; l18377: /* x106 */ /* x105 */ l18378: /* x117 */ /* x116 */ /* x114 */ /* x112 */ /* x111 */ t93688 = a13718; /* x271517 */ if (!((t93688.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 30]"); structure_ref_error();} t93687 = t93688.value.structure_type24753->s0; /* x113 */ /* x109 stalin.sc:32623:1127119 */ t93685 = f644(t93687); /* x115 stalin.sc:32623:1127086 */ t93686 = a13819; /* x271518 */ a13819 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a13819==NULL) {backtrace_internal("[inside LOOP 30]"); out_of_memory_error();} a13819->s0.tag = STRING_TYPE; a13819->s0.value.string_type = t93685; /* MOVE: branching squeezed to general */ if (t93686>=((struct structure_type24753 *)VALUE_OFFSET)) {a13819->s1.tag = STRUCTURE_TYPE24753; a13819->s1.value.structure_type24753 = t93686;} else a13819->s1.tag = (unsigned)t93686; /* x121 */ /* x120 */ /* x119 */ t93689 = a13718; /* x271516 */ if (!((t93689.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 30]"); structure_ref_error();} a13718 = t93689.value.structure_type24753->s1; /* x91 */ /* x90 */ /* x89 */ goto h23; goto l17775; l17774: /* x2943 */ /* x130 */ /* x129 */ t93147 = "-s"; /* x128 */ /* x127 */ t93150 = a13718; /* x271515 */ if (!((t93150.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93146 = t93150.value.structure_type24753->s0; /* x125 */ t93148 = t93146; t93149.tag = STRING_TYPE; t93149.value.string_type = t93147; if (f27434(t93148, t93149)==FALSE_TYPE) goto l17777; /* x168 */ /* x167 */ /* x166 */ /* x137 */ /* x136 */ /* x135 */ t93682 = a13718; /* x271514 */ if (!((t93682.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 34]"); structure_ref_error();} a13718 = t93682.value.structure_type24753->s1; /* x163 */ /* x156 */ /* x155 stalin.sc:32624:1127163 */ if (!(a13818==FALSE_TYPE)) goto l18370; /* x152 */ /* x151 stalin.sc:32624:1127172 */ if (!(a13817==FALSE_TYPE)) goto l18370; /* x148 */ /* x147 stalin.sc:32624:1127181 */ if (!(a13816==FALSE_TYPE)) goto l18370; /* x144 */ if (a13815==FALSE_TYPE) goto l18371; l18370: /* x160 */ /* x159 */ /* x158 */ /* x157 */ f642(); goto l18372; l18371: /* x162 */ /* x161 */ l18372: /* x165 */ /* x164 */ a13818 = TRUE_TYPE; /* x133 */ /* x132 */ /* x131 */ goto h23; goto l17778; l17777: /* x2942 */ /* x174 */ /* x173 */ t93152 = "-x"; /* x172 */ /* x171 */ t93155 = a13718; /* x271513 */ if (!((t93155.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93151 = t93155.value.structure_type24753->s0; /* x169 */ t93153 = t93151; t93154.tag = STRING_TYPE; t93154.value.string_type = t93152; if (f27434(t93153, t93154)==FALSE_TYPE) goto l17780; /* x212 */ /* x211 */ /* x210 */ /* x181 */ /* x180 */ /* x179 */ t93681 = a13718; /* x271512 */ if (!((t93681.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 41]"); structure_ref_error();} a13718 = t93681.value.structure_type24753->s1; /* x207 */ /* x200 */ /* x199 stalin.sc:32624:1127163 */ if (!(a13818==FALSE_TYPE)) goto l18364; /* x196 */ /* x195 stalin.sc:32624:1127172 */ if (!(a13817==FALSE_TYPE)) goto l18364; /* x192 */ /* x191 stalin.sc:32624:1127181 */ if (!(a13816==FALSE_TYPE)) goto l18364; /* x188 */ if (a13815==FALSE_TYPE) goto l18365; l18364: /* x204 */ /* x203 */ /* x202 */ /* x201 */ f642(); goto l18366; l18365: /* x206 */ /* x205 */ l18366: /* x209 */ /* x208 */ a13817 = TRUE_TYPE; /* x177 */ /* x176 */ /* x175 */ goto h23; goto l17781; l17780: /* x2941 */ /* x218 */ /* x217 */ t93157 = "-q"; /* x216 */ /* x215 */ t93160 = a13718; /* x271511 */ if (!((t93160.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93156 = t93160.value.structure_type24753->s0; /* x213 */ t93158 = t93156; t93159.tag = STRING_TYPE; t93159.value.string_type = t93157; if (f27434(t93158, t93159)==FALSE_TYPE) goto l17783; /* x256 */ /* x255 */ /* x254 */ /* x225 */ /* x224 */ /* x223 */ t93680 = a13718; /* x271510 */ if (!((t93680.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 48]"); structure_ref_error();} a13718 = t93680.value.structure_type24753->s1; /* x251 */ /* x244 */ /* x243 stalin.sc:32624:1127163 */ if (!(a13818==FALSE_TYPE)) goto l18358; /* x240 */ /* x239 stalin.sc:32624:1127172 */ if (!(a13817==FALSE_TYPE)) goto l18358; /* x236 */ /* x235 stalin.sc:32624:1127181 */ if (!(a13816==FALSE_TYPE)) goto l18358; /* x232 */ if (a13815==FALSE_TYPE) goto l18359; l18358: /* x248 */ /* x247 */ /* x246 */ /* x245 */ f642(); goto l18360; l18359: /* x250 */ /* x249 */ l18360: /* x253 */ /* x252 */ a13816 = TRUE_TYPE; /* x221 */ /* x220 */ /* x219 */ goto h23; goto l17784; l17783: /* x2940 */ /* x262 */ /* x261 */ t93162 = "-t"; /* x260 */ /* x259 */ t93165 = a13718; /* x271509 */ if (!((t93165.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93161 = t93165.value.structure_type24753->s0; /* x257 */ t93163 = t93161; t93164.tag = STRING_TYPE; t93164.value.string_type = t93162; if (f27434(t93163, t93164)==FALSE_TYPE) goto l17786; /* x300 */ /* x299 */ /* x298 */ /* x269 */ /* x268 */ /* x267 */ t93679 = a13718; /* x271508 */ if (!((t93679.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 55]"); structure_ref_error();} a13718 = t93679.value.structure_type24753->s1; /* x295 */ /* x288 */ /* x287 stalin.sc:32624:1127163 */ if (!(a13818==FALSE_TYPE)) goto l18352; /* x284 */ /* x283 stalin.sc:32624:1127172 */ if (!(a13817==FALSE_TYPE)) goto l18352; /* x280 */ /* x279 stalin.sc:32624:1127181 */ if (!(a13816==FALSE_TYPE)) goto l18352; /* x276 */ if (a13815==FALSE_TYPE) goto l18353; l18352: /* x292 */ /* x291 */ /* x290 */ /* x289 */ f642(); goto l18354; l18353: /* x294 */ /* x293 */ l18354: /* x297 */ /* x296 */ a13815 = TRUE_TYPE; /* x265 */ /* x264 */ /* x263 */ goto h23; goto l17787; l17786: /* x2939 */ /* x306 */ /* x305 */ t93167 = "-treat-all-symbols-as-external"; /* x304 */ /* x303 */ t93170 = a13718; /* x271507 */ if (!((t93170.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93166 = t93170.value.structure_type24753->s0; /* x301 */ t93168 = t93166; t93169.tag = STRING_TYPE; t93169.value.string_type = t93167; if (f27434(t93168, t93169)==FALSE_TYPE) goto l17789; /* x332 */ /* x331 */ /* x330 */ /* x313 */ /* x312 */ /* x311 */ t93678 = a13718; /* x271506 */ if (!((t93678.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 62]"); structure_ref_error();} a13718 = t93678.value.structure_type24753->s1; /* x327 */ /* x320 */ /* x319 stalin.sc:32627:1127251 */ if (!(a13814==FALSE_TYPE)) goto l18348; /* x316 */ if (a13813==FALSE_TYPE) goto l18349; l18348: /* x324 */ /* x323 */ /* x322 */ /* x321 */ f642(); goto l18350; l18349: /* x326 */ /* x325 */ l18350: /* x329 */ /* x328 */ a13814 = TRUE_TYPE; /* x309 */ /* x308 */ /* x307 */ goto h23; goto l17790; l17789: /* x2938 */ /* x338 */ /* x337 */ t93172 = "-do-not-treat-all-symbols-as-external"; /* x336 */ /* x335 */ t93175 = a13718; /* x271505 */ if (!((t93175.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93171 = t93175.value.structure_type24753->s0; /* x333 */ t93173 = t93171; t93174.tag = STRING_TYPE; t93174.value.string_type = t93172; if (f27434(t93173, t93174)==FALSE_TYPE) goto l17792; /* x364 */ /* x363 */ /* x362 */ /* x345 */ /* x344 */ /* x343 */ t93677 = a13718; /* x271504 */ if (!((t93677.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 67]"); structure_ref_error();} a13718 = t93677.value.structure_type24753->s1; /* x359 */ /* x352 */ /* x351 stalin.sc:32627:1127251 */ if (!(a13814==FALSE_TYPE)) goto l18344; /* x348 */ if (a13813==FALSE_TYPE) goto l18345; l18344: /* x356 */ /* x355 */ /* x354 */ /* x353 */ f642(); goto l18346; l18345: /* x358 */ /* x357 */ l18346: /* x361 */ /* x360 */ a13813 = TRUE_TYPE; /* x341 */ /* x340 */ /* x339 */ goto h23; goto l17793; l17792: /* x2937 */ /* x370 */ /* x369 */ t93177 = "-index-allocated-string-types-by-expression"; /* x368 */ /* x367 */ t93180 = a13718; /* x271503 */ if (!((t93180.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93176 = t93180.value.structure_type24753->s0; /* x365 */ t93178 = t93176; t93179.tag = STRING_TYPE; t93179.value.string_type = t93177; if (f27434(t93178, t93179)==FALSE_TYPE) goto l17795; /* x396 */ /* x395 */ /* x394 */ /* x377 */ /* x376 */ /* x375 */ t93676 = a13718; /* x271502 */ if (!((t93676.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 72]"); structure_ref_error();} a13718 = t93676.value.structure_type24753->s1; /* x391 */ /* x384 */ /* x383 stalin.sc:32632:1127435 */ if (!(a13812==FALSE_TYPE)) goto l18340; /* x380 */ if (a13811==FALSE_TYPE) goto l18341; l18340: /* x388 */ /* x387 */ /* x386 */ /* x385 */ f642(); goto l18342; l18341: /* x390 */ /* x389 */ l18342: /* x393 */ /* x392 */ a13812 = TRUE_TYPE; /* x373 */ /* x372 */ /* x371 */ goto h23; goto l17796; l17795: /* x2936 */ /* x402 */ /* x401 */ t93182 = "-do-not-index-allocated-string-types-by-expression"; /* x400 */ /* x399 */ t93185 = a13718; /* x271501 */ if (!((t93185.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93181 = t93185.value.structure_type24753->s0; /* x397 */ t93183 = t93181; t93184.tag = STRING_TYPE; t93184.value.string_type = t93182; if (f27434(t93183, t93184)==FALSE_TYPE) goto l17798; /* x428 */ /* x427 */ /* x426 */ /* x409 */ /* x408 */ /* x407 */ t93675 = a13718; /* x271500 */ if (!((t93675.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 77]"); structure_ref_error();} a13718 = t93675.value.structure_type24753->s1; /* x423 */ /* x416 */ /* x415 stalin.sc:32632:1127435 */ if (!(a13812==FALSE_TYPE)) goto l18336; /* x412 */ if (a13811==FALSE_TYPE) goto l18337; l18336: /* x420 */ /* x419 */ /* x418 */ /* x417 */ f642(); goto l18338; l18337: /* x422 */ /* x421 */ l18338: /* x425 */ /* x424 */ a13811 = TRUE_TYPE; /* x405 */ /* x404 */ /* x403 */ goto h23; goto l17799; l17798: /* x2935 */ /* x434 */ /* x433 */ t93187 = "-index-constant-structure-types-by-slot-types"; /* x432 */ /* x431 */ t93190 = a13718; /* x271499 */ if (!((t93190.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93186 = t93190.value.structure_type24753->s0; /* x429 */ t93188 = t93186; t93189.tag = STRING_TYPE; t93189.value.string_type = t93187; if (f27434(t93188, t93189)==FALSE_TYPE) goto l17801; /* x460 */ /* x459 */ /* x458 */ /* x441 */ /* x440 */ /* x439 */ t93674 = a13718; /* x271498 */ if (!((t93674.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 82]"); structure_ref_error();} a13718 = t93674.value.structure_type24753->s1; /* x455 */ /* x448 */ /* x447 stalin.sc:32637:1127660 */ if (!(a13810==FALSE_TYPE)) goto l18332; /* x444 */ if (a13809==FALSE_TYPE) goto l18333; l18332: /* x452 */ /* x451 */ /* x450 */ /* x449 */ f642(); goto l18334; l18333: /* x454 */ /* x453 */ l18334: /* x457 */ /* x456 */ a13810 = TRUE_TYPE; /* x437 */ /* x436 */ /* x435 */ goto h23; goto l17802; l17801: /* x2934 */ /* x466 */ /* x465 */ t93192 = "-do-not-index-constant-structure-types-by-slot-types"; /* x464 */ /* x463 */ t93195 = a13718; /* x271497 */ if (!((t93195.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93191 = t93195.value.structure_type24753->s0; /* x461 */ t93193 = t93191; t93194.tag = STRING_TYPE; t93194.value.string_type = t93192; if (f27434(t93193, t93194)==FALSE_TYPE) goto l17804; /* x492 */ /* x491 */ /* x490 */ /* x473 */ /* x472 */ /* x471 */ t93673 = a13718; /* x271496 */ if (!((t93673.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 87]"); structure_ref_error();} a13718 = t93673.value.structure_type24753->s1; /* x487 */ /* x480 */ /* x479 stalin.sc:32637:1127660 */ if (!(a13810==FALSE_TYPE)) goto l18328; /* x476 */ if (a13809==FALSE_TYPE) goto l18329; l18328: /* x484 */ /* x483 */ /* x482 */ /* x481 */ f642(); goto l18330; l18329: /* x486 */ /* x485 */ l18330: /* x489 */ /* x488 */ a13809 = TRUE_TYPE; /* x469 */ /* x468 */ /* x467 */ goto h23; goto l17805; l17804: /* x2933 */ /* x498 */ /* x497 */ t93197 = "-index-constant-structure-types-by-expression"; /* x496 */ /* x495 */ t93200 = a13718; /* x271495 */ if (!((t93200.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93196 = t93200.value.structure_type24753->s0; /* x493 */ t93198 = t93196; t93199.tag = STRING_TYPE; t93199.value.string_type = t93197; if (f27434(t93198, t93199)==FALSE_TYPE) goto l17807; /* x524 */ /* x523 */ /* x522 */ /* x505 */ /* x504 */ /* x503 */ t93672 = a13718; /* x271494 */ if (!((t93672.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 92]"); structure_ref_error();} a13718 = t93672.value.structure_type24753->s1; /* x519 */ /* x512 */ /* x511 stalin.sc:32642:1127891 */ if (!(a13808==FALSE_TYPE)) goto l18324; /* x508 */ if (a13807==FALSE_TYPE) goto l18325; l18324: /* x516 */ /* x515 */ /* x514 */ /* x513 */ f642(); goto l18326; l18325: /* x518 */ /* x517 */ l18326: /* x521 */ /* x520 */ a13808 = TRUE_TYPE; /* x501 */ /* x500 */ /* x499 */ goto h23; goto l17808; l17807: /* x2932 */ /* x530 */ /* x529 */ t93202 = "-do-not-index-constant-structure-types-by-expression"; /* x528 */ /* x527 */ t93205 = a13718; /* x271493 */ if (!((t93205.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93201 = t93205.value.structure_type24753->s0; /* x525 */ t93203 = t93201; t93204.tag = STRING_TYPE; t93204.value.string_type = t93202; if (f27434(t93203, t93204)==FALSE_TYPE) goto l17810; /* x556 */ /* x555 */ /* x554 */ /* x537 */ /* x536 */ /* x535 */ t93671 = a13718; /* x271492 */ if (!((t93671.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 97]"); structure_ref_error();} a13718 = t93671.value.structure_type24753->s1; /* x551 */ /* x544 */ /* x543 stalin.sc:32642:1127891 */ if (!(a13808==FALSE_TYPE)) goto l18320; /* x540 */ if (a13807==FALSE_TYPE) goto l18321; l18320: /* x548 */ /* x547 */ /* x546 */ /* x545 */ f642(); goto l18322; l18321: /* x550 */ /* x549 */ l18322: /* x553 */ /* x552 */ a13807 = TRUE_TYPE; /* x533 */ /* x532 */ /* x531 */ goto h23; goto l17811; l17810: /* x2931 */ /* x562 */ /* x561 */ t93207 = "-index-allocated-structure-types-by-slot-types"; /* x560 */ /* x559 */ t93210 = a13718; /* x271491 */ if (!((t93210.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93206 = t93210.value.structure_type24753->s0; /* x557 */ t93208 = t93206; t93209.tag = STRING_TYPE; t93209.value.string_type = t93207; if (f27434(t93208, t93209)==FALSE_TYPE) goto l17813; /* x588 */ /* x587 */ /* x586 */ /* x569 */ /* x568 */ /* x567 */ t93670 = a13718; /* x271490 */ if (!((t93670.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 102]"); structure_ref_error();} a13718 = t93670.value.structure_type24753->s1; /* x583 */ /* x576 */ /* x575 stalin.sc:32647:1128123 */ if (!(a13806==FALSE_TYPE)) goto l18316; /* x572 */ if (a13805==FALSE_TYPE) goto l18317; l18316: /* x580 */ /* x579 */ /* x578 */ /* x577 */ f642(); goto l18318; l18317: /* x582 */ /* x581 */ l18318: /* x585 */ /* x584 */ a13806 = TRUE_TYPE; /* x565 */ /* x564 */ /* x563 */ goto h23; goto l17814; l17813: /* x2930 */ /* x594 */ /* x593 */ t93212 = "-do-not-index-allocated-structure-types-by-slot-types"; /* x592 */ /* x591 */ t93215 = a13718; /* x271489 */ if (!((t93215.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93211 = t93215.value.structure_type24753->s0; /* x589 */ t93213 = t93211; t93214.tag = STRING_TYPE; t93214.value.string_type = t93212; if (f27434(t93213, t93214)==FALSE_TYPE) goto l17816; /* x620 */ /* x619 */ /* x618 */ /* x601 */ /* x600 */ /* x599 */ t93669 = a13718; /* x271488 */ if (!((t93669.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 107]"); structure_ref_error();} a13718 = t93669.value.structure_type24753->s1; /* x615 */ /* x608 */ /* x607 stalin.sc:32647:1128123 */ if (!(a13806==FALSE_TYPE)) goto l18312; /* x604 */ if (a13805==FALSE_TYPE) goto l18313; l18312: /* x612 */ /* x611 */ /* x610 */ /* x609 */ f642(); goto l18314; l18313: /* x614 */ /* x613 */ l18314: /* x617 */ /* x616 */ a13805 = TRUE_TYPE; /* x597 */ /* x596 */ /* x595 */ goto h23; goto l17817; l17816: /* x2929 */ /* x626 */ /* x625 */ t93217 = "-index-allocated-structure-types-by-expression"; /* x624 */ /* x623 */ t93220 = a13718; /* x271487 */ if (!((t93220.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93216 = t93220.value.structure_type24753->s0; /* x621 */ t93218 = t93216; t93219.tag = STRING_TYPE; t93219.value.string_type = t93217; if (f27434(t93218, t93219)==FALSE_TYPE) goto l17819; /* x652 */ /* x651 */ /* x650 */ /* x633 */ /* x632 */ /* x631 */ t93668 = a13718; /* x271486 */ if (!((t93668.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 112]"); structure_ref_error();} a13718 = t93668.value.structure_type24753->s1; /* x647 */ /* x640 */ /* x639 stalin.sc:32652:1128358 */ if (!(a13804==FALSE_TYPE)) goto l18308; /* x636 */ if (a13803==FALSE_TYPE) goto l18309; l18308: /* x644 */ /* x643 */ /* x642 */ /* x641 */ f642(); goto l18310; l18309: /* x646 */ /* x645 */ l18310: /* x649 */ /* x648 */ a13804 = TRUE_TYPE; /* x629 */ /* x628 */ /* x627 */ goto h23; goto l17820; l17819: /* x2928 */ /* x658 */ /* x657 */ t93222 = "-do-not-index-allocated-structure-types-by-expression"; /* x656 */ /* x655 */ t93225 = a13718; /* x271485 */ if (!((t93225.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93221 = t93225.value.structure_type24753->s0; /* x653 */ t93223 = t93221; t93224.tag = STRING_TYPE; t93224.value.string_type = t93222; if (f27434(t93223, t93224)==FALSE_TYPE) goto l17822; /* x684 */ /* x683 */ /* x682 */ /* x665 */ /* x664 */ /* x663 */ t93667 = a13718; /* x271484 */ if (!((t93667.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 117]"); structure_ref_error();} a13718 = t93667.value.structure_type24753->s1; /* x679 */ /* x672 */ /* x671 stalin.sc:32652:1128358 */ if (!(a13804==FALSE_TYPE)) goto l18304; /* x668 */ if (a13803==FALSE_TYPE) goto l18305; l18304: /* x676 */ /* x675 */ /* x674 */ /* x673 */ f642(); goto l18306; l18305: /* x678 */ /* x677 */ l18306: /* x681 */ /* x680 */ a13803 = TRUE_TYPE; /* x661 */ /* x660 */ /* x659 */ goto h23; goto l17823; l17822: /* x2927 */ /* x690 */ /* x689 */ t93227 = "-index-constant-headed-vector-types-by-element-type"; /* x688 */ /* x687 */ t93230 = a13718; /* x271483 */ if (!((t93230.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93226 = t93230.value.structure_type24753->s0; /* x685 */ t93228 = t93226; t93229.tag = STRING_TYPE; t93229.value.string_type = t93227; if (f27434(t93228, t93229)==FALSE_TYPE) goto l17825; /* x716 */ /* x715 */ /* x714 */ /* x697 */ /* x696 */ /* x695 */ t93666 = a13718; /* x271482 */ if (!((t93666.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 122]"); structure_ref_error();} a13718 = t93666.value.structure_type24753->s1; /* x711 */ /* x704 */ /* x703 stalin.sc:32657:1128598 */ if (!(a13802==FALSE_TYPE)) goto l18300; /* x700 */ if (a13801==FALSE_TYPE) goto l18301; l18300: /* x708 */ /* x707 */ /* x706 */ /* x705 */ f642(); goto l18302; l18301: /* x710 */ /* x709 */ l18302: /* x713 */ /* x712 */ a13802 = TRUE_TYPE; /* x693 */ /* x692 */ /* x691 */ goto h23; goto l17826; l17825: /* x2926 */ /* x722 */ /* x721 */ t93232 = "-do-not-index-constant-headed-vector-types-by-element-type"; /* x720 */ /* x719 */ t93235 = a13718; /* x271481 */ if (!((t93235.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93231 = t93235.value.structure_type24753->s0; /* x717 */ t93233 = t93231; t93234.tag = STRING_TYPE; t93234.value.string_type = t93232; if (f27434(t93233, t93234)==FALSE_TYPE) goto l17828; /* x748 */ /* x747 */ /* x746 */ /* x729 */ /* x728 */ /* x727 */ t93665 = a13718; /* x271480 */ if (!((t93665.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 127]"); structure_ref_error();} a13718 = t93665.value.structure_type24753->s1; /* x743 */ /* x736 */ /* x735 stalin.sc:32657:1128598 */ if (!(a13802==FALSE_TYPE)) goto l18296; /* x732 */ if (a13801==FALSE_TYPE) goto l18297; l18296: /* x740 */ /* x739 */ /* x738 */ /* x737 */ f642(); goto l18298; l18297: /* x742 */ /* x741 */ l18298: /* x745 */ /* x744 */ a13801 = TRUE_TYPE; /* x725 */ /* x724 */ /* x723 */ goto h23; goto l17829; l17828: /* x2925 */ /* x754 */ /* x753 */ t93237 = "-index-constant-headed-vector-types-by-expression"; /* x752 */ /* x751 */ t93240 = a13718; /* x271479 */ if (!((t93240.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93236 = t93240.value.structure_type24753->s0; /* x749 */ t93238 = t93236; t93239.tag = STRING_TYPE; t93239.value.string_type = t93237; if (f27434(t93238, t93239)==FALSE_TYPE) goto l17831; /* x780 */ /* x779 */ /* x778 */ /* x761 */ /* x760 */ /* x759 */ t93664 = a13718; /* x271478 */ if (!((t93664.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 132]"); structure_ref_error();} a13718 = t93664.value.structure_type24753->s1; /* x775 */ /* x768 */ /* x767 stalin.sc:32662:1128851 */ if (!(a13800==FALSE_TYPE)) goto l18292; /* x764 */ if (a13799==FALSE_TYPE) goto l18293; l18292: /* x772 */ /* x771 */ /* x770 */ /* x769 */ f642(); goto l18294; l18293: /* x774 */ /* x773 */ l18294: /* x777 */ /* x776 */ a13800 = TRUE_TYPE; /* x757 */ /* x756 */ /* x755 */ goto h23; goto l17832; l17831: /* x2924 */ /* x786 */ /* x785 */ t93242 = "-do-not-index-constant-headed-vector-types-by-expression"; /* x784 */ /* x783 */ t93245 = a13718; /* x271477 */ if (!((t93245.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93241 = t93245.value.structure_type24753->s0; /* x781 */ t93243 = t93241; t93244.tag = STRING_TYPE; t93244.value.string_type = t93242; if (f27434(t93243, t93244)==FALSE_TYPE) goto l17834; /* x812 */ /* x811 */ /* x810 */ /* x793 */ /* x792 */ /* x791 */ t93663 = a13718; /* x271476 */ if (!((t93663.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 137]"); structure_ref_error();} a13718 = t93663.value.structure_type24753->s1; /* x807 */ /* x800 */ /* x799 stalin.sc:32662:1128851 */ if (!(a13800==FALSE_TYPE)) goto l18288; /* x796 */ if (a13799==FALSE_TYPE) goto l18289; l18288: /* x804 */ /* x803 */ /* x802 */ /* x801 */ f642(); goto l18290; l18289: /* x806 */ /* x805 */ l18290: /* x809 */ /* x808 */ a13799 = TRUE_TYPE; /* x789 */ /* x788 */ /* x787 */ goto h23; goto l17835; l17834: /* x2923 */ /* x818 */ /* x817 */ t93247 = "-index-allocated-headed-vector-types-by-element-type"; /* x816 */ /* x815 */ t93250 = a13718; /* x271475 */ if (!((t93250.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93246 = t93250.value.structure_type24753->s0; /* x813 */ t93248 = t93246; t93249.tag = STRING_TYPE; t93249.value.string_type = t93247; if (f27434(t93248, t93249)==FALSE_TYPE) goto l17837; /* x844 */ /* x843 */ /* x842 */ /* x825 */ /* x824 */ /* x823 */ t93662 = a13718; /* x271474 */ if (!((t93662.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 142]"); structure_ref_error();} a13718 = t93662.value.structure_type24753->s1; /* x839 */ /* x832 */ /* x831 stalin.sc:32667:1129101 */ if (!(a13798==FALSE_TYPE)) goto l18284; /* x828 */ if (a13797==FALSE_TYPE) goto l18285; l18284: /* x836 */ /* x835 */ /* x834 */ /* x833 */ f642(); goto l18286; l18285: /* x838 */ /* x837 */ l18286: /* x841 */ /* x840 */ a13798 = TRUE_TYPE; /* x821 */ /* x820 */ /* x819 */ goto h23; goto l17838; l17837: /* x2922 */ /* x850 */ /* x849 */ t93252 = "-do-not-index-allocated-headed-vector-types-by-element-type"; /* x848 */ /* x847 */ t93255 = a13718; /* x271473 */ if (!((t93255.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93251 = t93255.value.structure_type24753->s0; /* x845 */ t93253 = t93251; t93254.tag = STRING_TYPE; t93254.value.string_type = t93252; if (f27434(t93253, t93254)==FALSE_TYPE) goto l17840; /* x876 */ /* x875 */ /* x874 */ /* x857 */ /* x856 */ /* x855 */ t93661 = a13718; /* x271472 */ if (!((t93661.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 147]"); structure_ref_error();} a13718 = t93661.value.structure_type24753->s1; /* x871 */ /* x864 */ /* x863 stalin.sc:32667:1129101 */ if (!(a13798==FALSE_TYPE)) goto l18280; /* x860 */ if (a13797==FALSE_TYPE) goto l18281; l18280: /* x868 */ /* x867 */ /* x866 */ /* x865 */ f642(); goto l18282; l18281: /* x870 */ /* x869 */ l18282: /* x873 */ /* x872 */ a13797 = TRUE_TYPE; /* x853 */ /* x852 */ /* x851 */ goto h23; goto l17841; l17840: /* x2921 */ /* x882 */ /* x881 */ t93257 = "-index-allocated-headed-vector-types-by-expression"; /* x880 */ /* x879 */ t93260 = a13718; /* x271471 */ if (!((t93260.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93256 = t93260.value.structure_type24753->s0; /* x877 */ t93258 = t93256; t93259.tag = STRING_TYPE; t93259.value.string_type = t93257; if (f27434(t93258, t93259)==FALSE_TYPE) goto l17843; /* x908 */ /* x907 */ /* x906 */ /* x889 */ /* x888 */ /* x887 */ t93660 = a13718; /* x271470 */ if (!((t93660.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 152]"); structure_ref_error();} a13718 = t93660.value.structure_type24753->s1; /* x903 */ /* x896 */ /* x895 stalin.sc:32672:1129358 */ if (!(a13796==FALSE_TYPE)) goto l18276; /* x892 */ if (a13795==FALSE_TYPE) goto l18277; l18276: /* x900 */ /* x899 */ /* x898 */ /* x897 */ f642(); goto l18278; l18277: /* x902 */ /* x901 */ l18278: /* x905 */ /* x904 */ a13796 = TRUE_TYPE; /* x885 */ /* x884 */ /* x883 */ goto h23; goto l17844; l17843: /* x2920 */ /* x914 */ /* x913 */ t93262 = "-do-not-index-allocated-headed-vector-types-by-expression"; /* x912 */ /* x911 */ t93265 = a13718; /* x271469 */ if (!((t93265.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93261 = t93265.value.structure_type24753->s0; /* x909 */ t93263 = t93261; t93264.tag = STRING_TYPE; t93264.value.string_type = t93262; if (f27434(t93263, t93264)==FALSE_TYPE) goto l17846; /* x940 */ /* x939 */ /* x938 */ /* x921 */ /* x920 */ /* x919 */ t93659 = a13718; /* x271468 */ if (!((t93659.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 157]"); structure_ref_error();} a13718 = t93659.value.structure_type24753->s1; /* x935 */ /* x928 */ /* x927 stalin.sc:32672:1129358 */ if (!(a13796==FALSE_TYPE)) goto l18272; /* x924 */ if (a13795==FALSE_TYPE) goto l18273; l18272: /* x932 */ /* x931 */ /* x930 */ /* x929 */ f642(); goto l18274; l18273: /* x934 */ /* x933 */ l18274: /* x937 */ /* x936 */ a13795 = TRUE_TYPE; /* x917 */ /* x916 */ /* x915 */ goto h23; goto l17847; l17846: /* x2919 */ /* x946 */ /* x945 */ t93267 = "-index-constant-nonheaded-vector-types-by-element-type"; /* x944 */ /* x943 */ t93270 = a13718; /* x271467 */ if (!((t93270.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93266 = t93270.value.structure_type24753->s0; /* x941 */ t93268 = t93266; t93269.tag = STRING_TYPE; t93269.value.string_type = t93267; if (f27434(t93268, t93269)==FALSE_TYPE) goto l17849; /* x972 */ /* x971 */ /* x970 */ /* x953 */ /* x952 */ /* x951 */ t93658 = a13718; /* x271466 */ if (!((t93658.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 162]"); structure_ref_error();} a13718 = t93658.value.structure_type24753->s1; /* x967 */ /* x960 */ /* x959 stalin.sc:32677:1129613 */ if (!(a13794==FALSE_TYPE)) goto l18268; /* x956 */ if (a13793==FALSE_TYPE) goto l18269; l18268: /* x964 */ /* x963 */ /* x962 */ /* x961 */ f642(); goto l18270; l18269: /* x966 */ /* x965 */ l18270: /* x969 */ /* x968 */ a13794 = TRUE_TYPE; /* x949 */ /* x948 */ /* x947 */ goto h23; goto l17850; l17849: /* x2918 */ /* x978 */ /* x977 */ t93272 = "-do-not-index-constant-nonheaded-vector-types-by-element-type"; /* x976 */ /* x975 */ t93275 = a13718; /* x271465 */ if (!((t93275.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93271 = t93275.value.structure_type24753->s0; /* x973 */ t93273 = t93271; t93274.tag = STRING_TYPE; t93274.value.string_type = t93272; if (f27434(t93273, t93274)==FALSE_TYPE) goto l17852; /* x1004 */ /* x1003 */ /* x1002 */ /* x985 */ /* x984 */ /* x983 */ t93657 = a13718; /* x271464 */ if (!((t93657.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 167]"); structure_ref_error();} a13718 = t93657.value.structure_type24753->s1; /* x999 */ /* x992 */ /* x991 stalin.sc:32677:1129613 */ if (!(a13794==FALSE_TYPE)) goto l18264; /* x988 */ if (a13793==FALSE_TYPE) goto l18265; l18264: /* x996 */ /* x995 */ /* x994 */ /* x993 */ f642(); goto l18266; l18265: /* x998 */ /* x997 */ l18266: /* x1001 */ /* x1000 */ a13793 = TRUE_TYPE; /* x981 */ /* x980 */ /* x979 */ goto h23; goto l17853; l17852: /* x2917 */ /* x1010 */ /* x1009 */ t93277 = "-index-constant-nonheaded-vector-types-by-expression"; /* x1008 */ /* x1007 */ t93280 = a13718; /* x271463 */ if (!((t93280.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93276 = t93280.value.structure_type24753->s0; /* x1005 */ t93278 = t93276; t93279.tag = STRING_TYPE; t93279.value.string_type = t93277; if (f27434(t93278, t93279)==FALSE_TYPE) goto l17855; /* x1036 */ /* x1035 */ /* x1034 */ /* x1017 */ /* x1016 */ /* x1015 */ t93656 = a13718; /* x271462 */ if (!((t93656.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 172]"); structure_ref_error();} a13718 = t93656.value.structure_type24753->s1; /* x1031 */ /* x1024 */ /* x1023 stalin.sc:32682:1129878 */ if (!(a13792==FALSE_TYPE)) goto l18260; /* x1020 */ if (a13791==FALSE_TYPE) goto l18261; l18260: /* x1028 */ /* x1027 */ /* x1026 */ /* x1025 */ f642(); goto l18262; l18261: /* x1030 */ /* x1029 */ l18262: /* x1033 */ /* x1032 */ a13792 = TRUE_TYPE; /* x1013 */ /* x1012 */ /* x1011 */ goto h23; goto l17856; l17855: /* x2916 */ /* x1042 */ /* x1041 */ t93282 = "-do-not-index-constant-nonheaded-vector-types-by-expression"; /* x1040 */ /* x1039 */ t93285 = a13718; /* x271461 */ if (!((t93285.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93281 = t93285.value.structure_type24753->s0; /* x1037 */ t93283 = t93281; t93284.tag = STRING_TYPE; t93284.value.string_type = t93282; if (f27434(t93283, t93284)==FALSE_TYPE) goto l17858; /* x1068 */ /* x1067 */ /* x1066 */ /* x1049 */ /* x1048 */ /* x1047 */ t93655 = a13718; /* x271460 */ if (!((t93655.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 177]"); structure_ref_error();} a13718 = t93655.value.structure_type24753->s1; /* x1063 */ /* x1056 */ /* x1055 stalin.sc:32682:1129878 */ if (!(a13792==FALSE_TYPE)) goto l18256; /* x1052 */ if (a13791==FALSE_TYPE) goto l18257; l18256: /* x1060 */ /* x1059 */ /* x1058 */ /* x1057 */ f642(); goto l18258; l18257: /* x1062 */ /* x1061 */ l18258: /* x1065 */ /* x1064 */ a13791 = TRUE_TYPE; /* x1045 */ /* x1044 */ /* x1043 */ goto h23; goto l17859; l17858: /* x2915 */ /* x1074 */ /* x1073 */ t93287 = "-index-allocated-nonheaded-vector-types-by-element-type"; /* x1072 */ /* x1071 */ t93290 = a13718; /* x271459 */ if (!((t93290.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93286 = t93290.value.structure_type24753->s0; /* x1069 */ t93288 = t93286; t93289.tag = STRING_TYPE; t93289.value.string_type = t93287; if (f27434(t93288, t93289)==FALSE_TYPE) goto l17861; /* x1100 */ /* x1099 */ /* x1098 */ /* x1081 */ /* x1080 */ /* x1079 */ t93654 = a13718; /* x271458 */ if (!((t93654.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 182]"); structure_ref_error();} a13718 = t93654.value.structure_type24753->s1; /* x1095 */ /* x1088 */ /* x1087 stalin.sc:32687:1130140 */ if (!(a13790==FALSE_TYPE)) goto l18252; /* x1084 */ if (a13789==FALSE_TYPE) goto l18253; l18252: /* x1092 */ /* x1091 */ /* x1090 */ /* x1089 */ f642(); goto l18254; l18253: /* x1094 */ /* x1093 */ l18254: /* x1097 */ /* x1096 */ a13790 = TRUE_TYPE; /* x1077 */ /* x1076 */ /* x1075 */ goto h23; goto l17862; l17861: /* x2914 */ /* x1106 */ /* x1105 */ t93292 = "-do-not-index-allocated-nonheaded-vector-types-by-element-type"; /* x1104 */ /* x1103 */ t93295 = a13718; /* x271457 */ if (!((t93295.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93291 = t93295.value.structure_type24753->s0; /* x1101 */ t93293 = t93291; t93294.tag = STRING_TYPE; t93294.value.string_type = t93292; if (f27434(t93293, t93294)==FALSE_TYPE) goto l17864; /* x1132 */ /* x1131 */ /* x1130 */ /* x1113 */ /* x1112 */ /* x1111 */ t93653 = a13718; /* x271456 */ if (!((t93653.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 187]"); structure_ref_error();} a13718 = t93653.value.structure_type24753->s1; /* x1127 */ /* x1120 */ /* x1119 stalin.sc:32687:1130140 */ if (!(a13790==FALSE_TYPE)) goto l18248; /* x1116 */ if (a13789==FALSE_TYPE) goto l18249; l18248: /* x1124 */ /* x1123 */ /* x1122 */ /* x1121 */ f642(); goto l18250; l18249: /* x1126 */ /* x1125 */ l18250: /* x1129 */ /* x1128 */ a13789 = TRUE_TYPE; /* x1109 */ /* x1108 */ /* x1107 */ goto h23; goto l17865; l17864: /* x2913 */ /* x1138 */ /* x1137 */ t93297 = "-index-allocated-nonheaded-vector-types-by-expression"; /* x1136 */ /* x1135 */ t93300 = a13718; /* x271455 */ if (!((t93300.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93296 = t93300.value.structure_type24753->s0; /* x1133 */ t93298 = t93296; t93299.tag = STRING_TYPE; t93299.value.string_type = t93297; if (f27434(t93298, t93299)==FALSE_TYPE) goto l17867; /* x1164 */ /* x1163 */ /* x1162 */ /* x1145 */ /* x1144 */ /* x1143 */ t93652 = a13718; /* x271454 */ if (!((t93652.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 192]"); structure_ref_error();} a13718 = t93652.value.structure_type24753->s1; /* x1159 */ /* x1152 */ /* x1151 stalin.sc:32692:1130409 */ if (!(a13788==FALSE_TYPE)) goto l18244; /* x1148 */ if (a13787==FALSE_TYPE) goto l18245; l18244: /* x1156 */ /* x1155 */ /* x1154 */ /* x1153 */ f642(); goto l18246; l18245: /* x1158 */ /* x1157 */ l18246: /* x1161 */ /* x1160 */ a13788 = TRUE_TYPE; /* x1141 */ /* x1140 */ /* x1139 */ goto h23; goto l17868; l17867: /* x2912 */ /* x1170 */ /* x1169 */ t93302 = "-do-not-index-allocated-nonheaded-vector-types-by-expression"; /* x1168 */ /* x1167 */ t93305 = a13718; /* x271453 */ if (!((t93305.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93301 = t93305.value.structure_type24753->s0; /* x1165 */ t93303 = t93301; t93304.tag = STRING_TYPE; t93304.value.string_type = t93302; if (f27434(t93303, t93304)==FALSE_TYPE) goto l17870; /* x1196 */ /* x1195 */ /* x1194 */ /* x1177 */ /* x1176 */ /* x1175 */ t93651 = a13718; /* x271452 */ if (!((t93651.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 197]"); structure_ref_error();} a13718 = t93651.value.structure_type24753->s1; /* x1191 */ /* x1184 */ /* x1183 stalin.sc:32692:1130409 */ if (!(a13788==FALSE_TYPE)) goto l18240; /* x1180 */ if (a13787==FALSE_TYPE) goto l18241; l18240: /* x1188 */ /* x1187 */ /* x1186 */ /* x1185 */ f642(); goto l18242; l18241: /* x1190 */ /* x1189 */ l18242: /* x1193 */ /* x1192 */ a13787 = TRUE_TYPE; /* x1173 */ /* x1172 */ /* x1171 */ goto h23; goto l17871; l17870: /* x2911 */ /* x1202 */ /* x1201 */ t93307 = "-no-clone-size-limit"; /* x1200 */ /* x1199 */ t93310 = a13718; /* x271451 */ if (!((t93310.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93306 = t93310.value.structure_type24753->s0; /* x1197 */ t93308 = t93306; t93309.tag = STRING_TYPE; t93309.value.string_type = t93307; if (f27434(t93308, t93309)==FALSE_TYPE) goto l17873; /* x1228 */ /* x1227 */ /* x1226 */ /* x1209 */ /* x1208 */ /* x1207 */ t93650 = a13718; /* x271450 */ if (!((t93650.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 202]"); structure_ref_error();} a13718 = t93650.value.structure_type24753->s1; /* x1223 */ /* x1216 */ /* x1215 stalin.sc:32696:1130637 */ if (!(a13786==FALSE_TYPE)) goto l18236; /* x1212 */ if (a13785==FALSE_TYPE) goto l18237; l18236: /* x1220 */ /* x1219 */ /* x1218 */ /* x1217 */ f642(); goto l18238; l18237: /* x1222 */ /* x1221 */ l18238: /* x1225 */ /* x1224 */ a13786 = TRUE_TYPE; /* x1205 */ /* x1204 */ /* x1203 */ goto h23; goto l17874; l17873: /* x2910 */ /* x1234 */ /* x1233 */ t93312 = "-clone-size-limit"; /* x1232 */ /* x1231 */ t93315 = a13718; /* x271449 */ if (!((t93315.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93311 = t93315.value.structure_type24753->s0; /* x1229 */ t93313 = t93311; t93314.tag = STRING_TYPE; t93314.value.string_type = t93312; if (f27434(t93313, t93314)==FALSE_TYPE) goto l17876; /* x1281 */ /* x1280 */ /* x1279 */ /* x1241 */ /* x1240 */ /* x1239 */ t93641 = a13718; /* x271448 */ if (!((t93641.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 207]"); structure_ref_error();} a13718 = t93641.value.structure_type24753->s1; /* x1255 */ /* x1248 */ /* x1247 stalin.sc:32696:1130637 */ if (!(a13786==FALSE_TYPE)) goto l18223; /* x1244 */ if (a13785==FALSE_TYPE) goto l18224; l18223: /* x1252 */ /* x1251 */ /* x1250 */ /* x1249 */ f642(); goto l18225; l18224: /* x1254 */ /* x1253 */ l18225: /* x1257 */ /* x1256 */ a13785 = TRUE_TYPE; /* x1267 */ /* x1260 */ /* x1259 */ t93642 = a13718; /* x271447 */ if (!((t93642.tag)==NULL_TYPE)) goto l18228; /* x1264 */ /* x1263 */ /* x1262 */ /* x1261 */ f642(); goto l18229; l18228: /* x1266 */ /* x1265 */ l18229: /* x1274 */ /* x1273 */ /* x1271 */ /* x1270 */ t93648 = a13718; /* x271446 */ if (!((t93648.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 207]"); structure_ref_error();} t93643 = t93648.value.structure_type24753->s0; /* x1272 */ /* x1268 stalin.sc:32699:1130744 */ a14281 = t93643; /* x3907 */ /* x3906 */ /* x3905 */ t93647 = a14281; /* x3904 */ a34656 = t93647; t93644 = f28477(); /* x3903 */ a14283 = t93644; /* x3902 */ /* x3892 */ /* x3891 */ t93645 = a14283; /* x271316 */ switch (t93645.tag) {case FALSE_TYPE: goto l18231; break; case FIXNUM_TYPE: break; default: if (!((t93645.value.flonum_type)==rint(t93645.value.flonum_type))) goto l18231;} /* x3899 */ /* x3895 */ /* x3894 */ t93646 = *((struct w30215 *)(&a14283)); /* x271315 */ if (!((t93646.tag)==FIXNUM_TYPE)) goto l18234; /* x3896 */ a13784 = a14283.value.fixnum_type; goto l18235; l18234: /* x3898 */ /* x3897 */ f642(); l18235: goto l18232; l18231: /* x3901 */ /* x3900 */ f642(); l18232: /* x1278 */ /* x1277 */ /* x1276 */ t93649 = a13718; /* x271445 */ if (!((t93649.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 207]"); structure_ref_error();} a13718 = t93649.value.structure_type24753->s1; /* x1237 */ /* x1236 */ /* x1235 */ goto h23; goto l17877; l17876: /* x2909 */ /* x1287 */ /* x1286 */ t93317 = "-split-even-if-no-widening"; /* x1285 */ /* x1284 */ t93320 = a13718; /* x271444 */ if (!((t93320.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93316 = t93320.value.structure_type24753->s0; /* x1282 */ t93318 = t93316; t93319.tag = STRING_TYPE; t93319.value.string_type = t93317; if (f27434(t93318, t93319)==FALSE_TYPE) goto l17879; /* x1307 */ /* x1306 */ /* x1305 */ /* x1294 */ /* x1293 */ /* x1292 */ t93640 = a13718; /* x271443 */ if (!((t93640.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 214]"); structure_ref_error();} a13718 = t93640.value.structure_type24753->s1; /* x1302 */ /* x1295 */ if (a13783==FALSE_TYPE) goto l18221; /* x1299 */ /* x1298 */ /* x1297 */ /* x1296 */ f642(); goto l18222; l18221: /* x1301 */ /* x1300 */ l18222: /* x1304 */ /* x1303 */ a13783 = TRUE_TYPE; /* x1290 */ /* x1289 */ /* x1288 */ goto h23; goto l17880; l17879: /* x2908 */ /* x1313 */ /* x1312 */ t93322 = "-fully-convert-to-CPS"; /* x1311 */ /* x1310 */ t93325 = a13718; /* x271442 */ if (!((t93325.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93321 = t93325.value.structure_type24753->s0; /* x1308 */ t93323 = t93321; t93324.tag = STRING_TYPE; t93324.value.string_type = t93322; if (f27434(t93323, t93324)==FALSE_TYPE) goto l17882; /* x1339 */ /* x1338 */ /* x1337 */ /* x1320 */ /* x1319 */ /* x1318 */ t93639 = a13718; /* x271441 */ if (!((t93639.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 218]"); structure_ref_error();} a13718 = t93639.value.structure_type24753->s1; /* x1334 */ /* x1327 */ /* x1326 stalin.sc:32701:1130889 */ if (!(a13782==FALSE_TYPE)) goto l18216; /* x1323 */ if (a13781==FALSE_TYPE) goto l18217; l18216: /* x1331 */ /* x1330 */ /* x1329 */ /* x1328 */ f642(); goto l18218; l18217: /* x1333 */ /* x1332 */ l18218: /* x1336 */ /* x1335 */ a13782 = TRUE_TYPE; /* x1316 */ /* x1315 */ /* x1314 */ goto h23; goto l17883; l17882: /* x2907 */ /* x1345 */ /* x1344 */ t93327 = "-no-escaping-continuations"; /* x1343 */ /* x1342 */ t93330 = a13718; /* x271440 */ if (!((t93330.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93326 = t93330.value.structure_type24753->s0; /* x1340 */ t93328 = t93326; t93329.tag = STRING_TYPE; t93329.value.string_type = t93327; if (f27434(t93328, t93329)==FALSE_TYPE) goto l17885; /* x1371 */ /* x1370 */ /* x1369 */ /* x1352 */ /* x1351 */ /* x1350 */ t93638 = a13718; /* x271439 */ if (!((t93638.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 223]"); structure_ref_error();} a13718 = t93638.value.structure_type24753->s1; /* x1366 */ /* x1359 */ /* x1358 stalin.sc:32701:1130889 */ if (!(a13782==FALSE_TYPE)) goto l18212; /* x1355 */ if (a13781==FALSE_TYPE) goto l18213; l18212: /* x1363 */ /* x1362 */ /* x1361 */ /* x1360 */ f642(); goto l18214; l18213: /* x1365 */ /* x1364 */ l18214: /* x1368 */ /* x1367 */ a13781 = TRUE_TYPE; /* x1348 */ /* x1347 */ /* x1346 */ goto h23; goto l17886; l17885: /* x2906 */ /* x1377 */ /* x1376 */ t93332 = "-du"; /* x1375 */ /* x1374 */ t93335 = a13718; /* x271438 */ if (!((t93335.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93331 = t93335.value.structure_type24753->s0; /* x1372 */ t93333 = t93331; t93334.tag = STRING_TYPE; t93334.value.string_type = t93332; if (f27434(t93333, t93334)==FALSE_TYPE) goto l17888; /* x1397 */ /* x1396 */ /* x1395 */ /* x1384 */ /* x1383 */ /* x1382 */ t93637 = a13718; /* x271437 */ if (!((t93637.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 228]"); structure_ref_error();} a13718 = t93637.value.structure_type24753->s1; /* x1392 */ /* x1385 */ if (a13780==FALSE_TYPE) goto l18210; /* x1389 */ /* x1388 */ /* x1387 */ /* x1386 */ f642(); goto l18211; l18210: /* x1391 */ /* x1390 */ l18211: /* x1394 */ /* x1393 */ a13780 = TRUE_TYPE; /* x1380 */ /* x1379 */ /* x1378 */ goto h23; goto l17889; l17888: /* x2905 */ /* x1403 */ /* x1402 */ t93337 = "-Ob"; /* x1401 */ /* x1400 */ t93340 = a13718; /* x271436 */ if (!((t93340.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93336 = t93340.value.structure_type24753->s0; /* x1398 */ t93338 = t93336; t93339.tag = STRING_TYPE; t93339.value.string_type = t93337; if (f27434(t93338, t93339)==FALSE_TYPE) goto l17891; /* x1423 */ /* x1422 */ /* x1421 */ /* x1410 */ /* x1409 */ /* x1408 */ t93636 = a13718; /* x271435 */ if (!((t93636.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 232]"); structure_ref_error();} a13718 = t93636.value.structure_type24753->s1; /* x1418 */ /* x1411 */ if (a13779==FALSE_TYPE) goto l18207; /* x1415 */ /* x1414 */ /* x1413 */ /* x1412 */ f642(); goto l18208; l18207: /* x1417 */ /* x1416 */ l18208: /* x1420 */ /* x1419 */ a13779 = TRUE_TYPE; /* x1406 */ /* x1405 */ /* x1404 */ goto h23; goto l17892; l17891: /* x2904 */ /* x1429 */ /* x1428 */ t93342 = "-Om"; /* x1427 */ /* x1426 */ t93345 = a13718; /* x271434 */ if (!((t93345.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93341 = t93345.value.structure_type24753->s0; /* x1424 */ t93343 = t93341; t93344.tag = STRING_TYPE; t93344.value.string_type = t93342; if (f27434(t93343, t93344)==FALSE_TYPE) goto l17894; /* x1449 */ /* x1448 */ /* x1447 */ /* x1436 */ /* x1435 */ /* x1434 */ t93635 = a13718; /* x271433 */ if (!((t93635.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 236]"); structure_ref_error();} a13718 = t93635.value.structure_type24753->s1; /* x1444 */ /* x1437 */ if (a13778==FALSE_TYPE) goto l18204; /* x1441 */ /* x1440 */ /* x1439 */ /* x1438 */ f642(); goto l18205; l18204: /* x1443 */ /* x1442 */ l18205: /* x1446 */ /* x1445 */ a13778 = TRUE_TYPE; /* x1432 */ /* x1431 */ /* x1430 */ goto h23; goto l17895; l17894: /* x2903 */ /* x1455 */ /* x1454 */ t93347 = "-On"; /* x1453 */ /* x1452 */ t93350 = a13718; /* x271432 */ if (!((t93350.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93346 = t93350.value.structure_type24753->s0; /* x1450 */ t93348 = t93346; t93349.tag = STRING_TYPE; t93349.value.string_type = t93347; if (f27434(t93348, t93349)==FALSE_TYPE) goto l17897; /* x1475 */ /* x1474 */ /* x1473 */ /* x1462 */ /* x1461 */ /* x1460 */ t93634 = a13718; /* x271431 */ if (!((t93634.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 240]"); structure_ref_error();} a13718 = t93634.value.structure_type24753->s1; /* x1470 */ /* x1463 */ if (a13777==FALSE_TYPE) goto l18201; /* x1467 */ /* x1466 */ /* x1465 */ /* x1464 */ f642(); goto l18202; l18201: /* x1469 */ /* x1468 */ l18202: /* x1472 */ /* x1471 */ a13777 = TRUE_TYPE; /* x1458 */ /* x1457 */ /* x1456 */ goto h23; goto l17898; l17897: /* x2902 */ /* x1481 */ /* x1480 */ t93352 = "-Or"; /* x1479 */ /* x1478 */ t93355 = a13718; /* x271430 */ if (!((t93355.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93351 = t93355.value.structure_type24753->s0; /* x1476 */ t93353 = t93351; t93354.tag = STRING_TYPE; t93354.value.string_type = t93352; if (f27434(t93353, t93354)==FALSE_TYPE) goto l17900; /* x1501 */ /* x1500 */ /* x1499 */ /* x1488 */ /* x1487 */ /* x1486 */ t93633 = a13718; /* x271429 */ if (!((t93633.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 244]"); structure_ref_error();} a13718 = t93633.value.structure_type24753->s1; /* x1496 */ /* x1489 */ if (a13776==FALSE_TYPE) goto l18198; /* x1493 */ /* x1492 */ /* x1491 */ /* x1490 */ f642(); goto l18199; l18198: /* x1495 */ /* x1494 */ l18199: /* x1498 */ /* x1497 */ a13776 = TRUE_TYPE; /* x1484 */ /* x1483 */ /* x1482 */ goto h23; goto l17901; l17900: /* x2901 */ /* x1507 */ /* x1506 */ t93357 = "-Ot"; /* x1505 */ /* x1504 */ t93360 = a13718; /* x271428 */ if (!((t93360.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93356 = t93360.value.structure_type24753->s0; /* x1502 */ t93358 = t93356; t93359.tag = STRING_TYPE; t93359.value.string_type = t93357; if (f27434(t93358, t93359)==FALSE_TYPE) goto l17903; /* x1527 */ /* x1526 */ /* x1525 */ /* x1514 */ /* x1513 */ /* x1512 */ t93632 = a13718; /* x271427 */ if (!((t93632.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 248]"); structure_ref_error();} a13718 = t93632.value.structure_type24753->s1; /* x1522 */ /* x1515 */ if (a13775==FALSE_TYPE) goto l18195; /* x1519 */ /* x1518 */ /* x1517 */ /* x1516 */ f642(); goto l18196; l18195: /* x1521 */ /* x1520 */ l18196: /* x1524 */ /* x1523 */ a13775 = TRUE_TYPE; /* x1510 */ /* x1509 */ /* x1508 */ goto h23; goto l17904; l17903: /* x2900 */ /* x1533 */ /* x1532 */ t93362 = "-d0"; /* x1531 */ /* x1530 */ t93365 = a13718; /* x271426 */ if (!((t93365.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93361 = t93365.value.structure_type24753->s0; /* x1528 */ t93363 = t93361; t93364.tag = STRING_TYPE; t93364.value.string_type = t93362; if (f27434(t93363, t93364)==FALSE_TYPE) goto l17906; /* x1553 */ /* x1552 */ /* x1551 */ /* x1540 */ /* x1539 */ /* x1538 */ t93631 = a13718; /* x271425 */ if (!((t93631.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 252]"); structure_ref_error();} a13718 = t93631.value.structure_type24753->s1; /* x1548 */ /* x1541 */ if (a13774==FALSE_TYPE) goto l18192; /* x1545 */ /* x1544 */ /* x1543 */ /* x1542 */ f642(); goto l18193; l18192: /* x1547 */ /* x1546 */ l18193: /* x1550 */ /* x1549 */ a13774 = TRUE_TYPE; /* x1536 */ /* x1535 */ /* x1534 */ goto h23; goto l17907; l17906: /* x2899 */ /* x1559 */ /* x1558 */ t93367 = "-d1"; /* x1557 */ /* x1556 */ t93370 = a13718; /* x271424 */ if (!((t93370.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93366 = t93370.value.structure_type24753->s0; /* x1554 */ t93368 = t93366; t93369.tag = STRING_TYPE; t93369.value.string_type = t93367; if (f27434(t93368, t93369)==FALSE_TYPE) goto l17909; /* x1579 */ /* x1578 */ /* x1577 */ /* x1566 */ /* x1565 */ /* x1564 */ t93630 = a13718; /* x271423 */ if (!((t93630.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 256]"); structure_ref_error();} a13718 = t93630.value.structure_type24753->s1; /* x1574 */ /* x1567 */ if (a13773==FALSE_TYPE) goto l18189; /* x1571 */ /* x1570 */ /* x1569 */ /* x1568 */ f642(); goto l18190; l18189: /* x1573 */ /* x1572 */ l18190: /* x1576 */ /* x1575 */ a13773 = TRUE_TYPE; /* x1562 */ /* x1561 */ /* x1560 */ goto h23; goto l17910; l17909: /* x2898 */ /* x1585 */ /* x1584 */ t93372 = "-d2"; /* x1583 */ /* x1582 */ t93375 = a13718; /* x271422 */ if (!((t93375.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93371 = t93375.value.structure_type24753->s0; /* x1580 */ t93373 = t93371; t93374.tag = STRING_TYPE; t93374.value.string_type = t93372; if (f27434(t93373, t93374)==FALSE_TYPE) goto l17912; /* x1605 */ /* x1604 */ /* x1603 */ /* x1592 */ /* x1591 */ /* x1590 */ t93629 = a13718; /* x271421 */ if (!((t93629.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 260]"); structure_ref_error();} a13718 = t93629.value.structure_type24753->s1; /* x1600 */ /* x1593 */ if (a13772==FALSE_TYPE) goto l18186; /* x1597 */ /* x1596 */ /* x1595 */ /* x1594 */ f642(); goto l18187; l18186: /* x1599 */ /* x1598 */ l18187: /* x1602 */ /* x1601 */ a13772 = TRUE_TYPE; /* x1588 */ /* x1587 */ /* x1586 */ goto h23; goto l17913; l17912: /* x2897 */ /* x1611 */ /* x1610 */ t93377 = "-d3"; /* x1609 */ /* x1608 */ t93380 = a13718; /* x271420 */ if (!((t93380.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93376 = t93380.value.structure_type24753->s0; /* x1606 */ t93378 = t93376; t93379.tag = STRING_TYPE; t93379.value.string_type = t93377; if (f27434(t93378, t93379)==FALSE_TYPE) goto l17915; /* x1631 */ /* x1630 */ /* x1629 */ /* x1618 */ /* x1617 */ /* x1616 */ t93628 = a13718; /* x271419 */ if (!((t93628.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 264]"); structure_ref_error();} a13718 = t93628.value.structure_type24753->s1; /* x1626 */ /* x1619 */ if (a13771==FALSE_TYPE) goto l18183; /* x1623 */ /* x1622 */ /* x1621 */ /* x1620 */ f642(); goto l18184; l18183: /* x1625 */ /* x1624 */ l18184: /* x1628 */ /* x1627 */ a13771 = TRUE_TYPE; /* x1614 */ /* x1613 */ /* x1612 */ goto h23; goto l17916; l17915: /* x2896 */ /* x1637 */ /* x1636 */ t93382 = "-d4"; /* x1635 */ /* x1634 */ t93385 = a13718; /* x271418 */ if (!((t93385.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93381 = t93385.value.structure_type24753->s0; /* x1632 */ t93383 = t93381; t93384.tag = STRING_TYPE; t93384.value.string_type = t93382; if (f27434(t93383, t93384)==FALSE_TYPE) goto l17918; /* x1657 */ /* x1656 */ /* x1655 */ /* x1644 */ /* x1643 */ /* x1642 */ t93627 = a13718; /* x271417 */ if (!((t93627.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 268]"); structure_ref_error();} a13718 = t93627.value.structure_type24753->s1; /* x1652 */ /* x1645 */ if (a13770==FALSE_TYPE) goto l18180; /* x1649 */ /* x1648 */ /* x1647 */ /* x1646 */ f642(); goto l18181; l18180: /* x1651 */ /* x1650 */ l18181: /* x1654 */ /* x1653 */ a13770 = TRUE_TYPE; /* x1640 */ /* x1639 */ /* x1638 */ goto h23; goto l17919; l17918: /* x2895 */ /* x1663 */ /* x1662 */ t93387 = "-d5"; /* x1661 */ /* x1660 */ t93390 = a13718; /* x271416 */ if (!((t93390.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93386 = t93390.value.structure_type24753->s0; /* x1658 */ t93388 = t93386; t93389.tag = STRING_TYPE; t93389.value.string_type = t93387; if (f27434(t93388, t93389)==FALSE_TYPE) goto l17921; /* x1683 */ /* x1682 */ /* x1681 */ /* x1670 */ /* x1669 */ /* x1668 */ t93626 = a13718; /* x271415 */ if (!((t93626.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 272]"); structure_ref_error();} a13718 = t93626.value.structure_type24753->s1; /* x1678 */ /* x1671 */ if (a13769==FALSE_TYPE) goto l18177; /* x1675 */ /* x1674 */ /* x1673 */ /* x1672 */ f642(); goto l18178; l18177: /* x1677 */ /* x1676 */ l18178: /* x1680 */ /* x1679 */ a13769 = TRUE_TYPE; /* x1666 */ /* x1665 */ /* x1664 */ goto h23; goto l17922; l17921: /* x2894 */ /* x1689 */ /* x1688 */ t93392 = "-d6"; /* x1687 */ /* x1686 */ t93395 = a13718; /* x271414 */ if (!((t93395.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93391 = t93395.value.structure_type24753->s0; /* x1684 */ t93393 = t93391; t93394.tag = STRING_TYPE; t93394.value.string_type = t93392; if (f27434(t93393, t93394)==FALSE_TYPE) goto l17924; /* x1709 */ /* x1708 */ /* x1707 */ /* x1696 */ /* x1695 */ /* x1694 */ t93625 = a13718; /* x271413 */ if (!((t93625.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 276]"); structure_ref_error();} a13718 = t93625.value.structure_type24753->s1; /* x1704 */ /* x1697 */ if (a13768==FALSE_TYPE) goto l18174; /* x1701 */ /* x1700 */ /* x1699 */ /* x1698 */ f642(); goto l18175; l18174: /* x1703 */ /* x1702 */ l18175: /* x1706 */ /* x1705 */ a13768 = TRUE_TYPE; /* x1692 */ /* x1691 */ /* x1690 */ goto h23; goto l17925; l17924: /* x2893 */ /* x1715 */ /* x1714 */ t93397 = "-d7"; /* x1713 */ /* x1712 */ t93400 = a13718; /* x271412 */ if (!((t93400.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93396 = t93400.value.structure_type24753->s0; /* x1710 */ t93398 = t93396; t93399.tag = STRING_TYPE; t93399.value.string_type = t93397; if (f27434(t93398, t93399)==FALSE_TYPE) goto l17927; /* x1735 */ /* x1734 */ /* x1733 */ /* x1722 */ /* x1721 */ /* x1720 */ t93624 = a13718; /* x271411 */ if (!((t93624.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 280]"); structure_ref_error();} a13718 = t93624.value.structure_type24753->s1; /* x1730 */ /* x1723 */ if (a13767==FALSE_TYPE) goto l18171; /* x1727 */ /* x1726 */ /* x1725 */ /* x1724 */ f642(); goto l18172; l18171: /* x1729 */ /* x1728 */ l18172: /* x1732 */ /* x1731 */ a13767 = TRUE_TYPE; /* x1718 */ /* x1717 */ /* x1716 */ goto h23; goto l17928; l17927: /* x2892 */ /* x1741 */ /* x1740 */ t93402 = "-closure-conversion-statistics"; /* x1739 */ /* x1738 */ t93405 = a13718; /* x271410 */ if (!((t93405.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93401 = t93405.value.structure_type24753->s0; /* x1736 */ t93403 = t93401; t93404.tag = STRING_TYPE; t93404.value.string_type = t93402; if (f27434(t93403, t93404)==FALSE_TYPE) goto l17930; /* x1761 */ /* x1760 */ /* x1759 */ /* x1748 */ /* x1747 */ /* x1746 */ t93623 = a13718; /* x271409 */ if (!((t93623.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 284]"); structure_ref_error();} a13718 = t93623.value.structure_type24753->s1; /* x1756 */ /* x1749 */ if (a13766==FALSE_TYPE) goto l18168; /* x1753 */ /* x1752 */ /* x1751 */ /* x1750 */ f642(); goto l18169; l18168: /* x1755 */ /* x1754 */ l18169: /* x1758 */ /* x1757 */ a13766 = TRUE_TYPE; /* x1744 */ /* x1743 */ /* x1742 */ goto h23; goto l17931; l17930: /* x2891 */ /* x1767 */ /* x1766 */ t93407 = "-dc"; /* x1765 */ /* x1764 */ t93410 = a13718; /* x271408 */ if (!((t93410.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93406 = t93410.value.structure_type24753->s0; /* x1762 */ t93408 = t93406; t93409.tag = STRING_TYPE; t93409.value.string_type = t93407; if (f27434(t93408, t93409)==FALSE_TYPE) goto l17933; /* x1787 */ /* x1786 */ /* x1785 */ /* x1774 */ /* x1773 */ /* x1772 */ t93622 = a13718; /* x271407 */ if (!((t93622.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 288]"); structure_ref_error();} a13718 = t93622.value.structure_type24753->s1; /* x1782 */ /* x1775 */ if (a13765==FALSE_TYPE) goto l18165; /* x1779 */ /* x1778 */ /* x1777 */ /* x1776 */ f642(); goto l18166; l18165: /* x1781 */ /* x1780 */ l18166: /* x1784 */ /* x1783 */ a13765 = TRUE_TYPE; /* x1770 */ /* x1769 */ /* x1768 */ goto h23; goto l17934; l17933: /* x2890 */ /* x1793 */ /* x1792 */ t93412 = "-dC"; /* x1791 */ /* x1790 */ t93415 = a13718; /* x271406 */ if (!((t93415.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93411 = t93415.value.structure_type24753->s0; /* x1788 */ t93413 = t93411; t93414.tag = STRING_TYPE; t93414.value.string_type = t93412; if (f27434(t93413, t93414)==FALSE_TYPE) goto l17936; /* x1813 */ /* x1812 */ /* x1811 */ /* x1800 */ /* x1799 */ /* x1798 */ t93621 = a13718; /* x271405 */ if (!((t93621.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 292]"); structure_ref_error();} a13718 = t93621.value.structure_type24753->s1; /* x1808 */ /* x1801 */ if (a13764==FALSE_TYPE) goto l18162; /* x1805 */ /* x1804 */ /* x1803 */ /* x1802 */ f642(); goto l18163; l18162: /* x1807 */ /* x1806 */ l18163: /* x1810 */ /* x1809 */ a13764 = TRUE_TYPE; /* x1796 */ /* x1795 */ /* x1794 */ goto h23; goto l17937; l17936: /* x2889 */ /* x1819 */ /* x1818 */ t93417 = "-dH"; /* x1817 */ /* x1816 */ t93420 = a13718; /* x271404 */ if (!((t93420.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93416 = t93420.value.structure_type24753->s0; /* x1814 */ t93418 = t93416; t93419.tag = STRING_TYPE; t93419.value.string_type = t93417; if (f27434(t93418, t93419)==FALSE_TYPE) goto l17939; /* x1839 */ /* x1838 */ /* x1837 */ /* x1826 */ /* x1825 */ /* x1824 */ t93620 = a13718; /* x271403 */ if (!((t93620.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 296]"); structure_ref_error();} a13718 = t93620.value.structure_type24753->s1; /* x1834 */ /* x1827 */ if (a13763==FALSE_TYPE) goto l18159; /* x1831 */ /* x1830 */ /* x1829 */ /* x1828 */ f642(); goto l18160; l18159: /* x1833 */ /* x1832 */ l18160: /* x1836 */ /* x1835 */ a13763 = TRUE_TYPE; /* x1822 */ /* x1821 */ /* x1820 */ goto h23; goto l17940; l17939: /* x2888 */ /* x1845 */ /* x1844 */ t93422 = "-dg"; /* x1843 */ /* x1842 */ t93425 = a13718; /* x271402 */ if (!((t93425.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93421 = t93425.value.structure_type24753->s0; /* x1840 */ t93423 = t93421; t93424.tag = STRING_TYPE; t93424.value.string_type = t93422; if (f27434(t93423, t93424)==FALSE_TYPE) goto l17942; /* x1865 */ /* x1864 */ /* x1863 */ /* x1852 */ /* x1851 */ /* x1850 */ t93619 = a13718; /* x271401 */ if (!((t93619.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 300]"); structure_ref_error();} a13718 = t93619.value.structure_type24753->s1; /* x1860 */ /* x1853 */ if (a13762==FALSE_TYPE) goto l18156; /* x1857 */ /* x1856 */ /* x1855 */ /* x1854 */ f642(); goto l18157; l18156: /* x1859 */ /* x1858 */ l18157: /* x1862 */ /* x1861 */ a13762 = TRUE_TYPE; /* x1848 */ /* x1847 */ /* x1846 */ goto h23; goto l17943; l17942: /* x2887 */ /* x1871 */ /* x1870 */ t93427 = "-dh"; /* x1869 */ /* x1868 */ t93430 = a13718; /* x271400 */ if (!((t93430.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93426 = t93430.value.structure_type24753->s0; /* x1866 */ t93428 = t93426; t93429.tag = STRING_TYPE; t93429.value.string_type = t93427; if (f27434(t93428, t93429)==FALSE_TYPE) goto l17945; /* x1891 */ /* x1890 */ /* x1889 */ /* x1878 */ /* x1877 */ /* x1876 */ t93618 = a13718; /* x271399 */ if (!((t93618.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 304]"); structure_ref_error();} a13718 = t93618.value.structure_type24753->s1; /* x1886 */ /* x1879 */ if (a13761==FALSE_TYPE) goto l18153; /* x1883 */ /* x1882 */ /* x1881 */ /* x1880 */ f642(); goto l18154; l18153: /* x1885 */ /* x1884 */ l18154: /* x1888 */ /* x1887 */ a13761 = TRUE_TYPE; /* x1874 */ /* x1873 */ /* x1872 */ goto h23; goto l17946; l17945: /* x2886 */ /* x1897 */ /* x1896 */ t93432 = "-d"; /* x1895 */ /* x1894 */ t93435 = a13718; /* x271398 */ if (!((t93435.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93431 = t93435.value.structure_type24753->s0; /* x1892 */ t93433 = t93431; t93434.tag = STRING_TYPE; t93434.value.string_type = t93432; if (f27434(t93433, t93434)==FALSE_TYPE) goto l17948; /* x1917 */ /* x1916 */ /* x1915 */ /* x1904 */ /* x1903 */ /* x1902 */ t93617 = a13718; /* x271397 */ if (!((t93617.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 308]"); structure_ref_error();} a13718 = t93617.value.structure_type24753->s1; /* x1912 */ /* x1905 */ if (a13760==FALSE_TYPE) goto l18150; /* x1909 */ /* x1908 */ /* x1907 */ /* x1906 */ f642(); goto l18151; l18150: /* x1911 */ /* x1910 */ l18151: /* x1914 */ /* x1913 */ a13760 = TRUE_TYPE; /* x1900 */ /* x1899 */ /* x1898 */ goto h23; goto l17949; l17948: /* x2885 */ /* x1923 */ /* x1922 */ t93437 = "-architecture"; /* x1921 */ /* x1920 */ t93440 = a13718; /* x271396 */ if (!((t93440.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93436 = t93440.value.structure_type24753->s0; /* x1918 */ t93438 = t93436; t93439.tag = STRING_TYPE; t93439.value.string_type = t93437; if (f27434(t93438, t93439)==FALSE_TYPE) goto l17951; /* x1964 */ /* x1963 */ /* x1962 */ /* x1930 */ /* x1929 */ /* x1928 */ t93612 = a13718; /* x271395 */ if (!((t93612.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 312]"); structure_ref_error();} a13718 = t93612.value.structure_type24753->s1; /* x1938 */ /* x1931 */ if (a13759==FALSE_TYPE) goto l18144; /* x1935 */ /* x1934 */ /* x1933 */ /* x1932 */ f642(); goto l18145; l18144: /* x1937 */ /* x1936 */ l18145: /* x1940 */ /* x1939 */ a13759 = TRUE_TYPE; /* x1950 */ /* x1943 */ /* x1942 */ t93613 = a13718; /* x271394 */ if (!((t93613.tag)==NULL_TYPE)) goto l18147; /* x1947 */ /* x1946 */ /* x1945 */ /* x1944 */ f642(); goto l18148; l18147: /* x1949 */ /* x1948 */ l18148: /* x1957 */ /* x1956 */ /* x1954 */ /* x1953 */ t93615 = a13718; /* x271393 */ if (!((t93615.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 312]"); structure_ref_error();} t93614 = t93615.value.structure_type24753->s0; /* x1955 */ /* x1951 stalin.sc:32727:1132017 */ a13758 = f644(t93614); /* x1961 */ /* x1960 */ /* x1959 */ t93616 = a13718; /* x271392 */ if (!((t93616.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 312]"); structure_ref_error();} a13718 = t93616.value.structure_type24753->s1; /* x1926 */ /* x1925 */ /* x1924 */ goto h23; goto l17952; l17951: /* x2884 */ /* x1970 */ /* x1969 */ t93442 = "-baseline"; /* x1968 */ /* x1967 */ t93445 = a13718; /* x271391 */ if (!((t93445.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93441 = t93445.value.structure_type24753->s0; /* x1965 */ t93443 = t93441; t93444.tag = STRING_TYPE; t93444.value.string_type = t93442; if (f27434(t93443, t93444)==FALSE_TYPE) goto l17954; /* x2002 */ /* x2001 */ /* x2000 */ /* x1977 */ /* x1976 */ /* x1975 */ t93611 = a13718; /* x271390 */ if (!((t93611.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 318]"); structure_ref_error();} a13718 = t93611.value.structure_type24753->s1; /* x1997 */ /* x1990 */ /* x1989 stalin.sc:32728:1132071 */ if (!(a13757==FALSE_TYPE)) goto l18138; /* x1986 */ /* x1985 stalin.sc:32729:1132104 */ if (!(a13756==FALSE_TYPE)) goto l18138; /* x1982 */ if (a13755==FALSE_TYPE) goto l18139; l18138: /* x1994 */ /* x1993 */ /* x1992 */ /* x1991 */ f642(); goto l18140; l18139: /* x1996 */ /* x1995 */ l18140: /* x1999 */ /* x1998 */ a13757 = TRUE_TYPE; /* x1973 */ /* x1972 */ /* x1971 */ goto h23; goto l17955; l17954: /* x2883 */ /* x2008 */ /* x2007 */ t93447 = "-conventional"; /* x2006 */ /* x2005 */ t93450 = a13718; /* x271389 */ if (!((t93450.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93446 = t93450.value.structure_type24753->s0; /* x2003 */ t93448 = t93446; t93449.tag = STRING_TYPE; t93449.value.string_type = t93447; if (f27434(t93448, t93449)==FALSE_TYPE) goto l17957; /* x2040 */ /* x2039 */ /* x2038 */ /* x2015 */ /* x2014 */ /* x2013 */ t93610 = a13718; /* x271388 */ if (!((t93610.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 324]"); structure_ref_error();} a13718 = t93610.value.structure_type24753->s1; /* x2035 */ /* x2028 */ /* x2027 stalin.sc:32728:1132071 */ if (!(a13757==FALSE_TYPE)) goto l18133; /* x2024 */ /* x2023 stalin.sc:32729:1132104 */ if (!(a13756==FALSE_TYPE)) goto l18133; /* x2020 */ if (a13755==FALSE_TYPE) goto l18134; l18133: /* x2032 */ /* x2031 */ /* x2030 */ /* x2029 */ f642(); goto l18135; l18134: /* x2034 */ /* x2033 */ l18135: /* x2037 */ /* x2036 */ a13756 = TRUE_TYPE; /* x2011 */ /* x2010 */ /* x2009 */ goto h23; goto l17958; l17957: /* x2882 */ /* x2046 */ /* x2045 */ t93452 = "-lightweight"; /* x2044 */ /* x2043 */ t93455 = a13718; /* x271387 */ if (!((t93455.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93451 = t93455.value.structure_type24753->s0; /* x2041 */ t93453 = t93451; t93454.tag = STRING_TYPE; t93454.value.string_type = t93452; if (f27434(t93453, t93454)==FALSE_TYPE) goto l17960; /* x2078 */ /* x2077 */ /* x2076 */ /* x2053 */ /* x2052 */ /* x2051 */ t93609 = a13718; /* x271386 */ if (!((t93609.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 330]"); structure_ref_error();} a13718 = t93609.value.structure_type24753->s1; /* x2073 */ /* x2066 */ /* x2065 stalin.sc:32728:1132071 */ if (!(a13757==FALSE_TYPE)) goto l18128; /* x2062 */ /* x2061 stalin.sc:32729:1132104 */ if (!(a13756==FALSE_TYPE)) goto l18128; /* x2058 */ if (a13755==FALSE_TYPE) goto l18129; l18128: /* x2070 */ /* x2069 */ /* x2068 */ /* x2067 */ f642(); goto l18130; l18129: /* x2072 */ /* x2071 */ l18130: /* x2075 */ /* x2074 */ a13755 = TRUE_TYPE; /* x2049 */ /* x2048 */ /* x2047 */ goto h23; goto l17961; l17960: /* x2881 */ /* x2084 */ /* x2083 */ t93457 = "-immediate-flat"; /* x2082 */ /* x2081 */ t93460 = a13718; /* x271385 */ if (!((t93460.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93456 = t93460.value.structure_type24753->s0; /* x2079 */ t93458 = t93456; t93459.tag = STRING_TYPE; t93459.value.string_type = t93457; if (f27434(t93458, t93459)==FALSE_TYPE) goto l17963; /* x2128 */ /* x2127 */ /* x2126 */ /* x2091 */ /* x2090 */ /* x2089 */ t93608 = a13718; /* x271384 */ if (!((t93608.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 336]"); structure_ref_error();} a13718 = t93608.value.structure_type24753->s1; /* x2123 */ /* x2116 */ /* x2115 stalin.sc:32731:1132193 */ if (!(a13754==FALSE_TYPE)) goto l18121; /* x2112 */ /* x2111 stalin.sc:32732:1132233 */ if (!(a13753==FALSE_TYPE)) goto l18121; /* x2108 */ /* x2107 stalin.sc:32733:1132276 */ if (!(a13752==FALSE_TYPE)) goto l18121; /* x2104 */ /* x2103 stalin.sc:32734:1132322 */ if (!(a13751==FALSE_TYPE)) goto l18121; /* x2100 */ if (a13750==FALSE_TYPE) goto l18122; l18121: /* x2120 */ /* x2119 */ /* x2118 */ /* x2117 */ f642(); goto l18123; l18122: /* x2122 */ /* x2121 */ l18123: /* x2125 */ /* x2124 */ a13754 = TRUE_TYPE; /* x2087 */ /* x2086 */ /* x2085 */ goto h23; goto l17964; l17963: /* x2880 */ /* x2134 */ /* x2133 */ t93462 = "-indirect-flat"; /* x2132 */ /* x2131 */ t93465 = a13718; /* x271383 */ if (!((t93465.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93461 = t93465.value.structure_type24753->s0; /* x2129 */ t93463 = t93461; t93464.tag = STRING_TYPE; t93464.value.string_type = t93462; if (f27434(t93463, t93464)==FALSE_TYPE) goto l17966; /* x2178 */ /* x2177 */ /* x2176 */ /* x2141 */ /* x2140 */ /* x2139 */ t93607 = a13718; /* x271382 */ if (!((t93607.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 344]"); structure_ref_error();} a13718 = t93607.value.structure_type24753->s1; /* x2173 */ /* x2166 */ /* x2165 stalin.sc:32731:1132193 */ if (!(a13754==FALSE_TYPE)) goto l18114; /* x2162 */ /* x2161 stalin.sc:32732:1132233 */ if (!(a13753==FALSE_TYPE)) goto l18114; /* x2158 */ /* x2157 stalin.sc:32733:1132276 */ if (!(a13752==FALSE_TYPE)) goto l18114; /* x2154 */ /* x2153 stalin.sc:32734:1132322 */ if (!(a13751==FALSE_TYPE)) goto l18114; /* x2150 */ if (a13750==FALSE_TYPE) goto l18115; l18114: /* x2170 */ /* x2169 */ /* x2168 */ /* x2167 */ f642(); goto l18116; l18115: /* x2172 */ /* x2171 */ l18116: /* x2175 */ /* x2174 */ a13753 = TRUE_TYPE; /* x2137 */ /* x2136 */ /* x2135 */ goto h23; goto l17967; l17966: /* x2879 */ /* x2184 */ /* x2183 */ t93467 = "-immediate-display"; /* x2182 */ /* x2181 */ t93470 = a13718; /* x271381 */ if (!((t93470.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93466 = t93470.value.structure_type24753->s0; /* x2179 */ t93468 = t93466; t93469.tag = STRING_TYPE; t93469.value.string_type = t93467; if (f27434(t93468, t93469)==FALSE_TYPE) goto l17969; /* x2228 */ /* x2227 */ /* x2226 */ /* x2191 */ /* x2190 */ /* x2189 */ t93606 = a13718; /* x271380 */ if (!((t93606.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 352]"); structure_ref_error();} a13718 = t93606.value.structure_type24753->s1; /* x2223 */ /* x2216 */ /* x2215 stalin.sc:32731:1132193 */ if (!(a13754==FALSE_TYPE)) goto l18107; /* x2212 */ /* x2211 stalin.sc:32732:1132233 */ if (!(a13753==FALSE_TYPE)) goto l18107; /* x2208 */ /* x2207 stalin.sc:32733:1132276 */ if (!(a13752==FALSE_TYPE)) goto l18107; /* x2204 */ /* x2203 stalin.sc:32734:1132322 */ if (!(a13751==FALSE_TYPE)) goto l18107; /* x2200 */ if (a13750==FALSE_TYPE) goto l18108; l18107: /* x2220 */ /* x2219 */ /* x2218 */ /* x2217 */ f642(); goto l18109; l18108: /* x2222 */ /* x2221 */ l18109: /* x2225 */ /* x2224 */ a13752 = TRUE_TYPE; /* x2187 */ /* x2186 */ /* x2185 */ goto h23; goto l17970; l17969: /* x2878 */ /* x2234 */ /* x2233 */ t93472 = "-indirect-display"; /* x2232 */ /* x2231 */ t93475 = a13718; /* x271379 */ if (!((t93475.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93471 = t93475.value.structure_type24753->s0; /* x2229 */ t93473 = t93471; t93474.tag = STRING_TYPE; t93474.value.string_type = t93472; if (f27434(t93473, t93474)==FALSE_TYPE) goto l17972; /* x2278 */ /* x2277 */ /* x2276 */ /* x2241 */ /* x2240 */ /* x2239 */ t93605 = a13718; /* x271378 */ if (!((t93605.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 360]"); structure_ref_error();} a13718 = t93605.value.structure_type24753->s1; /* x2273 */ /* x2266 */ /* x2265 stalin.sc:32731:1132193 */ if (!(a13754==FALSE_TYPE)) goto l18100; /* x2262 */ /* x2261 stalin.sc:32732:1132233 */ if (!(a13753==FALSE_TYPE)) goto l18100; /* x2258 */ /* x2257 stalin.sc:32733:1132276 */ if (!(a13752==FALSE_TYPE)) goto l18100; /* x2254 */ /* x2253 stalin.sc:32734:1132322 */ if (!(a13751==FALSE_TYPE)) goto l18100; /* x2250 */ if (a13750==FALSE_TYPE) goto l18101; l18100: /* x2270 */ /* x2269 */ /* x2268 */ /* x2267 */ f642(); goto l18102; l18101: /* x2272 */ /* x2271 */ l18102: /* x2275 */ /* x2274 */ a13751 = TRUE_TYPE; /* x2237 */ /* x2236 */ /* x2235 */ goto h23; goto l17973; l17972: /* x2877 */ /* x2284 */ /* x2283 */ t93477 = "-linked"; /* x2282 */ /* x2281 */ t93480 = a13718; /* x271377 */ if (!((t93480.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93476 = t93480.value.structure_type24753->s0; /* x2279 */ t93478 = t93476; t93479.tag = STRING_TYPE; t93479.value.string_type = t93477; if (f27434(t93478, t93479)==FALSE_TYPE) goto l17975; /* x2328 */ /* x2327 */ /* x2326 */ /* x2291 */ /* x2290 */ /* x2289 */ t93604 = a13718; /* x271376 */ if (!((t93604.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 368]"); structure_ref_error();} a13718 = t93604.value.structure_type24753->s1; /* x2323 */ /* x2316 */ /* x2315 stalin.sc:32731:1132193 */ if (!(a13754==FALSE_TYPE)) goto l18093; /* x2312 */ /* x2311 stalin.sc:32732:1132233 */ if (!(a13753==FALSE_TYPE)) goto l18093; /* x2308 */ /* x2307 stalin.sc:32733:1132276 */ if (!(a13752==FALSE_TYPE)) goto l18093; /* x2304 */ /* x2303 stalin.sc:32734:1132322 */ if (!(a13751==FALSE_TYPE)) goto l18093; /* x2300 */ if (a13750==FALSE_TYPE) goto l18094; l18093: /* x2320 */ /* x2319 */ /* x2318 */ /* x2317 */ f642(); goto l18095; l18094: /* x2322 */ /* x2321 */ l18095: /* x2325 */ /* x2324 */ a13750 = TRUE_TYPE; /* x2287 */ /* x2286 */ /* x2285 */ goto h23; goto l17976; l17975: /* x2876 */ /* x2334 */ /* x2333 */ t93482 = "-align-strings"; /* x2332 */ /* x2331 */ t93485 = a13718; /* x271375 */ if (!((t93485.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93481 = t93485.value.structure_type24753->s0; /* x2329 */ t93483 = t93481; t93484.tag = STRING_TYPE; t93484.value.string_type = t93482; if (f27434(t93483, t93484)==FALSE_TYPE) goto l17978; /* x2360 */ /* x2359 */ /* x2358 */ /* x2341 */ /* x2340 */ /* x2339 */ t93603 = a13718; /* x271374 */ if (!((t93603.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 376]"); structure_ref_error();} a13718 = t93603.value.structure_type24753->s1; /* x2355 */ /* x2348 */ /* x2347 stalin.sc:32736:1132404 */ if (!(a13749==FALSE_TYPE)) goto l18089; /* x2344 */ if (a13748==FALSE_TYPE) goto l18090; l18089: /* x2352 */ /* x2351 */ /* x2350 */ /* x2349 */ f642(); goto l18091; l18090: /* x2354 */ /* x2353 */ l18091: /* x2357 */ /* x2356 */ a13749 = TRUE_TYPE; /* x2337 */ /* x2336 */ /* x2335 */ goto h23; goto l17979; l17978: /* x2875 */ /* x2366 */ /* x2365 */ t93487 = "-do-not-align-strings"; /* x2364 */ /* x2363 */ t93490 = a13718; /* x271373 */ if (!((t93490.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93486 = t93490.value.structure_type24753->s0; /* x2361 */ t93488 = t93486; t93489.tag = STRING_TYPE; t93489.value.string_type = t93487; if (f27434(t93488, t93489)==FALSE_TYPE) goto l17981; /* x2392 */ /* x2391 */ /* x2390 */ /* x2373 */ /* x2372 */ /* x2371 */ t93602 = a13718; /* x271372 */ if (!((t93602.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 381]"); structure_ref_error();} a13718 = t93602.value.structure_type24753->s1; /* x2387 */ /* x2380 */ /* x2379 stalin.sc:32736:1132404 */ if (!(a13749==FALSE_TYPE)) goto l18085; /* x2376 */ if (a13748==FALSE_TYPE) goto l18086; l18085: /* x2384 */ /* x2383 */ /* x2382 */ /* x2381 */ f642(); goto l18087; l18086: /* x2386 */ /* x2385 */ l18087: /* x2389 */ /* x2388 */ a13748 = TRUE_TYPE; /* x2369 */ /* x2368 */ /* x2367 */ goto h23; goto l17982; l17981: /* x2874 */ /* x2398 */ /* x2397 */ t93492 = "-de"; /* x2396 */ /* x2395 */ t93495 = a13718; /* x271371 */ if (!((t93495.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93491 = t93495.value.structure_type24753->s0; /* x2393 */ t93493 = t93491; t93494.tag = STRING_TYPE; t93494.value.string_type = t93492; if (f27434(t93493, t93494)==FALSE_TYPE) goto l17984; /* x2418 */ /* x2417 */ /* x2416 */ /* x2405 */ /* x2404 */ /* x2403 */ t93601 = a13718; /* x271370 */ if (!((t93601.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 386]"); structure_ref_error();} a13718 = t93601.value.structure_type24753->s1; /* x2413 */ /* x2406 */ if (a13747==FALSE_TYPE) goto l18083; /* x2410 */ /* x2409 */ /* x2408 */ /* x2407 */ f642(); goto l18084; l18083: /* x2412 */ /* x2411 */ l18084: /* x2415 */ /* x2414 */ a13747 = TRUE_TYPE; /* x2401 */ /* x2400 */ /* x2399 */ goto h23; goto l17985; l17984: /* x2873 */ /* x2424 */ /* x2423 */ t93497 = "-df"; /* x2422 */ /* x2421 */ t93500 = a13718; /* x271369 */ if (!((t93500.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93496 = t93500.value.structure_type24753->s0; /* x2419 */ t93498 = t93496; t93499.tag = STRING_TYPE; t93499.value.string_type = t93497; if (f27434(t93498, t93499)==FALSE_TYPE) goto l17987; /* x2444 */ /* x2443 */ /* x2442 */ /* x2431 */ /* x2430 */ /* x2429 */ t93600 = a13718; /* x271368 */ if (!((t93600.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 390]"); structure_ref_error();} a13718 = t93600.value.structure_type24753->s1; /* x2439 */ /* x2432 */ if (a13746==FALSE_TYPE) goto l18080; /* x2436 */ /* x2435 */ /* x2434 */ /* x2433 */ f642(); goto l18081; l18080: /* x2438 */ /* x2437 */ l18081: /* x2441 */ /* x2440 */ a13746 = TRUE_TYPE; /* x2427 */ /* x2426 */ /* x2425 */ goto h23; goto l17988; l17987: /* x2872 */ /* x2450 */ /* x2449 */ t93502 = "-dG"; /* x2448 */ /* x2447 */ t93505 = a13718; /* x271367 */ if (!((t93505.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93501 = t93505.value.structure_type24753->s0; /* x2445 */ t93503 = t93501; t93504.tag = STRING_TYPE; t93504.value.string_type = t93502; if (f27434(t93503, t93504)==FALSE_TYPE) goto l17990; /* x2470 */ /* x2469 */ /* x2468 */ /* x2457 */ /* x2456 */ /* x2455 */ t93599 = a13718; /* x271366 */ if (!((t93599.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 394]"); structure_ref_error();} a13718 = t93599.value.structure_type24753->s1; /* x2465 */ /* x2458 */ if (a13745==FALSE_TYPE) goto l18077; /* x2462 */ /* x2461 */ /* x2460 */ /* x2459 */ f642(); goto l18078; l18077: /* x2464 */ /* x2463 */ l18078: /* x2467 */ /* x2466 */ a13745 = TRUE_TYPE; /* x2453 */ /* x2452 */ /* x2451 */ goto h23; goto l17991; l17990: /* x2871 */ /* x2476 */ /* x2475 */ t93507 = "-di"; /* x2474 */ /* x2473 */ t93510 = a13718; /* x271365 */ if (!((t93510.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93506 = t93510.value.structure_type24753->s0; /* x2471 */ t93508 = t93506; t93509.tag = STRING_TYPE; t93509.value.string_type = t93507; if (f27434(t93508, t93509)==FALSE_TYPE) goto l17993; /* x2496 */ /* x2495 */ /* x2494 */ /* x2483 */ /* x2482 */ /* x2481 */ t93598 = a13718; /* x271364 */ if (!((t93598.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 398]"); structure_ref_error();} a13718 = t93598.value.structure_type24753->s1; /* x2491 */ /* x2484 */ if (a13744==FALSE_TYPE) goto l18074; /* x2488 */ /* x2487 */ /* x2486 */ /* x2485 */ f642(); goto l18075; l18074: /* x2490 */ /* x2489 */ l18075: /* x2493 */ /* x2492 */ a13744 = TRUE_TYPE; /* x2479 */ /* x2478 */ /* x2477 */ goto h23; goto l17994; l17993: /* x2870 */ /* x2502 */ /* x2501 */ t93512 = "-dI"; /* x2500 */ /* x2499 */ t93515 = a13718; /* x271363 */ if (!((t93515.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93511 = t93515.value.structure_type24753->s0; /* x2497 */ t93513 = t93511; t93514.tag = STRING_TYPE; t93514.value.string_type = t93512; if (f27434(t93513, t93514)==FALSE_TYPE) goto l17996; /* x2522 */ /* x2521 */ /* x2520 */ /* x2509 */ /* x2508 */ /* x2507 */ t93597 = a13718; /* x271362 */ if (!((t93597.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 402]"); structure_ref_error();} a13718 = t93597.value.structure_type24753->s1; /* x2517 */ /* x2510 */ if (a13743==FALSE_TYPE) goto l18071; /* x2514 */ /* x2513 */ /* x2512 */ /* x2511 */ f642(); goto l18072; l18071: /* x2516 */ /* x2515 */ l18072: /* x2519 */ /* x2518 */ a13743 = TRUE_TYPE; /* x2505 */ /* x2504 */ /* x2503 */ goto h23; goto l17997; l17996: /* x2869 */ /* x2528 */ /* x2527 */ t93517 = "-dp"; /* x2526 */ /* x2525 */ t93520 = a13718; /* x271361 */ if (!((t93520.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93516 = t93520.value.structure_type24753->s0; /* x2523 */ t93518 = t93516; t93519.tag = STRING_TYPE; t93519.value.string_type = t93517; if (f27434(t93518, t93519)==FALSE_TYPE) goto l17999; /* x2548 */ /* x2547 */ /* x2546 */ /* x2535 */ /* x2534 */ /* x2533 */ t93596 = a13718; /* x271360 */ if (!((t93596.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 406]"); structure_ref_error();} a13718 = t93596.value.structure_type24753->s1; /* x2543 */ /* x2536 */ if (a13742==FALSE_TYPE) goto l18068; /* x2540 */ /* x2539 */ /* x2538 */ /* x2537 */ f642(); goto l18069; l18068: /* x2542 */ /* x2541 */ l18069: /* x2545 */ /* x2544 */ a13742 = TRUE_TYPE; /* x2531 */ /* x2530 */ /* x2529 */ goto h23; goto l18000; l17999: /* x2868 */ /* x2554 */ /* x2553 */ t93522 = "-dP"; /* x2552 */ /* x2551 */ t93525 = a13718; /* x271359 */ if (!((t93525.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93521 = t93525.value.structure_type24753->s0; /* x2549 */ t93523 = t93521; t93524.tag = STRING_TYPE; t93524.value.string_type = t93522; if (f27434(t93523, t93524)==FALSE_TYPE) goto l18002; /* x2574 */ /* x2573 */ /* x2572 */ /* x2561 */ /* x2560 */ /* x2559 */ t93595 = a13718; /* x271358 */ if (!((t93595.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 410]"); structure_ref_error();} a13718 = t93595.value.structure_type24753->s1; /* x2569 */ /* x2562 */ if (a13741==FALSE_TYPE) goto l18065; /* x2566 */ /* x2565 */ /* x2564 */ /* x2563 */ f642(); goto l18066; l18065: /* x2568 */ /* x2567 */ l18066: /* x2571 */ /* x2570 */ a13741 = TRUE_TYPE; /* x2557 */ /* x2556 */ /* x2555 */ goto h23; goto l18003; l18002: /* x2867 */ /* x2580 */ /* x2579 */ t93527 = "-ds"; /* x2578 */ /* x2577 */ t93530 = a13718; /* x271357 */ if (!((t93530.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93526 = t93530.value.structure_type24753->s0; /* x2575 */ t93528 = t93526; t93529.tag = STRING_TYPE; t93529.value.string_type = t93527; if (f27434(t93528, t93529)==FALSE_TYPE) goto l18005; /* x2600 */ /* x2599 */ /* x2598 */ /* x2587 */ /* x2586 */ /* x2585 */ t93594 = a13718; /* x271356 */ if (!((t93594.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 414]"); structure_ref_error();} a13718 = t93594.value.structure_type24753->s1; /* x2595 */ /* x2588 */ if (a13740==FALSE_TYPE) goto l18062; /* x2592 */ /* x2591 */ /* x2590 */ /* x2589 */ f642(); goto l18063; l18062: /* x2594 */ /* x2593 */ l18063: /* x2597 */ /* x2596 */ a13740 = TRUE_TYPE; /* x2583 */ /* x2582 */ /* x2581 */ goto h23; goto l18006; l18005: /* x2866 */ /* x2606 */ /* x2605 */ t93532 = "-dS"; /* x2604 */ /* x2603 */ t93535 = a13718; /* x271355 */ if (!((t93535.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93531 = t93535.value.structure_type24753->s0; /* x2601 */ t93533 = t93531; t93534.tag = STRING_TYPE; t93534.value.string_type = t93532; if (f27434(t93533, t93534)==FALSE_TYPE) goto l18008; /* x2626 */ /* x2625 */ /* x2624 */ /* x2613 */ /* x2612 */ /* x2611 */ t93593 = a13718; /* x271354 */ if (!((t93593.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 418]"); structure_ref_error();} a13718 = t93593.value.structure_type24753->s1; /* x2621 */ /* x2614 */ if (a13739==FALSE_TYPE) goto l18059; /* x2618 */ /* x2617 */ /* x2616 */ /* x2615 */ f642(); goto l18060; l18059: /* x2620 */ /* x2619 */ l18060: /* x2623 */ /* x2622 */ a13739 = TRUE_TYPE; /* x2609 */ /* x2608 */ /* x2607 */ goto h23; goto l18009; l18008: /* x2865 */ /* x2632 */ /* x2631 */ t93537 = "-Tmk"; /* x2630 */ /* x2629 */ t93540 = a13718; /* x271353 */ if (!((t93540.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93536 = t93540.value.structure_type24753->s0; /* x2627 */ t93538 = t93536; t93539.tag = STRING_TYPE; t93539.value.string_type = t93537; if (f27434(t93538, t93539)==FALSE_TYPE) goto l18011; /* x2652 */ /* x2651 */ /* x2650 */ /* x2639 */ /* x2638 */ /* x2637 */ t93592 = a13718; /* x271352 */ if (!((t93592.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 422]"); structure_ref_error();} a13718 = t93592.value.structure_type24753->s1; /* x2647 */ /* x2640 */ if (a13738==FALSE_TYPE) goto l18056; /* x2644 */ /* x2643 */ /* x2642 */ /* x2641 */ f642(); goto l18057; l18056: /* x2646 */ /* x2645 */ l18057: /* x2649 */ /* x2648 */ a13738 = TRUE_TYPE; /* x2635 */ /* x2634 */ /* x2633 */ goto h23; goto l18012; l18011: /* x2864 */ /* x2658 */ /* x2657 */ t93542 = "-no-tail-call-optimization"; /* x2656 */ /* x2655 */ t93545 = a13718; /* x271351 */ if (!((t93545.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93541 = t93545.value.structure_type24753->s0; /* x2653 */ t93543 = t93541; t93544.tag = STRING_TYPE; t93544.value.string_type = t93542; if (f27434(t93543, t93544)==FALSE_TYPE) goto l18014; /* x2678 */ /* x2677 */ /* x2676 */ /* x2665 */ /* x2664 */ /* x2663 */ t93591 = a13718; /* x271350 */ if (!((t93591.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 426]"); structure_ref_error();} a13718 = t93591.value.structure_type24753->s1; /* x2673 */ /* x2666 */ if (a13737==FALSE_TYPE) goto l18053; /* x2670 */ /* x2669 */ /* x2668 */ /* x2667 */ f642(); goto l18054; l18053: /* x2672 */ /* x2671 */ l18054: /* x2675 */ /* x2674 */ a13737 = TRUE_TYPE; /* x2661 */ /* x2660 */ /* x2659 */ goto h23; goto l18015; l18014: /* x2863 */ /* x2684 */ /* x2683 */ t93547 = "-db"; /* x2682 */ /* x2681 */ t93550 = a13718; /* x271349 */ if (!((t93550.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93546 = t93550.value.structure_type24753->s0; /* x2679 */ t93548 = t93546; t93549.tag = STRING_TYPE; t93549.value.string_type = t93547; if (f27434(t93548, t93549)==FALSE_TYPE) goto l18017; /* x2704 */ /* x2703 */ /* x2702 */ /* x2691 */ /* x2690 */ /* x2689 */ t93590 = a13718; /* x271348 */ if (!((t93590.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 430]"); structure_ref_error();} a13718 = t93590.value.structure_type24753->s1; /* x2699 */ /* x2692 */ if (a13736==FALSE_TYPE) goto l18050; /* x2696 */ /* x2695 */ /* x2694 */ /* x2693 */ f642(); goto l18051; l18050: /* x2698 */ /* x2697 */ l18051: /* x2701 */ /* x2700 */ a13736 = TRUE_TYPE; /* x2687 */ /* x2686 */ /* x2685 */ goto h23; goto l18018; l18017: /* x2862 */ /* x2710 */ /* x2709 */ t93552 = "-c"; /* x2708 */ /* x2707 */ t93555 = a13718; /* x271347 */ if (!((t93555.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93551 = t93555.value.structure_type24753->s0; /* x2705 */ t93553 = t93551; t93554.tag = STRING_TYPE; t93554.value.string_type = t93552; if (f27434(t93553, t93554)==FALSE_TYPE) goto l18020; /* x2730 */ /* x2729 */ /* x2728 */ /* x2717 */ /* x2716 */ /* x2715 */ t93589 = a13718; /* x271346 */ if (!((t93589.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 434]"); structure_ref_error();} a13718 = t93589.value.structure_type24753->s1; /* x2725 */ /* x2718 */ if (a13735==FALSE_TYPE) goto l18047; /* x2722 */ /* x2721 */ /* x2720 */ /* x2719 */ f642(); goto l18048; l18047: /* x2724 */ /* x2723 */ l18048: /* x2727 */ /* x2726 */ a13735 = TRUE_TYPE; /* x2713 */ /* x2712 */ /* x2711 */ goto h23; goto l18021; l18020: /* x2861 */ /* x2736 */ /* x2735 */ t93557 = "-k"; /* x2734 */ /* x2733 */ t93560 = a13718; /* x271345 */ if (!((t93560.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93556 = t93560.value.structure_type24753->s0; /* x2731 */ t93558 = t93556; t93559.tag = STRING_TYPE; t93559.value.string_type = t93557; if (f27434(t93558, t93559)==FALSE_TYPE) goto l18023; /* x2756 */ /* x2755 */ /* x2754 */ /* x2743 */ /* x2742 */ /* x2741 */ t93588 = a13718; /* x271344 */ if (!((t93588.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 438]"); structure_ref_error();} a13718 = t93588.value.structure_type24753->s1; /* x2751 */ /* x2744 */ if (a13734==FALSE_TYPE) goto l18044; /* x2748 */ /* x2747 */ /* x2746 */ /* x2745 */ f642(); goto l18045; l18044: /* x2750 */ /* x2749 */ l18045: /* x2753 */ /* x2752 */ a13734 = TRUE_TYPE; /* x2739 */ /* x2738 */ /* x2737 */ goto h23; goto l18024; l18023: /* x2860 */ /* x2762 */ /* x2761 */ t93562 = "-cc"; /* x2760 */ /* x2759 */ t93565 = a13718; /* x271343 */ if (!((t93565.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93561 = t93565.value.structure_type24753->s0; /* x2757 */ t93563 = t93561; t93564.tag = STRING_TYPE; t93564.value.string_type = t93562; if (f27434(t93563, t93564)==FALSE_TYPE) goto l18026; /* x2803 */ /* x2802 */ /* x2801 */ /* x2769 */ /* x2768 */ /* x2767 */ t93583 = a13718; /* x271342 */ if (!((t93583.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 442]"); structure_ref_error();} a13718 = t93583.value.structure_type24753->s1; /* x2777 */ /* x2770 */ if (a13733==FALSE_TYPE) goto l18038; /* x2774 */ /* x2773 */ /* x2772 */ /* x2771 */ f642(); goto l18039; l18038: /* x2776 */ /* x2775 */ l18039: /* x2779 */ /* x2778 */ a13733 = TRUE_TYPE; /* x2789 */ /* x2782 */ /* x2781 */ t93584 = a13718; /* x271341 */ if (!((t93584.tag)==NULL_TYPE)) goto l18041; /* x2786 */ /* x2785 */ /* x2784 */ /* x2783 */ f642(); goto l18042; l18041: /* x2788 */ /* x2787 */ l18042: /* x2796 */ /* x2795 */ /* x2793 */ /* x2792 */ t93586 = a13718; /* x271340 */ if (!((t93586.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 442]"); structure_ref_error();} t93585 = t93586.value.structure_type24753->s0; /* x2794 */ /* x2790 stalin.sc:32753:1133173 */ a13732 = f644(t93585); /* x2800 */ /* x2799 */ /* x2798 */ t93587 = a13718; /* x271339 */ if (!((t93587.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 442]"); structure_ref_error();} a13718 = t93587.value.structure_type24753->s1; /* x2765 */ /* x2764 */ /* x2763 */ goto h23; goto l18027; l18026: /* x2859 */ /* x2809 */ /* x2808 */ t93567 = "-copt"; /* x2807 */ /* x2806 */ t93570 = a13718; /* x271338 */ if (!((t93570.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93566 = t93570.value.structure_type24753->s0; /* x2804 */ t93568 = t93566; t93569.tag = STRING_TYPE; t93569.value.string_type = t93567; if (f27434(t93568, t93569)==FALSE_TYPE) goto l18029; /* x2845 */ /* x2844 */ /* x2843 */ /* x2816 */ /* x2815 */ /* x2814 */ t93576 = a13718; /* x271337 */ if (!((t93576.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 448]"); structure_ref_error();} a13718 = t93576.value.structure_type24753->s1; /* x2818 */ /* x2817 */ /* x2828 */ /* x2821 */ /* x2820 */ t93577 = a13718; /* x271336 */ if (!((t93577.tag)==NULL_TYPE)) goto l18035; /* x2825 */ /* x2824 */ /* x2823 */ /* x2822 */ f642(); goto l18036; l18035: /* x2827 */ /* x2826 */ l18036: /* x2838 */ /* x2837 */ /* x2835 */ /* x2833 */ /* x2832 */ t93581 = a13718; /* x271334 */ if (!((t93581.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 448]"); structure_ref_error();} t93580 = t93581.value.structure_type24753->s0; /* x2834 */ /* x2830 stalin.sc:32754:1133259 */ t93578 = f644(t93580); /* x2836 stalin.sc:32754:1133232 */ t93579 = a13730; /* x271335 */ a13730 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a13730==NULL) {backtrace_internal("[inside LOOP 448]"); out_of_memory_error();} a13730->s0.tag = STRING_TYPE; a13730->s0.value.string_type = t93578; /* MOVE: branching squeezed to general */ if (t93579>=((struct structure_type24753 *)VALUE_OFFSET)) {a13730->s1.tag = STRUCTURE_TYPE24753; a13730->s1.value.structure_type24753 = t93579;} else a13730->s1.tag = (unsigned)t93579; /* x2842 */ /* x2841 */ /* x2840 */ t93582 = a13718; /* x271333 */ if (!((t93582.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 448]"); structure_ref_error();} a13718 = t93582.value.structure_type24753->s1; /* x2812 */ /* x2811 */ /* x2810 */ goto h23; goto l18030; l18029: /* x2858 */ /* x2851 */ /* x2850 */ t93572 = "-usage"; /* x2849 */ /* x2848 */ t93575 = a13718; /* x271332 */ if (!((t93575.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside LOOP 25]"); structure_ref_error();} t93571 = t93575.value.structure_type24753->s0; /* x2846 */ t93573 = t93571; t93574.tag = STRING_TYPE; t93574.value.string_type = t93572; if (f27434(t93573, t93574)==FALSE_TYPE) goto l18032; /* x2855 */ /* x2854 */ /* x2853 */ /* x2852 */ f642(); goto l18033; l18032: /* x2857 */ /* x2856 */ l18033: l18030: l18027: l18024: l18021: l18018: l18015: l18012: l18009: l18006: l18003: l18000: l17997: l17994: l17991: l17988: l17985: l17982: l17979: l17976: l17973: l17970: l17967: l17964: l17961: l17958: l17955: l17952: l17949: l17946: l17943: l17940: l17937: l17934: l17931: l17928: l17925: l17922: l17919: l17916: l17913: l17910: l17907: l17904: l17901: l17898: l17895: l17892: l17889: l17886: l17883: l17880: l17877: l17874: l17871: l17868: l17865: l17862: l17859: l17856: l17853: l17850: l17847: l17844: l17841: l17838: l17835: l17832: l17829: l17826: l17823: l17820: l17817: l17814: l17811: l17808: l17805: l17802: l17799: l17796: l17793: l17790: l17787: l17784: l17781: l17778: l17775: l17772: l17769: /* x2977 */ /* x2959 */ /* x2958 */ t93691 = a13718; /* x271331 */ if (!((t93691.tag)==NULL_TYPE)) goto l18383; /* x2961 */ /* x2960 */ goto l18384; l18383: /* x2976 */ /* x2975 */ /* x2974 */ /* x2973 */ /* x2972 */ /* x2970 */ /* x2969 */ t93695 = a13718; /* x271329 */ if (!((t93695.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside top level 456]"); structure_ref_error();} t93693 = t93695.value.structure_type24753->s0; /* x2971 */ /* x2967 stalin.sc:32755:1133316 */ t93694 = f644(t93693); a13729 = t93694; /* x2966 */ /* x2965 */ /* x2964 */ /* x2963 */ t93692 = a13718; /* x271330 */ if (!((t93692.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[inside top level 457]"); structure_ref_error();} a13718 = t93692.value.structure_type24753->s1; l18384: /* x2987 */ /* x2980 */ /* x2979 */ t93696 = a13718; /* x271328 */ if (!((t93696.tag)==NULL_TYPE)) goto l18386; /* x2982 */ /* x2981 */ goto l18387; l18386: /* x2986 */ /* x2985 */ /* x2984 */ /* x2983 */ f642(); l18387: /* x2989 stalin.sc:32757:1133355 */ /* x2988 stalin.sc:32757:1133371 */ /* x2991 stalin.sc:32758:1133382 */ /* x2990 stalin.sc:32758:1133399 */ /* x3006 stalin.sc:32759:1133404 */ /* x2992 stalin.sc:32759:1133410 */ if (a13821==FALSE_TYPE) goto l18389; /* x3003 */ /* x3002 */ /* x3001 */ /* x3000 stalin.sc:32759:1133419 */ /* x2999 stalin.sc:32759:1133430 */ t93699 = "0.11~%"; /* x2998 stalin.sc:32759:1133427 */ /* x2997 stalin.sc:32759:1133420 */ t93700 = TRUE_TYPE; t93701.tag = STRING_TYPE; t93701.value.string_type = t93699; t93702.tag = NULL_TYPE; f665(t93700, t93701, t93702); /* x2996 */ /* x2995 stalin.sc:32759:1133440 */ /* x2994 stalin.sc:32759:1133446 */ t93698 = -1; /* x2993 stalin.sc:32759:1133441 */ exit(t93698); goto l18390; l18389: /* x3005 stalin.sc:32759:1133404 */ /* x3004 stalin.sc:32759:1133404 */ l18390: /* x3015 stalin.sc:32760:1133452 */ /* x3007 stalin.sc:32760:1133460 */ if (a13729==((char *)FALSE_TYPE)) goto l18392; /* x3009 */ /* x3008 */ goto l18393; l18392: /* x3014 */ /* x3013 */ /* x3012 stalin.sc:32760:1133469 */ /* x3011 stalin.sc:32760:1133476 */ t93703 = "You must specify a pathname"; /* x271327 stalin.sc:32760:1133470 */ stalin_panic(t93703); l18393: /* x3026 stalin.sc:32761:1133509 */ /* x3025 stalin.sc:32762:1133532 */ /* x3024 stalin.sc:32762:1133560 */ t93738 = &t93743; /* x3021 stalin.sc:32762:1133547 */ t93737 = a13819; /* x3020 stalin.sc:32762:1133540 */ t93736 = &t93742; /* x3017 stalin.sc:32762:1133533 */ t93741.tag = STRUCTURE_TYPE24753; t93741.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t93741.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32762, 1133532); out_of_memory_error();} t93741.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t93741.value.structure_type24753->s0.value.structure_type24753 = t93738; t93741.value.structure_type24753->s1.tag = NULL_TYPE; t93740.tag = STRUCTURE_TYPE24753; t93740.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t93740.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32762, 1133532); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t93737>=((struct structure_type24753 *)VALUE_OFFSET)) {t93740.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t93740.value.structure_type24753->s0.value.structure_type24753 = t93737;} else t93740.value.structure_type24753->s0.tag = (unsigned)t93737; t93740.value.structure_type24753->s1 = t93741; t93739 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t93739==NULL) {backtrace("stalin.sc", 32762, 1133532); out_of_memory_error();} t93739->s0.tag = STRUCTURE_TYPE24753; t93739->s0.value.structure_type24753 = t93736; t93739->s1 = t93740; t93704 = f26254(t93739); /* x3016 stalin.sc:32761:1133510 */ a32881 = t93704; /* x225121 */ /* x224997 stalin.sc:31238:1076115 */ /* x224996 stalin.sc:31238:1076136 */ a668 = a32881; /* x224999 stalin.sc:31239:1076151 */ /* x224998 stalin.sc:31239:1076184 */ a730 = FALSE_TYPE; /* x225001 stalin.sc:31240:1076189 */ /* x225000 stalin.sc:31240:1076210 */ a729 = FALSE_TYPE; /* x225003 stalin.sc:31241:1076215 */ /* x225002 stalin.sc:31241:1076235 */ a728 = FALSE_TYPE; /* x225005 stalin.sc:31242:1076240 */ /* x225004 stalin.sc:31242:1076257 */ a727 = FALSE_TYPE; /* x225007 stalin.sc:31243:1076262 */ /* x225006 stalin.sc:31243:1076301 */ a726 = FALSE_TYPE; /* x225009 stalin.sc:31244:1076306 */ /* x225008 stalin.sc:31244:1076358 */ a725 = TRUE_TYPE; /* x225011 stalin.sc:31245:1076363 */ /* x225010 stalin.sc:31245:1076417 */ a724 = FALSE_TYPE; /* x225013 stalin.sc:31246:1076422 */ /* x225012 stalin.sc:31246:1076476 */ a723 = TRUE_TYPE; /* x225015 stalin.sc:31247:1076481 */ /* x225014 stalin.sc:31247:1076536 */ a722 = FALSE_TYPE; /* x225017 stalin.sc:31248:1076541 */ /* x225016 stalin.sc:31248:1076596 */ a721 = TRUE_TYPE; /* x225019 stalin.sc:31249:1076601 */ /* x225018 stalin.sc:31249:1076661 */ a720 = FALSE_TYPE; /* x225021 stalin.sc:31250:1076666 */ /* x225020 stalin.sc:31250:1076724 */ a719 = TRUE_TYPE; /* x225023 stalin.sc:31251:1076729 */ /* x225022 stalin.sc:31251:1076790 */ a718 = FALSE_TYPE; /* x225025 stalin.sc:31252:1076795 */ /* x225024 stalin.sc:31252:1076854 */ a717 = TRUE_TYPE; /* x225027 stalin.sc:31253:1076859 */ /* x225026 stalin.sc:31253:1076922 */ /* x225029 stalin.sc:31254:1076927 */ /* x225028 stalin.sc:31254:1076988 */ /* x225031 stalin.sc:31255:1076993 */ /* x225030 stalin.sc:31255:1077057 */ /* x225033 stalin.sc:31256:1077062 */ /* x225032 stalin.sc:31256:1077124 */ /* x225035 stalin.sc:31257:1077129 */ /* x225034 stalin.sc:31257:1077154 */ a712 = 80; /* x225037 stalin.sc:31258:1077159 */ /* x225036 stalin.sc:31258:1077194 */ a711 = FALSE_TYPE; /* x225039 stalin.sc:31259:1077199 */ /* x225038 stalin.sc:31259:1077229 */ a710 = FALSE_TYPE; /* x225041 stalin.sc:31260:1077234 */ /* x225040 stalin.sc:31260:1077269 */ a709 = FALSE_TYPE; /* x225043 stalin.sc:31261:1077274 */ /* x225042 stalin.sc:31261:1077294 */ a708 = TRUE_TYPE; /* x225045 stalin.sc:31262:1077299 */ /* x225044 stalin.sc:31262:1077322 */ a707 = TRUE_TYPE; /* x225047 stalin.sc:31263:1077327 */ /* x225046 stalin.sc:31263:1077350 */ a706 = TRUE_TYPE; /* x225049 stalin.sc:31264:1077355 */ /* x225048 stalin.sc:31264:1077380 */ a705 = TRUE_TYPE; /* x225051 stalin.sc:31265:1077385 */ /* x225050 stalin.sc:31265:1077409 */ a704 = TRUE_TYPE; /* x225053 stalin.sc:31266:1077414 */ /* x225052 stalin.sc:31266:1077435 */ a703 = TRUE_TYPE; /* x225055 stalin.sc:31267:1077440 */ /* x225054 stalin.sc:31267:1077452 */ a702 = FALSE_TYPE; /* x225057 stalin.sc:31268:1077457 */ /* x225056 stalin.sc:31268:1077469 */ a701 = FALSE_TYPE; /* x225059 stalin.sc:31269:1077474 */ /* x225058 stalin.sc:31269:1077486 */ a700 = FALSE_TYPE; /* x225061 stalin.sc:31270:1077491 */ /* x225060 stalin.sc:31270:1077503 */ a699 = FALSE_TYPE; /* x225063 stalin.sc:31271:1077508 */ /* x225062 stalin.sc:31271:1077520 */ a698 = FALSE_TYPE; /* x225065 stalin.sc:31272:1077525 */ /* x225064 stalin.sc:31272:1077537 */ a697 = FALSE_TYPE; /* x225067 stalin.sc:31273:1077542 */ /* x225066 stalin.sc:31273:1077554 */ a696 = FALSE_TYPE; /* x225069 stalin.sc:31274:1077559 */ /* x225068 stalin.sc:31274:1077598 */ a695 = FALSE_TYPE; /* x225071 stalin.sc:31275:1077603 */ /* x225070 stalin.sc:31275:1077629 */ a694 = TRUE_TYPE; /* x225073 stalin.sc:31276:1077634 */ /* x225072 stalin.sc:31276:1077659 */ a693 = TRUE_TYPE; /* x225075 stalin.sc:31277:1077664 */ /* x225074 stalin.sc:31277:1077691 */ a692 = TRUE_TYPE; /* x225077 stalin.sc:31278:1077696 */ /* x225076 stalin.sc:31278:1077721 */ a691 = FALSE_TYPE; /* x225079 stalin.sc:31279:1077726 */ /* x225078 stalin.sc:31279:1077754 */ a690 = TRUE_TYPE; /* x225081 stalin.sc:31280:1077759 */ /* x225080 stalin.sc:31280:1077789 */ a689 = q84; /* x225084 stalin.sc:31281:1077798 */ /* x225083 stalin.sc:31281:1077824 */ /* x225082 stalin.sc:31281:1077825 */ /* x224749 */ /* x224748 stalin.sc:31181:1073792 */ /* x224723 stalin.sc:31181:1073800 */ if ((a663.tag)==FALSE_TYPE) goto l18395; /* x224725 */ /* x224724 */ goto l18396; l18395: /* x224747 */ /* x224746 */ /* x224745 */ /* x224738 stalin.sc:31182:1073830 */ /* x224737 stalin.sc:31183:1073841 */ /* x224736 stalin.sc:31184:1073882 */ /* x224735 stalin.sc:31184:1073921 */ t93713 = "stalin-architecture-name"; /* x224734 stalin.sc:31184:1073883 */ t93714.tag = STRING_TYPE; t93714.value.string_type = t93713; t93709 = f18663(t93714); /* x224733 stalin.sc:31183:1073852 */ t93708 = "~a >/tmp/QobiScheme.tmp"; /* x224732 stalin.sc:31183:1073849 */ /* x224731 stalin.sc:31183:1073842 */ t93710 = FALSE_TYPE; t93711.tag = STRING_TYPE; t93711.value.string_type = t93708; t93712.tag = STRUCTURE_TYPE24753; t93712.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t93712.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31183, 1073841); out_of_memory_error();} t93712.value.structure_type24753->s0 = t93709; t93712.value.structure_type24753->s1.tag = NULL_TYPE; t93707 = f665(t93710, t93711, t93712); /* x224730 stalin.sc:31182:1073831 */ system(t93707); /* x224744 stalin.sc:31185:1073953 */ /* x224743 stalin.sc:31185:1073987 */ /* x224742 stalin.sc:31185:1073994 */ /* x224741 stalin.sc:31185:1074005 */ t93717 = "/tmp/QobiScheme.tmp"; /* x224740 stalin.sc:31185:1073995 */ a15560 = t93717; /* x21391 QobiScheme.sc:1424:42570 */ /* x21328 QobiScheme.sc:1424:42574 */ /* x21327 QobiScheme.sc:1424:42593 */ t93719 = "-"; /* x21326 QobiScheme.sc:1424:42584 */ t93718 = a15560; /* x21325 QobiScheme.sc:1424:42575 */ t93720.tag = STRING_TYPE; t93720.value.string_type = t93718; t93721.tag = STRING_TYPE; t93721.value.string_type = t93719; if (f27434(t93720, t93721)==FALSE_TYPE) goto l18398; /* x21356 QobiScheme.sc:1425:42603 */ /* x21353 QobiScheme.sc:1425:42621 */ /* x21355 QobiScheme.sc:1425:42632 */ /* x21354 QobiScheme.sc:1425:42633 */ t93735.tag = NULL_TYPE; t93725 = f1999(t93735); /* x21352 */ /* x21351 */ /* x21350 */ /* x21349 */ /* x21348 */ /* x21347 */ /* x21346 */ /* x21330 */ /* x21329 QobiScheme.sc:1425:42608 */ a15563 = (struct structure_type24753 *)NULL_TYPE; a15564 = t93725; h2009: /* x21345 QobiScheme.sc:1426:42652 */ /* x21333 QobiScheme.sc:1426:42656 */ /* x21332 QobiScheme.sc:1426:42669 */ t93726 = a15564; /* x270837 QobiScheme.sc:1426:42657 */ if (!(((unsigned)t93726)==EOF_OBJECT_TYPE)) goto l18401; /* x21336 QobiScheme.sc:1427:42678 */ /* x21335 QobiScheme.sc:1427:42687 */ t93732 = a15563; /* x21334 QobiScheme.sc:1427:42679 */ /* MOVE: branching squeezed to general */ if (t93732>=((struct structure_type24753 *)VALUE_OFFSET)) {t93733.tag = STRUCTURE_TYPE24753; t93733.value.structure_type24753 = t93732;} else t93733.tag = (unsigned)t93732; t93734 = f26331(t93733); t93715 = *((struct w49 *)(&t93734)); goto l18402; l18401: /* x21344 QobiScheme.sc:1428:42697 */ /* x21341 QobiScheme.sc:1428:42703 */ /* x21339 QobiScheme.sc:1428:42709 */ t93729 = a15564; /* x21340 QobiScheme.sc:1428:42714 */ t93730 = a15563; /* x270836 QobiScheme.sc:1428:42704 */ t93727 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t93727==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 1428, 42703); out_of_memory_error();} t93727->s0.tag = STRING_TYPE; t93727->s0.value.string_type = t93729; /* MOVE: branching squeezed to general */ if (t93730>=((struct structure_type24753 *)VALUE_OFFSET)) {t93727->s1.tag = STRUCTURE_TYPE24753; t93727->s1.value.structure_type24753 = t93730;} else t93727->s1.tag = (unsigned)t93730; /* x21343 QobiScheme.sc:1428:42721 */ /* x21342 QobiScheme.sc:1428:42722 */ t93731.tag = NULL_TYPE; t93728 = f1999(t93731); /* x21337 QobiScheme.sc:1428:42698 */ a15563 = t93727; a15564 = t93728; goto h2009; l18402: goto l18399; l18398: /* x21390 QobiScheme.sc:1429:42741 */ /* x21358 QobiScheme.sc:1429:42763 */ t93722 = a15560; /* x21389 QobiScheme.sc:1430:42778 */ /* x21357 QobiScheme.sc:1429:42742 */ t93723.tag = STRING_TYPE; t93723.value.string_type = t93722; t93724 = (struct p18678 *)NATIVE_PROCEDURE_TYPE10956; t93715 = f27790(t93723, t93724); l18399: /* x224739 stalin.sc:31185:1073988 */ a36229 = t93715; /* x276273 */ /* x276272 */ t93716 = a36229; /* x276271 */ if (!((t93716.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30378]"); structure_ref_error();} a663 = t93716.value.structure_type24753->s0; /* x224729 */ /* x224728 stalin.sc:31186:1074032 */ /* x224727 stalin.sc:31186:1074036 */ t93706 = "/tmp/QobiScheme.tmp"; /* x224726 stalin.sc:31186:1074033 */ f2186(t93706); l18396: /* x224722 */ /* x224721 stalin.sc:31187:1074061 */ a688 = a663; /* x225086 stalin.sc:31282:1077854 */ /* x225085 stalin.sc:31282:1077888 */ a687 = q17; /* x225088 stalin.sc:31283:1077903 */ /* x225087 stalin.sc:31283:1077934 */ a686 = q22; /* x225090 stalin.sc:31284:1077944 */ /* x225089 stalin.sc:31284:1077967 */ a685 = TRUE_TYPE; /* x225092 stalin.sc:31285:1077972 */ /* x225091 stalin.sc:31285:1077993 */ a684 = FALSE_TYPE; /* x225094 stalin.sc:31286:1077998 */ /* x225093 stalin.sc:31286:1078015 */ a683 = TRUE_TYPE; /* x225096 stalin.sc:31287:1078020 */ /* x225095 stalin.sc:31287:1078037 */ a682 = FALSE_TYPE; /* x225098 stalin.sc:31288:1078042 */ /* x225097 stalin.sc:31288:1078059 */ a681 = FALSE_TYPE; /* x225100 stalin.sc:31289:1078064 */ /* x225099 stalin.sc:31289:1078094 */ a680 = FALSE_TYPE; /* x225102 stalin.sc:31290:1078099 */ /* x225101 stalin.sc:31290:1078132 */ a679 = FALSE_TYPE; /* x225104 stalin.sc:31291:1078137 */ /* x225103 stalin.sc:31291:1078163 */ a678 = FALSE_TYPE; /* x225106 stalin.sc:31292:1078168 */ /* x225105 stalin.sc:31292:1078185 */ a677 = TRUE_TYPE; /* x225108 stalin.sc:31293:1078190 */ /* x225107 stalin.sc:31293:1078206 */ a676 = TRUE_TYPE; /* x225110 stalin.sc:31294:1078211 */ /* x225109 stalin.sc:31294:1078231 */ a675 = FALSE_TYPE; /* x225112 stalin.sc:31295:1078236 */ /* x225111 stalin.sc:31295:1078268 */ a674 = TRUE_TYPE; /* x225114 stalin.sc:31296:1078273 */ /* x225113 stalin.sc:31296:1078291 */ a673 = TRUE_TYPE; /* x225116 stalin.sc:31297:1078296 */ /* x225115 stalin.sc:31297:1078312 */ a672 = TRUE_TYPE; /* x225118 stalin.sc:31298:1078317 */ /* x225117 stalin.sc:31298:1078333 */ a671 = FALSE_TYPE; /* x225120 stalin.sc:31299:1078338 */ /* x225119 stalin.sc:31299:1078349 */ a670 = "gcc"; /* x224995 */ /* x224994 stalin.sc:31300:1078357 */ /* x224993 stalin.sc:31300:1078371 */ a669 = (struct structure_type24753 *)NULL_TYPE; /* x3034 stalin.sc:32763:1133594 */ /* x3027 stalin.sc:32763:1133600 */ if (a13818==FALSE_TYPE) goto l18404; /* x3031 */ /* x3030 */ /* x3029 stalin.sc:32763:1133603 */ /* x3028 stalin.sc:32763:1133636 */ a730 = TRUE_TYPE; goto l18405; l18404: /* x3033 stalin.sc:32763:1133594 */ /* x3032 stalin.sc:32763:1133594 */ l18405: /* x3046 stalin.sc:32764:1133642 */ /* x3035 stalin.sc:32764:1133648 */ if (a13817==FALSE_TYPE) goto l18407; /* x3043 */ /* x3042 */ /* x3041 */ /* x3040 stalin.sc:32765:1133653 */ /* x3039 stalin.sc:32765:1133686 */ a730 = TRUE_TYPE; /* x3038 */ /* x3037 stalin.sc:32766:1133692 */ /* x3036 stalin.sc:32766:1133713 */ a729 = TRUE_TYPE; goto l18408; l18407: /* x3045 stalin.sc:32764:1133642 */ /* x3044 stalin.sc:32764:1133642 */ l18408: /* x3060 stalin.sc:32767:1133719 */ /* x3047 stalin.sc:32767:1133725 */ if (a13816==FALSE_TYPE) goto l18410; /* x3057 */ /* x3056 */ /* x3055 */ /* x3052 stalin.sc:32768:1133730 */ /* x3051 stalin.sc:32768:1133763 */ a730 = TRUE_TYPE; /* x3054 stalin.sc:32769:1133769 */ /* x3053 stalin.sc:32769:1133790 */ a729 = TRUE_TYPE; /* x3050 */ /* x3049 stalin.sc:32770:1133796 */ /* x3048 stalin.sc:32770:1133816 */ a728 = TRUE_TYPE; goto l18411; l18410: /* x3059 stalin.sc:32767:1133719 */ /* x3058 stalin.sc:32767:1133719 */ l18411: /* x3076 stalin.sc:32771:1133822 */ /* x3061 stalin.sc:32771:1133828 */ if (a13815==FALSE_TYPE) goto l18413; /* x3073 */ /* x3072 */ /* x3071 */ /* x3066 stalin.sc:32772:1133833 */ /* x3065 stalin.sc:32772:1133866 */ a730 = TRUE_TYPE; /* x3068 stalin.sc:32773:1133872 */ /* x3067 stalin.sc:32773:1133893 */ a729 = TRUE_TYPE; /* x3070 stalin.sc:32774:1133899 */ /* x3069 stalin.sc:32774:1133919 */ a728 = TRUE_TYPE; /* x3064 */ /* x3063 stalin.sc:32775:1133925 */ /* x3062 stalin.sc:32775:1133942 */ a727 = TRUE_TYPE; goto l18414; l18413: /* x3075 stalin.sc:32771:1133822 */ /* x3074 stalin.sc:32771:1133822 */ l18414: /* x3084 stalin.sc:32776:1133948 */ /* x3077 stalin.sc:32776:1133954 */ if (a13814==FALSE_TYPE) goto l18416; /* x3081 */ /* x3080 */ /* x3079 stalin.sc:32777:1133987 */ /* x3078 stalin.sc:32777:1134026 */ a726 = TRUE_TYPE; goto l18417; l18416: /* x3083 stalin.sc:32776:1133948 */ /* x3082 stalin.sc:32776:1133948 */ l18417: /* x3092 stalin.sc:32778:1134032 */ /* x3085 stalin.sc:32778:1134038 */ if (a13813==FALSE_TYPE) goto l18419; /* x3089 */ /* x3088 */ /* x3087 stalin.sc:32779:1134078 */ /* x3086 stalin.sc:32779:1134117 */ a726 = FALSE_TYPE; goto l18420; l18419: /* x3091 stalin.sc:32778:1134032 */ /* x3090 stalin.sc:32778:1134032 */ l18420: /* x3100 stalin.sc:32780:1134123 */ /* x3093 stalin.sc:32780:1134129 */ if (a13812==FALSE_TYPE) goto l18422; /* x3097 */ /* x3096 */ /* x3095 stalin.sc:32781:1134175 */ /* x3094 stalin.sc:32781:1134227 */ a725 = TRUE_TYPE; goto l18423; l18422: /* x3099 stalin.sc:32780:1134123 */ /* x3098 stalin.sc:32780:1134123 */ l18423: /* x3108 stalin.sc:32782:1134233 */ /* x3101 stalin.sc:32782:1134239 */ if (a13811==FALSE_TYPE) goto l18425; /* x3105 */ /* x3104 */ /* x3103 stalin.sc:32783:1134292 */ /* x3102 stalin.sc:32783:1134344 */ a725 = FALSE_TYPE; goto l18426; l18425: /* x3107 stalin.sc:32782:1134233 */ /* x3106 stalin.sc:32782:1134233 */ l18426: /* x3116 stalin.sc:32784:1134350 */ /* x3109 stalin.sc:32784:1134356 */ if (a13810==FALSE_TYPE) goto l18428; /* x3113 */ /* x3112 */ /* x3111 stalin.sc:32785:1134404 */ /* x3110 stalin.sc:32785:1134458 */ a724 = TRUE_TYPE; goto l18429; l18428: /* x3115 stalin.sc:32784:1134350 */ /* x3114 stalin.sc:32784:1134350 */ l18429: /* x3124 stalin.sc:32786:1134464 */ /* x3117 stalin.sc:32786:1134470 */ if (a13809==FALSE_TYPE) goto l18431; /* x3121 */ /* x3120 */ /* x3119 stalin.sc:32787:1134525 */ /* x3118 stalin.sc:32787:1134579 */ a724 = FALSE_TYPE; goto l18432; l18431: /* x3123 stalin.sc:32786:1134464 */ /* x3122 stalin.sc:32786:1134464 */ l18432: /* x3132 stalin.sc:32788:1134585 */ /* x3125 stalin.sc:32788:1134591 */ if (a13808==FALSE_TYPE) goto l18434; /* x3129 */ /* x3128 */ /* x3127 stalin.sc:32789:1134639 */ /* x3126 stalin.sc:32789:1134693 */ a723 = TRUE_TYPE; goto l18435; l18434: /* x3131 stalin.sc:32788:1134585 */ /* x3130 stalin.sc:32788:1134585 */ l18435: /* x3140 stalin.sc:32790:1134699 */ /* x3133 stalin.sc:32790:1134705 */ if (a13807==FALSE_TYPE) goto l18437; /* x3137 */ /* x3136 */ /* x3135 stalin.sc:32791:1134760 */ /* x3134 stalin.sc:32791:1134814 */ a723 = FALSE_TYPE; goto l18438; l18437: /* x3139 stalin.sc:32790:1134699 */ /* x3138 stalin.sc:32790:1134699 */ l18438: /* x3148 stalin.sc:32792:1134820 */ /* x3141 stalin.sc:32792:1134826 */ if (a13806==FALSE_TYPE) goto l18440; /* x3145 */ /* x3144 */ /* x3143 stalin.sc:32793:1134875 */ /* x3142 stalin.sc:32793:1134930 */ a722 = TRUE_TYPE; goto l18441; l18440: /* x3147 stalin.sc:32792:1134820 */ /* x3146 stalin.sc:32792:1134820 */ l18441: /* x3156 stalin.sc:32794:1134936 */ /* x3149 stalin.sc:32794:1134942 */ if (a13805==FALSE_TYPE) goto l18443; /* x3153 */ /* x3152 */ /* x3151 stalin.sc:32795:1134998 */ /* x3150 stalin.sc:32795:1135053 */ a722 = FALSE_TYPE; goto l18444; l18443: /* x3155 stalin.sc:32794:1134936 */ /* x3154 stalin.sc:32794:1134936 */ l18444: /* x3164 stalin.sc:32796:1135059 */ /* x3157 stalin.sc:32796:1135065 */ if (a13804==FALSE_TYPE) goto l18446; /* x3161 */ /* x3160 */ /* x3159 stalin.sc:32797:1135114 */ /* x3158 stalin.sc:32797:1135169 */ a721 = TRUE_TYPE; goto l18447; l18446: /* x3163 stalin.sc:32796:1135059 */ /* x3162 stalin.sc:32796:1135059 */ l18447: /* x3172 stalin.sc:32798:1135175 */ /* x3165 stalin.sc:32798:1135181 */ if (a13803==FALSE_TYPE) goto l18449; /* x3169 */ /* x3168 */ /* x3167 stalin.sc:32799:1135237 */ /* x3166 stalin.sc:32799:1135292 */ a721 = FALSE_TYPE; goto l18450; l18449: /* x3171 stalin.sc:32798:1135175 */ /* x3170 stalin.sc:32798:1135175 */ l18450: /* x3180 stalin.sc:32800:1135298 */ /* x3173 stalin.sc:32800:1135304 */ if (a13802==FALSE_TYPE) goto l18452; /* x3177 */ /* x3176 */ /* x3175 stalin.sc:32801:1135358 */ /* x3174 stalin.sc:32801:1135418 */ a720 = TRUE_TYPE; goto l18453; l18452: /* x3179 stalin.sc:32800:1135298 */ /* x3178 stalin.sc:32800:1135298 */ l18453: /* x3188 stalin.sc:32802:1135424 */ /* x3181 stalin.sc:32802:1135430 */ if (a13801==FALSE_TYPE) goto l18455; /* x3185 */ /* x3184 */ /* x3183 stalin.sc:32803:1135491 */ /* x3182 stalin.sc:32803:1135551 */ a720 = FALSE_TYPE; goto l18456; l18455: /* x3187 stalin.sc:32802:1135424 */ /* x3186 stalin.sc:32802:1135424 */ l18456: /* x3196 stalin.sc:32804:1135557 */ /* x3189 stalin.sc:32804:1135563 */ if (a13800==FALSE_TYPE) goto l18458; /* x3193 */ /* x3192 */ /* x3191 stalin.sc:32805:1135615 */ /* x3190 stalin.sc:32805:1135673 */ a719 = TRUE_TYPE; goto l18459; l18458: /* x3195 stalin.sc:32804:1135557 */ /* x3194 stalin.sc:32804:1135557 */ l18459: /* x3204 stalin.sc:32806:1135679 */ /* x3197 stalin.sc:32806:1135685 */ if (a13799==FALSE_TYPE) goto l18461; /* x3201 */ /* x3200 */ /* x3199 stalin.sc:32807:1135744 */ /* x3198 stalin.sc:32807:1135802 */ a719 = FALSE_TYPE; goto l18462; l18461: /* x3203 stalin.sc:32806:1135679 */ /* x3202 stalin.sc:32806:1135679 */ l18462: /* x3212 stalin.sc:32808:1135808 */ /* x3205 stalin.sc:32808:1135814 */ if (a13798==FALSE_TYPE) goto l18464; /* x3209 */ /* x3208 */ /* x3207 stalin.sc:32809:1135869 */ /* x3206 stalin.sc:32809:1135930 */ a718 = TRUE_TYPE; goto l18465; l18464: /* x3211 stalin.sc:32808:1135808 */ /* x3210 stalin.sc:32808:1135808 */ l18465: /* x3220 stalin.sc:32810:1135936 */ /* x3213 stalin.sc:32810:1135942 */ if (a13797==FALSE_TYPE) goto l18467; /* x3217 */ /* x3216 */ /* x3215 stalin.sc:32811:1136004 */ /* x3214 stalin.sc:32811:1136065 */ a718 = FALSE_TYPE; goto l18468; l18467: /* x3219 stalin.sc:32810:1135936 */ /* x3218 stalin.sc:32810:1135936 */ l18468: /* x3228 stalin.sc:32812:1136071 */ /* x3221 stalin.sc:32812:1136077 */ if (a13796==FALSE_TYPE) goto l18470; /* x3225 */ /* x3224 */ /* x3223 stalin.sc:32813:1136130 */ /* x3222 stalin.sc:32813:1136189 */ a717 = TRUE_TYPE; goto l18471; l18470: /* x3227 stalin.sc:32812:1136071 */ /* x3226 stalin.sc:32812:1136071 */ l18471: /* x3236 stalin.sc:32814:1136195 */ /* x3229 stalin.sc:32814:1136201 */ if (a13795==FALSE_TYPE) goto l18473; /* x3233 */ /* x3232 */ /* x3231 stalin.sc:32815:1136261 */ /* x3230 stalin.sc:32815:1136320 */ a717 = FALSE_TYPE; goto l18474; l18473: /* x3235 stalin.sc:32814:1136195 */ /* x3234 stalin.sc:32814:1136195 */ l18474: /* x3244 stalin.sc:32816:1136326 */ /* x3237 stalin.sc:32816:1136332 */ if (a13794==FALSE_TYPE) goto l18476; /* x3241 */ /* x3240 */ /* x3239 stalin.sc:32817:1136389 */ /* x3238 stalin.sc:32817:1136452 */ goto l18477; l18476: /* x3243 stalin.sc:32816:1136326 */ /* x3242 stalin.sc:32816:1136326 */ l18477: /* x3252 stalin.sc:32818:1136458 */ /* x3245 stalin.sc:32818:1136464 */ if (a13793==FALSE_TYPE) goto l18479; /* x3249 */ /* x3248 */ /* x3247 stalin.sc:32819:1136528 */ /* x3246 stalin.sc:32819:1136591 */ goto l18480; l18479: /* x3251 stalin.sc:32818:1136458 */ /* x3250 stalin.sc:32818:1136458 */ l18480: /* x3260 stalin.sc:32820:1136597 */ /* x3253 stalin.sc:32820:1136603 */ if (a13792==FALSE_TYPE) goto l18482; /* x3257 */ /* x3256 */ /* x3255 stalin.sc:32821:1136658 */ /* x3254 stalin.sc:32821:1136719 */ goto l18483; l18482: /* x3259 stalin.sc:32820:1136597 */ /* x3258 stalin.sc:32820:1136597 */ l18483: /* x3268 stalin.sc:32822:1136725 */ /* x3261 stalin.sc:32822:1136731 */ if (a13791==FALSE_TYPE) goto l18485; /* x3265 */ /* x3264 */ /* x3263 stalin.sc:32823:1136793 */ /* x3262 stalin.sc:32823:1136854 */ goto l18486; l18485: /* x3267 stalin.sc:32822:1136725 */ /* x3266 stalin.sc:32822:1136725 */ l18486: /* x3276 stalin.sc:32824:1136860 */ /* x3269 stalin.sc:32824:1136866 */ if (a13790==FALSE_TYPE) goto l18488; /* x3273 */ /* x3272 */ /* x3271 stalin.sc:32825:1136924 */ /* x3270 stalin.sc:32825:1136988 */ goto l18489; l18488: /* x3275 stalin.sc:32824:1136860 */ /* x3274 stalin.sc:32824:1136860 */ l18489: /* x3284 stalin.sc:32826:1136994 */ /* x3277 stalin.sc:32826:1137000 */ if (a13789==FALSE_TYPE) goto l18491; /* x3281 */ /* x3280 */ /* x3279 stalin.sc:32827:1137065 */ /* x3278 stalin.sc:32827:1137129 */ goto l18492; l18491: /* x3283 stalin.sc:32826:1136994 */ /* x3282 stalin.sc:32826:1136994 */ l18492: /* x3292 stalin.sc:32828:1137135 */ /* x3285 stalin.sc:32828:1137141 */ if (a13788==FALSE_TYPE) goto l18494; /* x3289 */ /* x3288 */ /* x3287 stalin.sc:32829:1137197 */ /* x3286 stalin.sc:32829:1137259 */ goto l18495; l18494: /* x3291 stalin.sc:32828:1137135 */ /* x3290 stalin.sc:32828:1137135 */ l18495: /* x3300 stalin.sc:32830:1137265 */ /* x3293 stalin.sc:32830:1137271 */ if (a13787==FALSE_TYPE) goto l18497; /* x3297 */ /* x3296 */ /* x3295 stalin.sc:32831:1137334 */ /* x3294 stalin.sc:32831:1137396 */ goto l18498; l18497: /* x3299 stalin.sc:32830:1137265 */ /* x3298 stalin.sc:32830:1137265 */ l18498: /* x3352 stalin.sc:32832:1137402 */ /* x3301 stalin.sc:32832:1137409 */ if (a13786==FALSE_TYPE) goto l18500; /* x3305 */ /* x3304 */ /* x3303 stalin.sc:32832:1137430 */ /* x3302 stalin.sc:32832:1137455 */ a712 = -1; goto l18501; l18500: /* x3351 */ /* x3306 stalin.sc:32833:1137468 */ if (a13785==FALSE_TYPE) goto l18503; /* x3348 */ /* x3347 */ /* x3346 */ /* x3345 stalin.sc:32834:1137487 */ /* x3332 stalin.sc:32834:1137493 */ /* x3331 stalin.sc:32834:1137497 */ /* x3330 stalin.sc:32834:1137502 */ /* x3329 stalin.sc:32834:1137512 */ t93744 = a13784; /* x271322 stalin.sc:32834:1137503 */ /* x3324 */ /* x3323 stalin.sc:32835:1137535 */ /* x3322 stalin.sc:32835:1137540 */ /* x3321 stalin.sc:32835:1137548 */ t93745 = a13784; /* x271324 stalin.sc:32835:1137541 */ /* x3316 */ /* x3315 stalin.sc:32836:1137582 */ t93746 = a13784; /* x271326 stalin.sc:32836:1137572 */ if (!(t93746<0)) goto l18506; /* x3342 */ /* x3341 */ /* x3340 */ /* x3339 stalin.sc:32837:1137603 */ /* x3338 stalin.sc:32837:1137642 */ t93749 = a13784; /* x3337 stalin.sc:32837:1137611 */ t93748 = "Invalid clone size limit: ~a"; /* x3336 stalin.sc:32837:1137604 */ t93750.tag = STRING_TYPE; t93750.value.string_type = t93748; t93751 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t93751==NULL) {backtrace("stalin.sc", 32837, 1137603); out_of_memory_error();} t93751->s0.tag = FIXNUM_TYPE; t93751->s0.value.fixnum_type = t93749; t93751->s1.tag = NULL_TYPE; f5365(t93750, t93751); /* x3335 */ /* x3334 stalin.sc:32838:1137662 */ /* x3333 stalin.sc:32838:1137663 */ /* x294849 stalin.sc:87:2881 */ /* x294848 stalin.sc:87:2887 */ t93747 = -1; /* x294847 stalin.sc:87:2882 */ exit(t93747); goto l18507; l18506: /* x3344 stalin.sc:32834:1137487 */ /* x3343 stalin.sc:32834:1137487 */ l18507: /* x3309 */ /* x3308 stalin.sc:32839:1137676 */ /* x3307 stalin.sc:32839:1137701 */ a712 = a13784; goto l18504; l18503: /* x3350 */ /* x3349 */ l18504: l18501: /* x3360 stalin.sc:32840:1137722 */ /* x3353 stalin.sc:32840:1137728 */ if (a13783==FALSE_TYPE) goto l18511; /* x3357 */ /* x3356 */ /* x3355 stalin.sc:32840:1137755 */ /* x3354 stalin.sc:32840:1137790 */ a711 = TRUE_TYPE; goto l18512; l18511: /* x3359 stalin.sc:32840:1137722 */ /* x3358 stalin.sc:32840:1137722 */ l18512: /* x3368 stalin.sc:32841:1137796 */ /* x3361 stalin.sc:32841:1137802 */ if (a13782==FALSE_TYPE) goto l18514; /* x3365 */ /* x3364 */ /* x3363 stalin.sc:32841:1137824 */ /* x3362 stalin.sc:32841:1137854 */ a710 = TRUE_TYPE; goto l18515; l18514: /* x3367 stalin.sc:32841:1137796 */ /* x3366 stalin.sc:32841:1137796 */ l18515: /* x3376 stalin.sc:32842:1137860 */ /* x3369 stalin.sc:32842:1137866 */ if (a13781==FALSE_TYPE) goto l18517; /* x3373 */ /* x3372 */ /* x3371 stalin.sc:32842:1137893 */ /* x3370 stalin.sc:32842:1137928 */ a709 = TRUE_TYPE; goto l18518; l18517: /* x3375 stalin.sc:32842:1137860 */ /* x3374 stalin.sc:32842:1137860 */ l18518: /* x3384 stalin.sc:32843:1137934 */ /* x3377 stalin.sc:32843:1137940 */ if (a13780==FALSE_TYPE) goto l18520; /* x3381 */ /* x3380 */ /* x3379 stalin.sc:32843:1137960 */ /* x3378 stalin.sc:32843:1137980 */ a708 = FALSE_TYPE; goto l18521; l18520: /* x3383 stalin.sc:32843:1137934 */ /* x3382 stalin.sc:32843:1137934 */ l18521: /* x3392 stalin.sc:32844:1137986 */ /* x3385 stalin.sc:32844:1137992 */ if (a13779==FALSE_TYPE) goto l18523; /* x3389 */ /* x3388 */ /* x3387 stalin.sc:32844:1138015 */ /* x3386 stalin.sc:32844:1138038 */ a707 = FALSE_TYPE; goto l18524; l18523: /* x3391 stalin.sc:32844:1137986 */ /* x3390 stalin.sc:32844:1137986 */ l18524: /* x3400 stalin.sc:32845:1138044 */ /* x3393 stalin.sc:32845:1138050 */ if (a13778==FALSE_TYPE) goto l18526; /* x3397 */ /* x3396 */ /* x3395 stalin.sc:32845:1138073 */ /* x3394 stalin.sc:32845:1138096 */ a706 = FALSE_TYPE; goto l18527; l18526: /* x3399 stalin.sc:32845:1138044 */ /* x3398 stalin.sc:32845:1138044 */ l18527: /* x3408 stalin.sc:32846:1138102 */ /* x3401 stalin.sc:32846:1138108 */ if (a13777==FALSE_TYPE) goto l18529; /* x3405 */ /* x3404 */ /* x3403 stalin.sc:32846:1138133 */ /* x3402 stalin.sc:32846:1138158 */ a705 = FALSE_TYPE; goto l18530; l18529: /* x3407 stalin.sc:32846:1138102 */ /* x3406 stalin.sc:32846:1138102 */ l18530: /* x3416 stalin.sc:32847:1138164 */ /* x3409 stalin.sc:32847:1138170 */ if (a13776==FALSE_TYPE) goto l18532; /* x3413 */ /* x3412 */ /* x3411 stalin.sc:32847:1138194 */ /* x3410 stalin.sc:32847:1138218 */ a704 = FALSE_TYPE; goto l18533; l18532: /* x3415 stalin.sc:32847:1138164 */ /* x3414 stalin.sc:32847:1138164 */ l18533: /* x3424 stalin.sc:32848:1138224 */ /* x3417 stalin.sc:32848:1138230 */ if (a13775==FALSE_TYPE) goto l18535; /* x3421 */ /* x3420 */ /* x3419 stalin.sc:32848:1138251 */ /* x3418 stalin.sc:32848:1138272 */ a703 = FALSE_TYPE; goto l18536; l18535: /* x3423 stalin.sc:32848:1138224 */ /* x3422 stalin.sc:32848:1138224 */ l18536: /* x3432 stalin.sc:32849:1138278 */ /* x3425 stalin.sc:32849:1138284 */ if (a13774==FALSE_TYPE) goto l18538; /* x3429 */ /* x3428 */ /* x3427 stalin.sc:32849:1138288 */ /* x3426 stalin.sc:32849:1138303 */ goto l18539; l18538: /* x3431 stalin.sc:32849:1138278 */ /* x3430 stalin.sc:32849:1138278 */ l18539: /* x3440 stalin.sc:32850:1138309 */ /* x3433 stalin.sc:32850:1138315 */ if (a13773==FALSE_TYPE) goto l18541; /* x3437 */ /* x3436 */ /* x3435 stalin.sc:32850:1138319 */ /* x3434 stalin.sc:32850:1138331 */ a702 = TRUE_TYPE; goto l18542; l18541: /* x3439 stalin.sc:32850:1138309 */ /* x3438 stalin.sc:32850:1138309 */ l18542: /* x3448 stalin.sc:32851:1138337 */ /* x3441 stalin.sc:32851:1138343 */ if (a13772==FALSE_TYPE) goto l18544; /* x3445 */ /* x3444 */ /* x3443 stalin.sc:32851:1138347 */ /* x3442 stalin.sc:32851:1138359 */ a701 = TRUE_TYPE; goto l18545; l18544: /* x3447 stalin.sc:32851:1138337 */ /* x3446 stalin.sc:32851:1138337 */ l18545: /* x3456 stalin.sc:32852:1138365 */ /* x3449 stalin.sc:32852:1138371 */ if (a13771==FALSE_TYPE) goto l18547; /* x3453 */ /* x3452 */ /* x3451 stalin.sc:32852:1138375 */ /* x3450 stalin.sc:32852:1138387 */ a700 = TRUE_TYPE; goto l18548; l18547: /* x3455 stalin.sc:32852:1138365 */ /* x3454 stalin.sc:32852:1138365 */ l18548: /* x3464 stalin.sc:32853:1138393 */ /* x3457 stalin.sc:32853:1138399 */ if (a13770==FALSE_TYPE) goto l18550; /* x3461 */ /* x3460 */ /* x3459 stalin.sc:32853:1138403 */ /* x3458 stalin.sc:32853:1138415 */ a699 = TRUE_TYPE; goto l18551; l18550: /* x3463 stalin.sc:32853:1138393 */ /* x3462 stalin.sc:32853:1138393 */ l18551: /* x3472 stalin.sc:32854:1138421 */ /* x3465 stalin.sc:32854:1138427 */ if (a13769==FALSE_TYPE) goto l18553; /* x3469 */ /* x3468 */ /* x3467 stalin.sc:32854:1138431 */ /* x3466 stalin.sc:32854:1138443 */ a698 = TRUE_TYPE; goto l18554; l18553: /* x3471 stalin.sc:32854:1138421 */ /* x3470 stalin.sc:32854:1138421 */ l18554: /* x3480 stalin.sc:32855:1138449 */ /* x3473 stalin.sc:32855:1138455 */ if (a13768==FALSE_TYPE) goto l18556; /* x3477 */ /* x3476 */ /* x3475 stalin.sc:32855:1138459 */ /* x3474 stalin.sc:32855:1138471 */ a697 = TRUE_TYPE; goto l18557; l18556: /* x3479 stalin.sc:32855:1138449 */ /* x3478 stalin.sc:32855:1138449 */ l18557: /* x3488 stalin.sc:32856:1138477 */ /* x3481 stalin.sc:32856:1138483 */ if (a13767==FALSE_TYPE) goto l18559; /* x3485 */ /* x3484 */ /* x3483 stalin.sc:32856:1138487 */ /* x3482 stalin.sc:32856:1138499 */ a696 = TRUE_TYPE; goto l18560; l18559: /* x3487 stalin.sc:32856:1138477 */ /* x3486 stalin.sc:32856:1138477 */ l18560: /* x3496 stalin.sc:32857:1138505 */ /* x3489 stalin.sc:32857:1138511 */ if (a13766==FALSE_TYPE) goto l18562; /* x3493 */ /* x3492 */ /* x3491 stalin.sc:32858:1138544 */ /* x3490 stalin.sc:32858:1138583 */ a695 = TRUE_TYPE; goto l18563; l18562: /* x3495 stalin.sc:32857:1138505 */ /* x3494 stalin.sc:32857:1138505 */ l18563: /* x3504 stalin.sc:32859:1138589 */ /* x3497 stalin.sc:32859:1138595 */ if (a13765==FALSE_TYPE) goto l18565; /* x3501 */ /* x3500 */ /* x3499 stalin.sc:32859:1138621 */ /* x3498 stalin.sc:32859:1138647 */ a694 = FALSE_TYPE; goto l18566; l18565: /* x3503 stalin.sc:32859:1138589 */ /* x3502 stalin.sc:32859:1138589 */ l18566: /* x3512 stalin.sc:32860:1138653 */ /* x3505 stalin.sc:32860:1138659 */ if (a13764==FALSE_TYPE) goto l18568; /* x3509 */ /* x3508 */ /* x3507 stalin.sc:32860:1138684 */ /* x3506 stalin.sc:32860:1138709 */ a693 = FALSE_TYPE; goto l18569; l18568: /* x3511 stalin.sc:32860:1138653 */ /* x3510 stalin.sc:32860:1138653 */ l18569: /* x3520 stalin.sc:32861:1138715 */ /* x3513 stalin.sc:32861:1138721 */ if (a13763==FALSE_TYPE) goto l18571; /* x3517 */ /* x3516 */ /* x3515 stalin.sc:32861:1138748 */ /* x3514 stalin.sc:32861:1138775 */ a692 = FALSE_TYPE; goto l18572; l18571: /* x3519 stalin.sc:32861:1138715 */ /* x3518 stalin.sc:32861:1138715 */ l18572: /* x3528 stalin.sc:32862:1138781 */ /* x3521 stalin.sc:32862:1138787 */ if (a13762==FALSE_TYPE) goto l18574; /* x3525 */ /* x3524 */ /* x3523 stalin.sc:32862:1138804 */ /* x3522 stalin.sc:32862:1138829 */ a691 = TRUE_TYPE; goto l18575; l18574: /* x3527 stalin.sc:32862:1138781 */ /* x3526 stalin.sc:32862:1138781 */ l18575: /* x3536 stalin.sc:32863:1138835 */ /* x3529 stalin.sc:32863:1138841 */ if (a13761==FALSE_TYPE) goto l18577; /* x3533 */ /* x3532 */ /* x3531 stalin.sc:32863:1138869 */ /* x3530 stalin.sc:32863:1138897 */ a690 = FALSE_TYPE; goto l18578; l18577: /* x3535 stalin.sc:32863:1138835 */ /* x3534 stalin.sc:32863:1138835 */ l18578: /* x3544 stalin.sc:32864:1138903 */ /* x3537 stalin.sc:32864:1138909 */ if (a13760==FALSE_TYPE) goto l18580; /* x3541 */ /* x3540 */ /* x3539 stalin.sc:32864:1138912 */ /* x3538 stalin.sc:32864:1138942 */ a689 = q14; goto l18581; l18580: /* x3543 stalin.sc:32864:1138903 */ /* x3542 stalin.sc:32864:1138903 */ l18581: /* x3552 stalin.sc:32865:1138953 */ /* x3545 stalin.sc:32865:1138959 */ if (a13759==FALSE_TYPE) goto l18583; /* x3549 */ /* x3548 */ /* x3547 stalin.sc:32865:1138978 */ /* x3546 stalin.sc:32865:1139004 */ a688.tag = STRING_TYPE; a688.value.string_type = a13758; goto l18584; l18583: /* x3551 stalin.sc:32865:1138953 */ /* x3550 stalin.sc:32865:1138953 */ l18584: /* x3560 stalin.sc:32866:1139025 */ /* x3553 stalin.sc:32866:1139031 */ if (a13757==FALSE_TYPE) goto l18586; /* x3557 */ /* x3556 */ /* x3555 stalin.sc:32866:1139041 */ /* x3554 stalin.sc:32866:1139075 */ a687 = q15; goto l18587; l18586: /* x3559 stalin.sc:32866:1139025 */ /* x3558 stalin.sc:32866:1139025 */ l18587: /* x3568 stalin.sc:32867:1139088 */ /* x3561 stalin.sc:32867:1139094 */ if (a13756==FALSE_TYPE) goto l18589; /* x3565 */ /* x3564 */ /* x3563 stalin.sc:32867:1139108 */ /* x3562 stalin.sc:32867:1139142 */ a687 = q16; goto l18590; l18589: /* x3567 stalin.sc:32867:1139088 */ /* x3566 stalin.sc:32867:1139088 */ l18590: /* x3576 stalin.sc:32868:1139159 */ /* x3569 stalin.sc:32868:1139165 */ if (a13755==FALSE_TYPE) goto l18592; /* x3573 */ /* x3572 */ /* x3571 stalin.sc:32868:1139178 */ /* x3570 stalin.sc:32868:1139212 */ a687 = q17; goto l18593; l18592: /* x3575 stalin.sc:32868:1139159 */ /* x3574 stalin.sc:32868:1139159 */ l18593: /* x3584 stalin.sc:32869:1139228 */ /* x3577 stalin.sc:32869:1139234 */ if (a13754==FALSE_TYPE) goto l18595; /* x3581 */ /* x3580 */ /* x3579 stalin.sc:32869:1139250 */ /* x3578 stalin.sc:32869:1139281 */ a686 = q18; goto l18596; l18595: /* x3583 stalin.sc:32869:1139228 */ /* x3582 stalin.sc:32869:1139228 */ l18596: /* x3592 stalin.sc:32870:1139300 */ /* x3585 stalin.sc:32870:1139306 */ if (a13753==FALSE_TYPE) goto l18598; /* x3589 */ /* x3588 */ /* x3587 stalin.sc:32870:1139321 */ /* x3586 stalin.sc:32870:1139352 */ a686 = q19; goto l18599; l18598: /* x3591 stalin.sc:32870:1139300 */ /* x3590 stalin.sc:32870:1139300 */ l18599: /* x3600 stalin.sc:32871:1139370 */ /* x3593 stalin.sc:32871:1139376 */ if (a13752==FALSE_TYPE) goto l18601; /* x3597 */ /* x3596 */ /* x3595 stalin.sc:32871:1139395 */ /* x3594 stalin.sc:32871:1139426 */ a686 = q20; goto l18602; l18601: /* x3599 stalin.sc:32871:1139370 */ /* x3598 stalin.sc:32871:1139370 */ l18602: /* x3608 stalin.sc:32872:1139448 */ /* x3601 stalin.sc:32872:1139454 */ if (a13751==FALSE_TYPE) goto l18604; /* x3605 */ /* x3604 */ /* x3603 stalin.sc:32872:1139472 */ /* x3602 stalin.sc:32872:1139503 */ a686 = q21; goto l18605; l18604: /* x3607 stalin.sc:32872:1139448 */ /* x3606 stalin.sc:32872:1139448 */ l18605: /* x3616 stalin.sc:32873:1139524 */ /* x3609 stalin.sc:32873:1139530 */ if (a13750==FALSE_TYPE) goto l18607; /* x3613 */ /* x3612 */ /* x3611 stalin.sc:32873:1139538 */ /* x3610 stalin.sc:32873:1139569 */ a686 = q22; goto l18608; l18607: /* x3615 stalin.sc:32873:1139524 */ /* x3614 stalin.sc:32873:1139524 */ l18608: /* x3624 stalin.sc:32874:1139580 */ /* x3617 stalin.sc:32874:1139586 */ if (a13749==FALSE_TYPE) goto l18610; /* x3621 */ /* x3620 */ /* x3619 stalin.sc:32874:1139601 */ /* x3618 stalin.sc:32874:1139624 */ a685 = TRUE_TYPE; goto l18611; l18610: /* x3623 stalin.sc:32874:1139580 */ /* x3622 stalin.sc:32874:1139580 */ l18611: /* x3632 stalin.sc:32875:1139630 */ /* x3625 stalin.sc:32875:1139636 */ if (a13748==FALSE_TYPE) goto l18613; /* x3629 */ /* x3628 */ /* x3627 stalin.sc:32875:1139658 */ /* x3626 stalin.sc:32875:1139681 */ a685 = FALSE_TYPE; goto l18614; l18613: /* x3631 stalin.sc:32875:1139630 */ /* x3630 stalin.sc:32875:1139630 */ l18614: /* x3640 stalin.sc:32876:1139687 */ /* x3633 stalin.sc:32876:1139693 */ if (a13747==FALSE_TYPE) goto l18616; /* x3637 */ /* x3636 */ /* x3635 stalin.sc:32876:1139706 */ /* x3634 stalin.sc:32876:1139727 */ a684 = TRUE_TYPE; goto l18617; l18616: /* x3639 stalin.sc:32876:1139687 */ /* x3638 stalin.sc:32876:1139687 */ l18617: /* x3648 stalin.sc:32877:1139733 */ /* x3641 stalin.sc:32877:1139739 */ if (a13746==FALSE_TYPE) goto l18619; /* x3645 */ /* x3644 */ /* x3643 stalin.sc:32877:1139756 */ /* x3642 stalin.sc:32877:1139773 */ a683 = FALSE_TYPE; goto l18620; l18619: /* x3647 stalin.sc:32877:1139733 */ /* x3646 stalin.sc:32877:1139733 */ l18620: /* x3656 stalin.sc:32878:1139779 */ /* x3649 stalin.sc:32878:1139785 */ if (a13745==FALSE_TYPE) goto l18622; /* x3653 */ /* x3652 */ /* x3651 stalin.sc:32878:1139794 */ /* x3650 stalin.sc:32878:1139811 */ a682 = TRUE_TYPE; goto l18623; l18622: /* x3655 stalin.sc:32878:1139779 */ /* x3654 stalin.sc:32878:1139779 */ l18623: /* x3664 stalin.sc:32879:1139817 */ /* x3657 stalin.sc:32879:1139823 */ if (a13744==FALSE_TYPE) goto l18625; /* x3661 */ /* x3660 */ /* x3659 stalin.sc:32879:1139832 */ /* x3658 stalin.sc:32879:1139849 */ a681 = TRUE_TYPE; goto l18626; l18625: /* x3663 stalin.sc:32879:1139817 */ /* x3662 stalin.sc:32879:1139817 */ l18626: /* x3672 stalin.sc:32880:1139855 */ /* x3665 stalin.sc:32880:1139861 */ if (a13743==FALSE_TYPE) goto l18628; /* x3669 */ /* x3668 */ /* x3667 stalin.sc:32880:1139883 */ /* x3666 stalin.sc:32880:1139913 */ a680 = TRUE_TYPE; goto l18629; l18628: /* x3671 stalin.sc:32880:1139855 */ /* x3670 stalin.sc:32880:1139855 */ l18629: /* x3680 stalin.sc:32881:1139919 */ /* x3673 stalin.sc:32881:1139925 */ if (a13742==FALSE_TYPE) goto l18631; /* x3677 */ /* x3676 */ /* x3675 stalin.sc:32881:1139950 */ /* x3674 stalin.sc:32881:1139983 */ a679 = TRUE_TYPE; goto l18632; l18631: /* x3679 stalin.sc:32881:1139919 */ /* x3678 stalin.sc:32881:1139919 */ l18632: /* x3688 stalin.sc:32882:1139989 */ /* x3681 stalin.sc:32882:1139995 */ if (a13741==FALSE_TYPE) goto l18634; /* x3685 */ /* x3684 */ /* x3683 stalin.sc:32882:1140013 */ /* x3682 stalin.sc:32882:1140039 */ a678 = TRUE_TYPE; goto l18635; l18634: /* x3687 stalin.sc:32882:1139989 */ /* x3686 stalin.sc:32882:1139989 */ l18635: /* x3700 stalin.sc:32883:1140045 */ /* x3689 stalin.sc:32883:1140051 */ if (a13740==FALSE_TYPE) goto l18637; /* x3697 */ /* x3696 */ /* x3695 */ /* x3694 stalin.sc:32884:1140072 */ /* x3693 stalin.sc:32884:1140089 */ a677 = FALSE_TYPE; /* x3692 */ /* x3691 stalin.sc:32885:1140095 */ /* x3690 stalin.sc:32885:1140111 */ a676 = FALSE_TYPE; goto l18638; l18637: /* x3699 stalin.sc:32883:1140045 */ /* x3698 stalin.sc:32883:1140045 */ l18638: /* x3708 stalin.sc:32886:1140117 */ /* x3701 stalin.sc:32886:1140123 */ if (a13739==FALSE_TYPE) goto l18640; /* x3705 */ /* x3704 */ /* x3703 stalin.sc:32886:1140142 */ /* x3702 stalin.sc:32886:1140158 */ a676 = FALSE_TYPE; goto l18641; l18640: /* x3707 stalin.sc:32886:1140117 */ /* x3706 stalin.sc:32886:1140117 */ l18641: /* x3716 stalin.sc:32887:1140164 */ /* x3709 stalin.sc:32887:1140170 */ if (a13738==FALSE_TYPE) goto l18643; /* x3713 */ /* x3712 */ /* x3711 stalin.sc:32887:1140182 */ /* x3710 stalin.sc:32887:1140202 */ a675 = TRUE_TYPE; goto l18644; l18643: /* x3715 stalin.sc:32887:1140164 */ /* x3714 stalin.sc:32887:1140164 */ l18644: /* x3724 stalin.sc:32888:1140208 */ /* x3717 stalin.sc:32888:1140214 */ if (a13737==FALSE_TYPE) goto l18646; /* x3721 */ /* x3720 */ /* x3719 stalin.sc:32888:1140246 */ /* x3718 stalin.sc:32888:1140278 */ a674 = FALSE_TYPE; goto l18647; l18646: /* x3723 stalin.sc:32888:1140208 */ /* x3722 stalin.sc:32888:1140208 */ l18647: /* x3732 stalin.sc:32889:1140284 */ /* x3725 stalin.sc:32889:1140290 */ if (a13736==FALSE_TYPE) goto l18649; /* x3729 */ /* x3728 */ /* x3727 stalin.sc:32889:1140308 */ /* x3726 stalin.sc:32889:1140326 */ a673 = FALSE_TYPE; goto l18650; l18649: /* x3731 stalin.sc:32889:1140284 */ /* x3730 stalin.sc:32889:1140284 */ l18650: /* x3740 stalin.sc:32890:1140332 */ /* x3733 stalin.sc:32890:1140338 */ if (a13735==FALSE_TYPE) goto l18652; /* x3737 */ /* x3736 */ /* x3735 stalin.sc:32890:1140354 */ /* x3734 stalin.sc:32890:1140370 */ a672 = FALSE_TYPE; goto l18653; l18652: /* x3739 stalin.sc:32890:1140332 */ /* x3738 stalin.sc:32890:1140332 */ l18653: /* x3748 stalin.sc:32891:1140376 */ /* x3741 stalin.sc:32891:1140382 */ if (a13734==FALSE_TYPE) goto l18655; /* x3745 */ /* x3744 */ /* x3743 stalin.sc:32891:1140390 */ /* x3742 stalin.sc:32891:1140406 */ a671 = TRUE_TYPE; goto l18656; l18655: /* x3747 stalin.sc:32891:1140376 */ /* x3746 stalin.sc:32891:1140376 */ l18656: /* x3756 stalin.sc:32892:1140412 */ /* x3749 stalin.sc:32892:1140418 */ if (a13733==FALSE_TYPE) goto l18658; /* x3753 */ /* x3752 */ /* x3751 stalin.sc:32892:1140422 */ /* x3750 stalin.sc:32892:1140433 */ a670 = a13732; goto l18659; l18658: /* x3755 stalin.sc:32892:1140412 */ /* x3754 stalin.sc:32892:1140412 */ l18659: /* x3758 stalin.sc:32893:1140439 */ /* x3757 stalin.sc:32893:1140453 */ a669 = a13730; /* x49 */ /* x48 stalin.sc:32894:1140461 */ /* x1 stalin.sc:32894:1140469 */ t89294 = a13729; /* x47 */ /* x0 stalin.sc:32894:1140462 */ a33038 = t89294; /* x230007 */ /* x229906 stalin.sc:31789:1095170 */ /* x229897 stalin.sc:31789:1095176 */ if (a705==FALSE_TYPE) goto l17711; /* x229903 */ /* x229902 */ /* x229901 stalin.sc:31790:1095197 */ /* x229899 stalin.sc:31791:1095215 */ /* x229900 stalin.sc:31791:1095218 */ t92948 = "For now, you must specify -On because safe fixnum arithmetic is not (yet) implemented"; /* x229898 stalin.sc:31790:1095198 */ t92949.tag = FALSE_TYPE; f9707(t92949, t92948); goto l17712; l17711: /* x229905 stalin.sc:31789:1095170 */ /* x229904 stalin.sc:31789:1095170 */ l17712: /* x229954 stalin.sc:31792:1095309 */ /* x229907 stalin.sc:31792:1095315 */ if (a675==FALSE_TYPE) goto l17714; /* x229951 */ /* x229950 */ /* x229949 */ /* x229928 stalin.sc:31793:1095331 */ /* x229919 stalin.sc:31793:1095337 */ if (a693==FALSE_TYPE) goto l17720; /* x229925 */ /* x229924 */ /* x229923 stalin.sc:31794:1095359 */ /* x229921 stalin.sc:31794:1095374 */ /* x229922 stalin.sc:31794:1095377 */ t92952 = "For now, with -Tmk you must specify -dC"; /* x229920 stalin.sc:31794:1095360 */ t92953.tag = FALSE_TYPE; f9707(t92953, t92952); goto l17721; l17720: /* x229927 stalin.sc:31793:1095331 */ /* x229926 stalin.sc:31793:1095331 */ l17721: /* x229938 stalin.sc:31795:1095423 */ /* x229929 stalin.sc:31795:1095429 */ if (a694==FALSE_TYPE) goto l17723; /* x229935 */ /* x229934 */ /* x229933 stalin.sc:31796:1095452 */ /* x229931 stalin.sc:31796:1095467 */ /* x229932 stalin.sc:31796:1095470 */ t92954 = "With -Tmk you must specify -dc"; /* x229930 stalin.sc:31796:1095453 */ t92955.tag = FALSE_TYPE; f9707(t92955, t92954); goto l17724; l17723: /* x229937 stalin.sc:31795:1095423 */ /* x229936 stalin.sc:31795:1095423 */ l17724: /* x229948 stalin.sc:31797:1095507 */ /* x229939 stalin.sc:31797:1095515 */ if (a692==FALSE_TYPE) goto l17726; /* x229941 */ /* x229940 */ goto l17727; l17726: /* x229947 */ /* x229946 */ /* x229945 stalin.sc:31798:1095539 */ /* x229943 stalin.sc:31798:1095554 */ /* x229944 stalin.sc:31798:1095557 */ t92956 = "For now, with -Tmk you cannot specify -dH"; /* x229942 stalin.sc:31798:1095540 */ t92957.tag = FALSE_TYPE; f9707(t92957, t92956); l17727: /* x229918 */ /* x229917 stalin.sc:31799:1095605 */ /* x229908 stalin.sc:31799:1095611 */ if (a682==FALSE_TYPE) goto l17717; /* x229914 */ /* x229913 */ /* x229912 stalin.sc:31800:1095625 */ /* x229910 stalin.sc:31800:1095640 */ /* x229911 stalin.sc:31800:1095643 */ t92950 = "For now, with -Tmk you cannot specify -dG"; /* x229909 stalin.sc:31800:1095626 */ t92951.tag = FALSE_TYPE; f9707(t92951, t92950); goto l17718; l17717: /* x229916 stalin.sc:31799:1095605 */ /* x229915 stalin.sc:31799:1095605 */ l17718: goto l17715; l17714: /* x229953 stalin.sc:31792:1095309 */ /* x229952 stalin.sc:31792:1095309 */ l17715: /* x229956 stalin.sc:31801:1095691 */ /* x229955 stalin.sc:31801:1095692 */ /* x225257 */ /* x225129 stalin.sc:31303:1078408 */ /* x225128 stalin.sc:31303:1078409 */ /* x224990 stalin.sc:31190:1074127 */ /* x224989 stalin.sc:31190:1074144 */ /* x224988 stalin.sc:31190:1074165 */ t93093 = "stalin.architectures"; /* x224987 stalin.sc:31190:1074145 */ t93094.tag = STRING_TYPE; t93094.value.string_type = t93093; t92960 = f18676(t93094); /* x224986 */ a32849 = t92960; /* x224985 */ /* x224984 stalin.sc:31192:1074207 */ /* x224980 stalin.sc:31192:1074214 */ t93084 = a688; /* x224983 stalin.sc:31192:1074234 */ /* x224982 stalin.sc:31192:1074257 */ t93086 = a32849; /* x224981 stalin.sc:31192:1074235 */ a15577 = t93086; /* x21439 QobiScheme.sc:1444:43255 */ /* x21432 QobiScheme.sc:1444:43259 */ /* x21431 QobiScheme.sc:1444:43278 */ t93088 = "-"; /* x21430 QobiScheme.sc:1444:43269 */ t93087 = a15577; /* x21429 QobiScheme.sc:1444:43260 */ t93089 = t93087; t93090.tag = STRING_TYPE; t93090.value.string_type = t93088; if (f27434(t93089, t93090)==FALSE_TYPE) goto l17753; /* x21434 QobiScheme.sc:1444:43283 */ /* x21433 QobiScheme.sc:1444:43284 */ a34225.tag = NULL_TYPE; t93085 = f27810(); goto l17754; l17753: /* x21438 QobiScheme.sc:1444:43290 */ /* x21436 QobiScheme.sc:1444:43312 */ t93091 = a15577; /* x21437 QobiScheme.sc:1444:43321 */ /* x21435 QobiScheme.sc:1444:43291 */ t93092 = (struct p18678 *)NATIVE_PROCEDURE_TYPE291; t93085 = f27790(t93091, t93092); l17754: /* x224979 stalin.sc:31192:1074208 */ t92961 = f26356(t93084, t93085); /* x224978 */ a32850 = t92961; /* x224977 */ /* x224976 */ /* x224975 */ /* x224771 stalin.sc:31194:1074312 */ /* x224758 stalin.sc:31194:1074320 */ if ((a32850.tag)==FALSE_TYPE) goto l17729; /* x224760 */ /* x224759 */ goto l17730; l17729: /* x224770 */ /* x224769 */ /* x224768 */ /* x224767 stalin.sc:31195:1074336 */ /* x224766 stalin.sc:31195:1074371 */ t92967 = a688; /* x224765 stalin.sc:31195:1074344 */ t92966 = "Unknown architecture: ~a"; /* x224764 stalin.sc:31195:1074337 */ t92968.tag = STRING_TYPE; t92968.value.string_type = t92966; t92969 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t92969==NULL) {backtrace("stalin.sc", 31195, 1074336); out_of_memory_error();} t92969->s0 = t92967; t92969->s1.tag = NULL_TYPE; f5365(t92968, t92969); /* x224763 */ /* x224762 stalin.sc:31196:1074395 */ /* x224761 stalin.sc:31196:1074396 */ /* x294845 stalin.sc:87:2881 */ /* x294844 stalin.sc:87:2887 */ t92965 = -1; /* x294843 stalin.sc:87:2882 */ exit(t92965); l17730: /* x224776 stalin.sc:31197:1074410 */ /* x224775 stalin.sc:31197:1074423 */ /* x224773 stalin.sc:31197:1074433 */ t92970 = a32850; /* x224774 stalin.sc:31197:1074446 */ t92971 = 1; /* x224772 stalin.sc:31197:1074424 */ t92972.tag = FIXNUM_TYPE; t92972.value.fixnum_type = t92971; a1252 = f26338(t92970, t92972); /* x224781 stalin.sc:31198:1074452 */ /* x224780 stalin.sc:31198:1074467 */ /* x224778 stalin.sc:31198:1074477 */ t92973 = a32850; /* x224779 stalin.sc:31198:1074490 */ t92974 = 2; /* x224777 stalin.sc:31198:1074468 */ t92975.tag = FIXNUM_TYPE; t92975.value.fixnum_type = t92974; a1251 = f26338(t92973, t92975); /* x224811 stalin.sc:31199:1074496 */ /* x224810 stalin.sc:31200:1074512 */ /* x224809 stalin.sc:31200:1074518 */ t92976 = a689; /* x224808 */ a32878 = t92976; /* x224807 */ /* x224785 */ /* x224783 */ t92977 = a32878; /* x224784 */ t92978 = q84; /* x224782 */ /* MOVE: branching squeezed to general */ if (t92977>=((char *)VALUE_OFFSET)) {t92979.tag = EXTERNAL_SYMBOL_TYPE; t92979.value.external_symbol_type = t92977;} else t92979.tag = (unsigned)t92977; t92980.tag = EXTERNAL_SYMBOL_TYPE; t92980.value.external_symbol_type = t92978; if (f26160(t92979, t92980)==FALSE_TYPE) goto l17732; /* x224791 */ /* x224790 */ /* x224789 stalin.sc:31201:1074553 */ /* x224787 stalin.sc:31201:1074563 */ t92989 = a32850; /* x224788 stalin.sc:31201:1074576 */ t92990 = 3; /* x224786 stalin.sc:31201:1074554 */ t92991.tag = FIXNUM_TYPE; t92991.value.fixnum_type = t92990; a1250 = f26338(t92989, t92991); goto l17733; l17732: /* x224806 */ /* x224795 */ /* x224793 */ t92981 = a32878; /* x224794 */ t92982 = q14; /* x224792 */ /* MOVE: branching squeezed to general */ if (t92981>=((char *)VALUE_OFFSET)) {t92983.tag = EXTERNAL_SYMBOL_TYPE; t92983.value.external_symbol_type = t92981;} else t92983.tag = (unsigned)t92981; t92984.tag = EXTERNAL_SYMBOL_TYPE; t92984.value.external_symbol_type = t92982; if (f26160(t92983, t92984)==FALSE_TYPE) goto l17735; /* x224801 */ /* x224800 */ /* x224799 stalin.sc:31202:1074592 */ /* x224797 stalin.sc:31202:1074602 */ t92986 = a32850; /* x224798 stalin.sc:31202:1074615 */ t92987 = 4; /* x224796 stalin.sc:31202:1074593 */ t92988.tag = FIXNUM_TYPE; t92988.value.fixnum_type = t92987; a1250 = f26338(t92986, t92988); goto l17736; l17735: /* x224805 */ /* x224804 */ /* x224803 stalin.sc:31203:1074627 */ /* x224802 stalin.sc:31203:1074628 */ /* x297537 QobiScheme.sc:166:5314 */ /* x297536 QobiScheme.sc:166:5321 */ t92985 = "This shouldn\'t happen"; /* x297535 QobiScheme.sc:166:5315 */ stalin_panic(t92985); l17736: l17733: /* x224816 stalin.sc:31204:1074642 */ /* x224815 stalin.sc:31204:1074657 */ /* x224813 stalin.sc:31204:1074667 */ t92992 = a32850; /* x224814 stalin.sc:31204:1074680 */ t92993 = 5; /* x224812 stalin.sc:31204:1074658 */ t92994.tag = FIXNUM_TYPE; t92994.value.fixnum_type = t92993; a1249 = f26338(t92992, t92994); /* x224821 stalin.sc:31205:1074686 */ /* x224820 stalin.sc:31205:1074698 */ /* x224818 stalin.sc:31205:1074708 */ t92995 = a32850; /* x224819 stalin.sc:31205:1074721 */ t92996 = 6; /* x224817 stalin.sc:31205:1074699 */ t92997.tag = FIXNUM_TYPE; t92997.value.fixnum_type = t92996; a1248 = f26338(t92995, t92997); /* x224826 stalin.sc:31206:1074727 */ /* x224825 stalin.sc:31206:1074744 */ /* x224823 stalin.sc:31206:1074754 */ t92998 = a32850; /* x224824 stalin.sc:31206:1074767 */ t92999 = 7; /* x224822 stalin.sc:31206:1074745 */ t93000.tag = FIXNUM_TYPE; t93000.value.fixnum_type = t92999; a1247 = f26338(t92998, t93000); /* x224831 stalin.sc:31207:1074773 */ /* x224830 stalin.sc:31207:1074797 */ /* x224828 stalin.sc:31207:1074807 */ t93001 = a32850; /* x224829 stalin.sc:31207:1074820 */ t93002 = 8; /* x224827 stalin.sc:31207:1074798 */ t93003.tag = FIXNUM_TYPE; t93003.value.fixnum_type = t93002; a1246 = f26338(t93001, t93003); /* x224836 stalin.sc:31208:1074826 */ /* x224835 stalin.sc:31208:1074839 */ /* x224833 stalin.sc:31208:1074849 */ t93004 = a32850; /* x224834 stalin.sc:31208:1074862 */ t93005 = 9; /* x224832 stalin.sc:31208:1074840 */ t93006.tag = FIXNUM_TYPE; t93006.value.fixnum_type = t93005; a1245 = f26338(t93004, t93006); /* x224841 stalin.sc:31209:1074868 */ /* x224840 stalin.sc:31209:1074883 */ /* x224838 stalin.sc:31209:1074893 */ t93007 = a32850; /* x224839 stalin.sc:31209:1074906 */ t93008 = 10; /* x224837 stalin.sc:31209:1074884 */ t93009.tag = FIXNUM_TYPE; t93009.value.fixnum_type = t93008; a1244 = f26338(t93007, t93009); /* x224846 stalin.sc:31210:1074913 */ /* x224845 stalin.sc:31210:1074936 */ /* x224843 stalin.sc:31210:1074946 */ t93010 = a32850; /* x224844 stalin.sc:31210:1074959 */ t93011 = 11; /* x224842 stalin.sc:31210:1074937 */ t93012.tag = FIXNUM_TYPE; t93012.value.fixnum_type = t93011; a1243 = f26338(t93010, t93012); /* x224851 stalin.sc:31211:1074966 */ /* x224850 stalin.sc:31211:1074991 */ /* x224848 stalin.sc:31211:1075001 */ t93013 = a32850; /* x224849 stalin.sc:31211:1075014 */ t93014 = 12; /* x224847 stalin.sc:31211:1074992 */ t93015.tag = FIXNUM_TYPE; t93015.value.fixnum_type = t93014; a1242 = f26338(t93013, t93015); /* x224881 stalin.sc:31212:1075021 */ /* x224880 stalin.sc:31213:1075047 */ /* x224879 stalin.sc:31213:1075053 */ t93016 = a689; /* x224878 */ a32879 = t93016; /* x224877 */ /* x224855 */ /* x224853 */ t93017 = a32879; /* x224854 */ t93018 = q84; /* x224852 */ /* MOVE: branching squeezed to general */ if (t93017>=((char *)VALUE_OFFSET)) {t93019.tag = EXTERNAL_SYMBOL_TYPE; t93019.value.external_symbol_type = t93017;} else t93019.tag = (unsigned)t93017; t93020.tag = EXTERNAL_SYMBOL_TYPE; t93020.value.external_symbol_type = t93018; if (f26160(t93019, t93020)==FALSE_TYPE) goto l17738; /* x224861 */ /* x224860 */ /* x224859 stalin.sc:31214:1075088 */ /* x224857 stalin.sc:31214:1075098 */ t93029 = a32850; /* x224858 stalin.sc:31214:1075111 */ t93030 = 13; /* x224856 stalin.sc:31214:1075089 */ t93031.tag = FIXNUM_TYPE; t93031.value.fixnum_type = t93030; a1241 = f26338(t93029, t93031); goto l17739; l17738: /* x224876 */ /* x224865 */ /* x224863 */ t93021 = a32879; /* x224864 */ t93022 = q14; /* x224862 */ /* MOVE: branching squeezed to general */ if (t93021>=((char *)VALUE_OFFSET)) {t93023.tag = EXTERNAL_SYMBOL_TYPE; t93023.value.external_symbol_type = t93021;} else t93023.tag = (unsigned)t93021; t93024.tag = EXTERNAL_SYMBOL_TYPE; t93024.value.external_symbol_type = t93022; if (f26160(t93023, t93024)==FALSE_TYPE) goto l17741; /* x224871 */ /* x224870 */ /* x224869 stalin.sc:31215:1075128 */ /* x224867 stalin.sc:31215:1075138 */ t93026 = a32850; /* x224868 stalin.sc:31215:1075151 */ t93027 = 14; /* x224866 stalin.sc:31215:1075129 */ t93028.tag = FIXNUM_TYPE; t93028.value.fixnum_type = t93027; a1241 = f26338(t93026, t93028); goto l17742; l17741: /* x224875 */ /* x224874 */ /* x224873 stalin.sc:31216:1075164 */ /* x224872 stalin.sc:31216:1075165 */ /* x297541 QobiScheme.sc:166:5314 */ /* x297540 QobiScheme.sc:166:5321 */ t93025 = "This shouldn\'t happen"; /* x297539 QobiScheme.sc:166:5315 */ stalin_panic(t93025); l17742: l17739: /* x224886 stalin.sc:31217:1075179 */ /* x224885 stalin.sc:31217:1075205 */ /* x224883 stalin.sc:31217:1075215 */ t93032 = a32850; /* x224884 stalin.sc:31217:1075228 */ t93033 = 15; /* x224882 stalin.sc:31217:1075206 */ t93034.tag = FIXNUM_TYPE; t93034.value.fixnum_type = t93033; a1240 = f26338(t93032, t93034); /* x224891 stalin.sc:31218:1075235 */ /* x224890 stalin.sc:31218:1075260 */ /* x224888 stalin.sc:31218:1075270 */ t93035 = a32850; /* x224889 stalin.sc:31218:1075283 */ t93036 = 16; /* x224887 stalin.sc:31218:1075261 */ t93037.tag = FIXNUM_TYPE; t93037.value.fixnum_type = t93036; a1239 = f26338(t93035, t93037); /* x224896 stalin.sc:31219:1075290 */ /* x224895 stalin.sc:31219:1075312 */ /* x224893 stalin.sc:31219:1075322 */ t93038 = a32850; /* x224894 stalin.sc:31219:1075335 */ t93039 = 17; /* x224892 stalin.sc:31219:1075313 */ t93040.tag = FIXNUM_TYPE; t93040.value.fixnum_type = t93039; a1238 = f26338(t93038, t93040); /* x224901 stalin.sc:31220:1075342 */ /* x224900 stalin.sc:31220:1075369 */ /* x224898 stalin.sc:31220:1075379 */ t93041 = a32850; /* x224899 stalin.sc:31220:1075392 */ t93042 = 18; /* x224897 stalin.sc:31220:1075370 */ t93043.tag = FIXNUM_TYPE; t93043.value.fixnum_type = t93042; a1237 = f26338(t93041, t93043); /* x224906 stalin.sc:31221:1075399 */ /* x224905 stalin.sc:31221:1075422 */ /* x224903 stalin.sc:31221:1075432 */ t93044 = a32850; /* x224904 stalin.sc:31221:1075445 */ t93045 = 19; /* x224902 stalin.sc:31221:1075423 */ t93046.tag = FIXNUM_TYPE; t93046.value.fixnum_type = t93045; a1236 = f26338(t93044, t93046); /* x224911 stalin.sc:31222:1075452 */ /* x224910 stalin.sc:31222:1075477 */ /* x224908 stalin.sc:31222:1075487 */ t93047 = a32850; /* x224909 stalin.sc:31222:1075500 */ t93048 = 20; /* x224907 stalin.sc:31222:1075478 */ t93049.tag = FIXNUM_TYPE; t93049.value.fixnum_type = t93048; a1235 = f26338(t93047, t93049); /* x224916 stalin.sc:31223:1075507 */ /* x224915 stalin.sc:31223:1075525 */ /* x224913 stalin.sc:31223:1075535 */ t93050 = a32850; /* x224914 stalin.sc:31223:1075548 */ t93051 = 21; /* x224912 stalin.sc:31223:1075526 */ t93052.tag = FIXNUM_TYPE; t93052.value.fixnum_type = t93051; a1234 = f26338(t93050, t93052); /* x224921 stalin.sc:31224:1075555 */ /* x224920 stalin.sc:31224:1075575 */ /* x224918 stalin.sc:31224:1075585 */ t93053 = a32850; /* x224919 stalin.sc:31224:1075598 */ t93054 = 22; /* x224917 stalin.sc:31224:1075576 */ t93055.tag = FIXNUM_TYPE; t93055.value.fixnum_type = t93054; a1233 = f26338(t93053, t93055); /* x224951 stalin.sc:31225:1075605 */ /* x224950 stalin.sc:31226:1075626 */ /* x224949 stalin.sc:31226:1075632 */ t93056 = a689; /* x224948 */ a32880 = t93056; /* x224947 */ /* x224925 */ /* x224923 */ t93057 = a32880; /* x224924 */ t93058 = q84; /* x224922 */ /* MOVE: branching squeezed to general */ if (t93057>=((char *)VALUE_OFFSET)) {t93059.tag = EXTERNAL_SYMBOL_TYPE; t93059.value.external_symbol_type = t93057;} else t93059.tag = (unsigned)t93057; t93060.tag = EXTERNAL_SYMBOL_TYPE; t93060.value.external_symbol_type = t93058; if (f26160(t93059, t93060)==FALSE_TYPE) goto l17744; /* x224931 */ /* x224930 */ /* x224929 stalin.sc:31227:1075667 */ /* x224927 stalin.sc:31227:1075677 */ t93069 = a32850; /* x224928 stalin.sc:31227:1075690 */ t93070 = 23; /* x224926 stalin.sc:31227:1075668 */ t93071.tag = FIXNUM_TYPE; t93071.value.fixnum_type = t93070; a1232 = f26338(t93069, t93071); goto l17745; l17744: /* x224946 */ /* x224935 */ /* x224933 */ t93061 = a32880; /* x224934 */ t93062 = q14; /* x224932 */ /* MOVE: branching squeezed to general */ if (t93061>=((char *)VALUE_OFFSET)) {t93063.tag = EXTERNAL_SYMBOL_TYPE; t93063.value.external_symbol_type = t93061;} else t93063.tag = (unsigned)t93061; t93064.tag = EXTERNAL_SYMBOL_TYPE; t93064.value.external_symbol_type = t93062; if (f26160(t93063, t93064)==FALSE_TYPE) goto l17747; /* x224941 */ /* x224940 */ /* x224939 stalin.sc:31228:1075707 */ /* x224937 stalin.sc:31228:1075717 */ t93066 = a32850; /* x224938 stalin.sc:31228:1075730 */ t93067 = 24; /* x224936 stalin.sc:31228:1075708 */ t93068.tag = FIXNUM_TYPE; t93068.value.fixnum_type = t93067; a1232 = f26338(t93066, t93068); goto l17748; l17747: /* x224945 */ /* x224944 */ /* x224943 stalin.sc:31229:1075743 */ /* x224942 stalin.sc:31229:1075744 */ /* x297545 QobiScheme.sc:166:5314 */ /* x297544 QobiScheme.sc:166:5321 */ t93065 = "This shouldn\'t happen"; /* x297543 QobiScheme.sc:166:5315 */ stalin_panic(t93065); l17748: l17745: /* x224956 stalin.sc:31230:1075758 */ /* x224955 stalin.sc:31230:1075779 */ /* x224953 stalin.sc:31230:1075789 */ t93072 = a32850; /* x224954 stalin.sc:31230:1075802 */ t93073 = 25; /* x224952 stalin.sc:31230:1075780 */ t93074.tag = FIXNUM_TYPE; t93074.value.fixnum_type = t93073; a1231 = f26338(t93072, t93074); /* x224961 stalin.sc:31231:1075809 */ /* x224960 stalin.sc:31231:1075829 */ /* x224958 stalin.sc:31231:1075839 */ t93075 = a32850; /* x224959 stalin.sc:31231:1075852 */ t93076 = 26; /* x224957 stalin.sc:31231:1075830 */ t93077.tag = FIXNUM_TYPE; t93077.value.fixnum_type = t93076; a1230 = f26338(t93075, t93077); /* x224966 stalin.sc:31232:1075859 */ /* x224965 stalin.sc:31232:1075876 */ /* x224963 stalin.sc:31232:1075886 */ t93078 = a32850; /* x224964 stalin.sc:31232:1075899 */ t93079 = 27; /* x224962 stalin.sc:31232:1075877 */ t93080.tag = FIXNUM_TYPE; t93080.value.fixnum_type = t93079; a1229 = f26338(t93078, t93080); /* x224974 stalin.sc:31233:1075906 */ /* x224973 stalin.sc:31233:1075928 */ /* x224967 stalin.sc:31233:1075932 */ if (a676==FALSE_TYPE) goto l17750; /* x224971 stalin.sc:31233:1075942 */ /* x224969 stalin.sc:31233:1075952 */ t93081 = a32850; /* x224970 stalin.sc:31233:1075965 */ t93082 = 28; /* x224968 stalin.sc:31233:1075943 */ t93083.tag = FIXNUM_TYPE; t93083.value.fixnum_type = t93082; a1228 = f26338(t93081, t93083); goto l17751; l17750: /* x224972 stalin.sc:31233:1075969 */ a1228.tag = FIXNUM_TYPE; a1228.value.fixnum_type = 0; l17751: /* x224757 */ /* x224756 stalin.sc:31234:1075975 */ /* x224755 stalin.sc:31234:1076010 */ /* x224753 stalin.sc:31234:1076020 */ t92962 = a32850; /* x224754 stalin.sc:31234:1076033 */ t92963 = 29; /* x224752 stalin.sc:31234:1076011 */ t92964.tag = FIXNUM_TYPE; t92964.value.fixnum_type = t92963; a1227 = f26338(t92962, t92964); /* x225131 stalin.sc:31304:1078436 */ /* x225130 stalin.sc:31304:1078458 */ a2040 = TRUE_TYPE; /* x225133 stalin.sc:31305:1078463 */ /* x225132 stalin.sc:31305:1078498 */ a2039 = FALSE_TYPE; /* x225135 stalin.sc:31306:1078503 */ /* x225134 stalin.sc:31306:1078504 */ /* x56566 */ /* x56555 stalin.sc:362:9458 */ /* x56554 stalin.sc:362:9469 */ a2032 = (((unsigned)0)<<1)+1; /* x56557 stalin.sc:363:9473 */ /* x56556 stalin.sc:363:9484 */ a2031.tag = NULL_TYPE; /* x56559 stalin.sc:364:9490 */ /* x56558 stalin.sc:364:9504 */ a2030.tag = NULL_TYPE; /* x56561 stalin.sc:365:9510 */ /* x56560 stalin.sc:365:9527 */ a2029.tag = NULL_TYPE; /* x56563 stalin.sc:366:9533 */ /* x56562 stalin.sc:366:9553 */ a2028.tag = NULL_TYPE; /* x56565 stalin.sc:367:9559 */ /* x56564 stalin.sc:367:9578 */ a2027.tag = NULL_TYPE; /* x56553 */ /* x56552 stalin.sc:368:9584 */ /* x56551 stalin.sc:368:9595 */ a2025.tag = FALSE_TYPE; /* x225137 stalin.sc:31307:1078530 */ /* x225136 stalin.sc:31307:1078531 */ f7033(); /* x225139 stalin.sc:31308:1078551 */ /* x225138 stalin.sc:31308:1078552 */ /* x69961 */ /* x69960 stalin.sc:3399:115635 */ /* x69959 stalin.sc:3399:115646 */ a1634 = (((unsigned)0)<<1)+1; /* x69958 */ /* x69957 stalin.sc:3400:115650 */ /* x69956 stalin.sc:3400:115661 */ a1633.tag = NULL_TYPE; /* x225141 stalin.sc:31309:1078576 */ /* x225140 stalin.sc:31309:1078577 */ /* x72443 */ /* x72440 stalin.sc:3995:134633 */ /* x72439 stalin.sc:3995:134644 */ a1595 = (((unsigned)0)<<1)+1; /* x72442 stalin.sc:3996:134648 */ /* x72441 stalin.sc:3996:134659 */ a1594.tag = NULL_TYPE; /* x72438 */ /* x72437 stalin.sc:3997:134665 */ /* x72436 stalin.sc:3997:134677 */ /* x225143 stalin.sc:31310:1078604 */ /* x225142 stalin.sc:31310:1078624 */ /* x225145 stalin.sc:31311:1078629 */ /* x225144 stalin.sc:31311:1078653 */ a1226.tag = FALSE_TYPE; /* x225147 stalin.sc:31312:1078658 */ /* x225146 stalin.sc:31312:1078687 */ a1225.tag = FALSE_TYPE; /* x225149 stalin.sc:31313:1078692 */ /* x225148 stalin.sc:31313:1078716 */ a1224 = FALSE_TYPE; /* x225151 stalin.sc:31314:1078721 */ /* x225150 stalin.sc:31314:1078747 */ a1223 = FALSE_TYPE; /* x225153 stalin.sc:31315:1078752 */ /* x225152 stalin.sc:31315:1078778 */ a1222 = FALSE_TYPE; /* x225155 stalin.sc:31316:1078783 */ /* x225154 stalin.sc:31316:1078814 */ a1221 = FALSE_TYPE; /* x225157 stalin.sc:31317:1078819 */ /* x225156 stalin.sc:31317:1078844 */ a1220 = FALSE_TYPE; /* x225159 stalin.sc:31318:1078849 */ /* x225158 stalin.sc:31318:1078874 */ a1219 = FALSE_TYPE; /* x225161 stalin.sc:31319:1078879 */ /* x225160 stalin.sc:31319:1078904 */ a1218 = FALSE_TYPE; /* x225163 stalin.sc:31320:1078909 */ /* x225162 stalin.sc:31320:1078936 */ a1217 = FALSE_TYPE; /* x225165 stalin.sc:31321:1078941 */ /* x225164 stalin.sc:31321:1078967 */ a1216 = FALSE_TYPE; /* x225167 stalin.sc:31322:1078972 */ /* x225166 stalin.sc:31322:1078995 */ a1215 = FALSE_TYPE; /* x225169 stalin.sc:31323:1079000 */ /* x225168 stalin.sc:31323:1079028 */ a1214 = FALSE_TYPE; /* x225171 stalin.sc:31324:1079033 */ /* x225170 stalin.sc:31324:1079057 */ a1213 = FALSE_TYPE; /* x225173 stalin.sc:31325:1079062 */ /* x225172 stalin.sc:31325:1079088 */ a1212 = FALSE_TYPE; /* x225175 stalin.sc:31326:1079093 */ /* x225174 stalin.sc:31326:1079112 */ a1211 = FALSE_TYPE; /* x225177 stalin.sc:31327:1079117 */ /* x225176 stalin.sc:31327:1079138 */ a1210 = FALSE_TYPE; /* x225179 stalin.sc:31328:1079143 */ /* x225178 stalin.sc:31328:1079164 */ a1209 = FALSE_TYPE; /* x225181 stalin.sc:31329:1079169 */ /* x225180 stalin.sc:31329:1079195 */ a1208 = FALSE_TYPE; /* x225183 stalin.sc:31330:1079200 */ /* x225182 stalin.sc:31330:1079220 */ a1207 = FALSE_TYPE; /* x225185 stalin.sc:31331:1079225 */ /* x225184 stalin.sc:31331:1079245 */ a1206 = FALSE_TYPE; /* x225187 stalin.sc:31332:1079250 */ /* x225186 stalin.sc:31332:1079270 */ a1205 = FALSE_TYPE; /* x225189 stalin.sc:31333:1079275 */ /* x225188 stalin.sc:31333:1079297 */ a1204 = FALSE_TYPE; /* x225191 stalin.sc:31334:1079302 */ /* x225190 stalin.sc:31334:1079323 */ a1203 = FALSE_TYPE; /* x225193 stalin.sc:31335:1079328 */ /* x225192 stalin.sc:31335:1079346 */ a1202 = FALSE_TYPE; /* x225195 stalin.sc:31336:1079351 */ /* x225194 stalin.sc:31336:1079374 */ a1201 = FALSE_TYPE; /* x225197 stalin.sc:31337:1079379 */ /* x225196 stalin.sc:31337:1079395 */ a1199.tag = NULL_TYPE; /* x225199 stalin.sc:31338:1079401 */ /* x225198 stalin.sc:31338:1079417 */ a1198.tag = NULL_TYPE; /* x225201 stalin.sc:31339:1079423 */ /* x225200 stalin.sc:31339:1079444 */ a1197 = (struct structure_type24753 *)NULL_TYPE; /* x225203 stalin.sc:31340:1079450 */ /* x225202 stalin.sc:31340:1079470 */ a1196 = (struct structure_type24753 *)NULL_TYPE; /* x225205 stalin.sc:31341:1079476 */ /* x225204 stalin.sc:31341:1079497 */ a1195 = (struct structure_type24753 *)NULL_TYPE; /* x225208 stalin.sc:31342:1079503 */ /* x225207 stalin.sc:31342:1079519 */ /* x225206 stalin.sc:31342:1079520 */ /* x59367 stalin.sc:938:30320 */ /* x59354 stalin.sc:938:30333 */ t93095 = q47; /* x59356 stalin.sc:938:30342 */ /* x59355 stalin.sc:938:30343 */ /* x278051 stalin.sc:321:8572 */ t93096 = q34; /* x59358 stalin.sc:938:30351 */ /* x59357 stalin.sc:938:30352 */ /* x278053 stalin.sc:321:8572 */ t93097 = q34; /* x59360 stalin.sc:938:30360 */ /* x59359 stalin.sc:938:30361 */ /* x278055 stalin.sc:321:8572 */ t93098 = q34; /* x59362 stalin.sc:938:30369 */ /* x59361 stalin.sc:938:30370 */ /* x278057 stalin.sc:321:8572 */ t93099 = q34; /* x59364 stalin.sc:938:30378 */ /* x59363 stalin.sc:938:30379 */ /* x278059 stalin.sc:321:8572 */ t93100 = q34; /* x59366 stalin.sc:938:30387 */ /* x59365 stalin.sc:938:30388 */ /* x278061 stalin.sc:321:8572 */ t93101 = q34; /* x59353 stalin.sc:938:30321 */ t93102.tag = EXTERNAL_SYMBOL_TYPE; t93102.value.external_symbol_type = t93096; t93103.tag = EXTERNAL_SYMBOL_TYPE; t93103.value.external_symbol_type = t93097; t93104.tag = EXTERNAL_SYMBOL_TYPE; t93104.value.external_symbol_type = t93098; t93105.tag = EXTERNAL_SYMBOL_TYPE; t93105.value.external_symbol_type = t93099; t93106.tag = EXTERNAL_SYMBOL_TYPE; t93106.value.external_symbol_type = t93100; t93107.tag = EXTERNAL_SYMBOL_TYPE; t93107.value.external_symbol_type = t93101; t93108 = f5743(t93095, t93102, t93103, t93104, t93105, t93106, t93107); a1194 = t93108; /* x225210 stalin.sc:31343:1079545 */ /* x225209 stalin.sc:31343:1079565 */ a876 = (struct structure_type24753 *)NULL_TYPE; /* x225212 stalin.sc:31344:1079571 */ /* x225211 stalin.sc:31344:1079588 */ a875 = (struct structure_type24753 *)NULL_TYPE; /* x225214 stalin.sc:31345:1079594 */ /* x225213 stalin.sc:31345:1079605 */ a860 = (((unsigned)0)<<1)+1; /* x225216 stalin.sc:31346:1079609 */ /* x225215 stalin.sc:31346:1079620 */ a835 = (((unsigned)0)<<1)+1; /* x225220 stalin.sc:31347:1079624 */ /* x225219 stalin.sc:31347:1079645 */ /* x225218 stalin.sc:31347:1079653 */ t93109 = "list->vector"; /* x225217 stalin.sc:31347:1079646 */ t93110 = f5362(t93109); a765 = t93110; /* x225224 stalin.sc:31348:1079671 */ /* x225223 stalin.sc:31348:1079686 */ /* x225222 stalin.sc:31348:1079694 */ t93111 = "append"; /* x225221 stalin.sc:31348:1079687 */ t93112 = f5362(t93111); a764 = t93112; /* x225228 stalin.sc:31349:1079706 */ /* x225227 stalin.sc:31349:1079719 */ /* x225226 stalin.sc:31349:1079727 */ t93113 = "cons"; /* x225225 stalin.sc:31349:1079720 */ t93114 = f5362(t93113); a763 = t93114; /* x225232 stalin.sc:31350:1079737 */ /* x225231 stalin.sc:31350:1079750 */ /* x225230 stalin.sc:31350:1079758 */ t93115 = "eqv?"; /* x225229 stalin.sc:31350:1079751 */ t93116 = f5362(t93115); a762 = t93116; /* x225234 stalin.sc:31351:1079768 */ /* x225233 stalin.sc:31351:1079788 */ a750 = FALSE_TYPE; /* x225236 stalin.sc:31352:1079793 */ /* x225235 stalin.sc:31352:1079806 */ a749 = FALSE_TYPE; /* x225238 stalin.sc:31353:1079811 */ /* x225237 stalin.sc:31353:1079828 */ a748 = FALSE_TYPE; /* x225240 stalin.sc:31354:1079833 */ /* x225239 stalin.sc:31354:1079854 */ a747 = FALSE_TYPE; /* x225242 stalin.sc:31355:1079859 */ /* x225241 stalin.sc:31355:1079889 */ a746 = FALSE_TYPE; /* x225244 stalin.sc:31356:1079894 */ /* x225243 stalin.sc:31356:1079910 */ a745 = FALSE_TYPE; /* x225246 stalin.sc:31357:1079915 */ /* x225245 stalin.sc:31357:1079940 */ a744 = FALSE_TYPE; /* x225248 stalin.sc:31358:1079945 */ /* x225247 stalin.sc:31358:1079964 */ a743 = (struct structure_type24753 *)NULL_TYPE; /* x225250 stalin.sc:31359:1079970 */ /* x225249 stalin.sc:31359:1079987 */ a667 = (struct structure_type24753 *)NULL_TYPE; /* x225252 stalin.sc:31360:1079993 */ /* x225251 stalin.sc:31360:1080008 */ a666 = (struct structure_type24753 *)FALSE_TYPE; /* x225254 stalin.sc:31361:1080013 */ /* x225253 stalin.sc:31361:1080029 */ a665 = (struct structure_type24753 *)NULL_TYPE; /* x225256 stalin.sc:31362:1080035 */ /* x225255 stalin.sc:31362:1080065 */ a664 = FALSE_TYPE; /* x225127 */ /* x225126 stalin.sc:31366:1080237 */ /* x225125 stalin.sc:31366:1080247 */ t92958 = "stdlib"; /* x225124 stalin.sc:31366:1080238 */ t92959.tag = STRING_TYPE; t92959.value.string_type = t92958; f18320(t92959); /* x229958 stalin.sc:31802:1095713 */ /* x229957 stalin.sc:31802:1095728 */ a755.tag = STRUCTURE_TYPE24753; a755.value.structure_type24753 = a754; /* x229969 stalin.sc:31803:1095744 */ /* x229959 stalin.sc:31803:1095750 */ if (a730==FALSE_TYPE) goto l17756; /* x229966 */ /* x229965 */ /* x229964 stalin.sc:31804:1095779 */ /* x229963 stalin.sc:31804:1095794 */ /* x229962 stalin.sc:31804:1095811 */ t93118 = a740; /* x229961 stalin.sc:31804:1095802 */ t93117 = a755; /* x229960 stalin.sc:31804:1095795 */ t93120.tag = STRUCTURE_TYPE24753; t93120.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t93120.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31804, 1095794); out_of_memory_error();} t93120.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t93120.value.structure_type24753->s0.value.structure_type24753 = t93118; t93120.value.structure_type24753->s1.tag = NULL_TYPE; t93119 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t93119==NULL) {backtrace("stalin.sc", 31804, 1095794); out_of_memory_error();} t93119->s0 = t93117; t93119->s1 = t93120; a755 = f26254(t93119); goto l17757; l17756: /* x229968 stalin.sc:31803:1095744 */ /* x229967 stalin.sc:31803:1095744 */ l17757: /* x229980 stalin.sc:31805:1095848 */ /* x229970 stalin.sc:31805:1095854 */ if (a729==FALSE_TYPE) goto l17759; /* x229977 */ /* x229976 */ /* x229975 stalin.sc:31805:1095869 */ /* x229974 stalin.sc:31805:1095884 */ /* x229973 stalin.sc:31805:1095901 */ t93122 = a737; /* x229972 stalin.sc:31805:1095892 */ t93121 = a755; /* x229971 stalin.sc:31805:1095885 */ t93124.tag = STRUCTURE_TYPE24753; t93124.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t93124.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31805, 1095884); out_of_memory_error();} t93124.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t93124.value.structure_type24753->s0.value.structure_type24753 = t93122; t93124.value.structure_type24753->s1.tag = NULL_TYPE; t93123 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t93123==NULL) {backtrace("stalin.sc", 31805, 1095884); out_of_memory_error();} t93123->s0 = t93121; t93123->s1 = t93124; a755 = f26254(t93123); goto l17760; l17759: /* x229979 stalin.sc:31805:1095848 */ /* x229978 stalin.sc:31805:1095848 */ l17760: /* x229991 stalin.sc:31806:1095926 */ /* x229981 stalin.sc:31806:1095932 */ if (a728==FALSE_TYPE) goto l17762; /* x229988 */ /* x229987 */ /* x229986 stalin.sc:31806:1095946 */ /* x229985 stalin.sc:31806:1095961 */ /* x229984 stalin.sc:31806:1095978 */ t93126 = a736; /* x229983 stalin.sc:31806:1095969 */ t93125 = a755; /* x229982 stalin.sc:31806:1095962 */ t93128.tag = STRUCTURE_TYPE24753; t93128.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t93128.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31806, 1095961); out_of_memory_error();} t93128.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t93128.value.structure_type24753->s0.value.structure_type24753 = t93126; t93128.value.structure_type24753->s1.tag = NULL_TYPE; t93127 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t93127==NULL) {backtrace("stalin.sc", 31806, 1095961); out_of_memory_error();} t93127->s0 = t93125; t93127->s1 = t93128; a755 = f26254(t93127); goto l17763; l17762: /* x229990 stalin.sc:31806:1095926 */ /* x229989 stalin.sc:31806:1095926 */ l17763: /* x230002 stalin.sc:31807:1096002 */ /* x229992 stalin.sc:31807:1096008 */ if (a727==FALSE_TYPE) goto l17765; /* x229999 */ /* x229998 */ /* x229997 stalin.sc:31807:1096019 */ /* x229996 stalin.sc:31807:1096034 */ /* x229995 stalin.sc:31807:1096051 */ t93130 = a735; /* x229994 stalin.sc:31807:1096042 */ t93129 = a755; /* x229993 stalin.sc:31807:1096035 */ t93132.tag = STRUCTURE_TYPE24753; t93132.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t93132.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31807, 1096034); out_of_memory_error();} t93132.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t93132.value.structure_type24753->s0.value.structure_type24753 = t93130; t93132.value.structure_type24753->s1.tag = NULL_TYPE; t93131 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t93131==NULL) {backtrace("stalin.sc", 31807, 1096034); out_of_memory_error();} t93131->s0 = t93129; t93131->s1 = t93132; a755 = f26254(t93131); goto l17766; l17765: /* x230001 stalin.sc:31807:1096002 */ /* x230000 stalin.sc:31807:1096002 */ l17766: /* x230006 stalin.sc:31808:1096072 */ /* x230004 stalin.sc:31808:1096080 */ t93133 = a702; /* x230005 stalin.sc:31808:1096086 */ t93134 = "Reading source"; /* x230003 stalin.sc:31808:1096073 */ f19217(t93133, t93134); /* x229896 */ /* x229895 stalin.sc:31809:1096105 */ /* x229894 stalin.sc:31809:1096124 */ /* x229893 stalin.sc:31809:1096125 */ /* x46 */ /* x45 stalin.sc:32896:1140494 */ /* x29 stalin.sc:32896:1140502 */ /* x28 stalin.sc:32896:1140528 */ /* x26 stalin.sc:32896:1140547 */ t92937 = a13729; /* x27 stalin.sc:32896:1140556 */ t92938 = "sc"; /* x25 stalin.sc:32896:1140529 */ /* MOVE: branching squeezed to general */ if (t92937>=((char *)VALUE_OFFSET)) {t92939.tag = STRING_TYPE; t92939.value.string_type = t92937;} else t92939.tag = (unsigned)t92937; t92936 = f2078(t92939, t92938); /* x24 stalin.sc:32896:1140503 */ if (f2087(t92936)==FALSE_TYPE) goto l17708; /* x31 */ /* x30 */ goto l17709; l17708: /* x44 */ /* x43 */ /* x42 */ /* x41 stalin.sc:32897:1140567 */ /* x40 stalin.sc:32897:1140593 */ /* x38 stalin.sc:32897:1140612 */ t92945 = a13729; /* x39 stalin.sc:32897:1140621 */ t92946 = "sc"; /* x37 stalin.sc:32897:1140594 */ /* MOVE: branching squeezed to general */ if (t92945>=((char *)VALUE_OFFSET)) {t92947.tag = STRING_TYPE; t92947.value.string_type = t92945;} else t92947.tag = (unsigned)t92945; t92942 = f2078(t92947, t92946); /* x36 stalin.sc:32897:1140575 */ t92941 = "Cannot find: ~a"; /* x35 stalin.sc:32897:1140568 */ t92943.tag = STRING_TYPE; t92943.value.string_type = t92941; t92944 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t92944==NULL) {backtrace("stalin.sc", 32897, 1140567); out_of_memory_error();} t92944->s0 = t92942; t92944->s1.tag = NULL_TYPE; f5365(t92943, t92944); /* x34 */ /* x33 stalin.sc:32898:1140632 */ /* x32 stalin.sc:32898:1140633 */ /* x294837 stalin.sc:87:2881 */ /* x294836 stalin.sc:87:2887 */ t92940 = -1; /* x294835 stalin.sc:87:2882 */ exit(t92940); l17709: /* x23 */ /* x22 stalin.sc:32899:1140648 */ /* x21 stalin.sc:32899:1140658 */ /* x20 stalin.sc:32899:1140678 */ /* x18 stalin.sc:32899:1140697 */ t92933 = a13729; /* x19 stalin.sc:32899:1140706 */ t92934 = "sc"; /* x17 stalin.sc:32899:1140679 */ /* MOVE: branching squeezed to general */ if (t92933>=((char *)VALUE_OFFSET)) {t92935.tag = STRING_TYPE; t92935.value.string_type = t92933;} else t92935.tag = (unsigned)t92933; t92932 = f2078(t92935, t92934); /* x16 stalin.sc:32899:1140659 */ t92923 = f18677(t92932); /* x15 */ a13915 = t92923; /* x14 stalin.sc:32900:1140719 */ /* x13 stalin.sc:32901:1140785 */ /* x11 stalin.sc:32900:1140725 */ /* x9 stalin.sc:32900:1140741 */ /* x8 stalin.sc:32900:1140753 */ /* x6 stalin.sc:32900:1140769 */ /* x7 stalin.sc:32900:1140773 */ t92930 = a13915; /* x5 stalin.sc:32900:1140754 */ t92931 = (struct structure_type24753 *)NULL_TYPE; t92928 = f18318(t92931, t92930); /* x4 stalin.sc:32900:1140742 */ a23041 = t92928; /* x88642 stalin.sc:7227:248431 */ /* x88641 stalin.sc:7227:248441 */ /* x88640 */ a23042 = (struct structure_type24753 *)NULL_TYPE; /* x88639 */ /* x88636 */ /* x88635 */ /* x88638 */ /* x88637 */ /* x88634 */ /* x88633 */ /* x88109 */ /* x88108 */ /* x88629 */ /* x88628 */ /* x88632 stalin.sc:7329:252059 */ /* x88631 stalin.sc:7329:252071 */ t92929 = a23041; /* x88630 stalin.sc:7329:252060 */ f9919(t92929); /* x87946 */ /* x87945 stalin.sc:7330:252076 */ t92926 = a23042; /* x10 stalin.sc:32900:1140778 */ t92927 = a13915; /* x3 stalin.sc:32900:1140726 */ t92924 = f18318(t92926, t92927); /* x2 stalin.sc:32900:1140720 */ t92925.tag = STRUCTURE_TYPE24753; t92925.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92925.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32900, 1140719); out_of_memory_error();} t92925.value.structure_type24753->s0.tag = NATIVE_PROCEDURE_TYPE14107; t92925.value.structure_type24753->s1.tag = NULL_TYPE; a35241 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35241==NULL) {backtrace("stalin.sc", 32900, 1140719); out_of_memory_error();} a35241->s0 = t92924; a35241->s1 = t92925; /* x272489 */ t89295 = a35241; /* x229892 */ a33049 = t89295; /* x229891 */ /* x229890 stalin.sc:31810:1096138 */ /* x229889 stalin.sc:31810:1096145 */ t92921 = a33049; /* x229888 stalin.sc:31810:1096139 */ a36181 = t92921; /* x276081 */ /* x276080 */ t92922 = a36181; /* x276079 */ t89296 = t92922->s0; /* x229887 */ a33050 = t89296; /* x229886 */ /* x229885 stalin.sc:31811:1096168 */ /* x229884 stalin.sc:31811:1096176 */ t92919 = a33049; /* x229883 stalin.sc:31811:1096169 */ t92920.tag = STRUCTURE_TYPE24753; t92920.value.structure_type24753 = t92919; t89297 = f26181(t92920); /* x229882 */ a33051 = t89297; /* x229881 */ /* x229880 */ /* x229879 */ /* x226574 stalin.sc:31813:1096218 */ /* x226572 stalin.sc:31813:1096226 */ t89333 = a702; /* x226573 stalin.sc:31813:1096232 */ t89334 = "Expanding macros"; /* x226571 stalin.sc:31813:1096219 */ f19217(t89333, t89334); /* x226578 stalin.sc:31814:1096254 */ /* x226577 stalin.sc:31814:1096264 */ /* x226576 stalin.sc:31814:1096277 */ t89335 = a33050; /* x226575 stalin.sc:31814:1096265 */ a23072 = t89335; /* x89602 */ /* x89601 */ /* x89600 */ /* x89599 */ /* x89598 */ /* x89597 */ /* x89596 */ /* x88717 */ /* x88716 stalin.sc:7480:257454 */ /* x88712 stalin.sc:7480:257467 */ t89336 = a23072; /* x88713 stalin.sc:7480:257469 */ /* x88714 stalin.sc:7480:257473 */ /* x88715 stalin.sc:7480:257476 */ t89337 = "top level"; /* x88711 stalin.sc:7480:257455 */ t89338 = (struct structure_type24753 *)NULL_TYPE; t89339.tag = FALSE_TYPE; t89340 = f9976(t89336, t89338, t89339, t89337); a2026.tag = STRUCTURE_TYPE27698; a2026.value.structure_type27698 = t89340; /* x226582 stalin.sc:31815:1096284 */ /* x226581 stalin.sc:31815:1096295 */ /* x226580 stalin.sc:31815:1096304 */ t89341 = a1633; /* x226579 stalin.sc:31815:1096296 */ t89342 = *((struct w49 *)(&t89341)); t89343 = f26331(t89342); a1633 = *((struct w21193 *)(&t89343)); /* x226586 stalin.sc:31816:1096313 */ /* x226584 stalin.sc:31816:1096321 */ t89344 = a702; /* x226585 stalin.sc:31816:1096327 */ t89345 = "Fast tree shake"; /* x226583 stalin.sc:31816:1096314 */ f19217(t89344, t89345); /* x226588 stalin.sc:31817:1096348 */ /* x226587 stalin.sc:31817:1096349 */ /* x92397 stalin.sc:7485:257540 */ /* x90120 stalin.sc:7485:257546 */ /* x89610 stalin.sc:7485:257551 */ /* x89608 stalin.sc:7485:257556 */ /* x89607 stalin.sc:7485:257573 */ t89348 = a2026; /* x89606 stalin.sc:7485:257557 */ a40400 = t89348; /* x294269 */ /* x294268 */ t89349 = a40400; /* x294267 */ if (!((t89349.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35317]"); structure_ref_error();} t89346 = t89349.value.structure_type27698->s0; /* x89609 stalin.sc:7485:257578 */ t89347 = q39; /* x269863 stalin.sc:7485:257552 */ if (!(t89346==t89347)) goto l17226; /* x90118 */ /* x89615 stalin.sc:7486:257592 */ /* x89614 stalin.sc:7486:257599 */ /* x89613 stalin.sc:7486:257622 */ t89352 = a2026; /* x89612 stalin.sc:7486:257600 */ a39459 = t89352; /* x290505 */ /* x290504 */ t89353 = a39459; /* x290503 */ if (!((t89353.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34376]"); structure_ref_error();} t89350 = t89353.value.structure_type27698->s14; /* x89611 stalin.sc:7486:257593 */ t89351 = *((struct w49 *)(&t89350)); if (f26209(t89351)==FALSE_TYPE) goto l17226; /* x90116 */ /* x89623 stalin.sc:7487:257633 */ /* x89621 stalin.sc:7487:257636 */ /* x89620 stalin.sc:7487:257644 */ /* x89619 stalin.sc:7487:257667 */ t89358 = a2026; /* x89618 stalin.sc:7487:257645 */ a39458 = t89358; /* x290501 */ /* x290500 */ t89359 = a39458; /* x290499 */ if (!((t89359.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34375]"); structure_ref_error();} t89356 = t89359.value.structure_type27698->s14; /* x89617 stalin.sc:7487:257637 */ t89357 = *((struct w49 *)(&t89356)); t89354 = f26227(t89357); /* x89622 stalin.sc:7487:257673 */ t89355 = 1; /* x269862 stalin.sc:7487:257634 */ if (!(t89354==t89355)) goto l17226; /* x90114 */ /* x89626 stalin.sc:7488:257681 */ /* x89625 stalin.sc:7488:257698 */ t89360 = a2026; /* x89624 stalin.sc:7488:257682 */ a39417 = t89360; /* x290337 */ /* x290336 */ t89361 = a39417; /* x290335 */ if (!((t89361.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34334]"); structure_ref_error();} if ((t89361.value.structure_type27698->s15.tag)==FALSE_TYPE) goto l17226; /* x90112 */ /* x89634 stalin.sc:7489:257708 */ /* x89632 stalin.sc:7489:257713 */ /* x89631 stalin.sc:7489:257730 */ /* x89630 stalin.sc:7489:257747 */ t89366 = a2026; /* x89629 stalin.sc:7489:257731 */ a39416 = t89366; /* x290333 */ /* x290332 */ t89367 = a39416; /* x290331 */ if (!((t89367.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34333]"); structure_ref_error();} t89364 = t89367.value.structure_type27698->s15; /* x89628 stalin.sc:7489:257714 */ a40384 = t89364; /* x294205 */ /* x294204 */ t89365 = a40384; /* x294203 */ if (!((t89365.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35301]"); structure_ref_error();} t89362 = t89365.value.structure_type27698->s0; /* x89633 stalin.sc:7489:257753 */ t89363 = q36; /* x269861 stalin.sc:7489:257709 */ if (!(t89362==t89363)) goto l17226; /* x90110 */ /* x89644 stalin.sc:7490:257765 */ /* x89642 stalin.sc:7490:257770 */ /* x89641 stalin.sc:7490:257787 */ /* x89640 stalin.sc:7490:257806 */ /* x89639 stalin.sc:7490:257823 */ t89374 = a2026; /* x89638 stalin.sc:7490:257807 */ a39415 = t89374; /* x290329 */ /* x290328 */ t89375 = a39415; /* x290327 */ if (!((t89375.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34332]"); structure_ref_error();} t89372 = t89375.value.structure_type27698->s15; /* x89637 stalin.sc:7490:257788 */ a38855 = t89372; /* x288089 */ /* x288088 */ t89373 = a38855; /* x288087 */ if (!((t89373.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33772]"); structure_ref_error();} t89370 = t89373.value.structure_type27698->s21; /* x89636 stalin.sc:7490:257771 */ a40383 = t89370; /* x294201 */ /* x294200 */ t89371 = a40383; /* x294199 */ if (!((t89371.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35300]"); structure_ref_error();} t89368 = t89371.value.structure_type27698->s0; /* x89643 stalin.sc:7491:257833 */ t89369 = q39; /* x269860 stalin.sc:7490:257766 */ if (!(t89368==t89369)) goto l17226; /* x90108 */ /* x89656 stalin.sc:7492:257847 */ /* x89654 stalin.sc:7492:257852 */ /* x89653 stalin.sc:7493:257873 */ /* x89652 stalin.sc:7494:257895 */ /* x89651 stalin.sc:7494:257914 */ /* x89650 stalin.sc:7494:257931 */ t89384 = a2026; /* x89649 stalin.sc:7494:257915 */ a39414 = t89384; /* x290325 */ /* x290324 */ t89385 = a39414; /* x290323 */ if (!((t89385.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34331]"); structure_ref_error();} t89382 = t89385.value.structure_type27698->s15; /* x89648 stalin.sc:7494:257896 */ a38854 = t89382; /* x288085 */ /* x288084 */ t89383 = a38854; /* x288083 */ if (!((t89383.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33771]"); structure_ref_error();} t89380 = t89383.value.structure_type27698->s21; /* x89647 stalin.sc:7493:257874 */ a39413 = t89380; /* x290321 */ /* x290320 */ t89381 = a39413; /* x290319 */ if (!((t89381.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34330]"); structure_ref_error();} t89378 = t89381.value.structure_type27698->s15; /* x89646 stalin.sc:7492:257853 */ a40382 = t89378; /* x294197 */ /* x294196 */ t89379 = a40382; /* x294195 */ if (!((t89379.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35299]"); structure_ref_error();} t89376 = t89379.value.structure_type27698->s0; /* x89655 stalin.sc:7495:257942 */ t89377 = q36; /* x269859 stalin.sc:7492:257848 */ if (!(t89376==t89377)) goto l17226; /* x90106 */ /* x89670 stalin.sc:7496:257954 */ /* x89668 stalin.sc:7496:257959 */ /* x89667 stalin.sc:7497:257980 */ /* x89666 stalin.sc:7498:258004 */ /* x89665 stalin.sc:7499:258027 */ /* x89664 stalin.sc:7499:258046 */ /* x89663 stalin.sc:7499:258063 */ t89396 = a2026; /* x89662 stalin.sc:7499:258047 */ a39412 = t89396; /* x290317 */ /* x290316 */ t89397 = a39412; /* x290315 */ if (!((t89397.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34329]"); structure_ref_error();} t89394 = t89397.value.structure_type27698->s15; /* x89661 stalin.sc:7499:258028 */ a38853 = t89394; /* x288081 */ /* x288080 */ t89395 = a38853; /* x288079 */ if (!((t89395.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33770]"); structure_ref_error();} t89392 = t89395.value.structure_type27698->s21; /* x89660 stalin.sc:7498:258005 */ a39411 = t89392; /* x290313 */ /* x290312 */ t89393 = a39411; /* x290311 */ if (!((t89393.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34328]"); structure_ref_error();} t89390 = t89393.value.structure_type27698->s15; /* x89659 stalin.sc:7497:257981 */ a38852 = t89390; /* x288077 */ /* x288076 */ t89391 = a38852; /* x288075 */ if (!((t89391.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33769]"); structure_ref_error();} t89388 = t89391.value.structure_type27698->s21; /* x89658 stalin.sc:7496:257960 */ a40381 = t89388; /* x294193 */ /* x294192 */ t89389 = a40381; /* x294191 */ if (!((t89389.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35298]"); structure_ref_error();} t89386 = t89389.value.structure_type27698->s0; /* x89669 stalin.sc:7500:258075 */ t89387 = q39; /* x269858 stalin.sc:7496:257955 */ if (!(t89386==t89387)) goto l17226; /* x90104 */ /* x89683 stalin.sc:7501:258089 */ /* x89682 stalin.sc:7501:258096 */ /* x89681 stalin.sc:7502:258125 */ /* x89680 stalin.sc:7503:258151 */ /* x89679 stalin.sc:7504:258176 */ /* x89678 stalin.sc:7504:258195 */ /* x89677 stalin.sc:7504:258212 */ t89408 = a2026; /* x89676 stalin.sc:7504:258196 */ a39410 = t89408; /* x290309 */ /* x290308 */ t89409 = a39410; /* x290307 */ if (!((t89409.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34327]"); structure_ref_error();} t89406 = t89409.value.structure_type27698->s15; /* x89675 stalin.sc:7504:258177 */ a38851 = t89406; /* x288073 */ /* x288072 */ t89407 = a38851; /* x288071 */ if (!((t89407.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33768]"); structure_ref_error();} t89404 = t89407.value.structure_type27698->s21; /* x89674 stalin.sc:7503:258152 */ a39409 = t89404; /* x290305 */ /* x290304 */ t89405 = a39409; /* x290303 */ if (!((t89405.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34326]"); structure_ref_error();} t89402 = t89405.value.structure_type27698->s15; /* x89673 stalin.sc:7502:258126 */ a38850 = t89402; /* x288069 */ /* x288068 */ t89403 = a38850; /* x288067 */ if (!((t89403.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33767]"); structure_ref_error();} t89400 = t89403.value.structure_type27698->s21; /* x89672 stalin.sc:7501:258097 */ a39457 = t89400; /* x290497 */ /* x290496 */ t89401 = a39457; /* x290495 */ if (!((t89401.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34374]"); structure_ref_error();} t89398 = t89401.value.structure_type27698->s14; /* x89671 stalin.sc:7501:258090 */ t89399 = *((struct w49 *)(&t89398)); if (f26209(t89399)==FALSE_TYPE) goto l17226; /* x90102 */ /* x89699 stalin.sc:7505:258227 */ /* x89697 stalin.sc:7505:258230 */ /* x89696 stalin.sc:7505:258238 */ /* x89695 stalin.sc:7506:258264 */ /* x89694 stalin.sc:7507:258287 */ /* x89693 stalin.sc:7508:258309 */ /* x89692 stalin.sc:7508:258328 */ /* x89691 stalin.sc:7508:258345 */ t89422 = a2026; /* x89690 stalin.sc:7508:258329 */ a39408 = t89422; /* x290301 */ /* x290300 */ t89423 = a39408; /* x290299 */ if (!((t89423.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34325]"); structure_ref_error();} t89420 = t89423.value.structure_type27698->s15; /* x89689 stalin.sc:7508:258310 */ a38849 = t89420; /* x288065 */ /* x288064 */ t89421 = a38849; /* x288063 */ if (!((t89421.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33766]"); structure_ref_error();} t89418 = t89421.value.structure_type27698->s21; /* x89688 stalin.sc:7507:258288 */ a39407 = t89418; /* x290297 */ /* x290296 */ t89419 = a39407; /* x290295 */ if (!((t89419.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34324]"); structure_ref_error();} t89416 = t89419.value.structure_type27698->s15; /* x89687 stalin.sc:7506:258265 */ a38848 = t89416; /* x288061 */ /* x288060 */ t89417 = a38848; /* x288059 */ if (!((t89417.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33765]"); structure_ref_error();} t89414 = t89417.value.structure_type27698->s21; /* x89686 stalin.sc:7505:258239 */ a39456 = t89414; /* x290493 */ /* x290492 */ t89415 = a39456; /* x290491 */ if (!((t89415.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34373]"); structure_ref_error();} t89412 = t89415.value.structure_type27698->s14; /* x89685 stalin.sc:7505:258231 */ t89413 = *((struct w49 *)(&t89412)); t89410 = f26227(t89413); /* x89698 stalin.sc:7509:258363 */ t89411 = 219; /* x269857 stalin.sc:7505:258228 */ if (!(t89410==t89411)) goto l17226; /* x90100 */ /* x89713 stalin.sc:7510:258373 */ /* x89712 stalin.sc:7511:258392 */ /* x89711 stalin.sc:7512:258421 */ /* x89710 stalin.sc:7513:258447 */ /* x89709 stalin.sc:7514:258472 */ /* x89708 stalin.sc:7514:258491 */ /* x89707 stalin.sc:7514:258508 */ t89436 = a2026; /* x89706 stalin.sc:7514:258492 */ a39406 = t89436; /* x290293 */ /* x290292 */ t89437 = a39406; /* x290291 */ if (!((t89437.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34323]"); structure_ref_error();} t89434 = t89437.value.structure_type27698->s15; /* x89705 stalin.sc:7514:258473 */ a38847 = t89434; /* x288057 */ /* x288056 */ t89435 = a38847; /* x288055 */ if (!((t89435.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33764]"); structure_ref_error();} t89432 = t89435.value.structure_type27698->s21; /* x89704 stalin.sc:7513:258448 */ a39405 = t89432; /* x290289 */ /* x290288 */ t89433 = a39405; /* x290287 */ if (!((t89433.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34322]"); structure_ref_error();} t89430 = t89433.value.structure_type27698->s15; /* x89703 stalin.sc:7512:258422 */ a38846 = t89430; /* x288053 */ /* x288052 */ t89431 = a38846; /* x288051 */ if (!((t89431.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33763]"); structure_ref_error();} t89428 = t89431.value.structure_type27698->s21; /* x89702 stalin.sc:7511:258393 */ a39455 = t89428; /* x290489 */ /* x290488 */ t89429 = a39455; /* x290487 */ if (!((t89429.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34372]"); structure_ref_error();} t89424 = t89429.value.structure_type27698->s14; /* x89701 stalin.sc:7510:258380 */ /* x89700 stalin.sc:7510:258374 */ t89425.tag = NATIVE_PROCEDURE_TYPE7030; t89426 = *((struct w49 *)(&t89424)); t89427 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t89425, t89426, t89427)==FALSE_TYPE) goto l17226; /* x90098 */ /* x89734 stalin.sc:7515:258523 */ /* x89732 stalin.sc:7515:258526 */ /* x89722 stalin.sc:7516:258542 */ /* x89731 stalin.sc:7517:258589 */ /* x89730 stalin.sc:7518:258614 */ /* x89729 stalin.sc:7519:258635 */ /* x89728 stalin.sc:7519:258654 */ /* x89727 stalin.sc:7519:258671 */ t89449 = a2026; /* x89726 stalin.sc:7519:258655 */ a39404 = t89449; /* x290285 */ /* x290284 */ t89450 = a39404; /* x290283 */ if (!((t89450.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34321]"); structure_ref_error();} t89447 = t89450.value.structure_type27698->s15; /* x89725 stalin.sc:7519:258636 */ a38845 = t89447; /* x288049 */ /* x288048 */ t89448 = a38845; /* x288047 */ if (!((t89448.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33762]"); structure_ref_error();} t89445 = t89448.value.structure_type27698->s21; /* x89724 stalin.sc:7518:258615 */ a39403 = t89445; /* x290281 */ /* x290280 */ t89446 = a39403; /* x290279 */ if (!((t89446.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34320]"); structure_ref_error();} t89443 = t89446.value.structure_type27698->s15; /* x89723 stalin.sc:7517:258590 */ a38597 = t89443; /* x287057 */ /* x287056 */ t89444 = a38597; /* x287055 */ if (!((t89444.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33514]"); structure_ref_error();} t89440 = t89444.value.structure_type27698->s22; /* x89715 stalin.sc:7515:258527 */ t89441 = NATIVE_PROCEDURE_TYPE17064; t89442 = *((struct w227393 *)(&t89440)); t89438 = f1370(t89441, t89442); /* x89733 stalin.sc:7520:258688 */ t89439 = 1; /* x269856 stalin.sc:7515:258524 */ if (!(t89438==t89439)) goto l17226; /* x90096 */ /* x89750 stalin.sc:7521:258696 */ /* x89748 stalin.sc:7521:258701 */ /* x89747 stalin.sc:7522:258722 */ /* x89746 stalin.sc:7523:258744 */ /* x89745 stalin.sc:7524:258769 */ /* x89744 stalin.sc:7525:258793 */ /* x89743 stalin.sc:7525:258812 */ /* x89742 stalin.sc:7525:258829 */ t89463 = a2026; /* x89741 stalin.sc:7525:258813 */ a39402 = t89463; /* x290277 */ /* x290276 */ t89464 = a39402; /* x290275 */ if (!((t89464.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34319]"); structure_ref_error();} t89461 = t89464.value.structure_type27698->s15; /* x89740 stalin.sc:7525:258794 */ a38844 = t89461; /* x288045 */ /* x288044 */ t89462 = a38844; /* x288043 */ if (!((t89462.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33761]"); structure_ref_error();} t89459 = t89462.value.structure_type27698->s21; /* x89739 stalin.sc:7524:258770 */ a39401 = t89459; /* x290273 */ /* x290272 */ t89460 = a39401; /* x290271 */ if (!((t89460.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34318]"); structure_ref_error();} t89457 = t89460.value.structure_type27698->s15; /* x89738 stalin.sc:7523:258745 */ a38843 = t89457; /* x288041 */ /* x288040 */ t89458 = a38843; /* x288039 */ if (!((t89458.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33760]"); structure_ref_error();} t89455 = t89458.value.structure_type27698->s21; /* x89737 stalin.sc:7522:258723 */ a39400 = t89455; /* x290269 */ /* x290268 */ t89456 = a39400; /* x290267 */ if (!((t89456.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34317]"); structure_ref_error();} t89453 = t89456.value.structure_type27698->s15; /* x89736 stalin.sc:7521:258702 */ a40379 = t89453; /* x294185 */ /* x294184 */ t89454 = a40379; /* x294183 */ if (!((t89454.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35296]"); structure_ref_error();} t89451 = t89454.value.structure_type27698->s0; /* x89749 stalin.sc:7526:258842 */ t89452 = q36; /* x269854 stalin.sc:7521:258697 */ if (!(t89451==t89452)) goto l17226; /* x90094 */ /* x89768 stalin.sc:7527:258854 */ /* x89766 stalin.sc:7527:258857 */ /* x89765 stalin.sc:7528:258867 */ /* x89764 stalin.sc:7529:258892 */ /* x89763 stalin.sc:7530:258913 */ /* x89762 stalin.sc:7531:258937 */ /* x89761 stalin.sc:7532:258960 */ /* x89760 stalin.sc:7532:258979 */ /* x89759 stalin.sc:7532:258996 */ t89479 = a2026; /* x89758 stalin.sc:7532:258980 */ a39399 = t89479; /* x290265 */ /* x290264 */ t89480 = a39399; /* x290263 */ if (!((t89480.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34316]"); structure_ref_error();} t89477 = t89480.value.structure_type27698->s15; /* x89757 stalin.sc:7532:258961 */ a38842 = t89477; /* x288037 */ /* x288036 */ t89478 = a38842; /* x288035 */ if (!((t89478.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33759]"); structure_ref_error();} t89475 = t89478.value.structure_type27698->s21; /* x89756 stalin.sc:7531:258938 */ a39398 = t89475; /* x290261 */ /* x290260 */ t89476 = a39398; /* x290259 */ if (!((t89476.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34315]"); structure_ref_error();} t89473 = t89476.value.structure_type27698->s15; /* x89755 stalin.sc:7530:258914 */ a38841 = t89473; /* x288033 */ /* x288032 */ t89474 = a38841; /* x288031 */ if (!((t89474.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33758]"); structure_ref_error();} t89471 = t89474.value.structure_type27698->s21; /* x89754 stalin.sc:7529:258893 */ a39397 = t89471; /* x290257 */ /* x290256 */ t89472 = a39397; /* x290255 */ if (!((t89472.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34314]"); structure_ref_error();} t89469 = t89472.value.structure_type27698->s15; /* x89753 stalin.sc:7528:258868 */ a38596 = t89469; /* x287053 */ /* x287052 */ t89470 = a38596; /* x287051 */ if (!((t89470.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33513]"); structure_ref_error();} t89467 = t89470.value.structure_type27698->s22; /* x89752 stalin.sc:7527:258858 */ t89468 = *((struct w49 *)(&t89467)); t89465 = f26227(t89468); /* x89767 stalin.sc:7533:259015 */ t89466 = 214; /* x269853 stalin.sc:7527:258855 */ if (!(t89465==t89466)) goto l17226; /* x90092 */ /* x89790 stalin.sc:7534:259025 */ /* x89789 stalin.sc:7535:259084 */ /* x89788 stalin.sc:7536:259112 */ /* x89787 stalin.sc:7537:259136 */ /* x89786 stalin.sc:7538:259163 */ /* x89785 stalin.sc:7539:259189 */ /* x89784 stalin.sc:7539:259208 */ /* x89783 stalin.sc:7539:259225 */ t89495 = a2026; /* x89782 stalin.sc:7539:259209 */ a39396 = t89495; /* x290253 */ /* x290252 */ t89496 = a39396; /* x290251 */ if (!((t89496.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34313]"); structure_ref_error();} t89493 = t89496.value.structure_type27698->s15; /* x89781 stalin.sc:7539:259190 */ a38840 = t89493; /* x288029 */ /* x288028 */ t89494 = a38840; /* x288027 */ if (!((t89494.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33757]"); structure_ref_error();} t89491 = t89494.value.structure_type27698->s21; /* x89780 stalin.sc:7538:259164 */ a39395 = t89491; /* x290249 */ /* x290248 */ t89492 = a39395; /* x290247 */ if (!((t89492.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34312]"); structure_ref_error();} t89489 = t89492.value.structure_type27698->s15; /* x89779 stalin.sc:7537:259137 */ a38839 = t89489; /* x288025 */ /* x288024 */ t89490 = a38839; /* x288023 */ if (!((t89490.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33756]"); structure_ref_error();} t89487 = t89490.value.structure_type27698->s21; /* x89778 stalin.sc:7536:259113 */ a39394 = t89487; /* x290245 */ /* x290244 */ t89488 = a39394; /* x290243 */ if (!((t89488.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34311]"); structure_ref_error();} t89485 = t89488.value.structure_type27698->s15; /* x89777 stalin.sc:7535:259085 */ a38595 = t89485; /* x287049 */ /* x287048 */ t89486 = a38595; /* x287047 */ if (!((t89486.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33512]"); structure_ref_error();} t89481 = t89486.value.structure_type27698->s22; /* x89776 stalin.sc:7534:259032 */ /* x89769 stalin.sc:7534:259026 */ t89482.tag = NATIVE_PROCEDURE_TYPE17065; t89483 = *((struct w49 *)(&t89481)); t89484 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t89482, t89483, t89484)==FALSE_TYPE) goto l17226; /* x90090 */ /* x89808 stalin.sc:7540:259241 */ /* x89806 stalin.sc:7540:259246 */ /* x89805 stalin.sc:7541:259267 */ /* x89804 stalin.sc:7542:259291 */ /* x89803 stalin.sc:7543:259314 */ /* x89802 stalin.sc:7544:259340 */ /* x89801 stalin.sc:7545:259365 */ /* x89800 stalin.sc:7545:259384 */ /* x89799 stalin.sc:7545:259401 */ t89511 = a2026; /* x89798 stalin.sc:7545:259385 */ a39393 = t89511; /* x290241 */ /* x290240 */ t89512 = a39393; /* x290239 */ if (!((t89512.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34310]"); structure_ref_error();} t89509 = t89512.value.structure_type27698->s15; /* x89797 stalin.sc:7545:259366 */ a38838 = t89509; /* x288021 */ /* x288020 */ t89510 = a38838; /* x288019 */ if (!((t89510.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33755]"); structure_ref_error();} t89507 = t89510.value.structure_type27698->s21; /* x89796 stalin.sc:7544:259341 */ a39392 = t89507; /* x290237 */ /* x290236 */ t89508 = a39392; /* x290235 */ if (!((t89508.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34309]"); structure_ref_error();} t89505 = t89508.value.structure_type27698->s15; /* x89795 stalin.sc:7543:259315 */ a38837 = t89505; /* x288017 */ /* x288016 */ t89506 = a38837; /* x288015 */ if (!((t89506.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33754]"); structure_ref_error();} t89503 = t89506.value.structure_type27698->s21; /* x89794 stalin.sc:7542:259292 */ a39391 = t89503; /* x290233 */ /* x290232 */ t89504 = a39391; /* x290231 */ if (!((t89504.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34308]"); structure_ref_error();} t89501 = t89504.value.structure_type27698->s15; /* x89793 stalin.sc:7541:259268 */ a38836 = t89501; /* x288013 */ /* x288012 */ t89502 = a38836; /* x288011 */ if (!((t89502.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33753]"); structure_ref_error();} t89499 = t89502.value.structure_type27698->s21; /* x89792 stalin.sc:7540:259247 */ a40378 = t89499; /* x294181 */ /* x294180 */ t89500 = a40378; /* x294179 */ if (!((t89500.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35295]"); structure_ref_error();} t89497 = t89500.value.structure_type27698->s0; /* x89807 stalin.sc:7546:259415 */ t89498 = q39; /* x269851 stalin.sc:7540:259242 */ if (!(t89497==t89498)) goto l17226; /* x90088 */ /* x89825 stalin.sc:7547:259429 */ /* x89824 stalin.sc:7547:259436 */ /* x89823 stalin.sc:7548:259465 */ /* x89822 stalin.sc:7549:259491 */ /* x89821 stalin.sc:7550:259516 */ /* x89820 stalin.sc:7551:259544 */ /* x89819 stalin.sc:7552:259564 */ /* x89818 stalin.sc:7552:259583 */ /* x89817 stalin.sc:7552:259600 */ t89527 = a2026; /* x89816 stalin.sc:7552:259584 */ a39390 = t89527; /* x290229 */ /* x290228 */ t89528 = a39390; /* x290227 */ if (!((t89528.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34307]"); structure_ref_error();} t89525 = t89528.value.structure_type27698->s15; /* x89815 stalin.sc:7552:259565 */ a38835 = t89525; /* x288009 */ /* x288008 */ t89526 = a38835; /* x288007 */ if (!((t89526.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33752]"); structure_ref_error();} t89523 = t89526.value.structure_type27698->s21; /* x89814 stalin.sc:7551:259545 */ a39389 = t89523; /* x290225 */ /* x290224 */ t89524 = a39389; /* x290223 */ if (!((t89524.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34306]"); structure_ref_error();} t89521 = t89524.value.structure_type27698->s15; /* x89813 stalin.sc:7550:259517 */ a38834 = t89521; /* x288005 */ /* x288004 */ t89522 = a38834; /* x288003 */ if (!((t89522.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33751]"); structure_ref_error();} t89519 = t89522.value.structure_type27698->s21; /* x89812 stalin.sc:7549:259492 */ a39388 = t89519; /* x290221 */ /* x290220 */ t89520 = a39388; /* x290219 */ if (!((t89520.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34305]"); structure_ref_error();} t89517 = t89520.value.structure_type27698->s15; /* x89811 stalin.sc:7548:259466 */ a38833 = t89517; /* x288001 */ /* x288000 */ t89518 = a38833; /* x287999 */ if (!((t89518.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33750]"); structure_ref_error();} t89515 = t89518.value.structure_type27698->s21; /* x89810 stalin.sc:7547:259437 */ a39454 = t89515; /* x290485 */ /* x290484 */ t89516 = a39454; /* x290483 */ if (!((t89516.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34371]"); structure_ref_error();} t89513 = t89516.value.structure_type27698->s14; /* x89809 stalin.sc:7547:259430 */ t89514 = *((struct w49 *)(&t89513)); if (f26209(t89514)==FALSE_TYPE) goto l17226; /* x90086 */ /* x89845 stalin.sc:7553:259617 */ /* x89843 stalin.sc:7553:259620 */ /* x89842 stalin.sc:7553:259628 */ /* x89841 stalin.sc:7554:259654 */ /* x89840 stalin.sc:7555:259677 */ /* x89839 stalin.sc:7556:259699 */ /* x89838 stalin.sc:7557:259724 */ /* x89837 stalin.sc:7558:259748 */ /* x89836 stalin.sc:7558:259767 */ /* x89835 stalin.sc:7558:259784 */ t89545 = a2026; /* x89834 stalin.sc:7558:259768 */ a39387 = t89545; /* x290217 */ /* x290216 */ t89546 = a39387; /* x290215 */ if (!((t89546.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34304]"); structure_ref_error();} t89543 = t89546.value.structure_type27698->s15; /* x89833 stalin.sc:7558:259749 */ a38832 = t89543; /* x287997 */ /* x287996 */ t89544 = a38832; /* x287995 */ if (!((t89544.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33749]"); structure_ref_error();} t89541 = t89544.value.structure_type27698->s21; /* x89832 stalin.sc:7557:259725 */ a39386 = t89541; /* x290213 */ /* x290212 */ t89542 = a39386; /* x290211 */ if (!((t89542.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34303]"); structure_ref_error();} t89539 = t89542.value.structure_type27698->s15; /* x89831 stalin.sc:7556:259700 */ a38831 = t89539; /* x287993 */ /* x287992 */ t89540 = a38831; /* x287991 */ if (!((t89540.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33748]"); structure_ref_error();} t89537 = t89540.value.structure_type27698->s21; /* x89830 stalin.sc:7555:259678 */ a39385 = t89537; /* x290209 */ /* x290208 */ t89538 = a39385; /* x290207 */ if (!((t89538.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34302]"); structure_ref_error();} t89535 = t89538.value.structure_type27698->s15; /* x89829 stalin.sc:7554:259655 */ a38830 = t89535; /* x287989 */ /* x287988 */ t89536 = a38830; /* x287987 */ if (!((t89536.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33747]"); structure_ref_error();} t89533 = t89536.value.structure_type27698->s21; /* x89828 stalin.sc:7553:259629 */ a39453 = t89533; /* x290481 */ /* x290480 */ t89534 = a39453; /* x290479 */ if (!((t89534.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34370]"); structure_ref_error();} t89531 = t89534.value.structure_type27698->s14; /* x89827 stalin.sc:7553:259621 */ t89532 = *((struct w49 *)(&t89531)); t89529 = f26227(t89532); /* x89844 stalin.sc:7559:259804 */ t89530 = 214; /* x269850 stalin.sc:7553:259618 */ if (!(t89529==t89530)) goto l17226; /* x90084 */ /* x89865 stalin.sc:7560:259814 */ /* x89863 stalin.sc:7560:259819 */ /* x89862 stalin.sc:7561:259840 */ /* x89861 stalin.sc:7562:259862 */ /* x89860 stalin.sc:7563:259887 */ /* x89859 stalin.sc:7564:259911 */ /* x89858 stalin.sc:7565:259938 */ /* x89857 stalin.sc:7566:259964 */ /* x89856 stalin.sc:7566:259983 */ /* x89855 stalin.sc:7566:260000 */ t89563 = a2026; /* x89854 stalin.sc:7566:259984 */ a39384 = t89563; /* x290205 */ /* x290204 */ t89564 = a39384; /* x290203 */ if (!((t89564.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34301]"); structure_ref_error();} t89561 = t89564.value.structure_type27698->s15; /* x89853 stalin.sc:7566:259965 */ a38829 = t89561; /* x287985 */ /* x287984 */ t89562 = a38829; /* x287983 */ if (!((t89562.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33746]"); structure_ref_error();} t89559 = t89562.value.structure_type27698->s21; /* x89852 stalin.sc:7565:259939 */ a39383 = t89559; /* x290201 */ /* x290200 */ t89560 = a39383; /* x290199 */ if (!((t89560.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34300]"); structure_ref_error();} t89557 = t89560.value.structure_type27698->s15; /* x89851 stalin.sc:7564:259912 */ a38828 = t89557; /* x287981 */ /* x287980 */ t89558 = a38828; /* x287979 */ if (!((t89558.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33745]"); structure_ref_error();} t89555 = t89558.value.structure_type27698->s21; /* x89850 stalin.sc:7563:259888 */ a39382 = t89555; /* x290197 */ /* x290196 */ t89556 = a39382; /* x290195 */ if (!((t89556.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34299]"); structure_ref_error();} t89553 = t89556.value.structure_type27698->s15; /* x89849 stalin.sc:7562:259863 */ a38827 = t89553; /* x287977 */ /* x287976 */ t89554 = a38827; /* x287975 */ if (!((t89554.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33744]"); structure_ref_error();} t89551 = t89554.value.structure_type27698->s21; /* x89848 stalin.sc:7561:259841 */ a39381 = t89551; /* x290193 */ /* x290192 */ t89552 = a39381; /* x290191 */ if (!((t89552.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34298]"); structure_ref_error();} t89549 = t89552.value.structure_type27698->s15; /* x89847 stalin.sc:7560:259820 */ a40377 = t89549; /* x294177 */ /* x294176 */ t89550 = a40377; /* x294175 */ if (!((t89550.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35294]"); structure_ref_error();} t89547 = t89550.value.structure_type27698->s0; /* x89864 stalin.sc:7567:260015 */ t89548 = q36; /* x269849 stalin.sc:7560:259815 */ if (!(t89547==t89548)) goto l17226; /* x90082 */ /* x89926 stalin.sc:7568:260027 */ /* x89925 stalin.sc:7576:260314 */ /* x89924 stalin.sc:7577:260343 */ /* x89923 stalin.sc:7578:260368 */ /* x89922 stalin.sc:7579:260389 */ /* x89921 stalin.sc:7580:260409 */ /* x89920 stalin.sc:7581:260432 */ /* x89919 stalin.sc:7582:260454 */ /* x89918 stalin.sc:7582:260473 */ /* x89917 stalin.sc:7582:260490 */ t89583 = a2026; /* x89916 stalin.sc:7582:260474 */ a39380 = t89583; /* x290189 */ /* x290188 */ t89584 = a39380; /* x290187 */ if (!((t89584.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34297]"); structure_ref_error();} t89581 = t89584.value.structure_type27698->s15; /* x89915 stalin.sc:7582:260455 */ a38826 = t89581; /* x287973 */ /* x287972 */ t89582 = a38826; /* x287971 */ if (!((t89582.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33743]"); structure_ref_error();} t89579 = t89582.value.structure_type27698->s21; /* x89914 stalin.sc:7581:260433 */ a39379 = t89579; /* x290185 */ /* x290184 */ t89580 = a39379; /* x290183 */ if (!((t89580.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34296]"); structure_ref_error();} t89577 = t89580.value.structure_type27698->s15; /* x89913 stalin.sc:7580:260410 */ a38825 = t89577; /* x287969 */ /* x287968 */ t89578 = a38825; /* x287967 */ if (!((t89578.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33742]"); structure_ref_error();} t89575 = t89578.value.structure_type27698->s21; /* x89912 stalin.sc:7579:260390 */ a39378 = t89575; /* x290181 */ /* x290180 */ t89576 = a39378; /* x290179 */ if (!((t89576.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34295]"); structure_ref_error();} t89573 = t89576.value.structure_type27698->s15; /* x89911 stalin.sc:7578:260369 */ a38824 = t89573; /* x287965 */ /* x287964 */ t89574 = a38824; /* x287963 */ if (!((t89574.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33741]"); structure_ref_error();} t89571 = t89574.value.structure_type27698->s21; /* x89910 stalin.sc:7577:260344 */ a39377 = t89571; /* x290177 */ /* x290176 */ t89572 = a39377; /* x290175 */ if (!((t89572.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34294]"); structure_ref_error();} t89569 = t89572.value.structure_type27698->s15; /* x89909 stalin.sc:7576:260315 */ a38594 = t89569; /* x287045 */ /* x287044 */ t89570 = a38594; /* x287043 */ if (!((t89570.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33511]"); structure_ref_error();} t89565 = t89570.value.structure_type27698->s22; /* x89908 stalin.sc:7569:260040 */ /* x89866 stalin.sc:7568:260028 */ t89566.tag = NATIVE_PROCEDURE_TYPE17066; t89567 = *((struct w49 *)(&t89565)); t89568 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t89566, t89567, t89568)==FALSE_TYPE) goto l17226; /* x90080 */ /* x89948 stalin.sc:7583:260508 */ /* x89946 stalin.sc:7583:260513 */ /* x89945 stalin.sc:7584:260534 */ /* x89944 stalin.sc:7585:260558 */ /* x89943 stalin.sc:7586:260581 */ /* x89942 stalin.sc:7587:260607 */ /* x89941 stalin.sc:7588:260632 */ /* x89940 stalin.sc:7589:260660 */ /* x89939 stalin.sc:7590:260680 */ /* x89938 stalin.sc:7590:260699 */ /* x89937 stalin.sc:7590:260716 */ t89603 = a2026; /* x89936 stalin.sc:7590:260700 */ a39376 = t89603; /* x290173 */ /* x290172 */ t89604 = a39376; /* x290171 */ if (!((t89604.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34293]"); structure_ref_error();} t89601 = t89604.value.structure_type27698->s15; /* x89935 stalin.sc:7590:260681 */ a38823 = t89601; /* x287961 */ /* x287960 */ t89602 = a38823; /* x287959 */ if (!((t89602.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33740]"); structure_ref_error();} t89599 = t89602.value.structure_type27698->s21; /* x89934 stalin.sc:7589:260661 */ a39375 = t89599; /* x290169 */ /* x290168 */ t89600 = a39375; /* x290167 */ if (!((t89600.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34292]"); structure_ref_error();} t89597 = t89600.value.structure_type27698->s15; /* x89933 stalin.sc:7588:260633 */ a38822 = t89597; /* x287957 */ /* x287956 */ t89598 = a38822; /* x287955 */ if (!((t89598.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33739]"); structure_ref_error();} t89595 = t89598.value.structure_type27698->s21; /* x89932 stalin.sc:7587:260608 */ a39374 = t89595; /* x290165 */ /* x290164 */ t89596 = a39374; /* x290163 */ if (!((t89596.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34291]"); structure_ref_error();} t89593 = t89596.value.structure_type27698->s15; /* x89931 stalin.sc:7586:260582 */ a38821 = t89593; /* x287953 */ /* x287952 */ t89594 = a38821; /* x287951 */ if (!((t89594.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33738]"); structure_ref_error();} t89591 = t89594.value.structure_type27698->s21; /* x89930 stalin.sc:7585:260559 */ a39373 = t89591; /* x290161 */ /* x290160 */ t89592 = a39373; /* x290159 */ if (!((t89592.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34290]"); structure_ref_error();} t89589 = t89592.value.structure_type27698->s15; /* x89929 stalin.sc:7584:260535 */ a38820 = t89589; /* x287949 */ /* x287948 */ t89590 = a38820; /* x287947 */ if (!((t89590.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33737]"); structure_ref_error();} t89587 = t89590.value.structure_type27698->s21; /* x89928 stalin.sc:7583:260514 */ a40376 = t89587; /* x294173 */ /* x294172 */ t89588 = a40376; /* x294171 */ if (!((t89588.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35293]"); structure_ref_error();} t89585 = t89588.value.structure_type27698->s0; /* x89947 stalin.sc:7591:260732 */ t89586 = q39; /* x269843 stalin.sc:7583:260509 */ if (!(t89585==t89586)) goto l17226; /* x90078 */ /* x89969 stalin.sc:7592:260746 */ /* x89968 stalin.sc:7592:260753 */ /* x89967 stalin.sc:7593:260782 */ /* x89966 stalin.sc:7594:260808 */ /* x89965 stalin.sc:7595:260833 */ /* x89964 stalin.sc:7596:260861 */ /* x89963 stalin.sc:7597:260881 */ /* x89962 stalin.sc:7598:260904 */ /* x89961 stalin.sc:7599:260926 */ /* x89960 stalin.sc:7599:260945 */ /* x89959 stalin.sc:7599:260962 */ t89623 = a2026; /* x89958 stalin.sc:7599:260946 */ a39372 = t89623; /* x290157 */ /* x290156 */ t89624 = a39372; /* x290155 */ if (!((t89624.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34289]"); structure_ref_error();} t89621 = t89624.value.structure_type27698->s15; /* x89957 stalin.sc:7599:260927 */ a38819 = t89621; /* x287945 */ /* x287944 */ t89622 = a38819; /* x287943 */ if (!((t89622.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33736]"); structure_ref_error();} t89619 = t89622.value.structure_type27698->s21; /* x89956 stalin.sc:7598:260905 */ a39371 = t89619; /* x290153 */ /* x290152 */ t89620 = a39371; /* x290151 */ if (!((t89620.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34288]"); structure_ref_error();} t89617 = t89620.value.structure_type27698->s15; /* x89955 stalin.sc:7597:260882 */ a38818 = t89617; /* x287941 */ /* x287940 */ t89618 = a38818; /* x287939 */ if (!((t89618.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33735]"); structure_ref_error();} t89615 = t89618.value.structure_type27698->s21; /* x89954 stalin.sc:7596:260862 */ a39370 = t89615; /* x290149 */ /* x290148 */ t89616 = a39370; /* x290147 */ if (!((t89616.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34287]"); structure_ref_error();} t89613 = t89616.value.structure_type27698->s15; /* x89953 stalin.sc:7595:260834 */ a38817 = t89613; /* x287937 */ /* x287936 */ t89614 = a38817; /* x287935 */ if (!((t89614.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33734]"); structure_ref_error();} t89611 = t89614.value.structure_type27698->s21; /* x89952 stalin.sc:7594:260809 */ a39369 = t89611; /* x290145 */ /* x290144 */ t89612 = a39369; /* x290143 */ if (!((t89612.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34286]"); structure_ref_error();} t89609 = t89612.value.structure_type27698->s15; /* x89951 stalin.sc:7593:260783 */ a38816 = t89609; /* x287933 */ /* x287932 */ t89610 = a38816; /* x287931 */ if (!((t89610.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33733]"); structure_ref_error();} t89607 = t89610.value.structure_type27698->s21; /* x89950 stalin.sc:7592:260754 */ a39452 = t89607; /* x290477 */ /* x290476 */ t89608 = a39452; /* x290475 */ if (!((t89608.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34369]"); structure_ref_error();} t89605 = t89608.value.structure_type27698->s14; /* x89949 stalin.sc:7592:260747 */ t89606 = *((struct w49 *)(&t89605)); if (f26209(t89606)==FALSE_TYPE) goto l17226; /* x90076 */ /* x89993 stalin.sc:7600:260981 */ /* x89991 stalin.sc:7600:260986 */ /* x89990 stalin.sc:7601:261007 */ /* x89989 stalin.sc:7602:261029 */ /* x89988 stalin.sc:7603:261054 */ /* x89987 stalin.sc:7604:261078 */ /* x89986 stalin.sc:7605:261105 */ /* x89985 stalin.sc:7606:261131 */ /* x89984 stalin.sc:7607:261153 */ /* x89983 stalin.sc:7608:261174 */ /* x89982 stalin.sc:7608:261193 */ /* x89981 stalin.sc:7608:261210 */ t89645 = a2026; /* x89980 stalin.sc:7608:261194 */ a39368 = t89645; /* x290141 */ /* x290140 */ t89646 = a39368; /* x290139 */ if (!((t89646.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34285]"); structure_ref_error();} t89643 = t89646.value.structure_type27698->s15; /* x89979 stalin.sc:7608:261175 */ a38815 = t89643; /* x287929 */ /* x287928 */ t89644 = a38815; /* x287927 */ if (!((t89644.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33732]"); structure_ref_error();} t89641 = t89644.value.structure_type27698->s21; /* x89978 stalin.sc:7607:261154 */ a39367 = t89641; /* x290137 */ /* x290136 */ t89642 = a39367; /* x290135 */ if (!((t89642.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34284]"); structure_ref_error();} t89639 = t89642.value.structure_type27698->s15; /* x89977 stalin.sc:7606:261132 */ a38814 = t89639; /* x287925 */ /* x287924 */ t89640 = a38814; /* x287923 */ if (!((t89640.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33731]"); structure_ref_error();} t89637 = t89640.value.structure_type27698->s21; /* x89976 stalin.sc:7605:261106 */ a39366 = t89637; /* x290133 */ /* x290132 */ t89638 = a39366; /* x290131 */ if (!((t89638.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34283]"); structure_ref_error();} t89635 = t89638.value.structure_type27698->s15; /* x89975 stalin.sc:7604:261079 */ a38813 = t89635; /* x287921 */ /* x287920 */ t89636 = a38813; /* x287919 */ if (!((t89636.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33730]"); structure_ref_error();} t89633 = t89636.value.structure_type27698->s21; /* x89974 stalin.sc:7603:261055 */ a39365 = t89633; /* x290129 */ /* x290128 */ t89634 = a39365; /* x290127 */ if (!((t89634.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34282]"); structure_ref_error();} t89631 = t89634.value.structure_type27698->s15; /* x89973 stalin.sc:7602:261030 */ a38812 = t89631; /* x287917 */ /* x287916 */ t89632 = a38812; /* x287915 */ if (!((t89632.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33729]"); structure_ref_error();} t89629 = t89632.value.structure_type27698->s21; /* x89972 stalin.sc:7601:261008 */ a39364 = t89629; /* x290125 */ /* x290124 */ t89630 = a39364; /* x290123 */ if (!((t89630.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34281]"); structure_ref_error();} t89627 = t89630.value.structure_type27698->s15; /* x89971 stalin.sc:7600:260987 */ a40375 = t89627; /* x294169 */ /* x294168 */ t89628 = a40375; /* x294167 */ if (!((t89628.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35292]"); structure_ref_error();} t89625 = t89628.value.structure_type27698->s0; /* x89992 stalin.sc:7609:261227 */ t89626 = q36; /* x269842 stalin.sc:7600:260982 */ if (!(t89625==t89626)) goto l17226; /* x90074 */ /* x90019 stalin.sc:7610:261239 */ /* x90017 stalin.sc:7610:261244 */ /* x90016 stalin.sc:7611:261265 */ /* x90015 stalin.sc:7612:261289 */ /* x90014 stalin.sc:7613:261312 */ /* x90013 stalin.sc:7614:261338 */ /* x90012 stalin.sc:7615:261363 */ /* x90011 stalin.sc:7616:261391 */ /* x90010 stalin.sc:7617:261411 */ /* x90009 stalin.sc:7618:261434 */ /* x90008 stalin.sc:7619:261456 */ /* x90007 stalin.sc:7619:261475 */ /* x90006 stalin.sc:7619:261492 */ t89669 = a2026; /* x90005 stalin.sc:7619:261476 */ a39363 = t89669; /* x290121 */ /* x290120 */ t89670 = a39363; /* x290119 */ if (!((t89670.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34280]"); structure_ref_error();} t89667 = t89670.value.structure_type27698->s15; /* x90004 stalin.sc:7619:261457 */ a38811 = t89667; /* x287913 */ /* x287912 */ t89668 = a38811; /* x287911 */ if (!((t89668.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33728]"); structure_ref_error();} t89665 = t89668.value.structure_type27698->s21; /* x90003 stalin.sc:7618:261435 */ a39362 = t89665; /* x290117 */ /* x290116 */ t89666 = a39362; /* x290115 */ if (!((t89666.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34279]"); structure_ref_error();} t89663 = t89666.value.structure_type27698->s15; /* x90002 stalin.sc:7617:261412 */ a38810 = t89663; /* x287909 */ /* x287908 */ t89664 = a38810; /* x287907 */ if (!((t89664.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33727]"); structure_ref_error();} t89661 = t89664.value.structure_type27698->s21; /* x90001 stalin.sc:7616:261392 */ a39361 = t89661; /* x290113 */ /* x290112 */ t89662 = a39361; /* x290111 */ if (!((t89662.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34278]"); structure_ref_error();} t89659 = t89662.value.structure_type27698->s15; /* x90000 stalin.sc:7615:261364 */ a38809 = t89659; /* x287905 */ /* x287904 */ t89660 = a38809; /* x287903 */ if (!((t89660.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33726]"); structure_ref_error();} t89657 = t89660.value.structure_type27698->s21; /* x89999 stalin.sc:7614:261339 */ a39360 = t89657; /* x290109 */ /* x290108 */ t89658 = a39360; /* x290107 */ if (!((t89658.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34277]"); structure_ref_error();} t89655 = t89658.value.structure_type27698->s15; /* x89998 stalin.sc:7613:261313 */ a38808 = t89655; /* x287901 */ /* x287900 */ t89656 = a38808; /* x287899 */ if (!((t89656.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33725]"); structure_ref_error();} t89653 = t89656.value.structure_type27698->s21; /* x89997 stalin.sc:7612:261290 */ a39359 = t89653; /* x290105 */ /* x290104 */ t89654 = a39359; /* x290103 */ if (!((t89654.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34276]"); structure_ref_error();} t89651 = t89654.value.structure_type27698->s15; /* x89996 stalin.sc:7611:261266 */ a38807 = t89651; /* x287897 */ /* x287896 */ t89652 = a38807; /* x287895 */ if (!((t89652.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33724]"); structure_ref_error();} t89649 = t89652.value.structure_type27698->s21; /* x89995 stalin.sc:7610:261245 */ a40374 = t89649; /* x294165 */ /* x294164 */ t89650 = a40374; /* x294163 */ if (!((t89650.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-KIND[5487] 35291]"); structure_ref_error();} t89647 = t89650.value.structure_type27698->s0; /* x90018 stalin.sc:7620:261510 */ t89648 = q39; /* x269841 stalin.sc:7610:261240 */ if (!(t89647==t89648)) goto l17226; /* x90072 */ /* x90044 stalin.sc:7621:261524 */ /* x90043 stalin.sc:7622:261537 */ /* x90042 stalin.sc:7623:261567 */ /* x90041 stalin.sc:7624:261594 */ /* x90040 stalin.sc:7625:261613 */ /* x90039 stalin.sc:7626:261635 */ /* x90038 stalin.sc:7627:261656 */ /* x90037 stalin.sc:7628:261680 */ /* x90036 stalin.sc:7629:261703 */ /* x90035 stalin.sc:7630:261729 */ /* x90034 stalin.sc:7631:261754 */ /* x90033 stalin.sc:7631:261773 */ /* x90032 stalin.sc:7631:261790 */ t89693 = a2026; /* x90031 stalin.sc:7631:261774 */ a39358 = t89693; /* x290101 */ /* x290100 */ t89694 = a39358; /* x290099 */ if (!((t89694.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34275]"); structure_ref_error();} t89691 = t89694.value.structure_type27698->s15; /* x90030 stalin.sc:7631:261755 */ a38806 = t89691; /* x287893 */ /* x287892 */ t89692 = a38806; /* x287891 */ if (!((t89692.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33723]"); structure_ref_error();} t89689 = t89692.value.structure_type27698->s21; /* x90029 stalin.sc:7630:261730 */ a39357 = t89689; /* x290097 */ /* x290096 */ t89690 = a39357; /* x290095 */ if (!((t89690.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34274]"); structure_ref_error();} t89687 = t89690.value.structure_type27698->s15; /* x90028 stalin.sc:7629:261704 */ a38805 = t89687; /* x287889 */ /* x287888 */ t89688 = a38805; /* x287887 */ if (!((t89688.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33722]"); structure_ref_error();} t89685 = t89688.value.structure_type27698->s21; /* x90027 stalin.sc:7628:261681 */ a39356 = t89685; /* x290093 */ /* x290092 */ t89686 = a39356; /* x290091 */ if (!((t89686.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34273]"); structure_ref_error();} t89683 = t89686.value.structure_type27698->s15; /* x90026 stalin.sc:7627:261657 */ a38804 = t89683; /* x287885 */ /* x287884 */ t89684 = a38804; /* x287883 */ if (!((t89684.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33721]"); structure_ref_error();} t89681 = t89684.value.structure_type27698->s21; /* x90025 stalin.sc:7626:261636 */ a39355 = t89681; /* x290089 */ /* x290088 */ t89682 = a39355; /* x290087 */ if (!((t89682.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34272]"); structure_ref_error();} t89679 = t89682.value.structure_type27698->s15; /* x90024 stalin.sc:7625:261614 */ a38803 = t89679; /* x287881 */ /* x287880 */ t89680 = a38803; /* x287879 */ if (!((t89680.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33720]"); structure_ref_error();} t89677 = t89680.value.structure_type27698->s21; /* x90023 stalin.sc:7624:261595 */ a39354 = t89677; /* x290085 */ /* x290084 */ t89678 = a39354; /* x290083 */ if (!((t89678.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34271]"); structure_ref_error();} t89675 = t89678.value.structure_type27698->s15; /* x90022 stalin.sc:7623:261568 */ a38802 = t89675; /* x287877 */ /* x287876 */ t89676 = a38802; /* x287875 */ if (!((t89676.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33719]"); structure_ref_error();} t89673 = t89676.value.structure_type27698->s21; /* x90021 stalin.sc:7622:261538 */ a39451 = t89673; /* x290473 */ /* x290472 */ t89674 = a39451; /* x290471 */ if (!((t89674.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34368]"); structure_ref_error();} t89671 = t89674.value.structure_type27698->s14; /* x90020 stalin.sc:7621:261525 */ t89672 = *((struct w49 *)(&t89671)); if (f26209(t89672)==FALSE_TYPE) goto l17226; /* x90070 */ /* x90069 stalin.sc:7634:261837 */ /* x90068 stalin.sc:7635:261867 */ /* x90067 stalin.sc:7636:261894 */ /* x90066 stalin.sc:7637:261913 */ /* x90065 stalin.sc:7638:261935 */ /* x90064 stalin.sc:7639:261956 */ /* x90063 stalin.sc:7640:261980 */ /* x90062 stalin.sc:7641:262003 */ /* x90061 stalin.sc:7642:262029 */ /* x90060 stalin.sc:7643:262054 */ /* x90059 stalin.sc:7643:262073 */ /* x90058 stalin.sc:7643:262090 */ t89719 = a2026; /* x90057 stalin.sc:7643:262074 */ a39353 = t89719; /* x290081 */ /* x290080 */ t89720 = a39353; /* x290079 */ if (!((t89720.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34270]"); structure_ref_error();} t89717 = t89720.value.structure_type27698->s15; /* x90056 stalin.sc:7643:262055 */ a38801 = t89717; /* x287873 */ /* x287872 */ t89718 = a38801; /* x287871 */ if (!((t89718.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33718]"); structure_ref_error();} t89715 = t89718.value.structure_type27698->s21; /* x90055 stalin.sc:7642:262030 */ a39352 = t89715; /* x290077 */ /* x290076 */ t89716 = a39352; /* x290075 */ if (!((t89716.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34269]"); structure_ref_error();} t89713 = t89716.value.structure_type27698->s15; /* x90054 stalin.sc:7641:262004 */ a38800 = t89713; /* x287869 */ /* x287868 */ t89714 = a38800; /* x287867 */ if (!((t89714.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33717]"); structure_ref_error();} t89711 = t89714.value.structure_type27698->s21; /* x90053 stalin.sc:7640:261981 */ a39351 = t89711; /* x290073 */ /* x290072 */ t89712 = a39351; /* x290071 */ if (!((t89712.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34268]"); structure_ref_error();} t89709 = t89712.value.structure_type27698->s15; /* x90052 stalin.sc:7639:261957 */ a38799 = t89709; /* x287865 */ /* x287864 */ t89710 = a38799; /* x287863 */ if (!((t89710.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33716]"); structure_ref_error();} t89707 = t89710.value.structure_type27698->s21; /* x90051 stalin.sc:7638:261936 */ a39350 = t89707; /* x290069 */ /* x290068 */ t89708 = a39350; /* x290067 */ if (!((t89708.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34267]"); structure_ref_error();} t89705 = t89708.value.structure_type27698->s15; /* x90050 stalin.sc:7637:261914 */ a38798 = t89705; /* x287861 */ /* x287860 */ t89706 = a38798; /* x287859 */ if (!((t89706.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33715]"); structure_ref_error();} t89703 = t89706.value.structure_type27698->s21; /* x90049 stalin.sc:7636:261895 */ a39349 = t89703; /* x290065 */ /* x290064 */ t89704 = a39349; /* x290063 */ if (!((t89704.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34266]"); structure_ref_error();} t89701 = t89704.value.structure_type27698->s15; /* x90048 stalin.sc:7635:261868 */ a38797 = t89701; /* x287857 */ /* x287856 */ t89702 = a38797; /* x287855 */ if (!((t89702.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33714]"); structure_ref_error();} t89699 = t89702.value.structure_type27698->s21; /* x90047 stalin.sc:7634:261838 */ a39450 = t89699; /* x290469 */ /* x290468 */ t89700 = a39450; /* x290467 */ if (!((t89700.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34367]"); structure_ref_error();} t89695 = t89700.value.structure_type27698->s14; /* x90046 stalin.sc:7633:261824 */ /* x90045 stalin.sc:7632:261812 */ t89696.tag = NATIVE_PROCEDURE_TYPE7030; t89697 = *((struct w49 *)(&t89695)); t89698 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t89696, t89697, t89698)==FALSE_TYPE) goto l17226; /* x92394 */ /* x92393 */ /* x92392 stalin.sc:7644:262109 */ /* x92391 stalin.sc:7644:262120 */ /* x92390 stalin.sc:7645:262150 */ /* x92389 stalin.sc:7646:262177 */ /* x92388 stalin.sc:7647:262196 */ /* x92387 stalin.sc:7648:262218 */ /* x92386 stalin.sc:7649:262239 */ /* x92385 stalin.sc:7650:262263 */ /* x92384 stalin.sc:7651:262286 */ /* x92383 stalin.sc:7651:262305 */ /* x92382 stalin.sc:7651:262322 */ t90255 = a2026; /* x92381 stalin.sc:7651:262306 */ a39348 = t90255; /* x290061 */ /* x290060 */ t90256 = a39348; /* x290059 */ if (!((t90256.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34265]"); structure_ref_error();} t90253 = t90256.value.structure_type27698->s15; /* x92380 stalin.sc:7651:262287 */ a38796 = t90253; /* x287853 */ /* x287852 */ t90254 = a38796; /* x287851 */ if (!((t90254.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33713]"); structure_ref_error();} t90251 = t90254.value.structure_type27698->s21; /* x92379 stalin.sc:7650:262264 */ a39347 = t90251; /* x290057 */ /* x290056 */ t90252 = a39347; /* x290055 */ if (!((t90252.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34264]"); structure_ref_error();} t90249 = t90252.value.structure_type27698->s15; /* x92378 stalin.sc:7649:262240 */ a38795 = t90249; /* x287849 */ /* x287848 */ t90250 = a38795; /* x287847 */ if (!((t90250.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33712]"); structure_ref_error();} t90247 = t90250.value.structure_type27698->s21; /* x92377 stalin.sc:7648:262219 */ a39346 = t90247; /* x290053 */ /* x290052 */ t90248 = a39346; /* x290051 */ if (!((t90248.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34263]"); structure_ref_error();} t90245 = t90248.value.structure_type27698->s15; /* x92376 stalin.sc:7647:262197 */ a38794 = t90245; /* x287845 */ /* x287844 */ t90246 = a38794; /* x287843 */ if (!((t90246.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33711]"); structure_ref_error();} t90243 = t90246.value.structure_type27698->s21; /* x92375 stalin.sc:7646:262178 */ a39345 = t90243; /* x290049 */ /* x290048 */ t90244 = a39345; /* x290047 */ if (!((t90244.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34262]"); structure_ref_error();} t90241 = t90244.value.structure_type27698->s15; /* x92374 stalin.sc:7645:262151 */ a38793 = t90241; /* x287841 */ /* x287840 */ t90242 = a38793; /* x287839 */ if (!((t90242.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33710]"); structure_ref_error();} t90239 = t90242.value.structure_type27698->s21; /* x92373 stalin.sc:7644:262121 */ a39449 = t90239; /* x290465 */ /* x290464 */ t90240 = a39449; /* x290463 */ if (!((t90240.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34366]"); structure_ref_error();} t89721 = t90240.value.structure_type27698->s14; /* x92372 */ a23109 = t89721; /* x92371 */ /* x92370 stalin.sc:7652:262342 */ /* x92348 stalin.sc:7653:262355 */ /* x92347 stalin.sc:7654:262380 */ /* x92346 stalin.sc:7655:262401 */ /* x92345 stalin.sc:7656:262421 */ /* x92344 stalin.sc:7657:262444 */ /* x92343 stalin.sc:7658:262466 */ /* x92342 stalin.sc:7659:262491 */ /* x92341 stalin.sc:7660:262515 */ /* x92340 stalin.sc:7661:262542 */ /* x92339 stalin.sc:7662:262568 */ /* x92338 stalin.sc:7662:262587 */ /* x92337 stalin.sc:7662:262604 */ t90217 = a2026; /* x92336 stalin.sc:7662:262588 */ a39339 = t90217; /* x290025 */ /* x290024 */ t90218 = a39339; /* x290023 */ if (!((t90218.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34256]"); structure_ref_error();} t90215 = t90218.value.structure_type27698->s15; /* x92335 stalin.sc:7662:262569 */ a38788 = t90215; /* x287821 */ /* x287820 */ t90216 = a38788; /* x287819 */ if (!((t90216.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33705]"); structure_ref_error();} t90213 = t90216.value.structure_type27698->s21; /* x92334 stalin.sc:7661:262543 */ a39338 = t90213; /* x290021 */ /* x290020 */ t90214 = a39338; /* x290019 */ if (!((t90214.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34255]"); structure_ref_error();} t90211 = t90214.value.structure_type27698->s15; /* x92333 stalin.sc:7660:262516 */ a38787 = t90211; /* x287817 */ /* x287816 */ t90212 = a38787; /* x287815 */ if (!((t90212.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33704]"); structure_ref_error();} t90209 = t90212.value.structure_type27698->s21; /* x92332 stalin.sc:7659:262492 */ a39337 = t90209; /* x290017 */ /* x290016 */ t90210 = a39337; /* x290015 */ if (!((t90210.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34254]"); structure_ref_error();} t90207 = t90210.value.structure_type27698->s15; /* x92331 stalin.sc:7658:262467 */ a38786 = t90207; /* x287813 */ /* x287812 */ t90208 = a38786; /* x287811 */ if (!((t90208.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33703]"); structure_ref_error();} t90205 = t90208.value.structure_type27698->s21; /* x92330 stalin.sc:7657:262445 */ a39336 = t90205; /* x290013 */ /* x290012 */ t90206 = a39336; /* x290011 */ if (!((t90206.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34253]"); structure_ref_error();} t90203 = t90206.value.structure_type27698->s15; /* x92329 stalin.sc:7656:262422 */ a38785 = t90203; /* x287809 */ /* x287808 */ t90204 = a38785; /* x287807 */ if (!((t90204.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33702]"); structure_ref_error();} t90201 = t90204.value.structure_type27698->s21; /* x92328 stalin.sc:7655:262402 */ a39335 = t90201; /* x290009 */ /* x290008 */ t90202 = a39335; /* x290007 */ if (!((t90202.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34252]"); structure_ref_error();} t90199 = t90202.value.structure_type27698->s15; /* x92327 stalin.sc:7654:262381 */ a38784 = t90199; /* x287805 */ /* x287804 */ t90200 = a38784; /* x287803 */ if (!((t90200.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33701]"); structure_ref_error();} t90197 = t90200.value.structure_type27698->s21; /* x92326 stalin.sc:7653:262356 */ a39334 = t90197; /* x290005 */ /* x290004 */ t90198 = a39334; /* x290003 */ if (!((t90198.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34251]"); structure_ref_error();} t90195 = t90198.value.structure_type27698->s15; /* x92369 stalin.sc:7663:262626 */ /* x92368 stalin.sc:7664:262656 */ /* x92367 stalin.sc:7665:262675 */ /* x92366 stalin.sc:7666:262697 */ /* x92365 stalin.sc:7667:262718 */ /* x92364 stalin.sc:7668:262742 */ /* x92363 stalin.sc:7669:262765 */ /* x92362 stalin.sc:7670:262791 */ /* x92361 stalin.sc:7671:262816 */ /* x92360 stalin.sc:7671:262835 */ /* x92359 stalin.sc:7671:262852 */ t90237 = a2026; /* x92358 stalin.sc:7671:262836 */ a39344 = t90237; /* x290045 */ /* x290044 */ t90238 = a39344; /* x290043 */ if (!((t90238.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34261]"); structure_ref_error();} t90235 = t90238.value.structure_type27698->s15; /* x92357 stalin.sc:7671:262817 */ a38792 = t90235; /* x287837 */ /* x287836 */ t90236 = a38792; /* x287835 */ if (!((t90236.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33709]"); structure_ref_error();} t90233 = t90236.value.structure_type27698->s21; /* x92356 stalin.sc:7670:262792 */ a39343 = t90233; /* x290041 */ /* x290040 */ t90234 = a39343; /* x290039 */ if (!((t90234.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34260]"); structure_ref_error();} t90231 = t90234.value.structure_type27698->s15; /* x92355 stalin.sc:7669:262766 */ a38791 = t90231; /* x287833 */ /* x287832 */ t90232 = a38791; /* x287831 */ if (!((t90232.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33708]"); structure_ref_error();} t90229 = t90232.value.structure_type27698->s21; /* x92354 stalin.sc:7668:262743 */ a39342 = t90229; /* x290037 */ /* x290036 */ t90230 = a39342; /* x290035 */ if (!((t90230.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34259]"); structure_ref_error();} t90227 = t90230.value.structure_type27698->s15; /* x92353 stalin.sc:7667:262719 */ a38790 = t90227; /* x287829 */ /* x287828 */ t90228 = a38790; /* x287827 */ if (!((t90228.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33707]"); structure_ref_error();} t90225 = t90228.value.structure_type27698->s21; /* x92352 stalin.sc:7666:262698 */ a39341 = t90225; /* x290033 */ /* x290032 */ t90226 = a39341; /* x290031 */ if (!((t90226.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34258]"); structure_ref_error();} t90223 = t90226.value.structure_type27698->s15; /* x92351 stalin.sc:7665:262676 */ a38789 = t90223; /* x287825 */ /* x287824 */ t90224 = a38789; /* x287823 */ if (!((t90224.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33706]"); structure_ref_error();} t90221 = t90224.value.structure_type27698->s21; /* x92350 stalin.sc:7664:262657 */ a39340 = t90221; /* x290029 */ /* x290028 */ t90222 = a39340; /* x290027 */ if (!((t90222.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34257]"); structure_ref_error();} t90219 = t90222.value.structure_type27698->s15; /* x92349 stalin.sc:7663:262627 */ a38593 = t90219; /* x287041 */ /* x287040 */ t90220 = a38593; /* x287039 */ if (!((t90220.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33510]"); structure_ref_error();} t90196 = t90220.value.structure_type27698->s22; /* x269822 stalin.sc:7652:262343 */ t89722 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t89722==NULL) {backtrace("stalin.sc", 7652, 262342); out_of_memory_error();} t89722->s0 = t90195; t89722->s1 = *((struct w49 *)(&t90196)); /* x92324 */ a23110 = t89722; /* x92323 */ /* x92322 stalin.sc:7672:262875 */ /* x92320 stalin.sc:7673:262898 */ /* x92321 stalin.sc:7682:263211 */ t90192 = a23110; /* x92273 stalin.sc:7672:262876 */ t90193.tag = NATIVE_PROCEDURE_TYPE17070; t90194.tag = STRUCTURE_TYPE24753; t90194.value.structure_type24753 = t90192; t89723 = f1226(t90193, t90194); /* x92272 */ a23111 = t89723; /* x92271 */ /* x92270 stalin.sc:7683:263223 */ /* x92268 stalin.sc:7683:263240 */ t90189 = a23110; /* x92269 stalin.sc:7683:263243 */ t90190 = a23111; /* x92267 stalin.sc:7683:263224 */ t90191.tag = STRUCTURE_TYPE24753; t90191.value.structure_type24753 = t90189; t89724 = f1454(t90191, t90190); /* x92266 */ a23112 = t89724; /* x92265 */ /* x92264 */ /* x92263 */ /* x90146 stalin.sc:7684:263253 */ /* x90145 stalin.sc:7684:263309 */ t89734 = a2031; /* x90144 stalin.sc:7684:263263 */ /* x90139 stalin.sc:7684:263254 */ t89735.tag = NATIVE_PROCEDURE_TYPE17335; t89736 = *((struct w49 *)(&t89734)); t89737 = (struct structure_type24753 *)NULL_TYPE; f27755(t89735, t89736, t89737); /* x90154 stalin.sc:7685:263318 */ /* x90153 stalin.sc:7685:263372 */ t89738 = a1633; /* x90152 stalin.sc:7685:263328 */ /* x90147 stalin.sc:7685:263319 */ t89739.tag = NATIVE_PROCEDURE_TYPE17334; t89740 = *((struct w49 *)(&t89738)); t89741 = (struct structure_type24753 *)NULL_TYPE; f27755(t89739, t89740, t89741); /* x90465 stalin.sc:7686:263381 */ /* x90464 stalin.sc:7723:264623 */ t89742 = a23111; /* x90463 stalin.sc:7687:263395 */ /* x90155 stalin.sc:7686:263382 */ t89743.tag = NATIVE_PROCEDURE_TYPE17294; t89744 = *((struct w49 *)(&t89742)); t89745 = (struct structure_type24753 *)NULL_TYPE; f27755(t89743, t89744, t89745); /* x90488 stalin.sc:7724:264631 */ /* x90487 stalin.sc:7727:264769 */ t89746 = a23109; /* x90486 stalin.sc:7724:264641 */ /* x90466 stalin.sc:7724:264632 */ t89747.tag = NATIVE_PROCEDURE_TYPE17290; t89748 = *((struct w49 *)(&t89746)); t89749 = (struct structure_type24753 *)NULL_TYPE; f27755(t89747, t89748, t89749); /* x90743 stalin.sc:7728:264776 */ /* x90742 stalin.sc:7758:265694 */ t89750 = a23112; /* x90741 stalin.sc:7728:264786 */ /* x90489 stalin.sc:7728:264777 */ t89751.tag = NATIVE_PROCEDURE_TYPE17257; t89752 = *((struct w49 *)(&t89750)); t89753 = (struct structure_type24753 *)NULL_TYPE; f27755(t89751, t89752, t89753); /* x91116 stalin.sc:7759:265702 */ /* x91115 */ /* x91114 */ /* x91113 */ /* x91112 */ /* x91111 */ /* x91110 */ /* x91109 */ /* x90745 */ /* x90744 stalin.sc:7759:265707 */ h10150: /* x91108 stalin.sc:7760:265719 */ /* x91107 stalin.sc:7760:265733 */ /* x91106 */ a23171 = FALSE_TYPE; /* x91105 */ /* x91104 stalin.sc:7761:265743 */ /* x91103 stalin.sc:7803:267179 */ t89754 = a23111; /* x91102 stalin.sc:7762:265759 */ /* x90755 stalin.sc:7761:265744 */ t89755.tag = NATIVE_PROCEDURE_TYPE17254; t89756 = *((struct w49 *)(&t89754)); t89757 = (struct structure_type24753 *)NULL_TYPE; f27755(t89755, t89756, t89757); /* x90754 */ /* x90753 stalin.sc:7804:267189 */ /* x90746 stalin.sc:7804:267195 */ if (a23171==FALSE_TYPE) goto l17258; /* x90750 */ /* x90749 */ /* x90748 stalin.sc:7804:267202 */ /* x90747 stalin.sc:7804:267203 */ goto h10150; goto l17259; l17258: /* x90752 stalin.sc:7804:267189 */ /* x90751 stalin.sc:7804:267189 */ l17259: /* x91157 stalin.sc:7806:267250 */ /* x91134 stalin.sc:7807:267282 */ /* x91133 stalin.sc:7808:267306 */ /* x91132 stalin.sc:7809:267329 */ /* x91131 stalin.sc:7810:267355 */ /* x91130 stalin.sc:7811:267373 */ /* x91129 stalin.sc:7812:267394 */ /* x91128 stalin.sc:7812:267411 */ /* x91127 stalin.sc:7812:267430 */ /* x91126 stalin.sc:7812:267447 */ t89775 = a2026; /* x91125 stalin.sc:7812:267431 */ a39250 = t89775; /* x289669 */ /* x289668 */ t89776 = a39250; /* x289667 */ if (!((t89776.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34167]"); structure_ref_error();} t89773 = t89776.value.structure_type27698->s15; /* x91124 stalin.sc:7812:267412 */ a38710 = t89773; /* x287509 */ /* x287508 */ t89774 = a38710; /* x287507 */ if (!((t89774.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33627]"); structure_ref_error();} t89771 = t89774.value.structure_type27698->s21; /* x91123 stalin.sc:7812:267395 */ a39249 = t89771; /* x289665 */ /* x289664 */ t89772 = a39249; /* x289663 */ if (!((t89772.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34166]"); structure_ref_error();} t89769 = t89772.value.structure_type27698->s15; /* x91122 stalin.sc:7811:267374 */ a38709 = t89769; /* x287505 */ /* x287504 */ t89770 = a38709; /* x287503 */ if (!((t89770.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33626]"); structure_ref_error();} t89767 = t89770.value.structure_type27698->s21; /* x91121 stalin.sc:7810:267356 */ a39248 = t89767; /* x289661 */ /* x289660 */ t89768 = a39248; /* x289659 */ if (!((t89768.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34165]"); structure_ref_error();} t89765 = t89768.value.structure_type27698->s15; /* x91120 stalin.sc:7809:267330 */ a38708 = t89765; /* x287501 */ /* x287500 */ t89766 = a38708; /* x287499 */ if (!((t89766.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33625]"); structure_ref_error();} t89763 = t89766.value.structure_type27698->s21; /* x91119 stalin.sc:7808:267307 */ a39247 = t89763; /* x289657 */ /* x289656 */ t89764 = a39247; /* x289655 */ if (!((t89764.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34164]"); structure_ref_error();} t89761 = t89764.value.structure_type27698->s15; /* x91118 stalin.sc:7807:267283 */ a38707 = t89761; /* x287497 */ /* x287496 */ t89762 = a38707; /* x287495 */ if (!((t89762.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33624]"); structure_ref_error();} t89758 = t89762.value.structure_type27698->s21; /* x91156 stalin.sc:7813:267463 */ /* x91136 stalin.sc:7814:267483 */ /* x91155 stalin.sc:7815:267507 */ /* x91154 stalin.sc:7816:267536 */ /* x91153 stalin.sc:7817:267562 */ /* x91152 stalin.sc:7818:267580 */ /* x91151 stalin.sc:7819:267601 */ /* x91150 stalin.sc:7820:267621 */ /* x91149 stalin.sc:7821:267644 */ /* x91148 stalin.sc:7821:267661 */ /* x91147 stalin.sc:7821:267680 */ /* x91146 stalin.sc:7821:267697 */ t89796 = a2026; /* x91145 stalin.sc:7821:267681 */ a39254 = t89796; /* x289685 */ /* x289684 */ t89797 = a39254; /* x289683 */ if (!((t89797.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34171]"); structure_ref_error();} t89794 = t89797.value.structure_type27698->s15; /* x91144 stalin.sc:7821:267662 */ a38714 = t89794; /* x287525 */ /* x287524 */ t89795 = a38714; /* x287523 */ if (!((t89795.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33631]"); structure_ref_error();} t89792 = t89795.value.structure_type27698->s21; /* x91143 stalin.sc:7821:267645 */ a39253 = t89792; /* x289681 */ /* x289680 */ t89793 = a39253; /* x289679 */ if (!((t89793.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34170]"); structure_ref_error();} t89790 = t89793.value.structure_type27698->s15; /* x91142 stalin.sc:7820:267622 */ a38713 = t89790; /* x287521 */ /* x287520 */ t89791 = a38713; /* x287519 */ if (!((t89791.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33630]"); structure_ref_error();} t89788 = t89791.value.structure_type27698->s21; /* x91141 stalin.sc:7819:267602 */ a39252 = t89788; /* x289677 */ /* x289676 */ t89789 = a39252; /* x289675 */ if (!((t89789.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34169]"); structure_ref_error();} t89786 = t89789.value.structure_type27698->s15; /* x91140 stalin.sc:7818:267581 */ a38712 = t89786; /* x287517 */ /* x287516 */ t89787 = a38712; /* x287515 */ if (!((t89787.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33629]"); structure_ref_error();} t89784 = t89787.value.structure_type27698->s21; /* x91139 stalin.sc:7817:267563 */ a39251 = t89784; /* x289673 */ /* x289672 */ t89785 = a39251; /* x289671 */ if (!((t89785.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34168]"); structure_ref_error();} t89782 = t89785.value.structure_type27698->s15; /* x91138 stalin.sc:7816:267537 */ a38711 = t89782; /* x287513 */ /* x287512 */ t89783 = a38711; /* x287511 */ if (!((t89783.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33628]"); structure_ref_error();} t89780 = t89783.value.structure_type27698->s21; /* x91137 stalin.sc:7815:267508 */ a39441 = t89780; /* x290433 */ /* x290432 */ t89781 = a39441; /* x290431 */ if (!((t89781.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34358]"); structure_ref_error();} t89777 = t89781.value.structure_type27698->s14; /* x91135 stalin.sc:7813:267464 */ t89778.tag = NATIVE_PROCEDURE_TYPE7346; t89779 = *((struct w49 *)(&t89777)); t89759 = f1226(t89778, t89779); /* x91117 stalin.sc:7806:267251 */ t89760 = *((struct w11873 *)(&t89759)); f5600(t89758, t89760); /* x91526 stalin.sc:7823:267795 */ /* x91525 stalin.sc:7860:269037 */ /* x91484 stalin.sc:7861:269051 */ /* x91483 stalin.sc:7862:269079 */ /* x91482 stalin.sc:7863:269103 */ /* x91481 stalin.sc:7864:269123 */ /* x91480 stalin.sc:7865:269142 */ /* x91479 stalin.sc:7866:269164 */ /* x91478 stalin.sc:7866:269181 */ /* x91477 stalin.sc:7866:269200 */ /* x91476 stalin.sc:7866:269217 */ t89820 = a2026; /* x91475 stalin.sc:7866:269201 */ a39260 = t89820; /* x289709 */ /* x289708 */ t89821 = a39260; /* x289707 */ if (!((t89821.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34177]"); structure_ref_error();} t89818 = t89821.value.structure_type27698->s15; /* x91474 stalin.sc:7866:269182 */ a38718 = t89818; /* x287541 */ /* x287540 */ t89819 = a38718; /* x287539 */ if (!((t89819.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33635]"); structure_ref_error();} t89816 = t89819.value.structure_type27698->s21; /* x91473 stalin.sc:7866:269165 */ a39259 = t89816; /* x289705 */ /* x289704 */ t89817 = a39259; /* x289703 */ if (!((t89817.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34176]"); structure_ref_error();} t89814 = t89817.value.structure_type27698->s15; /* x91472 stalin.sc:7865:269143 */ a38717 = t89814; /* x287537 */ /* x287536 */ t89815 = a38717; /* x287535 */ if (!((t89815.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33634]"); structure_ref_error();} t89812 = t89815.value.structure_type27698->s21; /* x91471 stalin.sc:7864:269124 */ a39258 = t89812; /* x289701 */ /* x289700 */ t89813 = a39258; /* x289699 */ if (!((t89813.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34175]"); structure_ref_error();} t89810 = t89813.value.structure_type27698->s15; /* x91470 stalin.sc:7863:269104 */ a38716 = t89810; /* x287533 */ /* x287532 */ t89811 = a38716; /* x287531 */ if (!((t89811.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33633]"); structure_ref_error();} t89808 = t89811.value.structure_type27698->s21; /* x91469 stalin.sc:7862:269080 */ a39257 = t89808; /* x289697 */ /* x289696 */ t89809 = a39257; /* x289695 */ if (!((t89809.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34174]"); structure_ref_error();} t89806 = t89809.value.structure_type27698->s15; /* x91468 stalin.sc:7861:269052 */ a38583 = t89806; /* x287001 */ /* x287000 */ t89807 = a38583; /* x286999 */ if (!((t89807.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33500]"); structure_ref_error();} t89802 = t89807.value.structure_type27698->s22; /* x91505 stalin.sc:7867:269234 */ /* x91504 stalin.sc:7868:269248 */ /* x91503 stalin.sc:7869:269278 */ /* x91502 stalin.sc:7870:269298 */ /* x91501 stalin.sc:7871:269317 */ /* x91500 stalin.sc:7872:269339 */ /* x91499 stalin.sc:7873:269360 */ /* x91498 stalin.sc:7874:269384 */ /* x91497 stalin.sc:7874:269401 */ /* x91496 stalin.sc:7874:269420 */ /* x91495 stalin.sc:7874:269437 */ t89840 = a2026; /* x91494 stalin.sc:7874:269421 */ a39264 = t89840; /* x289725 */ /* x289724 */ t89841 = a39264; /* x289723 */ if (!((t89841.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34181]"); structure_ref_error();} t89838 = t89841.value.structure_type27698->s15; /* x91493 stalin.sc:7874:269402 */ a38722 = t89838; /* x287557 */ /* x287556 */ t89839 = a38722; /* x287555 */ if (!((t89839.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33639]"); structure_ref_error();} t89836 = t89839.value.structure_type27698->s21; /* x91492 stalin.sc:7874:269385 */ a39263 = t89836; /* x289721 */ /* x289720 */ t89837 = a39263; /* x289719 */ if (!((t89837.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34180]"); structure_ref_error();} t89834 = t89837.value.structure_type27698->s15; /* x91491 stalin.sc:7873:269361 */ a38721 = t89834; /* x287553 */ /* x287552 */ t89835 = a38721; /* x287551 */ if (!((t89835.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33638]"); structure_ref_error();} t89832 = t89835.value.structure_type27698->s21; /* x91490 stalin.sc:7872:269340 */ a39262 = t89832; /* x289717 */ /* x289716 */ t89833 = a39262; /* x289715 */ if (!((t89833.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34179]"); structure_ref_error();} t89830 = t89833.value.structure_type27698->s15; /* x91489 stalin.sc:7871:269318 */ a38720 = t89830; /* x287549 */ /* x287548 */ t89831 = a38720; /* x287547 */ if (!((t89831.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33637]"); structure_ref_error();} t89828 = t89831.value.structure_type27698->s21; /* x91488 stalin.sc:7870:269299 */ a39261 = t89828; /* x289713 */ /* x289712 */ t89829 = a39261; /* x289711 */ if (!((t89829.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34178]"); structure_ref_error();} t89826 = t89829.value.structure_type27698->s15; /* x91487 stalin.sc:7869:269279 */ a38719 = t89826; /* x287545 */ /* x287544 */ t89827 = a38719; /* x287543 */ if (!((t89827.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33636]"); structure_ref_error();} t89824 = t89827.value.structure_type27698->s21; /* x91486 stalin.sc:7868:269249 */ a39443 = t89824; /* x290441 */ /* x290440 */ t89825 = a39443; /* x290439 */ if (!((t89825.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34360]"); structure_ref_error();} t89822 = t89825.value.structure_type27698->s14; /* x91485 stalin.sc:7867:269235 */ t89823 = *((struct w49 *)(&t89822)); t89803 = f26227(t89823); /* x91524 stalin.sc:7875:269456 */ /* x91523 stalin.sc:7876:269470 */ /* x91522 stalin.sc:7877:269499 */ /* x91521 stalin.sc:7878:269517 */ /* x91520 stalin.sc:7879:269538 */ /* x91519 stalin.sc:7880:269558 */ /* x91518 stalin.sc:7881:269581 */ /* x91517 stalin.sc:7881:269598 */ /* x91516 stalin.sc:7881:269617 */ /* x91515 stalin.sc:7881:269634 */ t89858 = a2026; /* x91514 stalin.sc:7881:269618 */ a39268 = t89858; /* x289741 */ /* x289740 */ t89859 = a39268; /* x289739 */ if (!((t89859.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34185]"); structure_ref_error();} t89856 = t89859.value.structure_type27698->s15; /* x91513 stalin.sc:7881:269599 */ a38725 = t89856; /* x287569 */ /* x287568 */ t89857 = a38725; /* x287567 */ if (!((t89857.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33642]"); structure_ref_error();} t89854 = t89857.value.structure_type27698->s21; /* x91512 stalin.sc:7881:269582 */ a39267 = t89854; /* x289737 */ /* x289736 */ t89855 = a39267; /* x289735 */ if (!((t89855.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34184]"); structure_ref_error();} t89852 = t89855.value.structure_type27698->s15; /* x91511 stalin.sc:7880:269559 */ a38724 = t89852; /* x287565 */ /* x287564 */ t89853 = a38724; /* x287563 */ if (!((t89853.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33641]"); structure_ref_error();} t89850 = t89853.value.structure_type27698->s21; /* x91510 stalin.sc:7879:269539 */ a39266 = t89850; /* x289733 */ /* x289732 */ t89851 = a39266; /* x289731 */ if (!((t89851.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34183]"); structure_ref_error();} t89848 = t89851.value.structure_type27698->s15; /* x91509 stalin.sc:7878:269518 */ a38723 = t89848; /* x287561 */ /* x287560 */ t89849 = a38723; /* x287559 */ if (!((t89849.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33640]"); structure_ref_error();} t89846 = t89849.value.structure_type27698->s21; /* x91508 stalin.sc:7877:269500 */ a39265 = t89846; /* x289729 */ /* x289728 */ t89847 = a39265; /* x289727 */ if (!((t89847.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34182]"); structure_ref_error();} t89844 = t89847.value.structure_type27698->s15; /* x91507 stalin.sc:7876:269471 */ a38584 = t89844; /* x287005 */ /* x287004 */ t89845 = a38584; /* x287003 */ if (!((t89845.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33501]"); structure_ref_error();} t89842 = t89845.value.structure_type27698->s22; /* x91506 stalin.sc:7875:269457 */ t89843 = *((struct w49 *)(&t89842)); t89804 = f26227(t89843); /* x91467 stalin.sc:7860:269038 */ t89805 = *((struct w49 *)(&t89802)); t89798 = f26233(t89805, t89803, t89804); /* x91466 stalin.sc:7824:267809 */ /* x91158 stalin.sc:7823:267796 */ t89799.tag = NATIVE_PROCEDURE_TYPE17209; /* MOVE: branching squeezed to general */ if (t89798>=((struct structure_type24753 *)VALUE_OFFSET)) {t89800.tag = STRUCTURE_TYPE24753; t89800.value.structure_type24753 = t89798;} else t89800.tag = (unsigned)t89798; t89801 = (struct structure_type24753 *)NULL_TYPE; f27755(t89799, t89800, t89801); /* x91584 stalin.sc:7882:269652 */ /* x91542 stalin.sc:7883:269683 */ /* x91541 stalin.sc:7884:269705 */ /* x91540 stalin.sc:7885:269730 */ /* x91539 stalin.sc:7886:269754 */ /* x91538 stalin.sc:7887:269774 */ /* x91537 stalin.sc:7887:269791 */ /* x91536 stalin.sc:7887:269810 */ /* x91535 stalin.sc:7887:269827 */ t89875 = a2026; /* x91534 stalin.sc:7887:269811 */ a39272 = t89875; /* x289757 */ /* x289756 */ t89876 = a39272; /* x289755 */ if (!((t89876.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34189]"); structure_ref_error();} t89873 = t89876.value.structure_type27698->s15; /* x91533 stalin.sc:7887:269792 */ a38728 = t89873; /* x287581 */ /* x287580 */ t89874 = a38728; /* x287579 */ if (!((t89874.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33645]"); structure_ref_error();} t89871 = t89874.value.structure_type27698->s21; /* x91532 stalin.sc:7887:269775 */ a39271 = t89871; /* x289753 */ /* x289752 */ t89872 = a39271; /* x289751 */ if (!((t89872.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34188]"); structure_ref_error();} t89869 = t89872.value.structure_type27698->s15; /* x91531 stalin.sc:7886:269755 */ a38727 = t89869; /* x287577 */ /* x287576 */ t89870 = a38727; /* x287575 */ if (!((t89870.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33644]"); structure_ref_error();} t89867 = t89870.value.structure_type27698->s21; /* x91530 stalin.sc:7885:269731 */ a39270 = t89867; /* x289749 */ /* x289748 */ t89868 = a39270; /* x289747 */ if (!((t89868.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34187]"); structure_ref_error();} t89865 = t89868.value.structure_type27698->s15; /* x91529 stalin.sc:7884:269706 */ a38726 = t89865; /* x287573 */ /* x287572 */ t89866 = a38726; /* x287571 */ if (!((t89866.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33643]"); structure_ref_error();} t89863 = t89866.value.structure_type27698->s21; /* x91528 stalin.sc:7883:269684 */ a39269 = t89863; /* x289745 */ /* x289744 */ t89864 = a39269; /* x289743 */ if (!((t89864.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34186]"); structure_ref_error();} t89860 = t89864.value.structure_type27698->s15; /* x91583 stalin.sc:7888:269842 */ /* x91560 stalin.sc:7889:269856 */ /* x91559 stalin.sc:7890:269884 */ /* x91558 stalin.sc:7891:269908 */ /* x91557 stalin.sc:7892:269928 */ /* x91556 stalin.sc:7893:269947 */ /* x91555 stalin.sc:7894:269969 */ /* x91554 stalin.sc:7894:269986 */ /* x91553 stalin.sc:7894:270005 */ /* x91552 stalin.sc:7894:270022 */ t89895 = a2026; /* x91551 stalin.sc:7894:270006 */ a39276 = t89895; /* x289773 */ /* x289772 */ t89896 = a39276; /* x289771 */ if (!((t89896.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34193]"); structure_ref_error();} t89893 = t89896.value.structure_type27698->s15; /* x91550 stalin.sc:7894:269987 */ a38731 = t89893; /* x287593 */ /* x287592 */ t89894 = a38731; /* x287591 */ if (!((t89894.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33648]"); structure_ref_error();} t89891 = t89894.value.structure_type27698->s21; /* x91549 stalin.sc:7894:269970 */ a39275 = t89891; /* x289769 */ /* x289768 */ t89892 = a39275; /* x289767 */ if (!((t89892.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34192]"); structure_ref_error();} t89889 = t89892.value.structure_type27698->s15; /* x91548 stalin.sc:7893:269948 */ a38730 = t89889; /* x287589 */ /* x287588 */ t89890 = a38730; /* x287587 */ if (!((t89890.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33647]"); structure_ref_error();} t89887 = t89890.value.structure_type27698->s21; /* x91547 stalin.sc:7892:269929 */ a39274 = t89887; /* x289765 */ /* x289764 */ t89888 = a39274; /* x289763 */ if (!((t89888.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34191]"); structure_ref_error();} t89885 = t89888.value.structure_type27698->s15; /* x91546 stalin.sc:7891:269909 */ a38729 = t89885; /* x287585 */ /* x287584 */ t89886 = a38729; /* x287583 */ if (!((t89886.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33646]"); structure_ref_error();} t89883 = t89886.value.structure_type27698->s21; /* x91545 stalin.sc:7890:269885 */ a39273 = t89883; /* x289761 */ /* x289760 */ t89884 = a39273; /* x289759 */ if (!((t89884.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34190]"); structure_ref_error();} t89881 = t89884.value.structure_type27698->s15; /* x91544 stalin.sc:7889:269857 */ a38585 = t89881; /* x287009 */ /* x287008 */ t89882 = a38585; /* x287007 */ if (!((t89882.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33502]"); structure_ref_error();} t89877 = t89882.value.structure_type27698->s22; /* x91561 stalin.sc:7895:270039 */ t89878 = 0; /* x91582 stalin.sc:7896:270046 */ /* x91581 stalin.sc:7897:270060 */ /* x91580 stalin.sc:7898:270090 */ /* x91579 stalin.sc:7899:270110 */ /* x91578 stalin.sc:7900:270129 */ /* x91577 stalin.sc:7901:270151 */ /* x91576 stalin.sc:7902:270172 */ /* x91575 stalin.sc:7903:270196 */ /* x91574 stalin.sc:7904:270219 */ /* x91573 stalin.sc:7904:270238 */ /* x91572 stalin.sc:7904:270255 */ t89915 = a2026; /* x91571 stalin.sc:7904:270239 */ a39280 = t89915; /* x289789 */ /* x289788 */ t89916 = a39280; /* x289787 */ if (!((t89916.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34197]"); structure_ref_error();} t89913 = t89916.value.structure_type27698->s15; /* x91570 stalin.sc:7904:270220 */ a38735 = t89913; /* x287609 */ /* x287608 */ t89914 = a38735; /* x287607 */ if (!((t89914.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33652]"); structure_ref_error();} t89911 = t89914.value.structure_type27698->s21; /* x91569 stalin.sc:7903:270197 */ a39279 = t89911; /* x289785 */ /* x289784 */ t89912 = a39279; /* x289783 */ if (!((t89912.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34196]"); structure_ref_error();} t89909 = t89912.value.structure_type27698->s15; /* x91568 stalin.sc:7902:270173 */ a38734 = t89909; /* x287605 */ /* x287604 */ t89910 = a38734; /* x287603 */ if (!((t89910.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33651]"); structure_ref_error();} t89907 = t89910.value.structure_type27698->s21; /* x91567 stalin.sc:7901:270152 */ a39278 = t89907; /* x289781 */ /* x289780 */ t89908 = a39278; /* x289779 */ if (!((t89908.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34195]"); structure_ref_error();} t89905 = t89908.value.structure_type27698->s15; /* x91566 stalin.sc:7900:270130 */ a38733 = t89905; /* x287601 */ /* x287600 */ t89906 = a38733; /* x287599 */ if (!((t89906.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33650]"); structure_ref_error();} t89903 = t89906.value.structure_type27698->s21; /* x91565 stalin.sc:7899:270111 */ a39277 = t89903; /* x289777 */ /* x289776 */ t89904 = a39277; /* x289775 */ if (!((t89904.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34194]"); structure_ref_error();} t89901 = t89904.value.structure_type27698->s15; /* x91564 stalin.sc:7898:270091 */ a38732 = t89901; /* x287597 */ /* x287596 */ t89902 = a38732; /* x287595 */ if (!((t89902.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33649]"); structure_ref_error();} t89899 = t89902.value.structure_type27698->s21; /* x91563 stalin.sc:7897:270061 */ a39444 = t89899; /* x290445 */ /* x290444 */ t89900 = a39444; /* x290443 */ if (!((t89900.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34361]"); structure_ref_error();} t89897 = t89900.value.structure_type27698->s14; /* x91562 stalin.sc:7896:270047 */ t89898 = *((struct w49 *)(&t89897)); t89879 = f26227(t89898); /* x91543 stalin.sc:7888:269843 */ t89880 = *((struct w49 *)(&t89877)); t89861 = f26233(t89880, t89878, t89879); /* x91527 stalin.sc:7882:269653 */ /* MOVE: branching squeezed to general */ if (t89861>=((struct structure_type24753 *)VALUE_OFFSET)) {t89862.tag = STRUCTURE_TYPE24753; t89862.value.structure_type24753 = t89861;} else t89862.tag = (unsigned)t89861; f5664(t89860, t89862); /* x91629 stalin.sc:7906:270311 */ /* x91604 stalin.sc:7907:270342 */ /* x91603 stalin.sc:7908:270364 */ /* x91602 stalin.sc:7909:270389 */ /* x91601 stalin.sc:7910:270413 */ /* x91600 stalin.sc:7911:270433 */ /* x91599 stalin.sc:7912:270452 */ /* x91598 stalin.sc:7913:270474 */ /* x91597 stalin.sc:7913:270491 */ /* x91596 stalin.sc:7913:270510 */ /* x91595 stalin.sc:7913:270527 */ t89935 = a2026; /* x91594 stalin.sc:7913:270511 */ a39285 = t89935; /* x289809 */ /* x289808 */ t89936 = a39285; /* x289807 */ if (!((t89936.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34202]"); structure_ref_error();} t89933 = t89936.value.structure_type27698->s15; /* x91593 stalin.sc:7913:270492 */ a38739 = t89933; /* x287625 */ /* x287624 */ t89934 = a38739; /* x287623 */ if (!((t89934.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33656]"); structure_ref_error();} t89931 = t89934.value.structure_type27698->s21; /* x91592 stalin.sc:7913:270475 */ a39284 = t89931; /* x289805 */ /* x289804 */ t89932 = a39284; /* x289803 */ if (!((t89932.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34201]"); structure_ref_error();} t89929 = t89932.value.structure_type27698->s15; /* x91591 stalin.sc:7912:270453 */ a38738 = t89929; /* x287621 */ /* x287620 */ t89930 = a38738; /* x287619 */ if (!((t89930.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33655]"); structure_ref_error();} t89927 = t89930.value.structure_type27698->s21; /* x91590 stalin.sc:7911:270434 */ a39283 = t89927; /* x289801 */ /* x289800 */ t89928 = a39283; /* x289799 */ if (!((t89928.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34200]"); structure_ref_error();} t89925 = t89928.value.structure_type27698->s15; /* x91589 stalin.sc:7910:270414 */ a38737 = t89925; /* x287617 */ /* x287616 */ t89926 = a38737; /* x287615 */ if (!((t89926.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33654]"); structure_ref_error();} t89923 = t89926.value.structure_type27698->s21; /* x91588 stalin.sc:7909:270390 */ a39282 = t89923; /* x289797 */ /* x289796 */ t89924 = a39282; /* x289795 */ if (!((t89924.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34199]"); structure_ref_error();} t89921 = t89924.value.structure_type27698->s15; /* x91587 stalin.sc:7908:270365 */ a38736 = t89921; /* x287613 */ /* x287612 */ t89922 = a38736; /* x287611 */ if (!((t89922.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33653]"); structure_ref_error();} t89919 = t89922.value.structure_type27698->s21; /* x91586 stalin.sc:7907:270343 */ a39281 = t89919; /* x289793 */ /* x289792 */ t89920 = a39281; /* x289791 */ if (!((t89920.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34198]"); structure_ref_error();} t89917 = t89920.value.structure_type27698->s15; /* x91628 stalin.sc:7914:270544 */ /* x91606 stalin.sc:7915:270564 */ /* x91627 stalin.sc:7916:270590 */ /* x91626 stalin.sc:7917:270618 */ /* x91625 stalin.sc:7918:270642 */ /* x91624 stalin.sc:7919:270662 */ /* x91623 stalin.sc:7920:270681 */ /* x91622 stalin.sc:7921:270703 */ /* x91621 stalin.sc:7922:270724 */ /* x91620 stalin.sc:7923:270748 */ /* x91619 stalin.sc:7924:270771 */ /* x91618 stalin.sc:7924:270790 */ /* x91617 stalin.sc:7924:270807 */ t89958 = a2026; /* x91616 stalin.sc:7924:270791 */ a39290 = t89958; /* x289829 */ /* x289828 */ t89959 = a39290; /* x289827 */ if (!((t89959.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34207]"); structure_ref_error();} t89956 = t89959.value.structure_type27698->s15; /* x91615 stalin.sc:7924:270772 */ a38743 = t89956; /* x287641 */ /* x287640 */ t89957 = a38743; /* x287639 */ if (!((t89957.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33660]"); structure_ref_error();} t89954 = t89957.value.structure_type27698->s21; /* x91614 stalin.sc:7923:270749 */ a39289 = t89954; /* x289825 */ /* x289824 */ t89955 = a39289; /* x289823 */ if (!((t89955.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34206]"); structure_ref_error();} t89952 = t89955.value.structure_type27698->s15; /* x91613 stalin.sc:7922:270725 */ a38742 = t89952; /* x287637 */ /* x287636 */ t89953 = a38742; /* x287635 */ if (!((t89953.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33659]"); structure_ref_error();} t89950 = t89953.value.structure_type27698->s21; /* x91612 stalin.sc:7921:270704 */ a39288 = t89950; /* x289821 */ /* x289820 */ t89951 = a39288; /* x289819 */ if (!((t89951.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34205]"); structure_ref_error();} t89948 = t89951.value.structure_type27698->s15; /* x91611 stalin.sc:7920:270682 */ a38741 = t89948; /* x287633 */ /* x287632 */ t89949 = a38741; /* x287631 */ if (!((t89949.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33658]"); structure_ref_error();} t89946 = t89949.value.structure_type27698->s21; /* x91610 stalin.sc:7919:270663 */ a39287 = t89946; /* x289817 */ /* x289816 */ t89947 = a39287; /* x289815 */ if (!((t89947.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34204]"); structure_ref_error();} t89944 = t89947.value.structure_type27698->s15; /* x91609 stalin.sc:7918:270643 */ a38740 = t89944; /* x287629 */ /* x287628 */ t89945 = a38740; /* x287627 */ if (!((t89945.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33657]"); structure_ref_error();} t89942 = t89945.value.structure_type27698->s21; /* x91608 stalin.sc:7917:270619 */ a39286 = t89942; /* x289813 */ /* x289812 */ t89943 = a39286; /* x289811 */ if (!((t89943.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34203]"); structure_ref_error();} t89940 = t89943.value.structure_type27698->s15; /* x91607 stalin.sc:7916:270591 */ a38586 = t89940; /* x287013 */ /* x287012 */ t89941 = a38586; /* x287011 */ if (!((t89941.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33503]"); structure_ref_error();} t89937 = t89941.value.structure_type27698->s22; /* x91605 stalin.sc:7914:270545 */ t89938.tag = NATIVE_PROCEDURE_TYPE7624; t89939 = *((struct w49 *)(&t89937)); t89918 = f1226(t89938, t89939); /* x91585 stalin.sc:7906:270312 */ f5664(t89917, t89918); /* x91683 stalin.sc:7925:270826 */ /* x91654 stalin.sc:7925:270834 */ /* x91653 stalin.sc:7926:270861 */ /* x91652 stalin.sc:7927:270884 */ /* x91651 stalin.sc:7928:270910 */ /* x91650 stalin.sc:7929:270935 */ /* x91649 stalin.sc:7930:270956 */ /* x91648 stalin.sc:7931:270976 */ /* x91647 stalin.sc:7932:270999 */ /* x91646 stalin.sc:7933:271021 */ /* x91645 stalin.sc:7934:271046 */ /* x91644 stalin.sc:7935:271070 */ /* x91643 stalin.sc:7935:271089 */ /* x91642 stalin.sc:7935:271106 */ t89981 = a2026; /* x91641 stalin.sc:7935:271090 */ a39301 = t89981; /* x289873 */ /* x289872 */ t89982 = a39301; /* x289871 */ if (!((t89982.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34218]"); structure_ref_error();} t89979 = t89982.value.structure_type27698->s15; /* x91640 stalin.sc:7935:271071 */ a38753 = t89979; /* x287681 */ /* x287680 */ t89980 = a38753; /* x287679 */ if (!((t89980.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33670]"); structure_ref_error();} t89977 = t89980.value.structure_type27698->s21; /* x91639 stalin.sc:7934:271047 */ a39300 = t89977; /* x289869 */ /* x289868 */ t89978 = a39300; /* x289867 */ if (!((t89978.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34217]"); structure_ref_error();} t89975 = t89978.value.structure_type27698->s15; /* x91638 stalin.sc:7933:271022 */ a38752 = t89975; /* x287677 */ /* x287676 */ t89976 = a38752; /* x287675 */ if (!((t89976.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33669]"); structure_ref_error();} t89973 = t89976.value.structure_type27698->s21; /* x91637 stalin.sc:7932:271000 */ a39299 = t89973; /* x289865 */ /* x289864 */ t89974 = a39299; /* x289863 */ if (!((t89974.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34216]"); structure_ref_error();} t89971 = t89974.value.structure_type27698->s15; /* x91636 stalin.sc:7931:270977 */ a38751 = t89971; /* x287673 */ /* x287672 */ t89972 = a38751; /* x287671 */ if (!((t89972.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33668]"); structure_ref_error();} t89969 = t89972.value.structure_type27698->s21; /* x91635 stalin.sc:7930:270957 */ a39298 = t89969; /* x289861 */ /* x289860 */ t89970 = a39298; /* x289859 */ if (!((t89970.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34215]"); structure_ref_error();} t89967 = t89970.value.structure_type27698->s15; /* x91634 stalin.sc:7929:270936 */ a38750 = t89967; /* x287669 */ /* x287668 */ t89968 = a38750; /* x287667 */ if (!((t89968.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33667]"); structure_ref_error();} t89965 = t89968.value.structure_type27698->s21; /* x91633 stalin.sc:7928:270911 */ a39297 = t89965; /* x289857 */ /* x289856 */ t89966 = a39297; /* x289855 */ if (!((t89966.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34214]"); structure_ref_error();} t89963 = t89966.value.structure_type27698->s15; /* x91632 stalin.sc:7927:270885 */ a38749 = t89963; /* x287665 */ /* x287664 */ t89964 = a38749; /* x287663 */ if (!((t89964.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33666]"); structure_ref_error();} t89961 = t89964.value.structure_type27698->s21; /* x91631 stalin.sc:7926:270862 */ a39296 = t89961; /* x289853 */ /* x289852 */ t89962 = a39296; /* x289851 */ if (!((t89962.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34213]"); structure_ref_error();} t89960 = t89962.value.structure_type27698->s15; /* x91630 stalin.sc:7925:270835 */ if (f6936(t89960)==FALSE_TYPE) goto l17261; /* x91656 */ /* x91655 */ goto l17262; l17261: /* x91682 */ /* x91681 */ /* x91680 stalin.sc:7936:271126 */ /* x91678 stalin.sc:7937:271153 */ /* x91677 stalin.sc:7938:271178 */ /* x91676 stalin.sc:7939:271202 */ /* x91675 stalin.sc:7940:271222 */ /* x91674 stalin.sc:7941:271241 */ /* x91673 stalin.sc:7942:271263 */ /* x91672 stalin.sc:7943:271284 */ /* x91671 stalin.sc:7944:271308 */ /* x91670 stalin.sc:7944:271325 */ /* x91669 stalin.sc:7944:271344 */ /* x91668 stalin.sc:7944:271361 */ t90003 = a2026; /* x91667 stalin.sc:7944:271345 */ a39295 = t90003; /* x289849 */ /* x289848 */ t90004 = a39295; /* x289847 */ if (!((t90004.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34212]"); structure_ref_error();} t90001 = t90004.value.structure_type27698->s15; /* x91666 stalin.sc:7944:271326 */ a38748 = t90001; /* x287661 */ /* x287660 */ t90002 = a38748; /* x287659 */ if (!((t90002.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33665]"); structure_ref_error();} t89999 = t90002.value.structure_type27698->s21; /* x91665 stalin.sc:7944:271309 */ a39294 = t89999; /* x289845 */ /* x289844 */ t90000 = a39294; /* x289843 */ if (!((t90000.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34211]"); structure_ref_error();} t89997 = t90000.value.structure_type27698->s15; /* x91664 stalin.sc:7943:271285 */ a38747 = t89997; /* x287657 */ /* x287656 */ t89998 = a38747; /* x287655 */ if (!((t89998.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33664]"); structure_ref_error();} t89995 = t89998.value.structure_type27698->s21; /* x91663 stalin.sc:7942:271264 */ a39293 = t89995; /* x289841 */ /* x289840 */ t89996 = a39293; /* x289839 */ if (!((t89996.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34210]"); structure_ref_error();} t89993 = t89996.value.structure_type27698->s15; /* x91662 stalin.sc:7941:271242 */ a38746 = t89993; /* x287653 */ /* x287652 */ t89994 = a38746; /* x287651 */ if (!((t89994.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33663]"); structure_ref_error();} t89991 = t89994.value.structure_type27698->s21; /* x91661 stalin.sc:7940:271223 */ a39292 = t89991; /* x289837 */ /* x289836 */ t89992 = a39292; /* x289835 */ if (!((t89992.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34209]"); structure_ref_error();} t89989 = t89992.value.structure_type27698->s15; /* x91660 stalin.sc:7939:271203 */ a38745 = t89989; /* x287649 */ /* x287648 */ t89990 = a38745; /* x287647 */ if (!((t89990.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33662]"); structure_ref_error();} t89987 = t89990.value.structure_type27698->s21; /* x91659 stalin.sc:7938:271179 */ a39291 = t89987; /* x289833 */ /* x289832 */ t89988 = a39291; /* x289831 */ if (!((t89988.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34208]"); structure_ref_error();} t89985 = t89988.value.structure_type27698->s15; /* x91658 stalin.sc:7937:271154 */ a38744 = t89985; /* x287645 */ /* x287644 */ t89986 = a38744; /* x287643 */ if (!((t89986.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33661]"); structure_ref_error();} t89983 = t89986.value.structure_type27698->s21; /* x91679 stalin.sc:7945:271380 */ /* x91657 stalin.sc:7936:271127 */ t89984.tag = FALSE_TYPE; f5608(t89983, t89984); l17262: /* x91763 stalin.sc:7947:271449 */ /* x91762 stalin.sc:7949:271511 */ /* x91713 stalin.sc:7950:271525 */ /* x91712 stalin.sc:7951:271554 */ /* x91711 stalin.sc:7952:271580 */ /* x91710 stalin.sc:7953:271598 */ /* x91709 stalin.sc:7954:271619 */ /* x91708 stalin.sc:7955:271639 */ /* x91707 stalin.sc:7956:271662 */ /* x91706 stalin.sc:7957:271684 */ /* x91705 stalin.sc:7958:271709 */ /* x91704 stalin.sc:7959:271733 */ /* x91703 stalin.sc:7959:271752 */ /* x91702 stalin.sc:7959:271769 */ t90033 = a2026; /* x91701 stalin.sc:7959:271753 */ a39306 = t90033; /* x289893 */ /* x289892 */ t90034 = a39306; /* x289891 */ if (!((t90034.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34223]"); structure_ref_error();} t90031 = t90034.value.structure_type27698->s15; /* x91700 stalin.sc:7959:271734 */ a38758 = t90031; /* x287701 */ /* x287700 */ t90032 = a38758; /* x287699 */ if (!((t90032.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33675]"); structure_ref_error();} t90029 = t90032.value.structure_type27698->s21; /* x91699 stalin.sc:7958:271710 */ a39305 = t90029; /* x289889 */ /* x289888 */ t90030 = a39305; /* x289887 */ if (!((t90030.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34222]"); structure_ref_error();} t90027 = t90030.value.structure_type27698->s15; /* x91698 stalin.sc:7957:271685 */ a38757 = t90027; /* x287697 */ /* x287696 */ t90028 = a38757; /* x287695 */ if (!((t90028.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33674]"); structure_ref_error();} t90025 = t90028.value.structure_type27698->s21; /* x91697 stalin.sc:7956:271663 */ a39304 = t90025; /* x289885 */ /* x289884 */ t90026 = a39304; /* x289883 */ if (!((t90026.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34221]"); structure_ref_error();} t90023 = t90026.value.structure_type27698->s15; /* x91696 stalin.sc:7955:271640 */ a38756 = t90023; /* x287693 */ /* x287692 */ t90024 = a38756; /* x287691 */ if (!((t90024.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33673]"); structure_ref_error();} t90021 = t90024.value.structure_type27698->s21; /* x91695 stalin.sc:7954:271620 */ a39303 = t90021; /* x289881 */ /* x289880 */ t90022 = a39303; /* x289879 */ if (!((t90022.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34220]"); structure_ref_error();} t90019 = t90022.value.structure_type27698->s15; /* x91694 stalin.sc:7953:271599 */ a38755 = t90019; /* x287689 */ /* x287688 */ t90020 = a38755; /* x287687 */ if (!((t90020.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33672]"); structure_ref_error();} t90017 = t90020.value.structure_type27698->s21; /* x91693 stalin.sc:7952:271581 */ a39302 = t90017; /* x289877 */ /* x289876 */ t90018 = a39302; /* x289875 */ if (!((t90018.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34219]"); structure_ref_error();} t90015 = t90018.value.structure_type27698->s15; /* x91692 stalin.sc:7951:271555 */ a38754 = t90015; /* x287685 */ /* x287684 */ t90016 = a38754; /* x287683 */ if (!((t90016.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33671]"); structure_ref_error();} t90013 = t90016.value.structure_type27698->s21; /* x91691 stalin.sc:7950:271526 */ a39445 = t90013; /* x290449 */ /* x290448 */ t90014 = a39445; /* x290447 */ if (!((t90014.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34362]"); structure_ref_error();} t90009 = t90014.value.structure_type27698->s14; /* x91736 stalin.sc:7960:271789 */ /* x91735 stalin.sc:7961:271803 */ /* x91734 stalin.sc:7962:271832 */ /* x91733 stalin.sc:7963:271850 */ /* x91732 stalin.sc:7964:271871 */ /* x91731 stalin.sc:7965:271891 */ /* x91730 stalin.sc:7966:271914 */ /* x91729 stalin.sc:7967:271936 */ /* x91728 stalin.sc:7968:271961 */ /* x91727 stalin.sc:7969:271985 */ /* x91726 stalin.sc:7969:272004 */ /* x91725 stalin.sc:7969:272021 */ t90055 = a2026; /* x91724 stalin.sc:7969:272005 */ a39311 = t90055; /* x289913 */ /* x289912 */ t90056 = a39311; /* x289911 */ if (!((t90056.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34228]"); structure_ref_error();} t90053 = t90056.value.structure_type27698->s15; /* x91723 stalin.sc:7969:271986 */ a38762 = t90053; /* x287717 */ /* x287716 */ t90054 = a38762; /* x287715 */ if (!((t90054.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33679]"); structure_ref_error();} t90051 = t90054.value.structure_type27698->s21; /* x91722 stalin.sc:7968:271962 */ a39310 = t90051; /* x289909 */ /* x289908 */ t90052 = a39310; /* x289907 */ if (!((t90052.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34227]"); structure_ref_error();} t90049 = t90052.value.structure_type27698->s15; /* x91721 stalin.sc:7967:271937 */ a38761 = t90049; /* x287713 */ /* x287712 */ t90050 = a38761; /* x287711 */ if (!((t90050.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33678]"); structure_ref_error();} t90047 = t90050.value.structure_type27698->s21; /* x91720 stalin.sc:7966:271915 */ a39309 = t90047; /* x289905 */ /* x289904 */ t90048 = a39309; /* x289903 */ if (!((t90048.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34226]"); structure_ref_error();} t90045 = t90048.value.structure_type27698->s15; /* x91719 stalin.sc:7965:271892 */ a38760 = t90045; /* x287709 */ /* x287708 */ t90046 = a38760; /* x287707 */ if (!((t90046.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33677]"); structure_ref_error();} t90043 = t90046.value.structure_type27698->s21; /* x91718 stalin.sc:7964:271872 */ a39308 = t90043; /* x289901 */ /* x289900 */ t90044 = a39308; /* x289899 */ if (!((t90044.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34225]"); structure_ref_error();} t90041 = t90044.value.structure_type27698->s15; /* x91717 stalin.sc:7963:271851 */ a38759 = t90041; /* x287705 */ /* x287704 */ t90042 = a38759; /* x287703 */ if (!((t90042.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33676]"); structure_ref_error();} t90039 = t90042.value.structure_type27698->s21; /* x91716 stalin.sc:7962:271833 */ a39307 = t90039; /* x289897 */ /* x289896 */ t90040 = a39307; /* x289895 */ if (!((t90040.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34224]"); structure_ref_error();} t90037 = t90040.value.structure_type27698->s15; /* x91715 stalin.sc:7961:271804 */ a38587 = t90037; /* x287017 */ /* x287016 */ t90038 = a38587; /* x287015 */ if (!((t90038.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33504]"); structure_ref_error();} t90035 = t90038.value.structure_type27698->s22; /* x91714 stalin.sc:7960:271790 */ t90036 = *((struct w49 *)(&t90035)); t90010 = f26227(t90036); /* x91761 stalin.sc:7970:272041 */ /* x91760 stalin.sc:7971:272055 */ /* x91759 stalin.sc:7972:272085 */ /* x91758 stalin.sc:7973:272105 */ /* x91757 stalin.sc:7974:272124 */ /* x91756 stalin.sc:7975:272146 */ /* x91755 stalin.sc:7976:272167 */ /* x91754 stalin.sc:7977:272191 */ /* x91753 stalin.sc:7978:272214 */ /* x91752 stalin.sc:7979:272240 */ /* x91751 stalin.sc:7980:272265 */ /* x91750 stalin.sc:7980:272284 */ /* x91749 stalin.sc:7980:272301 */ t90079 = a2026; /* x91748 stalin.sc:7980:272285 */ a39316 = t90079; /* x289933 */ /* x289932 */ t90080 = a39316; /* x289931 */ if (!((t90080.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34233]"); structure_ref_error();} t90077 = t90080.value.structure_type27698->s15; /* x91747 stalin.sc:7980:272266 */ a38767 = t90077; /* x287737 */ /* x287736 */ t90078 = a38767; /* x287735 */ if (!((t90078.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33684]"); structure_ref_error();} t90075 = t90078.value.structure_type27698->s21; /* x91746 stalin.sc:7979:272241 */ a39315 = t90075; /* x289929 */ /* x289928 */ t90076 = a39315; /* x289927 */ if (!((t90076.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34232]"); structure_ref_error();} t90073 = t90076.value.structure_type27698->s15; /* x91745 stalin.sc:7978:272215 */ a38766 = t90073; /* x287733 */ /* x287732 */ t90074 = a38766; /* x287731 */ if (!((t90074.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33683]"); structure_ref_error();} t90071 = t90074.value.structure_type27698->s21; /* x91744 stalin.sc:7977:272192 */ a39314 = t90071; /* x289925 */ /* x289924 */ t90072 = a39314; /* x289923 */ if (!((t90072.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34231]"); structure_ref_error();} t90069 = t90072.value.structure_type27698->s15; /* x91743 stalin.sc:7976:272168 */ a38765 = t90069; /* x287729 */ /* x287728 */ t90070 = a38765; /* x287727 */ if (!((t90070.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33682]"); structure_ref_error();} t90067 = t90070.value.structure_type27698->s21; /* x91742 stalin.sc:7975:272147 */ a39313 = t90067; /* x289921 */ /* x289920 */ t90068 = a39313; /* x289919 */ if (!((t90068.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34230]"); structure_ref_error();} t90065 = t90068.value.structure_type27698->s15; /* x91741 stalin.sc:7974:272125 */ a38764 = t90065; /* x287725 */ /* x287724 */ t90066 = a38764; /* x287723 */ if (!((t90066.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33681]"); structure_ref_error();} t90063 = t90066.value.structure_type27698->s21; /* x91740 stalin.sc:7973:272106 */ a39312 = t90063; /* x289917 */ /* x289916 */ t90064 = a39312; /* x289915 */ if (!((t90064.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34229]"); structure_ref_error();} t90061 = t90064.value.structure_type27698->s15; /* x91739 stalin.sc:7972:272086 */ a38763 = t90061; /* x287721 */ /* x287720 */ t90062 = a38763; /* x287719 */ if (!((t90062.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33680]"); structure_ref_error();} t90059 = t90062.value.structure_type27698->s21; /* x91738 stalin.sc:7971:272056 */ a39446 = t90059; /* x290453 */ /* x290452 */ t90060 = a39446; /* x290451 */ if (!((t90060.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34363]"); structure_ref_error();} t90057 = t90060.value.structure_type27698->s14; /* x91737 stalin.sc:7970:272042 */ t90058 = *((struct w49 *)(&t90057)); t90011 = f26227(t90058); /* x91690 stalin.sc:7949:271512 */ t90012 = *((struct w49 *)(&t90009)); t90005 = f26233(t90012, t90010, t90011); /* x91689 stalin.sc:7948:271463 */ /* x91684 stalin.sc:7947:271450 */ t90006.tag = NATIVE_PROCEDURE_TYPE17204; /* MOVE: branching squeezed to general */ if (t90005>=((struct structure_type24753 *)VALUE_OFFSET)) {t90007.tag = STRUCTURE_TYPE24753; t90007.value.structure_type24753 = t90005;} else t90007.tag = (unsigned)t90005; t90008 = (struct structure_type24753 *)NULL_TYPE; f27755(t90006, t90007, t90008); /* x91835 stalin.sc:7981:272322 */ /* x91785 stalin.sc:7982:272354 */ /* x91784 stalin.sc:7983:272378 */ /* x91783 stalin.sc:7984:272401 */ /* x91782 stalin.sc:7985:272427 */ /* x91781 stalin.sc:7986:272445 */ /* x91780 stalin.sc:7987:272466 */ /* x91779 stalin.sc:7988:272486 */ /* x91778 stalin.sc:7989:272509 */ /* x91777 stalin.sc:7989:272526 */ /* x91776 stalin.sc:7989:272545 */ /* x91775 stalin.sc:7989:272562 */ t90102 = a2026; /* x91774 stalin.sc:7989:272546 */ a39321 = t90102; /* x289953 */ /* x289952 */ t90103 = a39321; /* x289951 */ if (!((t90103.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34238]"); structure_ref_error();} t90100 = t90103.value.structure_type27698->s15; /* x91773 stalin.sc:7989:272527 */ a38772 = t90100; /* x287757 */ /* x287756 */ t90101 = a38772; /* x287755 */ if (!((t90101.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33689]"); structure_ref_error();} t90098 = t90101.value.structure_type27698->s21; /* x91772 stalin.sc:7989:272510 */ a39320 = t90098; /* x289949 */ /* x289948 */ t90099 = a39320; /* x289947 */ if (!((t90099.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34237]"); structure_ref_error();} t90096 = t90099.value.structure_type27698->s15; /* x91771 stalin.sc:7988:272487 */ a38771 = t90096; /* x287753 */ /* x287752 */ t90097 = a38771; /* x287751 */ if (!((t90097.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33688]"); structure_ref_error();} t90094 = t90097.value.structure_type27698->s21; /* x91770 stalin.sc:7987:272467 */ a39319 = t90094; /* x289945 */ /* x289944 */ t90095 = a39319; /* x289943 */ if (!((t90095.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34236]"); structure_ref_error();} t90092 = t90095.value.structure_type27698->s15; /* x91769 stalin.sc:7986:272446 */ a38770 = t90092; /* x287749 */ /* x287748 */ t90093 = a38770; /* x287747 */ if (!((t90093.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33687]"); structure_ref_error();} t90090 = t90093.value.structure_type27698->s21; /* x91768 stalin.sc:7985:272428 */ a39318 = t90090; /* x289941 */ /* x289940 */ t90091 = a39318; /* x289939 */ if (!((t90091.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34235]"); structure_ref_error();} t90088 = t90091.value.structure_type27698->s15; /* x91767 stalin.sc:7984:272402 */ a38769 = t90088; /* x287745 */ /* x287744 */ t90089 = a38769; /* x287743 */ if (!((t90089.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33686]"); structure_ref_error();} t90086 = t90089.value.structure_type27698->s21; /* x91766 stalin.sc:7983:272379 */ a39317 = t90086; /* x289937 */ /* x289936 */ t90087 = a39317; /* x289935 */ if (!((t90087.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34234]"); structure_ref_error();} t90084 = t90087.value.structure_type27698->s15; /* x91765 stalin.sc:7982:272355 */ a38768 = t90084; /* x287741 */ /* x287740 */ t90085 = a38768; /* x287739 */ if (!((t90085.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33685]"); structure_ref_error();} t90081 = t90085.value.structure_type27698->s21; /* x91834 stalin.sc:7990:272580 */ /* x91809 stalin.sc:7991:272594 */ /* x91808 stalin.sc:7992:272623 */ /* x91807 stalin.sc:7993:272649 */ /* x91806 stalin.sc:7994:272667 */ /* x91805 stalin.sc:7995:272688 */ /* x91804 stalin.sc:7996:272708 */ /* x91803 stalin.sc:7997:272731 */ /* x91802 stalin.sc:7998:272753 */ /* x91801 stalin.sc:7999:272778 */ /* x91800 stalin.sc:8000:272802 */ /* x91799 stalin.sc:8000:272821 */ /* x91798 stalin.sc:8000:272838 */ t90128 = a2026; /* x91797 stalin.sc:8000:272822 */ a39326 = t90128; /* x289973 */ /* x289972 */ t90129 = a39326; /* x289971 */ if (!((t90129.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34243]"); structure_ref_error();} t90126 = t90129.value.structure_type27698->s15; /* x91796 stalin.sc:8000:272803 */ a38777 = t90126; /* x287777 */ /* x287776 */ t90127 = a38777; /* x287775 */ if (!((t90127.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33694]"); structure_ref_error();} t90124 = t90127.value.structure_type27698->s21; /* x91795 stalin.sc:7999:272779 */ a39325 = t90124; /* x289969 */ /* x289968 */ t90125 = a39325; /* x289967 */ if (!((t90125.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34242]"); structure_ref_error();} t90122 = t90125.value.structure_type27698->s15; /* x91794 stalin.sc:7998:272754 */ a38776 = t90122; /* x287773 */ /* x287772 */ t90123 = a38776; /* x287771 */ if (!((t90123.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33693]"); structure_ref_error();} t90120 = t90123.value.structure_type27698->s21; /* x91793 stalin.sc:7997:272732 */ a39324 = t90120; /* x289965 */ /* x289964 */ t90121 = a39324; /* x289963 */ if (!((t90121.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34241]"); structure_ref_error();} t90118 = t90121.value.structure_type27698->s15; /* x91792 stalin.sc:7996:272709 */ a38775 = t90118; /* x287769 */ /* x287768 */ t90119 = a38775; /* x287767 */ if (!((t90119.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33692]"); structure_ref_error();} t90116 = t90119.value.structure_type27698->s21; /* x91791 stalin.sc:7995:272689 */ a39323 = t90116; /* x289961 */ /* x289960 */ t90117 = a39323; /* x289959 */ if (!((t90117.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34240]"); structure_ref_error();} t90114 = t90117.value.structure_type27698->s15; /* x91790 stalin.sc:7994:272668 */ a38774 = t90114; /* x287765 */ /* x287764 */ t90115 = a38774; /* x287763 */ if (!((t90115.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33691]"); structure_ref_error();} t90112 = t90115.value.structure_type27698->s21; /* x91789 stalin.sc:7993:272650 */ a39322 = t90112; /* x289957 */ /* x289956 */ t90113 = a39322; /* x289955 */ if (!((t90113.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34239]"); structure_ref_error();} t90110 = t90113.value.structure_type27698->s15; /* x91788 stalin.sc:7992:272624 */ a38773 = t90110; /* x287761 */ /* x287760 */ t90111 = a38773; /* x287759 */ if (!((t90111.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33690]"); structure_ref_error();} t90108 = t90111.value.structure_type27698->s21; /* x91787 stalin.sc:7991:272595 */ a39447 = t90108; /* x290457 */ /* x290456 */ t90109 = a39447; /* x290455 */ if (!((t90109.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34364]"); structure_ref_error();} t90104 = t90109.value.structure_type27698->s14; /* x91810 stalin.sc:8001:272858 */ t90105 = 0; /* x91833 stalin.sc:8002:272865 */ /* x91832 stalin.sc:8003:272879 */ /* x91831 stalin.sc:8004:272908 */ /* x91830 stalin.sc:8005:272926 */ /* x91829 stalin.sc:8006:272947 */ /* x91828 stalin.sc:8007:272967 */ /* x91827 stalin.sc:8008:272990 */ /* x91826 stalin.sc:8009:273012 */ /* x91825 stalin.sc:8010:273037 */ /* x91824 stalin.sc:8011:273061 */ /* x91823 stalin.sc:8011:273080 */ /* x91822 stalin.sc:8011:273097 */ t90150 = a2026; /* x91821 stalin.sc:8011:273081 */ a39331 = t90150; /* x289993 */ /* x289992 */ t90151 = a39331; /* x289991 */ if (!((t90151.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34248]"); structure_ref_error();} t90148 = t90151.value.structure_type27698->s15; /* x91820 stalin.sc:8011:273062 */ a38781 = t90148; /* x287793 */ /* x287792 */ t90149 = a38781; /* x287791 */ if (!((t90149.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33698]"); structure_ref_error();} t90146 = t90149.value.structure_type27698->s21; /* x91819 stalin.sc:8010:273038 */ a39330 = t90146; /* x289989 */ /* x289988 */ t90147 = a39330; /* x289987 */ if (!((t90147.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34247]"); structure_ref_error();} t90144 = t90147.value.structure_type27698->s15; /* x91818 stalin.sc:8009:273013 */ a38780 = t90144; /* x287789 */ /* x287788 */ t90145 = a38780; /* x287787 */ if (!((t90145.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33697]"); structure_ref_error();} t90142 = t90145.value.structure_type27698->s21; /* x91817 stalin.sc:8008:272991 */ a39329 = t90142; /* x289985 */ /* x289984 */ t90143 = a39329; /* x289983 */ if (!((t90143.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34246]"); structure_ref_error();} t90140 = t90143.value.structure_type27698->s15; /* x91816 stalin.sc:8007:272968 */ a38779 = t90140; /* x287785 */ /* x287784 */ t90141 = a38779; /* x287783 */ if (!((t90141.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33696]"); structure_ref_error();} t90138 = t90141.value.structure_type27698->s21; /* x91815 stalin.sc:8006:272948 */ a39328 = t90138; /* x289981 */ /* x289980 */ t90139 = a39328; /* x289979 */ if (!((t90139.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34245]"); structure_ref_error();} t90136 = t90139.value.structure_type27698->s15; /* x91814 stalin.sc:8005:272927 */ a38778 = t90136; /* x287781 */ /* x287780 */ t90137 = a38778; /* x287779 */ if (!((t90137.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-CALLEE[5655] 33695]"); structure_ref_error();} t90134 = t90137.value.structure_type27698->s21; /* x91813 stalin.sc:8004:272909 */ a39327 = t90134; /* x289977 */ /* x289976 */ t90135 = a39327; /* x289975 */ if (!((t90135.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34244]"); structure_ref_error();} t90132 = t90135.value.structure_type27698->s15; /* x91812 stalin.sc:8003:272880 */ a38588 = t90132; /* x287021 */ /* x287020 */ t90133 = a38588; /* x287019 */ if (!((t90133.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-ARGUMENTS[5663] 33505]"); structure_ref_error();} t90130 = t90133.value.structure_type27698->s22; /* x91811 stalin.sc:8002:272866 */ t90131 = *((struct w49 *)(&t90130)); t90106 = f26227(t90131); /* x91786 stalin.sc:7990:272581 */ t90107 = *((struct w49 *)(&t90104)); t90082 = f26233(t90107, t90105, t90106); /* x91764 stalin.sc:7981:272323 */ /* MOVE: branching squeezed to general */ if (t90082>=((struct structure_type24753 *)VALUE_OFFSET)) {t90083.tag = STRUCTURE_TYPE24753; t90083.value.structure_type24753 = t90082;} else t90083.tag = (unsigned)t90082; f5600(t90081, t90083); /* x91840 stalin.sc:8012:273117 */ /* x91839 stalin.sc:8012:273128 */ /* x91837 stalin.sc:8012:273143 */ /* x91838 stalin.sc:8012:273162 */ t90152 = a1633; /* x91836 stalin.sc:8012:273129 */ t90153.tag = NATIVE_PROCEDURE_TYPE7346; t90154 = *((struct w49 *)(&t90152)); t90155 = f1226(t90153, t90154); a1633 = *((struct w21193 *)(&t90155)); /* x91845 stalin.sc:8013:273172 */ /* x91844 stalin.sc:8013:273183 */ /* x91842 stalin.sc:8013:273198 */ /* x91843 stalin.sc:8013:273219 */ t90156 = a2031; /* x91841 stalin.sc:8013:273184 */ t90157.tag = NATIVE_PROCEDURE_TYPE7624; t90158 = *((struct w49 *)(&t90156)); t90159 = f1226(t90157, t90158); a2031 = *((struct w21193 *)(&t90159)); /* x91850 stalin.sc:8014:273229 */ /* x91849 stalin.sc:8014:273243 */ /* x91847 stalin.sc:8014:273258 */ /* x91848 stalin.sc:8014:273279 */ t90160 = a2030; /* x91846 stalin.sc:8014:273244 */ t90161.tag = NATIVE_PROCEDURE_TYPE7624; t90162 = *((struct w49 *)(&t90160)); t90163 = f1226(t90161, t90162); a2030 = *((struct w21193 *)(&t90163)); /* x91855 stalin.sc:8015:273292 */ /* x91854 stalin.sc:8015:273309 */ /* x91852 stalin.sc:8015:273324 */ /* x91853 stalin.sc:8015:273345 */ t90164 = a2029; /* x91851 stalin.sc:8015:273310 */ t90165.tag = NATIVE_PROCEDURE_TYPE7624; t90166 = *((struct w49 *)(&t90164)); t90167 = f1226(t90165, t90166); a2029 = *((struct w21193 *)(&t90167)); /* x91860 stalin.sc:8016:273361 */ /* x91859 stalin.sc:8016:273381 */ /* x91857 stalin.sc:8016:273396 */ /* x91858 stalin.sc:8016:273417 */ t90168 = a2028; /* x91856 stalin.sc:8016:273382 */ t90169.tag = NATIVE_PROCEDURE_TYPE7624; t90170 = *((struct w49 *)(&t90168)); t90171 = f1226(t90169, t90170); a2028 = *((struct w21193 *)(&t90171)); /* x91865 stalin.sc:8017:273436 */ /* x91864 stalin.sc:8017:273455 */ /* x91862 stalin.sc:8017:273470 */ /* x91863 stalin.sc:8017:273491 */ t90172 = a2027; /* x91861 stalin.sc:8017:273456 */ t90173.tag = NATIVE_PROCEDURE_TYPE7624; t90174 = *((struct w49 *)(&t90172)); t90175 = f1226(t90173, t90174); a2027 = *((struct w21193 *)(&t90175)); /* x91875 stalin.sc:8018:273509 */ /* x91874 stalin.sc:8019:273522 */ /* x91872 stalin.sc:8020:273540 */ /* x91873 stalin.sc:8020:273603 */ t90176 = a1594; /* x91866 stalin.sc:8019:273523 */ t90177.tag = NATIVE_PROCEDURE_TYPE17198; t90178 = *((struct w49 *)(&t90176)); t90179 = f1226(t90177, t90178); a1594 = *((struct w21193 *)(&t90179)); /* x91883 stalin.sc:8022:273652 */ /* x91882 stalin.sc:8022:273706 */ t90180 = a1633; /* x91881 stalin.sc:8022:273662 */ /* x91876 stalin.sc:8022:273653 */ t90181.tag = NATIVE_PROCEDURE_TYPE17197; t90182 = *((struct w49 *)(&t90180)); t90183 = (struct structure_type24753 *)NULL_TYPE; f27755(t90181, t90182, t90183); /* x91891 stalin.sc:8023:273715 */ /* x91890 stalin.sc:8023:273771 */ t90184 = a2031; /* x91889 stalin.sc:8023:273725 */ /* x91884 stalin.sc:8023:273716 */ t90185.tag = NATIVE_PROCEDURE_TYPE17196; t90186 = *((struct w49 *)(&t90184)); t90187 = (struct structure_type24753 *)NULL_TYPE; f27755(t90185, t90186, t90187); /* x92262 stalin.sc:8024:273780 */ /* x92261 stalin.sc:8024:273794 */ t90188 = a2026; /* x92260 */ /* x92259 */ /* x92258 */ /* x92257 */ /* x92256 */ /* x92255 */ /* x92254 */ /* x91893 */ /* x91892 stalin.sc:8024:273785 */ f10255(t90188); /* x90138 */ /* x90137 stalin.sc:8065:275260 */ /* x90130 stalin.sc:8065:275268 */ /* x90124 stalin.sc:8065:275273 */ /* x90123 stalin.sc:8065:275299 */ t89725 = a1633; /* x90122 stalin.sc:8065:275280 */ /* x90121 stalin.sc:8065:275274 */ t89726.tag = NATIVE_PROCEDURE_TYPE7346; t89727 = *((struct w49 *)(&t89725)); t89728 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t89726, t89727, t89728)==FALSE_TYPE) goto l17254; /* x90128 */ /* x90127 stalin.sc:8066:275335 */ t89729 = a2031; /* x90126 stalin.sc:8066:275314 */ /* x90125 stalin.sc:8066:275308 */ t89730.tag = NATIVE_PROCEDURE_TYPE7624; t89731 = *((struct w49 *)(&t89729)); t89732 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t89730, t89731, t89732)==FALSE_TYPE) goto l17254; /* x90132 */ /* x90131 */ goto l17255; l17254: /* x90136 */ /* x90135 */ /* x90134 stalin.sc:8067:275346 */ /* x90133 stalin.sc:8067:275347 */ /* x296433 QobiScheme.sc:166:5314 */ /* x296432 QobiScheme.sc:166:5321 */ t89733 = "This shouldn\'t happen"; /* x296431 QobiScheme.sc:166:5315 */ stalin_panic(t89733); l17255: goto l17227; l17226: /* x92396 stalin.sc:7485:257540 */ /* x92395 stalin.sc:7485:257540 */ l17227: /* x226604 stalin.sc:31818:1096369 */ /* x226589 stalin.sc:31818:1096375 */ if (a710==FALSE_TYPE) goto l17264; /* x226601 */ /* x226600 */ /* x226599 */ /* x226598 stalin.sc:31819:1096402 */ /* x226596 stalin.sc:31819:1096410 */ t90291 = a702; /* x226597 stalin.sc:31819:1096416 */ t90292 = "Fully converting to CPS"; /* x226595 stalin.sc:31819:1096403 */ f19217(t90291, t90292); /* x226594 */ /* x226593 stalin.sc:31820:1096446 */ /* x226592 stalin.sc:31820:1096456 */ /* x226591 stalin.sc:31820:1096478 */ t90257 = a2026; /* x226590 stalin.sc:31820:1096457 */ a24679 = t90257; /* x113094 */ /* x113093 */ /* x113092 */ /* x113091 */ /* x113090 */ /* x113089 */ /* x113088 */ /* x112624 */ /* x112623 stalin.sc:12405:432973 */ /* x112588 stalin.sc:12406:433001 */ t90258 = a24679; /* x112591 stalin.sc:12407:433005 */ /* x112590 stalin.sc:12407:433036 */ t90264 = a24679; /* x112589 stalin.sc:12407:433006 */ a39513 = t90264; /* x290721 */ /* x290720 */ t90265 = a39513; /* x290719 */ if (!((t90265.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34430]"); structure_ref_error();} t90259 = t90265.value.structure_type27698->s13; /* x112594 stalin.sc:12408:433041 */ /* x112593 stalin.sc:12408:433064 */ t90266 = a24679; /* x112592 stalin.sc:12408:433042 */ a39463 = t90266; /* x290521 */ /* x290520 */ t90267 = a39463; /* x290519 */ if (!((t90267.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-PARAMETERS[5599] 34380]"); structure_ref_error();} t90260 = t90267.value.structure_type27698->s14; /* x112622 stalin.sc:12410:433099 */ /* x112618 stalin.sc:12410:433121 */ /* x112617 stalin.sc:12410:433130 */ /* x112616 stalin.sc:12410:433148 */ t90288 = "x"; /* x112615 stalin.sc:12410:433131 */ t90270 = f12512(t90288); /* x112614 */ a24682 = t90270; /* x112613 stalin.sc:12411:433159 */ /* x112599 stalin.sc:12412:433206 */ /* x112598 stalin.sc:12412:433223 */ t90277 = a24679; /* x112597 stalin.sc:12412:433207 */ a39418 = t90277; /* x290341 */ /* x290340 */ t90278 = a39418; /* x290339 */ if (!((t90278.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34335]"); structure_ref_error();} t90271 = t90278.value.structure_type27698->s15; /* x112603 stalin.sc:12414:433283 */ /* x112601 stalin.sc:12414:433303 */ /* x112602 stalin.sc:12414:433306 */ t90279 = "continuation"; /* x112600 stalin.sc:12414:433284 */ t90280.tag = FALSE_TYPE; t90281 = t90279; t90272 = f8468(t90280, t90281); /* x112606 stalin.sc:12415:433327 */ /* x112605 stalin.sc:12415:433333 */ t90282 = a24682; /* x112604 stalin.sc:12415:433328 */ a35205 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35205==NULL) {backtrace("stalin.sc", 12415, 433327); out_of_memory_error();} a35205->s0.tag = STRUCTURE_TYPE27692; a35205->s0.value.structure_type27692 = t90282; a35205->s1.tag = NULL_TYPE; /* x272417 */ t90273 = a35205; /* x112612 stalin.sc:12416:433341 */ /* x112610 stalin.sc:12416:433367 */ /* x112609 stalin.sc:12416:433384 */ t90286 = a24679; /* x112608 stalin.sc:12416:433368 */ a39419 = t90286; /* x290345 */ /* x290344 */ t90287 = a39419; /* x290343 */ if (!((t90287.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34336]"); structure_ref_error();} t90283 = t90287.value.structure_type27698->s15; /* x112611 stalin.sc:12416:433387 */ t90284 = a24682; /* x112607 stalin.sc:12416:433342 */ t90285.tag = STRUCTURE_TYPE27692; t90285.value.structure_type27692 = t90284; t90274 = f6890(t90283, t90285); /* x112596 stalin.sc:12411:433160 */ t90275 = ((unsigned)t90273)+1; t90276 = t90274; t90268 = f6908(t90271, t90272, t90275, t90276); /* x112621 stalin.sc:12417:433395 */ /* x112620 stalin.sc:12417:433412 */ t90289 = a24679; /* x112619 stalin.sc:12417:433396 */ a39420 = t90289; /* x290349 */ /* x290348 */ t90290 = a39420; /* x290347 */ if (!((t90290.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34337]"); structure_ref_error();} t90269 = t90290.value.structure_type27698->s15; /* x112595 stalin.sc:12410:433100 */ b24683 = (unsigned)t90268; b24684 = t90269; t90261 = f12602(); /* x112587 stalin.sc:12405:432974 */ t90262.tag = STRUCTURE_TYPE27698; t90262.value.structure_type27698 = t90261; t90263 = f6896(t90258, t90259, t90260, t90262); a2026.tag = STRUCTURE_TYPE27698; a2026.value.structure_type27698 = t90263; goto l17265; l17264: /* x226603 stalin.sc:31818:1096369 */ /* x226602 stalin.sc:31818:1096369 */ l17265: /* x227063 stalin.sc:31821:1096487 */ /* x227062 stalin.sc:31821:1096506 */ /* x227061 */ /* x227060 */ /* x227059 */ /* x227058 */ /* x227057 */ /* x227056 */ /* x227055 */ /* x226606 */ /* x226605 stalin.sc:31821:1096492 */ a33111 = FALSE_TYPE; h19319: /* x227054 */ /* x226812 stalin.sc:31822:1096514 */ /* x226810 stalin.sc:31822:1096522 */ t90347 = a702; /* x226811 stalin.sc:31822:1096528 */ t90348 = "Annotating expressions with their parents"; /* x226809 stalin.sc:31822:1096515 */ f19217(t90347, t90348); /* x226814 stalin.sc:31823:1096576 */ /* x226813 stalin.sc:31823:1096577 */ f10310(); /* x226818 stalin.sc:31824:1096622 */ /* x226816 stalin.sc:31824:1096630 */ t90349 = a702; /* x226817 stalin.sc:31824:1096636 */ t90350 = "Annotating variables with their environments"; /* x226815 stalin.sc:31824:1096623 */ f19217(t90349, t90350); /* x226820 stalin.sc:31825:1096687 */ /* x226819 stalin.sc:31825:1096688 */ f10399(); /* x226824 stalin.sc:31826:1096736 */ /* x226822 stalin.sc:31826:1096744 */ t90351 = a702; /* x226823 stalin.sc:31826:1096750 */ t90352 = "Annotating expressions with their environments"; /* x226821 stalin.sc:31826:1096737 */ f19217(t90351, t90352); /* x226826 stalin.sc:31827:1096803 */ /* x226825 stalin.sc:31827:1096804 */ f10453(); /* x226830 stalin.sc:31828:1096854 */ /* x226828 stalin.sc:31828:1096862 */ t90353 = a702; /* x226829 stalin.sc:31828:1096868 */ t90354 = "In-lining first-order calls to primitive procedures"; /* x226827 stalin.sc:31828:1096855 */ f19217(t90353, t90354); /* x226832 stalin.sc:31829:1096926 */ /* x226831 stalin.sc:31829:1096927 */ /* x93830 stalin.sc:8262:281446 */ /* x93829 stalin.sc:8262:281456 */ /* x93827 stalin.sc:8263:281476 */ /* x93828 stalin.sc:8292:282214 */ t90369 = a2029; /* x93729 stalin.sc:8262:281457 */ t90370.tag = NATIVE_PROCEDURE_TYPE16695; t90371 = *((struct w49 *)(&t90369)); t90355 = f1226(t90370, t90371); /* x93728 */ a23288 = t90355; /* x93727 */ /* x93716 stalin.sc:8293:282230 */ /* x93715 stalin.sc:8313:283067 */ t90359 = a23288; /* x93714 stalin.sc:8294:282243 */ /* x93600 stalin.sc:8293:282231 */ t90360.tag = NATIVE_PROCEDURE_TYPE16705; t90361 = *((struct w49 *)(&t90359)); t90362 = (struct structure_type24753 *)NULL_TYPE; f27755(t90360, t90361, t90362); /* x93721 stalin.sc:8314:283073 */ /* x93720 stalin.sc:8314:283084 */ /* x93718 stalin.sc:8314:283101 */ t90363 = a2031; /* x93719 stalin.sc:8314:283106 */ t90364 = a23288; /* x93717 stalin.sc:8314:283085 */ t90365 = f1454(t90363, t90364); a2031 = *((struct w21193 *)(&t90365)); /* x93726 stalin.sc:8315:283113 */ /* x93725 stalin.sc:8315:283130 */ /* x93723 stalin.sc:8315:283147 */ t90366 = a2029; /* x93724 stalin.sc:8315:283158 */ t90367 = a23288; /* x93722 stalin.sc:8315:283131 */ t90368 = f1454(t90366, t90367); a2029 = *((struct w21193 *)(&t90368)); /* x93599 */ /* x93598 stalin.sc:8316:283165 */ /* x93597 stalin.sc:8316:283184 */ /* x93595 stalin.sc:8316:283201 */ t90356 = a2027; /* x93596 stalin.sc:8316:283214 */ t90357 = a23288; /* x93594 stalin.sc:8316:283185 */ t90358 = f1454(t90356, t90357); a2027 = *((struct w21193 *)(&t90358)); /* x226836 stalin.sc:31830:1096982 */ /* x226834 stalin.sc:31830:1096990 */ t90372 = a702; /* x226835 stalin.sc:31830:1096996 */ t90373 = "Annotating expressions with their parents"; /* x226833 stalin.sc:31830:1096983 */ f19217(t90372, t90373); /* x226838 stalin.sc:31831:1097044 */ /* x226837 stalin.sc:31831:1097045 */ f10310(); /* x226842 stalin.sc:31832:1097090 */ /* x226840 stalin.sc:31832:1097098 */ t90374 = a702; /* x226841 stalin.sc:31832:1097104 */ t90375 = "Annotating variables with their environments"; /* x226839 stalin.sc:31832:1097091 */ f19217(t90374, t90375); /* x226844 stalin.sc:31833:1097155 */ /* x226843 stalin.sc:31833:1097156 */ f10399(); /* x226848 stalin.sc:31834:1097204 */ /* x226846 stalin.sc:31834:1097212 */ t90376 = a702; /* x226847 stalin.sc:31834:1097218 */ t90377 = "Annotating expressions with their environments"; /* x226845 stalin.sc:31834:1097205 */ f19217(t90376, t90377); /* x226850 stalin.sc:31835:1097271 */ /* x226849 stalin.sc:31835:1097272 */ f10453(); /* x226854 stalin.sc:31836:1097322 */ /* x226852 stalin.sc:31836:1097330 */ t90378 = a702; /* x226853 stalin.sc:31836:1097336 */ t90379 = "Annotating variables with their references"; /* x226851 stalin.sc:31836:1097323 */ f19217(t90378, t90379); /* x226856 stalin.sc:31837:1097385 */ /* x226855 stalin.sc:31837:1097386 */ /* x94559 */ /* x94558 stalin.sc:8390:285919 */ /* x94557 stalin.sc:8394:286059 */ t90384 = a1633; /* x94556 */ /* x94541 stalin.sc:8390:285920 */ t90385.tag = NATIVE_PROCEDURE_TYPE16665; t90386 = *((struct w49 *)(&t90384)); t90387 = (struct structure_type24753 *)NULL_TYPE; f27755(t90385, t90386, t90387); /* x94540 */ /* x94539 stalin.sc:8395:286066 */ /* x94538 stalin.sc:8428:287182 */ t90380 = a2031; /* x94537 stalin.sc:8395:286076 */ /* x94302 stalin.sc:8395:286067 */ t90381.tag = NATIVE_PROCEDURE_TYPE16670; t90382 = *((struct w49 *)(&t90380)); t90383 = (struct structure_type24753 *)NULL_TYPE; f27755(t90381, t90382, t90383); /* x226954 stalin.sc:31838:1097432 */ /* x226953 stalin.sc:31838:1097446 */ t90388 = 1; /* x226952 */ /* x226951 */ /* x226950 */ /* x226949 */ /* x226948 */ /* x226947 */ /* x226946 */ /* x226858 */ /* x226857 stalin.sc:31838:1097437 */ a33187 = t90388; h19345: /* x226945 */ /* x226903 stalin.sc:31840:1097476 */ /* x226896 stalin.sc:31840:1097482 */ /* x226894 stalin.sc:31840:1097486 */ t90419 = a33187; /* x226895 stalin.sc:31840:1097488 */ t90420 = 3; /* x267564 stalin.sc:31840:1097483 */ if (!(t90419>=t90420)) goto l17310; /* x226900 */ /* x226899 */ /* x226898 stalin.sc:31840:1097491 */ /* x226897 stalin.sc:31840:1097492 */ /* x297089 QobiScheme.sc:166:5314 */ /* x297088 QobiScheme.sc:166:5321 */ t90421 = "This shouldn\'t happen"; /* x297087 QobiScheme.sc:166:5315 */ stalin_panic(t90421); goto l17311; l17310: /* x226902 stalin.sc:31840:1097476 */ /* x226901 stalin.sc:31840:1097476 */ l17311: /* x226907 stalin.sc:31841:1097506 */ /* x226905 stalin.sc:31841:1097514 */ t90422 = a702; /* x226906 stalin.sc:31841:1097520 */ t90423 = "Performing flow analysis"; /* x226904 stalin.sc:31841:1097507 */ f19217(t90422, t90423); /* x226909 stalin.sc:31842:1097552 */ /* x226908 stalin.sc:31842:1097553 */ /* x99181 */ /* x98961 stalin.sc:9433:324739 */ /* x98960 stalin.sc:9433:324761 */ a2040 = FALSE_TYPE; /* x98963 stalin.sc:9434:324766 */ /* x98962 stalin.sc:9434:324767 */ /* x69254 */ /* x69070 stalin.sc:3142:107328 */ /* x69069 stalin.sc:3142:107339 */ a1680 = (((unsigned)0)<<1)+1; /* x69072 stalin.sc:3143:107343 */ /* x69071 stalin.sc:3143:107354 */ a1679.tag = NULL_TYPE; /* x69098 stalin.sc:3144:107360 */ /* x69097 stalin.sc:3150:107619 */ t90427 = a2031; /* x69096 */ /* x69073 stalin.sc:3144:107361 */ t90428.tag = NATIVE_PROCEDURE_TYPE16476; t90429 = *((struct w49 *)(&t90427)); t90430 = (struct structure_type24753 *)NULL_TYPE; f27755(t90428, t90429, t90430); /* x69100 stalin.sc:3151:107626 */ /* x69099 stalin.sc:3151:107639 */ a1981 = q53; /* x69102 stalin.sc:3152:107647 */ /* x69101 stalin.sc:3152:107671 */ /* x69104 stalin.sc:3153:107676 */ /* x69103 stalin.sc:3153:107704 */ a1979 = (((unsigned)0)<<1)+1; /* x69106 stalin.sc:3154:107708 */ /* x69105 stalin.sc:3154:107721 */ a1978 = q54; /* x69108 stalin.sc:3155:107729 */ /* x69107 stalin.sc:3155:107753 */ /* x69110 stalin.sc:3156:107758 */ /* x69109 stalin.sc:3156:107786 */ a1976 = (((unsigned)0)<<1)+1; /* x69112 stalin.sc:3157:107790 */ /* x69111 stalin.sc:3157:107804 */ a1975 = q55; /* x69114 stalin.sc:3158:107813 */ /* x69113 stalin.sc:3158:107838 */ /* x69116 stalin.sc:3159:107843 */ /* x69115 stalin.sc:3159:107872 */ a1973 = (((unsigned)0)<<1)+1; /* x69118 stalin.sc:3160:107876 */ /* x69117 stalin.sc:3160:107889 */ a1972 = q56; /* x69120 stalin.sc:3161:107897 */ /* x69119 stalin.sc:3161:107921 */ a1971 = FALSE_TYPE; /* x69122 stalin.sc:3162:107926 */ /* x69121 stalin.sc:3162:107954 */ a1970 = (((unsigned)0)<<1)+1; /* x69124 stalin.sc:3163:107958 */ /* x69123 stalin.sc:3163:107973 */ a1969 = q57; /* x69126 stalin.sc:3164:107983 */ /* x69125 stalin.sc:3164:108009 */ /* x69128 stalin.sc:3165:108014 */ /* x69127 stalin.sc:3165:108044 */ a1967 = (((unsigned)0)<<1)+1; /* x69130 stalin.sc:3166:108048 */ /* x69129 stalin.sc:3166:108063 */ a1966 = q58; /* x69132 stalin.sc:3167:108073 */ /* x69131 stalin.sc:3167:108099 */ /* x69134 stalin.sc:3168:108104 */ /* x69133 stalin.sc:3168:108134 */ a1964 = (((unsigned)0)<<1)+1; /* x69136 stalin.sc:3169:108138 */ /* x69135 stalin.sc:3169:108158 */ a1963 = q59; /* x69138 stalin.sc:3170:108173 */ /* x69137 stalin.sc:3170:108204 */ /* x69140 stalin.sc:3171:108209 */ /* x69139 stalin.sc:3171:108244 */ a1961 = (((unsigned)0)<<1)+1; /* x69142 stalin.sc:3172:108248 */ /* x69141 stalin.sc:3172:108267 */ a1960 = q60; /* x69144 stalin.sc:3173:108281 */ /* x69143 stalin.sc:3173:108311 */ /* x69146 stalin.sc:3174:108316 */ /* x69145 stalin.sc:3174:108350 */ a1958 = (((unsigned)0)<<1)+1; /* x69148 stalin.sc:3175:108354 */ /* x69147 stalin.sc:3175:108374 */ a1957 = q61; /* x69150 stalin.sc:3176:108389 */ /* x69149 stalin.sc:3176:108420 */ /* x69152 stalin.sc:3177:108425 */ /* x69151 stalin.sc:3177:108460 */ a1955 = (((unsigned)0)<<1)+1; /* x69154 stalin.sc:3178:108464 */ /* x69153 stalin.sc:3178:108483 */ a1954 = q62; /* x69156 stalin.sc:3179:108497 */ /* x69155 stalin.sc:3179:108527 */ /* x69158 stalin.sc:3180:108532 */ /* x69157 stalin.sc:3180:108566 */ a1952 = (((unsigned)0)<<1)+1; /* x69160 stalin.sc:3181:108570 */ /* x69159 stalin.sc:3181:108586 */ a1951 = q63; /* x69162 stalin.sc:3182:108597 */ /* x69161 stalin.sc:3182:108624 */ /* x69164 stalin.sc:3183:108629 */ /* x69163 stalin.sc:3183:108660 */ a1949 = (((unsigned)0)<<1)+1; /* x69166 stalin.sc:3184:108664 */ /* x69165 stalin.sc:3184:108694 */ a1948.tag = NULL_TYPE; /* x69168 stalin.sc:3185:108700 */ /* x69167 stalin.sc:3185:108730 */ a1947.tag = NULL_TYPE; /* x69170 stalin.sc:3186:108736 */ /* x69169 stalin.sc:3186:108770 */ a1946.tag = NULL_TYPE; /* x69178 stalin.sc:3187:108776 */ /* x69177 stalin.sc:3188:108843 */ t90431 = a1945; /* x69176 stalin.sc:3187:108786 */ /* x69171 stalin.sc:3187:108777 */ t90432.tag = NATIVE_PROCEDURE_TYPE16473; t90433 = *((struct w49 *)(&t90431)); t90434 = (struct structure_type24753 *)NULL_TYPE; f27755(t90432, t90433, t90434); /* x69180 stalin.sc:3189:108870 */ /* x69179 stalin.sc:3189:108902 */ a1944.tag = NULL_TYPE; /* x69182 stalin.sc:3190:108908 */ /* x69181 stalin.sc:3190:108935 */ a1943.tag = NULL_TYPE; /* x69184 stalin.sc:3191:108941 */ /* x69183 stalin.sc:3191:108962 */ a1942.tag = NULL_TYPE; /* x69186 stalin.sc:3193:109022 */ /* x69185 stalin.sc:3193:109052 */ a1941.tag = FALSE_TYPE; /* x69190 stalin.sc:3194:109057 */ /* x69189 stalin.sc:3194:109087 */ /* x69188 stalin.sc:3194:109097 */ /* x69187 stalin.sc:3194:109088 */ t90435.tag = FALSE_TYPE; t90436 = f7121(t90435); a1941 = *((struct w49 *)(&t90436)); /* x69192 stalin.sc:3195:109103 */ /* x69191 stalin.sc:3195:109127 */ a1940.tag = NULL_TYPE; /* x69194 stalin.sc:3196:109133 */ /* x69193 stalin.sc:3196:109161 */ a1939.tag = NULL_TYPE; /* x69196 stalin.sc:3197:109167 */ /* x69195 stalin.sc:3197:109198 */ a1938.tag = NULL_TYPE; /* x69198 stalin.sc:3199:109258 */ /* x69197 stalin.sc:3199:109293 */ a1937.tag = FALSE_TYPE; /* x69205 stalin.sc:3200:109298 */ /* x69204 stalin.sc:3201:109340 */ /* x69202 stalin.sc:3201:109360 */ /* x69201 stalin.sc:3201:109366 */ t90487 = a1941; /* x69200 stalin.sc:3201:109361 */ a35207 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35207==NULL) {backtrace("stalin.sc", 3201, 109360); out_of_memory_error();} a35207->s0 = t90487; a35207->s1.tag = NULL_TYPE; /* x272421 */ t90437 = a35207; /* x69203 stalin.sc:3201:109391 */ /* x69199 stalin.sc:3201:109341 */ a21127 = t90437; /* x60672 */ /* x60671 stalin.sc:1233:40780 */ /* x60664 stalin.sc:1233:40786 */ if (a2040==FALSE_TYPE) goto l17324; /* x60668 */ /* x60667 */ /* x60666 stalin.sc:1233:40802 */ /* x60665 stalin.sc:1233:40803 */ /* x297269 QobiScheme.sc:166:5314 */ /* x297268 QobiScheme.sc:166:5321 */ t90486 = "This shouldn\'t happen"; /* x297267 QobiScheme.sc:166:5315 */ stalin_panic(t90486); goto l17325; l17324: /* x60670 stalin.sc:1233:40780 */ /* x60669 stalin.sc:1233:40780 */ l17325: /* x60663 */ /* x60662 stalin.sc:1234:40814 */ /* x60661 stalin.sc:1235:40824 */ /* x60660 stalin.sc:1236:40830 */ /* x60615 stalin.sc:1236:40834 */ /* x60659 stalin.sc:1253:41415 */ t90454 = a1937; /* x60614 */ a21134 = t90454; /* x60613 */ /* x60608 */ if ((a21134.tag)==FALSE_TYPE) goto l17316; /* x60609 */ t90438 = *((struct w3467 *)(&a21134)); goto l17317; l17316: /* x60612 */ /* x60611 stalin.sc:1254:41477 */ /* x60610 stalin.sc:1254:41448 */ /* x60571 */ /* x60570 stalin.sc:1218:40190 */ /* x60563 stalin.sc:1218:40196 */ if (a2040==FALSE_TYPE) goto l17320; /* x60567 */ /* x60566 */ /* x60565 stalin.sc:1218:40212 */ /* x60564 stalin.sc:1218:40213 */ /* x297265 QobiScheme.sc:166:5314 */ /* x297264 QobiScheme.sc:166:5321 */ t90485 = "This shouldn\'t happen"; /* x297263 QobiScheme.sc:166:5315 */ stalin_panic(t90485); goto l17321; l17320: /* x60569 stalin.sc:1218:40190 */ /* x60568 stalin.sc:1218:40190 */ l17321: /* x60562 */ /* x60561 stalin.sc:1219:40224 */ /* x60560 stalin.sc:1219:40234 */ /* x60550 stalin.sc:1220:40267 */ /* x60549 stalin.sc:1220:40268 */ /* x277509 stalin.sc:323:8604 */ t90473 = q35; /* x60551 stalin.sc:1220:40281 */ /* x60553 stalin.sc:1220:40285 */ /* x60552 stalin.sc:1220:40286 */ /* x277511 stalin.sc:323:8604 */ t90474 = q35; /* x60554 stalin.sc:1220:40299 */ t90475 = a1982; /* x60555 stalin.sc:1220:40304 */ t90476 = 0; /* x60557 stalin.sc:1220:40306 */ /* x60556 stalin.sc:1220:40307 */ /* x277513 stalin.sc:323:8604 */ t90477 = q35; /* x60558 stalin.sc:1220:40320 */ /* x60559 stalin.sc:1220:40323 */ t90478 = 0; /* x60548 stalin.sc:1219:40235 */ a20066 = t90473; a20068 = t90474; a20069 = t90475; a20070 = t90476; a20071 = t90477; a20073 = t90478; /* x53706 */ /* x53698 */ t90479 = a20066; /* x53699 */ /* x53700 */ t90480 = a20068; /* x53701 */ t90481 = a20069; /* x53702 */ t90482 = a20070; /* x53703 */ t90483 = a20071; /* x53704 */ /* x53705 */ t90484 = a20073; /* x53697 */ t90455 = (struct structure_type27669 *)GC_malloc(sizeof(struct structure_type27669)); if (t90455==NULL) {backtrace_internal("MAKE-NONHEADED-VECTOR-TYPE[6307]"); out_of_memory_error();} t90455->s0.tag = EXTERNAL_SYMBOL_TYPE; t90455->s0.value.external_symbol_type = t90479; t90455->s1.tag = NULL_TYPE; t90455->s2.tag = EXTERNAL_SYMBOL_TYPE; t90455->s2.value.external_symbol_type = t90480; t90455->s3 = t90481; t90455->s4 = t90482; t90455->s5.tag = EXTERNAL_SYMBOL_TYPE; t90455->s5.value.external_symbol_type = t90483; t90455->s6 = (struct structure_type27908 *)FALSE_TYPE; t90455->s7 = t90484; /* x60547 */ a21120 = t90455; /* x60546 */ /* x60545 */ /* x60544 */ /* x60508 stalin.sc:1221:40330 */ /* x60506 stalin.sc:1221:40366 */ t90456 = a21120; /* x60507 stalin.sc:1221:40368 */ /* x60505 stalin.sc:1221:40331 */ t90457.tag = STRUCTURE_TYPE27669; t90457.value.structure_type27669 = t90456; t90458 = TRUE_TYPE; f7585(t90457, t90458); /* x60514 stalin.sc:1222:40374 */ /* x60510 stalin.sc:1222:40410 */ t90459 = a21120; /* x60513 stalin.sc:1222:40412 */ /* x60512 stalin.sc:1222:40429 */ t90463 = a21120; /* x60511 stalin.sc:1222:40413 */ t90464.tag = STRUCTURE_TYPE27669; t90464.value.structure_type27669 = t90463; t90460 = f8092(t90464); /* x60509 stalin.sc:1222:40375 */ t90461.tag = STRUCTURE_TYPE27669; t90461.value.structure_type27669 = t90459; t90462.tag = STRUCTURE_TYPE27650; t90462.value.structure_type27650 = t90460; f6310(t90461, t90462); /* x60518 stalin.sc:1223:40435 */ /* x60516 stalin.sc:1223:40468 */ t90465 = a21120; /* x60517 stalin.sc:1223:40470 */ t90466 = a21120; /* x60515 stalin.sc:1223:40436 */ t90467.tag = STRUCTURE_TYPE27669; t90467.value.structure_type27669 = t90465; t90468.tag = STRUCTURE_TYPE27669; t90468.value.structure_type27669 = t90466; f6326(t90467, t90468); /* x60523 stalin.sc:1224:40475 */ /* x60522 stalin.sc:1224:40486 */ /* x60520 stalin.sc:1224:40489 */ t90469 = a1982; /* x60521 stalin.sc:1224:40494 */ t90470 = 1; /* x270670 stalin.sc:1224:40487 */ if (!((t90469&1)==1)) {backtrace("stalin.sc", 1224, 40486); plus_error();} a1982 = (((unsigned)(((int)(((int)t90469)>>1))+t90470))<<1)+1; /* x60528 stalin.sc:1225:40500 */ /* x60527 stalin.sc:1225:40531 */ /* x60525 stalin.sc:1225:40537 */ t90471 = a21120; /* x60526 stalin.sc:1225:40539 */ t90472 = a1938; /* x270669 stalin.sc:1225:40532 */ a1938.tag = STRUCTURE_TYPE24753; a1938.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a1938.value.structure_type24753)==NULL) {backtrace("stalin.sc", 1225, 40531); out_of_memory_error();} a1938.value.structure_type24753->s0.tag = STRUCTURE_TYPE27669; a1938.value.structure_type24753->s0.value.structure_type27669 = t90471; a1938.value.structure_type24753->s1 = *((struct w49 *)(&t90472)); /* x60543 stalin.sc:1226:40568 */ /* x60529 stalin.sc:1226:40574 */ /* x60542 stalin.sc:1226:40568 */ /* x60541 stalin.sc:1226:40568 */ /* x60504 */ /* x60503 stalin.sc:1230:40740 */ t90438.tag = STRUCTURE_TYPE27669; t90438.value.structure_type27669 = a21120; l17317: /* x60607 */ a21130 = t90438; /* x60606 */ /* x60595 stalin.sc:1255:41485 */ /* x60581 stalin.sc:1255:41493 */ /* x60577 stalin.sc:1255:41499 */ /* x60580 stalin.sc:1255:41501 */ /* x60579 stalin.sc:1255:41547 */ t90441 = a21130; /* x60578 stalin.sc:1255:41502 */ a37387 = t90441; /* x282217 */ /* x282216 */ t90442 = a37387; /* x282215 */ if (!((t90442.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS[6317] 32304]"); structure_ref_error();} t90439 = t90442.value.structure_type27669->s1; /* x60576 stalin.sc:1255:41494 */ t90440.tag = FALSE_TYPE; if ((f26351(t90440, t90439).tag)==FALSE_TYPE) goto l17313; /* x60583 */ /* x60582 */ goto l17314; l17313: /* x60594 */ /* x60593 */ /* x60592 stalin.sc:1256:41554 */ /* x60585 stalin.sc:1257:41609 */ t90443 = a21130; /* x60591 stalin.sc:1257:41611 */ /* x60587 stalin.sc:1257:41617 */ /* x60590 stalin.sc:1257:41619 */ /* x60589 stalin.sc:1257:41665 */ t90448 = a21130; /* x60588 stalin.sc:1257:41620 */ a37384 = t90448; /* x282205 */ /* x282204 */ t90449 = a37384; /* x282203 */ if (!((t90449.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-ALLOCATING-EXPRESSIONS[6317] 32301]"); structure_ref_error();} t90447 = t90449.value.structure_type27669->s1; /* x270667 stalin.sc:1257:41612 */ t90444 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t90444==NULL) {backtrace("stalin.sc", 1257, 41611); out_of_memory_error();} t90444->s0.tag = FALSE_TYPE; t90444->s1 = t90447; /* x60584 stalin.sc:1256:41555 */ t90445 = *((struct w49 *)(&t90443)); t90446.tag = STRUCTURE_TYPE24753; t90446.value.structure_type24753 = t90444; f6318(t90445, t90446); l17314: /* x60605 stalin.sc:1258:41673 */ /* x60604 stalin.sc:1259:41756 */ t90450 = a21127; /* x60603 stalin.sc:1258:41683 */ /* x60596 stalin.sc:1258:41674 */ t90451.tag = NATIVE_PROCEDURE_TYPE16375; t90452.tag = STRUCTURE_TYPE24753; t90452.value.structure_type24753 = t90450; t90453 = (struct structure_type24753 *)NULL_TYPE; f27755(t90451, t90452, t90453); /* x60575 */ /* x60574 stalin.sc:1260:41762 */ a1937 = *((struct w49 *)(&a21130)); /* x69207 stalin.sc:3202:109397 */ /* x69206 stalin.sc:3202:109428 */ a1936.tag = NULL_TYPE; /* x69211 stalin.sc:3207:109649 */ /* x69210 stalin.sc:3207:109660 */ /* x69209 stalin.sc:3207:109687 */ t90488 = a1937; /* x69208 stalin.sc:3207:109661 */ t90489 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t90489==NULL) {backtrace("stalin.sc", 3207, 109660); out_of_memory_error();} t90489->s0 = t90488; t90489->s1.tag = NULL_TYPE; t90490 = f8098(t90489); a1678 = t90490; /* x69214 stalin.sc:3208:109719 */ /* x69213 stalin.sc:3208:109729 */ /* x69212 stalin.sc:3208:109730 */ t90491 = (struct structure_type24753 *)NULL_TYPE; f8098(t90491); /* x69217 stalin.sc:3209:109759 */ /* x69216 stalin.sc:3209:109772 */ /* x69215 stalin.sc:3209:109773 */ t90492 = (struct structure_type24753 *)NULL_TYPE; t90493 = f8098(t90492); a1676 = t90493; /* x69221 stalin.sc:3210:109802 */ /* x69220 stalin.sc:3210:109815 */ /* x69219 stalin.sc:3210:109842 */ t90494 = a1981; /* x69218 stalin.sc:3210:109816 */ t90495 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t90495==NULL) {backtrace("stalin.sc", 3210, 109815); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t90494>=((char *)VALUE_OFFSET)) {t90495->s0.tag = EXTERNAL_SYMBOL_TYPE; t90495->s0.value.external_symbol_type = t90494;} else t90495->s0.tag = (unsigned)t90494; t90495->s1.tag = NULL_TYPE; t90496 = f8098(t90495); a1675 = t90496; /* x69225 stalin.sc:3211:109852 */ /* x69224 stalin.sc:3211:109871 */ /* x69223 stalin.sc:3211:109898 */ t90497 = a1960; /* x69222 stalin.sc:3211:109872 */ t90498 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t90498==NULL) {backtrace("stalin.sc", 3211, 109871); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t90497>=((char *)VALUE_OFFSET)) {t90498->s0.tag = EXTERNAL_SYMBOL_TYPE; t90498->s0.value.external_symbol_type = t90497;} else t90498->s0.tag = (unsigned)t90497; t90498->s1.tag = NULL_TYPE; t90499 = f8098(t90498); a1674 = t90499; /* x69229 stalin.sc:3212:109914 */ /* x69228 stalin.sc:3212:109934 */ /* x69227 stalin.sc:3212:109961 */ t90500 = a1957; /* x69226 stalin.sc:3212:109935 */ t90501 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t90501==NULL) {backtrace("stalin.sc", 3212, 109934); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t90500>=((char *)VALUE_OFFSET)) {t90501->s0.tag = EXTERNAL_SYMBOL_TYPE; t90501->s0.value.external_symbol_type = t90500;} else t90501->s0.tag = (unsigned)t90500; t90501->s1.tag = NULL_TYPE; t90502 = f8098(t90501); a1673 = t90502; /* x69233 stalin.sc:3213:109978 */ /* x69232 stalin.sc:3213:110008 */ /* x69231 stalin.sc:3213:110035 */ t90503 = a1972; /* x69230 stalin.sc:3213:110009 */ t90504 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t90504==NULL) {backtrace("stalin.sc", 3213, 110008); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t90503>=((char *)VALUE_OFFSET)) {t90504->s0.tag = EXTERNAL_SYMBOL_TYPE; t90504->s0.value.external_symbol_type = t90503;} else t90504->s0.tag = (unsigned)t90503; t90504->s1.tag = NULL_TYPE; t90505 = f8098(t90504); a1672 = t90505; /* x69237 stalin.sc:3214:110045 */ /* x69236 stalin.sc:3214:110077 */ /* x69235 stalin.sc:3214:110104 */ t90506 = a1969; /* x69234 stalin.sc:3214:110078 */ t90507 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t90507==NULL) {backtrace("stalin.sc", 3214, 110077); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t90506>=((char *)VALUE_OFFSET)) {t90507->s0.tag = EXTERNAL_SYMBOL_TYPE; t90507->s0.value.external_symbol_type = t90506;} else t90507->s0.tag = (unsigned)t90506; t90507->s1.tag = NULL_TYPE; t90508 = f8098(t90507); a1671 = t90508; /* x69241 stalin.sc:3215:110116 */ /* x69240 stalin.sc:3215:110148 */ /* x69239 stalin.sc:3215:110175 */ t90509 = a1966; /* x69238 stalin.sc:3215:110149 */ t90510 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t90510==NULL) {backtrace("stalin.sc", 3215, 110148); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t90509>=((char *)VALUE_OFFSET)) {t90510->s0.tag = EXTERNAL_SYMBOL_TYPE; t90510->s0.value.external_symbol_type = t90509;} else t90510->s0.tag = (unsigned)t90509; t90510->s1.tag = NULL_TYPE; t90511 = f8098(t90510); a1670 = t90511; /* x69245 stalin.sc:3216:110187 */ /* x69244 stalin.sc:3217:110226 */ /* x69243 stalin.sc:3217:110253 */ t90512 = a1941; /* x69242 stalin.sc:3217:110227 */ t90513 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t90513==NULL) {backtrace("stalin.sc", 3217, 110226); out_of_memory_error();} t90513->s0 = t90512; t90513->s1.tag = NULL_TYPE; t90514 = f8098(t90513); a1669 = t90514; /* x69249 stalin.sc:3218:110280 */ /* x69248 stalin.sc:3218:110316 */ /* x69247 stalin.sc:3218:110343 */ t90515 = a1960; /* x69246 stalin.sc:3218:110317 */ t90516 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t90516==NULL) {backtrace("stalin.sc", 3218, 110316); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t90515>=((char *)VALUE_OFFSET)) {t90516->s0.tag = EXTERNAL_SYMBOL_TYPE; t90516->s0.value.external_symbol_type = t90515;} else t90516->s0.tag = (unsigned)t90515; t90516->s1.tag = NULL_TYPE; t90517 = f8098(t90516); a1668 = t90517; /* x69253 stalin.sc:3219:110359 */ /* x69252 stalin.sc:3220:110403 */ /* x69251 stalin.sc:3220:110430 */ t90518 = a1957; /* x69250 stalin.sc:3220:110404 */ t90519 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t90519==NULL) {backtrace("stalin.sc", 3220, 110403); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t90518>=((char *)VALUE_OFFSET)) {t90519->s0.tag = EXTERNAL_SYMBOL_TYPE; t90519->s0.value.external_symbol_type = t90518;} else t90519->s0.tag = (unsigned)t90518; t90519->s1.tag = NULL_TYPE; t90520 = f8098(t90519); a1667 = t90520; /* x69068 */ /* x69067 stalin.sc:3221:110447 */ /* x69066 stalin.sc:3221:110480 */ /* x69065 stalin.sc:3221:110507 */ t90424 = a1951; /* x69064 stalin.sc:3221:110481 */ t90425 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t90425==NULL) {backtrace("stalin.sc", 3221, 110480); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t90424>=((char *)VALUE_OFFSET)) {t90425->s0.tag = EXTERNAL_SYMBOL_TYPE; t90425->s0.value.external_symbol_type = t90424;} else t90425->s0.tag = (unsigned)t90424; t90425->s1.tag = NULL_TYPE; t90426 = f8098(t90425); a1666 = t90426; /* x99047 stalin.sc:9435:324803 */ /* x99046 stalin.sc:9449:325415 */ t90521 = a2031; /* x99045 */ /* x98964 stalin.sc:9435:324804 */ t90522.tag = NATIVE_PROCEDURE_TYPE16232; t90523 = *((struct w49 *)(&t90521)); t90524 = (struct structure_type24753 *)NULL_TYPE; f27755(t90522, t90523, t90524); /* x99117 stalin.sc:9450:325422 */ /* x99116 stalin.sc:9465:326055 */ t90525 = a2031; /* x99115 stalin.sc:9451:325434 */ /* x99048 stalin.sc:9450:325423 */ t90526.tag = NATIVE_PROCEDURE_TYPE16230; t90527 = *((struct w49 *)(&t90525)); t90528 = (struct structure_type24753 *)NULL_TYPE; f27755(t90526, t90527, t90528); /* x99125 stalin.sc:9466:326062 */ /* x99124 stalin.sc:9466:326121 */ t90529 = a1594; /* x99123 stalin.sc:9466:326072 */ /* x99118 stalin.sc:9466:326063 */ t90530.tag = NATIVE_PROCEDURE_TYPE16228; t90531 = *((struct w49 *)(&t90529)); t90532 = (struct structure_type24753 *)NULL_TYPE; f27755(t90530, t90531, t90532); /* x99135 stalin.sc:9467:326128 */ /* x99134 stalin.sc:9467:326198 */ t90533 = a1633; /* x99133 stalin.sc:9467:326138 */ /* x99126 stalin.sc:9467:326129 */ t90534.tag = NATIVE_PROCEDURE_TYPE16202; t90535 = *((struct w49 *)(&t90533)); t90536 = (struct structure_type24753 *)NULL_TYPE; f27755(t90534, t90535, t90536); /* x99138 stalin.sc:9468:326205 */ /* x99137 stalin.sc:9468:326233 */ t90537 = a2026; /* x99136 stalin.sc:9468:326206 */ f10634(t90537); /* x99180 stalin.sc:9469:326239 */ /* x99179 */ /* x99178 */ /* x99177 */ /* x99176 */ /* x99175 */ /* x99174 */ /* x99173 */ /* x99140 */ /* x99139 stalin.sc:9469:326244 */ h10903: /* x99172 */ /* x99151 stalin.sc:9470:326254 */ /* x99150 stalin.sc:9470:326255 */ f4651(); /* x99153 stalin.sc:9471:326295 */ /* x99152 stalin.sc:9471:326310 */ a2038 = FALSE_TYPE; /* x99163 stalin.sc:9472:326316 */ /* x99155 stalin.sc:9472:326333 */ /* x99158 stalin.sc:9472:326337 */ /* x99157 stalin.sc:9472:326358 */ t90545 = a2026; /* x99156 stalin.sc:9472:326338 */ a40018 = t90545; /* x292741 */ /* x292740 */ t90546 = a40018; /* x292739 */ if (!((t90546.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34935]"); structure_ref_error();} t90539 = t90546.value.structure_type27698->s10; /* x99161 stalin.sc:9472:326363 */ /* x99160 stalin.sc:9472:326369 */ t90547 = a1678; /* x99159 stalin.sc:9472:326364 */ a35208 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35208==NULL) {backtrace("stalin.sc", 9472, 326363); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t90547>=((struct structure_type27650 *)VALUE_OFFSET)) {a35208->s0.tag = STRUCTURE_TYPE27650; a35208->s0.value.structure_type27650 = t90547;} else a35208->s0.tag = (unsigned)t90547; a35208->s1.tag = NULL_TYPE; /* x272423 */ t90540 = a35208; /* x99162 stalin.sc:9472:326375 */ t90541 = a1675; /* x99154 stalin.sc:9472:326317 */ t90542 = (struct structure_type27745 *)FALSE_TYPE; t90543.tag = STRUCTURE_TYPE24753; t90543.value.structure_type24753 = t90540; /* MOVE: branching squeezed to general */ if (t90541>=((struct structure_type27650 *)VALUE_OFFSET)) {t90544.tag = STRUCTURE_TYPE27650; t90544.value.structure_type27650 = t90541;} else t90544.tag = (unsigned)t90541; f10641(t90542, t90539, t90543, t90544); /* x99165 stalin.sc:9473:326385 */ /* x99164 stalin.sc:9473:326386 */ f10877(); /* x99169 stalin.sc:9474:326400 */ /* x99168 stalin.sc:9474:326416 */ t90548 = a2031; /* x99167 stalin.sc:9474:326410 */ /* x99166 stalin.sc:9474:326401 */ t90549.tag = NATIVE_PROCEDURE_TYPE7105; t90550 = *((struct w49 *)(&t90548)); t90551 = (struct structure_type24753 *)NULL_TYPE; f27755(t90549, t90550, t90551); /* x99171 stalin.sc:9475:326424 */ /* x99170 stalin.sc:9475:326425 */ f10877(); /* x99149 */ /* x99148 stalin.sc:9476:326439 */ /* x99141 stalin.sc:9476:326445 */ if (a2038==FALSE_TYPE) goto l17327; /* x99145 */ /* x99144 */ /* x99143 stalin.sc:9476:326454 */ /* x99142 stalin.sc:9476:326455 */ goto h10903; goto l17328; l17327: /* x99147 stalin.sc:9476:326439 */ /* x99146 stalin.sc:9476:326439 */ l17328: /* x98959 */ /* x98958 stalin.sc:9477:326464 */ /* x98957 stalin.sc:9477:326486 */ a2040 = TRUE_TYPE; /* x226913 stalin.sc:31843:1097581 */ /* x226911 stalin.sc:31843:1097589 */ t90552 = a702; /* x226912 stalin.sc:31843:1097595 */ t90553 = "Enumerating call sites"; /* x226910 stalin.sc:31843:1097582 */ f19217(t90552, t90553); /* x226915 stalin.sc:31844:1097625 */ /* x226914 stalin.sc:31844:1097626 */ /* x99324 */ /* x99323 stalin.sc:9482:326551 */ /* x99322 stalin.sc:9482:326562 */ a1524 = (struct structure_type24753 *)NULL_TYPE; /* x99321 */ /* x99320 stalin.sc:9483:326568 */ /* x99319 stalin.sc:9508:327522 */ t90554 = a2030; /* x99318 stalin.sc:9484:326580 */ /* x99184 stalin.sc:9483:326569 */ t90555.tag = NATIVE_PROCEDURE_TYPE16190; t90556 = *((struct w49 *)(&t90554)); t90557 = (struct structure_type24753 *)NULL_TYPE; f27755(t90555, t90556, t90557); /* x226919 stalin.sc:31845:1097653 */ /* x226917 stalin.sc:31845:1097661 */ t90558 = a702; /* x226918 stalin.sc:31845:1097667 */ t90559 = "Determining which types and type sets are used"; /* x226916 stalin.sc:31845:1097654 */ f19217(t90558, t90559); /* x226921 stalin.sc:31846:1097721 */ /* x226920 stalin.sc:31846:1097722 */ /* x99773 stalin.sc:9513:327640 */ /* x99772 */ /* x99771 */ /* x99770 */ /* x99769 */ /* x99768 */ /* x99767 */ /* x99766 */ /* x99328 */ /* x99327 stalin.sc:9513:327645 */ h10926: /* x99765 stalin.sc:9514:327655 */ /* x99764 stalin.sc:9514:327669 */ /* x99763 */ a23615 = FALSE_TYPE; /* x99762 */ /* x99761 */ /* x99760 */ /* x99759 */ /* x99758 */ /* x99609 */ /* x99608 */ /* x99626 stalin.sc:9557:329469 */ /* x99625 stalin.sc:9560:329597 */ t90560 = a1947; /* x99624 stalin.sc:9557:329479 */ /* x99610 stalin.sc:9557:329470 */ t90561.tag = NATIVE_PROCEDURE_TYPE16184; t90562 = *((struct w49 *)(&t90560)); t90563 = (struct structure_type24753 *)NULL_TYPE; f27755(t90561, t90562, t90563); /* x99660 stalin.sc:9561:329625 */ /* x99659 stalin.sc:9568:329833 */ t90564 = a1940; /* x99658 stalin.sc:9561:329635 */ /* x99627 stalin.sc:9561:329626 */ t90565.tag = NATIVE_PROCEDURE_TYPE16181; t90566 = *((struct w49 *)(&t90564)); t90567 = (struct structure_type24753 *)NULL_TYPE; f27755(t90565, t90566, t90567); /* x99692 stalin.sc:9569:329855 */ /* x99691 stalin.sc:9574:330055 */ t90568 = a1939; /* x99690 stalin.sc:9569:329865 */ /* x99661 stalin.sc:9569:329856 */ t90569.tag = NATIVE_PROCEDURE_TYPE16179; t90570 = *((struct w49 *)(&t90568)); t90571 = (struct structure_type24753 *)NULL_TYPE; f27755(t90569, t90570, t90571); /* x99724 stalin.sc:9575:330081 */ /* x99723 stalin.sc:9580:330287 */ t90572 = a1938; /* x99722 stalin.sc:9575:330091 */ /* x99693 stalin.sc:9575:330082 */ t90573.tag = NATIVE_PROCEDURE_TYPE16177; t90574 = *((struct w49 *)(&t90572)); t90575 = (struct structure_type24753 *)NULL_TYPE; f27755(t90573, t90574, t90575); /* x99741 stalin.sc:9581:330316 */ /* x99740 stalin.sc:9584:330445 */ t90576 = a1936; /* x99739 stalin.sc:9581:330326 */ /* x99725 stalin.sc:9581:330317 */ t90577.tag = NATIVE_PROCEDURE_TYPE16175; t90578 = *((struct w49 *)(&t90576)); t90579 = (struct structure_type24753 *)NULL_TYPE; f27755(t90577, t90578, t90579); /* x99757 stalin.sc:9585:330474 */ /* x99756 stalin.sc:9588:330569 */ t90580 = a1679; /* x99755 stalin.sc:9586:330488 */ /* x99742 stalin.sc:9585:330475 */ t90581.tag = NATIVE_PROCEDURE_TYPE16174; t90582 = *((struct w49 *)(&t90580)); t90583 = (struct structure_type24753 *)NULL_TYPE; f27755(t90581, t90582, t90583); /* x99337 */ /* x99336 stalin.sc:9589:330578 */ /* x99329 stalin.sc:9589:330584 */ if (a23615==FALSE_TYPE) goto l17330; /* x99333 */ /* x99332 */ /* x99331 stalin.sc:9589:330591 */ /* x99330 stalin.sc:9589:330592 */ goto h10926; goto l17331; l17330: /* x99335 stalin.sc:9589:330578 */ /* x99334 stalin.sc:9589:330578 */ l17331: /* x226924 stalin.sc:31849:1097914 */ /* x226923 stalin.sc:31849:1097938 */ /* x226922 stalin.sc:31849:1097915 */ a23650 = FALSE_TYPE; f11028(); /* x226940 stalin.sc:31850:1097946 */ /* x226925 stalin.sc:31850:1097952 */ if (a702==FALSE_TYPE) goto l17333; /* x226937 */ /* x226936 */ /* x226935 */ /* x226930 stalin.sc:31851:1097963 */ /* x226929 stalin.sc:31851:1097964 */ f13265(); /* x226932 stalin.sc:31852:1097983 */ /* x226931 stalin.sc:31852:1097984 */ f13373(); /* x226934 stalin.sc:31853:1098041 */ /* x226933 stalin.sc:31853:1098042 */ f13379(); /* x226928 */ /* x226927 stalin.sc:31854:1098092 */ /* x226926 stalin.sc:31854:1098093 */ f13380(); goto l17334; l17333: /* x226939 stalin.sc:31850:1097946 */ /* x226938 stalin.sc:31850:1097946 */ l17334: /* x226944 stalin.sc:31855:1098124 */ /* x226942 stalin.sc:31855:1098132 */ t90584 = a702; /* x226943 stalin.sc:31855:1098138 */ t90585 = "Determining which call sites to split"; /* x226941 stalin.sc:31855:1098125 */ f19217(t90584, t90585); /* x226892 */ /* x226891 stalin.sc:31856:1098183 */ /* x226867 stalin.sc:31856:1098187 */ /* x226863 stalin.sc:31856:1098192 */ /* x226862 stalin.sc:31856:1098197 */ /* x226861 stalin.sc:31856:1098204 */ t90389 = a712; /* x267567 stalin.sc:31856:1098198 */ if (t90389==0) goto l17292; /* x226865 */ /* x226864 stalin.sc:31857:1098232 */ /* x104096 stalin.sc:10230:354498 */ /* x104095 stalin.sc:10230:354512 */ /* x104094 */ a23891 = FALSE_TYPE; /* x104093 */ /* x104092 stalin.sc:10231:354519 */ /* x104091 */ /* x104090 */ /* x104089 */ /* x104088 */ /* x104087 */ /* x104086 */ /* x104085 */ /* x103641 */ /* x103640 stalin.sc:10231:354524 */ h11490: /* x104084 stalin.sc:10232:354535 */ /* x104083 stalin.sc:10232:354549 */ /* x104082 */ a23895 = FALSE_TYPE; /* x104081 */ /* x104080 stalin.sc:10233:354558 */ /* x104079 stalin.sc:10234:354575 */ /* x104077 stalin.sc:10235:354596 */ /* x104078 stalin.sc:10255:355343 */ t90405 = a1594; /* x103994 stalin.sc:10234:354576 */ t90406.tag = NATIVE_PROCEDURE_TYPE17108; t90407 = *((struct w49 *)(&t90405)); t90390 = f1226(t90406, t90407); /* x103993 */ a23897 = t90390; /* x103992 */ /* x103991 stalin.sc:10258:355481 */ /* x103989 */ /* x103990 stalin.sc:10270:355829 */ t90402 = a23897; /* x103953 stalin.sc:10258:355482 */ t90403 = NATIVE_PROCEDURE_TYPE17110; t90404 = *((struct w49 *)(&t90402)); t90391 = f1218(t90403, t90404); /* x103952 */ a23898 = t90391; /* x103951 */ /* x103950 */ /* x103949 stalin.sc:10271:355841 */ /* x103948 stalin.sc:10360:359094 */ /* x103927 stalin.sc:10360:359098 */ /* x103926 stalin.sc:10360:359105 */ t90396 = a23898; /* x269510 stalin.sc:10360:359099 */ if (!((t90396.tag)==NULL_TYPE)) goto l17298; /* x103946 stalin.sc:10361:359113 */ /* x103930 stalin.sc:10361:359117 */ /* x103929 stalin.sc:10361:359124 */ t90397 = a23897; /* x269509 stalin.sc:10361:359118 */ if (!((t90397.tag)==NULL_TYPE)) goto l17301; /* x103931 stalin.sc:10362:359136 */ t90392.tag = NULL_TYPE; goto l17302; l17301: /* x103945 stalin.sc:10363:359147 */ /* x103944 stalin.sc:10363:359153 */ /* x103942 stalin.sc:10363:359159 */ /* x103943 stalin.sc:10366:359264 */ t90399 = *((struct w21691 *)(&a23897)); /* x103933 stalin.sc:10363:359154 */ t90400 = NATIVE_PROCEDURE_TYPE17116; t90401 = *((struct w49 *)(&t90399)); t90398 = f1583(t90400, t90401); /* x103932 stalin.sc:10363:359148 */ a35193 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35193==NULL) {backtrace("stalin.sc", 10363, 359147); out_of_memory_error();} a35193->s0 = t90398; a35193->s1.tag = NULL_TYPE; /* x272393 */ t90392.tag = STRUCTURE_TYPE24753; t90392.value.structure_type24753 = a35193; l17302: goto l17299; l17298: /* x103947 stalin.sc:10367:359274 */ t90392 = a23898; l17299: /* x103924 stalin.sc:10272:355857 */ /* x103651 stalin.sc:10271:355842 */ t90393.tag = NATIVE_PROCEDURE_TYPE17124; t90394 = *((struct w49 *)(&t90392)); t90395 = (struct structure_type24753 *)NULL_TYPE; f27755(t90393, t90394, t90395); /* x103650 */ /* x103649 stalin.sc:10368:359285 */ /* x103642 stalin.sc:10368:359291 */ if (a23895==FALSE_TYPE) goto l17295; /* x103646 */ /* x103645 */ /* x103644 stalin.sc:10368:359298 */ /* x103643 stalin.sc:10368:359299 */ goto h11490; goto l17296; l17295: /* x103648 stalin.sc:10368:359285 */ /* x103647 stalin.sc:10368:359285 */ l17296: /* x103639 */ /* x103638 stalin.sc:10369:359310 */ if (a23891==FALSE_TYPE) goto l17292; /* x226873 stalin.sc:31858:1098272 */ /* x226872 stalin.sc:31858:1098278 */ /* x226870 stalin.sc:31858:1098281 */ t90417 = a33187; /* x226871 stalin.sc:31858:1098283 */ t90418 = 1; /* x267566 stalin.sc:31858:1098279 */ t90416 = t90417+t90418; /* x226868 stalin.sc:31858:1098273 */ a33187 = t90416; goto h19345; l17292: /* x226890 stalin.sc:31859:1098288 */ /* x226874 stalin.sc:31859:1098294 */ if (a702==FALSE_TYPE) goto l17304; /* x226887 */ /* x226886 */ /* x226885 stalin.sc:31860:1098302 */ /* x226884 stalin.sc:31860:1098341 */ /* x226881 stalin.sc:31860:1098345 */ /* x226879 stalin.sc:31860:1098348 */ t90414 = a33187; /* x226880 stalin.sc:31860:1098350 */ t90415 = 1; /* x267565 stalin.sc:31860:1098346 */ if (!(t90414==t90415)) goto l17307; /* x226882 stalin.sc:31860:1098353 */ t90410 = ""; goto l17308; l17307: /* x226883 stalin.sc:31860:1098356 */ t90410 = "es"; l17308: /* x226877 stalin.sc:31860:1098339 */ t90409 = a33187; /* x226876 stalin.sc:31860:1098310 */ t90408 = "~a pass~a of flow analysis"; /* x226875 stalin.sc:31860:1098303 */ t90411.tag = STRING_TYPE; t90411.value.string_type = t90408; t90413.tag = STRUCTURE_TYPE24753; t90413.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90413.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31860, 1098302); out_of_memory_error();} t90413.value.structure_type24753->s0.tag = STRING_TYPE; t90413.value.structure_type24753->s0.value.string_type = t90410; t90413.value.structure_type24753->s1.tag = NULL_TYPE; t90412 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t90412==NULL) {backtrace("stalin.sc", 31860, 1098302); out_of_memory_error();} t90412->s0.tag = FIXNUM_TYPE; t90412->s0.value.fixnum_type = t90409; t90412->s1 = t90413; f5365(t90411, t90412); goto l17305; l17304: /* x226889 stalin.sc:31859:1098288 */ /* x226888 stalin.sc:31859:1098288 */ l17305: /* x226956 stalin.sc:31861:1098369 */ /* x226955 stalin.sc:31861:1098404 */ a2039 = TRUE_TYPE; /* x226960 stalin.sc:31862:1098411 */ /* x226958 stalin.sc:31862:1098419 */ t90586 = a702; /* x226959 stalin.sc:31862:1098425 */ t90587 = "Computing call graph"; /* x226957 stalin.sc:31862:1098412 */ f19217(t90586, t90587); /* x226965 stalin.sc:31863:1098452 */ /* x226964 stalin.sc:31863:1098473 */ /* x226963 stalin.sc:31863:1098504 */ t90601 = a2026; /* x226962 stalin.sc:31863:1098474 */ a39514 = t90601; /* x290725 */ /* x290724 */ t90602 = a39514; /* x290723 */ if (!((t90602.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-LAMBDA-ENVIRONMENT[5591] 34431]"); structure_ref_error();} /* x226961 stalin.sc:31863:1098453 */ /* x105680 */ /* x105677 */ /* x105676 */ /* x105679 */ /* x105678 */ /* x105675 */ /* x105674 */ /* x105586 */ /* x105585 */ /* x105617 */ /* x105616 */ /* x105643 stalin.sc:10568:366668 */ /* x105642 stalin.sc:10573:366943 */ t90593 = a1594; /* x105641 */ /* x105618 stalin.sc:10568:366669 */ t90594.tag = NATIVE_PROCEDURE_TYPE17410; t90595 = *((struct w49 *)(&t90593)); t90596 = (struct structure_type24753 *)NULL_TYPE; f27755(t90594, t90595, t90596); /* x105673 stalin.sc:10574:366950 */ /* x105672 stalin.sc:10580:367223 */ t90597 = a1594; /* x105671 stalin.sc:10574:366960 */ /* x105644 stalin.sc:10574:366951 */ t90598.tag = NATIVE_PROCEDURE_TYPE17408; t90599 = *((struct w49 *)(&t90597)); t90600 = (struct structure_type24753 *)NULL_TYPE; f27755(t90598, t90599, t90600); /* x105555 */ /* x105554 stalin.sc:10582:367266 */ /* x105553 stalin.sc:10727:372295 */ t90589 = a1594; /* x105552 */ /* x104866 stalin.sc:10582:367267 */ t90590.tag = NATIVE_PROCEDURE_TYPE17418; t90591 = *((struct w49 *)(&t90589)); t90592 = (struct structure_type24753 *)NULL_TYPE; f27755(t90590, t90591, t90592); /* x226969 stalin.sc:31864:1098513 */ /* x226967 stalin.sc:31864:1098521 */ t90603 = a702; /* x226968 stalin.sc:31864:1098527 */ t90604 = "Determining which environments are called more than once"; /* x226966 stalin.sc:31864:1098514 */ f19217(t90603, t90604); /* x226971 stalin.sc:31865:1098590 */ /* x226970 stalin.sc:31865:1098591 */ /* x105728 stalin.sc:10732:372430 */ /* x105727 stalin.sc:10740:372710 */ t90605 = a1594; /* x105726 stalin.sc:10732:372440 */ /* x105683 stalin.sc:10732:372431 */ t90606.tag = NATIVE_PROCEDURE_TYPE16156; t90607 = *((struct w49 *)(&t90605)); t90608 = (struct structure_type24753 *)NULL_TYPE; f27755(t90606, t90607, t90608); /* x226975 stalin.sc:31866:1098651 */ /* x226973 stalin.sc:31866:1098659 */ t90609 = a702; /* x226974 stalin.sc:31866:1098665 */ t90610 = "Determining which variables are referenced"; /* x226972 stalin.sc:31866:1098652 */ f19217(t90609, t90610); /* x226977 stalin.sc:31867:1098714 */ /* x226976 stalin.sc:31867:1098715 */ /* x106847 */ /* x105757 stalin.sc:10745:372817 */ /* x105756 stalin.sc:10745:372873 */ t90615 = a2031; /* x105755 stalin.sc:10745:372827 */ /* x105750 stalin.sc:10745:372818 */ t90616.tag = NATIVE_PROCEDURE_TYPE16152; t90617 = *((struct w49 *)(&t90615)); t90618 = (struct structure_type24753 *)NULL_TYPE; f27755(t90616, t90617, t90618); /* x105765 stalin.sc:10746:372880 */ /* x105764 stalin.sc:10746:372934 */ t90619 = a1633; /* x105763 stalin.sc:10746:372890 */ /* x105758 stalin.sc:10746:372881 */ t90620.tag = NATIVE_PROCEDURE_TYPE16149; t90621 = *((struct w49 *)(&t90619)); t90622 = (struct structure_type24753 *)NULL_TYPE; f27755(t90620, t90621, t90622); /* x105773 stalin.sc:10747:372941 */ /* x105772 stalin.sc:10747:372995 */ t90623 = a1633; /* x105771 stalin.sc:10747:372951 */ /* x105766 stalin.sc:10747:372942 */ t90624.tag = NATIVE_PROCEDURE_TYPE16146; t90625 = *((struct w49 *)(&t90623)); t90626 = (struct structure_type24753 *)NULL_TYPE; f27755(t90624, t90625, t90626); /* x106846 stalin.sc:10748:373002 */ /* x106845 */ /* x106844 */ /* x106843 */ /* x106842 */ /* x106841 */ /* x106840 */ /* x106839 */ /* x105775 */ /* x105774 stalin.sc:10748:373007 */ h11787: /* x106838 stalin.sc:10749:373017 */ /* x106837 stalin.sc:10749:373031 */ /* x106836 */ a24151 = FALSE_TYPE; /* x106835 */ /* x106832 */ /* x106831 */ /* x106834 */ /* x106833 */ /* x106830 */ /* x106829 */ /* x106466 */ /* x106465 */ /* x106484 */ /* x106483 */ /* x106487 stalin.sc:10917:379795 */ /* x106486 stalin.sc:10917:379824 */ t90627 = a2026; /* x106485 stalin.sc:10917:379796 */ f11857(t90627); /* x106505 stalin.sc:10920:379946 */ /* x106491 stalin.sc:10921:379975 */ /* x106490 stalin.sc:10921:379996 */ t90635 = a2026; /* x106489 stalin.sc:10921:379976 */ a40019 = t90635; /* x292745 */ /* x292744 */ t90636 = a40019; /* x292743 */ if (!((t90636.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34936]"); structure_ref_error();} t90628 = t90636.value.structure_type27698->s10; /* x106492 stalin.sc:10922:380005 */ /* x106495 stalin.sc:10923:380013 */ /* x106494 stalin.sc:10923:380019 */ t90637 = a1678; /* x106493 stalin.sc:10923:380014 */ a35209 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35209==NULL) {backtrace("stalin.sc", 10923, 380013); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t90637>=((struct structure_type27650 *)VALUE_OFFSET)) {a35209->s0.tag = STRUCTURE_TYPE27650; a35209->s0.value.structure_type27650 = t90637;} else a35209->s0.tag = (unsigned)t90637; a35209->s1.tag = NULL_TYPE; /* x272425 */ t90629 = a35209; /* x106496 stalin.sc:10924:380029 */ t90630 = a1675; /* x106504 stalin.sc:10925:380040 */ /* x106498 stalin.sc:10925:380049 */ /* x106503 stalin.sc:10925:380062 */ /* x106502 stalin.sc:10925:380083 */ /* x106501 stalin.sc:10925:380100 */ t90642 = a2026; /* x106500 stalin.sc:10925:380084 */ a39421 = t90642; /* x290353 */ /* x290352 */ t90643 = a39421; /* x290351 */ if (!((t90643.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-BODY[5607] 34338]"); structure_ref_error();} t90640 = t90643.value.structure_type27698->s15; /* x106499 stalin.sc:10925:380063 */ a40009 = t90640; /* x292705 */ /* x292704 */ t90641 = a40009; /* x292703 */ if (!((t90641.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34926]"); structure_ref_error();} t90638 = t90641.value.structure_type27698->s10; /* x106497 stalin.sc:10925:380041 */ t90639.tag = NATIVE_PROCEDURE_TYPE7430; t90631 = f8137(t90639, t90638); /* x106488 stalin.sc:10920:379947 */ t90632 = (struct structure_type27745 *)FALSE_TYPE; t90633.tag = STRUCTURE_TYPE24753; t90633.value.structure_type24753 = t90629; /* MOVE: branching squeezed to general */ if (t90630>=((struct structure_type27650 *)VALUE_OFFSET)) {t90634.tag = STRUCTURE_TYPE27650; t90634.value.structure_type27650 = t90630;} else t90634.tag = (unsigned)t90630; f11793(t90628, t90632, t90633, t90634, t90631); /* x106828 stalin.sc:10926:380111 */ /* x106827 stalin.sc:10980:381989 */ t90644 = a2031; /* x106826 stalin.sc:10927:380125 */ /* x106506 stalin.sc:10926:380112 */ t90645.tag = NATIVE_PROCEDURE_TYPE16140; t90646 = *((struct w49 *)(&t90644)); t90647 = (struct structure_type24753 *)NULL_TYPE; f27755(t90645, t90646, t90647); /* x105784 */ /* x105783 stalin.sc:10981:381998 */ /* x105776 stalin.sc:10981:382004 */ if (a24151==FALSE_TYPE) goto l17336; /* x105780 */ /* x105779 */ /* x105778 stalin.sc:10981:382011 */ /* x105777 stalin.sc:10981:382012 */ goto h11787; goto l17337; l17336: /* x105782 stalin.sc:10981:381998 */ /* x105781 stalin.sc:10981:381998 */ l17337: /* x105749 */ /* x105748 stalin.sc:10982:382022 */ /* x105747 stalin.sc:10985:382126 */ t90611 = a2028; /* x105746 stalin.sc:10983:382034 */ /* x105731 stalin.sc:10982:382023 */ t90612.tag = NATIVE_PROCEDURE_TYPE17133; t90613 = *((struct w49 *)(&t90611)); t90614 = (struct structure_type24753 *)NULL_TYPE; f27755(t90612, t90613, t90614); /* x226981 stalin.sc:31868:1098761 */ /* x226979 stalin.sc:31868:1098769 */ t90648 = a702; /* x226980 stalin.sc:31868:1098775 */ t90649 = "Determining free variables"; /* x226978 stalin.sc:31868:1098762 */ f19217(t90648, t90649); /* x226983 stalin.sc:31869:1098808 */ /* x226982 stalin.sc:31869:1098809 */ /* x106991 */ /* x106974 stalin.sc:10990:382210 */ /* x106973 stalin.sc:10990:382283 */ t90654 = a1594; /* x106972 stalin.sc:10990:382220 */ /* x106966 stalin.sc:10990:382211 */ t90655.tag = NATIVE_PROCEDURE_TYPE16127; t90656 = *((struct w49 *)(&t90654)); t90657 = (struct structure_type24753 *)NULL_TYPE; f27755(t90655, t90656, t90657); /* x106990 stalin.sc:10991:382290 */ /* x106989 stalin.sc:10994:382389 */ t90658 = a1594; /* x106988 stalin.sc:10992:382302 */ /* x106975 stalin.sc:10991:382291 */ t90659.tag = NATIVE_PROCEDURE_TYPE16126; t90660 = *((struct w49 *)(&t90658)); t90661 = (struct structure_type24753 *)NULL_TYPE; f27755(t90659, t90660, t90661); /* x106965 */ /* x106964 stalin.sc:10995:382396 */ /* x106963 stalin.sc:11011:382974 */ t90650 = a2027; /* x106962 stalin.sc:10995:382406 */ /* x106850 stalin.sc:10995:382397 */ t90651.tag = NATIVE_PROCEDURE_TYPE16130; t90652 = *((struct w49 *)(&t90650)); t90653 = (struct structure_type24753 *)NULL_TYPE; f27755(t90651, t90652, t90653); /* x226987 stalin.sc:31870:1098839 */ /* x226985 stalin.sc:31870:1098847 */ t90662 = a702; /* x226986 stalin.sc:31870:1098853 */ t90663 = "Determining necessarily-fictitious native procedure types"; /* x226984 stalin.sc:31870:1098840 */ f19217(t90662, t90663); /* x226989 stalin.sc:31871:1098917 */ /* x226988 stalin.sc:31871:1098918 */ /* x80097 */ /* x80096 stalin.sc:5565:191877 */ /* x80095 stalin.sc:5567:191962 */ t90668 = a1945; /* x80094 stalin.sc:5566:191889 */ /* x80089 stalin.sc:5565:191878 */ t90669.tag = NATIVE_PROCEDURE_TYPE16113; t90670 = *((struct w49 *)(&t90668)); t90671 = (struct structure_type24753 *)NULL_TYPE; f27755(t90669, t90670, t90671); /* x80088 */ /* x80087 stalin.sc:5568:191989 */ /* x80086 */ /* x80085 */ /* x80084 */ /* x80083 */ /* x80082 */ /* x80081 */ /* x80080 */ /* x79984 */ /* x79983 stalin.sc:5568:191994 */ h9405: /* x80079 stalin.sc:5569:192004 */ /* x80078 stalin.sc:5569:192018 */ /* x80077 */ a22605 = FALSE_TYPE; /* x80076 */ /* x80075 stalin.sc:5570:192026 */ /* x80074 stalin.sc:5585:192495 */ t90664 = a1945; /* x80073 stalin.sc:5571:192040 */ /* x79994 stalin.sc:5570:192027 */ t90665.tag = NATIVE_PROCEDURE_TYPE16122; t90666 = *((struct w49 *)(&t90664)); t90667 = (struct structure_type24753 *)NULL_TYPE; f27755(t90665, t90666, t90667); /* x79993 */ /* x79992 stalin.sc:5586:192524 */ /* x79985 stalin.sc:5586:192530 */ if (a22605==FALSE_TYPE) goto l17339; /* x79989 */ /* x79988 */ /* x79987 stalin.sc:5586:192537 */ /* x79986 stalin.sc:5586:192538 */ goto h9405; goto l17340; l17339: /* x79991 stalin.sc:5586:192524 */ /* x79990 stalin.sc:5586:192524 */ l17340: /* x226993 stalin.sc:31872:1098979 */ /* x226991 stalin.sc:31872:1098987 */ t90672 = a702; /* x226992 stalin.sc:31872:1098993 */ t90673 = "Annotating environments and continuation types"; /* x226990 stalin.sc:31872:1098980 */ f19217(t90672, t90673); /* x226995 stalin.sc:31873:1099046 */ /* x226994 stalin.sc:31873:1099047 */ /* x107736 */ /* x107647 stalin.sc:11016:383097 */ /* x107646 stalin.sc:11019:383235 */ t90678 = a1594; /* x107645 */ /* x107632 stalin.sc:11016:383098 */ t90679.tag = NATIVE_PROCEDURE_TYPE16108; t90680 = *((struct w49 *)(&t90678)); t90681 = (struct structure_type24753 *)NULL_TYPE; f27755(t90679, t90680, t90681); /* x107669 stalin.sc:11020:383242 */ /* x107668 stalin.sc:11024:383396 */ t90682 = a1594; /* x107667 stalin.sc:11020:383252 */ /* x107648 stalin.sc:11020:383243 */ t90683.tag = NATIVE_PROCEDURE_TYPE16107; t90684 = *((struct w49 *)(&t90682)); t90685 = (struct structure_type24753 *)NULL_TYPE; f27755(t90683, t90684, t90685); /* x107678 stalin.sc:11025:383403 */ /* x107677 stalin.sc:11026:383482 */ t90686 = a1943; /* x107676 stalin.sc:11025:383413 */ /* x107670 stalin.sc:11025:383404 */ t90687.tag = NATIVE_PROCEDURE_TYPE16106; t90688 = *((struct w49 *)(&t90686)); t90689 = (struct structure_type24753 *)NULL_TYPE; f27755(t90687, t90688, t90689); /* x107694 stalin.sc:11027:383505 */ /* x107693 stalin.sc:11029:383596 */ t90690 = a1943; /* x107692 stalin.sc:11028:383517 */ /* x107679 stalin.sc:11027:383506 */ t90691.tag = NATIVE_PROCEDURE_TYPE16103; t90692 = *((struct w49 *)(&t90690)); t90693 = (struct structure_type24753 *)NULL_TYPE; f27755(t90691, t90692, t90693); /* x107735 stalin.sc:11030:383619 */ /* x107734 stalin.sc:11037:383924 */ t90694 = a2031; /* x107733 stalin.sc:11030:383629 */ /* x107695 stalin.sc:11030:383620 */ t90695.tag = NATIVE_PROCEDURE_TYPE16102; t90696 = *((struct w49 *)(&t90694)); t90697 = (struct structure_type24753 *)NULL_TYPE; f27755(t90695, t90696, t90697); /* x107631 */ /* x107630 stalin.sc:11038:383931 */ /* x107629 stalin.sc:11175:388984 */ t90674 = a2030; /* x107628 stalin.sc:11039:383943 */ /* x106994 stalin.sc:11038:383932 */ t90675.tag = NATIVE_PROCEDURE_TYPE16112; t90676 = *((struct w49 *)(&t90674)); t90677 = (struct structure_type24753 *)NULL_TYPE; f27755(t90675, t90676, t90677); /* x226999 stalin.sc:31874:1099097 */ /* x226997 stalin.sc:31874:1099105 */ t90698 = a702; /* x226998 stalin.sc:31874:1099111 */ t90699 = "Inverting points-to relation"; /* x226996 stalin.sc:31874:1099098 */ f19217(t90698, t90699); /* x227001 stalin.sc:31875:1099146 */ /* x227000 stalin.sc:31875:1099147 */ /* x107967 */ /* x107764 stalin.sc:11180:389064 */ /* x107763 stalin.sc:11181:389147 */ t90704 = a1948; /* x107762 stalin.sc:11180:389074 */ /* x107757 stalin.sc:11180:389065 */ t90705.tag = NATIVE_PROCEDURE_TYPE16099; t90706 = *((struct w49 *)(&t90704)); t90707 = (struct structure_type24753 *)NULL_TYPE; f27755(t90705, t90706, t90707); /* x107772 stalin.sc:11182:389173 */ /* x107771 stalin.sc:11183:389256 */ t90708 = a1947; /* x107770 stalin.sc:11182:389183 */ /* x107765 stalin.sc:11182:389174 */ t90709.tag = NATIVE_PROCEDURE_TYPE16098; t90710 = *((struct w49 *)(&t90708)); t90711 = (struct structure_type24753 *)NULL_TYPE; f27755(t90709, t90710, t90711); /* x107780 stalin.sc:11184:389282 */ /* x107779 stalin.sc:11185:389365 */ t90712 = a1946; /* x107778 stalin.sc:11184:389292 */ /* x107773 stalin.sc:11184:389283 */ t90713.tag = NATIVE_PROCEDURE_TYPE16097; t90714 = *((struct w49 *)(&t90712)); t90715 = (struct structure_type24753 *)NULL_TYPE; f27755(t90713, t90714, t90715); /* x107788 stalin.sc:11186:389395 */ /* x107787 stalin.sc:11187:389478 */ t90716 = a1945; /* x107786 stalin.sc:11186:389405 */ /* x107781 stalin.sc:11186:389396 */ t90717.tag = NATIVE_PROCEDURE_TYPE16096; t90718 = *((struct w49 *)(&t90716)); t90719 = (struct structure_type24753 *)NULL_TYPE; f27755(t90717, t90718, t90719); /* x107796 stalin.sc:11188:389505 */ /* x107795 stalin.sc:11189:389588 */ t90720 = a1944; /* x107794 stalin.sc:11188:389515 */ /* x107789 stalin.sc:11188:389506 */ t90721.tag = NATIVE_PROCEDURE_TYPE16095; t90722 = *((struct w49 *)(&t90720)); t90723 = (struct structure_type24753 *)NULL_TYPE; f27755(t90721, t90722, t90723); /* x107804 stalin.sc:11190:389616 */ /* x107803 stalin.sc:11191:389699 */ t90724 = a1943; /* x107802 stalin.sc:11190:389626 */ /* x107797 stalin.sc:11190:389617 */ t90725.tag = NATIVE_PROCEDURE_TYPE16094; t90726 = *((struct w49 *)(&t90724)); t90727 = (struct structure_type24753 *)NULL_TYPE; f27755(t90725, t90726, t90727); /* x107812 stalin.sc:11192:389722 */ /* x107811 stalin.sc:11193:389805 */ t90728 = a1942; /* x107810 stalin.sc:11192:389732 */ /* x107805 stalin.sc:11192:389723 */ t90729.tag = NATIVE_PROCEDURE_TYPE16093; t90730 = *((struct w49 *)(&t90728)); t90731 = (struct structure_type24753 *)NULL_TYPE; f27755(t90729, t90730, t90731); /* x107820 stalin.sc:11194:389822 */ /* x107819 stalin.sc:11195:389905 */ t90732 = a1940; /* x107818 stalin.sc:11194:389832 */ /* x107813 stalin.sc:11194:389823 */ t90733.tag = NATIVE_PROCEDURE_TYPE16092; t90734 = *((struct w49 *)(&t90732)); t90735 = (struct structure_type24753 *)NULL_TYPE; f27755(t90733, t90734, t90735); /* x107828 stalin.sc:11196:389925 */ /* x107827 stalin.sc:11197:390008 */ t90736 = a1939; /* x107826 stalin.sc:11196:389935 */ /* x107821 stalin.sc:11196:389926 */ t90737.tag = NATIVE_PROCEDURE_TYPE16091; t90738 = *((struct w49 *)(&t90736)); t90739 = (struct structure_type24753 *)NULL_TYPE; f27755(t90737, t90738, t90739); /* x107836 stalin.sc:11198:390032 */ /* x107835 stalin.sc:11199:390115 */ t90740 = a1938; /* x107834 stalin.sc:11198:390042 */ /* x107829 stalin.sc:11198:390033 */ t90741.tag = NATIVE_PROCEDURE_TYPE16090; t90742 = *((struct w49 *)(&t90740)); t90743 = (struct structure_type24753 *)NULL_TYPE; f27755(t90741, t90742, t90743); /* x107844 stalin.sc:11200:390142 */ /* x107843 stalin.sc:11201:390225 */ t90744 = a1936; /* x107842 stalin.sc:11200:390152 */ /* x107837 stalin.sc:11200:390143 */ t90745.tag = NATIVE_PROCEDURE_TYPE16077; t90746 = *((struct w49 *)(&t90744)); t90747 = (struct structure_type24753 *)NULL_TYPE; f27755(t90745, t90746, t90747); /* x107949 stalin.sc:11202:390252 */ /* x107948 stalin.sc:11220:390816 */ t90748 = a1679; /* x107947 stalin.sc:11203:390264 */ /* x107845 stalin.sc:11202:390253 */ t90749.tag = NATIVE_PROCEDURE_TYPE16075; t90750 = *((struct w49 *)(&t90748)); t90751 = (struct structure_type24753 *)NULL_TYPE; f27755(t90749, t90750, t90751); /* x107966 stalin.sc:11221:390823 */ /* x107965 stalin.sc:11227:391076 */ t90752 = a1947; /* x107964 stalin.sc:11221:390833 */ /* x107950 stalin.sc:11221:390824 */ t90753.tag = NATIVE_PROCEDURE_TYPE16074; t90754 = *((struct w49 *)(&t90752)); t90755 = (struct structure_type24753 *)NULL_TYPE; f27755(t90753, t90754, t90755); /* x107756 */ /* x107755 stalin.sc:11228:391102 */ /* x107754 stalin.sc:11234:391357 */ t90700 = a1936; /* x107753 stalin.sc:11228:391112 */ /* x107739 stalin.sc:11228:391103 */ t90701.tag = NATIVE_PROCEDURE_TYPE16101; t90702 = *((struct w49 *)(&t90700)); t90703 = (struct structure_type24753 *)NULL_TYPE; f27755(t90701, t90702, t90703); /* x227005 stalin.sc:31876:1099178 */ /* x227003 stalin.sc:31876:1099186 */ t90756 = a702; /* x227004 stalin.sc:31876:1099192 */ t90757 = "Determining escaping types"; /* x227002 stalin.sc:31876:1099179 */ f19217(t90756, t90757); /* x227007 stalin.sc:31877:1099225 */ /* x227006 stalin.sc:31877:1099226 */ /* x109240 */ /* x108643 stalin.sc:11319:394417 */ /* x108642 stalin.sc:11319:394490 */ t90768 = a1594; /* x108641 stalin.sc:11319:394427 */ /* x108635 stalin.sc:11319:394418 */ t90769.tag = NATIVE_PROCEDURE_TYPE16061; t90770 = *((struct w49 *)(&t90768)); t90771 = (struct structure_type24753 *)NULL_TYPE; f27755(t90769, t90770, t90771); /* x108689 stalin.sc:11320:394497 */ /* x108688 stalin.sc:11330:394967 */ t90772 = a1594; /* x108687 stalin.sc:11320:394507 */ /* x108644 stalin.sc:11320:394498 */ t90773.tag = NATIVE_PROCEDURE_TYPE16060; t90774 = *((struct w49 *)(&t90772)); t90775 = (struct structure_type24753 *)NULL_TYPE; f27755(t90773, t90774, t90775); /* x108926 stalin.sc:11331:394974 */ /* x108925 stalin.sc:11394:397575 */ t90776 = a1633; /* x108924 stalin.sc:11332:394986 */ /* x108690 stalin.sc:11331:394975 */ t90777.tag = NATIVE_PROCEDURE_TYPE16059; t90778 = *((struct w49 *)(&t90776)); t90779 = (struct structure_type24753 *)NULL_TYPE; f27755(t90777, t90778, t90779); /* x109052 stalin.sc:11395:397582 */ /* x109051 stalin.sc:11436:399215 */ t90780 = a2030; /* x109050 stalin.sc:11396:397594 */ /* x108927 stalin.sc:11395:397583 */ t90781.tag = NATIVE_PROCEDURE_TYPE16057; t90782 = *((struct w49 *)(&t90780)); t90783 = (struct structure_type24753 *)NULL_TYPE; f27755(t90781, t90782, t90783); /* x109239 stalin.sc:11437:399225 */ /* x109238 stalin.sc:11493:401501 */ t90784 = a1940; /* x109237 */ /* x109053 stalin.sc:11437:399226 */ t90785.tag = NATIVE_PROCEDURE_TYPE15987; t90786 = *((struct w49 *)(&t90784)); t90787 = (struct structure_type24753 *)NULL_TYPE; f27755(t90785, t90786, t90787); /* x108634 */ /* x108633 stalin.sc:11494:401521 */ /* x108632 stalin.sc:11546:403608 */ /* x108631 stalin.sc:11547:403666 */ t90764 = a1936; /* x108630 stalin.sc:11547:403641 */ t90763 = a1938; /* x108629 stalin.sc:11547:403619 */ t90762 = a1939; /* x108628 stalin.sc:11546:403609 */ t90767.tag = STRUCTURE_TYPE24753; t90767.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90767.value.structure_type24753)==NULL) {backtrace("stalin.sc", 11546, 403608); out_of_memory_error();} t90767.value.structure_type24753->s0 = *((struct w49 *)(&t90764)); t90767.value.structure_type24753->s1.tag = NULL_TYPE; t90766.tag = STRUCTURE_TYPE24753; t90766.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90766.value.structure_type24753)==NULL) {backtrace("stalin.sc", 11546, 403608); out_of_memory_error();} t90766.value.structure_type24753->s0 = *((struct w49 *)(&t90763)); t90766.value.structure_type24753->s1 = t90767; t90765 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t90765==NULL) {backtrace("stalin.sc", 11546, 403608); out_of_memory_error();} t90765->s0 = *((struct w49 *)(&t90762)); t90765->s1 = t90766; t90758 = f26254(t90765); /* x108627 */ /* x108465 stalin.sc:11494:401522 */ t90759.tag = NATIVE_PROCEDURE_TYPE16064; t90760 = t90758; t90761 = (struct structure_type24753 *)NULL_TYPE; f27755(t90759, t90760, t90761); /* x227011 stalin.sc:31878:1099256 */ /* x227009 stalin.sc:31878:1099264 */ t90788 = a702; /* x227010 stalin.sc:31878:1099270 */ t90789 = "Determining which environments have unique call sites"; /* x227008 stalin.sc:31878:1099257 */ f19217(t90788, t90789); /* x227013 stalin.sc:31879:1099330 */ /* x227012 stalin.sc:31879:1099331 */ /* x109286 */ /* x109285 stalin.sc:11552:403816 */ /* x109284 stalin.sc:11555:403944 */ t90797 = a1594; /* x109283 stalin.sc:11552:403826 */ /* x109268 stalin.sc:11552:403817 */ t90798.tag = NATIVE_PROCEDURE_TYPE15975; t90799 = *((struct w49 *)(&t90797)); t90800 = (struct structure_type24753 *)NULL_TYPE; f27755(t90798, t90799, t90800); /* x109267 */ /* x109266 stalin.sc:11556:403951 */ /* x109265 */ /* x109264 */ /* x109263 */ /* x109262 */ /* x109261 */ /* x109260 */ /* x109259 */ /* x109244 */ /* x109243 stalin.sc:11556:403956 */ h12214: /* x109258 */ /* x109255 stalin.sc:11557:403966 */ /* x109254 stalin.sc:11557:403981 */ a2038 = FALSE_TYPE; /* x109257 stalin.sc:11558:403987 */ /* x109256 stalin.sc:11558:403988 */ /* x74086 */ /* x74085 stalin.sc:4331:145428 */ /* x74077 stalin.sc:4331:145434 */ if (a696==FALSE_TYPE) goto l17345; /* x74082 */ /* x74081 */ /* x74080 stalin.sc:4331:145440 */ /* x74079 stalin.sc:4331:145448 */ t90794 = "Determining unique call sites"; /* x74078 stalin.sc:4331:145441 */ t90795.tag = STRING_TYPE; t90795.value.string_type = t90794; t90796 = (struct structure_type24753 *)NULL_TYPE; f5365(t90795, t90796); goto l17346; l17345: /* x74084 stalin.sc:4331:145428 */ /* x74083 stalin.sc:4331:145428 */ l17346: /* x74076 */ /* x74075 stalin.sc:4332:145483 */ /* x74074 stalin.sc:4345:145981 */ t90790 = a1594; /* x74073 stalin.sc:4333:145495 */ /* x73996 stalin.sc:4332:145484 */ t90791.tag = NATIVE_PROCEDURE_TYPE15984; t90792 = *((struct w49 *)(&t90790)); t90793 = (struct structure_type24753 *)NULL_TYPE; f27755(t90791, t90792, t90793); /* x109253 */ /* x109252 stalin.sc:11559:404019 */ /* x109245 stalin.sc:11559:404025 */ if (a2038==FALSE_TYPE) goto l17342; /* x109249 */ /* x109248 */ /* x109247 stalin.sc:11559:404034 */ /* x109246 stalin.sc:11559:404035 */ goto h12214; goto l17343; l17342: /* x109251 stalin.sc:11559:404019 */ /* x109250 stalin.sc:11559:404019 */ l17343: /* x227017 stalin.sc:31880:1099388 */ /* x227015 stalin.sc:31880:1099396 */ t90801 = a702; /* x227016 stalin.sc:31880:1099402 */ t90802 = "Determining which environments are recursive"; /* x227014 stalin.sc:31880:1099389 */ f19217(t90801, t90802); /* x227019 stalin.sc:31881:1099453 */ /* x227018 stalin.sc:31881:1099454 */ /* x109307 stalin.sc:11564:404148 */ /* x109306 stalin.sc:11567:404269 */ t90803 = a1594; /* x109305 stalin.sc:11564:404158 */ /* x109289 stalin.sc:11564:404149 */ t90804.tag = NATIVE_PROCEDURE_TYPE15974; t90805 = *((struct w49 *)(&t90803)); t90806 = (struct structure_type24753 *)NULL_TYPE; f27755(t90804, t90805, t90806); /* x227023 stalin.sc:31882:1099502 */ /* x227021 stalin.sc:31882:1099510 */ t90807 = a702; /* x227022 stalin.sc:31882:1099516 */ t90808 = "Determining which environments are reentrant"; /* x227020 stalin.sc:31882:1099503 */ f19217(t90807, t90808); /* x227025 stalin.sc:31883:1099567 */ /* x227024 stalin.sc:31883:1099568 */ /* x109381 stalin.sc:11574:404527 */ /* x109380 stalin.sc:11594:405169 */ t90809 = a1594; /* x109379 stalin.sc:11575:404539 */ /* x109310 stalin.sc:11574:404528 */ t90810.tag = NATIVE_PROCEDURE_TYPE15973; t90811 = *((struct w49 *)(&t90809)); t90812 = (struct structure_type24753 *)NULL_TYPE; f27755(t90810, t90811, t90812); /* x227039 stalin.sc:31884:1099616 */ /* x227026 stalin.sc:31884:1099622 */ if (a708==FALSE_TYPE) goto l17348; /* x227036 */ /* x227035 */ /* x227034 */ /* x227033 stalin.sc:31901:1100808 */ /* x227031 stalin.sc:31901:1100816 */ t90869 = a702; /* x227032 stalin.sc:31901:1100822 */ t90870 = "Asserting uniqueness"; /* x227030 stalin.sc:31901:1100809 */ f19217(t90869, t90870); /* x227029 */ /* x227028 stalin.sc:31902:1100850 */ /* x227027 stalin.sc:31902:1100851 */ /* x110037 */ /* x110034 */ /* x110033 */ /* x110036 */ /* x110035 */ /* x110032 */ /* x110031 */ /* x109951 */ /* x109950 */ /* x110030 */ /* x110029 */ /* x109904 */ /* x109903 stalin.sc:11617:405970 */ /* x109902 */ /* x109901 */ /* x109900 */ /* x109899 */ /* x109898 */ /* x109897 */ /* x109896 */ /* x109385 */ /* x109384 stalin.sc:11617:405975 */ h12239: /* x109895 stalin.sc:11618:405985 */ /* x109894 stalin.sc:11618:405999 */ /* x109893 */ a24437 = FALSE_TYPE; /* x109892 */ /* x109581 stalin.sc:11619:406007 */ /* x109580 stalin.sc:11656:407077 */ /* x109579 stalin.sc:11656:407096 */ /* x109578 stalin.sc:11656:407121 */ t90839 = a1940; /* x109577 stalin.sc:11656:407101 */ /* x109576 stalin.sc:11656:407097 */ t90840.tag = NATIVE_PROCEDURE_TYPE7806; t90841 = *((struct w49 *)(&t90839)); t90842 = (struct structure_type24753 *)NULL_TYPE; t90817 = f27731(t90840, t90841, t90842); /* x109575 stalin.sc:11656:407078 */ a15105 = t90817; /* x17269 QobiScheme.sc:718:20532 */ /* x17267 QobiScheme.sc:718:20546 */ t90818 = a15105; /* x17268 QobiScheme.sc:718:20552 */ /* x17266 */ /* x17265 */ /* x17264 */ /* x17263 */ /* x17262 */ /* x17261 */ /* x17260 */ /* x17222 */ /* x17221 QobiScheme.sc:718:20537 */ /* MOVE: branching squeezed to general */ if (t90818>=((struct structure_type24753 *)VALUE_OFFSET)) {a15108.tag = STRUCTURE_TYPE24753; a15108.value.structure_type24753 = t90818;} else a15108.tag = (unsigned)t90818; a15109 = (struct structure_type24753 *)NULL_TYPE; h1505: /* x17259 QobiScheme.sc:719:20560 */ /* x17225 QobiScheme.sc:719:20567 */ /* x17224 QobiScheme.sc:719:20574 */ t90819 = a15108; /* x270883 QobiScheme.sc:719:20568 */ if (!((t90819.tag)==NULL_TYPE)) goto l17354; /* x17230 */ /* x17229 */ /* x17228 QobiScheme.sc:719:20577 */ /* x17227 QobiScheme.sc:719:20586 */ t90837 = a15109; /* x17226 QobiScheme.sc:719:20578 */ /* MOVE: branching squeezed to general */ if (t90837>=((struct structure_type24753 *)VALUE_OFFSET)) {t90838.tag = STRUCTURE_TYPE24753; t90838.value.structure_type24753 = t90837;} else t90838.tag = (unsigned)t90837; t90813 = f26331(t90838); goto l17355; l17354: /* x17258 */ /* x17236 QobiScheme.sc:720:20592 */ /* x17234 QobiScheme.sc:720:20600 */ /* x17233 QobiScheme.sc:720:20607 */ t90823 = *((struct w16638 *)(&a15108)); /* x17232 QobiScheme.sc:720:20601 */ a36128 = t90823; /* x275869 */ /* x275868 */ t90824 = a36128; /* x275867 */ if (!((t90824.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30277]"); structure_ref_error();} t90820 = t90824.value.structure_type24753->s0; /* x17235 QobiScheme.sc:720:20610 */ t90821 = a15109; /* x17231 QobiScheme.sc:720:20593 */ /* MOVE: branching squeezed to general */ if (t90821>=((struct structure_type24753 *)VALUE_OFFSET)) {t90822.tag = STRUCTURE_TYPE24753; t90822.value.structure_type24753 = t90821;} else t90822.tag = (unsigned)t90821; if ((f26353(t90820, t90822).tag)==FALSE_TYPE) goto l17357; /* x17244 */ /* x17243 */ /* x17242 QobiScheme.sc:720:20613 */ /* x17240 QobiScheme.sc:720:20619 */ /* x17239 QobiScheme.sc:720:20625 */ t90835 = *((struct w16638 *)(&a15108)); /* x17238 QobiScheme.sc:720:20620 */ a35568 = t90835; /* x273629 */ /* x273628 */ t90836 = a35568; /* x273627 */ if (!((t90836.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29717]"); structure_ref_error();} t90833 = t90836.value.structure_type24753->s1; /* x17241 QobiScheme.sc:720:20628 */ t90834 = a15109; /* x17237 QobiScheme.sc:720:20614 */ a15108 = t90833; a15109 = t90834; goto h1505; goto l17358; l17357: /* x17257 */ /* x17256 */ /* x17255 QobiScheme.sc:721:20639 */ /* x17248 QobiScheme.sc:721:20645 */ /* x17247 QobiScheme.sc:721:20651 */ t90827 = *((struct w16638 *)(&a15108)); /* x17246 QobiScheme.sc:721:20646 */ a35569 = t90827; /* x273633 */ /* x273632 */ t90828 = a35569; /* x273631 */ if (!((t90828.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29718]"); structure_ref_error();} t90825 = t90828.value.structure_type24753->s1; /* x17254 QobiScheme.sc:721:20654 */ /* x17252 QobiScheme.sc:721:20660 */ /* x17251 QobiScheme.sc:721:20667 */ t90831 = *((struct w16638 *)(&a15108)); /* x17250 QobiScheme.sc:721:20661 */ a36127 = t90831; /* x275865 */ /* x275864 */ t90832 = a36127; /* x275863 */ if (!((t90832.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30276]"); structure_ref_error();} t90829 = t90832.value.structure_type24753->s0; /* x17253 QobiScheme.sc:721:20670 */ t90830 = a15109; /* x270882 QobiScheme.sc:721:20655 */ t90826 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t90826==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 721, 20654); out_of_memory_error();} t90826->s0 = t90829; /* MOVE: branching squeezed to general */ if (t90830>=((struct structure_type24753 *)VALUE_OFFSET)) {t90826->s1.tag = STRUCTURE_TYPE24753; t90826->s1.value.structure_type24753 = t90830;} else t90826->s1.tag = (unsigned)t90830; /* x17245 QobiScheme.sc:721:20640 */ a15108 = t90825; a15109 = t90826; goto h1505; l17358: l17355: /* x109574 stalin.sc:11620:406021 */ /* x109395 stalin.sc:11619:406008 */ t90814.tag = NATIVE_PROCEDURE_TYPE15962; t90815 = *((struct w49 *)(&t90813)); t90816 = (struct structure_type24753 *)NULL_TYPE; f27755(t90814, t90815, t90816); /* x109736 stalin.sc:11657:407145 */ /* x109735 stalin.sc:11657:407156 */ /* x109734 stalin.sc:11657:407166 */ t90852 = a1939; /* x109733 stalin.sc:11657:407161 */ /* x109732 stalin.sc:11657:407157 */ t90853.tag = NATIVE_PROCEDURE_TYPE460; t90854 = *((struct w49 *)(&t90852)); t90855 = (struct structure_type24753 *)NULL_TYPE; t90843 = f27731(t90853, t90854, t90855); /* x109731 */ a24463 = t90843; /* x109730 */ /* x109729 stalin.sc:11658:407195 */ /* x109728 stalin.sc:11668:407613 */ t90848 = a1679; /* x109727 stalin.sc:11659:407210 */ /* x109629 stalin.sc:11658:407196 */ t90849.tag = NATIVE_PROCEDURE_TYPE15947; t90850 = *((struct w49 *)(&t90848)); t90851 = (struct structure_type24753 *)NULL_TYPE; f27755(t90849, t90850, t90851); /* x109628 */ /* x109627 stalin.sc:11669:407623 */ /* x109626 stalin.sc:11682:407960 */ t90844 = a24463; /* x109625 stalin.sc:11670:407638 */ /* x109582 stalin.sc:11669:407624 */ t90845.tag = NATIVE_PROCEDURE_TYPE15950; /* MOVE: branching squeezed to general */ if (t90844>=((struct structure_type24753 *)VALUE_OFFSET)) {t90846.tag = STRUCTURE_TYPE24753; t90846.value.structure_type24753 = t90844;} else t90846.tag = (unsigned)t90844; t90847 = (struct structure_type24753 *)NULL_TYPE; f27755(t90845, t90846, t90847); /* x109891 stalin.sc:11683:407969 */ /* x109890 stalin.sc:11683:407980 */ /* x109889 stalin.sc:11683:407990 */ t90865 = a1938; /* x109888 stalin.sc:11683:407985 */ /* x109887 stalin.sc:11683:407981 */ t90866.tag = NATIVE_PROCEDURE_TYPE460; t90867 = *((struct w49 *)(&t90865)); t90868 = (struct structure_type24753 *)NULL_TYPE; t90856 = f27731(t90866, t90867, t90868); /* x109886 */ a24481 = t90856; /* x109885 */ /* x109884 stalin.sc:11684:408022 */ /* x109883 stalin.sc:11694:408443 */ t90861 = a1679; /* x109882 stalin.sc:11685:408037 */ /* x109784 stalin.sc:11684:408023 */ t90862.tag = NATIVE_PROCEDURE_TYPE15934; t90863 = *((struct w49 *)(&t90861)); t90864 = (struct structure_type24753 *)NULL_TYPE; f27755(t90862, t90863, t90864); /* x109783 */ /* x109782 stalin.sc:11695:408453 */ /* x109781 stalin.sc:11708:408799 */ t90857 = a24481; /* x109780 stalin.sc:11696:408468 */ /* x109737 stalin.sc:11695:408454 */ t90858.tag = NATIVE_PROCEDURE_TYPE15937; /* MOVE: branching squeezed to general */ if (t90857>=((struct structure_type24753 *)VALUE_OFFSET)) {t90859.tag = STRUCTURE_TYPE24753; t90859.value.structure_type24753 = t90857;} else t90859.tag = (unsigned)t90857; t90860 = (struct structure_type24753 *)NULL_TYPE; f27755(t90858, t90859, t90860); /* x109394 */ /* x109393 stalin.sc:11709:408808 */ /* x109386 stalin.sc:11709:408814 */ if (a24437==FALSE_TYPE) goto l17351; /* x109390 */ /* x109389 */ /* x109388 stalin.sc:11709:408821 */ /* x109387 stalin.sc:11709:408822 */ goto h12239; goto l17352; l17351: /* x109392 stalin.sc:11709:408808 */ /* x109391 stalin.sc:11709:408808 */ l17352: goto l17349; l17348: /* x227038 stalin.sc:31884:1099616 */ /* x227037 stalin.sc:31884:1099616 */ l17349: /* x227043 stalin.sc:31903:1100875 */ /* x227041 stalin.sc:31903:1100883 */ t90871 = a702; /* x227042 stalin.sc:31903:1100889 */ t90872 = "Performing lightweight closure conversion"; /* x227040 stalin.sc:31903:1100876 */ f19217(t90871, t90872); /* x227045 stalin.sc:31904:1100937 */ /* x227044 stalin.sc:31904:1100938 */ /* x110259 */ /* x110056 stalin.sc:11714:408928 */ /* x110055 stalin.sc:11715:409001 */ t90875 = a1945; /* x110054 stalin.sc:11714:408938 */ /* x110049 stalin.sc:11714:408929 */ t90876.tag = NATIVE_PROCEDURE_TYPE15916; t90877 = *((struct w49 *)(&t90875)); t90878 = (struct structure_type24753 *)NULL_TYPE; f27755(t90876, t90877, t90878); /* x110064 stalin.sc:11716:409028 */ /* x110063 stalin.sc:11717:409097 */ t90879 = a1943; /* x110062 stalin.sc:11716:409038 */ /* x110057 stalin.sc:11716:409029 */ t90880.tag = NATIVE_PROCEDURE_TYPE15915; t90881 = *((struct w49 *)(&t90879)); t90882 = (struct structure_type24753 *)NULL_TYPE; f27755(t90880, t90881, t90882); /* x110072 stalin.sc:11718:409120 */ /* x110071 stalin.sc:11719:409186 */ t90883 = a1940; /* x110070 stalin.sc:11718:409130 */ /* x110065 stalin.sc:11718:409121 */ t90884.tag = NATIVE_PROCEDURE_TYPE15914; t90885 = *((struct w49 *)(&t90883)); t90886 = (struct structure_type24753 *)NULL_TYPE; f27755(t90884, t90885, t90886); /* x110080 stalin.sc:11720:409206 */ /* x110079 stalin.sc:11720:409262 */ t90887 = a1679; /* x110078 stalin.sc:11720:409216 */ /* x110073 stalin.sc:11720:409207 */ t90888.tag = NATIVE_PROCEDURE_TYPE15913; t90889 = *((struct w49 *)(&t90887)); t90890 = (struct structure_type24753 *)NULL_TYPE; f27755(t90888, t90889, t90890); /* x110102 stalin.sc:11721:409269 */ /* x110101 stalin.sc:11726:409432 */ t90891 = a1633; /* x110100 */ /* x110081 stalin.sc:11721:409270 */ t90892.tag = NATIVE_PROCEDURE_TYPE15905; t90893 = *((struct w49 *)(&t90891)); t90894 = (struct structure_type24753 *)NULL_TYPE; f27755(t90892, t90893, t90894); /* x110117 stalin.sc:11727:409439 */ /* x110116 stalin.sc:11730:409558 */ t90895 = a1594; /* x110115 */ /* x110103 stalin.sc:11727:409440 */ t90896.tag = NATIVE_PROCEDURE_TYPE15902; t90897 = *((struct w49 *)(&t90895)); t90898 = (struct structure_type24753 *)NULL_TYPE; f27755(t90896, t90897, t90898); /* x110133 stalin.sc:11731:409565 */ /* x110132 stalin.sc:11733:409661 */ t90899 = a1594; /* x110131 stalin.sc:11731:409575 */ /* x110118 stalin.sc:11731:409566 */ t90900.tag = NATIVE_PROCEDURE_TYPE15901; t90901 = *((struct w49 *)(&t90899)); t90902 = (struct structure_type24753 *)NULL_TYPE; f27755(t90900, t90901, t90902); /* x110182 stalin.sc:11734:409668 */ /* x110181 stalin.sc:11740:409893 */ t90903 = a1594; /* x110180 stalin.sc:11734:409678 */ /* x110134 stalin.sc:11734:409669 */ t90904.tag = NATIVE_PROCEDURE_TYPE15900; t90905 = *((struct w49 *)(&t90903)); t90906 = (struct structure_type24753 *)NULL_TYPE; f27755(t90904, t90905, t90906); /* x110230 stalin.sc:11741:409900 */ /* x110229 */ /* x110228 */ /* x110227 */ /* x110226 */ /* x110225 */ /* x110224 */ /* x110223 */ /* x110184 */ /* x110183 stalin.sc:11741:409905 */ h12361: /* x110222 */ /* x110195 stalin.sc:11742:409915 */ /* x110194 stalin.sc:11742:409916 */ f4651(); /* x110197 stalin.sc:11743:409956 */ /* x110196 stalin.sc:11743:409971 */ a2038 = FALSE_TYPE; /* x110200 stalin.sc:11746:410116 */ /* x110199 stalin.sc:11746:410153 */ /* x110198 stalin.sc:11746:410117 */ a22265 = FALSE_TYPE; f8846(); /* x110203 stalin.sc:11747:410159 */ /* x110202 stalin.sc:11747:410200 */ /* x110201 stalin.sc:11747:410160 */ a22282 = FALSE_TYPE; f8884(); /* x110206 stalin.sc:11748:410206 */ /* x110205 stalin.sc:11748:410233 */ /* x110204 stalin.sc:11748:410207 */ a21991 = FALSE_TYPE; f8408(); /* x110209 stalin.sc:11749:410239 */ /* x110208 stalin.sc:11749:410267 */ /* x110207 stalin.sc:11749:410240 */ a21998 = FALSE_TYPE; f8423(); /* x110212 stalin.sc:11750:410273 */ /* x110211 stalin.sc:11750:410301 */ /* x110210 stalin.sc:11750:410274 */ a22005 = FALSE_TYPE; f8438(); /* x110215 stalin.sc:11751:410307 */ /* x110214 stalin.sc:11751:410336 */ /* x110213 stalin.sc:11751:410308 */ a22012 = FALSE_TYPE; f8453(); /* x110218 stalin.sc:11752:410342 */ /* x110217 stalin.sc:11752:410372 */ /* x110216 stalin.sc:11752:410343 */ a22185 = FALSE_TYPE; f8712(); /* x110221 stalin.sc:11753:410378 */ /* x110220 stalin.sc:11753:410411 */ /* x110219 stalin.sc:11753:410379 */ a22097 = FALSE_TYPE; f8568(); /* x110193 */ /* x110192 stalin.sc:11754:410417 */ /* x110185 stalin.sc:11754:410423 */ if (a2038==FALSE_TYPE) goto l17363; /* x110189 */ /* x110188 */ /* x110187 stalin.sc:11754:410432 */ /* x110186 stalin.sc:11754:410433 */ goto h12361; goto l17364; l17363: /* x110191 stalin.sc:11754:410417 */ /* x110190 stalin.sc:11754:410417 */ l17364: /* x110232 stalin.sc:11755:410442 */ /* x110231 stalin.sc:11755:410443 */ f4651(); /* x110234 stalin.sc:11756:410483 */ /* x110233 stalin.sc:11756:410498 */ a2038 = FALSE_TYPE; /* x110237 stalin.sc:11759:410640 */ /* x110236 stalin.sc:11759:410677 */ /* x110235 stalin.sc:11759:410641 */ a22265 = TRUE_TYPE; f8846(); /* x110240 stalin.sc:11760:410682 */ /* x110239 stalin.sc:11760:410723 */ /* x110238 stalin.sc:11760:410683 */ a22282 = TRUE_TYPE; f8884(); /* x110243 stalin.sc:11761:410728 */ /* x110242 stalin.sc:11761:410755 */ /* x110241 stalin.sc:11761:410729 */ a21991 = TRUE_TYPE; f8408(); /* x110246 stalin.sc:11762:410760 */ /* x110245 stalin.sc:11762:410788 */ /* x110244 stalin.sc:11762:410761 */ a21998 = TRUE_TYPE; f8423(); /* x110249 stalin.sc:11763:410793 */ /* x110248 stalin.sc:11763:410821 */ /* x110247 stalin.sc:11763:410794 */ a22005 = TRUE_TYPE; f8438(); /* x110252 stalin.sc:11764:410826 */ /* x110251 stalin.sc:11764:410855 */ /* x110250 stalin.sc:11764:410827 */ a22012 = TRUE_TYPE; f8453(); /* x110255 stalin.sc:11765:410860 */ /* x110254 stalin.sc:11765:410890 */ /* x110253 stalin.sc:11765:410861 */ a22185 = TRUE_TYPE; f8712(); /* x110258 stalin.sc:11766:410895 */ /* x110257 stalin.sc:11766:410928 */ /* x110256 stalin.sc:11766:410896 */ a22097 = TRUE_TYPE; f8568(); /* x110048 */ /* x110047 stalin.sc:11767:410933 */ /* x110040 stalin.sc:11767:410939 */ if (a2038==FALSE_TYPE) goto l17360; /* x110044 */ /* x110043 */ /* x110042 stalin.sc:11767:410948 */ /* x110041 stalin.sc:11767:410949 */ /* x297289 QobiScheme.sc:166:5314 */ /* x297288 QobiScheme.sc:166:5321 */ t90874 = "This shouldn\'t happen"; /* x297287 QobiScheme.sc:166:5315 */ stalin_panic(t90874); goto l17361; l17360: /* x110046 stalin.sc:11767:410933 */ /* x110045 stalin.sc:11767:410933 */ l17361: /* x227049 stalin.sc:31905:1100982 */ /* x227047 stalin.sc:31905:1100990 */ t90908 = a702; /* x227048 stalin.sc:31905:1100996 */ t90909 = "Determining parents"; /* x227046 stalin.sc:31905:1100983 */ f19217(t90908, t90909); /* x227051 stalin.sc:31906:1101022 */ /* x227050 stalin.sc:31906:1101023 */ /* x110887 */ /* x110350 stalin.sc:11772:411014 */ /* x110349 stalin.sc:11777:411253 */ t90914 = a1594; /* x110348 */ /* x110327 stalin.sc:11772:411015 */ t90915.tag = NATIVE_PROCEDURE_TYPE15797; t90916 = *((struct w49 *)(&t90914)); t90917 = (struct structure_type24753 *)NULL_TYPE; f27755(t90915, t90916, t90917); /* x110389 stalin.sc:11779:411301 */ /* x110388 stalin.sc:11787:411557 */ t90918 = a1594; /* x110387 stalin.sc:11780:411313 */ /* x110351 stalin.sc:11779:411302 */ t90919.tag = NATIVE_PROCEDURE_TYPE15796; t90920 = *((struct w49 *)(&t90918)); t90921 = (struct structure_type24753 *)NULL_TYPE; f27755(t90919, t90920, t90921); /* x110886 stalin.sc:11788:411564 */ /* x110393 stalin.sc:11788:411570 */ /* x110391 stalin.sc:11788:411575 */ t90922 = a686; /* x110392 stalin.sc:11788:411600 */ t90923 = q22; /* x269415 stalin.sc:11788:411571 */ if (!(t90922==t90923)) goto l17366; /* x110883 */ /* x110882 */ /* x110881 */ /* x110538 stalin.sc:11798:412303 */ /* x110537 stalin.sc:11809:412665 */ t90929 = a1594; /* x110536 stalin.sc:11798:412313 */ /* x110494 stalin.sc:11798:412304 */ t90930.tag = NATIVE_PROCEDURE_TYPE15794; t90931 = *((struct w49 *)(&t90929)); t90932 = (struct structure_type24753 *)NULL_TYPE; f27755(t90930, t90931, t90932); /* x110880 stalin.sc:11810:412673 */ /* x110879 stalin.sc:11810:412687 */ t90933 = a2026; /* x110878 */ /* x110877 */ /* x110876 */ /* x110875 */ /* x110874 */ /* x110873 */ /* x110872 */ /* x110540 */ /* x110539 stalin.sc:11810:412678 */ f12409(t90933); /* x110493 */ /* x110492 stalin.sc:11862:414239 */ /* x110491 stalin.sc:11879:414839 */ t90925 = a1594; /* x110490 stalin.sc:11863:414252 */ /* x110394 stalin.sc:11862:414240 */ t90926.tag = NATIVE_PROCEDURE_TYPE16887; t90927 = *((struct w49 *)(&t90925)); t90928 = (struct structure_type24753 *)NULL_TYPE; f27755(t90926, t90927, t90928); goto l17367; l17366: /* x110885 stalin.sc:11788:411564 */ /* x110884 stalin.sc:11788:411564 */ l17367: /* x110326 */ /* x110325 stalin.sc:11880:414847 */ /* x110324 stalin.sc:11890:415255 */ t90910 = a1594; /* x110323 stalin.sc:11880:414857 */ /* x110262 stalin.sc:11880:414848 */ t90911.tag = NATIVE_PROCEDURE_TYPE15803; t90912 = *((struct w49 *)(&t90910)); t90913 = (struct structure_type24753 *)NULL_TYPE; f27755(t90911, t90912, t90913); /* x227053 stalin.sc:31907:1101046 */ /* x227052 stalin.sc:31907:1101081 */ a2039 = FALSE_TYPE; /* x226808 */ /* x226807 stalin.sc:31908:1101088 */ /* x226607 stalin.sc:31908:1101096 */ if (a710==FALSE_TYPE) goto l17267; /* x226609 */ /* x226608 */ goto l17268; l17267: /* x226806 */ /* x226805 */ /* x226804 */ /* x226775 stalin.sc:31909:1101124 */ /* x226773 stalin.sc:31909:1101132 */ t90325 = a702; /* x226774 stalin.sc:31909:1101138 */ t90326 = "Determining which expressions need conversion to CPS"; /* x226772 stalin.sc:31909:1101125 */ f19217(t90325, t90326); /* x226783 stalin.sc:31910:1101198 */ /* x226776 stalin.sc:31910:1101206 */ if (a709==FALSE_TYPE) goto l17284; /* x226778 */ /* x226777 */ goto l17285; l17284: /* x226782 */ /* x226781 */ /* x226780 stalin.sc:31911:1101240 */ /* x226779 stalin.sc:31911:1101241 */ /* x111630 */ /* x111629 */ /* x111628 */ /* x111627 */ /* x111626 */ /* x111625 */ /* x111624 */ /* x111255 */ /* x111254 stalin.sc:12005:419024 */ /* x111253 stalin.sc:12005:419035 */ /* x111251 stalin.sc:12006:419056 */ /* x111252 stalin.sc:12036:419931 */ t90337 = a2030; /* x111169 stalin.sc:12005:419036 */ t90338.tag = NATIVE_PROCEDURE_TYPE17804; t90339 = *((struct w49 *)(&t90337)); t90327 = f1226(t90338, t90339); /* x111168 */ a24598 = t90327; /* x111167 */ /* x111166 stalin.sc:12037:419947 */ /* x111165 stalin.sc:12051:420347 */ t90333 = a24598; /* x111164 stalin.sc:12037:419952 */ /* x111128 stalin.sc:12037:419948 */ t90334.tag = NATIVE_PROCEDURE_TYPE17807; t90335 = *((struct w49 *)(&t90333)); t90336 = (struct structure_type24753 *)NULL_TYPE; t90328 = f27731(t90334, t90335, t90336); /* x111127 */ a24599 = t90328; /* x111126 */ /* x111125 */ /* x111124 */ /* x111123 */ /* x111122 */ /* x111121 */ /* x111120 */ /* x111119 */ /* x111118 */ /* x111084 */ /* x111083 stalin.sc:12060:420622 */ /* x111082 stalin.sc:12086:421630 */ t90329 = a2031; /* x111081 */ /* x110929 stalin.sc:12060:420623 */ t90330.tag = NATIVE_PROCEDURE_TYPE17816; t90331 = *((struct w49 *)(&t90329)); t90332 = (struct structure_type24753 *)NULL_TYPE; f27755(t90330, t90331, t90332); l17285: /* x226803 stalin.sc:31912:1101299 */ /* x226795 stalin.sc:31912:1101305 */ /* x226784 stalin.sc:31912:1101310 */ if (a33111==FALSE_TYPE) goto l17287; /* x226793 */ /* x226787 stalin.sc:31913:1101325 */ /* x226786 stalin.sc:31913:1101330 */ if (!(a709==FALSE_TYPE)) goto l17287; /* x226791 */ /* x226790 stalin.sc:31914:1101410 */ t90340 = a2031; /* x226789 stalin.sc:31914:1101374 */ /* x226788 stalin.sc:31914:1101369 */ t90341.tag = NATIVE_PROCEDURE_TYPE7622; t90342 = *((struct w49 *)(&t90340)); t90343 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t90341, t90342, t90343).tag)==FALSE_TYPE) goto l17287; /* x226800 */ /* x226799 */ /* x226798 stalin.sc:31915:1101422 */ /* x226797 stalin.sc:31915:1101430 */ t90344 = "Warning! Double CPS conversion"; /* x226796 stalin.sc:31915:1101423 */ t90345.tag = STRING_TYPE; t90345.value.string_type = t90344; t90346 = (struct structure_type24753 *)NULL_TYPE; f5365(t90345, t90346); goto l17288; l17287: /* x226802 stalin.sc:31912:1101299 */ /* x226801 stalin.sc:31912:1101299 */ l17288: /* x226771 */ /* x226770 stalin.sc:31916:1101469 */ /* x226623 stalin.sc:31916:1101475 */ /* x226612 stalin.sc:31916:1101480 */ /* x226611 stalin.sc:31916:1101485 */ if (!(a33111==FALSE_TYPE)) goto l17270; /* x226621 */ /* x226615 stalin.sc:31917:1101501 */ /* x226614 stalin.sc:31917:1101506 */ if (!(a709==FALSE_TYPE)) goto l17270; /* x226619 */ /* x226618 stalin.sc:31918:1101586 */ t90293 = a2031; /* x226617 stalin.sc:31918:1101550 */ /* x226616 stalin.sc:31918:1101545 */ t90294.tag = NATIVE_PROCEDURE_TYPE7622; t90295 = *((struct w49 *)(&t90293)); t90296 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t90294, t90295, t90296).tag)==FALSE_TYPE) goto l17270; /* x226767 */ /* x226766 */ /* x226765 */ /* x226635 stalin.sc:31919:1101598 */ /* x226628 stalin.sc:31919:1101604 */ if (a33111==FALSE_TYPE) goto l17275; /* x226632 */ /* x226631 */ /* x226630 stalin.sc:31919:1101611 */ /* x226629 stalin.sc:31919:1101612 */ /* x295077 QobiScheme.sc:166:5314 */ /* x295076 QobiScheme.sc:166:5321 */ t90297 = "This shouldn\'t happen"; /* x295075 QobiScheme.sc:166:5315 */ stalin_panic(t90297); goto l17276; l17275: /* x226634 stalin.sc:31919:1101598 */ /* x226633 stalin.sc:31919:1101598 */ l17276: /* x226656 stalin.sc:31920:1101627 */ /* x226647 stalin.sc:31920:1101633 */ /* x226646 stalin.sc:31920:1101685 */ t90298 = a1594; /* x226645 stalin.sc:31920:1101639 */ /* x226636 stalin.sc:31920:1101634 */ t90299.tag = NATIVE_PROCEDURE_TYPE24261; t90300 = *((struct w49 *)(&t90298)); t90301 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t90299, t90300, t90301).tag)==FALSE_TYPE) goto l17278; /* x226653 */ /* x226652 */ /* x226651 stalin.sc:31921:1101697 */ /* x226649 stalin.sc:31922:1101719 */ /* x226650 stalin.sc:31922:1101722 */ t90302 = "For now, this program must be compiled with -clone-size-limit 0"; /* x226648 stalin.sc:31921:1101698 */ t90303.tag = FALSE_TYPE; f9707(t90303, t90302); goto l17279; l17278: /* x226655 stalin.sc:31920:1101627 */ /* x226654 stalin.sc:31920:1101627 */ l17279: /* x226660 stalin.sc:31923:1101795 */ /* x226658 stalin.sc:31923:1101803 */ t90304 = a702; /* x226659 stalin.sc:31923:1101809 */ t90305 = "Converting to CPS"; /* x226657 stalin.sc:31923:1101796 */ f19217(t90304, t90305); /* x226664 stalin.sc:31924:1101835 */ /* x226663 stalin.sc:31924:1101845 */ /* x226662 stalin.sc:31924:1101864 */ t90306 = a2026; /* x226661 stalin.sc:31924:1101846 */ a2026 = f12566(t90306); /* x226674 stalin.sc:31925:1101875 */ /* x226667 stalin.sc:31925:1101881 */ /* x226666 stalin.sc:31925:1101893 */ /* x226665 stalin.sc:31925:1101882 */ t90307.tag = FALSE_TYPE; if (f8944(t90307)==FALSE_TYPE) goto l17281; /* x226671 */ /* x226670 */ /* x226669 stalin.sc:31925:1101898 */ /* x226668 stalin.sc:31925:1101899 */ /* x295177 QobiScheme.sc:166:5314 */ /* x295176 QobiScheme.sc:166:5321 */ t90308 = "This shouldn\'t happen"; /* x295175 QobiScheme.sc:166:5315 */ stalin_panic(t90308); goto l17282; l17281: /* x226673 stalin.sc:31925:1101875 */ /* x226672 stalin.sc:31925:1101875 */ l17282: /* x226682 stalin.sc:31929:1102127 */ /* x226681 stalin.sc:31929:1102182 */ t90309 = a2031; /* x226680 stalin.sc:31929:1102137 */ /* x226675 stalin.sc:31929:1102128 */ t90310.tag = NATIVE_PROCEDURE_TYPE24175; t90311 = *((struct w49 *)(&t90309)); t90312 = (struct structure_type24753 *)NULL_TYPE; f27755(t90310, t90311, t90312); /* x226693 stalin.sc:31930:1102193 */ /* x226692 stalin.sc:31930:1102204 */ /* x226690 stalin.sc:31930:1102219 */ /* x226691 stalin.sc:31930:1102259 */ t90313 = a1594; /* x226683 stalin.sc:31930:1102205 */ t90314.tag = NATIVE_PROCEDURE_TYPE24174; t90315 = *((struct w49 *)(&t90313)); t90316 = f1226(t90314, t90315); a1594 = *((struct w21193 *)(&t90316)); /* x226695 stalin.sc:31934:1102452 */ /* x226694 stalin.sc:31934:1102453 */ f10399(); /* x226710 stalin.sc:31935:1102503 */ /* x226709 stalin.sc:31936:1102518 */ /* x226707 stalin.sc:31936:1102533 */ /* x226708 stalin.sc:31939:1102634 */ t90317 = a1633; /* x226696 stalin.sc:31936:1102519 */ t90318.tag = NATIVE_PROCEDURE_TYPE24173; t90319 = *((struct w49 *)(&t90317)); t90320 = f1226(t90318, t90319); a1633 = *((struct w21193 *)(&t90320)); /* x226762 stalin.sc:31940:1102646 */ /* x226761 stalin.sc:31950:1103178 */ t90321 = a1594; /* x226760 */ /* x226711 stalin.sc:31940:1102647 */ t90322.tag = NATIVE_PROCEDURE_TYPE24171; t90323 = *((struct w49 *)(&t90321)); t90324 = (struct structure_type24753 *)NULL_TYPE; f27755(t90322, t90323, t90324); /* x226764 stalin.sc:31951:1103189 */ /* x226763 stalin.sc:31951:1103190 */ f7033(); /* x226627 */ /* x226626 stalin.sc:31952:1103214 */ /* x226625 stalin.sc:31952:1103220 */ /* x226624 stalin.sc:31952:1103215 */ a33111 = TRUE_TYPE; goto h19319; goto l17271; l17270: /* x226769 stalin.sc:31916:1101469 */ /* x226768 stalin.sc:31916:1101469 */ l17271: l17268: /* x227238 stalin.sc:31955:1103363 */ /* x227064 stalin.sc:31955:1103369 */ if (a695==FALSE_TYPE) goto l17369; /* x227235 */ /* x227234 */ /* x227233 */ /* x227069 stalin.sc:31956:1103405 */ /* x227068 stalin.sc:31956:1103440 */ a2039 = TRUE_TYPE; /* x227232 stalin.sc:31957:1103447 */ /* x227231 stalin.sc:31959:1103468 */ /* x227230 stalin.sc:31994:1104640 */ /* x227228 stalin.sc:31994:1104650 */ /* x227229 stalin.sc:31994:1104672 */ t91029 = a2028; /* x227227 stalin.sc:31994:1104641 */ t91030 = (struct p11483 *)NATIVE_PROCEDURE_TYPE7611; t90957 = f1362(t91030, t91029); /* x227226 stalin.sc:31993:1104612 */ /* x227225 stalin.sc:31993:1104620 */ t91027 = a2028; /* x227224 stalin.sc:31993:1104613 */ t91028 = *((struct w49 *)(&t91027)); t90956 = f26227(t91028); /* x227223 stalin.sc:31992:1104563 */ /* x227221 stalin.sc:31992:1104573 */ /* x227222 stalin.sc:31992:1104595 */ t91025 = a2029; /* x227220 stalin.sc:31992:1104564 */ t91026 = (struct p11483 *)NATIVE_PROCEDURE_TYPE7611; t90955 = f1362(t91026, t91025); /* x227219 stalin.sc:31991:1104538 */ /* x227218 stalin.sc:31991:1104546 */ t91023 = a2029; /* x227217 stalin.sc:31991:1104539 */ t91024 = *((struct w49 *)(&t91023)); t90954 = f26227(t91024); /* x227216 stalin.sc:31985:1104310 */ /* x227215 stalin.sc:31985:1104324 */ /* x227214 stalin.sc:31986:1104364 */ /* x227212 stalin.sc:31987:1104383 */ /* x227213 stalin.sc:31989:1104452 */ t91020 = a2027; /* x227206 stalin.sc:31986:1104365 */ t91021.tag = NATIVE_PROCEDURE_TYPE15744; t91022 = *((struct w49 *)(&t91020)); t91016 = f1226(t91021, t91022); /* x227205 stalin.sc:31985:1104329 */ /* x227204 stalin.sc:31985:1104325 */ t91017.tag = NATIVE_PROCEDURE_TYPE6715; t91018 = *((struct w49 *)(&t91016)); t91019 = (struct structure_type24753 *)NULL_TYPE; t91005 = f27731(t91017, t91018, t91019); /* x227203 */ a33209 = t91005; /* x227202 stalin.sc:31990:1104475 */ /* x227196 stalin.sc:31990:1104478 */ /* x227193 stalin.sc:31990:1104486 */ /* x227194 stalin.sc:31990:1104488 */ t91008 = a33209; /* x227195 stalin.sc:31990:1104495 */ t91009 = 0; /* x227192 stalin.sc:31990:1104479 */ t91010 = NATIVE_PROCEDURE_TYPE414; /* MOVE: branching squeezed to general */ if (t91008>=((struct structure_type24753 *)VALUE_OFFSET)) {t91011.tag = STRUCTURE_TYPE24753; t91011.value.structure_type24753 = t91008;} else t91011.tag = (unsigned)t91008; t91012.tag = FIXNUM_TYPE; t91012.value.fixnum_type = t91009; t91006 = f1006(t91010, t91011, t91012); /* x227201 stalin.sc:31990:1104498 */ /* x227200 stalin.sc:31990:1104514 */ /* x227199 stalin.sc:31990:1104522 */ t91014 = a33209; /* x227198 stalin.sc:31990:1104515 */ /* MOVE: branching squeezed to general */ if (t91014>=((struct structure_type24753 *)VALUE_OFFSET)) {t91015.tag = STRUCTURE_TYPE24753; t91015.value.structure_type24753 = t91014;} else t91015.tag = (unsigned)t91014; t91013 = f26227(t91015); /* x267557 stalin.sc:31990:1104499 */ t91007 = (float)t91013; /* x267558 stalin.sc:31990:1104476 */ switch (t91006.tag) {case FIXNUM_TYPE: t90953 = (t91006.value.fixnum_type)/t91007; break; case FLONUM_TYPE: t90953 = (t91006.value.flonum_type)/t91007; break; default: backtrace("stalin.sc", 31990, 1104475); divide_error();} /* x227190 stalin.sc:31980:1104154 */ /* x227188 stalin.sc:31980:1104164 */ /* x227189 stalin.sc:31984:1104299 */ t91003 = a1594; /* x227167 stalin.sc:31980:1104155 */ t91004 = (struct p11483 *)NATIVE_PROCEDURE_TYPE15747; t90952 = f1362(t91004, t91003); /* x227166 stalin.sc:31975:1104008 */ /* x227164 stalin.sc:31975:1104018 */ /* x227165 stalin.sc:31979:1104143 */ t91001 = a1594; /* x227143 stalin.sc:31975:1104009 */ t91002 = (struct p11483 *)NATIVE_PROCEDURE_TYPE15748; t90951 = f1362(t91002, t91001); /* x227142 stalin.sc:31973:1103914 */ /* x227140 stalin.sc:31974:1103930 */ /* x227141 stalin.sc:31974:1103997 */ t90999 = a1594; /* x227131 stalin.sc:31973:1103915 */ t91000 = (struct p11483 *)NATIVE_PROCEDURE_TYPE15749; t90950 = f1362(t91000, t90999); /* x227130 stalin.sc:31971:1103825 */ /* x227128 stalin.sc:31972:1103841 */ /* x227129 stalin.sc:31972:1103903 */ t90997 = a1594; /* x227119 stalin.sc:31971:1103826 */ t90998 = (struct p11483 *)NATIVE_PROCEDURE_TYPE15750; t90949 = f1362(t90998, t90997); /* x227118 stalin.sc:31970:1103791 */ /* x227116 stalin.sc:31970:1103801 */ /* x227117 stalin.sc:31970:1103814 */ t90995 = a1594; /* x227115 stalin.sc:31970:1103792 */ t90996 = (struct p11483 *)NATIVE_PROCEDURE_TYPE7278; t90948 = f1362(t90996, t90995); /* x227114 stalin.sc:31969:1103772 */ /* x227113 stalin.sc:31969:1103780 */ t90993 = a1594; /* x227112 stalin.sc:31969:1103773 */ t90994 = *((struct w49 *)(&t90993)); t90947 = f26227(t90994); /* x227111 stalin.sc:31968:1103742 */ /* x227109 stalin.sc:31968:1103752 */ /* x227110 stalin.sc:31968:1103761 */ t90991 = a1633; /* x227108 stalin.sc:31968:1103743 */ t90992 = (struct p11483 *)NATIVE_PROCEDURE_TYPE7314; t90946 = f1362(t90992, t90991); /* x227107 stalin.sc:31967:1103713 */ /* x227105 stalin.sc:31967:1103723 */ /* x227106 stalin.sc:31967:1103731 */ t90989 = a1633; /* x227104 stalin.sc:31967:1103714 */ t90990 = (struct p11483 *)NATIVE_PROCEDURE_TYPE7317; t90945 = f1362(t90990, t90989); /* x227103 stalin.sc:31966:1103684 */ /* x227101 stalin.sc:31966:1103694 */ /* x227102 stalin.sc:31966:1103702 */ t90987 = a1633; /* x227100 stalin.sc:31966:1103685 */ t90988 = (struct p11483 *)NATIVE_PROCEDURE_TYPE7320; t90944 = f1362(t90988, t90987); /* x227099 stalin.sc:31965:1103656 */ /* x227097 stalin.sc:31965:1103666 */ /* x227098 stalin.sc:31965:1103673 */ t90985 = a1633; /* x227096 stalin.sc:31965:1103657 */ t90986 = (struct p11483 *)NATIVE_PROCEDURE_TYPE7323; t90943 = f1362(t90986, t90985); /* x227095 stalin.sc:31964:1103580 */ /* x227093 stalin.sc:31964:1103590 */ /* x227094 stalin.sc:31964:1103645 */ t90983 = a1633; /* x227085 stalin.sc:31964:1103581 */ t90984 = (struct p11483 *)NATIVE_PROCEDURE_TYPE15751; t90942 = f1362(t90984, t90983); /* x227084 stalin.sc:31963:1103549 */ /* x227082 stalin.sc:31963:1103559 */ /* x227083 stalin.sc:31963:1103569 */ t90981 = a1633; /* x227081 stalin.sc:31963:1103550 */ t90982 = (struct p11483 *)NATIVE_PROCEDURE_TYPE7332; t90941 = f1362(t90982, t90981); /* x227080 stalin.sc:31962:1103518 */ /* x227078 stalin.sc:31962:1103528 */ /* x227079 stalin.sc:31962:1103538 */ t90979 = a1633; /* x227077 stalin.sc:31962:1103519 */ t90980 = (struct p11483 *)NATIVE_PROCEDURE_TYPE7331; t90940 = f1362(t90980, t90979); /* x227076 stalin.sc:31961:1103499 */ /* x227075 stalin.sc:31961:1103507 */ t90977 = a1633; /* x227074 stalin.sc:31961:1103500 */ t90978 = *((struct w49 *)(&t90977)); t90939 = f26227(t90978); /* x227073 stalin.sc:31960:1103479 */ t90938 = q794; /* x227072 stalin.sc:31959:1103469 */ t90976.tag = STRUCTURE_TYPE24753; t90976.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90976.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31959, 1103468); out_of_memory_error();} t90976.value.structure_type24753->s0.tag = FIXNUM_TYPE; t90976.value.structure_type24753->s0.value.fixnum_type = t90957; t90976.value.structure_type24753->s1.tag = NULL_TYPE; t90975.tag = STRUCTURE_TYPE24753; t90975.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90975.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31959, 1103468); out_of_memory_error();} t90975.value.structure_type24753->s0.tag = FIXNUM_TYPE; t90975.value.structure_type24753->s0.value.fixnum_type = t90956; t90975.value.structure_type24753->s1 = t90976; t90974.tag = STRUCTURE_TYPE24753; t90974.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90974.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31959, 1103468); out_of_memory_error();} t90974.value.structure_type24753->s0.tag = FIXNUM_TYPE; t90974.value.structure_type24753->s0.value.fixnum_type = t90955; t90974.value.structure_type24753->s1 = t90975; t90973.tag = STRUCTURE_TYPE24753; t90973.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90973.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31959, 1103468); out_of_memory_error();} t90973.value.structure_type24753->s0.tag = FIXNUM_TYPE; t90973.value.structure_type24753->s0.value.fixnum_type = t90954; t90973.value.structure_type24753->s1 = t90974; t90972.tag = STRUCTURE_TYPE24753; t90972.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90972.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31959, 1103468); out_of_memory_error();} t90972.value.structure_type24753->s0.tag = FLONUM_TYPE; t90972.value.structure_type24753->s0.value.flonum_type = t90953; t90972.value.structure_type24753->s1 = t90973; t90971.tag = STRUCTURE_TYPE24753; t90971.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90971.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31959, 1103468); out_of_memory_error();} t90971.value.structure_type24753->s0.tag = FIXNUM_TYPE; t90971.value.structure_type24753->s0.value.fixnum_type = t90952; t90971.value.structure_type24753->s1 = t90972; t90970.tag = STRUCTURE_TYPE24753; t90970.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90970.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31959, 1103468); out_of_memory_error();} t90970.value.structure_type24753->s0.tag = FIXNUM_TYPE; t90970.value.structure_type24753->s0.value.fixnum_type = t90951; t90970.value.structure_type24753->s1 = t90971; t90969.tag = STRUCTURE_TYPE24753; t90969.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90969.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31959, 1103468); out_of_memory_error();} t90969.value.structure_type24753->s0.tag = FIXNUM_TYPE; t90969.value.structure_type24753->s0.value.fixnum_type = t90950; t90969.value.structure_type24753->s1 = t90970; t90968.tag = STRUCTURE_TYPE24753; t90968.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90968.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31959, 1103468); out_of_memory_error();} t90968.value.structure_type24753->s0.tag = FIXNUM_TYPE; t90968.value.structure_type24753->s0.value.fixnum_type = t90949; t90968.value.structure_type24753->s1 = t90969; t90967.tag = STRUCTURE_TYPE24753; t90967.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90967.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31959, 1103468); out_of_memory_error();} t90967.value.structure_type24753->s0.tag = FIXNUM_TYPE; t90967.value.structure_type24753->s0.value.fixnum_type = t90948; t90967.value.structure_type24753->s1 = t90968; t90966.tag = STRUCTURE_TYPE24753; t90966.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90966.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31959, 1103468); out_of_memory_error();} t90966.value.structure_type24753->s0.tag = FIXNUM_TYPE; t90966.value.structure_type24753->s0.value.fixnum_type = t90947; t90966.value.structure_type24753->s1 = t90967; t90965.tag = STRUCTURE_TYPE24753; t90965.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90965.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31959, 1103468); out_of_memory_error();} t90965.value.structure_type24753->s0.tag = FIXNUM_TYPE; t90965.value.structure_type24753->s0.value.fixnum_type = t90946; t90965.value.structure_type24753->s1 = t90966; t90964.tag = STRUCTURE_TYPE24753; t90964.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90964.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31959, 1103468); out_of_memory_error();} t90964.value.structure_type24753->s0.tag = FIXNUM_TYPE; t90964.value.structure_type24753->s0.value.fixnum_type = t90945; t90964.value.structure_type24753->s1 = t90965; t90963.tag = STRUCTURE_TYPE24753; t90963.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90963.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31959, 1103468); out_of_memory_error();} t90963.value.structure_type24753->s0.tag = FIXNUM_TYPE; t90963.value.structure_type24753->s0.value.fixnum_type = t90944; t90963.value.structure_type24753->s1 = t90964; t90962.tag = STRUCTURE_TYPE24753; t90962.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90962.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31959, 1103468); out_of_memory_error();} t90962.value.structure_type24753->s0.tag = FIXNUM_TYPE; t90962.value.structure_type24753->s0.value.fixnum_type = t90943; t90962.value.structure_type24753->s1 = t90963; t90961.tag = STRUCTURE_TYPE24753; t90961.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90961.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31959, 1103468); out_of_memory_error();} t90961.value.structure_type24753->s0.tag = FIXNUM_TYPE; t90961.value.structure_type24753->s0.value.fixnum_type = t90942; t90961.value.structure_type24753->s1 = t90962; t90960.tag = STRUCTURE_TYPE24753; t90960.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90960.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31959, 1103468); out_of_memory_error();} t90960.value.structure_type24753->s0.tag = FIXNUM_TYPE; t90960.value.structure_type24753->s0.value.fixnum_type = t90941; t90960.value.structure_type24753->s1 = t90961; t90959.tag = STRUCTURE_TYPE24753; t90959.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90959.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31959, 1103468); out_of_memory_error();} t90959.value.structure_type24753->s0.tag = FIXNUM_TYPE; t90959.value.structure_type24753->s0.value.fixnum_type = t90940; t90959.value.structure_type24753->s1 = t90960; t90958.tag = STRUCTURE_TYPE24753; t90958.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t90958.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31959, 1103468); out_of_memory_error();} t90958.value.structure_type24753->s0.tag = FIXNUM_TYPE; t90958.value.structure_type24753->s0.value.fixnum_type = t90939; t90958.value.structure_type24753->s1 = t90959; a35210 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35210==NULL) {backtrace("stalin.sc", 31959, 1103468); out_of_memory_error();} a35210->s0.tag = EXTERNAL_SYMBOL_TYPE; a35210->s0.value.external_symbol_type = t90938; a35210->s1 = t90958; /* x272427 */ t90935 = a35210; /* x227071 stalin.sc:31958:1103459 */ t90934 = "~s"; /* x227070 stalin.sc:31957:1103448 */ t90936.tag = STRING_TYPE; t90936.value.string_type = t90934; t90937 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t90937==NULL) {backtrace("stalin.sc", 31957, 1103447); out_of_memory_error();} t90937->s0.tag = STRUCTURE_TYPE24753; t90937->s0.value.structure_type24753 = t90935; t90937->s1.tag = NULL_TYPE; f5365(t90936, t90937); /* x227067 */ /* x227066 stalin.sc:31995:1104692 */ /* x227065 stalin.sc:31995:1104727 */ a2039 = FALSE_TYPE; goto l17370; l17369: /* x227237 stalin.sc:31955:1103363 */ /* x227236 stalin.sc:31955:1103363 */ l17370: /* x227241 stalin.sc:31996:1104734 */ /* x227240 stalin.sc:31996:1104758 */ /* x227239 stalin.sc:31996:1104735 */ a23650 = TRUE_TYPE; f11028(); /* x227244 stalin.sc:31997:1104764 */ /* x227243 stalin.sc:31997:1104786 */ /* x227242 stalin.sc:31997:1104765 */ f11083(); /* x227260 stalin.sc:31998:1104792 */ /* x227245 stalin.sc:31998:1104798 */ if (a702==FALSE_TYPE) goto l17372; /* x227257 */ /* x227256 */ /* x227255 */ /* x227250 stalin.sc:31999:1104807 */ /* x227249 stalin.sc:31999:1104808 */ f13265(); /* x227252 stalin.sc:32000:1104825 */ /* x227251 stalin.sc:32000:1104826 */ f13373(); /* x227254 stalin.sc:32001:1104881 */ /* x227253 stalin.sc:32001:1104882 */ f13379(); /* x227248 */ /* x227247 stalin.sc:32002:1104930 */ /* x227246 stalin.sc:32002:1104931 */ f13380(); goto l17373; l17372: /* x227259 stalin.sc:31998:1104792 */ /* x227258 stalin.sc:31998:1104792 */ l17373: /* x227264 stalin.sc:32003:1104960 */ /* x227262 stalin.sc:32003:1104968 */ t91031 = a702; /* x227263 stalin.sc:32003:1104974 */ t91032 = "Determining environment distances from root"; /* x227261 stalin.sc:32003:1104961 */ f19217(t91031, t91032); /* x227266 stalin.sc:32004:1105023 */ /* x227265 stalin.sc:32004:1105024 */ /* x113184 stalin.sc:12429:434001 */ /* x113183 stalin.sc:12429:434013 */ /* x113181 stalin.sc:12429:434022 */ /* x113182 stalin.sc:12429:434055 */ t91054 = a1594; /* x113175 stalin.sc:12429:434014 */ t91055.tag = NATIVE_PROCEDURE_TYPE15624; t91056 = *((struct w49 *)(&t91054)); t91033 = f1314(t91055, t91056); /* x113174 */ a24698 = t91033; /* x113173 */ /* x113172 stalin.sc:12431:434088 */ /* x113170 stalin.sc:12431:434103 */ /* x113169 stalin.sc:12431:434109 */ t91053 = a24698; /* x113168 stalin.sc:12431:434104 */ a35212 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35212==NULL) {backtrace("stalin.sc", 12431, 434103); out_of_memory_error();} a35212->s0 = t91053; a35212->s1.tag = NULL_TYPE; /* x272431 */ t91039 = a35212; /* x113171 stalin.sc:12431:434119 */ t91040 = 0; /* x113167 */ /* x113166 */ /* x113165 */ /* x113164 */ /* x113163 */ /* x113162 */ /* x113161 */ /* x113115 */ /* x113114 stalin.sc:12431:434093 */ a24703.tag = STRUCTURE_TYPE24753; a24703.value.structure_type24753 = t91039; a24704 = t91040; h12647: /* x113160 stalin.sc:12433:434147 */ /* x113118 stalin.sc:12433:434155 */ /* x113117 stalin.sc:12433:434162 */ t91041 = a24703; /* x269388 stalin.sc:12433:434156 */ if (!((t91041.tag)==NULL_TYPE)) goto l17378; /* x113120 */ /* x113119 */ goto l17379; l17378: /* x113159 */ /* x113158 */ /* x113157 */ /* x113156 stalin.sc:12434:434170 */ /* x113155 stalin.sc:12434:434235 */ t91049 = *((struct w21691 *)(&a24703)); /* x113154 stalin.sc:12434:434180 */ /* x113149 stalin.sc:12434:434171 */ t91050.tag = NATIVE_PROCEDURE_TYPE15631; t91051 = *((struct w49 *)(&t91049)); t91052 = (struct structure_type24753 *)NULL_TYPE; f27755(t91050, t91051, t91052); /* x113148 */ /* x113147 stalin.sc:12435:434243 */ /* x113142 stalin.sc:12435:434249 */ /* x113140 stalin.sc:12436:434268 */ /* x113141 stalin.sc:12439:434388 */ t91044 = a1594; /* x113122 stalin.sc:12435:434250 */ t91045.tag = NATIVE_PROCEDURE_TYPE15634; t91046 = *((struct w49 *)(&t91044)); t91042 = f1226(t91045, t91046); /* x113146 stalin.sc:12440:434397 */ /* x113144 stalin.sc:12440:434400 */ t91047 = a24704; /* x113145 stalin.sc:12440:434402 */ t91048 = 1; /* x269385 stalin.sc:12440:434398 */ t91043 = t91047+t91048; /* x113121 stalin.sc:12435:434244 */ a24703 = t91042; a24704 = t91043; goto h12647; l17379: /* x113113 */ /* x113112 stalin.sc:12441:434410 */ /* x113105 stalin.sc:12441:434418 */ /* x113104 stalin.sc:12441:434471 */ t91034 = a1594; /* x113103 stalin.sc:12441:434425 */ /* x113097 stalin.sc:12441:434419 */ t91035.tag = NATIVE_PROCEDURE_TYPE15637; t91036 = *((struct w49 *)(&t91034)); t91037 = (struct structure_type24753 *)NULL_TYPE; if (f1061(t91035, t91036, t91037)==FALSE_TYPE) goto l17375; /* x113107 */ /* x113106 */ goto l17376; l17375: /* x113111 */ /* x113110 */ /* x113109 stalin.sc:12442:434480 */ /* x113108 stalin.sc:12442:434481 */ /* x297385 QobiScheme.sc:166:5314 */ /* x297384 QobiScheme.sc:166:5321 */ t91038 = "This shouldn\'t happen"; /* x297383 QobiScheme.sc:166:5315 */ stalin_panic(t91038); l17376: /* x227270 stalin.sc:32005:1105070 */ /* x227268 stalin.sc:32005:1105078 */ t91057 = a702; /* x227269 stalin.sc:32005:1105084 */ t91058 = "Determining which environments have external self tail calls"; /* x227267 stalin.sc:32005:1105071 */ f19217(t91057, t91058); /* x227272 stalin.sc:32006:1105150 */ /* x227271 stalin.sc:32006:1105151 */ /* x113290 */ /* x113289 stalin.sc:12457:435301 */ /* x113288 stalin.sc:12464:435494 */ t91063 = a1594; /* x113287 stalin.sc:12457:435311 */ /* x113266 stalin.sc:12457:435302 */ t91064.tag = NATIVE_PROCEDURE_TYPE15620; t91065 = *((struct w49 *)(&t91063)); t91066 = (struct structure_type24753 *)NULL_TYPE; f27755(t91064, t91065, t91066); /* x113265 */ /* x113264 stalin.sc:12465:435501 */ /* x113263 stalin.sc:12481:436059 */ t91059 = a1594; /* x113262 stalin.sc:12466:435513 */ /* x113187 stalin.sc:12465:435502 */ t91060.tag = NATIVE_PROCEDURE_TYPE15623; t91061 = *((struct w49 *)(&t91059)); t91062 = (struct structure_type24753 *)NULL_TYPE; f27755(t91060, t91061, t91062); /* x227276 stalin.sc:32007:1105214 */ /* x227274 stalin.sc:32008:1105225 */ t91067 = a702; /* x227275 stalin.sc:32008:1105231 */ t91068 = "Determining which environments have external continuation calls"; /* x227273 stalin.sc:32007:1105215 */ f19217(t91067, t91068); /* x227278 stalin.sc:32009:1105300 */ /* x227277 stalin.sc:32009:1105301 */ /* x113394 stalin.sc:12493:436702 */ /* x113393 stalin.sc:12530:437811 */ t91069 = a1594; /* x113392 */ /* x113293 stalin.sc:12493:436703 */ t91070.tag = NATIVE_PROCEDURE_TYPE15608; t91071 = *((struct w49 *)(&t91069)); t91072 = (struct structure_type24753 *)NULL_TYPE; f27755(t91070, t91071, t91072); /* x227282 stalin.sc:32010:1105367 */ /* x227280 stalin.sc:32010:1105375 */ t91073 = a702; /* x227281 stalin.sc:32010:1105381 */ t91074 = "Determining blocked environments"; /* x227279 stalin.sc:32010:1105368 */ f19217(t91073, t91074); /* x227284 stalin.sc:32011:1105419 */ /* x227283 stalin.sc:32011:1105420 */ /* x113500 stalin.sc:12535:437898 */ /* x113499 stalin.sc:12550:438594 */ t91075 = a1594; /* x113498 */ /* x113397 stalin.sc:12535:437899 */ t91076.tag = NATIVE_PROCEDURE_TYPE15606; t91077 = *((struct w49 *)(&t91075)); t91078 = (struct structure_type24753 *)NULL_TYPE; f27755(t91076, t91077, t91078); /* x227288 stalin.sc:32012:1105455 */ /* x227286 stalin.sc:32012:1105463 */ t91079 = a702; /* x227287 stalin.sc:32013:1105472 */ t91080 = "Determining which environments need to pass parameters globally"; /* x227285 stalin.sc:32012:1105456 */ f19217(t91079, t91080); /* x227290 stalin.sc:32014:1105541 */ /* x227289 stalin.sc:32014:1105542 */ /* x113535 */ /* x113534 stalin.sc:12555:438743 */ /* x113533 stalin.sc:12556:438822 */ t91088 = a1594; /* x113532 stalin.sc:12555:438753 */ /* x113527 stalin.sc:12555:438744 */ t91089.tag = NATIVE_PROCEDURE_TYPE15598; t91090 = *((struct w49 *)(&t91088)); t91091 = (struct structure_type24753 *)NULL_TYPE; f27755(t91089, t91090, t91091); /* x113526 */ /* x113525 stalin.sc:12557:438829 */ /* x113503 stalin.sc:12557:438835 */ if (a674==FALSE_TYPE) goto l17381; /* x113522 */ /* x113521 */ /* x113520 stalin.sc:12558:438863 */ /* x113519 stalin.sc:12562:439038 */ /* x113517 stalin.sc:12562:439053 */ /* x113518 stalin.sc:12562:439101 */ t91085 = a1524; /* x113516 stalin.sc:12562:439039 */ t91086.tag = NATIVE_PROCEDURE_TYPE7238; /* MOVE: branching squeezed to general */ if (t91085>=((struct structure_type24753 *)VALUE_OFFSET)) {t91087.tag = STRUCTURE_TYPE24753; t91087.value.structure_type24753 = t91085;} else t91087.tag = (unsigned)t91085; t91081 = f1226(t91086, t91087); /* x113515 stalin.sc:12559:438876 */ /* x113504 stalin.sc:12558:438864 */ t91082.tag = NATIVE_PROCEDURE_TYPE15604; t91083 = *((struct w49 *)(&t91081)); t91084 = (struct structure_type24753 *)NULL_TYPE; f27755(t91082, t91083, t91084); goto l17382; l17381: /* x113524 stalin.sc:12557:438829 */ /* x113523 stalin.sc:12557:438829 */ l17382: /* x227294 stalin.sc:32015:1105608 */ /* x227292 stalin.sc:32015:1105616 */ t91092 = a702; /* x227293 stalin.sc:32015:1105622 */ t91093 = "Determining allocations"; /* x227291 stalin.sc:32015:1105609 */ f19217(t91092, t91093); /* x227296 stalin.sc:32016:1105651 */ /* x227295 stalin.sc:32016:1105652 */ /* x114237 stalin.sc:12653:442900 */ /* x114236 stalin.sc:12654:442947 */ /* x114234 stalin.sc:12654:442960 */ /* x114232 stalin.sc:12654:442963 */ /* x114226 stalin.sc:12654:442971 */ /* x114230 stalin.sc:12654:442975 */ /* x114229 stalin.sc:12654:442999 */ t91128 = a1594; /* x114228 stalin.sc:12654:442980 */ /* x114227 stalin.sc:12654:442976 */ t91129.tag = NATIVE_PROCEDURE_TYPE7265; t91130 = *((struct w49 *)(&t91128)); t91131 = (struct structure_type24753 *)NULL_TYPE; t91123 = f27731(t91129, t91130, t91131); /* x114231 stalin.sc:12654:443005 */ t91124 = 0; /* x114225 stalin.sc:12654:442964 */ t91125 = NATIVE_PROCEDURE_TYPE416; /* MOVE: branching squeezed to general */ if (t91123>=((struct structure_type24753 *)VALUE_OFFSET)) {t91126.tag = STRUCTURE_TYPE24753; t91126.value.structure_type24753 = t91123;} else t91126.tag = (unsigned)t91123; t91127.tag = FIXNUM_TYPE; t91127.value.fixnum_type = t91124; t91121 = f1006(t91125, t91126, t91127); /* x114233 stalin.sc:12654:443008 */ t91122 = 1; /* x269340 stalin.sc:12654:442961 */ switch (t91121.tag) {case FIXNUM_TYPE: t91119.tag = FIXNUM_TYPE; t91119.value.fixnum_type = (t91121.value.fixnum_type)+t91122; break; case FLONUM_TYPE: t91119.tag = FLONUM_TYPE; t91119.value.flonum_type = (t91121.value.flonum_type)+t91122; break; default: backtrace("stalin.sc", 12654, 442960); plus_error();} /* x114235 stalin.sc:12654:443011 */ /* x269341 stalin.sc:12654:442948 */ if (!((t91119.tag)==FIXNUM_TYPE)) {backtrace("stalin.sc", 12654, 442947); make_vector_error();} t91094 = (struct headed_vector_type27624 *)GC_malloc(sizeof(struct headed_vector_type27624)+(((t91119.value.fixnum_type)-1)*sizeof(struct structure_type24753 *))); if (t91094==NULL) {backtrace("stalin.sc", 12654, 442947); out_of_memory_error();} t91094->length = t91119.value.fixnum_type; for (t91120 = &((t91094->element)[0]); t91120<(&((t91094->element)[t91119.value.fixnum_type])); t91120++) *t91120 = (struct structure_type24753 *)NULL_TYPE; /* x114222 */ a24768 = t91094; /* x114221 */ /* x113923 stalin.sc:12655:443020 */ /* x113922 stalin.sc:12661:443228 */ t91099 = a1594; /* x113921 stalin.sc:12656:443033 */ /* x113905 stalin.sc:12655:443021 */ t91100.tag = NATIVE_PROCEDURE_TYPE15594; t91101 = *((struct w49 *)(&t91099)); t91102 = (struct structure_type24753 *)NULL_TYPE; f27755(t91100, t91101, t91102); /* x113998 stalin.sc:12662:443236 */ /* x113997 stalin.sc:12683:443957 */ t91103 = a1942; /* x113996 */ /* x113924 stalin.sc:12662:443237 */ t91104.tag = NATIVE_PROCEDURE_TYPE15591; t91105 = *((struct w49 *)(&t91103)); t91106 = (struct structure_type24753 *)NULL_TYPE; f27755(t91104, t91105, t91106); /* x114073 stalin.sc:12684:443975 */ /* x114072 stalin.sc:12707:444823 */ t91107 = a1940; /* x114071 stalin.sc:12685:443988 */ /* x113999 stalin.sc:12684:443976 */ t91108.tag = NATIVE_PROCEDURE_TYPE15585; t91109 = *((struct w49 *)(&t91107)); t91110 = (struct structure_type24753 *)NULL_TYPE; f27755(t91108, t91109, t91110); /* x114148 stalin.sc:12708:444844 */ /* x114147 stalin.sc:12729:445588 */ t91111 = a1939; /* x114146 stalin.sc:12709:444857 */ /* x114074 stalin.sc:12708:444845 */ t91112.tag = NATIVE_PROCEDURE_TYPE15580; t91113 = *((struct w49 *)(&t91111)); t91114 = (struct structure_type24753 *)NULL_TYPE; f27755(t91112, t91113, t91114); /* x114220 stalin.sc:12730:445613 */ /* x114219 stalin.sc:12751:446331 */ t91115 = a1938; /* x114218 stalin.sc:12731:445626 */ /* x114149 stalin.sc:12730:445614 */ t91116.tag = NATIVE_PROCEDURE_TYPE15575; t91117 = *((struct w49 *)(&t91115)); t91118 = (struct structure_type24753 *)NULL_TYPE; f27755(t91116, t91117, t91118); /* x113904 */ /* x113903 stalin.sc:12752:446359 */ /* x113902 stalin.sc:12763:446846 */ t91095 = a1594; /* x113901 stalin.sc:12753:446372 */ /* x113854 stalin.sc:12752:446360 */ t91096.tag = NATIVE_PROCEDURE_TYPE15596; t91097 = *((struct w49 *)(&t91095)); t91098 = (struct structure_type24753 *)NULL_TYPE; f27755(t91096, t91097, t91098); /* x227325 stalin.sc:32019:1105782 */ /* x227297 stalin.sc:32019:1105788 */ if (a701==FALSE_TYPE) goto l17384; /* x227322 */ /* x227321 */ /* x227320 */ /* x227319 stalin.sc:32020:1105797 */ /* x227318 stalin.sc:32020:1105813 */ /* x227317 stalin.sc:32020:1105837 */ t91140 = a2026; /* x227316 stalin.sc:32020:1105814 */ t91137 = f13116(t91140); /* x227315 stalin.sc:32020:1105808 */ t91136 = "~s"; /* x227314 stalin.sc:32020:1105798 */ t91138 = t91136; t91139 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t91139==NULL) {backtrace("stalin.sc", 32020, 1105797); out_of_memory_error();} t91139->s0.tag = STRUCTURE_TYPE24753; t91139->s0.value.structure_type24753 = t91137; t91139->s1.tag = NULL_TYPE; f5376(t91138, t91139); /* x227313 */ /* x227312 stalin.sc:32021:1105846 */ /* x227311 stalin.sc:32024:1105950 */ t91132 = a1679; /* x227310 stalin.sc:32022:1105860 */ /* x227298 stalin.sc:32021:1105847 */ t91133.tag = NATIVE_PROCEDURE_TYPE16836; t91134 = *((struct w49 *)(&t91132)); t91135 = (struct structure_type24753 *)NULL_TYPE; f27755(t91133, t91134, t91135); goto l17385; l17384: /* x227324 stalin.sc:32019:1105782 */ /* x227323 stalin.sc:32019:1105782 */ l17385: /* x227329 stalin.sc:32025:1105959 */ /* x227327 stalin.sc:32025:1105967 */ t91141 = a702; /* x227328 stalin.sc:32025:1105973 */ t91142 = "Applying closed-world assumption"; /* x227326 stalin.sc:32025:1105960 */ f19217(t91141, t91142); /* x227331 stalin.sc:32026:1106011 */ /* x227330 stalin.sc:32026:1106012 */ /* x116020 */ /* x116013 */ /* x116012 */ /* x116015 */ /* x116014 */ /* x116017 */ /* x116016 */ /* x116019 */ /* x116018 */ /* x116011 */ /* x116010 */ /* x114609 */ /* x114608 */ /* x114633 */ /* x114632 */ /* x114686 */ /* x114685 */ /* x114759 */ /* x114758 */ /* x115748 stalin.sc:12876:450767 */ /* x115747 */ /* x115746 */ /* x115745 */ /* x115744 */ /* x115743 */ /* x115742 */ /* x115741 */ /* x114761 */ /* x114760 stalin.sc:12876:450772 */ h12851: /* x115740 stalin.sc:12877:450782 */ /* x115739 stalin.sc:12877:450796 */ /* x115738 */ a24878 = FALSE_TYPE; /* x115737 */ /* x114871 stalin.sc:12879:450829 */ /* x114870 */ /* x114869 */ /* x114868 */ /* x114867 */ /* x114866 */ /* x114865 */ /* x114774 */ /* x114773 */ /* x114772 stalin.sc:12879:450838 */ t91147 = a1947; /* x114771 */ a24888 = *((struct w49 *)(&t91147)); h12858: /* x114864 */ /* x114777 stalin.sc:12879:450875 */ /* x114776 stalin.sc:12879:450882 */ t91148 = a24888; /* x269320 stalin.sc:12879:450876 */ if (!((t91148.tag)==NULL_TYPE)) goto l17390; /* x114779 */ /* x114778 */ goto l17391; l17390: /* x114863 */ /* x114862 */ /* x114861 */ /* x114860 stalin.sc:12880:450891 */ /* x114859 stalin.sc:12880:450901 */ /* x114858 stalin.sc:12880:450908 */ t91164 = *((struct w16638 *)(&a24888)); /* x114857 stalin.sc:12880:450902 */ a36143 = t91164; /* x275929 */ /* x275928 */ t91165 = a36143; /* x275927 */ if (!((t91165.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30292]"); structure_ref_error();} t91152 = t91165.value.structure_type24753->s0; /* x114856 */ a24890 = t91152; /* x114855 stalin.sc:12881:450919 */ /* x114791 stalin.sc:12881:450925 */ /* x114789 stalin.sc:12881:450930 */ /* x114788 stalin.sc:12881:450957 */ t91155 = a24890; /* x114787 stalin.sc:12881:450931 */ a38248 = t91155; /* x285661 */ /* x285660 */ t91156 = a38248; /* x285659 */ if (!((t91156.tag)==STRUCTURE_TYPE27779)) {backtrace_internal("[clone EXTERNAL-SYMBOL-TYPE-LINK[5853] 33165]"); structure_ref_error();} t91153 = t91156.value.structure_type27779->s1; /* x114790 stalin.sc:12881:450961 */ t91154 = a24890; /* x269319 stalin.sc:12881:450926 */ /* EQ: dispatching general to general */ if (!((t91153.tag)==(t91154.tag))) goto l17393; switch (t91153.tag) {case FIXNUM_TYPE: if (!((t91153.value.fixnum_type)==(t91154.value.fixnum_type))) goto l17393; break; case FLONUM_TYPE: if (!((t91153.value.flonum_type)==(t91154.value.flonum_type))) goto l17393; break; case INPUT_PORT_TYPE: if (!((t91153.value.input_port_type)==(t91154.value.input_port_type))) goto l17393; break; case OUTPUT_PORT_TYPE: if (!((t91153.value.output_port_type)==(t91154.value.output_port_type))) goto l17393; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t91153.value.native_procedure_type15963)==(t91154.value.native_procedure_type15963))) goto l17393; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t91153.value.native_procedure_type19067)==(t91154.value.native_procedure_type19067))) goto l17393; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t91153.value.native_procedure_type19068)==(t91154.value.native_procedure_type19068))) goto l17393; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t91153.value.native_procedure_type22459)==(t91154.value.native_procedure_type22459))) goto l17393; break; case STRUCTURE_TYPE24753: if (!((t91153.value.structure_type24753)==(t91154.value.structure_type24753))) goto l17393; break; case STRUCTURE_TYPE24757: if (!((t91153.value.structure_type24757)==(t91154.value.structure_type24757))) goto l17393; break; case STRUCTURE_TYPE27501: if (!((t91153.value.structure_type27501)==(t91154.value.structure_type27501))) goto l17393; break; case STRUCTURE_TYPE27510: if (!((t91153.value.structure_type27510)==(t91154.value.structure_type27510))) goto l17393; break; case STRUCTURE_TYPE27621: if (!((t91153.value.structure_type27621)==(t91154.value.structure_type27621))) goto l17393; break; case STRUCTURE_TYPE27650: if (!((t91153.value.structure_type27650)==(t91154.value.structure_type27650))) goto l17393; break; case STRUCTURE_TYPE27669: if (!((t91153.value.structure_type27669)==(t91154.value.structure_type27669))) goto l17393; break; case STRUCTURE_TYPE27673: if (!((t91153.value.structure_type27673)==(t91154.value.structure_type27673))) goto l17393; break; case STRUCTURE_TYPE27692: if (!((t91153.value.structure_type27692)==(t91154.value.structure_type27692))) goto l17393; break; case STRUCTURE_TYPE27694: if (!((t91153.value.structure_type27694)==(t91154.value.structure_type27694))) goto l17393; break; case STRUCTURE_TYPE27698: if (!((t91153.value.structure_type27698)==(t91154.value.structure_type27698))) goto l17393; break; case STRUCTURE_TYPE27745: if (!((t91153.value.structure_type27745)==(t91154.value.structure_type27745))) goto l17393; break; case STRUCTURE_TYPE27747: if (!((t91153.value.structure_type27747)==(t91154.value.structure_type27747))) goto l17393; break; case STRUCTURE_TYPE27750: if (!((t91153.value.structure_type27750)==(t91154.value.structure_type27750))) goto l17393; break; case STRUCTURE_TYPE27753: if (!((t91153.value.structure_type27753)==(t91154.value.structure_type27753))) goto l17393; break; case STRUCTURE_TYPE27756: if (!((t91153.value.structure_type27756)==(t91154.value.structure_type27756))) goto l17393; break; case STRUCTURE_TYPE27761: if (!((t91153.value.structure_type27761)==(t91154.value.structure_type27761))) goto l17393; break; case STRUCTURE_TYPE27769: if (!((t91153.value.structure_type27769)==(t91154.value.structure_type27769))) goto l17393; break; case STRUCTURE_TYPE27776: if (!((t91153.value.structure_type27776)==(t91154.value.structure_type27776))) goto l17393; break; case STRUCTURE_TYPE27779: if (!((t91153.value.structure_type27779)==(t91154.value.structure_type27779))) goto l17393; break; case STRUCTURE_TYPE27858: if (!((t91153.value.structure_type27858)==(t91154.value.structure_type27858))) goto l17393; break; case STRING_TYPE: if (!((t91153.value.string_type)==(t91154.value.string_type))) goto l17393; break; case HEADED_VECTOR_TYPE27896: if (!((t91153.value.headed_vector_type27896)==(t91154.value.headed_vector_type27896))) goto l17393; break; case EXTERNAL_SYMBOL_TYPE: if (!((t91153.value.external_symbol_type)==(t91154.value.external_symbol_type))) goto l17393; break; case STRUCTURE_TYPE27908: if (!((t91153.value.structure_type27908)==(t91154.value.structure_type27908))) goto l17393; break; default:;} /* x114852 */ /* x114851 */ /* x114850 */ /* x114849 stalin.sc:12882:450971 */ /* x114848 stalin.sc:12882:450972 */ f4651(); /* x114847 */ /* x114846 stalin.sc:12883:451016 */ /* x114845 stalin.sc:12894:451392 */ /* x114844 stalin.sc:12894:451398 */ t91162 = *((struct w16638 *)(&a24888)); /* x114843 stalin.sc:12894:451393 */ a35329 = t91162; /* x272673 */ /* x272672 */ t91163 = a35329; /* x272671 */ if (!((t91163.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29478]"); structure_ref_error();} t91158 = t91163.value.structure_type24753->s1; /* x114842 stalin.sc:12884:451033 */ /* x114792 stalin.sc:12883:451017 */ t91159.tag = NATIVE_PROCEDURE_TYPE24436; t91160 = t91158; t91161 = (struct structure_type24753 *)NULL_TYPE; f27755(t91159, t91160, t91161); goto l17394; l17393: /* x114854 stalin.sc:12881:450919 */ /* x114853 stalin.sc:12881:450919 */ l17394: /* x114785 */ /* x114784 */ /* x114783 stalin.sc:12879:450862 */ /* x114782 stalin.sc:12879:450868 */ t91150 = *((struct w16638 *)(&a24888)); /* x114781 stalin.sc:12879:450863 */ a35330 = t91150; /* x272677 */ /* x272676 */ t91151 = a35330; /* x272675 */ if (!((t91151.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29479]"); structure_ref_error();} t91149 = t91151.value.structure_type24753->s1; /* x114780 */ a24888 = t91149; goto h12858; l17391: /* x114969 stalin.sc:12895:451409 */ /* x114968 */ /* x114967 */ /* x114966 */ /* x114965 */ /* x114964 */ /* x114963 */ /* x114875 */ /* x114874 */ /* x114873 stalin.sc:12895:451418 */ t91166 = a1942; /* x114872 */ a24896 = *((struct w49 *)(&t91166)); h12873: /* x114962 */ /* x114878 stalin.sc:12895:451446 */ /* x114877 stalin.sc:12895:451453 */ t91167 = a24896; /* x269313 stalin.sc:12895:451447 */ if (!((t91167.tag)==NULL_TYPE)) goto l17396; /* x114880 */ /* x114879 */ goto l17397; l17396: /* x114961 */ /* x114960 */ /* x114959 */ /* x114958 stalin.sc:12896:451462 */ /* x114957 stalin.sc:12896:451472 */ /* x114956 stalin.sc:12896:451479 */ t91183 = *((struct w16638 *)(&a24896)); /* x114955 stalin.sc:12896:451473 */ a36144 = t91183; /* x275933 */ /* x275932 */ t91184 = a36144; /* x275931 */ if (!((t91184.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30293]"); structure_ref_error();} t91171 = t91184.value.structure_type24753->s0; /* x114954 */ a24898 = t91171; /* x114953 stalin.sc:12897:451490 */ /* x114892 stalin.sc:12897:451496 */ /* x114890 stalin.sc:12897:451501 */ /* x114889 stalin.sc:12897:451519 */ t91174 = a24898; /* x114888 stalin.sc:12897:451502 */ a37731 = t91174; /* x283593 */ /* x283592 */ t91175 = a37731; /* x283591 */ if (!((t91175.tag)==STRUCTURE_TYPE27673)) {backtrace_internal("[clone STRING-TYPE-LINK[6119] 32648]"); structure_ref_error();} t91172 = t91175.value.structure_type27673->s1; /* x114891 stalin.sc:12897:451523 */ t91173 = a24898; /* x269312 stalin.sc:12897:451497 */ /* EQ: dispatching general to general */ if (!((t91172.tag)==(t91173.tag))) goto l17399; switch (t91172.tag) {case FIXNUM_TYPE: if (!((t91172.value.fixnum_type)==(t91173.value.fixnum_type))) goto l17399; break; case FLONUM_TYPE: if (!((t91172.value.flonum_type)==(t91173.value.flonum_type))) goto l17399; break; case INPUT_PORT_TYPE: if (!((t91172.value.input_port_type)==(t91173.value.input_port_type))) goto l17399; break; case OUTPUT_PORT_TYPE: if (!((t91172.value.output_port_type)==(t91173.value.output_port_type))) goto l17399; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t91172.value.native_procedure_type15963)==(t91173.value.native_procedure_type15963))) goto l17399; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t91172.value.native_procedure_type19067)==(t91173.value.native_procedure_type19067))) goto l17399; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t91172.value.native_procedure_type19068)==(t91173.value.native_procedure_type19068))) goto l17399; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t91172.value.native_procedure_type22459)==(t91173.value.native_procedure_type22459))) goto l17399; break; case STRUCTURE_TYPE24753: if (!((t91172.value.structure_type24753)==(t91173.value.structure_type24753))) goto l17399; break; case STRUCTURE_TYPE24757: if (!((t91172.value.structure_type24757)==(t91173.value.structure_type24757))) goto l17399; break; case STRUCTURE_TYPE27501: if (!((t91172.value.structure_type27501)==(t91173.value.structure_type27501))) goto l17399; break; case STRUCTURE_TYPE27510: if (!((t91172.value.structure_type27510)==(t91173.value.structure_type27510))) goto l17399; break; case STRUCTURE_TYPE27621: if (!((t91172.value.structure_type27621)==(t91173.value.structure_type27621))) goto l17399; break; case STRUCTURE_TYPE27650: if (!((t91172.value.structure_type27650)==(t91173.value.structure_type27650))) goto l17399; break; case STRUCTURE_TYPE27669: if (!((t91172.value.structure_type27669)==(t91173.value.structure_type27669))) goto l17399; break; case STRUCTURE_TYPE27673: if (!((t91172.value.structure_type27673)==(t91173.value.structure_type27673))) goto l17399; break; case STRUCTURE_TYPE27692: if (!((t91172.value.structure_type27692)==(t91173.value.structure_type27692))) goto l17399; break; case STRUCTURE_TYPE27694: if (!((t91172.value.structure_type27694)==(t91173.value.structure_type27694))) goto l17399; break; case STRUCTURE_TYPE27698: if (!((t91172.value.structure_type27698)==(t91173.value.structure_type27698))) goto l17399; break; case STRUCTURE_TYPE27745: if (!((t91172.value.structure_type27745)==(t91173.value.structure_type27745))) goto l17399; break; case STRUCTURE_TYPE27747: if (!((t91172.value.structure_type27747)==(t91173.value.structure_type27747))) goto l17399; break; case STRUCTURE_TYPE27750: if (!((t91172.value.structure_type27750)==(t91173.value.structure_type27750))) goto l17399; break; case STRUCTURE_TYPE27753: if (!((t91172.value.structure_type27753)==(t91173.value.structure_type27753))) goto l17399; break; case STRUCTURE_TYPE27756: if (!((t91172.value.structure_type27756)==(t91173.value.structure_type27756))) goto l17399; break; case STRUCTURE_TYPE27761: if (!((t91172.value.structure_type27761)==(t91173.value.structure_type27761))) goto l17399; break; case STRUCTURE_TYPE27769: if (!((t91172.value.structure_type27769)==(t91173.value.structure_type27769))) goto l17399; break; case STRUCTURE_TYPE27776: if (!((t91172.value.structure_type27776)==(t91173.value.structure_type27776))) goto l17399; break; case STRUCTURE_TYPE27779: if (!((t91172.value.structure_type27779)==(t91173.value.structure_type27779))) goto l17399; break; case STRUCTURE_TYPE27858: if (!((t91172.value.structure_type27858)==(t91173.value.structure_type27858))) goto l17399; break; case STRING_TYPE: if (!((t91172.value.string_type)==(t91173.value.string_type))) goto l17399; break; case HEADED_VECTOR_TYPE27896: if (!((t91172.value.headed_vector_type27896)==(t91173.value.headed_vector_type27896))) goto l17399; break; case EXTERNAL_SYMBOL_TYPE: if (!((t91172.value.external_symbol_type)==(t91173.value.external_symbol_type))) goto l17399; break; case STRUCTURE_TYPE27908: if (!((t91172.value.structure_type27908)==(t91173.value.structure_type27908))) goto l17399; break; default:;} /* x114950 */ /* x114949 */ /* x114948 */ /* x114947 stalin.sc:12898:451533 */ /* x114946 stalin.sc:12898:451534 */ f4651(); /* x114945 */ /* x114944 stalin.sc:12899:451578 */ /* x114943 stalin.sc:12910:451917 */ /* x114942 stalin.sc:12910:451923 */ t91181 = *((struct w16638 *)(&a24896)); /* x114941 stalin.sc:12910:451918 */ a35552 = t91181; /* x273565 */ /* x273564 */ t91182 = a35552; /* x273563 */ if (!((t91182.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29701]"); structure_ref_error();} t91177 = t91182.value.structure_type24753->s1; /* x114940 stalin.sc:12900:451595 */ /* x114893 stalin.sc:12899:451579 */ t91178.tag = NATIVE_PROCEDURE_TYPE16417; t91179 = t91177; t91180 = (struct structure_type24753 *)NULL_TYPE; f27755(t91178, t91179, t91180); goto l17400; l17399: /* x114952 stalin.sc:12897:451490 */ /* x114951 stalin.sc:12897:451490 */ l17400: /* x114886 */ /* x114885 */ /* x114884 stalin.sc:12895:451433 */ /* x114883 stalin.sc:12895:451439 */ t91169 = *((struct w16638 *)(&a24896)); /* x114882 stalin.sc:12895:451434 */ a35553 = t91169; /* x273569 */ /* x273568 */ t91170 = a35553; /* x273567 */ if (!((t91170.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29702]"); structure_ref_error();} t91168 = t91170.value.structure_type24753->s1; /* x114881 */ a24896 = t91168; goto h12873; l17397: /* x115158 stalin.sc:12911:451934 */ /* x115157 */ /* x115156 */ /* x115155 */ /* x115154 */ /* x115153 */ /* x115152 */ /* x114973 */ /* x114972 */ /* x114971 stalin.sc:12911:451943 */ t91185 = a1940; /* x114970 */ a24905 = *((struct w49 *)(&t91185)); h12888: /* x115151 */ /* x114976 stalin.sc:12911:451974 */ /* x114975 stalin.sc:12911:451981 */ t91186 = a24905; /* x269307 stalin.sc:12911:451975 */ if (!((t91186.tag)==NULL_TYPE)) goto l17402; /* x114978 */ /* x114977 */ goto l17403; l17402: /* x115150 */ /* x115149 */ /* x115148 */ /* x115147 stalin.sc:12912:451990 */ /* x115146 stalin.sc:12912:452000 */ /* x115145 stalin.sc:12912:452007 */ t91202 = *((struct w16638 *)(&a24905)); /* x115144 stalin.sc:12912:452001 */ a36145 = t91202; /* x275937 */ /* x275936 */ t91203 = a36145; /* x275935 */ if (!((t91203.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30294]"); structure_ref_error();} t91190 = t91203.value.structure_type24753->s0; /* x115143 */ a24907 = t91190; /* x115142 stalin.sc:12913:452018 */ /* x114990 stalin.sc:12913:452024 */ /* x114988 stalin.sc:12913:452029 */ /* x114987 stalin.sc:12913:452050 */ t91193 = a24907; /* x114986 stalin.sc:12913:452030 */ a37604 = t91193; /* x283085 */ /* x283084 */ t91194 = a37604; /* x283083 */ if (!((t91194.tag)==STRUCTURE_TYPE27769)) {backtrace_internal("[clone STRUCTURE-TYPE-LINK[6193] 32521]"); structure_ref_error();} t91191 = t91194.value.structure_type27769->s3; /* x114989 stalin.sc:12913:452054 */ t91192 = a24907; /* x269306 stalin.sc:12913:452025 */ /* EQ: dispatching general to general */ if (!((t91191.tag)==(t91192.tag))) goto l17405; switch (t91191.tag) {case FIXNUM_TYPE: if (!((t91191.value.fixnum_type)==(t91192.value.fixnum_type))) goto l17405; break; case FLONUM_TYPE: if (!((t91191.value.flonum_type)==(t91192.value.flonum_type))) goto l17405; break; case INPUT_PORT_TYPE: if (!((t91191.value.input_port_type)==(t91192.value.input_port_type))) goto l17405; break; case OUTPUT_PORT_TYPE: if (!((t91191.value.output_port_type)==(t91192.value.output_port_type))) goto l17405; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t91191.value.native_procedure_type15963)==(t91192.value.native_procedure_type15963))) goto l17405; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t91191.value.native_procedure_type19067)==(t91192.value.native_procedure_type19067))) goto l17405; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t91191.value.native_procedure_type19068)==(t91192.value.native_procedure_type19068))) goto l17405; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t91191.value.native_procedure_type22459)==(t91192.value.native_procedure_type22459))) goto l17405; break; case STRUCTURE_TYPE24753: if (!((t91191.value.structure_type24753)==(t91192.value.structure_type24753))) goto l17405; break; case STRUCTURE_TYPE24757: if (!((t91191.value.structure_type24757)==(t91192.value.structure_type24757))) goto l17405; break; case STRUCTURE_TYPE27501: if (!((t91191.value.structure_type27501)==(t91192.value.structure_type27501))) goto l17405; break; case STRUCTURE_TYPE27510: if (!((t91191.value.structure_type27510)==(t91192.value.structure_type27510))) goto l17405; break; case STRUCTURE_TYPE27621: if (!((t91191.value.structure_type27621)==(t91192.value.structure_type27621))) goto l17405; break; case STRUCTURE_TYPE27650: if (!((t91191.value.structure_type27650)==(t91192.value.structure_type27650))) goto l17405; break; case STRUCTURE_TYPE27669: if (!((t91191.value.structure_type27669)==(t91192.value.structure_type27669))) goto l17405; break; case STRUCTURE_TYPE27673: if (!((t91191.value.structure_type27673)==(t91192.value.structure_type27673))) goto l17405; break; case STRUCTURE_TYPE27692: if (!((t91191.value.structure_type27692)==(t91192.value.structure_type27692))) goto l17405; break; case STRUCTURE_TYPE27694: if (!((t91191.value.structure_type27694)==(t91192.value.structure_type27694))) goto l17405; break; case STRUCTURE_TYPE27698: if (!((t91191.value.structure_type27698)==(t91192.value.structure_type27698))) goto l17405; break; case STRUCTURE_TYPE27745: if (!((t91191.value.structure_type27745)==(t91192.value.structure_type27745))) goto l17405; break; case STRUCTURE_TYPE27747: if (!((t91191.value.structure_type27747)==(t91192.value.structure_type27747))) goto l17405; break; case STRUCTURE_TYPE27750: if (!((t91191.value.structure_type27750)==(t91192.value.structure_type27750))) goto l17405; break; case STRUCTURE_TYPE27753: if (!((t91191.value.structure_type27753)==(t91192.value.structure_type27753))) goto l17405; break; case STRUCTURE_TYPE27756: if (!((t91191.value.structure_type27756)==(t91192.value.structure_type27756))) goto l17405; break; case STRUCTURE_TYPE27761: if (!((t91191.value.structure_type27761)==(t91192.value.structure_type27761))) goto l17405; break; case STRUCTURE_TYPE27769: if (!((t91191.value.structure_type27769)==(t91192.value.structure_type27769))) goto l17405; break; case STRUCTURE_TYPE27776: if (!((t91191.value.structure_type27776)==(t91192.value.structure_type27776))) goto l17405; break; case STRUCTURE_TYPE27779: if (!((t91191.value.structure_type27779)==(t91192.value.structure_type27779))) goto l17405; break; case STRUCTURE_TYPE27858: if (!((t91191.value.structure_type27858)==(t91192.value.structure_type27858))) goto l17405; break; case STRING_TYPE: if (!((t91191.value.string_type)==(t91192.value.string_type))) goto l17405; break; case HEADED_VECTOR_TYPE27896: if (!((t91191.value.headed_vector_type27896)==(t91192.value.headed_vector_type27896))) goto l17405; break; case EXTERNAL_SYMBOL_TYPE: if (!((t91191.value.external_symbol_type)==(t91192.value.external_symbol_type))) goto l17405; break; case STRUCTURE_TYPE27908: if (!((t91191.value.structure_type27908)==(t91192.value.structure_type27908))) goto l17405; break; default:;} /* x115139 */ /* x115138 */ /* x115137 */ /* x115136 stalin.sc:12914:452064 */ /* x115135 stalin.sc:12914:452065 */ f4651(); /* x115134 */ /* x115133 stalin.sc:12915:452109 */ /* x115132 stalin.sc:12941:453093 */ /* x115131 stalin.sc:12941:453099 */ t91200 = *((struct w16638 *)(&a24905)); /* x115130 stalin.sc:12941:453094 */ a35351 = t91200; /* x272761 */ /* x272760 */ t91201 = a35351; /* x272759 */ if (!((t91201.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29500]"); structure_ref_error();} t91196 = t91201.value.structure_type24753->s1; /* x115129 stalin.sc:12916:452126 */ /* x114991 stalin.sc:12915:452110 */ t91197.tag = NATIVE_PROCEDURE_TYPE22688; t91198 = t91196; t91199 = (struct structure_type24753 *)NULL_TYPE; f27755(t91197, t91198, t91199); goto l17406; l17405: /* x115141 stalin.sc:12913:452018 */ /* x115140 stalin.sc:12913:452018 */ l17406: /* x114984 */ /* x114983 */ /* x114982 stalin.sc:12911:451961 */ /* x114981 stalin.sc:12911:451967 */ t91188 = *((struct w16638 *)(&a24905)); /* x114980 stalin.sc:12911:451962 */ a35352 = t91188; /* x272765 */ /* x272764 */ t91189 = a35352; /* x272763 */ if (!((t91189.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29501]"); structure_ref_error();} t91187 = t91189.value.structure_type24753->s1; /* x114979 */ a24905 = t91187; goto h12888; l17403: /* x115306 stalin.sc:12942:453110 */ /* x115305 */ /* x115304 */ /* x115303 */ /* x115302 */ /* x115301 */ /* x115300 */ /* x115162 */ /* x115161 */ /* x115160 stalin.sc:12942:453119 */ t91204 = a1939; /* x115159 */ a24920 = *((struct w49 *)(&t91204)); h12912: /* x115299 */ /* x115165 stalin.sc:12942:453154 */ /* x115164 stalin.sc:12942:453161 */ t91205 = a24920; /* x269298 stalin.sc:12942:453155 */ if (!((t91205.tag)==NULL_TYPE)) goto l17408; /* x115167 */ /* x115166 */ goto l17409; l17408: /* x115298 */ /* x115297 */ /* x115296 */ /* x115295 stalin.sc:12943:453170 */ /* x115294 stalin.sc:12943:453180 */ /* x115293 stalin.sc:12943:453187 */ t91221 = *((struct w16638 *)(&a24920)); /* x115292 stalin.sc:12943:453181 */ a36146 = t91221; /* x275941 */ /* x275940 */ t91222 = a36146; /* x275939 */ if (!((t91222.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30295]"); structure_ref_error();} t91209 = t91222.value.structure_type24753->s0; /* x115291 */ a24922 = t91209; /* x115290 stalin.sc:12944:453198 */ /* x115179 stalin.sc:12944:453204 */ /* x115177 stalin.sc:12944:453209 */ /* x115176 stalin.sc:12944:453234 */ t91212 = a24922; /* x115175 stalin.sc:12944:453210 */ a37483 = t91212; /* x282601 */ /* x282600 */ t91213 = a37483; /* x282599 */ if (!((t91213.tag)==STRUCTURE_TYPE27761)) {backtrace_internal("[clone HEADED-VECTOR-TYPE-LINK[6259] 32400]"); structure_ref_error();} t91210 = t91213.value.structure_type27761->s2; /* x115178 stalin.sc:12944:453238 */ t91211 = a24922; /* x269297 stalin.sc:12944:453205 */ /* EQ: dispatching general to general */ if (!((t91210.tag)==(t91211.tag))) goto l17411; switch (t91210.tag) {case FIXNUM_TYPE: if (!((t91210.value.fixnum_type)==(t91211.value.fixnum_type))) goto l17411; break; case FLONUM_TYPE: if (!((t91210.value.flonum_type)==(t91211.value.flonum_type))) goto l17411; break; case INPUT_PORT_TYPE: if (!((t91210.value.input_port_type)==(t91211.value.input_port_type))) goto l17411; break; case OUTPUT_PORT_TYPE: if (!((t91210.value.output_port_type)==(t91211.value.output_port_type))) goto l17411; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t91210.value.native_procedure_type15963)==(t91211.value.native_procedure_type15963))) goto l17411; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t91210.value.native_procedure_type19067)==(t91211.value.native_procedure_type19067))) goto l17411; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t91210.value.native_procedure_type19068)==(t91211.value.native_procedure_type19068))) goto l17411; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t91210.value.native_procedure_type22459)==(t91211.value.native_procedure_type22459))) goto l17411; break; case STRUCTURE_TYPE24753: if (!((t91210.value.structure_type24753)==(t91211.value.structure_type24753))) goto l17411; break; case STRUCTURE_TYPE24757: if (!((t91210.value.structure_type24757)==(t91211.value.structure_type24757))) goto l17411; break; case STRUCTURE_TYPE27501: if (!((t91210.value.structure_type27501)==(t91211.value.structure_type27501))) goto l17411; break; case STRUCTURE_TYPE27510: if (!((t91210.value.structure_type27510)==(t91211.value.structure_type27510))) goto l17411; break; case STRUCTURE_TYPE27621: if (!((t91210.value.structure_type27621)==(t91211.value.structure_type27621))) goto l17411; break; case STRUCTURE_TYPE27650: if (!((t91210.value.structure_type27650)==(t91211.value.structure_type27650))) goto l17411; break; case STRUCTURE_TYPE27669: if (!((t91210.value.structure_type27669)==(t91211.value.structure_type27669))) goto l17411; break; case STRUCTURE_TYPE27673: if (!((t91210.value.structure_type27673)==(t91211.value.structure_type27673))) goto l17411; break; case STRUCTURE_TYPE27692: if (!((t91210.value.structure_type27692)==(t91211.value.structure_type27692))) goto l17411; break; case STRUCTURE_TYPE27694: if (!((t91210.value.structure_type27694)==(t91211.value.structure_type27694))) goto l17411; break; case STRUCTURE_TYPE27698: if (!((t91210.value.structure_type27698)==(t91211.value.structure_type27698))) goto l17411; break; case STRUCTURE_TYPE27745: if (!((t91210.value.structure_type27745)==(t91211.value.structure_type27745))) goto l17411; break; case STRUCTURE_TYPE27747: if (!((t91210.value.structure_type27747)==(t91211.value.structure_type27747))) goto l17411; break; case STRUCTURE_TYPE27750: if (!((t91210.value.structure_type27750)==(t91211.value.structure_type27750))) goto l17411; break; case STRUCTURE_TYPE27753: if (!((t91210.value.structure_type27753)==(t91211.value.structure_type27753))) goto l17411; break; case STRUCTURE_TYPE27756: if (!((t91210.value.structure_type27756)==(t91211.value.structure_type27756))) goto l17411; break; case STRUCTURE_TYPE27761: if (!((t91210.value.structure_type27761)==(t91211.value.structure_type27761))) goto l17411; break; case STRUCTURE_TYPE27769: if (!((t91210.value.structure_type27769)==(t91211.value.structure_type27769))) goto l17411; break; case STRUCTURE_TYPE27776: if (!((t91210.value.structure_type27776)==(t91211.value.structure_type27776))) goto l17411; break; case STRUCTURE_TYPE27779: if (!((t91210.value.structure_type27779)==(t91211.value.structure_type27779))) goto l17411; break; case STRUCTURE_TYPE27858: if (!((t91210.value.structure_type27858)==(t91211.value.structure_type27858))) goto l17411; break; case STRING_TYPE: if (!((t91210.value.string_type)==(t91211.value.string_type))) goto l17411; break; case HEADED_VECTOR_TYPE27896: if (!((t91210.value.headed_vector_type27896)==(t91211.value.headed_vector_type27896))) goto l17411; break; case EXTERNAL_SYMBOL_TYPE: if (!((t91210.value.external_symbol_type)==(t91211.value.external_symbol_type))) goto l17411; break; case STRUCTURE_TYPE27908: if (!((t91210.value.structure_type27908)==(t91211.value.structure_type27908))) goto l17411; break; default:;} /* x115287 */ /* x115286 */ /* x115285 */ /* x115284 stalin.sc:12945:453248 */ /* x115283 stalin.sc:12945:453249 */ f4651(); /* x115282 */ /* x115281 stalin.sc:12946:453293 */ /* x115280 stalin.sc:12966:454080 */ /* x115279 stalin.sc:12966:454086 */ t91219 = *((struct w16638 *)(&a24920)); /* x115278 stalin.sc:12966:454081 */ a35346 = t91219; /* x272741 */ /* x272740 */ t91220 = a35346; /* x272739 */ if (!((t91220.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29495]"); structure_ref_error();} t91215 = t91220.value.structure_type24753->s1; /* x115277 stalin.sc:12947:453310 */ /* x115180 stalin.sc:12946:453294 */ t91216.tag = NATIVE_PROCEDURE_TYPE23269; t91217 = t91215; t91218 = (struct structure_type24753 *)NULL_TYPE; f27755(t91216, t91217, t91218); goto l17412; l17411: /* x115289 stalin.sc:12944:453198 */ /* x115288 stalin.sc:12944:453198 */ l17412: /* x115173 */ /* x115172 */ /* x115171 stalin.sc:12942:453141 */ /* x115170 stalin.sc:12942:453147 */ t91207 = *((struct w16638 *)(&a24920)); /* x115169 stalin.sc:12942:453142 */ a35347 = t91207; /* x272745 */ /* x272744 */ t91208 = a35347; /* x272743 */ if (!((t91208.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29496]"); structure_ref_error();} t91206 = t91208.value.structure_type24753->s1; /* x115168 */ a24920 = t91206; goto h12912; l17409: /* x115442 stalin.sc:12967:454097 */ /* x115441 */ /* x115440 */ /* x115439 */ /* x115438 */ /* x115437 */ /* x115436 */ /* x115310 */ /* x115309 */ /* x115308 stalin.sc:12967:454106 */ t91223 = a1938; /* x115307 */ a24932 = *((struct w49 *)(&t91223)); h12933: /* x115435 */ /* x115313 stalin.sc:12967:454144 */ /* x115312 stalin.sc:12967:454151 */ t91224 = a24932; /* x269291 stalin.sc:12967:454145 */ if (!((t91224.tag)==NULL_TYPE)) goto l17414; /* x115315 */ /* x115314 */ goto l17415; l17414: /* x115434 */ /* x115433 */ /* x115432 */ /* x115431 stalin.sc:12968:454160 */ /* x115430 stalin.sc:12968:454170 */ /* x115429 stalin.sc:12968:454177 */ t91240 = *((struct w16638 *)(&a24932)); /* x115428 stalin.sc:12968:454171 */ a36147 = t91240; /* x275945 */ /* x275944 */ t91241 = a36147; /* x275943 */ if (!((t91241.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30296]"); structure_ref_error();} t91228 = t91241.value.structure_type24753->s0; /* x115427 */ a24934 = t91228; /* x115426 stalin.sc:12969:454188 */ /* x115327 stalin.sc:12969:454194 */ /* x115325 stalin.sc:12969:454199 */ /* x115324 stalin.sc:12969:454227 */ t91231 = a24934; /* x115323 stalin.sc:12969:454200 */ a37380 = t91231; /* x282189 */ /* x282188 */ t91232 = a37380; /* x282187 */ if (!((t91232.tag)==STRUCTURE_TYPE27669)) {backtrace_internal("[clone NONHEADED-VECTOR-TYPE-LINK[6325] 32297]"); structure_ref_error();} t91229 = t91232.value.structure_type27669->s2; /* x115326 stalin.sc:12969:454231 */ t91230 = a24934; /* x269290 stalin.sc:12969:454195 */ /* EQ: dispatching general to general */ if (!((t91229.tag)==(t91230.tag))) goto l17417; switch (t91229.tag) {case FIXNUM_TYPE: if (!((t91229.value.fixnum_type)==(t91230.value.fixnum_type))) goto l17417; break; case FLONUM_TYPE: if (!((t91229.value.flonum_type)==(t91230.value.flonum_type))) goto l17417; break; case INPUT_PORT_TYPE: if (!((t91229.value.input_port_type)==(t91230.value.input_port_type))) goto l17417; break; case OUTPUT_PORT_TYPE: if (!((t91229.value.output_port_type)==(t91230.value.output_port_type))) goto l17417; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t91229.value.native_procedure_type15963)==(t91230.value.native_procedure_type15963))) goto l17417; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t91229.value.native_procedure_type19067)==(t91230.value.native_procedure_type19067))) goto l17417; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t91229.value.native_procedure_type19068)==(t91230.value.native_procedure_type19068))) goto l17417; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t91229.value.native_procedure_type22459)==(t91230.value.native_procedure_type22459))) goto l17417; break; case STRUCTURE_TYPE24753: if (!((t91229.value.structure_type24753)==(t91230.value.structure_type24753))) goto l17417; break; case STRUCTURE_TYPE24757: if (!((t91229.value.structure_type24757)==(t91230.value.structure_type24757))) goto l17417; break; case STRUCTURE_TYPE27501: if (!((t91229.value.structure_type27501)==(t91230.value.structure_type27501))) goto l17417; break; case STRUCTURE_TYPE27510: if (!((t91229.value.structure_type27510)==(t91230.value.structure_type27510))) goto l17417; break; case STRUCTURE_TYPE27621: if (!((t91229.value.structure_type27621)==(t91230.value.structure_type27621))) goto l17417; break; case STRUCTURE_TYPE27650: if (!((t91229.value.structure_type27650)==(t91230.value.structure_type27650))) goto l17417; break; case STRUCTURE_TYPE27669: if (!((t91229.value.structure_type27669)==(t91230.value.structure_type27669))) goto l17417; break; case STRUCTURE_TYPE27673: if (!((t91229.value.structure_type27673)==(t91230.value.structure_type27673))) goto l17417; break; case STRUCTURE_TYPE27692: if (!((t91229.value.structure_type27692)==(t91230.value.structure_type27692))) goto l17417; break; case STRUCTURE_TYPE27694: if (!((t91229.value.structure_type27694)==(t91230.value.structure_type27694))) goto l17417; break; case STRUCTURE_TYPE27698: if (!((t91229.value.structure_type27698)==(t91230.value.structure_type27698))) goto l17417; break; case STRUCTURE_TYPE27745: if (!((t91229.value.structure_type27745)==(t91230.value.structure_type27745))) goto l17417; break; case STRUCTURE_TYPE27747: if (!((t91229.value.structure_type27747)==(t91230.value.structure_type27747))) goto l17417; break; case STRUCTURE_TYPE27750: if (!((t91229.value.structure_type27750)==(t91230.value.structure_type27750))) goto l17417; break; case STRUCTURE_TYPE27753: if (!((t91229.value.structure_type27753)==(t91230.value.structure_type27753))) goto l17417; break; case STRUCTURE_TYPE27756: if (!((t91229.value.structure_type27756)==(t91230.value.structure_type27756))) goto l17417; break; case STRUCTURE_TYPE27761: if (!((t91229.value.structure_type27761)==(t91230.value.structure_type27761))) goto l17417; break; case STRUCTURE_TYPE27769: if (!((t91229.value.structure_type27769)==(t91230.value.structure_type27769))) goto l17417; break; case STRUCTURE_TYPE27776: if (!((t91229.value.structure_type27776)==(t91230.value.structure_type27776))) goto l17417; break; case STRUCTURE_TYPE27779: if (!((t91229.value.structure_type27779)==(t91230.value.structure_type27779))) goto l17417; break; case STRUCTURE_TYPE27858: if (!((t91229.value.structure_type27858)==(t91230.value.structure_type27858))) goto l17417; break; case STRING_TYPE: if (!((t91229.value.string_type)==(t91230.value.string_type))) goto l17417; break; case HEADED_VECTOR_TYPE27896: if (!((t91229.value.headed_vector_type27896)==(t91230.value.headed_vector_type27896))) goto l17417; break; case EXTERNAL_SYMBOL_TYPE: if (!((t91229.value.external_symbol_type)==(t91230.value.external_symbol_type))) goto l17417; break; case STRUCTURE_TYPE27908: if (!((t91229.value.structure_type27908)==(t91230.value.structure_type27908))) goto l17417; break; default:;} /* x115423 */ /* x115422 */ /* x115421 */ /* x115420 stalin.sc:12970:454241 */ /* x115419 stalin.sc:12970:454242 */ f4651(); /* x115418 */ /* x115417 stalin.sc:12971:454286 */ /* x115416 stalin.sc:12990:455005 */ /* x115415 stalin.sc:12990:455011 */ t91238 = *((struct w16638 *)(&a24932)); /* x115414 stalin.sc:12990:455006 */ a35546 = t91238; /* x273541 */ /* x273540 */ t91239 = a35546; /* x273539 */ if (!((t91239.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29695]"); structure_ref_error();} t91234 = t91239.value.structure_type24753->s1; /* x115413 stalin.sc:12972:454303 */ /* x115328 stalin.sc:12971:454287 */ t91235.tag = NATIVE_PROCEDURE_TYPE16640; t91236 = t91234; t91237 = (struct structure_type24753 *)NULL_TYPE; f27755(t91235, t91236, t91237); goto l17418; l17417: /* x115425 stalin.sc:12969:454188 */ /* x115424 stalin.sc:12969:454188 */ l17418: /* x115321 */ /* x115320 */ /* x115319 stalin.sc:12967:454131 */ /* x115318 stalin.sc:12967:454137 */ t91226 = *((struct w16638 *)(&a24932)); /* x115317 stalin.sc:12967:454132 */ a35547 = t91226; /* x273545 */ /* x273544 */ t91227 = a35547; /* x273543 */ if (!((t91227.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29696]"); structure_ref_error();} t91225 = t91227.value.structure_type24753->s1; /* x115316 */ a24932 = t91225; goto h12933; l17415: /* x115559 stalin.sc:12991:455022 */ /* x115558 */ /* x115557 */ /* x115556 */ /* x115555 */ /* x115554 */ /* x115553 */ /* x115446 */ /* x115445 */ /* x115444 stalin.sc:12991:455031 */ t91242 = a1936; /* x115443 */ a24943 = *((struct w49 *)(&t91242)); h12952: /* x115552 */ /* x115449 stalin.sc:12991:455069 */ /* x115448 stalin.sc:12991:455076 */ t91243 = a24943; /* x269284 stalin.sc:12991:455070 */ if (!((t91243.tag)==NULL_TYPE)) goto l17420; /* x115451 */ /* x115450 */ goto l17421; l17420: /* x115551 */ /* x115550 */ /* x115549 */ /* x115548 stalin.sc:12992:455085 */ /* x115547 stalin.sc:12992:455095 */ /* x115546 stalin.sc:12992:455102 */ t91259 = *((struct w16638 *)(&a24943)); /* x115545 stalin.sc:12992:455096 */ a36148 = t91259; /* x275949 */ /* x275948 */ t91260 = a36148; /* x275947 */ if (!((t91260.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30297]"); structure_ref_error();} t91247 = t91260.value.structure_type24753->s0; /* x115544 */ a24945 = t91247; /* x115543 stalin.sc:12993:455113 */ /* x115463 stalin.sc:12993:455119 */ /* x115461 stalin.sc:12993:455124 */ /* x115460 stalin.sc:12993:455152 */ t91250 = a24945; /* x115459 stalin.sc:12993:455125 */ a37296 = t91250; /* x281853 */ /* x281852 */ t91251 = a37296; /* x281851 */ if (!((t91251.tag)==STRUCTURE_TYPE27908)) {backtrace_internal("[clone DISPLACED-VECTOR-TYPE-LINK[6383] 32213]"); structure_ref_error();} t91248 = t91251.value.structure_type27908->s1; /* x115462 stalin.sc:12993:455156 */ t91249 = a24945; /* x269283 stalin.sc:12993:455120 */ /* EQ: dispatching general to general */ if (!((t91248.tag)==(t91249.tag))) goto l17423; switch (t91248.tag) {case FIXNUM_TYPE: if (!((t91248.value.fixnum_type)==(t91249.value.fixnum_type))) goto l17423; break; case FLONUM_TYPE: if (!((t91248.value.flonum_type)==(t91249.value.flonum_type))) goto l17423; break; case INPUT_PORT_TYPE: if (!((t91248.value.input_port_type)==(t91249.value.input_port_type))) goto l17423; break; case OUTPUT_PORT_TYPE: if (!((t91248.value.output_port_type)==(t91249.value.output_port_type))) goto l17423; break; case NATIVE_PROCEDURE_TYPE15963: if (!((t91248.value.native_procedure_type15963)==(t91249.value.native_procedure_type15963))) goto l17423; break; case NATIVE_PROCEDURE_TYPE19067: if (!((t91248.value.native_procedure_type19067)==(t91249.value.native_procedure_type19067))) goto l17423; break; case NATIVE_PROCEDURE_TYPE19068: if (!((t91248.value.native_procedure_type19068)==(t91249.value.native_procedure_type19068))) goto l17423; break; case NATIVE_PROCEDURE_TYPE22459: if (!((t91248.value.native_procedure_type22459)==(t91249.value.native_procedure_type22459))) goto l17423; break; case STRUCTURE_TYPE24753: if (!((t91248.value.structure_type24753)==(t91249.value.structure_type24753))) goto l17423; break; case STRUCTURE_TYPE24757: if (!((t91248.value.structure_type24757)==(t91249.value.structure_type24757))) goto l17423; break; case STRUCTURE_TYPE27501: if (!((t91248.value.structure_type27501)==(t91249.value.structure_type27501))) goto l17423; break; case STRUCTURE_TYPE27510: if (!((t91248.value.structure_type27510)==(t91249.value.structure_type27510))) goto l17423; break; case STRUCTURE_TYPE27621: if (!((t91248.value.structure_type27621)==(t91249.value.structure_type27621))) goto l17423; break; case STRUCTURE_TYPE27650: if (!((t91248.value.structure_type27650)==(t91249.value.structure_type27650))) goto l17423; break; case STRUCTURE_TYPE27669: if (!((t91248.value.structure_type27669)==(t91249.value.structure_type27669))) goto l17423; break; case STRUCTURE_TYPE27673: if (!((t91248.value.structure_type27673)==(t91249.value.structure_type27673))) goto l17423; break; case STRUCTURE_TYPE27692: if (!((t91248.value.structure_type27692)==(t91249.value.structure_type27692))) goto l17423; break; case STRUCTURE_TYPE27694: if (!((t91248.value.structure_type27694)==(t91249.value.structure_type27694))) goto l17423; break; case STRUCTURE_TYPE27698: if (!((t91248.value.structure_type27698)==(t91249.value.structure_type27698))) goto l17423; break; case STRUCTURE_TYPE27745: if (!((t91248.value.structure_type27745)==(t91249.value.structure_type27745))) goto l17423; break; case STRUCTURE_TYPE27747: if (!((t91248.value.structure_type27747)==(t91249.value.structure_type27747))) goto l17423; break; case STRUCTURE_TYPE27750: if (!((t91248.value.structure_type27750)==(t91249.value.structure_type27750))) goto l17423; break; case STRUCTURE_TYPE27753: if (!((t91248.value.structure_type27753)==(t91249.value.structure_type27753))) goto l17423; break; case STRUCTURE_TYPE27756: if (!((t91248.value.structure_type27756)==(t91249.value.structure_type27756))) goto l17423; break; case STRUCTURE_TYPE27761: if (!((t91248.value.structure_type27761)==(t91249.value.structure_type27761))) goto l17423; break; case STRUCTURE_TYPE27769: if (!((t91248.value.structure_type27769)==(t91249.value.structure_type27769))) goto l17423; break; case STRUCTURE_TYPE27776: if (!((t91248.value.structure_type27776)==(t91249.value.structure_type27776))) goto l17423; break; case STRUCTURE_TYPE27779: if (!((t91248.value.structure_type27779)==(t91249.value.structure_type27779))) goto l17423; break; case STRUCTURE_TYPE27858: if (!((t91248.value.structure_type27858)==(t91249.value.structure_type27858))) goto l17423; break; case STRING_TYPE: if (!((t91248.value.string_type)==(t91249.value.string_type))) goto l17423; break; case HEADED_VECTOR_TYPE27896: if (!((t91248.value.headed_vector_type27896)==(t91249.value.headed_vector_type27896))) goto l17423; break; case EXTERNAL_SYMBOL_TYPE: if (!((t91248.value.external_symbol_type)==(t91249.value.external_symbol_type))) goto l17423; break; case STRUCTURE_TYPE27908: if (!((t91248.value.structure_type27908)==(t91249.value.structure_type27908))) goto l17423; break; default:;} /* x115540 */ /* x115539 */ /* x115538 */ /* x115537 stalin.sc:12994:455166 */ /* x115536 stalin.sc:12994:455167 */ f4651(); /* x115535 */ /* x115534 stalin.sc:12995:455211 */ /* x115533 stalin.sc:13009:455751 */ /* x115532 stalin.sc:13009:455757 */ t91257 = *((struct w16638 *)(&a24943)); /* x115531 stalin.sc:13009:455752 */ t91258 = *((struct w49 *)(&t91257)); t91253 = f26177(t91258); /* x115530 stalin.sc:12996:455228 */ /* x115464 stalin.sc:12995:455212 */ t91254.tag = NATIVE_PROCEDURE_TYPE24695; t91255 = t91253; t91256 = (struct structure_type24753 *)NULL_TYPE; f27755(t91254, t91255, t91256); goto l17424; l17423: /* x115542 stalin.sc:12993:455113 */ /* x115541 stalin.sc:12993:455113 */ l17424: /* x115457 */ /* x115456 */ /* x115455 stalin.sc:12991:455056 */ /* x115454 stalin.sc:12991:455062 */ t91245 = *((struct w16638 *)(&a24943)); /* x115453 stalin.sc:12991:455057 */ a35326 = t91245; /* x272661 */ /* x272660 */ t91246 = a35326; /* x272659 */ if (!((t91246.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CDR[26177] 29475]"); structure_ref_error();} t91244 = t91246.value.structure_type24753->s1; /* x115452 */ a24943 = t91244; goto h12952; l17421: /* x115736 stalin.sc:13011:455798 */ /* x115735 stalin.sc:13011:455810 */ /* x115734 stalin.sc:13011:455823 */ /* x115733 stalin.sc:13011:455811 */ a24858.tag = STRUCTURE_TYPE24753; a24858.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((a24858.value.structure_type24753)==NULL) {backtrace("stalin.sc", 13011, 455810); out_of_memory_error();} a24858.value.structure_type24753->s0.tag = NULL_TYPE; a24858.value.structure_type24753->s1.tag = NULL_TYPE; /* x114631 */ /* x114630 stalin.sc:12850:449761 */ /* x114623 stalin.sc:12850:449765 */ /* x114622 stalin.sc:12850:449772 */ t91277 = a24858; /* x269327 stalin.sc:12850:449766 */ if (!((t91277.tag)==NULL_TYPE)) goto l17426; /* x114625 stalin.sc:12851:449793 */ /* x114624 stalin.sc:12851:449813 */ a24858.tag = FALSE_TYPE; goto l17427; l17426: /* x114629 stalin.sc:12852:449823 */ /* x114628 stalin.sc:12852:449843 */ /* x114627 stalin.sc:12852:449850 */ t91278 = a24858; /* x114626 stalin.sc:12852:449844 */ a36142 = t91278; /* x275925 */ /* x275924 */ t91279 = a36142; /* x275923 */ if (!((t91279.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 30291]"); structure_ref_error();} a24858 = t91279.value.structure_type24753->s0; l17427: /* x114620 */ /* x114619 stalin.sc:12853:449869 */ /* x114611 stalin.sc:12853:449880 */ /* x114612 stalin.sc:12853:449883 */ /* x114613 stalin.sc:12853:449886 */ /* x114614 stalin.sc:12853:449889 */ t91270 = a24858; /* x114618 stalin.sc:12853:449903 */ /* x114616 stalin.sc:12853:449919 */ /* x114617 stalin.sc:12853:449923 */ t91275 = a24858; /* x114615 stalin.sc:12853:449904 */ t91276 = (struct headed_vector_type27896 *)NULL_TYPE; t91271 = f2268(t91276, t91275); /* x114610 stalin.sc:12853:449870 */ t91272 = (unsigned)FALSE_TYPE; t91273 = FALSE_TYPE; t91274 = FALSE_TYPE; t91261 = f2226(t91272, t91273, t91274, t91270, t91271); /* x115732 */ a24951 = t91261; /* x115731 */ /* x115730 stalin.sc:13013:455859 */ /* x115729 stalin.sc:13034:456838 */ t91266 = a1679; /* x115728 stalin.sc:13014:455874 */ /* x115652 stalin.sc:13013:455860 */ t91267.tag = NATIVE_PROCEDURE_TYPE15561; t91268 = *((struct w49 *)(&t91266)); t91269 = (struct structure_type24753 *)NULL_TYPE; f27755(t91267, t91268, t91269); /* x115651 */ /* x115650 stalin.sc:13035:456848 */ /* x115649 stalin.sc:13055:457521 */ t91262 = a1679; /* x115648 stalin.sc:13035:456858 */ /* x115560 stalin.sc:13035:456849 */ t91263.tag = NATIVE_PROCEDURE_TYPE15563; t91264 = *((struct w49 *)(&t91262)); t91265 = (struct structure_type24753 *)NULL_TYPE; f27755(t91263, t91264, t91265); /* x114770 */ /* x114769 stalin.sc:13056:457531 */ /* x114762 stalin.sc:13056:457537 */ if (a24878==FALSE_TYPE) goto l17387; /* x114766 */ /* x114765 */ /* x114764 stalin.sc:13056:457544 */ /* x114763 stalin.sc:13056:457545 */ goto h12851; goto l17388; l17387: /* x114768 stalin.sc:13056:457531 */ /* x114767 stalin.sc:13056:457531 */ l17388: /* x115759 stalin.sc:13057:457555 */ /* x115758 stalin.sc:13058:457592 */ /* x115756 stalin.sc:13058:457607 */ /* x115757 stalin.sc:13059:457666 */ t91280 = a1947; /* x115749 stalin.sc:13058:457593 */ t91281.tag = NATIVE_PROCEDURE_TYPE15496; t91282 = *((struct w49 *)(&t91280)); t91283 = f1226(t91281, t91282); a1947 = *((struct w21193 *)(&t91283)); /* x115768 stalin.sc:13060:457693 */ /* x115761 stalin.sc:13060:457707 */ t91284 = a1669; /* x115767 stalin.sc:13061:457741 */ /* x115766 stalin.sc:13061:457763 */ /* x115765 stalin.sc:13061:457772 */ t91292 = a1669; /* x115764 stalin.sc:13061:457764 */ /* MOVE: branching squeezed to general */ if (t91292>=((struct structure_type27650 *)VALUE_OFFSET)) {t91293.tag = STRUCTURE_TYPE27650; t91293.value.structure_type27650 = t91292;} else t91293.tag = (unsigned)t91292; t91288 = f8162(t91293); /* x115763 stalin.sc:13061:457746 */ /* x115762 stalin.sc:13061:457742 */ t91289.tag = NATIVE_PROCEDURE_TYPE7039; /* MOVE: branching squeezed to general */ if (t91288>=((struct structure_type24753 *)VALUE_OFFSET)) {t91290.tag = STRUCTURE_TYPE24753; t91290.value.structure_type24753 = t91288;} else t91290.tag = (unsigned)t91288; t91291 = (struct structure_type24753 *)NULL_TYPE; t91285 = f27731(t91289, t91290, t91291); /* x115760 stalin.sc:13060:457694 */ /* MOVE: branching squeezed to general */ if (t91284>=((struct structure_type27650 *)VALUE_OFFSET)) {t91286.tag = STRUCTURE_TYPE27650; t91286.value.structure_type27650 = t91284;} else t91286.tag = (unsigned)t91284; /* MOVE: branching squeezed to general */ if (t91285>=((struct structure_type24753 *)VALUE_OFFSET)) {t91287.tag = STRUCTURE_TYPE24753; t91287.value.structure_type24753 = t91285;} else t91287.tag = (unsigned)t91285; f8181(t91286, t91287); /* x115779 stalin.sc:13062:457802 */ /* x115778 stalin.sc:13063:457830 */ /* x115776 stalin.sc:13063:457845 */ /* x115777 stalin.sc:13064:457895 */ t91294 = a1942; /* x115769 stalin.sc:13063:457831 */ t91295.tag = NATIVE_PROCEDURE_TYPE15494; t91296 = *((struct w49 *)(&t91294)); t91297 = f1226(t91295, t91296); a1942 = *((struct w21193 *)(&t91297)); /* x115790 stalin.sc:13065:457913 */ /* x115789 stalin.sc:13066:457944 */ /* x115787 stalin.sc:13066:457959 */ /* x115788 stalin.sc:13067:458012 */ t91298 = a1940; /* x115780 stalin.sc:13066:457945 */ t91299.tag = NATIVE_PROCEDURE_TYPE15492; t91300 = *((struct w49 *)(&t91298)); t91301 = f1226(t91299, t91300); a1940 = *((struct w21193 *)(&t91301)); /* x115801 stalin.sc:13068:458033 */ /* x115800 stalin.sc:13069:458068 */ /* x115798 stalin.sc:13069:458083 */ /* x115799 stalin.sc:13070:458140 */ t91302 = a1939; /* x115791 stalin.sc:13069:458069 */ t91303.tag = NATIVE_PROCEDURE_TYPE15490; t91304 = *((struct w49 *)(&t91302)); t91305 = f1226(t91303, t91304); a1939 = *((struct w21193 *)(&t91305)); /* x115812 stalin.sc:13071:458165 */ /* x115811 stalin.sc:13072:458203 */ /* x115809 stalin.sc:13072:458218 */ /* x115810 stalin.sc:13073:458278 */ t91306 = a1938; /* x115802 stalin.sc:13072:458204 */ t91307.tag = NATIVE_PROCEDURE_TYPE15488; t91308 = *((struct w49 *)(&t91306)); t91309 = f1226(t91307, t91308); a1938 = *((struct w21193 *)(&t91309)); /* x115823 stalin.sc:13074:458306 */ /* x115822 stalin.sc:13075:458344 */ /* x115820 stalin.sc:13075:458359 */ /* x115821 stalin.sc:13076:458419 */ t91310 = a1936; /* x115813 stalin.sc:13075:458345 */ t91311.tag = NATIVE_PROCEDURE_TYPE15486; t91312 = *((struct w49 *)(&t91310)); t91313 = f1226(t91311, t91312); a1936 = *((struct w21193 *)(&t91313)); /* x115834 stalin.sc:13077:458447 */ /* x115833 stalin.sc:13077:458458 */ /* x115831 stalin.sc:13077:458473 */ /* x115832 stalin.sc:13077:458512 */ t91314 = a1679; /* x115824 stalin.sc:13077:458459 */ t91315.tag = NATIVE_PROCEDURE_TYPE15484; t91316 = *((struct w49 *)(&t91314)); t91317 = f1226(t91315, t91316); a1679 = *((struct w21193 *)(&t91317)); /* x115913 stalin.sc:13078:458520 */ /* x115912 stalin.sc:13093:459121 */ t91318 = a2031; /* x115911 */ /* x115835 stalin.sc:13078:458521 */ t91319.tag = NATIVE_PROCEDURE_TYPE15480; t91320 = *((struct w49 *)(&t91318)); t91321 = (struct structure_type24753 *)NULL_TYPE; f27755(t91319, t91320, t91321); /* x115925 stalin.sc:13094:459128 */ /* x115924 stalin.sc:13098:459280 */ t91322 = a1947; /* x115923 stalin.sc:13095:459140 */ /* x115914 stalin.sc:13094:459129 */ t91323.tag = NATIVE_PROCEDURE_TYPE15479; t91324 = *((struct w49 *)(&t91322)); t91325 = (struct structure_type24753 *)NULL_TYPE; f27755(t91323, t91324, t91325); /* x115938 stalin.sc:13099:459306 */ /* x115937 stalin.sc:13102:459426 */ t91326 = a1940; /* x115936 stalin.sc:13099:459316 */ /* x115926 stalin.sc:13099:459307 */ t91327.tag = NATIVE_PROCEDURE_TYPE15478; t91328 = *((struct w49 *)(&t91326)); t91329 = (struct structure_type24753 *)NULL_TYPE; f27755(t91327, t91328, t91329); /* x115950 stalin.sc:13103:459446 */ /* x115949 stalin.sc:13106:459574 */ t91330 = a1939; /* x115948 stalin.sc:13103:459456 */ /* x115939 stalin.sc:13103:459447 */ t91331.tag = NATIVE_PROCEDURE_TYPE15477; t91332 = *((struct w49 *)(&t91330)); t91333 = (struct structure_type24753 *)NULL_TYPE; f27755(t91331, t91332, t91333); /* x115962 stalin.sc:13107:459598 */ /* x115961 stalin.sc:13110:459732 */ t91334 = a1938; /* x115960 stalin.sc:13107:459608 */ /* x115951 stalin.sc:13107:459599 */ t91335.tag = NATIVE_PROCEDURE_TYPE15476; t91336 = *((struct w49 *)(&t91334)); t91337 = (struct structure_type24753 *)NULL_TYPE; f27755(t91335, t91336, t91337); /* x115974 stalin.sc:13111:459759 */ /* x115973 stalin.sc:13115:459913 */ t91338 = a1936; /* x115972 stalin.sc:13112:459771 */ /* x115963 stalin.sc:13111:459760 */ t91339.tag = NATIVE_PROCEDURE_TYPE15475; t91340 = *((struct w49 *)(&t91338)); t91341 = (struct structure_type24753 *)NULL_TYPE; f27755(t91339, t91340, t91341); /* x115986 stalin.sc:13116:459940 */ /* x115985 stalin.sc:13119:460042 */ t91342 = a1633; /* x115984 stalin.sc:13117:459952 */ /* x115975 stalin.sc:13116:459941 */ t91343.tag = NATIVE_PROCEDURE_TYPE15474; t91344 = *((struct w49 *)(&t91342)); t91345 = (struct structure_type24753 *)NULL_TYPE; f27755(t91343, t91344, t91345); /* x116001 stalin.sc:13120:460049 */ /* x116000 stalin.sc:13125:460219 */ t91346 = a1594; /* x115999 stalin.sc:13120:460059 */ /* x115987 stalin.sc:13120:460050 */ t91347.tag = NATIVE_PROCEDURE_TYPE15472; t91348 = *((struct w49 *)(&t91346)); t91349 = (struct structure_type24753 *)NULL_TYPE; f27755(t91347, t91348, t91349); /* x116005 stalin.sc:13126:460226 */ /* x116004 stalin.sc:13126:460256 */ /* x116003 stalin.sc:13126:460274 */ t91350 = a1941; /* x116002 stalin.sc:13126:460257 */ a1941 = f12784(t91350); /* x116009 stalin.sc:13127:460301 */ /* x116008 stalin.sc:13128:460343 */ /* x116007 stalin.sc:13128:460361 */ t91351 = a1937; /* x116006 stalin.sc:13128:460344 */ a1937 = f12784(t91351); /* x114558 */ /* x114557 stalin.sc:13129:460393 */ /* x114556 stalin.sc:13129:460446 */ t91143 = a1679; /* x114555 stalin.sc:13129:460403 */ /* x114550 stalin.sc:13129:460394 */ t91144.tag = NATIVE_PROCEDURE_TYPE16351; t91145 = *((struct w49 *)(&t91143)); t91146 = (struct structure_type24753 *)NULL_TYPE; f27755(t91144, t91145, t91146); /* x227334 stalin.sc:32027:1106046 */ /* x227333 stalin.sc:32027:1106068 */ /* x227332 stalin.sc:32027:1106047 */ f11083(); /* x227338 stalin.sc:32028:1106074 */ /* x227336 stalin.sc:32028:1106082 */ t91352 = a702; /* x227337 stalin.sc:32028:1106088 */ t91353 = "Determining indirect structure types"; /* x227335 stalin.sc:32028:1106075 */ f19217(t91352, t91353); /* x227340 stalin.sc:32029:1106130 */ /* x227339 stalin.sc:32029:1106131 */ /* x116045 stalin.sc:13138:460851 */ /* x116044 stalin.sc:13142:460992 */ t91354 = a1940; /* x116043 stalin.sc:13139:460863 */ /* x116023 stalin.sc:13138:460852 */ t91355.tag = NATIVE_PROCEDURE_TYPE15392; t91356 = *((struct w49 *)(&t91354)); t91357 = (struct structure_type24753 *)NULL_TYPE; f27755(t91355, t91356, t91357); /* x227344 stalin.sc:32030:1106170 */ /* x227342 stalin.sc:32030:1106178 */ t91358 = a702; /* x227343 stalin.sc:32030:1106184 */ t91359 = "Determining which types are never allocated on the heap"; /* x227341 stalin.sc:32030:1106171 */ f19217(t91358, t91359); /* x227346 stalin.sc:32031:1106245 */ /* x227345 stalin.sc:32031:1106246 */ /* x116117 */ /* x116116 */ /* x116115 */ /* x116114 */ /* x116113 */ /* x116082 */ /* x116081 */ /* x116092 stalin.sc:13152:461337 */ /* x116091 stalin.sc:13155:461458 */ t91364 = a1942; /* x116090 stalin.sc:13152:461347 */ /* x116083 stalin.sc:13152:461338 */ t91365.tag = NATIVE_PROCEDURE_TYPE15377; t91366 = *((struct w49 *)(&t91364)); t91367 = (struct structure_type24753 *)NULL_TYPE; f27755(t91365, t91366, t91367); /* x116102 stalin.sc:13156:461475 */ /* x116101 stalin.sc:13159:461599 */ t91368 = a1940; /* x116100 stalin.sc:13156:461485 */ /* x116093 stalin.sc:13156:461476 */ t91369.tag = NATIVE_PROCEDURE_TYPE15376; t91370 = *((struct w49 *)(&t91368)); t91371 = (struct structure_type24753 *)NULL_TYPE; f27755(t91369, t91370, t91371); /* x116112 stalin.sc:13160:461619 */ /* x116111 stalin.sc:13163:461747 */ t91372 = a1939; /* x116110 stalin.sc:13160:461629 */ /* x116103 stalin.sc:13160:461620 */ t91373.tag = NATIVE_PROCEDURE_TYPE15375; t91374 = *((struct w49 *)(&t91372)); t91375 = (struct structure_type24753 *)NULL_TYPE; f27755(t91373, t91374, t91375); /* x116058 */ /* x116057 stalin.sc:13164:461771 */ /* x116056 stalin.sc:13167:461902 */ t91360 = a1938; /* x116055 stalin.sc:13164:461781 */ /* x116048 stalin.sc:13164:461772 */ t91361.tag = NATIVE_PROCEDURE_TYPE15389; t91362 = *((struct w49 *)(&t91360)); t91363 = (struct structure_type24753 *)NULL_TYPE; f27755(t91361, t91362, t91363); /* x227350 stalin.sc:32032:1106304 */ /* x227348 stalin.sc:32032:1106312 */ t91376 = a702; /* x227349 stalin.sc:32032:1106318 */ t91377 = "Determining which types are atomic"; /* x227347 stalin.sc:32032:1106305 */ f19217(t91376, t91377); /* x227352 stalin.sc:32033:1106358 */ /* x227351 stalin.sc:32033:1106359 */ /* x128424 */ /* x128399 stalin.sc:15826:551818 */ /* x128398 stalin.sc:15827:551887 */ t91394 = a1945; /* x128397 stalin.sc:15826:551828 */ /* x128392 stalin.sc:15826:551819 */ t91395.tag = NATIVE_PROCEDURE_TYPE15331; t91396 = *((struct w49 *)(&t91394)); t91397 = (struct structure_type24753 *)NULL_TYPE; f27755(t91395, t91396, t91397); /* x128407 stalin.sc:15828:551914 */ /* x128406 stalin.sc:15828:551972 */ t91398 = a1940; /* x128405 stalin.sc:15828:551924 */ /* x128400 stalin.sc:15828:551915 */ t91399.tag = NATIVE_PROCEDURE_TYPE15328; t91400 = *((struct w49 *)(&t91398)); t91401 = (struct structure_type24753 *)NULL_TYPE; f27755(t91399, t91400, t91401); /* x128415 stalin.sc:15829:551992 */ /* x128414 stalin.sc:15830:552058 */ t91402 = a1939; /* x128413 stalin.sc:15829:552002 */ /* x128408 stalin.sc:15829:551993 */ t91403.tag = NATIVE_PROCEDURE_TYPE15324; t91404 = *((struct w49 *)(&t91402)); t91405 = (struct structure_type24753 *)NULL_TYPE; f27755(t91403, t91404, t91405); /* x128423 stalin.sc:15831:552082 */ /* x128422 stalin.sc:15832:552151 */ t91406 = a1938; /* x128421 stalin.sc:15831:552092 */ /* x128416 stalin.sc:15831:552083 */ t91407.tag = NATIVE_PROCEDURE_TYPE15320; t91408 = *((struct w49 *)(&t91406)); t91409 = (struct structure_type24753 *)NULL_TYPE; f27755(t91407, t91408, t91409); /* x128391 */ /* x128390 stalin.sc:15833:552178 */ /* x128389 */ /* x128388 */ /* x128387 */ /* x128386 */ /* x128385 */ /* x128384 */ /* x128383 */ /* x128076 */ /* x128075 stalin.sc:15833:552183 */ h14173: /* x128382 stalin.sc:15834:552193 */ /* x128381 stalin.sc:15834:552207 */ /* x128380 */ a25738 = FALSE_TYPE; /* x128379 */ /* x128227 stalin.sc:15835:552215 */ /* x128226 stalin.sc:15867:553231 */ t91378 = a1945; /* x128225 stalin.sc:15836:552229 */ /* x128086 stalin.sc:15835:552216 */ t91379.tag = NATIVE_PROCEDURE_TYPE15365; t91380 = *((struct w49 *)(&t91378)); t91381 = (struct structure_type24753 *)NULL_TYPE; f27755(t91379, t91380, t91381); /* x128284 stalin.sc:15868:553260 */ /* x128283 stalin.sc:15882:553681 */ t91382 = a1940; /* x128282 stalin.sc:15869:553274 */ /* x128228 stalin.sc:15868:553261 */ t91383.tag = NATIVE_PROCEDURE_TYPE15363; t91384 = *((struct w49 *)(&t91382)); t91385 = (struct structure_type24753 *)NULL_TYPE; f27755(t91383, t91384, t91385); /* x128331 stalin.sc:15883:553703 */ /* x128330 stalin.sc:15893:554012 */ t91386 = a1939; /* x128329 stalin.sc:15884:553717 */ /* x128285 stalin.sc:15883:553704 */ t91387.tag = NATIVE_PROCEDURE_TYPE15358; t91388 = *((struct w49 *)(&t91386)); t91389 = (struct structure_type24753 *)NULL_TYPE; f27755(t91387, t91388, t91389); /* x128378 stalin.sc:15894:554038 */ /* x128377 stalin.sc:15904:554353 */ t91390 = a1938; /* x128376 stalin.sc:15895:554052 */ /* x128332 stalin.sc:15894:554039 */ t91391.tag = NATIVE_PROCEDURE_TYPE15341; t91392 = *((struct w49 *)(&t91390)); t91393 = (struct structure_type24753 *)NULL_TYPE; f27755(t91391, t91392, t91393); /* x128085 */ /* x128084 stalin.sc:15905:554382 */ /* x128077 stalin.sc:15905:554388 */ if (a25738==FALSE_TYPE) goto l17429; /* x128081 */ /* x128080 */ /* x128079 stalin.sc:15905:554395 */ /* x128078 stalin.sc:15905:554396 */ goto h14173; goto l17430; l17429: /* x128083 stalin.sc:15905:554382 */ /* x128082 stalin.sc:15905:554382 */ l17430: /* x227356 stalin.sc:32034:1106396 */ /* x227354 stalin.sc:32034:1106404 */ t91410 = a702; /* x227355 stalin.sc:32034:1106410 */ t91411 = "Determining which environments have regions"; /* x227353 stalin.sc:32034:1106397 */ f19217(t91410, t91411); /* x227358 stalin.sc:32035:1106459 */ /* x227357 stalin.sc:32035:1106460 */ /* x116256 */ /* x116199 stalin.sc:13180:462206 */ /* x116198 stalin.sc:13183:462325 */ t91416 = a1594; /* x116197 */ /* x116186 stalin.sc:13180:462207 */ t91417.tag = NATIVE_PROCEDURE_TYPE15313; t91418 = *((struct w49 *)(&t91416)); t91419 = (struct structure_type24753 *)NULL_TYPE; f27755(t91417, t91418, t91419); /* x116201 stalin.sc:13184:462332 */ /* x116200 stalin.sc:13184:462358 */ a1281 = FALSE_TYPE; /* x116255 stalin.sc:13185:462363 */ /* x116254 stalin.sc:13195:462737 */ t91420 = a2030; /* x116253 stalin.sc:13186:462375 */ /* x116202 stalin.sc:13185:462364 */ t91421.tag = NATIVE_PROCEDURE_TYPE15311; t91422 = *((struct w49 *)(&t91420)); t91423 = (struct structure_type24753 *)NULL_TYPE; f27755(t91421, t91422, t91423); /* x116185 */ /* x116184 stalin.sc:13196:462747 */ /* x116183 stalin.sc:13204:463044 */ t91412 = a1594; /* x116182 stalin.sc:13197:462759 */ /* x116139 stalin.sc:13196:462748 */ t91413.tag = NATIVE_PROCEDURE_TYPE15319; t91414 = *((struct w49 *)(&t91412)); t91415 = (struct structure_type24753 *)NULL_TYPE; f27755(t91413, t91414, t91415); /* x227387 stalin.sc:32038:1106640 */ /* x227359 stalin.sc:32038:1106646 */ if (a700==FALSE_TYPE) goto l17432; /* x227384 */ /* x227383 */ /* x227382 */ /* x227381 stalin.sc:32039:1106655 */ /* x227380 stalin.sc:32039:1106671 */ /* x227379 stalin.sc:32039:1106695 */ t91432 = a2026; /* x227378 stalin.sc:32039:1106672 */ t91429 = f13116(t91432); /* x227377 stalin.sc:32039:1106666 */ t91428 = "~s"; /* x227376 stalin.sc:32039:1106656 */ t91430 = t91428; t91431 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t91431==NULL) {backtrace("stalin.sc", 32039, 1106655); out_of_memory_error();} t91431->s0.tag = STRUCTURE_TYPE24753; t91431->s0.value.structure_type24753 = t91429; t91431->s1.tag = NULL_TYPE; f5376(t91430, t91431); /* x227375 */ /* x227374 stalin.sc:32040:1106704 */ /* x227373 stalin.sc:32043:1106808 */ t91424 = a1679; /* x227372 stalin.sc:32041:1106718 */ /* x227360 stalin.sc:32040:1106705 */ t91425.tag = NATIVE_PROCEDURE_TYPE16835; t91426 = *((struct w49 *)(&t91424)); t91427 = (struct structure_type24753 *)NULL_TYPE; f27755(t91425, t91426, t91427); goto l17433; l17432: /* x227386 stalin.sc:32038:1106640 */ /* x227385 stalin.sc:32038:1106640 */ l17433: /* x227543 stalin.sc:32044:1106817 */ /* x227388 stalin.sc:32044:1106823 */ if (a699==FALSE_TYPE) goto l17435; /* x227540 */ /* x227539 */ /* x227538 stalin.sc:32045:1106832 */ /* x227537 stalin.sc:32067:1107743 */ t91433 = a1594; /* x227536 stalin.sc:32045:1106842 */ /* x227389 stalin.sc:32045:1106833 */ t91434.tag = NATIVE_PROCEDURE_TYPE15298; t91435 = *((struct w49 *)(&t91433)); t91436 = (struct structure_type24753 *)NULL_TYPE; f27755(t91434, t91435, t91436); goto l17436; l17435: /* x227542 stalin.sc:32044:1106817 */ /* x227541 stalin.sc:32044:1106817 */ l17436: /* x228403 stalin.sc:32068:1107752 */ /* x227544 stalin.sc:32068:1107758 */ if (a698==FALSE_TYPE) goto l17438; /* x228400 */ /* x228399 */ /* x228398 */ /* x228397 stalin.sc:32069:1107767 */ /* x228396 stalin.sc:32069:1107777 */ /* x228394 stalin.sc:32069:1107788 */ /* x228395 stalin.sc:32069:1107806 */ t91465 = a1594; /* x228393 stalin.sc:32069:1107778 */ t91466 = NATIVE_PROCEDURE_TYPE7272; t91467 = *((struct w49 *)(&t91465)); t91453 = f1218(t91466, t91467); /* x228392 */ a33268 = t91453; /* x228391 */ /* x228390 stalin.sc:32070:1107818 */ /* x228389 stalin.sc:32071:1107831 */ /* x228386 stalin.sc:32071:1107835 */ /* x228384 stalin.sc:32071:1107838 */ /* x228383 stalin.sc:32071:1107846 */ t91463 = a33268; /* x228382 stalin.sc:32071:1107839 */ t91464 = *((struct w49 *)(&t91463)); t91461 = f26227(t91464); /* x228385 stalin.sc:32071:1107850 */ t91462 = 1; /* x267538 stalin.sc:32071:1107836 */ if (!(t91461==t91462)) goto l17447; /* x228387 stalin.sc:32072:1107855 */ t91458 = "The following non-in-line native procedure will be generated:"; goto l17448; l17447: /* x228388 stalin.sc:32073:1107921 */ t91458 = "The following non-in-line native procedures will be generated:"; l17448: /* x228380 stalin.sc:32070:1107819 */ t91459.tag = STRING_TYPE; t91459.value.string_type = t91458; t91460 = (struct structure_type24753 *)NULL_TYPE; f5365(t91459, t91460); /* x228379 */ /* x228378 stalin.sc:32074:1107992 */ /* x228377 stalin.sc:32150:1110456 */ t91454 = a33268; /* x228376 */ /* x228021 stalin.sc:32074:1107993 */ t91455.tag = NATIVE_PROCEDURE_TYPE15262; t91456 = *((struct w49 *)(&t91454)); t91457 = (struct structure_type24753 *)NULL_TYPE; f27755(t91455, t91456, t91457); /* x228020 */ /* x228019 stalin.sc:32151:1110464 */ /* x228018 stalin.sc:32152:1110477 */ /* x228016 stalin.sc:32153:1110496 */ /* x228017 stalin.sc:32176:1111184 */ t91450 = a1594; /* x227866 stalin.sc:32152:1110478 */ t91451.tag = NATIVE_PROCEDURE_TYPE15280; t91452 = *((struct w49 *)(&t91450)); t91437 = f1226(t91451, t91452); /* x227865 */ a33232 = t91437; /* x227864 */ /* x227863 stalin.sc:32177:1111196 */ /* x227847 stalin.sc:32177:1111204 */ /* x227846 stalin.sc:32177:1111211 */ t91442 = a33232; /* x267545 stalin.sc:32177:1111205 */ if (!((t91442.tag)==NULL_TYPE)) goto l17441; /* x227849 */ /* x227848 */ goto l17442; l17441: /* x227862 */ /* x227861 */ /* x227860 stalin.sc:32178:1111220 */ /* x227859 stalin.sc:32179:1111234 */ /* x227856 stalin.sc:32179:1111238 */ /* x227854 stalin.sc:32179:1111241 */ /* x227853 stalin.sc:32179:1111249 */ t91448 = *((struct w21691 *)(&a33232)); /* x227852 stalin.sc:32179:1111242 */ t91449 = *((struct w49 *)(&t91448)); t91446 = f26227(t91449); /* x227855 stalin.sc:32179:1111253 */ t91447 = 1; /* x267544 stalin.sc:32179:1111239 */ if (!(t91446==t91447)) goto l17444; /* x227857 stalin.sc:32180:1111259 */ t91443 = "The following non-trivial in-line native procedure will be generated:"; goto l17445; l17444: /* x227858 stalin.sc:32181:1111334 */ t91443 = "The following non-trivial in-line native procedures will be generated:"; l17445: /* x227850 stalin.sc:32178:1111221 */ t91444.tag = STRING_TYPE; t91444.value.string_type = t91443; t91445 = (struct structure_type24753 *)NULL_TYPE; f5365(t91444, t91445); l17442: /* x227844 */ /* x227843 stalin.sc:32182:1111414 */ /* x227842 stalin.sc:32232:1113235 */ t91438 = a33232; /* x227841 */ /* x227545 stalin.sc:32182:1111415 */ t91439.tag = NATIVE_PROCEDURE_TYPE15285; t91440 = *((struct w49 *)(&t91438)); t91441 = (struct structure_type24753 *)NULL_TYPE; f27755(t91439, t91440, t91441); goto l17439; l17438: /* x228402 stalin.sc:32068:1107752 */ /* x228401 stalin.sc:32068:1107752 */ l17439: /* x228708 stalin.sc:32233:1113243 */ /* x228404 stalin.sc:32234:1113250 */ if (a674==FALSE_TYPE) goto l17450; /* x228601 stalin.sc:32239:1113568 */ /* x228600 stalin.sc:32239:1113578 */ /* x228598 stalin.sc:32240:1113600 */ /* x228599 stalin.sc:32258:1114486 */ t91511 = a1524; /* x228554 stalin.sc:32239:1113579 */ t91512.tag = NATIVE_PROCEDURE_TYPE15250; /* MOVE: branching squeezed to general */ if (t91511>=((struct structure_type24753 *)VALUE_OFFSET)) {t91513.tag = STRUCTURE_TYPE24753; t91513.value.structure_type24753 = t91511;} else t91513.tag = (unsigned)t91511; t91491 = f1226(t91512, t91513); /* x228553 */ a33294 = t91491; /* x228552 stalin.sc:32259:1114498 */ /* x228407 stalin.sc:32259:1114506 */ /* x228406 stalin.sc:32259:1114513 */ t91492 = a33294; /* x267537 stalin.sc:32259:1114507 */ if (!((t91492.tag)==NULL_TYPE)) goto l17459; /* x228409 */ /* x228408 */ goto l17460; l17459: /* x228551 */ /* x228550 */ /* x228549 */ /* x228548 stalin.sc:32261:1114592 */ /* x228547 stalin.sc:32262:1114606 */ /* x228544 stalin.sc:32262:1114610 */ /* x228542 stalin.sc:32262:1114613 */ /* x228531 stalin.sc:32263:1114628 */ /* x228540 stalin.sc:32264:1114637 */ /* x228539 stalin.sc:32268:1114744 */ t91507 = *((struct w21691 *)(&a33294)); /* x228538 stalin.sc:32265:1114650 */ /* x228532 stalin.sc:32264:1114638 */ t91508.tag = NATIVE_PROCEDURE_TYPE15253; t91509 = *((struct w49 *)(&t91507)); t91510 = (struct structure_type24753 *)NULL_TYPE; t91502 = f27731(t91508, t91509, t91510); /* x228541 stalin.sc:32269:1114755 */ t91503 = 0; /* x228530 stalin.sc:32262:1114614 */ t91504 = NATIVE_PROCEDURE_TYPE414; /* MOVE: branching squeezed to general */ if (t91502>=((struct structure_type24753 *)VALUE_OFFSET)) {t91505.tag = STRUCTURE_TYPE24753; t91505.value.structure_type24753 = t91502;} else t91505.tag = (unsigned)t91502; t91506.tag = FIXNUM_TYPE; t91506.value.fixnum_type = t91503; t91500 = f1006(t91504, t91505, t91506); /* x228543 stalin.sc:32270:1114764 */ t91501 = 1; /* x267536 stalin.sc:32262:1114611 */ switch (t91500.tag) {case FIXNUM_TYPE: if (!((t91500.value.fixnum_type)==t91501)) goto l17462; break; case FLONUM_TYPE: if (!((t91500.value.flonum_type)==t91501)) goto l17462; break; default: backtrace("stalin.sc", 32262, 1114610); eql_error();} /* x228545 stalin.sc:32271:1114770 */ t91497 = "Warning! The following tail-recursive tail call is not merged:"; goto l17463; l17462: /* x228546 stalin.sc:32272:1114838 */ t91497 = "Warning! The following tail-recursive tail calls are not merged:"; l17463: /* x228528 stalin.sc:32261:1114593 */ t91498.tag = STRING_TYPE; t91498.value.string_type = t91497; t91499 = (struct structure_type24753 *)NULL_TYPE; f5365(t91498, t91499); /* x228527 */ /* x228526 stalin.sc:32273:1114912 */ /* x228525 stalin.sc:32297:1116045 */ t91493 = *((struct w21691 *)(&a33294)); /* x228524 */ /* x228410 stalin.sc:32273:1114913 */ t91494.tag = NATIVE_PROCEDURE_TYPE15255; t91495 = *((struct w49 *)(&t91493)); t91496 = (struct structure_type24753 *)NULL_TYPE; f27755(t91494, t91495, t91496); l17460: goto l17451; l17450: /* x228707 stalin.sc:32298:1116054 */ /* x228706 stalin.sc:32298:1116064 */ /* x228704 stalin.sc:32298:1116079 */ /* x228705 stalin.sc:32299:1116134 */ t91488 = a1524; /* x228703 stalin.sc:32298:1116065 */ t91489.tag = NATIVE_PROCEDURE_TYPE7238; /* MOVE: branching squeezed to general */ if (t91488>=((struct structure_type24753 *)VALUE_OFFSET)) {t91490.tag = STRUCTURE_TYPE24753; t91490.value.structure_type24753 = t91488;} else t91490.tag = (unsigned)t91488; t91468 = f1226(t91489, t91490); /* x228702 */ a33312 = t91468; /* x228701 stalin.sc:32300:1116146 */ /* x228604 stalin.sc:32300:1116154 */ /* x228603 stalin.sc:32300:1116161 */ t91469 = a33312; /* x267535 stalin.sc:32300:1116155 */ if (!((t91469.tag)==NULL_TYPE)) goto l17453; /* x228606 */ /* x228605 */ goto l17454; l17453: /* x228700 */ /* x228699 */ /* x228698 */ /* x228697 stalin.sc:32302:1116240 */ /* x228696 stalin.sc:32303:1116254 */ /* x228693 stalin.sc:32303:1116258 */ /* x228691 stalin.sc:32303:1116261 */ /* x228680 stalin.sc:32304:1116276 */ /* x228689 stalin.sc:32305:1116285 */ /* x228688 stalin.sc:32309:1116392 */ t91484 = *((struct w21691 *)(&a33312)); /* x228687 stalin.sc:32306:1116298 */ /* x228681 stalin.sc:32305:1116286 */ t91485.tag = NATIVE_PROCEDURE_TYPE15240; t91486 = *((struct w49 *)(&t91484)); t91487 = (struct structure_type24753 *)NULL_TYPE; t91479 = f27731(t91485, t91486, t91487); /* x228690 stalin.sc:32310:1116403 */ t91480 = 0; /* x228679 stalin.sc:32303:1116262 */ t91481 = NATIVE_PROCEDURE_TYPE414; /* MOVE: branching squeezed to general */ if (t91479>=((struct structure_type24753 *)VALUE_OFFSET)) {t91482.tag = STRUCTURE_TYPE24753; t91482.value.structure_type24753 = t91479;} else t91482.tag = (unsigned)t91479; t91483.tag = FIXNUM_TYPE; t91483.value.fixnum_type = t91480; t91477 = f1006(t91481, t91482, t91483); /* x228692 stalin.sc:32311:1116412 */ t91478 = 1; /* x267534 stalin.sc:32303:1116259 */ switch (t91477.tag) {case FIXNUM_TYPE: if (!((t91477.value.fixnum_type)==t91478)) goto l17456; break; case FLONUM_TYPE: if (!((t91477.value.flonum_type)==t91478)) goto l17456; break; default: backtrace("stalin.sc", 32303, 1116258); eql_error();} /* x228694 stalin.sc:32312:1116418 */ t91474 = "Warning! The following tail-recursive tail call is not merged:"; goto l17457; l17456: /* x228695 stalin.sc:32313:1116486 */ t91474 = "Warning! The following tail-recursive tail calls are not merged:"; l17457: /* x228677 stalin.sc:32302:1116241 */ t91475.tag = STRING_TYPE; t91475.value.string_type = t91474; t91476 = (struct structure_type24753 *)NULL_TYPE; f5365(t91475, t91476); /* x228676 */ /* x228675 stalin.sc:32314:1116560 */ /* x228674 stalin.sc:32329:1117248 */ t91470 = *((struct w21691 *)(&a33312)); /* x228673 */ /* x228607 stalin.sc:32314:1116561 */ t91471.tag = NATIVE_PROCEDURE_TYPE15247; t91472 = *((struct w49 *)(&t91470)); t91473 = (struct structure_type24753 *)NULL_TYPE; f27755(t91471, t91472, t91473); l17454: l17451: /* x228872 stalin.sc:32330:1117257 */ /* x228709 stalin.sc:32330:1117263 */ if (a697==FALSE_TYPE) goto l17465; /* x228869 */ /* x228868 */ /* x228867 */ /* x228866 stalin.sc:32331:1117272 */ /* x228865 stalin.sc:32354:1118056 */ t91518 = a2030; /* x228864 stalin.sc:32332:1117286 */ /* x228764 stalin.sc:32331:1117273 */ t91519.tag = NATIVE_PROCEDURE_TYPE15224; t91520 = *((struct w49 *)(&t91518)); t91521 = (struct structure_type24753 *)NULL_TYPE; f27755(t91519, t91520, t91521); /* x228763 */ /* x228762 stalin.sc:32355:1118068 */ /* x228761 stalin.sc:32365:1118435 */ t91514 = a1594; /* x228760 stalin.sc:32356:1118082 */ /* x228710 stalin.sc:32355:1118069 */ t91515.tag = NATIVE_PROCEDURE_TYPE15227; t91516 = *((struct w49 *)(&t91514)); t91517 = (struct structure_type24753 *)NULL_TYPE; f27755(t91515, t91516, t91517); goto l17466; l17465: /* x228871 stalin.sc:32330:1117257 */ /* x228870 stalin.sc:32330:1117257 */ l17466: /* x228876 stalin.sc:32366:1118444 */ /* x228874 stalin.sc:32366:1118452 */ t91522 = a702; /* x228875 stalin.sc:32366:1118458 */ t91523 = "Determining which type sets are squeezable"; /* x228873 stalin.sc:32366:1118445 */ f19217(t91522, t91523); /* x228878 stalin.sc:32367:1118506 */ /* x228877 stalin.sc:32367:1118507 */ /* x125377 stalin.sc:15124:527590 */ /* x125376 stalin.sc:15156:528709 */ t91524 = a1679; /* x125375 stalin.sc:15125:527602 */ /* x125206 stalin.sc:15124:527591 */ t91525.tag = NATIVE_PROCEDURE_TYPE15221; t91526 = *((struct w49 *)(&t91524)); t91527 = (struct structure_type24753 *)NULL_TYPE; f27755(t91525, t91526, t91527); /* x228882 stalin.sc:32368:1118552 */ /* x228880 stalin.sc:32368:1118560 */ t91528 = a702; /* x228881 stalin.sc:32368:1118566 */ t91529 = "Determining which type sets are squishable"; /* x228879 stalin.sc:32368:1118553 */ f19217(t91528, t91529); /* x228884 stalin.sc:32369:1118614 */ /* x228883 stalin.sc:32369:1118615 */ /* x126385 */ /* x126384 stalin.sc:15356:536071 */ /* x126383 stalin.sc:15356:536127 */ t91534 = a1679; /* x126382 stalin.sc:15356:536081 */ /* x126377 stalin.sc:15356:536072 */ t91535.tag = NATIVE_PROCEDURE_TYPE15207; t91536 = *((struct w49 *)(&t91534)); t91537 = (struct structure_type24753 *)NULL_TYPE; f27755(t91535, t91536, t91537); /* x126376 */ /* x126375 stalin.sc:15357:536134 */ /* x126374 */ /* x126373 */ /* x126372 */ /* x126371 */ /* x126370 */ /* x126369 */ /* x126368 */ /* x126169 */ /* x126168 stalin.sc:15357:536139 */ h13926: /* x126367 stalin.sc:15358:536149 */ /* x126366 stalin.sc:15358:536163 */ /* x126365 */ a25612 = FALSE_TYPE; /* x126364 */ /* x126363 stalin.sc:15359:536171 */ /* x126362 stalin.sc:15411:538302 */ t91530 = a1679; /* x126361 stalin.sc:15360:536185 */ /* x126179 stalin.sc:15359:536172 */ t91531.tag = NATIVE_PROCEDURE_TYPE15218; t91532 = *((struct w49 *)(&t91530)); t91533 = (struct structure_type24753 *)NULL_TYPE; f27755(t91531, t91532, t91533); /* x126178 */ /* x126177 stalin.sc:15412:538311 */ /* x126170 stalin.sc:15412:538317 */ if (a25612==FALSE_TYPE) goto l17468; /* x126174 */ /* x126173 */ /* x126172 stalin.sc:15412:538324 */ /* x126171 stalin.sc:15412:538325 */ goto h13926; goto l17469; l17468: /* x126176 stalin.sc:15412:538311 */ /* x126175 stalin.sc:15412:538311 */ l17469: /* x228888 stalin.sc:32370:1118660 */ /* x228886 stalin.sc:32370:1118668 */ t91538 = a702; /* x228887 stalin.sc:32370:1118674 */ t91539 = "Determining alignments"; /* x228885 stalin.sc:32370:1118661 */ f19217(t91538, t91539); /* x228890 stalin.sc:32371:1118702 */ /* x228889 stalin.sc:32371:1118703 */ f14026(); /* x228894 stalin.sc:32372:1118728 */ /* x228892 stalin.sc:32372:1118736 */ t91540 = a702; /* x228893 stalin.sc:32372:1118742 */ t91541 = "Assigning global squish tags"; /* x228891 stalin.sc:32372:1118729 */ f19217(t91540, t91541); /* x228896 stalin.sc:32373:1118776 */ /* x228895 stalin.sc:32373:1118777 */ f14543(); /* x228910 stalin.sc:32374:1118807 */ /* x228897 stalin.sc:32374:1118813 */ if (a679==FALSE_TYPE) goto l17471; /* x228907 */ /* x228906 */ /* x228905 */ /* x228904 stalin.sc:32375:1118843 */ /* x228902 stalin.sc:32375:1118851 */ t91546 = a702; /* x228903 stalin.sc:32375:1118857 */ t91547 = "Promoting representations"; /* x228901 stalin.sc:32375:1118844 */ f19217(t91546, t91547); /* x228900 */ /* x228899 stalin.sc:32376:1118889 */ /* x228898 stalin.sc:32376:1118890 */ /* x137443 stalin.sc:17614:616457 */ /* x137442 */ /* x137441 */ /* x137440 */ /* x137439 */ /* x137438 */ /* x137437 */ /* x137436 */ /* x137394 */ /* x137393 stalin.sc:17614:616462 */ h15133: /* x137435 */ /* x137405 stalin.sc:17615:616472 */ /* x137404 stalin.sc:17615:616487 */ a2038 = FALSE_TYPE; /* x137434 stalin.sc:17616:616493 */ /* x137433 stalin.sc:17624:616747 */ t91542 = a1594; /* x137432 stalin.sc:17616:616503 */ /* x137406 stalin.sc:17616:616494 */ t91543.tag = NATIVE_PROCEDURE_TYPE15129; t91544 = *((struct w49 *)(&t91542)); t91545 = (struct structure_type24753 *)NULL_TYPE; f27755(t91543, t91544, t91545); /* x137403 */ /* x137402 stalin.sc:17625:616755 */ /* x137395 stalin.sc:17625:616761 */ if (a2038==FALSE_TYPE) goto l17474; /* x137399 */ /* x137398 */ /* x137397 stalin.sc:17625:616770 */ /* x137396 stalin.sc:17625:616771 */ goto h15133; goto l17475; l17474: /* x137401 stalin.sc:17625:616755 */ /* x137400 stalin.sc:17625:616755 */ l17475: goto l17472; l17471: /* x228909 stalin.sc:32374:1118807 */ /* x228908 stalin.sc:32374:1118807 */ l17472: /* x228918 stalin.sc:32377:1118919 */ /* x228911 stalin.sc:32377:1118925 */ if (a702==FALSE_TYPE) goto l17477; /* x228915 */ /* x228914 */ /* x228913 stalin.sc:32377:1118931 */ /* x228912 stalin.sc:32377:1118932 */ /* x126697 stalin.sc:15416:538463 */ /* x126696 stalin.sc:15476:540522 */ t91548 = a1679; /* x126695 stalin.sc:15417:538475 */ /* x126388 stalin.sc:15416:538464 */ t91549.tag = NATIVE_PROCEDURE_TYPE15115; t91550 = *((struct w49 *)(&t91548)); t91551 = (struct structure_type24753 *)NULL_TYPE; f27755(t91549, t91550, t91551); goto l17478; l17477: /* x228917 stalin.sc:32377:1118919 */ /* x228916 stalin.sc:32377:1118919 */ l17478: /* x229042 stalin.sc:32381:1119152 */ /* x229041 stalin.sc:32410:1120204 */ t91552 = a1633; /* x229040 stalin.sc:32382:1119165 */ /* x228919 stalin.sc:32381:1119153 */ t91553.tag = NATIVE_PROCEDURE_TYPE15112; t91554 = *((struct w49 *)(&t91552)); t91555 = (struct structure_type24753 *)NULL_TYPE; f27755(t91553, t91554, t91555); /* x229046 stalin.sc:32411:1120212 */ /* x229044 stalin.sc:32411:1120220 */ t91556 = a702; /* x229045 stalin.sc:32411:1120226 */ t91557 = "Generating code"; /* x229043 stalin.sc:32411:1120213 */ f19217(t91556, t91557); /* x229733 stalin.sc:32413:1120315 */ /* x229732 stalin.sc:32413:1120326 */ /* x229731 stalin.sc:32413:1120327 */ /* x151550 stalin.sc:20505:718082 */ /* x151549 stalin.sc:20506:718102 */ /* x151548 stalin.sc:20615:721891 */ t92827 = a1594; /* x151547 stalin.sc:20507:718110 */ /* x151134 stalin.sc:20506:718103 */ t92828.tag = NATIVE_PROCEDURE_TYPE15013; t92829 = *((struct w49 *)(&t92827)); t92830 = (struct structure_type24753 *)NULL_TYPE; t92825 = f27731(t92828, t92829, t92830); /* x151133 stalin.sc:20505:718083 */ /* MOVE: branching squeezed to general */ if (t92825>=((struct structure_type24753 *)VALUE_OFFSET)) {t92826.tag = STRUCTURE_TYPE24753; t92826.value.structure_type24753 = t92825;} else t92826.tag = (unsigned)t92825; t91558 = f13492(t92826); /* x229730 */ a33333 = t91558; /* x229729 */ /* x229728 stalin.sc:32414:1120361 */ /* x229727 stalin.sc:32414:1120405 */ t92815 = a33333; /* x229726 stalin.sc:32414:1120378 */ /* x229725 stalin.sc:32414:1120379 */ /* x140034 stalin.sc:18013:632101 */ /* x140033 stalin.sc:18014:632121 */ /* x140032 stalin.sc:18025:632442 */ t92821 = a876; /* x140031 */ /* x139993 stalin.sc:18014:632122 */ t92822.tag = NATIVE_PROCEDURE_TYPE15024; /* MOVE: branching squeezed to general */ if (t92821>=((struct structure_type24753 *)VALUE_OFFSET)) {t92823.tag = STRUCTURE_TYPE24753; t92823.value.structure_type24753 = t92821;} else t92823.tag = (unsigned)t92821; t92824 = (struct structure_type24753 *)NULL_TYPE; t92819 = f27731(t92822, t92823, t92824); /* x139992 stalin.sc:18013:632102 */ /* MOVE: branching squeezed to general */ if (t92819>=((struct structure_type24753 *)VALUE_OFFSET)) {t92820.tag = STRUCTURE_TYPE24753; t92820.value.structure_type24753 = t92819;} else t92820.tag = (unsigned)t92819; t92814 = f13492(t92820); /* x229724 stalin.sc:32414:1120362 */ t92818.tag = STRUCTURE_TYPE24753; t92818.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92818.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32414, 1120361); out_of_memory_error();} t92818.value.structure_type24753->s0 = t92815; t92818.value.structure_type24753->s1.tag = NULL_TYPE; a41939 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41939==NULL) {backtrace("stalin.sc", 32414, 1120361); out_of_memory_error();} a41939->s0 = t92814; a41939->s1 = t92818; /* x301868 stalin.sc:14400:506485 */ /* x301867 stalin.sc:14400:506503 */ t92816 = a41939; /* x301866 stalin.sc:14400:506486 */ t92817.tag = STRUCTURE_TYPE24753; t92817.value.structure_type24753 = t92816; t91559 = f13492(t92817); /* x229723 */ a33334 = t91559; /* x229722 */ /* x229721 */ /* x229720 */ /* x229673 stalin.sc:32415:1120414 */ /* x229672 stalin.sc:32415:1120435 */ a1195 = (struct structure_type24753 *)NULL_TYPE; /* x229687 stalin.sc:32416:1120443 */ /* x229680 stalin.sc:32416:1120449 */ /* x229679 stalin.sc:32416:1120458 */ /* x229678 stalin.sc:32416:1120465 */ /* x229677 stalin.sc:32416:1120476 */ t92795 = a2026; /* x229676 stalin.sc:32416:1120466 */ t92793 = f8987(t92795); /* x229675 stalin.sc:32416:1120459 */ a36107 = t92793; /* x275785 */ /* x275784 */ t92794 = a36107; /* x275783 */ if (!(t92794>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 30256]"); structure_ref_error();} t92791 = t92794->s0; /* x229674 stalin.sc:32416:1120450 */ a41678 = t92791; /* x300824 stalin.sc:3942:133266 */ /* x300823 stalin.sc:3942:133284 */ t92792 = a41678; /* x300822 stalin.sc:3942:133267 */ if (f8214(t92792)==FALSE_TYPE) goto l17679; /* x229684 */ /* x229683 */ /* x229682 stalin.sc:32416:1120483 */ /* x229681 stalin.sc:32416:1120484 */ /* x296737 QobiScheme.sc:166:5314 */ /* x296736 QobiScheme.sc:166:5321 */ t92796 = "This shouldn\'t happen"; /* x296735 QobiScheme.sc:166:5315 */ stalin_panic(t92796); goto l17680; l17679: /* x229686 stalin.sc:32416:1120443 */ /* x229685 stalin.sc:32416:1120443 */ l17680: /* x229719 stalin.sc:32417:1120497 */ /* x229700 stalin.sc:32417:1120503 */ /* x229699 stalin.sc:32417:1120507 */ /* x229697 stalin.sc:32417:1120512 */ t92797 = a687; /* x229698 stalin.sc:32417:1120540 */ t92798 = q15; /* x267527 stalin.sc:32417:1120508 */ if (t92797==t92798) goto l17681; /* x229693 */ /* x229691 stalin.sc:32418:1120562 */ t92799 = a687; /* x229692 stalin.sc:32418:1120590 */ t92800 = q16; /* x267528 stalin.sc:32418:1120558 */ if (!(t92799==t92800)) goto l17682; l17681: /* x229716 */ /* x229715 */ /* x229714 stalin.sc:32420:1120675 */ /* x229713 stalin.sc:32421:1120694 */ /* x229712 stalin.sc:32422:1120717 */ /* x229711 stalin.sc:32423:1120748 */ /* x229710 stalin.sc:32423:1120764 */ /* x229707 stalin.sc:32423:1120769 */ t92810 = "fake"; /* x229709 stalin.sc:32423:1120776 */ /* x229708 stalin.sc:32423:1120777 */ /* x276377 stalin.sc:16167:562604 */ t92811 = "VALUE_OFFSET"; /* x229706 stalin.sc:32423:1120765 */ t92812.tag = STRING_TYPE; t92812.value.string_type = t92810; t92813.tag = STRING_TYPE; t92813.value.string_type = t92811; t92808 = f13542(t92812, t92813); /* x229705 stalin.sc:32423:1120749 */ t92809.tag = STRUCTURE_TYPE24753; t92809.value.structure_type24753 = t92808; t92804 = f13508(t92809); /* x229704 stalin.sc:32422:1120732 */ t92803 = a1251; /* x229703 stalin.sc:32422:1120718 */ t92807.tag = STRUCTURE_TYPE24753; t92807.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92807.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32422, 1120717); out_of_memory_error();} t92807.value.structure_type24753->s0 = t92804; t92807.value.structure_type24753->s1.tag = NULL_TYPE; a42096 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42096==NULL) {backtrace("stalin.sc", 32422, 1120717); out_of_memory_error();} a42096->s0 = t92803; a42096->s1 = t92807; /* x302496 stalin.sc:14386:505956 */ /* x302495 stalin.sc:14386:505972 */ t92805 = a42096; /* x302494 stalin.sc:14386:505957 */ t92806.tag = STRUCTURE_TYPE24753; t92806.value.structure_type24753 = t92805; t92802 = f13474(t92806); /* x229702 stalin.sc:32421:1120695 */ t92801 = f13514(t92802); /* x229701 stalin.sc:32420:1120676 */ f13460(t92801); goto l17683; l17682: /* x229718 stalin.sc:32417:1120497 */ /* x229717 stalin.sc:32417:1120497 */ l17683: /* x229671 */ /* x229670 stalin.sc:32424:1120802 */ /* x229669 stalin.sc:32424:1120812 */ /* x229668 stalin.sc:32424:1120824 */ /* x229667 stalin.sc:32424:1120845 */ t92789 = a2026; /* x229666 stalin.sc:32424:1120825 */ a39987 = t92789; /* x292617 */ /* x292616 */ t92790 = a39987; /* x292615 */ if (!((t92790.tag)==STRUCTURE_TYPE27698)) {backtrace_internal("[clone EXPRESSION-TYPE-SET[5567] 34904]"); structure_ref_error();} t92788 = t92790.value.structure_type27698->s10; /* x229665 stalin.sc:32424:1120813 */ t91560 = f8153(t92788); /* x229664 */ a33338 = t91560; /* x229663 */ /* x229662 stalin.sc:32425:1120858 */ /* x229661 stalin.sc:32425:1120865 */ /* x229660 stalin.sc:32425:1120876 */ t92787 = a2026; /* x229659 stalin.sc:32425:1120866 */ t92785 = f8987(t92787); /* x229658 stalin.sc:32425:1120859 */ a36009 = t92785; /* x275393 */ /* x275392 */ t92786 = a36009; /* x275391 */ if (!(t92786>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 30158]"); structure_ref_error();} t91561 = t92786->s0; /* x229657 */ a33339 = t91561; /* x229656 */ /* x229655 stalin.sc:32426:1120889 */ /* x229654 stalin.sc:32426:1120908 */ t92783 = a33339; /* x229653 stalin.sc:32426:1120890 */ a36851 = t92783; /* x280073 */ /* x280072 */ t92784 = a36851; /* x280071 */ if (!((t92784.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31768]"); structure_ref_error();} t91562 = t92784.value.structure_type27692->s9; /* x229652 */ a33340 = t91562; /* x229651 */ /* x229650 stalin.sc:32427:1120918 */ /* x229644 stalin.sc:32427:1120922 */ /* x229643 stalin.sc:32427:1120926 */ /* x229642 stalin.sc:32427:1120934 */ t92777 = a33339; /* x229641 stalin.sc:32427:1120927 */ a41729 = t92777; /* x301028 stalin.sc:3890:131852 */ /* x301027 stalin.sc:3890:131869 */ t92778 = a41729; /* x301026 stalin.sc:3890:131853 */ if (!(f8204(t92778)==FALSE_TYPE)) goto l17674; /* x229638 */ /* x229637 stalin.sc:32427:1120947 */ t92779 = a33339; /* x229636 stalin.sc:32427:1120938 */ a41643 = t92779; /* x300684 stalin.sc:3965:133896 */ /* x300683 stalin.sc:3965:133915 */ t92780 = a41643; /* x300682 stalin.sc:3965:133897 */ if (f8219(t92780)==FALSE_TYPE) goto l17675; l17674: /* x229647 stalin.sc:32428:1120954 */ /* x229646 stalin.sc:32428:1120974 */ t92781 = a33340; /* x229645 stalin.sc:32428:1120955 */ t92782 = f15531(t92781); t91563 = *((struct w60861 *)(&t92782)); goto l17676; l17675: /* x229649 stalin.sc:32429:1120980 */ /* x229648 stalin.sc:32429:1120981 */ /* x276757 stalin.sc:14693:514793 */ t91563.tag = STRING_TYPE; t91563.value.string_type = ""; l17676: /* x229633 */ a33341 = t91563; /* x229632 */ /* x229631 stalin.sc:32430:1120998 */ /* x229630 stalin.sc:32430:1121015 */ /* x229628 stalin.sc:32430:1121035 */ t92775 = a33338; /* x229629 stalin.sc:32430:1121037 */ /* x229627 stalin.sc:32430:1121016 */ t92776 = (struct structure_type27745 *)FALSE_TYPE; t92774 = f9368(t92775, t92776); /* x229626 stalin.sc:32430:1120999 */ t91564 = f8687(t92774); /* x229625 */ a33342 = t91564; /* x229624 */ /* x229623 stalin.sc:32431:1121050 */ /* x229605 stalin.sc:32431:1121054 */ /* x229595 stalin.sc:32431:1121059 */ /* x229594 stalin.sc:32431:1121063 */ /* x229593 stalin.sc:32431:1121071 */ t92754 = a33339; /* x229592 stalin.sc:32431:1121064 */ a41727 = t92754; /* x301020 stalin.sc:3890:131852 */ /* x301019 stalin.sc:3890:131869 */ t92755 = a41727; /* x301018 stalin.sc:3890:131853 */ if (!(f8204(t92755)==FALSE_TYPE)) goto l17672; /* x229589 */ /* x229588 stalin.sc:32431:1121084 */ t92756 = a33339; /* x229587 stalin.sc:32431:1121075 */ a41642 = t92756; /* x300680 stalin.sc:3965:133896 */ /* x300679 stalin.sc:3965:133915 */ t92757 = a41642; /* x300678 stalin.sc:3965:133897 */ if (f8219(t92757)==FALSE_TYPE) goto l17670; l17672: /* x229603 */ /* x229602 stalin.sc:32432:1121101 */ /* x229601 stalin.sc:32433:1121149 */ /* x229599 stalin.sc:32433:1121169 */ t92759 = a33338; /* x229600 stalin.sc:32433:1121171 */ /* x229598 stalin.sc:32433:1121150 */ t92760 = (struct structure_type27745 *)FALSE_TYPE; t92758 = f9368(t92759, t92760); /* x229597 stalin.sc:32432:1121102 */ if (!(f8481(t92758)==FALSE_TYPE)) goto l17670; /* x229614 stalin.sc:32434:1121182 */ /* x229613 stalin.sc:32434:1121223 */ t92768 = a33341; /* x229612 stalin.sc:32434:1121190 */ /* x229611 stalin.sc:32434:1121195 */ /* x229609 stalin.sc:32434:1121215 */ t92772 = a33338; /* x229610 stalin.sc:32434:1121217 */ /* x229608 stalin.sc:32434:1121196 */ t92773 = (struct structure_type27745 *)FALSE_TYPE; t92771 = f9368(t92772, t92773); /* x229607 stalin.sc:32434:1121191 */ t92767 = f14276(t92771); /* x229606 stalin.sc:32434:1121183 */ t92769.tag = STRUCTURE_TYPE24753; t92769.value.structure_type24753 = t92767; t92770.tag = STRUCTURE_TYPE24753; t92770.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92770.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32434, 1121182); out_of_memory_error();} t92770.value.structure_type24753->s0 = *((struct w49 *)(&t92768)); t92770.value.structure_type24753->s1.tag = NULL_TYPE; t91565 = f13543(t92769, t92770); goto l17671; l17670: /* x229622 stalin.sc:32435:1121229 */ /* x229621 stalin.sc:32435:1121237 */ /* x229620 stalin.sc:32435:1121242 */ /* x229618 stalin.sc:32435:1121262 */ t92765 = a33338; /* x229619 stalin.sc:32435:1121264 */ /* x229617 stalin.sc:32435:1121243 */ t92766 = (struct structure_type27745 *)FALSE_TYPE; t92764 = f9368(t92765, t92766); /* x229616 stalin.sc:32435:1121238 */ t92761 = f14276(t92764); /* x229615 stalin.sc:32435:1121230 */ t92762.tag = STRUCTURE_TYPE24753; t92762.value.structure_type24753 = t92761; t92763.tag = NULL_TYPE; t91565 = f13543(t92762, t92763); l17671: /* x229584 */ a33343 = t91565; /* x229583 */ /* x229582 stalin.sc:32436:1121279 */ /* x229581 stalin.sc:32452:1121780 */ /* x229494 stalin.sc:32452:1121784 */ /* x229492 stalin.sc:32452:1121793 */ /* x229493 stalin.sc:32452:1121806 */ t92720 = a33342; /* x229491 stalin.sc:32452:1121785 */ t92721.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8137(t92721, t92720).tag)==FALSE_TYPE) goto l17664; /* x229571 stalin.sc:32453:1121814 */ /* x229498 stalin.sc:32453:1121818 */ /* x229496 stalin.sc:32453:1121831 */ /* x229497 stalin.sc:32453:1121844 */ t92731 = a33342; /* x229495 stalin.sc:32453:1121819 */ t92732.tag = NATIVE_PROCEDURE_TYPE7430; if ((f8144(t92732, t92731).tag)==FALSE_TYPE) goto l17667; /* x229567 stalin.sc:32454:1121856 */ /* x229566 stalin.sc:32454:1121866 */ /* x229565 stalin.sc:32454:1121886 */ t92753 = a33342; /* x229564 stalin.sc:32454:1121867 */ t92736 = f15531(t92753); /* x229563 */ a33368 = t92736; /* x229562 stalin.sc:32455:1121901 */ /* x229561 stalin.sc:32457:1121967 */ /* x229509 stalin.sc:32458:1121984 */ /* x229510 stalin.sc:32459:1122001 */ t92750 = a33342; /* x229511 stalin.sc:32460:1122008 */ t92751 = a1194; /* x229512 stalin.sc:32461:1122022 */ t92752 = a33368; /* x229539 stalin.sc:32462:1122029 */ /* x229560 stalin.sc:32467:1122193 */ /* x229508 stalin.sc:32457:1121968 */ b26111 = (unsigned)NATIVE_PROCEDURE_TYPE7430; b26112 = t92750; b26113 = t92751; b26114 = *((struct w49 *)(&t92752)); b26115.tag = NATIVE_PROCEDURE_TYPE21415; b26116.tag = NATIVE_PROCEDURE_TYPE21414; t92738 = f14692(); /* x229507 stalin.sc:32456:1121921 */ /* x229504 stalin.sc:32456:1121927 */ /* x229502 stalin.sc:32456:1121951 */ t92747 = a33342; /* x229503 stalin.sc:32456:1121954 */ t92748 = a33368; /* x229501 stalin.sc:32456:1121928 */ t92749 = *((struct w49 *)(&t92748)); t92742 = f7025(t92747, t92749); /* x229505 stalin.sc:32456:1121958 */ t92743 = a33343; /* x229506 stalin.sc:32456:1121960 */ t92744 = a33342; /* x229500 stalin.sc:32456:1121922 */ t92745.tag = STRUCTURE_TYPE27501; t92745.value.structure_type27501 = t92742; t92746.tag = STRUCTURE_TYPE24753; t92746.value.structure_type24753 = t92743; t92737 = f15496(t92745, t92746, t92744); /* x229499 stalin.sc:32455:1121902 */ t92741.tag = STRUCTURE_TYPE24753; t92741.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92741.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32455, 1121901); out_of_memory_error();} t92741.value.structure_type24753->s0 = t92738; t92741.value.structure_type24753->s1.tag = NULL_TYPE; a41868 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41868==NULL) {backtrace("stalin.sc", 32455, 1121901); out_of_memory_error();} a41868->s0 = t92737; a41868->s1 = t92741; /* x301584 stalin.sc:14400:506485 */ /* x301583 stalin.sc:14400:506503 */ t92739 = a41868; /* x301582 stalin.sc:14400:506486 */ t92740.tag = STRUCTURE_TYPE24753; t92740.value.structure_type24753 = t92739; t92675 = f13492(t92740); goto l17668; l17667: /* x229570 stalin.sc:32472:1122338 */ /* x229569 stalin.sc:32472:1122348 */ t92733 = a33343; /* x229568 stalin.sc:32472:1122339 */ t92734 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t92734==NULL) {backtrace("stalin.sc", 32472, 1122338); out_of_memory_error();} t92734->s0.tag = STRUCTURE_TYPE24753; t92734->s0.value.structure_type24753 = t92733; t92734->s1.tag = NULL_TYPE; t92735 = f13646(t92734); t92675.tag = STRUCTURE_TYPE24753; t92675.value.structure_type24753 = t92735; l17668: goto l17665; l17664: /* x229580 stalin.sc:32473:1122356 */ /* x229579 stalin.sc:32473:1122393 */ /* x229578 stalin.sc:32473:1122403 */ /* x229577 stalin.sc:32473:1122404 */ /* x276911 stalin.sc:14555:511005 */ t92729 = "0"; /* x229576 stalin.sc:32473:1122394 */ t92730 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t92730==NULL) {backtrace("stalin.sc", 32473, 1122393); out_of_memory_error();} t92730->s0.tag = STRING_TYPE; t92730->s0.value.string_type = t92729; t92730->s1.tag = NULL_TYPE; t92723 = f13646(t92730); /* x229575 stalin.sc:32473:1122373 */ /* x229574 stalin.sc:32473:1122390 */ t92727 = a33343; /* x229573 stalin.sc:32473:1122374 */ t92728.tag = STRUCTURE_TYPE24753; t92728.value.structure_type24753 = t92727; t92722 = f13514(t92728); /* x229572 stalin.sc:32473:1122357 */ t92726.tag = STRUCTURE_TYPE24753; t92726.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92726.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32473, 1122356); out_of_memory_error();} t92726.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t92726.value.structure_type24753->s0.value.structure_type24753 = t92723; t92726.value.structure_type24753->s1.tag = NULL_TYPE; a41869 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41869==NULL) {backtrace("stalin.sc", 32473, 1122356); out_of_memory_error();} a41869->s0.tag = STRUCTURE_TYPE24753; a41869->s0.value.structure_type24753 = t92722; a41869->s1 = t92726; /* x301588 stalin.sc:14400:506485 */ /* x301587 stalin.sc:14400:506503 */ t92724 = a41869; /* x301586 stalin.sc:14400:506486 */ t92725.tag = STRUCTURE_TYPE24753; t92725.value.structure_type24753 = t92724; t92675 = f13492(t92725); l17665: /* x229490 stalin.sc:32447:1121618 */ /* x229481 stalin.sc:32447:1121622 */ /* x229473 stalin.sc:32447:1121627 */ /* x229472 stalin.sc:32447:1121631 */ /* x229471 stalin.sc:32447:1121639 */ t92707 = a33339; /* x229470 stalin.sc:32447:1121632 */ a41726 = t92707; /* x301016 stalin.sc:3890:131852 */ /* x301015 stalin.sc:3890:131869 */ t92708 = a41726; /* x301014 stalin.sc:3890:131853 */ if (!(f8204(t92708)==FALSE_TYPE)) goto l17661; /* x229467 */ /* x229466 stalin.sc:32447:1121652 */ t92709 = a33339; /* x229465 stalin.sc:32447:1121643 */ a41641 = t92709; /* x300676 stalin.sc:3965:133896 */ /* x300675 stalin.sc:3965:133915 */ t92710 = a41641; /* x300674 stalin.sc:3965:133897 */ if (f8219(t92710)==FALSE_TYPE) goto l17659; l17661: /* x229479 */ /* x229478 stalin.sc:32449:1121709 */ /* x229476 stalin.sc:32449:1121729 */ t92712 = a33338; /* x229477 stalin.sc:32449:1121731 */ /* x229475 stalin.sc:32449:1121710 */ t92713 = (struct structure_type27745 *)FALSE_TYPE; t92711 = f9368(t92712, t92713); /* x229474 stalin.sc:32448:1121666 */ if (f8481(t92711)==FALSE_TYPE) goto l17659; /* x229487 stalin.sc:32450:1121742 */ /* x229485 stalin.sc:32450:1121748 */ /* x229484 stalin.sc:32450:1121753 */ t92719 = a33339; /* x229483 stalin.sc:32450:1121749 */ t92714 = f14271(t92719); /* x229486 stalin.sc:32450:1121756 */ t92715 = a33341; /* x229482 stalin.sc:32450:1121743 */ t92716.tag = STRUCTURE_TYPE24753; t92716.value.structure_type24753 = t92714; t92717 = *((struct w49 *)(&t92715)); t92718 = f13637(t92716, t92717); t92674.tag = STRUCTURE_TYPE24753; t92674.value.structure_type24753 = t92718; goto l17660; l17659: /* x229489 stalin.sc:32451:1121763 */ /* x229488 stalin.sc:32451:1121764 */ /* x276633 stalin.sc:14693:514793 */ t92674.tag = STRING_TYPE; t92674.value.string_type = ""; l17660: /* x229462 stalin.sc:32437:1121303 */ /* x229432 stalin.sc:32437:1121307 */ /* x229431 stalin.sc:32437:1121311 */ /* x229430 stalin.sc:32437:1121319 */ t92680 = a33339; /* x229429 stalin.sc:32437:1121312 */ a41725 = t92680; /* x301012 stalin.sc:3890:131852 */ /* x301011 stalin.sc:3890:131869 */ t92681 = a41725; /* x301010 stalin.sc:3890:131853 */ if (!(f8204(t92681)==FALSE_TYPE)) goto l17650; /* x229426 */ /* x229425 stalin.sc:32437:1121322 */ /* x229424 stalin.sc:32437:1121331 */ t92682 = a33339; /* x229423 stalin.sc:32437:1121323 */ a41693 = t92682; /* x300884 stalin.sc:3916:132554 */ /* x300883 stalin.sc:3916:132572 */ t92683 = a41693; /* x300882 stalin.sc:3916:132555 */ if (!(f8209(t92683)==FALSE_TYPE)) goto l17650; /* x229420 */ /* x229419 stalin.sc:32437:1121344 */ t92684 = a33339; /* x229418 stalin.sc:32437:1121335 */ a41640 = t92684; /* x300672 stalin.sc:3965:133896 */ /* x300671 stalin.sc:3965:133915 */ t92685 = a41640; /* x300670 stalin.sc:3965:133897 */ if (f8219(t92685)==FALSE_TYPE) goto l17651; l17650: /* x229459 stalin.sc:32438:1121352 */ /* x229450 stalin.sc:32439:1121380 */ /* x229436 stalin.sc:32439:1121384 */ /* x229435 stalin.sc:32439:1121393 */ t92693 = a33339; /* x229434 stalin.sc:32439:1121385 */ a41692 = t92693; /* x300880 stalin.sc:3916:132554 */ /* x300879 stalin.sc:3916:132572 */ t92694 = a41692; /* x300878 stalin.sc:3916:132555 */ if (f8209(t92694)==FALSE_TYPE) goto l17656; /* x229445 stalin.sc:32440:1121405 */ /* x229440 stalin.sc:32441:1121432 */ /* x229439 stalin.sc:32441:1121451 */ t92701 = a33339; /* x229438 stalin.sc:32441:1121433 */ a36841 = t92701; /* x280033 */ /* x280032 */ t92702 = a36841; /* x280031 */ if (!((t92702.tag)==STRUCTURE_TYPE27692)) {backtrace_internal("[clone VARIABLE-TYPE-SET[6589] 31758]"); structure_ref_error();} t92698 = t92702.value.structure_type27692->s9; /* x229444 stalin.sc:32441:1121454 */ /* x229442 stalin.sc:32441:1121464 */ t92703 = a33339; /* x229443 stalin.sc:32441:1121466 */ /* x229441 stalin.sc:32441:1121455 */ t92704.tag = FALSE_TYPE; t92699 = f14754(t92703, t92704); /* x229437 stalin.sc:32440:1121406 */ t92700 = *((struct w49 *)(&t92699)); t92686 = f7025(t92698, t92700); goto l17657; l17656: /* x229449 stalin.sc:32442:1121480 */ /* x229447 stalin.sc:32442:1121504 */ t92695 = a33340; /* x229448 stalin.sc:32442:1121506 */ t92696 = a33341; /* x229446 stalin.sc:32442:1121481 */ t92697 = *((struct w49 *)(&t92696)); t92686 = f7025(t92695, t92697); l17657: /* x229454 stalin.sc:32443:1121515 */ /* x229452 stalin.sc:32443:1121532 */ /* x229453 stalin.sc:32443:1121565 */ t92705 = a33340; /* x229451 stalin.sc:32443:1121516 */ t92706.tag = NATIVE_PROCEDURE_TYPE7407; t92687 = f8157(t92706, t92705); /* x229456 stalin.sc:32444:1121573 */ /* x229455 stalin.sc:32444:1121574 */ /* x276961 stalin.sc:14445:507721 */ t92688 = "argv"; /* x229458 stalin.sc:32445:1121587 */ /* x229457 stalin.sc:32445:1121588 */ /* x276969 stalin.sc:14443:507695 */ t92689 = "argc"; /* x229433 stalin.sc:32438:1121353 */ t92690 = t92686; t92691.tag = STRING_TYPE; t92691.value.string_type = t92688; t92692.tag = STRING_TYPE; t92692.value.string_type = t92689; t92673 = f15512(t92690, t92687, t92691, t92692); goto l17652; l17651: /* x229461 stalin.sc:32446:1121601 */ /* x229460 stalin.sc:32446:1121602 */ /* x276631 stalin.sc:14693:514793 */ t92673.tag = STRING_TYPE; t92673.value.string_type = ""; l17652: /* x229413 stalin.sc:32436:1121280 */ t92679.tag = STRUCTURE_TYPE24753; t92679.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92679.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32436, 1121279); out_of_memory_error();} t92679.value.structure_type24753->s0 = t92675; t92679.value.structure_type24753->s1.tag = NULL_TYPE; t92678.tag = STRUCTURE_TYPE24753; t92678.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92678.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32436, 1121279); out_of_memory_error();} t92678.value.structure_type24753->s0 = *((struct w49 *)(&t92674)); t92678.value.structure_type24753->s1 = t92679; a41867 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41867==NULL) {backtrace("stalin.sc", 32436, 1121279); out_of_memory_error();} a41867->s0 = t92673; a41867->s1 = t92678; /* x301580 stalin.sc:14400:506485 */ /* x301579 stalin.sc:14400:506503 */ t92676 = a41867; /* x301578 stalin.sc:14400:506486 */ t92677.tag = STRUCTURE_TYPE24753; t92677.value.structure_type24753 = t92676; t91566 = f13492(t92677); /* x229412 */ a33344 = t91566; /* x229411 */ /* x229410 stalin.sc:32474:1122420 */ /* x229409 stalin.sc:32503:1123456 */ /* x229408 stalin.sc:32504:1123479 */ /* x229407 stalin.sc:32572:1125536 */ t92031 = a33344; /* x229406 stalin.sc:32568:1125409 */ /* x229389 stalin.sc:32568:1125416 */ if (a675==FALSE_TYPE) goto l17648; /* x229401 */ /* x229400 */ /* x229399 */ /* x229398 stalin.sc:32569:1125439 */ /* x229397 stalin.sc:32569:1125449 */ t92671 = "Tmk"; /* x229396 stalin.sc:32569:1125440 */ t92672.tag = STRING_TYPE; t92672.value.string_type = t92671; f18320(t92672); /* x229395 */ /* x229394 stalin.sc:32570:1125478 */ /* x229393 stalin.sc:32570:1125501 */ /* x229392 stalin.sc:32570:1125502 */ /* x276905 stalin.sc:14555:511005 */ t92667 = "0"; /* x229391 stalin.sc:32570:1125487 */ t92666 = "Tmk_barrier"; /* x229390 stalin.sc:32570:1125479 */ t92668.tag = STRING_TYPE; t92668.value.string_type = t92666; t92669 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t92669==NULL) {backtrace("stalin.sc", 32570, 1125478); out_of_memory_error();} t92669->s0.tag = STRING_TYPE; t92669->s0.value.string_type = t92667; t92669->s1.tag = NULL_TYPE; t92670 = f13645(t92668, t92669); t92030.tag = STRUCTURE_TYPE24753; t92030.value.structure_type24753 = t92670; goto l17649; l17648: /* x229405 */ /* x229404 */ /* x229403 stalin.sc:32571:1125523 */ /* x229402 stalin.sc:32571:1125524 */ /* x276627 stalin.sc:14693:514793 */ t92030.tag = STRING_TYPE; t92030.value.string_type = ""; l17649: /* x229388 stalin.sc:32537:1124556 */ /* x229287 stalin.sc:32537:1124560 */ if (a690==FALSE_TYPE) goto l17639; /* x229358 stalin.sc:32538:1124588 */ /* x229288 stalin.sc:32539:1124602 */ if (a675==FALSE_TYPE) goto l17645; /* x229333 */ /* x229332 */ /* x229331 */ /* x229330 stalin.sc:32540:1124624 */ /* x229329 stalin.sc:32540:1124634 */ t92664 = "Tmk"; /* x229328 stalin.sc:32540:1124625 */ t92665.tag = STRING_TYPE; t92665.value.string_type = t92664; f18320(t92665); /* x229327 */ /* x229326 stalin.sc:32541:1124662 */ /* x229294 stalin.sc:32541:1124668 */ /* x229291 stalin.sc:32541:1124674 */ t92647 = "Tmk_proc_id"; /* x229293 stalin.sc:32541:1124688 */ /* x229292 stalin.sc:32541:1124689 */ /* x276901 stalin.sc:14555:511005 */ t92648 = "0"; /* x229290 stalin.sc:32541:1124669 */ t92649.tag = STRING_TYPE; t92649.value.string_type = t92647; t92650.tag = STRING_TYPE; t92650.value.string_type = t92648; t92642 = f13591(t92649, t92650); /* x229322 stalin.sc:32542:1124702 */ /* x229321 stalin.sc:32550:1124920 */ /* x229320 stalin.sc:32550:1124921 */ t92653 = f15695(); /* x229319 stalin.sc:32549:1124882 */ /* x229318 stalin.sc:32549:1124883 */ t92652 = f15641(); /* x229317 stalin.sc:32543:1124727 */ /* x229316 stalin.sc:32544:1124754 */ /* x229315 stalin.sc:32548:1124867 */ t92660 = a1594; /* x229314 stalin.sc:32544:1124759 */ /* x229297 stalin.sc:32544:1124755 */ t92661.tag = NATIVE_PROCEDURE_TYPE21448; t92662 = *((struct w49 *)(&t92660)); t92663 = (struct structure_type24753 *)NULL_TYPE; t92658 = f27731(t92661, t92662, t92663); /* x229296 stalin.sc:32543:1124728 */ /* MOVE: branching squeezed to general */ if (t92658>=((struct structure_type24753 *)VALUE_OFFSET)) {t92659.tag = STRUCTURE_TYPE24753; t92659.value.structure_type24753 = t92658;} else t92659.tag = (unsigned)t92658; t92651 = f13492(t92659); /* x229295 stalin.sc:32542:1124703 */ t92657.tag = STRUCTURE_TYPE24753; t92657.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92657.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32542, 1124702); out_of_memory_error();} t92657.value.structure_type24753->s0 = t92653; t92657.value.structure_type24753->s1.tag = NULL_TYPE; t92656.tag = STRUCTURE_TYPE24753; t92656.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92656.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32542, 1124702); out_of_memory_error();} t92656.value.structure_type24753->s0 = t92652; t92656.value.structure_type24753->s1 = t92657; a41865 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41865==NULL) {backtrace("stalin.sc", 32542, 1124702); out_of_memory_error();} a41865->s0 = t92651; a41865->s1 = t92656; /* x301572 stalin.sc:14400:506485 */ /* x301571 stalin.sc:14400:506503 */ t92654 = a41865; /* x301570 stalin.sc:14400:506486 */ t92655.tag = STRUCTURE_TYPE24753; t92655.value.structure_type24753 = t92654; t92643 = f13492(t92655); /* x229324 stalin.sc:32551:1124967 */ /* x229323 stalin.sc:32551:1124968 */ /* x276621 stalin.sc:14693:514793 */ t92644 = ""; /* x229325 stalin.sc:32552:1124983 */ /* x229289 stalin.sc:32541:1124663 */ t92645.tag = STRING_TYPE; t92645.value.string_type = t92644; t92646 = FALSE_TYPE; t92029 = f13672(t92642, t92643, t92645, t92646); goto l17646; l17645: /* x229357 */ /* x229356 */ /* x229355 stalin.sc:32553:1125001 */ /* x229354 stalin.sc:32554:1125026 */ /* x229353 stalin.sc:32558:1125145 */ t92638 = a1594; /* x229352 stalin.sc:32554:1125031 */ /* x229335 stalin.sc:32554:1125027 */ t92639.tag = NATIVE_PROCEDURE_TYPE21445; t92640 = *((struct w49 *)(&t92638)); t92641 = (struct structure_type24753 *)NULL_TYPE; t92636 = f27731(t92639, t92640, t92641); /* x229334 stalin.sc:32553:1125002 */ /* MOVE: branching squeezed to general */ if (t92636>=((struct structure_type24753 *)VALUE_OFFSET)) {t92637.tag = STRUCTURE_TYPE24753; t92637.value.structure_type24753 = t92636;} else t92637.tag = (unsigned)t92636; t92029 = f13492(t92637); l17646: goto l17640; l17639: /* x229387 stalin.sc:32559:1125160 */ /* x229359 stalin.sc:32559:1125167 */ if (a675==FALSE_TYPE) goto l17642; /* x229382 */ /* x229381 */ /* x229380 */ /* x229379 stalin.sc:32560:1125187 */ /* x229378 stalin.sc:32560:1125197 */ t92634 = "Tmk"; /* x229377 stalin.sc:32560:1125188 */ t92635.tag = STRING_TYPE; t92635.value.string_type = t92634; f18320(t92635); /* x229376 */ /* x229375 stalin.sc:32561:1125223 */ /* x229365 stalin.sc:32561:1125229 */ /* x229362 stalin.sc:32561:1125235 */ t92625 = "Tmk_proc_id"; /* x229364 stalin.sc:32561:1125249 */ /* x229363 stalin.sc:32561:1125250 */ /* x276903 stalin.sc:14555:511005 */ t92626 = "0"; /* x229361 stalin.sc:32561:1125230 */ t92627.tag = STRING_TYPE; t92627.value.string_type = t92625; t92628.tag = STRING_TYPE; t92628.value.string_type = t92626; t92620 = f13591(t92627, t92628); /* x229371 stalin.sc:32562:1125261 */ /* x229370 stalin.sc:32564:1125320 */ /* x229369 stalin.sc:32564:1125321 */ t92630 = f15695(); /* x229368 stalin.sc:32563:1125284 */ /* x229367 stalin.sc:32563:1125285 */ t92629 = f15641(); /* x229366 stalin.sc:32562:1125262 */ t92633.tag = STRUCTURE_TYPE24753; t92633.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92633.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32562, 1125261); out_of_memory_error();} t92633.value.structure_type24753->s0 = t92630; t92633.value.structure_type24753->s1.tag = NULL_TYPE; a41866 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41866==NULL) {backtrace("stalin.sc", 32562, 1125261); out_of_memory_error();} a41866->s0 = t92629; a41866->s1 = t92633; /* x301576 stalin.sc:14400:506485 */ /* x301575 stalin.sc:14400:506503 */ t92631 = a41866; /* x301574 stalin.sc:14400:506486 */ t92632.tag = STRUCTURE_TYPE24753; t92632.value.structure_type24753 = t92631; t92621 = f13492(t92632); /* x229373 stalin.sc:32565:1125365 */ /* x229372 stalin.sc:32565:1125366 */ /* x276623 stalin.sc:14693:514793 */ t92622 = ""; /* x229374 stalin.sc:32566:1125379 */ /* x229360 stalin.sc:32561:1125224 */ t92623.tag = STRING_TYPE; t92623.value.string_type = t92622; t92624 = FALSE_TYPE; t92029 = f13672(t92620, t92621, t92623, t92624); goto l17643; l17642: /* x229386 */ /* x229385 */ /* x229384 stalin.sc:32567:1125395 */ /* x229383 stalin.sc:32567:1125396 */ /* x276625 stalin.sc:14693:514793 */ t92029.tag = STRING_TYPE; t92029.value.string_type = ""; l17643: l17640: /* x229286 stalin.sc:32534:1124473 */ /* x229281 stalin.sc:32534:1124477 */ /* x229278 stalin.sc:32534:1124482 */ /* x229285 stalin.sc:32536:1124544 */ /* x229284 stalin.sc:32536:1124545 */ /* x276619 stalin.sc:14693:514793 */ t92028 = ""; /* x229277 stalin.sc:32529:1124196 */ /* x229276 stalin.sc:32529:1124197 */ /* x151736 stalin.sc:20677:723677 */ /* x151735 stalin.sc:20678:723697 */ /* x151722 stalin.sc:20678:723704 */ /* x151734 stalin.sc:20679:723756 */ /* x151733 stalin.sc:20680:723775 */ /* x151732 stalin.sc:20681:723788 */ /* x151728 stalin.sc:20681:723791 */ /* x151727 stalin.sc:20681:723799 */ t92617 = a1196; /* x151726 stalin.sc:20681:723792 */ /* MOVE: branching squeezed to general */ if (t92617>=((struct structure_type24753 *)VALUE_OFFSET)) {t92618.tag = STRUCTURE_TYPE24753; t92618.value.structure_type24753 = t92617;} else t92618.tag = (unsigned)t92617; t92615 = f26227(t92618); /* x151731 stalin.sc:20682:723821 */ /* x151730 stalin.sc:20683:723845 */ t92619 = a839; /* x268376 stalin.sc:20682:723822 */ t92616 = (float)t92619; /* x268377 stalin.sc:20681:723789 */ t92614 = t92615/t92616; /* x268378 stalin.sc:20680:723776 */ t92613 = ceil(t92614); /* x268379 stalin.sc:20679:723757 */ t92610 = (int)t92613; /* x151716 stalin.sc:20678:723698 */ t92611.tag = NATIVE_PROCEDURE_TYPE21449; t92612.tag = FIXNUM_TYPE; t92612.value.fixnum_type = t92610; t92608 = f1149(t92611, t92612); /* x151715 stalin.sc:20677:723678 */ t92609 = *((struct w49 *)(&t92608)); t92027 = f13492(t92609); /* x229275 stalin.sc:32507:1123567 */ /* x229195 stalin.sc:32507:1123574 */ if (a675==FALSE_TYPE) goto l17635; /* x229270 */ /* x229269 */ /* x229268 */ /* x229261 stalin.sc:32508:1123597 */ /* x229260 stalin.sc:32508:1123607 */ t92602 = "Tmk"; /* x229259 stalin.sc:32508:1123598 */ t92603.tag = STRING_TYPE; t92603.value.string_type = t92602; f18320(t92603); /* x229264 stalin.sc:32509:1123636 */ /* x229263 stalin.sc:32509:1123646 */ t92604 = "unistd"; /* x229262 stalin.sc:32509:1123637 */ t92605.tag = STRING_TYPE; t92605.value.string_type = t92604; f18320(t92605); /* x229267 stalin.sc:32510:1123673 */ /* x229266 stalin.sc:32510:1123683 */ t92606 = "string"; /* x229265 stalin.sc:32510:1123674 */ t92607.tag = STRING_TYPE; t92607.value.string_type = t92606; f18320(t92607); /* x229258 */ /* x229257 stalin.sc:32511:1123710 */ /* x229256 stalin.sc:32527:1124125 */ /* x229255 stalin.sc:32527:1124157 */ /* x229254 stalin.sc:32527:1124158 */ /* x276959 stalin.sc:14445:507721 */ t92598 = "argv"; /* x229253 stalin.sc:32527:1124148 */ /* x229252 stalin.sc:32527:1124149 */ /* x276967 stalin.sc:14443:507695 */ t92597 = "argc"; /* x229251 stalin.sc:32527:1124134 */ t92596 = "Tmk_startup"; /* x229250 stalin.sc:32527:1124126 */ t92599.tag = STRING_TYPE; t92599.value.string_type = t92596; t92601.tag = STRUCTURE_TYPE24753; t92601.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92601.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32527, 1124125); out_of_memory_error();} t92601.value.structure_type24753->s0.tag = STRING_TYPE; t92601.value.structure_type24753->s0.value.string_type = t92598; t92601.value.structure_type24753->s1.tag = NULL_TYPE; t92600 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t92600==NULL) {backtrace("stalin.sc", 32527, 1124125); out_of_memory_error();} t92600->s0.tag = STRING_TYPE; t92600->s0.value.string_type = t92597; t92600->s1 = t92601; t92535 = f13645(t92599, t92600); /* x229249 stalin.sc:32519:1123907 */ /* x229240 stalin.sc:32519:1123913 */ /* x229239 stalin.sc:32520:1123951 */ /* x229238 stalin.sc:32521:1123967 */ /* x229237 stalin.sc:32523:1124036 */ t92584 = "\"--\""; /* x229236 stalin.sc:32522:1123994 */ /* x229234 stalin.sc:32522:1124007 */ /* x229233 stalin.sc:32522:1124008 */ /* x276957 stalin.sc:14445:507721 */ t92588 = "argv"; /* x229235 stalin.sc:32522:1124016 */ t92589 = "optind"; /* x229232 stalin.sc:32522:1123995 */ t92590.tag = STRING_TYPE; t92590.value.string_type = t92588; t92591.tag = STRING_TYPE; t92591.value.string_type = t92589; t92583 = f13540(t92590, t92591); /* x229231 stalin.sc:32521:1123975 */ t92582 = "strcmp"; /* x229230 stalin.sc:32521:1123968 */ t92585.tag = STRING_TYPE; t92585.value.string_type = t92582; t92587.tag = STRUCTURE_TYPE24753; t92587.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92587.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32521, 1123967); out_of_memory_error();} t92587.value.structure_type24753->s0.tag = STRING_TYPE; t92587.value.structure_type24753->s0.value.string_type = t92584; t92587.value.structure_type24753->s1.tag = NULL_TYPE; t92586.tag = STRUCTURE_TYPE24753; t92586.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92586.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32521, 1123967); out_of_memory_error();} t92586.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t92586.value.structure_type24753->s0.value.structure_type24753 = t92583; t92586.value.structure_type24753->s1 = t92587; t92580 = f13543(t92585, t92586); /* x229229 stalin.sc:32520:1123952 */ t92581.tag = STRUCTURE_TYPE24753; t92581.value.structure_type24753 = t92580; t92573 = f13592(t92581); /* x229228 stalin.sc:32519:1123919 */ /* x229225 stalin.sc:32519:1123924 */ t92576 = "optind"; /* x229227 stalin.sc:32519:1123933 */ /* x229226 stalin.sc:32519:1123934 */ /* x276965 stalin.sc:14443:507695 */ t92577 = "argc"; /* x229224 stalin.sc:32519:1123920 */ t92578.tag = STRING_TYPE; t92578.value.string_type = t92576; t92579.tag = STRING_TYPE; t92579.value.string_type = t92577; t92572 = f13601(t92578, t92579); /* x229223 stalin.sc:32519:1123914 */ t92575.tag = STRUCTURE_TYPE24753; t92575.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92575.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32519, 1123913); out_of_memory_error();} t92575.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t92575.value.structure_type24753->s0.value.structure_type24753 = t92573; t92575.value.structure_type24753->s1.tag = NULL_TYPE; t92574 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t92574==NULL) {backtrace("stalin.sc", 32519, 1123913); out_of_memory_error();} t92574->s0.tag = STRUCTURE_TYPE24753; t92574->s0.value.structure_type24753 = t92572; t92574->s1 = t92575; t92566 = f13564(t92574); /* x229245 stalin.sc:32524:1124057 */ /* x229244 stalin.sc:32524:1124074 */ /* x229243 stalin.sc:32524:1124080 */ t92594 = "optind"; /* x229242 stalin.sc:32524:1124075 */ t92595.tag = STRING_TYPE; t92595.value.string_type = t92594; t92592 = f13633(t92595); /* x229241 stalin.sc:32524:1124058 */ t92593.tag = STRUCTURE_TYPE24753; t92593.value.structure_type24753 = t92592; t92567 = f13514(t92593); /* x229247 stalin.sc:32525:1124100 */ /* x229246 stalin.sc:32525:1124101 */ /* x276615 stalin.sc:14693:514793 */ t92568 = ""; /* x229248 stalin.sc:32526:1124118 */ /* x229222 stalin.sc:32519:1123908 */ t92569.tag = STRUCTURE_TYPE24753; t92569.value.structure_type24753 = t92567; t92570.tag = STRING_TYPE; t92570.value.string_type = t92568; t92571 = FALSE_TYPE; t92534 = f13672(t92566, t92569, t92570, t92571); /* x229221 stalin.sc:32512:1123730 */ /* x229215 stalin.sc:32513:1123743 */ /* x229214 stalin.sc:32514:1123783 */ /* x229213 stalin.sc:32515:1123794 */ /* x229212 stalin.sc:32517:1123853 */ t92554 = "\"--\""; /* x229211 stalin.sc:32516:1123816 */ /* x229209 stalin.sc:32516:1123829 */ /* x229208 stalin.sc:32516:1123830 */ /* x276955 stalin.sc:14445:507721 */ t92558 = "argv"; /* x229210 stalin.sc:32516:1123838 */ t92559 = "optind"; /* x229207 stalin.sc:32516:1123817 */ t92560.tag = STRING_TYPE; t92560.value.string_type = t92558; t92561.tag = STRING_TYPE; t92561.value.string_type = t92559; t92553 = f13540(t92560, t92561); /* x229206 stalin.sc:32515:1123802 */ t92552 = "strcmp"; /* x229205 stalin.sc:32515:1123795 */ t92555.tag = STRING_TYPE; t92555.value.string_type = t92552; t92557.tag = STRUCTURE_TYPE24753; t92557.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92557.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32515, 1123794); out_of_memory_error();} t92557.value.structure_type24753->s0.tag = STRING_TYPE; t92557.value.structure_type24753->s0.value.string_type = t92554; t92557.value.structure_type24753->s1.tag = NULL_TYPE; t92556.tag = STRUCTURE_TYPE24753; t92556.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92556.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32515, 1123794); out_of_memory_error();} t92556.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t92556.value.structure_type24753->s0.value.structure_type24753 = t92553; t92556.value.structure_type24753->s1 = t92557; t92551 = f13543(t92555, t92556); /* x229204 stalin.sc:32514:1123784 */ t92544 = f13599(t92551); /* x229203 stalin.sc:32513:1123749 */ /* x229200 stalin.sc:32513:1123754 */ t92547 = "optind"; /* x229202 stalin.sc:32513:1123763 */ /* x229201 stalin.sc:32513:1123764 */ /* x276963 stalin.sc:14443:507695 */ t92548 = "argc"; /* x229199 stalin.sc:32513:1123750 */ t92549.tag = STRING_TYPE; t92549.value.string_type = t92547; t92550.tag = STRING_TYPE; t92550.value.string_type = t92548; t92543 = f13601(t92549, t92550); /* x229198 stalin.sc:32513:1123744 */ t92546.tag = STRUCTURE_TYPE24753; t92546.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92546.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32513, 1123743); out_of_memory_error();} t92546.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t92546.value.structure_type24753->s0.value.structure_type24753 = t92544; t92546.value.structure_type24753->s1.tag = NULL_TYPE; t92545 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t92545==NULL) {backtrace("stalin.sc", 32513, 1123743); out_of_memory_error();} t92545->s0.tag = STRUCTURE_TYPE24753; t92545->s0.value.structure_type24753 = t92543; t92545->s1 = t92546; t92540 = f13564(t92545); /* x229220 stalin.sc:32518:1123869 */ /* x229219 stalin.sc:32518:1123886 */ /* x229218 stalin.sc:32518:1123892 */ t92564 = "optind"; /* x229217 stalin.sc:32518:1123887 */ t92565.tag = STRING_TYPE; t92565.value.string_type = t92564; t92562 = f13633(t92565); /* x229216 stalin.sc:32518:1123870 */ t92563.tag = STRUCTURE_TYPE24753; t92563.value.structure_type24753 = t92562; t92541 = f13514(t92563); /* x229197 stalin.sc:32512:1123731 */ t92542.tag = STRUCTURE_TYPE24753; t92542.value.structure_type24753 = t92541; t92533 = f13670(t92540, t92542); /* x229196 stalin.sc:32511:1123711 */ t92539.tag = STRUCTURE_TYPE24753; t92539.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92539.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32511, 1123710); out_of_memory_error();} t92539.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t92539.value.structure_type24753->s0.value.structure_type24753 = t92535; t92539.value.structure_type24753->s1.tag = NULL_TYPE; t92538.tag = STRUCTURE_TYPE24753; t92538.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92538.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32511, 1123710); out_of_memory_error();} t92538.value.structure_type24753->s0 = t92534; t92538.value.structure_type24753->s1 = t92539; a41864 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41864==NULL) {backtrace("stalin.sc", 32511, 1123710); out_of_memory_error();} a41864->s0 = t92533; a41864->s1 = t92538; /* x301568 stalin.sc:14400:506485 */ /* x301567 stalin.sc:14400:506503 */ t92536 = a41864; /* x301566 stalin.sc:14400:506486 */ t92537.tag = STRUCTURE_TYPE24753; t92537.value.structure_type24753 = t92536; t92026 = f13492(t92537); goto l17636; l17635: /* x229274 */ /* x229273 */ /* x229272 stalin.sc:32528:1124183 */ /* x229271 stalin.sc:32528:1124184 */ /* x276617 stalin.sc:14693:514793 */ t92026.tag = STRING_TYPE; t92026.value.string_type = ""; l17636: /* x229194 stalin.sc:32506:1123544 */ /* x229193 stalin.sc:32506:1123545 */ /* x152738 stalin.sc:20687:723987 */ /* x152737 stalin.sc:20886:731420 */ /* x152736 stalin.sc:20887:731441 */ /* x152735 stalin.sc:20890:731541 */ /* x152733 stalin.sc:20890:731556 */ /* x152734 stalin.sc:20890:731571 */ t92530 = a1679; /* x152732 stalin.sc:20890:731542 */ t92531.tag = NATIVE_PROCEDURE_TYPE7374; t92532 = *((struct w49 *)(&t92530)); t92526 = f1226(t92531, t92532); /* x152731 stalin.sc:20887:731446 */ /* x152715 stalin.sc:20887:731442 */ t92527.tag = NATIVE_PROCEDURE_TYPE21453; t92528 = *((struct w49 *)(&t92526)); t92529 = (struct structure_type24753 *)NULL_TYPE; t92524 = f27731(t92527, t92528, t92529); /* x152714 stalin.sc:20886:731421 */ /* MOVE: branching squeezed to general */ if (t92524>=((struct structure_type24753 *)VALUE_OFFSET)) {t92525.tag = STRUCTURE_TYPE24753; t92525.value.structure_type24753 = t92524;} else t92525.tag = (unsigned)t92524; t92077 = f13492(t92525); /* x152713 stalin.sc:20876:730959 */ /* x152712 stalin.sc:20877:730980 */ /* x152711 stalin.sc:20879:731069 */ /* x152710 stalin.sc:20884:731343 */ /* x152708 stalin.sc:20884:731358 */ /* x152709 stalin.sc:20885:731389 */ t92521 = a1936; /* x152707 stalin.sc:20884:731344 */ t92522.tag = NATIVE_PROCEDURE_TYPE7448; t92523 = *((struct w49 *)(&t92521)); t92503 = f1226(t92522, t92523); /* x152706 stalin.sc:20883:731272 */ /* x152704 stalin.sc:20883:731287 */ /* x152705 stalin.sc:20883:731315 */ t92518 = a1938; /* x152703 stalin.sc:20883:731273 */ t92519.tag = NATIVE_PROCEDURE_TYPE7465; t92520 = *((struct w49 *)(&t92518)); t92502 = f1226(t92519, t92520); /* x152702 stalin.sc:20882:731207 */ /* x152700 stalin.sc:20882:731222 */ /* x152701 stalin.sc:20882:731247 */ t92515 = a1939; /* x152699 stalin.sc:20882:731208 */ t92516.tag = NATIVE_PROCEDURE_TYPE7482; t92517 = *((struct w49 *)(&t92515)); t92501 = f1226(t92516, t92517); /* x152698 stalin.sc:20881:731150 */ /* x152696 stalin.sc:20881:731165 */ /* x152697 stalin.sc:20881:731186 */ t92512 = a1940; /* x152695 stalin.sc:20881:731151 */ t92513.tag = NATIVE_PROCEDURE_TYPE7500; t92514 = *((struct w49 *)(&t92512)); t92500 = f1226(t92513, t92514); /* x152694 stalin.sc:20880:731079 */ /* x152692 stalin.sc:20880:731094 */ /* x152693 stalin.sc:20880:731122 */ t92509 = a1945; /* x152691 stalin.sc:20880:731080 */ t92510.tag = NATIVE_PROCEDURE_TYPE7548; t92511 = *((struct w49 *)(&t92509)); t92499 = f1226(t92510, t92511); /* x152690 stalin.sc:20879:731070 */ t92508.tag = STRUCTURE_TYPE24753; t92508.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92508.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20879, 731069); out_of_memory_error();} t92508.value.structure_type24753->s0 = *((struct w49 *)(&t92503)); t92508.value.structure_type24753->s1.tag = NULL_TYPE; t92507.tag = STRUCTURE_TYPE24753; t92507.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92507.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20879, 731069); out_of_memory_error();} t92507.value.structure_type24753->s0 = *((struct w49 *)(&t92502)); t92507.value.structure_type24753->s1 = t92508; t92506.tag = STRUCTURE_TYPE24753; t92506.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92506.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20879, 731069); out_of_memory_error();} t92506.value.structure_type24753->s0 = *((struct w49 *)(&t92501)); t92506.value.structure_type24753->s1 = t92507; t92505.tag = STRUCTURE_TYPE24753; t92505.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92505.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20879, 731069); out_of_memory_error();} t92505.value.structure_type24753->s0 = *((struct w49 *)(&t92500)); t92505.value.structure_type24753->s1 = t92506; t92504 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t92504==NULL) {backtrace("stalin.sc", 20879, 731069); out_of_memory_error();} t92504->s0 = *((struct w49 *)(&t92499)); t92504->s1 = t92505; t92495 = f26254(t92504); /* x152689 stalin.sc:20877:730985 */ /* x152673 stalin.sc:20877:730981 */ t92496.tag = NATIVE_PROCEDURE_TYPE21454; t92497 = t92495; t92498 = (struct structure_type24753 *)NULL_TYPE; t92493 = f27731(t92496, t92497, t92498); /* x152672 stalin.sc:20876:730960 */ /* MOVE: branching squeezed to general */ if (t92493>=((struct structure_type24753 *)VALUE_OFFSET)) {t92494.tag = STRUCTURE_TYPE24753; t92494.value.structure_type24753 = t92493;} else t92494.tag = (unsigned)t92493; t92076 = f13492(t92494); /* x152671 stalin.sc:20873:730824 */ /* x152658 stalin.sc:20873:730828 */ /* x152655 stalin.sc:20873:730833 */ if (a676==FALSE_TYPE) goto l17631; /* x152656 */ if (a1201==FALSE_TYPE) goto l17631; /* x152668 stalin.sc:20874:730867 */ /* x152667 stalin.sc:20874:730877 */ /* x152663 stalin.sc:20874:730883 */ /* x152662 stalin.sc:20874:730893 */ t92491 = a1246; /* x152661 stalin.sc:20874:730884 */ t92487 = f13544(t92491); /* x152666 stalin.sc:20874:730912 */ /* x152665 stalin.sc:20874:730922 */ t92492 = a1228; /* x152664 stalin.sc:20874:730913 */ t92488 = f13530(t92492); /* x152660 stalin.sc:20874:730878 */ t92489.tag = STRUCTURE_TYPE24753; t92489.value.structure_type24753 = t92487; t92490.tag = STRING_TYPE; t92490.value.string_type = t92488; t92485 = f13591(t92489, t92490); /* x152659 stalin.sc:20874:730868 */ t92486 = f13782(t92485); t92075.tag = STRUCTURE_TYPE24753; t92075.value.structure_type24753 = t92486; goto l17632; l17631: /* x152670 stalin.sc:20875:730947 */ /* x152669 stalin.sc:20875:730948 */ /* x276613 stalin.sc:14693:514793 */ t92075.tag = STRING_TYPE; t92075.value.string_type = ""; l17632: /* x152654 stalin.sc:20870:730696 */ /* x152641 stalin.sc:20870:730700 */ /* x152638 stalin.sc:20870:730705 */ if (a676==FALSE_TYPE) goto l17627; /* x152639 */ if (a1201==FALSE_TYPE) goto l17627; /* x152651 stalin.sc:20871:730739 */ /* x152650 stalin.sc:20871:730749 */ /* x152646 stalin.sc:20871:730755 */ /* x152645 stalin.sc:20871:730765 */ t92483 = a1247; /* x152644 stalin.sc:20871:730756 */ t92479 = f13544(t92483); /* x152649 stalin.sc:20871:730777 */ /* x152648 stalin.sc:20871:730787 */ t92484 = a1228; /* x152647 stalin.sc:20871:730778 */ t92480 = f13530(t92484); /* x152643 stalin.sc:20871:730750 */ t92481.tag = STRUCTURE_TYPE24753; t92481.value.structure_type24753 = t92479; t92482.tag = STRING_TYPE; t92482.value.string_type = t92480; t92477 = f13591(t92481, t92482); /* x152642 stalin.sc:20871:730740 */ t92478 = f13782(t92477); t92074.tag = STRUCTURE_TYPE24753; t92074.value.structure_type24753 = t92478; goto l17628; l17627: /* x152653 stalin.sc:20872:730812 */ /* x152652 stalin.sc:20872:730813 */ /* x276611 stalin.sc:14693:514793 */ t92074.tag = STRING_TYPE; t92074.value.string_type = ""; l17628: /* x152637 stalin.sc:20867:730599 */ /* x152624 stalin.sc:20867:730603 */ if (a1202==FALSE_TYPE) goto l17624; /* x152634 stalin.sc:20868:730621 */ /* x152633 stalin.sc:20868:730631 */ /* x152629 stalin.sc:20868:730637 */ /* x152628 stalin.sc:20868:730647 */ t92475 = a1248; /* x152627 stalin.sc:20868:730638 */ t92471 = f13544(t92475); /* x152632 stalin.sc:20868:730654 */ /* x152631 stalin.sc:20868:730664 */ t92476 = a1229; /* x152630 stalin.sc:20868:730655 */ t92472 = f13530(t92476); /* x152626 stalin.sc:20868:730632 */ t92473.tag = STRUCTURE_TYPE24753; t92473.value.structure_type24753 = t92471; t92474.tag = STRING_TYPE; t92474.value.string_type = t92472; t92469 = f13591(t92473, t92474); /* x152625 stalin.sc:20868:730622 */ t92470 = f13782(t92469); t92073.tag = STRUCTURE_TYPE24753; t92073.value.structure_type24753 = t92470; goto l17625; l17624: /* x152636 stalin.sc:20869:730684 */ /* x152635 stalin.sc:20869:730685 */ /* x276609 stalin.sc:14693:514793 */ t92073.tag = STRING_TYPE; t92073.value.string_type = ""; l17625: /* x152623 stalin.sc:20864:730493 */ /* x152610 stalin.sc:20864:730497 */ if (a1203==FALSE_TYPE) goto l17621; /* x152620 stalin.sc:20865:730518 */ /* x152619 stalin.sc:20865:730528 */ /* x152615 stalin.sc:20865:730534 */ /* x152614 stalin.sc:20865:730544 */ t92467 = a1249; /* x152613 stalin.sc:20865:730535 */ t92463 = f13544(t92467); /* x152618 stalin.sc:20865:730554 */ /* x152617 stalin.sc:20865:730564 */ t92468 = a1230; /* x152616 stalin.sc:20865:730555 */ t92464 = f13530(t92468); /* x152612 stalin.sc:20865:730529 */ t92465.tag = STRUCTURE_TYPE24753; t92465.value.structure_type24753 = t92463; t92466.tag = STRING_TYPE; t92466.value.string_type = t92464; t92461 = f13591(t92465, t92466); /* x152611 stalin.sc:20865:730519 */ t92462 = f13782(t92461); t92072.tag = STRUCTURE_TYPE24753; t92072.value.structure_type24753 = t92462; goto l17622; l17621: /* x152622 stalin.sc:20866:730587 */ /* x152621 stalin.sc:20866:730588 */ /* x276607 stalin.sc:14693:514793 */ t92072.tag = STRING_TYPE; t92072.value.string_type = ""; l17622: /* x152609 stalin.sc:20860:730357 */ /* x152593 stalin.sc:20860:730361 */ if (a1204==FALSE_TYPE) goto l17618; /* x152606 stalin.sc:20861:730383 */ /* x152605 stalin.sc:20861:730393 */ /* x152601 stalin.sc:20861:730399 */ /* x152600 stalin.sc:20861:730409 */ /* x152599 stalin.sc:20861:730433 */ t92456 = "*"; /* x152598 stalin.sc:20861:730424 */ t92455 = a1244; /* x152597 stalin.sc:20861:730410 */ t92459.tag = STRUCTURE_TYPE24753; t92459.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92459.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20861, 730409); out_of_memory_error();} t92459.value.structure_type24753->s0.tag = STRING_TYPE; t92459.value.structure_type24753->s0.value.string_type = t92456; t92459.value.structure_type24753->s1.tag = NULL_TYPE; a42042 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42042==NULL) {backtrace("stalin.sc", 20861, 730409); out_of_memory_error();} a42042->s0 = t92455; a42042->s1 = t92459; /* x302280 stalin.sc:14386:505956 */ /* x302279 stalin.sc:14386:505972 */ t92457 = a42042; /* x302278 stalin.sc:14386:505957 */ t92458.tag = STRUCTURE_TYPE24753; t92458.value.structure_type24753 = t92457; t92454 = f13474(t92458); /* x152596 stalin.sc:20861:730400 */ t92450 = f13544(t92454); /* x152604 stalin.sc:20862:730447 */ /* x152603 stalin.sc:20862:730457 */ t92460 = a1231; /* x152602 stalin.sc:20862:730448 */ t92451 = f13530(t92460); /* x152595 stalin.sc:20861:730394 */ t92452.tag = STRUCTURE_TYPE24753; t92452.value.structure_type24753 = t92450; t92453.tag = STRING_TYPE; t92453.value.string_type = t92451; t92448 = f13591(t92452, t92453); /* x152594 stalin.sc:20861:730384 */ t92449 = f13782(t92448); t92071.tag = STRUCTURE_TYPE24753; t92071.value.structure_type24753 = t92449; goto l17619; l17618: /* x152608 stalin.sc:20863:730481 */ /* x152607 stalin.sc:20863:730482 */ /* x276605 stalin.sc:14693:514793 */ t92071.tag = STRING_TYPE; t92071.value.string_type = ""; l17619: /* x152592 stalin.sc:20856:730226 */ /* x152576 stalin.sc:20856:730230 */ if (a1205==FALSE_TYPE) goto l17615; /* x152589 stalin.sc:20857:730250 */ /* x152588 stalin.sc:20858:730267 */ /* x152584 stalin.sc:20858:730273 */ /* x152583 stalin.sc:20858:730283 */ /* x152582 stalin.sc:20858:730305 */ t92443 = "*"; /* x152581 stalin.sc:20858:730298 */ t92442 = a1245; /* x152580 stalin.sc:20858:730284 */ t92446.tag = STRUCTURE_TYPE24753; t92446.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92446.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20858, 730283); out_of_memory_error();} t92446.value.structure_type24753->s0.tag = STRING_TYPE; t92446.value.structure_type24753->s0.value.string_type = t92443; t92446.value.structure_type24753->s1.tag = NULL_TYPE; a42041 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42041==NULL) {backtrace("stalin.sc", 20858, 730283); out_of_memory_error();} a42041->s0 = t92442; a42041->s1 = t92446; /* x302276 stalin.sc:14386:505956 */ /* x302275 stalin.sc:14386:505972 */ t92444 = a42041; /* x302274 stalin.sc:14386:505957 */ t92445.tag = STRUCTURE_TYPE24753; t92445.value.structure_type24753 = t92444; t92441 = f13474(t92445); /* x152579 stalin.sc:20858:730274 */ t92437 = f13544(t92441); /* x152587 stalin.sc:20858:730311 */ /* x152586 stalin.sc:20858:730321 */ t92447 = a1231; /* x152585 stalin.sc:20858:730312 */ t92438 = f13530(t92447); /* x152578 stalin.sc:20858:730268 */ t92439.tag = STRUCTURE_TYPE24753; t92439.value.structure_type24753 = t92437; t92440.tag = STRING_TYPE; t92440.value.string_type = t92438; t92435 = f13591(t92439, t92440); /* x152577 stalin.sc:20857:730251 */ t92436 = f13782(t92435); t92070.tag = STRUCTURE_TYPE24753; t92070.value.structure_type24753 = t92436; goto l17616; l17615: /* x152591 stalin.sc:20859:730345 */ /* x152590 stalin.sc:20859:730346 */ /* x276603 stalin.sc:14693:514793 */ t92070.tag = STRING_TYPE; t92070.value.string_type = ""; l17616: /* x152575 stalin.sc:20852:730095 */ /* x152559 stalin.sc:20852:730099 */ if (a1206==FALSE_TYPE) goto l17612; /* x152572 stalin.sc:20853:730119 */ /* x152571 stalin.sc:20854:730136 */ /* x152567 stalin.sc:20854:730142 */ /* x152566 stalin.sc:20854:730152 */ /* x152565 stalin.sc:20854:730174 */ t92430 = "*"; /* x152564 stalin.sc:20854:730167 */ t92429 = a1252; /* x152563 stalin.sc:20854:730153 */ t92433.tag = STRUCTURE_TYPE24753; t92433.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92433.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20854, 730152); out_of_memory_error();} t92433.value.structure_type24753->s0.tag = STRING_TYPE; t92433.value.structure_type24753->s0.value.string_type = t92430; t92433.value.structure_type24753->s1.tag = NULL_TYPE; a42040 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42040==NULL) {backtrace("stalin.sc", 20854, 730152); out_of_memory_error();} a42040->s0 = t92429; a42040->s1 = t92433; /* x302272 stalin.sc:14386:505956 */ /* x302271 stalin.sc:14386:505972 */ t92431 = a42040; /* x302270 stalin.sc:14386:505957 */ t92432.tag = STRUCTURE_TYPE24753; t92432.value.structure_type24753 = t92431; t92428 = f13474(t92432); /* x152562 stalin.sc:20854:730143 */ t92424 = f13544(t92428); /* x152570 stalin.sc:20854:730180 */ /* x152569 stalin.sc:20854:730190 */ t92434 = a1231; /* x152568 stalin.sc:20854:730181 */ t92425 = f13530(t92434); /* x152561 stalin.sc:20854:730137 */ t92426.tag = STRUCTURE_TYPE24753; t92426.value.structure_type24753 = t92424; t92427.tag = STRING_TYPE; t92427.value.string_type = t92425; t92422 = f13591(t92426, t92427); /* x152560 stalin.sc:20853:730120 */ t92423 = f13782(t92422); t92069.tag = STRUCTURE_TYPE24753; t92069.value.structure_type24753 = t92423; goto l17613; l17612: /* x152574 stalin.sc:20855:730214 */ /* x152573 stalin.sc:20855:730215 */ /* x276601 stalin.sc:14693:514793 */ t92069.tag = STRING_TYPE; t92069.value.string_type = ""; l17613: /* x152558 stalin.sc:20848:729964 */ /* x152542 stalin.sc:20848:729968 */ if (a1207==FALSE_TYPE) goto l17609; /* x152555 stalin.sc:20849:729988 */ /* x152554 stalin.sc:20850:730005 */ /* x152550 stalin.sc:20850:730011 */ /* x152549 stalin.sc:20850:730021 */ /* x152548 stalin.sc:20850:730043 */ t92417 = "*"; /* x152547 stalin.sc:20850:730036 */ t92416 = "void"; /* x152546 stalin.sc:20850:730022 */ t92420.tag = STRUCTURE_TYPE24753; t92420.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92420.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20850, 730021); out_of_memory_error();} t92420.value.structure_type24753->s0.tag = STRING_TYPE; t92420.value.structure_type24753->s0.value.string_type = t92417; t92420.value.structure_type24753->s1.tag = NULL_TYPE; a42039 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42039==NULL) {backtrace("stalin.sc", 20850, 730021); out_of_memory_error();} a42039->s0.tag = STRING_TYPE; a42039->s0.value.string_type = t92416; a42039->s1 = t92420; /* x302268 stalin.sc:14386:505956 */ /* x302267 stalin.sc:14386:505972 */ t92418 = a42039; /* x302266 stalin.sc:14386:505957 */ t92419.tag = STRUCTURE_TYPE24753; t92419.value.structure_type24753 = t92418; t92415 = f13474(t92419); /* x152545 stalin.sc:20850:730012 */ t92411 = f13544(t92415); /* x152553 stalin.sc:20850:730049 */ /* x152552 stalin.sc:20850:730059 */ t92421 = a1231; /* x152551 stalin.sc:20850:730050 */ t92412 = f13530(t92421); /* x152544 stalin.sc:20850:730006 */ t92413.tag = STRUCTURE_TYPE24753; t92413.value.structure_type24753 = t92411; t92414.tag = STRING_TYPE; t92414.value.string_type = t92412; t92409 = f13591(t92413, t92414); /* x152543 stalin.sc:20849:729989 */ t92410 = f13782(t92409); t92068.tag = STRUCTURE_TYPE24753; t92068.value.structure_type24753 = t92410; goto l17610; l17609: /* x152557 stalin.sc:20851:730083 */ /* x152556 stalin.sc:20851:730084 */ /* x276599 stalin.sc:14693:514793 */ t92068.tag = STRING_TYPE; t92068.value.string_type = ""; l17610: /* x152541 stalin.sc:20844:729818 */ /* x152522 stalin.sc:20844:729822 */ if (a1208==FALSE_TYPE) goto l17606; /* x152538 stalin.sc:20845:729848 */ /* x152537 stalin.sc:20845:729858 */ /* x152530 stalin.sc:20845:729864 */ /* x152529 stalin.sc:20845:729874 */ /* x152528 stalin.sc:20845:729889 */ t92403 = "rectangular"; /* x152527 stalin.sc:20845:729880 */ t92402 = "struct"; /* x152526 stalin.sc:20845:729875 */ t92404.tag = STRUCTURE_TYPE24753; t92404.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92404.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20845, 729874); out_of_memory_error();} t92404.value.structure_type24753->s0.tag = STRING_TYPE; t92404.value.structure_type24753->s0.value.string_type = t92403; t92404.value.structure_type24753->s1.tag = NULL_TYPE; a35118 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35118==NULL) {backtrace("stalin.sc", 20845, 729874); out_of_memory_error();} a35118->s0.tag = STRING_TYPE; a35118->s0.value.string_type = t92402; a35118->s1 = t92404; /* x272243 */ t92400 = a35118; /* x152525 stalin.sc:20845:729865 */ t92401.tag = STRUCTURE_TYPE24753; t92401.value.structure_type24753 = t92400; t92396 = f13544(t92401); /* x152536 stalin.sc:20846:729913 */ /* x152535 stalin.sc:20846:729923 */ /* x152533 stalin.sc:20846:729926 */ t92407 = 2; /* x152534 stalin.sc:20846:729928 */ t92408 = a1232; /* x268343 stalin.sc:20846:729924 */ switch (t92408.tag) {case FIXNUM_TYPE: t92405.tag = FIXNUM_TYPE; t92405.value.fixnum_type = t92407*(t92408.value.fixnum_type); break; case FLONUM_TYPE: t92405.tag = FLONUM_TYPE; t92405.value.flonum_type = t92407*(t92408.value.flonum_type); break; default: backtrace("stalin.sc", 20846, 729923); times_error();} /* x152531 stalin.sc:20846:729914 */ t92406 = *((struct w49 *)(&t92405)); t92397 = f13530(t92406); /* x152524 stalin.sc:20845:729859 */ t92398.tag = STRUCTURE_TYPE24753; t92398.value.structure_type24753 = t92396; t92399.tag = STRING_TYPE; t92399.value.string_type = t92397; t92394 = f13591(t92398, t92399); /* x152523 stalin.sc:20845:729849 */ t92395 = f13782(t92394); t92067.tag = STRUCTURE_TYPE24753; t92067.value.structure_type24753 = t92395; goto l17607; l17606: /* x152540 stalin.sc:20847:729952 */ /* x152539 stalin.sc:20847:729953 */ /* x276597 stalin.sc:14693:514793 */ t92067.tag = STRING_TYPE; t92067.value.string_type = ""; l17607: /* x152521 stalin.sc:20841:729712 */ /* x152508 stalin.sc:20841:729716 */ if (a1209==FALSE_TYPE) goto l17603; /* x152518 stalin.sc:20842:729737 */ /* x152517 stalin.sc:20842:729747 */ /* x152513 stalin.sc:20842:729753 */ /* x152512 stalin.sc:20842:729763 */ t92392 = a1250; /* x152511 stalin.sc:20842:729754 */ t92388 = f13544(t92392); /* x152516 stalin.sc:20842:729773 */ /* x152515 stalin.sc:20842:729783 */ t92393 = a1232; /* x152514 stalin.sc:20842:729774 */ t92389 = f13530(t92393); /* x152510 stalin.sc:20842:729748 */ t92390.tag = STRUCTURE_TYPE24753; t92390.value.structure_type24753 = t92388; t92391.tag = STRING_TYPE; t92391.value.string_type = t92389; t92386 = f13591(t92390, t92391); /* x152509 stalin.sc:20842:729738 */ t92387 = f13782(t92386); t92066.tag = STRUCTURE_TYPE24753; t92066.value.structure_type24753 = t92387; goto l17604; l17603: /* x152520 stalin.sc:20843:729806 */ /* x152519 stalin.sc:20843:729807 */ /* x276595 stalin.sc:14693:514793 */ t92066.tag = STRING_TYPE; t92066.value.string_type = ""; l17604: /* x152507 stalin.sc:20838:729606 */ /* x152494 stalin.sc:20838:729610 */ if (a1210==FALSE_TYPE) goto l17600; /* x152504 stalin.sc:20839:729631 */ /* x152503 stalin.sc:20839:729641 */ /* x152499 stalin.sc:20839:729647 */ /* x152498 stalin.sc:20839:729657 */ t92384 = a1251; /* x152497 stalin.sc:20839:729648 */ t92380 = f13544(t92384); /* x152502 stalin.sc:20839:729667 */ /* x152501 stalin.sc:20839:729677 */ t92385 = a1233; /* x152500 stalin.sc:20839:729668 */ t92381 = f13530(t92385); /* x152496 stalin.sc:20839:729642 */ t92382.tag = STRUCTURE_TYPE24753; t92382.value.structure_type24753 = t92380; t92383.tag = STRING_TYPE; t92383.value.string_type = t92381; t92378 = f13591(t92382, t92383); /* x152495 stalin.sc:20839:729632 */ t92379 = f13782(t92378); t92065.tag = STRUCTURE_TYPE24753; t92065.value.structure_type24753 = t92379; goto l17601; l17600: /* x152506 stalin.sc:20840:729700 */ /* x152505 stalin.sc:20840:729701 */ /* x276593 stalin.sc:14693:514793 */ t92065.tag = STRING_TYPE; t92065.value.string_type = ""; l17601: /* x152493 stalin.sc:20835:729506 */ /* x152480 stalin.sc:20835:729510 */ if (a1211==FALSE_TYPE) goto l17597; /* x152490 stalin.sc:20836:729529 */ /* x152489 stalin.sc:20836:729539 */ /* x152485 stalin.sc:20836:729545 */ /* x152484 stalin.sc:20836:729555 */ t92376 = a1252; /* x152483 stalin.sc:20836:729546 */ t92372 = f13544(t92376); /* x152488 stalin.sc:20836:729563 */ /* x152487 stalin.sc:20836:729573 */ t92377 = a1234; /* x152486 stalin.sc:20836:729564 */ t92373 = f13530(t92377); /* x152482 stalin.sc:20836:729540 */ t92374.tag = STRUCTURE_TYPE24753; t92374.value.structure_type24753 = t92372; t92375.tag = STRING_TYPE; t92375.value.string_type = t92373; t92370 = f13591(t92374, t92375); /* x152481 stalin.sc:20836:729530 */ t92371 = f13782(t92370); t92064.tag = STRUCTURE_TYPE24753; t92064.value.structure_type24753 = t92371; goto l17598; l17597: /* x152492 stalin.sc:20837:729594 */ /* x152491 stalin.sc:20837:729595 */ /* x276591 stalin.sc:14693:514793 */ t92064.tag = STRING_TYPE; t92064.value.string_type = ""; l17598: /* x152479 stalin.sc:20830:729302 */ /* x152478 stalin.sc:20830:729320 */ /* x152477 stalin.sc:20834:729461 */ /* x152475 stalin.sc:20834:729476 */ /* x152476 stalin.sc:20834:729496 */ t92367 = a1679; /* x152474 stalin.sc:20834:729462 */ t92368.tag = NATIVE_PROCEDURE_TYPE7376; t92369 = *((struct w49 *)(&t92367)); t92363 = f1226(t92368, t92369); /* x152473 stalin.sc:20830:729325 */ /* x152453 stalin.sc:20830:729321 */ t92364.tag = NATIVE_PROCEDURE_TYPE21456; t92365 = *((struct w49 *)(&t92363)); t92366 = (struct structure_type24753 *)NULL_TYPE; t92361 = f27731(t92364, t92365, t92366); /* x152452 stalin.sc:20830:729303 */ /* MOVE: branching squeezed to general */ if (t92361>=((struct structure_type24753 *)VALUE_OFFSET)) {t92362.tag = STRUCTURE_TYPE24753; t92362.value.structure_type24753 = t92361;} else t92362.tag = (unsigned)t92361; t92063 = f13492(t92362); /* x152451 stalin.sc:20823:729051 */ /* x152450 stalin.sc:20824:729072 */ /* x152449 stalin.sc:20828:729220 */ /* x152447 stalin.sc:20828:729235 */ /* x152448 stalin.sc:20829:729275 */ t92358 = a1939; /* x152446 stalin.sc:20828:729221 */ t92359.tag = NATIVE_PROCEDURE_TYPE7484; t92360 = *((struct w49 *)(&t92358)); t92354 = f1226(t92359, t92360); /* x152445 stalin.sc:20824:729077 */ /* x152422 stalin.sc:20824:729073 */ t92355.tag = NATIVE_PROCEDURE_TYPE21457; t92356 = *((struct w49 *)(&t92354)); t92357 = (struct structure_type24753 *)NULL_TYPE; t92352 = f27731(t92355, t92356, t92357); /* x152421 stalin.sc:20823:729052 */ /* MOVE: branching squeezed to general */ if (t92352>=((struct structure_type24753 *)VALUE_OFFSET)) {t92353.tag = STRUCTURE_TYPE24753; t92353.value.structure_type24753 = t92352;} else t92353.tag = (unsigned)t92352; t92062 = f13492(t92353); /* x152420 stalin.sc:20818:728843 */ /* x152419 stalin.sc:20819:728864 */ /* x152418 stalin.sc:20822:728986 */ /* x152416 stalin.sc:20822:729001 */ /* x152417 stalin.sc:20822:729028 */ t92349 = a1940; /* x152415 stalin.sc:20822:728987 */ t92350.tag = NATIVE_PROCEDURE_TYPE7502; t92351 = *((struct w49 *)(&t92349)); t92345 = f1226(t92350, t92351); /* x152414 stalin.sc:20819:728869 */ /* x152394 stalin.sc:20819:728865 */ t92346.tag = NATIVE_PROCEDURE_TYPE21458; t92347 = *((struct w49 *)(&t92345)); t92348 = (struct structure_type24753 *)NULL_TYPE; t92343 = f27731(t92346, t92347, t92348); /* x152393 stalin.sc:20818:728844 */ /* MOVE: branching squeezed to general */ if (t92343>=((struct structure_type24753 *)VALUE_OFFSET)) {t92344.tag = STRUCTURE_TYPE24753; t92344.value.structure_type24753 = t92343;} else t92344.tag = (unsigned)t92343; t92061 = f13492(t92344); /* x152392 stalin.sc:20795:727990 */ /* x152391 stalin.sc:20796:728011 */ /* x152390 stalin.sc:20816:728755 */ /* x152388 stalin.sc:20816:728770 */ /* x152389 stalin.sc:20817:728813 */ t92340 = a1945; /* x152387 stalin.sc:20816:728756 */ t92341.tag = NATIVE_PROCEDURE_TYPE7550; t92342 = *((struct w49 *)(&t92340)); t92336 = f1226(t92341, t92342); /* x152386 stalin.sc:20796:728016 */ /* x152249 stalin.sc:20796:728012 */ t92337.tag = NATIVE_PROCEDURE_TYPE21459; t92338 = *((struct w49 *)(&t92336)); t92339 = (struct structure_type24753 *)NULL_TYPE; t92334 = f27731(t92337, t92338, t92339); /* x152248 stalin.sc:20795:727991 */ /* MOVE: branching squeezed to general */ if (t92334>=((struct structure_type24753 *)VALUE_OFFSET)) {t92335.tag = STRUCTURE_TYPE24753; t92335.value.structure_type24753 = t92334;} else t92335.tag = (unsigned)t92334; t92060 = f13492(t92335); /* x152247 stalin.sc:20758:726775 */ /* x152246 stalin.sc:20758:726781 */ t92286 = a686; /* x152245 */ a27181 = t92286; /* x152244 */ /* x152080 */ /* x152079 */ /* x152077 */ t92287 = a27181; /* x152078 */ t92288 = q18; /* x152076 */ /* MOVE: branching squeezed to general */ if (t92287>=((char *)VALUE_OFFSET)) {t92289.tag = EXTERNAL_SYMBOL_TYPE; t92289.value.external_symbol_type = t92287;} else t92289.tag = (unsigned)t92287; t92290.tag = EXTERNAL_SYMBOL_TYPE; t92290.value.external_symbol_type = t92288; if (!(f26160(t92289, t92290)==FALSE_TYPE)) goto l17585; /* x152073 */ /* x152071 */ t92291 = a27181; /* x152072 */ t92292 = q20; /* x152070 */ /* MOVE: branching squeezed to general */ if (t92291>=((char *)VALUE_OFFSET)) {t92293.tag = EXTERNAL_SYMBOL_TYPE; t92293.value.external_symbol_type = t92291;} else t92293.tag = (unsigned)t92291; t92294.tag = EXTERNAL_SYMBOL_TYPE; t92294.value.external_symbol_type = t92292; if (f26160(t92293, t92294)==FALSE_TYPE) goto l17586; l17585: /* x152084 */ /* x152083 */ /* x152082 stalin.sc:20759:726845 */ /* x152081 stalin.sc:20759:726846 */ /* x276589 stalin.sc:14693:514793 */ t92059.tag = STRING_TYPE; t92059.value.string_type = ""; goto l17587; l17586: /* x152243 */ /* x152097 */ /* x152096 */ /* x152094 */ t92295 = a27181; /* x152095 */ t92296 = q19; /* x152093 */ /* MOVE: branching squeezed to general */ if (t92295>=((char *)VALUE_OFFSET)) {t92297.tag = EXTERNAL_SYMBOL_TYPE; t92297.value.external_symbol_type = t92295;} else t92297.tag = (unsigned)t92295; t92298.tag = EXTERNAL_SYMBOL_TYPE; t92298.value.external_symbol_type = t92296; if (!(f26160(t92297, t92298)==FALSE_TYPE)) goto l17589; /* x152090 */ /* x152088 */ t92299 = a27181; /* x152089 */ t92300 = q21; /* x152087 */ /* MOVE: branching squeezed to general */ if (t92299>=((char *)VALUE_OFFSET)) {t92301.tag = EXTERNAL_SYMBOL_TYPE; t92301.value.external_symbol_type = t92299;} else t92301.tag = (unsigned)t92299; t92302.tag = EXTERNAL_SYMBOL_TYPE; t92302.value.external_symbol_type = t92300; if (f26160(t92301, t92302)==FALSE_TYPE) goto l17590; l17589: /* x152130 */ /* x152129 */ /* x152128 stalin.sc:20761:726896 */ /* x152127 stalin.sc:20762:726919 */ /* x152126 stalin.sc:20766:727071 */ /* x152124 stalin.sc:20766:727086 */ /* x152125 stalin.sc:20767:727124 */ t92331 = a1945; /* x152123 stalin.sc:20766:727072 */ t92332.tag = NATIVE_PROCEDURE_TYPE7550; t92333 = *((struct w49 *)(&t92331)); t92327 = f1226(t92332, t92333); /* x152122 stalin.sc:20762:726924 */ /* x152099 stalin.sc:20762:726920 */ t92328.tag = NATIVE_PROCEDURE_TYPE21475; t92329 = *((struct w49 *)(&t92327)); t92330 = (struct structure_type24753 *)NULL_TYPE; t92325 = f27731(t92328, t92329, t92330); /* x152098 stalin.sc:20761:726897 */ /* MOVE: branching squeezed to general */ if (t92325>=((struct structure_type24753 *)VALUE_OFFSET)) {t92326.tag = STRUCTURE_TYPE24753; t92326.value.structure_type24753 = t92325;} else t92326.tag = (unsigned)t92325; t92059 = f13492(t92326); goto l17591; l17590: /* x152242 */ /* x152134 */ /* x152132 */ t92303 = a27181; /* x152133 */ t92304 = q22; /* x152131 */ /* MOVE: branching squeezed to general */ if (t92303>=((char *)VALUE_OFFSET)) {t92305.tag = EXTERNAL_SYMBOL_TYPE; t92305.value.external_symbol_type = t92303;} else t92305.tag = (unsigned)t92303; t92306.tag = EXTERNAL_SYMBOL_TYPE; t92306.value.external_symbol_type = t92304; if (f26160(t92305, t92306)==FALSE_TYPE) goto l17594; /* x152237 */ /* x152236 */ /* x152235 stalin.sc:20769:727170 */ /* x152234 stalin.sc:20770:727193 */ /* x152233 stalin.sc:20787:727709 */ /* x152232 stalin.sc:20788:727733 */ /* x152231 stalin.sc:20789:727757 */ /* x152213 stalin.sc:20790:727775 */ /* x152230 stalin.sc:20792:727871 */ /* x152228 stalin.sc:20792:727882 */ /* x152229 stalin.sc:20793:727935 */ t92322 = a1945; /* x152214 stalin.sc:20792:727872 */ t92323 = NATIVE_PROCEDURE_TYPE21465; t92324 = *((struct w49 *)(&t92322)); t92319 = f1218(t92323, t92324); /* x152212 stalin.sc:20789:727758 */ t92320.tag = NATIVE_PROCEDURE_TYPE7550; t92321 = *((struct w49 *)(&t92319)); t92315 = f1226(t92320, t92321); /* x152211 stalin.sc:20788:727738 */ /* x152210 stalin.sc:20788:727734 */ t92316.tag = NATIVE_PROCEDURE_TYPE7218; t92317 = *((struct w49 *)(&t92315)); t92318 = (struct structure_type24753 *)NULL_TYPE; t92314 = f27731(t92316, t92317, t92318); /* x152209 stalin.sc:20787:727710 */ t92310 = f1486(t92314); /* x152208 stalin.sc:20770:727198 */ /* x152136 stalin.sc:20770:727194 */ t92311.tag = NATIVE_PROCEDURE_TYPE21473; t92312 = *((struct w49 *)(&t92310)); t92313 = (struct structure_type24753 *)NULL_TYPE; t92308 = f27731(t92311, t92312, t92313); /* x152135 stalin.sc:20769:727171 */ /* MOVE: branching squeezed to general */ if (t92308>=((struct structure_type24753 *)VALUE_OFFSET)) {t92309.tag = STRUCTURE_TYPE24753; t92309.value.structure_type24753 = t92308;} else t92309.tag = (unsigned)t92308; t92059 = f13492(t92309); goto l17595; l17594: /* x152241 */ /* x152240 */ /* x152239 stalin.sc:20794:727976 */ /* x152238 stalin.sc:20794:727977 */ /* x295645 QobiScheme.sc:166:5314 */ /* x295644 QobiScheme.sc:166:5321 */ t92307 = "This shouldn\'t happen"; /* x295643 QobiScheme.sc:166:5315 */ stalin_panic(t92307); l17595: l17591: l17587: /* x152067 stalin.sc:20745:726252 */ /* x152066 stalin.sc:20746:726273 */ /* x152065 stalin.sc:20749:726393 */ /* x152064 stalin.sc:20756:726693 */ /* x152062 stalin.sc:20756:726708 */ /* x152063 stalin.sc:20757:726744 */ t92283 = a1936; /* x152061 stalin.sc:20756:726694 */ t92284.tag = NATIVE_PROCEDURE_TYPE7450; t92285 = *((struct w49 *)(&t92283)); t92265 = f1226(t92284, t92285); /* x152060 stalin.sc:20754:726614 */ /* x152058 stalin.sc:20754:726629 */ /* x152059 stalin.sc:20755:726665 */ t92280 = a1938; /* x152057 stalin.sc:20754:726615 */ t92281.tag = NATIVE_PROCEDURE_TYPE7467; t92282 = *((struct w49 *)(&t92280)); t92264 = f1226(t92281, t92282); /* x152056 stalin.sc:20753:726544 */ /* x152054 stalin.sc:20753:726559 */ /* x152055 stalin.sc:20753:726589 */ t92277 = a1939; /* x152053 stalin.sc:20753:726545 */ t92278.tag = NATIVE_PROCEDURE_TYPE7486; t92279 = *((struct w49 *)(&t92277)); t92263 = f1226(t92278, t92279); /* x152052 stalin.sc:20752:726482 */ /* x152050 stalin.sc:20752:726497 */ /* x152051 stalin.sc:20752:726523 */ t92274 = a1940; /* x152049 stalin.sc:20752:726483 */ t92275.tag = NATIVE_PROCEDURE_TYPE7504; t92276 = *((struct w49 *)(&t92274)); t92262 = f1226(t92275, t92276); /* x152048 stalin.sc:20750:726403 */ /* x152046 stalin.sc:20750:726418 */ /* x152047 stalin.sc:20751:726454 */ t92271 = a1945; /* x152045 stalin.sc:20750:726404 */ t92272.tag = NATIVE_PROCEDURE_TYPE7552; t92273 = *((struct w49 *)(&t92271)); t92261 = f1226(t92272, t92273); /* x152044 stalin.sc:20749:726394 */ t92270.tag = STRUCTURE_TYPE24753; t92270.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92270.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20749, 726393); out_of_memory_error();} t92270.value.structure_type24753->s0 = *((struct w49 *)(&t92265)); t92270.value.structure_type24753->s1.tag = NULL_TYPE; t92269.tag = STRUCTURE_TYPE24753; t92269.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92269.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20749, 726393); out_of_memory_error();} t92269.value.structure_type24753->s0 = *((struct w49 *)(&t92264)); t92269.value.structure_type24753->s1 = t92270; t92268.tag = STRUCTURE_TYPE24753; t92268.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92268.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20749, 726393); out_of_memory_error();} t92268.value.structure_type24753->s0 = *((struct w49 *)(&t92263)); t92268.value.structure_type24753->s1 = t92269; t92267.tag = STRUCTURE_TYPE24753; t92267.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92267.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20749, 726393); out_of_memory_error();} t92267.value.structure_type24753->s0 = *((struct w49 *)(&t92262)); t92267.value.structure_type24753->s1 = t92268; t92266 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t92266==NULL) {backtrace("stalin.sc", 20749, 726393); out_of_memory_error();} t92266->s0 = *((struct w49 *)(&t92261)); t92266->s1 = t92267; t92257 = f26254(t92266); /* x152043 stalin.sc:20746:726278 */ /* x152023 stalin.sc:20746:726274 */ t92258.tag = NATIVE_PROCEDURE_TYPE21477; t92259 = t92257; t92260 = (struct structure_type24753 *)NULL_TYPE; t92255 = f27731(t92258, t92259, t92260); /* x152022 stalin.sc:20745:726253 */ /* MOVE: branching squeezed to general */ if (t92255>=((struct structure_type24753 *)VALUE_OFFSET)) {t92256.tag = STRUCTURE_TYPE24753; t92256.value.structure_type24753 = t92255;} else t92256.tag = (unsigned)t92255; t92058 = f13492(t92256); /* x152021 stalin.sc:20741:726087 */ /* x152001 stalin.sc:20741:726091 */ if (a1212==FALSE_TYPE) goto l17583; /* x152018 stalin.sc:20742:726117 */ /* x152017 stalin.sc:20742:726127 */ /* x152010 stalin.sc:20742:726133 */ /* x152009 stalin.sc:20742:726144 */ /* x152004 stalin.sc:20742:726134 */ t92250.tag = NATIVE_PROCEDURE_TYPE21478; t92246 = f13545(t92250); /* x152016 stalin.sc:20743:726193 */ /* x152015 stalin.sc:20743:726203 */ /* x152013 stalin.sc:20743:726209 */ t92253 = 2; /* x152014 stalin.sc:20743:726211 */ t92254 = a1235; /* x268363 stalin.sc:20743:726204 */ switch (t92254.tag) {case FIXNUM_TYPE: if ((t92254.value.fixnum_type)<0) {t92251.tag = FLONUM_TYPE; t92251.value.flonum_type = pow(t92253, (t92254.value.fixnum_type));} else {t92251.tag = FIXNUM_TYPE; t92251.value.fixnum_type = ipow(t92253, (t92254.value.fixnum_type));} break; case FLONUM_TYPE: t92251.tag = FLONUM_TYPE; t92251.value.flonum_type = pow(t92253, (t92254.value.flonum_type)); break; default: backtrace("stalin.sc", 20743, 726203); expt2_error();} /* x152011 stalin.sc:20743:726194 */ t92252 = *((struct w49 *)(&t92251)); t92247 = f13530(t92252); /* x152003 stalin.sc:20742:726128 */ t92248.tag = STRUCTURE_TYPE24753; t92248.value.structure_type24753 = t92246; t92249.tag = STRING_TYPE; t92249.value.string_type = t92247; t92244 = f13591(t92248, t92249); /* x152002 stalin.sc:20742:726118 */ t92245 = f13782(t92244); t92057.tag = STRUCTURE_TYPE24753; t92057.value.structure_type24753 = t92245; goto l17584; l17583: /* x152020 stalin.sc:20744:726240 */ /* x152019 stalin.sc:20744:726241 */ /* x276587 stalin.sc:14693:514793 */ t92057.tag = STRING_TYPE; t92057.value.string_type = ""; l17584: /* x152000 stalin.sc:20737:725928 */ /* x151980 stalin.sc:20737:725932 */ if (a1213==FALSE_TYPE) goto l17580; /* x151997 stalin.sc:20738:725956 */ /* x151996 stalin.sc:20738:725966 */ /* x151989 stalin.sc:20738:725972 */ /* x151988 stalin.sc:20738:725983 */ /* x151983 stalin.sc:20738:725973 */ t92239.tag = NATIVE_PROCEDURE_TYPE21480; t92235 = f13545(t92239); /* x151995 stalin.sc:20739:726030 */ /* x151994 stalin.sc:20739:726040 */ /* x151992 stalin.sc:20739:726046 */ t92242 = 2; /* x151993 stalin.sc:20739:726048 */ t92243 = a1236; /* x268364 stalin.sc:20739:726041 */ switch (t92243.tag) {case FIXNUM_TYPE: if ((t92243.value.fixnum_type)<0) {t92240.tag = FLONUM_TYPE; t92240.value.flonum_type = pow(t92242, (t92243.value.fixnum_type));} else {t92240.tag = FIXNUM_TYPE; t92240.value.fixnum_type = ipow(t92242, (t92243.value.fixnum_type));} break; case FLONUM_TYPE: t92240.tag = FLONUM_TYPE; t92240.value.flonum_type = pow(t92242, (t92243.value.flonum_type)); break; default: backtrace("stalin.sc", 20739, 726040); expt2_error();} /* x151990 stalin.sc:20739:726031 */ t92241 = *((struct w49 *)(&t92240)); t92236 = f13530(t92241); /* x151982 stalin.sc:20738:725967 */ t92237.tag = STRUCTURE_TYPE24753; t92237.value.structure_type24753 = t92235; t92238.tag = STRING_TYPE; t92238.value.string_type = t92236; t92233 = f13591(t92237, t92238); /* x151981 stalin.sc:20738:725957 */ t92234 = f13782(t92233); t92056.tag = STRUCTURE_TYPE24753; t92056.value.structure_type24753 = t92234; goto l17581; l17580: /* x151999 stalin.sc:20740:726075 */ /* x151998 stalin.sc:20740:726076 */ /* x276585 stalin.sc:14693:514793 */ t92056.tag = STRING_TYPE; t92056.value.string_type = ""; l17581: /* x151979 stalin.sc:20733:725757 */ /* x151959 stalin.sc:20733:725761 */ if (a1214==FALSE_TYPE) goto l17577; /* x151976 stalin.sc:20734:725789 */ /* x151975 stalin.sc:20734:725799 */ /* x151968 stalin.sc:20734:725805 */ /* x151967 stalin.sc:20734:725816 */ /* x151962 stalin.sc:20734:725806 */ t92228.tag = NATIVE_PROCEDURE_TYPE21481; t92224 = f13545(t92228); /* x151974 stalin.sc:20735:725867 */ /* x151973 stalin.sc:20735:725877 */ /* x151971 stalin.sc:20735:725883 */ t92231 = 2; /* x151972 stalin.sc:20735:725885 */ t92232 = a1237; /* x268365 stalin.sc:20735:725878 */ switch (t92232.tag) {case FIXNUM_TYPE: if ((t92232.value.fixnum_type)<0) {t92229.tag = FLONUM_TYPE; t92229.value.flonum_type = pow(t92231, (t92232.value.fixnum_type));} else {t92229.tag = FIXNUM_TYPE; t92229.value.fixnum_type = ipow(t92231, (t92232.value.fixnum_type));} break; case FLONUM_TYPE: t92229.tag = FLONUM_TYPE; t92229.value.flonum_type = pow(t92231, (t92232.value.flonum_type)); break; default: backtrace("stalin.sc", 20735, 725877); expt2_error();} /* x151969 stalin.sc:20735:725868 */ t92230 = *((struct w49 *)(&t92229)); t92225 = f13530(t92230); /* x151961 stalin.sc:20734:725800 */ t92226.tag = STRUCTURE_TYPE24753; t92226.value.structure_type24753 = t92224; t92227.tag = STRING_TYPE; t92227.value.string_type = t92225; t92222 = f13591(t92226, t92227); /* x151960 stalin.sc:20734:725790 */ t92223 = f13782(t92222); t92055.tag = STRUCTURE_TYPE24753; t92055.value.structure_type24753 = t92223; goto l17578; l17577: /* x151978 stalin.sc:20736:725916 */ /* x151977 stalin.sc:20736:725917 */ /* x276583 stalin.sc:14693:514793 */ t92055.tag = STRING_TYPE; t92055.value.string_type = ""; l17578: /* x151958 stalin.sc:20729:725601 */ /* x151938 stalin.sc:20729:725605 */ if (a1215==FALSE_TYPE) goto l17574; /* x151955 stalin.sc:20730:725628 */ /* x151954 stalin.sc:20730:725638 */ /* x151947 stalin.sc:20730:725644 */ /* x151946 stalin.sc:20730:725655 */ /* x151941 stalin.sc:20730:725645 */ t92217.tag = NATIVE_PROCEDURE_TYPE21482; t92213 = f13545(t92217); /* x151953 stalin.sc:20731:725701 */ /* x151952 stalin.sc:20731:725711 */ /* x151950 stalin.sc:20731:725717 */ t92220 = 2; /* x151951 stalin.sc:20731:725719 */ t92221 = a1238; /* x268366 stalin.sc:20731:725712 */ switch (t92221.tag) {case FIXNUM_TYPE: if ((t92221.value.fixnum_type)<0) {t92218.tag = FLONUM_TYPE; t92218.value.flonum_type = pow(t92220, (t92221.value.fixnum_type));} else {t92218.tag = FIXNUM_TYPE; t92218.value.fixnum_type = ipow(t92220, (t92221.value.fixnum_type));} break; case FLONUM_TYPE: t92218.tag = FLONUM_TYPE; t92218.value.flonum_type = pow(t92220, (t92221.value.flonum_type)); break; default: backtrace("stalin.sc", 20731, 725711); expt2_error();} /* x151948 stalin.sc:20731:725702 */ t92219 = *((struct w49 *)(&t92218)); t92214 = f13530(t92219); /* x151940 stalin.sc:20730:725639 */ t92215.tag = STRUCTURE_TYPE24753; t92215.value.structure_type24753 = t92213; t92216.tag = STRING_TYPE; t92216.value.string_type = t92214; t92211 = f13591(t92215, t92216); /* x151939 stalin.sc:20730:725629 */ t92212 = f13782(t92211); t92054.tag = STRUCTURE_TYPE24753; t92054.value.structure_type24753 = t92212; goto l17575; l17574: /* x151957 stalin.sc:20732:725745 */ /* x151956 stalin.sc:20732:725746 */ /* x276581 stalin.sc:14693:514793 */ t92054.tag = STRING_TYPE; t92054.value.string_type = ""; l17575: /* x151937 stalin.sc:20725:725436 */ /* x151917 stalin.sc:20725:725440 */ if (a1216==FALSE_TYPE) goto l17571; /* x151934 stalin.sc:20726:725466 */ /* x151933 stalin.sc:20726:725476 */ /* x151926 stalin.sc:20726:725482 */ /* x151925 stalin.sc:20726:725493 */ /* x151920 stalin.sc:20726:725483 */ t92206.tag = NATIVE_PROCEDURE_TYPE21483; t92202 = f13545(t92206); /* x151932 stalin.sc:20727:725542 */ /* x151931 stalin.sc:20727:725552 */ /* x151929 stalin.sc:20727:725558 */ t92209 = 2; /* x151930 stalin.sc:20727:725560 */ t92210 = a1239; /* x268367 stalin.sc:20727:725553 */ switch (t92210.tag) {case FIXNUM_TYPE: if ((t92210.value.fixnum_type)<0) {t92207.tag = FLONUM_TYPE; t92207.value.flonum_type = pow(t92209, (t92210.value.fixnum_type));} else {t92207.tag = FIXNUM_TYPE; t92207.value.fixnum_type = ipow(t92209, (t92210.value.fixnum_type));} break; case FLONUM_TYPE: t92207.tag = FLONUM_TYPE; t92207.value.flonum_type = pow(t92209, (t92210.value.flonum_type)); break; default: backtrace("stalin.sc", 20727, 725552); expt2_error();} /* x151927 stalin.sc:20727:725543 */ t92208 = *((struct w49 *)(&t92207)); t92203 = f13530(t92208); /* x151919 stalin.sc:20726:725477 */ t92204.tag = STRUCTURE_TYPE24753; t92204.value.structure_type24753 = t92202; t92205.tag = STRING_TYPE; t92205.value.string_type = t92203; t92200 = f13591(t92204, t92205); /* x151918 stalin.sc:20726:725467 */ t92201 = f13782(t92200); t92053.tag = STRUCTURE_TYPE24753; t92053.value.structure_type24753 = t92201; goto l17572; l17571: /* x151936 stalin.sc:20728:725589 */ /* x151935 stalin.sc:20728:725590 */ /* x276579 stalin.sc:14693:514793 */ t92053.tag = STRING_TYPE; t92053.value.string_type = ""; l17572: /* x151916 stalin.sc:20720:725246 */ /* x151894 stalin.sc:20720:725250 */ if (a1217==FALSE_TYPE) goto l17568; /* x151913 stalin.sc:20721:725277 */ /* x151912 stalin.sc:20721:725287 */ /* x151905 stalin.sc:20721:725293 */ /* x151904 stalin.sc:20722:725313 */ /* x151897 stalin.sc:20721:725294 */ t92195.tag = NATIVE_PROCEDURE_TYPE21484; t92191 = f13545(t92195); /* x151911 stalin.sc:20723:725376 */ /* x151910 stalin.sc:20723:725386 */ /* x151908 stalin.sc:20723:725392 */ t92198 = 2; /* x151909 stalin.sc:20723:725394 */ t92199 = a1240; /* x268368 stalin.sc:20723:725387 */ switch (t92199.tag) {case FIXNUM_TYPE: if ((t92199.value.fixnum_type)<0) {t92196.tag = FLONUM_TYPE; t92196.value.flonum_type = pow(t92198, (t92199.value.fixnum_type));} else {t92196.tag = FIXNUM_TYPE; t92196.value.fixnum_type = ipow(t92198, (t92199.value.fixnum_type));} break; case FLONUM_TYPE: t92196.tag = FLONUM_TYPE; t92196.value.flonum_type = pow(t92198, (t92199.value.flonum_type)); break; default: backtrace("stalin.sc", 20723, 725386); expt2_error();} /* x151906 stalin.sc:20723:725377 */ t92197 = *((struct w49 *)(&t92196)); t92192 = f13530(t92197); /* x151896 stalin.sc:20721:725288 */ t92193.tag = STRUCTURE_TYPE24753; t92193.value.structure_type24753 = t92191; t92194.tag = STRING_TYPE; t92194.value.string_type = t92192; t92189 = f13591(t92193, t92194); /* x151895 stalin.sc:20721:725278 */ t92190 = f13782(t92189); t92052.tag = STRUCTURE_TYPE24753; t92052.value.structure_type24753 = t92190; goto l17569; l17568: /* x151915 stalin.sc:20724:725424 */ /* x151914 stalin.sc:20724:725425 */ /* x276577 stalin.sc:14693:514793 */ t92052.tag = STRING_TYPE; t92052.value.string_type = ""; l17569: /* x151893 stalin.sc:20715:725060 */ /* x151871 stalin.sc:20715:725064 */ if (a1218==FALSE_TYPE) goto l17565; /* x151890 stalin.sc:20716:725089 */ /* x151889 stalin.sc:20716:725099 */ /* x151882 stalin.sc:20716:725105 */ /* x151881 stalin.sc:20717:725125 */ /* x151874 stalin.sc:20716:725106 */ t92184.tag = NATIVE_PROCEDURE_TYPE21485; t92180 = f13545(t92184); /* x151888 stalin.sc:20718:725186 */ /* x151887 stalin.sc:20718:725196 */ /* x151885 stalin.sc:20718:725202 */ t92187 = 2; /* x151886 stalin.sc:20718:725204 */ t92188 = a1240; /* x268369 stalin.sc:20718:725197 */ switch (t92188.tag) {case FIXNUM_TYPE: if ((t92188.value.fixnum_type)<0) {t92185.tag = FLONUM_TYPE; t92185.value.flonum_type = pow(t92187, (t92188.value.fixnum_type));} else {t92185.tag = FIXNUM_TYPE; t92185.value.fixnum_type = ipow(t92187, (t92188.value.fixnum_type));} break; case FLONUM_TYPE: t92185.tag = FLONUM_TYPE; t92185.value.flonum_type = pow(t92187, (t92188.value.flonum_type)); break; default: backtrace("stalin.sc", 20718, 725196); expt2_error();} /* x151883 stalin.sc:20718:725187 */ t92186 = *((struct w49 *)(&t92185)); t92181 = f13530(t92186); /* x151873 stalin.sc:20716:725100 */ t92182.tag = STRUCTURE_TYPE24753; t92182.value.structure_type24753 = t92180; t92183.tag = STRING_TYPE; t92183.value.string_type = t92181; t92178 = f13591(t92182, t92183); /* x151872 stalin.sc:20716:725090 */ t92179 = f13782(t92178); t92051.tag = STRUCTURE_TYPE24753; t92051.value.structure_type24753 = t92179; goto l17566; l17565: /* x151892 stalin.sc:20719:725234 */ /* x151891 stalin.sc:20719:725235 */ /* x276575 stalin.sc:14693:514793 */ t92051.tag = STRING_TYPE; t92051.value.string_type = ""; l17566: /* x151870 stalin.sc:20710:724874 */ /* x151848 stalin.sc:20710:724878 */ if (a1219==FALSE_TYPE) goto l17562; /* x151867 stalin.sc:20711:724903 */ /* x151866 stalin.sc:20711:724913 */ /* x151859 stalin.sc:20711:724919 */ /* x151858 stalin.sc:20712:724939 */ /* x151851 stalin.sc:20711:724920 */ t92173.tag = NATIVE_PROCEDURE_TYPE21486; t92169 = f13545(t92173); /* x151865 stalin.sc:20713:725000 */ /* x151864 stalin.sc:20713:725010 */ /* x151862 stalin.sc:20713:725016 */ t92176 = 2; /* x151863 stalin.sc:20713:725018 */ t92177 = a1240; /* x268370 stalin.sc:20713:725011 */ switch (t92177.tag) {case FIXNUM_TYPE: if ((t92177.value.fixnum_type)<0) {t92174.tag = FLONUM_TYPE; t92174.value.flonum_type = pow(t92176, (t92177.value.fixnum_type));} else {t92174.tag = FIXNUM_TYPE; t92174.value.fixnum_type = ipow(t92176, (t92177.value.fixnum_type));} break; case FLONUM_TYPE: t92174.tag = FLONUM_TYPE; t92174.value.flonum_type = pow(t92176, (t92177.value.flonum_type)); break; default: backtrace("stalin.sc", 20713, 725010); expt2_error();} /* x151860 stalin.sc:20713:725001 */ t92175 = *((struct w49 *)(&t92174)); t92170 = f13530(t92175); /* x151850 stalin.sc:20711:724914 */ t92171.tag = STRUCTURE_TYPE24753; t92171.value.structure_type24753 = t92169; t92172.tag = STRING_TYPE; t92172.value.string_type = t92170; t92167 = f13591(t92171, t92172); /* x151849 stalin.sc:20711:724904 */ t92168 = f13782(t92167); t92050.tag = STRUCTURE_TYPE24753; t92050.value.structure_type24753 = t92168; goto l17563; l17562: /* x151869 stalin.sc:20714:725048 */ /* x151868 stalin.sc:20714:725049 */ /* x276573 stalin.sc:14693:514793 */ t92050.tag = STRING_TYPE; t92050.value.string_type = ""; l17563: /* x151847 stalin.sc:20705:724688 */ /* x151825 stalin.sc:20705:724692 */ if (a1220==FALSE_TYPE) goto l17559; /* x151844 stalin.sc:20706:724717 */ /* x151843 stalin.sc:20706:724727 */ /* x151836 stalin.sc:20706:724733 */ /* x151835 stalin.sc:20707:724753 */ /* x151828 stalin.sc:20706:724734 */ t92162.tag = NATIVE_PROCEDURE_TYPE21487; t92158 = f13545(t92162); /* x151842 stalin.sc:20708:724814 */ /* x151841 stalin.sc:20708:724824 */ /* x151839 stalin.sc:20708:724830 */ t92165 = 2; /* x151840 stalin.sc:20708:724832 */ t92166 = a1240; /* x268371 stalin.sc:20708:724825 */ switch (t92166.tag) {case FIXNUM_TYPE: if ((t92166.value.fixnum_type)<0) {t92163.tag = FLONUM_TYPE; t92163.value.flonum_type = pow(t92165, (t92166.value.fixnum_type));} else {t92163.tag = FIXNUM_TYPE; t92163.value.fixnum_type = ipow(t92165, (t92166.value.fixnum_type));} break; case FLONUM_TYPE: t92163.tag = FLONUM_TYPE; t92163.value.flonum_type = pow(t92165, (t92166.value.flonum_type)); break; default: backtrace("stalin.sc", 20708, 724824); expt2_error();} /* x151837 stalin.sc:20708:724815 */ t92164 = *((struct w49 *)(&t92163)); t92159 = f13530(t92164); /* x151827 stalin.sc:20706:724728 */ t92160.tag = STRUCTURE_TYPE24753; t92160.value.structure_type24753 = t92158; t92161.tag = STRING_TYPE; t92161.value.string_type = t92159; t92156 = f13591(t92160, t92161); /* x151826 stalin.sc:20706:724718 */ t92157 = f13782(t92156); t92049.tag = STRUCTURE_TYPE24753; t92049.value.structure_type24753 = t92157; goto l17560; l17559: /* x151846 stalin.sc:20709:724862 */ /* x151845 stalin.sc:20709:724863 */ /* x276571 stalin.sc:14693:514793 */ t92049.tag = STRING_TYPE; t92049.value.string_type = ""; l17560: /* x151824 stalin.sc:20700:724495 */ /* x151803 stalin.sc:20700:724499 */ if (a1221==FALSE_TYPE) goto l17556; /* x151821 stalin.sc:20701:724530 */ /* x151820 stalin.sc:20701:724540 */ /* x151813 stalin.sc:20701:724546 */ /* x151812 stalin.sc:20702:724566 */ /* x151806 stalin.sc:20701:724547 */ t92151.tag = NATIVE_PROCEDURE_TYPE21488; t92147 = f13545(t92151); /* x151819 stalin.sc:20703:724629 */ /* x151818 stalin.sc:20703:724639 */ /* x151816 stalin.sc:20703:724645 */ t92154 = 2; /* x151817 stalin.sc:20703:724647 */ t92155 = a1241; /* x268372 stalin.sc:20703:724640 */ switch (t92155.tag) {case FIXNUM_TYPE: if ((t92155.value.fixnum_type)<0) {t92152.tag = FLONUM_TYPE; t92152.value.flonum_type = pow(t92154, (t92155.value.fixnum_type));} else {t92152.tag = FIXNUM_TYPE; t92152.value.fixnum_type = ipow(t92154, (t92155.value.fixnum_type));} break; case FLONUM_TYPE: t92152.tag = FLONUM_TYPE; t92152.value.flonum_type = pow(t92154, (t92155.value.flonum_type)); break; default: backtrace("stalin.sc", 20703, 724639); expt2_error();} /* x151814 stalin.sc:20703:724630 */ t92153 = *((struct w49 *)(&t92152)); t92148 = f13530(t92153); /* x151805 stalin.sc:20701:724541 */ t92149.tag = STRUCTURE_TYPE24753; t92149.value.structure_type24753 = t92147; t92150.tag = STRING_TYPE; t92150.value.string_type = t92148; t92145 = f13591(t92149, t92150); /* x151804 stalin.sc:20701:724531 */ t92146 = f13782(t92145); t92048.tag = STRUCTURE_TYPE24753; t92048.value.structure_type24753 = t92146; goto l17557; l17556: /* x151823 stalin.sc:20704:724676 */ /* x151822 stalin.sc:20704:724677 */ /* x276569 stalin.sc:14693:514793 */ t92048.tag = STRING_TYPE; t92048.value.string_type = ""; l17557: /* x151802 stalin.sc:20696:724330 */ /* x151782 stalin.sc:20696:724334 */ if (a1222==FALSE_TYPE) goto l17553; /* x151799 stalin.sc:20697:724360 */ /* x151798 stalin.sc:20697:724370 */ /* x151791 stalin.sc:20697:724376 */ /* x151790 stalin.sc:20697:724387 */ /* x151785 stalin.sc:20697:724377 */ t92140.tag = NATIVE_PROCEDURE_TYPE21489; t92136 = f13545(t92140); /* x151797 stalin.sc:20698:724436 */ /* x151796 stalin.sc:20698:724446 */ /* x151794 stalin.sc:20698:724452 */ t92143 = 2; /* x151795 stalin.sc:20698:724454 */ t92144 = a1241; /* x268373 stalin.sc:20698:724447 */ switch (t92144.tag) {case FIXNUM_TYPE: if ((t92144.value.fixnum_type)<0) {t92141.tag = FLONUM_TYPE; t92141.value.flonum_type = pow(t92143, (t92144.value.fixnum_type));} else {t92141.tag = FIXNUM_TYPE; t92141.value.fixnum_type = ipow(t92143, (t92144.value.fixnum_type));} break; case FLONUM_TYPE: t92141.tag = FLONUM_TYPE; t92141.value.flonum_type = pow(t92143, (t92144.value.flonum_type)); break; default: backtrace("stalin.sc", 20698, 724446); expt2_error();} /* x151792 stalin.sc:20698:724437 */ t92142 = *((struct w49 *)(&t92141)); t92137 = f13530(t92142); /* x151784 stalin.sc:20697:724371 */ t92138.tag = STRUCTURE_TYPE24753; t92138.value.structure_type24753 = t92136; t92139.tag = STRING_TYPE; t92139.value.string_type = t92137; t92134 = f13591(t92138, t92139); /* x151783 stalin.sc:20697:724361 */ t92135 = f13782(t92134); t92047.tag = STRUCTURE_TYPE24753; t92047.value.structure_type24753 = t92135; goto l17554; l17553: /* x151801 stalin.sc:20699:724483 */ /* x151800 stalin.sc:20699:724484 */ /* x276567 stalin.sc:14693:514793 */ t92047.tag = STRING_TYPE; t92047.value.string_type = ""; l17554: /* x151781 stalin.sc:20692:724165 */ /* x151761 stalin.sc:20692:724169 */ if (a1223==FALSE_TYPE) goto l17550; /* x151778 stalin.sc:20693:724195 */ /* x151777 stalin.sc:20693:724205 */ /* x151770 stalin.sc:20693:724211 */ /* x151769 stalin.sc:20693:724222 */ /* x151764 stalin.sc:20693:724212 */ t92129.tag = NATIVE_PROCEDURE_TYPE21490; t92125 = f13545(t92129); /* x151776 stalin.sc:20694:724271 */ /* x151775 stalin.sc:20694:724281 */ /* x151773 stalin.sc:20694:724287 */ t92132 = 2; /* x151774 stalin.sc:20694:724289 */ t92133 = a1242; /* x268374 stalin.sc:20694:724282 */ switch (t92133.tag) {case FIXNUM_TYPE: if ((t92133.value.fixnum_type)<0) {t92130.tag = FLONUM_TYPE; t92130.value.flonum_type = pow(t92132, (t92133.value.fixnum_type));} else {t92130.tag = FIXNUM_TYPE; t92130.value.fixnum_type = ipow(t92132, (t92133.value.fixnum_type));} break; case FLONUM_TYPE: t92130.tag = FLONUM_TYPE; t92130.value.flonum_type = pow(t92132, (t92133.value.flonum_type)); break; default: backtrace("stalin.sc", 20694, 724281); expt2_error();} /* x151771 stalin.sc:20694:724272 */ t92131 = *((struct w49 *)(&t92130)); t92126 = f13530(t92131); /* x151763 stalin.sc:20693:724206 */ t92127.tag = STRUCTURE_TYPE24753; t92127.value.structure_type24753 = t92125; t92128.tag = STRING_TYPE; t92128.value.string_type = t92126; t92123 = f13591(t92127, t92128); /* x151762 stalin.sc:20693:724196 */ t92124 = f13782(t92123); t92046.tag = STRUCTURE_TYPE24753; t92046.value.structure_type24753 = t92124; goto l17551; l17550: /* x151780 stalin.sc:20695:724318 */ /* x151779 stalin.sc:20695:724319 */ /* x276565 stalin.sc:14693:514793 */ t92046.tag = STRING_TYPE; t92046.value.string_type = ""; l17551: /* x151760 stalin.sc:20688:724006 */ /* x151740 stalin.sc:20688:724010 */ if (a1224==FALSE_TYPE) goto l17547; /* x151757 stalin.sc:20689:724034 */ /* x151756 stalin.sc:20689:724044 */ /* x151749 stalin.sc:20689:724050 */ /* x151748 stalin.sc:20689:724061 */ /* x151743 stalin.sc:20689:724051 */ t92118.tag = NATIVE_PROCEDURE_TYPE21491; t92114 = f13545(t92118); /* x151755 stalin.sc:20690:724108 */ /* x151754 stalin.sc:20690:724118 */ /* x151752 stalin.sc:20690:724124 */ t92121 = 2; /* x151753 stalin.sc:20690:724126 */ t92122 = a1243; /* x268375 stalin.sc:20690:724119 */ switch (t92122.tag) {case FIXNUM_TYPE: if ((t92122.value.fixnum_type)<0) {t92119.tag = FLONUM_TYPE; t92119.value.flonum_type = pow(t92121, (t92122.value.fixnum_type));} else {t92119.tag = FIXNUM_TYPE; t92119.value.fixnum_type = ipow(t92121, (t92122.value.fixnum_type));} break; case FLONUM_TYPE: t92119.tag = FLONUM_TYPE; t92119.value.flonum_type = pow(t92121, (t92122.value.flonum_type)); break; default: backtrace("stalin.sc", 20690, 724118); expt2_error();} /* x151750 stalin.sc:20690:724109 */ t92120 = *((struct w49 *)(&t92119)); t92115 = f13530(t92120); /* x151742 stalin.sc:20689:724045 */ t92116.tag = STRUCTURE_TYPE24753; t92116.value.structure_type24753 = t92114; t92117.tag = STRING_TYPE; t92117.value.string_type = t92115; t92112 = f13591(t92116, t92117); /* x151741 stalin.sc:20689:724035 */ t92113 = f13782(t92112); t92045.tag = STRUCTURE_TYPE24753; t92045.value.structure_type24753 = t92113; goto l17548; l17547: /* x151759 stalin.sc:20691:724153 */ /* x151758 stalin.sc:20691:724154 */ /* x276563 stalin.sc:14693:514793 */ t92045.tag = STRING_TYPE; t92045.value.string_type = ""; l17548: /* x151739 stalin.sc:20687:723988 */ t92111.tag = STRUCTURE_TYPE24753; t92111.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92111.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92111.value.structure_type24753->s0 = t92077; t92111.value.structure_type24753->s1.tag = NULL_TYPE; t92110.tag = STRUCTURE_TYPE24753; t92110.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92110.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92110.value.structure_type24753->s0 = t92076; t92110.value.structure_type24753->s1 = t92111; t92109.tag = STRUCTURE_TYPE24753; t92109.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92109.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92109.value.structure_type24753->s0 = *((struct w49 *)(&t92075)); t92109.value.structure_type24753->s1 = t92110; t92108.tag = STRUCTURE_TYPE24753; t92108.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92108.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92108.value.structure_type24753->s0 = *((struct w49 *)(&t92074)); t92108.value.structure_type24753->s1 = t92109; t92107.tag = STRUCTURE_TYPE24753; t92107.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92107.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92107.value.structure_type24753->s0 = *((struct w49 *)(&t92073)); t92107.value.structure_type24753->s1 = t92108; t92106.tag = STRUCTURE_TYPE24753; t92106.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92106.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92106.value.structure_type24753->s0 = *((struct w49 *)(&t92072)); t92106.value.structure_type24753->s1 = t92107; t92105.tag = STRUCTURE_TYPE24753; t92105.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92105.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92105.value.structure_type24753->s0 = *((struct w49 *)(&t92071)); t92105.value.structure_type24753->s1 = t92106; t92104.tag = STRUCTURE_TYPE24753; t92104.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92104.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92104.value.structure_type24753->s0 = *((struct w49 *)(&t92070)); t92104.value.structure_type24753->s1 = t92105; t92103.tag = STRUCTURE_TYPE24753; t92103.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92103.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92103.value.structure_type24753->s0 = *((struct w49 *)(&t92069)); t92103.value.structure_type24753->s1 = t92104; t92102.tag = STRUCTURE_TYPE24753; t92102.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92102.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92102.value.structure_type24753->s0 = *((struct w49 *)(&t92068)); t92102.value.structure_type24753->s1 = t92103; t92101.tag = STRUCTURE_TYPE24753; t92101.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92101.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92101.value.structure_type24753->s0 = *((struct w49 *)(&t92067)); t92101.value.structure_type24753->s1 = t92102; t92100.tag = STRUCTURE_TYPE24753; t92100.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92100.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92100.value.structure_type24753->s0 = *((struct w49 *)(&t92066)); t92100.value.structure_type24753->s1 = t92101; t92099.tag = STRUCTURE_TYPE24753; t92099.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92099.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92099.value.structure_type24753->s0 = *((struct w49 *)(&t92065)); t92099.value.structure_type24753->s1 = t92100; t92098.tag = STRUCTURE_TYPE24753; t92098.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92098.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92098.value.structure_type24753->s0 = *((struct w49 *)(&t92064)); t92098.value.structure_type24753->s1 = t92099; t92097.tag = STRUCTURE_TYPE24753; t92097.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92097.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92097.value.structure_type24753->s0 = t92063; t92097.value.structure_type24753->s1 = t92098; t92096.tag = STRUCTURE_TYPE24753; t92096.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92096.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92096.value.structure_type24753->s0 = t92062; t92096.value.structure_type24753->s1 = t92097; t92095.tag = STRUCTURE_TYPE24753; t92095.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92095.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92095.value.structure_type24753->s0 = t92061; t92095.value.structure_type24753->s1 = t92096; t92094.tag = STRUCTURE_TYPE24753; t92094.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92094.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92094.value.structure_type24753->s0 = t92060; t92094.value.structure_type24753->s1 = t92095; t92093.tag = STRUCTURE_TYPE24753; t92093.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92093.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92093.value.structure_type24753->s0 = t92059; t92093.value.structure_type24753->s1 = t92094; t92092.tag = STRUCTURE_TYPE24753; t92092.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92092.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92092.value.structure_type24753->s0 = t92058; t92092.value.structure_type24753->s1 = t92093; t92091.tag = STRUCTURE_TYPE24753; t92091.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92091.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92091.value.structure_type24753->s0 = *((struct w49 *)(&t92057)); t92091.value.structure_type24753->s1 = t92092; t92090.tag = STRUCTURE_TYPE24753; t92090.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92090.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92090.value.structure_type24753->s0 = *((struct w49 *)(&t92056)); t92090.value.structure_type24753->s1 = t92091; t92089.tag = STRUCTURE_TYPE24753; t92089.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92089.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92089.value.structure_type24753->s0 = *((struct w49 *)(&t92055)); t92089.value.structure_type24753->s1 = t92090; t92088.tag = STRUCTURE_TYPE24753; t92088.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92088.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92088.value.structure_type24753->s0 = *((struct w49 *)(&t92054)); t92088.value.structure_type24753->s1 = t92089; t92087.tag = STRUCTURE_TYPE24753; t92087.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92087.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92087.value.structure_type24753->s0 = *((struct w49 *)(&t92053)); t92087.value.structure_type24753->s1 = t92088; t92086.tag = STRUCTURE_TYPE24753; t92086.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92086.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92086.value.structure_type24753->s0 = *((struct w49 *)(&t92052)); t92086.value.structure_type24753->s1 = t92087; t92085.tag = STRUCTURE_TYPE24753; t92085.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92085.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92085.value.structure_type24753->s0 = *((struct w49 *)(&t92051)); t92085.value.structure_type24753->s1 = t92086; t92084.tag = STRUCTURE_TYPE24753; t92084.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92084.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92084.value.structure_type24753->s0 = *((struct w49 *)(&t92050)); t92084.value.structure_type24753->s1 = t92085; t92083.tag = STRUCTURE_TYPE24753; t92083.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92083.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92083.value.structure_type24753->s0 = *((struct w49 *)(&t92049)); t92083.value.structure_type24753->s1 = t92084; t92082.tag = STRUCTURE_TYPE24753; t92082.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92082.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92082.value.structure_type24753->s0 = *((struct w49 *)(&t92048)); t92082.value.structure_type24753->s1 = t92083; t92081.tag = STRUCTURE_TYPE24753; t92081.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92081.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92081.value.structure_type24753->s0 = *((struct w49 *)(&t92047)); t92081.value.structure_type24753->s1 = t92082; t92080.tag = STRUCTURE_TYPE24753; t92080.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92080.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} t92080.value.structure_type24753->s0 = *((struct w49 *)(&t92046)); t92080.value.structure_type24753->s1 = t92081; a41863 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41863==NULL) {backtrace("stalin.sc", 20687, 723987); out_of_memory_error();} a41863->s0 = *((struct w49 *)(&t92045)); a41863->s1 = t92080; /* x301564 stalin.sc:14400:506485 */ /* x301563 stalin.sc:14400:506503 */ t92078 = a41863; /* x301562 stalin.sc:14400:506486 */ t92079.tag = STRUCTURE_TYPE24753; t92079.value.structure_type24753 = t92078; t92025 = f13492(t92079); /* x229192 stalin.sc:32505:1123498 */ /* x229191 stalin.sc:32505:1123516 */ /* x229190 stalin.sc:32505:1123525 */ t92043 = a1195; /* x229189 stalin.sc:32505:1123517 */ /* MOVE: branching squeezed to general */ if (t92043>=((struct structure_type24753 *)VALUE_OFFSET)) {t92044.tag = STRUCTURE_TYPE24753; t92044.value.structure_type24753 = t92043;} else t92044.tag = (unsigned)t92043; t92041 = f26331(t92044); /* x229188 stalin.sc:32505:1123499 */ t92042 = *((struct w49 *)(&t92041)); t92024 = f13492(t92042); /* x229187 stalin.sc:32504:1123480 */ t92040.tag = STRUCTURE_TYPE24753; t92040.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92040.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32504, 1123479); out_of_memory_error();} t92040.value.structure_type24753->s0 = t92031; t92040.value.structure_type24753->s1.tag = NULL_TYPE; t92039.tag = STRUCTURE_TYPE24753; t92039.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92039.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32504, 1123479); out_of_memory_error();} t92039.value.structure_type24753->s0 = *((struct w49 *)(&t92030)); t92039.value.structure_type24753->s1 = t92040; t92038.tag = STRUCTURE_TYPE24753; t92038.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92038.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32504, 1123479); out_of_memory_error();} t92038.value.structure_type24753->s0 = t92029; t92038.value.structure_type24753->s1 = t92039; t92037.tag = STRUCTURE_TYPE24753; t92037.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92037.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32504, 1123479); out_of_memory_error();} t92037.value.structure_type24753->s0.tag = STRING_TYPE; t92037.value.structure_type24753->s0.value.string_type = t92028; t92037.value.structure_type24753->s1 = t92038; t92036.tag = STRUCTURE_TYPE24753; t92036.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92036.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32504, 1123479); out_of_memory_error();} t92036.value.structure_type24753->s0 = t92027; t92036.value.structure_type24753->s1 = t92037; t92035.tag = STRUCTURE_TYPE24753; t92035.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92035.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32504, 1123479); out_of_memory_error();} t92035.value.structure_type24753->s0 = t92026; t92035.value.structure_type24753->s1 = t92036; t92034.tag = STRUCTURE_TYPE24753; t92034.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92034.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32504, 1123479); out_of_memory_error();} t92034.value.structure_type24753->s0 = t92025; t92034.value.structure_type24753->s1 = t92035; a41862 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41862==NULL) {backtrace("stalin.sc", 32504, 1123479); out_of_memory_error();} a41862->s0 = t92024; a41862->s1 = t92034; /* x301560 stalin.sc:14400:506485 */ /* x301559 stalin.sc:14400:506503 */ t92032 = a41862; /* x301558 stalin.sc:14400:506486 */ t92033.tag = STRUCTURE_TYPE24753; t92033.value.structure_type24753 = t92032; t92023 = f13492(t92033); /* x229186 stalin.sc:32503:1123457 */ t91836 = f13501(t92023); /* x229185 stalin.sc:32490:1122998 */ /* x229184 stalin.sc:32492:1123035 */ /* x229161 stalin.sc:32492:1123039 */ /* x229160 stalin.sc:32492:1123043 */ /* x229159 stalin.sc:32492:1123054 */ t91995 = a33339; /* x229158 stalin.sc:32492:1123044 */ if (!(f8229(t91995)==FALSE_TYPE)) goto l17540; /* x229155 */ /* x229154 stalin.sc:32493:1123066 */ /* x229152 stalin.sc:32493:1123071 */ t91996 = a687; /* x229153 stalin.sc:32493:1123099 */ t91997 = q15; /* x267530 stalin.sc:32493:1123067 */ if (t91996==t91997) goto l17540; /* x229148 */ /* x229147 stalin.sc:32494:1123119 */ /* x229145 stalin.sc:32494:1123124 */ t91998 = a687; /* x229146 stalin.sc:32494:1123152 */ t91999 = q16; /* x267531 stalin.sc:32494:1123120 */ if (t91998==t91999) goto l17540; /* x229141 */ if (a675==FALSE_TYPE) goto l17541; l17540: /* x229179 stalin.sc:32497:1123241 */ /* x229178 stalin.sc:32499:1123307 */ /* x229177 stalin.sc:32500:1123338 */ /* x229176 stalin.sc:32500:1123351 */ /* x229175 stalin.sc:32500:1123364 */ /* x229174 stalin.sc:32500:1123365 */ /* x122499 stalin.sc:14445:507721 */ t92021 = "argv"; /* x229173 stalin.sc:32500:1123352 */ t92022.tag = STRING_TYPE; t92022.value.string_type = t92021; t92019 = f13516(t92022); /* x229172 stalin.sc:32500:1123339 */ t92020.tag = STRUCTURE_TYPE24753; t92020.value.structure_type24753 = t92019; t92015 = f13516(t92020); /* x229171 stalin.sc:32500:1123331 */ t92014 = "char"; /* x229170 stalin.sc:32499:1123308 */ t92018.tag = STRUCTURE_TYPE24753; t92018.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92018.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32499, 1123307); out_of_memory_error();} t92018.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t92018.value.structure_type24753->s0.value.structure_type24753 = t92015; t92018.value.structure_type24753->s1.tag = NULL_TYPE; a42023 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42023==NULL) {backtrace("stalin.sc", 32499, 1123307); out_of_memory_error();} a42023->s0.tag = STRING_TYPE; a42023->s0.value.string_type = t92014; a42023->s1 = t92018; /* x302204 stalin.sc:14386:505956 */ /* x302203 stalin.sc:14386:505972 */ t92016 = a42023; /* x302202 stalin.sc:14386:505957 */ t92017.tag = STRUCTURE_TYPE24753; t92017.value.structure_type24753 = t92016; t92005 = f13474(t92017); /* x229169 stalin.sc:32498:1123268 */ /* x229168 stalin.sc:32498:1123289 */ /* x229167 stalin.sc:32498:1123290 */ /* x122496 stalin.sc:14443:507695 */ t92010 = "argc"; /* x229166 stalin.sc:32498:1123283 */ t92009 = "int"; /* x229165 stalin.sc:32498:1123269 */ t92013.tag = STRUCTURE_TYPE24753; t92013.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92013.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32498, 1123268); out_of_memory_error();} t92013.value.structure_type24753->s0.tag = STRING_TYPE; t92013.value.structure_type24753->s0.value.string_type = t92010; t92013.value.structure_type24753->s1.tag = NULL_TYPE; a42022 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42022==NULL) {backtrace("stalin.sc", 32498, 1123268); out_of_memory_error();} a42022->s0.tag = STRING_TYPE; a42022->s0.value.string_type = t92009; a42022->s1 = t92013; /* x302200 stalin.sc:14386:505956 */ /* x302199 stalin.sc:14386:505972 */ t92011 = a42022; /* x302198 stalin.sc:14386:505957 */ t92012.tag = STRUCTURE_TYPE24753; t92012.value.structure_type24753 = t92011; t92004 = f13474(t92012); /* x229164 stalin.sc:32497:1123251 */ /* x229163 stalin.sc:32497:1123252 */ /* x122493 stalin.sc:14441:507669 */ t92003 = "main"; /* x229162 stalin.sc:32497:1123242 */ t92006.tag = STRING_TYPE; t92006.value.string_type = t92003; t92008.tag = STRUCTURE_TYPE24753; t92008.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92008.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32497, 1123241); out_of_memory_error();} t92008.value.structure_type24753->s0 = t92005; t92008.value.structure_type24753->s1.tag = NULL_TYPE; t92007 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t92007==NULL) {backtrace("stalin.sc", 32497, 1123241); out_of_memory_error();} t92007->s0 = t92004; t92007->s1 = t92008; t91991 = f13641(t92006, t92007); goto l17542; l17541: /* x229183 stalin.sc:32502:1123427 */ /* x229182 stalin.sc:32502:1123437 */ /* x229181 stalin.sc:32502:1123438 */ /* x276971 stalin.sc:14441:507669 */ t92000 = "main"; /* x229180 stalin.sc:32502:1123428 */ t92001.tag = STRING_TYPE; t92001.value.string_type = t92000; t92002 = (struct structure_type24753 *)NULL_TYPE; t91991 = f13641(t92001, t92002); l17542: /* x229134 stalin.sc:32491:1123021 */ t91990 = "int"; /* x229133 stalin.sc:32490:1122999 */ t91994.tag = STRUCTURE_TYPE24753; t91994.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91994.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32490, 1122998); out_of_memory_error();} t91994.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t91994.value.structure_type24753->s0.value.structure_type24753 = t91991; t91994.value.structure_type24753->s1.tag = NULL_TYPE; a42021 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a42021==NULL) {backtrace("stalin.sc", 32490, 1122998); out_of_memory_error();} a42021->s0.tag = STRING_TYPE; a42021->s0.value.string_type = t91990; a42021->s1 = t91994; /* x302196 stalin.sc:14386:505956 */ /* x302195 stalin.sc:14386:505972 */ t91992 = a42021; /* x302194 stalin.sc:14386:505957 */ t91993.tag = STRUCTURE_TYPE24753; t91993.value.structure_type24753 = t91992; t91835 = f13474(t91993); /* x229132 stalin.sc:32488:1122887 */ /* x229131 stalin.sc:32488:1122888 */ /* x151712 stalin.sc:20658:723075 */ /* x151711 stalin.sc:20659:723095 */ /* x151698 stalin.sc:20659:723102 */ /* x151710 stalin.sc:20670:723470 */ /* x151709 stalin.sc:20671:723489 */ /* x151708 stalin.sc:20672:723502 */ /* x151704 stalin.sc:20672:723505 */ /* x151703 stalin.sc:20672:723513 */ t91987 = a1196; /* x151702 stalin.sc:20672:723506 */ /* MOVE: branching squeezed to general */ if (t91987>=((struct structure_type24753 *)VALUE_OFFSET)) {t91988.tag = STRUCTURE_TYPE24753; t91988.value.structure_type24753 = t91987;} else t91988.tag = (unsigned)t91987; t91985 = f26227(t91988); /* x151707 stalin.sc:20673:723535 */ /* x151706 stalin.sc:20674:723559 */ t91989 = a839; /* x268380 stalin.sc:20673:723536 */ t91986 = (float)t91989; /* x268381 stalin.sc:20672:723503 */ t91984 = t91985/t91986; /* x268382 stalin.sc:20671:723490 */ t91983 = ceil(t91984); /* x268383 stalin.sc:20670:723471 */ t91980 = (int)t91983; /* x151662 stalin.sc:20659:723096 */ t91981.tag = NATIVE_PROCEDURE_TYPE21495; t91982.tag = FIXNUM_TYPE; t91982.value.fixnum_type = t91980; t91978 = f1149(t91981, t91982); /* x151661 stalin.sc:20658:723076 */ t91979 = *((struct w49 *)(&t91978)); t91834 = f13492(t91979); /* x229130 stalin.sc:32487:1122877 */ t91833 = a33334; /* x229129 stalin.sc:32486:1122826 */ /* x229128 stalin.sc:32486:1122844 */ /* x229127 stalin.sc:32486:1122853 */ t91976 = a1197; /* x229126 stalin.sc:32486:1122845 */ /* MOVE: branching squeezed to general */ if (t91976>=((struct structure_type24753 *)VALUE_OFFSET)) {t91977.tag = STRUCTURE_TYPE24753; t91977.value.structure_type24753 = t91976;} else t91977.tag = (unsigned)t91976; t91974 = f26331(t91977); /* x229125 stalin.sc:32486:1122827 */ t91975 = *((struct w49 *)(&t91974)); t91832 = f13492(t91975); /* x229124 stalin.sc:32485:1122764 */ /* x229123 stalin.sc:32485:1122765 */ /* x145782 stalin.sc:19317:676528 */ /* x145781 stalin.sc:19318:676548 */ /* x145768 stalin.sc:19318:676555 */ /* x145780 stalin.sc:19320:676637 */ /* x145779 stalin.sc:19321:676656 */ /* x145778 stalin.sc:19322:676669 */ /* x145774 stalin.sc:19322:676672 */ /* x145773 stalin.sc:19322:676680 */ t91971 = a1196; /* x145772 stalin.sc:19322:676673 */ /* MOVE: branching squeezed to general */ if (t91971>=((struct structure_type24753 *)VALUE_OFFSET)) {t91972.tag = STRUCTURE_TYPE24753; t91972.value.structure_type24753 = t91971;} else t91972.tag = (unsigned)t91971; t91969 = f26227(t91972); /* x145777 stalin.sc:19323:676702 */ /* x145776 stalin.sc:19324:676726 */ t91973 = a839; /* x268501 stalin.sc:19323:676703 */ t91970 = (float)t91973; /* x268502 stalin.sc:19322:676670 */ t91968 = t91969/t91970; /* x268503 stalin.sc:19321:676657 */ t91967 = ceil(t91968); /* x268504 stalin.sc:19320:676638 */ t91964 = (int)t91967; /* x145759 stalin.sc:19318:676549 */ t91965.tag = NATIVE_PROCEDURE_TYPE21496; t91966.tag = FIXNUM_TYPE; t91966.value.fixnum_type = t91964; t91962 = f1149(t91965, t91966); /* x145758 stalin.sc:19317:676529 */ t91963 = *((struct w49 *)(&t91962)); t91831 = f13492(t91963); /* x229122 stalin.sc:32482:1122685 */ /* x229117 stalin.sc:32482:1122689 */ /* x229121 stalin.sc:32484:1122717 */ /* x229120 stalin.sc:32484:1122718 */ /* x145990 stalin.sc:19368:678108 */ /* x145989 stalin.sc:19369:678128 */ /* x145988 stalin.sc:19383:678613 */ t91958 = a1944; /* x145987 stalin.sc:19369:678133 */ /* x145937 stalin.sc:19369:678129 */ t91959.tag = NATIVE_PROCEDURE_TYPE21497; t91960 = *((struct w49 *)(&t91958)); t91961 = (struct structure_type24753 *)NULL_TYPE; t91956 = f27731(t91959, t91960, t91961); /* x145936 stalin.sc:19368:678109 */ /* MOVE: branching squeezed to general */ if (t91956>=((struct structure_type24753 *)VALUE_OFFSET)) {t91957.tag = STRUCTURE_TYPE24753; t91957.value.structure_type24753 = t91956;} else t91957.tag = (unsigned)t91956; t91830 = f13492(t91957); /* x229116 stalin.sc:32481:1122640 */ /* x229115 stalin.sc:32481:1122641 */ /* x145933 stalin.sc:19327:676832 */ /* x145932 stalin.sc:19328:676852 */ /* x145931 stalin.sc:19365:678051 */ t91952 = a1594; /* x145930 stalin.sc:19329:676860 */ /* x145786 stalin.sc:19328:676853 */ t91953.tag = NATIVE_PROCEDURE_TYPE21498; t91954 = *((struct w49 *)(&t91952)); t91955 = (struct structure_type24753 *)NULL_TYPE; t91950 = f27731(t91953, t91954, t91955); /* x145785 stalin.sc:19327:676833 */ /* MOVE: branching squeezed to general */ if (t91950>=((struct structure_type24753 *)VALUE_OFFSET)) {t91951.tag = STRUCTURE_TYPE24753; t91951.value.structure_type24753 = t91950;} else t91951.tag = (unsigned)t91950; t91829 = f13492(t91951); /* x229114 stalin.sc:32480:1122596 */ /* x229113 stalin.sc:32480:1122597 */ /* x139989 stalin.sc:18004:631829 */ /* x139988 stalin.sc:18005:631849 */ /* x139987 stalin.sc:18010:632047 */ t91946 = a876; /* x139986 */ /* x139971 stalin.sc:18005:631850 */ t91947.tag = NATIVE_PROCEDURE_TYPE21499; /* MOVE: branching squeezed to general */ if (t91946>=((struct structure_type24753 *)VALUE_OFFSET)) {t91948.tag = STRUCTURE_TYPE24753; t91948.value.structure_type24753 = t91946;} else t91948.tag = (unsigned)t91946; t91949 = (struct structure_type24753 *)NULL_TYPE; t91944 = f27731(t91947, t91948, t91949); /* x139970 stalin.sc:18004:631830 */ /* MOVE: branching squeezed to general */ if (t91944>=((struct structure_type24753 *)VALUE_OFFSET)) {t91945.tag = STRUCTURE_TYPE24753; t91945.value.structure_type24753 = t91944;} else t91945.tag = (unsigned)t91944; t91828 = f13492(t91945); /* x229112 stalin.sc:32479:1122562 */ /* x229111 stalin.sc:32479:1122563 */ /* x145397 stalin.sc:19242:673978 */ /* x145396 stalin.sc:19243:673998 */ /* x145395 stalin.sc:19246:674107 */ /* x145393 stalin.sc:19246:674122 */ /* x145394 stalin.sc:19246:674130 */ t91941 = a1633; /* x145392 stalin.sc:19246:674108 */ t91942.tag = NATIVE_PROCEDURE_TYPE7320; t91943 = *((struct w49 *)(&t91941)); t91937 = f1226(t91942, t91943); /* x145391 stalin.sc:19243:674003 */ /* x145377 stalin.sc:19243:673999 */ t91938.tag = NATIVE_PROCEDURE_TYPE21500; t91939 = *((struct w49 *)(&t91937)); t91940 = (struct structure_type24753 *)NULL_TYPE; t91935 = f27731(t91938, t91939, t91940); /* x145376 stalin.sc:19242:673979 */ /* MOVE: branching squeezed to general */ if (t91935>=((struct structure_type24753 *)VALUE_OFFSET)) {t91936.tag = STRUCTURE_TYPE24753; t91936.value.structure_type24753 = t91935;} else t91936.tag = (unsigned)t91935; t91827 = f13492(t91936); /* x229110 stalin.sc:32478:1122530 */ /* x229109 stalin.sc:32478:1122531 */ /* x145373 stalin.sc:19200:672775 */ /* x145372 stalin.sc:19201:672795 */ /* x145371 stalin.sc:19239:673933 */ t91931 = a1594; /* x145370 stalin.sc:19201:672800 */ /* x145220 stalin.sc:19201:672796 */ t91932.tag = NATIVE_PROCEDURE_TYPE21501; t91933 = *((struct w49 *)(&t91931)); t91934 = (struct structure_type24753 *)NULL_TYPE; t91929 = f27731(t91932, t91933, t91934); /* x145219 stalin.sc:19200:672776 */ /* MOVE: branching squeezed to general */ if (t91929>=((struct structure_type24753 *)VALUE_OFFSET)) {t91930.tag = STRUCTURE_TYPE24753; t91930.value.structure_type24753 = t91929;} else t91930.tag = (unsigned)t91929; t91826 = f13492(t91930); /* x229108 stalin.sc:32477:1122495 */ /* x229107 stalin.sc:32477:1122496 */ /* x145216 */ /* x145215 stalin.sc:19070:668838 */ /* x145208 stalin.sc:19070:668844 */ /* x145207 stalin.sc:19076:669021 */ t91924 = a1679; /* x145206 stalin.sc:19070:668850 */ /* x145184 stalin.sc:19070:668845 */ t91925.tag = NATIVE_PROCEDURE_TYPE21502; t91926 = *((struct w49 *)(&t91924)); t91927 = (struct structure_type24753 *)NULL_TYPE; if ((f1042(t91925, t91926, t91927).tag)==FALSE_TYPE) goto l17537; /* x145212 */ /* x145211 */ /* x145210 stalin.sc:19077:669029 */ /* x145209 stalin.sc:19077:669030 */ /* x295641 QobiScheme.sc:166:5314 */ /* x295640 QobiScheme.sc:166:5321 */ t91928 = "This shouldn\'t happen"; /* x295639 QobiScheme.sc:166:5315 */ stalin_panic(t91928); goto l17538; l17537: /* x145214 stalin.sc:19070:668838 */ /* x145213 stalin.sc:19070:668838 */ l17538: /* x145183 */ /* x145182 stalin.sc:19079:669094 */ /* x145181 stalin.sc:19183:672272 */ /* x145180 stalin.sc:19184:672293 */ /* x145179 stalin.sc:19196:672661 */ t91920 = a1939; /* x145178 stalin.sc:19184:672298 */ /* x145140 stalin.sc:19184:672294 */ t91921.tag = NATIVE_PROCEDURE_TYPE21506; t91922 = *((struct w49 *)(&t91920)); t91923 = (struct structure_type24753 *)NULL_TYPE; t91918 = f27731(t91921, t91922, t91923); /* x145139 stalin.sc:19183:672273 */ /* MOVE: branching squeezed to general */ if (t91918>=((struct structure_type24753 *)VALUE_OFFSET)) {t91919.tag = STRUCTURE_TYPE24753; t91919.value.structure_type24753 = t91918;} else t91919.tag = (unsigned)t91918; t91867 = f13492(t91919); /* x145138 stalin.sc:19111:670136 */ /* x145137 stalin.sc:19112:670157 */ /* x145136 stalin.sc:19152:671253 */ /* x145090 stalin.sc:19153:671273 */ /* x145135 stalin.sc:19173:671935 */ /* x145134 stalin.sc:19174:671988 */ /* x145132 stalin.sc:19174:671999 */ /* x145133 stalin.sc:19180:672127 */ t91915 = a1679; /* x145096 stalin.sc:19174:671989 */ t91916 = NATIVE_PROCEDURE_TYPE21507; t91917 = *((struct w49 *)(&t91915)); t91909 = f1218(t91916, t91917); /* x145095 stalin.sc:19173:671943 */ /* x145093 stalin.sc:19173:671954 */ /* x145094 stalin.sc:19173:671966 */ t91912 = a1940; /* x145092 stalin.sc:19173:671944 */ t91913 = NATIVE_PROCEDURE_TYPE7232; t91914 = *((struct w49 *)(&t91912)); t91908 = f1218(t91913, t91914); /* x145091 stalin.sc:19173:671936 */ t91911.tag = STRUCTURE_TYPE24753; t91911.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91911.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19173, 671935); out_of_memory_error();} t91911.value.structure_type24753->s0 = *((struct w49 *)(&t91909)); t91911.value.structure_type24753->s1.tag = NULL_TYPE; t91910 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t91910==NULL) {backtrace("stalin.sc", 19173, 671935); out_of_memory_error();} t91910->s0 = *((struct w49 *)(&t91908)); t91910->s1 = t91911; t91891 = f26254(t91910); /* x145017 stalin.sc:19152:671254 */ a15157 = t91891; /* x17703 QobiScheme.sc:783:22710 */ /* x17701 QobiScheme.sc:783:22724 */ t91892 = a15157; /* x17702 QobiScheme.sc:783:22730 */ /* x17700 */ /* x17699 */ /* x17698 */ /* x17697 */ /* x17696 */ /* x17695 */ /* x17694 */ /* x17642 */ /* x17641 QobiScheme.sc:783:22715 */ a15160 = t91892; a15161 = (struct structure_type24753 *)NULL_TYPE; h1564: /* x17693 QobiScheme.sc:784:22738 */ /* x17645 QobiScheme.sc:784:22742 */ /* x17644 QobiScheme.sc:784:22749 */ t91893 = a15160; /* x270865 QobiScheme.sc:784:22743 */ if (!((t91893.tag)==NULL_TYPE)) goto l17531; /* x17648 QobiScheme.sc:785:22758 */ /* x17647 QobiScheme.sc:785:22767 */ t91906 = a15161; /* x17646 QobiScheme.sc:785:22759 */ /* MOVE: branching squeezed to general */ if (t91906>=((struct structure_type24753 *)VALUE_OFFSET)) {t91907.tag = STRUCTURE_TYPE24753; t91907.value.structure_type24753 = t91906;} else t91907.tag = (unsigned)t91906; t91887 = f26331(t91907); goto l17532; l17531: /* x17692 QobiScheme.sc:786:22776 */ /* x17691 QobiScheme.sc:786:22785 */ /* x17689 QobiScheme.sc:787:22796 */ /* x17690 QobiScheme.sc:790:22885 */ t91903 = *((struct w16638 *)(&a15160)); /* x17670 QobiScheme.sc:786:22786 */ t91904.tag = NATIVE_PROCEDURE_TYPE21513; t91905 = *((struct w49 *)(&t91903)); t91894 = f1314(t91904, t91905); /* x17669 */ a15162 = t91894; /* x17668 */ /* x17667 QobiScheme.sc:791:22897 */ /* x17660 QobiScheme.sc:791:22905 */ if ((a15162.tag)==FALSE_TYPE) goto l17534; /* x17662 */ /* x17661 */ goto l17535; l17534: /* x17666 */ /* x17665 */ /* x17664 QobiScheme.sc:791:22907 */ /* x17663 QobiScheme.sc:791:22908 */ /* x295637 QobiScheme.sc:166:5314 */ /* x295636 QobiScheme.sc:166:5321 */ t91902 = "This shouldn\'t happen"; /* x295635 QobiScheme.sc:166:5315 */ stalin_panic(t91902); l17535: /* x17659 */ /* x17658 QobiScheme.sc:792:22925 */ /* x17653 QobiScheme.sc:792:22931 */ /* x17651 QobiScheme.sc:792:22940 */ t91897 = a15162; /* x17652 QobiScheme.sc:792:22942 */ t91898 = *((struct w16638 *)(&a15160)); /* x17650 QobiScheme.sc:792:22932 */ t91899 = *((struct w49 *)(&t91898)); t91895 = f1194(t91897, t91899); /* x17657 QobiScheme.sc:792:22945 */ /* x17655 QobiScheme.sc:792:22951 */ t91900 = a15162; /* x17656 QobiScheme.sc:792:22953 */ t91901 = a15161; /* x270864 QobiScheme.sc:792:22946 */ t91896 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t91896==NULL) {backtrace("/home/qobi/stalin/stalin-0.11/include/QobiScheme.sc", 792, 22945); out_of_memory_error();} t91896->s0 = t91900; /* MOVE: branching squeezed to general */ if (t91901>=((struct structure_type24753 *)VALUE_OFFSET)) {t91896->s1.tag = STRUCTURE_TYPE24753; t91896->s1.value.structure_type24753 = t91901;} else t91896->s1.tag = (unsigned)t91901; /* x17649 QobiScheme.sc:792:22926 */ a15160 = *((struct w49 *)(&t91895)); a15161 = t91896; goto h1564; l17532: /* x145016 stalin.sc:19112:670162 */ /* x144881 stalin.sc:19112:670158 */ t91888.tag = NATIVE_PROCEDURE_TYPE21519; t91889 = *((struct w49 *)(&t91887)); t91890 = (struct structure_type24753 *)NULL_TYPE; t91885 = f27731(t91888, t91889, t91890); /* x144880 stalin.sc:19111:670137 */ /* MOVE: branching squeezed to general */ if (t91885>=((struct structure_type24753 *)VALUE_OFFSET)) {t91886.tag = STRUCTURE_TYPE24753; t91886.value.structure_type24753 = t91885;} else t91886.tag = (unsigned)t91885; t91866 = f13492(t91886); /* x144879 stalin.sc:19096:669677 */ /* x144878 stalin.sc:19097:669698 */ /* x144877 stalin.sc:19110:670107 */ t91881 = a1936; /* x144876 stalin.sc:19097:669703 */ /* x144837 stalin.sc:19097:669699 */ t91882.tag = NATIVE_PROCEDURE_TYPE21520; t91883 = *((struct w49 *)(&t91881)); t91884 = (struct structure_type24753 *)NULL_TYPE; t91879 = f27731(t91882, t91883, t91884); /* x144836 stalin.sc:19096:669678 */ /* MOVE: branching squeezed to general */ if (t91879>=((struct structure_type24753 *)VALUE_OFFSET)) {t91880.tag = STRUCTURE_TYPE24753; t91880.value.structure_type24753 = t91879;} else t91880.tag = (unsigned)t91879; t91865 = f13492(t91880); /* x144835 stalin.sc:19082:669264 */ /* x144834 stalin.sc:19083:669285 */ /* x144833 stalin.sc:19095:669648 */ t91875 = a1938; /* x144832 stalin.sc:19083:669290 */ /* x144795 stalin.sc:19083:669286 */ t91876.tag = NATIVE_PROCEDURE_TYPE21521; t91877 = *((struct w49 *)(&t91875)); t91878 = (struct structure_type24753 *)NULL_TYPE; t91873 = f27731(t91876, t91877, t91878); /* x144794 stalin.sc:19082:669265 */ /* MOVE: branching squeezed to general */ if (t91873>=((struct structure_type24753 *)VALUE_OFFSET)) {t91874.tag = STRUCTURE_TYPE24753; t91874.value.structure_type24753 = t91873;} else t91874.tag = (unsigned)t91873; t91864 = f13492(t91874); /* x144793 stalin.sc:19079:669095 */ t91872.tag = STRUCTURE_TYPE24753; t91872.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91872.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19079, 669094); out_of_memory_error();} t91872.value.structure_type24753->s0 = t91867; t91872.value.structure_type24753->s1.tag = NULL_TYPE; t91871.tag = STRUCTURE_TYPE24753; t91871.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91871.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19079, 669094); out_of_memory_error();} t91871.value.structure_type24753->s0 = t91866; t91871.value.structure_type24753->s1 = t91872; t91870.tag = STRUCTURE_TYPE24753; t91870.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91870.value.structure_type24753)==NULL) {backtrace("stalin.sc", 19079, 669094); out_of_memory_error();} t91870.value.structure_type24753->s0 = t91865; t91870.value.structure_type24753->s1 = t91871; a41860 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41860==NULL) {backtrace("stalin.sc", 19079, 669094); out_of_memory_error();} a41860->s0 = t91864; a41860->s1 = t91870; /* x301552 stalin.sc:14400:506485 */ /* x301551 stalin.sc:14400:506503 */ t91868 = a41860; /* x301550 stalin.sc:14400:506486 */ t91869.tag = STRUCTURE_TYPE24753; t91869.value.structure_type24753 = t91868; t91825 = f13492(t91869); /* x229106 stalin.sc:32476:1122469 */ /* x229105 stalin.sc:32476:1122470 */ /* x144790 stalin.sc:19043:667974 */ /* x144789 stalin.sc:19044:667994 */ /* x144788 stalin.sc:19065:668652 */ t91860 = a1594; /* x144787 stalin.sc:19045:668002 */ /* x144693 stalin.sc:19044:667995 */ t91861.tag = NATIVE_PROCEDURE_TYPE21522; t91862 = *((struct w49 *)(&t91860)); t91863 = (struct structure_type24753 *)NULL_TYPE; t91858 = f27731(t91861, t91862, t91863); /* x144692 stalin.sc:19043:667975 */ /* MOVE: branching squeezed to general */ if (t91858>=((struct structure_type24753 *)VALUE_OFFSET)) {t91859.tag = STRUCTURE_TYPE24753; t91859.value.structure_type24753 = t91858;} else t91859.tag = (unsigned)t91858; t91824 = f13492(t91859); /* x229104 stalin.sc:32475:1122444 */ /* x229103 stalin.sc:32475:1122445 */ /* x144577 stalin.sc:18930:664542 */ /* x144576 stalin.sc:18931:664562 */ /* x144575 stalin.sc:19012:667031 */ t91854 = a1594; /* x144574 stalin.sc:18932:664570 */ /* x144304 stalin.sc:18931:664563 */ t91855.tag = NATIVE_PROCEDURE_TYPE21523; t91856 = *((struct w49 *)(&t91854)); t91857 = (struct structure_type24753 *)NULL_TYPE; t91852 = f27731(t91855, t91856, t91857); /* x144303 stalin.sc:18930:664543 */ /* MOVE: branching squeezed to general */ if (t91852>=((struct structure_type24753 *)VALUE_OFFSET)) {t91853.tag = STRUCTURE_TYPE24753; t91853.value.structure_type24753 = t91852;} else t91853.tag = (unsigned)t91852; t91823 = f13492(t91853); /* x229102 stalin.sc:32474:1122421 */ t91851.tag = STRUCTURE_TYPE24753; t91851.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91851.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32474, 1122420); out_of_memory_error();} t91851.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t91851.value.structure_type24753->s0.value.structure_type24753 = t91836; t91851.value.structure_type24753->s1.tag = NULL_TYPE; t91850.tag = STRUCTURE_TYPE24753; t91850.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91850.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32474, 1122420); out_of_memory_error();} t91850.value.structure_type24753->s0 = t91835; t91850.value.structure_type24753->s1 = t91851; t91849.tag = STRUCTURE_TYPE24753; t91849.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91849.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32474, 1122420); out_of_memory_error();} t91849.value.structure_type24753->s0 = t91834; t91849.value.structure_type24753->s1 = t91850; t91848.tag = STRUCTURE_TYPE24753; t91848.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91848.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32474, 1122420); out_of_memory_error();} t91848.value.structure_type24753->s0 = t91833; t91848.value.structure_type24753->s1 = t91849; t91847.tag = STRUCTURE_TYPE24753; t91847.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91847.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32474, 1122420); out_of_memory_error();} t91847.value.structure_type24753->s0 = t91832; t91847.value.structure_type24753->s1 = t91848; t91846.tag = STRUCTURE_TYPE24753; t91846.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91846.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32474, 1122420); out_of_memory_error();} t91846.value.structure_type24753->s0 = t91831; t91846.value.structure_type24753->s1 = t91847; t91845.tag = STRUCTURE_TYPE24753; t91845.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91845.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32474, 1122420); out_of_memory_error();} t91845.value.structure_type24753->s0 = t91830; t91845.value.structure_type24753->s1 = t91846; t91844.tag = STRUCTURE_TYPE24753; t91844.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91844.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32474, 1122420); out_of_memory_error();} t91844.value.structure_type24753->s0 = t91829; t91844.value.structure_type24753->s1 = t91845; t91843.tag = STRUCTURE_TYPE24753; t91843.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91843.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32474, 1122420); out_of_memory_error();} t91843.value.structure_type24753->s0 = t91828; t91843.value.structure_type24753->s1 = t91844; t91842.tag = STRUCTURE_TYPE24753; t91842.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91842.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32474, 1122420); out_of_memory_error();} t91842.value.structure_type24753->s0 = t91827; t91842.value.structure_type24753->s1 = t91843; t91841.tag = STRUCTURE_TYPE24753; t91841.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91841.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32474, 1122420); out_of_memory_error();} t91841.value.structure_type24753->s0 = t91826; t91841.value.structure_type24753->s1 = t91842; t91840.tag = STRUCTURE_TYPE24753; t91840.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91840.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32474, 1122420); out_of_memory_error();} t91840.value.structure_type24753->s0 = t91825; t91840.value.structure_type24753->s1 = t91841; t91839.tag = STRUCTURE_TYPE24753; t91839.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91839.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32474, 1122420); out_of_memory_error();} t91839.value.structure_type24753->s0 = t91824; t91839.value.structure_type24753->s1 = t91840; a41859 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41859==NULL) {backtrace("stalin.sc", 32474, 1122420); out_of_memory_error();} a41859->s0 = t91823; a41859->s1 = t91839; /* x301548 stalin.sc:14400:506485 */ /* x301547 stalin.sc:14400:506503 */ t91837 = a41859; /* x301546 stalin.sc:14400:506486 */ t91838.tag = STRUCTURE_TYPE24753; t91838.value.structure_type24753 = t91837; t91567 = f13492(t91838); /* x229101 */ a33345 = t91567; /* x229100 */ /* x229099 */ /* x229098 stalin.sc:32573:1125547 */ /* x229097 stalin.sc:32573:1125556 */ /* x229096 stalin.sc:32574:1125617 */ t91632 = '\n'; /* x229095 stalin.sc:32573:1125562 */ /* x229094 stalin.sc:32573:1125609 */ t91636 = a33345; /* x229093 stalin.sc:32573:1125591 */ /* x229092 stalin.sc:32573:1125592 */ /* x151658 stalin.sc:20618:721927 */ /* x151657 stalin.sc:20618:721937 */ /* x151654 stalin.sc:20618:721943 */ /* x151627 stalin.sc:20618:721954 */ /* x151653 stalin.sc:20619:722001 */ /* x151652 stalin.sc:20640:722513 */ t91789 = a1936; /* x151651 stalin.sc:20639:722480 */ t91788 = a1938; /* x151650 stalin.sc:20638:722450 */ t91787 = a1939; /* x151649 stalin.sc:20637:722424 */ t91786 = a1940; /* x151648 stalin.sc:20636:722401 */ t91785 = a1942; /* x151647 stalin.sc:20635:722372 */ t91784 = a1943; /* x151646 stalin.sc:20634:722338 */ t91783 = a1944; /* x151645 stalin.sc:20633:722305 */ t91782 = a1945; /* x151644 stalin.sc:20632:722269 */ t91781 = a1946; /* x151643 stalin.sc:20631:722237 */ t91780 = a1947; /* x151642 stalin.sc:20630:722205 */ t91779 = a1948; /* x151641 stalin.sc:20619:722009 */ /* x151640 stalin.sc:20629:722186 */ t91812 = a1951; /* x151639 stalin.sc:20628:722166 */ t91811 = a1954; /* x151638 stalin.sc:20627:722145 */ t91810 = a1957; /* x151637 stalin.sc:20626:722125 */ t91809 = a1960; /* x151636 stalin.sc:20625:722104 */ t91808 = a1963; /* x151635 stalin.sc:20624:722088 */ t91807 = a1966; /* x151634 stalin.sc:20623:722072 */ t91806 = a1969; /* x151633 stalin.sc:20622:722058 */ t91805 = a1972; /* x151632 stalin.sc:20621:722043 */ t91804 = a1975; /* x151631 stalin.sc:20620:722029 */ t91803 = a1978; /* x151630 stalin.sc:20619:722015 */ t91802 = a1981; /* x151629 stalin.sc:20619:722010 */ t91822.tag = STRUCTURE_TYPE24753; t91822.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91822.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20619, 722009); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t91812>=((char *)VALUE_OFFSET)) {t91822.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t91822.value.structure_type24753->s0.value.external_symbol_type = t91812;} else t91822.value.structure_type24753->s0.tag = (unsigned)t91812; t91822.value.structure_type24753->s1.tag = NULL_TYPE; t91821.tag = STRUCTURE_TYPE24753; t91821.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91821.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20619, 722009); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t91811>=((char *)VALUE_OFFSET)) {t91821.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t91821.value.structure_type24753->s0.value.external_symbol_type = t91811;} else t91821.value.structure_type24753->s0.tag = (unsigned)t91811; t91821.value.structure_type24753->s1 = t91822; t91820.tag = STRUCTURE_TYPE24753; t91820.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91820.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20619, 722009); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t91810>=((char *)VALUE_OFFSET)) {t91820.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t91820.value.structure_type24753->s0.value.external_symbol_type = t91810;} else t91820.value.structure_type24753->s0.tag = (unsigned)t91810; t91820.value.structure_type24753->s1 = t91821; t91819.tag = STRUCTURE_TYPE24753; t91819.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91819.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20619, 722009); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t91809>=((char *)VALUE_OFFSET)) {t91819.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t91819.value.structure_type24753->s0.value.external_symbol_type = t91809;} else t91819.value.structure_type24753->s0.tag = (unsigned)t91809; t91819.value.structure_type24753->s1 = t91820; t91818.tag = STRUCTURE_TYPE24753; t91818.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91818.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20619, 722009); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t91808>=((char *)VALUE_OFFSET)) {t91818.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t91818.value.structure_type24753->s0.value.external_symbol_type = t91808;} else t91818.value.structure_type24753->s0.tag = (unsigned)t91808; t91818.value.structure_type24753->s1 = t91819; t91817.tag = STRUCTURE_TYPE24753; t91817.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91817.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20619, 722009); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t91807>=((char *)VALUE_OFFSET)) {t91817.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t91817.value.structure_type24753->s0.value.external_symbol_type = t91807;} else t91817.value.structure_type24753->s0.tag = (unsigned)t91807; t91817.value.structure_type24753->s1 = t91818; t91816.tag = STRUCTURE_TYPE24753; t91816.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91816.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20619, 722009); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t91806>=((char *)VALUE_OFFSET)) {t91816.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t91816.value.structure_type24753->s0.value.external_symbol_type = t91806;} else t91816.value.structure_type24753->s0.tag = (unsigned)t91806; t91816.value.structure_type24753->s1 = t91817; t91815.tag = STRUCTURE_TYPE24753; t91815.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91815.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20619, 722009); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t91805>=((char *)VALUE_OFFSET)) {t91815.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t91815.value.structure_type24753->s0.value.external_symbol_type = t91805;} else t91815.value.structure_type24753->s0.tag = (unsigned)t91805; t91815.value.structure_type24753->s1 = t91816; t91814.tag = STRUCTURE_TYPE24753; t91814.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91814.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20619, 722009); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t91804>=((char *)VALUE_OFFSET)) {t91814.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t91814.value.structure_type24753->s0.value.external_symbol_type = t91804;} else t91814.value.structure_type24753->s0.tag = (unsigned)t91804; t91814.value.structure_type24753->s1 = t91815; t91813.tag = STRUCTURE_TYPE24753; t91813.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91813.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20619, 722009); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t91803>=((char *)VALUE_OFFSET)) {t91813.value.structure_type24753->s0.tag = EXTERNAL_SYMBOL_TYPE; t91813.value.structure_type24753->s0.value.external_symbol_type = t91803;} else t91813.value.structure_type24753->s0.tag = (unsigned)t91803; t91813.value.structure_type24753->s1 = t91814; a35116 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35116==NULL) {backtrace("stalin.sc", 20619, 722009); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t91802>=((char *)VALUE_OFFSET)) {a35116->s0.tag = EXTERNAL_SYMBOL_TYPE; a35116->s0.value.external_symbol_type = t91802;} else a35116->s0.tag = (unsigned)t91802; a35116->s1 = t91813; /* x272239 */ t91778 = a35116; /* x151628 stalin.sc:20619:722002 */ t91801.tag = STRUCTURE_TYPE24753; t91801.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91801.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20619, 722001); out_of_memory_error();} t91801.value.structure_type24753->s0 = *((struct w49 *)(&t91789)); t91801.value.structure_type24753->s1.tag = NULL_TYPE; t91800.tag = STRUCTURE_TYPE24753; t91800.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91800.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20619, 722001); out_of_memory_error();} t91800.value.structure_type24753->s0 = *((struct w49 *)(&t91788)); t91800.value.structure_type24753->s1 = t91801; t91799.tag = STRUCTURE_TYPE24753; t91799.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91799.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20619, 722001); out_of_memory_error();} t91799.value.structure_type24753->s0 = *((struct w49 *)(&t91787)); t91799.value.structure_type24753->s1 = t91800; t91798.tag = STRUCTURE_TYPE24753; t91798.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91798.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20619, 722001); out_of_memory_error();} t91798.value.structure_type24753->s0 = *((struct w49 *)(&t91786)); t91798.value.structure_type24753->s1 = t91799; t91797.tag = STRUCTURE_TYPE24753; t91797.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91797.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20619, 722001); out_of_memory_error();} t91797.value.structure_type24753->s0 = *((struct w49 *)(&t91785)); t91797.value.structure_type24753->s1 = t91798; t91796.tag = STRUCTURE_TYPE24753; t91796.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91796.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20619, 722001); out_of_memory_error();} t91796.value.structure_type24753->s0 = *((struct w49 *)(&t91784)); t91796.value.structure_type24753->s1 = t91797; t91795.tag = STRUCTURE_TYPE24753; t91795.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91795.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20619, 722001); out_of_memory_error();} t91795.value.structure_type24753->s0 = *((struct w49 *)(&t91783)); t91795.value.structure_type24753->s1 = t91796; t91794.tag = STRUCTURE_TYPE24753; t91794.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91794.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20619, 722001); out_of_memory_error();} t91794.value.structure_type24753->s0 = *((struct w49 *)(&t91782)); t91794.value.structure_type24753->s1 = t91795; t91793.tag = STRUCTURE_TYPE24753; t91793.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91793.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20619, 722001); out_of_memory_error();} t91793.value.structure_type24753->s0 = *((struct w49 *)(&t91781)); t91793.value.structure_type24753->s1 = t91794; t91792.tag = STRUCTURE_TYPE24753; t91792.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91792.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20619, 722001); out_of_memory_error();} t91792.value.structure_type24753->s0 = *((struct w49 *)(&t91780)); t91792.value.structure_type24753->s1 = t91793; t91791.tag = STRUCTURE_TYPE24753; t91791.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91791.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20619, 722001); out_of_memory_error();} t91791.value.structure_type24753->s0 = *((struct w49 *)(&t91779)); t91791.value.structure_type24753->s1 = t91792; t91790 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t91790==NULL) {backtrace("stalin.sc", 20619, 722001); out_of_memory_error();} t91790->s0.tag = STRUCTURE_TYPE24753; t91790->s0.value.structure_type24753 = t91778; t91790->s1 = t91791; t91776 = f26254(t91790); /* x151621 stalin.sc:20618:721944 */ t91777 = NATIVE_PROCEDURE_TYPE21526; t91772 = f1218(t91777, t91776); /* x151655 stalin.sc:20641:722543 */ /* x151656 stalin.sc:20642:722548 */ /* x151620 stalin.sc:20618:721938 */ t91773 = *((struct w49 *)(&t91772)); t91774 = NATIVE_PROCEDURE_TYPE424; t91775 = NATIVE_PROCEDURE_TYPE7386; t91739 = f1581(t91773, t91774, t91775); /* x151619 */ a27160 = t91739; /* x151618 stalin.sc:20643:722568 */ /* x151617 stalin.sc:20653:722898 */ /* x151601 stalin.sc:20653:722902 */ if (a1971==FALSE_TYPE) goto l17528; /* x151614 stalin.sc:20654:722927 */ /* x151604 stalin.sc:20654:722937 */ /* x151603 stalin.sc:20654:722938 */ /* x276341 stalin.sc:16169:562645 */ t91763 = "CHAR_OFFSET"; /* x151613 stalin.sc:20654:722953 */ /* x151612 stalin.sc:20654:722963 */ /* x151607 stalin.sc:20654:722966 */ t91768 = 256; /* x151611 stalin.sc:20654:722970 */ /* x151609 stalin.sc:20654:722976 */ t91770 = 2; /* x151610 stalin.sc:20654:722978 */ t91771 = a1226; /* x268389 stalin.sc:20654:722971 */ switch (t91771.tag) {case FIXNUM_TYPE: if ((t91771.value.fixnum_type)<0) {t91769.tag = FLONUM_TYPE; t91769.value.flonum_type = pow(t91770, (t91771.value.fixnum_type));} else {t91769.tag = FIXNUM_TYPE; t91769.value.fixnum_type = ipow(t91770, (t91771.value.fixnum_type));} break; case FLONUM_TYPE: t91769.tag = FLONUM_TYPE; t91769.value.flonum_type = pow(t91770, (t91771.value.flonum_type)); break; default: backtrace("stalin.sc", 20654, 722970); expt2_error();} /* x268390 stalin.sc:20654:722964 */ if ((t91769.tag)==FIXNUM_TYPE) {t91766.tag = FIXNUM_TYPE; t91766.value.fixnum_type = t91768*(t91769.value.fixnum_type);} else {t91766.tag = FLONUM_TYPE; t91766.value.flonum_type = t91768*(t91769.value.flonum_type);} /* x151605 stalin.sc:20654:722954 */ t91767 = *((struct w49 *)(&t91766)); t91764 = f13530(t91767); /* x151602 stalin.sc:20654:722928 */ t91765.tag = STRING_TYPE; t91765.value.string_type = t91763; t91742 = f13635(t91765, t91764); goto l17529; l17528: /* x151616 stalin.sc:20655:723007 */ /* x151615 stalin.sc:20655:723008 */ /* x276561 stalin.sc:14693:514793 */ t91742.tag = STRING_TYPE; t91742.value.string_type = ""; l17529: /* x151600 stalin.sc:20650:722769 */ /* x151582 stalin.sc:20650:722779 */ /* x151581 stalin.sc:20650:722780 */ /* x276365 stalin.sc:16167:562604 */ t91751 = "VALUE_OFFSET"; /* x151599 stalin.sc:20651:722802 */ /* x151598 stalin.sc:20651:722812 */ /* x151593 stalin.sc:20651:722815 */ /* x151588 stalin.sc:20651:722818 */ /* x151587 stalin.sc:20651:722826 */ t91760 = a27160; /* x151586 stalin.sc:20651:722819 */ t91758 = f26227(t91760); /* x151592 stalin.sc:20651:722830 */ /* x151589 stalin.sc:20651:722834 */ if (a1971==FALSE_TYPE) goto l17525; /* x151590 stalin.sc:20651:722852 */ t91759 = 256; goto l17526; l17525: /* x151591 stalin.sc:20651:722856 */ t91759 = 0; l17526: /* x268392 stalin.sc:20651:722816 */ t91756 = t91758+t91759; /* x151597 stalin.sc:20652:722865 */ /* x151595 stalin.sc:20652:722871 */ t91761 = 2; /* x151596 stalin.sc:20652:722873 */ t91762 = a1226; /* x268391 stalin.sc:20652:722866 */ switch (t91762.tag) {case FIXNUM_TYPE: if ((t91762.value.fixnum_type)<0) {t91757.tag = FLONUM_TYPE; t91757.value.flonum_type = pow(t91761, (t91762.value.fixnum_type));} else {t91757.tag = FIXNUM_TYPE; t91757.value.fixnum_type = ipow(t91761, (t91762.value.fixnum_type));} break; case FLONUM_TYPE: t91757.tag = FLONUM_TYPE; t91757.value.flonum_type = pow(t91761, (t91762.value.flonum_type)); break; default: backtrace("stalin.sc", 20652, 722865); expt2_error();} /* x268393 stalin.sc:20651:722813 */ if ((t91757.tag)==FIXNUM_TYPE) {t91754.tag = FIXNUM_TYPE; t91754.value.fixnum_type = t91756*(t91757.value.fixnum_type);} else {t91754.tag = FLONUM_TYPE; t91754.value.flonum_type = t91756*(t91757.value.flonum_type);} /* x151583 stalin.sc:20651:722803 */ t91755 = *((struct w49 *)(&t91754)); t91752 = f13530(t91755); /* x151580 stalin.sc:20650:722770 */ t91753.tag = STRING_TYPE; t91753.value.string_type = t91751; t91741 = f13635(t91753, t91752); /* x151579 stalin.sc:20644:722588 */ /* x151578 stalin.sc:20645:722610 */ /* x151576 stalin.sc:20645:722623 */ /* x151577 stalin.sc:20649:722761 */ t91749 = a27160; /* x151555 stalin.sc:20645:722611 */ t91750 = (struct p18442 *)NATIVE_PROCEDURE_TYPE21528; t91747 = f1144(t91750, t91749); /* x151554 stalin.sc:20644:722589 */ t91748 = *((struct w49 *)(&t91747)); t91740 = f13492(t91748); /* x151553 stalin.sc:20643:722569 */ t91746.tag = STRUCTURE_TYPE24753; t91746.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91746.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20643, 722568); out_of_memory_error();} t91746.value.structure_type24753->s0 = t91742; t91746.value.structure_type24753->s1.tag = NULL_TYPE; t91745.tag = STRUCTURE_TYPE24753; t91745.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91745.value.structure_type24753)==NULL) {backtrace("stalin.sc", 20643, 722568); out_of_memory_error();} t91745.value.structure_type24753->s0 = t91741; t91745.value.structure_type24753->s1 = t91746; a41858 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41858==NULL) {backtrace("stalin.sc", 20643, 722568); out_of_memory_error();} a41858->s0 = t91740; a41858->s1 = t91745; /* x301544 stalin.sc:14400:506485 */ /* x301543 stalin.sc:14400:506503 */ t91743 = a41858; /* x301542 stalin.sc:14400:506486 */ t91744.tag = STRUCTURE_TYPE24753; t91744.value.structure_type24753 = t91743; t91635 = f13492(t91744); /* x229091 stalin.sc:32573:1125579 */ /* x229090 stalin.sc:32573:1125580 */ /* x203922 */ /* x203869 stalin.sc:28169:967793 */ /* x203862 stalin.sc:28169:967799 */ if (a748==FALSE_TYPE) goto l17510; /* x203866 */ /* x203865 */ /* x203864 stalin.sc:28169:967810 */ /* x203863 stalin.sc:28169:967830 */ a750 = TRUE_TYPE; goto l17511; l17510: /* x203868 stalin.sc:28169:967793 */ /* x203867 stalin.sc:28169:967793 */ l17511: /* x203883 stalin.sc:28170:967836 */ /* x203870 stalin.sc:28170:967842 */ if (a748==FALSE_TYPE) goto l17513; /* x203880 */ /* x203879 */ /* x203878 */ /* x203877 stalin.sc:28171:967855 */ /* x203876 stalin.sc:28171:967865 */ t91725 = "stdio"; /* x203875 stalin.sc:28171:967856 */ t91726.tag = STRING_TYPE; t91726.value.string_type = t91725; f18320(t91726); /* x203874 */ /* x203873 stalin.sc:28172:967894 */ /* x203872 stalin.sc:28172:967904 */ t91723 = "stdlib"; /* x203871 stalin.sc:28172:967895 */ t91724.tag = STRING_TYPE; t91724.value.string_type = t91723; f18320(t91724); goto l17514; l17513: /* x203882 stalin.sc:28170:967836 */ /* x203881 stalin.sc:28170:967836 */ l17514: /* x203892 stalin.sc:28173:967924 */ /* x203884 stalin.sc:28173:967930 */ if (a747==FALSE_TYPE) goto l17516; /* x203889 */ /* x203888 */ /* x203887 stalin.sc:28174:967947 */ /* x203886 stalin.sc:28174:967957 */ t91727 = "stdio"; /* x203885 stalin.sc:28174:967948 */ t91728.tag = STRING_TYPE; t91728.value.string_type = t91727; f18320(t91728); goto l17517; l17516: /* x203891 stalin.sc:28173:967924 */ /* x203890 stalin.sc:28173:967924 */ l17517: /* x203901 stalin.sc:28175:967986 */ /* x203893 stalin.sc:28175:967992 */ if (a746==FALSE_TYPE) goto l17519; /* x203898 */ /* x203897 */ /* x203896 stalin.sc:28176:968018 */ /* x203895 stalin.sc:28176:968028 */ t91729 = "stdio"; /* x203894 stalin.sc:28176:968019 */ t91730.tag = STRING_TYPE; t91730.value.string_type = t91729; f18320(t91730); goto l17520; l17519: /* x203900 stalin.sc:28175:967986 */ /* x203899 stalin.sc:28175:967986 */ l17520: /* x203921 stalin.sc:28177:968057 */ /* x203902 stalin.sc:28177:968063 */ if (a744==FALSE_TYPE) goto l17522; /* x203918 */ /* x203917 */ /* x203916 */ /* x203909 stalin.sc:28178:968084 */ /* x203908 stalin.sc:28178:968094 */ t91733 = "sys/time"; /* x203907 stalin.sc:28178:968085 */ t91734.tag = STRING_TYPE; t91734.value.string_type = t91733; f18320(t91734); /* x203912 stalin.sc:28179:968119 */ /* x203911 stalin.sc:28179:968129 */ t91735 = "unistd"; /* x203910 stalin.sc:28179:968120 */ t91736.tag = STRING_TYPE; t91736.value.string_type = t91735; f18320(t91736); /* x203915 stalin.sc:28180:968173 */ /* x203914 stalin.sc:28180:968183 */ t91737 = "stdlib"; /* x203913 stalin.sc:28180:968174 */ t91738.tag = STRING_TYPE; t91738.value.string_type = t91737; f18320(t91738); /* x203906 */ /* x203905 stalin.sc:28181:968203 */ /* x203904 stalin.sc:28181:968213 */ t91731 = "stdio"; /* x203903 stalin.sc:28181:968204 */ t91732.tag = STRING_TYPE; t91732.value.string_type = t91731; f18320(t91732); goto l17523; l17522: /* x203920 stalin.sc:28177:968057 */ /* x203919 stalin.sc:28177:968057 */ l17523: /* x203861 */ /* x203860 stalin.sc:28182:968244 */ /* x203859 stalin.sc:28243:970309 */ /* x203856 stalin.sc:28243:970313 */ if (a675==FALSE_TYPE) goto l17507; /* x203857 stalin.sc:28244:970333 */ t91651 = "void Tmk_distribute_hack(const void *ptr, int size)\n{ const char *p = ptr;\n while (size>0)\n { Tmk_distribute((void *)p, (size>65460)?65460:size);\n p += 65460;\n size -= 65460;}}\nint Tmk_get_NBARRIERS(void) {return TMK_NBARRIERS;}\nint Tmk_get_NPROCS(void) {return TMK_NPROCS;}\nint Tmk_get_proc_id(void) {return Tmk_proc_id;}\nint Tmk_get_NLOCKS(void) {return TMK_NLOCKS;}"; goto l17508; l17507: /* x203858 stalin.sc:28254:970718 */ t91651 = ""; l17508: /* x203855 stalin.sc:28222:969735 */ /* x203846 stalin.sc:28222:969739 */ if (a744==FALSE_TYPE) goto l17504; /* x203853 stalin.sc:28223:969764 */ /* x203852 stalin.sc:28224:969832 */ t91718 = " *f)\n/* Returns 0 if no input, >0 if there is input, -1 if error */\n{fd_set rfds;\n struct timeval tv;\n /* check stdio buffer first */\n if (feof(f)) return 1;\n #ifdef __linux__\n if ((f->_IO_read_end)>(f->_IO_read_ptr)) return 1;\n #else\n if ((f->_cnt)>0) return 1;\n #endif\n /* watch fd to see when it has input */\n FD_ZERO(&rfds);\n FD_SET(fileno(f), &rfds);\n /* do not wait */\n tv.tv_sec = 0;\n tv.tv_usec = 0;\n return select(fileno(f)+1, &rfds, NULL, NULL, &tv);}"; /* x203851 stalin.sc:28224:969825 */ t91717 = a1245; /* x203850 stalin.sc:28223:969798 */ t91716 = " *f);\nint input_waiting("; /* x203849 stalin.sc:28223:969791 */ t91715 = a1245; /* x203848 stalin.sc:28223:969770 */ t91714 = "int input_waiting("; /* x203847 stalin.sc:28223:969765 */ t91722.tag = STRUCTURE_TYPE24753; t91722.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91722.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28223, 969764); out_of_memory_error();} t91722.value.structure_type24753->s0.tag = STRING_TYPE; t91722.value.structure_type24753->s0.value.string_type = t91718; t91722.value.structure_type24753->s1.tag = NULL_TYPE; t91721.tag = STRUCTURE_TYPE24753; t91721.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91721.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28223, 969764); out_of_memory_error();} t91721.value.structure_type24753->s0 = t91717; t91721.value.structure_type24753->s1 = t91722; t91720.tag = STRUCTURE_TYPE24753; t91720.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91720.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28223, 969764); out_of_memory_error();} t91720.value.structure_type24753->s0.tag = STRING_TYPE; t91720.value.structure_type24753->s0.value.string_type = t91716; t91720.value.structure_type24753->s1 = t91721; t91719.tag = STRUCTURE_TYPE24753; t91719.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91719.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28223, 969764); out_of_memory_error();} t91719.value.structure_type24753->s0 = t91715; t91719.value.structure_type24753->s1 = t91720; a34889 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34889==NULL) {backtrace("stalin.sc", 28223, 969764); out_of_memory_error();} a34889->s0.tag = STRING_TYPE; a34889->s0.value.string_type = t91714; a34889->s1 = t91719; /* x271785 */ t91650.tag = STRUCTURE_TYPE24753; t91650.value.structure_type24753 = a34889; goto l17505; l17504: /* x203854 stalin.sc:28242:970303 */ t91650.tag = STRING_TYPE; t91650.value.string_type = ""; l17505: /* x203845 stalin.sc:28215:969589 */ /* x203840 stalin.sc:28215:969593 */ if (a745==FALSE_TYPE) goto l17501; /* x203843 stalin.sc:28216:969609 */ /* x203842 stalin.sc:28216:969615 */ t91713 = "int ipow(int x, int y);\nint ipow(int x, int y)\n{int i, r = 1;\n for (i = 0; is0.tag = STRING_TYPE; a34890->s0.value.string_type = t91713; a34890->s1.tag = NULL_TYPE; /* x271787 */ t91649.tag = STRUCTURE_TYPE24753; t91649.value.structure_type24753 = a34890; goto l17502; l17501: /* x203844 stalin.sc:28221:969729 */ t91649.tag = STRING_TYPE; t91649.value.string_type = ""; l17502: /* x203839 stalin.sc:28211:969426 */ /* x203836 stalin.sc:28211:969430 */ if (a746==FALSE_TYPE) goto l17498; /* x203837 stalin.sc:28212:969460 */ t91648 = "void backtrace_internal(char *name);\nvoid backtrace_internal(char *name) {fprintf(stderr, \"\\nIn %s\\n\", name);}"; goto l17499; l17498: /* x203838 stalin.sc:28214:969583 */ t91648 = ""; l17499: /* x203835 stalin.sc:28206:969129 */ /* x203832 stalin.sc:28206:969133 */ if (a747==FALSE_TYPE) goto l17495; /* x203833 stalin.sc:28207:969154 */ t91647 = "void backtrace(char *file_name, unsigned int line_number, unsigned int character_number);\nvoid backtrace(char *file_name, unsigned int line_number, unsigned int character_number)\n{fprintf(stderr, \"\\n%s:%d:%d:\", file_name, line_number, character_number);}"; goto l17496; l17495: /* x203834 stalin.sc:28210:969420 */ t91647 = ""; l17496: /* x203831 stalin.sc:28201:968969 */ /* x203828 stalin.sc:28201:968973 */ if (a748==FALSE_TYPE) goto l17492; /* x203829 stalin.sc:28202:968990 */ t91646 = "void stalin_panic(char *message) NORETURN;\nvoid stalin_panic(char *message)\n{fprintf(stderr, \"%s\\n\", message); exit(-1);}"; goto l17493; l17492: /* x203830 stalin.sc:28205:969123 */ t91646 = ""; l17493: /* x203827 stalin.sc:28200:968943 */ /* x203824 stalin.sc:28200:968947 */ if (a749==FALSE_TYPE) goto l17489; /* x203825 stalin.sc:28200:968954 */ t91645 = "int c;"; goto l17490; l17489: /* x203826 stalin.sc:28200:968963 */ t91645 = ""; l17490: /* x203823 stalin.sc:28195:968766 */ /* x203822 stalin.sc:28199:968932 */ t91708 = " i;};"; /* x203821 stalin.sc:28199:968923 */ t91707 = a1250; /* x203820 stalin.sc:28199:968916 */ t91706 = " r; "; /* x203819 stalin.sc:28199:968907 */ t91705 = a1250; /* x203818 stalin.sc:28195:968772 */ t91704 = "#define IMIN(x,y) (xy?x:y)\n#define RMIN(x,y) (xy?x:y)\nstruct rectangular {"; /* x203817 stalin.sc:28195:968767 */ t91712.tag = STRUCTURE_TYPE24753; t91712.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91712.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28195, 968766); out_of_memory_error();} t91712.value.structure_type24753->s0.tag = STRING_TYPE; t91712.value.structure_type24753->s0.value.string_type = t91708; t91712.value.structure_type24753->s1.tag = NULL_TYPE; t91711.tag = STRUCTURE_TYPE24753; t91711.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91711.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28195, 968766); out_of_memory_error();} t91711.value.structure_type24753->s0 = t91707; t91711.value.structure_type24753->s1 = t91712; t91710.tag = STRUCTURE_TYPE24753; t91710.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91710.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28195, 968766); out_of_memory_error();} t91710.value.structure_type24753->s0.tag = STRING_TYPE; t91710.value.structure_type24753->s0.value.string_type = t91706; t91710.value.structure_type24753->s1 = t91711; t91709.tag = STRUCTURE_TYPE24753; t91709.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91709.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28195, 968766); out_of_memory_error();} t91709.value.structure_type24753->s0 = t91705; t91709.value.structure_type24753->s1 = t91710; a35115 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35115==NULL) {backtrace("stalin.sc", 28195, 968766); out_of_memory_error();} a35115->s0.tag = STRING_TYPE; a35115->s0.value.string_type = t91704; a35115->s1 = t91709; /* x272237 */ t91644 = a35115; /* x203816 stalin.sc:28192:968487 */ /* x203786 stalin.sc:28192:968491 */ /* x203785 stalin.sc:28192:968502 */ t91670 = a1225; /* x267960 stalin.sc:28192:968492 */ switch (t91670.tag) {case FALSE_TYPE: backtrace("stalin.sc", 28192, 968491); positive_error(); break; case FIXNUM_TYPE: if (!((t91670.value.fixnum_type)>0)) goto l17486; break; default: if (!((t91670.value.flonum_type)>0.0)) goto l17486;} /* x203814 stalin.sc:28193:968532 */ /* x203813 stalin.sc:28193:968749 */ t91681 = ")"; /* x203812 stalin.sc:28193:968706 */ /* x203811 stalin.sc:28193:968716 */ /* x203809 stalin.sc:28193:968722 */ t91702 = 2; /* x203810 stalin.sc:28193:968724 */ t91703 = a1225; /* x267957 stalin.sc:28193:968717 */ switch (t91703.tag) {case FALSE_TYPE: backtrace("stalin.sc", 28193, 968716); expt2_error(); break; case FIXNUM_TYPE: if ((t91703.value.fixnum_type)<0) {t91700.tag = FLONUM_TYPE; t91700.value.flonum_type = pow(t91702, (t91703.value.fixnum_type));} else {t91700.tag = FIXNUM_TYPE; t91700.value.fixnum_type = ipow(t91702, (t91703.value.fixnum_type));} break; default: t91700.tag = FLONUM_TYPE; t91700.value.flonum_type = pow(t91702, (t91703.value.flonum_type));} /* x203807 stalin.sc:28193:968707 */ t91701 = *((struct w49 *)(&t91700)); t91680 = f13530(t91701); /* x203806 stalin.sc:28193:968699 */ t91679 = ")p)%"; /* x203805 stalin.sc:28193:968688 */ t91678 = a1247; /* x203804 stalin.sc:28193:968681 */ t91677 = "-((("; /* x203803 stalin.sc:28193:968638 */ /* x203802 stalin.sc:28193:968648 */ /* x203800 stalin.sc:28193:968654 */ t91698 = 2; /* x203801 stalin.sc:28193:968656 */ t91699 = a1225; /* x267958 stalin.sc:28193:968649 */ switch (t91699.tag) {case FALSE_TYPE: backtrace("stalin.sc", 28193, 968648); expt2_error(); break; case FIXNUM_TYPE: if ((t91699.value.fixnum_type)<0) {t91696.tag = FLONUM_TYPE; t91696.value.flonum_type = pow(t91698, (t91699.value.fixnum_type));} else {t91696.tag = FIXNUM_TYPE; t91696.value.fixnum_type = ipow(t91698, (t91699.value.fixnum_type));} break; default: t91696.tag = FLONUM_TYPE; t91696.value.flonum_type = pow(t91698, (t91699.value.flonum_type));} /* x203798 stalin.sc:28193:968639 */ t91697 = *((struct w49 *)(&t91696)); t91676 = f13530(t91697); /* x203797 stalin.sc:28193:968625 */ t91675 = "!=0) p += "; /* x203796 stalin.sc:28193:968582 */ /* x203795 stalin.sc:28193:968592 */ /* x203793 stalin.sc:28193:968598 */ t91694 = 2; /* x203794 stalin.sc:28193:968600 */ t91695 = a1225; /* x267959 stalin.sc:28193:968593 */ switch (t91695.tag) {case FALSE_TYPE: backtrace("stalin.sc", 28193, 968592); expt2_error(); break; case FIXNUM_TYPE: if ((t91695.value.fixnum_type)<0) {t91692.tag = FLONUM_TYPE; t91692.value.flonum_type = pow(t91694, (t91695.value.fixnum_type));} else {t91692.tag = FIXNUM_TYPE; t91692.value.fixnum_type = ipow(t91694, (t91695.value.fixnum_type));} break; default: t91692.tag = FLONUM_TYPE; t91692.value.flonum_type = pow(t91694, (t91695.value.flonum_type));} /* x203791 stalin.sc:28193:968583 */ t91693 = *((struct w49 *)(&t91692)); t91674 = f13530(t91693); /* x203790 stalin.sc:28193:968575 */ t91673 = ")p)%"; /* x203789 stalin.sc:28193:968564 */ t91672 = a1247; /* x203788 stalin.sc:28193:968538 */ t91671 = "#define ALIGN(p) if ((("; /* x203787 stalin.sc:28193:968533 */ t91691.tag = STRUCTURE_TYPE24753; t91691.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91691.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28193, 968532); out_of_memory_error();} t91691.value.structure_type24753->s0.tag = STRING_TYPE; t91691.value.structure_type24753->s0.value.string_type = t91681; t91691.value.structure_type24753->s1.tag = NULL_TYPE; t91690.tag = STRUCTURE_TYPE24753; t91690.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91690.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28193, 968532); out_of_memory_error();} t91690.value.structure_type24753->s0.tag = STRING_TYPE; t91690.value.structure_type24753->s0.value.string_type = t91680; t91690.value.structure_type24753->s1 = t91691; t91689.tag = STRUCTURE_TYPE24753; t91689.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91689.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28193, 968532); out_of_memory_error();} t91689.value.structure_type24753->s0.tag = STRING_TYPE; t91689.value.structure_type24753->s0.value.string_type = t91679; t91689.value.structure_type24753->s1 = t91690; t91688.tag = STRUCTURE_TYPE24753; t91688.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91688.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28193, 968532); out_of_memory_error();} t91688.value.structure_type24753->s0 = t91678; t91688.value.structure_type24753->s1 = t91689; t91687.tag = STRUCTURE_TYPE24753; t91687.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91687.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28193, 968532); out_of_memory_error();} t91687.value.structure_type24753->s0.tag = STRING_TYPE; t91687.value.structure_type24753->s0.value.string_type = t91677; t91687.value.structure_type24753->s1 = t91688; t91686.tag = STRUCTURE_TYPE24753; t91686.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91686.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28193, 968532); out_of_memory_error();} t91686.value.structure_type24753->s0.tag = STRING_TYPE; t91686.value.structure_type24753->s0.value.string_type = t91676; t91686.value.structure_type24753->s1 = t91687; t91685.tag = STRUCTURE_TYPE24753; t91685.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91685.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28193, 968532); out_of_memory_error();} t91685.value.structure_type24753->s0.tag = STRING_TYPE; t91685.value.structure_type24753->s0.value.string_type = t91675; t91685.value.structure_type24753->s1 = t91686; t91684.tag = STRUCTURE_TYPE24753; t91684.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91684.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28193, 968532); out_of_memory_error();} t91684.value.structure_type24753->s0.tag = STRING_TYPE; t91684.value.structure_type24753->s0.value.string_type = t91674; t91684.value.structure_type24753->s1 = t91685; t91683.tag = STRUCTURE_TYPE24753; t91683.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91683.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28193, 968532); out_of_memory_error();} t91683.value.structure_type24753->s0.tag = STRING_TYPE; t91683.value.structure_type24753->s0.value.string_type = t91673; t91683.value.structure_type24753->s1 = t91684; t91682.tag = STRUCTURE_TYPE24753; t91682.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91682.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28193, 968532); out_of_memory_error();} t91682.value.structure_type24753->s0 = t91672; t91682.value.structure_type24753->s1 = t91683; a35114 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35114==NULL) {backtrace("stalin.sc", 28193, 968532); out_of_memory_error();} a35114->s0.tag = STRING_TYPE; a35114->s0.value.string_type = t91671; a35114->s1 = t91682; /* x272235 */ t91643.tag = STRUCTURE_TYPE24753; t91643.value.structure_type24753 = a35114; goto l17487; l17486: /* x203815 stalin.sc:28194:968760 */ t91643.tag = STRING_TYPE; t91643.value.string_type = ""; l17487: /* x203783 stalin.sc:28185:968359 */ /* x203780 stalin.sc:28185:968363 */ if (a750==FALSE_TYPE) goto l17483; /* x203781 stalin.sc:28186:968383 */ t91642 = "#ifdef __GNUC__\n#define NORETURN __attribute__ ((noreturn))\n#else\n#define NORETURN\n#endif"; goto l17484; l17483: /* x203782 stalin.sc:28191:968481 */ t91642 = ""; l17484: /* x203779 stalin.sc:28183:968263 */ /* x203778 stalin.sc:28184:968284 */ /* x203777 stalin.sc:28184:968342 */ t91666 = a743; /* x203776 stalin.sc:28184:968289 */ /* x203770 stalin.sc:28184:968285 */ t91667.tag = NATIVE_PROCEDURE_TYPE21540; /* MOVE: branching squeezed to general */ if (t91666>=((struct structure_type24753 *)VALUE_OFFSET)) {t91668.tag = STRUCTURE_TYPE24753; t91668.value.structure_type24753 = t91666;} else t91668.tag = (unsigned)t91666; t91669 = (struct structure_type24753 *)NULL_TYPE; t91664 = f27731(t91667, t91668, t91669); /* x203769 stalin.sc:28183:968264 */ /* MOVE: branching squeezed to general */ if (t91664>=((struct structure_type24753 *)VALUE_OFFSET)) {t91665.tag = STRUCTURE_TYPE24753; t91665.value.structure_type24753 = t91664;} else t91665.tag = (unsigned)t91664; t91641 = f13492(t91665); /* x203768 stalin.sc:28182:968245 */ t91663.tag = STRUCTURE_TYPE24753; t91663.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91663.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28182, 968244); out_of_memory_error();} t91663.value.structure_type24753->s0.tag = STRING_TYPE; t91663.value.structure_type24753->s0.value.string_type = t91651; t91663.value.structure_type24753->s1.tag = NULL_TYPE; t91662.tag = STRUCTURE_TYPE24753; t91662.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91662.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28182, 968244); out_of_memory_error();} t91662.value.structure_type24753->s0 = *((struct w49 *)(&t91650)); t91662.value.structure_type24753->s1 = t91663; t91661.tag = STRUCTURE_TYPE24753; t91661.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91661.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28182, 968244); out_of_memory_error();} t91661.value.structure_type24753->s0 = *((struct w49 *)(&t91649)); t91661.value.structure_type24753->s1 = t91662; t91660.tag = STRUCTURE_TYPE24753; t91660.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91660.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28182, 968244); out_of_memory_error();} t91660.value.structure_type24753->s0.tag = STRING_TYPE; t91660.value.structure_type24753->s0.value.string_type = t91648; t91660.value.structure_type24753->s1 = t91661; t91659.tag = STRUCTURE_TYPE24753; t91659.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91659.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28182, 968244); out_of_memory_error();} t91659.value.structure_type24753->s0.tag = STRING_TYPE; t91659.value.structure_type24753->s0.value.string_type = t91647; t91659.value.structure_type24753->s1 = t91660; t91658.tag = STRUCTURE_TYPE24753; t91658.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91658.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28182, 968244); out_of_memory_error();} t91658.value.structure_type24753->s0.tag = STRING_TYPE; t91658.value.structure_type24753->s0.value.string_type = t91646; t91658.value.structure_type24753->s1 = t91659; t91657.tag = STRUCTURE_TYPE24753; t91657.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91657.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28182, 968244); out_of_memory_error();} t91657.value.structure_type24753->s0.tag = STRING_TYPE; t91657.value.structure_type24753->s0.value.string_type = t91645; t91657.value.structure_type24753->s1 = t91658; t91656.tag = STRUCTURE_TYPE24753; t91656.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91656.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28182, 968244); out_of_memory_error();} t91656.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t91656.value.structure_type24753->s0.value.structure_type24753 = t91644; t91656.value.structure_type24753->s1 = t91657; t91655.tag = STRUCTURE_TYPE24753; t91655.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91655.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28182, 968244); out_of_memory_error();} t91655.value.structure_type24753->s0 = *((struct w49 *)(&t91643)); t91655.value.structure_type24753->s1 = t91656; t91654.tag = STRUCTURE_TYPE24753; t91654.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91654.value.structure_type24753)==NULL) {backtrace("stalin.sc", 28182, 968244); out_of_memory_error();} t91654.value.structure_type24753->s0.tag = STRING_TYPE; t91654.value.structure_type24753->s0.value.string_type = t91642; t91654.value.structure_type24753->s1 = t91655; a41857 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41857==NULL) {backtrace("stalin.sc", 28182, 968244); out_of_memory_error();} a41857->s0 = t91641; a41857->s1 = t91654; /* x301540 stalin.sc:14400:506485 */ /* x301539 stalin.sc:14400:506503 */ t91652 = a41857; /* x301538 stalin.sc:14400:506486 */ t91653.tag = STRUCTURE_TYPE24753; t91653.value.structure_type24753 = t91652; t91634 = f13492(t91653); /* x229089 stalin.sc:32573:1125563 */ t91640.tag = STRUCTURE_TYPE24753; t91640.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91640.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32573, 1125562); out_of_memory_error();} t91640.value.structure_type24753->s0 = t91636; t91640.value.structure_type24753->s1.tag = NULL_TYPE; t91639.tag = STRUCTURE_TYPE24753; t91639.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91639.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32573, 1125562); out_of_memory_error();} t91639.value.structure_type24753->s0 = t91635; t91639.value.structure_type24753->s1 = t91640; a41856 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a41856==NULL) {backtrace("stalin.sc", 32573, 1125562); out_of_memory_error();} a41856->s0 = t91634; a41856->s1 = t91639; /* x301536 stalin.sc:14400:506485 */ /* x301535 stalin.sc:14400:506503 */ t91637 = a41856; /* x301534 stalin.sc:14400:506486 */ t91638.tag = STRUCTURE_TYPE24753; t91638.value.structure_type24753 = t91637; t91631 = f13492(t91638); /* x229088 stalin.sc:32573:1125557 */ t91633.tag = STRUCTURE_TYPE24753; t91633.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91633.value.structure_type24753)==NULL) {backtrace("stalin.sc", 32573, 1125556); out_of_memory_error();} t91633.value.structure_type24753->s0.tag = ((unsigned)((unsigned char)t91632))<<2; t91633.value.structure_type24753->s1.tag = NULL_TYPE; a35113 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a35113==NULL) {backtrace("stalin.sc", 32573, 1125556); out_of_memory_error();} a35113->s0 = t91631; a35113->s1 = t91633; /* x272233 */ t91568 = a35113; /* x229087 */ a33346 = t91568; /* x229086 */ /* x229067 stalin.sc:32575:1125635 */ /* x229053 stalin.sc:32575:1125641 */ if (a678==FALSE_TYPE) goto l17480; /* x229064 */ /* x229063 */ /* x229062 */ /* x229061 stalin.sc:32576:1125667 */ /* x229059 stalin.sc:32576:1125675 */ t91587 = a702; /* x229060 stalin.sc:32576:1125681 */ t91588 = "Copy propagation"; /* x229058 stalin.sc:32576:1125668 */ f19217(t91587, t91588); /* x229057 */ /* x229056 stalin.sc:32577:1125707 */ /* x229055 stalin.sc:32577:1125726 */ t91576 = a33346; /* x229054 stalin.sc:32577:1125708 */ a26476 = t91576; /* x138180 stalin.sc:17683:618363 */ /* x138178 stalin.sc:17684:618391 */ /* x138179 stalin.sc:17683:618374 */ /* x138177 */ a26477 = (struct structure_type24753 *)NULL_TYPE; a26478 = (struct structure_type24753 *)NULL_TYPE; /* x138176 */ /* x138122 stalin.sc:17685:618399 */ /* x138121 stalin.sc:17685:618413 */ t91583 = a26476; /* x138120 */ /* x138119 */ /* x138118 */ /* x138117 */ /* x138116 */ /* x138115 */ /* x138114 */ /* x138071 */ /* x138070 stalin.sc:17685:618404 */ t91584.tag = STRUCTURE_TYPE24753; t91584.value.structure_type24753 = t91583; f15201(t91584); /* x138175 stalin.sc:17690:618574 */ /* x138174 stalin.sc:17690:618588 */ t91585 = a26476; /* x138173 */ /* x138172 */ /* x138171 */ /* x138170 */ /* x138169 */ /* x138168 */ /* x138167 */ /* x138124 */ /* x138123 stalin.sc:17690:618579 */ t91586.tag = STRUCTURE_TYPE24753; t91586.value.structure_type24753 = t91585; f15211(t91586); /* x138069 */ /* x138068 stalin.sc:17696:618772 */ /* x138067 stalin.sc:17696:618783 */ /* x138065 stalin.sc:17697:618805 */ /* x138066 stalin.sc:17702:618957 */ t91580 = a26477; /* x138042 stalin.sc:17696:618784 */ t91581.tag = NATIVE_PROCEDURE_TYPE21685; /* MOVE: branching squeezed to general */ if (t91580>=((struct structure_type24753 *)VALUE_OFFSET)) {t91582.tag = STRUCTURE_TYPE24753; t91582.value.structure_type24753 = t91580;} else t91582.tag = (unsigned)t91580; t91577 = f1226(t91581, t91582); /* x138041 */ a26481 = t91577; /* x138040 stalin.sc:17703:618967 */ /* x138039 stalin.sc:17703:618981 */ t91578 = a26476; /* x138038 */ /* x138037 */ /* x138036 */ /* x138035 */ /* x138034 */ /* x138033 */ /* x138032 */ /* x137868 */ /* x137867 stalin.sc:17703:618972 */ t91579.tag = STRUCTURE_TYPE24753; t91579.value.structure_type24753 = t91578; f15178(t91579); goto l17481; l17480: /* x229066 stalin.sc:32575:1125635 */ /* x229065 stalin.sc:32575:1125635 */ l17481: /* x229071 stalin.sc:32578:1125735 */ /* x229069 stalin.sc:32578:1125743 */ t91589 = a702; /* x229070 stalin.sc:32578:1125749 */ t91590 = "Removing unused declarations"; /* x229068 stalin.sc:32578:1125736 */ f19217(t91589, t91590); /* x229074 stalin.sc:32579:1125786 */ /* x229073 stalin.sc:32579:1125817 */ t91591 = a33346; /* x229072 stalin.sc:32579:1125787 */ a26504 = t91591; /* x138795 */ /* x138794 stalin.sc:17731:619827 */ /* x138727 stalin.sc:17752:620450 */ /* x138726 stalin.sc:17758:620633 */ /* x138725 stalin.sc:17757:620576 */ /* x138716 stalin.sc:17755:620493 */ /* x138707 stalin.sc:17753:620465 */ t91602 = 10; /* x138706 stalin.sc:17752:620451 */ t91603 = t91602; t91604 = NATIVE_PROCEDURE_TYPE21578; t91605 = NATIVE_PROCEDURE_TYPE21577; t91606.tag = STRUCTURE_TYPE24753; t91606.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91606.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17752, 620450); out_of_memory_error();} t91606.value.structure_type24753->s0.tag = FALSE_TYPE; t91606.value.structure_type24753->s1.tag = NULL_TYPE; t91594 = f2286(t91603, t91604, t91605, t91606); /* x138749 stalin.sc:17745:620247 */ /* x138748 stalin.sc:17751:620430 */ /* x138747 stalin.sc:17750:620373 */ /* x138738 stalin.sc:17748:620290 */ /* x138729 stalin.sc:17746:620262 */ t91607 = 10; /* x138728 stalin.sc:17745:620248 */ t91608 = t91607; t91609 = NATIVE_PROCEDURE_TYPE21576; t91610 = NATIVE_PROCEDURE_TYPE21575; t91611.tag = STRUCTURE_TYPE24753; t91611.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91611.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17745, 620247); out_of_memory_error();} t91611.value.structure_type24753->s0.tag = FALSE_TYPE; t91611.value.structure_type24753->s1.tag = NULL_TYPE; t91595 = f2286(t91608, t91609, t91610, t91611); /* x138771 stalin.sc:17738:620044 */ /* x138770 stalin.sc:17744:620227 */ /* x138769 stalin.sc:17743:620170 */ /* x138760 stalin.sc:17741:620087 */ /* x138751 stalin.sc:17739:620059 */ t91612 = 10; /* x138750 stalin.sc:17738:620045 */ t91613 = t91612; t91614 = NATIVE_PROCEDURE_TYPE21574; t91615 = NATIVE_PROCEDURE_TYPE21573; t91616.tag = STRUCTURE_TYPE24753; t91616.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91616.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17738, 620044); out_of_memory_error();} t91616.value.structure_type24753->s0.tag = FALSE_TYPE; t91616.value.structure_type24753->s1.tag = NULL_TYPE; t91596 = f2286(t91613, t91614, t91615, t91616); /* x138793 stalin.sc:17731:619841 */ /* x138792 stalin.sc:17737:620024 */ /* x138791 stalin.sc:17736:619967 */ /* x138782 stalin.sc:17734:619884 */ /* x138773 stalin.sc:17732:619856 */ t91617 = 10; /* x138772 stalin.sc:17731:619842 */ t91618 = t91617; t91619 = NATIVE_PROCEDURE_TYPE21570; t91620 = NATIVE_PROCEDURE_TYPE21569; t91621.tag = STRUCTURE_TYPE24753; t91621.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t91621.value.structure_type24753)==NULL) {backtrace("stalin.sc", 17731, 619841); out_of_memory_error();} t91621.value.structure_type24753->s0.tag = FALSE_TYPE; t91621.value.structure_type24753->s1.tag = NULL_TYPE; t91597 = f2286(t91618, t91619, t91620, t91621); /* x138705 */ a26512 = t91594; a26513 = t91595; a26514 = t91596; a26515 = t91597; /* x138704 */ /* x138703 stalin.sc:17760:620690 */ /* x138702 stalin.sc:17760:620704 */ t91600 = a26504; /* x138701 */ /* x138700 */ /* x138699 */ /* x138698 */ /* x138697 */ /* x138696 */ /* x138695 */ /* x138469 */ /* x138468 stalin.sc:17760:620695 */ t91601.tag = STRUCTURE_TYPE24753; t91601.value.structure_type24753 = t91600; f15257(t91601); /* x138467 */ /* x138466 stalin.sc:17781:621566 */ /* x138465 stalin.sc:17781:621580 */ t91598 = a26504; /* x138464 */ /* x138463 */ /* x138462 */ /* x138461 */ /* x138460 */ /* x138459 */ /* x138458 */ /* x138269 */ /* x138268 stalin.sc:17781:621571 */ t91599.tag = STRUCTURE_TYPE24753; t91599.value.structure_type24753 = t91598; f15236(t91599); /* x138267 */ /* x138266 stalin.sc:17802:622403 */ /* x138265 stalin.sc:17802:622417 */ t91592 = a26504; /* x138264 */ /* x138263 */ /* x138262 */ /* x138261 */ /* x138260 */ /* x138259 */ /* x138258 */ /* x138184 */ /* x138183 stalin.sc:17802:622408 */ t91593.tag = STRUCTURE_TYPE24753; t91593.value.structure_type24753 = t91592; f15223(t91593); /* x229078 stalin.sc:32580:1125825 */ /* x229076 stalin.sc:32580:1125833 */ t91622 = a702; /* x229077 stalin.sc:32580:1125839 */ t91623 = "Removing unused labels"; /* x229075 stalin.sc:32580:1125826 */ f19217(t91622, t91623); /* x229081 stalin.sc:32581:1125870 */ /* x229080 stalin.sc:32581:1125895 */ t91624 = a33346; /* x229079 stalin.sc:32581:1125871 */ a26543 = t91624; /* x139109 stalin.sc:17814:622745 */ /* x139108 stalin.sc:17814:622755 */ /* x139107 */ a26544 = (struct structure_type24753 *)NULL_TYPE; /* x139106 */ /* x139105 stalin.sc:17815:622763 */ /* x139104 stalin.sc:17815:622777 */ t91627 = a26543; /* x139103 */ /* x139102 */ /* x139101 */ /* x139100 */ /* x139099 */ /* x139098 */ /* x139097 */ /* x138890 */ /* x138889 stalin.sc:17815:622768 */ t91628.tag = STRUCTURE_TYPE24753; t91628.value.structure_type24753 = t91627; f15308(t91628); /* x138888 */ /* x138887 stalin.sc:17839:623644 */ /* x138886 stalin.sc:17839:623658 */ t91625 = a26543; /* x138885 */ /* x138884 */ /* x138883 */ /* x138882 */ /* x138881 */ /* x138880 */ /* x138879 */ /* x138799 */ /* x138798 stalin.sc:17839:623649 */ t91626.tag = STRUCTURE_TYPE24753; t91626.value.structure_type24753 = t91625; f15297(t91626); /* x229085 stalin.sc:32582:1125903 */ /* x229083 stalin.sc:32582:1125911 */ t91629 = a702; /* x229084 stalin.sc:32582:1125917 */ t91630 = "Generating C code"; /* x229082 stalin.sc:32582:1125904 */ f19217(t91629, t91630); /* x229052 */ /* x229051 stalin.sc:32583:1125943 */ /* x229048 stalin.sc:32583:1125953 */ t91569 = a33346; /* x229049 stalin.sc:32583:1125955 */ t91570 = a33038; /* x229050 stalin.sc:32583:1125964 */ t91571 = a33051; /* x229047 stalin.sc:32583:1125944 */ a32819 = t91569; a32820 = t91570; a32821 = t91571; /* x224582 stalin.sc:31054:1069784 */ /* x224288 stalin.sc:31054:1069807 */ /* x224286 stalin.sc:31054:1069826 */ t91574 = a32820; /* x224287 stalin.sc:31054:1069835 */ t91575 = "c"; /* x224285 stalin.sc:31054:1069808 */ t91572 = f2082(t91574, t91575); /* x224581 */ /* x224284 stalin.sc:31054:1069785 */ t91573 = NATIVE_PROCEDURE_TYPE21740; f27795(t91572, t91573); /* x229748 stalin.sc:32584:1125978 */ /* x229734 stalin.sc:32584:1125984 */ if (a673==FALSE_TYPE) goto l17686; /* x229745 */ /* x229744 */ /* x229743 */ /* x229742 stalin.sc:32585:1125999 */ /* x229740 stalin.sc:32585:1126007 */ t92836 = a702; /* x229741 stalin.sc:32585:1126013 */ t92837 = "Writing database"; /* x229739 stalin.sc:32585:1126000 */ f19217(t92836, t92837); /* x229738 */ /* x229737 stalin.sc:32586:1126036 */ /* x229736 stalin.sc:32586:1126052 */ t92831 = a33038; /* x229735 stalin.sc:32586:1126037 */ a33020 = t92831; /* x226559 */ /* x226558 */ /* x226557 */ /* x226556 */ /* x226555 */ /* x226554 */ /* x226553 */ /* x226514 */ /* x226513 stalin.sc:31455:1083249 */ /* x225644 stalin.sc:31455:1083272 */ /* x225642 stalin.sc:31455:1083291 */ t92834 = a33020; /* x225643 stalin.sc:31455:1083300 */ t92835 = "db"; /* x225641 stalin.sc:31455:1083273 */ t92832 = f2082(t92834, t92835); /* x226512 */ /* x225640 stalin.sc:31455:1083250 */ t92833 = NATIVE_PROCEDURE_TYPE14856; f27795(t92832, t92833); goto l17687; l17686: /* x229747 stalin.sc:32584:1125978 */ /* x229746 stalin.sc:32584:1125978 */ l17687: /* x229861 stalin.sc:32587:1126065 */ /* x229749 stalin.sc:32587:1126071 */ if (a672==FALSE_TYPE) goto l17689; /* x229858 */ /* x229857 */ /* x229856 */ /* x229855 stalin.sc:32588:1126084 */ /* x229853 stalin.sc:32588:1126092 */ t92914 = a702; /* x229854 stalin.sc:32588:1126098 */ t92915 = "Compiling C code"; /* x229852 stalin.sc:32588:1126085 */ f19217(t92914, t92915); /* x229851 */ /* x229850 stalin.sc:32589:1126121 */ /* x229843 stalin.sc:32589:1126129 */ /* x229842 stalin.sc:32590:1126141 */ /* x229841 stalin.sc:32590:1126149 */ /* x229758 stalin.sc:32590:1126157 */ /* x229839 stalin.sc:32593:1126245 */ /* x229760 stalin.sc:32593:1126248 */ t92845 = a670; /* x229838 */ /* x229837 */ /* x229775 */ t92860 = "-o"; /* x229836 */ /* x229779 stalin.sc:32601:1126416 */ /* x229778 stalin.sc:32601:1126433 */ t92868 = a33038; /* x229777 stalin.sc:32601:1126417 */ t92864 = f2069(t92868); /* x229835 */ /* x229784 stalin.sc:32602:1126453 */ /* x229782 stalin.sc:32602:1126472 */ t92872 = a33038; /* x229783 stalin.sc:32602:1126481 */ t92873 = "c"; /* x229781 stalin.sc:32602:1126454 */ t92869 = f2082(t92872, t92873); /* x229834 */ /* x229833 */ /* x229832 */ /* x229803 */ t92892 = "-lm"; /* x229831 */ /* x229805 */ t92896 = "-lstalin"; /* x229830 */ /* x229829 */ /* x229828 */ /* x229827 */ /* x229826 stalin.sc:32614:1126809 */ /* x229821 stalin.sc:32614:1126813 */ if (a675==FALSE_TYPE) goto l17701; /* x229824 stalin.sc:32614:1126827 */ t92909 = &t92912; goto l17702; l17701: /* x229825 stalin.sc:32614:1126838 */ t92909 = (struct structure_type24753 *)NULL_TYPE; l17702: /* x229820 */ t92911.tag = STRUCTURE_TYPE24753; t92911.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92911.value.structure_type24753)==NULL) {backtrace_internal("[inside STALIN 19646]"); out_of_memory_error();} t92911.value.structure_type24753->s0.tag = NULL_TYPE; t92911.value.structure_type24753->s1.tag = NULL_TYPE; t92910 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t92910==NULL) {backtrace_internal("[inside STALIN 19646]"); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t92909>=((struct structure_type24753 *)VALUE_OFFSET)) {t92910->s0.tag = STRUCTURE_TYPE24753; t92910->s0.value.structure_type24753 = t92909;} else t92910->s0.tag = (unsigned)t92909; t92910->s1 = t92911; t92905 = f26254(t92910); /* x229819 stalin.sc:32613:1126750 */ /* x229814 stalin.sc:32613:1126754 */ if (a664==FALSE_TYPE) goto l17698; /* x229817 stalin.sc:32613:1126778 */ t92904 = &t92908; goto l17699; l17698: /* x229818 stalin.sc:32613:1126793 */ t92904 = (struct structure_type24753 *)NULL_TYPE; l17699: /* x229813 */ t92907.tag = STRUCTURE_TYPE24753; t92907.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92907.value.structure_type24753)==NULL) {backtrace_internal("[inside STALIN 19646]"); out_of_memory_error();} t92907.value.structure_type24753->s0 = t92905; t92907.value.structure_type24753->s1.tag = NULL_TYPE; t92906 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t92906==NULL) {backtrace_internal("[inside STALIN 19646]"); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t92904>=((struct structure_type24753 *)VALUE_OFFSET)) {t92906->s0.tag = STRUCTURE_TYPE24753; t92906->s0.value.structure_type24753 = t92904;} else t92906->s0.tag = (unsigned)t92904; t92906->s1 = t92907; t92900 = f26254(t92906); /* x229812 stalin.sc:32612:1126700 */ /* x229807 stalin.sc:32612:1126704 */ if (a1281==FALSE_TYPE) goto l17695; /* x229810 stalin.sc:32612:1126724 */ t92899 = &t92903; goto l17696; l17695: /* x229811 stalin.sc:32612:1126734 */ t92899 = (struct structure_type24753 *)NULL_TYPE; l17696: /* x229806 */ t92902.tag = STRUCTURE_TYPE24753; t92902.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92902.value.structure_type24753)==NULL) {backtrace_internal("[inside STALIN 19646]"); out_of_memory_error();} t92902.value.structure_type24753->s0 = t92900; t92902.value.structure_type24753->s1.tag = NULL_TYPE; t92901 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t92901==NULL) {backtrace_internal("[inside STALIN 19646]"); out_of_memory_error();} /* MOVE: branching squeezed to general */ if (t92899>=((struct structure_type24753 *)VALUE_OFFSET)) {t92901->s0.tag = STRUCTURE_TYPE24753; t92901->s0.value.structure_type24753 = t92899;} else t92901->s0.tag = (unsigned)t92899; t92901->s1 = t92902; t92897 = f26254(t92901); /* x229804 */ t92898.tag = STRING_TYPE; t92898.value.string_type = t92896; t92893 = f26175(t92898, t92897); /* x229802 */ t92894.tag = STRING_TYPE; t92894.value.string_type = t92892; t92895.tag = STRUCTURE_TYPE24753; t92895.value.structure_type24753 = t92893; t92881 = f26175(t92894, t92895); /* x229801 stalin.sc:32604:1126526 */ /* x229791 stalin.sc:32604:1126534 */ /* x229799 stalin.sc:32605:1126546 */ /* x229798 stalin.sc:32608:1126628 */ t92888 = a668; /* x229797 stalin.sc:32605:1126551 */ /* x229792 stalin.sc:32605:1126547 */ t92889.tag = NATIVE_PROCEDURE_TYPE14844; t92890 = t92888; t92891 = (struct structure_type24753 *)NULL_TYPE; t92884 = f27731(t92889, t92890, t92891); /* x229800 stalin.sc:32609:1126649 */ /* x229790 stalin.sc:32604:1126527 */ t92885 = NATIVE_PROCEDURE_TYPE454; /* MOVE: branching squeezed to general */ if (t92884>=((struct structure_type24753 *)VALUE_OFFSET)) {t92886.tag = STRUCTURE_TYPE24753; t92886.value.structure_type24753 = t92884;} else t92886.tag = (unsigned)t92884; t92887.tag = NULL_TYPE; t92880 = f1006(t92885, t92886, t92887); /* x229789 */ t92883.tag = STRUCTURE_TYPE24753; t92883.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92883.value.structure_type24753)==NULL) {backtrace_internal("[inside STALIN 19646]"); out_of_memory_error();} t92883.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t92883.value.structure_type24753->s0.value.structure_type24753 = t92881; t92883.value.structure_type24753->s1.tag = NULL_TYPE; t92882 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t92882==NULL) {backtrace_internal("[inside STALIN 19646]"); out_of_memory_error();} t92882->s0 = t92880; t92882->s1 = t92883; t92875 = f26254(t92882); /* x229788 stalin.sc:32603:1126497 */ /* x229787 stalin.sc:32603:1126506 */ t92878 = a669; /* x229786 stalin.sc:32603:1126498 */ /* MOVE: branching squeezed to general */ if (t92878>=((struct structure_type24753 *)VALUE_OFFSET)) {t92879.tag = STRUCTURE_TYPE24753; t92879.value.structure_type24753 = t92878;} else t92879.tag = (unsigned)t92878; t92874 = f26331(t92879); /* x229785 */ t92877.tag = STRUCTURE_TYPE24753; t92877.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92877.value.structure_type24753)==NULL) {backtrace_internal("[inside STALIN 19646]"); out_of_memory_error();} t92877.value.structure_type24753->s0 = t92875; t92877.value.structure_type24753->s1.tag = NULL_TYPE; t92876 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t92876==NULL) {backtrace_internal("[inside STALIN 19646]"); out_of_memory_error();} t92876->s0 = *((struct w49 *)(&t92874)); t92876->s1 = t92877; t92870 = f26254(t92876); /* x229780 */ t92871.tag = STRING_TYPE; t92871.value.string_type = t92869; t92865 = f26175(t92871, t92870); /* x229776 */ /* MOVE: branching squeezed to general */ if (t92864>=((char *)VALUE_OFFSET)) {t92866.tag = STRING_TYPE; t92866.value.string_type = t92864;} else t92866.tag = (unsigned)t92864; t92867.tag = STRUCTURE_TYPE24753; t92867.value.structure_type24753 = t92865; t92861 = f26175(t92866, t92867); /* x229774 */ t92862.tag = STRING_TYPE; t92862.value.string_type = t92860; t92863.tag = STRUCTURE_TYPE24753; t92863.value.structure_type24753 = t92861; t92849 = f26175(t92862, t92863); /* x229773 stalin.sc:32594:1126264 */ /* x229763 stalin.sc:32594:1126272 */ /* x229771 stalin.sc:32595:1126284 */ /* x229770 stalin.sc:32598:1126366 */ t92856 = a668; /* x229769 stalin.sc:32595:1126289 */ /* x229764 stalin.sc:32595:1126285 */ t92857.tag = NATIVE_PROCEDURE_TYPE14845; t92858 = t92856; t92859 = (struct structure_type24753 *)NULL_TYPE; t92852 = f27731(t92857, t92858, t92859); /* x229772 stalin.sc:32599:1126387 */ /* x229762 stalin.sc:32594:1126265 */ t92853 = NATIVE_PROCEDURE_TYPE454; /* MOVE: branching squeezed to general */ if (t92852>=((struct structure_type24753 *)VALUE_OFFSET)) {t92854.tag = STRUCTURE_TYPE24753; t92854.value.structure_type24753 = t92852;} else t92854.tag = (unsigned)t92852; t92855.tag = NULL_TYPE; t92848 = f1006(t92853, t92854, t92855); /* x229761 */ t92851.tag = STRUCTURE_TYPE24753; t92851.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t92851.value.structure_type24753)==NULL) {backtrace_internal("[inside STALIN 19646]"); out_of_memory_error();} t92851.value.structure_type24753->s0.tag = STRUCTURE_TYPE24753; t92851.value.structure_type24753->s0.value.structure_type24753 = t92849; t92851.value.structure_type24753->s1.tag = NULL_TYPE; t92850 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (t92850==NULL) {backtrace_internal("[inside STALIN 19646]"); out_of_memory_error();} t92850->s0 = t92848; t92850->s1 = t92851; t92846 = f26254(t92850); /* x229759 */ t92847.tag = STRING_TYPE; t92847.value.string_type = t92845; t92840 = f26175(t92847, t92846); /* x229840 stalin.sc:32615:1126851 */ t92841 = ""; /* x229752 stalin.sc:32590:1126150 */ t92842 = NATIVE_PROCEDURE_TYPE14846; t92843.tag = STRUCTURE_TYPE24753; t92843.value.structure_type24753 = t92840; t92844.tag = STRING_TYPE; t92844.value.string_type = t92841; t92839 = f1006(t92842, t92843, t92844); /* x229751 stalin.sc:32590:1126142 */ if (!((t92839.tag)==STRING_TYPE)) {backtrace("stalin.sc", 32590, 1126141); foreign_call_error();} t92838 = system(t92839.value.string_type); /* x267526 stalin.sc:32589:1126130 */ if (!(t92838==0)) goto l17692; /* x229845 */ /* x229844 */ goto l17693; l17692: /* x229849 */ /* x229848 */ /* x229847 stalin.sc:32616:1126861 */ /* x229846 stalin.sc:32616:1126862 */ /* x297481 QobiScheme.sc:166:5314 */ /* x297480 QobiScheme.sc:166:5321 */ t92913 = "This shouldn\'t happen"; /* x297479 QobiScheme.sc:166:5315 */ stalin_panic(t92913); l17693: goto l17690; l17689: /* x229860 stalin.sc:32587:1126065 */ /* x229859 stalin.sc:32587:1126065 */ l17690: /* x229878 stalin.sc:32617:1126875 */ /* x229867 stalin.sc:32617:1126881 */ /* x229862 stalin.sc:32617:1126886 */ if (a672==FALSE_TYPE) goto l17704; /* x229865 */ /* x229864 stalin.sc:32617:1126901 */ if (!(a671==FALSE_TYPE)) goto l17704; /* x229875 */ /* x229874 */ /* x229873 stalin.sc:32617:1126913 */ /* x229872 stalin.sc:32617:1126917 */ /* x229870 stalin.sc:32617:1126936 */ t92917 = a33038; /* x229871 stalin.sc:32617:1126945 */ t92918 = "c"; /* x229869 stalin.sc:32617:1126918 */ t92916 = f2082(t92917, t92918); /* x229868 stalin.sc:32617:1126914 */ f2186(t92916); goto l17705; l17704: /* x229877 stalin.sc:32617:1126875 */ /* x229876 stalin.sc:32617:1126875 */ l17705: /* x226570 */ /* x226569 stalin.sc:32618:1126954 */ /* x226562 stalin.sc:32618:1126960 */ if (a702==FALSE_TYPE) goto l17218; /* x226566 */ /* x226565 */ /* x226564 stalin.sc:32618:1126966 */ /* x226563 stalin.sc:32618:1126967 */ /* x225439 */ /* x225383 stalin.sc:31387:1080816 */ /* x225382 stalin.sc:31387:1080824 */ t89304 = "Compilation time summary (in CPU seconds)"; /* x225381 stalin.sc:31387:1080817 */ t89305.tag = STRING_TYPE; t89305.value.string_type = t89304; t89306 = (struct structure_type24753 *)NULL_TYPE; f5365(t89305, t89306); /* x225438 stalin.sc:31388:1080870 */ /* x225437 stalin.sc:31388:1080879 */ /* x225436 stalin.sc:31388:1080880 */ t89307 = f4651(); /* x225435 */ a33014 = t89307; /* x225434 stalin.sc:31390:1080918 */ /* x225384 stalin.sc:31390:1080924 */ if (a666==((struct structure_type24753 *)FALSE_TYPE)) goto l17220; /* x225431 */ /* x225430 */ /* x225429 stalin.sc:31391:1080936 */ /* x225428 stalin.sc:31391:1080950 */ /* x225426 stalin.sc:31391:1080959 */ /* x225427 stalin.sc:31394:1081062 */ t89330 = a665; /* x225417 stalin.sc:31391:1080951 */ t89331.tag = NATIVE_PROCEDURE_TYPE24581; /* MOVE: branching squeezed to general */ if (t89330>=((struct structure_type24753 *)VALUE_OFFSET)) {t89332.tag = STRUCTURE_TYPE24753; t89332.value.structure_type24753 = t89330;} else t89332.tag = (unsigned)t89330; t89308 = f1314(t89331, t89332); /* x225416 */ a33015 = t89308; /* x225415 stalin.sc:31396:1081106 */ /* x225385 stalin.sc:31396:1081110 */ if ((a33015.tag)==FALSE_TYPE) goto l17223; /* x225399 stalin.sc:31397:1081118 */ /* x225387 stalin.sc:31397:1081128 */ t89320 = *((struct w3467 *)(&a33015)); /* x225398 stalin.sc:31397:1081135 */ /* x225391 stalin.sc:31397:1081138 */ /* x225390 stalin.sc:31397:1081145 */ t89324 = *((struct w3467 *)(&a33015)); /* x225389 stalin.sc:31397:1081139 */ a35640 = t89324; /* x273917 */ /* x273916 */ t89325 = a35640; /* x273915 */ if (!((t89325.tag)==STRUCTURE_TYPE24753)) {backtrace_internal("[clone CAR[26176] 29789]"); structure_ref_error();} t89322 = t89325.value.structure_type24753->s0; /* x225397 stalin.sc:31397:1081153 */ /* x225393 stalin.sc:31397:1081156 */ t89326 = a33014; /* x225396 stalin.sc:31397:1081158 */ /* x225395 stalin.sc:31397:1081165 */ t89328 = a666; /* x225394 stalin.sc:31397:1081159 */ a35641 = t89328; /* x273921 */ /* x273920 */ t89329 = a35641; /* x273919 */ if (!(t89329>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29790]"); structure_ref_error();} t89327 = t89329->s0; /* x267614 stalin.sc:31397:1081154 */ switch (t89327.tag) {case FIXNUM_TYPE: t89323 = t89326-(t89327.value.fixnum_type); break; case FLONUM_TYPE: t89323 = t89326-(t89327.value.flonum_type); break; default: backtrace("stalin.sc", 31397, 1081153); minus_error();} /* x267615 stalin.sc:31397:1081136 */ switch (t89322.tag) {case FIXNUM_TYPE: t89321 = (t89322.value.fixnum_type)+t89323; break; case FLONUM_TYPE: t89321 = (t89322.value.flonum_type)+t89323; break; default: backtrace("stalin.sc", 31397, 1081135); plus_error();} /* x267616 stalin.sc:31397:1081119 */ if (!((t89320.tag)==STRUCTURE_TYPE24753)) {backtrace("stalin.sc", 31397, 1081118); structure_set_error();} t89320.value.structure_type24753->s0.tag = FLONUM_TYPE; t89320.value.structure_type24753->s0.value.flonum_type = t89321; goto l17224; l17223: /* x225414 stalin.sc:31398:1081179 */ /* x225413 stalin.sc:31399:1081202 */ /* x225411 stalin.sc:31399:1081208 */ /* x225410 stalin.sc:31399:1081237 */ /* x225409 stalin.sc:31399:1081245 */ t89318 = a666; /* x225408 stalin.sc:31399:1081238 */ /* MOVE: branching squeezed to general */ if (t89318>=((struct structure_type24753 *)VALUE_OFFSET)) {t89319.tag = STRUCTURE_TYPE24753; t89319.value.structure_type24753 = t89318;} else t89319.tag = (unsigned)t89318; t89312 = f26181(t89319); /* x225407 stalin.sc:31399:1081214 */ /* x225403 stalin.sc:31399:1081217 */ t89314 = a33014; /* x225406 stalin.sc:31399:1081219 */ /* x225405 stalin.sc:31399:1081226 */ t89316 = a666; /* x225404 stalin.sc:31399:1081220 */ a35642 = t89316; /* x273925 */ /* x273924 */ t89317 = a35642; /* x273923 */ if (!(t89317>=((struct structure_type24753 *)VALUE_OFFSET))) {backtrace_internal("[clone CAR[26176] 29791]"); structure_ref_error();} t89315 = t89317->s0; /* x267612 stalin.sc:31399:1081215 */ switch (t89315.tag) {case FIXNUM_TYPE: t89311 = t89314-(t89315.value.fixnum_type); break; case FLONUM_TYPE: t89311 = t89314-(t89315.value.flonum_type); break; default: backtrace("stalin.sc", 31399, 1081214); minus_error();} /* x225401 stalin.sc:31399:1081209 */ t89313.tag = STRUCTURE_TYPE24753; t89313.value.structure_type24753 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if ((t89313.value.structure_type24753)==NULL) {backtrace("stalin.sc", 31399, 1081208); out_of_memory_error();} t89313.value.structure_type24753->s0 = t89312; t89313.value.structure_type24753->s1.tag = NULL_TYPE; a34863 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a34863==NULL) {backtrace("stalin.sc", 31399, 1081208); out_of_memory_error();} a34863->s0.tag = FLONUM_TYPE; a34863->s0.value.flonum_type = t89311; a34863->s1 = t89313; /* x271733 */ t89309 = a34863; /* x225412 stalin.sc:31400:1081262 */ t89310 = a665; /* x267613 stalin.sc:31399:1081203 */ a665 = (struct structure_type24753 *)GC_malloc(sizeof(struct structure_type24753)); if (a665==NULL) {backtrace("stalin.sc", 31399, 1081202); out_of_memory_error();} a665->s0.tag = STRUCTURE_TYPE24753; a665->s0.value.structure_type24753 = t89309; /* MOVE: branching squeezed to general */ if (t89310>=((struct structure_type24753 *)VALUE_OFFSET)) {a665->s1.tag = STRUCTURE_TYPE24753; a665->s1.value.structure_type24753 = t89310;} else a665->s1.tag = (unsigned)t89310; l17224: goto l17221; l17220: /* x225433 stalin.sc:31390:1080918 */ /* x225432 stalin.sc:31390:1080918 */ l17221: /* x225380 */ /* x225379 stalin.sc:31401:1081279 */ /* x225378 stalin.sc:31411:1081577 */ /* x225377 stalin.sc:31411:1081586 */ t89302 = a665; /* x225376 stalin.sc:31411:1081578 */ /* MOVE: branching squeezed to general */ if (t89302>=((struct structure_type24753 *)VALUE_OFFSET)) {t89303.tag = STRUCTURE_TYPE24753; t89303.value.structure_type24753 = t89302;} else t89303.tag = (unsigned)t89302; t89298 = f26331(t89303); /* x225375 stalin.sc:31402:1081291 */ /* x225335 stalin.sc:31401:1081280 */ t89299.tag = NATIVE_PROCEDURE_TYPE24584; t89300 = *((struct w49 *)(&t89298)); t89301 = (struct structure_type24753 *)NULL_TYPE; f27755(t89299, t89300, t89301); return; l17218: /* x226568 stalin.sc:32618:1126954 */ /* x226567 stalin.sc:32618:1126954 */ return;} void initialize_constants0(void) {t1075.length = 16; /* x262499 */ (t1075.element)[0] = '0'; /* x262500 */ (t1075.element)[1] = '1'; /* x262501 */ (t1075.element)[2] = '2'; /* x262502 */ (t1075.element)[3] = '3'; /* x262503 */ (t1075.element)[4] = '4'; /* x262504 */ (t1075.element)[5] = '5'; /* x262505 */ (t1075.element)[6] = '6'; /* x262506 */ (t1075.element)[7] = '7'; /* x262507 */ (t1075.element)[8] = '8'; /* x262508 */ (t1075.element)[9] = '9'; /* x262509 */ (t1075.element)[10] = 'A'; /* x262510 */ (t1075.element)[11] = 'B'; /* x262511 */ (t1075.element)[12] = 'C'; /* x262512 */ (t1075.element)[13] = 'D'; /* x262513 */ (t1075.element)[14] = 'E'; /* x262514 */ (t1075.element)[15] = 'F'; /* x260625 */ t1662.s0.tag = ((unsigned)((unsigned char)'e'))<<2; /* x260626 */ t1663.s0.tag = ((unsigned)((unsigned char)'c'))<<2; /* x260627 */ t1664.s0.tag = ((unsigned)((unsigned char)'a'))<<2; /* x260628 */ t1665.s0.tag = ((unsigned)((unsigned char)'p'))<<2; /* x260629 */ t1666.s0.tag = ((unsigned)((unsigned char)'s'))<<2; /* x260630 */ t1666.s1.tag = NULL_TYPE; /* x260631 */ t1665.s1.tag = STRUCTURE_TYPE24753; t1665.s1.value.structure_type24753 = &t1666; /* x260632 */ t1664.s1.tag = STRUCTURE_TYPE24753; t1664.s1.value.structure_type24753 = &t1665; /* x260633 */ t1663.s1.tag = STRUCTURE_TYPE24753; t1663.s1.value.structure_type24753 = &t1664; /* x260634 */ t1662.s1.tag = STRUCTURE_TYPE24753; t1662.s1.value.structure_type24753 = &t1663; /* x260635 */ t1661.s0.tag = STRUCTURE_TYPE24753; t1661.s0.value.structure_type24753 = &t1662; /* x260636 */ t1661.s1.tag = ((unsigned)((unsigned char)' '))<<2; /* x260637 */ t1660.s0.tag = STRUCTURE_TYPE24753; t1660.s0.value.structure_type24753 = &t1661; /* x260638 */ t1669.s0.tag = ((unsigned)((unsigned char)'e'))<<2; /* x260639 */ t1670.s0.tag = ((unsigned)((unsigned char)'n'))<<2; /* x260640 */ t1671.s0.tag = ((unsigned)((unsigned char)'i'))<<2; /* x260641 */ t1672.s0.tag = ((unsigned)((unsigned char)'l'))<<2; /* x260642 */ t1673.s0.tag = ((unsigned)((unsigned char)'w'))<<2; /* x260643 */ t1674.s0.tag = ((unsigned)((unsigned char)'e'))<<2; /* x260644 */ t1675.s0.tag = ((unsigned)((unsigned char)'n'))<<2; /* x260645 */ t1675.s1.tag = NULL_TYPE; /* x260646 */ t1674.s1.tag = STRUCTURE_TYPE24753; t1674.s1.value.structure_type24753 = &t1675; /* x260647 */ t1673.s1.tag = STRUCTURE_TYPE24753; t1673.s1.value.structure_type24753 = &t1674; /* x260648 */ t1672.s1.tag = STRUCTURE_TYPE24753; t1672.s1.value.structure_type24753 = &t1673; /* x260649 */ t1671.s1.tag = STRUCTURE_TYPE24753; t1671.s1.value.structure_type24753 = &t1672; /* x260650 */ t1670.s1.tag = STRUCTURE_TYPE24753; t1670.s1.value.structure_type24753 = &t1671; /* x260651 */ t1669.s1.tag = STRUCTURE_TYPE24753; t1669.s1.value.structure_type24753 = &t1670; /* x260652 */ t1668.s0.tag = STRUCTURE_TYPE24753; t1668.s0.value.structure_type24753 = &t1669; /* x260653 */ t1668.s1.tag = ((unsigned)((unsigned char)'\n'))<<2; /* x260654 */ t1667.s0.tag = STRUCTURE_TYPE24753; t1667.s0.value.structure_type24753 = &t1668; /* x260655 */ t1667.s1.tag = NULL_TYPE; /* x260656 */ t1660.s1.tag = STRUCTURE_TYPE24753; t1660.s1.value.structure_type24753 = &t1667; /* x224031 stalin.sc:30657:1055893 */ t9717.s0.tag = ((unsigned)((unsigned char)'e'))<<2; /* x224032 stalin.sc:30657:1055893 */ t9718.s0.tag = ((unsigned)((unsigned char)'c'))<<2; /* x224033 stalin.sc:30657:1055893 */ t9719.s0.tag = ((unsigned)((unsigned char)'a'))<<2; /* x224034 stalin.sc:30657:1055893 */ t9720.s0.tag = ((unsigned)((unsigned char)'p'))<<2; /* x224035 stalin.sc:30657:1055893 */ t9721.s0.tag = ((unsigned)((unsigned char)'s'))<<2; /* x224036 stalin.sc:30657:1055893 */ t9721.s1.tag = NULL_TYPE; /* x224037 stalin.sc:30657:1055893 */ t9720.s1.tag = STRUCTURE_TYPE24753; t9720.s1.value.structure_type24753 = &t9721; /* x224038 stalin.sc:30657:1055893 */ t9719.s1.tag = STRUCTURE_TYPE24753; t9719.s1.value.structure_type24753 = &t9720; /* x224039 stalin.sc:30657:1055893 */ t9718.s1.tag = STRUCTURE_TYPE24753; t9718.s1.value.structure_type24753 = &t9719; /* x224040 stalin.sc:30657:1055893 */ t9717.s1.tag = STRUCTURE_TYPE24753; t9717.s1.value.structure_type24753 = &t9718; /* x224041 stalin.sc:30657:1055893 */ t9716.s0.tag = STRUCTURE_TYPE24753; t9716.s0.value.structure_type24753 = &t9717; /* x224042 stalin.sc:30657:1055893 */ t9716.s1.tag = ((unsigned)((unsigned char)' '))<<2; /* x224043 stalin.sc:30657:1055893 */ t9715.s0.tag = STRUCTURE_TYPE24753; t9715.s0.value.structure_type24753 = &t9716; /* x224044 stalin.sc:30657:1055893 */ t9724.s0.tag = ((unsigned)((unsigned char)'e'))<<2; /* x224045 stalin.sc:30657:1055893 */ t9725.s0.tag = ((unsigned)((unsigned char)'n'))<<2; /* x224046 stalin.sc:30657:1055893 */ t9726.s0.tag = ((unsigned)((unsigned char)'i'))<<2; /* x224047 stalin.sc:30657:1055893 */ t9727.s0.tag = ((unsigned)((unsigned char)'l'))<<2; /* x224048 stalin.sc:30657:1055893 */ t9728.s0.tag = ((unsigned)((unsigned char)'w'))<<2; /* x224049 stalin.sc:30657:1055893 */ t9729.s0.tag = ((unsigned)((unsigned char)'e'))<<2; /* x224050 stalin.sc:30657:1055893 */ t9730.s0.tag = ((unsigned)((unsigned char)'n'))<<2; /* x224051 stalin.sc:30657:1055893 */ t9730.s1.tag = NULL_TYPE; /* x224052 stalin.sc:30657:1055893 */ t9729.s1.tag = STRUCTURE_TYPE24753; t9729.s1.value.structure_type24753 = &t9730; /* x224053 stalin.sc:30657:1055893 */ t9728.s1.tag = STRUCTURE_TYPE24753; t9728.s1.value.structure_type24753 = &t9729; /* x224054 stalin.sc:30657:1055893 */ t9727.s1.tag = STRUCTURE_TYPE24753; t9727.s1.value.structure_type24753 = &t9728; /* x224055 stalin.sc:30657:1055893 */ t9726.s1.tag = STRUCTURE_TYPE24753; t9726.s1.value.structure_type24753 = &t9727; /* x224056 stalin.sc:30657:1055893 */ t9725.s1.tag = STRUCTURE_TYPE24753; t9725.s1.value.structure_type24753 = &t9726; /* x224057 stalin.sc:30657:1055893 */ t9724.s1.tag = STRUCTURE_TYPE24753; t9724.s1.value.structure_type24753 = &t9725; /* x224058 stalin.sc:30657:1055893 */ t9723.s0.tag = STRUCTURE_TYPE24753; t9723.s0.value.structure_type24753 = &t9724; /* x224059 stalin.sc:30657:1055893 */ t9723.s1.tag = ((unsigned)((unsigned char)'\n'))<<2; /* x224060 stalin.sc:30657:1055893 */ t9722.s0.tag = STRUCTURE_TYPE24753; t9722.s0.value.structure_type24753 = &t9723; /* x224061 stalin.sc:30657:1055893 */ t9722.s1.tag = NULL_TYPE; /* x224062 stalin.sc:30657:1055893 */ t9715.s1.tag = STRUCTURE_TYPE24753; t9715.s1.value.structure_type24753 = &t9722; /* x220987 stalin.sc:30695:1057374 */ t11228.s0.tag = ((unsigned)((unsigned char)';'))<<2; /* x220988 stalin.sc:30695:1057374 */ t11228.s1.tag = NULL_TYPE; /* x220441 */ t11395.s0.tag = EXTERNAL_SYMBOL_TYPE; t11395.s0.value.external_symbol_type = q456; /* x220442 */ t11396.s0.tag = EXTERNAL_SYMBOL_TYPE; t11396.s0.value.external_symbol_type = q755; /* x220443 */ t11397.s0.tag = EXTERNAL_SYMBOL_TYPE; t11397.s0.value.external_symbol_type = q756; /* x220444 */ t11397.s1.tag = NULL_TYPE; /* x220445 */ t11396.s1.tag = STRUCTURE_TYPE24753; t11396.s1.value.structure_type24753 = &t11397; /* x220446 */ t11395.s1.tag = STRUCTURE_TYPE24753; t11395.s1.value.structure_type24753 = &t11396; /* x220460 */ t11413.s0.tag = EXTERNAL_SYMBOL_TYPE; t11413.s0.value.external_symbol_type = q456; /* x220461 */ t11414.s0.tag = EXTERNAL_SYMBOL_TYPE; t11414.s0.value.external_symbol_type = q755; /* x220462 */ t11415.s0.tag = EXTERNAL_SYMBOL_TYPE; t11415.s0.value.external_symbol_type = q260; /* x220463 */ t11416.s0.tag = EXTERNAL_SYMBOL_TYPE; t11416.s0.value.external_symbol_type = q756; /* x220464 */ t11416.s1.tag = NULL_TYPE; /* x220465 */ t11415.s1.tag = STRUCTURE_TYPE24753; t11415.s1.value.structure_type24753 = &t11416; /* x220466 */ t11414.s1.tag = STRUCTURE_TYPE24753; t11414.s1.value.structure_type24753 = &t11415; /* x220467 */ t11413.s1.tag = STRUCTURE_TYPE24753; t11413.s1.value.structure_type24753 = &t11414; /* x220481 */ t11432.s0.tag = EXTERNAL_SYMBOL_TYPE; t11432.s0.value.external_symbol_type = q456; /* x220482 */ t11433.s0.tag = EXTERNAL_SYMBOL_TYPE; t11433.s0.value.external_symbol_type = q755; /* x220483 */ t11434.s0.tag = EXTERNAL_SYMBOL_TYPE; t11434.s0.value.external_symbol_type = q260; /* x220484 */ t11435.s0.tag = EXTERNAL_SYMBOL_TYPE; t11435.s0.value.external_symbol_type = q756; /* x220485 */ t11435.s1.tag = NULL_TYPE; /* x220486 */ t11434.s1.tag = STRUCTURE_TYPE24753; t11434.s1.value.structure_type24753 = &t11435; /* x220487 */ t11433.s1.tag = STRUCTURE_TYPE24753; t11433.s1.value.structure_type24753 = &t11434; /* x220488 */ t11432.s1.tag = STRUCTURE_TYPE24753; t11432.s1.value.structure_type24753 = &t11433; /* x220502 */ t11451.s0.tag = EXTERNAL_SYMBOL_TYPE; t11451.s0.value.external_symbol_type = q456; /* x220503 */ t11452.s0.tag = EXTERNAL_SYMBOL_TYPE; t11452.s0.value.external_symbol_type = q755; /* x220504 */ t11453.s0.tag = EXTERNAL_SYMBOL_TYPE; t11453.s0.value.external_symbol_type = q757; /* x220505 */ t11454.s0.tag = EXTERNAL_SYMBOL_TYPE; t11454.s0.value.external_symbol_type = q758; /* x220506 */ t11455.s0.tag = EXTERNAL_SYMBOL_TYPE; t11455.s0.value.external_symbol_type = q756; /* x220507 */ t11455.s1.tag = NULL_TYPE; /* x220508 */ t11454.s1.tag = STRUCTURE_TYPE24753; t11454.s1.value.structure_type24753 = &t11455; /* x220509 */ t11453.s1.tag = STRUCTURE_TYPE24753; t11453.s1.value.structure_type24753 = &t11454; /* x220510 */ t11452.s1.tag = STRUCTURE_TYPE24753; t11452.s1.value.structure_type24753 = &t11453; /* x220511 */ t11451.s1.tag = STRUCTURE_TYPE24753; t11451.s1.value.structure_type24753 = &t11452; /* x220525 */ t11471.s0.tag = EXTERNAL_SYMBOL_TYPE; t11471.s0.value.external_symbol_type = q409; /* x220526 */ t11472.s0.tag = EXTERNAL_SYMBOL_TYPE; t11472.s0.value.external_symbol_type = q456; /* x220527 */ t11473.s0.tag = EXTERNAL_SYMBOL_TYPE; t11473.s0.value.external_symbol_type = q755; /* x220528 */ t11474.s0.tag = EXTERNAL_SYMBOL_TYPE; t11474.s0.value.external_symbol_type = q759; /* x220529 */ t11475.s0.tag = EXTERNAL_SYMBOL_TYPE; t11475.s0.value.external_symbol_type = q760; /* x220530 */ t11476.s0.tag = EXTERNAL_SYMBOL_TYPE; t11476.s0.value.external_symbol_type = q756; /* x220531 */ t11477.s0.tag = EXTERNAL_SYMBOL_TYPE; t11477.s0.value.external_symbol_type = q761; /* x220532 */ t11478.s0.tag = EXTERNAL_SYMBOL_TYPE; t11478.s0.value.external_symbol_type = q762; /* x220533 */ t11479.s0.tag = EXTERNAL_SYMBOL_TYPE; t11479.s0.value.external_symbol_type = q763; /* x220534 */ t11479.s1.tag = NULL_TYPE; /* x220535 */ t11478.s1.tag = STRUCTURE_TYPE24753; t11478.s1.value.structure_type24753 = &t11479; /* x220536 */ t11477.s1.tag = STRUCTURE_TYPE24753; t11477.s1.value.structure_type24753 = &t11478; /* x220537 */ t11476.s1.tag = STRUCTURE_TYPE24753; t11476.s1.value.structure_type24753 = &t11477; /* x220538 */ t11475.s1.tag = STRUCTURE_TYPE24753; t11475.s1.value.structure_type24753 = &t11476; /* x220539 */ t11474.s1.tag = STRUCTURE_TYPE24753; t11474.s1.value.structure_type24753 = &t11475; /* x220540 */ t11473.s1.tag = STRUCTURE_TYPE24753; t11473.s1.value.structure_type24753 = &t11474; /* x220541 */ t11472.s1.tag = STRUCTURE_TYPE24753; t11472.s1.value.structure_type24753 = &t11473; /* x220542 */ t11471.s1.tag = STRUCTURE_TYPE24753; t11471.s1.value.structure_type24753 = &t11472; /* x220556 */ t11494.s0.tag = EXTERNAL_SYMBOL_TYPE; t11494.s0.value.external_symbol_type = q409; /* x220557 */ t11495.s0.tag = EXTERNAL_SYMBOL_TYPE; t11495.s0.value.external_symbol_type = q456; /* x220558 */ t11496.s0.tag = EXTERNAL_SYMBOL_TYPE; t11496.s0.value.external_symbol_type = q755; /* x220559 */ t11497.s0.tag = EXTERNAL_SYMBOL_TYPE; t11497.s0.value.external_symbol_type = q764; /* x220560 */ t11498.s0.tag = EXTERNAL_SYMBOL_TYPE; t11498.s0.value.external_symbol_type = q759; /* x220561 */ t11499.s0.tag = EXTERNAL_SYMBOL_TYPE; t11499.s0.value.external_symbol_type = q765; /* x220562 */ t11500.s0.tag = EXTERNAL_SYMBOL_TYPE; t11500.s0.value.external_symbol_type = q760; /* x220563 */ t11501.s0.tag = EXTERNAL_SYMBOL_TYPE; t11501.s0.value.external_symbol_type = q766; /* x220564 */ t11502.s0.tag = EXTERNAL_SYMBOL_TYPE; t11502.s0.value.external_symbol_type = q767; /* x220565 */ t11503.s0.tag = EXTERNAL_SYMBOL_TYPE; t11503.s0.value.external_symbol_type = q756; /* x220566 */ t11504.s0.tag = EXTERNAL_SYMBOL_TYPE; t11504.s0.value.external_symbol_type = q768; /* x220567 */ t11505.s0.tag = EXTERNAL_SYMBOL_TYPE; t11505.s0.value.external_symbol_type = q761; /* x220568 */ t11506.s0.tag = EXTERNAL_SYMBOL_TYPE; t11506.s0.value.external_symbol_type = q769; /* x220569 */ t11507.s0.tag = EXTERNAL_SYMBOL_TYPE; t11507.s0.value.external_symbol_type = q762; /* x220570 */ t11508.s0.tag = EXTERNAL_SYMBOL_TYPE; t11508.s0.value.external_symbol_type = q770; /* x220571 */ t11509.s0.tag = EXTERNAL_SYMBOL_TYPE; t11509.s0.value.external_symbol_type = q763; /* x220572 */ t11509.s1.tag = NULL_TYPE; /* x220573 */ t11508.s1.tag = STRUCTURE_TYPE24753; t11508.s1.value.structure_type24753 = &t11509; /* x220574 */ t11507.s1.tag = STRUCTURE_TYPE24753; t11507.s1.value.structure_type24753 = &t11508; /* x220575 */ t11506.s1.tag = STRUCTURE_TYPE24753; t11506.s1.value.structure_type24753 = &t11507; /* x220576 */ t11505.s1.tag = STRUCTURE_TYPE24753; t11505.s1.value.structure_type24753 = &t11506; /* x220577 */ t11504.s1.tag = STRUCTURE_TYPE24753; t11504.s1.value.structure_type24753 = &t11505; /* x220578 */ t11503.s1.tag = STRUCTURE_TYPE24753; t11503.s1.value.structure_type24753 = &t11504; /* x220579 */ t11502.s1.tag = STRUCTURE_TYPE24753; t11502.s1.value.structure_type24753 = &t11503; /* x220580 */ t11501.s1.tag = STRUCTURE_TYPE24753; t11501.s1.value.structure_type24753 = &t11502; /* x220581 */ t11500.s1.tag = STRUCTURE_TYPE24753; t11500.s1.value.structure_type24753 = &t11501; /* x220582 */ t11499.s1.tag = STRUCTURE_TYPE24753; t11499.s1.value.structure_type24753 = &t11500; /* x220583 */ t11498.s1.tag = STRUCTURE_TYPE24753; t11498.s1.value.structure_type24753 = &t11499; /* x220584 */ t11497.s1.tag = STRUCTURE_TYPE24753; t11497.s1.value.structure_type24753 = &t11498; /* x220585 */ t11496.s1.tag = STRUCTURE_TYPE24753; t11496.s1.value.structure_type24753 = &t11497; /* x220586 */ t11495.s1.tag = STRUCTURE_TYPE24753; t11495.s1.value.structure_type24753 = &t11496; /* x220587 */ t11494.s1.tag = STRUCTURE_TYPE24753; t11494.s1.value.structure_type24753 = &t11495; /* x220610 */ t11513.s0.tag = EXTERNAL_SYMBOL_TYPE; t11513.s0.value.external_symbol_type = q753; /* x220611 */ t11513.s1.tag = NULL_TYPE; /* x220380 */ t11523.s0.tag = EXTERNAL_SYMBOL_TYPE; t11523.s0.value.external_symbol_type = q77; /* x220381 */ t11524.s0.tag = EXTERNAL_SYMBOL_TYPE; t11524.s0.value.external_symbol_type = q44; /* x220382 */ t11524.s1.tag = NULL_TYPE; /* x220383 */ t11523.s1.tag = STRUCTURE_TYPE24753; t11523.s1.value.structure_type24753 = &t11524; /* x220047 */ t11727.s0.tag = EXTERNAL_SYMBOL_TYPE; t11727.s0.value.external_symbol_type = q77; /* x220048 */ t11728.s0.tag = EXTERNAL_SYMBOL_TYPE; t11728.s0.value.external_symbol_type = q45; /* x220049 */ t11728.s1.tag = NULL_TYPE; /* x220050 */ t11727.s1.tag = STRUCTURE_TYPE24753; t11727.s1.value.structure_type24753 = &t11728; /* x220025 stalin.sc:30372:1045459 */ t11769.s0.tag = EXTERNAL_SYMBOL_TYPE; t11769.s0.value.external_symbol_type = q39; /* x220026 stalin.sc:30372:1045459 */ t11770.s0.tag = NULL_TYPE; /* x220027 stalin.sc:30372:1045459 */ t11770.s1.tag = NULL_TYPE; /* x220028 stalin.sc:30372:1045459 */ t11769.s1.tag = STRUCTURE_TYPE24753; t11769.s1.value.structure_type24753 = &t11770; /* x220029 stalin.sc:30372:1045459 */ t11768.s0.tag = STRUCTURE_TYPE24753; t11768.s0.value.structure_type24753 = &t11769; /* x220030 stalin.sc:30372:1045459 */ t11768.s1.tag = NULL_TYPE; /* x219864 */ t11821.s0.tag = EXTERNAL_SYMBOL_TYPE; t11821.s0.value.external_symbol_type = q111; /* x219865 */ t11822.s0.tag = EXTERNAL_SYMBOL_TYPE; t11822.s0.value.external_symbol_type = q527; /* x219866 */ t11822.s1.tag = NULL_TYPE; /* x219867 */ t11821.s1.tag = STRUCTURE_TYPE24753; t11821.s1.value.structure_type24753 = &t11822; /* x219892 */ t11858.s0.tag = EXTERNAL_SYMBOL_TYPE; t11858.s0.value.external_symbol_type = q107; /* x219893 */ t11859.s0.tag = EXTERNAL_SYMBOL_TYPE; t11859.s0.value.external_symbol_type = q527; /* x219894 */ t11859.s1.tag = NULL_TYPE; /* x219895 */ t11858.s1.tag = STRUCTURE_TYPE24753; t11858.s1.value.structure_type24753 = &t11859; /* x219896 */ t11857.s0.tag = STRUCTURE_TYPE24753; t11857.s0.value.structure_type24753 = &t11858; /* x219897 */ t11860.s0.tag = EXTERNAL_SYMBOL_TYPE; t11860.s0.value.external_symbol_type = q735; /* x219898 */ t11860.s1.tag = NULL_TYPE; /* x219899 */ t11857.s1.tag = STRUCTURE_TYPE24753; t11857.s1.value.structure_type24753 = &t11860; /* x219918 */ t11869.s0.tag = EXTERNAL_SYMBOL_TYPE; t11869.s0.value.external_symbol_type = q42; /* x219919 */ t11870.s0.tag = EXTERNAL_SYMBOL_TYPE; t11870.s0.value.external_symbol_type = q527; /* x219920 */ t11872.s0.tag = EXTERNAL_SYMBOL_TYPE; t11872.s0.value.external_symbol_type = q108; /* x219921 */ t11873.s0.tag = EXTERNAL_SYMBOL_TYPE; t11873.s0.value.external_symbol_type = q527; /* x219922 */ t11873.s1.tag = NULL_TYPE; /* x219923 */ t11872.s1.tag = STRUCTURE_TYPE24753; t11872.s1.value.structure_type24753 = &t11873; /* x219924 */ t11871.s0.tag = STRUCTURE_TYPE24753; t11871.s0.value.structure_type24753 = &t11872; /* x219925 */ t11871.s1.tag = NULL_TYPE; /* x219926 */ t11870.s1.tag = STRUCTURE_TYPE24753; t11870.s1.value.structure_type24753 = &t11871; /* x219927 */ t11869.s1.tag = STRUCTURE_TYPE24753; t11869.s1.value.structure_type24753 = &t11870; /* x219928 */ t11868.s0.tag = STRUCTURE_TYPE24753; t11868.s0.value.structure_type24753 = &t11869; /* x219929 */ t11875.s0.tag = EXTERNAL_SYMBOL_TYPE; t11875.s0.value.external_symbol_type = q287; /* x219930 */ t11875.s1.tag = NULL_TYPE; /* x219931 */ t11874.s0.tag = STRUCTURE_TYPE24753; t11874.s0.value.structure_type24753 = &t11875; /* x219932 */ t11874.s1.tag = NULL_TYPE; /* x219933 */ t11868.s1.tag = STRUCTURE_TYPE24753; t11868.s1.value.structure_type24753 = &t11874; /* x219786 */ t11886.s0.tag = EXTERNAL_SYMBOL_TYPE; t11886.s0.value.external_symbol_type = q111; /* x219787 */ t11887.s0.tag = EXTERNAL_SYMBOL_TYPE; t11887.s0.value.external_symbol_type = q527; /* x219788 */ t11887.s1.tag = NULL_TYPE; /* x219789 */ t11886.s1.tag = STRUCTURE_TYPE24753; t11886.s1.value.structure_type24753 = &t11887; /* x219811 */ t11915.s0.tag = EXTERNAL_SYMBOL_TYPE; t11915.s0.value.external_symbol_type = q107; /* x219812 */ t11916.s0.tag = EXTERNAL_SYMBOL_TYPE; t11916.s0.value.external_symbol_type = q527; /* x219813 */ t11916.s1.tag = NULL_TYPE; /* x219814 */ t11915.s1.tag = STRUCTURE_TYPE24753; t11915.s1.value.structure_type24753 = &t11916; /* x219815 */ t11914.s0.tag = STRUCTURE_TYPE24753; t11914.s0.value.structure_type24753 = &t11915; /* x219816 */ t11917.s0.tag = EXTERNAL_SYMBOL_TYPE; t11917.s0.value.external_symbol_type = q735; /* x219817 */ t11917.s1.tag = NULL_TYPE; /* x219818 */ t11914.s1.tag = STRUCTURE_TYPE24753; t11914.s1.value.structure_type24753 = &t11917; /* x219825 */ t11919.s0.tag = EXTERNAL_SYMBOL_TYPE; t11919.s0.value.external_symbol_type = q42; /* x219826 */ t11920.s0.tag = EXTERNAL_SYMBOL_TYPE; t11920.s0.value.external_symbol_type = q527; /* x219827 */ t11922.s0.tag = EXTERNAL_SYMBOL_TYPE; t11922.s0.value.external_symbol_type = q108; /* x219828 */ t11923.s0.tag = EXTERNAL_SYMBOL_TYPE; t11923.s0.value.external_symbol_type = q527; /* x219829 */ t11923.s1.tag = NULL_TYPE; /* x219830 */ t11922.s1.tag = STRUCTURE_TYPE24753; t11922.s1.value.structure_type24753 = &t11923; /* x219831 */ t11921.s0.tag = STRUCTURE_TYPE24753; t11921.s0.value.structure_type24753 = &t11922; /* x219832 */ t11921.s1.tag = NULL_TYPE; /* x219833 */ t11920.s1.tag = STRUCTURE_TYPE24753; t11920.s1.value.structure_type24753 = &t11921; /* x219834 */ t11919.s1.tag = STRUCTURE_TYPE24753; t11919.s1.value.structure_type24753 = &t11920; /* x219835 */ t11918.s0.tag = STRUCTURE_TYPE24753; t11918.s0.value.structure_type24753 = &t11919; /* x219836 */ t11918.s1.tag = NULL_TYPE; /* x219708 */ t11935.s0.tag = EXTERNAL_SYMBOL_TYPE; t11935.s0.value.external_symbol_type = q493; /* x219709 */ t11937.s0.tag = EXTERNAL_SYMBOL_TYPE; t11937.s0.value.external_symbol_type = q111; /* x219710 */ t11938.s0.tag = EXTERNAL_SYMBOL_TYPE; t11938.s0.value.external_symbol_type = q527; /* x219711 */ t11938.s1.tag = NULL_TYPE; /* x219712 */ t11937.s1.tag = STRUCTURE_TYPE24753; t11937.s1.value.structure_type24753 = &t11938; /* x219713 */ t11936.s0.tag = STRUCTURE_TYPE24753; t11936.s0.value.structure_type24753 = &t11937; /* x219714 */ t11940.s0.tag = EXTERNAL_SYMBOL_TYPE; t11940.s0.value.external_symbol_type = q735; /* x219715 */ t11940.s1.tag = NULL_TYPE; /* x219716 */ t11939.s0.tag = STRUCTURE_TYPE24753; t11939.s0.value.structure_type24753 = &t11940; /* x219717 */ t11939.s1.tag = NULL_TYPE; /* x219718 */ t11936.s1.tag = STRUCTURE_TYPE24753; t11936.s1.value.structure_type24753 = &t11939; /* x219719 */ t11935.s1.tag = STRUCTURE_TYPE24753; t11935.s1.value.structure_type24753 = &t11936; /* x219741 */ t11968.s0.tag = EXTERNAL_SYMBOL_TYPE; t11968.s0.value.external_symbol_type = q107; /* x219742 */ t11969.s0.tag = EXTERNAL_SYMBOL_TYPE; t11969.s0.value.external_symbol_type = q527; /* x219743 */ t11969.s1.tag = NULL_TYPE; /* x219744 */ t11968.s1.tag = STRUCTURE_TYPE24753; t11968.s1.value.structure_type24753 = &t11969; /* x219745 */ t11967.s0.tag = STRUCTURE_TYPE24753; t11967.s0.value.structure_type24753 = &t11968; /* x219746 */ t11970.s0.tag = EXTERNAL_SYMBOL_TYPE; t11970.s0.value.external_symbol_type = q735; /* x219747 */ t11970.s1.tag = NULL_TYPE; /* x219748 */ t11967.s1.tag = STRUCTURE_TYPE24753; t11967.s1.value.structure_type24753 = &t11970; /* x219755 */ t11972.s0.tag = EXTERNAL_SYMBOL_TYPE; t11972.s0.value.external_symbol_type = q42; /* x219756 */ t11973.s0.tag = EXTERNAL_SYMBOL_TYPE; t11973.s0.value.external_symbol_type = q527; /* x219757 */ t11975.s0.tag = EXTERNAL_SYMBOL_TYPE; t11975.s0.value.external_symbol_type = q108; /* x219758 */ t11976.s0.tag = EXTERNAL_SYMBOL_TYPE; t11976.s0.value.external_symbol_type = q527; /* x219759 */ t11976.s1.tag = NULL_TYPE; /* x219760 */ t11975.s1.tag = STRUCTURE_TYPE24753; t11975.s1.value.structure_type24753 = &t11976; /* x219761 */ t11974.s0.tag = STRUCTURE_TYPE24753; t11974.s0.value.structure_type24753 = &t11975; /* x219762 */ t11974.s1.tag = NULL_TYPE; /* x219763 */ t11973.s1.tag = STRUCTURE_TYPE24753; t11973.s1.value.structure_type24753 = &t11974; /* x219764 */ t11972.s1.tag = STRUCTURE_TYPE24753; t11972.s1.value.structure_type24753 = &t11973; /* x219765 */ t11971.s0.tag = STRUCTURE_TYPE24753; t11971.s0.value.structure_type24753 = &t11972; /* x219766 */ t11971.s1.tag = NULL_TYPE; /* x219649 stalin.sc:30311:1043200 */ t11991.s0.tag = EXTERNAL_SYMBOL_TYPE; t11991.s0.value.external_symbol_type = q494; /* x219650 stalin.sc:30311:1043200 */ t11993.s0.tag = EXTERNAL_SYMBOL_TYPE; t11993.s0.value.external_symbol_type = q111; /* x219651 stalin.sc:30311:1043200 */ t11994.s0.tag = EXTERNAL_SYMBOL_TYPE; t11994.s0.value.external_symbol_type = q527; /* x219652 stalin.sc:30311:1043200 */ t11994.s1.tag = NULL_TYPE; /* x219653 stalin.sc:30311:1043200 */ t11993.s1.tag = STRUCTURE_TYPE24753; t11993.s1.value.structure_type24753 = &t11994; /* x219654 stalin.sc:30311:1043200 */ t11992.s0.tag = STRUCTURE_TYPE24753; t11992.s0.value.structure_type24753 = &t11993; /* x219655 stalin.sc:30311:1043200 */ t11996.s0.tag = EXTERNAL_SYMBOL_TYPE; t11996.s0.value.external_symbol_type = q735; /* x219656 stalin.sc:30311:1043200 */ t11996.s1.tag = NULL_TYPE; /* x219657 stalin.sc:30311:1043200 */ t11995.s0.tag = STRUCTURE_TYPE24753; t11995.s0.value.structure_type24753 = &t11996; /* x219658 stalin.sc:30311:1043200 */ t11995.s1.tag = NULL_TYPE; /* x219659 stalin.sc:30311:1043200 */ t11992.s1.tag = STRUCTURE_TYPE24753; t11992.s1.value.structure_type24753 = &t11995; /* x219660 stalin.sc:30311:1043200 */ t11991.s1.tag = STRUCTURE_TYPE24753; t11991.s1.value.structure_type24753 = &t11992; /* x219661 stalin.sc:30311:1043200 */ t11990.s0.tag = STRUCTURE_TYPE24753; t11990.s0.value.structure_type24753 = &t11991; /* x219662 stalin.sc:30311:1043200 */ t11990.s1.tag = NULL_TYPE; /* x219554 */ t12047.s0.tag = EXTERNAL_SYMBOL_TYPE; t12047.s0.value.external_symbol_type = q735; /* x219555 */ t12047.s1.tag = NULL_TYPE; /* x219556 */ t12046.s0.tag = STRUCTURE_TYPE24753; t12046.s0.value.structure_type24753 = &t12047; /* x219557 */ t12046.s1.tag = NULL_TYPE; /* x219088 stalin.sc:30239:1041182 */ t12125.s0.tag = EXTERNAL_SYMBOL_TYPE; t12125.s0.value.external_symbol_type = q362; /* x219089 stalin.sc:30239:1041182 */ t12127.s0.tag = EXTERNAL_SYMBOL_TYPE; t12127.s0.value.external_symbol_type = q107; /* x219090 stalin.sc:30239:1041182 */ t12128.s0.tag = EXTERNAL_SYMBOL_TYPE; t12128.s0.value.external_symbol_type = q527; /* x219091 stalin.sc:30239:1041182 */ t12128.s1.tag = NULL_TYPE; /* x219092 stalin.sc:30239:1041182 */ t12127.s1.tag = STRUCTURE_TYPE24753; t12127.s1.value.structure_type24753 = &t12128; /* x219093 stalin.sc:30239:1041182 */ t12126.s0.tag = STRUCTURE_TYPE24753; t12126.s0.value.structure_type24753 = &t12127; /* x219094 stalin.sc:30239:1041182 */ t12129.s0.tag = STRING_TYPE; t12129.s0.value.string_type = "-usage"; /* x219095 stalin.sc:30239:1041182 */ t12129.s1.tag = NULL_TYPE; /* x219096 stalin.sc:30239:1041182 */ t12126.s1.tag = STRUCTURE_TYPE24753; t12126.s1.value.structure_type24753 = &t12129; /* x219097 stalin.sc:30239:1041182 */ t12125.s1.tag = STRUCTURE_TYPE24753; t12125.s1.value.structure_type24753 = &t12126; /* x219098 stalin.sc:30239:1041182 */ t12124.s0.tag = STRUCTURE_TYPE24753; t12124.s0.value.structure_type24753 = &t12125; /* x219099 stalin.sc:30239:1041182 */ t12131.s0.tag = EXTERNAL_SYMBOL_TYPE; t12131.s0.value.external_symbol_type = q735; /* x219100 stalin.sc:30239:1041182 */ t12131.s1.tag = NULL_TYPE; /* x219101 stalin.sc:30239:1041182 */ t12130.s0.tag = STRUCTURE_TYPE24753; t12130.s0.value.structure_type24753 = &t12131; /* x219102 stalin.sc:30239:1041182 */ t12130.s1.tag = NULL_TYPE; /* x219103 stalin.sc:30239:1041182 */ t12124.s1.tag = STRUCTURE_TYPE24753; t12124.s1.value.structure_type24753 = &t12130; /* x219104 stalin.sc:30239:1041182 */ t12123.s0.tag = STRUCTURE_TYPE24753; t12123.s0.value.structure_type24753 = &t12124; /* x219105 stalin.sc:30239:1041182 */ t12123.s1.tag = NULL_TYPE; /* x219028 stalin.sc:30229:1040932 */ t12166.s0.tag = EXTERNAL_SYMBOL_TYPE; t12166.s0.value.external_symbol_type = q11; /* x219029 stalin.sc:30229:1040932 */ t12167.s0.tag = NULL_TYPE; /* x219030 stalin.sc:30229:1040932 */ t12167.s1.tag = NULL_TYPE; /* x219031 stalin.sc:30229:1040932 */ t12166.s1.tag = STRUCTURE_TYPE24753; t12166.s1.value.structure_type24753 = &t12167; /* x217713 */ t12594.s0.tag = EXTERNAL_SYMBOL_TYPE; t12594.s0.value.external_symbol_type = q527; /* x217714 */ t12596.s0.tag = EXTERNAL_SYMBOL_TYPE; t12596.s0.value.external_symbol_type = q484; /* x217715 */ t12597.s0.tag = EXTERNAL_SYMBOL_TYPE; t12597.s0.value.external_symbol_type = q357; /* x217716 */ t12597.s1.tag = NULL_TYPE; /* x217717 */ t12596.s1.tag = STRUCTURE_TYPE24753; t12596.s1.value.structure_type24753 = &t12597; /* x217718 */ t12595.s0.tag = STRUCTURE_TYPE24753; t12595.s0.value.structure_type24753 = &t12596; /* x217719 */ t12595.s1.tag = NULL_TYPE; /* x217720 */ t12594.s1.tag = STRUCTURE_TYPE24753; t12594.s1.value.structure_type24753 = &t12595; /* x217721 */ t12593.s0.tag = STRUCTURE_TYPE24753; t12593.s0.value.structure_type24753 = &t12594; /* x217722 */ t12593.s1.tag = NULL_TYPE; /* x217725 */ t12602.s0.tag = EXTERNAL_SYMBOL_TYPE; t12602.s0.value.external_symbol_type = q97; /* x217726 */ t12604.s0.tag = EXTERNAL_SYMBOL_TYPE; t12604.s0.value.external_symbol_type = q734; /* x217727 */ t12605.s0.tag = EXTERNAL_SYMBOL_TYPE; t12605.s0.value.external_symbol_type = q161; /* x217728 */ t12606.s0.tag = EXTERNAL_SYMBOL_TYPE; t12606.s0.value.external_symbol_type = q735; /* x217729 */ t12606.s1.tag = NULL_TYPE; /* x217730 */ t12605.s1.tag = STRUCTURE_TYPE24753; t12605.s1.value.structure_type24753 = &t12606; /* x217731 */ t12604.s1.tag = STRUCTURE_TYPE24753; t12604.s1.value.structure_type24753 = &t12605; /* x217732 */ t12603.s0.tag = STRUCTURE_TYPE24753; t12603.s0.value.structure_type24753 = &t12604; /* x217733 */ t12608.s0.tag = EXTERNAL_SYMBOL_TYPE; t12608.s0.value.external_symbol_type = q43; /* x217734 */ t12610.s0.tag = EXTERNAL_SYMBOL_TYPE; t12610.s0.value.external_symbol_type = q159; /* x217735 */ t12611.s0.tag = EXTERNAL_SYMBOL_TYPE; t12611.s0.value.external_symbol_type = q161; /* x217736 */ t12611.s1.tag = NULL_TYPE; /* x217737 */ t12610.s1.tag = STRUCTURE_TYPE24753; t12610.s1.value.structure_type24753 = &t12611; /* x217738 */ t12609.s0.tag = STRUCTURE_TYPE24753; t12609.s0.value.structure_type24753 = &t12610; /* x217739 */ t12612.s0.tag = EXTERNAL_SYMBOL_TYPE; t12612.s0.value.external_symbol_type = q161; /* x217740 */ t12614.s0.tag = EXTERNAL_SYMBOL_TYPE; t12614.s0.value.external_symbol_type = q179; /* x217741 */ t12615.s0.tag = STRING_TYPE; t12615.s0.value.string_type = "This shouldn\'t happen"; /* x217742 */ t12615.s1.tag = NULL_TYPE; /* x217743 */ t12614.s1.tag = STRUCTURE_TYPE24753; t12614.s1.value.structure_type24753 = &t12615; /* x217744 */ t12613.s0.tag = STRUCTURE_TYPE24753; t12613.s0.value.structure_type24753 = &t12614; /* x217745 */ t12613.s1.tag = NULL_TYPE; /* x217746 */ t12612.s1.tag = STRUCTURE_TYPE24753; t12612.s1.value.structure_type24753 = &t12613; /* x217747 */ t12609.s1.tag = STRUCTURE_TYPE24753; t12609.s1.value.structure_type24753 = &t12612; /* x217748 */ t12608.s1.tag = STRUCTURE_TYPE24753; t12608.s1.value.structure_type24753 = &t12609; /* x217749 */ t12607.s0.tag = STRUCTURE_TYPE24753; t12607.s0.value.structure_type24753 = &t12608; /* x217750 */ t12607.s1.tag = NULL_TYPE; /* x217751 */ t12603.s1.tag = STRUCTURE_TYPE24753; t12603.s1.value.structure_type24753 = &t12607; /* x217752 */ t12602.s1.tag = STRUCTURE_TYPE24753; t12602.s1.value.structure_type24753 = &t12603; /* x217755 */ t12620.s0.tag = EXTERNAL_SYMBOL_TYPE; t12620.s0.value.external_symbol_type = q97; /* x217756 */ t12622.s0.tag = EXTERNAL_SYMBOL_TYPE; t12622.s0.value.external_symbol_type = q736; /* x217757 */ t12623.s0.tag = EXTERNAL_SYMBOL_TYPE; t12623.s0.value.external_symbol_type = q161; /* x217758 */ t12624.s0.tag = EXTERNAL_SYMBOL_TYPE; t12624.s0.value.external_symbol_type = q735; /* x217759 */ t12624.s1.tag = NULL_TYPE; /* x217760 */ t12623.s1.tag = STRUCTURE_TYPE24753; t12623.s1.value.structure_type24753 = &t12624; /* x217761 */ t12622.s1.tag = STRUCTURE_TYPE24753; t12622.s1.value.structure_type24753 = &t12623; /* x217762 */ t12621.s0.tag = STRUCTURE_TYPE24753; t12621.s0.value.structure_type24753 = &t12622; /* x217763 */ t12626.s0.tag = EXTERNAL_SYMBOL_TYPE; t12626.s0.value.external_symbol_type = q242; /* x217764 */ t12629.s0.tag = EXTERNAL_SYMBOL_TYPE; t12629.s0.value.external_symbol_type = q737; /* x217765 */ t12631.s0.tag = EXTERNAL_SYMBOL_TYPE; t12631.s0.value.external_symbol_type = q329; /* x217766 */ t12632.s0.tag = EXTERNAL_SYMBOL_TYPE; t12632.s0.value.external_symbol_type = q161; /* x217767 */ t12632.s1.tag = NULL_TYPE; /* x217768 */ t12631.s1.tag = STRUCTURE_TYPE24753; t12631.s1.value.structure_type24753 = &t12632; /* x217769 */ t12630.s0.tag = STRUCTURE_TYPE24753; t12630.s0.value.structure_type24753 = &t12631; /* x217770 */ t12630.s1.tag = NULL_TYPE; /* x217771 */ t12629.s1.tag = STRUCTURE_TYPE24753; t12629.s1.value.structure_type24753 = &t12630; /* x217772 */ t12628.s0.tag = STRUCTURE_TYPE24753; t12628.s0.value.structure_type24753 = &t12629; /* x217773 */ t12628.s1.tag = NULL_TYPE; /* x217774 */ t12627.s0.tag = STRUCTURE_TYPE24753; t12627.s0.value.structure_type24753 = &t12628; /* x217775 */ t12634.s0.tag = EXTERNAL_SYMBOL_TYPE; t12634.s0.value.external_symbol_type = q43; /* x217776 */ t12636.s0.tag = EXTERNAL_SYMBOL_TYPE; t12636.s0.value.external_symbol_type = q117; /* x217777 */ t12637.s0.tag = EXTERNAL_SYMBOL_TYPE; t12637.s0.value.external_symbol_type = q737; /* x217778 */ t12637.s1.tag = NULL_TYPE; /* x217779 */ t12636.s1.tag = STRUCTURE_TYPE24753; t12636.s1.value.structure_type24753 = &t12637; /* x217780 */ t12635.s0.tag = STRUCTURE_TYPE24753; t12635.s0.value.structure_type24753 = &t12636; /* x217781 */ t12639.s0.tag = EXTERNAL_SYMBOL_TYPE; t12639.s0.value.external_symbol_type = q43; /* x217782 */ t12641.s0.tag = EXTERNAL_SYMBOL_TYPE; t12641.s0.value.external_symbol_type = q118; /* x217783 */ t12642.s0.tag = EXTERNAL_SYMBOL_TYPE; t12642.s0.value.external_symbol_type = q737; /* x217784 */ t12642.s1.tag = NULL_TYPE; /* x217785 */ t12641.s1.tag = STRUCTURE_TYPE24753; t12641.s1.value.structure_type24753 = &t12642; /* x217786 */ t12640.s0.tag = STRUCTURE_TYPE24753; t12640.s0.value.structure_type24753 = &t12641; /* x217787 */ t12643.s0.tag = EXTERNAL_SYMBOL_TYPE; t12643.s0.value.external_symbol_type = q737; /* x217788 */ t12645.s0.tag = EXTERNAL_SYMBOL_TYPE; t12645.s0.value.external_symbol_type = q735; /* x217789 */ t12645.s1.tag = NULL_TYPE; /* x217790 */ t12644.s0.tag = STRUCTURE_TYPE24753; t12644.s0.value.structure_type24753 = &t12645; /* x217791 */ t12644.s1.tag = NULL_TYPE; /* x217792 */ t12643.s1.tag = STRUCTURE_TYPE24753; t12643.s1.value.structure_type24753 = &t12644; /* x217793 */ t12640.s1.tag = STRUCTURE_TYPE24753; t12640.s1.value.structure_type24753 = &t12643; /* x217794 */ t12639.s1.tag = STRUCTURE_TYPE24753; t12639.s1.value.structure_type24753 = &t12640; /* x217795 */ t12638.s0.tag = STRUCTURE_TYPE24753; t12638.s0.value.structure_type24753 = &t12639; /* x217796 */ t12647.s0.tag = EXTERNAL_SYMBOL_TYPE; t12647.s0.value.external_symbol_type = q735; /* x217797 */ t12647.s1.tag = NULL_TYPE; /* x217798 */ t12646.s0.tag = STRUCTURE_TYPE24753; t12646.s0.value.structure_type24753 = &t12647; /* x217799 */ t12646.s1.tag = NULL_TYPE; /* x217800 */ t12638.s1.tag = STRUCTURE_TYPE24753; t12638.s1.value.structure_type24753 = &t12646; /* x217801 */ t12635.s1.tag = STRUCTURE_TYPE24753; t12635.s1.value.structure_type24753 = &t12638; /* x217802 */ t12634.s1.tag = STRUCTURE_TYPE24753; t12634.s1.value.structure_type24753 = &t12635; /* x217803 */ t12633.s0.tag = STRUCTURE_TYPE24753; t12633.s0.value.structure_type24753 = &t12634; /* x217804 */ t12633.s1.tag = NULL_TYPE; /* x217805 */ t12627.s1.tag = STRUCTURE_TYPE24753; t12627.s1.value.structure_type24753 = &t12633; /* x217806 */ t12626.s1.tag = STRUCTURE_TYPE24753; t12626.s1.value.structure_type24753 = &t12627; /* x217807 */ t12625.s0.tag = STRUCTURE_TYPE24753; t12625.s0.value.structure_type24753 = &t12626; /* x217808 */ t12625.s1.tag = NULL_TYPE; /* x217809 */ t12621.s1.tag = STRUCTURE_TYPE24753; t12621.s1.value.structure_type24753 = &t12625; /* x217810 */ t12620.s1.tag = STRUCTURE_TYPE24753; t12620.s1.value.structure_type24753 = &t12621; /* x217813 */ t12652.s0.tag = EXTERNAL_SYMBOL_TYPE; t12652.s0.value.external_symbol_type = q97; /* x217814 */ t12654.s0.tag = EXTERNAL_SYMBOL_TYPE; t12654.s0.value.external_symbol_type = q738; /* x217815 */ t12655.s0.tag = EXTERNAL_SYMBOL_TYPE; t12655.s0.value.external_symbol_type = q161; /* x217816 */ t12656.s0.tag = EXTERNAL_SYMBOL_TYPE; t12656.s0.value.external_symbol_type = q735; /* x217817 */ t12656.s1.tag = NULL_TYPE; /* x217818 */ t12655.s1.tag = STRUCTURE_TYPE24753; t12655.s1.value.structure_type24753 = &t12656; /* x217819 */ t12654.s1.tag = STRUCTURE_TYPE24753; t12654.s1.value.structure_type24753 = &t12655; /* x217820 */ t12653.s0.tag = STRUCTURE_TYPE24753; t12653.s0.value.structure_type24753 = &t12654; /* x217821 */ t12658.s0.tag = EXTERNAL_SYMBOL_TYPE; t12658.s0.value.external_symbol_type = q242; /* x217822 */ t12661.s0.tag = EXTERNAL_SYMBOL_TYPE; t12661.s0.value.external_symbol_type = q739; /* x217823 */ t12663.s0.tag = EXTERNAL_SYMBOL_TYPE; t12663.s0.value.external_symbol_type = q329; /* x217824 */ t12664.s0.tag = EXTERNAL_SYMBOL_TYPE; t12664.s0.value.external_symbol_type = q161; /* x217825 */ t12664.s1.tag = NULL_TYPE; /* x217826 */ t12663.s1.tag = STRUCTURE_TYPE24753; t12663.s1.value.structure_type24753 = &t12664; /* x217827 */ t12662.s0.tag = STRUCTURE_TYPE24753; t12662.s0.value.structure_type24753 = &t12663; /* x217828 */ t12662.s1.tag = NULL_TYPE; /* x217829 */ t12661.s1.tag = STRUCTURE_TYPE24753; t12661.s1.value.structure_type24753 = &t12662; /* x217830 */ t12660.s0.tag = STRUCTURE_TYPE24753; t12660.s0.value.structure_type24753 = &t12661; /* x217831 */ t12660.s1.tag = NULL_TYPE; /* x217832 */ t12659.s0.tag = STRUCTURE_TYPE24753; t12659.s0.value.structure_type24753 = &t12660; /* x217833 */ t12666.s0.tag = EXTERNAL_SYMBOL_TYPE; t12666.s0.value.external_symbol_type = q43; /* x217834 */ t12668.s0.tag = EXTERNAL_SYMBOL_TYPE; t12668.s0.value.external_symbol_type = q116; /* x217835 */ t12669.s0.tag = EXTERNAL_SYMBOL_TYPE; t12669.s0.value.external_symbol_type = q739; /* x217836 */ t12669.s1.tag = NULL_TYPE; /* x217837 */ t12668.s1.tag = STRUCTURE_TYPE24753; t12668.s1.value.structure_type24753 = &t12669; /* x217838 */ t12667.s0.tag = STRUCTURE_TYPE24753; t12667.s0.value.structure_type24753 = &t12668; /* x217839 */ t12671.s0.tag = EXTERNAL_SYMBOL_TYPE; t12671.s0.value.external_symbol_type = q154; /* x217840 */ t12672.s0.tag = EXTERNAL_SYMBOL_TYPE; t12672.s0.value.external_symbol_type = q739; /* x217841 */ t12672.s1.tag = NULL_TYPE; /* x217842 */ t12671.s1.tag = STRUCTURE_TYPE24753; t12671.s1.value.structure_type24753 = &t12672; /* x217843 */ t12670.s0.tag = STRUCTURE_TYPE24753; t12670.s0.value.structure_type24753 = &t12671; /* x217844 */ t12674.s0.tag = EXTERNAL_SYMBOL_TYPE; t12674.s0.value.external_symbol_type = q735; /* x217845 */ t12674.s1.tag = NULL_TYPE; /* x217846 */ t12673.s0.tag = STRUCTURE_TYPE24753; t12673.s0.value.structure_type24753 = &t12674; /* x217847 */ t12673.s1.tag = NULL_TYPE; /* x217848 */ t12670.s1.tag = STRUCTURE_TYPE24753; t12670.s1.value.structure_type24753 = &t12673; /* x217849 */ t12667.s1.tag = STRUCTURE_TYPE24753; t12667.s1.value.structure_type24753 = &t12670; /* x217850 */ t12666.s1.tag = STRUCTURE_TYPE24753; t12666.s1.value.structure_type24753 = &t12667; /* x217851 */ t12665.s0.tag = STRUCTURE_TYPE24753; t12665.s0.value.structure_type24753 = &t12666; /* x217852 */ t12665.s1.tag = NULL_TYPE; /* x217853 */ t12659.s1.tag = STRUCTURE_TYPE24753; t12659.s1.value.structure_type24753 = &t12665; /* x217854 */ t12658.s1.tag = STRUCTURE_TYPE24753; t12658.s1.value.structure_type24753 = &t12659; /* x217855 */ t12657.s0.tag = STRUCTURE_TYPE24753; t12657.s0.value.structure_type24753 = &t12658; /* x217856 */ t12657.s1.tag = NULL_TYPE; /* x217857 */ t12653.s1.tag = STRUCTURE_TYPE24753; t12653.s1.value.structure_type24753 = &t12657; /* x217858 */ t12652.s1.tag = STRUCTURE_TYPE24753; t12652.s1.value.structure_type24753 = &t12653; /* x217864 */ t12687.s0.tag = EXTERNAL_SYMBOL_TYPE; t12687.s0.value.external_symbol_type = q740; /* x217865 */ t12689.s0.tag = EXTERNAL_SYMBOL_TYPE; t12689.s0.value.external_symbol_type = q107; /* x217866 */ t12690.s0.tag = EXTERNAL_SYMBOL_TYPE; t12690.s0.value.external_symbol_type = q527; /* x217867 */ t12690.s1.tag = NULL_TYPE; /* x217868 */ t12689.s1.tag = STRUCTURE_TYPE24753; t12689.s1.value.structure_type24753 = &t12690; /* x217869 */ t12688.s0.tag = STRUCTURE_TYPE24753; t12688.s0.value.structure_type24753 = &t12689; /* x217870 */ t12688.s1.tag = NULL_TYPE; /* x217871 */ t12687.s1.tag = STRUCTURE_TYPE24753; t12687.s1.value.structure_type24753 = &t12688; /* x217872 */ t12686.s0.tag = STRUCTURE_TYPE24753; t12686.s0.value.structure_type24753 = &t12687; /* x217873 */ t12686.s1.tag = NULL_TYPE; /* x217879 */ t12703.s0.tag = EXTERNAL_SYMBOL_TYPE; t12703.s0.value.external_symbol_type = q735; /* x217880 */ t12703.s1.tag = NULL_TYPE; /* x217913 */ t12737.s0.tag = EXTERNAL_SYMBOL_TYPE; t12737.s0.value.external_symbol_type = q42; /* x217914 */ t12738.s0.tag = EXTERNAL_SYMBOL_TYPE; t12738.s0.value.external_symbol_type = q527; /* x217915 */ t12740.s0.tag = EXTERNAL_SYMBOL_TYPE; t12740.s0.value.external_symbol_type = q108; /* x217916 */ t12741.s0.tag = EXTERNAL_SYMBOL_TYPE; t12741.s0.value.external_symbol_type = q527; /* x217917 */ t12741.s1.tag = NULL_TYPE; /* x217918 */ t12740.s1.tag = STRUCTURE_TYPE24753; t12740.s1.value.structure_type24753 = &t12741; /* x217919 */ t12739.s0.tag = STRUCTURE_TYPE24753; t12739.s0.value.structure_type24753 = &t12740; /* x217920 */ t12739.s1.tag = NULL_TYPE; /* x217921 */ t12738.s1.tag = STRUCTURE_TYPE24753; t12738.s1.value.structure_type24753 = &t12739; /* x217922 */ t12737.s1.tag = STRUCTURE_TYPE24753; t12737.s1.value.structure_type24753 = &t12738; /* x219074 */ t12784.s0.tag = EXTERNAL_SYMBOL_TYPE; t12784.s0.value.external_symbol_type = q111; /* x219075 */ t12785.s0.tag = EXTERNAL_SYMBOL_TYPE; t12785.s0.value.external_symbol_type = q527; /* x219076 */ t12785.s1.tag = NULL_TYPE; /* x219077 */ t12784.s1.tag = STRUCTURE_TYPE24753; t12784.s1.value.structure_type24753 = &t12785; /* x211881 */ t12851.s0.tag = EXTERNAL_SYMBOL_TYPE; t12851.s0.value.external_symbol_type = q527; /* x211882 */ t12851.s1.tag = NULL_TYPE; /* x211890 */ t12867.s0.tag = EXTERNAL_SYMBOL_TYPE; t12867.s0.value.external_symbol_type = q528; /* x211891 */ t12868.s0.tag = TRUE_TYPE; /* x211892 */ t12868.s1.tag = NULL_TYPE; /* x211893 */ t12867.s1.tag = STRUCTURE_TYPE24753; t12867.s1.value.structure_type24753 = &t12868; /* x211946 */ t12928.s0.tag = EXTERNAL_SYMBOL_TYPE; t12928.s0.value.external_symbol_type = q705; /* x211947 */ t12930.s0.tag = EXTERNAL_SYMBOL_TYPE; t12930.s0.value.external_symbol_type = q43; /* x211948 */ t12931.s0.tag = EXTERNAL_SYMBOL_TYPE; t12931.s0.value.external_symbol_type = q529; /* x211949 */ t12933.s0.tag = EXTERNAL_SYMBOL_TYPE; t12933.s0.value.external_symbol_type = q2; /* x211950 */ t12935.s0.tag = EXTERNAL_SYMBOL_TYPE; t12935.s0.value.external_symbol_type = q132; /* x211951 */ t12937.s0.tag = EXTERNAL_SYMBOL_TYPE; t12937.s0.value.external_symbol_type = q4; /* x211952 */ t12938.s0.tag = EXTERNAL_SYMBOL_TYPE; t12938.s0.value.external_symbol_type = q529; /* x211953 */ t12939.s0.tag = FIXNUM_TYPE; t12939.s0.value.fixnum_type = 4; /* x211954 */ t12939.s1.tag = NULL_TYPE; /* x211955 */ t12938.s1.tag = STRUCTURE_TYPE24753; t12938.s1.value.structure_type24753 = &t12939; /* x211956 */ t12937.s1.tag = STRUCTURE_TYPE24753; t12937.s1.value.structure_type24753 = &t12938; /* x211957 */ t12936.s0.tag = STRUCTURE_TYPE24753; t12936.s0.value.structure_type24753 = &t12937; /* x211958 */ t12940.s0.tag = EXTERNAL_SYMBOL_TYPE; t12940.s0.value.external_symbol_type = q704; /* x211959 */ t12940.s1.tag = NULL_TYPE; /* x211960 */ t12936.s1.tag = STRUCTURE_TYPE24753; t12936.s1.value.structure_type24753 = &t12940; /* x211961 */ t12935.s1.tag = STRUCTURE_TYPE24753; t12935.s1.value.structure_type24753 = &t12936; /* x211962 */ t12934.s0.tag = STRUCTURE_TYPE24753; t12934.s0.value.structure_type24753 = &t12935; /* x211963 */ t12941.s0.tag = FIXNUM_TYPE; t12941.s0.value.fixnum_type = 4; /* x211964 */ t12941.s1.tag = NULL_TYPE; /* x211965 */ t12934.s1.tag = STRUCTURE_TYPE24753; t12934.s1.value.structure_type24753 = &t12941; /* x211966 */ t12933.s1.tag = STRUCTURE_TYPE24753; t12933.s1.value.structure_type24753 = &t12934; /* x211967 */ t12932.s0.tag = STRUCTURE_TYPE24753; t12932.s0.value.structure_type24753 = &t12933; /* x211968 */ t12942.s0.tag = FIXNUM_TYPE; t12942.s0.value.fixnum_type = 100; /* x211969 */ t12942.s1.tag = NULL_TYPE; /* x211970 */ t12932.s1.tag = STRUCTURE_TYPE24753; t12932.s1.value.structure_type24753 = &t12942; /* x211971 */ t12931.s1.tag = STRUCTURE_TYPE24753; t12931.s1.value.structure_type24753 = &t12932; /* x211972 */ t12930.s1.tag = STRUCTURE_TYPE24753; t12930.s1.value.structure_type24753 = &t12931; /* x211973 */ t12929.s0.tag = STRUCTURE_TYPE24753; t12929.s0.value.structure_type24753 = &t12930; /* x211974 */ t12929.s1.tag = NULL_TYPE; /* x211975 */ t12928.s1.tag = STRUCTURE_TYPE24753; t12928.s1.value.structure_type24753 = &t12929; /* x211978 */ t12947.s0.tag = EXTERNAL_SYMBOL_TYPE; t12947.s0.value.external_symbol_type = q706; /* x211979 */ t12949.s0.tag = EXTERNAL_SYMBOL_TYPE; t12949.s0.value.external_symbol_type = q43; /* x211980 */ t12950.s0.tag = EXTERNAL_SYMBOL_TYPE; t12950.s0.value.external_symbol_type = q529; /* x211981 */ t12952.s0.tag = EXTERNAL_SYMBOL_TYPE; t12952.s0.value.external_symbol_type = q4; /* x211982 */ t12953.s0.tag = EXTERNAL_SYMBOL_TYPE; t12953.s0.value.external_symbol_type = q529; /* x211983 */ t12954.s0.tag = FIXNUM_TYPE; t12954.s0.value.fixnum_type = 6; /* x211984 */ t12954.s1.tag = NULL_TYPE; /* x211985 */ t12953.s1.tag = STRUCTURE_TYPE24753; t12953.s1.value.structure_type24753 = &t12954; /* x211986 */ t12952.s1.tag = STRUCTURE_TYPE24753; t12952.s1.value.structure_type24753 = &t12953; /* x211987 */ t12951.s0.tag = STRUCTURE_TYPE24753; t12951.s0.value.structure_type24753 = &t12952; /* x211988 */ t12956.s0.tag = EXTERNAL_SYMBOL_TYPE; t12956.s0.value.external_symbol_type = q4; /* x211989 */ t12958.s0.tag = EXTERNAL_SYMBOL_TYPE; t12958.s0.value.external_symbol_type = q130; /* x211990 */ t12959.s0.tag = EXTERNAL_SYMBOL_TYPE; t12959.s0.value.external_symbol_type = q704; /* x211991 */ t12961.s0.tag = EXTERNAL_SYMBOL_TYPE; t12961.s0.value.external_symbol_type = q4; /* x211992 */ t12962.s0.tag = EXTERNAL_SYMBOL_TYPE; t12962.s0.value.external_symbol_type = q705; /* x211993 */ t12963.s0.tag = FIXNUM_TYPE; t12963.s0.value.fixnum_type = 4; /* x211994 */ t12963.s1.tag = NULL_TYPE; /* x211995 */ t12962.s1.tag = STRUCTURE_TYPE24753; t12962.s1.value.structure_type24753 = &t12963; /* x211996 */ t12961.s1.tag = STRUCTURE_TYPE24753; t12961.s1.value.structure_type24753 = &t12962; /* x211997 */ t12960.s0.tag = STRUCTURE_TYPE24753; t12960.s0.value.structure_type24753 = &t12961; /* x211998 */ t12960.s1.tag = NULL_TYPE; /* x211999 */ t12959.s1.tag = STRUCTURE_TYPE24753; t12959.s1.value.structure_type24753 = &t12960; /* x212000 */ t12958.s1.tag = STRUCTURE_TYPE24753; t12958.s1.value.structure_type24753 = &t12959; /* x212001 */ t12957.s0.tag = STRUCTURE_TYPE24753; t12957.s0.value.structure_type24753 = &t12958; /* x212002 */ t12964.s0.tag = FIXNUM_TYPE; t12964.s0.value.fixnum_type = 2; /* x212003 */ t12964.s1.tag = NULL_TYPE; /* x212004 */ t12957.s1.tag = STRUCTURE_TYPE24753; t12957.s1.value.structure_type24753 = &t12964; /* x212005 */ t12956.s1.tag = STRUCTURE_TYPE24753; t12956.s1.value.structure_type24753 = &t12957; /* x212006 */ t12955.s0.tag = STRUCTURE_TYPE24753; t12955.s0.value.structure_type24753 = &t12956; /* x212007 */ t12955.s1.tag = NULL_TYPE; /* x212008 */ t12951.s1.tag = STRUCTURE_TYPE24753; t12951.s1.value.structure_type24753 = &t12955; /* x212009 */ t12950.s1.tag = STRUCTURE_TYPE24753; t12950.s1.value.structure_type24753 = &t12951; /* x212010 */ t12949.s1.tag = STRUCTURE_TYPE24753; t12949.s1.value.structure_type24753 = &t12950; /* x212011 */ t12948.s0.tag = STRUCTURE_TYPE24753; t12948.s0.value.structure_type24753 = &t12949; /* x212012 */ t12948.s1.tag = NULL_TYPE; /* x212013 */ t12947.s1.tag = STRUCTURE_TYPE24753; t12947.s1.value.structure_type24753 = &t12948; /* x212068 stalin.sc:29273:1007382 */ t13021.s0.tag = EXTERNAL_SYMBOL_TYPE; t13021.s0.value.external_symbol_type = q39; /* x212069 stalin.sc:29273:1007382 */ t13022.s0.tag = NULL_TYPE; /* x212070 stalin.sc:29273:1007382 */ t13023.s0.tag = FALSE_TYPE; /* x212071 stalin.sc:29273:1007382 */ t13023.s1.tag = NULL_TYPE; /* x212072 stalin.sc:29273:1007382 */ t13022.s1.tag = STRUCTURE_TYPE24753; t13022.s1.value.structure_type24753 = &t13023; /* x212073 stalin.sc:29273:1007382 */ t13021.s1.tag = STRUCTURE_TYPE24753; t13021.s1.value.structure_type24753 = &t13022; /* x212093 */ t13038.s0.tag = EXTERNAL_SYMBOL_TYPE; t13038.s0.value.external_symbol_type = q42; /* x212094 */ t13039.s0.tag = EXTERNAL_SYMBOL_TYPE; t13039.s0.value.external_symbol_type = q535; /* x212095 */ t13040.s0.tag = EXTERNAL_SYMBOL_TYPE; t13040.s0.value.external_symbol_type = q532; /* x212096 */ t13040.s1.tag = NULL_TYPE; /* x212097 */ t13039.s1.tag = STRUCTURE_TYPE24753; t13039.s1.value.structure_type24753 = &t13040; /* x212098 */ t13038.s1.tag = STRUCTURE_TYPE24753; t13038.s1.value.structure_type24753 = &t13039; /* x212099 */ t13037.s0.tag = STRUCTURE_TYPE24753; t13037.s0.value.structure_type24753 = &t13038; /* x212100 */ t13042.s0.tag = EXTERNAL_SYMBOL_TYPE; t13042.s0.value.external_symbol_type = q42; /* x212101 */ t13043.s0.tag = EXTERNAL_SYMBOL_TYPE; t13043.s0.value.external_symbol_type = q536; /* x212102 */ t13044.s0.tag = FALSE_TYPE; /* x212103 */ t13044.s1.tag = NULL_TYPE; /* x212104 */ t13043.s1.tag = STRUCTURE_TYPE24753; t13043.s1.value.structure_type24753 = &t13044; /* x212105 */ t13042.s1.tag = STRUCTURE_TYPE24753; t13042.s1.value.structure_type24753 = &t13043; /* x212106 */ t13041.s0.tag = STRUCTURE_TYPE24753; t13041.s0.value.structure_type24753 = &t13042; /* x212107 */ t13046.s0.tag = EXTERNAL_SYMBOL_TYPE; t13046.s0.value.external_symbol_type = q42; /* x212108 */ t13047.s0.tag = EXTERNAL_SYMBOL_TYPE; t13047.s0.value.external_symbol_type = q537; /* x212109 */ t13048.s0.tag = FALSE_TYPE; /* x212110 */ t13048.s1.tag = NULL_TYPE; /* x212111 */ t13047.s1.tag = STRUCTURE_TYPE24753; t13047.s1.value.structure_type24753 = &t13048; /* x212112 */ t13046.s1.tag = STRUCTURE_TYPE24753; t13046.s1.value.structure_type24753 = &t13047; /* x212113 */ t13045.s0.tag = STRUCTURE_TYPE24753; t13045.s0.value.structure_type24753 = &t13046; /* x212114 */ t13050.s0.tag = EXTERNAL_SYMBOL_TYPE; t13050.s0.value.external_symbol_type = q42; /* x212115 */ t13051.s0.tag = EXTERNAL_SYMBOL_TYPE; t13051.s0.value.external_symbol_type = q540; /* x212116 */ t13053.s0.tag = EXTERNAL_SYMBOL_TYPE; t13053.s0.value.external_symbol_type = q541; /* x212117 */ t13054.s0.tag = EXTERNAL_SYMBOL_TYPE; t13054.s0.value.external_symbol_type = q542; /* x212118 */ t13054.s1.tag = NULL_TYPE; /* x212119 */ t13053.s1.tag = STRUCTURE_TYPE24753; t13053.s1.value.structure_type24753 = &t13054; /* x212120 */ t13052.s0.tag = STRUCTURE_TYPE24753; t13052.s0.value.structure_type24753 = &t13053; /* x212121 */ t13052.s1.tag = NULL_TYPE; /* x212122 */ t13051.s1.tag = STRUCTURE_TYPE24753; t13051.s1.value.structure_type24753 = &t13052; /* x212123 */ t13050.s1.tag = STRUCTURE_TYPE24753; t13050.s1.value.structure_type24753 = &t13051; /* x212124 */ t13049.s0.tag = STRUCTURE_TYPE24753; t13049.s0.value.structure_type24753 = &t13050; /* x212125 */ t13056.s0.tag = EXTERNAL_SYMBOL_TYPE; t13056.s0.value.external_symbol_type = q493; /* x212126 */ t13058.s0.tag = EXTERNAL_SYMBOL_TYPE; t13058.s0.value.external_symbol_type = q125; /* x212127 */ t13059.s0.tag = EXTERNAL_SYMBOL_TYPE; t13059.s0.value.external_symbol_type = q540; /* x212128 */ t13059.s1.tag = NULL_TYPE; /* x212129 */ t13058.s1.tag = STRUCTURE_TYPE24753; t13058.s1.value.structure_type24753 = &t13059; /* x212130 */ t13057.s0.tag = STRUCTURE_TYPE24753; t13057.s0.value.structure_type24753 = &t13058; /* x212131 */ t13061.s0.tag = EXTERNAL_SYMBOL_TYPE; t13061.s0.value.external_symbol_type = q179; /* x212132 */ t13063.s0.tag = EXTERNAL_SYMBOL_TYPE; t13063.s0.value.external_symbol_type = q543; /* x212133 */ t13064.s0.tag = FALSE_TYPE; /* x212134 */ t13065.s0.tag = STRING_TYPE; t13065.s0.value.string_type = "Cannot connect to X server: ~a"; /* x212135 */ t13067.s0.tag = EXTERNAL_SYMBOL_TYPE; t13067.s0.value.external_symbol_type = q544; /* x212136 */ t13068.s0.tag = EXTERNAL_SYMBOL_TYPE; t13068.s0.value.external_symbol_type = q542; /* x212137 */ t13068.s1.tag = NULL_TYPE; /* x212138 */ t13067.s1.tag = STRUCTURE_TYPE24753; t13067.s1.value.structure_type24753 = &t13068; /* x212139 */ t13066.s0.tag = STRUCTURE_TYPE24753; t13066.s0.value.structure_type24753 = &t13067; /* x212140 */ t13066.s1.tag = NULL_TYPE; /* x212141 */ t13065.s1.tag = STRUCTURE_TYPE24753; t13065.s1.value.structure_type24753 = &t13066; /* x212142 */ t13064.s1.tag = STRUCTURE_TYPE24753; t13064.s1.value.structure_type24753 = &t13065; /* x212143 */ t13063.s1.tag = STRUCTURE_TYPE24753; t13063.s1.value.structure_type24753 = &t13064; /* x212144 */ t13062.s0.tag = STRUCTURE_TYPE24753; t13062.s0.value.structure_type24753 = &t13063; /* x212145 */ t13062.s1.tag = NULL_TYPE; /* x212146 */ t13061.s1.tag = STRUCTURE_TYPE24753; t13061.s1.value.structure_type24753 = &t13062; /* x212147 */ t13060.s0.tag = STRUCTURE_TYPE24753; t13060.s0.value.structure_type24753 = &t13061; /* x212148 */ t13060.s1.tag = NULL_TYPE; /* x212149 */ t13057.s1.tag = STRUCTURE_TYPE24753; t13057.s1.value.structure_type24753 = &t13060; /* x212150 */ t13056.s1.tag = STRUCTURE_TYPE24753; t13056.s1.value.structure_type24753 = &t13057; /* x212151 */ t13055.s0.tag = STRUCTURE_TYPE24753; t13055.s0.value.structure_type24753 = &t13056; /* x212152 */ t13070.s0.tag = EXTERNAL_SYMBOL_TYPE; t13070.s0.value.external_symbol_type = q42; /* x212153 */ t13071.s0.tag = EXTERNAL_SYMBOL_TYPE; t13071.s0.value.external_symbol_type = q545; /* x212154 */ t13073.s0.tag = EXTERNAL_SYMBOL_TYPE; t13073.s0.value.external_symbol_type = q546; /* x212155 */ t13074.s0.tag = EXTERNAL_SYMBOL_TYPE; t13074.s0.value.external_symbol_type = q540; /* x212156 */ t13074.s1.tag = NULL_TYPE; /* x212157 */ t13073.s1.tag = STRUCTURE_TYPE24753; t13073.s1.value.structure_type24753 = &t13074; /* x212158 */ t13072.s0.tag = STRUCTURE_TYPE24753; t13072.s0.value.structure_type24753 = &t13073; /* x212159 */ t13072.s1.tag = NULL_TYPE; /* x212160 */ t13071.s1.tag = STRUCTURE_TYPE24753; t13071.s1.value.structure_type24753 = &t13072; /* x212161 */ t13070.s1.tag = STRUCTURE_TYPE24753; t13070.s1.value.structure_type24753 = &t13071; /* x212162 */ t13069.s0.tag = STRUCTURE_TYPE24753; t13069.s0.value.structure_type24753 = &t13070; /* x212163 */ t13076.s0.tag = EXTERNAL_SYMBOL_TYPE; t13076.s0.value.external_symbol_type = q42; /* x212164 */ t13077.s0.tag = EXTERNAL_SYMBOL_TYPE; t13077.s0.value.external_symbol_type = q547; /* x212165 */ t13079.s0.tag = EXTERNAL_SYMBOL_TYPE; t13079.s0.value.external_symbol_type = q548; /* x212166 */ t13080.s0.tag = EXTERNAL_SYMBOL_TYPE; t13080.s0.value.external_symbol_type = q540; /* x212167 */ t13081.s0.tag = EXTERNAL_SYMBOL_TYPE; t13081.s0.value.external_symbol_type = q545; /* x212168 */ t13081.s1.tag = NULL_TYPE; /* x212169 */ t13080.s1.tag = STRUCTURE_TYPE24753; t13080.s1.value.structure_type24753 = &t13081; /* x212170 */ t13079.s1.tag = STRUCTURE_TYPE24753; t13079.s1.value.structure_type24753 = &t13080; /* x212171 */ t13078.s0.tag = STRUCTURE_TYPE24753; t13078.s0.value.structure_type24753 = &t13079; /* x212172 */ t13078.s1.tag = NULL_TYPE; /* x212173 */ t13077.s1.tag = STRUCTURE_TYPE24753; t13077.s1.value.structure_type24753 = &t13078; /* x212174 */ t13076.s1.tag = STRUCTURE_TYPE24753; t13076.s1.value.structure_type24753 = &t13077; /* x212175 */ t13075.s0.tag = STRUCTURE_TYPE24753; t13075.s0.value.structure_type24753 = &t13076; /* x212176 */ t13083.s0.tag = EXTERNAL_SYMBOL_TYPE; t13083.s0.value.external_symbol_type = q240; /* x212177 */ t13085.s0.tag = EXTERNAL_SYMBOL_TYPE; t13085.s0.value.external_symbol_type = q528; /* x212178 */ t13087.s0.tag = EXTERNAL_SYMBOL_TYPE; t13087.s0.value.external_symbol_type = q42; /* x212179 */ t13088.s0.tag = EXTERNAL_SYMBOL_TYPE; t13088.s0.value.external_symbol_type = q551; /* x212180 */ t13090.s0.tag = EXTERNAL_SYMBOL_TYPE; t13090.s0.value.external_symbol_type = q552; /* x212181 */ t13091.s0.tag = EXTERNAL_SYMBOL_TYPE; t13091.s0.value.external_symbol_type = q540; /* x212182 */ t13092.s0.tag = EXTERNAL_SYMBOL_TYPE; t13092.s0.value.external_symbol_type = q545; /* x212183 */ t13092.s1.tag = NULL_TYPE; /* x212184 */ t13091.s1.tag = STRUCTURE_TYPE24753; t13091.s1.value.structure_type24753 = &t13092; /* x212185 */ t13090.s1.tag = STRUCTURE_TYPE24753; t13090.s1.value.structure_type24753 = &t13091; /* x212186 */ t13089.s0.tag = STRUCTURE_TYPE24753; t13089.s0.value.structure_type24753 = &t13090; /* x212187 */ t13089.s1.tag = NULL_TYPE; /* x212188 */ t13088.s1.tag = STRUCTURE_TYPE24753; t13088.s1.value.structure_type24753 = &t13089; /* x212189 */ t13087.s1.tag = STRUCTURE_TYPE24753; t13087.s1.value.structure_type24753 = &t13088; /* x212190 */ t13086.s0.tag = STRUCTURE_TYPE24753; t13086.s0.value.structure_type24753 = &t13087; /* x212191 */ t13094.s0.tag = EXTERNAL_SYMBOL_TYPE; t13094.s0.value.external_symbol_type = q42; /* x212192 */ t13095.s0.tag = EXTERNAL_SYMBOL_TYPE; t13095.s0.value.external_symbol_type = q553; /* x212193 */ t13097.s0.tag = EXTERNAL_SYMBOL_TYPE; t13097.s0.value.external_symbol_type = q554; /* x212194 */ t13098.s0.tag = EXTERNAL_SYMBOL_TYPE; t13098.s0.value.external_symbol_type = q540; /* x212195 */ t13099.s0.tag = EXTERNAL_SYMBOL_TYPE; t13099.s0.value.external_symbol_type = q545; /* x212196 */ t13099.s1.tag = NULL_TYPE; /* x212197 */ t13098.s1.tag = STRUCTURE_TYPE24753; t13098.s1.value.structure_type24753 = &t13099; /* x212198 */ t13097.s1.tag = STRUCTURE_TYPE24753; t13097.s1.value.structure_type24753 = &t13098; /* x212199 */ t13096.s0.tag = STRUCTURE_TYPE24753; t13096.s0.value.structure_type24753 = &t13097; /* x212200 */ t13096.s1.tag = NULL_TYPE; /* x212201 */ t13095.s1.tag = STRUCTURE_TYPE24753; t13095.s1.value.structure_type24753 = &t13096; /* x212202 */ t13094.s1.tag = STRUCTURE_TYPE24753; t13094.s1.value.structure_type24753 = &t13095; /* x212203 */ t13093.s0.tag = STRUCTURE_TYPE24753; t13093.s0.value.structure_type24753 = &t13094; /* x212204 */ t13093.s1.tag = NULL_TYPE; /* x212205 */ t13086.s1.tag = STRUCTURE_TYPE24753; t13086.s1.value.structure_type24753 = &t13093; /* x212206 */ t13085.s1.tag = STRUCTURE_TYPE24753; t13085.s1.value.structure_type24753 = &t13086; /* x212207 */ t13084.s0.tag = STRUCTURE_TYPE24753; t13084.s0.value.structure_type24753 = &t13085; /* x212208 */ t13101.s0.tag = EXTERNAL_SYMBOL_TYPE; t13101.s0.value.external_symbol_type = q95; /* x212209 */ t13103.s0.tag = EXTERNAL_SYMBOL_TYPE; t13103.s0.value.external_symbol_type = q42; /* x212210 */ t13104.s0.tag = EXTERNAL_SYMBOL_TYPE; t13104.s0.value.external_symbol_type = q555; /* x212211 */ t13106.s0.tag = EXTERNAL_SYMBOL_TYPE; t13106.s0.value.external_symbol_type = q556; /* x212212 */ t13107.s0.tag = EXTERNAL_SYMBOL_TYPE; t13107.s0.value.external_symbol_type = q540; /* x212213 */ t13109.s0.tag = EXTERNAL_SYMBOL_TYPE; t13109.s0.value.external_symbol_type = q557; /* x212214 */ t13110.s0.tag = EXTERNAL_SYMBOL_TYPE; t13110.s0.value.external_symbol_type = q540; /* x212215 */ t13111.s0.tag = EXTERNAL_SYMBOL_TYPE; t13111.s0.value.external_symbol_type = q545; /* x212216 */ t13111.s1.tag = NULL_TYPE; /* x212217 */ t13110.s1.tag = STRUCTURE_TYPE24753; t13110.s1.value.structure_type24753 = &t13111; /* x212218 */ t13109.s1.tag = STRUCTURE_TYPE24753; t13109.s1.value.structure_type24753 = &t13110; /* x212219 */ t13108.s0.tag = STRUCTURE_TYPE24753; t13108.s0.value.structure_type24753 = &t13109; /* x212220 */ t13112.s0.tag = EXTERNAL_SYMBOL_TYPE; t13112.s0.value.external_symbol_type = q558; /* x212221 */ t13112.s1.tag = NULL_TYPE; /* x212222 */ t13108.s1.tag = STRUCTURE_TYPE24753; t13108.s1.value.structure_type24753 = &t13112; /* x212223 */ t13107.s1.tag = STRUCTURE_TYPE24753; t13107.s1.value.structure_type24753 = &t13108; /* x212224 */ t13106.s1.tag = STRUCTURE_TYPE24753; t13106.s1.value.structure_type24753 = &t13107; /* x212225 */ t13105.s0.tag = STRUCTURE_TYPE24753; t13105.s0.value.structure_type24753 = &t13106; /* x212226 */ t13105.s1.tag = NULL_TYPE; /* x212227 */ t13104.s1.tag = STRUCTURE_TYPE24753; t13104.s1.value.structure_type24753 = &t13105; /* x212228 */ t13103.s1.tag = STRUCTURE_TYPE24753; t13103.s1.value.structure_type24753 = &t13104; /* x212229 */ t13102.s0.tag = STRUCTURE_TYPE24753; t13102.s0.value.structure_type24753 = &t13103; /* x212230 */ t13114.s0.tag = EXTERNAL_SYMBOL_TYPE; t13114.s0.value.external_symbol_type = q494; /* x212231 */ t13116.s0.tag = EXTERNAL_SYMBOL_TYPE; t13116.s0.value.external_symbol_type = q120; /* x212232 */ t13118.s0.tag = EXTERNAL_SYMBOL_TYPE; t13118.s0.value.external_symbol_type = q559; /* x212233 */ t13119.s0.tag = EXTERNAL_SYMBOL_TYPE; t13119.s0.value.external_symbol_type = q555; /* x212234 */ t13119.s1.tag = NULL_TYPE; /* x212235 */ t13118.s1.tag = STRUCTURE_TYPE24753; t13118.s1.value.structure_type24753 = &t13119; /* x212236 */ t13117.s0.tag = STRUCTURE_TYPE24753; t13117.s0.value.structure_type24753 = &t13118; /* x212237 */ t13120.s0.tag = FIXNUM_TYPE; t13120.s0.value.fixnum_type = 1; /* x212238 */ t13120.s1.tag = NULL_TYPE; /* x212239 */ t13117.s1.tag = STRUCTURE_TYPE24753; t13117.s1.value.structure_type24753 = &t13120; /* x212240 */ t13116.s1.tag = STRUCTURE_TYPE24753; t13116.s1.value.structure_type24753 = &t13117; /* x212241 */ t13115.s0.tag = STRUCTURE_TYPE24753; t13115.s0.value.structure_type24753 = &t13116; /* x212242 */ t13122.s0.tag = EXTERNAL_SYMBOL_TYPE; t13122.s0.value.external_symbol_type = q179; /* x212243 */ t13123.s0.tag = STRING_TYPE; t13123.s0.value.string_type = "Can\'t allocate background colorcell"; /* x212244 */ t13123.s1.tag = NULL_TYPE; /* x212245 */ t13122.s1.tag = STRUCTURE_TYPE24753; t13122.s1.value.structure_type24753 = &t13123; /* x212246 */ t13121.s0.tag = STRUCTURE_TYPE24753; t13121.s0.value.structure_type24753 = &t13122; /* x212247 */ t13121.s1.tag = NULL_TYPE; /* x212248 */ t13115.s1.tag = STRUCTURE_TYPE24753; t13115.s1.value.structure_type24753 = &t13121; /* x212249 */ t13114.s1.tag = STRUCTURE_TYPE24753; t13114.s1.value.structure_type24753 = &t13115; /* x212250 */ t13113.s0.tag = STRUCTURE_TYPE24753; t13113.s0.value.structure_type24753 = &t13114; /* x212251 */ t13125.s0.tag = EXTERNAL_SYMBOL_TYPE; t13125.s0.value.external_symbol_type = q42; /* x212252 */ t13126.s0.tag = EXTERNAL_SYMBOL_TYPE; t13126.s0.value.external_symbol_type = q560; /* x212253 */ t13128.s0.tag = EXTERNAL_SYMBOL_TYPE; t13128.s0.value.external_symbol_type = q556; /* x212254 */ t13129.s0.tag = EXTERNAL_SYMBOL_TYPE; t13129.s0.value.external_symbol_type = q540; /* x212255 */ t13131.s0.tag = EXTERNAL_SYMBOL_TYPE; t13131.s0.value.external_symbol_type = q557; /* x212256 */ t13132.s0.tag = EXTERNAL_SYMBOL_TYPE; t13132.s0.value.external_symbol_type = q540; /* x212257 */ t13133.s0.tag = EXTERNAL_SYMBOL_TYPE; t13133.s0.value.external_symbol_type = q545; /* x212258 */ t13133.s1.tag = NULL_TYPE; /* x212259 */ t13132.s1.tag = STRUCTURE_TYPE24753; t13132.s1.value.structure_type24753 = &t13133; /* x212260 */ t13131.s1.tag = STRUCTURE_TYPE24753; t13131.s1.value.structure_type24753 = &t13132; /* x212261 */ t13130.s0.tag = STRUCTURE_TYPE24753; t13130.s0.value.structure_type24753 = &t13131; /* x212262 */ t13134.s0.tag = EXTERNAL_SYMBOL_TYPE; t13134.s0.value.external_symbol_type = q561; /* x212263 */ t13134.s1.tag = NULL_TYPE; /* x212264 */ t13130.s1.tag = STRUCTURE_TYPE24753; t13130.s1.value.structure_type24753 = &t13134; /* x212265 */ t13129.s1.tag = STRUCTURE_TYPE24753; t13129.s1.value.structure_type24753 = &t13130; /* x212266 */ t13128.s1.tag = STRUCTURE_TYPE24753; t13128.s1.value.structure_type24753 = &t13129; /* x212267 */ t13127.s0.tag = STRUCTURE_TYPE24753; t13127.s0.value.structure_type24753 = &t13128; /* x212268 */ t13127.s1.tag = NULL_TYPE; /* x212269 */ t13126.s1.tag = STRUCTURE_TYPE24753; t13126.s1.value.structure_type24753 = &t13127; /* x212270 */ t13125.s1.tag = STRUCTURE_TYPE24753; t13125.s1.value.structure_type24753 = &t13126; /* x212271 */ t13124.s0.tag = STRUCTURE_TYPE24753; t13124.s0.value.structure_type24753 = &t13125; /* x212272 */ t13136.s0.tag = EXTERNAL_SYMBOL_TYPE; t13136.s0.value.external_symbol_type = q494; /* x212273 */ t13138.s0.tag = EXTERNAL_SYMBOL_TYPE; t13138.s0.value.external_symbol_type = q120; /* x212274 */ t13140.s0.tag = EXTERNAL_SYMBOL_TYPE; t13140.s0.value.external_symbol_type = q559; /* x212275 */ t13141.s0.tag = EXTERNAL_SYMBOL_TYPE; t13141.s0.value.external_symbol_type = q560; /* x212276 */ t13141.s1.tag = NULL_TYPE; /* x212277 */ t13140.s1.tag = STRUCTURE_TYPE24753; t13140.s1.value.structure_type24753 = &t13141; /* x212278 */ t13139.s0.tag = STRUCTURE_TYPE24753; t13139.s0.value.structure_type24753 = &t13140; /* x212279 */ t13142.s0.tag = FIXNUM_TYPE; t13142.s0.value.fixnum_type = 1; /* x212280 */ t13142.s1.tag = NULL_TYPE; /* x212281 */ t13139.s1.tag = STRUCTURE_TYPE24753; t13139.s1.value.structure_type24753 = &t13142; /* x212282 */ t13138.s1.tag = STRUCTURE_TYPE24753; t13138.s1.value.structure_type24753 = &t13139; /* x212283 */ t13137.s0.tag = STRUCTURE_TYPE24753; t13137.s0.value.structure_type24753 = &t13138; /* x212284 */ t13144.s0.tag = EXTERNAL_SYMBOL_TYPE; t13144.s0.value.external_symbol_type = q179; /* x212285 */ t13145.s0.tag = STRING_TYPE; t13145.s0.value.string_type = "Can\'t allocate foreground colorcell"; /* x212286 */ t13145.s1.tag = NULL_TYPE; /* x212287 */ t13144.s1.tag = STRUCTURE_TYPE24753; t13144.s1.value.structure_type24753 = &t13145; /* x212288 */ t13143.s0.tag = STRUCTURE_TYPE24753; t13143.s0.value.structure_type24753 = &t13144; /* x212289 */ t13143.s1.tag = NULL_TYPE; /* x212290 */ t13137.s1.tag = STRUCTURE_TYPE24753; t13137.s1.value.structure_type24753 = &t13143; /* x212291 */ t13136.s1.tag = STRUCTURE_TYPE24753; t13136.s1.value.structure_type24753 = &t13137; /* x212292 */ t13135.s0.tag = STRUCTURE_TYPE24753; t13135.s0.value.structure_type24753 = &t13136; /* x212293 */ t13135.s1.tag = NULL_TYPE; /* x212294 */ t13124.s1.tag = STRUCTURE_TYPE24753; t13124.s1.value.structure_type24753 = &t13135; /* x212295 */ t13113.s1.tag = STRUCTURE_TYPE24753; t13113.s1.value.structure_type24753 = &t13124; /* x212296 */ t13102.s1.tag = STRUCTURE_TYPE24753; t13102.s1.value.structure_type24753 = &t13113; /* x212297 */ t13101.s1.tag = STRUCTURE_TYPE24753; t13101.s1.value.structure_type24753 = &t13102; /* x212298 */ t13100.s0.tag = STRUCTURE_TYPE24753; t13100.s0.value.structure_type24753 = &t13101; /* x212299 */ t13100.s1.tag = NULL_TYPE; /* x212300 */ t13084.s1.tag = STRUCTURE_TYPE24753; t13084.s1.value.structure_type24753 = &t13100; /* x212301 */ t13083.s1.tag = STRUCTURE_TYPE24753; t13083.s1.value.structure_type24753 = &t13084; /* x212302 */ t13082.s0.tag = STRUCTURE_TYPE24753; t13082.s0.value.structure_type24753 = &t13083; /* x212303 */ t13147.s0.tag = EXTERNAL_SYMBOL_TYPE; t13147.s0.value.external_symbol_type = q42; /* x212304 */ t13148.s0.tag = EXTERNAL_SYMBOL_TYPE; t13148.s0.value.external_symbol_type = q562; /* x212305 */ t13150.s0.tag = EXTERNAL_SYMBOL_TYPE; t13150.s0.value.external_symbol_type = q563; /* x212306 */ t13151.s0.tag = EXTERNAL_SYMBOL_TYPE; t13151.s0.value.external_symbol_type = q540; /* x212307 */ t13152.s0.tag = EXTERNAL_SYMBOL_TYPE; t13152.s0.value.external_symbol_type = q564; /* x212308 */ t13152.s1.tag = NULL_TYPE; /* x212309 */ t13151.s1.tag = STRUCTURE_TYPE24753; t13151.s1.value.structure_type24753 = &t13152; /* x212310 */ t13150.s1.tag = STRUCTURE_TYPE24753; t13150.s1.value.structure_type24753 = &t13151; /* x212311 */ t13149.s0.tag = STRUCTURE_TYPE24753; t13149.s0.value.structure_type24753 = &t13150; /* x212312 */ t13149.s1.tag = NULL_TYPE; /* x212313 */ t13148.s1.tag = STRUCTURE_TYPE24753; t13148.s1.value.structure_type24753 = &t13149; /* x212314 */ t13147.s1.tag = STRUCTURE_TYPE24753; t13147.s1.value.structure_type24753 = &t13148; /* x212315 */ t13146.s0.tag = STRUCTURE_TYPE24753; t13146.s0.value.structure_type24753 = &t13147; /* x212316 */ t13154.s0.tag = EXTERNAL_SYMBOL_TYPE; t13154.s0.value.external_symbol_type = q493; /* x212317 */ t13156.s0.tag = EXTERNAL_SYMBOL_TYPE; t13156.s0.value.external_symbol_type = q125; /* x212318 */ t13157.s0.tag = EXTERNAL_SYMBOL_TYPE; t13157.s0.value.external_symbol_type = q562; /* x212319 */ t13157.s1.tag = NULL_TYPE; /* x212320 */ t13156.s1.tag = STRUCTURE_TYPE24753; t13156.s1.value.structure_type24753 = &t13157; /* x212321 */ t13155.s0.tag = STRUCTURE_TYPE24753; t13155.s0.value.structure_type24753 = &t13156; /* x212322 */ t13159.s0.tag = EXTERNAL_SYMBOL_TYPE; t13159.s0.value.external_symbol_type = q179; /* x212323 */ t13161.s0.tag = EXTERNAL_SYMBOL_TYPE; t13161.s0.value.external_symbol_type = q543; /* x212324 */ t13162.s0.tag = FALSE_TYPE; /* x212325 */ t13163.s0.tag = STRING_TYPE; t13163.s0.value.string_type = "Cannot open font: ~a"; /* x212326 */ t13164.s0.tag = EXTERNAL_SYMBOL_TYPE; t13164.s0.value.external_symbol_type = q564; /* x212327 */ t13164.s1.tag = NULL_TYPE; /* x212328 */ t13163.s1.tag = STRUCTURE_TYPE24753; t13163.s1.value.structure_type24753 = &t13164; /* x212329 */ t13162.s1.tag = STRUCTURE_TYPE24753; t13162.s1.value.structure_type24753 = &t13163; /* x212330 */ t13161.s1.tag = STRUCTURE_TYPE24753; t13161.s1.value.structure_type24753 = &t13162; /* x212331 */ t13160.s0.tag = STRUCTURE_TYPE24753; t13160.s0.value.structure_type24753 = &t13161; /* x212332 */ t13160.s1.tag = NULL_TYPE; /* x212333 */ t13159.s1.tag = STRUCTURE_TYPE24753; t13159.s1.value.structure_type24753 = &t13160; /* x212334 */ t13158.s0.tag = STRUCTURE_TYPE24753; t13158.s0.value.structure_type24753 = &t13159; /* x212335 */ t13158.s1.tag = NULL_TYPE; /* x212336 */ t13155.s1.tag = STRUCTURE_TYPE24753; t13155.s1.value.structure_type24753 = &t13158; /* x212337 */ t13154.s1.tag = STRUCTURE_TYPE24753; t13154.s1.value.structure_type24753 = &t13155; /* x212338 */ t13153.s0.tag = STRUCTURE_TYPE24753; t13153.s0.value.structure_type24753 = &t13154; /* x212339 */ t13166.s0.tag = EXTERNAL_SYMBOL_TYPE; t13166.s0.value.external_symbol_type = q42; /* x212340 */ t13167.s0.tag = EXTERNAL_SYMBOL_TYPE; t13167.s0.value.external_symbol_type = q565; /* x212341 */ t13169.s0.tag = EXTERNAL_SYMBOL_TYPE; t13169.s0.value.external_symbol_type = q563; /* x212342 */ t13170.s0.tag = EXTERNAL_SYMBOL_TYPE; t13170.s0.value.external_symbol_type = q540; /* x212343 */ t13171.s0.tag = EXTERNAL_SYMBOL_TYPE; t13171.s0.value.external_symbol_type = q566; /* x212344 */ t13171.s1.tag = NULL_TYPE; /* x212345 */ t13170.s1.tag = STRUCTURE_TYPE24753; t13170.s1.value.structure_type24753 = &t13171; /* x212346 */ t13169.s1.tag = STRUCTURE_TYPE24753; t13169.s1.value.structure_type24753 = &t13170; /* x212347 */ t13168.s0.tag = STRUCTURE_TYPE24753; t13168.s0.value.structure_type24753 = &t13169; /* x212348 */ t13168.s1.tag = NULL_TYPE; /* x212349 */ t13167.s1.tag = STRUCTURE_TYPE24753; t13167.s1.value.structure_type24753 = &t13168; /* x212350 */ t13166.s1.tag = STRUCTURE_TYPE24753; t13166.s1.value.structure_type24753 = &t13167; /* x212351 */ t13165.s0.tag = STRUCTURE_TYPE24753; t13165.s0.value.structure_type24753 = &t13166; /* x212352 */ t13173.s0.tag = EXTERNAL_SYMBOL_TYPE; t13173.s0.value.external_symbol_type = q493; /* x212353 */ t13175.s0.tag = EXTERNAL_SYMBOL_TYPE; t13175.s0.value.external_symbol_type = q125; /* x212354 */ t13176.s0.tag = EXTERNAL_SYMBOL_TYPE; t13176.s0.value.external_symbol_type = q565; /* x212355 */ t13176.s1.tag = NULL_TYPE; /* x212356 */ t13175.s1.tag = STRUCTURE_TYPE24753; t13175.s1.value.structure_type24753 = &t13176; /* x212357 */ t13174.s0.tag = STRUCTURE_TYPE24753; t13174.s0.value.structure_type24753 = &t13175; /* x212358 */ t13178.s0.tag = EXTERNAL_SYMBOL_TYPE; t13178.s0.value.external_symbol_type = q179; /* x212359 */ t13180.s0.tag = EXTERNAL_SYMBOL_TYPE; t13180.s0.value.external_symbol_type = q543; /* x212360 */ t13181.s0.tag = FALSE_TYPE; /* x212361 */ t13182.s0.tag = STRING_TYPE; t13182.s0.value.string_type = "Cannot open font: ~a"; /* x212362 */ t13183.s0.tag = EXTERNAL_SYMBOL_TYPE; t13183.s0.value.external_symbol_type = q566; /* x212363 */ t13183.s1.tag = NULL_TYPE; /* x212364 */ t13182.s1.tag = STRUCTURE_TYPE24753; t13182.s1.value.structure_type24753 = &t13183; /* x212365 */ t13181.s1.tag = STRUCTURE_TYPE24753; t13181.s1.value.structure_type24753 = &t13182; /* x212366 */ t13180.s1.tag = STRUCTURE_TYPE24753; t13180.s1.value.structure_type24753 = &t13181; /* x212367 */ t13179.s0.tag = STRUCTURE_TYPE24753; t13179.s0.value.structure_type24753 = &t13180; /* x212368 */ t13179.s1.tag = NULL_TYPE; /* x212369 */ t13178.s1.tag = STRUCTURE_TYPE24753; t13178.s1.value.structure_type24753 = &t13179; /* x212370 */ t13177.s0.tag = STRUCTURE_TYPE24753; t13177.s0.value.structure_type24753 = &t13178; /* x212371 */ t13177.s1.tag = NULL_TYPE; /* x212372 */ t13174.s1.tag = STRUCTURE_TYPE24753; t13174.s1.value.structure_type24753 = &t13177; /* x212373 */ t13173.s1.tag = STRUCTURE_TYPE24753; t13173.s1.value.structure_type24753 = &t13174; /* x212374 */ t13172.s0.tag = STRUCTURE_TYPE24753; t13172.s0.value.structure_type24753 = &t13173; /* x212375 */ t13185.s0.tag = EXTERNAL_SYMBOL_TYPE; t13185.s0.value.external_symbol_type = q42; /* x212376 */ t13186.s0.tag = EXTERNAL_SYMBOL_TYPE; t13186.s0.value.external_symbol_type = q567; /* x212377 */ t13188.s0.tag = EXTERNAL_SYMBOL_TYPE; t13188.s0.value.external_symbol_type = q4; /* x212378 */ t13190.s0.tag = EXTERNAL_SYMBOL_TYPE; t13190.s0.value.external_symbol_type = q568; /* x212379 */ t13191.s0.tag = EXTERNAL_SYMBOL_TYPE; t13191.s0.value.external_symbol_type = q562; /* x212380 */ t13191.s1.tag = NULL_TYPE; /* x212381 */ t13190.s1.tag = STRUCTURE_TYPE24753; t13190.s1.value.structure_type24753 = &t13191; /* x212382 */ t13189.s0.tag = STRUCTURE_TYPE24753; t13189.s0.value.structure_type24753 = &t13190; /* x212383 */ t13193.s0.tag = EXTERNAL_SYMBOL_TYPE; t13193.s0.value.external_symbol_type = q569; /* x212384 */ t13194.s0.tag = EXTERNAL_SYMBOL_TYPE; t13194.s0.value.external_symbol_type = q562; /* x212385 */ t13194.s1.tag = NULL_TYPE; /* x212386 */ t13193.s1.tag = STRUCTURE_TYPE24753; t13193.s1.value.structure_type24753 = &t13194; /* x212387 */ t13192.s0.tag = STRUCTURE_TYPE24753; t13192.s0.value.structure_type24753 = &t13193; /* x212388 */ t13192.s1.tag = NULL_TYPE; /* x212389 */ t13189.s1.tag = STRUCTURE_TYPE24753; t13189.s1.value.structure_type24753 = &t13192; /* x212390 */ t13188.s1.tag = STRUCTURE_TYPE24753; t13188.s1.value.structure_type24753 = &t13189; /* x212391 */ t13187.s0.tag = STRUCTURE_TYPE24753; t13187.s0.value.structure_type24753 = &t13188; /* x212392 */ t13187.s1.tag = NULL_TYPE; /* x212393 */ t13186.s1.tag = STRUCTURE_TYPE24753; t13186.s1.value.structure_type24753 = &t13187; /* x212394 */ t13185.s1.tag = STRUCTURE_TYPE24753; t13185.s1.value.structure_type24753 = &t13186; /* x212395 */ t13184.s0.tag = STRUCTURE_TYPE24753; t13184.s0.value.structure_type24753 = &t13185; /* x212396 */ t13196.s0.tag = EXTERNAL_SYMBOL_TYPE; t13196.s0.value.external_symbol_type = q42; /* x212397 */ t13197.s0.tag = EXTERNAL_SYMBOL_TYPE; t13197.s0.value.external_symbol_type = q570; /* x212398 */ t13199.s0.tag = EXTERNAL_SYMBOL_TYPE; t13199.s0.value.external_symbol_type = q4; /* x212399 */ t13201.s0.tag = EXTERNAL_SYMBOL_TYPE; t13201.s0.value.external_symbol_type = q568; /* x212400 */ t13202.s0.tag = EXTERNAL_SYMBOL_TYPE; t13202.s0.value.external_symbol_type = q565; /* x212401 */ t13202.s1.tag = NULL_TYPE; /* x212402 */ t13201.s1.tag = STRUCTURE_TYPE24753; t13201.s1.value.structure_type24753 = &t13202; /* x212403 */ t13200.s0.tag = STRUCTURE_TYPE24753; t13200.s0.value.structure_type24753 = &t13201; /* x212404 */ t13204.s0.tag = EXTERNAL_SYMBOL_TYPE; t13204.s0.value.external_symbol_type = q569; /* x212405 */ t13205.s0.tag = EXTERNAL_SYMBOL_TYPE; t13205.s0.value.external_symbol_type = q565; /* x212406 */ t13205.s1.tag = NULL_TYPE; /* x212407 */ t13204.s1.tag = STRUCTURE_TYPE24753; t13204.s1.value.structure_type24753 = &t13205; /* x212408 */ t13203.s0.tag = STRUCTURE_TYPE24753; t13203.s0.value.structure_type24753 = &t13204; /* x212409 */ t13203.s1.tag = NULL_TYPE; /* x212410 */ t13200.s1.tag = STRUCTURE_TYPE24753; t13200.s1.value.structure_type24753 = &t13203; /* x212411 */ t13199.s1.tag = STRUCTURE_TYPE24753; t13199.s1.value.structure_type24753 = &t13200; /* x212412 */ t13198.s0.tag = STRUCTURE_TYPE24753; t13198.s0.value.structure_type24753 = &t13199; /* x212413 */ t13198.s1.tag = NULL_TYPE; /* x212414 */ t13197.s1.tag = STRUCTURE_TYPE24753; t13197.s1.value.structure_type24753 = &t13198; /* x212415 */ t13196.s1.tag = STRUCTURE_TYPE24753; t13196.s1.value.structure_type24753 = &t13197; /* x212416 */ t13195.s0.tag = STRUCTURE_TYPE24753; t13195.s0.value.structure_type24753 = &t13196; /* x212417 */ t13207.s0.tag = EXTERNAL_SYMBOL_TYPE; t13207.s0.value.external_symbol_type = q42; /* x212418 */ t13208.s0.tag = EXTERNAL_SYMBOL_TYPE; t13208.s0.value.external_symbol_type = q571; /* x212419 */ t13210.s0.tag = EXTERNAL_SYMBOL_TYPE; t13210.s0.value.external_symbol_type = q4; /* x212420 */ t13212.s0.tag = EXTERNAL_SYMBOL_TYPE; t13212.s0.value.external_symbol_type = q128; /* x212421 */ t13214.s0.tag = EXTERNAL_SYMBOL_TYPE; t13214.s0.value.external_symbol_type = q568; /* x212422 */ t13215.s0.tag = EXTERNAL_SYMBOL_TYPE; t13215.s0.value.external_symbol_type = q562; /* x212423 */ t13215.s1.tag = NULL_TYPE; /* x212424 */ t13214.s1.tag = STRUCTURE_TYPE24753; t13214.s1.value.structure_type24753 = &t13215; /* x212425 */ t13213.s0.tag = STRUCTURE_TYPE24753; t13213.s0.value.structure_type24753 = &t13214; /* x212426 */ t13217.s0.tag = EXTERNAL_SYMBOL_TYPE; t13217.s0.value.external_symbol_type = q568; /* x212427 */ t13218.s0.tag = EXTERNAL_SYMBOL_TYPE; t13218.s0.value.external_symbol_type = q565; /* x212428 */ t13218.s1.tag = NULL_TYPE; /* x212429 */ t13217.s1.tag = STRUCTURE_TYPE24753; t13217.s1.value.structure_type24753 = &t13218; /* x212430 */ t13216.s0.tag = STRUCTURE_TYPE24753; t13216.s0.value.structure_type24753 = &t13217; /* x212431 */ t13216.s1.tag = NULL_TYPE; /* x212432 */ t13213.s1.tag = STRUCTURE_TYPE24753; t13213.s1.value.structure_type24753 = &t13216; /* x212433 */ t13212.s1.tag = STRUCTURE_TYPE24753; t13212.s1.value.structure_type24753 = &t13213; /* x212434 */ t13211.s0.tag = STRUCTURE_TYPE24753; t13211.s0.value.structure_type24753 = &t13212; /* x212435 */ t13220.s0.tag = EXTERNAL_SYMBOL_TYPE; t13220.s0.value.external_symbol_type = q128; /* x212436 */ t13222.s0.tag = EXTERNAL_SYMBOL_TYPE; t13222.s0.value.external_symbol_type = q569; /* x212437 */ t13223.s0.tag = EXTERNAL_SYMBOL_TYPE; t13223.s0.value.external_symbol_type = q562; /* x212438 */ t13223.s1.tag = NULL_TYPE; /* x212439 */ t13222.s1.tag = STRUCTURE_TYPE24753; t13222.s1.value.structure_type24753 = &t13223; /* x212440 */ t13221.s0.tag = STRUCTURE_TYPE24753; t13221.s0.value.structure_type24753 = &t13222; /* x212441 */ t13225.s0.tag = EXTERNAL_SYMBOL_TYPE; t13225.s0.value.external_symbol_type = q569; /* x212442 */ t13226.s0.tag = EXTERNAL_SYMBOL_TYPE; t13226.s0.value.external_symbol_type = q565; /* x212443 */ t13226.s1.tag = NULL_TYPE; /* x212444 */ t13225.s1.tag = STRUCTURE_TYPE24753; t13225.s1.value.structure_type24753 = &t13226; /* x212445 */ t13224.s0.tag = STRUCTURE_TYPE24753; t13224.s0.value.structure_type24753 = &t13225; /* x212446 */ t13224.s1.tag = NULL_TYPE; /* x212447 */ t13221.s1.tag = STRUCTURE_TYPE24753; t13221.s1.value.structure_type24753 = &t13224; /* x212448 */ t13220.s1.tag = STRUCTURE_TYPE24753; t13220.s1.value.structure_type24753 = &t13221; /* x212449 */ t13219.s0.tag = STRUCTURE_TYPE24753; t13219.s0.value.structure_type24753 = &t13220; /* x212450 */ t13219.s1.tag = NULL_TYPE; /* x212451 */ t13211.s1.tag = STRUCTURE_TYPE24753; t13211.s1.value.structure_type24753 = &t13219; /* x212452 */ t13210.s1.tag = STRUCTURE_TYPE24753; t13210.s1.value.structure_type24753 = &t13211; /* x212453 */ t13209.s0.tag = STRUCTURE_TYPE24753; t13209.s0.value.structure_type24753 = &t13210; /* x212454 */ t13209.s1.tag = NULL_TYPE; /* x212455 */ t13208.s1.tag = STRUCTURE_TYPE24753; t13208.s1.value.structure_type24753 = &t13209; /* x212456 */ t13207.s1.tag = STRUCTURE_TYPE24753; t13207.s1.value.structure_type24753 = &t13208; /* x212457 */ t13206.s0.tag = STRUCTURE_TYPE24753; t13206.s0.value.structure_type24753 = &t13207; /* x212458 */ t13228.s0.tag = EXTERNAL_SYMBOL_TYPE; t13228.s0.value.external_symbol_type = q42; /* x212459 */ t13229.s0.tag = EXTERNAL_SYMBOL_TYPE; t13229.s0.value.external_symbol_type = q572; /* x212460 */ t13231.s0.tag = EXTERNAL_SYMBOL_TYPE; t13231.s0.value.external_symbol_type = q569; /* x212461 */ t13232.s0.tag = EXTERNAL_SYMBOL_TYPE; t13232.s0.value.external_symbol_type = q562; /* x212462 */ t13232.s1.tag = NULL_TYPE; /* x212463 */ t13231.s1.tag = STRUCTURE_TYPE24753; t13231.s1.value.structure_type24753 = &t13232; /* x212464 */ t13230.s0.tag = STRUCTURE_TYPE24753; t13230.s0.value.structure_type24753 = &t13231; /* x212465 */ t13230.s1.tag = NULL_TYPE; /* x212466 */ t13229.s1.tag = STRUCTURE_TYPE24753; t13229.s1.value.structure_type24753 = &t13230; /* x212467 */ t13228.s1.tag = STRUCTURE_TYPE24753; t13228.s1.value.structure_type24753 = &t13229; /* x212468 */ t13227.s0.tag = STRUCTURE_TYPE24753; t13227.s0.value.structure_type24753 = &t13228; /* x212469 */ t13234.s0.tag = EXTERNAL_SYMBOL_TYPE; t13234.s0.value.external_symbol_type = q42; /* x212470 */ t13235.s0.tag = EXTERNAL_SYMBOL_TYPE; t13235.s0.value.external_symbol_type = q573; /* x212471 */ t13237.s0.tag = EXTERNAL_SYMBOL_TYPE; t13237.s0.value.external_symbol_type = q569; /* x212472 */ t13238.s0.tag = EXTERNAL_SYMBOL_TYPE; t13238.s0.value.external_symbol_type = q565; /* x212473 */ t13238.s1.tag = NULL_TYPE; /* x212474 */ t13237.s1.tag = STRUCTURE_TYPE24753; t13237.s1.value.structure_type24753 = &t13238; /* x212475 */ t13236.s0.tag = STRUCTURE_TYPE24753; t13236.s0.value.structure_type24753 = &t13237; /* x212476 */ t13236.s1.tag = NULL_TYPE; /* x212477 */ t13235.s1.tag = STRUCTURE_TYPE24753; t13235.s1.value.structure_type24753 = &t13236; /* x212478 */ t13234.s1.tag = STRUCTURE_TYPE24753; t13234.s1.value.structure_type24753 = &t13235; /* x212479 */ t13233.s0.tag = STRUCTURE_TYPE24753; t13233.s0.value.structure_type24753 = &t13234; /* x212480 */ t13240.s0.tag = EXTERNAL_SYMBOL_TYPE; t13240.s0.value.external_symbol_type = q42; /* x212481 */ t13241.s0.tag = EXTERNAL_SYMBOL_TYPE; t13241.s0.value.external_symbol_type = q574; /* x212482 */ t13243.s0.tag = EXTERNAL_SYMBOL_TYPE; t13243.s0.value.external_symbol_type = q128; /* x212483 */ t13244.s0.tag = EXTERNAL_SYMBOL_TYPE; t13244.s0.value.external_symbol_type = q572; /* x212484 */ t13245.s0.tag = EXTERNAL_SYMBOL_TYPE; t13245.s0.value.external_symbol_type = q573; /* x212485 */ t13245.s1.tag = NULL_TYPE; /* x212486 */ t13244.s1.tag = STRUCTURE_TYPE24753; t13244.s1.value.structure_type24753 = &t13245; /* x212487 */ t13243.s1.tag = STRUCTURE_TYPE24753; t13243.s1.value.structure_type24753 = &t13244; /* x212488 */ t13242.s0.tag = STRUCTURE_TYPE24753; t13242.s0.value.structure_type24753 = &t13243; /* x212489 */ t13242.s1.tag = NULL_TYPE; /* x212490 */ t13241.s1.tag = STRUCTURE_TYPE24753; t13241.s1.value.structure_type24753 = &t13242; /* x212491 */ t13240.s1.tag = STRUCTURE_TYPE24753; t13240.s1.value.structure_type24753 = &t13241; /* x212492 */ t13239.s0.tag = STRUCTURE_TYPE24753; t13239.s0.value.structure_type24753 = &t13240; /* x212493 */ t13247.s0.tag = EXTERNAL_SYMBOL_TYPE; t13247.s0.value.external_symbol_type = q42; /* x212494 */ t13248.s0.tag = EXTERNAL_SYMBOL_TYPE; t13248.s0.value.external_symbol_type = q549; /* x212495 */ t13249.s0.tag = EXTERNAL_SYMBOL_TYPE; t13249.s0.value.external_symbol_type = q705; /* x212496 */ t13249.s1.tag = NULL_TYPE; /* x212497 */ t13248.s1.tag = STRUCTURE_TYPE24753; t13248.s1.value.structure_type24753 = &t13249; /* x212498 */ t13247.s1.tag = STRUCTURE_TYPE24753; t13247.s1.value.structure_type24753 = &t13248; /* x212499 */ t13246.s0.tag = STRUCTURE_TYPE24753; t13246.s0.value.structure_type24753 = &t13247; /* x212500 */ t13251.s0.tag = EXTERNAL_SYMBOL_TYPE; t13251.s0.value.external_symbol_type = q42; /* x212501 */ t13252.s0.tag = EXTERNAL_SYMBOL_TYPE; t13252.s0.value.external_symbol_type = q550; /* x212502 */ t13254.s0.tag = EXTERNAL_SYMBOL_TYPE; t13254.s0.value.external_symbol_type = q4; /* x212503 */ t13255.s0.tag = EXTERNAL_SYMBOL_TYPE; t13255.s0.value.external_symbol_type = q571; /* x212504 */ t13256.s0.tag = FIXNUM_TYPE; t13256.s0.value.fixnum_type = 4; /* x212505 */ t13256.s1.tag = NULL_TYPE; /* x212506 */ t13255.s1.tag = STRUCTURE_TYPE24753; t13255.s1.value.structure_type24753 = &t13256; /* x212507 */ t13254.s1.tag = STRUCTURE_TYPE24753; t13254.s1.value.structure_type24753 = &t13255; /* x212508 */ t13253.s0.tag = STRUCTURE_TYPE24753; t13253.s0.value.structure_type24753 = &t13254; /* x212509 */ t13253.s1.tag = NULL_TYPE; /* x212510 */ t13252.s1.tag = STRUCTURE_TYPE24753; t13252.s1.value.structure_type24753 = &t13253; /* x212511 */ t13251.s1.tag = STRUCTURE_TYPE24753; t13251.s1.value.structure_type24753 = &t13252; /* x212512 */ t13250.s0.tag = STRUCTURE_TYPE24753; t13250.s0.value.structure_type24753 = &t13251; /* x212513 */ t13258.s0.tag = EXTERNAL_SYMBOL_TYPE; t13258.s0.value.external_symbol_type = q42; /* x212514 */ t13259.s0.tag = EXTERNAL_SYMBOL_TYPE; t13259.s0.value.external_symbol_type = q575; /* x212515 */ t13261.s0.tag = EXTERNAL_SYMBOL_TYPE; t13261.s0.value.external_symbol_type = q2; /* x212516 */ t13262.s0.tag = EXTERNAL_SYMBOL_TYPE; t13262.s0.value.external_symbol_type = q706; /* x212517 */ t13263.s0.tag = FIXNUM_TYPE; t13263.s0.value.fixnum_type = 6; /* x212518 */ t13263.s1.tag = NULL_TYPE; /* x212519 */ t13262.s1.tag = STRUCTURE_TYPE24753; t13262.s1.value.structure_type24753 = &t13263; /* x212520 */ t13261.s1.tag = STRUCTURE_TYPE24753; t13261.s1.value.structure_type24753 = &t13262; /* x212521 */ t13260.s0.tag = STRUCTURE_TYPE24753; t13260.s0.value.structure_type24753 = &t13261; /* x212522 */ t13260.s1.tag = NULL_TYPE; /* x212523 */ t13259.s1.tag = STRUCTURE_TYPE24753; t13259.s1.value.structure_type24753 = &t13260; /* x212524 */ t13258.s1.tag = STRUCTURE_TYPE24753; t13258.s1.value.structure_type24753 = &t13259; /* x212525 */ t13257.s0.tag = STRUCTURE_TYPE24753; t13257.s0.value.structure_type24753 = &t13258; /* x212526 */ t13265.s0.tag = EXTERNAL_SYMBOL_TYPE; t13265.s0.value.external_symbol_type = q42; /* x212527 */ t13266.s0.tag = EXTERNAL_SYMBOL_TYPE; t13266.s0.value.external_symbol_type = q576; /* x212528 */ t13267.s0.tag = EXTERNAL_SYMBOL_TYPE; t13267.s0.value.external_symbol_type = q530; /* x212529 */ t13267.s1.tag = NULL_TYPE; /* x212530 */ t13266.s1.tag = STRUCTURE_TYPE24753; t13266.s1.value.structure_type24753 = &t13267; /* x212531 */ t13265.s1.tag = STRUCTURE_TYPE24753; t13265.s1.value.structure_type24753 = &t13266; /* x212532 */ t13264.s0.tag = STRUCTURE_TYPE24753; t13264.s0.value.structure_type24753 = &t13265; /* x212533 */ t13269.s0.tag = EXTERNAL_SYMBOL_TYPE; t13269.s0.value.external_symbol_type = q493; /* x212534 */ t13270.s0.tag = EXTERNAL_SYMBOL_TYPE; t13270.s0.value.external_symbol_type = q702; /* x212535 */ t13272.s0.tag = EXTERNAL_SYMBOL_TYPE; t13272.s0.value.external_symbol_type = q494; /* x212536 */ t13274.s0.tag = EXTERNAL_SYMBOL_TYPE; t13274.s0.value.external_symbol_type = q125; /* x212537 */ t13275.s0.tag = EXTERNAL_SYMBOL_TYPE; t13275.s0.value.external_symbol_type = q702; /* x212538 */ t13275.s1.tag = NULL_TYPE; /* x212539 */ t13274.s1.tag = STRUCTURE_TYPE24753; t13274.s1.value.structure_type24753 = &t13275; /* x212540 */ t13273.s0.tag = STRUCTURE_TYPE24753; t13273.s0.value.structure_type24753 = &t13274; /* x212541 */ t13277.s0.tag = EXTERNAL_SYMBOL_TYPE; t13277.s0.value.external_symbol_type = q42; /* x212542 */ t13278.s0.tag = EXTERNAL_SYMBOL_TYPE; t13278.s0.value.external_symbol_type = q708; /* x212543 */ t13280.s0.tag = EXTERNAL_SYMBOL_TYPE; t13280.s0.value.external_symbol_type = q4; /* x212544 */ t13282.s0.tag = EXTERNAL_SYMBOL_TYPE; t13282.s0.value.external_symbol_type = q130; /* x212545 */ t13283.s0.tag = EXTERNAL_SYMBOL_TYPE; t13283.s0.value.external_symbol_type = q702; /* x212546 */ t13284.s0.tag = EXTERNAL_SYMBOL_TYPE; t13284.s0.value.external_symbol_type = q571; /* x212547 */ t13284.s1.tag = NULL_TYPE; /* x212548 */ t13283.s1.tag = STRUCTURE_TYPE24753; t13283.s1.value.structure_type24753 = &t13284; /* x212549 */ t13282.s1.tag = STRUCTURE_TYPE24753; t13282.s1.value.structure_type24753 = &t13283; /* x212550 */ t13281.s0.tag = STRUCTURE_TYPE24753; t13281.s0.value.structure_type24753 = &t13282; /* x212551 */ t13285.s0.tag = FIXNUM_TYPE; t13285.s0.value.fixnum_type = 4; /* x212552 */ t13285.s1.tag = NULL_TYPE; /* x212553 */ t13281.s1.tag = STRUCTURE_TYPE24753; t13281.s1.value.structure_type24753 = &t13285; /* x212554 */ t13280.s1.tag = STRUCTURE_TYPE24753; t13280.s1.value.structure_type24753 = &t13281; /* x212555 */ t13279.s0.tag = STRUCTURE_TYPE24753; t13279.s0.value.structure_type24753 = &t13280; /* x212556 */ t13279.s1.tag = NULL_TYPE; /* x212557 */ t13278.s1.tag = STRUCTURE_TYPE24753; t13278.s1.value.structure_type24753 = &t13279; /* x212558 */ t13277.s1.tag = STRUCTURE_TYPE24753; t13277.s1.value.structure_type24753 = &t13278; /* x212559 */ t13276.s0.tag = STRUCTURE_TYPE24753; t13276.s0.value.structure_type24753 = &t13277; /* x212560 */ t13276.s1.tag = NULL_TYPE; /* x212561 */ t13273.s1.tag = STRUCTURE_TYPE24753; t13273.s1.value.structure_type24753 = &t13276; /* x212562 */ t13272.s1.tag = STRUCTURE_TYPE24753; t13272.s1.value.structure_type24753 = &t13273; /* x212563 */ t13271.s0.tag = STRUCTURE_TYPE24753; t13271.s0.value.structure_type24753 = &t13272; /* x212564 */ t13287.s0.tag = EXTERNAL_SYMBOL_TYPE; t13287.s0.value.external_symbol_type = q42; /* x212565 */ t13288.s0.tag = EXTERNAL_SYMBOL_TYPE; t13288.s0.value.external_symbol_type = q709; /* x212566 */ t13290.s0.tag = EXTERNAL_SYMBOL_TYPE; t13290.s0.value.external_symbol_type = q4; /* x212567 */ t13291.s0.tag = EXTERNAL_SYMBOL_TYPE; t13291.s0.value.external_symbol_type = q571; /* x212568 */ t13292.s0.tag = FIXNUM_TYPE; t13292.s0.value.fixnum_type = 4; /* x212569 */ t13292.s1.tag = NULL_TYPE; /* x212570 */ t13291.s1.tag = STRUCTURE_TYPE24753; t13291.s1.value.structure_type24753 = &t13292; /* x212571 */ t13290.s1.tag = STRUCTURE_TYPE24753; t13290.s1.value.structure_type24753 = &t13291; /* x212572 */ t13289.s0.tag = STRUCTURE_TYPE24753; t13289.s0.value.structure_type24753 = &t13290; /* x212573 */ t13289.s1.tag = NULL_TYPE; /* x212574 */ t13288.s1.tag = STRUCTURE_TYPE24753; t13288.s1.value.structure_type24753 = &t13289; /* x212575 */ t13287.s1.tag = STRUCTURE_TYPE24753; t13287.s1.value.structure_type24753 = &t13288; /* x212576 */ t13286.s0.tag = STRUCTURE_TYPE24753; t13286.s0.value.structure_type24753 = &t13287; /* x212577 */ t13286.s1.tag = NULL_TYPE; /* x212578 */ t13271.s1.tag = STRUCTURE_TYPE24753; t13271.s1.value.structure_type24753 = &t13286; /* x212579 */ t13270.s1.tag = STRUCTURE_TYPE24753; t13270.s1.value.structure_type24753 = &t13271; /* x212580 */ t13269.s1.tag = STRUCTURE_TYPE24753; t13269.s1.value.structure_type24753 = &t13270; /* x212581 */ t13268.s0.tag = STRUCTURE_TYPE24753; t13268.s0.value.structure_type24753 = &t13269; /* x212582 */ t13294.s0.tag = EXTERNAL_SYMBOL_TYPE; t13294.s0.value.external_symbol_type = q42; /* x212583 */ t13295.s0.tag = EXTERNAL_SYMBOL_TYPE; t13295.s0.value.external_symbol_type = q577; /* x212584 */ t13297.s0.tag = EXTERNAL_SYMBOL_TYPE; t13297.s0.value.external_symbol_type = q4; /* x212585 */ t13298.s0.tag = EXTERNAL_SYMBOL_TYPE; t13298.s0.value.external_symbol_type = q571; /* x212586 */ t13299.s0.tag = FIXNUM_TYPE; t13299.s0.value.fixnum_type = 4; /* x212587 */ t13299.s1.tag = NULL_TYPE; /* x212588 */ t13298.s1.tag = STRUCTURE_TYPE24753; t13298.s1.value.structure_type24753 = &t13299; /* x212589 */ t13297.s1.tag = STRUCTURE_TYPE24753; t13297.s1.value.structure_type24753 = &t13298; /* x212590 */ t13296.s0.tag = STRUCTURE_TYPE24753; t13296.s0.value.structure_type24753 = &t13297; /* x212591 */ t13296.s1.tag = NULL_TYPE; /* x212592 */ t13295.s1.tag = STRUCTURE_TYPE24753; t13295.s1.value.structure_type24753 = &t13296; /* x212593 */ t13294.s1.tag = STRUCTURE_TYPE24753; t13294.s1.value.structure_type24753 = &t13295; /* x212594 */ t13293.s0.tag = STRUCTURE_TYPE24753; t13293.s0.value.structure_type24753 = &t13294; /* x212595 */ t13301.s0.tag = EXTERNAL_SYMBOL_TYPE; t13301.s0.value.external_symbol_type = q42; /* x212596 */ t13302.s0.tag = EXTERNAL_SYMBOL_TYPE; t13302.s0.value.external_symbol_type = q710; /* x212597 */ t13304.s0.tag = EXTERNAL_SYMBOL_TYPE; t13304.s0.value.external_symbol_type = q4; /* x212598 */ t13306.s0.tag = EXTERNAL_SYMBOL_TYPE; t13306.s0.value.external_symbol_type = q128; /* x212599 */ t13308.s0.tag = EXTERNAL_SYMBOL_TYPE; t13308.s0.value.external_symbol_type = q711; /* x212600 */ t13309.s0.tag = EXTERNAL_SYMBOL_TYPE; t13309.s0.value.external_symbol_type = q562; /* x212601 */ t13310.s0.tag = STRING_TYPE; t13310.s0.value.string_type = "Tyi"; /* x212602 */ t13311.s0.tag = FIXNUM_TYPE; t13311.s0.value.fixnum_type = 3; /* x212603 */ t13311.s1.tag = NULL_TYPE; /* x212604 */ t13310.s1.tag = STRUCTURE_TYPE24753; t13310.s1.value.structure_type24753 = &t13311; /* x212605 */ t13309.s1.tag = STRUCTURE_TYPE24753; t13309.s1.value.structure_type24753 = &t13310; /* x212606 */ t13308.s1.tag = STRUCTURE_TYPE24753; t13308.s1.value.structure_type24753 = &t13309; /* x212607 */ t13307.s0.tag = STRUCTURE_TYPE24753; t13307.s0.value.structure_type24753 = &t13308; /* x212608 */ t13313.s0.tag = EXTERNAL_SYMBOL_TYPE; t13313.s0.value.external_symbol_type = q711; /* x212609 */ t13314.s0.tag = EXTERNAL_SYMBOL_TYPE; t13314.s0.value.external_symbol_type = q562; /* x212610 */ t13315.s0.tag = STRING_TYPE; t13315.s0.value.string_type = "Run"; /* x212611 */ t13316.s0.tag = FIXNUM_TYPE; t13316.s0.value.fixnum_type = 3; /* x212612 */ t13316.s1.tag = NULL_TYPE; /* x212613 */ t13315.s1.tag = STRUCTURE_TYPE24753; t13315.s1.value.structure_type24753 = &t13316; /* x212614 */ t13314.s1.tag = STRUCTURE_TYPE24753; t13314.s1.value.structure_type24753 = &t13315; /* x212615 */ t13313.s1.tag = STRUCTURE_TYPE24753; t13313.s1.value.structure_type24753 = &t13314; /* x212616 */ t13312.s0.tag = STRUCTURE_TYPE24753; t13312.s0.value.structure_type24753 = &t13313; /* x212617 */ t13318.s0.tag = EXTERNAL_SYMBOL_TYPE; t13318.s0.value.external_symbol_type = q711; /* x212618 */ t13319.s0.tag = EXTERNAL_SYMBOL_TYPE; t13319.s0.value.external_symbol_type = q562; /* x212619 */ t13320.s0.tag = STRING_TYPE; t13320.s0.value.string_type = "Pause"; /* x212620 */ t13321.s0.tag = FIXNUM_TYPE; t13321.s0.value.fixnum_type = 5; /* x212621 */ t13321.s1.tag = NULL_TYPE; /* x212622 */ t13320.s1.tag = STRUCTURE_TYPE24753; t13320.s1.value.structure_type24753 = &t13321; /* x212623 */ t13319.s1.tag = STRUCTURE_TYPE24753; t13319.s1.value.structure_type24753 = &t13320; /* x212624 */ t13318.s1.tag = STRUCTURE_TYPE24753; t13318.s1.value.structure_type24753 = &t13319; /* x212625 */ t13317.s0.tag = STRUCTURE_TYPE24753; t13317.s0.value.structure_type24753 = &t13318; /* x212626 */} void initialize_constants1(void) {t13323.s0.tag = EXTERNAL_SYMBOL_TYPE; t13323.s0.value.external_symbol_type = q711; /* x212627 */ t13324.s0.tag = EXTERNAL_SYMBOL_TYPE; t13324.s0.value.external_symbol_type = q562; /* x212628 */ t13325.s0.tag = STRING_TYPE; t13325.s0.value.string_type = "Track"; /* x212629 */ t13326.s0.tag = FIXNUM_TYPE; t13326.s0.value.fixnum_type = 5; /* x212630 */ t13326.s1.tag = NULL_TYPE; /* x212631 */ t13325.s1.tag = STRUCTURE_TYPE24753; t13325.s1.value.structure_type24753 = &t13326; /* x212632 */ t13324.s1.tag = STRUCTURE_TYPE24753; t13324.s1.value.structure_type24753 = &t13325; /* x212633 */ t13323.s1.tag = STRUCTURE_TYPE24753; t13323.s1.value.structure_type24753 = &t13324; /* x212634 */ t13322.s0.tag = STRUCTURE_TYPE24753; t13322.s0.value.structure_type24753 = &t13323; /* x212635 */ t13322.s1.tag = NULL_TYPE; /* x212636 */ t13317.s1.tag = STRUCTURE_TYPE24753; t13317.s1.value.structure_type24753 = &t13322; /* x212637 */ t13312.s1.tag = STRUCTURE_TYPE24753; t13312.s1.value.structure_type24753 = &t13317; /* x212638 */ t13307.s1.tag = STRUCTURE_TYPE24753; t13307.s1.value.structure_type24753 = &t13312; /* x212639 */ t13306.s1.tag = STRUCTURE_TYPE24753; t13306.s1.value.structure_type24753 = &t13307; /* x212640 */ t13305.s0.tag = STRUCTURE_TYPE24753; t13305.s0.value.structure_type24753 = &t13306; /* x212641 */ t13327.s0.tag = FIXNUM_TYPE; t13327.s0.value.fixnum_type = 4; /* x212642 */ t13327.s1.tag = NULL_TYPE; /* x212643 */ t13305.s1.tag = STRUCTURE_TYPE24753; t13305.s1.value.structure_type24753 = &t13327; /* x212644 */ t13304.s1.tag = STRUCTURE_TYPE24753; t13304.s1.value.structure_type24753 = &t13305; /* x212645 */ t13303.s0.tag = STRUCTURE_TYPE24753; t13303.s0.value.structure_type24753 = &t13304; /* x212646 */ t13303.s1.tag = NULL_TYPE; /* x212647 */ t13302.s1.tag = STRUCTURE_TYPE24753; t13302.s1.value.structure_type24753 = &t13303; /* x212648 */ t13301.s1.tag = STRUCTURE_TYPE24753; t13301.s1.value.structure_type24753 = &t13302; /* x212649 */ t13300.s0.tag = STRUCTURE_TYPE24753; t13300.s0.value.structure_type24753 = &t13301; /* x212650 */ t13329.s0.tag = EXTERNAL_SYMBOL_TYPE; t13329.s0.value.external_symbol_type = q42; /* x212651 */ t13330.s0.tag = EXTERNAL_SYMBOL_TYPE; t13330.s0.value.external_symbol_type = q578; /* x212652 */ t13332.s0.tag = EXTERNAL_SYMBOL_TYPE; t13332.s0.value.external_symbol_type = q579; /* x212653 */ t13333.s0.tag = EXTERNAL_SYMBOL_TYPE; t13333.s0.value.external_symbol_type = q540; /* x212654 */ t13334.s0.tag = EXTERNAL_SYMBOL_TYPE; t13334.s0.value.external_symbol_type = q547; /* x212655 */ t13335.s0.tag = EXTERNAL_SYMBOL_TYPE; t13335.s0.value.external_symbol_type = q580; /* x212656 */ t13336.s0.tag = EXTERNAL_SYMBOL_TYPE; t13336.s0.value.external_symbol_type = q581; /* x212657 */ t13337.s0.tag = EXTERNAL_SYMBOL_TYPE; t13337.s0.value.external_symbol_type = q706; /* x212658 */ t13339.s0.tag = EXTERNAL_SYMBOL_TYPE; t13339.s0.value.external_symbol_type = q43; /* x212659 */ t13340.s0.tag = EXTERNAL_SYMBOL_TYPE; t13340.s0.value.external_symbol_type = q702; /* x212660 */ t13342.s0.tag = EXTERNAL_SYMBOL_TYPE; t13342.s0.value.external_symbol_type = q43; /* x212661 */ t13344.s0.tag = EXTERNAL_SYMBOL_TYPE; t13344.s0.value.external_symbol_type = q125; /* x212662 */ t13345.s0.tag = EXTERNAL_SYMBOL_TYPE; t13345.s0.value.external_symbol_type = q702; /* x212663 */ t13345.s1.tag = NULL_TYPE; /* x212664 */ t13344.s1.tag = STRUCTURE_TYPE24753; t13344.s1.value.structure_type24753 = &t13345; /* x212665 */ t13343.s0.tag = STRUCTURE_TYPE24753; t13343.s0.value.structure_type24753 = &t13344; /* x212666 */ t13347.s0.tag = EXTERNAL_SYMBOL_TYPE; t13347.s0.value.external_symbol_type = q4; /* x212667 */ t13349.s0.tag = EXTERNAL_SYMBOL_TYPE; t13349.s0.value.external_symbol_type = q130; /* x212668 */ t13350.s0.tag = EXTERNAL_SYMBOL_TYPE; t13350.s0.value.external_symbol_type = q703; /* x212669 */ t13352.s0.tag = EXTERNAL_SYMBOL_TYPE; t13352.s0.value.external_symbol_type = q4; /* x212670 */ t13353.s0.tag = EXTERNAL_SYMBOL_TYPE; t13353.s0.value.external_symbol_type = q550; /* x212671 */ t13354.s0.tag = FIXNUM_TYPE; t13354.s0.value.fixnum_type = 4; /* x212672 */ t13354.s1.tag = NULL_TYPE; /* x212673 */ t13353.s1.tag = STRUCTURE_TYPE24753; t13353.s1.value.structure_type24753 = &t13354; /* x212674 */ t13352.s1.tag = STRUCTURE_TYPE24753; t13352.s1.value.structure_type24753 = &t13353; /* x212675 */ t13351.s0.tag = STRUCTURE_TYPE24753; t13351.s0.value.structure_type24753 = &t13352; /* x212676 */ t13351.s1.tag = NULL_TYPE; /* x212677 */ t13350.s1.tag = STRUCTURE_TYPE24753; t13350.s1.value.structure_type24753 = &t13351; /* x212678 */ t13349.s1.tag = STRUCTURE_TYPE24753; t13349.s1.value.structure_type24753 = &t13350; /* x212679 */ t13348.s0.tag = STRUCTURE_TYPE24753; t13348.s0.value.structure_type24753 = &t13349; /* x212680 */ t13355.s0.tag = EXTERNAL_SYMBOL_TYPE; t13355.s0.value.external_symbol_type = q576; /* x212681 */ t13356.s0.tag = EXTERNAL_SYMBOL_TYPE; t13356.s0.value.external_symbol_type = q709; /* x212682 */ t13357.s0.tag = EXTERNAL_SYMBOL_TYPE; t13357.s0.value.external_symbol_type = q577; /* x212683 */ t13358.s0.tag = FIXNUM_TYPE; t13358.s0.value.fixnum_type = 14; /* x212684 */ t13358.s1.tag = NULL_TYPE; /* x212685 */ t13357.s1.tag = STRUCTURE_TYPE24753; t13357.s1.value.structure_type24753 = &t13358; /* x212686 */ t13356.s1.tag = STRUCTURE_TYPE24753; t13356.s1.value.structure_type24753 = &t13357; /* x212687 */ t13355.s1.tag = STRUCTURE_TYPE24753; t13355.s1.value.structure_type24753 = &t13356; /* x212688 */ t13348.s1.tag = STRUCTURE_TYPE24753; t13348.s1.value.structure_type24753 = &t13355; /* x212689 */ t13347.s1.tag = STRUCTURE_TYPE24753; t13347.s1.value.structure_type24753 = &t13348; /* x212690 */ t13346.s0.tag = STRUCTURE_TYPE24753; t13346.s0.value.structure_type24753 = &t13347; /* x212691 */ t13360.s0.tag = EXTERNAL_SYMBOL_TYPE; t13360.s0.value.external_symbol_type = q4; /* x212692 */ t13362.s0.tag = EXTERNAL_SYMBOL_TYPE; t13362.s0.value.external_symbol_type = q130; /* x212693 */ t13363.s0.tag = EXTERNAL_SYMBOL_TYPE; t13363.s0.value.external_symbol_type = q703; /* x212694 */ t13365.s0.tag = EXTERNAL_SYMBOL_TYPE; t13365.s0.value.external_symbol_type = q4; /* x212695 */ t13366.s0.tag = EXTERNAL_SYMBOL_TYPE; t13366.s0.value.external_symbol_type = q550; /* x212696 */ t13367.s0.tag = FIXNUM_TYPE; t13367.s0.value.fixnum_type = 4; /* x212697 */ t13367.s1.tag = NULL_TYPE; /* x212698 */ t13366.s1.tag = STRUCTURE_TYPE24753; t13366.s1.value.structure_type24753 = &t13367; /* x212699 */ t13365.s1.tag = STRUCTURE_TYPE24753; t13365.s1.value.structure_type24753 = &t13366; /* x212700 */ t13364.s0.tag = STRUCTURE_TYPE24753; t13364.s0.value.structure_type24753 = &t13365; /* x212701 */ t13364.s1.tag = NULL_TYPE; /* x212702 */ t13363.s1.tag = STRUCTURE_TYPE24753; t13363.s1.value.structure_type24753 = &t13364; /* x212703 */ t13362.s1.tag = STRUCTURE_TYPE24753; t13362.s1.value.structure_type24753 = &t13363; /* x212704 */ t13361.s0.tag = STRUCTURE_TYPE24753; t13361.s0.value.structure_type24753 = &t13362; /* x212705 */ t13368.s0.tag = EXTERNAL_SYMBOL_TYPE; t13368.s0.value.external_symbol_type = q576; /* x212706 */ t13369.s0.tag = EXTERNAL_SYMBOL_TYPE; t13369.s0.value.external_symbol_type = q708; /* x212707 */ t13370.s0.tag = EXTERNAL_SYMBOL_TYPE; t13370.s0.value.external_symbol_type = q709; /* x212708 */ t13371.s0.tag = EXTERNAL_SYMBOL_TYPE; t13371.s0.value.external_symbol_type = q577; /* x212709 */ t13372.s0.tag = FIXNUM_TYPE; t13372.s0.value.fixnum_type = 18; /* x212710 */ t13372.s1.tag = NULL_TYPE; /* x212711 */ t13371.s1.tag = STRUCTURE_TYPE24753; t13371.s1.value.structure_type24753 = &t13372; /* x212712 */ t13370.s1.tag = STRUCTURE_TYPE24753; t13370.s1.value.structure_type24753 = &t13371; /* x212713 */ t13369.s1.tag = STRUCTURE_TYPE24753; t13369.s1.value.structure_type24753 = &t13370; /* x212714 */ t13368.s1.tag = STRUCTURE_TYPE24753; t13368.s1.value.structure_type24753 = &t13369; /* x212715 */ t13361.s1.tag = STRUCTURE_TYPE24753; t13361.s1.value.structure_type24753 = &t13368; /* x212716 */ t13360.s1.tag = STRUCTURE_TYPE24753; t13360.s1.value.structure_type24753 = &t13361; /* x212717 */ t13359.s0.tag = STRUCTURE_TYPE24753; t13359.s0.value.structure_type24753 = &t13360; /* x212718 */ t13359.s1.tag = NULL_TYPE; /* x212719 */ t13346.s1.tag = STRUCTURE_TYPE24753; t13346.s1.value.structure_type24753 = &t13359; /* x212720 */ t13343.s1.tag = STRUCTURE_TYPE24753; t13343.s1.value.structure_type24753 = &t13346; /* x212721 */ t13342.s1.tag = STRUCTURE_TYPE24753; t13342.s1.value.structure_type24753 = &t13343; /* x212722 */ t13341.s0.tag = STRUCTURE_TYPE24753; t13341.s0.value.structure_type24753 = &t13342; /* x212723 */ t13374.s0.tag = EXTERNAL_SYMBOL_TYPE; t13374.s0.value.external_symbol_type = q4; /* x212724 */ t13376.s0.tag = EXTERNAL_SYMBOL_TYPE; t13376.s0.value.external_symbol_type = q130; /* x212725 */ t13377.s0.tag = EXTERNAL_SYMBOL_TYPE; t13377.s0.value.external_symbol_type = q703; /* x212726 */ t13379.s0.tag = EXTERNAL_SYMBOL_TYPE; t13379.s0.value.external_symbol_type = q4; /* x212727 */ t13380.s0.tag = EXTERNAL_SYMBOL_TYPE; t13380.s0.value.external_symbol_type = q550; /* x212728 */ t13381.s0.tag = FIXNUM_TYPE; t13381.s0.value.fixnum_type = 4; /* x212729 */ t13381.s1.tag = NULL_TYPE; /* x212730 */ t13380.s1.tag = STRUCTURE_TYPE24753; t13380.s1.value.structure_type24753 = &t13381; /* x212731 */ t13379.s1.tag = STRUCTURE_TYPE24753; t13379.s1.value.structure_type24753 = &t13380; /* x212732 */ t13378.s0.tag = STRUCTURE_TYPE24753; t13378.s0.value.structure_type24753 = &t13379; /* x212733 */ t13378.s1.tag = NULL_TYPE; /* x212734 */ t13377.s1.tag = STRUCTURE_TYPE24753; t13377.s1.value.structure_type24753 = &t13378; /* x212735 */ t13376.s1.tag = STRUCTURE_TYPE24753; t13376.s1.value.structure_type24753 = &t13377; /* x212736 */ t13375.s0.tag = STRUCTURE_TYPE24753; t13375.s0.value.structure_type24753 = &t13376; /* x212737 */ t13382.s0.tag = EXTERNAL_SYMBOL_TYPE; t13382.s0.value.external_symbol_type = q576; /* x212738 */ t13383.s0.tag = EXTERNAL_SYMBOL_TYPE; t13383.s0.value.external_symbol_type = q577; /* x212739 */ t13384.s0.tag = FIXNUM_TYPE; t13384.s0.value.fixnum_type = 10; /* x212740 */ t13384.s1.tag = NULL_TYPE; /* x212741 */ t13383.s1.tag = STRUCTURE_TYPE24753; t13383.s1.value.structure_type24753 = &t13384; /* x212742 */ t13382.s1.tag = STRUCTURE_TYPE24753; t13382.s1.value.structure_type24753 = &t13383; /* x212743 */ t13375.s1.tag = STRUCTURE_TYPE24753; t13375.s1.value.structure_type24753 = &t13382; /* x212744 */ t13374.s1.tag = STRUCTURE_TYPE24753; t13374.s1.value.structure_type24753 = &t13375; /* x212745 */ t13373.s0.tag = STRUCTURE_TYPE24753; t13373.s0.value.structure_type24753 = &t13374; /* x212746 */ t13373.s1.tag = NULL_TYPE; /* x212747 */ t13341.s1.tag = STRUCTURE_TYPE24753; t13341.s1.value.structure_type24753 = &t13373; /* x212748 */ t13340.s1.tag = STRUCTURE_TYPE24753; t13340.s1.value.structure_type24753 = &t13341; /* x212749 */ t13339.s1.tag = STRUCTURE_TYPE24753; t13339.s1.value.structure_type24753 = &t13340; /* x212750 */ t13338.s0.tag = STRUCTURE_TYPE24753; t13338.s0.value.structure_type24753 = &t13339; /* x212751 */ t13385.s0.tag = FIXNUM_TYPE; t13385.s0.value.fixnum_type = 1; /* x212752 */ t13387.s0.tag = EXTERNAL_SYMBOL_TYPE; t13387.s0.value.external_symbol_type = q43; /* x212753 */ t13388.s0.tag = EXTERNAL_SYMBOL_TYPE; t13388.s0.value.external_symbol_type = q528; /* x212754 */ t13389.s0.tag = EXTERNAL_SYMBOL_TYPE; t13389.s0.value.external_symbol_type = q553; /* x212755 */ t13391.s0.tag = EXTERNAL_SYMBOL_TYPE; t13391.s0.value.external_symbol_type = q582; /* x212756 */ t13393.s0.tag = EXTERNAL_SYMBOL_TYPE; t13393.s0.value.external_symbol_type = q583; /* x212757 */ t13394.s0.tag = EXTERNAL_SYMBOL_TYPE; t13394.s0.value.external_symbol_type = q560; /* x212758 */ t13394.s1.tag = NULL_TYPE; /* x212759 */ t13393.s1.tag = STRUCTURE_TYPE24753; t13393.s1.value.structure_type24753 = &t13394; /* x212760 */ t13392.s0.tag = STRUCTURE_TYPE24753; t13392.s0.value.structure_type24753 = &t13393; /* x212761 */ t13392.s1.tag = NULL_TYPE; /* x212762 */ t13391.s1.tag = STRUCTURE_TYPE24753; t13391.s1.value.structure_type24753 = &t13392; /* x212763 */ t13390.s0.tag = STRUCTURE_TYPE24753; t13390.s0.value.structure_type24753 = &t13391; /* x212764 */ t13390.s1.tag = NULL_TYPE; /* x212765 */ t13389.s1.tag = STRUCTURE_TYPE24753; t13389.s1.value.structure_type24753 = &t13390; /* x212766 */ t13388.s1.tag = STRUCTURE_TYPE24753; t13388.s1.value.structure_type24753 = &t13389; /* x212767 */ t13387.s1.tag = STRUCTURE_TYPE24753; t13387.s1.value.structure_type24753 = &t13388; /* x212768 */ t13386.s0.tag = STRUCTURE_TYPE24753; t13386.s0.value.structure_type24753 = &t13387; /* x212769 */ t13396.s0.tag = EXTERNAL_SYMBOL_TYPE; t13396.s0.value.external_symbol_type = q43; /* x212770 */ t13397.s0.tag = EXTERNAL_SYMBOL_TYPE; t13397.s0.value.external_symbol_type = q528; /* x212771 */ t13398.s0.tag = EXTERNAL_SYMBOL_TYPE; t13398.s0.value.external_symbol_type = q551; /* x212772 */ t13400.s0.tag = EXTERNAL_SYMBOL_TYPE; t13400.s0.value.external_symbol_type = q582; /* x212773 */ t13402.s0.tag = EXTERNAL_SYMBOL_TYPE; t13402.s0.value.external_symbol_type = q583; /* x212774 */ t13403.s0.tag = EXTERNAL_SYMBOL_TYPE; t13403.s0.value.external_symbol_type = q555; /* x212775 */ t13403.s1.tag = NULL_TYPE; /* x212776 */ t13402.s1.tag = STRUCTURE_TYPE24753; t13402.s1.value.structure_type24753 = &t13403; /* x212777 */ t13401.s0.tag = STRUCTURE_TYPE24753; t13401.s0.value.structure_type24753 = &t13402; /* x212778 */ t13401.s1.tag = NULL_TYPE; /* x212779 */ t13400.s1.tag = STRUCTURE_TYPE24753; t13400.s1.value.structure_type24753 = &t13401; /* x212780 */ t13399.s0.tag = STRUCTURE_TYPE24753; t13399.s0.value.structure_type24753 = &t13400; /* x212781 */ t13399.s1.tag = NULL_TYPE; /* x212782 */ t13398.s1.tag = STRUCTURE_TYPE24753; t13398.s1.value.structure_type24753 = &t13399; /* x212783 */ t13397.s1.tag = STRUCTURE_TYPE24753; t13397.s1.value.structure_type24753 = &t13398; /* x212784 */ t13396.s1.tag = STRUCTURE_TYPE24753; t13396.s1.value.structure_type24753 = &t13397; /* x212785 */ t13395.s0.tag = STRUCTURE_TYPE24753; t13395.s0.value.structure_type24753 = &t13396; /* x212786 */ t13395.s1.tag = NULL_TYPE; /* x212787 */ t13386.s1.tag = STRUCTURE_TYPE24753; t13386.s1.value.structure_type24753 = &t13395; /* x212788 */ t13385.s1.tag = STRUCTURE_TYPE24753; t13385.s1.value.structure_type24753 = &t13386; /* x212789 */ t13338.s1.tag = STRUCTURE_TYPE24753; t13338.s1.value.structure_type24753 = &t13385; /* x212790 */ t13337.s1.tag = STRUCTURE_TYPE24753; t13337.s1.value.structure_type24753 = &t13338; /* x212791 */ t13336.s1.tag = STRUCTURE_TYPE24753; t13336.s1.value.structure_type24753 = &t13337; /* x212792 */ t13335.s1.tag = STRUCTURE_TYPE24753; t13335.s1.value.structure_type24753 = &t13336; /* x212793 */ t13334.s1.tag = STRUCTURE_TYPE24753; t13334.s1.value.structure_type24753 = &t13335; /* x212794 */ t13333.s1.tag = STRUCTURE_TYPE24753; t13333.s1.value.structure_type24753 = &t13334; /* x212795 */ t13332.s1.tag = STRUCTURE_TYPE24753; t13332.s1.value.structure_type24753 = &t13333; /* x212796 */ t13331.s0.tag = STRUCTURE_TYPE24753; t13331.s0.value.structure_type24753 = &t13332; /* x212797 */ t13331.s1.tag = NULL_TYPE; /* x212798 */ t13330.s1.tag = STRUCTURE_TYPE24753; t13330.s1.value.structure_type24753 = &t13331; /* x212799 */ t13329.s1.tag = STRUCTURE_TYPE24753; t13329.s1.value.structure_type24753 = &t13330; /* x212800 */ t13328.s0.tag = STRUCTURE_TYPE24753; t13328.s0.value.structure_type24753 = &t13329; /* x212801 */ t13405.s0.tag = EXTERNAL_SYMBOL_TYPE; t13405.s0.value.external_symbol_type = q584; /* x212802 */ t13406.s0.tag = EXTERNAL_SYMBOL_TYPE; t13406.s0.value.external_symbol_type = q540; /* x212803 */ t13407.s0.tag = EXTERNAL_SYMBOL_TYPE; t13407.s0.value.external_symbol_type = q578; /* x212804 */ t13408.s0.tag = EXTERNAL_SYMBOL_TYPE; t13408.s0.value.external_symbol_type = q585; /* x212805 */ t13408.s1.tag = NULL_TYPE; /* x212806 */ t13407.s1.tag = STRUCTURE_TYPE24753; t13407.s1.value.structure_type24753 = &t13408; /* x212807 */ t13406.s1.tag = STRUCTURE_TYPE24753; t13406.s1.value.structure_type24753 = &t13407; /* x212808 */ t13405.s1.tag = STRUCTURE_TYPE24753; t13405.s1.value.structure_type24753 = &t13406; /* x212809 */ t13404.s0.tag = STRUCTURE_TYPE24753; t13404.s0.value.structure_type24753 = &t13405; /* x212810 */ t13410.s0.tag = EXTERNAL_SYMBOL_TYPE; t13410.s0.value.external_symbol_type = q586; /* x212811 */ t13411.s0.tag = EXTERNAL_SYMBOL_TYPE; t13411.s0.value.external_symbol_type = q540; /* x212812 */ t13412.s0.tag = EXTERNAL_SYMBOL_TYPE; t13412.s0.value.external_symbol_type = q578; /* x212813 */ t13413.s0.tag = EXTERNAL_SYMBOL_TYPE; t13413.s0.value.external_symbol_type = q585; /* x212814 */ t13413.s1.tag = NULL_TYPE; /* x212815 */ t13412.s1.tag = STRUCTURE_TYPE24753; t13412.s1.value.structure_type24753 = &t13413; /* x212816 */ t13411.s1.tag = STRUCTURE_TYPE24753; t13411.s1.value.structure_type24753 = &t13412; /* x212817 */ t13410.s1.tag = STRUCTURE_TYPE24753; t13410.s1.value.structure_type24753 = &t13411; /* x212818 */ t13409.s0.tag = STRUCTURE_TYPE24753; t13409.s0.value.structure_type24753 = &t13410; /* x212819 */ t13415.s0.tag = EXTERNAL_SYMBOL_TYPE; t13415.s0.value.external_symbol_type = q588; /* x212820 */ t13416.s0.tag = EXTERNAL_SYMBOL_TYPE; t13416.s0.value.external_symbol_type = q540; /* x212821 */ t13417.s0.tag = EXTERNAL_SYMBOL_TYPE; t13417.s0.value.external_symbol_type = q578; /* x212822 */ t13419.s0.tag = EXTERNAL_SYMBOL_TYPE; t13419.s0.value.external_symbol_type = q589; /* x212823 */ t13420.s0.tag = EXTERNAL_SYMBOL_TYPE; t13420.s0.value.external_symbol_type = q590; /* x212824 */ t13421.s0.tag = EXTERNAL_SYMBOL_TYPE; t13421.s0.value.external_symbol_type = q591; /* x212825 */ t13422.s0.tag = EXTERNAL_SYMBOL_TYPE; t13422.s0.value.external_symbol_type = q592; /* x212826 */ t13423.s0.tag = EXTERNAL_SYMBOL_TYPE; t13423.s0.value.external_symbol_type = q593; /* x212827 */ t13424.s0.tag = EXTERNAL_SYMBOL_TYPE; t13424.s0.value.external_symbol_type = q594; /* x212828 */ t13424.s1.tag = NULL_TYPE; /* x212829 */ t13423.s1.tag = STRUCTURE_TYPE24753; t13423.s1.value.structure_type24753 = &t13424; /* x212830 */ t13422.s1.tag = STRUCTURE_TYPE24753; t13422.s1.value.structure_type24753 = &t13423; /* x212831 */ t13421.s1.tag = STRUCTURE_TYPE24753; t13421.s1.value.structure_type24753 = &t13422; /* x212832 */ t13420.s1.tag = STRUCTURE_TYPE24753; t13420.s1.value.structure_type24753 = &t13421; /* x212833 */ t13419.s1.tag = STRUCTURE_TYPE24753; t13419.s1.value.structure_type24753 = &t13420; /* x212834 */ t13418.s0.tag = STRUCTURE_TYPE24753; t13418.s0.value.structure_type24753 = &t13419; /* x212835 */ t13418.s1.tag = NULL_TYPE; /* x212836 */ t13417.s1.tag = STRUCTURE_TYPE24753; t13417.s1.value.structure_type24753 = &t13418; /* x212837 */ t13416.s1.tag = STRUCTURE_TYPE24753; t13416.s1.value.structure_type24753 = &t13417; /* x212838 */ t13415.s1.tag = STRUCTURE_TYPE24753; t13415.s1.value.structure_type24753 = &t13416; /* x212839 */ t13414.s0.tag = STRUCTURE_TYPE24753; t13414.s0.value.structure_type24753 = &t13415; /* x212840 */ t13426.s0.tag = EXTERNAL_SYMBOL_TYPE; t13426.s0.value.external_symbol_type = q42; /* x212841 */ t13427.s0.tag = EXTERNAL_SYMBOL_TYPE; t13427.s0.value.external_symbol_type = q587; /* x212842 */ t13429.s0.tag = EXTERNAL_SYMBOL_TYPE; t13429.s0.value.external_symbol_type = q579; /* x212843 */ t13430.s0.tag = EXTERNAL_SYMBOL_TYPE; t13430.s0.value.external_symbol_type = q540; /* x212844 */ t13431.s0.tag = EXTERNAL_SYMBOL_TYPE; t13431.s0.value.external_symbol_type = q578; /* x212845 */ t13432.s0.tag = FIXNUM_TYPE; t13432.s0.value.fixnum_type = 2; /* x212846 */ t13434.s0.tag = EXTERNAL_SYMBOL_TYPE; t13434.s0.value.external_symbol_type = q4; /* x212847 */ t13436.s0.tag = EXTERNAL_SYMBOL_TYPE; t13436.s0.value.external_symbol_type = q130; /* x212848 */ t13437.s0.tag = EXTERNAL_SYMBOL_TYPE; t13437.s0.value.external_symbol_type = q703; /* x212849 */ t13439.s0.tag = EXTERNAL_SYMBOL_TYPE; t13439.s0.value.external_symbol_type = q4; /* x212850 */ t13440.s0.tag = EXTERNAL_SYMBOL_TYPE; t13440.s0.value.external_symbol_type = q550; /* x212851 */ t13441.s0.tag = FIXNUM_TYPE; t13441.s0.value.fixnum_type = 4; /* x212852 */ t13441.s1.tag = NULL_TYPE; /* x212853 */ t13440.s1.tag = STRUCTURE_TYPE24753; t13440.s1.value.structure_type24753 = &t13441; /* x212854 */ t13439.s1.tag = STRUCTURE_TYPE24753; t13439.s1.value.structure_type24753 = &t13440; /* x212855 */ t13438.s0.tag = STRUCTURE_TYPE24753; t13438.s0.value.structure_type24753 = &t13439; /* x212856 */ t13438.s1.tag = NULL_TYPE; /* x212857 */ t13437.s1.tag = STRUCTURE_TYPE24753; t13437.s1.value.structure_type24753 = &t13438; /* x212858 */ t13436.s1.tag = STRUCTURE_TYPE24753; t13436.s1.value.structure_type24753 = &t13437; /* x212859 */ t13435.s0.tag = STRUCTURE_TYPE24753; t13435.s0.value.structure_type24753 = &t13436; /* x212860 */ t13442.s0.tag = FIXNUM_TYPE; t13442.s0.value.fixnum_type = 2; /* x212861 */ t13442.s1.tag = NULL_TYPE; /* x212862 */ t13435.s1.tag = STRUCTURE_TYPE24753; t13435.s1.value.structure_type24753 = &t13442; /* x212863 */ t13434.s1.tag = STRUCTURE_TYPE24753; t13434.s1.value.structure_type24753 = &t13435; /* x212864 */ t13433.s0.tag = STRUCTURE_TYPE24753; t13433.s0.value.structure_type24753 = &t13434; /* x212865 */ t13443.s0.tag = EXTERNAL_SYMBOL_TYPE; t13443.s0.value.external_symbol_type = q575; /* x212866 */ t13444.s0.tag = EXTERNAL_SYMBOL_TYPE; t13444.s0.value.external_symbol_type = q576; /* x212867 */ t13445.s0.tag = FIXNUM_TYPE; t13445.s0.value.fixnum_type = 1; /* x212868 */ t13447.s0.tag = EXTERNAL_SYMBOL_TYPE; t13447.s0.value.external_symbol_type = q43; /* x212869 */ t13448.s0.tag = EXTERNAL_SYMBOL_TYPE; t13448.s0.value.external_symbol_type = q528; /* x212870 */ t13449.s0.tag = EXTERNAL_SYMBOL_TYPE; t13449.s0.value.external_symbol_type = q553; /* x212871 */ t13451.s0.tag = EXTERNAL_SYMBOL_TYPE; t13451.s0.value.external_symbol_type = q582; /* x212872 */ t13453.s0.tag = EXTERNAL_SYMBOL_TYPE; t13453.s0.value.external_symbol_type = q583; /* x212873 */ t13454.s0.tag = EXTERNAL_SYMBOL_TYPE; t13454.s0.value.external_symbol_type = q560; /* x212874 */ t13454.s1.tag = NULL_TYPE; /* x212875 */ t13453.s1.tag = STRUCTURE_TYPE24753; t13453.s1.value.structure_type24753 = &t13454; /* x212876 */ t13452.s0.tag = STRUCTURE_TYPE24753; t13452.s0.value.structure_type24753 = &t13453; /* x212877 */ t13452.s1.tag = NULL_TYPE; /* x212878 */ t13451.s1.tag = STRUCTURE_TYPE24753; t13451.s1.value.structure_type24753 = &t13452; /* x212879 */ t13450.s0.tag = STRUCTURE_TYPE24753; t13450.s0.value.structure_type24753 = &t13451; /* x212880 */ t13450.s1.tag = NULL_TYPE; /* x212881 */ t13449.s1.tag = STRUCTURE_TYPE24753; t13449.s1.value.structure_type24753 = &t13450; /* x212882 */ t13448.s1.tag = STRUCTURE_TYPE24753; t13448.s1.value.structure_type24753 = &t13449; /* x212883 */ t13447.s1.tag = STRUCTURE_TYPE24753; t13447.s1.value.structure_type24753 = &t13448; /* x212884 */ t13446.s0.tag = STRUCTURE_TYPE24753; t13446.s0.value.structure_type24753 = &t13447; /* x212885 */ t13456.s0.tag = EXTERNAL_SYMBOL_TYPE; t13456.s0.value.external_symbol_type = q43; /* x212886 */ t13457.s0.tag = EXTERNAL_SYMBOL_TYPE; t13457.s0.value.external_symbol_type = q528; /* x212887 */ t13458.s0.tag = EXTERNAL_SYMBOL_TYPE; t13458.s0.value.external_symbol_type = q551; /* x212888 */ t13460.s0.tag = EXTERNAL_SYMBOL_TYPE; t13460.s0.value.external_symbol_type = q582; /* x212889 */ t13462.s0.tag = EXTERNAL_SYMBOL_TYPE; t13462.s0.value.external_symbol_type = q583; /* x212890 */ t13463.s0.tag = EXTERNAL_SYMBOL_TYPE; t13463.s0.value.external_symbol_type = q555; /* x212891 */ t13463.s1.tag = NULL_TYPE; /* x212892 */ t13462.s1.tag = STRUCTURE_TYPE24753; t13462.s1.value.structure_type24753 = &t13463; /* x212893 */ t13461.s0.tag = STRUCTURE_TYPE24753; t13461.s0.value.structure_type24753 = &t13462; /* x212894 */ t13461.s1.tag = NULL_TYPE; /* x212895 */ t13460.s1.tag = STRUCTURE_TYPE24753; t13460.s1.value.structure_type24753 = &t13461; /* x212896 */ t13459.s0.tag = STRUCTURE_TYPE24753; t13459.s0.value.structure_type24753 = &t13460; /* x212897 */ t13459.s1.tag = NULL_TYPE; /* x212898 */ t13458.s1.tag = STRUCTURE_TYPE24753; t13458.s1.value.structure_type24753 = &t13459; /* x212899 */ t13457.s1.tag = STRUCTURE_TYPE24753; t13457.s1.value.structure_type24753 = &t13458; /* x212900 */ t13456.s1.tag = STRUCTURE_TYPE24753; t13456.s1.value.structure_type24753 = &t13457; /* x212901 */ t13455.s0.tag = STRUCTURE_TYPE24753; t13455.s0.value.structure_type24753 = &t13456; /* x212902 */ t13455.s1.tag = NULL_TYPE; /* x212903 */ t13446.s1.tag = STRUCTURE_TYPE24753; t13446.s1.value.structure_type24753 = &t13455; /* x212904 */ t13445.s1.tag = STRUCTURE_TYPE24753; t13445.s1.value.structure_type24753 = &t13446; /* x212905 */ t13444.s1.tag = STRUCTURE_TYPE24753; t13444.s1.value.structure_type24753 = &t13445; /* x212906 */ t13443.s1.tag = STRUCTURE_TYPE24753; t13443.s1.value.structure_type24753 = &t13444; /* x212907 */ t13433.s1.tag = STRUCTURE_TYPE24753; t13433.s1.value.structure_type24753 = &t13443; /* x212908 */ t13432.s1.tag = STRUCTURE_TYPE24753; t13432.s1.value.structure_type24753 = &t13433; /* x212909 */ t13431.s1.tag = STRUCTURE_TYPE24753; t13431.s1.value.structure_type24753 = &t13432; /* x212910 */ t13430.s1.tag = STRUCTURE_TYPE24753; t13430.s1.value.structure_type24753 = &t13431; /* x212911 */ t13429.s1.tag = STRUCTURE_TYPE24753; t13429.s1.value.structure_type24753 = &t13430; /* x212912 */ t13428.s0.tag = STRUCTURE_TYPE24753; t13428.s0.value.structure_type24753 = &t13429; /* x212913 */ t13428.s1.tag = NULL_TYPE; /* x212914 */ t13427.s1.tag = STRUCTURE_TYPE24753; t13427.s1.value.structure_type24753 = &t13428; /* x212915 */ t13426.s1.tag = STRUCTURE_TYPE24753; t13426.s1.value.structure_type24753 = &t13427; /* x212916 */ t13425.s0.tag = STRUCTURE_TYPE24753; t13425.s0.value.structure_type24753 = &t13426; /* x212917 */ t13465.s0.tag = EXTERNAL_SYMBOL_TYPE; t13465.s0.value.external_symbol_type = q588; /* x212918 */ t13466.s0.tag = EXTERNAL_SYMBOL_TYPE; t13466.s0.value.external_symbol_type = q540; /* x212919 */ t13467.s0.tag = EXTERNAL_SYMBOL_TYPE; t13467.s0.value.external_symbol_type = q587; /* x212920 */ t13469.s0.tag = EXTERNAL_SYMBOL_TYPE; t13469.s0.value.external_symbol_type = q589; /* x212921 */ t13470.s0.tag = EXTERNAL_SYMBOL_TYPE; t13470.s0.value.external_symbol_type = q590; /* x212922 */ t13471.s0.tag = EXTERNAL_SYMBOL_TYPE; t13471.s0.value.external_symbol_type = q591; /* x212923 */ t13472.s0.tag = EXTERNAL_SYMBOL_TYPE; t13472.s0.value.external_symbol_type = q592; /* x212924 */ t13473.s0.tag = EXTERNAL_SYMBOL_TYPE; t13473.s0.value.external_symbol_type = q593; /* x212925 */ t13474.s0.tag = EXTERNAL_SYMBOL_TYPE; t13474.s0.value.external_symbol_type = q594; /* x212926 */ t13474.s1.tag = NULL_TYPE; /* x212927 */ t13473.s1.tag = STRUCTURE_TYPE24753; t13473.s1.value.structure_type24753 = &t13474; /* x212928 */ t13472.s1.tag = STRUCTURE_TYPE24753; t13472.s1.value.structure_type24753 = &t13473; /* x212929 */ t13471.s1.tag = STRUCTURE_TYPE24753; t13471.s1.value.structure_type24753 = &t13472; /* x212930 */ t13470.s1.tag = STRUCTURE_TYPE24753; t13470.s1.value.structure_type24753 = &t13471; /* x212931 */ t13469.s1.tag = STRUCTURE_TYPE24753; t13469.s1.value.structure_type24753 = &t13470; /* x212932 */ t13468.s0.tag = STRUCTURE_TYPE24753; t13468.s0.value.structure_type24753 = &t13469; /* x212933 */ t13468.s1.tag = NULL_TYPE; /* x212934 */ t13467.s1.tag = STRUCTURE_TYPE24753; t13467.s1.value.structure_type24753 = &t13468; /* x212935 */ t13466.s1.tag = STRUCTURE_TYPE24753; t13466.s1.value.structure_type24753 = &t13467; /* x212936 */ t13465.s1.tag = STRUCTURE_TYPE24753; t13465.s1.value.structure_type24753 = &t13466; /* x212937 */ t13464.s0.tag = STRUCTURE_TYPE24753; t13464.s0.value.structure_type24753 = &t13465; /* x212938 */ t13476.s0.tag = EXTERNAL_SYMBOL_TYPE; t13476.s0.value.external_symbol_type = q493; /* x212939 */ t13477.s0.tag = EXTERNAL_SYMBOL_TYPE; t13477.s0.value.external_symbol_type = q702; /* x212940 */ t13479.s0.tag = EXTERNAL_SYMBOL_TYPE; t13479.s0.value.external_symbol_type = q494; /* x212941 */ t13481.s0.tag = EXTERNAL_SYMBOL_TYPE; t13481.s0.value.external_symbol_type = q125; /* x212942 */ t13482.s0.tag = EXTERNAL_SYMBOL_TYPE; t13482.s0.value.external_symbol_type = q702; /* x212943 */ t13482.s1.tag = NULL_TYPE; /* x212944 */ t13481.s1.tag = STRUCTURE_TYPE24753; t13481.s1.value.structure_type24753 = &t13482; /* x212945 */ t13480.s0.tag = STRUCTURE_TYPE24753; t13480.s0.value.structure_type24753 = &t13481; /* x212946 */ t13484.s0.tag = EXTERNAL_SYMBOL_TYPE; t13484.s0.value.external_symbol_type = q42; /* x212947 */ t13485.s0.tag = EXTERNAL_SYMBOL_TYPE; t13485.s0.value.external_symbol_type = q536; /* x212948 */ t13487.s0.tag = EXTERNAL_SYMBOL_TYPE; t13487.s0.value.external_symbol_type = q579; /* x212949 */ t13488.s0.tag = EXTERNAL_SYMBOL_TYPE; t13488.s0.value.external_symbol_type = q540; /* x212950 */ t13489.s0.tag = EXTERNAL_SYMBOL_TYPE; t13489.s0.value.external_symbol_type = q578; /* x212951 */ t13490.s0.tag = FIXNUM_TYPE; t13490.s0.value.fixnum_type = 2; /* x212952 */ t13492.s0.tag = EXTERNAL_SYMBOL_TYPE; t13492.s0.value.external_symbol_type = q4; /* x212953 */ t13494.s0.tag = EXTERNAL_SYMBOL_TYPE; t13494.s0.value.external_symbol_type = q130; /* x212954 */ t13495.s0.tag = EXTERNAL_SYMBOL_TYPE; t13495.s0.value.external_symbol_type = q703; /* x212955 */ t13497.s0.tag = EXTERNAL_SYMBOL_TYPE; t13497.s0.value.external_symbol_type = q4; /* x212956 */ t13498.s0.tag = EXTERNAL_SYMBOL_TYPE; t13498.s0.value.external_symbol_type = q550; /* x212957 */ t13499.s0.tag = FIXNUM_TYPE; t13499.s0.value.fixnum_type = 4; /* x212958 */ t13499.s1.tag = NULL_TYPE; /* x212959 */ t13498.s1.tag = STRUCTURE_TYPE24753; t13498.s1.value.structure_type24753 = &t13499; /* x212960 */ t13497.s1.tag = STRUCTURE_TYPE24753; t13497.s1.value.structure_type24753 = &t13498; /* x212961 */ t13496.s0.tag = STRUCTURE_TYPE24753; t13496.s0.value.structure_type24753 = &t13497; /* x212962 */ t13496.s1.tag = NULL_TYPE; /* x212963 */ t13495.s1.tag = STRUCTURE_TYPE24753; t13495.s1.value.structure_type24753 = &t13496; /* x212964 */ t13494.s1.tag = STRUCTURE_TYPE24753; t13494.s1.value.structure_type24753 = &t13495; /* x212965 */ t13493.s0.tag = STRUCTURE_TYPE24753; t13493.s0.value.structure_type24753 = &t13494; /* x212966 */ t13500.s0.tag = EXTERNAL_SYMBOL_TYPE; t13500.s0.value.external_symbol_type = q576; /* x212967 */ t13501.s0.tag = FIXNUM_TYPE; t13501.s0.value.fixnum_type = 6; /* x212968 */ t13501.s1.tag = NULL_TYPE; /* x212969 */ t13500.s1.tag = STRUCTURE_TYPE24753; t13500.s1.value.structure_type24753 = &t13501; /* x212970 */ t13493.s1.tag = STRUCTURE_TYPE24753; t13493.s1.value.structure_type24753 = &t13500; /* x212971 */ t13492.s1.tag = STRUCTURE_TYPE24753; t13492.s1.value.structure_type24753 = &t13493; /* x212972 */ t13491.s0.tag = STRUCTURE_TYPE24753; t13491.s0.value.structure_type24753 = &t13492; /* x212973 */ t13502.s0.tag = EXTERNAL_SYMBOL_TYPE; t13502.s0.value.external_symbol_type = q575; /* x212974 */ t13503.s0.tag = EXTERNAL_SYMBOL_TYPE; t13503.s0.value.external_symbol_type = q708; /* x212975 */ t13504.s0.tag = FIXNUM_TYPE; t13504.s0.value.fixnum_type = 1; /* x212976 */ t13506.s0.tag = EXTERNAL_SYMBOL_TYPE; t13506.s0.value.external_symbol_type = q43; /* x212977 */ t13507.s0.tag = EXTERNAL_SYMBOL_TYPE; t13507.s0.value.external_symbol_type = q528; /* x212978 */ t13508.s0.tag = EXTERNAL_SYMBOL_TYPE; t13508.s0.value.external_symbol_type = q553; /* x212979 */ t13510.s0.tag = EXTERNAL_SYMBOL_TYPE; t13510.s0.value.external_symbol_type = q582; /* x212980 */ t13512.s0.tag = EXTERNAL_SYMBOL_TYPE; t13512.s0.value.external_symbol_type = q583; /* x212981 */ t13513.s0.tag = EXTERNAL_SYMBOL_TYPE; t13513.s0.value.external_symbol_type = q560; /* x212982 */ t13513.s1.tag = NULL_TYPE; /* x212983 */ t13512.s1.tag = STRUCTURE_TYPE24753; t13512.s1.value.structure_type24753 = &t13513; /* x212984 */ t13511.s0.tag = STRUCTURE_TYPE24753; t13511.s0.value.structure_type24753 = &t13512; /* x212985 */ t13511.s1.tag = NULL_TYPE; /* x212986 */ t13510.s1.tag = STRUCTURE_TYPE24753; t13510.s1.value.structure_type24753 = &t13511; /* x212987 */ t13509.s0.tag = STRUCTURE_TYPE24753; t13509.s0.value.structure_type24753 = &t13510; /* x212988 */ t13509.s1.tag = NULL_TYPE; /* x212989 */ t13508.s1.tag = STRUCTURE_TYPE24753; t13508.s1.value.structure_type24753 = &t13509; /* x212990 */ t13507.s1.tag = STRUCTURE_TYPE24753; t13507.s1.value.structure_type24753 = &t13508; /* x212991 */ t13506.s1.tag = STRUCTURE_TYPE24753; t13506.s1.value.structure_type24753 = &t13507; /* x212992 */ t13505.s0.tag = STRUCTURE_TYPE24753; t13505.s0.value.structure_type24753 = &t13506; /* x212993 */ t13515.s0.tag = EXTERNAL_SYMBOL_TYPE; t13515.s0.value.external_symbol_type = q43; /* x212994 */ t13516.s0.tag = EXTERNAL_SYMBOL_TYPE; t13516.s0.value.external_symbol_type = q528; /* x212995 */ t13517.s0.tag = EXTERNAL_SYMBOL_TYPE; t13517.s0.value.external_symbol_type = q551; /* x212996 */ t13519.s0.tag = EXTERNAL_SYMBOL_TYPE; t13519.s0.value.external_symbol_type = q582; /* x212997 */ t13521.s0.tag = EXTERNAL_SYMBOL_TYPE; t13521.s0.value.external_symbol_type = q583; /* x212998 */ t13522.s0.tag = EXTERNAL_SYMBOL_TYPE; t13522.s0.value.external_symbol_type = q555; /* x212999 */ t13522.s1.tag = NULL_TYPE; /* x213000 */ t13521.s1.tag = STRUCTURE_TYPE24753; t13521.s1.value.structure_type24753 = &t13522; /* x213001 */ t13520.s0.tag = STRUCTURE_TYPE24753; t13520.s0.value.structure_type24753 = &t13521; /* x213002 */ t13520.s1.tag = NULL_TYPE; /* x213003 */ t13519.s1.tag = STRUCTURE_TYPE24753; t13519.s1.value.structure_type24753 = &t13520; /* x213004 */ t13518.s0.tag = STRUCTURE_TYPE24753; t13518.s0.value.structure_type24753 = &t13519; /* x213005 */ t13518.s1.tag = NULL_TYPE; /* x213006 */ t13517.s1.tag = STRUCTURE_TYPE24753; t13517.s1.value.structure_type24753 = &t13518; /* x213007 */ t13516.s1.tag = STRUCTURE_TYPE24753; t13516.s1.value.structure_type24753 = &t13517; /* x213008 */ t13515.s1.tag = STRUCTURE_TYPE24753; t13515.s1.value.structure_type24753 = &t13516; /* x213009 */ t13514.s0.tag = STRUCTURE_TYPE24753; t13514.s0.value.structure_type24753 = &t13515; /* x213010 */ t13514.s1.tag = NULL_TYPE; /* x213011 */ t13505.s1.tag = STRUCTURE_TYPE24753; t13505.s1.value.structure_type24753 = &t13514; /* x213012 */ t13504.s1.tag = STRUCTURE_TYPE24753; t13504.s1.value.structure_type24753 = &t13505; /* x213013 */ t13503.s1.tag = STRUCTURE_TYPE24753; t13503.s1.value.structure_type24753 = &t13504; /* x213014 */ t13502.s1.tag = STRUCTURE_TYPE24753; t13502.s1.value.structure_type24753 = &t13503; /* x213015 */ t13491.s1.tag = STRUCTURE_TYPE24753; t13491.s1.value.structure_type24753 = &t13502; /* x213016 */ t13490.s1.tag = STRUCTURE_TYPE24753; t13490.s1.value.structure_type24753 = &t13491; /* x213017 */ t13489.s1.tag = STRUCTURE_TYPE24753; t13489.s1.value.structure_type24753 = &t13490; /* x213018 */ t13488.s1.tag = STRUCTURE_TYPE24753; t13488.s1.value.structure_type24753 = &t13489; /* x213019 */ t13487.s1.tag = STRUCTURE_TYPE24753; t13487.s1.value.structure_type24753 = &t13488; /* x213020 */ t13486.s0.tag = STRUCTURE_TYPE24753; t13486.s0.value.structure_type24753 = &t13487; /* x213021 */ t13486.s1.tag = NULL_TYPE; /* x213022 */ t13485.s1.tag = STRUCTURE_TYPE24753; t13485.s1.value.structure_type24753 = &t13486; /* x213023 */ t13484.s1.tag = STRUCTURE_TYPE24753; t13484.s1.value.structure_type24753 = &t13485; /* x213024 */ t13483.s0.tag = STRUCTURE_TYPE24753; t13483.s0.value.structure_type24753 = &t13484; /* x213025 */ t13524.s0.tag = EXTERNAL_SYMBOL_TYPE; t13524.s0.value.external_symbol_type = q588; /* x213026 */ t13525.s0.tag = EXTERNAL_SYMBOL_TYPE; t13525.s0.value.external_symbol_type = q540; /* x213027 */ t13526.s0.tag = EXTERNAL_SYMBOL_TYPE; t13526.s0.value.external_symbol_type = q536; /* x213028 */ t13528.s0.tag = EXTERNAL_SYMBOL_TYPE; t13528.s0.value.external_symbol_type = q589; /* x213029 */ t13529.s0.tag = EXTERNAL_SYMBOL_TYPE; t13529.s0.value.external_symbol_type = q590; /* x213030 */ t13530.s0.tag = EXTERNAL_SYMBOL_TYPE; t13530.s0.value.external_symbol_type = q594; /* x213031 */ t13530.s1.tag = NULL_TYPE; /* x213032 */ t13529.s1.tag = STRUCTURE_TYPE24753; t13529.s1.value.structure_type24753 = &t13530; /* x213033 */ t13528.s1.tag = STRUCTURE_TYPE24753; t13528.s1.value.structure_type24753 = &t13529; /* x213034 */ t13527.s0.tag = STRUCTURE_TYPE24753; t13527.s0.value.structure_type24753 = &t13528; /* x213035 */ t13527.s1.tag = NULL_TYPE; /* x213036 */ t13526.s1.tag = STRUCTURE_TYPE24753; t13526.s1.value.structure_type24753 = &t13527; /* x213037 */ t13525.s1.tag = STRUCTURE_TYPE24753; t13525.s1.value.structure_type24753 = &t13526; /* x213038 */ t13524.s1.tag = STRUCTURE_TYPE24753; t13524.s1.value.structure_type24753 = &t13525; /* x213039 */ t13523.s0.tag = STRUCTURE_TYPE24753; t13523.s0.value.structure_type24753 = &t13524; /* x213040 */ t13523.s1.tag = NULL_TYPE; /* x213041 */ t13483.s1.tag = STRUCTURE_TYPE24753; t13483.s1.value.structure_type24753 = &t13523; /* x213042 */ t13480.s1.tag = STRUCTURE_TYPE24753; t13480.s1.value.structure_type24753 = &t13483; /* x213043 */ t13479.s1.tag = STRUCTURE_TYPE24753; t13479.s1.value.structure_type24753 = &t13480; /* x213044 */ t13478.s0.tag = STRUCTURE_TYPE24753; t13478.s0.value.structure_type24753 = &t13479; /* x213045 */ t13532.s0.tag = EXTERNAL_SYMBOL_TYPE; t13532.s0.value.external_symbol_type = q42; /* x213046 */ t13533.s0.tag = EXTERNAL_SYMBOL_TYPE; t13533.s0.value.external_symbol_type = q537; /* x213047 */ t13535.s0.tag = EXTERNAL_SYMBOL_TYPE; t13535.s0.value.external_symbol_type = q579; /* x213048 */ t13536.s0.tag = EXTERNAL_SYMBOL_TYPE; t13536.s0.value.external_symbol_type = q540; /* x213049 */ t13537.s0.tag = EXTERNAL_SYMBOL_TYPE; t13537.s0.value.external_symbol_type = q578; /* x213050 */ t13538.s0.tag = FIXNUM_TYPE; t13538.s0.value.fixnum_type = 2; /* x213051 */ t13540.s0.tag = EXTERNAL_SYMBOL_TYPE; t13540.s0.value.external_symbol_type = q43; /* x213052 */ t13542.s0.tag = EXTERNAL_SYMBOL_TYPE; t13542.s0.value.external_symbol_type = q125; /* x213053 */ t13543.s0.tag = EXTERNAL_SYMBOL_TYPE; t13543.s0.value.external_symbol_type = q702; /* x213054 */ t13543.s1.tag = NULL_TYPE; /* x213055 */ t13542.s1.tag = STRUCTURE_TYPE24753; t13542.s1.value.structure_type24753 = &t13543; /* x213056 */ t13541.s0.tag = STRUCTURE_TYPE24753; t13541.s0.value.structure_type24753 = &t13542; /* x213057 */ t13545.s0.tag = EXTERNAL_SYMBOL_TYPE; t13545.s0.value.external_symbol_type = q4; /* x213058 */ t13547.s0.tag = EXTERNAL_SYMBOL_TYPE; t13547.s0.value.external_symbol_type = q130; /* x213059 */ t13548.s0.tag = EXTERNAL_SYMBOL_TYPE; t13548.s0.value.external_symbol_type = q703; /* x213060 */ t13550.s0.tag = EXTERNAL_SYMBOL_TYPE; t13550.s0.value.external_symbol_type = q4; /* x213061 */ t13551.s0.tag = EXTERNAL_SYMBOL_TYPE; t13551.s0.value.external_symbol_type = q550; /* x213062 */ t13552.s0.tag = FIXNUM_TYPE; t13552.s0.value.fixnum_type = 4; /* x213063 */ t13552.s1.tag = NULL_TYPE; /* x213064 */ t13551.s1.tag = STRUCTURE_TYPE24753; t13551.s1.value.structure_type24753 = &t13552; /* x213065 */ t13550.s1.tag = STRUCTURE_TYPE24753; t13550.s1.value.structure_type24753 = &t13551; /* x213066 */ t13549.s0.tag = STRUCTURE_TYPE24753; t13549.s0.value.structure_type24753 = &t13550; /* x213067 */ t13549.s1.tag = NULL_TYPE; /* x213068 */ t13548.s1.tag = STRUCTURE_TYPE24753; t13548.s1.value.structure_type24753 = &t13549; /* x213069 */ t13547.s1.tag = STRUCTURE_TYPE24753; t13547.s1.value.structure_type24753 = &t13548; /* x213070 */ t13546.s0.tag = STRUCTURE_TYPE24753; t13546.s0.value.structure_type24753 = &t13547; /* x213071 */ t13553.s0.tag = EXTERNAL_SYMBOL_TYPE; t13553.s0.value.external_symbol_type = q576; /* x213072 */ t13554.s0.tag = FIXNUM_TYPE; t13554.s0.value.fixnum_type = 6; /* x213073 */ t13554.s1.tag = NULL_TYPE; /* x213074 */ t13553.s1.tag = STRUCTURE_TYPE24753; t13553.s1.value.structure_type24753 = &t13554; /* x213075 */ t13546.s1.tag = STRUCTURE_TYPE24753; t13546.s1.value.structure_type24753 = &t13553; /* x213076 */ t13545.s1.tag = STRUCTURE_TYPE24753; t13545.s1.value.structure_type24753 = &t13546; /* x213077 */ t13544.s0.tag = STRUCTURE_TYPE24753; t13544.s0.value.structure_type24753 = &t13545; /* x213078 */ t13556.s0.tag = EXTERNAL_SYMBOL_TYPE; t13556.s0.value.external_symbol_type = q4; /* x213079 */ t13558.s0.tag = EXTERNAL_SYMBOL_TYPE; t13558.s0.value.external_symbol_type = q130; /* x213080 */ t13559.s0.tag = EXTERNAL_SYMBOL_TYPE; t13559.s0.value.external_symbol_type = q703; /* x213081 */ t13561.s0.tag = EXTERNAL_SYMBOL_TYPE; t13561.s0.value.external_symbol_type = q4; /* x213082 */ t13562.s0.tag = EXTERNAL_SYMBOL_TYPE; t13562.s0.value.external_symbol_type = q550; /* x213083 */ t13563.s0.tag = FIXNUM_TYPE; t13563.s0.value.fixnum_type = 4; /* x213084 */ t13563.s1.tag = NULL_TYPE; /* x213085 */ t13562.s1.tag = STRUCTURE_TYPE24753; t13562.s1.value.structure_type24753 = &t13563; /* x213086 */ t13561.s1.tag = STRUCTURE_TYPE24753; t13561.s1.value.structure_type24753 = &t13562; /* x213087 */ t13560.s0.tag = STRUCTURE_TYPE24753; t13560.s0.value.structure_type24753 = &t13561; /* x213088 */ t13560.s1.tag = NULL_TYPE; /* x213089 */ t13559.s1.tag = STRUCTURE_TYPE24753; t13559.s1.value.structure_type24753 = &t13560; /* x213090 */ t13558.s1.tag = STRUCTURE_TYPE24753; t13558.s1.value.structure_type24753 = &t13559; /* x213091 */ t13557.s0.tag = STRUCTURE_TYPE24753; t13557.s0.value.structure_type24753 = &t13558; /* x213092 */ t13564.s0.tag = EXTERNAL_SYMBOL_TYPE; t13564.s0.value.external_symbol_type = q576; /* x213093 */ t13565.s0.tag = EXTERNAL_SYMBOL_TYPE; t13565.s0.value.external_symbol_type = q708; /* x213094 */ t13566.s0.tag = FIXNUM_TYPE; t13566.s0.value.fixnum_type = 10; /* x213095 */ t13566.s1.tag = NULL_TYPE; /* x213096 */ t13565.s1.tag = STRUCTURE_TYPE24753; t13565.s1.value.structure_type24753 = &t13566; /* x213097 */ t13564.s1.tag = STRUCTURE_TYPE24753; t13564.s1.value.structure_type24753 = &t13565; /* x213098 */ t13557.s1.tag = STRUCTURE_TYPE24753; t13557.s1.value.structure_type24753 = &t13564; /* x213099 */ t13556.s1.tag = STRUCTURE_TYPE24753; t13556.s1.value.structure_type24753 = &t13557; /* x213100 */ t13555.s0.tag = STRUCTURE_TYPE24753; t13555.s0.value.structure_type24753 = &t13556; /* x213101 */ t13555.s1.tag = NULL_TYPE; /* x213102 */ t13544.s1.tag = STRUCTURE_TYPE24753; t13544.s1.value.structure_type24753 = &t13555; /* x213103 */ t13541.s1.tag = STRUCTURE_TYPE24753; t13541.s1.value.structure_type24753 = &t13544; /* x213104 */ t13540.s1.tag = STRUCTURE_TYPE24753; t13540.s1.value.structure_type24753 = &t13541; /* x213105 */ t13539.s0.tag = STRUCTURE_TYPE24753; t13539.s0.value.structure_type24753 = &t13540; /* x213106 */ t13567.s0.tag = EXTERNAL_SYMBOL_TYPE; t13567.s0.value.external_symbol_type = q575; /* x213107 */ t13568.s0.tag = EXTERNAL_SYMBOL_TYPE; t13568.s0.value.external_symbol_type = q709; /* x213108 */ t13569.s0.tag = FIXNUM_TYPE; t13569.s0.value.fixnum_type = 1; /* x213109 */ t13571.s0.tag = EXTERNAL_SYMBOL_TYPE; t13571.s0.value.external_symbol_type = q43; /* x213110 */ t13572.s0.tag = EXTERNAL_SYMBOL_TYPE; t13572.s0.value.external_symbol_type = q528; /* x213111 */ t13573.s0.tag = EXTERNAL_SYMBOL_TYPE; t13573.s0.value.external_symbol_type = q553; /* x213112 */ t13575.s0.tag = EXTERNAL_SYMBOL_TYPE; t13575.s0.value.external_symbol_type = q582; /* x213113 */ t13577.s0.tag = EXTERNAL_SYMBOL_TYPE; t13577.s0.value.external_symbol_type = q583; /* x213114 */ t13578.s0.tag = EXTERNAL_SYMBOL_TYPE; t13578.s0.value.external_symbol_type = q560; /* x213115 */ t13578.s1.tag = NULL_TYPE; /* x213116 */ t13577.s1.tag = STRUCTURE_TYPE24753; t13577.s1.value.structure_type24753 = &t13578; /* x213117 */ t13576.s0.tag = STRUCTURE_TYPE24753; t13576.s0.value.structure_type24753 = &t13577; /* x213118 */ t13576.s1.tag = NULL_TYPE; /* x213119 */ t13575.s1.tag = STRUCTURE_TYPE24753; t13575.s1.value.structure_type24753 = &t13576; /* x213120 */ t13574.s0.tag = STRUCTURE_TYPE24753; t13574.s0.value.structure_type24753 = &t13575; /* x213121 */ t13574.s1.tag = NULL_TYPE; /* x213122 */ t13573.s1.tag = STRUCTURE_TYPE24753; t13573.s1.value.structure_type24753 = &t13574; /* x213123 */ t13572.s1.tag = STRUCTURE_TYPE24753; t13572.s1.value.structure_type24753 = &t13573; /* x213124 */ t13571.s1.tag = STRUCTURE_TYPE24753; t13571.s1.value.structure_type24753 = &t13572; /* x213125 */ t13570.s0.tag = STRUCTURE_TYPE24753; t13570.s0.value.structure_type24753 = &t13571; /* x213126 */ t13580.s0.tag = EXTERNAL_SYMBOL_TYPE; t13580.s0.value.external_symbol_type = q43; /* x213127 */ t13581.s0.tag = EXTERNAL_SYMBOL_TYPE; t13581.s0.value.external_symbol_type = q528; /* x213128 */ t13582.s0.tag = EXTERNAL_SYMBOL_TYPE; t13582.s0.value.external_symbol_type = q551; /* x213129 */ t13584.s0.tag = EXTERNAL_SYMBOL_TYPE; t13584.s0.value.external_symbol_type = q582; /* x213130 */ t13586.s0.tag = EXTERNAL_SYMBOL_TYPE; t13586.s0.value.external_symbol_type = q583; /* x213131 */ t13587.s0.tag = EXTERNAL_SYMBOL_TYPE; t13587.s0.value.external_symbol_type = q555; /* x213132 */ t13587.s1.tag = NULL_TYPE; /* x213133 */ t13586.s1.tag = STRUCTURE_TYPE24753; t13586.s1.value.structure_type24753 = &t13587; /* x213134 */ t13585.s0.tag = STRUCTURE_TYPE24753; t13585.s0.value.structure_type24753 = &t13586; /* x213135 */ t13585.s1.tag = NULL_TYPE; /* x213136 */ t13584.s1.tag = STRUCTURE_TYPE24753; t13584.s1.value.structure_type24753 = &t13585; /* x213137 */ t13583.s0.tag = STRUCTURE_TYPE24753; t13583.s0.value.structure_type24753 = &t13584; /* x213138 */ t13583.s1.tag = NULL_TYPE; /* x213139 */ t13582.s1.tag = STRUCTURE_TYPE24753; t13582.s1.value.structure_type24753 = &t13583; /* x213140 */ t13581.s1.tag = STRUCTURE_TYPE24753; t13581.s1.value.structure_type24753 = &t13582; /* x213141 */ t13580.s1.tag = STRUCTURE_TYPE24753; t13580.s1.value.structure_type24753 = &t13581; /* x213142 */ t13579.s0.tag = STRUCTURE_TYPE24753; t13579.s0.value.structure_type24753 = &t13580; /* x213143 */ t13579.s1.tag = NULL_TYPE; /* x213144 */ t13570.s1.tag = STRUCTURE_TYPE24753; t13570.s1.value.structure_type24753 = &t13579; /* x213145 */ t13569.s1.tag = STRUCTURE_TYPE24753; t13569.s1.value.structure_type24753 = &t13570; /* x213146 */ t13568.s1.tag = STRUCTURE_TYPE24753; t13568.s1.value.structure_type24753 = &t13569; /* x213147 */ t13567.s1.tag = STRUCTURE_TYPE24753; t13567.s1.value.structure_type24753 = &t13568; /* x213148 */ t13539.s1.tag = STRUCTURE_TYPE24753; t13539.s1.value.structure_type24753 = &t13567; /* x213149 */ t13538.s1.tag = STRUCTURE_TYPE24753; t13538.s1.value.structure_type24753 = &t13539; /* x213150 */ t13537.s1.tag = STRUCTURE_TYPE24753; t13537.s1.value.structure_type24753 = &t13538; /* x213151 */ t13536.s1.tag = STRUCTURE_TYPE24753; t13536.s1.value.structure_type24753 = &t13537; /* x213152 */ t13535.s1.tag = STRUCTURE_TYPE24753; t13535.s1.value.structure_type24753 = &t13536; /* x213153 */ t13534.s0.tag = STRUCTURE_TYPE24753; t13534.s0.value.structure_type24753 = &t13535; /* x213154 */ t13534.s1.tag = NULL_TYPE; /* x213155 */ t13533.s1.tag = STRUCTURE_TYPE24753; t13533.s1.value.structure_type24753 = &t13534; /* x213156 */ t13532.s1.tag = STRUCTURE_TYPE24753; t13532.s1.value.structure_type24753 = &t13533; /* x213157 */ t13531.s0.tag = STRUCTURE_TYPE24753; t13531.s0.value.structure_type24753 = &t13532; /* x213158 */ t13589.s0.tag = EXTERNAL_SYMBOL_TYPE; t13589.s0.value.external_symbol_type = q588; /* x213159 */ t13590.s0.tag = EXTERNAL_SYMBOL_TYPE; t13590.s0.value.external_symbol_type = q540; /* x213160 */ t13591.s0.tag = EXTERNAL_SYMBOL_TYPE; t13591.s0.value.external_symbol_type = q537; /* x213161 */ t13593.s0.tag = EXTERNAL_SYMBOL_TYPE; t13593.s0.value.external_symbol_type = q589; /* x213162 */ t13594.s0.tag = EXTERNAL_SYMBOL_TYPE; t13594.s0.value.external_symbol_type = q590; /* x213163 */ t13595.s0.tag = EXTERNAL_SYMBOL_TYPE; t13595.s0.value.external_symbol_type = q594; /* x213164 */ t13595.s1.tag = NULL_TYPE; /* x213165 */ t13594.s1.tag = STRUCTURE_TYPE24753; t13594.s1.value.structure_type24753 = &t13595; /* x213166 */ t13593.s1.tag = STRUCTURE_TYPE24753; t13593.s1.value.structure_type24753 = &t13594; /* x213167 */ t13592.s0.tag = STRUCTURE_TYPE24753; t13592.s0.value.structure_type24753 = &t13593; /* x213168 */ t13592.s1.tag = NULL_TYPE; /* x213169 */ t13591.s1.tag = STRUCTURE_TYPE24753; t13591.s1.value.structure_type24753 = &t13592; /* x213170 */ t13590.s1.tag = STRUCTURE_TYPE24753; t13590.s1.value.structure_type24753 = &t13591; /* x213171 */ t13589.s1.tag = STRUCTURE_TYPE24753; t13589.s1.value.structure_type24753 = &t13590; /* x213172 */ t13588.s0.tag = STRUCTURE_TYPE24753; t13588.s0.value.structure_type24753 = &t13589; /* x213173 */ t13588.s1.tag = NULL_TYPE; /* x213174 */ t13531.s1.tag = STRUCTURE_TYPE24753; t13531.s1.value.structure_type24753 = &t13588; /* x213175 */ t13478.s1.tag = STRUCTURE_TYPE24753; t13478.s1.value.structure_type24753 = &t13531; /* x213176 */ t13477.s1.tag = STRUCTURE_TYPE24753; t13477.s1.value.structure_type24753 = &t13478; /* x213177 */ t13476.s1.tag = STRUCTURE_TYPE24753; t13476.s1.value.structure_type24753 = &t13477; /* x213178 */ t13475.s0.tag = STRUCTURE_TYPE24753; t13475.s0.value.structure_type24753 = &t13476; /* x213179 */ t13597.s0.tag = EXTERNAL_SYMBOL_TYPE; t13597.s0.value.external_symbol_type = q42; /* x213180 */ t13598.s0.tag = EXTERNAL_SYMBOL_TYPE; t13598.s0.value.external_symbol_type = q538; /* x213181 */ t13600.s0.tag = EXTERNAL_SYMBOL_TYPE; t13600.s0.value.external_symbol_type = q579; /* x213182 */ t13601.s0.tag = EXTERNAL_SYMBOL_TYPE; t13601.s0.value.external_symbol_type = q540; /* x213183 */ t13602.s0.tag = EXTERNAL_SYMBOL_TYPE; t13602.s0.value.external_symbol_type = q578; /* x213184 */ t13603.s0.tag = FIXNUM_TYPE; t13603.s0.value.fixnum_type = 2; /* x213185 */ t13605.s0.tag = EXTERNAL_SYMBOL_TYPE; t13605.s0.value.external_symbol_type = q4; /* x213186 */ t13607.s0.tag = EXTERNAL_SYMBOL_TYPE; t13607.s0.value.external_symbol_type = q130; /* x213187 */ t13608.s0.tag = EXTERNAL_SYMBOL_TYPE; t13608.s0.value.external_symbol_type = q703; /* x213188 */ t13610.s0.tag = EXTERNAL_SYMBOL_TYPE; t13610.s0.value.external_symbol_type = q4; /* x213189 */ t13611.s0.tag = EXTERNAL_SYMBOL_TYPE; t13611.s0.value.external_symbol_type = q550; /* x213190 */ t13612.s0.tag = FIXNUM_TYPE; t13612.s0.value.fixnum_type = 4; /* x213191 */ t13612.s1.tag = NULL_TYPE; /* x213192 */ t13611.s1.tag = STRUCTURE_TYPE24753; t13611.s1.value.structure_type24753 = &t13612; /* x213193 */ t13610.s1.tag = STRUCTURE_TYPE24753; t13610.s1.value.structure_type24753 = &t13611; /* x213194 */ t13609.s0.tag = STRUCTURE_TYPE24753; t13609.s0.value.structure_type24753 = &t13610; /* x213195 */ t13609.s1.tag = NULL_TYPE; /* x213196 */ t13608.s1.tag = STRUCTURE_TYPE24753; t13608.s1.value.structure_type24753 = &t13609; /* x213197 */ t13607.s1.tag = STRUCTURE_TYPE24753; t13607.s1.value.structure_type24753 = &t13608; /* x213198 */ t13606.s0.tag = STRUCTURE_TYPE24753; t13606.s0.value.structure_type24753 = &t13607; /* x213199 */ t13613.s0.tag = EXTERNAL_SYMBOL_TYPE; t13613.s0.value.external_symbol_type = q576; /* x213200 */ t13615.s0.tag = EXTERNAL_SYMBOL_TYPE; t13615.s0.value.external_symbol_type = q43; /* x213201 */ t13616.s0.tag = EXTERNAL_SYMBOL_TYPE; t13616.s0.value.external_symbol_type = q702; /* x213202 */ t13618.s0.tag = EXTERNAL_SYMBOL_TYPE; t13618.s0.value.external_symbol_type = q43; /* x213203 */ t13620.s0.tag = EXTERNAL_SYMBOL_TYPE; t13620.s0.value.external_symbol_type = q125; /* x213204 */ t13621.s0.tag = EXTERNAL_SYMBOL_TYPE; t13621.s0.value.external_symbol_type = q702; /* x213205 */ t13621.s1.tag = NULL_TYPE; /* x213206 */ t13620.s1.tag = STRUCTURE_TYPE24753; t13620.s1.value.structure_type24753 = &t13621; /* x213207 */ t13619.s0.tag = STRUCTURE_TYPE24753; t13619.s0.value.structure_type24753 = &t13620; /* x213208 */ t13623.s0.tag = EXTERNAL_SYMBOL_TYPE; t13623.s0.value.external_symbol_type = q4; /* x213209 */ t13624.s0.tag = EXTERNAL_SYMBOL_TYPE; t13624.s0.value.external_symbol_type = q709; /* x213210 */ t13625.s0.tag = FIXNUM_TYPE; t13625.s0.value.fixnum_type = 10; /* x213211 */ t13625.s1.tag = NULL_TYPE; /* x213212 */ t13624.s1.tag = STRUCTURE_TYPE24753; t13624.s1.value.structure_type24753 = &t13625; /* x213213 */ t13623.s1.tag = STRUCTURE_TYPE24753; t13623.s1.value.structure_type24753 = &t13624; /* x213214 */ t13622.s0.tag = STRUCTURE_TYPE24753; t13622.s0.value.structure_type24753 = &t13623; /* x213215 */ t13627.s0.tag = EXTERNAL_SYMBOL_TYPE; t13627.s0.value.external_symbol_type = q4; /* x213216 */ t13628.s0.tag = EXTERNAL_SYMBOL_TYPE; t13628.s0.value.external_symbol_type = q708; /* x213217 */ t13629.s0.tag = EXTERNAL_SYMBOL_TYPE; t13629.s0.value.external_symbol_type = q709; /* x213218 */ t13630.s0.tag = FIXNUM_TYPE; t13630.s0.value.fixnum_type = 14; /* x213219 */ t13630.s1.tag = NULL_TYPE; /* x213220 */ t13629.s1.tag = STRUCTURE_TYPE24753; t13629.s1.value.structure_type24753 = &t13630; /* x213221 */ t13628.s1.tag = STRUCTURE_TYPE24753; t13628.s1.value.structure_type24753 = &t13629; /* x213222 */ t13627.s1.tag = STRUCTURE_TYPE24753; t13627.s1.value.structure_type24753 = &t13628; /* x213223 */ t13626.s0.tag = STRUCTURE_TYPE24753; t13626.s0.value.structure_type24753 = &t13627; /* x213224 */ t13626.s1.tag = NULL_TYPE; /* x213225 */ t13622.s1.tag = STRUCTURE_TYPE24753; t13622.s1.value.structure_type24753 = &t13626; /* x213226 */ t13619.s1.tag = STRUCTURE_TYPE24753; t13619.s1.value.structure_type24753 = &t13622; /* x213227 */ t13618.s1.tag = STRUCTURE_TYPE24753; t13618.s1.value.structure_type24753 = &t13619; /* x213228 */ t13617.s0.tag = STRUCTURE_TYPE24753; t13617.s0.value.structure_type24753 = &t13618; /* x213229 */ t13631.s0.tag = FIXNUM_TYPE; t13631.s0.value.fixnum_type = 6; /* x213230 */ t13631.s1.tag = NULL_TYPE; /* x213231 */ t13617.s1.tag = STRUCTURE_TYPE24753; t13617.s1.value.structure_type24753 = &t13631; /* x213232 */ t13616.s1.tag = STRUCTURE_TYPE24753; t13616.s1.value.structure_type24753 = &t13617; /* x213233 */ t13615.s1.tag = STRUCTURE_TYPE24753; t13615.s1.value.structure_type24753 = &t13616; /* x213234 */ t13614.s0.tag = STRUCTURE_TYPE24753; t13614.s0.value.structure_type24753 = &t13615; /* x213235 */ t13614.s1.tag = NULL_TYPE; /* x213236 */ t13613.s1.tag = STRUCTURE_TYPE24753; t13613.s1.value.structure_type24753 = &t13614; /* x213237 */ t13606.s1.tag = STRUCTURE_TYPE24753; t13606.s1.value.structure_type24753 = &t13613; /* x213238 */ t13605.s1.tag = STRUCTURE_TYPE24753; t13605.s1.value.structure_type24753 = &t13606; /* x213239 */ t13604.s0.tag = STRUCTURE_TYPE24753; t13604.s0.value.structure_type24753 = &t13605; /* x213240 */ t13632.s0.tag = EXTERNAL_SYMBOL_TYPE; t13632.s0.value.external_symbol_type = q710; /* x213241 */ t13633.s0.tag = EXTERNAL_SYMBOL_TYPE; t13633.s0.value.external_symbol_type = q577; /* x213242 */ t13634.s0.tag = FIXNUM_TYPE; t13634.s0.value.fixnum_type = 1; /* x213243 */ t13636.s0.tag = EXTERNAL_SYMBOL_TYPE; t13636.s0.value.external_symbol_type = q43; /* x213244 */ t13637.s0.tag = EXTERNAL_SYMBOL_TYPE; t13637.s0.value.external_symbol_type = q528; /* x213245 */ t13638.s0.tag = EXTERNAL_SYMBOL_TYPE; t13638.s0.value.external_symbol_type = q553; /* x213246 */ t13640.s0.tag = EXTERNAL_SYMBOL_TYPE; t13640.s0.value.external_symbol_type = q582; /* x213247 */ t13642.s0.tag = EXTERNAL_SYMBOL_TYPE; t13642.s0.value.external_symbol_type = q583; /* x213248 */ t13643.s0.tag = EXTERNAL_SYMBOL_TYPE; t13643.s0.value.external_symbol_type = q560; /* x213249 */ t13643.s1.tag = NULL_TYPE; /* x213250 */ t13642.s1.tag = STRUCTURE_TYPE24753; t13642.s1.value.structure_type24753 = &t13643; /* x213251 */ t13641.s0.tag = STRUCTURE_TYPE24753; t13641.s0.value.structure_type24753 = &t13642; /* x213252 */ t13641.s1.tag = NULL_TYPE; /* x213253 */ t13640.s1.tag = STRUCTURE_TYPE24753; t13640.s1.value.structure_type24753 = &t13641; /* x213254 */ t13639.s0.tag = STRUCTURE_TYPE24753; t13639.s0.value.structure_type24753 = &t13640; /* x213255 */ t13639.s1.tag = NULL_TYPE; /* x213256 */ t13638.s1.tag = STRUCTURE_TYPE24753; t13638.s1.value.structure_type24753 = &t13639; /* x213257 */ t13637.s1.tag = STRUCTURE_TYPE24753; t13637.s1.value.structure_type24753 = &t13638; /* x213258 */ t13636.s1.tag = STRUCTURE_TYPE24753; t13636.s1.value.structure_type24753 = &t13637; /* x213259 */ t13635.s0.tag = STRUCTURE_TYPE24753; t13635.s0.value.structure_type24753 = &t13636; /* x213260 */ t13645.s0.tag = EXTERNAL_SYMBOL_TYPE; t13645.s0.value.external_symbol_type = q43; /* x213261 */ t13646.s0.tag = EXTERNAL_SYMBOL_TYPE; t13646.s0.value.external_symbol_type = q528; /* x213262 */ t13647.s0.tag = EXTERNAL_SYMBOL_TYPE; t13647.s0.value.external_symbol_type = q551; /* x213263 */ t13649.s0.tag = EXTERNAL_SYMBOL_TYPE; t13649.s0.value.external_symbol_type = q582; /* x213264 */ t13651.s0.tag = EXTERNAL_SYMBOL_TYPE; t13651.s0.value.external_symbol_type = q583; /* x213265 */ t13652.s0.tag = EXTERNAL_SYMBOL_TYPE; t13652.s0.value.external_symbol_type = q555; /* x213266 */ t13652.s1.tag = NULL_TYPE; /* x213267 */ t13651.s1.tag = STRUCTURE_TYPE24753; t13651.s1.value.structure_type24753 = &t13652; /* x213268 */ t13650.s0.tag = STRUCTURE_TYPE24753; t13650.s0.value.structure_type24753 = &t13651; /* x213269 */ t13650.s1.tag = NULL_TYPE; /* x213270 */ t13649.s1.tag = STRUCTURE_TYPE24753; t13649.s1.value.structure_type24753 = &t13650; /* x213271 */ t13648.s0.tag = STRUCTURE_TYPE24753; t13648.s0.value.structure_type24753 = &t13649; /* x213272 */ t13648.s1.tag = NULL_TYPE; /* x213273 */ t13647.s1.tag = STRUCTURE_TYPE24753; t13647.s1.value.structure_type24753 = &t13648; /* x213274 */ t13646.s1.tag = STRUCTURE_TYPE24753; t13646.s1.value.structure_type24753 = &t13647; /* x213275 */ t13645.s1.tag = STRUCTURE_TYPE24753; t13645.s1.value.structure_type24753 = &t13646; /* x213276 */ t13644.s0.tag = STRUCTURE_TYPE24753; t13644.s0.value.structure_type24753 = &t13645; /* x213277 */ t13644.s1.tag = NULL_TYPE; /* x213278 */ t13635.s1.tag = STRUCTURE_TYPE24753; t13635.s1.value.structure_type24753 = &t13644; /* x213279 */ t13634.s1.tag = STRUCTURE_TYPE24753; t13634.s1.value.structure_type24753 = &t13635; /* x213280 */ t13633.s1.tag = STRUCTURE_TYPE24753; t13633.s1.value.structure_type24753 = &t13634; /* x213281 */ t13632.s1.tag = STRUCTURE_TYPE24753; t13632.s1.value.structure_type24753 = &t13633; /* x213282 */ t13604.s1.tag = STRUCTURE_TYPE24753; t13604.s1.value.structure_type24753 = &t13632; /* x213283 */ t13603.s1.tag = STRUCTURE_TYPE24753; t13603.s1.value.structure_type24753 = &t13604; /* x213284 */ t13602.s1.tag = STRUCTURE_TYPE24753; t13602.s1.value.structure_type24753 = &t13603; /* x213285 */ t13601.s1.tag = STRUCTURE_TYPE24753; t13601.s1.value.structure_type24753 = &t13602; /* x213286 */ t13600.s1.tag = STRUCTURE_TYPE24753; t13600.s1.value.structure_type24753 = &t13601; /* x213287 */ t13599.s0.tag = STRUCTURE_TYPE24753; t13599.s0.value.structure_type24753 = &t13600; /* x213288 */ t13599.s1.tag = NULL_TYPE; /* x213289 */ t13598.s1.tag = STRUCTURE_TYPE24753; t13598.s1.value.structure_type24753 = &t13599; /* x213290 */ t13597.s1.tag = STRUCTURE_TYPE24753; t13597.s1.value.structure_type24753 = &t13598; /* x213291 */ t13596.s0.tag = STRUCTURE_TYPE24753; t13596.s0.value.structure_type24753 = &t13597; /* x213292 */ t13654.s0.tag = EXTERNAL_SYMBOL_TYPE; t13654.s0.value.external_symbol_type = q588; /* x213293 */ t13655.s0.tag = EXTERNAL_SYMBOL_TYPE; t13655.s0.value.external_symbol_type = q540; /* x213294 */ t13656.s0.tag = EXTERNAL_SYMBOL_TYPE; t13656.s0.value.external_symbol_type = q538; /* x213295 */ t13658.s0.tag = EXTERNAL_SYMBOL_TYPE; t13658.s0.value.external_symbol_type = q589; /* x213296 */ t13659.s0.tag = EXTERNAL_SYMBOL_TYPE; t13659.s0.value.external_symbol_type = q590; /* x213297 */ t13660.s0.tag = EXTERNAL_SYMBOL_TYPE; t13660.s0.value.external_symbol_type = q594; /* x213298 */ t13660.s1.tag = NULL_TYPE; /* x213299 */ t13659.s1.tag = STRUCTURE_TYPE24753; t13659.s1.value.structure_type24753 = &t13660; /* x213300 */ t13658.s1.tag = STRUCTURE_TYPE24753; t13658.s1.value.structure_type24753 = &t13659; /* x213301 */ t13657.s0.tag = STRUCTURE_TYPE24753; t13657.s0.value.structure_type24753 = &t13658; /* x213302 */ t13657.s1.tag = NULL_TYPE; /* x213303 */ t13656.s1.tag = STRUCTURE_TYPE24753; t13656.s1.value.structure_type24753 = &t13657; /* x213304 */ t13655.s1.tag = STRUCTURE_TYPE24753; t13655.s1.value.structure_type24753 = &t13656; /* x213305 */ t13654.s1.tag = STRUCTURE_TYPE24753; t13654.s1.value.structure_type24753 = &t13655; /* x213306 */ t13653.s0.tag = STRUCTURE_TYPE24753; t13653.s0.value.structure_type24753 = &t13654; /* x213307 */ t13662.s0.tag = EXTERNAL_SYMBOL_TYPE; t13662.s0.value.external_symbol_type = q42; /* x213308 */ t13663.s0.tag = EXTERNAL_SYMBOL_TYPE; t13663.s0.value.external_symbol_type = q539; /* x213309 */ t13665.s0.tag = EXTERNAL_SYMBOL_TYPE; t13665.s0.value.external_symbol_type = q579; /* x213310 */ t13666.s0.tag = EXTERNAL_SYMBOL_TYPE; t13666.s0.value.external_symbol_type = q540; /* x213311 */ t13667.s0.tag = EXTERNAL_SYMBOL_TYPE; t13667.s0.value.external_symbol_type = q578; /* x213312 */ t13669.s0.tag = EXTERNAL_SYMBOL_TYPE; t13669.s0.value.external_symbol_type = q4; /* x213313 */ t13670.s0.tag = EXTERNAL_SYMBOL_TYPE; t13670.s0.value.external_symbol_type = q710; /* x213314 */ t13671.s0.tag = FIXNUM_TYPE; t13671.s0.value.fixnum_type = 6; /* x213315 */ t13671.s1.tag = NULL_TYPE; /* x213316 */ t13670.s1.tag = STRUCTURE_TYPE24753; t13670.s1.value.structure_type24753 = &t13671; /* x213317 */ t13669.s1.tag = STRUCTURE_TYPE24753; t13669.s1.value.structure_type24753 = &t13670; /* x213318 */ t13668.s0.tag = STRUCTURE_TYPE24753; t13668.s0.value.structure_type24753 = &t13669; /* x213319 */ t13673.s0.tag = EXTERNAL_SYMBOL_TYPE; t13673.s0.value.external_symbol_type = q4; /* x213320 */ t13675.s0.tag = EXTERNAL_SYMBOL_TYPE; t13675.s0.value.external_symbol_type = q130; /* x213321 */ t13676.s0.tag = EXTERNAL_SYMBOL_TYPE; t13676.s0.value.external_symbol_type = q703; /* x213322 */ t13678.s0.tag = EXTERNAL_SYMBOL_TYPE; t13678.s0.value.external_symbol_type = q4; /* x213323 */ t13679.s0.tag = EXTERNAL_SYMBOL_TYPE; t13679.s0.value.external_symbol_type = q550; /* x213324 */ t13680.s0.tag = FIXNUM_TYPE; t13680.s0.value.fixnum_type = 4; /* x213325 */ t13680.s1.tag = NULL_TYPE; /* x213326 */ t13679.s1.tag = STRUCTURE_TYPE24753; t13679.s1.value.structure_type24753 = &t13680; /* x213327 */ t13678.s1.tag = STRUCTURE_TYPE24753; t13678.s1.value.structure_type24753 = &t13679; /* x213328 */ t13677.s0.tag = STRUCTURE_TYPE24753; t13677.s0.value.structure_type24753 = &t13678; /* x213329 */ t13677.s1.tag = NULL_TYPE; /* x213330 */ t13676.s1.tag = STRUCTURE_TYPE24753; t13676.s1.value.structure_type24753 = &t13677; /* x213331 */ t13675.s1.tag = STRUCTURE_TYPE24753; t13675.s1.value.structure_type24753 = &t13676; /* x213332 */ t13674.s0.tag = STRUCTURE_TYPE24753; t13674.s0.value.structure_type24753 = &t13675; /* x213333 */ t13681.s0.tag = EXTERNAL_SYMBOL_TYPE; t13681.s0.value.external_symbol_type = q576; /* x213334 */ t13683.s0.tag = EXTERNAL_SYMBOL_TYPE; t13683.s0.value.external_symbol_type = q43; /* x213335 */ t13684.s0.tag = EXTERNAL_SYMBOL_TYPE; t13684.s0.value.external_symbol_type = q702; /* x213336 */ t13686.s0.tag = EXTERNAL_SYMBOL_TYPE; t13686.s0.value.external_symbol_type = q43; /* x213337 */ t13688.s0.tag = EXTERNAL_SYMBOL_TYPE; t13688.s0.value.external_symbol_type = q125; /* x213338 */ t13689.s0.tag = EXTERNAL_SYMBOL_TYPE; t13689.s0.value.external_symbol_type = q702; /* x213339 */ t13689.s1.tag = NULL_TYPE; /* x213340 */ t13688.s1.tag = STRUCTURE_TYPE24753; t13688.s1.value.structure_type24753 = &t13689; /* x213341 */ t13687.s0.tag = STRUCTURE_TYPE24753; t13687.s0.value.structure_type24753 = &t13688; /* x213342 */ t13691.s0.tag = EXTERNAL_SYMBOL_TYPE; t13691.s0.value.external_symbol_type = q4; /* x213343 */ t13692.s0.tag = EXTERNAL_SYMBOL_TYPE; t13692.s0.value.external_symbol_type = q709; /* x213344 */ t13693.s0.tag = FIXNUM_TYPE; t13693.s0.value.fixnum_type = 10; /* x213345 */ t13693.s1.tag = NULL_TYPE; /* x213346 */ t13692.s1.tag = STRUCTURE_TYPE24753; t13692.s1.value.structure_type24753 = &t13693; /* x213347 */ t13691.s1.tag = STRUCTURE_TYPE24753; t13691.s1.value.structure_type24753 = &t13692; /* x213348 */ t13690.s0.tag = STRUCTURE_TYPE24753; t13690.s0.value.structure_type24753 = &t13691; /* x213349 */ t13695.s0.tag = EXTERNAL_SYMBOL_TYPE; t13695.s0.value.external_symbol_type = q4; /* x213350 */ t13696.s0.tag = EXTERNAL_SYMBOL_TYPE; t13696.s0.value.external_symbol_type = q708; /* x213351 */ t13697.s0.tag = EXTERNAL_SYMBOL_TYPE; t13697.s0.value.external_symbol_type = q709; /* x213352 */ t13698.s0.tag = FIXNUM_TYPE; t13698.s0.value.fixnum_type = 14; /* x213353 */ t13698.s1.tag = NULL_TYPE; /* x213354 */ t13697.s1.tag = STRUCTURE_TYPE24753; t13697.s1.value.structure_type24753 = &t13698; /* x213355 */ t13696.s1.tag = STRUCTURE_TYPE24753; t13696.s1.value.structure_type24753 = &t13697; /* x213356 */ t13695.s1.tag = STRUCTURE_TYPE24753; t13695.s1.value.structure_type24753 = &t13696; /* x213357 */ t13694.s0.tag = STRUCTURE_TYPE24753; t13694.s0.value.structure_type24753 = &t13695; /* x213358 */ t13694.s1.tag = NULL_TYPE; /* x213359 */ t13690.s1.tag = STRUCTURE_TYPE24753; t13690.s1.value.structure_type24753 = &t13694; /* x213360 */ t13687.s1.tag = STRUCTURE_TYPE24753; t13687.s1.value.structure_type24753 = &t13690; /* x213361 */ t13686.s1.tag = STRUCTURE_TYPE24753; t13686.s1.value.structure_type24753 = &t13687; /* x213362 */ t13685.s0.tag = STRUCTURE_TYPE24753; t13685.s0.value.structure_type24753 = &t13686; /* x213363 */ t13699.s0.tag = FIXNUM_TYPE; t13699.s0.value.fixnum_type = 6; /* x213364 */ t13699.s1.tag = NULL_TYPE; /* x213365 */ t13685.s1.tag = STRUCTURE_TYPE24753; t13685.s1.value.structure_type24753 = &t13699; /* x213366 */ t13684.s1.tag = STRUCTURE_TYPE24753; t13684.s1.value.structure_type24753 = &t13685; /* x213367 */ t13683.s1.tag = STRUCTURE_TYPE24753; t13683.s1.value.structure_type24753 = &t13684; /* x213368 */ t13682.s0.tag = STRUCTURE_TYPE24753; t13682.s0.value.structure_type24753 = &t13683; /* x213369 */ t13682.s1.tag = NULL_TYPE; /* x213370 */ t13681.s1.tag = STRUCTURE_TYPE24753; t13681.s1.value.structure_type24753 = &t13682; /* x213371 */ t13674.s1.tag = STRUCTURE_TYPE24753; t13674.s1.value.structure_type24753 = &t13681; /* x213372 */ t13673.s1.tag = STRUCTURE_TYPE24753; t13673.s1.value.structure_type24753 = &t13674; /* x213373 */ t13672.s0.tag = STRUCTURE_TYPE24753; t13672.s0.value.structure_type24753 = &t13673; /* x213374 */ t13701.s0.tag = EXTERNAL_SYMBOL_TYPE; t13701.s0.value.external_symbol_type = q2; /* x213375 */ t13702.s0.tag = EXTERNAL_SYMBOL_TYPE; t13702.s0.value.external_symbol_type = q706; /* x213376 */ t13703.s0.tag = EXTERNAL_SYMBOL_TYPE; t13703.s0.value.external_symbol_type = q710; /* x213377 */ t13704.s0.tag = FIXNUM_TYPE; t13704.s0.value.fixnum_type = 10; /* x213378 */ t13704.s1.tag = NULL_TYPE; /* x213379 */ t13703.s1.tag = STRUCTURE_TYPE24753; t13703.s1.value.structure_type24753 = &t13704; /* x213380 */ t13702.s1.tag = STRUCTURE_TYPE24753; t13702.s1.value.structure_type24753 = &t13703; /* x213381 */ t13701.s1.tag = STRUCTURE_TYPE24753; t13701.s1.value.structure_type24753 = &t13702; /* x213382 */ t13700.s0.tag = STRUCTURE_TYPE24753; t13700.s0.value.structure_type24753 = &t13701; /* x213383 */ t13705.s0.tag = EXTERNAL_SYMBOL_TYPE; t13705.s0.value.external_symbol_type = q577; /* x213384 */ t13706.s0.tag = FIXNUM_TYPE; t13706.s0.value.fixnum_type = 1; /* x213385 */ t13708.s0.tag = EXTERNAL_SYMBOL_TYPE; t13708.s0.value.external_symbol_type = q43; /* x213386 */ t13709.s0.tag = EXTERNAL_SYMBOL_TYPE; t13709.s0.value.external_symbol_type = q528; /* x213387 */ t13710.s0.tag = EXTERNAL_SYMBOL_TYPE; t13710.s0.value.external_symbol_type = q553; /* x213388 */ t13712.s0.tag = EXTERNAL_SYMBOL_TYPE; t13712.s0.value.external_symbol_type = q582; /* x213389 */ t13714.s0.tag = EXTERNAL_SYMBOL_TYPE; t13714.s0.value.external_symbol_type = q583; /* x213390 */ t13715.s0.tag = EXTERNAL_SYMBOL_TYPE; t13715.s0.value.external_symbol_type = q560; /* x213391 */ t13715.s1.tag = NULL_TYPE; /* x213392 */ t13714.s1.tag = STRUCTURE_TYPE24753; t13714.s1.value.structure_type24753 = &t13715; /* x213393 */ t13713.s0.tag = STRUCTURE_TYPE24753; t13713.s0.value.structure_type24753 = &t13714; /* x213394 */ t13713.s1.tag = NULL_TYPE; /* x213395 */ t13712.s1.tag = STRUCTURE_TYPE24753; t13712.s1.value.structure_type24753 = &t13713; /* x213396 */ t13711.s0.tag = STRUCTURE_TYPE24753; t13711.s0.value.structure_type24753 = &t13712; /* x213397 */ t13711.s1.tag = NULL_TYPE; /* x213398 */ t13710.s1.tag = STRUCTURE_TYPE24753; t13710.s1.value.structure_type24753 = &t13711; /* x213399 */ t13709.s1.tag = STRUCTURE_TYPE24753; t13709.s1.value.structure_type24753 = &t13710; /* x213400 */ t13708.s1.tag = STRUCTURE_TYPE24753; t13708.s1.value.structure_type24753 = &t13709; /* x213401 */ t13707.s0.tag = STRUCTURE_TYPE24753; t13707.s0.value.structure_type24753 = &t13708; /* x213402 */ t13717.s0.tag = EXTERNAL_SYMBOL_TYPE; t13717.s0.value.external_symbol_type = q43; /* x213403 */ t13718.s0.tag = EXTERNAL_SYMBOL_TYPE; t13718.s0.value.external_symbol_type = q528; /* x213404 */ t13719.s0.tag = EXTERNAL_SYMBOL_TYPE; t13719.s0.value.external_symbol_type = q551; /* x213405 */ t13721.s0.tag = EXTERNAL_SYMBOL_TYPE; t13721.s0.value.external_symbol_type = q582; /* x213406 */ t13723.s0.tag = EXTERNAL_SYMBOL_TYPE; t13723.s0.value.external_symbol_type = q583; /* x213407 */ t13724.s0.tag = EXTERNAL_SYMBOL_TYPE; t13724.s0.value.external_symbol_type = q555; /* x213408 */ t13724.s1.tag = NULL_TYPE; /* x213409 */ t13723.s1.tag = STRUCTURE_TYPE24753; t13723.s1.value.structure_type24753 = &t13724; /* x213410 */ t13722.s0.tag = STRUCTURE_TYPE24753; t13722.s0.value.structure_type24753 = &t13723; /* x213411 */ t13722.s1.tag = NULL_TYPE; /* x213412 */ t13721.s1.tag = STRUCTURE_TYPE24753; t13721.s1.value.structure_type24753 = &t13722; /* x213413 */ t13720.s0.tag = STRUCTURE_TYPE24753; t13720.s0.value.structure_type24753 = &t13721; /* x213414 */ t13720.s1.tag = NULL_TYPE; /* x213415 */ t13719.s1.tag = STRUCTURE_TYPE24753; t13719.s1.value.structure_type24753 = &t13720; /* x213416 */ t13718.s1.tag = STRUCTURE_TYPE24753; t13718.s1.value.structure_type24753 = &t13719; /* x213417 */ t13717.s1.tag = STRUCTURE_TYPE24753; t13717.s1.value.structure_type24753 = &t13718; /* x213418 */ t13716.s0.tag = STRUCTURE_TYPE24753; t13716.s0.value.structure_type24753 = &t13717; /* x213419 */ t13716.s1.tag = NULL_TYPE; /* x213420 */ t13707.s1.tag = STRUCTURE_TYPE24753; t13707.s1.value.structure_type24753 = &t13716; /* x213421 */ t13706.s1.tag = STRUCTURE_TYPE24753; t13706.s1.value.structure_type24753 = &t13707; /* x213422 */ t13705.s1.tag = STRUCTURE_TYPE24753; t13705.s1.value.structure_type24753 = &t13706; /* x213423 */ t13700.s1.tag = STRUCTURE_TYPE24753; t13700.s1.value.structure_type24753 = &t13705; /* x213424 */ t13672.s1.tag = STRUCTURE_TYPE24753; t13672.s1.value.structure_type24753 = &t13700; /* x213425 */ t13668.s1.tag = STRUCTURE_TYPE24753; t13668.s1.value.structure_type24753 = &t13672; /* x213426 */ t13667.s1.tag = STRUCTURE_TYPE24753; t13667.s1.value.structure_type24753 = &t13668; /* x213427 */ t13666.s1.tag = STRUCTURE_TYPE24753; t13666.s1.value.structure_type24753 = &t13667; /* x213428 */ t13665.s1.tag = STRUCTURE_TYPE24753; t13665.s1.value.structure_type24753 = &t13666; /* x213429 */ t13664.s0.tag = STRUCTURE_TYPE24753; t13664.s0.value.structure_type24753 = &t13665; /* x213430 */ t13664.s1.tag = NULL_TYPE; /* x213431 */ t13663.s1.tag = STRUCTURE_TYPE24753; t13663.s1.value.structure_type24753 = &t13664; /* x213432 */ t13662.s1.tag = STRUCTURE_TYPE24753; t13662.s1.value.structure_type24753 = &t13663; /* x213433 */ t13661.s0.tag = STRUCTURE_TYPE24753; t13661.s0.value.structure_type24753 = &t13662; /* x213434 */ t13726.s0.tag = EXTERNAL_SYMBOL_TYPE; t13726.s0.value.external_symbol_type = q588; /* x213435 */ t13727.s0.tag = EXTERNAL_SYMBOL_TYPE; t13727.s0.value.external_symbol_type = q540; /* x213436 */ t13728.s0.tag = EXTERNAL_SYMBOL_TYPE; t13728.s0.value.external_symbol_type = q539; /* x213437 */ t13730.s0.tag = EXTERNAL_SYMBOL_TYPE; t13730.s0.value.external_symbol_type = q589; /* x213438 */ t13731.s0.tag = EXTERNAL_SYMBOL_TYPE; t13731.s0.value.external_symbol_type = q590; /* x213439 */ t13732.s0.tag = EXTERNAL_SYMBOL_TYPE; t13732.s0.value.external_symbol_type = q594; /* x213440 */ t13732.s1.tag = NULL_TYPE; /* x213441 */ t13731.s1.tag = STRUCTURE_TYPE24753; t13731.s1.value.structure_type24753 = &t13732; /* x213442 */ t13730.s1.tag = STRUCTURE_TYPE24753; t13730.s1.value.structure_type24753 = &t13731; /* x213443 */ t13729.s0.tag = STRUCTURE_TYPE24753; t13729.s0.value.structure_type24753 = &t13730; /* x213444 */ t13729.s1.tag = NULL_TYPE; /* x213445 */ t13728.s1.tag = STRUCTURE_TYPE24753; t13728.s1.value.structure_type24753 = &t13729; /* x213446 */ t13727.s1.tag = STRUCTURE_TYPE24753; t13727.s1.value.structure_type24753 = &t13728; /* x213447 */ t13726.s1.tag = STRUCTURE_TYPE24753; t13726.s1.value.structure_type24753 = &t13727; /* x213448 */ t13725.s0.tag = STRUCTURE_TYPE24753; t13725.s0.value.structure_type24753 = &t13726; /* x213449 */ t13734.s0.tag = EXTERNAL_SYMBOL_TYPE; t13734.s0.value.external_symbol_type = q42; /* x213450 */ t13735.s0.tag = EXTERNAL_SYMBOL_TYPE; t13735.s0.value.external_symbol_type = q595; /* x213451 */ t13737.s0.tag = EXTERNAL_SYMBOL_TYPE; t13737.s0.value.external_symbol_type = q596; /* x213452 */ t13738.s0.tag = EXTERNAL_SYMBOL_TYPE; t13738.s0.value.external_symbol_type = q540; /* x213453 */ t13739.s0.tag = EXTERNAL_SYMBOL_TYPE; t13739.s0.value.external_symbol_type = q578; /* x213454 */ t13740.s0.tag = FIXNUM_TYPE; t13740.s0.value.fixnum_type = 0; /* x213455 */ t13742.s0.tag = EXTERNAL_SYMBOL_TYPE; t13742.s0.value.external_symbol_type = q597; /* x213456 */ t13742.s1.tag = NULL_TYPE; /* x213457 */ t13741.s0.tag = STRUCTURE_TYPE24753; t13741.s0.value.structure_type24753 = &t13742; /* x213458 */ t13741.s1.tag = NULL_TYPE; /* x213459 */ t13740.s1.tag = STRUCTURE_TYPE24753; t13740.s1.value.structure_type24753 = &t13741; /* x213460 */ t13739.s1.tag = STRUCTURE_TYPE24753; t13739.s1.value.structure_type24753 = &t13740; /* x213461 */ t13738.s1.tag = STRUCTURE_TYPE24753; t13738.s1.value.structure_type24753 = &t13739; /* x213462 */ t13737.s1.tag = STRUCTURE_TYPE24753; t13737.s1.value.structure_type24753 = &t13738; /* x213463 */ t13736.s0.tag = STRUCTURE_TYPE24753; t13736.s0.value.structure_type24753 = &t13737; /* x213464 */ t13736.s1.tag = NULL_TYPE; /* x213465 */ t13735.s1.tag = STRUCTURE_TYPE24753; t13735.s1.value.structure_type24753 = &t13736; /* x213466 */ t13734.s1.tag = STRUCTURE_TYPE24753; t13734.s1.value.structure_type24753 = &t13735; /* x213467 */ t13733.s0.tag = STRUCTURE_TYPE24753; t13733.s0.value.structure_type24753 = &t13734; /* x213468 */ t13744.s0.tag = EXTERNAL_SYMBOL_TYPE; t13744.s0.value.external_symbol_type = q598; /* x213469 */ t13745.s0.tag = EXTERNAL_SYMBOL_TYPE; t13745.s0.value.external_symbol_type = q540; /* x213470 */ t13746.s0.tag = EXTERNAL_SYMBOL_TYPE; t13746.s0.value.external_symbol_type = q595; /* x213471 */ t13748.s0.tag = EXTERNAL_SYMBOL_TYPE; t13748.s0.value.external_symbol_type = q43; /* x213472 */ t13749.s0.tag = EXTERNAL_SYMBOL_TYPE; t13749.s0.value.external_symbol_type = q528; /* x213473 */ t13750.s0.tag = EXTERNAL_SYMBOL_TYPE; t13750.s0.value.external_symbol_type = q551; /* x213474 */ t13752.s0.tag = EXTERNAL_SYMBOL_TYPE; t13752.s0.value.external_symbol_type = q582; /* x213475 */ t13754.s0.tag = EXTERNAL_SYMBOL_TYPE; t13754.s0.value.external_symbol_type = q583; /* x213476 */ t13755.s0.tag = EXTERNAL_SYMBOL_TYPE; t13755.s0.value.external_symbol_type = q555; /* x213477 */ t13755.s1.tag = NULL_TYPE; /* x213478 */ t13754.s1.tag = STRUCTURE_TYPE24753; t13754.s1.value.structure_type24753 = &t13755; /* x213479 */ t13753.s0.tag = STRUCTURE_TYPE24753; t13753.s0.value.structure_type24753 = &t13754; /* x213480 */ t13753.s1.tag = NULL_TYPE; /* x213481 */ t13752.s1.tag = STRUCTURE_TYPE24753; t13752.s1.value.structure_type24753 = &t13753; /* x213482 */ t13751.s0.tag = STRUCTURE_TYPE24753; t13751.s0.value.structure_type24753 = &t13752; /* x213483 */ t13751.s1.tag = NULL_TYPE; /* x213484 */ t13750.s1.tag = STRUCTURE_TYPE24753; t13750.s1.value.structure_type24753 = &t13751; /* x213485 */ t13749.s1.tag = STRUCTURE_TYPE24753; t13749.s1.value.structure_type24753 = &t13750; /* x213486 */ t13748.s1.tag = STRUCTURE_TYPE24753; t13748.s1.value.structure_type24753 = &t13749; /* x213487 */ t13747.s0.tag = STRUCTURE_TYPE24753; t13747.s0.value.structure_type24753 = &t13748; /* x213488 */ t13747.s1.tag = NULL_TYPE; /* x213489 */ t13746.s1.tag = STRUCTURE_TYPE24753; t13746.s1.value.structure_type24753 = &t13747; /* x213490 */ t13745.s1.tag = STRUCTURE_TYPE24753; t13745.s1.value.structure_type24753 = &t13746; /* x213491 */ t13744.s1.tag = STRUCTURE_TYPE24753; t13744.s1.value.structure_type24753 = &t13745; /* x213492 */ t13743.s0.tag = STRUCTURE_TYPE24753; t13743.s0.value.structure_type24753 = &t13744; /* x213493 */ t13757.s0.tag = EXTERNAL_SYMBOL_TYPE; t13757.s0.value.external_symbol_type = q599; /* x213494 */ t13758.s0.tag = EXTERNAL_SYMBOL_TYPE; t13758.s0.value.external_symbol_type = q540; /* x213495 */ t13759.s0.tag = EXTERNAL_SYMBOL_TYPE; t13759.s0.value.external_symbol_type = q595; /* x213496 */ t13761.s0.tag = EXTERNAL_SYMBOL_TYPE; t13761.s0.value.external_symbol_type = q43; /* x213497 */ t13762.s0.tag = EXTERNAL_SYMBOL_TYPE; t13762.s0.value.external_symbol_type = q528; /* x213498 */ t13763.s0.tag = EXTERNAL_SYMBOL_TYPE; t13763.s0.value.external_symbol_type = q553; /* x213499 */ t13765.s0.tag = EXTERNAL_SYMBOL_TYPE; t13765.s0.value.external_symbol_type = q582; /* x213500 */ t13767.s0.tag = EXTERNAL_SYMBOL_TYPE; t13767.s0.value.external_symbol_type = q583; /* x213501 */ t13768.s0.tag = EXTERNAL_SYMBOL_TYPE; t13768.s0.value.external_symbol_type = q560; /* x213502 */ t13768.s1.tag = NULL_TYPE; /* x213503 */ t13767.s1.tag = STRUCTURE_TYPE24753; t13767.s1.value.structure_type24753 = &t13768; /* x213504 */ t13766.s0.tag = STRUCTURE_TYPE24753; t13766.s0.value.structure_type24753 = &t13767; /* x213505 */ t13766.s1.tag = NULL_TYPE; /* x213506 */ t13765.s1.tag = STRUCTURE_TYPE24753; t13765.s1.value.structure_type24753 = &t13766; /* x213507 */ t13764.s0.tag = STRUCTURE_TYPE24753; t13764.s0.value.structure_type24753 = &t13765; /* x213508 */ t13764.s1.tag = NULL_TYPE; /* x213509 */ t13763.s1.tag = STRUCTURE_TYPE24753; t13763.s1.value.structure_type24753 = &t13764; /* x213510 */ t13762.s1.tag = STRUCTURE_TYPE24753; t13762.s1.value.structure_type24753 = &t13763; /* x213511 */ t13761.s1.tag = STRUCTURE_TYPE24753; t13761.s1.value.structure_type24753 = &t13762; /* x213512 */ t13760.s0.tag = STRUCTURE_TYPE24753; t13760.s0.value.structure_type24753 = &t13761; /* x213513 */ t13760.s1.tag = NULL_TYPE; /* x213514 */ t13759.s1.tag = STRUCTURE_TYPE24753; t13759.s1.value.structure_type24753 = &t13760; /* x213515 */ t13758.s1.tag = STRUCTURE_TYPE24753; t13758.s1.value.structure_type24753 = &t13759; /* x213516 */ t13757.s1.tag = STRUCTURE_TYPE24753; t13757.s1.value.structure_type24753 = &t13758; /* x213517 */ t13756.s0.tag = STRUCTURE_TYPE24753; t13756.s0.value.structure_type24753 = &t13757; /* x213518 */ t13770.s0.tag = EXTERNAL_SYMBOL_TYPE; t13770.s0.value.external_symbol_type = q600; /* x213519 */ t13771.s0.tag = EXTERNAL_SYMBOL_TYPE; t13771.s0.value.external_symbol_type = q540; /* x213520 */ t13772.s0.tag = EXTERNAL_SYMBOL_TYPE; t13772.s0.value.external_symbol_type = q595; /* x213521 */ t13773.s0.tag = FIXNUM_TYPE; t13773.s0.value.fixnum_type = 0; /* x213522 */ t13774.s0.tag = EXTERNAL_SYMBOL_TYPE; t13774.s0.value.external_symbol_type = q601; /* x213523 */ t13775.s0.tag = EXTERNAL_SYMBOL_TYPE; t13775.s0.value.external_symbol_type = q602; /* x213524 */ t13776.s0.tag = EXTERNAL_SYMBOL_TYPE; t13776.s0.value.external_symbol_type = q603; /* x213525 */ t13776.s1.tag = NULL_TYPE; /* x213526 */ t13775.s1.tag = STRUCTURE_TYPE24753; t13775.s1.value.structure_type24753 = &t13776; /* x213527 */ t13774.s1.tag = STRUCTURE_TYPE24753; t13774.s1.value.structure_type24753 = &t13775; /* x213528 */ t13773.s1.tag = STRUCTURE_TYPE24753; t13773.s1.value.structure_type24753 = &t13774; /* x213529 */ t13772.s1.tag = STRUCTURE_TYPE24753; t13772.s1.value.structure_type24753 = &t13773; /* x213530 */ t13771.s1.tag = STRUCTURE_TYPE24753; t13771.s1.value.structure_type24753 = &t13772; /* x213531 */ t13770.s1.tag = STRUCTURE_TYPE24753; t13770.s1.value.structure_type24753 = &t13771; /* x213532 */ t13769.s0.tag = STRUCTURE_TYPE24753; t13769.s0.value.structure_type24753 = &t13770; /* x213533 */ t13778.s0.tag = EXTERNAL_SYMBOL_TYPE; t13778.s0.value.external_symbol_type = q42; /* x213534 */ t13779.s0.tag = EXTERNAL_SYMBOL_TYPE; t13779.s0.value.external_symbol_type = q604; /* x213535 */ t13781.s0.tag = EXTERNAL_SYMBOL_TYPE; t13781.s0.value.external_symbol_type = q596; /* x213536 */ t13782.s0.tag = EXTERNAL_SYMBOL_TYPE; t13782.s0.value.external_symbol_type = q540; /* x213537 */ t13783.s0.tag = EXTERNAL_SYMBOL_TYPE; t13783.s0.value.external_symbol_type = q578; /* x213538 */ t13784.s0.tag = FIXNUM_TYPE; t13784.s0.value.fixnum_type = 0; /* x213539 */ t13786.s0.tag = EXTERNAL_SYMBOL_TYPE; t13786.s0.value.external_symbol_type = q597; /* x213540 */ t13786.s1.tag = NULL_TYPE; /* x213541 */ t13785.s0.tag = STRUCTURE_TYPE24753; t13785.s0.value.structure_type24753 = &t13786; /* x213542 */ t13785.s1.tag = NULL_TYPE; /* x213543 */ t13784.s1.tag = STRUCTURE_TYPE24753; t13784.s1.value.structure_type24753 = &t13785; /* x213544 */ t13783.s1.tag = STRUCTURE_TYPE24753; t13783.s1.value.structure_type24753 = &t13784; /* x213545 */ t13782.s1.tag = STRUCTURE_TYPE24753; t13782.s1.value.structure_type24753 = &t13783; /* x213546 */ t13781.s1.tag = STRUCTURE_TYPE24753; t13781.s1.value.structure_type24753 = &t13782; /* x213547 */ t13780.s0.tag = STRUCTURE_TYPE24753; t13780.s0.value.structure_type24753 = &t13781; /* x213548 */ t13780.s1.tag = NULL_TYPE; /* x213549 */ t13779.s1.tag = STRUCTURE_TYPE24753; t13779.s1.value.structure_type24753 = &t13780; /* x213550 */ t13778.s1.tag = STRUCTURE_TYPE24753; t13778.s1.value.structure_type24753 = &t13779; /* x213551 */ t13777.s0.tag = STRUCTURE_TYPE24753; t13777.s0.value.structure_type24753 = &t13778; /* x213552 */ t13788.s0.tag = EXTERNAL_SYMBOL_TYPE; t13788.s0.value.external_symbol_type = q598; /* x213553 */ t13789.s0.tag = EXTERNAL_SYMBOL_TYPE; t13789.s0.value.external_symbol_type = q540; /* x213554 */ t13790.s0.tag = EXTERNAL_SYMBOL_TYPE; t13790.s0.value.external_symbol_type = q604; /* x213555 */ t13792.s0.tag = EXTERNAL_SYMBOL_TYPE; t13792.s0.value.external_symbol_type = q43; /* x213556 */ t13793.s0.tag = EXTERNAL_SYMBOL_TYPE; t13793.s0.value.external_symbol_type = q528; /* x213557 */ t13794.s0.tag = EXTERNAL_SYMBOL_TYPE; t13794.s0.value.external_symbol_type = q553; /* x213558 */ t13796.s0.tag = EXTERNAL_SYMBOL_TYPE; t13796.s0.value.external_symbol_type = q582; /* x213559 */ t13798.s0.tag = EXTERNAL_SYMBOL_TYPE; t13798.s0.value.external_symbol_type = q583; /* x213560 */ t13799.s0.tag = EXTERNAL_SYMBOL_TYPE; t13799.s0.value.external_symbol_type = q560; /* x213561 */ t13799.s1.tag = NULL_TYPE; /* x213562 */ t13798.s1.tag = STRUCTURE_TYPE24753; t13798.s1.value.structure_type24753 = &t13799; /* x213563 */ t13797.s0.tag = STRUCTURE_TYPE24753; t13797.s0.value.structure_type24753 = &t13798; /* x213564 */ t13797.s1.tag = NULL_TYPE; /* x213565 */ t13796.s1.tag = STRUCTURE_TYPE24753; t13796.s1.value.structure_type24753 = &t13797; /* x213566 */ t13795.s0.tag = STRUCTURE_TYPE24753; t13795.s0.value.structure_type24753 = &t13796; /* x213567 */ t13795.s1.tag = NULL_TYPE; /* x213568 */ t13794.s1.tag = STRUCTURE_TYPE24753; t13794.s1.value.structure_type24753 = &t13795; /* x213569 */ t13793.s1.tag = STRUCTURE_TYPE24753; t13793.s1.value.structure_type24753 = &t13794; /* x213570 */ t13792.s1.tag = STRUCTURE_TYPE24753; t13792.s1.value.structure_type24753 = &t13793; /* x213571 */ t13791.s0.tag = STRUCTURE_TYPE24753; t13791.s0.value.structure_type24753 = &t13792; /* x213572 */ t13791.s1.tag = NULL_TYPE; /* x213573 */ t13790.s1.tag = STRUCTURE_TYPE24753; t13790.s1.value.structure_type24753 = &t13791; /* x213574 */ t13789.s1.tag = STRUCTURE_TYPE24753; t13789.s1.value.structure_type24753 = &t13790; /* x213575 */ t13788.s1.tag = STRUCTURE_TYPE24753; t13788.s1.value.structure_type24753 = &t13789; /* x213576 */ t13787.s0.tag = STRUCTURE_TYPE24753; t13787.s0.value.structure_type24753 = &t13788; /* x213577 */ t13801.s0.tag = EXTERNAL_SYMBOL_TYPE; t13801.s0.value.external_symbol_type = q599; /* x213578 */ t13802.s0.tag = EXTERNAL_SYMBOL_TYPE; t13802.s0.value.external_symbol_type = q540; /* x213579 */ t13803.s0.tag = EXTERNAL_SYMBOL_TYPE; t13803.s0.value.external_symbol_type = q604; /* x213580 */ t13805.s0.tag = EXTERNAL_SYMBOL_TYPE; t13805.s0.value.external_symbol_type = q43; /* x213581 */ t13806.s0.tag = EXTERNAL_SYMBOL_TYPE; t13806.s0.value.external_symbol_type = q528; /* x213582 */ t13807.s0.tag = EXTERNAL_SYMBOL_TYPE; t13807.s0.value.external_symbol_type = q551; /* x213583 */ t13809.s0.tag = EXTERNAL_SYMBOL_TYPE; t13809.s0.value.external_symbol_type = q582; /* x213584 */ t13811.s0.tag = EXTERNAL_SYMBOL_TYPE; t13811.s0.value.external_symbol_type = q583; /* x213585 */ t13812.s0.tag = EXTERNAL_SYMBOL_TYPE; t13812.s0.value.external_symbol_type = q555; /* x213586 */ t13812.s1.tag = NULL_TYPE; /* x213587 */ t13811.s1.tag = STRUCTURE_TYPE24753; t13811.s1.value.structure_type24753 = &t13812; /* x213588 */ t13810.s0.tag = STRUCTURE_TYPE24753; t13810.s0.value.structure_type24753 = &t13811; /* x213589 */ t13810.s1.tag = NULL_TYPE; /* x213590 */ t13809.s1.tag = STRUCTURE_TYPE24753; t13809.s1.value.structure_type24753 = &t13810; /* x213591 */ t13808.s0.tag = STRUCTURE_TYPE24753; t13808.s0.value.structure_type24753 = &t13809; /* x213592 */ t13808.s1.tag = NULL_TYPE; /* x213593 */ t13807.s1.tag = STRUCTURE_TYPE24753; t13807.s1.value.structure_type24753 = &t13808; /* x213594 */ t13806.s1.tag = STRUCTURE_TYPE24753; t13806.s1.value.structure_type24753 = &t13807; /* x213595 */ t13805.s1.tag = STRUCTURE_TYPE24753; t13805.s1.value.structure_type24753 = &t13806; /* x213596 */ t13804.s0.tag = STRUCTURE_TYPE24753; t13804.s0.value.structure_type24753 = &t13805; /* x213597 */ t13804.s1.tag = NULL_TYPE; /* x213598 */ t13803.s1.tag = STRUCTURE_TYPE24753; t13803.s1.value.structure_type24753 = &t13804; /* x213599 */ t13802.s1.tag = STRUCTURE_TYPE24753; t13802.s1.value.structure_type24753 = &t13803; /* x213600 */ t13801.s1.tag = STRUCTURE_TYPE24753; t13801.s1.value.structure_type24753 = &t13802; /* x213601 */ t13800.s0.tag = STRUCTURE_TYPE24753; t13800.s0.value.structure_type24753 = &t13801; /* x213602 */ t13814.s0.tag = EXTERNAL_SYMBOL_TYPE; t13814.s0.value.external_symbol_type = q600; /* x213603 */ t13815.s0.tag = EXTERNAL_SYMBOL_TYPE; t13815.s0.value.external_symbol_type = q540; /* x213604 */ t13816.s0.tag = EXTERNAL_SYMBOL_TYPE; t13816.s0.value.external_symbol_type = q604; /* x213605 */ t13817.s0.tag = FIXNUM_TYPE; t13817.s0.value.fixnum_type = 0; /* x213606 */ t13818.s0.tag = EXTERNAL_SYMBOL_TYPE; t13818.s0.value.external_symbol_type = q601; /* x213607 */ t13819.s0.tag = EXTERNAL_SYMBOL_TYPE; t13819.s0.value.external_symbol_type = q602; /* x213608 */ t13820.s0.tag = EXTERNAL_SYMBOL_TYPE; t13820.s0.value.external_symbol_type = q603; /* x213609 */ t13820.s1.tag = NULL_TYPE; /* x213610 */ t13819.s1.tag = STRUCTURE_TYPE24753; t13819.s1.value.structure_type24753 = &t13820; /* x213611 */ t13818.s1.tag = STRUCTURE_TYPE24753; t13818.s1.value.structure_type24753 = &t13819; /* x213612 */ t13817.s1.tag = STRUCTURE_TYPE24753; t13817.s1.value.structure_type24753 = &t13818; /* x213613 */ t13816.s1.tag = STRUCTURE_TYPE24753; t13816.s1.value.structure_type24753 = &t13817; /* x213614 */ t13815.s1.tag = STRUCTURE_TYPE24753; t13815.s1.value.structure_type24753 = &t13816; /* x213615 */ t13814.s1.tag = STRUCTURE_TYPE24753; t13814.s1.value.structure_type24753 = &t13815; /* x213616 */ t13813.s0.tag = STRUCTURE_TYPE24753; t13813.s0.value.structure_type24753 = &t13814; /* x213617 */ t13822.s0.tag = EXTERNAL_SYMBOL_TYPE; t13822.s0.value.external_symbol_type = q605; /* x213618 */ t13823.s0.tag = EXTERNAL_SYMBOL_TYPE; t13823.s0.value.external_symbol_type = q540; /* x213619 */ t13824.s0.tag = EXTERNAL_SYMBOL_TYPE; t13824.s0.value.external_symbol_type = q604; /* x213620 */ t13825.s0.tag = EXTERNAL_SYMBOL_TYPE; t13825.s0.value.external_symbol_type = q606; /* x213621 */ t13825.s1.tag = NULL_TYPE; /* x213622 */ t13824.s1.tag = STRUCTURE_TYPE24753; t13824.s1.value.structure_type24753 = &t13825; /* x213623 */ t13823.s1.tag = STRUCTURE_TYPE24753; t13823.s1.value.structure_type24753 = &t13824; /* x213624 */ t13822.s1.tag = STRUCTURE_TYPE24753; t13822.s1.value.structure_type24753 = &t13823; /* x213625 */ t13821.s0.tag = STRUCTURE_TYPE24753; t13821.s0.value.structure_type24753 = &t13822; /* x213626 */ t13827.s0.tag = EXTERNAL_SYMBOL_TYPE; t13827.s0.value.external_symbol_type = q42; /* x213627 */ t13828.s0.tag = EXTERNAL_SYMBOL_TYPE; t13828.s0.value.external_symbol_type = q607; /* x213628 */ t13830.s0.tag = EXTERNAL_SYMBOL_TYPE; t13830.s0.value.external_symbol_type = q596; /* x213629 */ t13831.s0.tag = EXTERNAL_SYMBOL_TYPE; t13831.s0.value.external_symbol_type = q540; /* x213630 */ t13832.s0.tag = EXTERNAL_SYMBOL_TYPE; t13832.s0.value.external_symbol_type = q578; /* x213631 */ t13833.s0.tag = FIXNUM_TYPE; t13833.s0.value.fixnum_type = 0; /* x213632 */ t13835.s0.tag = EXTERNAL_SYMBOL_TYPE; t13835.s0.value.external_symbol_type = q597; /* x213633 */ t13835.s1.tag = NULL_TYPE; /* x213634 */ t13834.s0.tag = STRUCTURE_TYPE24753; t13834.s0.value.structure_type24753 = &t13835; /* x213635 */ t13834.s1.tag = NULL_TYPE; /* x213636 */ t13833.s1.tag = STRUCTURE_TYPE24753; t13833.s1.value.structure_type24753 = &t13834; /* x213637 */ t13832.s1.tag = STRUCTURE_TYPE24753; t13832.s1.value.structure_type24753 = &t13833; /* x213638 */ t13831.s1.tag = STRUCTURE_TYPE24753; t13831.s1.value.structure_type24753 = &t13832; /* x213639 */ t13830.s1.tag = STRUCTURE_TYPE24753; t13830.s1.value.structure_type24753 = &t13831; /* x213640 */ t13829.s0.tag = STRUCTURE_TYPE24753; t13829.s0.value.structure_type24753 = &t13830; /* x213641 */ t13829.s1.tag = NULL_TYPE; /* x213642 */ t13828.s1.tag = STRUCTURE_TYPE24753; t13828.s1.value.structure_type24753 = &t13829; /* x213643 */ t13827.s1.tag = STRUCTURE_TYPE24753; t13827.s1.value.structure_type24753 = &t13828; /* x213644 */ t13826.s0.tag = STRUCTURE_TYPE24753; t13826.s0.value.structure_type24753 = &t13827; /* x213645 */ t13837.s0.tag = EXTERNAL_SYMBOL_TYPE; t13837.s0.value.external_symbol_type = q598; /* x213646 */ t13838.s0.tag = EXTERNAL_SYMBOL_TYPE; t13838.s0.value.external_symbol_type = q540; /* x213647 */ t13839.s0.tag = EXTERNAL_SYMBOL_TYPE; t13839.s0.value.external_symbol_type = q607; /* x213648 */ t13841.s0.tag = EXTERNAL_SYMBOL_TYPE; t13841.s0.value.external_symbol_type = q43; /* x213649 */ t13842.s0.tag = EXTERNAL_SYMBOL_TYPE; t13842.s0.value.external_symbol_type = q528; /* x213650 */ t13843.s0.tag = EXTERNAL_SYMBOL_TYPE; t13843.s0.value.external_symbol_type = q551; /* x213651 */ t13845.s0.tag = EXTERNAL_SYMBOL_TYPE; t13845.s0.value.external_symbol_type = q582; /* x213652 */ t13847.s0.tag = EXTERNAL_SYMBOL_TYPE; t13847.s0.value.external_symbol_type = q583; /* x213653 */ t13848.s0.tag = EXTERNAL_SYMBOL_TYPE; t13848.s0.value.external_symbol_type = q555; /* x213654 */ t13848.s1.tag = NULL_TYPE; /* x213655 */ t13847.s1.tag = STRUCTURE_TYPE24753; t13847.s1.value.structure_type24753 = &t13848; /* x213656 */ t13846.s0.tag = STRUCTURE_TYPE24753; t13846.s0.value.structure_type24753 = &t13847; /* x213657 */ t13846.s1.tag = NULL_TYPE; /* x213658 */ t13845.s1.tag = STRUCTURE_TYPE24753; t13845.s1.value.structure_type24753 = &t13846; /* x213659 */ t13844.s0.tag = STRUCTURE_TYPE24753; t13844.s0.value.structure_type24753 = &t13845; /* x213660 */ t13844.s1.tag = NULL_TYPE; /* x213661 */ t13843.s1.tag = STRUCTURE_TYPE24753; t13843.s1.value.structure_type24753 = &t13844; /* x213662 */ t13842.s1.tag = STRUCTURE_TYPE24753; t13842.s1.value.structure_type24753 = &t13843; /* x213663 */ t13841.s1.tag = STRUCTURE_TYPE24753; t13841.s1.value.structure_type24753 = &t13842; /* x213664 */ t13840.s0.tag = STRUCTURE_TYPE24753; t13840.s0.value.structure_type24753 = &t13841; /* x213665 */ t13840.s1.tag = NULL_TYPE; /* x213666 */ t13839.s1.tag = STRUCTURE_TYPE24753; t13839.s1.value.structure_type24753 = &t13840; /* x213667 */ t13838.s1.tag = STRUCTURE_TYPE24753; t13838.s1.value.structure_type24753 = &t13839; /* x213668 */ t13837.s1.tag = STRUCTURE_TYPE24753; t13837.s1.value.structure_type24753 = &t13838; /* x213669 */ t13836.s0.tag = STRUCTURE_TYPE24753; t13836.s0.value.structure_type24753 = &t13837; /* x213670 */ t13850.s0.tag = EXTERNAL_SYMBOL_TYPE; t13850.s0.value.external_symbol_type = q599; /* x213671 */ t13851.s0.tag = EXTERNAL_SYMBOL_TYPE; t13851.s0.value.external_symbol_type = q540; /* x213672 */ t13852.s0.tag = EXTERNAL_SYMBOL_TYPE; t13852.s0.value.external_symbol_type = q607; /* x213673 */ t13854.s0.tag = EXTERNAL_SYMBOL_TYPE; t13854.s0.value.external_symbol_type = q43; /* x213674 */ t13855.s0.tag = EXTERNAL_SYMBOL_TYPE;} void initialize_constants2(void) {t13855.s0.value.external_symbol_type = q528; /* x213675 */ t13856.s0.tag = EXTERNAL_SYMBOL_TYPE; t13856.s0.value.external_symbol_type = q553; /* x213676 */ t13858.s0.tag = EXTERNAL_SYMBOL_TYPE; t13858.s0.value.external_symbol_type = q582; /* x213677 */ t13860.s0.tag = EXTERNAL_SYMBOL_TYPE; t13860.s0.value.external_symbol_type = q583; /* x213678 */ t13861.s0.tag = EXTERNAL_SYMBOL_TYPE; t13861.s0.value.external_symbol_type = q560; /* x213679 */ t13861.s1.tag = NULL_TYPE; /* x213680 */ t13860.s1.tag = STRUCTURE_TYPE24753; t13860.s1.value.structure_type24753 = &t13861; /* x213681 */ t13859.s0.tag = STRUCTURE_TYPE24753; t13859.s0.value.structure_type24753 = &t13860; /* x213682 */ t13859.s1.tag = NULL_TYPE; /* x213683 */ t13858.s1.tag = STRUCTURE_TYPE24753; t13858.s1.value.structure_type24753 = &t13859; /* x213684 */ t13857.s0.tag = STRUCTURE_TYPE24753; t13857.s0.value.structure_type24753 = &t13858; /* x213685 */ t13857.s1.tag = NULL_TYPE; /* x213686 */ t13856.s1.tag = STRUCTURE_TYPE24753; t13856.s1.value.structure_type24753 = &t13857; /* x213687 */ t13855.s1.tag = STRUCTURE_TYPE24753; t13855.s1.value.structure_type24753 = &t13856; /* x213688 */ t13854.s1.tag = STRUCTURE_TYPE24753; t13854.s1.value.structure_type24753 = &t13855; /* x213689 */ t13853.s0.tag = STRUCTURE_TYPE24753; t13853.s0.value.structure_type24753 = &t13854; /* x213690 */ t13853.s1.tag = NULL_TYPE; /* x213691 */ t13852.s1.tag = STRUCTURE_TYPE24753; t13852.s1.value.structure_type24753 = &t13853; /* x213692 */ t13851.s1.tag = STRUCTURE_TYPE24753; t13851.s1.value.structure_type24753 = &t13852; /* x213693 */ t13850.s1.tag = STRUCTURE_TYPE24753; t13850.s1.value.structure_type24753 = &t13851; /* x213694 */ t13849.s0.tag = STRUCTURE_TYPE24753; t13849.s0.value.structure_type24753 = &t13850; /* x213695 */ t13863.s0.tag = EXTERNAL_SYMBOL_TYPE; t13863.s0.value.external_symbol_type = q600; /* x213696 */ t13864.s0.tag = EXTERNAL_SYMBOL_TYPE; t13864.s0.value.external_symbol_type = q540; /* x213697 */ t13865.s0.tag = EXTERNAL_SYMBOL_TYPE; t13865.s0.value.external_symbol_type = q607; /* x213698 */ t13866.s0.tag = FIXNUM_TYPE; t13866.s0.value.fixnum_type = 2; /* x213699 */ t13867.s0.tag = EXTERNAL_SYMBOL_TYPE; t13867.s0.value.external_symbol_type = q601; /* x213700 */ t13868.s0.tag = EXTERNAL_SYMBOL_TYPE; t13868.s0.value.external_symbol_type = q602; /* x213701 */ t13869.s0.tag = EXTERNAL_SYMBOL_TYPE; t13869.s0.value.external_symbol_type = q603; /* x213702 */ t13869.s1.tag = NULL_TYPE; /* x213703 */ t13868.s1.tag = STRUCTURE_TYPE24753; t13868.s1.value.structure_type24753 = &t13869; /* x213704 */ t13867.s1.tag = STRUCTURE_TYPE24753; t13867.s1.value.structure_type24753 = &t13868; /* x213705 */ t13866.s1.tag = STRUCTURE_TYPE24753; t13866.s1.value.structure_type24753 = &t13867; /* x213706 */ t13865.s1.tag = STRUCTURE_TYPE24753; t13865.s1.value.structure_type24753 = &t13866; /* x213707 */ t13864.s1.tag = STRUCTURE_TYPE24753; t13864.s1.value.structure_type24753 = &t13865; /* x213708 */ t13863.s1.tag = STRUCTURE_TYPE24753; t13863.s1.value.structure_type24753 = &t13864; /* x213709 */ t13862.s0.tag = STRUCTURE_TYPE24753; t13862.s0.value.structure_type24753 = &t13863; /* x213710 */ t13871.s0.tag = EXTERNAL_SYMBOL_TYPE; t13871.s0.value.external_symbol_type = q42; /* x213711 */ t13872.s0.tag = EXTERNAL_SYMBOL_TYPE; t13872.s0.value.external_symbol_type = q608; /* x213712 */ t13874.s0.tag = EXTERNAL_SYMBOL_TYPE; t13874.s0.value.external_symbol_type = q596; /* x213713 */ t13875.s0.tag = EXTERNAL_SYMBOL_TYPE; t13875.s0.value.external_symbol_type = q540; /* x213714 */ t13876.s0.tag = EXTERNAL_SYMBOL_TYPE; t13876.s0.value.external_symbol_type = q578; /* x213715 */ t13877.s0.tag = FIXNUM_TYPE; t13877.s0.value.fixnum_type = 0; /* x213716 */ t13879.s0.tag = EXTERNAL_SYMBOL_TYPE; t13879.s0.value.external_symbol_type = q597; /* x213717 */ t13879.s1.tag = NULL_TYPE; /* x213718 */ t13878.s0.tag = STRUCTURE_TYPE24753; t13878.s0.value.structure_type24753 = &t13879; /* x213719 */ t13878.s1.tag = NULL_TYPE; /* x213720 */ t13877.s1.tag = STRUCTURE_TYPE24753; t13877.s1.value.structure_type24753 = &t13878; /* x213721 */ t13876.s1.tag = STRUCTURE_TYPE24753; t13876.s1.value.structure_type24753 = &t13877; /* x213722 */ t13875.s1.tag = STRUCTURE_TYPE24753; t13875.s1.value.structure_type24753 = &t13876; /* x213723 */ t13874.s1.tag = STRUCTURE_TYPE24753; t13874.s1.value.structure_type24753 = &t13875; /* x213724 */ t13873.s0.tag = STRUCTURE_TYPE24753; t13873.s0.value.structure_type24753 = &t13874; /* x213725 */ t13873.s1.tag = NULL_TYPE; /* x213726 */ t13872.s1.tag = STRUCTURE_TYPE24753; t13872.s1.value.structure_type24753 = &t13873; /* x213727 */ t13871.s1.tag = STRUCTURE_TYPE24753; t13871.s1.value.structure_type24753 = &t13872; /* x213728 */ t13870.s0.tag = STRUCTURE_TYPE24753; t13870.s0.value.structure_type24753 = &t13871; /* x213729 */ t13881.s0.tag = EXTERNAL_SYMBOL_TYPE; t13881.s0.value.external_symbol_type = q598; /* x213730 */ t13882.s0.tag = EXTERNAL_SYMBOL_TYPE; t13882.s0.value.external_symbol_type = q540; /* x213731 */ t13883.s0.tag = EXTERNAL_SYMBOL_TYPE; t13883.s0.value.external_symbol_type = q608; /* x213732 */ t13885.s0.tag = EXTERNAL_SYMBOL_TYPE; t13885.s0.value.external_symbol_type = q43; /* x213733 */ t13886.s0.tag = EXTERNAL_SYMBOL_TYPE; t13886.s0.value.external_symbol_type = q528; /* x213734 */ t13887.s0.tag = EXTERNAL_SYMBOL_TYPE; t13887.s0.value.external_symbol_type = q553; /* x213735 */ t13889.s0.tag = EXTERNAL_SYMBOL_TYPE; t13889.s0.value.external_symbol_type = q582; /* x213736 */ t13891.s0.tag = EXTERNAL_SYMBOL_TYPE; t13891.s0.value.external_symbol_type = q583; /* x213737 */ t13892.s0.tag = EXTERNAL_SYMBOL_TYPE; t13892.s0.value.external_symbol_type = q560; /* x213738 */ t13892.s1.tag = NULL_TYPE; /* x213739 */ t13891.s1.tag = STRUCTURE_TYPE24753; t13891.s1.value.structure_type24753 = &t13892; /* x213740 */ t13890.s0.tag = STRUCTURE_TYPE24753; t13890.s0.value.structure_type24753 = &t13891; /* x213741 */ t13890.s1.tag = NULL_TYPE; /* x213742 */ t13889.s1.tag = STRUCTURE_TYPE24753; t13889.s1.value.structure_type24753 = &t13890; /* x213743 */ t13888.s0.tag = STRUCTURE_TYPE24753; t13888.s0.value.structure_type24753 = &t13889; /* x213744 */ t13888.s1.tag = NULL_TYPE; /* x213745 */ t13887.s1.tag = STRUCTURE_TYPE24753; t13887.s1.value.structure_type24753 = &t13888; /* x213746 */ t13886.s1.tag = STRUCTURE_TYPE24753; t13886.s1.value.structure_type24753 = &t13887; /* x213747 */ t13885.s1.tag = STRUCTURE_TYPE24753; t13885.s1.value.structure_type24753 = &t13886; /* x213748 */ t13884.s0.tag = STRUCTURE_TYPE24753; t13884.s0.value.structure_type24753 = &t13885; /* x213749 */ t13884.s1.tag = NULL_TYPE; /* x213750 */ t13883.s1.tag = STRUCTURE_TYPE24753; t13883.s1.value.structure_type24753 = &t13884; /* x213751 */ t13882.s1.tag = STRUCTURE_TYPE24753; t13882.s1.value.structure_type24753 = &t13883; /* x213752 */ t13881.s1.tag = STRUCTURE_TYPE24753; t13881.s1.value.structure_type24753 = &t13882; /* x213753 */ t13880.s0.tag = STRUCTURE_TYPE24753; t13880.s0.value.structure_type24753 = &t13881; /* x213754 */ t13894.s0.tag = EXTERNAL_SYMBOL_TYPE; t13894.s0.value.external_symbol_type = q599; /* x213755 */ t13895.s0.tag = EXTERNAL_SYMBOL_TYPE; t13895.s0.value.external_symbol_type = q540; /* x213756 */ t13896.s0.tag = EXTERNAL_SYMBOL_TYPE; t13896.s0.value.external_symbol_type = q608; /* x213757 */ t13898.s0.tag = EXTERNAL_SYMBOL_TYPE; t13898.s0.value.external_symbol_type = q43; /* x213758 */ t13899.s0.tag = EXTERNAL_SYMBOL_TYPE; t13899.s0.value.external_symbol_type = q528; /* x213759 */ t13900.s0.tag = EXTERNAL_SYMBOL_TYPE; t13900.s0.value.external_symbol_type = q551; /* x213760 */ t13902.s0.tag = EXTERNAL_SYMBOL_TYPE; t13902.s0.value.external_symbol_type = q582; /* x213761 */ t13904.s0.tag = EXTERNAL_SYMBOL_TYPE; t13904.s0.value.external_symbol_type = q583; /* x213762 */ t13905.s0.tag = EXTERNAL_SYMBOL_TYPE; t13905.s0.value.external_symbol_type = q555; /* x213763 */ t13905.s1.tag = NULL_TYPE; /* x213764 */ t13904.s1.tag = STRUCTURE_TYPE24753; t13904.s1.value.structure_type24753 = &t13905; /* x213765 */ t13903.s0.tag = STRUCTURE_TYPE24753; t13903.s0.value.structure_type24753 = &t13904; /* x213766 */ t13903.s1.tag = NULL_TYPE; /* x213767 */ t13902.s1.tag = STRUCTURE_TYPE24753; t13902.s1.value.structure_type24753 = &t13903; /* x213768 */ t13901.s0.tag = STRUCTURE_TYPE24753; t13901.s0.value.structure_type24753 = &t13902; /* x213769 */ t13901.s1.tag = NULL_TYPE; /* x213770 */ t13900.s1.tag = STRUCTURE_TYPE24753; t13900.s1.value.structure_type24753 = &t13901; /* x213771 */ t13899.s1.tag = STRUCTURE_TYPE24753; t13899.s1.value.structure_type24753 = &t13900; /* x213772 */ t13898.s1.tag = STRUCTURE_TYPE24753; t13898.s1.value.structure_type24753 = &t13899; /* x213773 */ t13897.s0.tag = STRUCTURE_TYPE24753; t13897.s0.value.structure_type24753 = &t13898; /* x213774 */ t13897.s1.tag = NULL_TYPE; /* x213775 */ t13896.s1.tag = STRUCTURE_TYPE24753; t13896.s1.value.structure_type24753 = &t13897; /* x213776 */ t13895.s1.tag = STRUCTURE_TYPE24753; t13895.s1.value.structure_type24753 = &t13896; /* x213777 */ t13894.s1.tag = STRUCTURE_TYPE24753; t13894.s1.value.structure_type24753 = &t13895; /* x213778 */ t13893.s0.tag = STRUCTURE_TYPE24753; t13893.s0.value.structure_type24753 = &t13894; /* x213779 */ t13907.s0.tag = EXTERNAL_SYMBOL_TYPE; t13907.s0.value.external_symbol_type = q600; /* x213780 */ t13908.s0.tag = EXTERNAL_SYMBOL_TYPE; t13908.s0.value.external_symbol_type = q540; /* x213781 */ t13909.s0.tag = EXTERNAL_SYMBOL_TYPE; t13909.s0.value.external_symbol_type = q608; /* x213782 */ t13910.s0.tag = FIXNUM_TYPE; t13910.s0.value.fixnum_type = 2; /* x213783 */ t13911.s0.tag = EXTERNAL_SYMBOL_TYPE; t13911.s0.value.external_symbol_type = q601; /* x213784 */ t13912.s0.tag = EXTERNAL_SYMBOL_TYPE; t13912.s0.value.external_symbol_type = q602; /* x213785 */ t13913.s0.tag = EXTERNAL_SYMBOL_TYPE; t13913.s0.value.external_symbol_type = q603; /* x213786 */ t13913.s1.tag = NULL_TYPE; /* x213787 */ t13912.s1.tag = STRUCTURE_TYPE24753; t13912.s1.value.structure_type24753 = &t13913; /* x213788 */ t13911.s1.tag = STRUCTURE_TYPE24753; t13911.s1.value.structure_type24753 = &t13912; /* x213789 */ t13910.s1.tag = STRUCTURE_TYPE24753; t13910.s1.value.structure_type24753 = &t13911; /* x213790 */ t13909.s1.tag = STRUCTURE_TYPE24753; t13909.s1.value.structure_type24753 = &t13910; /* x213791 */ t13908.s1.tag = STRUCTURE_TYPE24753; t13908.s1.value.structure_type24753 = &t13909; /* x213792 */ t13907.s1.tag = STRUCTURE_TYPE24753; t13907.s1.value.structure_type24753 = &t13908; /* x213793 */ t13906.s0.tag = STRUCTURE_TYPE24753; t13906.s0.value.structure_type24753 = &t13907; /* x213794 */ t13915.s0.tag = EXTERNAL_SYMBOL_TYPE; t13915.s0.value.external_symbol_type = q605; /* x213795 */ t13916.s0.tag = EXTERNAL_SYMBOL_TYPE; t13916.s0.value.external_symbol_type = q540; /* x213796 */ t13917.s0.tag = EXTERNAL_SYMBOL_TYPE; t13917.s0.value.external_symbol_type = q608; /* x213797 */ t13918.s0.tag = EXTERNAL_SYMBOL_TYPE; t13918.s0.value.external_symbol_type = q606; /* x213798 */ t13918.s1.tag = NULL_TYPE; /* x213799 */ t13917.s1.tag = STRUCTURE_TYPE24753; t13917.s1.value.structure_type24753 = &t13918; /* x213800 */ t13916.s1.tag = STRUCTURE_TYPE24753; t13916.s1.value.structure_type24753 = &t13917; /* x213801 */ t13915.s1.tag = STRUCTURE_TYPE24753; t13915.s1.value.structure_type24753 = &t13916; /* x213802 */ t13914.s0.tag = STRUCTURE_TYPE24753; t13914.s0.value.structure_type24753 = &t13915; /* x213803 */ t13920.s0.tag = EXTERNAL_SYMBOL_TYPE; t13920.s0.value.external_symbol_type = q42; /* x213804 */ t13921.s0.tag = EXTERNAL_SYMBOL_TYPE; t13921.s0.value.external_symbol_type = q609; /* x213805 */ t13923.s0.tag = EXTERNAL_SYMBOL_TYPE; t13923.s0.value.external_symbol_type = q596; /* x213806 */ t13924.s0.tag = EXTERNAL_SYMBOL_TYPE; t13924.s0.value.external_symbol_type = q540; /* x213807 */ t13925.s0.tag = EXTERNAL_SYMBOL_TYPE; t13925.s0.value.external_symbol_type = q578; /* x213808 */ t13926.s0.tag = FIXNUM_TYPE; t13926.s0.value.fixnum_type = 0; /* x213809 */ t13928.s0.tag = EXTERNAL_SYMBOL_TYPE; t13928.s0.value.external_symbol_type = q597; /* x213810 */ t13928.s1.tag = NULL_TYPE; /* x213811 */ t13927.s0.tag = STRUCTURE_TYPE24753; t13927.s0.value.structure_type24753 = &t13928; /* x213812 */ t13927.s1.tag = NULL_TYPE; /* x213813 */ t13926.s1.tag = STRUCTURE_TYPE24753; t13926.s1.value.structure_type24753 = &t13927; /* x213814 */ t13925.s1.tag = STRUCTURE_TYPE24753; t13925.s1.value.structure_type24753 = &t13926; /* x213815 */ t13924.s1.tag = STRUCTURE_TYPE24753; t13924.s1.value.structure_type24753 = &t13925; /* x213816 */ t13923.s1.tag = STRUCTURE_TYPE24753; t13923.s1.value.structure_type24753 = &t13924; /* x213817 */ t13922.s0.tag = STRUCTURE_TYPE24753; t13922.s0.value.structure_type24753 = &t13923; /* x213818 */ t13922.s1.tag = NULL_TYPE; /* x213819 */ t13921.s1.tag = STRUCTURE_TYPE24753; t13921.s1.value.structure_type24753 = &t13922; /* x213820 */ t13920.s1.tag = STRUCTURE_TYPE24753; t13920.s1.value.structure_type24753 = &t13921; /* x213821 */ t13919.s0.tag = STRUCTURE_TYPE24753; t13919.s0.value.structure_type24753 = &t13920; /* x213822 */ t13930.s0.tag = EXTERNAL_SYMBOL_TYPE; t13930.s0.value.external_symbol_type = q598; /* x213823 */ t13931.s0.tag = EXTERNAL_SYMBOL_TYPE; t13931.s0.value.external_symbol_type = q540; /* x213824 */ t13932.s0.tag = EXTERNAL_SYMBOL_TYPE; t13932.s0.value.external_symbol_type = q609; /* x213825 */ t13934.s0.tag = EXTERNAL_SYMBOL_TYPE; t13934.s0.value.external_symbol_type = q43; /* x213826 */ t13935.s0.tag = EXTERNAL_SYMBOL_TYPE; t13935.s0.value.external_symbol_type = q528; /* x213827 */ t13936.s0.tag = EXTERNAL_SYMBOL_TYPE; t13936.s0.value.external_symbol_type = q551; /* x213828 */ t13938.s0.tag = EXTERNAL_SYMBOL_TYPE; t13938.s0.value.external_symbol_type = q582; /* x213829 */ t13940.s0.tag = EXTERNAL_SYMBOL_TYPE; t13940.s0.value.external_symbol_type = q583; /* x213830 */ t13941.s0.tag = EXTERNAL_SYMBOL_TYPE; t13941.s0.value.external_symbol_type = q555; /* x213831 */ t13941.s1.tag = NULL_TYPE; /* x213832 */ t13940.s1.tag = STRUCTURE_TYPE24753; t13940.s1.value.structure_type24753 = &t13941; /* x213833 */ t13939.s0.tag = STRUCTURE_TYPE24753; t13939.s0.value.structure_type24753 = &t13940; /* x213834 */ t13939.s1.tag = NULL_TYPE; /* x213835 */ t13938.s1.tag = STRUCTURE_TYPE24753; t13938.s1.value.structure_type24753 = &t13939; /* x213836 */ t13937.s0.tag = STRUCTURE_TYPE24753; t13937.s0.value.structure_type24753 = &t13938; /* x213837 */ t13937.s1.tag = NULL_TYPE; /* x213838 */ t13936.s1.tag = STRUCTURE_TYPE24753; t13936.s1.value.structure_type24753 = &t13937; /* x213839 */ t13935.s1.tag = STRUCTURE_TYPE24753; t13935.s1.value.structure_type24753 = &t13936; /* x213840 */ t13934.s1.tag = STRUCTURE_TYPE24753; t13934.s1.value.structure_type24753 = &t13935; /* x213841 */ t13933.s0.tag = STRUCTURE_TYPE24753; t13933.s0.value.structure_type24753 = &t13934; /* x213842 */ t13933.s1.tag = NULL_TYPE; /* x213843 */ t13932.s1.tag = STRUCTURE_TYPE24753; t13932.s1.value.structure_type24753 = &t13933; /* x213844 */ t13931.s1.tag = STRUCTURE_TYPE24753; t13931.s1.value.structure_type24753 = &t13932; /* x213845 */ t13930.s1.tag = STRUCTURE_TYPE24753; t13930.s1.value.structure_type24753 = &t13931; /* x213846 */ t13929.s0.tag = STRUCTURE_TYPE24753; t13929.s0.value.structure_type24753 = &t13930; /* x213847 */ t13943.s0.tag = EXTERNAL_SYMBOL_TYPE; t13943.s0.value.external_symbol_type = q599; /* x213848 */ t13944.s0.tag = EXTERNAL_SYMBOL_TYPE; t13944.s0.value.external_symbol_type = q540; /* x213849 */ t13945.s0.tag = EXTERNAL_SYMBOL_TYPE; t13945.s0.value.external_symbol_type = q609; /* x213850 */ t13947.s0.tag = EXTERNAL_SYMBOL_TYPE; t13947.s0.value.external_symbol_type = q43; /* x213851 */ t13948.s0.tag = EXTERNAL_SYMBOL_TYPE; t13948.s0.value.external_symbol_type = q528; /* x213852 */ t13949.s0.tag = EXTERNAL_SYMBOL_TYPE; t13949.s0.value.external_symbol_type = q553; /* x213853 */ t13951.s0.tag = EXTERNAL_SYMBOL_TYPE; t13951.s0.value.external_symbol_type = q582; /* x213854 */ t13953.s0.tag = EXTERNAL_SYMBOL_TYPE; t13953.s0.value.external_symbol_type = q583; /* x213855 */ t13954.s0.tag = EXTERNAL_SYMBOL_TYPE; t13954.s0.value.external_symbol_type = q560; /* x213856 */ t13954.s1.tag = NULL_TYPE; /* x213857 */ t13953.s1.tag = STRUCTURE_TYPE24753; t13953.s1.value.structure_type24753 = &t13954; /* x213858 */ t13952.s0.tag = STRUCTURE_TYPE24753; t13952.s0.value.structure_type24753 = &t13953; /* x213859 */ t13952.s1.tag = NULL_TYPE; /* x213860 */ t13951.s1.tag = STRUCTURE_TYPE24753; t13951.s1.value.structure_type24753 = &t13952; /* x213861 */ t13950.s0.tag = STRUCTURE_TYPE24753; t13950.s0.value.structure_type24753 = &t13951; /* x213862 */ t13950.s1.tag = NULL_TYPE; /* x213863 */ t13949.s1.tag = STRUCTURE_TYPE24753; t13949.s1.value.structure_type24753 = &t13950; /* x213864 */ t13948.s1.tag = STRUCTURE_TYPE24753; t13948.s1.value.structure_type24753 = &t13949; /* x213865 */ t13947.s1.tag = STRUCTURE_TYPE24753; t13947.s1.value.structure_type24753 = &t13948; /* x213866 */ t13946.s0.tag = STRUCTURE_TYPE24753; t13946.s0.value.structure_type24753 = &t13947; /* x213867 */ t13946.s1.tag = NULL_TYPE; /* x213868 */ t13945.s1.tag = STRUCTURE_TYPE24753; t13945.s1.value.structure_type24753 = &t13946; /* x213869 */ t13944.s1.tag = STRUCTURE_TYPE24753; t13944.s1.value.structure_type24753 = &t13945; /* x213870 */ t13943.s1.tag = STRUCTURE_TYPE24753; t13943.s1.value.structure_type24753 = &t13944; /* x213871 */ t13942.s0.tag = STRUCTURE_TYPE24753; t13942.s0.value.structure_type24753 = &t13943; /* x213872 */ t13956.s0.tag = EXTERNAL_SYMBOL_TYPE; t13956.s0.value.external_symbol_type = q600; /* x213873 */ t13957.s0.tag = EXTERNAL_SYMBOL_TYPE; t13957.s0.value.external_symbol_type = q540; /* x213874 */ t13958.s0.tag = EXTERNAL_SYMBOL_TYPE; t13958.s0.value.external_symbol_type = q609; /* x213875 */ t13959.s0.tag = FIXNUM_TYPE; t13959.s0.value.fixnum_type = 5; /* x213876 */ t13960.s0.tag = EXTERNAL_SYMBOL_TYPE; t13960.s0.value.external_symbol_type = q601; /* x213877 */ t13961.s0.tag = EXTERNAL_SYMBOL_TYPE; t13961.s0.value.external_symbol_type = q602; /* x213878 */ t13962.s0.tag = EXTERNAL_SYMBOL_TYPE; t13962.s0.value.external_symbol_type = q603; /* x213879 */ t13962.s1.tag = NULL_TYPE; /* x213880 */ t13961.s1.tag = STRUCTURE_TYPE24753; t13961.s1.value.structure_type24753 = &t13962; /* x213881 */ t13960.s1.tag = STRUCTURE_TYPE24753; t13960.s1.value.structure_type24753 = &t13961; /* x213882 */ t13959.s1.tag = STRUCTURE_TYPE24753; t13959.s1.value.structure_type24753 = &t13960; /* x213883 */ t13958.s1.tag = STRUCTURE_TYPE24753; t13958.s1.value.structure_type24753 = &t13959; /* x213884 */ t13957.s1.tag = STRUCTURE_TYPE24753; t13957.s1.value.structure_type24753 = &t13958; /* x213885 */ t13956.s1.tag = STRUCTURE_TYPE24753; t13956.s1.value.structure_type24753 = &t13957; /* x213886 */ t13955.s0.tag = STRUCTURE_TYPE24753; t13955.s0.value.structure_type24753 = &t13956; /* x213887 */ t13964.s0.tag = EXTERNAL_SYMBOL_TYPE; t13964.s0.value.external_symbol_type = q42; /* x213888 */ t13965.s0.tag = EXTERNAL_SYMBOL_TYPE; t13965.s0.value.external_symbol_type = q610; /* x213889 */ t13967.s0.tag = EXTERNAL_SYMBOL_TYPE; t13967.s0.value.external_symbol_type = q596; /* x213890 */ t13968.s0.tag = EXTERNAL_SYMBOL_TYPE; t13968.s0.value.external_symbol_type = q540; /* x213891 */ t13969.s0.tag = EXTERNAL_SYMBOL_TYPE; t13969.s0.value.external_symbol_type = q578; /* x213892 */ t13970.s0.tag = FIXNUM_TYPE; t13970.s0.value.fixnum_type = 0; /* x213893 */ t13972.s0.tag = EXTERNAL_SYMBOL_TYPE; t13972.s0.value.external_symbol_type = q597; /* x213894 */ t13972.s1.tag = NULL_TYPE; /* x213895 */ t13971.s0.tag = STRUCTURE_TYPE24753; t13971.s0.value.structure_type24753 = &t13972; /* x213896 */ t13971.s1.tag = NULL_TYPE; /* x213897 */ t13970.s1.tag = STRUCTURE_TYPE24753; t13970.s1.value.structure_type24753 = &t13971; /* x213898 */ t13969.s1.tag = STRUCTURE_TYPE24753; t13969.s1.value.structure_type24753 = &t13970; /* x213899 */ t13968.s1.tag = STRUCTURE_TYPE24753; t13968.s1.value.structure_type24753 = &t13969; /* x213900 */ t13967.s1.tag = STRUCTURE_TYPE24753; t13967.s1.value.structure_type24753 = &t13968; /* x213901 */ t13966.s0.tag = STRUCTURE_TYPE24753; t13966.s0.value.structure_type24753 = &t13967; /* x213902 */ t13966.s1.tag = NULL_TYPE; /* x213903 */ t13965.s1.tag = STRUCTURE_TYPE24753; t13965.s1.value.structure_type24753 = &t13966; /* x213904 */ t13964.s1.tag = STRUCTURE_TYPE24753; t13964.s1.value.structure_type24753 = &t13965; /* x213905 */ t13963.s0.tag = STRUCTURE_TYPE24753; t13963.s0.value.structure_type24753 = &t13964; /* x213906 */ t13974.s0.tag = EXTERNAL_SYMBOL_TYPE; t13974.s0.value.external_symbol_type = q598; /* x213907 */ t13975.s0.tag = EXTERNAL_SYMBOL_TYPE; t13975.s0.value.external_symbol_type = q540; /* x213908 */ t13976.s0.tag = EXTERNAL_SYMBOL_TYPE; t13976.s0.value.external_symbol_type = q610; /* x213909 */ t13978.s0.tag = EXTERNAL_SYMBOL_TYPE; t13978.s0.value.external_symbol_type = q43; /* x213910 */ t13979.s0.tag = EXTERNAL_SYMBOL_TYPE; t13979.s0.value.external_symbol_type = q528; /* x213911 */ t13980.s0.tag = EXTERNAL_SYMBOL_TYPE; t13980.s0.value.external_symbol_type = q553; /* x213912 */ t13982.s0.tag = EXTERNAL_SYMBOL_TYPE; t13982.s0.value.external_symbol_type = q582; /* x213913 */ t13984.s0.tag = EXTERNAL_SYMBOL_TYPE; t13984.s0.value.external_symbol_type = q583; /* x213914 */ t13985.s0.tag = EXTERNAL_SYMBOL_TYPE; t13985.s0.value.external_symbol_type = q560; /* x213915 */ t13985.s1.tag = NULL_TYPE; /* x213916 */ t13984.s1.tag = STRUCTURE_TYPE24753; t13984.s1.value.structure_type24753 = &t13985; /* x213917 */ t13983.s0.tag = STRUCTURE_TYPE24753; t13983.s0.value.structure_type24753 = &t13984; /* x213918 */ t13983.s1.tag = NULL_TYPE; /* x213919 */ t13982.s1.tag = STRUCTURE_TYPE24753; t13982.s1.value.structure_type24753 = &t13983; /* x213920 */ t13981.s0.tag = STRUCTURE_TYPE24753; t13981.s0.value.structure_type24753 = &t13982; /* x213921 */ t13981.s1.tag = NULL_TYPE; /* x213922 */ t13980.s1.tag = STRUCTURE_TYPE24753; t13980.s1.value.structure_type24753 = &t13981; /* x213923 */ t13979.s1.tag = STRUCTURE_TYPE24753; t13979.s1.value.structure_type24753 = &t13980; /* x213924 */ t13978.s1.tag = STRUCTURE_TYPE24753; t13978.s1.value.structure_type24753 = &t13979; /* x213925 */ t13977.s0.tag = STRUCTURE_TYPE24753; t13977.s0.value.structure_type24753 = &t13978; /* x213926 */ t13977.s1.tag = NULL_TYPE; /* x213927 */ t13976.s1.tag = STRUCTURE_TYPE24753; t13976.s1.value.structure_type24753 = &t13977; /* x213928 */ t13975.s1.tag = STRUCTURE_TYPE24753; t13975.s1.value.structure_type24753 = &t13976; /* x213929 */ t13974.s1.tag = STRUCTURE_TYPE24753; t13974.s1.value.structure_type24753 = &t13975; /* x213930 */ t13973.s0.tag = STRUCTURE_TYPE24753; t13973.s0.value.structure_type24753 = &t13974; /* x213931 */ t13987.s0.tag = EXTERNAL_SYMBOL_TYPE; t13987.s0.value.external_symbol_type = q599; /* x213932 */ t13988.s0.tag = EXTERNAL_SYMBOL_TYPE; t13988.s0.value.external_symbol_type = q540; /* x213933 */ t13989.s0.tag = EXTERNAL_SYMBOL_TYPE; t13989.s0.value.external_symbol_type = q610; /* x213934 */ t13991.s0.tag = EXTERNAL_SYMBOL_TYPE; t13991.s0.value.external_symbol_type = q43; /* x213935 */ t13992.s0.tag = EXTERNAL_SYMBOL_TYPE; t13992.s0.value.external_symbol_type = q528; /* x213936 */ t13993.s0.tag = EXTERNAL_SYMBOL_TYPE; t13993.s0.value.external_symbol_type = q551; /* x213937 */ t13995.s0.tag = EXTERNAL_SYMBOL_TYPE; t13995.s0.value.external_symbol_type = q582; /* x213938 */ t13997.s0.tag = EXTERNAL_SYMBOL_TYPE; t13997.s0.value.external_symbol_type = q583; /* x213939 */ t13998.s0.tag = EXTERNAL_SYMBOL_TYPE; t13998.s0.value.external_symbol_type = q555; /* x213940 */ t13998.s1.tag = NULL_TYPE; /* x213941 */ t13997.s1.tag = STRUCTURE_TYPE24753; t13997.s1.value.structure_type24753 = &t13998; /* x213942 */ t13996.s0.tag = STRUCTURE_TYPE24753; t13996.s0.value.structure_type24753 = &t13997; /* x213943 */ t13996.s1.tag = NULL_TYPE; /* x213944 */ t13995.s1.tag = STRUCTURE_TYPE24753; t13995.s1.value.structure_type24753 = &t13996; /* x213945 */ t13994.s0.tag = STRUCTURE_TYPE24753; t13994.s0.value.structure_type24753 = &t13995; /* x213946 */ t13994.s1.tag = NULL_TYPE; /* x213947 */ t13993.s1.tag = STRUCTURE_TYPE24753; t13993.s1.value.structure_type24753 = &t13994; /* x213948 */ t13992.s1.tag = STRUCTURE_TYPE24753; t13992.s1.value.structure_type24753 = &t13993; /* x213949 */ t13991.s1.tag = STRUCTURE_TYPE24753; t13991.s1.value.structure_type24753 = &t13992; /* x213950 */ t13990.s0.tag = STRUCTURE_TYPE24753; t13990.s0.value.structure_type24753 = &t13991; /* x213951 */ t13990.s1.tag = NULL_TYPE; /* x213952 */ t13989.s1.tag = STRUCTURE_TYPE24753; t13989.s1.value.structure_type24753 = &t13990; /* x213953 */ t13988.s1.tag = STRUCTURE_TYPE24753; t13988.s1.value.structure_type24753 = &t13989; /* x213954 */ t13987.s1.tag = STRUCTURE_TYPE24753; t13987.s1.value.structure_type24753 = &t13988; /* x213955 */ t13986.s0.tag = STRUCTURE_TYPE24753; t13986.s0.value.structure_type24753 = &t13987; /* x213956 */ t14000.s0.tag = EXTERNAL_SYMBOL_TYPE; t14000.s0.value.external_symbol_type = q600; /* x213957 */ t14001.s0.tag = EXTERNAL_SYMBOL_TYPE; t14001.s0.value.external_symbol_type = q540; /* x213958 */ t14002.s0.tag = EXTERNAL_SYMBOL_TYPE; t14002.s0.value.external_symbol_type = q610; /* x213959 */ t14003.s0.tag = FIXNUM_TYPE; t14003.s0.value.fixnum_type = 5; /* x213960 */ t14004.s0.tag = EXTERNAL_SYMBOL_TYPE; t14004.s0.value.external_symbol_type = q601; /* x213961 */ t14005.s0.tag = EXTERNAL_SYMBOL_TYPE; t14005.s0.value.external_symbol_type = q602; /* x213962 */ t14006.s0.tag = EXTERNAL_SYMBOL_TYPE; t14006.s0.value.external_symbol_type = q603; /* x213963 */ t14006.s1.tag = NULL_TYPE; /* x213964 */ t14005.s1.tag = STRUCTURE_TYPE24753; t14005.s1.value.structure_type24753 = &t14006; /* x213965 */ t14004.s1.tag = STRUCTURE_TYPE24753; t14004.s1.value.structure_type24753 = &t14005; /* x213966 */ t14003.s1.tag = STRUCTURE_TYPE24753; t14003.s1.value.structure_type24753 = &t14004; /* x213967 */ t14002.s1.tag = STRUCTURE_TYPE24753; t14002.s1.value.structure_type24753 = &t14003; /* x213968 */ t14001.s1.tag = STRUCTURE_TYPE24753; t14001.s1.value.structure_type24753 = &t14002; /* x213969 */ t14000.s1.tag = STRUCTURE_TYPE24753; t14000.s1.value.structure_type24753 = &t14001; /* x213970 */ t13999.s0.tag = STRUCTURE_TYPE24753; t13999.s0.value.structure_type24753 = &t14000; /* x213971 */ t14008.s0.tag = EXTERNAL_SYMBOL_TYPE; t14008.s0.value.external_symbol_type = q605; /* x213972 */ t14009.s0.tag = EXTERNAL_SYMBOL_TYPE; t14009.s0.value.external_symbol_type = q540; /* x213973 */ t14010.s0.tag = EXTERNAL_SYMBOL_TYPE; t14010.s0.value.external_symbol_type = q610; /* x213974 */ t14011.s0.tag = EXTERNAL_SYMBOL_TYPE; t14011.s0.value.external_symbol_type = q606; /* x213975 */ t14011.s1.tag = NULL_TYPE; /* x213976 */ t14010.s1.tag = STRUCTURE_TYPE24753; t14010.s1.value.structure_type24753 = &t14011; /* x213977 */ t14009.s1.tag = STRUCTURE_TYPE24753; t14009.s1.value.structure_type24753 = &t14010; /* x213978 */ t14008.s1.tag = STRUCTURE_TYPE24753; t14008.s1.value.structure_type24753 = &t14009; /* x213979 */ t14007.s0.tag = STRUCTURE_TYPE24753; t14007.s0.value.structure_type24753 = &t14008; /* x213980 */ t14013.s0.tag = EXTERNAL_SYMBOL_TYPE; t14013.s0.value.external_symbol_type = q42; /* x213981 */ t14014.s0.tag = EXTERNAL_SYMBOL_TYPE; t14014.s0.value.external_symbol_type = q611; /* x213982 */ t14016.s0.tag = EXTERNAL_SYMBOL_TYPE; t14016.s0.value.external_symbol_type = q596; /* x213983 */ t14017.s0.tag = EXTERNAL_SYMBOL_TYPE; t14017.s0.value.external_symbol_type = q540; /* x213984 */ t14018.s0.tag = EXTERNAL_SYMBOL_TYPE; t14018.s0.value.external_symbol_type = q578; /* x213985 */ t14019.s0.tag = FIXNUM_TYPE; t14019.s0.value.fixnum_type = 0; /* x213986 */ t14021.s0.tag = EXTERNAL_SYMBOL_TYPE; t14021.s0.value.external_symbol_type = q597; /* x213987 */ t14021.s1.tag = NULL_TYPE; /* x213988 */ t14020.s0.tag = STRUCTURE_TYPE24753; t14020.s0.value.structure_type24753 = &t14021; /* x213989 */ t14020.s1.tag = NULL_TYPE; /* x213990 */ t14019.s1.tag = STRUCTURE_TYPE24753; t14019.s1.value.structure_type24753 = &t14020; /* x213991 */ t14018.s1.tag = STRUCTURE_TYPE24753; t14018.s1.value.structure_type24753 = &t14019; /* x213992 */ t14017.s1.tag = STRUCTURE_TYPE24753; t14017.s1.value.structure_type24753 = &t14018; /* x213993 */ t14016.s1.tag = STRUCTURE_TYPE24753; t14016.s1.value.structure_type24753 = &t14017; /* x213994 */ t14015.s0.tag = STRUCTURE_TYPE24753; t14015.s0.value.structure_type24753 = &t14016; /* x213995 */ t14015.s1.tag = NULL_TYPE; /* x213996 */ t14014.s1.tag = STRUCTURE_TYPE24753; t14014.s1.value.structure_type24753 = &t14015; /* x213997 */ t14013.s1.tag = STRUCTURE_TYPE24753; t14013.s1.value.structure_type24753 = &t14014; /* x213998 */ t14012.s0.tag = STRUCTURE_TYPE24753; t14012.s0.value.structure_type24753 = &t14013; /* x213999 */ t14023.s0.tag = EXTERNAL_SYMBOL_TYPE; t14023.s0.value.external_symbol_type = q598; /* x214000 */ t14024.s0.tag = EXTERNAL_SYMBOL_TYPE; t14024.s0.value.external_symbol_type = q540; /* x214001 */ t14025.s0.tag = EXTERNAL_SYMBOL_TYPE; t14025.s0.value.external_symbol_type = q611; /* x214002 */ t14027.s0.tag = EXTERNAL_SYMBOL_TYPE; t14027.s0.value.external_symbol_type = q43; /* x214003 */ t14028.s0.tag = EXTERNAL_SYMBOL_TYPE; t14028.s0.value.external_symbol_type = q528; /* x214004 */ t14029.s0.tag = EXTERNAL_SYMBOL_TYPE; t14029.s0.value.external_symbol_type = q551; /* x214005 */ t14031.s0.tag = EXTERNAL_SYMBOL_TYPE; t14031.s0.value.external_symbol_type = q582; /* x214006 */ t14033.s0.tag = EXTERNAL_SYMBOL_TYPE; t14033.s0.value.external_symbol_type = q583; /* x214007 */ t14034.s0.tag = EXTERNAL_SYMBOL_TYPE; t14034.s0.value.external_symbol_type = q555; /* x214008 */ t14034.s1.tag = NULL_TYPE; /* x214009 */ t14033.s1.tag = STRUCTURE_TYPE24753; t14033.s1.value.structure_type24753 = &t14034; /* x214010 */ t14032.s0.tag = STRUCTURE_TYPE24753; t14032.s0.value.structure_type24753 = &t14033; /* x214011 */ t14032.s1.tag = NULL_TYPE; /* x214012 */ t14031.s1.tag = STRUCTURE_TYPE24753; t14031.s1.value.structure_type24753 = &t14032; /* x214013 */ t14030.s0.tag = STRUCTURE_TYPE24753; t14030.s0.value.structure_type24753 = &t14031; /* x214014 */ t14030.s1.tag = NULL_TYPE; /* x214015 */ t14029.s1.tag = STRUCTURE_TYPE24753; t14029.s1.value.structure_type24753 = &t14030; /* x214016 */ t14028.s1.tag = STRUCTURE_TYPE24753; t14028.s1.value.structure_type24753 = &t14029; /* x214017 */ t14027.s1.tag = STRUCTURE_TYPE24753; t14027.s1.value.structure_type24753 = &t14028; /* x214018 */ t14026.s0.tag = STRUCTURE_TYPE24753; t14026.s0.value.structure_type24753 = &t14027; /* x214019 */ t14026.s1.tag = NULL_TYPE; /* x214020 */ t14025.s1.tag = STRUCTURE_TYPE24753; t14025.s1.value.structure_type24753 = &t14026; /* x214021 */ t14024.s1.tag = STRUCTURE_TYPE24753; t14024.s1.value.structure_type24753 = &t14025; /* x214022 */ t14023.s1.tag = STRUCTURE_TYPE24753; t14023.s1.value.structure_type24753 = &t14024; /* x214023 */ t14022.s0.tag = STRUCTURE_TYPE24753; t14022.s0.value.structure_type24753 = &t14023; /* x214024 */ t14036.s0.tag = EXTERNAL_SYMBOL_TYPE; t14036.s0.value.external_symbol_type = q599; /* x214025 */ t14037.s0.tag = EXTERNAL_SYMBOL_TYPE; t14037.s0.value.external_symbol_type = q540; /* x214026 */ t14038.s0.tag = EXTERNAL_SYMBOL_TYPE; t14038.s0.value.external_symbol_type = q611; /* x214027 */ t14040.s0.tag = EXTERNAL_SYMBOL_TYPE; t14040.s0.value.external_symbol_type = q43; /* x214028 */ t14041.s0.tag = EXTERNAL_SYMBOL_TYPE; t14041.s0.value.external_symbol_type = q528; /* x214029 */ t14042.s0.tag = EXTERNAL_SYMBOL_TYPE; t14042.s0.value.external_symbol_type = q553; /* x214030 */ t14044.s0.tag = EXTERNAL_SYMBOL_TYPE; t14044.s0.value.external_symbol_type = q582; /* x214031 */ t14046.s0.tag = EXTERNAL_SYMBOL_TYPE; t14046.s0.value.external_symbol_type = q583; /* x214032 */ t14047.s0.tag = EXTERNAL_SYMBOL_TYPE; t14047.s0.value.external_symbol_type = q560; /* x214033 */ t14047.s1.tag = NULL_TYPE; /* x214034 */ t14046.s1.tag = STRUCTURE_TYPE24753; t14046.s1.value.structure_type24753 = &t14047; /* x214035 */ t14045.s0.tag = STRUCTURE_TYPE24753; t14045.s0.value.structure_type24753 = &t14046; /* x214036 */ t14045.s1.tag = NULL_TYPE; /* x214037 */ t14044.s1.tag = STRUCTURE_TYPE24753; t14044.s1.value.structure_type24753 = &t14045; /* x214038 */ t14043.s0.tag = STRUCTURE_TYPE24753; t14043.s0.value.structure_type24753 = &t14044; /* x214039 */ t14043.s1.tag = NULL_TYPE; /* x214040 */ t14042.s1.tag = STRUCTURE_TYPE24753; t14042.s1.value.structure_type24753 = &t14043; /* x214041 */ t14041.s1.tag = STRUCTURE_TYPE24753; t14041.s1.value.structure_type24753 = &t14042; /* x214042 */ t14040.s1.tag = STRUCTURE_TYPE24753; t14040.s1.value.structure_type24753 = &t14041; /* x214043 */ t14039.s0.tag = STRUCTURE_TYPE24753; t14039.s0.value.structure_type24753 = &t14040; /* x214044 */ t14039.s1.tag = NULL_TYPE; /* x214045 */ t14038.s1.tag = STRUCTURE_TYPE24753; t14038.s1.value.structure_type24753 = &t14039; /* x214046 */ t14037.s1.tag = STRUCTURE_TYPE24753; t14037.s1.value.structure_type24753 = &t14038; /* x214047 */ t14036.s1.tag = STRUCTURE_TYPE24753; t14036.s1.value.structure_type24753 = &t14037; /* x214048 */ t14035.s0.tag = STRUCTURE_TYPE24753; t14035.s0.value.structure_type24753 = &t14036; /* x214049 */ t14049.s0.tag = EXTERNAL_SYMBOL_TYPE; t14049.s0.value.external_symbol_type = q600; /* x214050 */ t14050.s0.tag = EXTERNAL_SYMBOL_TYPE; t14050.s0.value.external_symbol_type = q540; /* x214051 */ t14051.s0.tag = EXTERNAL_SYMBOL_TYPE; t14051.s0.value.external_symbol_type = q611; /* x214052 */ t14052.s0.tag = FIXNUM_TYPE; t14052.s0.value.fixnum_type = 0; /* x214053 */ t14053.s0.tag = EXTERNAL_SYMBOL_TYPE; t14053.s0.value.external_symbol_type = q612; /* x214054 */ t14054.s0.tag = EXTERNAL_SYMBOL_TYPE; t14054.s0.value.external_symbol_type = q602; /* x214055 */ t14055.s0.tag = EXTERNAL_SYMBOL_TYPE; t14055.s0.value.external_symbol_type = q603; /* x214056 */ t14055.s1.tag = NULL_TYPE; /* x214057 */ t14054.s1.tag = STRUCTURE_TYPE24753; t14054.s1.value.structure_type24753 = &t14055; /* x214058 */ t14053.s1.tag = STRUCTURE_TYPE24753; t14053.s1.value.structure_type24753 = &t14054; /* x214059 */ t14052.s1.tag = STRUCTURE_TYPE24753; t14052.s1.value.structure_type24753 = &t14053; /* x214060 */ t14051.s1.tag = STRUCTURE_TYPE24753; t14051.s1.value.structure_type24753 = &t14052; /* x214061 */ t14050.s1.tag = STRUCTURE_TYPE24753; t14050.s1.value.structure_type24753 = &t14051; /* x214062 */ t14049.s1.tag = STRUCTURE_TYPE24753; t14049.s1.value.structure_type24753 = &t14050; /* x214063 */ t14048.s0.tag = STRUCTURE_TYPE24753; t14048.s0.value.structure_type24753 = &t14049; /* x214064 */ t14057.s0.tag = EXTERNAL_SYMBOL_TYPE; t14057.s0.value.external_symbol_type = q42; /* x214065 */ t14058.s0.tag = EXTERNAL_SYMBOL_TYPE; t14058.s0.value.external_symbol_type = q613; /* x214066 */ t14060.s0.tag = EXTERNAL_SYMBOL_TYPE; t14060.s0.value.external_symbol_type = q596; /* x214067 */ t14061.s0.tag = EXTERNAL_SYMBOL_TYPE; t14061.s0.value.external_symbol_type = q540; /* x214068 */ t14062.s0.tag = EXTERNAL_SYMBOL_TYPE; t14062.s0.value.external_symbol_type = q578; /* x214069 */ t14063.s0.tag = FIXNUM_TYPE; t14063.s0.value.fixnum_type = 0; /* x214070 */ t14065.s0.tag = EXTERNAL_SYMBOL_TYPE; t14065.s0.value.external_symbol_type = q597; /* x214071 */ t14065.s1.tag = NULL_TYPE; /* x214072 */ t14064.s0.tag = STRUCTURE_TYPE24753; t14064.s0.value.structure_type24753 = &t14065; /* x214073 */ t14064.s1.tag = NULL_TYPE; /* x214074 */ t14063.s1.tag = STRUCTURE_TYPE24753; t14063.s1.value.structure_type24753 = &t14064; /* x214075 */ t14062.s1.tag = STRUCTURE_TYPE24753; t14062.s1.value.structure_type24753 = &t14063; /* x214076 */ t14061.s1.tag = STRUCTURE_TYPE24753; t14061.s1.value.structure_type24753 = &t14062; /* x214077 */ t14060.s1.tag = STRUCTURE_TYPE24753; t14060.s1.value.structure_type24753 = &t14061; /* x214078 */ t14059.s0.tag = STRUCTURE_TYPE24753; t14059.s0.value.structure_type24753 = &t14060; /* x214079 */ t14059.s1.tag = NULL_TYPE; /* x214080 */ t14058.s1.tag = STRUCTURE_TYPE24753; t14058.s1.value.structure_type24753 = &t14059; /* x214081 */ t14057.s1.tag = STRUCTURE_TYPE24753; t14057.s1.value.structure_type24753 = &t14058; /* x214082 */ t14056.s0.tag = STRUCTURE_TYPE24753; t14056.s0.value.structure_type24753 = &t14057; /* x214083 */ t14067.s0.tag = EXTERNAL_SYMBOL_TYPE; t14067.s0.value.external_symbol_type = q598; /* x214084 */ t14068.s0.tag = EXTERNAL_SYMBOL_TYPE; t14068.s0.value.external_symbol_type = q540; /* x214085 */ t14069.s0.tag = EXTERNAL_SYMBOL_TYPE; t14069.s0.value.external_symbol_type = q613; /* x214086 */ t14071.s0.tag = EXTERNAL_SYMBOL_TYPE; t14071.s0.value.external_symbol_type = q43; /* x214087 */ t14072.s0.tag = EXTERNAL_SYMBOL_TYPE; t14072.s0.value.external_symbol_type = q528; /* x214088 */ t14073.s0.tag = EXTERNAL_SYMBOL_TYPE; t14073.s0.value.external_symbol_type = q553; /* x214089 */ t14075.s0.tag = EXTERNAL_SYMBOL_TYPE; t14075.s0.value.external_symbol_type = q582; /* x214090 */ t14077.s0.tag = EXTERNAL_SYMBOL_TYPE; t14077.s0.value.external_symbol_type = q583; /* x214091 */ t14078.s0.tag = EXTERNAL_SYMBOL_TYPE; t14078.s0.value.external_symbol_type = q560; /* x214092 */ t14078.s1.tag = NULL_TYPE; /* x214093 */ t14077.s1.tag = STRUCTURE_TYPE24753; t14077.s1.value.structure_type24753 = &t14078; /* x214094 */ t14076.s0.tag = STRUCTURE_TYPE24753; t14076.s0.value.structure_type24753 = &t14077; /* x214095 */ t14076.s1.tag = NULL_TYPE; /* x214096 */ t14075.s1.tag = STRUCTURE_TYPE24753; t14075.s1.value.structure_type24753 = &t14076; /* x214097 */ t14074.s0.tag = STRUCTURE_TYPE24753; t14074.s0.value.structure_type24753 = &t14075; /* x214098 */ t14074.s1.tag = NULL_TYPE; /* x214099 */ t14073.s1.tag = STRUCTURE_TYPE24753; t14073.s1.value.structure_type24753 = &t14074; /* x214100 */ t14072.s1.tag = STRUCTURE_TYPE24753; t14072.s1.value.structure_type24753 = &t14073; /* x214101 */ t14071.s1.tag = STRUCTURE_TYPE24753; t14071.s1.value.structure_type24753 = &t14072; /* x214102 */ t14070.s0.tag = STRUCTURE_TYPE24753; t14070.s0.value.structure_type24753 = &t14071; /* x214103 */ t14070.s1.tag = NULL_TYPE; /* x214104 */ t14069.s1.tag = STRUCTURE_TYPE24753; t14069.s1.value.structure_type24753 = &t14070; /* x214105 */ t14068.s1.tag = STRUCTURE_TYPE24753; t14068.s1.value.structure_type24753 = &t14069; /* x214106 */ t14067.s1.tag = STRUCTURE_TYPE24753; t14067.s1.value.structure_type24753 = &t14068; /* x214107 */ t14066.s0.tag = STRUCTURE_TYPE24753; t14066.s0.value.structure_type24753 = &t14067; /* x214108 */ t14080.s0.tag = EXTERNAL_SYMBOL_TYPE; t14080.s0.value.external_symbol_type = q599; /* x214109 */ t14081.s0.tag = EXTERNAL_SYMBOL_TYPE; t14081.s0.value.external_symbol_type = q540; /* x214110 */ t14082.s0.tag = EXTERNAL_SYMBOL_TYPE; t14082.s0.value.external_symbol_type = q613; /* x214111 */ t14084.s0.tag = EXTERNAL_SYMBOL_TYPE; t14084.s0.value.external_symbol_type = q43; /* x214112 */ t14085.s0.tag = EXTERNAL_SYMBOL_TYPE; t14085.s0.value.external_symbol_type = q528; /* x214113 */ t14086.s0.tag = EXTERNAL_SYMBOL_TYPE; t14086.s0.value.external_symbol_type = q551; /* x214114 */ t14088.s0.tag = EXTERNAL_SYMBOL_TYPE; t14088.s0.value.external_symbol_type = q582; /* x214115 */ t14090.s0.tag = EXTERNAL_SYMBOL_TYPE; t14090.s0.value.external_symbol_type = q583; /* x214116 */ t14091.s0.tag = EXTERNAL_SYMBOL_TYPE; t14091.s0.value.external_symbol_type = q555; /* x214117 */ t14091.s1.tag = NULL_TYPE; /* x214118 */ t14090.s1.tag = STRUCTURE_TYPE24753; t14090.s1.value.structure_type24753 = &t14091; /* x214119 */ t14089.s0.tag = STRUCTURE_TYPE24753; t14089.s0.value.structure_type24753 = &t14090; /* x214120 */ t14089.s1.tag = NULL_TYPE; /* x214121 */ t14088.s1.tag = STRUCTURE_TYPE24753; t14088.s1.value.structure_type24753 = &t14089; /* x214122 */ t14087.s0.tag = STRUCTURE_TYPE24753; t14087.s0.value.structure_type24753 = &t14088; /* x214123 */ t14087.s1.tag = NULL_TYPE; /* x214124 */ t14086.s1.tag = STRUCTURE_TYPE24753; t14086.s1.value.structure_type24753 = &t14087; /* x214125 */ t14085.s1.tag = STRUCTURE_TYPE24753; t14085.s1.value.structure_type24753 = &t14086; /* x214126 */ t14084.s1.tag = STRUCTURE_TYPE24753; t14084.s1.value.structure_type24753 = &t14085; /* x214127 */ t14083.s0.tag = STRUCTURE_TYPE24753; t14083.s0.value.structure_type24753 = &t14084; /* x214128 */ t14083.s1.tag = NULL_TYPE; /* x214129 */ t14082.s1.tag = STRUCTURE_TYPE24753; t14082.s1.value.structure_type24753 = &t14083; /* x214130 */ t14081.s1.tag = STRUCTURE_TYPE24753; t14081.s1.value.structure_type24753 = &t14082; /* x214131 */ t14080.s1.tag = STRUCTURE_TYPE24753; t14080.s1.value.structure_type24753 = &t14081; /* x214132 */ t14079.s0.tag = STRUCTURE_TYPE24753; t14079.s0.value.structure_type24753 = &t14080; /* x214133 */ t14093.s0.tag = EXTERNAL_SYMBOL_TYPE; t14093.s0.value.external_symbol_type = q600; /* x214134 */ t14094.s0.tag = EXTERNAL_SYMBOL_TYPE; t14094.s0.value.external_symbol_type = q540; /* x214135 */ t14095.s0.tag = EXTERNAL_SYMBOL_TYPE; t14095.s0.value.external_symbol_type = q613; /* x214136 */ t14096.s0.tag = FIXNUM_TYPE; t14096.s0.value.fixnum_type = 0; /* x214137 */ t14097.s0.tag = EXTERNAL_SYMBOL_TYPE; t14097.s0.value.external_symbol_type = q612; /* x214138 */ t14098.s0.tag = EXTERNAL_SYMBOL_TYPE; t14098.s0.value.external_symbol_type = q602; /* x214139 */ t14099.s0.tag = EXTERNAL_SYMBOL_TYPE; t14099.s0.value.external_symbol_type = q603; /* x214140 */ t14099.s1.tag = NULL_TYPE; /* x214141 */ t14098.s1.tag = STRUCTURE_TYPE24753; t14098.s1.value.structure_type24753 = &t14099; /* x214142 */ t14097.s1.tag = STRUCTURE_TYPE24753; t14097.s1.value.structure_type24753 = &t14098; /* x214143 */ t14096.s1.tag = STRUCTURE_TYPE24753; t14096.s1.value.structure_type24753 = &t14097; /* x214144 */ t14095.s1.tag = STRUCTURE_TYPE24753; t14095.s1.value.structure_type24753 = &t14096; /* x214145 */ t14094.s1.tag = STRUCTURE_TYPE24753; t14094.s1.value.structure_type24753 = &t14095; /* x214146 */ t14093.s1.tag = STRUCTURE_TYPE24753; t14093.s1.value.structure_type24753 = &t14094; /* x214147 */ t14092.s0.tag = STRUCTURE_TYPE24753; t14092.s0.value.structure_type24753 = &t14093; /* x214148 */ t14101.s0.tag = EXTERNAL_SYMBOL_TYPE; t14101.s0.value.external_symbol_type = q605; /* x214149 */ t14102.s0.tag = EXTERNAL_SYMBOL_TYPE; t14102.s0.value.external_symbol_type = q540; /* x214150 */ t14103.s0.tag = EXTERNAL_SYMBOL_TYPE; t14103.s0.value.external_symbol_type = q613; /* x214151 */ t14104.s0.tag = EXTERNAL_SYMBOL_TYPE; t14104.s0.value.external_symbol_type = q606; /* x214152 */ t14104.s1.tag = NULL_TYPE; /* x214153 */ t14103.s1.tag = STRUCTURE_TYPE24753; t14103.s1.value.structure_type24753 = &t14104; /* x214154 */ t14102.s1.tag = STRUCTURE_TYPE24753; t14102.s1.value.structure_type24753 = &t14103; /* x214155 */ t14101.s1.tag = STRUCTURE_TYPE24753; t14101.s1.value.structure_type24753 = &t14102; /* x214156 */ t14100.s0.tag = STRUCTURE_TYPE24753; t14100.s0.value.structure_type24753 = &t14101; /* x214157 */ t14106.s0.tag = EXTERNAL_SYMBOL_TYPE; t14106.s0.value.external_symbol_type = q42; /* x214158 */ t14107.s0.tag = EXTERNAL_SYMBOL_TYPE; t14107.s0.value.external_symbol_type = q614; /* x214159 */ t14109.s0.tag = EXTERNAL_SYMBOL_TYPE; t14109.s0.value.external_symbol_type = q596; /* x214160 */ t14110.s0.tag = EXTERNAL_SYMBOL_TYPE; t14110.s0.value.external_symbol_type = q540; /* x214161 */ t14111.s0.tag = EXTERNAL_SYMBOL_TYPE; t14111.s0.value.external_symbol_type = q578; /* x214162 */ t14112.s0.tag = FIXNUM_TYPE; t14112.s0.value.fixnum_type = 0; /* x214163 */ t14114.s0.tag = EXTERNAL_SYMBOL_TYPE; t14114.s0.value.external_symbol_type = q597; /* x214164 */ t14114.s1.tag = NULL_TYPE; /* x214165 */ t14113.s0.tag = STRUCTURE_TYPE24753; t14113.s0.value.structure_type24753 = &t14114; /* x214166 */ t14113.s1.tag = NULL_TYPE; /* x214167 */ t14112.s1.tag = STRUCTURE_TYPE24753; t14112.s1.value.structure_type24753 = &t14113; /* x214168 */ t14111.s1.tag = STRUCTURE_TYPE24753; t14111.s1.value.structure_type24753 = &t14112; /* x214169 */ t14110.s1.tag = STRUCTURE_TYPE24753; t14110.s1.value.structure_type24753 = &t14111; /* x214170 */ t14109.s1.tag = STRUCTURE_TYPE24753; t14109.s1.value.structure_type24753 = &t14110; /* x214171 */ t14108.s0.tag = STRUCTURE_TYPE24753; t14108.s0.value.structure_type24753 = &t14109; /* x214172 */ t14108.s1.tag = NULL_TYPE; /* x214173 */ t14107.s1.tag = STRUCTURE_TYPE24753; t14107.s1.value.structure_type24753 = &t14108; /* x214174 */ t14106.s1.tag = STRUCTURE_TYPE24753; t14106.s1.value.structure_type24753 = &t14107; /* x214175 */ t14105.s0.tag = STRUCTURE_TYPE24753; t14105.s0.value.structure_type24753 = &t14106; /* x214176 */ t14116.s0.tag = EXTERNAL_SYMBOL_TYPE; t14116.s0.value.external_symbol_type = q598; /* x214177 */ t14117.s0.tag = EXTERNAL_SYMBOL_TYPE; t14117.s0.value.external_symbol_type = q540; /* x214178 */ t14118.s0.tag = EXTERNAL_SYMBOL_TYPE; t14118.s0.value.external_symbol_type = q614; /* x214179 */ t14120.s0.tag = EXTERNAL_SYMBOL_TYPE; t14120.s0.value.external_symbol_type = q43; /* x214180 */ t14121.s0.tag = EXTERNAL_SYMBOL_TYPE; t14121.s0.value.external_symbol_type = q528; /* x214181 */ t14122.s0.tag = EXTERNAL_SYMBOL_TYPE; t14122.s0.value.external_symbol_type = q551; /* x214182 */ t14124.s0.tag = EXTERNAL_SYMBOL_TYPE; t14124.s0.value.external_symbol_type = q582; /* x214183 */ t14126.s0.tag = EXTERNAL_SYMBOL_TYPE; t14126.s0.value.external_symbol_type = q583; /* x214184 */ t14127.s0.tag = EXTERNAL_SYMBOL_TYPE; t14127.s0.value.external_symbol_type = q555; /* x214185 */ t14127.s1.tag = NULL_TYPE; /* x214186 */ t14126.s1.tag = STRUCTURE_TYPE24753; t14126.s1.value.structure_type24753 = &t14127; /* x214187 */ t14125.s0.tag = STRUCTURE_TYPE24753; t14125.s0.value.structure_type24753 = &t14126; /* x214188 */ t14125.s1.tag = NULL_TYPE; /* x214189 */ t14124.s1.tag = STRUCTURE_TYPE24753; t14124.s1.value.structure_type24753 = &t14125; /* x214190 */ t14123.s0.tag = STRUCTURE_TYPE24753; t14123.s0.value.structure_type24753 = &t14124; /* x214191 */ t14123.s1.tag = NULL_TYPE; /* x214192 */ t14122.s1.tag = STRUCTURE_TYPE24753; t14122.s1.value.structure_type24753 = &t14123; /* x214193 */ t14121.s1.tag = STRUCTURE_TYPE24753; t14121.s1.value.structure_type24753 = &t14122; /* x214194 */ t14120.s1.tag = STRUCTURE_TYPE24753; t14120.s1.value.structure_type24753 = &t14121; /* x214195 */ t14119.s0.tag = STRUCTURE_TYPE24753; t14119.s0.value.structure_type24753 = &t14120; /* x214196 */ t14119.s1.tag = NULL_TYPE; /* x214197 */ t14118.s1.tag = STRUCTURE_TYPE24753; t14118.s1.value.structure_type24753 = &t14119; /* x214198 */ t14117.s1.tag = STRUCTURE_TYPE24753; t14117.s1.value.structure_type24753 = &t14118; /* x214199 */ t14116.s1.tag = STRUCTURE_TYPE24753; t14116.s1.value.structure_type24753 = &t14117; /* x214200 */ t14115.s0.tag = STRUCTURE_TYPE24753; t14115.s0.value.structure_type24753 = &t14116; /* x214201 */ t14129.s0.tag = EXTERNAL_SYMBOL_TYPE; t14129.s0.value.external_symbol_type = q599; /* x214202 */ t14130.s0.tag = EXTERNAL_SYMBOL_TYPE; t14130.s0.value.external_symbol_type = q540; /* x214203 */ t14131.s0.tag = EXTERNAL_SYMBOL_TYPE; t14131.s0.value.external_symbol_type = q614; /* x214204 */ t14133.s0.tag = EXTERNAL_SYMBOL_TYPE; t14133.s0.value.external_symbol_type = q43; /* x214205 */ t14134.s0.tag = EXTERNAL_SYMBOL_TYPE; t14134.s0.value.external_symbol_type = q528; /* x214206 */ t14135.s0.tag = EXTERNAL_SYMBOL_TYPE; t14135.s0.value.external_symbol_type = q553; /* x214207 */ t14137.s0.tag = EXTERNAL_SYMBOL_TYPE; t14137.s0.value.external_symbol_type = q582; /* x214208 */ t14139.s0.tag = EXTERNAL_SYMBOL_TYPE; t14139.s0.value.external_symbol_type = q583; /* x214209 */ t14140.s0.tag = EXTERNAL_SYMBOL_TYPE; t14140.s0.value.external_symbol_type = q560; /* x214210 */ t14140.s1.tag = NULL_TYPE; /* x214211 */ t14139.s1.tag = STRUCTURE_TYPE24753; t14139.s1.value.structure_type24753 = &t14140; /* x214212 */ t14138.s0.tag = STRUCTURE_TYPE24753; t14138.s0.value.structure_type24753 = &t14139; /* x214213 */ t14138.s1.tag = NULL_TYPE; /* x214214 */ t14137.s1.tag = STRUCTURE_TYPE24753; t14137.s1.value.structure_type24753 = &t14138; /* x214215 */ t14136.s0.tag = STRUCTURE_TYPE24753; t14136.s0.value.structure_type24753 = &t14137; /* x214216 */ t14136.s1.tag = NULL_TYPE; /* x214217 */ t14135.s1.tag = STRUCTURE_TYPE24753; t14135.s1.value.structure_type24753 = &t14136; /* x214218 */ t14134.s1.tag = STRUCTURE_TYPE24753; t14134.s1.value.structure_type24753 = &t14135; /* x214219 */ t14133.s1.tag = STRUCTURE_TYPE24753; t14133.s1.value.structure_type24753 = &t14134; /* x214220 */ t14132.s0.tag = STRUCTURE_TYPE24753; t14132.s0.value.structure_type24753 = &t14133; /* x214221 */ t14132.s1.tag = NULL_TYPE; /* x214222 */ t14131.s1.tag = STRUCTURE_TYPE24753; t14131.s1.value.structure_type24753 = &t14132; /* x214223 */ t14130.s1.tag = STRUCTURE_TYPE24753; t14130.s1.value.structure_type24753 = &t14131; /* x214224 */ t14129.s1.tag = STRUCTURE_TYPE24753; t14129.s1.value.structure_type24753 = &t14130; /* x214225 */ t14128.s0.tag = STRUCTURE_TYPE24753; t14128.s0.value.structure_type24753 = &t14129; /* x214226 */ t14142.s0.tag = EXTERNAL_SYMBOL_TYPE; t14142.s0.value.external_symbol_type = q615; /* x214227 */ t14143.s0.tag = EXTERNAL_SYMBOL_TYPE; t14143.s0.value.external_symbol_type = q540; /* x214228 */ t14144.s0.tag = EXTERNAL_SYMBOL_TYPE; t14144.s0.value.external_symbol_type = q614; /* x214229 */ t14146.s0.tag = EXTERNAL_SYMBOL_TYPE; t14146.s0.value.external_symbol_type = q616; /* x214230 */ t14147.s0.tag = EXTERNAL_SYMBOL_TYPE; t14147.s0.value.external_symbol_type = q562; /* x214231 */ t14147.s1.tag = NULL_TYPE; /* x214232 */ t14146.s1.tag = STRUCTURE_TYPE24753; t14146.s1.value.structure_type24753 = &t14147; /* x214233 */ t14145.s0.tag = STRUCTURE_TYPE24753; t14145.s0.value.structure_type24753 = &t14146; /* x214234 */ t14145.s1.tag = NULL_TYPE; /* x214235 */ t14144.s1.tag = STRUCTURE_TYPE24753; t14144.s1.value.structure_type24753 = &t14145; /* x214236 */ t14143.s1.tag = STRUCTURE_TYPE24753; t14143.s1.value.structure_type24753 = &t14144; /* x214237 */ t14142.s1.tag = STRUCTURE_TYPE24753; t14142.s1.value.structure_type24753 = &t14143; /* x214238 */ t14141.s0.tag = STRUCTURE_TYPE24753; t14141.s0.value.structure_type24753 = &t14142; /* x214239 */ t14149.s0.tag = EXTERNAL_SYMBOL_TYPE; t14149.s0.value.external_symbol_type = q42; /* x214240 */ t14150.s0.tag = EXTERNAL_SYMBOL_TYPE; t14150.s0.value.external_symbol_type = q617; /* x214241 */ t14152.s0.tag = EXTERNAL_SYMBOL_TYPE; t14152.s0.value.external_symbol_type = q596; /* x214242 */ t14153.s0.tag = EXTERNAL_SYMBOL_TYPE; t14153.s0.value.external_symbol_type = q540; /* x214243 */ t14154.s0.tag = EXTERNAL_SYMBOL_TYPE; t14154.s0.value.external_symbol_type = q578; /* x214244 */ t14155.s0.tag = FIXNUM_TYPE; t14155.s0.value.fixnum_type = 0; /* x214245 */ t14157.s0.tag = EXTERNAL_SYMBOL_TYPE; t14157.s0.value.external_symbol_type = q597; /* x214246 */ t14157.s1.tag = NULL_TYPE; /* x214247 */ t14156.s0.tag = STRUCTURE_TYPE24753; t14156.s0.value.structure_type24753 = &t14157; /* x214248 */ t14156.s1.tag = NULL_TYPE; /* x214249 */ t14155.s1.tag = STRUCTURE_TYPE24753; t14155.s1.value.structure_type24753 = &t14156; /* x214250 */ t14154.s1.tag = STRUCTURE_TYPE24753; t14154.s1.value.structure_type24753 = &t14155; /* x214251 */ t14153.s1.tag = STRUCTURE_TYPE24753; t14153.s1.value.structure_type24753 = &t14154; /* x214252 */ t14152.s1.tag = STRUCTURE_TYPE24753; t14152.s1.value.structure_type24753 = &t14153; /* x214253 */ t14151.s0.tag = STRUCTURE_TYPE24753; t14151.s0.value.structure_type24753 = &t14152; /* x214254 */ t14151.s1.tag = NULL_TYPE; /* x214255 */ t14150.s1.tag = STRUCTURE_TYPE24753; t14150.s1.value.structure_type24753 = &t14151; /* x214256 */ t14149.s1.tag = STRUCTURE_TYPE24753; t14149.s1.value.structure_type24753 = &t14150; /* x214257 */ t14148.s0.tag = STRUCTURE_TYPE24753; t14148.s0.value.structure_type24753 = &t14149; /* x214258 */ t14159.s0.tag = EXTERNAL_SYMBOL_TYPE; t14159.s0.value.external_symbol_type = q598; /* x214259 */ t14160.s0.tag = EXTERNAL_SYMBOL_TYPE; t14160.s0.value.external_symbol_type = q540; /* x214260 */ t14161.s0.tag = EXTERNAL_SYMBOL_TYPE; t14161.s0.value.external_symbol_type = q617; /* x214261 */ t14163.s0.tag = EXTERNAL_SYMBOL_TYPE; t14163.s0.value.external_symbol_type = q43; /* x214262 */ t14164.s0.tag = EXTERNAL_SYMBOL_TYPE; t14164.s0.value.external_symbol_type = q528; /* x214263 */ t14165.s0.tag = EXTERNAL_SYMBOL_TYPE; t14165.s0.value.external_symbol_type = q551; /* x214264 */ t14167.s0.tag = EXTERNAL_SYMBOL_TYPE; t14167.s0.value.external_symbol_type = q582; /* x214265 */ t14169.s0.tag = EXTERNAL_SYMBOL_TYPE; t14169.s0.value.external_symbol_type = q583; /* x214266 */ t14170.s0.tag = EXTERNAL_SYMBOL_TYPE; t14170.s0.value.external_symbol_type = q555; /* x214267 */ t14170.s1.tag = NULL_TYPE; /* x214268 */ t14169.s1.tag = STRUCTURE_TYPE24753; t14169.s1.value.structure_type24753 = &t14170; /* x214269 */ t14168.s0.tag = STRUCTURE_TYPE24753; t14168.s0.value.structure_type24753 = &t14169; /* x214270 */ t14168.s1.tag = NULL_TYPE; /* x214271 */ t14167.s1.tag = STRUCTURE_TYPE24753; t14167.s1.value.structure_type24753 = &t14168; /* x214272 */ t14166.s0.tag = STRUCTURE_TYPE24753; t14166.s0.value.structure_type24753 = &t14167; /* x214273 */ t14166.s1.tag = NULL_TYPE; /* x214274 */ t14165.s1.tag = STRUCTURE_TYPE24753; t14165.s1.value.structure_type24753 = &t14166; /* x214275 */ t14164.s1.tag = STRUCTURE_TYPE24753; t14164.s1.value.structure_type24753 = &t14165; /* x214276 */ t14163.s1.tag = STRUCTURE_TYPE24753; t14163.s1.value.structure_type24753 = &t14164; /* x214277 */ t14162.s0.tag = STRUCTURE_TYPE24753; t14162.s0.value.structure_type24753 = &t14163; /* x214278 */ t14162.s1.tag = NULL_TYPE; /* x214279 */ t14161.s1.tag = STRUCTURE_TYPE24753; t14161.s1.value.structure_type24753 = &t14162; /* x214280 */ t14160.s1.tag = STRUCTURE_TYPE24753; t14160.s1.value.structure_type24753 = &t14161; /* x214281 */ t14159.s1.tag = STRUCTURE_TYPE24753; t14159.s1.value.structure_type24753 = &t14160; /* x214282 */ t14158.s0.tag = STRUCTURE_TYPE24753; t14158.s0.value.structure_type24753 = &t14159; /* x214283 */ t14172.s0.tag = EXTERNAL_SYMBOL_TYPE; t14172.s0.value.external_symbol_type = q599; /* x214284 */ t14173.s0.tag = EXTERNAL_SYMBOL_TYPE; t14173.s0.value.external_symbol_type = q540; /* x214285 */ t14174.s0.tag = EXTERNAL_SYMBOL_TYPE; t14174.s0.value.external_symbol_type = q617; /* x214286 */ t14176.s0.tag = EXTERNAL_SYMBOL_TYPE; t14176.s0.value.external_symbol_type = q43; /* x214287 */ t14177.s0.tag = EXTERNAL_SYMBOL_TYPE; t14177.s0.value.external_symbol_type = q528; /* x214288 */ t14178.s0.tag = EXTERNAL_SYMBOL_TYPE; t14178.s0.value.external_symbol_type = q553; /* x214289 */ t14180.s0.tag = EXTERNAL_SYMBOL_TYPE; t14180.s0.value.external_symbol_type = q582; /* x214290 */ t14182.s0.tag = EXTERNAL_SYMBOL_TYPE; t14182.s0.value.external_symbol_type = q583; /* x214291 */ t14183.s0.tag = EXTERNAL_SYMBOL_TYPE; t14183.s0.value.external_symbol_type = q560; /* x214292 */ t14183.s1.tag = NULL_TYPE; /* x214293 */ t14182.s1.tag = STRUCTURE_TYPE24753; t14182.s1.value.structure_type24753 = &t14183; /* x214294 */ t14181.s0.tag = STRUCTURE_TYPE24753; t14181.s0.value.structure_type24753 = &t14182; /* x214295 */ t14181.s1.tag = NULL_TYPE; /* x214296 */ t14180.s1.tag = STRUCTURE_TYPE24753; t14180.s1.value.structure_type24753 = &t14181; /* x214297 */ t14179.s0.tag = STRUCTURE_TYPE24753; t14179.s0.value.structure_type24753 = &t14180; /* x214298 */ t14179.s1.tag = NULL_TYPE; /* x214299 */ t14178.s1.tag = STRUCTURE_TYPE24753; t14178.s1.value.structure_type24753 = &t14179; /* x214300 */ t14177.s1.tag = STRUCTURE_TYPE24753; t14177.s1.value.structure_type24753 = &t14178; /* x214301 */ t14176.s1.tag = STRUCTURE_TYPE24753; t14176.s1.value.structure_type24753 = &t14177; /* x214302 */ t14175.s0.tag = STRUCTURE_TYPE24753; t14175.s0.value.structure_type24753 = &t14176; /* x214303 */ t14175.s1.tag = NULL_TYPE; /* x214304 */ t14174.s1.tag = STRUCTURE_TYPE24753; t14174.s1.value.structure_type24753 = &t14175; /* x214305 */ t14173.s1.tag = STRUCTURE_TYPE24753; t14173.s1.value.structure_type24753 = &t14174; /* x214306 */ t14172.s1.tag = STRUCTURE_TYPE24753; t14172.s1.value.structure_type24753 = &t14173; /* x214307 */ t14171.s0.tag = STRUCTURE_TYPE24753; t14171.s0.value.structure_type24753 = &t14172; /* x214308 */ t14185.s0.tag = EXTERNAL_SYMBOL_TYPE; t14185.s0.value.external_symbol_type = q615; /* x214309 */ t14186.s0.tag = EXTERNAL_SYMBOL_TYPE; t14186.s0.value.external_symbol_type = q540; /* x214310 */ t14187.s0.tag = EXTERNAL_SYMBOL_TYPE; t14187.s0.value.external_symbol_type = q617; /* x214311 */ t14189.s0.tag = EXTERNAL_SYMBOL_TYPE; t14189.s0.value.external_symbol_type = q616; /* x214312 */ t14190.s0.tag = EXTERNAL_SYMBOL_TYPE; t14190.s0.value.external_symbol_type = q565; /* x214313 */ t14190.s1.tag = NULL_TYPE; /* x214314 */ t14189.s1.tag = STRUCTURE_TYPE24753; t14189.s1.value.structure_type24753 = &t14190; /* x214315 */ t14188.s0.tag = STRUCTURE_TYPE24753; t14188.s0.value.structure_type24753 = &t14189; /* x214316 */ t14188.s1.tag = NULL_TYPE; /* x214317 */ t14187.s1.tag = STRUCTURE_TYPE24753; t14187.s1.value.structure_type24753 = &t14188; /* x214318 */ t14186.s1.tag = STRUCTURE_TYPE24753; t14186.s1.value.structure_type24753 = &t14187; /* x214319 */ t14185.s1.tag = STRUCTURE_TYPE24753; t14185.s1.value.structure_type24753 = &t14186; /* x214320 */ t14184.s0.tag = STRUCTURE_TYPE24753; t14184.s0.value.structure_type24753 = &t14185; /* x214321 */ t14192.s0.tag = EXTERNAL_SYMBOL_TYPE; t14192.s0.value.external_symbol_type = q42; /* x214322 */ t14193.s0.tag = EXTERNAL_SYMBOL_TYPE; t14193.s0.value.external_symbol_type = q618; /* x214323 */ t14195.s0.tag = EXTERNAL_SYMBOL_TYPE; t14195.s0.value.external_symbol_type = q596; /* x214324 */ t14196.s0.tag = EXTERNAL_SYMBOL_TYPE; t14196.s0.value.external_symbol_type = q540; /* x214325 */ t14197.s0.tag = EXTERNAL_SYMBOL_TYPE; t14197.s0.value.external_symbol_type = q578; /* x214326 */ t14198.s0.tag = FIXNUM_TYPE; t14198.s0.value.fixnum_type = 0; /* x214327 */ t14200.s0.tag = EXTERNAL_SYMBOL_TYPE; t14200.s0.value.external_symbol_type = q597; /* x214328 */ t14200.s1.tag = NULL_TYPE; /* x214329 */ t14199.s0.tag = STRUCTURE_TYPE24753; t14199.s0.value.structure_type24753 = &t14200; /* x214330 */ t14199.s1.tag = NULL_TYPE; /* x214331 */ t14198.s1.tag = STRUCTURE_TYPE24753; t14198.s1.value.structure_type24753 = &t14199; /* x214332 */ t14197.s1.tag = STRUCTURE_TYPE24753; t14197.s1.value.structure_type24753 = &t14198; /* x214333 */ t14196.s1.tag = STRUCTURE_TYPE24753; t14196.s1.value.structure_type24753 = &t14197; /* x214334 */ t14195.s1.tag = STRUCTURE_TYPE24753; t14195.s1.value.structure_type24753 = &t14196; /* x214335 */ t14194.s0.tag = STRUCTURE_TYPE24753; t14194.s0.value.structure_type24753 = &t14195; /* x214336 */ t14194.s1.tag = NULL_TYPE; /* x214337 */ t14193.s1.tag = STRUCTURE_TYPE24753; t14193.s1.value.structure_type24753 = &t14194; /* x214338 */ t14192.s1.tag = STRUCTURE_TYPE24753; t14192.s1.value.structure_type24753 = &t14193; /* x214339 */ t14191.s0.tag = STRUCTURE_TYPE24753; t14191.s0.value.structure_type24753 = &t14192; /* x214340 */ t14202.s0.tag = EXTERNAL_SYMBOL_TYPE; t14202.s0.value.external_symbol_type = q598; /* x214341 */ t14203.s0.tag = EXTERNAL_SYMBOL_TYPE; t14203.s0.value.external_symbol_type = q540; /* x214342 */ t14204.s0.tag = EXTERNAL_SYMBOL_TYPE; t14204.s0.value.external_symbol_type = q618; /* x214343 */ t14206.s0.tag = EXTERNAL_SYMBOL_TYPE; t14206.s0.value.external_symbol_type = q43; /* x214344 */ t14207.s0.tag = EXTERNAL_SYMBOL_TYPE; t14207.s0.value.external_symbol_type = q528; /* x214345 */ t14208.s0.tag = EXTERNAL_SYMBOL_TYPE; t14208.s0.value.external_symbol_type = q553; /* x214346 */ t14210.s0.tag = EXTERNAL_SYMBOL_TYPE; t14210.s0.value.external_symbol_type = q582; /* x214347 */ t14212.s0.tag = EXTERNAL_SYMBOL_TYPE; t14212.s0.value.external_symbol_type = q583; /* x214348 */ t14213.s0.tag = EXTERNAL_SYMBOL_TYPE; t14213.s0.value.external_symbol_type = q560; /* x214349 */ t14213.s1.tag = NULL_TYPE; /* x214350 */ t14212.s1.tag = STRUCTURE_TYPE24753; t14212.s1.value.structure_type24753 = &t14213; /* x214351 */ t14211.s0.tag = STRUCTURE_TYPE24753; t14211.s0.value.structure_type24753 = &t14212; /* x214352 */ t14211.s1.tag = NULL_TYPE; /* x214353 */ t14210.s1.tag = STRUCTURE_TYPE24753; t14210.s1.value.structure_type24753 = &t14211; /* x214354 */ t14209.s0.tag = STRUCTURE_TYPE24753; t14209.s0.value.structure_type24753 = &t14210; /* x214355 */ t14209.s1.tag = NULL_TYPE; /* x214356 */ t14208.s1.tag = STRUCTURE_TYPE24753; t14208.s1.value.structure_type24753 = &t14209; /* x214357 */ t14207.s1.tag = STRUCTURE_TYPE24753; t14207.s1.value.structure_type24753 = &t14208; /* x214358 */ t14206.s1.tag = STRUCTURE_TYPE24753; t14206.s1.value.structure_type24753 = &t14207; /* x214359 */ t14205.s0.tag = STRUCTURE_TYPE24753; t14205.s0.value.structure_type24753 = &t14206; /* x214360 */ t14205.s1.tag = NULL_TYPE; /* x214361 */ t14204.s1.tag = STRUCTURE_TYPE24753; t14204.s1.value.structure_type24753 = &t14205; /* x214362 */ t14203.s1.tag = STRUCTURE_TYPE24753; t14203.s1.value.structure_type24753 = &t14204; /* x214363 */ t14202.s1.tag = STRUCTURE_TYPE24753; t14202.s1.value.structure_type24753 = &t14203; /* x214364 */ t14201.s0.tag = STRUCTURE_TYPE24753; t14201.s0.value.structure_type24753 = &t14202; /* x214365 */ t14215.s0.tag = EXTERNAL_SYMBOL_TYPE; t14215.s0.value.external_symbol_type = q599; /* x214366 */ t14216.s0.tag = EXTERNAL_SYMBOL_TYPE; t14216.s0.value.external_symbol_type = q540; /* x214367 */ t14217.s0.tag = EXTERNAL_SYMBOL_TYPE; t14217.s0.value.external_symbol_type = q618; /* x214368 */ t14219.s0.tag = EXTERNAL_SYMBOL_TYPE; t14219.s0.value.external_symbol_type = q43; /* x214369 */ t14220.s0.tag = EXTERNAL_SYMBOL_TYPE; t14220.s0.value.external_symbol_type = q528; /* x214370 */ t14221.s0.tag = EXTERNAL_SYMBOL_TYPE; t14221.s0.value.external_symbol_type = q551; /* x214371 */ t14223.s0.tag = EXTERNAL_SYMBOL_TYPE; t14223.s0.value.external_symbol_type = q582; /* x214372 */ t14225.s0.tag = EXTERNAL_SYMBOL_TYPE; t14225.s0.value.external_symbol_type = q583; /* x214373 */ t14226.s0.tag = EXTERNAL_SYMBOL_TYPE; t14226.s0.value.external_symbol_type = q555; /* x214374 */ t14226.s1.tag = NULL_TYPE; /* x214375 */ t14225.s1.tag = STRUCTURE_TYPE24753; t14225.s1.value.structure_type24753 = &t14226; /* x214376 */ t14224.s0.tag = STRUCTURE_TYPE24753; t14224.s0.value.structure_type24753 = &t14225; /* x214377 */ t14224.s1.tag = NULL_TYPE; /* x214378 */ t14223.s1.tag = STRUCTURE_TYPE24753; t14223.s1.value.structure_type24753 = &t14224; /* x214379 */ t14222.s0.tag = STRUCTURE_TYPE24753; t14222.s0.value.structure_type24753 = &t14223; /* x214380 */ t14222.s1.tag = NULL_TYPE; /* x214381 */ t14221.s1.tag = STRUCTURE_TYPE24753; t14221.s1.value.structure_type24753 = &t14222; /* x214382 */ t14220.s1.tag = STRUCTURE_TYPE24753; t14220.s1.value.structure_type24753 = &t14221; /* x214383 */ t14219.s1.tag = STRUCTURE_TYPE24753; t14219.s1.value.structure_type24753 = &t14220; /* x214384 */ t14218.s0.tag = STRUCTURE_TYPE24753; t14218.s0.value.structure_type24753 = &t14219; /* x214385 */ t14218.s1.tag = NULL_TYPE; /* x214386 */ t14217.s1.tag = STRUCTURE_TYPE24753; t14217.s1.value.structure_type24753 = &t14218; /* x214387 */ t14216.s1.tag = STRUCTURE_TYPE24753; t14216.s1.value.structure_type24753 = &t14217; /* x214388 */ t14215.s1.tag = STRUCTURE_TYPE24753; t14215.s1.value.structure_type24753 = &t14216; /* x214389 */ t14214.s0.tag = STRUCTURE_TYPE24753; t14214.s0.value.structure_type24753 = &t14215; /* x214390 */ t14228.s0.tag = EXTERNAL_SYMBOL_TYPE; t14228.s0.value.external_symbol_type = q615; /* x214391 */ t14229.s0.tag = EXTERNAL_SYMBOL_TYPE; t14229.s0.value.external_symbol_type = q540; /* x214392 */ t14230.s0.tag = EXTERNAL_SYMBOL_TYPE; t14230.s0.value.external_symbol_type = q618; /* x214393 */ t14232.s0.tag = EXTERNAL_SYMBOL_TYPE; t14232.s0.value.external_symbol_type = q616; /* x214394 */ t14233.s0.tag = EXTERNAL_SYMBOL_TYPE; t14233.s0.value.external_symbol_type = q565; /* x214395 */ t14233.s1.tag = NULL_TYPE; /* x214396 */ t14232.s1.tag = STRUCTURE_TYPE24753; t14232.s1.value.structure_type24753 = &t14233; /* x214397 */ t14231.s0.tag = STRUCTURE_TYPE24753; t14231.s0.value.structure_type24753 = &t14232; /* x214398 */ t14231.s1.tag = NULL_TYPE; /* x214399 */ t14230.s1.tag = STRUCTURE_TYPE24753; t14230.s1.value.structure_type24753 = &t14231; /* x214400 */ t14229.s1.tag = STRUCTURE_TYPE24753; t14229.s1.value.structure_type24753 = &t14230; /* x214401 */ t14228.s1.tag = STRUCTURE_TYPE24753; t14228.s1.value.structure_type24753 = &t14229; /* x214402 */ t14227.s0.tag = STRUCTURE_TYPE24753; t14227.s0.value.structure_type24753 = &t14228; /* x214403 */ t14235.s0.tag = EXTERNAL_SYMBOL_TYPE; t14235.s0.value.external_symbol_type = q600; /* x214404 */ t14236.s0.tag = EXTERNAL_SYMBOL_TYPE; t14236.s0.value.external_symbol_type = q540; /* x214405 */ t14237.s0.tag = EXTERNAL_SYMBOL_TYPE; t14237.s0.value.external_symbol_type = q618; /* x214406 */ t14238.s0.tag = FIXNUM_TYPE; t14238.s0.value.fixnum_type = 0; /* x214407 */ t14239.s0.tag = EXTERNAL_SYMBOL_TYPE; t14239.s0.value.external_symbol_type = q601; /* x214408 */ t14240.s0.tag = EXTERNAL_SYMBOL_TYPE; t14240.s0.value.external_symbol_type = q602; /* x214409 */ t14241.s0.tag = EXTERNAL_SYMBOL_TYPE; t14241.s0.value.external_symbol_type = q603; /* x214410 */ t14241.s1.tag = NULL_TYPE; /* x214411 */ t14240.s1.tag = STRUCTURE_TYPE24753; t14240.s1.value.structure_type24753 = &t14241; /* x214412 */ t14239.s1.tag = STRUCTURE_TYPE24753; t14239.s1.value.structure_type24753 = &t14240; /* x214413 */ t14238.s1.tag = STRUCTURE_TYPE24753; t14238.s1.value.structure_type24753 = &t14239; /* x214414 */ t14237.s1.tag = STRUCTURE_TYPE24753; t14237.s1.value.structure_type24753 = &t14238; /* x214415 */ t14236.s1.tag = STRUCTURE_TYPE24753; t14236.s1.value.structure_type24753 = &t14237; /* x214416 */ t14235.s1.tag = STRUCTURE_TYPE24753; t14235.s1.value.structure_type24753 = &t14236; /* x214417 */ t14234.s0.tag = STRUCTURE_TYPE24753; t14234.s0.value.structure_type24753 = &t14235; /* x214418 */ t14243.s0.tag = EXTERNAL_SYMBOL_TYPE; t14243.s0.value.external_symbol_type = q605; /* x214419 */ t14244.s0.tag = EXTERNAL_SYMBOL_TYPE; t14244.s0.value.external_symbol_type = q540; /* x214420 */ t14245.s0.tag = EXTERNAL_SYMBOL_TYPE; t14245.s0.value.external_symbol_type = q618; /* x214421 */ t14246.s0.tag = EXTERNAL_SYMBOL_TYPE; t14246.s0.value.external_symbol_type = q606; /* x214422 */ t14246.s1.tag = NULL_TYPE; /* x214423 */ t14245.s1.tag = STRUCTURE_TYPE24753; t14245.s1.value.structure_type24753 = &t14246; /* x214424 */ t14244.s1.tag = STRUCTURE_TYPE24753; t14244.s1.value.structure_type24753 = &t14245; /* x214425 */ t14243.s1.tag = STRUCTURE_TYPE24753; t14243.s1.value.structure_type24753 = &t14244; /* x214426 */ t14242.s0.tag = STRUCTURE_TYPE24753; t14242.s0.value.structure_type24753 = &t14243; /* x214427 */ t14248.s0.tag = EXTERNAL_SYMBOL_TYPE; t14248.s0.value.external_symbol_type = q494; /* x214428 */ t14249.s0.tag = EXTERNAL_SYMBOL_TYPE; t14249.s0.value.external_symbol_type = q528; /* x214429 */ t14251.s0.tag = EXTERNAL_SYMBOL_TYPE; t14251.s0.value.external_symbol_type = q42; /* x214430 */ t14252.s0.tag = EXTERNAL_SYMBOL_TYPE; t14252.s0.value.external_symbol_type = q619; /* x214431 */ t14254.s0.tag = EXTERNAL_SYMBOL_TYPE; t14254.s0.value.external_symbol_type = q556; /* x214432 */ t14255.s0.tag = EXTERNAL_SYMBOL_TYPE; t14255.s0.value.external_symbol_type = q540; /* x214433 */ t14257.s0.tag = EXTERNAL_SYMBOL_TYPE; t14257.s0.value.external_symbol_type = q557; /* x214434 */ t14258.s0.tag = EXTERNAL_SYMBOL_TYPE; t14258.s0.value.external_symbol_type = q540; /* x214435 */ t14259.s0.tag = EXTERNAL_SYMBOL_TYPE; t14259.s0.value.external_symbol_type = q545; /* x214436 */ t14259.s1.tag = NULL_TYPE; /* x214437 */ t14258.s1.tag = STRUCTURE_TYPE24753; t14258.s1.value.structure_type24753 = &t14259; /* x214438 */ t14257.s1.tag = STRUCTURE_TYPE24753; t14257.s1.value.structure_type24753 = &t14258; /* x214439 */ t14256.s0.tag = STRUCTURE_TYPE24753; t14256.s0.value.structure_type24753 = &t14257; /* x214440 */ t14260.s0.tag = STRING_TYPE; t14260.s0.value.string_type = "Light Gray"; /* x214441 */ t14260.s1.tag = NULL_TYPE; /* x214442 */ t14256.s1.tag = STRUCTURE_TYPE24753; t14256.s1.value.structure_type24753 = &t14260; /* x214443 */ t14255.s1.tag = STRUCTURE_TYPE24753; t14255.s1.value.structure_type24753 = &t14256; /* x214444 */ t14254.s1.tag = STRUCTURE_TYPE24753; t14254.s1.value.structure_type24753 = &t14255; /* x214445 */ t14253.s0.tag = STRUCTURE_TYPE24753; t14253.s0.value.structure_type24753 = &t14254; /* x214446 */ t14253.s1.tag = NULL_TYPE; /* x214447 */ t14252.s1.tag = STRUCTURE_TYPE24753; t14252.s1.value.structure_type24753 = &t14253; /* x214448 */ t14251.s1.tag = STRUCTURE_TYPE24753; t14251.s1.value.structure_type24753 = &t14252; /* x214449 */ t14250.s0.tag = STRUCTURE_TYPE24753; t14250.s0.value.structure_type24753 = &t14251; /* x214450 */ t14262.s0.tag = EXTERNAL_SYMBOL_TYPE; t14262.s0.value.external_symbol_type = q494; /* x214451 */ t14264.s0.tag = EXTERNAL_SYMBOL_TYPE; t14264.s0.value.external_symbol_type = q120; /* x214452 */ t14266.s0.tag = EXTERNAL_SYMBOL_TYPE; t14266.s0.value.external_symbol_type = q559; /* x214453 */ t14267.s0.tag = EXTERNAL_SYMBOL_TYPE; t14267.s0.value.external_symbol_type = q619; /* x214454 */ t14267.s1.tag = NULL_TYPE; /* x214455 */ t14266.s1.tag = STRUCTURE_TYPE24753; t14266.s1.value.structure_type24753 = &t14267; /* x214456 */ t14265.s0.tag = STRUCTURE_TYPE24753; t14265.s0.value.structure_type24753 = &t14266; /* x214457 */ t14268.s0.tag = FIXNUM_TYPE; t14268.s0.value.fixnum_type = 1; /* x214458 */ t14268.s1.tag = NULL_TYPE; /* x214459 */ t14265.s1.tag = STRUCTURE_TYPE24753; t14265.s1.value.structure_type24753 = &t14268; /* x214460 */ t14264.s1.tag = STRUCTURE_TYPE24753; t14264.s1.value.structure_type24753 = &t14265; /* x214461 */ t14263.s0.tag = STRUCTURE_TYPE24753; t14263.s0.value.structure_type24753 = &t14264; /* x214462 */ t14270.s0.tag = EXTERNAL_SYMBOL_TYPE; t14270.s0.value.external_symbol_type = q179; /* x214463 */ t14271.s0.tag = STRING_TYPE; t14271.s0.value.string_type = "Can\'t allocate light gray colorcell"; /* x214464 */ t14271.s1.tag = NULL_TYPE; /* x214465 */ t14270.s1.tag = STRUCTURE_TYPE24753; t14270.s1.value.structure_type24753 = &t14271; /* x214466 */ t14269.s0.tag = STRUCTURE_TYPE24753; t14269.s0.value.structure_type24753 = &t14270; /* x214467 */ t14269.s1.tag = NULL_TYPE; /* x214468 */ t14263.s1.tag = STRUCTURE_TYPE24753; t14263.s1.value.structure_type24753 = &t14269; /* x214469 */ t14262.s1.tag = STRUCTURE_TYPE24753; t14262.s1.value.structure_type24753 = &t14263; /* x214470 */ t14261.s0.tag = STRUCTURE_TYPE24753; t14261.s0.value.structure_type24753 = &t14262; /* x214471 */ t14273.s0.tag = EXTERNAL_SYMBOL_TYPE; t14273.s0.value.external_symbol_type = q42; /* x214472 */ t14274.s0.tag = EXTERNAL_SYMBOL_TYPE; t14274.s0.value.external_symbol_type = q620; /* x214473 */ t14276.s0.tag = EXTERNAL_SYMBOL_TYPE; t14276.s0.value.external_symbol_type = q596; /* x214474 */ t14277.s0.tag = EXTERNAL_SYMBOL_TYPE; t14277.s0.value.external_symbol_type = q540; /* x214475 */ t14278.s0.tag = EXTERNAL_SYMBOL_TYPE; t14278.s0.value.external_symbol_type = q578; /* x214476 */ t14279.s0.tag = FIXNUM_TYPE; t14279.s0.value.fixnum_type = 0; /* x214477 */ t14281.s0.tag = EXTERNAL_SYMBOL_TYPE; t14281.s0.value.external_symbol_type = q597; /* x214478 */ t14281.s1.tag = NULL_TYPE; /* x214479 */ t14280.s0.tag = STRUCTURE_TYPE24753; t14280.s0.value.structure_type24753 = &t14281; /* x214480 */ t14280.s1.tag = NULL_TYPE; /* x214481 */ t14279.s1.tag = STRUCTURE_TYPE24753; t14279.s1.value.structure_type24753 = &t14280; /* x214482 */ t14278.s1.tag = STRUCTURE_TYPE24753; t14278.s1.value.structure_type24753 = &t14279; /* x214483 */ t14277.s1.tag = STRUCTURE_TYPE24753; t14277.s1.value.structure_type24753 = &t14278; /* x214484 */ t14276.s1.tag = STRUCTURE_TYPE24753; t14276.s1.value.structure_type24753 = &t14277; /* x214485 */ t14275.s0.tag = STRUCTURE_TYPE24753; t14275.s0.value.structure_type24753 = &t14276; /* x214486 */ t14275.s1.tag = NULL_TYPE; /* x214487 */ t14274.s1.tag = STRUCTURE_TYPE24753; t14274.s1.value.structure_type24753 = &t14275; /* x214488 */ t14273.s1.tag = STRUCTURE_TYPE24753; t14273.s1.value.structure_type24753 = &t14274; /* x214489 */ t14272.s0.tag = STRUCTURE_TYPE24753; t14272.s0.value.structure_type24753 = &t14273; /* x214490 */ t14283.s0.tag = EXTERNAL_SYMBOL_TYPE; t14283.s0.value.external_symbol_type = q598; /* x214491 */ t14284.s0.tag = EXTERNAL_SYMBOL_TYPE; t14284.s0.value.external_symbol_type = q540; /* x214492 */ t14285.s0.tag = EXTERNAL_SYMBOL_TYPE; t14285.s0.value.external_symbol_type = q620; /* x214493 */ t14287.s0.tag = EXTERNAL_SYMBOL_TYPE; t14287.s0.value.external_symbol_type = q582; /* x214494 */ t14289.s0.tag = EXTERNAL_SYMBOL_TYPE; t14289.s0.value.external_symbol_type = q583; /* x214495 */ t14290.s0.tag = EXTERNAL_SYMBOL_TYPE; t14290.s0.value.external_symbol_type = q555; /* x214496 */ t14290.s1.tag = NULL_TYPE; /* x214497 */ t14289.s1.tag = STRUCTURE_TYPE24753; t14289.s1.value.structure_type24753 = &t14290; /* x214498 */ t14288.s0.tag = STRUCTURE_TYPE24753; t14288.s0.value.structure_type24753 = &t14289; /* x214499 */ t14288.s1.tag = NULL_TYPE; /* x214500 */ t14287.s1.tag = STRUCTURE_TYPE24753; t14287.s1.value.structure_type24753 = &t14288; /* x214501 */ t14286.s0.tag = STRUCTURE_TYPE24753; t14286.s0.value.structure_type24753 = &t14287; /* x214502 */ t14286.s1.tag = NULL_TYPE; /* x214503 */ t14285.s1.tag = STRUCTURE_TYPE24753; t14285.s1.value.structure_type24753 = &t14286; /* x214504 */ t14284.s1.tag = STRUCTURE_TYPE24753; t14284.s1.value.structure_type24753 = &t14285; /* x214505 */ t14283.s1.tag = STRUCTURE_TYPE24753; t14283.s1.value.structure_type24753 = &t14284; /* x214506 */ t14282.s0.tag = STRUCTURE_TYPE24753; t14282.s0.value.structure_type24753 = &t14283; /* x214507 */ t14292.s0.tag = EXTERNAL_SYMBOL_TYPE; t14292.s0.value.external_symbol_type = q599; /* x214508 */ t14293.s0.tag = EXTERNAL_SYMBOL_TYPE; t14293.s0.value.external_symbol_type = q540; /* x214509 */ t14294.s0.tag = EXTERNAL_SYMBOL_TYPE; t14294.s0.value.external_symbol_type = q620; /* x214510 */ t14296.s0.tag = EXTERNAL_SYMBOL_TYPE; t14296.s0.value.external_symbol_type = q582; /* x214511 */ t14298.s0.tag = EXTERNAL_SYMBOL_TYPE; t14298.s0.value.external_symbol_type = q583; /* x214512 */ t14299.s0.tag = EXTERNAL_SYMBOL_TYPE; t14299.s0.value.external_symbol_type = q619; /* x214513 */ t14299.s1.tag = NULL_TYPE; /* x214514 */ t14298.s1.tag = STRUCTURE_TYPE24753; t14298.s1.value.structure_type24753 = &t14299; /* x214515 */ t14297.s0.tag = STRUCTURE_TYPE24753; t14297.s0.value.structure_type24753 = &t14298; /* x214516 */ t14297.s1.tag = NULL_TYPE; /* x214517 */ t14296.s1.tag = STRUCTURE_TYPE24753; t14296.s1.value.structure_type24753 = &t14297; /* x214518 */ t14295.s0.tag = STRUCTURE_TYPE24753; t14295.s0.value.structure_type24753 = &t14296; /* x214519 */ t14295.s1.tag = NULL_TYPE; /* x214520 */ t14294.s1.tag = STRUCTURE_TYPE24753; t14294.s1.value.structure_type24753 = &t14295; /* x214521 */ t14293.s1.tag = STRUCTURE_TYPE24753; t14293.s1.value.structure_type24753 = &t14294; /* x214522 */ t14292.s1.tag = STRUCTURE_TYPE24753; t14292.s1.value.structure_type24753 = &t14293; /* x214523 */ t14291.s0.tag = STRUCTURE_TYPE24753; t14291.s0.value.structure_type24753 = &t14292; /* x214524 */ t14301.s0.tag = EXTERNAL_SYMBOL_TYPE; t14301.s0.value.external_symbol_type = q600; /* x214525 */ t14302.s0.tag = EXTERNAL_SYMBOL_TYPE; t14302.s0.value.external_symbol_type = q540; /* x214526 */ t14303.s0.tag = EXTERNAL_SYMBOL_TYPE; t14303.s0.value.external_symbol_type = q620; /* x214527 */ t14304.s0.tag = FIXNUM_TYPE; t14304.s0.value.fixnum_type = 0; /* x214528 */ t14305.s0.tag = EXTERNAL_SYMBOL_TYPE; t14305.s0.value.external_symbol_type = q601; /* x214529 */ t14306.s0.tag = EXTERNAL_SYMBOL_TYPE; t14306.s0.value.external_symbol_type = q602; /* x214530 */ t14307.s0.tag = EXTERNAL_SYMBOL_TYPE; t14307.s0.value.external_symbol_type = q603; /* x214531 */ t14307.s1.tag = NULL_TYPE; /* x214532 */ t14306.s1.tag = STRUCTURE_TYPE24753; t14306.s1.value.structure_type24753 = &t14307; /* x214533 */ t14305.s1.tag = STRUCTURE_TYPE24753; t14305.s1.value.structure_type24753 = &t14306; /* x214534 */ t14304.s1.tag = STRUCTURE_TYPE24753; t14304.s1.value.structure_type24753 = &t14305; /* x214535 */ t14303.s1.tag = STRUCTURE_TYPE24753; t14303.s1.value.structure_type24753 = &t14304; /* x214536 */ t14302.s1.tag = STRUCTURE_TYPE24753; t14302.s1.value.structure_type24753 = &t14303; /* x214537 */ t14301.s1.tag = STRUCTURE_TYPE24753; t14301.s1.value.structure_type24753 = &t14302; /* x214538 */ t14300.s0.tag = STRUCTURE_TYPE24753; t14300.s0.value.structure_type24753 = &t14301; /* x214539 */ t14309.s0.tag = EXTERNAL_SYMBOL_TYPE; t14309.s0.value.external_symbol_type = q42; /* x214540 */ t14310.s0.tag = EXTERNAL_SYMBOL_TYPE; t14310.s0.value.external_symbol_type = q621; /* x214541 */ t14312.s0.tag = EXTERNAL_SYMBOL_TYPE; t14312.s0.value.external_symbol_type = q556; /* x214542 */ t14313.s0.tag = EXTERNAL_SYMBOL_TYPE; t14313.s0.value.external_symbol_type = q540; /* x214543 */ t14315.s0.tag = EXTERNAL_SYMBOL_TYPE; t14315.s0.value.external_symbol_type = q557; /* x214544 */ t14316.s0.tag = EXTERNAL_SYMBOL_TYPE; t14316.s0.value.external_symbol_type = q540; /* x214545 */ t14317.s0.tag = EXTERNAL_SYMBOL_TYPE; t14317.s0.value.external_symbol_type = q545; /* x214546 */ t14317.s1.tag = NULL_TYPE; /* x214547 */ t14316.s1.tag = STRUCTURE_TYPE24753; t14316.s1.value.structure_type24753 = &t14317; /* x214548 */ t14315.s1.tag = STRUCTURE_TYPE24753; t14315.s1.value.structure_type24753 = &t14316; /* x214549 */ t14314.s0.tag = STRUCTURE_TYPE24753; t14314.s0.value.structure_type24753 = &t14315; /* x214550 */ t14318.s0.tag = STRING_TYPE; t14318.s0.value.string_type = "Gray"; /* x214551 */ t14318.s1.tag = NULL_TYPE; /* x214552 */ t14314.s1.tag = STRUCTURE_TYPE24753; t14314.s1.value.structure_type24753 = &t14318; /* x214553 */ t14313.s1.tag = STRUCTURE_TYPE24753; t14313.s1.value.structure_type24753 = &t14314; /* x214554 */ t14312.s1.tag = STRUCTURE_TYPE24753; t14312.s1.value.structure_type24753 = &t14313; /* x214555 */ t14311.s0.tag = STRUCTURE_TYPE24753; t14311.s0.value.structure_type24753 = &t14312; /* x214556 */ t14311.s1.tag = NULL_TYPE; /* x214557 */ t14310.s1.tag = STRUCTURE_TYPE24753; t14310.s1.value.structure_type24753 = &t14311; /* x214558 */ t14309.s1.tag = STRUCTURE_TYPE24753; t14309.s1.value.structure_type24753 = &t14310; /* x214559 */ t14308.s0.tag = STRUCTURE_TYPE24753; t14308.s0.value.structure_type24753 = &t14309; /* x214560 */ t14320.s0.tag = EXTERNAL_SYMBOL_TYPE; t14320.s0.value.external_symbol_type = q494; /* x214561 */ t14322.s0.tag = EXTERNAL_SYMBOL_TYPE; t14322.s0.value.external_symbol_type = q120; /* x214562 */ t14324.s0.tag = EXTERNAL_SYMBOL_TYPE; t14324.s0.value.external_symbol_type = q559; /* x214563 */ t14325.s0.tag = EXTERNAL_SYMBOL_TYPE; t14325.s0.value.external_symbol_type = q621; /* x214564 */ t14325.s1.tag = NULL_TYPE; /* x214565 */ t14324.s1.tag = STRUCTURE_TYPE24753; t14324.s1.value.structure_type24753 = &t14325; /* x214566 */ t14323.s0.tag = STRUCTURE_TYPE24753; t14323.s0.value.structure_type24753 = &t14324; /* x214567 */ t14326.s0.tag = FIXNUM_TYPE; t14326.s0.value.fixnum_type = 1; /* x214568 */ t14326.s1.tag = NULL_TYPE; /* x214569 */ t14323.s1.tag = STRUCTURE_TYPE24753; t14323.s1.value.structure_type24753 = &t14326; /* x214570 */ t14322.s1.tag = STRUCTURE_TYPE24753; t14322.s1.value.structure_type24753 = &t14323; /* x214571 */ t14321.s0.tag = STRUCTURE_TYPE24753; t14321.s0.value.structure_type24753 = &t14322; /* x214572 */ t14328.s0.tag = EXTERNAL_SYMBOL_TYPE; t14328.s0.value.external_symbol_type = q179; /* x214573 */ t14329.s0.tag = STRING_TYPE; t14329.s0.value.string_type = "Can\'t allocate gray colorcell"; /* x214574 */ t14329.s1.tag = NULL_TYPE; /* x214575 */ t14328.s1.tag = STRUCTURE_TYPE24753; t14328.s1.value.structure_type24753 = &t14329; /* x214576 */ t14327.s0.tag = STRUCTURE_TYPE24753; t14327.s0.value.structure_type24753 = &t14328; /* x214577 */ t14327.s1.tag = NULL_TYPE; /* x214578 */ t14321.s1.tag = STRUCTURE_TYPE24753; t14321.s1.value.structure_type24753 = &t14327; /* x214579 */ t14320.s1.tag = STRUCTURE_TYPE24753; t14320.s1.value.structure_type24753 = &t14321; /* x214580 */ t14319.s0.tag = STRUCTURE_TYPE24753; t14319.s0.value.structure_type24753 = &t14320; /* x214581 */ t14331.s0.tag = EXTERNAL_SYMBOL_TYPE; t14331.s0.value.external_symbol_type = q42; /* x214582 */ t14332.s0.tag = EXTERNAL_SYMBOL_TYPE; t14332.s0.value.external_symbol_type = q622; /* x214583 */ t14334.s0.tag = EXTERNAL_SYMBOL_TYPE; t14334.s0.value.external_symbol_type = q596; /* x214584 */ t14335.s0.tag = EXTERNAL_SYMBOL_TYPE; t14335.s0.value.external_symbol_type = q540; /* x214585 */ t14336.s0.tag = EXTERNAL_SYMBOL_TYPE; t14336.s0.value.external_symbol_type = q578; /* x214586 */ t14337.s0.tag = FIXNUM_TYPE; t14337.s0.value.fixnum_type = 0; /* x214587 */ t14339.s0.tag = EXTERNAL_SYMBOL_TYPE; t14339.s0.value.external_symbol_type = q597; /* x214588 */ t14339.s1.tag = NULL_TYPE; /* x214589 */ t14338.s0.tag = STRUCTURE_TYPE24753; t14338.s0.value.structure_type24753 = &t14339; /* x214590 */ t14338.s1.tag = NULL_TYPE; /* x214591 */ t14337.s1.tag = STRUCTURE_TYPE24753; t14337.s1.value.structure_type24753 = &t14338; /* x214592 */ t14336.s1.tag = STRUCTURE_TYPE24753; t14336.s1.value.structure_type24753 = &t14337; /* x214593 */ t14335.s1.tag = STRUCTURE_TYPE24753; t14335.s1.value.structure_type24753 = &t14336; /* x214594 */ t14334.s1.tag = STRUCTURE_TYPE24753; t14334.s1.value.structure_type24753 = &t14335; /* x214595 */ t14333.s0.tag = STRUCTURE_TYPE24753; t14333.s0.value.structure_type24753 = &t14334; /* x214596 */ t14333.s1.tag = NULL_TYPE; /* x214597 */ t14332.s1.tag = STRUCTURE_TYPE24753; t14332.s1.value.structure_type24753 = &t14333; /* x214598 */ t14331.s1.tag = STRUCTURE_TYPE24753; t14331.s1.value.structure_type24753 = &t14332; /* x214599 */ t14330.s0.tag = STRUCTURE_TYPE24753; t14330.s0.value.structure_type24753 = &t14331; /* x214600 */ t14341.s0.tag = EXTERNAL_SYMBOL_TYPE; t14341.s0.value.external_symbol_type = q598; /* x214601 */ t14342.s0.tag = EXTERNAL_SYMBOL_TYPE; t14342.s0.value.external_symbol_type = q540; /* x214602 */ t14343.s0.tag = EXTERNAL_SYMBOL_TYPE; t14343.s0.value.external_symbol_type = q622; /* x214603 */ t14345.s0.tag = EXTERNAL_SYMBOL_TYPE; t14345.s0.value.external_symbol_type = q582; /* x214604 */ t14347.s0.tag = EXTERNAL_SYMBOL_TYPE; t14347.s0.value.external_symbol_type = q583; /* x214605 */ t14348.s0.tag = EXTERNAL_SYMBOL_TYPE; t14348.s0.value.external_symbol_type = q555; /* x214606 */ t14348.s1.tag = NULL_TYPE; /* x214607 */ t14347.s1.tag = STRUCTURE_TYPE24753; t14347.s1.value.structure_type24753 = &t14348; /* x214608 */ t14346.s0.tag = STRUCTURE_TYPE24753; t14346.s0.value.structure_type24753 = &t14347; /* x214609 */ t14346.s1.tag = NULL_TYPE; /* x214610 */ t14345.s1.tag = STRUCTURE_TYPE24753; t14345.s1.value.structure_type24753 = &t14346; /* x214611 */ t14344.s0.tag = STRUCTURE_TYPE24753; t14344.s0.value.structure_type24753 = &t14345; /* x214612 */ t14344.s1.tag = NULL_TYPE; /* x214613 */ t14343.s1.tag = STRUCTURE_TYPE24753; t14343.s1.value.structure_type24753 = &t14344; /* x214614 */ t14342.s1.tag = STRUCTURE_TYPE24753; t14342.s1.value.structure_type24753 = &t14343; /* x214615 */ t14341.s1.tag = STRUCTURE_TYPE24753; t14341.s1.value.structure_type24753 = &t14342; /* x214616 */ t14340.s0.tag = STRUCTURE_TYPE24753; t14340.s0.value.structure_type24753 = &t14341; /* x214617 */ t14350.s0.tag = EXTERNAL_SYMBOL_TYPE; t14350.s0.value.external_symbol_type = q599; /* x214618 */ t14351.s0.tag = EXTERNAL_SYMBOL_TYPE; t14351.s0.value.external_symbol_type = q540; /* x214619 */ t14352.s0.tag = EXTERNAL_SYMBOL_TYPE; t14352.s0.value.external_symbol_type = q622; /* x214620 */ t14354.s0.tag = EXTERNAL_SYMBOL_TYPE; t14354.s0.value.external_symbol_type = q582; /* x214621 */ t14356.s0.tag = EXTERNAL_SYMBOL_TYPE; t14356.s0.value.external_symbol_type = q583; /* x214622 */ t14357.s0.tag = EXTERNAL_SYMBOL_TYPE; t14357.s0.value.external_symbol_type = q621; /* x214623 */ t14357.s1.tag = NULL_TYPE; /* x214624 */ t14356.s1.tag = STRUCTURE_TYPE24753; t14356.s1.value.structure_type24753 = &t14357; /* x214625 */ t14355.s0.tag = STRUCTURE_TYPE24753; t14355.s0.value.structure_type24753 = &t14356; /* x214626 */ t14355.s1.tag = NULL_TYPE; /* x214627 */ t14354.s1.tag = STRUCTURE_TYPE24753; t14354.s1.value.structure_type24753 = &t14355; /* x214628 */ t14353.s0.tag = STRUCTURE_TYPE24753; t14353.s0.value.structure_type24753 = &t14354; /* x214629 */ t14353.s1.tag = NULL_TYPE; /* x214630 */ t14352.s1.tag = STRUCTURE_TYPE24753; t14352.s1.value.structure_type24753 = &t14353; /* x214631 */ t14351.s1.tag = STRUCTURE_TYPE24753; t14351.s1.value.structure_type24753 = &t14352; /* x214632 */ t14350.s1.tag = STRUCTURE_TYPE24753; t14350.s1.value.structure_type24753 = &t14351; /* x214633 */ t14349.s0.tag = STRUCTURE_TYPE24753; t14349.s0.value.structure_type24753 = &t14350; /* x214634 */ t14359.s0.tag = EXTERNAL_SYMBOL_TYPE; t14359.s0.value.external_symbol_type = q600; /* x214635 */ t14360.s0.tag = EXTERNAL_SYMBOL_TYPE; t14360.s0.value.external_symbol_type = q540; /* x214636 */ t14361.s0.tag = EXTERNAL_SYMBOL_TYPE; t14361.s0.value.external_symbol_type = q622; /* x214637 */ t14362.s0.tag = FIXNUM_TYPE; t14362.s0.value.fixnum_type = 0; /* x214638 */ t14363.s0.tag = EXTERNAL_SYMBOL_TYPE; t14363.s0.value.external_symbol_type = q601; /* x214639 */ t14364.s0.tag = EXTERNAL_SYMBOL_TYPE; t14364.s0.value.external_symbol_type = q602; /* x214640 */ t14365.s0.tag = EXTERNAL_SYMBOL_TYPE; t14365.s0.value.external_symbol_type = q603; /* x214641 */ t14365.s1.tag = NULL_TYPE; /* x214642 */ t14364.s1.tag = STRUCTURE_TYPE24753; t14364.s1.value.structure_type24753 = &t14365; /* x214643 */ t14363.s1.tag = STRUCTURE_TYPE24753; t14363.s1.value.structure_type24753 = &t14364; /* x214644 */ t14362.s1.tag = STRUCTURE_TYPE24753; t14362.s1.value.structure_type24753 = &t14363; /* x214645 */ t14361.s1.tag = STRUCTURE_TYPE24753; t14361.s1.value.structure_type24753 = &t14362; /* x214646 */ t14360.s1.tag = STRUCTURE_TYPE24753; t14360.s1.value.structure_type24753 = &t14361; /* x214647 */ t14359.s1.tag = STRUCTURE_TYPE24753; t14359.s1.value.structure_type24753 = &t14360; /* x214648 */ t14358.s0.tag = STRUCTURE_TYPE24753; t14358.s0.value.structure_type24753 = &t14359; /* x214649 */ t14367.s0.tag = EXTERNAL_SYMBOL_TYPE; t14367.s0.value.external_symbol_type = q42; /* x214650 */ t14368.s0.tag = EXTERNAL_SYMBOL_TYPE; t14368.s0.value.external_symbol_type = q623; /* x214651 */ t14370.s0.tag = EXTERNAL_SYMBOL_TYPE; t14370.s0.value.external_symbol_type = q556; /* x214652 */ t14371.s0.tag = EXTERNAL_SYMBOL_TYPE; t14371.s0.value.external_symbol_type = q540; /* x214653 */ t14373.s0.tag = EXTERNAL_SYMBOL_TYPE; t14373.s0.value.external_symbol_type = q557; /* x214654 */ t14374.s0.tag = EXTERNAL_SYMBOL_TYPE; t14374.s0.value.external_symbol_type = q540; /* x214655 */ t14375.s0.tag = EXTERNAL_SYMBOL_TYPE; t14375.s0.value.external_symbol_type = q545; /* x214656 */ t14375.s1.tag = NULL_TYPE; /* x214657 */ t14374.s1.tag = STRUCTURE_TYPE24753; t14374.s1.value.structure_type24753 = &t14375; /* x214658 */ t14373.s1.tag = STRUCTURE_TYPE24753; t14373.s1.value.structure_type24753 = &t14374; /* x214659 */ t14372.s0.tag = STRUCTURE_TYPE24753; t14372.s0.value.structure_type24753 = &t14373; /* x214660 */ t14376.s0.tag = STRING_TYPE; t14376.s0.value.string_type = "Red"; /* x214661 */ t14376.s1.tag = NULL_TYPE; /* x214662 */ t14372.s1.tag = STRUCTURE_TYPE24753; t14372.s1.value.structure_type24753 = &t14376; /* x214663 */ t14371.s1.tag = STRUCTURE_TYPE24753; t14371.s1.value.structure_type24753 = &t14372; /* x214664 */ t14370.s1.tag = STRUCTURE_TYPE24753; t14370.s1.value.structure_type24753 = &t14371; /* x214665 */ t14369.s0.tag = STRUCTURE_TYPE24753; t14369.s0.value.structure_type24753 = &t14370; /* x214666 */ t14369.s1.tag = NULL_TYPE; /* x214667 */ t14368.s1.tag = STRUCTURE_TYPE24753; t14368.s1.value.structure_type24753 = &t14369; /* x214668 */ t14367.s1.tag = STRUCTURE_TYPE24753; t14367.s1.value.structure_type24753 = &t14368; /* x214669 */ t14366.s0.tag = STRUCTURE_TYPE24753; t14366.s0.value.structure_type24753 = &t14367; /* x214670 */ t14378.s0.tag = EXTERNAL_SYMBOL_TYPE; t14378.s0.value.external_symbol_type = q494; /* x214671 */ t14380.s0.tag = EXTERNAL_SYMBOL_TYPE; t14380.s0.value.external_symbol_type = q120; /* x214672 */ t14382.s0.tag = EXTERNAL_SYMBOL_TYPE; t14382.s0.value.external_symbol_type = q559; /* x214673 */ t14383.s0.tag = EXTERNAL_SYMBOL_TYPE; t14383.s0.value.external_symbol_type = q623; /* x214674 */ t14383.s1.tag = NULL_TYPE; /* x214675 */ t14382.s1.tag = STRUCTURE_TYPE24753; t14382.s1.value.structure_type24753 = &t14383; /* x214676 */ t14381.s0.tag = STRUCTURE_TYPE24753; t14381.s0.value.structure_type24753 = &t14382; /* x214677 */ t14384.s0.tag = FIXNUM_TYPE; t14384.s0.value.fixnum_type = 1; /* x214678 */ t14384.s1.tag = NULL_TYPE; /* x214679 */ t14381.s1.tag = STRUCTURE_TYPE24753; t14381.s1.value.structure_type24753 = &t14384; /* x214680 */ t14380.s1.tag = STRUCTURE_TYPE24753; t14380.s1.value.structure_type24753 = &t14381; /* x214681 */ t14379.s0.tag = STRUCTURE_TYPE24753; t14379.s0.value.structure_type24753 = &t14380; /* x214682 */ t14386.s0.tag = EXTERNAL_SYMBOL_TYPE; t14386.s0.value.external_symbol_type = q179; /* x214683 */ t14387.s0.tag = STRING_TYPE; t14387.s0.value.string_type = "Can\'t allocate red colorcell"; /* x214684 */ t14387.s1.tag = NULL_TYPE; /* x214685 */ t14386.s1.tag = STRUCTURE_TYPE24753; t14386.s1.value.structure_type24753 = &t14387; /* x214686 */ t14385.s0.tag = STRUCTURE_TYPE24753; t14385.s0.value.structure_type24753 = &t14386; /* x214687 */ t14385.s1.tag = NULL_TYPE; /* x214688 */ t14379.s1.tag = STRUCTURE_TYPE24753; t14379.s1.value.structure_type24753 = &t14385; /* x214689 */ t14378.s1.tag = STRUCTURE_TYPE24753; t14378.s1.value.structure_type24753 = &t14379; /* x214690 */ t14377.s0.tag = STRUCTURE_TYPE24753; t14377.s0.value.structure_type24753 = &t14378; /* x214691 */ t14389.s0.tag = EXTERNAL_SYMBOL_TYPE; t14389.s0.value.external_symbol_type = q42; /* x214692 */ t14390.s0.tag = EXTERNAL_SYMBOL_TYPE; t14390.s0.value.external_symbol_type = q624; /* x214693 */ t14392.s0.tag = EXTERNAL_SYMBOL_TYPE; t14392.s0.value.external_symbol_type = q596; /* x214694 */ t14393.s0.tag = EXTERNAL_SYMBOL_TYPE; t14393.s0.value.external_symbol_type = q540; /* x214695 */ t14394.s0.tag = EXTERNAL_SYMBOL_TYPE; t14394.s0.value.external_symbol_type = q578; /* x214696 */ t14395.s0.tag = FIXNUM_TYPE; t14395.s0.value.fixnum_type = 0; /* x214697 */ t14397.s0.tag = EXTERNAL_SYMBOL_TYPE; t14397.s0.value.external_symbol_type = q597; /* x214698 */ t14397.s1.tag = NULL_TYPE; /* x214699 */ t14396.s0.tag = STRUCTURE_TYPE24753; t14396.s0.value.structure_type24753 = &t14397; /* x214700 */ t14396.s1.tag = NULL_TYPE; /* x214701 */ t14395.s1.tag = STRUCTURE_TYPE24753; t14395.s1.value.structure_type24753 = &t14396; /* x214702 */ t14394.s1.tag = STRUCTURE_TYPE24753; t14394.s1.value.structure_type24753 = &t14395; /* x214703 */ t14393.s1.tag = STRUCTURE_TYPE24753; t14393.s1.value.structure_type24753 = &t14394; /* x214704 */ t14392.s1.tag = STRUCTURE_TYPE24753; t14392.s1.value.structure_type24753 = &t14393; /* x214705 */ t14391.s0.tag = STRUCTURE_TYPE24753; t14391.s0.value.structure_type24753 = &t14392; /* x214706 */ t14391.s1.tag = NULL_TYPE; /* x214707 */ t14390.s1.tag = STRUCTURE_TYPE24753; t14390.s1.value.structure_type24753 = &t14391; /* x214708 */ t14389.s1.tag = STRUCTURE_TYPE24753; t14389.s1.value.structure_type24753 = &t14390; /* x214709 */ t14388.s0.tag = STRUCTURE_TYPE24753; t14388.s0.value.structure_type24753 = &t14389; /* x214710 */ t14399.s0.tag = EXTERNAL_SYMBOL_TYPE; t14399.s0.value.external_symbol_type = q598; /* x214711 */ t14400.s0.tag = EXTERNAL_SYMBOL_TYPE; t14400.s0.value.external_symbol_type = q540; /* x214712 */ t14401.s0.tag = EXTERNAL_SYMBOL_TYPE; t14401.s0.value.external_symbol_type = q624; /* x214713 */ t14403.s0.tag = EXTERNAL_SYMBOL_TYPE; t14403.s0.value.external_symbol_type = q582; /* x214714 */ t14405.s0.tag = EXTERNAL_SYMBOL_TYPE; t14405.s0.value.external_symbol_type = q583; /* x214715 */ t14406.s0.tag = EXTERNAL_SYMBOL_TYPE; t14406.s0.value.external_symbol_type = q555; /* x214716 */ t14406.s1.tag = NULL_TYPE; /* x214717 */ t14405.s1.tag = STRUCTURE_TYPE24753; t14405.s1.value.structure_type24753 = &t14406; /* x214718 */ t14404.s0.tag = STRUCTURE_TYPE24753; t14404.s0.value.structure_type24753 = &t14405; /* x214719 */ t14404.s1.tag = NULL_TYPE; /* x214720 */ t14403.s1.tag = STRUCTURE_TYPE24753; t14403.s1.value.structure_type24753 = &t14404; /* x214721 */ t14402.s0.tag = STRUCTURE_TYPE24753; t14402.s0.value.structure_type24753 = &t14403; /* x214722 */ t14402.s1.tag = NULL_TYPE; /* x214723 */ t14401.s1.tag = STRUCTURE_TYPE24753; t14401.s1.value.structure_type24753 = &t14402; /* x214724 */ t14400.s1.tag = STRUCTURE_TYPE24753; t14400.s1.value.structure_type24753 = &t14401; /* x214725 */ t14399.s1.tag = STRUCTURE_TYPE24753; t14399.s1.value.structure_type24753 = &t14400; /* x214726 */ t14398.s0.tag = STRUCTURE_TYPE24753;} void initialize_constants3(void) {t14398.s0.value.structure_type24753 = &t14399; /* x214727 */ t14408.s0.tag = EXTERNAL_SYMBOL_TYPE; t14408.s0.value.external_symbol_type = q599; /* x214728 */ t14409.s0.tag = EXTERNAL_SYMBOL_TYPE; t14409.s0.value.external_symbol_type = q540; /* x214729 */ t14410.s0.tag = EXTERNAL_SYMBOL_TYPE; t14410.s0.value.external_symbol_type = q624; /* x214730 */ t14412.s0.tag = EXTERNAL_SYMBOL_TYPE; t14412.s0.value.external_symbol_type = q582; /* x214731 */ t14414.s0.tag = EXTERNAL_SYMBOL_TYPE; t14414.s0.value.external_symbol_type = q583; /* x214732 */ t14415.s0.tag = EXTERNAL_SYMBOL_TYPE; t14415.s0.value.external_symbol_type = q623; /* x214733 */ t14415.s1.tag = NULL_TYPE; /* x214734 */ t14414.s1.tag = STRUCTURE_TYPE24753; t14414.s1.value.structure_type24753 = &t14415; /* x214735 */ t14413.s0.tag = STRUCTURE_TYPE24753; t14413.s0.value.structure_type24753 = &t14414; /* x214736 */ t14413.s1.tag = NULL_TYPE; /* x214737 */ t14412.s1.tag = STRUCTURE_TYPE24753; t14412.s1.value.structure_type24753 = &t14413; /* x214738 */ t14411.s0.tag = STRUCTURE_TYPE24753; t14411.s0.value.structure_type24753 = &t14412; /* x214739 */ t14411.s1.tag = NULL_TYPE; /* x214740 */ t14410.s1.tag = STRUCTURE_TYPE24753; t14410.s1.value.structure_type24753 = &t14411; /* x214741 */ t14409.s1.tag = STRUCTURE_TYPE24753; t14409.s1.value.structure_type24753 = &t14410; /* x214742 */ t14408.s1.tag = STRUCTURE_TYPE24753; t14408.s1.value.structure_type24753 = &t14409; /* x214743 */ t14407.s0.tag = STRUCTURE_TYPE24753; t14407.s0.value.structure_type24753 = &t14408; /* x214744 */ t14417.s0.tag = EXTERNAL_SYMBOL_TYPE; t14417.s0.value.external_symbol_type = q615; /* x214745 */ t14418.s0.tag = EXTERNAL_SYMBOL_TYPE; t14418.s0.value.external_symbol_type = q540; /* x214746 */ t14419.s0.tag = EXTERNAL_SYMBOL_TYPE; t14419.s0.value.external_symbol_type = q624; /* x214747 */ t14421.s0.tag = EXTERNAL_SYMBOL_TYPE; t14421.s0.value.external_symbol_type = q616; /* x214748 */ t14422.s0.tag = EXTERNAL_SYMBOL_TYPE; t14422.s0.value.external_symbol_type = q562; /* x214749 */ t14422.s1.tag = NULL_TYPE; /* x214750 */ t14421.s1.tag = STRUCTURE_TYPE24753; t14421.s1.value.structure_type24753 = &t14422; /* x214751 */ t14420.s0.tag = STRUCTURE_TYPE24753; t14420.s0.value.structure_type24753 = &t14421; /* x214752 */ t14420.s1.tag = NULL_TYPE; /* x214753 */ t14419.s1.tag = STRUCTURE_TYPE24753; t14419.s1.value.structure_type24753 = &t14420; /* x214754 */ t14418.s1.tag = STRUCTURE_TYPE24753; t14418.s1.value.structure_type24753 = &t14419; /* x214755 */ t14417.s1.tag = STRUCTURE_TYPE24753; t14417.s1.value.structure_type24753 = &t14418; /* x214756 */ t14416.s0.tag = STRUCTURE_TYPE24753; t14416.s0.value.structure_type24753 = &t14417; /* x214757 */ t14424.s0.tag = EXTERNAL_SYMBOL_TYPE; t14424.s0.value.external_symbol_type = q600; /* x214758 */ t14425.s0.tag = EXTERNAL_SYMBOL_TYPE; t14425.s0.value.external_symbol_type = q540; /* x214759 */ t14426.s0.tag = EXTERNAL_SYMBOL_TYPE; t14426.s0.value.external_symbol_type = q624; /* x214760 */ t14427.s0.tag = FIXNUM_TYPE; t14427.s0.value.fixnum_type = 0; /* x214761 */ t14428.s0.tag = EXTERNAL_SYMBOL_TYPE; t14428.s0.value.external_symbol_type = q601; /* x214762 */ t14429.s0.tag = EXTERNAL_SYMBOL_TYPE; t14429.s0.value.external_symbol_type = q602; /* x214763 */ t14430.s0.tag = EXTERNAL_SYMBOL_TYPE; t14430.s0.value.external_symbol_type = q603; /* x214764 */ t14430.s1.tag = NULL_TYPE; /* x214765 */ t14429.s1.tag = STRUCTURE_TYPE24753; t14429.s1.value.structure_type24753 = &t14430; /* x214766 */ t14428.s1.tag = STRUCTURE_TYPE24753; t14428.s1.value.structure_type24753 = &t14429; /* x214767 */ t14427.s1.tag = STRUCTURE_TYPE24753; t14427.s1.value.structure_type24753 = &t14428; /* x214768 */ t14426.s1.tag = STRUCTURE_TYPE24753; t14426.s1.value.structure_type24753 = &t14427; /* x214769 */ t14425.s1.tag = STRUCTURE_TYPE24753; t14425.s1.value.structure_type24753 = &t14426; /* x214770 */ t14424.s1.tag = STRUCTURE_TYPE24753; t14424.s1.value.structure_type24753 = &t14425; /* x214771 */ t14423.s0.tag = STRUCTURE_TYPE24753; t14423.s0.value.structure_type24753 = &t14424; /* x214772 */ t14432.s0.tag = EXTERNAL_SYMBOL_TYPE; t14432.s0.value.external_symbol_type = q42; /* x214773 */ t14433.s0.tag = EXTERNAL_SYMBOL_TYPE; t14433.s0.value.external_symbol_type = q625; /* x214774 */ t14435.s0.tag = EXTERNAL_SYMBOL_TYPE; t14435.s0.value.external_symbol_type = q556; /* x214775 */ t14436.s0.tag = EXTERNAL_SYMBOL_TYPE; t14436.s0.value.external_symbol_type = q540; /* x214776 */ t14438.s0.tag = EXTERNAL_SYMBOL_TYPE; t14438.s0.value.external_symbol_type = q557; /* x214777 */ t14439.s0.tag = EXTERNAL_SYMBOL_TYPE; t14439.s0.value.external_symbol_type = q540; /* x214778 */ t14440.s0.tag = EXTERNAL_SYMBOL_TYPE; t14440.s0.value.external_symbol_type = q545; /* x214779 */ t14440.s1.tag = NULL_TYPE; /* x214780 */ t14439.s1.tag = STRUCTURE_TYPE24753; t14439.s1.value.structure_type24753 = &t14440; /* x214781 */ t14438.s1.tag = STRUCTURE_TYPE24753; t14438.s1.value.structure_type24753 = &t14439; /* x214782 */ t14437.s0.tag = STRUCTURE_TYPE24753; t14437.s0.value.structure_type24753 = &t14438; /* x214783 */ t14441.s0.tag = STRING_TYPE; t14441.s0.value.string_type = "Dark Red"; /* x214784 */ t14441.s1.tag = NULL_TYPE; /* x214785 */ t14437.s1.tag = STRUCTURE_TYPE24753; t14437.s1.value.structure_type24753 = &t14441; /* x214786 */ t14436.s1.tag = STRUCTURE_TYPE24753; t14436.s1.value.structure_type24753 = &t14437; /* x214787 */ t14435.s1.tag = STRUCTURE_TYPE24753; t14435.s1.value.structure_type24753 = &t14436; /* x214788 */ t14434.s0.tag = STRUCTURE_TYPE24753; t14434.s0.value.structure_type24753 = &t14435; /* x214789 */ t14434.s1.tag = NULL_TYPE; /* x214790 */ t14433.s1.tag = STRUCTURE_TYPE24753; t14433.s1.value.structure_type24753 = &t14434; /* x214791 */ t14432.s1.tag = STRUCTURE_TYPE24753; t14432.s1.value.structure_type24753 = &t14433; /* x214792 */ t14431.s0.tag = STRUCTURE_TYPE24753; t14431.s0.value.structure_type24753 = &t14432; /* x214793 */ t14443.s0.tag = EXTERNAL_SYMBOL_TYPE; t14443.s0.value.external_symbol_type = q494; /* x214794 */ t14445.s0.tag = EXTERNAL_SYMBOL_TYPE; t14445.s0.value.external_symbol_type = q120; /* x214795 */ t14447.s0.tag = EXTERNAL_SYMBOL_TYPE; t14447.s0.value.external_symbol_type = q559; /* x214796 */ t14448.s0.tag = EXTERNAL_SYMBOL_TYPE; t14448.s0.value.external_symbol_type = q625; /* x214797 */ t14448.s1.tag = NULL_TYPE; /* x214798 */ t14447.s1.tag = STRUCTURE_TYPE24753; t14447.s1.value.structure_type24753 = &t14448; /* x214799 */ t14446.s0.tag = STRUCTURE_TYPE24753; t14446.s0.value.structure_type24753 = &t14447; /* x214800 */ t14449.s0.tag = FIXNUM_TYPE; t14449.s0.value.fixnum_type = 1; /* x214801 */ t14449.s1.tag = NULL_TYPE; /* x214802 */ t14446.s1.tag = STRUCTURE_TYPE24753; t14446.s1.value.structure_type24753 = &t14449; /* x214803 */ t14445.s1.tag = STRUCTURE_TYPE24753; t14445.s1.value.structure_type24753 = &t14446; /* x214804 */ t14444.s0.tag = STRUCTURE_TYPE24753; t14444.s0.value.structure_type24753 = &t14445; /* x214805 */ t14451.s0.tag = EXTERNAL_SYMBOL_TYPE; t14451.s0.value.external_symbol_type = q179; /* x214806 */ t14452.s0.tag = STRING_TYPE; t14452.s0.value.string_type = "Can\'t allocate dark red colorcell"; /* x214807 */ t14452.s1.tag = NULL_TYPE; /* x214808 */ t14451.s1.tag = STRUCTURE_TYPE24753; t14451.s1.value.structure_type24753 = &t14452; /* x214809 */ t14450.s0.tag = STRUCTURE_TYPE24753; t14450.s0.value.structure_type24753 = &t14451; /* x214810 */ t14450.s1.tag = NULL_TYPE; /* x214811 */ t14444.s1.tag = STRUCTURE_TYPE24753; t14444.s1.value.structure_type24753 = &t14450; /* x214812 */ t14443.s1.tag = STRUCTURE_TYPE24753; t14443.s1.value.structure_type24753 = &t14444; /* x214813 */ t14442.s0.tag = STRUCTURE_TYPE24753; t14442.s0.value.structure_type24753 = &t14443; /* x214814 */ t14454.s0.tag = EXTERNAL_SYMBOL_TYPE; t14454.s0.value.external_symbol_type = q42; /* x214815 */ t14455.s0.tag = EXTERNAL_SYMBOL_TYPE; t14455.s0.value.external_symbol_type = q626; /* x214816 */ t14457.s0.tag = EXTERNAL_SYMBOL_TYPE; t14457.s0.value.external_symbol_type = q596; /* x214817 */ t14458.s0.tag = EXTERNAL_SYMBOL_TYPE; t14458.s0.value.external_symbol_type = q540; /* x214818 */ t14459.s0.tag = EXTERNAL_SYMBOL_TYPE; t14459.s0.value.external_symbol_type = q578; /* x214819 */ t14460.s0.tag = FIXNUM_TYPE; t14460.s0.value.fixnum_type = 0; /* x214820 */ t14462.s0.tag = EXTERNAL_SYMBOL_TYPE; t14462.s0.value.external_symbol_type = q597; /* x214821 */ t14462.s1.tag = NULL_TYPE; /* x214822 */ t14461.s0.tag = STRUCTURE_TYPE24753; t14461.s0.value.structure_type24753 = &t14462; /* x214823 */ t14461.s1.tag = NULL_TYPE; /* x214824 */ t14460.s1.tag = STRUCTURE_TYPE24753; t14460.s1.value.structure_type24753 = &t14461; /* x214825 */ t14459.s1.tag = STRUCTURE_TYPE24753; t14459.s1.value.structure_type24753 = &t14460; /* x214826 */ t14458.s1.tag = STRUCTURE_TYPE24753; t14458.s1.value.structure_type24753 = &t14459; /* x214827 */ t14457.s1.tag = STRUCTURE_TYPE24753; t14457.s1.value.structure_type24753 = &t14458; /* x214828 */ t14456.s0.tag = STRUCTURE_TYPE24753; t14456.s0.value.structure_type24753 = &t14457; /* x214829 */ t14456.s1.tag = NULL_TYPE; /* x214830 */ t14455.s1.tag = STRUCTURE_TYPE24753; t14455.s1.value.structure_type24753 = &t14456; /* x214831 */ t14454.s1.tag = STRUCTURE_TYPE24753; t14454.s1.value.structure_type24753 = &t14455; /* x214832 */ t14453.s0.tag = STRUCTURE_TYPE24753; t14453.s0.value.structure_type24753 = &t14454; /* x214833 */ t14464.s0.tag = EXTERNAL_SYMBOL_TYPE; t14464.s0.value.external_symbol_type = q598; /* x214834 */ t14465.s0.tag = EXTERNAL_SYMBOL_TYPE; t14465.s0.value.external_symbol_type = q540; /* x214835 */ t14466.s0.tag = EXTERNAL_SYMBOL_TYPE; t14466.s0.value.external_symbol_type = q626; /* x214836 */ t14468.s0.tag = EXTERNAL_SYMBOL_TYPE; t14468.s0.value.external_symbol_type = q582; /* x214837 */ t14470.s0.tag = EXTERNAL_SYMBOL_TYPE; t14470.s0.value.external_symbol_type = q583; /* x214838 */ t14471.s0.tag = EXTERNAL_SYMBOL_TYPE; t14471.s0.value.external_symbol_type = q555; /* x214839 */ t14471.s1.tag = NULL_TYPE; /* x214840 */ t14470.s1.tag = STRUCTURE_TYPE24753; t14470.s1.value.structure_type24753 = &t14471; /* x214841 */ t14469.s0.tag = STRUCTURE_TYPE24753; t14469.s0.value.structure_type24753 = &t14470; /* x214842 */ t14469.s1.tag = NULL_TYPE; /* x214843 */ t14468.s1.tag = STRUCTURE_TYPE24753; t14468.s1.value.structure_type24753 = &t14469; /* x214844 */ t14467.s0.tag = STRUCTURE_TYPE24753; t14467.s0.value.structure_type24753 = &t14468; /* x214845 */ t14467.s1.tag = NULL_TYPE; /* x214846 */ t14466.s1.tag = STRUCTURE_TYPE24753; t14466.s1.value.structure_type24753 = &t14467; /* x214847 */ t14465.s1.tag = STRUCTURE_TYPE24753; t14465.s1.value.structure_type24753 = &t14466; /* x214848 */ t14464.s1.tag = STRUCTURE_TYPE24753; t14464.s1.value.structure_type24753 = &t14465; /* x214849 */ t14463.s0.tag = STRUCTURE_TYPE24753; t14463.s0.value.structure_type24753 = &t14464; /* x214850 */ t14473.s0.tag = EXTERNAL_SYMBOL_TYPE; t14473.s0.value.external_symbol_type = q599; /* x214851 */ t14474.s0.tag = EXTERNAL_SYMBOL_TYPE; t14474.s0.value.external_symbol_type = q540; /* x214852 */ t14475.s0.tag = EXTERNAL_SYMBOL_TYPE; t14475.s0.value.external_symbol_type = q626; /* x214853 */ t14477.s0.tag = EXTERNAL_SYMBOL_TYPE; t14477.s0.value.external_symbol_type = q582; /* x214854 */ t14479.s0.tag = EXTERNAL_SYMBOL_TYPE; t14479.s0.value.external_symbol_type = q583; /* x214855 */ t14480.s0.tag = EXTERNAL_SYMBOL_TYPE; t14480.s0.value.external_symbol_type = q625; /* x214856 */ t14480.s1.tag = NULL_TYPE; /* x214857 */ t14479.s1.tag = STRUCTURE_TYPE24753; t14479.s1.value.structure_type24753 = &t14480; /* x214858 */ t14478.s0.tag = STRUCTURE_TYPE24753; t14478.s0.value.structure_type24753 = &t14479; /* x214859 */ t14478.s1.tag = NULL_TYPE; /* x214860 */ t14477.s1.tag = STRUCTURE_TYPE24753; t14477.s1.value.structure_type24753 = &t14478; /* x214861 */ t14476.s0.tag = STRUCTURE_TYPE24753; t14476.s0.value.structure_type24753 = &t14477; /* x214862 */ t14476.s1.tag = NULL_TYPE; /* x214863 */ t14475.s1.tag = STRUCTURE_TYPE24753; t14475.s1.value.structure_type24753 = &t14476; /* x214864 */ t14474.s1.tag = STRUCTURE_TYPE24753; t14474.s1.value.structure_type24753 = &t14475; /* x214865 */ t14473.s1.tag = STRUCTURE_TYPE24753; t14473.s1.value.structure_type24753 = &t14474; /* x214866 */ t14472.s0.tag = STRUCTURE_TYPE24753; t14472.s0.value.structure_type24753 = &t14473; /* x214867 */ t14482.s0.tag = EXTERNAL_SYMBOL_TYPE; t14482.s0.value.external_symbol_type = q615; /* x214868 */ t14483.s0.tag = EXTERNAL_SYMBOL_TYPE; t14483.s0.value.external_symbol_type = q540; /* x214869 */ t14484.s0.tag = EXTERNAL_SYMBOL_TYPE; t14484.s0.value.external_symbol_type = q626; /* x214870 */ t14486.s0.tag = EXTERNAL_SYMBOL_TYPE; t14486.s0.value.external_symbol_type = q616; /* x214871 */ t14487.s0.tag = EXTERNAL_SYMBOL_TYPE; t14487.s0.value.external_symbol_type = q562; /* x214872 */ t14487.s1.tag = NULL_TYPE; /* x214873 */ t14486.s1.tag = STRUCTURE_TYPE24753; t14486.s1.value.structure_type24753 = &t14487; /* x214874 */ t14485.s0.tag = STRUCTURE_TYPE24753; t14485.s0.value.structure_type24753 = &t14486; /* x214875 */ t14485.s1.tag = NULL_TYPE; /* x214876 */ t14484.s1.tag = STRUCTURE_TYPE24753; t14484.s1.value.structure_type24753 = &t14485; /* x214877 */ t14483.s1.tag = STRUCTURE_TYPE24753; t14483.s1.value.structure_type24753 = &t14484; /* x214878 */ t14482.s1.tag = STRUCTURE_TYPE24753; t14482.s1.value.structure_type24753 = &t14483; /* x214879 */ t14481.s0.tag = STRUCTURE_TYPE24753; t14481.s0.value.structure_type24753 = &t14482; /* x214880 */ t14489.s0.tag = EXTERNAL_SYMBOL_TYPE; t14489.s0.value.external_symbol_type = q600; /* x214881 */ t14490.s0.tag = EXTERNAL_SYMBOL_TYPE; t14490.s0.value.external_symbol_type = q540; /* x214882 */ t14491.s0.tag = EXTERNAL_SYMBOL_TYPE; t14491.s0.value.external_symbol_type = q626; /* x214883 */ t14492.s0.tag = FIXNUM_TYPE; t14492.s0.value.fixnum_type = 0; /* x214884 */ t14493.s0.tag = EXTERNAL_SYMBOL_TYPE; t14493.s0.value.external_symbol_type = q601; /* x214885 */ t14494.s0.tag = EXTERNAL_SYMBOL_TYPE; t14494.s0.value.external_symbol_type = q602; /* x214886 */ t14495.s0.tag = EXTERNAL_SYMBOL_TYPE; t14495.s0.value.external_symbol_type = q603; /* x214887 */ t14495.s1.tag = NULL_TYPE; /* x214888 */ t14494.s1.tag = STRUCTURE_TYPE24753; t14494.s1.value.structure_type24753 = &t14495; /* x214889 */ t14493.s1.tag = STRUCTURE_TYPE24753; t14493.s1.value.structure_type24753 = &t14494; /* x214890 */ t14492.s1.tag = STRUCTURE_TYPE24753; t14492.s1.value.structure_type24753 = &t14493; /* x214891 */ t14491.s1.tag = STRUCTURE_TYPE24753; t14491.s1.value.structure_type24753 = &t14492; /* x214892 */ t14490.s1.tag = STRUCTURE_TYPE24753; t14490.s1.value.structure_type24753 = &t14491; /* x214893 */ t14489.s1.tag = STRUCTURE_TYPE24753; t14489.s1.value.structure_type24753 = &t14490; /* x214894 */ t14488.s0.tag = STRUCTURE_TYPE24753; t14488.s0.value.structure_type24753 = &t14489; /* x214895 */ t14497.s0.tag = EXTERNAL_SYMBOL_TYPE; t14497.s0.value.external_symbol_type = q42; /* x214896 */ t14498.s0.tag = EXTERNAL_SYMBOL_TYPE; t14498.s0.value.external_symbol_type = q627; /* x214897 */ t14500.s0.tag = EXTERNAL_SYMBOL_TYPE; t14500.s0.value.external_symbol_type = q556; /* x214898 */ t14501.s0.tag = EXTERNAL_SYMBOL_TYPE; t14501.s0.value.external_symbol_type = q540; /* x214899 */ t14503.s0.tag = EXTERNAL_SYMBOL_TYPE; t14503.s0.value.external_symbol_type = q557; /* x214900 */ t14504.s0.tag = EXTERNAL_SYMBOL_TYPE; t14504.s0.value.external_symbol_type = q540; /* x214901 */ t14505.s0.tag = EXTERNAL_SYMBOL_TYPE; t14505.s0.value.external_symbol_type = q545; /* x214902 */ t14505.s1.tag = NULL_TYPE; /* x214903 */ t14504.s1.tag = STRUCTURE_TYPE24753; t14504.s1.value.structure_type24753 = &t14505; /* x214904 */ t14503.s1.tag = STRUCTURE_TYPE24753; t14503.s1.value.structure_type24753 = &t14504; /* x214905 */ t14502.s0.tag = STRUCTURE_TYPE24753; t14502.s0.value.structure_type24753 = &t14503; /* x214906 */ t14506.s0.tag = STRING_TYPE; t14506.s0.value.string_type = "Green"; /* x214907 */ t14506.s1.tag = NULL_TYPE; /* x214908 */ t14502.s1.tag = STRUCTURE_TYPE24753; t14502.s1.value.structure_type24753 = &t14506; /* x214909 */ t14501.s1.tag = STRUCTURE_TYPE24753; t14501.s1.value.structure_type24753 = &t14502; /* x214910 */ t14500.s1.tag = STRUCTURE_TYPE24753; t14500.s1.value.structure_type24753 = &t14501; /* x214911 */ t14499.s0.tag = STRUCTURE_TYPE24753; t14499.s0.value.structure_type24753 = &t14500; /* x214912 */ t14499.s1.tag = NULL_TYPE; /* x214913 */ t14498.s1.tag = STRUCTURE_TYPE24753; t14498.s1.value.structure_type24753 = &t14499; /* x214914 */ t14497.s1.tag = STRUCTURE_TYPE24753; t14497.s1.value.structure_type24753 = &t14498; /* x214915 */ t14496.s0.tag = STRUCTURE_TYPE24753; t14496.s0.value.structure_type24753 = &t14497; /* x214916 */ t14508.s0.tag = EXTERNAL_SYMBOL_TYPE; t14508.s0.value.external_symbol_type = q494; /* x214917 */ t14510.s0.tag = EXTERNAL_SYMBOL_TYPE; t14510.s0.value.external_symbol_type = q120; /* x214918 */ t14512.s0.tag = EXTERNAL_SYMBOL_TYPE; t14512.s0.value.external_symbol_type = q559; /* x214919 */ t14513.s0.tag = EXTERNAL_SYMBOL_TYPE; t14513.s0.value.external_symbol_type = q627; /* x214920 */ t14513.s1.tag = NULL_TYPE; /* x214921 */ t14512.s1.tag = STRUCTURE_TYPE24753; t14512.s1.value.structure_type24753 = &t14513; /* x214922 */ t14511.s0.tag = STRUCTURE_TYPE24753; t14511.s0.value.structure_type24753 = &t14512; /* x214923 */ t14514.s0.tag = FIXNUM_TYPE; t14514.s0.value.fixnum_type = 1; /* x214924 */ t14514.s1.tag = NULL_TYPE; /* x214925 */ t14511.s1.tag = STRUCTURE_TYPE24753; t14511.s1.value.structure_type24753 = &t14514; /* x214926 */ t14510.s1.tag = STRUCTURE_TYPE24753; t14510.s1.value.structure_type24753 = &t14511; /* x214927 */ t14509.s0.tag = STRUCTURE_TYPE24753; t14509.s0.value.structure_type24753 = &t14510; /* x214928 */ t14516.s0.tag = EXTERNAL_SYMBOL_TYPE; t14516.s0.value.external_symbol_type = q179; /* x214929 */ t14517.s0.tag = STRING_TYPE; t14517.s0.value.string_type = "Can\'t allocate green colorcell"; /* x214930 */ t14517.s1.tag = NULL_TYPE; /* x214931 */ t14516.s1.tag = STRUCTURE_TYPE24753; t14516.s1.value.structure_type24753 = &t14517; /* x214932 */ t14515.s0.tag = STRUCTURE_TYPE24753; t14515.s0.value.structure_type24753 = &t14516; /* x214933 */ t14515.s1.tag = NULL_TYPE; /* x214934 */ t14509.s1.tag = STRUCTURE_TYPE24753; t14509.s1.value.structure_type24753 = &t14515; /* x214935 */ t14508.s1.tag = STRUCTURE_TYPE24753; t14508.s1.value.structure_type24753 = &t14509; /* x214936 */ t14507.s0.tag = STRUCTURE_TYPE24753; t14507.s0.value.structure_type24753 = &t14508; /* x214937 */ t14519.s0.tag = EXTERNAL_SYMBOL_TYPE; t14519.s0.value.external_symbol_type = q42; /* x214938 */ t14520.s0.tag = EXTERNAL_SYMBOL_TYPE; t14520.s0.value.external_symbol_type = q628; /* x214939 */ t14522.s0.tag = EXTERNAL_SYMBOL_TYPE; t14522.s0.value.external_symbol_type = q596; /* x214940 */ t14523.s0.tag = EXTERNAL_SYMBOL_TYPE; t14523.s0.value.external_symbol_type = q540; /* x214941 */ t14524.s0.tag = EXTERNAL_SYMBOL_TYPE; t14524.s0.value.external_symbol_type = q578; /* x214942 */ t14525.s0.tag = FIXNUM_TYPE; t14525.s0.value.fixnum_type = 0; /* x214943 */ t14527.s0.tag = EXTERNAL_SYMBOL_TYPE; t14527.s0.value.external_symbol_type = q597; /* x214944 */ t14527.s1.tag = NULL_TYPE; /* x214945 */ t14526.s0.tag = STRUCTURE_TYPE24753; t14526.s0.value.structure_type24753 = &t14527; /* x214946 */ t14526.s1.tag = NULL_TYPE; /* x214947 */ t14525.s1.tag = STRUCTURE_TYPE24753; t14525.s1.value.structure_type24753 = &t14526; /* x214948 */ t14524.s1.tag = STRUCTURE_TYPE24753; t14524.s1.value.structure_type24753 = &t14525; /* x214949 */ t14523.s1.tag = STRUCTURE_TYPE24753; t14523.s1.value.structure_type24753 = &t14524; /* x214950 */ t14522.s1.tag = STRUCTURE_TYPE24753; t14522.s1.value.structure_type24753 = &t14523; /* x214951 */ t14521.s0.tag = STRUCTURE_TYPE24753; t14521.s0.value.structure_type24753 = &t14522; /* x214952 */ t14521.s1.tag = NULL_TYPE; /* x214953 */ t14520.s1.tag = STRUCTURE_TYPE24753; t14520.s1.value.structure_type24753 = &t14521; /* x214954 */ t14519.s1.tag = STRUCTURE_TYPE24753; t14519.s1.value.structure_type24753 = &t14520; /* x214955 */ t14518.s0.tag = STRUCTURE_TYPE24753; t14518.s0.value.structure_type24753 = &t14519; /* x214956 */ t14529.s0.tag = EXTERNAL_SYMBOL_TYPE; t14529.s0.value.external_symbol_type = q598; /* x214957 */ t14530.s0.tag = EXTERNAL_SYMBOL_TYPE; t14530.s0.value.external_symbol_type = q540; /* x214958 */ t14531.s0.tag = EXTERNAL_SYMBOL_TYPE; t14531.s0.value.external_symbol_type = q628; /* x214959 */ t14533.s0.tag = EXTERNAL_SYMBOL_TYPE; t14533.s0.value.external_symbol_type = q582; /* x214960 */ t14535.s0.tag = EXTERNAL_SYMBOL_TYPE; t14535.s0.value.external_symbol_type = q583; /* x214961 */ t14536.s0.tag = EXTERNAL_SYMBOL_TYPE; t14536.s0.value.external_symbol_type = q555; /* x214962 */ t14536.s1.tag = NULL_TYPE; /* x214963 */ t14535.s1.tag = STRUCTURE_TYPE24753; t14535.s1.value.structure_type24753 = &t14536; /* x214964 */ t14534.s0.tag = STRUCTURE_TYPE24753; t14534.s0.value.structure_type24753 = &t14535; /* x214965 */ t14534.s1.tag = NULL_TYPE; /* x214966 */ t14533.s1.tag = STRUCTURE_TYPE24753; t14533.s1.value.structure_type24753 = &t14534; /* x214967 */ t14532.s0.tag = STRUCTURE_TYPE24753; t14532.s0.value.structure_type24753 = &t14533; /* x214968 */ t14532.s1.tag = NULL_TYPE; /* x214969 */ t14531.s1.tag = STRUCTURE_TYPE24753; t14531.s1.value.structure_type24753 = &t14532; /* x214970 */ t14530.s1.tag = STRUCTURE_TYPE24753; t14530.s1.value.structure_type24753 = &t14531; /* x214971 */ t14529.s1.tag = STRUCTURE_TYPE24753; t14529.s1.value.structure_type24753 = &t14530; /* x214972 */ t14528.s0.tag = STRUCTURE_TYPE24753; t14528.s0.value.structure_type24753 = &t14529; /* x214973 */ t14538.s0.tag = EXTERNAL_SYMBOL_TYPE; t14538.s0.value.external_symbol_type = q599; /* x214974 */ t14539.s0.tag = EXTERNAL_SYMBOL_TYPE; t14539.s0.value.external_symbol_type = q540; /* x214975 */ t14540.s0.tag = EXTERNAL_SYMBOL_TYPE; t14540.s0.value.external_symbol_type = q628; /* x214976 */ t14542.s0.tag = EXTERNAL_SYMBOL_TYPE; t14542.s0.value.external_symbol_type = q582; /* x214977 */ t14544.s0.tag = EXTERNAL_SYMBOL_TYPE; t14544.s0.value.external_symbol_type = q583; /* x214978 */ t14545.s0.tag = EXTERNAL_SYMBOL_TYPE; t14545.s0.value.external_symbol_type = q627; /* x214979 */ t14545.s1.tag = NULL_TYPE; /* x214980 */ t14544.s1.tag = STRUCTURE_TYPE24753; t14544.s1.value.structure_type24753 = &t14545; /* x214981 */ t14543.s0.tag = STRUCTURE_TYPE24753; t14543.s0.value.structure_type24753 = &t14544; /* x214982 */ t14543.s1.tag = NULL_TYPE; /* x214983 */ t14542.s1.tag = STRUCTURE_TYPE24753; t14542.s1.value.structure_type24753 = &t14543; /* x214984 */ t14541.s0.tag = STRUCTURE_TYPE24753; t14541.s0.value.structure_type24753 = &t14542; /* x214985 */ t14541.s1.tag = NULL_TYPE; /* x214986 */ t14540.s1.tag = STRUCTURE_TYPE24753; t14540.s1.value.structure_type24753 = &t14541; /* x214987 */ t14539.s1.tag = STRUCTURE_TYPE24753; t14539.s1.value.structure_type24753 = &t14540; /* x214988 */ t14538.s1.tag = STRUCTURE_TYPE24753; t14538.s1.value.structure_type24753 = &t14539; /* x214989 */ t14537.s0.tag = STRUCTURE_TYPE24753; t14537.s0.value.structure_type24753 = &t14538; /* x214990 */ t14547.s0.tag = EXTERNAL_SYMBOL_TYPE; t14547.s0.value.external_symbol_type = q615; /* x214991 */ t14548.s0.tag = EXTERNAL_SYMBOL_TYPE; t14548.s0.value.external_symbol_type = q540; /* x214992 */ t14549.s0.tag = EXTERNAL_SYMBOL_TYPE; t14549.s0.value.external_symbol_type = q628; /* x214993 */ t14551.s0.tag = EXTERNAL_SYMBOL_TYPE; t14551.s0.value.external_symbol_type = q616; /* x214994 */ t14552.s0.tag = EXTERNAL_SYMBOL_TYPE; t14552.s0.value.external_symbol_type = q562; /* x214995 */ t14552.s1.tag = NULL_TYPE; /* x214996 */ t14551.s1.tag = STRUCTURE_TYPE24753; t14551.s1.value.structure_type24753 = &t14552; /* x214997 */ t14550.s0.tag = STRUCTURE_TYPE24753; t14550.s0.value.structure_type24753 = &t14551; /* x214998 */ t14550.s1.tag = NULL_TYPE; /* x214999 */ t14549.s1.tag = STRUCTURE_TYPE24753; t14549.s1.value.structure_type24753 = &t14550; /* x215000 */ t14548.s1.tag = STRUCTURE_TYPE24753; t14548.s1.value.structure_type24753 = &t14549; /* x215001 */ t14547.s1.tag = STRUCTURE_TYPE24753; t14547.s1.value.structure_type24753 = &t14548; /* x215002 */ t14546.s0.tag = STRUCTURE_TYPE24753; t14546.s0.value.structure_type24753 = &t14547; /* x215003 */ t14554.s0.tag = EXTERNAL_SYMBOL_TYPE; t14554.s0.value.external_symbol_type = q600; /* x215004 */ t14555.s0.tag = EXTERNAL_SYMBOL_TYPE; t14555.s0.value.external_symbol_type = q540; /* x215005 */ t14556.s0.tag = EXTERNAL_SYMBOL_TYPE; t14556.s0.value.external_symbol_type = q628; /* x215006 */ t14557.s0.tag = FIXNUM_TYPE; t14557.s0.value.fixnum_type = 0; /* x215007 */ t14558.s0.tag = EXTERNAL_SYMBOL_TYPE; t14558.s0.value.external_symbol_type = q601; /* x215008 */ t14559.s0.tag = EXTERNAL_SYMBOL_TYPE; t14559.s0.value.external_symbol_type = q602; /* x215009 */ t14560.s0.tag = EXTERNAL_SYMBOL_TYPE; t14560.s0.value.external_symbol_type = q603; /* x215010 */ t14560.s1.tag = NULL_TYPE; /* x215011 */ t14559.s1.tag = STRUCTURE_TYPE24753; t14559.s1.value.structure_type24753 = &t14560; /* x215012 */ t14558.s1.tag = STRUCTURE_TYPE24753; t14558.s1.value.structure_type24753 = &t14559; /* x215013 */ t14557.s1.tag = STRUCTURE_TYPE24753; t14557.s1.value.structure_type24753 = &t14558; /* x215014 */ t14556.s1.tag = STRUCTURE_TYPE24753; t14556.s1.value.structure_type24753 = &t14557; /* x215015 */ t14555.s1.tag = STRUCTURE_TYPE24753; t14555.s1.value.structure_type24753 = &t14556; /* x215016 */ t14554.s1.tag = STRUCTURE_TYPE24753; t14554.s1.value.structure_type24753 = &t14555; /* x215017 */ t14553.s0.tag = STRUCTURE_TYPE24753; t14553.s0.value.structure_type24753 = &t14554; /* x215018 */ t14562.s0.tag = EXTERNAL_SYMBOL_TYPE; t14562.s0.value.external_symbol_type = q42; /* x215019 */ t14563.s0.tag = EXTERNAL_SYMBOL_TYPE; t14563.s0.value.external_symbol_type = q629; /* x215020 */ t14565.s0.tag = EXTERNAL_SYMBOL_TYPE; t14565.s0.value.external_symbol_type = q556; /* x215021 */ t14566.s0.tag = EXTERNAL_SYMBOL_TYPE; t14566.s0.value.external_symbol_type = q540; /* x215022 */ t14568.s0.tag = EXTERNAL_SYMBOL_TYPE; t14568.s0.value.external_symbol_type = q557; /* x215023 */ t14569.s0.tag = EXTERNAL_SYMBOL_TYPE; t14569.s0.value.external_symbol_type = q540; /* x215024 */ t14570.s0.tag = EXTERNAL_SYMBOL_TYPE; t14570.s0.value.external_symbol_type = q545; /* x215025 */ t14570.s1.tag = NULL_TYPE; /* x215026 */ t14569.s1.tag = STRUCTURE_TYPE24753; t14569.s1.value.structure_type24753 = &t14570; /* x215027 */ t14568.s1.tag = STRUCTURE_TYPE24753; t14568.s1.value.structure_type24753 = &t14569; /* x215028 */ t14567.s0.tag = STRUCTURE_TYPE24753; t14567.s0.value.structure_type24753 = &t14568; /* x215029 */ t14571.s0.tag = STRING_TYPE; t14571.s0.value.string_type = "Dark Green"; /* x215030 */ t14571.s1.tag = NULL_TYPE; /* x215031 */ t14567.s1.tag = STRUCTURE_TYPE24753; t14567.s1.value.structure_type24753 = &t14571; /* x215032 */ t14566.s1.tag = STRUCTURE_TYPE24753; t14566.s1.value.structure_type24753 = &t14567; /* x215033 */ t14565.s1.tag = STRUCTURE_TYPE24753; t14565.s1.value.structure_type24753 = &t14566; /* x215034 */ t14564.s0.tag = STRUCTURE_TYPE24753; t14564.s0.value.structure_type24753 = &t14565; /* x215035 */ t14564.s1.tag = NULL_TYPE; /* x215036 */ t14563.s1.tag = STRUCTURE_TYPE24753; t14563.s1.value.structure_type24753 = &t14564; /* x215037 */ t14562.s1.tag = STRUCTURE_TYPE24753; t14562.s1.value.structure_type24753 = &t14563; /* x215038 */ t14561.s0.tag = STRUCTURE_TYPE24753; t14561.s0.value.structure_type24753 = &t14562; /* x215039 */ t14573.s0.tag = EXTERNAL_SYMBOL_TYPE; t14573.s0.value.external_symbol_type = q494; /* x215040 */ t14575.s0.tag = EXTERNAL_SYMBOL_TYPE; t14575.s0.value.external_symbol_type = q120; /* x215041 */ t14577.s0.tag = EXTERNAL_SYMBOL_TYPE; t14577.s0.value.external_symbol_type = q559; /* x215042 */ t14578.s0.tag = EXTERNAL_SYMBOL_TYPE; t14578.s0.value.external_symbol_type = q629; /* x215043 */ t14578.s1.tag = NULL_TYPE; /* x215044 */ t14577.s1.tag = STRUCTURE_TYPE24753; t14577.s1.value.structure_type24753 = &t14578; /* x215045 */ t14576.s0.tag = STRUCTURE_TYPE24753; t14576.s0.value.structure_type24753 = &t14577; /* x215046 */ t14579.s0.tag = FIXNUM_TYPE; t14579.s0.value.fixnum_type = 1; /* x215047 */ t14579.s1.tag = NULL_TYPE; /* x215048 */ t14576.s1.tag = STRUCTURE_TYPE24753; t14576.s1.value.structure_type24753 = &t14579; /* x215049 */ t14575.s1.tag = STRUCTURE_TYPE24753; t14575.s1.value.structure_type24753 = &t14576; /* x215050 */ t14574.s0.tag = STRUCTURE_TYPE24753; t14574.s0.value.structure_type24753 = &t14575; /* x215051 */ t14581.s0.tag = EXTERNAL_SYMBOL_TYPE; t14581.s0.value.external_symbol_type = q179; /* x215052 */ t14582.s0.tag = STRING_TYPE; t14582.s0.value.string_type = "Can\'t allocate dark green colorcell"; /* x215053 */ t14582.s1.tag = NULL_TYPE; /* x215054 */ t14581.s1.tag = STRUCTURE_TYPE24753; t14581.s1.value.structure_type24753 = &t14582; /* x215055 */ t14580.s0.tag = STRUCTURE_TYPE24753; t14580.s0.value.structure_type24753 = &t14581; /* x215056 */ t14580.s1.tag = NULL_TYPE; /* x215057 */ t14574.s1.tag = STRUCTURE_TYPE24753; t14574.s1.value.structure_type24753 = &t14580; /* x215058 */ t14573.s1.tag = STRUCTURE_TYPE24753; t14573.s1.value.structure_type24753 = &t14574; /* x215059 */ t14572.s0.tag = STRUCTURE_TYPE24753; t14572.s0.value.structure_type24753 = &t14573; /* x215060 */ t14584.s0.tag = EXTERNAL_SYMBOL_TYPE; t14584.s0.value.external_symbol_type = q42; /* x215061 */ t14585.s0.tag = EXTERNAL_SYMBOL_TYPE; t14585.s0.value.external_symbol_type = q630; /* x215062 */ t14587.s0.tag = EXTERNAL_SYMBOL_TYPE; t14587.s0.value.external_symbol_type = q596; /* x215063 */ t14588.s0.tag = EXTERNAL_SYMBOL_TYPE; t14588.s0.value.external_symbol_type = q540; /* x215064 */ t14589.s0.tag = EXTERNAL_SYMBOL_TYPE; t14589.s0.value.external_symbol_type = q578; /* x215065 */ t14590.s0.tag = FIXNUM_TYPE; t14590.s0.value.fixnum_type = 0; /* x215066 */ t14592.s0.tag = EXTERNAL_SYMBOL_TYPE; t14592.s0.value.external_symbol_type = q597; /* x215067 */ t14592.s1.tag = NULL_TYPE; /* x215068 */ t14591.s0.tag = STRUCTURE_TYPE24753; t14591.s0.value.structure_type24753 = &t14592; /* x215069 */ t14591.s1.tag = NULL_TYPE; /* x215070 */ t14590.s1.tag = STRUCTURE_TYPE24753; t14590.s1.value.structure_type24753 = &t14591; /* x215071 */ t14589.s1.tag = STRUCTURE_TYPE24753; t14589.s1.value.structure_type24753 = &t14590; /* x215072 */ t14588.s1.tag = STRUCTURE_TYPE24753; t14588.s1.value.structure_type24753 = &t14589; /* x215073 */ t14587.s1.tag = STRUCTURE_TYPE24753; t14587.s1.value.structure_type24753 = &t14588; /* x215074 */ t14586.s0.tag = STRUCTURE_TYPE24753; t14586.s0.value.structure_type24753 = &t14587; /* x215075 */ t14586.s1.tag = NULL_TYPE; /* x215076 */ t14585.s1.tag = STRUCTURE_TYPE24753; t14585.s1.value.structure_type24753 = &t14586; /* x215077 */ t14584.s1.tag = STRUCTURE_TYPE24753; t14584.s1.value.structure_type24753 = &t14585; /* x215078 */ t14583.s0.tag = STRUCTURE_TYPE24753; t14583.s0.value.structure_type24753 = &t14584; /* x215079 */ t14594.s0.tag = EXTERNAL_SYMBOL_TYPE; t14594.s0.value.external_symbol_type = q598; /* x215080 */ t14595.s0.tag = EXTERNAL_SYMBOL_TYPE; t14595.s0.value.external_symbol_type = q540; /* x215081 */ t14596.s0.tag = EXTERNAL_SYMBOL_TYPE; t14596.s0.value.external_symbol_type = q630; /* x215082 */ t14598.s0.tag = EXTERNAL_SYMBOL_TYPE; t14598.s0.value.external_symbol_type = q582; /* x215083 */ t14600.s0.tag = EXTERNAL_SYMBOL_TYPE; t14600.s0.value.external_symbol_type = q583; /* x215084 */ t14601.s0.tag = EXTERNAL_SYMBOL_TYPE; t14601.s0.value.external_symbol_type = q555; /* x215085 */ t14601.s1.tag = NULL_TYPE; /* x215086 */ t14600.s1.tag = STRUCTURE_TYPE24753; t14600.s1.value.structure_type24753 = &t14601; /* x215087 */ t14599.s0.tag = STRUCTURE_TYPE24753; t14599.s0.value.structure_type24753 = &t14600; /* x215088 */ t14599.s1.tag = NULL_TYPE; /* x215089 */ t14598.s1.tag = STRUCTURE_TYPE24753; t14598.s1.value.structure_type24753 = &t14599; /* x215090 */ t14597.s0.tag = STRUCTURE_TYPE24753; t14597.s0.value.structure_type24753 = &t14598; /* x215091 */ t14597.s1.tag = NULL_TYPE; /* x215092 */ t14596.s1.tag = STRUCTURE_TYPE24753; t14596.s1.value.structure_type24753 = &t14597; /* x215093 */ t14595.s1.tag = STRUCTURE_TYPE24753; t14595.s1.value.structure_type24753 = &t14596; /* x215094 */ t14594.s1.tag = STRUCTURE_TYPE24753; t14594.s1.value.structure_type24753 = &t14595; /* x215095 */ t14593.s0.tag = STRUCTURE_TYPE24753; t14593.s0.value.structure_type24753 = &t14594; /* x215096 */ t14603.s0.tag = EXTERNAL_SYMBOL_TYPE; t14603.s0.value.external_symbol_type = q599; /* x215097 */ t14604.s0.tag = EXTERNAL_SYMBOL_TYPE; t14604.s0.value.external_symbol_type = q540; /* x215098 */ t14605.s0.tag = EXTERNAL_SYMBOL_TYPE; t14605.s0.value.external_symbol_type = q630; /* x215099 */ t14607.s0.tag = EXTERNAL_SYMBOL_TYPE; t14607.s0.value.external_symbol_type = q582; /* x215100 */ t14609.s0.tag = EXTERNAL_SYMBOL_TYPE; t14609.s0.value.external_symbol_type = q583; /* x215101 */ t14610.s0.tag = EXTERNAL_SYMBOL_TYPE; t14610.s0.value.external_symbol_type = q629; /* x215102 */ t14610.s1.tag = NULL_TYPE; /* x215103 */ t14609.s1.tag = STRUCTURE_TYPE24753; t14609.s1.value.structure_type24753 = &t14610; /* x215104 */ t14608.s0.tag = STRUCTURE_TYPE24753; t14608.s0.value.structure_type24753 = &t14609; /* x215105 */ t14608.s1.tag = NULL_TYPE; /* x215106 */ t14607.s1.tag = STRUCTURE_TYPE24753; t14607.s1.value.structure_type24753 = &t14608; /* x215107 */ t14606.s0.tag = STRUCTURE_TYPE24753; t14606.s0.value.structure_type24753 = &t14607; /* x215108 */ t14606.s1.tag = NULL_TYPE; /* x215109 */ t14605.s1.tag = STRUCTURE_TYPE24753; t14605.s1.value.structure_type24753 = &t14606; /* x215110 */ t14604.s1.tag = STRUCTURE_TYPE24753; t14604.s1.value.structure_type24753 = &t14605; /* x215111 */ t14603.s1.tag = STRUCTURE_TYPE24753; t14603.s1.value.structure_type24753 = &t14604; /* x215112 */ t14602.s0.tag = STRUCTURE_TYPE24753; t14602.s0.value.structure_type24753 = &t14603; /* x215113 */ t14612.s0.tag = EXTERNAL_SYMBOL_TYPE; t14612.s0.value.external_symbol_type = q615; /* x215114 */ t14613.s0.tag = EXTERNAL_SYMBOL_TYPE; t14613.s0.value.external_symbol_type = q540; /* x215115 */ t14614.s0.tag = EXTERNAL_SYMBOL_TYPE; t14614.s0.value.external_symbol_type = q630; /* x215116 */ t14616.s0.tag = EXTERNAL_SYMBOL_TYPE; t14616.s0.value.external_symbol_type = q616; /* x215117 */ t14617.s0.tag = EXTERNAL_SYMBOL_TYPE; t14617.s0.value.external_symbol_type = q562; /* x215118 */ t14617.s1.tag = NULL_TYPE; /* x215119 */ t14616.s1.tag = STRUCTURE_TYPE24753; t14616.s1.value.structure_type24753 = &t14617; /* x215120 */ t14615.s0.tag = STRUCTURE_TYPE24753; t14615.s0.value.structure_type24753 = &t14616; /* x215121 */ t14615.s1.tag = NULL_TYPE; /* x215122 */ t14614.s1.tag = STRUCTURE_TYPE24753; t14614.s1.value.structure_type24753 = &t14615; /* x215123 */ t14613.s1.tag = STRUCTURE_TYPE24753; t14613.s1.value.structure_type24753 = &t14614; /* x215124 */ t14612.s1.tag = STRUCTURE_TYPE24753; t14612.s1.value.structure_type24753 = &t14613; /* x215125 */ t14611.s0.tag = STRUCTURE_TYPE24753; t14611.s0.value.structure_type24753 = &t14612; /* x215126 */ t14619.s0.tag = EXTERNAL_SYMBOL_TYPE; t14619.s0.value.external_symbol_type = q600; /* x215127 */ t14620.s0.tag = EXTERNAL_SYMBOL_TYPE; t14620.s0.value.external_symbol_type = q540; /* x215128 */ t14621.s0.tag = EXTERNAL_SYMBOL_TYPE; t14621.s0.value.external_symbol_type = q630; /* x215129 */ t14622.s0.tag = FIXNUM_TYPE; t14622.s0.value.fixnum_type = 0; /* x215130 */ t14623.s0.tag = EXTERNAL_SYMBOL_TYPE; t14623.s0.value.external_symbol_type = q601; /* x215131 */ t14624.s0.tag = EXTERNAL_SYMBOL_TYPE; t14624.s0.value.external_symbol_type = q602; /* x215132 */ t14625.s0.tag = EXTERNAL_SYMBOL_TYPE; t14625.s0.value.external_symbol_type = q603; /* x215133 */ t14625.s1.tag = NULL_TYPE; /* x215134 */ t14624.s1.tag = STRUCTURE_TYPE24753; t14624.s1.value.structure_type24753 = &t14625; /* x215135 */ t14623.s1.tag = STRUCTURE_TYPE24753; t14623.s1.value.structure_type24753 = &t14624; /* x215136 */ t14622.s1.tag = STRUCTURE_TYPE24753; t14622.s1.value.structure_type24753 = &t14623; /* x215137 */ t14621.s1.tag = STRUCTURE_TYPE24753; t14621.s1.value.structure_type24753 = &t14622; /* x215138 */ t14620.s1.tag = STRUCTURE_TYPE24753; t14620.s1.value.structure_type24753 = &t14621; /* x215139 */ t14619.s1.tag = STRUCTURE_TYPE24753; t14619.s1.value.structure_type24753 = &t14620; /* x215140 */ t14618.s0.tag = STRUCTURE_TYPE24753; t14618.s0.value.structure_type24753 = &t14619; /* x215141 */ t14627.s0.tag = EXTERNAL_SYMBOL_TYPE; t14627.s0.value.external_symbol_type = q42; /* x215142 */ t14628.s0.tag = EXTERNAL_SYMBOL_TYPE; t14628.s0.value.external_symbol_type = q631; /* x215143 */ t14630.s0.tag = EXTERNAL_SYMBOL_TYPE; t14630.s0.value.external_symbol_type = q556; /* x215144 */ t14631.s0.tag = EXTERNAL_SYMBOL_TYPE; t14631.s0.value.external_symbol_type = q540; /* x215145 */ t14633.s0.tag = EXTERNAL_SYMBOL_TYPE; t14633.s0.value.external_symbol_type = q557; /* x215146 */ t14634.s0.tag = EXTERNAL_SYMBOL_TYPE; t14634.s0.value.external_symbol_type = q540; /* x215147 */ t14635.s0.tag = EXTERNAL_SYMBOL_TYPE; t14635.s0.value.external_symbol_type = q545; /* x215148 */ t14635.s1.tag = NULL_TYPE; /* x215149 */ t14634.s1.tag = STRUCTURE_TYPE24753; t14634.s1.value.structure_type24753 = &t14635; /* x215150 */ t14633.s1.tag = STRUCTURE_TYPE24753; t14633.s1.value.structure_type24753 = &t14634; /* x215151 */ t14632.s0.tag = STRUCTURE_TYPE24753; t14632.s0.value.structure_type24753 = &t14633; /* x215152 */ t14636.s0.tag = STRING_TYPE; t14636.s0.value.string_type = "Blue"; /* x215153 */ t14636.s1.tag = NULL_TYPE; /* x215154 */ t14632.s1.tag = STRUCTURE_TYPE24753; t14632.s1.value.structure_type24753 = &t14636; /* x215155 */ t14631.s1.tag = STRUCTURE_TYPE24753; t14631.s1.value.structure_type24753 = &t14632; /* x215156 */ t14630.s1.tag = STRUCTURE_TYPE24753; t14630.s1.value.structure_type24753 = &t14631; /* x215157 */ t14629.s0.tag = STRUCTURE_TYPE24753; t14629.s0.value.structure_type24753 = &t14630; /* x215158 */ t14629.s1.tag = NULL_TYPE; /* x215159 */ t14628.s1.tag = STRUCTURE_TYPE24753; t14628.s1.value.structure_type24753 = &t14629; /* x215160 */ t14627.s1.tag = STRUCTURE_TYPE24753; t14627.s1.value.structure_type24753 = &t14628; /* x215161 */ t14626.s0.tag = STRUCTURE_TYPE24753; t14626.s0.value.structure_type24753 = &t14627; /* x215162 */ t14638.s0.tag = EXTERNAL_SYMBOL_TYPE; t14638.s0.value.external_symbol_type = q494; /* x215163 */ t14640.s0.tag = EXTERNAL_SYMBOL_TYPE; t14640.s0.value.external_symbol_type = q120; /* x215164 */ t14642.s0.tag = EXTERNAL_SYMBOL_TYPE; t14642.s0.value.external_symbol_type = q559; /* x215165 */ t14643.s0.tag = EXTERNAL_SYMBOL_TYPE; t14643.s0.value.external_symbol_type = q631; /* x215166 */ t14643.s1.tag = NULL_TYPE; /* x215167 */ t14642.s1.tag = STRUCTURE_TYPE24753; t14642.s1.value.structure_type24753 = &t14643; /* x215168 */ t14641.s0.tag = STRUCTURE_TYPE24753; t14641.s0.value.structure_type24753 = &t14642; /* x215169 */ t14644.s0.tag = FIXNUM_TYPE; t14644.s0.value.fixnum_type = 1; /* x215170 */ t14644.s1.tag = NULL_TYPE; /* x215171 */ t14641.s1.tag = STRUCTURE_TYPE24753; t14641.s1.value.structure_type24753 = &t14644; /* x215172 */ t14640.s1.tag = STRUCTURE_TYPE24753; t14640.s1.value.structure_type24753 = &t14641; /* x215173 */ t14639.s0.tag = STRUCTURE_TYPE24753; t14639.s0.value.structure_type24753 = &t14640; /* x215174 */ t14646.s0.tag = EXTERNAL_SYMBOL_TYPE; t14646.s0.value.external_symbol_type = q179; /* x215175 */ t14647.s0.tag = STRING_TYPE; t14647.s0.value.string_type = "Can\'t allocate blue colorcell"; /* x215176 */ t14647.s1.tag = NULL_TYPE; /* x215177 */ t14646.s1.tag = STRUCTURE_TYPE24753; t14646.s1.value.structure_type24753 = &t14647; /* x215178 */ t14645.s0.tag = STRUCTURE_TYPE24753; t14645.s0.value.structure_type24753 = &t14646; /* x215179 */ t14645.s1.tag = NULL_TYPE; /* x215180 */ t14639.s1.tag = STRUCTURE_TYPE24753; t14639.s1.value.structure_type24753 = &t14645; /* x215181 */ t14638.s1.tag = STRUCTURE_TYPE24753; t14638.s1.value.structure_type24753 = &t14639; /* x215182 */ t14637.s0.tag = STRUCTURE_TYPE24753; t14637.s0.value.structure_type24753 = &t14638; /* x215183 */ t14649.s0.tag = EXTERNAL_SYMBOL_TYPE; t14649.s0.value.external_symbol_type = q42; /* x215184 */ t14650.s0.tag = EXTERNAL_SYMBOL_TYPE; t14650.s0.value.external_symbol_type = q632; /* x215185 */ t14652.s0.tag = EXTERNAL_SYMBOL_TYPE; t14652.s0.value.external_symbol_type = q596; /* x215186 */ t14653.s0.tag = EXTERNAL_SYMBOL_TYPE; t14653.s0.value.external_symbol_type = q540; /* x215187 */ t14654.s0.tag = EXTERNAL_SYMBOL_TYPE; t14654.s0.value.external_symbol_type = q578; /* x215188 */ t14655.s0.tag = FIXNUM_TYPE; t14655.s0.value.fixnum_type = 0; /* x215189 */ t14657.s0.tag = EXTERNAL_SYMBOL_TYPE; t14657.s0.value.external_symbol_type = q597; /* x215190 */ t14657.s1.tag = NULL_TYPE; /* x215191 */ t14656.s0.tag = STRUCTURE_TYPE24753; t14656.s0.value.structure_type24753 = &t14657; /* x215192 */ t14656.s1.tag = NULL_TYPE; /* x215193 */ t14655.s1.tag = STRUCTURE_TYPE24753; t14655.s1.value.structure_type24753 = &t14656; /* x215194 */ t14654.s1.tag = STRUCTURE_TYPE24753; t14654.s1.value.structure_type24753 = &t14655; /* x215195 */ t14653.s1.tag = STRUCTURE_TYPE24753; t14653.s1.value.structure_type24753 = &t14654; /* x215196 */ t14652.s1.tag = STRUCTURE_TYPE24753; t14652.s1.value.structure_type24753 = &t14653; /* x215197 */ t14651.s0.tag = STRUCTURE_TYPE24753; t14651.s0.value.structure_type24753 = &t14652; /* x215198 */ t14651.s1.tag = NULL_TYPE; /* x215199 */ t14650.s1.tag = STRUCTURE_TYPE24753; t14650.s1.value.structure_type24753 = &t14651; /* x215200 */ t14649.s1.tag = STRUCTURE_TYPE24753; t14649.s1.value.structure_type24753 = &t14650; /* x215201 */ t14648.s0.tag = STRUCTURE_TYPE24753; t14648.s0.value.structure_type24753 = &t14649; /* x215202 */ t14659.s0.tag = EXTERNAL_SYMBOL_TYPE; t14659.s0.value.external_symbol_type = q598; /* x215203 */ t14660.s0.tag = EXTERNAL_SYMBOL_TYPE; t14660.s0.value.external_symbol_type = q540; /* x215204 */ t14661.s0.tag = EXTERNAL_SYMBOL_TYPE; t14661.s0.value.external_symbol_type = q632; /* x215205 */ t14663.s0.tag = EXTERNAL_SYMBOL_TYPE; t14663.s0.value.external_symbol_type = q582; /* x215206 */ t14665.s0.tag = EXTERNAL_SYMBOL_TYPE; t14665.s0.value.external_symbol_type = q583; /* x215207 */ t14666.s0.tag = EXTERNAL_SYMBOL_TYPE; t14666.s0.value.external_symbol_type = q555; /* x215208 */ t14666.s1.tag = NULL_TYPE; /* x215209 */ t14665.s1.tag = STRUCTURE_TYPE24753; t14665.s1.value.structure_type24753 = &t14666; /* x215210 */ t14664.s0.tag = STRUCTURE_TYPE24753; t14664.s0.value.structure_type24753 = &t14665; /* x215211 */ t14664.s1.tag = NULL_TYPE; /* x215212 */ t14663.s1.tag = STRUCTURE_TYPE24753; t14663.s1.value.structure_type24753 = &t14664; /* x215213 */ t14662.s0.tag = STRUCTURE_TYPE24753; t14662.s0.value.structure_type24753 = &t14663; /* x215214 */ t14662.s1.tag = NULL_TYPE; /* x215215 */ t14661.s1.tag = STRUCTURE_TYPE24753; t14661.s1.value.structure_type24753 = &t14662; /* x215216 */ t14660.s1.tag = STRUCTURE_TYPE24753; t14660.s1.value.structure_type24753 = &t14661; /* x215217 */ t14659.s1.tag = STRUCTURE_TYPE24753; t14659.s1.value.structure_type24753 = &t14660; /* x215218 */ t14658.s0.tag = STRUCTURE_TYPE24753; t14658.s0.value.structure_type24753 = &t14659; /* x215219 */ t14668.s0.tag = EXTERNAL_SYMBOL_TYPE; t14668.s0.value.external_symbol_type = q599; /* x215220 */ t14669.s0.tag = EXTERNAL_SYMBOL_TYPE; t14669.s0.value.external_symbol_type = q540; /* x215221 */ t14670.s0.tag = EXTERNAL_SYMBOL_TYPE; t14670.s0.value.external_symbol_type = q632; /* x215222 */ t14672.s0.tag = EXTERNAL_SYMBOL_TYPE; t14672.s0.value.external_symbol_type = q582; /* x215223 */ t14674.s0.tag = EXTERNAL_SYMBOL_TYPE; t14674.s0.value.external_symbol_type = q583; /* x215224 */ t14675.s0.tag = EXTERNAL_SYMBOL_TYPE; t14675.s0.value.external_symbol_type = q631; /* x215225 */ t14675.s1.tag = NULL_TYPE; /* x215226 */ t14674.s1.tag = STRUCTURE_TYPE24753; t14674.s1.value.structure_type24753 = &t14675; /* x215227 */ t14673.s0.tag = STRUCTURE_TYPE24753; t14673.s0.value.structure_type24753 = &t14674; /* x215228 */ t14673.s1.tag = NULL_TYPE; /* x215229 */ t14672.s1.tag = STRUCTURE_TYPE24753; t14672.s1.value.structure_type24753 = &t14673; /* x215230 */ t14671.s0.tag = STRUCTURE_TYPE24753; t14671.s0.value.structure_type24753 = &t14672; /* x215231 */ t14671.s1.tag = NULL_TYPE; /* x215232 */ t14670.s1.tag = STRUCTURE_TYPE24753; t14670.s1.value.structure_type24753 = &t14671; /* x215233 */ t14669.s1.tag = STRUCTURE_TYPE24753; t14669.s1.value.structure_type24753 = &t14670; /* x215234 */ t14668.s1.tag = STRUCTURE_TYPE24753; t14668.s1.value.structure_type24753 = &t14669; /* x215235 */ t14667.s0.tag = STRUCTURE_TYPE24753; t14667.s0.value.structure_type24753 = &t14668; /* x215236 */ t14677.s0.tag = EXTERNAL_SYMBOL_TYPE; t14677.s0.value.external_symbol_type = q615; /* x215237 */ t14678.s0.tag = EXTERNAL_SYMBOL_TYPE; t14678.s0.value.external_symbol_type = q540; /* x215238 */ t14679.s0.tag = EXTERNAL_SYMBOL_TYPE; t14679.s0.value.external_symbol_type = q632; /* x215239 */ t14681.s0.tag = EXTERNAL_SYMBOL_TYPE; t14681.s0.value.external_symbol_type = q616; /* x215240 */ t14682.s0.tag = EXTERNAL_SYMBOL_TYPE; t14682.s0.value.external_symbol_type = q562; /* x215241 */ t14682.s1.tag = NULL_TYPE; /* x215242 */ t14681.s1.tag = STRUCTURE_TYPE24753; t14681.s1.value.structure_type24753 = &t14682; /* x215243 */ t14680.s0.tag = STRUCTURE_TYPE24753; t14680.s0.value.structure_type24753 = &t14681; /* x215244 */ t14680.s1.tag = NULL_TYPE; /* x215245 */ t14679.s1.tag = STRUCTURE_TYPE24753; t14679.s1.value.structure_type24753 = &t14680; /* x215246 */ t14678.s1.tag = STRUCTURE_TYPE24753; t14678.s1.value.structure_type24753 = &t14679; /* x215247 */ t14677.s1.tag = STRUCTURE_TYPE24753; t14677.s1.value.structure_type24753 = &t14678; /* x215248 */ t14676.s0.tag = STRUCTURE_TYPE24753; t14676.s0.value.structure_type24753 = &t14677; /* x215249 */ t14684.s0.tag = EXTERNAL_SYMBOL_TYPE; t14684.s0.value.external_symbol_type = q600; /* x215250 */ t14685.s0.tag = EXTERNAL_SYMBOL_TYPE; t14685.s0.value.external_symbol_type = q540; /* x215251 */ t14686.s0.tag = EXTERNAL_SYMBOL_TYPE; t14686.s0.value.external_symbol_type = q632; /* x215252 */ t14687.s0.tag = FIXNUM_TYPE; t14687.s0.value.fixnum_type = 0; /* x215253 */ t14688.s0.tag = EXTERNAL_SYMBOL_TYPE; t14688.s0.value.external_symbol_type = q601; /* x215254 */ t14689.s0.tag = EXTERNAL_SYMBOL_TYPE; t14689.s0.value.external_symbol_type = q602; /* x215255 */ t14690.s0.tag = EXTERNAL_SYMBOL_TYPE; t14690.s0.value.external_symbol_type = q603; /* x215256 */ t14690.s1.tag = NULL_TYPE; /* x215257 */ t14689.s1.tag = STRUCTURE_TYPE24753; t14689.s1.value.structure_type24753 = &t14690; /* x215258 */ t14688.s1.tag = STRUCTURE_TYPE24753; t14688.s1.value.structure_type24753 = &t14689; /* x215259 */ t14687.s1.tag = STRUCTURE_TYPE24753; t14687.s1.value.structure_type24753 = &t14688; /* x215260 */ t14686.s1.tag = STRUCTURE_TYPE24753; t14686.s1.value.structure_type24753 = &t14687; /* x215261 */ t14685.s1.tag = STRUCTURE_TYPE24753; t14685.s1.value.structure_type24753 = &t14686; /* x215262 */ t14684.s1.tag = STRUCTURE_TYPE24753; t14684.s1.value.structure_type24753 = &t14685; /* x215263 */ t14683.s0.tag = STRUCTURE_TYPE24753; t14683.s0.value.structure_type24753 = &t14684; /* x215264 */ t14692.s0.tag = EXTERNAL_SYMBOL_TYPE; t14692.s0.value.external_symbol_type = q42; /* x215265 */ t14693.s0.tag = EXTERNAL_SYMBOL_TYPE; t14693.s0.value.external_symbol_type = q633; /* x215266 */ t14695.s0.tag = EXTERNAL_SYMBOL_TYPE; t14695.s0.value.external_symbol_type = q556; /* x215267 */ t14696.s0.tag = EXTERNAL_SYMBOL_TYPE; t14696.s0.value.external_symbol_type = q540; /* x215268 */ t14698.s0.tag = EXTERNAL_SYMBOL_TYPE; t14698.s0.value.external_symbol_type = q557; /* x215269 */ t14699.s0.tag = EXTERNAL_SYMBOL_TYPE; t14699.s0.value.external_symbol_type = q540; /* x215270 */ t14700.s0.tag = EXTERNAL_SYMBOL_TYPE; t14700.s0.value.external_symbol_type = q545; /* x215271 */ t14700.s1.tag = NULL_TYPE; /* x215272 */ t14699.s1.tag = STRUCTURE_TYPE24753; t14699.s1.value.structure_type24753 = &t14700; /* x215273 */ t14698.s1.tag = STRUCTURE_TYPE24753; t14698.s1.value.structure_type24753 = &t14699; /* x215274 */ t14697.s0.tag = STRUCTURE_TYPE24753; t14697.s0.value.structure_type24753 = &t14698; /* x215275 */ t14701.s0.tag = STRING_TYPE; t14701.s0.value.string_type = "Yellow"; /* x215276 */ t14701.s1.tag = NULL_TYPE; /* x215277 */ t14697.s1.tag = STRUCTURE_TYPE24753; t14697.s1.value.structure_type24753 = &t14701; /* x215278 */ t14696.s1.tag = STRUCTURE_TYPE24753; t14696.s1.value.structure_type24753 = &t14697; /* x215279 */ t14695.s1.tag = STRUCTURE_TYPE24753; t14695.s1.value.structure_type24753 = &t14696; /* x215280 */ t14694.s0.tag = STRUCTURE_TYPE24753; t14694.s0.value.structure_type24753 = &t14695; /* x215281 */ t14694.s1.tag = NULL_TYPE; /* x215282 */ t14693.s1.tag = STRUCTURE_TYPE24753; t14693.s1.value.structure_type24753 = &t14694; /* x215283 */ t14692.s1.tag = STRUCTURE_TYPE24753; t14692.s1.value.structure_type24753 = &t14693; /* x215284 */ t14691.s0.tag = STRUCTURE_TYPE24753; t14691.s0.value.structure_type24753 = &t14692; /* x215285 */ t14703.s0.tag = EXTERNAL_SYMBOL_TYPE; t14703.s0.value.external_symbol_type = q494; /* x215286 */ t14705.s0.tag = EXTERNAL_SYMBOL_TYPE; t14705.s0.value.external_symbol_type = q120; /* x215287 */ t14707.s0.tag = EXTERNAL_SYMBOL_TYPE; t14707.s0.value.external_symbol_type = q559; /* x215288 */ t14708.s0.tag = EXTERNAL_SYMBOL_TYPE; t14708.s0.value.external_symbol_type = q633; /* x215289 */ t14708.s1.tag = NULL_TYPE; /* x215290 */ t14707.s1.tag = STRUCTURE_TYPE24753; t14707.s1.value.structure_type24753 = &t14708; /* x215291 */ t14706.s0.tag = STRUCTURE_TYPE24753; t14706.s0.value.structure_type24753 = &t14707; /* x215292 */ t14709.s0.tag = FIXNUM_TYPE; t14709.s0.value.fixnum_type = 1; /* x215293 */ t14709.s1.tag = NULL_TYPE; /* x215294 */ t14706.s1.tag = STRUCTURE_TYPE24753; t14706.s1.value.structure_type24753 = &t14709; /* x215295 */ t14705.s1.tag = STRUCTURE_TYPE24753; t14705.s1.value.structure_type24753 = &t14706; /* x215296 */ t14704.s0.tag = STRUCTURE_TYPE24753; t14704.s0.value.structure_type24753 = &t14705; /* x215297 */ t14711.s0.tag = EXTERNAL_SYMBOL_TYPE; t14711.s0.value.external_symbol_type = q179; /* x215298 */ t14712.s0.tag = STRING_TYPE; t14712.s0.value.string_type = "Can\'t allocate yellow colorcell"; /* x215299 */ t14712.s1.tag = NULL_TYPE; /* x215300 */ t14711.s1.tag = STRUCTURE_TYPE24753; t14711.s1.value.structure_type24753 = &t14712; /* x215301 */ t14710.s0.tag = STRUCTURE_TYPE24753; t14710.s0.value.structure_type24753 = &t14711; /* x215302 */ t14710.s1.tag = NULL_TYPE; /* x215303 */ t14704.s1.tag = STRUCTURE_TYPE24753; t14704.s1.value.structure_type24753 = &t14710; /* x215304 */ t14703.s1.tag = STRUCTURE_TYPE24753; t14703.s1.value.structure_type24753 = &t14704; /* x215305 */ t14702.s0.tag = STRUCTURE_TYPE24753; t14702.s0.value.structure_type24753 = &t14703; /* x215306 */ t14714.s0.tag = EXTERNAL_SYMBOL_TYPE; t14714.s0.value.external_symbol_type = q42; /* x215307 */ t14715.s0.tag = EXTERNAL_SYMBOL_TYPE; t14715.s0.value.external_symbol_type = q634; /* x215308 */ t14717.s0.tag = EXTERNAL_SYMBOL_TYPE; t14717.s0.value.external_symbol_type = q596; /* x215309 */ t14718.s0.tag = EXTERNAL_SYMBOL_TYPE; t14718.s0.value.external_symbol_type = q540; /* x215310 */ t14719.s0.tag = EXTERNAL_SYMBOL_TYPE; t14719.s0.value.external_symbol_type = q578; /* x215311 */ t14720.s0.tag = FIXNUM_TYPE; t14720.s0.value.fixnum_type = 0; /* x215312 */ t14722.s0.tag = EXTERNAL_SYMBOL_TYPE; t14722.s0.value.external_symbol_type = q597; /* x215313 */ t14722.s1.tag = NULL_TYPE; /* x215314 */ t14721.s0.tag = STRUCTURE_TYPE24753; t14721.s0.value.structure_type24753 = &t14722; /* x215315 */ t14721.s1.tag = NULL_TYPE; /* x215316 */ t14720.s1.tag = STRUCTURE_TYPE24753; t14720.s1.value.structure_type24753 = &t14721; /* x215317 */ t14719.s1.tag = STRUCTURE_TYPE24753; t14719.s1.value.structure_type24753 = &t14720; /* x215318 */ t14718.s1.tag = STRUCTURE_TYPE24753; t14718.s1.value.structure_type24753 = &t14719; /* x215319 */ t14717.s1.tag = STRUCTURE_TYPE24753; t14717.s1.value.structure_type24753 = &t14718; /* x215320 */ t14716.s0.tag = STRUCTURE_TYPE24753; t14716.s0.value.structure_type24753 = &t14717; /* x215321 */ t14716.s1.tag = NULL_TYPE; /* x215322 */ t14715.s1.tag = STRUCTURE_TYPE24753; t14715.s1.value.structure_type24753 = &t14716; /* x215323 */ t14714.s1.tag = STRUCTURE_TYPE24753; t14714.s1.value.structure_type24753 = &t14715; /* x215324 */ t14713.s0.tag = STRUCTURE_TYPE24753; t14713.s0.value.structure_type24753 = &t14714; /* x215325 */ t14724.s0.tag = EXTERNAL_SYMBOL_TYPE; t14724.s0.value.external_symbol_type = q598; /* x215326 */ t14725.s0.tag = EXTERNAL_SYMBOL_TYPE; t14725.s0.value.external_symbol_type = q540; /* x215327 */ t14726.s0.tag = EXTERNAL_SYMBOL_TYPE; t14726.s0.value.external_symbol_type = q634; /* x215328 */ t14728.s0.tag = EXTERNAL_SYMBOL_TYPE; t14728.s0.value.external_symbol_type = q582; /* x215329 */ t14730.s0.tag = EXTERNAL_SYMBOL_TYPE; t14730.s0.value.external_symbol_type = q583; /* x215330 */ t14731.s0.tag = EXTERNAL_SYMBOL_TYPE; t14731.s0.value.external_symbol_type = q555; /* x215331 */ t14731.s1.tag = NULL_TYPE; /* x215332 */ t14730.s1.tag = STRUCTURE_TYPE24753; t14730.s1.value.structure_type24753 = &t14731; /* x215333 */ t14729.s0.tag = STRUCTURE_TYPE24753; t14729.s0.value.structure_type24753 = &t14730; /* x215334 */ t14729.s1.tag = NULL_TYPE; /* x215335 */ t14728.s1.tag = STRUCTURE_TYPE24753; t14728.s1.value.structure_type24753 = &t14729; /* x215336 */ t14727.s0.tag = STRUCTURE_TYPE24753; t14727.s0.value.structure_type24753 = &t14728; /* x215337 */ t14727.s1.tag = NULL_TYPE; /* x215338 */ t14726.s1.tag = STRUCTURE_TYPE24753; t14726.s1.value.structure_type24753 = &t14727; /* x215339 */ t14725.s1.tag = STRUCTURE_TYPE24753; t14725.s1.value.structure_type24753 = &t14726; /* x215340 */ t14724.s1.tag = STRUCTURE_TYPE24753; t14724.s1.value.structure_type24753 = &t14725; /* x215341 */ t14723.s0.tag = STRUCTURE_TYPE24753; t14723.s0.value.structure_type24753 = &t14724; /* x215342 */ t14733.s0.tag = EXTERNAL_SYMBOL_TYPE; t14733.s0.value.external_symbol_type = q599; /* x215343 */ t14734.s0.tag = EXTERNAL_SYMBOL_TYPE; t14734.s0.value.external_symbol_type = q540; /* x215344 */ t14735.s0.tag = EXTERNAL_SYMBOL_TYPE; t14735.s0.value.external_symbol_type = q634; /* x215345 */ t14737.s0.tag = EXTERNAL_SYMBOL_TYPE; t14737.s0.value.external_symbol_type = q582; /* x215346 */ t14739.s0.tag = EXTERNAL_SYMBOL_TYPE; t14739.s0.value.external_symbol_type = q583; /* x215347 */ t14740.s0.tag = EXTERNAL_SYMBOL_TYPE; t14740.s0.value.external_symbol_type = q633; /* x215348 */ t14740.s1.tag = NULL_TYPE; /* x215349 */ t14739.s1.tag = STRUCTURE_TYPE24753; t14739.s1.value.structure_type24753 = &t14740; /* x215350 */ t14738.s0.tag = STRUCTURE_TYPE24753; t14738.s0.value.structure_type24753 = &t14739; /* x215351 */ t14738.s1.tag = NULL_TYPE; /* x215352 */ t14737.s1.tag = STRUCTURE_TYPE24753; t14737.s1.value.structure_type24753 = &t14738; /* x215353 */ t14736.s0.tag = STRUCTURE_TYPE24753; t14736.s0.value.structure_type24753 = &t14737; /* x215354 */ t14736.s1.tag = NULL_TYPE; /* x215355 */ t14735.s1.tag = STRUCTURE_TYPE24753; t14735.s1.value.structure_type24753 = &t14736; /* x215356 */ t14734.s1.tag = STRUCTURE_TYPE24753; t14734.s1.value.structure_type24753 = &t14735; /* x215357 */ t14733.s1.tag = STRUCTURE_TYPE24753; t14733.s1.value.structure_type24753 = &t14734; /* x215358 */ t14732.s0.tag = STRUCTURE_TYPE24753; t14732.s0.value.structure_type24753 = &t14733; /* x215359 */ t14742.s0.tag = EXTERNAL_SYMBOL_TYPE; t14742.s0.value.external_symbol_type = q615; /* x215360 */ t14743.s0.tag = EXTERNAL_SYMBOL_TYPE; t14743.s0.value.external_symbol_type = q540; /* x215361 */ t14744.s0.tag = EXTERNAL_SYMBOL_TYPE; t14744.s0.value.external_symbol_type = q634; /* x215362 */ t14746.s0.tag = EXTERNAL_SYMBOL_TYPE; t14746.s0.value.external_symbol_type = q616; /* x215363 */ t14747.s0.tag = EXTERNAL_SYMBOL_TYPE; t14747.s0.value.external_symbol_type = q562; /* x215364 */ t14747.s1.tag = NULL_TYPE; /* x215365 */ t14746.s1.tag = STRUCTURE_TYPE24753; t14746.s1.value.structure_type24753 = &t14747; /* x215366 */ t14745.s0.tag = STRUCTURE_TYPE24753; t14745.s0.value.structure_type24753 = &t14746; /* x215367 */ t14745.s1.tag = NULL_TYPE; /* x215368 */ t14744.s1.tag = STRUCTURE_TYPE24753; t14744.s1.value.structure_type24753 = &t14745; /* x215369 */ t14743.s1.tag = STRUCTURE_TYPE24753; t14743.s1.value.structure_type24753 = &t14744; /* x215370 */ t14742.s1.tag = STRUCTURE_TYPE24753; t14742.s1.value.structure_type24753 = &t14743; /* x215371 */ t14741.s0.tag = STRUCTURE_TYPE24753; t14741.s0.value.structure_type24753 = &t14742; /* x215372 */ t14749.s0.tag = EXTERNAL_SYMBOL_TYPE; t14749.s0.value.external_symbol_type = q600; /* x215373 */ t14750.s0.tag = EXTERNAL_SYMBOL_TYPE; t14750.s0.value.external_symbol_type = q540; /* x215374 */ t14751.s0.tag = EXTERNAL_SYMBOL_TYPE; t14751.s0.value.external_symbol_type = q634; /* x215375 */ t14752.s0.tag = FIXNUM_TYPE; t14752.s0.value.fixnum_type = 0; /* x215376 */ t14753.s0.tag = EXTERNAL_SYMBOL_TYPE; t14753.s0.value.external_symbol_type = q601; /* x215377 */ t14754.s0.tag = EXTERNAL_SYMBOL_TYPE; t14754.s0.value.external_symbol_type = q602; /* x215378 */ t14755.s0.tag = EXTERNAL_SYMBOL_TYPE; t14755.s0.value.external_symbol_type = q603; /* x215379 */ t14755.s1.tag = NULL_TYPE; /* x215380 */ t14754.s1.tag = STRUCTURE_TYPE24753; t14754.s1.value.structure_type24753 = &t14755; /* x215381 */ t14753.s1.tag = STRUCTURE_TYPE24753; t14753.s1.value.structure_type24753 = &t14754; /* x215382 */ t14752.s1.tag = STRUCTURE_TYPE24753; t14752.s1.value.structure_type24753 = &t14753; /* x215383 */ t14751.s1.tag = STRUCTURE_TYPE24753; t14751.s1.value.structure_type24753 = &t14752; /* x215384 */ t14750.s1.tag = STRUCTURE_TYPE24753; t14750.s1.value.structure_type24753 = &t14751; /* x215385 */ t14749.s1.tag = STRUCTURE_TYPE24753; t14749.s1.value.structure_type24753 = &t14750; /* x215386 */ t14748.s0.tag = STRUCTURE_TYPE24753; t14748.s0.value.structure_type24753 = &t14749; /* x215387 */ t14757.s0.tag = EXTERNAL_SYMBOL_TYPE; t14757.s0.value.external_symbol_type = q42; /* x215388 */ t14758.s0.tag = EXTERNAL_SYMBOL_TYPE; t14758.s0.value.external_symbol_type = q635; /* x215389 */ t14760.s0.tag = EXTERNAL_SYMBOL_TYPE; t14760.s0.value.external_symbol_type = q556; /* x215390 */ t14761.s0.tag = EXTERNAL_SYMBOL_TYPE; t14761.s0.value.external_symbol_type = q540; /* x215391 */ t14763.s0.tag = EXTERNAL_SYMBOL_TYPE; t14763.s0.value.external_symbol_type = q557; /* x215392 */ t14764.s0.tag = EXTERNAL_SYMBOL_TYPE; t14764.s0.value.external_symbol_type = q540; /* x215393 */ t14765.s0.tag = EXTERNAL_SYMBOL_TYPE; t14765.s0.value.external_symbol_type = q545; /* x215394 */ t14765.s1.tag = NULL_TYPE; /* x215395 */ t14764.s1.tag = STRUCTURE_TYPE24753; t14764.s1.value.structure_type24753 = &t14765; /* x215396 */ t14763.s1.tag = STRUCTURE_TYPE24753; t14763.s1.value.structure_type24753 = &t14764; /* x215397 */ t14762.s0.tag = STRUCTURE_TYPE24753; t14762.s0.value.structure_type24753 = &t14763; /* x215398 */ t14766.s0.tag = STRING_TYPE; t14766.s0.value.string_type = "Violet"; /* x215399 */ t14766.s1.tag = NULL_TYPE; /* x215400 */ t14762.s1.tag = STRUCTURE_TYPE24753; t14762.s1.value.structure_type24753 = &t14766; /* x215401 */ t14761.s1.tag = STRUCTURE_TYPE24753; t14761.s1.value.structure_type24753 = &t14762; /* x215402 */ t14760.s1.tag = STRUCTURE_TYPE24753; t14760.s1.value.structure_type24753 = &t14761; /* x215403 */ t14759.s0.tag = STRUCTURE_TYPE24753; t14759.s0.value.structure_type24753 = &t14760; /* x215404 */ t14759.s1.tag = NULL_TYPE; /* x215405 */ t14758.s1.tag = STRUCTURE_TYPE24753; t14758.s1.value.structure_type24753 = &t14759; /* x215406 */ t14757.s1.tag = STRUCTURE_TYPE24753; t14757.s1.value.structure_type24753 = &t14758; /* x215407 */ t14756.s0.tag = STRUCTURE_TYPE24753; t14756.s0.value.structure_type24753 = &t14757; /* x215408 */ t14768.s0.tag = EXTERNAL_SYMBOL_TYPE; t14768.s0.value.external_symbol_type = q494; /* x215409 */ t14770.s0.tag = EXTERNAL_SYMBOL_TYPE; t14770.s0.value.external_symbol_type = q120; /* x215410 */ t14772.s0.tag = EXTERNAL_SYMBOL_TYPE; t14772.s0.value.external_symbol_type = q559; /* x215411 */ t14773.s0.tag = EXTERNAL_SYMBOL_TYPE; t14773.s0.value.external_symbol_type = q635; /* x215412 */ t14773.s1.tag = NULL_TYPE; /* x215413 */ t14772.s1.tag = STRUCTURE_TYPE24753; t14772.s1.value.structure_type24753 = &t14773; /* x215414 */ t14771.s0.tag = STRUCTURE_TYPE24753; t14771.s0.value.structure_type24753 = &t14772; /* x215415 */ t14774.s0.tag = FIXNUM_TYPE; t14774.s0.value.fixnum_type = 1; /* x215416 */ t14774.s1.tag = NULL_TYPE; /* x215417 */ t14771.s1.tag = STRUCTURE_TYPE24753; t14771.s1.value.structure_type24753 = &t14774; /* x215418 */ t14770.s1.tag = STRUCTURE_TYPE24753; t14770.s1.value.structure_type24753 = &t14771; /* x215419 */ t14769.s0.tag = STRUCTURE_TYPE24753; t14769.s0.value.structure_type24753 = &t14770; /* x215420 */ t14776.s0.tag = EXTERNAL_SYMBOL_TYPE; t14776.s0.value.external_symbol_type = q179; /* x215421 */ t14777.s0.tag = STRING_TYPE; t14777.s0.value.string_type = "Can\'t allocate violet colorcell"; /* x215422 */ t14777.s1.tag = NULL_TYPE; /* x215423 */ t14776.s1.tag = STRUCTURE_TYPE24753; t14776.s1.value.structure_type24753 = &t14777; /* x215424 */ t14775.s0.tag = STRUCTURE_TYPE24753; t14775.s0.value.structure_type24753 = &t14776; /* x215425 */ t14775.s1.tag = NULL_TYPE; /* x215426 */ t14769.s1.tag = STRUCTURE_TYPE24753; t14769.s1.value.structure_type24753 = &t14775; /* x215427 */ t14768.s1.tag = STRUCTURE_TYPE24753; t14768.s1.value.structure_type24753 = &t14769; /* x215428 */ t14767.s0.tag = STRUCTURE_TYPE24753; t14767.s0.value.structure_type24753 = &t14768; /* x215429 */ t14779.s0.tag = EXTERNAL_SYMBOL_TYPE; t14779.s0.value.external_symbol_type = q42; /* x215430 */ t14780.s0.tag = EXTERNAL_SYMBOL_TYPE; t14780.s0.value.external_symbol_type = q636; /* x215431 */ t14782.s0.tag = EXTERNAL_SYMBOL_TYPE; t14782.s0.value.external_symbol_type = q596; /* x215432 */ t14783.s0.tag = EXTERNAL_SYMBOL_TYPE; t14783.s0.value.external_symbol_type = q540; /* x215433 */ t14784.s0.tag = EXTERNAL_SYMBOL_TYPE; t14784.s0.value.external_symbol_type = q578; /* x215434 */ t14785.s0.tag = FIXNUM_TYPE; t14785.s0.value.fixnum_type = 0; /* x215435 */ t14787.s0.tag = EXTERNAL_SYMBOL_TYPE; t14787.s0.value.external_symbol_type = q597; /* x215436 */ t14787.s1.tag = NULL_TYPE; /* x215437 */ t14786.s0.tag = STRUCTURE_TYPE24753; t14786.s0.value.structure_type24753 = &t14787; /* x215438 */ t14786.s1.tag = NULL_TYPE; /* x215439 */ t14785.s1.tag = STRUCTURE_TYPE24753; t14785.s1.value.structure_type24753 = &t14786; /* x215440 */ t14784.s1.tag = STRUCTURE_TYPE24753; t14784.s1.value.structure_type24753 = &t14785; /* x215441 */ t14783.s1.tag = STRUCTURE_TYPE24753; t14783.s1.value.structure_type24753 = &t14784; /* x215442 */ t14782.s1.tag = STRUCTURE_TYPE24753; t14782.s1.value.structure_type24753 = &t14783; /* x215443 */ t14781.s0.tag = STRUCTURE_TYPE24753; t14781.s0.value.structure_type24753 = &t14782; /* x215444 */ t14781.s1.tag = NULL_TYPE; /* x215445 */ t14780.s1.tag = STRUCTURE_TYPE24753; t14780.s1.value.structure_type24753 = &t14781; /* x215446 */ t14779.s1.tag = STRUCTURE_TYPE24753; t14779.s1.value.structure_type24753 = &t14780; /* x215447 */ t14778.s0.tag = STRUCTURE_TYPE24753; t14778.s0.value.structure_type24753 = &t14779; /* x215448 */ t14789.s0.tag = EXTERNAL_SYMBOL_TYPE; t14789.s0.value.external_symbol_type = q598; /* x215449 */ t14790.s0.tag = EXTERNAL_SYMBOL_TYPE; t14790.s0.value.external_symbol_type = q540; /* x215450 */ t14791.s0.tag = EXTERNAL_SYMBOL_TYPE; t14791.s0.value.external_symbol_type = q636; /* x215451 */ t14793.s0.tag = EXTERNAL_SYMBOL_TYPE; t14793.s0.value.external_symbol_type = q582; /* x215452 */ t14795.s0.tag = EXTERNAL_SYMBOL_TYPE; t14795.s0.value.external_symbol_type = q583; /* x215453 */ t14796.s0.tag = EXTERNAL_SYMBOL_TYPE; t14796.s0.value.external_symbol_type = q555; /* x215454 */ t14796.s1.tag = NULL_TYPE; /* x215455 */ t14795.s1.tag = STRUCTURE_TYPE24753; t14795.s1.value.structure_type24753 = &t14796; /* x215456 */ t14794.s0.tag = STRUCTURE_TYPE24753; t14794.s0.value.structure_type24753 = &t14795; /* x215457 */ t14794.s1.tag = NULL_TYPE; /* x215458 */ t14793.s1.tag = STRUCTURE_TYPE24753; t14793.s1.value.structure_type24753 = &t14794; /* x215459 */ t14792.s0.tag = STRUCTURE_TYPE24753; t14792.s0.value.structure_type24753 = &t14793; /* x215460 */ t14792.s1.tag = NULL_TYPE; /* x215461 */ t14791.s1.tag = STRUCTURE_TYPE24753; t14791.s1.value.structure_type24753 = &t14792; /* x215462 */ t14790.s1.tag = STRUCTURE_TYPE24753; t14790.s1.value.structure_type24753 = &t14791; /* x215463 */ t14789.s1.tag = STRUCTURE_TYPE24753; t14789.s1.value.structure_type24753 = &t14790; /* x215464 */ t14788.s0.tag = STRUCTURE_TYPE24753; t14788.s0.value.structure_type24753 = &t14789; /* x215465 */ t14798.s0.tag = EXTERNAL_SYMBOL_TYPE; t14798.s0.value.external_symbol_type = q599; /* x215466 */ t14799.s0.tag = EXTERNAL_SYMBOL_TYPE; t14799.s0.value.external_symbol_type = q540; /* x215467 */ t14800.s0.tag = EXTERNAL_SYMBOL_TYPE; t14800.s0.value.external_symbol_type = q636; /* x215468 */ t14802.s0.tag = EXTERNAL_SYMBOL_TYPE; t14802.s0.value.external_symbol_type = q582; /* x215469 */ t14804.s0.tag = EXTERNAL_SYMBOL_TYPE; t14804.s0.value.external_symbol_type = q583; /* x215470 */ t14805.s0.tag = EXTERNAL_SYMBOL_TYPE; t14805.s0.value.external_symbol_type = q635; /* x215471 */ t14805.s1.tag = NULL_TYPE; /* x215472 */ t14804.s1.tag = STRUCTURE_TYPE24753; t14804.s1.value.structure_type24753 = &t14805; /* x215473 */ t14803.s0.tag = STRUCTURE_TYPE24753; t14803.s0.value.structure_type24753 = &t14804; /* x215474 */ t14803.s1.tag = NULL_TYPE; /* x215475 */ t14802.s1.tag = STRUCTURE_TYPE24753; t14802.s1.value.structure_type24753 = &t14803; /* x215476 */ t14801.s0.tag = STRUCTURE_TYPE24753; t14801.s0.value.structure_type24753 = &t14802; /* x215477 */ t14801.s1.tag = NULL_TYPE; /* x215478 */ t14800.s1.tag = STRUCTURE_TYPE24753; t14800.s1.value.structure_type24753 = &t14801; /* x215479 */ t14799.s1.tag = STRUCTURE_TYPE24753; t14799.s1.value.structure_type24753 = &t14800; /* x215480 */ t14798.s1.tag = STRUCTURE_TYPE24753; t14798.s1.value.structure_type24753 = &t14799; /* x215481 */ t14797.s0.tag = STRUCTURE_TYPE24753; t14797.s0.value.structure_type24753 = &t14798; /* x215482 */ t14807.s0.tag = EXTERNAL_SYMBOL_TYPE; t14807.s0.value.external_symbol_type = q615; /* x215483 */ t14808.s0.tag = EXTERNAL_SYMBOL_TYPE; t14808.s0.value.external_symbol_type = q540; /* x215484 */ t14809.s0.tag = EXTERNAL_SYMBOL_TYPE; t14809.s0.value.external_symbol_type = q636; /* x215485 */ t14811.s0.tag = EXTERNAL_SYMBOL_TYPE; t14811.s0.value.external_symbol_type = q616; /* x215486 */ t14812.s0.tag = EXTERNAL_SYMBOL_TYPE; t14812.s0.value.external_symbol_type = q562; /* x215487 */ t14812.s1.tag = NULL_TYPE; /* x215488 */ t14811.s1.tag = STRUCTURE_TYPE24753; t14811.s1.value.structure_type24753 = &t14812; /* x215489 */ t14810.s0.tag = STRUCTURE_TYPE24753; t14810.s0.value.structure_type24753 = &t14811; /* x215490 */ t14810.s1.tag = NULL_TYPE; /* x215491 */ t14809.s1.tag = STRUCTURE_TYPE24753; t14809.s1.value.structure_type24753 = &t14810; /* x215492 */ t14808.s1.tag = STRUCTURE_TYPE24753; t14808.s1.value.structure_type24753 = &t14809; /* x215493 */ t14807.s1.tag = STRUCTURE_TYPE24753; t14807.s1.value.structure_type24753 = &t14808; /* x215494 */ t14806.s0.tag = STRUCTURE_TYPE24753; t14806.s0.value.structure_type24753 = &t14807; /* x215495 */ t14814.s0.tag = EXTERNAL_SYMBOL_TYPE; t14814.s0.value.external_symbol_type = q600; /* x215496 */ t14815.s0.tag = EXTERNAL_SYMBOL_TYPE; t14815.s0.value.external_symbol_type = q540; /* x215497 */ t14816.s0.tag = EXTERNAL_SYMBOL_TYPE; t14816.s0.value.external_symbol_type = q636; /* x215498 */ t14817.s0.tag = FIXNUM_TYPE; t14817.s0.value.fixnum_type = 0; /* x215499 */ t14818.s0.tag = EXTERNAL_SYMBOL_TYPE; t14818.s0.value.external_symbol_type = q601; /* x215500 */ t14819.s0.tag = EXTERNAL_SYMBOL_TYPE; t14819.s0.value.external_symbol_type = q602; /* x215501 */ t14820.s0.tag = EXTERNAL_SYMBOL_TYPE; t14820.s0.value.external_symbol_type = q603; /* x215502 */ t14820.s1.tag = NULL_TYPE; /* x215503 */ t14819.s1.tag = STRUCTURE_TYPE24753; t14819.s1.value.structure_type24753 = &t14820; /* x215504 */ t14818.s1.tag = STRUCTURE_TYPE24753; t14818.s1.value.structure_type24753 = &t14819; /* x215505 */ t14817.s1.tag = STRUCTURE_TYPE24753; t14817.s1.value.structure_type24753 = &t14818; /* x215506 */ t14816.s1.tag = STRUCTURE_TYPE24753; t14816.s1.value.structure_type24753 = &t14817; /* x215507 */ t14815.s1.tag = STRUCTURE_TYPE24753; t14815.s1.value.structure_type24753 = &t14816; /* x215508 */ t14814.s1.tag = STRUCTURE_TYPE24753; t14814.s1.value.structure_type24753 = &t14815; /* x215509 */ t14813.s0.tag = STRUCTURE_TYPE24753; t14813.s0.value.structure_type24753 = &t14814; /* x215510 */ t14822.s0.tag = EXTERNAL_SYMBOL_TYPE; t14822.s0.value.external_symbol_type = q42; /* x215511 */ t14823.s0.tag = EXTERNAL_SYMBOL_TYPE; t14823.s0.value.external_symbol_type = q637; /* x215512 */ t14825.s0.tag = EXTERNAL_SYMBOL_TYPE; t14825.s0.value.external_symbol_type = q556; /* x215513 */ t14826.s0.tag = EXTERNAL_SYMBOL_TYPE; t14826.s0.value.external_symbol_type = q540; /* x215514 */ t14828.s0.tag = EXTERNAL_SYMBOL_TYPE; t14828.s0.value.external_symbol_type = q557; /* x215515 */ t14829.s0.tag = EXTERNAL_SYMBOL_TYPE; t14829.s0.value.external_symbol_type = q540; /* x215516 */ t14830.s0.tag = EXTERNAL_SYMBOL_TYPE; t14830.s0.value.external_symbol_type = q545; /* x215517 */ t14830.s1.tag = NULL_TYPE; /* x215518 */ t14829.s1.tag = STRUCTURE_TYPE24753; t14829.s1.value.structure_type24753 = &t14830; /* x215519 */ t14828.s1.tag = STRUCTURE_TYPE24753; t14828.s1.value.structure_type24753 = &t14829; /* x215520 */ t14827.s0.tag = STRUCTURE_TYPE24753; t14827.s0.value.structure_type24753 = &t14828; /* x215521 */ t14831.s0.tag = STRING_TYPE; t14831.s0.value.string_type = "Orange"; /* x215522 */ t14831.s1.tag = NULL_TYPE; /* x215523 */ t14827.s1.tag = STRUCTURE_TYPE24753; t14827.s1.value.structure_type24753 = &t14831; /* x215524 */ t14826.s1.tag = STRUCTURE_TYPE24753; t14826.s1.value.structure_type24753 = &t14827; /* x215525 */ t14825.s1.tag = STRUCTURE_TYPE24753; t14825.s1.value.structure_type24753 = &t14826; /* x215526 */ t14824.s0.tag = STRUCTURE_TYPE24753; t14824.s0.value.structure_type24753 = &t14825; /* x215527 */ t14824.s1.tag = NULL_TYPE; /* x215528 */ t14823.s1.tag = STRUCTURE_TYPE24753; t14823.s1.value.structure_type24753 = &t14824; /* x215529 */ t14822.s1.tag = STRUCTURE_TYPE24753; t14822.s1.value.structure_type24753 = &t14823; /* x215530 */ t14821.s0.tag = STRUCTURE_TYPE24753; t14821.s0.value.structure_type24753 = &t14822; /* x215531 */ t14833.s0.tag = EXTERNAL_SYMBOL_TYPE; t14833.s0.value.external_symbol_type = q494; /* x215532 */ t14835.s0.tag = EXTERNAL_SYMBOL_TYPE; t14835.s0.value.external_symbol_type = q120; /* x215533 */ t14837.s0.tag = EXTERNAL_SYMBOL_TYPE; t14837.s0.value.external_symbol_type = q559; /* x215534 */ t14838.s0.tag = EXTERNAL_SYMBOL_TYPE; t14838.s0.value.external_symbol_type = q637; /* x215535 */ t14838.s1.tag = NULL_TYPE; /* x215536 */ t14837.s1.tag = STRUCTURE_TYPE24753; t14837.s1.value.structure_type24753 = &t14838; /* x215537 */ t14836.s0.tag = STRUCTURE_TYPE24753; t14836.s0.value.structure_type24753 = &t14837; /* x215538 */ t14839.s0.tag = FIXNUM_TYPE; t14839.s0.value.fixnum_type = 1; /* x215539 */ t14839.s1.tag = NULL_TYPE; /* x215540 */ t14836.s1.tag = STRUCTURE_TYPE24753; t14836.s1.value.structure_type24753 = &t14839; /* x215541 */ t14835.s1.tag = STRUCTURE_TYPE24753; t14835.s1.value.structure_type24753 = &t14836; /* x215542 */ t14834.s0.tag = STRUCTURE_TYPE24753; t14834.s0.value.structure_type24753 = &t14835; /* x215543 */ t14841.s0.tag = EXTERNAL_SYMBOL_TYPE; t14841.s0.value.external_symbol_type = q179; /* x215544 */ t14842.s0.tag = STRING_TYPE; t14842.s0.value.string_type = "Can\'t allocate orange colorcell"; /* x215545 */ t14842.s1.tag = NULL_TYPE; /* x215546 */ t14841.s1.tag = STRUCTURE_TYPE24753; t14841.s1.value.structure_type24753 = &t14842; /* x215547 */ t14840.s0.tag = STRUCTURE_TYPE24753; t14840.s0.value.structure_type24753 = &t14841; /* x215548 */ t14840.s1.tag = NULL_TYPE; /* x215549 */ t14834.s1.tag = STRUCTURE_TYPE24753; t14834.s1.value.structure_type24753 = &t14840; /* x215550 */ t14833.s1.tag = STRUCTURE_TYPE24753; t14833.s1.value.structure_type24753 = &t14834; /* x215551 */ t14832.s0.tag = STRUCTURE_TYPE24753; t14832.s0.value.structure_type24753 = &t14833; /* x215552 */ t14844.s0.tag = EXTERNAL_SYMBOL_TYPE; t14844.s0.value.external_symbol_type = q42; /* x215553 */ t14845.s0.tag = EXTERNAL_SYMBOL_TYPE; t14845.s0.value.external_symbol_type = q638; /* x215554 */ t14847.s0.tag = EXTERNAL_SYMBOL_TYPE; t14847.s0.value.external_symbol_type = q596; /* x215555 */ t14848.s0.tag = EXTERNAL_SYMBOL_TYPE; t14848.s0.value.external_symbol_type = q540; /* x215556 */ t14849.s0.tag = EXTERNAL_SYMBOL_TYPE; t14849.s0.value.external_symbol_type = q578; /* x215557 */ t14850.s0.tag = FIXNUM_TYPE; t14850.s0.value.fixnum_type = 0; /* x215558 */ t14852.s0.tag = EXTERNAL_SYMBOL_TYPE; t14852.s0.value.external_symbol_type = q597; /* x215559 */ t14852.s1.tag = NULL_TYPE; /* x215560 */ t14851.s0.tag = STRUCTURE_TYPE24753; t14851.s0.value.structure_type24753 = &t14852; /* x215561 */ t14851.s1.tag = NULL_TYPE; /* x215562 */ t14850.s1.tag = STRUCTURE_TYPE24753; t14850.s1.value.structure_type24753 = &t14851; /* x215563 */ t14849.s1.tag = STRUCTURE_TYPE24753; t14849.s1.value.structure_type24753 = &t14850; /* x215564 */ t14848.s1.tag = STRUCTURE_TYPE24753; t14848.s1.value.structure_type24753 = &t14849; /* x215565 */ t14847.s1.tag = STRUCTURE_TYPE24753; t14847.s1.value.structure_type24753 = &t14848; /* x215566 */ t14846.s0.tag = STRUCTURE_TYPE24753; t14846.s0.value.structure_type24753 = &t14847; /* x215567 */ t14846.s1.tag = NULL_TYPE; /* x215568 */ t14845.s1.tag = STRUCTURE_TYPE24753; t14845.s1.value.structure_type24753 = &t14846; /* x215569 */ t14844.s1.tag = STRUCTURE_TYPE24753; t14844.s1.value.structure_type24753 = &t14845; /* x215570 */ t14843.s0.tag = STRUCTURE_TYPE24753; t14843.s0.value.structure_type24753 = &t14844; /* x215571 */ t14854.s0.tag = EXTERNAL_SYMBOL_TYPE; t14854.s0.value.external_symbol_type = q598; /* x215572 */ t14855.s0.tag = EXTERNAL_SYMBOL_TYPE; t14855.s0.value.external_symbol_type = q540; /* x215573 */ t14856.s0.tag = EXTERNAL_SYMBOL_TYPE; t14856.s0.value.external_symbol_type = q638; /* x215574 */ t14858.s0.tag = EXTERNAL_SYMBOL_TYPE; t14858.s0.value.external_symbol_type = q582; /* x215575 */ t14860.s0.tag = EXTERNAL_SYMBOL_TYPE; t14860.s0.value.external_symbol_type = q583; /* x215576 */ t14861.s0.tag = EXTERNAL_SYMBOL_TYPE; t14861.s0.value.external_symbol_type = q555; /* x215577 */ t14861.s1.tag = NULL_TYPE; /* x215578 */ t14860.s1.tag = STRUCTURE_TYPE24753; t14860.s1.value.structure_type24753 = &t14861; /* x215579 */ t14859.s0.tag = STRUCTURE_TYPE24753; t14859.s0.value.structure_type24753 = &t14860; /* x215580 */ t14859.s1.tag = NULL_TYPE; /* x215581 */ t14858.s1.tag = STRUCTURE_TYPE24753; t14858.s1.value.structure_type24753 = &t14859; /* x215582 */ t14857.s0.tag = STRUCTURE_TYPE24753; t14857.s0.value.structure_type24753 = &t14858; /* x215583 */ t14857.s1.tag = NULL_TYPE; /* x215584 */ t14856.s1.tag = STRUCTURE_TYPE24753; t14856.s1.value.structure_type24753 = &t14857; /* x215585 */ t14855.s1.tag = STRUCTURE_TYPE24753; t14855.s1.value.structure_type24753 = &t14856; /* x215586 */ t14854.s1.tag = STRUCTURE_TYPE24753; t14854.s1.value.structure_type24753 = &t14855; /* x215587 */ t14853.s0.tag = STRUCTURE_TYPE24753; t14853.s0.value.structure_type24753 = &t14854; /* x215588 */ t14863.s0.tag = EXTERNAL_SYMBOL_TYPE; t14863.s0.value.external_symbol_type = q599; /* x215589 */ t14864.s0.tag = EXTERNAL_SYMBOL_TYPE; t14864.s0.value.external_symbol_type = q540; /* x215590 */ t14865.s0.tag = EXTERNAL_SYMBOL_TYPE; t14865.s0.value.external_symbol_type = q638; /* x215591 */ t14867.s0.tag = EXTERNAL_SYMBOL_TYPE; t14867.s0.value.external_symbol_type = q582; /* x215592 */ t14869.s0.tag = EXTERNAL_SYMBOL_TYPE; t14869.s0.value.external_symbol_type = q583; /* x215593 */ t14870.s0.tag = EXTERNAL_SYMBOL_TYPE; t14870.s0.value.external_symbol_type = q637; /* x215594 */ t14870.s1.tag = NULL_TYPE; /* x215595 */ t14869.s1.tag = STRUCTURE_TYPE24753; t14869.s1.value.structure_type24753 = &t14870; /* x215596 */ t14868.s0.tag = STRUCTURE_TYPE24753; t14868.s0.value.structure_type24753 = &t14869; /* x215597 */ t14868.s1.tag = NULL_TYPE; /* x215598 */ t14867.s1.tag = STRUCTURE_TYPE24753; t14867.s1.value.structure_type24753 = &t14868; /* x215599 */ t14866.s0.tag = STRUCTURE_TYPE24753; t14866.s0.value.structure_type24753 = &t14867; /* x215600 */ t14866.s1.tag = NULL_TYPE; /* x215601 */ t14865.s1.tag = STRUCTURE_TYPE24753; t14865.s1.value.structure_type24753 = &t14866; /* x215602 */ t14864.s1.tag = STRUCTURE_TYPE24753; t14864.s1.value.structure_type24753 = &t14865; /* x215603 */ t14863.s1.tag = STRUCTURE_TYPE24753; t14863.s1.value.structure_type24753 = &t14864; /* x215604 */ t14862.s0.tag = STRUCTURE_TYPE24753; t14862.s0.value.structure_type24753 = &t14863; /* x215605 */ t14872.s0.tag = EXTERNAL_SYMBOL_TYPE; t14872.s0.value.external_symbol_type = q615; /* x215606 */ t14873.s0.tag = EXTERNAL_SYMBOL_TYPE; t14873.s0.value.external_symbol_type = q540; /* x215607 */ t14874.s0.tag = EXTERNAL_SYMBOL_TYPE; t14874.s0.value.external_symbol_type = q638; /* x215608 */ t14876.s0.tag = EXTERNAL_SYMBOL_TYPE; t14876.s0.value.external_symbol_type = q616; /* x215609 */ t14877.s0.tag = EXTERNAL_SYMBOL_TYPE; t14877.s0.value.external_symbol_type = q562; /* x215610 */ t14877.s1.tag = NULL_TYPE; /* x215611 */ t14876.s1.tag = STRUCTURE_TYPE24753; t14876.s1.value.structure_type24753 = &t14877; /* x215612 */ t14875.s0.tag = STRUCTURE_TYPE24753; t14875.s0.value.structure_type24753 = &t14876; /* x215613 */ t14875.s1.tag = NULL_TYPE; /* x215614 */ t14874.s1.tag = STRUCTURE_TYPE24753; t14874.s1.value.structure_type24753 = &t14875; /* x215615 */ t14873.s1.tag = STRUCTURE_TYPE24753; t14873.s1.value.structure_type24753 = &t14874; /* x215616 */ t14872.s1.tag = STRUCTURE_TYPE24753; t14872.s1.value.structure_type24753 = &t14873; /* x215617 */ t14871.s0.tag = STRUCTURE_TYPE24753; t14871.s0.value.structure_type24753 = &t14872; /* x215618 */ t14879.s0.tag = EXTERNAL_SYMBOL_TYPE; t14879.s0.value.external_symbol_type = q600; /* x215619 */ t14880.s0.tag = EXTERNAL_SYMBOL_TYPE; t14880.s0.value.external_symbol_type = q540; /* x215620 */ t14881.s0.tag = EXTERNAL_SYMBOL_TYPE; t14881.s0.value.external_symbol_type = q638; /* x215621 */ t14882.s0.tag = FIXNUM_TYPE; t14882.s0.value.fixnum_type = 0; /* x215622 */ t14883.s0.tag = EXTERNAL_SYMBOL_TYPE; t14883.s0.value.external_symbol_type = q601; /* x215623 */ t14884.s0.tag = EXTERNAL_SYMBOL_TYPE; t14884.s0.value.external_symbol_type = q602; /* x215624 */ t14885.s0.tag = EXTERNAL_SYMBOL_TYPE; t14885.s0.value.external_symbol_type = q603; /* x215625 */ t14885.s1.tag = NULL_TYPE; /* x215626 */ t14884.s1.tag = STRUCTURE_TYPE24753; t14884.s1.value.structure_type24753 = &t14885; /* x215627 */ t14883.s1.tag = STRUCTURE_TYPE24753; t14883.s1.value.structure_type24753 = &t14884; /* x215628 */ t14882.s1.tag = STRUCTURE_TYPE24753; t14882.s1.value.structure_type24753 = &t14883; /* x215629 */ t14881.s1.tag = STRUCTURE_TYPE24753; t14881.s1.value.structure_type24753 = &t14882; /* x215630 */ t14880.s1.tag = STRUCTURE_TYPE24753; t14880.s1.value.structure_type24753 = &t14881; /* x215631 */ t14879.s1.tag = STRUCTURE_TYPE24753; t14879.s1.value.structure_type24753 = &t14880; /* x215632 */ t14878.s0.tag = STRUCTURE_TYPE24753; t14878.s0.value.structure_type24753 = &t14879; /* x215633 */ t14887.s0.tag = EXTERNAL_SYMBOL_TYPE; t14887.s0.value.external_symbol_type = q42; /* x215634 */ t14888.s0.tag = EXTERNAL_SYMBOL_TYPE; t14888.s0.value.external_symbol_type = q639; /* x215635 */ t14890.s0.tag = EXTERNAL_SYMBOL_TYPE; t14890.s0.value.external_symbol_type = q556; /* x215636 */ t14891.s0.tag = EXTERNAL_SYMBOL_TYPE; t14891.s0.value.external_symbol_type = q540; /* x215637 */ t14893.s0.tag = EXTERNAL_SYMBOL_TYPE; t14893.s0.value.external_symbol_type = q557; /* x215638 */ t14894.s0.tag = EXTERNAL_SYMBOL_TYPE; t14894.s0.value.external_symbol_type = q540; /* x215639 */ t14895.s0.tag = EXTERNAL_SYMBOL_TYPE; t14895.s0.value.external_symbol_type = q545; /* x215640 */ t14895.s1.tag = NULL_TYPE; /* x215641 */ t14894.s1.tag = STRUCTURE_TYPE24753; t14894.s1.value.structure_type24753 = &t14895; /* x215642 */ t14893.s1.tag = STRUCTURE_TYPE24753; t14893.s1.value.structure_type24753 = &t14894; /* x215643 */ t14892.s0.tag = STRUCTURE_TYPE24753; t14892.s0.value.structure_type24753 = &t14893; /* x215644 */ t14896.s0.tag = STRING_TYPE; t14896.s0.value.string_type = "Dark Orange"; /* x215645 */ t14896.s1.tag = NULL_TYPE; /* x215646 */ t14892.s1.tag = STRUCTURE_TYPE24753; t14892.s1.value.structure_type24753 = &t14896; /* x215647 */ t14891.s1.tag = STRUCTURE_TYPE24753; t14891.s1.value.structure_type24753 = &t14892; /* x215648 */ t14890.s1.tag = STRUCTURE_TYPE24753; t14890.s1.value.structure_type24753 = &t14891; /* x215649 */ t14889.s0.tag = STRUCTURE_TYPE24753; t14889.s0.value.structure_type24753 = &t14890; /* x215650 */ t14889.s1.tag = NULL_TYPE; /* x215651 */ t14888.s1.tag = STRUCTURE_TYPE24753; t14888.s1.value.structure_type24753 = &t14889; /* x215652 */ t14887.s1.tag = STRUCTURE_TYPE24753; t14887.s1.value.structure_type24753 = &t14888; /* x215653 */ t14886.s0.tag = STRUCTURE_TYPE24753; t14886.s0.value.structure_type24753 = &t14887; /* x215654 */ t14898.s0.tag = EXTERNAL_SYMBOL_TYPE; t14898.s0.value.external_symbol_type = q494; /* x215655 */ t14900.s0.tag = EXTERNAL_SYMBOL_TYPE; t14900.s0.value.external_symbol_type = q120; /* x215656 */ t14902.s0.tag = EXTERNAL_SYMBOL_TYPE; t14902.s0.value.external_symbol_type = q559; /* x215657 */ t14903.s0.tag = EXTERNAL_SYMBOL_TYPE; t14903.s0.value.external_symbol_type = q639; /* x215658 */ t14903.s1.tag = NULL_TYPE; /* x215659 */ t14902.s1.tag = STRUCTURE_TYPE24753; t14902.s1.value.structure_type24753 = &t14903; /* x215660 */ t14901.s0.tag = STRUCTURE_TYPE24753; t14901.s0.value.structure_type24753 = &t14902; /* x215661 */ t14904.s0.tag = FIXNUM_TYPE; t14904.s0.value.fixnum_type = 1; /* x215662 */ t14904.s1.tag = NULL_TYPE; /* x215663 */ t14901.s1.tag = STRUCTURE_TYPE24753; t14901.s1.value.structure_type24753 = &t14904; /* x215664 */ t14900.s1.tag = STRUCTURE_TYPE24753; t14900.s1.value.structure_type24753 = &t14901; /* x215665 */ t14899.s0.tag = STRUCTURE_TYPE24753; t14899.s0.value.structure_type24753 = &t14900; /* x215666 */ t14906.s0.tag = EXTERNAL_SYMBOL_TYPE; t14906.s0.value.external_symbol_type = q179; /* x215667 */ t14907.s0.tag = STRING_TYPE; t14907.s0.value.string_type = "Can\'t allocate dark orange colorcell"; /* x215668 */ t14907.s1.tag = NULL_TYPE; /* x215669 */ t14906.s1.tag = STRUCTURE_TYPE24753; t14906.s1.value.structure_type24753 = &t14907; /* x215670 */ t14905.s0.tag = STRUCTURE_TYPE24753; t14905.s0.value.structure_type24753 = &t14906; /* x215671 */ t14905.s1.tag = NULL_TYPE; /* x215672 */ t14899.s1.tag = STRUCTURE_TYPE24753; t14899.s1.value.structure_type24753 = &t14905; /* x215673 */ t14898.s1.tag = STRUCTURE_TYPE24753; t14898.s1.value.structure_type24753 = &t14899; /* x215674 */ t14897.s0.tag = STRUCTURE_TYPE24753; t14897.s0.value.structure_type24753 = &t14898; /* x215675 */ t14909.s0.tag = EXTERNAL_SYMBOL_TYPE; t14909.s0.value.external_symbol_type = q42; /* x215676 */ t14910.s0.tag = EXTERNAL_SYMBOL_TYPE; t14910.s0.value.external_symbol_type = q640; /* x215677 */ t14912.s0.tag = EXTERNAL_SYMBOL_TYPE; t14912.s0.value.external_symbol_type = q596; /* x215678 */ t14913.s0.tag = EXTERNAL_SYMBOL_TYPE; t14913.s0.value.external_symbol_type = q540; /* x215679 */ t14914.s0.tag = EXTERNAL_SYMBOL_TYPE; t14914.s0.value.external_symbol_type = q578; /* x215680 */ t14915.s0.tag = FIXNUM_TYPE; t14915.s0.value.fixnum_type = 0; /* x215681 */ t14917.s0.tag = EXTERNAL_SYMBOL_TYPE; t14917.s0.value.external_symbol_type = q597; /* x215682 */ t14917.s1.tag = NULL_TYPE; /* x215683 */ t14916.s0.tag = STRUCTURE_TYPE24753; t14916.s0.value.structure_type24753 = &t14917; /* x215684 */ t14916.s1.tag = NULL_TYPE; /* x215685 */ t14915.s1.tag = STRUCTURE_TYPE24753; t14915.s1.value.structure_type24753 = &t14916; /* x215686 */ t14914.s1.tag = STRUCTURE_TYPE24753; t14914.s1.value.structure_type24753 = &t14915; /* x215687 */ t14913.s1.tag = STRUCTURE_TYPE24753; t14913.s1.value.structure_type24753 = &t14914; /* x215688 */ t14912.s1.tag = STRUCTURE_TYPE24753; t14912.s1.value.structure_type24753 = &t14913; /* x215689 */ t14911.s0.tag = STRUCTURE_TYPE24753; t14911.s0.value.structure_type24753 = &t14912; /* x215690 */ t14911.s1.tag = NULL_TYPE; /* x215691 */ t14910.s1.tag = STRUCTURE_TYPE24753; t14910.s1.value.structure_type24753 = &t14911; /* x215692 */ t14909.s1.tag = STRUCTURE_TYPE24753; t14909.s1.value.structure_type24753 = &t14910; /* x215693 */ t14908.s0.tag = STRUCTURE_TYPE24753; t14908.s0.value.structure_type24753 = &t14909; /* x215694 */ t14919.s0.tag = EXTERNAL_SYMBOL_TYPE; t14919.s0.value.external_symbol_type = q598; /* x215695 */ t14920.s0.tag = EXTERNAL_SYMBOL_TYPE; t14920.s0.value.external_symbol_type = q540; /* x215696 */ t14921.s0.tag = EXTERNAL_SYMBOL_TYPE; t14921.s0.value.external_symbol_type = q640; /* x215697 */ t14923.s0.tag = EXTERNAL_SYMBOL_TYPE; t14923.s0.value.external_symbol_type = q582; /* x215698 */ t14925.s0.tag = EXTERNAL_SYMBOL_TYPE; t14925.s0.value.external_symbol_type = q583; /* x215699 */ t14926.s0.tag = EXTERNAL_SYMBOL_TYPE; t14926.s0.value.external_symbol_type = q555; /* x215700 */ t14926.s1.tag = NULL_TYPE; /* x215701 */ t14925.s1.tag = STRUCTURE_TYPE24753; t14925.s1.value.structure_type24753 = &t14926; /* x215702 */ t14924.s0.tag = STRUCTURE_TYPE24753; t14924.s0.value.structure_type24753 = &t14925; /* x215703 */ t14924.s1.tag = NULL_TYPE; /* x215704 */ t14923.s1.tag = STRUCTURE_TYPE24753; t14923.s1.value.structure_type24753 = &t14924; /* x215705 */ t14922.s0.tag = STRUCTURE_TYPE24753; t14922.s0.value.structure_type24753 = &t14923; /* x215706 */ t14922.s1.tag = NULL_TYPE; /* x215707 */ t14921.s1.tag = STRUCTURE_TYPE24753; t14921.s1.value.structure_type24753 = &t14922; /* x215708 */ t14920.s1.tag = STRUCTURE_TYPE24753; t14920.s1.value.structure_type24753 = &t14921; /* x215709 */ t14919.s1.tag = STRUCTURE_TYPE24753; t14919.s1.value.structure_type24753 = &t14920; /* x215710 */ t14918.s0.tag = STRUCTURE_TYPE24753; t14918.s0.value.structure_type24753 = &t14919; /* x215711 */ t14928.s0.tag = EXTERNAL_SYMBOL_TYPE; t14928.s0.value.external_symbol_type = q599; /* x215712 */ t14929.s0.tag = EXTERNAL_SYMBOL_TYPE; t14929.s0.value.external_symbol_type = q540; /* x215713 */ t14930.s0.tag = EXTERNAL_SYMBOL_TYPE; t14930.s0.value.external_symbol_type = q640; /* x215714 */ t14932.s0.tag = EXTERNAL_SYMBOL_TYPE; t14932.s0.value.external_symbol_type = q582; /* x215715 */ t14934.s0.tag = EXTERNAL_SYMBOL_TYPE; t14934.s0.value.external_symbol_type = q583; /* x215716 */ t14935.s0.tag = EXTERNAL_SYMBOL_TYPE; t14935.s0.value.external_symbol_type = q639; /* x215717 */ t14935.s1.tag = NULL_TYPE; /* x215718 */ t14934.s1.tag = STRUCTURE_TYPE24753; t14934.s1.value.structure_type24753 = &t14935; /* x215719 */ t14933.s0.tag = STRUCTURE_TYPE24753; t14933.s0.value.structure_type24753 = &t14934; /* x215720 */ t14933.s1.tag = NULL_TYPE; /* x215721 */ t14932.s1.tag = STRUCTURE_TYPE24753; t14932.s1.value.structure_type24753 = &t14933; /* x215722 */ t14931.s0.tag = STRUCTURE_TYPE24753; t14931.s0.value.structure_type24753 = &t14932; /* x215723 */ t14931.s1.tag = NULL_TYPE; /* x215724 */ t14930.s1.tag = STRUCTURE_TYPE24753; t14930.s1.value.structure_type24753 = &t14931; /* x215725 */ t14929.s1.tag = STRUCTURE_TYPE24753; t14929.s1.value.structure_type24753 = &t14930; /* x215726 */ t14928.s1.tag = STRUCTURE_TYPE24753; t14928.s1.value.structure_type24753 = &t14929; /* x215727 */ t14927.s0.tag = STRUCTURE_TYPE24753; t14927.s0.value.structure_type24753 = &t14928; /* x215728 */ t14937.s0.tag = EXTERNAL_SYMBOL_TYPE; t14937.s0.value.external_symbol_type = q615; /* x215729 */ t14938.s0.tag = EXTERNAL_SYMBOL_TYPE; t14938.s0.value.external_symbol_type = q540; /* x215730 */ t14939.s0.tag = EXTERNAL_SYMBOL_TYPE; t14939.s0.value.external_symbol_type = q640; /* x215731 */ t14941.s0.tag = EXTERNAL_SYMBOL_TYPE; t14941.s0.value.external_symbol_type = q616; /* x215732 */ t14942.s0.tag = EXTERNAL_SYMBOL_TYPE; t14942.s0.value.external_symbol_type = q562; /* x215733 */ t14942.s1.tag = NULL_TYPE; /* x215734 */ t14941.s1.tag = STRUCTURE_TYPE24753; t14941.s1.value.structure_type24753 = &t14942; /* x215735 */ t14940.s0.tag = STRUCTURE_TYPE24753; t14940.s0.value.structure_type24753 = &t14941; /* x215736 */ t14940.s1.tag = NULL_TYPE; /* x215737 */ t14939.s1.tag = STRUCTURE_TYPE24753; t14939.s1.value.structure_type24753 = &t14940; /* x215738 */ t14938.s1.tag = STRUCTURE_TYPE24753; t14938.s1.value.structure_type24753 = &t14939; /* x215739 */ t14937.s1.tag = STRUCTURE_TYPE24753; t14937.s1.value.structure_type24753 = &t14938; /* x215740 */ t14936.s0.tag = STRUCTURE_TYPE24753; t14936.s0.value.structure_type24753 = &t14937; /* x215741 */ t14944.s0.tag = EXTERNAL_SYMBOL_TYPE; t14944.s0.value.external_symbol_type = q600; /* x215742 */ t14945.s0.tag = EXTERNAL_SYMBOL_TYPE; t14945.s0.value.external_symbol_type = q540; /* x215743 */ t14946.s0.tag = EXTERNAL_SYMBOL_TYPE; t14946.s0.value.external_symbol_type = q640; /* x215744 */ t14947.s0.tag = FIXNUM_TYPE; t14947.s0.value.fixnum_type = 0; /* x215745 */ t14948.s0.tag = EXTERNAL_SYMBOL_TYPE; t14948.s0.value.external_symbol_type = q601; /* x215746 */ t14949.s0.tag = EXTERNAL_SYMBOL_TYPE; t14949.s0.value.external_symbol_type = q602; /* x215747 */ t14950.s0.tag = EXTERNAL_SYMBOL_TYPE; t14950.s0.value.external_symbol_type = q603; /* x215748 */ t14950.s1.tag = NULL_TYPE; /* x215749 */ t14949.s1.tag = STRUCTURE_TYPE24753; t14949.s1.value.structure_type24753 = &t14950; /* x215750 */ t14948.s1.tag = STRUCTURE_TYPE24753; t14948.s1.value.structure_type24753 = &t14949; /* x215751 */ t14947.s1.tag = STRUCTURE_TYPE24753; t14947.s1.value.structure_type24753 = &t14948; /* x215752 */ t14946.s1.tag = STRUCTURE_TYPE24753; t14946.s1.value.structure_type24753 = &t14947; /* x215753 */ t14945.s1.tag = STRUCTURE_TYPE24753; t14945.s1.value.structure_type24753 = &t14946; /* x215754 */ t14944.s1.tag = STRUCTURE_TYPE24753; t14944.s1.value.structure_type24753 = &t14945; /* x215755 */ t14943.s0.tag = STRUCTURE_TYPE24753; t14943.s0.value.structure_type24753 = &t14944; /* x215756 */ t14943.s1.tag = NULL_TYPE; /* x215757 */ t14936.s1.tag = STRUCTURE_TYPE24753; t14936.s1.value.structure_type24753 = &t14943; /* x215758 */ t14927.s1.tag = STRUCTURE_TYPE24753; t14927.s1.value.structure_type24753 = &t14936; /* x215759 */ t14918.s1.tag = STRUCTURE_TYPE24753; t14918.s1.value.structure_type24753 = &t14927; /* x215760 */ t14908.s1.tag = STRUCTURE_TYPE24753; t14908.s1.value.structure_type24753 = &t14918; /* x215761 */ t14897.s1.tag = STRUCTURE_TYPE24753; t14897.s1.value.structure_type24753 = &t14908; /* x215762 */ t14886.s1.tag = STRUCTURE_TYPE24753; t14886.s1.value.structure_type24753 = &t14897; /* x215763 */ t14878.s1.tag = STRUCTURE_TYPE24753; t14878.s1.value.structure_type24753 = &t14886; /* x215764 */ t14871.s1.tag = STRUCTURE_TYPE24753; t14871.s1.value.structure_type24753 = &t14878; /* x215765 */ t14862.s1.tag = STRUCTURE_TYPE24753; t14862.s1.value.structure_type24753 = &t14871; /* x215766 */ t14853.s1.tag = STRUCTURE_TYPE24753; t14853.s1.value.structure_type24753 = &t14862; /* x215767 */ t14843.s1.tag = STRUCTURE_TYPE24753; t14843.s1.value.structure_type24753 = &t14853; /* x215768 */ t14832.s1.tag = STRUCTURE_TYPE24753; t14832.s1.value.structure_type24753 = &t14843; /* x215769 */ t14821.s1.tag = STRUCTURE_TYPE24753; t14821.s1.value.structure_type24753 = &t14832; /* x215770 */ t14813.s1.tag = STRUCTURE_TYPE24753; t14813.s1.value.structure_type24753 = &t14821; /* x215771 */ t14806.s1.tag = STRUCTURE_TYPE24753; t14806.s1.value.structure_type24753 = &t14813; /* x215772 */ t14797.s1.tag = STRUCTURE_TYPE24753; t14797.s1.value.structure_type24753 = &t14806; /* x215773 */ t14788.s1.tag = STRUCTURE_TYPE24753; t14788.s1.value.structure_type24753 = &t14797; /* x215774 */ t14778.s1.tag = STRUCTURE_TYPE24753; t14778.s1.value.structure_type24753 = &t14788; /* x215775 */ t14767.s1.tag = STRUCTURE_TYPE24753; t14767.s1.value.structure_type24753 = &t14778; /* x215776 */ t14756.s1.tag = STRUCTURE_TYPE24753; t14756.s1.value.structure_type24753 = &t14767; /* x215777 */ t14748.s1.tag = STRUCTURE_TYPE24753; t14748.s1.value.structure_type24753 = &t14756; /* x215778 */ t14741.s1.tag = STRUCTURE_TYPE24753; t14741.s1.value.structure_type24753 = &t14748; /* x215779 */ t14732.s1.tag = STRUCTURE_TYPE24753;} void initialize_constants4(void) {t14732.s1.value.structure_type24753 = &t14741; /* x215780 */ t14723.s1.tag = STRUCTURE_TYPE24753; t14723.s1.value.structure_type24753 = &t14732; /* x215781 */ t14713.s1.tag = STRUCTURE_TYPE24753; t14713.s1.value.structure_type24753 = &t14723; /* x215782 */ t14702.s1.tag = STRUCTURE_TYPE24753; t14702.s1.value.structure_type24753 = &t14713; /* x215783 */ t14691.s1.tag = STRUCTURE_TYPE24753; t14691.s1.value.structure_type24753 = &t14702; /* x215784 */ t14683.s1.tag = STRUCTURE_TYPE24753; t14683.s1.value.structure_type24753 = &t14691; /* x215785 */ t14676.s1.tag = STRUCTURE_TYPE24753; t14676.s1.value.structure_type24753 = &t14683; /* x215786 */ t14667.s1.tag = STRUCTURE_TYPE24753; t14667.s1.value.structure_type24753 = &t14676; /* x215787 */ t14658.s1.tag = STRUCTURE_TYPE24753; t14658.s1.value.structure_type24753 = &t14667; /* x215788 */ t14648.s1.tag = STRUCTURE_TYPE24753; t14648.s1.value.structure_type24753 = &t14658; /* x215789 */ t14637.s1.tag = STRUCTURE_TYPE24753; t14637.s1.value.structure_type24753 = &t14648; /* x215790 */ t14626.s1.tag = STRUCTURE_TYPE24753; t14626.s1.value.structure_type24753 = &t14637; /* x215791 */ t14618.s1.tag = STRUCTURE_TYPE24753; t14618.s1.value.structure_type24753 = &t14626; /* x215792 */ t14611.s1.tag = STRUCTURE_TYPE24753; t14611.s1.value.structure_type24753 = &t14618; /* x215793 */ t14602.s1.tag = STRUCTURE_TYPE24753; t14602.s1.value.structure_type24753 = &t14611; /* x215794 */ t14593.s1.tag = STRUCTURE_TYPE24753; t14593.s1.value.structure_type24753 = &t14602; /* x215795 */ t14583.s1.tag = STRUCTURE_TYPE24753; t14583.s1.value.structure_type24753 = &t14593; /* x215796 */ t14572.s1.tag = STRUCTURE_TYPE24753; t14572.s1.value.structure_type24753 = &t14583; /* x215797 */ t14561.s1.tag = STRUCTURE_TYPE24753; t14561.s1.value.structure_type24753 = &t14572; /* x215798 */ t14553.s1.tag = STRUCTURE_TYPE24753; t14553.s1.value.structure_type24753 = &t14561; /* x215799 */ t14546.s1.tag = STRUCTURE_TYPE24753; t14546.s1.value.structure_type24753 = &t14553; /* x215800 */ t14537.s1.tag = STRUCTURE_TYPE24753; t14537.s1.value.structure_type24753 = &t14546; /* x215801 */ t14528.s1.tag = STRUCTURE_TYPE24753; t14528.s1.value.structure_type24753 = &t14537; /* x215802 */ t14518.s1.tag = STRUCTURE_TYPE24753; t14518.s1.value.structure_type24753 = &t14528; /* x215803 */ t14507.s1.tag = STRUCTURE_TYPE24753; t14507.s1.value.structure_type24753 = &t14518; /* x215804 */ t14496.s1.tag = STRUCTURE_TYPE24753; t14496.s1.value.structure_type24753 = &t14507; /* x215805 */ t14488.s1.tag = STRUCTURE_TYPE24753; t14488.s1.value.structure_type24753 = &t14496; /* x215806 */ t14481.s1.tag = STRUCTURE_TYPE24753; t14481.s1.value.structure_type24753 = &t14488; /* x215807 */ t14472.s1.tag = STRUCTURE_TYPE24753; t14472.s1.value.structure_type24753 = &t14481; /* x215808 */ t14463.s1.tag = STRUCTURE_TYPE24753; t14463.s1.value.structure_type24753 = &t14472; /* x215809 */ t14453.s1.tag = STRUCTURE_TYPE24753; t14453.s1.value.structure_type24753 = &t14463; /* x215810 */ t14442.s1.tag = STRUCTURE_TYPE24753; t14442.s1.value.structure_type24753 = &t14453; /* x215811 */ t14431.s1.tag = STRUCTURE_TYPE24753; t14431.s1.value.structure_type24753 = &t14442; /* x215812 */ t14423.s1.tag = STRUCTURE_TYPE24753; t14423.s1.value.structure_type24753 = &t14431; /* x215813 */ t14416.s1.tag = STRUCTURE_TYPE24753; t14416.s1.value.structure_type24753 = &t14423; /* x215814 */ t14407.s1.tag = STRUCTURE_TYPE24753; t14407.s1.value.structure_type24753 = &t14416; /* x215815 */ t14398.s1.tag = STRUCTURE_TYPE24753; t14398.s1.value.structure_type24753 = &t14407; /* x215816 */ t14388.s1.tag = STRUCTURE_TYPE24753; t14388.s1.value.structure_type24753 = &t14398; /* x215817 */ t14377.s1.tag = STRUCTURE_TYPE24753; t14377.s1.value.structure_type24753 = &t14388; /* x215818 */ t14366.s1.tag = STRUCTURE_TYPE24753; t14366.s1.value.structure_type24753 = &t14377; /* x215819 */ t14358.s1.tag = STRUCTURE_TYPE24753; t14358.s1.value.structure_type24753 = &t14366; /* x215820 */ t14349.s1.tag = STRUCTURE_TYPE24753; t14349.s1.value.structure_type24753 = &t14358; /* x215821 */ t14340.s1.tag = STRUCTURE_TYPE24753; t14340.s1.value.structure_type24753 = &t14349; /* x215822 */ t14330.s1.tag = STRUCTURE_TYPE24753; t14330.s1.value.structure_type24753 = &t14340; /* x215823 */ t14319.s1.tag = STRUCTURE_TYPE24753; t14319.s1.value.structure_type24753 = &t14330; /* x215824 */ t14308.s1.tag = STRUCTURE_TYPE24753; t14308.s1.value.structure_type24753 = &t14319; /* x215825 */ t14300.s1.tag = STRUCTURE_TYPE24753; t14300.s1.value.structure_type24753 = &t14308; /* x215826 */ t14291.s1.tag = STRUCTURE_TYPE24753; t14291.s1.value.structure_type24753 = &t14300; /* x215827 */ t14282.s1.tag = STRUCTURE_TYPE24753; t14282.s1.value.structure_type24753 = &t14291; /* x215828 */ t14272.s1.tag = STRUCTURE_TYPE24753; t14272.s1.value.structure_type24753 = &t14282; /* x215829 */ t14261.s1.tag = STRUCTURE_TYPE24753; t14261.s1.value.structure_type24753 = &t14272; /* x215830 */ t14250.s1.tag = STRUCTURE_TYPE24753; t14250.s1.value.structure_type24753 = &t14261; /* x215831 */ t14249.s1.tag = STRUCTURE_TYPE24753; t14249.s1.value.structure_type24753 = &t14250; /* x215832 */ t14248.s1.tag = STRUCTURE_TYPE24753; t14248.s1.value.structure_type24753 = &t14249; /* x215833 */ t14247.s0.tag = STRUCTURE_TYPE24753; t14247.s0.value.structure_type24753 = &t14248; /* x215834 */ t14952.s0.tag = EXTERNAL_SYMBOL_TYPE; t14952.s0.value.external_symbol_type = q42; /* x215835 */ t14953.s0.tag = EXTERNAL_SYMBOL_TYPE; t14953.s0.value.external_symbol_type = q641; /* x215836 */ t14955.s0.tag = EXTERNAL_SYMBOL_TYPE; t14955.s0.value.external_symbol_type = q596; /* x215837 */ t14956.s0.tag = EXTERNAL_SYMBOL_TYPE; t14956.s0.value.external_symbol_type = q540; /* x215838 */ t14957.s0.tag = EXTERNAL_SYMBOL_TYPE; t14957.s0.value.external_symbol_type = q578; /* x215839 */ t14958.s0.tag = FIXNUM_TYPE; t14958.s0.value.fixnum_type = 0; /* x215840 */ t14960.s0.tag = EXTERNAL_SYMBOL_TYPE; t14960.s0.value.external_symbol_type = q597; /* x215841 */ t14960.s1.tag = NULL_TYPE; /* x215842 */ t14959.s0.tag = STRUCTURE_TYPE24753; t14959.s0.value.structure_type24753 = &t14960; /* x215843 */ t14959.s1.tag = NULL_TYPE; /* x215844 */ t14958.s1.tag = STRUCTURE_TYPE24753; t14958.s1.value.structure_type24753 = &t14959; /* x215845 */ t14957.s1.tag = STRUCTURE_TYPE24753; t14957.s1.value.structure_type24753 = &t14958; /* x215846 */ t14956.s1.tag = STRUCTURE_TYPE24753; t14956.s1.value.structure_type24753 = &t14957; /* x215847 */ t14955.s1.tag = STRUCTURE_TYPE24753; t14955.s1.value.structure_type24753 = &t14956; /* x215848 */ t14954.s0.tag = STRUCTURE_TYPE24753; t14954.s0.value.structure_type24753 = &t14955; /* x215849 */ t14954.s1.tag = NULL_TYPE; /* x215850 */ t14953.s1.tag = STRUCTURE_TYPE24753; t14953.s1.value.structure_type24753 = &t14954; /* x215851 */ t14952.s1.tag = STRUCTURE_TYPE24753; t14952.s1.value.structure_type24753 = &t14953; /* x215852 */ t14951.s0.tag = STRUCTURE_TYPE24753; t14951.s0.value.structure_type24753 = &t14952; /* x215853 */ t14962.s0.tag = EXTERNAL_SYMBOL_TYPE; t14962.s0.value.external_symbol_type = q598; /* x215854 */ t14963.s0.tag = EXTERNAL_SYMBOL_TYPE; t14963.s0.value.external_symbol_type = q540; /* x215855 */ t14964.s0.tag = EXTERNAL_SYMBOL_TYPE; t14964.s0.value.external_symbol_type = q641; /* x215856 */ t14966.s0.tag = EXTERNAL_SYMBOL_TYPE; t14966.s0.value.external_symbol_type = q43; /* x215857 */ t14967.s0.tag = EXTERNAL_SYMBOL_TYPE; t14967.s0.value.external_symbol_type = q528; /* x215858 */ t14968.s0.tag = EXTERNAL_SYMBOL_TYPE; t14968.s0.value.external_symbol_type = q551; /* x215859 */ t14970.s0.tag = EXTERNAL_SYMBOL_TYPE; t14970.s0.value.external_symbol_type = q582; /* x215860 */ t14972.s0.tag = EXTERNAL_SYMBOL_TYPE; t14972.s0.value.external_symbol_type = q583; /* x215861 */ t14973.s0.tag = EXTERNAL_SYMBOL_TYPE; t14973.s0.value.external_symbol_type = q555; /* x215862 */ t14973.s1.tag = NULL_TYPE; /* x215863 */ t14972.s1.tag = STRUCTURE_TYPE24753; t14972.s1.value.structure_type24753 = &t14973; /* x215864 */ t14971.s0.tag = STRUCTURE_TYPE24753; t14971.s0.value.structure_type24753 = &t14972; /* x215865 */ t14971.s1.tag = NULL_TYPE; /* x215866 */ t14970.s1.tag = STRUCTURE_TYPE24753; t14970.s1.value.structure_type24753 = &t14971; /* x215867 */ t14969.s0.tag = STRUCTURE_TYPE24753; t14969.s0.value.structure_type24753 = &t14970; /* x215868 */ t14969.s1.tag = NULL_TYPE; /* x215869 */ t14968.s1.tag = STRUCTURE_TYPE24753; t14968.s1.value.structure_type24753 = &t14969; /* x215870 */ t14967.s1.tag = STRUCTURE_TYPE24753; t14967.s1.value.structure_type24753 = &t14968; /* x215871 */ t14966.s1.tag = STRUCTURE_TYPE24753; t14966.s1.value.structure_type24753 = &t14967; /* x215872 */ t14965.s0.tag = STRUCTURE_TYPE24753; t14965.s0.value.structure_type24753 = &t14966; /* x215873 */ t14965.s1.tag = NULL_TYPE; /* x215874 */ t14964.s1.tag = STRUCTURE_TYPE24753; t14964.s1.value.structure_type24753 = &t14965; /* x215875 */ t14963.s1.tag = STRUCTURE_TYPE24753; t14963.s1.value.structure_type24753 = &t14964; /* x215876 */ t14962.s1.tag = STRUCTURE_TYPE24753; t14962.s1.value.structure_type24753 = &t14963; /* x215877 */ t14961.s0.tag = STRUCTURE_TYPE24753; t14961.s0.value.structure_type24753 = &t14962; /* x215878 */ t14975.s0.tag = EXTERNAL_SYMBOL_TYPE; t14975.s0.value.external_symbol_type = q599; /* x215879 */ t14976.s0.tag = EXTERNAL_SYMBOL_TYPE; t14976.s0.value.external_symbol_type = q540; /* x215880 */ t14977.s0.tag = EXTERNAL_SYMBOL_TYPE; t14977.s0.value.external_symbol_type = q641; /* x215881 */ t14979.s0.tag = EXTERNAL_SYMBOL_TYPE; t14979.s0.value.external_symbol_type = q43; /* x215882 */ t14980.s0.tag = EXTERNAL_SYMBOL_TYPE; t14980.s0.value.external_symbol_type = q528; /* x215883 */ t14981.s0.tag = EXTERNAL_SYMBOL_TYPE; t14981.s0.value.external_symbol_type = q553; /* x215884 */ t14983.s0.tag = EXTERNAL_SYMBOL_TYPE; t14983.s0.value.external_symbol_type = q582; /* x215885 */ t14985.s0.tag = EXTERNAL_SYMBOL_TYPE; t14985.s0.value.external_symbol_type = q583; /* x215886 */ t14986.s0.tag = EXTERNAL_SYMBOL_TYPE; t14986.s0.value.external_symbol_type = q560; /* x215887 */ t14986.s1.tag = NULL_TYPE; /* x215888 */ t14985.s1.tag = STRUCTURE_TYPE24753; t14985.s1.value.structure_type24753 = &t14986; /* x215889 */ t14984.s0.tag = STRUCTURE_TYPE24753; t14984.s0.value.structure_type24753 = &t14985; /* x215890 */ t14984.s1.tag = NULL_TYPE; /* x215891 */ t14983.s1.tag = STRUCTURE_TYPE24753; t14983.s1.value.structure_type24753 = &t14984; /* x215892 */ t14982.s0.tag = STRUCTURE_TYPE24753; t14982.s0.value.structure_type24753 = &t14983; /* x215893 */ t14982.s1.tag = NULL_TYPE; /* x215894 */ t14981.s1.tag = STRUCTURE_TYPE24753; t14981.s1.value.structure_type24753 = &t14982; /* x215895 */ t14980.s1.tag = STRUCTURE_TYPE24753; t14980.s1.value.structure_type24753 = &t14981; /* x215896 */ t14979.s1.tag = STRUCTURE_TYPE24753; t14979.s1.value.structure_type24753 = &t14980; /* x215897 */ t14978.s0.tag = STRUCTURE_TYPE24753; t14978.s0.value.structure_type24753 = &t14979; /* x215898 */ t14978.s1.tag = NULL_TYPE; /* x215899 */ t14977.s1.tag = STRUCTURE_TYPE24753; t14977.s1.value.structure_type24753 = &t14978; /* x215900 */ t14976.s1.tag = STRUCTURE_TYPE24753; t14976.s1.value.structure_type24753 = &t14977; /* x215901 */ t14975.s1.tag = STRUCTURE_TYPE24753; t14975.s1.value.structure_type24753 = &t14976; /* x215902 */ t14974.s0.tag = STRUCTURE_TYPE24753; t14974.s0.value.structure_type24753 = &t14975; /* x215903 */ t14988.s0.tag = EXTERNAL_SYMBOL_TYPE; t14988.s0.value.external_symbol_type = q600; /* x215904 */ t14989.s0.tag = EXTERNAL_SYMBOL_TYPE; t14989.s0.value.external_symbol_type = q540; /* x215905 */ t14990.s0.tag = EXTERNAL_SYMBOL_TYPE; t14990.s0.value.external_symbol_type = q641; /* x215906 */ t14991.s0.tag = FIXNUM_TYPE; t14991.s0.value.fixnum_type = 0; /* x215907 */ t14992.s0.tag = EXTERNAL_SYMBOL_TYPE; t14992.s0.value.external_symbol_type = q601; /* x215908 */ t14993.s0.tag = EXTERNAL_SYMBOL_TYPE; t14993.s0.value.external_symbol_type = q602; /* x215909 */ t14994.s0.tag = EXTERNAL_SYMBOL_TYPE; t14994.s0.value.external_symbol_type = q603; /* x215910 */ t14994.s1.tag = NULL_TYPE; /* x215911 */ t14993.s1.tag = STRUCTURE_TYPE24753; t14993.s1.value.structure_type24753 = &t14994; /* x215912 */ t14992.s1.tag = STRUCTURE_TYPE24753; t14992.s1.value.structure_type24753 = &t14993; /* x215913 */ t14991.s1.tag = STRUCTURE_TYPE24753; t14991.s1.value.structure_type24753 = &t14992; /* x215914 */ t14990.s1.tag = STRUCTURE_TYPE24753; t14990.s1.value.structure_type24753 = &t14991; /* x215915 */ t14989.s1.tag = STRUCTURE_TYPE24753; t14989.s1.value.structure_type24753 = &t14990; /* x215916 */ t14988.s1.tag = STRUCTURE_TYPE24753; t14988.s1.value.structure_type24753 = &t14989; /* x215917 */ t14987.s0.tag = STRUCTURE_TYPE24753; t14987.s0.value.structure_type24753 = &t14988; /* x215918 */ t14996.s0.tag = EXTERNAL_SYMBOL_TYPE; t14996.s0.value.external_symbol_type = q42; /* x215919 */ t14997.s0.tag = EXTERNAL_SYMBOL_TYPE; t14997.s0.value.external_symbol_type = q642; /* x215920 */ t14999.s0.tag = EXTERNAL_SYMBOL_TYPE; t14999.s0.value.external_symbol_type = q11; /* x215921 */ t15000.s0.tag = NULL_TYPE; /* x215922 */ t15000.s1.tag = NULL_TYPE; /* x215923 */ t14999.s1.tag = STRUCTURE_TYPE24753; t14999.s1.value.structure_type24753 = &t15000; /* x215924 */ t14998.s0.tag = STRUCTURE_TYPE24753; t14998.s0.value.structure_type24753 = &t14999; /* x215925 */ t14998.s1.tag = NULL_TYPE; /* x215926 */ t14997.s1.tag = STRUCTURE_TYPE24753; t14997.s1.value.structure_type24753 = &t14998; /* x215927 */ t14996.s1.tag = STRUCTURE_TYPE24753; t14996.s1.value.structure_type24753 = &t14997; /* x215928 */ t14995.s0.tag = STRUCTURE_TYPE24753; t14995.s0.value.structure_type24753 = &t14996; /* x215929 */ t15002.s0.tag = EXTERNAL_SYMBOL_TYPE; t15002.s0.value.external_symbol_type = q42; /* x215930 */ t15003.s0.tag = EXTERNAL_SYMBOL_TYPE; t15003.s0.value.external_symbol_type = q643; /* x215931 */ t15004.s0.tag = FALSE_TYPE; /* x215932 */ t15004.s1.tag = NULL_TYPE; /* x215933 */ t15003.s1.tag = STRUCTURE_TYPE24753; t15003.s1.value.structure_type24753 = &t15004; /* x215934 */ t15002.s1.tag = STRUCTURE_TYPE24753; t15002.s1.value.structure_type24753 = &t15003; /* x215935 */ t15001.s0.tag = STRUCTURE_TYPE24753; t15001.s0.value.structure_type24753 = &t15002; /* x215936 */ t15006.s0.tag = EXTERNAL_SYMBOL_TYPE; t15006.s0.value.external_symbol_type = q42; /* x215937 */ t15007.s0.tag = EXTERNAL_SYMBOL_TYPE; t15007.s0.value.external_symbol_type = q644; /* x215938 */ t15008.s0.tag = FALSE_TYPE; /* x215939 */ t15008.s1.tag = NULL_TYPE; /* x215940 */ t15007.s1.tag = STRUCTURE_TYPE24753; t15007.s1.value.structure_type24753 = &t15008; /* x215941 */ t15006.s1.tag = STRUCTURE_TYPE24753; t15006.s1.value.structure_type24753 = &t15007; /* x215942 */ t15005.s0.tag = STRUCTURE_TYPE24753; t15005.s0.value.structure_type24753 = &t15006; /* x215943 */ t15010.s0.tag = EXTERNAL_SYMBOL_TYPE; t15010.s0.value.external_symbol_type = q42; /* x215944 */ t15011.s0.tag = EXTERNAL_SYMBOL_TYPE; t15011.s0.value.external_symbol_type = q645; /* x215945 */ t15013.s0.tag = EXTERNAL_SYMBOL_TYPE; t15013.s0.value.external_symbol_type = q166; /* x215946 */ t15014.s0.tag = FIXNUM_TYPE; t15014.s0.value.fixnum_type = 256; /* x215947 */ t15015.s0.tag = FALSE_TYPE; /* x215948 */ t15015.s1.tag = NULL_TYPE; /* x215949 */ t15014.s1.tag = STRUCTURE_TYPE24753; t15014.s1.value.structure_type24753 = &t15015; /* x215950 */ t15013.s1.tag = STRUCTURE_TYPE24753; t15013.s1.value.structure_type24753 = &t15014; /* x215951 */ t15012.s0.tag = STRUCTURE_TYPE24753; t15012.s0.value.structure_type24753 = &t15013; /* x215952 */ t15012.s1.tag = NULL_TYPE; /* x215953 */ t15011.s1.tag = STRUCTURE_TYPE24753; t15011.s1.value.structure_type24753 = &t15012; /* x215954 */ t15010.s1.tag = STRUCTURE_TYPE24753; t15010.s1.value.structure_type24753 = &t15011; /* x215955 */ t15009.s0.tag = STRUCTURE_TYPE24753; t15009.s0.value.structure_type24753 = &t15010; /* x215956 */ t15017.s0.tag = EXTERNAL_SYMBOL_TYPE; t15017.s0.value.external_symbol_type = q42; /* x215957 */ t15018.s0.tag = EXTERNAL_SYMBOL_TYPE; t15018.s0.value.external_symbol_type = q646; /* x215958 */ t15020.s0.tag = EXTERNAL_SYMBOL_TYPE; t15020.s0.value.external_symbol_type = q11; /* x215959 */ t15021.s0.tag = NULL_TYPE; /* x215960 */ t15021.s1.tag = NULL_TYPE; /* x215961 */ t15020.s1.tag = STRUCTURE_TYPE24753; t15020.s1.value.structure_type24753 = &t15021; /* x215962 */ t15019.s0.tag = STRUCTURE_TYPE24753; t15019.s0.value.structure_type24753 = &t15020; /* x215963 */ t15019.s1.tag = NULL_TYPE; /* x215964 */ t15018.s1.tag = STRUCTURE_TYPE24753; t15018.s1.value.structure_type24753 = &t15019; /* x215965 */ t15017.s1.tag = STRUCTURE_TYPE24753; t15017.s1.value.structure_type24753 = &t15018; /* x215966 */ t15016.s0.tag = STRUCTURE_TYPE24753; t15016.s0.value.structure_type24753 = &t15017; /* x215967 */ t15023.s0.tag = EXTERNAL_SYMBOL_TYPE; t15023.s0.value.external_symbol_type = q647; /* x215968 */ t15025.s0.tag = EXTERNAL_SYMBOL_TYPE; t15025.s0.value.external_symbol_type = q648; /* x215969 */ t15026.s0.tag = ((unsigned)((unsigned char)'h'))<<2; /* x215970 */ t15026.s1.tag = NULL_TYPE; /* x215971 */ t15025.s1.tag = STRUCTURE_TYPE24753; t15025.s1.value.structure_type24753 = &t15026; /* x215972 */ t15024.s0.tag = STRUCTURE_TYPE24753; t15024.s0.value.structure_type24753 = &t15025; /* x215973 */ t15027.s0.tag = STRING_TYPE; t15027.s0.value.string_type = "Help"; /* x215974 */ t15028.s0.tag = EXTERNAL_SYMBOL_TYPE; t15028.s0.value.external_symbol_type = q649; /* x215975 */ t15028.s1.tag = NULL_TYPE; /* x215976 */ t15027.s1.tag = STRUCTURE_TYPE24753; t15027.s1.value.structure_type24753 = &t15028; /* x215977 */ t15024.s1.tag = STRUCTURE_TYPE24753; t15024.s1.value.structure_type24753 = &t15027; /* x215978 */ t15023.s1.tag = STRUCTURE_TYPE24753; t15023.s1.value.structure_type24753 = &t15024; /* x215979 */ t15022.s0.tag = STRUCTURE_TYPE24753; t15022.s0.value.structure_type24753 = &t15023; /* x215980 */ t15030.s0.tag = EXTERNAL_SYMBOL_TYPE; t15030.s0.value.external_symbol_type = q42; /* x215981 */ t15031.s0.tag = EXTERNAL_SYMBOL_TYPE; t15031.s0.value.external_symbol_type = q646; /* x215982 */ t15033.s0.tag = EXTERNAL_SYMBOL_TYPE; t15033.s0.value.external_symbol_type = q11; /* x215983 */ t15034.s0.tag = NULL_TYPE; /* x215984 */ t15034.s1.tag = NULL_TYPE; /* x215985 */ t15033.s1.tag = STRUCTURE_TYPE24753; t15033.s1.value.structure_type24753 = &t15034; /* x215986 */ t15032.s0.tag = STRUCTURE_TYPE24753; t15032.s0.value.structure_type24753 = &t15033; /* x215987 */ t15032.s1.tag = NULL_TYPE; /* x215988 */ t15031.s1.tag = STRUCTURE_TYPE24753; t15031.s1.value.structure_type24753 = &t15032; /* x215989 */ t15030.s1.tag = STRUCTURE_TYPE24753; t15030.s1.value.structure_type24753 = &t15031; /* x215990 */ t15029.s0.tag = STRUCTURE_TYPE24753; t15029.s0.value.structure_type24753 = &t15030; /* x215991 */ t15036.s0.tag = EXTERNAL_SYMBOL_TYPE; t15036.s0.value.external_symbol_type = q647; /* x215992 */ t15038.s0.tag = EXTERNAL_SYMBOL_TYPE; t15038.s0.value.external_symbol_type = q648; /* x215993 */ t15039.s0.tag = ((unsigned)((unsigned char)'n'))<<2; /* x215994 */ t15039.s1.tag = NULL_TYPE; /* x215995 */ t15038.s1.tag = STRUCTURE_TYPE24753; t15038.s1.value.structure_type24753 = &t15039; /* x215996 */ t15037.s0.tag = STRUCTURE_TYPE24753; t15037.s0.value.structure_type24753 = &t15038; /* x215997 */ t15040.s0.tag = STRING_TYPE; t15040.s0.value.string_type = "Scroll help window down one line"; /* x215998 */ t15041.s0.tag = EXTERNAL_SYMBOL_TYPE; t15041.s0.value.external_symbol_type = q650; /* x215999 */ t15041.s1.tag = NULL_TYPE; /* x216000 */ t15040.s1.tag = STRUCTURE_TYPE24753; t15040.s1.value.structure_type24753 = &t15041; /* x216001 */ t15037.s1.tag = STRUCTURE_TYPE24753; t15037.s1.value.structure_type24753 = &t15040; /* x216002 */ t15036.s1.tag = STRUCTURE_TYPE24753; t15036.s1.value.structure_type24753 = &t15037; /* x216003 */ t15035.s0.tag = STRUCTURE_TYPE24753; t15035.s0.value.structure_type24753 = &t15036; /* x216004 */ t15043.s0.tag = EXTERNAL_SYMBOL_TYPE; t15043.s0.value.external_symbol_type = q647; /* x216005 */ t15045.s0.tag = EXTERNAL_SYMBOL_TYPE; t15045.s0.value.external_symbol_type = q648; /* x216006 */ t15046.s0.tag = ((unsigned)((unsigned char)'p'))<<2; /* x216007 */ t15046.s1.tag = NULL_TYPE; /* x216008 */ t15045.s1.tag = STRUCTURE_TYPE24753; t15045.s1.value.structure_type24753 = &t15046; /* x216009 */ t15044.s0.tag = STRUCTURE_TYPE24753; t15044.s0.value.structure_type24753 = &t15045; /* x216010 */ t15047.s0.tag = STRING_TYPE; t15047.s0.value.string_type = "Scroll help window up one line"; /* x216011 */ t15048.s0.tag = EXTERNAL_SYMBOL_TYPE; t15048.s0.value.external_symbol_type = q651; /* x216012 */ t15048.s1.tag = NULL_TYPE; /* x216013 */ t15047.s1.tag = STRUCTURE_TYPE24753; t15047.s1.value.structure_type24753 = &t15048; /* x216014 */ t15044.s1.tag = STRUCTURE_TYPE24753; t15044.s1.value.structure_type24753 = &t15047; /* x216015 */ t15043.s1.tag = STRUCTURE_TYPE24753; t15043.s1.value.structure_type24753 = &t15044; /* x216016 */ t15042.s0.tag = STRUCTURE_TYPE24753; t15042.s0.value.structure_type24753 = &t15043; /* x216017 */ t15050.s0.tag = EXTERNAL_SYMBOL_TYPE; t15050.s0.value.external_symbol_type = q647; /* x216018 */ t15052.s0.tag = EXTERNAL_SYMBOL_TYPE; t15052.s0.value.external_symbol_type = q648; /* x216019 */ t15053.s0.tag = ((unsigned)((unsigned char)'v'))<<2; /* x216020 */ t15053.s1.tag = NULL_TYPE; /* x216021 */ t15052.s1.tag = STRUCTURE_TYPE24753; t15052.s1.value.structure_type24753 = &t15053; /* x216022 */ t15051.s0.tag = STRUCTURE_TYPE24753; t15051.s0.value.structure_type24753 = &t15052; /* x216023 */ t15054.s0.tag = STRING_TYPE; t15054.s0.value.string_type = "Scroll help window down one page"; /* x216024 */ t15055.s0.tag = EXTERNAL_SYMBOL_TYPE; t15055.s0.value.external_symbol_type = q652; /* x216025 */ t15055.s1.tag = NULL_TYPE; /* x216026 */ t15054.s1.tag = STRUCTURE_TYPE24753; t15054.s1.value.structure_type24753 = &t15055; /* x216027 */ t15051.s1.tag = STRUCTURE_TYPE24753; t15051.s1.value.structure_type24753 = &t15054; /* x216028 */ t15050.s1.tag = STRUCTURE_TYPE24753; t15050.s1.value.structure_type24753 = &t15051; /* x216029 */ t15049.s0.tag = STRUCTURE_TYPE24753; t15049.s0.value.structure_type24753 = &t15050; /* x216030 */ t15057.s0.tag = EXTERNAL_SYMBOL_TYPE; t15057.s0.value.external_symbol_type = q647; /* x216031 */ t15059.s0.tag = EXTERNAL_SYMBOL_TYPE; t15059.s0.value.external_symbol_type = q653; /* x216032 */ t15060.s0.tag = ((unsigned)((unsigned char)'v'))<<2; /* x216033 */ t15060.s1.tag = NULL_TYPE; /* x216034 */ t15059.s1.tag = STRUCTURE_TYPE24753; t15059.s1.value.structure_type24753 = &t15060; /* x216035 */ t15058.s0.tag = STRUCTURE_TYPE24753; t15058.s0.value.structure_type24753 = &t15059; /* x216036 */ t15061.s0.tag = STRING_TYPE; t15061.s0.value.string_type = "Scroll help window up one page"; /* x216037 */ t15062.s0.tag = EXTERNAL_SYMBOL_TYPE; t15062.s0.value.external_symbol_type = q654; /* x216038 */ t15062.s1.tag = NULL_TYPE; /* x216039 */ t15061.s1.tag = STRUCTURE_TYPE24753; t15061.s1.value.structure_type24753 = &t15062; /* x216040 */ t15058.s1.tag = STRUCTURE_TYPE24753; t15058.s1.value.structure_type24753 = &t15061; /* x216041 */ t15057.s1.tag = STRUCTURE_TYPE24753; t15057.s1.value.structure_type24753 = &t15058; /* x216042 */ t15056.s0.tag = STRUCTURE_TYPE24753; t15056.s0.value.structure_type24753 = &t15057; /* x216043 */ t15064.s0.tag = EXTERNAL_SYMBOL_TYPE; t15064.s0.value.external_symbol_type = q647; /* x216044 */ t15066.s0.tag = EXTERNAL_SYMBOL_TYPE; t15066.s0.value.external_symbol_type = q653; /* x216045 */ t15067.s0.tag = ((unsigned)((unsigned char)'<'))<<2; /* x216046 */ t15067.s1.tag = NULL_TYPE; /* x216047 */ t15066.s1.tag = STRUCTURE_TYPE24753; t15066.s1.value.structure_type24753 = &t15067; /* x216048 */ t15065.s0.tag = STRUCTURE_TYPE24753; t15065.s0.value.structure_type24753 = &t15066; /* x216049 */ t15068.s0.tag = STRING_TYPE; t15068.s0.value.string_type = "Scroll help window to beginning"; /* x216050 */ t15069.s0.tag = EXTERNAL_SYMBOL_TYPE; t15069.s0.value.external_symbol_type = q655; /* x216051 */ t15069.s1.tag = NULL_TYPE; /* x216052 */ t15068.s1.tag = STRUCTURE_TYPE24753; t15068.s1.value.structure_type24753 = &t15069; /* x216053 */ t15065.s1.tag = STRUCTURE_TYPE24753; t15065.s1.value.structure_type24753 = &t15068; /* x216054 */ t15064.s1.tag = STRUCTURE_TYPE24753; t15064.s1.value.structure_type24753 = &t15065; /* x216055 */ t15063.s0.tag = STRUCTURE_TYPE24753; t15063.s0.value.structure_type24753 = &t15064; /* x216056 */ t15071.s0.tag = EXTERNAL_SYMBOL_TYPE; t15071.s0.value.external_symbol_type = q647; /* x216057 */ t15073.s0.tag = EXTERNAL_SYMBOL_TYPE; t15073.s0.value.external_symbol_type = q653; /* x216058 */ t15074.s0.tag = ((unsigned)((unsigned char)'>'))<<2; /* x216059 */ t15074.s1.tag = NULL_TYPE; /* x216060 */ t15073.s1.tag = STRUCTURE_TYPE24753; t15073.s1.value.structure_type24753 = &t15074; /* x216061 */ t15072.s0.tag = STRUCTURE_TYPE24753; t15072.s0.value.structure_type24753 = &t15073; /* x216062 */ t15075.s0.tag = STRING_TYPE; t15075.s0.value.string_type = "Scroll help window to end"; /* x216063 */ t15076.s0.tag = EXTERNAL_SYMBOL_TYPE; t15076.s0.value.external_symbol_type = q656; /* x216064 */ t15076.s1.tag = NULL_TYPE; /* x216065 */ t15075.s1.tag = STRUCTURE_TYPE24753; t15075.s1.value.structure_type24753 = &t15076; /* x216066 */ t15072.s1.tag = STRUCTURE_TYPE24753; t15072.s1.value.structure_type24753 = &t15075; /* x216067 */ t15071.s1.tag = STRUCTURE_TYPE24753; t15071.s1.value.structure_type24753 = &t15072; /* x216068 */ t15070.s0.tag = STRUCTURE_TYPE24753; t15070.s0.value.structure_type24753 = &t15071; /* x216069 */ t15078.s0.tag = EXTERNAL_SYMBOL_TYPE; t15078.s0.value.external_symbol_type = q42; /* x216070 */ t15079.s0.tag = EXTERNAL_SYMBOL_TYPE; t15079.s0.value.external_symbol_type = q657; /* x216071 */ t15080.s0.tag = EXTERNAL_SYMBOL_TYPE; t15080.s0.value.external_symbol_type = q645; /* x216072 */ t15080.s1.tag = NULL_TYPE; /* x216073 */ t15079.s1.tag = STRUCTURE_TYPE24753; t15079.s1.value.structure_type24753 = &t15080; /* x216074 */ t15078.s1.tag = STRUCTURE_TYPE24753; t15078.s1.value.structure_type24753 = &t15079; /* x216075 */ t15077.s0.tag = STRUCTURE_TYPE24753; t15077.s0.value.structure_type24753 = &t15078; /* x216076 */ t15082.s0.tag = EXTERNAL_SYMBOL_TYPE; t15082.s0.value.external_symbol_type = q42; /* x216077 */ t15083.s0.tag = EXTERNAL_SYMBOL_TYPE; t15083.s0.value.external_symbol_type = q645; /* x216078 */ t15085.s0.tag = EXTERNAL_SYMBOL_TYPE; t15085.s0.value.external_symbol_type = q166; /* x216079 */ t15086.s0.tag = FIXNUM_TYPE; t15086.s0.value.fixnum_type = 256; /* x216080 */ t15087.s0.tag = FALSE_TYPE; /* x216081 */ t15087.s1.tag = NULL_TYPE; /* x216082 */ t15086.s1.tag = STRUCTURE_TYPE24753; t15086.s1.value.structure_type24753 = &t15087; /* x216083 */ t15085.s1.tag = STRUCTURE_TYPE24753; t15085.s1.value.structure_type24753 = &t15086; /* x216084 */ t15084.s0.tag = STRUCTURE_TYPE24753; t15084.s0.value.structure_type24753 = &t15085; /* x216085 */ t15084.s1.tag = NULL_TYPE; /* x216086 */ t15083.s1.tag = STRUCTURE_TYPE24753; t15083.s1.value.structure_type24753 = &t15084; /* x216087 */ t15082.s1.tag = STRUCTURE_TYPE24753; t15082.s1.value.structure_type24753 = &t15083; /* x216088 */ t15081.s0.tag = STRUCTURE_TYPE24753; t15081.s0.value.structure_type24753 = &t15082; /* x216089 */ t15089.s0.tag = EXTERNAL_SYMBOL_TYPE; t15089.s0.value.external_symbol_type = q493; /* x216090 */ t15090.s0.tag = EXTERNAL_SYMBOL_TYPE; t15090.s0.value.external_symbol_type = q702; /* x216091 */ t15092.s0.tag = EXTERNAL_SYMBOL_TYPE; t15092.s0.value.external_symbol_type = q42; /* x216092 */ t15093.s0.tag = EXTERNAL_SYMBOL_TYPE; t15093.s0.value.external_symbol_type = q712; /* x216093 */ t15095.s0.tag = EXTERNAL_SYMBOL_TYPE; t15095.s0.value.external_symbol_type = q11; /* x216094 */ t15096.s0.tag = NULL_TYPE; /* x216095 */ t15096.s1.tag = NULL_TYPE; /* x216096 */ t15095.s1.tag = STRUCTURE_TYPE24753; t15095.s1.value.structure_type24753 = &t15096; /* x216097 */ t15094.s0.tag = STRUCTURE_TYPE24753; t15094.s0.value.structure_type24753 = &t15095; /* x216098 */ t15094.s1.tag = NULL_TYPE; /* x216099 */ t15093.s1.tag = STRUCTURE_TYPE24753; t15093.s1.value.structure_type24753 = &t15094; /* x216100 */ t15092.s1.tag = STRUCTURE_TYPE24753; t15092.s1.value.structure_type24753 = &t15093; /* x216101 */ t15091.s0.tag = STRUCTURE_TYPE24753; t15091.s0.value.structure_type24753 = &t15092; /* x216102 */ t15098.s0.tag = EXTERNAL_SYMBOL_TYPE; t15098.s0.value.external_symbol_type = q42; /* x216103 */ t15099.s0.tag = EXTERNAL_SYMBOL_TYPE; t15099.s0.value.external_symbol_type = q713; /* x216104 */ t15100.s0.tag = STRING_TYPE; t15100.s0.value.string_type = ""; /* x216105 */ t15100.s1.tag = NULL_TYPE; /* x216106 */ t15099.s1.tag = STRUCTURE_TYPE24753; t15099.s1.value.structure_type24753 = &t15100; /* x216107 */ t15098.s1.tag = STRUCTURE_TYPE24753; t15098.s1.value.structure_type24753 = &t15099; /* x216108 */ t15097.s0.tag = STRUCTURE_TYPE24753; t15097.s0.value.structure_type24753 = &t15098; /* x216109 */ t15102.s0.tag = EXTERNAL_SYMBOL_TYPE; t15102.s0.value.external_symbol_type = q42; /* x216110 */ t15103.s0.tag = EXTERNAL_SYMBOL_TYPE; t15103.s0.value.external_symbol_type = q714; /* x216111 */ t15104.s0.tag = FIXNUM_TYPE; t15104.s0.value.fixnum_type = 0; /* x216112 */ t15104.s1.tag = NULL_TYPE; /* x216113 */ t15103.s1.tag = STRUCTURE_TYPE24753; t15103.s1.value.structure_type24753 = &t15104; /* x216114 */ t15102.s1.tag = STRUCTURE_TYPE24753; t15102.s1.value.structure_type24753 = &t15103; /* x216115 */ t15101.s0.tag = STRUCTURE_TYPE24753; t15101.s0.value.structure_type24753 = &t15102; /* x216116 */ t15106.s0.tag = EXTERNAL_SYMBOL_TYPE; t15106.s0.value.external_symbol_type = q242; /* x216117 */ t15109.s0.tag = EXTERNAL_SYMBOL_TYPE; t15109.s0.value.external_symbol_type = q715; /* x216118 */ t15110.s0.tag = EXTERNAL_SYMBOL_TYPE; t15110.s0.value.external_symbol_type = q646; /* x216119 */ t15110.s1.tag = NULL_TYPE; /* x216120 */ t15109.s1.tag = STRUCTURE_TYPE24753; t15109.s1.value.structure_type24753 = &t15110; /* x216121 */ t15108.s0.tag = STRUCTURE_TYPE24753; t15108.s0.value.structure_type24753 = &t15109; /* x216122 */ t15108.s1.tag = NULL_TYPE; /* x216123 */ t15107.s0.tag = STRUCTURE_TYPE24753; t15107.s0.value.structure_type24753 = &t15108; /* x216124 */ t15112.s0.tag = EXTERNAL_SYMBOL_TYPE; t15112.s0.value.external_symbol_type = q489; /* x216125 */ t15114.s0.tag = EXTERNAL_SYMBOL_TYPE; t15114.s0.value.external_symbol_type = q39; /* x216126 */ t15116.s0.tag = EXTERNAL_SYMBOL_TYPE; t15116.s0.value.external_symbol_type = q716; /* x216127 */ t15116.s1.tag = NULL_TYPE; /* x216128 */ t15115.s0.tag = STRUCTURE_TYPE24753; t15115.s0.value.structure_type24753 = &t15116; /* x216129 */ t15118.s0.tag = EXTERNAL_SYMBOL_TYPE; t15118.s0.value.external_symbol_type = q647; /* x216130 */ t15119.s0.tag = EXTERNAL_SYMBOL_TYPE; t15119.s0.value.external_symbol_type = q716; /* x216131 */ t15120.s0.tag = STRING_TYPE; t15120.s0.value.string_type = "Enter the typed character into the echo pane"; /* x216132 */ t15122.s0.tag = EXTERNAL_SYMBOL_TYPE; t15122.s0.value.external_symbol_type = q39; /* x216133 */ t15123.s0.tag = NULL_TYPE; /* x216134 */ t15125.s0.tag = EXTERNAL_SYMBOL_TYPE; t15125.s0.value.external_symbol_type = q717; /* x216135 */ t15126.s0.tag = EXTERNAL_SYMBOL_TYPE; t15126.s0.value.external_symbol_type = q716; /* x216136 */ t15126.s1.tag = NULL_TYPE; /* x216137 */ t15125.s1.tag = STRUCTURE_TYPE24753; t15125.s1.value.structure_type24753 = &t15126; /* x216138 */ t15124.s0.tag = STRUCTURE_TYPE24753; t15124.s0.value.structure_type24753 = &t15125; /* x216139 */ t15124.s1.tag = NULL_TYPE; /* x216140 */ t15123.s1.tag = STRUCTURE_TYPE24753; t15123.s1.value.structure_type24753 = &t15124; /* x216141 */ t15122.s1.tag = STRUCTURE_TYPE24753; t15122.s1.value.structure_type24753 = &t15123; /* x216142 */ t15121.s0.tag = STRUCTURE_TYPE24753; t15121.s0.value.structure_type24753 = &t15122; /* x216143 */ t15121.s1.tag = NULL_TYPE; /* x216144 */ t15120.s1.tag = STRUCTURE_TYPE24753; t15120.s1.value.structure_type24753 = &t15121; /* x216145 */ t15119.s1.tag = STRUCTURE_TYPE24753; t15119.s1.value.structure_type24753 = &t15120; /* x216146 */ t15118.s1.tag = STRUCTURE_TYPE24753; t15118.s1.value.structure_type24753 = &t15119; /* x216147 */ t15117.s0.tag = STRUCTURE_TYPE24753; t15117.s0.value.structure_type24753 = &t15118; /* x216148 */ t15117.s1.tag = NULL_TYPE; /* x216149 */ t15115.s1.tag = STRUCTURE_TYPE24753; t15115.s1.value.structure_type24753 = &t15117; /* x216150 */ t15114.s1.tag = STRUCTURE_TYPE24753; t15114.s1.value.structure_type24753 = &t15115; /* x216151 */ t15113.s0.tag = STRUCTURE_TYPE24753; t15113.s0.value.structure_type24753 = &t15114; /* x216152 */ t15128.s0.tag = EXTERNAL_SYMBOL_TYPE; t15128.s0.value.external_symbol_type = q407; /* x216153 */ t15130.s0.tag = EXTERNAL_SYMBOL_TYPE; t15130.s0.value.external_symbol_type = q480; /* x216154 */ t15131.s0.tag = STRING_TYPE; t15131.s0.value.string_type = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"; /* x216155 */ t15131.s1.tag = NULL_TYPE; /* x216156 */ t15130.s1.tag = STRUCTURE_TYPE24753; t15130.s1.value.structure_type24753 = &t15131; /* x216157 */ t15129.s0.tag = STRUCTURE_TYPE24753; t15129.s0.value.structure_type24753 = &t15130; /* x216158 */ t15133.s0.tag = EXTERNAL_SYMBOL_TYPE; t15133.s0.value.external_symbol_type = q480; /* x216159 */ t15134.s0.tag = STRING_TYPE; t15134.s0.value.string_type = "1234567890-=\\`!@#$%^&*()_+|~[]{};\':\",./<>? "; /* x216160 */ t15134.s1.tag = NULL_TYPE; /* x216161 */ t15133.s1.tag = STRUCTURE_TYPE24753; t15133.s1.value.structure_type24753 = &t15134; /* x216162 */ t15132.s0.tag = STRUCTURE_TYPE24753; t15132.s0.value.structure_type24753 = &t15133; /* x216163 */ t15132.s1.tag = NULL_TYPE; /* x216164 */ t15129.s1.tag = STRUCTURE_TYPE24753; t15129.s1.value.structure_type24753 = &t15132; /* x216165 */ t15128.s1.tag = STRUCTURE_TYPE24753; t15128.s1.value.structure_type24753 = &t15129; /* x216166 */ t15127.s0.tag = STRUCTURE_TYPE24753; t15127.s0.value.structure_type24753 = &t15128; /* x216167 */ t15127.s1.tag = NULL_TYPE; /* x216168 */ t15113.s1.tag = STRUCTURE_TYPE24753; t15113.s1.value.structure_type24753 = &t15127; /* x216169 */ t15112.s1.tag = STRUCTURE_TYPE24753; t15112.s1.value.structure_type24753 = &t15113; /* x216170 */ t15111.s0.tag = STRUCTURE_TYPE24753; t15111.s0.value.structure_type24753 = &t15112; /* x216171 */ t15136.s0.tag = EXTERNAL_SYMBOL_TYPE; t15136.s0.value.external_symbol_type = q42; /* x216172 */ t15137.s0.tag = EXTERNAL_SYMBOL_TYPE; t15137.s0.value.external_symbol_type = q646; /* x216173 */ t15138.s0.tag = EXTERNAL_SYMBOL_TYPE; t15138.s0.value.external_symbol_type = q715; /* x216174 */ t15138.s1.tag = NULL_TYPE; /* x216175 */ t15137.s1.tag = STRUCTURE_TYPE24753; t15137.s1.value.structure_type24753 = &t15138; /* x216176 */ t15136.s1.tag = STRUCTURE_TYPE24753; t15136.s1.value.structure_type24753 = &t15137; /* x216177 */ t15135.s0.tag = STRUCTURE_TYPE24753; t15135.s0.value.structure_type24753 = &t15136; /* x216178 */ t15135.s1.tag = NULL_TYPE; /* x216179 */ t15111.s1.tag = STRUCTURE_TYPE24753; t15111.s1.value.structure_type24753 = &t15135; /* x216180 */ t15107.s1.tag = STRUCTURE_TYPE24753; t15107.s1.value.structure_type24753 = &t15111; /* x216181 */ t15106.s1.tag = STRUCTURE_TYPE24753; t15106.s1.value.structure_type24753 = &t15107; /* x216182 */ t15105.s0.tag = STRUCTURE_TYPE24753; t15105.s0.value.structure_type24753 = &t15106; /* x216183 */ t15140.s0.tag = EXTERNAL_SYMBOL_TYPE; t15140.s0.value.external_symbol_type = q647; /* x216184 */ t15142.s0.tag = EXTERNAL_SYMBOL_TYPE; t15142.s0.value.external_symbol_type = q648; /* x216185 */ t15143.s0.tag = ((unsigned)((unsigned char)'a'))<<2; /* x216186 */ t15143.s1.tag = NULL_TYPE; /* x216187 */ t15142.s1.tag = STRUCTURE_TYPE24753; t15142.s1.value.structure_type24753 = &t15143; /* x216188 */ t15141.s0.tag = STRUCTURE_TYPE24753; t15141.s0.value.structure_type24753 = &t15142; /* x216189 */ t15144.s0.tag = STRING_TYPE; t15144.s0.value.string_type = "Move the cursor to the beginning of the echo pane"; /* x216190 */ t15145.s0.tag = EXTERNAL_SYMBOL_TYPE; t15145.s0.value.external_symbol_type = q718; /* x216191 */ t15145.s1.tag = NULL_TYPE; /* x216192 */ t15144.s1.tag = STRUCTURE_TYPE24753; t15144.s1.value.structure_type24753 = &t15145; /* x216193 */ t15141.s1.tag = STRUCTURE_TYPE24753; t15141.s1.value.structure_type24753 = &t15144; /* x216194 */ t15140.s1.tag = STRUCTURE_TYPE24753; t15140.s1.value.structure_type24753 = &t15141; /* x216195 */ t15139.s0.tag = STRUCTURE_TYPE24753; t15139.s0.value.structure_type24753 = &t15140; /* x216196 */ t15147.s0.tag = EXTERNAL_SYMBOL_TYPE; t15147.s0.value.external_symbol_type = q647; /* x216197 */ t15149.s0.tag = EXTERNAL_SYMBOL_TYPE; t15149.s0.value.external_symbol_type = q648; /* x216198 */ t15150.s0.tag = ((unsigned)((unsigned char)'b'))<<2; /* x216199 */ t15150.s1.tag = NULL_TYPE; /* x216200 */ t15149.s1.tag = STRUCTURE_TYPE24753; t15149.s1.value.structure_type24753 = &t15150; /* x216201 */ t15148.s0.tag = STRUCTURE_TYPE24753; t15148.s0.value.structure_type24753 = &t15149; /* x216202 */ t15151.s0.tag = STRING_TYPE; t15151.s0.value.string_type = "Move the cursor backward one character in the echo pane"; /* x216203 */ t15152.s0.tag = EXTERNAL_SYMBOL_TYPE; t15152.s0.value.external_symbol_type = q719; /* x216204 */ t15152.s1.tag = NULL_TYPE; /* x216205 */ t15151.s1.tag = STRUCTURE_TYPE24753; t15151.s1.value.structure_type24753 = &t15152; /* x216206 */ t15148.s1.tag = STRUCTURE_TYPE24753; t15148.s1.value.structure_type24753 = &t15151; /* x216207 */ t15147.s1.tag = STRUCTURE_TYPE24753; t15147.s1.value.structure_type24753 = &t15148; /* x216208 */ t15146.s0.tag = STRUCTURE_TYPE24753; t15146.s0.value.structure_type24753 = &t15147; /* x216209 */ t15154.s0.tag = EXTERNAL_SYMBOL_TYPE; t15154.s0.value.external_symbol_type = q647; /* x216210 */ t15156.s0.tag = EXTERNAL_SYMBOL_TYPE; t15156.s0.value.external_symbol_type = q648; /* x216211 */ t15157.s0.tag = ((unsigned)((unsigned char)'d'))<<2; /* x216212 */ t15157.s1.tag = NULL_TYPE; /* x216213 */ t15156.s1.tag = STRUCTURE_TYPE24753; t15156.s1.value.structure_type24753 = &t15157; /* x216214 */ t15155.s0.tag = STRUCTURE_TYPE24753; t15155.s0.value.structure_type24753 = &t15156; /* x216215 */ t15158.s0.tag = STRING_TYPE; t15158.s0.value.string_type = "Delete the character after the cursor in the echo pane"; /* x216216 */ t15159.s0.tag = EXTERNAL_SYMBOL_TYPE; t15159.s0.value.external_symbol_type = q720; /* x216217 */ t15159.s1.tag = NULL_TYPE; /* x216218 */ t15158.s1.tag = STRUCTURE_TYPE24753; t15158.s1.value.structure_type24753 = &t15159; /* x216219 */ t15155.s1.tag = STRUCTURE_TYPE24753; t15155.s1.value.structure_type24753 = &t15158; /* x216220 */ t15154.s1.tag = STRUCTURE_TYPE24753; t15154.s1.value.structure_type24753 = &t15155; /* x216221 */ t15153.s0.tag = STRUCTURE_TYPE24753; t15153.s0.value.structure_type24753 = &t15154; /* x216222 */ t15161.s0.tag = EXTERNAL_SYMBOL_TYPE; t15161.s0.value.external_symbol_type = q647; /* x216223 */ t15163.s0.tag = EXTERNAL_SYMBOL_TYPE; t15163.s0.value.external_symbol_type = q648; /* x216224 */ t15164.s0.tag = ((unsigned)((unsigned char)'e'))<<2; /* x216225 */ t15164.s1.tag = NULL_TYPE; /* x216226 */ t15163.s1.tag = STRUCTURE_TYPE24753; t15163.s1.value.structure_type24753 = &t15164; /* x216227 */ t15162.s0.tag = STRUCTURE_TYPE24753; t15162.s0.value.structure_type24753 = &t15163; /* x216228 */ t15165.s0.tag = STRING_TYPE; t15165.s0.value.string_type = "Move the cursor to the end of the echo pane"; /* x216229 */ t15166.s0.tag = EXTERNAL_SYMBOL_TYPE; t15166.s0.value.external_symbol_type = q721; /* x216230 */ t15166.s1.tag = NULL_TYPE; /* x216231 */ t15165.s1.tag = STRUCTURE_TYPE24753; t15165.s1.value.structure_type24753 = &t15166; /* x216232 */ t15162.s1.tag = STRUCTURE_TYPE24753; t15162.s1.value.structure_type24753 = &t15165; /* x216233 */ t15161.s1.tag = STRUCTURE_TYPE24753; t15161.s1.value.structure_type24753 = &t15162; /* x216234 */ t15160.s0.tag = STRUCTURE_TYPE24753; t15160.s0.value.structure_type24753 = &t15161; /* x216235 */ t15168.s0.tag = EXTERNAL_SYMBOL_TYPE; t15168.s0.value.external_symbol_type = q647; /* x216236 */ t15170.s0.tag = EXTERNAL_SYMBOL_TYPE; t15170.s0.value.external_symbol_type = q648; /* x216237 */ t15171.s0.tag = ((unsigned)((unsigned char)'f'))<<2; /* x216238 */ t15171.s1.tag = NULL_TYPE; /* x216239 */ t15170.s1.tag = STRUCTURE_TYPE24753; t15170.s1.value.structure_type24753 = &t15171; /* x216240 */ t15169.s0.tag = STRUCTURE_TYPE24753; t15169.s0.value.structure_type24753 = &t15170; /* x216241 */ t15172.s0.tag = STRING_TYPE; t15172.s0.value.string_type = "Move the cursor forward one character in the echo pane"; /* x216242 */ t15173.s0.tag = EXTERNAL_SYMBOL_TYPE; t15173.s0.value.external_symbol_type = q722; /* x216243 */ t15173.s1.tag = NULL_TYPE; /* x216244 */ t15172.s1.tag = STRUCTURE_TYPE24753; t15172.s1.value.structure_type24753 = &t15173; /* x216245 */ t15169.s1.tag = STRUCTURE_TYPE24753; t15169.s1.value.structure_type24753 = &t15172; /* x216246 */ t15168.s1.tag = STRUCTURE_TYPE24753; t15168.s1.value.structure_type24753 = &t15169; /* x216247 */ t15167.s0.tag = STRUCTURE_TYPE24753; t15167.s0.value.structure_type24753 = &t15168; /* x216248 */ t15175.s0.tag = EXTERNAL_SYMBOL_TYPE; t15175.s0.value.external_symbol_type = q647; /* x216249 */ t15177.s0.tag = EXTERNAL_SYMBOL_TYPE; t15177.s0.value.external_symbol_type = q648; /* x216250 */ t15178.s0.tag = ((unsigned)((unsigned char)'k'))<<2; /* x216251 */ t15178.s1.tag = NULL_TYPE; /* x216252 */ t15177.s1.tag = STRUCTURE_TYPE24753; t15177.s1.value.structure_type24753 = &t15178; /* x216253 */ t15176.s0.tag = STRUCTURE_TYPE24753; t15176.s0.value.structure_type24753 = &t15177; /* x216254 */ t15179.s0.tag = STRING_TYPE; t15179.s0.value.string_type = "Delete all characters after the cursor in the echo pane"; /* x216255 */ t15180.s0.tag = EXTERNAL_SYMBOL_TYPE; t15180.s0.value.external_symbol_type = q723; /* x216256 */ t15180.s1.tag = NULL_TYPE; /* x216257 */ t15179.s1.tag = STRUCTURE_TYPE24753; t15179.s1.value.structure_type24753 = &t15180; /* x216258 */ t15176.s1.tag = STRUCTURE_TYPE24753; t15176.s1.value.structure_type24753 = &t15179; /* x216259 */ t15175.s1.tag = STRUCTURE_TYPE24753; t15175.s1.value.structure_type24753 = &t15176; /* x216260 */ t15174.s0.tag = STRUCTURE_TYPE24753; t15174.s0.value.structure_type24753 = &t15175; /* x216261 */ t15182.s0.tag = EXTERNAL_SYMBOL_TYPE; t15182.s0.value.external_symbol_type = q647; /* x216262 */ t15183.s0.tag = EXTERNAL_SYMBOL_TYPE; t15183.s0.value.external_symbol_type = q724; /* x216263 */ t15184.s0.tag = STRING_TYPE; t15184.s0.value.string_type = "Delete the character before the cursor in the echo pane"; /* x216264 */ t15185.s0.tag = EXTERNAL_SYMBOL_TYPE; t15185.s0.value.external_symbol_type = q725; /* x216265 */ t15185.s1.tag = NULL_TYPE; /* x216266 */ t15184.s1.tag = STRUCTURE_TYPE24753; t15184.s1.value.structure_type24753 = &t15185; /* x216267 */ t15183.s1.tag = STRUCTURE_TYPE24753; t15183.s1.value.structure_type24753 = &t15184; /* x216268 */ t15182.s1.tag = STRUCTURE_TYPE24753; t15182.s1.value.structure_type24753 = &t15183; /* x216269 */ t15181.s0.tag = STRUCTURE_TYPE24753; t15181.s0.value.structure_type24753 = &t15182; /* x216270 */ t15187.s0.tag = EXTERNAL_SYMBOL_TYPE; t15187.s0.value.external_symbol_type = q647; /* x216271 */ t15188.s0.tag = EXTERNAL_SYMBOL_TYPE; t15188.s0.value.external_symbol_type = q48; /* x216272 */ t15189.s0.tag = STRING_TYPE; t15189.s0.value.string_type = "Process the input in the echo pane"; /* x216273 */ t15191.s0.tag = EXTERNAL_SYMBOL_TYPE; t15191.s0.value.external_symbol_type = q39; /* x216274 */ t15192.s0.tag = NULL_TYPE; /* x216275 */ t15194.s0.tag = EXTERNAL_SYMBOL_TYPE; t15194.s0.value.external_symbol_type = q42; /* x216276 */ t15195.s0.tag = EXTERNAL_SYMBOL_TYPE; t15195.s0.value.external_symbol_type = q712; /* x216277 */ t15197.s0.tag = EXTERNAL_SYMBOL_TYPE; t15197.s0.value.external_symbol_type = q106; /* x216278 */ t15199.s0.tag = EXTERNAL_SYMBOL_TYPE; t15199.s0.value.external_symbol_type = q1; /* x216279 */ t15201.s0.tag = EXTERNAL_SYMBOL_TYPE; t15201.s0.value.external_symbol_type = q11; /* x216280 */ t15202.s0.tag = EXTERNAL_SYMBOL_TYPE; t15202.s0.value.external_symbol_type = q30; /* x216281 */ t15202.s1.tag = NULL_TYPE; /* x216282 */ t15201.s1.tag = STRUCTURE_TYPE24753; t15201.s1.value.structure_type24753 = &t15202; /* x216283 */ t15200.s0.tag = STRUCTURE_TYPE24753; t15200.s0.value.structure_type24753 = &t15201; /* x216284 */ t15203.s0.tag = EXTERNAL_SYMBOL_TYPE; t15203.s0.value.external_symbol_type = q713; /* x216285 */ t15203.s1.tag = NULL_TYPE; /* x216286 */ t15200.s1.tag = STRUCTURE_TYPE24753; t15200.s1.value.structure_type24753 = &t15203; /* x216287 */ t15199.s1.tag = STRUCTURE_TYPE24753; t15199.s1.value.structure_type24753 = &t15200; /* x216288 */ t15198.s0.tag = STRUCTURE_TYPE24753; t15198.s0.value.structure_type24753 = &t15199; /* x216289 */ t15204.s0.tag = EXTERNAL_SYMBOL_TYPE; t15204.s0.value.external_symbol_type = q712; /* x216290 */ t15204.s1.tag = NULL_TYPE; /* x216291 */ t15198.s1.tag = STRUCTURE_TYPE24753; t15198.s1.value.structure_type24753 = &t15204; /* x216292 */ t15197.s1.tag = STRUCTURE_TYPE24753; t15197.s1.value.structure_type24753 = &t15198; /* x216293 */ t15196.s0.tag = STRUCTURE_TYPE24753; t15196.s0.value.structure_type24753 = &t15197; /* x216294 */ t15196.s1.tag = NULL_TYPE; /* x216295 */ t15195.s1.tag = STRUCTURE_TYPE24753; t15195.s1.value.structure_type24753 = &t15196; /* x216296 */ t15194.s1.tag = STRUCTURE_TYPE24753; t15194.s1.value.structure_type24753 = &t15195; /* x216297 */ t15193.s0.tag = STRUCTURE_TYPE24753; t15193.s0.value.structure_type24753 = &t15194; /* x216298 */ t15206.s0.tag = EXTERNAL_SYMBOL_TYPE; t15206.s0.value.external_symbol_type = q707; /* x216299 */ t15206.s1.tag = NULL_TYPE; /* x216300 */ t15205.s0.tag = STRUCTURE_TYPE24753; t15205.s0.value.structure_type24753 = &t15206; /* x216301 */ t15208.s0.tag = EXTERNAL_SYMBOL_TYPE; t15208.s0.value.external_symbol_type = q42; /* x216302 */ t15209.s0.tag = EXTERNAL_SYMBOL_TYPE; t15209.s0.value.external_symbol_type = q713; /* x216303 */ t15210.s0.tag = STRING_TYPE; t15210.s0.value.string_type = ""; /* x216304 */ t15210.s1.tag = NULL_TYPE; /* x216305 */ t15209.s1.tag = STRUCTURE_TYPE24753; t15209.s1.value.structure_type24753 = &t15210; /* x216306 */ t15208.s1.tag = STRUCTURE_TYPE24753; t15208.s1.value.structure_type24753 = &t15209; /* x216307 */ t15207.s0.tag = STRUCTURE_TYPE24753; t15207.s0.value.structure_type24753 = &t15208; /* x216308 */ t15212.s0.tag = EXTERNAL_SYMBOL_TYPE; t15212.s0.value.external_symbol_type = q42; /* x216309 */ t15213.s0.tag = EXTERNAL_SYMBOL_TYPE; t15213.s0.value.external_symbol_type = q714; /* x216310 */ t15214.s0.tag = FIXNUM_TYPE; t15214.s0.value.fixnum_type = 0; /* x216311 */ t15214.s1.tag = NULL_TYPE; /* x216312 */ t15213.s1.tag = STRUCTURE_TYPE24753; t15213.s1.value.structure_type24753 = &t15214; /* x216313 */ t15212.s1.tag = STRUCTURE_TYPE24753; t15212.s1.value.structure_type24753 = &t15213; /* x216314 */ t15211.s0.tag = STRUCTURE_TYPE24753; t15211.s0.value.structure_type24753 = &t15212; /* x216315 */ t15216.s0.tag = EXTERNAL_SYMBOL_TYPE; t15216.s0.value.external_symbol_type = q689; /* x216316 */ t15216.s1.tag = NULL_TYPE; /* x216317 */ t15215.s0.tag = STRUCTURE_TYPE24753; t15215.s0.value.structure_type24753 = &t15216; /* x216318 */ t15218.s0.tag = EXTERNAL_SYMBOL_TYPE; t15218.s0.value.external_symbol_type = q690; /* x216319 */ t15218.s1.tag = NULL_TYPE; /* x216320 */ t15217.s0.tag = STRUCTURE_TYPE24753; t15217.s0.value.structure_type24753 = &t15218; /* x216321 */ t15217.s1.tag = NULL_TYPE; /* x216322 */ t15215.s1.tag = STRUCTURE_TYPE24753; t15215.s1.value.structure_type24753 = &t15217; /* x216323 */ t15211.s1.tag = STRUCTURE_TYPE24753; t15211.s1.value.structure_type24753 = &t15215; /* x216324 */ t15207.s1.tag = STRUCTURE_TYPE24753; t15207.s1.value.structure_type24753 = &t15211; /* x216325 */ t15205.s1.tag = STRUCTURE_TYPE24753; t15205.s1.value.structure_type24753 = &t15207; /* x216326 */ t15193.s1.tag = STRUCTURE_TYPE24753; t15193.s1.value.structure_type24753 = &t15205; /* x216327 */ t15192.s1.tag = STRUCTURE_TYPE24753; t15192.s1.value.structure_type24753 = &t15193; /* x216328 */ t15191.s1.tag = STRUCTURE_TYPE24753; t15191.s1.value.structure_type24753 = &t15192; /* x216329 */ t15190.s0.tag = STRUCTURE_TYPE24753; t15190.s0.value.structure_type24753 = &t15191; /* x216330 */ t15190.s1.tag = NULL_TYPE; /* x216331 */ t15189.s1.tag = STRUCTURE_TYPE24753; t15189.s1.value.structure_type24753 = &t15190; /* x216332 */ t15188.s1.tag = STRUCTURE_TYPE24753; t15188.s1.value.structure_type24753 = &t15189; /* x216333 */ t15187.s1.tag = STRUCTURE_TYPE24753; t15187.s1.value.structure_type24753 = &t15188; /* x216334 */ t15186.s0.tag = STRUCTURE_TYPE24753; t15186.s0.value.structure_type24753 = &t15187; /* x216335 */ t15220.s0.tag = EXTERNAL_SYMBOL_TYPE; t15220.s0.value.external_symbol_type = q647; /* x216336 */ t15222.s0.tag = EXTERNAL_SYMBOL_TYPE; t15222.s0.value.external_symbol_type = q653; /* x216337 */ t15223.s0.tag = ((unsigned)((unsigned char)'b'))<<2; /* x216338 */ t15223.s1.tag = NULL_TYPE; /* x216339 */ t15222.s1.tag = STRUCTURE_TYPE24753; t15222.s1.value.structure_type24753 = &t15223; /* x216340 */ t15221.s0.tag = STRUCTURE_TYPE24753; t15221.s0.value.structure_type24753 = &t15222; /* x216341 */ t15224.s0.tag = STRING_TYPE; t15224.s0.value.string_type = "Move the cursor backward one word in the echo pane"; /* x216342 */ t15225.s0.tag = EXTERNAL_SYMBOL_TYPE; t15225.s0.value.external_symbol_type = q726; /* x216343 */ t15225.s1.tag = NULL_TYPE; /* x216344 */ t15224.s1.tag = STRUCTURE_TYPE24753; t15224.s1.value.structure_type24753 = &t15225; /* x216345 */ t15221.s1.tag = STRUCTURE_TYPE24753; t15221.s1.value.structure_type24753 = &t15224; /* x216346 */ t15220.s1.tag = STRUCTURE_TYPE24753; t15220.s1.value.structure_type24753 = &t15221; /* x216347 */ t15219.s0.tag = STRUCTURE_TYPE24753; t15219.s0.value.structure_type24753 = &t15220; /* x216348 */ t15227.s0.tag = EXTERNAL_SYMBOL_TYPE; t15227.s0.value.external_symbol_type = q647; /* x216349 */ t15229.s0.tag = EXTERNAL_SYMBOL_TYPE; t15229.s0.value.external_symbol_type = q653; /* x216350 */ t15230.s0.tag = ((unsigned)((unsigned char)'d'))<<2; /* x216351 */ t15230.s1.tag = NULL_TYPE; /* x216352 */ t15229.s1.tag = STRUCTURE_TYPE24753; t15229.s1.value.structure_type24753 = &t15230; /* x216353 */ t15228.s0.tag = STRUCTURE_TYPE24753; t15228.s0.value.structure_type24753 = &t15229; /* x216354 */ t15231.s0.tag = STRING_TYPE; t15231.s0.value.string_type = "Delete the word after the cursor in the echo pane"; /* x216355 */ t15232.s0.tag = EXTERNAL_SYMBOL_TYPE; t15232.s0.value.external_symbol_type = q727; /* x216356 */ t15232.s1.tag = NULL_TYPE; /* x216357 */ t15231.s1.tag = STRUCTURE_TYPE24753; t15231.s1.value.structure_type24753 = &t15232; /* x216358 */ t15228.s1.tag = STRUCTURE_TYPE24753; t15228.s1.value.structure_type24753 = &t15231; /* x216359 */ t15227.s1.tag = STRUCTURE_TYPE24753; t15227.s1.value.structure_type24753 = &t15228; /* x216360 */ t15226.s0.tag = STRUCTURE_TYPE24753; t15226.s0.value.structure_type24753 = &t15227; /* x216361 */ t15234.s0.tag = EXTERNAL_SYMBOL_TYPE; t15234.s0.value.external_symbol_type = q647; /* x216362 */ t15236.s0.tag = EXTERNAL_SYMBOL_TYPE; t15236.s0.value.external_symbol_type = q653; /* x216363 */ t15237.s0.tag = ((unsigned)((unsigned char)'f'))<<2; /* x216364 */ t15237.s1.tag = NULL_TYPE; /* x216365 */ t15236.s1.tag = STRUCTURE_TYPE24753; t15236.s1.value.structure_type24753 = &t15237; /* x216366 */ t15235.s0.tag = STRUCTURE_TYPE24753; t15235.s0.value.structure_type24753 = &t15236; /* x216367 */ t15238.s0.tag = STRING_TYPE; t15238.s0.value.string_type = "Move the cursor forward one word in the echo pane"; /* x216368 */ t15239.s0.tag = EXTERNAL_SYMBOL_TYPE; t15239.s0.value.external_symbol_type = q728; /* x216369 */ t15239.s1.tag = NULL_TYPE; /* x216370 */ t15238.s1.tag = STRUCTURE_TYPE24753; t15238.s1.value.structure_type24753 = &t15239; /* x216371 */ t15235.s1.tag = STRUCTURE_TYPE24753; t15235.s1.value.structure_type24753 = &t15238; /* x216372 */ t15234.s1.tag = STRUCTURE_TYPE24753; t15234.s1.value.structure_type24753 = &t15235; /* x216373 */ t15233.s0.tag = STRUCTURE_TYPE24753; t15233.s0.value.structure_type24753 = &t15234; /* x216374 */ t15241.s0.tag = EXTERNAL_SYMBOL_TYPE; t15241.s0.value.external_symbol_type = q647; /* x216375 */ t15243.s0.tag = EXTERNAL_SYMBOL_TYPE; t15243.s0.value.external_symbol_type = q653; /* x216376 */ t15244.s0.tag = EXTERNAL_SYMBOL_TYPE; t15244.s0.value.external_symbol_type = q724; /* x216377 */ t15244.s1.tag = NULL_TYPE; /* x216378 */ t15243.s1.tag = STRUCTURE_TYPE24753; t15243.s1.value.structure_type24753 = &t15244; /* x216379 */ t15242.s0.tag = STRUCTURE_TYPE24753; t15242.s0.value.structure_type24753 = &t15243; /* x216380 */ t15245.s0.tag = STRING_TYPE; t15245.s0.value.string_type = "Delete the word before the cursor in the echo pane"; /* x216381 */ t15246.s0.tag = EXTERNAL_SYMBOL_TYPE; t15246.s0.value.external_symbol_type = q729; /* x216382 */ t15246.s1.tag = NULL_TYPE; /* x216383 */ t15245.s1.tag = STRUCTURE_TYPE24753; t15245.s1.value.structure_type24753 = &t15246; /* x216384 */ t15242.s1.tag = STRUCTURE_TYPE24753; t15242.s1.value.structure_type24753 = &t15245; /* x216385 */ t15241.s1.tag = STRUCTURE_TYPE24753; t15241.s1.value.structure_type24753 = &t15242; /* x216386 */ t15240.s0.tag = STRUCTURE_TYPE24753; t15240.s0.value.structure_type24753 = &t15241; /* x216387 */ t15240.s1.tag = NULL_TYPE; /* x216388 */ t15233.s1.tag = STRUCTURE_TYPE24753; t15233.s1.value.structure_type24753 = &t15240; /* x216389 */ t15226.s1.tag = STRUCTURE_TYPE24753; t15226.s1.value.structure_type24753 = &t15233; /* x216390 */ t15219.s1.tag = STRUCTURE_TYPE24753; t15219.s1.value.structure_type24753 = &t15226; /* x216391 */ t15186.s1.tag = STRUCTURE_TYPE24753; t15186.s1.value.structure_type24753 = &t15219; /* x216392 */ t15181.s1.tag = STRUCTURE_TYPE24753; t15181.s1.value.structure_type24753 = &t15186; /* x216393 */ t15174.s1.tag = STRUCTURE_TYPE24753; t15174.s1.value.structure_type24753 = &t15181; /* x216394 */ t15167.s1.tag = STRUCTURE_TYPE24753; t15167.s1.value.structure_type24753 = &t15174; /* x216395 */ t15160.s1.tag = STRUCTURE_TYPE24753; t15160.s1.value.structure_type24753 = &t15167; /* x216396 */ t15153.s1.tag = STRUCTURE_TYPE24753; t15153.s1.value.structure_type24753 = &t15160; /* x216397 */ t15146.s1.tag = STRUCTURE_TYPE24753; t15146.s1.value.structure_type24753 = &t15153; /* x216398 */ t15139.s1.tag = STRUCTURE_TYPE24753; t15139.s1.value.structure_type24753 = &t15146; /* x216399 */ t15105.s1.tag = STRUCTURE_TYPE24753; t15105.s1.value.structure_type24753 = &t15139; /* x216400 */ t15101.s1.tag = STRUCTURE_TYPE24753; t15101.s1.value.structure_type24753 = &t15105; /* x216401 */ t15097.s1.tag = STRUCTURE_TYPE24753; t15097.s1.value.structure_type24753 = &t15101; /* x216402 */ t15091.s1.tag = STRUCTURE_TYPE24753; t15091.s1.value.structure_type24753 = &t15097; /* x216403 */ t15090.s1.tag = STRUCTURE_TYPE24753; t15090.s1.value.structure_type24753 = &t15091; /* x216404 */ t15089.s1.tag = STRUCTURE_TYPE24753; t15089.s1.value.structure_type24753 = &t15090; /* x216405 */ t15088.s0.tag = STRUCTURE_TYPE24753; t15088.s0.value.structure_type24753 = &t15089; /* x216406 */ t15248.s0.tag = EXTERNAL_SYMBOL_TYPE; t15248.s0.value.external_symbol_type = q42; /* x216407 */ t15249.s0.tag = EXTERNAL_SYMBOL_TYPE; t15249.s0.value.external_symbol_type = q658; /* x216408 */ t15251.s0.tag = EXTERNAL_SYMBOL_TYPE; t15251.s0.value.external_symbol_type = q11; /* x216409 */ t15252.s0.tag = NULL_TYPE; /* x216410 */ t15252.s1.tag = NULL_TYPE; /* x216411 */ t15251.s1.tag = STRUCTURE_TYPE24753; t15251.s1.value.structure_type24753 = &t15252; /* x216412 */ t15250.s0.tag = STRUCTURE_TYPE24753; t15250.s0.value.structure_type24753 = &t15251; /* x216413 */ t15250.s1.tag = NULL_TYPE; /* x216414 */ t15249.s1.tag = STRUCTURE_TYPE24753; t15249.s1.value.structure_type24753 = &t15250; /* x216415 */ t15248.s1.tag = STRUCTURE_TYPE24753; t15248.s1.value.structure_type24753 = &t15249; /* x216416 */ t15247.s0.tag = STRUCTURE_TYPE24753; t15247.s0.value.structure_type24753 = &t15248; /* x216417 */ t15254.s0.tag = EXTERNAL_SYMBOL_TYPE; t15254.s0.value.external_symbol_type = q42; /* x216418 */ t15255.s0.tag = EXTERNAL_SYMBOL_TYPE; t15255.s0.value.external_symbol_type = q659; /* x216419 */ t15256.s0.tag = STRING_TYPE; t15256.s0.value.string_type = "Tyi"; /* x216420 */ t15256.s1.tag = NULL_TYPE; /* x216421 */ t15255.s1.tag = STRUCTURE_TYPE24753; t15255.s1.value.structure_type24753 = &t15256; /* x216422 */ t15254.s1.tag = STRUCTURE_TYPE24753; t15254.s1.value.structure_type24753 = &t15255; /* x216423 */ t15253.s0.tag = STRUCTURE_TYPE24753; t15253.s0.value.structure_type24753 = &t15254; /* x216424 */ t15258.s0.tag = EXTERNAL_SYMBOL_TYPE; t15258.s0.value.external_symbol_type = q42; /* x216425 */ t15259.s0.tag = EXTERNAL_SYMBOL_TYPE; t15259.s0.value.external_symbol_type = q660; /* x216426 */ t15260.s0.tag = STRING_TYPE; t15260.s0.value.string_type = ""; /* x216427 */ t15260.s1.tag = NULL_TYPE; /* x216428 */ t15259.s1.tag = STRUCTURE_TYPE24753; t15259.s1.value.structure_type24753 = &t15260; /* x216429 */ t15258.s1.tag = STRUCTURE_TYPE24753; t15258.s1.value.structure_type24753 = &t15259; /* x216430 */ t15257.s0.tag = STRUCTURE_TYPE24753; t15257.s0.value.structure_type24753 = &t15258; /* x216431 */ t15262.s0.tag = EXTERNAL_SYMBOL_TYPE; t15262.s0.value.external_symbol_type = q42; /* x216432 */ t15263.s0.tag = EXTERNAL_SYMBOL_TYPE; t15263.s0.value.external_symbol_type = q661; /* x216433 */ t15264.s0.tag = EXTERNAL_SYMBOL_TYPE; t15264.s0.value.external_symbol_type = q534; /* x216434 */ t15264.s1.tag = NULL_TYPE; /* x216435 */ t15263.s1.tag = STRUCTURE_TYPE24753; t15263.s1.value.structure_type24753 = &t15264; /* x216436 */ t15262.s1.tag = STRUCTURE_TYPE24753; t15262.s1.value.structure_type24753 = &t15263; /* x216437 */ t15261.s0.tag = STRUCTURE_TYPE24753; t15261.s0.value.structure_type24753 = &t15262; /* x216438 */ t15266.s0.tag = EXTERNAL_SYMBOL_TYPE; t15266.s0.value.external_symbol_type = q42; /* x216439 */ t15267.s0.tag = EXTERNAL_SYMBOL_TYPE; t15267.s0.value.external_symbol_type = q662; /* x216440 */ t15269.s0.tag = EXTERNAL_SYMBOL_TYPE; t15269.s0.value.external_symbol_type = q11; /* x216441 */ t15270.s0.tag = NULL_TYPE; /* x216442 */ t15270.s1.tag = NULL_TYPE; /* x216443 */ t15269.s1.tag = STRUCTURE_TYPE24753; t15269.s1.value.structure_type24753 = &t15270; /* x216444 */ t15268.s0.tag = STRUCTURE_TYPE24753; t15268.s0.value.structure_type24753 = &t15269; /* x216445 */ t15268.s1.tag = NULL_TYPE; /* x216446 */ t15267.s1.tag = STRUCTURE_TYPE24753; t15267.s1.value.structure_type24753 = &t15268; /* x216447 */ t15266.s1.tag = STRUCTURE_TYPE24753; t15266.s1.value.structure_type24753 = &t15267; /* x216448 */ t15265.s0.tag = STRUCTURE_TYPE24753; t15265.s0.value.structure_type24753 = &t15266; /* x216449 */ t15272.s0.tag = EXTERNAL_SYMBOL_TYPE; t15272.s0.value.external_symbol_type = q42; /* x216450 */ t15273.s0.tag = EXTERNAL_SYMBOL_TYPE; t15273.s0.value.external_symbol_type = q663; /* x216451 */ t15274.s0.tag = FALSE_TYPE; /* x216452 */ t15274.s1.tag = NULL_TYPE; /* x216453 */ t15273.s1.tag = STRUCTURE_TYPE24753; t15273.s1.value.structure_type24753 = &t15274; /* x216454 */ t15272.s1.tag = STRUCTURE_TYPE24753; t15272.s1.value.structure_type24753 = &t15273; /* x216455 */ t15271.s0.tag = STRUCTURE_TYPE24753; t15271.s0.value.structure_type24753 = &t15272; /* x216456 */ t15276.s0.tag = EXTERNAL_SYMBOL_TYPE; t15276.s0.value.external_symbol_type = q42; /* x216457 */ t15277.s0.tag = EXTERNAL_SYMBOL_TYPE; t15277.s0.value.external_symbol_type = q664; /* x216458 */ t15278.s0.tag = FALSE_TYPE; /* x216459 */ t15278.s1.tag = NULL_TYPE; /* x216460 */ t15277.s1.tag = STRUCTURE_TYPE24753; t15277.s1.value.structure_type24753 = &t15278; /* x216461 */ t15276.s1.tag = STRUCTURE_TYPE24753; t15276.s1.value.structure_type24753 = &t15277; /* x216462 */ t15275.s0.tag = STRUCTURE_TYPE24753; t15275.s0.value.structure_type24753 = &t15276; /* x216463 */ t15280.s0.tag = EXTERNAL_SYMBOL_TYPE; t15280.s0.value.external_symbol_type = q42; /* x216464 */ t15281.s0.tag = EXTERNAL_SYMBOL_TYPE; t15281.s0.value.external_symbol_type = q665; /* x216465 */ t15282.s0.tag = TRUE_TYPE; /* x216466 */ t15282.s1.tag = NULL_TYPE; /* x216467 */ t15281.s1.tag = STRUCTURE_TYPE24753; t15281.s1.value.structure_type24753 = &t15282; /* x216468 */ t15280.s1.tag = STRUCTURE_TYPE24753; t15280.s1.value.structure_type24753 = &t15281; /* x216469 */ t15279.s0.tag = STRUCTURE_TYPE24753; t15279.s0.value.structure_type24753 = &t15280; /* x216470 */ t15284.s0.tag = EXTERNAL_SYMBOL_TYPE; t15284.s0.value.external_symbol_type = q242; /* x216471 */ t15287.s0.tag = EXTERNAL_SYMBOL_TYPE; t15287.s0.value.external_symbol_type = q666; /* x216472 */ t15289.s0.tag = EXTERNAL_SYMBOL_TYPE; t15289.s0.value.external_symbol_type = q667; /* x216473 */ t15289.s1.tag = NULL_TYPE; /* x216474 */ t15288.s0.tag = STRUCTURE_TYPE24753; t15288.s0.value.structure_type24753 = &t15289; /* x216475 */ t15288.s1.tag = NULL_TYPE; /* x216476 */ t15287.s1.tag = STRUCTURE_TYPE24753; t15287.s1.value.structure_type24753 = &t15288; /* x216477 */ t15286.s0.tag = STRUCTURE_TYPE24753; t15286.s0.value.structure_type24753 = &t15287; /* x216478 */ t15286.s1.tag = NULL_TYPE; /* x216479 */ t15285.s0.tag = STRUCTURE_TYPE24753; t15285.s0.value.structure_type24753 = &t15286; /* x216480 */ t15291.s0.tag = EXTERNAL_SYMBOL_TYPE; t15291.s0.value.external_symbol_type = q668; /* x216481 */ t15292.s0.tag = EXTERNAL_SYMBOL_TYPE; t15292.s0.value.external_symbol_type = q666; /* x216482 */ t15293.s0.tag = FIXNUM_TYPE; t15293.s0.value.fixnum_type = 1; /* x216483 */ t15293.s1.tag = NULL_TYPE; /* x216484 */ t15292.s1.tag = STRUCTURE_TYPE24753; t15292.s1.value.structure_type24753 = &t15293; /* x216485 */ t15291.s1.tag = STRUCTURE_TYPE24753; t15291.s1.value.structure_type24753 = &t15292; /* x216486 */ t15290.s0.tag = STRUCTURE_TYPE24753; t15290.s0.value.structure_type24753 = &t15291; /* x216487 */ t15295.s0.tag = EXTERNAL_SYMBOL_TYPE; t15295.s0.value.external_symbol_type = q669; /* x216488 */ t15296.s0.tag = EXTERNAL_SYMBOL_TYPE; t15296.s0.value.external_symbol_type = q666; /* x216489 */ t15297.s0.tag = EXTERNAL_SYMBOL_TYPE; t15297.s0.value.external_symbol_type = q670; /* x216490 */ t15297.s1.tag = NULL_TYPE; /* x216491 */ t15296.s1.tag = STRUCTURE_TYPE24753; t15296.s1.value.structure_type24753 = &t15297; /* x216492 */ t15295.s1.tag = STRUCTURE_TYPE24753; t15295.s1.value.structure_type24753 = &t15296; /* x216493 */ t15294.s0.tag = STRUCTURE_TYPE24753; t15294.s0.value.structure_type24753 = &t15295; /* x216494 */ t15299.s0.tag = EXTERNAL_SYMBOL_TYPE; t15299.s0.value.external_symbol_type = q671; /* x216495 */ t15300.s0.tag = EXTERNAL_SYMBOL_TYPE; t15300.s0.value.external_symbol_type = q540; /* x216496 */ t15301.s0.tag = EXTERNAL_SYMBOL_TYPE; t15301.s0.value.external_symbol_type = q578; /* x216497 */ t15302.s0.tag = EXTERNAL_SYMBOL_TYPE; t15302.s0.value.external_symbol_type = q666; /* x216498 */ t15302.s1.tag = NULL_TYPE; /* x216499 */ t15301.s1.tag = STRUCTURE_TYPE24753; t15301.s1.value.structure_type24753 = &t15302; /* x216500 */ t15300.s1.tag = STRUCTURE_TYPE24753; t15300.s1.value.structure_type24753 = &t15301; /* x216501 */ t15299.s1.tag = STRUCTURE_TYPE24753; t15299.s1.value.structure_type24753 = &t15300; /* x216502 */ t15298.s0.tag = STRUCTURE_TYPE24753; t15298.s0.value.structure_type24753 = &t15299; /* x216503 */ t15298.s1.tag = NULL_TYPE; /* x216504 */ t15294.s1.tag = STRUCTURE_TYPE24753; t15294.s1.value.structure_type24753 = &t15298; /* x216505 */ t15290.s1.tag = STRUCTURE_TYPE24753; t15290.s1.value.structure_type24753 = &t15294; /* x216506 */ t15285.s1.tag = STRUCTURE_TYPE24753; t15285.s1.value.structure_type24753 = &t15290; /* x216507 */ t15284.s1.tag = STRUCTURE_TYPE24753; t15284.s1.value.structure_type24753 = &t15285; /* x216508 */ t15283.s0.tag = STRUCTURE_TYPE24753; t15283.s0.value.structure_type24753 = &t15284; /* x216509 */ t15304.s0.tag = EXTERNAL_SYMBOL_TYPE; t15304.s0.value.external_symbol_type = q242; /* x216510 */ t15307.s0.tag = EXTERNAL_SYMBOL_TYPE; t15307.s0.value.external_symbol_type = q666; /* x216511 */ t15309.s0.tag = EXTERNAL_SYMBOL_TYPE; t15309.s0.value.external_symbol_type = q672; /* x216512 */ t15309.s1.tag = NULL_TYPE; /* x216513 */ t15308.s0.tag = STRUCTURE_TYPE24753; t15308.s0.value.structure_type24753 = &t15309; /* x216514 */ t15308.s1.tag = NULL_TYPE; /* x216515 */ t15307.s1.tag = STRUCTURE_TYPE24753; t15307.s1.value.structure_type24753 = &t15308; /* x216516 */ t15306.s0.tag = STRUCTURE_TYPE24753; t15306.s0.value.structure_type24753 = &t15307; /* x216517 */ t15311.s0.tag = EXTERNAL_SYMBOL_TYPE; t15311.s0.value.external_symbol_type = q730; /* x216518 */ t15313.s0.tag = EXTERNAL_SYMBOL_TYPE; t15313.s0.value.external_symbol_type = q43; /* x216519 */ t15314.s0.tag = EXTERNAL_SYMBOL_TYPE; t15314.s0.value.external_symbol_type = q702; /* x216520 */ t15316.s0.tag = EXTERNAL_SYMBOL_TYPE; t15316.s0.value.external_symbol_type = q43; /* x216521 */ t15318.s0.tag = EXTERNAL_SYMBOL_TYPE; t15318.s0.value.external_symbol_type = q125; /* x216522 */ t15319.s0.tag = EXTERNAL_SYMBOL_TYPE; t15319.s0.value.external_symbol_type = q702; /* x216523 */ t15319.s1.tag = NULL_TYPE; /* x216524 */ t15318.s1.tag = STRUCTURE_TYPE24753; t15318.s1.value.structure_type24753 = &t15319; /* x216525 */ t15317.s0.tag = STRUCTURE_TYPE24753; t15317.s0.value.structure_type24753 = &t15318; /* x216526 */ t15321.s0.tag = EXTERNAL_SYMBOL_TYPE; t15321.s0.value.external_symbol_type = q4; /* x216527 */ t15323.s0.tag = EXTERNAL_SYMBOL_TYPE; t15323.s0.value.external_symbol_type = q130; /* x216528 */ t15324.s0.tag = EXTERNAL_SYMBOL_TYPE; t15324.s0.value.external_symbol_type = q703; /* x216529 */ t15326.s0.tag = EXTERNAL_SYMBOL_TYPE; t15326.s0.value.external_symbol_type = q4; /* x216530 */ t15327.s0.tag = EXTERNAL_SYMBOL_TYPE; t15327.s0.value.external_symbol_type = q550; /* x216531 */ t15328.s0.tag = FIXNUM_TYPE; t15328.s0.value.fixnum_type = 4; /* x216532 */ t15328.s1.tag = NULL_TYPE; /* x216533 */ t15327.s1.tag = STRUCTURE_TYPE24753; t15327.s1.value.structure_type24753 = &t15328; /* x216534 */ t15326.s1.tag = STRUCTURE_TYPE24753; t15326.s1.value.structure_type24753 = &t15327; /* x216535 */ t15325.s0.tag = STRUCTURE_TYPE24753; t15325.s0.value.structure_type24753 = &t15326; /* x216536 */ t15325.s1.tag = NULL_TYPE; /* x216537 */ t15324.s1.tag = STRUCTURE_TYPE24753; t15324.s1.value.structure_type24753 = &t15325; /* x216538 */ t15323.s1.tag = STRUCTURE_TYPE24753; t15323.s1.value.structure_type24753 = &t15324; /* x216539 */ t15322.s0.tag = STRUCTURE_TYPE24753; t15322.s0.value.structure_type24753 = &t15323; /* x216540 */ t15329.s0.tag = EXTERNAL_SYMBOL_TYPE; t15329.s0.value.external_symbol_type = q576; /* x216541 */ t15330.s0.tag = EXTERNAL_SYMBOL_TYPE; t15330.s0.value.external_symbol_type = q709; /* x216542 */ t15331.s0.tag = EXTERNAL_SYMBOL_TYPE; t15331.s0.value.external_symbol_type = q577; /* x216543 */ t15332.s0.tag = FIXNUM_TYPE; t15332.s0.value.fixnum_type = 14; /* x216544 */ t15332.s1.tag = NULL_TYPE; /* x216545 */ t15331.s1.tag = STRUCTURE_TYPE24753; t15331.s1.value.structure_type24753 = &t15332; /* x216546 */ t15330.s1.tag = STRUCTURE_TYPE24753; t15330.s1.value.structure_type24753 = &t15331; /* x216547 */ t15329.s1.tag = STRUCTURE_TYPE24753; t15329.s1.value.structure_type24753 = &t15330; /* x216548 */ t15322.s1.tag = STRUCTURE_TYPE24753; t15322.s1.value.structure_type24753 = &t15329; /* x216549 */ t15321.s1.tag = STRUCTURE_TYPE24753; t15321.s1.value.structure_type24753 = &t15322; /* x216550 */ t15320.s0.tag = STRUCTURE_TYPE24753; t15320.s0.value.structure_type24753 = &t15321; /* x216551 */ t15334.s0.tag = EXTERNAL_SYMBOL_TYPE; t15334.s0.value.external_symbol_type = q4; /* x216552 */ t15336.s0.tag = EXTERNAL_SYMBOL_TYPE; t15336.s0.value.external_symbol_type = q130; /* x216553 */ t15337.s0.tag = EXTERNAL_SYMBOL_TYPE; t15337.s0.value.external_symbol_type = q703; /* x216554 */ t15339.s0.tag = EXTERNAL_SYMBOL_TYPE; t15339.s0.value.external_symbol_type = q4; /* x216555 */ t15340.s0.tag = EXTERNAL_SYMBOL_TYPE; t15340.s0.value.external_symbol_type = q550; /* x216556 */ t15341.s0.tag = FIXNUM_TYPE; t15341.s0.value.fixnum_type = 4; /* x216557 */ t15341.s1.tag = NULL_TYPE; /* x216558 */ t15340.s1.tag = STRUCTURE_TYPE24753; t15340.s1.value.structure_type24753 = &t15341; /* x216559 */ t15339.s1.tag = STRUCTURE_TYPE24753; t15339.s1.value.structure_type24753 = &t15340; /* x216560 */ t15338.s0.tag = STRUCTURE_TYPE24753; t15338.s0.value.structure_type24753 = &t15339; /* x216561 */ t15338.s1.tag = NULL_TYPE; /* x216562 */ t15337.s1.tag = STRUCTURE_TYPE24753; t15337.s1.value.structure_type24753 = &t15338; /* x216563 */ t15336.s1.tag = STRUCTURE_TYPE24753; t15336.s1.value.structure_type24753 = &t15337; /* x216564 */ t15335.s0.tag = STRUCTURE_TYPE24753; t15335.s0.value.structure_type24753 = &t15336; /* x216565 */ t15342.s0.tag = EXTERNAL_SYMBOL_TYPE; t15342.s0.value.external_symbol_type = q576; /* x216566 */ t15343.s0.tag = EXTERNAL_SYMBOL_TYPE; t15343.s0.value.external_symbol_type = q708; /* x216567 */ t15344.s0.tag = EXTERNAL_SYMBOL_TYPE; t15344.s0.value.external_symbol_type = q709; /* x216568 */ t15345.s0.tag = EXTERNAL_SYMBOL_TYPE; t15345.s0.value.external_symbol_type = q577; /* x216569 */ t15346.s0.tag = FIXNUM_TYPE; t15346.s0.value.fixnum_type = 18; /* x216570 */ t15346.s1.tag = NULL_TYPE; /* x216571 */ t15345.s1.tag = STRUCTURE_TYPE24753; t15345.s1.value.structure_type24753 = &t15346; /* x216572 */ t15344.s1.tag = STRUCTURE_TYPE24753; t15344.s1.value.structure_type24753 = &t15345; /* x216573 */ t15343.s1.tag = STRUCTURE_TYPE24753; t15343.s1.value.structure_type24753 = &t15344; /* x216574 */ t15342.s1.tag = STRUCTURE_TYPE24753; t15342.s1.value.structure_type24753 = &t15343; /* x216575 */ t15335.s1.tag = STRUCTURE_TYPE24753; t15335.s1.value.structure_type24753 = &t15342; /* x216576 */ t15334.s1.tag = STRUCTURE_TYPE24753; t15334.s1.value.structure_type24753 = &t15335; /* x216577 */ t15333.s0.tag = STRUCTURE_TYPE24753; t15333.s0.value.structure_type24753 = &t15334; /* x216578 */ t15333.s1.tag = NULL_TYPE; /* x216579 */ t15320.s1.tag = STRUCTURE_TYPE24753; t15320.s1.value.structure_type24753 = &t15333; /* x216580 */ t15317.s1.tag = STRUCTURE_TYPE24753; t15317.s1.value.structure_type24753 = &t15320; /* x216581 */ t15316.s1.tag = STRUCTURE_TYPE24753; t15316.s1.value.structure_type24753 = &t15317; /* x216582 */ t15315.s0.tag = STRUCTURE_TYPE24753; t15315.s0.value.structure_type24753 = &t15316; /* x216583 */ t15348.s0.tag = EXTERNAL_SYMBOL_TYPE; t15348.s0.value.external_symbol_type = q4; /* x216584 */ t15350.s0.tag = EXTERNAL_SYMBOL_TYPE; t15350.s0.value.external_symbol_type = q130; /* x216585 */ t15351.s0.tag = EXTERNAL_SYMBOL_TYPE; t15351.s0.value.external_symbol_type = q703; /* x216586 */ t15353.s0.tag = EXTERNAL_SYMBOL_TYPE; t15353.s0.value.external_symbol_type = q4; /* x216587 */ t15354.s0.tag = EXTERNAL_SYMBOL_TYPE; t15354.s0.value.external_symbol_type = q550; /* x216588 */ t15355.s0.tag = FIXNUM_TYPE; t15355.s0.value.fixnum_type = 4; /* x216589 */ t15355.s1.tag = NULL_TYPE; /* x216590 */ t15354.s1.tag = STRUCTURE_TYPE24753; t15354.s1.value.structure_type24753 = &t15355; /* x216591 */ t15353.s1.tag = STRUCTURE_TYPE24753; t15353.s1.value.structure_type24753 = &t15354; /* x216592 */ t15352.s0.tag = STRUCTURE_TYPE24753; t15352.s0.value.structure_type24753 = &t15353; /* x216593 */ t15352.s1.tag = NULL_TYPE; /* x216594 */ t15351.s1.tag = STRUCTURE_TYPE24753; t15351.s1.value.structure_type24753 = &t15352; /* x216595 */ t15350.s1.tag = STRUCTURE_TYPE24753; t15350.s1.value.structure_type24753 = &t15351; /* x216596 */ t15349.s0.tag = STRUCTURE_TYPE24753; t15349.s0.value.structure_type24753 = &t15350; /* x216597 */ t15356.s0.tag = EXTERNAL_SYMBOL_TYPE; t15356.s0.value.external_symbol_type = q576; /* x216598 */ t15357.s0.tag = EXTERNAL_SYMBOL_TYPE; t15357.s0.value.external_symbol_type = q577; /* x216599 */ t15358.s0.tag = FIXNUM_TYPE; t15358.s0.value.fixnum_type = 10; /* x216600 */ t15358.s1.tag = NULL_TYPE; /* x216601 */ t15357.s1.tag = STRUCTURE_TYPE24753; t15357.s1.value.structure_type24753 = &t15358; /* x216602 */ t15356.s1.tag = STRUCTURE_TYPE24753; t15356.s1.value.structure_type24753 = &t15357; /* x216603 */ t15349.s1.tag = STRUCTURE_TYPE24753; t15349.s1.value.structure_type24753 = &t15356; /* x216604 */ t15348.s1.tag = STRUCTURE_TYPE24753; t15348.s1.value.structure_type24753 = &t15349; /* x216605 */ t15347.s0.tag = STRUCTURE_TYPE24753; t15347.s0.value.structure_type24753 = &t15348; /* x216606 */ t15347.s1.tag = NULL_TYPE; /* x216607 */ t15315.s1.tag = STRUCTURE_TYPE24753; t15315.s1.value.structure_type24753 = &t15347; /* x216608 */ t15314.s1.tag = STRUCTURE_TYPE24753; t15314.s1.value.structure_type24753 = &t15315; /* x216609 */ t15313.s1.tag = STRUCTURE_TYPE24753; t15313.s1.value.structure_type24753 = &t15314; /* x216610 */ t15312.s0.tag = STRUCTURE_TYPE24753; t15312.s0.value.structure_type24753 = &t15313; /* x216611 */ t15312.s1.tag = NULL_TYPE; /* x216612 */ t15311.s1.tag = STRUCTURE_TYPE24753; t15311.s1.value.structure_type24753 = &t15312; /* x216613 */ t15310.s0.tag = STRUCTURE_TYPE24753; t15310.s0.value.structure_type24753 = &t15311; /* x216614 */ t15310.s1.tag = NULL_TYPE; /* x216615 */ t15306.s1.tag = STRUCTURE_TYPE24753; t15306.s1.value.structure_type24753 = &t15310; /* x216616 */ t15305.s0.tag = STRUCTURE_TYPE24753; t15305.s0.value.structure_type24753 = &t15306; /* x216617 */ t15360.s0.tag = EXTERNAL_SYMBOL_TYPE; t15360.s0.value.external_symbol_type = q493; /* x216618 */ t15361.s0.tag = EXTERNAL_SYMBOL_TYPE; t15361.s0.value.external_symbol_type = q673; /* x216619 */ t15363.s0.tag = EXTERNAL_SYMBOL_TYPE; t15363.s0.value.external_symbol_type = q674; /* x216620 */ t15364.s0.tag = EXTERNAL_SYMBOL_TYPE; t15364.s0.value.external_symbol_type = q666; /* x216621 */ t15365.s0.tag = EXTERNAL_SYMBOL_TYPE; t15365.s0.value.external_symbol_type = q580; /* x216622 */ t15365.s1.tag = NULL_TYPE; /* x216623 */ t15364.s1.tag = STRUCTURE_TYPE24753; t15364.s1.value.structure_type24753 = &t15365; /* x216624 */ t15363.s1.tag = STRUCTURE_TYPE24753; t15363.s1.value.structure_type24753 = &t15364; /* x216625 */ t15362.s0.tag = STRUCTURE_TYPE24753; t15362.s0.value.structure_type24753 = &t15363; /* x216626 */ t15367.s0.tag = EXTERNAL_SYMBOL_TYPE; t15367.s0.value.external_symbol_type = q675; /* x216627 */ t15368.s0.tag = EXTERNAL_SYMBOL_TYPE; t15368.s0.value.external_symbol_type = q666; /* x216628 */ t15369.s0.tag = EXTERNAL_SYMBOL_TYPE; t15369.s0.value.external_symbol_type = q581; /* x216629 */ t15369.s1.tag = NULL_TYPE; /* x216630 */ t15368.s1.tag = STRUCTURE_TYPE24753; t15368.s1.value.structure_type24753 = &t15369; /* x216631 */ t15367.s1.tag = STRUCTURE_TYPE24753; t15367.s1.value.structure_type24753 = &t15368; /* x216632 */ t15366.s0.tag = STRUCTURE_TYPE24753; t15366.s0.value.structure_type24753 = &t15367; /* x216633 */ t15366.s1.tag = NULL_TYPE; /* x216634 */ t15362.s1.tag = STRUCTURE_TYPE24753; t15362.s1.value.structure_type24753 = &t15366; /* x216635 */ t15361.s1.tag = STRUCTURE_TYPE24753; t15361.s1.value.structure_type24753 = &t15362; /* x216636 */ t15360.s1.tag = STRUCTURE_TYPE24753; t15360.s1.value.structure_type24753 = &t15361; /* x216637 */ t15359.s0.tag = STRUCTURE_TYPE24753; t15359.s0.value.structure_type24753 = &t15360; /* x216638 */ t15371.s0.tag = EXTERNAL_SYMBOL_TYPE; t15371.s0.value.external_symbol_type = q676; /* x216639 */ t15372.s0.tag = EXTERNAL_SYMBOL_TYPE; t15372.s0.value.external_symbol_type = q666; /* x216640 */ t15373.s0.tag = EXTERNAL_SYMBOL_TYPE; t15373.s0.value.external_symbol_type = q706; /* x216641 */ t15373.s1.tag = NULL_TYPE; /* x216642 */ t15372.s1.tag = STRUCTURE_TYPE24753; t15372.s1.value.structure_type24753 = &t15373; /* x216643 */ t15371.s1.tag = STRUCTURE_TYPE24753; t15371.s1.value.structure_type24753 = &t15372; /* x216644 */ t15370.s0.tag = STRUCTURE_TYPE24753; t15370.s0.value.structure_type24753 = &t15371; /* x216645 */ t15375.s0.tag = EXTERNAL_SYMBOL_TYPE; t15375.s0.value.external_symbol_type = q677; /* x216646 */ t15376.s0.tag = EXTERNAL_SYMBOL_TYPE; t15376.s0.value.external_symbol_type = q666; /* x216647 */ t15377.s0.tag = EXTERNAL_SYMBOL_TYPE; t15377.s0.value.external_symbol_type = q706; /* x216648 */ t15377.s1.tag = NULL_TYPE; /* x216649 */ t15376.s1.tag = STRUCTURE_TYPE24753; t15376.s1.value.structure_type24753 = &t15377; /* x216650 */ t15375.s1.tag = STRUCTURE_TYPE24753; t15375.s1.value.structure_type24753 = &t15376; /* x216651 */ t15374.s0.tag = STRUCTURE_TYPE24753; t15374.s0.value.structure_type24753 = &t15375; /* x216652 */ t15379.s0.tag = EXTERNAL_SYMBOL_TYPE; t15379.s0.value.external_symbol_type = q678; /* x216653 */ t15380.s0.tag = EXTERNAL_SYMBOL_TYPE; t15380.s0.value.external_symbol_type = q666; /* x216654 */ t15381.s0.tag = EXTERNAL_SYMBOL_TYPE; t15381.s0.value.external_symbol_type = q730; /* x216655 */ t15381.s1.tag = NULL_TYPE; /* x216656 */ t15380.s1.tag = STRUCTURE_TYPE24753; t15380.s1.value.structure_type24753 = &t15381; /* x216657 */ t15379.s1.tag = STRUCTURE_TYPE24753; t15379.s1.value.structure_type24753 = &t15380; /* x216658 */ t15378.s0.tag = STRUCTURE_TYPE24753; t15378.s0.value.structure_type24753 = &t15379; /* x216659 */ t15383.s0.tag = EXTERNAL_SYMBOL_TYPE; t15383.s0.value.external_symbol_type = q679; /* x216660 */ t15384.s0.tag = EXTERNAL_SYMBOL_TYPE; t15384.s0.value.external_symbol_type = q666; /* x216661 */ t15385.s0.tag = EXTERNAL_SYMBOL_TYPE; t15385.s0.value.external_symbol_type = q730; /* x216662 */ t15385.s1.tag = NULL_TYPE; /* x216663 */ t15384.s1.tag = STRUCTURE_TYPE24753; t15384.s1.value.structure_type24753 = &t15385; /* x216664 */ t15383.s1.tag = STRUCTURE_TYPE24753; t15383.s1.value.structure_type24753 = &t15384; /* x216665 */ t15382.s0.tag = STRUCTURE_TYPE24753; t15382.s0.value.structure_type24753 = &t15383; /* x216666 */ t15387.s0.tag = EXTERNAL_SYMBOL_TYPE; t15387.s0.value.external_symbol_type = q680; /* x216667 */ t15388.s0.tag = EXTERNAL_SYMBOL_TYPE; t15388.s0.value.external_symbol_type = q666; /* x216668 */ t15390.s0.tag = EXTERNAL_SYMBOL_TYPE; t15390.s0.value.external_symbol_type = q43; /* x216669 */ t15391.s0.tag = EXTERNAL_SYMBOL_TYPE; t15391.s0.value.external_symbol_type = q673; /* x216670 */ t15393.s0.tag = EXTERNAL_SYMBOL_TYPE; t15393.s0.value.external_symbol_type = q4; /* x216671 */ t15394.s0.tag = EXTERNAL_SYMBOL_TYPE; t15394.s0.value.external_symbol_type = q681; /* x216672 */ t15395.s0.tag = EXTERNAL_SYMBOL_TYPE; t15395.s0.value.external_symbol_type = q682; /* x216673 */ t15396.s0.tag = EXTERNAL_SYMBOL_TYPE; t15396.s0.value.external_symbol_type = q683; /* x216674 */ t15397.s0.tag = EXTERNAL_SYMBOL_TYPE; t15397.s0.value.external_symbol_type = q684; /* x216675 */ t15397.s1.tag = NULL_TYPE; /* x216676 */ t15396.s1.tag = STRUCTURE_TYPE24753; t15396.s1.value.structure_type24753 = &t15397; /* x216677 */ t15395.s1.tag = STRUCTURE_TYPE24753; t15395.s1.value.structure_type24753 = &t15396; /* x216678 */ t15394.s1.tag = STRUCTURE_TYPE24753; t15394.s1.value.structure_type24753 = &t15395; /* x216679 */ t15393.s1.tag = STRUCTURE_TYPE24753; t15393.s1.value.structure_type24753 = &t15394; /* x216680 */ t15392.s0.tag = STRUCTURE_TYPE24753; t15392.s0.value.structure_type24753 = &t15393; /* x216681 */ t15399.s0.tag = EXTERNAL_SYMBOL_TYPE; t15399.s0.value.external_symbol_type = q4; /* x216682 */ t15400.s0.tag = EXTERNAL_SYMBOL_TYPE; t15400.s0.value.external_symbol_type = q683; /* x216683 */ t15401.s0.tag = EXTERNAL_SYMBOL_TYPE; t15401.s0.value.external_symbol_type = q684; /* x216684 */ t15401.s1.tag = NULL_TYPE; /* x216685 */ t15400.s1.tag = STRUCTURE_TYPE24753; t15400.s1.value.structure_type24753 = &t15401; /* x216686 */ t15399.s1.tag = STRUCTURE_TYPE24753; t15399.s1.value.structure_type24753 = &t15400; /* x216687 */ t15398.s0.tag = STRUCTURE_TYPE24753; t15398.s0.value.structure_type24753 = &t15399; /* x216688 */ t15398.s1.tag = NULL_TYPE; /* x216689 */ t15392.s1.tag = STRUCTURE_TYPE24753; t15392.s1.value.structure_type24753 = &t15398; /* x216690 */ t15391.s1.tag = STRUCTURE_TYPE24753; t15391.s1.value.structure_type24753 = &t15392; /* x216691 */ t15390.s1.tag = STRUCTURE_TYPE24753; t15390.s1.value.structure_type24753 = &t15391; /* x216692 */ t15389.s0.tag = STRUCTURE_TYPE24753; t15389.s0.value.structure_type24753 = &t15390; /* x216693 */ t15389.s1.tag = NULL_TYPE; /* x216694 */ t15388.s1.tag = STRUCTURE_TYPE24753; t15388.s1.value.structure_type24753 = &t15389; /* x216695 */ t15387.s1.tag = STRUCTURE_TYPE24753; t15387.s1.value.structure_type24753 = &t15388; /* x216696 */ t15386.s0.tag = STRUCTURE_TYPE24753; t15386.s0.value.structure_type24753 = &t15387; /* x216697 */ t15403.s0.tag = EXTERNAL_SYMBOL_TYPE; t15403.s0.value.external_symbol_type = q685; /* x216698 */ t15404.s0.tag = EXTERNAL_SYMBOL_TYPE; t15404.s0.value.external_symbol_type = q540; /* x216699 */ t15405.s0.tag = EXTERNAL_SYMBOL_TYPE; t15405.s0.value.external_symbol_type = q578; /* x216700 */ t15406.s0.tag = EXTERNAL_SYMBOL_TYPE; t15406.s0.value.external_symbol_type = q666; /* x216701 */ t15406.s1.tag = NULL_TYPE; /* x216702 */ t15405.s1.tag = STRUCTURE_TYPE24753; t15405.s1.value.structure_type24753 = &t15406; /* x216703 */ t15404.s1.tag = STRUCTURE_TYPE24753; t15404.s1.value.structure_type24753 = &t15405; /* x216704 */ t15403.s1.tag = STRUCTURE_TYPE24753; t15403.s1.value.structure_type24753 = &t15404; /* x216705 */ t15402.s0.tag = STRUCTURE_TYPE24753; t15402.s0.value.structure_type24753 = &t15403; /* x216706 */ t15402.s1.tag = NULL_TYPE; /* x216707 */ t15386.s1.tag = STRUCTURE_TYPE24753; t15386.s1.value.structure_type24753 = &t15402; /* x216708 */ t15382.s1.tag = STRUCTURE_TYPE24753; t15382.s1.value.structure_type24753 = &t15386; /* x216709 */ t15378.s1.tag = STRUCTURE_TYPE24753; t15378.s1.value.structure_type24753 = &t15382; /* x216710 */ t15374.s1.tag = STRUCTURE_TYPE24753; t15374.s1.value.structure_type24753 = &t15378; /* x216711 */ t15370.s1.tag = STRUCTURE_TYPE24753; t15370.s1.value.structure_type24753 = &t15374; /* x216712 */ t15359.s1.tag = STRUCTURE_TYPE24753; t15359.s1.value.structure_type24753 = &t15370; /* x216713 */ t15305.s1.tag = STRUCTURE_TYPE24753; t15305.s1.value.structure_type24753 = &t15359; /* x216714 */ t15304.s1.tag = STRUCTURE_TYPE24753; t15304.s1.value.structure_type24753 = &t15305; /* x216715 */ t15303.s0.tag = STRUCTURE_TYPE24753; t15303.s0.value.structure_type24753 = &t15304; /* x216716 */ t15408.s0.tag = EXTERNAL_SYMBOL_TYPE; t15408.s0.value.external_symbol_type = q531; /* x216717 */ t15408.s1.tag = NULL_TYPE; /* x216718 */ t15407.s0.tag = STRUCTURE_TYPE24753; t15407.s0.value.structure_type24753 = &t15408; /* x216719 */ t15410.s0.tag = EXTERNAL_SYMBOL_TYPE; t15410.s0.value.external_symbol_type = q686; /* x216720 */ t15411.s0.tag = EXTERNAL_SYMBOL_TYPE; t15411.s0.value.external_symbol_type = q587; /* x216721 */ t15413.s0.tag = EXTERNAL_SYMBOL_TYPE; t15413.s0.value.external_symbol_type = q11; /* x216722 */ t15414.s0.tag = EXTERNAL_SYMBOL_TYPE; t15414.s0.value.external_symbol_type = q29; /* x216723 */ t15414.s1.tag = NULL_TYPE; /* x216724 */ t15413.s1.tag = STRUCTURE_TYPE24753; t15413.s1.value.structure_type24753 = &t15414; /* x216725 */ t15412.s0.tag = STRUCTURE_TYPE24753; t15412.s0.value.structure_type24753 = &t15413; /* x216726 */ t15415.s0.tag = EXTERNAL_SYMBOL_TYPE; t15415.s0.value.external_symbol_type = q687; /* x216727 */ t15415.s1.tag = NULL_TYPE; /* x216728 */ t15412.s1.tag = STRUCTURE_TYPE24753; t15412.s1.value.structure_type24753 = &t15415; /* x216729 */ t15411.s1.tag = STRUCTURE_TYPE24753; t15411.s1.value.structure_type24753 = &t15412; /* x216730 */ t15410.s1.tag = STRUCTURE_TYPE24753; t15410.s1.value.structure_type24753 = &t15411; /* x216731 */ t15409.s0.tag = STRUCTURE_TYPE24753; t15409.s0.value.structure_type24753 = &t15410; /* x216732 */ t15417.s0.tag = EXTERNAL_SYMBOL_TYPE; t15417.s0.value.external_symbol_type = q686; /* x216733 */ t15418.s0.tag = EXTERNAL_SYMBOL_TYPE; t15418.s0.value.external_symbol_type = q587; /* x216734 */ t15420.s0.tag = EXTERNAL_SYMBOL_TYPE; t15420.s0.value.external_symbol_type = q11; /* x216735 */ t15421.s0.tag = EXTERNAL_SYMBOL_TYPE; t15421.s0.value.external_symbol_type = q31; /* x216736 */ t15421.s1.tag = NULL_TYPE; /* x216737 */ t15420.s1.tag = STRUCTURE_TYPE24753; t15420.s1.value.structure_type24753 = &t15421; /* x216738 */ t15419.s0.tag = STRUCTURE_TYPE24753; t15419.s0.value.structure_type24753 = &t15420; /* x216739 */ t15422.s0.tag = EXTERNAL_SYMBOL_TYPE; t15422.s0.value.external_symbol_type = q688; /* x216740 */ t15422.s1.tag = NULL_TYPE; /* x216741 */ t15419.s1.tag = STRUCTURE_TYPE24753; t15419.s1.value.structure_type24753 = &t15422; /* x216742 */ t15418.s1.tag = STRUCTURE_TYPE24753; t15418.s1.value.structure_type24753 = &t15419; /* x216743 */ t15417.s1.tag = STRUCTURE_TYPE24753; t15417.s1.value.structure_type24753 = &t15418; /* x216744 */ t15416.s0.tag = STRUCTURE_TYPE24753; t15416.s0.value.structure_type24753 = &t15417; /* x216745 */ t15424.s0.tag = EXTERNAL_SYMBOL_TYPE; t15424.s0.value.external_symbol_type = q493; /* x216746 */ t15425.s0.tag = EXTERNAL_SYMBOL_TYPE; t15425.s0.value.external_symbol_type = q536; /* x216747 */ t15427.s0.tag = EXTERNAL_SYMBOL_TYPE; t15427.s0.value.external_symbol_type = q686; /* x216748 */ t15428.s0.tag = EXTERNAL_SYMBOL_TYPE; t15428.s0.value.external_symbol_type = q536; /* x216749 */ t15430.s0.tag = EXTERNAL_SYMBOL_TYPE; t15430.s0.value.external_symbol_type = q11; /* x216750 */ t15431.s0.tag = EXTERNAL_SYMBOL_TYPE; t15431.s0.value.external_symbol_type = q29; /* x216751 */ t15431.s1.tag = NULL_TYPE; /* x216752 */ t15430.s1.tag = STRUCTURE_TYPE24753; t15430.s1.value.structure_type24753 = &t15431; /* x216753 */ t15429.s0.tag = STRUCTURE_TYPE24753; t15429.s0.value.structure_type24753 = &t15430; /* x216754 */ t15432.s0.tag = EXTERNAL_SYMBOL_TYPE; t15432.s0.value.external_symbol_type = q689; /* x216755 */ t15432.s1.tag = NULL_TYPE; /* x216756 */ t15429.s1.tag = STRUCTURE_TYPE24753; t15429.s1.value.structure_type24753 = &t15432; /* x216757 */ t15428.s1.tag = STRUCTURE_TYPE24753; t15428.s1.value.structure_type24753 = &t15429; /* x216758 */ t15427.s1.tag = STRUCTURE_TYPE24753; t15427.s1.value.structure_type24753 = &t15428; /* x216759 */ t15426.s0.tag = STRUCTURE_TYPE24753; t15426.s0.value.structure_type24753 = &t15427; /* x216760 */ t15426.s1.tag = NULL_TYPE; /* x216761 */ t15425.s1.tag = STRUCTURE_TYPE24753; t15425.s1.value.structure_type24753 = &t15426; /* x216762 */ t15424.s1.tag = STRUCTURE_TYPE24753; t15424.s1.value.structure_type24753 = &t15425; /* x216763 */ t15423.s0.tag = STRUCTURE_TYPE24753; t15423.s0.value.structure_type24753 = &t15424; /* x216764 */ t15434.s0.tag = EXTERNAL_SYMBOL_TYPE; t15434.s0.value.external_symbol_type = q493; /* x216765 */ t15435.s0.tag = EXTERNAL_SYMBOL_TYPE; t15435.s0.value.external_symbol_type = q537; /* x216766 */ t15437.s0.tag = EXTERNAL_SYMBOL_TYPE; t15437.s0.value.external_symbol_type = q686; /* x216767 */ t15438.s0.tag = EXTERNAL_SYMBOL_TYPE; t15438.s0.value.external_symbol_type = q537; /* x216768 */ t15440.s0.tag = EXTERNAL_SYMBOL_TYPE; t15440.s0.value.external_symbol_type = q11; /* x216769 */ t15441.s0.tag = EXTERNAL_SYMBOL_TYPE; t15441.s0.value.external_symbol_type = q29; /* x216770 */ t15441.s1.tag = NULL_TYPE; /* x216771 */ t15440.s1.tag = STRUCTURE_TYPE24753; t15440.s1.value.structure_type24753 = &t15441; /* x216772 */ t15439.s0.tag = STRUCTURE_TYPE24753; t15439.s0.value.structure_type24753 = &t15440; /* x216773 */ t15442.s0.tag = EXTERNAL_SYMBOL_TYPE; t15442.s0.value.external_symbol_type = q690; /* x216774 */ t15442.s1.tag = NULL_TYPE; /* x216775 */ t15439.s1.tag = STRUCTURE_TYPE24753; t15439.s1.value.structure_type24753 = &t15442; /* x216776 */ t15438.s1.tag = STRUCTURE_TYPE24753; t15438.s1.value.structure_type24753 = &t15439; /* x216777 */ t15437.s1.tag = STRUCTURE_TYPE24753; t15437.s1.value.structure_type24753 = &t15438; /* x216778 */ t15436.s0.tag = STRUCTURE_TYPE24753; t15436.s0.value.structure_type24753 = &t15437; /* x216779 */ t15436.s1.tag = NULL_TYPE; /* x216780 */ t15435.s1.tag = STRUCTURE_TYPE24753; t15435.s1.value.structure_type24753 = &t15436; /* x216781 */ t15434.s1.tag = STRUCTURE_TYPE24753; t15434.s1.value.structure_type24753 = &t15435; /* x216782 */ t15433.s0.tag = STRUCTURE_TYPE24753; t15433.s0.value.structure_type24753 = &t15434; /* x216783 */ t15444.s0.tag = EXTERNAL_SYMBOL_TYPE; t15444.s0.value.external_symbol_type = q686; /* x216784 */ t15445.s0.tag = EXTERNAL_SYMBOL_TYPE; t15445.s0.value.external_symbol_type = q538; /* x216785 */ t15447.s0.tag = EXTERNAL_SYMBOL_TYPE; t15447.s0.value.external_symbol_type = q11; /* x216786 */ t15448.s0.tag = EXTERNAL_SYMBOL_TYPE; t15448.s0.value.external_symbol_type = q29; /* x216787 */ t15448.s1.tag = NULL_TYPE; /* x216788 */ t15447.s1.tag = STRUCTURE_TYPE24753; t15447.s1.value.structure_type24753 = &t15448; /* x216789 */ t15446.s0.tag = STRUCTURE_TYPE24753; t15446.s0.value.structure_type24753 = &t15447; /* x216790 */ t15449.s0.tag = EXTERNAL_SYMBOL_TYPE; t15449.s0.value.external_symbol_type = q731; /* x216791 */ t15449.s1.tag = NULL_TYPE; /* x216792 */ t15446.s1.tag = STRUCTURE_TYPE24753; t15446.s1.value.structure_type24753 = &t15449; /* x216793 */ t15445.s1.tag = STRUCTURE_TYPE24753; t15445.s1.value.structure_type24753 = &t15446; /* x216794 */ t15444.s1.tag = STRUCTURE_TYPE24753; t15444.s1.value.structure_type24753 = &t15445; /* x216795 */ t15443.s0.tag = STRUCTURE_TYPE24753; t15443.s0.value.structure_type24753 = &t15444; /* x216796 */ t15451.s0.tag = EXTERNAL_SYMBOL_TYPE; t15451.s0.value.external_symbol_type = q686; /* x216797 */ t15452.s0.tag = EXTERNAL_SYMBOL_TYPE; t15452.s0.value.external_symbol_type = q539; /* x216798 */ t15454.s0.tag = EXTERNAL_SYMBOL_TYPE; t15454.s0.value.external_symbol_type = q11; /* x216799 */ t15455.s0.tag = EXTERNAL_SYMBOL_TYPE; t15455.s0.value.external_symbol_type = q29; /* x216800 */ t15455.s1.tag = NULL_TYPE; /* x216801 */ t15454.s1.tag = STRUCTURE_TYPE24753; t15454.s1.value.structure_type24753 = &t15455; /* x216802 */ t15453.s0.tag = STRUCTURE_TYPE24753; t15453.s0.value.structure_type24753 = &t15454; /* x216803 */ t15456.s0.tag = EXTERNAL_SYMBOL_TYPE; t15456.s0.value.external_symbol_type = q732; /* x216804 */ t15456.s1.tag = NULL_TYPE; /* x216805 */ t15453.s1.tag = STRUCTURE_TYPE24753; t15453.s1.value.structure_type24753 = &t15456; /* x216806 */ t15452.s1.tag = STRUCTURE_TYPE24753; t15452.s1.value.structure_type24753 = &t15453; /* x216807 */ t15451.s1.tag = STRUCTURE_TYPE24753; t15451.s1.value.structure_type24753 = &t15452; /* x216808 */ t15450.s0.tag = STRUCTURE_TYPE24753; t15450.s0.value.structure_type24753 = &t15451; /* x216809 */ t15458.s0.tag = EXTERNAL_SYMBOL_TYPE; t15458.s0.value.external_symbol_type = q42; /* x216810 */ t15459.s0.tag = EXTERNAL_SYMBOL_TYPE; t15459.s0.value.external_symbol_type = q691; /* x216811 */ t15461.s0.tag = EXTERNAL_SYMBOL_TYPE; t15461.s0.value.external_symbol_type = q39; /* x216812 */ t15462.s0.tag = NULL_TYPE; /* x216813 */ t15464.s0.tag = EXTERNAL_SYMBOL_TYPE; t15464.s0.value.external_symbol_type = q42; /* x216814 */ t15465.s0.tag = EXTERNAL_SYMBOL_TYPE; t15465.s0.value.external_symbol_type = q691; /* x216815 */ t15467.s0.tag = EXTERNAL_SYMBOL_TYPE; t15467.s0.value.external_symbol_type = q39; /* x216816 */ t15468.s0.tag = NULL_TYPE; /* x216817 */ t15469.s0.tag = TRUE_TYPE; /* x216818 */ t15469.s1.tag = NULL_TYPE; /* x216819 */ t15468.s1.tag = STRUCTURE_TYPE24753; t15468.s1.value.structure_type24753 = &t15469; /* x216820 */ t15467.s1.tag = STRUCTURE_TYPE24753; t15467.s1.value.structure_type24753 = &t15468; /* x216821 */ t15466.s0.tag = STRUCTURE_TYPE24753; t15466.s0.value.structure_type24753 = &t15467; /* x216822 */ t15466.s1.tag = NULL_TYPE; /* x216823 */ t15465.s1.tag = STRUCTURE_TYPE24753; t15465.s1.value.structure_type24753 = &t15466; /* x216824 */ t15464.s1.tag = STRUCTURE_TYPE24753; t15464.s1.value.structure_type24753 = &t15465; /* x216825 */ t15463.s0.tag = STRUCTURE_TYPE24753; t15463.s0.value.structure_type24753 = &t15464; /* x216826 */ t15471.s0.tag = EXTERNAL_SYMBOL_TYPE; t15471.s0.value.external_symbol_type = q533; /* x216827 */ t15471.s1.tag = NULL_TYPE; /* x216828 */ t15470.s0.tag = STRUCTURE_TYPE24753; t15470.s0.value.structure_type24753 = &t15471; /* x216829 */ t15473.s0.tag = EXTERNAL_SYMBOL_TYPE; t15473.s0.value.external_symbol_type = q493; /* x216830 */ t15474.s0.tag = EXTERNAL_SYMBOL_TYPE; t15474.s0.value.external_symbol_type = q540; /* x216831 */ t15476.s0.tag = EXTERNAL_SYMBOL_TYPE; t15476.s0.value.external_symbol_type = q692; /* x216832 */ t15477.s0.tag = EXTERNAL_SYMBOL_TYPE; t15477.s0.value.external_symbol_type = q540; /* x216833 */ t15478.s0.tag = EXTERNAL_SYMBOL_TYPE; t15478.s0.value.external_symbol_type = q595; /* x216834 */ t15478.s1.tag = NULL_TYPE; /* x216835 */ t15477.s1.tag = STRUCTURE_TYPE24753; t15477.s1.value.structure_type24753 = &t15478; /* x216836 */ t15476.s1.tag = STRUCTURE_TYPE24753; t15476.s1.value.structure_type24753 = &t15477; /* x216837 */ t15475.s0.tag = STRUCTURE_TYPE24753; t15475.s0.value.structure_type24753 = &t15476; /* x216838 */ t15480.s0.tag = EXTERNAL_SYMBOL_TYPE; t15480.s0.value.external_symbol_type = q692; /* x216839 */ t15481.s0.tag = EXTERNAL_SYMBOL_TYPE; t15481.s0.value.external_symbol_type = q540; /* x216840 */ t15482.s0.tag = EXTERNAL_SYMBOL_TYPE; t15482.s0.value.external_symbol_type = q604; /* x216841 */ t15482.s1.tag = NULL_TYPE; /* x216842 */ t15481.s1.tag = STRUCTURE_TYPE24753;} void initialize_constants5(void) {t15481.s1.value.structure_type24753 = &t15482; /* x216843 */ t15480.s1.tag = STRUCTURE_TYPE24753; t15480.s1.value.structure_type24753 = &t15481; /* x216844 */ t15479.s0.tag = STRUCTURE_TYPE24753; t15479.s0.value.structure_type24753 = &t15480; /* x216845 */ t15484.s0.tag = EXTERNAL_SYMBOL_TYPE; t15484.s0.value.external_symbol_type = q692; /* x216846 */ t15485.s0.tag = EXTERNAL_SYMBOL_TYPE; t15485.s0.value.external_symbol_type = q540; /* x216847 */ t15486.s0.tag = EXTERNAL_SYMBOL_TYPE; t15486.s0.value.external_symbol_type = q607; /* x216848 */ t15486.s1.tag = NULL_TYPE; /* x216849 */ t15485.s1.tag = STRUCTURE_TYPE24753; t15485.s1.value.structure_type24753 = &t15486; /* x216850 */ t15484.s1.tag = STRUCTURE_TYPE24753; t15484.s1.value.structure_type24753 = &t15485; /* x216851 */ t15483.s0.tag = STRUCTURE_TYPE24753; t15483.s0.value.structure_type24753 = &t15484; /* x216852 */ t15488.s0.tag = EXTERNAL_SYMBOL_TYPE; t15488.s0.value.external_symbol_type = q692; /* x216853 */ t15489.s0.tag = EXTERNAL_SYMBOL_TYPE; t15489.s0.value.external_symbol_type = q540; /* x216854 */ t15490.s0.tag = EXTERNAL_SYMBOL_TYPE; t15490.s0.value.external_symbol_type = q608; /* x216855 */ t15490.s1.tag = NULL_TYPE; /* x216856 */ t15489.s1.tag = STRUCTURE_TYPE24753; t15489.s1.value.structure_type24753 = &t15490; /* x216857 */ t15488.s1.tag = STRUCTURE_TYPE24753; t15488.s1.value.structure_type24753 = &t15489; /* x216858 */ t15487.s0.tag = STRUCTURE_TYPE24753; t15487.s0.value.structure_type24753 = &t15488; /* x216859 */ t15492.s0.tag = EXTERNAL_SYMBOL_TYPE; t15492.s0.value.external_symbol_type = q692; /* x216860 */ t15493.s0.tag = EXTERNAL_SYMBOL_TYPE; t15493.s0.value.external_symbol_type = q540; /* x216861 */ t15494.s0.tag = EXTERNAL_SYMBOL_TYPE; t15494.s0.value.external_symbol_type = q609; /* x216862 */ t15494.s1.tag = NULL_TYPE; /* x216863 */ t15493.s1.tag = STRUCTURE_TYPE24753; t15493.s1.value.structure_type24753 = &t15494; /* x216864 */ t15492.s1.tag = STRUCTURE_TYPE24753; t15492.s1.value.structure_type24753 = &t15493; /* x216865 */ t15491.s0.tag = STRUCTURE_TYPE24753; t15491.s0.value.structure_type24753 = &t15492; /* x216866 */ t15496.s0.tag = EXTERNAL_SYMBOL_TYPE; t15496.s0.value.external_symbol_type = q692; /* x216867 */ t15497.s0.tag = EXTERNAL_SYMBOL_TYPE; t15497.s0.value.external_symbol_type = q540; /* x216868 */ t15498.s0.tag = EXTERNAL_SYMBOL_TYPE; t15498.s0.value.external_symbol_type = q610; /* x216869 */ t15498.s1.tag = NULL_TYPE; /* x216870 */ t15497.s1.tag = STRUCTURE_TYPE24753; t15497.s1.value.structure_type24753 = &t15498; /* x216871 */ t15496.s1.tag = STRUCTURE_TYPE24753; t15496.s1.value.structure_type24753 = &t15497; /* x216872 */ t15495.s0.tag = STRUCTURE_TYPE24753; t15495.s0.value.structure_type24753 = &t15496; /* x216873 */ t15500.s0.tag = EXTERNAL_SYMBOL_TYPE; t15500.s0.value.external_symbol_type = q692; /* x216874 */ t15501.s0.tag = EXTERNAL_SYMBOL_TYPE; t15501.s0.value.external_symbol_type = q540; /* x216875 */ t15502.s0.tag = EXTERNAL_SYMBOL_TYPE; t15502.s0.value.external_symbol_type = q611; /* x216876 */ t15502.s1.tag = NULL_TYPE; /* x216877 */ t15501.s1.tag = STRUCTURE_TYPE24753; t15501.s1.value.structure_type24753 = &t15502; /* x216878 */ t15500.s1.tag = STRUCTURE_TYPE24753; t15500.s1.value.structure_type24753 = &t15501; /* x216879 */ t15499.s0.tag = STRUCTURE_TYPE24753; t15499.s0.value.structure_type24753 = &t15500; /* x216880 */ t15504.s0.tag = EXTERNAL_SYMBOL_TYPE; t15504.s0.value.external_symbol_type = q692; /* x216881 */ t15505.s0.tag = EXTERNAL_SYMBOL_TYPE; t15505.s0.value.external_symbol_type = q540; /* x216882 */ t15506.s0.tag = EXTERNAL_SYMBOL_TYPE; t15506.s0.value.external_symbol_type = q613; /* x216883 */ t15506.s1.tag = NULL_TYPE; /* x216884 */ t15505.s1.tag = STRUCTURE_TYPE24753; t15505.s1.value.structure_type24753 = &t15506; /* x216885 */ t15504.s1.tag = STRUCTURE_TYPE24753; t15504.s1.value.structure_type24753 = &t15505; /* x216886 */ t15503.s0.tag = STRUCTURE_TYPE24753; t15503.s0.value.structure_type24753 = &t15504; /* x216887 */ t15508.s0.tag = EXTERNAL_SYMBOL_TYPE; t15508.s0.value.external_symbol_type = q692; /* x216888 */ t15509.s0.tag = EXTERNAL_SYMBOL_TYPE; t15509.s0.value.external_symbol_type = q540; /* x216889 */ t15510.s0.tag = EXTERNAL_SYMBOL_TYPE; t15510.s0.value.external_symbol_type = q614; /* x216890 */ t15510.s1.tag = NULL_TYPE; /* x216891 */ t15509.s1.tag = STRUCTURE_TYPE24753; t15509.s1.value.structure_type24753 = &t15510; /* x216892 */ t15508.s1.tag = STRUCTURE_TYPE24753; t15508.s1.value.structure_type24753 = &t15509; /* x216893 */ t15507.s0.tag = STRUCTURE_TYPE24753; t15507.s0.value.structure_type24753 = &t15508; /* x216894 */ t15512.s0.tag = EXTERNAL_SYMBOL_TYPE; t15512.s0.value.external_symbol_type = q692; /* x216895 */ t15513.s0.tag = EXTERNAL_SYMBOL_TYPE; t15513.s0.value.external_symbol_type = q540; /* x216896 */ t15514.s0.tag = EXTERNAL_SYMBOL_TYPE; t15514.s0.value.external_symbol_type = q617; /* x216897 */ t15514.s1.tag = NULL_TYPE; /* x216898 */ t15513.s1.tag = STRUCTURE_TYPE24753; t15513.s1.value.structure_type24753 = &t15514; /* x216899 */ t15512.s1.tag = STRUCTURE_TYPE24753; t15512.s1.value.structure_type24753 = &t15513; /* x216900 */ t15511.s0.tag = STRUCTURE_TYPE24753; t15511.s0.value.structure_type24753 = &t15512; /* x216901 */ t15516.s0.tag = EXTERNAL_SYMBOL_TYPE; t15516.s0.value.external_symbol_type = q692; /* x216902 */ t15517.s0.tag = EXTERNAL_SYMBOL_TYPE; t15517.s0.value.external_symbol_type = q540; /* x216903 */ t15518.s0.tag = EXTERNAL_SYMBOL_TYPE; t15518.s0.value.external_symbol_type = q618; /* x216904 */ t15518.s1.tag = NULL_TYPE; /* x216905 */ t15517.s1.tag = STRUCTURE_TYPE24753; t15517.s1.value.structure_type24753 = &t15518; /* x216906 */ t15516.s1.tag = STRUCTURE_TYPE24753; t15516.s1.value.structure_type24753 = &t15517; /* x216907 */ t15515.s0.tag = STRUCTURE_TYPE24753; t15515.s0.value.structure_type24753 = &t15516; /* x216908 */ t15520.s0.tag = EXTERNAL_SYMBOL_TYPE; t15520.s0.value.external_symbol_type = q494; /* x216909 */ t15521.s0.tag = EXTERNAL_SYMBOL_TYPE; t15521.s0.value.external_symbol_type = q528; /* x216910 */ t15523.s0.tag = EXTERNAL_SYMBOL_TYPE; t15523.s0.value.external_symbol_type = q692; /* x216911 */ t15524.s0.tag = EXTERNAL_SYMBOL_TYPE; t15524.s0.value.external_symbol_type = q540; /* x216912 */ t15525.s0.tag = EXTERNAL_SYMBOL_TYPE; t15525.s0.value.external_symbol_type = q620; /* x216913 */ t15525.s1.tag = NULL_TYPE; /* x216914 */ t15524.s1.tag = STRUCTURE_TYPE24753; t15524.s1.value.structure_type24753 = &t15525; /* x216915 */ t15523.s1.tag = STRUCTURE_TYPE24753; t15523.s1.value.structure_type24753 = &t15524; /* x216916 */ t15522.s0.tag = STRUCTURE_TYPE24753; t15522.s0.value.structure_type24753 = &t15523; /* x216917 */ t15527.s0.tag = EXTERNAL_SYMBOL_TYPE; t15527.s0.value.external_symbol_type = q692; /* x216918 */ t15528.s0.tag = EXTERNAL_SYMBOL_TYPE; t15528.s0.value.external_symbol_type = q540; /* x216919 */ t15529.s0.tag = EXTERNAL_SYMBOL_TYPE; t15529.s0.value.external_symbol_type = q622; /* x216920 */ t15529.s1.tag = NULL_TYPE; /* x216921 */ t15528.s1.tag = STRUCTURE_TYPE24753; t15528.s1.value.structure_type24753 = &t15529; /* x216922 */ t15527.s1.tag = STRUCTURE_TYPE24753; t15527.s1.value.structure_type24753 = &t15528; /* x216923 */ t15526.s0.tag = STRUCTURE_TYPE24753; t15526.s0.value.structure_type24753 = &t15527; /* x216924 */ t15531.s0.tag = EXTERNAL_SYMBOL_TYPE; t15531.s0.value.external_symbol_type = q692; /* x216925 */ t15532.s0.tag = EXTERNAL_SYMBOL_TYPE; t15532.s0.value.external_symbol_type = q540; /* x216926 */ t15533.s0.tag = EXTERNAL_SYMBOL_TYPE; t15533.s0.value.external_symbol_type = q624; /* x216927 */ t15533.s1.tag = NULL_TYPE; /* x216928 */ t15532.s1.tag = STRUCTURE_TYPE24753; t15532.s1.value.structure_type24753 = &t15533; /* x216929 */ t15531.s1.tag = STRUCTURE_TYPE24753; t15531.s1.value.structure_type24753 = &t15532; /* x216930 */ t15530.s0.tag = STRUCTURE_TYPE24753; t15530.s0.value.structure_type24753 = &t15531; /* x216931 */ t15535.s0.tag = EXTERNAL_SYMBOL_TYPE; t15535.s0.value.external_symbol_type = q692; /* x216932 */ t15536.s0.tag = EXTERNAL_SYMBOL_TYPE; t15536.s0.value.external_symbol_type = q540; /* x216933 */ t15537.s0.tag = EXTERNAL_SYMBOL_TYPE; t15537.s0.value.external_symbol_type = q626; /* x216934 */ t15537.s1.tag = NULL_TYPE; /* x216935 */ t15536.s1.tag = STRUCTURE_TYPE24753; t15536.s1.value.structure_type24753 = &t15537; /* x216936 */ t15535.s1.tag = STRUCTURE_TYPE24753; t15535.s1.value.structure_type24753 = &t15536; /* x216937 */ t15534.s0.tag = STRUCTURE_TYPE24753; t15534.s0.value.structure_type24753 = &t15535; /* x216938 */ t15539.s0.tag = EXTERNAL_SYMBOL_TYPE; t15539.s0.value.external_symbol_type = q692; /* x216939 */ t15540.s0.tag = EXTERNAL_SYMBOL_TYPE; t15540.s0.value.external_symbol_type = q540; /* x216940 */ t15541.s0.tag = EXTERNAL_SYMBOL_TYPE; t15541.s0.value.external_symbol_type = q628; /* x216941 */ t15541.s1.tag = NULL_TYPE; /* x216942 */ t15540.s1.tag = STRUCTURE_TYPE24753; t15540.s1.value.structure_type24753 = &t15541; /* x216943 */ t15539.s1.tag = STRUCTURE_TYPE24753; t15539.s1.value.structure_type24753 = &t15540; /* x216944 */ t15538.s0.tag = STRUCTURE_TYPE24753; t15538.s0.value.structure_type24753 = &t15539; /* x216945 */ t15543.s0.tag = EXTERNAL_SYMBOL_TYPE; t15543.s0.value.external_symbol_type = q692; /* x216946 */ t15544.s0.tag = EXTERNAL_SYMBOL_TYPE; t15544.s0.value.external_symbol_type = q540; /* x216947 */ t15545.s0.tag = EXTERNAL_SYMBOL_TYPE; t15545.s0.value.external_symbol_type = q630; /* x216948 */ t15545.s1.tag = NULL_TYPE; /* x216949 */ t15544.s1.tag = STRUCTURE_TYPE24753; t15544.s1.value.structure_type24753 = &t15545; /* x216950 */ t15543.s1.tag = STRUCTURE_TYPE24753; t15543.s1.value.structure_type24753 = &t15544; /* x216951 */ t15542.s0.tag = STRUCTURE_TYPE24753; t15542.s0.value.structure_type24753 = &t15543; /* x216952 */ t15547.s0.tag = EXTERNAL_SYMBOL_TYPE; t15547.s0.value.external_symbol_type = q692; /* x216953 */ t15548.s0.tag = EXTERNAL_SYMBOL_TYPE; t15548.s0.value.external_symbol_type = q540; /* x216954 */ t15549.s0.tag = EXTERNAL_SYMBOL_TYPE; t15549.s0.value.external_symbol_type = q632; /* x216955 */ t15549.s1.tag = NULL_TYPE; /* x216956 */ t15548.s1.tag = STRUCTURE_TYPE24753; t15548.s1.value.structure_type24753 = &t15549; /* x216957 */ t15547.s1.tag = STRUCTURE_TYPE24753; t15547.s1.value.structure_type24753 = &t15548; /* x216958 */ t15546.s0.tag = STRUCTURE_TYPE24753; t15546.s0.value.structure_type24753 = &t15547; /* x216959 */ t15551.s0.tag = EXTERNAL_SYMBOL_TYPE; t15551.s0.value.external_symbol_type = q692; /* x216960 */ t15552.s0.tag = EXTERNAL_SYMBOL_TYPE; t15552.s0.value.external_symbol_type = q540; /* x216961 */ t15553.s0.tag = EXTERNAL_SYMBOL_TYPE; t15553.s0.value.external_symbol_type = q634; /* x216962 */ t15553.s1.tag = NULL_TYPE; /* x216963 */ t15552.s1.tag = STRUCTURE_TYPE24753; t15552.s1.value.structure_type24753 = &t15553; /* x216964 */ t15551.s1.tag = STRUCTURE_TYPE24753; t15551.s1.value.structure_type24753 = &t15552; /* x216965 */ t15550.s0.tag = STRUCTURE_TYPE24753; t15550.s0.value.structure_type24753 = &t15551; /* x216966 */ t15555.s0.tag = EXTERNAL_SYMBOL_TYPE; t15555.s0.value.external_symbol_type = q692; /* x216967 */ t15556.s0.tag = EXTERNAL_SYMBOL_TYPE; t15556.s0.value.external_symbol_type = q540; /* x216968 */ t15557.s0.tag = EXTERNAL_SYMBOL_TYPE; t15557.s0.value.external_symbol_type = q636; /* x216969 */ t15557.s1.tag = NULL_TYPE; /* x216970 */ t15556.s1.tag = STRUCTURE_TYPE24753; t15556.s1.value.structure_type24753 = &t15557; /* x216971 */ t15555.s1.tag = STRUCTURE_TYPE24753; t15555.s1.value.structure_type24753 = &t15556; /* x216972 */ t15554.s0.tag = STRUCTURE_TYPE24753; t15554.s0.value.structure_type24753 = &t15555; /* x216973 */ t15559.s0.tag = EXTERNAL_SYMBOL_TYPE; t15559.s0.value.external_symbol_type = q692; /* x216974 */ t15560.s0.tag = EXTERNAL_SYMBOL_TYPE; t15560.s0.value.external_symbol_type = q540; /* x216975 */ t15561.s0.tag = EXTERNAL_SYMBOL_TYPE; t15561.s0.value.external_symbol_type = q638; /* x216976 */ t15561.s1.tag = NULL_TYPE; /* x216977 */ t15560.s1.tag = STRUCTURE_TYPE24753; t15560.s1.value.structure_type24753 = &t15561; /* x216978 */ t15559.s1.tag = STRUCTURE_TYPE24753; t15559.s1.value.structure_type24753 = &t15560; /* x216979 */ t15558.s0.tag = STRUCTURE_TYPE24753; t15558.s0.value.structure_type24753 = &t15559; /* x216980 */ t15563.s0.tag = EXTERNAL_SYMBOL_TYPE; t15563.s0.value.external_symbol_type = q692; /* x216981 */ t15564.s0.tag = EXTERNAL_SYMBOL_TYPE; t15564.s0.value.external_symbol_type = q540; /* x216982 */ t15565.s0.tag = EXTERNAL_SYMBOL_TYPE; t15565.s0.value.external_symbol_type = q640; /* x216983 */ t15565.s1.tag = NULL_TYPE; /* x216984 */ t15564.s1.tag = STRUCTURE_TYPE24753; t15564.s1.value.structure_type24753 = &t15565; /* x216985 */ t15563.s1.tag = STRUCTURE_TYPE24753; t15563.s1.value.structure_type24753 = &t15564; /* x216986 */ t15562.s0.tag = STRUCTURE_TYPE24753; t15562.s0.value.structure_type24753 = &t15563; /* x216987 */ t15567.s0.tag = EXTERNAL_SYMBOL_TYPE; t15567.s0.value.external_symbol_type = q692; /* x216988 */ t15568.s0.tag = EXTERNAL_SYMBOL_TYPE; t15568.s0.value.external_symbol_type = q540; /* x216989 */ t15569.s0.tag = EXTERNAL_SYMBOL_TYPE; t15569.s0.value.external_symbol_type = q641; /* x216990 */ t15569.s1.tag = NULL_TYPE; /* x216991 */ t15568.s1.tag = STRUCTURE_TYPE24753; t15568.s1.value.structure_type24753 = &t15569; /* x216992 */ t15567.s1.tag = STRUCTURE_TYPE24753; t15567.s1.value.structure_type24753 = &t15568; /* x216993 */ t15566.s0.tag = STRUCTURE_TYPE24753; t15566.s0.value.structure_type24753 = &t15567; /* x216994 */ t15571.s0.tag = EXTERNAL_SYMBOL_TYPE; t15571.s0.value.external_symbol_type = q693; /* x216995 */ t15572.s0.tag = EXTERNAL_SYMBOL_TYPE; t15572.s0.value.external_symbol_type = q540; /* x216996 */ t15574.s0.tag = EXTERNAL_SYMBOL_TYPE; t15574.s0.value.external_symbol_type = q557; /* x216997 */ t15575.s0.tag = EXTERNAL_SYMBOL_TYPE; t15575.s0.value.external_symbol_type = q540; /* x216998 */ t15576.s0.tag = EXTERNAL_SYMBOL_TYPE; t15576.s0.value.external_symbol_type = q545; /* x216999 */ t15576.s1.tag = NULL_TYPE; /* x217000 */ t15575.s1.tag = STRUCTURE_TYPE24753; t15575.s1.value.structure_type24753 = &t15576; /* x217001 */ t15574.s1.tag = STRUCTURE_TYPE24753; t15574.s1.value.structure_type24753 = &t15575; /* x217002 */ t15573.s0.tag = STRUCTURE_TYPE24753; t15573.s0.value.structure_type24753 = &t15574; /* x217003 */ t15578.s0.tag = EXTERNAL_SYMBOL_TYPE; t15578.s0.value.external_symbol_type = q694; /* x217004 */ t15580.s0.tag = EXTERNAL_SYMBOL_TYPE; t15580.s0.value.external_symbol_type = q1; /* x217005 */ t15582.s0.tag = EXTERNAL_SYMBOL_TYPE; t15582.s0.value.external_symbol_type = q582; /* x217006 */ t15584.s0.tag = EXTERNAL_SYMBOL_TYPE; t15584.s0.value.external_symbol_type = q583; /* x217007 */ t15585.s0.tag = EXTERNAL_SYMBOL_TYPE; t15585.s0.value.external_symbol_type = q555; /* x217008 */ t15585.s1.tag = NULL_TYPE; /* x217009 */ t15584.s1.tag = STRUCTURE_TYPE24753; t15584.s1.value.structure_type24753 = &t15585; /* x217010 */ t15583.s0.tag = STRUCTURE_TYPE24753; t15583.s0.value.structure_type24753 = &t15584; /* x217011 */ t15583.s1.tag = NULL_TYPE; /* x217012 */ t15582.s1.tag = STRUCTURE_TYPE24753; t15582.s1.value.structure_type24753 = &t15583; /* x217013 */ t15581.s0.tag = STRUCTURE_TYPE24753; t15581.s0.value.structure_type24753 = &t15582; /* x217014 */ t15581.s1.tag = NULL_TYPE; /* x217015 */ t15580.s1.tag = STRUCTURE_TYPE24753; t15580.s1.value.structure_type24753 = &t15581; /* x217016 */ t15579.s0.tag = STRUCTURE_TYPE24753; t15579.s0.value.structure_type24753 = &t15580; /* x217017 */ t15579.s1.tag = NULL_TYPE; /* x217018 */ t15578.s1.tag = STRUCTURE_TYPE24753; t15578.s1.value.structure_type24753 = &t15579; /* x217019 */ t15577.s0.tag = STRUCTURE_TYPE24753; t15577.s0.value.structure_type24753 = &t15578; /* x217020 */ t15586.s0.tag = FIXNUM_TYPE; t15586.s0.value.fixnum_type = 1; /* x217021 */ t15587.s0.tag = FIXNUM_TYPE; t15587.s0.value.fixnum_type = 0; /* x217022 */ t15587.s1.tag = NULL_TYPE; /* x217023 */ t15586.s1.tag = STRUCTURE_TYPE24753; t15586.s1.value.structure_type24753 = &t15587; /* x217024 */ t15577.s1.tag = STRUCTURE_TYPE24753; t15577.s1.value.structure_type24753 = &t15586; /* x217025 */ t15573.s1.tag = STRUCTURE_TYPE24753; t15573.s1.value.structure_type24753 = &t15577; /* x217026 */ t15572.s1.tag = STRUCTURE_TYPE24753; t15572.s1.value.structure_type24753 = &t15573; /* x217027 */ t15571.s1.tag = STRUCTURE_TYPE24753; t15571.s1.value.structure_type24753 = &t15572; /* x217028 */ t15570.s0.tag = STRUCTURE_TYPE24753; t15570.s0.value.structure_type24753 = &t15571; /* x217029 */ t15589.s0.tag = EXTERNAL_SYMBOL_TYPE; t15589.s0.value.external_symbol_type = q693; /* x217030 */ t15590.s0.tag = EXTERNAL_SYMBOL_TYPE; t15590.s0.value.external_symbol_type = q540; /* x217031 */ t15592.s0.tag = EXTERNAL_SYMBOL_TYPE; t15592.s0.value.external_symbol_type = q557; /* x217032 */ t15593.s0.tag = EXTERNAL_SYMBOL_TYPE; t15593.s0.value.external_symbol_type = q540; /* x217033 */ t15594.s0.tag = EXTERNAL_SYMBOL_TYPE; t15594.s0.value.external_symbol_type = q545; /* x217034 */ t15594.s1.tag = NULL_TYPE; /* x217035 */ t15593.s1.tag = STRUCTURE_TYPE24753; t15593.s1.value.structure_type24753 = &t15594; /* x217036 */ t15592.s1.tag = STRUCTURE_TYPE24753; t15592.s1.value.structure_type24753 = &t15593; /* x217037 */ t15591.s0.tag = STRUCTURE_TYPE24753; t15591.s0.value.structure_type24753 = &t15592; /* x217038 */ t15596.s0.tag = EXTERNAL_SYMBOL_TYPE; t15596.s0.value.external_symbol_type = q694; /* x217039 */ t15598.s0.tag = EXTERNAL_SYMBOL_TYPE; t15598.s0.value.external_symbol_type = q1; /* x217040 */ t15600.s0.tag = EXTERNAL_SYMBOL_TYPE; t15600.s0.value.external_symbol_type = q582; /* x217041 */ t15602.s0.tag = EXTERNAL_SYMBOL_TYPE; t15602.s0.value.external_symbol_type = q583; /* x217042 */ t15603.s0.tag = EXTERNAL_SYMBOL_TYPE; t15603.s0.value.external_symbol_type = q560; /* x217043 */ t15603.s1.tag = NULL_TYPE; /* x217044 */ t15602.s1.tag = STRUCTURE_TYPE24753; t15602.s1.value.structure_type24753 = &t15603; /* x217045 */ t15601.s0.tag = STRUCTURE_TYPE24753; t15601.s0.value.structure_type24753 = &t15602; /* x217046 */ t15601.s1.tag = NULL_TYPE; /* x217047 */ t15600.s1.tag = STRUCTURE_TYPE24753; t15600.s1.value.structure_type24753 = &t15601; /* x217048 */ t15599.s0.tag = STRUCTURE_TYPE24753; t15599.s0.value.structure_type24753 = &t15600; /* x217049 */ t15599.s1.tag = NULL_TYPE; /* x217050 */ t15598.s1.tag = STRUCTURE_TYPE24753; t15598.s1.value.structure_type24753 = &t15599; /* x217051 */ t15597.s0.tag = STRUCTURE_TYPE24753; t15597.s0.value.structure_type24753 = &t15598; /* x217052 */ t15597.s1.tag = NULL_TYPE; /* x217053 */ t15596.s1.tag = STRUCTURE_TYPE24753; t15596.s1.value.structure_type24753 = &t15597; /* x217054 */ t15595.s0.tag = STRUCTURE_TYPE24753; t15595.s0.value.structure_type24753 = &t15596; /* x217055 */ t15604.s0.tag = FIXNUM_TYPE; t15604.s0.value.fixnum_type = 1; /* x217056 */ t15605.s0.tag = FIXNUM_TYPE; t15605.s0.value.fixnum_type = 0; /* x217057 */ t15605.s1.tag = NULL_TYPE; /* x217058 */ t15604.s1.tag = STRUCTURE_TYPE24753; t15604.s1.value.structure_type24753 = &t15605; /* x217059 */ t15595.s1.tag = STRUCTURE_TYPE24753; t15595.s1.value.structure_type24753 = &t15604; /* x217060 */ t15591.s1.tag = STRUCTURE_TYPE24753; t15591.s1.value.structure_type24753 = &t15595; /* x217061 */ t15590.s1.tag = STRUCTURE_TYPE24753; t15590.s1.value.structure_type24753 = &t15591; /* x217062 */ t15589.s1.tag = STRUCTURE_TYPE24753; t15589.s1.value.structure_type24753 = &t15590; /* x217063 */ t15588.s0.tag = STRUCTURE_TYPE24753; t15588.s0.value.structure_type24753 = &t15589; /* x217064 */ t15607.s0.tag = EXTERNAL_SYMBOL_TYPE; t15607.s0.value.external_symbol_type = q693; /* x217065 */ t15608.s0.tag = EXTERNAL_SYMBOL_TYPE; t15608.s0.value.external_symbol_type = q540; /* x217066 */ t15610.s0.tag = EXTERNAL_SYMBOL_TYPE; t15610.s0.value.external_symbol_type = q557; /* x217067 */ t15611.s0.tag = EXTERNAL_SYMBOL_TYPE; t15611.s0.value.external_symbol_type = q540; /* x217068 */ t15612.s0.tag = EXTERNAL_SYMBOL_TYPE; t15612.s0.value.external_symbol_type = q545; /* x217069 */ t15612.s1.tag = NULL_TYPE; /* x217070 */ t15611.s1.tag = STRUCTURE_TYPE24753; t15611.s1.value.structure_type24753 = &t15612; /* x217071 */ t15610.s1.tag = STRUCTURE_TYPE24753; t15610.s1.value.structure_type24753 = &t15611; /* x217072 */ t15609.s0.tag = STRUCTURE_TYPE24753; t15609.s0.value.structure_type24753 = &t15610; /* x217073 */ t15614.s0.tag = EXTERNAL_SYMBOL_TYPE; t15614.s0.value.external_symbol_type = q694; /* x217074 */ t15616.s0.tag = EXTERNAL_SYMBOL_TYPE; t15616.s0.value.external_symbol_type = q1; /* x217075 */ t15618.s0.tag = EXTERNAL_SYMBOL_TYPE; t15618.s0.value.external_symbol_type = q582; /* x217076 */ t15620.s0.tag = EXTERNAL_SYMBOL_TYPE; t15620.s0.value.external_symbol_type = q583; /* x217077 */ t15621.s0.tag = EXTERNAL_SYMBOL_TYPE; t15621.s0.value.external_symbol_type = q619; /* x217078 */ t15621.s1.tag = NULL_TYPE; /* x217079 */ t15620.s1.tag = STRUCTURE_TYPE24753; t15620.s1.value.structure_type24753 = &t15621; /* x217080 */ t15619.s0.tag = STRUCTURE_TYPE24753; t15619.s0.value.structure_type24753 = &t15620; /* x217081 */ t15619.s1.tag = NULL_TYPE; /* x217082 */ t15618.s1.tag = STRUCTURE_TYPE24753; t15618.s1.value.structure_type24753 = &t15619; /* x217083 */ t15617.s0.tag = STRUCTURE_TYPE24753; t15617.s0.value.structure_type24753 = &t15618; /* x217084 */ t15617.s1.tag = NULL_TYPE; /* x217085 */ t15616.s1.tag = STRUCTURE_TYPE24753; t15616.s1.value.structure_type24753 = &t15617; /* x217086 */ t15615.s0.tag = STRUCTURE_TYPE24753; t15615.s0.value.structure_type24753 = &t15616; /* x217087 */ t15615.s1.tag = NULL_TYPE; /* x217088 */ t15614.s1.tag = STRUCTURE_TYPE24753; t15614.s1.value.structure_type24753 = &t15615; /* x217089 */ t15613.s0.tag = STRUCTURE_TYPE24753; t15613.s0.value.structure_type24753 = &t15614; /* x217090 */ t15622.s0.tag = FIXNUM_TYPE; t15622.s0.value.fixnum_type = 1; /* x217091 */ t15623.s0.tag = FIXNUM_TYPE; t15623.s0.value.fixnum_type = 0; /* x217092 */ t15623.s1.tag = NULL_TYPE; /* x217093 */ t15622.s1.tag = STRUCTURE_TYPE24753; t15622.s1.value.structure_type24753 = &t15623; /* x217094 */ t15613.s1.tag = STRUCTURE_TYPE24753; t15613.s1.value.structure_type24753 = &t15622; /* x217095 */ t15609.s1.tag = STRUCTURE_TYPE24753; t15609.s1.value.structure_type24753 = &t15613; /* x217096 */ t15608.s1.tag = STRUCTURE_TYPE24753; t15608.s1.value.structure_type24753 = &t15609; /* x217097 */ t15607.s1.tag = STRUCTURE_TYPE24753; t15607.s1.value.structure_type24753 = &t15608; /* x217098 */ t15606.s0.tag = STRUCTURE_TYPE24753; t15606.s0.value.structure_type24753 = &t15607; /* x217099 */ t15625.s0.tag = EXTERNAL_SYMBOL_TYPE; t15625.s0.value.external_symbol_type = q693; /* x217100 */ t15626.s0.tag = EXTERNAL_SYMBOL_TYPE; t15626.s0.value.external_symbol_type = q540; /* x217101 */ t15628.s0.tag = EXTERNAL_SYMBOL_TYPE; t15628.s0.value.external_symbol_type = q557; /* x217102 */ t15629.s0.tag = EXTERNAL_SYMBOL_TYPE; t15629.s0.value.external_symbol_type = q540; /* x217103 */ t15630.s0.tag = EXTERNAL_SYMBOL_TYPE; t15630.s0.value.external_symbol_type = q545; /* x217104 */ t15630.s1.tag = NULL_TYPE; /* x217105 */ t15629.s1.tag = STRUCTURE_TYPE24753; t15629.s1.value.structure_type24753 = &t15630; /* x217106 */ t15628.s1.tag = STRUCTURE_TYPE24753; t15628.s1.value.structure_type24753 = &t15629; /* x217107 */ t15627.s0.tag = STRUCTURE_TYPE24753; t15627.s0.value.structure_type24753 = &t15628; /* x217108 */ t15632.s0.tag = EXTERNAL_SYMBOL_TYPE; t15632.s0.value.external_symbol_type = q694; /* x217109 */ t15634.s0.tag = EXTERNAL_SYMBOL_TYPE; t15634.s0.value.external_symbol_type = q1; /* x217110 */ t15636.s0.tag = EXTERNAL_SYMBOL_TYPE; t15636.s0.value.external_symbol_type = q582; /* x217111 */ t15638.s0.tag = EXTERNAL_SYMBOL_TYPE; t15638.s0.value.external_symbol_type = q583; /* x217112 */ t15639.s0.tag = EXTERNAL_SYMBOL_TYPE; t15639.s0.value.external_symbol_type = q621; /* x217113 */ t15639.s1.tag = NULL_TYPE; /* x217114 */ t15638.s1.tag = STRUCTURE_TYPE24753; t15638.s1.value.structure_type24753 = &t15639; /* x217115 */ t15637.s0.tag = STRUCTURE_TYPE24753; t15637.s0.value.structure_type24753 = &t15638; /* x217116 */ t15637.s1.tag = NULL_TYPE; /* x217117 */ t15636.s1.tag = STRUCTURE_TYPE24753; t15636.s1.value.structure_type24753 = &t15637; /* x217118 */ t15635.s0.tag = STRUCTURE_TYPE24753; t15635.s0.value.structure_type24753 = &t15636; /* x217119 */ t15635.s1.tag = NULL_TYPE; /* x217120 */ t15634.s1.tag = STRUCTURE_TYPE24753; t15634.s1.value.structure_type24753 = &t15635; /* x217121 */ t15633.s0.tag = STRUCTURE_TYPE24753; t15633.s0.value.structure_type24753 = &t15634; /* x217122 */ t15633.s1.tag = NULL_TYPE; /* x217123 */ t15632.s1.tag = STRUCTURE_TYPE24753; t15632.s1.value.structure_type24753 = &t15633; /* x217124 */ t15631.s0.tag = STRUCTURE_TYPE24753; t15631.s0.value.structure_type24753 = &t15632; /* x217125 */ t15640.s0.tag = FIXNUM_TYPE; t15640.s0.value.fixnum_type = 1; /* x217126 */ t15641.s0.tag = FIXNUM_TYPE; t15641.s0.value.fixnum_type = 0; /* x217127 */ t15641.s1.tag = NULL_TYPE; /* x217128 */ t15640.s1.tag = STRUCTURE_TYPE24753; t15640.s1.value.structure_type24753 = &t15641; /* x217129 */ t15631.s1.tag = STRUCTURE_TYPE24753; t15631.s1.value.structure_type24753 = &t15640; /* x217130 */ t15627.s1.tag = STRUCTURE_TYPE24753; t15627.s1.value.structure_type24753 = &t15631; /* x217131 */ t15626.s1.tag = STRUCTURE_TYPE24753; t15626.s1.value.structure_type24753 = &t15627; /* x217132 */ t15625.s1.tag = STRUCTURE_TYPE24753; t15625.s1.value.structure_type24753 = &t15626; /* x217133 */ t15624.s0.tag = STRUCTURE_TYPE24753; t15624.s0.value.structure_type24753 = &t15625; /* x217134 */ t15643.s0.tag = EXTERNAL_SYMBOL_TYPE; t15643.s0.value.external_symbol_type = q693; /* x217135 */ t15644.s0.tag = EXTERNAL_SYMBOL_TYPE; t15644.s0.value.external_symbol_type = q540; /* x217136 */ t15646.s0.tag = EXTERNAL_SYMBOL_TYPE; t15646.s0.value.external_symbol_type = q557; /* x217137 */ t15647.s0.tag = EXTERNAL_SYMBOL_TYPE; t15647.s0.value.external_symbol_type = q540; /* x217138 */ t15648.s0.tag = EXTERNAL_SYMBOL_TYPE; t15648.s0.value.external_symbol_type = q545; /* x217139 */ t15648.s1.tag = NULL_TYPE; /* x217140 */ t15647.s1.tag = STRUCTURE_TYPE24753; t15647.s1.value.structure_type24753 = &t15648; /* x217141 */ t15646.s1.tag = STRUCTURE_TYPE24753; t15646.s1.value.structure_type24753 = &t15647; /* x217142 */ t15645.s0.tag = STRUCTURE_TYPE24753; t15645.s0.value.structure_type24753 = &t15646; /* x217143 */ t15650.s0.tag = EXTERNAL_SYMBOL_TYPE; t15650.s0.value.external_symbol_type = q694; /* x217144 */ t15652.s0.tag = EXTERNAL_SYMBOL_TYPE; t15652.s0.value.external_symbol_type = q1; /* x217145 */ t15654.s0.tag = EXTERNAL_SYMBOL_TYPE; t15654.s0.value.external_symbol_type = q582; /* x217146 */ t15656.s0.tag = EXTERNAL_SYMBOL_TYPE; t15656.s0.value.external_symbol_type = q583; /* x217147 */ t15657.s0.tag = EXTERNAL_SYMBOL_TYPE; t15657.s0.value.external_symbol_type = q623; /* x217148 */ t15657.s1.tag = NULL_TYPE; /* x217149 */ t15656.s1.tag = STRUCTURE_TYPE24753; t15656.s1.value.structure_type24753 = &t15657; /* x217150 */ t15655.s0.tag = STRUCTURE_TYPE24753; t15655.s0.value.structure_type24753 = &t15656; /* x217151 */ t15655.s1.tag = NULL_TYPE; /* x217152 */ t15654.s1.tag = STRUCTURE_TYPE24753; t15654.s1.value.structure_type24753 = &t15655; /* x217153 */ t15653.s0.tag = STRUCTURE_TYPE24753; t15653.s0.value.structure_type24753 = &t15654; /* x217154 */ t15653.s1.tag = NULL_TYPE; /* x217155 */ t15652.s1.tag = STRUCTURE_TYPE24753; t15652.s1.value.structure_type24753 = &t15653; /* x217156 */ t15651.s0.tag = STRUCTURE_TYPE24753; t15651.s0.value.structure_type24753 = &t15652; /* x217157 */ t15651.s1.tag = NULL_TYPE; /* x217158 */ t15650.s1.tag = STRUCTURE_TYPE24753; t15650.s1.value.structure_type24753 = &t15651; /* x217159 */ t15649.s0.tag = STRUCTURE_TYPE24753; t15649.s0.value.structure_type24753 = &t15650; /* x217160 */ t15658.s0.tag = FIXNUM_TYPE; t15658.s0.value.fixnum_type = 1; /* x217161 */ t15659.s0.tag = FIXNUM_TYPE; t15659.s0.value.fixnum_type = 0; /* x217162 */ t15659.s1.tag = NULL_TYPE; /* x217163 */ t15658.s1.tag = STRUCTURE_TYPE24753; t15658.s1.value.structure_type24753 = &t15659; /* x217164 */ t15649.s1.tag = STRUCTURE_TYPE24753; t15649.s1.value.structure_type24753 = &t15658; /* x217165 */ t15645.s1.tag = STRUCTURE_TYPE24753; t15645.s1.value.structure_type24753 = &t15649; /* x217166 */ t15644.s1.tag = STRUCTURE_TYPE24753; t15644.s1.value.structure_type24753 = &t15645; /* x217167 */ t15643.s1.tag = STRUCTURE_TYPE24753; t15643.s1.value.structure_type24753 = &t15644; /* x217168 */ t15642.s0.tag = STRUCTURE_TYPE24753; t15642.s0.value.structure_type24753 = &t15643; /* x217169 */ t15661.s0.tag = EXTERNAL_SYMBOL_TYPE; t15661.s0.value.external_symbol_type = q693; /* x217170 */ t15662.s0.tag = EXTERNAL_SYMBOL_TYPE; t15662.s0.value.external_symbol_type = q540; /* x217171 */ t15664.s0.tag = EXTERNAL_SYMBOL_TYPE; t15664.s0.value.external_symbol_type = q557; /* x217172 */ t15665.s0.tag = EXTERNAL_SYMBOL_TYPE; t15665.s0.value.external_symbol_type = q540; /* x217173 */ t15666.s0.tag = EXTERNAL_SYMBOL_TYPE; t15666.s0.value.external_symbol_type = q545; /* x217174 */ t15666.s1.tag = NULL_TYPE; /* x217175 */ t15665.s1.tag = STRUCTURE_TYPE24753; t15665.s1.value.structure_type24753 = &t15666; /* x217176 */ t15664.s1.tag = STRUCTURE_TYPE24753; t15664.s1.value.structure_type24753 = &t15665; /* x217177 */ t15663.s0.tag = STRUCTURE_TYPE24753; t15663.s0.value.structure_type24753 = &t15664; /* x217178 */ t15668.s0.tag = EXTERNAL_SYMBOL_TYPE; t15668.s0.value.external_symbol_type = q694; /* x217179 */ t15670.s0.tag = EXTERNAL_SYMBOL_TYPE; t15670.s0.value.external_symbol_type = q1; /* x217180 */ t15672.s0.tag = EXTERNAL_SYMBOL_TYPE; t15672.s0.value.external_symbol_type = q582; /* x217181 */ t15674.s0.tag = EXTERNAL_SYMBOL_TYPE; t15674.s0.value.external_symbol_type = q583; /* x217182 */ t15675.s0.tag = EXTERNAL_SYMBOL_TYPE; t15675.s0.value.external_symbol_type = q625; /* x217183 */ t15675.s1.tag = NULL_TYPE; /* x217184 */ t15674.s1.tag = STRUCTURE_TYPE24753; t15674.s1.value.structure_type24753 = &t15675; /* x217185 */ t15673.s0.tag = STRUCTURE_TYPE24753; t15673.s0.value.structure_type24753 = &t15674; /* x217186 */ t15673.s1.tag = NULL_TYPE; /* x217187 */ t15672.s1.tag = STRUCTURE_TYPE24753; t15672.s1.value.structure_type24753 = &t15673; /* x217188 */ t15671.s0.tag = STRUCTURE_TYPE24753; t15671.s0.value.structure_type24753 = &t15672; /* x217189 */ t15671.s1.tag = NULL_TYPE; /* x217190 */ t15670.s1.tag = STRUCTURE_TYPE24753; t15670.s1.value.structure_type24753 = &t15671; /* x217191 */ t15669.s0.tag = STRUCTURE_TYPE24753; t15669.s0.value.structure_type24753 = &t15670; /* x217192 */ t15669.s1.tag = NULL_TYPE; /* x217193 */ t15668.s1.tag = STRUCTURE_TYPE24753; t15668.s1.value.structure_type24753 = &t15669; /* x217194 */ t15667.s0.tag = STRUCTURE_TYPE24753; t15667.s0.value.structure_type24753 = &t15668; /* x217195 */ t15676.s0.tag = FIXNUM_TYPE; t15676.s0.value.fixnum_type = 1; /* x217196 */ t15677.s0.tag = FIXNUM_TYPE; t15677.s0.value.fixnum_type = 0; /* x217197 */ t15677.s1.tag = NULL_TYPE; /* x217198 */ t15676.s1.tag = STRUCTURE_TYPE24753; t15676.s1.value.structure_type24753 = &t15677; /* x217199 */ t15667.s1.tag = STRUCTURE_TYPE24753; t15667.s1.value.structure_type24753 = &t15676; /* x217200 */ t15663.s1.tag = STRUCTURE_TYPE24753; t15663.s1.value.structure_type24753 = &t15667; /* x217201 */ t15662.s1.tag = STRUCTURE_TYPE24753; t15662.s1.value.structure_type24753 = &t15663; /* x217202 */ t15661.s1.tag = STRUCTURE_TYPE24753; t15661.s1.value.structure_type24753 = &t15662; /* x217203 */ t15660.s0.tag = STRUCTURE_TYPE24753; t15660.s0.value.structure_type24753 = &t15661; /* x217204 */ t15679.s0.tag = EXTERNAL_SYMBOL_TYPE; t15679.s0.value.external_symbol_type = q693; /* x217205 */ t15680.s0.tag = EXTERNAL_SYMBOL_TYPE; t15680.s0.value.external_symbol_type = q540; /* x217206 */ t15682.s0.tag = EXTERNAL_SYMBOL_TYPE; t15682.s0.value.external_symbol_type = q557; /* x217207 */ t15683.s0.tag = EXTERNAL_SYMBOL_TYPE; t15683.s0.value.external_symbol_type = q540; /* x217208 */ t15684.s0.tag = EXTERNAL_SYMBOL_TYPE; t15684.s0.value.external_symbol_type = q545; /* x217209 */ t15684.s1.tag = NULL_TYPE; /* x217210 */ t15683.s1.tag = STRUCTURE_TYPE24753; t15683.s1.value.structure_type24753 = &t15684; /* x217211 */ t15682.s1.tag = STRUCTURE_TYPE24753; t15682.s1.value.structure_type24753 = &t15683; /* x217212 */ t15681.s0.tag = STRUCTURE_TYPE24753; t15681.s0.value.structure_type24753 = &t15682; /* x217213 */ t15686.s0.tag = EXTERNAL_SYMBOL_TYPE; t15686.s0.value.external_symbol_type = q694; /* x217214 */ t15688.s0.tag = EXTERNAL_SYMBOL_TYPE; t15688.s0.value.external_symbol_type = q1; /* x217215 */ t15690.s0.tag = EXTERNAL_SYMBOL_TYPE; t15690.s0.value.external_symbol_type = q582; /* x217216 */ t15692.s0.tag = EXTERNAL_SYMBOL_TYPE; t15692.s0.value.external_symbol_type = q583; /* x217217 */ t15693.s0.tag = EXTERNAL_SYMBOL_TYPE; t15693.s0.value.external_symbol_type = q627; /* x217218 */ t15693.s1.tag = NULL_TYPE; /* x217219 */ t15692.s1.tag = STRUCTURE_TYPE24753; t15692.s1.value.structure_type24753 = &t15693; /* x217220 */ t15691.s0.tag = STRUCTURE_TYPE24753; t15691.s0.value.structure_type24753 = &t15692; /* x217221 */ t15691.s1.tag = NULL_TYPE; /* x217222 */ t15690.s1.tag = STRUCTURE_TYPE24753; t15690.s1.value.structure_type24753 = &t15691; /* x217223 */ t15689.s0.tag = STRUCTURE_TYPE24753; t15689.s0.value.structure_type24753 = &t15690; /* x217224 */ t15689.s1.tag = NULL_TYPE; /* x217225 */ t15688.s1.tag = STRUCTURE_TYPE24753; t15688.s1.value.structure_type24753 = &t15689; /* x217226 */ t15687.s0.tag = STRUCTURE_TYPE24753; t15687.s0.value.structure_type24753 = &t15688; /* x217227 */ t15687.s1.tag = NULL_TYPE; /* x217228 */ t15686.s1.tag = STRUCTURE_TYPE24753; t15686.s1.value.structure_type24753 = &t15687; /* x217229 */ t15685.s0.tag = STRUCTURE_TYPE24753; t15685.s0.value.structure_type24753 = &t15686; /* x217230 */ t15694.s0.tag = FIXNUM_TYPE; t15694.s0.value.fixnum_type = 1; /* x217231 */ t15695.s0.tag = FIXNUM_TYPE; t15695.s0.value.fixnum_type = 0; /* x217232 */ t15695.s1.tag = NULL_TYPE; /* x217233 */ t15694.s1.tag = STRUCTURE_TYPE24753; t15694.s1.value.structure_type24753 = &t15695; /* x217234 */ t15685.s1.tag = STRUCTURE_TYPE24753; t15685.s1.value.structure_type24753 = &t15694; /* x217235 */ t15681.s1.tag = STRUCTURE_TYPE24753; t15681.s1.value.structure_type24753 = &t15685; /* x217236 */ t15680.s1.tag = STRUCTURE_TYPE24753; t15680.s1.value.structure_type24753 = &t15681; /* x217237 */ t15679.s1.tag = STRUCTURE_TYPE24753; t15679.s1.value.structure_type24753 = &t15680; /* x217238 */ t15678.s0.tag = STRUCTURE_TYPE24753; t15678.s0.value.structure_type24753 = &t15679; /* x217239 */ t15697.s0.tag = EXTERNAL_SYMBOL_TYPE; t15697.s0.value.external_symbol_type = q693; /* x217240 */ t15698.s0.tag = EXTERNAL_SYMBOL_TYPE; t15698.s0.value.external_symbol_type = q540; /* x217241 */ t15700.s0.tag = EXTERNAL_SYMBOL_TYPE; t15700.s0.value.external_symbol_type = q557; /* x217242 */ t15701.s0.tag = EXTERNAL_SYMBOL_TYPE; t15701.s0.value.external_symbol_type = q540; /* x217243 */ t15702.s0.tag = EXTERNAL_SYMBOL_TYPE; t15702.s0.value.external_symbol_type = q545; /* x217244 */ t15702.s1.tag = NULL_TYPE; /* x217245 */ t15701.s1.tag = STRUCTURE_TYPE24753; t15701.s1.value.structure_type24753 = &t15702; /* x217246 */ t15700.s1.tag = STRUCTURE_TYPE24753; t15700.s1.value.structure_type24753 = &t15701; /* x217247 */ t15699.s0.tag = STRUCTURE_TYPE24753; t15699.s0.value.structure_type24753 = &t15700; /* x217248 */ t15704.s0.tag = EXTERNAL_SYMBOL_TYPE; t15704.s0.value.external_symbol_type = q694; /* x217249 */ t15706.s0.tag = EXTERNAL_SYMBOL_TYPE; t15706.s0.value.external_symbol_type = q1; /* x217250 */ t15708.s0.tag = EXTERNAL_SYMBOL_TYPE; t15708.s0.value.external_symbol_type = q582; /* x217251 */ t15710.s0.tag = EXTERNAL_SYMBOL_TYPE; t15710.s0.value.external_symbol_type = q583; /* x217252 */ t15711.s0.tag = EXTERNAL_SYMBOL_TYPE; t15711.s0.value.external_symbol_type = q629; /* x217253 */ t15711.s1.tag = NULL_TYPE; /* x217254 */ t15710.s1.tag = STRUCTURE_TYPE24753; t15710.s1.value.structure_type24753 = &t15711; /* x217255 */ t15709.s0.tag = STRUCTURE_TYPE24753; t15709.s0.value.structure_type24753 = &t15710; /* x217256 */ t15709.s1.tag = NULL_TYPE; /* x217257 */ t15708.s1.tag = STRUCTURE_TYPE24753; t15708.s1.value.structure_type24753 = &t15709; /* x217258 */ t15707.s0.tag = STRUCTURE_TYPE24753; t15707.s0.value.structure_type24753 = &t15708; /* x217259 */ t15707.s1.tag = NULL_TYPE; /* x217260 */ t15706.s1.tag = STRUCTURE_TYPE24753; t15706.s1.value.structure_type24753 = &t15707; /* x217261 */ t15705.s0.tag = STRUCTURE_TYPE24753; t15705.s0.value.structure_type24753 = &t15706; /* x217262 */ t15705.s1.tag = NULL_TYPE; /* x217263 */ t15704.s1.tag = STRUCTURE_TYPE24753; t15704.s1.value.structure_type24753 = &t15705; /* x217264 */ t15703.s0.tag = STRUCTURE_TYPE24753; t15703.s0.value.structure_type24753 = &t15704; /* x217265 */ t15712.s0.tag = FIXNUM_TYPE; t15712.s0.value.fixnum_type = 1; /* x217266 */ t15713.s0.tag = FIXNUM_TYPE; t15713.s0.value.fixnum_type = 0; /* x217267 */ t15713.s1.tag = NULL_TYPE; /* x217268 */ t15712.s1.tag = STRUCTURE_TYPE24753; t15712.s1.value.structure_type24753 = &t15713; /* x217269 */ t15703.s1.tag = STRUCTURE_TYPE24753; t15703.s1.value.structure_type24753 = &t15712; /* x217270 */ t15699.s1.tag = STRUCTURE_TYPE24753; t15699.s1.value.structure_type24753 = &t15703; /* x217271 */ t15698.s1.tag = STRUCTURE_TYPE24753; t15698.s1.value.structure_type24753 = &t15699; /* x217272 */ t15697.s1.tag = STRUCTURE_TYPE24753; t15697.s1.value.structure_type24753 = &t15698; /* x217273 */ t15696.s0.tag = STRUCTURE_TYPE24753; t15696.s0.value.structure_type24753 = &t15697; /* x217274 */ t15715.s0.tag = EXTERNAL_SYMBOL_TYPE; t15715.s0.value.external_symbol_type = q693; /* x217275 */ t15716.s0.tag = EXTERNAL_SYMBOL_TYPE; t15716.s0.value.external_symbol_type = q540; /* x217276 */ t15718.s0.tag = EXTERNAL_SYMBOL_TYPE; t15718.s0.value.external_symbol_type = q557; /* x217277 */ t15719.s0.tag = EXTERNAL_SYMBOL_TYPE; t15719.s0.value.external_symbol_type = q540; /* x217278 */ t15720.s0.tag = EXTERNAL_SYMBOL_TYPE; t15720.s0.value.external_symbol_type = q545; /* x217279 */ t15720.s1.tag = NULL_TYPE; /* x217280 */ t15719.s1.tag = STRUCTURE_TYPE24753; t15719.s1.value.structure_type24753 = &t15720; /* x217281 */ t15718.s1.tag = STRUCTURE_TYPE24753; t15718.s1.value.structure_type24753 = &t15719; /* x217282 */ t15717.s0.tag = STRUCTURE_TYPE24753; t15717.s0.value.structure_type24753 = &t15718; /* x217283 */ t15722.s0.tag = EXTERNAL_SYMBOL_TYPE; t15722.s0.value.external_symbol_type = q694; /* x217284 */ t15724.s0.tag = EXTERNAL_SYMBOL_TYPE; t15724.s0.value.external_symbol_type = q1; /* x217285 */ t15726.s0.tag = EXTERNAL_SYMBOL_TYPE; t15726.s0.value.external_symbol_type = q582; /* x217286 */ t15728.s0.tag = EXTERNAL_SYMBOL_TYPE; t15728.s0.value.external_symbol_type = q583; /* x217287 */ t15729.s0.tag = EXTERNAL_SYMBOL_TYPE; t15729.s0.value.external_symbol_type = q631; /* x217288 */ t15729.s1.tag = NULL_TYPE; /* x217289 */ t15728.s1.tag = STRUCTURE_TYPE24753; t15728.s1.value.structure_type24753 = &t15729; /* x217290 */ t15727.s0.tag = STRUCTURE_TYPE24753; t15727.s0.value.structure_type24753 = &t15728; /* x217291 */ t15727.s1.tag = NULL_TYPE; /* x217292 */ t15726.s1.tag = STRUCTURE_TYPE24753; t15726.s1.value.structure_type24753 = &t15727; /* x217293 */ t15725.s0.tag = STRUCTURE_TYPE24753; t15725.s0.value.structure_type24753 = &t15726; /* x217294 */ t15725.s1.tag = NULL_TYPE; /* x217295 */ t15724.s1.tag = STRUCTURE_TYPE24753; t15724.s1.value.structure_type24753 = &t15725; /* x217296 */ t15723.s0.tag = STRUCTURE_TYPE24753; t15723.s0.value.structure_type24753 = &t15724; /* x217297 */ t15723.s1.tag = NULL_TYPE; /* x217298 */ t15722.s1.tag = STRUCTURE_TYPE24753; t15722.s1.value.structure_type24753 = &t15723; /* x217299 */ t15721.s0.tag = STRUCTURE_TYPE24753; t15721.s0.value.structure_type24753 = &t15722; /* x217300 */ t15730.s0.tag = FIXNUM_TYPE; t15730.s0.value.fixnum_type = 1; /* x217301 */ t15731.s0.tag = FIXNUM_TYPE; t15731.s0.value.fixnum_type = 0; /* x217302 */ t15731.s1.tag = NULL_TYPE; /* x217303 */ t15730.s1.tag = STRUCTURE_TYPE24753; t15730.s1.value.structure_type24753 = &t15731; /* x217304 */ t15721.s1.tag = STRUCTURE_TYPE24753; t15721.s1.value.structure_type24753 = &t15730; /* x217305 */ t15717.s1.tag = STRUCTURE_TYPE24753; t15717.s1.value.structure_type24753 = &t15721; /* x217306 */ t15716.s1.tag = STRUCTURE_TYPE24753; t15716.s1.value.structure_type24753 = &t15717; /* x217307 */ t15715.s1.tag = STRUCTURE_TYPE24753; t15715.s1.value.structure_type24753 = &t15716; /* x217308 */ t15714.s0.tag = STRUCTURE_TYPE24753; t15714.s0.value.structure_type24753 = &t15715; /* x217309 */ t15733.s0.tag = EXTERNAL_SYMBOL_TYPE; t15733.s0.value.external_symbol_type = q693; /* x217310 */ t15734.s0.tag = EXTERNAL_SYMBOL_TYPE; t15734.s0.value.external_symbol_type = q540; /* x217311 */ t15736.s0.tag = EXTERNAL_SYMBOL_TYPE; t15736.s0.value.external_symbol_type = q557; /* x217312 */ t15737.s0.tag = EXTERNAL_SYMBOL_TYPE; t15737.s0.value.external_symbol_type = q540; /* x217313 */ t15738.s0.tag = EXTERNAL_SYMBOL_TYPE; t15738.s0.value.external_symbol_type = q545; /* x217314 */ t15738.s1.tag = NULL_TYPE; /* x217315 */ t15737.s1.tag = STRUCTURE_TYPE24753; t15737.s1.value.structure_type24753 = &t15738; /* x217316 */ t15736.s1.tag = STRUCTURE_TYPE24753; t15736.s1.value.structure_type24753 = &t15737; /* x217317 */ t15735.s0.tag = STRUCTURE_TYPE24753; t15735.s0.value.structure_type24753 = &t15736; /* x217318 */ t15740.s0.tag = EXTERNAL_SYMBOL_TYPE; t15740.s0.value.external_symbol_type = q694; /* x217319 */ t15742.s0.tag = EXTERNAL_SYMBOL_TYPE; t15742.s0.value.external_symbol_type = q1; /* x217320 */ t15744.s0.tag = EXTERNAL_SYMBOL_TYPE; t15744.s0.value.external_symbol_type = q582; /* x217321 */ t15746.s0.tag = EXTERNAL_SYMBOL_TYPE; t15746.s0.value.external_symbol_type = q583; /* x217322 */ t15747.s0.tag = EXTERNAL_SYMBOL_TYPE; t15747.s0.value.external_symbol_type = q633; /* x217323 */ t15747.s1.tag = NULL_TYPE; /* x217324 */ t15746.s1.tag = STRUCTURE_TYPE24753; t15746.s1.value.structure_type24753 = &t15747; /* x217325 */ t15745.s0.tag = STRUCTURE_TYPE24753; t15745.s0.value.structure_type24753 = &t15746; /* x217326 */ t15745.s1.tag = NULL_TYPE; /* x217327 */ t15744.s1.tag = STRUCTURE_TYPE24753; t15744.s1.value.structure_type24753 = &t15745; /* x217328 */ t15743.s0.tag = STRUCTURE_TYPE24753; t15743.s0.value.structure_type24753 = &t15744; /* x217329 */ t15743.s1.tag = NULL_TYPE; /* x217330 */ t15742.s1.tag = STRUCTURE_TYPE24753; t15742.s1.value.structure_type24753 = &t15743; /* x217331 */ t15741.s0.tag = STRUCTURE_TYPE24753; t15741.s0.value.structure_type24753 = &t15742; /* x217332 */ t15741.s1.tag = NULL_TYPE; /* x217333 */ t15740.s1.tag = STRUCTURE_TYPE24753; t15740.s1.value.structure_type24753 = &t15741; /* x217334 */ t15739.s0.tag = STRUCTURE_TYPE24753; t15739.s0.value.structure_type24753 = &t15740; /* x217335 */ t15748.s0.tag = FIXNUM_TYPE; t15748.s0.value.fixnum_type = 1; /* x217336 */ t15749.s0.tag = FIXNUM_TYPE; t15749.s0.value.fixnum_type = 0; /* x217337 */ t15749.s1.tag = NULL_TYPE; /* x217338 */ t15748.s1.tag = STRUCTURE_TYPE24753; t15748.s1.value.structure_type24753 = &t15749; /* x217339 */ t15739.s1.tag = STRUCTURE_TYPE24753; t15739.s1.value.structure_type24753 = &t15748; /* x217340 */ t15735.s1.tag = STRUCTURE_TYPE24753; t15735.s1.value.structure_type24753 = &t15739; /* x217341 */ t15734.s1.tag = STRUCTURE_TYPE24753; t15734.s1.value.structure_type24753 = &t15735; /* x217342 */ t15733.s1.tag = STRUCTURE_TYPE24753; t15733.s1.value.structure_type24753 = &t15734; /* x217343 */ t15732.s0.tag = STRUCTURE_TYPE24753; t15732.s0.value.structure_type24753 = &t15733; /* x217344 */ t15751.s0.tag = EXTERNAL_SYMBOL_TYPE; t15751.s0.value.external_symbol_type = q693; /* x217345 */ t15752.s0.tag = EXTERNAL_SYMBOL_TYPE; t15752.s0.value.external_symbol_type = q540; /* x217346 */ t15754.s0.tag = EXTERNAL_SYMBOL_TYPE; t15754.s0.value.external_symbol_type = q557; /* x217347 */ t15755.s0.tag = EXTERNAL_SYMBOL_TYPE; t15755.s0.value.external_symbol_type = q540; /* x217348 */ t15756.s0.tag = EXTERNAL_SYMBOL_TYPE; t15756.s0.value.external_symbol_type = q545; /* x217349 */ t15756.s1.tag = NULL_TYPE; /* x217350 */ t15755.s1.tag = STRUCTURE_TYPE24753; t15755.s1.value.structure_type24753 = &t15756; /* x217351 */ t15754.s1.tag = STRUCTURE_TYPE24753; t15754.s1.value.structure_type24753 = &t15755; /* x217352 */ t15753.s0.tag = STRUCTURE_TYPE24753; t15753.s0.value.structure_type24753 = &t15754; /* x217353 */ t15758.s0.tag = EXTERNAL_SYMBOL_TYPE; t15758.s0.value.external_symbol_type = q694; /* x217354 */ t15760.s0.tag = EXTERNAL_SYMBOL_TYPE; t15760.s0.value.external_symbol_type = q1; /* x217355 */ t15762.s0.tag = EXTERNAL_SYMBOL_TYPE; t15762.s0.value.external_symbol_type = q582; /* x217356 */ t15764.s0.tag = EXTERNAL_SYMBOL_TYPE; t15764.s0.value.external_symbol_type = q583; /* x217357 */ t15765.s0.tag = EXTERNAL_SYMBOL_TYPE; t15765.s0.value.external_symbol_type = q635; /* x217358 */ t15765.s1.tag = NULL_TYPE; /* x217359 */ t15764.s1.tag = STRUCTURE_TYPE24753; t15764.s1.value.structure_type24753 = &t15765; /* x217360 */ t15763.s0.tag = STRUCTURE_TYPE24753; t15763.s0.value.structure_type24753 = &t15764; /* x217361 */ t15763.s1.tag = NULL_TYPE; /* x217362 */ t15762.s1.tag = STRUCTURE_TYPE24753; t15762.s1.value.structure_type24753 = &t15763; /* x217363 */ t15761.s0.tag = STRUCTURE_TYPE24753; t15761.s0.value.structure_type24753 = &t15762; /* x217364 */ t15761.s1.tag = NULL_TYPE; /* x217365 */ t15760.s1.tag = STRUCTURE_TYPE24753; t15760.s1.value.structure_type24753 = &t15761; /* x217366 */ t15759.s0.tag = STRUCTURE_TYPE24753; t15759.s0.value.structure_type24753 = &t15760; /* x217367 */ t15759.s1.tag = NULL_TYPE; /* x217368 */ t15758.s1.tag = STRUCTURE_TYPE24753; t15758.s1.value.structure_type24753 = &t15759; /* x217369 */ t15757.s0.tag = STRUCTURE_TYPE24753; t15757.s0.value.structure_type24753 = &t15758; /* x217370 */ t15766.s0.tag = FIXNUM_TYPE; t15766.s0.value.fixnum_type = 1; /* x217371 */ t15767.s0.tag = FIXNUM_TYPE; t15767.s0.value.fixnum_type = 0; /* x217372 */ t15767.s1.tag = NULL_TYPE; /* x217373 */ t15766.s1.tag = STRUCTURE_TYPE24753; t15766.s1.value.structure_type24753 = &t15767; /* x217374 */ t15757.s1.tag = STRUCTURE_TYPE24753; t15757.s1.value.structure_type24753 = &t15766; /* x217375 */ t15753.s1.tag = STRUCTURE_TYPE24753; t15753.s1.value.structure_type24753 = &t15757; /* x217376 */ t15752.s1.tag = STRUCTURE_TYPE24753; t15752.s1.value.structure_type24753 = &t15753; /* x217377 */ t15751.s1.tag = STRUCTURE_TYPE24753; t15751.s1.value.structure_type24753 = &t15752; /* x217378 */ t15750.s0.tag = STRUCTURE_TYPE24753; t15750.s0.value.structure_type24753 = &t15751; /* x217379 */ t15769.s0.tag = EXTERNAL_SYMBOL_TYPE; t15769.s0.value.external_symbol_type = q693; /* x217380 */ t15770.s0.tag = EXTERNAL_SYMBOL_TYPE; t15770.s0.value.external_symbol_type = q540; /* x217381 */ t15772.s0.tag = EXTERNAL_SYMBOL_TYPE; t15772.s0.value.external_symbol_type = q557; /* x217382 */ t15773.s0.tag = EXTERNAL_SYMBOL_TYPE; t15773.s0.value.external_symbol_type = q540; /* x217383 */ t15774.s0.tag = EXTERNAL_SYMBOL_TYPE; t15774.s0.value.external_symbol_type = q545; /* x217384 */ t15774.s1.tag = NULL_TYPE; /* x217385 */ t15773.s1.tag = STRUCTURE_TYPE24753; t15773.s1.value.structure_type24753 = &t15774; /* x217386 */ t15772.s1.tag = STRUCTURE_TYPE24753; t15772.s1.value.structure_type24753 = &t15773; /* x217387 */ t15771.s0.tag = STRUCTURE_TYPE24753; t15771.s0.value.structure_type24753 = &t15772; /* x217388 */ t15776.s0.tag = EXTERNAL_SYMBOL_TYPE; t15776.s0.value.external_symbol_type = q694; /* x217389 */ t15778.s0.tag = EXTERNAL_SYMBOL_TYPE; t15778.s0.value.external_symbol_type = q1; /* x217390 */ t15780.s0.tag = EXTERNAL_SYMBOL_TYPE; t15780.s0.value.external_symbol_type = q582; /* x217391 */ t15782.s0.tag = EXTERNAL_SYMBOL_TYPE; t15782.s0.value.external_symbol_type = q583; /* x217392 */ t15783.s0.tag = EXTERNAL_SYMBOL_TYPE; t15783.s0.value.external_symbol_type = q637; /* x217393 */ t15783.s1.tag = NULL_TYPE; /* x217394 */ t15782.s1.tag = STRUCTURE_TYPE24753; t15782.s1.value.structure_type24753 = &t15783; /* x217395 */ t15781.s0.tag = STRUCTURE_TYPE24753; t15781.s0.value.structure_type24753 = &t15782; /* x217396 */ t15781.s1.tag = NULL_TYPE; /* x217397 */ t15780.s1.tag = STRUCTURE_TYPE24753; t15780.s1.value.structure_type24753 = &t15781; /* x217398 */ t15779.s0.tag = STRUCTURE_TYPE24753; t15779.s0.value.structure_type24753 = &t15780; /* x217399 */ t15779.s1.tag = NULL_TYPE; /* x217400 */ t15778.s1.tag = STRUCTURE_TYPE24753; t15778.s1.value.structure_type24753 = &t15779; /* x217401 */ t15777.s0.tag = STRUCTURE_TYPE24753; t15777.s0.value.structure_type24753 = &t15778; /* x217402 */ t15777.s1.tag = NULL_TYPE; /* x217403 */ t15776.s1.tag = STRUCTURE_TYPE24753; t15776.s1.value.structure_type24753 = &t15777; /* x217404 */ t15775.s0.tag = STRUCTURE_TYPE24753; t15775.s0.value.structure_type24753 = &t15776; /* x217405 */ t15784.s0.tag = FIXNUM_TYPE; t15784.s0.value.fixnum_type = 1; /* x217406 */ t15785.s0.tag = FIXNUM_TYPE; t15785.s0.value.fixnum_type = 0; /* x217407 */ t15785.s1.tag = NULL_TYPE; /* x217408 */ t15784.s1.tag = STRUCTURE_TYPE24753; t15784.s1.value.structure_type24753 = &t15785; /* x217409 */ t15775.s1.tag = STRUCTURE_TYPE24753; t15775.s1.value.structure_type24753 = &t15784; /* x217410 */ t15771.s1.tag = STRUCTURE_TYPE24753; t15771.s1.value.structure_type24753 = &t15775; /* x217411 */ t15770.s1.tag = STRUCTURE_TYPE24753; t15770.s1.value.structure_type24753 = &t15771; /* x217412 */ t15769.s1.tag = STRUCTURE_TYPE24753; t15769.s1.value.structure_type24753 = &t15770; /* x217413 */ t15768.s0.tag = STRUCTURE_TYPE24753; t15768.s0.value.structure_type24753 = &t15769; /* x217414 */ t15787.s0.tag = EXTERNAL_SYMBOL_TYPE; t15787.s0.value.external_symbol_type = q693; /* x217415 */ t15788.s0.tag = EXTERNAL_SYMBOL_TYPE; t15788.s0.value.external_symbol_type = q540; /* x217416 */ t15790.s0.tag = EXTERNAL_SYMBOL_TYPE; t15790.s0.value.external_symbol_type = q557; /* x217417 */ t15791.s0.tag = EXTERNAL_SYMBOL_TYPE; t15791.s0.value.external_symbol_type = q540; /* x217418 */ t15792.s0.tag = EXTERNAL_SYMBOL_TYPE; t15792.s0.value.external_symbol_type = q545; /* x217419 */ t15792.s1.tag = NULL_TYPE; /* x217420 */ t15791.s1.tag = STRUCTURE_TYPE24753; t15791.s1.value.structure_type24753 = &t15792; /* x217421 */ t15790.s1.tag = STRUCTURE_TYPE24753; t15790.s1.value.structure_type24753 = &t15791; /* x217422 */ t15789.s0.tag = STRUCTURE_TYPE24753; t15789.s0.value.structure_type24753 = &t15790; /* x217423 */ t15794.s0.tag = EXTERNAL_SYMBOL_TYPE; t15794.s0.value.external_symbol_type = q694; /* x217424 */ t15796.s0.tag = EXTERNAL_SYMBOL_TYPE; t15796.s0.value.external_symbol_type = q1; /* x217425 */ t15798.s0.tag = EXTERNAL_SYMBOL_TYPE; t15798.s0.value.external_symbol_type = q582; /* x217426 */ t15800.s0.tag = EXTERNAL_SYMBOL_TYPE; t15800.s0.value.external_symbol_type = q583; /* x217427 */ t15801.s0.tag = EXTERNAL_SYMBOL_TYPE; t15801.s0.value.external_symbol_type = q639; /* x217428 */ t15801.s1.tag = NULL_TYPE; /* x217429 */ t15800.s1.tag = STRUCTURE_TYPE24753; t15800.s1.value.structure_type24753 = &t15801; /* x217430 */ t15799.s0.tag = STRUCTURE_TYPE24753; t15799.s0.value.structure_type24753 = &t15800; /* x217431 */ t15799.s1.tag = NULL_TYPE; /* x217432 */ t15798.s1.tag = STRUCTURE_TYPE24753; t15798.s1.value.structure_type24753 = &t15799; /* x217433 */ t15797.s0.tag = STRUCTURE_TYPE24753; t15797.s0.value.structure_type24753 = &t15798; /* x217434 */ t15797.s1.tag = NULL_TYPE; /* x217435 */ t15796.s1.tag = STRUCTURE_TYPE24753; t15796.s1.value.structure_type24753 = &t15797; /* x217436 */ t15795.s0.tag = STRUCTURE_TYPE24753; t15795.s0.value.structure_type24753 = &t15796; /* x217437 */ t15795.s1.tag = NULL_TYPE; /* x217438 */ t15794.s1.tag = STRUCTURE_TYPE24753; t15794.s1.value.structure_type24753 = &t15795; /* x217439 */ t15793.s0.tag = STRUCTURE_TYPE24753; t15793.s0.value.structure_type24753 = &t15794; /* x217440 */ t15802.s0.tag = FIXNUM_TYPE; t15802.s0.value.fixnum_type = 1; /* x217441 */ t15803.s0.tag = FIXNUM_TYPE; t15803.s0.value.fixnum_type = 0; /* x217442 */ t15803.s1.tag = NULL_TYPE; /* x217443 */ t15802.s1.tag = STRUCTURE_TYPE24753; t15802.s1.value.structure_type24753 = &t15803; /* x217444 */ t15793.s1.tag = STRUCTURE_TYPE24753; t15793.s1.value.structure_type24753 = &t15802; /* x217445 */ t15789.s1.tag = STRUCTURE_TYPE24753; t15789.s1.value.structure_type24753 = &t15793; /* x217446 */ t15788.s1.tag = STRUCTURE_TYPE24753; t15788.s1.value.structure_type24753 = &t15789; /* x217447 */ t15787.s1.tag = STRUCTURE_TYPE24753; t15787.s1.value.structure_type24753 = &t15788; /* x217448 */ t15786.s0.tag = STRUCTURE_TYPE24753; t15786.s0.value.structure_type24753 = &t15787; /* x217449 */ t15786.s1.tag = NULL_TYPE; /* x217450 */ t15768.s1.tag = STRUCTURE_TYPE24753; t15768.s1.value.structure_type24753 = &t15786; /* x217451 */ t15750.s1.tag = STRUCTURE_TYPE24753; t15750.s1.value.structure_type24753 = &t15768; /* x217452 */ t15732.s1.tag = STRUCTURE_TYPE24753; t15732.s1.value.structure_type24753 = &t15750; /* x217453 */ t15714.s1.tag = STRUCTURE_TYPE24753; t15714.s1.value.structure_type24753 = &t15732; /* x217454 */ t15696.s1.tag = STRUCTURE_TYPE24753; t15696.s1.value.structure_type24753 = &t15714; /* x217455 */ t15678.s1.tag = STRUCTURE_TYPE24753; t15678.s1.value.structure_type24753 = &t15696; /* x217456 */ t15660.s1.tag = STRUCTURE_TYPE24753; t15660.s1.value.structure_type24753 = &t15678; /* x217457 */ t15642.s1.tag = STRUCTURE_TYPE24753; t15642.s1.value.structure_type24753 = &t15660; /* x217458 */ t15624.s1.tag = STRUCTURE_TYPE24753; t15624.s1.value.structure_type24753 = &t15642; /* x217459 */ t15606.s1.tag = STRUCTURE_TYPE24753; t15606.s1.value.structure_type24753 = &t15624; /* x217460 */ t15588.s1.tag = STRUCTURE_TYPE24753; t15588.s1.value.structure_type24753 = &t15606; /* x217461 */ t15570.s1.tag = STRUCTURE_TYPE24753; t15570.s1.value.structure_type24753 = &t15588; /* x217462 */ t15566.s1.tag = STRUCTURE_TYPE24753; t15566.s1.value.structure_type24753 = &t15570; /* x217463 */ t15562.s1.tag = STRUCTURE_TYPE24753; t15562.s1.value.structure_type24753 = &t15566; /* x217464 */ t15558.s1.tag = STRUCTURE_TYPE24753; t15558.s1.value.structure_type24753 = &t15562; /* x217465 */ t15554.s1.tag = STRUCTURE_TYPE24753; t15554.s1.value.structure_type24753 = &t15558; /* x217466 */ t15550.s1.tag = STRUCTURE_TYPE24753; t15550.s1.value.structure_type24753 = &t15554; /* x217467 */ t15546.s1.tag = STRUCTURE_TYPE24753; t15546.s1.value.structure_type24753 = &t15550; /* x217468 */ t15542.s1.tag = STRUCTURE_TYPE24753; t15542.s1.value.structure_type24753 = &t15546; /* x217469 */ t15538.s1.tag = STRUCTURE_TYPE24753; t15538.s1.value.structure_type24753 = &t15542; /* x217470 */ t15534.s1.tag = STRUCTURE_TYPE24753; t15534.s1.value.structure_type24753 = &t15538; /* x217471 */ t15530.s1.tag = STRUCTURE_TYPE24753; t15530.s1.value.structure_type24753 = &t15534; /* x217472 */ t15526.s1.tag = STRUCTURE_TYPE24753; t15526.s1.value.structure_type24753 = &t15530; /* x217473 */ t15522.s1.tag = STRUCTURE_TYPE24753; t15522.s1.value.structure_type24753 = &t15526; /* x217474 */ t15521.s1.tag = STRUCTURE_TYPE24753; t15521.s1.value.structure_type24753 = &t15522; /* x217475 */ t15520.s1.tag = STRUCTURE_TYPE24753; t15520.s1.value.structure_type24753 = &t15521; /* x217476 */ t15519.s0.tag = STRUCTURE_TYPE24753; t15519.s0.value.structure_type24753 = &t15520; /* x217477 */ t15805.s0.tag = EXTERNAL_SYMBOL_TYPE; t15805.s0.value.external_symbol_type = q695; /* x217478 */ t15806.s0.tag = EXTERNAL_SYMBOL_TYPE; t15806.s0.value.external_symbol_type = q540; /* x217479 */ t15808.s0.tag = EXTERNAL_SYMBOL_TYPE; t15808.s0.value.external_symbol_type = q616; /* x217480 */ t15809.s0.tag = EXTERNAL_SYMBOL_TYPE; t15809.s0.value.external_symbol_type = q562; /* x217481 */ t15809.s1.tag = NULL_TYPE; /* x217482 */ t15808.s1.tag = STRUCTURE_TYPE24753; t15808.s1.value.structure_type24753 = &t15809; /* x217483 */ t15807.s0.tag = STRUCTURE_TYPE24753; t15807.s0.value.structure_type24753 = &t15808; /* x217484 */ t15807.s1.tag = NULL_TYPE; /* x217485 */ t15806.s1.tag = STRUCTURE_TYPE24753; t15806.s1.value.structure_type24753 = &t15807; /* x217486 */ t15805.s1.tag = STRUCTURE_TYPE24753; t15805.s1.value.structure_type24753 = &t15806; /* x217487 */ t15804.s0.tag = STRUCTURE_TYPE24753; t15804.s0.value.structure_type24753 = &t15805; /* x217488 */ t15811.s0.tag = EXTERNAL_SYMBOL_TYPE; t15811.s0.value.external_symbol_type = q695; /* x217489 */ t15812.s0.tag = EXTERNAL_SYMBOL_TYPE; t15812.s0.value.external_symbol_type = q540; /* x217490 */ t15814.s0.tag = EXTERNAL_SYMBOL_TYPE; t15814.s0.value.external_symbol_type = q616; /* x217491 */ t15815.s0.tag = EXTERNAL_SYMBOL_TYPE; t15815.s0.value.external_symbol_type = q565; /* x217492 */ t15815.s1.tag = NULL_TYPE; /* x217493 */ t15814.s1.tag = STRUCTURE_TYPE24753; t15814.s1.value.structure_type24753 = &t15815; /* x217494 */ t15813.s0.tag = STRUCTURE_TYPE24753; t15813.s0.value.structure_type24753 = &t15814; /* x217495 */ t15813.s1.tag = NULL_TYPE; /* x217496 */ t15812.s1.tag = STRUCTURE_TYPE24753; t15812.s1.value.structure_type24753 = &t15813; /* x217497 */ t15811.s1.tag = STRUCTURE_TYPE24753; t15811.s1.value.structure_type24753 = &t15812; /* x217498 */ t15810.s0.tag = STRUCTURE_TYPE24753; t15810.s0.value.structure_type24753 = &t15811; /* x217499 */ t15817.s0.tag = EXTERNAL_SYMBOL_TYPE; t15817.s0.value.external_symbol_type = q696; /* x217500 */ t15818.s0.tag = EXTERNAL_SYMBOL_TYPE; t15818.s0.value.external_symbol_type = q540; /* x217501 */ t15819.s0.tag = EXTERNAL_SYMBOL_TYPE; t15819.s0.value.external_symbol_type = q578; /* x217502 */ t15819.s1.tag = NULL_TYPE; /* x217503 */ t15818.s1.tag = STRUCTURE_TYPE24753; t15818.s1.value.structure_type24753 = &t15819; /* x217504 */ t15817.s1.tag = STRUCTURE_TYPE24753; t15817.s1.value.structure_type24753 = &t15818; /* x217505 */ t15816.s0.tag = STRUCTURE_TYPE24753; t15816.s0.value.structure_type24753 = &t15817; /* x217506 */ t15821.s0.tag = EXTERNAL_SYMBOL_TYPE; t15821.s0.value.external_symbol_type = q697; /* x217507 */ t15822.s0.tag = EXTERNAL_SYMBOL_TYPE; t15822.s0.value.external_symbol_type = q540; /* x217508 */ t15822.s1.tag = NULL_TYPE; /* x217509 */ t15821.s1.tag = STRUCTURE_TYPE24753; t15821.s1.value.structure_type24753 = &t15822; /* x217510 */ t15820.s0.tag = STRUCTURE_TYPE24753; t15820.s0.value.structure_type24753 = &t15821; /* x217511 */ t15824.s0.tag = EXTERNAL_SYMBOL_TYPE; t15824.s0.value.external_symbol_type = q42; /* x217512 */ t15825.s0.tag = EXTERNAL_SYMBOL_TYPE; t15825.s0.value.external_symbol_type = q540; /* x217513 */ t15826.s0.tag = FALSE_TYPE; /* x217514 */ t15826.s1.tag = NULL_TYPE; /* x217515 */ t15825.s1.tag = STRUCTURE_TYPE24753; t15825.s1.value.structure_type24753 = &t15826; /* x217516 */ t15824.s1.tag = STRUCTURE_TYPE24753; t15824.s1.value.structure_type24753 = &t15825; /* x217517 */ t15823.s0.tag = STRUCTURE_TYPE24753; t15823.s0.value.structure_type24753 = &t15824; /* x217518 */ t15823.s1.tag = NULL_TYPE; /* x217519 */ t15820.s1.tag = STRUCTURE_TYPE24753; t15820.s1.value.structure_type24753 = &t15823; /* x217520 */ t15816.s1.tag = STRUCTURE_TYPE24753; t15816.s1.value.structure_type24753 = &t15820; /* x217521 */ t15810.s1.tag = STRUCTURE_TYPE24753; t15810.s1.value.structure_type24753 = &t15816; /* x217522 */ t15804.s1.tag = STRUCTURE_TYPE24753; t15804.s1.value.structure_type24753 = &t15810; /* x217523 */ t15519.s1.tag = STRUCTURE_TYPE24753; t15519.s1.value.structure_type24753 = &t15804; /* x217524 */ t15515.s1.tag = STRUCTURE_TYPE24753; t15515.s1.value.structure_type24753 = &t15519; /* x217525 */ t15511.s1.tag = STRUCTURE_TYPE24753; t15511.s1.value.structure_type24753 = &t15515; /* x217526 */ t15507.s1.tag = STRUCTURE_TYPE24753; t15507.s1.value.structure_type24753 = &t15511; /* x217527 */ t15503.s1.tag = STRUCTURE_TYPE24753; t15503.s1.value.structure_type24753 = &t15507; /* x217528 */ t15499.s1.tag = STRUCTURE_TYPE24753; t15499.s1.value.structure_type24753 = &t15503; /* x217529 */ t15495.s1.tag = STRUCTURE_TYPE24753; t15495.s1.value.structure_type24753 = &t15499; /* x217530 */ t15491.s1.tag = STRUCTURE_TYPE24753; t15491.s1.value.structure_type24753 = &t15495; /* x217531 */ t15487.s1.tag = STRUCTURE_TYPE24753; t15487.s1.value.structure_type24753 = &t15491; /* x217532 */ t15483.s1.tag = STRUCTURE_TYPE24753; t15483.s1.value.structure_type24753 = &t15487; /* x217533 */ t15479.s1.tag = STRUCTURE_TYPE24753; t15479.s1.value.structure_type24753 = &t15483; /* x217534 */ t15475.s1.tag = STRUCTURE_TYPE24753; t15475.s1.value.structure_type24753 = &t15479; /* x217535 */ t15474.s1.tag = STRUCTURE_TYPE24753; t15474.s1.value.structure_type24753 = &t15475; /* x217536 */ t15473.s1.tag = STRUCTURE_TYPE24753; t15473.s1.value.structure_type24753 = &t15474; /* x217537 */ t15472.s0.tag = STRUCTURE_TYPE24753; t15472.s0.value.structure_type24753 = &t15473; /* x217538 */ t15827.s0.tag = TRUE_TYPE; /* x217539 */ t15827.s1.tag = NULL_TYPE; /* x217540 */ t15472.s1.tag = STRUCTURE_TYPE24753; t15472.s1.value.structure_type24753 = &t15827; /* x217541 */ t15470.s1.tag = STRUCTURE_TYPE24753; t15470.s1.value.structure_type24753 = &t15472; /* x217542 */ t15463.s1.tag = STRUCTURE_TYPE24753; t15463.s1.value.structure_type24753 = &t15470; /* x217543 */ t15462.s1.tag = STRUCTURE_TYPE24753; t15462.s1.value.structure_type24753 = &t15463; /* x217544 */ t15461.s1.tag = STRUCTURE_TYPE24753; t15461.s1.value.structure_type24753 = &t15462; /* x217545 */ t15460.s0.tag = STRUCTURE_TYPE24753; t15460.s0.value.structure_type24753 = &t15461; /* x217546 */ t15460.s1.tag = NULL_TYPE; /* x217547 */ t15459.s1.tag = STRUCTURE_TYPE24753; t15459.s1.value.structure_type24753 = &t15460; /* x217548 */ t15458.s1.tag = STRUCTURE_TYPE24753; t15458.s1.value.structure_type24753 = &t15459; /* x217549 */ t15457.s0.tag = STRUCTURE_TYPE24753; t15457.s0.value.structure_type24753 = &t15458; /* x217550 */ t15829.s0.tag = EXTERNAL_SYMBOL_TYPE; t15829.s0.value.external_symbol_type = q698; /* x217551 */ t15830.s0.tag = EXTERNAL_SYMBOL_TYPE; t15830.s0.value.external_symbol_type = q540; /* x217552 */ t15831.s0.tag = EXTERNAL_SYMBOL_TYPE; t15831.s0.value.external_symbol_type = q578; /* x217553 */ t15831.s1.tag = NULL_TYPE; /* x217554 */ t15830.s1.tag = STRUCTURE_TYPE24753; t15830.s1.value.structure_type24753 = &t15831; /* x217555 */ t15829.s1.tag = STRUCTURE_TYPE24753; t15829.s1.value.structure_type24753 = &t15830; /* x217556 */ t15828.s0.tag = STRUCTURE_TYPE24753; t15828.s0.value.structure_type24753 = &t15829; /* x217557 */ t15833.s0.tag = EXTERNAL_SYMBOL_TYPE; t15833.s0.value.external_symbol_type = q699; /* x217558 */ t15834.s0.tag = EXTERNAL_SYMBOL_TYPE; t15834.s0.value.external_symbol_type = q540; /* x217559 */ t15835.s0.tag = EXTERNAL_SYMBOL_TYPE; t15835.s0.value.external_symbol_type = q578; /* x217560 */ t15835.s1.tag = NULL_TYPE; /* x217561 */ t15834.s1.tag = STRUCTURE_TYPE24753; t15834.s1.value.structure_type24753 = &t15835; /* x217562 */ t15833.s1.tag = STRUCTURE_TYPE24753; t15833.s1.value.structure_type24753 = &t15834; /* x217563 */ t15832.s0.tag = STRUCTURE_TYPE24753; t15832.s0.value.structure_type24753 = &t15833; /* x217564 */ t15837.s0.tag = EXTERNAL_SYMBOL_TYPE; t15837.s0.value.external_symbol_type = q700; /* x217565 */ t15837.s1.tag = NULL_TYPE; /* x217566 */ t15836.s0.tag = STRUCTURE_TYPE24753; t15836.s0.value.structure_type24753 = &t15837; /* x217567 */ t15839.s0.tag = EXTERNAL_SYMBOL_TYPE; t15839.s0.value.external_symbol_type = q691; /* x217568 */ t15839.s1.tag = NULL_TYPE; /* x217569 */ t15838.s0.tag = STRUCTURE_TYPE24753; t15838.s0.value.structure_type24753 = &t15839; /* x217570 */ t15838.s1.tag = NULL_TYPE; /* x217571 */ t15836.s1.tag = STRUCTURE_TYPE24753; t15836.s1.value.structure_type24753 = &t15838; /* x217572 */ t15832.s1.tag = STRUCTURE_TYPE24753; t15832.s1.value.structure_type24753 = &t15836; /* x217573 */ t15828.s1.tag = STRUCTURE_TYPE24753; t15828.s1.value.structure_type24753 = &t15832; /* x217574 */ t15457.s1.tag = STRUCTURE_TYPE24753; t15457.s1.value.structure_type24753 = &t15828; /* x217575 */ t15450.s1.tag = STRUCTURE_TYPE24753; t15450.s1.value.structure_type24753 = &t15457; /* x217576 */ t15443.s1.tag = STRUCTURE_TYPE24753; t15443.s1.value.structure_type24753 = &t15450; /* x217577 */ t15433.s1.tag = STRUCTURE_TYPE24753; t15433.s1.value.structure_type24753 = &t15443; /* x217578 */ t15423.s1.tag = STRUCTURE_TYPE24753; t15423.s1.value.structure_type24753 = &t15433; /* x217579 */ t15416.s1.tag = STRUCTURE_TYPE24753; t15416.s1.value.structure_type24753 = &t15423; /* x217580 */ t15409.s1.tag = STRUCTURE_TYPE24753; t15409.s1.value.structure_type24753 = &t15416; /* x217581 */ t15407.s1.tag = STRUCTURE_TYPE24753; t15407.s1.value.structure_type24753 = &t15409; /* x217582 */ t15303.s1.tag = STRUCTURE_TYPE24753; t15303.s1.value.structure_type24753 = &t15407; /* x217583 */ t15283.s1.tag = STRUCTURE_TYPE24753; t15283.s1.value.structure_type24753 = &t15303; /* x217584 */ t15279.s1.tag = STRUCTURE_TYPE24753; t15279.s1.value.structure_type24753 = &t15283; /* x217585 */ t15275.s1.tag = STRUCTURE_TYPE24753; t15275.s1.value.structure_type24753 = &t15279; /* x217586 */ t15271.s1.tag = STRUCTURE_TYPE24753; t15271.s1.value.structure_type24753 = &t15275; /* x217587 */ t15265.s1.tag = STRUCTURE_TYPE24753; t15265.s1.value.structure_type24753 = &t15271; /* x217588 */ t15261.s1.tag = STRUCTURE_TYPE24753; t15261.s1.value.structure_type24753 = &t15265; /* x217589 */ t15257.s1.tag = STRUCTURE_TYPE24753; t15257.s1.value.structure_type24753 = &t15261; /* x217590 */ t15253.s1.tag = STRUCTURE_TYPE24753; t15253.s1.value.structure_type24753 = &t15257; /* x217591 */ t15247.s1.tag = STRUCTURE_TYPE24753; t15247.s1.value.structure_type24753 = &t15253; /* x217592 */ t15088.s1.tag = STRUCTURE_TYPE24753; t15088.s1.value.structure_type24753 = &t15247; /* x217593 */ t15081.s1.tag = STRUCTURE_TYPE24753; t15081.s1.value.structure_type24753 = &t15088; /* x217594 */ t15077.s1.tag = STRUCTURE_TYPE24753; t15077.s1.value.structure_type24753 = &t15081; /* x217595 */ t15070.s1.tag = STRUCTURE_TYPE24753; t15070.s1.value.structure_type24753 = &t15077; /* x217596 */ t15063.s1.tag = STRUCTURE_TYPE24753; t15063.s1.value.structure_type24753 = &t15070; /* x217597 */ t15056.s1.tag = STRUCTURE_TYPE24753; t15056.s1.value.structure_type24753 = &t15063; /* x217598 */ t15049.s1.tag = STRUCTURE_TYPE24753; t15049.s1.value.structure_type24753 = &t15056; /* x217599 */ t15042.s1.tag = STRUCTURE_TYPE24753; t15042.s1.value.structure_type24753 = &t15049; /* x217600 */ t15035.s1.tag = STRUCTURE_TYPE24753; t15035.s1.value.structure_type24753 = &t15042; /* x217601 */ t15029.s1.tag = STRUCTURE_TYPE24753; t15029.s1.value.structure_type24753 = &t15035; /* x217602 */ t15022.s1.tag = STRUCTURE_TYPE24753; t15022.s1.value.structure_type24753 = &t15029; /* x217603 */ t15016.s1.tag = STRUCTURE_TYPE24753; t15016.s1.value.structure_type24753 = &t15022; /* x217604 */ t15009.s1.tag = STRUCTURE_TYPE24753; t15009.s1.value.structure_type24753 = &t15016; /* x217605 */ t15005.s1.tag = STRUCTURE_TYPE24753; t15005.s1.value.structure_type24753 = &t15009; /* x217606 */ t15001.s1.tag = STRUCTURE_TYPE24753; t15001.s1.value.structure_type24753 = &t15005; /* x217607 */ t14995.s1.tag = STRUCTURE_TYPE24753; t14995.s1.value.structure_type24753 = &t15001; /* x217608 */ t14987.s1.tag = STRUCTURE_TYPE24753; t14987.s1.value.structure_type24753 = &t14995; /* x217609 */ t14974.s1.tag = STRUCTURE_TYPE24753; t14974.s1.value.structure_type24753 = &t14987; /* x217610 */ t14961.s1.tag = STRUCTURE_TYPE24753; t14961.s1.value.structure_type24753 = &t14974; /* x217611 */ t14951.s1.tag = STRUCTURE_TYPE24753; t14951.s1.value.structure_type24753 = &t14961; /* x217612 */ t14247.s1.tag = STRUCTURE_TYPE24753; t14247.s1.value.structure_type24753 = &t14951; /* x217613 */ t14242.s1.tag = STRUCTURE_TYPE24753; t14242.s1.value.structure_type24753 = &t14247; /* x217614 */ t14234.s1.tag = STRUCTURE_TYPE24753; t14234.s1.value.structure_type24753 = &t14242; /* x217615 */ t14227.s1.tag = STRUCTURE_TYPE24753; t14227.s1.value.structure_type24753 = &t14234; /* x217616 */ t14214.s1.tag = STRUCTURE_TYPE24753; t14214.s1.value.structure_type24753 = &t14227; /* x217617 */ t14201.s1.tag = STRUCTURE_TYPE24753; t14201.s1.value.structure_type24753 = &t14214; /* x217618 */ t14191.s1.tag = STRUCTURE_TYPE24753; t14191.s1.value.structure_type24753 = &t14201; /* x217619 */ t14184.s1.tag = STRUCTURE_TYPE24753; t14184.s1.value.structure_type24753 = &t14191; /* x217620 */ t14171.s1.tag = STRUCTURE_TYPE24753; t14171.s1.value.structure_type24753 = &t14184; /* x217621 */ t14158.s1.tag = STRUCTURE_TYPE24753; t14158.s1.value.structure_type24753 = &t14171; /* x217622 */ t14148.s1.tag = STRUCTURE_TYPE24753; t14148.s1.value.structure_type24753 = &t14158; /* x217623 */ t14141.s1.tag = STRUCTURE_TYPE24753; t14141.s1.value.structure_type24753 = &t14148; /* x217624 */ t14128.s1.tag = STRUCTURE_TYPE24753; t14128.s1.value.structure_type24753 = &t14141; /* x217625 */ t14115.s1.tag = STRUCTURE_TYPE24753; t14115.s1.value.structure_type24753 = &t14128; /* x217626 */ t14105.s1.tag = STRUCTURE_TYPE24753; t14105.s1.value.structure_type24753 = &t14115; /* x217627 */ t14100.s1.tag = STRUCTURE_TYPE24753; t14100.s1.value.structure_type24753 = &t14105; /* x217628 */ t14092.s1.tag = STRUCTURE_TYPE24753; t14092.s1.value.structure_type24753 = &t14100; /* x217629 */ t14079.s1.tag = STRUCTURE_TYPE24753; t14079.s1.value.structure_type24753 = &t14092; /* x217630 */ t14066.s1.tag = STRUCTURE_TYPE24753; t14066.s1.value.structure_type24753 = &t14079; /* x217631 */ t14056.s1.tag = STRUCTURE_TYPE24753; t14056.s1.value.structure_type24753 = &t14066; /* x217632 */ t14048.s1.tag = STRUCTURE_TYPE24753; t14048.s1.value.structure_type24753 = &t14056; /* x217633 */ t14035.s1.tag = STRUCTURE_TYPE24753; t14035.s1.value.structure_type24753 = &t14048; /* x217634 */ t14022.s1.tag = STRUCTURE_TYPE24753; t14022.s1.value.structure_type24753 = &t14035; /* x217635 */ t14012.s1.tag = STRUCTURE_TYPE24753; t14012.s1.value.structure_type24753 = &t14022; /* x217636 */ t14007.s1.tag = STRUCTURE_TYPE24753; t14007.s1.value.structure_type24753 = &t14012; /* x217637 */ t13999.s1.tag = STRUCTURE_TYPE24753; t13999.s1.value.structure_type24753 = &t14007; /* x217638 */ t13986.s1.tag = STRUCTURE_TYPE24753; t13986.s1.value.structure_type24753 = &t13999; /* x217639 */ t13973.s1.tag = STRUCTURE_TYPE24753; t13973.s1.value.structure_type24753 = &t13986; /* x217640 */ t13963.s1.tag = STRUCTURE_TYPE24753; t13963.s1.value.structure_type24753 = &t13973; /* x217641 */ t13955.s1.tag = STRUCTURE_TYPE24753; t13955.s1.value.structure_type24753 = &t13963; /* x217642 */ t13942.s1.tag = STRUCTURE_TYPE24753; t13942.s1.value.structure_type24753 = &t13955; /* x217643 */ t13929.s1.tag = STRUCTURE_TYPE24753; t13929.s1.value.structure_type24753 = &t13942; /* x217644 */ t13919.s1.tag = STRUCTURE_TYPE24753; t13919.s1.value.structure_type24753 = &t13929; /* x217645 */ t13914.s1.tag = STRUCTURE_TYPE24753; t13914.s1.value.structure_type24753 = &t13919; /* x217646 */ t13906.s1.tag = STRUCTURE_TYPE24753; t13906.s1.value.structure_type24753 = &t13914; /* x217647 */ t13893.s1.tag = STRUCTURE_TYPE24753; t13893.s1.value.structure_type24753 = &t13906; /* x217648 */ t13880.s1.tag = STRUCTURE_TYPE24753; t13880.s1.value.structure_type24753 = &t13893; /* x217649 */ t13870.s1.tag = STRUCTURE_TYPE24753; t13870.s1.value.structure_type24753 = &t13880; /* x217650 */ t13862.s1.tag = STRUCTURE_TYPE24753; t13862.s1.value.structure_type24753 = &t13870; /* x217651 */ t13849.s1.tag = STRUCTURE_TYPE24753; t13849.s1.value.structure_type24753 = &t13862; /* x217652 */ t13836.s1.tag = STRUCTURE_TYPE24753; t13836.s1.value.structure_type24753 = &t13849; /* x217653 */ t13826.s1.tag = STRUCTURE_TYPE24753; t13826.s1.value.structure_type24753 = &t13836; /* x217654 */ t13821.s1.tag = STRUCTURE_TYPE24753; t13821.s1.value.structure_type24753 = &t13826; /* x217655 */ t13813.s1.tag = STRUCTURE_TYPE24753; t13813.s1.value.structure_type24753 = &t13821; /* x217656 */ t13800.s1.tag = STRUCTURE_TYPE24753; t13800.s1.value.structure_type24753 = &t13813; /* x217657 */ t13787.s1.tag = STRUCTURE_TYPE24753; t13787.s1.value.structure_type24753 = &t13800; /* x217658 */ t13777.s1.tag = STRUCTURE_TYPE24753; t13777.s1.value.structure_type24753 = &t13787; /* x217659 */ t13769.s1.tag = STRUCTURE_TYPE24753; t13769.s1.value.structure_type24753 = &t13777; /* x217660 */ t13756.s1.tag = STRUCTURE_TYPE24753; t13756.s1.value.structure_type24753 = &t13769; /* x217661 */ t13743.s1.tag = STRUCTURE_TYPE24753; t13743.s1.value.structure_type24753 = &t13756; /* x217662 */ t13733.s1.tag = STRUCTURE_TYPE24753; t13733.s1.value.structure_type24753 = &t13743; /* x217663 */ t13725.s1.tag = STRUCTURE_TYPE24753; t13725.s1.value.structure_type24753 = &t13733; /* x217664 */ t13661.s1.tag = STRUCTURE_TYPE24753; t13661.s1.value.structure_type24753 = &t13725; /* x217665 */ t13653.s1.tag = STRUCTURE_TYPE24753; t13653.s1.value.structure_type24753 = &t13661; /* x217666 */ t13596.s1.tag = STRUCTURE_TYPE24753; t13596.s1.value.structure_type24753 = &t13653; /* x217667 */ t13475.s1.tag = STRUCTURE_TYPE24753; t13475.s1.value.structure_type24753 = &t13596; /* x217668 */ t13464.s1.tag = STRUCTURE_TYPE24753; t13464.s1.value.structure_type24753 = &t13475; /* x217669 */ t13425.s1.tag = STRUCTURE_TYPE24753; t13425.s1.value.structure_type24753 = &t13464; /* x217670 */ t13414.s1.tag = STRUCTURE_TYPE24753; t13414.s1.value.structure_type24753 = &t13425; /* x217671 */ t13409.s1.tag = STRUCTURE_TYPE24753; t13409.s1.value.structure_type24753 = &t13414; /* x217672 */ t13404.s1.tag = STRUCTURE_TYPE24753; t13404.s1.value.structure_type24753 = &t13409; /* x217673 */ t13328.s1.tag = STRUCTURE_TYPE24753; t13328.s1.value.structure_type24753 = &t13404; /* x217674 */ t13300.s1.tag = STRUCTURE_TYPE24753; t13300.s1.value.structure_type24753 = &t13328; /* x217675 */ t13293.s1.tag = STRUCTURE_TYPE24753; t13293.s1.value.structure_type24753 = &t13300; /* x217676 */ t13268.s1.tag = STRUCTURE_TYPE24753; t13268.s1.value.structure_type24753 = &t13293; /* x217677 */ t13264.s1.tag = STRUCTURE_TYPE24753; t13264.s1.value.structure_type24753 = &t13268; /* x217678 */ t13257.s1.tag = STRUCTURE_TYPE24753; t13257.s1.value.structure_type24753 = &t13264; /* x217679 */ t13250.s1.tag = STRUCTURE_TYPE24753; t13250.s1.value.structure_type24753 = &t13257; /* x217680 */ t13246.s1.tag = STRUCTURE_TYPE24753; t13246.s1.value.structure_type24753 = &t13250; /* x217681 */ t13239.s1.tag = STRUCTURE_TYPE24753; t13239.s1.value.structure_type24753 = &t13246; /* x217682 */ t13233.s1.tag = STRUCTURE_TYPE24753; t13233.s1.value.structure_type24753 = &t13239; /* x217683 */ t13227.s1.tag = STRUCTURE_TYPE24753; t13227.s1.value.structure_type24753 = &t13233; /* x217684 */ t13206.s1.tag = STRUCTURE_TYPE24753; t13206.s1.value.structure_type24753 = &t13227; /* x217685 */ t13195.s1.tag = STRUCTURE_TYPE24753; t13195.s1.value.structure_type24753 = &t13206; /* x217686 */ t13184.s1.tag = STRUCTURE_TYPE24753; t13184.s1.value.structure_type24753 = &t13195; /* x217687 */ t13172.s1.tag = STRUCTURE_TYPE24753; t13172.s1.value.structure_type24753 = &t13184; /* x217688 */ t13165.s1.tag = STRUCTURE_TYPE24753; t13165.s1.value.structure_type24753 = &t13172; /* x217689 */ t13153.s1.tag = STRUCTURE_TYPE24753; t13153.s1.value.structure_type24753 = &t13165; /* x217690 */ t13146.s1.tag = STRUCTURE_TYPE24753; t13146.s1.value.structure_type24753 = &t13153; /* x217691 */ t13082.s1.tag = STRUCTURE_TYPE24753; t13082.s1.value.structure_type24753 = &t13146; /* x217692 */ t13075.s1.tag = STRUCTURE_TYPE24753; t13075.s1.value.structure_type24753 = &t13082; /* x217693 */ t13069.s1.tag = STRUCTURE_TYPE24753; t13069.s1.value.structure_type24753 = &t13075; /* x217694 */ t13055.s1.tag = STRUCTURE_TYPE24753; t13055.s1.value.structure_type24753 = &t13069; /* x217695 */ t13049.s1.tag = STRUCTURE_TYPE24753; t13049.s1.value.structure_type24753 = &t13055; /* x217696 */ t13045.s1.tag = STRUCTURE_TYPE24753; t13045.s1.value.structure_type24753 = &t13049; /* x217697 */ t13041.s1.tag = STRUCTURE_TYPE24753; t13041.s1.value.structure_type24753 = &t13045; /* x217698 */ t13037.s1.tag = STRUCTURE_TYPE24753; t13037.s1.value.structure_type24753 = &t13041; /* x207427 */ t15852.s0.tag = EXTERNAL_SYMBOL_TYPE; t15852.s0.value.external_symbol_type = q527; /* x207428 */ t15852.s1.tag = NULL_TYPE; /* x207436 */ t15868.s0.tag = EXTERNAL_SYMBOL_TYPE; t15868.s0.value.external_symbol_type = q528; /* x207437 */ t15869.s0.tag = TRUE_TYPE; /* x207438 */ t15869.s1.tag = NULL_TYPE; /* x207439 */ t15868.s1.tag = STRUCTURE_TYPE24753; t15868.s1.value.structure_type24753 = &t15869; /* x207509 */ t15936.s0.tag = EXTERNAL_SYMBOL_TYPE; t15936.s0.value.external_symbol_type = q42; /* x207510 */ t15937.s0.tag = EXTERNAL_SYMBOL_TYPE; t15937.s0.value.external_symbol_type = q535; /* x207511 */ t15938.s0.tag = EXTERNAL_SYMBOL_TYPE; t15938.s0.value.external_symbol_type = q532; /* x207512 */ t15938.s1.tag = NULL_TYPE; /* x207513 */ t15937.s1.tag = STRUCTURE_TYPE24753; t15937.s1.value.structure_type24753 = &t15938; /* x207514 */ t15936.s1.tag = STRUCTURE_TYPE24753; t15936.s1.value.structure_type24753 = &t15937; /* x207515 */ t15935.s0.tag = STRUCTURE_TYPE24753; t15935.s0.value.structure_type24753 = &t15936; /* x207516 */ t15940.s0.tag = EXTERNAL_SYMBOL_TYPE; t15940.s0.value.external_symbol_type = q42; /* x207517 */ t15941.s0.tag = EXTERNAL_SYMBOL_TYPE; t15941.s0.value.external_symbol_type = q536; /* x207518 */ t15942.s0.tag = FALSE_TYPE; /* x207519 */ t15942.s1.tag = NULL_TYPE; /* x207520 */ t15941.s1.tag = STRUCTURE_TYPE24753; t15941.s1.value.structure_type24753 = &t15942; /* x207521 */ t15940.s1.tag = STRUCTURE_TYPE24753; t15940.s1.value.structure_type24753 = &t15941; /* x207522 */ t15939.s0.tag = STRUCTURE_TYPE24753; t15939.s0.value.structure_type24753 = &t15940; /* x207523 */ t15944.s0.tag = EXTERNAL_SYMBOL_TYPE; t15944.s0.value.external_symbol_type = q42; /* x207524 */ t15945.s0.tag = EXTERNAL_SYMBOL_TYPE; t15945.s0.value.external_symbol_type = q537; /* x207525 */ t15946.s0.tag = FALSE_TYPE; /* x207526 */ t15946.s1.tag = NULL_TYPE; /* x207527 */ t15945.s1.tag = STRUCTURE_TYPE24753; t15945.s1.value.structure_type24753 = &t15946; /* x207528 */ t15944.s1.tag = STRUCTURE_TYPE24753; t15944.s1.value.structure_type24753 = &t15945; /* x207529 */ t15943.s0.tag = STRUCTURE_TYPE24753; t15943.s0.value.structure_type24753 = &t15944; /* x207530 */ t15948.s0.tag = EXTERNAL_SYMBOL_TYPE; t15948.s0.value.external_symbol_type = q42; /* x207531 */ t15949.s0.tag = EXTERNAL_SYMBOL_TYPE; t15949.s0.value.external_symbol_type = q538; /* x207532 */ t15950.s0.tag = FALSE_TYPE; /* x207533 */ t15950.s1.tag = NULL_TYPE; /* x207534 */ t15949.s1.tag = STRUCTURE_TYPE24753; t15949.s1.value.structure_type24753 = &t15950; /* x207535 */ t15948.s1.tag = STRUCTURE_TYPE24753; t15948.s1.value.structure_type24753 = &t15949; /* x207536 */ t15947.s0.tag = STRUCTURE_TYPE24753; t15947.s0.value.structure_type24753 = &t15948; /* x207537 */ t15952.s0.tag = EXTERNAL_SYMBOL_TYPE; t15952.s0.value.external_symbol_type = q42; /* x207538 */ t15953.s0.tag = EXTERNAL_SYMBOL_TYPE; t15953.s0.value.external_symbol_type = q539; /* x207539 */ t15954.s0.tag = FALSE_TYPE; /* x207540 */ t15954.s1.tag = NULL_TYPE; /* x207541 */ t15953.s1.tag = STRUCTURE_TYPE24753; t15953.s1.value.structure_type24753 = &t15954; /* x207542 */ t15952.s1.tag = STRUCTURE_TYPE24753; t15952.s1.value.structure_type24753 = &t15953; /* x207543 */ t15951.s0.tag = STRUCTURE_TYPE24753; t15951.s0.value.structure_type24753 = &t15952; /* x207544 */ t15956.s0.tag = EXTERNAL_SYMBOL_TYPE; t15956.s0.value.external_symbol_type = q42; /* x207545 */ t15957.s0.tag = EXTERNAL_SYMBOL_TYPE; t15957.s0.value.external_symbol_type = q540; /* x207546 */ t15959.s0.tag = EXTERNAL_SYMBOL_TYPE; t15959.s0.value.external_symbol_type = q541; /* x207547 */ t15960.s0.tag = EXTERNAL_SYMBOL_TYPE; t15960.s0.value.external_symbol_type = q542; /* x207548 */ t15960.s1.tag = NULL_TYPE; /* x207549 */ t15959.s1.tag = STRUCTURE_TYPE24753; t15959.s1.value.structure_type24753 = &t15960; /* x207550 */ t15958.s0.tag = STRUCTURE_TYPE24753; t15958.s0.value.structure_type24753 = &t15959; /* x207551 */ t15958.s1.tag = NULL_TYPE; /* x207552 */ t15957.s1.tag = STRUCTURE_TYPE24753; t15957.s1.value.structure_type24753 = &t15958; /* x207553 */ t15956.s1.tag = STRUCTURE_TYPE24753; t15956.s1.value.structure_type24753 = &t15957; /* x207554 */ t15955.s0.tag = STRUCTURE_TYPE24753; t15955.s0.value.structure_type24753 = &t15956; /* x207555 */ t15962.s0.tag = EXTERNAL_SYMBOL_TYPE; t15962.s0.value.external_symbol_type = q493; /* x207556 */ t15964.s0.tag = EXTERNAL_SYMBOL_TYPE; t15964.s0.value.external_symbol_type = q125; /* x207557 */ t15965.s0.tag = EXTERNAL_SYMBOL_TYPE; t15965.s0.value.external_symbol_type = q540; /* x207558 */ t15965.s1.tag = NULL_TYPE; /* x207559 */ t15964.s1.tag = STRUCTURE_TYPE24753; t15964.s1.value.structure_type24753 = &t15965; /* x207560 */ t15963.s0.tag = STRUCTURE_TYPE24753; t15963.s0.value.structure_type24753 = &t15964; /* x207561 */ t15967.s0.tag = EXTERNAL_SYMBOL_TYPE; t15967.s0.value.external_symbol_type = q179; /* x207562 */ t15969.s0.tag = EXTERNAL_SYMBOL_TYPE; t15969.s0.value.external_symbol_type = q543; /* x207563 */ t15970.s0.tag = FALSE_TYPE; /* x207564 */ t15971.s0.tag = STRING_TYPE; t15971.s0.value.string_type = "Cannot connect to X server: ~a"; /* x207565 */ t15973.s0.tag = EXTERNAL_SYMBOL_TYPE; t15973.s0.value.external_symbol_type = q544; /* x207566 */ t15974.s0.tag = EXTERNAL_SYMBOL_TYPE; t15974.s0.value.external_symbol_type = q542; /* x207567 */ t15974.s1.tag = NULL_TYPE; /* x207568 */ t15973.s1.tag = STRUCTURE_TYPE24753; t15973.s1.value.structure_type24753 = &t15974; /* x207569 */ t15972.s0.tag = STRUCTURE_TYPE24753; t15972.s0.value.structure_type24753 = &t15973; /* x207570 */ t15972.s1.tag = NULL_TYPE; /* x207571 */ t15971.s1.tag = STRUCTURE_TYPE24753; t15971.s1.value.structure_type24753 = &t15972; /* x207572 */ t15970.s1.tag = STRUCTURE_TYPE24753; t15970.s1.value.structure_type24753 = &t15971; /* x207573 */ t15969.s1.tag = STRUCTURE_TYPE24753; t15969.s1.value.structure_type24753 = &t15970; /* x207574 */ t15968.s0.tag = STRUCTURE_TYPE24753; t15968.s0.value.structure_type24753 = &t15969; /* x207575 */ t15968.s1.tag = NULL_TYPE; /* x207576 */ t15967.s1.tag = STRUCTURE_TYPE24753; t15967.s1.value.structure_type24753 = &t15968; /* x207577 */ t15966.s0.tag = STRUCTURE_TYPE24753; t15966.s0.value.structure_type24753 = &t15967; /* x207578 */ t15966.s1.tag = NULL_TYPE; /* x207579 */ t15963.s1.tag = STRUCTURE_TYPE24753; t15963.s1.value.structure_type24753 = &t15966; /* x207580 */ t15962.s1.tag = STRUCTURE_TYPE24753; t15962.s1.value.structure_type24753 = &t15963; /* x207581 */ t15961.s0.tag = STRUCTURE_TYPE24753; t15961.s0.value.structure_type24753 = &t15962; /* x207582 */ t15976.s0.tag = EXTERNAL_SYMBOL_TYPE; t15976.s0.value.external_symbol_type = q42; /* x207583 */ t15977.s0.tag = EXTERNAL_SYMBOL_TYPE; t15977.s0.value.external_symbol_type = q545; /* x207584 */ t15979.s0.tag = EXTERNAL_SYMBOL_TYPE; t15979.s0.value.external_symbol_type = q546; /* x207585 */ t15980.s0.tag = EXTERNAL_SYMBOL_TYPE; t15980.s0.value.external_symbol_type = q540; /* x207586 */ t15980.s1.tag = NULL_TYPE; /* x207587 */ t15979.s1.tag = STRUCTURE_TYPE24753; t15979.s1.value.structure_type24753 = &t15980; /* x207588 */ t15978.s0.tag = STRUCTURE_TYPE24753; t15978.s0.value.structure_type24753 = &t15979; /* x207589 */ t15978.s1.tag = NULL_TYPE; /* x207590 */ t15977.s1.tag = STRUCTURE_TYPE24753; t15977.s1.value.structure_type24753 = &t15978; /* x207591 */ t15976.s1.tag = STRUCTURE_TYPE24753; t15976.s1.value.structure_type24753 = &t15977; /* x207592 */ t15975.s0.tag = STRUCTURE_TYPE24753; t15975.s0.value.structure_type24753 = &t15976; /* x207593 */ t15982.s0.tag = EXTERNAL_SYMBOL_TYPE; t15982.s0.value.external_symbol_type = q42; /* x207594 */ t15983.s0.tag = EXTERNAL_SYMBOL_TYPE; t15983.s0.value.external_symbol_type = q547; /* x207595 */ t15985.s0.tag = EXTERNAL_SYMBOL_TYPE; t15985.s0.value.external_symbol_type = q548; /* x207596 */ t15986.s0.tag = EXTERNAL_SYMBOL_TYPE; t15986.s0.value.external_symbol_type = q540; /* x207597 */ t15987.s0.tag = EXTERNAL_SYMBOL_TYPE; t15987.s0.value.external_symbol_type = q545; /* x207598 */ t15987.s1.tag = NULL_TYPE; /* x207599 */ t15986.s1.tag = STRUCTURE_TYPE24753; t15986.s1.value.structure_type24753 = &t15987; /* x207600 */ t15985.s1.tag = STRUCTURE_TYPE24753; t15985.s1.value.structure_type24753 = &t15986; /* x207601 */ t15984.s0.tag = STRUCTURE_TYPE24753; t15984.s0.value.structure_type24753 = &t15985; /* x207602 */ t15984.s1.tag = NULL_TYPE; /* x207603 */ t15983.s1.tag = STRUCTURE_TYPE24753; t15983.s1.value.structure_type24753 = &t15984; /* x207604 */ t15982.s1.tag = STRUCTURE_TYPE24753; t15982.s1.value.structure_type24753 = &t15983; /* x207605 */ t15981.s0.tag = STRUCTURE_TYPE24753; t15981.s0.value.structure_type24753 = &t15982; /* x207606 */ t15989.s0.tag = EXTERNAL_SYMBOL_TYPE; t15989.s0.value.external_symbol_type = q42; /* x207607 */ t15990.s0.tag = EXTERNAL_SYMBOL_TYPE; t15990.s0.value.external_symbol_type = q549; /* x207608 */ t15991.s0.tag = FIXNUM_TYPE; t15991.s0.value.fixnum_type = 0; /* x207609 */ t15991.s1.tag = NULL_TYPE; /* x207610 */ t15990.s1.tag = STRUCTURE_TYPE24753; t15990.s1.value.structure_type24753 = &t15991; /* x207611 */ t15989.s1.tag = STRUCTURE_TYPE24753; t15989.s1.value.structure_type24753 = &t15990; /* x207612 */ t15988.s0.tag = STRUCTURE_TYPE24753; t15988.s0.value.structure_type24753 = &t15989; /* x207613 */ t15993.s0.tag = EXTERNAL_SYMBOL_TYPE; t15993.s0.value.external_symbol_type = q42; /* x207614 */ t15994.s0.tag = EXTERNAL_SYMBOL_TYPE; t15994.s0.value.external_symbol_type = q550; /* x207615 */ t15995.s0.tag = FIXNUM_TYPE; t15995.s0.value.fixnum_type = 0; /* x207616 */ t15995.s1.tag = NULL_TYPE; /* x207617 */ t15994.s1.tag = STRUCTURE_TYPE24753; t15994.s1.value.structure_type24753 = &t15995; /* x207618 */ t15993.s1.tag = STRUCTURE_TYPE24753; t15993.s1.value.structure_type24753 = &t15994; /* x207619 */ t15992.s0.tag = STRUCTURE_TYPE24753; t15992.s0.value.structure_type24753 = &t15993; /* x207620 */ t15997.s0.tag = EXTERNAL_SYMBOL_TYPE; t15997.s0.value.external_symbol_type = q240; /* x207621 */ t15999.s0.tag = EXTERNAL_SYMBOL_TYPE; t15999.s0.value.external_symbol_type = q528; /* x207622 */ t16001.s0.tag = EXTERNAL_SYMBOL_TYPE; t16001.s0.value.external_symbol_type = q42; /* x207623 */ t16002.s0.tag = EXTERNAL_SYMBOL_TYPE; t16002.s0.value.external_symbol_type = q551; /* x207624 */ t16004.s0.tag = EXTERNAL_SYMBOL_TYPE; t16004.s0.value.external_symbol_type = q552; /* x207625 */ t16005.s0.tag = EXTERNAL_SYMBOL_TYPE; t16005.s0.value.external_symbol_type = q540; /* x207626 */ t16006.s0.tag = EXTERNAL_SYMBOL_TYPE; t16006.s0.value.external_symbol_type = q545; /* x207627 */ t16006.s1.tag = NULL_TYPE; /* x207628 */ t16005.s1.tag = STRUCTURE_TYPE24753; t16005.s1.value.structure_type24753 = &t16006; /* x207629 */ t16004.s1.tag = STRUCTURE_TYPE24753; t16004.s1.value.structure_type24753 = &t16005; /* x207630 */ t16003.s0.tag = STRUCTURE_TYPE24753; t16003.s0.value.structure_type24753 = &t16004; /* x207631 */ t16003.s1.tag = NULL_TYPE; /* x207632 */ t16002.s1.tag = STRUCTURE_TYPE24753; t16002.s1.value.structure_type24753 = &t16003; /* x207633 */ t16001.s1.tag = STRUCTURE_TYPE24753; t16001.s1.value.structure_type24753 = &t16002; /* x207634 */ t16000.s0.tag = STRUCTURE_TYPE24753; t16000.s0.value.structure_type24753 = &t16001; /* x207635 */ t16008.s0.tag = EXTERNAL_SYMBOL_TYPE; t16008.s0.value.external_symbol_type = q42; /* x207636 */ t16009.s0.tag = EXTERNAL_SYMBOL_TYPE; t16009.s0.value.external_symbol_type = q553; /* x207637 */ t16011.s0.tag = EXTERNAL_SYMBOL_TYPE; t16011.s0.value.external_symbol_type = q554; /* x207638 */ t16012.s0.tag = EXTERNAL_SYMBOL_TYPE; t16012.s0.value.external_symbol_type = q540; /* x207639 */ t16013.s0.tag = EXTERNAL_SYMBOL_TYPE; t16013.s0.value.external_symbol_type = q545; /* x207640 */ t16013.s1.tag = NULL_TYPE; /* x207641 */ t16012.s1.tag = STRUCTURE_TYPE24753; t16012.s1.value.structure_type24753 = &t16013; /* x207642 */ t16011.s1.tag = STRUCTURE_TYPE24753; t16011.s1.value.structure_type24753 = &t16012; /* x207643 */ t16010.s0.tag = STRUCTURE_TYPE24753; t16010.s0.value.structure_type24753 = &t16011; /* x207644 */ t16010.s1.tag = NULL_TYPE; /* x207645 */ t16009.s1.tag = STRUCTURE_TYPE24753; t16009.s1.value.structure_type24753 = &t16010; /* x207646 */ t16008.s1.tag = STRUCTURE_TYPE24753; t16008.s1.value.structure_type24753 = &t16009; /* x207647 */ t16007.s0.tag = STRUCTURE_TYPE24753; t16007.s0.value.structure_type24753 = &t16008; /* x207648 */ t16007.s1.tag = NULL_TYPE; /* x207649 */ t16000.s1.tag = STRUCTURE_TYPE24753; t16000.s1.value.structure_type24753 = &t16007; /* x207650 */ t15999.s1.tag = STRUCTURE_TYPE24753; t15999.s1.value.structure_type24753 = &t16000; /* x207651 */ t15998.s0.tag = STRUCTURE_TYPE24753; t15998.s0.value.structure_type24753 = &t15999; /* x207652 */ t16015.s0.tag = EXTERNAL_SYMBOL_TYPE; t16015.s0.value.external_symbol_type = q95; /* x207653 */ t16017.s0.tag = EXTERNAL_SYMBOL_TYPE; t16017.s0.value.external_symbol_type = q42; /* x207654 */ t16018.s0.tag = EXTERNAL_SYMBOL_TYPE; t16018.s0.value.external_symbol_type = q555; /* x207655 */ t16020.s0.tag = EXTERNAL_SYMBOL_TYPE; t16020.s0.value.external_symbol_type = q556; /* x207656 */ t16021.s0.tag = EXTERNAL_SYMBOL_TYPE; t16021.s0.value.external_symbol_type = q540; /* x207657 */ t16023.s0.tag = EXTERNAL_SYMBOL_TYPE; t16023.s0.value.external_symbol_type = q557; /* x207658 */ t16024.s0.tag = EXTERNAL_SYMBOL_TYPE; t16024.s0.value.external_symbol_type = q540; /* x207659 */ t16025.s0.tag = EXTERNAL_SYMBOL_TYPE; t16025.s0.value.external_symbol_type = q545; /* x207660 */ t16025.s1.tag = NULL_TYPE; /* x207661 */ t16024.s1.tag = STRUCTURE_TYPE24753; t16024.s1.value.structure_type24753 = &t16025; /* x207662 */ t16023.s1.tag = STRUCTURE_TYPE24753; t16023.s1.value.structure_type24753 = &t16024; /* x207663 */ t16022.s0.tag = STRUCTURE_TYPE24753; t16022.s0.value.structure_type24753 = &t16023; /* x207664 */ t16026.s0.tag = EXTERNAL_SYMBOL_TYPE; t16026.s0.value.external_symbol_type = q558; /* x207665 */ t16026.s1.tag = NULL_TYPE; /* x207666 */ t16022.s1.tag = STRUCTURE_TYPE24753; t16022.s1.value.structure_type24753 = &t16026; /* x207667 */ t16021.s1.tag = STRUCTURE_TYPE24753; t16021.s1.value.structure_type24753 = &t16022; /* x207668 */ t16020.s1.tag = STRUCTURE_TYPE24753; t16020.s1.value.structure_type24753 = &t16021; /* x207669 */ t16019.s0.tag = STRUCTURE_TYPE24753; t16019.s0.value.structure_type24753 = &t16020; /* x207670 */ t16019.s1.tag = NULL_TYPE; /* x207671 */ t16018.s1.tag = STRUCTURE_TYPE24753; t16018.s1.value.structure_type24753 = &t16019; /* x207672 */ t16017.s1.tag = STRUCTURE_TYPE24753; t16017.s1.value.structure_type24753 = &t16018; /* x207673 */ t16016.s0.tag = STRUCTURE_TYPE24753; t16016.s0.value.structure_type24753 = &t16017; /* x207674 */ t16028.s0.tag = EXTERNAL_SYMBOL_TYPE; t16028.s0.value.external_symbol_type = q494; /* x207675 */ t16030.s0.tag = EXTERNAL_SYMBOL_TYPE; t16030.s0.value.external_symbol_type = q120; /* x207676 */ t16032.s0.tag = EXTERNAL_SYMBOL_TYPE; t16032.s0.value.external_symbol_type = q559; /* x207677 */ t16033.s0.tag = EXTERNAL_SYMBOL_TYPE; t16033.s0.value.external_symbol_type = q555; /* x207678 */ t16033.s1.tag = NULL_TYPE; /* x207679 */ t16032.s1.tag = STRUCTURE_TYPE24753; t16032.s1.value.structure_type24753 = &t16033; /* x207680 */ t16031.s0.tag = STRUCTURE_TYPE24753; t16031.s0.value.structure_type24753 = &t16032; /* x207681 */ t16034.s0.tag = FIXNUM_TYPE; t16034.s0.value.fixnum_type = 1; /* x207682 */ t16034.s1.tag = NULL_TYPE; /* x207683 */ t16031.s1.tag = STRUCTURE_TYPE24753; t16031.s1.value.structure_type24753 = &t16034; /* x207684 */ t16030.s1.tag = STRUCTURE_TYPE24753; t16030.s1.value.structure_type24753 = &t16031; /* x207685 */ t16029.s0.tag = STRUCTURE_TYPE24753; t16029.s0.value.structure_type24753 = &t16030; /* x207686 */ t16036.s0.tag = EXTERNAL_SYMBOL_TYPE; t16036.s0.value.external_symbol_type = q179; /* x207687 */ t16037.s0.tag = STRING_TYPE; t16037.s0.value.string_type = "Can\'t allocate background colorcell"; /* x207688 */ t16037.s1.tag = NULL_TYPE; /* x207689 */ t16036.s1.tag = STRUCTURE_TYPE24753; t16036.s1.value.structure_type24753 = &t16037; /* x207690 */ t16035.s0.tag = STRUCTURE_TYPE24753; t16035.s0.value.structure_type24753 = &t16036; /* x207691 */ t16035.s1.tag = NULL_TYPE; /* x207692 */ t16029.s1.tag = STRUCTURE_TYPE24753; t16029.s1.value.structure_type24753 = &t16035; /* x207693 */ t16028.s1.tag = STRUCTURE_TYPE24753; t16028.s1.value.structure_type24753 = &t16029; /* x207694 */ t16027.s0.tag = STRUCTURE_TYPE24753; t16027.s0.value.structure_type24753 = &t16028; /* x207695 */ t16039.s0.tag = EXTERNAL_SYMBOL_TYPE; t16039.s0.value.external_symbol_type = q42; /* x207696 */ t16040.s0.tag = EXTERNAL_SYMBOL_TYPE; t16040.s0.value.external_symbol_type = q560; /* x207697 */ t16042.s0.tag = EXTERNAL_SYMBOL_TYPE; t16042.s0.value.external_symbol_type = q556; /* x207698 */} void initialize_constants6(void) {t16043.s0.tag = EXTERNAL_SYMBOL_TYPE; t16043.s0.value.external_symbol_type = q540; /* x207699 */ t16045.s0.tag = EXTERNAL_SYMBOL_TYPE; t16045.s0.value.external_symbol_type = q557; /* x207700 */ t16046.s0.tag = EXTERNAL_SYMBOL_TYPE; t16046.s0.value.external_symbol_type = q540; /* x207701 */ t16047.s0.tag = EXTERNAL_SYMBOL_TYPE; t16047.s0.value.external_symbol_type = q545; /* x207702 */ t16047.s1.tag = NULL_TYPE; /* x207703 */ t16046.s1.tag = STRUCTURE_TYPE24753; t16046.s1.value.structure_type24753 = &t16047; /* x207704 */ t16045.s1.tag = STRUCTURE_TYPE24753; t16045.s1.value.structure_type24753 = &t16046; /* x207705 */ t16044.s0.tag = STRUCTURE_TYPE24753; t16044.s0.value.structure_type24753 = &t16045; /* x207706 */ t16048.s0.tag = EXTERNAL_SYMBOL_TYPE; t16048.s0.value.external_symbol_type = q561; /* x207707 */ t16048.s1.tag = NULL_TYPE; /* x207708 */ t16044.s1.tag = STRUCTURE_TYPE24753; t16044.s1.value.structure_type24753 = &t16048; /* x207709 */ t16043.s1.tag = STRUCTURE_TYPE24753; t16043.s1.value.structure_type24753 = &t16044; /* x207710 */ t16042.s1.tag = STRUCTURE_TYPE24753; t16042.s1.value.structure_type24753 = &t16043; /* x207711 */ t16041.s0.tag = STRUCTURE_TYPE24753; t16041.s0.value.structure_type24753 = &t16042; /* x207712 */ t16041.s1.tag = NULL_TYPE; /* x207713 */ t16040.s1.tag = STRUCTURE_TYPE24753; t16040.s1.value.structure_type24753 = &t16041; /* x207714 */ t16039.s1.tag = STRUCTURE_TYPE24753; t16039.s1.value.structure_type24753 = &t16040; /* x207715 */ t16038.s0.tag = STRUCTURE_TYPE24753; t16038.s0.value.structure_type24753 = &t16039; /* x207716 */ t16050.s0.tag = EXTERNAL_SYMBOL_TYPE; t16050.s0.value.external_symbol_type = q494; /* x207717 */ t16052.s0.tag = EXTERNAL_SYMBOL_TYPE; t16052.s0.value.external_symbol_type = q120; /* x207718 */ t16054.s0.tag = EXTERNAL_SYMBOL_TYPE; t16054.s0.value.external_symbol_type = q559; /* x207719 */ t16055.s0.tag = EXTERNAL_SYMBOL_TYPE; t16055.s0.value.external_symbol_type = q560; /* x207720 */ t16055.s1.tag = NULL_TYPE; /* x207721 */ t16054.s1.tag = STRUCTURE_TYPE24753; t16054.s1.value.structure_type24753 = &t16055; /* x207722 */ t16053.s0.tag = STRUCTURE_TYPE24753; t16053.s0.value.structure_type24753 = &t16054; /* x207723 */ t16056.s0.tag = FIXNUM_TYPE; t16056.s0.value.fixnum_type = 1; /* x207724 */ t16056.s1.tag = NULL_TYPE; /* x207725 */ t16053.s1.tag = STRUCTURE_TYPE24753; t16053.s1.value.structure_type24753 = &t16056; /* x207726 */ t16052.s1.tag = STRUCTURE_TYPE24753; t16052.s1.value.structure_type24753 = &t16053; /* x207727 */ t16051.s0.tag = STRUCTURE_TYPE24753; t16051.s0.value.structure_type24753 = &t16052; /* x207728 */ t16058.s0.tag = EXTERNAL_SYMBOL_TYPE; t16058.s0.value.external_symbol_type = q179; /* x207729 */ t16059.s0.tag = STRING_TYPE; t16059.s0.value.string_type = "Can\'t allocate foreground colorcell"; /* x207730 */ t16059.s1.tag = NULL_TYPE; /* x207731 */ t16058.s1.tag = STRUCTURE_TYPE24753; t16058.s1.value.structure_type24753 = &t16059; /* x207732 */ t16057.s0.tag = STRUCTURE_TYPE24753; t16057.s0.value.structure_type24753 = &t16058; /* x207733 */ t16057.s1.tag = NULL_TYPE; /* x207734 */ t16051.s1.tag = STRUCTURE_TYPE24753; t16051.s1.value.structure_type24753 = &t16057; /* x207735 */ t16050.s1.tag = STRUCTURE_TYPE24753; t16050.s1.value.structure_type24753 = &t16051; /* x207736 */ t16049.s0.tag = STRUCTURE_TYPE24753; t16049.s0.value.structure_type24753 = &t16050; /* x207737 */ t16049.s1.tag = NULL_TYPE; /* x207738 */ t16038.s1.tag = STRUCTURE_TYPE24753; t16038.s1.value.structure_type24753 = &t16049; /* x207739 */ t16027.s1.tag = STRUCTURE_TYPE24753; t16027.s1.value.structure_type24753 = &t16038; /* x207740 */ t16016.s1.tag = STRUCTURE_TYPE24753; t16016.s1.value.structure_type24753 = &t16027; /* x207741 */ t16015.s1.tag = STRUCTURE_TYPE24753; t16015.s1.value.structure_type24753 = &t16016; /* x207742 */ t16014.s0.tag = STRUCTURE_TYPE24753; t16014.s0.value.structure_type24753 = &t16015; /* x207743 */ t16014.s1.tag = NULL_TYPE; /* x207744 */ t15998.s1.tag = STRUCTURE_TYPE24753; t15998.s1.value.structure_type24753 = &t16014; /* x207745 */ t15997.s1.tag = STRUCTURE_TYPE24753; t15997.s1.value.structure_type24753 = &t15998; /* x207746 */ t15996.s0.tag = STRUCTURE_TYPE24753; t15996.s0.value.structure_type24753 = &t15997; /* x207747 */ t16061.s0.tag = EXTERNAL_SYMBOL_TYPE; t16061.s0.value.external_symbol_type = q42; /* x207748 */ t16062.s0.tag = EXTERNAL_SYMBOL_TYPE; t16062.s0.value.external_symbol_type = q562; /* x207749 */ t16064.s0.tag = EXTERNAL_SYMBOL_TYPE; t16064.s0.value.external_symbol_type = q563; /* x207750 */ t16065.s0.tag = EXTERNAL_SYMBOL_TYPE; t16065.s0.value.external_symbol_type = q540; /* x207751 */ t16066.s0.tag = EXTERNAL_SYMBOL_TYPE; t16066.s0.value.external_symbol_type = q564; /* x207752 */ t16066.s1.tag = NULL_TYPE; /* x207753 */ t16065.s1.tag = STRUCTURE_TYPE24753; t16065.s1.value.structure_type24753 = &t16066; /* x207754 */ t16064.s1.tag = STRUCTURE_TYPE24753; t16064.s1.value.structure_type24753 = &t16065; /* x207755 */ t16063.s0.tag = STRUCTURE_TYPE24753; t16063.s0.value.structure_type24753 = &t16064; /* x207756 */ t16063.s1.tag = NULL_TYPE; /* x207757 */ t16062.s1.tag = STRUCTURE_TYPE24753; t16062.s1.value.structure_type24753 = &t16063; /* x207758 */ t16061.s1.tag = STRUCTURE_TYPE24753; t16061.s1.value.structure_type24753 = &t16062; /* x207759 */ t16060.s0.tag = STRUCTURE_TYPE24753; t16060.s0.value.structure_type24753 = &t16061; /* x207760 */ t16068.s0.tag = EXTERNAL_SYMBOL_TYPE; t16068.s0.value.external_symbol_type = q493; /* x207761 */ t16070.s0.tag = EXTERNAL_SYMBOL_TYPE; t16070.s0.value.external_symbol_type = q125; /* x207762 */ t16071.s0.tag = EXTERNAL_SYMBOL_TYPE; t16071.s0.value.external_symbol_type = q562; /* x207763 */ t16071.s1.tag = NULL_TYPE; /* x207764 */ t16070.s1.tag = STRUCTURE_TYPE24753; t16070.s1.value.structure_type24753 = &t16071; /* x207765 */ t16069.s0.tag = STRUCTURE_TYPE24753; t16069.s0.value.structure_type24753 = &t16070; /* x207766 */ t16073.s0.tag = EXTERNAL_SYMBOL_TYPE; t16073.s0.value.external_symbol_type = q179; /* x207767 */ t16075.s0.tag = EXTERNAL_SYMBOL_TYPE; t16075.s0.value.external_symbol_type = q543; /* x207768 */ t16076.s0.tag = FALSE_TYPE; /* x207769 */ t16077.s0.tag = STRING_TYPE; t16077.s0.value.string_type = "Cannot open font: ~a"; /* x207770 */ t16078.s0.tag = EXTERNAL_SYMBOL_TYPE; t16078.s0.value.external_symbol_type = q564; /* x207771 */ t16078.s1.tag = NULL_TYPE; /* x207772 */ t16077.s1.tag = STRUCTURE_TYPE24753; t16077.s1.value.structure_type24753 = &t16078; /* x207773 */ t16076.s1.tag = STRUCTURE_TYPE24753; t16076.s1.value.structure_type24753 = &t16077; /* x207774 */ t16075.s1.tag = STRUCTURE_TYPE24753; t16075.s1.value.structure_type24753 = &t16076; /* x207775 */ t16074.s0.tag = STRUCTURE_TYPE24753; t16074.s0.value.structure_type24753 = &t16075; /* x207776 */ t16074.s1.tag = NULL_TYPE; /* x207777 */ t16073.s1.tag = STRUCTURE_TYPE24753; t16073.s1.value.structure_type24753 = &t16074; /* x207778 */ t16072.s0.tag = STRUCTURE_TYPE24753; t16072.s0.value.structure_type24753 = &t16073; /* x207779 */ t16072.s1.tag = NULL_TYPE; /* x207780 */ t16069.s1.tag = STRUCTURE_TYPE24753; t16069.s1.value.structure_type24753 = &t16072; /* x207781 */ t16068.s1.tag = STRUCTURE_TYPE24753; t16068.s1.value.structure_type24753 = &t16069; /* x207782 */ t16067.s0.tag = STRUCTURE_TYPE24753; t16067.s0.value.structure_type24753 = &t16068; /* x207783 */ t16080.s0.tag = EXTERNAL_SYMBOL_TYPE; t16080.s0.value.external_symbol_type = q42; /* x207784 */ t16081.s0.tag = EXTERNAL_SYMBOL_TYPE; t16081.s0.value.external_symbol_type = q565; /* x207785 */ t16083.s0.tag = EXTERNAL_SYMBOL_TYPE; t16083.s0.value.external_symbol_type = q563; /* x207786 */ t16084.s0.tag = EXTERNAL_SYMBOL_TYPE; t16084.s0.value.external_symbol_type = q540; /* x207787 */ t16085.s0.tag = EXTERNAL_SYMBOL_TYPE; t16085.s0.value.external_symbol_type = q566; /* x207788 */ t16085.s1.tag = NULL_TYPE; /* x207789 */ t16084.s1.tag = STRUCTURE_TYPE24753; t16084.s1.value.structure_type24753 = &t16085; /* x207790 */ t16083.s1.tag = STRUCTURE_TYPE24753; t16083.s1.value.structure_type24753 = &t16084; /* x207791 */ t16082.s0.tag = STRUCTURE_TYPE24753; t16082.s0.value.structure_type24753 = &t16083; /* x207792 */ t16082.s1.tag = NULL_TYPE; /* x207793 */ t16081.s1.tag = STRUCTURE_TYPE24753; t16081.s1.value.structure_type24753 = &t16082; /* x207794 */ t16080.s1.tag = STRUCTURE_TYPE24753; t16080.s1.value.structure_type24753 = &t16081; /* x207795 */ t16079.s0.tag = STRUCTURE_TYPE24753; t16079.s0.value.structure_type24753 = &t16080; /* x207796 */ t16087.s0.tag = EXTERNAL_SYMBOL_TYPE; t16087.s0.value.external_symbol_type = q493; /* x207797 */ t16089.s0.tag = EXTERNAL_SYMBOL_TYPE; t16089.s0.value.external_symbol_type = q125; /* x207798 */ t16090.s0.tag = EXTERNAL_SYMBOL_TYPE; t16090.s0.value.external_symbol_type = q565; /* x207799 */ t16090.s1.tag = NULL_TYPE; /* x207800 */ t16089.s1.tag = STRUCTURE_TYPE24753; t16089.s1.value.structure_type24753 = &t16090; /* x207801 */ t16088.s0.tag = STRUCTURE_TYPE24753; t16088.s0.value.structure_type24753 = &t16089; /* x207802 */ t16092.s0.tag = EXTERNAL_SYMBOL_TYPE; t16092.s0.value.external_symbol_type = q179; /* x207803 */ t16094.s0.tag = EXTERNAL_SYMBOL_TYPE; t16094.s0.value.external_symbol_type = q543; /* x207804 */ t16095.s0.tag = FALSE_TYPE; /* x207805 */ t16096.s0.tag = STRING_TYPE; t16096.s0.value.string_type = "Cannot open font: ~a"; /* x207806 */ t16097.s0.tag = EXTERNAL_SYMBOL_TYPE; t16097.s0.value.external_symbol_type = q566; /* x207807 */ t16097.s1.tag = NULL_TYPE; /* x207808 */ t16096.s1.tag = STRUCTURE_TYPE24753; t16096.s1.value.structure_type24753 = &t16097; /* x207809 */ t16095.s1.tag = STRUCTURE_TYPE24753; t16095.s1.value.structure_type24753 = &t16096; /* x207810 */ t16094.s1.tag = STRUCTURE_TYPE24753; t16094.s1.value.structure_type24753 = &t16095; /* x207811 */ t16093.s0.tag = STRUCTURE_TYPE24753; t16093.s0.value.structure_type24753 = &t16094; /* x207812 */ t16093.s1.tag = NULL_TYPE; /* x207813 */ t16092.s1.tag = STRUCTURE_TYPE24753; t16092.s1.value.structure_type24753 = &t16093; /* x207814 */ t16091.s0.tag = STRUCTURE_TYPE24753; t16091.s0.value.structure_type24753 = &t16092; /* x207815 */ t16091.s1.tag = NULL_TYPE; /* x207816 */ t16088.s1.tag = STRUCTURE_TYPE24753; t16088.s1.value.structure_type24753 = &t16091; /* x207817 */ t16087.s1.tag = STRUCTURE_TYPE24753; t16087.s1.value.structure_type24753 = &t16088; /* x207818 */ t16086.s0.tag = STRUCTURE_TYPE24753; t16086.s0.value.structure_type24753 = &t16087; /* x207819 */ t16099.s0.tag = EXTERNAL_SYMBOL_TYPE; t16099.s0.value.external_symbol_type = q42; /* x207820 */ t16100.s0.tag = EXTERNAL_SYMBOL_TYPE; t16100.s0.value.external_symbol_type = q567; /* x207821 */ t16102.s0.tag = EXTERNAL_SYMBOL_TYPE; t16102.s0.value.external_symbol_type = q4; /* x207822 */ t16104.s0.tag = EXTERNAL_SYMBOL_TYPE; t16104.s0.value.external_symbol_type = q568; /* x207823 */ t16105.s0.tag = EXTERNAL_SYMBOL_TYPE; t16105.s0.value.external_symbol_type = q562; /* x207824 */ t16105.s1.tag = NULL_TYPE; /* x207825 */ t16104.s1.tag = STRUCTURE_TYPE24753; t16104.s1.value.structure_type24753 = &t16105; /* x207826 */ t16103.s0.tag = STRUCTURE_TYPE24753; t16103.s0.value.structure_type24753 = &t16104; /* x207827 */ t16107.s0.tag = EXTERNAL_SYMBOL_TYPE; t16107.s0.value.external_symbol_type = q569; /* x207828 */ t16108.s0.tag = EXTERNAL_SYMBOL_TYPE; t16108.s0.value.external_symbol_type = q562; /* x207829 */ t16108.s1.tag = NULL_TYPE; /* x207830 */ t16107.s1.tag = STRUCTURE_TYPE24753; t16107.s1.value.structure_type24753 = &t16108; /* x207831 */ t16106.s0.tag = STRUCTURE_TYPE24753; t16106.s0.value.structure_type24753 = &t16107; /* x207832 */ t16106.s1.tag = NULL_TYPE; /* x207833 */ t16103.s1.tag = STRUCTURE_TYPE24753; t16103.s1.value.structure_type24753 = &t16106; /* x207834 */ t16102.s1.tag = STRUCTURE_TYPE24753; t16102.s1.value.structure_type24753 = &t16103; /* x207835 */ t16101.s0.tag = STRUCTURE_TYPE24753; t16101.s0.value.structure_type24753 = &t16102; /* x207836 */ t16101.s1.tag = NULL_TYPE; /* x207837 */ t16100.s1.tag = STRUCTURE_TYPE24753; t16100.s1.value.structure_type24753 = &t16101; /* x207838 */ t16099.s1.tag = STRUCTURE_TYPE24753; t16099.s1.value.structure_type24753 = &t16100; /* x207839 */ t16098.s0.tag = STRUCTURE_TYPE24753; t16098.s0.value.structure_type24753 = &t16099; /* x207840 */ t16110.s0.tag = EXTERNAL_SYMBOL_TYPE; t16110.s0.value.external_symbol_type = q42; /* x207841 */ t16111.s0.tag = EXTERNAL_SYMBOL_TYPE; t16111.s0.value.external_symbol_type = q570; /* x207842 */ t16113.s0.tag = EXTERNAL_SYMBOL_TYPE; t16113.s0.value.external_symbol_type = q4; /* x207843 */ t16115.s0.tag = EXTERNAL_SYMBOL_TYPE; t16115.s0.value.external_symbol_type = q568; /* x207844 */ t16116.s0.tag = EXTERNAL_SYMBOL_TYPE; t16116.s0.value.external_symbol_type = q565; /* x207845 */ t16116.s1.tag = NULL_TYPE; /* x207846 */ t16115.s1.tag = STRUCTURE_TYPE24753; t16115.s1.value.structure_type24753 = &t16116; /* x207847 */ t16114.s0.tag = STRUCTURE_TYPE24753; t16114.s0.value.structure_type24753 = &t16115; /* x207848 */ t16118.s0.tag = EXTERNAL_SYMBOL_TYPE; t16118.s0.value.external_symbol_type = q569; /* x207849 */ t16119.s0.tag = EXTERNAL_SYMBOL_TYPE; t16119.s0.value.external_symbol_type = q565; /* x207850 */ t16119.s1.tag = NULL_TYPE; /* x207851 */ t16118.s1.tag = STRUCTURE_TYPE24753; t16118.s1.value.structure_type24753 = &t16119; /* x207852 */ t16117.s0.tag = STRUCTURE_TYPE24753; t16117.s0.value.structure_type24753 = &t16118; /* x207853 */ t16117.s1.tag = NULL_TYPE; /* x207854 */ t16114.s1.tag = STRUCTURE_TYPE24753; t16114.s1.value.structure_type24753 = &t16117; /* x207855 */ t16113.s1.tag = STRUCTURE_TYPE24753; t16113.s1.value.structure_type24753 = &t16114; /* x207856 */ t16112.s0.tag = STRUCTURE_TYPE24753; t16112.s0.value.structure_type24753 = &t16113; /* x207857 */ t16112.s1.tag = NULL_TYPE; /* x207858 */ t16111.s1.tag = STRUCTURE_TYPE24753; t16111.s1.value.structure_type24753 = &t16112; /* x207859 */ t16110.s1.tag = STRUCTURE_TYPE24753; t16110.s1.value.structure_type24753 = &t16111; /* x207860 */ t16109.s0.tag = STRUCTURE_TYPE24753; t16109.s0.value.structure_type24753 = &t16110; /* x207861 */ t16121.s0.tag = EXTERNAL_SYMBOL_TYPE; t16121.s0.value.external_symbol_type = q42; /* x207862 */ t16122.s0.tag = EXTERNAL_SYMBOL_TYPE; t16122.s0.value.external_symbol_type = q571; /* x207863 */ t16124.s0.tag = EXTERNAL_SYMBOL_TYPE; t16124.s0.value.external_symbol_type = q4; /* x207864 */ t16126.s0.tag = EXTERNAL_SYMBOL_TYPE; t16126.s0.value.external_symbol_type = q128; /* x207865 */ t16128.s0.tag = EXTERNAL_SYMBOL_TYPE; t16128.s0.value.external_symbol_type = q568; /* x207866 */ t16129.s0.tag = EXTERNAL_SYMBOL_TYPE; t16129.s0.value.external_symbol_type = q562; /* x207867 */ t16129.s1.tag = NULL_TYPE; /* x207868 */ t16128.s1.tag = STRUCTURE_TYPE24753; t16128.s1.value.structure_type24753 = &t16129; /* x207869 */ t16127.s0.tag = STRUCTURE_TYPE24753; t16127.s0.value.structure_type24753 = &t16128; /* x207870 */ t16131.s0.tag = EXTERNAL_SYMBOL_TYPE; t16131.s0.value.external_symbol_type = q568; /* x207871 */ t16132.s0.tag = EXTERNAL_SYMBOL_TYPE; t16132.s0.value.external_symbol_type = q565; /* x207872 */ t16132.s1.tag = NULL_TYPE; /* x207873 */ t16131.s1.tag = STRUCTURE_TYPE24753; t16131.s1.value.structure_type24753 = &t16132; /* x207874 */ t16130.s0.tag = STRUCTURE_TYPE24753; t16130.s0.value.structure_type24753 = &t16131; /* x207875 */ t16130.s1.tag = NULL_TYPE; /* x207876 */ t16127.s1.tag = STRUCTURE_TYPE24753; t16127.s1.value.structure_type24753 = &t16130; /* x207877 */ t16126.s1.tag = STRUCTURE_TYPE24753; t16126.s1.value.structure_type24753 = &t16127; /* x207878 */ t16125.s0.tag = STRUCTURE_TYPE24753; t16125.s0.value.structure_type24753 = &t16126; /* x207879 */ t16134.s0.tag = EXTERNAL_SYMBOL_TYPE; t16134.s0.value.external_symbol_type = q128; /* x207880 */ t16136.s0.tag = EXTERNAL_SYMBOL_TYPE; t16136.s0.value.external_symbol_type = q569; /* x207881 */ t16137.s0.tag = EXTERNAL_SYMBOL_TYPE; t16137.s0.value.external_symbol_type = q562; /* x207882 */ t16137.s1.tag = NULL_TYPE; /* x207883 */ t16136.s1.tag = STRUCTURE_TYPE24753; t16136.s1.value.structure_type24753 = &t16137; /* x207884 */ t16135.s0.tag = STRUCTURE_TYPE24753; t16135.s0.value.structure_type24753 = &t16136; /* x207885 */ t16139.s0.tag = EXTERNAL_SYMBOL_TYPE; t16139.s0.value.external_symbol_type = q569; /* x207886 */ t16140.s0.tag = EXTERNAL_SYMBOL_TYPE; t16140.s0.value.external_symbol_type = q565; /* x207887 */ t16140.s1.tag = NULL_TYPE; /* x207888 */ t16139.s1.tag = STRUCTURE_TYPE24753; t16139.s1.value.structure_type24753 = &t16140; /* x207889 */ t16138.s0.tag = STRUCTURE_TYPE24753; t16138.s0.value.structure_type24753 = &t16139; /* x207890 */ t16138.s1.tag = NULL_TYPE; /* x207891 */ t16135.s1.tag = STRUCTURE_TYPE24753; t16135.s1.value.structure_type24753 = &t16138; /* x207892 */ t16134.s1.tag = STRUCTURE_TYPE24753; t16134.s1.value.structure_type24753 = &t16135; /* x207893 */ t16133.s0.tag = STRUCTURE_TYPE24753; t16133.s0.value.structure_type24753 = &t16134; /* x207894 */ t16133.s1.tag = NULL_TYPE; /* x207895 */ t16125.s1.tag = STRUCTURE_TYPE24753; t16125.s1.value.structure_type24753 = &t16133; /* x207896 */ t16124.s1.tag = STRUCTURE_TYPE24753; t16124.s1.value.structure_type24753 = &t16125; /* x207897 */ t16123.s0.tag = STRUCTURE_TYPE24753; t16123.s0.value.structure_type24753 = &t16124; /* x207898 */ t16123.s1.tag = NULL_TYPE; /* x207899 */ t16122.s1.tag = STRUCTURE_TYPE24753; t16122.s1.value.structure_type24753 = &t16123; /* x207900 */ t16121.s1.tag = STRUCTURE_TYPE24753; t16121.s1.value.structure_type24753 = &t16122; /* x207901 */ t16120.s0.tag = STRUCTURE_TYPE24753; t16120.s0.value.structure_type24753 = &t16121; /* x207902 */ t16142.s0.tag = EXTERNAL_SYMBOL_TYPE; t16142.s0.value.external_symbol_type = q42; /* x207903 */ t16143.s0.tag = EXTERNAL_SYMBOL_TYPE; t16143.s0.value.external_symbol_type = q572; /* x207904 */ t16145.s0.tag = EXTERNAL_SYMBOL_TYPE; t16145.s0.value.external_symbol_type = q569; /* x207905 */ t16146.s0.tag = EXTERNAL_SYMBOL_TYPE; t16146.s0.value.external_symbol_type = q562; /* x207906 */ t16146.s1.tag = NULL_TYPE; /* x207907 */ t16145.s1.tag = STRUCTURE_TYPE24753; t16145.s1.value.structure_type24753 = &t16146; /* x207908 */ t16144.s0.tag = STRUCTURE_TYPE24753; t16144.s0.value.structure_type24753 = &t16145; /* x207909 */ t16144.s1.tag = NULL_TYPE; /* x207910 */ t16143.s1.tag = STRUCTURE_TYPE24753; t16143.s1.value.structure_type24753 = &t16144; /* x207911 */ t16142.s1.tag = STRUCTURE_TYPE24753; t16142.s1.value.structure_type24753 = &t16143; /* x207912 */ t16141.s0.tag = STRUCTURE_TYPE24753; t16141.s0.value.structure_type24753 = &t16142; /* x207913 */ t16148.s0.tag = EXTERNAL_SYMBOL_TYPE; t16148.s0.value.external_symbol_type = q42; /* x207914 */ t16149.s0.tag = EXTERNAL_SYMBOL_TYPE; t16149.s0.value.external_symbol_type = q573; /* x207915 */ t16151.s0.tag = EXTERNAL_SYMBOL_TYPE; t16151.s0.value.external_symbol_type = q569; /* x207916 */ t16152.s0.tag = EXTERNAL_SYMBOL_TYPE; t16152.s0.value.external_symbol_type = q565; /* x207917 */ t16152.s1.tag = NULL_TYPE; /* x207918 */ t16151.s1.tag = STRUCTURE_TYPE24753; t16151.s1.value.structure_type24753 = &t16152; /* x207919 */ t16150.s0.tag = STRUCTURE_TYPE24753; t16150.s0.value.structure_type24753 = &t16151; /* x207920 */ t16150.s1.tag = NULL_TYPE; /* x207921 */ t16149.s1.tag = STRUCTURE_TYPE24753; t16149.s1.value.structure_type24753 = &t16150; /* x207922 */ t16148.s1.tag = STRUCTURE_TYPE24753; t16148.s1.value.structure_type24753 = &t16149; /* x207923 */ t16147.s0.tag = STRUCTURE_TYPE24753; t16147.s0.value.structure_type24753 = &t16148; /* x207924 */ t16154.s0.tag = EXTERNAL_SYMBOL_TYPE; t16154.s0.value.external_symbol_type = q42; /* x207925 */ t16155.s0.tag = EXTERNAL_SYMBOL_TYPE; t16155.s0.value.external_symbol_type = q574; /* x207926 */ t16157.s0.tag = EXTERNAL_SYMBOL_TYPE; t16157.s0.value.external_symbol_type = q128; /* x207927 */ t16158.s0.tag = EXTERNAL_SYMBOL_TYPE; t16158.s0.value.external_symbol_type = q572; /* x207928 */ t16159.s0.tag = EXTERNAL_SYMBOL_TYPE; t16159.s0.value.external_symbol_type = q573; /* x207929 */ t16159.s1.tag = NULL_TYPE; /* x207930 */ t16158.s1.tag = STRUCTURE_TYPE24753; t16158.s1.value.structure_type24753 = &t16159; /* x207931 */ t16157.s1.tag = STRUCTURE_TYPE24753; t16157.s1.value.structure_type24753 = &t16158; /* x207932 */ t16156.s0.tag = STRUCTURE_TYPE24753; t16156.s0.value.structure_type24753 = &t16157; /* x207933 */ t16156.s1.tag = NULL_TYPE; /* x207934 */ t16155.s1.tag = STRUCTURE_TYPE24753; t16155.s1.value.structure_type24753 = &t16156; /* x207935 */ t16154.s1.tag = STRUCTURE_TYPE24753; t16154.s1.value.structure_type24753 = &t16155; /* x207936 */ t16153.s0.tag = STRUCTURE_TYPE24753; t16153.s0.value.structure_type24753 = &t16154; /* x207937 */ t16161.s0.tag = EXTERNAL_SYMBOL_TYPE; t16161.s0.value.external_symbol_type = q42; /* x207938 */ t16162.s0.tag = EXTERNAL_SYMBOL_TYPE; t16162.s0.value.external_symbol_type = q575; /* x207939 */ t16163.s0.tag = EXTERNAL_SYMBOL_TYPE; t16163.s0.value.external_symbol_type = q529; /* x207940 */ t16163.s1.tag = NULL_TYPE; /* x207941 */ t16162.s1.tag = STRUCTURE_TYPE24753; t16162.s1.value.structure_type24753 = &t16163; /* x207942 */ t16161.s1.tag = STRUCTURE_TYPE24753; t16161.s1.value.structure_type24753 = &t16162; /* x207943 */ t16160.s0.tag = STRUCTURE_TYPE24753; t16160.s0.value.structure_type24753 = &t16161; /* x207944 */ t16165.s0.tag = EXTERNAL_SYMBOL_TYPE; t16165.s0.value.external_symbol_type = q42; /* x207945 */ t16166.s0.tag = EXTERNAL_SYMBOL_TYPE; t16166.s0.value.external_symbol_type = q576; /* x207946 */ t16167.s0.tag = EXTERNAL_SYMBOL_TYPE; t16167.s0.value.external_symbol_type = q530; /* x207947 */ t16167.s1.tag = NULL_TYPE; /* x207948 */ t16166.s1.tag = STRUCTURE_TYPE24753; t16166.s1.value.structure_type24753 = &t16167; /* x207949 */ t16165.s1.tag = STRUCTURE_TYPE24753; t16165.s1.value.structure_type24753 = &t16166; /* x207950 */ t16164.s0.tag = STRUCTURE_TYPE24753; t16164.s0.value.structure_type24753 = &t16165; /* x207951 */ t16169.s0.tag = EXTERNAL_SYMBOL_TYPE; t16169.s0.value.external_symbol_type = q42; /* x207952 */ t16170.s0.tag = EXTERNAL_SYMBOL_TYPE; t16170.s0.value.external_symbol_type = q577; /* x207953 */ t16171.s0.tag = FIXNUM_TYPE; t16171.s0.value.fixnum_type = 0; /* x207954 */ t16171.s1.tag = NULL_TYPE; /* x207955 */ t16170.s1.tag = STRUCTURE_TYPE24753; t16170.s1.value.structure_type24753 = &t16171; /* x207956 */ t16169.s1.tag = STRUCTURE_TYPE24753; t16169.s1.value.structure_type24753 = &t16170; /* x207957 */ t16168.s0.tag = STRUCTURE_TYPE24753; t16168.s0.value.structure_type24753 = &t16169; /* x207958 */ t16173.s0.tag = EXTERNAL_SYMBOL_TYPE; t16173.s0.value.external_symbol_type = q42; /* x207959 */ t16174.s0.tag = EXTERNAL_SYMBOL_TYPE; t16174.s0.value.external_symbol_type = q578; /* x207960 */ t16176.s0.tag = EXTERNAL_SYMBOL_TYPE; t16176.s0.value.external_symbol_type = q579; /* x207961 */ t16177.s0.tag = EXTERNAL_SYMBOL_TYPE; t16177.s0.value.external_symbol_type = q540; /* x207962 */ t16178.s0.tag = EXTERNAL_SYMBOL_TYPE; t16178.s0.value.external_symbol_type = q547; /* x207963 */ t16179.s0.tag = EXTERNAL_SYMBOL_TYPE; t16179.s0.value.external_symbol_type = q580; /* x207964 */ t16180.s0.tag = EXTERNAL_SYMBOL_TYPE; t16180.s0.value.external_symbol_type = q581; /* x207965 */ t16181.s0.tag = EXTERNAL_SYMBOL_TYPE; t16181.s0.value.external_symbol_type = q575; /* x207966 */ t16182.s0.tag = EXTERNAL_SYMBOL_TYPE; t16182.s0.value.external_symbol_type = q576; /* x207967 */ t16183.s0.tag = FIXNUM_TYPE; t16183.s0.value.fixnum_type = 1; /* x207968 */ t16185.s0.tag = EXTERNAL_SYMBOL_TYPE; t16185.s0.value.external_symbol_type = q43; /* x207969 */ t16186.s0.tag = EXTERNAL_SYMBOL_TYPE; t16186.s0.value.external_symbol_type = q528; /* x207970 */ t16187.s0.tag = EXTERNAL_SYMBOL_TYPE; t16187.s0.value.external_symbol_type = q553; /* x207971 */ t16189.s0.tag = EXTERNAL_SYMBOL_TYPE; t16189.s0.value.external_symbol_type = q582; /* x207972 */ t16191.s0.tag = EXTERNAL_SYMBOL_TYPE; t16191.s0.value.external_symbol_type = q583; /* x207973 */ t16192.s0.tag = EXTERNAL_SYMBOL_TYPE; t16192.s0.value.external_symbol_type = q560; /* x207974 */ t16192.s1.tag = NULL_TYPE; /* x207975 */ t16191.s1.tag = STRUCTURE_TYPE24753; t16191.s1.value.structure_type24753 = &t16192; /* x207976 */ t16190.s0.tag = STRUCTURE_TYPE24753; t16190.s0.value.structure_type24753 = &t16191; /* x207977 */ t16190.s1.tag = NULL_TYPE; /* x207978 */ t16189.s1.tag = STRUCTURE_TYPE24753; t16189.s1.value.structure_type24753 = &t16190; /* x207979 */ t16188.s0.tag = STRUCTURE_TYPE24753; t16188.s0.value.structure_type24753 = &t16189; /* x207980 */ t16188.s1.tag = NULL_TYPE; /* x207981 */ t16187.s1.tag = STRUCTURE_TYPE24753; t16187.s1.value.structure_type24753 = &t16188; /* x207982 */ t16186.s1.tag = STRUCTURE_TYPE24753; t16186.s1.value.structure_type24753 = &t16187; /* x207983 */ t16185.s1.tag = STRUCTURE_TYPE24753; t16185.s1.value.structure_type24753 = &t16186; /* x207984 */ t16184.s0.tag = STRUCTURE_TYPE24753; t16184.s0.value.structure_type24753 = &t16185; /* x207985 */ t16194.s0.tag = EXTERNAL_SYMBOL_TYPE; t16194.s0.value.external_symbol_type = q43; /* x207986 */ t16195.s0.tag = EXTERNAL_SYMBOL_TYPE; t16195.s0.value.external_symbol_type = q528; /* x207987 */ t16196.s0.tag = EXTERNAL_SYMBOL_TYPE; t16196.s0.value.external_symbol_type = q551; /* x207988 */ t16198.s0.tag = EXTERNAL_SYMBOL_TYPE; t16198.s0.value.external_symbol_type = q582; /* x207989 */ t16200.s0.tag = EXTERNAL_SYMBOL_TYPE; t16200.s0.value.external_symbol_type = q583; /* x207990 */ t16201.s0.tag = EXTERNAL_SYMBOL_TYPE; t16201.s0.value.external_symbol_type = q555; /* x207991 */ t16201.s1.tag = NULL_TYPE; /* x207992 */ t16200.s1.tag = STRUCTURE_TYPE24753; t16200.s1.value.structure_type24753 = &t16201; /* x207993 */ t16199.s0.tag = STRUCTURE_TYPE24753; t16199.s0.value.structure_type24753 = &t16200; /* x207994 */ t16199.s1.tag = NULL_TYPE; /* x207995 */ t16198.s1.tag = STRUCTURE_TYPE24753; t16198.s1.value.structure_type24753 = &t16199; /* x207996 */ t16197.s0.tag = STRUCTURE_TYPE24753; t16197.s0.value.structure_type24753 = &t16198; /* x207997 */ t16197.s1.tag = NULL_TYPE; /* x207998 */ t16196.s1.tag = STRUCTURE_TYPE24753; t16196.s1.value.structure_type24753 = &t16197; /* x207999 */ t16195.s1.tag = STRUCTURE_TYPE24753; t16195.s1.value.structure_type24753 = &t16196; /* x208000 */ t16194.s1.tag = STRUCTURE_TYPE24753; t16194.s1.value.structure_type24753 = &t16195; /* x208001 */ t16193.s0.tag = STRUCTURE_TYPE24753; t16193.s0.value.structure_type24753 = &t16194; /* x208002 */ t16193.s1.tag = NULL_TYPE; /* x208003 */ t16184.s1.tag = STRUCTURE_TYPE24753; t16184.s1.value.structure_type24753 = &t16193; /* x208004 */ t16183.s1.tag = STRUCTURE_TYPE24753; t16183.s1.value.structure_type24753 = &t16184; /* x208005 */ t16182.s1.tag = STRUCTURE_TYPE24753; t16182.s1.value.structure_type24753 = &t16183; /* x208006 */ t16181.s1.tag = STRUCTURE_TYPE24753; t16181.s1.value.structure_type24753 = &t16182; /* x208007 */ t16180.s1.tag = STRUCTURE_TYPE24753; t16180.s1.value.structure_type24753 = &t16181; /* x208008 */ t16179.s1.tag = STRUCTURE_TYPE24753; t16179.s1.value.structure_type24753 = &t16180; /* x208009 */ t16178.s1.tag = STRUCTURE_TYPE24753; t16178.s1.value.structure_type24753 = &t16179; /* x208010 */ t16177.s1.tag = STRUCTURE_TYPE24753; t16177.s1.value.structure_type24753 = &t16178; /* x208011 */ t16176.s1.tag = STRUCTURE_TYPE24753; t16176.s1.value.structure_type24753 = &t16177; /* x208012 */ t16175.s0.tag = STRUCTURE_TYPE24753; t16175.s0.value.structure_type24753 = &t16176; /* x208013 */ t16175.s1.tag = NULL_TYPE; /* x208014 */ t16174.s1.tag = STRUCTURE_TYPE24753; t16174.s1.value.structure_type24753 = &t16175; /* x208015 */ t16173.s1.tag = STRUCTURE_TYPE24753; t16173.s1.value.structure_type24753 = &t16174; /* x208016 */ t16172.s0.tag = STRUCTURE_TYPE24753; t16172.s0.value.structure_type24753 = &t16173; /* x208017 */ t16203.s0.tag = EXTERNAL_SYMBOL_TYPE; t16203.s0.value.external_symbol_type = q584; /* x208018 */ t16204.s0.tag = EXTERNAL_SYMBOL_TYPE; t16204.s0.value.external_symbol_type = q540; /* x208019 */ t16205.s0.tag = EXTERNAL_SYMBOL_TYPE; t16205.s0.value.external_symbol_type = q578; /* x208020 */ t16206.s0.tag = EXTERNAL_SYMBOL_TYPE; t16206.s0.value.external_symbol_type = q585; /* x208021 */ t16206.s1.tag = NULL_TYPE; /* x208022 */ t16205.s1.tag = STRUCTURE_TYPE24753; t16205.s1.value.structure_type24753 = &t16206; /* x208023 */ t16204.s1.tag = STRUCTURE_TYPE24753; t16204.s1.value.structure_type24753 = &t16205; /* x208024 */ t16203.s1.tag = STRUCTURE_TYPE24753; t16203.s1.value.structure_type24753 = &t16204; /* x208025 */ t16202.s0.tag = STRUCTURE_TYPE24753; t16202.s0.value.structure_type24753 = &t16203; /* x208026 */ t16208.s0.tag = EXTERNAL_SYMBOL_TYPE; t16208.s0.value.external_symbol_type = q586; /* x208027 */ t16209.s0.tag = EXTERNAL_SYMBOL_TYPE; t16209.s0.value.external_symbol_type = q540; /* x208028 */ t16210.s0.tag = EXTERNAL_SYMBOL_TYPE; t16210.s0.value.external_symbol_type = q578; /* x208029 */ t16211.s0.tag = EXTERNAL_SYMBOL_TYPE; t16211.s0.value.external_symbol_type = q585; /* x208030 */ t16211.s1.tag = NULL_TYPE; /* x208031 */ t16210.s1.tag = STRUCTURE_TYPE24753; t16210.s1.value.structure_type24753 = &t16211; /* x208032 */ t16209.s1.tag = STRUCTURE_TYPE24753; t16209.s1.value.structure_type24753 = &t16210; /* x208033 */ t16208.s1.tag = STRUCTURE_TYPE24753; t16208.s1.value.structure_type24753 = &t16209; /* x208034 */ t16207.s0.tag = STRUCTURE_TYPE24753; t16207.s0.value.structure_type24753 = &t16208; /* x208035 */ t16213.s0.tag = EXTERNAL_SYMBOL_TYPE; t16213.s0.value.external_symbol_type = q42; /* x208036 */ t16214.s0.tag = EXTERNAL_SYMBOL_TYPE; t16214.s0.value.external_symbol_type = q587; /* x208037 */ t16215.s0.tag = EXTERNAL_SYMBOL_TYPE; t16215.s0.value.external_symbol_type = q578; /* x208038 */ t16215.s1.tag = NULL_TYPE; /* x208039 */ t16214.s1.tag = STRUCTURE_TYPE24753; t16214.s1.value.structure_type24753 = &t16215; /* x208040 */ t16213.s1.tag = STRUCTURE_TYPE24753; t16213.s1.value.structure_type24753 = &t16214; /* x208041 */ t16212.s0.tag = STRUCTURE_TYPE24753; t16212.s0.value.structure_type24753 = &t16213; /* x208042 */ t16217.s0.tag = EXTERNAL_SYMBOL_TYPE; t16217.s0.value.external_symbol_type = q588; /* x208043 */ t16218.s0.tag = EXTERNAL_SYMBOL_TYPE; t16218.s0.value.external_symbol_type = q540; /* x208044 */ t16219.s0.tag = EXTERNAL_SYMBOL_TYPE; t16219.s0.value.external_symbol_type = q587; /* x208045 */ t16221.s0.tag = EXTERNAL_SYMBOL_TYPE; t16221.s0.value.external_symbol_type = q589; /* x208046 */ t16222.s0.tag = EXTERNAL_SYMBOL_TYPE; t16222.s0.value.external_symbol_type = q590; /* x208047 */ t16223.s0.tag = EXTERNAL_SYMBOL_TYPE; t16223.s0.value.external_symbol_type = q591; /* x208048 */ t16224.s0.tag = EXTERNAL_SYMBOL_TYPE; t16224.s0.value.external_symbol_type = q592; /* x208049 */ t16225.s0.tag = EXTERNAL_SYMBOL_TYPE; t16225.s0.value.external_symbol_type = q593; /* x208050 */ t16226.s0.tag = EXTERNAL_SYMBOL_TYPE; t16226.s0.value.external_symbol_type = q594; /* x208051 */ t16226.s1.tag = NULL_TYPE; /* x208052 */ t16225.s1.tag = STRUCTURE_TYPE24753; t16225.s1.value.structure_type24753 = &t16226; /* x208053 */ t16224.s1.tag = STRUCTURE_TYPE24753; t16224.s1.value.structure_type24753 = &t16225; /* x208054 */ t16223.s1.tag = STRUCTURE_TYPE24753; t16223.s1.value.structure_type24753 = &t16224; /* x208055 */ t16222.s1.tag = STRUCTURE_TYPE24753; t16222.s1.value.structure_type24753 = &t16223; /* x208056 */ t16221.s1.tag = STRUCTURE_TYPE24753; t16221.s1.value.structure_type24753 = &t16222; /* x208057 */ t16220.s0.tag = STRUCTURE_TYPE24753; t16220.s0.value.structure_type24753 = &t16221; /* x208058 */ t16220.s1.tag = NULL_TYPE; /* x208059 */ t16219.s1.tag = STRUCTURE_TYPE24753; t16219.s1.value.structure_type24753 = &t16220; /* x208060 */ t16218.s1.tag = STRUCTURE_TYPE24753; t16218.s1.value.structure_type24753 = &t16219; /* x208061 */ t16217.s1.tag = STRUCTURE_TYPE24753; t16217.s1.value.structure_type24753 = &t16218; /* x208062 */ t16216.s0.tag = STRUCTURE_TYPE24753; t16216.s0.value.structure_type24753 = &t16217; /* x208063 */ t16228.s0.tag = EXTERNAL_SYMBOL_TYPE; t16228.s0.value.external_symbol_type = q42; /* x208064 */ t16229.s0.tag = EXTERNAL_SYMBOL_TYPE; t16229.s0.value.external_symbol_type = q595; /* x208065 */ t16231.s0.tag = EXTERNAL_SYMBOL_TYPE; t16231.s0.value.external_symbol_type = q596; /* x208066 */ t16232.s0.tag = EXTERNAL_SYMBOL_TYPE; t16232.s0.value.external_symbol_type = q540; /* x208067 */ t16233.s0.tag = EXTERNAL_SYMBOL_TYPE; t16233.s0.value.external_symbol_type = q578; /* x208068 */ t16234.s0.tag = FIXNUM_TYPE; t16234.s0.value.fixnum_type = 0; /* x208069 */ t16236.s0.tag = EXTERNAL_SYMBOL_TYPE; t16236.s0.value.external_symbol_type = q597; /* x208070 */ t16236.s1.tag = NULL_TYPE; /* x208071 */ t16235.s0.tag = STRUCTURE_TYPE24753; t16235.s0.value.structure_type24753 = &t16236; /* x208072 */ t16235.s1.tag = NULL_TYPE; /* x208073 */ t16234.s1.tag = STRUCTURE_TYPE24753; t16234.s1.value.structure_type24753 = &t16235; /* x208074 */ t16233.s1.tag = STRUCTURE_TYPE24753; t16233.s1.value.structure_type24753 = &t16234; /* x208075 */ t16232.s1.tag = STRUCTURE_TYPE24753; t16232.s1.value.structure_type24753 = &t16233; /* x208076 */ t16231.s1.tag = STRUCTURE_TYPE24753; t16231.s1.value.structure_type24753 = &t16232; /* x208077 */ t16230.s0.tag = STRUCTURE_TYPE24753; t16230.s0.value.structure_type24753 = &t16231; /* x208078 */ t16230.s1.tag = NULL_TYPE; /* x208079 */ t16229.s1.tag = STRUCTURE_TYPE24753; t16229.s1.value.structure_type24753 = &t16230; /* x208080 */ t16228.s1.tag = STRUCTURE_TYPE24753; t16228.s1.value.structure_type24753 = &t16229; /* x208081 */ t16227.s0.tag = STRUCTURE_TYPE24753; t16227.s0.value.structure_type24753 = &t16228; /* x208082 */ t16238.s0.tag = EXTERNAL_SYMBOL_TYPE; t16238.s0.value.external_symbol_type = q598; /* x208083 */ t16239.s0.tag = EXTERNAL_SYMBOL_TYPE; t16239.s0.value.external_symbol_type = q540; /* x208084 */ t16240.s0.tag = EXTERNAL_SYMBOL_TYPE; t16240.s0.value.external_symbol_type = q595; /* x208085 */ t16242.s0.tag = EXTERNAL_SYMBOL_TYPE; t16242.s0.value.external_symbol_type = q43; /* x208086 */ t16243.s0.tag = EXTERNAL_SYMBOL_TYPE; t16243.s0.value.external_symbol_type = q528; /* x208087 */ t16244.s0.tag = EXTERNAL_SYMBOL_TYPE; t16244.s0.value.external_symbol_type = q551; /* x208088 */ t16246.s0.tag = EXTERNAL_SYMBOL_TYPE; t16246.s0.value.external_symbol_type = q582; /* x208089 */ t16248.s0.tag = EXTERNAL_SYMBOL_TYPE; t16248.s0.value.external_symbol_type = q583; /* x208090 */ t16249.s0.tag = EXTERNAL_SYMBOL_TYPE; t16249.s0.value.external_symbol_type = q555; /* x208091 */ t16249.s1.tag = NULL_TYPE; /* x208092 */ t16248.s1.tag = STRUCTURE_TYPE24753; t16248.s1.value.structure_type24753 = &t16249; /* x208093 */ t16247.s0.tag = STRUCTURE_TYPE24753; t16247.s0.value.structure_type24753 = &t16248; /* x208094 */ t16247.s1.tag = NULL_TYPE; /* x208095 */ t16246.s1.tag = STRUCTURE_TYPE24753; t16246.s1.value.structure_type24753 = &t16247; /* x208096 */ t16245.s0.tag = STRUCTURE_TYPE24753; t16245.s0.value.structure_type24753 = &t16246; /* x208097 */ t16245.s1.tag = NULL_TYPE; /* x208098 */ t16244.s1.tag = STRUCTURE_TYPE24753; t16244.s1.value.structure_type24753 = &t16245; /* x208099 */ t16243.s1.tag = STRUCTURE_TYPE24753; t16243.s1.value.structure_type24753 = &t16244; /* x208100 */ t16242.s1.tag = STRUCTURE_TYPE24753; t16242.s1.value.structure_type24753 = &t16243; /* x208101 */ t16241.s0.tag = STRUCTURE_TYPE24753; t16241.s0.value.structure_type24753 = &t16242; /* x208102 */ t16241.s1.tag = NULL_TYPE; /* x208103 */ t16240.s1.tag = STRUCTURE_TYPE24753; t16240.s1.value.structure_type24753 = &t16241; /* x208104 */ t16239.s1.tag = STRUCTURE_TYPE24753; t16239.s1.value.structure_type24753 = &t16240; /* x208105 */ t16238.s1.tag = STRUCTURE_TYPE24753; t16238.s1.value.structure_type24753 = &t16239; /* x208106 */ t16237.s0.tag = STRUCTURE_TYPE24753; t16237.s0.value.structure_type24753 = &t16238; /* x208107 */ t16251.s0.tag = EXTERNAL_SYMBOL_TYPE; t16251.s0.value.external_symbol_type = q599; /* x208108 */ t16252.s0.tag = EXTERNAL_SYMBOL_TYPE; t16252.s0.value.external_symbol_type = q540; /* x208109 */ t16253.s0.tag = EXTERNAL_SYMBOL_TYPE; t16253.s0.value.external_symbol_type = q595; /* x208110 */ t16255.s0.tag = EXTERNAL_SYMBOL_TYPE; t16255.s0.value.external_symbol_type = q43; /* x208111 */ t16256.s0.tag = EXTERNAL_SYMBOL_TYPE; t16256.s0.value.external_symbol_type = q528; /* x208112 */ t16257.s0.tag = EXTERNAL_SYMBOL_TYPE; t16257.s0.value.external_symbol_type = q553; /* x208113 */ t16259.s0.tag = EXTERNAL_SYMBOL_TYPE; t16259.s0.value.external_symbol_type = q582; /* x208114 */ t16261.s0.tag = EXTERNAL_SYMBOL_TYPE; t16261.s0.value.external_symbol_type = q583; /* x208115 */ t16262.s0.tag = EXTERNAL_SYMBOL_TYPE; t16262.s0.value.external_symbol_type = q560; /* x208116 */ t16262.s1.tag = NULL_TYPE; /* x208117 */ t16261.s1.tag = STRUCTURE_TYPE24753; t16261.s1.value.structure_type24753 = &t16262; /* x208118 */ t16260.s0.tag = STRUCTURE_TYPE24753; t16260.s0.value.structure_type24753 = &t16261; /* x208119 */ t16260.s1.tag = NULL_TYPE; /* x208120 */ t16259.s1.tag = STRUCTURE_TYPE24753; t16259.s1.value.structure_type24753 = &t16260; /* x208121 */ t16258.s0.tag = STRUCTURE_TYPE24753; t16258.s0.value.structure_type24753 = &t16259; /* x208122 */ t16258.s1.tag = NULL_TYPE; /* x208123 */ t16257.s1.tag = STRUCTURE_TYPE24753; t16257.s1.value.structure_type24753 = &t16258; /* x208124 */ t16256.s1.tag = STRUCTURE_TYPE24753; t16256.s1.value.structure_type24753 = &t16257; /* x208125 */ t16255.s1.tag = STRUCTURE_TYPE24753; t16255.s1.value.structure_type24753 = &t16256; /* x208126 */ t16254.s0.tag = STRUCTURE_TYPE24753; t16254.s0.value.structure_type24753 = &t16255; /* x208127 */ t16254.s1.tag = NULL_TYPE; /* x208128 */ t16253.s1.tag = STRUCTURE_TYPE24753; t16253.s1.value.structure_type24753 = &t16254; /* x208129 */ t16252.s1.tag = STRUCTURE_TYPE24753; t16252.s1.value.structure_type24753 = &t16253; /* x208130 */ t16251.s1.tag = STRUCTURE_TYPE24753; t16251.s1.value.structure_type24753 = &t16252; /* x208131 */ t16250.s0.tag = STRUCTURE_TYPE24753; t16250.s0.value.structure_type24753 = &t16251; /* x208132 */ t16264.s0.tag = EXTERNAL_SYMBOL_TYPE; t16264.s0.value.external_symbol_type = q600; /* x208133 */ t16265.s0.tag = EXTERNAL_SYMBOL_TYPE; t16265.s0.value.external_symbol_type = q540; /* x208134 */ t16266.s0.tag = EXTERNAL_SYMBOL_TYPE; t16266.s0.value.external_symbol_type = q595; /* x208135 */ t16267.s0.tag = FIXNUM_TYPE; t16267.s0.value.fixnum_type = 0; /* x208136 */ t16268.s0.tag = EXTERNAL_SYMBOL_TYPE; t16268.s0.value.external_symbol_type = q601; /* x208137 */ t16269.s0.tag = EXTERNAL_SYMBOL_TYPE; t16269.s0.value.external_symbol_type = q602; /* x208138 */ t16270.s0.tag = EXTERNAL_SYMBOL_TYPE; t16270.s0.value.external_symbol_type = q603; /* x208139 */ t16270.s1.tag = NULL_TYPE; /* x208140 */ t16269.s1.tag = STRUCTURE_TYPE24753; t16269.s1.value.structure_type24753 = &t16270; /* x208141 */ t16268.s1.tag = STRUCTURE_TYPE24753; t16268.s1.value.structure_type24753 = &t16269; /* x208142 */ t16267.s1.tag = STRUCTURE_TYPE24753; t16267.s1.value.structure_type24753 = &t16268; /* x208143 */ t16266.s1.tag = STRUCTURE_TYPE24753; t16266.s1.value.structure_type24753 = &t16267; /* x208144 */ t16265.s1.tag = STRUCTURE_TYPE24753; t16265.s1.value.structure_type24753 = &t16266; /* x208145 */ t16264.s1.tag = STRUCTURE_TYPE24753; t16264.s1.value.structure_type24753 = &t16265; /* x208146 */ t16263.s0.tag = STRUCTURE_TYPE24753; t16263.s0.value.structure_type24753 = &t16264; /* x208147 */ t16272.s0.tag = EXTERNAL_SYMBOL_TYPE; t16272.s0.value.external_symbol_type = q42; /* x208148 */ t16273.s0.tag = EXTERNAL_SYMBOL_TYPE; t16273.s0.value.external_symbol_type = q604; /* x208149 */ t16275.s0.tag = EXTERNAL_SYMBOL_TYPE; t16275.s0.value.external_symbol_type = q596; /* x208150 */ t16276.s0.tag = EXTERNAL_SYMBOL_TYPE; t16276.s0.value.external_symbol_type = q540; /* x208151 */ t16277.s0.tag = EXTERNAL_SYMBOL_TYPE; t16277.s0.value.external_symbol_type = q578; /* x208152 */ t16278.s0.tag = FIXNUM_TYPE; t16278.s0.value.fixnum_type = 0; /* x208153 */ t16280.s0.tag = EXTERNAL_SYMBOL_TYPE; t16280.s0.value.external_symbol_type = q597; /* x208154 */ t16280.s1.tag = NULL_TYPE; /* x208155 */ t16279.s0.tag = STRUCTURE_TYPE24753; t16279.s0.value.structure_type24753 = &t16280; /* x208156 */ t16279.s1.tag = NULL_TYPE; /* x208157 */ t16278.s1.tag = STRUCTURE_TYPE24753; t16278.s1.value.structure_type24753 = &t16279; /* x208158 */ t16277.s1.tag = STRUCTURE_TYPE24753; t16277.s1.value.structure_type24753 = &t16278; /* x208159 */ t16276.s1.tag = STRUCTURE_TYPE24753; t16276.s1.value.structure_type24753 = &t16277; /* x208160 */ t16275.s1.tag = STRUCTURE_TYPE24753; t16275.s1.value.structure_type24753 = &t16276; /* x208161 */ t16274.s0.tag = STRUCTURE_TYPE24753; t16274.s0.value.structure_type24753 = &t16275; /* x208162 */ t16274.s1.tag = NULL_TYPE; /* x208163 */ t16273.s1.tag = STRUCTURE_TYPE24753; t16273.s1.value.structure_type24753 = &t16274; /* x208164 */ t16272.s1.tag = STRUCTURE_TYPE24753; t16272.s1.value.structure_type24753 = &t16273; /* x208165 */ t16271.s0.tag = STRUCTURE_TYPE24753; t16271.s0.value.structure_type24753 = &t16272; /* x208166 */ t16282.s0.tag = EXTERNAL_SYMBOL_TYPE; t16282.s0.value.external_symbol_type = q598; /* x208167 */ t16283.s0.tag = EXTERNAL_SYMBOL_TYPE; t16283.s0.value.external_symbol_type = q540; /* x208168 */ t16284.s0.tag = EXTERNAL_SYMBOL_TYPE; t16284.s0.value.external_symbol_type = q604; /* x208169 */ t16286.s0.tag = EXTERNAL_SYMBOL_TYPE; t16286.s0.value.external_symbol_type = q43; /* x208170 */ t16287.s0.tag = EXTERNAL_SYMBOL_TYPE; t16287.s0.value.external_symbol_type = q528; /* x208171 */ t16288.s0.tag = EXTERNAL_SYMBOL_TYPE; t16288.s0.value.external_symbol_type = q553; /* x208172 */ t16290.s0.tag = EXTERNAL_SYMBOL_TYPE; t16290.s0.value.external_symbol_type = q582; /* x208173 */ t16292.s0.tag = EXTERNAL_SYMBOL_TYPE; t16292.s0.value.external_symbol_type = q583; /* x208174 */ t16293.s0.tag = EXTERNAL_SYMBOL_TYPE; t16293.s0.value.external_symbol_type = q560; /* x208175 */ t16293.s1.tag = NULL_TYPE; /* x208176 */ t16292.s1.tag = STRUCTURE_TYPE24753; t16292.s1.value.structure_type24753 = &t16293; /* x208177 */ t16291.s0.tag = STRUCTURE_TYPE24753; t16291.s0.value.structure_type24753 = &t16292; /* x208178 */ t16291.s1.tag = NULL_TYPE; /* x208179 */ t16290.s1.tag = STRUCTURE_TYPE24753; t16290.s1.value.structure_type24753 = &t16291; /* x208180 */ t16289.s0.tag = STRUCTURE_TYPE24753; t16289.s0.value.structure_type24753 = &t16290; /* x208181 */ t16289.s1.tag = NULL_TYPE; /* x208182 */ t16288.s1.tag = STRUCTURE_TYPE24753; t16288.s1.value.structure_type24753 = &t16289; /* x208183 */ t16287.s1.tag = STRUCTURE_TYPE24753; t16287.s1.value.structure_type24753 = &t16288; /* x208184 */ t16286.s1.tag = STRUCTURE_TYPE24753; t16286.s1.value.structure_type24753 = &t16287; /* x208185 */ t16285.s0.tag = STRUCTURE_TYPE24753; t16285.s0.value.structure_type24753 = &t16286; /* x208186 */ t16285.s1.tag = NULL_TYPE; /* x208187 */ t16284.s1.tag = STRUCTURE_TYPE24753; t16284.s1.value.structure_type24753 = &t16285; /* x208188 */ t16283.s1.tag = STRUCTURE_TYPE24753; t16283.s1.value.structure_type24753 = &t16284; /* x208189 */ t16282.s1.tag = STRUCTURE_TYPE24753; t16282.s1.value.structure_type24753 = &t16283; /* x208190 */ t16281.s0.tag = STRUCTURE_TYPE24753; t16281.s0.value.structure_type24753 = &t16282; /* x208191 */ t16295.s0.tag = EXTERNAL_SYMBOL_TYPE; t16295.s0.value.external_symbol_type = q599; /* x208192 */ t16296.s0.tag = EXTERNAL_SYMBOL_TYPE; t16296.s0.value.external_symbol_type = q540; /* x208193 */ t16297.s0.tag = EXTERNAL_SYMBOL_TYPE; t16297.s0.value.external_symbol_type = q604; /* x208194 */ t16299.s0.tag = EXTERNAL_SYMBOL_TYPE; t16299.s0.value.external_symbol_type = q43; /* x208195 */ t16300.s0.tag = EXTERNAL_SYMBOL_TYPE; t16300.s0.value.external_symbol_type = q528; /* x208196 */ t16301.s0.tag = EXTERNAL_SYMBOL_TYPE; t16301.s0.value.external_symbol_type = q551; /* x208197 */ t16303.s0.tag = EXTERNAL_SYMBOL_TYPE; t16303.s0.value.external_symbol_type = q582; /* x208198 */ t16305.s0.tag = EXTERNAL_SYMBOL_TYPE; t16305.s0.value.external_symbol_type = q583; /* x208199 */ t16306.s0.tag = EXTERNAL_SYMBOL_TYPE; t16306.s0.value.external_symbol_type = q555; /* x208200 */ t16306.s1.tag = NULL_TYPE; /* x208201 */ t16305.s1.tag = STRUCTURE_TYPE24753; t16305.s1.value.structure_type24753 = &t16306; /* x208202 */ t16304.s0.tag = STRUCTURE_TYPE24753; t16304.s0.value.structure_type24753 = &t16305; /* x208203 */ t16304.s1.tag = NULL_TYPE; /* x208204 */ t16303.s1.tag = STRUCTURE_TYPE24753; t16303.s1.value.structure_type24753 = &t16304; /* x208205 */ t16302.s0.tag = STRUCTURE_TYPE24753; t16302.s0.value.structure_type24753 = &t16303; /* x208206 */ t16302.s1.tag = NULL_TYPE; /* x208207 */ t16301.s1.tag = STRUCTURE_TYPE24753; t16301.s1.value.structure_type24753 = &t16302; /* x208208 */ t16300.s1.tag = STRUCTURE_TYPE24753; t16300.s1.value.structure_type24753 = &t16301; /* x208209 */ t16299.s1.tag = STRUCTURE_TYPE24753; t16299.s1.value.structure_type24753 = &t16300; /* x208210 */ t16298.s0.tag = STRUCTURE_TYPE24753; t16298.s0.value.structure_type24753 = &t16299; /* x208211 */ t16298.s1.tag = NULL_TYPE; /* x208212 */ t16297.s1.tag = STRUCTURE_TYPE24753; t16297.s1.value.structure_type24753 = &t16298; /* x208213 */ t16296.s1.tag = STRUCTURE_TYPE24753; t16296.s1.value.structure_type24753 = &t16297; /* x208214 */ t16295.s1.tag = STRUCTURE_TYPE24753; t16295.s1.value.structure_type24753 = &t16296; /* x208215 */ t16294.s0.tag = STRUCTURE_TYPE24753; t16294.s0.value.structure_type24753 = &t16295; /* x208216 */ t16308.s0.tag = EXTERNAL_SYMBOL_TYPE; t16308.s0.value.external_symbol_type = q600; /* x208217 */ t16309.s0.tag = EXTERNAL_SYMBOL_TYPE; t16309.s0.value.external_symbol_type = q540; /* x208218 */ t16310.s0.tag = EXTERNAL_SYMBOL_TYPE; t16310.s0.value.external_symbol_type = q604; /* x208219 */ t16311.s0.tag = FIXNUM_TYPE; t16311.s0.value.fixnum_type = 0; /* x208220 */ t16312.s0.tag = EXTERNAL_SYMBOL_TYPE; t16312.s0.value.external_symbol_type = q601; /* x208221 */ t16313.s0.tag = EXTERNAL_SYMBOL_TYPE; t16313.s0.value.external_symbol_type = q602; /* x208222 */ t16314.s0.tag = EXTERNAL_SYMBOL_TYPE; t16314.s0.value.external_symbol_type = q603; /* x208223 */ t16314.s1.tag = NULL_TYPE; /* x208224 */ t16313.s1.tag = STRUCTURE_TYPE24753; t16313.s1.value.structure_type24753 = &t16314; /* x208225 */ t16312.s1.tag = STRUCTURE_TYPE24753; t16312.s1.value.structure_type24753 = &t16313; /* x208226 */ t16311.s1.tag = STRUCTURE_TYPE24753; t16311.s1.value.structure_type24753 = &t16312; /* x208227 */ t16310.s1.tag = STRUCTURE_TYPE24753; t16310.s1.value.structure_type24753 = &t16311; /* x208228 */ t16309.s1.tag = STRUCTURE_TYPE24753; t16309.s1.value.structure_type24753 = &t16310; /* x208229 */ t16308.s1.tag = STRUCTURE_TYPE24753; t16308.s1.value.structure_type24753 = &t16309; /* x208230 */ t16307.s0.tag = STRUCTURE_TYPE24753; t16307.s0.value.structure_type24753 = &t16308; /* x208231 */ t16316.s0.tag = EXTERNAL_SYMBOL_TYPE; t16316.s0.value.external_symbol_type = q605; /* x208232 */ t16317.s0.tag = EXTERNAL_SYMBOL_TYPE; t16317.s0.value.external_symbol_type = q540; /* x208233 */ t16318.s0.tag = EXTERNAL_SYMBOL_TYPE; t16318.s0.value.external_symbol_type = q604; /* x208234 */ t16319.s0.tag = EXTERNAL_SYMBOL_TYPE; t16319.s0.value.external_symbol_type = q606; /* x208235 */ t16319.s1.tag = NULL_TYPE; /* x208236 */ t16318.s1.tag = STRUCTURE_TYPE24753; t16318.s1.value.structure_type24753 = &t16319; /* x208237 */ t16317.s1.tag = STRUCTURE_TYPE24753; t16317.s1.value.structure_type24753 = &t16318; /* x208238 */ t16316.s1.tag = STRUCTURE_TYPE24753; t16316.s1.value.structure_type24753 = &t16317; /* x208239 */ t16315.s0.tag = STRUCTURE_TYPE24753; t16315.s0.value.structure_type24753 = &t16316; /* x208240 */ t16321.s0.tag = EXTERNAL_SYMBOL_TYPE; t16321.s0.value.external_symbol_type = q42; /* x208241 */ t16322.s0.tag = EXTERNAL_SYMBOL_TYPE; t16322.s0.value.external_symbol_type = q607; /* x208242 */ t16324.s0.tag = EXTERNAL_SYMBOL_TYPE; t16324.s0.value.external_symbol_type = q596; /* x208243 */ t16325.s0.tag = EXTERNAL_SYMBOL_TYPE; t16325.s0.value.external_symbol_type = q540; /* x208244 */ t16326.s0.tag = EXTERNAL_SYMBOL_TYPE; t16326.s0.value.external_symbol_type = q578; /* x208245 */ t16327.s0.tag = FIXNUM_TYPE; t16327.s0.value.fixnum_type = 0; /* x208246 */ t16329.s0.tag = EXTERNAL_SYMBOL_TYPE; t16329.s0.value.external_symbol_type = q597; /* x208247 */ t16329.s1.tag = NULL_TYPE; /* x208248 */ t16328.s0.tag = STRUCTURE_TYPE24753; t16328.s0.value.structure_type24753 = &t16329; /* x208249 */ t16328.s1.tag = NULL_TYPE; /* x208250 */ t16327.s1.tag = STRUCTURE_TYPE24753; t16327.s1.value.structure_type24753 = &t16328; /* x208251 */ t16326.s1.tag = STRUCTURE_TYPE24753; t16326.s1.value.structure_type24753 = &t16327; /* x208252 */ t16325.s1.tag = STRUCTURE_TYPE24753; t16325.s1.value.structure_type24753 = &t16326; /* x208253 */ t16324.s1.tag = STRUCTURE_TYPE24753; t16324.s1.value.structure_type24753 = &t16325; /* x208254 */ t16323.s0.tag = STRUCTURE_TYPE24753; t16323.s0.value.structure_type24753 = &t16324; /* x208255 */ t16323.s1.tag = NULL_TYPE; /* x208256 */ t16322.s1.tag = STRUCTURE_TYPE24753; t16322.s1.value.structure_type24753 = &t16323; /* x208257 */ t16321.s1.tag = STRUCTURE_TYPE24753; t16321.s1.value.structure_type24753 = &t16322; /* x208258 */ t16320.s0.tag = STRUCTURE_TYPE24753; t16320.s0.value.structure_type24753 = &t16321; /* x208259 */ t16331.s0.tag = EXTERNAL_SYMBOL_TYPE; t16331.s0.value.external_symbol_type = q598; /* x208260 */ t16332.s0.tag = EXTERNAL_SYMBOL_TYPE; t16332.s0.value.external_symbol_type = q540; /* x208261 */ t16333.s0.tag = EXTERNAL_SYMBOL_TYPE; t16333.s0.value.external_symbol_type = q607; /* x208262 */ t16335.s0.tag = EXTERNAL_SYMBOL_TYPE; t16335.s0.value.external_symbol_type = q43; /* x208263 */ t16336.s0.tag = EXTERNAL_SYMBOL_TYPE; t16336.s0.value.external_symbol_type = q528; /* x208264 */ t16337.s0.tag = EXTERNAL_SYMBOL_TYPE; t16337.s0.value.external_symbol_type = q551; /* x208265 */ t16339.s0.tag = EXTERNAL_SYMBOL_TYPE; t16339.s0.value.external_symbol_type = q582; /* x208266 */ t16341.s0.tag = EXTERNAL_SYMBOL_TYPE; t16341.s0.value.external_symbol_type = q583; /* x208267 */ t16342.s0.tag = EXTERNAL_SYMBOL_TYPE; t16342.s0.value.external_symbol_type = q555; /* x208268 */ t16342.s1.tag = NULL_TYPE; /* x208269 */ t16341.s1.tag = STRUCTURE_TYPE24753; t16341.s1.value.structure_type24753 = &t16342; /* x208270 */ t16340.s0.tag = STRUCTURE_TYPE24753; t16340.s0.value.structure_type24753 = &t16341; /* x208271 */ t16340.s1.tag = NULL_TYPE; /* x208272 */ t16339.s1.tag = STRUCTURE_TYPE24753; t16339.s1.value.structure_type24753 = &t16340; /* x208273 */ t16338.s0.tag = STRUCTURE_TYPE24753; t16338.s0.value.structure_type24753 = &t16339; /* x208274 */ t16338.s1.tag = NULL_TYPE; /* x208275 */ t16337.s1.tag = STRUCTURE_TYPE24753; t16337.s1.value.structure_type24753 = &t16338; /* x208276 */ t16336.s1.tag = STRUCTURE_TYPE24753; t16336.s1.value.structure_type24753 = &t16337; /* x208277 */ t16335.s1.tag = STRUCTURE_TYPE24753; t16335.s1.value.structure_type24753 = &t16336; /* x208278 */ t16334.s0.tag = STRUCTURE_TYPE24753; t16334.s0.value.structure_type24753 = &t16335; /* x208279 */ t16334.s1.tag = NULL_TYPE; /* x208280 */ t16333.s1.tag = STRUCTURE_TYPE24753; t16333.s1.value.structure_type24753 = &t16334; /* x208281 */ t16332.s1.tag = STRUCTURE_TYPE24753; t16332.s1.value.structure_type24753 = &t16333; /* x208282 */ t16331.s1.tag = STRUCTURE_TYPE24753; t16331.s1.value.structure_type24753 = &t16332; /* x208283 */ t16330.s0.tag = STRUCTURE_TYPE24753; t16330.s0.value.structure_type24753 = &t16331; /* x208284 */ t16344.s0.tag = EXTERNAL_SYMBOL_TYPE; t16344.s0.value.external_symbol_type = q599; /* x208285 */ t16345.s0.tag = EXTERNAL_SYMBOL_TYPE; t16345.s0.value.external_symbol_type = q540; /* x208286 */ t16346.s0.tag = EXTERNAL_SYMBOL_TYPE; t16346.s0.value.external_symbol_type = q607; /* x208287 */ t16348.s0.tag = EXTERNAL_SYMBOL_TYPE; t16348.s0.value.external_symbol_type = q43; /* x208288 */ t16349.s0.tag = EXTERNAL_SYMBOL_TYPE; t16349.s0.value.external_symbol_type = q528; /* x208289 */ t16350.s0.tag = EXTERNAL_SYMBOL_TYPE; t16350.s0.value.external_symbol_type = q553; /* x208290 */ t16352.s0.tag = EXTERNAL_SYMBOL_TYPE; t16352.s0.value.external_symbol_type = q582; /* x208291 */ t16354.s0.tag = EXTERNAL_SYMBOL_TYPE; t16354.s0.value.external_symbol_type = q583; /* x208292 */ t16355.s0.tag = EXTERNAL_SYMBOL_TYPE; t16355.s0.value.external_symbol_type = q560; /* x208293 */ t16355.s1.tag = NULL_TYPE; /* x208294 */ t16354.s1.tag = STRUCTURE_TYPE24753; t16354.s1.value.structure_type24753 = &t16355; /* x208295 */ t16353.s0.tag = STRUCTURE_TYPE24753; t16353.s0.value.structure_type24753 = &t16354; /* x208296 */ t16353.s1.tag = NULL_TYPE; /* x208297 */ t16352.s1.tag = STRUCTURE_TYPE24753; t16352.s1.value.structure_type24753 = &t16353; /* x208298 */ t16351.s0.tag = STRUCTURE_TYPE24753; t16351.s0.value.structure_type24753 = &t16352; /* x208299 */ t16351.s1.tag = NULL_TYPE; /* x208300 */ t16350.s1.tag = STRUCTURE_TYPE24753; t16350.s1.value.structure_type24753 = &t16351; /* x208301 */ t16349.s1.tag = STRUCTURE_TYPE24753; t16349.s1.value.structure_type24753 = &t16350; /* x208302 */ t16348.s1.tag = STRUCTURE_TYPE24753; t16348.s1.value.structure_type24753 = &t16349; /* x208303 */ t16347.s0.tag = STRUCTURE_TYPE24753; t16347.s0.value.structure_type24753 = &t16348; /* x208304 */ t16347.s1.tag = NULL_TYPE; /* x208305 */ t16346.s1.tag = STRUCTURE_TYPE24753; t16346.s1.value.structure_type24753 = &t16347; /* x208306 */ t16345.s1.tag = STRUCTURE_TYPE24753; t16345.s1.value.structure_type24753 = &t16346; /* x208307 */ t16344.s1.tag = STRUCTURE_TYPE24753; t16344.s1.value.structure_type24753 = &t16345; /* x208308 */ t16343.s0.tag = STRUCTURE_TYPE24753; t16343.s0.value.structure_type24753 = &t16344; /* x208309 */ t16357.s0.tag = EXTERNAL_SYMBOL_TYPE; t16357.s0.value.external_symbol_type = q600; /* x208310 */ t16358.s0.tag = EXTERNAL_SYMBOL_TYPE; t16358.s0.value.external_symbol_type = q540; /* x208311 */ t16359.s0.tag = EXTERNAL_SYMBOL_TYPE; t16359.s0.value.external_symbol_type = q607; /* x208312 */ t16360.s0.tag = FIXNUM_TYPE; t16360.s0.value.fixnum_type = 2; /* x208313 */ t16361.s0.tag = EXTERNAL_SYMBOL_TYPE; t16361.s0.value.external_symbol_type = q601; /* x208314 */ t16362.s0.tag = EXTERNAL_SYMBOL_TYPE; t16362.s0.value.external_symbol_type = q602; /* x208315 */ t16363.s0.tag = EXTERNAL_SYMBOL_TYPE; t16363.s0.value.external_symbol_type = q603; /* x208316 */ t16363.s1.tag = NULL_TYPE; /* x208317 */ t16362.s1.tag = STRUCTURE_TYPE24753; t16362.s1.value.structure_type24753 = &t16363; /* x208318 */ t16361.s1.tag = STRUCTURE_TYPE24753; t16361.s1.value.structure_type24753 = &t16362; /* x208319 */ t16360.s1.tag = STRUCTURE_TYPE24753; t16360.s1.value.structure_type24753 = &t16361; /* x208320 */ t16359.s1.tag = STRUCTURE_TYPE24753; t16359.s1.value.structure_type24753 = &t16360; /* x208321 */ t16358.s1.tag = STRUCTURE_TYPE24753; t16358.s1.value.structure_type24753 = &t16359; /* x208322 */ t16357.s1.tag = STRUCTURE_TYPE24753; t16357.s1.value.structure_type24753 = &t16358; /* x208323 */ t16356.s0.tag = STRUCTURE_TYPE24753; t16356.s0.value.structure_type24753 = &t16357; /* x208324 */ t16365.s0.tag = EXTERNAL_SYMBOL_TYPE; t16365.s0.value.external_symbol_type = q42; /* x208325 */ t16366.s0.tag = EXTERNAL_SYMBOL_TYPE; t16366.s0.value.external_symbol_type = q608; /* x208326 */ t16368.s0.tag = EXTERNAL_SYMBOL_TYPE; t16368.s0.value.external_symbol_type = q596; /* x208327 */ t16369.s0.tag = EXTERNAL_SYMBOL_TYPE; t16369.s0.value.external_symbol_type = q540; /* x208328 */ t16370.s0.tag = EXTERNAL_SYMBOL_TYPE; t16370.s0.value.external_symbol_type = q578; /* x208329 */ t16371.s0.tag = FIXNUM_TYPE; t16371.s0.value.fixnum_type = 0; /* x208330 */ t16373.s0.tag = EXTERNAL_SYMBOL_TYPE; t16373.s0.value.external_symbol_type = q597; /* x208331 */ t16373.s1.tag = NULL_TYPE; /* x208332 */ t16372.s0.tag = STRUCTURE_TYPE24753; t16372.s0.value.structure_type24753 = &t16373; /* x208333 */ t16372.s1.tag = NULL_TYPE; /* x208334 */ t16371.s1.tag = STRUCTURE_TYPE24753; t16371.s1.value.structure_type24753 = &t16372; /* x208335 */ t16370.s1.tag = STRUCTURE_TYPE24753; t16370.s1.value.structure_type24753 = &t16371; /* x208336 */ t16369.s1.tag = STRUCTURE_TYPE24753; t16369.s1.value.structure_type24753 = &t16370; /* x208337 */ t16368.s1.tag = STRUCTURE_TYPE24753; t16368.s1.value.structure_type24753 = &t16369; /* x208338 */ t16367.s0.tag = STRUCTURE_TYPE24753; t16367.s0.value.structure_type24753 = &t16368; /* x208339 */ t16367.s1.tag = NULL_TYPE; /* x208340 */ t16366.s1.tag = STRUCTURE_TYPE24753; t16366.s1.value.structure_type24753 = &t16367; /* x208341 */ t16365.s1.tag = STRUCTURE_TYPE24753; t16365.s1.value.structure_type24753 = &t16366; /* x208342 */ t16364.s0.tag = STRUCTURE_TYPE24753; t16364.s0.value.structure_type24753 = &t16365; /* x208343 */ t16375.s0.tag = EXTERNAL_SYMBOL_TYPE; t16375.s0.value.external_symbol_type = q598; /* x208344 */ t16376.s0.tag = EXTERNAL_SYMBOL_TYPE; t16376.s0.value.external_symbol_type = q540; /* x208345 */ t16377.s0.tag = EXTERNAL_SYMBOL_TYPE; t16377.s0.value.external_symbol_type = q608; /* x208346 */ t16379.s0.tag = EXTERNAL_SYMBOL_TYPE; t16379.s0.value.external_symbol_type = q43; /* x208347 */ t16380.s0.tag = EXTERNAL_SYMBOL_TYPE; t16380.s0.value.external_symbol_type = q528; /* x208348 */ t16381.s0.tag = EXTERNAL_SYMBOL_TYPE; t16381.s0.value.external_symbol_type = q553; /* x208349 */ t16383.s0.tag = EXTERNAL_SYMBOL_TYPE; t16383.s0.value.external_symbol_type = q582; /* x208350 */ t16385.s0.tag = EXTERNAL_SYMBOL_TYPE; t16385.s0.value.external_symbol_type = q583; /* x208351 */ t16386.s0.tag = EXTERNAL_SYMBOL_TYPE; t16386.s0.value.external_symbol_type = q560; /* x208352 */ t16386.s1.tag = NULL_TYPE; /* x208353 */ t16385.s1.tag = STRUCTURE_TYPE24753; t16385.s1.value.structure_type24753 = &t16386; /* x208354 */ t16384.s0.tag = STRUCTURE_TYPE24753; t16384.s0.value.structure_type24753 = &t16385; /* x208355 */ t16384.s1.tag = NULL_TYPE; /* x208356 */ t16383.s1.tag = STRUCTURE_TYPE24753; t16383.s1.value.structure_type24753 = &t16384; /* x208357 */ t16382.s0.tag = STRUCTURE_TYPE24753; t16382.s0.value.structure_type24753 = &t16383; /* x208358 */ t16382.s1.tag = NULL_TYPE; /* x208359 */ t16381.s1.tag = STRUCTURE_TYPE24753; t16381.s1.value.structure_type24753 = &t16382; /* x208360 */ t16380.s1.tag = STRUCTURE_TYPE24753; t16380.s1.value.structure_type24753 = &t16381; /* x208361 */ t16379.s1.tag = STRUCTURE_TYPE24753; t16379.s1.value.structure_type24753 = &t16380; /* x208362 */ t16378.s0.tag = STRUCTURE_TYPE24753; t16378.s0.value.structure_type24753 = &t16379; /* x208363 */ t16378.s1.tag = NULL_TYPE; /* x208364 */ t16377.s1.tag = STRUCTURE_TYPE24753; t16377.s1.value.structure_type24753 = &t16378; /* x208365 */ t16376.s1.tag = STRUCTURE_TYPE24753; t16376.s1.value.structure_type24753 = &t16377; /* x208366 */ t16375.s1.tag = STRUCTURE_TYPE24753; t16375.s1.value.structure_type24753 = &t16376; /* x208367 */ t16374.s0.tag = STRUCTURE_TYPE24753; t16374.s0.value.structure_type24753 = &t16375; /* x208368 */ t16388.s0.tag = EXTERNAL_SYMBOL_TYPE; t16388.s0.value.external_symbol_type = q599; /* x208369 */ t16389.s0.tag = EXTERNAL_SYMBOL_TYPE; t16389.s0.value.external_symbol_type = q540; /* x208370 */ t16390.s0.tag = EXTERNAL_SYMBOL_TYPE; t16390.s0.value.external_symbol_type = q608; /* x208371 */ t16392.s0.tag = EXTERNAL_SYMBOL_TYPE; t16392.s0.value.external_symbol_type = q43; /* x208372 */ t16393.s0.tag = EXTERNAL_SYMBOL_TYPE; t16393.s0.value.external_symbol_type = q528; /* x208373 */ t16394.s0.tag = EXTERNAL_SYMBOL_TYPE; t16394.s0.value.external_symbol_type = q551; /* x208374 */ t16396.s0.tag = EXTERNAL_SYMBOL_TYPE; t16396.s0.value.external_symbol_type = q582; /* x208375 */ t16398.s0.tag = EXTERNAL_SYMBOL_TYPE; t16398.s0.value.external_symbol_type = q583; /* x208376 */ t16399.s0.tag = EXTERNAL_SYMBOL_TYPE; t16399.s0.value.external_symbol_type = q555; /* x208377 */ t16399.s1.tag = NULL_TYPE; /* x208378 */ t16398.s1.tag = STRUCTURE_TYPE24753; t16398.s1.value.structure_type24753 = &t16399; /* x208379 */ t16397.s0.tag = STRUCTURE_TYPE24753; t16397.s0.value.structure_type24753 = &t16398; /* x208380 */ t16397.s1.tag = NULL_TYPE; /* x208381 */ t16396.s1.tag = STRUCTURE_TYPE24753; t16396.s1.value.structure_type24753 = &t16397; /* x208382 */ t16395.s0.tag = STRUCTURE_TYPE24753; t16395.s0.value.structure_type24753 = &t16396; /* x208383 */ t16395.s1.tag = NULL_TYPE; /* x208384 */ t16394.s1.tag = STRUCTURE_TYPE24753; t16394.s1.value.structure_type24753 = &t16395; /* x208385 */ t16393.s1.tag = STRUCTURE_TYPE24753; t16393.s1.value.structure_type24753 = &t16394; /* x208386 */ t16392.s1.tag = STRUCTURE_TYPE24753; t16392.s1.value.structure_type24753 = &t16393; /* x208387 */ t16391.s0.tag = STRUCTURE_TYPE24753; t16391.s0.value.structure_type24753 = &t16392; /* x208388 */ t16391.s1.tag = NULL_TYPE; /* x208389 */ t16390.s1.tag = STRUCTURE_TYPE24753; t16390.s1.value.structure_type24753 = &t16391; /* x208390 */ t16389.s1.tag = STRUCTURE_TYPE24753; t16389.s1.value.structure_type24753 = &t16390; /* x208391 */ t16388.s1.tag = STRUCTURE_TYPE24753; t16388.s1.value.structure_type24753 = &t16389; /* x208392 */ t16387.s0.tag = STRUCTURE_TYPE24753; t16387.s0.value.structure_type24753 = &t16388; /* x208393 */ t16401.s0.tag = EXTERNAL_SYMBOL_TYPE; t16401.s0.value.external_symbol_type = q600; /* x208394 */ t16402.s0.tag = EXTERNAL_SYMBOL_TYPE; t16402.s0.value.external_symbol_type = q540; /* x208395 */ t16403.s0.tag = EXTERNAL_SYMBOL_TYPE; t16403.s0.value.external_symbol_type = q608; /* x208396 */ t16404.s0.tag = FIXNUM_TYPE; t16404.s0.value.fixnum_type = 2; /* x208397 */ t16405.s0.tag = EXTERNAL_SYMBOL_TYPE; t16405.s0.value.external_symbol_type = q601; /* x208398 */ t16406.s0.tag = EXTERNAL_SYMBOL_TYPE; t16406.s0.value.external_symbol_type = q602; /* x208399 */ t16407.s0.tag = EXTERNAL_SYMBOL_TYPE; t16407.s0.value.external_symbol_type = q603; /* x208400 */ t16407.s1.tag = NULL_TYPE; /* x208401 */ t16406.s1.tag = STRUCTURE_TYPE24753; t16406.s1.value.structure_type24753 = &t16407; /* x208402 */ t16405.s1.tag = STRUCTURE_TYPE24753; t16405.s1.value.structure_type24753 = &t16406; /* x208403 */ t16404.s1.tag = STRUCTURE_TYPE24753; t16404.s1.value.structure_type24753 = &t16405; /* x208404 */ t16403.s1.tag = STRUCTURE_TYPE24753; t16403.s1.value.structure_type24753 = &t16404; /* x208405 */ t16402.s1.tag = STRUCTURE_TYPE24753; t16402.s1.value.structure_type24753 = &t16403; /* x208406 */ t16401.s1.tag = STRUCTURE_TYPE24753; t16401.s1.value.structure_type24753 = &t16402; /* x208407 */ t16400.s0.tag = STRUCTURE_TYPE24753; t16400.s0.value.structure_type24753 = &t16401; /* x208408 */ t16409.s0.tag = EXTERNAL_SYMBOL_TYPE; t16409.s0.value.external_symbol_type = q605; /* x208409 */ t16410.s0.tag = EXTERNAL_SYMBOL_TYPE; t16410.s0.value.external_symbol_type = q540; /* x208410 */ t16411.s0.tag = EXTERNAL_SYMBOL_TYPE; t16411.s0.value.external_symbol_type = q608; /* x208411 */ t16412.s0.tag = EXTERNAL_SYMBOL_TYPE; t16412.s0.value.external_symbol_type = q606; /* x208412 */ t16412.s1.tag = NULL_TYPE; /* x208413 */ t16411.s1.tag = STRUCTURE_TYPE24753; t16411.s1.value.structure_type24753 = &t16412; /* x208414 */ t16410.s1.tag = STRUCTURE_TYPE24753; t16410.s1.value.structure_type24753 = &t16411; /* x208415 */ t16409.s1.tag = STRUCTURE_TYPE24753; t16409.s1.value.structure_type24753 = &t16410; /* x208416 */ t16408.s0.tag = STRUCTURE_TYPE24753; t16408.s0.value.structure_type24753 = &t16409; /* x208417 */ t16414.s0.tag = EXTERNAL_SYMBOL_TYPE; t16414.s0.value.external_symbol_type = q42; /* x208418 */ t16415.s0.tag = EXTERNAL_SYMBOL_TYPE; t16415.s0.value.external_symbol_type = q609; /* x208419 */ t16417.s0.tag = EXTERNAL_SYMBOL_TYPE; t16417.s0.value.external_symbol_type = q596; /* x208420 */ t16418.s0.tag = EXTERNAL_SYMBOL_TYPE; t16418.s0.value.external_symbol_type = q540; /* x208421 */ t16419.s0.tag = EXTERNAL_SYMBOL_TYPE; t16419.s0.value.external_symbol_type = q578; /* x208422 */ t16420.s0.tag = FIXNUM_TYPE; t16420.s0.value.fixnum_type = 0; /* x208423 */ t16422.s0.tag = EXTERNAL_SYMBOL_TYPE; t16422.s0.value.external_symbol_type = q597; /* x208424 */ t16422.s1.tag = NULL_TYPE; /* x208425 */ t16421.s0.tag = STRUCTURE_TYPE24753; t16421.s0.value.structure_type24753 = &t16422; /* x208426 */ t16421.s1.tag = NULL_TYPE; /* x208427 */ t16420.s1.tag = STRUCTURE_TYPE24753; t16420.s1.value.structure_type24753 = &t16421; /* x208428 */ t16419.s1.tag = STRUCTURE_TYPE24753; t16419.s1.value.structure_type24753 = &t16420; /* x208429 */ t16418.s1.tag = STRUCTURE_TYPE24753; t16418.s1.value.structure_type24753 = &t16419; /* x208430 */ t16417.s1.tag = STRUCTURE_TYPE24753; t16417.s1.value.structure_type24753 = &t16418; /* x208431 */ t16416.s0.tag = STRUCTURE_TYPE24753; t16416.s0.value.structure_type24753 = &t16417; /* x208432 */ t16416.s1.tag = NULL_TYPE; /* x208433 */ t16415.s1.tag = STRUCTURE_TYPE24753; t16415.s1.value.structure_type24753 = &t16416; /* x208434 */ t16414.s1.tag = STRUCTURE_TYPE24753; t16414.s1.value.structure_type24753 = &t16415; /* x208435 */ t16413.s0.tag = STRUCTURE_TYPE24753; t16413.s0.value.structure_type24753 = &t16414; /* x208436 */ t16424.s0.tag = EXTERNAL_SYMBOL_TYPE; t16424.s0.value.external_symbol_type = q598; /* x208437 */ t16425.s0.tag = EXTERNAL_SYMBOL_TYPE; t16425.s0.value.external_symbol_type = q540; /* x208438 */ t16426.s0.tag = EXTERNAL_SYMBOL_TYPE; t16426.s0.value.external_symbol_type = q609; /* x208439 */ t16428.s0.tag = EXTERNAL_SYMBOL_TYPE; t16428.s0.value.external_symbol_type = q43; /* x208440 */ t16429.s0.tag = EXTERNAL_SYMBOL_TYPE; t16429.s0.value.external_symbol_type = q528; /* x208441 */ t16430.s0.tag = EXTERNAL_SYMBOL_TYPE; t16430.s0.value.external_symbol_type = q551; /* x208442 */ t16432.s0.tag = EXTERNAL_SYMBOL_TYPE; t16432.s0.value.external_symbol_type = q582; /* x208443 */ t16434.s0.tag = EXTERNAL_SYMBOL_TYPE; t16434.s0.value.external_symbol_type = q583; /* x208444 */ t16435.s0.tag = EXTERNAL_SYMBOL_TYPE; t16435.s0.value.external_symbol_type = q555; /* x208445 */ t16435.s1.tag = NULL_TYPE; /* x208446 */ t16434.s1.tag = STRUCTURE_TYPE24753; t16434.s1.value.structure_type24753 = &t16435; /* x208447 */ t16433.s0.tag = STRUCTURE_TYPE24753; t16433.s0.value.structure_type24753 = &t16434; /* x208448 */ t16433.s1.tag = NULL_TYPE; /* x208449 */ t16432.s1.tag = STRUCTURE_TYPE24753; t16432.s1.value.structure_type24753 = &t16433; /* x208450 */ t16431.s0.tag = STRUCTURE_TYPE24753; t16431.s0.value.structure_type24753 = &t16432; /* x208451 */ t16431.s1.tag = NULL_TYPE; /* x208452 */ t16430.s1.tag = STRUCTURE_TYPE24753; t16430.s1.value.structure_type24753 = &t16431; /* x208453 */ t16429.s1.tag = STRUCTURE_TYPE24753; t16429.s1.value.structure_type24753 = &t16430; /* x208454 */ t16428.s1.tag = STRUCTURE_TYPE24753; t16428.s1.value.structure_type24753 = &t16429; /* x208455 */ t16427.s0.tag = STRUCTURE_TYPE24753; t16427.s0.value.structure_type24753 = &t16428; /* x208456 */ t16427.s1.tag = NULL_TYPE; /* x208457 */ t16426.s1.tag = STRUCTURE_TYPE24753; t16426.s1.value.structure_type24753 = &t16427; /* x208458 */ t16425.s1.tag = STRUCTURE_TYPE24753; t16425.s1.value.structure_type24753 = &t16426; /* x208459 */ t16424.s1.tag = STRUCTURE_TYPE24753; t16424.s1.value.structure_type24753 = &t16425; /* x208460 */ t16423.s0.tag = STRUCTURE_TYPE24753; t16423.s0.value.structure_type24753 = &t16424; /* x208461 */ t16437.s0.tag = EXTERNAL_SYMBOL_TYPE; t16437.s0.value.external_symbol_type = q599; /* x208462 */ t16438.s0.tag = EXTERNAL_SYMBOL_TYPE; t16438.s0.value.external_symbol_type = q540; /* x208463 */ t16439.s0.tag = EXTERNAL_SYMBOL_TYPE; t16439.s0.value.external_symbol_type = q609; /* x208464 */ t16441.s0.tag = EXTERNAL_SYMBOL_TYPE; t16441.s0.value.external_symbol_type = q43; /* x208465 */ t16442.s0.tag = EXTERNAL_SYMBOL_TYPE; t16442.s0.value.external_symbol_type = q528; /* x208466 */ t16443.s0.tag = EXTERNAL_SYMBOL_TYPE; t16443.s0.value.external_symbol_type = q553; /* x208467 */ t16445.s0.tag = EXTERNAL_SYMBOL_TYPE; t16445.s0.value.external_symbol_type = q582; /* x208468 */ t16447.s0.tag = EXTERNAL_SYMBOL_TYPE; t16447.s0.value.external_symbol_type = q583; /* x208469 */ t16448.s0.tag = EXTERNAL_SYMBOL_TYPE; t16448.s0.value.external_symbol_type = q560; /* x208470 */ t16448.s1.tag = NULL_TYPE; /* x208471 */ t16447.s1.tag = STRUCTURE_TYPE24753; t16447.s1.value.structure_type24753 = &t16448; /* x208472 */ t16446.s0.tag = STRUCTURE_TYPE24753; t16446.s0.value.structure_type24753 = &t16447; /* x208473 */ t16446.s1.tag = NULL_TYPE; /* x208474 */ t16445.s1.tag = STRUCTURE_TYPE24753; t16445.s1.value.structure_type24753 = &t16446; /* x208475 */ t16444.s0.tag = STRUCTURE_TYPE24753; t16444.s0.value.structure_type24753 = &t16445; /* x208476 */ t16444.s1.tag = NULL_TYPE; /* x208477 */ t16443.s1.tag = STRUCTURE_TYPE24753; t16443.s1.value.structure_type24753 = &t16444; /* x208478 */ t16442.s1.tag = STRUCTURE_TYPE24753; t16442.s1.value.structure_type24753 = &t16443; /* x208479 */ t16441.s1.tag = STRUCTURE_TYPE24753; t16441.s1.value.structure_type24753 = &t16442; /* x208480 */ t16440.s0.tag = STRUCTURE_TYPE24753; t16440.s0.value.structure_type24753 = &t16441; /* x208481 */ t16440.s1.tag = NULL_TYPE; /* x208482 */ t16439.s1.tag = STRUCTURE_TYPE24753; t16439.s1.value.structure_type24753 = &t16440; /* x208483 */ t16438.s1.tag = STRUCTURE_TYPE24753; t16438.s1.value.structure_type24753 = &t16439; /* x208484 */ t16437.s1.tag = STRUCTURE_TYPE24753; t16437.s1.value.structure_type24753 = &t16438; /* x208485 */ t16436.s0.tag = STRUCTURE_TYPE24753; t16436.s0.value.structure_type24753 = &t16437; /* x208486 */ t16450.s0.tag = EXTERNAL_SYMBOL_TYPE; t16450.s0.value.external_symbol_type = q600; /* x208487 */ t16451.s0.tag = EXTERNAL_SYMBOL_TYPE; t16451.s0.value.external_symbol_type = q540; /* x208488 */ t16452.s0.tag = EXTERNAL_SYMBOL_TYPE; t16452.s0.value.external_symbol_type = q609; /* x208489 */ t16453.s0.tag = FIXNUM_TYPE; t16453.s0.value.fixnum_type = 5; /* x208490 */ t16454.s0.tag = EXTERNAL_SYMBOL_TYPE; t16454.s0.value.external_symbol_type = q601; /* x208491 */ t16455.s0.tag = EXTERNAL_SYMBOL_TYPE; t16455.s0.value.external_symbol_type = q602; /* x208492 */ t16456.s0.tag = EXTERNAL_SYMBOL_TYPE; t16456.s0.value.external_symbol_type = q603; /* x208493 */ t16456.s1.tag = NULL_TYPE; /* x208494 */ t16455.s1.tag = STRUCTURE_TYPE24753; t16455.s1.value.structure_type24753 = &t16456; /* x208495 */ t16454.s1.tag = STRUCTURE_TYPE24753; t16454.s1.value.structure_type24753 = &t16455; /* x208496 */ t16453.s1.tag = STRUCTURE_TYPE24753; t16453.s1.value.structure_type24753 = &t16454; /* x208497 */ t16452.s1.tag = STRUCTURE_TYPE24753; t16452.s1.value.structure_type24753 = &t16453; /* x208498 */ t16451.s1.tag = STRUCTURE_TYPE24753; t16451.s1.value.structure_type24753 = &t16452; /* x208499 */ t16450.s1.tag = STRUCTURE_TYPE24753; t16450.s1.value.structure_type24753 = &t16451; /* x208500 */ t16449.s0.tag = STRUCTURE_TYPE24753; t16449.s0.value.structure_type24753 = &t16450; /* x208501 */ t16458.s0.tag = EXTERNAL_SYMBOL_TYPE; t16458.s0.value.external_symbol_type = q42; /* x208502 */ t16459.s0.tag = EXTERNAL_SYMBOL_TYPE; t16459.s0.value.external_symbol_type = q610; /* x208503 */ t16461.s0.tag = EXTERNAL_SYMBOL_TYPE; t16461.s0.value.external_symbol_type = q596; /* x208504 */ t16462.s0.tag = EXTERNAL_SYMBOL_TYPE; t16462.s0.value.external_symbol_type = q540; /* x208505 */ t16463.s0.tag = EXTERNAL_SYMBOL_TYPE; t16463.s0.value.external_symbol_type = q578; /* x208506 */ t16464.s0.tag = FIXNUM_TYPE; t16464.s0.value.fixnum_type = 0; /* x208507 */ t16466.s0.tag = EXTERNAL_SYMBOL_TYPE; t16466.s0.value.external_symbol_type = q597; /* x208508 */ t16466.s1.tag = NULL_TYPE; /* x208509 */ t16465.s0.tag = STRUCTURE_TYPE24753; t16465.s0.value.structure_type24753 = &t16466; /* x208510 */ t16465.s1.tag = NULL_TYPE; /* x208511 */ t16464.s1.tag = STRUCTURE_TYPE24753; t16464.s1.value.structure_type24753 = &t16465; /* x208512 */ t16463.s1.tag = STRUCTURE_TYPE24753; t16463.s1.value.structure_type24753 = &t16464; /* x208513 */ t16462.s1.tag = STRUCTURE_TYPE24753; t16462.s1.value.structure_type24753 = &t16463; /* x208514 */ t16461.s1.tag = STRUCTURE_TYPE24753; t16461.s1.value.structure_type24753 = &t16462; /* x208515 */ t16460.s0.tag = STRUCTURE_TYPE24753; t16460.s0.value.structure_type24753 = &t16461; /* x208516 */ t16460.s1.tag = NULL_TYPE; /* x208517 */ t16459.s1.tag = STRUCTURE_TYPE24753; t16459.s1.value.structure_type24753 = &t16460; /* x208518 */ t16458.s1.tag = STRUCTURE_TYPE24753; t16458.s1.value.structure_type24753 = &t16459; /* x208519 */ t16457.s0.tag = STRUCTURE_TYPE24753; t16457.s0.value.structure_type24753 = &t16458; /* x208520 */ t16468.s0.tag = EXTERNAL_SYMBOL_TYPE; t16468.s0.value.external_symbol_type = q598; /* x208521 */ t16469.s0.tag = EXTERNAL_SYMBOL_TYPE; t16469.s0.value.external_symbol_type = q540; /* x208522 */ t16470.s0.tag = EXTERNAL_SYMBOL_TYPE; t16470.s0.value.external_symbol_type = q610; /* x208523 */ t16472.s0.tag = EXTERNAL_SYMBOL_TYPE; t16472.s0.value.external_symbol_type = q43; /* x208524 */ t16473.s0.tag = EXTERNAL_SYMBOL_TYPE; t16473.s0.value.external_symbol_type = q528; /* x208525 */ t16474.s0.tag = EXTERNAL_SYMBOL_TYPE; t16474.s0.value.external_symbol_type = q553; /* x208526 */ t16476.s0.tag = EXTERNAL_SYMBOL_TYPE; t16476.s0.value.external_symbol_type = q582; /* x208527 */ t16478.s0.tag = EXTERNAL_SYMBOL_TYPE; t16478.s0.value.external_symbol_type = q583; /* x208528 */ t16479.s0.tag = EXTERNAL_SYMBOL_TYPE; t16479.s0.value.external_symbol_type = q560; /* x208529 */ t16479.s1.tag = NULL_TYPE; /* x208530 */ t16478.s1.tag = STRUCTURE_TYPE24753; t16478.s1.value.structure_type24753 = &t16479; /* x208531 */ t16477.s0.tag = STRUCTURE_TYPE24753; t16477.s0.value.structure_type24753 = &t16478; /* x208532 */ t16477.s1.tag = NULL_TYPE; /* x208533 */ t16476.s1.tag = STRUCTURE_TYPE24753; t16476.s1.value.structure_type24753 = &t16477; /* x208534 */ t16475.s0.tag = STRUCTURE_TYPE24753; t16475.s0.value.structure_type24753 = &t16476; /* x208535 */ t16475.s1.tag = NULL_TYPE; /* x208536 */ t16474.s1.tag = STRUCTURE_TYPE24753; t16474.s1.value.structure_type24753 = &t16475; /* x208537 */ t16473.s1.tag = STRUCTURE_TYPE24753; t16473.s1.value.structure_type24753 = &t16474; /* x208538 */ t16472.s1.tag = STRUCTURE_TYPE24753; t16472.s1.value.structure_type24753 = &t16473; /* x208539 */ t16471.s0.tag = STRUCTURE_TYPE24753; t16471.s0.value.structure_type24753 = &t16472; /* x208540 */ t16471.s1.tag = NULL_TYPE; /* x208541 */ t16470.s1.tag = STRUCTURE_TYPE24753; t16470.s1.value.structure_type24753 = &t16471; /* x208542 */ t16469.s1.tag = STRUCTURE_TYPE24753; t16469.s1.value.structure_type24753 = &t16470; /* x208543 */ t16468.s1.tag = STRUCTURE_TYPE24753; t16468.s1.value.structure_type24753 = &t16469; /* x208544 */ t16467.s0.tag = STRUCTURE_TYPE24753; t16467.s0.value.structure_type24753 = &t16468; /* x208545 */ t16481.s0.tag = EXTERNAL_SYMBOL_TYPE; t16481.s0.value.external_symbol_type = q599; /* x208546 */ t16482.s0.tag = EXTERNAL_SYMBOL_TYPE; t16482.s0.value.external_symbol_type = q540; /* x208547 */ t16483.s0.tag = EXTERNAL_SYMBOL_TYPE; t16483.s0.value.external_symbol_type = q610; /* x208548 */ t16485.s0.tag = EXTERNAL_SYMBOL_TYPE; t16485.s0.value.external_symbol_type = q43; /* x208549 */ t16486.s0.tag = EXTERNAL_SYMBOL_TYPE; t16486.s0.value.external_symbol_type = q528; /* x208550 */ t16487.s0.tag = EXTERNAL_SYMBOL_TYPE; t16487.s0.value.external_symbol_type = q551; /* x208551 */ t16489.s0.tag = EXTERNAL_SYMBOL_TYPE; t16489.s0.value.external_symbol_type = q582; /* x208552 */ t16491.s0.tag = EXTERNAL_SYMBOL_TYPE; t16491.s0.value.external_symbol_type = q583; /* x208553 */ t16492.s0.tag = EXTERNAL_SYMBOL_TYPE; t16492.s0.value.external_symbol_type = q555; /* x208554 */ t16492.s1.tag = NULL_TYPE; /* x208555 */ t16491.s1.tag = STRUCTURE_TYPE24753; t16491.s1.value.structure_type24753 = &t16492; /* x208556 */ t16490.s0.tag = STRUCTURE_TYPE24753; t16490.s0.value.structure_type24753 = &t16491; /* x208557 */ t16490.s1.tag = NULL_TYPE; /* x208558 */ t16489.s1.tag = STRUCTURE_TYPE24753; t16489.s1.value.structure_type24753 = &t16490; /* x208559 */ t16488.s0.tag = STRUCTURE_TYPE24753; t16488.s0.value.structure_type24753 = &t16489; /* x208560 */ t16488.s1.tag = NULL_TYPE; /* x208561 */ t16487.s1.tag = STRUCTURE_TYPE24753; t16487.s1.value.structure_type24753 = &t16488; /* x208562 */ t16486.s1.tag = STRUCTURE_TYPE24753; t16486.s1.value.structure_type24753 = &t16487; /* x208563 */ t16485.s1.tag = STRUCTURE_TYPE24753; t16485.s1.value.structure_type24753 = &t16486; /* x208564 */ t16484.s0.tag = STRUCTURE_TYPE24753; t16484.s0.value.structure_type24753 = &t16485; /* x208565 */ t16484.s1.tag = NULL_TYPE; /* x208566 */ t16483.s1.tag = STRUCTURE_TYPE24753; t16483.s1.value.structure_type24753 = &t16484; /* x208567 */ t16482.s1.tag = STRUCTURE_TYPE24753; t16482.s1.value.structure_type24753 = &t16483; /* x208568 */ t16481.s1.tag = STRUCTURE_TYPE24753; t16481.s1.value.structure_type24753 = &t16482; /* x208569 */ t16480.s0.tag = STRUCTURE_TYPE24753; t16480.s0.value.structure_type24753 = &t16481; /* x208570 */ t16494.s0.tag = EXTERNAL_SYMBOL_TYPE; t16494.s0.value.external_symbol_type = q600; /* x208571 */ t16495.s0.tag = EXTERNAL_SYMBOL_TYPE; t16495.s0.value.external_symbol_type = q540; /* x208572 */ t16496.s0.tag = EXTERNAL_SYMBOL_TYPE; t16496.s0.value.external_symbol_type = q610; /* x208573 */ t16497.s0.tag = FIXNUM_TYPE; t16497.s0.value.fixnum_type = 5; /* x208574 */ t16498.s0.tag = EXTERNAL_SYMBOL_TYPE; t16498.s0.value.external_symbol_type = q601; /* x208575 */ t16499.s0.tag = EXTERNAL_SYMBOL_TYPE; t16499.s0.value.external_symbol_type = q602; /* x208576 */ t16500.s0.tag = EXTERNAL_SYMBOL_TYPE; t16500.s0.value.external_symbol_type = q603; /* x208577 */ t16500.s1.tag = NULL_TYPE; /* x208578 */ t16499.s1.tag = STRUCTURE_TYPE24753; t16499.s1.value.structure_type24753 = &t16500; /* x208579 */ t16498.s1.tag = STRUCTURE_TYPE24753; t16498.s1.value.structure_type24753 = &t16499; /* x208580 */ t16497.s1.tag = STRUCTURE_TYPE24753; t16497.s1.value.structure_type24753 = &t16498; /* x208581 */ t16496.s1.tag = STRUCTURE_TYPE24753; t16496.s1.value.structure_type24753 = &t16497; /* x208582 */ t16495.s1.tag = STRUCTURE_TYPE24753; t16495.s1.value.structure_type24753 = &t16496; /* x208583 */ t16494.s1.tag = STRUCTURE_TYPE24753; t16494.s1.value.structure_type24753 = &t16495; /* x208584 */ t16493.s0.tag = STRUCTURE_TYPE24753; t16493.s0.value.structure_type24753 = &t16494; /* x208585 */ t16502.s0.tag = EXTERNAL_SYMBOL_TYPE; t16502.s0.value.external_symbol_type = q605; /* x208586 */ t16503.s0.tag = EXTERNAL_SYMBOL_TYPE; t16503.s0.value.external_symbol_type = q540; /* x208587 */ t16504.s0.tag = EXTERNAL_SYMBOL_TYPE; t16504.s0.value.external_symbol_type = q610; /* x208588 */ t16505.s0.tag = EXTERNAL_SYMBOL_TYPE; t16505.s0.value.external_symbol_type = q606; /* x208589 */ t16505.s1.tag = NULL_TYPE; /* x208590 */ t16504.s1.tag = STRUCTURE_TYPE24753; t16504.s1.value.structure_type24753 = &t16505; /* x208591 */ t16503.s1.tag = STRUCTURE_TYPE24753; t16503.s1.value.structure_type24753 = &t16504; /* x208592 */ t16502.s1.tag = STRUCTURE_TYPE24753; t16502.s1.value.structure_type24753 = &t16503; /* x208593 */ t16501.s0.tag = STRUCTURE_TYPE24753; t16501.s0.value.structure_type24753 = &t16502; /* x208594 */ t16507.s0.tag = EXTERNAL_SYMBOL_TYPE; t16507.s0.value.external_symbol_type = q42; /* x208595 */ t16508.s0.tag = EXTERNAL_SYMBOL_TYPE; t16508.s0.value.external_symbol_type = q611; /* x208596 */ t16510.s0.tag = EXTERNAL_SYMBOL_TYPE; t16510.s0.value.external_symbol_type = q596; /* x208597 */ t16511.s0.tag = EXTERNAL_SYMBOL_TYPE; t16511.s0.value.external_symbol_type = q540; /* x208598 */ t16512.s0.tag = EXTERNAL_SYMBOL_TYPE; t16512.s0.value.external_symbol_type = q578; /* x208599 */ t16513.s0.tag = FIXNUM_TYPE; t16513.s0.value.fixnum_type = 0; /* x208600 */ t16515.s0.tag = EXTERNAL_SYMBOL_TYPE; t16515.s0.value.external_symbol_type = q597; /* x208601 */ t16515.s1.tag = NULL_TYPE; /* x208602 */ t16514.s0.tag = STRUCTURE_TYPE24753; t16514.s0.value.structure_type24753 = &t16515; /* x208603 */ t16514.s1.tag = NULL_TYPE; /* x208604 */ t16513.s1.tag = STRUCTURE_TYPE24753; t16513.s1.value.structure_type24753 = &t16514; /* x208605 */ t16512.s1.tag = STRUCTURE_TYPE24753; t16512.s1.value.structure_type24753 = &t16513; /* x208606 */ t16511.s1.tag = STRUCTURE_TYPE24753; t16511.s1.value.structure_type24753 = &t16512; /* x208607 */ t16510.s1.tag = STRUCTURE_TYPE24753; t16510.s1.value.structure_type24753 = &t16511; /* x208608 */ t16509.s0.tag = STRUCTURE_TYPE24753; t16509.s0.value.structure_type24753 = &t16510; /* x208609 */ t16509.s1.tag = NULL_TYPE; /* x208610 */ t16508.s1.tag = STRUCTURE_TYPE24753; t16508.s1.value.structure_type24753 = &t16509; /* x208611 */ t16507.s1.tag = STRUCTURE_TYPE24753; t16507.s1.value.structure_type24753 = &t16508; /* x208612 */ t16506.s0.tag = STRUCTURE_TYPE24753; t16506.s0.value.structure_type24753 = &t16507; /* x208613 */ t16517.s0.tag = EXTERNAL_SYMBOL_TYPE; t16517.s0.value.external_symbol_type = q598; /* x208614 */ t16518.s0.tag = EXTERNAL_SYMBOL_TYPE; t16518.s0.value.external_symbol_type = q540; /* x208615 */ t16519.s0.tag = EXTERNAL_SYMBOL_TYPE; t16519.s0.value.external_symbol_type = q611; /* x208616 */ t16521.s0.tag = EXTERNAL_SYMBOL_TYPE; t16521.s0.value.external_symbol_type = q43; /* x208617 */ t16522.s0.tag = EXTERNAL_SYMBOL_TYPE; t16522.s0.value.external_symbol_type = q528; /* x208618 */ t16523.s0.tag = EXTERNAL_SYMBOL_TYPE; t16523.s0.value.external_symbol_type = q551; /* x208619 */ t16525.s0.tag = EXTERNAL_SYMBOL_TYPE; t16525.s0.value.external_symbol_type = q582; /* x208620 */ t16527.s0.tag = EXTERNAL_SYMBOL_TYPE; t16527.s0.value.external_symbol_type = q583; /* x208621 */ t16528.s0.tag = EXTERNAL_SYMBOL_TYPE; t16528.s0.value.external_symbol_type = q555; /* x208622 */ t16528.s1.tag = NULL_TYPE; /* x208623 */ t16527.s1.tag = STRUCTURE_TYPE24753; t16527.s1.value.structure_type24753 = &t16528; /* x208624 */ t16526.s0.tag = STRUCTURE_TYPE24753; t16526.s0.value.structure_type24753 = &t16527; /* x208625 */ t16526.s1.tag = NULL_TYPE; /* x208626 */ t16525.s1.tag = STRUCTURE_TYPE24753; t16525.s1.value.structure_type24753 = &t16526; /* x208627 */ t16524.s0.tag = STRUCTURE_TYPE24753; t16524.s0.value.structure_type24753 = &t16525; /* x208628 */ t16524.s1.tag = NULL_TYPE; /* x208629 */ t16523.s1.tag = STRUCTURE_TYPE24753; t16523.s1.value.structure_type24753 = &t16524; /* x208630 */ t16522.s1.tag = STRUCTURE_TYPE24753; t16522.s1.value.structure_type24753 = &t16523; /* x208631 */ t16521.s1.tag = STRUCTURE_TYPE24753; t16521.s1.value.structure_type24753 = &t16522; /* x208632 */ t16520.s0.tag = STRUCTURE_TYPE24753; t16520.s0.value.structure_type24753 = &t16521; /* x208633 */ t16520.s1.tag = NULL_TYPE; /* x208634 */ t16519.s1.tag = STRUCTURE_TYPE24753; t16519.s1.value.structure_type24753 = &t16520; /* x208635 */ t16518.s1.tag = STRUCTURE_TYPE24753; t16518.s1.value.structure_type24753 = &t16519; /* x208636 */ t16517.s1.tag = STRUCTURE_TYPE24753; t16517.s1.value.structure_type24753 = &t16518; /* x208637 */ t16516.s0.tag = STRUCTURE_TYPE24753; t16516.s0.value.structure_type24753 = &t16517; /* x208638 */ t16530.s0.tag = EXTERNAL_SYMBOL_TYPE; t16530.s0.value.external_symbol_type = q599; /* x208639 */ t16531.s0.tag = EXTERNAL_SYMBOL_TYPE; t16531.s0.value.external_symbol_type = q540; /* x208640 */ t16532.s0.tag = EXTERNAL_SYMBOL_TYPE; t16532.s0.value.external_symbol_type = q611; /* x208641 */ t16534.s0.tag = EXTERNAL_SYMBOL_TYPE; t16534.s0.value.external_symbol_type = q43; /* x208642 */ t16535.s0.tag = EXTERNAL_SYMBOL_TYPE; t16535.s0.value.external_symbol_type = q528; /* x208643 */ t16536.s0.tag = EXTERNAL_SYMBOL_TYPE; t16536.s0.value.external_symbol_type = q553; /* x208644 */ t16538.s0.tag = EXTERNAL_SYMBOL_TYPE; t16538.s0.value.external_symbol_type = q582; /* x208645 */ t16540.s0.tag = EXTERNAL_SYMBOL_TYPE; t16540.s0.value.external_symbol_type = q583; /* x208646 */ t16541.s0.tag = EXTERNAL_SYMBOL_TYPE; t16541.s0.value.external_symbol_type = q560; /* x208647 */ t16541.s1.tag = NULL_TYPE; /* x208648 */ t16540.s1.tag = STRUCTURE_TYPE24753; t16540.s1.value.structure_type24753 = &t16541; /* x208649 */ t16539.s0.tag = STRUCTURE_TYPE24753; t16539.s0.value.structure_type24753 = &t16540; /* x208650 */ t16539.s1.tag = NULL_TYPE; /* x208651 */ t16538.s1.tag = STRUCTURE_TYPE24753; t16538.s1.value.structure_type24753 = &t16539; /* x208652 */ t16537.s0.tag = STRUCTURE_TYPE24753; t16537.s0.value.structure_type24753 = &t16538; /* x208653 */ t16537.s1.tag = NULL_TYPE; /* x208654 */ t16536.s1.tag = STRUCTURE_TYPE24753; t16536.s1.value.structure_type24753 = &t16537; /* x208655 */ t16535.s1.tag = STRUCTURE_TYPE24753; t16535.s1.value.structure_type24753 = &t16536; /* x208656 */ t16534.s1.tag = STRUCTURE_TYPE24753; t16534.s1.value.structure_type24753 = &t16535; /* x208657 */ t16533.s0.tag = STRUCTURE_TYPE24753; t16533.s0.value.structure_type24753 = &t16534; /* x208658 */ t16533.s1.tag = NULL_TYPE; /* x208659 */ t16532.s1.tag = STRUCTURE_TYPE24753; t16532.s1.value.structure_type24753 = &t16533; /* x208660 */ t16531.s1.tag = STRUCTURE_TYPE24753; t16531.s1.value.structure_type24753 = &t16532; /* x208661 */ t16530.s1.tag = STRUCTURE_TYPE24753; t16530.s1.value.structure_type24753 = &t16531; /* x208662 */ t16529.s0.tag = STRUCTURE_TYPE24753; t16529.s0.value.structure_type24753 = &t16530; /* x208663 */ t16543.s0.tag = EXTERNAL_SYMBOL_TYPE; t16543.s0.value.external_symbol_type = q600; /* x208664 */ t16544.s0.tag = EXTERNAL_SYMBOL_TYPE; t16544.s0.value.external_symbol_type = q540; /* x208665 */ t16545.s0.tag = EXTERNAL_SYMBOL_TYPE; t16545.s0.value.external_symbol_type = q611; /* x208666 */ t16546.s0.tag = FIXNUM_TYPE; t16546.s0.value.fixnum_type = 0; /* x208667 */ t16547.s0.tag = EXTERNAL_SYMBOL_TYPE; t16547.s0.value.external_symbol_type = q612; /* x208668 */ t16548.s0.tag = EXTERNAL_SYMBOL_TYPE; t16548.s0.value.external_symbol_type = q602; /* x208669 */ t16549.s0.tag = EXTERNAL_SYMBOL_TYPE; t16549.s0.value.external_symbol_type = q603; /* x208670 */ t16549.s1.tag = NULL_TYPE; /* x208671 */ t16548.s1.tag = STRUCTURE_TYPE24753; t16548.s1.value.structure_type24753 = &t16549; /* x208672 */ t16547.s1.tag = STRUCTURE_TYPE24753; t16547.s1.value.structure_type24753 = &t16548; /* x208673 */ t16546.s1.tag = STRUCTURE_TYPE24753; t16546.s1.value.structure_type24753 = &t16547; /* x208674 */ t16545.s1.tag = STRUCTURE_TYPE24753; t16545.s1.value.structure_type24753 = &t16546; /* x208675 */ t16544.s1.tag = STRUCTURE_TYPE24753; t16544.s1.value.structure_type24753 = &t16545; /* x208676 */ t16543.s1.tag = STRUCTURE_TYPE24753; t16543.s1.value.structure_type24753 = &t16544; /* x208677 */ t16542.s0.tag = STRUCTURE_TYPE24753; t16542.s0.value.structure_type24753 = &t16543; /* x208678 */ t16551.s0.tag = EXTERNAL_SYMBOL_TYPE; t16551.s0.value.external_symbol_type = q42; /* x208679 */ t16552.s0.tag = EXTERNAL_SYMBOL_TYPE; t16552.s0.value.external_symbol_type = q613; /* x208680 */ t16554.s0.tag = EXTERNAL_SYMBOL_TYPE; t16554.s0.value.external_symbol_type = q596; /* x208681 */ t16555.s0.tag = EXTERNAL_SYMBOL_TYPE; t16555.s0.value.external_symbol_type = q540; /* x208682 */ t16556.s0.tag = EXTERNAL_SYMBOL_TYPE; t16556.s0.value.external_symbol_type = q578; /* x208683 */ t16557.s0.tag = FIXNUM_TYPE; t16557.s0.value.fixnum_type = 0; /* x208684 */ t16559.s0.tag = EXTERNAL_SYMBOL_TYPE; t16559.s0.value.external_symbol_type = q597; /* x208685 */ t16559.s1.tag = NULL_TYPE; /* x208686 */ t16558.s0.tag = STRUCTURE_TYPE24753; t16558.s0.value.structure_type24753 = &t16559; /* x208687 */ t16558.s1.tag = NULL_TYPE; /* x208688 */ t16557.s1.tag = STRUCTURE_TYPE24753; t16557.s1.value.structure_type24753 = &t16558; /* x208689 */ t16556.s1.tag = STRUCTURE_TYPE24753; t16556.s1.value.structure_type24753 = &t16557; /* x208690 */ t16555.s1.tag = STRUCTURE_TYPE24753; t16555.s1.value.structure_type24753 = &t16556; /* x208691 */ t16554.s1.tag = STRUCTURE_TYPE24753; t16554.s1.value.structure_type24753 = &t16555; /* x208692 */ t16553.s0.tag = STRUCTURE_TYPE24753; t16553.s0.value.structure_type24753 = &t16554; /* x208693 */ t16553.s1.tag = NULL_TYPE; /* x208694 */ t16552.s1.tag = STRUCTURE_TYPE24753; t16552.s1.value.structure_type24753 = &t16553; /* x208695 */ t16551.s1.tag = STRUCTURE_TYPE24753; t16551.s1.value.structure_type24753 = &t16552; /* x208696 */ t16550.s0.tag = STRUCTURE_TYPE24753; t16550.s0.value.structure_type24753 = &t16551; /* x208697 */ t16561.s0.tag = EXTERNAL_SYMBOL_TYPE; t16561.s0.value.external_symbol_type = q598; /* x208698 */ t16562.s0.tag = EXTERNAL_SYMBOL_TYPE; t16562.s0.value.external_symbol_type = q540; /* x208699 */ t16563.s0.tag = EXTERNAL_SYMBOL_TYPE; t16563.s0.value.external_symbol_type = q613; /* x208700 */ t16565.s0.tag = EXTERNAL_SYMBOL_TYPE; t16565.s0.value.external_symbol_type = q43; /* x208701 */ t16566.s0.tag = EXTERNAL_SYMBOL_TYPE; t16566.s0.value.external_symbol_type = q528; /* x208702 */ t16567.s0.tag = EXTERNAL_SYMBOL_TYPE; t16567.s0.value.external_symbol_type = q553; /* x208703 */ t16569.s0.tag = EXTERNAL_SYMBOL_TYPE; t16569.s0.value.external_symbol_type = q582; /* x208704 */ t16571.s0.tag = EXTERNAL_SYMBOL_TYPE; t16571.s0.value.external_symbol_type = q583; /* x208705 */ t16572.s0.tag = EXTERNAL_SYMBOL_TYPE; t16572.s0.value.external_symbol_type = q560; /* x208706 */ t16572.s1.tag = NULL_TYPE; /* x208707 */ t16571.s1.tag = STRUCTURE_TYPE24753; t16571.s1.value.structure_type24753 = &t16572; /* x208708 */ t16570.s0.tag = STRUCTURE_TYPE24753; t16570.s0.value.structure_type24753 = &t16571; /* x208709 */ t16570.s1.tag = NULL_TYPE; /* x208710 */ t16569.s1.tag = STRUCTURE_TYPE24753; t16569.s1.value.structure_type24753 = &t16570; /* x208711 */ t16568.s0.tag = STRUCTURE_TYPE24753; t16568.s0.value.structure_type24753 = &t16569; /* x208712 */ t16568.s1.tag = NULL_TYPE; /* x208713 */ t16567.s1.tag = STRUCTURE_TYPE24753; t16567.s1.value.structure_type24753 = &t16568; /* x208714 */ t16566.s1.tag = STRUCTURE_TYPE24753; t16566.s1.value.structure_type24753 = &t16567; /* x208715 */ t16565.s1.tag = STRUCTURE_TYPE24753; t16565.s1.value.structure_type24753 = &t16566; /* x208716 */ t16564.s0.tag = STRUCTURE_TYPE24753; t16564.s0.value.structure_type24753 = &t16565; /* x208717 */ t16564.s1.tag = NULL_TYPE; /* x208718 */ t16563.s1.tag = STRUCTURE_TYPE24753; t16563.s1.value.structure_type24753 = &t16564; /* x208719 */ t16562.s1.tag = STRUCTURE_TYPE24753; t16562.s1.value.structure_type24753 = &t16563; /* x208720 */ t16561.s1.tag = STRUCTURE_TYPE24753; t16561.s1.value.structure_type24753 = &t16562; /* x208721 */ t16560.s0.tag = STRUCTURE_TYPE24753; t16560.s0.value.structure_type24753 = &t16561; /* x208722 */ t16574.s0.tag = EXTERNAL_SYMBOL_TYPE; t16574.s0.value.external_symbol_type = q599; /* x208723 */ t16575.s0.tag = EXTERNAL_SYMBOL_TYPE; t16575.s0.value.external_symbol_type = q540; /* x208724 */ t16576.s0.tag = EXTERNAL_SYMBOL_TYPE; t16576.s0.value.external_symbol_type = q613; /* x208725 */ t16578.s0.tag = EXTERNAL_SYMBOL_TYPE; t16578.s0.value.external_symbol_type = q43; /* x208726 */ t16579.s0.tag = EXTERNAL_SYMBOL_TYPE; t16579.s0.value.external_symbol_type = q528; /* x208727 */ t16580.s0.tag = EXTERNAL_SYMBOL_TYPE; t16580.s0.value.external_symbol_type = q551; /* x208728 */ t16582.s0.tag = EXTERNAL_SYMBOL_TYPE; t16582.s0.value.external_symbol_type = q582; /* x208729 */ t16584.s0.tag = EXTERNAL_SYMBOL_TYPE; t16584.s0.value.external_symbol_type = q583; /* x208730 */ t16585.s0.tag = EXTERNAL_SYMBOL_TYPE; t16585.s0.value.external_symbol_type = q555; /* x208731 */ t16585.s1.tag = NULL_TYPE; /* x208732 */ t16584.s1.tag = STRUCTURE_TYPE24753; t16584.s1.value.structure_type24753 = &t16585; /* x208733 */ t16583.s0.tag = STRUCTURE_TYPE24753; t16583.s0.value.structure_type24753 = &t16584; /* x208734 */ t16583.s1.tag = NULL_TYPE; /* x208735 */ t16582.s1.tag = STRUCTURE_TYPE24753; t16582.s1.value.structure_type24753 = &t16583; /* x208736 */ t16581.s0.tag = STRUCTURE_TYPE24753; t16581.s0.value.structure_type24753 = &t16582; /* x208737 */ t16581.s1.tag = NULL_TYPE; /* x208738 */ t16580.s1.tag = STRUCTURE_TYPE24753; t16580.s1.value.structure_type24753 = &t16581; /* x208739 */ t16579.s1.tag = STRUCTURE_TYPE24753; t16579.s1.value.structure_type24753 = &t16580; /* x208740 */ t16578.s1.tag = STRUCTURE_TYPE24753; t16578.s1.value.structure_type24753 = &t16579; /* x208741 */ t16577.s0.tag = STRUCTURE_TYPE24753; t16577.s0.value.structure_type24753 = &t16578; /* x208742 */ t16577.s1.tag = NULL_TYPE; /* x208743 */ t16576.s1.tag = STRUCTURE_TYPE24753; t16576.s1.value.structure_type24753 = &t16577; /* x208744 */ t16575.s1.tag = STRUCTURE_TYPE24753; t16575.s1.value.structure_type24753 = &t16576; /* x208745 */ t16574.s1.tag = STRUCTURE_TYPE24753; t16574.s1.value.structure_type24753 = &t16575; /* x208746 */ t16573.s0.tag = STRUCTURE_TYPE24753; t16573.s0.value.structure_type24753 = &t16574; /* x208747 */ t16587.s0.tag = EXTERNAL_SYMBOL_TYPE; t16587.s0.value.external_symbol_type = q600; /* x208748 */ t16588.s0.tag = EXTERNAL_SYMBOL_TYPE; t16588.s0.value.external_symbol_type = q540; /* x208749 */ t16589.s0.tag = EXTERNAL_SYMBOL_TYPE; t16589.s0.value.external_symbol_type = q613; /* x208750 */ t16590.s0.tag = FIXNUM_TYPE; t16590.s0.value.fixnum_type = 0; /* x208751 */} void initialize_constants7(void) {t16591.s0.tag = EXTERNAL_SYMBOL_TYPE; t16591.s0.value.external_symbol_type = q612; /* x208752 */ t16592.s0.tag = EXTERNAL_SYMBOL_TYPE; t16592.s0.value.external_symbol_type = q602; /* x208753 */ t16593.s0.tag = EXTERNAL_SYMBOL_TYPE; t16593.s0.value.external_symbol_type = q603; /* x208754 */ t16593.s1.tag = NULL_TYPE; /* x208755 */ t16592.s1.tag = STRUCTURE_TYPE24753; t16592.s1.value.structure_type24753 = &t16593; /* x208756 */ t16591.s1.tag = STRUCTURE_TYPE24753; t16591.s1.value.structure_type24753 = &t16592; /* x208757 */ t16590.s1.tag = STRUCTURE_TYPE24753; t16590.s1.value.structure_type24753 = &t16591; /* x208758 */ t16589.s1.tag = STRUCTURE_TYPE24753; t16589.s1.value.structure_type24753 = &t16590; /* x208759 */ t16588.s1.tag = STRUCTURE_TYPE24753; t16588.s1.value.structure_type24753 = &t16589; /* x208760 */ t16587.s1.tag = STRUCTURE_TYPE24753; t16587.s1.value.structure_type24753 = &t16588; /* x208761 */ t16586.s0.tag = STRUCTURE_TYPE24753; t16586.s0.value.structure_type24753 = &t16587; /* x208762 */ t16595.s0.tag = EXTERNAL_SYMBOL_TYPE; t16595.s0.value.external_symbol_type = q605; /* x208763 */ t16596.s0.tag = EXTERNAL_SYMBOL_TYPE; t16596.s0.value.external_symbol_type = q540; /* x208764 */ t16597.s0.tag = EXTERNAL_SYMBOL_TYPE; t16597.s0.value.external_symbol_type = q613; /* x208765 */ t16598.s0.tag = EXTERNAL_SYMBOL_TYPE; t16598.s0.value.external_symbol_type = q606; /* x208766 */ t16598.s1.tag = NULL_TYPE; /* x208767 */ t16597.s1.tag = STRUCTURE_TYPE24753; t16597.s1.value.structure_type24753 = &t16598; /* x208768 */ t16596.s1.tag = STRUCTURE_TYPE24753; t16596.s1.value.structure_type24753 = &t16597; /* x208769 */ t16595.s1.tag = STRUCTURE_TYPE24753; t16595.s1.value.structure_type24753 = &t16596; /* x208770 */ t16594.s0.tag = STRUCTURE_TYPE24753; t16594.s0.value.structure_type24753 = &t16595; /* x208771 */ t16600.s0.tag = EXTERNAL_SYMBOL_TYPE; t16600.s0.value.external_symbol_type = q42; /* x208772 */ t16601.s0.tag = EXTERNAL_SYMBOL_TYPE; t16601.s0.value.external_symbol_type = q614; /* x208773 */ t16603.s0.tag = EXTERNAL_SYMBOL_TYPE; t16603.s0.value.external_symbol_type = q596; /* x208774 */ t16604.s0.tag = EXTERNAL_SYMBOL_TYPE; t16604.s0.value.external_symbol_type = q540; /* x208775 */ t16605.s0.tag = EXTERNAL_SYMBOL_TYPE; t16605.s0.value.external_symbol_type = q578; /* x208776 */ t16606.s0.tag = FIXNUM_TYPE; t16606.s0.value.fixnum_type = 0; /* x208777 */ t16608.s0.tag = EXTERNAL_SYMBOL_TYPE; t16608.s0.value.external_symbol_type = q597; /* x208778 */ t16608.s1.tag = NULL_TYPE; /* x208779 */ t16607.s0.tag = STRUCTURE_TYPE24753; t16607.s0.value.structure_type24753 = &t16608; /* x208780 */ t16607.s1.tag = NULL_TYPE; /* x208781 */ t16606.s1.tag = STRUCTURE_TYPE24753; t16606.s1.value.structure_type24753 = &t16607; /* x208782 */ t16605.s1.tag = STRUCTURE_TYPE24753; t16605.s1.value.structure_type24753 = &t16606; /* x208783 */ t16604.s1.tag = STRUCTURE_TYPE24753; t16604.s1.value.structure_type24753 = &t16605; /* x208784 */ t16603.s1.tag = STRUCTURE_TYPE24753; t16603.s1.value.structure_type24753 = &t16604; /* x208785 */ t16602.s0.tag = STRUCTURE_TYPE24753; t16602.s0.value.structure_type24753 = &t16603; /* x208786 */ t16602.s1.tag = NULL_TYPE; /* x208787 */ t16601.s1.tag = STRUCTURE_TYPE24753; t16601.s1.value.structure_type24753 = &t16602; /* x208788 */ t16600.s1.tag = STRUCTURE_TYPE24753; t16600.s1.value.structure_type24753 = &t16601; /* x208789 */ t16599.s0.tag = STRUCTURE_TYPE24753; t16599.s0.value.structure_type24753 = &t16600; /* x208790 */ t16610.s0.tag = EXTERNAL_SYMBOL_TYPE; t16610.s0.value.external_symbol_type = q598; /* x208791 */ t16611.s0.tag = EXTERNAL_SYMBOL_TYPE; t16611.s0.value.external_symbol_type = q540; /* x208792 */ t16612.s0.tag = EXTERNAL_SYMBOL_TYPE; t16612.s0.value.external_symbol_type = q614; /* x208793 */ t16614.s0.tag = EXTERNAL_SYMBOL_TYPE; t16614.s0.value.external_symbol_type = q43; /* x208794 */ t16615.s0.tag = EXTERNAL_SYMBOL_TYPE; t16615.s0.value.external_symbol_type = q528; /* x208795 */ t16616.s0.tag = EXTERNAL_SYMBOL_TYPE; t16616.s0.value.external_symbol_type = q551; /* x208796 */ t16618.s0.tag = EXTERNAL_SYMBOL_TYPE; t16618.s0.value.external_symbol_type = q582; /* x208797 */ t16620.s0.tag = EXTERNAL_SYMBOL_TYPE; t16620.s0.value.external_symbol_type = q583; /* x208798 */ t16621.s0.tag = EXTERNAL_SYMBOL_TYPE; t16621.s0.value.external_symbol_type = q555; /* x208799 */ t16621.s1.tag = NULL_TYPE; /* x208800 */ t16620.s1.tag = STRUCTURE_TYPE24753; t16620.s1.value.structure_type24753 = &t16621; /* x208801 */ t16619.s0.tag = STRUCTURE_TYPE24753; t16619.s0.value.structure_type24753 = &t16620; /* x208802 */ t16619.s1.tag = NULL_TYPE; /* x208803 */ t16618.s1.tag = STRUCTURE_TYPE24753; t16618.s1.value.structure_type24753 = &t16619; /* x208804 */ t16617.s0.tag = STRUCTURE_TYPE24753; t16617.s0.value.structure_type24753 = &t16618; /* x208805 */ t16617.s1.tag = NULL_TYPE; /* x208806 */ t16616.s1.tag = STRUCTURE_TYPE24753; t16616.s1.value.structure_type24753 = &t16617; /* x208807 */ t16615.s1.tag = STRUCTURE_TYPE24753; t16615.s1.value.structure_type24753 = &t16616; /* x208808 */ t16614.s1.tag = STRUCTURE_TYPE24753; t16614.s1.value.structure_type24753 = &t16615; /* x208809 */ t16613.s0.tag = STRUCTURE_TYPE24753; t16613.s0.value.structure_type24753 = &t16614; /* x208810 */ t16613.s1.tag = NULL_TYPE; /* x208811 */ t16612.s1.tag = STRUCTURE_TYPE24753; t16612.s1.value.structure_type24753 = &t16613; /* x208812 */ t16611.s1.tag = STRUCTURE_TYPE24753; t16611.s1.value.structure_type24753 = &t16612; /* x208813 */ t16610.s1.tag = STRUCTURE_TYPE24753; t16610.s1.value.structure_type24753 = &t16611; /* x208814 */ t16609.s0.tag = STRUCTURE_TYPE24753; t16609.s0.value.structure_type24753 = &t16610; /* x208815 */ t16623.s0.tag = EXTERNAL_SYMBOL_TYPE; t16623.s0.value.external_symbol_type = q599; /* x208816 */ t16624.s0.tag = EXTERNAL_SYMBOL_TYPE; t16624.s0.value.external_symbol_type = q540; /* x208817 */ t16625.s0.tag = EXTERNAL_SYMBOL_TYPE; t16625.s0.value.external_symbol_type = q614; /* x208818 */ t16627.s0.tag = EXTERNAL_SYMBOL_TYPE; t16627.s0.value.external_symbol_type = q43; /* x208819 */ t16628.s0.tag = EXTERNAL_SYMBOL_TYPE; t16628.s0.value.external_symbol_type = q528; /* x208820 */ t16629.s0.tag = EXTERNAL_SYMBOL_TYPE; t16629.s0.value.external_symbol_type = q553; /* x208821 */ t16631.s0.tag = EXTERNAL_SYMBOL_TYPE; t16631.s0.value.external_symbol_type = q582; /* x208822 */ t16633.s0.tag = EXTERNAL_SYMBOL_TYPE; t16633.s0.value.external_symbol_type = q583; /* x208823 */ t16634.s0.tag = EXTERNAL_SYMBOL_TYPE; t16634.s0.value.external_symbol_type = q560; /* x208824 */ t16634.s1.tag = NULL_TYPE; /* x208825 */ t16633.s1.tag = STRUCTURE_TYPE24753; t16633.s1.value.structure_type24753 = &t16634; /* x208826 */ t16632.s0.tag = STRUCTURE_TYPE24753; t16632.s0.value.structure_type24753 = &t16633; /* x208827 */ t16632.s1.tag = NULL_TYPE; /* x208828 */ t16631.s1.tag = STRUCTURE_TYPE24753; t16631.s1.value.structure_type24753 = &t16632; /* x208829 */ t16630.s0.tag = STRUCTURE_TYPE24753; t16630.s0.value.structure_type24753 = &t16631; /* x208830 */ t16630.s1.tag = NULL_TYPE; /* x208831 */ t16629.s1.tag = STRUCTURE_TYPE24753; t16629.s1.value.structure_type24753 = &t16630; /* x208832 */ t16628.s1.tag = STRUCTURE_TYPE24753; t16628.s1.value.structure_type24753 = &t16629; /* x208833 */ t16627.s1.tag = STRUCTURE_TYPE24753; t16627.s1.value.structure_type24753 = &t16628; /* x208834 */ t16626.s0.tag = STRUCTURE_TYPE24753; t16626.s0.value.structure_type24753 = &t16627; /* x208835 */ t16626.s1.tag = NULL_TYPE; /* x208836 */ t16625.s1.tag = STRUCTURE_TYPE24753; t16625.s1.value.structure_type24753 = &t16626; /* x208837 */ t16624.s1.tag = STRUCTURE_TYPE24753; t16624.s1.value.structure_type24753 = &t16625; /* x208838 */ t16623.s1.tag = STRUCTURE_TYPE24753; t16623.s1.value.structure_type24753 = &t16624; /* x208839 */ t16622.s0.tag = STRUCTURE_TYPE24753; t16622.s0.value.structure_type24753 = &t16623; /* x208840 */ t16636.s0.tag = EXTERNAL_SYMBOL_TYPE; t16636.s0.value.external_symbol_type = q615; /* x208841 */ t16637.s0.tag = EXTERNAL_SYMBOL_TYPE; t16637.s0.value.external_symbol_type = q540; /* x208842 */ t16638.s0.tag = EXTERNAL_SYMBOL_TYPE; t16638.s0.value.external_symbol_type = q614; /* x208843 */ t16640.s0.tag = EXTERNAL_SYMBOL_TYPE; t16640.s0.value.external_symbol_type = q616; /* x208844 */ t16641.s0.tag = EXTERNAL_SYMBOL_TYPE; t16641.s0.value.external_symbol_type = q562; /* x208845 */ t16641.s1.tag = NULL_TYPE; /* x208846 */ t16640.s1.tag = STRUCTURE_TYPE24753; t16640.s1.value.structure_type24753 = &t16641; /* x208847 */ t16639.s0.tag = STRUCTURE_TYPE24753; t16639.s0.value.structure_type24753 = &t16640; /* x208848 */ t16639.s1.tag = NULL_TYPE; /* x208849 */ t16638.s1.tag = STRUCTURE_TYPE24753; t16638.s1.value.structure_type24753 = &t16639; /* x208850 */ t16637.s1.tag = STRUCTURE_TYPE24753; t16637.s1.value.structure_type24753 = &t16638; /* x208851 */ t16636.s1.tag = STRUCTURE_TYPE24753; t16636.s1.value.structure_type24753 = &t16637; /* x208852 */ t16635.s0.tag = STRUCTURE_TYPE24753; t16635.s0.value.structure_type24753 = &t16636; /* x208853 */ t16643.s0.tag = EXTERNAL_SYMBOL_TYPE; t16643.s0.value.external_symbol_type = q42; /* x208854 */ t16644.s0.tag = EXTERNAL_SYMBOL_TYPE; t16644.s0.value.external_symbol_type = q617; /* x208855 */ t16646.s0.tag = EXTERNAL_SYMBOL_TYPE; t16646.s0.value.external_symbol_type = q596; /* x208856 */ t16647.s0.tag = EXTERNAL_SYMBOL_TYPE; t16647.s0.value.external_symbol_type = q540; /* x208857 */ t16648.s0.tag = EXTERNAL_SYMBOL_TYPE; t16648.s0.value.external_symbol_type = q578; /* x208858 */ t16649.s0.tag = FIXNUM_TYPE; t16649.s0.value.fixnum_type = 0; /* x208859 */ t16651.s0.tag = EXTERNAL_SYMBOL_TYPE; t16651.s0.value.external_symbol_type = q597; /* x208860 */ t16651.s1.tag = NULL_TYPE; /* x208861 */ t16650.s0.tag = STRUCTURE_TYPE24753; t16650.s0.value.structure_type24753 = &t16651; /* x208862 */ t16650.s1.tag = NULL_TYPE; /* x208863 */ t16649.s1.tag = STRUCTURE_TYPE24753; t16649.s1.value.structure_type24753 = &t16650; /* x208864 */ t16648.s1.tag = STRUCTURE_TYPE24753; t16648.s1.value.structure_type24753 = &t16649; /* x208865 */ t16647.s1.tag = STRUCTURE_TYPE24753; t16647.s1.value.structure_type24753 = &t16648; /* x208866 */ t16646.s1.tag = STRUCTURE_TYPE24753; t16646.s1.value.structure_type24753 = &t16647; /* x208867 */ t16645.s0.tag = STRUCTURE_TYPE24753; t16645.s0.value.structure_type24753 = &t16646; /* x208868 */ t16645.s1.tag = NULL_TYPE; /* x208869 */ t16644.s1.tag = STRUCTURE_TYPE24753; t16644.s1.value.structure_type24753 = &t16645; /* x208870 */ t16643.s1.tag = STRUCTURE_TYPE24753; t16643.s1.value.structure_type24753 = &t16644; /* x208871 */ t16642.s0.tag = STRUCTURE_TYPE24753; t16642.s0.value.structure_type24753 = &t16643; /* x208872 */ t16653.s0.tag = EXTERNAL_SYMBOL_TYPE; t16653.s0.value.external_symbol_type = q598; /* x208873 */ t16654.s0.tag = EXTERNAL_SYMBOL_TYPE; t16654.s0.value.external_symbol_type = q540; /* x208874 */ t16655.s0.tag = EXTERNAL_SYMBOL_TYPE; t16655.s0.value.external_symbol_type = q617; /* x208875 */ t16657.s0.tag = EXTERNAL_SYMBOL_TYPE; t16657.s0.value.external_symbol_type = q43; /* x208876 */ t16658.s0.tag = EXTERNAL_SYMBOL_TYPE; t16658.s0.value.external_symbol_type = q528; /* x208877 */ t16659.s0.tag = EXTERNAL_SYMBOL_TYPE; t16659.s0.value.external_symbol_type = q551; /* x208878 */ t16661.s0.tag = EXTERNAL_SYMBOL_TYPE; t16661.s0.value.external_symbol_type = q582; /* x208879 */ t16663.s0.tag = EXTERNAL_SYMBOL_TYPE; t16663.s0.value.external_symbol_type = q583; /* x208880 */ t16664.s0.tag = EXTERNAL_SYMBOL_TYPE; t16664.s0.value.external_symbol_type = q555; /* x208881 */ t16664.s1.tag = NULL_TYPE; /* x208882 */ t16663.s1.tag = STRUCTURE_TYPE24753; t16663.s1.value.structure_type24753 = &t16664; /* x208883 */ t16662.s0.tag = STRUCTURE_TYPE24753; t16662.s0.value.structure_type24753 = &t16663; /* x208884 */ t16662.s1.tag = NULL_TYPE; /* x208885 */ t16661.s1.tag = STRUCTURE_TYPE24753; t16661.s1.value.structure_type24753 = &t16662; /* x208886 */ t16660.s0.tag = STRUCTURE_TYPE24753; t16660.s0.value.structure_type24753 = &t16661; /* x208887 */ t16660.s1.tag = NULL_TYPE; /* x208888 */ t16659.s1.tag = STRUCTURE_TYPE24753; t16659.s1.value.structure_type24753 = &t16660; /* x208889 */ t16658.s1.tag = STRUCTURE_TYPE24753; t16658.s1.value.structure_type24753 = &t16659; /* x208890 */ t16657.s1.tag = STRUCTURE_TYPE24753; t16657.s1.value.structure_type24753 = &t16658; /* x208891 */ t16656.s0.tag = STRUCTURE_TYPE24753; t16656.s0.value.structure_type24753 = &t16657; /* x208892 */ t16656.s1.tag = NULL_TYPE; /* x208893 */ t16655.s1.tag = STRUCTURE_TYPE24753; t16655.s1.value.structure_type24753 = &t16656; /* x208894 */ t16654.s1.tag = STRUCTURE_TYPE24753; t16654.s1.value.structure_type24753 = &t16655; /* x208895 */ t16653.s1.tag = STRUCTURE_TYPE24753; t16653.s1.value.structure_type24753 = &t16654; /* x208896 */ t16652.s0.tag = STRUCTURE_TYPE24753; t16652.s0.value.structure_type24753 = &t16653; /* x208897 */ t16666.s0.tag = EXTERNAL_SYMBOL_TYPE; t16666.s0.value.external_symbol_type = q599; /* x208898 */ t16667.s0.tag = EXTERNAL_SYMBOL_TYPE; t16667.s0.value.external_symbol_type = q540; /* x208899 */ t16668.s0.tag = EXTERNAL_SYMBOL_TYPE; t16668.s0.value.external_symbol_type = q617; /* x208900 */ t16670.s0.tag = EXTERNAL_SYMBOL_TYPE; t16670.s0.value.external_symbol_type = q43; /* x208901 */ t16671.s0.tag = EXTERNAL_SYMBOL_TYPE; t16671.s0.value.external_symbol_type = q528; /* x208902 */ t16672.s0.tag = EXTERNAL_SYMBOL_TYPE; t16672.s0.value.external_symbol_type = q553; /* x208903 */ t16674.s0.tag = EXTERNAL_SYMBOL_TYPE; t16674.s0.value.external_symbol_type = q582; /* x208904 */ t16676.s0.tag = EXTERNAL_SYMBOL_TYPE; t16676.s0.value.external_symbol_type = q583; /* x208905 */ t16677.s0.tag = EXTERNAL_SYMBOL_TYPE; t16677.s0.value.external_symbol_type = q560; /* x208906 */ t16677.s1.tag = NULL_TYPE; /* x208907 */ t16676.s1.tag = STRUCTURE_TYPE24753; t16676.s1.value.structure_type24753 = &t16677; /* x208908 */ t16675.s0.tag = STRUCTURE_TYPE24753; t16675.s0.value.structure_type24753 = &t16676; /* x208909 */ t16675.s1.tag = NULL_TYPE; /* x208910 */ t16674.s1.tag = STRUCTURE_TYPE24753; t16674.s1.value.structure_type24753 = &t16675; /* x208911 */ t16673.s0.tag = STRUCTURE_TYPE24753; t16673.s0.value.structure_type24753 = &t16674; /* x208912 */ t16673.s1.tag = NULL_TYPE; /* x208913 */ t16672.s1.tag = STRUCTURE_TYPE24753; t16672.s1.value.structure_type24753 = &t16673; /* x208914 */ t16671.s1.tag = STRUCTURE_TYPE24753; t16671.s1.value.structure_type24753 = &t16672; /* x208915 */ t16670.s1.tag = STRUCTURE_TYPE24753; t16670.s1.value.structure_type24753 = &t16671; /* x208916 */ t16669.s0.tag = STRUCTURE_TYPE24753; t16669.s0.value.structure_type24753 = &t16670; /* x208917 */ t16669.s1.tag = NULL_TYPE; /* x208918 */ t16668.s1.tag = STRUCTURE_TYPE24753; t16668.s1.value.structure_type24753 = &t16669; /* x208919 */ t16667.s1.tag = STRUCTURE_TYPE24753; t16667.s1.value.structure_type24753 = &t16668; /* x208920 */ t16666.s1.tag = STRUCTURE_TYPE24753; t16666.s1.value.structure_type24753 = &t16667; /* x208921 */ t16665.s0.tag = STRUCTURE_TYPE24753; t16665.s0.value.structure_type24753 = &t16666; /* x208922 */ t16679.s0.tag = EXTERNAL_SYMBOL_TYPE; t16679.s0.value.external_symbol_type = q615; /* x208923 */ t16680.s0.tag = EXTERNAL_SYMBOL_TYPE; t16680.s0.value.external_symbol_type = q540; /* x208924 */ t16681.s0.tag = EXTERNAL_SYMBOL_TYPE; t16681.s0.value.external_symbol_type = q617; /* x208925 */ t16683.s0.tag = EXTERNAL_SYMBOL_TYPE; t16683.s0.value.external_symbol_type = q616; /* x208926 */ t16684.s0.tag = EXTERNAL_SYMBOL_TYPE; t16684.s0.value.external_symbol_type = q565; /* x208927 */ t16684.s1.tag = NULL_TYPE; /* x208928 */ t16683.s1.tag = STRUCTURE_TYPE24753; t16683.s1.value.structure_type24753 = &t16684; /* x208929 */ t16682.s0.tag = STRUCTURE_TYPE24753; t16682.s0.value.structure_type24753 = &t16683; /* x208930 */ t16682.s1.tag = NULL_TYPE; /* x208931 */ t16681.s1.tag = STRUCTURE_TYPE24753; t16681.s1.value.structure_type24753 = &t16682; /* x208932 */ t16680.s1.tag = STRUCTURE_TYPE24753; t16680.s1.value.structure_type24753 = &t16681; /* x208933 */ t16679.s1.tag = STRUCTURE_TYPE24753; t16679.s1.value.structure_type24753 = &t16680; /* x208934 */ t16678.s0.tag = STRUCTURE_TYPE24753; t16678.s0.value.structure_type24753 = &t16679; /* x208935 */ t16686.s0.tag = EXTERNAL_SYMBOL_TYPE; t16686.s0.value.external_symbol_type = q42; /* x208936 */ t16687.s0.tag = EXTERNAL_SYMBOL_TYPE; t16687.s0.value.external_symbol_type = q618; /* x208937 */ t16689.s0.tag = EXTERNAL_SYMBOL_TYPE; t16689.s0.value.external_symbol_type = q596; /* x208938 */ t16690.s0.tag = EXTERNAL_SYMBOL_TYPE; t16690.s0.value.external_symbol_type = q540; /* x208939 */ t16691.s0.tag = EXTERNAL_SYMBOL_TYPE; t16691.s0.value.external_symbol_type = q578; /* x208940 */ t16692.s0.tag = FIXNUM_TYPE; t16692.s0.value.fixnum_type = 0; /* x208941 */ t16694.s0.tag = EXTERNAL_SYMBOL_TYPE; t16694.s0.value.external_symbol_type = q597; /* x208942 */ t16694.s1.tag = NULL_TYPE; /* x208943 */ t16693.s0.tag = STRUCTURE_TYPE24753; t16693.s0.value.structure_type24753 = &t16694; /* x208944 */ t16693.s1.tag = NULL_TYPE; /* x208945 */ t16692.s1.tag = STRUCTURE_TYPE24753; t16692.s1.value.structure_type24753 = &t16693; /* x208946 */ t16691.s1.tag = STRUCTURE_TYPE24753; t16691.s1.value.structure_type24753 = &t16692; /* x208947 */ t16690.s1.tag = STRUCTURE_TYPE24753; t16690.s1.value.structure_type24753 = &t16691; /* x208948 */ t16689.s1.tag = STRUCTURE_TYPE24753; t16689.s1.value.structure_type24753 = &t16690; /* x208949 */ t16688.s0.tag = STRUCTURE_TYPE24753; t16688.s0.value.structure_type24753 = &t16689; /* x208950 */ t16688.s1.tag = NULL_TYPE; /* x208951 */ t16687.s1.tag = STRUCTURE_TYPE24753; t16687.s1.value.structure_type24753 = &t16688; /* x208952 */ t16686.s1.tag = STRUCTURE_TYPE24753; t16686.s1.value.structure_type24753 = &t16687; /* x208953 */ t16685.s0.tag = STRUCTURE_TYPE24753; t16685.s0.value.structure_type24753 = &t16686; /* x208954 */ t16696.s0.tag = EXTERNAL_SYMBOL_TYPE; t16696.s0.value.external_symbol_type = q598; /* x208955 */ t16697.s0.tag = EXTERNAL_SYMBOL_TYPE; t16697.s0.value.external_symbol_type = q540; /* x208956 */ t16698.s0.tag = EXTERNAL_SYMBOL_TYPE; t16698.s0.value.external_symbol_type = q618; /* x208957 */ t16700.s0.tag = EXTERNAL_SYMBOL_TYPE; t16700.s0.value.external_symbol_type = q43; /* x208958 */ t16701.s0.tag = EXTERNAL_SYMBOL_TYPE; t16701.s0.value.external_symbol_type = q528; /* x208959 */ t16702.s0.tag = EXTERNAL_SYMBOL_TYPE; t16702.s0.value.external_symbol_type = q553; /* x208960 */ t16704.s0.tag = EXTERNAL_SYMBOL_TYPE; t16704.s0.value.external_symbol_type = q582; /* x208961 */ t16706.s0.tag = EXTERNAL_SYMBOL_TYPE; t16706.s0.value.external_symbol_type = q583; /* x208962 */ t16707.s0.tag = EXTERNAL_SYMBOL_TYPE; t16707.s0.value.external_symbol_type = q560; /* x208963 */ t16707.s1.tag = NULL_TYPE; /* x208964 */ t16706.s1.tag = STRUCTURE_TYPE24753; t16706.s1.value.structure_type24753 = &t16707; /* x208965 */ t16705.s0.tag = STRUCTURE_TYPE24753; t16705.s0.value.structure_type24753 = &t16706; /* x208966 */ t16705.s1.tag = NULL_TYPE; /* x208967 */ t16704.s1.tag = STRUCTURE_TYPE24753; t16704.s1.value.structure_type24753 = &t16705; /* x208968 */ t16703.s0.tag = STRUCTURE_TYPE24753; t16703.s0.value.structure_type24753 = &t16704; /* x208969 */ t16703.s1.tag = NULL_TYPE; /* x208970 */ t16702.s1.tag = STRUCTURE_TYPE24753; t16702.s1.value.structure_type24753 = &t16703; /* x208971 */ t16701.s1.tag = STRUCTURE_TYPE24753; t16701.s1.value.structure_type24753 = &t16702; /* x208972 */ t16700.s1.tag = STRUCTURE_TYPE24753; t16700.s1.value.structure_type24753 = &t16701; /* x208973 */ t16699.s0.tag = STRUCTURE_TYPE24753; t16699.s0.value.structure_type24753 = &t16700; /* x208974 */ t16699.s1.tag = NULL_TYPE; /* x208975 */ t16698.s1.tag = STRUCTURE_TYPE24753; t16698.s1.value.structure_type24753 = &t16699; /* x208976 */ t16697.s1.tag = STRUCTURE_TYPE24753; t16697.s1.value.structure_type24753 = &t16698; /* x208977 */ t16696.s1.tag = STRUCTURE_TYPE24753; t16696.s1.value.structure_type24753 = &t16697; /* x208978 */ t16695.s0.tag = STRUCTURE_TYPE24753; t16695.s0.value.structure_type24753 = &t16696; /* x208979 */ t16709.s0.tag = EXTERNAL_SYMBOL_TYPE; t16709.s0.value.external_symbol_type = q599; /* x208980 */ t16710.s0.tag = EXTERNAL_SYMBOL_TYPE; t16710.s0.value.external_symbol_type = q540; /* x208981 */ t16711.s0.tag = EXTERNAL_SYMBOL_TYPE; t16711.s0.value.external_symbol_type = q618; /* x208982 */ t16713.s0.tag = EXTERNAL_SYMBOL_TYPE; t16713.s0.value.external_symbol_type = q43; /* x208983 */ t16714.s0.tag = EXTERNAL_SYMBOL_TYPE; t16714.s0.value.external_symbol_type = q528; /* x208984 */ t16715.s0.tag = EXTERNAL_SYMBOL_TYPE; t16715.s0.value.external_symbol_type = q551; /* x208985 */ t16717.s0.tag = EXTERNAL_SYMBOL_TYPE; t16717.s0.value.external_symbol_type = q582; /* x208986 */ t16719.s0.tag = EXTERNAL_SYMBOL_TYPE; t16719.s0.value.external_symbol_type = q583; /* x208987 */ t16720.s0.tag = EXTERNAL_SYMBOL_TYPE; t16720.s0.value.external_symbol_type = q555; /* x208988 */ t16720.s1.tag = NULL_TYPE; /* x208989 */ t16719.s1.tag = STRUCTURE_TYPE24753; t16719.s1.value.structure_type24753 = &t16720; /* x208990 */ t16718.s0.tag = STRUCTURE_TYPE24753; t16718.s0.value.structure_type24753 = &t16719; /* x208991 */ t16718.s1.tag = NULL_TYPE; /* x208992 */ t16717.s1.tag = STRUCTURE_TYPE24753; t16717.s1.value.structure_type24753 = &t16718; /* x208993 */ t16716.s0.tag = STRUCTURE_TYPE24753; t16716.s0.value.structure_type24753 = &t16717; /* x208994 */ t16716.s1.tag = NULL_TYPE; /* x208995 */ t16715.s1.tag = STRUCTURE_TYPE24753; t16715.s1.value.structure_type24753 = &t16716; /* x208996 */ t16714.s1.tag = STRUCTURE_TYPE24753; t16714.s1.value.structure_type24753 = &t16715; /* x208997 */ t16713.s1.tag = STRUCTURE_TYPE24753; t16713.s1.value.structure_type24753 = &t16714; /* x208998 */ t16712.s0.tag = STRUCTURE_TYPE24753; t16712.s0.value.structure_type24753 = &t16713; /* x208999 */ t16712.s1.tag = NULL_TYPE; /* x209000 */ t16711.s1.tag = STRUCTURE_TYPE24753; t16711.s1.value.structure_type24753 = &t16712; /* x209001 */ t16710.s1.tag = STRUCTURE_TYPE24753; t16710.s1.value.structure_type24753 = &t16711; /* x209002 */ t16709.s1.tag = STRUCTURE_TYPE24753; t16709.s1.value.structure_type24753 = &t16710; /* x209003 */ t16708.s0.tag = STRUCTURE_TYPE24753; t16708.s0.value.structure_type24753 = &t16709; /* x209004 */ t16722.s0.tag = EXTERNAL_SYMBOL_TYPE; t16722.s0.value.external_symbol_type = q615; /* x209005 */ t16723.s0.tag = EXTERNAL_SYMBOL_TYPE; t16723.s0.value.external_symbol_type = q540; /* x209006 */ t16724.s0.tag = EXTERNAL_SYMBOL_TYPE; t16724.s0.value.external_symbol_type = q618; /* x209007 */ t16726.s0.tag = EXTERNAL_SYMBOL_TYPE; t16726.s0.value.external_symbol_type = q616; /* x209008 */ t16727.s0.tag = EXTERNAL_SYMBOL_TYPE; t16727.s0.value.external_symbol_type = q565; /* x209009 */ t16727.s1.tag = NULL_TYPE; /* x209010 */ t16726.s1.tag = STRUCTURE_TYPE24753; t16726.s1.value.structure_type24753 = &t16727; /* x209011 */ t16725.s0.tag = STRUCTURE_TYPE24753; t16725.s0.value.structure_type24753 = &t16726; /* x209012 */ t16725.s1.tag = NULL_TYPE; /* x209013 */ t16724.s1.tag = STRUCTURE_TYPE24753; t16724.s1.value.structure_type24753 = &t16725; /* x209014 */ t16723.s1.tag = STRUCTURE_TYPE24753; t16723.s1.value.structure_type24753 = &t16724; /* x209015 */ t16722.s1.tag = STRUCTURE_TYPE24753; t16722.s1.value.structure_type24753 = &t16723; /* x209016 */ t16721.s0.tag = STRUCTURE_TYPE24753; t16721.s0.value.structure_type24753 = &t16722; /* x209017 */ t16729.s0.tag = EXTERNAL_SYMBOL_TYPE; t16729.s0.value.external_symbol_type = q600; /* x209018 */ t16730.s0.tag = EXTERNAL_SYMBOL_TYPE; t16730.s0.value.external_symbol_type = q540; /* x209019 */ t16731.s0.tag = EXTERNAL_SYMBOL_TYPE; t16731.s0.value.external_symbol_type = q618; /* x209020 */ t16732.s0.tag = FIXNUM_TYPE; t16732.s0.value.fixnum_type = 0; /* x209021 */ t16733.s0.tag = EXTERNAL_SYMBOL_TYPE; t16733.s0.value.external_symbol_type = q601; /* x209022 */ t16734.s0.tag = EXTERNAL_SYMBOL_TYPE; t16734.s0.value.external_symbol_type = q602; /* x209023 */ t16735.s0.tag = EXTERNAL_SYMBOL_TYPE; t16735.s0.value.external_symbol_type = q603; /* x209024 */ t16735.s1.tag = NULL_TYPE; /* x209025 */ t16734.s1.tag = STRUCTURE_TYPE24753; t16734.s1.value.structure_type24753 = &t16735; /* x209026 */ t16733.s1.tag = STRUCTURE_TYPE24753; t16733.s1.value.structure_type24753 = &t16734; /* x209027 */ t16732.s1.tag = STRUCTURE_TYPE24753; t16732.s1.value.structure_type24753 = &t16733; /* x209028 */ t16731.s1.tag = STRUCTURE_TYPE24753; t16731.s1.value.structure_type24753 = &t16732; /* x209029 */ t16730.s1.tag = STRUCTURE_TYPE24753; t16730.s1.value.structure_type24753 = &t16731; /* x209030 */ t16729.s1.tag = STRUCTURE_TYPE24753; t16729.s1.value.structure_type24753 = &t16730; /* x209031 */ t16728.s0.tag = STRUCTURE_TYPE24753; t16728.s0.value.structure_type24753 = &t16729; /* x209032 */ t16737.s0.tag = EXTERNAL_SYMBOL_TYPE; t16737.s0.value.external_symbol_type = q605; /* x209033 */ t16738.s0.tag = EXTERNAL_SYMBOL_TYPE; t16738.s0.value.external_symbol_type = q540; /* x209034 */ t16739.s0.tag = EXTERNAL_SYMBOL_TYPE; t16739.s0.value.external_symbol_type = q618; /* x209035 */ t16740.s0.tag = EXTERNAL_SYMBOL_TYPE; t16740.s0.value.external_symbol_type = q606; /* x209036 */ t16740.s1.tag = NULL_TYPE; /* x209037 */ t16739.s1.tag = STRUCTURE_TYPE24753; t16739.s1.value.structure_type24753 = &t16740; /* x209038 */ t16738.s1.tag = STRUCTURE_TYPE24753; t16738.s1.value.structure_type24753 = &t16739; /* x209039 */ t16737.s1.tag = STRUCTURE_TYPE24753; t16737.s1.value.structure_type24753 = &t16738; /* x209040 */ t16736.s0.tag = STRUCTURE_TYPE24753; t16736.s0.value.structure_type24753 = &t16737; /* x209041 */ t16742.s0.tag = EXTERNAL_SYMBOL_TYPE; t16742.s0.value.external_symbol_type = q494; /* x209042 */ t16743.s0.tag = EXTERNAL_SYMBOL_TYPE; t16743.s0.value.external_symbol_type = q528; /* x209043 */ t16745.s0.tag = EXTERNAL_SYMBOL_TYPE; t16745.s0.value.external_symbol_type = q42; /* x209044 */ t16746.s0.tag = EXTERNAL_SYMBOL_TYPE; t16746.s0.value.external_symbol_type = q619; /* x209045 */ t16748.s0.tag = EXTERNAL_SYMBOL_TYPE; t16748.s0.value.external_symbol_type = q556; /* x209046 */ t16749.s0.tag = EXTERNAL_SYMBOL_TYPE; t16749.s0.value.external_symbol_type = q540; /* x209047 */ t16751.s0.tag = EXTERNAL_SYMBOL_TYPE; t16751.s0.value.external_symbol_type = q557; /* x209048 */ t16752.s0.tag = EXTERNAL_SYMBOL_TYPE; t16752.s0.value.external_symbol_type = q540; /* x209049 */ t16753.s0.tag = EXTERNAL_SYMBOL_TYPE; t16753.s0.value.external_symbol_type = q545; /* x209050 */ t16753.s1.tag = NULL_TYPE; /* x209051 */ t16752.s1.tag = STRUCTURE_TYPE24753; t16752.s1.value.structure_type24753 = &t16753; /* x209052 */ t16751.s1.tag = STRUCTURE_TYPE24753; t16751.s1.value.structure_type24753 = &t16752; /* x209053 */ t16750.s0.tag = STRUCTURE_TYPE24753; t16750.s0.value.structure_type24753 = &t16751; /* x209054 */ t16754.s0.tag = STRING_TYPE; t16754.s0.value.string_type = "Light Gray"; /* x209055 */ t16754.s1.tag = NULL_TYPE; /* x209056 */ t16750.s1.tag = STRUCTURE_TYPE24753; t16750.s1.value.structure_type24753 = &t16754; /* x209057 */ t16749.s1.tag = STRUCTURE_TYPE24753; t16749.s1.value.structure_type24753 = &t16750; /* x209058 */ t16748.s1.tag = STRUCTURE_TYPE24753; t16748.s1.value.structure_type24753 = &t16749; /* x209059 */ t16747.s0.tag = STRUCTURE_TYPE24753; t16747.s0.value.structure_type24753 = &t16748; /* x209060 */ t16747.s1.tag = NULL_TYPE; /* x209061 */ t16746.s1.tag = STRUCTURE_TYPE24753; t16746.s1.value.structure_type24753 = &t16747; /* x209062 */ t16745.s1.tag = STRUCTURE_TYPE24753; t16745.s1.value.structure_type24753 = &t16746; /* x209063 */ t16744.s0.tag = STRUCTURE_TYPE24753; t16744.s0.value.structure_type24753 = &t16745; /* x209064 */ t16756.s0.tag = EXTERNAL_SYMBOL_TYPE; t16756.s0.value.external_symbol_type = q494; /* x209065 */ t16758.s0.tag = EXTERNAL_SYMBOL_TYPE; t16758.s0.value.external_symbol_type = q120; /* x209066 */ t16760.s0.tag = EXTERNAL_SYMBOL_TYPE; t16760.s0.value.external_symbol_type = q559; /* x209067 */ t16761.s0.tag = EXTERNAL_SYMBOL_TYPE; t16761.s0.value.external_symbol_type = q619; /* x209068 */ t16761.s1.tag = NULL_TYPE; /* x209069 */ t16760.s1.tag = STRUCTURE_TYPE24753; t16760.s1.value.structure_type24753 = &t16761; /* x209070 */ t16759.s0.tag = STRUCTURE_TYPE24753; t16759.s0.value.structure_type24753 = &t16760; /* x209071 */ t16762.s0.tag = FIXNUM_TYPE; t16762.s0.value.fixnum_type = 1; /* x209072 */ t16762.s1.tag = NULL_TYPE; /* x209073 */ t16759.s1.tag = STRUCTURE_TYPE24753; t16759.s1.value.structure_type24753 = &t16762; /* x209074 */ t16758.s1.tag = STRUCTURE_TYPE24753; t16758.s1.value.structure_type24753 = &t16759; /* x209075 */ t16757.s0.tag = STRUCTURE_TYPE24753; t16757.s0.value.structure_type24753 = &t16758; /* x209076 */ t16764.s0.tag = EXTERNAL_SYMBOL_TYPE; t16764.s0.value.external_symbol_type = q179; /* x209077 */ t16765.s0.tag = STRING_TYPE; t16765.s0.value.string_type = "Can\'t allocate light gray colorcell"; /* x209078 */ t16765.s1.tag = NULL_TYPE; /* x209079 */ t16764.s1.tag = STRUCTURE_TYPE24753; t16764.s1.value.structure_type24753 = &t16765; /* x209080 */ t16763.s0.tag = STRUCTURE_TYPE24753; t16763.s0.value.structure_type24753 = &t16764; /* x209081 */ t16763.s1.tag = NULL_TYPE; /* x209082 */ t16757.s1.tag = STRUCTURE_TYPE24753; t16757.s1.value.structure_type24753 = &t16763; /* x209083 */ t16756.s1.tag = STRUCTURE_TYPE24753; t16756.s1.value.structure_type24753 = &t16757; /* x209084 */ t16755.s0.tag = STRUCTURE_TYPE24753; t16755.s0.value.structure_type24753 = &t16756; /* x209085 */ t16767.s0.tag = EXTERNAL_SYMBOL_TYPE; t16767.s0.value.external_symbol_type = q42; /* x209086 */ t16768.s0.tag = EXTERNAL_SYMBOL_TYPE; t16768.s0.value.external_symbol_type = q620; /* x209087 */ t16770.s0.tag = EXTERNAL_SYMBOL_TYPE; t16770.s0.value.external_symbol_type = q596; /* x209088 */ t16771.s0.tag = EXTERNAL_SYMBOL_TYPE; t16771.s0.value.external_symbol_type = q540; /* x209089 */ t16772.s0.tag = EXTERNAL_SYMBOL_TYPE; t16772.s0.value.external_symbol_type = q578; /* x209090 */ t16773.s0.tag = FIXNUM_TYPE; t16773.s0.value.fixnum_type = 0; /* x209091 */ t16775.s0.tag = EXTERNAL_SYMBOL_TYPE; t16775.s0.value.external_symbol_type = q597; /* x209092 */ t16775.s1.tag = NULL_TYPE; /* x209093 */ t16774.s0.tag = STRUCTURE_TYPE24753; t16774.s0.value.structure_type24753 = &t16775; /* x209094 */ t16774.s1.tag = NULL_TYPE; /* x209095 */ t16773.s1.tag = STRUCTURE_TYPE24753; t16773.s1.value.structure_type24753 = &t16774; /* x209096 */ t16772.s1.tag = STRUCTURE_TYPE24753; t16772.s1.value.structure_type24753 = &t16773; /* x209097 */ t16771.s1.tag = STRUCTURE_TYPE24753; t16771.s1.value.structure_type24753 = &t16772; /* x209098 */ t16770.s1.tag = STRUCTURE_TYPE24753; t16770.s1.value.structure_type24753 = &t16771; /* x209099 */ t16769.s0.tag = STRUCTURE_TYPE24753; t16769.s0.value.structure_type24753 = &t16770; /* x209100 */ t16769.s1.tag = NULL_TYPE; /* x209101 */ t16768.s1.tag = STRUCTURE_TYPE24753; t16768.s1.value.structure_type24753 = &t16769; /* x209102 */ t16767.s1.tag = STRUCTURE_TYPE24753; t16767.s1.value.structure_type24753 = &t16768; /* x209103 */ t16766.s0.tag = STRUCTURE_TYPE24753; t16766.s0.value.structure_type24753 = &t16767; /* x209104 */ t16777.s0.tag = EXTERNAL_SYMBOL_TYPE; t16777.s0.value.external_symbol_type = q598; /* x209105 */ t16778.s0.tag = EXTERNAL_SYMBOL_TYPE; t16778.s0.value.external_symbol_type = q540; /* x209106 */ t16779.s0.tag = EXTERNAL_SYMBOL_TYPE; t16779.s0.value.external_symbol_type = q620; /* x209107 */ t16781.s0.tag = EXTERNAL_SYMBOL_TYPE; t16781.s0.value.external_symbol_type = q582; /* x209108 */ t16783.s0.tag = EXTERNAL_SYMBOL_TYPE; t16783.s0.value.external_symbol_type = q583; /* x209109 */ t16784.s0.tag = EXTERNAL_SYMBOL_TYPE; t16784.s0.value.external_symbol_type = q555; /* x209110 */ t16784.s1.tag = NULL_TYPE; /* x209111 */ t16783.s1.tag = STRUCTURE_TYPE24753; t16783.s1.value.structure_type24753 = &t16784; /* x209112 */ t16782.s0.tag = STRUCTURE_TYPE24753; t16782.s0.value.structure_type24753 = &t16783; /* x209113 */ t16782.s1.tag = NULL_TYPE; /* x209114 */ t16781.s1.tag = STRUCTURE_TYPE24753; t16781.s1.value.structure_type24753 = &t16782; /* x209115 */ t16780.s0.tag = STRUCTURE_TYPE24753; t16780.s0.value.structure_type24753 = &t16781; /* x209116 */ t16780.s1.tag = NULL_TYPE; /* x209117 */ t16779.s1.tag = STRUCTURE_TYPE24753; t16779.s1.value.structure_type24753 = &t16780; /* x209118 */ t16778.s1.tag = STRUCTURE_TYPE24753; t16778.s1.value.structure_type24753 = &t16779; /* x209119 */ t16777.s1.tag = STRUCTURE_TYPE24753; t16777.s1.value.structure_type24753 = &t16778; /* x209120 */ t16776.s0.tag = STRUCTURE_TYPE24753; t16776.s0.value.structure_type24753 = &t16777; /* x209121 */ t16786.s0.tag = EXTERNAL_SYMBOL_TYPE; t16786.s0.value.external_symbol_type = q599; /* x209122 */ t16787.s0.tag = EXTERNAL_SYMBOL_TYPE; t16787.s0.value.external_symbol_type = q540; /* x209123 */ t16788.s0.tag = EXTERNAL_SYMBOL_TYPE; t16788.s0.value.external_symbol_type = q620; /* x209124 */ t16790.s0.tag = EXTERNAL_SYMBOL_TYPE; t16790.s0.value.external_symbol_type = q582; /* x209125 */ t16792.s0.tag = EXTERNAL_SYMBOL_TYPE; t16792.s0.value.external_symbol_type = q583; /* x209126 */ t16793.s0.tag = EXTERNAL_SYMBOL_TYPE; t16793.s0.value.external_symbol_type = q619; /* x209127 */ t16793.s1.tag = NULL_TYPE; /* x209128 */ t16792.s1.tag = STRUCTURE_TYPE24753; t16792.s1.value.structure_type24753 = &t16793; /* x209129 */ t16791.s0.tag = STRUCTURE_TYPE24753; t16791.s0.value.structure_type24753 = &t16792; /* x209130 */ t16791.s1.tag = NULL_TYPE; /* x209131 */ t16790.s1.tag = STRUCTURE_TYPE24753; t16790.s1.value.structure_type24753 = &t16791; /* x209132 */ t16789.s0.tag = STRUCTURE_TYPE24753; t16789.s0.value.structure_type24753 = &t16790; /* x209133 */ t16789.s1.tag = NULL_TYPE; /* x209134 */ t16788.s1.tag = STRUCTURE_TYPE24753; t16788.s1.value.structure_type24753 = &t16789; /* x209135 */ t16787.s1.tag = STRUCTURE_TYPE24753; t16787.s1.value.structure_type24753 = &t16788; /* x209136 */ t16786.s1.tag = STRUCTURE_TYPE24753; t16786.s1.value.structure_type24753 = &t16787; /* x209137 */ t16785.s0.tag = STRUCTURE_TYPE24753; t16785.s0.value.structure_type24753 = &t16786; /* x209138 */ t16795.s0.tag = EXTERNAL_SYMBOL_TYPE; t16795.s0.value.external_symbol_type = q600; /* x209139 */ t16796.s0.tag = EXTERNAL_SYMBOL_TYPE; t16796.s0.value.external_symbol_type = q540; /* x209140 */ t16797.s0.tag = EXTERNAL_SYMBOL_TYPE; t16797.s0.value.external_symbol_type = q620; /* x209141 */ t16798.s0.tag = FIXNUM_TYPE; t16798.s0.value.fixnum_type = 0; /* x209142 */ t16799.s0.tag = EXTERNAL_SYMBOL_TYPE; t16799.s0.value.external_symbol_type = q601; /* x209143 */ t16800.s0.tag = EXTERNAL_SYMBOL_TYPE; t16800.s0.value.external_symbol_type = q602; /* x209144 */ t16801.s0.tag = EXTERNAL_SYMBOL_TYPE; t16801.s0.value.external_symbol_type = q603; /* x209145 */ t16801.s1.tag = NULL_TYPE; /* x209146 */ t16800.s1.tag = STRUCTURE_TYPE24753; t16800.s1.value.structure_type24753 = &t16801; /* x209147 */ t16799.s1.tag = STRUCTURE_TYPE24753; t16799.s1.value.structure_type24753 = &t16800; /* x209148 */ t16798.s1.tag = STRUCTURE_TYPE24753; t16798.s1.value.structure_type24753 = &t16799; /* x209149 */ t16797.s1.tag = STRUCTURE_TYPE24753; t16797.s1.value.structure_type24753 = &t16798; /* x209150 */ t16796.s1.tag = STRUCTURE_TYPE24753; t16796.s1.value.structure_type24753 = &t16797; /* x209151 */ t16795.s1.tag = STRUCTURE_TYPE24753; t16795.s1.value.structure_type24753 = &t16796; /* x209152 */ t16794.s0.tag = STRUCTURE_TYPE24753; t16794.s0.value.structure_type24753 = &t16795; /* x209153 */ t16803.s0.tag = EXTERNAL_SYMBOL_TYPE; t16803.s0.value.external_symbol_type = q42; /* x209154 */ t16804.s0.tag = EXTERNAL_SYMBOL_TYPE; t16804.s0.value.external_symbol_type = q621; /* x209155 */ t16806.s0.tag = EXTERNAL_SYMBOL_TYPE; t16806.s0.value.external_symbol_type = q556; /* x209156 */ t16807.s0.tag = EXTERNAL_SYMBOL_TYPE; t16807.s0.value.external_symbol_type = q540; /* x209157 */ t16809.s0.tag = EXTERNAL_SYMBOL_TYPE; t16809.s0.value.external_symbol_type = q557; /* x209158 */ t16810.s0.tag = EXTERNAL_SYMBOL_TYPE; t16810.s0.value.external_symbol_type = q540; /* x209159 */ t16811.s0.tag = EXTERNAL_SYMBOL_TYPE; t16811.s0.value.external_symbol_type = q545; /* x209160 */ t16811.s1.tag = NULL_TYPE; /* x209161 */ t16810.s1.tag = STRUCTURE_TYPE24753; t16810.s1.value.structure_type24753 = &t16811; /* x209162 */ t16809.s1.tag = STRUCTURE_TYPE24753; t16809.s1.value.structure_type24753 = &t16810; /* x209163 */ t16808.s0.tag = STRUCTURE_TYPE24753; t16808.s0.value.structure_type24753 = &t16809; /* x209164 */ t16812.s0.tag = STRING_TYPE; t16812.s0.value.string_type = "Gray"; /* x209165 */ t16812.s1.tag = NULL_TYPE; /* x209166 */ t16808.s1.tag = STRUCTURE_TYPE24753; t16808.s1.value.structure_type24753 = &t16812; /* x209167 */ t16807.s1.tag = STRUCTURE_TYPE24753; t16807.s1.value.structure_type24753 = &t16808; /* x209168 */ t16806.s1.tag = STRUCTURE_TYPE24753; t16806.s1.value.structure_type24753 = &t16807; /* x209169 */ t16805.s0.tag = STRUCTURE_TYPE24753; t16805.s0.value.structure_type24753 = &t16806; /* x209170 */ t16805.s1.tag = NULL_TYPE; /* x209171 */ t16804.s1.tag = STRUCTURE_TYPE24753; t16804.s1.value.structure_type24753 = &t16805; /* x209172 */ t16803.s1.tag = STRUCTURE_TYPE24753; t16803.s1.value.structure_type24753 = &t16804; /* x209173 */ t16802.s0.tag = STRUCTURE_TYPE24753; t16802.s0.value.structure_type24753 = &t16803; /* x209174 */ t16814.s0.tag = EXTERNAL_SYMBOL_TYPE; t16814.s0.value.external_symbol_type = q494; /* x209175 */ t16816.s0.tag = EXTERNAL_SYMBOL_TYPE; t16816.s0.value.external_symbol_type = q120; /* x209176 */ t16818.s0.tag = EXTERNAL_SYMBOL_TYPE; t16818.s0.value.external_symbol_type = q559; /* x209177 */ t16819.s0.tag = EXTERNAL_SYMBOL_TYPE; t16819.s0.value.external_symbol_type = q621; /* x209178 */ t16819.s1.tag = NULL_TYPE; /* x209179 */ t16818.s1.tag = STRUCTURE_TYPE24753; t16818.s1.value.structure_type24753 = &t16819; /* x209180 */ t16817.s0.tag = STRUCTURE_TYPE24753; t16817.s0.value.structure_type24753 = &t16818; /* x209181 */ t16820.s0.tag = FIXNUM_TYPE; t16820.s0.value.fixnum_type = 1; /* x209182 */ t16820.s1.tag = NULL_TYPE; /* x209183 */ t16817.s1.tag = STRUCTURE_TYPE24753; t16817.s1.value.structure_type24753 = &t16820; /* x209184 */ t16816.s1.tag = STRUCTURE_TYPE24753; t16816.s1.value.structure_type24753 = &t16817; /* x209185 */ t16815.s0.tag = STRUCTURE_TYPE24753; t16815.s0.value.structure_type24753 = &t16816; /* x209186 */ t16822.s0.tag = EXTERNAL_SYMBOL_TYPE; t16822.s0.value.external_symbol_type = q179; /* x209187 */ t16823.s0.tag = STRING_TYPE; t16823.s0.value.string_type = "Can\'t allocate gray colorcell"; /* x209188 */ t16823.s1.tag = NULL_TYPE; /* x209189 */ t16822.s1.tag = STRUCTURE_TYPE24753; t16822.s1.value.structure_type24753 = &t16823; /* x209190 */ t16821.s0.tag = STRUCTURE_TYPE24753; t16821.s0.value.structure_type24753 = &t16822; /* x209191 */ t16821.s1.tag = NULL_TYPE; /* x209192 */ t16815.s1.tag = STRUCTURE_TYPE24753; t16815.s1.value.structure_type24753 = &t16821; /* x209193 */ t16814.s1.tag = STRUCTURE_TYPE24753; t16814.s1.value.structure_type24753 = &t16815; /* x209194 */ t16813.s0.tag = STRUCTURE_TYPE24753; t16813.s0.value.structure_type24753 = &t16814; /* x209195 */ t16825.s0.tag = EXTERNAL_SYMBOL_TYPE; t16825.s0.value.external_symbol_type = q42; /* x209196 */ t16826.s0.tag = EXTERNAL_SYMBOL_TYPE; t16826.s0.value.external_symbol_type = q622; /* x209197 */ t16828.s0.tag = EXTERNAL_SYMBOL_TYPE; t16828.s0.value.external_symbol_type = q596; /* x209198 */ t16829.s0.tag = EXTERNAL_SYMBOL_TYPE; t16829.s0.value.external_symbol_type = q540; /* x209199 */ t16830.s0.tag = EXTERNAL_SYMBOL_TYPE; t16830.s0.value.external_symbol_type = q578; /* x209200 */ t16831.s0.tag = FIXNUM_TYPE; t16831.s0.value.fixnum_type = 0; /* x209201 */ t16833.s0.tag = EXTERNAL_SYMBOL_TYPE; t16833.s0.value.external_symbol_type = q597; /* x209202 */ t16833.s1.tag = NULL_TYPE; /* x209203 */ t16832.s0.tag = STRUCTURE_TYPE24753; t16832.s0.value.structure_type24753 = &t16833; /* x209204 */ t16832.s1.tag = NULL_TYPE; /* x209205 */ t16831.s1.tag = STRUCTURE_TYPE24753; t16831.s1.value.structure_type24753 = &t16832; /* x209206 */ t16830.s1.tag = STRUCTURE_TYPE24753; t16830.s1.value.structure_type24753 = &t16831; /* x209207 */ t16829.s1.tag = STRUCTURE_TYPE24753; t16829.s1.value.structure_type24753 = &t16830; /* x209208 */ t16828.s1.tag = STRUCTURE_TYPE24753; t16828.s1.value.structure_type24753 = &t16829; /* x209209 */ t16827.s0.tag = STRUCTURE_TYPE24753; t16827.s0.value.structure_type24753 = &t16828; /* x209210 */ t16827.s1.tag = NULL_TYPE; /* x209211 */ t16826.s1.tag = STRUCTURE_TYPE24753; t16826.s1.value.structure_type24753 = &t16827; /* x209212 */ t16825.s1.tag = STRUCTURE_TYPE24753; t16825.s1.value.structure_type24753 = &t16826; /* x209213 */ t16824.s0.tag = STRUCTURE_TYPE24753; t16824.s0.value.structure_type24753 = &t16825; /* x209214 */ t16835.s0.tag = EXTERNAL_SYMBOL_TYPE; t16835.s0.value.external_symbol_type = q598; /* x209215 */ t16836.s0.tag = EXTERNAL_SYMBOL_TYPE; t16836.s0.value.external_symbol_type = q540; /* x209216 */ t16837.s0.tag = EXTERNAL_SYMBOL_TYPE; t16837.s0.value.external_symbol_type = q622; /* x209217 */ t16839.s0.tag = EXTERNAL_SYMBOL_TYPE; t16839.s0.value.external_symbol_type = q582; /* x209218 */ t16841.s0.tag = EXTERNAL_SYMBOL_TYPE; t16841.s0.value.external_symbol_type = q583; /* x209219 */ t16842.s0.tag = EXTERNAL_SYMBOL_TYPE; t16842.s0.value.external_symbol_type = q555; /* x209220 */ t16842.s1.tag = NULL_TYPE; /* x209221 */ t16841.s1.tag = STRUCTURE_TYPE24753; t16841.s1.value.structure_type24753 = &t16842; /* x209222 */ t16840.s0.tag = STRUCTURE_TYPE24753; t16840.s0.value.structure_type24753 = &t16841; /* x209223 */ t16840.s1.tag = NULL_TYPE; /* x209224 */ t16839.s1.tag = STRUCTURE_TYPE24753; t16839.s1.value.structure_type24753 = &t16840; /* x209225 */ t16838.s0.tag = STRUCTURE_TYPE24753; t16838.s0.value.structure_type24753 = &t16839; /* x209226 */ t16838.s1.tag = NULL_TYPE; /* x209227 */ t16837.s1.tag = STRUCTURE_TYPE24753; t16837.s1.value.structure_type24753 = &t16838; /* x209228 */ t16836.s1.tag = STRUCTURE_TYPE24753; t16836.s1.value.structure_type24753 = &t16837; /* x209229 */ t16835.s1.tag = STRUCTURE_TYPE24753; t16835.s1.value.structure_type24753 = &t16836; /* x209230 */ t16834.s0.tag = STRUCTURE_TYPE24753; t16834.s0.value.structure_type24753 = &t16835; /* x209231 */ t16844.s0.tag = EXTERNAL_SYMBOL_TYPE; t16844.s0.value.external_symbol_type = q599; /* x209232 */ t16845.s0.tag = EXTERNAL_SYMBOL_TYPE; t16845.s0.value.external_symbol_type = q540; /* x209233 */ t16846.s0.tag = EXTERNAL_SYMBOL_TYPE; t16846.s0.value.external_symbol_type = q622; /* x209234 */ t16848.s0.tag = EXTERNAL_SYMBOL_TYPE; t16848.s0.value.external_symbol_type = q582; /* x209235 */ t16850.s0.tag = EXTERNAL_SYMBOL_TYPE; t16850.s0.value.external_symbol_type = q583; /* x209236 */ t16851.s0.tag = EXTERNAL_SYMBOL_TYPE; t16851.s0.value.external_symbol_type = q621; /* x209237 */ t16851.s1.tag = NULL_TYPE; /* x209238 */ t16850.s1.tag = STRUCTURE_TYPE24753; t16850.s1.value.structure_type24753 = &t16851; /* x209239 */ t16849.s0.tag = STRUCTURE_TYPE24753; t16849.s0.value.structure_type24753 = &t16850; /* x209240 */ t16849.s1.tag = NULL_TYPE; /* x209241 */ t16848.s1.tag = STRUCTURE_TYPE24753; t16848.s1.value.structure_type24753 = &t16849; /* x209242 */ t16847.s0.tag = STRUCTURE_TYPE24753; t16847.s0.value.structure_type24753 = &t16848; /* x209243 */ t16847.s1.tag = NULL_TYPE; /* x209244 */ t16846.s1.tag = STRUCTURE_TYPE24753; t16846.s1.value.structure_type24753 = &t16847; /* x209245 */ t16845.s1.tag = STRUCTURE_TYPE24753; t16845.s1.value.structure_type24753 = &t16846; /* x209246 */ t16844.s1.tag = STRUCTURE_TYPE24753; t16844.s1.value.structure_type24753 = &t16845; /* x209247 */ t16843.s0.tag = STRUCTURE_TYPE24753; t16843.s0.value.structure_type24753 = &t16844; /* x209248 */ t16853.s0.tag = EXTERNAL_SYMBOL_TYPE; t16853.s0.value.external_symbol_type = q600; /* x209249 */ t16854.s0.tag = EXTERNAL_SYMBOL_TYPE; t16854.s0.value.external_symbol_type = q540; /* x209250 */ t16855.s0.tag = EXTERNAL_SYMBOL_TYPE; t16855.s0.value.external_symbol_type = q622; /* x209251 */ t16856.s0.tag = FIXNUM_TYPE; t16856.s0.value.fixnum_type = 0; /* x209252 */ t16857.s0.tag = EXTERNAL_SYMBOL_TYPE; t16857.s0.value.external_symbol_type = q601; /* x209253 */ t16858.s0.tag = EXTERNAL_SYMBOL_TYPE; t16858.s0.value.external_symbol_type = q602; /* x209254 */ t16859.s0.tag = EXTERNAL_SYMBOL_TYPE; t16859.s0.value.external_symbol_type = q603; /* x209255 */ t16859.s1.tag = NULL_TYPE; /* x209256 */ t16858.s1.tag = STRUCTURE_TYPE24753; t16858.s1.value.structure_type24753 = &t16859; /* x209257 */ t16857.s1.tag = STRUCTURE_TYPE24753; t16857.s1.value.structure_type24753 = &t16858; /* x209258 */ t16856.s1.tag = STRUCTURE_TYPE24753; t16856.s1.value.structure_type24753 = &t16857; /* x209259 */ t16855.s1.tag = STRUCTURE_TYPE24753; t16855.s1.value.structure_type24753 = &t16856; /* x209260 */ t16854.s1.tag = STRUCTURE_TYPE24753; t16854.s1.value.structure_type24753 = &t16855; /* x209261 */ t16853.s1.tag = STRUCTURE_TYPE24753; t16853.s1.value.structure_type24753 = &t16854; /* x209262 */ t16852.s0.tag = STRUCTURE_TYPE24753; t16852.s0.value.structure_type24753 = &t16853; /* x209263 */ t16861.s0.tag = EXTERNAL_SYMBOL_TYPE; t16861.s0.value.external_symbol_type = q42; /* x209264 */ t16862.s0.tag = EXTERNAL_SYMBOL_TYPE; t16862.s0.value.external_symbol_type = q623; /* x209265 */ t16864.s0.tag = EXTERNAL_SYMBOL_TYPE; t16864.s0.value.external_symbol_type = q556; /* x209266 */ t16865.s0.tag = EXTERNAL_SYMBOL_TYPE; t16865.s0.value.external_symbol_type = q540; /* x209267 */ t16867.s0.tag = EXTERNAL_SYMBOL_TYPE; t16867.s0.value.external_symbol_type = q557; /* x209268 */ t16868.s0.tag = EXTERNAL_SYMBOL_TYPE; t16868.s0.value.external_symbol_type = q540; /* x209269 */ t16869.s0.tag = EXTERNAL_SYMBOL_TYPE; t16869.s0.value.external_symbol_type = q545; /* x209270 */ t16869.s1.tag = NULL_TYPE; /* x209271 */ t16868.s1.tag = STRUCTURE_TYPE24753; t16868.s1.value.structure_type24753 = &t16869; /* x209272 */ t16867.s1.tag = STRUCTURE_TYPE24753; t16867.s1.value.structure_type24753 = &t16868; /* x209273 */ t16866.s0.tag = STRUCTURE_TYPE24753; t16866.s0.value.structure_type24753 = &t16867; /* x209274 */ t16870.s0.tag = STRING_TYPE; t16870.s0.value.string_type = "Red"; /* x209275 */ t16870.s1.tag = NULL_TYPE; /* x209276 */ t16866.s1.tag = STRUCTURE_TYPE24753; t16866.s1.value.structure_type24753 = &t16870; /* x209277 */ t16865.s1.tag = STRUCTURE_TYPE24753; t16865.s1.value.structure_type24753 = &t16866; /* x209278 */ t16864.s1.tag = STRUCTURE_TYPE24753; t16864.s1.value.structure_type24753 = &t16865; /* x209279 */ t16863.s0.tag = STRUCTURE_TYPE24753; t16863.s0.value.structure_type24753 = &t16864; /* x209280 */ t16863.s1.tag = NULL_TYPE; /* x209281 */ t16862.s1.tag = STRUCTURE_TYPE24753; t16862.s1.value.structure_type24753 = &t16863; /* x209282 */ t16861.s1.tag = STRUCTURE_TYPE24753; t16861.s1.value.structure_type24753 = &t16862; /* x209283 */ t16860.s0.tag = STRUCTURE_TYPE24753; t16860.s0.value.structure_type24753 = &t16861; /* x209284 */ t16872.s0.tag = EXTERNAL_SYMBOL_TYPE; t16872.s0.value.external_symbol_type = q494; /* x209285 */ t16874.s0.tag = EXTERNAL_SYMBOL_TYPE; t16874.s0.value.external_symbol_type = q120; /* x209286 */ t16876.s0.tag = EXTERNAL_SYMBOL_TYPE; t16876.s0.value.external_symbol_type = q559; /* x209287 */ t16877.s0.tag = EXTERNAL_SYMBOL_TYPE; t16877.s0.value.external_symbol_type = q623; /* x209288 */ t16877.s1.tag = NULL_TYPE; /* x209289 */ t16876.s1.tag = STRUCTURE_TYPE24753; t16876.s1.value.structure_type24753 = &t16877; /* x209290 */ t16875.s0.tag = STRUCTURE_TYPE24753; t16875.s0.value.structure_type24753 = &t16876; /* x209291 */ t16878.s0.tag = FIXNUM_TYPE; t16878.s0.value.fixnum_type = 1; /* x209292 */ t16878.s1.tag = NULL_TYPE; /* x209293 */ t16875.s1.tag = STRUCTURE_TYPE24753; t16875.s1.value.structure_type24753 = &t16878; /* x209294 */ t16874.s1.tag = STRUCTURE_TYPE24753; t16874.s1.value.structure_type24753 = &t16875; /* x209295 */ t16873.s0.tag = STRUCTURE_TYPE24753; t16873.s0.value.structure_type24753 = &t16874; /* x209296 */ t16880.s0.tag = EXTERNAL_SYMBOL_TYPE; t16880.s0.value.external_symbol_type = q179; /* x209297 */ t16881.s0.tag = STRING_TYPE; t16881.s0.value.string_type = "Can\'t allocate red colorcell"; /* x209298 */ t16881.s1.tag = NULL_TYPE; /* x209299 */ t16880.s1.tag = STRUCTURE_TYPE24753; t16880.s1.value.structure_type24753 = &t16881; /* x209300 */ t16879.s0.tag = STRUCTURE_TYPE24753; t16879.s0.value.structure_type24753 = &t16880; /* x209301 */ t16879.s1.tag = NULL_TYPE; /* x209302 */ t16873.s1.tag = STRUCTURE_TYPE24753; t16873.s1.value.structure_type24753 = &t16879; /* x209303 */ t16872.s1.tag = STRUCTURE_TYPE24753; t16872.s1.value.structure_type24753 = &t16873; /* x209304 */ t16871.s0.tag = STRUCTURE_TYPE24753; t16871.s0.value.structure_type24753 = &t16872; /* x209305 */ t16883.s0.tag = EXTERNAL_SYMBOL_TYPE; t16883.s0.value.external_symbol_type = q42; /* x209306 */ t16884.s0.tag = EXTERNAL_SYMBOL_TYPE; t16884.s0.value.external_symbol_type = q624; /* x209307 */ t16886.s0.tag = EXTERNAL_SYMBOL_TYPE; t16886.s0.value.external_symbol_type = q596; /* x209308 */ t16887.s0.tag = EXTERNAL_SYMBOL_TYPE; t16887.s0.value.external_symbol_type = q540; /* x209309 */ t16888.s0.tag = EXTERNAL_SYMBOL_TYPE; t16888.s0.value.external_symbol_type = q578; /* x209310 */ t16889.s0.tag = FIXNUM_TYPE; t16889.s0.value.fixnum_type = 0; /* x209311 */ t16891.s0.tag = EXTERNAL_SYMBOL_TYPE; t16891.s0.value.external_symbol_type = q597; /* x209312 */ t16891.s1.tag = NULL_TYPE; /* x209313 */ t16890.s0.tag = STRUCTURE_TYPE24753; t16890.s0.value.structure_type24753 = &t16891; /* x209314 */ t16890.s1.tag = NULL_TYPE; /* x209315 */ t16889.s1.tag = STRUCTURE_TYPE24753; t16889.s1.value.structure_type24753 = &t16890; /* x209316 */ t16888.s1.tag = STRUCTURE_TYPE24753; t16888.s1.value.structure_type24753 = &t16889; /* x209317 */ t16887.s1.tag = STRUCTURE_TYPE24753; t16887.s1.value.structure_type24753 = &t16888; /* x209318 */ t16886.s1.tag = STRUCTURE_TYPE24753; t16886.s1.value.structure_type24753 = &t16887; /* x209319 */ t16885.s0.tag = STRUCTURE_TYPE24753; t16885.s0.value.structure_type24753 = &t16886; /* x209320 */ t16885.s1.tag = NULL_TYPE; /* x209321 */ t16884.s1.tag = STRUCTURE_TYPE24753; t16884.s1.value.structure_type24753 = &t16885; /* x209322 */ t16883.s1.tag = STRUCTURE_TYPE24753; t16883.s1.value.structure_type24753 = &t16884; /* x209323 */ t16882.s0.tag = STRUCTURE_TYPE24753; t16882.s0.value.structure_type24753 = &t16883; /* x209324 */ t16893.s0.tag = EXTERNAL_SYMBOL_TYPE; t16893.s0.value.external_symbol_type = q598; /* x209325 */ t16894.s0.tag = EXTERNAL_SYMBOL_TYPE; t16894.s0.value.external_symbol_type = q540; /* x209326 */ t16895.s0.tag = EXTERNAL_SYMBOL_TYPE; t16895.s0.value.external_symbol_type = q624; /* x209327 */ t16897.s0.tag = EXTERNAL_SYMBOL_TYPE; t16897.s0.value.external_symbol_type = q582; /* x209328 */ t16899.s0.tag = EXTERNAL_SYMBOL_TYPE; t16899.s0.value.external_symbol_type = q583; /* x209329 */ t16900.s0.tag = EXTERNAL_SYMBOL_TYPE; t16900.s0.value.external_symbol_type = q555; /* x209330 */ t16900.s1.tag = NULL_TYPE; /* x209331 */ t16899.s1.tag = STRUCTURE_TYPE24753; t16899.s1.value.structure_type24753 = &t16900; /* x209332 */ t16898.s0.tag = STRUCTURE_TYPE24753; t16898.s0.value.structure_type24753 = &t16899; /* x209333 */ t16898.s1.tag = NULL_TYPE; /* x209334 */ t16897.s1.tag = STRUCTURE_TYPE24753; t16897.s1.value.structure_type24753 = &t16898; /* x209335 */ t16896.s0.tag = STRUCTURE_TYPE24753; t16896.s0.value.structure_type24753 = &t16897; /* x209336 */ t16896.s1.tag = NULL_TYPE; /* x209337 */ t16895.s1.tag = STRUCTURE_TYPE24753; t16895.s1.value.structure_type24753 = &t16896; /* x209338 */ t16894.s1.tag = STRUCTURE_TYPE24753; t16894.s1.value.structure_type24753 = &t16895; /* x209339 */ t16893.s1.tag = STRUCTURE_TYPE24753; t16893.s1.value.structure_type24753 = &t16894; /* x209340 */ t16892.s0.tag = STRUCTURE_TYPE24753; t16892.s0.value.structure_type24753 = &t16893; /* x209341 */ t16902.s0.tag = EXTERNAL_SYMBOL_TYPE; t16902.s0.value.external_symbol_type = q599; /* x209342 */ t16903.s0.tag = EXTERNAL_SYMBOL_TYPE; t16903.s0.value.external_symbol_type = q540; /* x209343 */ t16904.s0.tag = EXTERNAL_SYMBOL_TYPE; t16904.s0.value.external_symbol_type = q624; /* x209344 */ t16906.s0.tag = EXTERNAL_SYMBOL_TYPE; t16906.s0.value.external_symbol_type = q582; /* x209345 */ t16908.s0.tag = EXTERNAL_SYMBOL_TYPE; t16908.s0.value.external_symbol_type = q583; /* x209346 */ t16909.s0.tag = EXTERNAL_SYMBOL_TYPE; t16909.s0.value.external_symbol_type = q623; /* x209347 */ t16909.s1.tag = NULL_TYPE; /* x209348 */ t16908.s1.tag = STRUCTURE_TYPE24753; t16908.s1.value.structure_type24753 = &t16909; /* x209349 */ t16907.s0.tag = STRUCTURE_TYPE24753; t16907.s0.value.structure_type24753 = &t16908; /* x209350 */ t16907.s1.tag = NULL_TYPE; /* x209351 */ t16906.s1.tag = STRUCTURE_TYPE24753; t16906.s1.value.structure_type24753 = &t16907; /* x209352 */ t16905.s0.tag = STRUCTURE_TYPE24753; t16905.s0.value.structure_type24753 = &t16906; /* x209353 */ t16905.s1.tag = NULL_TYPE; /* x209354 */ t16904.s1.tag = STRUCTURE_TYPE24753; t16904.s1.value.structure_type24753 = &t16905; /* x209355 */ t16903.s1.tag = STRUCTURE_TYPE24753; t16903.s1.value.structure_type24753 = &t16904; /* x209356 */ t16902.s1.tag = STRUCTURE_TYPE24753; t16902.s1.value.structure_type24753 = &t16903; /* x209357 */ t16901.s0.tag = STRUCTURE_TYPE24753; t16901.s0.value.structure_type24753 = &t16902; /* x209358 */ t16911.s0.tag = EXTERNAL_SYMBOL_TYPE; t16911.s0.value.external_symbol_type = q615; /* x209359 */ t16912.s0.tag = EXTERNAL_SYMBOL_TYPE; t16912.s0.value.external_symbol_type = q540; /* x209360 */ t16913.s0.tag = EXTERNAL_SYMBOL_TYPE; t16913.s0.value.external_symbol_type = q624; /* x209361 */ t16915.s0.tag = EXTERNAL_SYMBOL_TYPE; t16915.s0.value.external_symbol_type = q616; /* x209362 */ t16916.s0.tag = EXTERNAL_SYMBOL_TYPE; t16916.s0.value.external_symbol_type = q562; /* x209363 */ t16916.s1.tag = NULL_TYPE; /* x209364 */ t16915.s1.tag = STRUCTURE_TYPE24753; t16915.s1.value.structure_type24753 = &t16916; /* x209365 */ t16914.s0.tag = STRUCTURE_TYPE24753; t16914.s0.value.structure_type24753 = &t16915; /* x209366 */ t16914.s1.tag = NULL_TYPE; /* x209367 */ t16913.s1.tag = STRUCTURE_TYPE24753; t16913.s1.value.structure_type24753 = &t16914; /* x209368 */ t16912.s1.tag = STRUCTURE_TYPE24753; t16912.s1.value.structure_type24753 = &t16913; /* x209369 */ t16911.s1.tag = STRUCTURE_TYPE24753; t16911.s1.value.structure_type24753 = &t16912; /* x209370 */ t16910.s0.tag = STRUCTURE_TYPE24753; t16910.s0.value.structure_type24753 = &t16911; /* x209371 */ t16918.s0.tag = EXTERNAL_SYMBOL_TYPE; t16918.s0.value.external_symbol_type = q600; /* x209372 */ t16919.s0.tag = EXTERNAL_SYMBOL_TYPE; t16919.s0.value.external_symbol_type = q540; /* x209373 */ t16920.s0.tag = EXTERNAL_SYMBOL_TYPE; t16920.s0.value.external_symbol_type = q624; /* x209374 */ t16921.s0.tag = FIXNUM_TYPE; t16921.s0.value.fixnum_type = 0; /* x209375 */ t16922.s0.tag = EXTERNAL_SYMBOL_TYPE; t16922.s0.value.external_symbol_type = q601; /* x209376 */ t16923.s0.tag = EXTERNAL_SYMBOL_TYPE; t16923.s0.value.external_symbol_type = q602; /* x209377 */ t16924.s0.tag = EXTERNAL_SYMBOL_TYPE; t16924.s0.value.external_symbol_type = q603; /* x209378 */ t16924.s1.tag = NULL_TYPE; /* x209379 */ t16923.s1.tag = STRUCTURE_TYPE24753; t16923.s1.value.structure_type24753 = &t16924; /* x209380 */ t16922.s1.tag = STRUCTURE_TYPE24753; t16922.s1.value.structure_type24753 = &t16923; /* x209381 */ t16921.s1.tag = STRUCTURE_TYPE24753; t16921.s1.value.structure_type24753 = &t16922; /* x209382 */ t16920.s1.tag = STRUCTURE_TYPE24753; t16920.s1.value.structure_type24753 = &t16921; /* x209383 */ t16919.s1.tag = STRUCTURE_TYPE24753; t16919.s1.value.structure_type24753 = &t16920; /* x209384 */ t16918.s1.tag = STRUCTURE_TYPE24753; t16918.s1.value.structure_type24753 = &t16919; /* x209385 */ t16917.s0.tag = STRUCTURE_TYPE24753; t16917.s0.value.structure_type24753 = &t16918; /* x209386 */ t16926.s0.tag = EXTERNAL_SYMBOL_TYPE; t16926.s0.value.external_symbol_type = q42; /* x209387 */ t16927.s0.tag = EXTERNAL_SYMBOL_TYPE; t16927.s0.value.external_symbol_type = q625; /* x209388 */ t16929.s0.tag = EXTERNAL_SYMBOL_TYPE; t16929.s0.value.external_symbol_type = q556; /* x209389 */ t16930.s0.tag = EXTERNAL_SYMBOL_TYPE; t16930.s0.value.external_symbol_type = q540; /* x209390 */ t16932.s0.tag = EXTERNAL_SYMBOL_TYPE; t16932.s0.value.external_symbol_type = q557; /* x209391 */ t16933.s0.tag = EXTERNAL_SYMBOL_TYPE; t16933.s0.value.external_symbol_type = q540; /* x209392 */ t16934.s0.tag = EXTERNAL_SYMBOL_TYPE; t16934.s0.value.external_symbol_type = q545; /* x209393 */ t16934.s1.tag = NULL_TYPE; /* x209394 */ t16933.s1.tag = STRUCTURE_TYPE24753; t16933.s1.value.structure_type24753 = &t16934; /* x209395 */ t16932.s1.tag = STRUCTURE_TYPE24753; t16932.s1.value.structure_type24753 = &t16933; /* x209396 */ t16931.s0.tag = STRUCTURE_TYPE24753; t16931.s0.value.structure_type24753 = &t16932; /* x209397 */ t16935.s0.tag = STRING_TYPE; t16935.s0.value.string_type = "Dark Red"; /* x209398 */ t16935.s1.tag = NULL_TYPE; /* x209399 */ t16931.s1.tag = STRUCTURE_TYPE24753; t16931.s1.value.structure_type24753 = &t16935; /* x209400 */ t16930.s1.tag = STRUCTURE_TYPE24753; t16930.s1.value.structure_type24753 = &t16931; /* x209401 */ t16929.s1.tag = STRUCTURE_TYPE24753; t16929.s1.value.structure_type24753 = &t16930; /* x209402 */ t16928.s0.tag = STRUCTURE_TYPE24753; t16928.s0.value.structure_type24753 = &t16929; /* x209403 */ t16928.s1.tag = NULL_TYPE; /* x209404 */ t16927.s1.tag = STRUCTURE_TYPE24753; t16927.s1.value.structure_type24753 = &t16928; /* x209405 */ t16926.s1.tag = STRUCTURE_TYPE24753; t16926.s1.value.structure_type24753 = &t16927; /* x209406 */ t16925.s0.tag = STRUCTURE_TYPE24753; t16925.s0.value.structure_type24753 = &t16926; /* x209407 */ t16937.s0.tag = EXTERNAL_SYMBOL_TYPE; t16937.s0.value.external_symbol_type = q494; /* x209408 */ t16939.s0.tag = EXTERNAL_SYMBOL_TYPE; t16939.s0.value.external_symbol_type = q120; /* x209409 */ t16941.s0.tag = EXTERNAL_SYMBOL_TYPE; t16941.s0.value.external_symbol_type = q559; /* x209410 */ t16942.s0.tag = EXTERNAL_SYMBOL_TYPE; t16942.s0.value.external_symbol_type = q625; /* x209411 */ t16942.s1.tag = NULL_TYPE; /* x209412 */ t16941.s1.tag = STRUCTURE_TYPE24753; t16941.s1.value.structure_type24753 = &t16942; /* x209413 */ t16940.s0.tag = STRUCTURE_TYPE24753; t16940.s0.value.structure_type24753 = &t16941; /* x209414 */ t16943.s0.tag = FIXNUM_TYPE; t16943.s0.value.fixnum_type = 1; /* x209415 */ t16943.s1.tag = NULL_TYPE; /* x209416 */ t16940.s1.tag = STRUCTURE_TYPE24753; t16940.s1.value.structure_type24753 = &t16943; /* x209417 */ t16939.s1.tag = STRUCTURE_TYPE24753; t16939.s1.value.structure_type24753 = &t16940; /* x209418 */ t16938.s0.tag = STRUCTURE_TYPE24753; t16938.s0.value.structure_type24753 = &t16939; /* x209419 */ t16945.s0.tag = EXTERNAL_SYMBOL_TYPE; t16945.s0.value.external_symbol_type = q179; /* x209420 */ t16946.s0.tag = STRING_TYPE; t16946.s0.value.string_type = "Can\'t allocate dark red colorcell"; /* x209421 */ t16946.s1.tag = NULL_TYPE; /* x209422 */ t16945.s1.tag = STRUCTURE_TYPE24753; t16945.s1.value.structure_type24753 = &t16946; /* x209423 */ t16944.s0.tag = STRUCTURE_TYPE24753; t16944.s0.value.structure_type24753 = &t16945; /* x209424 */ t16944.s1.tag = NULL_TYPE; /* x209425 */ t16938.s1.tag = STRUCTURE_TYPE24753; t16938.s1.value.structure_type24753 = &t16944; /* x209426 */ t16937.s1.tag = STRUCTURE_TYPE24753; t16937.s1.value.structure_type24753 = &t16938; /* x209427 */ t16936.s0.tag = STRUCTURE_TYPE24753; t16936.s0.value.structure_type24753 = &t16937; /* x209428 */ t16948.s0.tag = EXTERNAL_SYMBOL_TYPE; t16948.s0.value.external_symbol_type = q42; /* x209429 */ t16949.s0.tag = EXTERNAL_SYMBOL_TYPE; t16949.s0.value.external_symbol_type = q626; /* x209430 */ t16951.s0.tag = EXTERNAL_SYMBOL_TYPE; t16951.s0.value.external_symbol_type = q596; /* x209431 */ t16952.s0.tag = EXTERNAL_SYMBOL_TYPE; t16952.s0.value.external_symbol_type = q540; /* x209432 */ t16953.s0.tag = EXTERNAL_SYMBOL_TYPE; t16953.s0.value.external_symbol_type = q578; /* x209433 */ t16954.s0.tag = FIXNUM_TYPE; t16954.s0.value.fixnum_type = 0; /* x209434 */ t16956.s0.tag = EXTERNAL_SYMBOL_TYPE; t16956.s0.value.external_symbol_type = q597; /* x209435 */ t16956.s1.tag = NULL_TYPE; /* x209436 */ t16955.s0.tag = STRUCTURE_TYPE24753; t16955.s0.value.structure_type24753 = &t16956; /* x209437 */ t16955.s1.tag = NULL_TYPE; /* x209438 */ t16954.s1.tag = STRUCTURE_TYPE24753; t16954.s1.value.structure_type24753 = &t16955; /* x209439 */ t16953.s1.tag = STRUCTURE_TYPE24753; t16953.s1.value.structure_type24753 = &t16954; /* x209440 */ t16952.s1.tag = STRUCTURE_TYPE24753; t16952.s1.value.structure_type24753 = &t16953; /* x209441 */ t16951.s1.tag = STRUCTURE_TYPE24753; t16951.s1.value.structure_type24753 = &t16952; /* x209442 */ t16950.s0.tag = STRUCTURE_TYPE24753; t16950.s0.value.structure_type24753 = &t16951; /* x209443 */ t16950.s1.tag = NULL_TYPE; /* x209444 */ t16949.s1.tag = STRUCTURE_TYPE24753; t16949.s1.value.structure_type24753 = &t16950; /* x209445 */ t16948.s1.tag = STRUCTURE_TYPE24753; t16948.s1.value.structure_type24753 = &t16949; /* x209446 */ t16947.s0.tag = STRUCTURE_TYPE24753; t16947.s0.value.structure_type24753 = &t16948; /* x209447 */ t16958.s0.tag = EXTERNAL_SYMBOL_TYPE; t16958.s0.value.external_symbol_type = q598; /* x209448 */ t16959.s0.tag = EXTERNAL_SYMBOL_TYPE; t16959.s0.value.external_symbol_type = q540; /* x209449 */ t16960.s0.tag = EXTERNAL_SYMBOL_TYPE; t16960.s0.value.external_symbol_type = q626; /* x209450 */ t16962.s0.tag = EXTERNAL_SYMBOL_TYPE; t16962.s0.value.external_symbol_type = q582; /* x209451 */ t16964.s0.tag = EXTERNAL_SYMBOL_TYPE; t16964.s0.value.external_symbol_type = q583; /* x209452 */ t16965.s0.tag = EXTERNAL_SYMBOL_TYPE; t16965.s0.value.external_symbol_type = q555; /* x209453 */ t16965.s1.tag = NULL_TYPE; /* x209454 */ t16964.s1.tag = STRUCTURE_TYPE24753; t16964.s1.value.structure_type24753 = &t16965; /* x209455 */ t16963.s0.tag = STRUCTURE_TYPE24753; t16963.s0.value.structure_type24753 = &t16964; /* x209456 */ t16963.s1.tag = NULL_TYPE; /* x209457 */ t16962.s1.tag = STRUCTURE_TYPE24753; t16962.s1.value.structure_type24753 = &t16963; /* x209458 */ t16961.s0.tag = STRUCTURE_TYPE24753; t16961.s0.value.structure_type24753 = &t16962; /* x209459 */ t16961.s1.tag = NULL_TYPE; /* x209460 */ t16960.s1.tag = STRUCTURE_TYPE24753; t16960.s1.value.structure_type24753 = &t16961; /* x209461 */ t16959.s1.tag = STRUCTURE_TYPE24753; t16959.s1.value.structure_type24753 = &t16960; /* x209462 */ t16958.s1.tag = STRUCTURE_TYPE24753; t16958.s1.value.structure_type24753 = &t16959; /* x209463 */ t16957.s0.tag = STRUCTURE_TYPE24753; t16957.s0.value.structure_type24753 = &t16958; /* x209464 */ t16967.s0.tag = EXTERNAL_SYMBOL_TYPE; t16967.s0.value.external_symbol_type = q599; /* x209465 */ t16968.s0.tag = EXTERNAL_SYMBOL_TYPE; t16968.s0.value.external_symbol_type = q540; /* x209466 */ t16969.s0.tag = EXTERNAL_SYMBOL_TYPE; t16969.s0.value.external_symbol_type = q626; /* x209467 */ t16971.s0.tag = EXTERNAL_SYMBOL_TYPE; t16971.s0.value.external_symbol_type = q582; /* x209468 */ t16973.s0.tag = EXTERNAL_SYMBOL_TYPE; t16973.s0.value.external_symbol_type = q583; /* x209469 */ t16974.s0.tag = EXTERNAL_SYMBOL_TYPE; t16974.s0.value.external_symbol_type = q625; /* x209470 */ t16974.s1.tag = NULL_TYPE; /* x209471 */ t16973.s1.tag = STRUCTURE_TYPE24753; t16973.s1.value.structure_type24753 = &t16974; /* x209472 */ t16972.s0.tag = STRUCTURE_TYPE24753; t16972.s0.value.structure_type24753 = &t16973; /* x209473 */ t16972.s1.tag = NULL_TYPE; /* x209474 */ t16971.s1.tag = STRUCTURE_TYPE24753; t16971.s1.value.structure_type24753 = &t16972; /* x209475 */ t16970.s0.tag = STRUCTURE_TYPE24753; t16970.s0.value.structure_type24753 = &t16971; /* x209476 */ t16970.s1.tag = NULL_TYPE; /* x209477 */ t16969.s1.tag = STRUCTURE_TYPE24753; t16969.s1.value.structure_type24753 = &t16970; /* x209478 */ t16968.s1.tag = STRUCTURE_TYPE24753; t16968.s1.value.structure_type24753 = &t16969; /* x209479 */ t16967.s1.tag = STRUCTURE_TYPE24753; t16967.s1.value.structure_type24753 = &t16968; /* x209480 */ t16966.s0.tag = STRUCTURE_TYPE24753; t16966.s0.value.structure_type24753 = &t16967; /* x209481 */ t16976.s0.tag = EXTERNAL_SYMBOL_TYPE; t16976.s0.value.external_symbol_type = q615; /* x209482 */ t16977.s0.tag = EXTERNAL_SYMBOL_TYPE; t16977.s0.value.external_symbol_type = q540; /* x209483 */ t16978.s0.tag = EXTERNAL_SYMBOL_TYPE; t16978.s0.value.external_symbol_type = q626; /* x209484 */ t16980.s0.tag = EXTERNAL_SYMBOL_TYPE; t16980.s0.value.external_symbol_type = q616; /* x209485 */ t16981.s0.tag = EXTERNAL_SYMBOL_TYPE; t16981.s0.value.external_symbol_type = q562; /* x209486 */ t16981.s1.tag = NULL_TYPE; /* x209487 */ t16980.s1.tag = STRUCTURE_TYPE24753; t16980.s1.value.structure_type24753 = &t16981; /* x209488 */ t16979.s0.tag = STRUCTURE_TYPE24753; t16979.s0.value.structure_type24753 = &t16980; /* x209489 */ t16979.s1.tag = NULL_TYPE; /* x209490 */ t16978.s1.tag = STRUCTURE_TYPE24753; t16978.s1.value.structure_type24753 = &t16979; /* x209491 */ t16977.s1.tag = STRUCTURE_TYPE24753; t16977.s1.value.structure_type24753 = &t16978; /* x209492 */ t16976.s1.tag = STRUCTURE_TYPE24753; t16976.s1.value.structure_type24753 = &t16977; /* x209493 */ t16975.s0.tag = STRUCTURE_TYPE24753; t16975.s0.value.structure_type24753 = &t16976; /* x209494 */ t16983.s0.tag = EXTERNAL_SYMBOL_TYPE; t16983.s0.value.external_symbol_type = q600; /* x209495 */ t16984.s0.tag = EXTERNAL_SYMBOL_TYPE; t16984.s0.value.external_symbol_type = q540; /* x209496 */ t16985.s0.tag = EXTERNAL_SYMBOL_TYPE; t16985.s0.value.external_symbol_type = q626; /* x209497 */ t16986.s0.tag = FIXNUM_TYPE; t16986.s0.value.fixnum_type = 0; /* x209498 */ t16987.s0.tag = EXTERNAL_SYMBOL_TYPE; t16987.s0.value.external_symbol_type = q601; /* x209499 */ t16988.s0.tag = EXTERNAL_SYMBOL_TYPE; t16988.s0.value.external_symbol_type = q602; /* x209500 */ t16989.s0.tag = EXTERNAL_SYMBOL_TYPE; t16989.s0.value.external_symbol_type = q603; /* x209501 */ t16989.s1.tag = NULL_TYPE; /* x209502 */ t16988.s1.tag = STRUCTURE_TYPE24753; t16988.s1.value.structure_type24753 = &t16989; /* x209503 */ t16987.s1.tag = STRUCTURE_TYPE24753; t16987.s1.value.structure_type24753 = &t16988; /* x209504 */ t16986.s1.tag = STRUCTURE_TYPE24753; t16986.s1.value.structure_type24753 = &t16987; /* x209505 */ t16985.s1.tag = STRUCTURE_TYPE24753; t16985.s1.value.structure_type24753 = &t16986; /* x209506 */ t16984.s1.tag = STRUCTURE_TYPE24753; t16984.s1.value.structure_type24753 = &t16985; /* x209507 */ t16983.s1.tag = STRUCTURE_TYPE24753; t16983.s1.value.structure_type24753 = &t16984; /* x209508 */ t16982.s0.tag = STRUCTURE_TYPE24753; t16982.s0.value.structure_type24753 = &t16983; /* x209509 */ t16991.s0.tag = EXTERNAL_SYMBOL_TYPE; t16991.s0.value.external_symbol_type = q42; /* x209510 */ t16992.s0.tag = EXTERNAL_SYMBOL_TYPE; t16992.s0.value.external_symbol_type = q627; /* x209511 */ t16994.s0.tag = EXTERNAL_SYMBOL_TYPE; t16994.s0.value.external_symbol_type = q556; /* x209512 */ t16995.s0.tag = EXTERNAL_SYMBOL_TYPE; t16995.s0.value.external_symbol_type = q540; /* x209513 */ t16997.s0.tag = EXTERNAL_SYMBOL_TYPE; t16997.s0.value.external_symbol_type = q557; /* x209514 */ t16998.s0.tag = EXTERNAL_SYMBOL_TYPE; t16998.s0.value.external_symbol_type = q540; /* x209515 */ t16999.s0.tag = EXTERNAL_SYMBOL_TYPE; t16999.s0.value.external_symbol_type = q545; /* x209516 */ t16999.s1.tag = NULL_TYPE; /* x209517 */ t16998.s1.tag = STRUCTURE_TYPE24753; t16998.s1.value.structure_type24753 = &t16999; /* x209518 */ t16997.s1.tag = STRUCTURE_TYPE24753; t16997.s1.value.structure_type24753 = &t16998; /* x209519 */ t16996.s0.tag = STRUCTURE_TYPE24753; t16996.s0.value.structure_type24753 = &t16997; /* x209520 */ t17000.s0.tag = STRING_TYPE; t17000.s0.value.string_type = "Green"; /* x209521 */ t17000.s1.tag = NULL_TYPE; /* x209522 */ t16996.s1.tag = STRUCTURE_TYPE24753; t16996.s1.value.structure_type24753 = &t17000; /* x209523 */ t16995.s1.tag = STRUCTURE_TYPE24753; t16995.s1.value.structure_type24753 = &t16996; /* x209524 */ t16994.s1.tag = STRUCTURE_TYPE24753; t16994.s1.value.structure_type24753 = &t16995; /* x209525 */ t16993.s0.tag = STRUCTURE_TYPE24753; t16993.s0.value.structure_type24753 = &t16994; /* x209526 */ t16993.s1.tag = NULL_TYPE; /* x209527 */ t16992.s1.tag = STRUCTURE_TYPE24753; t16992.s1.value.structure_type24753 = &t16993; /* x209528 */ t16991.s1.tag = STRUCTURE_TYPE24753; t16991.s1.value.structure_type24753 = &t16992; /* x209529 */ t16990.s0.tag = STRUCTURE_TYPE24753; t16990.s0.value.structure_type24753 = &t16991; /* x209530 */ t17002.s0.tag = EXTERNAL_SYMBOL_TYPE; t17002.s0.value.external_symbol_type = q494; /* x209531 */ t17004.s0.tag = EXTERNAL_SYMBOL_TYPE; t17004.s0.value.external_symbol_type = q120; /* x209532 */ t17006.s0.tag = EXTERNAL_SYMBOL_TYPE; t17006.s0.value.external_symbol_type = q559; /* x209533 */ t17007.s0.tag = EXTERNAL_SYMBOL_TYPE; t17007.s0.value.external_symbol_type = q627; /* x209534 */ t17007.s1.tag = NULL_TYPE; /* x209535 */ t17006.s1.tag = STRUCTURE_TYPE24753; t17006.s1.value.structure_type24753 = &t17007; /* x209536 */ t17005.s0.tag = STRUCTURE_TYPE24753; t17005.s0.value.structure_type24753 = &t17006; /* x209537 */ t17008.s0.tag = FIXNUM_TYPE; t17008.s0.value.fixnum_type = 1; /* x209538 */ t17008.s1.tag = NULL_TYPE; /* x209539 */ t17005.s1.tag = STRUCTURE_TYPE24753; t17005.s1.value.structure_type24753 = &t17008; /* x209540 */ t17004.s1.tag = STRUCTURE_TYPE24753; t17004.s1.value.structure_type24753 = &t17005; /* x209541 */ t17003.s0.tag = STRUCTURE_TYPE24753; t17003.s0.value.structure_type24753 = &t17004; /* x209542 */ t17010.s0.tag = EXTERNAL_SYMBOL_TYPE; t17010.s0.value.external_symbol_type = q179; /* x209543 */ t17011.s0.tag = STRING_TYPE; t17011.s0.value.string_type = "Can\'t allocate green colorcell"; /* x209544 */ t17011.s1.tag = NULL_TYPE; /* x209545 */ t17010.s1.tag = STRUCTURE_TYPE24753; t17010.s1.value.structure_type24753 = &t17011; /* x209546 */ t17009.s0.tag = STRUCTURE_TYPE24753; t17009.s0.value.structure_type24753 = &t17010; /* x209547 */ t17009.s1.tag = NULL_TYPE; /* x209548 */ t17003.s1.tag = STRUCTURE_TYPE24753; t17003.s1.value.structure_type24753 = &t17009; /* x209549 */ t17002.s1.tag = STRUCTURE_TYPE24753; t17002.s1.value.structure_type24753 = &t17003; /* x209550 */ t17001.s0.tag = STRUCTURE_TYPE24753; t17001.s0.value.structure_type24753 = &t17002; /* x209551 */ t17013.s0.tag = EXTERNAL_SYMBOL_TYPE; t17013.s0.value.external_symbol_type = q42; /* x209552 */ t17014.s0.tag = EXTERNAL_SYMBOL_TYPE; t17014.s0.value.external_symbol_type = q628; /* x209553 */ t17016.s0.tag = EXTERNAL_SYMBOL_TYPE; t17016.s0.value.external_symbol_type = q596; /* x209554 */ t17017.s0.tag = EXTERNAL_SYMBOL_TYPE; t17017.s0.value.external_symbol_type = q540; /* x209555 */ t17018.s0.tag = EXTERNAL_SYMBOL_TYPE; t17018.s0.value.external_symbol_type = q578; /* x209556 */ t17019.s0.tag = FIXNUM_TYPE; t17019.s0.value.fixnum_type = 0; /* x209557 */ t17021.s0.tag = EXTERNAL_SYMBOL_TYPE; t17021.s0.value.external_symbol_type = q597; /* x209558 */ t17021.s1.tag = NULL_TYPE; /* x209559 */ t17020.s0.tag = STRUCTURE_TYPE24753; t17020.s0.value.structure_type24753 = &t17021; /* x209560 */ t17020.s1.tag = NULL_TYPE; /* x209561 */ t17019.s1.tag = STRUCTURE_TYPE24753; t17019.s1.value.structure_type24753 = &t17020; /* x209562 */ t17018.s1.tag = STRUCTURE_TYPE24753; t17018.s1.value.structure_type24753 = &t17019; /* x209563 */ t17017.s1.tag = STRUCTURE_TYPE24753; t17017.s1.value.structure_type24753 = &t17018; /* x209564 */ t17016.s1.tag = STRUCTURE_TYPE24753; t17016.s1.value.structure_type24753 = &t17017; /* x209565 */ t17015.s0.tag = STRUCTURE_TYPE24753; t17015.s0.value.structure_type24753 = &t17016; /* x209566 */ t17015.s1.tag = NULL_TYPE; /* x209567 */ t17014.s1.tag = STRUCTURE_TYPE24753; t17014.s1.value.structure_type24753 = &t17015; /* x209568 */ t17013.s1.tag = STRUCTURE_TYPE24753; t17013.s1.value.structure_type24753 = &t17014; /* x209569 */ t17012.s0.tag = STRUCTURE_TYPE24753; t17012.s0.value.structure_type24753 = &t17013; /* x209570 */ t17023.s0.tag = EXTERNAL_SYMBOL_TYPE; t17023.s0.value.external_symbol_type = q598; /* x209571 */ t17024.s0.tag = EXTERNAL_SYMBOL_TYPE; t17024.s0.value.external_symbol_type = q540; /* x209572 */ t17025.s0.tag = EXTERNAL_SYMBOL_TYPE; t17025.s0.value.external_symbol_type = q628; /* x209573 */ t17027.s0.tag = EXTERNAL_SYMBOL_TYPE; t17027.s0.value.external_symbol_type = q582; /* x209574 */ t17029.s0.tag = EXTERNAL_SYMBOL_TYPE; t17029.s0.value.external_symbol_type = q583; /* x209575 */ t17030.s0.tag = EXTERNAL_SYMBOL_TYPE; t17030.s0.value.external_symbol_type = q555; /* x209576 */ t17030.s1.tag = NULL_TYPE; /* x209577 */ t17029.s1.tag = STRUCTURE_TYPE24753; t17029.s1.value.structure_type24753 = &t17030; /* x209578 */ t17028.s0.tag = STRUCTURE_TYPE24753; t17028.s0.value.structure_type24753 = &t17029; /* x209579 */ t17028.s1.tag = NULL_TYPE; /* x209580 */ t17027.s1.tag = STRUCTURE_TYPE24753; t17027.s1.value.structure_type24753 = &t17028; /* x209581 */ t17026.s0.tag = STRUCTURE_TYPE24753; t17026.s0.value.structure_type24753 = &t17027; /* x209582 */ t17026.s1.tag = NULL_TYPE; /* x209583 */ t17025.s1.tag = STRUCTURE_TYPE24753; t17025.s1.value.structure_type24753 = &t17026; /* x209584 */ t17024.s1.tag = STRUCTURE_TYPE24753; t17024.s1.value.structure_type24753 = &t17025; /* x209585 */ t17023.s1.tag = STRUCTURE_TYPE24753; t17023.s1.value.structure_type24753 = &t17024; /* x209586 */ t17022.s0.tag = STRUCTURE_TYPE24753; t17022.s0.value.structure_type24753 = &t17023; /* x209587 */ t17032.s0.tag = EXTERNAL_SYMBOL_TYPE; t17032.s0.value.external_symbol_type = q599; /* x209588 */ t17033.s0.tag = EXTERNAL_SYMBOL_TYPE; t17033.s0.value.external_symbol_type = q540; /* x209589 */ t17034.s0.tag = EXTERNAL_SYMBOL_TYPE; t17034.s0.value.external_symbol_type = q628; /* x209590 */ t17036.s0.tag = EXTERNAL_SYMBOL_TYPE; t17036.s0.value.external_symbol_type = q582; /* x209591 */ t17038.s0.tag = EXTERNAL_SYMBOL_TYPE; t17038.s0.value.external_symbol_type = q583; /* x209592 */ t17039.s0.tag = EXTERNAL_SYMBOL_TYPE; t17039.s0.value.external_symbol_type = q627; /* x209593 */ t17039.s1.tag = NULL_TYPE; /* x209594 */ t17038.s1.tag = STRUCTURE_TYPE24753; t17038.s1.value.structure_type24753 = &t17039; /* x209595 */ t17037.s0.tag = STRUCTURE_TYPE24753; t17037.s0.value.structure_type24753 = &t17038; /* x209596 */ t17037.s1.tag = NULL_TYPE; /* x209597 */ t17036.s1.tag = STRUCTURE_TYPE24753; t17036.s1.value.structure_type24753 = &t17037; /* x209598 */ t17035.s0.tag = STRUCTURE_TYPE24753; t17035.s0.value.structure_type24753 = &t17036; /* x209599 */ t17035.s1.tag = NULL_TYPE; /* x209600 */ t17034.s1.tag = STRUCTURE_TYPE24753; t17034.s1.value.structure_type24753 = &t17035; /* x209601 */ t17033.s1.tag = STRUCTURE_TYPE24753; t17033.s1.value.structure_type24753 = &t17034; /* x209602 */ t17032.s1.tag = STRUCTURE_TYPE24753; t17032.s1.value.structure_type24753 = &t17033; /* x209603 */ t17031.s0.tag = STRUCTURE_TYPE24753; t17031.s0.value.structure_type24753 = &t17032; /* x209604 */ t17041.s0.tag = EXTERNAL_SYMBOL_TYPE; t17041.s0.value.external_symbol_type = q615; /* x209605 */ t17042.s0.tag = EXTERNAL_SYMBOL_TYPE; t17042.s0.value.external_symbol_type = q540; /* x209606 */ t17043.s0.tag = EXTERNAL_SYMBOL_TYPE; t17043.s0.value.external_symbol_type = q628; /* x209607 */ t17045.s0.tag = EXTERNAL_SYMBOL_TYPE; t17045.s0.value.external_symbol_type = q616; /* x209608 */ t17046.s0.tag = EXTERNAL_SYMBOL_TYPE; t17046.s0.value.external_symbol_type = q562; /* x209609 */ t17046.s1.tag = NULL_TYPE; /* x209610 */ t17045.s1.tag = STRUCTURE_TYPE24753; t17045.s1.value.structure_type24753 = &t17046; /* x209611 */ t17044.s0.tag = STRUCTURE_TYPE24753; t17044.s0.value.structure_type24753 = &t17045; /* x209612 */ t17044.s1.tag = NULL_TYPE; /* x209613 */ t17043.s1.tag = STRUCTURE_TYPE24753; t17043.s1.value.structure_type24753 = &t17044; /* x209614 */ t17042.s1.tag = STRUCTURE_TYPE24753; t17042.s1.value.structure_type24753 = &t17043; /* x209615 */ t17041.s1.tag = STRUCTURE_TYPE24753; t17041.s1.value.structure_type24753 = &t17042; /* x209616 */ t17040.s0.tag = STRUCTURE_TYPE24753; t17040.s0.value.structure_type24753 = &t17041; /* x209617 */ t17048.s0.tag = EXTERNAL_SYMBOL_TYPE; t17048.s0.value.external_symbol_type = q600; /* x209618 */ t17049.s0.tag = EXTERNAL_SYMBOL_TYPE; t17049.s0.value.external_symbol_type = q540; /* x209619 */ t17050.s0.tag = EXTERNAL_SYMBOL_TYPE; t17050.s0.value.external_symbol_type = q628; /* x209620 */ t17051.s0.tag = FIXNUM_TYPE; t17051.s0.value.fixnum_type = 0; /* x209621 */ t17052.s0.tag = EXTERNAL_SYMBOL_TYPE; t17052.s0.value.external_symbol_type = q601; /* x209622 */ t17053.s0.tag = EXTERNAL_SYMBOL_TYPE; t17053.s0.value.external_symbol_type = q602; /* x209623 */ t17054.s0.tag = EXTERNAL_SYMBOL_TYPE; t17054.s0.value.external_symbol_type = q603; /* x209624 */ t17054.s1.tag = NULL_TYPE; /* x209625 */ t17053.s1.tag = STRUCTURE_TYPE24753; t17053.s1.value.structure_type24753 = &t17054; /* x209626 */ t17052.s1.tag = STRUCTURE_TYPE24753; t17052.s1.value.structure_type24753 = &t17053; /* x209627 */ t17051.s1.tag = STRUCTURE_TYPE24753; t17051.s1.value.structure_type24753 = &t17052; /* x209628 */ t17050.s1.tag = STRUCTURE_TYPE24753; t17050.s1.value.structure_type24753 = &t17051; /* x209629 */ t17049.s1.tag = STRUCTURE_TYPE24753; t17049.s1.value.structure_type24753 = &t17050; /* x209630 */ t17048.s1.tag = STRUCTURE_TYPE24753; t17048.s1.value.structure_type24753 = &t17049; /* x209631 */ t17047.s0.tag = STRUCTURE_TYPE24753; t17047.s0.value.structure_type24753 = &t17048; /* x209632 */ t17056.s0.tag = EXTERNAL_SYMBOL_TYPE; t17056.s0.value.external_symbol_type = q42; /* x209633 */ t17057.s0.tag = EXTERNAL_SYMBOL_TYPE; t17057.s0.value.external_symbol_type = q629; /* x209634 */ t17059.s0.tag = EXTERNAL_SYMBOL_TYPE; t17059.s0.value.external_symbol_type = q556; /* x209635 */ t17060.s0.tag = EXTERNAL_SYMBOL_TYPE; t17060.s0.value.external_symbol_type = q540; /* x209636 */ t17062.s0.tag = EXTERNAL_SYMBOL_TYPE; t17062.s0.value.external_symbol_type = q557; /* x209637 */ t17063.s0.tag = EXTERNAL_SYMBOL_TYPE; t17063.s0.value.external_symbol_type = q540; /* x209638 */ t17064.s0.tag = EXTERNAL_SYMBOL_TYPE; t17064.s0.value.external_symbol_type = q545; /* x209639 */ t17064.s1.tag = NULL_TYPE; /* x209640 */ t17063.s1.tag = STRUCTURE_TYPE24753; t17063.s1.value.structure_type24753 = &t17064; /* x209641 */ t17062.s1.tag = STRUCTURE_TYPE24753; t17062.s1.value.structure_type24753 = &t17063; /* x209642 */ t17061.s0.tag = STRUCTURE_TYPE24753; t17061.s0.value.structure_type24753 = &t17062; /* x209643 */ t17065.s0.tag = STRING_TYPE; t17065.s0.value.string_type = "Dark Green"; /* x209644 */ t17065.s1.tag = NULL_TYPE; /* x209645 */ t17061.s1.tag = STRUCTURE_TYPE24753; t17061.s1.value.structure_type24753 = &t17065; /* x209646 */ t17060.s1.tag = STRUCTURE_TYPE24753; t17060.s1.value.structure_type24753 = &t17061; /* x209647 */ t17059.s1.tag = STRUCTURE_TYPE24753; t17059.s1.value.structure_type24753 = &t17060; /* x209648 */ t17058.s0.tag = STRUCTURE_TYPE24753; t17058.s0.value.structure_type24753 = &t17059; /* x209649 */ t17058.s1.tag = NULL_TYPE; /* x209650 */ t17057.s1.tag = STRUCTURE_TYPE24753; t17057.s1.value.structure_type24753 = &t17058; /* x209651 */ t17056.s1.tag = STRUCTURE_TYPE24753; t17056.s1.value.structure_type24753 = &t17057; /* x209652 */ t17055.s0.tag = STRUCTURE_TYPE24753; t17055.s0.value.structure_type24753 = &t17056; /* x209653 */ t17067.s0.tag = EXTERNAL_SYMBOL_TYPE; t17067.s0.value.external_symbol_type = q494; /* x209654 */ t17069.s0.tag = EXTERNAL_SYMBOL_TYPE; t17069.s0.value.external_symbol_type = q120; /* x209655 */ t17071.s0.tag = EXTERNAL_SYMBOL_TYPE; t17071.s0.value.external_symbol_type = q559; /* x209656 */ t17072.s0.tag = EXTERNAL_SYMBOL_TYPE; t17072.s0.value.external_symbol_type = q629; /* x209657 */ t17072.s1.tag = NULL_TYPE; /* x209658 */ t17071.s1.tag = STRUCTURE_TYPE24753; t17071.s1.value.structure_type24753 = &t17072; /* x209659 */ t17070.s0.tag = STRUCTURE_TYPE24753; t17070.s0.value.structure_type24753 = &t17071; /* x209660 */ t17073.s0.tag = FIXNUM_TYPE; t17073.s0.value.fixnum_type = 1; /* x209661 */ t17073.s1.tag = NULL_TYPE; /* x209662 */ t17070.s1.tag = STRUCTURE_TYPE24753; t17070.s1.value.structure_type24753 = &t17073; /* x209663 */ t17069.s1.tag = STRUCTURE_TYPE24753; t17069.s1.value.structure_type24753 = &t17070; /* x209664 */ t17068.s0.tag = STRUCTURE_TYPE24753; t17068.s0.value.structure_type24753 = &t17069; /* x209665 */ t17075.s0.tag = EXTERNAL_SYMBOL_TYPE; t17075.s0.value.external_symbol_type = q179; /* x209666 */ t17076.s0.tag = STRING_TYPE; t17076.s0.value.string_type = "Can\'t allocate dark green colorcell"; /* x209667 */ t17076.s1.tag = NULL_TYPE; /* x209668 */ t17075.s1.tag = STRUCTURE_TYPE24753; t17075.s1.value.structure_type24753 = &t17076; /* x209669 */ t17074.s0.tag = STRUCTURE_TYPE24753; t17074.s0.value.structure_type24753 = &t17075; /* x209670 */ t17074.s1.tag = NULL_TYPE; /* x209671 */ t17068.s1.tag = STRUCTURE_TYPE24753; t17068.s1.value.structure_type24753 = &t17074; /* x209672 */ t17067.s1.tag = STRUCTURE_TYPE24753; t17067.s1.value.structure_type24753 = &t17068; /* x209673 */ t17066.s0.tag = STRUCTURE_TYPE24753; t17066.s0.value.structure_type24753 = &t17067; /* x209674 */ t17078.s0.tag = EXTERNAL_SYMBOL_TYPE; t17078.s0.value.external_symbol_type = q42; /* x209675 */ t17079.s0.tag = EXTERNAL_SYMBOL_TYPE; t17079.s0.value.external_symbol_type = q630; /* x209676 */ t17081.s0.tag = EXTERNAL_SYMBOL_TYPE; t17081.s0.value.external_symbol_type = q596; /* x209677 */ t17082.s0.tag = EXTERNAL_SYMBOL_TYPE; t17082.s0.value.external_symbol_type = q540; /* x209678 */ t17083.s0.tag = EXTERNAL_SYMBOL_TYPE; t17083.s0.value.external_symbol_type = q578; /* x209679 */ t17084.s0.tag = FIXNUM_TYPE; t17084.s0.value.fixnum_type = 0; /* x209680 */ t17086.s0.tag = EXTERNAL_SYMBOL_TYPE; t17086.s0.value.external_symbol_type = q597; /* x209681 */ t17086.s1.tag = NULL_TYPE; /* x209682 */ t17085.s0.tag = STRUCTURE_TYPE24753; t17085.s0.value.structure_type24753 = &t17086; /* x209683 */ t17085.s1.tag = NULL_TYPE; /* x209684 */ t17084.s1.tag = STRUCTURE_TYPE24753; t17084.s1.value.structure_type24753 = &t17085; /* x209685 */ t17083.s1.tag = STRUCTURE_TYPE24753; t17083.s1.value.structure_type24753 = &t17084; /* x209686 */ t17082.s1.tag = STRUCTURE_TYPE24753; t17082.s1.value.structure_type24753 = &t17083; /* x209687 */ t17081.s1.tag = STRUCTURE_TYPE24753; t17081.s1.value.structure_type24753 = &t17082; /* x209688 */ t17080.s0.tag = STRUCTURE_TYPE24753; t17080.s0.value.structure_type24753 = &t17081; /* x209689 */ t17080.s1.tag = NULL_TYPE; /* x209690 */ t17079.s1.tag = STRUCTURE_TYPE24753; t17079.s1.value.structure_type24753 = &t17080; /* x209691 */ t17078.s1.tag = STRUCTURE_TYPE24753; t17078.s1.value.structure_type24753 = &t17079; /* x209692 */ t17077.s0.tag = STRUCTURE_TYPE24753; t17077.s0.value.structure_type24753 = &t17078; /* x209693 */ t17088.s0.tag = EXTERNAL_SYMBOL_TYPE; t17088.s0.value.external_symbol_type = q598; /* x209694 */ t17089.s0.tag = EXTERNAL_SYMBOL_TYPE; t17089.s0.value.external_symbol_type = q540; /* x209695 */ t17090.s0.tag = EXTERNAL_SYMBOL_TYPE; t17090.s0.value.external_symbol_type = q630; /* x209696 */ t17092.s0.tag = EXTERNAL_SYMBOL_TYPE; t17092.s0.value.external_symbol_type = q582; /* x209697 */ t17094.s0.tag = EXTERNAL_SYMBOL_TYPE; t17094.s0.value.external_symbol_type = q583; /* x209698 */ t17095.s0.tag = EXTERNAL_SYMBOL_TYPE; t17095.s0.value.external_symbol_type = q555; /* x209699 */ t17095.s1.tag = NULL_TYPE; /* x209700 */ t17094.s1.tag = STRUCTURE_TYPE24753; t17094.s1.value.structure_type24753 = &t17095; /* x209701 */ t17093.s0.tag = STRUCTURE_TYPE24753; t17093.s0.value.structure_type24753 = &t17094; /* x209702 */ t17093.s1.tag = NULL_TYPE; /* x209703 */ t17092.s1.tag = STRUCTURE_TYPE24753; t17092.s1.value.structure_type24753 = &t17093; /* x209704 */ t17091.s0.tag = STRUCTURE_TYPE24753; t17091.s0.value.structure_type24753 = &t17092; /* x209705 */ t17091.s1.tag = NULL_TYPE; /* x209706 */ t17090.s1.tag = STRUCTURE_TYPE24753; t17090.s1.value.structure_type24753 = &t17091; /* x209707 */ t17089.s1.tag = STRUCTURE_TYPE24753; t17089.s1.value.structure_type24753 = &t17090; /* x209708 */ t17088.s1.tag = STRUCTURE_TYPE24753; t17088.s1.value.structure_type24753 = &t17089; /* x209709 */ t17087.s0.tag = STRUCTURE_TYPE24753; t17087.s0.value.structure_type24753 = &t17088; /* x209710 */ t17097.s0.tag = EXTERNAL_SYMBOL_TYPE; t17097.s0.value.external_symbol_type = q599; /* x209711 */ t17098.s0.tag = EXTERNAL_SYMBOL_TYPE; t17098.s0.value.external_symbol_type = q540; /* x209712 */ t17099.s0.tag = EXTERNAL_SYMBOL_TYPE; t17099.s0.value.external_symbol_type = q630; /* x209713 */ t17101.s0.tag = EXTERNAL_SYMBOL_TYPE; t17101.s0.value.external_symbol_type = q582; /* x209714 */ t17103.s0.tag = EXTERNAL_SYMBOL_TYPE; t17103.s0.value.external_symbol_type = q583; /* x209715 */ t17104.s0.tag = EXTERNAL_SYMBOL_TYPE; t17104.s0.value.external_symbol_type = q629; /* x209716 */ t17104.s1.tag = NULL_TYPE; /* x209717 */ t17103.s1.tag = STRUCTURE_TYPE24753; t17103.s1.value.structure_type24753 = &t17104; /* x209718 */ t17102.s0.tag = STRUCTURE_TYPE24753; t17102.s0.value.structure_type24753 = &t17103; /* x209719 */ t17102.s1.tag = NULL_TYPE; /* x209720 */ t17101.s1.tag = STRUCTURE_TYPE24753; t17101.s1.value.structure_type24753 = &t17102; /* x209721 */ t17100.s0.tag = STRUCTURE_TYPE24753; t17100.s0.value.structure_type24753 = &t17101; /* x209722 */ t17100.s1.tag = NULL_TYPE; /* x209723 */ t17099.s1.tag = STRUCTURE_TYPE24753; t17099.s1.value.structure_type24753 = &t17100; /* x209724 */ t17098.s1.tag = STRUCTURE_TYPE24753; t17098.s1.value.structure_type24753 = &t17099; /* x209725 */ t17097.s1.tag = STRUCTURE_TYPE24753; t17097.s1.value.structure_type24753 = &t17098; /* x209726 */ t17096.s0.tag = STRUCTURE_TYPE24753; t17096.s0.value.structure_type24753 = &t17097; /* x209727 */ t17106.s0.tag = EXTERNAL_SYMBOL_TYPE; t17106.s0.value.external_symbol_type = q615; /* x209728 */ t17107.s0.tag = EXTERNAL_SYMBOL_TYPE; t17107.s0.value.external_symbol_type = q540; /* x209729 */ t17108.s0.tag = EXTERNAL_SYMBOL_TYPE; t17108.s0.value.external_symbol_type = q630; /* x209730 */ t17110.s0.tag = EXTERNAL_SYMBOL_TYPE; t17110.s0.value.external_symbol_type = q616; /* x209731 */ t17111.s0.tag = EXTERNAL_SYMBOL_TYPE; t17111.s0.value.external_symbol_type = q562; /* x209732 */ t17111.s1.tag = NULL_TYPE; /* x209733 */ t17110.s1.tag = STRUCTURE_TYPE24753; t17110.s1.value.structure_type24753 = &t17111; /* x209734 */ t17109.s0.tag = STRUCTURE_TYPE24753; t17109.s0.value.structure_type24753 = &t17110; /* x209735 */ t17109.s1.tag = NULL_TYPE; /* x209736 */ t17108.s1.tag = STRUCTURE_TYPE24753; t17108.s1.value.structure_type24753 = &t17109; /* x209737 */ t17107.s1.tag = STRUCTURE_TYPE24753; t17107.s1.value.structure_type24753 = &t17108; /* x209738 */ t17106.s1.tag = STRUCTURE_TYPE24753; t17106.s1.value.structure_type24753 = &t17107; /* x209739 */ t17105.s0.tag = STRUCTURE_TYPE24753; t17105.s0.value.structure_type24753 = &t17106; /* x209740 */ t17113.s0.tag = EXTERNAL_SYMBOL_TYPE; t17113.s0.value.external_symbol_type = q600; /* x209741 */ t17114.s0.tag = EXTERNAL_SYMBOL_TYPE; t17114.s0.value.external_symbol_type = q540; /* x209742 */ t17115.s0.tag = EXTERNAL_SYMBOL_TYPE; t17115.s0.value.external_symbol_type = q630; /* x209743 */ t17116.s0.tag = FIXNUM_TYPE; t17116.s0.value.fixnum_type = 0; /* x209744 */ t17117.s0.tag = EXTERNAL_SYMBOL_TYPE; t17117.s0.value.external_symbol_type = q601; /* x209745 */ t17118.s0.tag = EXTERNAL_SYMBOL_TYPE; t17118.s0.value.external_symbol_type = q602; /* x209746 */ t17119.s0.tag = EXTERNAL_SYMBOL_TYPE; t17119.s0.value.external_symbol_type = q603; /* x209747 */ t17119.s1.tag = NULL_TYPE; /* x209748 */ t17118.s1.tag = STRUCTURE_TYPE24753; t17118.s1.value.structure_type24753 = &t17119; /* x209749 */ t17117.s1.tag = STRUCTURE_TYPE24753; t17117.s1.value.structure_type24753 = &t17118; /* x209750 */ t17116.s1.tag = STRUCTURE_TYPE24753; t17116.s1.value.structure_type24753 = &t17117; /* x209751 */ t17115.s1.tag = STRUCTURE_TYPE24753; t17115.s1.value.structure_type24753 = &t17116; /* x209752 */ t17114.s1.tag = STRUCTURE_TYPE24753; t17114.s1.value.structure_type24753 = &t17115; /* x209753 */ t17113.s1.tag = STRUCTURE_TYPE24753; t17113.s1.value.structure_type24753 = &t17114; /* x209754 */ t17112.s0.tag = STRUCTURE_TYPE24753; t17112.s0.value.structure_type24753 = &t17113; /* x209755 */ t17121.s0.tag = EXTERNAL_SYMBOL_TYPE; t17121.s0.value.external_symbol_type = q42; /* x209756 */ t17122.s0.tag = EXTERNAL_SYMBOL_TYPE; t17122.s0.value.external_symbol_type = q631; /* x209757 */ t17124.s0.tag = EXTERNAL_SYMBOL_TYPE; t17124.s0.value.external_symbol_type = q556; /* x209758 */ t17125.s0.tag = EXTERNAL_SYMBOL_TYPE; t17125.s0.value.external_symbol_type = q540; /* x209759 */ t17127.s0.tag = EXTERNAL_SYMBOL_TYPE; t17127.s0.value.external_symbol_type = q557; /* x209760 */ t17128.s0.tag = EXTERNAL_SYMBOL_TYPE; t17128.s0.value.external_symbol_type = q540; /* x209761 */ t17129.s0.tag = EXTERNAL_SYMBOL_TYPE; t17129.s0.value.external_symbol_type = q545; /* x209762 */ t17129.s1.tag = NULL_TYPE; /* x209763 */ t17128.s1.tag = STRUCTURE_TYPE24753; t17128.s1.value.structure_type24753 = &t17129; /* x209764 */ t17127.s1.tag = STRUCTURE_TYPE24753; t17127.s1.value.structure_type24753 = &t17128; /* x209765 */ t17126.s0.tag = STRUCTURE_TYPE24753; t17126.s0.value.structure_type24753 = &t17127; /* x209766 */ t17130.s0.tag = STRING_TYPE; t17130.s0.value.string_type = "Blue"; /* x209767 */ t17130.s1.tag = NULL_TYPE; /* x209768 */ t17126.s1.tag = STRUCTURE_TYPE24753; t17126.s1.value.structure_type24753 = &t17130; /* x209769 */ t17125.s1.tag = STRUCTURE_TYPE24753; t17125.s1.value.structure_type24753 = &t17126; /* x209770 */ t17124.s1.tag = STRUCTURE_TYPE24753; t17124.s1.value.structure_type24753 = &t17125; /* x209771 */ t17123.s0.tag = STRUCTURE_TYPE24753; t17123.s0.value.structure_type24753 = &t17124; /* x209772 */ t17123.s1.tag = NULL_TYPE; /* x209773 */ t17122.s1.tag = STRUCTURE_TYPE24753; t17122.s1.value.structure_type24753 = &t17123; /* x209774 */ t17121.s1.tag = STRUCTURE_TYPE24753; t17121.s1.value.structure_type24753 = &t17122; /* x209775 */ t17120.s0.tag = STRUCTURE_TYPE24753; t17120.s0.value.structure_type24753 = &t17121; /* x209776 */ t17132.s0.tag = EXTERNAL_SYMBOL_TYPE; t17132.s0.value.external_symbol_type = q494; /* x209777 */ t17134.s0.tag = EXTERNAL_SYMBOL_TYPE; t17134.s0.value.external_symbol_type = q120; /* x209778 */ t17136.s0.tag = EXTERNAL_SYMBOL_TYPE; t17136.s0.value.external_symbol_type = q559; /* x209779 */ t17137.s0.tag = EXTERNAL_SYMBOL_TYPE; t17137.s0.value.external_symbol_type = q631; /* x209780 */ t17137.s1.tag = NULL_TYPE; /* x209781 */ t17136.s1.tag = STRUCTURE_TYPE24753; t17136.s1.value.structure_type24753 = &t17137; /* x209782 */ t17135.s0.tag = STRUCTURE_TYPE24753; t17135.s0.value.structure_type24753 = &t17136; /* x209783 */ t17138.s0.tag = FIXNUM_TYPE; t17138.s0.value.fixnum_type = 1; /* x209784 */ t17138.s1.tag = NULL_TYPE; /* x209785 */ t17135.s1.tag = STRUCTURE_TYPE24753; t17135.s1.value.structure_type24753 = &t17138; /* x209786 */ t17134.s1.tag = STRUCTURE_TYPE24753; t17134.s1.value.structure_type24753 = &t17135; /* x209787 */ t17133.s0.tag = STRUCTURE_TYPE24753; t17133.s0.value.structure_type24753 = &t17134; /* x209788 */ t17140.s0.tag = EXTERNAL_SYMBOL_TYPE; t17140.s0.value.external_symbol_type = q179; /* x209789 */ t17141.s0.tag = STRING_TYPE; t17141.s0.value.string_type = "Can\'t allocate blue colorcell"; /* x209790 */ t17141.s1.tag = NULL_TYPE; /* x209791 */ t17140.s1.tag = STRUCTURE_TYPE24753; t17140.s1.value.structure_type24753 = &t17141; /* x209792 */ t17139.s0.tag = STRUCTURE_TYPE24753; t17139.s0.value.structure_type24753 = &t17140; /* x209793 */ t17139.s1.tag = NULL_TYPE; /* x209794 */ t17133.s1.tag = STRUCTURE_TYPE24753; t17133.s1.value.structure_type24753 = &t17139; /* x209795 */ t17132.s1.tag = STRUCTURE_TYPE24753; t17132.s1.value.structure_type24753 = &t17133; /* x209796 */ t17131.s0.tag = STRUCTURE_TYPE24753; t17131.s0.value.structure_type24753 = &t17132; /* x209797 */ t17143.s0.tag = EXTERNAL_SYMBOL_TYPE; t17143.s0.value.external_symbol_type = q42; /* x209798 */ t17144.s0.tag = EXTERNAL_SYMBOL_TYPE; t17144.s0.value.external_symbol_type = q632; /* x209799 */ t17146.s0.tag = EXTERNAL_SYMBOL_TYPE; t17146.s0.value.external_symbol_type = q596; /* x209800 */ t17147.s0.tag = EXTERNAL_SYMBOL_TYPE; t17147.s0.value.external_symbol_type = q540; /* x209801 */ t17148.s0.tag = EXTERNAL_SYMBOL_TYPE; t17148.s0.value.external_symbol_type = q578; /* x209802 */ t17149.s0.tag = FIXNUM_TYPE; t17149.s0.value.fixnum_type = 0; /* x209803 */ t17151.s0.tag = EXTERNAL_SYMBOL_TYPE; t17151.s0.value.external_symbol_type = q597; /* x209804 */ t17151.s1.tag = NULL_TYPE;} void initialize_constants8(void) {/* x209805 */ t17150.s0.tag = STRUCTURE_TYPE24753; t17150.s0.value.structure_type24753 = &t17151; /* x209806 */ t17150.s1.tag = NULL_TYPE; /* x209807 */ t17149.s1.tag = STRUCTURE_TYPE24753; t17149.s1.value.structure_type24753 = &t17150; /* x209808 */ t17148.s1.tag = STRUCTURE_TYPE24753; t17148.s1.value.structure_type24753 = &t17149; /* x209809 */ t17147.s1.tag = STRUCTURE_TYPE24753; t17147.s1.value.structure_type24753 = &t17148; /* x209810 */ t17146.s1.tag = STRUCTURE_TYPE24753; t17146.s1.value.structure_type24753 = &t17147; /* x209811 */ t17145.s0.tag = STRUCTURE_TYPE24753; t17145.s0.value.structure_type24753 = &t17146; /* x209812 */ t17145.s1.tag = NULL_TYPE; /* x209813 */ t17144.s1.tag = STRUCTURE_TYPE24753; t17144.s1.value.structure_type24753 = &t17145; /* x209814 */ t17143.s1.tag = STRUCTURE_TYPE24753; t17143.s1.value.structure_type24753 = &t17144; /* x209815 */ t17142.s0.tag = STRUCTURE_TYPE24753; t17142.s0.value.structure_type24753 = &t17143; /* x209816 */ t17153.s0.tag = EXTERNAL_SYMBOL_TYPE; t17153.s0.value.external_symbol_type = q598; /* x209817 */ t17154.s0.tag = EXTERNAL_SYMBOL_TYPE; t17154.s0.value.external_symbol_type = q540; /* x209818 */ t17155.s0.tag = EXTERNAL_SYMBOL_TYPE; t17155.s0.value.external_symbol_type = q632; /* x209819 */ t17157.s0.tag = EXTERNAL_SYMBOL_TYPE; t17157.s0.value.external_symbol_type = q582; /* x209820 */ t17159.s0.tag = EXTERNAL_SYMBOL_TYPE; t17159.s0.value.external_symbol_type = q583; /* x209821 */ t17160.s0.tag = EXTERNAL_SYMBOL_TYPE; t17160.s0.value.external_symbol_type = q555; /* x209822 */ t17160.s1.tag = NULL_TYPE; /* x209823 */ t17159.s1.tag = STRUCTURE_TYPE24753; t17159.s1.value.structure_type24753 = &t17160; /* x209824 */ t17158.s0.tag = STRUCTURE_TYPE24753; t17158.s0.value.structure_type24753 = &t17159; /* x209825 */ t17158.s1.tag = NULL_TYPE; /* x209826 */ t17157.s1.tag = STRUCTURE_TYPE24753; t17157.s1.value.structure_type24753 = &t17158; /* x209827 */ t17156.s0.tag = STRUCTURE_TYPE24753; t17156.s0.value.structure_type24753 = &t17157; /* x209828 */ t17156.s1.tag = NULL_TYPE; /* x209829 */ t17155.s1.tag = STRUCTURE_TYPE24753; t17155.s1.value.structure_type24753 = &t17156; /* x209830 */ t17154.s1.tag = STRUCTURE_TYPE24753; t17154.s1.value.structure_type24753 = &t17155; /* x209831 */ t17153.s1.tag = STRUCTURE_TYPE24753; t17153.s1.value.structure_type24753 = &t17154; /* x209832 */ t17152.s0.tag = STRUCTURE_TYPE24753; t17152.s0.value.structure_type24753 = &t17153; /* x209833 */ t17162.s0.tag = EXTERNAL_SYMBOL_TYPE; t17162.s0.value.external_symbol_type = q599; /* x209834 */ t17163.s0.tag = EXTERNAL_SYMBOL_TYPE; t17163.s0.value.external_symbol_type = q540; /* x209835 */ t17164.s0.tag = EXTERNAL_SYMBOL_TYPE; t17164.s0.value.external_symbol_type = q632; /* x209836 */ t17166.s0.tag = EXTERNAL_SYMBOL_TYPE; t17166.s0.value.external_symbol_type = q582; /* x209837 */ t17168.s0.tag = EXTERNAL_SYMBOL_TYPE; t17168.s0.value.external_symbol_type = q583; /* x209838 */ t17169.s0.tag = EXTERNAL_SYMBOL_TYPE; t17169.s0.value.external_symbol_type = q631; /* x209839 */ t17169.s1.tag = NULL_TYPE; /* x209840 */ t17168.s1.tag = STRUCTURE_TYPE24753; t17168.s1.value.structure_type24753 = &t17169; /* x209841 */ t17167.s0.tag = STRUCTURE_TYPE24753; t17167.s0.value.structure_type24753 = &t17168; /* x209842 */ t17167.s1.tag = NULL_TYPE; /* x209843 */ t17166.s1.tag = STRUCTURE_TYPE24753; t17166.s1.value.structure_type24753 = &t17167; /* x209844 */ t17165.s0.tag = STRUCTURE_TYPE24753; t17165.s0.value.structure_type24753 = &t17166; /* x209845 */ t17165.s1.tag = NULL_TYPE; /* x209846 */ t17164.s1.tag = STRUCTURE_TYPE24753; t17164.s1.value.structure_type24753 = &t17165; /* x209847 */ t17163.s1.tag = STRUCTURE_TYPE24753; t17163.s1.value.structure_type24753 = &t17164; /* x209848 */ t17162.s1.tag = STRUCTURE_TYPE24753; t17162.s1.value.structure_type24753 = &t17163; /* x209849 */ t17161.s0.tag = STRUCTURE_TYPE24753; t17161.s0.value.structure_type24753 = &t17162; /* x209850 */ t17171.s0.tag = EXTERNAL_SYMBOL_TYPE; t17171.s0.value.external_symbol_type = q615; /* x209851 */ t17172.s0.tag = EXTERNAL_SYMBOL_TYPE; t17172.s0.value.external_symbol_type = q540; /* x209852 */ t17173.s0.tag = EXTERNAL_SYMBOL_TYPE; t17173.s0.value.external_symbol_type = q632; /* x209853 */ t17175.s0.tag = EXTERNAL_SYMBOL_TYPE; t17175.s0.value.external_symbol_type = q616; /* x209854 */ t17176.s0.tag = EXTERNAL_SYMBOL_TYPE; t17176.s0.value.external_symbol_type = q562; /* x209855 */ t17176.s1.tag = NULL_TYPE; /* x209856 */ t17175.s1.tag = STRUCTURE_TYPE24753; t17175.s1.value.structure_type24753 = &t17176; /* x209857 */ t17174.s0.tag = STRUCTURE_TYPE24753; t17174.s0.value.structure_type24753 = &t17175; /* x209858 */ t17174.s1.tag = NULL_TYPE; /* x209859 */ t17173.s1.tag = STRUCTURE_TYPE24753; t17173.s1.value.structure_type24753 = &t17174; /* x209860 */ t17172.s1.tag = STRUCTURE_TYPE24753; t17172.s1.value.structure_type24753 = &t17173; /* x209861 */ t17171.s1.tag = STRUCTURE_TYPE24753; t17171.s1.value.structure_type24753 = &t17172; /* x209862 */ t17170.s0.tag = STRUCTURE_TYPE24753; t17170.s0.value.structure_type24753 = &t17171; /* x209863 */ t17178.s0.tag = EXTERNAL_SYMBOL_TYPE; t17178.s0.value.external_symbol_type = q600; /* x209864 */ t17179.s0.tag = EXTERNAL_SYMBOL_TYPE; t17179.s0.value.external_symbol_type = q540; /* x209865 */ t17180.s0.tag = EXTERNAL_SYMBOL_TYPE; t17180.s0.value.external_symbol_type = q632; /* x209866 */ t17181.s0.tag = FIXNUM_TYPE; t17181.s0.value.fixnum_type = 0; /* x209867 */ t17182.s0.tag = EXTERNAL_SYMBOL_TYPE; t17182.s0.value.external_symbol_type = q601; /* x209868 */ t17183.s0.tag = EXTERNAL_SYMBOL_TYPE; t17183.s0.value.external_symbol_type = q602; /* x209869 */ t17184.s0.tag = EXTERNAL_SYMBOL_TYPE; t17184.s0.value.external_symbol_type = q603; /* x209870 */ t17184.s1.tag = NULL_TYPE; /* x209871 */ t17183.s1.tag = STRUCTURE_TYPE24753; t17183.s1.value.structure_type24753 = &t17184; /* x209872 */ t17182.s1.tag = STRUCTURE_TYPE24753; t17182.s1.value.structure_type24753 = &t17183; /* x209873 */ t17181.s1.tag = STRUCTURE_TYPE24753; t17181.s1.value.structure_type24753 = &t17182; /* x209874 */ t17180.s1.tag = STRUCTURE_TYPE24753; t17180.s1.value.structure_type24753 = &t17181; /* x209875 */ t17179.s1.tag = STRUCTURE_TYPE24753; t17179.s1.value.structure_type24753 = &t17180; /* x209876 */ t17178.s1.tag = STRUCTURE_TYPE24753; t17178.s1.value.structure_type24753 = &t17179; /* x209877 */ t17177.s0.tag = STRUCTURE_TYPE24753; t17177.s0.value.structure_type24753 = &t17178; /* x209878 */ t17186.s0.tag = EXTERNAL_SYMBOL_TYPE; t17186.s0.value.external_symbol_type = q42; /* x209879 */ t17187.s0.tag = EXTERNAL_SYMBOL_TYPE; t17187.s0.value.external_symbol_type = q633; /* x209880 */ t17189.s0.tag = EXTERNAL_SYMBOL_TYPE; t17189.s0.value.external_symbol_type = q556; /* x209881 */ t17190.s0.tag = EXTERNAL_SYMBOL_TYPE; t17190.s0.value.external_symbol_type = q540; /* x209882 */ t17192.s0.tag = EXTERNAL_SYMBOL_TYPE; t17192.s0.value.external_symbol_type = q557; /* x209883 */ t17193.s0.tag = EXTERNAL_SYMBOL_TYPE; t17193.s0.value.external_symbol_type = q540; /* x209884 */ t17194.s0.tag = EXTERNAL_SYMBOL_TYPE; t17194.s0.value.external_symbol_type = q545; /* x209885 */ t17194.s1.tag = NULL_TYPE; /* x209886 */ t17193.s1.tag = STRUCTURE_TYPE24753; t17193.s1.value.structure_type24753 = &t17194; /* x209887 */ t17192.s1.tag = STRUCTURE_TYPE24753; t17192.s1.value.structure_type24753 = &t17193; /* x209888 */ t17191.s0.tag = STRUCTURE_TYPE24753; t17191.s0.value.structure_type24753 = &t17192; /* x209889 */ t17195.s0.tag = STRING_TYPE; t17195.s0.value.string_type = "Yellow"; /* x209890 */ t17195.s1.tag = NULL_TYPE; /* x209891 */ t17191.s1.tag = STRUCTURE_TYPE24753; t17191.s1.value.structure_type24753 = &t17195; /* x209892 */ t17190.s1.tag = STRUCTURE_TYPE24753; t17190.s1.value.structure_type24753 = &t17191; /* x209893 */ t17189.s1.tag = STRUCTURE_TYPE24753; t17189.s1.value.structure_type24753 = &t17190; /* x209894 */ t17188.s0.tag = STRUCTURE_TYPE24753; t17188.s0.value.structure_type24753 = &t17189; /* x209895 */ t17188.s1.tag = NULL_TYPE; /* x209896 */ t17187.s1.tag = STRUCTURE_TYPE24753; t17187.s1.value.structure_type24753 = &t17188; /* x209897 */ t17186.s1.tag = STRUCTURE_TYPE24753; t17186.s1.value.structure_type24753 = &t17187; /* x209898 */ t17185.s0.tag = STRUCTURE_TYPE24753; t17185.s0.value.structure_type24753 = &t17186; /* x209899 */ t17197.s0.tag = EXTERNAL_SYMBOL_TYPE; t17197.s0.value.external_symbol_type = q494; /* x209900 */ t17199.s0.tag = EXTERNAL_SYMBOL_TYPE; t17199.s0.value.external_symbol_type = q120; /* x209901 */ t17201.s0.tag = EXTERNAL_SYMBOL_TYPE; t17201.s0.value.external_symbol_type = q559; /* x209902 */ t17202.s0.tag = EXTERNAL_SYMBOL_TYPE; t17202.s0.value.external_symbol_type = q633; /* x209903 */ t17202.s1.tag = NULL_TYPE; /* x209904 */ t17201.s1.tag = STRUCTURE_TYPE24753; t17201.s1.value.structure_type24753 = &t17202; /* x209905 */ t17200.s0.tag = STRUCTURE_TYPE24753; t17200.s0.value.structure_type24753 = &t17201; /* x209906 */ t17203.s0.tag = FIXNUM_TYPE; t17203.s0.value.fixnum_type = 1; /* x209907 */ t17203.s1.tag = NULL_TYPE; /* x209908 */ t17200.s1.tag = STRUCTURE_TYPE24753; t17200.s1.value.structure_type24753 = &t17203; /* x209909 */ t17199.s1.tag = STRUCTURE_TYPE24753; t17199.s1.value.structure_type24753 = &t17200; /* x209910 */ t17198.s0.tag = STRUCTURE_TYPE24753; t17198.s0.value.structure_type24753 = &t17199; /* x209911 */ t17205.s0.tag = EXTERNAL_SYMBOL_TYPE; t17205.s0.value.external_symbol_type = q179; /* x209912 */ t17206.s0.tag = STRING_TYPE; t17206.s0.value.string_type = "Can\'t allocate yellow colorcell"; /* x209913 */ t17206.s1.tag = NULL_TYPE; /* x209914 */ t17205.s1.tag = STRUCTURE_TYPE24753; t17205.s1.value.structure_type24753 = &t17206; /* x209915 */ t17204.s0.tag = STRUCTURE_TYPE24753; t17204.s0.value.structure_type24753 = &t17205; /* x209916 */ t17204.s1.tag = NULL_TYPE; /* x209917 */ t17198.s1.tag = STRUCTURE_TYPE24753; t17198.s1.value.structure_type24753 = &t17204; /* x209918 */ t17197.s1.tag = STRUCTURE_TYPE24753; t17197.s1.value.structure_type24753 = &t17198; /* x209919 */ t17196.s0.tag = STRUCTURE_TYPE24753; t17196.s0.value.structure_type24753 = &t17197; /* x209920 */ t17208.s0.tag = EXTERNAL_SYMBOL_TYPE; t17208.s0.value.external_symbol_type = q42; /* x209921 */ t17209.s0.tag = EXTERNAL_SYMBOL_TYPE; t17209.s0.value.external_symbol_type = q634; /* x209922 */ t17211.s0.tag = EXTERNAL_SYMBOL_TYPE; t17211.s0.value.external_symbol_type = q596; /* x209923 */ t17212.s0.tag = EXTERNAL_SYMBOL_TYPE; t17212.s0.value.external_symbol_type = q540; /* x209924 */ t17213.s0.tag = EXTERNAL_SYMBOL_TYPE; t17213.s0.value.external_symbol_type = q578; /* x209925 */ t17214.s0.tag = FIXNUM_TYPE; t17214.s0.value.fixnum_type = 0; /* x209926 */ t17216.s0.tag = EXTERNAL_SYMBOL_TYPE; t17216.s0.value.external_symbol_type = q597; /* x209927 */ t17216.s1.tag = NULL_TYPE; /* x209928 */ t17215.s0.tag = STRUCTURE_TYPE24753; t17215.s0.value.structure_type24753 = &t17216; /* x209929 */ t17215.s1.tag = NULL_TYPE; /* x209930 */ t17214.s1.tag = STRUCTURE_TYPE24753; t17214.s1.value.structure_type24753 = &t17215; /* x209931 */ t17213.s1.tag = STRUCTURE_TYPE24753; t17213.s1.value.structure_type24753 = &t17214; /* x209932 */ t17212.s1.tag = STRUCTURE_TYPE24753; t17212.s1.value.structure_type24753 = &t17213; /* x209933 */ t17211.s1.tag = STRUCTURE_TYPE24753; t17211.s1.value.structure_type24753 = &t17212; /* x209934 */ t17210.s0.tag = STRUCTURE_TYPE24753; t17210.s0.value.structure_type24753 = &t17211; /* x209935 */ t17210.s1.tag = NULL_TYPE; /* x209936 */ t17209.s1.tag = STRUCTURE_TYPE24753; t17209.s1.value.structure_type24753 = &t17210; /* x209937 */ t17208.s1.tag = STRUCTURE_TYPE24753; t17208.s1.value.structure_type24753 = &t17209; /* x209938 */ t17207.s0.tag = STRUCTURE_TYPE24753; t17207.s0.value.structure_type24753 = &t17208; /* x209939 */ t17218.s0.tag = EXTERNAL_SYMBOL_TYPE; t17218.s0.value.external_symbol_type = q598; /* x209940 */ t17219.s0.tag = EXTERNAL_SYMBOL_TYPE; t17219.s0.value.external_symbol_type = q540; /* x209941 */ t17220.s0.tag = EXTERNAL_SYMBOL_TYPE; t17220.s0.value.external_symbol_type = q634; /* x209942 */ t17222.s0.tag = EXTERNAL_SYMBOL_TYPE; t17222.s0.value.external_symbol_type = q582; /* x209943 */ t17224.s0.tag = EXTERNAL_SYMBOL_TYPE; t17224.s0.value.external_symbol_type = q583; /* x209944 */ t17225.s0.tag = EXTERNAL_SYMBOL_TYPE; t17225.s0.value.external_symbol_type = q555; /* x209945 */ t17225.s1.tag = NULL_TYPE; /* x209946 */ t17224.s1.tag = STRUCTURE_TYPE24753; t17224.s1.value.structure_type24753 = &t17225; /* x209947 */ t17223.s0.tag = STRUCTURE_TYPE24753; t17223.s0.value.structure_type24753 = &t17224; /* x209948 */ t17223.s1.tag = NULL_TYPE; /* x209949 */ t17222.s1.tag = STRUCTURE_TYPE24753; t17222.s1.value.structure_type24753 = &t17223; /* x209950 */ t17221.s0.tag = STRUCTURE_TYPE24753; t17221.s0.value.structure_type24753 = &t17222; /* x209951 */ t17221.s1.tag = NULL_TYPE; /* x209952 */ t17220.s1.tag = STRUCTURE_TYPE24753; t17220.s1.value.structure_type24753 = &t17221; /* x209953 */ t17219.s1.tag = STRUCTURE_TYPE24753; t17219.s1.value.structure_type24753 = &t17220; /* x209954 */ t17218.s1.tag = STRUCTURE_TYPE24753; t17218.s1.value.structure_type24753 = &t17219; /* x209955 */ t17217.s0.tag = STRUCTURE_TYPE24753; t17217.s0.value.structure_type24753 = &t17218; /* x209956 */ t17227.s0.tag = EXTERNAL_SYMBOL_TYPE; t17227.s0.value.external_symbol_type = q599; /* x209957 */ t17228.s0.tag = EXTERNAL_SYMBOL_TYPE; t17228.s0.value.external_symbol_type = q540; /* x209958 */ t17229.s0.tag = EXTERNAL_SYMBOL_TYPE; t17229.s0.value.external_symbol_type = q634; /* x209959 */ t17231.s0.tag = EXTERNAL_SYMBOL_TYPE; t17231.s0.value.external_symbol_type = q582; /* x209960 */ t17233.s0.tag = EXTERNAL_SYMBOL_TYPE; t17233.s0.value.external_symbol_type = q583; /* x209961 */ t17234.s0.tag = EXTERNAL_SYMBOL_TYPE; t17234.s0.value.external_symbol_type = q633; /* x209962 */ t17234.s1.tag = NULL_TYPE; /* x209963 */ t17233.s1.tag = STRUCTURE_TYPE24753; t17233.s1.value.structure_type24753 = &t17234; /* x209964 */ t17232.s0.tag = STRUCTURE_TYPE24753; t17232.s0.value.structure_type24753 = &t17233; /* x209965 */ t17232.s1.tag = NULL_TYPE; /* x209966 */ t17231.s1.tag = STRUCTURE_TYPE24753; t17231.s1.value.structure_type24753 = &t17232; /* x209967 */ t17230.s0.tag = STRUCTURE_TYPE24753; t17230.s0.value.structure_type24753 = &t17231; /* x209968 */ t17230.s1.tag = NULL_TYPE; /* x209969 */ t17229.s1.tag = STRUCTURE_TYPE24753; t17229.s1.value.structure_type24753 = &t17230; /* x209970 */ t17228.s1.tag = STRUCTURE_TYPE24753; t17228.s1.value.structure_type24753 = &t17229; /* x209971 */ t17227.s1.tag = STRUCTURE_TYPE24753; t17227.s1.value.structure_type24753 = &t17228; /* x209972 */ t17226.s0.tag = STRUCTURE_TYPE24753; t17226.s0.value.structure_type24753 = &t17227; /* x209973 */ t17236.s0.tag = EXTERNAL_SYMBOL_TYPE; t17236.s0.value.external_symbol_type = q615; /* x209974 */ t17237.s0.tag = EXTERNAL_SYMBOL_TYPE; t17237.s0.value.external_symbol_type = q540; /* x209975 */ t17238.s0.tag = EXTERNAL_SYMBOL_TYPE; t17238.s0.value.external_symbol_type = q634; /* x209976 */ t17240.s0.tag = EXTERNAL_SYMBOL_TYPE; t17240.s0.value.external_symbol_type = q616; /* x209977 */ t17241.s0.tag = EXTERNAL_SYMBOL_TYPE; t17241.s0.value.external_symbol_type = q562; /* x209978 */ t17241.s1.tag = NULL_TYPE; /* x209979 */ t17240.s1.tag = STRUCTURE_TYPE24753; t17240.s1.value.structure_type24753 = &t17241; /* x209980 */ t17239.s0.tag = STRUCTURE_TYPE24753; t17239.s0.value.structure_type24753 = &t17240; /* x209981 */ t17239.s1.tag = NULL_TYPE; /* x209982 */ t17238.s1.tag = STRUCTURE_TYPE24753; t17238.s1.value.structure_type24753 = &t17239; /* x209983 */ t17237.s1.tag = STRUCTURE_TYPE24753; t17237.s1.value.structure_type24753 = &t17238; /* x209984 */ t17236.s1.tag = STRUCTURE_TYPE24753; t17236.s1.value.structure_type24753 = &t17237; /* x209985 */ t17235.s0.tag = STRUCTURE_TYPE24753; t17235.s0.value.structure_type24753 = &t17236; /* x209986 */ t17243.s0.tag = EXTERNAL_SYMBOL_TYPE; t17243.s0.value.external_symbol_type = q600; /* x209987 */ t17244.s0.tag = EXTERNAL_SYMBOL_TYPE; t17244.s0.value.external_symbol_type = q540; /* x209988 */ t17245.s0.tag = EXTERNAL_SYMBOL_TYPE; t17245.s0.value.external_symbol_type = q634; /* x209989 */ t17246.s0.tag = FIXNUM_TYPE; t17246.s0.value.fixnum_type = 0; /* x209990 */ t17247.s0.tag = EXTERNAL_SYMBOL_TYPE; t17247.s0.value.external_symbol_type = q601; /* x209991 */ t17248.s0.tag = EXTERNAL_SYMBOL_TYPE; t17248.s0.value.external_symbol_type = q602; /* x209992 */ t17249.s0.tag = EXTERNAL_SYMBOL_TYPE; t17249.s0.value.external_symbol_type = q603; /* x209993 */ t17249.s1.tag = NULL_TYPE; /* x209994 */ t17248.s1.tag = STRUCTURE_TYPE24753; t17248.s1.value.structure_type24753 = &t17249; /* x209995 */ t17247.s1.tag = STRUCTURE_TYPE24753; t17247.s1.value.structure_type24753 = &t17248; /* x209996 */ t17246.s1.tag = STRUCTURE_TYPE24753; t17246.s1.value.structure_type24753 = &t17247; /* x209997 */ t17245.s1.tag = STRUCTURE_TYPE24753; t17245.s1.value.structure_type24753 = &t17246; /* x209998 */ t17244.s1.tag = STRUCTURE_TYPE24753; t17244.s1.value.structure_type24753 = &t17245; /* x209999 */ t17243.s1.tag = STRUCTURE_TYPE24753; t17243.s1.value.structure_type24753 = &t17244; /* x210000 */ t17242.s0.tag = STRUCTURE_TYPE24753; t17242.s0.value.structure_type24753 = &t17243; /* x210001 */ t17251.s0.tag = EXTERNAL_SYMBOL_TYPE; t17251.s0.value.external_symbol_type = q42; /* x210002 */ t17252.s0.tag = EXTERNAL_SYMBOL_TYPE; t17252.s0.value.external_symbol_type = q635; /* x210003 */ t17254.s0.tag = EXTERNAL_SYMBOL_TYPE; t17254.s0.value.external_symbol_type = q556; /* x210004 */ t17255.s0.tag = EXTERNAL_SYMBOL_TYPE; t17255.s0.value.external_symbol_type = q540; /* x210005 */ t17257.s0.tag = EXTERNAL_SYMBOL_TYPE; t17257.s0.value.external_symbol_type = q557; /* x210006 */ t17258.s0.tag = EXTERNAL_SYMBOL_TYPE; t17258.s0.value.external_symbol_type = q540; /* x210007 */ t17259.s0.tag = EXTERNAL_SYMBOL_TYPE; t17259.s0.value.external_symbol_type = q545; /* x210008 */ t17259.s1.tag = NULL_TYPE; /* x210009 */ t17258.s1.tag = STRUCTURE_TYPE24753; t17258.s1.value.structure_type24753 = &t17259; /* x210010 */ t17257.s1.tag = STRUCTURE_TYPE24753; t17257.s1.value.structure_type24753 = &t17258; /* x210011 */ t17256.s0.tag = STRUCTURE_TYPE24753; t17256.s0.value.structure_type24753 = &t17257; /* x210012 */ t17260.s0.tag = STRING_TYPE; t17260.s0.value.string_type = "Violet"; /* x210013 */ t17260.s1.tag = NULL_TYPE; /* x210014 */ t17256.s1.tag = STRUCTURE_TYPE24753; t17256.s1.value.structure_type24753 = &t17260; /* x210015 */ t17255.s1.tag = STRUCTURE_TYPE24753; t17255.s1.value.structure_type24753 = &t17256; /* x210016 */ t17254.s1.tag = STRUCTURE_TYPE24753; t17254.s1.value.structure_type24753 = &t17255; /* x210017 */ t17253.s0.tag = STRUCTURE_TYPE24753; t17253.s0.value.structure_type24753 = &t17254; /* x210018 */ t17253.s1.tag = NULL_TYPE; /* x210019 */ t17252.s1.tag = STRUCTURE_TYPE24753; t17252.s1.value.structure_type24753 = &t17253; /* x210020 */ t17251.s1.tag = STRUCTURE_TYPE24753; t17251.s1.value.structure_type24753 = &t17252; /* x210021 */ t17250.s0.tag = STRUCTURE_TYPE24753; t17250.s0.value.structure_type24753 = &t17251; /* x210022 */ t17262.s0.tag = EXTERNAL_SYMBOL_TYPE; t17262.s0.value.external_symbol_type = q494; /* x210023 */ t17264.s0.tag = EXTERNAL_SYMBOL_TYPE; t17264.s0.value.external_symbol_type = q120; /* x210024 */ t17266.s0.tag = EXTERNAL_SYMBOL_TYPE; t17266.s0.value.external_symbol_type = q559; /* x210025 */ t17267.s0.tag = EXTERNAL_SYMBOL_TYPE; t17267.s0.value.external_symbol_type = q635; /* x210026 */ t17267.s1.tag = NULL_TYPE; /* x210027 */ t17266.s1.tag = STRUCTURE_TYPE24753; t17266.s1.value.structure_type24753 = &t17267; /* x210028 */ t17265.s0.tag = STRUCTURE_TYPE24753; t17265.s0.value.structure_type24753 = &t17266; /* x210029 */ t17268.s0.tag = FIXNUM_TYPE; t17268.s0.value.fixnum_type = 1; /* x210030 */ t17268.s1.tag = NULL_TYPE; /* x210031 */ t17265.s1.tag = STRUCTURE_TYPE24753; t17265.s1.value.structure_type24753 = &t17268; /* x210032 */ t17264.s1.tag = STRUCTURE_TYPE24753; t17264.s1.value.structure_type24753 = &t17265; /* x210033 */ t17263.s0.tag = STRUCTURE_TYPE24753; t17263.s0.value.structure_type24753 = &t17264; /* x210034 */ t17270.s0.tag = EXTERNAL_SYMBOL_TYPE; t17270.s0.value.external_symbol_type = q179; /* x210035 */ t17271.s0.tag = STRING_TYPE; t17271.s0.value.string_type = "Can\'t allocate violet colorcell"; /* x210036 */ t17271.s1.tag = NULL_TYPE; /* x210037 */ t17270.s1.tag = STRUCTURE_TYPE24753; t17270.s1.value.structure_type24753 = &t17271; /* x210038 */ t17269.s0.tag = STRUCTURE_TYPE24753; t17269.s0.value.structure_type24753 = &t17270; /* x210039 */ t17269.s1.tag = NULL_TYPE; /* x210040 */ t17263.s1.tag = STRUCTURE_TYPE24753; t17263.s1.value.structure_type24753 = &t17269; /* x210041 */ t17262.s1.tag = STRUCTURE_TYPE24753; t17262.s1.value.structure_type24753 = &t17263; /* x210042 */ t17261.s0.tag = STRUCTURE_TYPE24753; t17261.s0.value.structure_type24753 = &t17262; /* x210043 */ t17273.s0.tag = EXTERNAL_SYMBOL_TYPE; t17273.s0.value.external_symbol_type = q42; /* x210044 */ t17274.s0.tag = EXTERNAL_SYMBOL_TYPE; t17274.s0.value.external_symbol_type = q636; /* x210045 */ t17276.s0.tag = EXTERNAL_SYMBOL_TYPE; t17276.s0.value.external_symbol_type = q596; /* x210046 */ t17277.s0.tag = EXTERNAL_SYMBOL_TYPE; t17277.s0.value.external_symbol_type = q540; /* x210047 */ t17278.s0.tag = EXTERNAL_SYMBOL_TYPE; t17278.s0.value.external_symbol_type = q578; /* x210048 */ t17279.s0.tag = FIXNUM_TYPE; t17279.s0.value.fixnum_type = 0; /* x210049 */ t17281.s0.tag = EXTERNAL_SYMBOL_TYPE; t17281.s0.value.external_symbol_type = q597; /* x210050 */ t17281.s1.tag = NULL_TYPE; /* x210051 */ t17280.s0.tag = STRUCTURE_TYPE24753; t17280.s0.value.structure_type24753 = &t17281; /* x210052 */ t17280.s1.tag = NULL_TYPE; /* x210053 */ t17279.s1.tag = STRUCTURE_TYPE24753; t17279.s1.value.structure_type24753 = &t17280; /* x210054 */ t17278.s1.tag = STRUCTURE_TYPE24753; t17278.s1.value.structure_type24753 = &t17279; /* x210055 */ t17277.s1.tag = STRUCTURE_TYPE24753; t17277.s1.value.structure_type24753 = &t17278; /* x210056 */ t17276.s1.tag = STRUCTURE_TYPE24753; t17276.s1.value.structure_type24753 = &t17277; /* x210057 */ t17275.s0.tag = STRUCTURE_TYPE24753; t17275.s0.value.structure_type24753 = &t17276; /* x210058 */ t17275.s1.tag = NULL_TYPE; /* x210059 */ t17274.s1.tag = STRUCTURE_TYPE24753; t17274.s1.value.structure_type24753 = &t17275; /* x210060 */ t17273.s1.tag = STRUCTURE_TYPE24753; t17273.s1.value.structure_type24753 = &t17274; /* x210061 */ t17272.s0.tag = STRUCTURE_TYPE24753; t17272.s0.value.structure_type24753 = &t17273; /* x210062 */ t17283.s0.tag = EXTERNAL_SYMBOL_TYPE; t17283.s0.value.external_symbol_type = q598; /* x210063 */ t17284.s0.tag = EXTERNAL_SYMBOL_TYPE; t17284.s0.value.external_symbol_type = q540; /* x210064 */ t17285.s0.tag = EXTERNAL_SYMBOL_TYPE; t17285.s0.value.external_symbol_type = q636; /* x210065 */ t17287.s0.tag = EXTERNAL_SYMBOL_TYPE; t17287.s0.value.external_symbol_type = q582; /* x210066 */ t17289.s0.tag = EXTERNAL_SYMBOL_TYPE; t17289.s0.value.external_symbol_type = q583; /* x210067 */ t17290.s0.tag = EXTERNAL_SYMBOL_TYPE; t17290.s0.value.external_symbol_type = q555; /* x210068 */ t17290.s1.tag = NULL_TYPE; /* x210069 */ t17289.s1.tag = STRUCTURE_TYPE24753; t17289.s1.value.structure_type24753 = &t17290; /* x210070 */ t17288.s0.tag = STRUCTURE_TYPE24753; t17288.s0.value.structure_type24753 = &t17289; /* x210071 */ t17288.s1.tag = NULL_TYPE; /* x210072 */ t17287.s1.tag = STRUCTURE_TYPE24753; t17287.s1.value.structure_type24753 = &t17288; /* x210073 */ t17286.s0.tag = STRUCTURE_TYPE24753; t17286.s0.value.structure_type24753 = &t17287; /* x210074 */ t17286.s1.tag = NULL_TYPE; /* x210075 */ t17285.s1.tag = STRUCTURE_TYPE24753; t17285.s1.value.structure_type24753 = &t17286; /* x210076 */ t17284.s1.tag = STRUCTURE_TYPE24753; t17284.s1.value.structure_type24753 = &t17285; /* x210077 */ t17283.s1.tag = STRUCTURE_TYPE24753; t17283.s1.value.structure_type24753 = &t17284; /* x210078 */ t17282.s0.tag = STRUCTURE_TYPE24753; t17282.s0.value.structure_type24753 = &t17283; /* x210079 */ t17292.s0.tag = EXTERNAL_SYMBOL_TYPE; t17292.s0.value.external_symbol_type = q599; /* x210080 */ t17293.s0.tag = EXTERNAL_SYMBOL_TYPE; t17293.s0.value.external_symbol_type = q540; /* x210081 */ t17294.s0.tag = EXTERNAL_SYMBOL_TYPE; t17294.s0.value.external_symbol_type = q636; /* x210082 */ t17296.s0.tag = EXTERNAL_SYMBOL_TYPE; t17296.s0.value.external_symbol_type = q582; /* x210083 */ t17298.s0.tag = EXTERNAL_SYMBOL_TYPE; t17298.s0.value.external_symbol_type = q583; /* x210084 */ t17299.s0.tag = EXTERNAL_SYMBOL_TYPE; t17299.s0.value.external_symbol_type = q635; /* x210085 */ t17299.s1.tag = NULL_TYPE; /* x210086 */ t17298.s1.tag = STRUCTURE_TYPE24753; t17298.s1.value.structure_type24753 = &t17299; /* x210087 */ t17297.s0.tag = STRUCTURE_TYPE24753; t17297.s0.value.structure_type24753 = &t17298; /* x210088 */ t17297.s1.tag = NULL_TYPE; /* x210089 */ t17296.s1.tag = STRUCTURE_TYPE24753; t17296.s1.value.structure_type24753 = &t17297; /* x210090 */ t17295.s0.tag = STRUCTURE_TYPE24753; t17295.s0.value.structure_type24753 = &t17296; /* x210091 */ t17295.s1.tag = NULL_TYPE; /* x210092 */ t17294.s1.tag = STRUCTURE_TYPE24753; t17294.s1.value.structure_type24753 = &t17295; /* x210093 */ t17293.s1.tag = STRUCTURE_TYPE24753; t17293.s1.value.structure_type24753 = &t17294; /* x210094 */ t17292.s1.tag = STRUCTURE_TYPE24753; t17292.s1.value.structure_type24753 = &t17293; /* x210095 */ t17291.s0.tag = STRUCTURE_TYPE24753; t17291.s0.value.structure_type24753 = &t17292; /* x210096 */ t17301.s0.tag = EXTERNAL_SYMBOL_TYPE; t17301.s0.value.external_symbol_type = q615; /* x210097 */ t17302.s0.tag = EXTERNAL_SYMBOL_TYPE; t17302.s0.value.external_symbol_type = q540; /* x210098 */ t17303.s0.tag = EXTERNAL_SYMBOL_TYPE; t17303.s0.value.external_symbol_type = q636; /* x210099 */ t17305.s0.tag = EXTERNAL_SYMBOL_TYPE; t17305.s0.value.external_symbol_type = q616; /* x210100 */ t17306.s0.tag = EXTERNAL_SYMBOL_TYPE; t17306.s0.value.external_symbol_type = q562; /* x210101 */ t17306.s1.tag = NULL_TYPE; /* x210102 */ t17305.s1.tag = STRUCTURE_TYPE24753; t17305.s1.value.structure_type24753 = &t17306; /* x210103 */ t17304.s0.tag = STRUCTURE_TYPE24753; t17304.s0.value.structure_type24753 = &t17305; /* x210104 */ t17304.s1.tag = NULL_TYPE; /* x210105 */ t17303.s1.tag = STRUCTURE_TYPE24753; t17303.s1.value.structure_type24753 = &t17304; /* x210106 */ t17302.s1.tag = STRUCTURE_TYPE24753; t17302.s1.value.structure_type24753 = &t17303; /* x210107 */ t17301.s1.tag = STRUCTURE_TYPE24753; t17301.s1.value.structure_type24753 = &t17302; /* x210108 */ t17300.s0.tag = STRUCTURE_TYPE24753; t17300.s0.value.structure_type24753 = &t17301; /* x210109 */ t17308.s0.tag = EXTERNAL_SYMBOL_TYPE; t17308.s0.value.external_symbol_type = q600; /* x210110 */ t17309.s0.tag = EXTERNAL_SYMBOL_TYPE; t17309.s0.value.external_symbol_type = q540; /* x210111 */ t17310.s0.tag = EXTERNAL_SYMBOL_TYPE; t17310.s0.value.external_symbol_type = q636; /* x210112 */ t17311.s0.tag = FIXNUM_TYPE; t17311.s0.value.fixnum_type = 0; /* x210113 */ t17312.s0.tag = EXTERNAL_SYMBOL_TYPE; t17312.s0.value.external_symbol_type = q601; /* x210114 */ t17313.s0.tag = EXTERNAL_SYMBOL_TYPE; t17313.s0.value.external_symbol_type = q602; /* x210115 */ t17314.s0.tag = EXTERNAL_SYMBOL_TYPE; t17314.s0.value.external_symbol_type = q603; /* x210116 */ t17314.s1.tag = NULL_TYPE; /* x210117 */ t17313.s1.tag = STRUCTURE_TYPE24753; t17313.s1.value.structure_type24753 = &t17314; /* x210118 */ t17312.s1.tag = STRUCTURE_TYPE24753; t17312.s1.value.structure_type24753 = &t17313; /* x210119 */ t17311.s1.tag = STRUCTURE_TYPE24753; t17311.s1.value.structure_type24753 = &t17312; /* x210120 */ t17310.s1.tag = STRUCTURE_TYPE24753; t17310.s1.value.structure_type24753 = &t17311; /* x210121 */ t17309.s1.tag = STRUCTURE_TYPE24753; t17309.s1.value.structure_type24753 = &t17310; /* x210122 */ t17308.s1.tag = STRUCTURE_TYPE24753; t17308.s1.value.structure_type24753 = &t17309; /* x210123 */ t17307.s0.tag = STRUCTURE_TYPE24753; t17307.s0.value.structure_type24753 = &t17308; /* x210124 */ t17316.s0.tag = EXTERNAL_SYMBOL_TYPE; t17316.s0.value.external_symbol_type = q42; /* x210125 */ t17317.s0.tag = EXTERNAL_SYMBOL_TYPE; t17317.s0.value.external_symbol_type = q637; /* x210126 */ t17319.s0.tag = EXTERNAL_SYMBOL_TYPE; t17319.s0.value.external_symbol_type = q556; /* x210127 */ t17320.s0.tag = EXTERNAL_SYMBOL_TYPE; t17320.s0.value.external_symbol_type = q540; /* x210128 */ t17322.s0.tag = EXTERNAL_SYMBOL_TYPE; t17322.s0.value.external_symbol_type = q557; /* x210129 */ t17323.s0.tag = EXTERNAL_SYMBOL_TYPE; t17323.s0.value.external_symbol_type = q540; /* x210130 */ t17324.s0.tag = EXTERNAL_SYMBOL_TYPE; t17324.s0.value.external_symbol_type = q545; /* x210131 */ t17324.s1.tag = NULL_TYPE; /* x210132 */ t17323.s1.tag = STRUCTURE_TYPE24753; t17323.s1.value.structure_type24753 = &t17324; /* x210133 */ t17322.s1.tag = STRUCTURE_TYPE24753; t17322.s1.value.structure_type24753 = &t17323; /* x210134 */ t17321.s0.tag = STRUCTURE_TYPE24753; t17321.s0.value.structure_type24753 = &t17322; /* x210135 */ t17325.s0.tag = STRING_TYPE; t17325.s0.value.string_type = "Orange"; /* x210136 */ t17325.s1.tag = NULL_TYPE; /* x210137 */ t17321.s1.tag = STRUCTURE_TYPE24753; t17321.s1.value.structure_type24753 = &t17325; /* x210138 */ t17320.s1.tag = STRUCTURE_TYPE24753; t17320.s1.value.structure_type24753 = &t17321; /* x210139 */ t17319.s1.tag = STRUCTURE_TYPE24753; t17319.s1.value.structure_type24753 = &t17320; /* x210140 */ t17318.s0.tag = STRUCTURE_TYPE24753; t17318.s0.value.structure_type24753 = &t17319; /* x210141 */ t17318.s1.tag = NULL_TYPE; /* x210142 */ t17317.s1.tag = STRUCTURE_TYPE24753; t17317.s1.value.structure_type24753 = &t17318; /* x210143 */ t17316.s1.tag = STRUCTURE_TYPE24753; t17316.s1.value.structure_type24753 = &t17317; /* x210144 */ t17315.s0.tag = STRUCTURE_TYPE24753; t17315.s0.value.structure_type24753 = &t17316; /* x210145 */ t17327.s0.tag = EXTERNAL_SYMBOL_TYPE; t17327.s0.value.external_symbol_type = q494; /* x210146 */ t17329.s0.tag = EXTERNAL_SYMBOL_TYPE; t17329.s0.value.external_symbol_type = q120; /* x210147 */ t17331.s0.tag = EXTERNAL_SYMBOL_TYPE; t17331.s0.value.external_symbol_type = q559; /* x210148 */ t17332.s0.tag = EXTERNAL_SYMBOL_TYPE; t17332.s0.value.external_symbol_type = q637; /* x210149 */ t17332.s1.tag = NULL_TYPE; /* x210150 */ t17331.s1.tag = STRUCTURE_TYPE24753; t17331.s1.value.structure_type24753 = &t17332; /* x210151 */ t17330.s0.tag = STRUCTURE_TYPE24753; t17330.s0.value.structure_type24753 = &t17331; /* x210152 */ t17333.s0.tag = FIXNUM_TYPE; t17333.s0.value.fixnum_type = 1; /* x210153 */ t17333.s1.tag = NULL_TYPE; /* x210154 */ t17330.s1.tag = STRUCTURE_TYPE24753; t17330.s1.value.structure_type24753 = &t17333; /* x210155 */ t17329.s1.tag = STRUCTURE_TYPE24753; t17329.s1.value.structure_type24753 = &t17330; /* x210156 */ t17328.s0.tag = STRUCTURE_TYPE24753; t17328.s0.value.structure_type24753 = &t17329; /* x210157 */ t17335.s0.tag = EXTERNAL_SYMBOL_TYPE; t17335.s0.value.external_symbol_type = q179; /* x210158 */ t17336.s0.tag = STRING_TYPE; t17336.s0.value.string_type = "Can\'t allocate orange colorcell"; /* x210159 */ t17336.s1.tag = NULL_TYPE; /* x210160 */ t17335.s1.tag = STRUCTURE_TYPE24753; t17335.s1.value.structure_type24753 = &t17336; /* x210161 */ t17334.s0.tag = STRUCTURE_TYPE24753; t17334.s0.value.structure_type24753 = &t17335; /* x210162 */ t17334.s1.tag = NULL_TYPE; /* x210163 */ t17328.s1.tag = STRUCTURE_TYPE24753; t17328.s1.value.structure_type24753 = &t17334; /* x210164 */ t17327.s1.tag = STRUCTURE_TYPE24753; t17327.s1.value.structure_type24753 = &t17328; /* x210165 */ t17326.s0.tag = STRUCTURE_TYPE24753; t17326.s0.value.structure_type24753 = &t17327; /* x210166 */ t17338.s0.tag = EXTERNAL_SYMBOL_TYPE; t17338.s0.value.external_symbol_type = q42; /* x210167 */ t17339.s0.tag = EXTERNAL_SYMBOL_TYPE; t17339.s0.value.external_symbol_type = q638; /* x210168 */ t17341.s0.tag = EXTERNAL_SYMBOL_TYPE; t17341.s0.value.external_symbol_type = q596; /* x210169 */ t17342.s0.tag = EXTERNAL_SYMBOL_TYPE; t17342.s0.value.external_symbol_type = q540; /* x210170 */ t17343.s0.tag = EXTERNAL_SYMBOL_TYPE; t17343.s0.value.external_symbol_type = q578; /* x210171 */ t17344.s0.tag = FIXNUM_TYPE; t17344.s0.value.fixnum_type = 0; /* x210172 */ t17346.s0.tag = EXTERNAL_SYMBOL_TYPE; t17346.s0.value.external_symbol_type = q597; /* x210173 */ t17346.s1.tag = NULL_TYPE; /* x210174 */ t17345.s0.tag = STRUCTURE_TYPE24753; t17345.s0.value.structure_type24753 = &t17346; /* x210175 */ t17345.s1.tag = NULL_TYPE; /* x210176 */ t17344.s1.tag = STRUCTURE_TYPE24753; t17344.s1.value.structure_type24753 = &t17345; /* x210177 */ t17343.s1.tag = STRUCTURE_TYPE24753; t17343.s1.value.structure_type24753 = &t17344; /* x210178 */ t17342.s1.tag = STRUCTURE_TYPE24753; t17342.s1.value.structure_type24753 = &t17343; /* x210179 */ t17341.s1.tag = STRUCTURE_TYPE24753; t17341.s1.value.structure_type24753 = &t17342; /* x210180 */ t17340.s0.tag = STRUCTURE_TYPE24753; t17340.s0.value.structure_type24753 = &t17341; /* x210181 */ t17340.s1.tag = NULL_TYPE; /* x210182 */ t17339.s1.tag = STRUCTURE_TYPE24753; t17339.s1.value.structure_type24753 = &t17340; /* x210183 */ t17338.s1.tag = STRUCTURE_TYPE24753; t17338.s1.value.structure_type24753 = &t17339; /* x210184 */ t17337.s0.tag = STRUCTURE_TYPE24753; t17337.s0.value.structure_type24753 = &t17338; /* x210185 */ t17348.s0.tag = EXTERNAL_SYMBOL_TYPE; t17348.s0.value.external_symbol_type = q598; /* x210186 */ t17349.s0.tag = EXTERNAL_SYMBOL_TYPE; t17349.s0.value.external_symbol_type = q540; /* x210187 */ t17350.s0.tag = EXTERNAL_SYMBOL_TYPE; t17350.s0.value.external_symbol_type = q638; /* x210188 */ t17352.s0.tag = EXTERNAL_SYMBOL_TYPE; t17352.s0.value.external_symbol_type = q582; /* x210189 */ t17354.s0.tag = EXTERNAL_SYMBOL_TYPE; t17354.s0.value.external_symbol_type = q583; /* x210190 */ t17355.s0.tag = EXTERNAL_SYMBOL_TYPE; t17355.s0.value.external_symbol_type = q555; /* x210191 */ t17355.s1.tag = NULL_TYPE; /* x210192 */ t17354.s1.tag = STRUCTURE_TYPE24753; t17354.s1.value.structure_type24753 = &t17355; /* x210193 */ t17353.s0.tag = STRUCTURE_TYPE24753; t17353.s0.value.structure_type24753 = &t17354; /* x210194 */ t17353.s1.tag = NULL_TYPE; /* x210195 */ t17352.s1.tag = STRUCTURE_TYPE24753; t17352.s1.value.structure_type24753 = &t17353; /* x210196 */ t17351.s0.tag = STRUCTURE_TYPE24753; t17351.s0.value.structure_type24753 = &t17352; /* x210197 */ t17351.s1.tag = NULL_TYPE; /* x210198 */ t17350.s1.tag = STRUCTURE_TYPE24753; t17350.s1.value.structure_type24753 = &t17351; /* x210199 */ t17349.s1.tag = STRUCTURE_TYPE24753; t17349.s1.value.structure_type24753 = &t17350; /* x210200 */ t17348.s1.tag = STRUCTURE_TYPE24753; t17348.s1.value.structure_type24753 = &t17349; /* x210201 */ t17347.s0.tag = STRUCTURE_TYPE24753; t17347.s0.value.structure_type24753 = &t17348; /* x210202 */ t17357.s0.tag = EXTERNAL_SYMBOL_TYPE; t17357.s0.value.external_symbol_type = q599; /* x210203 */ t17358.s0.tag = EXTERNAL_SYMBOL_TYPE; t17358.s0.value.external_symbol_type = q540; /* x210204 */ t17359.s0.tag = EXTERNAL_SYMBOL_TYPE; t17359.s0.value.external_symbol_type = q638; /* x210205 */ t17361.s0.tag = EXTERNAL_SYMBOL_TYPE; t17361.s0.value.external_symbol_type = q582; /* x210206 */ t17363.s0.tag = EXTERNAL_SYMBOL_TYPE; t17363.s0.value.external_symbol_type = q583; /* x210207 */ t17364.s0.tag = EXTERNAL_SYMBOL_TYPE; t17364.s0.value.external_symbol_type = q637; /* x210208 */ t17364.s1.tag = NULL_TYPE; /* x210209 */ t17363.s1.tag = STRUCTURE_TYPE24753; t17363.s1.value.structure_type24753 = &t17364; /* x210210 */ t17362.s0.tag = STRUCTURE_TYPE24753; t17362.s0.value.structure_type24753 = &t17363; /* x210211 */ t17362.s1.tag = NULL_TYPE; /* x210212 */ t17361.s1.tag = STRUCTURE_TYPE24753; t17361.s1.value.structure_type24753 = &t17362; /* x210213 */ t17360.s0.tag = STRUCTURE_TYPE24753; t17360.s0.value.structure_type24753 = &t17361; /* x210214 */ t17360.s1.tag = NULL_TYPE; /* x210215 */ t17359.s1.tag = STRUCTURE_TYPE24753; t17359.s1.value.structure_type24753 = &t17360; /* x210216 */ t17358.s1.tag = STRUCTURE_TYPE24753; t17358.s1.value.structure_type24753 = &t17359; /* x210217 */ t17357.s1.tag = STRUCTURE_TYPE24753; t17357.s1.value.structure_type24753 = &t17358; /* x210218 */ t17356.s0.tag = STRUCTURE_TYPE24753; t17356.s0.value.structure_type24753 = &t17357; /* x210219 */ t17366.s0.tag = EXTERNAL_SYMBOL_TYPE; t17366.s0.value.external_symbol_type = q615; /* x210220 */ t17367.s0.tag = EXTERNAL_SYMBOL_TYPE; t17367.s0.value.external_symbol_type = q540; /* x210221 */ t17368.s0.tag = EXTERNAL_SYMBOL_TYPE; t17368.s0.value.external_symbol_type = q638; /* x210222 */ t17370.s0.tag = EXTERNAL_SYMBOL_TYPE; t17370.s0.value.external_symbol_type = q616; /* x210223 */ t17371.s0.tag = EXTERNAL_SYMBOL_TYPE; t17371.s0.value.external_symbol_type = q562; /* x210224 */ t17371.s1.tag = NULL_TYPE; /* x210225 */ t17370.s1.tag = STRUCTURE_TYPE24753; t17370.s1.value.structure_type24753 = &t17371; /* x210226 */ t17369.s0.tag = STRUCTURE_TYPE24753; t17369.s0.value.structure_type24753 = &t17370; /* x210227 */ t17369.s1.tag = NULL_TYPE; /* x210228 */ t17368.s1.tag = STRUCTURE_TYPE24753; t17368.s1.value.structure_type24753 = &t17369; /* x210229 */ t17367.s1.tag = STRUCTURE_TYPE24753; t17367.s1.value.structure_type24753 = &t17368; /* x210230 */ t17366.s1.tag = STRUCTURE_TYPE24753; t17366.s1.value.structure_type24753 = &t17367; /* x210231 */ t17365.s0.tag = STRUCTURE_TYPE24753; t17365.s0.value.structure_type24753 = &t17366; /* x210232 */ t17373.s0.tag = EXTERNAL_SYMBOL_TYPE; t17373.s0.value.external_symbol_type = q600; /* x210233 */ t17374.s0.tag = EXTERNAL_SYMBOL_TYPE; t17374.s0.value.external_symbol_type = q540; /* x210234 */ t17375.s0.tag = EXTERNAL_SYMBOL_TYPE; t17375.s0.value.external_symbol_type = q638; /* x210235 */ t17376.s0.tag = FIXNUM_TYPE; t17376.s0.value.fixnum_type = 0; /* x210236 */ t17377.s0.tag = EXTERNAL_SYMBOL_TYPE; t17377.s0.value.external_symbol_type = q601; /* x210237 */ t17378.s0.tag = EXTERNAL_SYMBOL_TYPE; t17378.s0.value.external_symbol_type = q602; /* x210238 */ t17379.s0.tag = EXTERNAL_SYMBOL_TYPE; t17379.s0.value.external_symbol_type = q603; /* x210239 */ t17379.s1.tag = NULL_TYPE; /* x210240 */ t17378.s1.tag = STRUCTURE_TYPE24753; t17378.s1.value.structure_type24753 = &t17379; /* x210241 */ t17377.s1.tag = STRUCTURE_TYPE24753; t17377.s1.value.structure_type24753 = &t17378; /* x210242 */ t17376.s1.tag = STRUCTURE_TYPE24753; t17376.s1.value.structure_type24753 = &t17377; /* x210243 */ t17375.s1.tag = STRUCTURE_TYPE24753; t17375.s1.value.structure_type24753 = &t17376; /* x210244 */ t17374.s1.tag = STRUCTURE_TYPE24753; t17374.s1.value.structure_type24753 = &t17375; /* x210245 */ t17373.s1.tag = STRUCTURE_TYPE24753; t17373.s1.value.structure_type24753 = &t17374; /* x210246 */ t17372.s0.tag = STRUCTURE_TYPE24753; t17372.s0.value.structure_type24753 = &t17373; /* x210247 */ t17381.s0.tag = EXTERNAL_SYMBOL_TYPE; t17381.s0.value.external_symbol_type = q42; /* x210248 */ t17382.s0.tag = EXTERNAL_SYMBOL_TYPE; t17382.s0.value.external_symbol_type = q639; /* x210249 */ t17384.s0.tag = EXTERNAL_SYMBOL_TYPE; t17384.s0.value.external_symbol_type = q556; /* x210250 */ t17385.s0.tag = EXTERNAL_SYMBOL_TYPE; t17385.s0.value.external_symbol_type = q540; /* x210251 */ t17387.s0.tag = EXTERNAL_SYMBOL_TYPE; t17387.s0.value.external_symbol_type = q557; /* x210252 */ t17388.s0.tag = EXTERNAL_SYMBOL_TYPE; t17388.s0.value.external_symbol_type = q540; /* x210253 */ t17389.s0.tag = EXTERNAL_SYMBOL_TYPE; t17389.s0.value.external_symbol_type = q545; /* x210254 */ t17389.s1.tag = NULL_TYPE; /* x210255 */ t17388.s1.tag = STRUCTURE_TYPE24753; t17388.s1.value.structure_type24753 = &t17389; /* x210256 */ t17387.s1.tag = STRUCTURE_TYPE24753; t17387.s1.value.structure_type24753 = &t17388; /* x210257 */ t17386.s0.tag = STRUCTURE_TYPE24753; t17386.s0.value.structure_type24753 = &t17387; /* x210258 */ t17390.s0.tag = STRING_TYPE; t17390.s0.value.string_type = "Dark Orange"; /* x210259 */ t17390.s1.tag = NULL_TYPE; /* x210260 */ t17386.s1.tag = STRUCTURE_TYPE24753; t17386.s1.value.structure_type24753 = &t17390; /* x210261 */ t17385.s1.tag = STRUCTURE_TYPE24753; t17385.s1.value.structure_type24753 = &t17386; /* x210262 */ t17384.s1.tag = STRUCTURE_TYPE24753; t17384.s1.value.structure_type24753 = &t17385; /* x210263 */ t17383.s0.tag = STRUCTURE_TYPE24753; t17383.s0.value.structure_type24753 = &t17384; /* x210264 */ t17383.s1.tag = NULL_TYPE; /* x210265 */ t17382.s1.tag = STRUCTURE_TYPE24753; t17382.s1.value.structure_type24753 = &t17383; /* x210266 */ t17381.s1.tag = STRUCTURE_TYPE24753; t17381.s1.value.structure_type24753 = &t17382; /* x210267 */ t17380.s0.tag = STRUCTURE_TYPE24753; t17380.s0.value.structure_type24753 = &t17381; /* x210268 */ t17392.s0.tag = EXTERNAL_SYMBOL_TYPE; t17392.s0.value.external_symbol_type = q494; /* x210269 */ t17394.s0.tag = EXTERNAL_SYMBOL_TYPE; t17394.s0.value.external_symbol_type = q120; /* x210270 */ t17396.s0.tag = EXTERNAL_SYMBOL_TYPE; t17396.s0.value.external_symbol_type = q559; /* x210271 */ t17397.s0.tag = EXTERNAL_SYMBOL_TYPE; t17397.s0.value.external_symbol_type = q639; /* x210272 */ t17397.s1.tag = NULL_TYPE; /* x210273 */ t17396.s1.tag = STRUCTURE_TYPE24753; t17396.s1.value.structure_type24753 = &t17397; /* x210274 */ t17395.s0.tag = STRUCTURE_TYPE24753; t17395.s0.value.structure_type24753 = &t17396; /* x210275 */ t17398.s0.tag = FIXNUM_TYPE; t17398.s0.value.fixnum_type = 1; /* x210276 */ t17398.s1.tag = NULL_TYPE; /* x210277 */ t17395.s1.tag = STRUCTURE_TYPE24753; t17395.s1.value.structure_type24753 = &t17398; /* x210278 */ t17394.s1.tag = STRUCTURE_TYPE24753; t17394.s1.value.structure_type24753 = &t17395; /* x210279 */ t17393.s0.tag = STRUCTURE_TYPE24753; t17393.s0.value.structure_type24753 = &t17394; /* x210280 */ t17400.s0.tag = EXTERNAL_SYMBOL_TYPE; t17400.s0.value.external_symbol_type = q179; /* x210281 */ t17401.s0.tag = STRING_TYPE; t17401.s0.value.string_type = "Can\'t allocate dark orange colorcell"; /* x210282 */ t17401.s1.tag = NULL_TYPE; /* x210283 */ t17400.s1.tag = STRUCTURE_TYPE24753; t17400.s1.value.structure_type24753 = &t17401; /* x210284 */ t17399.s0.tag = STRUCTURE_TYPE24753; t17399.s0.value.structure_type24753 = &t17400; /* x210285 */ t17399.s1.tag = NULL_TYPE; /* x210286 */ t17393.s1.tag = STRUCTURE_TYPE24753; t17393.s1.value.structure_type24753 = &t17399; /* x210287 */ t17392.s1.tag = STRUCTURE_TYPE24753; t17392.s1.value.structure_type24753 = &t17393; /* x210288 */ t17391.s0.tag = STRUCTURE_TYPE24753; t17391.s0.value.structure_type24753 = &t17392; /* x210289 */ t17403.s0.tag = EXTERNAL_SYMBOL_TYPE; t17403.s0.value.external_symbol_type = q42; /* x210290 */ t17404.s0.tag = EXTERNAL_SYMBOL_TYPE; t17404.s0.value.external_symbol_type = q640; /* x210291 */ t17406.s0.tag = EXTERNAL_SYMBOL_TYPE; t17406.s0.value.external_symbol_type = q596; /* x210292 */ t17407.s0.tag = EXTERNAL_SYMBOL_TYPE; t17407.s0.value.external_symbol_type = q540; /* x210293 */ t17408.s0.tag = EXTERNAL_SYMBOL_TYPE; t17408.s0.value.external_symbol_type = q578; /* x210294 */ t17409.s0.tag = FIXNUM_TYPE; t17409.s0.value.fixnum_type = 0; /* x210295 */ t17411.s0.tag = EXTERNAL_SYMBOL_TYPE; t17411.s0.value.external_symbol_type = q597; /* x210296 */ t17411.s1.tag = NULL_TYPE; /* x210297 */ t17410.s0.tag = STRUCTURE_TYPE24753; t17410.s0.value.structure_type24753 = &t17411; /* x210298 */ t17410.s1.tag = NULL_TYPE; /* x210299 */ t17409.s1.tag = STRUCTURE_TYPE24753; t17409.s1.value.structure_type24753 = &t17410; /* x210300 */ t17408.s1.tag = STRUCTURE_TYPE24753; t17408.s1.value.structure_type24753 = &t17409; /* x210301 */ t17407.s1.tag = STRUCTURE_TYPE24753; t17407.s1.value.structure_type24753 = &t17408; /* x210302 */ t17406.s1.tag = STRUCTURE_TYPE24753; t17406.s1.value.structure_type24753 = &t17407; /* x210303 */ t17405.s0.tag = STRUCTURE_TYPE24753; t17405.s0.value.structure_type24753 = &t17406; /* x210304 */ t17405.s1.tag = NULL_TYPE; /* x210305 */ t17404.s1.tag = STRUCTURE_TYPE24753; t17404.s1.value.structure_type24753 = &t17405; /* x210306 */ t17403.s1.tag = STRUCTURE_TYPE24753; t17403.s1.value.structure_type24753 = &t17404; /* x210307 */ t17402.s0.tag = STRUCTURE_TYPE24753; t17402.s0.value.structure_type24753 = &t17403; /* x210308 */ t17413.s0.tag = EXTERNAL_SYMBOL_TYPE; t17413.s0.value.external_symbol_type = q598; /* x210309 */ t17414.s0.tag = EXTERNAL_SYMBOL_TYPE; t17414.s0.value.external_symbol_type = q540; /* x210310 */ t17415.s0.tag = EXTERNAL_SYMBOL_TYPE; t17415.s0.value.external_symbol_type = q640; /* x210311 */ t17417.s0.tag = EXTERNAL_SYMBOL_TYPE; t17417.s0.value.external_symbol_type = q582; /* x210312 */ t17419.s0.tag = EXTERNAL_SYMBOL_TYPE; t17419.s0.value.external_symbol_type = q583; /* x210313 */ t17420.s0.tag = EXTERNAL_SYMBOL_TYPE; t17420.s0.value.external_symbol_type = q555; /* x210314 */ t17420.s1.tag = NULL_TYPE; /* x210315 */ t17419.s1.tag = STRUCTURE_TYPE24753; t17419.s1.value.structure_type24753 = &t17420; /* x210316 */ t17418.s0.tag = STRUCTURE_TYPE24753; t17418.s0.value.structure_type24753 = &t17419; /* x210317 */ t17418.s1.tag = NULL_TYPE; /* x210318 */ t17417.s1.tag = STRUCTURE_TYPE24753; t17417.s1.value.structure_type24753 = &t17418; /* x210319 */ t17416.s0.tag = STRUCTURE_TYPE24753; t17416.s0.value.structure_type24753 = &t17417; /* x210320 */ t17416.s1.tag = NULL_TYPE; /* x210321 */ t17415.s1.tag = STRUCTURE_TYPE24753; t17415.s1.value.structure_type24753 = &t17416; /* x210322 */ t17414.s1.tag = STRUCTURE_TYPE24753; t17414.s1.value.structure_type24753 = &t17415; /* x210323 */ t17413.s1.tag = STRUCTURE_TYPE24753; t17413.s1.value.structure_type24753 = &t17414; /* x210324 */ t17412.s0.tag = STRUCTURE_TYPE24753; t17412.s0.value.structure_type24753 = &t17413; /* x210325 */ t17422.s0.tag = EXTERNAL_SYMBOL_TYPE; t17422.s0.value.external_symbol_type = q599; /* x210326 */ t17423.s0.tag = EXTERNAL_SYMBOL_TYPE; t17423.s0.value.external_symbol_type = q540; /* x210327 */ t17424.s0.tag = EXTERNAL_SYMBOL_TYPE; t17424.s0.value.external_symbol_type = q640; /* x210328 */ t17426.s0.tag = EXTERNAL_SYMBOL_TYPE; t17426.s0.value.external_symbol_type = q582; /* x210329 */ t17428.s0.tag = EXTERNAL_SYMBOL_TYPE; t17428.s0.value.external_symbol_type = q583; /* x210330 */ t17429.s0.tag = EXTERNAL_SYMBOL_TYPE; t17429.s0.value.external_symbol_type = q639; /* x210331 */ t17429.s1.tag = NULL_TYPE; /* x210332 */ t17428.s1.tag = STRUCTURE_TYPE24753; t17428.s1.value.structure_type24753 = &t17429; /* x210333 */ t17427.s0.tag = STRUCTURE_TYPE24753; t17427.s0.value.structure_type24753 = &t17428; /* x210334 */ t17427.s1.tag = NULL_TYPE; /* x210335 */ t17426.s1.tag = STRUCTURE_TYPE24753; t17426.s1.value.structure_type24753 = &t17427; /* x210336 */ t17425.s0.tag = STRUCTURE_TYPE24753; t17425.s0.value.structure_type24753 = &t17426; /* x210337 */ t17425.s1.tag = NULL_TYPE; /* x210338 */ t17424.s1.tag = STRUCTURE_TYPE24753; t17424.s1.value.structure_type24753 = &t17425; /* x210339 */ t17423.s1.tag = STRUCTURE_TYPE24753; t17423.s1.value.structure_type24753 = &t17424; /* x210340 */ t17422.s1.tag = STRUCTURE_TYPE24753; t17422.s1.value.structure_type24753 = &t17423; /* x210341 */ t17421.s0.tag = STRUCTURE_TYPE24753; t17421.s0.value.structure_type24753 = &t17422; /* x210342 */ t17431.s0.tag = EXTERNAL_SYMBOL_TYPE; t17431.s0.value.external_symbol_type = q615; /* x210343 */ t17432.s0.tag = EXTERNAL_SYMBOL_TYPE; t17432.s0.value.external_symbol_type = q540; /* x210344 */ t17433.s0.tag = EXTERNAL_SYMBOL_TYPE; t17433.s0.value.external_symbol_type = q640; /* x210345 */ t17435.s0.tag = EXTERNAL_SYMBOL_TYPE; t17435.s0.value.external_symbol_type = q616; /* x210346 */ t17436.s0.tag = EXTERNAL_SYMBOL_TYPE; t17436.s0.value.external_symbol_type = q562; /* x210347 */ t17436.s1.tag = NULL_TYPE; /* x210348 */ t17435.s1.tag = STRUCTURE_TYPE24753; t17435.s1.value.structure_type24753 = &t17436; /* x210349 */ t17434.s0.tag = STRUCTURE_TYPE24753; t17434.s0.value.structure_type24753 = &t17435; /* x210350 */ t17434.s1.tag = NULL_TYPE; /* x210351 */ t17433.s1.tag = STRUCTURE_TYPE24753; t17433.s1.value.structure_type24753 = &t17434; /* x210352 */ t17432.s1.tag = STRUCTURE_TYPE24753; t17432.s1.value.structure_type24753 = &t17433; /* x210353 */ t17431.s1.tag = STRUCTURE_TYPE24753; t17431.s1.value.structure_type24753 = &t17432; /* x210354 */ t17430.s0.tag = STRUCTURE_TYPE24753; t17430.s0.value.structure_type24753 = &t17431; /* x210355 */ t17438.s0.tag = EXTERNAL_SYMBOL_TYPE; t17438.s0.value.external_symbol_type = q600; /* x210356 */ t17439.s0.tag = EXTERNAL_SYMBOL_TYPE; t17439.s0.value.external_symbol_type = q540; /* x210357 */ t17440.s0.tag = EXTERNAL_SYMBOL_TYPE; t17440.s0.value.external_symbol_type = q640; /* x210358 */ t17441.s0.tag = FIXNUM_TYPE; t17441.s0.value.fixnum_type = 0; /* x210359 */ t17442.s0.tag = EXTERNAL_SYMBOL_TYPE; t17442.s0.value.external_symbol_type = q601; /* x210360 */ t17443.s0.tag = EXTERNAL_SYMBOL_TYPE; t17443.s0.value.external_symbol_type = q602; /* x210361 */ t17444.s0.tag = EXTERNAL_SYMBOL_TYPE; t17444.s0.value.external_symbol_type = q603; /* x210362 */ t17444.s1.tag = NULL_TYPE; /* x210363 */ t17443.s1.tag = STRUCTURE_TYPE24753; t17443.s1.value.structure_type24753 = &t17444; /* x210364 */ t17442.s1.tag = STRUCTURE_TYPE24753; t17442.s1.value.structure_type24753 = &t17443; /* x210365 */ t17441.s1.tag = STRUCTURE_TYPE24753; t17441.s1.value.structure_type24753 = &t17442; /* x210366 */ t17440.s1.tag = STRUCTURE_TYPE24753; t17440.s1.value.structure_type24753 = &t17441; /* x210367 */ t17439.s1.tag = STRUCTURE_TYPE24753; t17439.s1.value.structure_type24753 = &t17440; /* x210368 */ t17438.s1.tag = STRUCTURE_TYPE24753; t17438.s1.value.structure_type24753 = &t17439; /* x210369 */ t17437.s0.tag = STRUCTURE_TYPE24753; t17437.s0.value.structure_type24753 = &t17438; /* x210370 */ t17437.s1.tag = NULL_TYPE; /* x210371 */ t17430.s1.tag = STRUCTURE_TYPE24753; t17430.s1.value.structure_type24753 = &t17437; /* x210372 */ t17421.s1.tag = STRUCTURE_TYPE24753; t17421.s1.value.structure_type24753 = &t17430; /* x210373 */ t17412.s1.tag = STRUCTURE_TYPE24753; t17412.s1.value.structure_type24753 = &t17421; /* x210374 */ t17402.s1.tag = STRUCTURE_TYPE24753; t17402.s1.value.structure_type24753 = &t17412; /* x210375 */ t17391.s1.tag = STRUCTURE_TYPE24753; t17391.s1.value.structure_type24753 = &t17402; /* x210376 */ t17380.s1.tag = STRUCTURE_TYPE24753; t17380.s1.value.structure_type24753 = &t17391; /* x210377 */ t17372.s1.tag = STRUCTURE_TYPE24753; t17372.s1.value.structure_type24753 = &t17380; /* x210378 */ t17365.s1.tag = STRUCTURE_TYPE24753; t17365.s1.value.structure_type24753 = &t17372; /* x210379 */ t17356.s1.tag = STRUCTURE_TYPE24753; t17356.s1.value.structure_type24753 = &t17365; /* x210380 */ t17347.s1.tag = STRUCTURE_TYPE24753; t17347.s1.value.structure_type24753 = &t17356; /* x210381 */ t17337.s1.tag = STRUCTURE_TYPE24753; t17337.s1.value.structure_type24753 = &t17347; /* x210382 */ t17326.s1.tag = STRUCTURE_TYPE24753; t17326.s1.value.structure_type24753 = &t17337; /* x210383 */ t17315.s1.tag = STRUCTURE_TYPE24753; t17315.s1.value.structure_type24753 = &t17326; /* x210384 */ t17307.s1.tag = STRUCTURE_TYPE24753; t17307.s1.value.structure_type24753 = &t17315; /* x210385 */ t17300.s1.tag = STRUCTURE_TYPE24753; t17300.s1.value.structure_type24753 = &t17307; /* x210386 */ t17291.s1.tag = STRUCTURE_TYPE24753; t17291.s1.value.structure_type24753 = &t17300; /* x210387 */ t17282.s1.tag = STRUCTURE_TYPE24753; t17282.s1.value.structure_type24753 = &t17291; /* x210388 */ t17272.s1.tag = STRUCTURE_TYPE24753; t17272.s1.value.structure_type24753 = &t17282; /* x210389 */ t17261.s1.tag = STRUCTURE_TYPE24753; t17261.s1.value.structure_type24753 = &t17272; /* x210390 */ t17250.s1.tag = STRUCTURE_TYPE24753; t17250.s1.value.structure_type24753 = &t17261; /* x210391 */ t17242.s1.tag = STRUCTURE_TYPE24753; t17242.s1.value.structure_type24753 = &t17250; /* x210392 */ t17235.s1.tag = STRUCTURE_TYPE24753; t17235.s1.value.structure_type24753 = &t17242; /* x210393 */ t17226.s1.tag = STRUCTURE_TYPE24753; t17226.s1.value.structure_type24753 = &t17235; /* x210394 */ t17217.s1.tag = STRUCTURE_TYPE24753; t17217.s1.value.structure_type24753 = &t17226; /* x210395 */ t17207.s1.tag = STRUCTURE_TYPE24753; t17207.s1.value.structure_type24753 = &t17217; /* x210396 */ t17196.s1.tag = STRUCTURE_TYPE24753; t17196.s1.value.structure_type24753 = &t17207; /* x210397 */ t17185.s1.tag = STRUCTURE_TYPE24753; t17185.s1.value.structure_type24753 = &t17196; /* x210398 */ t17177.s1.tag = STRUCTURE_TYPE24753; t17177.s1.value.structure_type24753 = &t17185; /* x210399 */ t17170.s1.tag = STRUCTURE_TYPE24753; t17170.s1.value.structure_type24753 = &t17177; /* x210400 */ t17161.s1.tag = STRUCTURE_TYPE24753; t17161.s1.value.structure_type24753 = &t17170; /* x210401 */ t17152.s1.tag = STRUCTURE_TYPE24753; t17152.s1.value.structure_type24753 = &t17161; /* x210402 */ t17142.s1.tag = STRUCTURE_TYPE24753; t17142.s1.value.structure_type24753 = &t17152; /* x210403 */ t17131.s1.tag = STRUCTURE_TYPE24753; t17131.s1.value.structure_type24753 = &t17142; /* x210404 */ t17120.s1.tag = STRUCTURE_TYPE24753; t17120.s1.value.structure_type24753 = &t17131; /* x210405 */ t17112.s1.tag = STRUCTURE_TYPE24753; t17112.s1.value.structure_type24753 = &t17120; /* x210406 */ t17105.s1.tag = STRUCTURE_TYPE24753; t17105.s1.value.structure_type24753 = &t17112; /* x210407 */ t17096.s1.tag = STRUCTURE_TYPE24753; t17096.s1.value.structure_type24753 = &t17105; /* x210408 */ t17087.s1.tag = STRUCTURE_TYPE24753; t17087.s1.value.structure_type24753 = &t17096; /* x210409 */ t17077.s1.tag = STRUCTURE_TYPE24753; t17077.s1.value.structure_type24753 = &t17087; /* x210410 */ t17066.s1.tag = STRUCTURE_TYPE24753; t17066.s1.value.structure_type24753 = &t17077; /* x210411 */ t17055.s1.tag = STRUCTURE_TYPE24753; t17055.s1.value.structure_type24753 = &t17066; /* x210412 */ t17047.s1.tag = STRUCTURE_TYPE24753; t17047.s1.value.structure_type24753 = &t17055; /* x210413 */ t17040.s1.tag = STRUCTURE_TYPE24753; t17040.s1.value.structure_type24753 = &t17047; /* x210414 */ t17031.s1.tag = STRUCTURE_TYPE24753; t17031.s1.value.structure_type24753 = &t17040; /* x210415 */ t17022.s1.tag = STRUCTURE_TYPE24753; t17022.s1.value.structure_type24753 = &t17031; /* x210416 */ t17012.s1.tag = STRUCTURE_TYPE24753; t17012.s1.value.structure_type24753 = &t17022; /* x210417 */ t17001.s1.tag = STRUCTURE_TYPE24753; t17001.s1.value.structure_type24753 = &t17012; /* x210418 */ t16990.s1.tag = STRUCTURE_TYPE24753; t16990.s1.value.structure_type24753 = &t17001; /* x210419 */ t16982.s1.tag = STRUCTURE_TYPE24753; t16982.s1.value.structure_type24753 = &t16990; /* x210420 */ t16975.s1.tag = STRUCTURE_TYPE24753; t16975.s1.value.structure_type24753 = &t16982; /* x210421 */ t16966.s1.tag = STRUCTURE_TYPE24753; t16966.s1.value.structure_type24753 = &t16975; /* x210422 */ t16957.s1.tag = STRUCTURE_TYPE24753; t16957.s1.value.structure_type24753 = &t16966; /* x210423 */ t16947.s1.tag = STRUCTURE_TYPE24753; t16947.s1.value.structure_type24753 = &t16957; /* x210424 */ t16936.s1.tag = STRUCTURE_TYPE24753; t16936.s1.value.structure_type24753 = &t16947; /* x210425 */ t16925.s1.tag = STRUCTURE_TYPE24753; t16925.s1.value.structure_type24753 = &t16936; /* x210426 */ t16917.s1.tag = STRUCTURE_TYPE24753; t16917.s1.value.structure_type24753 = &t16925; /* x210427 */ t16910.s1.tag = STRUCTURE_TYPE24753; t16910.s1.value.structure_type24753 = &t16917; /* x210428 */ t16901.s1.tag = STRUCTURE_TYPE24753; t16901.s1.value.structure_type24753 = &t16910; /* x210429 */ t16892.s1.tag = STRUCTURE_TYPE24753; t16892.s1.value.structure_type24753 = &t16901; /* x210430 */ t16882.s1.tag = STRUCTURE_TYPE24753; t16882.s1.value.structure_type24753 = &t16892; /* x210431 */ t16871.s1.tag = STRUCTURE_TYPE24753; t16871.s1.value.structure_type24753 = &t16882; /* x210432 */ t16860.s1.tag = STRUCTURE_TYPE24753; t16860.s1.value.structure_type24753 = &t16871; /* x210433 */ t16852.s1.tag = STRUCTURE_TYPE24753; t16852.s1.value.structure_type24753 = &t16860; /* x210434 */ t16843.s1.tag = STRUCTURE_TYPE24753; t16843.s1.value.structure_type24753 = &t16852; /* x210435 */ t16834.s1.tag = STRUCTURE_TYPE24753; t16834.s1.value.structure_type24753 = &t16843; /* x210436 */ t16824.s1.tag = STRUCTURE_TYPE24753; t16824.s1.value.structure_type24753 = &t16834; /* x210437 */ t16813.s1.tag = STRUCTURE_TYPE24753; t16813.s1.value.structure_type24753 = &t16824; /* x210438 */ t16802.s1.tag = STRUCTURE_TYPE24753; t16802.s1.value.structure_type24753 = &t16813; /* x210439 */ t16794.s1.tag = STRUCTURE_TYPE24753; t16794.s1.value.structure_type24753 = &t16802; /* x210440 */ t16785.s1.tag = STRUCTURE_TYPE24753; t16785.s1.value.structure_type24753 = &t16794; /* x210441 */ t16776.s1.tag = STRUCTURE_TYPE24753; t16776.s1.value.structure_type24753 = &t16785; /* x210442 */ t16766.s1.tag = STRUCTURE_TYPE24753; t16766.s1.value.structure_type24753 = &t16776; /* x210443 */ t16755.s1.tag = STRUCTURE_TYPE24753; t16755.s1.value.structure_type24753 = &t16766; /* x210444 */ t16744.s1.tag = STRUCTURE_TYPE24753; t16744.s1.value.structure_type24753 = &t16755; /* x210445 */ t16743.s1.tag = STRUCTURE_TYPE24753; t16743.s1.value.structure_type24753 = &t16744; /* x210446 */ t16742.s1.tag = STRUCTURE_TYPE24753; t16742.s1.value.structure_type24753 = &t16743; /* x210447 */ t16741.s0.tag = STRUCTURE_TYPE24753; t16741.s0.value.structure_type24753 = &t16742; /* x210448 */ t17446.s0.tag = EXTERNAL_SYMBOL_TYPE; t17446.s0.value.external_symbol_type = q42; /* x210449 */ t17447.s0.tag = EXTERNAL_SYMBOL_TYPE; t17447.s0.value.external_symbol_type = q641; /* x210450 */ t17449.s0.tag = EXTERNAL_SYMBOL_TYPE; t17449.s0.value.external_symbol_type = q596; /* x210451 */ t17450.s0.tag = EXTERNAL_SYMBOL_TYPE; t17450.s0.value.external_symbol_type = q540; /* x210452 */ t17451.s0.tag = EXTERNAL_SYMBOL_TYPE; t17451.s0.value.external_symbol_type = q578; /* x210453 */ t17452.s0.tag = FIXNUM_TYPE; t17452.s0.value.fixnum_type = 0; /* x210454 */ t17454.s0.tag = EXTERNAL_SYMBOL_TYPE; t17454.s0.value.external_symbol_type = q597; /* x210455 */ t17454.s1.tag = NULL_TYPE; /* x210456 */ t17453.s0.tag = STRUCTURE_TYPE24753; t17453.s0.value.structure_type24753 = &t17454; /* x210457 */ t17453.s1.tag = NULL_TYPE; /* x210458 */ t17452.s1.tag = STRUCTURE_TYPE24753; t17452.s1.value.structure_type24753 = &t17453; /* x210459 */ t17451.s1.tag = STRUCTURE_TYPE24753; t17451.s1.value.structure_type24753 = &t17452; /* x210460 */ t17450.s1.tag = STRUCTURE_TYPE24753; t17450.s1.value.structure_type24753 = &t17451; /* x210461 */ t17449.s1.tag = STRUCTURE_TYPE24753; t17449.s1.value.structure_type24753 = &t17450; /* x210462 */ t17448.s0.tag = STRUCTURE_TYPE24753; t17448.s0.value.structure_type24753 = &t17449; /* x210463 */ t17448.s1.tag = NULL_TYPE; /* x210464 */ t17447.s1.tag = STRUCTURE_TYPE24753; t17447.s1.value.structure_type24753 = &t17448; /* x210465 */ t17446.s1.tag = STRUCTURE_TYPE24753; t17446.s1.value.structure_type24753 = &t17447; /* x210466 */ t17445.s0.tag = STRUCTURE_TYPE24753; t17445.s0.value.structure_type24753 = &t17446; /* x210467 */ t17456.s0.tag = EXTERNAL_SYMBOL_TYPE; t17456.s0.value.external_symbol_type = q598; /* x210468 */ t17457.s0.tag = EXTERNAL_SYMBOL_TYPE; t17457.s0.value.external_symbol_type = q540; /* x210469 */ t17458.s0.tag = EXTERNAL_SYMBOL_TYPE; t17458.s0.value.external_symbol_type = q641; /* x210470 */ t17460.s0.tag = EXTERNAL_SYMBOL_TYPE; t17460.s0.value.external_symbol_type = q43; /* x210471 */ t17461.s0.tag = EXTERNAL_SYMBOL_TYPE; t17461.s0.value.external_symbol_type = q528; /* x210472 */ t17462.s0.tag = EXTERNAL_SYMBOL_TYPE; t17462.s0.value.external_symbol_type = q551; /* x210473 */ t17464.s0.tag = EXTERNAL_SYMBOL_TYPE; t17464.s0.value.external_symbol_type = q582; /* x210474 */ t17466.s0.tag = EXTERNAL_SYMBOL_TYPE; t17466.s0.value.external_symbol_type = q583; /* x210475 */ t17467.s0.tag = EXTERNAL_SYMBOL_TYPE; t17467.s0.value.external_symbol_type = q555; /* x210476 */ t17467.s1.tag = NULL_TYPE; /* x210477 */ t17466.s1.tag = STRUCTURE_TYPE24753; t17466.s1.value.structure_type24753 = &t17467; /* x210478 */ t17465.s0.tag = STRUCTURE_TYPE24753; t17465.s0.value.structure_type24753 = &t17466; /* x210479 */ t17465.s1.tag = NULL_TYPE; /* x210480 */ t17464.s1.tag = STRUCTURE_TYPE24753; t17464.s1.value.structure_type24753 = &t17465; /* x210481 */ t17463.s0.tag = STRUCTURE_TYPE24753; t17463.s0.value.structure_type24753 = &t17464; /* x210482 */ t17463.s1.tag = NULL_TYPE; /* x210483 */ t17462.s1.tag = STRUCTURE_TYPE24753; t17462.s1.value.structure_type24753 = &t17463; /* x210484 */ t17461.s1.tag = STRUCTURE_TYPE24753; t17461.s1.value.structure_type24753 = &t17462; /* x210485 */ t17460.s1.tag = STRUCTURE_TYPE24753; t17460.s1.value.structure_type24753 = &t17461; /* x210486 */ t17459.s0.tag = STRUCTURE_TYPE24753; t17459.s0.value.structure_type24753 = &t17460; /* x210487 */ t17459.s1.tag = NULL_TYPE; /* x210488 */ t17458.s1.tag = STRUCTURE_TYPE24753; t17458.s1.value.structure_type24753 = &t17459; /* x210489 */ t17457.s1.tag = STRUCTURE_TYPE24753; t17457.s1.value.structure_type24753 = &t17458; /* x210490 */ t17456.s1.tag = STRUCTURE_TYPE24753; t17456.s1.value.structure_type24753 = &t17457; /* x210491 */ t17455.s0.tag = STRUCTURE_TYPE24753; t17455.s0.value.structure_type24753 = &t17456; /* x210492 */ t17469.s0.tag = EXTERNAL_SYMBOL_TYPE; t17469.s0.value.external_symbol_type = q599; /* x210493 */ t17470.s0.tag = EXTERNAL_SYMBOL_TYPE; t17470.s0.value.external_symbol_type = q540; /* x210494 */ t17471.s0.tag = EXTERNAL_SYMBOL_TYPE; t17471.s0.value.external_symbol_type = q641; /* x210495 */ t17473.s0.tag = EXTERNAL_SYMBOL_TYPE; t17473.s0.value.external_symbol_type = q43; /* x210496 */ t17474.s0.tag = EXTERNAL_SYMBOL_TYPE; t17474.s0.value.external_symbol_type = q528; /* x210497 */ t17475.s0.tag = EXTERNAL_SYMBOL_TYPE; t17475.s0.value.external_symbol_type = q553; /* x210498 */ t17477.s0.tag = EXTERNAL_SYMBOL_TYPE; t17477.s0.value.external_symbol_type = q582; /* x210499 */ t17479.s0.tag = EXTERNAL_SYMBOL_TYPE; t17479.s0.value.external_symbol_type = q583; /* x210500 */ t17480.s0.tag = EXTERNAL_SYMBOL_TYPE; t17480.s0.value.external_symbol_type = q560; /* x210501 */ t17480.s1.tag = NULL_TYPE; /* x210502 */ t17479.s1.tag = STRUCTURE_TYPE24753; t17479.s1.value.structure_type24753 = &t17480; /* x210503 */ t17478.s0.tag = STRUCTURE_TYPE24753; t17478.s0.value.structure_type24753 = &t17479; /* x210504 */ t17478.s1.tag = NULL_TYPE; /* x210505 */ t17477.s1.tag = STRUCTURE_TYPE24753; t17477.s1.value.structure_type24753 = &t17478; /* x210506 */ t17476.s0.tag = STRUCTURE_TYPE24753; t17476.s0.value.structure_type24753 = &t17477; /* x210507 */ t17476.s1.tag = NULL_TYPE; /* x210508 */ t17475.s1.tag = STRUCTURE_TYPE24753; t17475.s1.value.structure_type24753 = &t17476; /* x210509 */ t17474.s1.tag = STRUCTURE_TYPE24753; t17474.s1.value.structure_type24753 = &t17475; /* x210510 */ t17473.s1.tag = STRUCTURE_TYPE24753; t17473.s1.value.structure_type24753 = &t17474; /* x210511 */ t17472.s0.tag = STRUCTURE_TYPE24753; t17472.s0.value.structure_type24753 = &t17473; /* x210512 */ t17472.s1.tag = NULL_TYPE; /* x210513 */ t17471.s1.tag = STRUCTURE_TYPE24753; t17471.s1.value.structure_type24753 = &t17472; /* x210514 */ t17470.s1.tag = STRUCTURE_TYPE24753; t17470.s1.value.structure_type24753 = &t17471; /* x210515 */ t17469.s1.tag = STRUCTURE_TYPE24753; t17469.s1.value.structure_type24753 = &t17470; /* x210516 */ t17468.s0.tag = STRUCTURE_TYPE24753; t17468.s0.value.structure_type24753 = &t17469; /* x210517 */ t17482.s0.tag = EXTERNAL_SYMBOL_TYPE; t17482.s0.value.external_symbol_type = q600; /* x210518 */ t17483.s0.tag = EXTERNAL_SYMBOL_TYPE; t17483.s0.value.external_symbol_type = q540; /* x210519 */ t17484.s0.tag = EXTERNAL_SYMBOL_TYPE; t17484.s0.value.external_symbol_type = q641; /* x210520 */ t17485.s0.tag = FIXNUM_TYPE; t17485.s0.value.fixnum_type = 0; /* x210521 */ t17486.s0.tag = EXTERNAL_SYMBOL_TYPE; t17486.s0.value.external_symbol_type = q601; /* x210522 */ t17487.s0.tag = EXTERNAL_SYMBOL_TYPE; t17487.s0.value.external_symbol_type = q602; /* x210523 */ t17488.s0.tag = EXTERNAL_SYMBOL_TYPE; t17488.s0.value.external_symbol_type = q603; /* x210524 */ t17488.s1.tag = NULL_TYPE; /* x210525 */ t17487.s1.tag = STRUCTURE_TYPE24753; t17487.s1.value.structure_type24753 = &t17488; /* x210526 */ t17486.s1.tag = STRUCTURE_TYPE24753; t17486.s1.value.structure_type24753 = &t17487; /* x210527 */ t17485.s1.tag = STRUCTURE_TYPE24753; t17485.s1.value.structure_type24753 = &t17486; /* x210528 */ t17484.s1.tag = STRUCTURE_TYPE24753; t17484.s1.value.structure_type24753 = &t17485; /* x210529 */ t17483.s1.tag = STRUCTURE_TYPE24753; t17483.s1.value.structure_type24753 = &t17484; /* x210530 */ t17482.s1.tag = STRUCTURE_TYPE24753; t17482.s1.value.structure_type24753 = &t17483; /* x210531 */ t17481.s0.tag = STRUCTURE_TYPE24753; t17481.s0.value.structure_type24753 = &t17482; /* x210532 */ t17490.s0.tag = EXTERNAL_SYMBOL_TYPE; t17490.s0.value.external_symbol_type = q42; /* x210533 */ t17491.s0.tag = EXTERNAL_SYMBOL_TYPE; t17491.s0.value.external_symbol_type = q642; /* x210534 */ t17493.s0.tag = EXTERNAL_SYMBOL_TYPE; t17493.s0.value.external_symbol_type = q11; /* x210535 */ t17494.s0.tag = NULL_TYPE; /* x210536 */ t17494.s1.tag = NULL_TYPE; /* x210537 */ t17493.s1.tag = STRUCTURE_TYPE24753; t17493.s1.value.structure_type24753 = &t17494; /* x210538 */ t17492.s0.tag = STRUCTURE_TYPE24753; t17492.s0.value.structure_type24753 = &t17493; /* x210539 */ t17492.s1.tag = NULL_TYPE; /* x210540 */ t17491.s1.tag = STRUCTURE_TYPE24753; t17491.s1.value.structure_type24753 = &t17492; /* x210541 */ t17490.s1.tag = STRUCTURE_TYPE24753; t17490.s1.value.structure_type24753 = &t17491; /* x210542 */ t17489.s0.tag = STRUCTURE_TYPE24753; t17489.s0.value.structure_type24753 = &t17490; /* x210543 */ t17496.s0.tag = EXTERNAL_SYMBOL_TYPE; t17496.s0.value.external_symbol_type = q42; /* x210544 */ t17497.s0.tag = EXTERNAL_SYMBOL_TYPE; t17497.s0.value.external_symbol_type = q643; /* x210545 */ t17498.s0.tag = FALSE_TYPE; /* x210546 */ t17498.s1.tag = NULL_TYPE; /* x210547 */ t17497.s1.tag = STRUCTURE_TYPE24753; t17497.s1.value.structure_type24753 = &t17498; /* x210548 */ t17496.s1.tag = STRUCTURE_TYPE24753; t17496.s1.value.structure_type24753 = &t17497; /* x210549 */ t17495.s0.tag = STRUCTURE_TYPE24753; t17495.s0.value.structure_type24753 = &t17496; /* x210550 */ t17500.s0.tag = EXTERNAL_SYMBOL_TYPE; t17500.s0.value.external_symbol_type = q42; /* x210551 */ t17501.s0.tag = EXTERNAL_SYMBOL_TYPE; t17501.s0.value.external_symbol_type = q644; /* x210552 */ t17502.s0.tag = FALSE_TYPE; /* x210553 */ t17502.s1.tag = NULL_TYPE; /* x210554 */ t17501.s1.tag = STRUCTURE_TYPE24753; t17501.s1.value.structure_type24753 = &t17502; /* x210555 */ t17500.s1.tag = STRUCTURE_TYPE24753; t17500.s1.value.structure_type24753 = &t17501; /* x210556 */ t17499.s0.tag = STRUCTURE_TYPE24753; t17499.s0.value.structure_type24753 = &t17500; /* x210557 */ t17504.s0.tag = EXTERNAL_SYMBOL_TYPE; t17504.s0.value.external_symbol_type = q42; /* x210558 */ t17505.s0.tag = EXTERNAL_SYMBOL_TYPE; t17505.s0.value.external_symbol_type = q645; /* x210559 */ t17507.s0.tag = EXTERNAL_SYMBOL_TYPE; t17507.s0.value.external_symbol_type = q166; /* x210560 */ t17508.s0.tag = FIXNUM_TYPE; t17508.s0.value.fixnum_type = 256; /* x210561 */ t17509.s0.tag = FALSE_TYPE; /* x210562 */ t17509.s1.tag = NULL_TYPE; /* x210563 */ t17508.s1.tag = STRUCTURE_TYPE24753; t17508.s1.value.structure_type24753 = &t17509; /* x210564 */ t17507.s1.tag = STRUCTURE_TYPE24753; t17507.s1.value.structure_type24753 = &t17508; /* x210565 */ t17506.s0.tag = STRUCTURE_TYPE24753; t17506.s0.value.structure_type24753 = &t17507; /* x210566 */ t17506.s1.tag = NULL_TYPE; /* x210567 */ t17505.s1.tag = STRUCTURE_TYPE24753; t17505.s1.value.structure_type24753 = &t17506; /* x210568 */ t17504.s1.tag = STRUCTURE_TYPE24753; t17504.s1.value.structure_type24753 = &t17505; /* x210569 */ t17503.s0.tag = STRUCTURE_TYPE24753; t17503.s0.value.structure_type24753 = &t17504; /* x210570 */ t17511.s0.tag = EXTERNAL_SYMBOL_TYPE; t17511.s0.value.external_symbol_type = q42; /* x210571 */ t17512.s0.tag = EXTERNAL_SYMBOL_TYPE; t17512.s0.value.external_symbol_type = q646; /* x210572 */ t17514.s0.tag = EXTERNAL_SYMBOL_TYPE; t17514.s0.value.external_symbol_type = q11; /* x210573 */ t17515.s0.tag = NULL_TYPE; /* x210574 */ t17515.s1.tag = NULL_TYPE; /* x210575 */ t17514.s1.tag = STRUCTURE_TYPE24753; t17514.s1.value.structure_type24753 = &t17515; /* x210576 */ t17513.s0.tag = STRUCTURE_TYPE24753; t17513.s0.value.structure_type24753 = &t17514; /* x210577 */ t17513.s1.tag = NULL_TYPE; /* x210578 */ t17512.s1.tag = STRUCTURE_TYPE24753; t17512.s1.value.structure_type24753 = &t17513; /* x210579 */ t17511.s1.tag = STRUCTURE_TYPE24753; t17511.s1.value.structure_type24753 = &t17512; /* x210580 */ t17510.s0.tag = STRUCTURE_TYPE24753; t17510.s0.value.structure_type24753 = &t17511; /* x210581 */ t17517.s0.tag = EXTERNAL_SYMBOL_TYPE; t17517.s0.value.external_symbol_type = q647; /* x210582 */ t17519.s0.tag = EXTERNAL_SYMBOL_TYPE; t17519.s0.value.external_symbol_type = q648; /* x210583 */ t17520.s0.tag = ((unsigned)((unsigned char)'h'))<<2; /* x210584 */ t17520.s1.tag = NULL_TYPE; /* x210585 */ t17519.s1.tag = STRUCTURE_TYPE24753; t17519.s1.value.structure_type24753 = &t17520; /* x210586 */ t17518.s0.tag = STRUCTURE_TYPE24753; t17518.s0.value.structure_type24753 = &t17519; /* x210587 */ t17521.s0.tag = STRING_TYPE; t17521.s0.value.string_type = "Help"; /* x210588 */ t17522.s0.tag = EXTERNAL_SYMBOL_TYPE; t17522.s0.value.external_symbol_type = q649; /* x210589 */ t17522.s1.tag = NULL_TYPE; /* x210590 */ t17521.s1.tag = STRUCTURE_TYPE24753; t17521.s1.value.structure_type24753 = &t17522; /* x210591 */ t17518.s1.tag = STRUCTURE_TYPE24753; t17518.s1.value.structure_type24753 = &t17521; /* x210592 */ t17517.s1.tag = STRUCTURE_TYPE24753; t17517.s1.value.structure_type24753 = &t17518; /* x210593 */ t17516.s0.tag = STRUCTURE_TYPE24753; t17516.s0.value.structure_type24753 = &t17517; /* x210594 */ t17524.s0.tag = EXTERNAL_SYMBOL_TYPE; t17524.s0.value.external_symbol_type = q42; /* x210595 */ t17525.s0.tag = EXTERNAL_SYMBOL_TYPE; t17525.s0.value.external_symbol_type = q646; /* x210596 */ t17527.s0.tag = EXTERNAL_SYMBOL_TYPE; t17527.s0.value.external_symbol_type = q11; /* x210597 */ t17528.s0.tag = NULL_TYPE; /* x210598 */ t17528.s1.tag = NULL_TYPE; /* x210599 */ t17527.s1.tag = STRUCTURE_TYPE24753; t17527.s1.value.structure_type24753 = &t17528; /* x210600 */ t17526.s0.tag = STRUCTURE_TYPE24753; t17526.s0.value.structure_type24753 = &t17527; /* x210601 */ t17526.s1.tag = NULL_TYPE; /* x210602 */ t17525.s1.tag = STRUCTURE_TYPE24753; t17525.s1.value.structure_type24753 = &t17526; /* x210603 */ t17524.s1.tag = STRUCTURE_TYPE24753; t17524.s1.value.structure_type24753 = &t17525; /* x210604 */ t17523.s0.tag = STRUCTURE_TYPE24753; t17523.s0.value.structure_type24753 = &t17524; /* x210605 */ t17530.s0.tag = EXTERNAL_SYMBOL_TYPE; t17530.s0.value.external_symbol_type = q647; /* x210606 */ t17532.s0.tag = EXTERNAL_SYMBOL_TYPE; t17532.s0.value.external_symbol_type = q648; /* x210607 */ t17533.s0.tag = ((unsigned)((unsigned char)'n'))<<2; /* x210608 */ t17533.s1.tag = NULL_TYPE; /* x210609 */ t17532.s1.tag = STRUCTURE_TYPE24753; t17532.s1.value.structure_type24753 = &t17533; /* x210610 */ t17531.s0.tag = STRUCTURE_TYPE24753; t17531.s0.value.structure_type24753 = &t17532; /* x210611 */ t17534.s0.tag = STRING_TYPE; t17534.s0.value.string_type = "Scroll help window down one line"; /* x210612 */ t17535.s0.tag = EXTERNAL_SYMBOL_TYPE; t17535.s0.value.external_symbol_type = q650; /* x210613 */ t17535.s1.tag = NULL_TYPE; /* x210614 */ t17534.s1.tag = STRUCTURE_TYPE24753; t17534.s1.value.structure_type24753 = &t17535; /* x210615 */ t17531.s1.tag = STRUCTURE_TYPE24753; t17531.s1.value.structure_type24753 = &t17534; /* x210616 */ t17530.s1.tag = STRUCTURE_TYPE24753; t17530.s1.value.structure_type24753 = &t17531; /* x210617 */ t17529.s0.tag = STRUCTURE_TYPE24753; t17529.s0.value.structure_type24753 = &t17530; /* x210618 */ t17537.s0.tag = EXTERNAL_SYMBOL_TYPE; t17537.s0.value.external_symbol_type = q647; /* x210619 */ t17539.s0.tag = EXTERNAL_SYMBOL_TYPE; t17539.s0.value.external_symbol_type = q648; /* x210620 */ t17540.s0.tag = ((unsigned)((unsigned char)'p'))<<2; /* x210621 */ t17540.s1.tag = NULL_TYPE; /* x210622 */ t17539.s1.tag = STRUCTURE_TYPE24753; t17539.s1.value.structure_type24753 = &t17540; /* x210623 */ t17538.s0.tag = STRUCTURE_TYPE24753; t17538.s0.value.structure_type24753 = &t17539; /* x210624 */ t17541.s0.tag = STRING_TYPE; t17541.s0.value.string_type = "Scroll help window up one line"; /* x210625 */ t17542.s0.tag = EXTERNAL_SYMBOL_TYPE; t17542.s0.value.external_symbol_type = q651; /* x210626 */ t17542.s1.tag = NULL_TYPE; /* x210627 */ t17541.s1.tag = STRUCTURE_TYPE24753; t17541.s1.value.structure_type24753 = &t17542; /* x210628 */ t17538.s1.tag = STRUCTURE_TYPE24753; t17538.s1.value.structure_type24753 = &t17541; /* x210629 */ t17537.s1.tag = STRUCTURE_TYPE24753; t17537.s1.value.structure_type24753 = &t17538; /* x210630 */ t17536.s0.tag = STRUCTURE_TYPE24753; t17536.s0.value.structure_type24753 = &t17537; /* x210631 */ t17544.s0.tag = EXTERNAL_SYMBOL_TYPE; t17544.s0.value.external_symbol_type = q647; /* x210632 */ t17546.s0.tag = EXTERNAL_SYMBOL_TYPE; t17546.s0.value.external_symbol_type = q648; /* x210633 */ t17547.s0.tag = ((unsigned)((unsigned char)'v'))<<2; /* x210634 */ t17547.s1.tag = NULL_TYPE; /* x210635 */ t17546.s1.tag = STRUCTURE_TYPE24753; t17546.s1.value.structure_type24753 = &t17547; /* x210636 */ t17545.s0.tag = STRUCTURE_TYPE24753; t17545.s0.value.structure_type24753 = &t17546; /* x210637 */ t17548.s0.tag = STRING_TYPE; t17548.s0.value.string_type = "Scroll help window down one page"; /* x210638 */ t17549.s0.tag = EXTERNAL_SYMBOL_TYPE; t17549.s0.value.external_symbol_type = q652; /* x210639 */ t17549.s1.tag = NULL_TYPE; /* x210640 */ t17548.s1.tag = STRUCTURE_TYPE24753; t17548.s1.value.structure_type24753 = &t17549; /* x210641 */ t17545.s1.tag = STRUCTURE_TYPE24753; t17545.s1.value.structure_type24753 = &t17548; /* x210642 */ t17544.s1.tag = STRUCTURE_TYPE24753; t17544.s1.value.structure_type24753 = &t17545; /* x210643 */ t17543.s0.tag = STRUCTURE_TYPE24753; t17543.s0.value.structure_type24753 = &t17544; /* x210644 */ t17551.s0.tag = EXTERNAL_SYMBOL_TYPE; t17551.s0.value.external_symbol_type = q647; /* x210645 */ t17553.s0.tag = EXTERNAL_SYMBOL_TYPE; t17553.s0.value.external_symbol_type = q653; /* x210646 */ t17554.s0.tag = ((unsigned)((unsigned char)'v'))<<2; /* x210647 */ t17554.s1.tag = NULL_TYPE; /* x210648 */ t17553.s1.tag = STRUCTURE_TYPE24753; t17553.s1.value.structure_type24753 = &t17554; /* x210649 */ t17552.s0.tag = STRUCTURE_TYPE24753; t17552.s0.value.structure_type24753 = &t17553; /* x210650 */ t17555.s0.tag = STRING_TYPE; t17555.s0.value.string_type = "Scroll help window up one page"; /* x210651 */ t17556.s0.tag = EXTERNAL_SYMBOL_TYPE; t17556.s0.value.external_symbol_type = q654; /* x210652 */ t17556.s1.tag = NULL_TYPE; /* x210653 */ t17555.s1.tag = STRUCTURE_TYPE24753; t17555.s1.value.structure_type24753 = &t17556; /* x210654 */ t17552.s1.tag = STRUCTURE_TYPE24753; t17552.s1.value.structure_type24753 = &t17555; /* x210655 */ t17551.s1.tag = STRUCTURE_TYPE24753; t17551.s1.value.structure_type24753 = &t17552; /* x210656 */ t17550.s0.tag = STRUCTURE_TYPE24753; t17550.s0.value.structure_type24753 = &t17551; /* x210657 */ t17558.s0.tag = EXTERNAL_SYMBOL_TYPE; t17558.s0.value.external_symbol_type = q647; /* x210658 */ t17560.s0.tag = EXTERNAL_SYMBOL_TYPE; t17560.s0.value.external_symbol_type = q653; /* x210659 */ t17561.s0.tag = ((unsigned)((unsigned char)'<'))<<2; /* x210660 */ t17561.s1.tag = NULL_TYPE; /* x210661 */ t17560.s1.tag = STRUCTURE_TYPE24753; t17560.s1.value.structure_type24753 = &t17561; /* x210662 */ t17559.s0.tag = STRUCTURE_TYPE24753; t17559.s0.value.structure_type24753 = &t17560; /* x210663 */ t17562.s0.tag = STRING_TYPE; t17562.s0.value.string_type = "Scroll help window to beginning"; /* x210664 */ t17563.s0.tag = EXTERNAL_SYMBOL_TYPE; t17563.s0.value.external_symbol_type = q655; /* x210665 */ t17563.s1.tag = NULL_TYPE; /* x210666 */ t17562.s1.tag = STRUCTURE_TYPE24753; t17562.s1.value.structure_type24753 = &t17563; /* x210667 */ t17559.s1.tag = STRUCTURE_TYPE24753; t17559.s1.value.structure_type24753 = &t17562; /* x210668 */ t17558.s1.tag = STRUCTURE_TYPE24753; t17558.s1.value.structure_type24753 = &t17559; /* x210669 */ t17557.s0.tag = STRUCTURE_TYPE24753; t17557.s0.value.structure_type24753 = &t17558; /* x210670 */ t17565.s0.tag = EXTERNAL_SYMBOL_TYPE; t17565.s0.value.external_symbol_type = q647; /* x210671 */ t17567.s0.tag = EXTERNAL_SYMBOL_TYPE; t17567.s0.value.external_symbol_type = q653; /* x210672 */ t17568.s0.tag = ((unsigned)((unsigned char)'>'))<<2; /* x210673 */ t17568.s1.tag = NULL_TYPE; /* x210674 */ t17567.s1.tag = STRUCTURE_TYPE24753; t17567.s1.value.structure_type24753 = &t17568; /* x210675 */ t17566.s0.tag = STRUCTURE_TYPE24753; t17566.s0.value.structure_type24753 = &t17567; /* x210676 */ t17569.s0.tag = STRING_TYPE; t17569.s0.value.string_type = "Scroll help window to end"; /* x210677 */ t17570.s0.tag = EXTERNAL_SYMBOL_TYPE; t17570.s0.value.external_symbol_type = q656; /* x210678 */ t17570.s1.tag = NULL_TYPE; /* x210679 */ t17569.s1.tag = STRUCTURE_TYPE24753; t17569.s1.value.structure_type24753 = &t17570; /* x210680 */ t17566.s1.tag = STRUCTURE_TYPE24753; t17566.s1.value.structure_type24753 = &t17569; /* x210681 */ t17565.s1.tag = STRUCTURE_TYPE24753; t17565.s1.value.structure_type24753 = &t17566; /* x210682 */ t17564.s0.tag = STRUCTURE_TYPE24753; t17564.s0.value.structure_type24753 = &t17565; /* x210683 */ t17572.s0.tag = EXTERNAL_SYMBOL_TYPE; t17572.s0.value.external_symbol_type = q42; /* x210684 */ t17573.s0.tag = EXTERNAL_SYMBOL_TYPE; t17573.s0.value.external_symbol_type = q657; /* x210685 */ t17574.s0.tag = EXTERNAL_SYMBOL_TYPE; t17574.s0.value.external_symbol_type = q645; /* x210686 */ t17574.s1.tag = NULL_TYPE; /* x210687 */ t17573.s1.tag = STRUCTURE_TYPE24753; t17573.s1.value.structure_type24753 = &t17574; /* x210688 */ t17572.s1.tag = STRUCTURE_TYPE24753; t17572.s1.value.structure_type24753 = &t17573; /* x210689 */ t17571.s0.tag = STRUCTURE_TYPE24753; t17571.s0.value.structure_type24753 = &t17572; /* x210690 */ t17576.s0.tag = EXTERNAL_SYMBOL_TYPE; t17576.s0.value.external_symbol_type = q42; /* x210691 */ t17577.s0.tag = EXTERNAL_SYMBOL_TYPE; t17577.s0.value.external_symbol_type = q645; /* x210692 */ t17579.s0.tag = EXTERNAL_SYMBOL_TYPE; t17579.s0.value.external_symbol_type = q166; /* x210693 */ t17580.s0.tag = FIXNUM_TYPE; t17580.s0.value.fixnum_type = 256; /* x210694 */ t17581.s0.tag = FALSE_TYPE; /* x210695 */ t17581.s1.tag = NULL_TYPE; /* x210696 */ t17580.s1.tag = STRUCTURE_TYPE24753; t17580.s1.value.structure_type24753 = &t17581; /* x210697 */ t17579.s1.tag = STRUCTURE_TYPE24753; t17579.s1.value.structure_type24753 = &t17580; /* x210698 */ t17578.s0.tag = STRUCTURE_TYPE24753; t17578.s0.value.structure_type24753 = &t17579; /* x210699 */ t17578.s1.tag = NULL_TYPE; /* x210700 */ t17577.s1.tag = STRUCTURE_TYPE24753; t17577.s1.value.structure_type24753 = &t17578; /* x210701 */ t17576.s1.tag = STRUCTURE_TYPE24753; t17576.s1.value.structure_type24753 = &t17577; /* x210702 */ t17575.s0.tag = STRUCTURE_TYPE24753; t17575.s0.value.structure_type24753 = &t17576; /* x210703 */ t17583.s0.tag = EXTERNAL_SYMBOL_TYPE; t17583.s0.value.external_symbol_type = q42; /* x210704 */ t17584.s0.tag = EXTERNAL_SYMBOL_TYPE; t17584.s0.value.external_symbol_type = q658; /* x210705 */ t17586.s0.tag = EXTERNAL_SYMBOL_TYPE; t17586.s0.value.external_symbol_type = q11; /* x210706 */ t17587.s0.tag = NULL_TYPE; /* x210707 */ t17587.s1.tag = NULL_TYPE; /* x210708 */ t17586.s1.tag = STRUCTURE_TYPE24753; t17586.s1.value.structure_type24753 = &t17587; /* x210709 */ t17585.s0.tag = STRUCTURE_TYPE24753; t17585.s0.value.structure_type24753 = &t17586; /* x210710 */ t17585.s1.tag = NULL_TYPE; /* x210711 */ t17584.s1.tag = STRUCTURE_TYPE24753; t17584.s1.value.structure_type24753 = &t17585; /* x210712 */ t17583.s1.tag = STRUCTURE_TYPE24753; t17583.s1.value.structure_type24753 = &t17584; /* x210713 */ t17582.s0.tag = STRUCTURE_TYPE24753; t17582.s0.value.structure_type24753 = &t17583; /* x210714 */ t17589.s0.tag = EXTERNAL_SYMBOL_TYPE; t17589.s0.value.external_symbol_type = q42; /* x210715 */ t17590.s0.tag = EXTERNAL_SYMBOL_TYPE; t17590.s0.value.external_symbol_type = q659; /* x210716 */ t17591.s0.tag = STRING_TYPE; t17591.s0.value.string_type = "Tyi"; /* x210717 */ t17591.s1.tag = NULL_TYPE; /* x210718 */ t17590.s1.tag = STRUCTURE_TYPE24753; t17590.s1.value.structure_type24753 = &t17591; /* x210719 */ t17589.s1.tag = STRUCTURE_TYPE24753; t17589.s1.value.structure_type24753 = &t17590; /* x210720 */ t17588.s0.tag = STRUCTURE_TYPE24753; t17588.s0.value.structure_type24753 = &t17589; /* x210721 */ t17593.s0.tag = EXTERNAL_SYMBOL_TYPE; t17593.s0.value.external_symbol_type = q42; /* x210722 */ t17594.s0.tag = EXTERNAL_SYMBOL_TYPE; t17594.s0.value.external_symbol_type = q660; /* x210723 */ t17595.s0.tag = STRING_TYPE; t17595.s0.value.string_type = ""; /* x210724 */ t17595.s1.tag = NULL_TYPE; /* x210725 */ t17594.s1.tag = STRUCTURE_TYPE24753; t17594.s1.value.structure_type24753 = &t17595; /* x210726 */ t17593.s1.tag = STRUCTURE_TYPE24753; t17593.s1.value.structure_type24753 = &t17594; /* x210727 */ t17592.s0.tag = STRUCTURE_TYPE24753; t17592.s0.value.structure_type24753 = &t17593; /* x210728 */ t17597.s0.tag = EXTERNAL_SYMBOL_TYPE; t17597.s0.value.external_symbol_type = q42; /* x210729 */ t17598.s0.tag = EXTERNAL_SYMBOL_TYPE; t17598.s0.value.external_symbol_type = q661; /* x210730 */ t17599.s0.tag = EXTERNAL_SYMBOL_TYPE; t17599.s0.value.external_symbol_type = q534; /* x210731 */ t17599.s1.tag = NULL_TYPE; /* x210732 */ t17598.s1.tag = STRUCTURE_TYPE24753; t17598.s1.value.structure_type24753 = &t17599; /* x210733 */ t17597.s1.tag = STRUCTURE_TYPE24753; t17597.s1.value.structure_type24753 = &t17598; /* x210734 */ t17596.s0.tag = STRUCTURE_TYPE24753; t17596.s0.value.structure_type24753 = &t17597; /* x210735 */ t17601.s0.tag = EXTERNAL_SYMBOL_TYPE; t17601.s0.value.external_symbol_type = q42; /* x210736 */ t17602.s0.tag = EXTERNAL_SYMBOL_TYPE; t17602.s0.value.external_symbol_type = q662; /* x210737 */ t17604.s0.tag = EXTERNAL_SYMBOL_TYPE; t17604.s0.value.external_symbol_type = q11; /* x210738 */ t17605.s0.tag = NULL_TYPE; /* x210739 */ t17605.s1.tag = NULL_TYPE; /* x210740 */ t17604.s1.tag = STRUCTURE_TYPE24753; t17604.s1.value.structure_type24753 = &t17605; /* x210741 */ t17603.s0.tag = STRUCTURE_TYPE24753; t17603.s0.value.structure_type24753 = &t17604; /* x210742 */ t17603.s1.tag = NULL_TYPE; /* x210743 */ t17602.s1.tag = STRUCTURE_TYPE24753; t17602.s1.value.structure_type24753 = &t17603; /* x210744 */ t17601.s1.tag = STRUCTURE_TYPE24753; t17601.s1.value.structure_type24753 = &t17602; /* x210745 */ t17600.s0.tag = STRUCTURE_TYPE24753; t17600.s0.value.structure_type24753 = &t17601; /* x210746 */ t17607.s0.tag = EXTERNAL_SYMBOL_TYPE; t17607.s0.value.external_symbol_type = q42; /* x210747 */ t17608.s0.tag = EXTERNAL_SYMBOL_TYPE; t17608.s0.value.external_symbol_type = q663; /* x210748 */ t17609.s0.tag = FALSE_TYPE; /* x210749 */ t17609.s1.tag = NULL_TYPE; /* x210750 */ t17608.s1.tag = STRUCTURE_TYPE24753; t17608.s1.value.structure_type24753 = &t17609; /* x210751 */ t17607.s1.tag = STRUCTURE_TYPE24753; t17607.s1.value.structure_type24753 = &t17608; /* x210752 */ t17606.s0.tag = STRUCTURE_TYPE24753; t17606.s0.value.structure_type24753 = &t17607; /* x210753 */ t17611.s0.tag = EXTERNAL_SYMBOL_TYPE; t17611.s0.value.external_symbol_type = q42; /* x210754 */ t17612.s0.tag = EXTERNAL_SYMBOL_TYPE; t17612.s0.value.external_symbol_type = q664; /* x210755 */ t17613.s0.tag = FALSE_TYPE; /* x210756 */ t17613.s1.tag = NULL_TYPE; /* x210757 */ t17612.s1.tag = STRUCTURE_TYPE24753; t17612.s1.value.structure_type24753 = &t17613; /* x210758 */ t17611.s1.tag = STRUCTURE_TYPE24753; t17611.s1.value.structure_type24753 = &t17612; /* x210759 */ t17610.s0.tag = STRUCTURE_TYPE24753; t17610.s0.value.structure_type24753 = &t17611; /* x210760 */ t17615.s0.tag = EXTERNAL_SYMBOL_TYPE; t17615.s0.value.external_symbol_type = q42; /* x210761 */ t17616.s0.tag = EXTERNAL_SYMBOL_TYPE; t17616.s0.value.external_symbol_type = q665; /* x210762 */ t17617.s0.tag = TRUE_TYPE; /* x210763 */ t17617.s1.tag = NULL_TYPE; /* x210764 */ t17616.s1.tag = STRUCTURE_TYPE24753; t17616.s1.value.structure_type24753 = &t17617; /* x210765 */ t17615.s1.tag = STRUCTURE_TYPE24753; t17615.s1.value.structure_type24753 = &t17616; /* x210766 */ t17614.s0.tag = STRUCTURE_TYPE24753; t17614.s0.value.structure_type24753 = &t17615; /* x210767 */ t17619.s0.tag = EXTERNAL_SYMBOL_TYPE; t17619.s0.value.external_symbol_type = q242; /* x210768 */ t17622.s0.tag = EXTERNAL_SYMBOL_TYPE; t17622.s0.value.external_symbol_type = q666; /* x210769 */ t17624.s0.tag = EXTERNAL_SYMBOL_TYPE; t17624.s0.value.external_symbol_type = q667; /* x210770 */ t17624.s1.tag = NULL_TYPE; /* x210771 */ t17623.s0.tag = STRUCTURE_TYPE24753; t17623.s0.value.structure_type24753 = &t17624; /* x210772 */ t17623.s1.tag = NULL_TYPE; /* x210773 */ t17622.s1.tag = STRUCTURE_TYPE24753; t17622.s1.value.structure_type24753 = &t17623; /* x210774 */ t17621.s0.tag = STRUCTURE_TYPE24753; t17621.s0.value.structure_type24753 = &t17622; /* x210775 */ t17621.s1.tag = NULL_TYPE; /* x210776 */ t17620.s0.tag = STRUCTURE_TYPE24753; t17620.s0.value.structure_type24753 = &t17621; /* x210777 */ t17626.s0.tag = EXTERNAL_SYMBOL_TYPE; t17626.s0.value.external_symbol_type = q668; /* x210778 */ t17627.s0.tag = EXTERNAL_SYMBOL_TYPE; t17627.s0.value.external_symbol_type = q666; /* x210779 */ t17628.s0.tag = FIXNUM_TYPE; t17628.s0.value.fixnum_type = 1; /* x210780 */ t17628.s1.tag = NULL_TYPE; /* x210781 */ t17627.s1.tag = STRUCTURE_TYPE24753; t17627.s1.value.structure_type24753 = &t17628; /* x210782 */ t17626.s1.tag = STRUCTURE_TYPE24753; t17626.s1.value.structure_type24753 = &t17627; /* x210783 */ t17625.s0.tag = STRUCTURE_TYPE24753; t17625.s0.value.structure_type24753 = &t17626; /* x210784 */ t17630.s0.tag = EXTERNAL_SYMBOL_TYPE; t17630.s0.value.external_symbol_type = q669; /* x210785 */ t17631.s0.tag = EXTERNAL_SYMBOL_TYPE; t17631.s0.value.external_symbol_type = q666; /* x210786 */ t17632.s0.tag = EXTERNAL_SYMBOL_TYPE; t17632.s0.value.external_symbol_type = q670; /* x210787 */ t17632.s1.tag = NULL_TYPE; /* x210788 */ t17631.s1.tag = STRUCTURE_TYPE24753; t17631.s1.value.structure_type24753 = &t17632; /* x210789 */ t17630.s1.tag = STRUCTURE_TYPE24753; t17630.s1.value.structure_type24753 = &t17631; /* x210790 */ t17629.s0.tag = STRUCTURE_TYPE24753; t17629.s0.value.structure_type24753 = &t17630; /* x210791 */ t17634.s0.tag = EXTERNAL_SYMBOL_TYPE; t17634.s0.value.external_symbol_type = q671; /* x210792 */ t17635.s0.tag = EXTERNAL_SYMBOL_TYPE; t17635.s0.value.external_symbol_type = q540; /* x210793 */ t17636.s0.tag = EXTERNAL_SYMBOL_TYPE; t17636.s0.value.external_symbol_type = q578; /* x210794 */ t17637.s0.tag = EXTERNAL_SYMBOL_TYPE; t17637.s0.value.external_symbol_type = q666; /* x210795 */ t17637.s1.tag = NULL_TYPE; /* x210796 */ t17636.s1.tag = STRUCTURE_TYPE24753; t17636.s1.value.structure_type24753 = &t17637; /* x210797 */ t17635.s1.tag = STRUCTURE_TYPE24753; t17635.s1.value.structure_type24753 = &t17636; /* x210798 */ t17634.s1.tag = STRUCTURE_TYPE24753; t17634.s1.value.structure_type24753 = &t17635; /* x210799 */ t17633.s0.tag = STRUCTURE_TYPE24753; t17633.s0.value.structure_type24753 = &t17634; /* x210800 */ t17633.s1.tag = NULL_TYPE; /* x210801 */ t17629.s1.tag = STRUCTURE_TYPE24753; t17629.s1.value.structure_type24753 = &t17633; /* x210802 */ t17625.s1.tag = STRUCTURE_TYPE24753; t17625.s1.value.structure_type24753 = &t17629; /* x210803 */ t17620.s1.tag = STRUCTURE_TYPE24753; t17620.s1.value.structure_type24753 = &t17625; /* x210804 */ t17619.s1.tag = STRUCTURE_TYPE24753; t17619.s1.value.structure_type24753 = &t17620; /* x210805 */ t17618.s0.tag = STRUCTURE_TYPE24753; t17618.s0.value.structure_type24753 = &t17619; /* x210806 */ t17639.s0.tag = EXTERNAL_SYMBOL_TYPE; t17639.s0.value.external_symbol_type = q242; /* x210807 */ t17642.s0.tag = EXTERNAL_SYMBOL_TYPE; t17642.s0.value.external_symbol_type = q666; /* x210808 */ t17644.s0.tag = EXTERNAL_SYMBOL_TYPE; t17644.s0.value.external_symbol_type = q672; /* x210809 */ t17644.s1.tag = NULL_TYPE; /* x210810 */ t17643.s0.tag = STRUCTURE_TYPE24753; t17643.s0.value.structure_type24753 = &t17644; /* x210811 */ t17643.s1.tag = NULL_TYPE; /* x210812 */ t17642.s1.tag = STRUCTURE_TYPE24753; t17642.s1.value.structure_type24753 = &t17643; /* x210813 */ t17641.s0.tag = STRUCTURE_TYPE24753; t17641.s0.value.structure_type24753 = &t17642; /* x210814 */ t17641.s1.tag = NULL_TYPE; /* x210815 */ t17640.s0.tag = STRUCTURE_TYPE24753; t17640.s0.value.structure_type24753 = &t17641; /* x210816 */ t17646.s0.tag = EXTERNAL_SYMBOL_TYPE; t17646.s0.value.external_symbol_type = q493; /* x210817 */ t17647.s0.tag = EXTERNAL_SYMBOL_TYPE; t17647.s0.value.external_symbol_type = q673; /* x210818 */ t17649.s0.tag = EXTERNAL_SYMBOL_TYPE; t17649.s0.value.external_symbol_type = q674; /* x210819 */ t17650.s0.tag = EXTERNAL_SYMBOL_TYPE; t17650.s0.value.external_symbol_type = q666; /* x210820 */ t17651.s0.tag = EXTERNAL_SYMBOL_TYPE; t17651.s0.value.external_symbol_type = q580; /* x210821 */ t17651.s1.tag = NULL_TYPE; /* x210822 */ t17650.s1.tag = STRUCTURE_TYPE24753; t17650.s1.value.structure_type24753 = &t17651; /* x210823 */ t17649.s1.tag = STRUCTURE_TYPE24753; t17649.s1.value.structure_type24753 = &t17650; /* x210824 */ t17648.s0.tag = STRUCTURE_TYPE24753; t17648.s0.value.structure_type24753 = &t17649; /* x210825 */ t17653.s0.tag = EXTERNAL_SYMBOL_TYPE; t17653.s0.value.external_symbol_type = q675; /* x210826 */ t17654.s0.tag = EXTERNAL_SYMBOL_TYPE; t17654.s0.value.external_symbol_type = q666; /* x210827 */ t17655.s0.tag = EXTERNAL_SYMBOL_TYPE; t17655.s0.value.external_symbol_type = q581; /* x210828 */ t17655.s1.tag = NULL_TYPE; /* x210829 */ t17654.s1.tag = STRUCTURE_TYPE24753; t17654.s1.value.structure_type24753 = &t17655; /* x210830 */ t17653.s1.tag = STRUCTURE_TYPE24753; t17653.s1.value.structure_type24753 = &t17654; /* x210831 */ t17652.s0.tag = STRUCTURE_TYPE24753; t17652.s0.value.structure_type24753 = &t17653; /* x210832 */ t17652.s1.tag = NULL_TYPE; /* x210833 */ t17648.s1.tag = STRUCTURE_TYPE24753; t17648.s1.value.structure_type24753 = &t17652; /* x210834 */ t17647.s1.tag = STRUCTURE_TYPE24753; t17647.s1.value.structure_type24753 = &t17648; /* x210835 */ t17646.s1.tag = STRUCTURE_TYPE24753; t17646.s1.value.structure_type24753 = &t17647; /* x210836 */ t17645.s0.tag = STRUCTURE_TYPE24753; t17645.s0.value.structure_type24753 = &t17646; /* x210837 */ t17657.s0.tag = EXTERNAL_SYMBOL_TYPE; t17657.s0.value.external_symbol_type = q676; /* x210838 */ t17658.s0.tag = EXTERNAL_SYMBOL_TYPE; t17658.s0.value.external_symbol_type = q666; /* x210839 */ t17659.s0.tag = EXTERNAL_SYMBOL_TYPE; t17659.s0.value.external_symbol_type = q575; /* x210840 */ t17659.s1.tag = NULL_TYPE; /* x210841 */ t17658.s1.tag = STRUCTURE_TYPE24753; t17658.s1.value.structure_type24753 = &t17659; /* x210842 */ t17657.s1.tag = STRUCTURE_TYPE24753; t17657.s1.value.structure_type24753 = &t17658; /* x210843 */ t17656.s0.tag = STRUCTURE_TYPE24753; t17656.s0.value.structure_type24753 = &t17657; /* x210844 */ t17661.s0.tag = EXTERNAL_SYMBOL_TYPE; t17661.s0.value.external_symbol_type = q677; /* x210845 */ t17662.s0.tag = EXTERNAL_SYMBOL_TYPE; t17662.s0.value.external_symbol_type = q666; /* x210846 */ t17663.s0.tag = EXTERNAL_SYMBOL_TYPE; t17663.s0.value.external_symbol_type = q575; /* x210847 */ t17663.s1.tag = NULL_TYPE; /* x210848 */ t17662.s1.tag = STRUCTURE_TYPE24753; t17662.s1.value.structure_type24753 = &t17663; /* x210849 */ t17661.s1.tag = STRUCTURE_TYPE24753; t17661.s1.value.structure_type24753 = &t17662; /* x210850 */ t17660.s0.tag = STRUCTURE_TYPE24753; t17660.s0.value.structure_type24753 = &t17661; /* x210851 */ t17665.s0.tag = EXTERNAL_SYMBOL_TYPE; t17665.s0.value.external_symbol_type = q678; /* x210852 */ t17666.s0.tag = EXTERNAL_SYMBOL_TYPE; t17666.s0.value.external_symbol_type = q666; /* x210853 */ t17667.s0.tag = EXTERNAL_SYMBOL_TYPE; t17667.s0.value.external_symbol_type = q576; /* x210854 */ t17667.s1.tag = NULL_TYPE; /* x210855 */ t17666.s1.tag = STRUCTURE_TYPE24753; t17666.s1.value.structure_type24753 = &t17667; /* x210856 */ t17665.s1.tag = STRUCTURE_TYPE24753; t17665.s1.value.structure_type24753 = &t17666; /* x210857 */ t17664.s0.tag = STRUCTURE_TYPE24753; t17664.s0.value.structure_type24753 = &t17665; /* x210858 */ t17669.s0.tag = EXTERNAL_SYMBOL_TYPE; t17669.s0.value.external_symbol_type = q679; /* x210859 */ t17670.s0.tag = EXTERNAL_SYMBOL_TYPE; t17670.s0.value.external_symbol_type = q666; /* x210860 */ t17671.s0.tag = EXTERNAL_SYMBOL_TYPE; t17671.s0.value.external_symbol_type = q576; /* x210861 */ t17671.s1.tag = NULL_TYPE; /* x210862 */ t17670.s1.tag = STRUCTURE_TYPE24753;} void initialize_constants9(void) {t17670.s1.value.structure_type24753 = &t17671; /* x210863 */ t17669.s1.tag = STRUCTURE_TYPE24753; t17669.s1.value.structure_type24753 = &t17670; /* x210864 */ t17668.s0.tag = STRUCTURE_TYPE24753; t17668.s0.value.structure_type24753 = &t17669; /* x210865 */ t17673.s0.tag = EXTERNAL_SYMBOL_TYPE; t17673.s0.value.external_symbol_type = q680; /* x210866 */ t17674.s0.tag = EXTERNAL_SYMBOL_TYPE; t17674.s0.value.external_symbol_type = q666; /* x210867 */ t17676.s0.tag = EXTERNAL_SYMBOL_TYPE; t17676.s0.value.external_symbol_type = q43; /* x210868 */ t17677.s0.tag = EXTERNAL_SYMBOL_TYPE; t17677.s0.value.external_symbol_type = q673; /* x210869 */ t17679.s0.tag = EXTERNAL_SYMBOL_TYPE; t17679.s0.value.external_symbol_type = q4; /* x210870 */ t17680.s0.tag = EXTERNAL_SYMBOL_TYPE; t17680.s0.value.external_symbol_type = q681; /* x210871 */ t17681.s0.tag = EXTERNAL_SYMBOL_TYPE; t17681.s0.value.external_symbol_type = q682; /* x210872 */ t17682.s0.tag = EXTERNAL_SYMBOL_TYPE; t17682.s0.value.external_symbol_type = q683; /* x210873 */ t17683.s0.tag = EXTERNAL_SYMBOL_TYPE; t17683.s0.value.external_symbol_type = q684; /* x210874 */ t17683.s1.tag = NULL_TYPE; /* x210875 */ t17682.s1.tag = STRUCTURE_TYPE24753; t17682.s1.value.structure_type24753 = &t17683; /* x210876 */ t17681.s1.tag = STRUCTURE_TYPE24753; t17681.s1.value.structure_type24753 = &t17682; /* x210877 */ t17680.s1.tag = STRUCTURE_TYPE24753; t17680.s1.value.structure_type24753 = &t17681; /* x210878 */ t17679.s1.tag = STRUCTURE_TYPE24753; t17679.s1.value.structure_type24753 = &t17680; /* x210879 */ t17678.s0.tag = STRUCTURE_TYPE24753; t17678.s0.value.structure_type24753 = &t17679; /* x210880 */ t17685.s0.tag = EXTERNAL_SYMBOL_TYPE; t17685.s0.value.external_symbol_type = q4; /* x210881 */ t17686.s0.tag = EXTERNAL_SYMBOL_TYPE; t17686.s0.value.external_symbol_type = q683; /* x210882 */ t17687.s0.tag = EXTERNAL_SYMBOL_TYPE; t17687.s0.value.external_symbol_type = q684; /* x210883 */ t17687.s1.tag = NULL_TYPE; /* x210884 */ t17686.s1.tag = STRUCTURE_TYPE24753; t17686.s1.value.structure_type24753 = &t17687; /* x210885 */ t17685.s1.tag = STRUCTURE_TYPE24753; t17685.s1.value.structure_type24753 = &t17686; /* x210886 */ t17684.s0.tag = STRUCTURE_TYPE24753; t17684.s0.value.structure_type24753 = &t17685; /* x210887 */ t17684.s1.tag = NULL_TYPE; /* x210888 */ t17678.s1.tag = STRUCTURE_TYPE24753; t17678.s1.value.structure_type24753 = &t17684; /* x210889 */ t17677.s1.tag = STRUCTURE_TYPE24753; t17677.s1.value.structure_type24753 = &t17678; /* x210890 */ t17676.s1.tag = STRUCTURE_TYPE24753; t17676.s1.value.structure_type24753 = &t17677; /* x210891 */ t17675.s0.tag = STRUCTURE_TYPE24753; t17675.s0.value.structure_type24753 = &t17676; /* x210892 */ t17675.s1.tag = NULL_TYPE; /* x210893 */ t17674.s1.tag = STRUCTURE_TYPE24753; t17674.s1.value.structure_type24753 = &t17675; /* x210894 */ t17673.s1.tag = STRUCTURE_TYPE24753; t17673.s1.value.structure_type24753 = &t17674; /* x210895 */ t17672.s0.tag = STRUCTURE_TYPE24753; t17672.s0.value.structure_type24753 = &t17673; /* x210896 */ t17689.s0.tag = EXTERNAL_SYMBOL_TYPE; t17689.s0.value.external_symbol_type = q685; /* x210897 */ t17690.s0.tag = EXTERNAL_SYMBOL_TYPE; t17690.s0.value.external_symbol_type = q540; /* x210898 */ t17691.s0.tag = EXTERNAL_SYMBOL_TYPE; t17691.s0.value.external_symbol_type = q578; /* x210899 */ t17692.s0.tag = EXTERNAL_SYMBOL_TYPE; t17692.s0.value.external_symbol_type = q666; /* x210900 */ t17692.s1.tag = NULL_TYPE; /* x210901 */ t17691.s1.tag = STRUCTURE_TYPE24753; t17691.s1.value.structure_type24753 = &t17692; /* x210902 */ t17690.s1.tag = STRUCTURE_TYPE24753; t17690.s1.value.structure_type24753 = &t17691; /* x210903 */ t17689.s1.tag = STRUCTURE_TYPE24753; t17689.s1.value.structure_type24753 = &t17690; /* x210904 */ t17688.s0.tag = STRUCTURE_TYPE24753; t17688.s0.value.structure_type24753 = &t17689; /* x210905 */ t17688.s1.tag = NULL_TYPE; /* x210906 */ t17672.s1.tag = STRUCTURE_TYPE24753; t17672.s1.value.structure_type24753 = &t17688; /* x210907 */ t17668.s1.tag = STRUCTURE_TYPE24753; t17668.s1.value.structure_type24753 = &t17672; /* x210908 */ t17664.s1.tag = STRUCTURE_TYPE24753; t17664.s1.value.structure_type24753 = &t17668; /* x210909 */ t17660.s1.tag = STRUCTURE_TYPE24753; t17660.s1.value.structure_type24753 = &t17664; /* x210910 */ t17656.s1.tag = STRUCTURE_TYPE24753; t17656.s1.value.structure_type24753 = &t17660; /* x210911 */ t17645.s1.tag = STRUCTURE_TYPE24753; t17645.s1.value.structure_type24753 = &t17656; /* x210912 */ t17640.s1.tag = STRUCTURE_TYPE24753; t17640.s1.value.structure_type24753 = &t17645; /* x210913 */ t17639.s1.tag = STRUCTURE_TYPE24753; t17639.s1.value.structure_type24753 = &t17640; /* x210914 */ t17638.s0.tag = STRUCTURE_TYPE24753; t17638.s0.value.structure_type24753 = &t17639; /* x210915 */ t17694.s0.tag = EXTERNAL_SYMBOL_TYPE; t17694.s0.value.external_symbol_type = q531; /* x210916 */ t17694.s1.tag = NULL_TYPE; /* x210917 */ t17693.s0.tag = STRUCTURE_TYPE24753; t17693.s0.value.structure_type24753 = &t17694; /* x210918 */ t17696.s0.tag = EXTERNAL_SYMBOL_TYPE; t17696.s0.value.external_symbol_type = q686; /* x210919 */ t17697.s0.tag = EXTERNAL_SYMBOL_TYPE; t17697.s0.value.external_symbol_type = q587; /* x210920 */ t17699.s0.tag = EXTERNAL_SYMBOL_TYPE; t17699.s0.value.external_symbol_type = q11; /* x210921 */ t17700.s0.tag = EXTERNAL_SYMBOL_TYPE; t17700.s0.value.external_symbol_type = q29; /* x210922 */ t17700.s1.tag = NULL_TYPE; /* x210923 */ t17699.s1.tag = STRUCTURE_TYPE24753; t17699.s1.value.structure_type24753 = &t17700; /* x210924 */ t17698.s0.tag = STRUCTURE_TYPE24753; t17698.s0.value.structure_type24753 = &t17699; /* x210925 */ t17701.s0.tag = EXTERNAL_SYMBOL_TYPE; t17701.s0.value.external_symbol_type = q687; /* x210926 */ t17701.s1.tag = NULL_TYPE; /* x210927 */ t17698.s1.tag = STRUCTURE_TYPE24753; t17698.s1.value.structure_type24753 = &t17701; /* x210928 */ t17697.s1.tag = STRUCTURE_TYPE24753; t17697.s1.value.structure_type24753 = &t17698; /* x210929 */ t17696.s1.tag = STRUCTURE_TYPE24753; t17696.s1.value.structure_type24753 = &t17697; /* x210930 */ t17695.s0.tag = STRUCTURE_TYPE24753; t17695.s0.value.structure_type24753 = &t17696; /* x210931 */ t17703.s0.tag = EXTERNAL_SYMBOL_TYPE; t17703.s0.value.external_symbol_type = q686; /* x210932 */ t17704.s0.tag = EXTERNAL_SYMBOL_TYPE; t17704.s0.value.external_symbol_type = q587; /* x210933 */ t17706.s0.tag = EXTERNAL_SYMBOL_TYPE; t17706.s0.value.external_symbol_type = q11; /* x210934 */ t17707.s0.tag = EXTERNAL_SYMBOL_TYPE; t17707.s0.value.external_symbol_type = q31; /* x210935 */ t17707.s1.tag = NULL_TYPE; /* x210936 */ t17706.s1.tag = STRUCTURE_TYPE24753; t17706.s1.value.structure_type24753 = &t17707; /* x210937 */ t17705.s0.tag = STRUCTURE_TYPE24753; t17705.s0.value.structure_type24753 = &t17706; /* x210938 */ t17708.s0.tag = EXTERNAL_SYMBOL_TYPE; t17708.s0.value.external_symbol_type = q688; /* x210939 */ t17708.s1.tag = NULL_TYPE; /* x210940 */ t17705.s1.tag = STRUCTURE_TYPE24753; t17705.s1.value.structure_type24753 = &t17708; /* x210941 */ t17704.s1.tag = STRUCTURE_TYPE24753; t17704.s1.value.structure_type24753 = &t17705; /* x210942 */ t17703.s1.tag = STRUCTURE_TYPE24753; t17703.s1.value.structure_type24753 = &t17704; /* x210943 */ t17702.s0.tag = STRUCTURE_TYPE24753; t17702.s0.value.structure_type24753 = &t17703; /* x210944 */ t17710.s0.tag = EXTERNAL_SYMBOL_TYPE; t17710.s0.value.external_symbol_type = q493; /* x210945 */ t17711.s0.tag = EXTERNAL_SYMBOL_TYPE; t17711.s0.value.external_symbol_type = q536; /* x210946 */ t17713.s0.tag = EXTERNAL_SYMBOL_TYPE; t17713.s0.value.external_symbol_type = q686; /* x210947 */ t17714.s0.tag = EXTERNAL_SYMBOL_TYPE; t17714.s0.value.external_symbol_type = q536; /* x210948 */ t17716.s0.tag = EXTERNAL_SYMBOL_TYPE; t17716.s0.value.external_symbol_type = q11; /* x210949 */ t17717.s0.tag = EXTERNAL_SYMBOL_TYPE; t17717.s0.value.external_symbol_type = q29; /* x210950 */ t17717.s1.tag = NULL_TYPE; /* x210951 */ t17716.s1.tag = STRUCTURE_TYPE24753; t17716.s1.value.structure_type24753 = &t17717; /* x210952 */ t17715.s0.tag = STRUCTURE_TYPE24753; t17715.s0.value.structure_type24753 = &t17716; /* x210953 */ t17718.s0.tag = EXTERNAL_SYMBOL_TYPE; t17718.s0.value.external_symbol_type = q689; /* x210954 */ t17718.s1.tag = NULL_TYPE; /* x210955 */ t17715.s1.tag = STRUCTURE_TYPE24753; t17715.s1.value.structure_type24753 = &t17718; /* x210956 */ t17714.s1.tag = STRUCTURE_TYPE24753; t17714.s1.value.structure_type24753 = &t17715; /* x210957 */ t17713.s1.tag = STRUCTURE_TYPE24753; t17713.s1.value.structure_type24753 = &t17714; /* x210958 */ t17712.s0.tag = STRUCTURE_TYPE24753; t17712.s0.value.structure_type24753 = &t17713; /* x210959 */ t17712.s1.tag = NULL_TYPE; /* x210960 */ t17711.s1.tag = STRUCTURE_TYPE24753; t17711.s1.value.structure_type24753 = &t17712; /* x210961 */ t17710.s1.tag = STRUCTURE_TYPE24753; t17710.s1.value.structure_type24753 = &t17711; /* x210962 */ t17709.s0.tag = STRUCTURE_TYPE24753; t17709.s0.value.structure_type24753 = &t17710; /* x210963 */ t17720.s0.tag = EXTERNAL_SYMBOL_TYPE; t17720.s0.value.external_symbol_type = q493; /* x210964 */ t17721.s0.tag = EXTERNAL_SYMBOL_TYPE; t17721.s0.value.external_symbol_type = q537; /* x210965 */ t17723.s0.tag = EXTERNAL_SYMBOL_TYPE; t17723.s0.value.external_symbol_type = q686; /* x210966 */ t17724.s0.tag = EXTERNAL_SYMBOL_TYPE; t17724.s0.value.external_symbol_type = q537; /* x210967 */ t17726.s0.tag = EXTERNAL_SYMBOL_TYPE; t17726.s0.value.external_symbol_type = q11; /* x210968 */ t17727.s0.tag = EXTERNAL_SYMBOL_TYPE; t17727.s0.value.external_symbol_type = q29; /* x210969 */ t17727.s1.tag = NULL_TYPE; /* x210970 */ t17726.s1.tag = STRUCTURE_TYPE24753; t17726.s1.value.structure_type24753 = &t17727; /* x210971 */ t17725.s0.tag = STRUCTURE_TYPE24753; t17725.s0.value.structure_type24753 = &t17726; /* x210972 */ t17728.s0.tag = EXTERNAL_SYMBOL_TYPE; t17728.s0.value.external_symbol_type = q690; /* x210973 */ t17728.s1.tag = NULL_TYPE; /* x210974 */ t17725.s1.tag = STRUCTURE_TYPE24753; t17725.s1.value.structure_type24753 = &t17728; /* x210975 */ t17724.s1.tag = STRUCTURE_TYPE24753; t17724.s1.value.structure_type24753 = &t17725; /* x210976 */ t17723.s1.tag = STRUCTURE_TYPE24753; t17723.s1.value.structure_type24753 = &t17724; /* x210977 */ t17722.s0.tag = STRUCTURE_TYPE24753; t17722.s0.value.structure_type24753 = &t17723; /* x210978 */ t17722.s1.tag = NULL_TYPE; /* x210979 */ t17721.s1.tag = STRUCTURE_TYPE24753; t17721.s1.value.structure_type24753 = &t17722; /* x210980 */ t17720.s1.tag = STRUCTURE_TYPE24753; t17720.s1.value.structure_type24753 = &t17721; /* x210981 */ t17719.s0.tag = STRUCTURE_TYPE24753; t17719.s0.value.structure_type24753 = &t17720; /* x210982 */ t17730.s0.tag = EXTERNAL_SYMBOL_TYPE; t17730.s0.value.external_symbol_type = q42; /* x210983 */ t17731.s0.tag = EXTERNAL_SYMBOL_TYPE; t17731.s0.value.external_symbol_type = q691; /* x210984 */ t17733.s0.tag = EXTERNAL_SYMBOL_TYPE; t17733.s0.value.external_symbol_type = q39; /* x210985 */ t17734.s0.tag = NULL_TYPE; /* x210986 */ t17736.s0.tag = EXTERNAL_SYMBOL_TYPE; t17736.s0.value.external_symbol_type = q42; /* x210987 */ t17737.s0.tag = EXTERNAL_SYMBOL_TYPE; t17737.s0.value.external_symbol_type = q691; /* x210988 */ t17739.s0.tag = EXTERNAL_SYMBOL_TYPE; t17739.s0.value.external_symbol_type = q39; /* x210989 */ t17740.s0.tag = NULL_TYPE; /* x210990 */ t17741.s0.tag = TRUE_TYPE; /* x210991 */ t17741.s1.tag = NULL_TYPE; /* x210992 */ t17740.s1.tag = STRUCTURE_TYPE24753; t17740.s1.value.structure_type24753 = &t17741; /* x210993 */ t17739.s1.tag = STRUCTURE_TYPE24753; t17739.s1.value.structure_type24753 = &t17740; /* x210994 */ t17738.s0.tag = STRUCTURE_TYPE24753; t17738.s0.value.structure_type24753 = &t17739; /* x210995 */ t17738.s1.tag = NULL_TYPE; /* x210996 */ t17737.s1.tag = STRUCTURE_TYPE24753; t17737.s1.value.structure_type24753 = &t17738; /* x210997 */ t17736.s1.tag = STRUCTURE_TYPE24753; t17736.s1.value.structure_type24753 = &t17737; /* x210998 */ t17735.s0.tag = STRUCTURE_TYPE24753; t17735.s0.value.structure_type24753 = &t17736; /* x210999 */ t17743.s0.tag = EXTERNAL_SYMBOL_TYPE; t17743.s0.value.external_symbol_type = q533; /* x211000 */ t17743.s1.tag = NULL_TYPE; /* x211001 */ t17742.s0.tag = STRUCTURE_TYPE24753; t17742.s0.value.structure_type24753 = &t17743; /* x211002 */ t17745.s0.tag = EXTERNAL_SYMBOL_TYPE; t17745.s0.value.external_symbol_type = q493; /* x211003 */ t17746.s0.tag = EXTERNAL_SYMBOL_TYPE; t17746.s0.value.external_symbol_type = q540; /* x211004 */ t17748.s0.tag = EXTERNAL_SYMBOL_TYPE; t17748.s0.value.external_symbol_type = q692; /* x211005 */ t17749.s0.tag = EXTERNAL_SYMBOL_TYPE; t17749.s0.value.external_symbol_type = q540; /* x211006 */ t17750.s0.tag = EXTERNAL_SYMBOL_TYPE; t17750.s0.value.external_symbol_type = q595; /* x211007 */ t17750.s1.tag = NULL_TYPE; /* x211008 */ t17749.s1.tag = STRUCTURE_TYPE24753; t17749.s1.value.structure_type24753 = &t17750; /* x211009 */ t17748.s1.tag = STRUCTURE_TYPE24753; t17748.s1.value.structure_type24753 = &t17749; /* x211010 */ t17747.s0.tag = STRUCTURE_TYPE24753; t17747.s0.value.structure_type24753 = &t17748; /* x211011 */ t17752.s0.tag = EXTERNAL_SYMBOL_TYPE; t17752.s0.value.external_symbol_type = q692; /* x211012 */ t17753.s0.tag = EXTERNAL_SYMBOL_TYPE; t17753.s0.value.external_symbol_type = q540; /* x211013 */ t17754.s0.tag = EXTERNAL_SYMBOL_TYPE; t17754.s0.value.external_symbol_type = q604; /* x211014 */ t17754.s1.tag = NULL_TYPE; /* x211015 */ t17753.s1.tag = STRUCTURE_TYPE24753; t17753.s1.value.structure_type24753 = &t17754; /* x211016 */ t17752.s1.tag = STRUCTURE_TYPE24753; t17752.s1.value.structure_type24753 = &t17753; /* x211017 */ t17751.s0.tag = STRUCTURE_TYPE24753; t17751.s0.value.structure_type24753 = &t17752; /* x211018 */ t17756.s0.tag = EXTERNAL_SYMBOL_TYPE; t17756.s0.value.external_symbol_type = q692; /* x211019 */ t17757.s0.tag = EXTERNAL_SYMBOL_TYPE; t17757.s0.value.external_symbol_type = q540; /* x211020 */ t17758.s0.tag = EXTERNAL_SYMBOL_TYPE; t17758.s0.value.external_symbol_type = q607; /* x211021 */ t17758.s1.tag = NULL_TYPE; /* x211022 */ t17757.s1.tag = STRUCTURE_TYPE24753; t17757.s1.value.structure_type24753 = &t17758; /* x211023 */ t17756.s1.tag = STRUCTURE_TYPE24753; t17756.s1.value.structure_type24753 = &t17757; /* x211024 */ t17755.s0.tag = STRUCTURE_TYPE24753; t17755.s0.value.structure_type24753 = &t17756; /* x211025 */ t17760.s0.tag = EXTERNAL_SYMBOL_TYPE; t17760.s0.value.external_symbol_type = q692; /* x211026 */ t17761.s0.tag = EXTERNAL_SYMBOL_TYPE; t17761.s0.value.external_symbol_type = q540; /* x211027 */ t17762.s0.tag = EXTERNAL_SYMBOL_TYPE; t17762.s0.value.external_symbol_type = q608; /* x211028 */ t17762.s1.tag = NULL_TYPE; /* x211029 */ t17761.s1.tag = STRUCTURE_TYPE24753; t17761.s1.value.structure_type24753 = &t17762; /* x211030 */ t17760.s1.tag = STRUCTURE_TYPE24753; t17760.s1.value.structure_type24753 = &t17761; /* x211031 */ t17759.s0.tag = STRUCTURE_TYPE24753; t17759.s0.value.structure_type24753 = &t17760; /* x211032 */ t17764.s0.tag = EXTERNAL_SYMBOL_TYPE; t17764.s0.value.external_symbol_type = q692; /* x211033 */ t17765.s0.tag = EXTERNAL_SYMBOL_TYPE; t17765.s0.value.external_symbol_type = q540; /* x211034 */ t17766.s0.tag = EXTERNAL_SYMBOL_TYPE; t17766.s0.value.external_symbol_type = q609; /* x211035 */ t17766.s1.tag = NULL_TYPE; /* x211036 */ t17765.s1.tag = STRUCTURE_TYPE24753; t17765.s1.value.structure_type24753 = &t17766; /* x211037 */ t17764.s1.tag = STRUCTURE_TYPE24753; t17764.s1.value.structure_type24753 = &t17765; /* x211038 */ t17763.s0.tag = STRUCTURE_TYPE24753; t17763.s0.value.structure_type24753 = &t17764; /* x211039 */ t17768.s0.tag = EXTERNAL_SYMBOL_TYPE; t17768.s0.value.external_symbol_type = q692; /* x211040 */ t17769.s0.tag = EXTERNAL_SYMBOL_TYPE; t17769.s0.value.external_symbol_type = q540; /* x211041 */ t17770.s0.tag = EXTERNAL_SYMBOL_TYPE; t17770.s0.value.external_symbol_type = q610; /* x211042 */ t17770.s1.tag = NULL_TYPE; /* x211043 */ t17769.s1.tag = STRUCTURE_TYPE24753; t17769.s1.value.structure_type24753 = &t17770; /* x211044 */ t17768.s1.tag = STRUCTURE_TYPE24753; t17768.s1.value.structure_type24753 = &t17769; /* x211045 */ t17767.s0.tag = STRUCTURE_TYPE24753; t17767.s0.value.structure_type24753 = &t17768; /* x211046 */ t17772.s0.tag = EXTERNAL_SYMBOL_TYPE; t17772.s0.value.external_symbol_type = q692; /* x211047 */ t17773.s0.tag = EXTERNAL_SYMBOL_TYPE; t17773.s0.value.external_symbol_type = q540; /* x211048 */ t17774.s0.tag = EXTERNAL_SYMBOL_TYPE; t17774.s0.value.external_symbol_type = q611; /* x211049 */ t17774.s1.tag = NULL_TYPE; /* x211050 */ t17773.s1.tag = STRUCTURE_TYPE24753; t17773.s1.value.structure_type24753 = &t17774; /* x211051 */ t17772.s1.tag = STRUCTURE_TYPE24753; t17772.s1.value.structure_type24753 = &t17773; /* x211052 */ t17771.s0.tag = STRUCTURE_TYPE24753; t17771.s0.value.structure_type24753 = &t17772; /* x211053 */ t17776.s0.tag = EXTERNAL_SYMBOL_TYPE; t17776.s0.value.external_symbol_type = q692; /* x211054 */ t17777.s0.tag = EXTERNAL_SYMBOL_TYPE; t17777.s0.value.external_symbol_type = q540; /* x211055 */ t17778.s0.tag = EXTERNAL_SYMBOL_TYPE; t17778.s0.value.external_symbol_type = q613; /* x211056 */ t17778.s1.tag = NULL_TYPE; /* x211057 */ t17777.s1.tag = STRUCTURE_TYPE24753; t17777.s1.value.structure_type24753 = &t17778; /* x211058 */ t17776.s1.tag = STRUCTURE_TYPE24753; t17776.s1.value.structure_type24753 = &t17777; /* x211059 */ t17775.s0.tag = STRUCTURE_TYPE24753; t17775.s0.value.structure_type24753 = &t17776; /* x211060 */ t17780.s0.tag = EXTERNAL_SYMBOL_TYPE; t17780.s0.value.external_symbol_type = q692; /* x211061 */ t17781.s0.tag = EXTERNAL_SYMBOL_TYPE; t17781.s0.value.external_symbol_type = q540; /* x211062 */ t17782.s0.tag = EXTERNAL_SYMBOL_TYPE; t17782.s0.value.external_symbol_type = q614; /* x211063 */ t17782.s1.tag = NULL_TYPE; /* x211064 */ t17781.s1.tag = STRUCTURE_TYPE24753; t17781.s1.value.structure_type24753 = &t17782; /* x211065 */ t17780.s1.tag = STRUCTURE_TYPE24753; t17780.s1.value.structure_type24753 = &t17781; /* x211066 */ t17779.s0.tag = STRUCTURE_TYPE24753; t17779.s0.value.structure_type24753 = &t17780; /* x211067 */ t17784.s0.tag = EXTERNAL_SYMBOL_TYPE; t17784.s0.value.external_symbol_type = q692; /* x211068 */ t17785.s0.tag = EXTERNAL_SYMBOL_TYPE; t17785.s0.value.external_symbol_type = q540; /* x211069 */ t17786.s0.tag = EXTERNAL_SYMBOL_TYPE; t17786.s0.value.external_symbol_type = q617; /* x211070 */ t17786.s1.tag = NULL_TYPE; /* x211071 */ t17785.s1.tag = STRUCTURE_TYPE24753; t17785.s1.value.structure_type24753 = &t17786; /* x211072 */ t17784.s1.tag = STRUCTURE_TYPE24753; t17784.s1.value.structure_type24753 = &t17785; /* x211073 */ t17783.s0.tag = STRUCTURE_TYPE24753; t17783.s0.value.structure_type24753 = &t17784; /* x211074 */ t17788.s0.tag = EXTERNAL_SYMBOL_TYPE; t17788.s0.value.external_symbol_type = q692; /* x211075 */ t17789.s0.tag = EXTERNAL_SYMBOL_TYPE; t17789.s0.value.external_symbol_type = q540; /* x211076 */ t17790.s0.tag = EXTERNAL_SYMBOL_TYPE; t17790.s0.value.external_symbol_type = q618; /* x211077 */ t17790.s1.tag = NULL_TYPE; /* x211078 */ t17789.s1.tag = STRUCTURE_TYPE24753; t17789.s1.value.structure_type24753 = &t17790; /* x211079 */ t17788.s1.tag = STRUCTURE_TYPE24753; t17788.s1.value.structure_type24753 = &t17789; /* x211080 */ t17787.s0.tag = STRUCTURE_TYPE24753; t17787.s0.value.structure_type24753 = &t17788; /* x211081 */ t17792.s0.tag = EXTERNAL_SYMBOL_TYPE; t17792.s0.value.external_symbol_type = q494; /* x211082 */ t17793.s0.tag = EXTERNAL_SYMBOL_TYPE; t17793.s0.value.external_symbol_type = q528; /* x211083 */ t17795.s0.tag = EXTERNAL_SYMBOL_TYPE; t17795.s0.value.external_symbol_type = q692; /* x211084 */ t17796.s0.tag = EXTERNAL_SYMBOL_TYPE; t17796.s0.value.external_symbol_type = q540; /* x211085 */ t17797.s0.tag = EXTERNAL_SYMBOL_TYPE; t17797.s0.value.external_symbol_type = q620; /* x211086 */ t17797.s1.tag = NULL_TYPE; /* x211087 */ t17796.s1.tag = STRUCTURE_TYPE24753; t17796.s1.value.structure_type24753 = &t17797; /* x211088 */ t17795.s1.tag = STRUCTURE_TYPE24753; t17795.s1.value.structure_type24753 = &t17796; /* x211089 */ t17794.s0.tag = STRUCTURE_TYPE24753; t17794.s0.value.structure_type24753 = &t17795; /* x211090 */ t17799.s0.tag = EXTERNAL_SYMBOL_TYPE; t17799.s0.value.external_symbol_type = q692; /* x211091 */ t17800.s0.tag = EXTERNAL_SYMBOL_TYPE; t17800.s0.value.external_symbol_type = q540; /* x211092 */ t17801.s0.tag = EXTERNAL_SYMBOL_TYPE; t17801.s0.value.external_symbol_type = q622; /* x211093 */ t17801.s1.tag = NULL_TYPE; /* x211094 */ t17800.s1.tag = STRUCTURE_TYPE24753; t17800.s1.value.structure_type24753 = &t17801; /* x211095 */ t17799.s1.tag = STRUCTURE_TYPE24753; t17799.s1.value.structure_type24753 = &t17800; /* x211096 */ t17798.s0.tag = STRUCTURE_TYPE24753; t17798.s0.value.structure_type24753 = &t17799; /* x211097 */ t17803.s0.tag = EXTERNAL_SYMBOL_TYPE; t17803.s0.value.external_symbol_type = q692; /* x211098 */ t17804.s0.tag = EXTERNAL_SYMBOL_TYPE; t17804.s0.value.external_symbol_type = q540; /* x211099 */ t17805.s0.tag = EXTERNAL_SYMBOL_TYPE; t17805.s0.value.external_symbol_type = q624; /* x211100 */ t17805.s1.tag = NULL_TYPE; /* x211101 */ t17804.s1.tag = STRUCTURE_TYPE24753; t17804.s1.value.structure_type24753 = &t17805; /* x211102 */ t17803.s1.tag = STRUCTURE_TYPE24753; t17803.s1.value.structure_type24753 = &t17804; /* x211103 */ t17802.s0.tag = STRUCTURE_TYPE24753; t17802.s0.value.structure_type24753 = &t17803; /* x211104 */ t17807.s0.tag = EXTERNAL_SYMBOL_TYPE; t17807.s0.value.external_symbol_type = q692; /* x211105 */ t17808.s0.tag = EXTERNAL_SYMBOL_TYPE; t17808.s0.value.external_symbol_type = q540; /* x211106 */ t17809.s0.tag = EXTERNAL_SYMBOL_TYPE; t17809.s0.value.external_symbol_type = q626; /* x211107 */ t17809.s1.tag = NULL_TYPE; /* x211108 */ t17808.s1.tag = STRUCTURE_TYPE24753; t17808.s1.value.structure_type24753 = &t17809; /* x211109 */ t17807.s1.tag = STRUCTURE_TYPE24753; t17807.s1.value.structure_type24753 = &t17808; /* x211110 */ t17806.s0.tag = STRUCTURE_TYPE24753; t17806.s0.value.structure_type24753 = &t17807; /* x211111 */ t17811.s0.tag = EXTERNAL_SYMBOL_TYPE; t17811.s0.value.external_symbol_type = q692; /* x211112 */ t17812.s0.tag = EXTERNAL_SYMBOL_TYPE; t17812.s0.value.external_symbol_type = q540; /* x211113 */ t17813.s0.tag = EXTERNAL_SYMBOL_TYPE; t17813.s0.value.external_symbol_type = q628; /* x211114 */ t17813.s1.tag = NULL_TYPE; /* x211115 */ t17812.s1.tag = STRUCTURE_TYPE24753; t17812.s1.value.structure_type24753 = &t17813; /* x211116 */ t17811.s1.tag = STRUCTURE_TYPE24753; t17811.s1.value.structure_type24753 = &t17812; /* x211117 */ t17810.s0.tag = STRUCTURE_TYPE24753; t17810.s0.value.structure_type24753 = &t17811; /* x211118 */ t17815.s0.tag = EXTERNAL_SYMBOL_TYPE; t17815.s0.value.external_symbol_type = q692; /* x211119 */ t17816.s0.tag = EXTERNAL_SYMBOL_TYPE; t17816.s0.value.external_symbol_type = q540; /* x211120 */ t17817.s0.tag = EXTERNAL_SYMBOL_TYPE; t17817.s0.value.external_symbol_type = q630; /* x211121 */ t17817.s1.tag = NULL_TYPE; /* x211122 */ t17816.s1.tag = STRUCTURE_TYPE24753; t17816.s1.value.structure_type24753 = &t17817; /* x211123 */ t17815.s1.tag = STRUCTURE_TYPE24753; t17815.s1.value.structure_type24753 = &t17816; /* x211124 */ t17814.s0.tag = STRUCTURE_TYPE24753; t17814.s0.value.structure_type24753 = &t17815; /* x211125 */ t17819.s0.tag = EXTERNAL_SYMBOL_TYPE; t17819.s0.value.external_symbol_type = q692; /* x211126 */ t17820.s0.tag = EXTERNAL_SYMBOL_TYPE; t17820.s0.value.external_symbol_type = q540; /* x211127 */ t17821.s0.tag = EXTERNAL_SYMBOL_TYPE; t17821.s0.value.external_symbol_type = q632; /* x211128 */ t17821.s1.tag = NULL_TYPE; /* x211129 */ t17820.s1.tag = STRUCTURE_TYPE24753; t17820.s1.value.structure_type24753 = &t17821; /* x211130 */ t17819.s1.tag = STRUCTURE_TYPE24753; t17819.s1.value.structure_type24753 = &t17820; /* x211131 */ t17818.s0.tag = STRUCTURE_TYPE24753; t17818.s0.value.structure_type24753 = &t17819; /* x211132 */ t17823.s0.tag = EXTERNAL_SYMBOL_TYPE; t17823.s0.value.external_symbol_type = q692; /* x211133 */ t17824.s0.tag = EXTERNAL_SYMBOL_TYPE; t17824.s0.value.external_symbol_type = q540; /* x211134 */ t17825.s0.tag = EXTERNAL_SYMBOL_TYPE; t17825.s0.value.external_symbol_type = q634; /* x211135 */ t17825.s1.tag = NULL_TYPE; /* x211136 */ t17824.s1.tag = STRUCTURE_TYPE24753; t17824.s1.value.structure_type24753 = &t17825; /* x211137 */ t17823.s1.tag = STRUCTURE_TYPE24753; t17823.s1.value.structure_type24753 = &t17824; /* x211138 */ t17822.s0.tag = STRUCTURE_TYPE24753; t17822.s0.value.structure_type24753 = &t17823; /* x211139 */ t17827.s0.tag = EXTERNAL_SYMBOL_TYPE; t17827.s0.value.external_symbol_type = q692; /* x211140 */ t17828.s0.tag = EXTERNAL_SYMBOL_TYPE; t17828.s0.value.external_symbol_type = q540; /* x211141 */ t17829.s0.tag = EXTERNAL_SYMBOL_TYPE; t17829.s0.value.external_symbol_type = q636; /* x211142 */ t17829.s1.tag = NULL_TYPE; /* x211143 */ t17828.s1.tag = STRUCTURE_TYPE24753; t17828.s1.value.structure_type24753 = &t17829; /* x211144 */ t17827.s1.tag = STRUCTURE_TYPE24753; t17827.s1.value.structure_type24753 = &t17828; /* x211145 */ t17826.s0.tag = STRUCTURE_TYPE24753; t17826.s0.value.structure_type24753 = &t17827; /* x211146 */ t17831.s0.tag = EXTERNAL_SYMBOL_TYPE; t17831.s0.value.external_symbol_type = q692; /* x211147 */ t17832.s0.tag = EXTERNAL_SYMBOL_TYPE; t17832.s0.value.external_symbol_type = q540; /* x211148 */ t17833.s0.tag = EXTERNAL_SYMBOL_TYPE; t17833.s0.value.external_symbol_type = q638; /* x211149 */ t17833.s1.tag = NULL_TYPE; /* x211150 */ t17832.s1.tag = STRUCTURE_TYPE24753; t17832.s1.value.structure_type24753 = &t17833; /* x211151 */ t17831.s1.tag = STRUCTURE_TYPE24753; t17831.s1.value.structure_type24753 = &t17832; /* x211152 */ t17830.s0.tag = STRUCTURE_TYPE24753; t17830.s0.value.structure_type24753 = &t17831; /* x211153 */ t17835.s0.tag = EXTERNAL_SYMBOL_TYPE; t17835.s0.value.external_symbol_type = q692; /* x211154 */ t17836.s0.tag = EXTERNAL_SYMBOL_TYPE; t17836.s0.value.external_symbol_type = q540; /* x211155 */ t17837.s0.tag = EXTERNAL_SYMBOL_TYPE; t17837.s0.value.external_symbol_type = q640; /* x211156 */ t17837.s1.tag = NULL_TYPE; /* x211157 */ t17836.s1.tag = STRUCTURE_TYPE24753; t17836.s1.value.structure_type24753 = &t17837; /* x211158 */ t17835.s1.tag = STRUCTURE_TYPE24753; t17835.s1.value.structure_type24753 = &t17836; /* x211159 */ t17834.s0.tag = STRUCTURE_TYPE24753; t17834.s0.value.structure_type24753 = &t17835; /* x211160 */ t17839.s0.tag = EXTERNAL_SYMBOL_TYPE; t17839.s0.value.external_symbol_type = q692; /* x211161 */ t17840.s0.tag = EXTERNAL_SYMBOL_TYPE; t17840.s0.value.external_symbol_type = q540; /* x211162 */ t17841.s0.tag = EXTERNAL_SYMBOL_TYPE; t17841.s0.value.external_symbol_type = q641; /* x211163 */ t17841.s1.tag = NULL_TYPE; /* x211164 */ t17840.s1.tag = STRUCTURE_TYPE24753; t17840.s1.value.structure_type24753 = &t17841; /* x211165 */ t17839.s1.tag = STRUCTURE_TYPE24753; t17839.s1.value.structure_type24753 = &t17840; /* x211166 */ t17838.s0.tag = STRUCTURE_TYPE24753; t17838.s0.value.structure_type24753 = &t17839; /* x211167 */ t17843.s0.tag = EXTERNAL_SYMBOL_TYPE; t17843.s0.value.external_symbol_type = q693; /* x211168 */ t17844.s0.tag = EXTERNAL_SYMBOL_TYPE; t17844.s0.value.external_symbol_type = q540; /* x211169 */ t17846.s0.tag = EXTERNAL_SYMBOL_TYPE; t17846.s0.value.external_symbol_type = q557; /* x211170 */ t17847.s0.tag = EXTERNAL_SYMBOL_TYPE; t17847.s0.value.external_symbol_type = q540; /* x211171 */ t17848.s0.tag = EXTERNAL_SYMBOL_TYPE; t17848.s0.value.external_symbol_type = q545; /* x211172 */ t17848.s1.tag = NULL_TYPE; /* x211173 */ t17847.s1.tag = STRUCTURE_TYPE24753; t17847.s1.value.structure_type24753 = &t17848; /* x211174 */ t17846.s1.tag = STRUCTURE_TYPE24753; t17846.s1.value.structure_type24753 = &t17847; /* x211175 */ t17845.s0.tag = STRUCTURE_TYPE24753; t17845.s0.value.structure_type24753 = &t17846; /* x211176 */ t17850.s0.tag = EXTERNAL_SYMBOL_TYPE; t17850.s0.value.external_symbol_type = q694; /* x211177 */ t17852.s0.tag = EXTERNAL_SYMBOL_TYPE; t17852.s0.value.external_symbol_type = q1; /* x211178 */ t17854.s0.tag = EXTERNAL_SYMBOL_TYPE; t17854.s0.value.external_symbol_type = q582; /* x211179 */ t17856.s0.tag = EXTERNAL_SYMBOL_TYPE; t17856.s0.value.external_symbol_type = q583; /* x211180 */ t17857.s0.tag = EXTERNAL_SYMBOL_TYPE; t17857.s0.value.external_symbol_type = q555; /* x211181 */ t17857.s1.tag = NULL_TYPE; /* x211182 */ t17856.s1.tag = STRUCTURE_TYPE24753; t17856.s1.value.structure_type24753 = &t17857; /* x211183 */ t17855.s0.tag = STRUCTURE_TYPE24753; t17855.s0.value.structure_type24753 = &t17856; /* x211184 */ t17855.s1.tag = NULL_TYPE; /* x211185 */ t17854.s1.tag = STRUCTURE_TYPE24753; t17854.s1.value.structure_type24753 = &t17855; /* x211186 */ t17853.s0.tag = STRUCTURE_TYPE24753; t17853.s0.value.structure_type24753 = &t17854; /* x211187 */ t17853.s1.tag = NULL_TYPE; /* x211188 */ t17852.s1.tag = STRUCTURE_TYPE24753; t17852.s1.value.structure_type24753 = &t17853; /* x211189 */ t17851.s0.tag = STRUCTURE_TYPE24753; t17851.s0.value.structure_type24753 = &t17852; /* x211190 */ t17851.s1.tag = NULL_TYPE; /* x211191 */ t17850.s1.tag = STRUCTURE_TYPE24753; t17850.s1.value.structure_type24753 = &t17851; /* x211192 */ t17849.s0.tag = STRUCTURE_TYPE24753; t17849.s0.value.structure_type24753 = &t17850; /* x211193 */ t17858.s0.tag = FIXNUM_TYPE; t17858.s0.value.fixnum_type = 1; /* x211194 */ t17859.s0.tag = FIXNUM_TYPE; t17859.s0.value.fixnum_type = 0; /* x211195 */ t17859.s1.tag = NULL_TYPE; /* x211196 */ t17858.s1.tag = STRUCTURE_TYPE24753; t17858.s1.value.structure_type24753 = &t17859; /* x211197 */ t17849.s1.tag = STRUCTURE_TYPE24753; t17849.s1.value.structure_type24753 = &t17858; /* x211198 */ t17845.s1.tag = STRUCTURE_TYPE24753; t17845.s1.value.structure_type24753 = &t17849; /* x211199 */ t17844.s1.tag = STRUCTURE_TYPE24753; t17844.s1.value.structure_type24753 = &t17845; /* x211200 */ t17843.s1.tag = STRUCTURE_TYPE24753; t17843.s1.value.structure_type24753 = &t17844; /* x211201 */ t17842.s0.tag = STRUCTURE_TYPE24753; t17842.s0.value.structure_type24753 = &t17843; /* x211202 */ t17861.s0.tag = EXTERNAL_SYMBOL_TYPE; t17861.s0.value.external_symbol_type = q693; /* x211203 */ t17862.s0.tag = EXTERNAL_SYMBOL_TYPE; t17862.s0.value.external_symbol_type = q540; /* x211204 */ t17864.s0.tag = EXTERNAL_SYMBOL_TYPE; t17864.s0.value.external_symbol_type = q557; /* x211205 */ t17865.s0.tag = EXTERNAL_SYMBOL_TYPE; t17865.s0.value.external_symbol_type = q540; /* x211206 */ t17866.s0.tag = EXTERNAL_SYMBOL_TYPE; t17866.s0.value.external_symbol_type = q545; /* x211207 */ t17866.s1.tag = NULL_TYPE; /* x211208 */ t17865.s1.tag = STRUCTURE_TYPE24753; t17865.s1.value.structure_type24753 = &t17866; /* x211209 */ t17864.s1.tag = STRUCTURE_TYPE24753; t17864.s1.value.structure_type24753 = &t17865; /* x211210 */ t17863.s0.tag = STRUCTURE_TYPE24753; t17863.s0.value.structure_type24753 = &t17864; /* x211211 */ t17868.s0.tag = EXTERNAL_SYMBOL_TYPE; t17868.s0.value.external_symbol_type = q694; /* x211212 */ t17870.s0.tag = EXTERNAL_SYMBOL_TYPE; t17870.s0.value.external_symbol_type = q1; /* x211213 */ t17872.s0.tag = EXTERNAL_SYMBOL_TYPE; t17872.s0.value.external_symbol_type = q582; /* x211214 */ t17874.s0.tag = EXTERNAL_SYMBOL_TYPE; t17874.s0.value.external_symbol_type = q583; /* x211215 */ t17875.s0.tag = EXTERNAL_SYMBOL_TYPE; t17875.s0.value.external_symbol_type = q560; /* x211216 */ t17875.s1.tag = NULL_TYPE; /* x211217 */ t17874.s1.tag = STRUCTURE_TYPE24753; t17874.s1.value.structure_type24753 = &t17875; /* x211218 */ t17873.s0.tag = STRUCTURE_TYPE24753; t17873.s0.value.structure_type24753 = &t17874; /* x211219 */ t17873.s1.tag = NULL_TYPE; /* x211220 */ t17872.s1.tag = STRUCTURE_TYPE24753; t17872.s1.value.structure_type24753 = &t17873; /* x211221 */ t17871.s0.tag = STRUCTURE_TYPE24753; t17871.s0.value.structure_type24753 = &t17872; /* x211222 */ t17871.s1.tag = NULL_TYPE; /* x211223 */ t17870.s1.tag = STRUCTURE_TYPE24753; t17870.s1.value.structure_type24753 = &t17871; /* x211224 */ t17869.s0.tag = STRUCTURE_TYPE24753; t17869.s0.value.structure_type24753 = &t17870; /* x211225 */ t17869.s1.tag = NULL_TYPE; /* x211226 */ t17868.s1.tag = STRUCTURE_TYPE24753; t17868.s1.value.structure_type24753 = &t17869; /* x211227 */ t17867.s0.tag = STRUCTURE_TYPE24753; t17867.s0.value.structure_type24753 = &t17868; /* x211228 */ t17876.s0.tag = FIXNUM_TYPE; t17876.s0.value.fixnum_type = 1; /* x211229 */ t17877.s0.tag = FIXNUM_TYPE; t17877.s0.value.fixnum_type = 0; /* x211230 */ t17877.s1.tag = NULL_TYPE; /* x211231 */ t17876.s1.tag = STRUCTURE_TYPE24753; t17876.s1.value.structure_type24753 = &t17877; /* x211232 */ t17867.s1.tag = STRUCTURE_TYPE24753; t17867.s1.value.structure_type24753 = &t17876; /* x211233 */ t17863.s1.tag = STRUCTURE_TYPE24753; t17863.s1.value.structure_type24753 = &t17867; /* x211234 */ t17862.s1.tag = STRUCTURE_TYPE24753; t17862.s1.value.structure_type24753 = &t17863; /* x211235 */ t17861.s1.tag = STRUCTURE_TYPE24753; t17861.s1.value.structure_type24753 = &t17862; /* x211236 */ t17860.s0.tag = STRUCTURE_TYPE24753; t17860.s0.value.structure_type24753 = &t17861; /* x211237 */ t17879.s0.tag = EXTERNAL_SYMBOL_TYPE; t17879.s0.value.external_symbol_type = q693; /* x211238 */ t17880.s0.tag = EXTERNAL_SYMBOL_TYPE; t17880.s0.value.external_symbol_type = q540; /* x211239 */ t17882.s0.tag = EXTERNAL_SYMBOL_TYPE; t17882.s0.value.external_symbol_type = q557; /* x211240 */ t17883.s0.tag = EXTERNAL_SYMBOL_TYPE; t17883.s0.value.external_symbol_type = q540; /* x211241 */ t17884.s0.tag = EXTERNAL_SYMBOL_TYPE; t17884.s0.value.external_symbol_type = q545; /* x211242 */ t17884.s1.tag = NULL_TYPE; /* x211243 */ t17883.s1.tag = STRUCTURE_TYPE24753; t17883.s1.value.structure_type24753 = &t17884; /* x211244 */ t17882.s1.tag = STRUCTURE_TYPE24753; t17882.s1.value.structure_type24753 = &t17883; /* x211245 */ t17881.s0.tag = STRUCTURE_TYPE24753; t17881.s0.value.structure_type24753 = &t17882; /* x211246 */ t17886.s0.tag = EXTERNAL_SYMBOL_TYPE; t17886.s0.value.external_symbol_type = q694; /* x211247 */ t17888.s0.tag = EXTERNAL_SYMBOL_TYPE; t17888.s0.value.external_symbol_type = q1; /* x211248 */ t17890.s0.tag = EXTERNAL_SYMBOL_TYPE; t17890.s0.value.external_symbol_type = q582; /* x211249 */ t17892.s0.tag = EXTERNAL_SYMBOL_TYPE; t17892.s0.value.external_symbol_type = q583; /* x211250 */ t17893.s0.tag = EXTERNAL_SYMBOL_TYPE; t17893.s0.value.external_symbol_type = q619; /* x211251 */ t17893.s1.tag = NULL_TYPE; /* x211252 */ t17892.s1.tag = STRUCTURE_TYPE24753; t17892.s1.value.structure_type24753 = &t17893; /* x211253 */ t17891.s0.tag = STRUCTURE_TYPE24753; t17891.s0.value.structure_type24753 = &t17892; /* x211254 */ t17891.s1.tag = NULL_TYPE; /* x211255 */ t17890.s1.tag = STRUCTURE_TYPE24753; t17890.s1.value.structure_type24753 = &t17891; /* x211256 */ t17889.s0.tag = STRUCTURE_TYPE24753; t17889.s0.value.structure_type24753 = &t17890; /* x211257 */ t17889.s1.tag = NULL_TYPE; /* x211258 */ t17888.s1.tag = STRUCTURE_TYPE24753; t17888.s1.value.structure_type24753 = &t17889; /* x211259 */ t17887.s0.tag = STRUCTURE_TYPE24753; t17887.s0.value.structure_type24753 = &t17888; /* x211260 */ t17887.s1.tag = NULL_TYPE; /* x211261 */ t17886.s1.tag = STRUCTURE_TYPE24753; t17886.s1.value.structure_type24753 = &t17887; /* x211262 */ t17885.s0.tag = STRUCTURE_TYPE24753; t17885.s0.value.structure_type24753 = &t17886; /* x211263 */ t17894.s0.tag = FIXNUM_TYPE; t17894.s0.value.fixnum_type = 1; /* x211264 */ t17895.s0.tag = FIXNUM_TYPE; t17895.s0.value.fixnum_type = 0; /* x211265 */ t17895.s1.tag = NULL_TYPE; /* x211266 */ t17894.s1.tag = STRUCTURE_TYPE24753; t17894.s1.value.structure_type24753 = &t17895; /* x211267 */ t17885.s1.tag = STRUCTURE_TYPE24753; t17885.s1.value.structure_type24753 = &t17894; /* x211268 */ t17881.s1.tag = STRUCTURE_TYPE24753; t17881.s1.value.structure_type24753 = &t17885; /* x211269 */ t17880.s1.tag = STRUCTURE_TYPE24753; t17880.s1.value.structure_type24753 = &t17881; /* x211270 */ t17879.s1.tag = STRUCTURE_TYPE24753; t17879.s1.value.structure_type24753 = &t17880; /* x211271 */ t17878.s0.tag = STRUCTURE_TYPE24753; t17878.s0.value.structure_type24753 = &t17879; /* x211272 */ t17897.s0.tag = EXTERNAL_SYMBOL_TYPE; t17897.s0.value.external_symbol_type = q693; /* x211273 */ t17898.s0.tag = EXTERNAL_SYMBOL_TYPE; t17898.s0.value.external_symbol_type = q540; /* x211274 */ t17900.s0.tag = EXTERNAL_SYMBOL_TYPE; t17900.s0.value.external_symbol_type = q557; /* x211275 */ t17901.s0.tag = EXTERNAL_SYMBOL_TYPE; t17901.s0.value.external_symbol_type = q540; /* x211276 */ t17902.s0.tag = EXTERNAL_SYMBOL_TYPE; t17902.s0.value.external_symbol_type = q545; /* x211277 */ t17902.s1.tag = NULL_TYPE; /* x211278 */ t17901.s1.tag = STRUCTURE_TYPE24753; t17901.s1.value.structure_type24753 = &t17902; /* x211279 */ t17900.s1.tag = STRUCTURE_TYPE24753; t17900.s1.value.structure_type24753 = &t17901; /* x211280 */ t17899.s0.tag = STRUCTURE_TYPE24753; t17899.s0.value.structure_type24753 = &t17900; /* x211281 */ t17904.s0.tag = EXTERNAL_SYMBOL_TYPE; t17904.s0.value.external_symbol_type = q694; /* x211282 */ t17906.s0.tag = EXTERNAL_SYMBOL_TYPE; t17906.s0.value.external_symbol_type = q1; /* x211283 */ t17908.s0.tag = EXTERNAL_SYMBOL_TYPE; t17908.s0.value.external_symbol_type = q582; /* x211284 */ t17910.s0.tag = EXTERNAL_SYMBOL_TYPE; t17910.s0.value.external_symbol_type = q583; /* x211285 */ t17911.s0.tag = EXTERNAL_SYMBOL_TYPE; t17911.s0.value.external_symbol_type = q621; /* x211286 */ t17911.s1.tag = NULL_TYPE; /* x211287 */ t17910.s1.tag = STRUCTURE_TYPE24753; t17910.s1.value.structure_type24753 = &t17911; /* x211288 */ t17909.s0.tag = STRUCTURE_TYPE24753; t17909.s0.value.structure_type24753 = &t17910; /* x211289 */ t17909.s1.tag = NULL_TYPE; /* x211290 */ t17908.s1.tag = STRUCTURE_TYPE24753; t17908.s1.value.structure_type24753 = &t17909; /* x211291 */ t17907.s0.tag = STRUCTURE_TYPE24753; t17907.s0.value.structure_type24753 = &t17908; /* x211292 */ t17907.s1.tag = NULL_TYPE; /* x211293 */ t17906.s1.tag = STRUCTURE_TYPE24753; t17906.s1.value.structure_type24753 = &t17907; /* x211294 */ t17905.s0.tag = STRUCTURE_TYPE24753; t17905.s0.value.structure_type24753 = &t17906; /* x211295 */ t17905.s1.tag = NULL_TYPE; /* x211296 */ t17904.s1.tag = STRUCTURE_TYPE24753; t17904.s1.value.structure_type24753 = &t17905; /* x211297 */ t17903.s0.tag = STRUCTURE_TYPE24753; t17903.s0.value.structure_type24753 = &t17904; /* x211298 */ t17912.s0.tag = FIXNUM_TYPE; t17912.s0.value.fixnum_type = 1; /* x211299 */ t17913.s0.tag = FIXNUM_TYPE; t17913.s0.value.fixnum_type = 0; /* x211300 */ t17913.s1.tag = NULL_TYPE; /* x211301 */ t17912.s1.tag = STRUCTURE_TYPE24753; t17912.s1.value.structure_type24753 = &t17913; /* x211302 */ t17903.s1.tag = STRUCTURE_TYPE24753; t17903.s1.value.structure_type24753 = &t17912; /* x211303 */ t17899.s1.tag = STRUCTURE_TYPE24753; t17899.s1.value.structure_type24753 = &t17903; /* x211304 */ t17898.s1.tag = STRUCTURE_TYPE24753; t17898.s1.value.structure_type24753 = &t17899; /* x211305 */ t17897.s1.tag = STRUCTURE_TYPE24753; t17897.s1.value.structure_type24753 = &t17898; /* x211306 */ t17896.s0.tag = STRUCTURE_TYPE24753; t17896.s0.value.structure_type24753 = &t17897; /* x211307 */ t17915.s0.tag = EXTERNAL_SYMBOL_TYPE; t17915.s0.value.external_symbol_type = q693; /* x211308 */ t17916.s0.tag = EXTERNAL_SYMBOL_TYPE; t17916.s0.value.external_symbol_type = q540; /* x211309 */ t17918.s0.tag = EXTERNAL_SYMBOL_TYPE; t17918.s0.value.external_symbol_type = q557; /* x211310 */ t17919.s0.tag = EXTERNAL_SYMBOL_TYPE; t17919.s0.value.external_symbol_type = q540; /* x211311 */ t17920.s0.tag = EXTERNAL_SYMBOL_TYPE; t17920.s0.value.external_symbol_type = q545; /* x211312 */ t17920.s1.tag = NULL_TYPE; /* x211313 */ t17919.s1.tag = STRUCTURE_TYPE24753; t17919.s1.value.structure_type24753 = &t17920; /* x211314 */ t17918.s1.tag = STRUCTURE_TYPE24753; t17918.s1.value.structure_type24753 = &t17919; /* x211315 */ t17917.s0.tag = STRUCTURE_TYPE24753; t17917.s0.value.structure_type24753 = &t17918; /* x211316 */ t17922.s0.tag = EXTERNAL_SYMBOL_TYPE; t17922.s0.value.external_symbol_type = q694; /* x211317 */ t17924.s0.tag = EXTERNAL_SYMBOL_TYPE; t17924.s0.value.external_symbol_type = q1; /* x211318 */ t17926.s0.tag = EXTERNAL_SYMBOL_TYPE; t17926.s0.value.external_symbol_type = q582; /* x211319 */ t17928.s0.tag = EXTERNAL_SYMBOL_TYPE; t17928.s0.value.external_symbol_type = q583; /* x211320 */ t17929.s0.tag = EXTERNAL_SYMBOL_TYPE; t17929.s0.value.external_symbol_type = q623; /* x211321 */ t17929.s1.tag = NULL_TYPE; /* x211322 */ t17928.s1.tag = STRUCTURE_TYPE24753; t17928.s1.value.structure_type24753 = &t17929; /* x211323 */ t17927.s0.tag = STRUCTURE_TYPE24753; t17927.s0.value.structure_type24753 = &t17928; /* x211324 */ t17927.s1.tag = NULL_TYPE; /* x211325 */ t17926.s1.tag = STRUCTURE_TYPE24753; t17926.s1.value.structure_type24753 = &t17927; /* x211326 */ t17925.s0.tag = STRUCTURE_TYPE24753; t17925.s0.value.structure_type24753 = &t17926; /* x211327 */ t17925.s1.tag = NULL_TYPE; /* x211328 */ t17924.s1.tag = STRUCTURE_TYPE24753; t17924.s1.value.structure_type24753 = &t17925; /* x211329 */ t17923.s0.tag = STRUCTURE_TYPE24753; t17923.s0.value.structure_type24753 = &t17924; /* x211330 */ t17923.s1.tag = NULL_TYPE; /* x211331 */ t17922.s1.tag = STRUCTURE_TYPE24753; t17922.s1.value.structure_type24753 = &t17923; /* x211332 */ t17921.s0.tag = STRUCTURE_TYPE24753; t17921.s0.value.structure_type24753 = &t17922; /* x211333 */ t17930.s0.tag = FIXNUM_TYPE; t17930.s0.value.fixnum_type = 1; /* x211334 */ t17931.s0.tag = FIXNUM_TYPE; t17931.s0.value.fixnum_type = 0; /* x211335 */ t17931.s1.tag = NULL_TYPE; /* x211336 */ t17930.s1.tag = STRUCTURE_TYPE24753; t17930.s1.value.structure_type24753 = &t17931; /* x211337 */ t17921.s1.tag = STRUCTURE_TYPE24753; t17921.s1.value.structure_type24753 = &t17930; /* x211338 */ t17917.s1.tag = STRUCTURE_TYPE24753; t17917.s1.value.structure_type24753 = &t17921; /* x211339 */ t17916.s1.tag = STRUCTURE_TYPE24753; t17916.s1.value.structure_type24753 = &t17917; /* x211340 */ t17915.s1.tag = STRUCTURE_TYPE24753; t17915.s1.value.structure_type24753 = &t17916; /* x211341 */ t17914.s0.tag = STRUCTURE_TYPE24753; t17914.s0.value.structure_type24753 = &t17915; /* x211342 */ t17933.s0.tag = EXTERNAL_SYMBOL_TYPE; t17933.s0.value.external_symbol_type = q693; /* x211343 */ t17934.s0.tag = EXTERNAL_SYMBOL_TYPE; t17934.s0.value.external_symbol_type = q540; /* x211344 */ t17936.s0.tag = EXTERNAL_SYMBOL_TYPE; t17936.s0.value.external_symbol_type = q557; /* x211345 */ t17937.s0.tag = EXTERNAL_SYMBOL_TYPE; t17937.s0.value.external_symbol_type = q540; /* x211346 */ t17938.s0.tag = EXTERNAL_SYMBOL_TYPE; t17938.s0.value.external_symbol_type = q545; /* x211347 */ t17938.s1.tag = NULL_TYPE; /* x211348 */ t17937.s1.tag = STRUCTURE_TYPE24753; t17937.s1.value.structure_type24753 = &t17938; /* x211349 */ t17936.s1.tag = STRUCTURE_TYPE24753; t17936.s1.value.structure_type24753 = &t17937; /* x211350 */ t17935.s0.tag = STRUCTURE_TYPE24753; t17935.s0.value.structure_type24753 = &t17936; /* x211351 */ t17940.s0.tag = EXTERNAL_SYMBOL_TYPE; t17940.s0.value.external_symbol_type = q694; /* x211352 */ t17942.s0.tag = EXTERNAL_SYMBOL_TYPE; t17942.s0.value.external_symbol_type = q1; /* x211353 */ t17944.s0.tag = EXTERNAL_SYMBOL_TYPE; t17944.s0.value.external_symbol_type = q582; /* x211354 */ t17946.s0.tag = EXTERNAL_SYMBOL_TYPE; t17946.s0.value.external_symbol_type = q583; /* x211355 */ t17947.s0.tag = EXTERNAL_SYMBOL_TYPE; t17947.s0.value.external_symbol_type = q625; /* x211356 */ t17947.s1.tag = NULL_TYPE; /* x211357 */ t17946.s1.tag = STRUCTURE_TYPE24753; t17946.s1.value.structure_type24753 = &t17947; /* x211358 */ t17945.s0.tag = STRUCTURE_TYPE24753; t17945.s0.value.structure_type24753 = &t17946; /* x211359 */ t17945.s1.tag = NULL_TYPE; /* x211360 */ t17944.s1.tag = STRUCTURE_TYPE24753; t17944.s1.value.structure_type24753 = &t17945; /* x211361 */ t17943.s0.tag = STRUCTURE_TYPE24753; t17943.s0.value.structure_type24753 = &t17944; /* x211362 */ t17943.s1.tag = NULL_TYPE; /* x211363 */ t17942.s1.tag = STRUCTURE_TYPE24753; t17942.s1.value.structure_type24753 = &t17943; /* x211364 */ t17941.s0.tag = STRUCTURE_TYPE24753; t17941.s0.value.structure_type24753 = &t17942; /* x211365 */ t17941.s1.tag = NULL_TYPE; /* x211366 */ t17940.s1.tag = STRUCTURE_TYPE24753; t17940.s1.value.structure_type24753 = &t17941; /* x211367 */ t17939.s0.tag = STRUCTURE_TYPE24753; t17939.s0.value.structure_type24753 = &t17940; /* x211368 */ t17948.s0.tag = FIXNUM_TYPE; t17948.s0.value.fixnum_type = 1; /* x211369 */ t17949.s0.tag = FIXNUM_TYPE; t17949.s0.value.fixnum_type = 0; /* x211370 */ t17949.s1.tag = NULL_TYPE; /* x211371 */ t17948.s1.tag = STRUCTURE_TYPE24753; t17948.s1.value.structure_type24753 = &t17949; /* x211372 */ t17939.s1.tag = STRUCTURE_TYPE24753; t17939.s1.value.structure_type24753 = &t17948; /* x211373 */ t17935.s1.tag = STRUCTURE_TYPE24753; t17935.s1.value.structure_type24753 = &t17939; /* x211374 */ t17934.s1.tag = STRUCTURE_TYPE24753; t17934.s1.value.structure_type24753 = &t17935; /* x211375 */ t17933.s1.tag = STRUCTURE_TYPE24753; t17933.s1.value.structure_type24753 = &t17934; /* x211376 */ t17932.s0.tag = STRUCTURE_TYPE24753; t17932.s0.value.structure_type24753 = &t17933; /* x211377 */ t17951.s0.tag = EXTERNAL_SYMBOL_TYPE; t17951.s0.value.external_symbol_type = q693; /* x211378 */ t17952.s0.tag = EXTERNAL_SYMBOL_TYPE; t17952.s0.value.external_symbol_type = q540; /* x211379 */ t17954.s0.tag = EXTERNAL_SYMBOL_TYPE; t17954.s0.value.external_symbol_type = q557; /* x211380 */ t17955.s0.tag = EXTERNAL_SYMBOL_TYPE; t17955.s0.value.external_symbol_type = q540; /* x211381 */ t17956.s0.tag = EXTERNAL_SYMBOL_TYPE; t17956.s0.value.external_symbol_type = q545; /* x211382 */ t17956.s1.tag = NULL_TYPE; /* x211383 */ t17955.s1.tag = STRUCTURE_TYPE24753; t17955.s1.value.structure_type24753 = &t17956; /* x211384 */ t17954.s1.tag = STRUCTURE_TYPE24753; t17954.s1.value.structure_type24753 = &t17955; /* x211385 */ t17953.s0.tag = STRUCTURE_TYPE24753; t17953.s0.value.structure_type24753 = &t17954; /* x211386 */ t17958.s0.tag = EXTERNAL_SYMBOL_TYPE; t17958.s0.value.external_symbol_type = q694; /* x211387 */ t17960.s0.tag = EXTERNAL_SYMBOL_TYPE; t17960.s0.value.external_symbol_type = q1; /* x211388 */ t17962.s0.tag = EXTERNAL_SYMBOL_TYPE; t17962.s0.value.external_symbol_type = q582; /* x211389 */ t17964.s0.tag = EXTERNAL_SYMBOL_TYPE; t17964.s0.value.external_symbol_type = q583; /* x211390 */ t17965.s0.tag = EXTERNAL_SYMBOL_TYPE; t17965.s0.value.external_symbol_type = q627; /* x211391 */ t17965.s1.tag = NULL_TYPE; /* x211392 */ t17964.s1.tag = STRUCTURE_TYPE24753; t17964.s1.value.structure_type24753 = &t17965; /* x211393 */ t17963.s0.tag = STRUCTURE_TYPE24753; t17963.s0.value.structure_type24753 = &t17964; /* x211394 */ t17963.s1.tag = NULL_TYPE; /* x211395 */ t17962.s1.tag = STRUCTURE_TYPE24753; t17962.s1.value.structure_type24753 = &t17963; /* x211396 */ t17961.s0.tag = STRUCTURE_TYPE24753; t17961.s0.value.structure_type24753 = &t17962; /* x211397 */ t17961.s1.tag = NULL_TYPE; /* x211398 */ t17960.s1.tag = STRUCTURE_TYPE24753; t17960.s1.value.structure_type24753 = &t17961; /* x211399 */ t17959.s0.tag = STRUCTURE_TYPE24753; t17959.s0.value.structure_type24753 = &t17960; /* x211400 */ t17959.s1.tag = NULL_TYPE; /* x211401 */ t17958.s1.tag = STRUCTURE_TYPE24753; t17958.s1.value.structure_type24753 = &t17959; /* x211402 */ t17957.s0.tag = STRUCTURE_TYPE24753; t17957.s0.value.structure_type24753 = &t17958; /* x211403 */ t17966.s0.tag = FIXNUM_TYPE; t17966.s0.value.fixnum_type = 1; /* x211404 */ t17967.s0.tag = FIXNUM_TYPE; t17967.s0.value.fixnum_type = 0; /* x211405 */ t17967.s1.tag = NULL_TYPE; /* x211406 */ t17966.s1.tag = STRUCTURE_TYPE24753; t17966.s1.value.structure_type24753 = &t17967; /* x211407 */ t17957.s1.tag = STRUCTURE_TYPE24753; t17957.s1.value.structure_type24753 = &t17966; /* x211408 */ t17953.s1.tag = STRUCTURE_TYPE24753; t17953.s1.value.structure_type24753 = &t17957; /* x211409 */ t17952.s1.tag = STRUCTURE_TYPE24753; t17952.s1.value.structure_type24753 = &t17953; /* x211410 */ t17951.s1.tag = STRUCTURE_TYPE24753; t17951.s1.value.structure_type24753 = &t17952; /* x211411 */ t17950.s0.tag = STRUCTURE_TYPE24753; t17950.s0.value.structure_type24753 = &t17951; /* x211412 */ t17969.s0.tag = EXTERNAL_SYMBOL_TYPE; t17969.s0.value.external_symbol_type = q693; /* x211413 */ t17970.s0.tag = EXTERNAL_SYMBOL_TYPE; t17970.s0.value.external_symbol_type = q540; /* x211414 */ t17972.s0.tag = EXTERNAL_SYMBOL_TYPE; t17972.s0.value.external_symbol_type = q557; /* x211415 */ t17973.s0.tag = EXTERNAL_SYMBOL_TYPE; t17973.s0.value.external_symbol_type = q540; /* x211416 */ t17974.s0.tag = EXTERNAL_SYMBOL_TYPE; t17974.s0.value.external_symbol_type = q545; /* x211417 */ t17974.s1.tag = NULL_TYPE; /* x211418 */ t17973.s1.tag = STRUCTURE_TYPE24753; t17973.s1.value.structure_type24753 = &t17974; /* x211419 */ t17972.s1.tag = STRUCTURE_TYPE24753; t17972.s1.value.structure_type24753 = &t17973; /* x211420 */ t17971.s0.tag = STRUCTURE_TYPE24753; t17971.s0.value.structure_type24753 = &t17972; /* x211421 */ t17976.s0.tag = EXTERNAL_SYMBOL_TYPE; t17976.s0.value.external_symbol_type = q694; /* x211422 */ t17978.s0.tag = EXTERNAL_SYMBOL_TYPE; t17978.s0.value.external_symbol_type = q1; /* x211423 */ t17980.s0.tag = EXTERNAL_SYMBOL_TYPE; t17980.s0.value.external_symbol_type = q582; /* x211424 */ t17982.s0.tag = EXTERNAL_SYMBOL_TYPE; t17982.s0.value.external_symbol_type = q583; /* x211425 */ t17983.s0.tag = EXTERNAL_SYMBOL_TYPE; t17983.s0.value.external_symbol_type = q629; /* x211426 */ t17983.s1.tag = NULL_TYPE; /* x211427 */ t17982.s1.tag = STRUCTURE_TYPE24753; t17982.s1.value.structure_type24753 = &t17983; /* x211428 */ t17981.s0.tag = STRUCTURE_TYPE24753; t17981.s0.value.structure_type24753 = &t17982; /* x211429 */ t17981.s1.tag = NULL_TYPE; /* x211430 */ t17980.s1.tag = STRUCTURE_TYPE24753; t17980.s1.value.structure_type24753 = &t17981; /* x211431 */ t17979.s0.tag = STRUCTURE_TYPE24753; t17979.s0.value.structure_type24753 = &t17980; /* x211432 */ t17979.s1.tag = NULL_TYPE; /* x211433 */ t17978.s1.tag = STRUCTURE_TYPE24753; t17978.s1.value.structure_type24753 = &t17979; /* x211434 */ t17977.s0.tag = STRUCTURE_TYPE24753; t17977.s0.value.structure_type24753 = &t17978; /* x211435 */ t17977.s1.tag = NULL_TYPE; /* x211436 */ t17976.s1.tag = STRUCTURE_TYPE24753; t17976.s1.value.structure_type24753 = &t17977; /* x211437 */ t17975.s0.tag = STRUCTURE_TYPE24753; t17975.s0.value.structure_type24753 = &t17976; /* x211438 */ t17984.s0.tag = FIXNUM_TYPE; t17984.s0.value.fixnum_type = 1; /* x211439 */ t17985.s0.tag = FIXNUM_TYPE; t17985.s0.value.fixnum_type = 0; /* x211440 */ t17985.s1.tag = NULL_TYPE; /* x211441 */ t17984.s1.tag = STRUCTURE_TYPE24753; t17984.s1.value.structure_type24753 = &t17985; /* x211442 */ t17975.s1.tag = STRUCTURE_TYPE24753; t17975.s1.value.structure_type24753 = &t17984; /* x211443 */ t17971.s1.tag = STRUCTURE_TYPE24753; t17971.s1.value.structure_type24753 = &t17975; /* x211444 */ t17970.s1.tag = STRUCTURE_TYPE24753; t17970.s1.value.structure_type24753 = &t17971; /* x211445 */ t17969.s1.tag = STRUCTURE_TYPE24753; t17969.s1.value.structure_type24753 = &t17970; /* x211446 */ t17968.s0.tag = STRUCTURE_TYPE24753; t17968.s0.value.structure_type24753 = &t17969; /* x211447 */ t17987.s0.tag = EXTERNAL_SYMBOL_TYPE; t17987.s0.value.external_symbol_type = q693; /* x211448 */ t17988.s0.tag = EXTERNAL_SYMBOL_TYPE; t17988.s0.value.external_symbol_type = q540; /* x211449 */ t17990.s0.tag = EXTERNAL_SYMBOL_TYPE; t17990.s0.value.external_symbol_type = q557; /* x211450 */ t17991.s0.tag = EXTERNAL_SYMBOL_TYPE; t17991.s0.value.external_symbol_type = q540; /* x211451 */ t17992.s0.tag = EXTERNAL_SYMBOL_TYPE; t17992.s0.value.external_symbol_type = q545; /* x211452 */ t17992.s1.tag = NULL_TYPE; /* x211453 */ t17991.s1.tag = STRUCTURE_TYPE24753; t17991.s1.value.structure_type24753 = &t17992; /* x211454 */ t17990.s1.tag = STRUCTURE_TYPE24753; t17990.s1.value.structure_type24753 = &t17991; /* x211455 */ t17989.s0.tag = STRUCTURE_TYPE24753; t17989.s0.value.structure_type24753 = &t17990; /* x211456 */ t17994.s0.tag = EXTERNAL_SYMBOL_TYPE; t17994.s0.value.external_symbol_type = q694; /* x211457 */ t17996.s0.tag = EXTERNAL_SYMBOL_TYPE; t17996.s0.value.external_symbol_type = q1; /* x211458 */ t17998.s0.tag = EXTERNAL_SYMBOL_TYPE; t17998.s0.value.external_symbol_type = q582; /* x211459 */ t18000.s0.tag = EXTERNAL_SYMBOL_TYPE; t18000.s0.value.external_symbol_type = q583; /* x211460 */ t18001.s0.tag = EXTERNAL_SYMBOL_TYPE; t18001.s0.value.external_symbol_type = q631; /* x211461 */ t18001.s1.tag = NULL_TYPE; /* x211462 */ t18000.s1.tag = STRUCTURE_TYPE24753; t18000.s1.value.structure_type24753 = &t18001; /* x211463 */ t17999.s0.tag = STRUCTURE_TYPE24753; t17999.s0.value.structure_type24753 = &t18000; /* x211464 */ t17999.s1.tag = NULL_TYPE; /* x211465 */ t17998.s1.tag = STRUCTURE_TYPE24753; t17998.s1.value.structure_type24753 = &t17999; /* x211466 */ t17997.s0.tag = STRUCTURE_TYPE24753; t17997.s0.value.structure_type24753 = &t17998; /* x211467 */ t17997.s1.tag = NULL_TYPE; /* x211468 */ t17996.s1.tag = STRUCTURE_TYPE24753; t17996.s1.value.structure_type24753 = &t17997; /* x211469 */ t17995.s0.tag = STRUCTURE_TYPE24753; t17995.s0.value.structure_type24753 = &t17996; /* x211470 */ t17995.s1.tag = NULL_TYPE; /* x211471 */ t17994.s1.tag = STRUCTURE_TYPE24753; t17994.s1.value.structure_type24753 = &t17995; /* x211472 */ t17993.s0.tag = STRUCTURE_TYPE24753; t17993.s0.value.structure_type24753 = &t17994; /* x211473 */ t18002.s0.tag = FIXNUM_TYPE; t18002.s0.value.fixnum_type = 1; /* x211474 */ t18003.s0.tag = FIXNUM_TYPE; t18003.s0.value.fixnum_type = 0; /* x211475 */ t18003.s1.tag = NULL_TYPE; /* x211476 */ t18002.s1.tag = STRUCTURE_TYPE24753; t18002.s1.value.structure_type24753 = &t18003; /* x211477 */ t17993.s1.tag = STRUCTURE_TYPE24753; t17993.s1.value.structure_type24753 = &t18002; /* x211478 */ t17989.s1.tag = STRUCTURE_TYPE24753; t17989.s1.value.structure_type24753 = &t17993; /* x211479 */ t17988.s1.tag = STRUCTURE_TYPE24753; t17988.s1.value.structure_type24753 = &t17989; /* x211480 */ t17987.s1.tag = STRUCTURE_TYPE24753; t17987.s1.value.structure_type24753 = &t17988; /* x211481 */ t17986.s0.tag = STRUCTURE_TYPE24753; t17986.s0.value.structure_type24753 = &t17987; /* x211482 */ t18005.s0.tag = EXTERNAL_SYMBOL_TYPE; t18005.s0.value.external_symbol_type = q693; /* x211483 */ t18006.s0.tag = EXTERNAL_SYMBOL_TYPE; t18006.s0.value.external_symbol_type = q540; /* x211484 */ t18008.s0.tag = EXTERNAL_SYMBOL_TYPE; t18008.s0.value.external_symbol_type = q557; /* x211485 */ t18009.s0.tag = EXTERNAL_SYMBOL_TYPE; t18009.s0.value.external_symbol_type = q540; /* x211486 */ t18010.s0.tag = EXTERNAL_SYMBOL_TYPE; t18010.s0.value.external_symbol_type = q545; /* x211487 */ t18010.s1.tag = NULL_TYPE; /* x211488 */ t18009.s1.tag = STRUCTURE_TYPE24753; t18009.s1.value.structure_type24753 = &t18010; /* x211489 */ t18008.s1.tag = STRUCTURE_TYPE24753; t18008.s1.value.structure_type24753 = &t18009; /* x211490 */ t18007.s0.tag = STRUCTURE_TYPE24753; t18007.s0.value.structure_type24753 = &t18008; /* x211491 */ t18012.s0.tag = EXTERNAL_SYMBOL_TYPE; t18012.s0.value.external_symbol_type = q694; /* x211492 */ t18014.s0.tag = EXTERNAL_SYMBOL_TYPE; t18014.s0.value.external_symbol_type = q1; /* x211493 */ t18016.s0.tag = EXTERNAL_SYMBOL_TYPE; t18016.s0.value.external_symbol_type = q582; /* x211494 */ t18018.s0.tag = EXTERNAL_SYMBOL_TYPE; t18018.s0.value.external_symbol_type = q583; /* x211495 */ t18019.s0.tag = EXTERNAL_SYMBOL_TYPE; t18019.s0.value.external_symbol_type = q633; /* x211496 */ t18019.s1.tag = NULL_TYPE; /* x211497 */ t18018.s1.tag = STRUCTURE_TYPE24753; t18018.s1.value.structure_type24753 = &t18019; /* x211498 */ t18017.s0.tag = STRUCTURE_TYPE24753; t18017.s0.value.structure_type24753 = &t18018; /* x211499 */ t18017.s1.tag = NULL_TYPE; /* x211500 */ t18016.s1.tag = STRUCTURE_TYPE24753; t18016.s1.value.structure_type24753 = &t18017; /* x211501 */ t18015.s0.tag = STRUCTURE_TYPE24753; t18015.s0.value.structure_type24753 = &t18016; /* x211502 */ t18015.s1.tag = NULL_TYPE; /* x211503 */ t18014.s1.tag = STRUCTURE_TYPE24753; t18014.s1.value.structure_type24753 = &t18015; /* x211504 */ t18013.s0.tag = STRUCTURE_TYPE24753; t18013.s0.value.structure_type24753 = &t18014; /* x211505 */ t18013.s1.tag = NULL_TYPE; /* x211506 */ t18012.s1.tag = STRUCTURE_TYPE24753; t18012.s1.value.structure_type24753 = &t18013; /* x211507 */ t18011.s0.tag = STRUCTURE_TYPE24753; t18011.s0.value.structure_type24753 = &t18012; /* x211508 */ t18020.s0.tag = FIXNUM_TYPE; t18020.s0.value.fixnum_type = 1; /* x211509 */ t18021.s0.tag = FIXNUM_TYPE; t18021.s0.value.fixnum_type = 0; /* x211510 */ t18021.s1.tag = NULL_TYPE; /* x211511 */ t18020.s1.tag = STRUCTURE_TYPE24753; t18020.s1.value.structure_type24753 = &t18021; /* x211512 */ t18011.s1.tag = STRUCTURE_TYPE24753; t18011.s1.value.structure_type24753 = &t18020; /* x211513 */ t18007.s1.tag = STRUCTURE_TYPE24753; t18007.s1.value.structure_type24753 = &t18011; /* x211514 */ t18006.s1.tag = STRUCTURE_TYPE24753; t18006.s1.value.structure_type24753 = &t18007; /* x211515 */ t18005.s1.tag = STRUCTURE_TYPE24753; t18005.s1.value.structure_type24753 = &t18006; /* x211516 */ t18004.s0.tag = STRUCTURE_TYPE24753; t18004.s0.value.structure_type24753 = &t18005; /* x211517 */ t18023.s0.tag = EXTERNAL_SYMBOL_TYPE; t18023.s0.value.external_symbol_type = q693; /* x211518 */ t18024.s0.tag = EXTERNAL_SYMBOL_TYPE; t18024.s0.value.external_symbol_type = q540; /* x211519 */ t18026.s0.tag = EXTERNAL_SYMBOL_TYPE; t18026.s0.value.external_symbol_type = q557; /* x211520 */ t18027.s0.tag = EXTERNAL_SYMBOL_TYPE; t18027.s0.value.external_symbol_type = q540; /* x211521 */ t18028.s0.tag = EXTERNAL_SYMBOL_TYPE; t18028.s0.value.external_symbol_type = q545; /* x211522 */ t18028.s1.tag = NULL_TYPE; /* x211523 */ t18027.s1.tag = STRUCTURE_TYPE24753; t18027.s1.value.structure_type24753 = &t18028; /* x211524 */ t18026.s1.tag = STRUCTURE_TYPE24753; t18026.s1.value.structure_type24753 = &t18027; /* x211525 */ t18025.s0.tag = STRUCTURE_TYPE24753; t18025.s0.value.structure_type24753 = &t18026; /* x211526 */ t18030.s0.tag = EXTERNAL_SYMBOL_TYPE; t18030.s0.value.external_symbol_type = q694; /* x211527 */ t18032.s0.tag = EXTERNAL_SYMBOL_TYPE; t18032.s0.value.external_symbol_type = q1; /* x211528 */ t18034.s0.tag = EXTERNAL_SYMBOL_TYPE; t18034.s0.value.external_symbol_type = q582; /* x211529 */ t18036.s0.tag = EXTERNAL_SYMBOL_TYPE; t18036.s0.value.external_symbol_type = q583; /* x211530 */ t18037.s0.tag = EXTERNAL_SYMBOL_TYPE; t18037.s0.value.external_symbol_type = q635; /* x211531 */ t18037.s1.tag = NULL_TYPE; /* x211532 */ t18036.s1.tag = STRUCTURE_TYPE24753; t18036.s1.value.structure_type24753 = &t18037; /* x211533 */ t18035.s0.tag = STRUCTURE_TYPE24753; t18035.s0.value.structure_type24753 = &t18036; /* x211534 */ t18035.s1.tag = NULL_TYPE; /* x211535 */ t18034.s1.tag = STRUCTURE_TYPE24753; t18034.s1.value.structure_type24753 = &t18035; /* x211536 */ t18033.s0.tag = STRUCTURE_TYPE24753; t18033.s0.value.structure_type24753 = &t18034; /* x211537 */ t18033.s1.tag = NULL_TYPE; /* x211538 */ t18032.s1.tag = STRUCTURE_TYPE24753; t18032.s1.value.structure_type24753 = &t18033; /* x211539 */ t18031.s0.tag = STRUCTURE_TYPE24753; t18031.s0.value.structure_type24753 = &t18032; /* x211540 */ t18031.s1.tag = NULL_TYPE; /* x211541 */ t18030.s1.tag = STRUCTURE_TYPE24753; t18030.s1.value.structure_type24753 = &t18031; /* x211542 */ t18029.s0.tag = STRUCTURE_TYPE24753; t18029.s0.value.structure_type24753 = &t18030; /* x211543 */ t18038.s0.tag = FIXNUM_TYPE; t18038.s0.value.fixnum_type = 1; /* x211544 */ t18039.s0.tag = FIXNUM_TYPE; t18039.s0.value.fixnum_type = 0; /* x211545 */ t18039.s1.tag = NULL_TYPE; /* x211546 */ t18038.s1.tag = STRUCTURE_TYPE24753; t18038.s1.value.structure_type24753 = &t18039; /* x211547 */ t18029.s1.tag = STRUCTURE_TYPE24753; t18029.s1.value.structure_type24753 = &t18038; /* x211548 */ t18025.s1.tag = STRUCTURE_TYPE24753; t18025.s1.value.structure_type24753 = &t18029; /* x211549 */ t18024.s1.tag = STRUCTURE_TYPE24753; t18024.s1.value.structure_type24753 = &t18025; /* x211550 */ t18023.s1.tag = STRUCTURE_TYPE24753; t18023.s1.value.structure_type24753 = &t18024; /* x211551 */ t18022.s0.tag = STRUCTURE_TYPE24753; t18022.s0.value.structure_type24753 = &t18023; /* x211552 */ t18041.s0.tag = EXTERNAL_SYMBOL_TYPE; t18041.s0.value.external_symbol_type = q693; /* x211553 */ t18042.s0.tag = EXTERNAL_SYMBOL_TYPE; t18042.s0.value.external_symbol_type = q540; /* x211554 */ t18044.s0.tag = EXTERNAL_SYMBOL_TYPE; t18044.s0.value.external_symbol_type = q557; /* x211555 */ t18045.s0.tag = EXTERNAL_SYMBOL_TYPE; t18045.s0.value.external_symbol_type = q540; /* x211556 */ t18046.s0.tag = EXTERNAL_SYMBOL_TYPE; t18046.s0.value.external_symbol_type = q545; /* x211557 */ t18046.s1.tag = NULL_TYPE; /* x211558 */ t18045.s1.tag = STRUCTURE_TYPE24753; t18045.s1.value.structure_type24753 = &t18046; /* x211559 */ t18044.s1.tag = STRUCTURE_TYPE24753; t18044.s1.value.structure_type24753 = &t18045; /* x211560 */ t18043.s0.tag = STRUCTURE_TYPE24753; t18043.s0.value.structure_type24753 = &t18044; /* x211561 */ t18048.s0.tag = EXTERNAL_SYMBOL_TYPE; t18048.s0.value.external_symbol_type = q694; /* x211562 */ t18050.s0.tag = EXTERNAL_SYMBOL_TYPE; t18050.s0.value.external_symbol_type = q1; /* x211563 */ t18052.s0.tag = EXTERNAL_SYMBOL_TYPE; t18052.s0.value.external_symbol_type = q582; /* x211564 */ t18054.s0.tag = EXTERNAL_SYMBOL_TYPE; t18054.s0.value.external_symbol_type = q583; /* x211565 */ t18055.s0.tag = EXTERNAL_SYMBOL_TYPE; t18055.s0.value.external_symbol_type = q637; /* x211566 */ t18055.s1.tag = NULL_TYPE; /* x211567 */ t18054.s1.tag = STRUCTURE_TYPE24753; t18054.s1.value.structure_type24753 = &t18055; /* x211568 */ t18053.s0.tag = STRUCTURE_TYPE24753; t18053.s0.value.structure_type24753 = &t18054; /* x211569 */ t18053.s1.tag = NULL_TYPE; /* x211570 */ t18052.s1.tag = STRUCTURE_TYPE24753; t18052.s1.value.structure_type24753 = &t18053; /* x211571 */ t18051.s0.tag = STRUCTURE_TYPE24753; t18051.s0.value.structure_type24753 = &t18052; /* x211572 */ t18051.s1.tag = NULL_TYPE; /* x211573 */ t18050.s1.tag = STRUCTURE_TYPE24753; t18050.s1.value.structure_type24753 = &t18051; /* x211574 */ t18049.s0.tag = STRUCTURE_TYPE24753; t18049.s0.value.structure_type24753 = &t18050; /* x211575 */ t18049.s1.tag = NULL_TYPE; /* x211576 */ t18048.s1.tag = STRUCTURE_TYPE24753; t18048.s1.value.structure_type24753 = &t18049; /* x211577 */ t18047.s0.tag = STRUCTURE_TYPE24753; t18047.s0.value.structure_type24753 = &t18048; /* x211578 */ t18056.s0.tag = FIXNUM_TYPE; t18056.s0.value.fixnum_type = 1; /* x211579 */ t18057.s0.tag = FIXNUM_TYPE; t18057.s0.value.fixnum_type = 0; /* x211580 */ t18057.s1.tag = NULL_TYPE; /* x211581 */ t18056.s1.tag = STRUCTURE_TYPE24753; t18056.s1.value.structure_type24753 = &t18057; /* x211582 */ t18047.s1.tag = STRUCTURE_TYPE24753; t18047.s1.value.structure_type24753 = &t18056; /* x211583 */ t18043.s1.tag = STRUCTURE_TYPE24753; t18043.s1.value.structure_type24753 = &t18047; /* x211584 */ t18042.s1.tag = STRUCTURE_TYPE24753; t18042.s1.value.structure_type24753 = &t18043; /* x211585 */ t18041.s1.tag = STRUCTURE_TYPE24753; t18041.s1.value.structure_type24753 = &t18042; /* x211586 */ t18040.s0.tag = STRUCTURE_TYPE24753; t18040.s0.value.structure_type24753 = &t18041; /* x211587 */ t18059.s0.tag = EXTERNAL_SYMBOL_TYPE; t18059.s0.value.external_symbol_type = q693; /* x211588 */ t18060.s0.tag = EXTERNAL_SYMBOL_TYPE; t18060.s0.value.external_symbol_type = q540; /* x211589 */ t18062.s0.tag = EXTERNAL_SYMBOL_TYPE; t18062.s0.value.external_symbol_type = q557; /* x211590 */ t18063.s0.tag = EXTERNAL_SYMBOL_TYPE; t18063.s0.value.external_symbol_type = q540; /* x211591 */ t18064.s0.tag = EXTERNAL_SYMBOL_TYPE; t18064.s0.value.external_symbol_type = q545; /* x211592 */ t18064.s1.tag = NULL_TYPE; /* x211593 */ t18063.s1.tag = STRUCTURE_TYPE24753; t18063.s1.value.structure_type24753 = &t18064; /* x211594 */ t18062.s1.tag = STRUCTURE_TYPE24753; t18062.s1.value.structure_type24753 = &t18063; /* x211595 */ t18061.s0.tag = STRUCTURE_TYPE24753; t18061.s0.value.structure_type24753 = &t18062; /* x211596 */ t18066.s0.tag = EXTERNAL_SYMBOL_TYPE; t18066.s0.value.external_symbol_type = q694; /* x211597 */ t18068.s0.tag = EXTERNAL_SYMBOL_TYPE; t18068.s0.value.external_symbol_type = q1; /* x211598 */ t18070.s0.tag = EXTERNAL_SYMBOL_TYPE; t18070.s0.value.external_symbol_type = q582; /* x211599 */ t18072.s0.tag = EXTERNAL_SYMBOL_TYPE; t18072.s0.value.external_symbol_type = q583; /* x211600 */ t18073.s0.tag = EXTERNAL_SYMBOL_TYPE; t18073.s0.value.external_symbol_type = q639; /* x211601 */ t18073.s1.tag = NULL_TYPE; /* x211602 */ t18072.s1.tag = STRUCTURE_TYPE24753; t18072.s1.value.structure_type24753 = &t18073; /* x211603 */ t18071.s0.tag = STRUCTURE_TYPE24753; t18071.s0.value.structure_type24753 = &t18072; /* x211604 */ t18071.s1.tag = NULL_TYPE; /* x211605 */ t18070.s1.tag = STRUCTURE_TYPE24753; t18070.s1.value.structure_type24753 = &t18071; /* x211606 */ t18069.s0.tag = STRUCTURE_TYPE24753; t18069.s0.value.structure_type24753 = &t18070; /* x211607 */ t18069.s1.tag = NULL_TYPE; /* x211608 */ t18068.s1.tag = STRUCTURE_TYPE24753; t18068.s1.value.structure_type24753 = &t18069; /* x211609 */ t18067.s0.tag = STRUCTURE_TYPE24753; t18067.s0.value.structure_type24753 = &t18068; /* x211610 */ t18067.s1.tag = NULL_TYPE; /* x211611 */ t18066.s1.tag = STRUCTURE_TYPE24753; t18066.s1.value.structure_type24753 = &t18067; /* x211612 */ t18065.s0.tag = STRUCTURE_TYPE24753; t18065.s0.value.structure_type24753 = &t18066; /* x211613 */ t18074.s0.tag = FIXNUM_TYPE; t18074.s0.value.fixnum_type = 1; /* x211614 */ t18075.s0.tag = FIXNUM_TYPE; t18075.s0.value.fixnum_type = 0; /* x211615 */ t18075.s1.tag = NULL_TYPE; /* x211616 */ t18074.s1.tag = STRUCTURE_TYPE24753; t18074.s1.value.structure_type24753 = &t18075; /* x211617 */ t18065.s1.tag = STRUCTURE_TYPE24753; t18065.s1.value.structure_type24753 = &t18074; /* x211618 */ t18061.s1.tag = STRUCTURE_TYPE24753; t18061.s1.value.structure_type24753 = &t18065; /* x211619 */ t18060.s1.tag = STRUCTURE_TYPE24753; t18060.s1.value.structure_type24753 = &t18061; /* x211620 */ t18059.s1.tag = STRUCTURE_TYPE24753; t18059.s1.value.structure_type24753 = &t18060; /* x211621 */ t18058.s0.tag = STRUCTURE_TYPE24753; t18058.s0.value.structure_type24753 = &t18059; /* x211622 */ t18058.s1.tag = NULL_TYPE; /* x211623 */ t18040.s1.tag = STRUCTURE_TYPE24753; t18040.s1.value.structure_type24753 = &t18058; /* x211624 */ t18022.s1.tag = STRUCTURE_TYPE24753; t18022.s1.value.structure_type24753 = &t18040; /* x211625 */ t18004.s1.tag = STRUCTURE_TYPE24753; t18004.s1.value.structure_type24753 = &t18022; /* x211626 */ t17986.s1.tag = STRUCTURE_TYPE24753; t17986.s1.value.structure_type24753 = &t18004; /* x211627 */ t17968.s1.tag = STRUCTURE_TYPE24753; t17968.s1.value.structure_type24753 = &t17986; /* x211628 */ t17950.s1.tag = STRUCTURE_TYPE24753; t17950.s1.value.structure_type24753 = &t17968; /* x211629 */ t17932.s1.tag = STRUCTURE_TYPE24753; t17932.s1.value.structure_type24753 = &t17950; /* x211630 */ t17914.s1.tag = STRUCTURE_TYPE24753; t17914.s1.value.structure_type24753 = &t17932; /* x211631 */ t17896.s1.tag = STRUCTURE_TYPE24753; t17896.s1.value.structure_type24753 = &t17914; /* x211632 */ t17878.s1.tag = STRUCTURE_TYPE24753; t17878.s1.value.structure_type24753 = &t17896; /* x211633 */ t17860.s1.tag = STRUCTURE_TYPE24753; t17860.s1.value.structure_type24753 = &t17878; /* x211634 */ t17842.s1.tag = STRUCTURE_TYPE24753; t17842.s1.value.structure_type24753 = &t17860; /* x211635 */ t17838.s1.tag = STRUCTURE_TYPE24753; t17838.s1.value.structure_type24753 = &t17842; /* x211636 */ t17834.s1.tag = STRUCTURE_TYPE24753; t17834.s1.value.structure_type24753 = &t17838; /* x211637 */ t17830.s1.tag = STRUCTURE_TYPE24753; t17830.s1.value.structure_type24753 = &t17834; /* x211638 */ t17826.s1.tag = STRUCTURE_TYPE24753; t17826.s1.value.structure_type24753 = &t17830; /* x211639 */ t17822.s1.tag = STRUCTURE_TYPE24753; t17822.s1.value.structure_type24753 = &t17826; /* x211640 */ t17818.s1.tag = STRUCTURE_TYPE24753; t17818.s1.value.structure_type24753 = &t17822; /* x211641 */ t17814.s1.tag = STRUCTURE_TYPE24753; t17814.s1.value.structure_type24753 = &t17818; /* x211642 */ t17810.s1.tag = STRUCTURE_TYPE24753; t17810.s1.value.structure_type24753 = &t17814; /* x211643 */ t17806.s1.tag = STRUCTURE_TYPE24753; t17806.s1.value.structure_type24753 = &t17810; /* x211644 */ t17802.s1.tag = STRUCTURE_TYPE24753; t17802.s1.value.structure_type24753 = &t17806; /* x211645 */ t17798.s1.tag = STRUCTURE_TYPE24753; t17798.s1.value.structure_type24753 = &t17802; /* x211646 */ t17794.s1.tag = STRUCTURE_TYPE24753; t17794.s1.value.structure_type24753 = &t17798; /* x211647 */ t17793.s1.tag = STRUCTURE_TYPE24753; t17793.s1.value.structure_type24753 = &t17794; /* x211648 */ t17792.s1.tag = STRUCTURE_TYPE24753; t17792.s1.value.structure_type24753 = &t17793; /* x211649 */ t17791.s0.tag = STRUCTURE_TYPE24753; t17791.s0.value.structure_type24753 = &t17792; /* x211650 */ t18077.s0.tag = EXTERNAL_SYMBOL_TYPE; t18077.s0.value.external_symbol_type = q695; /* x211651 */ t18078.s0.tag = EXTERNAL_SYMBOL_TYPE; t18078.s0.value.external_symbol_type = q540; /* x211652 */ t18080.s0.tag = EXTERNAL_SYMBOL_TYPE; t18080.s0.value.external_symbol_type = q616; /* x211653 */ t18081.s0.tag = EXTERNAL_SYMBOL_TYPE; t18081.s0.value.external_symbol_type = q562; /* x211654 */ t18081.s1.tag = NULL_TYPE; /* x211655 */ t18080.s1.tag = STRUCTURE_TYPE24753; t18080.s1.value.structure_type24753 = &t18081; /* x211656 */ t18079.s0.tag = STRUCTURE_TYPE24753; t18079.s0.value.structure_type24753 = &t18080; /* x211657 */ t18079.s1.tag = NULL_TYPE; /* x211658 */ t18078.s1.tag = STRUCTURE_TYPE24753; t18078.s1.value.structure_type24753 = &t18079; /* x211659 */ t18077.s1.tag = STRUCTURE_TYPE24753; t18077.s1.value.structure_type24753 = &t18078; /* x211660 */ t18076.s0.tag = STRUCTURE_TYPE24753; t18076.s0.value.structure_type24753 = &t18077; /* x211661 */ t18083.s0.tag = EXTERNAL_SYMBOL_TYPE; t18083.s0.value.external_symbol_type = q695; /* x211662 */ t18084.s0.tag = EXTERNAL_SYMBOL_TYPE; t18084.s0.value.external_symbol_type = q540; /* x211663 */ t18086.s0.tag = EXTERNAL_SYMBOL_TYPE; t18086.s0.value.external_symbol_type = q616; /* x211664 */ t18087.s0.tag = EXTERNAL_SYMBOL_TYPE; t18087.s0.value.external_symbol_type = q565; /* x211665 */ t18087.s1.tag = NULL_TYPE; /* x211666 */ t18086.s1.tag = STRUCTURE_TYPE24753; t18086.s1.value.structure_type24753 = &t18087; /* x211667 */ t18085.s0.tag = STRUCTURE_TYPE24753; t18085.s0.value.structure_type24753 = &t18086; /* x211668 */ t18085.s1.tag = NULL_TYPE; /* x211669 */ t18084.s1.tag = STRUCTURE_TYPE24753; t18084.s1.value.structure_type24753 = &t18085; /* x211670 */ t18083.s1.tag = STRUCTURE_TYPE24753; t18083.s1.value.structure_type24753 = &t18084; /* x211671 */ t18082.s0.tag = STRUCTURE_TYPE24753; t18082.s0.value.structure_type24753 = &t18083; /* x211672 */ t18089.s0.tag = EXTERNAL_SYMBOL_TYPE; t18089.s0.value.external_symbol_type = q696; /* x211673 */ t18090.s0.tag = EXTERNAL_SYMBOL_TYPE; t18090.s0.value.external_symbol_type = q540; /* x211674 */ t18091.s0.tag = EXTERNAL_SYMBOL_TYPE; t18091.s0.value.external_symbol_type = q578; /* x211675 */ t18091.s1.tag = NULL_TYPE; /* x211676 */ t18090.s1.tag = STRUCTURE_TYPE24753; t18090.s1.value.structure_type24753 = &t18091; /* x211677 */ t18089.s1.tag = STRUCTURE_TYPE24753; t18089.s1.value.structure_type24753 = &t18090; /* x211678 */ t18088.s0.tag = STRUCTURE_TYPE24753; t18088.s0.value.structure_type24753 = &t18089; /* x211679 */ t18093.s0.tag = EXTERNAL_SYMBOL_TYPE; t18093.s0.value.external_symbol_type = q697; /* x211680 */ t18094.s0.tag = EXTERNAL_SYMBOL_TYPE; t18094.s0.value.external_symbol_type = q540; /* x211681 */ t18094.s1.tag = NULL_TYPE; /* x211682 */ t18093.s1.tag = STRUCTURE_TYPE24753; t18093.s1.value.structure_type24753 = &t18094; /* x211683 */ t18092.s0.tag = STRUCTURE_TYPE24753; t18092.s0.value.structure_type24753 = &t18093; /* x211684 */ t18096.s0.tag = EXTERNAL_SYMBOL_TYPE; t18096.s0.value.external_symbol_type = q42; /* x211685 */ t18097.s0.tag = EXTERNAL_SYMBOL_TYPE; t18097.s0.value.external_symbol_type = q540; /* x211686 */ t18098.s0.tag = FALSE_TYPE; /* x211687 */ t18098.s1.tag = NULL_TYPE; /* x211688 */ t18097.s1.tag = STRUCTURE_TYPE24753; t18097.s1.value.structure_type24753 = &t18098; /* x211689 */ t18096.s1.tag = STRUCTURE_TYPE24753; t18096.s1.value.structure_type24753 = &t18097; /* x211690 */ t18095.s0.tag = STRUCTURE_TYPE24753; t18095.s0.value.structure_type24753 = &t18096; /* x211691 */ t18095.s1.tag = NULL_TYPE; /* x211692 */ t18092.s1.tag = STRUCTURE_TYPE24753; t18092.s1.value.structure_type24753 = &t18095; /* x211693 */ t18088.s1.tag = STRUCTURE_TYPE24753; t18088.s1.value.structure_type24753 = &t18092; /* x211694 */ t18082.s1.tag = STRUCTURE_TYPE24753; t18082.s1.value.structure_type24753 = &t18088; /* x211695 */ t18076.s1.tag = STRUCTURE_TYPE24753; t18076.s1.value.structure_type24753 = &t18082; /* x211696 */ t17791.s1.tag = STRUCTURE_TYPE24753; t17791.s1.value.structure_type24753 = &t18076; /* x211697 */ t17787.s1.tag = STRUCTURE_TYPE24753; t17787.s1.value.structure_type24753 = &t17791; /* x211698 */ t17783.s1.tag = STRUCTURE_TYPE24753; t17783.s1.value.structure_type24753 = &t17787; /* x211699 */ t17779.s1.tag = STRUCTURE_TYPE24753; t17779.s1.value.structure_type24753 = &t17783; /* x211700 */ t17775.s1.tag = STRUCTURE_TYPE24753; t17775.s1.value.structure_type24753 = &t17779; /* x211701 */ t17771.s1.tag = STRUCTURE_TYPE24753; t17771.s1.value.structure_type24753 = &t17775; /* x211702 */ t17767.s1.tag = STRUCTURE_TYPE24753; t17767.s1.value.structure_type24753 = &t17771; /* x211703 */ t17763.s1.tag = STRUCTURE_TYPE24753; t17763.s1.value.structure_type24753 = &t17767; /* x211704 */ t17759.s1.tag = STRUCTURE_TYPE24753; t17759.s1.value.structure_type24753 = &t17763; /* x211705 */ t17755.s1.tag = STRUCTURE_TYPE24753; t17755.s1.value.structure_type24753 = &t17759; /* x211706 */ t17751.s1.tag = STRUCTURE_TYPE24753; t17751.s1.value.structure_type24753 = &t17755; /* x211707 */ t17747.s1.tag = STRUCTURE_TYPE24753; t17747.s1.value.structure_type24753 = &t17751; /* x211708 */ t17746.s1.tag = STRUCTURE_TYPE24753; t17746.s1.value.structure_type24753 = &t17747; /* x211709 */ t17745.s1.tag = STRUCTURE_TYPE24753; t17745.s1.value.structure_type24753 = &t17746; /* x211710 */ t17744.s0.tag = STRUCTURE_TYPE24753; t17744.s0.value.structure_type24753 = &t17745; /* x211711 */ t18099.s0.tag = TRUE_TYPE; /* x211712 */ t18099.s1.tag = NULL_TYPE; /* x211713 */ t17744.s1.tag = STRUCTURE_TYPE24753; t17744.s1.value.structure_type24753 = &t18099; /* x211714 */ t17742.s1.tag = STRUCTURE_TYPE24753; t17742.s1.value.structure_type24753 = &t17744; /* x211715 */ t17735.s1.tag = STRUCTURE_TYPE24753; t17735.s1.value.structure_type24753 = &t17742; /* x211716 */ t17734.s1.tag = STRUCTURE_TYPE24753; t17734.s1.value.structure_type24753 = &t17735; /* x211717 */ t17733.s1.tag = STRUCTURE_TYPE24753; t17733.s1.value.structure_type24753 = &t17734; /* x211718 */ t17732.s0.tag = STRUCTURE_TYPE24753; t17732.s0.value.structure_type24753 = &t17733; /* x211719 */ t17732.s1.tag = NULL_TYPE; /* x211720 */ t17731.s1.tag = STRUCTURE_TYPE24753; t17731.s1.value.structure_type24753 = &t17732; /* x211721 */ t17730.s1.tag = STRUCTURE_TYPE24753; t17730.s1.value.structure_type24753 = &t17731; /* x211722 */ t17729.s0.tag = STRUCTURE_TYPE24753; t17729.s0.value.structure_type24753 = &t17730; /* x211723 */ t18101.s0.tag = EXTERNAL_SYMBOL_TYPE; t18101.s0.value.external_symbol_type = q698; /* x211724 */ t18102.s0.tag = EXTERNAL_SYMBOL_TYPE; t18102.s0.value.external_symbol_type = q540; /* x211725 */ t18103.s0.tag = EXTERNAL_SYMBOL_TYPE; t18103.s0.value.external_symbol_type = q578; /* x211726 */ t18103.s1.tag = NULL_TYPE; /* x211727 */ t18102.s1.tag = STRUCTURE_TYPE24753; t18102.s1.value.structure_type24753 = &t18103; /* x211728 */ t18101.s1.tag = STRUCTURE_TYPE24753; t18101.s1.value.structure_type24753 = &t18102; /* x211729 */ t18100.s0.tag = STRUCTURE_TYPE24753; t18100.s0.value.structure_type24753 = &t18101; /* x211730 */ t18105.s0.tag = EXTERNAL_SYMBOL_TYPE; t18105.s0.value.external_symbol_type = q699; /* x211731 */ t18106.s0.tag = EXTERNAL_SYMBOL_TYPE; t18106.s0.value.external_symbol_type = q540; /* x211732 */ t18107.s0.tag = EXTERNAL_SYMBOL_TYPE; t18107.s0.value.external_symbol_type = q578; /* x211733 */ t18107.s1.tag = NULL_TYPE; /* x211734 */ t18106.s1.tag = STRUCTURE_TYPE24753; t18106.s1.value.structure_type24753 = &t18107; /* x211735 */ t18105.s1.tag = STRUCTURE_TYPE24753; t18105.s1.value.structure_type24753 = &t18106; /* x211736 */ t18104.s0.tag = STRUCTURE_TYPE24753; t18104.s0.value.structure_type24753 = &t18105; /* x211737 */ t18109.s0.tag = EXTERNAL_SYMBOL_TYPE; t18109.s0.value.external_symbol_type = q700; /* x211738 */ t18109.s1.tag = NULL_TYPE; /* x211739 */ t18108.s0.tag = STRUCTURE_TYPE24753; t18108.s0.value.structure_type24753 = &t18109; /* x211740 */ t18111.s0.tag = EXTERNAL_SYMBOL_TYPE; t18111.s0.value.external_symbol_type = q691; /* x211741 */ t18111.s1.tag = NULL_TYPE; /* x211742 */ t18110.s0.tag = STRUCTURE_TYPE24753; t18110.s0.value.structure_type24753 = &t18111; /* x211743 */ t18110.s1.tag = NULL_TYPE; /* x211744 */ t18108.s1.tag = STRUCTURE_TYPE24753; t18108.s1.value.structure_type24753 = &t18110; /* x211745 */ t18104.s1.tag = STRUCTURE_TYPE24753; t18104.s1.value.structure_type24753 = &t18108; /* x211746 */ t18100.s1.tag = STRUCTURE_TYPE24753; t18100.s1.value.structure_type24753 = &t18104; /* x211747 */ t17729.s1.tag = STRUCTURE_TYPE24753; t17729.s1.value.structure_type24753 = &t18100; /* x211748 */ t17719.s1.tag = STRUCTURE_TYPE24753; t17719.s1.value.structure_type24753 = &t17729; /* x211749 */ t17709.s1.tag = STRUCTURE_TYPE24753; t17709.s1.value.structure_type24753 = &t17719; /* x211750 */ t17702.s1.tag = STRUCTURE_TYPE24753; t17702.s1.value.structure_type24753 = &t17709; /* x211751 */ t17695.s1.tag = STRUCTURE_TYPE24753; t17695.s1.value.structure_type24753 = &t17702; /* x211752 */ t17693.s1.tag = STRUCTURE_TYPE24753; t17693.s1.value.structure_type24753 = &t17695; /* x211753 */ t17638.s1.tag = STRUCTURE_TYPE24753; t17638.s1.value.structure_type24753 = &t17693; /* x211754 */ t17618.s1.tag = STRUCTURE_TYPE24753; t17618.s1.value.structure_type24753 = &t17638; /* x211755 */ t17614.s1.tag = STRUCTURE_TYPE24753; t17614.s1.value.structure_type24753 = &t17618; /* x211756 */ t17610.s1.tag = STRUCTURE_TYPE24753; t17610.s1.value.structure_type24753 = &t17614; /* x211757 */ t17606.s1.tag = STRUCTURE_TYPE24753; t17606.s1.value.structure_type24753 = &t17610; /* x211758 */ t17600.s1.tag = STRUCTURE_TYPE24753; t17600.s1.value.structure_type24753 = &t17606; /* x211759 */ t17596.s1.tag = STRUCTURE_TYPE24753; t17596.s1.value.structure_type24753 = &t17600; /* x211760 */ t17592.s1.tag = STRUCTURE_TYPE24753; t17592.s1.value.structure_type24753 = &t17596; /* x211761 */ t17588.s1.tag = STRUCTURE_TYPE24753; t17588.s1.value.structure_type24753 = &t17592; /* x211762 */ t17582.s1.tag = STRUCTURE_TYPE24753; t17582.s1.value.structure_type24753 = &t17588; /* x211763 */ t17575.s1.tag = STRUCTURE_TYPE24753; t17575.s1.value.structure_type24753 = &t17582; /* x211764 */ t17571.s1.tag = STRUCTURE_TYPE24753; t17571.s1.value.structure_type24753 = &t17575; /* x211765 */ t17564.s1.tag = STRUCTURE_TYPE24753; t17564.s1.value.structure_type24753 = &t17571; /* x211766 */ t17557.s1.tag = STRUCTURE_TYPE24753; t17557.s1.value.structure_type24753 = &t17564; /* x211767 */ t17550.s1.tag = STRUCTURE_TYPE24753; t17550.s1.value.structure_type24753 = &t17557; /* x211768 */ t17543.s1.tag = STRUCTURE_TYPE24753; t17543.s1.value.structure_type24753 = &t17550; /* x211769 */ t17536.s1.tag = STRUCTURE_TYPE24753; t17536.s1.value.structure_type24753 = &t17543; /* x211770 */ t17529.s1.tag = STRUCTURE_TYPE24753; t17529.s1.value.structure_type24753 = &t17536; /* x211771 */ t17523.s1.tag = STRUCTURE_TYPE24753; t17523.s1.value.structure_type24753 = &t17529; /* x211772 */ t17516.s1.tag = STRUCTURE_TYPE24753; t17516.s1.value.structure_type24753 = &t17523; /* x211773 */ t17510.s1.tag = STRUCTURE_TYPE24753; t17510.s1.value.structure_type24753 = &t17516; /* x211774 */ t17503.s1.tag = STRUCTURE_TYPE24753; t17503.s1.value.structure_type24753 = &t17510; /* x211775 */ t17499.s1.tag = STRUCTURE_TYPE24753; t17499.s1.value.structure_type24753 = &t17503; /* x211776 */ t17495.s1.tag = STRUCTURE_TYPE24753; t17495.s1.value.structure_type24753 = &t17499; /* x211777 */ t17489.s1.tag = STRUCTURE_TYPE24753; t17489.s1.value.structure_type24753 = &t17495; /* x211778 */ t17481.s1.tag = STRUCTURE_TYPE24753; t17481.s1.value.structure_type24753 = &t17489; /* x211779 */ t17468.s1.tag = STRUCTURE_TYPE24753; t17468.s1.value.structure_type24753 = &t17481; /* x211780 */ t17455.s1.tag = STRUCTURE_TYPE24753; t17455.s1.value.structure_type24753 = &t17468; /* x211781 */ t17445.s1.tag = STRUCTURE_TYPE24753; t17445.s1.value.structure_type24753 = &t17455; /* x211782 */ t16741.s1.tag = STRUCTURE_TYPE24753; t16741.s1.value.structure_type24753 = &t17445; /* x211783 */ t16736.s1.tag = STRUCTURE_TYPE24753; t16736.s1.value.structure_type24753 = &t16741; /* x211784 */ t16728.s1.tag = STRUCTURE_TYPE24753; t16728.s1.value.structure_type24753 = &t16736; /* x211785 */ t16721.s1.tag = STRUCTURE_TYPE24753; t16721.s1.value.structure_type24753 = &t16728; /* x211786 */ t16708.s1.tag = STRUCTURE_TYPE24753; t16708.s1.value.structure_type24753 = &t16721; /* x211787 */ t16695.s1.tag = STRUCTURE_TYPE24753; t16695.s1.value.structure_type24753 = &t16708; /* x211788 */ t16685.s1.tag = STRUCTURE_TYPE24753; t16685.s1.value.structure_type24753 = &t16695; /* x211789 */ t16678.s1.tag = STRUCTURE_TYPE24753; t16678.s1.value.structure_type24753 = &t16685; /* x211790 */ t16665.s1.tag = STRUCTURE_TYPE24753; t16665.s1.value.structure_type24753 = &t16678; /* x211791 */ t16652.s1.tag = STRUCTURE_TYPE24753; t16652.s1.value.structure_type24753 = &t16665; /* x211792 */ t16642.s1.tag = STRUCTURE_TYPE24753; t16642.s1.value.structure_type24753 = &t16652; /* x211793 */ t16635.s1.tag = STRUCTURE_TYPE24753; t16635.s1.value.structure_type24753 = &t16642; /* x211794 */ t16622.s1.tag = STRUCTURE_TYPE24753; t16622.s1.value.structure_type24753 = &t16635; /* x211795 */ t16609.s1.tag = STRUCTURE_TYPE24753; t16609.s1.value.structure_type24753 = &t16622; /* x211796 */ t16599.s1.tag = STRUCTURE_TYPE24753; t16599.s1.value.structure_type24753 = &t16609; /* x211797 */ t16594.s1.tag = STRUCTURE_TYPE24753; t16594.s1.value.structure_type24753 = &t16599; /* x211798 */ t16586.s1.tag = STRUCTURE_TYPE24753; t16586.s1.value.structure_type24753 = &t16594; /* x211799 */ t16573.s1.tag = STRUCTURE_TYPE24753; t16573.s1.value.structure_type24753 = &t16586; /* x211800 */ t16560.s1.tag = STRUCTURE_TYPE24753; t16560.s1.value.structure_type24753 = &t16573; /* x211801 */ t16550.s1.tag = STRUCTURE_TYPE24753; t16550.s1.value.structure_type24753 = &t16560; /* x211802 */ t16542.s1.tag = STRUCTURE_TYPE24753; t16542.s1.value.structure_type24753 = &t16550; /* x211803 */ t16529.s1.tag = STRUCTURE_TYPE24753; t16529.s1.value.structure_type24753 = &t16542; /* x211804 */ t16516.s1.tag = STRUCTURE_TYPE24753; t16516.s1.value.structure_type24753 = &t16529; /* x211805 */ t16506.s1.tag = STRUCTURE_TYPE24753; t16506.s1.value.structure_type24753 = &t16516; /* x211806 */ t16501.s1.tag = STRUCTURE_TYPE24753; t16501.s1.value.structure_type24753 = &t16506; /* x211807 */ t16493.s1.tag = STRUCTURE_TYPE24753; t16493.s1.value.structure_type24753 = &t16501; /* x211808 */ t16480.s1.tag = STRUCTURE_TYPE24753; t16480.s1.value.structure_type24753 = &t16493; /* x211809 */ t16467.s1.tag = STRUCTURE_TYPE24753; t16467.s1.value.structure_type24753 = &t16480; /* x211810 */ t16457.s1.tag = STRUCTURE_TYPE24753; t16457.s1.value.structure_type24753 = &t16467; /* x211811 */ t16449.s1.tag = STRUCTURE_TYPE24753; t16449.s1.value.structure_type24753 = &t16457; /* x211812 */ t16436.s1.tag = STRUCTURE_TYPE24753; t16436.s1.value.structure_type24753 = &t16449; /* x211813 */ t16423.s1.tag = STRUCTURE_TYPE24753; t16423.s1.value.structure_type24753 = &t16436; /* x211814 */ t16413.s1.tag = STRUCTURE_TYPE24753; t16413.s1.value.structure_type24753 = &t16423; /* x211815 */ t16408.s1.tag = STRUCTURE_TYPE24753; t16408.s1.value.structure_type24753 = &t16413; /* x211816 */ t16400.s1.tag = STRUCTURE_TYPE24753; t16400.s1.value.structure_type24753 = &t16408; /* x211817 */ t16387.s1.tag = STRUCTURE_TYPE24753; t16387.s1.value.structure_type24753 = &t16400; /* x211818 */ t16374.s1.tag = STRUCTURE_TYPE24753; t16374.s1.value.structure_type24753 = &t16387; /* x211819 */ t16364.s1.tag = STRUCTURE_TYPE24753; t16364.s1.value.structure_type24753 = &t16374; /* x211820 */ t16356.s1.tag = STRUCTURE_TYPE24753; t16356.s1.value.structure_type24753 = &t16364; /* x211821 */ t16343.s1.tag = STRUCTURE_TYPE24753; t16343.s1.value.structure_type24753 = &t16356; /* x211822 */ t16330.s1.tag = STRUCTURE_TYPE24753; t16330.s1.value.structure_type24753 = &t16343; /* x211823 */ t16320.s1.tag = STRUCTURE_TYPE24753; t16320.s1.value.structure_type24753 = &t16330; /* x211824 */ t16315.s1.tag = STRUCTURE_TYPE24753; t16315.s1.value.structure_type24753 = &t16320; /* x211825 */ t16307.s1.tag = STRUCTURE_TYPE24753; t16307.s1.value.structure_type24753 = &t16315; /* x211826 */ t16294.s1.tag = STRUCTURE_TYPE24753; t16294.s1.value.structure_type24753 = &t16307; /* x211827 */ t16281.s1.tag = STRUCTURE_TYPE24753; t16281.s1.value.structure_type24753 = &t16294; /* x211828 */ t16271.s1.tag = STRUCTURE_TYPE24753; t16271.s1.value.structure_type24753 = &t16281; /* x211829 */ t16263.s1.tag = STRUCTURE_TYPE24753; t16263.s1.value.structure_type24753 = &t16271; /* x211830 */ t16250.s1.tag = STRUCTURE_TYPE24753; t16250.s1.value.structure_type24753 = &t16263; /* x211831 */ t16237.s1.tag = STRUCTURE_TYPE24753; t16237.s1.value.structure_type24753 = &t16250; /* x211832 */ t16227.s1.tag = STRUCTURE_TYPE24753; t16227.s1.value.structure_type24753 = &t16237; /* x211833 */ t16216.s1.tag = STRUCTURE_TYPE24753; t16216.s1.value.structure_type24753 = &t16227; /* x211834 */ t16212.s1.tag = STRUCTURE_TYPE24753; t16212.s1.value.structure_type24753 = &t16216; /* x211835 */ t16207.s1.tag = STRUCTURE_TYPE24753; t16207.s1.value.structure_type24753 = &t16212; /* x211836 */ t16202.s1.tag = STRUCTURE_TYPE24753; t16202.s1.value.structure_type24753 = &t16207; /* x211837 */ t16172.s1.tag = STRUCTURE_TYPE24753; t16172.s1.value.structure_type24753 = &t16202; /* x211838 */ t16168.s1.tag = STRUCTURE_TYPE24753; t16168.s1.value.structure_type24753 = &t16172; /* x211839 */ t16164.s1.tag = STRUCTURE_TYPE24753; t16164.s1.value.structure_type24753 = &t16168; /* x211840 */ t16160.s1.tag = STRUCTURE_TYPE24753; t16160.s1.value.structure_type24753 = &t16164; /* x211841 */ t16153.s1.tag = STRUCTURE_TYPE24753; t16153.s1.value.structure_type24753 = &t16160; /* x211842 */ t16147.s1.tag = STRUCTURE_TYPE24753; t16147.s1.value.structure_type24753 = &t16153; /* x211843 */ t16141.s1.tag = STRUCTURE_TYPE24753; t16141.s1.value.structure_type24753 = &t16147; /* x211844 */ t16120.s1.tag = STRUCTURE_TYPE24753; t16120.s1.value.structure_type24753 = &t16141; /* x211845 */ t16109.s1.tag = STRUCTURE_TYPE24753; t16109.s1.value.structure_type24753 = &t16120; /* x211846 */ t16098.s1.tag = STRUCTURE_TYPE24753; t16098.s1.value.structure_type24753 = &t16109; /* x211847 */ t16086.s1.tag = STRUCTURE_TYPE24753; t16086.s1.value.structure_type24753 = &t16098; /* x211848 */ t16079.s1.tag = STRUCTURE_TYPE24753; t16079.s1.value.structure_type24753 = &t16086; /* x211849 */ t16067.s1.tag = STRUCTURE_TYPE24753; t16067.s1.value.structure_type24753 = &t16079; /* x211850 */ t16060.s1.tag = STRUCTURE_TYPE24753; t16060.s1.value.structure_type24753 = &t16067; /* x211851 */ t15996.s1.tag = STRUCTURE_TYPE24753; t15996.s1.value.structure_type24753 = &t16060; /* x211852 */ t15992.s1.tag = STRUCTURE_TYPE24753; t15992.s1.value.structure_type24753 = &t15996; /* x211853 */ t15988.s1.tag = STRUCTURE_TYPE24753; t15988.s1.value.structure_type24753 = &t15992; /* x211854 */ t15981.s1.tag = STRUCTURE_TYPE24753; t15981.s1.value.structure_type24753 = &t15988; /* x211855 */ t15975.s1.tag = STRUCTURE_TYPE24753; t15975.s1.value.structure_type24753 = &t15981; /* x211856 */ t15961.s1.tag = STRUCTURE_TYPE24753; t15961.s1.value.structure_type24753 = &t15975; /* x211857 */ t15955.s1.tag = STRUCTURE_TYPE24753; t15955.s1.value.structure_type24753 = &t15961; /* x211858 */ t15951.s1.tag = STRUCTURE_TYPE24753; t15951.s1.value.structure_type24753 = &t15955; /* x211859 */ t15947.s1.tag = STRUCTURE_TYPE24753; t15947.s1.value.structure_type24753 = &t15951; /* x211860 */ t15943.s1.tag = STRUCTURE_TYPE24753; t15943.s1.value.structure_type24753 = &t15947; /* x211861 */ t15939.s1.tag = STRUCTURE_TYPE24753; t15939.s1.value.structure_type24753 = &t15943; /* x211862 */ t15935.s1.tag = STRUCTURE_TYPE24753; t15935.s1.value.structure_type24753 = &t15939; /* x207238 */ t18173.s0.tag = EXTERNAL_SYMBOL_TYPE; t18173.s0.value.external_symbol_type = q525; /* x207239 */ t18173.s1.tag = NULL_TYPE; /* x207240 */ t18172.s0.tag = STRUCTURE_TYPE24753; t18172.s0.value.structure_type24753 = &t18173; /* x207241 */ t18172.s1.tag = NULL_TYPE; /* x207259 */ t18197.s0.tag = FIXNUM_TYPE; t18197.s0.value.fixnum_type = 1; /* x207260 */ t18197.s1.tag = NULL_TYPE; /* x207269 */ t18202.s0.tag = EXTERNAL_SYMBOL_TYPE; t18202.s0.value.external_symbol_type = q520; /* x207270 */ t18202.s1.tag = NULL_TYPE; /* x207333 */ t18265.s0.tag = EXTERNAL_SYMBOL_TYPE; t18265.s0.value.external_symbol_type = q525; /* x207334 */ t18265.s1.tag = NULL_TYPE; /* x207335 */ t18264.s0.tag = STRUCTURE_TYPE24753; t18264.s0.value.structure_type24753 = &t18265; /* x207336 */ t18264.s1.tag = NULL_TYPE; /* x207354 */ t18289.s0.tag = FIXNUM_TYPE; t18289.s0.value.fixnum_type = 1; /* x207355 */ t18289.s1.tag = NULL_TYPE; /* x207364 */ t18294.s0.tag = EXTERNAL_SYMBOL_TYPE; t18294.s0.value.external_symbol_type = q520; /* x207365 */ t18294.s1.tag = NULL_TYPE; /* x206999 */ t18387.s0.tag = EXTERNAL_SYMBOL_TYPE; t18387.s0.value.external_symbol_type = q95; /* x207000 */ t18389.s0.tag = EXTERNAL_SYMBOL_TYPE; t18389.s0.value.external_symbol_type = q523; /* x207001 */ t18389.s1.tag = NULL_TYPE; /* x207002 */ t18388.s0.tag = STRUCTURE_TYPE24753; t18388.s0.value.structure_type24753 = &t18389; /* x207003 */ t18388.s1.tag = NULL_TYPE; /* x207004 */ t18387.s1.tag = STRUCTURE_TYPE24753; t18387.s1.value.structure_type24753 = &t18388; /* x207005 */ t18386.s0.tag = STRUCTURE_TYPE24753; t18386.s0.value.structure_type24753 = &t18387; /* x207006 */ t18386.s1.tag = NULL_TYPE; /* x207078 */ t18445.s0.tag = EXTERNAL_SYMBOL_TYPE; t18445.s0.value.external_symbol_type = q95; /* x207079 */ t18447.s0.tag = EXTERNAL_SYMBOL_TYPE; t18447.s0.value.external_symbol_type = q523; /* x207080 */ t18447.s1.tag = NULL_TYPE; /* x207081 */ t18446.s0.tag = STRUCTURE_TYPE24753; t18446.s0.value.structure_type24753 = &t18447; /* x207082 */ t18446.s1.tag = NULL_TYPE; /* x207083 */ t18445.s1.tag = STRUCTURE_TYPE24753; t18445.s1.value.structure_type24753 = &t18446; /* x207084 */ t18444.s0.tag = STRUCTURE_TYPE24753; t18444.s0.value.structure_type24753 = &t18445; /* x207085 */ t18444.s1.tag = NULL_TYPE; /* x207095 */ t18452.s0.tag = EXTERNAL_SYMBOL_TYPE; t18452.s0.value.external_symbol_type = q520; /* x207096 */ t18452.s1.tag = NULL_TYPE; /* x206729 */ t18589.s0.tag = EXTERNAL_SYMBOL_TYPE; t18589.s0.value.external_symbol_type = q520; /* x206730 */ t18589.s1.tag = NULL_TYPE; /* x206500 */ t18711.s0.tag = EXTERNAL_SYMBOL_TYPE; t18711.s0.value.external_symbol_type = q506; /* x206501 */ t18711.s1.tag = NULL_TYPE; /* x206533 */ t18755.s0.tag = EXTERNAL_SYMBOL_TYPE; t18755.s0.value.external_symbol_type = q506; /* x206534 */ t18755.s1.tag = NULL_TYPE; /* x206535 */ t18754.s0.tag = STRUCTURE_TYPE24753; t18754.s0.value.structure_type24753 = &t18755; /* x206536 */ t18754.s1.tag = NULL_TYPE; /* x206346 */ t18798.s0.tag = EXTERNAL_SYMBOL_TYPE; t18798.s0.value.external_symbol_type = q506; /* x206347 */ t18798.s1.tag = NULL_TYPE; /* x206353 */ t18806.s0.tag = TRUE_TYPE; /* x206354 */ t18806.s1.tag = NULL_TYPE; /* x206438 */ t18912.s0.tag = EXTERNAL_SYMBOL_TYPE; t18912.s0.value.external_symbol_type = q506; /* x206439 */ t18912.s1.tag = NULL_TYPE; /* x206440 */ t18911.s0.tag = STRUCTURE_TYPE24753; t18911.s0.value.structure_type24753 = &t18912; /* x206441 */ t18911.s1.tag = NULL_TYPE; /* x206457 */ t18928.s0.tag = FALSE_TYPE; /* x206458 */ t18928.s1.tag = NULL_TYPE; /* x206204 */ t18972.s0.tag = EXTERNAL_SYMBOL_TYPE; t18972.s0.value.external_symbol_type = q506; /* x206205 */ t18972.s1.tag = NULL_TYPE; /* x206234 */ t19017.s0.tag = FALSE_TYPE; /* x206235 */ t19017.s1.tag = NULL_TYPE; /* x206276 */ t19061.s0.tag = EXTERNAL_SYMBOL_TYPE;} void initialize_constants10(void) {t19061.s0.value.external_symbol_type = q506; /* x206277 */ t19061.s1.tag = NULL_TYPE; /* x206278 */ t19060.s0.tag = STRUCTURE_TYPE24753; t19060.s0.value.structure_type24753 = &t19061; /* x206279 */ t19060.s1.tag = NULL_TYPE; /* x206119 */ t19100.s0.tag = EXTERNAL_SYMBOL_TYPE; t19100.s0.value.external_symbol_type = q11; /* x206120 */ t19101.s0.tag = NULL_TYPE; /* x206121 */ t19101.s1.tag = NULL_TYPE; /* x206122 */ t19100.s1.tag = STRUCTURE_TYPE24753; t19100.s1.value.structure_type24753 = &t19101; /* x206123 */ t19099.s0.tag = STRUCTURE_TYPE24753; t19099.s0.value.structure_type24753 = &t19100; /* x206124 */ t19099.s1.tag = NULL_TYPE; /* x205937 */ t19197.s0.tag = FALSE_TYPE; /* x205938 */ t19197.s1.tag = NULL_TYPE; /* x205944 */ t19205.s0.tag = EXTERNAL_SYMBOL_TYPE; t19205.s0.value.external_symbol_type = q506; /* x205945 */ t19205.s1.tag = NULL_TYPE; /* x205990 */ t19278.s0.tag = EXTERNAL_SYMBOL_TYPE; t19278.s0.value.external_symbol_type = q42; /* x205991 */ t19279.s0.tag = EXTERNAL_SYMBOL_TYPE; t19279.s0.value.external_symbol_type = q512; /* x205992 */ t19280.s0.tag = TRUE_TYPE; /* x205993 */ t19280.s1.tag = NULL_TYPE; /* x205994 */ t19279.s1.tag = STRUCTURE_TYPE24753; t19279.s1.value.structure_type24753 = &t19280; /* x205995 */ t19278.s1.tag = STRUCTURE_TYPE24753; t19278.s1.value.structure_type24753 = &t19279; /* x206030 */ t19299.s0.tag = EXTERNAL_SYMBOL_TYPE; t19299.s0.value.external_symbol_type = q42; /* x206031 */ t19300.s0.tag = EXTERNAL_SYMBOL_TYPE; t19300.s0.value.external_symbol_type = q512; /* x206032 */ t19301.s0.tag = FALSE_TYPE; /* x206033 */ t19301.s1.tag = NULL_TYPE; /* x206034 */ t19300.s1.tag = STRUCTURE_TYPE24753; t19300.s1.value.structure_type24753 = &t19301; /* x206035 */ t19299.s1.tag = STRUCTURE_TYPE24753; t19299.s1.value.structure_type24753 = &t19300; /* x206036 */ t19298.s0.tag = STRUCTURE_TYPE24753; t19298.s0.value.structure_type24753 = &t19299; /* x206037 */ t19303.s0.tag = EXTERNAL_SYMBOL_TYPE; t19303.s0.value.external_symbol_type = q506; /* x206038 */ t19303.s1.tag = NULL_TYPE; /* x206039 */ t19302.s0.tag = STRUCTURE_TYPE24753; t19302.s0.value.structure_type24753 = &t19303; /* x206040 */ t19302.s1.tag = NULL_TYPE; /* x206041 */ t19298.s1.tag = STRUCTURE_TYPE24753; t19298.s1.value.structure_type24753 = &t19302; /* x206070 stalin.sc:28489:979206 */ t19311.s0.tag = EXTERNAL_SYMBOL_TYPE; t19311.s0.value.external_symbol_type = q506; /* x206071 stalin.sc:28489:979206 */ t19311.s1.tag = NULL_TYPE; /* x205777 */ t19361.s0.tag = EXTERNAL_SYMBOL_TYPE; t19361.s0.value.external_symbol_type = q506; /* x205778 */ t19361.s1.tag = NULL_TYPE; /* x205846 */ t19443.s0.tag = EXTERNAL_SYMBOL_TYPE; t19443.s0.value.external_symbol_type = q510; /* x205847 */ t19443.s1.tag = NULL_TYPE; /* x205877 stalin.sc:28472:978556 */ t19450.s0.tag = EXTERNAL_SYMBOL_TYPE; t19450.s0.value.external_symbol_type = q506; /* x205878 stalin.sc:28472:978556 */ t19450.s1.tag = NULL_TYPE; /* x205677 */ t19498.s0.tag = EXTERNAL_SYMBOL_TYPE; t19498.s0.value.external_symbol_type = q506; /* x205678 */ t19498.s1.tag = NULL_TYPE; /* x205707 */ t19543.s0.tag = FALSE_TYPE; /* x205708 */ t19543.s1.tag = NULL_TYPE; /* x205732 */ t19558.s0.tag = EXTERNAL_SYMBOL_TYPE; t19558.s0.value.external_symbol_type = q506; /* x205733 */ t19558.s1.tag = NULL_TYPE; /* x205734 */ t19557.s0.tag = STRUCTURE_TYPE24753; t19557.s0.value.structure_type24753 = &t19558; /* x205735 */ t19557.s1.tag = NULL_TYPE; /* x205626 */ t19578.s0.tag = EXTERNAL_SYMBOL_TYPE; t19578.s0.value.external_symbol_type = q507; /* x205627 */ t19578.s1.tag = NULL_TYPE; /* x205606 stalin.sc:28451:977814 */ t19598.s0.tag = EXTERNAL_SYMBOL_TYPE; t19598.s0.value.external_symbol_type = q506; /* x205607 stalin.sc:28451:977814 */ t19598.s1.tag = NULL_TYPE; /* x205251 */ t19735.s0.tag = EXTERNAL_SYMBOL_TYPE; t19735.s0.value.external_symbol_type = q318; /* x205252 */ t19735.s1.tag = NULL_TYPE; /* x205267 */ t19753.s0.tag = EXTERNAL_SYMBOL_TYPE; t19753.s0.value.external_symbol_type = q318; /* x205268 */ t19753.s1.tag = NULL_TYPE; /* x205152 stalin.sc:28382:975670 */ t19779.s0.tag = EXTERNAL_SYMBOL_TYPE; t19779.s0.value.external_symbol_type = q239; /* x205153 stalin.sc:28382:975670 */ t19779.s1.tag = NULL_TYPE; /* x204552 stalin.sc:28319:973045 */ t19862.s0.tag = EXTERNAL_SYMBOL_TYPE; t19862.s0.value.external_symbol_type = q63; /* x204553 stalin.sc:28319:973045 */ t19863.s0.tag = EXTERNAL_SYMBOL_TYPE; t19863.s0.value.external_symbol_type = q94; /* x204554 stalin.sc:28319:973045 */ t19863.s1.tag = NULL_TYPE; /* x204555 stalin.sc:28319:973045 */ t19862.s1.tag = STRUCTURE_TYPE24753; t19862.s1.value.structure_type24753 = &t19863; /* x204563 stalin.sc:28320:973085 */ t19867.s0.tag = EXTERNAL_SYMBOL_TYPE; t19867.s0.value.external_symbol_type = q63; /* x204564 stalin.sc:28320:973085 */ t19869.s0.tag = EXTERNAL_SYMBOL_TYPE; t19869.s0.value.external_symbol_type = q63; /* x204565 stalin.sc:28320:973085 */ t19870.s0.tag = EXTERNAL_SYMBOL_TYPE; t19870.s0.value.external_symbol_type = q94; /* x204566 stalin.sc:28320:973085 */ t19870.s1.tag = NULL_TYPE; /* x204567 stalin.sc:28320:973085 */ t19869.s1.tag = STRUCTURE_TYPE24753; t19869.s1.value.structure_type24753 = &t19870; /* x204568 stalin.sc:28320:973085 */ t19868.s0.tag = STRUCTURE_TYPE24753; t19868.s0.value.structure_type24753 = &t19869; /* x204569 stalin.sc:28320:973085 */ t19868.s1.tag = NULL_TYPE; /* x204570 stalin.sc:28320:973085 */ t19867.s1.tag = STRUCTURE_TYPE24753; t19867.s1.value.structure_type24753 = &t19868; /* x204585 stalin.sc:28322:973164 */ t19877.s0.tag = EXTERNAL_SYMBOL_TYPE; t19877.s0.value.external_symbol_type = q63; /* x204586 stalin.sc:28322:973164 */ t19878.s0.tag = EXTERNAL_SYMBOL_TYPE; t19878.s0.value.external_symbol_type = q56; /* x204587 stalin.sc:28322:973164 */ t19878.s1.tag = NULL_TYPE; /* x204588 stalin.sc:28322:973164 */ t19877.s1.tag = STRUCTURE_TYPE24753; t19877.s1.value.structure_type24753 = &t19878; /* x204596 stalin.sc:28323:973204 */ t19882.s0.tag = EXTERNAL_SYMBOL_TYPE; t19882.s0.value.external_symbol_type = q63; /* x204597 stalin.sc:28323:973204 */ t19884.s0.tag = EXTERNAL_SYMBOL_TYPE; t19884.s0.value.external_symbol_type = q63; /* x204598 stalin.sc:28323:973204 */ t19885.s0.tag = EXTERNAL_SYMBOL_TYPE; t19885.s0.value.external_symbol_type = q56; /* x204599 stalin.sc:28323:973204 */ t19885.s1.tag = NULL_TYPE; /* x204600 stalin.sc:28323:973204 */ t19884.s1.tag = STRUCTURE_TYPE24753; t19884.s1.value.structure_type24753 = &t19885; /* x204601 stalin.sc:28323:973204 */ t19883.s0.tag = STRUCTURE_TYPE24753; t19883.s0.value.structure_type24753 = &t19884; /* x204602 stalin.sc:28323:973204 */ t19883.s1.tag = NULL_TYPE; /* x204603 stalin.sc:28323:973204 */ t19882.s1.tag = STRUCTURE_TYPE24753; t19882.s1.value.structure_type24753 = &t19883; /* x204611 stalin.sc:28324:973254 */ t19889.s0.tag = EXTERNAL_SYMBOL_TYPE; t19889.s0.value.external_symbol_type = q63; /* x204612 stalin.sc:28324:973254 */ t19891.s0.tag = EXTERNAL_SYMBOL_TYPE; t19891.s0.value.external_symbol_type = q63; /* x204613 stalin.sc:28324:973254 */ t19893.s0.tag = EXTERNAL_SYMBOL_TYPE; t19893.s0.value.external_symbol_type = q63; /* x204614 stalin.sc:28324:973254 */ t19894.s0.tag = EXTERNAL_SYMBOL_TYPE; t19894.s0.value.external_symbol_type = q56; /* x204615 stalin.sc:28324:973254 */ t19894.s1.tag = NULL_TYPE; /* x204616 stalin.sc:28324:973254 */ t19893.s1.tag = STRUCTURE_TYPE24753; t19893.s1.value.structure_type24753 = &t19894; /* x204617 stalin.sc:28324:973254 */ t19892.s0.tag = STRUCTURE_TYPE24753; t19892.s0.value.structure_type24753 = &t19893; /* x204618 stalin.sc:28324:973254 */ t19892.s1.tag = NULL_TYPE; /* x204619 stalin.sc:28324:973254 */ t19891.s1.tag = STRUCTURE_TYPE24753; t19891.s1.value.structure_type24753 = &t19892; /* x204620 stalin.sc:28324:973254 */ t19890.s0.tag = STRUCTURE_TYPE24753; t19890.s0.value.structure_type24753 = &t19891; /* x204621 stalin.sc:28324:973254 */ t19890.s1.tag = NULL_TYPE; /* x204622 stalin.sc:28324:973254 */ t19889.s1.tag = STRUCTURE_TYPE24753; t19889.s1.value.structure_type24753 = &t19890; /* x204637 stalin.sc:28326:973361 */ t19901.s0.tag = EXTERNAL_SYMBOL_TYPE; t19901.s0.value.external_symbol_type = q63; /* x204638 stalin.sc:28326:973361 */ t19902.s0.tag = EXTERNAL_SYMBOL_TYPE; t19902.s0.value.external_symbol_type = q91; /* x204639 stalin.sc:28326:973361 */ t19902.s1.tag = NULL_TYPE; /* x204640 stalin.sc:28326:973361 */ t19901.s1.tag = STRUCTURE_TYPE24753; t19901.s1.value.structure_type24753 = &t19902; /* x204648 stalin.sc:28327:973410 */ t19906.s0.tag = EXTERNAL_SYMBOL_TYPE; t19906.s0.value.external_symbol_type = q63; /* x204649 stalin.sc:28327:973410 */ t19908.s0.tag = EXTERNAL_SYMBOL_TYPE; t19908.s0.value.external_symbol_type = q63; /* x204650 stalin.sc:28327:973410 */ t19909.s0.tag = EXTERNAL_SYMBOL_TYPE; t19909.s0.value.external_symbol_type = q91; /* x204651 stalin.sc:28327:973410 */ t19909.s1.tag = NULL_TYPE; /* x204652 stalin.sc:28327:973410 */ t19908.s1.tag = STRUCTURE_TYPE24753; t19908.s1.value.structure_type24753 = &t19909; /* x204653 stalin.sc:28327:973410 */ t19907.s0.tag = STRUCTURE_TYPE24753; t19907.s0.value.structure_type24753 = &t19908; /* x204654 stalin.sc:28327:973410 */ t19907.s1.tag = NULL_TYPE; /* x204655 stalin.sc:28327:973410 */ t19906.s1.tag = STRUCTURE_TYPE24753; t19906.s1.value.structure_type24753 = &t19907; /* x204663 stalin.sc:28328:973469 */ t19913.s0.tag = EXTERNAL_SYMBOL_TYPE; t19913.s0.value.external_symbol_type = q63; /* x204664 stalin.sc:28328:973469 */ t19915.s0.tag = EXTERNAL_SYMBOL_TYPE; t19915.s0.value.external_symbol_type = q63; /* x204665 stalin.sc:28328:973469 */ t19917.s0.tag = EXTERNAL_SYMBOL_TYPE; t19917.s0.value.external_symbol_type = q63; /* x204666 stalin.sc:28328:973469 */ t19918.s0.tag = EXTERNAL_SYMBOL_TYPE; t19918.s0.value.external_symbol_type = q91; /* x204667 stalin.sc:28328:973469 */ t19918.s1.tag = NULL_TYPE; /* x204668 stalin.sc:28328:973469 */ t19917.s1.tag = STRUCTURE_TYPE24753; t19917.s1.value.structure_type24753 = &t19918; /* x204669 stalin.sc:28328:973469 */ t19916.s0.tag = STRUCTURE_TYPE24753; t19916.s0.value.structure_type24753 = &t19917; /* x204670 stalin.sc:28328:973469 */ t19916.s1.tag = NULL_TYPE; /* x204671 stalin.sc:28328:973469 */ t19915.s1.tag = STRUCTURE_TYPE24753; t19915.s1.value.structure_type24753 = &t19916; /* x204672 stalin.sc:28328:973469 */ t19914.s0.tag = STRUCTURE_TYPE24753; t19914.s0.value.structure_type24753 = &t19915; /* x204673 stalin.sc:28328:973469 */ t19914.s1.tag = NULL_TYPE; /* x204674 stalin.sc:28328:973469 */ t19913.s1.tag = STRUCTURE_TYPE24753; t19913.s1.value.structure_type24753 = &t19914; /* x204689 stalin.sc:28330:973581 */ t19925.s0.tag = EXTERNAL_SYMBOL_TYPE; t19925.s0.value.external_symbol_type = q63; /* x204690 stalin.sc:28330:973581 */ t19926.s0.tag = EXTERNAL_SYMBOL_TYPE; t19926.s0.value.external_symbol_type = q92; /* x204691 stalin.sc:28330:973581 */ t19926.s1.tag = NULL_TYPE; /* x204692 stalin.sc:28330:973581 */ t19925.s1.tag = STRUCTURE_TYPE24753; t19925.s1.value.structure_type24753 = &t19926; /* x204714 stalin.sc:28333:973691 */ t19936.s0.tag = EXTERNAL_SYMBOL_TYPE; t19936.s0.value.external_symbol_type = q63; /* x204715 stalin.sc:28333:973691 */ t19937.s0.tag = EXTERNAL_SYMBOL_TYPE; t19937.s0.value.external_symbol_type = q90; /* x204716 stalin.sc:28333:973691 */ t19937.s1.tag = NULL_TYPE; /* x204717 stalin.sc:28333:973691 */ t19936.s1.tag = STRUCTURE_TYPE24753; t19936.s1.value.structure_type24753 = &t19937; /* x204732 stalin.sc:28335:973781 */ t19944.s0.tag = EXTERNAL_SYMBOL_TYPE; t19944.s0.value.external_symbol_type = q63; /* x204733 stalin.sc:28335:973781 */ t19945.s0.tag = EXTERNAL_SYMBOL_TYPE; t19945.s0.value.external_symbol_type = q89; /* x204734 stalin.sc:28335:973781 */ t19945.s1.tag = NULL_TYPE; /* x204735 stalin.sc:28335:973781 */ t19944.s1.tag = STRUCTURE_TYPE24753; t19944.s1.value.structure_type24753 = &t19945; /* x204750 stalin.sc:28337:973858 */ t19952.s0.tag = EXTERNAL_SYMBOL_TYPE; t19952.s0.value.external_symbol_type = q63; /* x204751 stalin.sc:28337:973858 */ t19953.s0.tag = EXTERNAL_SYMBOL_TYPE; t19953.s0.value.external_symbol_type = q88; /* x204752 stalin.sc:28337:973858 */ t19953.s1.tag = NULL_TYPE; /* x204753 stalin.sc:28337:973858 */ t19952.s1.tag = STRUCTURE_TYPE24753; t19952.s1.value.structure_type24753 = &t19953; /* x204768 stalin.sc:28339:973938 */ t19960.s0.tag = EXTERNAL_SYMBOL_TYPE; t19960.s0.value.external_symbol_type = q63; /* x204769 stalin.sc:28339:973938 */ t19961.s0.tag = EXTERNAL_SYMBOL_TYPE; t19961.s0.value.external_symbol_type = q497; /* x204770 stalin.sc:28339:973938 */ t19961.s1.tag = NULL_TYPE; /* x204771 stalin.sc:28339:973938 */ t19960.s1.tag = STRUCTURE_TYPE24753; t19960.s1.value.structure_type24753 = &t19961; /* x204793 stalin.sc:28342:974062 */ t19971.s0.tag = EXTERNAL_SYMBOL_TYPE; t19971.s0.value.external_symbol_type = q63; /* x204794 stalin.sc:28342:974062 */ t19972.s0.tag = EXTERNAL_SYMBOL_TYPE; t19972.s0.value.external_symbol_type = q85; /* x204795 stalin.sc:28342:974062 */ t19972.s1.tag = NULL_TYPE; /* x204796 stalin.sc:28342:974062 */ t19971.s1.tag = STRUCTURE_TYPE24753; t19971.s1.value.structure_type24753 = &t19972; /* x204804 stalin.sc:28343:974111 */ t19976.s0.tag = EXTERNAL_SYMBOL_TYPE; t19976.s0.value.external_symbol_type = q63; /* x204805 stalin.sc:28343:974111 */ t19978.s0.tag = EXTERNAL_SYMBOL_TYPE; t19978.s0.value.external_symbol_type = q63; /* x204806 stalin.sc:28343:974111 */ t19979.s0.tag = EXTERNAL_SYMBOL_TYPE; t19979.s0.value.external_symbol_type = q85; /* x204807 stalin.sc:28343:974111 */ t19979.s1.tag = NULL_TYPE; /* x204808 stalin.sc:28343:974111 */ t19978.s1.tag = STRUCTURE_TYPE24753; t19978.s1.value.structure_type24753 = &t19979; /* x204809 stalin.sc:28343:974111 */ t19977.s0.tag = STRUCTURE_TYPE24753; t19977.s0.value.structure_type24753 = &t19978; /* x204810 stalin.sc:28343:974111 */ t19977.s1.tag = NULL_TYPE; /* x204811 stalin.sc:28343:974111 */ t19976.s1.tag = STRUCTURE_TYPE24753; t19976.s1.value.structure_type24753 = &t19977; /* x204826 stalin.sc:28345:974201 */ t19986.s0.tag = EXTERNAL_SYMBOL_TYPE; t19986.s0.value.external_symbol_type = q63; /* x204827 stalin.sc:28345:974201 */ t19987.s0.tag = EXTERNAL_SYMBOL_TYPE; t19987.s0.value.external_symbol_type = q84; /* x204828 stalin.sc:28345:974201 */ t19987.s1.tag = NULL_TYPE; /* x204829 stalin.sc:28345:974201 */ t19986.s1.tag = STRUCTURE_TYPE24753; t19986.s1.value.structure_type24753 = &t19987; /* x204844 stalin.sc:28347:974275 */ t19994.s0.tag = EXTERNAL_SYMBOL_TYPE; t19994.s0.value.external_symbol_type = q63; /* x204845 stalin.sc:28347:974275 */ t19995.s0.tag = EXTERNAL_SYMBOL_TYPE; t19995.s0.value.external_symbol_type = q14; /* x204846 stalin.sc:28347:974275 */ t19995.s1.tag = NULL_TYPE; /* x204847 stalin.sc:28347:974275 */ t19994.s1.tag = STRUCTURE_TYPE24753; t19994.s1.value.structure_type24753 = &t19995; /* x204855 stalin.sc:28348:974317 */ t19999.s0.tag = EXTERNAL_SYMBOL_TYPE; t19999.s0.value.external_symbol_type = q63; /* x204856 stalin.sc:28348:974317 */ t20000.s0.tag = EXTERNAL_SYMBOL_TYPE; t20000.s0.value.external_symbol_type = q197; /* x204857 stalin.sc:28348:974317 */ t20000.s1.tag = NULL_TYPE; /* x204858 stalin.sc:28348:974317 */ t19999.s1.tag = STRUCTURE_TYPE24753; t19999.s1.value.structure_type24753 = &t20000; /* x204866 stalin.sc:28349:974358 */ t20004.s0.tag = EXTERNAL_SYMBOL_TYPE; t20004.s0.value.external_symbol_type = q63; /* x204867 stalin.sc:28349:974358 */ t20005.s0.tag = EXTERNAL_SYMBOL_TYPE; t20005.s0.value.external_symbol_type = q496; /* x204868 stalin.sc:28349:974358 */ t20005.s1.tag = NULL_TYPE; /* x204869 stalin.sc:28349:974358 */ t20004.s1.tag = STRUCTURE_TYPE24753; t20004.s1.value.structure_type24753 = &t20005; /* x204877 stalin.sc:28350:974400 */ t20009.s0.tag = EXTERNAL_SYMBOL_TYPE; t20009.s0.value.external_symbol_type = q63; /* x204878 stalin.sc:28350:974400 */ t20011.s0.tag = EXTERNAL_SYMBOL_TYPE; t20011.s0.value.external_symbol_type = q496; /* x204879 stalin.sc:28350:974400 */ t20012.s0.tag = STRING_TYPE; t20012.s0.value.string_type = "GLUquadricObj"; /* x204880 stalin.sc:28350:974400 */ t20012.s1.tag = NULL_TYPE; /* x204881 stalin.sc:28350:974400 */ t20011.s1.tag = STRUCTURE_TYPE24753; t20011.s1.value.structure_type24753 = &t20012; /* x204882 stalin.sc:28350:974400 */ t20010.s0.tag = STRUCTURE_TYPE24753; t20010.s0.value.structure_type24753 = &t20011; /* x204883 stalin.sc:28350:974400 */ t20010.s1.tag = NULL_TYPE; /* x204884 stalin.sc:28350:974400 */ t20009.s1.tag = STRUCTURE_TYPE24753; t20009.s1.value.structure_type24753 = &t20010; /* x204892 stalin.sc:28351:974460 */ t20016.s0.tag = EXTERNAL_SYMBOL_TYPE; t20016.s0.value.external_symbol_type = q63; /* x204893 stalin.sc:28351:974460 */ t20018.s0.tag = EXTERNAL_SYMBOL_TYPE; t20018.s0.value.external_symbol_type = q496; /* x204894 stalin.sc:28351:974460 */ t20019.s0.tag = STRING_TYPE; t20019.s0.value.string_type = "GLUnurbsObj"; /* x204895 stalin.sc:28351:974460 */ t20019.s1.tag = NULL_TYPE; /* x204896 stalin.sc:28351:974460 */ t20018.s1.tag = STRUCTURE_TYPE24753; t20018.s1.value.structure_type24753 = &t20019; /* x204897 stalin.sc:28351:974460 */ t20017.s0.tag = STRUCTURE_TYPE24753; t20017.s0.value.structure_type24753 = &t20018; /* x204898 stalin.sc:28351:974460 */ t20017.s1.tag = NULL_TYPE; /* x204899 stalin.sc:28351:974460 */ t20016.s1.tag = STRUCTURE_TYPE24753; t20016.s1.value.structure_type24753 = &t20017; /* x204907 stalin.sc:28352:974518 */ t20023.s0.tag = EXTERNAL_SYMBOL_TYPE; t20023.s0.value.external_symbol_type = q63; /* x204908 stalin.sc:28352:974518 */ t20025.s0.tag = EXTERNAL_SYMBOL_TYPE; t20025.s0.value.external_symbol_type = q496; /* x204909 stalin.sc:28352:974518 */ t20026.s0.tag = STRING_TYPE; t20026.s0.value.string_type = "GLUtriangulatorObj"; /* x204910 stalin.sc:28352:974518 */ t20026.s1.tag = NULL_TYPE; /* x204911 stalin.sc:28352:974518 */ t20025.s1.tag = STRUCTURE_TYPE24753; t20025.s1.value.structure_type24753 = &t20026; /* x204912 stalin.sc:28352:974518 */ t20024.s0.tag = STRUCTURE_TYPE24753; t20024.s0.value.structure_type24753 = &t20025; /* x204913 stalin.sc:28352:974518 */ t20024.s1.tag = NULL_TYPE; /* x204914 stalin.sc:28352:974518 */ t20023.s1.tag = STRUCTURE_TYPE24753; t20023.s1.value.structure_type24753 = &t20024; /* x204922 stalin.sc:28353:974583 */ t20030.s0.tag = EXTERNAL_SYMBOL_TYPE; t20030.s0.value.external_symbol_type = q63; /* x204923 stalin.sc:28353:974583 */ t20032.s0.tag = EXTERNAL_SYMBOL_TYPE; t20032.s0.value.external_symbol_type = q63; /* x204924 stalin.sc:28353:974583 */ t20033.s0.tag = EXTERNAL_SYMBOL_TYPE; t20033.s0.value.external_symbol_type = q496; /* x204925 stalin.sc:28353:974583 */ t20033.s1.tag = NULL_TYPE; /* x204926 stalin.sc:28353:974583 */ t20032.s1.tag = STRUCTURE_TYPE24753; t20032.s1.value.structure_type24753 = &t20033; /* x204927 stalin.sc:28353:974583 */ t20031.s0.tag = STRUCTURE_TYPE24753; t20031.s0.value.structure_type24753 = &t20032; /* x204928 stalin.sc:28353:974583 */ t20031.s1.tag = NULL_TYPE; /* x204929 stalin.sc:28353:974583 */ t20030.s1.tag = STRUCTURE_TYPE24753; t20030.s1.value.structure_type24753 = &t20031; /* x204937 stalin.sc:28354:974635 */ t20037.s0.tag = EXTERNAL_SYMBOL_TYPE; t20037.s0.value.external_symbol_type = q63; /* x204938 stalin.sc:28354:974635 */ t20039.s0.tag = EXTERNAL_SYMBOL_TYPE; t20039.s0.value.external_symbol_type = q63; /* x204939 stalin.sc:28354:974635 */ t20041.s0.tag = EXTERNAL_SYMBOL_TYPE; t20041.s0.value.external_symbol_type = q63; /* x204940 stalin.sc:28354:974635 */ t20042.s0.tag = EXTERNAL_SYMBOL_TYPE; t20042.s0.value.external_symbol_type = q496; /* x204941 stalin.sc:28354:974635 */ t20042.s1.tag = NULL_TYPE; /* x204942 stalin.sc:28354:974635 */ t20041.s1.tag = STRUCTURE_TYPE24753; t20041.s1.value.structure_type24753 = &t20042; /* x204943 stalin.sc:28354:974635 */ t20040.s0.tag = STRUCTURE_TYPE24753; t20040.s0.value.structure_type24753 = &t20041; /* x204944 stalin.sc:28354:974635 */ t20040.s1.tag = NULL_TYPE; /* x204945 stalin.sc:28354:974635 */ t20039.s1.tag = STRUCTURE_TYPE24753; t20039.s1.value.structure_type24753 = &t20040; /* x204946 stalin.sc:28354:974635 */ t20038.s0.tag = STRUCTURE_TYPE24753; t20038.s0.value.structure_type24753 = &t20039; /* x204947 stalin.sc:28354:974635 */ t20038.s1.tag = NULL_TYPE; /* x204948 stalin.sc:28354:974635 */ t20037.s1.tag = STRUCTURE_TYPE24753; t20037.s1.value.structure_type24753 = &t20038; /* x204956 stalin.sc:28355:974697 */ t20046.s0.tag = EXTERNAL_SYMBOL_TYPE; t20046.s0.value.external_symbol_type = q63; /* x204957 stalin.sc:28355:974697 */ t20047.s0.tag = EXTERNAL_SYMBOL_TYPE; t20047.s0.value.external_symbol_type = q495; /* x204958 stalin.sc:28355:974697 */ t20047.s1.tag = NULL_TYPE; /* x204959 stalin.sc:28355:974697 */ t20046.s1.tag = STRUCTURE_TYPE24753; t20046.s1.value.structure_type24753 = &t20047; /* x204508 stalin.sc:28275:971324 */ t20060.s0.tag = EXTERNAL_SYMBOL_TYPE; t20060.s0.value.external_symbol_type = q63; /* x204509 stalin.sc:28275:971324 */ t20061.s0.tag = EXTERNAL_SYMBOL_TYPE; t20061.s0.value.external_symbol_type = q94; /* x204510 stalin.sc:28275:971324 */ t20061.s1.tag = NULL_TYPE; /* x204511 stalin.sc:28275:971324 */ t20060.s1.tag = STRUCTURE_TYPE24753; t20060.s1.value.structure_type24753 = &t20061; /* x204493 stalin.sc:28276:971360 */ t20065.s0.tag = EXTERNAL_SYMBOL_TYPE; t20065.s0.value.external_symbol_type = q63; /* x204494 stalin.sc:28276:971360 */ t20067.s0.tag = EXTERNAL_SYMBOL_TYPE; t20067.s0.value.external_symbol_type = q63; /* x204495 stalin.sc:28276:971360 */ t20068.s0.tag = EXTERNAL_SYMBOL_TYPE; t20068.s0.value.external_symbol_type = q94; /* x204496 stalin.sc:28276:971360 */ t20068.s1.tag = NULL_TYPE; /* x204497 stalin.sc:28276:971360 */ t20067.s1.tag = STRUCTURE_TYPE24753; t20067.s1.value.structure_type24753 = &t20068; /* x204498 stalin.sc:28276:971360 */ t20066.s0.tag = STRUCTURE_TYPE24753; t20066.s0.value.structure_type24753 = &t20067; /* x204499 stalin.sc:28276:971360 */ t20066.s1.tag = NULL_TYPE; /* x204500 stalin.sc:28276:971360 */ t20065.s1.tag = STRUCTURE_TYPE24753; t20065.s1.value.structure_type24753 = &t20066; /* x204475 stalin.sc:28278:971432 */ t20075.s0.tag = EXTERNAL_SYMBOL_TYPE; t20075.s0.value.external_symbol_type = q63; /* x204476 stalin.sc:28278:971432 */ t20076.s0.tag = EXTERNAL_SYMBOL_TYPE; t20076.s0.value.external_symbol_type = q56; /* x204477 stalin.sc:28278:971432 */ t20076.s1.tag = NULL_TYPE; /* x204478 stalin.sc:28278:971432 */ t20075.s1.tag = STRUCTURE_TYPE24753; t20075.s1.value.structure_type24753 = &t20076; /* x204460 stalin.sc:28279:971468 */ t20080.s0.tag = EXTERNAL_SYMBOL_TYPE; t20080.s0.value.external_symbol_type = q63; /* x204461 stalin.sc:28279:971468 */ t20082.s0.tag = EXTERNAL_SYMBOL_TYPE; t20082.s0.value.external_symbol_type = q63; /* x204462 stalin.sc:28279:971468 */ t20083.s0.tag = EXTERNAL_SYMBOL_TYPE; t20083.s0.value.external_symbol_type = q56; /* x204463 stalin.sc:28279:971468 */ t20083.s1.tag = NULL_TYPE; /* x204464 stalin.sc:28279:971468 */ t20082.s1.tag = STRUCTURE_TYPE24753; t20082.s1.value.structure_type24753 = &t20083; /* x204465 stalin.sc:28279:971468 */ t20081.s0.tag = STRUCTURE_TYPE24753; t20081.s0.value.structure_type24753 = &t20082; /* x204466 stalin.sc:28279:971468 */ t20081.s1.tag = NULL_TYPE; /* x204467 stalin.sc:28279:971468 */ t20080.s1.tag = STRUCTURE_TYPE24753; t20080.s1.value.structure_type24753 = &t20081; /* x204441 stalin.sc:28280:971514 */ t20087.s0.tag = EXTERNAL_SYMBOL_TYPE; t20087.s0.value.external_symbol_type = q63; /* x204442 stalin.sc:28280:971514 */ t20089.s0.tag = EXTERNAL_SYMBOL_TYPE; t20089.s0.value.external_symbol_type = q63; /* x204443 stalin.sc:28280:971514 */ t20091.s0.tag = EXTERNAL_SYMBOL_TYPE; t20091.s0.value.external_symbol_type = q63; /* x204444 stalin.sc:28280:971514 */ t20092.s0.tag = EXTERNAL_SYMBOL_TYPE; t20092.s0.value.external_symbol_type = q56; /* x204445 stalin.sc:28280:971514 */ t20092.s1.tag = NULL_TYPE; /* x204446 stalin.sc:28280:971514 */ t20091.s1.tag = STRUCTURE_TYPE24753; t20091.s1.value.structure_type24753 = &t20092; /* x204447 stalin.sc:28280:971514 */ t20090.s0.tag = STRUCTURE_TYPE24753; t20090.s0.value.structure_type24753 = &t20091; /* x204448 stalin.sc:28280:971514 */ t20090.s1.tag = NULL_TYPE; /* x204449 stalin.sc:28280:971514 */ t20089.s1.tag = STRUCTURE_TYPE24753; t20089.s1.value.structure_type24753 = &t20090; /* x204450 stalin.sc:28280:971514 */ t20088.s0.tag = STRUCTURE_TYPE24753; t20088.s0.value.structure_type24753 = &t20089; /* x204451 stalin.sc:28280:971514 */ t20088.s1.tag = NULL_TYPE; /* x204452 stalin.sc:28280:971514 */ t20087.s1.tag = STRUCTURE_TYPE24753; t20087.s1.value.structure_type24753 = &t20088; /* x204423 stalin.sc:28282:971605 */ t20099.s0.tag = EXTERNAL_SYMBOL_TYPE; t20099.s0.value.external_symbol_type = q63; /* x204424 stalin.sc:28282:971605 */ t20100.s0.tag = EXTERNAL_SYMBOL_TYPE; t20100.s0.value.external_symbol_type = q91; /* x204425 stalin.sc:28282:971605 */ t20100.s1.tag = NULL_TYPE; /* x204426 stalin.sc:28282:971605 */ t20099.s1.tag = STRUCTURE_TYPE24753; t20099.s1.value.structure_type24753 = &t20100; /* x204408 stalin.sc:28283:971650 */ t20104.s0.tag = EXTERNAL_SYMBOL_TYPE; t20104.s0.value.external_symbol_type = q63; /* x204409 stalin.sc:28283:971650 */ t20106.s0.tag = EXTERNAL_SYMBOL_TYPE; t20106.s0.value.external_symbol_type = q63; /* x204410 stalin.sc:28283:971650 */ t20107.s0.tag = EXTERNAL_SYMBOL_TYPE; t20107.s0.value.external_symbol_type = q91; /* x204411 stalin.sc:28283:971650 */ t20107.s1.tag = NULL_TYPE; /* x204412 stalin.sc:28283:971650 */ t20106.s1.tag = STRUCTURE_TYPE24753; t20106.s1.value.structure_type24753 = &t20107; /* x204413 stalin.sc:28283:971650 */ t20105.s0.tag = STRUCTURE_TYPE24753; t20105.s0.value.structure_type24753 = &t20106; /* x204414 stalin.sc:28283:971650 */ t20105.s1.tag = NULL_TYPE; /* x204415 stalin.sc:28283:971650 */ t20104.s1.tag = STRUCTURE_TYPE24753; t20104.s1.value.structure_type24753 = &t20105; /* x204389 stalin.sc:28284:971705 */ t20111.s0.tag = EXTERNAL_SYMBOL_TYPE; t20111.s0.value.external_symbol_type = q63; /* x204390 stalin.sc:28284:971705 */ t20113.s0.tag = EXTERNAL_SYMBOL_TYPE; t20113.s0.value.external_symbol_type = q63; /* x204391 stalin.sc:28284:971705 */ t20115.s0.tag = EXTERNAL_SYMBOL_TYPE; t20115.s0.value.external_symbol_type = q63; /* x204392 stalin.sc:28284:971705 */ t20116.s0.tag = EXTERNAL_SYMBOL_TYPE; t20116.s0.value.external_symbol_type = q91; /* x204393 stalin.sc:28284:971705 */ t20116.s1.tag = NULL_TYPE; /* x204394 stalin.sc:28284:971705 */ t20115.s1.tag = STRUCTURE_TYPE24753; t20115.s1.value.structure_type24753 = &t20116; /* x204395 stalin.sc:28284:971705 */ t20114.s0.tag = STRUCTURE_TYPE24753; t20114.s0.value.structure_type24753 = &t20115; /* x204396 stalin.sc:28284:971705 */ t20114.s1.tag = NULL_TYPE; /* x204397 stalin.sc:28284:971705 */ t20113.s1.tag = STRUCTURE_TYPE24753; t20113.s1.value.structure_type24753 = &t20114; /* x204398 stalin.sc:28284:971705 */ t20112.s0.tag = STRUCTURE_TYPE24753; t20112.s0.value.structure_type24753 = &t20113; /* x204399 stalin.sc:28284:971705 */ t20112.s1.tag = NULL_TYPE; /* x204400 stalin.sc:28284:971705 */ t20111.s1.tag = STRUCTURE_TYPE24753; t20111.s1.value.structure_type24753 = &t20112; /* x204371 stalin.sc:28286:971803 */ t20123.s0.tag = EXTERNAL_SYMBOL_TYPE; t20123.s0.value.external_symbol_type = q63; /* x204372 stalin.sc:28286:971803 */ t20124.s0.tag = EXTERNAL_SYMBOL_TYPE; t20124.s0.value.external_symbol_type = q92; /* x204373 stalin.sc:28286:971803 */ t20124.s1.tag = NULL_TYPE; /* x204374 stalin.sc:28286:971803 */ t20123.s1.tag = STRUCTURE_TYPE24753; t20123.s1.value.structure_type24753 = &t20124; /* x204346 stalin.sc:28289:971901 */ t20134.s0.tag = EXTERNAL_SYMBOL_TYPE; t20134.s0.value.external_symbol_type = q63; /* x204347 stalin.sc:28289:971901 */ t20135.s0.tag = EXTERNAL_SYMBOL_TYPE; t20135.s0.value.external_symbol_type = q90; /* x204348 stalin.sc:28289:971901 */ t20135.s1.tag = NULL_TYPE; /* x204349 stalin.sc:28289:971901 */ t20134.s1.tag = STRUCTURE_TYPE24753; t20134.s1.value.structure_type24753 = &t20135; /* x204328 stalin.sc:28291:971974 */ t20142.s0.tag = EXTERNAL_SYMBOL_TYPE; t20142.s0.value.external_symbol_type = q63; /* x204329 stalin.sc:28291:971974 */ t20143.s0.tag = EXTERNAL_SYMBOL_TYPE; t20143.s0.value.external_symbol_type = q89; /* x204330 stalin.sc:28291:971974 */ t20143.s1.tag = NULL_TYPE; /* x204331 stalin.sc:28291:971974 */ t20142.s1.tag = STRUCTURE_TYPE24753; t20142.s1.value.structure_type24753 = &t20143; /* x204310 stalin.sc:28293:972045 */ t20150.s0.tag = EXTERNAL_SYMBOL_TYPE; t20150.s0.value.external_symbol_type = q63; /* x204311 stalin.sc:28293:972045 */ t20151.s0.tag = EXTERNAL_SYMBOL_TYPE; t20151.s0.value.external_symbol_type = q88; /* x204312 stalin.sc:28293:972045 */ t20151.s1.tag = NULL_TYPE; /* x204313 stalin.sc:28293:972045 */ t20150.s1.tag = STRUCTURE_TYPE24753; t20150.s1.value.structure_type24753 = &t20151; /* x204292 stalin.sc:28295:972114 */ t20158.s0.tag = EXTERNAL_SYMBOL_TYPE; t20158.s0.value.external_symbol_type = q63; /* x204293 stalin.sc:28295:972114 */ t20159.s0.tag = EXTERNAL_SYMBOL_TYPE; t20159.s0.value.external_symbol_type = q497; /* x204294 stalin.sc:28295:972114 */ t20159.s1.tag = NULL_TYPE; /* x204295 stalin.sc:28295:972114 */ t20158.s1.tag = STRUCTURE_TYPE24753; t20158.s1.value.structure_type24753 = &t20159; /* x204267 stalin.sc:28298:972219 */ t20169.s0.tag = EXTERNAL_SYMBOL_TYPE; t20169.s0.value.external_symbol_type = q63; /* x204268 stalin.sc:28298:972219 */ t20170.s0.tag = EXTERNAL_SYMBOL_TYPE; t20170.s0.value.external_symbol_type = q85; /* x204269 stalin.sc:28298:972219 */ t20170.s1.tag = NULL_TYPE; /* x204270 stalin.sc:28298:972219 */ t20169.s1.tag = STRUCTURE_TYPE24753; t20169.s1.value.structure_type24753 = &t20170; /* x204252 stalin.sc:28299:972264 */ t20174.s0.tag = EXTERNAL_SYMBOL_TYPE; t20174.s0.value.external_symbol_type = q63; /* x204253 stalin.sc:28299:972264 */ t20176.s0.tag = EXTERNAL_SYMBOL_TYPE; t20176.s0.value.external_symbol_type = q63; /* x204254 stalin.sc:28299:972264 */ t20177.s0.tag = EXTERNAL_SYMBOL_TYPE; t20177.s0.value.external_symbol_type = q85; /* x204255 stalin.sc:28299:972264 */ t20177.s1.tag = NULL_TYPE; /* x204256 stalin.sc:28299:972264 */ t20176.s1.tag = STRUCTURE_TYPE24753; t20176.s1.value.structure_type24753 = &t20177; /* x204257 stalin.sc:28299:972264 */ t20175.s0.tag = STRUCTURE_TYPE24753; t20175.s0.value.structure_type24753 = &t20176; /* x204258 stalin.sc:28299:972264 */ t20175.s1.tag = NULL_TYPE; /* x204259 stalin.sc:28299:972264 */ t20174.s1.tag = STRUCTURE_TYPE24753; t20174.s1.value.structure_type24753 = &t20175; /* x204234 stalin.sc:28301:972346 */ t20184.s0.tag = EXTERNAL_SYMBOL_TYPE; t20184.s0.value.external_symbol_type = q63; /* x204235 stalin.sc:28301:972346 */ t20185.s0.tag = EXTERNAL_SYMBOL_TYPE; t20185.s0.value.external_symbol_type = q84; /* x204236 stalin.sc:28301:972346 */ t20185.s1.tag = NULL_TYPE; /* x204237 stalin.sc:28301:972346 */ t20184.s1.tag = STRUCTURE_TYPE24753; t20184.s1.value.structure_type24753 = &t20185; /* x204216 stalin.sc:28303:972411 */ t20192.s0.tag = EXTERNAL_SYMBOL_TYPE; t20192.s0.value.external_symbol_type = q63; /* x204217 stalin.sc:28303:972411 */ t20193.s0.tag = EXTERNAL_SYMBOL_TYPE; t20193.s0.value.external_symbol_type = q14; /* x204218 stalin.sc:28303:972411 */ t20193.s1.tag = NULL_TYPE; /* x204219 stalin.sc:28303:972411 */ t20192.s1.tag = STRUCTURE_TYPE24753; t20192.s1.value.structure_type24753 = &t20193; /* x204205 stalin.sc:28304:972449 */ t20197.s0.tag = EXTERNAL_SYMBOL_TYPE; t20197.s0.value.external_symbol_type = q63; /* x204206 stalin.sc:28304:972449 */ t20198.s0.tag = EXTERNAL_SYMBOL_TYPE; t20198.s0.value.external_symbol_type = q197; /* x204207 stalin.sc:28304:972449 */ t20198.s1.tag = NULL_TYPE; /* x204208 stalin.sc:28304:972449 */ t20197.s1.tag = STRUCTURE_TYPE24753; t20197.s1.value.structure_type24753 = &t20198; /* x204194 stalin.sc:28305:972486 */ t20202.s0.tag = EXTERNAL_SYMBOL_TYPE; t20202.s0.value.external_symbol_type = q63; /* x204195 stalin.sc:28305:972486 */ t20203.s0.tag = EXTERNAL_SYMBOL_TYPE; t20203.s0.value.external_symbol_type = q496; /* x204196 stalin.sc:28305:972486 */ t20203.s1.tag = NULL_TYPE; /* x204197 stalin.sc:28305:972486 */ t20202.s1.tag = STRUCTURE_TYPE24753; t20202.s1.value.structure_type24753 = &t20203; /* x204179 stalin.sc:28306:972524 */ t20207.s0.tag = EXTERNAL_SYMBOL_TYPE; t20207.s0.value.external_symbol_type = q63; /* x204180 stalin.sc:28306:972524 */ t20209.s0.tag = EXTERNAL_SYMBOL_TYPE; t20209.s0.value.external_symbol_type = q496; /* x204181 stalin.sc:28306:972524 */ t20210.s0.tag = STRING_TYPE; t20210.s0.value.string_type = "GLUquadricObj"; /* x204182 stalin.sc:28306:972524 */ t20210.s1.tag = NULL_TYPE; /* x204183 stalin.sc:28306:972524 */ t20209.s1.tag = STRUCTURE_TYPE24753; t20209.s1.value.structure_type24753 = &t20210; /* x204184 stalin.sc:28306:972524 */ t20208.s0.tag = STRUCTURE_TYPE24753; t20208.s0.value.structure_type24753 = &t20209; /* x204185 stalin.sc:28306:972524 */ t20208.s1.tag = NULL_TYPE; /* x204186 stalin.sc:28306:972524 */ t20207.s1.tag = STRUCTURE_TYPE24753; t20207.s1.value.structure_type24753 = &t20208; /* x204164 stalin.sc:28307:972580 */ t20214.s0.tag = EXTERNAL_SYMBOL_TYPE; t20214.s0.value.external_symbol_type = q63; /* x204165 stalin.sc:28307:972580 */ t20216.s0.tag = EXTERNAL_SYMBOL_TYPE; t20216.s0.value.external_symbol_type = q496; /* x204166 stalin.sc:28307:972580 */ t20217.s0.tag = STRING_TYPE; t20217.s0.value.string_type = "GLUnurbsObj"; /* x204167 stalin.sc:28307:972580 */ t20217.s1.tag = NULL_TYPE; /* x204168 stalin.sc:28307:972580 */ t20216.s1.tag = STRUCTURE_TYPE24753; t20216.s1.value.structure_type24753 = &t20217; /* x204169 stalin.sc:28307:972580 */ t20215.s0.tag = STRUCTURE_TYPE24753; t20215.s0.value.structure_type24753 = &t20216; /* x204170 stalin.sc:28307:972580 */ t20215.s1.tag = NULL_TYPE; /* x204171 stalin.sc:28307:972580 */ t20214.s1.tag = STRUCTURE_TYPE24753; t20214.s1.value.structure_type24753 = &t20215; /* x204149 stalin.sc:28308:972634 */ t20221.s0.tag = EXTERNAL_SYMBOL_TYPE; t20221.s0.value.external_symbol_type = q63; /* x204150 stalin.sc:28308:972634 */ t20223.s0.tag = EXTERNAL_SYMBOL_TYPE; t20223.s0.value.external_symbol_type = q496; /* x204151 stalin.sc:28308:972634 */ t20224.s0.tag = STRING_TYPE; t20224.s0.value.string_type = "GLUtriangulatorObj"; /* x204152 stalin.sc:28308:972634 */ t20224.s1.tag = NULL_TYPE; /* x204153 stalin.sc:28308:972634 */ t20223.s1.tag = STRUCTURE_TYPE24753; t20223.s1.value.structure_type24753 = &t20224; /* x204154 stalin.sc:28308:972634 */ t20222.s0.tag = STRUCTURE_TYPE24753; t20222.s0.value.structure_type24753 = &t20223; /* x204155 stalin.sc:28308:972634 */ t20222.s1.tag = NULL_TYPE; /* x204156 stalin.sc:28308:972634 */ t20221.s1.tag = STRUCTURE_TYPE24753; t20221.s1.value.structure_type24753 = &t20222; /* x204134 stalin.sc:28309:972695 */ t20228.s0.tag = EXTERNAL_SYMBOL_TYPE; t20228.s0.value.external_symbol_type = q63; /* x204135 stalin.sc:28309:972695 */ t20230.s0.tag = EXTERNAL_SYMBOL_TYPE; t20230.s0.value.external_symbol_type = q63; /* x204136 stalin.sc:28309:972695 */ t20231.s0.tag = EXTERNAL_SYMBOL_TYPE; t20231.s0.value.external_symbol_type = q496; /* x204137 stalin.sc:28309:972695 */ t20231.s1.tag = NULL_TYPE; /* x204138 stalin.sc:28309:972695 */ t20230.s1.tag = STRUCTURE_TYPE24753; t20230.s1.value.structure_type24753 = &t20231; /* x204139 stalin.sc:28309:972695 */ t20229.s0.tag = STRUCTURE_TYPE24753; t20229.s0.value.structure_type24753 = &t20230; /* x204140 stalin.sc:28309:972695 */ t20229.s1.tag = NULL_TYPE; /* x204141 stalin.sc:28309:972695 */ t20228.s1.tag = STRUCTURE_TYPE24753; t20228.s1.value.structure_type24753 = &t20229; /* x204115 stalin.sc:28310:972743 */ t20235.s0.tag = EXTERNAL_SYMBOL_TYPE; t20235.s0.value.external_symbol_type = q63; /* x204116 stalin.sc:28310:972743 */ t20237.s0.tag = EXTERNAL_SYMBOL_TYPE; t20237.s0.value.external_symbol_type = q63; /* x204117 stalin.sc:28310:972743 */ t20239.s0.tag = EXTERNAL_SYMBOL_TYPE; t20239.s0.value.external_symbol_type = q63; /* x204118 stalin.sc:28310:972743 */ t20240.s0.tag = EXTERNAL_SYMBOL_TYPE; t20240.s0.value.external_symbol_type = q496; /* x204119 stalin.sc:28310:972743 */ t20240.s1.tag = NULL_TYPE; /* x204120 stalin.sc:28310:972743 */ t20239.s1.tag = STRUCTURE_TYPE24753; t20239.s1.value.structure_type24753 = &t20240; /* x204121 stalin.sc:28310:972743 */ t20238.s0.tag = STRUCTURE_TYPE24753; t20238.s0.value.structure_type24753 = &t20239; /* x204122 stalin.sc:28310:972743 */ t20238.s1.tag = NULL_TYPE; /* x204123 stalin.sc:28310:972743 */ t20237.s1.tag = STRUCTURE_TYPE24753; t20237.s1.value.structure_type24753 = &t20238; /* x204124 stalin.sc:28310:972743 */ t20236.s0.tag = STRUCTURE_TYPE24753; t20236.s0.value.structure_type24753 = &t20237; /* x204125 stalin.sc:28310:972743 */ t20236.s1.tag = NULL_TYPE; /* x204126 stalin.sc:28310:972743 */ t20235.s1.tag = STRUCTURE_TYPE24753; t20235.s1.value.structure_type24753 = &t20236; /* x204105 stalin.sc:28311:972801 */ t20244.s0.tag = EXTERNAL_SYMBOL_TYPE; t20244.s0.value.external_symbol_type = q63; /* x204106 stalin.sc:28311:972801 */ t20245.s0.tag = EXTERNAL_SYMBOL_TYPE; t20245.s0.value.external_symbol_type = q495; /* x204107 stalin.sc:28311:972801 */ t20245.s1.tag = NULL_TYPE; /* x204108 stalin.sc:28311:972801 */ t20244.s1.tag = STRUCTURE_TYPE24753; t20244.s1.value.structure_type24753 = &t20245; /* x203980 */ t20260.s0.tag = EXTERNAL_SYMBOL_TYPE; t20260.s0.value.external_symbol_type = q39; /* x203981 */ t20261.s0.tag = NULL_TYPE; /* x203982 */ t20261.s1.tag = NULL_TYPE; /* x203983 */ t20260.s1.tag = STRUCTURE_TYPE24753; t20260.s1.value.structure_type24753 = &t20261; /* x203984 */ t20259.s0.tag = STRUCTURE_TYPE24753; t20259.s0.value.structure_type24753 = &t20260; /* x203985 */ t20259.s1.tag = NULL_TYPE; /* x186532 */ t20353.s0.tag = EXTERNAL_SYMBOL_TYPE; t20353.s0.value.external_symbol_type = q357; /* x186533 */ t20353.s1.tag = NULL_TYPE; /* x186536 */ t20358.s0.tag = EXTERNAL_SYMBOL_TYPE; t20358.s0.value.external_symbol_type = q97; /* x186537 */ t20360.s0.tag = EXTERNAL_SYMBOL_TYPE; t20360.s0.value.external_symbol_type = q102; /* x186538 */ t20361.s0.tag = EXTERNAL_SYMBOL_TYPE; t20361.s0.value.external_symbol_type = q318; /* x186539 */ t20361.s1.tag = NULL_TYPE; /* x186540 */ t20360.s1.tag = STRUCTURE_TYPE24753; t20360.s1.value.structure_type24753 = &t20361; /* x186541 */ t20359.s0.tag = STRUCTURE_TYPE24753; t20359.s0.value.structure_type24753 = &t20360; /* x186542 */ t20364.s0.tag = EXTERNAL_SYMBOL_TYPE; t20364.s0.value.external_symbol_type = q77; /* x186543 */ t20365.s0.tag = EXTERNAL_SYMBOL_TYPE; t20365.s0.value.external_symbol_type = q102; /* x186544 */ t20365.s1.tag = NULL_TYPE; /* x186545 */ t20364.s1.tag = STRUCTURE_TYPE24753; t20364.s1.value.structure_type24753 = &t20365; /* x186546 */ t20363.s0.tag = STRUCTURE_TYPE24753; t20363.s0.value.structure_type24753 = &t20364; /* x186547 */ t20366.s0.tag = EXTERNAL_SYMBOL_TYPE; t20366.s0.value.external_symbol_type = q318; /* x186548 */ t20366.s1.tag = NULL_TYPE; /* x186549 */ t20363.s1.tag = STRUCTURE_TYPE24753; t20363.s1.value.structure_type24753 = &t20366; /* x186550 */ t20362.s0.tag = STRUCTURE_TYPE24753; t20362.s0.value.structure_type24753 = &t20363; /* x186551 */ t20362.s1.tag = NULL_TYPE; /* x186552 */ t20359.s1.tag = STRUCTURE_TYPE24753; t20359.s1.value.structure_type24753 = &t20362; /* x186553 */ t20358.s1.tag = STRUCTURE_TYPE24753; t20358.s1.value.structure_type24753 = &t20359; /* x186556 */ t20371.s0.tag = EXTERNAL_SYMBOL_TYPE; t20371.s0.value.external_symbol_type = q97; /* x186557 */ t20373.s0.tag = EXTERNAL_SYMBOL_TYPE; t20373.s0.value.external_symbol_type = q103; /* x186558 */ t20374.s0.tag = EXTERNAL_SYMBOL_TYPE; t20374.s0.value.external_symbol_type = q318; /* x186559 */ t20374.s1.tag = NULL_TYPE; /* x186560 */ t20373.s1.tag = STRUCTURE_TYPE24753; t20373.s1.value.structure_type24753 = &t20374; /* x186561 */ t20372.s0.tag = STRUCTURE_TYPE24753; t20372.s0.value.structure_type24753 = &t20373; /* x186562 */ t20377.s0.tag = EXTERNAL_SYMBOL_TYPE; t20377.s0.value.external_symbol_type = q77; /* x186563 */ t20378.s0.tag = EXTERNAL_SYMBOL_TYPE; t20378.s0.value.external_symbol_type = q103; /* x186564 */ t20378.s1.tag = NULL_TYPE; /* x186565 */ t20377.s1.tag = STRUCTURE_TYPE24753; t20377.s1.value.structure_type24753 = &t20378; /* x186566 */ t20376.s0.tag = STRUCTURE_TYPE24753; t20376.s0.value.structure_type24753 = &t20377; /* x186567 */ t20379.s0.tag = EXTERNAL_SYMBOL_TYPE; t20379.s0.value.external_symbol_type = q318; /* x186568 */ t20379.s1.tag = NULL_TYPE; /* x186569 */ t20376.s1.tag = STRUCTURE_TYPE24753; t20376.s1.value.structure_type24753 = &t20379; /* x186570 */ t20375.s0.tag = STRUCTURE_TYPE24753; t20375.s0.value.structure_type24753 = &t20376; /* x186571 */ t20375.s1.tag = NULL_TYPE; /* x186572 */ t20372.s1.tag = STRUCTURE_TYPE24753; t20372.s1.value.structure_type24753 = &t20375; /* x186573 */ t20371.s1.tag = STRUCTURE_TYPE24753; t20371.s1.value.structure_type24753 = &t20372; /* x186576 */ t20384.s0.tag = EXTERNAL_SYMBOL_TYPE; t20384.s0.value.external_symbol_type = q97; /* x186577 */ t20386.s0.tag = EXTERNAL_SYMBOL_TYPE; t20386.s0.value.external_symbol_type = q358; /* x186578 */ t20387.s0.tag = EXTERNAL_SYMBOL_TYPE; t20387.s0.value.external_symbol_type = q359; /* x186579 */ t20388.s0.tag = EXTERNAL_SYMBOL_TYPE; t20388.s0.value.external_symbol_type = q360; /* x186580 */ t20388.s1.tag = NULL_TYPE; /* x186581 */ t20387.s1.tag = STRUCTURE_TYPE24753; t20387.s1.value.structure_type24753 = &t20388; /* x186582 */ t20386.s1.tag = STRUCTURE_TYPE24753; t20386.s1.value.structure_type24753 = &t20387; /* x186583 */ t20385.s0.tag = STRUCTURE_TYPE24753; t20385.s0.value.structure_type24753 = &t20386; /* x186584 */ t20390.s0.tag = EXTERNAL_SYMBOL_TYPE; t20390.s0.value.external_symbol_type = q241; /* x186585 */ t20392.s0.tag = EXTERNAL_SYMBOL_TYPE; t20392.s0.value.external_symbol_type = q104; /* x186586 */ t20393.s0.tag = EXTERNAL_SYMBOL_TYPE; t20393.s0.value.external_symbol_type = q359; /* x186587 */ t20394.s0.tag = EXTERNAL_SYMBOL_TYPE; t20394.s0.value.external_symbol_type = q360; /* x186588 */ t20394.s1.tag = NULL_TYPE; /* x186589 */ t20393.s1.tag = STRUCTURE_TYPE24753; t20393.s1.value.structure_type24753 = &t20394; /* x186590 */ t20392.s1.tag = STRUCTURE_TYPE24753; t20392.s1.value.structure_type24753 = &t20393; /* x186591 */ t20391.s0.tag = STRUCTURE_TYPE24753; t20391.s0.value.structure_type24753 = &t20392; /* x186592 */ t20396.s0.tag = EXTERNAL_SYMBOL_TYPE; t20396.s0.value.external_symbol_type = q244; /* x186593 */ t20398.s0.tag = EXTERNAL_SYMBOL_TYPE; t20398.s0.value.external_symbol_type = q115; /* x186594 */ t20399.s0.tag = EXTERNAL_SYMBOL_TYPE; t20399.s0.value.external_symbol_type = q359; /* x186595 */ t20399.s1.tag = NULL_TYPE; /* x186596 */ t20398.s1.tag = STRUCTURE_TYPE24753; t20398.s1.value.structure_type24753 = &t20399; /* x186597 */ t20397.s0.tag = STRUCTURE_TYPE24753; t20397.s0.value.structure_type24753 = &t20398; /* x186598 */ t20401.s0.tag = EXTERNAL_SYMBOL_TYPE; t20401.s0.value.external_symbol_type = q115; /* x186599 */ t20402.s0.tag = EXTERNAL_SYMBOL_TYPE; t20402.s0.value.external_symbol_type = q360; /* x186600 */ t20402.s1.tag = NULL_TYPE; /* x186601 */ t20401.s1.tag = STRUCTURE_TYPE24753; t20401.s1.value.structure_type24753 = &t20402; /* x186602 */ t20400.s0.tag = STRUCTURE_TYPE24753; t20400.s0.value.structure_type24753 = &t20401; /* x186603 */ t20404.s0.tag = EXTERNAL_SYMBOL_TYPE; t20404.s0.value.external_symbol_type = q120; /* x186604 */ t20405.s0.tag = EXTERNAL_SYMBOL_TYPE; t20405.s0.value.external_symbol_type = q359; /* x186605 */ t20406.s0.tag = EXTERNAL_SYMBOL_TYPE; t20406.s0.value.external_symbol_type = q360; /* x186606 */ t20406.s1.tag = NULL_TYPE; /* x186607 */ t20405.s1.tag = STRUCTURE_TYPE24753; t20405.s1.value.structure_type24753 = &t20406; /* x186608 */ t20404.s1.tag = STRUCTURE_TYPE24753; t20404.s1.value.structure_type24753 = &t20405; /* x186609 */ t20403.s0.tag = STRUCTURE_TYPE24753; t20403.s0.value.structure_type24753 = &t20404; /* x186610 */ t20403.s1.tag = NULL_TYPE; /* x186611 */ t20400.s1.tag = STRUCTURE_TYPE24753; t20400.s1.value.structure_type24753 = &t20403; /* x186612 */ t20397.s1.tag = STRUCTURE_TYPE24753; t20397.s1.value.structure_type24753 = &t20400; /* x186613 */ t20396.s1.tag = STRUCTURE_TYPE24753; t20396.s1.value.structure_type24753 = &t20397; /* x186614 */ t20395.s0.tag = STRUCTURE_TYPE24753; t20395.s0.value.structure_type24753 = &t20396; /* x186615 */ t20408.s0.tag = EXTERNAL_SYMBOL_TYPE; t20408.s0.value.external_symbol_type = q244; /* x186616 */ t20410.s0.tag = EXTERNAL_SYMBOL_TYPE; t20410.s0.value.external_symbol_type = q159; /* x186617 */ t20411.s0.tag = EXTERNAL_SYMBOL_TYPE; t20411.s0.value.external_symbol_type = q359; /* x186618 */ t20411.s1.tag = NULL_TYPE; /* x186619 */ t20410.s1.tag = STRUCTURE_TYPE24753; t20410.s1.value.structure_type24753 = &t20411; /* x186620 */ t20409.s0.tag = STRUCTURE_TYPE24753; t20409.s0.value.structure_type24753 = &t20410; /* x186621 */ t20413.s0.tag = EXTERNAL_SYMBOL_TYPE; t20413.s0.value.external_symbol_type = q159; /* x186622 */ t20414.s0.tag = EXTERNAL_SYMBOL_TYPE; t20414.s0.value.external_symbol_type = q360; /* x186623 */ t20414.s1.tag = NULL_TYPE; /* x186624 */ t20413.s1.tag = STRUCTURE_TYPE24753; t20413.s1.value.structure_type24753 = &t20414; /* x186625 */ t20412.s0.tag = STRUCTURE_TYPE24753; t20412.s0.value.structure_type24753 = &t20413; /* x186626 */ t20416.s0.tag = EXTERNAL_SYMBOL_TYPE; t20416.s0.value.external_symbol_type = q125; /* x186627 */ t20418.s0.tag = EXTERNAL_SYMBOL_TYPE; t20418.s0.value.external_symbol_type = q162; /* x186628 */ t20419.s0.tag = EXTERNAL_SYMBOL_TYPE; t20419.s0.value.external_symbol_type = q359; /* x186629 */ t20419.s1.tag = NULL_TYPE; /* x186630 */ t20418.s1.tag = STRUCTURE_TYPE24753; t20418.s1.value.structure_type24753 = &t20419; /* x186631 */ t20417.s0.tag = STRUCTURE_TYPE24753; t20417.s0.value.structure_type24753 = &t20418; /* x186632 */ t20417.s1.tag = NULL_TYPE; /* x186633 */ t20416.s1.tag = STRUCTURE_TYPE24753; t20416.s1.value.structure_type24753 = &t20417; /* x186634 */ t20415.s0.tag = STRUCTURE_TYPE24753; t20415.s0.value.structure_type24753 = &t20416; /* x186635 */ t20421.s0.tag = EXTERNAL_SYMBOL_TYPE; t20421.s0.value.external_symbol_type = q125; /* x186636 */ t20423.s0.tag = EXTERNAL_SYMBOL_TYPE; t20423.s0.value.external_symbol_type = q162; /* x186637 */ t20424.s0.tag = EXTERNAL_SYMBOL_TYPE; t20424.s0.value.external_symbol_type = q360; /* x186638 */ t20424.s1.tag = NULL_TYPE; /* x186639 */ t20423.s1.tag = STRUCTURE_TYPE24753; t20423.s1.value.structure_type24753 = &t20424; /* x186640 */ t20422.s0.tag = STRUCTURE_TYPE24753; t20422.s0.value.structure_type24753 = &t20423; /* x186641 */ t20422.s1.tag = NULL_TYPE; /* x186642 */ t20421.s1.tag = STRUCTURE_TYPE24753; t20421.s1.value.structure_type24753 = &t20422; /* x186643 */ t20420.s0.tag = STRUCTURE_TYPE24753; t20420.s0.value.structure_type24753 = &t20421; /* x186644 */ t20420.s1.tag = NULL_TYPE; /* x186645 */ t20415.s1.tag = STRUCTURE_TYPE24753; t20415.s1.value.structure_type24753 = &t20420; /* x186646 */ t20412.s1.tag = STRUCTURE_TYPE24753; t20412.s1.value.structure_type24753 = &t20415; /* x186647 */ t20409.s1.tag = STRUCTURE_TYPE24753; t20409.s1.value.structure_type24753 = &t20412; /* x186648 */ t20408.s1.tag = STRUCTURE_TYPE24753; t20408.s1.value.structure_type24753 = &t20409; /* x186649 */ t20407.s0.tag = STRUCTURE_TYPE24753; t20407.s0.value.structure_type24753 = &t20408; /* x186650 */ t20426.s0.tag = EXTERNAL_SYMBOL_TYPE; t20426.s0.value.external_symbol_type = q244; /* x186651 */ t20428.s0.tag = EXTERNAL_SYMBOL_TYPE; t20428.s0.value.external_symbol_type = q165; /* x186652 */ t20429.s0.tag = EXTERNAL_SYMBOL_TYPE; t20429.s0.value.external_symbol_type = q359; /* x186653 */ t20429.s1.tag = NULL_TYPE; /* x186654 */ t20428.s1.tag = STRUCTURE_TYPE24753; t20428.s1.value.structure_type24753 = &t20429; /* x186655 */ t20427.s0.tag = STRUCTURE_TYPE24753; t20427.s0.value.structure_type24753 = &t20428; /* x186656 */ t20431.s0.tag = EXTERNAL_SYMBOL_TYPE; t20431.s0.value.external_symbol_type = q165; /* x186657 */ t20432.s0.tag = EXTERNAL_SYMBOL_TYPE; t20432.s0.value.external_symbol_type = q360; /* x186658 */ t20432.s1.tag = NULL_TYPE; /* x186659 */ t20431.s1.tag = STRUCTURE_TYPE24753; t20431.s1.value.structure_type24753 = &t20432; /* x186660 */ t20430.s0.tag = STRUCTURE_TYPE24753; t20430.s0.value.structure_type24753 = &t20431; /* x186661 */ t20434.s0.tag = EXTERNAL_SYMBOL_TYPE; t20434.s0.value.external_symbol_type = q125; /* x186662 */ t20436.s0.tag = EXTERNAL_SYMBOL_TYPE; t20436.s0.value.external_symbol_type = q168; /* x186663 */ t20437.s0.tag = EXTERNAL_SYMBOL_TYPE; t20437.s0.value.external_symbol_type = q359; /* x186664 */ t20437.s1.tag = NULL_TYPE; /* x186665 */ t20436.s1.tag = STRUCTURE_TYPE24753; t20436.s1.value.structure_type24753 = &t20437; /* x186666 */ t20435.s0.tag = STRUCTURE_TYPE24753; t20435.s0.value.structure_type24753 = &t20436; /* x186667 */ t20435.s1.tag = NULL_TYPE; /* x186668 */ t20434.s1.tag = STRUCTURE_TYPE24753; t20434.s1.value.structure_type24753 = &t20435; /* x186669 */ t20433.s0.tag = STRUCTURE_TYPE24753; t20433.s0.value.structure_type24753 = &t20434; /* x186670 */ t20439.s0.tag = EXTERNAL_SYMBOL_TYPE; t20439.s0.value.external_symbol_type = q125; /* x186671 */ t20441.s0.tag = EXTERNAL_SYMBOL_TYPE; t20441.s0.value.external_symbol_type = q168; /* x186672 */ t20442.s0.tag = EXTERNAL_SYMBOL_TYPE; t20442.s0.value.external_symbol_type = q360; /* x186673 */ t20442.s1.tag = NULL_TYPE; /* x186674 */ t20441.s1.tag = STRUCTURE_TYPE24753; t20441.s1.value.structure_type24753 = &t20442; /* x186675 */ t20440.s0.tag = STRUCTURE_TYPE24753; t20440.s0.value.structure_type24753 = &t20441; /* x186676 */ t20440.s1.tag = NULL_TYPE; /* x186677 */ t20439.s1.tag = STRUCTURE_TYPE24753; t20439.s1.value.structure_type24753 = &t20440; /* x186678 */ t20438.s0.tag = STRUCTURE_TYPE24753; t20438.s0.value.structure_type24753 = &t20439; /* x186679 */ t20438.s1.tag = NULL_TYPE; /* x186680 */ t20433.s1.tag = STRUCTURE_TYPE24753; t20433.s1.value.structure_type24753 = &t20438; /* x186681 */ t20430.s1.tag = STRUCTURE_TYPE24753; t20430.s1.value.structure_type24753 = &t20433; /* x186682 */ t20427.s1.tag = STRUCTURE_TYPE24753; t20427.s1.value.structure_type24753 = &t20430; /* x186683 */ t20426.s1.tag = STRUCTURE_TYPE24753; t20426.s1.value.structure_type24753 = &t20427; /* x186684 */ t20425.s0.tag = STRUCTURE_TYPE24753; t20425.s0.value.structure_type24753 = &t20426; /* x186685 */ t20425.s1.tag = NULL_TYPE; /* x186686 */ t20407.s1.tag = STRUCTURE_TYPE24753; t20407.s1.value.structure_type24753 = &t20425; /* x186687 */ t20395.s1.tag = STRUCTURE_TYPE24753; t20395.s1.value.structure_type24753 = &t20407; /* x186688 */ t20391.s1.tag = STRUCTURE_TYPE24753; t20391.s1.value.structure_type24753 = &t20395; /* x186689 */ t20390.s1.tag = STRUCTURE_TYPE24753; t20390.s1.value.structure_type24753 = &t20391; /* x186690 */ t20389.s0.tag = STRUCTURE_TYPE24753; t20389.s0.value.structure_type24753 = &t20390; /* x186691 */ t20389.s1.tag = NULL_TYPE; /* x186692 */ t20385.s1.tag = STRUCTURE_TYPE24753; t20385.s1.value.structure_type24753 = &t20389; /* x186693 */ t20384.s1.tag = STRUCTURE_TYPE24753; t20384.s1.value.structure_type24753 = &t20385; /* x186696 */ t20447.s0.tag = EXTERNAL_SYMBOL_TYPE; t20447.s0.value.external_symbol_type = q97; /* x186697 */ t20449.s0.tag = EXTERNAL_SYMBOL_TYPE; t20449.s0.value.external_symbol_type = q104; /* x186698 */ t20450.s0.tag = EXTERNAL_SYMBOL_TYPE; t20450.s0.value.external_symbol_type = q359; /* x186699 */ t20451.s0.tag = EXTERNAL_SYMBOL_TYPE; t20451.s0.value.external_symbol_type = q360; /* x186700 */ t20451.s1.tag = NULL_TYPE; /* x186701 */ t20450.s1.tag = STRUCTURE_TYPE24753; t20450.s1.value.structure_type24753 = &t20451; /* x186702 */ t20449.s1.tag = STRUCTURE_TYPE24753; t20449.s1.value.structure_type24753 = &t20450; /* x186703 */ t20448.s0.tag = STRUCTURE_TYPE24753; t20448.s0.value.structure_type24753 = &t20449; /* x186704 */ t20454.s0.tag = EXTERNAL_SYMBOL_TYPE; t20454.s0.value.external_symbol_type = q77; /* x186705 */ t20455.s0.tag = EXTERNAL_SYMBOL_TYPE; t20455.s0.value.external_symbol_type = q104; /* x186706 */ t20455.s1.tag = NULL_TYPE; /* x186707 */ t20454.s1.tag = STRUCTURE_TYPE24753; t20454.s1.value.structure_type24753 = &t20455; /* x186708 */ t20453.s0.tag = STRUCTURE_TYPE24753; t20453.s0.value.structure_type24753 = &t20454; /* x186709 */ t20456.s0.tag = EXTERNAL_SYMBOL_TYPE; t20456.s0.value.external_symbol_type = q359; /* x186710 */ t20457.s0.tag = EXTERNAL_SYMBOL_TYPE; t20457.s0.value.external_symbol_type = q360; /* x186711 */ t20457.s1.tag = NULL_TYPE; /* x186712 */ t20456.s1.tag = STRUCTURE_TYPE24753; t20456.s1.value.structure_type24753 = &t20457; /* x186713 */ t20453.s1.tag = STRUCTURE_TYPE24753; t20453.s1.value.structure_type24753 = &t20456; /* x186714 */ t20452.s0.tag = STRUCTURE_TYPE24753; t20452.s0.value.structure_type24753 = &t20453; /* x186715 */ t20452.s1.tag = NULL_TYPE; /* x186716 */ t20448.s1.tag = STRUCTURE_TYPE24753; t20448.s1.value.structure_type24753 = &t20452; /* x186717 */ t20447.s1.tag = STRUCTURE_TYPE24753; t20447.s1.value.structure_type24753 = &t20448; /* x186720 */ t20462.s0.tag = EXTERNAL_SYMBOL_TYPE; t20462.s0.value.external_symbol_type = q97; /* x186721 */ t20464.s0.tag = EXTERNAL_SYMBOL_TYPE; t20464.s0.value.external_symbol_type = q361; /* x186722 */ t20465.s0.tag = EXTERNAL_SYMBOL_TYPE; t20465.s0.value.external_symbol_type = q359; /* x186723 */ t20466.s0.tag = EXTERNAL_SYMBOL_TYPE; t20466.s0.value.external_symbol_type = q360; /* x186724 */ t20466.s1.tag = NULL_TYPE; /* x186725 */ t20465.s1.tag = STRUCTURE_TYPE24753; t20465.s1.value.structure_type24753 = &t20466; /* x186726 */ t20464.s1.tag = STRUCTURE_TYPE24753; t20464.s1.value.structure_type24753 = &t20465; /* x186727 */ t20463.s0.tag = STRUCTURE_TYPE24753; t20463.s0.value.structure_type24753 = &t20464; /* x186728 */ t20468.s0.tag = EXTERNAL_SYMBOL_TYPE; t20468.s0.value.external_symbol_type = q241; /* x186729 */ t20470.s0.tag = EXTERNAL_SYMBOL_TYPE; t20470.s0.value.external_symbol_type = q358; /* x186730 */ t20471.s0.tag = EXTERNAL_SYMBOL_TYPE; t20471.s0.value.external_symbol_type = q359; /* x186731 */ t20472.s0.tag = EXTERNAL_SYMBOL_TYPE; t20472.s0.value.external_symbol_type = q360; /* x186732 */ t20472.s1.tag = NULL_TYPE; /* x186733 */ t20471.s1.tag = STRUCTURE_TYPE24753; t20471.s1.value.structure_type24753 = &t20472; /* x186734 */ t20470.s1.tag = STRUCTURE_TYPE24753; t20470.s1.value.structure_type24753 = &t20471; /* x186735 */ t20469.s0.tag = STRUCTURE_TYPE24753; t20469.s0.value.structure_type24753 = &t20470; /* x186736 */ t20474.s0.tag = EXTERNAL_SYMBOL_TYPE; t20474.s0.value.external_symbol_type = q244; /* x186737 */ t20476.s0.tag = EXTERNAL_SYMBOL_TYPE; t20476.s0.value.external_symbol_type = q105; /* x186738 */ t20477.s0.tag = EXTERNAL_SYMBOL_TYPE; t20477.s0.value.external_symbol_type = q359; /* x186739 */ t20477.s1.tag = NULL_TYPE; /* x186740 */ t20476.s1.tag = STRUCTURE_TYPE24753; t20476.s1.value.structure_type24753 = &t20477; /* x186741 */ t20475.s0.tag = STRUCTURE_TYPE24753; t20475.s0.value.structure_type24753 = &t20476; /* x186742 */ t20479.s0.tag = EXTERNAL_SYMBOL_TYPE; t20479.s0.value.external_symbol_type = q105; /* x186743 */ t20480.s0.tag = EXTERNAL_SYMBOL_TYPE; t20480.s0.value.external_symbol_type = q360; /* x186744 */ t20480.s1.tag = NULL_TYPE; /* x186745 */ t20479.s1.tag = STRUCTURE_TYPE24753; t20479.s1.value.structure_type24753 = &t20480; /* x186746 */ t20478.s0.tag = STRUCTURE_TYPE24753; t20478.s0.value.structure_type24753 = &t20479; /* x186747 */ t20482.s0.tag = EXTERNAL_SYMBOL_TYPE; t20482.s0.value.external_symbol_type = q361; /* x186748 */ t20484.s0.tag = EXTERNAL_SYMBOL_TYPE; t20484.s0.value.external_symbol_type = q107; /* x186749 */ t20485.s0.tag = EXTERNAL_SYMBOL_TYPE; t20485.s0.value.external_symbol_type = q359; /* x186750 */ t20485.s1.tag = NULL_TYPE; /* x186751 */ t20484.s1.tag = STRUCTURE_TYPE24753; t20484.s1.value.structure_type24753 = &t20485; /* x186752 */ t20483.s0.tag = STRUCTURE_TYPE24753; t20483.s0.value.structure_type24753 = &t20484; /* x186753 */ t20487.s0.tag = EXTERNAL_SYMBOL_TYPE; t20487.s0.value.external_symbol_type = q107; /* x186754 */ t20488.s0.tag = EXTERNAL_SYMBOL_TYPE; t20488.s0.value.external_symbol_type = q360; /* x186755 */ t20488.s1.tag = NULL_TYPE; /* x186756 */ t20487.s1.tag = STRUCTURE_TYPE24753; t20487.s1.value.structure_type24753 = &t20488; /* x186757 */ t20486.s0.tag = STRUCTURE_TYPE24753; t20486.s0.value.structure_type24753 = &t20487; /* x186758 */ t20486.s1.tag = NULL_TYPE; /* x186759 */ t20483.s1.tag = STRUCTURE_TYPE24753; t20483.s1.value.structure_type24753 = &t20486; /* x186760 */ t20482.s1.tag = STRUCTURE_TYPE24753; t20482.s1.value.structure_type24753 = &t20483; /* x186761 */ t20481.s0.tag = STRUCTURE_TYPE24753; t20481.s0.value.structure_type24753 = &t20482; /* x186762 */ t20490.s0.tag = EXTERNAL_SYMBOL_TYPE; t20490.s0.value.external_symbol_type = q361; /* x186763 */ t20492.s0.tag = EXTERNAL_SYMBOL_TYPE; t20492.s0.value.external_symbol_type = q108; /* x186764 */ t20493.s0.tag = EXTERNAL_SYMBOL_TYPE; t20493.s0.value.external_symbol_type = q359; /* x186765 */ t20493.s1.tag = NULL_TYPE; /* x186766 */ t20492.s1.tag = STRUCTURE_TYPE24753; t20492.s1.value.structure_type24753 = &t20493; /* x186767 */ t20491.s0.tag = STRUCTURE_TYPE24753; t20491.s0.value.structure_type24753 = &t20492; /* x186768 */ t20495.s0.tag = EXTERNAL_SYMBOL_TYPE; t20495.s0.value.external_symbol_type = q108; /* x186769 */ t20496.s0.tag = EXTERNAL_SYMBOL_TYPE; t20496.s0.value.external_symbol_type = q360; /* x186770 */ t20496.s1.tag = NULL_TYPE; /* x186771 */ t20495.s1.tag = STRUCTURE_TYPE24753; t20495.s1.value.structure_type24753 = &t20496; /* x186772 */ t20494.s0.tag = STRUCTURE_TYPE24753; t20494.s0.value.structure_type24753 = &t20495; /* x186773 */ t20494.s1.tag = NULL_TYPE; /* x186774 */ t20491.s1.tag = STRUCTURE_TYPE24753; t20491.s1.value.structure_type24753 = &t20494; /* x186775 */ t20490.s1.tag = STRUCTURE_TYPE24753; t20490.s1.value.structure_type24753 = &t20491; /* x186776 */ t20489.s0.tag = STRUCTURE_TYPE24753; t20489.s0.value.structure_type24753 = &t20490; /* x186777 */ t20489.s1.tag = NULL_TYPE; /* x186778 */ t20481.s1.tag = STRUCTURE_TYPE24753; t20481.s1.value.structure_type24753 = &t20489; /* x186779 */ t20478.s1.tag = STRUCTURE_TYPE24753; t20478.s1.value.structure_type24753 = &t20481; /* x186780 */ t20475.s1.tag = STRUCTURE_TYPE24753; t20475.s1.value.structure_type24753 = &t20478; /* x186781 */ t20474.s1.tag = STRUCTURE_TYPE24753; t20474.s1.value.structure_type24753 = &t20475; /* x186782 */ t20473.s0.tag = STRUCTURE_TYPE24753; t20473.s0.value.structure_type24753 = &t20474; /* x186783 */ t20498.s0.tag = EXTERNAL_SYMBOL_TYPE; t20498.s0.value.external_symbol_type = q244; /* x186784 */ t20500.s0.tag = EXTERNAL_SYMBOL_TYPE; t20500.s0.value.external_symbol_type = q159; /* x186785 */ t20501.s0.tag = EXTERNAL_SYMBOL_TYPE; t20501.s0.value.external_symbol_type = q359; /* x186786 */ t20501.s1.tag = NULL_TYPE; /* x186787 */ t20500.s1.tag = STRUCTURE_TYPE24753; t20500.s1.value.structure_type24753 = &t20501; /* x186788 */ t20499.s0.tag = STRUCTURE_TYPE24753; t20499.s0.value.structure_type24753 = &t20500; /* x186789 */ t20503.s0.tag = EXTERNAL_SYMBOL_TYPE; t20503.s0.value.external_symbol_type = q159; /* x186790 */ t20504.s0.tag = EXTERNAL_SYMBOL_TYPE; t20504.s0.value.external_symbol_type = q360; /* x186791 */ t20504.s1.tag = NULL_TYPE; /* x186792 */ t20503.s1.tag = STRUCTURE_TYPE24753; t20503.s1.value.structure_type24753 = &t20504; /* x186793 */ t20502.s0.tag = STRUCTURE_TYPE24753; t20502.s0.value.structure_type24753 = &t20503; /* x186794 */ t20506.s0.tag = EXTERNAL_SYMBOL_TYPE; t20506.s0.value.external_symbol_type = q362; /* x186795 */ t20507.s0.tag = EXTERNAL_SYMBOL_TYPE; t20507.s0.value.external_symbol_type = q359; /* x186796 */ t20508.s0.tag = EXTERNAL_SYMBOL_TYPE; t20508.s0.value.external_symbol_type = q360; /* x186797 */ t20508.s1.tag = NULL_TYPE; /* x186798 */ t20507.s1.tag = STRUCTURE_TYPE24753; t20507.s1.value.structure_type24753 = &t20508; /* x186799 */ t20506.s1.tag = STRUCTURE_TYPE24753; t20506.s1.value.structure_type24753 = &t20507; /* x186800 */ t20505.s0.tag = STRUCTURE_TYPE24753; t20505.s0.value.structure_type24753 = &t20506; /* x186801 */ t20505.s1.tag = NULL_TYPE; /* x186802 */ t20502.s1.tag = STRUCTURE_TYPE24753; t20502.s1.value.structure_type24753 = &t20505; /* x186803 */ t20499.s1.tag = STRUCTURE_TYPE24753; t20499.s1.value.structure_type24753 = &t20502; /* x186804 */ t20498.s1.tag = STRUCTURE_TYPE24753; t20498.s1.value.structure_type24753 = &t20499; /* x186805 */ t20497.s0.tag = STRUCTURE_TYPE24753; t20497.s0.value.structure_type24753 = &t20498; /* x186806 */ t20510.s0.tag = EXTERNAL_SYMBOL_TYPE; t20510.s0.value.external_symbol_type = q244; /* x186807 */ t20512.s0.tag = EXTERNAL_SYMBOL_TYPE; t20512.s0.value.external_symbol_type = q165; /* x186808 */ t20513.s0.tag = EXTERNAL_SYMBOL_TYPE; t20513.s0.value.external_symbol_type = q359; /* x186809 */ t20513.s1.tag = NULL_TYPE; /* x186810 */ t20512.s1.tag = STRUCTURE_TYPE24753; t20512.s1.value.structure_type24753 = &t20513; /* x186811 */ t20511.s0.tag = STRUCTURE_TYPE24753; t20511.s0.value.structure_type24753 = &t20512; /* x186812 */ t20515.s0.tag = EXTERNAL_SYMBOL_TYPE; t20515.s0.value.external_symbol_type = q165; /* x186813 */ t20516.s0.tag = EXTERNAL_SYMBOL_TYPE; t20516.s0.value.external_symbol_type = q360; /* x186814 */ t20516.s1.tag = NULL_TYPE; /* x186815 */ t20515.s1.tag = STRUCTURE_TYPE24753; t20515.s1.value.structure_type24753 = &t20516; /* x186816 */ t20514.s0.tag = STRUCTURE_TYPE24753; t20514.s0.value.structure_type24753 = &t20515; /* x186817 */ t20518.s0.tag = EXTERNAL_SYMBOL_TYPE; t20518.s0.value.external_symbol_type = q120; /* x186818 */ t20520.s0.tag = EXTERNAL_SYMBOL_TYPE; t20520.s0.value.external_symbol_type = q168; /* x186819 */ t20521.s0.tag = EXTERNAL_SYMBOL_TYPE; t20521.s0.value.external_symbol_type = q359; /* x186820 */ t20521.s1.tag = NULL_TYPE; /* x186821 */ t20520.s1.tag = STRUCTURE_TYPE24753; t20520.s1.value.structure_type24753 = &t20521; /* x186822 */ t20519.s0.tag = STRUCTURE_TYPE24753; t20519.s0.value.structure_type24753 = &t20520; /* x186823 */ t20523.s0.tag = EXTERNAL_SYMBOL_TYPE; t20523.s0.value.external_symbol_type = q168; /* x186824 */ t20524.s0.tag = EXTERNAL_SYMBOL_TYPE; t20524.s0.value.external_symbol_type = q360; /* x186825 */ t20524.s1.tag = NULL_TYPE; /* x186826 */ t20523.s1.tag = STRUCTURE_TYPE24753; t20523.s1.value.structure_type24753 = &t20524; /* x186827 */ t20522.s0.tag = STRUCTURE_TYPE24753; t20522.s0.value.structure_type24753 = &t20523; /* x186828 */ t20522.s1.tag = NULL_TYPE; /* x186829 */ t20519.s1.tag = STRUCTURE_TYPE24753; t20519.s1.value.structure_type24753 = &t20522; /* x186830 */ t20518.s1.tag = STRUCTURE_TYPE24753; t20518.s1.value.structure_type24753 = &t20519; /* x186831 */ t20517.s0.tag = STRUCTURE_TYPE24753; t20517.s0.value.structure_type24753 = &t20518; /* x186832 */ t20526.s0.tag = EXTERNAL_SYMBOL_TYPE; t20526.s0.value.external_symbol_type = q242; /* x186833 */ t20527.s0.tag = EXTERNAL_SYMBOL_TYPE; t20527.s0.value.external_symbol_type = q289; /* x186834 */ t20530.s0.tag = EXTERNAL_SYMBOL_TYPE; t20530.s0.value.external_symbol_type = q337; /* x186835 */ t20531.s0.tag = FIXNUM_TYPE; t20531.s0.value.fixnum_type = 0; /* x186836 */ t20531.s1.tag = NULL_TYPE; /* x186837 */ t20530.s1.tag = STRUCTURE_TYPE24753; t20530.s1.value.structure_type24753 = &t20531; /* x186838 */ t20529.s0.tag = STRUCTURE_TYPE24753; t20529.s0.value.structure_type24753 = &t20530; /* x186839 */ t20529.s1.tag = NULL_TYPE; /* x186840 */ t20528.s0.tag = STRUCTURE_TYPE24753; t20528.s0.value.structure_type24753 = &t20529; /* x186841 */ t20533.s0.tag = EXTERNAL_SYMBOL_TYPE; t20533.s0.value.external_symbol_type = q241; /* x186842 */ t20535.s0.tag = EXTERNAL_SYMBOL_TYPE; t20535.s0.value.external_symbol_type = q120; /* x186843 */ t20536.s0.tag = EXTERNAL_SYMBOL_TYPE; t20536.s0.value.external_symbol_type = q337; /* x186844 */ t20538.s0.tag = EXTERNAL_SYMBOL_TYPE; t20538.s0.value.external_symbol_type = q168; /* x186845 */ t20539.s0.tag = EXTERNAL_SYMBOL_TYPE; t20539.s0.value.external_symbol_type = q359; /* x186846 */ t20539.s1.tag = NULL_TYPE; /* x186847 */ t20538.s1.tag = STRUCTURE_TYPE24753; t20538.s1.value.structure_type24753 = &t20539; /* x186848 */ t20537.s0.tag = STRUCTURE_TYPE24753; t20537.s0.value.structure_type24753 = &t20538; /* x186849 */ t20537.s1.tag = NULL_TYPE; /* x186850 */ t20536.s1.tag = STRUCTURE_TYPE24753; t20536.s1.value.structure_type24753 = &t20537; /* x186851 */ t20535.s1.tag = STRUCTURE_TYPE24753; t20535.s1.value.structure_type24753 = &t20536; /* x186852 */ t20534.s0.tag = STRUCTURE_TYPE24753; t20534.s0.value.structure_type24753 = &t20535; /* x186853 */ t20541.s0.tag = EXTERNAL_SYMBOL_TYPE; t20541.s0.value.external_symbol_type = q244; /* x186854 */ t20543.s0.tag = EXTERNAL_SYMBOL_TYPE; t20543.s0.value.external_symbol_type = q361; /* x186855 */ t20545.s0.tag = EXTERNAL_SYMBOL_TYPE; t20545.s0.value.external_symbol_type = q169; /* x186856 */ t20546.s0.tag = EXTERNAL_SYMBOL_TYPE; t20546.s0.value.external_symbol_type = q359; /* x186857 */ t20547.s0.tag = EXTERNAL_SYMBOL_TYPE; t20547.s0.value.external_symbol_type = q337; /* x186858 */ t20547.s1.tag = NULL_TYPE; /* x186859 */ t20546.s1.tag = STRUCTURE_TYPE24753; t20546.s1.value.structure_type24753 = &t20547; /* x186860 */ t20545.s1.tag = STRUCTURE_TYPE24753; t20545.s1.value.structure_type24753 = &t20546; /* x186861 */ t20544.s0.tag = STRUCTURE_TYPE24753; t20544.s0.value.structure_type24753 = &t20545; /* x186862 */ t20549.s0.tag = EXTERNAL_SYMBOL_TYPE; t20549.s0.value.external_symbol_type = q169; /* x186863 */ t20550.s0.tag = EXTERNAL_SYMBOL_TYPE; t20550.s0.value.external_symbol_type = q360; /* x186864 */ t20551.s0.tag = EXTERNAL_SYMBOL_TYPE; t20551.s0.value.external_symbol_type = q337; /* x186865 */ t20551.s1.tag = NULL_TYPE; /* x186866 */ t20550.s1.tag = STRUCTURE_TYPE24753; t20550.s1.value.structure_type24753 = &t20551; /* x186867 */ t20549.s1.tag = STRUCTURE_TYPE24753; t20549.s1.value.structure_type24753 = &t20550; /* x186868 */ t20548.s0.tag = STRUCTURE_TYPE24753; t20548.s0.value.structure_type24753 = &t20549; /* x186869 */ t20548.s1.tag = NULL_TYPE; /* x186870 */ t20544.s1.tag = STRUCTURE_TYPE24753; t20544.s1.value.structure_type24753 = &t20548; /* x186871 */ t20543.s1.tag = STRUCTURE_TYPE24753; t20543.s1.value.structure_type24753 = &t20544; /* x186872 */ t20542.s0.tag = STRUCTURE_TYPE24753; t20542.s0.value.structure_type24753 = &t20543; /* x186873 */ t20553.s0.tag = EXTERNAL_SYMBOL_TYPE; t20553.s0.value.external_symbol_type = q289; /* x186874 */ t20555.s0.tag = EXTERNAL_SYMBOL_TYPE; t20555.s0.value.external_symbol_type = q4; /* x186875 */ t20556.s0.tag = EXTERNAL_SYMBOL_TYPE; t20556.s0.value.external_symbol_type = q337; /* x186876 */ t20557.s0.tag = FIXNUM_TYPE; t20557.s0.value.fixnum_type = 1; /* x186877 */ t20557.s1.tag = NULL_TYPE; /* x186878 */ t20556.s1.tag = STRUCTURE_TYPE24753; t20556.s1.value.structure_type24753 = &t20557; /* x186879 */ t20555.s1.tag = STRUCTURE_TYPE24753; t20555.s1.value.structure_type24753 = &t20556; /* x186880 */ t20554.s0.tag = STRUCTURE_TYPE24753; t20554.s0.value.structure_type24753 = &t20555; /* x186881 */ t20554.s1.tag = NULL_TYPE; /* x186882 */ t20553.s1.tag = STRUCTURE_TYPE24753; t20553.s1.value.structure_type24753 = &t20554; /* x186883 */ t20552.s0.tag = STRUCTURE_TYPE24753; t20552.s0.value.structure_type24753 = &t20553; /* x186884 */ t20552.s1.tag = NULL_TYPE; /* x186885 */ t20542.s1.tag = STRUCTURE_TYPE24753; t20542.s1.value.structure_type24753 = &t20552; /* x186886 */ t20541.s1.tag = STRUCTURE_TYPE24753; t20541.s1.value.structure_type24753 = &t20542; /* x186887 */ t20540.s0.tag = STRUCTURE_TYPE24753; t20540.s0.value.structure_type24753 = &t20541; /* x186888 */ t20540.s1.tag = NULL_TYPE; /* x186889 */ t20534.s1.tag = STRUCTURE_TYPE24753; t20534.s1.value.structure_type24753 = &t20540; /* x186890 */ t20533.s1.tag = STRUCTURE_TYPE24753; t20533.s1.value.structure_type24753 = &t20534; /* x186891 */ t20532.s0.tag = STRUCTURE_TYPE24753; t20532.s0.value.structure_type24753 = &t20533; /* x186892 */ t20532.s1.tag = NULL_TYPE; /* x186893 */ t20528.s1.tag = STRUCTURE_TYPE24753; t20528.s1.value.structure_type24753 = &t20532; /* x186894 */ t20527.s1.tag = STRUCTURE_TYPE24753; t20527.s1.value.structure_type24753 = &t20528; /* x186895 */ t20526.s1.tag = STRUCTURE_TYPE24753; t20526.s1.value.structure_type24753 = &t20527; /* x186896 */ t20525.s0.tag = STRUCTURE_TYPE24753; t20525.s0.value.structure_type24753 = &t20526; /* x186897 */ t20525.s1.tag = NULL_TYPE; /* x186898 */ t20517.s1.tag = STRUCTURE_TYPE24753; t20517.s1.value.structure_type24753 = &t20525; /* x186899 */ t20514.s1.tag = STRUCTURE_TYPE24753; t20514.s1.value.structure_type24753 = &t20517; /* x186900 */ t20511.s1.tag = STRUCTURE_TYPE24753; t20511.s1.value.structure_type24753 = &t20514; /* x186901 */ t20510.s1.tag = STRUCTURE_TYPE24753; t20510.s1.value.structure_type24753 = &t20511; /* x186902 */ t20509.s0.tag = STRUCTURE_TYPE24753; t20509.s0.value.structure_type24753 = &t20510; /* x186903 */ t20509.s1.tag = NULL_TYPE; /* x186904 */ t20497.s1.tag = STRUCTURE_TYPE24753; t20497.s1.value.structure_type24753 = &t20509; /* x186905 */ t20473.s1.tag = STRUCTURE_TYPE24753; t20473.s1.value.structure_type24753 = &t20497; /* x186906 */ t20469.s1.tag = STRUCTURE_TYPE24753; t20469.s1.value.structure_type24753 = &t20473; /* x186907 */ t20468.s1.tag = STRUCTURE_TYPE24753; t20468.s1.value.structure_type24753 = &t20469; /* x186908 */ t20467.s0.tag = STRUCTURE_TYPE24753; t20467.s0.value.structure_type24753 = &t20468; /* x186909 */ t20467.s1.tag = NULL_TYPE; /* x186910 */ t20463.s1.tag = STRUCTURE_TYPE24753; t20463.s1.value.structure_type24753 = &t20467; /* x186911 */ t20462.s1.tag = STRUCTURE_TYPE24753; t20462.s1.value.structure_type24753 = &t20463; /* x186914 */ t20562.s0.tag = EXTERNAL_SYMBOL_TYPE; t20562.s0.value.external_symbol_type = q97; /* x186915 */ t20564.s0.tag = EXTERNAL_SYMBOL_TYPE; t20564.s0.value.external_symbol_type = q105; /* x186916 */ t20565.s0.tag = EXTERNAL_SYMBOL_TYPE; t20565.s0.value.external_symbol_type = q318; /* x186917 */ t20565.s1.tag = NULL_TYPE; /* x186918 */ t20564.s1.tag = STRUCTURE_TYPE24753; t20564.s1.value.structure_type24753 = &t20565; /* x186919 */ t20563.s0.tag = STRUCTURE_TYPE24753; t20563.s0.value.structure_type24753 = &t20564; /* x186920 */ t20568.s0.tag = EXTERNAL_SYMBOL_TYPE; t20568.s0.value.external_symbol_type = q77; /* x186921 */ t20569.s0.tag = EXTERNAL_SYMBOL_TYPE; t20569.s0.value.external_symbol_type = q101; /* x186922 */ t20570.s0.tag = EXTERNAL_SYMBOL_TYPE; t20570.s0.value.external_symbol_type = q51; /* x186923 */ t20570.s1.tag = NULL_TYPE; /* x186924 */ t20569.s1.tag = STRUCTURE_TYPE24753; t20569.s1.value.structure_type24753 = &t20570; /* x186925 */ t20568.s1.tag = STRUCTURE_TYPE24753; t20568.s1.value.structure_type24753 = &t20569; /* x186926 */ t20567.s0.tag = STRUCTURE_TYPE24753; t20567.s0.value.structure_type24753 = &t20568; /* x186927 */ t20571.s0.tag = EXTERNAL_SYMBOL_TYPE; t20571.s0.value.external_symbol_type = q318; /* x186928 */ t20571.s1.tag = NULL_TYPE; /* x186929 */ t20567.s1.tag = STRUCTURE_TYPE24753; t20567.s1.value.structure_type24753 = &t20571; /* x186930 */ t20566.s0.tag = STRUCTURE_TYPE24753; t20566.s0.value.structure_type24753 = &t20567; /* x186931 */ t20566.s1.tag = NULL_TYPE; /* x186932 */ t20563.s1.tag = STRUCTURE_TYPE24753; t20563.s1.value.structure_type24753 = &t20566; /* x186933 */ t20562.s1.tag = STRUCTURE_TYPE24753; t20562.s1.value.structure_type24753 = &t20563; /* x186936 */ t20576.s0.tag = EXTERNAL_SYMBOL_TYPE; t20576.s0.value.external_symbol_type = q97; /* x186937 */ t20578.s0.tag = EXTERNAL_SYMBOL_TYPE; t20578.s0.value.external_symbol_type = q106; /* x186938 */ t20579.s0.tag = EXTERNAL_SYMBOL_TYPE; t20579.s0.value.external_symbol_type = q359; /* x186939 */ t20580.s0.tag = EXTERNAL_SYMBOL_TYPE; t20580.s0.value.external_symbol_type = q360; /* x186940 */ t20580.s1.tag = NULL_TYPE; /* x186941 */ t20579.s1.tag = STRUCTURE_TYPE24753; t20579.s1.value.structure_type24753 = &t20580; /* x186942 */ t20578.s1.tag = STRUCTURE_TYPE24753; t20578.s1.value.structure_type24753 = &t20579; /* x186943 */ t20577.s0.tag = STRUCTURE_TYPE24753; t20577.s0.value.structure_type24753 = &t20578; /* x186944 */ t20583.s0.tag = EXTERNAL_SYMBOL_TYPE; t20583.s0.value.external_symbol_type = q77; /* x186945 */ t20584.s0.tag = EXTERNAL_SYMBOL_TYPE; t20584.s0.value.external_symbol_type = q98; /* x186946 */ t20585.s0.tag = EXTERNAL_SYMBOL_TYPE; t20585.s0.value.external_symbol_type = q51; /* x186947 */ t20586.s0.tag = FIXNUM_TYPE; t20586.s0.value.fixnum_type = 2; /* x186948 */ t20586.s1.tag = NULL_TYPE; /* x186949 */ t20585.s1.tag = STRUCTURE_TYPE24753; t20585.s1.value.structure_type24753 = &t20586; /* x186950 */ t20584.s1.tag = STRUCTURE_TYPE24753; t20584.s1.value.structure_type24753 = &t20585; /* x186951 */ t20583.s1.tag = STRUCTURE_TYPE24753; t20583.s1.value.structure_type24753 = &t20584; /* x186952 */ t20582.s0.tag = STRUCTURE_TYPE24753; t20582.s0.value.structure_type24753 = &t20583; /* x186953 */ t20587.s0.tag = EXTERNAL_SYMBOL_TYPE; t20587.s0.value.external_symbol_type = q359; /* x186954 */ t20588.s0.tag = EXTERNAL_SYMBOL_TYPE; t20588.s0.value.external_symbol_type = q360; /* x186955 */ t20588.s1.tag = NULL_TYPE; /* x186956 */ t20587.s1.tag = STRUCTURE_TYPE24753; t20587.s1.value.structure_type24753 = &t20588; /* x186957 */ t20582.s1.tag = STRUCTURE_TYPE24753; t20582.s1.value.structure_type24753 = &t20587; /* x186958 */ t20581.s0.tag = STRUCTURE_TYPE24753; t20581.s0.value.structure_type24753 = &t20582; /* x186959 */ t20581.s1.tag = NULL_TYPE; /* x186960 */ t20577.s1.tag = STRUCTURE_TYPE24753; t20577.s1.value.structure_type24753 = &t20581; /* x186961 */ t20576.s1.tag = STRUCTURE_TYPE24753; t20576.s1.value.structure_type24753 = &t20577; /* x186964 */ t20593.s0.tag = EXTERNAL_SYMBOL_TYPE; t20593.s0.value.external_symbol_type = q97; /* x186965 */ t20595.s0.tag = EXTERNAL_SYMBOL_TYPE; t20595.s0.value.external_symbol_type = q107; /* x186966 */ t20596.s0.tag = EXTERNAL_SYMBOL_TYPE; t20596.s0.value.external_symbol_type = q51; /* x186967 */ t20596.s1.tag = NULL_TYPE; /* x186968 */ t20595.s1.tag = STRUCTURE_TYPE24753; t20595.s1.value.structure_type24753 = &t20596; /* x186969 */ t20594.s0.tag = STRUCTURE_TYPE24753; t20594.s0.value.structure_type24753 = &t20595; /* x186970 */ t20599.s0.tag = EXTERNAL_SYMBOL_TYPE; t20599.s0.value.external_symbol_type = q77; /* x186971 */ t20600.s0.tag = EXTERNAL_SYMBOL_TYPE; t20600.s0.value.external_symbol_type = q99; /* x186972 */ t20601.s0.tag = EXTERNAL_SYMBOL_TYPE; t20601.s0.value.external_symbol_type = q51; /* x186973 */ t20602.s0.tag = FIXNUM_TYPE; t20602.s0.value.fixnum_type = 0; /* x186974 */ t20602.s1.tag = NULL_TYPE; /* x186975 */ t20601.s1.tag = STRUCTURE_TYPE24753; t20601.s1.value.structure_type24753 = &t20602; /* x186976 */ t20600.s1.tag = STRUCTURE_TYPE24753; t20600.s1.value.structure_type24753 = &t20601; /* x186977 */ t20599.s1.tag = STRUCTURE_TYPE24753; t20599.s1.value.structure_type24753 = &t20600; /* x186978 */ t20598.s0.tag = STRUCTURE_TYPE24753; t20598.s0.value.structure_type24753 = &t20599; /* x186979 */ t20603.s0.tag = EXTERNAL_SYMBOL_TYPE; t20603.s0.value.external_symbol_type = q51; /* x186980 */ t20603.s1.tag = NULL_TYPE; /* x186981 */ t20598.s1.tag = STRUCTURE_TYPE24753; t20598.s1.value.structure_type24753 = &t20603; /* x186982 */ t20597.s0.tag = STRUCTURE_TYPE24753; t20597.s0.value.structure_type24753 = &t20598; /* x186983 */ t20597.s1.tag = NULL_TYPE; /* x186984 */ t20594.s1.tag = STRUCTURE_TYPE24753; t20594.s1.value.structure_type24753 = &t20597; /* x186985 */ t20593.s1.tag = STRUCTURE_TYPE24753; t20593.s1.value.structure_type24753 = &t20594; /* x186988 */ t20608.s0.tag = EXTERNAL_SYMBOL_TYPE; t20608.s0.value.external_symbol_type = q97; /* x186989 */ t20610.s0.tag = EXTERNAL_SYMBOL_TYPE; t20610.s0.value.external_symbol_type = q108; /* x186990 */ t20611.s0.tag = EXTERNAL_SYMBOL_TYPE; t20611.s0.value.external_symbol_type = q51; /* x186991 */ t20611.s1.tag = NULL_TYPE; /* x186992 */ t20610.s1.tag = STRUCTURE_TYPE24753; t20610.s1.value.structure_type24753 = &t20611; /* x186993 */ t20609.s0.tag = STRUCTURE_TYPE24753; t20609.s0.value.structure_type24753 = &t20610; /* x186994 */ t20614.s0.tag = EXTERNAL_SYMBOL_TYPE; t20614.s0.value.external_symbol_type = q77; /* x186995 */ t20615.s0.tag = EXTERNAL_SYMBOL_TYPE; t20615.s0.value.external_symbol_type = q99; /* x186996 */ t20616.s0.tag = EXTERNAL_SYMBOL_TYPE; t20616.s0.value.external_symbol_type = q51; /* x186997 */ t20617.s0.tag = FIXNUM_TYPE; t20617.s0.value.fixnum_type = 1; /* x186998 */ t20617.s1.tag = NULL_TYPE; /* x186999 */ t20616.s1.tag = STRUCTURE_TYPE24753; t20616.s1.value.structure_type24753 = &t20617; /* x187000 */ t20615.s1.tag = STRUCTURE_TYPE24753; t20615.s1.value.structure_type24753 = &t20616; /* x187001 */ t20614.s1.tag = STRUCTURE_TYPE24753; t20614.s1.value.structure_type24753 = &t20615; /* x187002 */ t20613.s0.tag = STRUCTURE_TYPE24753; t20613.s0.value.structure_type24753 = &t20614; /* x187003 */ t20618.s0.tag = EXTERNAL_SYMBOL_TYPE; t20618.s0.value.external_symbol_type = q51; /* x187004 */ t20618.s1.tag = NULL_TYPE; /* x187005 */ t20613.s1.tag = STRUCTURE_TYPE24753; t20613.s1.value.structure_type24753 = &t20618; /* x187006 */ t20612.s0.tag = STRUCTURE_TYPE24753; t20612.s0.value.structure_type24753 = &t20613; /* x187007 */ t20612.s1.tag = NULL_TYPE; /* x187008 */ t20609.s1.tag = STRUCTURE_TYPE24753; t20609.s1.value.structure_type24753 = &t20612; /* x187009 */ t20608.s1.tag = STRUCTURE_TYPE24753; t20608.s1.value.structure_type24753 = &t20609; /* x187012 */ t20623.s0.tag = EXTERNAL_SYMBOL_TYPE; t20623.s0.value.external_symbol_type = q97; /* x187013 */ t20625.s0.tag = EXTERNAL_SYMBOL_TYPE; t20625.s0.value.external_symbol_type = q109; /* x187014 */ t20626.s0.tag = EXTERNAL_SYMBOL_TYPE; t20626.s0.value.external_symbol_type = q51; /* x187015 */ t20627.s0.tag = EXTERNAL_SYMBOL_TYPE; t20627.s0.value.external_symbol_type = q318; /* x187016 */ t20627.s1.tag = NULL_TYPE; /* x187017 */ t20626.s1.tag = STRUCTURE_TYPE24753; t20626.s1.value.structure_type24753 = &t20627; /* x187018 */ t20625.s1.tag = STRUCTURE_TYPE24753; t20625.s1.value.structure_type24753 = &t20626; /* x187019 */ t20624.s0.tag = STRUCTURE_TYPE24753; t20624.s0.value.structure_type24753 = &t20625; /* x187020 */ t20630.s0.tag = EXTERNAL_SYMBOL_TYPE; t20630.s0.value.external_symbol_type = q77; /* x187021 */ t20631.s0.tag = EXTERNAL_SYMBOL_TYPE; t20631.s0.value.external_symbol_type = q100; /* x187022 */ t20632.s0.tag = EXTERNAL_SYMBOL_TYPE; t20632.s0.value.external_symbol_type = q51; /* x187023 */ t20633.s0.tag = FIXNUM_TYPE; t20633.s0.value.fixnum_type = 0; /* x187024 */ t20633.s1.tag = NULL_TYPE; /* x187025 */ t20632.s1.tag = STRUCTURE_TYPE24753; t20632.s1.value.structure_type24753 = &t20633; /* x187026 */ t20631.s1.tag = STRUCTURE_TYPE24753; t20631.s1.value.structure_type24753 = &t20632; /* x187027 */ t20630.s1.tag = STRUCTURE_TYPE24753; t20630.s1.value.structure_type24753 = &t20631; /* x187028 */ t20629.s0.tag = STRUCTURE_TYPE24753; t20629.s0.value.structure_type24753 = &t20630; /* x187029 */ t20634.s0.tag = EXTERNAL_SYMBOL_TYPE; t20634.s0.value.external_symbol_type = q51; /* x187030 */ t20635.s0.tag = EXTERNAL_SYMBOL_TYPE; t20635.s0.value.external_symbol_type = q318; /* x187031 */ t20635.s1.tag = NULL_TYPE; /* x187032 */ t20634.s1.tag = STRUCTURE_TYPE24753; t20634.s1.value.structure_type24753 = &t20635; /* x187033 */ t20629.s1.tag = STRUCTURE_TYPE24753; t20629.s1.value.structure_type24753 = &t20634; /* x187034 */ t20628.s0.tag = STRUCTURE_TYPE24753; t20628.s0.value.structure_type24753 = &t20629; /* x187035 */ t20628.s1.tag = NULL_TYPE; /* x187036 */ t20624.s1.tag = STRUCTURE_TYPE24753; t20624.s1.value.structure_type24753 = &t20628; /* x187037 */ t20623.s1.tag = STRUCTURE_TYPE24753; t20623.s1.value.structure_type24753 = &t20624; /* x187040 */ t20640.s0.tag = EXTERNAL_SYMBOL_TYPE; t20640.s0.value.external_symbol_type = q97; /* x187041 */ t20642.s0.tag = EXTERNAL_SYMBOL_TYPE; t20642.s0.value.external_symbol_type = q110; /* x187042 */ t20643.s0.tag = EXTERNAL_SYMBOL_TYPE; t20643.s0.value.external_symbol_type = q51; /* x187043 */ t20644.s0.tag = EXTERNAL_SYMBOL_TYPE; t20644.s0.value.external_symbol_type = q318; /* x187044 */ t20644.s1.tag = NULL_TYPE; /* x187045 */ t20643.s1.tag = STRUCTURE_TYPE24753; t20643.s1.value.structure_type24753 = &t20644; /* x187046 */ t20642.s1.tag = STRUCTURE_TYPE24753; t20642.s1.value.structure_type24753 = &t20643; /* x187047 */ t20641.s0.tag = STRUCTURE_TYPE24753; t20641.s0.value.structure_type24753 = &t20642; /* x187048 */ t20647.s0.tag = EXTERNAL_SYMBOL_TYPE; t20647.s0.value.external_symbol_type = q77; /* x187049 */ t20648.s0.tag = EXTERNAL_SYMBOL_TYPE; t20648.s0.value.external_symbol_type = q100; /* x187050 */ t20649.s0.tag = EXTERNAL_SYMBOL_TYPE; t20649.s0.value.external_symbol_type = q51; /* x187051 */ t20650.s0.tag = FIXNUM_TYPE; t20650.s0.value.fixnum_type = 1; /* x187052 */ t20650.s1.tag = NULL_TYPE; /* x187053 */ t20649.s1.tag = STRUCTURE_TYPE24753; t20649.s1.value.structure_type24753 = &t20650; /* x187054 */ t20648.s1.tag = STRUCTURE_TYPE24753; t20648.s1.value.structure_type24753 = &t20649; /* x187055 */ t20647.s1.tag = STRUCTURE_TYPE24753; t20647.s1.value.structure_type24753 = &t20648; /* x187056 */ t20646.s0.tag = STRUCTURE_TYPE24753; t20646.s0.value.structure_type24753 = &t20647; /* x187057 */ t20651.s0.tag = EXTERNAL_SYMBOL_TYPE; t20651.s0.value.external_symbol_type = q51; /* x187058 */ t20652.s0.tag = EXTERNAL_SYMBOL_TYPE; t20652.s0.value.external_symbol_type = q318; /* x187059 */ t20652.s1.tag = NULL_TYPE; /* x187060 */ t20651.s1.tag = STRUCTURE_TYPE24753; t20651.s1.value.structure_type24753 = &t20652; /* x187061 */ t20646.s1.tag = STRUCTURE_TYPE24753; t20646.s1.value.structure_type24753 = &t20651; /* x187062 */ t20645.s0.tag = STRUCTURE_TYPE24753; t20645.s0.value.structure_type24753 = &t20646; /* x187063 */ t20645.s1.tag = NULL_TYPE; /* x187064 */ t20641.s1.tag = STRUCTURE_TYPE24753; t20641.s1.value.structure_type24753 = &t20645; /* x187065 */ t20640.s1.tag = STRUCTURE_TYPE24753; t20640.s1.value.structure_type24753 = &t20641; /* x187068 */ t20657.s0.tag = EXTERNAL_SYMBOL_TYPE; t20657.s0.value.external_symbol_type = q97; /* x187069 */ t20659.s0.tag = EXTERNAL_SYMBOL_TYPE; t20659.s0.value.external_symbol_type = q363; /* x187070 */ t20660.s0.tag = EXTERNAL_SYMBOL_TYPE; t20660.s0.value.external_symbol_type = q51; /* x187071 */ t20660.s1.tag = NULL_TYPE; /* x187072 */ t20659.s1.tag = STRUCTURE_TYPE24753; t20659.s1.value.structure_type24753 = &t20660; /* x187073 */ t20658.s0.tag = STRUCTURE_TYPE24753; t20658.s0.value.structure_type24753 = &t20659; /* x187074 */ t20662.s0.tag = EXTERNAL_SYMBOL_TYPE; t20662.s0.value.external_symbol_type = q107; /* x187075 */ t20664.s0.tag = EXTERNAL_SYMBOL_TYPE; t20664.s0.value.external_symbol_type = q107; /* x187076 */ t20665.s0.tag = EXTERNAL_SYMBOL_TYPE; t20665.s0.value.external_symbol_type = q51; /* x187077 */ t20665.s1.tag = NULL_TYPE; /* x187078 */ t20664.s1.tag = STRUCTURE_TYPE24753; t20664.s1.value.structure_type24753 = &t20665; /* x187079 */ t20663.s0.tag = STRUCTURE_TYPE24753; t20663.s0.value.structure_type24753 = &t20664; /* x187080 */ t20663.s1.tag = NULL_TYPE; /* x187081 */ t20662.s1.tag = STRUCTURE_TYPE24753; t20662.s1.value.structure_type24753 = &t20663; /* x187082 */ t20661.s0.tag = STRUCTURE_TYPE24753; t20661.s0.value.structure_type24753 = &t20662; /* x187083 */ t20661.s1.tag = NULL_TYPE; /* x187084 */ t20658.s1.tag = STRUCTURE_TYPE24753; t20658.s1.value.structure_type24753 = &t20661; /* x187085 */ t20657.s1.tag = STRUCTURE_TYPE24753; t20657.s1.value.structure_type24753 = &t20658; /* x187088 */ t20670.s0.tag = EXTERNAL_SYMBOL_TYPE; t20670.s0.value.external_symbol_type = q97; /* x187089 */ t20672.s0.tag = EXTERNAL_SYMBOL_TYPE; t20672.s0.value.external_symbol_type = q364; /* x187090 */ t20673.s0.tag = EXTERNAL_SYMBOL_TYPE; t20673.s0.value.external_symbol_type = q51; /* x187091 */ t20673.s1.tag = NULL_TYPE; /* x187092 */ t20672.s1.tag = STRUCTURE_TYPE24753; t20672.s1.value.structure_type24753 = &t20673; /* x187093 */ t20671.s0.tag = STRUCTURE_TYPE24753; t20671.s0.value.structure_type24753 = &t20672; /* x187094 */ t20675.s0.tag = EXTERNAL_SYMBOL_TYPE; t20675.s0.value.external_symbol_type = q107; /* x187095 */ t20677.s0.tag = EXTERNAL_SYMBOL_TYPE; t20677.s0.value.external_symbol_type = q108; /* x187096 */ t20678.s0.tag = EXTERNAL_SYMBOL_TYPE; t20678.s0.value.external_symbol_type = q51; /* x187097 */ t20678.s1.tag = NULL_TYPE; /* x187098 */ t20677.s1.tag = STRUCTURE_TYPE24753; t20677.s1.value.structure_type24753 = &t20678; /* x187099 */ t20676.s0.tag = STRUCTURE_TYPE24753; t20676.s0.value.structure_type24753 = &t20677; /* x187100 */ t20676.s1.tag = NULL_TYPE; /* x187101 */ t20675.s1.tag = STRUCTURE_TYPE24753; t20675.s1.value.structure_type24753 = &t20676; /* x187102 */ t20674.s0.tag = STRUCTURE_TYPE24753; t20674.s0.value.structure_type24753 = &t20675; /* x187103 */ t20674.s1.tag = NULL_TYPE; /* x187104 */ t20671.s1.tag = STRUCTURE_TYPE24753; t20671.s1.value.structure_type24753 = &t20674; /* x187105 */ t20670.s1.tag = STRUCTURE_TYPE24753; t20670.s1.value.structure_type24753 = &t20671; /* x187108 */ t20683.s0.tag = EXTERNAL_SYMBOL_TYPE; t20683.s0.value.external_symbol_type = q97; /* x187109 */ t20685.s0.tag = EXTERNAL_SYMBOL_TYPE; t20685.s0.value.external_symbol_type = q365; /* x187110 */ t20686.s0.tag = EXTERNAL_SYMBOL_TYPE; t20686.s0.value.external_symbol_type = q51; /* x187111 */ t20686.s1.tag = NULL_TYPE; /* x187112 */ t20685.s1.tag = STRUCTURE_TYPE24753; t20685.s1.value.structure_type24753 = &t20686; /* x187113 */ t20684.s0.tag = STRUCTURE_TYPE24753; t20684.s0.value.structure_type24753 = &t20685; /* x187114 */ t20688.s0.tag = EXTERNAL_SYMBOL_TYPE; t20688.s0.value.external_symbol_type = q108; /* x187115 */ t20690.s0.tag = EXTERNAL_SYMBOL_TYPE; t20690.s0.value.external_symbol_type = q107; /* x187116 */ t20691.s0.tag = EXTERNAL_SYMBOL_TYPE; t20691.s0.value.external_symbol_type = q51; /* x187117 */ t20691.s1.tag = NULL_TYPE; /* x187118 */ t20690.s1.tag = STRUCTURE_TYPE24753; t20690.s1.value.structure_type24753 = &t20691; /* x187119 */ t20689.s0.tag = STRUCTURE_TYPE24753; t20689.s0.value.structure_type24753 = &t20690; /* x187120 */ t20689.s1.tag = NULL_TYPE; /* x187121 */ t20688.s1.tag = STRUCTURE_TYPE24753; t20688.s1.value.structure_type24753 = &t20689; /* x187122 */ t20687.s0.tag = STRUCTURE_TYPE24753; t20687.s0.value.structure_type24753 = &t20688; /* x187123 */ t20687.s1.tag = NULL_TYPE; /* x187124 */ t20684.s1.tag = STRUCTURE_TYPE24753; t20684.s1.value.structure_type24753 = &t20687; /* x187125 */ t20683.s1.tag = STRUCTURE_TYPE24753; t20683.s1.value.structure_type24753 = &t20684; /* x187128 */ t20696.s0.tag = EXTERNAL_SYMBOL_TYPE; t20696.s0.value.external_symbol_type = q97; /* x187129 */ t20698.s0.tag = EXTERNAL_SYMBOL_TYPE; t20698.s0.value.external_symbol_type = q366; /* x187130 */ t20699.s0.tag = EXTERNAL_SYMBOL_TYPE; t20699.s0.value.external_symbol_type = q51; /* x187131 */ t20699.s1.tag = NULL_TYPE; /* x187132 */ t20698.s1.tag = STRUCTURE_TYPE24753; t20698.s1.value.structure_type24753 = &t20699; /* x187133 */ t20697.s0.tag = STRUCTURE_TYPE24753; t20697.s0.value.structure_type24753 = &t20698; /* x187134 */ t20701.s0.tag = EXTERNAL_SYMBOL_TYPE; t20701.s0.value.external_symbol_type = q108; /* x187135 */ t20703.s0.tag = EXTERNAL_SYMBOL_TYPE; t20703.s0.value.external_symbol_type = q108; /* x187136 */ t20704.s0.tag = EXTERNAL_SYMBOL_TYPE; t20704.s0.value.external_symbol_type = q51; /* x187137 */ t20704.s1.tag = NULL_TYPE; /* x187138 */ t20703.s1.tag = STRUCTURE_TYPE24753; t20703.s1.value.structure_type24753 = &t20704; /* x187139 */ t20702.s0.tag = STRUCTURE_TYPE24753; t20702.s0.value.structure_type24753 = &t20703; /* x187140 */ t20702.s1.tag = NULL_TYPE; /* x187141 */ t20701.s1.tag = STRUCTURE_TYPE24753; t20701.s1.value.structure_type24753 = &t20702; /* x187142 */ t20700.s0.tag = STRUCTURE_TYPE24753; t20700.s0.value.structure_type24753 = &t20701; /* x187143 */ t20700.s1.tag = NULL_TYPE; /* x187144 */ t20697.s1.tag = STRUCTURE_TYPE24753; t20697.s1.value.structure_type24753 = &t20700; /* x187145 */ t20696.s1.tag = STRUCTURE_TYPE24753; t20696.s1.value.structure_type24753 = &t20697; /* x187148 */ t20709.s0.tag = EXTERNAL_SYMBOL_TYPE; t20709.s0.value.external_symbol_type = q97; /* x187149 */ t20711.s0.tag = EXTERNAL_SYMBOL_TYPE; t20711.s0.value.external_symbol_type = q367; /* x187150 */ t20712.s0.tag = EXTERNAL_SYMBOL_TYPE; t20712.s0.value.external_symbol_type = q51; /* x187151 */ t20712.s1.tag = NULL_TYPE; /* x187152 */ t20711.s1.tag = STRUCTURE_TYPE24753; t20711.s1.value.structure_type24753 = &t20712; /* x187153 */ t20710.s0.tag = STRUCTURE_TYPE24753; t20710.s0.value.structure_type24753 = &t20711; /* x187154 */ t20714.s0.tag = EXTERNAL_SYMBOL_TYPE; t20714.s0.value.external_symbol_type = q107; /* x187155 */ t20716.s0.tag = EXTERNAL_SYMBOL_TYPE; t20716.s0.value.external_symbol_type = q107; /* x187156 */ t20718.s0.tag = EXTERNAL_SYMBOL_TYPE; t20718.s0.value.external_symbol_type = q107; /* x187157 */ t20719.s0.tag = EXTERNAL_SYMBOL_TYPE; t20719.s0.value.external_symbol_type = q51; /* x187158 */ t20719.s1.tag = NULL_TYPE; /* x187159 */ t20718.s1.tag = STRUCTURE_TYPE24753; t20718.s1.value.structure_type24753 = &t20719; /* x187160 */ t20717.s0.tag = STRUCTURE_TYPE24753; t20717.s0.value.structure_type24753 = &t20718; /* x187161 */ t20717.s1.tag = NULL_TYPE; /* x187162 */ t20716.s1.tag = STRUCTURE_TYPE24753; t20716.s1.value.structure_type24753 = &t20717; /* x187163 */ t20715.s0.tag = STRUCTURE_TYPE24753; t20715.s0.value.structure_type24753 = &t20716; /* x187164 */ t20715.s1.tag = NULL_TYPE; /* x187165 */ t20714.s1.tag = STRUCTURE_TYPE24753; t20714.s1.value.structure_type24753 = &t20715; /* x187166 */ t20713.s0.tag = STRUCTURE_TYPE24753; t20713.s0.value.structure_type24753 = &t20714; /* x187167 */ t20713.s1.tag = NULL_TYPE; /* x187168 */ t20710.s1.tag = STRUCTURE_TYPE24753; t20710.s1.value.structure_type24753 = &t20713; /* x187169 */ t20709.s1.tag = STRUCTURE_TYPE24753; t20709.s1.value.structure_type24753 = &t20710; /* x187172 */ t20724.s0.tag = EXTERNAL_SYMBOL_TYPE; t20724.s0.value.external_symbol_type = q97; /* x187173 */ t20726.s0.tag = EXTERNAL_SYMBOL_TYPE; t20726.s0.value.external_symbol_type = q368; /* x187174 */ t20727.s0.tag = EXTERNAL_SYMBOL_TYPE; t20727.s0.value.external_symbol_type = q51; /* x187175 */ t20727.s1.tag = NULL_TYPE; /* x187176 */ t20726.s1.tag = STRUCTURE_TYPE24753; t20726.s1.value.structure_type24753 = &t20727; /* x187177 */ t20725.s0.tag = STRUCTURE_TYPE24753; t20725.s0.value.structure_type24753 = &t20726; /* x187178 */ t20729.s0.tag = EXTERNAL_SYMBOL_TYPE; t20729.s0.value.external_symbol_type = q107; /* x187179 */ t20731.s0.tag = EXTERNAL_SYMBOL_TYPE; t20731.s0.value.external_symbol_type = q107; /* x187180 */ t20733.s0.tag = EXTERNAL_SYMBOL_TYPE; t20733.s0.value.external_symbol_type = q108; /* x187181 */ t20734.s0.tag = EXTERNAL_SYMBOL_TYPE; t20734.s0.value.external_symbol_type = q51; /* x187182 */ t20734.s1.tag = NULL_TYPE; /* x187183 */ t20733.s1.tag = STRUCTURE_TYPE24753; t20733.s1.value.structure_type24753 = &t20734; /* x187184 */ t20732.s0.tag = STRUCTURE_TYPE24753; t20732.s0.value.structure_type24753 = &t20733; /* x187185 */ t20732.s1.tag = NULL_TYPE; /* x187186 */ t20731.s1.tag = STRUCTURE_TYPE24753; t20731.s1.value.structure_type24753 = &t20732; /* x187187 */ t20730.s0.tag = STRUCTURE_TYPE24753; t20730.s0.value.structure_type24753 = &t20731; /* x187188 */ t20730.s1.tag = NULL_TYPE; /* x187189 */ t20729.s1.tag = STRUCTURE_TYPE24753; t20729.s1.value.structure_type24753 = &t20730; /* x187190 */ t20728.s0.tag = STRUCTURE_TYPE24753; t20728.s0.value.structure_type24753 = &t20729; /* x187191 */ t20728.s1.tag = NULL_TYPE; /* x187192 */ t20725.s1.tag = STRUCTURE_TYPE24753; t20725.s1.value.structure_type24753 = &t20728; /* x187193 */ t20724.s1.tag = STRUCTURE_TYPE24753; t20724.s1.value.structure_type24753 = &t20725; /* x187196 */ t20739.s0.tag = EXTERNAL_SYMBOL_TYPE; t20739.s0.value.external_symbol_type = q97; /* x187197 */ t20741.s0.tag = EXTERNAL_SYMBOL_TYPE; t20741.s0.value.external_symbol_type = q369; /* x187198 */ t20742.s0.tag = EXTERNAL_SYMBOL_TYPE; t20742.s0.value.external_symbol_type = q51; /* x187199 */ t20742.s1.tag = NULL_TYPE; /* x187200 */ t20741.s1.tag = STRUCTURE_TYPE24753; t20741.s1.value.structure_type24753 = &t20742; /* x187201 */ t20740.s0.tag = STRUCTURE_TYPE24753; t20740.s0.value.structure_type24753 = &t20741; /* x187202 */ t20744.s0.tag = EXTERNAL_SYMBOL_TYPE; t20744.s0.value.external_symbol_type = q107; /* x187203 */ t20746.s0.tag = EXTERNAL_SYMBOL_TYPE; t20746.s0.value.external_symbol_type = q108; /* x187204 */ t20748.s0.tag = EXTERNAL_SYMBOL_TYPE; t20748.s0.value.external_symbol_type = q107; /* x187205 */ t20749.s0.tag = EXTERNAL_SYMBOL_TYPE; t20749.s0.value.external_symbol_type = q51; /* x187206 */ t20749.s1.tag = NULL_TYPE; /* x187207 */ t20748.s1.tag = STRUCTURE_TYPE24753; t20748.s1.value.structure_type24753 = &t20749; /* x187208 */ t20747.s0.tag = STRUCTURE_TYPE24753; t20747.s0.value.structure_type24753 = &t20748; /* x187209 */ t20747.s1.tag = NULL_TYPE; /* x187210 */ t20746.s1.tag = STRUCTURE_TYPE24753; t20746.s1.value.structure_type24753 = &t20747; /* x187211 */ t20745.s0.tag = STRUCTURE_TYPE24753; t20745.s0.value.structure_type24753 = &t20746; /* x187212 */ t20745.s1.tag = NULL_TYPE; /* x187213 */ t20744.s1.tag = STRUCTURE_TYPE24753; t20744.s1.value.structure_type24753 = &t20745; /* x187214 */ t20743.s0.tag = STRUCTURE_TYPE24753; t20743.s0.value.structure_type24753 = &t20744; /* x187215 */ t20743.s1.tag = NULL_TYPE; /* x187216 */ t20740.s1.tag = STRUCTURE_TYPE24753; t20740.s1.value.structure_type24753 = &t20743; /* x187217 */ t20739.s1.tag = STRUCTURE_TYPE24753; t20739.s1.value.structure_type24753 = &t20740; /* x187220 */ t20754.s0.tag = EXTERNAL_SYMBOL_TYPE; t20754.s0.value.external_symbol_type = q97; /* x187221 */ t20756.s0.tag = EXTERNAL_SYMBOL_TYPE; t20756.s0.value.external_symbol_type = q370; /* x187222 */ t20757.s0.tag = EXTERNAL_SYMBOL_TYPE; t20757.s0.value.external_symbol_type = q51; /* x187223 */ t20757.s1.tag = NULL_TYPE; /* x187224 */ t20756.s1.tag = STRUCTURE_TYPE24753; t20756.s1.value.structure_type24753 = &t20757; /* x187225 */ t20755.s0.tag = STRUCTURE_TYPE24753; t20755.s0.value.structure_type24753 = &t20756; /* x187226 */ t20759.s0.tag = EXTERNAL_SYMBOL_TYPE; t20759.s0.value.external_symbol_type = q107; /* x187227 */ t20761.s0.tag = EXTERNAL_SYMBOL_TYPE; t20761.s0.value.external_symbol_type = q108; /* x187228 */ t20763.s0.tag = EXTERNAL_SYMBOL_TYPE; t20763.s0.value.external_symbol_type = q108; /* x187229 */ t20764.s0.tag = EXTERNAL_SYMBOL_TYPE; t20764.s0.value.external_symbol_type = q51; /* x187230 */ t20764.s1.tag = NULL_TYPE; /* x187231 */ t20763.s1.tag = STRUCTURE_TYPE24753; t20763.s1.value.structure_type24753 = &t20764; /* x187232 */ t20762.s0.tag = STRUCTURE_TYPE24753; t20762.s0.value.structure_type24753 = &t20763; /* x187233 */ t20762.s1.tag = NULL_TYPE; /* x187234 */ t20761.s1.tag = STRUCTURE_TYPE24753; t20761.s1.value.structure_type24753 = &t20762; /* x187235 */ t20760.s0.tag = STRUCTURE_TYPE24753; t20760.s0.value.structure_type24753 = &t20761; /* x187236 */ t20760.s1.tag = NULL_TYPE; /* x187237 */ t20759.s1.tag = STRUCTURE_TYPE24753; t20759.s1.value.structure_type24753 = &t20760; /* x187238 */ t20758.s0.tag = STRUCTURE_TYPE24753; t20758.s0.value.structure_type24753 = &t20759; /* x187239 */ t20758.s1.tag = NULL_TYPE; /* x187240 */ t20755.s1.tag = STRUCTURE_TYPE24753; t20755.s1.value.structure_type24753 = &t20758; /* x187241 */ t20754.s1.tag = STRUCTURE_TYPE24753; t20754.s1.value.structure_type24753 = &t20755; /* x187244 */ t20769.s0.tag = EXTERNAL_SYMBOL_TYPE; t20769.s0.value.external_symbol_type = q97; /* x187245 */ t20771.s0.tag = EXTERNAL_SYMBOL_TYPE; t20771.s0.value.external_symbol_type = q371; /* x187246 */ t20772.s0.tag = EXTERNAL_SYMBOL_TYPE; t20772.s0.value.external_symbol_type = q51; /* x187247 */ t20772.s1.tag = NULL_TYPE; /* x187248 */ t20771.s1.tag = STRUCTURE_TYPE24753; t20771.s1.value.structure_type24753 = &t20772; /* x187249 */ t20770.s0.tag = STRUCTURE_TYPE24753; t20770.s0.value.structure_type24753 = &t20771; /* x187250 */ t20774.s0.tag = EXTERNAL_SYMBOL_TYPE; t20774.s0.value.external_symbol_type = q108; /* x187251 */ t20776.s0.tag = EXTERNAL_SYMBOL_TYPE; t20776.s0.value.external_symbol_type = q107; /* x187252 */ t20778.s0.tag = EXTERNAL_SYMBOL_TYPE; t20778.s0.value.external_symbol_type = q107; /* x187253 */ t20779.s0.tag = EXTERNAL_SYMBOL_TYPE; t20779.s0.value.external_symbol_type = q51; /* x187254 */ t20779.s1.tag = NULL_TYPE; /* x187255 */ t20778.s1.tag = STRUCTURE_TYPE24753; t20778.s1.value.structure_type24753 = &t20779; /* x187256 */ t20777.s0.tag = STRUCTURE_TYPE24753; t20777.s0.value.structure_type24753 = &t20778; /* x187257 */ t20777.s1.tag = NULL_TYPE; /* x187258 */ t20776.s1.tag = STRUCTURE_TYPE24753; t20776.s1.value.structure_type24753 = &t20777; /* x187259 */ t20775.s0.tag = STRUCTURE_TYPE24753; t20775.s0.value.structure_type24753 = &t20776; /* x187260 */ t20775.s1.tag = NULL_TYPE; /* x187261 */ t20774.s1.tag = STRUCTURE_TYPE24753; t20774.s1.value.structure_type24753 = &t20775; /* x187262 */ t20773.s0.tag = STRUCTURE_TYPE24753; t20773.s0.value.structure_type24753 = &t20774; /* x187263 */ t20773.s1.tag = NULL_TYPE; /* x187264 */ t20770.s1.tag = STRUCTURE_TYPE24753; t20770.s1.value.structure_type24753 = &t20773; /* x187265 */ t20769.s1.tag = STRUCTURE_TYPE24753; t20769.s1.value.structure_type24753 = &t20770; /* x187268 */ t20784.s0.tag = EXTERNAL_SYMBOL_TYPE; t20784.s0.value.external_symbol_type = q97; /* x187269 */ t20786.s0.tag = EXTERNAL_SYMBOL_TYPE; t20786.s0.value.external_symbol_type = q372; /* x187270 */ t20787.s0.tag = EXTERNAL_SYMBOL_TYPE; t20787.s0.value.external_symbol_type = q51; /* x187271 */ t20787.s1.tag = NULL_TYPE; /* x187272 */ t20786.s1.tag = STRUCTURE_TYPE24753; t20786.s1.value.structure_type24753 = &t20787; /* x187273 */ t20785.s0.tag = STRUCTURE_TYPE24753; t20785.s0.value.structure_type24753 = &t20786; /* x187274 */ t20789.s0.tag = EXTERNAL_SYMBOL_TYPE; t20789.s0.value.external_symbol_type = q108; /* x187275 */ t20791.s0.tag = EXTERNAL_SYMBOL_TYPE; t20791.s0.value.external_symbol_type = q107; /* x187276 */ t20793.s0.tag = EXTERNAL_SYMBOL_TYPE; t20793.s0.value.external_symbol_type = q108; /* x187277 */ t20794.s0.tag = EXTERNAL_SYMBOL_TYPE; t20794.s0.value.external_symbol_type = q51; /* x187278 */ t20794.s1.tag = NULL_TYPE; /* x187279 */ t20793.s1.tag = STRUCTURE_TYPE24753; t20793.s1.value.structure_type24753 = &t20794; /* x187280 */ t20792.s0.tag = STRUCTURE_TYPE24753;} void initialize_constants11(void) {t20792.s0.value.structure_type24753 = &t20793; /* x187281 */ t20792.s1.tag = NULL_TYPE; /* x187282 */ t20791.s1.tag = STRUCTURE_TYPE24753; t20791.s1.value.structure_type24753 = &t20792; /* x187283 */ t20790.s0.tag = STRUCTURE_TYPE24753; t20790.s0.value.structure_type24753 = &t20791; /* x187284 */ t20790.s1.tag = NULL_TYPE; /* x187285 */ t20789.s1.tag = STRUCTURE_TYPE24753; t20789.s1.value.structure_type24753 = &t20790; /* x187286 */ t20788.s0.tag = STRUCTURE_TYPE24753; t20788.s0.value.structure_type24753 = &t20789; /* x187287 */ t20788.s1.tag = NULL_TYPE; /* x187288 */ t20785.s1.tag = STRUCTURE_TYPE24753; t20785.s1.value.structure_type24753 = &t20788; /* x187289 */ t20784.s1.tag = STRUCTURE_TYPE24753; t20784.s1.value.structure_type24753 = &t20785; /* x187292 */ t20799.s0.tag = EXTERNAL_SYMBOL_TYPE; t20799.s0.value.external_symbol_type = q97; /* x187293 */ t20801.s0.tag = EXTERNAL_SYMBOL_TYPE; t20801.s0.value.external_symbol_type = q373; /* x187294 */ t20802.s0.tag = EXTERNAL_SYMBOL_TYPE; t20802.s0.value.external_symbol_type = q51; /* x187295 */ t20802.s1.tag = NULL_TYPE; /* x187296 */ t20801.s1.tag = STRUCTURE_TYPE24753; t20801.s1.value.structure_type24753 = &t20802; /* x187297 */ t20800.s0.tag = STRUCTURE_TYPE24753; t20800.s0.value.structure_type24753 = &t20801; /* x187298 */ t20804.s0.tag = EXTERNAL_SYMBOL_TYPE; t20804.s0.value.external_symbol_type = q108; /* x187299 */ t20806.s0.tag = EXTERNAL_SYMBOL_TYPE; t20806.s0.value.external_symbol_type = q108; /* x187300 */ t20808.s0.tag = EXTERNAL_SYMBOL_TYPE; t20808.s0.value.external_symbol_type = q107; /* x187301 */ t20809.s0.tag = EXTERNAL_SYMBOL_TYPE; t20809.s0.value.external_symbol_type = q51; /* x187302 */ t20809.s1.tag = NULL_TYPE; /* x187303 */ t20808.s1.tag = STRUCTURE_TYPE24753; t20808.s1.value.structure_type24753 = &t20809; /* x187304 */ t20807.s0.tag = STRUCTURE_TYPE24753; t20807.s0.value.structure_type24753 = &t20808; /* x187305 */ t20807.s1.tag = NULL_TYPE; /* x187306 */ t20806.s1.tag = STRUCTURE_TYPE24753; t20806.s1.value.structure_type24753 = &t20807; /* x187307 */ t20805.s0.tag = STRUCTURE_TYPE24753; t20805.s0.value.structure_type24753 = &t20806; /* x187308 */ t20805.s1.tag = NULL_TYPE; /* x187309 */ t20804.s1.tag = STRUCTURE_TYPE24753; t20804.s1.value.structure_type24753 = &t20805; /* x187310 */ t20803.s0.tag = STRUCTURE_TYPE24753; t20803.s0.value.structure_type24753 = &t20804; /* x187311 */ t20803.s1.tag = NULL_TYPE; /* x187312 */ t20800.s1.tag = STRUCTURE_TYPE24753; t20800.s1.value.structure_type24753 = &t20803; /* x187313 */ t20799.s1.tag = STRUCTURE_TYPE24753; t20799.s1.value.structure_type24753 = &t20800; /* x187316 */ t20814.s0.tag = EXTERNAL_SYMBOL_TYPE; t20814.s0.value.external_symbol_type = q97; /* x187317 */ t20816.s0.tag = EXTERNAL_SYMBOL_TYPE; t20816.s0.value.external_symbol_type = q374; /* x187318 */ t20817.s0.tag = EXTERNAL_SYMBOL_TYPE; t20817.s0.value.external_symbol_type = q51; /* x187319 */ t20817.s1.tag = NULL_TYPE; /* x187320 */ t20816.s1.tag = STRUCTURE_TYPE24753; t20816.s1.value.structure_type24753 = &t20817; /* x187321 */ t20815.s0.tag = STRUCTURE_TYPE24753; t20815.s0.value.structure_type24753 = &t20816; /* x187322 */ t20819.s0.tag = EXTERNAL_SYMBOL_TYPE; t20819.s0.value.external_symbol_type = q108; /* x187323 */ t20821.s0.tag = EXTERNAL_SYMBOL_TYPE; t20821.s0.value.external_symbol_type = q108; /* x187324 */ t20823.s0.tag = EXTERNAL_SYMBOL_TYPE; t20823.s0.value.external_symbol_type = q108; /* x187325 */ t20824.s0.tag = EXTERNAL_SYMBOL_TYPE; t20824.s0.value.external_symbol_type = q51; /* x187326 */ t20824.s1.tag = NULL_TYPE; /* x187327 */ t20823.s1.tag = STRUCTURE_TYPE24753; t20823.s1.value.structure_type24753 = &t20824; /* x187328 */ t20822.s0.tag = STRUCTURE_TYPE24753; t20822.s0.value.structure_type24753 = &t20823; /* x187329 */ t20822.s1.tag = NULL_TYPE; /* x187330 */ t20821.s1.tag = STRUCTURE_TYPE24753; t20821.s1.value.structure_type24753 = &t20822; /* x187331 */ t20820.s0.tag = STRUCTURE_TYPE24753; t20820.s0.value.structure_type24753 = &t20821; /* x187332 */ t20820.s1.tag = NULL_TYPE; /* x187333 */ t20819.s1.tag = STRUCTURE_TYPE24753; t20819.s1.value.structure_type24753 = &t20820; /* x187334 */ t20818.s0.tag = STRUCTURE_TYPE24753; t20818.s0.value.structure_type24753 = &t20819; /* x187335 */ t20818.s1.tag = NULL_TYPE; /* x187336 */ t20815.s1.tag = STRUCTURE_TYPE24753; t20815.s1.value.structure_type24753 = &t20818; /* x187337 */ t20814.s1.tag = STRUCTURE_TYPE24753; t20814.s1.value.structure_type24753 = &t20815; /* x187340 */ t20829.s0.tag = EXTERNAL_SYMBOL_TYPE; t20829.s0.value.external_symbol_type = q97; /* x187341 */ t20831.s0.tag = EXTERNAL_SYMBOL_TYPE; t20831.s0.value.external_symbol_type = q375; /* x187342 */ t20832.s0.tag = EXTERNAL_SYMBOL_TYPE; t20832.s0.value.external_symbol_type = q51; /* x187343 */ t20832.s1.tag = NULL_TYPE; /* x187344 */ t20831.s1.tag = STRUCTURE_TYPE24753; t20831.s1.value.structure_type24753 = &t20832; /* x187345 */ t20830.s0.tag = STRUCTURE_TYPE24753; t20830.s0.value.structure_type24753 = &t20831; /* x187346 */ t20834.s0.tag = EXTERNAL_SYMBOL_TYPE; t20834.s0.value.external_symbol_type = q107; /* x187347 */ t20836.s0.tag = EXTERNAL_SYMBOL_TYPE; t20836.s0.value.external_symbol_type = q107; /* x187348 */ t20838.s0.tag = EXTERNAL_SYMBOL_TYPE; t20838.s0.value.external_symbol_type = q107; /* x187349 */ t20840.s0.tag = EXTERNAL_SYMBOL_TYPE; t20840.s0.value.external_symbol_type = q107; /* x187350 */ t20841.s0.tag = EXTERNAL_SYMBOL_TYPE; t20841.s0.value.external_symbol_type = q51; /* x187351 */ t20841.s1.tag = NULL_TYPE; /* x187352 */ t20840.s1.tag = STRUCTURE_TYPE24753; t20840.s1.value.structure_type24753 = &t20841; /* x187353 */ t20839.s0.tag = STRUCTURE_TYPE24753; t20839.s0.value.structure_type24753 = &t20840; /* x187354 */ t20839.s1.tag = NULL_TYPE; /* x187355 */ t20838.s1.tag = STRUCTURE_TYPE24753; t20838.s1.value.structure_type24753 = &t20839; /* x187356 */ t20837.s0.tag = STRUCTURE_TYPE24753; t20837.s0.value.structure_type24753 = &t20838; /* x187357 */ t20837.s1.tag = NULL_TYPE; /* x187358 */ t20836.s1.tag = STRUCTURE_TYPE24753; t20836.s1.value.structure_type24753 = &t20837; /* x187359 */ t20835.s0.tag = STRUCTURE_TYPE24753; t20835.s0.value.structure_type24753 = &t20836; /* x187360 */ t20835.s1.tag = NULL_TYPE; /* x187361 */ t20834.s1.tag = STRUCTURE_TYPE24753; t20834.s1.value.structure_type24753 = &t20835; /* x187362 */ t20833.s0.tag = STRUCTURE_TYPE24753; t20833.s0.value.structure_type24753 = &t20834; /* x187363 */ t20833.s1.tag = NULL_TYPE; /* x187364 */ t20830.s1.tag = STRUCTURE_TYPE24753; t20830.s1.value.structure_type24753 = &t20833; /* x187365 */ t20829.s1.tag = STRUCTURE_TYPE24753; t20829.s1.value.structure_type24753 = &t20830; /* x187368 */ t20846.s0.tag = EXTERNAL_SYMBOL_TYPE; t20846.s0.value.external_symbol_type = q97; /* x187369 */ t20848.s0.tag = EXTERNAL_SYMBOL_TYPE; t20848.s0.value.external_symbol_type = q376; /* x187370 */ t20849.s0.tag = EXTERNAL_SYMBOL_TYPE; t20849.s0.value.external_symbol_type = q51; /* x187371 */ t20849.s1.tag = NULL_TYPE; /* x187372 */ t20848.s1.tag = STRUCTURE_TYPE24753; t20848.s1.value.structure_type24753 = &t20849; /* x187373 */ t20847.s0.tag = STRUCTURE_TYPE24753; t20847.s0.value.structure_type24753 = &t20848; /* x187374 */ t20851.s0.tag = EXTERNAL_SYMBOL_TYPE; t20851.s0.value.external_symbol_type = q107; /* x187375 */ t20853.s0.tag = EXTERNAL_SYMBOL_TYPE; t20853.s0.value.external_symbol_type = q107; /* x187376 */ t20855.s0.tag = EXTERNAL_SYMBOL_TYPE; t20855.s0.value.external_symbol_type = q107; /* x187377 */ t20857.s0.tag = EXTERNAL_SYMBOL_TYPE; t20857.s0.value.external_symbol_type = q108; /* x187378 */ t20858.s0.tag = EXTERNAL_SYMBOL_TYPE; t20858.s0.value.external_symbol_type = q51; /* x187379 */ t20858.s1.tag = NULL_TYPE; /* x187380 */ t20857.s1.tag = STRUCTURE_TYPE24753; t20857.s1.value.structure_type24753 = &t20858; /* x187381 */ t20856.s0.tag = STRUCTURE_TYPE24753; t20856.s0.value.structure_type24753 = &t20857; /* x187382 */ t20856.s1.tag = NULL_TYPE; /* x187383 */ t20855.s1.tag = STRUCTURE_TYPE24753; t20855.s1.value.structure_type24753 = &t20856; /* x187384 */ t20854.s0.tag = STRUCTURE_TYPE24753; t20854.s0.value.structure_type24753 = &t20855; /* x187385 */ t20854.s1.tag = NULL_TYPE; /* x187386 */ t20853.s1.tag = STRUCTURE_TYPE24753; t20853.s1.value.structure_type24753 = &t20854; /* x187387 */ t20852.s0.tag = STRUCTURE_TYPE24753; t20852.s0.value.structure_type24753 = &t20853; /* x187388 */ t20852.s1.tag = NULL_TYPE; /* x187389 */ t20851.s1.tag = STRUCTURE_TYPE24753; t20851.s1.value.structure_type24753 = &t20852; /* x187390 */ t20850.s0.tag = STRUCTURE_TYPE24753; t20850.s0.value.structure_type24753 = &t20851; /* x187391 */ t20850.s1.tag = NULL_TYPE; /* x187392 */ t20847.s1.tag = STRUCTURE_TYPE24753; t20847.s1.value.structure_type24753 = &t20850; /* x187393 */ t20846.s1.tag = STRUCTURE_TYPE24753; t20846.s1.value.structure_type24753 = &t20847; /* x187396 */ t20863.s0.tag = EXTERNAL_SYMBOL_TYPE; t20863.s0.value.external_symbol_type = q97; /* x187397 */ t20865.s0.tag = EXTERNAL_SYMBOL_TYPE; t20865.s0.value.external_symbol_type = q377; /* x187398 */ t20866.s0.tag = EXTERNAL_SYMBOL_TYPE; t20866.s0.value.external_symbol_type = q51; /* x187399 */ t20866.s1.tag = NULL_TYPE; /* x187400 */ t20865.s1.tag = STRUCTURE_TYPE24753; t20865.s1.value.structure_type24753 = &t20866; /* x187401 */ t20864.s0.tag = STRUCTURE_TYPE24753; t20864.s0.value.structure_type24753 = &t20865; /* x187402 */ t20868.s0.tag = EXTERNAL_SYMBOL_TYPE; t20868.s0.value.external_symbol_type = q107; /* x187403 */ t20870.s0.tag = EXTERNAL_SYMBOL_TYPE; t20870.s0.value.external_symbol_type = q107; /* x187404 */ t20872.s0.tag = EXTERNAL_SYMBOL_TYPE; t20872.s0.value.external_symbol_type = q108; /* x187405 */ t20874.s0.tag = EXTERNAL_SYMBOL_TYPE; t20874.s0.value.external_symbol_type = q107; /* x187406 */ t20875.s0.tag = EXTERNAL_SYMBOL_TYPE; t20875.s0.value.external_symbol_type = q51; /* x187407 */ t20875.s1.tag = NULL_TYPE; /* x187408 */ t20874.s1.tag = STRUCTURE_TYPE24753; t20874.s1.value.structure_type24753 = &t20875; /* x187409 */ t20873.s0.tag = STRUCTURE_TYPE24753; t20873.s0.value.structure_type24753 = &t20874; /* x187410 */ t20873.s1.tag = NULL_TYPE; /* x187411 */ t20872.s1.tag = STRUCTURE_TYPE24753; t20872.s1.value.structure_type24753 = &t20873; /* x187412 */ t20871.s0.tag = STRUCTURE_TYPE24753; t20871.s0.value.structure_type24753 = &t20872; /* x187413 */ t20871.s1.tag = NULL_TYPE; /* x187414 */ t20870.s1.tag = STRUCTURE_TYPE24753; t20870.s1.value.structure_type24753 = &t20871; /* x187415 */ t20869.s0.tag = STRUCTURE_TYPE24753; t20869.s0.value.structure_type24753 = &t20870; /* x187416 */ t20869.s1.tag = NULL_TYPE; /* x187417 */ t20868.s1.tag = STRUCTURE_TYPE24753; t20868.s1.value.structure_type24753 = &t20869; /* x187418 */ t20867.s0.tag = STRUCTURE_TYPE24753; t20867.s0.value.structure_type24753 = &t20868; /* x187419 */ t20867.s1.tag = NULL_TYPE; /* x187420 */ t20864.s1.tag = STRUCTURE_TYPE24753; t20864.s1.value.structure_type24753 = &t20867; /* x187421 */ t20863.s1.tag = STRUCTURE_TYPE24753; t20863.s1.value.structure_type24753 = &t20864; /* x187424 */ t20880.s0.tag = EXTERNAL_SYMBOL_TYPE; t20880.s0.value.external_symbol_type = q97; /* x187425 */ t20882.s0.tag = EXTERNAL_SYMBOL_TYPE; t20882.s0.value.external_symbol_type = q378; /* x187426 */ t20883.s0.tag = EXTERNAL_SYMBOL_TYPE; t20883.s0.value.external_symbol_type = q51; /* x187427 */ t20883.s1.tag = NULL_TYPE; /* x187428 */ t20882.s1.tag = STRUCTURE_TYPE24753; t20882.s1.value.structure_type24753 = &t20883; /* x187429 */ t20881.s0.tag = STRUCTURE_TYPE24753; t20881.s0.value.structure_type24753 = &t20882; /* x187430 */ t20885.s0.tag = EXTERNAL_SYMBOL_TYPE; t20885.s0.value.external_symbol_type = q107; /* x187431 */ t20887.s0.tag = EXTERNAL_SYMBOL_TYPE; t20887.s0.value.external_symbol_type = q107; /* x187432 */ t20889.s0.tag = EXTERNAL_SYMBOL_TYPE; t20889.s0.value.external_symbol_type = q108; /* x187433 */ t20891.s0.tag = EXTERNAL_SYMBOL_TYPE; t20891.s0.value.external_symbol_type = q108; /* x187434 */ t20892.s0.tag = EXTERNAL_SYMBOL_TYPE; t20892.s0.value.external_symbol_type = q51; /* x187435 */ t20892.s1.tag = NULL_TYPE; /* x187436 */ t20891.s1.tag = STRUCTURE_TYPE24753; t20891.s1.value.structure_type24753 = &t20892; /* x187437 */ t20890.s0.tag = STRUCTURE_TYPE24753; t20890.s0.value.structure_type24753 = &t20891; /* x187438 */ t20890.s1.tag = NULL_TYPE; /* x187439 */ t20889.s1.tag = STRUCTURE_TYPE24753; t20889.s1.value.structure_type24753 = &t20890; /* x187440 */ t20888.s0.tag = STRUCTURE_TYPE24753; t20888.s0.value.structure_type24753 = &t20889; /* x187441 */ t20888.s1.tag = NULL_TYPE; /* x187442 */ t20887.s1.tag = STRUCTURE_TYPE24753; t20887.s1.value.structure_type24753 = &t20888; /* x187443 */ t20886.s0.tag = STRUCTURE_TYPE24753; t20886.s0.value.structure_type24753 = &t20887; /* x187444 */ t20886.s1.tag = NULL_TYPE; /* x187445 */ t20885.s1.tag = STRUCTURE_TYPE24753; t20885.s1.value.structure_type24753 = &t20886; /* x187446 */ t20884.s0.tag = STRUCTURE_TYPE24753; t20884.s0.value.structure_type24753 = &t20885; /* x187447 */ t20884.s1.tag = NULL_TYPE; /* x187448 */ t20881.s1.tag = STRUCTURE_TYPE24753; t20881.s1.value.structure_type24753 = &t20884; /* x187449 */ t20880.s1.tag = STRUCTURE_TYPE24753; t20880.s1.value.structure_type24753 = &t20881; /* x187452 */ t20897.s0.tag = EXTERNAL_SYMBOL_TYPE; t20897.s0.value.external_symbol_type = q97; /* x187453 */ t20899.s0.tag = EXTERNAL_SYMBOL_TYPE; t20899.s0.value.external_symbol_type = q379; /* x187454 */ t20900.s0.tag = EXTERNAL_SYMBOL_TYPE; t20900.s0.value.external_symbol_type = q51; /* x187455 */ t20900.s1.tag = NULL_TYPE; /* x187456 */ t20899.s1.tag = STRUCTURE_TYPE24753; t20899.s1.value.structure_type24753 = &t20900; /* x187457 */ t20898.s0.tag = STRUCTURE_TYPE24753; t20898.s0.value.structure_type24753 = &t20899; /* x187458 */ t20902.s0.tag = EXTERNAL_SYMBOL_TYPE; t20902.s0.value.external_symbol_type = q107; /* x187459 */ t20904.s0.tag = EXTERNAL_SYMBOL_TYPE; t20904.s0.value.external_symbol_type = q108; /* x187460 */ t20906.s0.tag = EXTERNAL_SYMBOL_TYPE; t20906.s0.value.external_symbol_type = q107; /* x187461 */ t20908.s0.tag = EXTERNAL_SYMBOL_TYPE; t20908.s0.value.external_symbol_type = q107; /* x187462 */ t20909.s0.tag = EXTERNAL_SYMBOL_TYPE; t20909.s0.value.external_symbol_type = q51; /* x187463 */ t20909.s1.tag = NULL_TYPE; /* x187464 */ t20908.s1.tag = STRUCTURE_TYPE24753; t20908.s1.value.structure_type24753 = &t20909; /* x187465 */ t20907.s0.tag = STRUCTURE_TYPE24753; t20907.s0.value.structure_type24753 = &t20908; /* x187466 */ t20907.s1.tag = NULL_TYPE; /* x187467 */ t20906.s1.tag = STRUCTURE_TYPE24753; t20906.s1.value.structure_type24753 = &t20907; /* x187468 */ t20905.s0.tag = STRUCTURE_TYPE24753; t20905.s0.value.structure_type24753 = &t20906; /* x187469 */ t20905.s1.tag = NULL_TYPE; /* x187470 */ t20904.s1.tag = STRUCTURE_TYPE24753; t20904.s1.value.structure_type24753 = &t20905; /* x187471 */ t20903.s0.tag = STRUCTURE_TYPE24753; t20903.s0.value.structure_type24753 = &t20904; /* x187472 */ t20903.s1.tag = NULL_TYPE; /* x187473 */ t20902.s1.tag = STRUCTURE_TYPE24753; t20902.s1.value.structure_type24753 = &t20903; /* x187474 */ t20901.s0.tag = STRUCTURE_TYPE24753; t20901.s0.value.structure_type24753 = &t20902; /* x187475 */ t20901.s1.tag = NULL_TYPE; /* x187476 */ t20898.s1.tag = STRUCTURE_TYPE24753; t20898.s1.value.structure_type24753 = &t20901; /* x187477 */ t20897.s1.tag = STRUCTURE_TYPE24753; t20897.s1.value.structure_type24753 = &t20898; /* x187480 */ t20914.s0.tag = EXTERNAL_SYMBOL_TYPE; t20914.s0.value.external_symbol_type = q97; /* x187481 */ t20916.s0.tag = EXTERNAL_SYMBOL_TYPE; t20916.s0.value.external_symbol_type = q380; /* x187482 */ t20917.s0.tag = EXTERNAL_SYMBOL_TYPE; t20917.s0.value.external_symbol_type = q51; /* x187483 */ t20917.s1.tag = NULL_TYPE; /* x187484 */ t20916.s1.tag = STRUCTURE_TYPE24753; t20916.s1.value.structure_type24753 = &t20917; /* x187485 */ t20915.s0.tag = STRUCTURE_TYPE24753; t20915.s0.value.structure_type24753 = &t20916; /* x187486 */ t20919.s0.tag = EXTERNAL_SYMBOL_TYPE; t20919.s0.value.external_symbol_type = q107; /* x187487 */ t20921.s0.tag = EXTERNAL_SYMBOL_TYPE; t20921.s0.value.external_symbol_type = q108; /* x187488 */ t20923.s0.tag = EXTERNAL_SYMBOL_TYPE; t20923.s0.value.external_symbol_type = q107; /* x187489 */ t20925.s0.tag = EXTERNAL_SYMBOL_TYPE; t20925.s0.value.external_symbol_type = q108; /* x187490 */ t20926.s0.tag = EXTERNAL_SYMBOL_TYPE; t20926.s0.value.external_symbol_type = q51; /* x187491 */ t20926.s1.tag = NULL_TYPE; /* x187492 */ t20925.s1.tag = STRUCTURE_TYPE24753; t20925.s1.value.structure_type24753 = &t20926; /* x187493 */ t20924.s0.tag = STRUCTURE_TYPE24753; t20924.s0.value.structure_type24753 = &t20925; /* x187494 */ t20924.s1.tag = NULL_TYPE; /* x187495 */ t20923.s1.tag = STRUCTURE_TYPE24753; t20923.s1.value.structure_type24753 = &t20924; /* x187496 */ t20922.s0.tag = STRUCTURE_TYPE24753; t20922.s0.value.structure_type24753 = &t20923; /* x187497 */ t20922.s1.tag = NULL_TYPE; /* x187498 */ t20921.s1.tag = STRUCTURE_TYPE24753; t20921.s1.value.structure_type24753 = &t20922; /* x187499 */ t20920.s0.tag = STRUCTURE_TYPE24753; t20920.s0.value.structure_type24753 = &t20921; /* x187500 */ t20920.s1.tag = NULL_TYPE; /* x187501 */ t20919.s1.tag = STRUCTURE_TYPE24753; t20919.s1.value.structure_type24753 = &t20920; /* x187502 */ t20918.s0.tag = STRUCTURE_TYPE24753; t20918.s0.value.structure_type24753 = &t20919; /* x187503 */ t20918.s1.tag = NULL_TYPE; /* x187504 */ t20915.s1.tag = STRUCTURE_TYPE24753; t20915.s1.value.structure_type24753 = &t20918; /* x187505 */ t20914.s1.tag = STRUCTURE_TYPE24753; t20914.s1.value.structure_type24753 = &t20915; /* x187508 */ t20931.s0.tag = EXTERNAL_SYMBOL_TYPE; t20931.s0.value.external_symbol_type = q97; /* x187509 */ t20933.s0.tag = EXTERNAL_SYMBOL_TYPE; t20933.s0.value.external_symbol_type = q381; /* x187510 */ t20934.s0.tag = EXTERNAL_SYMBOL_TYPE; t20934.s0.value.external_symbol_type = q51; /* x187511 */ t20934.s1.tag = NULL_TYPE; /* x187512 */ t20933.s1.tag = STRUCTURE_TYPE24753; t20933.s1.value.structure_type24753 = &t20934; /* x187513 */ t20932.s0.tag = STRUCTURE_TYPE24753; t20932.s0.value.structure_type24753 = &t20933; /* x187514 */ t20936.s0.tag = EXTERNAL_SYMBOL_TYPE; t20936.s0.value.external_symbol_type = q107; /* x187515 */ t20938.s0.tag = EXTERNAL_SYMBOL_TYPE; t20938.s0.value.external_symbol_type = q108; /* x187516 */ t20940.s0.tag = EXTERNAL_SYMBOL_TYPE; t20940.s0.value.external_symbol_type = q108; /* x187517 */ t20942.s0.tag = EXTERNAL_SYMBOL_TYPE; t20942.s0.value.external_symbol_type = q107; /* x187518 */ t20943.s0.tag = EXTERNAL_SYMBOL_TYPE; t20943.s0.value.external_symbol_type = q51; /* x187519 */ t20943.s1.tag = NULL_TYPE; /* x187520 */ t20942.s1.tag = STRUCTURE_TYPE24753; t20942.s1.value.structure_type24753 = &t20943; /* x187521 */ t20941.s0.tag = STRUCTURE_TYPE24753; t20941.s0.value.structure_type24753 = &t20942; /* x187522 */ t20941.s1.tag = NULL_TYPE; /* x187523 */ t20940.s1.tag = STRUCTURE_TYPE24753; t20940.s1.value.structure_type24753 = &t20941; /* x187524 */ t20939.s0.tag = STRUCTURE_TYPE24753; t20939.s0.value.structure_type24753 = &t20940; /* x187525 */ t20939.s1.tag = NULL_TYPE; /* x187526 */ t20938.s1.tag = STRUCTURE_TYPE24753; t20938.s1.value.structure_type24753 = &t20939; /* x187527 */ t20937.s0.tag = STRUCTURE_TYPE24753; t20937.s0.value.structure_type24753 = &t20938; /* x187528 */ t20937.s1.tag = NULL_TYPE; /* x187529 */ t20936.s1.tag = STRUCTURE_TYPE24753; t20936.s1.value.structure_type24753 = &t20937; /* x187530 */ t20935.s0.tag = STRUCTURE_TYPE24753; t20935.s0.value.structure_type24753 = &t20936; /* x187531 */ t20935.s1.tag = NULL_TYPE; /* x187532 */ t20932.s1.tag = STRUCTURE_TYPE24753; t20932.s1.value.structure_type24753 = &t20935; /* x187533 */ t20931.s1.tag = STRUCTURE_TYPE24753; t20931.s1.value.structure_type24753 = &t20932; /* x187536 */ t20948.s0.tag = EXTERNAL_SYMBOL_TYPE; t20948.s0.value.external_symbol_type = q97; /* x187537 */ t20950.s0.tag = EXTERNAL_SYMBOL_TYPE; t20950.s0.value.external_symbol_type = q382; /* x187538 */ t20951.s0.tag = EXTERNAL_SYMBOL_TYPE; t20951.s0.value.external_symbol_type = q51; /* x187539 */ t20951.s1.tag = NULL_TYPE; /* x187540 */ t20950.s1.tag = STRUCTURE_TYPE24753; t20950.s1.value.structure_type24753 = &t20951; /* x187541 */ t20949.s0.tag = STRUCTURE_TYPE24753; t20949.s0.value.structure_type24753 = &t20950; /* x187542 */ t20953.s0.tag = EXTERNAL_SYMBOL_TYPE; t20953.s0.value.external_symbol_type = q107; /* x187543 */ t20955.s0.tag = EXTERNAL_SYMBOL_TYPE; t20955.s0.value.external_symbol_type = q108; /* x187544 */ t20957.s0.tag = EXTERNAL_SYMBOL_TYPE; t20957.s0.value.external_symbol_type = q108; /* x187545 */ t20959.s0.tag = EXTERNAL_SYMBOL_TYPE; t20959.s0.value.external_symbol_type = q108; /* x187546 */ t20960.s0.tag = EXTERNAL_SYMBOL_TYPE; t20960.s0.value.external_symbol_type = q51; /* x187547 */ t20960.s1.tag = NULL_TYPE; /* x187548 */ t20959.s1.tag = STRUCTURE_TYPE24753; t20959.s1.value.structure_type24753 = &t20960; /* x187549 */ t20958.s0.tag = STRUCTURE_TYPE24753; t20958.s0.value.structure_type24753 = &t20959; /* x187550 */ t20958.s1.tag = NULL_TYPE; /* x187551 */ t20957.s1.tag = STRUCTURE_TYPE24753; t20957.s1.value.structure_type24753 = &t20958; /* x187552 */ t20956.s0.tag = STRUCTURE_TYPE24753; t20956.s0.value.structure_type24753 = &t20957; /* x187553 */ t20956.s1.tag = NULL_TYPE; /* x187554 */ t20955.s1.tag = STRUCTURE_TYPE24753; t20955.s1.value.structure_type24753 = &t20956; /* x187555 */ t20954.s0.tag = STRUCTURE_TYPE24753; t20954.s0.value.structure_type24753 = &t20955; /* x187556 */ t20954.s1.tag = NULL_TYPE; /* x187557 */ t20953.s1.tag = STRUCTURE_TYPE24753; t20953.s1.value.structure_type24753 = &t20954; /* x187558 */ t20952.s0.tag = STRUCTURE_TYPE24753; t20952.s0.value.structure_type24753 = &t20953; /* x187559 */ t20952.s1.tag = NULL_TYPE; /* x187560 */ t20949.s1.tag = STRUCTURE_TYPE24753; t20949.s1.value.structure_type24753 = &t20952; /* x187561 */ t20948.s1.tag = STRUCTURE_TYPE24753; t20948.s1.value.structure_type24753 = &t20949; /* x187564 */ t20965.s0.tag = EXTERNAL_SYMBOL_TYPE; t20965.s0.value.external_symbol_type = q97; /* x187565 */ t20967.s0.tag = EXTERNAL_SYMBOL_TYPE; t20967.s0.value.external_symbol_type = q383; /* x187566 */ t20968.s0.tag = EXTERNAL_SYMBOL_TYPE; t20968.s0.value.external_symbol_type = q51; /* x187567 */ t20968.s1.tag = NULL_TYPE; /* x187568 */ t20967.s1.tag = STRUCTURE_TYPE24753; t20967.s1.value.structure_type24753 = &t20968; /* x187569 */ t20966.s0.tag = STRUCTURE_TYPE24753; t20966.s0.value.structure_type24753 = &t20967; /* x187570 */ t20970.s0.tag = EXTERNAL_SYMBOL_TYPE; t20970.s0.value.external_symbol_type = q108; /* x187571 */ t20972.s0.tag = EXTERNAL_SYMBOL_TYPE; t20972.s0.value.external_symbol_type = q107; /* x187572 */ t20974.s0.tag = EXTERNAL_SYMBOL_TYPE; t20974.s0.value.external_symbol_type = q107; /* x187573 */ t20976.s0.tag = EXTERNAL_SYMBOL_TYPE; t20976.s0.value.external_symbol_type = q107; /* x187574 */ t20977.s0.tag = EXTERNAL_SYMBOL_TYPE; t20977.s0.value.external_symbol_type = q51; /* x187575 */ t20977.s1.tag = NULL_TYPE; /* x187576 */ t20976.s1.tag = STRUCTURE_TYPE24753; t20976.s1.value.structure_type24753 = &t20977; /* x187577 */ t20975.s0.tag = STRUCTURE_TYPE24753; t20975.s0.value.structure_type24753 = &t20976; /* x187578 */ t20975.s1.tag = NULL_TYPE; /* x187579 */ t20974.s1.tag = STRUCTURE_TYPE24753; t20974.s1.value.structure_type24753 = &t20975; /* x187580 */ t20973.s0.tag = STRUCTURE_TYPE24753; t20973.s0.value.structure_type24753 = &t20974; /* x187581 */ t20973.s1.tag = NULL_TYPE; /* x187582 */ t20972.s1.tag = STRUCTURE_TYPE24753; t20972.s1.value.structure_type24753 = &t20973; /* x187583 */ t20971.s0.tag = STRUCTURE_TYPE24753; t20971.s0.value.structure_type24753 = &t20972; /* x187584 */ t20971.s1.tag = NULL_TYPE; /* x187585 */ t20970.s1.tag = STRUCTURE_TYPE24753; t20970.s1.value.structure_type24753 = &t20971; /* x187586 */ t20969.s0.tag = STRUCTURE_TYPE24753; t20969.s0.value.structure_type24753 = &t20970; /* x187587 */ t20969.s1.tag = NULL_TYPE; /* x187588 */ t20966.s1.tag = STRUCTURE_TYPE24753; t20966.s1.value.structure_type24753 = &t20969; /* x187589 */ t20965.s1.tag = STRUCTURE_TYPE24753; t20965.s1.value.structure_type24753 = &t20966; /* x187592 */ t20982.s0.tag = EXTERNAL_SYMBOL_TYPE; t20982.s0.value.external_symbol_type = q97; /* x187593 */ t20984.s0.tag = EXTERNAL_SYMBOL_TYPE; t20984.s0.value.external_symbol_type = q384; /* x187594 */ t20985.s0.tag = EXTERNAL_SYMBOL_TYPE; t20985.s0.value.external_symbol_type = q51; /* x187595 */ t20985.s1.tag = NULL_TYPE; /* x187596 */ t20984.s1.tag = STRUCTURE_TYPE24753; t20984.s1.value.structure_type24753 = &t20985; /* x187597 */ t20983.s0.tag = STRUCTURE_TYPE24753; t20983.s0.value.structure_type24753 = &t20984; /* x187598 */ t20987.s0.tag = EXTERNAL_SYMBOL_TYPE; t20987.s0.value.external_symbol_type = q108; /* x187599 */ t20989.s0.tag = EXTERNAL_SYMBOL_TYPE; t20989.s0.value.external_symbol_type = q107; /* x187600 */ t20991.s0.tag = EXTERNAL_SYMBOL_TYPE; t20991.s0.value.external_symbol_type = q107; /* x187601 */ t20993.s0.tag = EXTERNAL_SYMBOL_TYPE; t20993.s0.value.external_symbol_type = q108; /* x187602 */ t20994.s0.tag = EXTERNAL_SYMBOL_TYPE; t20994.s0.value.external_symbol_type = q51; /* x187603 */ t20994.s1.tag = NULL_TYPE; /* x187604 */ t20993.s1.tag = STRUCTURE_TYPE24753; t20993.s1.value.structure_type24753 = &t20994; /* x187605 */ t20992.s0.tag = STRUCTURE_TYPE24753; t20992.s0.value.structure_type24753 = &t20993; /* x187606 */ t20992.s1.tag = NULL_TYPE; /* x187607 */ t20991.s1.tag = STRUCTURE_TYPE24753; t20991.s1.value.structure_type24753 = &t20992; /* x187608 */ t20990.s0.tag = STRUCTURE_TYPE24753; t20990.s0.value.structure_type24753 = &t20991; /* x187609 */ t20990.s1.tag = NULL_TYPE; /* x187610 */ t20989.s1.tag = STRUCTURE_TYPE24753; t20989.s1.value.structure_type24753 = &t20990; /* x187611 */ t20988.s0.tag = STRUCTURE_TYPE24753; t20988.s0.value.structure_type24753 = &t20989; /* x187612 */ t20988.s1.tag = NULL_TYPE; /* x187613 */ t20987.s1.tag = STRUCTURE_TYPE24753; t20987.s1.value.structure_type24753 = &t20988; /* x187614 */ t20986.s0.tag = STRUCTURE_TYPE24753; t20986.s0.value.structure_type24753 = &t20987; /* x187615 */ t20986.s1.tag = NULL_TYPE; /* x187616 */ t20983.s1.tag = STRUCTURE_TYPE24753; t20983.s1.value.structure_type24753 = &t20986; /* x187617 */ t20982.s1.tag = STRUCTURE_TYPE24753; t20982.s1.value.structure_type24753 = &t20983; /* x187620 */ t20999.s0.tag = EXTERNAL_SYMBOL_TYPE; t20999.s0.value.external_symbol_type = q97; /* x187621 */ t21001.s0.tag = EXTERNAL_SYMBOL_TYPE; t21001.s0.value.external_symbol_type = q385; /* x187622 */ t21002.s0.tag = EXTERNAL_SYMBOL_TYPE; t21002.s0.value.external_symbol_type = q51; /* x187623 */ t21002.s1.tag = NULL_TYPE; /* x187624 */ t21001.s1.tag = STRUCTURE_TYPE24753; t21001.s1.value.structure_type24753 = &t21002; /* x187625 */ t21000.s0.tag = STRUCTURE_TYPE24753; t21000.s0.value.structure_type24753 = &t21001; /* x187626 */ t21004.s0.tag = EXTERNAL_SYMBOL_TYPE; t21004.s0.value.external_symbol_type = q108; /* x187627 */ t21006.s0.tag = EXTERNAL_SYMBOL_TYPE; t21006.s0.value.external_symbol_type = q107; /* x187628 */ t21008.s0.tag = EXTERNAL_SYMBOL_TYPE; t21008.s0.value.external_symbol_type = q108; /* x187629 */ t21010.s0.tag = EXTERNAL_SYMBOL_TYPE; t21010.s0.value.external_symbol_type = q107; /* x187630 */ t21011.s0.tag = EXTERNAL_SYMBOL_TYPE; t21011.s0.value.external_symbol_type = q51; /* x187631 */ t21011.s1.tag = NULL_TYPE; /* x187632 */ t21010.s1.tag = STRUCTURE_TYPE24753; t21010.s1.value.structure_type24753 = &t21011; /* x187633 */ t21009.s0.tag = STRUCTURE_TYPE24753; t21009.s0.value.structure_type24753 = &t21010; /* x187634 */ t21009.s1.tag = NULL_TYPE; /* x187635 */ t21008.s1.tag = STRUCTURE_TYPE24753; t21008.s1.value.structure_type24753 = &t21009; /* x187636 */ t21007.s0.tag = STRUCTURE_TYPE24753; t21007.s0.value.structure_type24753 = &t21008; /* x187637 */ t21007.s1.tag = NULL_TYPE; /* x187638 */ t21006.s1.tag = STRUCTURE_TYPE24753; t21006.s1.value.structure_type24753 = &t21007; /* x187639 */ t21005.s0.tag = STRUCTURE_TYPE24753; t21005.s0.value.structure_type24753 = &t21006; /* x187640 */ t21005.s1.tag = NULL_TYPE; /* x187641 */ t21004.s1.tag = STRUCTURE_TYPE24753; t21004.s1.value.structure_type24753 = &t21005; /* x187642 */ t21003.s0.tag = STRUCTURE_TYPE24753; t21003.s0.value.structure_type24753 = &t21004; /* x187643 */ t21003.s1.tag = NULL_TYPE; /* x187644 */ t21000.s1.tag = STRUCTURE_TYPE24753; t21000.s1.value.structure_type24753 = &t21003; /* x187645 */ t20999.s1.tag = STRUCTURE_TYPE24753; t20999.s1.value.structure_type24753 = &t21000; /* x187648 */ t21016.s0.tag = EXTERNAL_SYMBOL_TYPE; t21016.s0.value.external_symbol_type = q97; /* x187649 */ t21018.s0.tag = EXTERNAL_SYMBOL_TYPE; t21018.s0.value.external_symbol_type = q386; /* x187650 */ t21019.s0.tag = EXTERNAL_SYMBOL_TYPE; t21019.s0.value.external_symbol_type = q51; /* x187651 */ t21019.s1.tag = NULL_TYPE; /* x187652 */ t21018.s1.tag = STRUCTURE_TYPE24753; t21018.s1.value.structure_type24753 = &t21019; /* x187653 */ t21017.s0.tag = STRUCTURE_TYPE24753; t21017.s0.value.structure_type24753 = &t21018; /* x187654 */ t21021.s0.tag = EXTERNAL_SYMBOL_TYPE; t21021.s0.value.external_symbol_type = q108; /* x187655 */ t21023.s0.tag = EXTERNAL_SYMBOL_TYPE; t21023.s0.value.external_symbol_type = q107; /* x187656 */ t21025.s0.tag = EXTERNAL_SYMBOL_TYPE; t21025.s0.value.external_symbol_type = q108; /* x187657 */ t21027.s0.tag = EXTERNAL_SYMBOL_TYPE; t21027.s0.value.external_symbol_type = q108; /* x187658 */ t21028.s0.tag = EXTERNAL_SYMBOL_TYPE; t21028.s0.value.external_symbol_type = q51; /* x187659 */ t21028.s1.tag = NULL_TYPE; /* x187660 */ t21027.s1.tag = STRUCTURE_TYPE24753; t21027.s1.value.structure_type24753 = &t21028; /* x187661 */ t21026.s0.tag = STRUCTURE_TYPE24753; t21026.s0.value.structure_type24753 = &t21027; /* x187662 */ t21026.s1.tag = NULL_TYPE; /* x187663 */ t21025.s1.tag = STRUCTURE_TYPE24753; t21025.s1.value.structure_type24753 = &t21026; /* x187664 */ t21024.s0.tag = STRUCTURE_TYPE24753; t21024.s0.value.structure_type24753 = &t21025; /* x187665 */ t21024.s1.tag = NULL_TYPE; /* x187666 */ t21023.s1.tag = STRUCTURE_TYPE24753; t21023.s1.value.structure_type24753 = &t21024; /* x187667 */ t21022.s0.tag = STRUCTURE_TYPE24753; t21022.s0.value.structure_type24753 = &t21023; /* x187668 */ t21022.s1.tag = NULL_TYPE; /* x187669 */ t21021.s1.tag = STRUCTURE_TYPE24753; t21021.s1.value.structure_type24753 = &t21022; /* x187670 */ t21020.s0.tag = STRUCTURE_TYPE24753; t21020.s0.value.structure_type24753 = &t21021; /* x187671 */ t21020.s1.tag = NULL_TYPE; /* x187672 */ t21017.s1.tag = STRUCTURE_TYPE24753; t21017.s1.value.structure_type24753 = &t21020; /* x187673 */ t21016.s1.tag = STRUCTURE_TYPE24753; t21016.s1.value.structure_type24753 = &t21017; /* x187676 */ t21033.s0.tag = EXTERNAL_SYMBOL_TYPE; t21033.s0.value.external_symbol_type = q97; /* x187677 */ t21035.s0.tag = EXTERNAL_SYMBOL_TYPE; t21035.s0.value.external_symbol_type = q387; /* x187678 */ t21036.s0.tag = EXTERNAL_SYMBOL_TYPE; t21036.s0.value.external_symbol_type = q51; /* x187679 */ t21036.s1.tag = NULL_TYPE; /* x187680 */ t21035.s1.tag = STRUCTURE_TYPE24753; t21035.s1.value.structure_type24753 = &t21036; /* x187681 */ t21034.s0.tag = STRUCTURE_TYPE24753; t21034.s0.value.structure_type24753 = &t21035; /* x187682 */ t21038.s0.tag = EXTERNAL_SYMBOL_TYPE; t21038.s0.value.external_symbol_type = q108; /* x187683 */ t21040.s0.tag = EXTERNAL_SYMBOL_TYPE; t21040.s0.value.external_symbol_type = q108; /* x187684 */ t21042.s0.tag = EXTERNAL_SYMBOL_TYPE; t21042.s0.value.external_symbol_type = q107; /* x187685 */ t21044.s0.tag = EXTERNAL_SYMBOL_TYPE; t21044.s0.value.external_symbol_type = q107; /* x187686 */ t21045.s0.tag = EXTERNAL_SYMBOL_TYPE; t21045.s0.value.external_symbol_type = q51; /* x187687 */ t21045.s1.tag = NULL_TYPE; /* x187688 */ t21044.s1.tag = STRUCTURE_TYPE24753; t21044.s1.value.structure_type24753 = &t21045; /* x187689 */ t21043.s0.tag = STRUCTURE_TYPE24753; t21043.s0.value.structure_type24753 = &t21044; /* x187690 */ t21043.s1.tag = NULL_TYPE; /* x187691 */ t21042.s1.tag = STRUCTURE_TYPE24753; t21042.s1.value.structure_type24753 = &t21043; /* x187692 */ t21041.s0.tag = STRUCTURE_TYPE24753; t21041.s0.value.structure_type24753 = &t21042; /* x187693 */ t21041.s1.tag = NULL_TYPE; /* x187694 */ t21040.s1.tag = STRUCTURE_TYPE24753; t21040.s1.value.structure_type24753 = &t21041; /* x187695 */ t21039.s0.tag = STRUCTURE_TYPE24753; t21039.s0.value.structure_type24753 = &t21040; /* x187696 */ t21039.s1.tag = NULL_TYPE; /* x187697 */ t21038.s1.tag = STRUCTURE_TYPE24753; t21038.s1.value.structure_type24753 = &t21039; /* x187698 */ t21037.s0.tag = STRUCTURE_TYPE24753; t21037.s0.value.structure_type24753 = &t21038; /* x187699 */ t21037.s1.tag = NULL_TYPE; /* x187700 */ t21034.s1.tag = STRUCTURE_TYPE24753; t21034.s1.value.structure_type24753 = &t21037; /* x187701 */ t21033.s1.tag = STRUCTURE_TYPE24753; t21033.s1.value.structure_type24753 = &t21034; /* x187704 */ t21050.s0.tag = EXTERNAL_SYMBOL_TYPE; t21050.s0.value.external_symbol_type = q97; /* x187705 */ t21052.s0.tag = EXTERNAL_SYMBOL_TYPE; t21052.s0.value.external_symbol_type = q388; /* x187706 */ t21053.s0.tag = EXTERNAL_SYMBOL_TYPE; t21053.s0.value.external_symbol_type = q51; /* x187707 */ t21053.s1.tag = NULL_TYPE; /* x187708 */ t21052.s1.tag = STRUCTURE_TYPE24753; t21052.s1.value.structure_type24753 = &t21053; /* x187709 */ t21051.s0.tag = STRUCTURE_TYPE24753; t21051.s0.value.structure_type24753 = &t21052; /* x187710 */ t21055.s0.tag = EXTERNAL_SYMBOL_TYPE; t21055.s0.value.external_symbol_type = q108; /* x187711 */ t21057.s0.tag = EXTERNAL_SYMBOL_TYPE; t21057.s0.value.external_symbol_type = q108; /* x187712 */ t21059.s0.tag = EXTERNAL_SYMBOL_TYPE; t21059.s0.value.external_symbol_type = q107; /* x187713 */ t21061.s0.tag = EXTERNAL_SYMBOL_TYPE; t21061.s0.value.external_symbol_type = q108; /* x187714 */ t21062.s0.tag = EXTERNAL_SYMBOL_TYPE; t21062.s0.value.external_symbol_type = q51; /* x187715 */ t21062.s1.tag = NULL_TYPE; /* x187716 */ t21061.s1.tag = STRUCTURE_TYPE24753; t21061.s1.value.structure_type24753 = &t21062; /* x187717 */ t21060.s0.tag = STRUCTURE_TYPE24753; t21060.s0.value.structure_type24753 = &t21061; /* x187718 */ t21060.s1.tag = NULL_TYPE; /* x187719 */ t21059.s1.tag = STRUCTURE_TYPE24753; t21059.s1.value.structure_type24753 = &t21060; /* x187720 */ t21058.s0.tag = STRUCTURE_TYPE24753; t21058.s0.value.structure_type24753 = &t21059; /* x187721 */ t21058.s1.tag = NULL_TYPE; /* x187722 */ t21057.s1.tag = STRUCTURE_TYPE24753; t21057.s1.value.structure_type24753 = &t21058; /* x187723 */ t21056.s0.tag = STRUCTURE_TYPE24753; t21056.s0.value.structure_type24753 = &t21057; /* x187724 */ t21056.s1.tag = NULL_TYPE; /* x187725 */ t21055.s1.tag = STRUCTURE_TYPE24753; t21055.s1.value.structure_type24753 = &t21056; /* x187726 */ t21054.s0.tag = STRUCTURE_TYPE24753; t21054.s0.value.structure_type24753 = &t21055; /* x187727 */ t21054.s1.tag = NULL_TYPE; /* x187728 */ t21051.s1.tag = STRUCTURE_TYPE24753; t21051.s1.value.structure_type24753 = &t21054; /* x187729 */ t21050.s1.tag = STRUCTURE_TYPE24753; t21050.s1.value.structure_type24753 = &t21051; /* x187732 */ t21067.s0.tag = EXTERNAL_SYMBOL_TYPE; t21067.s0.value.external_symbol_type = q97; /* x187733 */ t21069.s0.tag = EXTERNAL_SYMBOL_TYPE; t21069.s0.value.external_symbol_type = q389; /* x187734 */ t21070.s0.tag = EXTERNAL_SYMBOL_TYPE; t21070.s0.value.external_symbol_type = q51; /* x187735 */ t21070.s1.tag = NULL_TYPE; /* x187736 */ t21069.s1.tag = STRUCTURE_TYPE24753; t21069.s1.value.structure_type24753 = &t21070; /* x187737 */ t21068.s0.tag = STRUCTURE_TYPE24753; t21068.s0.value.structure_type24753 = &t21069; /* x187738 */ t21072.s0.tag = EXTERNAL_SYMBOL_TYPE; t21072.s0.value.external_symbol_type = q108; /* x187739 */ t21074.s0.tag = EXTERNAL_SYMBOL_TYPE; t21074.s0.value.external_symbol_type = q108; /* x187740 */ t21076.s0.tag = EXTERNAL_SYMBOL_TYPE; t21076.s0.value.external_symbol_type = q108; /* x187741 */ t21078.s0.tag = EXTERNAL_SYMBOL_TYPE; t21078.s0.value.external_symbol_type = q107; /* x187742 */ t21079.s0.tag = EXTERNAL_SYMBOL_TYPE; t21079.s0.value.external_symbol_type = q51; /* x187743 */ t21079.s1.tag = NULL_TYPE; /* x187744 */ t21078.s1.tag = STRUCTURE_TYPE24753; t21078.s1.value.structure_type24753 = &t21079; /* x187745 */ t21077.s0.tag = STRUCTURE_TYPE24753; t21077.s0.value.structure_type24753 = &t21078; /* x187746 */ t21077.s1.tag = NULL_TYPE; /* x187747 */ t21076.s1.tag = STRUCTURE_TYPE24753; t21076.s1.value.structure_type24753 = &t21077; /* x187748 */ t21075.s0.tag = STRUCTURE_TYPE24753; t21075.s0.value.structure_type24753 = &t21076; /* x187749 */ t21075.s1.tag = NULL_TYPE; /* x187750 */ t21074.s1.tag = STRUCTURE_TYPE24753; t21074.s1.value.structure_type24753 = &t21075; /* x187751 */ t21073.s0.tag = STRUCTURE_TYPE24753; t21073.s0.value.structure_type24753 = &t21074; /* x187752 */ t21073.s1.tag = NULL_TYPE; /* x187753 */ t21072.s1.tag = STRUCTURE_TYPE24753; t21072.s1.value.structure_type24753 = &t21073; /* x187754 */ t21071.s0.tag = STRUCTURE_TYPE24753; t21071.s0.value.structure_type24753 = &t21072; /* x187755 */ t21071.s1.tag = NULL_TYPE; /* x187756 */ t21068.s1.tag = STRUCTURE_TYPE24753; t21068.s1.value.structure_type24753 = &t21071; /* x187757 */ t21067.s1.tag = STRUCTURE_TYPE24753; t21067.s1.value.structure_type24753 = &t21068; /* x187760 */ t21084.s0.tag = EXTERNAL_SYMBOL_TYPE; t21084.s0.value.external_symbol_type = q97; /* x187761 */ t21086.s0.tag = EXTERNAL_SYMBOL_TYPE; t21086.s0.value.external_symbol_type = q390; /* x187762 */ t21087.s0.tag = EXTERNAL_SYMBOL_TYPE; t21087.s0.value.external_symbol_type = q51; /* x187763 */ t21087.s1.tag = NULL_TYPE; /* x187764 */ t21086.s1.tag = STRUCTURE_TYPE24753; t21086.s1.value.structure_type24753 = &t21087; /* x187765 */ t21085.s0.tag = STRUCTURE_TYPE24753; t21085.s0.value.structure_type24753 = &t21086; /* x187766 */ t21089.s0.tag = EXTERNAL_SYMBOL_TYPE; t21089.s0.value.external_symbol_type = q108; /* x187767 */ t21091.s0.tag = EXTERNAL_SYMBOL_TYPE; t21091.s0.value.external_symbol_type = q108; /* x187768 */ t21093.s0.tag = EXTERNAL_SYMBOL_TYPE; t21093.s0.value.external_symbol_type = q108; /* x187769 */ t21095.s0.tag = EXTERNAL_SYMBOL_TYPE; t21095.s0.value.external_symbol_type = q108; /* x187770 */ t21096.s0.tag = EXTERNAL_SYMBOL_TYPE; t21096.s0.value.external_symbol_type = q51; /* x187771 */ t21096.s1.tag = NULL_TYPE; /* x187772 */ t21095.s1.tag = STRUCTURE_TYPE24753; t21095.s1.value.structure_type24753 = &t21096; /* x187773 */ t21094.s0.tag = STRUCTURE_TYPE24753; t21094.s0.value.structure_type24753 = &t21095; /* x187774 */ t21094.s1.tag = NULL_TYPE; /* x187775 */ t21093.s1.tag = STRUCTURE_TYPE24753; t21093.s1.value.structure_type24753 = &t21094; /* x187776 */ t21092.s0.tag = STRUCTURE_TYPE24753; t21092.s0.value.structure_type24753 = &t21093; /* x187777 */ t21092.s1.tag = NULL_TYPE; /* x187778 */ t21091.s1.tag = STRUCTURE_TYPE24753; t21091.s1.value.structure_type24753 = &t21092; /* x187779 */ t21090.s0.tag = STRUCTURE_TYPE24753; t21090.s0.value.structure_type24753 = &t21091; /* x187780 */ t21090.s1.tag = NULL_TYPE; /* x187781 */ t21089.s1.tag = STRUCTURE_TYPE24753; t21089.s1.value.structure_type24753 = &t21090; /* x187782 */ t21088.s0.tag = STRUCTURE_TYPE24753; t21088.s0.value.structure_type24753 = &t21089; /* x187783 */ t21088.s1.tag = NULL_TYPE; /* x187784 */ t21085.s1.tag = STRUCTURE_TYPE24753; t21085.s1.value.structure_type24753 = &t21088; /* x187785 */ t21084.s1.tag = STRUCTURE_TYPE24753; t21084.s1.value.structure_type24753 = &t21085; /* x187788 */ t21101.s0.tag = EXTERNAL_SYMBOL_TYPE; t21101.s0.value.external_symbol_type = q97; /* x187789 */ t21103.s0.tag = EXTERNAL_SYMBOL_TYPE; t21103.s0.value.external_symbol_type = q111; /* x187790 */ t21104.s0.tag = EXTERNAL_SYMBOL_TYPE; t21104.s0.value.external_symbol_type = q318; /* x187791 */ t21104.s1.tag = NULL_TYPE; /* x187792 */ t21103.s1.tag = STRUCTURE_TYPE24753; t21103.s1.value.structure_type24753 = &t21104; /* x187793 */ t21102.s0.tag = STRUCTURE_TYPE24753; t21102.s0.value.structure_type24753 = &t21103; /* x187794 */ t21107.s0.tag = EXTERNAL_SYMBOL_TYPE; t21107.s0.value.external_symbol_type = q77; /* x187795 */ t21108.s0.tag = EXTERNAL_SYMBOL_TYPE; t21108.s0.value.external_symbol_type = q111; /* x187796 */ t21108.s1.tag = NULL_TYPE; /* x187797 */ t21107.s1.tag = STRUCTURE_TYPE24753; t21107.s1.value.structure_type24753 = &t21108; /* x187798 */ t21106.s0.tag = STRUCTURE_TYPE24753; t21106.s0.value.structure_type24753 = &t21107; /* x187799 */ t21109.s0.tag = EXTERNAL_SYMBOL_TYPE; t21109.s0.value.external_symbol_type = q318; /* x187800 */ t21109.s1.tag = NULL_TYPE; /* x187801 */ t21106.s1.tag = STRUCTURE_TYPE24753; t21106.s1.value.structure_type24753 = &t21109; /* x187802 */ t21105.s0.tag = STRUCTURE_TYPE24753; t21105.s0.value.structure_type24753 = &t21106; /* x187803 */ t21105.s1.tag = NULL_TYPE; /* x187804 */ t21102.s1.tag = STRUCTURE_TYPE24753; t21102.s1.value.structure_type24753 = &t21105; /* x187805 */ t21101.s1.tag = STRUCTURE_TYPE24753; t21101.s1.value.structure_type24753 = &t21102; /* x187808 */ t21114.s0.tag = EXTERNAL_SYMBOL_TYPE; t21114.s0.value.external_symbol_type = q97; /* x187809 */ t21116.s0.tag = EXTERNAL_SYMBOL_TYPE; t21116.s0.value.external_symbol_type = q391; /* x187810 */ t21117.s0.tag = EXTERNAL_SYMBOL_TYPE; t21117.s0.value.external_symbol_type = q252; /* x187811 */ t21117.s1.tag = NULL_TYPE; /* x187812 */ t21116.s1.tag = STRUCTURE_TYPE24753; t21116.s1.value.structure_type24753 = &t21117; /* x187813 */ t21115.s0.tag = STRUCTURE_TYPE24753; t21115.s0.value.structure_type24753 = &t21116; /* x187814 */ t21119.s0.tag = EXTERNAL_SYMBOL_TYPE; t21119.s0.value.external_symbol_type = q241; /* x187815 */ t21121.s0.tag = EXTERNAL_SYMBOL_TYPE; t21121.s0.value.external_symbol_type = q111; /* x187816 */ t21122.s0.tag = EXTERNAL_SYMBOL_TYPE; t21122.s0.value.external_symbol_type = q252; /* x187817 */ t21122.s1.tag = NULL_TYPE; /* x187818 */ t21121.s1.tag = STRUCTURE_TYPE24753; t21121.s1.value.structure_type24753 = &t21122; /* x187819 */ t21120.s0.tag = STRUCTURE_TYPE24753; t21120.s0.value.structure_type24753 = &t21121; /* x187820 */ t21124.s0.tag = EXTERNAL_SYMBOL_TYPE; t21124.s0.value.external_symbol_type = q244; /* x187821 */ t21126.s0.tag = EXTERNAL_SYMBOL_TYPE; t21126.s0.value.external_symbol_type = q105; /* x187822 */ t21127.s0.tag = EXTERNAL_SYMBOL_TYPE; t21127.s0.value.external_symbol_type = q252; /* x187823 */ t21127.s1.tag = NULL_TYPE; /* x187824 */ t21126.s1.tag = STRUCTURE_TYPE24753; t21126.s1.value.structure_type24753 = &t21127; /* x187825 */ t21125.s0.tag = STRUCTURE_TYPE24753; t21125.s0.value.structure_type24753 = &t21126; /* x187826 */ t21129.s0.tag = EXTERNAL_SYMBOL_TYPE; t21129.s0.value.external_symbol_type = q242; /* x187827 */ t21130.s0.tag = EXTERNAL_SYMBOL_TYPE; t21130.s0.value.external_symbol_type = q289; /* x187828 */ t21133.s0.tag = EXTERNAL_SYMBOL_TYPE; t21133.s0.value.external_symbol_type = q392; /* x187829 */ t21134.s0.tag = EXTERNAL_SYMBOL_TYPE; t21134.s0.value.external_symbol_type = q252; /* x187830 */ t21134.s1.tag = NULL_TYPE; /* x187831 */ t21133.s1.tag = STRUCTURE_TYPE24753; t21133.s1.value.structure_type24753 = &t21134; /* x187832 */ t21132.s0.tag = STRUCTURE_TYPE24753; t21132.s0.value.structure_type24753 = &t21133; /* x187833 */ t21136.s0.tag = EXTERNAL_SYMBOL_TYPE; t21136.s0.value.external_symbol_type = q393; /* x187834 */ t21138.s0.tag = EXTERNAL_SYMBOL_TYPE; t21138.s0.value.external_symbol_type = q108; /* x187835 */ t21139.s0.tag = EXTERNAL_SYMBOL_TYPE; t21139.s0.value.external_symbol_type = q252; /* x187836 */ t21139.s1.tag = NULL_TYPE; /* x187837 */ t21138.s1.tag = STRUCTURE_TYPE24753; t21138.s1.value.structure_type24753 = &t21139; /* x187838 */ t21137.s0.tag = STRUCTURE_TYPE24753; t21137.s0.value.structure_type24753 = &t21138; /* x187839 */ t21137.s1.tag = NULL_TYPE; /* x187840 */ t21136.s1.tag = STRUCTURE_TYPE24753; t21136.s1.value.structure_type24753 = &t21137; /* x187841 */ t21135.s0.tag = STRUCTURE_TYPE24753; t21135.s0.value.structure_type24753 = &t21136; /* x187842 */ t21135.s1.tag = NULL_TYPE; /* x187843 */ t21132.s1.tag = STRUCTURE_TYPE24753; t21132.s1.value.structure_type24753 = &t21135; /* x187844 */ t21131.s0.tag = STRUCTURE_TYPE24753; t21131.s0.value.structure_type24753 = &t21132; /* x187845 */ t21141.s0.tag = EXTERNAL_SYMBOL_TYPE; t21141.s0.value.external_symbol_type = q241; /* x187846 */ t21143.s0.tag = EXTERNAL_SYMBOL_TYPE; t21143.s0.value.external_symbol_type = q111; /* x187847 */ t21144.s0.tag = EXTERNAL_SYMBOL_TYPE; t21144.s0.value.external_symbol_type = q393; /* x187848 */ t21144.s1.tag = NULL_TYPE; /* x187849 */ t21143.s1.tag = STRUCTURE_TYPE24753; t21143.s1.value.structure_type24753 = &t21144; /* x187850 */ t21142.s0.tag = STRUCTURE_TYPE24753; t21142.s0.value.structure_type24753 = &t21143; /* x187851 */ t21146.s0.tag = EXTERNAL_SYMBOL_TYPE; t21146.s0.value.external_symbol_type = q244; /* x187852 */ t21148.s0.tag = EXTERNAL_SYMBOL_TYPE; t21148.s0.value.external_symbol_type = q105; /* x187853 */ t21149.s0.tag = EXTERNAL_SYMBOL_TYPE; t21149.s0.value.external_symbol_type = q393; /* x187854 */ t21149.s1.tag = NULL_TYPE; /* x187855 */ t21148.s1.tag = STRUCTURE_TYPE24753; t21148.s1.value.structure_type24753 = &t21149; /* x187856 */ t21147.s0.tag = STRUCTURE_TYPE24753; t21147.s0.value.structure_type24753 = &t21148; /* x187857 */ t21151.s0.tag = EXTERNAL_SYMBOL_TYPE; t21151.s0.value.external_symbol_type = q244; /* x187858 */ t21153.s0.tag = EXTERNAL_SYMBOL_TYPE; t21153.s0.value.external_symbol_type = q102; /* x187859 */ t21155.s0.tag = EXTERNAL_SYMBOL_TYPE; t21155.s0.value.external_symbol_type = q104; /* x187860 */ t21156.s0.tag = EXTERNAL_SYMBOL_TYPE; t21156.s0.value.external_symbol_type = q393; /* x187861 */ t21157.s0.tag = EXTERNAL_SYMBOL_TYPE; t21157.s0.value.external_symbol_type = q392; /* x187862 */ t21157.s1.tag = NULL_TYPE; /* x187863 */ t21156.s1.tag = STRUCTURE_TYPE24753; t21156.s1.value.structure_type24753 = &t21157; /* x187864 */ t21155.s1.tag = STRUCTURE_TYPE24753; t21155.s1.value.structure_type24753 = &t21156; /* x187865 */ t21154.s0.tag = STRUCTURE_TYPE24753; t21154.s0.value.structure_type24753 = &t21155; /* x187866 */ t21154.s1.tag = NULL_TYPE; /* x187867 */ t21153.s1.tag = STRUCTURE_TYPE24753; t21153.s1.value.structure_type24753 = &t21154; /* x187868 */ t21152.s0.tag = STRUCTURE_TYPE24753; t21152.s0.value.structure_type24753 = &t21153; /* x187869 */ t21159.s0.tag = EXTERNAL_SYMBOL_TYPE; t21159.s0.value.external_symbol_type = q242; /* x187870 */ t21162.s0.tag = EXTERNAL_SYMBOL_TYPE; t21162.s0.value.external_symbol_type = q393; /* x187871 */ t21164.s0.tag = EXTERNAL_SYMBOL_TYPE; t21164.s0.value.external_symbol_type = q108; /* x187872 */ t21165.s0.tag = EXTERNAL_SYMBOL_TYPE; t21165.s0.value.external_symbol_type = q393; /* x187873 */ t21165.s1.tag = NULL_TYPE; /* x187874 */ t21164.s1.tag = STRUCTURE_TYPE24753; t21164.s1.value.structure_type24753 = &t21165; /* x187875 */ t21163.s0.tag = STRUCTURE_TYPE24753; t21163.s0.value.structure_type24753 = &t21164; /* x187876 */ t21163.s1.tag = NULL_TYPE; /* x187877 */ t21162.s1.tag = STRUCTURE_TYPE24753; t21162.s1.value.structure_type24753 = &t21163; /* x187878 */ t21161.s0.tag = STRUCTURE_TYPE24753; t21161.s0.value.structure_type24753 = &t21162; /* x187879 */ t21161.s1.tag = NULL_TYPE; /* x187880 */ t21160.s0.tag = STRUCTURE_TYPE24753; t21160.s0.value.structure_type24753 = &t21161; /* x187881 */ t21167.s0.tag = EXTERNAL_SYMBOL_TYPE; t21167.s0.value.external_symbol_type = q241; /* x187882 */ t21169.s0.tag = EXTERNAL_SYMBOL_TYPE; t21169.s0.value.external_symbol_type = q111; /* x187883 */ t21170.s0.tag = EXTERNAL_SYMBOL_TYPE; t21170.s0.value.external_symbol_type = q393; /* x187884 */ t21170.s1.tag = NULL_TYPE; /* x187885 */ t21169.s1.tag = STRUCTURE_TYPE24753; t21169.s1.value.structure_type24753 = &t21170; /* x187886 */ t21168.s0.tag = STRUCTURE_TYPE24753; t21168.s0.value.structure_type24753 = &t21169; /* x187887 */ t21172.s0.tag = EXTERNAL_SYMBOL_TYPE; t21172.s0.value.external_symbol_type = q244; /* x187888 */ t21174.s0.tag = EXTERNAL_SYMBOL_TYPE; t21174.s0.value.external_symbol_type = q105; /* x187889 */ t21175.s0.tag = EXTERNAL_SYMBOL_TYPE; t21175.s0.value.external_symbol_type = q393; /* x187890 */ t21175.s1.tag = NULL_TYPE; /* x187891 */ t21174.s1.tag = STRUCTURE_TYPE24753; t21174.s1.value.structure_type24753 = &t21175; /* x187892 */ t21173.s0.tag = STRUCTURE_TYPE24753; t21173.s0.value.structure_type24753 = &t21174; /* x187893 */ t21177.s0.tag = EXTERNAL_SYMBOL_TYPE; t21177.s0.value.external_symbol_type = q289; /* x187894 */ t21179.s0.tag = EXTERNAL_SYMBOL_TYPE; t21179.s0.value.external_symbol_type = q108; /* x187895 */ t21180.s0.tag = EXTERNAL_SYMBOL_TYPE; t21180.s0.value.external_symbol_type = q392; /* x187896 */ t21180.s1.tag = NULL_TYPE; /* x187897 */ t21179.s1.tag = STRUCTURE_TYPE24753; t21179.s1.value.structure_type24753 = &t21180; /* x187898 */ t21178.s0.tag = STRUCTURE_TYPE24753; t21178.s0.value.structure_type24753 = &t21179; /* x187899 */ t21182.s0.tag = EXTERNAL_SYMBOL_TYPE; t21182.s0.value.external_symbol_type = q108; /* x187900 */ t21183.s0.tag = EXTERNAL_SYMBOL_TYPE; t21183.s0.value.external_symbol_type = q393; /* x187901 */ t21183.s1.tag = NULL_TYPE; /* x187902 */ t21182.s1.tag = STRUCTURE_TYPE24753; t21182.s1.value.structure_type24753 = &t21183; /* x187903 */ t21181.s0.tag = STRUCTURE_TYPE24753; t21181.s0.value.structure_type24753 = &t21182; /* x187904 */ t21181.s1.tag = NULL_TYPE; /* x187905 */ t21178.s1.tag = STRUCTURE_TYPE24753; t21178.s1.value.structure_type24753 = &t21181; /* x187906 */ t21177.s1.tag = STRUCTURE_TYPE24753; t21177.s1.value.structure_type24753 = &t21178; /* x187907 */ t21176.s0.tag = STRUCTURE_TYPE24753; t21176.s0.value.structure_type24753 = &t21177; /* x187908 */ t21176.s1.tag = NULL_TYPE; /* x187909 */ t21173.s1.tag = STRUCTURE_TYPE24753; t21173.s1.value.structure_type24753 = &t21176; /* x187910 */ t21172.s1.tag = STRUCTURE_TYPE24753; t21172.s1.value.structure_type24753 = &t21173; /* x187911 */ t21171.s0.tag = STRUCTURE_TYPE24753; t21171.s0.value.structure_type24753 = &t21172; /* x187912 */ t21171.s1.tag = NULL_TYPE; /* x187913 */ t21168.s1.tag = STRUCTURE_TYPE24753; t21168.s1.value.structure_type24753 = &t21171; /* x187914 */ t21167.s1.tag = STRUCTURE_TYPE24753; t21167.s1.value.structure_type24753 = &t21168; /* x187915 */ t21166.s0.tag = STRUCTURE_TYPE24753; t21166.s0.value.structure_type24753 = &t21167; /* x187916 */ t21166.s1.tag = NULL_TYPE; /* x187917 */ t21160.s1.tag = STRUCTURE_TYPE24753; t21160.s1.value.structure_type24753 = &t21166; /* x187918 */ t21159.s1.tag = STRUCTURE_TYPE24753; t21159.s1.value.structure_type24753 = &t21160; /* x187919 */ t21158.s0.tag = STRUCTURE_TYPE24753; t21158.s0.value.structure_type24753 = &t21159; /* x187920 */ t21158.s1.tag = NULL_TYPE; /* x187921 */ t21152.s1.tag = STRUCTURE_TYPE24753; t21152.s1.value.structure_type24753 = &t21158; /* x187922 */ t21151.s1.tag = STRUCTURE_TYPE24753; t21151.s1.value.structure_type24753 = &t21152; /* x187923 */ t21150.s0.tag = STRUCTURE_TYPE24753; t21150.s0.value.structure_type24753 = &t21151; /* x187924 */ t21150.s1.tag = NULL_TYPE; /* x187925 */ t21147.s1.tag = STRUCTURE_TYPE24753; t21147.s1.value.structure_type24753 = &t21150; /* x187926 */ t21146.s1.tag = STRUCTURE_TYPE24753; t21146.s1.value.structure_type24753 = &t21147; /* x187927 */ t21145.s0.tag = STRUCTURE_TYPE24753; t21145.s0.value.structure_type24753 = &t21146; /* x187928 */ t21145.s1.tag = NULL_TYPE; /* x187929 */ t21142.s1.tag = STRUCTURE_TYPE24753; t21142.s1.value.structure_type24753 = &t21145; /* x187930 */ t21141.s1.tag = STRUCTURE_TYPE24753; t21141.s1.value.structure_type24753 = &t21142; /* x187931 */ t21140.s0.tag = STRUCTURE_TYPE24753; t21140.s0.value.structure_type24753 = &t21141; /* x187932 */ t21140.s1.tag = NULL_TYPE; /* x187933 */ t21131.s1.tag = STRUCTURE_TYPE24753; t21131.s1.value.structure_type24753 = &t21140; /* x187934 */ t21130.s1.tag = STRUCTURE_TYPE24753; t21130.s1.value.structure_type24753 = &t21131; /* x187935 */ t21129.s1.tag = STRUCTURE_TYPE24753; t21129.s1.value.structure_type24753 = &t21130; /* x187936 */ t21128.s0.tag = STRUCTURE_TYPE24753; t21128.s0.value.structure_type24753 = &t21129; /* x187937 */ t21128.s1.tag = NULL_TYPE; /* x187938 */ t21125.s1.tag = STRUCTURE_TYPE24753; t21125.s1.value.structure_type24753 = &t21128; /* x187939 */ t21124.s1.tag = STRUCTURE_TYPE24753; t21124.s1.value.structure_type24753 = &t21125; /* x187940 */ t21123.s0.tag = STRUCTURE_TYPE24753; t21123.s0.value.structure_type24753 = &t21124; /* x187941 */ t21123.s1.tag = NULL_TYPE; /* x187942 */ t21120.s1.tag = STRUCTURE_TYPE24753; t21120.s1.value.structure_type24753 = &t21123; /* x187943 */ t21119.s1.tag = STRUCTURE_TYPE24753; t21119.s1.value.structure_type24753 = &t21120; /* x187944 */ t21118.s0.tag = STRUCTURE_TYPE24753; t21118.s0.value.structure_type24753 = &t21119; /* x187945 */ t21118.s1.tag = NULL_TYPE; /* x187946 */ t21115.s1.tag = STRUCTURE_TYPE24753; t21115.s1.value.structure_type24753 = &t21118; /* x187947 */ t21114.s1.tag = STRUCTURE_TYPE24753; t21114.s1.value.structure_type24753 = &t21115; /* x187950 */ t21188.s0.tag = EXTERNAL_SYMBOL_TYPE; t21188.s0.value.external_symbol_type = q97; /* x187951 */ t21190.s0.tag = EXTERNAL_SYMBOL_TYPE; t21190.s0.value.external_symbol_type = q1; /* x187952 */ t21190.s1.tag = EXTERNAL_SYMBOL_TYPE; t21190.s1.value.external_symbol_type = q394; /* x187953 */ t21189.s0.tag = STRUCTURE_TYPE24753; t21189.s0.value.structure_type24753 = &t21190; /* x187954 */ t21191.s0.tag = EXTERNAL_SYMBOL_TYPE; t21191.s0.value.external_symbol_type = q394; /* x187955 */ t21191.s1.tag = NULL_TYPE; /* x187956 */ t21189.s1.tag = STRUCTURE_TYPE24753; t21189.s1.value.structure_type24753 = &t21191; /* x187957 */ t21188.s1.tag = STRUCTURE_TYPE24753; t21188.s1.value.structure_type24753 = &t21189; /* x187960 */ t21196.s0.tag = EXTERNAL_SYMBOL_TYPE; t21196.s0.value.external_symbol_type = q97; /* x187961 */ t21198.s0.tag = EXTERNAL_SYMBOL_TYPE; t21198.s0.value.external_symbol_type = q395; /* x187962 */ t21199.s0.tag = EXTERNAL_SYMBOL_TYPE; t21199.s0.value.external_symbol_type = q1; /* x187963 */ t21199.s1.tag = NULL_TYPE; /* x187964 */ t21198.s1.tag = STRUCTURE_TYPE24753; t21198.s1.value.structure_type24753 = &t21199; /* x187965 */ t21197.s0.tag = STRUCTURE_TYPE24753; t21197.s0.value.structure_type24753 = &t21198; /* x187966 */ t21201.s0.tag = EXTERNAL_SYMBOL_TYPE; t21201.s0.value.external_symbol_type = q242; /* x187967 */ t21202.s0.tag = EXTERNAL_SYMBOL_TYPE; t21202.s0.value.external_symbol_type = q287; /* x187968 */ t21205.s0.tag = EXTERNAL_SYMBOL_TYPE; t21205.s0.value.external_symbol_type = q337; /* x187969 */ t21206.s0.tag = FIXNUM_TYPE; t21206.s0.value.fixnum_type = 0; /* x187970 */ t21206.s1.tag = NULL_TYPE; /* x187971 */ t21205.s1.tag = STRUCTURE_TYPE24753; t21205.s1.value.structure_type24753 = &t21206; /* x187972 */ t21204.s0.tag = STRUCTURE_TYPE24753; t21204.s0.value.structure_type24753 = &t21205; /* x187973 */ t21204.s1.tag = NULL_TYPE; /* x187974 */ t21203.s0.tag = STRUCTURE_TYPE24753; t21203.s0.value.structure_type24753 = &t21204; /* x187975 */ t21208.s0.tag = EXTERNAL_SYMBOL_TYPE; t21208.s0.value.external_symbol_type = q240; /* x187976 */ t21211.s0.tag = EXTERNAL_SYMBOL_TYPE; t21211.s0.value.external_symbol_type = q111; /* x187977 */ t21212.s0.tag = EXTERNAL_SYMBOL_TYPE; t21212.s0.value.external_symbol_type = q1; /* x187978 */ t21212.s1.tag = NULL_TYPE; /* x187979 */ t21211.s1.tag = STRUCTURE_TYPE24753; t21211.s1.value.structure_type24753 = &t21212; /* x187980 */ t21210.s0.tag = STRUCTURE_TYPE24753; t21210.s0.value.structure_type24753 = &t21211; /* x187981 */ t21213.s0.tag = EXTERNAL_SYMBOL_TYPE; t21213.s0.value.external_symbol_type = q337; /* x187982 */ t21213.s1.tag = NULL_TYPE; /* x187983 */ t21210.s1.tag = STRUCTURE_TYPE24753; t21210.s1.value.structure_type24753 = &t21213; /* x187984 */ t21209.s0.tag = STRUCTURE_TYPE24753; t21209.s0.value.structure_type24753 = &t21210; /* x187985 */ t21215.s0.tag = EXTERNAL_SYMBOL_TYPE; t21215.s0.value.external_symbol_type = q95; /* x187986 */ t21217.s0.tag = EXTERNAL_SYMBOL_TYPE; t21217.s0.value.external_symbol_type = q42; /* x187987 */ t21218.s0.tag = EXTERNAL_SYMBOL_TYPE; t21218.s0.value.external_symbol_type = q1; /* x187988 */ t21220.s0.tag = EXTERNAL_SYMBOL_TYPE; t21220.s0.value.external_symbol_type = q108; /* x187989 */ t21221.s0.tag = EXTERNAL_SYMBOL_TYPE; t21221.s0.value.external_symbol_type = q1; /* x187990 */ t21221.s1.tag = NULL_TYPE; /* x187991 */ t21220.s1.tag = STRUCTURE_TYPE24753; t21220.s1.value.structure_type24753 = &t21221; /* x187992 */ t21219.s0.tag = STRUCTURE_TYPE24753; t21219.s0.value.structure_type24753 = &t21220; /* x187993 */ t21219.s1.tag = NULL_TYPE; /* x187994 */ t21218.s1.tag = STRUCTURE_TYPE24753; t21218.s1.value.structure_type24753 = &t21219; /* x187995 */ t21217.s1.tag = STRUCTURE_TYPE24753; t21217.s1.value.structure_type24753 = &t21218; /* x187996 */ t21216.s0.tag = STRUCTURE_TYPE24753; t21216.s0.value.structure_type24753 = &t21217; /* x187997 */ t21223.s0.tag = EXTERNAL_SYMBOL_TYPE; t21223.s0.value.external_symbol_type = q287; /* x187998 */ t21225.s0.tag = EXTERNAL_SYMBOL_TYPE; t21225.s0.value.external_symbol_type = q4; /* x187999 */ t21226.s0.tag = EXTERNAL_SYMBOL_TYPE; t21226.s0.value.external_symbol_type = q337; /* x188000 */ t21227.s0.tag = FIXNUM_TYPE; t21227.s0.value.fixnum_type = 1; /* x188001 */ t21227.s1.tag = NULL_TYPE; /* x188002 */ t21226.s1.tag = STRUCTURE_TYPE24753; t21226.s1.value.structure_type24753 = &t21227; /* x188003 */ t21225.s1.tag = STRUCTURE_TYPE24753; t21225.s1.value.structure_type24753 = &t21226; /* x188004 */ t21224.s0.tag = STRUCTURE_TYPE24753; t21224.s0.value.structure_type24753 = &t21225; /* x188005 */ t21224.s1.tag = NULL_TYPE; /* x188006 */ t21223.s1.tag = STRUCTURE_TYPE24753; t21223.s1.value.structure_type24753 = &t21224; /* x188007 */ t21222.s0.tag = STRUCTURE_TYPE24753; t21222.s0.value.structure_type24753 = &t21223; /* x188008 */ t21222.s1.tag = NULL_TYPE; /* x188009 */ t21216.s1.tag = STRUCTURE_TYPE24753; t21216.s1.value.structure_type24753 = &t21222; /* x188010 */ t21215.s1.tag = STRUCTURE_TYPE24753; t21215.s1.value.structure_type24753 = &t21216; /* x188011 */ t21214.s0.tag = STRUCTURE_TYPE24753; t21214.s0.value.structure_type24753 = &t21215; /* x188012 */ t21214.s1.tag = NULL_TYPE; /* x188013 */ t21209.s1.tag = STRUCTURE_TYPE24753; t21209.s1.value.structure_type24753 = &t21214; /* x188014 */ t21208.s1.tag = STRUCTURE_TYPE24753; t21208.s1.value.structure_type24753 = &t21209; /* x188015 */ t21207.s0.tag = STRUCTURE_TYPE24753; t21207.s0.value.structure_type24753 = &t21208; /* x188016 */ t21207.s1.tag = NULL_TYPE; /* x188017 */ t21203.s1.tag = STRUCTURE_TYPE24753; t21203.s1.value.structure_type24753 = &t21207; /* x188018 */ t21202.s1.tag = STRUCTURE_TYPE24753; t21202.s1.value.structure_type24753 = &t21203; /* x188019 */ t21201.s1.tag = STRUCTURE_TYPE24753; t21201.s1.value.structure_type24753 = &t21202; /* x188020 */ t21200.s0.tag = STRUCTURE_TYPE24753; t21200.s0.value.structure_type24753 = &t21201; /* x188021 */ t21200.s1.tag = NULL_TYPE; /* x188022 */ t21197.s1.tag = STRUCTURE_TYPE24753; t21197.s1.value.structure_type24753 = &t21200; /* x188023 */ t21196.s1.tag = STRUCTURE_TYPE24753; t21196.s1.value.structure_type24753 = &t21197; /* x188026 */ t21232.s0.tag = EXTERNAL_SYMBOL_TYPE; t21232.s0.value.external_symbol_type = q97; /* x188027 */ t21234.s0.tag = EXTERNAL_SYMBOL_TYPE; t21234.s0.value.external_symbol_type = q396; /* x188028 */ t21235.s0.tag = EXTERNAL_SYMBOL_TYPE; t21235.s0.value.external_symbol_type = q281; /* x188029 */ t21235.s1.tag = NULL_TYPE; /* x188030 */ t21234.s1.tag = STRUCTURE_TYPE24753; t21234.s1.value.structure_type24753 = &t21235; /* x188031 */ t21233.s0.tag = STRUCTURE_TYPE24753; t21233.s0.value.structure_type24753 = &t21234; /* x188032 */ t21237.s0.tag = EXTERNAL_SYMBOL_TYPE; t21237.s0.value.external_symbol_type = q240; /* x188033 */ t21240.s0.tag = EXTERNAL_SYMBOL_TYPE; t21240.s0.value.external_symbol_type = q111; /* x188034 */ t21241.s0.tag = EXTERNAL_SYMBOL_TYPE; t21241.s0.value.external_symbol_type = q281; /* x188035 */ t21241.s1.tag = NULL_TYPE; /* x188036 */ t21240.s1.tag = STRUCTURE_TYPE24753; t21240.s1.value.structure_type24753 = &t21241; /* x188037 */ t21239.s0.tag = STRUCTURE_TYPE24753; t21239.s0.value.structure_type24753 = &t21240; /* x188038 */ t21242.s0.tag = FIXNUM_TYPE; t21242.s0.value.fixnum_type = 0; /* x188039 */ t21242.s1.tag = NULL_TYPE; /* x188040 */ t21239.s1.tag = STRUCTURE_TYPE24753; t21239.s1.value.structure_type24753 = &t21242; /* x188041 */ t21238.s0.tag = STRUCTURE_TYPE24753; t21238.s0.value.structure_type24753 = &t21239; /* x188042 */ t21245.s0.tag = EXTERNAL_SYMBOL_TYPE; t21245.s0.value.external_symbol_type = q105; /* x188043 */ t21246.s0.tag = EXTERNAL_SYMBOL_TYPE; t21246.s0.value.external_symbol_type = q281; /* x188044 */ t21246.s1.tag = NULL_TYPE; /* x188045 */ t21245.s1.tag = STRUCTURE_TYPE24753; t21245.s1.value.structure_type24753 = &t21246; /* x188046 */ t21244.s0.tag = STRUCTURE_TYPE24753; t21244.s0.value.structure_type24753 = &t21245; /* x188047 */ t21248.s0.tag = EXTERNAL_SYMBOL_TYPE; t21248.s0.value.external_symbol_type = q395; /* x188048 */ t21249.s0.tag = EXTERNAL_SYMBOL_TYPE; t21249.s0.value.external_symbol_type = q281; /* x188049 */ t21249.s1.tag = NULL_TYPE; /* x188050 */ t21248.s1.tag = STRUCTURE_TYPE24753; t21248.s1.value.structure_type24753 = &t21249; /* x188051 */ t21247.s0.tag = STRUCTURE_TYPE24753; t21247.s0.value.structure_type24753 = &t21248; /* x188052 */ t21247.s1.tag = NULL_TYPE; /* x188053 */ t21244.s1.tag = STRUCTURE_TYPE24753; t21244.s1.value.structure_type24753 = &t21247; /* x188054 */ t21243.s0.tag = STRUCTURE_TYPE24753; t21243.s0.value.structure_type24753 = &t21244; /* x188055 */ t21252.s0.tag = EXTERNAL_SYMBOL_TYPE; t21252.s0.value.external_symbol_type = q159; /* x188056 */ t21253.s0.tag = EXTERNAL_SYMBOL_TYPE; t21253.s0.value.external_symbol_type = q281; /* x188057 */ t21253.s1.tag = NULL_TYPE; /* x188058 */ t21252.s1.tag = STRUCTURE_TYPE24753; t21252.s1.value.structure_type24753 = &t21253; /* x188059 */ t21251.s0.tag = STRUCTURE_TYPE24753; t21251.s0.value.structure_type24753 = &t21252; /* x188060 */ t21255.s0.tag = EXTERNAL_SYMBOL_TYPE; t21255.s0.value.external_symbol_type = q162; /* x188061 */ t21256.s0.tag = EXTERNAL_SYMBOL_TYPE; t21256.s0.value.external_symbol_type = q281; /* x188062 */ t21256.s1.tag = NULL_TYPE; /* x188063 */ t21255.s1.tag = STRUCTURE_TYPE24753; t21255.s1.value.structure_type24753 = &t21256; /* x188064 */ t21254.s0.tag = STRUCTURE_TYPE24753; t21254.s0.value.structure_type24753 = &t21255; /* x188065 */ t21254.s1.tag = NULL_TYPE; /* x188066 */ t21251.s1.tag = STRUCTURE_TYPE24753; t21251.s1.value.structure_type24753 = &t21254; /* x188067 */ t21250.s0.tag = STRUCTURE_TYPE24753; t21250.s0.value.structure_type24753 = &t21251; /* x188068 */ t21259.s0.tag = EXTERNAL_SYMBOL_TYPE; t21259.s0.value.external_symbol_type = q165; /* x188069 */ t21260.s0.tag = EXTERNAL_SYMBOL_TYPE; t21260.s0.value.external_symbol_type = q281; /* x188070 */ t21260.s1.tag = NULL_TYPE; /* x188071 */ t21259.s1.tag = STRUCTURE_TYPE24753; t21259.s1.value.structure_type24753 = &t21260; /* x188072 */ t21258.s0.tag = STRUCTURE_TYPE24753; t21258.s0.value.structure_type24753 = &t21259; /* x188073 */ t21262.s0.tag = EXTERNAL_SYMBOL_TYPE; t21262.s0.value.external_symbol_type = q168; /* x188074 */ t21263.s0.tag = EXTERNAL_SYMBOL_TYPE; t21263.s0.value.external_symbol_type = q281; /* x188075 */ t21263.s1.tag = NULL_TYPE; /* x188076 */ t21262.s1.tag = STRUCTURE_TYPE24753; t21262.s1.value.structure_type24753 = &t21263; /* x188077 */ t21261.s0.tag = STRUCTURE_TYPE24753; t21261.s0.value.structure_type24753 = &t21262; /* x188078 */ t21261.s1.tag = NULL_TYPE; /* x188079 */ t21258.s1.tag = STRUCTURE_TYPE24753; t21258.s1.value.structure_type24753 = &t21261; /* x188080 */ t21257.s0.tag = STRUCTURE_TYPE24753; t21257.s0.value.structure_type24753 = &t21258; /* x188081 */ t21265.s0.tag = EXTERNAL_SYMBOL_TYPE; t21265.s0.value.external_symbol_type = q95; /* x188082 */ t21267.s0.tag = EXTERNAL_SYMBOL_TYPE; t21267.s0.value.external_symbol_type = q179; /* x188083 */ t21268.s0.tag = STRING_TYPE; t21268.s0.value.string_type = "Argument to LENGTH is not a list, string, or vector"; /* x188084 */ t21268.s1.tag = NULL_TYPE; /* x188085 */ t21267.s1.tag = STRUCTURE_TYPE24753; t21267.s1.value.structure_type24753 = &t21268; /* x188086 */ t21266.s0.tag = STRUCTURE_TYPE24753; t21266.s0.value.structure_type24753 = &t21267; /* x188087 */ t21266.s1.tag = NULL_TYPE; /* x188088 */ t21265.s1.tag = STRUCTURE_TYPE24753; t21265.s1.value.structure_type24753 = &t21266; /* x188089 */ t21264.s0.tag = STRUCTURE_TYPE24753; t21264.s0.value.structure_type24753 = &t21265; /* x188090 */ t21264.s1.tag = NULL_TYPE; /* x188091 */ t21257.s1.tag = STRUCTURE_TYPE24753; t21257.s1.value.structure_type24753 = &t21264; /* x188092 */ t21250.s1.tag = STRUCTURE_TYPE24753; t21250.s1.value.structure_type24753 = &t21257; /* x188093 */ t21243.s1.tag = STRUCTURE_TYPE24753; t21243.s1.value.structure_type24753 = &t21250; /* x188094 */ t21238.s1.tag = STRUCTURE_TYPE24753; t21238.s1.value.structure_type24753 = &t21243; /* x188095 */ t21237.s1.tag = STRUCTURE_TYPE24753; t21237.s1.value.structure_type24753 = &t21238; /* x188096 */ t21236.s0.tag = STRUCTURE_TYPE24753; t21236.s0.value.structure_type24753 = &t21237; /* x188097 */ t21236.s1.tag = NULL_TYPE; /* x188098 */ t21233.s1.tag = STRUCTURE_TYPE24753; t21233.s1.value.structure_type24753 = &t21236; /* x188099 */ t21232.s1.tag = STRUCTURE_TYPE24753; t21232.s1.value.structure_type24753 = &t21233; /* x188102 */ t21273.s0.tag = EXTERNAL_SYMBOL_TYPE; t21273.s0.value.external_symbol_type = q97; /* x188103 */ t21275.s0.tag = EXTERNAL_SYMBOL_TYPE; t21275.s0.value.external_symbol_type = q397; /* x188104 */ t21276.s0.tag = EXTERNAL_SYMBOL_TYPE; t21276.s0.value.external_symbol_type = q1; /* x188105 */ t21277.s0.tag = EXTERNAL_SYMBOL_TYPE; t21277.s0.value.external_symbol_type = q398; /* x188106 */ t21278.s0.tag = EXTERNAL_SYMBOL_TYPE; t21278.s0.value.external_symbol_type = q399; /* x188107 */ t21278.s1.tag = NULL_TYPE; /* x188108 */ t21277.s1.tag = STRUCTURE_TYPE24753; t21277.s1.value.structure_type24753 = &t21278; /* x188109 */ t21276.s1.tag = STRUCTURE_TYPE24753; t21276.s1.value.structure_type24753 = &t21277; /* x188110 */ t21275.s1.tag = STRUCTURE_TYPE24753; t21275.s1.value.structure_type24753 = &t21276; /* x188111 */ t21274.s0.tag = STRUCTURE_TYPE24753; t21274.s0.value.structure_type24753 = &t21275; /* x188112 */ t21280.s0.tag = EXTERNAL_SYMBOL_TYPE; t21280.s0.value.external_symbol_type = q43; /* x188113 */ t21282.s0.tag = EXTERNAL_SYMBOL_TYPE; t21282.s0.value.external_symbol_type = q125; /* x188114 */ t21283.s0.tag = EXTERNAL_SYMBOL_TYPE; t21283.s0.value.external_symbol_type = q398; /* x188115 */ t21283.s1.tag = NULL_TYPE; /* x188116 */ t21282.s1.tag = STRUCTURE_TYPE24753; t21282.s1.value.structure_type24753 = &t21283; /* x188117 */ t21281.s0.tag = STRUCTURE_TYPE24753; t21281.s0.value.structure_type24753 = &t21282; /* x188118 */ t21285.s0.tag = EXTERNAL_SYMBOL_TYPE; t21285.s0.value.external_symbol_type = q242; /* x188119 */ t21286.s0.tag = EXTERNAL_SYMBOL_TYPE; t21286.s0.value.external_symbol_type = q287; /* x188120 */ t21289.s0.tag = EXTERNAL_SYMBOL_TYPE; t21289.s0.value.external_symbol_type = q1; /* x188121 */ t21290.s0.tag = EXTERNAL_SYMBOL_TYPE; t21290.s0.value.external_symbol_type = q1; /* x188122 */ t21290.s1.tag = NULL_TYPE; /* x188123 */ t21289.s1.tag = STRUCTURE_TYPE24753; t21289.s1.value.structure_type24753 = &t21290; /* x188124 */ t21288.s0.tag = STRUCTURE_TYPE24753; t21288.s0.value.structure_type24753 = &t21289; /* x188125 */ t21292.s0.tag = EXTERNAL_SYMBOL_TYPE; t21292.s0.value.external_symbol_type = q337; /* x188126 */ t21293.s0.tag = EXTERNAL_SYMBOL_TYPE; t21293.s0.value.external_symbol_type = q399; /* x188127 */ t21293.s1.tag = NULL_TYPE; /* x188128 */ t21292.s1.tag = STRUCTURE_TYPE24753; t21292.s1.value.structure_type24753 = &t21293; /* x188129 */ t21291.s0.tag = STRUCTURE_TYPE24753; t21291.s0.value.structure_type24753 = &t21292; /* x188130 */ t21291.s1.tag = NULL_TYPE; /* x188131 */ t21288.s1.tag = STRUCTURE_TYPE24753; t21288.s1.value.structure_type24753 = &t21291; /* x188132 */ t21287.s0.tag = STRUCTURE_TYPE24753; t21287.s0.value.structure_type24753 = &t21288; /* x188133 */ t21295.s0.tag = EXTERNAL_SYMBOL_TYPE; t21295.s0.value.external_symbol_type = q43; /* x188134 */ t21297.s0.tag = EXTERNAL_SYMBOL_TYPE; t21297.s0.value.external_symbol_type = q125; /* x188135 */ t21298.s0.tag = EXTERNAL_SYMBOL_TYPE; t21298.s0.value.external_symbol_type = q337; /* x188136 */ t21298.s1.tag = NULL_TYPE; /* x188137 */ t21297.s1.tag = STRUCTURE_TYPE24753; t21297.s1.value.structure_type24753 = &t21298; /* x188138 */ t21296.s0.tag = STRUCTURE_TYPE24753; t21296.s0.value.structure_type24753 = &t21297; /* x188139 */ t21300.s0.tag = EXTERNAL_SYMBOL_TYPE; t21300.s0.value.external_symbol_type = q11; /* x188140 */ t21301.s0.tag = NULL_TYPE; /* x188141 */ t21301.s1.tag = NULL_TYPE; /* x188142 */ t21300.s1.tag = STRUCTURE_TYPE24753; t21300.s1.value.structure_type24753 = &t21301; /* x188143 */ t21299.s0.tag = STRUCTURE_TYPE24753; t21299.s0.value.structure_type24753 = &t21300; /* x188144 */ t21303.s0.tag = EXTERNAL_SYMBOL_TYPE; t21303.s0.value.external_symbol_type = q106; /* x188145 */ t21305.s0.tag = EXTERNAL_SYMBOL_TYPE; t21305.s0.value.external_symbol_type = q107; /* x188146 */ t21306.s0.tag = EXTERNAL_SYMBOL_TYPE; t21306.s0.value.external_symbol_type = q1; /* x188147 */ t21306.s1.tag = NULL_TYPE; /* x188148 */ t21305.s1.tag = STRUCTURE_TYPE24753; t21305.s1.value.structure_type24753 = &t21306; /* x188149 */ t21304.s0.tag = STRUCTURE_TYPE24753; t21304.s0.value.structure_type24753 = &t21305; /* x188150 */ t21308.s0.tag = EXTERNAL_SYMBOL_TYPE; t21308.s0.value.external_symbol_type = q287; /* x188151 */ t21310.s0.tag = EXTERNAL_SYMBOL_TYPE; t21310.s0.value.external_symbol_type = q108; /* x188152 */ t21311.s0.tag = EXTERNAL_SYMBOL_TYPE; t21311.s0.value.external_symbol_type = q1; /* x188153 */ t21311.s1.tag = NULL_TYPE; /* x188154 */ t21310.s1.tag = STRUCTURE_TYPE24753; t21310.s1.value.structure_type24753 = &t21311; /* x188155 */ t21309.s0.tag = STRUCTURE_TYPE24753; t21309.s0.value.structure_type24753 = &t21310; /* x188156 */ t21313.s0.tag = EXTERNAL_SYMBOL_TYPE; t21313.s0.value.external_symbol_type = q2; /* x188157 */ t21314.s0.tag = EXTERNAL_SYMBOL_TYPE; t21314.s0.value.external_symbol_type = q337; /* x188158 */ t21315.s0.tag = FIXNUM_TYPE; t21315.s0.value.fixnum_type = 1; /* x188159 */ t21315.s1.tag = NULL_TYPE; /* x188160 */ t21314.s1.tag = STRUCTURE_TYPE24753; t21314.s1.value.structure_type24753 = &t21315; /* x188161 */ t21313.s1.tag = STRUCTURE_TYPE24753; t21313.s1.value.structure_type24753 = &t21314; /* x188162 */ t21312.s0.tag = STRUCTURE_TYPE24753; t21312.s0.value.structure_type24753 = &t21313; /* x188163 */ t21312.s1.tag = NULL_TYPE; /* x188164 */ t21309.s1.tag = STRUCTURE_TYPE24753; t21309.s1.value.structure_type24753 = &t21312; /* x188165 */ t21308.s1.tag = STRUCTURE_TYPE24753; t21308.s1.value.structure_type24753 = &t21309; /* x188166 */ t21307.s0.tag = STRUCTURE_TYPE24753; t21307.s0.value.structure_type24753 = &t21308; /* x188167 */ t21307.s1.tag = NULL_TYPE; /* x188168 */ t21304.s1.tag = STRUCTURE_TYPE24753; t21304.s1.value.structure_type24753 = &t21307; /* x188169 */ t21303.s1.tag = STRUCTURE_TYPE24753; t21303.s1.value.structure_type24753 = &t21304; /* x188170 */ t21302.s0.tag = STRUCTURE_TYPE24753; t21302.s0.value.structure_type24753 = &t21303; /* x188171 */ t21302.s1.tag = NULL_TYPE; /* x188172 */ t21299.s1.tag = STRUCTURE_TYPE24753; t21299.s1.value.structure_type24753 = &t21302; /* x188173 */ t21296.s1.tag = STRUCTURE_TYPE24753; t21296.s1.value.structure_type24753 = &t21299; /* x188174 */ t21295.s1.tag = STRUCTURE_TYPE24753; t21295.s1.value.structure_type24753 = &t21296; /* x188175 */ t21294.s0.tag = STRUCTURE_TYPE24753; t21294.s0.value.structure_type24753 = &t21295; /* x188176 */ t21294.s1.tag = NULL_TYPE; /* x188177 */ t21287.s1.tag = STRUCTURE_TYPE24753; t21287.s1.value.structure_type24753 = &t21294; /* x188178 */ t21286.s1.tag = STRUCTURE_TYPE24753; t21286.s1.value.structure_type24753 = &t21287; /* x188179 */ t21285.s1.tag = STRUCTURE_TYPE24753; t21285.s1.value.structure_type24753 = &t21286; /* x188180 */ t21284.s0.tag = STRUCTURE_TYPE24753; t21284.s0.value.structure_type24753 = &t21285; /* x188181 */ t21317.s0.tag = EXTERNAL_SYMBOL_TYPE; t21317.s0.value.external_symbol_type = q397; /* x188182 */ t21319.s0.tag = EXTERNAL_SYMBOL_TYPE; t21319.s0.value.external_symbol_type = q108; /* x188183 */ t21320.s0.tag = EXTERNAL_SYMBOL_TYPE; t21320.s0.value.external_symbol_type = q1; /* x188184 */ t21320.s1.tag = NULL_TYPE; /* x188185 */ t21319.s1.tag = STRUCTURE_TYPE24753; t21319.s1.value.structure_type24753 = &t21320; /* x188186 */ t21318.s0.tag = STRUCTURE_TYPE24753; t21318.s0.value.structure_type24753 = &t21319; /* x188187 */ t21322.s0.tag = EXTERNAL_SYMBOL_TYPE; t21322.s0.value.external_symbol_type = q2; /* x188188 */ t21323.s0.tag = EXTERNAL_SYMBOL_TYPE; t21323.s0.value.external_symbol_type = q398; /* x188189 */ t21324.s0.tag = FIXNUM_TYPE; t21324.s0.value.fixnum_type = 1; /* x188190 */ t21324.s1.tag = NULL_TYPE; /* x188191 */ t21323.s1.tag = STRUCTURE_TYPE24753; t21323.s1.value.structure_type24753 = &t21324; /* x188192 */ t21322.s1.tag = STRUCTURE_TYPE24753; t21322.s1.value.structure_type24753 = &t21323; /* x188193 */ t21321.s0.tag = STRUCTURE_TYPE24753; t21321.s0.value.structure_type24753 = &t21322; /* x188194 */ t21326.s0.tag = EXTERNAL_SYMBOL_TYPE; t21326.s0.value.external_symbol_type = q2; /* x188195 */ t21327.s0.tag = EXTERNAL_SYMBOL_TYPE; t21327.s0.value.external_symbol_type = q399; /* x188196 */ t21328.s0.tag = FIXNUM_TYPE; t21328.s0.value.fixnum_type = 1; /* x188197 */ t21328.s1.tag = NULL_TYPE; /* x188198 */ t21327.s1.tag = STRUCTURE_TYPE24753; t21327.s1.value.structure_type24753 = &t21328; /* x188199 */ t21326.s1.tag = STRUCTURE_TYPE24753; t21326.s1.value.structure_type24753 = &t21327; /* x188200 */ t21325.s0.tag = STRUCTURE_TYPE24753; t21325.s0.value.structure_type24753 = &t21326; /* x188201 */ t21325.s1.tag = NULL_TYPE; /* x188202 */ t21321.s1.tag = STRUCTURE_TYPE24753; t21321.s1.value.structure_type24753 = &t21325; /* x188203 */ t21318.s1.tag = STRUCTURE_TYPE24753; t21318.s1.value.structure_type24753 = &t21321; /* x188204 */ t21317.s1.tag = STRUCTURE_TYPE24753; t21317.s1.value.structure_type24753 = &t21318; /* x188205 */ t21316.s0.tag = STRUCTURE_TYPE24753; t21316.s0.value.structure_type24753 = &t21317; /* x188206 */ t21316.s1.tag = NULL_TYPE; /* x188207 */ t21284.s1.tag = STRUCTURE_TYPE24753; t21284.s1.value.structure_type24753 = &t21316; /* x188208 */ t21281.s1.tag = STRUCTURE_TYPE24753; t21281.s1.value.structure_type24753 = &t21284; /* x188209 */ t21280.s1.tag = STRUCTURE_TYPE24753; t21280.s1.value.structure_type24753 = &t21281; /* x188210 */ t21279.s0.tag = STRUCTURE_TYPE24753; t21279.s0.value.structure_type24753 = &t21280; /* x188211 */ t21279.s1.tag = NULL_TYPE; /* x188212 */ t21274.s1.tag = STRUCTURE_TYPE24753; t21274.s1.value.structure_type24753 = &t21279; /* x188213 */ t21273.s1.tag = STRUCTURE_TYPE24753; t21273.s1.value.structure_type24753 = &t21274; /* x188216 */ t21333.s0.tag = EXTERNAL_SYMBOL_TYPE; t21333.s0.value.external_symbol_type = q97; /* x188217 */ t21335.s0.tag = EXTERNAL_SYMBOL_TYPE; t21335.s0.value.external_symbol_type = q400; /* x188218 */ t21336.s0.tag = EXTERNAL_SYMBOL_TYPE; t21336.s0.value.external_symbol_type = q281; /* x188219 */ t21337.s0.tag = EXTERNAL_SYMBOL_TYPE; t21337.s0.value.external_symbol_type = q398; /* x188220 */ t21338.s0.tag = EXTERNAL_SYMBOL_TYPE; t21338.s0.value.external_symbol_type = q399; /* x188221 */ t21338.s1.tag = NULL_TYPE; /* x188222 */ t21337.s1.tag = STRUCTURE_TYPE24753; t21337.s1.value.structure_type24753 = &t21338; /* x188223 */ t21336.s1.tag = STRUCTURE_TYPE24753; t21336.s1.value.structure_type24753 = &t21337; /* x188224 */ t21335.s1.tag = STRUCTURE_TYPE24753; t21335.s1.value.structure_type24753 = &t21336; /* x188225 */ t21334.s0.tag = STRUCTURE_TYPE24753; t21334.s0.value.structure_type24753 = &t21335; /* x188226 */ t21340.s0.tag = EXTERNAL_SYMBOL_TYPE; t21340.s0.value.external_symbol_type = q240; /* x188227 */ t21343.s0.tag = EXTERNAL_SYMBOL_TYPE; t21343.s0.value.external_symbol_type = q111; /* x188228 */ t21344.s0.tag = EXTERNAL_SYMBOL_TYPE; t21344.s0.value.external_symbol_type = q281; /* x188229 */ t21344.s1.tag = NULL_TYPE; /* x188230 */ t21343.s1.tag = STRUCTURE_TYPE24753; t21343.s1.value.structure_type24753 = &t21344; /* x188231 */ t21342.s0.tag = STRUCTURE_TYPE24753; t21342.s0.value.structure_type24753 = &t21343; /* x188232 */ t21346.s0.tag = EXTERNAL_SYMBOL_TYPE; t21346.s0.value.external_symbol_type = q240; /* x188233 */ t21349.s0.tag = EXTERNAL_SYMBOL_TYPE; t21349.s0.value.external_symbol_type = q244; /* x188234 */ t21351.s0.tag = EXTERNAL_SYMBOL_TYPE; t21351.s0.value.external_symbol_type = q125; /* x188235 */ t21352.s0.tag = EXTERNAL_SYMBOL_TYPE; t21352.s0.value.external_symbol_type = q398; /* x188236 */ t21352.s1.tag = NULL_TYPE; /* x188237 */ t21351.s1.tag = STRUCTURE_TYPE24753; t21351.s1.value.structure_type24753 = &t21352; /* x188238 */ t21350.s0.tag = STRUCTURE_TYPE24753; t21350.s0.value.structure_type24753 = &t21351; /* x188239 */ t21354.s0.tag = EXTERNAL_SYMBOL_TYPE; t21354.s0.value.external_symbol_type = q125; /* x188240 */ t21355.s0.tag = EXTERNAL_SYMBOL_TYPE; t21355.s0.value.external_symbol_type = q399; /* x188241 */ t21355.s1.tag = NULL_TYPE; /* x188242 */ t21354.s1.tag = STRUCTURE_TYPE24753; t21354.s1.value.structure_type24753 = &t21355; /* x188243 */ t21353.s0.tag = STRUCTURE_TYPE24753; t21353.s0.value.structure_type24753 = &t21354; /* x188244 */ t21353.s1.tag = NULL_TYPE; /* x188245 */ t21350.s1.tag = STRUCTURE_TYPE24753; t21350.s1.value.structure_type24753 = &t21353; /* x188246 */ t21349.s1.tag = STRUCTURE_TYPE24753; t21349.s1.value.structure_type24753 = &t21350; /* x188247 */ t21348.s0.tag = STRUCTURE_TYPE24753; t21348.s0.value.structure_type24753 = &t21349; /* x188248 */ t21357.s0.tag = EXTERNAL_SYMBOL_TYPE; t21357.s0.value.external_symbol_type = q11; /* x188249 */ t21358.s0.tag = NULL_TYPE; /* x188250 */ t21358.s1.tag = NULL_TYPE; /* x188251 */ t21357.s1.tag = STRUCTURE_TYPE24753; t21357.s1.value.structure_type24753 = &t21358; /* x188252 */ t21356.s0.tag = STRUCTURE_TYPE24753; t21356.s0.value.structure_type24753 = &t21357; /* x188253 */ t21356.s1.tag = NULL_TYPE; /* x188254 */ t21348.s1.tag = STRUCTURE_TYPE24753; t21348.s1.value.structure_type24753 = &t21356; /* x188255 */ t21347.s0.tag = STRUCTURE_TYPE24753; t21347.s0.value.structure_type24753 = &t21348; /* x188256 */ t21360.s0.tag = EXTERNAL_SYMBOL_TYPE; t21360.s0.value.external_symbol_type = q95; /* x188257 */ t21362.s0.tag = EXTERNAL_SYMBOL_TYPE; t21362.s0.value.external_symbol_type = q179; /* x188258 */ t21363.s0.tag = STRING_TYPE; t21363.s0.value.string_type = "Arguments to SUB out of bounds"; /* x188259 */ t21363.s1.tag = NULL_TYPE; /* x188260 */ t21362.s1.tag = STRUCTURE_TYPE24753; t21362.s1.value.structure_type24753 = &t21363; /* x188261 */ t21361.s0.tag = STRUCTURE_TYPE24753; t21361.s0.value.structure_type24753 = &t21362; /* x188262 */ t21361.s1.tag = NULL_TYPE; /* x188263 */ t21360.s1.tag = STRUCTURE_TYPE24753; t21360.s1.value.structure_type24753 = &t21361; /* x188264 */ t21359.s0.tag = STRUCTURE_TYPE24753; t21359.s0.value.structure_type24753 = &t21360; /* x188265 */ t21359.s1.tag = NULL_TYPE; /* x188266 */ t21347.s1.tag = STRUCTURE_TYPE24753; t21347.s1.value.structure_type24753 = &t21359; /* x188267 */ t21346.s1.tag = STRUCTURE_TYPE24753; t21346.s1.value.structure_type24753 = &t21347; /* x188268 */ t21345.s0.tag = STRUCTURE_TYPE24753; t21345.s0.value.structure_type24753 = &t21346; /* x188269 */ t21345.s1.tag = NULL_TYPE; /* x188270 */ t21342.s1.tag = STRUCTURE_TYPE24753; t21342.s1.value.structure_type24753 = &t21345; /* x188271 */ t21341.s0.tag = STRUCTURE_TYPE24753; t21341.s0.value.structure_type24753 = &t21342; /* x188272 */ t21366.s0.tag = EXTERNAL_SYMBOL_TYPE; t21366.s0.value.external_symbol_type = q105; /* x188273 */ t21367.s0.tag = EXTERNAL_SYMBOL_TYPE; t21367.s0.value.external_symbol_type = q281; /* x188274 */ t21367.s1.tag = NULL_TYPE; /* x188275 */ t21366.s1.tag = STRUCTURE_TYPE24753; t21366.s1.value.structure_type24753 = &t21367; /* x188276 */ t21365.s0.tag = STRUCTURE_TYPE24753; t21365.s0.value.structure_type24753 = &t21366; /* x188277 */ t21369.s0.tag = EXTERNAL_SYMBOL_TYPE; t21369.s0.value.external_symbol_type = q397; /* x188278 */ t21370.s0.tag = EXTERNAL_SYMBOL_TYPE; t21370.s0.value.external_symbol_type = q281; /* x188279 */ t21371.s0.tag = EXTERNAL_SYMBOL_TYPE; t21371.s0.value.external_symbol_type = q398; /* x188280 */ t21372.s0.tag = EXTERNAL_SYMBOL_TYPE; t21372.s0.value.external_symbol_type = q399; /* x188281 */ t21372.s1.tag = NULL_TYPE; /* x188282 */ t21371.s1.tag = STRUCTURE_TYPE24753; t21371.s1.value.structure_type24753 = &t21372; /* x188283 */ t21370.s1.tag = STRUCTURE_TYPE24753; t21370.s1.value.structure_type24753 = &t21371; /* x188284 */ t21369.s1.tag = STRUCTURE_TYPE24753; t21369.s1.value.structure_type24753 = &t21370; /* x188285 */ t21368.s0.tag = STRUCTURE_TYPE24753; t21368.s0.value.structure_type24753 = &t21369; /* x188286 */ t21368.s1.tag = NULL_TYPE; /* x188287 */ t21365.s1.tag = STRUCTURE_TYPE24753; t21365.s1.value.structure_type24753 = &t21368; /* x188288 */ t21364.s0.tag = STRUCTURE_TYPE24753; t21364.s0.value.structure_type24753 = &t21365; /* x188289 */ t21375.s0.tag = EXTERNAL_SYMBOL_TYPE; t21375.s0.value.external_symbol_type = q159; /* x188290 */ t21376.s0.tag = EXTERNAL_SYMBOL_TYPE; t21376.s0.value.external_symbol_type = q281; /* x188291 */ t21376.s1.tag = NULL_TYPE; /* x188292 */ t21375.s1.tag = STRUCTURE_TYPE24753; t21375.s1.value.structure_type24753 = &t21376; /* x188293 */ t21374.s0.tag = STRUCTURE_TYPE24753; t21374.s0.value.structure_type24753 = &t21375; /* x188294 */ t21378.s0.tag = EXTERNAL_SYMBOL_TYPE; t21378.s0.value.external_symbol_type = q401; /* x188295 */ t21379.s0.tag = EXTERNAL_SYMBOL_TYPE; t21379.s0.value.external_symbol_type = q281; /* x188296 */ t21380.s0.tag = EXTERNAL_SYMBOL_TYPE; t21380.s0.value.external_symbol_type = q398; /* x188297 */ t21381.s0.tag = EXTERNAL_SYMBOL_TYPE; t21381.s0.value.external_symbol_type = q399; /* x188298 */ t21381.s1.tag = NULL_TYPE; /* x188299 */ t21380.s1.tag = STRUCTURE_TYPE24753; t21380.s1.value.structure_type24753 = &t21381; /* x188300 */ t21379.s1.tag = STRUCTURE_TYPE24753; t21379.s1.value.structure_type24753 = &t21380; /* x188301 */ t21378.s1.tag = STRUCTURE_TYPE24753; t21378.s1.value.structure_type24753 = &t21379; /* x188302 */ t21377.s0.tag = STRUCTURE_TYPE24753; t21377.s0.value.structure_type24753 = &t21378; /* x188303 */ t21377.s1.tag = NULL_TYPE; /* x188304 */ t21374.s1.tag = STRUCTURE_TYPE24753; t21374.s1.value.structure_type24753 = &t21377; /* x188305 */ t21373.s0.tag = STRUCTURE_TYPE24753; t21373.s0.value.structure_type24753 = &t21374; /* x188306 */ t21384.s0.tag = EXTERNAL_SYMBOL_TYPE; t21384.s0.value.external_symbol_type = q165; /* x188307 */ t21385.s0.tag = EXTERNAL_SYMBOL_TYPE; t21385.s0.value.external_symbol_type = q281; /* x188308 */ t21385.s1.tag = NULL_TYPE; /* x188309 */ t21384.s1.tag = STRUCTURE_TYPE24753; t21384.s1.value.structure_type24753 = &t21385; /* x188310 */ t21383.s0.tag = STRUCTURE_TYPE24753; t21383.s0.value.structure_type24753 = &t21384; /* x188311 */ t21387.s0.tag = EXTERNAL_SYMBOL_TYPE; t21387.s0.value.external_symbol_type = q402; /* x188312 */ t21388.s0.tag = EXTERNAL_SYMBOL_TYPE; t21388.s0.value.external_symbol_type = q281; /* x188313 */ t21389.s0.tag = EXTERNAL_SYMBOL_TYPE; t21389.s0.value.external_symbol_type = q398; /* x188314 */ t21390.s0.tag = EXTERNAL_SYMBOL_TYPE; t21390.s0.value.external_symbol_type = q399; /* x188315 */ t21390.s1.tag = NULL_TYPE; /* x188316 */ t21389.s1.tag = STRUCTURE_TYPE24753; t21389.s1.value.structure_type24753 = &t21390; /* x188317 */ t21388.s1.tag = STRUCTURE_TYPE24753; t21388.s1.value.structure_type24753 = &t21389; /* x188318 */ t21387.s1.tag = STRUCTURE_TYPE24753; t21387.s1.value.structure_type24753 = &t21388; /* x188319 */ t21386.s0.tag = STRUCTURE_TYPE24753; t21386.s0.value.structure_type24753 = &t21387; /* x188320 */ t21386.s1.tag = NULL_TYPE; /* x188321 */ t21383.s1.tag = STRUCTURE_TYPE24753; t21383.s1.value.structure_type24753 = &t21386; /* x188322 */ t21382.s0.tag = STRUCTURE_TYPE24753; t21382.s0.value.structure_type24753 = &t21383; /* x188323 */ t21392.s0.tag = EXTERNAL_SYMBOL_TYPE; t21392.s0.value.external_symbol_type = q95; /* x188324 */ t21394.s0.tag = EXTERNAL_SYMBOL_TYPE; t21394.s0.value.external_symbol_type = q179; /* x188325 */ t21395.s0.tag = STRING_TYPE; t21395.s0.value.string_type = "First argument to SUB is not a list, string, or vector"; /* x188326 */ t21395.s1.tag = NULL_TYPE; /* x188327 */ t21394.s1.tag = STRUCTURE_TYPE24753; t21394.s1.value.structure_type24753 = &t21395; /* x188328 */ t21393.s0.tag = STRUCTURE_TYPE24753; t21393.s0.value.structure_type24753 = &t21394; /* x188329 */ t21393.s1.tag = NULL_TYPE; /* x188330 */ t21392.s1.tag = STRUCTURE_TYPE24753; t21392.s1.value.structure_type24753 = &t21393; /* x188331 */ t21391.s0.tag = STRUCTURE_TYPE24753; t21391.s0.value.structure_type24753 = &t21392; /* x188332 */ t21391.s1.tag = NULL_TYPE; /* x188333 */ t21382.s1.tag = STRUCTURE_TYPE24753; t21382.s1.value.structure_type24753 = &t21391; /* x188334 */ t21373.s1.tag = STRUCTURE_TYPE24753; t21373.s1.value.structure_type24753 = &t21382; /* x188335 */ t21364.s1.tag = STRUCTURE_TYPE24753; t21364.s1.value.structure_type24753 = &t21373; /* x188336 */ t21341.s1.tag = STRUCTURE_TYPE24753; t21341.s1.value.structure_type24753 = &t21364; /* x188337 */ t21340.s1.tag = STRUCTURE_TYPE24753; t21340.s1.value.structure_type24753 = &t21341; /* x188338 */ t21339.s0.tag = STRUCTURE_TYPE24753; t21339.s0.value.structure_type24753 = &t21340; /* x188339 */ t21339.s1.tag = NULL_TYPE; /* x188340 */ t21334.s1.tag = STRUCTURE_TYPE24753; t21334.s1.value.structure_type24753 = &t21339; /* x188341 */ t21333.s1.tag = STRUCTURE_TYPE24753; t21333.s1.value.structure_type24753 = &t21334; /* x188344 */ t21400.s0.tag = EXTERNAL_SYMBOL_TYPE; t21400.s0.value.external_symbol_type = q97; /* x188345 */ t21402.s0.tag = EXTERNAL_SYMBOL_TYPE; t21402.s0.value.external_symbol_type = q403; /* x188346 */ t21402.s1.tag = EXTERNAL_SYMBOL_TYPE; t21402.s1.value.external_symbol_type = q404; /* x188347 */ t21401.s0.tag = STRUCTURE_TYPE24753; t21401.s0.value.structure_type24753 = &t21402; /* x188348 */ t21404.s0.tag = EXTERNAL_SYMBOL_TYPE; t21404.s0.value.external_symbol_type = q240; /* x188349 */ t21407.s0.tag = EXTERNAL_SYMBOL_TYPE; t21407.s0.value.external_symbol_type = q111; /* x188350 */ t21408.s0.tag = EXTERNAL_SYMBOL_TYPE; t21408.s0.value.external_symbol_type = q404; /* x188351 */ t21408.s1.tag = NULL_TYPE; /* x188352 */ t21407.s1.tag = STRUCTURE_TYPE24753; t21407.s1.value.structure_type24753 = &t21408; /* x188353 */ t21406.s0.tag = STRUCTURE_TYPE24753; t21406.s0.value.structure_type24753 = &t21407; /* x188354 */ t21410.s0.tag = EXTERNAL_SYMBOL_TYPE; t21410.s0.value.external_symbol_type = q11; /* x188355 */ t21411.s0.tag = NULL_TYPE; /* x188356 */ t21411.s1.tag = NULL_TYPE; /* x188357 */ t21410.s1.tag = STRUCTURE_TYPE24753; t21410.s1.value.structure_type24753 = &t21411; /* x188358 */ t21409.s0.tag = STRUCTURE_TYPE24753; t21409.s0.value.structure_type24753 = &t21410; /* x188359 */ t21409.s1.tag = NULL_TYPE; /* x188360 */ t21406.s1.tag = STRUCTURE_TYPE24753; t21406.s1.value.structure_type24753 = &t21409; /* x188361 */ t21405.s0.tag = STRUCTURE_TYPE24753; t21405.s0.value.structure_type24753 = &t21406; /* x188362 */ t21414.s0.tag = EXTERNAL_SYMBOL_TYPE; t21414.s0.value.external_symbol_type = q111; /* x188363 */ t21416.s0.tag = EXTERNAL_SYMBOL_TYPE; t21416.s0.value.external_symbol_type = q108; /* x188364 */ t21417.s0.tag = EXTERNAL_SYMBOL_TYPE; t21417.s0.value.external_symbol_type = q404; /* x188365 */ t21417.s1.tag = NULL_TYPE; /* x188366 */ t21416.s1.tag = STRUCTURE_TYPE24753; t21416.s1.value.structure_type24753 = &t21417; /* x188367 */ t21415.s0.tag = STRUCTURE_TYPE24753; t21415.s0.value.structure_type24753 = &t21416; /* x188368 */ t21415.s1.tag = NULL_TYPE; /* x188369 */ t21414.s1.tag = STRUCTURE_TYPE24753; t21414.s1.value.structure_type24753 = &t21415; /* x188370 */ t21413.s0.tag = STRUCTURE_TYPE24753; t21413.s0.value.structure_type24753 = &t21414; /* x188371 */ t21419.s0.tag = EXTERNAL_SYMBOL_TYPE; t21419.s0.value.external_symbol_type = q107; /* x188372 */ t21420.s0.tag = EXTERNAL_SYMBOL_TYPE; t21420.s0.value.external_symbol_type = q404; /* x188373 */ t21420.s1.tag = NULL_TYPE; /* x188374 */ t21419.s1.tag = STRUCTURE_TYPE24753; t21419.s1.value.structure_type24753 = &t21420; /* x188375 */ t21418.s0.tag = STRUCTURE_TYPE24753; t21418.s0.value.structure_type24753 = &t21419; /* x188376 */ t21418.s1.tag = NULL_TYPE; /* x188377 */ t21413.s1.tag = STRUCTURE_TYPE24753; t21413.s1.value.structure_type24753 = &t21418; /* x188378 */ t21412.s0.tag = STRUCTURE_TYPE24753; t21412.s0.value.structure_type24753 = &t21413; /* x188379 */ t21422.s0.tag = EXTERNAL_SYMBOL_TYPE; t21422.s0.value.external_symbol_type = q95; /* x188380 */ t21424.s0.tag = EXTERNAL_SYMBOL_TYPE; t21424.s0.value.external_symbol_type = q242; /* x188381 */ t21425.s0.tag = EXTERNAL_SYMBOL_TYPE; t21425.s0.value.external_symbol_type = q287; /* x188382 */ t21428.s0.tag = EXTERNAL_SYMBOL_TYPE; t21428.s0.value.external_symbol_type = q405; /* x188383 */ t21430.s0.tag = EXTERNAL_SYMBOL_TYPE; t21430.s0.value.external_symbol_type = q107; /* x188384 */ t21431.s0.tag = EXTERNAL_SYMBOL_TYPE; t21431.s0.value.external_symbol_type = q404; /* x188385 */ t21431.s1.tag = NULL_TYPE; /* x188386 */ t21430.s1.tag = STRUCTURE_TYPE24753; t21430.s1.value.structure_type24753 = &t21431; /* x188387 */ t21429.s0.tag = STRUCTURE_TYPE24753; t21429.s0.value.structure_type24753 = &t21430; /* x188388 */ t21429.s1.tag = NULL_TYPE; /* x188389 */ t21428.s1.tag = STRUCTURE_TYPE24753; t21428.s1.value.structure_type24753 = &t21429; /* x188390 */ t21427.s0.tag = STRUCTURE_TYPE24753; t21427.s0.value.structure_type24753 = &t21428; /* x188391 */ t21433.s0.tag = EXTERNAL_SYMBOL_TYPE; t21433.s0.value.external_symbol_type = q406; /* x188392 */ t21435.s0.tag = EXTERNAL_SYMBOL_TYPE; t21435.s0.value.external_symbol_type = q107; /* x188393 */ t21437.s0.tag = EXTERNAL_SYMBOL_TYPE; t21437.s0.value.external_symbol_type = q108; /* x188394 */ t21438.s0.tag = EXTERNAL_SYMBOL_TYPE; t21438.s0.value.external_symbol_type = q404; /* x188395 */ t21438.s1.tag = NULL_TYPE; /* x188396 */ t21437.s1.tag = STRUCTURE_TYPE24753; t21437.s1.value.structure_type24753 = &t21438; /* x188397 */ t21436.s0.tag = STRUCTURE_TYPE24753; t21436.s0.value.structure_type24753 = &t21437; /* x188398 */ t21436.s1.tag = NULL_TYPE; /* x188399 */ t21435.s1.tag = STRUCTURE_TYPE24753; t21435.s1.value.structure_type24753 = &t21436; /* x188400 */ t21434.s0.tag = STRUCTURE_TYPE24753; t21434.s0.value.structure_type24753 = &t21435; /* x188401 */ t21434.s1.tag = NULL_TYPE; /* x188402 */ t21433.s1.tag = STRUCTURE_TYPE24753; t21433.s1.value.structure_type24753 = &t21434; /* x188403 */ t21432.s0.tag = STRUCTURE_TYPE24753; t21432.s0.value.structure_type24753 = &t21433; /* x188404 */ t21440.s0.tag = EXTERNAL_SYMBOL_TYPE; t21440.s0.value.external_symbol_type = q404; /* x188405 */ t21442.s0.tag = EXTERNAL_SYMBOL_TYPE; t21442.s0.value.external_symbol_type = q108; /* x188406 */ t21444.s0.tag = EXTERNAL_SYMBOL_TYPE; t21444.s0.value.external_symbol_type = q108; /* x188407 */ t21445.s0.tag = EXTERNAL_SYMBOL_TYPE; t21445.s0.value.external_symbol_type = q404; /* x188408 */ t21445.s1.tag = NULL_TYPE; /* x188409 */ t21444.s1.tag = STRUCTURE_TYPE24753; t21444.s1.value.structure_type24753 = &t21445;} void initialize_constants12(void) {/* x188410 */ t21443.s0.tag = STRUCTURE_TYPE24753; t21443.s0.value.structure_type24753 = &t21444; /* x188411 */ t21443.s1.tag = NULL_TYPE; /* x188412 */ t21442.s1.tag = STRUCTURE_TYPE24753; t21442.s1.value.structure_type24753 = &t21443; /* x188413 */ t21441.s0.tag = STRUCTURE_TYPE24753; t21441.s0.value.structure_type24753 = &t21442; /* x188414 */ t21441.s1.tag = NULL_TYPE; /* x188415 */ t21440.s1.tag = STRUCTURE_TYPE24753; t21440.s1.value.structure_type24753 = &t21441; /* x188416 */ t21439.s0.tag = STRUCTURE_TYPE24753; t21439.s0.value.structure_type24753 = &t21440; /* x188417 */ t21439.s1.tag = NULL_TYPE; /* x188418 */ t21432.s1.tag = STRUCTURE_TYPE24753; t21432.s1.value.structure_type24753 = &t21439; /* x188419 */ t21427.s1.tag = STRUCTURE_TYPE24753; t21427.s1.value.structure_type24753 = &t21432; /* x188420 */ t21426.s0.tag = STRUCTURE_TYPE24753; t21426.s0.value.structure_type24753 = &t21427; /* x188421 */ t21447.s0.tag = EXTERNAL_SYMBOL_TYPE; t21447.s0.value.external_symbol_type = q43; /* x188422 */ t21449.s0.tag = EXTERNAL_SYMBOL_TYPE; t21449.s0.value.external_symbol_type = q111; /* x188423 */ t21450.s0.tag = EXTERNAL_SYMBOL_TYPE; t21450.s0.value.external_symbol_type = q405; /* x188424 */ t21450.s1.tag = NULL_TYPE; /* x188425 */ t21449.s1.tag = STRUCTURE_TYPE24753; t21449.s1.value.structure_type24753 = &t21450; /* x188426 */ t21448.s0.tag = STRUCTURE_TYPE24753; t21448.s0.value.structure_type24753 = &t21449; /* x188427 */ t21452.s0.tag = EXTERNAL_SYMBOL_TYPE; t21452.s0.value.external_symbol_type = q43; /* x188428 */ t21454.s0.tag = EXTERNAL_SYMBOL_TYPE; t21454.s0.value.external_symbol_type = q111; /* x188429 */ t21455.s0.tag = EXTERNAL_SYMBOL_TYPE; t21455.s0.value.external_symbol_type = q404; /* x188430 */ t21455.s1.tag = NULL_TYPE; /* x188431 */ t21454.s1.tag = STRUCTURE_TYPE24753; t21454.s1.value.structure_type24753 = &t21455; /* x188432 */ t21453.s0.tag = STRUCTURE_TYPE24753; t21453.s0.value.structure_type24753 = &t21454; /* x188433 */ t21456.s0.tag = EXTERNAL_SYMBOL_TYPE; t21456.s0.value.external_symbol_type = q406; /* x188434 */ t21458.s0.tag = EXTERNAL_SYMBOL_TYPE; t21458.s0.value.external_symbol_type = q287; /* x188435 */ t21459.s0.tag = EXTERNAL_SYMBOL_TYPE; t21459.s0.value.external_symbol_type = q406; /* x188436 */ t21461.s0.tag = EXTERNAL_SYMBOL_TYPE; t21461.s0.value.external_symbol_type = q107; /* x188437 */ t21462.s0.tag = EXTERNAL_SYMBOL_TYPE; t21462.s0.value.external_symbol_type = q404; /* x188438 */ t21462.s1.tag = NULL_TYPE; /* x188439 */ t21461.s1.tag = STRUCTURE_TYPE24753; t21461.s1.value.structure_type24753 = &t21462; /* x188440 */ t21460.s0.tag = STRUCTURE_TYPE24753; t21460.s0.value.structure_type24753 = &t21461; /* x188441 */ t21464.s0.tag = EXTERNAL_SYMBOL_TYPE; t21464.s0.value.external_symbol_type = q108; /* x188442 */ t21465.s0.tag = EXTERNAL_SYMBOL_TYPE; t21465.s0.value.external_symbol_type = q404; /* x188443 */ t21465.s1.tag = NULL_TYPE; /* x188444 */ t21464.s1.tag = STRUCTURE_TYPE24753; t21464.s1.value.structure_type24753 = &t21465; /* x188445 */ t21463.s0.tag = STRUCTURE_TYPE24753; t21463.s0.value.structure_type24753 = &t21464; /* x188446 */ t21463.s1.tag = NULL_TYPE; /* x188447 */ t21460.s1.tag = STRUCTURE_TYPE24753; t21460.s1.value.structure_type24753 = &t21463; /* x188448 */ t21459.s1.tag = STRUCTURE_TYPE24753; t21459.s1.value.structure_type24753 = &t21460; /* x188449 */ t21458.s1.tag = STRUCTURE_TYPE24753; t21458.s1.value.structure_type24753 = &t21459; /* x188450 */ t21457.s0.tag = STRUCTURE_TYPE24753; t21457.s0.value.structure_type24753 = &t21458; /* x188451 */ t21457.s1.tag = NULL_TYPE; /* x188452 */ t21456.s1.tag = STRUCTURE_TYPE24753; t21456.s1.value.structure_type24753 = &t21457; /* x188453 */ t21453.s1.tag = STRUCTURE_TYPE24753; t21453.s1.value.structure_type24753 = &t21456; /* x188454 */ t21452.s1.tag = STRUCTURE_TYPE24753; t21452.s1.value.structure_type24753 = &t21453; /* x188455 */ t21451.s0.tag = STRUCTURE_TYPE24753; t21451.s0.value.structure_type24753 = &t21452; /* x188456 */ t21467.s0.tag = EXTERNAL_SYMBOL_TYPE; t21467.s0.value.external_symbol_type = q106; /* x188457 */ t21469.s0.tag = EXTERNAL_SYMBOL_TYPE; t21469.s0.value.external_symbol_type = q107; /* x188458 */ t21470.s0.tag = EXTERNAL_SYMBOL_TYPE; t21470.s0.value.external_symbol_type = q405; /* x188459 */ t21470.s1.tag = NULL_TYPE; /* x188460 */ t21469.s1.tag = STRUCTURE_TYPE24753; t21469.s1.value.structure_type24753 = &t21470; /* x188461 */ t21468.s0.tag = STRUCTURE_TYPE24753; t21468.s0.value.structure_type24753 = &t21469; /* x188462 */ t21472.s0.tag = EXTERNAL_SYMBOL_TYPE; t21472.s0.value.external_symbol_type = q287; /* x188463 */ t21474.s0.tag = EXTERNAL_SYMBOL_TYPE; t21474.s0.value.external_symbol_type = q108; /* x188464 */ t21475.s0.tag = EXTERNAL_SYMBOL_TYPE; t21475.s0.value.external_symbol_type = q405; /* x188465 */ t21475.s1.tag = NULL_TYPE; /* x188466 */ t21474.s1.tag = STRUCTURE_TYPE24753; t21474.s1.value.structure_type24753 = &t21475; /* x188467 */ t21473.s0.tag = STRUCTURE_TYPE24753; t21473.s0.value.structure_type24753 = &t21474; /* x188468 */ t21476.s0.tag = EXTERNAL_SYMBOL_TYPE; t21476.s0.value.external_symbol_type = q406; /* x188469 */ t21477.s0.tag = EXTERNAL_SYMBOL_TYPE; t21477.s0.value.external_symbol_type = q404; /* x188470 */ t21477.s1.tag = NULL_TYPE; /* x188471 */ t21476.s1.tag = STRUCTURE_TYPE24753; t21476.s1.value.structure_type24753 = &t21477; /* x188472 */ t21473.s1.tag = STRUCTURE_TYPE24753; t21473.s1.value.structure_type24753 = &t21476; /* x188473 */ t21472.s1.tag = STRUCTURE_TYPE24753; t21472.s1.value.structure_type24753 = &t21473; /* x188474 */ t21471.s0.tag = STRUCTURE_TYPE24753; t21471.s0.value.structure_type24753 = &t21472; /* x188475 */ t21471.s1.tag = NULL_TYPE; /* x188476 */ t21468.s1.tag = STRUCTURE_TYPE24753; t21468.s1.value.structure_type24753 = &t21471; /* x188477 */ t21467.s1.tag = STRUCTURE_TYPE24753; t21467.s1.value.structure_type24753 = &t21468; /* x188478 */ t21466.s0.tag = STRUCTURE_TYPE24753; t21466.s0.value.structure_type24753 = &t21467; /* x188479 */ t21466.s1.tag = NULL_TYPE; /* x188480 */ t21451.s1.tag = STRUCTURE_TYPE24753; t21451.s1.value.structure_type24753 = &t21466; /* x188481 */ t21448.s1.tag = STRUCTURE_TYPE24753; t21448.s1.value.structure_type24753 = &t21451; /* x188482 */ t21447.s1.tag = STRUCTURE_TYPE24753; t21447.s1.value.structure_type24753 = &t21448; /* x188483 */ t21446.s0.tag = STRUCTURE_TYPE24753; t21446.s0.value.structure_type24753 = &t21447; /* x188484 */ t21446.s1.tag = NULL_TYPE; /* x188485 */ t21426.s1.tag = STRUCTURE_TYPE24753; t21426.s1.value.structure_type24753 = &t21446; /* x188486 */ t21425.s1.tag = STRUCTURE_TYPE24753; t21425.s1.value.structure_type24753 = &t21426; /* x188487 */ t21424.s1.tag = STRUCTURE_TYPE24753; t21424.s1.value.structure_type24753 = &t21425; /* x188488 */ t21423.s0.tag = STRUCTURE_TYPE24753; t21423.s0.value.structure_type24753 = &t21424; /* x188489 */ t21423.s1.tag = NULL_TYPE; /* x188490 */ t21422.s1.tag = STRUCTURE_TYPE24753; t21422.s1.value.structure_type24753 = &t21423; /* x188491 */ t21421.s0.tag = STRUCTURE_TYPE24753; t21421.s0.value.structure_type24753 = &t21422; /* x188492 */ t21421.s1.tag = NULL_TYPE; /* x188493 */ t21412.s1.tag = STRUCTURE_TYPE24753; t21412.s1.value.structure_type24753 = &t21421; /* x188494 */ t21405.s1.tag = STRUCTURE_TYPE24753; t21405.s1.value.structure_type24753 = &t21412; /* x188495 */ t21404.s1.tag = STRUCTURE_TYPE24753; t21404.s1.value.structure_type24753 = &t21405; /* x188496 */ t21403.s0.tag = STRUCTURE_TYPE24753; t21403.s0.value.structure_type24753 = &t21404; /* x188497 */ t21403.s1.tag = NULL_TYPE; /* x188498 */ t21401.s1.tag = STRUCTURE_TYPE24753; t21401.s1.value.structure_type24753 = &t21403; /* x188499 */ t21400.s1.tag = STRUCTURE_TYPE24753; t21400.s1.value.structure_type24753 = &t21401; /* x188502 */ t21482.s0.tag = EXTERNAL_SYMBOL_TYPE; t21482.s0.value.external_symbol_type = q97; /* x188503 */ t21484.s0.tag = EXTERNAL_SYMBOL_TYPE; t21484.s0.value.external_symbol_type = q407; /* x188504 */ t21484.s1.tag = EXTERNAL_SYMBOL_TYPE; t21484.s1.value.external_symbol_type = q408; /* x188505 */ t21483.s0.tag = STRUCTURE_TYPE24753; t21483.s0.value.structure_type24753 = &t21484; /* x188506 */ t21486.s0.tag = EXTERNAL_SYMBOL_TYPE; t21486.s0.value.external_symbol_type = q240; /* x188507 */ t21489.s0.tag = EXTERNAL_SYMBOL_TYPE; t21489.s0.value.external_symbol_type = q111; /* x188508 */ t21490.s0.tag = EXTERNAL_SYMBOL_TYPE; t21490.s0.value.external_symbol_type = q408; /* x188509 */ t21490.s1.tag = NULL_TYPE; /* x188510 */ t21489.s1.tag = STRUCTURE_TYPE24753; t21489.s1.value.structure_type24753 = &t21490; /* x188511 */ t21488.s0.tag = STRUCTURE_TYPE24753; t21488.s0.value.structure_type24753 = &t21489; /* x188512 */ t21492.s0.tag = EXTERNAL_SYMBOL_TYPE; t21492.s0.value.external_symbol_type = q11; /* x188513 */ t21493.s0.tag = NULL_TYPE; /* x188514 */ t21493.s1.tag = NULL_TYPE; /* x188515 */ t21492.s1.tag = STRUCTURE_TYPE24753; t21492.s1.value.structure_type24753 = &t21493; /* x188516 */ t21491.s0.tag = STRUCTURE_TYPE24753; t21491.s0.value.structure_type24753 = &t21492; /* x188517 */ t21491.s1.tag = NULL_TYPE; /* x188518 */ t21488.s1.tag = STRUCTURE_TYPE24753; t21488.s1.value.structure_type24753 = &t21491; /* x188519 */ t21487.s0.tag = STRUCTURE_TYPE24753; t21487.s0.value.structure_type24753 = &t21488; /* x188520 */ t21496.s0.tag = EXTERNAL_SYMBOL_TYPE; t21496.s0.value.external_symbol_type = q242; /* x188521 */ t21497.s0.tag = EXTERNAL_SYMBOL_TYPE; t21497.s0.value.external_symbol_type = q287; /* x188522 */ t21500.s0.tag = EXTERNAL_SYMBOL_TYPE; t21500.s0.value.external_symbol_type = q408; /* x188523 */ t21501.s0.tag = EXTERNAL_SYMBOL_TYPE; t21501.s0.value.external_symbol_type = q408; /* x188524 */ t21501.s1.tag = NULL_TYPE; /* x188525 */ t21500.s1.tag = STRUCTURE_TYPE24753; t21500.s1.value.structure_type24753 = &t21501; /* x188526 */ t21499.s0.tag = STRUCTURE_TYPE24753; t21499.s0.value.structure_type24753 = &t21500; /* x188527 */ t21499.s1.tag = NULL_TYPE; /* x188528 */ t21498.s0.tag = STRUCTURE_TYPE24753; t21498.s0.value.structure_type24753 = &t21499; /* x188529 */ t21503.s0.tag = EXTERNAL_SYMBOL_TYPE; t21503.s0.value.external_symbol_type = q241; /* x188530 */ t21505.s0.tag = EXTERNAL_SYMBOL_TYPE; t21505.s0.value.external_symbol_type = q111; /* x188531 */ t21507.s0.tag = EXTERNAL_SYMBOL_TYPE; t21507.s0.value.external_symbol_type = q108; /* x188532 */ t21508.s0.tag = EXTERNAL_SYMBOL_TYPE; t21508.s0.value.external_symbol_type = q408; /* x188533 */ t21508.s1.tag = NULL_TYPE; /* x188534 */ t21507.s1.tag = STRUCTURE_TYPE24753; t21507.s1.value.structure_type24753 = &t21508; /* x188535 */ t21506.s0.tag = STRUCTURE_TYPE24753; t21506.s0.value.structure_type24753 = &t21507; /* x188536 */ t21506.s1.tag = NULL_TYPE; /* x188537 */ t21505.s1.tag = STRUCTURE_TYPE24753; t21505.s1.value.structure_type24753 = &t21506; /* x188538 */ t21504.s0.tag = STRUCTURE_TYPE24753; t21504.s0.value.structure_type24753 = &t21505; /* x188539 */ t21510.s0.tag = EXTERNAL_SYMBOL_TYPE; t21510.s0.value.external_symbol_type = q244; /* x188540 */ t21512.s0.tag = EXTERNAL_SYMBOL_TYPE; t21512.s0.value.external_symbol_type = q241; /* x188541 */ t21514.s0.tag = EXTERNAL_SYMBOL_TYPE; t21514.s0.value.external_symbol_type = q111; /* x188542 */ t21516.s0.tag = EXTERNAL_SYMBOL_TYPE; t21516.s0.value.external_symbol_type = q107; /* x188543 */ t21517.s0.tag = EXTERNAL_SYMBOL_TYPE; t21517.s0.value.external_symbol_type = q408; /* x188544 */ t21517.s1.tag = NULL_TYPE; /* x188545 */ t21516.s1.tag = STRUCTURE_TYPE24753; t21516.s1.value.structure_type24753 = &t21517; /* x188546 */ t21515.s0.tag = STRUCTURE_TYPE24753; t21515.s0.value.structure_type24753 = &t21516; /* x188547 */ t21515.s1.tag = NULL_TYPE; /* x188548 */ t21514.s1.tag = STRUCTURE_TYPE24753; t21514.s1.value.structure_type24753 = &t21515; /* x188549 */ t21513.s0.tag = STRUCTURE_TYPE24753; t21513.s0.value.structure_type24753 = &t21514; /* x188550 */ t21519.s0.tag = EXTERNAL_SYMBOL_TYPE; t21519.s0.value.external_symbol_type = q105; /* x188551 */ t21521.s0.tag = EXTERNAL_SYMBOL_TYPE; t21521.s0.value.external_symbol_type = q107; /* x188552 */ t21522.s0.tag = EXTERNAL_SYMBOL_TYPE; t21522.s0.value.external_symbol_type = q408; /* x188553 */ t21522.s1.tag = NULL_TYPE; /* x188554 */ t21521.s1.tag = STRUCTURE_TYPE24753; t21521.s1.value.structure_type24753 = &t21522; /* x188555 */ t21520.s0.tag = STRUCTURE_TYPE24753; t21520.s0.value.structure_type24753 = &t21521; /* x188556 */ t21520.s1.tag = NULL_TYPE; /* x188557 */ t21519.s1.tag = STRUCTURE_TYPE24753; t21519.s1.value.structure_type24753 = &t21520; /* x188558 */ t21518.s0.tag = STRUCTURE_TYPE24753; t21518.s0.value.structure_type24753 = &t21519; /* x188559 */ t21518.s1.tag = NULL_TYPE; /* x188560 */ t21513.s1.tag = STRUCTURE_TYPE24753; t21513.s1.value.structure_type24753 = &t21518; /* x188561 */ t21512.s1.tag = STRUCTURE_TYPE24753; t21512.s1.value.structure_type24753 = &t21513; /* x188562 */ t21511.s0.tag = STRUCTURE_TYPE24753; t21511.s0.value.structure_type24753 = &t21512; /* x188563 */ t21524.s0.tag = EXTERNAL_SYMBOL_TYPE; t21524.s0.value.external_symbol_type = q287; /* x188564 */ t21526.s0.tag = EXTERNAL_SYMBOL_TYPE; t21526.s0.value.external_symbol_type = q108; /* x188565 */ t21527.s0.tag = EXTERNAL_SYMBOL_TYPE; t21527.s0.value.external_symbol_type = q408; /* x188566 */ t21527.s1.tag = NULL_TYPE; /* x188567 */ t21526.s1.tag = STRUCTURE_TYPE24753; t21526.s1.value.structure_type24753 = &t21527; /* x188568 */ t21525.s0.tag = STRUCTURE_TYPE24753; t21525.s0.value.structure_type24753 = &t21526; /* x188569 */ t21525.s1.tag = NULL_TYPE; /* x188570 */ t21524.s1.tag = STRUCTURE_TYPE24753; t21524.s1.value.structure_type24753 = &t21525; /* x188571 */ t21523.s0.tag = STRUCTURE_TYPE24753; t21523.s0.value.structure_type24753 = &t21524; /* x188572 */ t21523.s1.tag = NULL_TYPE; /* x188573 */ t21511.s1.tag = STRUCTURE_TYPE24753; t21511.s1.value.structure_type24753 = &t21523; /* x188574 */ t21510.s1.tag = STRUCTURE_TYPE24753; t21510.s1.value.structure_type24753 = &t21511; /* x188575 */ t21509.s0.tag = STRUCTURE_TYPE24753; t21509.s0.value.structure_type24753 = &t21510; /* x188576 */ t21509.s1.tag = NULL_TYPE; /* x188577 */ t21504.s1.tag = STRUCTURE_TYPE24753; t21504.s1.value.structure_type24753 = &t21509; /* x188578 */ t21503.s1.tag = STRUCTURE_TYPE24753; t21503.s1.value.structure_type24753 = &t21504; /* x188579 */ t21502.s0.tag = STRUCTURE_TYPE24753; t21502.s0.value.structure_type24753 = &t21503; /* x188580 */ t21502.s1.tag = NULL_TYPE; /* x188581 */ t21498.s1.tag = STRUCTURE_TYPE24753; t21498.s1.value.structure_type24753 = &t21502; /* x188582 */ t21497.s1.tag = STRUCTURE_TYPE24753; t21497.s1.value.structure_type24753 = &t21498; /* x188583 */ t21496.s1.tag = STRUCTURE_TYPE24753; t21496.s1.value.structure_type24753 = &t21497; /* x188584 */ t21495.s0.tag = STRUCTURE_TYPE24753; t21495.s0.value.structure_type24753 = &t21496; /* x188585 */ t21529.s0.tag = EXTERNAL_SYMBOL_TYPE; t21529.s0.value.external_symbol_type = q240; /* x188586 */ t21532.s0.tag = EXTERNAL_SYMBOL_TYPE; t21532.s0.value.external_symbol_type = q111; /* x188587 */ t21534.s0.tag = EXTERNAL_SYMBOL_TYPE; t21534.s0.value.external_symbol_type = q108; /* x188588 */ t21535.s0.tag = EXTERNAL_SYMBOL_TYPE; t21535.s0.value.external_symbol_type = q408; /* x188589 */ t21535.s1.tag = NULL_TYPE; /* x188590 */ t21534.s1.tag = STRUCTURE_TYPE24753; t21534.s1.value.structure_type24753 = &t21535; /* x188591 */ t21533.s0.tag = STRUCTURE_TYPE24753; t21533.s0.value.structure_type24753 = &t21534; /* x188592 */ t21533.s1.tag = NULL_TYPE; /* x188593 */ t21532.s1.tag = STRUCTURE_TYPE24753; t21532.s1.value.structure_type24753 = &t21533; /* x188594 */ t21531.s0.tag = STRUCTURE_TYPE24753; t21531.s0.value.structure_type24753 = &t21532; /* x188595 */ t21537.s0.tag = EXTERNAL_SYMBOL_TYPE; t21537.s0.value.external_symbol_type = q107; /* x188596 */ t21538.s0.tag = EXTERNAL_SYMBOL_TYPE; t21538.s0.value.external_symbol_type = q408; /* x188597 */ t21538.s1.tag = NULL_TYPE; /* x188598 */ t21537.s1.tag = STRUCTURE_TYPE24753; t21537.s1.value.structure_type24753 = &t21538; /* x188599 */ t21536.s0.tag = STRUCTURE_TYPE24753; t21536.s0.value.structure_type24753 = &t21537; /* x188600 */ t21536.s1.tag = NULL_TYPE; /* x188601 */ t21531.s1.tag = STRUCTURE_TYPE24753; t21531.s1.value.structure_type24753 = &t21536; /* x188602 */ t21530.s0.tag = STRUCTURE_TYPE24753; t21530.s0.value.structure_type24753 = &t21531; /* x188603 */ t21540.s0.tag = EXTERNAL_SYMBOL_TYPE; t21540.s0.value.external_symbol_type = q95; /* x188604 */ t21542.s0.tag = EXTERNAL_SYMBOL_TYPE; t21542.s0.value.external_symbol_type = q242; /* x188605 */ t21543.s0.tag = EXTERNAL_SYMBOL_TYPE; t21543.s0.value.external_symbol_type = q287; /* x188606 */ t21546.s0.tag = EXTERNAL_SYMBOL_TYPE; t21546.s0.value.external_symbol_type = q405; /* x188607 */ t21548.s0.tag = EXTERNAL_SYMBOL_TYPE; t21548.s0.value.external_symbol_type = q107; /* x188608 */ t21549.s0.tag = EXTERNAL_SYMBOL_TYPE; t21549.s0.value.external_symbol_type = q408; /* x188609 */ t21549.s1.tag = NULL_TYPE; /* x188610 */ t21548.s1.tag = STRUCTURE_TYPE24753; t21548.s1.value.structure_type24753 = &t21549; /* x188611 */ t21547.s0.tag = STRUCTURE_TYPE24753; t21547.s0.value.structure_type24753 = &t21548; /* x188612 */ t21547.s1.tag = NULL_TYPE; /* x188613 */ t21546.s1.tag = STRUCTURE_TYPE24753; t21546.s1.value.structure_type24753 = &t21547; /* x188614 */ t21545.s0.tag = STRUCTURE_TYPE24753; t21545.s0.value.structure_type24753 = &t21546; /* x188615 */ t21551.s0.tag = EXTERNAL_SYMBOL_TYPE; t21551.s0.value.external_symbol_type = q406; /* x188616 */ t21553.s0.tag = EXTERNAL_SYMBOL_TYPE; t21553.s0.value.external_symbol_type = q107; /* x188617 */ t21555.s0.tag = EXTERNAL_SYMBOL_TYPE; t21555.s0.value.external_symbol_type = q108; /* x188618 */ t21556.s0.tag = EXTERNAL_SYMBOL_TYPE; t21556.s0.value.external_symbol_type = q408; /* x188619 */ t21556.s1.tag = NULL_TYPE; /* x188620 */ t21555.s1.tag = STRUCTURE_TYPE24753; t21555.s1.value.structure_type24753 = &t21556; /* x188621 */ t21554.s0.tag = STRUCTURE_TYPE24753; t21554.s0.value.structure_type24753 = &t21555; /* x188622 */ t21554.s1.tag = NULL_TYPE; /* x188623 */ t21553.s1.tag = STRUCTURE_TYPE24753; t21553.s1.value.structure_type24753 = &t21554; /* x188624 */ t21552.s0.tag = STRUCTURE_TYPE24753; t21552.s0.value.structure_type24753 = &t21553; /* x188625 */ t21552.s1.tag = NULL_TYPE; /* x188626 */ t21551.s1.tag = STRUCTURE_TYPE24753; t21551.s1.value.structure_type24753 = &t21552; /* x188627 */ t21550.s0.tag = STRUCTURE_TYPE24753; t21550.s0.value.structure_type24753 = &t21551; /* x188628 */ t21558.s0.tag = EXTERNAL_SYMBOL_TYPE; t21558.s0.value.external_symbol_type = q404; /* x188629 */ t21560.s0.tag = EXTERNAL_SYMBOL_TYPE; t21560.s0.value.external_symbol_type = q108; /* x188630 */ t21562.s0.tag = EXTERNAL_SYMBOL_TYPE; t21562.s0.value.external_symbol_type = q108; /* x188631 */ t21563.s0.tag = EXTERNAL_SYMBOL_TYPE; t21563.s0.value.external_symbol_type = q408; /* x188632 */ t21563.s1.tag = NULL_TYPE; /* x188633 */ t21562.s1.tag = STRUCTURE_TYPE24753; t21562.s1.value.structure_type24753 = &t21563; /* x188634 */ t21561.s0.tag = STRUCTURE_TYPE24753; t21561.s0.value.structure_type24753 = &t21562; /* x188635 */ t21561.s1.tag = NULL_TYPE; /* x188636 */ t21560.s1.tag = STRUCTURE_TYPE24753; t21560.s1.value.structure_type24753 = &t21561; /* x188637 */ t21559.s0.tag = STRUCTURE_TYPE24753; t21559.s0.value.structure_type24753 = &t21560; /* x188638 */ t21559.s1.tag = NULL_TYPE; /* x188639 */ t21558.s1.tag = STRUCTURE_TYPE24753; t21558.s1.value.structure_type24753 = &t21559; /* x188640 */ t21557.s0.tag = STRUCTURE_TYPE24753; t21557.s0.value.structure_type24753 = &t21558; /* x188641 */ t21557.s1.tag = NULL_TYPE; /* x188642 */ t21550.s1.tag = STRUCTURE_TYPE24753; t21550.s1.value.structure_type24753 = &t21557; /* x188643 */ t21545.s1.tag = STRUCTURE_TYPE24753; t21545.s1.value.structure_type24753 = &t21550; /* x188644 */ t21544.s0.tag = STRUCTURE_TYPE24753; t21544.s0.value.structure_type24753 = &t21545; /* x188645 */ t21565.s0.tag = EXTERNAL_SYMBOL_TYPE; t21565.s0.value.external_symbol_type = q43; /* x188646 */ t21567.s0.tag = EXTERNAL_SYMBOL_TYPE; t21567.s0.value.external_symbol_type = q111; /* x188647 */ t21568.s0.tag = EXTERNAL_SYMBOL_TYPE; t21568.s0.value.external_symbol_type = q405; /* x188648 */ t21568.s1.tag = NULL_TYPE; /* x188649 */ t21567.s1.tag = STRUCTURE_TYPE24753; t21567.s1.value.structure_type24753 = &t21568; /* x188650 */ t21566.s0.tag = STRUCTURE_TYPE24753; t21566.s0.value.structure_type24753 = &t21567; /* x188651 */ t21570.s0.tag = EXTERNAL_SYMBOL_TYPE; t21570.s0.value.external_symbol_type = q43; /* x188652 */ t21572.s0.tag = EXTERNAL_SYMBOL_TYPE; t21572.s0.value.external_symbol_type = q111; /* x188653 */ t21573.s0.tag = EXTERNAL_SYMBOL_TYPE; t21573.s0.value.external_symbol_type = q404; /* x188654 */ t21573.s1.tag = NULL_TYPE; /* x188655 */ t21572.s1.tag = STRUCTURE_TYPE24753; t21572.s1.value.structure_type24753 = &t21573; /* x188656 */ t21571.s0.tag = STRUCTURE_TYPE24753; t21571.s0.value.structure_type24753 = &t21572; /* x188657 */ t21574.s0.tag = EXTERNAL_SYMBOL_TYPE; t21574.s0.value.external_symbol_type = q406; /* x188658 */ t21576.s0.tag = EXTERNAL_SYMBOL_TYPE; t21576.s0.value.external_symbol_type = q287; /* x188659 */ t21577.s0.tag = EXTERNAL_SYMBOL_TYPE; t21577.s0.value.external_symbol_type = q406; /* x188660 */ t21579.s0.tag = EXTERNAL_SYMBOL_TYPE; t21579.s0.value.external_symbol_type = q107; /* x188661 */ t21580.s0.tag = EXTERNAL_SYMBOL_TYPE; t21580.s0.value.external_symbol_type = q404; /* x188662 */ t21580.s1.tag = NULL_TYPE; /* x188663 */ t21579.s1.tag = STRUCTURE_TYPE24753; t21579.s1.value.structure_type24753 = &t21580; /* x188664 */ t21578.s0.tag = STRUCTURE_TYPE24753; t21578.s0.value.structure_type24753 = &t21579; /* x188665 */ t21582.s0.tag = EXTERNAL_SYMBOL_TYPE; t21582.s0.value.external_symbol_type = q108; /* x188666 */ t21583.s0.tag = EXTERNAL_SYMBOL_TYPE; t21583.s0.value.external_symbol_type = q404; /* x188667 */ t21583.s1.tag = NULL_TYPE; /* x188668 */ t21582.s1.tag = STRUCTURE_TYPE24753; t21582.s1.value.structure_type24753 = &t21583; /* x188669 */ t21581.s0.tag = STRUCTURE_TYPE24753; t21581.s0.value.structure_type24753 = &t21582; /* x188670 */ t21581.s1.tag = NULL_TYPE; /* x188671 */ t21578.s1.tag = STRUCTURE_TYPE24753; t21578.s1.value.structure_type24753 = &t21581; /* x188672 */ t21577.s1.tag = STRUCTURE_TYPE24753; t21577.s1.value.structure_type24753 = &t21578; /* x188673 */ t21576.s1.tag = STRUCTURE_TYPE24753; t21576.s1.value.structure_type24753 = &t21577; /* x188674 */ t21575.s0.tag = STRUCTURE_TYPE24753; t21575.s0.value.structure_type24753 = &t21576; /* x188675 */ t21575.s1.tag = NULL_TYPE; /* x188676 */ t21574.s1.tag = STRUCTURE_TYPE24753; t21574.s1.value.structure_type24753 = &t21575; /* x188677 */ t21571.s1.tag = STRUCTURE_TYPE24753; t21571.s1.value.structure_type24753 = &t21574; /* x188678 */ t21570.s1.tag = STRUCTURE_TYPE24753; t21570.s1.value.structure_type24753 = &t21571; /* x188679 */ t21569.s0.tag = STRUCTURE_TYPE24753; t21569.s0.value.structure_type24753 = &t21570; /* x188680 */ t21585.s0.tag = EXTERNAL_SYMBOL_TYPE; t21585.s0.value.external_symbol_type = q106; /* x188681 */ t21587.s0.tag = EXTERNAL_SYMBOL_TYPE; t21587.s0.value.external_symbol_type = q107; /* x188682 */ t21588.s0.tag = EXTERNAL_SYMBOL_TYPE; t21588.s0.value.external_symbol_type = q405; /* x188683 */ t21588.s1.tag = NULL_TYPE; /* x188684 */ t21587.s1.tag = STRUCTURE_TYPE24753; t21587.s1.value.structure_type24753 = &t21588; /* x188685 */ t21586.s0.tag = STRUCTURE_TYPE24753; t21586.s0.value.structure_type24753 = &t21587; /* x188686 */ t21590.s0.tag = EXTERNAL_SYMBOL_TYPE; t21590.s0.value.external_symbol_type = q287; /* x188687 */ t21592.s0.tag = EXTERNAL_SYMBOL_TYPE; t21592.s0.value.external_symbol_type = q108; /* x188688 */ t21593.s0.tag = EXTERNAL_SYMBOL_TYPE; t21593.s0.value.external_symbol_type = q405; /* x188689 */ t21593.s1.tag = NULL_TYPE; /* x188690 */ t21592.s1.tag = STRUCTURE_TYPE24753; t21592.s1.value.structure_type24753 = &t21593; /* x188691 */ t21591.s0.tag = STRUCTURE_TYPE24753; t21591.s0.value.structure_type24753 = &t21592; /* x188692 */ t21594.s0.tag = EXTERNAL_SYMBOL_TYPE; t21594.s0.value.external_symbol_type = q406; /* x188693 */ t21595.s0.tag = EXTERNAL_SYMBOL_TYPE; t21595.s0.value.external_symbol_type = q404; /* x188694 */ t21595.s1.tag = NULL_TYPE; /* x188695 */ t21594.s1.tag = STRUCTURE_TYPE24753; t21594.s1.value.structure_type24753 = &t21595; /* x188696 */ t21591.s1.tag = STRUCTURE_TYPE24753; t21591.s1.value.structure_type24753 = &t21594; /* x188697 */ t21590.s1.tag = STRUCTURE_TYPE24753; t21590.s1.value.structure_type24753 = &t21591; /* x188698 */ t21589.s0.tag = STRUCTURE_TYPE24753; t21589.s0.value.structure_type24753 = &t21590; /* x188699 */ t21589.s1.tag = NULL_TYPE; /* x188700 */ t21586.s1.tag = STRUCTURE_TYPE24753; t21586.s1.value.structure_type24753 = &t21589; /* x188701 */ t21585.s1.tag = STRUCTURE_TYPE24753; t21585.s1.value.structure_type24753 = &t21586; /* x188702 */ t21584.s0.tag = STRUCTURE_TYPE24753; t21584.s0.value.structure_type24753 = &t21585; /* x188703 */ t21584.s1.tag = NULL_TYPE; /* x188704 */ t21569.s1.tag = STRUCTURE_TYPE24753; t21569.s1.value.structure_type24753 = &t21584; /* x188705 */ t21566.s1.tag = STRUCTURE_TYPE24753; t21566.s1.value.structure_type24753 = &t21569; /* x188706 */ t21565.s1.tag = STRUCTURE_TYPE24753; t21565.s1.value.structure_type24753 = &t21566; /* x188707 */ t21564.s0.tag = STRUCTURE_TYPE24753; t21564.s0.value.structure_type24753 = &t21565; /* x188708 */ t21564.s1.tag = NULL_TYPE; /* x188709 */ t21544.s1.tag = STRUCTURE_TYPE24753; t21544.s1.value.structure_type24753 = &t21564; /* x188710 */ t21543.s1.tag = STRUCTURE_TYPE24753; t21543.s1.value.structure_type24753 = &t21544; /* x188711 */ t21542.s1.tag = STRUCTURE_TYPE24753; t21542.s1.value.structure_type24753 = &t21543; /* x188712 */ t21541.s0.tag = STRUCTURE_TYPE24753; t21541.s0.value.structure_type24753 = &t21542; /* x188713 */ t21541.s1.tag = NULL_TYPE; /* x188714 */ t21540.s1.tag = STRUCTURE_TYPE24753; t21540.s1.value.structure_type24753 = &t21541; /* x188715 */ t21539.s0.tag = STRUCTURE_TYPE24753; t21539.s0.value.structure_type24753 = &t21540; /* x188716 */ t21539.s1.tag = NULL_TYPE; /* x188717 */ t21530.s1.tag = STRUCTURE_TYPE24753; t21530.s1.value.structure_type24753 = &t21539; /* x188718 */ t21529.s1.tag = STRUCTURE_TYPE24753; t21529.s1.value.structure_type24753 = &t21530; /* x188719 */ t21528.s0.tag = STRUCTURE_TYPE24753; t21528.s0.value.structure_type24753 = &t21529; /* x188720 */ t21528.s1.tag = NULL_TYPE; /* x188721 */ t21495.s1.tag = STRUCTURE_TYPE24753; t21495.s1.value.structure_type24753 = &t21528; /* x188722 */ t21494.s0.tag = STRUCTURE_TYPE24753; t21494.s0.value.structure_type24753 = &t21495; /* x188723 */ t21598.s0.tag = EXTERNAL_SYMBOL_TYPE; t21598.s0.value.external_symbol_type = q242; /* x188724 */ t21599.s0.tag = EXTERNAL_SYMBOL_TYPE; t21599.s0.value.external_symbol_type = q287; /* x188725 */ t21602.s0.tag = EXTERNAL_SYMBOL_TYPE; t21602.s0.value.external_symbol_type = q408; /* x188726 */ t21603.s0.tag = EXTERNAL_SYMBOL_TYPE; t21603.s0.value.external_symbol_type = q408; /* x188727 */ t21603.s1.tag = NULL_TYPE; /* x188728 */ t21602.s1.tag = STRUCTURE_TYPE24753; t21602.s1.value.structure_type24753 = &t21603; /* x188729 */ t21601.s0.tag = STRUCTURE_TYPE24753; t21601.s0.value.structure_type24753 = &t21602; /* x188730 */ t21601.s1.tag = NULL_TYPE; /* x188731 */ t21600.s0.tag = STRUCTURE_TYPE24753; t21600.s0.value.structure_type24753 = &t21601; /* x188732 */ t21605.s0.tag = EXTERNAL_SYMBOL_TYPE; t21605.s0.value.external_symbol_type = q241; /* x188733 */ t21607.s0.tag = EXTERNAL_SYMBOL_TYPE; t21607.s0.value.external_symbol_type = q111; /* x188734 */ t21608.s0.tag = EXTERNAL_SYMBOL_TYPE; t21608.s0.value.external_symbol_type = q408; /* x188735 */ t21608.s1.tag = NULL_TYPE; /* x188736 */ t21607.s1.tag = STRUCTURE_TYPE24753; t21607.s1.value.structure_type24753 = &t21608; /* x188737 */ t21606.s0.tag = STRUCTURE_TYPE24753; t21606.s0.value.structure_type24753 = &t21607; /* x188738 */ t21610.s0.tag = EXTERNAL_SYMBOL_TYPE; t21610.s0.value.external_symbol_type = q244; /* x188739 */ t21612.s0.tag = EXTERNAL_SYMBOL_TYPE; t21612.s0.value.external_symbol_type = q159; /* x188740 */ t21614.s0.tag = EXTERNAL_SYMBOL_TYPE; t21614.s0.value.external_symbol_type = q107; /* x188741 */ t21615.s0.tag = EXTERNAL_SYMBOL_TYPE; t21615.s0.value.external_symbol_type = q408; /* x188742 */ t21615.s1.tag = NULL_TYPE; /* x188743 */ t21614.s1.tag = STRUCTURE_TYPE24753; t21614.s1.value.structure_type24753 = &t21615; /* x188744 */ t21613.s0.tag = STRUCTURE_TYPE24753; t21613.s0.value.structure_type24753 = &t21614; /* x188745 */ t21613.s1.tag = NULL_TYPE; /* x188746 */ t21612.s1.tag = STRUCTURE_TYPE24753; t21612.s1.value.structure_type24753 = &t21613; /* x188747 */ t21611.s0.tag = STRUCTURE_TYPE24753; t21611.s0.value.structure_type24753 = &t21612; /* x188748 */ t21617.s0.tag = EXTERNAL_SYMBOL_TYPE; t21617.s0.value.external_symbol_type = q287; /* x188749 */ t21619.s0.tag = EXTERNAL_SYMBOL_TYPE; t21619.s0.value.external_symbol_type = q108; /* x188750 */ t21620.s0.tag = EXTERNAL_SYMBOL_TYPE; t21620.s0.value.external_symbol_type = q408; /* x188751 */ t21620.s1.tag = NULL_TYPE; /* x188752 */ t21619.s1.tag = STRUCTURE_TYPE24753; t21619.s1.value.structure_type24753 = &t21620; /* x188753 */ t21618.s0.tag = STRUCTURE_TYPE24753; t21618.s0.value.structure_type24753 = &t21619; /* x188754 */ t21618.s1.tag = NULL_TYPE; /* x188755 */ t21617.s1.tag = STRUCTURE_TYPE24753; t21617.s1.value.structure_type24753 = &t21618; /* x188756 */ t21616.s0.tag = STRUCTURE_TYPE24753; t21616.s0.value.structure_type24753 = &t21617; /* x188757 */ t21616.s1.tag = NULL_TYPE; /* x188758 */ t21611.s1.tag = STRUCTURE_TYPE24753; t21611.s1.value.structure_type24753 = &t21616; /* x188759 */ t21610.s1.tag = STRUCTURE_TYPE24753; t21610.s1.value.structure_type24753 = &t21611; /* x188760 */ t21609.s0.tag = STRUCTURE_TYPE24753; t21609.s0.value.structure_type24753 = &t21610; /* x188761 */ t21609.s1.tag = NULL_TYPE; /* x188762 */ t21606.s1.tag = STRUCTURE_TYPE24753; t21606.s1.value.structure_type24753 = &t21609; /* x188763 */ t21605.s1.tag = STRUCTURE_TYPE24753; t21605.s1.value.structure_type24753 = &t21606; /* x188764 */ t21604.s0.tag = STRUCTURE_TYPE24753; t21604.s0.value.structure_type24753 = &t21605; /* x188765 */ t21604.s1.tag = NULL_TYPE; /* x188766 */ t21600.s1.tag = STRUCTURE_TYPE24753; t21600.s1.value.structure_type24753 = &t21604; /* x188767 */ t21599.s1.tag = STRUCTURE_TYPE24753; t21599.s1.value.structure_type24753 = &t21600; /* x188768 */ t21598.s1.tag = STRUCTURE_TYPE24753; t21598.s1.value.structure_type24753 = &t21599; /* x188769 */ t21597.s0.tag = STRUCTURE_TYPE24753; t21597.s0.value.structure_type24753 = &t21598; /* x188770 */ t21622.s0.tag = EXTERNAL_SYMBOL_TYPE; t21622.s0.value.external_symbol_type = q246; /* x188771 */ t21625.s0.tag = EXTERNAL_SYMBOL_TYPE; t21625.s0.value.external_symbol_type = q409; /* x188772 */ t21627.s0.tag = EXTERNAL_SYMBOL_TYPE; t21627.s0.value.external_symbol_type = q160; /* x188773 */ t21629.s0.tag = EXTERNAL_SYMBOL_TYPE; t21629.s0.value.external_symbol_type = q242; /* x188774 */ t21630.s0.tag = EXTERNAL_SYMBOL_TYPE; t21630.s0.value.external_symbol_type = q287; /* x188775 */ t21633.s0.tag = EXTERNAL_SYMBOL_TYPE; t21633.s0.value.external_symbol_type = q337; /* x188776 */ t21634.s0.tag = FIXNUM_TYPE; t21634.s0.value.fixnum_type = 0; /* x188777 */ t21634.s1.tag = NULL_TYPE; /* x188778 */ t21633.s1.tag = STRUCTURE_TYPE24753; t21633.s1.value.structure_type24753 = &t21634; /* x188779 */ t21632.s0.tag = STRUCTURE_TYPE24753; t21632.s0.value.structure_type24753 = &t21633; /* x188780 */ t21636.s0.tag = EXTERNAL_SYMBOL_TYPE; t21636.s0.value.external_symbol_type = q410; /* x188781 */ t21637.s0.tag = EXTERNAL_SYMBOL_TYPE; t21637.s0.value.external_symbol_type = q408; /* x188782 */ t21637.s1.tag = NULL_TYPE; /* x188783 */ t21636.s1.tag = STRUCTURE_TYPE24753; t21636.s1.value.structure_type24753 = &t21637; /* x188784 */ t21635.s0.tag = STRUCTURE_TYPE24753; t21635.s0.value.structure_type24753 = &t21636; /* x188785 */ t21635.s1.tag = NULL_TYPE; /* x188786 */ t21632.s1.tag = STRUCTURE_TYPE24753; t21632.s1.value.structure_type24753 = &t21635; /* x188787 */ t21631.s0.tag = STRUCTURE_TYPE24753; t21631.s0.value.structure_type24753 = &t21632; /* x188788 */ t21639.s0.tag = EXTERNAL_SYMBOL_TYPE; t21639.s0.value.external_symbol_type = q43; /* x188789 */ t21641.s0.tag = EXTERNAL_SYMBOL_TYPE; t21641.s0.value.external_symbol_type = q111; /* x188790 */ t21642.s0.tag = EXTERNAL_SYMBOL_TYPE; t21642.s0.value.external_symbol_type = q410; /* x188791 */ t21642.s1.tag = NULL_TYPE; /* x188792 */ t21641.s1.tag = STRUCTURE_TYPE24753; t21641.s1.value.structure_type24753 = &t21642; /* x188793 */ t21640.s0.tag = STRUCTURE_TYPE24753; t21640.s0.value.structure_type24753 = &t21641; /* x188794 */ t21643.s0.tag = EXTERNAL_SYMBOL_TYPE; t21643.s0.value.external_symbol_type = q337; /* x188795 */ t21645.s0.tag = EXTERNAL_SYMBOL_TYPE; t21645.s0.value.external_symbol_type = q287; /* x188796 */ t21647.s0.tag = EXTERNAL_SYMBOL_TYPE; t21647.s0.value.external_symbol_type = q4; /* x188797 */ t21648.s0.tag = EXTERNAL_SYMBOL_TYPE; t21648.s0.value.external_symbol_type = q337; /* x188798 */ t21650.s0.tag = EXTERNAL_SYMBOL_TYPE; t21650.s0.value.external_symbol_type = q162; /* x188799 */ t21652.s0.tag = EXTERNAL_SYMBOL_TYPE; t21652.s0.value.external_symbol_type = q107; /* x188800 */ t21653.s0.tag = EXTERNAL_SYMBOL_TYPE; t21653.s0.value.external_symbol_type = q410; /* x188801 */ t21653.s1.tag = NULL_TYPE; /* x188802 */ t21652.s1.tag = STRUCTURE_TYPE24753; t21652.s1.value.structure_type24753 = &t21653; /* x188803 */ t21651.s0.tag = STRUCTURE_TYPE24753; t21651.s0.value.structure_type24753 = &t21652; /* x188804 */ t21651.s1.tag = NULL_TYPE; /* x188805 */ t21650.s1.tag = STRUCTURE_TYPE24753; t21650.s1.value.structure_type24753 = &t21651; /* x188806 */ t21649.s0.tag = STRUCTURE_TYPE24753; t21649.s0.value.structure_type24753 = &t21650; /* x188807 */ t21649.s1.tag = NULL_TYPE; /* x188808 */ t21648.s1.tag = STRUCTURE_TYPE24753; t21648.s1.value.structure_type24753 = &t21649; /* x188809 */ t21647.s1.tag = STRUCTURE_TYPE24753; t21647.s1.value.structure_type24753 = &t21648; /* x188810 */ t21646.s0.tag = STRUCTURE_TYPE24753; t21646.s0.value.structure_type24753 = &t21647; /* x188811 */ t21655.s0.tag = EXTERNAL_SYMBOL_TYPE; t21655.s0.value.external_symbol_type = q108; /* x188812 */ t21656.s0.tag = EXTERNAL_SYMBOL_TYPE; t21656.s0.value.external_symbol_type = q410; /* x188813 */ t21656.s1.tag = NULL_TYPE; /* x188814 */ t21655.s1.tag = STRUCTURE_TYPE24753; t21655.s1.value.structure_type24753 = &t21656; /* x188815 */ t21654.s0.tag = STRUCTURE_TYPE24753; t21654.s0.value.structure_type24753 = &t21655; /* x188816 */ t21654.s1.tag = NULL_TYPE; /* x188817 */ t21646.s1.tag = STRUCTURE_TYPE24753; t21646.s1.value.structure_type24753 = &t21654; /* x188818 */ t21645.s1.tag = STRUCTURE_TYPE24753; t21645.s1.value.structure_type24753 = &t21646; /* x188819 */ t21644.s0.tag = STRUCTURE_TYPE24753; t21644.s0.value.structure_type24753 = &t21645; /* x188820 */ t21644.s1.tag = NULL_TYPE; /* x188821 */ t21643.s1.tag = STRUCTURE_TYPE24753; t21643.s1.value.structure_type24753 = &t21644; /* x188822 */ t21640.s1.tag = STRUCTURE_TYPE24753; t21640.s1.value.structure_type24753 = &t21643; /* x188823 */ t21639.s1.tag = STRUCTURE_TYPE24753; t21639.s1.value.structure_type24753 = &t21640; /* x188824 */ t21638.s0.tag = STRUCTURE_TYPE24753; t21638.s0.value.structure_type24753 = &t21639; /* x188825 */ t21638.s1.tag = NULL_TYPE; /* x188826 */ t21631.s1.tag = STRUCTURE_TYPE24753; t21631.s1.value.structure_type24753 = &t21638; /* x188827 */ t21630.s1.tag = STRUCTURE_TYPE24753; t21630.s1.value.structure_type24753 = &t21631; /* x188828 */ t21629.s1.tag = STRUCTURE_TYPE24753; t21629.s1.value.structure_type24753 = &t21630; /* x188829 */ t21628.s0.tag = STRUCTURE_TYPE24753; t21628.s0.value.structure_type24753 = &t21629; /* x188830 */ t21628.s1.tag = NULL_TYPE; /* x188831 */ t21627.s1.tag = STRUCTURE_TYPE24753; t21627.s1.value.structure_type24753 = &t21628; /* x188832 */ t21626.s0.tag = STRUCTURE_TYPE24753; t21626.s0.value.structure_type24753 = &t21627; /* x188833 */ t21626.s1.tag = NULL_TYPE; /* x188834 */ t21625.s1.tag = STRUCTURE_TYPE24753; t21625.s1.value.structure_type24753 = &t21626; /* x188835 */ t21624.s0.tag = STRUCTURE_TYPE24753; t21624.s0.value.structure_type24753 = &t21625; /* x188836 */ t21658.s0.tag = EXTERNAL_SYMBOL_TYPE; t21658.s0.value.external_symbol_type = q337; /* x188837 */ t21659.s0.tag = FIXNUM_TYPE; t21659.s0.value.fixnum_type = 0; /* x188838 */ t21659.s1.tag = NULL_TYPE; /* x188839 */ t21658.s1.tag = STRUCTURE_TYPE24753; t21658.s1.value.structure_type24753 = &t21659; /* x188840 */ t21657.s0.tag = STRUCTURE_TYPE24753; t21657.s0.value.structure_type24753 = &t21658; /* x188841 */ t21657.s1.tag = NULL_TYPE; /* x188842 */ t21624.s1.tag = STRUCTURE_TYPE24753; t21624.s1.value.structure_type24753 = &t21657; /* x188843 */ t21623.s0.tag = STRUCTURE_TYPE24753; t21623.s0.value.structure_type24753 = &t21624; /* x188844 */ t21661.s0.tag = EXTERNAL_SYMBOL_TYPE; t21661.s0.value.external_symbol_type = q242; /* x188845 */ t21662.s0.tag = EXTERNAL_SYMBOL_TYPE; t21662.s0.value.external_symbol_type = q287; /* x188846 */ t21665.s0.tag = EXTERNAL_SYMBOL_TYPE; t21665.s0.value.external_symbol_type = q410; /* x188847 */ t21666.s0.tag = EXTERNAL_SYMBOL_TYPE; t21666.s0.value.external_symbol_type = q408; /* x188848 */ t21666.s1.tag = NULL_TYPE; /* x188849 */ t21665.s1.tag = STRUCTURE_TYPE24753; t21665.s1.value.structure_type24753 = &t21666; /* x188850 */ t21664.s0.tag = STRUCTURE_TYPE24753; t21664.s0.value.structure_type24753 = &t21665; /* x188851 */ t21664.s1.tag = NULL_TYPE; /* x188852 */ t21663.s0.tag = STRUCTURE_TYPE24753; t21663.s0.value.structure_type24753 = &t21664; /* x188853 */ t21668.s0.tag = EXTERNAL_SYMBOL_TYPE; t21668.s0.value.external_symbol_type = q43; /* x188854 */ t21670.s0.tag = EXTERNAL_SYMBOL_TYPE; t21670.s0.value.external_symbol_type = q102; /* x188855 */ t21672.s0.tag = EXTERNAL_SYMBOL_TYPE; t21672.s0.value.external_symbol_type = q111; /* x188856 */ t21673.s0.tag = EXTERNAL_SYMBOL_TYPE; t21673.s0.value.external_symbol_type = q410; /* x188857 */ t21673.s1.tag = NULL_TYPE; /* x188858 */ t21672.s1.tag = STRUCTURE_TYPE24753; t21672.s1.value.structure_type24753 = &t21673; /* x188859 */ t21671.s0.tag = STRUCTURE_TYPE24753; t21671.s0.value.structure_type24753 = &t21672; /* x188860 */ t21671.s1.tag = NULL_TYPE; /* x188861 */ t21670.s1.tag = STRUCTURE_TYPE24753; t21670.s1.value.structure_type24753 = &t21671; /* x188862 */ t21669.s0.tag = STRUCTURE_TYPE24753; t21669.s0.value.structure_type24753 = &t21670; /* x188863 */ t21675.s0.tag = EXTERNAL_SYMBOL_TYPE; t21675.s0.value.external_symbol_type = q242; /* x188864 */ t21678.s0.tag = EXTERNAL_SYMBOL_TYPE; t21678.s0.value.external_symbol_type = q260; /* x188865 */ t21680.s0.tag = EXTERNAL_SYMBOL_TYPE; t21680.s0.value.external_symbol_type = q162; /* x188866 */ t21682.s0.tag = EXTERNAL_SYMBOL_TYPE; t21682.s0.value.external_symbol_type = q107; /* x188867 */ t21683.s0.tag = EXTERNAL_SYMBOL_TYPE; t21683.s0.value.external_symbol_type = q410; /* x188868 */ t21683.s1.tag = NULL_TYPE; /* x188869 */ t21682.s1.tag = STRUCTURE_TYPE24753; t21682.s1.value.structure_type24753 = &t21683; /* x188870 */ t21681.s0.tag = STRUCTURE_TYPE24753; t21681.s0.value.structure_type24753 = &t21682; /* x188871 */ t21681.s1.tag = NULL_TYPE; /* x188872 */ t21680.s1.tag = STRUCTURE_TYPE24753; t21680.s1.value.structure_type24753 = &t21681; /* x188873 */ t21679.s0.tag = STRUCTURE_TYPE24753; t21679.s0.value.structure_type24753 = &t21680; /* x188874 */ t21679.s1.tag = NULL_TYPE; /* x188875 */ t21678.s1.tag = STRUCTURE_TYPE24753; t21678.s1.value.structure_type24753 = &t21679; /* x188876 */ t21677.s0.tag = STRUCTURE_TYPE24753; t21677.s0.value.structure_type24753 = &t21678; /* x188877 */ t21677.s1.tag = NULL_TYPE; /* x188878 */ t21676.s0.tag = STRUCTURE_TYPE24753; t21676.s0.value.structure_type24753 = &t21677; /* x188879 */ t21685.s0.tag = EXTERNAL_SYMBOL_TYPE; t21685.s0.value.external_symbol_type = q242; /* x188880 */ t21686.s0.tag = EXTERNAL_SYMBOL_TYPE; t21686.s0.value.external_symbol_type = q287; /* x188881 */ t21689.s0.tag = EXTERNAL_SYMBOL_TYPE; t21689.s0.value.external_symbol_type = q330; /* x188882 */ t21690.s0.tag = FIXNUM_TYPE; t21690.s0.value.fixnum_type = 0; /* x188883 */ t21690.s1.tag = NULL_TYPE; /* x188884 */ t21689.s1.tag = STRUCTURE_TYPE24753; t21689.s1.value.structure_type24753 = &t21690; /* x188885 */ t21688.s0.tag = STRUCTURE_TYPE24753; t21688.s0.value.structure_type24753 = &t21689; /* x188886 */ t21688.s1.tag = NULL_TYPE; /* x188887 */ t21687.s0.tag = STRUCTURE_TYPE24753; t21687.s0.value.structure_type24753 = &t21688; /* x188888 */ t21692.s0.tag = EXTERNAL_SYMBOL_TYPE; t21692.s0.value.external_symbol_type = q43; /* x188889 */ t21694.s0.tag = EXTERNAL_SYMBOL_TYPE; t21694.s0.value.external_symbol_type = q102; /* x188890 */ t21696.s0.tag = EXTERNAL_SYMBOL_TYPE; t21696.s0.value.external_symbol_type = q120; /* x188891 */ t21697.s0.tag = EXTERNAL_SYMBOL_TYPE; t21697.s0.value.external_symbol_type = q330; /* x188892 */ t21698.s0.tag = EXTERNAL_SYMBOL_TYPE; t21698.s0.value.external_symbol_type = q260; /* x188893 */ t21698.s1.tag = NULL_TYPE; /* x188894 */ t21697.s1.tag = STRUCTURE_TYPE24753; t21697.s1.value.structure_type24753 = &t21698; /* x188895 */ t21696.s1.tag = STRUCTURE_TYPE24753; t21696.s1.value.structure_type24753 = &t21697; /* x188896 */ t21695.s0.tag = STRUCTURE_TYPE24753; t21695.s0.value.structure_type24753 = &t21696; /* x188897 */ t21695.s1.tag = NULL_TYPE; /* x188898 */ t21694.s1.tag = STRUCTURE_TYPE24753; t21694.s1.value.structure_type24753 = &t21695; /* x188899 */ t21693.s0.tag = STRUCTURE_TYPE24753; t21693.s0.value.structure_type24753 = &t21694; /* x188900 */ t21700.s0.tag = EXTERNAL_SYMBOL_TYPE; t21700.s0.value.external_symbol_type = q239; /* x188901 */ t21702.s0.tag = EXTERNAL_SYMBOL_TYPE; t21702.s0.value.external_symbol_type = q164; /* x188902 */ t21703.s0.tag = EXTERNAL_SYMBOL_TYPE; t21703.s0.value.external_symbol_type = q409; /* x188903 */ t21704.s0.tag = EXTERNAL_SYMBOL_TYPE; t21704.s0.value.external_symbol_type = q337; /* x188904 */ t21706.s0.tag = EXTERNAL_SYMBOL_TYPE; t21706.s0.value.external_symbol_type = q163; /* x188905 */ t21708.s0.tag = EXTERNAL_SYMBOL_TYPE; t21708.s0.value.external_symbol_type = q107; /* x188906 */ t21709.s0.tag = EXTERNAL_SYMBOL_TYPE; t21709.s0.value.external_symbol_type = q410; /* x188907 */ t21709.s1.tag = NULL_TYPE; /* x188908 */ t21708.s1.tag = STRUCTURE_TYPE24753; t21708.s1.value.structure_type24753 = &t21709; /* x188909 */ t21707.s0.tag = STRUCTURE_TYPE24753; t21707.s0.value.structure_type24753 = &t21708; /* x188910 */ t21710.s0.tag = EXTERNAL_SYMBOL_TYPE; t21710.s0.value.external_symbol_type = q330; /* x188911 */ t21710.s1.tag = NULL_TYPE; /* x188912 */ t21707.s1.tag = STRUCTURE_TYPE24753; t21707.s1.value.structure_type24753 = &t21710; /* x188913 */ t21706.s1.tag = STRUCTURE_TYPE24753; t21706.s1.value.structure_type24753 = &t21707; /* x188914 */ t21705.s0.tag = STRUCTURE_TYPE24753; t21705.s0.value.structure_type24753 = &t21706; /* x188915 */ t21705.s1.tag = NULL_TYPE; /* x188916 */ t21704.s1.tag = STRUCTURE_TYPE24753; t21704.s1.value.structure_type24753 = &t21705; /* x188917 */ t21703.s1.tag = STRUCTURE_TYPE24753; t21703.s1.value.structure_type24753 = &t21704; /* x188918 */ t21702.s1.tag = STRUCTURE_TYPE24753; t21702.s1.value.structure_type24753 = &t21703; /* x188919 */ t21701.s0.tag = STRUCTURE_TYPE24753; t21701.s0.value.structure_type24753 = &t21702; /* x188920 */ t21712.s0.tag = EXTERNAL_SYMBOL_TYPE; t21712.s0.value.external_symbol_type = q42; /* x188921 */ t21713.s0.tag = EXTERNAL_SYMBOL_TYPE; t21713.s0.value.external_symbol_type = q337; /* x188922 */ t21715.s0.tag = EXTERNAL_SYMBOL_TYPE; t21715.s0.value.external_symbol_type = q4; /* x188923 */ t21716.s0.tag = EXTERNAL_SYMBOL_TYPE; t21716.s0.value.external_symbol_type = q337; /* x188924 */ t21717.s0.tag = FIXNUM_TYPE; t21717.s0.value.fixnum_type = 1; /* x188925 */ t21717.s1.tag = NULL_TYPE; /* x188926 */ t21716.s1.tag = STRUCTURE_TYPE24753; t21716.s1.value.structure_type24753 = &t21717; /* x188927 */ t21715.s1.tag = STRUCTURE_TYPE24753; t21715.s1.value.structure_type24753 = &t21716; /* x188928 */ t21714.s0.tag = STRUCTURE_TYPE24753; t21714.s0.value.structure_type24753 = &t21715; /* x188929 */ t21714.s1.tag = NULL_TYPE; /* x188930 */ t21713.s1.tag = STRUCTURE_TYPE24753; t21713.s1.value.structure_type24753 = &t21714; /* x188931 */ t21712.s1.tag = STRUCTURE_TYPE24753; t21712.s1.value.structure_type24753 = &t21713; /* x188932 */ t21711.s0.tag = STRUCTURE_TYPE24753; t21711.s0.value.structure_type24753 = &t21712; /* x188933 */ t21719.s0.tag = EXTERNAL_SYMBOL_TYPE; t21719.s0.value.external_symbol_type = q287; /* x188934 */ t21721.s0.tag = EXTERNAL_SYMBOL_TYPE; t21721.s0.value.external_symbol_type = q4; /* x188935 */ t21722.s0.tag = EXTERNAL_SYMBOL_TYPE; t21722.s0.value.external_symbol_type = q330; /* x188936 */ t21723.s0.tag = FIXNUM_TYPE; t21723.s0.value.fixnum_type = 1; /* x188937 */ t21723.s1.tag = NULL_TYPE; /* x188938 */ t21722.s1.tag = STRUCTURE_TYPE24753; t21722.s1.value.structure_type24753 = &t21723; /* x188939 */ t21721.s1.tag = STRUCTURE_TYPE24753; t21721.s1.value.structure_type24753 = &t21722; /* x188940 */ t21720.s0.tag = STRUCTURE_TYPE24753; t21720.s0.value.structure_type24753 = &t21721; /* x188941 */ t21720.s1.tag = NULL_TYPE; /* x188942 */ t21719.s1.tag = STRUCTURE_TYPE24753; t21719.s1.value.structure_type24753 = &t21720; /* x188943 */ t21718.s0.tag = STRUCTURE_TYPE24753; t21718.s0.value.structure_type24753 = &t21719; /* x188944 */ t21718.s1.tag = NULL_TYPE; /* x188945 */ t21711.s1.tag = STRUCTURE_TYPE24753; t21711.s1.value.structure_type24753 = &t21718; /* x188946 */ t21701.s1.tag = STRUCTURE_TYPE24753; t21701.s1.value.structure_type24753 = &t21711; /* x188947 */ t21700.s1.tag = STRUCTURE_TYPE24753; t21700.s1.value.structure_type24753 = &t21701; /* x188948 */ t21699.s0.tag = STRUCTURE_TYPE24753; t21699.s0.value.structure_type24753 = &t21700; /* x188949 */ t21699.s1.tag = NULL_TYPE; /* x188950 */ t21693.s1.tag = STRUCTURE_TYPE24753; t21693.s1.value.structure_type24753 = &t21699; /* x188951 */ t21692.s1.tag = STRUCTURE_TYPE24753; t21692.s1.value.structure_type24753 = &t21693; /* x188952 */ t21691.s0.tag = STRUCTURE_TYPE24753; t21691.s0.value.structure_type24753 = &t21692; /* x188953 */ t21691.s1.tag = NULL_TYPE; /* x188954 */ t21687.s1.tag = STRUCTURE_TYPE24753; t21687.s1.value.structure_type24753 = &t21691; /* x188955 */ t21686.s1.tag = STRUCTURE_TYPE24753; t21686.s1.value.structure_type24753 = &t21687; /* x188956 */ t21685.s1.tag = STRUCTURE_TYPE24753; t21685.s1.value.structure_type24753 = &t21686; /* x188957 */ t21684.s0.tag = STRUCTURE_TYPE24753; t21684.s0.value.structure_type24753 = &t21685; /* x188958 */ t21725.s0.tag = EXTERNAL_SYMBOL_TYPE; t21725.s0.value.external_symbol_type = q287; /* x188959 */ t21727.s0.tag = EXTERNAL_SYMBOL_TYPE; t21727.s0.value.external_symbol_type = q108; /* x188960 */ t21728.s0.tag = EXTERNAL_SYMBOL_TYPE; t21728.s0.value.external_symbol_type = q410; /* x188961 */ t21728.s1.tag = NULL_TYPE; /* x188962 */ t21727.s1.tag = STRUCTURE_TYPE24753; t21727.s1.value.structure_type24753 = &t21728; /* x188963 */ t21726.s0.tag = STRUCTURE_TYPE24753; t21726.s0.value.structure_type24753 = &t21727; /* x188964 */ t21726.s1.tag = NULL_TYPE; /* x188965 */ t21725.s1.tag = STRUCTURE_TYPE24753; t21725.s1.value.structure_type24753 = &t21726; /* x188966 */ t21724.s0.tag = STRUCTURE_TYPE24753; t21724.s0.value.structure_type24753 = &t21725; /* x188967 */ t21724.s1.tag = NULL_TYPE; /* x188968 */ t21684.s1.tag = STRUCTURE_TYPE24753; t21684.s1.value.structure_type24753 = &t21724; /* x188969 */ t21676.s1.tag = STRUCTURE_TYPE24753; t21676.s1.value.structure_type24753 = &t21684; /* x188970 */ t21675.s1.tag = STRUCTURE_TYPE24753; t21675.s1.value.structure_type24753 = &t21676; /* x188971 */ t21674.s0.tag = STRUCTURE_TYPE24753; t21674.s0.value.structure_type24753 = &t21675; /* x188972 */ t21674.s1.tag = NULL_TYPE; /* x188973 */ t21669.s1.tag = STRUCTURE_TYPE24753; t21669.s1.value.structure_type24753 = &t21674; /* x188974 */ t21668.s1.tag = STRUCTURE_TYPE24753; t21668.s1.value.structure_type24753 = &t21669; /* x188975 */ t21667.s0.tag = STRUCTURE_TYPE24753; t21667.s0.value.structure_type24753 = &t21668; /* x188976 */ t21667.s1.tag = NULL_TYPE; /* x188977 */ t21663.s1.tag = STRUCTURE_TYPE24753; t21663.s1.value.structure_type24753 = &t21667; /* x188978 */ t21662.s1.tag = STRUCTURE_TYPE24753; t21662.s1.value.structure_type24753 = &t21663; /* x188979 */ t21661.s1.tag = STRUCTURE_TYPE24753; t21661.s1.value.structure_type24753 = &t21662; /* x188980 */ t21660.s0.tag = STRUCTURE_TYPE24753; t21660.s0.value.structure_type24753 = &t21661; /* x188981 */ t21729.s0.tag = EXTERNAL_SYMBOL_TYPE; t21729.s0.value.external_symbol_type = q409; /* x188982 */ t21729.s1.tag = NULL_TYPE; /* x188983 */ t21660.s1.tag = STRUCTURE_TYPE24753; t21660.s1.value.structure_type24753 = &t21729; /* x188984 */ t21623.s1.tag = STRUCTURE_TYPE24753; t21623.s1.value.structure_type24753 = &t21660; /* x188985 */ t21622.s1.tag = STRUCTURE_TYPE24753; t21622.s1.value.structure_type24753 = &t21623; /* x188986 */ t21621.s0.tag = STRUCTURE_TYPE24753; t21621.s0.value.structure_type24753 = &t21622; /* x188987 */ t21621.s1.tag = NULL_TYPE; /* x188988 */ t21597.s1.tag = STRUCTURE_TYPE24753; t21597.s1.value.structure_type24753 = &t21621; /* x188989 */ t21596.s0.tag = STRUCTURE_TYPE24753; t21596.s0.value.structure_type24753 = &t21597; /* x188990 */ t21732.s0.tag = EXTERNAL_SYMBOL_TYPE; t21732.s0.value.external_symbol_type = q242; /* x188991 */ t21733.s0.tag = EXTERNAL_SYMBOL_TYPE; t21733.s0.value.external_symbol_type = q287; /* x188992 */ t21736.s0.tag = EXTERNAL_SYMBOL_TYPE; t21736.s0.value.external_symbol_type = q408; /* x188993 */ t21737.s0.tag = EXTERNAL_SYMBOL_TYPE; t21737.s0.value.external_symbol_type = q408; /* x188994 */ t21737.s1.tag = NULL_TYPE; /* x188995 */ t21736.s1.tag = STRUCTURE_TYPE24753; t21736.s1.value.structure_type24753 = &t21737; /* x188996 */ t21735.s0.tag = STRUCTURE_TYPE24753; t21735.s0.value.structure_type24753 = &t21736; /* x188997 */ t21735.s1.tag = NULL_TYPE; /* x188998 */ t21734.s0.tag = STRUCTURE_TYPE24753; t21734.s0.value.structure_type24753 = &t21735; /* x188999 */ t21739.s0.tag = EXTERNAL_SYMBOL_TYPE; t21739.s0.value.external_symbol_type = q241; /* x189000 */ t21741.s0.tag = EXTERNAL_SYMBOL_TYPE; t21741.s0.value.external_symbol_type = q111; /* x189001 */ t21742.s0.tag = EXTERNAL_SYMBOL_TYPE; t21742.s0.value.external_symbol_type = q408; /* x189002 */ t21742.s1.tag = NULL_TYPE; /* x189003 */ t21741.s1.tag = STRUCTURE_TYPE24753; t21741.s1.value.structure_type24753 = &t21742; /* x189004 */ t21740.s0.tag = STRUCTURE_TYPE24753; t21740.s0.value.structure_type24753 = &t21741; /* x189005 */ t21744.s0.tag = EXTERNAL_SYMBOL_TYPE; t21744.s0.value.external_symbol_type = q244; /* x189006 */ t21746.s0.tag = EXTERNAL_SYMBOL_TYPE; t21746.s0.value.external_symbol_type = q165; /* x189007 */ t21748.s0.tag = EXTERNAL_SYMBOL_TYPE; t21748.s0.value.external_symbol_type = q107; /* x189008 */ t21749.s0.tag = EXTERNAL_SYMBOL_TYPE; t21749.s0.value.external_symbol_type = q408; /* x189009 */ t21749.s1.tag = NULL_TYPE; /* x189010 */ t21748.s1.tag = STRUCTURE_TYPE24753; t21748.s1.value.structure_type24753 = &t21749; /* x189011 */ t21747.s0.tag = STRUCTURE_TYPE24753; t21747.s0.value.structure_type24753 = &t21748; /* x189012 */ t21747.s1.tag = NULL_TYPE; /* x189013 */ t21746.s1.tag = STRUCTURE_TYPE24753; t21746.s1.value.structure_type24753 = &t21747; /* x189014 */ t21745.s0.tag = STRUCTURE_TYPE24753; t21745.s0.value.structure_type24753 = &t21746; /* x189015 */ t21751.s0.tag = EXTERNAL_SYMBOL_TYPE; t21751.s0.value.external_symbol_type = q287; /* x189016 */ t21753.s0.tag = EXTERNAL_SYMBOL_TYPE; t21753.s0.value.external_symbol_type = q108; /* x189017 */ t21754.s0.tag = EXTERNAL_SYMBOL_TYPE; t21754.s0.value.external_symbol_type = q408; /* x189018 */ t21754.s1.tag = NULL_TYPE; /* x189019 */ t21753.s1.tag = STRUCTURE_TYPE24753; t21753.s1.value.structure_type24753 = &t21754; /* x189020 */ t21752.s0.tag = STRUCTURE_TYPE24753; t21752.s0.value.structure_type24753 = &t21753; /* x189021 */ t21752.s1.tag = NULL_TYPE; /* x189022 */ t21751.s1.tag = STRUCTURE_TYPE24753; t21751.s1.value.structure_type24753 = &t21752; /* x189023 */ t21750.s0.tag = STRUCTURE_TYPE24753; t21750.s0.value.structure_type24753 = &t21751; /* x189024 */ t21750.s1.tag = NULL_TYPE; /* x189025 */ t21745.s1.tag = STRUCTURE_TYPE24753; t21745.s1.value.structure_type24753 = &t21750; /* x189026 */ t21744.s1.tag = STRUCTURE_TYPE24753; t21744.s1.value.structure_type24753 = &t21745; /* x189027 */ t21743.s0.tag = STRUCTURE_TYPE24753; t21743.s0.value.structure_type24753 = &t21744; /* x189028 */ t21743.s1.tag = NULL_TYPE; /* x189029 */ t21740.s1.tag = STRUCTURE_TYPE24753; t21740.s1.value.structure_type24753 = &t21743; /* x189030 */ t21739.s1.tag = STRUCTURE_TYPE24753; t21739.s1.value.structure_type24753 = &t21740; /* x189031 */ t21738.s0.tag = STRUCTURE_TYPE24753; t21738.s0.value.structure_type24753 = &t21739; /* x189032 */ t21738.s1.tag = NULL_TYPE; /* x189033 */ t21734.s1.tag = STRUCTURE_TYPE24753; t21734.s1.value.structure_type24753 = &t21738; /* x189034 */ t21733.s1.tag = STRUCTURE_TYPE24753; t21733.s1.value.structure_type24753 = &t21734; /* x189035 */ t21732.s1.tag = STRUCTURE_TYPE24753; t21732.s1.value.structure_type24753 = &t21733; /* x189036 */ t21731.s0.tag = STRUCTURE_TYPE24753; t21731.s0.value.structure_type24753 = &t21732; /* x189037 */ t21756.s0.tag = EXTERNAL_SYMBOL_TYPE; t21756.s0.value.external_symbol_type = q246; /* x189038 */ t21759.s0.tag = EXTERNAL_SYMBOL_TYPE; t21759.s0.value.external_symbol_type = q409; /* x189039 */ t21761.s0.tag = EXTERNAL_SYMBOL_TYPE; t21761.s0.value.external_symbol_type = q166; /* x189040 */ t21763.s0.tag = EXTERNAL_SYMBOL_TYPE; t21763.s0.value.external_symbol_type = q242; /* x189041 */ t21764.s0.tag = EXTERNAL_SYMBOL_TYPE; t21764.s0.value.external_symbol_type = q287; /* x189042 */ t21767.s0.tag = EXTERNAL_SYMBOL_TYPE; t21767.s0.value.external_symbol_type = q337; /* x189043 */ t21768.s0.tag = FIXNUM_TYPE; t21768.s0.value.fixnum_type = 0; /* x189044 */ t21768.s1.tag = NULL_TYPE; /* x189045 */ t21767.s1.tag = STRUCTURE_TYPE24753; t21767.s1.value.structure_type24753 = &t21768; /* x189046 */ t21766.s0.tag = STRUCTURE_TYPE24753; t21766.s0.value.structure_type24753 = &t21767; /* x189047 */ t21770.s0.tag = EXTERNAL_SYMBOL_TYPE; t21770.s0.value.external_symbol_type = q411; /* x189048 */ t21771.s0.tag = EXTERNAL_SYMBOL_TYPE; t21771.s0.value.external_symbol_type = q408; /* x189049 */ t21771.s1.tag = NULL_TYPE; /* x189050 */ t21770.s1.tag = STRUCTURE_TYPE24753; t21770.s1.value.structure_type24753 = &t21771; /* x189051 */ t21769.s0.tag = STRUCTURE_TYPE24753; t21769.s0.value.structure_type24753 = &t21770; /* x189052 */ t21769.s1.tag = NULL_TYPE; /* x189053 */ t21766.s1.tag = STRUCTURE_TYPE24753; t21766.s1.value.structure_type24753 = &t21769; /* x189054 */ t21765.s0.tag = STRUCTURE_TYPE24753; t21765.s0.value.structure_type24753 = &t21766; /* x189055 */ t21773.s0.tag = EXTERNAL_SYMBOL_TYPE; t21773.s0.value.external_symbol_type = q43; /* x189056 */ t21775.s0.tag = EXTERNAL_SYMBOL_TYPE; t21775.s0.value.external_symbol_type = q111; /* x189057 */ t21776.s0.tag = EXTERNAL_SYMBOL_TYPE; t21776.s0.value.external_symbol_type = q411; /* x189058 */ t21776.s1.tag = NULL_TYPE; /* x189059 */ t21775.s1.tag = STRUCTURE_TYPE24753; t21775.s1.value.structure_type24753 = &t21776; /* x189060 */ t21774.s0.tag = STRUCTURE_TYPE24753; t21774.s0.value.structure_type24753 = &t21775; /* x189061 */ t21777.s0.tag = EXTERNAL_SYMBOL_TYPE; t21777.s0.value.external_symbol_type = q337; /* x189062 */ t21779.s0.tag = EXTERNAL_SYMBOL_TYPE; t21779.s0.value.external_symbol_type = q287; /* x189063 */ t21781.s0.tag = EXTERNAL_SYMBOL_TYPE; t21781.s0.value.external_symbol_type = q4; /* x189064 */ t21782.s0.tag = EXTERNAL_SYMBOL_TYPE; t21782.s0.value.external_symbol_type = q337; /* x189065 */ t21784.s0.tag = EXTERNAL_SYMBOL_TYPE; t21784.s0.value.external_symbol_type = q168; /* x189066 */ t21786.s0.tag = EXTERNAL_SYMBOL_TYPE; t21786.s0.value.external_symbol_type = q107; /* x189067 */ t21787.s0.tag = EXTERNAL_SYMBOL_TYPE; t21787.s0.value.external_symbol_type = q411; /* x189068 */ t21787.s1.tag = NULL_TYPE; /* x189069 */ t21786.s1.tag = STRUCTURE_TYPE24753; t21786.s1.value.structure_type24753 = &t21787; /* x189070 */ t21785.s0.tag = STRUCTURE_TYPE24753; t21785.s0.value.structure_type24753 = &t21786; /* x189071 */ t21785.s1.tag = NULL_TYPE; /* x189072 */ t21784.s1.tag = STRUCTURE_TYPE24753; t21784.s1.value.structure_type24753 = &t21785; /* x189073 */ t21783.s0.tag = STRUCTURE_TYPE24753; t21783.s0.value.structure_type24753 = &t21784; /* x189074 */ t21783.s1.tag = NULL_TYPE; /* x189075 */ t21782.s1.tag = STRUCTURE_TYPE24753; t21782.s1.value.structure_type24753 = &t21783; /* x189076 */ t21781.s1.tag = STRUCTURE_TYPE24753; t21781.s1.value.structure_type24753 = &t21782; /* x189077 */ t21780.s0.tag = STRUCTURE_TYPE24753; t21780.s0.value.structure_type24753 = &t21781; /* x189078 */ t21789.s0.tag = EXTERNAL_SYMBOL_TYPE; t21789.s0.value.external_symbol_type = q108; /* x189079 */ t21790.s0.tag = EXTERNAL_SYMBOL_TYPE; t21790.s0.value.external_symbol_type = q411; /* x189080 */ t21790.s1.tag = NULL_TYPE; /* x189081 */ t21789.s1.tag = STRUCTURE_TYPE24753; t21789.s1.value.structure_type24753 = &t21790; /* x189082 */ t21788.s0.tag = STRUCTURE_TYPE24753; t21788.s0.value.structure_type24753 = &t21789; /* x189083 */ t21788.s1.tag = NULL_TYPE; /* x189084 */ t21780.s1.tag = STRUCTURE_TYPE24753; t21780.s1.value.structure_type24753 = &t21788; /* x189085 */ t21779.s1.tag = STRUCTURE_TYPE24753; t21779.s1.value.structure_type24753 = &t21780; /* x189086 */ t21778.s0.tag = STRUCTURE_TYPE24753; t21778.s0.value.structure_type24753 = &t21779; /* x189087 */ t21778.s1.tag = NULL_TYPE; /* x189088 */ t21777.s1.tag = STRUCTURE_TYPE24753; t21777.s1.value.structure_type24753 = &t21778; /* x189089 */ t21774.s1.tag = STRUCTURE_TYPE24753; t21774.s1.value.structure_type24753 = &t21777; /* x189090 */ t21773.s1.tag = STRUCTURE_TYPE24753; t21773.s1.value.structure_type24753 = &t21774; /* x189091 */ t21772.s0.tag = STRUCTURE_TYPE24753; t21772.s0.value.structure_type24753 = &t21773; /* x189092 */ t21772.s1.tag = NULL_TYPE; /* x189093 */ t21765.s1.tag = STRUCTURE_TYPE24753; t21765.s1.value.structure_type24753 = &t21772; /* x189094 */ t21764.s1.tag = STRUCTURE_TYPE24753; t21764.s1.value.structure_type24753 = &t21765; /* x189095 */ t21763.s1.tag = STRUCTURE_TYPE24753; t21763.s1.value.structure_type24753 = &t21764; /* x189096 */ t21762.s0.tag = STRUCTURE_TYPE24753; t21762.s0.value.structure_type24753 = &t21763; /* x189097 */ t21762.s1.tag = NULL_TYPE; /* x189098 */ t21761.s1.tag = STRUCTURE_TYPE24753; t21761.s1.value.structure_type24753 = &t21762; /* x189099 */ t21760.s0.tag = STRUCTURE_TYPE24753; t21760.s0.value.structure_type24753 = &t21761; /* x189100 */ t21760.s1.tag = NULL_TYPE; /* x189101 */ t21759.s1.tag = STRUCTURE_TYPE24753; t21759.s1.value.structure_type24753 = &t21760; /* x189102 */ t21758.s0.tag = STRUCTURE_TYPE24753; t21758.s0.value.structure_type24753 = &t21759; /* x189103 */ t21792.s0.tag = EXTERNAL_SYMBOL_TYPE; t21792.s0.value.external_symbol_type = q337; /* x189104 */ t21793.s0.tag = FIXNUM_TYPE; t21793.s0.value.fixnum_type = 0; /* x189105 */ t21793.s1.tag = NULL_TYPE; /* x189106 */ t21792.s1.tag = STRUCTURE_TYPE24753; t21792.s1.value.structure_type24753 = &t21793; /* x189107 */ t21791.s0.tag = STRUCTURE_TYPE24753; t21791.s0.value.structure_type24753 = &t21792; /* x189108 */ t21791.s1.tag = NULL_TYPE; /* x189109 */ t21758.s1.tag = STRUCTURE_TYPE24753; t21758.s1.value.structure_type24753 = &t21791; /* x189110 */ t21757.s0.tag = STRUCTURE_TYPE24753; t21757.s0.value.structure_type24753 = &t21758; /* x189111 */ t21795.s0.tag = EXTERNAL_SYMBOL_TYPE; t21795.s0.value.external_symbol_type = q242; /* x189112 */ t21796.s0.tag = EXTERNAL_SYMBOL_TYPE; t21796.s0.value.external_symbol_type = q287; /* x189113 */ t21799.s0.tag = EXTERNAL_SYMBOL_TYPE; t21799.s0.value.external_symbol_type = q411; /* x189114 */ t21800.s0.tag = EXTERNAL_SYMBOL_TYPE; t21800.s0.value.external_symbol_type = q408; /* x189115 */ t21800.s1.tag = NULL_TYPE; /* x189116 */ t21799.s1.tag = STRUCTURE_TYPE24753; t21799.s1.value.structure_type24753 = &t21800; /* x189117 */ t21798.s0.tag = STRUCTURE_TYPE24753; t21798.s0.value.structure_type24753 = &t21799; /* x189118 */ t21798.s1.tag = NULL_TYPE; /* x189119 */ t21797.s0.tag = STRUCTURE_TYPE24753; t21797.s0.value.structure_type24753 = &t21798; /* x189120 */ t21802.s0.tag = EXTERNAL_SYMBOL_TYPE; t21802.s0.value.external_symbol_type = q43; /* x189121 */ t21804.s0.tag = EXTERNAL_SYMBOL_TYPE; t21804.s0.value.external_symbol_type = q102; /* x189122 */ t21806.s0.tag = EXTERNAL_SYMBOL_TYPE; t21806.s0.value.external_symbol_type = q111; /* x189123 */ t21807.s0.tag = EXTERNAL_SYMBOL_TYPE; t21807.s0.value.external_symbol_type = q411; /* x189124 */ t21807.s1.tag = NULL_TYPE; /* x189125 */ t21806.s1.tag = STRUCTURE_TYPE24753; t21806.s1.value.structure_type24753 = &t21807; /* x189126 */ t21805.s0.tag = STRUCTURE_TYPE24753; t21805.s0.value.structure_type24753 = &t21806; /* x189127 */ t21805.s1.tag = NULL_TYPE; /* x189128 */ t21804.s1.tag = STRUCTURE_TYPE24753; t21804.s1.value.structure_type24753 = &t21805; /* x189129 */ t21803.s0.tag = STRUCTURE_TYPE24753; t21803.s0.value.structure_type24753 = &t21804; /* x189130 */ t21809.s0.tag = EXTERNAL_SYMBOL_TYPE; t21809.s0.value.external_symbol_type = q239; /* x189131 */ t21811.s0.tag = EXTERNAL_SYMBOL_TYPE; t21811.s0.value.external_symbol_type = q242; /* x189132 */ t21812.s0.tag = EXTERNAL_SYMBOL_TYPE; t21812.s0.value.external_symbol_type = q287; /* x189133 */ t21815.s0.tag = EXTERNAL_SYMBOL_TYPE; t21815.s0.value.external_symbol_type = q330; /* x189134 */ t21816.s0.tag = FIXNUM_TYPE; t21816.s0.value.fixnum_type = 0; /* x189135 */ t21816.s1.tag = NULL_TYPE; /* x189136 */ t21815.s1.tag = STRUCTURE_TYPE24753; t21815.s1.value.structure_type24753 = &t21816; /* x189137 */ t21814.s0.tag = STRUCTURE_TYPE24753; t21814.s0.value.structure_type24753 = &t21815; /* x189138 */ t21814.s1.tag = NULL_TYPE; /* x189139 */ t21813.s0.tag = STRUCTURE_TYPE24753; t21813.s0.value.structure_type24753 = &t21814; /* x189140 */ t21818.s0.tag = EXTERNAL_SYMBOL_TYPE; t21818.s0.value.external_symbol_type = q43; /* x189141 */ t21820.s0.tag = EXTERNAL_SYMBOL_TYPE; t21820.s0.value.external_symbol_type = q102; /* x189142 */ t21822.s0.tag = EXTERNAL_SYMBOL_TYPE; t21822.s0.value.external_symbol_type = q120; /* x189143 */ t21823.s0.tag = EXTERNAL_SYMBOL_TYPE; t21823.s0.value.external_symbol_type = q330; /* x189144 */ t21825.s0.tag = EXTERNAL_SYMBOL_TYPE; t21825.s0.value.external_symbol_type = q168; /* x189145 */ t21827.s0.tag = EXTERNAL_SYMBOL_TYPE; t21827.s0.value.external_symbol_type = q107; /* x189146 */ t21828.s0.tag = EXTERNAL_SYMBOL_TYPE; t21828.s0.value.external_symbol_type = q411; /* x189147 */ t21828.s1.tag = NULL_TYPE; /* x189148 */ t21827.s1.tag = STRUCTURE_TYPE24753; t21827.s1.value.structure_type24753 = &t21828; /* x189149 */ t21826.s0.tag = STRUCTURE_TYPE24753; t21826.s0.value.structure_type24753 = &t21827; /* x189150 */ t21826.s1.tag = NULL_TYPE; /* x189151 */ t21825.s1.tag = STRUCTURE_TYPE24753; t21825.s1.value.structure_type24753 = &t21826; /* x189152 */ t21824.s0.tag = STRUCTURE_TYPE24753; t21824.s0.value.structure_type24753 = &t21825; /* x189153 */ t21824.s1.tag = NULL_TYPE; /* x189154 */ t21823.s1.tag = STRUCTURE_TYPE24753; t21823.s1.value.structure_type24753 = &t21824; /* x189155 */ t21822.s1.tag = STRUCTURE_TYPE24753; t21822.s1.value.structure_type24753 = &t21823; /* x189156 */ t21821.s0.tag = STRUCTURE_TYPE24753; t21821.s0.value.structure_type24753 = &t21822; /* x189157 */ t21821.s1.tag = NULL_TYPE; /* x189158 */ t21820.s1.tag = STRUCTURE_TYPE24753; t21820.s1.value.structure_type24753 = &t21821; /* x189159 */ t21819.s0.tag = STRUCTURE_TYPE24753; t21819.s0.value.structure_type24753 = &t21820; /* x189160 */ t21830.s0.tag = EXTERNAL_SYMBOL_TYPE; t21830.s0.value.external_symbol_type = q239; /* x189161 */ t21832.s0.tag = EXTERNAL_SYMBOL_TYPE; t21832.s0.value.external_symbol_type = q170; /* x189162 */ t21833.s0.tag = EXTERNAL_SYMBOL_TYPE; t21833.s0.value.external_symbol_type = q409; /* x189163 */ t21834.s0.tag = EXTERNAL_SYMBOL_TYPE; t21834.s0.value.external_symbol_type = q337; /* x189164 */ t21836.s0.tag = EXTERNAL_SYMBOL_TYPE; t21836.s0.value.external_symbol_type = q169; /* x189165 */ t21838.s0.tag = EXTERNAL_SYMBOL_TYPE; t21838.s0.value.external_symbol_type = q107; /* x189166 */ t21839.s0.tag = EXTERNAL_SYMBOL_TYPE; t21839.s0.value.external_symbol_type = q411; /* x189167 */ t21839.s1.tag = NULL_TYPE; /* x189168 */ t21838.s1.tag = STRUCTURE_TYPE24753; t21838.s1.value.structure_type24753 = &t21839; /* x189169 */ t21837.s0.tag = STRUCTURE_TYPE24753; t21837.s0.value.structure_type24753 = &t21838; /* x189170 */ t21840.s0.tag = EXTERNAL_SYMBOL_TYPE; t21840.s0.value.external_symbol_type = q330; /* x189171 */ t21840.s1.tag = NULL_TYPE; /* x189172 */ t21837.s1.tag = STRUCTURE_TYPE24753; t21837.s1.value.structure_type24753 = &t21840; /* x189173 */ t21836.s1.tag = STRUCTURE_TYPE24753; t21836.s1.value.structure_type24753 = &t21837; /* x189174 */ t21835.s0.tag = STRUCTURE_TYPE24753; t21835.s0.value.structure_type24753 = &t21836; /* x189175 */ t21835.s1.tag = NULL_TYPE; /* x189176 */ t21834.s1.tag = STRUCTURE_TYPE24753; t21834.s1.value.structure_type24753 = &t21835; /* x189177 */ t21833.s1.tag = STRUCTURE_TYPE24753; t21833.s1.value.structure_type24753 = &t21834; /* x189178 */ t21832.s1.tag = STRUCTURE_TYPE24753; t21832.s1.value.structure_type24753 = &t21833; /* x189179 */ t21831.s0.tag = STRUCTURE_TYPE24753; t21831.s0.value.structure_type24753 = &t21832; /* x189180 */ t21842.s0.tag = EXTERNAL_SYMBOL_TYPE; t21842.s0.value.external_symbol_type = q42; /* x189181 */ t21843.s0.tag = EXTERNAL_SYMBOL_TYPE; t21843.s0.value.external_symbol_type = q337; /* x189182 */ t21845.s0.tag = EXTERNAL_SYMBOL_TYPE; t21845.s0.value.external_symbol_type = q4; /* x189183 */ t21846.s0.tag = EXTERNAL_SYMBOL_TYPE; t21846.s0.value.external_symbol_type = q337; /* x189184 */ t21847.s0.tag = FIXNUM_TYPE; t21847.s0.value.fixnum_type = 1; /* x189185 */ t21847.s1.tag = NULL_TYPE; /* x189186 */ t21846.s1.tag = STRUCTURE_TYPE24753; t21846.s1.value.structure_type24753 = &t21847; /* x189187 */ t21845.s1.tag = STRUCTURE_TYPE24753; t21845.s1.value.structure_type24753 = &t21846; /* x189188 */ t21844.s0.tag = STRUCTURE_TYPE24753; t21844.s0.value.structure_type24753 = &t21845; /* x189189 */ t21844.s1.tag = NULL_TYPE; /* x189190 */ t21843.s1.tag = STRUCTURE_TYPE24753; t21843.s1.value.structure_type24753 = &t21844; /* x189191 */ t21842.s1.tag = STRUCTURE_TYPE24753; t21842.s1.value.structure_type24753 = &t21843; /* x189192 */ t21841.s0.tag = STRUCTURE_TYPE24753; t21841.s0.value.structure_type24753 = &t21842; /* x189193 */ t21849.s0.tag = EXTERNAL_SYMBOL_TYPE; t21849.s0.value.external_symbol_type = q287; /* x189194 */ t21851.s0.tag = EXTERNAL_SYMBOL_TYPE; t21851.s0.value.external_symbol_type = q4; /* x189195 */ t21852.s0.tag = EXTERNAL_SYMBOL_TYPE; t21852.s0.value.external_symbol_type = q330; /* x189196 */ t21853.s0.tag = FIXNUM_TYPE; t21853.s0.value.fixnum_type = 1; /* x189197 */ t21853.s1.tag = NULL_TYPE; /* x189198 */ t21852.s1.tag = STRUCTURE_TYPE24753; t21852.s1.value.structure_type24753 = &t21853; /* x189199 */ t21851.s1.tag = STRUCTURE_TYPE24753; t21851.s1.value.structure_type24753 = &t21852; /* x189200 */ t21850.s0.tag = STRUCTURE_TYPE24753; t21850.s0.value.structure_type24753 = &t21851; /* x189201 */ t21850.s1.tag = NULL_TYPE; /* x189202 */ t21849.s1.tag = STRUCTURE_TYPE24753; t21849.s1.value.structure_type24753 = &t21850; /* x189203 */ t21848.s0.tag = STRUCTURE_TYPE24753; t21848.s0.value.structure_type24753 = &t21849; /* x189204 */ t21848.s1.tag = NULL_TYPE; /* x189205 */ t21841.s1.tag = STRUCTURE_TYPE24753; t21841.s1.value.structure_type24753 = &t21848; /* x189206 */ t21831.s1.tag = STRUCTURE_TYPE24753; t21831.s1.value.structure_type24753 = &t21841; /* x189207 */ t21830.s1.tag = STRUCTURE_TYPE24753; t21830.s1.value.structure_type24753 = &t21831; /* x189208 */ t21829.s0.tag = STRUCTURE_TYPE24753; t21829.s0.value.structure_type24753 = &t21830; /* x189209 */ t21829.s1.tag = NULL_TYPE; /* x189210 */ t21819.s1.tag = STRUCTURE_TYPE24753; t21819.s1.value.structure_type24753 = &t21829; /* x189211 */ t21818.s1.tag = STRUCTURE_TYPE24753; t21818.s1.value.structure_type24753 = &t21819; /* x189212 */ t21817.s0.tag = STRUCTURE_TYPE24753; t21817.s0.value.structure_type24753 = &t21818; /* x189213 */ t21817.s1.tag = NULL_TYPE; /* x189214 */ t21813.s1.tag = STRUCTURE_TYPE24753; t21813.s1.value.structure_type24753 = &t21817; /* x189215 */ t21812.s1.tag = STRUCTURE_TYPE24753; t21812.s1.value.structure_type24753 = &t21813; /* x189216 */ t21811.s1.tag = STRUCTURE_TYPE24753; t21811.s1.value.structure_type24753 = &t21812; /* x189217 */ t21810.s0.tag = STRUCTURE_TYPE24753; t21810.s0.value.structure_type24753 = &t21811; /* x189218 */ t21855.s0.tag = EXTERNAL_SYMBOL_TYPE; t21855.s0.value.external_symbol_type = q287; /* x189219 */ t21857.s0.tag = EXTERNAL_SYMBOL_TYPE; t21857.s0.value.external_symbol_type = q108; /* x189220 */ t21858.s0.tag = EXTERNAL_SYMBOL_TYPE; t21858.s0.value.external_symbol_type = q411; /* x189221 */ t21858.s1.tag = NULL_TYPE; /* x189222 */ t21857.s1.tag = STRUCTURE_TYPE24753; t21857.s1.value.structure_type24753 = &t21858; /* x189223 */ t21856.s0.tag = STRUCTURE_TYPE24753; t21856.s0.value.structure_type24753 = &t21857; /* x189224 */ t21856.s1.tag = NULL_TYPE; /* x189225 */ t21855.s1.tag = STRUCTURE_TYPE24753; t21855.s1.value.structure_type24753 = &t21856; /* x189226 */ t21854.s0.tag = STRUCTURE_TYPE24753; t21854.s0.value.structure_type24753 = &t21855; /* x189227 */ t21854.s1.tag = NULL_TYPE; /* x189228 */ t21810.s1.tag = STRUCTURE_TYPE24753; t21810.s1.value.structure_type24753 = &t21854; /* x189229 */ t21809.s1.tag = STRUCTURE_TYPE24753; t21809.s1.value.structure_type24753 = &t21810; /* x189230 */ t21808.s0.tag = STRUCTURE_TYPE24753; t21808.s0.value.structure_type24753 = &t21809; /* x189231 */ t21808.s1.tag = NULL_TYPE; /* x189232 */ t21803.s1.tag = STRUCTURE_TYPE24753; t21803.s1.value.structure_type24753 = &t21808; /* x189233 */ t21802.s1.tag = STRUCTURE_TYPE24753; t21802.s1.value.structure_type24753 = &t21803; /* x189234 */ t21801.s0.tag = STRUCTURE_TYPE24753; t21801.s0.value.structure_type24753 = &t21802; /* x189235 */ t21801.s1.tag = NULL_TYPE; /* x189236 */ t21797.s1.tag = STRUCTURE_TYPE24753; t21797.s1.value.structure_type24753 = &t21801; /* x189237 */ t21796.s1.tag = STRUCTURE_TYPE24753; t21796.s1.value.structure_type24753 = &t21797; /* x189238 */ t21795.s1.tag = STRUCTURE_TYPE24753; t21795.s1.value.structure_type24753 = &t21796; /* x189239 */ t21794.s0.tag = STRUCTURE_TYPE24753; t21794.s0.value.structure_type24753 = &t21795; /* x189240 */ t21859.s0.tag = EXTERNAL_SYMBOL_TYPE; t21859.s0.value.external_symbol_type = q409; /* x189241 */ t21859.s1.tag = NULL_TYPE; /* x189242 */ t21794.s1.tag = STRUCTURE_TYPE24753; t21794.s1.value.structure_type24753 = &t21859; /* x189243 */ t21757.s1.tag = STRUCTURE_TYPE24753; t21757.s1.value.structure_type24753 = &t21794; /* x189244 */ t21756.s1.tag = STRUCTURE_TYPE24753; t21756.s1.value.structure_type24753 = &t21757; /* x189245 */ t21755.s0.tag = STRUCTURE_TYPE24753; t21755.s0.value.structure_type24753 = &t21756; /* x189246 */ t21755.s1.tag = NULL_TYPE; /* x189247 */ t21731.s1.tag = STRUCTURE_TYPE24753; t21731.s1.value.structure_type24753 = &t21755; /* x189248 */ t21730.s0.tag = STRUCTURE_TYPE24753; t21730.s0.value.structure_type24753 = &t21731; /* x189249 */ t21861.s0.tag = EXTERNAL_SYMBOL_TYPE; t21861.s0.value.external_symbol_type = q95; /* x189250 */ t21863.s0.tag = EXTERNAL_SYMBOL_TYPE; t21863.s0.value.external_symbol_type = q179; /* x189251 */ t21864.s0.tag = STRING_TYPE; t21864.s0.value.string_type = "Arguments to APPEND are not all lists, strings, or vectors"; /* x189252 */ t21864.s1.tag = NULL_TYPE; /* x189253 */ t21863.s1.tag = STRUCTURE_TYPE24753; t21863.s1.value.structure_type24753 = &t21864; /* x189254 */ t21862.s0.tag = STRUCTURE_TYPE24753; t21862.s0.value.structure_type24753 = &t21863; /* x189255 */ t21862.s1.tag = NULL_TYPE; /* x189256 */ t21861.s1.tag = STRUCTURE_TYPE24753; t21861.s1.value.structure_type24753 = &t21862; /* x189257 */ t21860.s0.tag = STRUCTURE_TYPE24753; t21860.s0.value.structure_type24753 = &t21861; /* x189258 */ t21860.s1.tag = NULL_TYPE; /* x189259 */ t21730.s1.tag = STRUCTURE_TYPE24753; t21730.s1.value.structure_type24753 = &t21860; /* x189260 */ t21596.s1.tag = STRUCTURE_TYPE24753; t21596.s1.value.structure_type24753 = &t21730; /* x189261 */ t21494.s1.tag = STRUCTURE_TYPE24753; t21494.s1.value.structure_type24753 = &t21596; /* x189262 */ t21487.s1.tag = STRUCTURE_TYPE24753; t21487.s1.value.structure_type24753 = &t21494; /* x189263 */ t21486.s1.tag = STRUCTURE_TYPE24753; t21486.s1.value.structure_type24753 = &t21487; /* x189264 */ t21485.s0.tag = STRUCTURE_TYPE24753; t21485.s0.value.structure_type24753 = &t21486; /* x189265 */ t21485.s1.tag = NULL_TYPE; /* x189266 */ t21483.s1.tag = STRUCTURE_TYPE24753; t21483.s1.value.structure_type24753 = &t21485; /* x189267 */ t21482.s1.tag = STRUCTURE_TYPE24753; t21482.s1.value.structure_type24753 = &t21483; /* x189270 */ t21869.s0.tag = EXTERNAL_SYMBOL_TYPE; t21869.s0.value.external_symbol_type = q97; /* x189271 */ t21871.s0.tag = EXTERNAL_SYMBOL_TYPE; t21871.s0.value.external_symbol_type = q284; /* x189272 */ t21872.s0.tag = EXTERNAL_SYMBOL_TYPE; t21872.s0.value.external_symbol_type = q1; /* x189273 */ t21872.s1.tag = NULL_TYPE; /* x189274 */ t21871.s1.tag = STRUCTURE_TYPE24753; t21871.s1.value.structure_type24753 = &t21872; /* x189275 */ t21870.s0.tag = STRUCTURE_TYPE24753; t21870.s0.value.structure_type24753 = &t21871; /* x189276 */ t21874.s0.tag = EXTERNAL_SYMBOL_TYPE; t21874.s0.value.external_symbol_type = q242; /* x189277 */ t21875.s0.tag = EXTERNAL_SYMBOL_TYPE; t21875.s0.value.external_symbol_type = q287; /* x189278 */ t21878.s0.tag = EXTERNAL_SYMBOL_TYPE; t21878.s0.value.external_symbol_type = q1; /* x189279 */ t21879.s0.tag = EXTERNAL_SYMBOL_TYPE; t21879.s0.value.external_symbol_type = q1; /* x189280 */ t21879.s1.tag = NULL_TYPE; /* x189281 */ t21878.s1.tag = STRUCTURE_TYPE24753; t21878.s1.value.structure_type24753 = &t21879; /* x189282 */ t21877.s0.tag = STRUCTURE_TYPE24753; t21877.s0.value.structure_type24753 = &t21878; /* x189283 */ t21881.s0.tag = EXTERNAL_SYMBOL_TYPE; t21881.s0.value.external_symbol_type = q409; /* x189284 */ t21883.s0.tag = EXTERNAL_SYMBOL_TYPE; t21883.s0.value.external_symbol_type = q11; /* x189285 */ t21884.s0.tag = NULL_TYPE; /* x189286 */ t21884.s1.tag = NULL_TYPE; /* x189287 */ t21883.s1.tag = STRUCTURE_TYPE24753; t21883.s1.value.structure_type24753 = &t21884; /* x189288 */ t21882.s0.tag = STRUCTURE_TYPE24753; t21882.s0.value.structure_type24753 = &t21883; /* x189289 */ t21882.s1.tag = NULL_TYPE; /* x189290 */ t21881.s1.tag = STRUCTURE_TYPE24753; t21881.s1.value.structure_type24753 = &t21882; /* x189291 */ t21880.s0.tag = STRUCTURE_TYPE24753; t21880.s0.value.structure_type24753 = &t21881; /* x189292 */ t21880.s1.tag = NULL_TYPE; /* x189293 */ t21877.s1.tag = STRUCTURE_TYPE24753; t21877.s1.value.structure_type24753 = &t21880; /* x189294 */ t21876.s0.tag = STRUCTURE_TYPE24753; t21876.s0.value.structure_type24753 = &t21877; /* x189295 */ t21886.s0.tag = EXTERNAL_SYMBOL_TYPE; t21886.s0.value.external_symbol_type = q43; /* x189296 */ t21888.s0.tag = EXTERNAL_SYMBOL_TYPE; t21888.s0.value.external_symbol_type = q111; /* x189297 */ t21889.s0.tag = EXTERNAL_SYMBOL_TYPE; t21889.s0.value.external_symbol_type = q1; /* x189298 */ t21889.s1.tag = NULL_TYPE; /* x189299 */ t21888.s1.tag = STRUCTURE_TYPE24753; t21888.s1.value.structure_type24753 = &t21889; /* x189300 */ t21887.s0.tag = STRUCTURE_TYPE24753; t21887.s0.value.structure_type24753 = &t21888; /* x189301 */ t21890.s0.tag = EXTERNAL_SYMBOL_TYPE; t21890.s0.value.external_symbol_type = q409; /* x189302 */ t21892.s0.tag = EXTERNAL_SYMBOL_TYPE; t21892.s0.value.external_symbol_type = q287; /* x189303 */ t21894.s0.tag = EXTERNAL_SYMBOL_TYPE; t21894.s0.value.external_symbol_type = q108; /* x189304 */ t21895.s0.tag = EXTERNAL_SYMBOL_TYPE; t21895.s0.value.external_symbol_type = q1; /* x189305 */ t21895.s1.tag = NULL_TYPE; /* x189306 */ t21894.s1.tag = STRUCTURE_TYPE24753; t21894.s1.value.structure_type24753 = &t21895; /* x189307 */ t21893.s0.tag = STRUCTURE_TYPE24753; t21893.s0.value.structure_type24753 = &t21894; /* x189308 */ t21897.s0.tag = EXTERNAL_SYMBOL_TYPE; t21897.s0.value.external_symbol_type = q106; /* x189309 */ t21899.s0.tag = EXTERNAL_SYMBOL_TYPE; t21899.s0.value.external_symbol_type = q107; /* x189310 */ t21900.s0.tag = EXTERNAL_SYMBOL_TYPE; t21900.s0.value.external_symbol_type = q1; /* x189311 */ t21900.s1.tag = NULL_TYPE; /* x189312 */ t21899.s1.tag = STRUCTURE_TYPE24753; t21899.s1.value.structure_type24753 = &t21900; /* x189313 */ t21898.s0.tag = STRUCTURE_TYPE24753; t21898.s0.value.structure_type24753 = &t21899; /* x189314 */ t21901.s0.tag = EXTERNAL_SYMBOL_TYPE; t21901.s0.value.external_symbol_type = q409; /* x189315 */ t21901.s1.tag = NULL_TYPE; /* x189316 */ t21898.s1.tag = STRUCTURE_TYPE24753; t21898.s1.value.structure_type24753 = &t21901; /* x189317 */ t21897.s1.tag = STRUCTURE_TYPE24753; t21897.s1.value.structure_type24753 = &t21898; /* x189318 */ t21896.s0.tag = STRUCTURE_TYPE24753; t21896.s0.value.structure_type24753 = &t21897; /* x189319 */ t21896.s1.tag = NULL_TYPE; /* x189320 */ t21893.s1.tag = STRUCTURE_TYPE24753; t21893.s1.value.structure_type24753 = &t21896; /* x189321 */ t21892.s1.tag = STRUCTURE_TYPE24753; t21892.s1.value.structure_type24753 = &t21893; /* x189322 */ t21891.s0.tag = STRUCTURE_TYPE24753; t21891.s0.value.structure_type24753 = &t21892; /* x189323 */ t21891.s1.tag = NULL_TYPE; /* x189324 */ t21890.s1.tag = STRUCTURE_TYPE24753; t21890.s1.value.structure_type24753 = &t21891; /* x189325 */ t21887.s1.tag = STRUCTURE_TYPE24753; t21887.s1.value.structure_type24753 = &t21890; /* x189326 */ t21886.s1.tag = STRUCTURE_TYPE24753; t21886.s1.value.structure_type24753 = &t21887; /* x189327 */ t21885.s0.tag = STRUCTURE_TYPE24753; t21885.s0.value.structure_type24753 = &t21886; /* x189328 */ t21885.s1.tag = NULL_TYPE; /* x189329 */ t21876.s1.tag = STRUCTURE_TYPE24753; t21876.s1.value.structure_type24753 = &t21885; /* x189330 */ t21875.s1.tag = STRUCTURE_TYPE24753; t21875.s1.value.structure_type24753 = &t21876; /* x189331 */ t21874.s1.tag = STRUCTURE_TYPE24753; t21874.s1.value.structure_type24753 = &t21875; /* x189332 */ t21873.s0.tag = STRUCTURE_TYPE24753; t21873.s0.value.structure_type24753 = &t21874; /* x189333 */ t21873.s1.tag = NULL_TYPE; /* x189334 */ t21870.s1.tag = STRUCTURE_TYPE24753; t21870.s1.value.structure_type24753 = &t21873; /* x189335 */ t21869.s1.tag = STRUCTURE_TYPE24753; t21869.s1.value.structure_type24753 = &t21870; /* x189338 */ t21906.s0.tag = EXTERNAL_SYMBOL_TYPE; t21906.s0.value.external_symbol_type = q97; /* x189339 */ t21908.s0.tag = EXTERNAL_SYMBOL_TYPE; t21908.s0.value.external_symbol_type = q412; /* x189340 */ t21909.s0.tag = EXTERNAL_SYMBOL_TYPE; t21909.s0.value.external_symbol_type = q281; /* x189341 */ t21909.s1.tag = NULL_TYPE; /* x189342 */ t21908.s1.tag = STRUCTURE_TYPE24753; t21908.s1.value.structure_type24753 = &t21909; /* x189343 */ t21907.s0.tag = STRUCTURE_TYPE24753; t21907.s0.value.structure_type24753 = &t21908; /* x189344 */ t21911.s0.tag = EXTERNAL_SYMBOL_TYPE; t21911.s0.value.external_symbol_type = q240; /* x189345 */ t21914.s0.tag = EXTERNAL_SYMBOL_TYPE; t21914.s0.value.external_symbol_type = q111; /* x189346 */ t21915.s0.tag = EXTERNAL_SYMBOL_TYPE; t21915.s0.value.external_symbol_type = q281; /* x189347 */ t21915.s1.tag = NULL_TYPE; /* x189348 */ t21914.s1.tag = STRUCTURE_TYPE24753; t21914.s1.value.structure_type24753 = &t21915; /* x189349 */ t21913.s0.tag = STRUCTURE_TYPE24753; t21913.s0.value.structure_type24753 = &t21914; /* x189350 */ t21917.s0.tag = EXTERNAL_SYMBOL_TYPE; t21917.s0.value.external_symbol_type = q11; /* x189351 */ t21918.s0.tag = NULL_TYPE; /* x189352 */ t21918.s1.tag = NULL_TYPE; /* x189353 */ t21917.s1.tag = STRUCTURE_TYPE24753; t21917.s1.value.structure_type24753 = &t21918; /* x189354 */ t21916.s0.tag = STRUCTURE_TYPE24753; t21916.s0.value.structure_type24753 = &t21917; /* x189355 */ t21916.s1.tag = NULL_TYPE; /* x189356 */ t21913.s1.tag = STRUCTURE_TYPE24753; t21913.s1.value.structure_type24753 = &t21916; /* x189357 */ t21912.s0.tag = STRUCTURE_TYPE24753; t21912.s0.value.structure_type24753 = &t21913; /* x189358 */ t21921.s0.tag = EXTERNAL_SYMBOL_TYPE; t21921.s0.value.external_symbol_type = q105; /* x189359 */ t21922.s0.tag = EXTERNAL_SYMBOL_TYPE; t21922.s0.value.external_symbol_type = q281; /* x189360 */ t21922.s1.tag = NULL_TYPE; /* x189361 */ t21921.s1.tag = STRUCTURE_TYPE24753; t21921.s1.value.structure_type24753 = &t21922; /* x189362 */ t21920.s0.tag = STRUCTURE_TYPE24753; t21920.s0.value.structure_type24753 = &t21921; /* x189363 */ t21924.s0.tag = EXTERNAL_SYMBOL_TYPE; t21924.s0.value.external_symbol_type = q284; /* x189364 */ t21925.s0.tag = EXTERNAL_SYMBOL_TYPE; t21925.s0.value.external_symbol_type = q281; /* x189365 */ t21925.s1.tag = NULL_TYPE; /* x189366 */ t21924.s1.tag = STRUCTURE_TYPE24753; t21924.s1.value.structure_type24753 = &t21925; /* x189367 */ t21923.s0.tag = STRUCTURE_TYPE24753; t21923.s0.value.structure_type24753 = &t21924; /* x189368 */ t21923.s1.tag = NULL_TYPE; /* x189369 */ t21920.s1.tag = STRUCTURE_TYPE24753; t21920.s1.value.structure_type24753 = &t21923; /* x189370 */ t21919.s0.tag = STRUCTURE_TYPE24753; t21919.s0.value.structure_type24753 = &t21920; /* x189371 */ t21928.s0.tag = EXTERNAL_SYMBOL_TYPE; t21928.s0.value.external_symbol_type = q159; /* x189372 */ t21929.s0.tag = EXTERNAL_SYMBOL_TYPE; t21929.s0.value.external_symbol_type = q281; /* x189373 */ t21929.s1.tag = NULL_TYPE; /* x189374 */ t21928.s1.tag = STRUCTURE_TYPE24753; t21928.s1.value.structure_type24753 = &t21929; /* x189375 */ t21927.s0.tag = STRUCTURE_TYPE24753; t21927.s0.value.structure_type24753 = &t21928; /* x189376 */ t21931.s0.tag = EXTERNAL_SYMBOL_TYPE; t21931.s0.value.external_symbol_type = q413; /* x189377 */ t21932.s0.tag = EXTERNAL_SYMBOL_TYPE; t21932.s0.value.external_symbol_type = q281; /* x189378 */ t21932.s1.tag = NULL_TYPE; /* x189379 */ t21931.s1.tag = STRUCTURE_TYPE24753; t21931.s1.value.structure_type24753 = &t21932; /* x189380 */ t21930.s0.tag = STRUCTURE_TYPE24753; t21930.s0.value.structure_type24753 = &t21931; /* x189381 */ t21930.s1.tag = NULL_TYPE; /* x189382 */ t21927.s1.tag = STRUCTURE_TYPE24753; t21927.s1.value.structure_type24753 = &t21930; /* x189383 */ t21926.s0.tag = STRUCTURE_TYPE24753; t21926.s0.value.structure_type24753 = &t21927; /* x189384 */ t21935.s0.tag = EXTERNAL_SYMBOL_TYPE; t21935.s0.value.external_symbol_type = q165; /* x189385 */ t21936.s0.tag = EXTERNAL_SYMBOL_TYPE; t21936.s0.value.external_symbol_type = q281; /* x189386 */ t21936.s1.tag = NULL_TYPE; /* x189387 */ t21935.s1.tag = STRUCTURE_TYPE24753; t21935.s1.value.structure_type24753 = &t21936; /* x189388 */ t21934.s0.tag = STRUCTURE_TYPE24753; t21934.s0.value.structure_type24753 = &t21935; /* x189389 */ t21938.s0.tag = EXTERNAL_SYMBOL_TYPE; t21938.s0.value.external_symbol_type = q414; /* x189390 */ t21939.s0.tag = EXTERNAL_SYMBOL_TYPE; t21939.s0.value.external_symbol_type = q281; /* x189391 */ t21939.s1.tag = NULL_TYPE; /* x189392 */ t21938.s1.tag = STRUCTURE_TYPE24753; t21938.s1.value.structure_type24753 = &t21939; /* x189393 */ t21937.s0.tag = STRUCTURE_TYPE24753; t21937.s0.value.structure_type24753 = &t21938; /* x189394 */ t21937.s1.tag = NULL_TYPE; /* x189395 */ t21934.s1.tag = STRUCTURE_TYPE24753; t21934.s1.value.structure_type24753 = &t21937; /* x189396 */ t21933.s0.tag = STRUCTURE_TYPE24753; t21933.s0.value.structure_type24753 = &t21934; /* x189397 */ t21941.s0.tag = EXTERNAL_SYMBOL_TYPE; t21941.s0.value.external_symbol_type = q95; /* x189398 */ t21943.s0.tag = EXTERNAL_SYMBOL_TYPE; t21943.s0.value.external_symbol_type = q179; /* x189399 */ t21944.s0.tag = STRING_TYPE; t21944.s0.value.string_type = "Argument to REVERSE is not a list, string, or vector"; /* x189400 */ t21944.s1.tag = NULL_TYPE; /* x189401 */ t21943.s1.tag = STRUCTURE_TYPE24753; t21943.s1.value.structure_type24753 = &t21944; /* x189402 */ t21942.s0.tag = STRUCTURE_TYPE24753; t21942.s0.value.structure_type24753 = &t21943; /* x189403 */ t21942.s1.tag = NULL_TYPE; /* x189404 */ t21941.s1.tag = STRUCTURE_TYPE24753; t21941.s1.value.structure_type24753 = &t21942; /* x189405 */ t21940.s0.tag = STRUCTURE_TYPE24753; t21940.s0.value.structure_type24753 = &t21941; /* x189406 */ t21940.s1.tag = NULL_TYPE; /* x189407 */ t21933.s1.tag = STRUCTURE_TYPE24753; t21933.s1.value.structure_type24753 = &t21940; /* x189408 */ t21926.s1.tag = STRUCTURE_TYPE24753; t21926.s1.value.structure_type24753 = &t21933; /* x189409 */ t21919.s1.tag = STRUCTURE_TYPE24753; t21919.s1.value.structure_type24753 = &t21926; /* x189410 */ t21912.s1.tag = STRUCTURE_TYPE24753; t21912.s1.value.structure_type24753 = &t21919; /* x189411 */ t21911.s1.tag = STRUCTURE_TYPE24753; t21911.s1.value.structure_type24753 = &t21912; /* x189412 */ t21910.s0.tag = STRUCTURE_TYPE24753; t21910.s0.value.structure_type24753 = &t21911; /* x189413 */ t21910.s1.tag = NULL_TYPE; /* x189414 */ t21907.s1.tag = STRUCTURE_TYPE24753; t21907.s1.value.structure_type24753 = &t21910; /* x189415 */ t21906.s1.tag = STRUCTURE_TYPE24753; t21906.s1.value.structure_type24753 = &t21907; /* x189418 */ t21949.s0.tag = EXTERNAL_SYMBOL_TYPE; t21949.s0.value.external_symbol_type = q97; /* x189419 */ t21951.s0.tag = EXTERNAL_SYMBOL_TYPE; t21951.s0.value.external_symbol_type = q415; /* x189420 */ t21952.s0.tag = EXTERNAL_SYMBOL_TYPE; t21952.s0.value.external_symbol_type = q1; /* x189421 */ t21953.s0.tag = EXTERNAL_SYMBOL_TYPE; t21953.s0.value.external_symbol_type = q337; /* x189422 */ t21953.s1.tag = NULL_TYPE; /* x189423 */ t21952.s1.tag = STRUCTURE_TYPE24753; t21952.s1.value.structure_type24753 = &t21953; /* x189424 */ t21951.s1.tag = STRUCTURE_TYPE24753; t21951.s1.value.structure_type24753 = &t21952; /* x189425 */ t21950.s0.tag = STRUCTURE_TYPE24753; t21950.s0.value.structure_type24753 = &t21951; /* x189426 */ t21955.s0.tag = EXTERNAL_SYMBOL_TYPE; t21955.s0.value.external_symbol_type = q43; /* x189427 */ t21957.s0.tag = EXTERNAL_SYMBOL_TYPE; t21957.s0.value.external_symbol_type = q125; /* x189428 */ t21958.s0.tag = EXTERNAL_SYMBOL_TYPE; t21958.s0.value.external_symbol_type = q337; /* x189429 */ t21958.s1.tag = NULL_TYPE; /* x189430 */ t21957.s1.tag = STRUCTURE_TYPE24753; t21957.s1.value.structure_type24753 = &t21958; /* x189431 */ t21956.s0.tag = STRUCTURE_TYPE24753; t21956.s0.value.structure_type24753 = &t21957; /* x189432 */ t21959.s0.tag = EXTERNAL_SYMBOL_TYPE; t21959.s0.value.external_symbol_type = q1; /* x189433 */ t21961.s0.tag = EXTERNAL_SYMBOL_TYPE; t21961.s0.value.external_symbol_type = q415; /* x189434 */ t21963.s0.tag = EXTERNAL_SYMBOL_TYPE; t21963.s0.value.external_symbol_type = q108; /* x189435 */ t21964.s0.tag = EXTERNAL_SYMBOL_TYPE; t21964.s0.value.external_symbol_type = q1; /* x189436 */ t21964.s1.tag = NULL_TYPE; /* x189437 */ t21963.s1.tag = STRUCTURE_TYPE24753; t21963.s1.value.structure_type24753 = &t21964; /* x189438 */ t21962.s0.tag = STRUCTURE_TYPE24753; t21962.s0.value.structure_type24753 = &t21963; /* x189439 */ t21966.s0.tag = EXTERNAL_SYMBOL_TYPE; t21966.s0.value.external_symbol_type = q2; /* x189440 */ t21967.s0.tag = EXTERNAL_SYMBOL_TYPE; t21967.s0.value.external_symbol_type = q337; /* x189441 */ t21968.s0.tag = FIXNUM_TYPE; t21968.s0.value.fixnum_type = 1; /* x189442 */ t21968.s1.tag = NULL_TYPE; /* x189443 */ t21967.s1.tag = STRUCTURE_TYPE24753; t21967.s1.value.structure_type24753 = &t21968; /* x189444 */ t21966.s1.tag = STRUCTURE_TYPE24753; t21966.s1.value.structure_type24753 = &t21967; /* x189445 */ t21965.s0.tag = STRUCTURE_TYPE24753; t21965.s0.value.structure_type24753 = &t21966; /* x189446 */ t21965.s1.tag = NULL_TYPE; /* x189447 */ t21962.s1.tag = STRUCTURE_TYPE24753; t21962.s1.value.structure_type24753 = &t21965; /* x189448 */ t21961.s1.tag = STRUCTURE_TYPE24753; t21961.s1.value.structure_type24753 = &t21962; /* x189449 */ t21960.s0.tag = STRUCTURE_TYPE24753; t21960.s0.value.structure_type24753 = &t21961; /* x189450 */ t21960.s1.tag = NULL_TYPE; /* x189451 */ t21959.s1.tag = STRUCTURE_TYPE24753; t21959.s1.value.structure_type24753 = &t21960; /* x189452 */ t21956.s1.tag = STRUCTURE_TYPE24753; t21956.s1.value.structure_type24753 = &t21959; /* x189453 */ t21955.s1.tag = STRUCTURE_TYPE24753; t21955.s1.value.structure_type24753 = &t21956; /* x189454 */ t21954.s0.tag = STRUCTURE_TYPE24753; t21954.s0.value.structure_type24753 = &t21955; /* x189455 */ t21954.s1.tag = NULL_TYPE; /* x189456 */ t21950.s1.tag = STRUCTURE_TYPE24753; t21950.s1.value.structure_type24753 = &t21954; /* x189457 */ t21949.s1.tag = STRUCTURE_TYPE24753; t21949.s1.value.structure_type24753 = &t21950; /* x189460 */ t21973.s0.tag = EXTERNAL_SYMBOL_TYPE; t21973.s0.value.external_symbol_type = q97; /* x189461 */ t21975.s0.tag = EXTERNAL_SYMBOL_TYPE; t21975.s0.value.external_symbol_type = q416; /* x189462 */ t21976.s0.tag = EXTERNAL_SYMBOL_TYPE; t21976.s0.value.external_symbol_type = q1; /* x189463 */ t21977.s0.tag = EXTERNAL_SYMBOL_TYPE; t21977.s0.value.external_symbol_type = q337; /* x189464 */ t21977.s1.tag = NULL_TYPE; /* x189465 */ t21976.s1.tag = STRUCTURE_TYPE24753; t21976.s1.value.structure_type24753 = &t21977; /* x189466 */ t21975.s1.tag = STRUCTURE_TYPE24753; t21975.s1.value.structure_type24753 = &t21976; /* x189467 */ t21974.s0.tag = STRUCTURE_TYPE24753; t21974.s0.value.structure_type24753 = &t21975; /* x189468 */ t21979.s0.tag = EXTERNAL_SYMBOL_TYPE; t21979.s0.value.external_symbol_type = q242; /* x189469 */ t21980.s0.tag = EXTERNAL_SYMBOL_TYPE; t21980.s0.value.external_symbol_type = q287; /* x189470 */ t21981.s0.tag = NULL_TYPE; /* x189471 */ t21983.s0.tag = EXTERNAL_SYMBOL_TYPE; t21983.s0.value.external_symbol_type = q240; /* x189472 */ t21986.s0.tag = EXTERNAL_SYMBOL_TYPE; t21986.s0.value.external_symbol_type = q125; /* x189473 */ t21987.s0.tag = EXTERNAL_SYMBOL_TYPE; t21987.s0.value.external_symbol_type = q337; /* x189474 */ t21987.s1.tag = NULL_TYPE; /* x189475 */ t21986.s1.tag = STRUCTURE_TYPE24753; t21986.s1.value.structure_type24753 = &t21987; /* x189476 */ t21985.s0.tag = STRUCTURE_TYPE24753; t21985.s0.value.structure_type24753 = &t21986; /* x189477 */ t21989.s0.tag = EXTERNAL_SYMBOL_TYPE; t21989.s0.value.external_symbol_type = q107; /* x189478 */ t21990.s0.tag = EXTERNAL_SYMBOL_TYPE; t21990.s0.value.external_symbol_type = q1; /* x189479 */ t21990.s1.tag = NULL_TYPE; /* x189480 */ t21989.s1.tag = STRUCTURE_TYPE24753; t21989.s1.value.structure_type24753 = &t21990; /* x189481 */ t21988.s0.tag = STRUCTURE_TYPE24753; t21988.s0.value.structure_type24753 = &t21989; /* x189482 */ t21988.s1.tag = NULL_TYPE; /* x189483 */ t21985.s1.tag = STRUCTURE_TYPE24753; t21985.s1.value.structure_type24753 = &t21988; /* x189484 */ t21984.s0.tag = STRUCTURE_TYPE24753; t21984.s0.value.structure_type24753 = &t21985; /* x189485 */ t21992.s0.tag = EXTERNAL_SYMBOL_TYPE; t21992.s0.value.external_symbol_type = q95; /* x189486 */ t21994.s0.tag = EXTERNAL_SYMBOL_TYPE; t21994.s0.value.external_symbol_type = q42; /* x189487 */ t21995.s0.tag = EXTERNAL_SYMBOL_TYPE; t21995.s0.value.external_symbol_type = q1; /* x189488 */ t21997.s0.tag = EXTERNAL_SYMBOL_TYPE; t21997.s0.value.external_symbol_type = q108; /* x189489 */ t21998.s0.tag = EXTERNAL_SYMBOL_TYPE; t21998.s0.value.external_symbol_type = q1; /* x189490 */ t21998.s1.tag = NULL_TYPE; /* x189491 */ t21997.s1.tag = STRUCTURE_TYPE24753; t21997.s1.value.structure_type24753 = &t21998; /* x189492 */ t21996.s0.tag = STRUCTURE_TYPE24753; t21996.s0.value.structure_type24753 = &t21997;} void initialize_constants13(void) {/* x189493 */ t21996.s1.tag = NULL_TYPE; /* x189494 */ t21995.s1.tag = STRUCTURE_TYPE24753; t21995.s1.value.structure_type24753 = &t21996; /* x189495 */ t21994.s1.tag = STRUCTURE_TYPE24753; t21994.s1.value.structure_type24753 = &t21995; /* x189496 */ t21993.s0.tag = STRUCTURE_TYPE24753; t21993.s0.value.structure_type24753 = &t21994; /* x189497 */ t22000.s0.tag = EXTERNAL_SYMBOL_TYPE; t22000.s0.value.external_symbol_type = q42; /* x189498 */ t22001.s0.tag = EXTERNAL_SYMBOL_TYPE; t22001.s0.value.external_symbol_type = q337; /* x189499 */ t22003.s0.tag = EXTERNAL_SYMBOL_TYPE; t22003.s0.value.external_symbol_type = q2; /* x189500 */ t22004.s0.tag = EXTERNAL_SYMBOL_TYPE; t22004.s0.value.external_symbol_type = q337; /* x189501 */ t22005.s0.tag = FIXNUM_TYPE; t22005.s0.value.fixnum_type = 1; /* x189502 */ t22005.s1.tag = NULL_TYPE; /* x189503 */ t22004.s1.tag = STRUCTURE_TYPE24753; t22004.s1.value.structure_type24753 = &t22005; /* x189504 */ t22003.s1.tag = STRUCTURE_TYPE24753; t22003.s1.value.structure_type24753 = &t22004; /* x189505 */ t22002.s0.tag = STRUCTURE_TYPE24753; t22002.s0.value.structure_type24753 = &t22003; /* x189506 */ t22002.s1.tag = NULL_TYPE; /* x189507 */ t22001.s1.tag = STRUCTURE_TYPE24753; t22001.s1.value.structure_type24753 = &t22002; /* x189508 */ t22000.s1.tag = STRUCTURE_TYPE24753; t22000.s1.value.structure_type24753 = &t22001; /* x189509 */ t21999.s0.tag = STRUCTURE_TYPE24753; t21999.s0.value.structure_type24753 = &t22000; /* x189510 */ t22007.s0.tag = EXTERNAL_SYMBOL_TYPE; t22007.s0.value.external_symbol_type = q287; /* x189511 */ t22007.s1.tag = NULL_TYPE; /* x189512 */ t22006.s0.tag = STRUCTURE_TYPE24753; t22006.s0.value.structure_type24753 = &t22007; /* x189513 */ t22006.s1.tag = NULL_TYPE; /* x189514 */ t21999.s1.tag = STRUCTURE_TYPE24753; t21999.s1.value.structure_type24753 = &t22006; /* x189515 */ t21993.s1.tag = STRUCTURE_TYPE24753; t21993.s1.value.structure_type24753 = &t21999; /* x189516 */ t21992.s1.tag = STRUCTURE_TYPE24753; t21992.s1.value.structure_type24753 = &t21993; /* x189517 */ t21991.s0.tag = STRUCTURE_TYPE24753; t21991.s0.value.structure_type24753 = &t21992; /* x189518 */ t21991.s1.tag = NULL_TYPE; /* x189519 */ t21984.s1.tag = STRUCTURE_TYPE24753; t21984.s1.value.structure_type24753 = &t21991; /* x189520 */ t21983.s1.tag = STRUCTURE_TYPE24753; t21983.s1.value.structure_type24753 = &t21984; /* x189521 */ t21982.s0.tag = STRUCTURE_TYPE24753; t21982.s0.value.structure_type24753 = &t21983; /* x189522 */ t21982.s1.tag = NULL_TYPE; /* x189523 */ t21981.s1.tag = STRUCTURE_TYPE24753; t21981.s1.value.structure_type24753 = &t21982; /* x189524 */ t21980.s1.tag = STRUCTURE_TYPE24753; t21980.s1.value.structure_type24753 = &t21981; /* x189525 */ t21979.s1.tag = STRUCTURE_TYPE24753; t21979.s1.value.structure_type24753 = &t21980; /* x189526 */ t21978.s0.tag = STRUCTURE_TYPE24753; t21978.s0.value.structure_type24753 = &t21979; /* x189527 */ t21978.s1.tag = NULL_TYPE; /* x189528 */ t21974.s1.tag = STRUCTURE_TYPE24753; t21974.s1.value.structure_type24753 = &t21978; /* x189529 */ t21973.s1.tag = STRUCTURE_TYPE24753; t21973.s1.value.structure_type24753 = &t21974; /* x189532 */ t22012.s0.tag = EXTERNAL_SYMBOL_TYPE; t22012.s0.value.external_symbol_type = q97; /* x189533 */ t22014.s0.tag = EXTERNAL_SYMBOL_TYPE; t22014.s0.value.external_symbol_type = q417; /* x189534 */ t22015.s0.tag = EXTERNAL_SYMBOL_TYPE; t22015.s0.value.external_symbol_type = q281; /* x189535 */ t22016.s0.tag = EXTERNAL_SYMBOL_TYPE; t22016.s0.value.external_symbol_type = q337; /* x189536 */ t22016.s1.tag = NULL_TYPE; /* x189537 */ t22015.s1.tag = STRUCTURE_TYPE24753; t22015.s1.value.structure_type24753 = &t22016; /* x189538 */ t22014.s1.tag = STRUCTURE_TYPE24753; t22014.s1.value.structure_type24753 = &t22015; /* x189539 */ t22013.s0.tag = STRUCTURE_TYPE24753; t22013.s0.value.structure_type24753 = &t22014; /* x189540 */ t22018.s0.tag = EXTERNAL_SYMBOL_TYPE; t22018.s0.value.external_symbol_type = q240; /* x189541 */ t22021.s0.tag = EXTERNAL_SYMBOL_TYPE; t22021.s0.value.external_symbol_type = q105; /* x189542 */ t22022.s0.tag = EXTERNAL_SYMBOL_TYPE; t22022.s0.value.external_symbol_type = q281; /* x189543 */ t22022.s1.tag = NULL_TYPE; /* x189544 */ t22021.s1.tag = STRUCTURE_TYPE24753; t22021.s1.value.structure_type24753 = &t22022; /* x189545 */ t22020.s0.tag = STRUCTURE_TYPE24753; t22020.s0.value.structure_type24753 = &t22021; /* x189546 */ t22024.s0.tag = EXTERNAL_SYMBOL_TYPE; t22024.s0.value.external_symbol_type = q416; /* x189547 */ t22025.s0.tag = EXTERNAL_SYMBOL_TYPE; t22025.s0.value.external_symbol_type = q281; /* x189548 */ t22026.s0.tag = EXTERNAL_SYMBOL_TYPE; t22026.s0.value.external_symbol_type = q337; /* x189549 */ t22026.s1.tag = NULL_TYPE; /* x189550 */ t22025.s1.tag = STRUCTURE_TYPE24753; t22025.s1.value.structure_type24753 = &t22026; /* x189551 */ t22024.s1.tag = STRUCTURE_TYPE24753; t22024.s1.value.structure_type24753 = &t22025; /* x189552 */ t22023.s0.tag = STRUCTURE_TYPE24753; t22023.s0.value.structure_type24753 = &t22024; /* x189553 */ t22023.s1.tag = NULL_TYPE; /* x189554 */ t22020.s1.tag = STRUCTURE_TYPE24753; t22020.s1.value.structure_type24753 = &t22023; /* x189555 */ t22019.s0.tag = STRUCTURE_TYPE24753; t22019.s0.value.structure_type24753 = &t22020; /* x189556 */ t22029.s0.tag = EXTERNAL_SYMBOL_TYPE; t22029.s0.value.external_symbol_type = q159; /* x189557 */ t22030.s0.tag = EXTERNAL_SYMBOL_TYPE; t22030.s0.value.external_symbol_type = q281; /* x189558 */ t22030.s1.tag = NULL_TYPE; /* x189559 */ t22029.s1.tag = STRUCTURE_TYPE24753; t22029.s1.value.structure_type24753 = &t22030; /* x189560 */ t22028.s0.tag = STRUCTURE_TYPE24753; t22028.s0.value.structure_type24753 = &t22029; /* x189561 */ t22032.s0.tag = EXTERNAL_SYMBOL_TYPE; t22032.s0.value.external_symbol_type = q163; /* x189562 */ t22033.s0.tag = EXTERNAL_SYMBOL_TYPE; t22033.s0.value.external_symbol_type = q281; /* x189563 */ t22034.s0.tag = EXTERNAL_SYMBOL_TYPE; t22034.s0.value.external_symbol_type = q337; /* x189564 */ t22034.s1.tag = NULL_TYPE; /* x189565 */ t22033.s1.tag = STRUCTURE_TYPE24753; t22033.s1.value.structure_type24753 = &t22034; /* x189566 */ t22032.s1.tag = STRUCTURE_TYPE24753; t22032.s1.value.structure_type24753 = &t22033; /* x189567 */ t22031.s0.tag = STRUCTURE_TYPE24753; t22031.s0.value.structure_type24753 = &t22032; /* x189568 */ t22031.s1.tag = NULL_TYPE; /* x189569 */ t22028.s1.tag = STRUCTURE_TYPE24753; t22028.s1.value.structure_type24753 = &t22031; /* x189570 */ t22027.s0.tag = STRUCTURE_TYPE24753; t22027.s0.value.structure_type24753 = &t22028; /* x189571 */ t22037.s0.tag = EXTERNAL_SYMBOL_TYPE; t22037.s0.value.external_symbol_type = q165; /* x189572 */ t22038.s0.tag = EXTERNAL_SYMBOL_TYPE; t22038.s0.value.external_symbol_type = q281; /* x189573 */ t22038.s1.tag = NULL_TYPE; /* x189574 */ t22037.s1.tag = STRUCTURE_TYPE24753; t22037.s1.value.structure_type24753 = &t22038; /* x189575 */ t22036.s0.tag = STRUCTURE_TYPE24753; t22036.s0.value.structure_type24753 = &t22037; /* x189576 */ t22040.s0.tag = EXTERNAL_SYMBOL_TYPE; t22040.s0.value.external_symbol_type = q169; /* x189577 */ t22041.s0.tag = EXTERNAL_SYMBOL_TYPE; t22041.s0.value.external_symbol_type = q281; /* x189578 */ t22042.s0.tag = EXTERNAL_SYMBOL_TYPE; t22042.s0.value.external_symbol_type = q337; /* x189579 */ t22042.s1.tag = NULL_TYPE; /* x189580 */ t22041.s1.tag = STRUCTURE_TYPE24753; t22041.s1.value.structure_type24753 = &t22042; /* x189581 */ t22040.s1.tag = STRUCTURE_TYPE24753; t22040.s1.value.structure_type24753 = &t22041; /* x189582 */ t22039.s0.tag = STRUCTURE_TYPE24753; t22039.s0.value.structure_type24753 = &t22040; /* x189583 */ t22039.s1.tag = NULL_TYPE; /* x189584 */ t22036.s1.tag = STRUCTURE_TYPE24753; t22036.s1.value.structure_type24753 = &t22039; /* x189585 */ t22035.s0.tag = STRUCTURE_TYPE24753; t22035.s0.value.structure_type24753 = &t22036; /* x189586 */ t22044.s0.tag = EXTERNAL_SYMBOL_TYPE; t22044.s0.value.external_symbol_type = q95; /* x189587 */ t22046.s0.tag = EXTERNAL_SYMBOL_TYPE; t22046.s0.value.external_symbol_type = q179; /* x189588 */ t22047.s0.tag = STRING_TYPE; t22047.s0.value.string_type = "First argument to REF is not a (nonempty) list, string, or vector"; /* x189589 */ t22047.s1.tag = NULL_TYPE; /* x189590 */ t22046.s1.tag = STRUCTURE_TYPE24753; t22046.s1.value.structure_type24753 = &t22047; /* x189591 */ t22045.s0.tag = STRUCTURE_TYPE24753; t22045.s0.value.structure_type24753 = &t22046; /* x189592 */ t22045.s1.tag = NULL_TYPE; /* x189593 */ t22044.s1.tag = STRUCTURE_TYPE24753; t22044.s1.value.structure_type24753 = &t22045; /* x189594 */ t22043.s0.tag = STRUCTURE_TYPE24753; t22043.s0.value.structure_type24753 = &t22044; /* x189595 */ t22043.s1.tag = NULL_TYPE; /* x189596 */ t22035.s1.tag = STRUCTURE_TYPE24753; t22035.s1.value.structure_type24753 = &t22043; /* x189597 */ t22027.s1.tag = STRUCTURE_TYPE24753; t22027.s1.value.structure_type24753 = &t22035; /* x189598 */ t22019.s1.tag = STRUCTURE_TYPE24753; t22019.s1.value.structure_type24753 = &t22027; /* x189599 */ t22018.s1.tag = STRUCTURE_TYPE24753; t22018.s1.value.structure_type24753 = &t22019; /* x189600 */ t22017.s0.tag = STRUCTURE_TYPE24753; t22017.s0.value.structure_type24753 = &t22018; /* x189601 */ t22017.s1.tag = NULL_TYPE; /* x189602 */ t22013.s1.tag = STRUCTURE_TYPE24753; t22013.s1.value.structure_type24753 = &t22017; /* x189603 */ t22012.s1.tag = STRUCTURE_TYPE24753; t22012.s1.value.structure_type24753 = &t22013; /* x189606 */ t22052.s0.tag = EXTERNAL_SYMBOL_TYPE; t22052.s0.value.external_symbol_type = q97; /* x189607 */ t22054.s0.tag = EXTERNAL_SYMBOL_TYPE; t22054.s0.value.external_symbol_type = q418; /* x189608 */ t22055.s0.tag = EXTERNAL_SYMBOL_TYPE; t22055.s0.value.external_symbol_type = q318; /* x189609 */ t22056.s0.tag = EXTERNAL_SYMBOL_TYPE; t22056.s0.value.external_symbol_type = q1; /* x189610 */ t22056.s1.tag = NULL_TYPE; /* x189611 */ t22055.s1.tag = STRUCTURE_TYPE24753; t22055.s1.value.structure_type24753 = &t22056; /* x189612 */ t22054.s1.tag = STRUCTURE_TYPE24753; t22054.s1.value.structure_type24753 = &t22055; /* x189613 */ t22053.s0.tag = STRUCTURE_TYPE24753; t22053.s0.value.structure_type24753 = &t22054; /* x189614 */ t22058.s0.tag = EXTERNAL_SYMBOL_TYPE; t22058.s0.value.external_symbol_type = q244; /* x189615 */ t22060.s0.tag = EXTERNAL_SYMBOL_TYPE; t22060.s0.value.external_symbol_type = q102; /* x189616 */ t22062.s0.tag = EXTERNAL_SYMBOL_TYPE; t22062.s0.value.external_symbol_type = q111; /* x189617 */ t22063.s0.tag = EXTERNAL_SYMBOL_TYPE; t22063.s0.value.external_symbol_type = q1; /* x189618 */ t22063.s1.tag = NULL_TYPE; /* x189619 */ t22062.s1.tag = STRUCTURE_TYPE24753; t22062.s1.value.structure_type24753 = &t22063; /* x189620 */ t22061.s0.tag = STRUCTURE_TYPE24753; t22061.s0.value.structure_type24753 = &t22062; /* x189621 */ t22061.s1.tag = NULL_TYPE; /* x189622 */ t22060.s1.tag = STRUCTURE_TYPE24753; t22060.s1.value.structure_type24753 = &t22061; /* x189623 */ t22059.s0.tag = STRUCTURE_TYPE24753; t22059.s0.value.structure_type24753 = &t22060; /* x189624 */ t22065.s0.tag = EXTERNAL_SYMBOL_TYPE; t22065.s0.value.external_symbol_type = q43; /* x189625 */ t22067.s0.tag = EXTERNAL_SYMBOL_TYPE; t22067.s0.value.external_symbol_type = q104; /* x189626 */ t22068.s0.tag = EXTERNAL_SYMBOL_TYPE; t22068.s0.value.external_symbol_type = q318; /* x189627 */ t22070.s0.tag = EXTERNAL_SYMBOL_TYPE; t22070.s0.value.external_symbol_type = q107; /* x189628 */ t22071.s0.tag = EXTERNAL_SYMBOL_TYPE; t22071.s0.value.external_symbol_type = q1; /* x189629 */ t22071.s1.tag = NULL_TYPE; /* x189630 */ t22070.s1.tag = STRUCTURE_TYPE24753; t22070.s1.value.structure_type24753 = &t22071; /* x189631 */ t22069.s0.tag = STRUCTURE_TYPE24753; t22069.s0.value.structure_type24753 = &t22070; /* x189632 */ t22069.s1.tag = NULL_TYPE; /* x189633 */ t22068.s1.tag = STRUCTURE_TYPE24753; t22068.s1.value.structure_type24753 = &t22069; /* x189634 */ t22067.s1.tag = STRUCTURE_TYPE24753; t22067.s1.value.structure_type24753 = &t22068; /* x189635 */ t22066.s0.tag = STRUCTURE_TYPE24753; t22066.s0.value.structure_type24753 = &t22067; /* x189636 */ t22072.s0.tag = EXTERNAL_SYMBOL_TYPE; t22072.s0.value.external_symbol_type = q1; /* x189637 */ t22074.s0.tag = EXTERNAL_SYMBOL_TYPE; t22074.s0.value.external_symbol_type = q418; /* x189638 */ t22075.s0.tag = EXTERNAL_SYMBOL_TYPE; t22075.s0.value.external_symbol_type = q318; /* x189639 */ t22077.s0.tag = EXTERNAL_SYMBOL_TYPE; t22077.s0.value.external_symbol_type = q108; /* x189640 */ t22078.s0.tag = EXTERNAL_SYMBOL_TYPE; t22078.s0.value.external_symbol_type = q1; /* x189641 */ t22078.s1.tag = NULL_TYPE; /* x189642 */ t22077.s1.tag = STRUCTURE_TYPE24753; t22077.s1.value.structure_type24753 = &t22078; /* x189643 */ t22076.s0.tag = STRUCTURE_TYPE24753; t22076.s0.value.structure_type24753 = &t22077; /* x189644 */ t22076.s1.tag = NULL_TYPE; /* x189645 */ t22075.s1.tag = STRUCTURE_TYPE24753; t22075.s1.value.structure_type24753 = &t22076; /* x189646 */ t22074.s1.tag = STRUCTURE_TYPE24753; t22074.s1.value.structure_type24753 = &t22075; /* x189647 */ t22073.s0.tag = STRUCTURE_TYPE24753; t22073.s0.value.structure_type24753 = &t22074; /* x189648 */ t22073.s1.tag = NULL_TYPE; /* x189649 */ t22072.s1.tag = STRUCTURE_TYPE24753; t22072.s1.value.structure_type24753 = &t22073; /* x189650 */ t22066.s1.tag = STRUCTURE_TYPE24753; t22066.s1.value.structure_type24753 = &t22072; /* x189651 */ t22065.s1.tag = STRUCTURE_TYPE24753; t22065.s1.value.structure_type24753 = &t22066; /* x189652 */ t22064.s0.tag = STRUCTURE_TYPE24753; t22064.s0.value.structure_type24753 = &t22065; /* x189653 */ t22064.s1.tag = NULL_TYPE; /* x189654 */ t22059.s1.tag = STRUCTURE_TYPE24753; t22059.s1.value.structure_type24753 = &t22064; /* x189655 */ t22058.s1.tag = STRUCTURE_TYPE24753; t22058.s1.value.structure_type24753 = &t22059; /* x189656 */ t22057.s0.tag = STRUCTURE_TYPE24753; t22057.s0.value.structure_type24753 = &t22058; /* x189657 */ t22057.s1.tag = NULL_TYPE; /* x189658 */ t22053.s1.tag = STRUCTURE_TYPE24753; t22053.s1.value.structure_type24753 = &t22057; /* x189659 */ t22052.s1.tag = STRUCTURE_TYPE24753; t22052.s1.value.structure_type24753 = &t22053; /* x189662 */ t22083.s0.tag = EXTERNAL_SYMBOL_TYPE; t22083.s0.value.external_symbol_type = q97; /* x189663 */ t22085.s0.tag = EXTERNAL_SYMBOL_TYPE; t22085.s0.value.external_symbol_type = q419; /* x189664 */ t22086.s0.tag = EXTERNAL_SYMBOL_TYPE; t22086.s0.value.external_symbol_type = q318; /* x189665 */ t22087.s0.tag = EXTERNAL_SYMBOL_TYPE; t22087.s0.value.external_symbol_type = q1; /* x189666 */ t22087.s1.tag = NULL_TYPE; /* x189667 */ t22086.s1.tag = STRUCTURE_TYPE24753; t22086.s1.value.structure_type24753 = &t22087; /* x189668 */ t22085.s1.tag = STRUCTURE_TYPE24753; t22085.s1.value.structure_type24753 = &t22086; /* x189669 */ t22084.s0.tag = STRUCTURE_TYPE24753; t22084.s0.value.structure_type24753 = &t22085; /* x189670 */ t22089.s0.tag = EXTERNAL_SYMBOL_TYPE; t22089.s0.value.external_symbol_type = q244; /* x189671 */ t22091.s0.tag = EXTERNAL_SYMBOL_TYPE; t22091.s0.value.external_symbol_type = q102; /* x189672 */ t22093.s0.tag = EXTERNAL_SYMBOL_TYPE; t22093.s0.value.external_symbol_type = q111; /* x189673 */ t22094.s0.tag = EXTERNAL_SYMBOL_TYPE; t22094.s0.value.external_symbol_type = q1; /* x189674 */ t22094.s1.tag = NULL_TYPE; /* x189675 */ t22093.s1.tag = STRUCTURE_TYPE24753; t22093.s1.value.structure_type24753 = &t22094; /* x189676 */ t22092.s0.tag = STRUCTURE_TYPE24753; t22092.s0.value.structure_type24753 = &t22093; /* x189677 */ t22092.s1.tag = NULL_TYPE; /* x189678 */ t22091.s1.tag = STRUCTURE_TYPE24753; t22091.s1.value.structure_type24753 = &t22092; /* x189679 */ t22090.s0.tag = STRUCTURE_TYPE24753; t22090.s0.value.structure_type24753 = &t22091; /* x189680 */ t22096.s0.tag = EXTERNAL_SYMBOL_TYPE; t22096.s0.value.external_symbol_type = q43; /* x189681 */ t22098.s0.tag = EXTERNAL_SYMBOL_TYPE; t22098.s0.value.external_symbol_type = q358; /* x189682 */ t22099.s0.tag = EXTERNAL_SYMBOL_TYPE; t22099.s0.value.external_symbol_type = q318; /* x189683 */ t22101.s0.tag = EXTERNAL_SYMBOL_TYPE; t22101.s0.value.external_symbol_type = q107; /* x189684 */ t22102.s0.tag = EXTERNAL_SYMBOL_TYPE; t22102.s0.value.external_symbol_type = q1; /* x189685 */ t22102.s1.tag = NULL_TYPE; /* x189686 */ t22101.s1.tag = STRUCTURE_TYPE24753; t22101.s1.value.structure_type24753 = &t22102; /* x189687 */ t22100.s0.tag = STRUCTURE_TYPE24753; t22100.s0.value.structure_type24753 = &t22101; /* x189688 */ t22100.s1.tag = NULL_TYPE; /* x189689 */ t22099.s1.tag = STRUCTURE_TYPE24753; t22099.s1.value.structure_type24753 = &t22100; /* x189690 */ t22098.s1.tag = STRUCTURE_TYPE24753; t22098.s1.value.structure_type24753 = &t22099; /* x189691 */ t22097.s0.tag = STRUCTURE_TYPE24753; t22097.s0.value.structure_type24753 = &t22098; /* x189692 */ t22103.s0.tag = EXTERNAL_SYMBOL_TYPE; t22103.s0.value.external_symbol_type = q1; /* x189693 */ t22105.s0.tag = EXTERNAL_SYMBOL_TYPE; t22105.s0.value.external_symbol_type = q419; /* x189694 */ t22106.s0.tag = EXTERNAL_SYMBOL_TYPE; t22106.s0.value.external_symbol_type = q318; /* x189695 */ t22108.s0.tag = EXTERNAL_SYMBOL_TYPE; t22108.s0.value.external_symbol_type = q108; /* x189696 */ t22109.s0.tag = EXTERNAL_SYMBOL_TYPE; t22109.s0.value.external_symbol_type = q1; /* x189697 */ t22109.s1.tag = NULL_TYPE; /* x189698 */ t22108.s1.tag = STRUCTURE_TYPE24753; t22108.s1.value.structure_type24753 = &t22109; /* x189699 */ t22107.s0.tag = STRUCTURE_TYPE24753; t22107.s0.value.structure_type24753 = &t22108; /* x189700 */ t22107.s1.tag = NULL_TYPE; /* x189701 */ t22106.s1.tag = STRUCTURE_TYPE24753; t22106.s1.value.structure_type24753 = &t22107; /* x189702 */ t22105.s1.tag = STRUCTURE_TYPE24753; t22105.s1.value.structure_type24753 = &t22106; /* x189703 */ t22104.s0.tag = STRUCTURE_TYPE24753; t22104.s0.value.structure_type24753 = &t22105; /* x189704 */ t22104.s1.tag = NULL_TYPE; /* x189705 */ t22103.s1.tag = STRUCTURE_TYPE24753; t22103.s1.value.structure_type24753 = &t22104; /* x189706 */ t22097.s1.tag = STRUCTURE_TYPE24753; t22097.s1.value.structure_type24753 = &t22103; /* x189707 */ t22096.s1.tag = STRUCTURE_TYPE24753; t22096.s1.value.structure_type24753 = &t22097; /* x189708 */ t22095.s0.tag = STRUCTURE_TYPE24753; t22095.s0.value.structure_type24753 = &t22096; /* x189709 */ t22095.s1.tag = NULL_TYPE; /* x189710 */ t22090.s1.tag = STRUCTURE_TYPE24753; t22090.s1.value.structure_type24753 = &t22095; /* x189711 */ t22089.s1.tag = STRUCTURE_TYPE24753; t22089.s1.value.structure_type24753 = &t22090; /* x189712 */ t22088.s0.tag = STRUCTURE_TYPE24753; t22088.s0.value.structure_type24753 = &t22089; /* x189713 */ t22088.s1.tag = NULL_TYPE; /* x189714 */ t22084.s1.tag = STRUCTURE_TYPE24753; t22084.s1.value.structure_type24753 = &t22088; /* x189715 */ t22083.s1.tag = STRUCTURE_TYPE24753; t22083.s1.value.structure_type24753 = &t22084; /* x189718 */ t22114.s0.tag = EXTERNAL_SYMBOL_TYPE; t22114.s0.value.external_symbol_type = q97; /* x189719 */ t22116.s0.tag = EXTERNAL_SYMBOL_TYPE; t22116.s0.value.external_symbol_type = q420; /* x189720 */ t22117.s0.tag = EXTERNAL_SYMBOL_TYPE; t22117.s0.value.external_symbol_type = q318; /* x189721 */ t22118.s0.tag = EXTERNAL_SYMBOL_TYPE; t22118.s0.value.external_symbol_type = q1; /* x189722 */ t22118.s1.tag = NULL_TYPE; /* x189723 */ t22117.s1.tag = STRUCTURE_TYPE24753; t22117.s1.value.structure_type24753 = &t22118; /* x189724 */ t22116.s1.tag = STRUCTURE_TYPE24753; t22116.s1.value.structure_type24753 = &t22117; /* x189725 */ t22115.s0.tag = STRUCTURE_TYPE24753; t22115.s0.value.structure_type24753 = &t22116; /* x189726 */ t22120.s0.tag = EXTERNAL_SYMBOL_TYPE; t22120.s0.value.external_symbol_type = q244; /* x189727 */ t22122.s0.tag = EXTERNAL_SYMBOL_TYPE; t22122.s0.value.external_symbol_type = q102; /* x189728 */ t22124.s0.tag = EXTERNAL_SYMBOL_TYPE; t22124.s0.value.external_symbol_type = q111; /* x189729 */ t22125.s0.tag = EXTERNAL_SYMBOL_TYPE; t22125.s0.value.external_symbol_type = q1; /* x189730 */ t22125.s1.tag = NULL_TYPE; /* x189731 */ t22124.s1.tag = STRUCTURE_TYPE24753; t22124.s1.value.structure_type24753 = &t22125; /* x189732 */ t22123.s0.tag = STRUCTURE_TYPE24753; t22123.s0.value.structure_type24753 = &t22124; /* x189733 */ t22123.s1.tag = NULL_TYPE; /* x189734 */ t22122.s1.tag = STRUCTURE_TYPE24753; t22122.s1.value.structure_type24753 = &t22123; /* x189735 */ t22121.s0.tag = STRUCTURE_TYPE24753; t22121.s0.value.structure_type24753 = &t22122; /* x189736 */ t22127.s0.tag = EXTERNAL_SYMBOL_TYPE; t22127.s0.value.external_symbol_type = q43; /* x189737 */ t22129.s0.tag = EXTERNAL_SYMBOL_TYPE; t22129.s0.value.external_symbol_type = q361; /* x189738 */ t22130.s0.tag = EXTERNAL_SYMBOL_TYPE; t22130.s0.value.external_symbol_type = q318; /* x189739 */ t22132.s0.tag = EXTERNAL_SYMBOL_TYPE; t22132.s0.value.external_symbol_type = q107; /* x189740 */ t22133.s0.tag = EXTERNAL_SYMBOL_TYPE; t22133.s0.value.external_symbol_type = q1; /* x189741 */ t22133.s1.tag = NULL_TYPE; /* x189742 */ t22132.s1.tag = STRUCTURE_TYPE24753; t22132.s1.value.structure_type24753 = &t22133; /* x189743 */ t22131.s0.tag = STRUCTURE_TYPE24753; t22131.s0.value.structure_type24753 = &t22132; /* x189744 */ t22131.s1.tag = NULL_TYPE; /* x189745 */ t22130.s1.tag = STRUCTURE_TYPE24753; t22130.s1.value.structure_type24753 = &t22131; /* x189746 */ t22129.s1.tag = STRUCTURE_TYPE24753; t22129.s1.value.structure_type24753 = &t22130; /* x189747 */ t22128.s0.tag = STRUCTURE_TYPE24753; t22128.s0.value.structure_type24753 = &t22129; /* x189748 */ t22134.s0.tag = EXTERNAL_SYMBOL_TYPE; t22134.s0.value.external_symbol_type = q1; /* x189749 */ t22136.s0.tag = EXTERNAL_SYMBOL_TYPE; t22136.s0.value.external_symbol_type = q420; /* x189750 */ t22137.s0.tag = EXTERNAL_SYMBOL_TYPE; t22137.s0.value.external_symbol_type = q318; /* x189751 */ t22139.s0.tag = EXTERNAL_SYMBOL_TYPE; t22139.s0.value.external_symbol_type = q108; /* x189752 */ t22140.s0.tag = EXTERNAL_SYMBOL_TYPE; t22140.s0.value.external_symbol_type = q1; /* x189753 */ t22140.s1.tag = NULL_TYPE; /* x189754 */ t22139.s1.tag = STRUCTURE_TYPE24753; t22139.s1.value.structure_type24753 = &t22140; /* x189755 */ t22138.s0.tag = STRUCTURE_TYPE24753; t22138.s0.value.structure_type24753 = &t22139; /* x189756 */ t22138.s1.tag = NULL_TYPE; /* x189757 */ t22137.s1.tag = STRUCTURE_TYPE24753; t22137.s1.value.structure_type24753 = &t22138; /* x189758 */ t22136.s1.tag = STRUCTURE_TYPE24753; t22136.s1.value.structure_type24753 = &t22137; /* x189759 */ t22135.s0.tag = STRUCTURE_TYPE24753; t22135.s0.value.structure_type24753 = &t22136; /* x189760 */ t22135.s1.tag = NULL_TYPE; /* x189761 */ t22134.s1.tag = STRUCTURE_TYPE24753; t22134.s1.value.structure_type24753 = &t22135; /* x189762 */ t22128.s1.tag = STRUCTURE_TYPE24753; t22128.s1.value.structure_type24753 = &t22134; /* x189763 */ t22127.s1.tag = STRUCTURE_TYPE24753; t22127.s1.value.structure_type24753 = &t22128; /* x189764 */ t22126.s0.tag = STRUCTURE_TYPE24753; t22126.s0.value.structure_type24753 = &t22127; /* x189765 */ t22126.s1.tag = NULL_TYPE; /* x189766 */ t22121.s1.tag = STRUCTURE_TYPE24753; t22121.s1.value.structure_type24753 = &t22126; /* x189767 */ t22120.s1.tag = STRUCTURE_TYPE24753; t22120.s1.value.structure_type24753 = &t22121; /* x189768 */ t22119.s0.tag = STRUCTURE_TYPE24753; t22119.s0.value.structure_type24753 = &t22120; /* x189769 */ t22119.s1.tag = NULL_TYPE; /* x189770 */ t22115.s1.tag = STRUCTURE_TYPE24753; t22115.s1.value.structure_type24753 = &t22119; /* x189771 */ t22114.s1.tag = STRUCTURE_TYPE24753; t22114.s1.value.structure_type24753 = &t22115; /* x189774 */ t22145.s0.tag = EXTERNAL_SYMBOL_TYPE; t22145.s0.value.external_symbol_type = q97; /* x189775 */ t22147.s0.tag = EXTERNAL_SYMBOL_TYPE; t22147.s0.value.external_symbol_type = q421; /* x189776 */ t22148.s0.tag = EXTERNAL_SYMBOL_TYPE; t22148.s0.value.external_symbol_type = q318; /* x189777 */ t22149.s0.tag = EXTERNAL_SYMBOL_TYPE; t22149.s0.value.external_symbol_type = q422; /* x189778 */ t22149.s1.tag = NULL_TYPE; /* x189779 */ t22148.s1.tag = STRUCTURE_TYPE24753; t22148.s1.value.structure_type24753 = &t22149; /* x189780 */ t22147.s1.tag = STRUCTURE_TYPE24753; t22147.s1.value.structure_type24753 = &t22148; /* x189781 */ t22146.s0.tag = STRUCTURE_TYPE24753; t22146.s0.value.structure_type24753 = &t22147; /* x189782 */ t22151.s0.tag = EXTERNAL_SYMBOL_TYPE; t22151.s0.value.external_symbol_type = q244; /* x189783 */ t22153.s0.tag = EXTERNAL_SYMBOL_TYPE; t22153.s0.value.external_symbol_type = q102; /* x189784 */ t22155.s0.tag = EXTERNAL_SYMBOL_TYPE; t22155.s0.value.external_symbol_type = q111; /* x189785 */ t22156.s0.tag = EXTERNAL_SYMBOL_TYPE; t22156.s0.value.external_symbol_type = q422; /* x189786 */ t22156.s1.tag = NULL_TYPE; /* x189787 */ t22155.s1.tag = STRUCTURE_TYPE24753; t22155.s1.value.structure_type24753 = &t22156; /* x189788 */ t22154.s0.tag = STRUCTURE_TYPE24753; t22154.s0.value.structure_type24753 = &t22155; /* x189789 */ t22154.s1.tag = NULL_TYPE; /* x189790 */ t22153.s1.tag = STRUCTURE_TYPE24753; t22153.s1.value.structure_type24753 = &t22154; /* x189791 */ t22152.s0.tag = STRUCTURE_TYPE24753; t22152.s0.value.structure_type24753 = &t22153; /* x189792 */ t22158.s0.tag = EXTERNAL_SYMBOL_TYPE; t22158.s0.value.external_symbol_type = q43; /* x189793 */ t22160.s0.tag = EXTERNAL_SYMBOL_TYPE; t22160.s0.value.external_symbol_type = q104; /* x189794 */ t22161.s0.tag = EXTERNAL_SYMBOL_TYPE; t22161.s0.value.external_symbol_type = q318; /* x189795 */ t22163.s0.tag = EXTERNAL_SYMBOL_TYPE; t22163.s0.value.external_symbol_type = q107; /* x189796 */ t22165.s0.tag = EXTERNAL_SYMBOL_TYPE; t22165.s0.value.external_symbol_type = q107; /* x189797 */ t22166.s0.tag = EXTERNAL_SYMBOL_TYPE; t22166.s0.value.external_symbol_type = q422; /* x189798 */ t22166.s1.tag = NULL_TYPE; /* x189799 */ t22165.s1.tag = STRUCTURE_TYPE24753; t22165.s1.value.structure_type24753 = &t22166; /* x189800 */ t22164.s0.tag = STRUCTURE_TYPE24753; t22164.s0.value.structure_type24753 = &t22165; /* x189801 */ t22164.s1.tag = NULL_TYPE; /* x189802 */ t22163.s1.tag = STRUCTURE_TYPE24753; t22163.s1.value.structure_type24753 = &t22164; /* x189803 */ t22162.s0.tag = STRUCTURE_TYPE24753; t22162.s0.value.structure_type24753 = &t22163; /* x189804 */ t22162.s1.tag = NULL_TYPE; /* x189805 */ t22161.s1.tag = STRUCTURE_TYPE24753; t22161.s1.value.structure_type24753 = &t22162; /* x189806 */ t22160.s1.tag = STRUCTURE_TYPE24753; t22160.s1.value.structure_type24753 = &t22161; /* x189807 */ t22159.s0.tag = STRUCTURE_TYPE24753; t22159.s0.value.structure_type24753 = &t22160; /* x189808 */ t22168.s0.tag = EXTERNAL_SYMBOL_TYPE; t22168.s0.value.external_symbol_type = q107; /* x189809 */ t22169.s0.tag = EXTERNAL_SYMBOL_TYPE; t22169.s0.value.external_symbol_type = q422; /* x189810 */ t22169.s1.tag = NULL_TYPE; /* x189811 */ t22168.s1.tag = STRUCTURE_TYPE24753; t22168.s1.value.structure_type24753 = &t22169; /* x189812 */ t22167.s0.tag = STRUCTURE_TYPE24753; t22167.s0.value.structure_type24753 = &t22168; /* x189813 */ t22171.s0.tag = EXTERNAL_SYMBOL_TYPE; t22171.s0.value.external_symbol_type = q421; /* x189814 */ t22172.s0.tag = EXTERNAL_SYMBOL_TYPE; t22172.s0.value.external_symbol_type = q318; /* x189815 */ t22174.s0.tag = EXTERNAL_SYMBOL_TYPE; t22174.s0.value.external_symbol_type = q108; /* x189816 */ t22175.s0.tag = EXTERNAL_SYMBOL_TYPE; t22175.s0.value.external_symbol_type = q422; /* x189817 */ t22175.s1.tag = NULL_TYPE; /* x189818 */ t22174.s1.tag = STRUCTURE_TYPE24753; t22174.s1.value.structure_type24753 = &t22175; /* x189819 */ t22173.s0.tag = STRUCTURE_TYPE24753; t22173.s0.value.structure_type24753 = &t22174; /* x189820 */ t22173.s1.tag = NULL_TYPE; /* x189821 */ t22172.s1.tag = STRUCTURE_TYPE24753; t22172.s1.value.structure_type24753 = &t22173; /* x189822 */ t22171.s1.tag = STRUCTURE_TYPE24753; t22171.s1.value.structure_type24753 = &t22172; /* x189823 */ t22170.s0.tag = STRUCTURE_TYPE24753; t22170.s0.value.structure_type24753 = &t22171; /* x189824 */ t22170.s1.tag = NULL_TYPE; /* x189825 */ t22167.s1.tag = STRUCTURE_TYPE24753; t22167.s1.value.structure_type24753 = &t22170; /* x189826 */ t22159.s1.tag = STRUCTURE_TYPE24753; t22159.s1.value.structure_type24753 = &t22167; /* x189827 */ t22158.s1.tag = STRUCTURE_TYPE24753; t22158.s1.value.structure_type24753 = &t22159; /* x189828 */ t22157.s0.tag = STRUCTURE_TYPE24753; t22157.s0.value.structure_type24753 = &t22158; /* x189829 */ t22157.s1.tag = NULL_TYPE; /* x189830 */ t22152.s1.tag = STRUCTURE_TYPE24753; t22152.s1.value.structure_type24753 = &t22157; /* x189831 */ t22151.s1.tag = STRUCTURE_TYPE24753; t22151.s1.value.structure_type24753 = &t22152; /* x189832 */ t22150.s0.tag = STRUCTURE_TYPE24753; t22150.s0.value.structure_type24753 = &t22151; /* x189833 */ t22150.s1.tag = NULL_TYPE; /* x189834 */ t22146.s1.tag = STRUCTURE_TYPE24753; t22146.s1.value.structure_type24753 = &t22150; /* x189835 */ t22145.s1.tag = STRUCTURE_TYPE24753; t22145.s1.value.structure_type24753 = &t22146; /* x189838 */ t22180.s0.tag = EXTERNAL_SYMBOL_TYPE; t22180.s0.value.external_symbol_type = q97; /* x189839 */ t22182.s0.tag = EXTERNAL_SYMBOL_TYPE; t22182.s0.value.external_symbol_type = q423; /* x189840 */ t22183.s0.tag = EXTERNAL_SYMBOL_TYPE; t22183.s0.value.external_symbol_type = q318; /* x189841 */ t22184.s0.tag = EXTERNAL_SYMBOL_TYPE; t22184.s0.value.external_symbol_type = q422; /* x189842 */ t22184.s1.tag = NULL_TYPE; /* x189843 */ t22183.s1.tag = STRUCTURE_TYPE24753; t22183.s1.value.structure_type24753 = &t22184; /* x189844 */ t22182.s1.tag = STRUCTURE_TYPE24753; t22182.s1.value.structure_type24753 = &t22183; /* x189845 */ t22181.s0.tag = STRUCTURE_TYPE24753; t22181.s0.value.structure_type24753 = &t22182; /* x189846 */ t22186.s0.tag = EXTERNAL_SYMBOL_TYPE; t22186.s0.value.external_symbol_type = q244; /* x189847 */ t22188.s0.tag = EXTERNAL_SYMBOL_TYPE; t22188.s0.value.external_symbol_type = q102; /* x189848 */ t22190.s0.tag = EXTERNAL_SYMBOL_TYPE; t22190.s0.value.external_symbol_type = q111; /* x189849 */ t22191.s0.tag = EXTERNAL_SYMBOL_TYPE; t22191.s0.value.external_symbol_type = q422; /* x189850 */ t22191.s1.tag = NULL_TYPE; /* x189851 */ t22190.s1.tag = STRUCTURE_TYPE24753; t22190.s1.value.structure_type24753 = &t22191; /* x189852 */ t22189.s0.tag = STRUCTURE_TYPE24753; t22189.s0.value.structure_type24753 = &t22190; /* x189853 */ t22189.s1.tag = NULL_TYPE; /* x189854 */ t22188.s1.tag = STRUCTURE_TYPE24753; t22188.s1.value.structure_type24753 = &t22189; /* x189855 */ t22187.s0.tag = STRUCTURE_TYPE24753; t22187.s0.value.structure_type24753 = &t22188; /* x189856 */ t22193.s0.tag = EXTERNAL_SYMBOL_TYPE; t22193.s0.value.external_symbol_type = q43; /* x189857 */ t22195.s0.tag = EXTERNAL_SYMBOL_TYPE; t22195.s0.value.external_symbol_type = q358; /* x189858 */ t22196.s0.tag = EXTERNAL_SYMBOL_TYPE; t22196.s0.value.external_symbol_type = q318; /* x189859 */ t22198.s0.tag = EXTERNAL_SYMBOL_TYPE; t22198.s0.value.external_symbol_type = q107; /* x189860 */ t22200.s0.tag = EXTERNAL_SYMBOL_TYPE; t22200.s0.value.external_symbol_type = q107; /* x189861 */ t22201.s0.tag = EXTERNAL_SYMBOL_TYPE; t22201.s0.value.external_symbol_type = q422; /* x189862 */ t22201.s1.tag = NULL_TYPE; /* x189863 */ t22200.s1.tag = STRUCTURE_TYPE24753; t22200.s1.value.structure_type24753 = &t22201; /* x189864 */ t22199.s0.tag = STRUCTURE_TYPE24753; t22199.s0.value.structure_type24753 = &t22200; /* x189865 */ t22199.s1.tag = NULL_TYPE; /* x189866 */ t22198.s1.tag = STRUCTURE_TYPE24753; t22198.s1.value.structure_type24753 = &t22199; /* x189867 */ t22197.s0.tag = STRUCTURE_TYPE24753; t22197.s0.value.structure_type24753 = &t22198; /* x189868 */ t22197.s1.tag = NULL_TYPE; /* x189869 */ t22196.s1.tag = STRUCTURE_TYPE24753; t22196.s1.value.structure_type24753 = &t22197; /* x189870 */ t22195.s1.tag = STRUCTURE_TYPE24753; t22195.s1.value.structure_type24753 = &t22196; /* x189871 */ t22194.s0.tag = STRUCTURE_TYPE24753; t22194.s0.value.structure_type24753 = &t22195; /* x189872 */ t22203.s0.tag = EXTERNAL_SYMBOL_TYPE; t22203.s0.value.external_symbol_type = q107; /* x189873 */ t22204.s0.tag = EXTERNAL_SYMBOL_TYPE; t22204.s0.value.external_symbol_type = q422; /* x189874 */ t22204.s1.tag = NULL_TYPE; /* x189875 */ t22203.s1.tag = STRUCTURE_TYPE24753; t22203.s1.value.structure_type24753 = &t22204; /* x189876 */ t22202.s0.tag = STRUCTURE_TYPE24753; t22202.s0.value.structure_type24753 = &t22203; /* x189877 */ t22206.s0.tag = EXTERNAL_SYMBOL_TYPE; t22206.s0.value.external_symbol_type = q423; /* x189878 */ t22207.s0.tag = EXTERNAL_SYMBOL_TYPE; t22207.s0.value.external_symbol_type = q318; /* x189879 */ t22209.s0.tag = EXTERNAL_SYMBOL_TYPE; t22209.s0.value.external_symbol_type = q108; /* x189880 */ t22210.s0.tag = EXTERNAL_SYMBOL_TYPE; t22210.s0.value.external_symbol_type = q422; /* x189881 */ t22210.s1.tag = NULL_TYPE; /* x189882 */ t22209.s1.tag = STRUCTURE_TYPE24753; t22209.s1.value.structure_type24753 = &t22210; /* x189883 */ t22208.s0.tag = STRUCTURE_TYPE24753; t22208.s0.value.structure_type24753 = &t22209; /* x189884 */ t22208.s1.tag = NULL_TYPE; /* x189885 */ t22207.s1.tag = STRUCTURE_TYPE24753; t22207.s1.value.structure_type24753 = &t22208; /* x189886 */ t22206.s1.tag = STRUCTURE_TYPE24753; t22206.s1.value.structure_type24753 = &t22207; /* x189887 */ t22205.s0.tag = STRUCTURE_TYPE24753; t22205.s0.value.structure_type24753 = &t22206; /* x189888 */ t22205.s1.tag = NULL_TYPE; /* x189889 */ t22202.s1.tag = STRUCTURE_TYPE24753; t22202.s1.value.structure_type24753 = &t22205; /* x189890 */ t22194.s1.tag = STRUCTURE_TYPE24753; t22194.s1.value.structure_type24753 = &t22202; /* x189891 */ t22193.s1.tag = STRUCTURE_TYPE24753; t22193.s1.value.structure_type24753 = &t22194; /* x189892 */ t22192.s0.tag = STRUCTURE_TYPE24753; t22192.s0.value.structure_type24753 = &t22193; /* x189893 */ t22192.s1.tag = NULL_TYPE; /* x189894 */ t22187.s1.tag = STRUCTURE_TYPE24753; t22187.s1.value.structure_type24753 = &t22192; /* x189895 */ t22186.s1.tag = STRUCTURE_TYPE24753; t22186.s1.value.structure_type24753 = &t22187; /* x189896 */ t22185.s0.tag = STRUCTURE_TYPE24753; t22185.s0.value.structure_type24753 = &t22186; /* x189897 */ t22185.s1.tag = NULL_TYPE; /* x189898 */ t22181.s1.tag = STRUCTURE_TYPE24753; t22181.s1.value.structure_type24753 = &t22185; /* x189899 */ t22180.s1.tag = STRUCTURE_TYPE24753; t22180.s1.value.structure_type24753 = &t22181; /* x189902 */ t22215.s0.tag = EXTERNAL_SYMBOL_TYPE; t22215.s0.value.external_symbol_type = q97; /* x189903 */ t22217.s0.tag = EXTERNAL_SYMBOL_TYPE; t22217.s0.value.external_symbol_type = q424; /* x189904 */ t22218.s0.tag = EXTERNAL_SYMBOL_TYPE; t22218.s0.value.external_symbol_type = q318; /* x189905 */ t22219.s0.tag = EXTERNAL_SYMBOL_TYPE; t22219.s0.value.external_symbol_type = q422; /* x189906 */ t22219.s1.tag = NULL_TYPE; /* x189907 */ t22218.s1.tag = STRUCTURE_TYPE24753; t22218.s1.value.structure_type24753 = &t22219; /* x189908 */ t22217.s1.tag = STRUCTURE_TYPE24753; t22217.s1.value.structure_type24753 = &t22218; /* x189909 */ t22216.s0.tag = STRUCTURE_TYPE24753; t22216.s0.value.structure_type24753 = &t22217; /* x189910 */ t22221.s0.tag = EXTERNAL_SYMBOL_TYPE; t22221.s0.value.external_symbol_type = q244; /* x189911 */ t22223.s0.tag = EXTERNAL_SYMBOL_TYPE; t22223.s0.value.external_symbol_type = q102; /* x189912 */ t22225.s0.tag = EXTERNAL_SYMBOL_TYPE; t22225.s0.value.external_symbol_type = q111; /* x189913 */ t22226.s0.tag = EXTERNAL_SYMBOL_TYPE; t22226.s0.value.external_symbol_type = q422; /* x189914 */ t22226.s1.tag = NULL_TYPE; /* x189915 */ t22225.s1.tag = STRUCTURE_TYPE24753; t22225.s1.value.structure_type24753 = &t22226; /* x189916 */ t22224.s0.tag = STRUCTURE_TYPE24753; t22224.s0.value.structure_type24753 = &t22225; /* x189917 */ t22224.s1.tag = NULL_TYPE; /* x189918 */ t22223.s1.tag = STRUCTURE_TYPE24753; t22223.s1.value.structure_type24753 = &t22224; /* x189919 */ t22222.s0.tag = STRUCTURE_TYPE24753; t22222.s0.value.structure_type24753 = &t22223; /* x189920 */ t22228.s0.tag = EXTERNAL_SYMBOL_TYPE; t22228.s0.value.external_symbol_type = q43; /* x189921 */ t22230.s0.tag = EXTERNAL_SYMBOL_TYPE; t22230.s0.value.external_symbol_type = q361; /* x189922 */ t22231.s0.tag = EXTERNAL_SYMBOL_TYPE; t22231.s0.value.external_symbol_type = q318; /* x189923 */ t22233.s0.tag = EXTERNAL_SYMBOL_TYPE; t22233.s0.value.external_symbol_type = q107; /* x189924 */ t22235.s0.tag = EXTERNAL_SYMBOL_TYPE; t22235.s0.value.external_symbol_type = q107; /* x189925 */ t22236.s0.tag = EXTERNAL_SYMBOL_TYPE; t22236.s0.value.external_symbol_type = q422; /* x189926 */ t22236.s1.tag = NULL_TYPE; /* x189927 */ t22235.s1.tag = STRUCTURE_TYPE24753; t22235.s1.value.structure_type24753 = &t22236; /* x189928 */ t22234.s0.tag = STRUCTURE_TYPE24753; t22234.s0.value.structure_type24753 = &t22235; /* x189929 */ t22234.s1.tag = NULL_TYPE; /* x189930 */ t22233.s1.tag = STRUCTURE_TYPE24753; t22233.s1.value.structure_type24753 = &t22234; /* x189931 */ t22232.s0.tag = STRUCTURE_TYPE24753; t22232.s0.value.structure_type24753 = &t22233; /* x189932 */ t22232.s1.tag = NULL_TYPE; /* x189933 */ t22231.s1.tag = STRUCTURE_TYPE24753; t22231.s1.value.structure_type24753 = &t22232; /* x189934 */ t22230.s1.tag = STRUCTURE_TYPE24753; t22230.s1.value.structure_type24753 = &t22231; /* x189935 */ t22229.s0.tag = STRUCTURE_TYPE24753; t22229.s0.value.structure_type24753 = &t22230; /* x189936 */ t22238.s0.tag = EXTERNAL_SYMBOL_TYPE; t22238.s0.value.external_symbol_type = q107; /* x189937 */ t22239.s0.tag = EXTERNAL_SYMBOL_TYPE; t22239.s0.value.external_symbol_type = q422; /* x189938 */ t22239.s1.tag = NULL_TYPE; /* x189939 */ t22238.s1.tag = STRUCTURE_TYPE24753; t22238.s1.value.structure_type24753 = &t22239; /* x189940 */ t22237.s0.tag = STRUCTURE_TYPE24753; t22237.s0.value.structure_type24753 = &t22238; /* x189941 */ t22241.s0.tag = EXTERNAL_SYMBOL_TYPE; t22241.s0.value.external_symbol_type = q424; /* x189942 */ t22242.s0.tag = EXTERNAL_SYMBOL_TYPE; t22242.s0.value.external_symbol_type = q318; /* x189943 */ t22244.s0.tag = EXTERNAL_SYMBOL_TYPE; t22244.s0.value.external_symbol_type = q108; /* x189944 */ t22245.s0.tag = EXTERNAL_SYMBOL_TYPE; t22245.s0.value.external_symbol_type = q422; /* x189945 */ t22245.s1.tag = NULL_TYPE; /* x189946 */ t22244.s1.tag = STRUCTURE_TYPE24753; t22244.s1.value.structure_type24753 = &t22245; /* x189947 */ t22243.s0.tag = STRUCTURE_TYPE24753; t22243.s0.value.structure_type24753 = &t22244; /* x189948 */ t22243.s1.tag = NULL_TYPE; /* x189949 */ t22242.s1.tag = STRUCTURE_TYPE24753; t22242.s1.value.structure_type24753 = &t22243; /* x189950 */ t22241.s1.tag = STRUCTURE_TYPE24753; t22241.s1.value.structure_type24753 = &t22242; /* x189951 */ t22240.s0.tag = STRUCTURE_TYPE24753; t22240.s0.value.structure_type24753 = &t22241; /* x189952 */ t22240.s1.tag = NULL_TYPE; /* x189953 */ t22237.s1.tag = STRUCTURE_TYPE24753; t22237.s1.value.structure_type24753 = &t22240; /* x189954 */ t22229.s1.tag = STRUCTURE_TYPE24753; t22229.s1.value.structure_type24753 = &t22237; /* x189955 */ t22228.s1.tag = STRUCTURE_TYPE24753; t22228.s1.value.structure_type24753 = &t22229; /* x189956 */ t22227.s0.tag = STRUCTURE_TYPE24753; t22227.s0.value.structure_type24753 = &t22228; /* x189957 */ t22227.s1.tag = NULL_TYPE; /* x189958 */ t22222.s1.tag = STRUCTURE_TYPE24753; t22222.s1.value.structure_type24753 = &t22227; /* x189959 */ t22221.s1.tag = STRUCTURE_TYPE24753; t22221.s1.value.structure_type24753 = &t22222; /* x189960 */ t22220.s0.tag = STRUCTURE_TYPE24753; t22220.s0.value.structure_type24753 = &t22221; /* x189961 */ t22220.s1.tag = NULL_TYPE; /* x189962 */ t22216.s1.tag = STRUCTURE_TYPE24753; t22216.s1.value.structure_type24753 = &t22220; /* x189963 */ t22215.s1.tag = STRUCTURE_TYPE24753; t22215.s1.value.structure_type24753 = &t22216; /* x189966 */ t22250.s0.tag = EXTERNAL_SYMBOL_TYPE; t22250.s0.value.external_symbol_type = q97; /* x189967 */ t22252.s0.tag = EXTERNAL_SYMBOL_TYPE; t22252.s0.value.external_symbol_type = q425; /* x189968 */ t22253.s0.tag = EXTERNAL_SYMBOL_TYPE; t22253.s0.value.external_symbol_type = q1; /* x189969 */ t22254.s0.tag = EXTERNAL_SYMBOL_TYPE; t22254.s0.value.external_symbol_type = q337; /* x189970 */ t22255.s0.tag = EXTERNAL_SYMBOL_TYPE; t22255.s0.value.external_symbol_type = q318; /* x189971 */ t22255.s1.tag = NULL_TYPE; /* x189972 */ t22254.s1.tag = STRUCTURE_TYPE24753; t22254.s1.value.structure_type24753 = &t22255; /* x189973 */ t22253.s1.tag = STRUCTURE_TYPE24753; t22253.s1.value.structure_type24753 = &t22254; /* x189974 */ t22252.s1.tag = STRUCTURE_TYPE24753; t22252.s1.value.structure_type24753 = &t22253; /* x189975 */ t22251.s0.tag = STRUCTURE_TYPE24753; t22251.s0.value.structure_type24753 = &t22252; /* x189976 */ t22257.s0.tag = EXTERNAL_SYMBOL_TYPE; t22257.s0.value.external_symbol_type = q242; /* x189977 */ t22258.s0.tag = EXTERNAL_SYMBOL_TYPE; t22258.s0.value.external_symbol_type = q287; /* x189978 */ t22259.s0.tag = NULL_TYPE; /* x189979 */ t22261.s0.tag = EXTERNAL_SYMBOL_TYPE; t22261.s0.value.external_symbol_type = q240; /* x189980 */ t22264.s0.tag = EXTERNAL_SYMBOL_TYPE; t22264.s0.value.external_symbol_type = q125; /* x189981 */ t22265.s0.tag = EXTERNAL_SYMBOL_TYPE; t22265.s0.value.external_symbol_type = q337; /* x189982 */ t22265.s1.tag = NULL_TYPE; /* x189983 */ t22264.s1.tag = STRUCTURE_TYPE24753; t22264.s1.value.structure_type24753 = &t22265; /* x189984 */ t22263.s0.tag = STRUCTURE_TYPE24753; t22263.s0.value.structure_type24753 = &t22264; /* x189985 */ t22267.s0.tag = EXTERNAL_SYMBOL_TYPE; t22267.s0.value.external_symbol_type = q109; /* x189986 */ t22268.s0.tag = EXTERNAL_SYMBOL_TYPE; t22268.s0.value.external_symbol_type = q1; /* x189987 */ t22269.s0.tag = EXTERNAL_SYMBOL_TYPE; t22269.s0.value.external_symbol_type = q318; /* x189988 */ t22269.s1.tag = NULL_TYPE; /* x189989 */ t22268.s1.tag = STRUCTURE_TYPE24753; t22268.s1.value.structure_type24753 = &t22269; /* x189990 */ t22267.s1.tag = STRUCTURE_TYPE24753; t22267.s1.value.structure_type24753 = &t22268; /* x189991 */ t22266.s0.tag = STRUCTURE_TYPE24753; t22266.s0.value.structure_type24753 = &t22267; /* x189992 */ t22266.s1.tag = NULL_TYPE; /* x189993 */ t22263.s1.tag = STRUCTURE_TYPE24753; t22263.s1.value.structure_type24753 = &t22266; /* x189994 */ t22262.s0.tag = STRUCTURE_TYPE24753; t22262.s0.value.structure_type24753 = &t22263; /* x189995 */ t22271.s0.tag = EXTERNAL_SYMBOL_TYPE; t22271.s0.value.external_symbol_type = q95; /* x189996 */ t22273.s0.tag = EXTERNAL_SYMBOL_TYPE; t22273.s0.value.external_symbol_type = q42; /* x189997 */ t22274.s0.tag = EXTERNAL_SYMBOL_TYPE; t22274.s0.value.external_symbol_type = q1; /* x189998 */ t22276.s0.tag = EXTERNAL_SYMBOL_TYPE; t22276.s0.value.external_symbol_type = q108; /* x189999 */ t22277.s0.tag = EXTERNAL_SYMBOL_TYPE; t22277.s0.value.external_symbol_type = q1; /* x190000 */ t22277.s1.tag = NULL_TYPE; /* x190001 */ t22276.s1.tag = STRUCTURE_TYPE24753; t22276.s1.value.structure_type24753 = &t22277; /* x190002 */ t22275.s0.tag = STRUCTURE_TYPE24753; t22275.s0.value.structure_type24753 = &t22276; /* x190003 */ t22275.s1.tag = NULL_TYPE; /* x190004 */ t22274.s1.tag = STRUCTURE_TYPE24753; t22274.s1.value.structure_type24753 = &t22275; /* x190005 */ t22273.s1.tag = STRUCTURE_TYPE24753; t22273.s1.value.structure_type24753 = &t22274; /* x190006 */ t22272.s0.tag = STRUCTURE_TYPE24753; t22272.s0.value.structure_type24753 = &t22273; /* x190007 */ t22279.s0.tag = EXTERNAL_SYMBOL_TYPE; t22279.s0.value.external_symbol_type = q42; /* x190008 */ t22280.s0.tag = EXTERNAL_SYMBOL_TYPE; t22280.s0.value.external_symbol_type = q337; /* x190009 */ t22282.s0.tag = EXTERNAL_SYMBOL_TYPE; t22282.s0.value.external_symbol_type = q2; /* x190010 */ t22283.s0.tag = EXTERNAL_SYMBOL_TYPE; t22283.s0.value.external_symbol_type = q337; /* x190011 */ t22284.s0.tag = FIXNUM_TYPE; t22284.s0.value.fixnum_type = 1; /* x190012 */ t22284.s1.tag = NULL_TYPE; /* x190013 */ t22283.s1.tag = STRUCTURE_TYPE24753; t22283.s1.value.structure_type24753 = &t22284; /* x190014 */ t22282.s1.tag = STRUCTURE_TYPE24753; t22282.s1.value.structure_type24753 = &t22283; /* x190015 */ t22281.s0.tag = STRUCTURE_TYPE24753; t22281.s0.value.structure_type24753 = &t22282; /* x190016 */ t22281.s1.tag = NULL_TYPE; /* x190017 */ t22280.s1.tag = STRUCTURE_TYPE24753; t22280.s1.value.structure_type24753 = &t22281; /* x190018 */ t22279.s1.tag = STRUCTURE_TYPE24753; t22279.s1.value.structure_type24753 = &t22280; /* x190019 */ t22278.s0.tag = STRUCTURE_TYPE24753; t22278.s0.value.structure_type24753 = &t22279; /* x190020 */ t22286.s0.tag = EXTERNAL_SYMBOL_TYPE; t22286.s0.value.external_symbol_type = q287; /* x190021 */ t22286.s1.tag = NULL_TYPE; /* x190022 */ t22285.s0.tag = STRUCTURE_TYPE24753; t22285.s0.value.structure_type24753 = &t22286; /* x190023 */ t22285.s1.tag = NULL_TYPE; /* x190024 */ t22278.s1.tag = STRUCTURE_TYPE24753; t22278.s1.value.structure_type24753 = &t22285; /* x190025 */ t22272.s1.tag = STRUCTURE_TYPE24753; t22272.s1.value.structure_type24753 = &t22278; /* x190026 */ t22271.s1.tag = STRUCTURE_TYPE24753; t22271.s1.value.structure_type24753 = &t22272; /* x190027 */ t22270.s0.tag = STRUCTURE_TYPE24753; t22270.s0.value.structure_type24753 = &t22271; /* x190028 */ t22270.s1.tag = NULL_TYPE; /* x190029 */ t22262.s1.tag = STRUCTURE_TYPE24753; t22262.s1.value.structure_type24753 = &t22270; /* x190030 */ t22261.s1.tag = STRUCTURE_TYPE24753; t22261.s1.value.structure_type24753 = &t22262; /* x190031 */ t22260.s0.tag = STRUCTURE_TYPE24753; t22260.s0.value.structure_type24753 = &t22261; /* x190032 */ t22260.s1.tag = NULL_TYPE; /* x190033 */ t22259.s1.tag = STRUCTURE_TYPE24753; t22259.s1.value.structure_type24753 = &t22260; /* x190034 */ t22258.s1.tag = STRUCTURE_TYPE24753; t22258.s1.value.structure_type24753 = &t22259; /* x190035 */ t22257.s1.tag = STRUCTURE_TYPE24753; t22257.s1.value.structure_type24753 = &t22258; /* x190036 */ t22256.s0.tag = STRUCTURE_TYPE24753; t22256.s0.value.structure_type24753 = &t22257; /* x190037 */ t22256.s1.tag = NULL_TYPE; /* x190038 */ t22251.s1.tag = STRUCTURE_TYPE24753; t22251.s1.value.structure_type24753 = &t22256; /* x190039 */ t22250.s1.tag = STRUCTURE_TYPE24753; t22250.s1.value.structure_type24753 = &t22251; /* x190042 */ t22291.s0.tag = EXTERNAL_SYMBOL_TYPE; t22291.s0.value.external_symbol_type = q97; /* x190043 */ t22293.s0.tag = EXTERNAL_SYMBOL_TYPE; t22293.s0.value.external_symbol_type = q426; /* x190044 */ t22294.s0.tag = EXTERNAL_SYMBOL_TYPE; t22294.s0.value.external_symbol_type = q281; /* x190045 */ t22295.s0.tag = EXTERNAL_SYMBOL_TYPE; t22295.s0.value.external_symbol_type = q337; /* x190046 */ t22296.s0.tag = EXTERNAL_SYMBOL_TYPE; t22296.s0.value.external_symbol_type = q318; /* x190047 */ t22296.s1.tag = NULL_TYPE; /* x190048 */ t22295.s1.tag = STRUCTURE_TYPE24753; t22295.s1.value.structure_type24753 = &t22296; /* x190049 */ t22294.s1.tag = STRUCTURE_TYPE24753; t22294.s1.value.structure_type24753 = &t22295; /* x190050 */ t22293.s1.tag = STRUCTURE_TYPE24753; t22293.s1.value.structure_type24753 = &t22294; /* x190051 */ t22292.s0.tag = STRUCTURE_TYPE24753; t22292.s0.value.structure_type24753 = &t22293; /* x190052 */ t22298.s0.tag = EXTERNAL_SYMBOL_TYPE; t22298.s0.value.external_symbol_type = q240; /* x190053 */ t22301.s0.tag = EXTERNAL_SYMBOL_TYPE; t22301.s0.value.external_symbol_type = q105; /* x190054 */ t22302.s0.tag = EXTERNAL_SYMBOL_TYPE; t22302.s0.value.external_symbol_type = q281; /* x190055 */ t22302.s1.tag = NULL_TYPE; /* x190056 */ t22301.s1.tag = STRUCTURE_TYPE24753; t22301.s1.value.structure_type24753 = &t22302; /* x190057 */ t22300.s0.tag = STRUCTURE_TYPE24753; t22300.s0.value.structure_type24753 = &t22301; /* x190058 */ t22304.s0.tag = EXTERNAL_SYMBOL_TYPE; t22304.s0.value.external_symbol_type = q425; /* x190059 */ t22305.s0.tag = EXTERNAL_SYMBOL_TYPE; t22305.s0.value.external_symbol_type = q281; /* x190060 */ t22306.s0.tag = EXTERNAL_SYMBOL_TYPE; t22306.s0.value.external_symbol_type = q337; /* x190061 */ t22307.s0.tag = EXTERNAL_SYMBOL_TYPE; t22307.s0.value.external_symbol_type = q318; /* x190062 */ t22307.s1.tag = NULL_TYPE; /* x190063 */ t22306.s1.tag = STRUCTURE_TYPE24753; t22306.s1.value.structure_type24753 = &t22307; /* x190064 */ t22305.s1.tag = STRUCTURE_TYPE24753; t22305.s1.value.structure_type24753 = &t22306; /* x190065 */ t22304.s1.tag = STRUCTURE_TYPE24753; t22304.s1.value.structure_type24753 = &t22305; /* x190066 */ t22303.s0.tag = STRUCTURE_TYPE24753; t22303.s0.value.structure_type24753 = &t22304; /* x190067 */ t22303.s1.tag = NULL_TYPE; /* x190068 */ t22300.s1.tag = STRUCTURE_TYPE24753; t22300.s1.value.structure_type24753 = &t22303; /* x190069 */ t22299.s0.tag = STRUCTURE_TYPE24753; t22299.s0.value.structure_type24753 = &t22300; /* x190070 */ t22310.s0.tag = EXTERNAL_SYMBOL_TYPE; t22310.s0.value.external_symbol_type = q159; /* x190071 */ t22311.s0.tag = EXTERNAL_SYMBOL_TYPE; t22311.s0.value.external_symbol_type = q281; /* x190072 */ t22311.s1.tag = NULL_TYPE; /* x190073 */ t22310.s1.tag = STRUCTURE_TYPE24753; t22310.s1.value.structure_type24753 = &t22311; /* x190074 */ t22309.s0.tag = STRUCTURE_TYPE24753; t22309.s0.value.structure_type24753 = &t22310; /* x190075 */ t22313.s0.tag = EXTERNAL_SYMBOL_TYPE; t22313.s0.value.external_symbol_type = q164; /* x190076 */ t22314.s0.tag = EXTERNAL_SYMBOL_TYPE; t22314.s0.value.external_symbol_type = q281; /* x190077 */ t22315.s0.tag = EXTERNAL_SYMBOL_TYPE; t22315.s0.value.external_symbol_type = q337; /* x190078 */ t22316.s0.tag = EXTERNAL_SYMBOL_TYPE; t22316.s0.value.external_symbol_type = q318; /* x190079 */ t22316.s1.tag = NULL_TYPE; /* x190080 */ t22315.s1.tag = STRUCTURE_TYPE24753; t22315.s1.value.structure_type24753 = &t22316; /* x190081 */ t22314.s1.tag = STRUCTURE_TYPE24753; t22314.s1.value.structure_type24753 = &t22315; /* x190082 */ t22313.s1.tag = STRUCTURE_TYPE24753; t22313.s1.value.structure_type24753 = &t22314; /* x190083 */ t22312.s0.tag = STRUCTURE_TYPE24753; t22312.s0.value.structure_type24753 = &t22313; /* x190084 */ t22312.s1.tag = NULL_TYPE; /* x190085 */ t22309.s1.tag = STRUCTURE_TYPE24753; t22309.s1.value.structure_type24753 = &t22312; /* x190086 */ t22308.s0.tag = STRUCTURE_TYPE24753; t22308.s0.value.structure_type24753 = &t22309; /* x190087 */ t22319.s0.tag = EXTERNAL_SYMBOL_TYPE; t22319.s0.value.external_symbol_type = q165; /* x190088 */ t22320.s0.tag = EXTERNAL_SYMBOL_TYPE; t22320.s0.value.external_symbol_type = q281; /* x190089 */ t22320.s1.tag = NULL_TYPE; /* x190090 */ t22319.s1.tag = STRUCTURE_TYPE24753; t22319.s1.value.structure_type24753 = &t22320; /* x190091 */ t22318.s0.tag = STRUCTURE_TYPE24753; t22318.s0.value.structure_type24753 = &t22319; /* x190092 */ t22322.s0.tag = EXTERNAL_SYMBOL_TYPE; t22322.s0.value.external_symbol_type = q170; /* x190093 */ t22323.s0.tag = EXTERNAL_SYMBOL_TYPE; t22323.s0.value.external_symbol_type = q281; /* x190094 */ t22324.s0.tag = EXTERNAL_SYMBOL_TYPE; t22324.s0.value.external_symbol_type = q337; /* x190095 */ t22325.s0.tag = EXTERNAL_SYMBOL_TYPE; t22325.s0.value.external_symbol_type = q318; /* x190096 */ t22325.s1.tag = NULL_TYPE; /* x190097 */ t22324.s1.tag = STRUCTURE_TYPE24753; t22324.s1.value.structure_type24753 = &t22325; /* x190098 */ t22323.s1.tag = STRUCTURE_TYPE24753; t22323.s1.value.structure_type24753 = &t22324; /* x190099 */ t22322.s1.tag = STRUCTURE_TYPE24753; t22322.s1.value.structure_type24753 = &t22323; /* x190100 */ t22321.s0.tag = STRUCTURE_TYPE24753; t22321.s0.value.structure_type24753 = &t22322; /* x190101 */ t22321.s1.tag = NULL_TYPE; /* x190102 */ t22318.s1.tag = STRUCTURE_TYPE24753; t22318.s1.value.structure_type24753 = &t22321; /* x190103 */ t22317.s0.tag = STRUCTURE_TYPE24753; t22317.s0.value.structure_type24753 = &t22318; /* x190104 */ t22327.s0.tag = EXTERNAL_SYMBOL_TYPE; t22327.s0.value.external_symbol_type = q95; /* x190105 */ t22329.s0.tag = EXTERNAL_SYMBOL_TYPE; t22329.s0.value.external_symbol_type = q179; /* x190106 */ t22330.s0.tag = STRING_TYPE; t22330.s0.value.string_type = "First argument to REF! is not a (nonempty) list, string, or vector"; /* x190107 */ t22330.s1.tag = NULL_TYPE; /* x190108 */ t22329.s1.tag = STRUCTURE_TYPE24753; t22329.s1.value.structure_type24753 = &t22330; /* x190109 */ t22328.s0.tag = STRUCTURE_TYPE24753; t22328.s0.value.structure_type24753 = &t22329; /* x190110 */ t22328.s1.tag = NULL_TYPE; /* x190111 */ t22327.s1.tag = STRUCTURE_TYPE24753; t22327.s1.value.structure_type24753 = &t22328; /* x190112 */ t22326.s0.tag = STRUCTURE_TYPE24753; t22326.s0.value.structure_type24753 = &t22327; /* x190113 */ t22326.s1.tag = NULL_TYPE; /* x190114 */ t22317.s1.tag = STRUCTURE_TYPE24753; t22317.s1.value.structure_type24753 = &t22326; /* x190115 */ t22308.s1.tag = STRUCTURE_TYPE24753; t22308.s1.value.structure_type24753 = &t22317; /* x190116 */ t22299.s1.tag = STRUCTURE_TYPE24753; t22299.s1.value.structure_type24753 = &t22308; /* x190117 */ t22298.s1.tag = STRUCTURE_TYPE24753; t22298.s1.value.structure_type24753 = &t22299; /* x190118 */ t22297.s0.tag = STRUCTURE_TYPE24753; t22297.s0.value.structure_type24753 = &t22298; /* x190119 */ t22297.s1.tag = NULL_TYPE; /* x190120 */ t22292.s1.tag = STRUCTURE_TYPE24753; t22292.s1.value.structure_type24753 = &t22297; /* x190121 */ t22291.s1.tag = STRUCTURE_TYPE24753; t22291.s1.value.structure_type24753 = &t22292; /* x190124 */ t22335.s0.tag = EXTERNAL_SYMBOL_TYPE; t22335.s0.value.external_symbol_type = q97; /* x190125 */ t22337.s0.tag = EXTERNAL_SYMBOL_TYPE; t22337.s0.value.external_symbol_type = q427; /* x190126 */ t22338.s0.tag = EXTERNAL_SYMBOL_TYPE; t22338.s0.value.external_symbol_type = q1; /* x190127 */ t22339.s0.tag = EXTERNAL_SYMBOL_TYPE; t22339.s0.value.external_symbol_type = q318; /* x190128 */ t22339.s1.tag = NULL_TYPE; /* x190129 */ t22338.s1.tag = STRUCTURE_TYPE24753; t22338.s1.value.structure_type24753 = &t22339; /* x190130 */ t22337.s1.tag = STRUCTURE_TYPE24753; t22337.s1.value.structure_type24753 = &t22338; /* x190131 */ t22336.s0.tag = STRUCTURE_TYPE24753; t22336.s0.value.structure_type24753 = &t22337; /* x190132 */ t22341.s0.tag = EXTERNAL_SYMBOL_TYPE; t22341.s0.value.external_symbol_type = q242; /* x190133 */ t22342.s0.tag = EXTERNAL_SYMBOL_TYPE; t22342.s0.value.external_symbol_type = q287; /* x190134 */ t22343.s0.tag = NULL_TYPE; /* x190135 */ t22345.s0.tag = EXTERNAL_SYMBOL_TYPE; t22345.s0.value.external_symbol_type = q43; /* x190136 */ t22347.s0.tag = EXTERNAL_SYMBOL_TYPE; t22347.s0.value.external_symbol_type = q102; /* x190137 */ t22349.s0.tag = EXTERNAL_SYMBOL_TYPE; t22349.s0.value.external_symbol_type = q111; /* x190138 */ t22350.s0.tag = EXTERNAL_SYMBOL_TYPE; t22350.s0.value.external_symbol_type = q1; /* x190139 */ t22350.s1.tag = NULL_TYPE; /* x190140 */ t22349.s1.tag = STRUCTURE_TYPE24753; t22349.s1.value.structure_type24753 = &t22350; /* x190141 */ t22348.s0.tag = STRUCTURE_TYPE24753; t22348.s0.value.structure_type24753 = &t22349; /* x190142 */ t22348.s1.tag = NULL_TYPE; /* x190143 */ t22347.s1.tag = STRUCTURE_TYPE24753; t22347.s1.value.structure_type24753 = &t22348; /* x190144 */ t22346.s0.tag = STRUCTURE_TYPE24753; t22346.s0.value.structure_type24753 = &t22347; /* x190145 */ t22352.s0.tag = EXTERNAL_SYMBOL_TYPE; t22352.s0.value.external_symbol_type = q239; /* x190146 */ t22354.s0.tag = EXTERNAL_SYMBOL_TYPE; t22354.s0.value.external_symbol_type = q109; /* x190147 */ t22355.s0.tag = EXTERNAL_SYMBOL_TYPE; t22355.s0.value.external_symbol_type = q1; /* x190148 */ t22356.s0.tag = EXTERNAL_SYMBOL_TYPE; t22356.s0.value.external_symbol_type = q318; /* x190149 */ t22356.s1.tag = NULL_TYPE; /* x190150 */ t22355.s1.tag = STRUCTURE_TYPE24753; t22355.s1.value.structure_type24753 = &t22356; /* x190151 */ t22354.s1.tag = STRUCTURE_TYPE24753; t22354.s1.value.structure_type24753 = &t22355; /* x190152 */ t22353.s0.tag = STRUCTURE_TYPE24753; t22353.s0.value.structure_type24753 = &t22354; /* x190153 */ t22358.s0.tag = EXTERNAL_SYMBOL_TYPE; t22358.s0.value.external_symbol_type = q42; /* x190154 */ t22359.s0.tag = EXTERNAL_SYMBOL_TYPE; t22359.s0.value.external_symbol_type = q1; /* x190155 */ t22361.s0.tag = EXTERNAL_SYMBOL_TYPE; t22361.s0.value.external_symbol_type = q108; /* x190156 */ t22362.s0.tag = EXTERNAL_SYMBOL_TYPE; t22362.s0.value.external_symbol_type = q1; /* x190157 */ t22362.s1.tag = NULL_TYPE; /* x190158 */ t22361.s1.tag = STRUCTURE_TYPE24753; t22361.s1.value.structure_type24753 = &t22362; /* x190159 */ t22360.s0.tag = STRUCTURE_TYPE24753; t22360.s0.value.structure_type24753 = &t22361; /* x190160 */ t22360.s1.tag = NULL_TYPE; /* x190161 */ t22359.s1.tag = STRUCTURE_TYPE24753; t22359.s1.value.structure_type24753 = &t22360; /* x190162 */ t22358.s1.tag = STRUCTURE_TYPE24753; t22358.s1.value.structure_type24753 = &t22359; /* x190163 */ t22357.s0.tag = STRUCTURE_TYPE24753; t22357.s0.value.structure_type24753 = &t22358; /* x190164 */ t22364.s0.tag = EXTERNAL_SYMBOL_TYPE; t22364.s0.value.external_symbol_type = q287; /* x190165 */ t22364.s1.tag = NULL_TYPE; /* x190166 */ t22363.s0.tag = STRUCTURE_TYPE24753; t22363.s0.value.structure_type24753 = &t22364; /* x190167 */ t22363.s1.tag = NULL_TYPE; /* x190168 */ t22357.s1.tag = STRUCTURE_TYPE24753; t22357.s1.value.structure_type24753 = &t22363; /* x190169 */ t22353.s1.tag = STRUCTURE_TYPE24753; t22353.s1.value.structure_type24753 = &t22357; /* x190170 */ t22352.s1.tag = STRUCTURE_TYPE24753; t22352.s1.value.structure_type24753 = &t22353; /* x190171 */ t22351.s0.tag = STRUCTURE_TYPE24753; t22351.s0.value.structure_type24753 = &t22352; /* x190172 */ t22351.s1.tag = NULL_TYPE; /* x190173 */ t22346.s1.tag = STRUCTURE_TYPE24753; t22346.s1.value.structure_type24753 = &t22351; /* x190174 */ t22345.s1.tag = STRUCTURE_TYPE24753; t22345.s1.value.structure_type24753 = &t22346; /* x190175 */ t22344.s0.tag = STRUCTURE_TYPE24753; t22344.s0.value.structure_type24753 = &t22345; /* x190176 */ t22344.s1.tag = NULL_TYPE; /* x190177 */ t22343.s1.tag = STRUCTURE_TYPE24753; t22343.s1.value.structure_type24753 = &t22344; /* x190178 */ t22342.s1.tag = STRUCTURE_TYPE24753; t22342.s1.value.structure_type24753 = &t22343; /* x190179 */ t22341.s1.tag = STRUCTURE_TYPE24753; t22341.s1.value.structure_type24753 = &t22342; /* x190180 */ t22340.s0.tag = STRUCTURE_TYPE24753; t22340.s0.value.structure_type24753 = &t22341; /* x190181 */ t22340.s1.tag = NULL_TYPE; /* x190182 */ t22336.s1.tag = STRUCTURE_TYPE24753; t22336.s1.value.structure_type24753 = &t22340; /* x190183 */ t22335.s1.tag = STRUCTURE_TYPE24753; t22335.s1.value.structure_type24753 = &t22336; /* x190186 */ t22369.s0.tag = EXTERNAL_SYMBOL_TYPE; t22369.s0.value.external_symbol_type = q97; /* x190187 */ t22371.s0.tag = EXTERNAL_SYMBOL_TYPE; t22371.s0.value.external_symbol_type = q428; /* x190188 */ t22372.s0.tag = EXTERNAL_SYMBOL_TYPE; t22372.s0.value.external_symbol_type = q281; /* x190189 */ t22373.s0.tag = EXTERNAL_SYMBOL_TYPE; t22373.s0.value.external_symbol_type = q318; /* x190190 */ t22373.s1.tag = NULL_TYPE; /* x190191 */ t22372.s1.tag = STRUCTURE_TYPE24753; t22372.s1.value.structure_type24753 = &t22373; /* x190192 */ t22371.s1.tag = STRUCTURE_TYPE24753; t22371.s1.value.structure_type24753 = &t22372; /* x190193 */ t22370.s0.tag = STRUCTURE_TYPE24753; t22370.s0.value.structure_type24753 = &t22371; /* x190194 */ t22375.s0.tag = EXTERNAL_SYMBOL_TYPE; t22375.s0.value.external_symbol_type = q240; /* x190195 */ t22378.s0.tag = EXTERNAL_SYMBOL_TYPE; t22378.s0.value.external_symbol_type = q111; /* x190196 */ t22379.s0.tag = EXTERNAL_SYMBOL_TYPE; t22379.s0.value.external_symbol_type = q281; /* x190197 */ t22379.s1.tag = NULL_TYPE; /* x190198 */ t22378.s1.tag = STRUCTURE_TYPE24753; t22378.s1.value.structure_type24753 = &t22379; /* x190199 */ t22377.s0.tag = STRUCTURE_TYPE24753; t22377.s0.value.structure_type24753 = &t22378; /* x190200 */ t22381.s0.tag = EXTERNAL_SYMBOL_TYPE; t22381.s0.value.external_symbol_type = q11; /* x190201 */ t22382.s0.tag = NULL_TYPE; /* x190202 */ t22382.s1.tag = NULL_TYPE; /* x190203 */ t22381.s1.tag = STRUCTURE_TYPE24753; t22381.s1.value.structure_type24753 = &t22382; /* x190204 */ t22380.s0.tag = STRUCTURE_TYPE24753; t22380.s0.value.structure_type24753 = &t22381; /* x190205 */ t22380.s1.tag = NULL_TYPE; /* x190206 */ t22377.s1.tag = STRUCTURE_TYPE24753; t22377.s1.value.structure_type24753 = &t22380; /* x190207 */ t22376.s0.tag = STRUCTURE_TYPE24753; t22376.s0.value.structure_type24753 = &t22377; /* x190208 */ t22385.s0.tag = EXTERNAL_SYMBOL_TYPE; t22385.s0.value.external_symbol_type = q105; /* x190209 */ t22386.s0.tag = EXTERNAL_SYMBOL_TYPE; t22386.s0.value.external_symbol_type = q281; /* x190210 */ t22386.s1.tag = NULL_TYPE; /* x190211 */ t22385.s1.tag = STRUCTURE_TYPE24753; t22385.s1.value.structure_type24753 = &t22386; /* x190212 */ t22384.s0.tag = STRUCTURE_TYPE24753; t22384.s0.value.structure_type24753 = &t22385; /* x190213 */ t22388.s0.tag = EXTERNAL_SYMBOL_TYPE; t22388.s0.value.external_symbol_type = q427; /* x190214 */ t22389.s0.tag = EXTERNAL_SYMBOL_TYPE; t22389.s0.value.external_symbol_type = q281; /* x190215 */ t22390.s0.tag = EXTERNAL_SYMBOL_TYPE; t22390.s0.value.external_symbol_type = q318; /* x190216 */ t22390.s1.tag = NULL_TYPE; /* x190217 */ t22389.s1.tag = STRUCTURE_TYPE24753; t22389.s1.value.structure_type24753 = &t22390; /* x190218 */ t22388.s1.tag = STRUCTURE_TYPE24753; t22388.s1.value.structure_type24753 = &t22389; /* x190219 */ t22387.s0.tag = STRUCTURE_TYPE24753; t22387.s0.value.structure_type24753 = &t22388; /* x190220 */ t22387.s1.tag = NULL_TYPE; /* x190221 */ t22384.s1.tag = STRUCTURE_TYPE24753; t22384.s1.value.structure_type24753 = &t22387; /* x190222 */ t22383.s0.tag = STRUCTURE_TYPE24753; t22383.s0.value.structure_type24753 = &t22384; /* x190223 */ t22393.s0.tag = EXTERNAL_SYMBOL_TYPE; t22393.s0.value.external_symbol_type = q159; /* x190224 */ t22394.s0.tag = EXTERNAL_SYMBOL_TYPE; t22394.s0.value.external_symbol_type = q281; /* x190225 */ t22394.s1.tag = NULL_TYPE; /* x190226 */ t22393.s1.tag = STRUCTURE_TYPE24753; t22393.s1.value.structure_type24753 = &t22394; /* x190227 */ t22392.s0.tag = STRUCTURE_TYPE24753; t22392.s0.value.structure_type24753 = &t22393; /* x190228 */ t22396.s0.tag = EXTERNAL_SYMBOL_TYPE; t22396.s0.value.external_symbol_type = q429; /* x190229 */ t22397.s0.tag = EXTERNAL_SYMBOL_TYPE; t22397.s0.value.external_symbol_type = q281; /* x190230 */ t22398.s0.tag = EXTERNAL_SYMBOL_TYPE; t22398.s0.value.external_symbol_type = q318; /* x190231 */ t22398.s1.tag = NULL_TYPE; /* x190232 */ t22397.s1.tag = STRUCTURE_TYPE24753; t22397.s1.value.structure_type24753 = &t22398; /* x190233 */ t22396.s1.tag = STRUCTURE_TYPE24753; t22396.s1.value.structure_type24753 = &t22397; /* x190234 */ t22395.s0.tag = STRUCTURE_TYPE24753; t22395.s0.value.structure_type24753 = &t22396; /* x190235 */ t22395.s1.tag = NULL_TYPE; /* x190236 */ t22392.s1.tag = STRUCTURE_TYPE24753; t22392.s1.value.structure_type24753 = &t22395; /* x190237 */ t22391.s0.tag = STRUCTURE_TYPE24753; t22391.s0.value.structure_type24753 = &t22392; /* x190238 */ t22401.s0.tag = EXTERNAL_SYMBOL_TYPE; t22401.s0.value.external_symbol_type = q165; /* x190239 */ t22402.s0.tag = EXTERNAL_SYMBOL_TYPE; t22402.s0.value.external_symbol_type = q281; /* x190240 */ t22402.s1.tag = NULL_TYPE; /* x190241 */ t22401.s1.tag = STRUCTURE_TYPE24753; t22401.s1.value.structure_type24753 = &t22402; /* x190242 */ t22400.s0.tag = STRUCTURE_TYPE24753; t22400.s0.value.structure_type24753 = &t22401; /* x190243 */ t22404.s0.tag = EXTERNAL_SYMBOL_TYPE; t22404.s0.value.external_symbol_type = q430; /* x190244 */ t22405.s0.tag = EXTERNAL_SYMBOL_TYPE; t22405.s0.value.external_symbol_type = q281; /* x190245 */ t22406.s0.tag = EXTERNAL_SYMBOL_TYPE; t22406.s0.value.external_symbol_type = q318; /* x190246 */ t22406.s1.tag = NULL_TYPE; /* x190247 */ t22405.s1.tag = STRUCTURE_TYPE24753; t22405.s1.value.structure_type24753 = &t22406; /* x190248 */ t22404.s1.tag = STRUCTURE_TYPE24753; t22404.s1.value.structure_type24753 = &t22405; /* x190249 */ t22403.s0.tag = STRUCTURE_TYPE24753; t22403.s0.value.structure_type24753 = &t22404; /* x190250 */ t22403.s1.tag = NULL_TYPE; /* x190251 */ t22400.s1.tag = STRUCTURE_TYPE24753; t22400.s1.value.structure_type24753 = &t22403; /* x190252 */ t22399.s0.tag = STRUCTURE_TYPE24753; t22399.s0.value.structure_type24753 = &t22400; /* x190253 */ t22408.s0.tag = EXTERNAL_SYMBOL_TYPE; t22408.s0.value.external_symbol_type = q95; /* x190254 */ t22410.s0.tag = EXTERNAL_SYMBOL_TYPE; t22410.s0.value.external_symbol_type = q179; /* x190255 */ t22411.s0.tag = STRING_TYPE; t22411.s0.value.string_type = "First argument to FILL! is not a list, string, or vector"; /* x190256 */ t22411.s1.tag = NULL_TYPE; /* x190257 */ t22410.s1.tag = STRUCTURE_TYPE24753; t22410.s1.value.structure_type24753 = &t22411; /* x190258 */ t22409.s0.tag = STRUCTURE_TYPE24753; t22409.s0.value.structure_type24753 = &t22410; /* x190259 */ t22409.s1.tag = NULL_TYPE; /* x190260 */ t22408.s1.tag = STRUCTURE_TYPE24753; t22408.s1.value.structure_type24753 = &t22409; /* x190261 */ t22407.s0.tag = STRUCTURE_TYPE24753; t22407.s0.value.structure_type24753 = &t22408; /* x190262 */ t22407.s1.tag = NULL_TYPE; /* x190263 */ t22399.s1.tag = STRUCTURE_TYPE24753; t22399.s1.value.structure_type24753 = &t22407; /* x190264 */ t22391.s1.tag = STRUCTURE_TYPE24753; t22391.s1.value.structure_type24753 = &t22399; /* x190265 */ t22383.s1.tag = STRUCTURE_TYPE24753; t22383.s1.value.structure_type24753 = &t22391; /* x190266 */ t22376.s1.tag = STRUCTURE_TYPE24753; t22376.s1.value.structure_type24753 = &t22383; /* x190267 */ t22375.s1.tag = STRUCTURE_TYPE24753; t22375.s1.value.structure_type24753 = &t22376; /* x190268 */ t22374.s0.tag = STRUCTURE_TYPE24753; t22374.s0.value.structure_type24753 = &t22375; /* x190269 */ t22374.s1.tag = NULL_TYPE; /* x190270 */ t22370.s1.tag = STRUCTURE_TYPE24753; t22370.s1.value.structure_type24753 = &t22374; /* x190271 */ t22369.s1.tag = STRUCTURE_TYPE24753; t22369.s1.value.structure_type24753 = &t22370; /* x190274 */ t22416.s0.tag = EXTERNAL_SYMBOL_TYPE; t22416.s0.value.external_symbol_type = q97; /* x190275 */ t22418.s0.tag = EXTERNAL_SYMBOL_TYPE; t22418.s0.value.external_symbol_type = q431; /* x190276 */ t22419.s0.tag = EXTERNAL_SYMBOL_TYPE; t22419.s0.value.external_symbol_type = q1; /* x190277 */ t22419.s1.tag = NULL_TYPE; /* x190278 */ t22418.s1.tag = STRUCTURE_TYPE24753; t22418.s1.value.structure_type24753 = &t22419; /* x190279 */ t22417.s0.tag = STRUCTURE_TYPE24753; t22417.s0.value.structure_type24753 = &t22418; /* x190280 */ t22421.s0.tag = EXTERNAL_SYMBOL_TYPE; t22421.s0.value.external_symbol_type = q43; /* x190281 */ t22423.s0.tag = EXTERNAL_SYMBOL_TYPE; t22423.s0.value.external_symbol_type = q111; /* x190282 */ t22424.s0.tag = EXTERNAL_SYMBOL_TYPE; t22424.s0.value.external_symbol_type = q1; /* x190283 */ t22424.s1.tag = NULL_TYPE; /* x190284 */ t22423.s1.tag = STRUCTURE_TYPE24753; t22423.s1.value.structure_type24753 = &t22424; /* x190285 */ t22422.s0.tag = STRUCTURE_TYPE24753; t22422.s0.value.structure_type24753 = &t22423; /* x190286 */ t22426.s0.tag = EXTERNAL_SYMBOL_TYPE; t22426.s0.value.external_symbol_type = q11; /* x190287 */ t22427.s0.tag = NULL_TYPE; /* x190288 */ t22427.s1.tag = NULL_TYPE; /* x190289 */ t22426.s1.tag = STRUCTURE_TYPE24753; t22426.s1.value.structure_type24753 = &t22427; /* x190290 */ t22425.s0.tag = STRUCTURE_TYPE24753; t22425.s0.value.structure_type24753 = &t22426; /* x190291 */ t22429.s0.tag = EXTERNAL_SYMBOL_TYPE; t22429.s0.value.external_symbol_type = q106; /* x190292 */ t22431.s0.tag = EXTERNAL_SYMBOL_TYPE; t22431.s0.value.external_symbol_type = q107; /* x190293 */ t22432.s0.tag = EXTERNAL_SYMBOL_TYPE; t22432.s0.value.external_symbol_type = q1; /* x190294 */ t22432.s1.tag = NULL_TYPE; /* x190295 */ t22431.s1.tag = STRUCTURE_TYPE24753; t22431.s1.value.structure_type24753 = &t22432; /* x190296 */ t22430.s0.tag = STRUCTURE_TYPE24753; t22430.s0.value.structure_type24753 = &t22431; /* x190297 */ t22434.s0.tag = EXTERNAL_SYMBOL_TYPE; t22434.s0.value.external_symbol_type = q431; /* x190298 */ t22436.s0.tag = EXTERNAL_SYMBOL_TYPE; t22436.s0.value.external_symbol_type = q108; /* x190299 */ t22437.s0.tag = EXTERNAL_SYMBOL_TYPE; t22437.s0.value.external_symbol_type = q1; /* x190300 */ t22437.s1.tag = NULL_TYPE; /* x190301 */ t22436.s1.tag = STRUCTURE_TYPE24753; t22436.s1.value.structure_type24753 = &t22437; /* x190302 */ t22435.s0.tag = STRUCTURE_TYPE24753; t22435.s0.value.structure_type24753 = &t22436; /* x190303 */ t22435.s1.tag = NULL_TYPE; /* x190304 */ t22434.s1.tag = STRUCTURE_TYPE24753; t22434.s1.value.structure_type24753 = &t22435; /* x190305 */ t22433.s0.tag = STRUCTURE_TYPE24753; t22433.s0.value.structure_type24753 = &t22434; /* x190306 */ t22433.s1.tag = NULL_TYPE; /* x190307 */ t22430.s1.tag = STRUCTURE_TYPE24753; t22430.s1.value.structure_type24753 = &t22433; /* x190308 */ t22429.s1.tag = STRUCTURE_TYPE24753; t22429.s1.value.structure_type24753 = &t22430; /* x190309 */ t22428.s0.tag = STRUCTURE_TYPE24753; t22428.s0.value.structure_type24753 = &t22429; /* x190310 */ t22428.s1.tag = NULL_TYPE; /* x190311 */ t22425.s1.tag = STRUCTURE_TYPE24753; t22425.s1.value.structure_type24753 = &t22428; /* x190312 */ t22422.s1.tag = STRUCTURE_TYPE24753; t22422.s1.value.structure_type24753 = &t22425; /* x190313 */ t22421.s1.tag = STRUCTURE_TYPE24753; t22421.s1.value.structure_type24753 = &t22422; /* x190314 */ t22420.s0.tag = STRUCTURE_TYPE24753; t22420.s0.value.structure_type24753 = &t22421; /* x190315 */ t22420.s1.tag = NULL_TYPE; /* x190316 */ t22417.s1.tag = STRUCTURE_TYPE24753; t22417.s1.value.structure_type24753 = &t22420; /* x190317 */ t22416.s1.tag = STRUCTURE_TYPE24753; t22416.s1.value.structure_type24753 = &t22417; /* x190320 */ t22442.s0.tag = EXTERNAL_SYMBOL_TYPE; t22442.s0.value.external_symbol_type = q97; /* x190321 */ t22444.s0.tag = EXTERNAL_SYMBOL_TYPE; t22444.s0.value.external_symbol_type = q432; /* x190322 */ t22445.s0.tag = EXTERNAL_SYMBOL_TYPE; t22445.s0.value.external_symbol_type = q281; /* x190323 */ t22445.s1.tag = NULL_TYPE; /* x190324 */ t22444.s1.tag = STRUCTURE_TYPE24753; t22444.s1.value.structure_type24753 = &t22445; /* x190325 */ t22443.s0.tag = STRUCTURE_TYPE24753; t22443.s0.value.structure_type24753 = &t22444; /* x190326 */ t22447.s0.tag = EXTERNAL_SYMBOL_TYPE; t22447.s0.value.external_symbol_type = q240; /* x190327 */ t22450.s0.tag = EXTERNAL_SYMBOL_TYPE; t22450.s0.value.external_symbol_type = q111; /* x190328 */ t22451.s0.tag = EXTERNAL_SYMBOL_TYPE; t22451.s0.value.external_symbol_type = q281; /* x190329 */ t22451.s1.tag = NULL_TYPE; /* x190330 */ t22450.s1.tag = STRUCTURE_TYPE24753; t22450.s1.value.structure_type24753 = &t22451; /* x190331 */ t22449.s0.tag = STRUCTURE_TYPE24753; t22449.s0.value.structure_type24753 = &t22450; /* x190332 */ t22453.s0.tag = EXTERNAL_SYMBOL_TYPE; t22453.s0.value.external_symbol_type = q11; /* x190333 */ t22454.s0.tag = NULL_TYPE; /* x190334 */ t22454.s1.tag = NULL_TYPE; /* x190335 */ t22453.s1.tag = STRUCTURE_TYPE24753; t22453.s1.value.structure_type24753 = &t22454; /* x190336 */ t22452.s0.tag = STRUCTURE_TYPE24753; t22452.s0.value.structure_type24753 = &t22453; /* x190337 */ t22452.s1.tag = NULL_TYPE; /* x190338 */ t22449.s1.tag = STRUCTURE_TYPE24753; t22449.s1.value.structure_type24753 = &t22452; /* x190339 */ t22448.s0.tag = STRUCTURE_TYPE24753; t22448.s0.value.structure_type24753 = &t22449; /* x190340 */ t22457.s0.tag = EXTERNAL_SYMBOL_TYPE; t22457.s0.value.external_symbol_type = q105; /* x190341 */ t22458.s0.tag = EXTERNAL_SYMBOL_TYPE; t22458.s0.value.external_symbol_type = q281; /* x190342 */ t22458.s1.tag = NULL_TYPE; /* x190343 */ t22457.s1.tag = STRUCTURE_TYPE24753; t22457.s1.value.structure_type24753 = &t22458; /* x190344 */ t22456.s0.tag = STRUCTURE_TYPE24753; t22456.s0.value.structure_type24753 = &t22457; /* x190345 */ t22460.s0.tag = EXTERNAL_SYMBOL_TYPE; t22460.s0.value.external_symbol_type = q431; /* x190346 */ t22461.s0.tag = EXTERNAL_SYMBOL_TYPE; t22461.s0.value.external_symbol_type = q281; /* x190347 */ t22461.s1.tag = NULL_TYPE; /* x190348 */ t22460.s1.tag = STRUCTURE_TYPE24753; t22460.s1.value.structure_type24753 = &t22461; /* x190349 */ t22459.s0.tag = STRUCTURE_TYPE24753; t22459.s0.value.structure_type24753 = &t22460; /* x190350 */ t22459.s1.tag = NULL_TYPE; /* x190351 */ t22456.s1.tag = STRUCTURE_TYPE24753; t22456.s1.value.structure_type24753 = &t22459; /* x190352 */ t22455.s0.tag = STRUCTURE_TYPE24753; t22455.s0.value.structure_type24753 = &t22456; /* x190353 */ t22464.s0.tag = EXTERNAL_SYMBOL_TYPE; t22464.s0.value.external_symbol_type = q159; /* x190354 */ t22465.s0.tag = EXTERNAL_SYMBOL_TYPE; t22465.s0.value.external_symbol_type = q281; /* x190355 */ t22465.s1.tag = NULL_TYPE; /* x190356 */ t22464.s1.tag = STRUCTURE_TYPE24753; t22464.s1.value.structure_type24753 = &t22465; /* x190357 */ t22463.s0.tag = STRUCTURE_TYPE24753; t22463.s0.value.structure_type24753 = &t22464; /* x190358 */ t22467.s0.tag = EXTERNAL_SYMBOL_TYPE; t22467.s0.value.external_symbol_type = q257; /* x190359 */ t22468.s0.tag = EXTERNAL_SYMBOL_TYPE; t22468.s0.value.external_symbol_type = q281; /* x190360 */ t22468.s1.tag = NULL_TYPE; /* x190361 */ t22467.s1.tag = STRUCTURE_TYPE24753; t22467.s1.value.structure_type24753 = &t22468; /* x190362 */ t22466.s0.tag = STRUCTURE_TYPE24753; t22466.s0.value.structure_type24753 = &t22467; /* x190363 */ t22466.s1.tag = NULL_TYPE; /* x190364 */ t22463.s1.tag = STRUCTURE_TYPE24753; t22463.s1.value.structure_type24753 = &t22466; /* x190365 */ t22462.s0.tag = STRUCTURE_TYPE24753; t22462.s0.value.structure_type24753 = &t22463; /* x190366 */ t22471.s0.tag = EXTERNAL_SYMBOL_TYPE; t22471.s0.value.external_symbol_type = q165; /* x190367 */ t22472.s0.tag = EXTERNAL_SYMBOL_TYPE; t22472.s0.value.external_symbol_type = q281; /* x190368 */ t22472.s1.tag = NULL_TYPE; /* x190369 */ t22471.s1.tag = STRUCTURE_TYPE24753; t22471.s1.value.structure_type24753 = &t22472; /* x190370 */ t22470.s0.tag = STRUCTURE_TYPE24753; t22470.s0.value.structure_type24753 = &t22471; /* x190371 */ t22474.s0.tag = EXTERNAL_SYMBOL_TYPE; t22474.s0.value.external_symbol_type = q433; /* x190372 */ t22475.s0.tag = EXTERNAL_SYMBOL_TYPE; t22475.s0.value.external_symbol_type = q281; /* x190373 */ t22475.s1.tag = NULL_TYPE; /* x190374 */ t22474.s1.tag = STRUCTURE_TYPE24753; t22474.s1.value.structure_type24753 = &t22475; /* x190375 */ t22473.s0.tag = STRUCTURE_TYPE24753; t22473.s0.value.structure_type24753 = &t22474; /* x190376 */ t22473.s1.tag = NULL_TYPE; /* x190377 */ t22470.s1.tag = STRUCTURE_TYPE24753; t22470.s1.value.structure_type24753 = &t22473; /* x190378 */ t22469.s0.tag = STRUCTURE_TYPE24753; t22469.s0.value.structure_type24753 = &t22470; /* x190379 */ t22477.s0.tag = EXTERNAL_SYMBOL_TYPE; t22477.s0.value.external_symbol_type = q95; /* x190380 */ t22479.s0.tag = EXTERNAL_SYMBOL_TYPE; t22479.s0.value.external_symbol_type = q179; /* x190381 */ t22480.s0.tag = STRING_TYPE; t22480.s0.value.string_type = "Argument to COPY is not a list, string, or vector"; /* x190382 */ t22480.s1.tag = NULL_TYPE; /* x190383 */ t22479.s1.tag = STRUCTURE_TYPE24753; t22479.s1.value.structure_type24753 = &t22480; /* x190384 */ t22478.s0.tag = STRUCTURE_TYPE24753; t22478.s0.value.structure_type24753 = &t22479; /* x190385 */ t22478.s1.tag = NULL_TYPE; /* x190386 */ t22477.s1.tag = STRUCTURE_TYPE24753; t22477.s1.value.structure_type24753 = &t22478; /* x190387 */ t22476.s0.tag = STRUCTURE_TYPE24753; t22476.s0.value.structure_type24753 = &t22477; /* x190388 */ t22476.s1.tag = NULL_TYPE; /* x190389 */ t22469.s1.tag = STRUCTURE_TYPE24753; t22469.s1.value.structure_type24753 = &t22476; /* x190390 */ t22462.s1.tag = STRUCTURE_TYPE24753; t22462.s1.value.structure_type24753 = &t22469; /* x190391 */ t22455.s1.tag = STRUCTURE_TYPE24753; t22455.s1.value.structure_type24753 = &t22462; /* x190392 */ t22448.s1.tag = STRUCTURE_TYPE24753; t22448.s1.value.structure_type24753 = &t22455; /* x190393 */ t22447.s1.tag = STRUCTURE_TYPE24753; t22447.s1.value.structure_type24753 = &t22448; /* x190394 */ t22446.s0.tag = STRUCTURE_TYPE24753; t22446.s0.value.structure_type24753 = &t22447; /* x190395 */ t22446.s1.tag = NULL_TYPE; /* x190396 */ t22443.s1.tag = STRUCTURE_TYPE24753; t22443.s1.value.structure_type24753 = &t22446; /* x190397 */ t22442.s1.tag = STRUCTURE_TYPE24753; t22442.s1.value.structure_type24753 = &t22443; /* x190400 */ t22485.s0.tag = EXTERNAL_SYMBOL_TYPE; t22485.s0.value.external_symbol_type = q97; /* x190401 */ t22487.s0.tag = EXTERNAL_SYMBOL_TYPE; t22487.s0.value.external_symbol_type = q112; /* x190402 */ t22488.s0.tag = EXTERNAL_SYMBOL_TYPE; t22488.s0.value.external_symbol_type = q318; /* x190403 */ t22488.s1.tag = NULL_TYPE; /* x190404 */ t22487.s1.tag = STRUCTURE_TYPE24753; t22487.s1.value.structure_type24753 = &t22488; /* x190405 */ t22486.s0.tag = STRUCTURE_TYPE24753; t22486.s0.value.structure_type24753 = &t22487; /* x190406 */ t22491.s0.tag = EXTERNAL_SYMBOL_TYPE; t22491.s0.value.external_symbol_type = q77; /* x190407 */ t22492.s0.tag = EXTERNAL_SYMBOL_TYPE; t22492.s0.value.external_symbol_type = q112; /* x190408 */ t22492.s1.tag = NULL_TYPE; /* x190409 */ t22491.s1.tag = STRUCTURE_TYPE24753; t22491.s1.value.structure_type24753 = &t22492; /* x190410 */ t22490.s0.tag = STRUCTURE_TYPE24753; t22490.s0.value.structure_type24753 = &t22491; /* x190411 */ t22493.s0.tag = EXTERNAL_SYMBOL_TYPE; t22493.s0.value.external_symbol_type = q318; /* x190412 */ t22493.s1.tag = NULL_TYPE; /* x190413 */ t22490.s1.tag = STRUCTURE_TYPE24753; t22490.s1.value.structure_type24753 = &t22493; /* x190414 */ t22489.s0.tag = STRUCTURE_TYPE24753; t22489.s0.value.structure_type24753 = &t22490; /* x190415 */ t22489.s1.tag = NULL_TYPE; /* x190416 */ t22486.s1.tag = STRUCTURE_TYPE24753; t22486.s1.value.structure_type24753 = &t22489; /* x190417 */ t22485.s1.tag = STRUCTURE_TYPE24753; t22485.s1.value.structure_type24753 = &t22486; /* x190420 */ t22498.s0.tag = EXTERNAL_SYMBOL_TYPE; t22498.s0.value.external_symbol_type = q97; /* x190421 */ t22500.s0.tag = EXTERNAL_SYMBOL_TYPE; t22500.s0.value.external_symbol_type = q113; /* x190422 */ t22501.s0.tag = EXTERNAL_SYMBOL_TYPE; t22501.s0.value.external_symbol_type = q434; /* x190423 */ t22501.s1.tag = NULL_TYPE; /* x190424 */ t22500.s1.tag = STRUCTURE_TYPE24753; t22500.s1.value.structure_type24753 = &t22501; /* x190425 */ t22499.s0.tag = STRUCTURE_TYPE24753; t22499.s0.value.structure_type24753 = &t22500; /* x190426 */ t22504.s0.tag = EXTERNAL_SYMBOL_TYPE; t22504.s0.value.external_symbol_type = q77; /* x190427 */ t22505.s0.tag = EXTERNAL_SYMBOL_TYPE; t22505.s0.value.external_symbol_type = q113; /* x190428 */ t22505.s1.tag = NULL_TYPE; /* x190429 */ t22504.s1.tag = STRUCTURE_TYPE24753; t22504.s1.value.structure_type24753 = &t22505; /* x190430 */ t22503.s0.tag = STRUCTURE_TYPE24753; t22503.s0.value.structure_type24753 = &t22504; /* x190431 */ t22506.s0.tag = EXTERNAL_SYMBOL_TYPE; t22506.s0.value.external_symbol_type = q434; /* x190432 */ t22506.s1.tag = NULL_TYPE; /* x190433 */ t22503.s1.tag = STRUCTURE_TYPE24753; t22503.s1.value.structure_type24753 = &t22506; /* x190434 */ t22502.s0.tag = STRUCTURE_TYPE24753; t22502.s0.value.structure_type24753 = &t22503; /* x190435 */ t22502.s1.tag = NULL_TYPE; /* x190436 */ t22499.s1.tag = STRUCTURE_TYPE24753; t22499.s1.value.structure_type24753 = &t22502; /* x190437 */ t22498.s1.tag = STRUCTURE_TYPE24753; t22498.s1.value.structure_type24753 = &t22499; /* x190440 */ t22511.s0.tag = EXTERNAL_SYMBOL_TYPE; t22511.s0.value.external_symbol_type = q97; /* x190441 */ t22513.s0.tag = EXTERNAL_SYMBOL_TYPE; t22513.s0.value.external_symbol_type = q114; /* x190442 */ t22514.s0.tag = EXTERNAL_SYMBOL_TYPE; t22514.s0.value.external_symbol_type = q161; /* x190443 */ t22514.s1.tag = NULL_TYPE; /* x190444 */ t22513.s1.tag = STRUCTURE_TYPE24753; t22513.s1.value.structure_type24753 = &t22514; /* x190445 */ t22512.s0.tag = STRUCTURE_TYPE24753; t22512.s0.value.structure_type24753 = &t22513; /* x190446 */ t22517.s0.tag = EXTERNAL_SYMBOL_TYPE; t22517.s0.value.external_symbol_type = q77; /* x190447 */ t22518.s0.tag = EXTERNAL_SYMBOL_TYPE; t22518.s0.value.external_symbol_type = q114; /* x190448 */ t22518.s1.tag = NULL_TYPE; /* x190449 */ t22517.s1.tag = STRUCTURE_TYPE24753; t22517.s1.value.structure_type24753 = &t22518; /* x190450 */ t22516.s0.tag = STRUCTURE_TYPE24753; t22516.s0.value.structure_type24753 = &t22517; /* x190451 */ t22519.s0.tag = EXTERNAL_SYMBOL_TYPE; t22519.s0.value.external_symbol_type = q161; /* x190452 */ t22519.s1.tag = NULL_TYPE; /* x190453 */ t22516.s1.tag = STRUCTURE_TYPE24753; t22516.s1.value.structure_type24753 = &t22519; /* x190454 */ t22515.s0.tag = STRUCTURE_TYPE24753; t22515.s0.value.structure_type24753 = &t22516; /* x190455 */ t22515.s1.tag = NULL_TYPE; /* x190456 */ t22512.s1.tag = STRUCTURE_TYPE24753; t22512.s1.value.structure_type24753 = &t22515; /* x190457 */ t22511.s1.tag = STRUCTURE_TYPE24753; t22511.s1.value.structure_type24753 = &t22512; /* x190468 */ t22544.s0.tag = EXTERNAL_SYMBOL_TYPE; t22544.s0.value.external_symbol_type = q435; /* x190469 */ t22546.s0.tag = EXTERNAL_SYMBOL_TYPE; t22546.s0.value.external_symbol_type = q11; /* x190470 */ t22547.s0.tag = NULL_TYPE; /* x190471 */ t22547.s1.tag = NULL_TYPE; /* x190472 */ t22546.s1.tag = STRUCTURE_TYPE24753; t22546.s1.value.structure_type24753 = &t22547; /* x190473 */ t22545.s0.tag = STRUCTURE_TYPE24753; t22545.s0.value.structure_type24753 = &t22546; /* x190474 */ t22545.s1.tag = NULL_TYPE; /* x190475 */ t22544.s1.tag = STRUCTURE_TYPE24753; t22544.s1.value.structure_type24753 = &t22545; /* x190476 */ t22543.s0.tag = STRUCTURE_TYPE24753; t22543.s0.value.structure_type24753 = &t22544; /* x190477 */ t22543.s1.tag = NULL_TYPE; /* x190483 */ t22559.s0.tag = EXTERNAL_SYMBOL_TYPE; t22559.s0.value.external_symbol_type = q161; /* x190484 */ t22559.s1.tag = NULL_TYPE; /* x190518 */ t22575.s0.tag = EXTERNAL_SYMBOL_TYPE; t22575.s0.value.external_symbol_type = q95; /* x190519 */ t22577.s0.tag = EXTERNAL_SYMBOL_TYPE; t22577.s0.value.external_symbol_type = q242; /* x190520 */ t22580.s0.tag = EXTERNAL_SYMBOL_TYPE; t22580.s0.value.external_symbol_type = q436; /* x190521 */ t22582.s0.tag = EXTERNAL_SYMBOL_TYPE; t22582.s0.value.external_symbol_type = q242; /* x190522 */ t22583.s0.tag = EXTERNAL_SYMBOL_TYPE; t22583.s0.value.external_symbol_type = q287; /* x190523 */ t22586.s0.tag = EXTERNAL_SYMBOL_TYPE; t22586.s0.value.external_symbol_type = q435; /* x190524 */ t22587.s0.tag = EXTERNAL_SYMBOL_TYPE; t22587.s0.value.external_symbol_type = q435; /* x190525 */ t22587.s1.tag = NULL_TYPE; /* x190526 */ t22586.s1.tag = STRUCTURE_TYPE24753; t22586.s1.value.structure_type24753 = &t22587; /* x190527 */ t22585.s0.tag = STRUCTURE_TYPE24753; t22585.s0.value.structure_type24753 = &t22586; /* x190528 */ t22585.s1.tag = NULL_TYPE; /* x190529 */ t22584.s0.tag = STRUCTURE_TYPE24753; t22584.s0.value.structure_type24753 = &t22585; /* x190530 */ t22589.s0.tag = EXTERNAL_SYMBOL_TYPE; t22589.s0.value.external_symbol_type = q244; /* x190531 */ t22591.s0.tag = EXTERNAL_SYMBOL_TYPE; t22591.s0.value.external_symbol_type = q102; /* x190532 */ t22593.s0.tag = EXTERNAL_SYMBOL_TYPE; t22593.s0.value.external_symbol_type = q111; /* x190533 */ t22594.s0.tag = EXTERNAL_SYMBOL_TYPE; t22594.s0.value.external_symbol_type = q435; /* x190534 */ t22594.s1.tag = NULL_TYPE; /* x190535 */ t22593.s1.tag = STRUCTURE_TYPE24753; t22593.s1.value.structure_type24753 = &t22594; /* x190536 */ t22592.s0.tag = STRUCTURE_TYPE24753; t22592.s0.value.structure_type24753 = &t22593; /* x190537 */ t22592.s1.tag = NULL_TYPE; /* x190538 */ t22591.s1.tag = STRUCTURE_TYPE24753; t22591.s1.value.structure_type24753 = &t22592; /* x190539 */ t22590.s0.tag = STRUCTURE_TYPE24753; t22590.s0.value.structure_type24753 = &t22591; /* x190540 */ t22596.s0.tag = EXTERNAL_SYMBOL_TYPE; t22596.s0.value.external_symbol_type = q43; /* x190541 */ t22598.s0.tag = EXTERNAL_SYMBOL_TYPE; t22598.s0.value.external_symbol_type = q362; /* x190542 */ t22599.s0.tag = EXTERNAL_SYMBOL_TYPE; t22599.s0.value.external_symbol_type = q161; /* x190543 */ t22601.s0.tag = EXTERNAL_SYMBOL_TYPE; t22601.s0.value.external_symbol_type = q107; /* x190544 */ t22602.s0.tag = EXTERNAL_SYMBOL_TYPE; t22602.s0.value.external_symbol_type = q435; /* x190545 */ t22602.s1.tag = NULL_TYPE; /* x190546 */ t22601.s1.tag = STRUCTURE_TYPE24753; t22601.s1.value.structure_type24753 = &t22602; /* x190547 */ t22600.s0.tag = STRUCTURE_TYPE24753; t22600.s0.value.structure_type24753 = &t22601; /* x190548 */ t22600.s1.tag = NULL_TYPE; /* x190549 */ t22599.s1.tag = STRUCTURE_TYPE24753; t22599.s1.value.structure_type24753 = &t22600; /* x190550 */ t22598.s1.tag = STRUCTURE_TYPE24753; t22598.s1.value.structure_type24753 = &t22599; /* x190551 */ t22597.s0.tag = STRUCTURE_TYPE24753; t22597.s0.value.structure_type24753 = &t22598; /* x190552 */ t22603.s0.tag = EXTERNAL_SYMBOL_TYPE; t22603.s0.value.external_symbol_type = q435; /* x190553 */ t22605.s0.tag = EXTERNAL_SYMBOL_TYPE; t22605.s0.value.external_symbol_type = q287; /* x190554 */ t22607.s0.tag = EXTERNAL_SYMBOL_TYPE; t22607.s0.value.external_symbol_type = q108; /* x190555 */ t22608.s0.tag = EXTERNAL_SYMBOL_TYPE; t22608.s0.value.external_symbol_type = q435; /* x190556 */ t22608.s1.tag = NULL_TYPE; /* x190557 */ t22607.s1.tag = STRUCTURE_TYPE24753; t22607.s1.value.structure_type24753 = &t22608; /* x190558 */ t22606.s0.tag = STRUCTURE_TYPE24753; t22606.s0.value.structure_type24753 = &t22607; /* x190559 */ t22606.s1.tag = NULL_TYPE; /* x190560 */ t22605.s1.tag = STRUCTURE_TYPE24753; t22605.s1.value.structure_type24753 = &t22606; /* x190561 */ t22604.s0.tag = STRUCTURE_TYPE24753; t22604.s0.value.structure_type24753 = &t22605; /* x190562 */ t22604.s1.tag = NULL_TYPE; /* x190563 */ t22603.s1.tag = STRUCTURE_TYPE24753; t22603.s1.value.structure_type24753 = &t22604; /* x190564 */ t22597.s1.tag = STRUCTURE_TYPE24753; t22597.s1.value.structure_type24753 = &t22603; /* x190565 */ t22596.s1.tag = STRUCTURE_TYPE24753; t22596.s1.value.structure_type24753 = &t22597; /* x190566 */ t22595.s0.tag = STRUCTURE_TYPE24753; t22595.s0.value.structure_type24753 = &t22596; /* x190567 */ t22595.s1.tag = NULL_TYPE; /* x190568 */ t22590.s1.tag = STRUCTURE_TYPE24753; t22590.s1.value.structure_type24753 = &t22595; /* x190569 */ t22589.s1.tag = STRUCTURE_TYPE24753; t22589.s1.value.structure_type24753 = &t22590; /* x190570 */ t22588.s0.tag = STRUCTURE_TYPE24753; t22588.s0.value.structure_type24753 = &t22589; /* x190571 */ t22588.s1.tag = NULL_TYPE; /* x190572 */ t22584.s1.tag = STRUCTURE_TYPE24753; t22584.s1.value.structure_type24753 = &t22588; /* x190573 */ t22583.s1.tag = STRUCTURE_TYPE24753; t22583.s1.value.structure_type24753 = &t22584; /* x190574 */ t22582.s1.tag = STRUCTURE_TYPE24753; t22582.s1.value.structure_type24753 = &t22583; /* x190575 */ t22581.s0.tag = STRUCTURE_TYPE24753; t22581.s0.value.structure_type24753 = &t22582; /* x190576 */ t22581.s1.tag = NULL_TYPE; /* x190577 */ t22580.s1.tag = STRUCTURE_TYPE24753; t22580.s1.value.structure_type24753 = &t22581; /* x190578 */ t22579.s0.tag = STRUCTURE_TYPE24753; t22579.s0.value.structure_type24753 = &t22580; /* x190579 */ t22579.s1.tag = NULL_TYPE; /* x190580 */ t22578.s0.tag = STRUCTURE_TYPE24753; t22578.s0.value.structure_type24753 = &t22579; /* x190581 */ t22610.s0.tag = EXTERNAL_SYMBOL_TYPE; t22610.s0.value.external_symbol_type = q240; /* x190582 */ t22612.s0.tag = EXTERNAL_SYMBOL_TYPE; t22612.s0.value.external_symbol_type = q436; /* x190583 */ t22614.s0.tag = EXTERNAL_SYMBOL_TYPE; t22614.s0.value.external_symbol_type = q114; /* x190584 */ t22616.s0.tag = EXTERNAL_SYMBOL_TYPE; t22616.s0.value.external_symbol_type = q107; /* x190585 */ t22617.s0.tag = EXTERNAL_SYMBOL_TYPE; t22617.s0.value.external_symbol_type = q436; /* x190586 */ t22617.s1.tag = NULL_TYPE; /* x190587 */ t22616.s1.tag = STRUCTURE_TYPE24753; t22616.s1.value.structure_type24753 = &t22617; /* x190588 */ t22615.s0.tag = STRUCTURE_TYPE24753; t22615.s0.value.structure_type24753 = &t22616; /* x190589 */ t22615.s1.tag = NULL_TYPE; /* x190590 */ t22614.s1.tag = STRUCTURE_TYPE24753; t22614.s1.value.structure_type24753 = &t22615; /* x190591 */ t22613.s0.tag = STRUCTURE_TYPE24753; t22613.s0.value.structure_type24753 = &t22614; /* x190592 */ t22613.s1.tag = NULL_TYPE; /* x190593 */ t22612.s1.tag = STRUCTURE_TYPE24753; t22612.s1.value.structure_type24753 = &t22613; /* x190594 */ t22611.s0.tag = STRUCTURE_TYPE24753; t22611.s0.value.structure_type24753 = &t22612; /* x190595 */ t22619.s0.tag = EXTERNAL_SYMBOL_TYPE; t22619.s0.value.external_symbol_type = q95; /* x190596 */ t22621.s0.tag = EXTERNAL_SYMBOL_TYPE; t22621.s0.value.external_symbol_type = q42; /* x190597 */ t22622.s0.tag = EXTERNAL_SYMBOL_TYPE; t22622.s0.value.external_symbol_type = q435; /* x190598 */ t22624.s0.tag = EXTERNAL_SYMBOL_TYPE; t22624.s0.value.external_symbol_type = q106; /* x190599 */ t22626.s0.tag = EXTERNAL_SYMBOL_TYPE; t22626.s0.value.external_symbol_type = q257; /* x190600 */ t22627.s0.tag = EXTERNAL_SYMBOL_TYPE; t22627.s0.value.external_symbol_type = q161; /* x190601 */ t22627.s1.tag = NULL_TYPE; /* x190602 */ t22626.s1.tag = STRUCTURE_TYPE24753; t22626.s1.value.structure_type24753 = &t22627; /* x190603 */ t22625.s0.tag = STRUCTURE_TYPE24753; t22625.s0.value.structure_type24753 = &t22626; /* x190604 */ t22628.s0.tag = EXTERNAL_SYMBOL_TYPE; t22628.s0.value.external_symbol_type = q435; /* x190605 */ t22628.s1.tag = NULL_TYPE; /* x190606 */ t22625.s1.tag = STRUCTURE_TYPE24753; t22625.s1.value.structure_type24753 = &t22628; /* x190607 */ t22624.s1.tag = STRUCTURE_TYPE24753; t22624.s1.value.structure_type24753 = &t22625; /* x190608 */ t22623.s0.tag = STRUCTURE_TYPE24753; t22623.s0.value.structure_type24753 = &t22624; /* x190609 */ t22623.s1.tag = NULL_TYPE; /* x190610 */ t22622.s1.tag = STRUCTURE_TYPE24753; t22622.s1.value.structure_type24753 = &t22623; /* x190611 */ t22621.s1.tag = STRUCTURE_TYPE24753; t22621.s1.value.structure_type24753 = &t22622; /* x190612 */ t22620.s0.tag = STRUCTURE_TYPE24753; t22620.s0.value.structure_type24753 = &t22621; /* x190613 */ t22630.s0.tag = EXTERNAL_SYMBOL_TYPE; t22630.s0.value.external_symbol_type = q114; /* x190614 */ t22632.s0.tag = EXTERNAL_SYMBOL_TYPE; t22632.s0.value.external_symbol_type = q107; /* x190615 */ t22633.s0.tag = EXTERNAL_SYMBOL_TYPE; t22633.s0.value.external_symbol_type = q435; /* x190616 */ t22633.s1.tag = NULL_TYPE; /* x190617 */ t22632.s1.tag = STRUCTURE_TYPE24753; t22632.s1.value.structure_type24753 = &t22633; /* x190618 */ t22631.s0.tag = STRUCTURE_TYPE24753; t22631.s0.value.structure_type24753 = &t22632; /* x190619 */ t22631.s1.tag = NULL_TYPE; /* x190620 */ t22630.s1.tag = STRUCTURE_TYPE24753; t22630.s1.value.structure_type24753 = &t22631; /* x190621 */ t22629.s0.tag = STRUCTURE_TYPE24753; t22629.s0.value.structure_type24753 = &t22630; /* x190622 */ t22629.s1.tag = NULL_TYPE; /* x190623 */ t22620.s1.tag = STRUCTURE_TYPE24753; t22620.s1.value.structure_type24753 = &t22629; /* x190624 */ t22619.s1.tag = STRUCTURE_TYPE24753; t22619.s1.value.structure_type24753 = &t22620; /* x190625 */ t22618.s0.tag = STRUCTURE_TYPE24753; t22618.s0.value.structure_type24753 = &t22619; /* x190626 */ t22618.s1.tag = NULL_TYPE; /* x190627 */ t22611.s1.tag = STRUCTURE_TYPE24753; t22611.s1.value.structure_type24753 = &t22618; /* x190628 */ t22610.s1.tag = STRUCTURE_TYPE24753; t22610.s1.value.structure_type24753 = &t22611; /* x190629 */ t22609.s0.tag = STRUCTURE_TYPE24753; t22609.s0.value.structure_type24753 = &t22610; /* x190630 */ t22609.s1.tag = NULL_TYPE; /* x190631 */ t22578.s1.tag = STRUCTURE_TYPE24753; t22578.s1.value.structure_type24753 = &t22609; /* x190632 */ t22577.s1.tag = STRUCTURE_TYPE24753; t22577.s1.value.structure_type24753 = &t22578; /* x190633 */ t22576.s0.tag = STRUCTURE_TYPE24753; t22576.s0.value.structure_type24753 = &t22577; /* x190634 */ t22576.s1.tag = NULL_TYPE; /* x190635 */ t22575.s1.tag = STRUCTURE_TYPE24753; t22575.s1.value.structure_type24753 = &t22576; /* x190636 */ t22574.s0.tag = STRUCTURE_TYPE24753; t22574.s0.value.structure_type24753 = &t22575; /* x190637 */ t22574.s1.tag = NULL_TYPE; /* x190654 */ t22638.s0.tag = EXTERNAL_SYMBOL_TYPE; t22638.s0.value.external_symbol_type = q97; /* x190655 */ t22640.s0.tag = EXTERNAL_SYMBOL_TYPE; t22640.s0.value.external_symbol_type = q115; /* x190656 */ t22641.s0.tag = EXTERNAL_SYMBOL_TYPE; t22641.s0.value.external_symbol_type = q318; /* x190657 */ t22641.s1.tag = NULL_TYPE; /* x190658 */ t22640.s1.tag = STRUCTURE_TYPE24753; t22640.s1.value.structure_type24753 = &t22641; /* x190659 */ t22639.s0.tag = STRUCTURE_TYPE24753; t22639.s0.value.structure_type24753 = &t22640; /* x190660 */ t22644.s0.tag = EXTERNAL_SYMBOL_TYPE; t22644.s0.value.external_symbol_type = q77; /* x190661 */ t22645.s0.tag = EXTERNAL_SYMBOL_TYPE;} void initialize_constants14(void) {t22645.s0.value.external_symbol_type = q115; /* x190662 */ t22645.s1.tag = NULL_TYPE; /* x190663 */ t22644.s1.tag = STRUCTURE_TYPE24753; t22644.s1.value.structure_type24753 = &t22645; /* x190664 */ t22643.s0.tag = STRUCTURE_TYPE24753; t22643.s0.value.structure_type24753 = &t22644; /* x190665 */ t22646.s0.tag = EXTERNAL_SYMBOL_TYPE; t22646.s0.value.external_symbol_type = q318; /* x190666 */ t22646.s1.tag = NULL_TYPE; /* x190667 */ t22643.s1.tag = STRUCTURE_TYPE24753; t22643.s1.value.structure_type24753 = &t22646; /* x190668 */ t22642.s0.tag = STRUCTURE_TYPE24753; t22642.s0.value.structure_type24753 = &t22643; /* x190669 */ t22642.s1.tag = NULL_TYPE; /* x190670 */ t22639.s1.tag = STRUCTURE_TYPE24753; t22639.s1.value.structure_type24753 = &t22642; /* x190671 */ t22638.s1.tag = STRUCTURE_TYPE24753; t22638.s1.value.structure_type24753 = &t22639; /* x190674 */ t22651.s0.tag = EXTERNAL_SYMBOL_TYPE; t22651.s0.value.external_symbol_type = q97; /* x190675 */ t22652.s0.tag = EXTERNAL_SYMBOL_TYPE; t22652.s0.value.external_symbol_type = q437; /* x190676 */ t22653.s0.tag = EXTERNAL_SYMBOL_TYPE; t22653.s0.value.external_symbol_type = q115; /* x190677 */ t22653.s1.tag = NULL_TYPE; /* x190678 */ t22652.s1.tag = STRUCTURE_TYPE24753; t22652.s1.value.structure_type24753 = &t22653; /* x190679 */ t22651.s1.tag = STRUCTURE_TYPE24753; t22651.s1.value.structure_type24753 = &t22652; /* x190682 */ t22658.s0.tag = EXTERNAL_SYMBOL_TYPE; t22658.s0.value.external_symbol_type = q97; /* x190683 */ t22660.s0.tag = EXTERNAL_SYMBOL_TYPE; t22660.s0.value.external_symbol_type = q116; /* x190684 */ t22661.s0.tag = EXTERNAL_SYMBOL_TYPE; t22661.s0.value.external_symbol_type = q318; /* x190685 */ t22661.s1.tag = NULL_TYPE; /* x190686 */ t22660.s1.tag = STRUCTURE_TYPE24753; t22660.s1.value.structure_type24753 = &t22661; /* x190687 */ t22659.s0.tag = STRUCTURE_TYPE24753; t22659.s0.value.structure_type24753 = &t22660; /* x190688 */ t22664.s0.tag = EXTERNAL_SYMBOL_TYPE; t22664.s0.value.external_symbol_type = q77; /* x190689 */ t22665.s0.tag = EXTERNAL_SYMBOL_TYPE; t22665.s0.value.external_symbol_type = q116; /* x190690 */ t22665.s1.tag = NULL_TYPE; /* x190691 */ t22664.s1.tag = STRUCTURE_TYPE24753; t22664.s1.value.structure_type24753 = &t22665; /* x190692 */ t22663.s0.tag = STRUCTURE_TYPE24753; t22663.s0.value.structure_type24753 = &t22664; /* x190693 */ t22666.s0.tag = EXTERNAL_SYMBOL_TYPE; t22666.s0.value.external_symbol_type = q318; /* x190694 */ t22666.s1.tag = NULL_TYPE; /* x190695 */ t22663.s1.tag = STRUCTURE_TYPE24753; t22663.s1.value.structure_type24753 = &t22666; /* x190696 */ t22662.s0.tag = STRUCTURE_TYPE24753; t22662.s0.value.structure_type24753 = &t22663; /* x190697 */ t22662.s1.tag = NULL_TYPE; /* x190698 */ t22659.s1.tag = STRUCTURE_TYPE24753; t22659.s1.value.structure_type24753 = &t22662; /* x190699 */ t22658.s1.tag = STRUCTURE_TYPE24753; t22658.s1.value.structure_type24753 = &t22659; /* x190702 */ t22671.s0.tag = EXTERNAL_SYMBOL_TYPE; t22671.s0.value.external_symbol_type = q97; /* x190703 */ t22672.s0.tag = EXTERNAL_SYMBOL_TYPE; t22672.s0.value.external_symbol_type = q438; /* x190704 */ t22673.s0.tag = EXTERNAL_SYMBOL_TYPE; t22673.s0.value.external_symbol_type = q116; /* x190705 */ t22673.s1.tag = NULL_TYPE; /* x190706 */ t22672.s1.tag = STRUCTURE_TYPE24753; t22672.s1.value.structure_type24753 = &t22673; /* x190707 */ t22671.s1.tag = STRUCTURE_TYPE24753; t22671.s1.value.structure_type24753 = &t22672; /* x190710 */ t22678.s0.tag = EXTERNAL_SYMBOL_TYPE; t22678.s0.value.external_symbol_type = q97; /* x190711 */ t22680.s0.tag = EXTERNAL_SYMBOL_TYPE; t22680.s0.value.external_symbol_type = q117; /* x190712 */ t22681.s0.tag = EXTERNAL_SYMBOL_TYPE; t22681.s0.value.external_symbol_type = q318; /* x190713 */ t22681.s1.tag = NULL_TYPE; /* x190714 */ t22680.s1.tag = STRUCTURE_TYPE24753; t22680.s1.value.structure_type24753 = &t22681; /* x190715 */ t22679.s0.tag = STRUCTURE_TYPE24753; t22679.s0.value.structure_type24753 = &t22680; /* x190716 */ t22684.s0.tag = EXTERNAL_SYMBOL_TYPE; t22684.s0.value.external_symbol_type = q77; /* x190717 */ t22685.s0.tag = EXTERNAL_SYMBOL_TYPE; t22685.s0.value.external_symbol_type = q117; /* x190718 */ t22685.s1.tag = NULL_TYPE; /* x190719 */ t22684.s1.tag = STRUCTURE_TYPE24753; t22684.s1.value.structure_type24753 = &t22685; /* x190720 */ t22683.s0.tag = STRUCTURE_TYPE24753; t22683.s0.value.structure_type24753 = &t22684; /* x190721 */ t22686.s0.tag = EXTERNAL_SYMBOL_TYPE; t22686.s0.value.external_symbol_type = q318; /* x190722 */ t22686.s1.tag = NULL_TYPE; /* x190723 */ t22683.s1.tag = STRUCTURE_TYPE24753; t22683.s1.value.structure_type24753 = &t22686; /* x190724 */ t22682.s0.tag = STRUCTURE_TYPE24753; t22682.s0.value.structure_type24753 = &t22683; /* x190725 */ t22682.s1.tag = NULL_TYPE; /* x190726 */ t22679.s1.tag = STRUCTURE_TYPE24753; t22679.s1.value.structure_type24753 = &t22682; /* x190727 */ t22678.s1.tag = STRUCTURE_TYPE24753; t22678.s1.value.structure_type24753 = &t22679; /* x190730 */ t22691.s0.tag = EXTERNAL_SYMBOL_TYPE; t22691.s0.value.external_symbol_type = q97; /* x190731 */ t22693.s0.tag = EXTERNAL_SYMBOL_TYPE; t22693.s0.value.external_symbol_type = q118; /* x190732 */ t22694.s0.tag = EXTERNAL_SYMBOL_TYPE; t22694.s0.value.external_symbol_type = q439; /* x190733 */ t22694.s1.tag = NULL_TYPE; /* x190734 */ t22693.s1.tag = STRUCTURE_TYPE24753; t22693.s1.value.structure_type24753 = &t22694; /* x190735 */ t22692.s0.tag = STRUCTURE_TYPE24753; t22692.s0.value.structure_type24753 = &t22693; /* x190736 */ t22697.s0.tag = EXTERNAL_SYMBOL_TYPE; t22697.s0.value.external_symbol_type = q77; /* x190737 */ t22698.s0.tag = EXTERNAL_SYMBOL_TYPE; t22698.s0.value.external_symbol_type = q118; /* x190738 */ t22698.s1.tag = NULL_TYPE; /* x190739 */ t22697.s1.tag = STRUCTURE_TYPE24753; t22697.s1.value.structure_type24753 = &t22698; /* x190740 */ t22696.s0.tag = STRUCTURE_TYPE24753; t22696.s0.value.structure_type24753 = &t22697; /* x190741 */ t22699.s0.tag = EXTERNAL_SYMBOL_TYPE; t22699.s0.value.external_symbol_type = q439; /* x190742 */ t22699.s1.tag = NULL_TYPE; /* x190743 */ t22696.s1.tag = STRUCTURE_TYPE24753; t22696.s1.value.structure_type24753 = &t22699; /* x190744 */ t22695.s0.tag = STRUCTURE_TYPE24753; t22695.s0.value.structure_type24753 = &t22696; /* x190745 */ t22695.s1.tag = NULL_TYPE; /* x190746 */ t22692.s1.tag = STRUCTURE_TYPE24753; t22692.s1.value.structure_type24753 = &t22695; /* x190747 */ t22691.s1.tag = STRUCTURE_TYPE24753; t22691.s1.value.structure_type24753 = &t22692; /* x190750 */ t22704.s0.tag = EXTERNAL_SYMBOL_TYPE; t22704.s0.value.external_symbol_type = q97; /* x190751 */ t22706.s0.tag = EXTERNAL_SYMBOL_TYPE; t22706.s0.value.external_symbol_type = q119; /* x190752 */ t22707.s0.tag = EXTERNAL_SYMBOL_TYPE; t22707.s0.value.external_symbol_type = q439; /* x190753 */ t22707.s1.tag = NULL_TYPE; /* x190754 */ t22706.s1.tag = STRUCTURE_TYPE24753; t22706.s1.value.structure_type24753 = &t22707; /* x190755 */ t22705.s0.tag = STRUCTURE_TYPE24753; t22705.s0.value.structure_type24753 = &t22706; /* x190756 */ t22710.s0.tag = EXTERNAL_SYMBOL_TYPE; t22710.s0.value.external_symbol_type = q77; /* x190757 */ t22711.s0.tag = EXTERNAL_SYMBOL_TYPE; t22711.s0.value.external_symbol_type = q119; /* x190758 */ t22711.s1.tag = NULL_TYPE; /* x190759 */ t22710.s1.tag = STRUCTURE_TYPE24753; t22710.s1.value.structure_type24753 = &t22711; /* x190760 */ t22709.s0.tag = STRUCTURE_TYPE24753; t22709.s0.value.structure_type24753 = &t22710; /* x190761 */ t22712.s0.tag = EXTERNAL_SYMBOL_TYPE; t22712.s0.value.external_symbol_type = q439; /* x190762 */ t22712.s1.tag = NULL_TYPE; /* x190763 */ t22709.s1.tag = STRUCTURE_TYPE24753; t22709.s1.value.structure_type24753 = &t22712; /* x190764 */ t22708.s0.tag = STRUCTURE_TYPE24753; t22708.s0.value.structure_type24753 = &t22709; /* x190765 */ t22708.s1.tag = NULL_TYPE; /* x190766 */ t22705.s1.tag = STRUCTURE_TYPE24753; t22705.s1.value.structure_type24753 = &t22708; /* x190767 */ t22704.s1.tag = STRUCTURE_TYPE24753; t22704.s1.value.structure_type24753 = &t22705; /* x190770 */ t22717.s0.tag = EXTERNAL_SYMBOL_TYPE; t22717.s0.value.external_symbol_type = q97; /* x190771 */ t22719.s0.tag = EXTERNAL_SYMBOL_TYPE; t22719.s0.value.external_symbol_type = q120; /* x190772 */ t22720.s0.tag = EXTERNAL_SYMBOL_TYPE; t22720.s0.value.external_symbol_type = q440; /* x190773 */ t22721.s0.tag = EXTERNAL_SYMBOL_TYPE; t22721.s0.value.external_symbol_type = q441; /* x190774 */ t22721.s1.tag = EXTERNAL_SYMBOL_TYPE; t22721.s1.value.external_symbol_type = q442; /* x190775 */ t22720.s1.tag = STRUCTURE_TYPE24753; t22720.s1.value.structure_type24753 = &t22721; /* x190776 */ t22719.s1.tag = STRUCTURE_TYPE24753; t22719.s1.value.structure_type24753 = &t22720; /* x190777 */ t22718.s0.tag = STRUCTURE_TYPE24753; t22718.s0.value.structure_type24753 = &t22719; /* x190778 */ t22723.s0.tag = EXTERNAL_SYMBOL_TYPE; t22723.s0.value.external_symbol_type = q244; /* x190779 */ t22726.s0.tag = EXTERNAL_SYMBOL_TYPE; t22726.s0.value.external_symbol_type = q77; /* x190780 */ t22727.s0.tag = EXTERNAL_SYMBOL_TYPE; t22727.s0.value.external_symbol_type = q120; /* x190781 */ t22727.s1.tag = NULL_TYPE; /* x190782 */ t22726.s1.tag = STRUCTURE_TYPE24753; t22726.s1.value.structure_type24753 = &t22727; /* x190783 */ t22725.s0.tag = STRUCTURE_TYPE24753; t22725.s0.value.structure_type24753 = &t22726; /* x190784 */ t22728.s0.tag = EXTERNAL_SYMBOL_TYPE; t22728.s0.value.external_symbol_type = q440; /* x190785 */ t22729.s0.tag = EXTERNAL_SYMBOL_TYPE; t22729.s0.value.external_symbol_type = q441; /* x190786 */ t22729.s1.tag = NULL_TYPE; /* x190787 */ t22728.s1.tag = STRUCTURE_TYPE24753; t22728.s1.value.structure_type24753 = &t22729; /* x190788 */ t22725.s1.tag = STRUCTURE_TYPE24753; t22725.s1.value.structure_type24753 = &t22728; /* x190789 */ t22724.s0.tag = STRUCTURE_TYPE24753; t22724.s0.value.structure_type24753 = &t22725; /* x190790 */ t22731.s0.tag = EXTERNAL_SYMBOL_TYPE; t22731.s0.value.external_symbol_type = q242; /* x190791 */ t22732.s0.tag = EXTERNAL_SYMBOL_TYPE; t22732.s0.value.external_symbol_type = q289; /* x190792 */ t22735.s0.tag = EXTERNAL_SYMBOL_TYPE; t22735.s0.value.external_symbol_type = q439; /* x190793 */ t22736.s0.tag = EXTERNAL_SYMBOL_TYPE; t22736.s0.value.external_symbol_type = q441; /* x190794 */ t22736.s1.tag = NULL_TYPE; /* x190795 */ t22735.s1.tag = STRUCTURE_TYPE24753; t22735.s1.value.structure_type24753 = &t22736; /* x190796 */ t22734.s0.tag = STRUCTURE_TYPE24753; t22734.s0.value.structure_type24753 = &t22735; /* x190797 */ t22738.s0.tag = EXTERNAL_SYMBOL_TYPE; t22738.s0.value.external_symbol_type = q442; /* x190798 */ t22739.s0.tag = EXTERNAL_SYMBOL_TYPE; t22739.s0.value.external_symbol_type = q442; /* x190799 */ t22739.s1.tag = NULL_TYPE; /* x190800 */ t22738.s1.tag = STRUCTURE_TYPE24753; t22738.s1.value.structure_type24753 = &t22739; /* x190801 */ t22737.s0.tag = STRUCTURE_TYPE24753; t22737.s0.value.structure_type24753 = &t22738; /* x190802 */ t22737.s1.tag = NULL_TYPE; /* x190803 */ t22734.s1.tag = STRUCTURE_TYPE24753; t22734.s1.value.structure_type24753 = &t22737; /* x190804 */ t22733.s0.tag = STRUCTURE_TYPE24753; t22733.s0.value.structure_type24753 = &t22734; /* x190805 */ t22741.s0.tag = EXTERNAL_SYMBOL_TYPE; t22741.s0.value.external_symbol_type = q241; /* x190806 */ t22743.s0.tag = EXTERNAL_SYMBOL_TYPE; t22743.s0.value.external_symbol_type = q111; /* x190807 */ t22744.s0.tag = EXTERNAL_SYMBOL_TYPE; t22744.s0.value.external_symbol_type = q442; /* x190808 */ t22744.s1.tag = NULL_TYPE; /* x190809 */ t22743.s1.tag = STRUCTURE_TYPE24753; t22743.s1.value.structure_type24753 = &t22744; /* x190810 */ t22742.s0.tag = STRUCTURE_TYPE24753; t22742.s0.value.structure_type24753 = &t22743; /* x190811 */ t22746.s0.tag = EXTERNAL_SYMBOL_TYPE; t22746.s0.value.external_symbol_type = q244; /* x190812 */ t22749.s0.tag = EXTERNAL_SYMBOL_TYPE; t22749.s0.value.external_symbol_type = q77; /* x190813 */ t22750.s0.tag = EXTERNAL_SYMBOL_TYPE; t22750.s0.value.external_symbol_type = q120; /* x190814 */ t22750.s1.tag = NULL_TYPE; /* x190815 */ t22749.s1.tag = STRUCTURE_TYPE24753; t22749.s1.value.structure_type24753 = &t22750; /* x190816 */ t22748.s0.tag = STRUCTURE_TYPE24753; t22748.s0.value.structure_type24753 = &t22749; /* x190817 */ t22751.s0.tag = EXTERNAL_SYMBOL_TYPE; t22751.s0.value.external_symbol_type = q439; /* x190818 */ t22753.s0.tag = EXTERNAL_SYMBOL_TYPE; t22753.s0.value.external_symbol_type = q107; /* x190819 */ t22754.s0.tag = EXTERNAL_SYMBOL_TYPE; t22754.s0.value.external_symbol_type = q442; /* x190820 */ t22754.s1.tag = NULL_TYPE; /* x190821 */ t22753.s1.tag = STRUCTURE_TYPE24753; t22753.s1.value.structure_type24753 = &t22754; /* x190822 */ t22752.s0.tag = STRUCTURE_TYPE24753; t22752.s0.value.structure_type24753 = &t22753; /* x190823 */ t22752.s1.tag = NULL_TYPE; /* x190824 */ t22751.s1.tag = STRUCTURE_TYPE24753; t22751.s1.value.structure_type24753 = &t22752; /* x190825 */ t22748.s1.tag = STRUCTURE_TYPE24753; t22748.s1.value.structure_type24753 = &t22751; /* x190826 */ t22747.s0.tag = STRUCTURE_TYPE24753; t22747.s0.value.structure_type24753 = &t22748; /* x190827 */ t22756.s0.tag = EXTERNAL_SYMBOL_TYPE; t22756.s0.value.external_symbol_type = q289; /* x190828 */ t22758.s0.tag = EXTERNAL_SYMBOL_TYPE; t22758.s0.value.external_symbol_type = q107; /* x190829 */ t22759.s0.tag = EXTERNAL_SYMBOL_TYPE; t22759.s0.value.external_symbol_type = q442; /* x190830 */ t22759.s1.tag = NULL_TYPE; /* x190831 */ t22758.s1.tag = STRUCTURE_TYPE24753; t22758.s1.value.structure_type24753 = &t22759; /* x190832 */ t22757.s0.tag = STRUCTURE_TYPE24753; t22757.s0.value.structure_type24753 = &t22758; /* x190833 */ t22761.s0.tag = EXTERNAL_SYMBOL_TYPE; t22761.s0.value.external_symbol_type = q108; /* x190834 */ t22762.s0.tag = EXTERNAL_SYMBOL_TYPE; t22762.s0.value.external_symbol_type = q442; /* x190835 */ t22762.s1.tag = NULL_TYPE; /* x190836 */ t22761.s1.tag = STRUCTURE_TYPE24753; t22761.s1.value.structure_type24753 = &t22762; /* x190837 */ t22760.s0.tag = STRUCTURE_TYPE24753; t22760.s0.value.structure_type24753 = &t22761; /* x190838 */ t22760.s1.tag = NULL_TYPE; /* x190839 */ t22757.s1.tag = STRUCTURE_TYPE24753; t22757.s1.value.structure_type24753 = &t22760; /* x190840 */ t22756.s1.tag = STRUCTURE_TYPE24753; t22756.s1.value.structure_type24753 = &t22757; /* x190841 */ t22755.s0.tag = STRUCTURE_TYPE24753; t22755.s0.value.structure_type24753 = &t22756; /* x190842 */ t22755.s1.tag = NULL_TYPE; /* x190843 */ t22747.s1.tag = STRUCTURE_TYPE24753; t22747.s1.value.structure_type24753 = &t22755; /* x190844 */ t22746.s1.tag = STRUCTURE_TYPE24753; t22746.s1.value.structure_type24753 = &t22747; /* x190845 */ t22745.s0.tag = STRUCTURE_TYPE24753; t22745.s0.value.structure_type24753 = &t22746; /* x190846 */ t22745.s1.tag = NULL_TYPE; /* x190847 */ t22742.s1.tag = STRUCTURE_TYPE24753; t22742.s1.value.structure_type24753 = &t22745; /* x190848 */ t22741.s1.tag = STRUCTURE_TYPE24753; t22741.s1.value.structure_type24753 = &t22742; /* x190849 */ t22740.s0.tag = STRUCTURE_TYPE24753; t22740.s0.value.structure_type24753 = &t22741; /* x190850 */ t22740.s1.tag = NULL_TYPE; /* x190851 */ t22733.s1.tag = STRUCTURE_TYPE24753; t22733.s1.value.structure_type24753 = &t22740; /* x190852 */ t22732.s1.tag = STRUCTURE_TYPE24753; t22732.s1.value.structure_type24753 = &t22733; /* x190853 */ t22731.s1.tag = STRUCTURE_TYPE24753; t22731.s1.value.structure_type24753 = &t22732; /* x190854 */ t22730.s0.tag = STRUCTURE_TYPE24753; t22730.s0.value.structure_type24753 = &t22731; /* x190855 */ t22730.s1.tag = NULL_TYPE; /* x190856 */ t22724.s1.tag = STRUCTURE_TYPE24753; t22724.s1.value.structure_type24753 = &t22730; /* x190857 */ t22723.s1.tag = STRUCTURE_TYPE24753; t22723.s1.value.structure_type24753 = &t22724; /* x190858 */ t22722.s0.tag = STRUCTURE_TYPE24753; t22722.s0.value.structure_type24753 = &t22723; /* x190859 */ t22722.s1.tag = NULL_TYPE; /* x190860 */ t22718.s1.tag = STRUCTURE_TYPE24753; t22718.s1.value.structure_type24753 = &t22722; /* x190861 */ t22717.s1.tag = STRUCTURE_TYPE24753; t22717.s1.value.structure_type24753 = &t22718; /* x190864 */ t22767.s0.tag = EXTERNAL_SYMBOL_TYPE; t22767.s0.value.external_symbol_type = q97; /* x190865 */ t22769.s0.tag = EXTERNAL_SYMBOL_TYPE; t22769.s0.value.external_symbol_type = q121; /* x190866 */ t22770.s0.tag = EXTERNAL_SYMBOL_TYPE; t22770.s0.value.external_symbol_type = q443; /* x190867 */ t22771.s0.tag = EXTERNAL_SYMBOL_TYPE; t22771.s0.value.external_symbol_type = q444; /* x190868 */ t22771.s1.tag = EXTERNAL_SYMBOL_TYPE; t22771.s1.value.external_symbol_type = q445; /* x190869 */ t22770.s1.tag = STRUCTURE_TYPE24753; t22770.s1.value.structure_type24753 = &t22771; /* x190870 */ t22769.s1.tag = STRUCTURE_TYPE24753; t22769.s1.value.structure_type24753 = &t22770; /* x190871 */ t22768.s0.tag = STRUCTURE_TYPE24753; t22768.s0.value.structure_type24753 = &t22769; /* x190872 */ t22773.s0.tag = EXTERNAL_SYMBOL_TYPE; t22773.s0.value.external_symbol_type = q244; /* x190873 */ t22776.s0.tag = EXTERNAL_SYMBOL_TYPE; t22776.s0.value.external_symbol_type = q77; /* x190874 */ t22777.s0.tag = EXTERNAL_SYMBOL_TYPE; t22777.s0.value.external_symbol_type = q121; /* x190875 */ t22777.s1.tag = NULL_TYPE; /* x190876 */ t22776.s1.tag = STRUCTURE_TYPE24753; t22776.s1.value.structure_type24753 = &t22777; /* x190877 */ t22775.s0.tag = STRUCTURE_TYPE24753; t22775.s0.value.structure_type24753 = &t22776; /* x190878 */ t22778.s0.tag = EXTERNAL_SYMBOL_TYPE; t22778.s0.value.external_symbol_type = q443; /* x190879 */ t22779.s0.tag = EXTERNAL_SYMBOL_TYPE; t22779.s0.value.external_symbol_type = q444; /* x190880 */ t22779.s1.tag = NULL_TYPE; /* x190881 */ t22778.s1.tag = STRUCTURE_TYPE24753; t22778.s1.value.structure_type24753 = &t22779; /* x190882 */ t22775.s1.tag = STRUCTURE_TYPE24753; t22775.s1.value.structure_type24753 = &t22778; /* x190883 */ t22774.s0.tag = STRUCTURE_TYPE24753; t22774.s0.value.structure_type24753 = &t22775; /* x190884 */ t22781.s0.tag = EXTERNAL_SYMBOL_TYPE; t22781.s0.value.external_symbol_type = q242; /* x190885 */ t22782.s0.tag = EXTERNAL_SYMBOL_TYPE; t22782.s0.value.external_symbol_type = q289; /* x190886 */ t22785.s0.tag = EXTERNAL_SYMBOL_TYPE; t22785.s0.value.external_symbol_type = q252; /* x190887 */ t22786.s0.tag = EXTERNAL_SYMBOL_TYPE; t22786.s0.value.external_symbol_type = q444; /* x190888 */ t22786.s1.tag = NULL_TYPE; /* x190889 */ t22785.s1.tag = STRUCTURE_TYPE24753; t22785.s1.value.structure_type24753 = &t22786; /* x190890 */ t22784.s0.tag = STRUCTURE_TYPE24753; t22784.s0.value.structure_type24753 = &t22785; /* x190891 */ t22788.s0.tag = EXTERNAL_SYMBOL_TYPE; t22788.s0.value.external_symbol_type = q445; /* x190892 */ t22789.s0.tag = EXTERNAL_SYMBOL_TYPE; t22789.s0.value.external_symbol_type = q445; /* x190893 */ t22789.s1.tag = NULL_TYPE; /* x190894 */ t22788.s1.tag = STRUCTURE_TYPE24753; t22788.s1.value.structure_type24753 = &t22789; /* x190895 */ t22787.s0.tag = STRUCTURE_TYPE24753; t22787.s0.value.structure_type24753 = &t22788; /* x190896 */ t22787.s1.tag = NULL_TYPE; /* x190897 */ t22784.s1.tag = STRUCTURE_TYPE24753; t22784.s1.value.structure_type24753 = &t22787; /* x190898 */ t22783.s0.tag = STRUCTURE_TYPE24753; t22783.s0.value.structure_type24753 = &t22784; /* x190899 */ t22791.s0.tag = EXTERNAL_SYMBOL_TYPE; t22791.s0.value.external_symbol_type = q241; /* x190900 */ t22793.s0.tag = EXTERNAL_SYMBOL_TYPE; t22793.s0.value.external_symbol_type = q111; /* x190901 */ t22794.s0.tag = EXTERNAL_SYMBOL_TYPE; t22794.s0.value.external_symbol_type = q445; /* x190902 */ t22794.s1.tag = NULL_TYPE; /* x190903 */ t22793.s1.tag = STRUCTURE_TYPE24753; t22793.s1.value.structure_type24753 = &t22794; /* x190904 */ t22792.s0.tag = STRUCTURE_TYPE24753; t22792.s0.value.structure_type24753 = &t22793; /* x190905 */ t22796.s0.tag = EXTERNAL_SYMBOL_TYPE; t22796.s0.value.external_symbol_type = q244; /* x190906 */ t22799.s0.tag = EXTERNAL_SYMBOL_TYPE; t22799.s0.value.external_symbol_type = q77; /* x190907 */ t22800.s0.tag = EXTERNAL_SYMBOL_TYPE; t22800.s0.value.external_symbol_type = q121; /* x190908 */ t22800.s1.tag = NULL_TYPE; /* x190909 */ t22799.s1.tag = STRUCTURE_TYPE24753; t22799.s1.value.structure_type24753 = &t22800; /* x190910 */ t22798.s0.tag = STRUCTURE_TYPE24753; t22798.s0.value.structure_type24753 = &t22799; /* x190911 */ t22801.s0.tag = EXTERNAL_SYMBOL_TYPE; t22801.s0.value.external_symbol_type = q252; /* x190912 */ t22803.s0.tag = EXTERNAL_SYMBOL_TYPE; t22803.s0.value.external_symbol_type = q107; /* x190913 */ t22804.s0.tag = EXTERNAL_SYMBOL_TYPE; t22804.s0.value.external_symbol_type = q445; /* x190914 */ t22804.s1.tag = NULL_TYPE; /* x190915 */ t22803.s1.tag = STRUCTURE_TYPE24753; t22803.s1.value.structure_type24753 = &t22804; /* x190916 */ t22802.s0.tag = STRUCTURE_TYPE24753; t22802.s0.value.structure_type24753 = &t22803; /* x190917 */ t22802.s1.tag = NULL_TYPE; /* x190918 */ t22801.s1.tag = STRUCTURE_TYPE24753; t22801.s1.value.structure_type24753 = &t22802; /* x190919 */ t22798.s1.tag = STRUCTURE_TYPE24753; t22798.s1.value.structure_type24753 = &t22801; /* x190920 */ t22797.s0.tag = STRUCTURE_TYPE24753; t22797.s0.value.structure_type24753 = &t22798; /* x190921 */ t22806.s0.tag = EXTERNAL_SYMBOL_TYPE; t22806.s0.value.external_symbol_type = q289; /* x190922 */ t22808.s0.tag = EXTERNAL_SYMBOL_TYPE; t22808.s0.value.external_symbol_type = q107; /* x190923 */ t22809.s0.tag = EXTERNAL_SYMBOL_TYPE; t22809.s0.value.external_symbol_type = q445; /* x190924 */ t22809.s1.tag = NULL_TYPE; /* x190925 */ t22808.s1.tag = STRUCTURE_TYPE24753; t22808.s1.value.structure_type24753 = &t22809; /* x190926 */ t22807.s0.tag = STRUCTURE_TYPE24753; t22807.s0.value.structure_type24753 = &t22808; /* x190927 */ t22811.s0.tag = EXTERNAL_SYMBOL_TYPE; t22811.s0.value.external_symbol_type = q108; /* x190928 */ t22812.s0.tag = EXTERNAL_SYMBOL_TYPE; t22812.s0.value.external_symbol_type = q445; /* x190929 */ t22812.s1.tag = NULL_TYPE; /* x190930 */ t22811.s1.tag = STRUCTURE_TYPE24753; t22811.s1.value.structure_type24753 = &t22812; /* x190931 */ t22810.s0.tag = STRUCTURE_TYPE24753; t22810.s0.value.structure_type24753 = &t22811; /* x190932 */ t22810.s1.tag = NULL_TYPE; /* x190933 */ t22807.s1.tag = STRUCTURE_TYPE24753; t22807.s1.value.structure_type24753 = &t22810; /* x190934 */ t22806.s1.tag = STRUCTURE_TYPE24753; t22806.s1.value.structure_type24753 = &t22807; /* x190935 */ t22805.s0.tag = STRUCTURE_TYPE24753; t22805.s0.value.structure_type24753 = &t22806; /* x190936 */ t22805.s1.tag = NULL_TYPE; /* x190937 */ t22797.s1.tag = STRUCTURE_TYPE24753; t22797.s1.value.structure_type24753 = &t22805; /* x190938 */ t22796.s1.tag = STRUCTURE_TYPE24753; t22796.s1.value.structure_type24753 = &t22797; /* x190939 */ t22795.s0.tag = STRUCTURE_TYPE24753; t22795.s0.value.structure_type24753 = &t22796; /* x190940 */ t22795.s1.tag = NULL_TYPE; /* x190941 */ t22792.s1.tag = STRUCTURE_TYPE24753; t22792.s1.value.structure_type24753 = &t22795; /* x190942 */ t22791.s1.tag = STRUCTURE_TYPE24753; t22791.s1.value.structure_type24753 = &t22792; /* x190943 */ t22790.s0.tag = STRUCTURE_TYPE24753; t22790.s0.value.structure_type24753 = &t22791; /* x190944 */ t22790.s1.tag = NULL_TYPE; /* x190945 */ t22783.s1.tag = STRUCTURE_TYPE24753; t22783.s1.value.structure_type24753 = &t22790; /* x190946 */ t22782.s1.tag = STRUCTURE_TYPE24753; t22782.s1.value.structure_type24753 = &t22783; /* x190947 */ t22781.s1.tag = STRUCTURE_TYPE24753; t22781.s1.value.structure_type24753 = &t22782; /* x190948 */ t22780.s0.tag = STRUCTURE_TYPE24753; t22780.s0.value.structure_type24753 = &t22781; /* x190949 */ t22780.s1.tag = NULL_TYPE; /* x190950 */ t22774.s1.tag = STRUCTURE_TYPE24753; t22774.s1.value.structure_type24753 = &t22780; /* x190951 */ t22773.s1.tag = STRUCTURE_TYPE24753; t22773.s1.value.structure_type24753 = &t22774; /* x190952 */ t22772.s0.tag = STRUCTURE_TYPE24753; t22772.s0.value.structure_type24753 = &t22773; /* x190953 */ t22772.s1.tag = NULL_TYPE; /* x190954 */ t22768.s1.tag = STRUCTURE_TYPE24753; t22768.s1.value.structure_type24753 = &t22772; /* x190955 */ t22767.s1.tag = STRUCTURE_TYPE24753; t22767.s1.value.structure_type24753 = &t22768; /* x190958 */ t22817.s0.tag = EXTERNAL_SYMBOL_TYPE; t22817.s0.value.external_symbol_type = q97; /* x190959 */ t22819.s0.tag = EXTERNAL_SYMBOL_TYPE; t22819.s0.value.external_symbol_type = q122; /* x190960 */ t22820.s0.tag = EXTERNAL_SYMBOL_TYPE; t22820.s0.value.external_symbol_type = q443; /* x190961 */ t22821.s0.tag = EXTERNAL_SYMBOL_TYPE; t22821.s0.value.external_symbol_type = q444; /* x190962 */ t22821.s1.tag = EXTERNAL_SYMBOL_TYPE; t22821.s1.value.external_symbol_type = q445; /* x190963 */ t22820.s1.tag = STRUCTURE_TYPE24753; t22820.s1.value.structure_type24753 = &t22821; /* x190964 */ t22819.s1.tag = STRUCTURE_TYPE24753; t22819.s1.value.structure_type24753 = &t22820; /* x190965 */ t22818.s0.tag = STRUCTURE_TYPE24753; t22818.s0.value.structure_type24753 = &t22819; /* x190966 */ t22823.s0.tag = EXTERNAL_SYMBOL_TYPE; t22823.s0.value.external_symbol_type = q244; /* x190967 */ t22826.s0.tag = EXTERNAL_SYMBOL_TYPE; t22826.s0.value.external_symbol_type = q77; /* x190968 */ t22827.s0.tag = EXTERNAL_SYMBOL_TYPE; t22827.s0.value.external_symbol_type = q122; /* x190969 */ t22827.s1.tag = NULL_TYPE; /* x190970 */ t22826.s1.tag = STRUCTURE_TYPE24753; t22826.s1.value.structure_type24753 = &t22827; /* x190971 */ t22825.s0.tag = STRUCTURE_TYPE24753; t22825.s0.value.structure_type24753 = &t22826; /* x190972 */ t22828.s0.tag = EXTERNAL_SYMBOL_TYPE; t22828.s0.value.external_symbol_type = q443; /* x190973 */ t22829.s0.tag = EXTERNAL_SYMBOL_TYPE; t22829.s0.value.external_symbol_type = q444; /* x190974 */ t22829.s1.tag = NULL_TYPE; /* x190975 */ t22828.s1.tag = STRUCTURE_TYPE24753; t22828.s1.value.structure_type24753 = &t22829; /* x190976 */ t22825.s1.tag = STRUCTURE_TYPE24753; t22825.s1.value.structure_type24753 = &t22828; /* x190977 */ t22824.s0.tag = STRUCTURE_TYPE24753; t22824.s0.value.structure_type24753 = &t22825; /* x190978 */ t22831.s0.tag = EXTERNAL_SYMBOL_TYPE; t22831.s0.value.external_symbol_type = q242; /* x190979 */ t22832.s0.tag = EXTERNAL_SYMBOL_TYPE; t22832.s0.value.external_symbol_type = q289; /* x190980 */ t22835.s0.tag = EXTERNAL_SYMBOL_TYPE; t22835.s0.value.external_symbol_type = q252; /* x190981 */ t22836.s0.tag = EXTERNAL_SYMBOL_TYPE; t22836.s0.value.external_symbol_type = q444; /* x190982 */ t22836.s1.tag = NULL_TYPE; /* x190983 */ t22835.s1.tag = STRUCTURE_TYPE24753; t22835.s1.value.structure_type24753 = &t22836; /* x190984 */ t22834.s0.tag = STRUCTURE_TYPE24753; t22834.s0.value.structure_type24753 = &t22835; /* x190985 */ t22838.s0.tag = EXTERNAL_SYMBOL_TYPE; t22838.s0.value.external_symbol_type = q445; /* x190986 */ t22839.s0.tag = EXTERNAL_SYMBOL_TYPE; t22839.s0.value.external_symbol_type = q445; /* x190987 */ t22839.s1.tag = NULL_TYPE; /* x190988 */ t22838.s1.tag = STRUCTURE_TYPE24753; t22838.s1.value.structure_type24753 = &t22839; /* x190989 */ t22837.s0.tag = STRUCTURE_TYPE24753; t22837.s0.value.structure_type24753 = &t22838; /* x190990 */ t22837.s1.tag = NULL_TYPE; /* x190991 */ t22834.s1.tag = STRUCTURE_TYPE24753; t22834.s1.value.structure_type24753 = &t22837; /* x190992 */ t22833.s0.tag = STRUCTURE_TYPE24753; t22833.s0.value.structure_type24753 = &t22834; /* x190993 */ t22841.s0.tag = EXTERNAL_SYMBOL_TYPE; t22841.s0.value.external_symbol_type = q241; /* x190994 */ t22843.s0.tag = EXTERNAL_SYMBOL_TYPE; t22843.s0.value.external_symbol_type = q111; /* x190995 */ t22844.s0.tag = EXTERNAL_SYMBOL_TYPE; t22844.s0.value.external_symbol_type = q445; /* x190996 */ t22844.s1.tag = NULL_TYPE; /* x190997 */ t22843.s1.tag = STRUCTURE_TYPE24753; t22843.s1.value.structure_type24753 = &t22844; /* x190998 */ t22842.s0.tag = STRUCTURE_TYPE24753; t22842.s0.value.structure_type24753 = &t22843; /* x190999 */ t22846.s0.tag = EXTERNAL_SYMBOL_TYPE; t22846.s0.value.external_symbol_type = q244; /* x191000 */ t22849.s0.tag = EXTERNAL_SYMBOL_TYPE; t22849.s0.value.external_symbol_type = q77; /* x191001 */ t22850.s0.tag = EXTERNAL_SYMBOL_TYPE; t22850.s0.value.external_symbol_type = q122; /* x191002 */ t22850.s1.tag = NULL_TYPE; /* x191003 */ t22849.s1.tag = STRUCTURE_TYPE24753; t22849.s1.value.structure_type24753 = &t22850; /* x191004 */ t22848.s0.tag = STRUCTURE_TYPE24753; t22848.s0.value.structure_type24753 = &t22849; /* x191005 */ t22851.s0.tag = EXTERNAL_SYMBOL_TYPE; t22851.s0.value.external_symbol_type = q252; /* x191006 */ t22853.s0.tag = EXTERNAL_SYMBOL_TYPE; t22853.s0.value.external_symbol_type = q107; /* x191007 */ t22854.s0.tag = EXTERNAL_SYMBOL_TYPE; t22854.s0.value.external_symbol_type = q445; /* x191008 */ t22854.s1.tag = NULL_TYPE; /* x191009 */ t22853.s1.tag = STRUCTURE_TYPE24753; t22853.s1.value.structure_type24753 = &t22854; /* x191010 */ t22852.s0.tag = STRUCTURE_TYPE24753; t22852.s0.value.structure_type24753 = &t22853; /* x191011 */ t22852.s1.tag = NULL_TYPE; /* x191012 */ t22851.s1.tag = STRUCTURE_TYPE24753; t22851.s1.value.structure_type24753 = &t22852; /* x191013 */ t22848.s1.tag = STRUCTURE_TYPE24753; t22848.s1.value.structure_type24753 = &t22851; /* x191014 */ t22847.s0.tag = STRUCTURE_TYPE24753; t22847.s0.value.structure_type24753 = &t22848; /* x191015 */ t22856.s0.tag = EXTERNAL_SYMBOL_TYPE; t22856.s0.value.external_symbol_type = q289; /* x191016 */ t22858.s0.tag = EXTERNAL_SYMBOL_TYPE; t22858.s0.value.external_symbol_type = q107; /* x191017 */ t22859.s0.tag = EXTERNAL_SYMBOL_TYPE; t22859.s0.value.external_symbol_type = q445; /* x191018 */ t22859.s1.tag = NULL_TYPE; /* x191019 */ t22858.s1.tag = STRUCTURE_TYPE24753; t22858.s1.value.structure_type24753 = &t22859; /* x191020 */ t22857.s0.tag = STRUCTURE_TYPE24753; t22857.s0.value.structure_type24753 = &t22858; /* x191021 */ t22861.s0.tag = EXTERNAL_SYMBOL_TYPE; t22861.s0.value.external_symbol_type = q108; /* x191022 */ t22862.s0.tag = EXTERNAL_SYMBOL_TYPE; t22862.s0.value.external_symbol_type = q445; /* x191023 */ t22862.s1.tag = NULL_TYPE; /* x191024 */ t22861.s1.tag = STRUCTURE_TYPE24753; t22861.s1.value.structure_type24753 = &t22862; /* x191025 */ t22860.s0.tag = STRUCTURE_TYPE24753; t22860.s0.value.structure_type24753 = &t22861; /* x191026 */ t22860.s1.tag = NULL_TYPE; /* x191027 */ t22857.s1.tag = STRUCTURE_TYPE24753; t22857.s1.value.structure_type24753 = &t22860; /* x191028 */ t22856.s1.tag = STRUCTURE_TYPE24753; t22856.s1.value.structure_type24753 = &t22857; /* x191029 */ t22855.s0.tag = STRUCTURE_TYPE24753; t22855.s0.value.structure_type24753 = &t22856; /* x191030 */ t22855.s1.tag = NULL_TYPE; /* x191031 */ t22847.s1.tag = STRUCTURE_TYPE24753; t22847.s1.value.structure_type24753 = &t22855; /* x191032 */ t22846.s1.tag = STRUCTURE_TYPE24753; t22846.s1.value.structure_type24753 = &t22847; /* x191033 */ t22845.s0.tag = STRUCTURE_TYPE24753; t22845.s0.value.structure_type24753 = &t22846; /* x191034 */ t22845.s1.tag = NULL_TYPE; /* x191035 */ t22842.s1.tag = STRUCTURE_TYPE24753; t22842.s1.value.structure_type24753 = &t22845; /* x191036 */ t22841.s1.tag = STRUCTURE_TYPE24753; t22841.s1.value.structure_type24753 = &t22842; /* x191037 */ t22840.s0.tag = STRUCTURE_TYPE24753; t22840.s0.value.structure_type24753 = &t22841; /* x191038 */ t22840.s1.tag = NULL_TYPE; /* x191039 */ t22833.s1.tag = STRUCTURE_TYPE24753; t22833.s1.value.structure_type24753 = &t22840; /* x191040 */ t22832.s1.tag = STRUCTURE_TYPE24753; t22832.s1.value.structure_type24753 = &t22833; /* x191041 */ t22831.s1.tag = STRUCTURE_TYPE24753; t22831.s1.value.structure_type24753 = &t22832; /* x191042 */ t22830.s0.tag = STRUCTURE_TYPE24753; t22830.s0.value.structure_type24753 = &t22831; /* x191043 */ t22830.s1.tag = NULL_TYPE; /* x191044 */ t22824.s1.tag = STRUCTURE_TYPE24753; t22824.s1.value.structure_type24753 = &t22830; /* x191045 */ t22823.s1.tag = STRUCTURE_TYPE24753; t22823.s1.value.structure_type24753 = &t22824; /* x191046 */ t22822.s0.tag = STRUCTURE_TYPE24753; t22822.s0.value.structure_type24753 = &t22823; /* x191047 */ t22822.s1.tag = NULL_TYPE; /* x191048 */ t22818.s1.tag = STRUCTURE_TYPE24753; t22818.s1.value.structure_type24753 = &t22822; /* x191049 */ t22817.s1.tag = STRUCTURE_TYPE24753; t22817.s1.value.structure_type24753 = &t22818; /* x191052 */ t22867.s0.tag = EXTERNAL_SYMBOL_TYPE; t22867.s0.value.external_symbol_type = q97; /* x191053 */ t22869.s0.tag = EXTERNAL_SYMBOL_TYPE; t22869.s0.value.external_symbol_type = q123; /* x191054 */ t22870.s0.tag = EXTERNAL_SYMBOL_TYPE; t22870.s0.value.external_symbol_type = q443; /* x191055 */ t22871.s0.tag = EXTERNAL_SYMBOL_TYPE; t22871.s0.value.external_symbol_type = q444; /* x191056 */ t22871.s1.tag = EXTERNAL_SYMBOL_TYPE; t22871.s1.value.external_symbol_type = q445; /* x191057 */ t22870.s1.tag = STRUCTURE_TYPE24753; t22870.s1.value.structure_type24753 = &t22871; /* x191058 */ t22869.s1.tag = STRUCTURE_TYPE24753; t22869.s1.value.structure_type24753 = &t22870; /* x191059 */ t22868.s0.tag = STRUCTURE_TYPE24753; t22868.s0.value.structure_type24753 = &t22869; /* x191060 */ t22873.s0.tag = EXTERNAL_SYMBOL_TYPE; t22873.s0.value.external_symbol_type = q244; /* x191061 */ t22876.s0.tag = EXTERNAL_SYMBOL_TYPE; t22876.s0.value.external_symbol_type = q77; /* x191062 */ t22877.s0.tag = EXTERNAL_SYMBOL_TYPE; t22877.s0.value.external_symbol_type = q123; /* x191063 */ t22877.s1.tag = NULL_TYPE; /* x191064 */ t22876.s1.tag = STRUCTURE_TYPE24753; t22876.s1.value.structure_type24753 = &t22877; /* x191065 */ t22875.s0.tag = STRUCTURE_TYPE24753; t22875.s0.value.structure_type24753 = &t22876; /* x191066 */ t22878.s0.tag = EXTERNAL_SYMBOL_TYPE; t22878.s0.value.external_symbol_type = q443; /* x191067 */ t22879.s0.tag = EXTERNAL_SYMBOL_TYPE; t22879.s0.value.external_symbol_type = q444; /* x191068 */ t22879.s1.tag = NULL_TYPE; /* x191069 */ t22878.s1.tag = STRUCTURE_TYPE24753; t22878.s1.value.structure_type24753 = &t22879; /* x191070 */ t22875.s1.tag = STRUCTURE_TYPE24753; t22875.s1.value.structure_type24753 = &t22878; /* x191071 */ t22874.s0.tag = STRUCTURE_TYPE24753; t22874.s0.value.structure_type24753 = &t22875; /* x191072 */ t22881.s0.tag = EXTERNAL_SYMBOL_TYPE; t22881.s0.value.external_symbol_type = q242; /* x191073 */ t22882.s0.tag = EXTERNAL_SYMBOL_TYPE; t22882.s0.value.external_symbol_type = q289; /* x191074 */ t22885.s0.tag = EXTERNAL_SYMBOL_TYPE; t22885.s0.value.external_symbol_type = q252; /* x191075 */ t22886.s0.tag = EXTERNAL_SYMBOL_TYPE; t22886.s0.value.external_symbol_type = q444; /* x191076 */ t22886.s1.tag = NULL_TYPE; /* x191077 */ t22885.s1.tag = STRUCTURE_TYPE24753; t22885.s1.value.structure_type24753 = &t22886; /* x191078 */ t22884.s0.tag = STRUCTURE_TYPE24753; t22884.s0.value.structure_type24753 = &t22885; /* x191079 */ t22888.s0.tag = EXTERNAL_SYMBOL_TYPE; t22888.s0.value.external_symbol_type = q445; /* x191080 */ t22889.s0.tag = EXTERNAL_SYMBOL_TYPE; t22889.s0.value.external_symbol_type = q445; /* x191081 */ t22889.s1.tag = NULL_TYPE; /* x191082 */ t22888.s1.tag = STRUCTURE_TYPE24753; t22888.s1.value.structure_type24753 = &t22889; /* x191083 */ t22887.s0.tag = STRUCTURE_TYPE24753; t22887.s0.value.structure_type24753 = &t22888; /* x191084 */ t22887.s1.tag = NULL_TYPE; /* x191085 */ t22884.s1.tag = STRUCTURE_TYPE24753; t22884.s1.value.structure_type24753 = &t22887; /* x191086 */ t22883.s0.tag = STRUCTURE_TYPE24753; t22883.s0.value.structure_type24753 = &t22884; /* x191087 */ t22891.s0.tag = EXTERNAL_SYMBOL_TYPE; t22891.s0.value.external_symbol_type = q241; /* x191088 */ t22893.s0.tag = EXTERNAL_SYMBOL_TYPE; t22893.s0.value.external_symbol_type = q111; /* x191089 */ t22894.s0.tag = EXTERNAL_SYMBOL_TYPE; t22894.s0.value.external_symbol_type = q445; /* x191090 */ t22894.s1.tag = NULL_TYPE; /* x191091 */ t22893.s1.tag = STRUCTURE_TYPE24753; t22893.s1.value.structure_type24753 = &t22894; /* x191092 */ t22892.s0.tag = STRUCTURE_TYPE24753; t22892.s0.value.structure_type24753 = &t22893; /* x191093 */ t22896.s0.tag = EXTERNAL_SYMBOL_TYPE; t22896.s0.value.external_symbol_type = q244; /* x191094 */ t22899.s0.tag = EXTERNAL_SYMBOL_TYPE; t22899.s0.value.external_symbol_type = q77; /* x191095 */ t22900.s0.tag = EXTERNAL_SYMBOL_TYPE; t22900.s0.value.external_symbol_type = q123; /* x191096 */ t22900.s1.tag = NULL_TYPE; /* x191097 */ t22899.s1.tag = STRUCTURE_TYPE24753; t22899.s1.value.structure_type24753 = &t22900; /* x191098 */ t22898.s0.tag = STRUCTURE_TYPE24753; t22898.s0.value.structure_type24753 = &t22899; /* x191099 */ t22901.s0.tag = EXTERNAL_SYMBOL_TYPE; t22901.s0.value.external_symbol_type = q252; /* x191100 */ t22903.s0.tag = EXTERNAL_SYMBOL_TYPE; t22903.s0.value.external_symbol_type = q107; /* x191101 */ t22904.s0.tag = EXTERNAL_SYMBOL_TYPE; t22904.s0.value.external_symbol_type = q445; /* x191102 */ t22904.s1.tag = NULL_TYPE; /* x191103 */ t22903.s1.tag = STRUCTURE_TYPE24753; t22903.s1.value.structure_type24753 = &t22904; /* x191104 */ t22902.s0.tag = STRUCTURE_TYPE24753; t22902.s0.value.structure_type24753 = &t22903; /* x191105 */ t22902.s1.tag = NULL_TYPE; /* x191106 */ t22901.s1.tag = STRUCTURE_TYPE24753; t22901.s1.value.structure_type24753 = &t22902; /* x191107 */ t22898.s1.tag = STRUCTURE_TYPE24753; t22898.s1.value.structure_type24753 = &t22901; /* x191108 */ t22897.s0.tag = STRUCTURE_TYPE24753; t22897.s0.value.structure_type24753 = &t22898; /* x191109 */ t22906.s0.tag = EXTERNAL_SYMBOL_TYPE; t22906.s0.value.external_symbol_type = q289; /* x191110 */ t22908.s0.tag = EXTERNAL_SYMBOL_TYPE; t22908.s0.value.external_symbol_type = q107; /* x191111 */ t22909.s0.tag = EXTERNAL_SYMBOL_TYPE; t22909.s0.value.external_symbol_type = q445; /* x191112 */ t22909.s1.tag = NULL_TYPE; /* x191113 */ t22908.s1.tag = STRUCTURE_TYPE24753; t22908.s1.value.structure_type24753 = &t22909; /* x191114 */ t22907.s0.tag = STRUCTURE_TYPE24753; t22907.s0.value.structure_type24753 = &t22908; /* x191115 */ t22911.s0.tag = EXTERNAL_SYMBOL_TYPE; t22911.s0.value.external_symbol_type = q108; /* x191116 */ t22912.s0.tag = EXTERNAL_SYMBOL_TYPE; t22912.s0.value.external_symbol_type = q445; /* x191117 */ t22912.s1.tag = NULL_TYPE; /* x191118 */ t22911.s1.tag = STRUCTURE_TYPE24753; t22911.s1.value.structure_type24753 = &t22912; /* x191119 */ t22910.s0.tag = STRUCTURE_TYPE24753; t22910.s0.value.structure_type24753 = &t22911; /* x191120 */ t22910.s1.tag = NULL_TYPE; /* x191121 */ t22907.s1.tag = STRUCTURE_TYPE24753; t22907.s1.value.structure_type24753 = &t22910; /* x191122 */ t22906.s1.tag = STRUCTURE_TYPE24753; t22906.s1.value.structure_type24753 = &t22907; /* x191123 */ t22905.s0.tag = STRUCTURE_TYPE24753; t22905.s0.value.structure_type24753 = &t22906; /* x191124 */ t22905.s1.tag = NULL_TYPE; /* x191125 */ t22897.s1.tag = STRUCTURE_TYPE24753; t22897.s1.value.structure_type24753 = &t22905; /* x191126 */ t22896.s1.tag = STRUCTURE_TYPE24753; t22896.s1.value.structure_type24753 = &t22897; /* x191127 */ t22895.s0.tag = STRUCTURE_TYPE24753; t22895.s0.value.structure_type24753 = &t22896; /* x191128 */ t22895.s1.tag = NULL_TYPE; /* x191129 */ t22892.s1.tag = STRUCTURE_TYPE24753; t22892.s1.value.structure_type24753 = &t22895; /* x191130 */ t22891.s1.tag = STRUCTURE_TYPE24753; t22891.s1.value.structure_type24753 = &t22892; /* x191131 */ t22890.s0.tag = STRUCTURE_TYPE24753; t22890.s0.value.structure_type24753 = &t22891; /* x191132 */ t22890.s1.tag = NULL_TYPE; /* x191133 */ t22883.s1.tag = STRUCTURE_TYPE24753; t22883.s1.value.structure_type24753 = &t22890; /* x191134 */ t22882.s1.tag = STRUCTURE_TYPE24753; t22882.s1.value.structure_type24753 = &t22883; /* x191135 */ t22881.s1.tag = STRUCTURE_TYPE24753; t22881.s1.value.structure_type24753 = &t22882; /* x191136 */ t22880.s0.tag = STRUCTURE_TYPE24753; t22880.s0.value.structure_type24753 = &t22881; /* x191137 */ t22880.s1.tag = NULL_TYPE; /* x191138 */ t22874.s1.tag = STRUCTURE_TYPE24753; t22874.s1.value.structure_type24753 = &t22880; /* x191139 */ t22873.s1.tag = STRUCTURE_TYPE24753; t22873.s1.value.structure_type24753 = &t22874; /* x191140 */ t22872.s0.tag = STRUCTURE_TYPE24753; t22872.s0.value.structure_type24753 = &t22873; /* x191141 */ t22872.s1.tag = NULL_TYPE; /* x191142 */ t22868.s1.tag = STRUCTURE_TYPE24753; t22868.s1.value.structure_type24753 = &t22872; /* x191143 */ t22867.s1.tag = STRUCTURE_TYPE24753; t22867.s1.value.structure_type24753 = &t22868; /* x191146 */ t22917.s0.tag = EXTERNAL_SYMBOL_TYPE; t22917.s0.value.external_symbol_type = q97; /* x191147 */ t22919.s0.tag = EXTERNAL_SYMBOL_TYPE; t22919.s0.value.external_symbol_type = q124; /* x191148 */ t22920.s0.tag = EXTERNAL_SYMBOL_TYPE; t22920.s0.value.external_symbol_type = q443; /* x191149 */ t22921.s0.tag = EXTERNAL_SYMBOL_TYPE; t22921.s0.value.external_symbol_type = q444; /* x191150 */ t22921.s1.tag = EXTERNAL_SYMBOL_TYPE; t22921.s1.value.external_symbol_type = q445; /* x191151 */ t22920.s1.tag = STRUCTURE_TYPE24753; t22920.s1.value.structure_type24753 = &t22921; /* x191152 */ t22919.s1.tag = STRUCTURE_TYPE24753; t22919.s1.value.structure_type24753 = &t22920; /* x191153 */ t22918.s0.tag = STRUCTURE_TYPE24753; t22918.s0.value.structure_type24753 = &t22919; /* x191154 */ t22923.s0.tag = EXTERNAL_SYMBOL_TYPE; t22923.s0.value.external_symbol_type = q244; /* x191155 */ t22926.s0.tag = EXTERNAL_SYMBOL_TYPE; t22926.s0.value.external_symbol_type = q77; /* x191156 */ t22927.s0.tag = EXTERNAL_SYMBOL_TYPE; t22927.s0.value.external_symbol_type = q124; /* x191157 */ t22927.s1.tag = NULL_TYPE; /* x191158 */ t22926.s1.tag = STRUCTURE_TYPE24753; t22926.s1.value.structure_type24753 = &t22927; /* x191159 */ t22925.s0.tag = STRUCTURE_TYPE24753; t22925.s0.value.structure_type24753 = &t22926; /* x191160 */ t22928.s0.tag = EXTERNAL_SYMBOL_TYPE; t22928.s0.value.external_symbol_type = q443; /* x191161 */ t22929.s0.tag = EXTERNAL_SYMBOL_TYPE; t22929.s0.value.external_symbol_type = q444; /* x191162 */ t22929.s1.tag = NULL_TYPE; /* x191163 */ t22928.s1.tag = STRUCTURE_TYPE24753; t22928.s1.value.structure_type24753 = &t22929; /* x191164 */ t22925.s1.tag = STRUCTURE_TYPE24753; t22925.s1.value.structure_type24753 = &t22928; /* x191165 */ t22924.s0.tag = STRUCTURE_TYPE24753; t22924.s0.value.structure_type24753 = &t22925; /* x191166 */ t22931.s0.tag = EXTERNAL_SYMBOL_TYPE; t22931.s0.value.external_symbol_type = q242; /* x191167 */ t22932.s0.tag = EXTERNAL_SYMBOL_TYPE; t22932.s0.value.external_symbol_type = q289; /* x191168 */ t22935.s0.tag = EXTERNAL_SYMBOL_TYPE; t22935.s0.value.external_symbol_type = q252; /* x191169 */ t22936.s0.tag = EXTERNAL_SYMBOL_TYPE; t22936.s0.value.external_symbol_type = q444; /* x191170 */ t22936.s1.tag = NULL_TYPE; /* x191171 */ t22935.s1.tag = STRUCTURE_TYPE24753; t22935.s1.value.structure_type24753 = &t22936; /* x191172 */ t22934.s0.tag = STRUCTURE_TYPE24753; t22934.s0.value.structure_type24753 = &t22935; /* x191173 */ t22938.s0.tag = EXTERNAL_SYMBOL_TYPE; t22938.s0.value.external_symbol_type = q445; /* x191174 */ t22939.s0.tag = EXTERNAL_SYMBOL_TYPE; t22939.s0.value.external_symbol_type = q445; /* x191175 */ t22939.s1.tag = NULL_TYPE; /* x191176 */ t22938.s1.tag = STRUCTURE_TYPE24753; t22938.s1.value.structure_type24753 = &t22939; /* x191177 */ t22937.s0.tag = STRUCTURE_TYPE24753; t22937.s0.value.structure_type24753 = &t22938; /* x191178 */ t22937.s1.tag = NULL_TYPE; /* x191179 */ t22934.s1.tag = STRUCTURE_TYPE24753; t22934.s1.value.structure_type24753 = &t22937; /* x191180 */ t22933.s0.tag = STRUCTURE_TYPE24753; t22933.s0.value.structure_type24753 = &t22934; /* x191181 */ t22941.s0.tag = EXTERNAL_SYMBOL_TYPE; t22941.s0.value.external_symbol_type = q241; /* x191182 */ t22943.s0.tag = EXTERNAL_SYMBOL_TYPE; t22943.s0.value.external_symbol_type = q111; /* x191183 */ t22944.s0.tag = EXTERNAL_SYMBOL_TYPE; t22944.s0.value.external_symbol_type = q445; /* x191184 */ t22944.s1.tag = NULL_TYPE; /* x191185 */ t22943.s1.tag = STRUCTURE_TYPE24753; t22943.s1.value.structure_type24753 = &t22944; /* x191186 */ t22942.s0.tag = STRUCTURE_TYPE24753; t22942.s0.value.structure_type24753 = &t22943; /* x191187 */ t22946.s0.tag = EXTERNAL_SYMBOL_TYPE; t22946.s0.value.external_symbol_type = q244; /* x191188 */ t22949.s0.tag = EXTERNAL_SYMBOL_TYPE; t22949.s0.value.external_symbol_type = q77; /* x191189 */ t22950.s0.tag = EXTERNAL_SYMBOL_TYPE; t22950.s0.value.external_symbol_type = q124; /* x191190 */ t22950.s1.tag = NULL_TYPE; /* x191191 */ t22949.s1.tag = STRUCTURE_TYPE24753; t22949.s1.value.structure_type24753 = &t22950; /* x191192 */ t22948.s0.tag = STRUCTURE_TYPE24753; t22948.s0.value.structure_type24753 = &t22949; /* x191193 */ t22951.s0.tag = EXTERNAL_SYMBOL_TYPE; t22951.s0.value.external_symbol_type = q252; /* x191194 */ t22953.s0.tag = EXTERNAL_SYMBOL_TYPE; t22953.s0.value.external_symbol_type = q107; /* x191195 */ t22954.s0.tag = EXTERNAL_SYMBOL_TYPE; t22954.s0.value.external_symbol_type = q445; /* x191196 */ t22954.s1.tag = NULL_TYPE; /* x191197 */ t22953.s1.tag = STRUCTURE_TYPE24753; t22953.s1.value.structure_type24753 = &t22954; /* x191198 */ t22952.s0.tag = STRUCTURE_TYPE24753; t22952.s0.value.structure_type24753 = &t22953; /* x191199 */ t22952.s1.tag = NULL_TYPE; /* x191200 */ t22951.s1.tag = STRUCTURE_TYPE24753; t22951.s1.value.structure_type24753 = &t22952; /* x191201 */ t22948.s1.tag = STRUCTURE_TYPE24753; t22948.s1.value.structure_type24753 = &t22951; /* x191202 */ t22947.s0.tag = STRUCTURE_TYPE24753; t22947.s0.value.structure_type24753 = &t22948; /* x191203 */ t22956.s0.tag = EXTERNAL_SYMBOL_TYPE; t22956.s0.value.external_symbol_type = q289; /* x191204 */ t22958.s0.tag = EXTERNAL_SYMBOL_TYPE; t22958.s0.value.external_symbol_type = q107; /* x191205 */ t22959.s0.tag = EXTERNAL_SYMBOL_TYPE; t22959.s0.value.external_symbol_type = q445; /* x191206 */ t22959.s1.tag = NULL_TYPE; /* x191207 */ t22958.s1.tag = STRUCTURE_TYPE24753; t22958.s1.value.structure_type24753 = &t22959; /* x191208 */ t22957.s0.tag = STRUCTURE_TYPE24753; t22957.s0.value.structure_type24753 = &t22958; /* x191209 */ t22961.s0.tag = EXTERNAL_SYMBOL_TYPE; t22961.s0.value.external_symbol_type = q108; /* x191210 */ t22962.s0.tag = EXTERNAL_SYMBOL_TYPE; t22962.s0.value.external_symbol_type = q445; /* x191211 */ t22962.s1.tag = NULL_TYPE; /* x191212 */ t22961.s1.tag = STRUCTURE_TYPE24753; t22961.s1.value.structure_type24753 = &t22962; /* x191213 */ t22960.s0.tag = STRUCTURE_TYPE24753; t22960.s0.value.structure_type24753 = &t22961; /* x191214 */ t22960.s1.tag = NULL_TYPE; /* x191215 */ t22957.s1.tag = STRUCTURE_TYPE24753; t22957.s1.value.structure_type24753 = &t22960; /* x191216 */ t22956.s1.tag = STRUCTURE_TYPE24753; t22956.s1.value.structure_type24753 = &t22957; /* x191217 */ t22955.s0.tag = STRUCTURE_TYPE24753; t22955.s0.value.structure_type24753 = &t22956; /* x191218 */ t22955.s1.tag = NULL_TYPE; /* x191219 */ t22947.s1.tag = STRUCTURE_TYPE24753; t22947.s1.value.structure_type24753 = &t22955; /* x191220 */ t22946.s1.tag = STRUCTURE_TYPE24753; t22946.s1.value.structure_type24753 = &t22947; /* x191221 */ t22945.s0.tag = STRUCTURE_TYPE24753; t22945.s0.value.structure_type24753 = &t22946; /* x191222 */ t22945.s1.tag = NULL_TYPE; /* x191223 */ t22942.s1.tag = STRUCTURE_TYPE24753; t22942.s1.value.structure_type24753 = &t22945; /* x191224 */ t22941.s1.tag = STRUCTURE_TYPE24753; t22941.s1.value.structure_type24753 = &t22942; /* x191225 */ t22940.s0.tag = STRUCTURE_TYPE24753; t22940.s0.value.structure_type24753 = &t22941; /* x191226 */ t22940.s1.tag = NULL_TYPE; /* x191227 */ t22933.s1.tag = STRUCTURE_TYPE24753; t22933.s1.value.structure_type24753 = &t22940; /* x191228 */ t22932.s1.tag = STRUCTURE_TYPE24753; t22932.s1.value.structure_type24753 = &t22933; /* x191229 */ t22931.s1.tag = STRUCTURE_TYPE24753; t22931.s1.value.structure_type24753 = &t22932; /* x191230 */ t22930.s0.tag = STRUCTURE_TYPE24753; t22930.s0.value.structure_type24753 = &t22931; /* x191231 */ t22930.s1.tag = NULL_TYPE; /* x191232 */ t22924.s1.tag = STRUCTURE_TYPE24753; t22924.s1.value.structure_type24753 = &t22930; /* x191233 */ t22923.s1.tag = STRUCTURE_TYPE24753; t22923.s1.value.structure_type24753 = &t22924; /* x191234 */ t22922.s0.tag = STRUCTURE_TYPE24753; t22922.s0.value.structure_type24753 = &t22923; /* x191235 */ t22922.s1.tag = NULL_TYPE; /* x191236 */ t22918.s1.tag = STRUCTURE_TYPE24753; t22918.s1.value.structure_type24753 = &t22922; /* x191237 */ t22917.s1.tag = STRUCTURE_TYPE24753; t22917.s1.value.structure_type24753 = &t22918; /* x191240 */ t22967.s0.tag = EXTERNAL_SYMBOL_TYPE; t22967.s0.value.external_symbol_type = q97; /* x191241 */ t22969.s0.tag = EXTERNAL_SYMBOL_TYPE; t22969.s0.value.external_symbol_type = q125; /* x191242 */ t22970.s0.tag = EXTERNAL_SYMBOL_TYPE; t22970.s0.value.external_symbol_type = q439; /* x191243 */ t22970.s1.tag = NULL_TYPE; /* x191244 */ t22969.s1.tag = STRUCTURE_TYPE24753; t22969.s1.value.structure_type24753 = &t22970; /* x191245 */ t22968.s0.tag = STRUCTURE_TYPE24753; t22968.s0.value.structure_type24753 = &t22969; /* x191246 */ t22973.s0.tag = EXTERNAL_SYMBOL_TYPE; t22973.s0.value.external_symbol_type = q77; /* x191247 */ t22974.s0.tag = EXTERNAL_SYMBOL_TYPE; t22974.s0.value.external_symbol_type = q125; /* x191248 */ t22974.s1.tag = NULL_TYPE; /* x191249 */ t22973.s1.tag = STRUCTURE_TYPE24753; t22973.s1.value.structure_type24753 = &t22974; /* x191250 */ t22972.s0.tag = STRUCTURE_TYPE24753; t22972.s0.value.structure_type24753 = &t22973; /* x191251 */ t22975.s0.tag = EXTERNAL_SYMBOL_TYPE; t22975.s0.value.external_symbol_type = q439; /* x191252 */ t22975.s1.tag = NULL_TYPE; /* x191253 */ t22972.s1.tag = STRUCTURE_TYPE24753; t22972.s1.value.structure_type24753 = &t22975; /* x191254 */ t22971.s0.tag = STRUCTURE_TYPE24753; t22971.s0.value.structure_type24753 = &t22972; /* x191255 */ t22971.s1.tag = NULL_TYPE; /* x191256 */ t22968.s1.tag = STRUCTURE_TYPE24753; t22968.s1.value.structure_type24753 = &t22971; /* x191257 */ t22967.s1.tag = STRUCTURE_TYPE24753; t22967.s1.value.structure_type24753 = &t22968; /* x191260 */ t22980.s0.tag = EXTERNAL_SYMBOL_TYPE; t22980.s0.value.external_symbol_type = q97; /* x191261 */ t22982.s0.tag = EXTERNAL_SYMBOL_TYPE; t22982.s0.value.external_symbol_type = q126; /* x191262 */ t22983.s0.tag = EXTERNAL_SYMBOL_TYPE; t22983.s0.value.external_symbol_type = q252; /* x191263 */ t22983.s1.tag = NULL_TYPE; /* x191264 */ t22982.s1.tag = STRUCTURE_TYPE24753; t22982.s1.value.structure_type24753 = &t22983; /* x191265 */ t22981.s0.tag = STRUCTURE_TYPE24753; t22981.s0.value.structure_type24753 = &t22982; /* x191266 */ t22986.s0.tag = EXTERNAL_SYMBOL_TYPE; t22986.s0.value.external_symbol_type = q77; /* x191267 */ t22987.s0.tag = EXTERNAL_SYMBOL_TYPE; t22987.s0.value.external_symbol_type = q126; /* x191268 */ t22987.s1.tag = NULL_TYPE; /* x191269 */ t22986.s1.tag = STRUCTURE_TYPE24753; t22986.s1.value.structure_type24753 = &t22987; /* x191270 */ t22985.s0.tag = STRUCTURE_TYPE24753; t22985.s0.value.structure_type24753 = &t22986; /* x191271 */ t22988.s0.tag = EXTERNAL_SYMBOL_TYPE; t22988.s0.value.external_symbol_type = q252; /* x191272 */ t22988.s1.tag = NULL_TYPE; /* x191273 */ t22985.s1.tag = STRUCTURE_TYPE24753; t22985.s1.value.structure_type24753 = &t22988; /* x191274 */ t22984.s0.tag = STRUCTURE_TYPE24753; t22984.s0.value.structure_type24753 = &t22985; /* x191275 */ t22984.s1.tag = NULL_TYPE; /* x191276 */ t22981.s1.tag = STRUCTURE_TYPE24753; t22981.s1.value.structure_type24753 = &t22984; /* x191277 */ t22980.s1.tag = STRUCTURE_TYPE24753; t22980.s1.value.structure_type24753 = &t22981; /* x191280 */ t22993.s0.tag = EXTERNAL_SYMBOL_TYPE; t22993.s0.value.external_symbol_type = q97; /* x191281 */ t22995.s0.tag = EXTERNAL_SYMBOL_TYPE; t22995.s0.value.external_symbol_type = q127; /* x191282 */ t22996.s0.tag = EXTERNAL_SYMBOL_TYPE; t22996.s0.value.external_symbol_type = q252; /* x191283 */ t22996.s1.tag = NULL_TYPE; /* x191284 */ t22995.s1.tag = STRUCTURE_TYPE24753; t22995.s1.value.structure_type24753 = &t22996; /* x191285 */ t22994.s0.tag = STRUCTURE_TYPE24753; t22994.s0.value.structure_type24753 = &t22995; /* x191286 */ t22999.s0.tag = EXTERNAL_SYMBOL_TYPE; t22999.s0.value.external_symbol_type = q77; /* x191287 */ t23000.s0.tag = EXTERNAL_SYMBOL_TYPE; t23000.s0.value.external_symbol_type = q127; /* x191288 */ t23000.s1.tag = NULL_TYPE; /* x191289 */ t22999.s1.tag = STRUCTURE_TYPE24753; t22999.s1.value.structure_type24753 = &t23000; /* x191290 */ t22998.s0.tag = STRUCTURE_TYPE24753; t22998.s0.value.structure_type24753 = &t22999; /* x191291 */ t23001.s0.tag = EXTERNAL_SYMBOL_TYPE; t23001.s0.value.external_symbol_type = q252; /* x191292 */ t23001.s1.tag = NULL_TYPE; /* x191293 */ t22998.s1.tag = STRUCTURE_TYPE24753; t22998.s1.value.structure_type24753 = &t23001; /* x191294 */ t22997.s0.tag = STRUCTURE_TYPE24753; t22997.s0.value.structure_type24753 = &t22998; /* x191295 */ t22997.s1.tag = NULL_TYPE; /* x191296 */ t22994.s1.tag = STRUCTURE_TYPE24753; t22994.s1.value.structure_type24753 = &t22997; /* x191297 */ t22993.s1.tag = STRUCTURE_TYPE24753; t22993.s1.value.structure_type24753 = &t22994; /* x191300 */ t23006.s0.tag = EXTERNAL_SYMBOL_TYPE; t23006.s0.value.external_symbol_type = q97; /* x191301 */ t23008.s0.tag = EXTERNAL_SYMBOL_TYPE; t23008.s0.value.external_symbol_type = q446; /* x191302 */ t23009.s0.tag = EXTERNAL_SYMBOL_TYPE; t23009.s0.value.external_symbol_type = q260; /* x191303 */ t23009.s1.tag = NULL_TYPE; /* x191304 */ t23008.s1.tag = STRUCTURE_TYPE24753; t23008.s1.value.structure_type24753 = &t23009; /* x191305 */ t23007.s0.tag = STRUCTURE_TYPE24753; t23007.s0.value.structure_type24753 = &t23008; /* x191306 */ t23011.s0.tag = EXTERNAL_SYMBOL_TYPE; t23011.s0.value.external_symbol_type = q102; /* x191307 */ t23013.s0.tag = EXTERNAL_SYMBOL_TYPE; t23013.s0.value.external_symbol_type = q447; /* x191308 */ t23014.s0.tag = EXTERNAL_SYMBOL_TYPE; t23014.s0.value.external_symbol_type = q260; /* x191309 */ t23014.s1.tag = NULL_TYPE; /* x191310 */ t23013.s1.tag = STRUCTURE_TYPE24753; t23013.s1.value.structure_type24753 = &t23014; /* x191311 */ t23012.s0.tag = STRUCTURE_TYPE24753; t23012.s0.value.structure_type24753 = &t23013; /* x191312 */ t23012.s1.tag = NULL_TYPE; /* x191313 */ t23011.s1.tag = STRUCTURE_TYPE24753; t23011.s1.value.structure_type24753 = &t23012; /* x191314 */ t23010.s0.tag = STRUCTURE_TYPE24753; t23010.s0.value.structure_type24753 = &t23011; /* x191315 */ t23010.s1.tag = NULL_TYPE; /* x191316 */ t23007.s1.tag = STRUCTURE_TYPE24753; t23007.s1.value.structure_type24753 = &t23010; /* x191317 */ t23006.s1.tag = STRUCTURE_TYPE24753; t23006.s1.value.structure_type24753 = &t23007; /* x191320 */ t23019.s0.tag = EXTERNAL_SYMBOL_TYPE; t23019.s0.value.external_symbol_type = q97; /* x191321 */ t23021.s0.tag = EXTERNAL_SYMBOL_TYPE; t23021.s0.value.external_symbol_type = q447; /* x191322 */ t23022.s0.tag = EXTERNAL_SYMBOL_TYPE; t23022.s0.value.external_symbol_type = q260; /* x191323 */ t23022.s1.tag = NULL_TYPE; /* x191324 */ t23021.s1.tag = STRUCTURE_TYPE24753; t23021.s1.value.structure_type24753 = &t23022; /* x191325 */ t23020.s0.tag = STRUCTURE_TYPE24753; t23020.s0.value.structure_type24753 = &t23021; /* x191326 */ t23024.s0.tag = EXTERNAL_SYMBOL_TYPE; t23024.s0.value.external_symbol_type = q125; /* x191327 */ t23026.s0.tag = EXTERNAL_SYMBOL_TYPE; t23026.s0.value.external_symbol_type = q133; /* x191328 */ t23027.s0.tag = EXTERNAL_SYMBOL_TYPE; t23027.s0.value.external_symbol_type = q260; /* x191329 */ t23028.s0.tag = FIXNUM_TYPE; t23028.s0.value.fixnum_type = 2; /* x191330 */ t23028.s1.tag = NULL_TYPE; /* x191331 */ t23027.s1.tag = STRUCTURE_TYPE24753; t23027.s1.value.structure_type24753 = &t23028; /* x191332 */ t23026.s1.tag = STRUCTURE_TYPE24753; t23026.s1.value.structure_type24753 = &t23027; /* x191333 */ t23025.s0.tag = STRUCTURE_TYPE24753; t23025.s0.value.structure_type24753 = &t23026; /* x191334 */ t23025.s1.tag = NULL_TYPE; /* x191335 */ t23024.s1.tag = STRUCTURE_TYPE24753; t23024.s1.value.structure_type24753 = &t23025; /* x191336 */ t23023.s0.tag = STRUCTURE_TYPE24753; t23023.s0.value.structure_type24753 = &t23024; /* x191337 */ t23023.s1.tag = NULL_TYPE; /* x191338 */ t23020.s1.tag = STRUCTURE_TYPE24753; t23020.s1.value.structure_type24753 = &t23023; /* x191339 */ t23019.s1.tag = STRUCTURE_TYPE24753; t23019.s1.value.structure_type24753 = &t23020; /* x191342 */ t23033.s0.tag = EXTERNAL_SYMBOL_TYPE; t23033.s0.value.external_symbol_type = q97; /* x191343 */ t23035.s0.tag = EXTERNAL_SYMBOL_TYPE; t23035.s0.value.external_symbol_type = q128; /* x191344 */ t23036.s0.tag = EXTERNAL_SYMBOL_TYPE; t23036.s0.value.external_symbol_type = q252; /* x191345 */ t23036.s1.tag = EXTERNAL_SYMBOL_TYPE; t23036.s1.value.external_symbol_type = q445; /* x191346 */ t23035.s1.tag = STRUCTURE_TYPE24753; t23035.s1.value.structure_type24753 = &t23036; /* x191347 */ t23034.s0.tag = STRUCTURE_TYPE24753; t23034.s0.value.structure_type24753 = &t23035; /* x191348 */ t23038.s0.tag = EXTERNAL_SYMBOL_TYPE; t23038.s0.value.external_symbol_type = q43; /* x191349 */ t23040.s0.tag = EXTERNAL_SYMBOL_TYPE; t23040.s0.value.external_symbol_type = q111; /* x191350 */ t23041.s0.tag = EXTERNAL_SYMBOL_TYPE; t23041.s0.value.external_symbol_type = q445; /* x191351 */ t23041.s1.tag = NULL_TYPE; /* x191352 */ t23040.s1.tag = STRUCTURE_TYPE24753; t23040.s1.value.structure_type24753 = &t23041; /* x191353 */ t23039.s0.tag = STRUCTURE_TYPE24753; t23039.s0.value.structure_type24753 = &t23040; /* x191354 */ t23044.s0.tag = EXTERNAL_SYMBOL_TYPE; t23044.s0.value.external_symbol_type = q77; /* x191355 */ t23045.s0.tag = EXTERNAL_SYMBOL_TYPE; t23045.s0.value.external_symbol_type = q128; /* x191356 */ t23045.s1.tag = NULL_TYPE; /* x191357 */ t23044.s1.tag = STRUCTURE_TYPE24753; t23044.s1.value.structure_type24753 = &t23045; /* x191358 */ t23043.s0.tag = STRUCTURE_TYPE24753; t23043.s0.value.structure_type24753 = &t23044; /* x191359 */ t23046.s0.tag = EXTERNAL_SYMBOL_TYPE; t23046.s0.value.external_symbol_type = q252; /* x191360 */ t23046.s1.tag = NULL_TYPE; /* x191361 */ t23043.s1.tag = STRUCTURE_TYPE24753; t23043.s1.value.structure_type24753 = &t23046; /* x191362 */ t23042.s0.tag = STRUCTURE_TYPE24753; t23042.s0.value.structure_type24753 = &t23043; /* x191363 */ t23048.s0.tag = EXTERNAL_SYMBOL_TYPE; t23048.s0.value.external_symbol_type = q242; /* x191364 */ t23049.s0.tag = EXTERNAL_SYMBOL_TYPE; t23049.s0.value.external_symbol_type = q287; /* x191365 */ t23052.s0.tag = EXTERNAL_SYMBOL_TYPE; t23052.s0.value.external_symbol_type = q445; /* x191366 */ t23054.s0.tag = EXTERNAL_SYMBOL_TYPE; t23054.s0.value.external_symbol_type = q108; /* x191367 */ t23055.s0.tag = EXTERNAL_SYMBOL_TYPE; t23055.s0.value.external_symbol_type = q445; /* x191368 */ t23055.s1.tag = NULL_TYPE; /* x191369 */ t23054.s1.tag = STRUCTURE_TYPE24753; t23054.s1.value.structure_type24753 = &t23055; /* x191370 */ t23053.s0.tag = STRUCTURE_TYPE24753; t23053.s0.value.structure_type24753 = &t23054; /* x191371 */ t23053.s1.tag = NULL_TYPE; /* x191372 */ t23052.s1.tag = STRUCTURE_TYPE24753; t23052.s1.value.structure_type24753 = &t23053; /* x191373 */ t23051.s0.tag = STRUCTURE_TYPE24753; t23051.s0.value.structure_type24753 = &t23052; /* x191374 */ t23057.s0.tag = EXTERNAL_SYMBOL_TYPE; t23057.s0.value.external_symbol_type = q409; /* x191375 */ t23060.s0.tag = EXTERNAL_SYMBOL_TYPE; t23060.s0.value.external_symbol_type = q77; /* x191376 */ t23061.s0.tag = EXTERNAL_SYMBOL_TYPE; t23061.s0.value.external_symbol_type = q128; /* x191377 */ t23061.s1.tag = NULL_TYPE; /* x191378 */ t23060.s1.tag = STRUCTURE_TYPE24753; t23060.s1.value.structure_type24753 = &t23061; /* x191379 */ t23059.s0.tag = STRUCTURE_TYPE24753; t23059.s0.value.structure_type24753 = &t23060; /* x191380 */ t23062.s0.tag = EXTERNAL_SYMBOL_TYPE; t23062.s0.value.external_symbol_type = q252; /* x191381 */ t23064.s0.tag = EXTERNAL_SYMBOL_TYPE; t23064.s0.value.external_symbol_type = q107; /* x191382 */ t23065.s0.tag = EXTERNAL_SYMBOL_TYPE; t23065.s0.value.external_symbol_type = q445; /* x191383 */ t23065.s1.tag = NULL_TYPE; /* x191384 */ t23064.s1.tag = STRUCTURE_TYPE24753; t23064.s1.value.structure_type24753 = &t23065; /* x191385 */ t23063.s0.tag = STRUCTURE_TYPE24753; t23063.s0.value.structure_type24753 = &t23064; /* x191386 */ t23063.s1.tag = NULL_TYPE; /* x191387 */ t23062.s1.tag = STRUCTURE_TYPE24753; t23062.s1.value.structure_type24753 = &t23063; /* x191388 */ t23059.s1.tag = STRUCTURE_TYPE24753; t23059.s1.value.structure_type24753 = &t23062; /* x191389 */ t23058.s0.tag = STRUCTURE_TYPE24753; t23058.s0.value.structure_type24753 = &t23059; /* x191390 */ t23058.s1.tag = NULL_TYPE; /* x191391 */ t23057.s1.tag = STRUCTURE_TYPE24753; t23057.s1.value.structure_type24753 = &t23058; /* x191392 */ t23056.s0.tag = STRUCTURE_TYPE24753; t23056.s0.value.structure_type24753 = &t23057; /* x191393 */ t23056.s1.tag = NULL_TYPE; /* x191394 */ t23051.s1.tag = STRUCTURE_TYPE24753; t23051.s1.value.structure_type24753 = &t23056; /* x191395 */ t23050.s0.tag = STRUCTURE_TYPE24753; t23050.s0.value.structure_type24753 = &t23051; /* x191396 */ t23067.s0.tag = EXTERNAL_SYMBOL_TYPE; t23067.s0.value.external_symbol_type = q43; /* x191397 */ t23069.s0.tag = EXTERNAL_SYMBOL_TYPE; t23069.s0.value.external_symbol_type = q111; /* x191398 */ t23070.s0.tag = EXTERNAL_SYMBOL_TYPE; t23070.s0.value.external_symbol_type = q445; /* x191399 */ t23070.s1.tag = NULL_TYPE; /* x191400 */ t23069.s1.tag = STRUCTURE_TYPE24753; t23069.s1.value.structure_type24753 = &t23070; /* x191401 */ t23068.s0.tag = STRUCTURE_TYPE24753; t23068.s0.value.structure_type24753 = &t23069; /* x191402 */ t23071.s0.tag = EXTERNAL_SYMBOL_TYPE; t23071.s0.value.external_symbol_type = q409; /* x191403 */ t23073.s0.tag = EXTERNAL_SYMBOL_TYPE; t23073.s0.value.external_symbol_type = q287; /* x191404 */ t23075.s0.tag = EXTERNAL_SYMBOL_TYPE; t23075.s0.value.external_symbol_type = q108; /* x191405 */ t23076.s0.tag = EXTERNAL_SYMBOL_TYPE; t23076.s0.value.external_symbol_type = q445; /* x191406 */ t23076.s1.tag = NULL_TYPE; /* x191407 */ t23075.s1.tag = STRUCTURE_TYPE24753; t23075.s1.value.structure_type24753 = &t23076; /* x191408 */ t23074.s0.tag = STRUCTURE_TYPE24753; t23074.s0.value.structure_type24753 = &t23075; /* x191409 */ t23079.s0.tag = EXTERNAL_SYMBOL_TYPE; t23079.s0.value.external_symbol_type = q77; /* x191410 */ t23080.s0.tag = EXTERNAL_SYMBOL_TYPE; t23080.s0.value.external_symbol_type = q128; /* x191411 */ t23080.s1.tag = NULL_TYPE; /* x191412 */ t23079.s1.tag = STRUCTURE_TYPE24753; t23079.s1.value.structure_type24753 = &t23080; /* x191413 */ t23078.s0.tag = STRUCTURE_TYPE24753; t23078.s0.value.structure_type24753 = &t23079; /* x191414 */ t23081.s0.tag = EXTERNAL_SYMBOL_TYPE; t23081.s0.value.external_symbol_type = q409; /* x191415 */ t23083.s0.tag = EXTERNAL_SYMBOL_TYPE; t23083.s0.value.external_symbol_type = q107; /* x191416 */ t23084.s0.tag = EXTERNAL_SYMBOL_TYPE; t23084.s0.value.external_symbol_type = q445; /* x191417 */ t23084.s1.tag = NULL_TYPE; /* x191418 */ t23083.s1.tag = STRUCTURE_TYPE24753; t23083.s1.value.structure_type24753 = &t23084; /* x191419 */ t23082.s0.tag = STRUCTURE_TYPE24753; t23082.s0.value.structure_type24753 = &t23083; /* x191420 */ t23082.s1.tag = NULL_TYPE; /* x191421 */ t23081.s1.tag = STRUCTURE_TYPE24753; t23081.s1.value.structure_type24753 = &t23082; /* x191422 */ t23078.s1.tag = STRUCTURE_TYPE24753; t23078.s1.value.structure_type24753 = &t23081; /* x191423 */ t23077.s0.tag = STRUCTURE_TYPE24753; t23077.s0.value.structure_type24753 = &t23078; /* x191424 */ t23077.s1.tag = NULL_TYPE; /* x191425 */ t23074.s1.tag = STRUCTURE_TYPE24753; t23074.s1.value.structure_type24753 = &t23077; /* x191426 */ t23073.s1.tag = STRUCTURE_TYPE24753; t23073.s1.value.structure_type24753 = &t23074; /* x191427 */ t23072.s0.tag = STRUCTURE_TYPE24753; t23072.s0.value.structure_type24753 = &t23073; /* x191428 */ t23072.s1.tag = NULL_TYPE; /* x191429 */ t23071.s1.tag = STRUCTURE_TYPE24753; t23071.s1.value.structure_type24753 = &t23072; /* x191430 */ t23068.s1.tag = STRUCTURE_TYPE24753; t23068.s1.value.structure_type24753 = &t23071; /* x191431 */ t23067.s1.tag = STRUCTURE_TYPE24753; t23067.s1.value.structure_type24753 = &t23068; /* x191432 */ t23066.s0.tag = STRUCTURE_TYPE24753; t23066.s0.value.structure_type24753 = &t23067; /* x191433 */ t23066.s1.tag = NULL_TYPE; /* x191434 */ t23050.s1.tag = STRUCTURE_TYPE24753; t23050.s1.value.structure_type24753 = &t23066; /* x191435 */ t23049.s1.tag = STRUCTURE_TYPE24753; t23049.s1.value.structure_type24753 = &t23050; /* x191436 */ t23048.s1.tag = STRUCTURE_TYPE24753; t23048.s1.value.structure_type24753 = &t23049; /* x191437 */ t23047.s0.tag = STRUCTURE_TYPE24753; t23047.s0.value.structure_type24753 = &t23048; /* x191438 */ t23047.s1.tag = NULL_TYPE; /* x191439 */ t23042.s1.tag = STRUCTURE_TYPE24753; t23042.s1.value.structure_type24753 = &t23047; /* x191440 */ t23039.s1.tag = STRUCTURE_TYPE24753; t23039.s1.value.structure_type24753 = &t23042; /* x191441 */ t23038.s1.tag = STRUCTURE_TYPE24753; t23038.s1.value.structure_type24753 = &t23039; /* x191442 */ t23037.s0.tag = STRUCTURE_TYPE24753; t23037.s0.value.structure_type24753 = &t23038; /* x191443 */ t23037.s1.tag = NULL_TYPE; /* x191444 */ t23034.s1.tag = STRUCTURE_TYPE24753; t23034.s1.value.structure_type24753 = &t23037; /* x191445 */ t23033.s1.tag = STRUCTURE_TYPE24753; t23033.s1.value.structure_type24753 = &t23034; /* x191448 */ t23089.s0.tag = EXTERNAL_SYMBOL_TYPE; t23089.s0.value.external_symbol_type = q97; /* x191449 */ t23091.s0.tag = EXTERNAL_SYMBOL_TYPE; t23091.s0.value.external_symbol_type = q129; /* x191450 */ t23092.s0.tag = EXTERNAL_SYMBOL_TYPE; t23092.s0.value.external_symbol_type = q252; /* x191451 */ t23092.s1.tag = EXTERNAL_SYMBOL_TYPE; t23092.s1.value.external_symbol_type = q445; /* x191452 */ t23091.s1.tag = STRUCTURE_TYPE24753; t23091.s1.value.structure_type24753 = &t23092; /* x191453 */ t23090.s0.tag = STRUCTURE_TYPE24753; t23090.s0.value.structure_type24753 = &t23091; /* x191454 */ t23094.s0.tag = EXTERNAL_SYMBOL_TYPE; t23094.s0.value.external_symbol_type = q43; /* x191455 */ t23096.s0.tag = EXTERNAL_SYMBOL_TYPE; t23096.s0.value.external_symbol_type = q111; /* x191456 */ t23097.s0.tag = EXTERNAL_SYMBOL_TYPE; t23097.s0.value.external_symbol_type = q445; /* x191457 */ t23097.s1.tag = NULL_TYPE; /* x191458 */ t23096.s1.tag = STRUCTURE_TYPE24753; t23096.s1.value.structure_type24753 = &t23097; /* x191459 */ t23095.s0.tag = STRUCTURE_TYPE24753; t23095.s0.value.structure_type24753 = &t23096; /* x191460 */ t23100.s0.tag = EXTERNAL_SYMBOL_TYPE; t23100.s0.value.external_symbol_type = q77; /* x191461 */ t23101.s0.tag = EXTERNAL_SYMBOL_TYPE; t23101.s0.value.external_symbol_type = q129; /* x191462 */ t23101.s1.tag = NULL_TYPE; /* x191463 */ t23100.s1.tag = STRUCTURE_TYPE24753; t23100.s1.value.structure_type24753 = &t23101; /* x191464 */ t23099.s0.tag = STRUCTURE_TYPE24753; t23099.s0.value.structure_type24753 = &t23100; /* x191465 */ t23102.s0.tag = EXTERNAL_SYMBOL_TYPE; t23102.s0.value.external_symbol_type = q252; /* x191466 */ t23102.s1.tag = NULL_TYPE; /* x191467 */ t23099.s1.tag = STRUCTURE_TYPE24753; t23099.s1.value.structure_type24753 = &t23102; /* x191468 */ t23098.s0.tag = STRUCTURE_TYPE24753; t23098.s0.value.structure_type24753 = &t23099; /* x191469 */ t23104.s0.tag = EXTERNAL_SYMBOL_TYPE; t23104.s0.value.external_symbol_type = q242; /* x191470 */ t23105.s0.tag = EXTERNAL_SYMBOL_TYPE; t23105.s0.value.external_symbol_type = q287; /* x191471 */ t23108.s0.tag = EXTERNAL_SYMBOL_TYPE; t23108.s0.value.external_symbol_type = q445; /* x191472 */ t23110.s0.tag = EXTERNAL_SYMBOL_TYPE; t23110.s0.value.external_symbol_type = q108; /* x191473 */ t23111.s0.tag = EXTERNAL_SYMBOL_TYPE; t23111.s0.value.external_symbol_type = q445; /* x191474 */ t23111.s1.tag = NULL_TYPE; /* x191475 */ t23110.s1.tag = STRUCTURE_TYPE24753; t23110.s1.value.structure_type24753 = &t23111; /* x191476 */ t23109.s0.tag = STRUCTURE_TYPE24753; t23109.s0.value.structure_type24753 = &t23110; /* x191477 */ t23109.s1.tag = NULL_TYPE; /* x191478 */ t23108.s1.tag = STRUCTURE_TYPE24753; t23108.s1.value.structure_type24753 = &t23109; /* x191479 */ t23107.s0.tag = STRUCTURE_TYPE24753; t23107.s0.value.structure_type24753 = &t23108; /* x191480 */ t23113.s0.tag = EXTERNAL_SYMBOL_TYPE; t23113.s0.value.external_symbol_type = q409; /* x191481 */ t23116.s0.tag = EXTERNAL_SYMBOL_TYPE; t23116.s0.value.external_symbol_type = q77; /* x191482 */ t23117.s0.tag = EXTERNAL_SYMBOL_TYPE; t23117.s0.value.external_symbol_type = q129; /* x191483 */ t23117.s1.tag = NULL_TYPE; /* x191484 */ t23116.s1.tag = STRUCTURE_TYPE24753; t23116.s1.value.structure_type24753 = &t23117; /* x191485 */ t23115.s0.tag = STRUCTURE_TYPE24753; t23115.s0.value.structure_type24753 = &t23116; /* x191486 */ t23118.s0.tag = EXTERNAL_SYMBOL_TYPE; t23118.s0.value.external_symbol_type = q252; /* x191487 */ t23120.s0.tag = EXTERNAL_SYMBOL_TYPE; t23120.s0.value.external_symbol_type = q107; /* x191488 */ t23121.s0.tag = EXTERNAL_SYMBOL_TYPE; t23121.s0.value.external_symbol_type = q445; /* x191489 */ t23121.s1.tag = NULL_TYPE; /* x191490 */ t23120.s1.tag = STRUCTURE_TYPE24753; t23120.s1.value.structure_type24753 = &t23121; /* x191491 */ t23119.s0.tag = STRUCTURE_TYPE24753; t23119.s0.value.structure_type24753 = &t23120; /* x191492 */ t23119.s1.tag = NULL_TYPE; /* x191493 */ t23118.s1.tag = STRUCTURE_TYPE24753; t23118.s1.value.structure_type24753 = &t23119; /* x191494 */ t23115.s1.tag = STRUCTURE_TYPE24753; t23115.s1.value.structure_type24753 = &t23118; /* x191495 */ t23114.s0.tag = STRUCTURE_TYPE24753; t23114.s0.value.structure_type24753 = &t23115; /* x191496 */ t23114.s1.tag = NULL_TYPE; /* x191497 */ t23113.s1.tag = STRUCTURE_TYPE24753; t23113.s1.value.structure_type24753 = &t23114; /* x191498 */ t23112.s0.tag = STRUCTURE_TYPE24753; t23112.s0.value.structure_type24753 = &t23113; /* x191499 */ t23112.s1.tag = NULL_TYPE; /* x191500 */ t23107.s1.tag = STRUCTURE_TYPE24753; t23107.s1.value.structure_type24753 = &t23112; /* x191501 */ t23106.s0.tag = STRUCTURE_TYPE24753; t23106.s0.value.structure_type24753 = &t23107; /* x191502 */ t23123.s0.tag = EXTERNAL_SYMBOL_TYPE; t23123.s0.value.external_symbol_type = q43; /* x191503 */ t23125.s0.tag = EXTERNAL_SYMBOL_TYPE; t23125.s0.value.external_symbol_type = q111; /* x191504 */ t23126.s0.tag = EXTERNAL_SYMBOL_TYPE; t23126.s0.value.external_symbol_type = q445; /* x191505 */ t23126.s1.tag = NULL_TYPE; /* x191506 */ t23125.s1.tag = STRUCTURE_TYPE24753; t23125.s1.value.structure_type24753 = &t23126; /* x191507 */ t23124.s0.tag = STRUCTURE_TYPE24753; t23124.s0.value.structure_type24753 = &t23125; /* x191508 */ t23127.s0.tag = EXTERNAL_SYMBOL_TYPE; t23127.s0.value.external_symbol_type = q409; /* x191509 */ t23129.s0.tag = EXTERNAL_SYMBOL_TYPE; t23129.s0.value.external_symbol_type = q287; /* x191510 */ t23131.s0.tag = EXTERNAL_SYMBOL_TYPE; t23131.s0.value.external_symbol_type = q108; /* x191511 */ t23132.s0.tag = EXTERNAL_SYMBOL_TYPE; t23132.s0.value.external_symbol_type = q445; /* x191512 */ t23132.s1.tag = NULL_TYPE; /* x191513 */ t23131.s1.tag = STRUCTURE_TYPE24753; t23131.s1.value.structure_type24753 = &t23132; /* x191514 */ t23130.s0.tag = STRUCTURE_TYPE24753; t23130.s0.value.structure_type24753 = &t23131; /* x191515 */ t23135.s0.tag = EXTERNAL_SYMBOL_TYPE; t23135.s0.value.external_symbol_type = q77; /* x191516 */ t23136.s0.tag = EXTERNAL_SYMBOL_TYPE; t23136.s0.value.external_symbol_type = q129; /* x191517 */ t23136.s1.tag = NULL_TYPE; /* x191518 */ t23135.s1.tag = STRUCTURE_TYPE24753; t23135.s1.value.structure_type24753 = &t23136; /* x191519 */ t23134.s0.tag = STRUCTURE_TYPE24753; t23134.s0.value.structure_type24753 = &t23135; /* x191520 */ t23137.s0.tag = EXTERNAL_SYMBOL_TYPE; t23137.s0.value.external_symbol_type = q409; /* x191521 */ t23139.s0.tag = EXTERNAL_SYMBOL_TYPE; t23139.s0.value.external_symbol_type = q107; /* x191522 */ t23140.s0.tag = EXTERNAL_SYMBOL_TYPE; t23140.s0.value.external_symbol_type = q445; /* x191523 */ t23140.s1.tag = NULL_TYPE; /* x191524 */ t23139.s1.tag = STRUCTURE_TYPE24753; t23139.s1.value.structure_type24753 = &t23140; /* x191525 */ t23138.s0.tag = STRUCTURE_TYPE24753; t23138.s0.value.structure_type24753 = &t23139; /* x191526 */ t23138.s1.tag = NULL_TYPE; /* x191527 */ t23137.s1.tag = STRUCTURE_TYPE24753; t23137.s1.value.structure_type24753 = &t23138; /* x191528 */ t23134.s1.tag = STRUCTURE_TYPE24753; t23134.s1.value.structure_type24753 = &t23137; /* x191529 */ t23133.s0.tag = STRUCTURE_TYPE24753; t23133.s0.value.structure_type24753 = &t23134; /* x191530 */ t23133.s1.tag = NULL_TYPE; /* x191531 */ t23130.s1.tag = STRUCTURE_TYPE24753; t23130.s1.value.structure_type24753 = &t23133; /* x191532 */ t23129.s1.tag = STRUCTURE_TYPE24753; t23129.s1.value.structure_type24753 = &t23130; /* x191533 */ t23128.s0.tag = STRUCTURE_TYPE24753; t23128.s0.value.structure_type24753 = &t23129; /* x191534 */ t23128.s1.tag = NULL_TYPE; /* x191535 */ t23127.s1.tag = STRUCTURE_TYPE24753; t23127.s1.value.structure_type24753 = &t23128; /* x191536 */ t23124.s1.tag = STRUCTURE_TYPE24753; t23124.s1.value.structure_type24753 = &t23127; /* x191537 */ t23123.s1.tag = STRUCTURE_TYPE24753; t23123.s1.value.structure_type24753 = &t23124; /* x191538 */ t23122.s0.tag = STRUCTURE_TYPE24753; t23122.s0.value.structure_type24753 = &t23123; /* x191539 */ t23122.s1.tag = NULL_TYPE; /* x191540 */ t23106.s1.tag = STRUCTURE_TYPE24753; t23106.s1.value.structure_type24753 = &t23122; /* x191541 */ t23105.s1.tag = STRUCTURE_TYPE24753; t23105.s1.value.structure_type24753 = &t23106; /* x191542 */ t23104.s1.tag = STRUCTURE_TYPE24753; t23104.s1.value.structure_type24753 = &t23105; /* x191543 */ t23103.s0.tag = STRUCTURE_TYPE24753; t23103.s0.value.structure_type24753 = &t23104; /* x191544 */ t23103.s1.tag = NULL_TYPE; /* x191545 */ t23098.s1.tag = STRUCTURE_TYPE24753; t23098.s1.value.structure_type24753 = &t23103; /* x191546 */ t23095.s1.tag = STRUCTURE_TYPE24753; t23095.s1.value.structure_type24753 = &t23098; /* x191547 */ t23094.s1.tag = STRUCTURE_TYPE24753; t23094.s1.value.structure_type24753 = &t23095; /* x191548 */ t23093.s0.tag = STRUCTURE_TYPE24753; t23093.s0.value.structure_type24753 = &t23094; /* x191549 */ t23093.s1.tag = NULL_TYPE; /* x191550 */ t23090.s1.tag = STRUCTURE_TYPE24753; t23090.s1.value.structure_type24753 = &t23093; /* x191551 */ t23089.s1.tag = STRUCTURE_TYPE24753; t23089.s1.value.structure_type24753 = &t23090; /* x191554 */ t23145.s0.tag = EXTERNAL_SYMBOL_TYPE; t23145.s0.value.external_symbol_type = q97; /* x191555 */ t23147.s0.tag = EXTERNAL_SYMBOL_TYPE; t23147.s0.value.external_symbol_type = q4; /* x191556 */ t23147.s1.tag = EXTERNAL_SYMBOL_TYPE; t23147.s1.value.external_symbol_type = q442; /* x191557 */ t23146.s0.tag = STRUCTURE_TYPE24753; t23146.s0.value.structure_type24753 = &t23147; /* x191558 */ t23149.s0.tag = EXTERNAL_SYMBOL_TYPE; t23149.s0.value.external_symbol_type = q43; /* x191559 */ t23151.s0.tag = EXTERNAL_SYMBOL_TYPE; t23151.s0.value.external_symbol_type = q111; /* x191560 */ t23152.s0.tag = EXTERNAL_SYMBOL_TYPE; t23152.s0.value.external_symbol_type = q442; /* x191561 */ t23152.s1.tag = NULL_TYPE; /* x191562 */ t23151.s1.tag = STRUCTURE_TYPE24753; t23151.s1.value.structure_type24753 = &t23152; /* x191563 */ t23150.s0.tag = STRUCTURE_TYPE24753; t23150.s0.value.structure_type24753 = &t23151; /* x191564 */ t23155.s0.tag = EXTERNAL_SYMBOL_TYPE; t23155.s0.value.external_symbol_type = q77; /* x191565 */ t23156.s0.tag = EXTERNAL_SYMBOL_TYPE; t23156.s0.value.external_symbol_type = q4; /* x191566 */ t23156.s1.tag = NULL_TYPE; /* x191567 */ t23155.s1.tag = STRUCTURE_TYPE24753; t23155.s1.value.structure_type24753 = &t23156; /* x191568 */ t23154.s0.tag = STRUCTURE_TYPE24753; t23154.s0.value.structure_type24753 = &t23155; /* x191569 */ t23154.s1.tag = NULL_TYPE; /* x191570 */ t23153.s0.tag = STRUCTURE_TYPE24753; t23153.s0.value.structure_type24753 = &t23154; /* x191571 */ t23158.s0.tag = EXTERNAL_SYMBOL_TYPE; t23158.s0.value.external_symbol_type = q242; /* x191572 */ t23159.s0.tag = EXTERNAL_SYMBOL_TYPE; t23159.s0.value.external_symbol_type = q287; /* x191573 */ t23162.s0.tag = EXTERNAL_SYMBOL_TYPE; t23162.s0.value.external_symbol_type = q442; /* x191574 */ t23164.s0.tag = EXTERNAL_SYMBOL_TYPE; t23164.s0.value.external_symbol_type = q108; /* x191575 */ t23165.s0.tag = EXTERNAL_SYMBOL_TYPE; t23165.s0.value.external_symbol_type = q442; /* x191576 */ t23165.s1.tag = NULL_TYPE; /* x191577 */ t23164.s1.tag = STRUCTURE_TYPE24753; t23164.s1.value.structure_type24753 = &t23165; /* x191578 */ t23163.s0.tag = STRUCTURE_TYPE24753; t23163.s0.value.structure_type24753 = &t23164; /* x191579 */ t23163.s1.tag = NULL_TYPE; /* x191580 */ t23162.s1.tag = STRUCTURE_TYPE24753; t23162.s1.value.structure_type24753 = &t23163; /* x191581 */ t23161.s0.tag = STRUCTURE_TYPE24753; t23161.s0.value.structure_type24753 = &t23162; /* x191582 */ t23167.s0.tag = EXTERNAL_SYMBOL_TYPE; t23167.s0.value.external_symbol_type = q409; /* x191583 */ t23170.s0.tag = EXTERNAL_SYMBOL_TYPE; t23170.s0.value.external_symbol_type = q77; /* x191584 */ t23171.s0.tag = EXTERNAL_SYMBOL_TYPE; t23171.s0.value.external_symbol_type = q4; /* x191585 */ t23171.s1.tag = NULL_TYPE; /* x191586 */ t23170.s1.tag = STRUCTURE_TYPE24753; t23170.s1.value.structure_type24753 = &t23171; /* x191587 */ t23169.s0.tag = STRUCTURE_TYPE24753; t23169.s0.value.structure_type24753 = &t23170; /* x191588 */ t23173.s0.tag = EXTERNAL_SYMBOL_TYPE; t23173.s0.value.external_symbol_type = q107; /* x191589 */ t23174.s0.tag = EXTERNAL_SYMBOL_TYPE; t23174.s0.value.external_symbol_type = q442; /* x191590 */ t23174.s1.tag = NULL_TYPE; /* x191591 */ t23173.s1.tag = STRUCTURE_TYPE24753; t23173.s1.value.structure_type24753 = &t23174; /* x191592 */ t23172.s0.tag = STRUCTURE_TYPE24753; t23172.s0.value.structure_type24753 = &t23173; /* x191593 */ t23172.s1.tag = NULL_TYPE; /* x191594 */ t23169.s1.tag = STRUCTURE_TYPE24753; t23169.s1.value.structure_type24753 = &t23172; /* x191595 */ t23168.s0.tag = STRUCTURE_TYPE24753; t23168.s0.value.structure_type24753 = &t23169; /* x191596 */ t23168.s1.tag = NULL_TYPE; /* x191597 */ t23167.s1.tag = STRUCTURE_TYPE24753; t23167.s1.value.structure_type24753 = &t23168; /* x191598 */ t23166.s0.tag = STRUCTURE_TYPE24753; t23166.s0.value.structure_type24753 = &t23167; /* x191599 */ t23166.s1.tag = NULL_TYPE; /* x191600 */ t23161.s1.tag = STRUCTURE_TYPE24753; t23161.s1.value.structure_type24753 = &t23166; /* x191601 */ t23160.s0.tag = STRUCTURE_TYPE24753; t23160.s0.value.structure_type24753 = &t23161; /* x191602 */ t23176.s0.tag = EXTERNAL_SYMBOL_TYPE; t23176.s0.value.external_symbol_type = q43; /* x191603 */ t23178.s0.tag = EXTERNAL_SYMBOL_TYPE; t23178.s0.value.external_symbol_type = q111; /* x191604 */ t23179.s0.tag = EXTERNAL_SYMBOL_TYPE; t23179.s0.value.external_symbol_type = q442; /* x191605 */ t23179.s1.tag = NULL_TYPE; /* x191606 */ t23178.s1.tag = STRUCTURE_TYPE24753; t23178.s1.value.structure_type24753 = &t23179; /* x191607 */ t23177.s0.tag = STRUCTURE_TYPE24753; t23177.s0.value.structure_type24753 = &t23178; /* x191608 */ t23180.s0.tag = EXTERNAL_SYMBOL_TYPE; t23180.s0.value.external_symbol_type = q409; /* x191609 */ t23182.s0.tag = EXTERNAL_SYMBOL_TYPE; t23182.s0.value.external_symbol_type = q287; /* x191610 */ t23184.s0.tag = EXTERNAL_SYMBOL_TYPE; t23184.s0.value.external_symbol_type = q108; /* x191611 */ t23185.s0.tag = EXTERNAL_SYMBOL_TYPE; t23185.s0.value.external_symbol_type = q442; /* x191612 */ t23185.s1.tag = NULL_TYPE; /* x191613 */ t23184.s1.tag = STRUCTURE_TYPE24753; t23184.s1.value.structure_type24753 = &t23185; /* x191614 */ t23183.s0.tag = STRUCTURE_TYPE24753; t23183.s0.value.structure_type24753 = &t23184; /* x191615 */ t23188.s0.tag = EXTERNAL_SYMBOL_TYPE; t23188.s0.value.external_symbol_type = q77; /* x191616 */ t23189.s0.tag = EXTERNAL_SYMBOL_TYPE; t23189.s0.value.external_symbol_type = q4; /* x191617 */ t23189.s1.tag = NULL_TYPE; /* x191618 */ t23188.s1.tag = STRUCTURE_TYPE24753; t23188.s1.value.structure_type24753 = &t23189; /* x191619 */ t23187.s0.tag = STRUCTURE_TYPE24753; t23187.s0.value.structure_type24753 = &t23188; /* x191620 */ t23190.s0.tag = EXTERNAL_SYMBOL_TYPE; t23190.s0.value.external_symbol_type = q409; /* x191621 */ t23192.s0.tag = EXTERNAL_SYMBOL_TYPE; t23192.s0.value.external_symbol_type = q107; /* x191622 */ t23193.s0.tag = EXTERNAL_SYMBOL_TYPE; t23193.s0.value.external_symbol_type = q442; /* x191623 */ t23193.s1.tag = NULL_TYPE; /* x191624 */ t23192.s1.tag = STRUCTURE_TYPE24753; t23192.s1.value.structure_type24753 = &t23193; /* x191625 */ t23191.s0.tag = STRUCTURE_TYPE24753; t23191.s0.value.structure_type24753 = &t23192; /* x191626 */ t23191.s1.tag = NULL_TYPE; /* x191627 */ t23190.s1.tag = STRUCTURE_TYPE24753; t23190.s1.value.structure_type24753 = &t23191; /* x191628 */ t23187.s1.tag = STRUCTURE_TYPE24753; t23187.s1.value.structure_type24753 = &t23190; /* x191629 */ t23186.s0.tag = STRUCTURE_TYPE24753; t23186.s0.value.structure_type24753 = &t23187; /* x191630 */ t23186.s1.tag = NULL_TYPE; /* x191631 */ t23183.s1.tag = STRUCTURE_TYPE24753; t23183.s1.value.structure_type24753 = &t23186; /* x191632 */ t23182.s1.tag = STRUCTURE_TYPE24753; t23182.s1.value.structure_type24753 = &t23183; /* x191633 */ t23181.s0.tag = STRUCTURE_TYPE24753; t23181.s0.value.structure_type24753 = &t23182; /* x191634 */ t23181.s1.tag = NULL_TYPE; /* x191635 */ t23180.s1.tag = STRUCTURE_TYPE24753; t23180.s1.value.structure_type24753 = &t23181; /* x191636 */ t23177.s1.tag = STRUCTURE_TYPE24753; t23177.s1.value.structure_type24753 = &t23180; /* x191637 */ t23176.s1.tag = STRUCTURE_TYPE24753; t23176.s1.value.structure_type24753 = &t23177; /* x191638 */ t23175.s0.tag = STRUCTURE_TYPE24753; t23175.s0.value.structure_type24753 = &t23176; /* x191639 */ t23175.s1.tag = NULL_TYPE; /* x191640 */ t23160.s1.tag = STRUCTURE_TYPE24753; t23160.s1.value.structure_type24753 = &t23175; /* x191641 */ t23159.s1.tag = STRUCTURE_TYPE24753; t23159.s1.value.structure_type24753 = &t23160; /* x191642 */ t23158.s1.tag = STRUCTURE_TYPE24753; t23158.s1.value.structure_type24753 = &t23159; /* x191643 */ t23157.s0.tag = STRUCTURE_TYPE24753; t23157.s0.value.structure_type24753 = &t23158; /* x191644 */ t23157.s1.tag = NULL_TYPE; /* x191645 */ t23153.s1.tag = STRUCTURE_TYPE24753; t23153.s1.value.structure_type24753 = &t23157; /* x191646 */ t23150.s1.tag = STRUCTURE_TYPE24753; t23150.s1.value.structure_type24753 = &t23153; /* x191647 */ t23149.s1.tag = STRUCTURE_TYPE24753; t23149.s1.value.structure_type24753 = &t23150; /* x191648 */ t23148.s0.tag = STRUCTURE_TYPE24753; t23148.s0.value.structure_type24753 = &t23149; /* x191649 */ t23148.s1.tag = NULL_TYPE; /* x191650 */ t23146.s1.tag = STRUCTURE_TYPE24753; t23146.s1.value.structure_type24753 = &t23148; /* x191651 */ t23145.s1.tag = STRUCTURE_TYPE24753; t23145.s1.value.structure_type24753 = &t23146; /* x191654 */ t23198.s0.tag = EXTERNAL_SYMBOL_TYPE; t23198.s0.value.external_symbol_type = q97; /* x191655 */ t23200.s0.tag = EXTERNAL_SYMBOL_TYPE; t23200.s0.value.external_symbol_type = q130; /* x191656 */ t23200.s1.tag = EXTERNAL_SYMBOL_TYPE; t23200.s1.value.external_symbol_type = q442; /* x191657 */ t23199.s0.tag = STRUCTURE_TYPE24753; t23199.s0.value.structure_type24753 = &t23200; /* x191658 */ t23202.s0.tag = EXTERNAL_SYMBOL_TYPE; t23202.s0.value.external_symbol_type = q43; /* x191659 */ t23204.s0.tag = EXTERNAL_SYMBOL_TYPE; t23204.s0.value.external_symbol_type = q111; /* x191660 */ t23205.s0.tag = EXTERNAL_SYMBOL_TYPE; t23205.s0.value.external_symbol_type = q442; /* x191661 */ t23205.s1.tag = NULL_TYPE; /* x191662 */ t23204.s1.tag = STRUCTURE_TYPE24753; t23204.s1.value.structure_type24753 = &t23205; /* x191663 */ t23203.s0.tag = STRUCTURE_TYPE24753; t23203.s0.value.structure_type24753 = &t23204; /* x191664 */ t23208.s0.tag = EXTERNAL_SYMBOL_TYPE; t23208.s0.value.external_symbol_type = q77; /* x191665 */ t23209.s0.tag = EXTERNAL_SYMBOL_TYPE; t23209.s0.value.external_symbol_type = q130; /* x191666 */ t23209.s1.tag = NULL_TYPE; /* x191667 */ t23208.s1.tag = STRUCTURE_TYPE24753; t23208.s1.value.structure_type24753 = &t23209; /* x191668 */ t23207.s0.tag = STRUCTURE_TYPE24753; t23207.s0.value.structure_type24753 = &t23208; /* x191669 */ t23207.s1.tag = NULL_TYPE; /* x191670 */ t23206.s0.tag = STRUCTURE_TYPE24753; t23206.s0.value.structure_type24753 = &t23207; /* x191671 */ t23211.s0.tag = EXTERNAL_SYMBOL_TYPE; t23211.s0.value.external_symbol_type = q242; /* x191672 */ t23212.s0.tag = EXTERNAL_SYMBOL_TYPE; t23212.s0.value.external_symbol_type = q287; /* x191673 */ t23215.s0.tag = EXTERNAL_SYMBOL_TYPE; t23215.s0.value.external_symbol_type = q442; /* x191674 */ t23217.s0.tag = EXTERNAL_SYMBOL_TYPE; t23217.s0.value.external_symbol_type = q108; /* x191675 */ t23218.s0.tag = EXTERNAL_SYMBOL_TYPE; t23218.s0.value.external_symbol_type = q442; /* x191676 */ t23218.s1.tag = NULL_TYPE; /* x191677 */ t23217.s1.tag = STRUCTURE_TYPE24753; t23217.s1.value.structure_type24753 = &t23218; /* x191678 */ t23216.s0.tag = STRUCTURE_TYPE24753; t23216.s0.value.structure_type24753 = &t23217; /* x191679 */ t23216.s1.tag = NULL_TYPE; /* x191680 */ t23215.s1.tag = STRUCTURE_TYPE24753; t23215.s1.value.structure_type24753 = &t23216; /* x191681 */ t23214.s0.tag = STRUCTURE_TYPE24753; t23214.s0.value.structure_type24753 = &t23215; /* x191682 */ t23220.s0.tag = EXTERNAL_SYMBOL_TYPE; t23220.s0.value.external_symbol_type = q409; /* x191683 */ t23223.s0.tag = EXTERNAL_SYMBOL_TYPE; t23223.s0.value.external_symbol_type = q77; /* x191684 */ t23224.s0.tag = EXTERNAL_SYMBOL_TYPE; t23224.s0.value.external_symbol_type = q130; /* x191685 */ t23224.s1.tag = NULL_TYPE; /* x191686 */ t23223.s1.tag = STRUCTURE_TYPE24753; t23223.s1.value.structure_type24753 = &t23224; /* x191687 */ t23222.s0.tag = STRUCTURE_TYPE24753; t23222.s0.value.structure_type24753 = &t23223; /* x191688 */ t23226.s0.tag = EXTERNAL_SYMBOL_TYPE; t23226.s0.value.external_symbol_type = q107; /* x191689 */ t23227.s0.tag = EXTERNAL_SYMBOL_TYPE; t23227.s0.value.external_symbol_type = q442; /* x191690 */ t23227.s1.tag = NULL_TYPE; /* x191691 */ t23226.s1.tag = STRUCTURE_TYPE24753; t23226.s1.value.structure_type24753 = &t23227; /* x191692 */ t23225.s0.tag = STRUCTURE_TYPE24753; t23225.s0.value.structure_type24753 = &t23226; /* x191693 */ t23225.s1.tag = NULL_TYPE; /* x191694 */ t23222.s1.tag = STRUCTURE_TYPE24753; t23222.s1.value.structure_type24753 = &t23225; /* x191695 */ t23221.s0.tag = STRUCTURE_TYPE24753; t23221.s0.value.structure_type24753 = &t23222; /* x191696 */ t23221.s1.tag = NULL_TYPE; /* x191697 */ t23220.s1.tag = STRUCTURE_TYPE24753; t23220.s1.value.structure_type24753 = &t23221; /* x191698 */ t23219.s0.tag = STRUCTURE_TYPE24753; t23219.s0.value.structure_type24753 = &t23220; /* x191699 */ t23219.s1.tag = NULL_TYPE; /* x191700 */ t23214.s1.tag = STRUCTURE_TYPE24753; t23214.s1.value.structure_type24753 = &t23219; /* x191701 */ t23213.s0.tag = STRUCTURE_TYPE24753; t23213.s0.value.structure_type24753 = &t23214; /* x191702 */ t23229.s0.tag = EXTERNAL_SYMBOL_TYPE; t23229.s0.value.external_symbol_type = q43; /* x191703 */ t23231.s0.tag = EXTERNAL_SYMBOL_TYPE; t23231.s0.value.external_symbol_type = q111; /* x191704 */ t23232.s0.tag = EXTERNAL_SYMBOL_TYPE; t23232.s0.value.external_symbol_type = q442; /* x191705 */ t23232.s1.tag = NULL_TYPE; /* x191706 */ t23231.s1.tag = STRUCTURE_TYPE24753; t23231.s1.value.structure_type24753 = &t23232; /* x191707 */ t23230.s0.tag = STRUCTURE_TYPE24753; t23230.s0.value.structure_type24753 = &t23231; /* x191708 */ t23233.s0.tag = EXTERNAL_SYMBOL_TYPE; t23233.s0.value.external_symbol_type = q409; /* x191709 */ t23235.s0.tag = EXTERNAL_SYMBOL_TYPE; t23235.s0.value.external_symbol_type = q287; /* x191710 */ t23237.s0.tag = EXTERNAL_SYMBOL_TYPE; t23237.s0.value.external_symbol_type = q108; /* x191711 */ t23238.s0.tag = EXTERNAL_SYMBOL_TYPE; t23238.s0.value.external_symbol_type = q442; /* x191712 */ t23238.s1.tag = NULL_TYPE; /* x191713 */ t23237.s1.tag = STRUCTURE_TYPE24753; t23237.s1.value.structure_type24753 = &t23238; /* x191714 */ t23236.s0.tag = STRUCTURE_TYPE24753; t23236.s0.value.structure_type24753 = &t23237; /* x191715 */ t23241.s0.tag = EXTERNAL_SYMBOL_TYPE; t23241.s0.value.external_symbol_type = q77; /* x191716 */ t23242.s0.tag = EXTERNAL_SYMBOL_TYPE; t23242.s0.value.external_symbol_type = q130; /* x191717 */ t23242.s1.tag = NULL_TYPE; /* x191718 */ t23241.s1.tag = STRUCTURE_TYPE24753; t23241.s1.value.structure_type24753 = &t23242; /* x191719 */ t23240.s0.tag = STRUCTURE_TYPE24753; t23240.s0.value.structure_type24753 = &t23241; /* x191720 */ t23243.s0.tag = EXTERNAL_SYMBOL_TYPE; t23243.s0.value.external_symbol_type = q409; /* x191721 */ t23245.s0.tag = EXTERNAL_SYMBOL_TYPE; t23245.s0.value.external_symbol_type = q107; /* x191722 */ t23246.s0.tag = EXTERNAL_SYMBOL_TYPE; t23246.s0.value.external_symbol_type = q442; /* x191723 */ t23246.s1.tag = NULL_TYPE; /* x191724 */ t23245.s1.tag = STRUCTURE_TYPE24753; t23245.s1.value.structure_type24753 = &t23246; /* x191725 */ t23244.s0.tag = STRUCTURE_TYPE24753; t23244.s0.value.structure_type24753 = &t23245; /* x191726 */ t23244.s1.tag = NULL_TYPE; /* x191727 */ t23243.s1.tag = STRUCTURE_TYPE24753; t23243.s1.value.structure_type24753 = &t23244; /* x191728 */ t23240.s1.tag = STRUCTURE_TYPE24753; t23240.s1.value.structure_type24753 = &t23243; /* x191729 */ t23239.s0.tag = STRUCTURE_TYPE24753; t23239.s0.value.structure_type24753 = &t23240; /* x191730 */ t23239.s1.tag = NULL_TYPE; /* x191731 */ t23236.s1.tag = STRUCTURE_TYPE24753; t23236.s1.value.structure_type24753 = &t23239; /* x191732 */ t23235.s1.tag = STRUCTURE_TYPE24753; t23235.s1.value.structure_type24753 = &t23236; /* x191733 */ t23234.s0.tag = STRUCTURE_TYPE24753; t23234.s0.value.structure_type24753 = &t23235; /* x191734 */ t23234.s1.tag = NULL_TYPE; /* x191735 */ t23233.s1.tag = STRUCTURE_TYPE24753; t23233.s1.value.structure_type24753 = &t23234; /* x191736 */ t23230.s1.tag = STRUCTURE_TYPE24753; t23230.s1.value.structure_type24753 = &t23233; /* x191737 */ t23229.s1.tag = STRUCTURE_TYPE24753; t23229.s1.value.structure_type24753 = &t23230; /* x191738 */ t23228.s0.tag = STRUCTURE_TYPE24753; t23228.s0.value.structure_type24753 = &t23229; /* x191739 */ t23228.s1.tag = NULL_TYPE; /* x191740 */ t23213.s1.tag = STRUCTURE_TYPE24753; t23213.s1.value.structure_type24753 = &t23228; /* x191741 */ t23212.s1.tag = STRUCTURE_TYPE24753; t23212.s1.value.structure_type24753 = &t23213; /* x191742 */ t23211.s1.tag = STRUCTURE_TYPE24753; t23211.s1.value.structure_type24753 = &t23212; /* x191743 */ t23210.s0.tag = STRUCTURE_TYPE24753; t23210.s0.value.structure_type24753 = &t23211; /* x191744 */ t23210.s1.tag = NULL_TYPE; /* x191745 */ t23206.s1.tag = STRUCTURE_TYPE24753; t23206.s1.value.structure_type24753 = &t23210; /* x191746 */ t23203.s1.tag = STRUCTURE_TYPE24753; t23203.s1.value.structure_type24753 = &t23206; /* x191747 */ t23202.s1.tag = STRUCTURE_TYPE24753; t23202.s1.value.structure_type24753 = &t23203; /* x191748 */ t23201.s0.tag = STRUCTURE_TYPE24753; t23201.s0.value.structure_type24753 = &t23202; /* x191749 */ t23201.s1.tag = NULL_TYPE; /* x191750 */ t23199.s1.tag = STRUCTURE_TYPE24753; t23199.s1.value.structure_type24753 = &t23201; /* x191751 */ t23198.s1.tag = STRUCTURE_TYPE24753; t23198.s1.value.structure_type24753 = &t23199; /* x191754 */ t23251.s0.tag = EXTERNAL_SYMBOL_TYPE; t23251.s0.value.external_symbol_type = q97; /* x191755 */ t23253.s0.tag = EXTERNAL_SYMBOL_TYPE; t23253.s0.value.external_symbol_type = q2; /* x191756 */ t23254.s0.tag = EXTERNAL_SYMBOL_TYPE; t23254.s0.value.external_symbol_type = q439; /* x191757 */ t23254.s1.tag = EXTERNAL_SYMBOL_TYPE; t23254.s1.value.external_symbol_type = q442; /* x191758 */ t23253.s1.tag = STRUCTURE_TYPE24753; t23253.s1.value.structure_type24753 = &t23254; /* x191759 */ t23252.s0.tag = STRUCTURE_TYPE24753; t23252.s0.value.structure_type24753 = &t23253; /* x191760 */ t23256.s0.tag = EXTERNAL_SYMBOL_TYPE; t23256.s0.value.external_symbol_type = q43; /* x191761 */ t23258.s0.tag = EXTERNAL_SYMBOL_TYPE; t23258.s0.value.external_symbol_type = q111; /* x191762 */ t23259.s0.tag = EXTERNAL_SYMBOL_TYPE; t23259.s0.value.external_symbol_type = q442; /* x191763 */ t23259.s1.tag = NULL_TYPE; /* x191764 */ t23258.s1.tag = STRUCTURE_TYPE24753; t23258.s1.value.structure_type24753 = &t23259; /* x191765 */ t23257.s0.tag = STRUCTURE_TYPE24753; t23257.s0.value.structure_type24753 = &t23258; /* x191766 */ t23262.s0.tag = EXTERNAL_SYMBOL_TYPE; t23262.s0.value.external_symbol_type = q77; /* x191767 */ t23263.s0.tag = EXTERNAL_SYMBOL_TYPE; t23263.s0.value.external_symbol_type = q2; /* x191768 */ t23263.s1.tag = NULL_TYPE; /* x191769 */ t23262.s1.tag = STRUCTURE_TYPE24753; t23262.s1.value.structure_type24753 = &t23263; /* x191770 */ t23261.s0.tag = STRUCTURE_TYPE24753; t23261.s0.value.structure_type24753 = &t23262; /* x191771 */ t23264.s0.tag = EXTERNAL_SYMBOL_TYPE; t23264.s0.value.external_symbol_type = q439; /* x191772 */ t23264.s1.tag = NULL_TYPE; /* x191773 */} void initialize_constants15(void) {t23261.s1.tag = STRUCTURE_TYPE24753; t23261.s1.value.structure_type24753 = &t23264; /* x191774 */ t23260.s0.tag = STRUCTURE_TYPE24753; t23260.s0.value.structure_type24753 = &t23261; /* x191775 */ t23266.s0.tag = EXTERNAL_SYMBOL_TYPE; t23266.s0.value.external_symbol_type = q242; /* x191776 */ t23267.s0.tag = EXTERNAL_SYMBOL_TYPE; t23267.s0.value.external_symbol_type = q287; /* x191777 */ t23270.s0.tag = EXTERNAL_SYMBOL_TYPE; t23270.s0.value.external_symbol_type = q442; /* x191778 */ t23272.s0.tag = EXTERNAL_SYMBOL_TYPE; t23272.s0.value.external_symbol_type = q108; /* x191779 */ t23273.s0.tag = EXTERNAL_SYMBOL_TYPE; t23273.s0.value.external_symbol_type = q442; /* x191780 */ t23273.s1.tag = NULL_TYPE; /* x191781 */ t23272.s1.tag = STRUCTURE_TYPE24753; t23272.s1.value.structure_type24753 = &t23273; /* x191782 */ t23271.s0.tag = STRUCTURE_TYPE24753; t23271.s0.value.structure_type24753 = &t23272; /* x191783 */ t23271.s1.tag = NULL_TYPE; /* x191784 */ t23270.s1.tag = STRUCTURE_TYPE24753; t23270.s1.value.structure_type24753 = &t23271; /* x191785 */ t23269.s0.tag = STRUCTURE_TYPE24753; t23269.s0.value.structure_type24753 = &t23270; /* x191786 */ t23275.s0.tag = EXTERNAL_SYMBOL_TYPE; t23275.s0.value.external_symbol_type = q409; /* x191787 */ t23278.s0.tag = EXTERNAL_SYMBOL_TYPE; t23278.s0.value.external_symbol_type = q77; /* x191788 */ t23279.s0.tag = EXTERNAL_SYMBOL_TYPE; t23279.s0.value.external_symbol_type = q2; /* x191789 */ t23279.s1.tag = NULL_TYPE; /* x191790 */ t23278.s1.tag = STRUCTURE_TYPE24753; t23278.s1.value.structure_type24753 = &t23279; /* x191791 */ t23277.s0.tag = STRUCTURE_TYPE24753; t23277.s0.value.structure_type24753 = &t23278; /* x191792 */ t23280.s0.tag = EXTERNAL_SYMBOL_TYPE; t23280.s0.value.external_symbol_type = q439; /* x191793 */ t23282.s0.tag = EXTERNAL_SYMBOL_TYPE; t23282.s0.value.external_symbol_type = q107; /* x191794 */ t23283.s0.tag = EXTERNAL_SYMBOL_TYPE; t23283.s0.value.external_symbol_type = q442; /* x191795 */ t23283.s1.tag = NULL_TYPE; /* x191796 */ t23282.s1.tag = STRUCTURE_TYPE24753; t23282.s1.value.structure_type24753 = &t23283; /* x191797 */ t23281.s0.tag = STRUCTURE_TYPE24753; t23281.s0.value.structure_type24753 = &t23282; /* x191798 */ t23281.s1.tag = NULL_TYPE; /* x191799 */ t23280.s1.tag = STRUCTURE_TYPE24753; t23280.s1.value.structure_type24753 = &t23281; /* x191800 */ t23277.s1.tag = STRUCTURE_TYPE24753; t23277.s1.value.structure_type24753 = &t23280; /* x191801 */ t23276.s0.tag = STRUCTURE_TYPE24753; t23276.s0.value.structure_type24753 = &t23277; /* x191802 */ t23276.s1.tag = NULL_TYPE; /* x191803 */ t23275.s1.tag = STRUCTURE_TYPE24753; t23275.s1.value.structure_type24753 = &t23276; /* x191804 */ t23274.s0.tag = STRUCTURE_TYPE24753; t23274.s0.value.structure_type24753 = &t23275; /* x191805 */ t23274.s1.tag = NULL_TYPE; /* x191806 */ t23269.s1.tag = STRUCTURE_TYPE24753; t23269.s1.value.structure_type24753 = &t23274; /* x191807 */ t23268.s0.tag = STRUCTURE_TYPE24753; t23268.s0.value.structure_type24753 = &t23269; /* x191808 */ t23285.s0.tag = EXTERNAL_SYMBOL_TYPE; t23285.s0.value.external_symbol_type = q43; /* x191809 */ t23287.s0.tag = EXTERNAL_SYMBOL_TYPE; t23287.s0.value.external_symbol_type = q111; /* x191810 */ t23288.s0.tag = EXTERNAL_SYMBOL_TYPE; t23288.s0.value.external_symbol_type = q442; /* x191811 */ t23288.s1.tag = NULL_TYPE; /* x191812 */ t23287.s1.tag = STRUCTURE_TYPE24753; t23287.s1.value.structure_type24753 = &t23288; /* x191813 */ t23286.s0.tag = STRUCTURE_TYPE24753; t23286.s0.value.structure_type24753 = &t23287; /* x191814 */ t23289.s0.tag = EXTERNAL_SYMBOL_TYPE; t23289.s0.value.external_symbol_type = q409; /* x191815 */ t23291.s0.tag = EXTERNAL_SYMBOL_TYPE; t23291.s0.value.external_symbol_type = q287; /* x191816 */ t23293.s0.tag = EXTERNAL_SYMBOL_TYPE; t23293.s0.value.external_symbol_type = q108; /* x191817 */ t23294.s0.tag = EXTERNAL_SYMBOL_TYPE; t23294.s0.value.external_symbol_type = q442; /* x191818 */ t23294.s1.tag = NULL_TYPE; /* x191819 */ t23293.s1.tag = STRUCTURE_TYPE24753; t23293.s1.value.structure_type24753 = &t23294; /* x191820 */ t23292.s0.tag = STRUCTURE_TYPE24753; t23292.s0.value.structure_type24753 = &t23293; /* x191821 */ t23297.s0.tag = EXTERNAL_SYMBOL_TYPE; t23297.s0.value.external_symbol_type = q77; /* x191822 */ t23298.s0.tag = EXTERNAL_SYMBOL_TYPE; t23298.s0.value.external_symbol_type = q2; /* x191823 */ t23298.s1.tag = NULL_TYPE; /* x191824 */ t23297.s1.tag = STRUCTURE_TYPE24753; t23297.s1.value.structure_type24753 = &t23298; /* x191825 */ t23296.s0.tag = STRUCTURE_TYPE24753; t23296.s0.value.structure_type24753 = &t23297; /* x191826 */ t23299.s0.tag = EXTERNAL_SYMBOL_TYPE; t23299.s0.value.external_symbol_type = q409; /* x191827 */ t23301.s0.tag = EXTERNAL_SYMBOL_TYPE; t23301.s0.value.external_symbol_type = q107; /* x191828 */ t23302.s0.tag = EXTERNAL_SYMBOL_TYPE; t23302.s0.value.external_symbol_type = q442; /* x191829 */ t23302.s1.tag = NULL_TYPE; /* x191830 */ t23301.s1.tag = STRUCTURE_TYPE24753; t23301.s1.value.structure_type24753 = &t23302; /* x191831 */ t23300.s0.tag = STRUCTURE_TYPE24753; t23300.s0.value.structure_type24753 = &t23301; /* x191832 */ t23300.s1.tag = NULL_TYPE; /* x191833 */ t23299.s1.tag = STRUCTURE_TYPE24753; t23299.s1.value.structure_type24753 = &t23300; /* x191834 */ t23296.s1.tag = STRUCTURE_TYPE24753; t23296.s1.value.structure_type24753 = &t23299; /* x191835 */ t23295.s0.tag = STRUCTURE_TYPE24753; t23295.s0.value.structure_type24753 = &t23296; /* x191836 */ t23295.s1.tag = NULL_TYPE; /* x191837 */ t23292.s1.tag = STRUCTURE_TYPE24753; t23292.s1.value.structure_type24753 = &t23295; /* x191838 */ t23291.s1.tag = STRUCTURE_TYPE24753; t23291.s1.value.structure_type24753 = &t23292; /* x191839 */ t23290.s0.tag = STRUCTURE_TYPE24753; t23290.s0.value.structure_type24753 = &t23291; /* x191840 */ t23290.s1.tag = NULL_TYPE; /* x191841 */ t23289.s1.tag = STRUCTURE_TYPE24753; t23289.s1.value.structure_type24753 = &t23290; /* x191842 */ t23286.s1.tag = STRUCTURE_TYPE24753; t23286.s1.value.structure_type24753 = &t23289; /* x191843 */ t23285.s1.tag = STRUCTURE_TYPE24753; t23285.s1.value.structure_type24753 = &t23286; /* x191844 */ t23284.s0.tag = STRUCTURE_TYPE24753; t23284.s0.value.structure_type24753 = &t23285; /* x191845 */ t23284.s1.tag = NULL_TYPE; /* x191846 */ t23268.s1.tag = STRUCTURE_TYPE24753; t23268.s1.value.structure_type24753 = &t23284; /* x191847 */ t23267.s1.tag = STRUCTURE_TYPE24753; t23267.s1.value.structure_type24753 = &t23268; /* x191848 */ t23266.s1.tag = STRUCTURE_TYPE24753; t23266.s1.value.structure_type24753 = &t23267; /* x191849 */ t23265.s0.tag = STRUCTURE_TYPE24753; t23265.s0.value.structure_type24753 = &t23266; /* x191850 */ t23265.s1.tag = NULL_TYPE; /* x191851 */ t23260.s1.tag = STRUCTURE_TYPE24753; t23260.s1.value.structure_type24753 = &t23265; /* x191852 */ t23257.s1.tag = STRUCTURE_TYPE24753; t23257.s1.value.structure_type24753 = &t23260; /* x191853 */ t23256.s1.tag = STRUCTURE_TYPE24753; t23256.s1.value.structure_type24753 = &t23257; /* x191854 */ t23255.s0.tag = STRUCTURE_TYPE24753; t23255.s0.value.structure_type24753 = &t23256; /* x191855 */ t23255.s1.tag = NULL_TYPE; /* x191856 */ t23252.s1.tag = STRUCTURE_TYPE24753; t23252.s1.value.structure_type24753 = &t23255; /* x191857 */ t23251.s1.tag = STRUCTURE_TYPE24753; t23251.s1.value.structure_type24753 = &t23252; /* x191860 */ t23307.s0.tag = EXTERNAL_SYMBOL_TYPE; t23307.s0.value.external_symbol_type = q97; /* x191861 */ t23309.s0.tag = EXTERNAL_SYMBOL_TYPE; t23309.s0.value.external_symbol_type = q131; /* x191862 */ t23310.s0.tag = EXTERNAL_SYMBOL_TYPE; t23310.s0.value.external_symbol_type = q439; /* x191863 */ t23310.s1.tag = EXTERNAL_SYMBOL_TYPE; t23310.s1.value.external_symbol_type = q442; /* x191864 */ t23309.s1.tag = STRUCTURE_TYPE24753; t23309.s1.value.structure_type24753 = &t23310; /* x191865 */ t23308.s0.tag = STRUCTURE_TYPE24753; t23308.s0.value.structure_type24753 = &t23309; /* x191866 */ t23312.s0.tag = EXTERNAL_SYMBOL_TYPE; t23312.s0.value.external_symbol_type = q43; /* x191867 */ t23314.s0.tag = EXTERNAL_SYMBOL_TYPE; t23314.s0.value.external_symbol_type = q111; /* x191868 */ t23315.s0.tag = EXTERNAL_SYMBOL_TYPE; t23315.s0.value.external_symbol_type = q442; /* x191869 */ t23315.s1.tag = NULL_TYPE; /* x191870 */ t23314.s1.tag = STRUCTURE_TYPE24753; t23314.s1.value.structure_type24753 = &t23315; /* x191871 */ t23313.s0.tag = STRUCTURE_TYPE24753; t23313.s0.value.structure_type24753 = &t23314; /* x191872 */ t23318.s0.tag = EXTERNAL_SYMBOL_TYPE; t23318.s0.value.external_symbol_type = q77; /* x191873 */ t23319.s0.tag = EXTERNAL_SYMBOL_TYPE; t23319.s0.value.external_symbol_type = q131; /* x191874 */ t23319.s1.tag = NULL_TYPE; /* x191875 */ t23318.s1.tag = STRUCTURE_TYPE24753; t23318.s1.value.structure_type24753 = &t23319; /* x191876 */ t23317.s0.tag = STRUCTURE_TYPE24753; t23317.s0.value.structure_type24753 = &t23318; /* x191877 */ t23320.s0.tag = EXTERNAL_SYMBOL_TYPE; t23320.s0.value.external_symbol_type = q439; /* x191878 */ t23320.s1.tag = NULL_TYPE; /* x191879 */ t23317.s1.tag = STRUCTURE_TYPE24753; t23317.s1.value.structure_type24753 = &t23320; /* x191880 */ t23316.s0.tag = STRUCTURE_TYPE24753; t23316.s0.value.structure_type24753 = &t23317; /* x191881 */ t23322.s0.tag = EXTERNAL_SYMBOL_TYPE; t23322.s0.value.external_symbol_type = q242; /* x191882 */ t23323.s0.tag = EXTERNAL_SYMBOL_TYPE; t23323.s0.value.external_symbol_type = q287; /* x191883 */ t23326.s0.tag = EXTERNAL_SYMBOL_TYPE; t23326.s0.value.external_symbol_type = q442; /* x191884 */ t23328.s0.tag = EXTERNAL_SYMBOL_TYPE; t23328.s0.value.external_symbol_type = q108; /* x191885 */ t23329.s0.tag = EXTERNAL_SYMBOL_TYPE; t23329.s0.value.external_symbol_type = q442; /* x191886 */ t23329.s1.tag = NULL_TYPE; /* x191887 */ t23328.s1.tag = STRUCTURE_TYPE24753; t23328.s1.value.structure_type24753 = &t23329; /* x191888 */ t23327.s0.tag = STRUCTURE_TYPE24753; t23327.s0.value.structure_type24753 = &t23328; /* x191889 */ t23327.s1.tag = NULL_TYPE; /* x191890 */ t23326.s1.tag = STRUCTURE_TYPE24753; t23326.s1.value.structure_type24753 = &t23327; /* x191891 */ t23325.s0.tag = STRUCTURE_TYPE24753; t23325.s0.value.structure_type24753 = &t23326; /* x191892 */ t23331.s0.tag = EXTERNAL_SYMBOL_TYPE; t23331.s0.value.external_symbol_type = q409; /* x191893 */ t23334.s0.tag = EXTERNAL_SYMBOL_TYPE; t23334.s0.value.external_symbol_type = q77; /* x191894 */ t23335.s0.tag = EXTERNAL_SYMBOL_TYPE; t23335.s0.value.external_symbol_type = q131; /* x191895 */ t23335.s1.tag = NULL_TYPE; /* x191896 */ t23334.s1.tag = STRUCTURE_TYPE24753; t23334.s1.value.structure_type24753 = &t23335; /* x191897 */ t23333.s0.tag = STRUCTURE_TYPE24753; t23333.s0.value.structure_type24753 = &t23334; /* x191898 */ t23336.s0.tag = EXTERNAL_SYMBOL_TYPE; t23336.s0.value.external_symbol_type = q439; /* x191899 */ t23338.s0.tag = EXTERNAL_SYMBOL_TYPE; t23338.s0.value.external_symbol_type = q107; /* x191900 */ t23339.s0.tag = EXTERNAL_SYMBOL_TYPE; t23339.s0.value.external_symbol_type = q442; /* x191901 */ t23339.s1.tag = NULL_TYPE; /* x191902 */ t23338.s1.tag = STRUCTURE_TYPE24753; t23338.s1.value.structure_type24753 = &t23339; /* x191903 */ t23337.s0.tag = STRUCTURE_TYPE24753; t23337.s0.value.structure_type24753 = &t23338; /* x191904 */ t23337.s1.tag = NULL_TYPE; /* x191905 */ t23336.s1.tag = STRUCTURE_TYPE24753; t23336.s1.value.structure_type24753 = &t23337; /* x191906 */ t23333.s1.tag = STRUCTURE_TYPE24753; t23333.s1.value.structure_type24753 = &t23336; /* x191907 */ t23332.s0.tag = STRUCTURE_TYPE24753; t23332.s0.value.structure_type24753 = &t23333; /* x191908 */ t23332.s1.tag = NULL_TYPE; /* x191909 */ t23331.s1.tag = STRUCTURE_TYPE24753; t23331.s1.value.structure_type24753 = &t23332; /* x191910 */ t23330.s0.tag = STRUCTURE_TYPE24753; t23330.s0.value.structure_type24753 = &t23331; /* x191911 */ t23330.s1.tag = NULL_TYPE; /* x191912 */ t23325.s1.tag = STRUCTURE_TYPE24753; t23325.s1.value.structure_type24753 = &t23330; /* x191913 */ t23324.s0.tag = STRUCTURE_TYPE24753; t23324.s0.value.structure_type24753 = &t23325; /* x191914 */ t23341.s0.tag = EXTERNAL_SYMBOL_TYPE; t23341.s0.value.external_symbol_type = q43; /* x191915 */ t23343.s0.tag = EXTERNAL_SYMBOL_TYPE; t23343.s0.value.external_symbol_type = q111; /* x191916 */ t23344.s0.tag = EXTERNAL_SYMBOL_TYPE; t23344.s0.value.external_symbol_type = q442; /* x191917 */ t23344.s1.tag = NULL_TYPE; /* x191918 */ t23343.s1.tag = STRUCTURE_TYPE24753; t23343.s1.value.structure_type24753 = &t23344; /* x191919 */ t23342.s0.tag = STRUCTURE_TYPE24753; t23342.s0.value.structure_type24753 = &t23343; /* x191920 */ t23345.s0.tag = EXTERNAL_SYMBOL_TYPE; t23345.s0.value.external_symbol_type = q409; /* x191921 */ t23347.s0.tag = EXTERNAL_SYMBOL_TYPE; t23347.s0.value.external_symbol_type = q287; /* x191922 */ t23349.s0.tag = EXTERNAL_SYMBOL_TYPE; t23349.s0.value.external_symbol_type = q108; /* x191923 */ t23350.s0.tag = EXTERNAL_SYMBOL_TYPE; t23350.s0.value.external_symbol_type = q442; /* x191924 */ t23350.s1.tag = NULL_TYPE; /* x191925 */ t23349.s1.tag = STRUCTURE_TYPE24753; t23349.s1.value.structure_type24753 = &t23350; /* x191926 */ t23348.s0.tag = STRUCTURE_TYPE24753; t23348.s0.value.structure_type24753 = &t23349; /* x191927 */ t23353.s0.tag = EXTERNAL_SYMBOL_TYPE; t23353.s0.value.external_symbol_type = q77; /* x191928 */ t23354.s0.tag = EXTERNAL_SYMBOL_TYPE; t23354.s0.value.external_symbol_type = q131; /* x191929 */ t23354.s1.tag = NULL_TYPE; /* x191930 */ t23353.s1.tag = STRUCTURE_TYPE24753; t23353.s1.value.structure_type24753 = &t23354; /* x191931 */ t23352.s0.tag = STRUCTURE_TYPE24753; t23352.s0.value.structure_type24753 = &t23353; /* x191932 */ t23355.s0.tag = EXTERNAL_SYMBOL_TYPE; t23355.s0.value.external_symbol_type = q409; /* x191933 */ t23357.s0.tag = EXTERNAL_SYMBOL_TYPE; t23357.s0.value.external_symbol_type = q107; /* x191934 */ t23358.s0.tag = EXTERNAL_SYMBOL_TYPE; t23358.s0.value.external_symbol_type = q442; /* x191935 */ t23358.s1.tag = NULL_TYPE; /* x191936 */ t23357.s1.tag = STRUCTURE_TYPE24753; t23357.s1.value.structure_type24753 = &t23358; /* x191937 */ t23356.s0.tag = STRUCTURE_TYPE24753; t23356.s0.value.structure_type24753 = &t23357; /* x191938 */ t23356.s1.tag = NULL_TYPE; /* x191939 */ t23355.s1.tag = STRUCTURE_TYPE24753; t23355.s1.value.structure_type24753 = &t23356; /* x191940 */ t23352.s1.tag = STRUCTURE_TYPE24753; t23352.s1.value.structure_type24753 = &t23355; /* x191941 */ t23351.s0.tag = STRUCTURE_TYPE24753; t23351.s0.value.structure_type24753 = &t23352; /* x191942 */ t23351.s1.tag = NULL_TYPE; /* x191943 */ t23348.s1.tag = STRUCTURE_TYPE24753; t23348.s1.value.structure_type24753 = &t23351; /* x191944 */ t23347.s1.tag = STRUCTURE_TYPE24753; t23347.s1.value.structure_type24753 = &t23348; /* x191945 */ t23346.s0.tag = STRUCTURE_TYPE24753; t23346.s0.value.structure_type24753 = &t23347; /* x191946 */ t23346.s1.tag = NULL_TYPE; /* x191947 */ t23345.s1.tag = STRUCTURE_TYPE24753; t23345.s1.value.structure_type24753 = &t23346; /* x191948 */ t23342.s1.tag = STRUCTURE_TYPE24753; t23342.s1.value.structure_type24753 = &t23345; /* x191949 */ t23341.s1.tag = STRUCTURE_TYPE24753; t23341.s1.value.structure_type24753 = &t23342; /* x191950 */ t23340.s0.tag = STRUCTURE_TYPE24753; t23340.s0.value.structure_type24753 = &t23341; /* x191951 */ t23340.s1.tag = NULL_TYPE; /* x191952 */ t23324.s1.tag = STRUCTURE_TYPE24753; t23324.s1.value.structure_type24753 = &t23340; /* x191953 */ t23323.s1.tag = STRUCTURE_TYPE24753; t23323.s1.value.structure_type24753 = &t23324; /* x191954 */ t23322.s1.tag = STRUCTURE_TYPE24753; t23322.s1.value.structure_type24753 = &t23323; /* x191955 */ t23321.s0.tag = STRUCTURE_TYPE24753; t23321.s0.value.structure_type24753 = &t23322; /* x191956 */ t23321.s1.tag = NULL_TYPE; /* x191957 */ t23316.s1.tag = STRUCTURE_TYPE24753; t23316.s1.value.structure_type24753 = &t23321; /* x191958 */ t23313.s1.tag = STRUCTURE_TYPE24753; t23313.s1.value.structure_type24753 = &t23316; /* x191959 */ t23312.s1.tag = STRUCTURE_TYPE24753; t23312.s1.value.structure_type24753 = &t23313; /* x191960 */ t23311.s0.tag = STRUCTURE_TYPE24753; t23311.s0.value.structure_type24753 = &t23312; /* x191961 */ t23311.s1.tag = NULL_TYPE; /* x191962 */ t23308.s1.tag = STRUCTURE_TYPE24753; t23308.s1.value.structure_type24753 = &t23311; /* x191963 */ t23307.s1.tag = STRUCTURE_TYPE24753; t23307.s1.value.structure_type24753 = &t23308; /* x191966 */ t23363.s0.tag = EXTERNAL_SYMBOL_TYPE; t23363.s0.value.external_symbol_type = q97; /* x191967 */ t23365.s0.tag = EXTERNAL_SYMBOL_TYPE; t23365.s0.value.external_symbol_type = q448; /* x191968 */ t23366.s0.tag = EXTERNAL_SYMBOL_TYPE; t23366.s0.value.external_symbol_type = q252; /* x191969 */ t23366.s1.tag = NULL_TYPE; /* x191970 */ t23365.s1.tag = STRUCTURE_TYPE24753; t23365.s1.value.structure_type24753 = &t23366; /* x191971 */ t23364.s0.tag = STRUCTURE_TYPE24753; t23364.s0.value.structure_type24753 = &t23365; /* x191972 */ t23368.s0.tag = EXTERNAL_SYMBOL_TYPE; t23368.s0.value.external_symbol_type = q43; /* x191973 */ t23370.s0.tag = EXTERNAL_SYMBOL_TYPE; t23370.s0.value.external_symbol_type = q127; /* x191974 */ t23371.s0.tag = EXTERNAL_SYMBOL_TYPE; t23371.s0.value.external_symbol_type = q252; /* x191975 */ t23371.s1.tag = NULL_TYPE; /* x191976 */ t23370.s1.tag = STRUCTURE_TYPE24753; t23370.s1.value.structure_type24753 = &t23371; /* x191977 */ t23369.s0.tag = STRUCTURE_TYPE24753; t23369.s0.value.structure_type24753 = &t23370; /* x191978 */ t23373.s0.tag = EXTERNAL_SYMBOL_TYPE; t23373.s0.value.external_symbol_type = q2; /* x191979 */ t23374.s0.tag = EXTERNAL_SYMBOL_TYPE; t23374.s0.value.external_symbol_type = q252; /* x191980 */ t23374.s1.tag = NULL_TYPE; /* x191981 */ t23373.s1.tag = STRUCTURE_TYPE24753; t23373.s1.value.structure_type24753 = &t23374; /* x191982 */ t23372.s0.tag = STRUCTURE_TYPE24753; t23372.s0.value.structure_type24753 = &t23373; /* x191983 */ t23375.s0.tag = EXTERNAL_SYMBOL_TYPE; t23375.s0.value.external_symbol_type = q252; /* x191984 */ t23375.s1.tag = NULL_TYPE; /* x191985 */ t23372.s1.tag = STRUCTURE_TYPE24753; t23372.s1.value.structure_type24753 = &t23375; /* x191986 */ t23369.s1.tag = STRUCTURE_TYPE24753; t23369.s1.value.structure_type24753 = &t23372; /* x191987 */ t23368.s1.tag = STRUCTURE_TYPE24753; t23368.s1.value.structure_type24753 = &t23369; /* x191988 */ t23367.s0.tag = STRUCTURE_TYPE24753; t23367.s0.value.structure_type24753 = &t23368; /* x191989 */ t23367.s1.tag = NULL_TYPE; /* x191990 */ t23364.s1.tag = STRUCTURE_TYPE24753; t23364.s1.value.structure_type24753 = &t23367; /* x191991 */ t23363.s1.tag = STRUCTURE_TYPE24753; t23363.s1.value.structure_type24753 = &t23364; /* x191994 */ t23380.s0.tag = EXTERNAL_SYMBOL_TYPE; t23380.s0.value.external_symbol_type = q97; /* x191995 */ t23382.s0.tag = EXTERNAL_SYMBOL_TYPE; t23382.s0.value.external_symbol_type = q132; /* x191996 */ t23383.s0.tag = EXTERNAL_SYMBOL_TYPE; t23383.s0.value.external_symbol_type = q449; /* x191997 */ t23384.s0.tag = EXTERNAL_SYMBOL_TYPE; t23384.s0.value.external_symbol_type = q450; /* x191998 */ t23384.s1.tag = NULL_TYPE; /* x191999 */ t23383.s1.tag = STRUCTURE_TYPE24753; t23383.s1.value.structure_type24753 = &t23384; /* x192000 */ t23382.s1.tag = STRUCTURE_TYPE24753; t23382.s1.value.structure_type24753 = &t23383; /* x192001 */ t23381.s0.tag = STRUCTURE_TYPE24753; t23381.s0.value.structure_type24753 = &t23382; /* x192002 */ t23387.s0.tag = EXTERNAL_SYMBOL_TYPE; t23387.s0.value.external_symbol_type = q77; /* x192003 */ t23388.s0.tag = EXTERNAL_SYMBOL_TYPE; t23388.s0.value.external_symbol_type = q132; /* x192004 */ t23388.s1.tag = NULL_TYPE; /* x192005 */ t23387.s1.tag = STRUCTURE_TYPE24753; t23387.s1.value.structure_type24753 = &t23388; /* x192006 */ t23386.s0.tag = STRUCTURE_TYPE24753; t23386.s0.value.structure_type24753 = &t23387; /* x192007 */ t23389.s0.tag = EXTERNAL_SYMBOL_TYPE; t23389.s0.value.external_symbol_type = q449; /* x192008 */ t23390.s0.tag = EXTERNAL_SYMBOL_TYPE; t23390.s0.value.external_symbol_type = q450; /* x192009 */ t23390.s1.tag = NULL_TYPE; /* x192010 */ t23389.s1.tag = STRUCTURE_TYPE24753; t23389.s1.value.structure_type24753 = &t23390; /* x192011 */ t23386.s1.tag = STRUCTURE_TYPE24753; t23386.s1.value.structure_type24753 = &t23389; /* x192012 */ t23385.s0.tag = STRUCTURE_TYPE24753; t23385.s0.value.structure_type24753 = &t23386; /* x192013 */ t23385.s1.tag = NULL_TYPE; /* x192014 */ t23381.s1.tag = STRUCTURE_TYPE24753; t23381.s1.value.structure_type24753 = &t23385; /* x192015 */ t23380.s1.tag = STRUCTURE_TYPE24753; t23380.s1.value.structure_type24753 = &t23381; /* x192018 */ t23395.s0.tag = EXTERNAL_SYMBOL_TYPE; t23395.s0.value.external_symbol_type = q97; /* x192019 */ t23397.s0.tag = EXTERNAL_SYMBOL_TYPE; t23397.s0.value.external_symbol_type = q133; /* x192020 */ t23398.s0.tag = EXTERNAL_SYMBOL_TYPE; t23398.s0.value.external_symbol_type = q449; /* x192021 */ t23399.s0.tag = EXTERNAL_SYMBOL_TYPE; t23399.s0.value.external_symbol_type = q450; /* x192022 */ t23399.s1.tag = NULL_TYPE; /* x192023 */ t23398.s1.tag = STRUCTURE_TYPE24753; t23398.s1.value.structure_type24753 = &t23399; /* x192024 */ t23397.s1.tag = STRUCTURE_TYPE24753; t23397.s1.value.structure_type24753 = &t23398; /* x192025 */ t23396.s0.tag = STRUCTURE_TYPE24753; t23396.s0.value.structure_type24753 = &t23397; /* x192026 */ t23402.s0.tag = EXTERNAL_SYMBOL_TYPE; t23402.s0.value.external_symbol_type = q77; /* x192027 */ t23403.s0.tag = EXTERNAL_SYMBOL_TYPE; t23403.s0.value.external_symbol_type = q133; /* x192028 */ t23403.s1.tag = NULL_TYPE; /* x192029 */ t23402.s1.tag = STRUCTURE_TYPE24753; t23402.s1.value.structure_type24753 = &t23403; /* x192030 */ t23401.s0.tag = STRUCTURE_TYPE24753; t23401.s0.value.structure_type24753 = &t23402; /* x192031 */ t23404.s0.tag = EXTERNAL_SYMBOL_TYPE; t23404.s0.value.external_symbol_type = q449; /* x192032 */ t23405.s0.tag = EXTERNAL_SYMBOL_TYPE; t23405.s0.value.external_symbol_type = q450; /* x192033 */ t23405.s1.tag = NULL_TYPE; /* x192034 */ t23404.s1.tag = STRUCTURE_TYPE24753; t23404.s1.value.structure_type24753 = &t23405; /* x192035 */ t23401.s1.tag = STRUCTURE_TYPE24753; t23401.s1.value.structure_type24753 = &t23404; /* x192036 */ t23400.s0.tag = STRUCTURE_TYPE24753; t23400.s0.value.structure_type24753 = &t23401; /* x192037 */ t23400.s1.tag = NULL_TYPE; /* x192038 */ t23396.s1.tag = STRUCTURE_TYPE24753; t23396.s1.value.structure_type24753 = &t23400; /* x192039 */ t23395.s1.tag = STRUCTURE_TYPE24753; t23395.s1.value.structure_type24753 = &t23396; /* x192042 */ t23410.s0.tag = EXTERNAL_SYMBOL_TYPE; t23410.s0.value.external_symbol_type = q97; /* x192043 */ t23412.s0.tag = EXTERNAL_SYMBOL_TYPE; t23412.s0.value.external_symbol_type = q451; /* x192044 */ t23413.s0.tag = EXTERNAL_SYMBOL_TYPE; t23413.s0.value.external_symbol_type = q449; /* x192045 */ t23414.s0.tag = EXTERNAL_SYMBOL_TYPE; t23414.s0.value.external_symbol_type = q450; /* x192046 */ t23414.s1.tag = NULL_TYPE; /* x192047 */ t23413.s1.tag = STRUCTURE_TYPE24753; t23413.s1.value.structure_type24753 = &t23414; /* x192048 */ t23412.s1.tag = STRUCTURE_TYPE24753; t23412.s1.value.structure_type24753 = &t23413; /* x192049 */ t23411.s0.tag = STRUCTURE_TYPE24753; t23411.s0.value.structure_type24753 = &t23412; /* x192050 */ t23416.s0.tag = EXTERNAL_SYMBOL_TYPE; t23416.s0.value.external_symbol_type = q43; /* x192051 */ t23418.s0.tag = EXTERNAL_SYMBOL_TYPE; t23418.s0.value.external_symbol_type = q241; /* x192052 */ t23420.s0.tag = EXTERNAL_SYMBOL_TYPE; t23420.s0.value.external_symbol_type = q244; /* x192053 */ t23422.s0.tag = EXTERNAL_SYMBOL_TYPE; t23422.s0.value.external_symbol_type = q126; /* x192054 */ t23423.s0.tag = EXTERNAL_SYMBOL_TYPE; t23423.s0.value.external_symbol_type = q449; /* x192055 */ t23423.s1.tag = NULL_TYPE; /* x192056 */ t23422.s1.tag = STRUCTURE_TYPE24753; t23422.s1.value.structure_type24753 = &t23423; /* x192057 */ t23421.s0.tag = STRUCTURE_TYPE24753; t23421.s0.value.structure_type24753 = &t23422; /* x192058 */ t23425.s0.tag = EXTERNAL_SYMBOL_TYPE; t23425.s0.value.external_symbol_type = q127; /* x192059 */ t23426.s0.tag = EXTERNAL_SYMBOL_TYPE; t23426.s0.value.external_symbol_type = q450; /* x192060 */ t23426.s1.tag = NULL_TYPE; /* x192061 */ t23425.s1.tag = STRUCTURE_TYPE24753; t23425.s1.value.structure_type24753 = &t23426; /* x192062 */ t23424.s0.tag = STRUCTURE_TYPE24753; t23424.s0.value.structure_type24753 = &t23425; /* x192063 */ t23424.s1.tag = NULL_TYPE; /* x192064 */ t23421.s1.tag = STRUCTURE_TYPE24753; t23421.s1.value.structure_type24753 = &t23424; /* x192065 */ t23420.s1.tag = STRUCTURE_TYPE24753; t23420.s1.value.structure_type24753 = &t23421; /* x192066 */ t23419.s0.tag = STRUCTURE_TYPE24753; t23419.s0.value.structure_type24753 = &t23420; /* x192067 */ t23428.s0.tag = EXTERNAL_SYMBOL_TYPE; t23428.s0.value.external_symbol_type = q244; /* x192068 */ t23430.s0.tag = EXTERNAL_SYMBOL_TYPE; t23430.s0.value.external_symbol_type = q127; /* x192069 */ t23431.s0.tag = EXTERNAL_SYMBOL_TYPE; t23431.s0.value.external_symbol_type = q449; /* x192070 */ t23431.s1.tag = NULL_TYPE; /* x192071 */ t23430.s1.tag = STRUCTURE_TYPE24753; t23430.s1.value.structure_type24753 = &t23431; /* x192072 */ t23429.s0.tag = STRUCTURE_TYPE24753; t23429.s0.value.structure_type24753 = &t23430; /* x192073 */ t23433.s0.tag = EXTERNAL_SYMBOL_TYPE; t23433.s0.value.external_symbol_type = q126; /* x192074 */ t23434.s0.tag = EXTERNAL_SYMBOL_TYPE; t23434.s0.value.external_symbol_type = q450; /* x192075 */ t23434.s1.tag = NULL_TYPE; /* x192076 */ t23433.s1.tag = STRUCTURE_TYPE24753; t23433.s1.value.structure_type24753 = &t23434; /* x192077 */ t23432.s0.tag = STRUCTURE_TYPE24753; t23432.s0.value.structure_type24753 = &t23433; /* x192078 */ t23432.s1.tag = NULL_TYPE; /* x192079 */ t23429.s1.tag = STRUCTURE_TYPE24753; t23429.s1.value.structure_type24753 = &t23432; /* x192080 */ t23428.s1.tag = STRUCTURE_TYPE24753; t23428.s1.value.structure_type24753 = &t23429; /* x192081 */ t23427.s0.tag = STRUCTURE_TYPE24753; t23427.s0.value.structure_type24753 = &t23428; /* x192082 */ t23427.s1.tag = NULL_TYPE; /* x192083 */ t23419.s1.tag = STRUCTURE_TYPE24753; t23419.s1.value.structure_type24753 = &t23427; /* x192084 */ t23418.s1.tag = STRUCTURE_TYPE24753; t23418.s1.value.structure_type24753 = &t23419; /* x192085 */ t23417.s0.tag = STRUCTURE_TYPE24753; t23417.s0.value.structure_type24753 = &t23418; /* x192086 */ t23436.s0.tag = EXTERNAL_SYMBOL_TYPE; t23436.s0.value.external_symbol_type = q4; /* x192087 */ t23437.s0.tag = EXTERNAL_SYMBOL_TYPE; t23437.s0.value.external_symbol_type = q450; /* x192088 */ t23439.s0.tag = EXTERNAL_SYMBOL_TYPE; t23439.s0.value.external_symbol_type = q133; /* x192089 */ t23440.s0.tag = EXTERNAL_SYMBOL_TYPE; t23440.s0.value.external_symbol_type = q449; /* x192090 */ t23441.s0.tag = EXTERNAL_SYMBOL_TYPE; t23441.s0.value.external_symbol_type = q450; /* x192091 */ t23441.s1.tag = NULL_TYPE; /* x192092 */ t23440.s1.tag = STRUCTURE_TYPE24753; t23440.s1.value.structure_type24753 = &t23441; /* x192093 */ t23439.s1.tag = STRUCTURE_TYPE24753; t23439.s1.value.structure_type24753 = &t23440; /* x192094 */ t23438.s0.tag = STRUCTURE_TYPE24753; t23438.s0.value.structure_type24753 = &t23439; /* x192095 */ t23438.s1.tag = NULL_TYPE; /* x192096 */ t23437.s1.tag = STRUCTURE_TYPE24753; t23437.s1.value.structure_type24753 = &t23438; /* x192097 */ t23436.s1.tag = STRUCTURE_TYPE24753; t23436.s1.value.structure_type24753 = &t23437; /* x192098 */ t23435.s0.tag = STRUCTURE_TYPE24753; t23435.s0.value.structure_type24753 = &t23436; /* x192099 */ t23443.s0.tag = EXTERNAL_SYMBOL_TYPE; t23443.s0.value.external_symbol_type = q133; /* x192100 */ t23444.s0.tag = EXTERNAL_SYMBOL_TYPE; t23444.s0.value.external_symbol_type = q449; /* x192101 */ t23445.s0.tag = EXTERNAL_SYMBOL_TYPE; t23445.s0.value.external_symbol_type = q450; /* x192102 */ t23445.s1.tag = NULL_TYPE; /* x192103 */ t23444.s1.tag = STRUCTURE_TYPE24753; t23444.s1.value.structure_type24753 = &t23445; /* x192104 */ t23443.s1.tag = STRUCTURE_TYPE24753; t23443.s1.value.structure_type24753 = &t23444; /* x192105 */ t23442.s0.tag = STRUCTURE_TYPE24753; t23442.s0.value.structure_type24753 = &t23443; /* x192106 */ t23442.s1.tag = NULL_TYPE; /* x192107 */ t23435.s1.tag = STRUCTURE_TYPE24753; t23435.s1.value.structure_type24753 = &t23442; /* x192108 */ t23417.s1.tag = STRUCTURE_TYPE24753; t23417.s1.value.structure_type24753 = &t23435; /* x192109 */ t23416.s1.tag = STRUCTURE_TYPE24753; t23416.s1.value.structure_type24753 = &t23417; /* x192110 */ t23415.s0.tag = STRUCTURE_TYPE24753; t23415.s0.value.structure_type24753 = &t23416; /* x192111 */ t23415.s1.tag = NULL_TYPE; /* x192112 */ t23411.s1.tag = STRUCTURE_TYPE24753; t23411.s1.value.structure_type24753 = &t23415; /* x192113 */ t23410.s1.tag = STRUCTURE_TYPE24753; t23410.s1.value.structure_type24753 = &t23411; /* x192116 */ t23450.s0.tag = EXTERNAL_SYMBOL_TYPE; t23450.s0.value.external_symbol_type = q97; /* x192117 */ t23452.s0.tag = EXTERNAL_SYMBOL_TYPE; t23452.s0.value.external_symbol_type = q452; /* x192118 */ t23452.s1.tag = EXTERNAL_SYMBOL_TYPE; t23452.s1.value.external_symbol_type = q453; /* x192119 */ t23451.s0.tag = STRUCTURE_TYPE24753; t23451.s0.value.structure_type24753 = &t23452; /* x192120 */ t23454.s0.tag = EXTERNAL_SYMBOL_TYPE; t23454.s0.value.external_symbol_type = q240; /* x192121 */ t23457.s0.tag = EXTERNAL_SYMBOL_TYPE; t23457.s0.value.external_symbol_type = q111; /* x192122 */ t23458.s0.tag = EXTERNAL_SYMBOL_TYPE; t23458.s0.value.external_symbol_type = q453; /* x192123 */ t23458.s1.tag = NULL_TYPE; /* x192124 */ t23457.s1.tag = STRUCTURE_TYPE24753; t23457.s1.value.structure_type24753 = &t23458; /* x192125 */ t23456.s0.tag = STRUCTURE_TYPE24753; t23456.s0.value.structure_type24753 = &t23457; /* x192126 */ t23459.s0.tag = FIXNUM_TYPE; t23459.s0.value.fixnum_type = 0; /* x192127 */ t23459.s1.tag = NULL_TYPE; /* x192128 */ t23456.s1.tag = STRUCTURE_TYPE24753; t23456.s1.value.structure_type24753 = &t23459; /* x192129 */ t23455.s0.tag = STRUCTURE_TYPE24753; t23455.s0.value.structure_type24753 = &t23456; /* x192130 */ t23462.s0.tag = EXTERNAL_SYMBOL_TYPE; t23462.s0.value.external_symbol_type = q111; /* x192131 */ t23464.s0.tag = EXTERNAL_SYMBOL_TYPE; t23464.s0.value.external_symbol_type = q108; /* x192132 */ t23465.s0.tag = EXTERNAL_SYMBOL_TYPE; t23465.s0.value.external_symbol_type = q453; /* x192133 */ t23465.s1.tag = NULL_TYPE; /* x192134 */ t23464.s1.tag = STRUCTURE_TYPE24753; t23464.s1.value.structure_type24753 = &t23465; /* x192135 */ t23463.s0.tag = STRUCTURE_TYPE24753; t23463.s0.value.structure_type24753 = &t23464; /* x192136 */ t23463.s1.tag = NULL_TYPE; /* x192137 */ t23462.s1.tag = STRUCTURE_TYPE24753; t23462.s1.value.structure_type24753 = &t23463; /* x192138 */ t23461.s0.tag = STRUCTURE_TYPE24753; t23461.s0.value.structure_type24753 = &t23462; /* x192139 */ t23467.s0.tag = EXTERNAL_SYMBOL_TYPE; t23467.s0.value.external_symbol_type = q448; /* x192140 */ t23469.s0.tag = EXTERNAL_SYMBOL_TYPE; t23469.s0.value.external_symbol_type = q107; /* x192141 */ t23470.s0.tag = EXTERNAL_SYMBOL_TYPE; t23470.s0.value.external_symbol_type = q453; /* x192142 */ t23470.s1.tag = NULL_TYPE; /* x192143 */ t23469.s1.tag = STRUCTURE_TYPE24753; t23469.s1.value.structure_type24753 = &t23470; /* x192144 */ t23468.s0.tag = STRUCTURE_TYPE24753; t23468.s0.value.structure_type24753 = &t23469; /* x192145 */ t23468.s1.tag = NULL_TYPE; /* x192146 */ t23467.s1.tag = STRUCTURE_TYPE24753; t23467.s1.value.structure_type24753 = &t23468; /* x192147 */ t23466.s0.tag = STRUCTURE_TYPE24753; t23466.s0.value.structure_type24753 = &t23467; /* x192148 */ t23466.s1.tag = NULL_TYPE; /* x192149 */ t23461.s1.tag = STRUCTURE_TYPE24753; t23461.s1.value.structure_type24753 = &t23466; /* x192150 */ t23460.s0.tag = STRUCTURE_TYPE24753; t23460.s0.value.structure_type24753 = &t23461; /* x192151 */ t23472.s0.tag = EXTERNAL_SYMBOL_TYPE; t23472.s0.value.external_symbol_type = q95; /* x192152 */ t23474.s0.tag = EXTERNAL_SYMBOL_TYPE; t23474.s0.value.external_symbol_type = q242; /* x192153 */ t23475.s0.tag = EXTERNAL_SYMBOL_TYPE; t23475.s0.value.external_symbol_type = q287; /* x192154 */ t23478.s0.tag = EXTERNAL_SYMBOL_TYPE; t23478.s0.value.external_symbol_type = q449; /* x192155 */ t23480.s0.tag = EXTERNAL_SYMBOL_TYPE; t23480.s0.value.external_symbol_type = q448; /* x192156 */ t23482.s0.tag = EXTERNAL_SYMBOL_TYPE; t23482.s0.value.external_symbol_type = q107; /* x192157 */ t23483.s0.tag = EXTERNAL_SYMBOL_TYPE; t23483.s0.value.external_symbol_type = q453; /* x192158 */ t23483.s1.tag = NULL_TYPE; /* x192159 */ t23482.s1.tag = STRUCTURE_TYPE24753; t23482.s1.value.structure_type24753 = &t23483; /* x192160 */ t23481.s0.tag = STRUCTURE_TYPE24753; t23481.s0.value.structure_type24753 = &t23482; /* x192161 */ t23481.s1.tag = NULL_TYPE; /* x192162 */ t23480.s1.tag = STRUCTURE_TYPE24753; t23480.s1.value.structure_type24753 = &t23481; /* x192163 */ t23479.s0.tag = STRUCTURE_TYPE24753; t23479.s0.value.structure_type24753 = &t23480; /* x192164 */ t23479.s1.tag = NULL_TYPE; /* x192165 */ t23478.s1.tag = STRUCTURE_TYPE24753; t23478.s1.value.structure_type24753 = &t23479; /* x192166 */ t23477.s0.tag = STRUCTURE_TYPE24753; t23477.s0.value.structure_type24753 = &t23478; /* x192167 */ t23485.s0.tag = EXTERNAL_SYMBOL_TYPE; t23485.s0.value.external_symbol_type = q450; /* x192168 */ t23487.s0.tag = EXTERNAL_SYMBOL_TYPE; t23487.s0.value.external_symbol_type = q448; /* x192169 */ t23489.s0.tag = EXTERNAL_SYMBOL_TYPE; t23489.s0.value.external_symbol_type = q107; /* x192170 */ t23491.s0.tag = EXTERNAL_SYMBOL_TYPE; t23491.s0.value.external_symbol_type = q108; /* x192171 */ t23492.s0.tag = EXTERNAL_SYMBOL_TYPE; t23492.s0.value.external_symbol_type = q453; /* x192172 */ t23492.s1.tag = NULL_TYPE; /* x192173 */ t23491.s1.tag = STRUCTURE_TYPE24753; t23491.s1.value.structure_type24753 = &t23492; /* x192174 */ t23490.s0.tag = STRUCTURE_TYPE24753; t23490.s0.value.structure_type24753 = &t23491; /* x192175 */ t23490.s1.tag = NULL_TYPE; /* x192176 */ t23489.s1.tag = STRUCTURE_TYPE24753; t23489.s1.value.structure_type24753 = &t23490; /* x192177 */ t23488.s0.tag = STRUCTURE_TYPE24753; t23488.s0.value.structure_type24753 = &t23489; /* x192178 */ t23488.s1.tag = NULL_TYPE; /* x192179 */ t23487.s1.tag = STRUCTURE_TYPE24753; t23487.s1.value.structure_type24753 = &t23488; /* x192180 */ t23486.s0.tag = STRUCTURE_TYPE24753; t23486.s0.value.structure_type24753 = &t23487; /* x192181 */ t23486.s1.tag = NULL_TYPE; /* x192182 */ t23485.s1.tag = STRUCTURE_TYPE24753; t23485.s1.value.structure_type24753 = &t23486; /* x192183 */ t23484.s0.tag = STRUCTURE_TYPE24753; t23484.s0.value.structure_type24753 = &t23485; /* x192184 */ t23494.s0.tag = EXTERNAL_SYMBOL_TYPE; t23494.s0.value.external_symbol_type = q453; /* x192185 */ t23496.s0.tag = EXTERNAL_SYMBOL_TYPE; t23496.s0.value.external_symbol_type = q108; /* x192186 */ t23498.s0.tag = EXTERNAL_SYMBOL_TYPE; t23498.s0.value.external_symbol_type = q108; /* x192187 */ t23499.s0.tag = EXTERNAL_SYMBOL_TYPE; t23499.s0.value.external_symbol_type = q453; /* x192188 */ t23499.s1.tag = NULL_TYPE; /* x192189 */ t23498.s1.tag = STRUCTURE_TYPE24753; t23498.s1.value.structure_type24753 = &t23499; /* x192190 */ t23497.s0.tag = STRUCTURE_TYPE24753; t23497.s0.value.structure_type24753 = &t23498; /* x192191 */ t23497.s1.tag = NULL_TYPE; /* x192192 */ t23496.s1.tag = STRUCTURE_TYPE24753; t23496.s1.value.structure_type24753 = &t23497; /* x192193 */ t23495.s0.tag = STRUCTURE_TYPE24753; t23495.s0.value.structure_type24753 = &t23496; /* x192194 */ t23495.s1.tag = NULL_TYPE; /* x192195 */ t23494.s1.tag = STRUCTURE_TYPE24753; t23494.s1.value.structure_type24753 = &t23495; /* x192196 */ t23493.s0.tag = STRUCTURE_TYPE24753; t23493.s0.value.structure_type24753 = &t23494; /* x192197 */ t23501.s0.tag = EXTERNAL_SYMBOL_TYPE; t23501.s0.value.external_symbol_type = q454; /* x192198 */ t23503.s0.tag = EXTERNAL_SYMBOL_TYPE; t23503.s0.value.external_symbol_type = q241; /* x192199 */ t23505.s0.tag = EXTERNAL_SYMBOL_TYPE; t23505.s0.value.external_symbol_type = q119; /* x192200 */ t23507.s0.tag = EXTERNAL_SYMBOL_TYPE; t23507.s0.value.external_symbol_type = q107; /* x192201 */ t23508.s0.tag = EXTERNAL_SYMBOL_TYPE; t23508.s0.value.external_symbol_type = q453; /* x192202 */ t23508.s1.tag = NULL_TYPE; /* x192203 */ t23507.s1.tag = STRUCTURE_TYPE24753; t23507.s1.value.structure_type24753 = &t23508; /* x192204 */ t23506.s0.tag = STRUCTURE_TYPE24753; t23506.s0.value.structure_type24753 = &t23507; /* x192205 */ t23506.s1.tag = NULL_TYPE; /* x192206 */ t23505.s1.tag = STRUCTURE_TYPE24753; t23505.s1.value.structure_type24753 = &t23506; /* x192207 */ t23504.s0.tag = STRUCTURE_TYPE24753; t23504.s0.value.structure_type24753 = &t23505; /* x192208 */ t23510.s0.tag = EXTERNAL_SYMBOL_TYPE; t23510.s0.value.external_symbol_type = q119; /* x192209 */ t23512.s0.tag = EXTERNAL_SYMBOL_TYPE; t23512.s0.value.external_symbol_type = q107; /* x192210 */ t23514.s0.tag = EXTERNAL_SYMBOL_TYPE; t23514.s0.value.external_symbol_type = q108; /* x192211 */ t23515.s0.tag = EXTERNAL_SYMBOL_TYPE; t23515.s0.value.external_symbol_type = q453; /* x192212 */ t23515.s1.tag = NULL_TYPE; /* x192213 */ t23514.s1.tag = STRUCTURE_TYPE24753; t23514.s1.value.structure_type24753 = &t23515; /* x192214 */ t23513.s0.tag = STRUCTURE_TYPE24753; t23513.s0.value.structure_type24753 = &t23514; /* x192215 */ t23513.s1.tag = NULL_TYPE; /* x192216 */ t23512.s1.tag = STRUCTURE_TYPE24753; t23512.s1.value.structure_type24753 = &t23513; /* x192217 */ t23511.s0.tag = STRUCTURE_TYPE24753; t23511.s0.value.structure_type24753 = &t23512; /* x192218 */ t23511.s1.tag = NULL_TYPE; /* x192219 */ t23510.s1.tag = STRUCTURE_TYPE24753; t23510.s1.value.structure_type24753 = &t23511; /* x192220 */ t23509.s0.tag = STRUCTURE_TYPE24753; t23509.s0.value.structure_type24753 = &t23510; /* x192221 */ t23509.s1.tag = NULL_TYPE; /* x192222 */ t23504.s1.tag = STRUCTURE_TYPE24753; t23504.s1.value.structure_type24753 = &t23509; /* x192223 */ t23503.s1.tag = STRUCTURE_TYPE24753; t23503.s1.value.structure_type24753 = &t23504; /* x192224 */ t23502.s0.tag = STRUCTURE_TYPE24753; t23502.s0.value.structure_type24753 = &t23503; /* x192225 */ t23502.s1.tag = NULL_TYPE; /* x192226 */ t23501.s1.tag = STRUCTURE_TYPE24753; t23501.s1.value.structure_type24753 = &t23502; /* x192227 */ t23500.s0.tag = STRUCTURE_TYPE24753; t23500.s0.value.structure_type24753 = &t23501; /* x192228 */ t23500.s1.tag = NULL_TYPE; /* x192229 */ t23493.s1.tag = STRUCTURE_TYPE24753; t23493.s1.value.structure_type24753 = &t23500; /* x192230 */ t23484.s1.tag = STRUCTURE_TYPE24753; t23484.s1.value.structure_type24753 = &t23493; /* x192231 */ t23477.s1.tag = STRUCTURE_TYPE24753; t23477.s1.value.structure_type24753 = &t23484; /* x192232 */ t23476.s0.tag = STRUCTURE_TYPE24753; t23476.s0.value.structure_type24753 = &t23477; /* x192233 */ t23517.s0.tag = EXTERNAL_SYMBOL_TYPE; t23517.s0.value.external_symbol_type = q43; /* x192234 */ t23519.s0.tag = EXTERNAL_SYMBOL_TYPE; t23519.s0.value.external_symbol_type = q125; /* x192235 */ t23520.s0.tag = EXTERNAL_SYMBOL_TYPE; t23520.s0.value.external_symbol_type = q450; /* x192236 */ t23520.s1.tag = NULL_TYPE; /* x192237 */ t23519.s1.tag = STRUCTURE_TYPE24753; t23519.s1.value.structure_type24753 = &t23520; /* x192238 */ t23518.s0.tag = STRUCTURE_TYPE24753; t23518.s0.value.structure_type24753 = &t23519; /* x192239 */ t23522.s0.tag = EXTERNAL_SYMBOL_TYPE; t23522.s0.value.external_symbol_type = q43; /* x192240 */ t23524.s0.tag = EXTERNAL_SYMBOL_TYPE; t23524.s0.value.external_symbol_type = q111; /* x192241 */ t23525.s0.tag = EXTERNAL_SYMBOL_TYPE; t23525.s0.value.external_symbol_type = q453; /* x192242 */ t23525.s1.tag = NULL_TYPE; /* x192243 */ t23524.s1.tag = STRUCTURE_TYPE24753; t23524.s1.value.structure_type24753 = &t23525; /* x192244 */ t23523.s0.tag = STRUCTURE_TYPE24753; t23523.s0.value.structure_type24753 = &t23524; /* x192245 */ t23527.s0.tag = EXTERNAL_SYMBOL_TYPE; t23527.s0.value.external_symbol_type = q43; /* x192246 */ t23528.s0.tag = EXTERNAL_SYMBOL_TYPE; t23528.s0.value.external_symbol_type = q454; /* x192247 */ t23530.s0.tag = EXTERNAL_SYMBOL_TYPE; t23530.s0.value.external_symbol_type = q154; /* x192248 */ t23531.s0.tag = EXTERNAL_SYMBOL_TYPE; t23531.s0.value.external_symbol_type = q449; /* x192249 */ t23531.s1.tag = NULL_TYPE; /* x192250 */ t23530.s1.tag = STRUCTURE_TYPE24753; t23530.s1.value.structure_type24753 = &t23531; /* x192251 */ t23529.s0.tag = STRUCTURE_TYPE24753; t23529.s0.value.structure_type24753 = &t23530; /* x192252 */ t23532.s0.tag = EXTERNAL_SYMBOL_TYPE; t23532.s0.value.external_symbol_type = q449; /* x192253 */ t23532.s1.tag = NULL_TYPE; /* x192254 */ t23529.s1.tag = STRUCTURE_TYPE24753; t23529.s1.value.structure_type24753 = &t23532; /* x192255 */ t23528.s1.tag = STRUCTURE_TYPE24753; t23528.s1.value.structure_type24753 = &t23529; /* x192256 */ t23527.s1.tag = STRUCTURE_TYPE24753; t23527.s1.value.structure_type24753 = &t23528; /* x192257 */ t23526.s0.tag = STRUCTURE_TYPE24753; t23526.s0.value.structure_type24753 = &t23527; /* x192258 */ t23534.s0.tag = EXTERNAL_SYMBOL_TYPE; t23534.s0.value.external_symbol_type = q287; /* x192259 */ t23535.s0.tag = EXTERNAL_SYMBOL_TYPE; t23535.s0.value.external_symbol_type = q449; /* x192260 */ t23537.s0.tag = EXTERNAL_SYMBOL_TYPE; t23537.s0.value.external_symbol_type = q448; /* x192261 */ t23539.s0.tag = EXTERNAL_SYMBOL_TYPE; t23539.s0.value.external_symbol_type = q107; /* x192262 */ t23540.s0.tag = EXTERNAL_SYMBOL_TYPE; t23540.s0.value.external_symbol_type = q453; /* x192263 */ t23540.s1.tag = NULL_TYPE; /* x192264 */ t23539.s1.tag = STRUCTURE_TYPE24753; t23539.s1.value.structure_type24753 = &t23540; /* x192265 */ t23538.s0.tag = STRUCTURE_TYPE24753; t23538.s0.value.structure_type24753 = &t23539; /* x192266 */ t23538.s1.tag = NULL_TYPE; /* x192267 */ t23537.s1.tag = STRUCTURE_TYPE24753; t23537.s1.value.structure_type24753 = &t23538; /* x192268 */ t23536.s0.tag = STRUCTURE_TYPE24753; t23536.s0.value.structure_type24753 = &t23537; /* x192269 */ t23542.s0.tag = EXTERNAL_SYMBOL_TYPE; t23542.s0.value.external_symbol_type = q108; /* x192270 */ t23543.s0.tag = EXTERNAL_SYMBOL_TYPE; t23543.s0.value.external_symbol_type = q453; /* x192271 */ t23543.s1.tag = NULL_TYPE; /* x192272 */ t23542.s1.tag = STRUCTURE_TYPE24753; t23542.s1.value.structure_type24753 = &t23543; /* x192273 */ t23541.s0.tag = STRUCTURE_TYPE24753; t23541.s0.value.structure_type24753 = &t23542; /* x192274 */ t23545.s0.tag = EXTERNAL_SYMBOL_TYPE; t23545.s0.value.external_symbol_type = q241; /* x192275 */ t23546.s0.tag = EXTERNAL_SYMBOL_TYPE; t23546.s0.value.external_symbol_type = q454; /* x192276 */ t23548.s0.tag = EXTERNAL_SYMBOL_TYPE; t23548.s0.value.external_symbol_type = q119; /* x192277 */ t23550.s0.tag = EXTERNAL_SYMBOL_TYPE; t23550.s0.value.external_symbol_type = q107; /* x192278 */ t23551.s0.tag = EXTERNAL_SYMBOL_TYPE; t23551.s0.value.external_symbol_type = q453; /* x192279 */ t23551.s1.tag = NULL_TYPE; /* x192280 */ t23550.s1.tag = STRUCTURE_TYPE24753; t23550.s1.value.structure_type24753 = &t23551; /* x192281 */ t23549.s0.tag = STRUCTURE_TYPE24753; t23549.s0.value.structure_type24753 = &t23550; /* x192282 */ t23549.s1.tag = NULL_TYPE; /* x192283 */ t23548.s1.tag = STRUCTURE_TYPE24753; t23548.s1.value.structure_type24753 = &t23549; /* x192284 */ t23547.s0.tag = STRUCTURE_TYPE24753; t23547.s0.value.structure_type24753 = &t23548; /* x192285 */ t23547.s1.tag = NULL_TYPE; /* x192286 */ t23546.s1.tag = STRUCTURE_TYPE24753; t23546.s1.value.structure_type24753 = &t23547; /* x192287 */ t23545.s1.tag = STRUCTURE_TYPE24753; t23545.s1.value.structure_type24753 = &t23546; /* x192288 */ t23544.s0.tag = STRUCTURE_TYPE24753; t23544.s0.value.structure_type24753 = &t23545; /* x192289 */ t23544.s1.tag = NULL_TYPE; /* x192290 */ t23541.s1.tag = STRUCTURE_TYPE24753; t23541.s1.value.structure_type24753 = &t23544; /* x192291 */ t23536.s1.tag = STRUCTURE_TYPE24753; t23536.s1.value.structure_type24753 = &t23541; /* x192292 */ t23535.s1.tag = STRUCTURE_TYPE24753; t23535.s1.value.structure_type24753 = &t23536; /* x192293 */ t23534.s1.tag = STRUCTURE_TYPE24753; t23534.s1.value.structure_type24753 = &t23535; /* x192294 */ t23533.s0.tag = STRUCTURE_TYPE24753; t23533.s0.value.structure_type24753 = &t23534; /* x192295 */ t23533.s1.tag = NULL_TYPE; /* x192296 */ t23526.s1.tag = STRUCTURE_TYPE24753; t23526.s1.value.structure_type24753 = &t23533; /* x192297 */ t23523.s1.tag = STRUCTURE_TYPE24753; t23523.s1.value.structure_type24753 = &t23526; /* x192298 */ t23522.s1.tag = STRUCTURE_TYPE24753; t23522.s1.value.structure_type24753 = &t23523; /* x192299 */ t23521.s0.tag = STRUCTURE_TYPE24753; t23521.s0.value.structure_type24753 = &t23522; /* x192300 */ t23553.s0.tag = EXTERNAL_SYMBOL_TYPE; t23553.s0.value.external_symbol_type = q242; /* x192301 */ t23556.s0.tag = EXTERNAL_SYMBOL_TYPE; t23556.s0.value.external_symbol_type = q409; /* x192302 */ t23558.s0.tag = EXTERNAL_SYMBOL_TYPE; t23558.s0.value.external_symbol_type = q133; /* x192303 */ t23559.s0.tag = EXTERNAL_SYMBOL_TYPE; t23559.s0.value.external_symbol_type = q449; /* x192304 */ t23560.s0.tag = EXTERNAL_SYMBOL_TYPE; t23560.s0.value.external_symbol_type = q450; /* x192305 */ t23560.s1.tag = NULL_TYPE; /* x192306 */ t23559.s1.tag = STRUCTURE_TYPE24753; t23559.s1.value.structure_type24753 = &t23560; /* x192307 */ t23558.s1.tag = STRUCTURE_TYPE24753; t23558.s1.value.structure_type24753 = &t23559; /* x192308 */ t23557.s0.tag = STRUCTURE_TYPE24753; t23557.s0.value.structure_type24753 = &t23558; /* x192309 */ t23557.s1.tag = NULL_TYPE; /* x192310 */ t23556.s1.tag = STRUCTURE_TYPE24753; t23556.s1.value.structure_type24753 = &t23557; /* x192311 */ t23555.s0.tag = STRUCTURE_TYPE24753; t23555.s0.value.structure_type24753 = &t23556; /* x192312 */ t23555.s1.tag = NULL_TYPE; /* x192313 */ t23554.s0.tag = STRUCTURE_TYPE24753; t23554.s0.value.structure_type24753 = &t23555; /* x192314 */ t23562.s0.tag = EXTERNAL_SYMBOL_TYPE; t23562.s0.value.external_symbol_type = q43; /* x192315 */ t23564.s0.tag = EXTERNAL_SYMBOL_TYPE; t23564.s0.value.external_symbol_type = q125; /* x192316 */ t23565.s0.tag = EXTERNAL_SYMBOL_TYPE; t23565.s0.value.external_symbol_type = q409; /* x192317 */ t23565.s1.tag = NULL_TYPE; /* x192318 */ t23564.s1.tag = STRUCTURE_TYPE24753; t23564.s1.value.structure_type24753 = &t23565; /* x192319 */ t23563.s0.tag = STRUCTURE_TYPE24753; t23563.s0.value.structure_type24753 = &t23564; /* x192320 */ t23567.s0.tag = EXTERNAL_SYMBOL_TYPE; t23567.s0.value.external_symbol_type = q43; /* x192321 */ t23569.s0.tag = EXTERNAL_SYMBOL_TYPE; t23569.s0.value.external_symbol_type = q111; /* x192322 */ t23570.s0.tag = EXTERNAL_SYMBOL_TYPE; t23570.s0.value.external_symbol_type = q453; /* x192323 */ t23570.s1.tag = NULL_TYPE; /* x192324 */ t23569.s1.tag = STRUCTURE_TYPE24753; t23569.s1.value.structure_type24753 = &t23570; /* x192325 */ t23568.s0.tag = STRUCTURE_TYPE24753; t23568.s0.value.structure_type24753 = &t23569; /* x192326 */ t23572.s0.tag = EXTERNAL_SYMBOL_TYPE; t23572.s0.value.external_symbol_type = q43; /* x192327 */ t23573.s0.tag = EXTERNAL_SYMBOL_TYPE; t23573.s0.value.external_symbol_type = q454; /* x192328 */ t23575.s0.tag = EXTERNAL_SYMBOL_TYPE; t23575.s0.value.external_symbol_type = q154; /* x192329 */ t23576.s0.tag = EXTERNAL_SYMBOL_TYPE; t23576.s0.value.external_symbol_type = q450; /* x192330 */ t23576.s1.tag = NULL_TYPE; /* x192331 */ t23575.s1.tag = STRUCTURE_TYPE24753; t23575.s1.value.structure_type24753 = &t23576; /* x192332 */ t23574.s0.tag = STRUCTURE_TYPE24753; t23574.s0.value.structure_type24753 = &t23575; /* x192333 */ t23577.s0.tag = EXTERNAL_SYMBOL_TYPE; t23577.s0.value.external_symbol_type = q450; /* x192334 */ t23577.s1.tag = NULL_TYPE; /* x192335 */ t23574.s1.tag = STRUCTURE_TYPE24753; t23574.s1.value.structure_type24753 = &t23577; /* x192336 */ t23573.s1.tag = STRUCTURE_TYPE24753; t23573.s1.value.structure_type24753 = &t23574; /* x192337 */ t23572.s1.tag = STRUCTURE_TYPE24753; t23572.s1.value.structure_type24753 = &t23573; /* x192338 */ t23571.s0.tag = STRUCTURE_TYPE24753; t23571.s0.value.structure_type24753 = &t23572; /* x192339 */ t23579.s0.tag = EXTERNAL_SYMBOL_TYPE; t23579.s0.value.external_symbol_type = q287; /* x192340 */ t23580.s0.tag = EXTERNAL_SYMBOL_TYPE; t23580.s0.value.external_symbol_type = q450; /* x192341 */ t23582.s0.tag = EXTERNAL_SYMBOL_TYPE; t23582.s0.value.external_symbol_type = q448; /* x192342 */ t23584.s0.tag = EXTERNAL_SYMBOL_TYPE; t23584.s0.value.external_symbol_type = q107; /* x192343 */ t23585.s0.tag = EXTERNAL_SYMBOL_TYPE; t23585.s0.value.external_symbol_type = q453; /* x192344 */ t23585.s1.tag = NULL_TYPE; /* x192345 */ t23584.s1.tag = STRUCTURE_TYPE24753; t23584.s1.value.structure_type24753 = &t23585; /* x192346 */ t23583.s0.tag = STRUCTURE_TYPE24753; t23583.s0.value.structure_type24753 = &t23584; /* x192347 */ t23583.s1.tag = NULL_TYPE; /* x192348 */ t23582.s1.tag = STRUCTURE_TYPE24753; t23582.s1.value.structure_type24753 = &t23583; /* x192349 */ t23581.s0.tag = STRUCTURE_TYPE24753; t23581.s0.value.structure_type24753 = &t23582; /* x192350 */ t23587.s0.tag = EXTERNAL_SYMBOL_TYPE; t23587.s0.value.external_symbol_type = q108; /* x192351 */ t23588.s0.tag = EXTERNAL_SYMBOL_TYPE; t23588.s0.value.external_symbol_type = q453; /* x192352 */ t23588.s1.tag = NULL_TYPE; /* x192353 */ t23587.s1.tag = STRUCTURE_TYPE24753; t23587.s1.value.structure_type24753 = &t23588; /* x192354 */ t23586.s0.tag = STRUCTURE_TYPE24753; t23586.s0.value.structure_type24753 = &t23587; /* x192355 */ t23590.s0.tag = EXTERNAL_SYMBOL_TYPE; t23590.s0.value.external_symbol_type = q241; /* x192356 */ t23591.s0.tag = EXTERNAL_SYMBOL_TYPE; t23591.s0.value.external_symbol_type = q454; /* x192357 */ t23593.s0.tag = EXTERNAL_SYMBOL_TYPE; t23593.s0.value.external_symbol_type = q119; /* x192358 */ t23595.s0.tag = EXTERNAL_SYMBOL_TYPE; t23595.s0.value.external_symbol_type = q107; /* x192359 */ t23596.s0.tag = EXTERNAL_SYMBOL_TYPE; t23596.s0.value.external_symbol_type = q453; /* x192360 */ t23596.s1.tag = NULL_TYPE; /* x192361 */ t23595.s1.tag = STRUCTURE_TYPE24753; t23595.s1.value.structure_type24753 = &t23596; /* x192362 */ t23594.s0.tag = STRUCTURE_TYPE24753; t23594.s0.value.structure_type24753 = &t23595; /* x192363 */ t23594.s1.tag = NULL_TYPE; /* x192364 */ t23593.s1.tag = STRUCTURE_TYPE24753; t23593.s1.value.structure_type24753 = &t23594; /* x192365 */ t23592.s0.tag = STRUCTURE_TYPE24753; t23592.s0.value.structure_type24753 = &t23593; /* x192366 */ t23592.s1.tag = NULL_TYPE; /* x192367 */ t23591.s1.tag = STRUCTURE_TYPE24753; t23591.s1.value.structure_type24753 = &t23592; /* x192368 */ t23590.s1.tag = STRUCTURE_TYPE24753; t23590.s1.value.structure_type24753 = &t23591; /* x192369 */ t23589.s0.tag = STRUCTURE_TYPE24753; t23589.s0.value.structure_type24753 = &t23590; /* x192370 */ t23589.s1.tag = NULL_TYPE; /* x192371 */ t23586.s1.tag = STRUCTURE_TYPE24753; t23586.s1.value.structure_type24753 = &t23589; /* x192372 */ t23581.s1.tag = STRUCTURE_TYPE24753; t23581.s1.value.structure_type24753 = &t23586; /* x192373 */ t23580.s1.tag = STRUCTURE_TYPE24753; t23580.s1.value.structure_type24753 = &t23581; /* x192374 */ t23579.s1.tag = STRUCTURE_TYPE24753; t23579.s1.value.structure_type24753 = &t23580; /* x192375 */ t23578.s0.tag = STRUCTURE_TYPE24753; t23578.s0.value.structure_type24753 = &t23579; /* x192376 */ t23578.s1.tag = NULL_TYPE; /* x192377 */ t23571.s1.tag = STRUCTURE_TYPE24753; t23571.s1.value.structure_type24753 = &t23578; /* x192378 */ t23568.s1.tag = STRUCTURE_TYPE24753; t23568.s1.value.structure_type24753 = &t23571; /* x192379 */ t23567.s1.tag = STRUCTURE_TYPE24753; t23567.s1.value.structure_type24753 = &t23568; /* x192380 */ t23566.s0.tag = STRUCTURE_TYPE24753; t23566.s0.value.structure_type24753 = &t23567; /* x192381 */ t23598.s0.tag = EXTERNAL_SYMBOL_TYPE; t23598.s0.value.external_symbol_type = q287; /* x192382 */ t23599.s0.tag = EXTERNAL_SYMBOL_TYPE; t23599.s0.value.external_symbol_type = q450; /* x192383 */ t23600.s0.tag = EXTERNAL_SYMBOL_TYPE; t23600.s0.value.external_symbol_type = q409; /* x192384 */ t23601.s0.tag = EXTERNAL_SYMBOL_TYPE; t23601.s0.value.external_symbol_type = q453; /* x192385 */ t23602.s0.tag = EXTERNAL_SYMBOL_TYPE; t23602.s0.value.external_symbol_type = q454; /* x192386 */ t23602.s1.tag = NULL_TYPE; /* x192387 */ t23601.s1.tag = STRUCTURE_TYPE24753; t23601.s1.value.structure_type24753 = &t23602; /* x192388 */ t23600.s1.tag = STRUCTURE_TYPE24753; t23600.s1.value.structure_type24753 = &t23601; /* x192389 */ t23599.s1.tag = STRUCTURE_TYPE24753; t23599.s1.value.structure_type24753 = &t23600; /* x192390 */ t23598.s1.tag = STRUCTURE_TYPE24753; t23598.s1.value.structure_type24753 = &t23599; /* x192391 */ t23597.s0.tag = STRUCTURE_TYPE24753; t23597.s0.value.structure_type24753 = &t23598; /* x192392 */ t23597.s1.tag = NULL_TYPE; /* x192393 */ t23566.s1.tag = STRUCTURE_TYPE24753; t23566.s1.value.structure_type24753 = &t23597; /* x192394 */ t23563.s1.tag = STRUCTURE_TYPE24753; t23563.s1.value.structure_type24753 = &t23566; /* x192395 */ t23562.s1.tag = STRUCTURE_TYPE24753; t23562.s1.value.structure_type24753 = &t23563; /* x192396 */ t23561.s0.tag = STRUCTURE_TYPE24753; t23561.s0.value.structure_type24753 = &t23562; /* x192397 */ t23561.s1.tag = NULL_TYPE; /* x192398 */ t23554.s1.tag = STRUCTURE_TYPE24753; t23554.s1.value.structure_type24753 = &t23561; /* x192399 */ t23553.s1.tag = STRUCTURE_TYPE24753; t23553.s1.value.structure_type24753 = &t23554; /* x192400 */ t23552.s0.tag = STRUCTURE_TYPE24753; t23552.s0.value.structure_type24753 = &t23553; /* x192401 */ t23552.s1.tag = NULL_TYPE; /* x192402 */ t23521.s1.tag = STRUCTURE_TYPE24753; t23521.s1.value.structure_type24753 = &t23552; /* x192403 */ t23518.s1.tag = STRUCTURE_TYPE24753; t23518.s1.value.structure_type24753 = &t23521; /* x192404 */ t23517.s1.tag = STRUCTURE_TYPE24753; t23517.s1.value.structure_type24753 = &t23518; /* x192405 */ t23516.s0.tag = STRUCTURE_TYPE24753; t23516.s0.value.structure_type24753 = &t23517; /* x192406 */ t23516.s1.tag = NULL_TYPE; /* x192407 */ t23476.s1.tag = STRUCTURE_TYPE24753; t23476.s1.value.structure_type24753 = &t23516; /* x192408 */ t23475.s1.tag = STRUCTURE_TYPE24753; t23475.s1.value.structure_type24753 = &t23476; /* x192409 */ t23474.s1.tag = STRUCTURE_TYPE24753; t23474.s1.value.structure_type24753 = &t23475; /* x192410 */ t23473.s0.tag = STRUCTURE_TYPE24753; t23473.s0.value.structure_type24753 = &t23474; /* x192411 */ t23473.s1.tag = NULL_TYPE; /* x192412 */ t23472.s1.tag = STRUCTURE_TYPE24753; t23472.s1.value.structure_type24753 = &t23473; /* x192413 */ t23471.s0.tag = STRUCTURE_TYPE24753; t23471.s0.value.structure_type24753 = &t23472; /* x192414 */ t23471.s1.tag = NULL_TYPE; /* x192415 */ t23460.s1.tag = STRUCTURE_TYPE24753; t23460.s1.value.structure_type24753 = &t23471; /* x192416 */ t23455.s1.tag = STRUCTURE_TYPE24753; t23455.s1.value.structure_type24753 = &t23460; /* x192417 */ t23454.s1.tag = STRUCTURE_TYPE24753; t23454.s1.value.structure_type24753 = &t23455; /* x192418 */ t23453.s0.tag = STRUCTURE_TYPE24753; t23453.s0.value.structure_type24753 = &t23454; /* x192419 */ t23453.s1.tag = NULL_TYPE; /* x192420 */ t23451.s1.tag = STRUCTURE_TYPE24753; t23451.s1.value.structure_type24753 = &t23453; /* x192421 */ t23450.s1.tag = STRUCTURE_TYPE24753; t23450.s1.value.structure_type24753 = &t23451; /* x192424 */ t23607.s0.tag = EXTERNAL_SYMBOL_TYPE; t23607.s0.value.external_symbol_type = q97; /* x192425 */ t23609.s0.tag = EXTERNAL_SYMBOL_TYPE; t23609.s0.value.external_symbol_type = q455; /* x192426 */ t23609.s1.tag = EXTERNAL_SYMBOL_TYPE; t23609.s1.value.external_symbol_type = q453; /* x192427 */ t23608.s0.tag = STRUCTURE_TYPE24753; t23608.s0.value.structure_type24753 = &t23609; /* x192428 */ t23611.s0.tag = EXTERNAL_SYMBOL_TYPE; t23611.s0.value.external_symbol_type = q240; /* x192429 */ t23614.s0.tag = EXTERNAL_SYMBOL_TYPE; t23614.s0.value.external_symbol_type = q111; /* x192430 */ t23615.s0.tag = EXTERNAL_SYMBOL_TYPE; t23615.s0.value.external_symbol_type = q453; /* x192431 */ t23615.s1.tag = NULL_TYPE; /* x192432 */ t23614.s1.tag = STRUCTURE_TYPE24753; t23614.s1.value.structure_type24753 = &t23615; /* x192433 */ t23613.s0.tag = STRUCTURE_TYPE24753; t23613.s0.value.structure_type24753 = &t23614; /* x192434 */ t23616.s0.tag = FIXNUM_TYPE; t23616.s0.value.fixnum_type = 1; /* x192435 */ t23616.s1.tag = NULL_TYPE; /* x192436 */ t23613.s1.tag = STRUCTURE_TYPE24753; t23613.s1.value.structure_type24753 = &t23616; /* x192437 */ t23612.s0.tag = STRUCTURE_TYPE24753; t23612.s0.value.structure_type24753 = &t23613; /* x192438 */ t23619.s0.tag = EXTERNAL_SYMBOL_TYPE; t23619.s0.value.external_symbol_type = q111; /* x192439 */ t23621.s0.tag = EXTERNAL_SYMBOL_TYPE; t23621.s0.value.external_symbol_type = q108; /* x192440 */ t23622.s0.tag = EXTERNAL_SYMBOL_TYPE; t23622.s0.value.external_symbol_type = q453; /* x192441 */ t23622.s1.tag = NULL_TYPE; /* x192442 */ t23621.s1.tag = STRUCTURE_TYPE24753; t23621.s1.value.structure_type24753 = &t23622; /* x192443 */ t23620.s0.tag = STRUCTURE_TYPE24753; t23620.s0.value.structure_type24753 = &t23621; /* x192444 */ t23620.s1.tag = NULL_TYPE; /* x192445 */ t23619.s1.tag = STRUCTURE_TYPE24753; t23619.s1.value.structure_type24753 = &t23620; /* x192446 */ t23618.s0.tag = STRUCTURE_TYPE24753; t23618.s0.value.structure_type24753 = &t23619; /* x192447 */ t23624.s0.tag = EXTERNAL_SYMBOL_TYPE; t23624.s0.value.external_symbol_type = q448; /* x192448 */ t23626.s0.tag = EXTERNAL_SYMBOL_TYPE; t23626.s0.value.external_symbol_type = q107; /* x192449 */ t23627.s0.tag = EXTERNAL_SYMBOL_TYPE; t23627.s0.value.external_symbol_type = q453; /* x192450 */ t23627.s1.tag = NULL_TYPE; /* x192451 */ t23626.s1.tag = STRUCTURE_TYPE24753; t23626.s1.value.structure_type24753 = &t23627; /* x192452 */ t23625.s0.tag = STRUCTURE_TYPE24753; t23625.s0.value.structure_type24753 = &t23626; /* x192453 */ t23625.s1.tag = NULL_TYPE; /* x192454 */ t23624.s1.tag = STRUCTURE_TYPE24753; t23624.s1.value.structure_type24753 = &t23625; /* x192455 */ t23623.s0.tag = STRUCTURE_TYPE24753; t23623.s0.value.structure_type24753 = &t23624; /* x192456 */ t23623.s1.tag = NULL_TYPE; /* x192457 */ t23618.s1.tag = STRUCTURE_TYPE24753; t23618.s1.value.structure_type24753 = &t23623; /* x192458 */ t23617.s0.tag = STRUCTURE_TYPE24753; t23617.s0.value.structure_type24753 = &t23618; /* x192459 */ t23629.s0.tag = EXTERNAL_SYMBOL_TYPE; t23629.s0.value.external_symbol_type = q95; /* x192460 */ t23631.s0.tag = EXTERNAL_SYMBOL_TYPE; t23631.s0.value.external_symbol_type = q242; /* x192461 */ t23632.s0.tag = EXTERNAL_SYMBOL_TYPE; t23632.s0.value.external_symbol_type = q287; /* x192462 */ t23635.s0.tag = EXTERNAL_SYMBOL_TYPE; t23635.s0.value.external_symbol_type = q449; /* x192463 */ t23637.s0.tag = EXTERNAL_SYMBOL_TYPE; t23637.s0.value.external_symbol_type = q448; /* x192464 */ t23639.s0.tag = EXTERNAL_SYMBOL_TYPE; t23639.s0.value.external_symbol_type = q107; /* x192465 */ t23640.s0.tag = EXTERNAL_SYMBOL_TYPE; t23640.s0.value.external_symbol_type = q453; /* x192466 */ t23640.s1.tag = NULL_TYPE; /* x192467 */ t23639.s1.tag = STRUCTURE_TYPE24753; t23639.s1.value.structure_type24753 = &t23640; /* x192468 */ t23638.s0.tag = STRUCTURE_TYPE24753; t23638.s0.value.structure_type24753 = &t23639; /* x192469 */ t23638.s1.tag = NULL_TYPE; /* x192470 */ t23637.s1.tag = STRUCTURE_TYPE24753; t23637.s1.value.structure_type24753 = &t23638; /* x192471 */ t23636.s0.tag = STRUCTURE_TYPE24753; t23636.s0.value.structure_type24753 = &t23637; /* x192472 */ t23636.s1.tag = NULL_TYPE; /* x192473 */ t23635.s1.tag = STRUCTURE_TYPE24753; t23635.s1.value.structure_type24753 = &t23636; /* x192474 */ t23634.s0.tag = STRUCTURE_TYPE24753; t23634.s0.value.structure_type24753 = &t23635; /* x192475 */ t23642.s0.tag = EXTERNAL_SYMBOL_TYPE; t23642.s0.value.external_symbol_type = q450; /* x192476 */ t23644.s0.tag = EXTERNAL_SYMBOL_TYPE; t23644.s0.value.external_symbol_type = q448; /* x192477 */ t23646.s0.tag = EXTERNAL_SYMBOL_TYPE; t23646.s0.value.external_symbol_type = q107; /* x192478 */ t23648.s0.tag = EXTERNAL_SYMBOL_TYPE; t23648.s0.value.external_symbol_type = q108; /* x192479 */ t23649.s0.tag = EXTERNAL_SYMBOL_TYPE; t23649.s0.value.external_symbol_type = q453; /* x192480 */ t23649.s1.tag = NULL_TYPE; /* x192481 */ t23648.s1.tag = STRUCTURE_TYPE24753; t23648.s1.value.structure_type24753 = &t23649; /* x192482 */ t23647.s0.tag = STRUCTURE_TYPE24753; t23647.s0.value.structure_type24753 = &t23648; /* x192483 */ t23647.s1.tag = NULL_TYPE; /* x192484 */ t23646.s1.tag = STRUCTURE_TYPE24753; t23646.s1.value.structure_type24753 = &t23647; /* x192485 */ t23645.s0.tag = STRUCTURE_TYPE24753; t23645.s0.value.structure_type24753 = &t23646; /* x192486 */ t23645.s1.tag = NULL_TYPE; /* x192487 */ t23644.s1.tag = STRUCTURE_TYPE24753; t23644.s1.value.structure_type24753 = &t23645; /* x192488 */ t23643.s0.tag = STRUCTURE_TYPE24753; t23643.s0.value.structure_type24753 = &t23644; /* x192489 */ t23643.s1.tag = NULL_TYPE; /* x192490 */ t23642.s1.tag = STRUCTURE_TYPE24753; t23642.s1.value.structure_type24753 = &t23643; /* x192491 */ t23641.s0.tag = STRUCTURE_TYPE24753; t23641.s0.value.structure_type24753 = &t23642; /* x192492 */ t23651.s0.tag = EXTERNAL_SYMBOL_TYPE; t23651.s0.value.external_symbol_type = q453; /* x192493 */ t23653.s0.tag = EXTERNAL_SYMBOL_TYPE; t23653.s0.value.external_symbol_type = q108; /* x192494 */ t23655.s0.tag = EXTERNAL_SYMBOL_TYPE; t23655.s0.value.external_symbol_type = q108; /* x192495 */ t23656.s0.tag = EXTERNAL_SYMBOL_TYPE; t23656.s0.value.external_symbol_type = q453; /* x192496 */ t23656.s1.tag = NULL_TYPE; /* x192497 */ t23655.s1.tag = STRUCTURE_TYPE24753; t23655.s1.value.structure_type24753 = &t23656; /* x192498 */ t23654.s0.tag = STRUCTURE_TYPE24753; t23654.s0.value.structure_type24753 = &t23655; /* x192499 */ t23654.s1.tag = NULL_TYPE; /* x192500 */ t23653.s1.tag = STRUCTURE_TYPE24753; t23653.s1.value.structure_type24753 = &t23654; /* x192501 */ t23652.s0.tag = STRUCTURE_TYPE24753; t23652.s0.value.structure_type24753 = &t23653; /* x192502 */ t23652.s1.tag = NULL_TYPE; /* x192503 */ t23651.s1.tag = STRUCTURE_TYPE24753; t23651.s1.value.structure_type24753 = &t23652; /* x192504 */ t23650.s0.tag = STRUCTURE_TYPE24753; t23650.s0.value.structure_type24753 = &t23651; /* x192505 */ t23658.s0.tag = EXTERNAL_SYMBOL_TYPE; t23658.s0.value.external_symbol_type = q454; /* x192506 */ t23660.s0.tag = EXTERNAL_SYMBOL_TYPE; t23660.s0.value.external_symbol_type = q241; /* x192507 */ t23662.s0.tag = EXTERNAL_SYMBOL_TYPE; t23662.s0.value.external_symbol_type = q119; /* x192508 */ t23664.s0.tag = EXTERNAL_SYMBOL_TYPE; t23664.s0.value.external_symbol_type = q107; /* x192509 */ t23665.s0.tag = EXTERNAL_SYMBOL_TYPE; t23665.s0.value.external_symbol_type = q453; /* x192510 */ t23665.s1.tag = NULL_TYPE; /* x192511 */ t23664.s1.tag = STRUCTURE_TYPE24753; t23664.s1.value.structure_type24753 = &t23665; /* x192512 */ t23663.s0.tag = STRUCTURE_TYPE24753; t23663.s0.value.structure_type24753 = &t23664; /* x192513 */ t23663.s1.tag = NULL_TYPE; /* x192514 */ t23662.s1.tag = STRUCTURE_TYPE24753; t23662.s1.value.structure_type24753 = &t23663; /* x192515 */ t23661.s0.tag = STRUCTURE_TYPE24753; t23661.s0.value.structure_type24753 = &t23662; /* x192516 */ t23667.s0.tag = EXTERNAL_SYMBOL_TYPE; t23667.s0.value.external_symbol_type = q119; /* x192517 */ t23669.s0.tag = EXTERNAL_SYMBOL_TYPE; t23669.s0.value.external_symbol_type = q107; /* x192518 */ t23671.s0.tag = EXTERNAL_SYMBOL_TYPE; t23671.s0.value.external_symbol_type = q108; /* x192519 */ t23672.s0.tag = EXTERNAL_SYMBOL_TYPE; t23672.s0.value.external_symbol_type = q453; /* x192520 */ t23672.s1.tag = NULL_TYPE; /* x192521 */ t23671.s1.tag = STRUCTURE_TYPE24753; t23671.s1.value.structure_type24753 = &t23672; /* x192522 */ t23670.s0.tag = STRUCTURE_TYPE24753; t23670.s0.value.structure_type24753 = &t23671; /* x192523 */ t23670.s1.tag = NULL_TYPE; /* x192524 */ t23669.s1.tag = STRUCTURE_TYPE24753; t23669.s1.value.structure_type24753 = &t23670; /* x192525 */ t23668.s0.tag = STRUCTURE_TYPE24753; t23668.s0.value.structure_type24753 = &t23669; /* x192526 */ t23668.s1.tag = NULL_TYPE; /* x192527 */ t23667.s1.tag = STRUCTURE_TYPE24753; t23667.s1.value.structure_type24753 = &t23668; /* x192528 */ t23666.s0.tag = STRUCTURE_TYPE24753; t23666.s0.value.structure_type24753 = &t23667; /* x192529 */ t23666.s1.tag = NULL_TYPE; /* x192530 */ t23661.s1.tag = STRUCTURE_TYPE24753; t23661.s1.value.structure_type24753 = &t23666; /* x192531 */ t23660.s1.tag = STRUCTURE_TYPE24753; t23660.s1.value.structure_type24753 = &t23661; /* x192532 */ t23659.s0.tag = STRUCTURE_TYPE24753; t23659.s0.value.structure_type24753 = &t23660; /* x192533 */ t23659.s1.tag = NULL_TYPE; /* x192534 */ t23658.s1.tag = STRUCTURE_TYPE24753; t23658.s1.value.structure_type24753 = &t23659; /* x192535 */ t23657.s0.tag = STRUCTURE_TYPE24753; t23657.s0.value.structure_type24753 = &t23658; /* x192536 */ t23657.s1.tag = NULL_TYPE; /* x192537 */ t23650.s1.tag = STRUCTURE_TYPE24753; t23650.s1.value.structure_type24753 = &t23657; /* x192538 */ t23641.s1.tag = STRUCTURE_TYPE24753; t23641.s1.value.structure_type24753 = &t23650; /* x192539 */ t23634.s1.tag = STRUCTURE_TYPE24753; t23634.s1.value.structure_type24753 = &t23641; /* x192540 */ t23633.s0.tag = STRUCTURE_TYPE24753; t23633.s0.value.structure_type24753 = &t23634; /* x192541 */ t23674.s0.tag = EXTERNAL_SYMBOL_TYPE; t23674.s0.value.external_symbol_type = q242; /* x192542 */ t23677.s0.tag = EXTERNAL_SYMBOL_TYPE; t23677.s0.value.external_symbol_type = q260; /* x192543 */ t23679.s0.tag = EXTERNAL_SYMBOL_TYPE; t23679.s0.value.external_symbol_type = q240; /* x192544 */ t23682.s0.tag = EXTERNAL_SYMBOL_TYPE; t23682.s0.value.external_symbol_type = q120; /* x192545 */ t23683.s0.tag = EXTERNAL_SYMBOL_TYPE; t23683.s0.value.external_symbol_type = q449; /* x192546 */ t23684.s0.tag = EXTERNAL_SYMBOL_TYPE; t23684.s0.value.external_symbol_type = q450; /* x192547 */ t23684.s1.tag = NULL_TYPE; /* x192548 */ t23683.s1.tag = STRUCTURE_TYPE24753; t23683.s1.value.structure_type24753 = &t23684; /* x192549 */ t23682.s1.tag = STRUCTURE_TYPE24753; t23682.s1.value.structure_type24753 = &t23683; /* x192550 */ t23681.s0.tag = STRUCTURE_TYPE24753; t23681.s0.value.structure_type24753 = &t23682; /* x192551 */ t23685.s0.tag = EXTERNAL_SYMBOL_TYPE; t23685.s0.value.external_symbol_type = q449; /* x192552 */ t23685.s1.tag = NULL_TYPE; /* x192553 */ t23681.s1.tag = STRUCTURE_TYPE24753; t23681.s1.value.structure_type24753 = &t23685; /* x192554 */ t23680.s0.tag = STRUCTURE_TYPE24753; t23680.s0.value.structure_type24753 = &t23681; /* x192555 */ t23688.s0.tag = EXTERNAL_SYMBOL_TYPE; t23688.s0.value.external_symbol_type = q125; /* x192556 */ t23690.s0.tag = EXTERNAL_SYMBOL_TYPE; t23690.s0.value.external_symbol_type = q133; /* x192557 */ t23691.s0.tag = EXTERNAL_SYMBOL_TYPE; t23691.s0.value.external_symbol_type = q449; /* x192558 */ t23692.s0.tag = EXTERNAL_SYMBOL_TYPE; t23692.s0.value.external_symbol_type = q450; /* x192559 */ t23692.s1.tag = NULL_TYPE; /* x192560 */ t23691.s1.tag = STRUCTURE_TYPE24753; t23691.s1.value.structure_type24753 = &t23692; /* x192561 */ t23690.s1.tag = STRUCTURE_TYPE24753; t23690.s1.value.structure_type24753 = &t23691; /* x192562 */ t23689.s0.tag = STRUCTURE_TYPE24753; t23689.s0.value.structure_type24753 = &t23690; /* x192563 */ t23689.s1.tag = NULL_TYPE; /* x192564 */ t23688.s1.tag = STRUCTURE_TYPE24753; t23688.s1.value.structure_type24753 = &t23689; /* x192565 */ t23687.s0.tag = STRUCTURE_TYPE24753; t23687.s0.value.structure_type24753 = &t23688; /* x192566 */ t23693.s0.tag = EXTERNAL_SYMBOL_TYPE; t23693.s0.value.external_symbol_type = q449; /* x192567 */ t23693.s1.tag = NULL_TYPE; /* x192568 */ t23687.s1.tag = STRUCTURE_TYPE24753; t23687.s1.value.structure_type24753 = &t23693; /* x192569 */ t23686.s0.tag = STRUCTURE_TYPE24753; t23686.s0.value.structure_type24753 = &t23687; /* x192570 */ t23696.s0.tag = EXTERNAL_SYMBOL_TYPE; t23696.s0.value.external_symbol_type = q125; /* x192571 */ t23698.s0.tag = EXTERNAL_SYMBOL_TYPE; t23698.s0.value.external_symbol_type = q133; /* x192572 */ t23699.s0.tag = EXTERNAL_SYMBOL_TYPE; t23699.s0.value.external_symbol_type = q450; /* x192573 */ t23700.s0.tag = EXTERNAL_SYMBOL_TYPE; t23700.s0.value.external_symbol_type = q449; /* x192574 */ t23700.s1.tag = NULL_TYPE; /* x192575 */ t23699.s1.tag = STRUCTURE_TYPE24753; t23699.s1.value.structure_type24753 = &t23700; /* x192576 */ t23698.s1.tag = STRUCTURE_TYPE24753; t23698.s1.value.structure_type24753 = &t23699; /* x192577 */ t23697.s0.tag = STRUCTURE_TYPE24753; t23697.s0.value.structure_type24753 = &t23698; /* x192578 */ t23697.s1.tag = NULL_TYPE; /* x192579 */ t23696.s1.tag = STRUCTURE_TYPE24753; t23696.s1.value.structure_type24753 = &t23697; /* x192580 */ t23695.s0.tag = STRUCTURE_TYPE24753; t23695.s0.value.structure_type24753 = &t23696; /* x192581 */ t23701.s0.tag = EXTERNAL_SYMBOL_TYPE; t23701.s0.value.external_symbol_type = q450; /* x192582 */ t23701.s1.tag = NULL_TYPE; /* x192583 */ t23695.s1.tag = STRUCTURE_TYPE24753; t23695.s1.value.structure_type24753 = &t23701; /* x192584 */ t23694.s0.tag = STRUCTURE_TYPE24753; t23694.s0.value.structure_type24753 = &t23695; /* x192585 */ t23703.s0.tag = EXTERNAL_SYMBOL_TYPE; t23703.s0.value.external_symbol_type = q95; /* x192586 */ t23705.s0.tag = EXTERNAL_SYMBOL_TYPE; t23705.s0.value.external_symbol_type = q130; /* x192587 */ t23707.s0.tag = EXTERNAL_SYMBOL_TYPE; t23707.s0.value.external_symbol_type = q132; /* x192588 */ t23708.s0.tag = EXTERNAL_SYMBOL_TYPE; t23708.s0.value.external_symbol_type = q449; /* x192589 */ t23710.s0.tag = EXTERNAL_SYMBOL_TYPE; t23710.s0.value.external_symbol_type = q452; /* x192590 */ t23711.s0.tag = EXTERNAL_SYMBOL_TYPE; t23711.s0.value.external_symbol_type = q449; /* x192591 */ t23712.s0.tag = EXTERNAL_SYMBOL_TYPE; t23712.s0.value.external_symbol_type = q450; /* x192592 */ t23712.s1.tag = NULL_TYPE; /* x192593 */ t23711.s1.tag = STRUCTURE_TYPE24753; t23711.s1.value.structure_type24753 = &t23712; /* x192594 */ t23710.s1.tag = STRUCTURE_TYPE24753; t23710.s1.value.structure_type24753 = &t23711; /* x192595 */ t23709.s0.tag = STRUCTURE_TYPE24753; t23709.s0.value.structure_type24753 = &t23710; /* x192596 */ t23709.s1.tag = NULL_TYPE; /* x192597 */ t23708.s1.tag = STRUCTURE_TYPE24753; t23708.s1.value.structure_type24753 = &t23709; /* x192598 */ t23707.s1.tag = STRUCTURE_TYPE24753; t23707.s1.value.structure_type24753 = &t23708; /* x192599 */ t23706.s0.tag = STRUCTURE_TYPE24753; t23706.s0.value.structure_type24753 = &t23707; /* x192600 */ t23713.s0.tag = EXTERNAL_SYMBOL_TYPE; t23713.s0.value.external_symbol_type = q450; /* x192601 */ t23713.s1.tag = NULL_TYPE; /* x192602 */ t23706.s1.tag = STRUCTURE_TYPE24753; t23706.s1.value.structure_type24753 = &t23713; /* x192603 */ t23705.s1.tag = STRUCTURE_TYPE24753; t23705.s1.value.structure_type24753 = &t23706; /* x192604 */ t23704.s0.tag = STRUCTURE_TYPE24753; t23704.s0.value.structure_type24753 = &t23705; /* x192605 */ t23704.s1.tag = NULL_TYPE; /* x192606 */ t23703.s1.tag = STRUCTURE_TYPE24753; t23703.s1.value.structure_type24753 = &t23704; /* x192607 */ t23702.s0.tag = STRUCTURE_TYPE24753; t23702.s0.value.structure_type24753 = &t23703; /* x192608 */ t23702.s1.tag = NULL_TYPE; /* x192609 */ t23694.s1.tag = STRUCTURE_TYPE24753; t23694.s1.value.structure_type24753 = &t23702; /* x192610 */ t23686.s1.tag = STRUCTURE_TYPE24753; t23686.s1.value.structure_type24753 = &t23694; /* x192611 */ t23680.s1.tag = STRUCTURE_TYPE24753; t23680.s1.value.structure_type24753 = &t23686; /* x192612 */ t23679.s1.tag = STRUCTURE_TYPE24753; t23679.s1.value.structure_type24753 = &t23680; /* x192613 */ t23678.s0.tag = STRUCTURE_TYPE24753; t23678.s0.value.structure_type24753 = &t23679; /* x192614 */ t23678.s1.tag = NULL_TYPE; /* x192615 */ t23677.s1.tag = STRUCTURE_TYPE24753; t23677.s1.value.structure_type24753 = &t23678; /* x192616 */ t23676.s0.tag = STRUCTURE_TYPE24753; t23676.s0.value.structure_type24753 = &t23677; /* x192617 */ t23676.s1.tag = NULL_TYPE; /* x192618 */ t23675.s0.tag = STRUCTURE_TYPE24753; t23675.s0.value.structure_type24753 = &t23676; /* x192619 */ t23715.s0.tag = EXTERNAL_SYMBOL_TYPE; t23715.s0.value.external_symbol_type = q43; /* x192620 */ t23717.s0.tag = EXTERNAL_SYMBOL_TYPE; t23717.s0.value.external_symbol_type = q111; /* x192621 */ t23718.s0.tag = EXTERNAL_SYMBOL_TYPE; t23718.s0.value.external_symbol_type = q453; /* x192622 */ t23718.s1.tag = NULL_TYPE; /* x192623 */ t23717.s1.tag = STRUCTURE_TYPE24753; t23717.s1.value.structure_type24753 = &t23718; /* x192624 */ t23716.s0.tag = STRUCTURE_TYPE24753; t23716.s0.value.structure_type24753 = &t23717; /* x192625 */ t23720.s0.tag = EXTERNAL_SYMBOL_TYPE; t23720.s0.value.external_symbol_type = q43; /* x192626 */ t23721.s0.tag = EXTERNAL_SYMBOL_TYPE; t23721.s0.value.external_symbol_type = q454; /* x192627 */ t23723.s0.tag = EXTERNAL_SYMBOL_TYPE; t23723.s0.value.external_symbol_type = q154; /* x192628 */ t23724.s0.tag = EXTERNAL_SYMBOL_TYPE; t23724.s0.value.external_symbol_type = q260; /* x192629 */ t23724.s1.tag = NULL_TYPE; /* x192630 */ t23723.s1.tag = STRUCTURE_TYPE24753; t23723.s1.value.structure_type24753 = &t23724; /* x192631 */ t23722.s0.tag = STRUCTURE_TYPE24753; t23722.s0.value.structure_type24753 = &t23723; /* x192632 */ t23725.s0.tag = EXTERNAL_SYMBOL_TYPE; t23725.s0.value.external_symbol_type = q260; /* x192633 */ t23725.s1.tag = NULL_TYPE; /* x192634 */ t23722.s1.tag = STRUCTURE_TYPE24753; t23722.s1.value.structure_type24753 = &t23725; /* x192635 */ t23721.s1.tag = STRUCTURE_TYPE24753; t23721.s1.value.structure_type24753 = &t23722; /* x192636 */ t23720.s1.tag = STRUCTURE_TYPE24753; t23720.s1.value.structure_type24753 = &t23721; /* x192637 */ t23719.s0.tag = STRUCTURE_TYPE24753; t23719.s0.value.structure_type24753 = &t23720; /* x192638 */ t23727.s0.tag = EXTERNAL_SYMBOL_TYPE; t23727.s0.value.external_symbol_type = q287; /* x192639 */ t23728.s0.tag = EXTERNAL_SYMBOL_TYPE; t23728.s0.value.external_symbol_type = q260; /* x192640 */ t23730.s0.tag = EXTERNAL_SYMBOL_TYPE; t23730.s0.value.external_symbol_type = q448; /* x192641 */ t23732.s0.tag = EXTERNAL_SYMBOL_TYPE; t23732.s0.value.external_symbol_type = q107; /* x192642 */ t23733.s0.tag = EXTERNAL_SYMBOL_TYPE; t23733.s0.value.external_symbol_type = q453; /* x192643 */ t23733.s1.tag = NULL_TYPE; /* x192644 */ t23732.s1.tag = STRUCTURE_TYPE24753; t23732.s1.value.structure_type24753 = &t23733; /* x192645 */ t23731.s0.tag = STRUCTURE_TYPE24753; t23731.s0.value.structure_type24753 = &t23732; /* x192646 */ t23731.s1.tag = NULL_TYPE; /* x192647 */ t23730.s1.tag = STRUCTURE_TYPE24753; t23730.s1.value.structure_type24753 = &t23731; /* x192648 */ t23729.s0.tag = STRUCTURE_TYPE24753; t23729.s0.value.structure_type24753 = &t23730; /* x192649 */ t23735.s0.tag = EXTERNAL_SYMBOL_TYPE; t23735.s0.value.external_symbol_type = q108; /* x192650 */ t23736.s0.tag = EXTERNAL_SYMBOL_TYPE; t23736.s0.value.external_symbol_type = q453; /* x192651 */ t23736.s1.tag = NULL_TYPE; /* x192652 */ t23735.s1.tag = STRUCTURE_TYPE24753; t23735.s1.value.structure_type24753 = &t23736; /* x192653 */ t23734.s0.tag = STRUCTURE_TYPE24753; t23734.s0.value.structure_type24753 = &t23735; /* x192654 */ t23738.s0.tag = EXTERNAL_SYMBOL_TYPE; t23738.s0.value.external_symbol_type = q241; /* x192655 */ t23739.s0.tag = EXTERNAL_SYMBOL_TYPE; t23739.s0.value.external_symbol_type = q454; /* x192656 */ t23741.s0.tag = EXTERNAL_SYMBOL_TYPE; t23741.s0.value.external_symbol_type = q119; /* x192657 */ t23743.s0.tag = EXTERNAL_SYMBOL_TYPE; t23743.s0.value.external_symbol_type = q107; /* x192658 */ t23744.s0.tag = EXTERNAL_SYMBOL_TYPE; t23744.s0.value.external_symbol_type = q453; /* x192659 */ t23744.s1.tag = NULL_TYPE; /* x192660 */ t23743.s1.tag = STRUCTURE_TYPE24753; t23743.s1.value.structure_type24753 = &t23744; /* x192661 */ t23742.s0.tag = STRUCTURE_TYPE24753; t23742.s0.value.structure_type24753 = &t23743; /* x192662 */ t23742.s1.tag = NULL_TYPE; /* x192663 */ t23741.s1.tag = STRUCTURE_TYPE24753; t23741.s1.value.structure_type24753 = &t23742; /* x192664 */ t23740.s0.tag = STRUCTURE_TYPE24753; t23740.s0.value.structure_type24753 = &t23741; /* x192665 */ t23740.s1.tag = NULL_TYPE; /* x192666 */ t23739.s1.tag = STRUCTURE_TYPE24753; t23739.s1.value.structure_type24753 = &t23740; /* x192667 */ t23738.s1.tag = STRUCTURE_TYPE24753; t23738.s1.value.structure_type24753 = &t23739; /* x192668 */ t23737.s0.tag = STRUCTURE_TYPE24753; t23737.s0.value.structure_type24753 = &t23738; /* x192669 */ t23737.s1.tag = NULL_TYPE; /* x192670 */ t23734.s1.tag = STRUCTURE_TYPE24753; t23734.s1.value.structure_type24753 = &t23737; /* x192671 */ t23729.s1.tag = STRUCTURE_TYPE24753; t23729.s1.value.structure_type24753 = &t23734; /* x192672 */ t23728.s1.tag = STRUCTURE_TYPE24753; t23728.s1.value.structure_type24753 = &t23729; /* x192673 */ t23727.s1.tag = STRUCTURE_TYPE24753; t23727.s1.value.structure_type24753 = &t23728; /* x192674 */ t23726.s0.tag = STRUCTURE_TYPE24753; t23726.s0.value.structure_type24753 = &t23727; /* x192675 */ t23726.s1.tag = NULL_TYPE; /* x192676 */ t23719.s1.tag = STRUCTURE_TYPE24753; t23719.s1.value.structure_type24753 = &t23726; /* x192677 */ t23716.s1.tag = STRUCTURE_TYPE24753; t23716.s1.value.structure_type24753 = &t23719; /* x192678 */ t23715.s1.tag = STRUCTURE_TYPE24753; t23715.s1.value.structure_type24753 = &t23716; /* x192679 */ t23714.s0.tag = STRUCTURE_TYPE24753; t23714.s0.value.structure_type24753 = &t23715; /* x192680 */ t23714.s1.tag = NULL_TYPE; /* x192681 */ t23675.s1.tag = STRUCTURE_TYPE24753; t23675.s1.value.structure_type24753 = &t23714; /* x192682 */ t23674.s1.tag = STRUCTURE_TYPE24753; t23674.s1.value.structure_type24753 = &t23675; /* x192683 */ t23673.s0.tag = STRUCTURE_TYPE24753; t23673.s0.value.structure_type24753 = &t23674; /* x192684 */ t23673.s1.tag = NULL_TYPE; /* x192685 */ t23633.s1.tag = STRUCTURE_TYPE24753; t23633.s1.value.structure_type24753 = &t23673; /* x192686 */ t23632.s1.tag = STRUCTURE_TYPE24753; t23632.s1.value.structure_type24753 = &t23633; /* x192687 */ t23631.s1.tag = STRUCTURE_TYPE24753; t23631.s1.value.structure_type24753 = &t23632; /* x192688 */ t23630.s0.tag = STRUCTURE_TYPE24753; t23630.s0.value.structure_type24753 = &t23631; /* x192689 */ t23630.s1.tag = NULL_TYPE; /* x192690 */ t23629.s1.tag = STRUCTURE_TYPE24753; t23629.s1.value.structure_type24753 = &t23630; /* x192691 */ t23628.s0.tag = STRUCTURE_TYPE24753; t23628.s0.value.structure_type24753 = &t23629; /* x192692 */ t23628.s1.tag = NULL_TYPE; /* x192693 */ t23617.s1.tag = STRUCTURE_TYPE24753; t23617.s1.value.structure_type24753 = &t23628; /* x192694 */ t23612.s1.tag = STRUCTURE_TYPE24753; t23612.s1.value.structure_type24753 = &t23617; /* x192695 */ t23611.s1.tag = STRUCTURE_TYPE24753; t23611.s1.value.structure_type24753 = &t23612; /* x192696 */ t23610.s0.tag = STRUCTURE_TYPE24753; t23610.s0.value.structure_type24753 = &t23611; /* x192697 */ t23610.s1.tag = NULL_TYPE; /* x192698 */ t23608.s1.tag = STRUCTURE_TYPE24753; t23608.s1.value.structure_type24753 = &t23610; /* x192699 */ t23607.s1.tag = STRUCTURE_TYPE24753; t23607.s1.value.structure_type24753 = &t23608; /* x192702 */ t23749.s0.tag = EXTERNAL_SYMBOL_TYPE; t23749.s0.value.external_symbol_type = q97; /* x192703 */ t23751.s0.tag = EXTERNAL_SYMBOL_TYPE; t23751.s0.value.external_symbol_type = q134; /* x192704 */ t23752.s0.tag = EXTERNAL_SYMBOL_TYPE; t23752.s0.value.external_symbol_type = q449; /* x192705 */ t23753.s0.tag = EXTERNAL_SYMBOL_TYPE; t23753.s0.value.external_symbol_type = q450; /* x192706 */ t23753.s1.tag = NULL_TYPE; /* x192707 */ t23752.s1.tag = STRUCTURE_TYPE24753; t23752.s1.value.structure_type24753 = &t23753; /* x192708 */ t23751.s1.tag = STRUCTURE_TYPE24753; t23751.s1.value.structure_type24753 = &t23752; /* x192709 */ t23750.s0.tag = STRUCTURE_TYPE24753; t23750.s0.value.structure_type24753 = &t23751; /* x192710 */ t23756.s0.tag = EXTERNAL_SYMBOL_TYPE; t23756.s0.value.external_symbol_type = q77; /* x192711 */ t23757.s0.tag = EXTERNAL_SYMBOL_TYPE; t23757.s0.value.external_symbol_type = q134; /* x192712 */ t23757.s1.tag = NULL_TYPE; /* x192713 */ t23756.s1.tag = STRUCTURE_TYPE24753; t23756.s1.value.structure_type24753 = &t23757; /* x192714 */ t23755.s0.tag = STRUCTURE_TYPE24753; t23755.s0.value.structure_type24753 = &t23756; /* x192715 */ t23758.s0.tag = EXTERNAL_SYMBOL_TYPE; t23758.s0.value.external_symbol_type = q449; /* x192716 */ t23759.s0.tag = EXTERNAL_SYMBOL_TYPE; t23759.s0.value.external_symbol_type = q450; /* x192717 */ t23759.s1.tag = NULL_TYPE; /* x192718 */ t23758.s1.tag = STRUCTURE_TYPE24753; t23758.s1.value.structure_type24753 = &t23759; /* x192719 */ t23755.s1.tag = STRUCTURE_TYPE24753; t23755.s1.value.structure_type24753 = &t23758; /* x192720 */ t23754.s0.tag = STRUCTURE_TYPE24753; t23754.s0.value.structure_type24753 = &t23755; /* x192721 */ t23754.s1.tag = NULL_TYPE; /* x192722 */ t23750.s1.tag = STRUCTURE_TYPE24753; t23750.s1.value.structure_type24753 = &t23754; /* x192723 */ t23749.s1.tag = STRUCTURE_TYPE24753; t23749.s1.value.structure_type24753 = &t23750; /* x192726 */ t23764.s0.tag = EXTERNAL_SYMBOL_TYPE; t23764.s0.value.external_symbol_type = q97; /* x192727 */ t23766.s0.tag = EXTERNAL_SYMBOL_TYPE; t23766.s0.value.external_symbol_type = q135; /* x192728 */ t23767.s0.tag = EXTERNAL_SYMBOL_TYPE; t23767.s0.value.external_symbol_type = q449; /* x192729 */ t23768.s0.tag = EXTERNAL_SYMBOL_TYPE; t23768.s0.value.external_symbol_type = q450; /* x192730 */ t23768.s1.tag = NULL_TYPE; /* x192731 */ t23767.s1.tag = STRUCTURE_TYPE24753; t23767.s1.value.structure_type24753 = &t23768; /* x192732 */ t23766.s1.tag = STRUCTURE_TYPE24753; t23766.s1.value.structure_type24753 = &t23767; /* x192733 */ t23765.s0.tag = STRUCTURE_TYPE24753; t23765.s0.value.structure_type24753 = &t23766; /* x192734 */ t23771.s0.tag = EXTERNAL_SYMBOL_TYPE; t23771.s0.value.external_symbol_type = q77; /* x192735 */ t23772.s0.tag = EXTERNAL_SYMBOL_TYPE; t23772.s0.value.external_symbol_type = q135; /* x192736 */ t23772.s1.tag = NULL_TYPE; /* x192737 */ t23771.s1.tag = STRUCTURE_TYPE24753; t23771.s1.value.structure_type24753 = &t23772; /* x192738 */ t23770.s0.tag = STRUCTURE_TYPE24753; t23770.s0.value.structure_type24753 = &t23771; /* x192739 */ t23773.s0.tag = EXTERNAL_SYMBOL_TYPE; t23773.s0.value.external_symbol_type = q449; /* x192740 */ t23774.s0.tag = EXTERNAL_SYMBOL_TYPE; t23774.s0.value.external_symbol_type = q450; /* x192741 */ t23774.s1.tag = NULL_TYPE; /* x192742 */ t23773.s1.tag = STRUCTURE_TYPE24753; t23773.s1.value.structure_type24753 = &t23774; /* x192743 */ t23770.s1.tag = STRUCTURE_TYPE24753; t23770.s1.value.structure_type24753 = &t23773; /* x192744 */ t23769.s0.tag = STRUCTURE_TYPE24753; t23769.s0.value.structure_type24753 = &t23770; /* x192745 */ t23769.s1.tag = NULL_TYPE; /* x192746 */ t23765.s1.tag = STRUCTURE_TYPE24753; t23765.s1.value.structure_type24753 = &t23769; /* x192747 */ t23764.s1.tag = STRUCTURE_TYPE24753; t23764.s1.value.structure_type24753 = &t23765; /* x192750 */ t23779.s0.tag = EXTERNAL_SYMBOL_TYPE; t23779.s0.value.external_symbol_type = q97; /* x192751 */ t23781.s0.tag = EXTERNAL_SYMBOL_TYPE; t23781.s0.value.external_symbol_type = q136; /* x192752 */ t23782.s0.tag = EXTERNAL_SYMBOL_TYPE; t23782.s0.value.external_symbol_type = q260; /* x192753 */ t23782.s1.tag = NULL_TYPE; /* x192754 */ t23781.s1.tag = STRUCTURE_TYPE24753; t23781.s1.value.structure_type24753 = &t23782; /* x192755 */ t23780.s0.tag = STRUCTURE_TYPE24753; t23780.s0.value.structure_type24753 = &t23781; /* x192756 */ t23785.s0.tag = EXTERNAL_SYMBOL_TYPE; t23785.s0.value.external_symbol_type = q77; /* x192757 */ t23786.s0.tag = EXTERNAL_SYMBOL_TYPE; t23786.s0.value.external_symbol_type = q136; /* x192758 */ t23786.s1.tag = NULL_TYPE; /* x192759 */ t23785.s1.tag = STRUCTURE_TYPE24753; t23785.s1.value.structure_type24753 = &t23786; /* x192760 */ t23784.s0.tag = STRUCTURE_TYPE24753; t23784.s0.value.structure_type24753 = &t23785; /* x192761 */ t23787.s0.tag = EXTERNAL_SYMBOL_TYPE; t23787.s0.value.external_symbol_type = q260; /* x192762 */ t23787.s1.tag = NULL_TYPE; /* x192763 */ t23784.s1.tag = STRUCTURE_TYPE24753; t23784.s1.value.structure_type24753 = &t23787; /* x192764 */ t23783.s0.tag = STRUCTURE_TYPE24753; t23783.s0.value.structure_type24753 = &t23784; /* x192765 */ t23783.s1.tag = NULL_TYPE; /* x192766 */ t23780.s1.tag = STRUCTURE_TYPE24753; t23780.s1.value.structure_type24753 = &t23783; /* x192767 */ t23779.s1.tag = STRUCTURE_TYPE24753; t23779.s1.value.structure_type24753 = &t23780; /* x192770 */ t23792.s0.tag = EXTERNAL_SYMBOL_TYPE; t23792.s0.value.external_symbol_type = q97; /* x192771 */ t23794.s0.tag = EXTERNAL_SYMBOL_TYPE; t23794.s0.value.external_symbol_type = q137; /* x192772 */ t23794.s1.tag = EXTERNAL_SYMBOL_TYPE; t23794.s1.value.external_symbol_type = q453; /* x192773 */ t23793.s0.tag = STRUCTURE_TYPE24753; t23793.s0.value.structure_type24753 = &t23794; /* x192774 */ t23796.s0.tag = EXTERNAL_SYMBOL_TYPE; t23796.s0.value.external_symbol_type = q43; /* x192775 */ t23798.s0.tag = EXTERNAL_SYMBOL_TYPE; t23798.s0.value.external_symbol_type = q111; /* x192776 */ t23799.s0.tag = EXTERNAL_SYMBOL_TYPE; t23799.s0.value.external_symbol_type = q453; /* x192777 */ t23799.s1.tag = NULL_TYPE; /* x192778 */ t23798.s1.tag = STRUCTURE_TYPE24753; t23798.s1.value.structure_type24753 = &t23799; /* x192779 */ t23797.s0.tag = STRUCTURE_TYPE24753; t23797.s0.value.structure_type24753 = &t23798; /* x192780 */ t23802.s0.tag = EXTERNAL_SYMBOL_TYPE; t23802.s0.value.external_symbol_type = q77; /* x192781 */ t23803.s0.tag = EXTERNAL_SYMBOL_TYPE; t23803.s0.value.external_symbol_type = q137; /* x192782 */ t23803.s1.tag = NULL_TYPE; /* x192783 */ t23802.s1.tag = STRUCTURE_TYPE24753; t23802.s1.value.structure_type24753 = &t23803; /* x192784 */ t23801.s0.tag = STRUCTURE_TYPE24753; t23801.s0.value.structure_type24753 = &t23802; /* x192785 */ t23801.s1.tag = NULL_TYPE; /* x192786 */ t23800.s0.tag = STRUCTURE_TYPE24753; t23800.s0.value.structure_type24753 = &t23801; /* x192787 */ t23805.s0.tag = EXTERNAL_SYMBOL_TYPE; t23805.s0.value.external_symbol_type = q242; /* x192788 */ t23806.s0.tag = EXTERNAL_SYMBOL_TYPE; t23806.s0.value.external_symbol_type = q287; /* x192789 */ t23809.s0.tag = EXTERNAL_SYMBOL_TYPE; t23809.s0.value.external_symbol_type = q453; /* x192790 */ t23811.s0.tag = EXTERNAL_SYMBOL_TYPE; t23811.s0.value.external_symbol_type = q108; /* x192791 */ t23812.s0.tag = EXTERNAL_SYMBOL_TYPE; t23812.s0.value.external_symbol_type = q453; /* x192792 */ t23812.s1.tag = NULL_TYPE; /* x192793 */ t23811.s1.tag = STRUCTURE_TYPE24753; t23811.s1.value.structure_type24753 = &t23812; /* x192794 */ t23810.s0.tag = STRUCTURE_TYPE24753; t23810.s0.value.structure_type24753 = &t23811; /* x192795 */ t23810.s1.tag = NULL_TYPE; /* x192796 */ t23809.s1.tag = STRUCTURE_TYPE24753; t23809.s1.value.structure_type24753 = &t23810; /* x192797 */ t23808.s0.tag = STRUCTURE_TYPE24753; t23808.s0.value.structure_type24753 = &t23809; /* x192798 */ t23814.s0.tag = EXTERNAL_SYMBOL_TYPE; t23814.s0.value.external_symbol_type = q409; /* x192799 */ t23817.s0.tag = EXTERNAL_SYMBOL_TYPE; t23817.s0.value.external_symbol_type = q77; /* x192800 */ t23818.s0.tag = EXTERNAL_SYMBOL_TYPE; t23818.s0.value.external_symbol_type = q137; /* x192801 */ t23818.s1.tag = NULL_TYPE; /* x192802 */ t23817.s1.tag = STRUCTURE_TYPE24753; t23817.s1.value.structure_type24753 = &t23818; /* x192803 */ t23816.s0.tag = STRUCTURE_TYPE24753; t23816.s0.value.structure_type24753 = &t23817; /* x192804 */ t23820.s0.tag = EXTERNAL_SYMBOL_TYPE; t23820.s0.value.external_symbol_type = q107; /* x192805 */ t23821.s0.tag = EXTERNAL_SYMBOL_TYPE; t23821.s0.value.external_symbol_type = q453; /* x192806 */ t23821.s1.tag = NULL_TYPE; /* x192807 */ t23820.s1.tag = STRUCTURE_TYPE24753; t23820.s1.value.structure_type24753 = &t23821; /* x192808 */ t23819.s0.tag = STRUCTURE_TYPE24753; t23819.s0.value.structure_type24753 = &t23820; /* x192809 */ t23819.s1.tag = NULL_TYPE; /* x192810 */ t23816.s1.tag = STRUCTURE_TYPE24753; t23816.s1.value.structure_type24753 = &t23819; /* x192811 */ t23815.s0.tag = STRUCTURE_TYPE24753; t23815.s0.value.structure_type24753 = &t23816; /* x192812 */ t23815.s1.tag = NULL_TYPE; /* x192813 */ t23814.s1.tag = STRUCTURE_TYPE24753; t23814.s1.value.structure_type24753 = &t23815; /* x192814 */ t23813.s0.tag = STRUCTURE_TYPE24753; t23813.s0.value.structure_type24753 = &t23814; /* x192815 */ t23813.s1.tag = NULL_TYPE; /* x192816 */ t23808.s1.tag = STRUCTURE_TYPE24753; t23808.s1.value.structure_type24753 = &t23813; /* x192817 */ t23807.s0.tag = STRUCTURE_TYPE24753; t23807.s0.value.structure_type24753 = &t23808; /* x192818 */ t23823.s0.tag = EXTERNAL_SYMBOL_TYPE; t23823.s0.value.external_symbol_type = q43; /* x192819 */ t23825.s0.tag = EXTERNAL_SYMBOL_TYPE; t23825.s0.value.external_symbol_type = q111; /* x192820 */ t23826.s0.tag = EXTERNAL_SYMBOL_TYPE; t23826.s0.value.external_symbol_type = q453; /* x192821 */ t23826.s1.tag = NULL_TYPE; /* x192822 */ t23825.s1.tag = STRUCTURE_TYPE24753; t23825.s1.value.structure_type24753 = &t23826; /* x192823 */ t23824.s0.tag = STRUCTURE_TYPE24753; t23824.s0.value.structure_type24753 = &t23825; /* x192824 */ t23827.s0.tag = EXTERNAL_SYMBOL_TYPE; t23827.s0.value.external_symbol_type = q409; /* x192825 */ t23829.s0.tag = EXTERNAL_SYMBOL_TYPE; t23829.s0.value.external_symbol_type = q287; /* x192826 */ t23831.s0.tag = EXTERNAL_SYMBOL_TYPE; t23831.s0.value.external_symbol_type = q108; /* x192827 */ t23832.s0.tag = EXTERNAL_SYMBOL_TYPE; t23832.s0.value.external_symbol_type = q453; /* x192828 */ t23832.s1.tag = NULL_TYPE; /* x192829 */ t23831.s1.tag = STRUCTURE_TYPE24753; t23831.s1.value.structure_type24753 = &t23832; /* x192830 */ t23830.s0.tag = STRUCTURE_TYPE24753; t23830.s0.value.structure_type24753 = &t23831; /* x192831 */ t23835.s0.tag = EXTERNAL_SYMBOL_TYPE; t23835.s0.value.external_symbol_type = q77; /* x192832 */ t23836.s0.tag = EXTERNAL_SYMBOL_TYPE; t23836.s0.value.external_symbol_type = q137; /* x192833 */ t23836.s1.tag = NULL_TYPE; /* x192834 */ t23835.s1.tag = STRUCTURE_TYPE24753; t23835.s1.value.structure_type24753 = &t23836; /* x192835 */ t23834.s0.tag = STRUCTURE_TYPE24753; t23834.s0.value.structure_type24753 = &t23835; /* x192836 */ t23837.s0.tag = EXTERNAL_SYMBOL_TYPE; t23837.s0.value.external_symbol_type = q409; /* x192837 */ t23839.s0.tag = EXTERNAL_SYMBOL_TYPE; t23839.s0.value.external_symbol_type = q107; /* x192838 */ t23840.s0.tag = EXTERNAL_SYMBOL_TYPE; t23840.s0.value.external_symbol_type = q453; /* x192839 */ t23840.s1.tag = NULL_TYPE; /* x192840 */ t23839.s1.tag = STRUCTURE_TYPE24753; t23839.s1.value.structure_type24753 = &t23840; /* x192841 */ t23838.s0.tag = STRUCTURE_TYPE24753; t23838.s0.value.structure_type24753 = &t23839; /* x192842 */ t23838.s1.tag = NULL_TYPE; /* x192843 */ t23837.s1.tag = STRUCTURE_TYPE24753; t23837.s1.value.structure_type24753 = &t23838; /* x192844 */ t23834.s1.tag = STRUCTURE_TYPE24753; t23834.s1.value.structure_type24753 = &t23837; /* x192845 */ t23833.s0.tag = STRUCTURE_TYPE24753; t23833.s0.value.structure_type24753 = &t23834; /* x192846 */ t23833.s1.tag = NULL_TYPE; /* x192847 */ t23830.s1.tag = STRUCTURE_TYPE24753; t23830.s1.value.structure_type24753 = &t23833; /* x192848 */ t23829.s1.tag = STRUCTURE_TYPE24753; t23829.s1.value.structure_type24753 = &t23830; /* x192849 */ t23828.s0.tag = STRUCTURE_TYPE24753; t23828.s0.value.structure_type24753 = &t23829; /* x192850 */ t23828.s1.tag = NULL_TYPE; /* x192851 */ t23827.s1.tag = STRUCTURE_TYPE24753; t23827.s1.value.structure_type24753 = &t23828; /* x192852 */ t23824.s1.tag = STRUCTURE_TYPE24753; t23824.s1.value.structure_type24753 = &t23827; /* x192853 */ t23823.s1.tag = STRUCTURE_TYPE24753; t23823.s1.value.structure_type24753 = &t23824; /* x192854 */ t23822.s0.tag = STRUCTURE_TYPE24753; t23822.s0.value.structure_type24753 = &t23823; /* x192855 */ t23822.s1.tag = NULL_TYPE; /* x192856 */ t23807.s1.tag = STRUCTURE_TYPE24753; t23807.s1.value.structure_type24753 = &t23822; /* x192857 */ t23806.s1.tag = STRUCTURE_TYPE24753; t23806.s1.value.structure_type24753 = &t23807; /* x192858 */ t23805.s1.tag = STRUCTURE_TYPE24753; t23805.s1.value.structure_type24753 = &t23806; /* x192859 */ t23804.s0.tag = STRUCTURE_TYPE24753; t23804.s0.value.structure_type24753 = &t23805; /* x192860 */ t23804.s1.tag = NULL_TYPE; /* x192861 */ t23800.s1.tag = STRUCTURE_TYPE24753; t23800.s1.value.structure_type24753 = &t23804; /* x192862 */ t23797.s1.tag = STRUCTURE_TYPE24753; t23797.s1.value.structure_type24753 = &t23800; /* x192863 */ t23796.s1.tag = STRUCTURE_TYPE24753; t23796.s1.value.structure_type24753 = &t23797; /* x192864 */ t23795.s0.tag = STRUCTURE_TYPE24753; t23795.s0.value.structure_type24753 = &t23796; /* x192865 */} void initialize_constants16(void) {t23795.s1.tag = NULL_TYPE; /* x192866 */ t23793.s1.tag = STRUCTURE_TYPE24753; t23793.s1.value.structure_type24753 = &t23795; /* x192867 */ t23792.s1.tag = STRUCTURE_TYPE24753; t23792.s1.value.structure_type24753 = &t23793; /* x192870 */ t23845.s0.tag = EXTERNAL_SYMBOL_TYPE; t23845.s0.value.external_symbol_type = q97; /* x192871 */ t23847.s0.tag = EXTERNAL_SYMBOL_TYPE; t23847.s0.value.external_symbol_type = q138; /* x192872 */ t23847.s1.tag = EXTERNAL_SYMBOL_TYPE; t23847.s1.value.external_symbol_type = q453; /* x192873 */ t23846.s0.tag = STRUCTURE_TYPE24753; t23846.s0.value.structure_type24753 = &t23847; /* x192874 */ t23849.s0.tag = EXTERNAL_SYMBOL_TYPE; t23849.s0.value.external_symbol_type = q43; /* x192875 */ t23851.s0.tag = EXTERNAL_SYMBOL_TYPE; t23851.s0.value.external_symbol_type = q111; /* x192876 */ t23852.s0.tag = EXTERNAL_SYMBOL_TYPE; t23852.s0.value.external_symbol_type = q453; /* x192877 */ t23852.s1.tag = NULL_TYPE; /* x192878 */ t23851.s1.tag = STRUCTURE_TYPE24753; t23851.s1.value.structure_type24753 = &t23852; /* x192879 */ t23850.s0.tag = STRUCTURE_TYPE24753; t23850.s0.value.structure_type24753 = &t23851; /* x192880 */ t23855.s0.tag = EXTERNAL_SYMBOL_TYPE; t23855.s0.value.external_symbol_type = q77; /* x192881 */ t23856.s0.tag = EXTERNAL_SYMBOL_TYPE; t23856.s0.value.external_symbol_type = q138; /* x192882 */ t23856.s1.tag = NULL_TYPE; /* x192883 */ t23855.s1.tag = STRUCTURE_TYPE24753; t23855.s1.value.structure_type24753 = &t23856; /* x192884 */ t23854.s0.tag = STRUCTURE_TYPE24753; t23854.s0.value.structure_type24753 = &t23855; /* x192885 */ t23854.s1.tag = NULL_TYPE; /* x192886 */ t23853.s0.tag = STRUCTURE_TYPE24753; t23853.s0.value.structure_type24753 = &t23854; /* x192887 */ t23858.s0.tag = EXTERNAL_SYMBOL_TYPE; t23858.s0.value.external_symbol_type = q242; /* x192888 */ t23859.s0.tag = EXTERNAL_SYMBOL_TYPE; t23859.s0.value.external_symbol_type = q287; /* x192889 */ t23862.s0.tag = EXTERNAL_SYMBOL_TYPE; t23862.s0.value.external_symbol_type = q453; /* x192890 */ t23864.s0.tag = EXTERNAL_SYMBOL_TYPE; t23864.s0.value.external_symbol_type = q108; /* x192891 */ t23865.s0.tag = EXTERNAL_SYMBOL_TYPE; t23865.s0.value.external_symbol_type = q453; /* x192892 */ t23865.s1.tag = NULL_TYPE; /* x192893 */ t23864.s1.tag = STRUCTURE_TYPE24753; t23864.s1.value.structure_type24753 = &t23865; /* x192894 */ t23863.s0.tag = STRUCTURE_TYPE24753; t23863.s0.value.structure_type24753 = &t23864; /* x192895 */ t23863.s1.tag = NULL_TYPE; /* x192896 */ t23862.s1.tag = STRUCTURE_TYPE24753; t23862.s1.value.structure_type24753 = &t23863; /* x192897 */ t23861.s0.tag = STRUCTURE_TYPE24753; t23861.s0.value.structure_type24753 = &t23862; /* x192898 */ t23867.s0.tag = EXTERNAL_SYMBOL_TYPE; t23867.s0.value.external_symbol_type = q409; /* x192899 */ t23870.s0.tag = EXTERNAL_SYMBOL_TYPE; t23870.s0.value.external_symbol_type = q77; /* x192900 */ t23871.s0.tag = EXTERNAL_SYMBOL_TYPE; t23871.s0.value.external_symbol_type = q138; /* x192901 */ t23871.s1.tag = NULL_TYPE; /* x192902 */ t23870.s1.tag = STRUCTURE_TYPE24753; t23870.s1.value.structure_type24753 = &t23871; /* x192903 */ t23869.s0.tag = STRUCTURE_TYPE24753; t23869.s0.value.structure_type24753 = &t23870; /* x192904 */ t23873.s0.tag = EXTERNAL_SYMBOL_TYPE; t23873.s0.value.external_symbol_type = q107; /* x192905 */ t23874.s0.tag = EXTERNAL_SYMBOL_TYPE; t23874.s0.value.external_symbol_type = q453; /* x192906 */ t23874.s1.tag = NULL_TYPE; /* x192907 */ t23873.s1.tag = STRUCTURE_TYPE24753; t23873.s1.value.structure_type24753 = &t23874; /* x192908 */ t23872.s0.tag = STRUCTURE_TYPE24753; t23872.s0.value.structure_type24753 = &t23873; /* x192909 */ t23872.s1.tag = NULL_TYPE; /* x192910 */ t23869.s1.tag = STRUCTURE_TYPE24753; t23869.s1.value.structure_type24753 = &t23872; /* x192911 */ t23868.s0.tag = STRUCTURE_TYPE24753; t23868.s0.value.structure_type24753 = &t23869; /* x192912 */ t23868.s1.tag = NULL_TYPE; /* x192913 */ t23867.s1.tag = STRUCTURE_TYPE24753; t23867.s1.value.structure_type24753 = &t23868; /* x192914 */ t23866.s0.tag = STRUCTURE_TYPE24753; t23866.s0.value.structure_type24753 = &t23867; /* x192915 */ t23866.s1.tag = NULL_TYPE; /* x192916 */ t23861.s1.tag = STRUCTURE_TYPE24753; t23861.s1.value.structure_type24753 = &t23866; /* x192917 */ t23860.s0.tag = STRUCTURE_TYPE24753; t23860.s0.value.structure_type24753 = &t23861; /* x192918 */ t23876.s0.tag = EXTERNAL_SYMBOL_TYPE; t23876.s0.value.external_symbol_type = q43; /* x192919 */ t23878.s0.tag = EXTERNAL_SYMBOL_TYPE; t23878.s0.value.external_symbol_type = q111; /* x192920 */ t23879.s0.tag = EXTERNAL_SYMBOL_TYPE; t23879.s0.value.external_symbol_type = q453; /* x192921 */ t23879.s1.tag = NULL_TYPE; /* x192922 */ t23878.s1.tag = STRUCTURE_TYPE24753; t23878.s1.value.structure_type24753 = &t23879; /* x192923 */ t23877.s0.tag = STRUCTURE_TYPE24753; t23877.s0.value.structure_type24753 = &t23878; /* x192924 */ t23880.s0.tag = EXTERNAL_SYMBOL_TYPE; t23880.s0.value.external_symbol_type = q409; /* x192925 */ t23882.s0.tag = EXTERNAL_SYMBOL_TYPE; t23882.s0.value.external_symbol_type = q287; /* x192926 */ t23884.s0.tag = EXTERNAL_SYMBOL_TYPE; t23884.s0.value.external_symbol_type = q108; /* x192927 */ t23885.s0.tag = EXTERNAL_SYMBOL_TYPE; t23885.s0.value.external_symbol_type = q453; /* x192928 */ t23885.s1.tag = NULL_TYPE; /* x192929 */ t23884.s1.tag = STRUCTURE_TYPE24753; t23884.s1.value.structure_type24753 = &t23885; /* x192930 */ t23883.s0.tag = STRUCTURE_TYPE24753; t23883.s0.value.structure_type24753 = &t23884; /* x192931 */ t23888.s0.tag = EXTERNAL_SYMBOL_TYPE; t23888.s0.value.external_symbol_type = q77; /* x192932 */ t23889.s0.tag = EXTERNAL_SYMBOL_TYPE; t23889.s0.value.external_symbol_type = q138; /* x192933 */ t23889.s1.tag = NULL_TYPE; /* x192934 */ t23888.s1.tag = STRUCTURE_TYPE24753; t23888.s1.value.structure_type24753 = &t23889; /* x192935 */ t23887.s0.tag = STRUCTURE_TYPE24753; t23887.s0.value.structure_type24753 = &t23888; /* x192936 */ t23890.s0.tag = EXTERNAL_SYMBOL_TYPE; t23890.s0.value.external_symbol_type = q409; /* x192937 */ t23892.s0.tag = EXTERNAL_SYMBOL_TYPE; t23892.s0.value.external_symbol_type = q107; /* x192938 */ t23893.s0.tag = EXTERNAL_SYMBOL_TYPE; t23893.s0.value.external_symbol_type = q453; /* x192939 */ t23893.s1.tag = NULL_TYPE; /* x192940 */ t23892.s1.tag = STRUCTURE_TYPE24753; t23892.s1.value.structure_type24753 = &t23893; /* x192941 */ t23891.s0.tag = STRUCTURE_TYPE24753; t23891.s0.value.structure_type24753 = &t23892; /* x192942 */ t23891.s1.tag = NULL_TYPE; /* x192943 */ t23890.s1.tag = STRUCTURE_TYPE24753; t23890.s1.value.structure_type24753 = &t23891; /* x192944 */ t23887.s1.tag = STRUCTURE_TYPE24753; t23887.s1.value.structure_type24753 = &t23890; /* x192945 */ t23886.s0.tag = STRUCTURE_TYPE24753; t23886.s0.value.structure_type24753 = &t23887; /* x192946 */ t23886.s1.tag = NULL_TYPE; /* x192947 */ t23883.s1.tag = STRUCTURE_TYPE24753; t23883.s1.value.structure_type24753 = &t23886; /* x192948 */ t23882.s1.tag = STRUCTURE_TYPE24753; t23882.s1.value.structure_type24753 = &t23883; /* x192949 */ t23881.s0.tag = STRUCTURE_TYPE24753; t23881.s0.value.structure_type24753 = &t23882; /* x192950 */ t23881.s1.tag = NULL_TYPE; /* x192951 */ t23880.s1.tag = STRUCTURE_TYPE24753; t23880.s1.value.structure_type24753 = &t23881; /* x192952 */ t23877.s1.tag = STRUCTURE_TYPE24753; t23877.s1.value.structure_type24753 = &t23880; /* x192953 */ t23876.s1.tag = STRUCTURE_TYPE24753; t23876.s1.value.structure_type24753 = &t23877; /* x192954 */ t23875.s0.tag = STRUCTURE_TYPE24753; t23875.s0.value.structure_type24753 = &t23876; /* x192955 */ t23875.s1.tag = NULL_TYPE; /* x192956 */ t23860.s1.tag = STRUCTURE_TYPE24753; t23860.s1.value.structure_type24753 = &t23875; /* x192957 */ t23859.s1.tag = STRUCTURE_TYPE24753; t23859.s1.value.structure_type24753 = &t23860; /* x192958 */ t23858.s1.tag = STRUCTURE_TYPE24753; t23858.s1.value.structure_type24753 = &t23859; /* x192959 */ t23857.s0.tag = STRUCTURE_TYPE24753; t23857.s0.value.structure_type24753 = &t23858; /* x192960 */ t23857.s1.tag = NULL_TYPE; /* x192961 */ t23853.s1.tag = STRUCTURE_TYPE24753; t23853.s1.value.structure_type24753 = &t23857; /* x192962 */ t23850.s1.tag = STRUCTURE_TYPE24753; t23850.s1.value.structure_type24753 = &t23853; /* x192963 */ t23849.s1.tag = STRUCTURE_TYPE24753; t23849.s1.value.structure_type24753 = &t23850; /* x192964 */ t23848.s0.tag = STRUCTURE_TYPE24753; t23848.s0.value.structure_type24753 = &t23849; /* x192965 */ t23848.s1.tag = NULL_TYPE; /* x192966 */ t23846.s1.tag = STRUCTURE_TYPE24753; t23846.s1.value.structure_type24753 = &t23848; /* x192967 */ t23845.s1.tag = STRUCTURE_TYPE24753; t23845.s1.value.structure_type24753 = &t23846; /* x192970 */ t23898.s0.tag = EXTERNAL_SYMBOL_TYPE; t23898.s0.value.external_symbol_type = q97; /* x192971 */ t23900.s0.tag = EXTERNAL_SYMBOL_TYPE; t23900.s0.value.external_symbol_type = q139; /* x192972 */ t23900.s1.tag = EXTERNAL_SYMBOL_TYPE; t23900.s1.value.external_symbol_type = q453; /* x192973 */ t23899.s0.tag = STRUCTURE_TYPE24753; t23899.s0.value.structure_type24753 = &t23900; /* x192974 */ t23902.s0.tag = EXTERNAL_SYMBOL_TYPE; t23902.s0.value.external_symbol_type = q43; /* x192975 */ t23904.s0.tag = EXTERNAL_SYMBOL_TYPE; t23904.s0.value.external_symbol_type = q111; /* x192976 */ t23905.s0.tag = EXTERNAL_SYMBOL_TYPE; t23905.s0.value.external_symbol_type = q453; /* x192977 */ t23905.s1.tag = NULL_TYPE; /* x192978 */ t23904.s1.tag = STRUCTURE_TYPE24753; t23904.s1.value.structure_type24753 = &t23905; /* x192979 */ t23903.s0.tag = STRUCTURE_TYPE24753; t23903.s0.value.structure_type24753 = &t23904; /* x192980 */ t23908.s0.tag = EXTERNAL_SYMBOL_TYPE; t23908.s0.value.external_symbol_type = q77; /* x192981 */ t23909.s0.tag = EXTERNAL_SYMBOL_TYPE; t23909.s0.value.external_symbol_type = q139; /* x192982 */ t23909.s1.tag = NULL_TYPE; /* x192983 */ t23908.s1.tag = STRUCTURE_TYPE24753; t23908.s1.value.structure_type24753 = &t23909; /* x192984 */ t23907.s0.tag = STRUCTURE_TYPE24753; t23907.s0.value.structure_type24753 = &t23908; /* x192985 */ t23907.s1.tag = NULL_TYPE; /* x192986 */ t23906.s0.tag = STRUCTURE_TYPE24753; t23906.s0.value.structure_type24753 = &t23907; /* x192987 */ t23911.s0.tag = EXTERNAL_SYMBOL_TYPE; t23911.s0.value.external_symbol_type = q242; /* x192988 */ t23912.s0.tag = EXTERNAL_SYMBOL_TYPE; t23912.s0.value.external_symbol_type = q287; /* x192989 */ t23915.s0.tag = EXTERNAL_SYMBOL_TYPE; t23915.s0.value.external_symbol_type = q453; /* x192990 */ t23917.s0.tag = EXTERNAL_SYMBOL_TYPE; t23917.s0.value.external_symbol_type = q108; /* x192991 */ t23918.s0.tag = EXTERNAL_SYMBOL_TYPE; t23918.s0.value.external_symbol_type = q453; /* x192992 */ t23918.s1.tag = NULL_TYPE; /* x192993 */ t23917.s1.tag = STRUCTURE_TYPE24753; t23917.s1.value.structure_type24753 = &t23918; /* x192994 */ t23916.s0.tag = STRUCTURE_TYPE24753; t23916.s0.value.structure_type24753 = &t23917; /* x192995 */ t23916.s1.tag = NULL_TYPE; /* x192996 */ t23915.s1.tag = STRUCTURE_TYPE24753; t23915.s1.value.structure_type24753 = &t23916; /* x192997 */ t23914.s0.tag = STRUCTURE_TYPE24753; t23914.s0.value.structure_type24753 = &t23915; /* x192998 */ t23920.s0.tag = EXTERNAL_SYMBOL_TYPE; t23920.s0.value.external_symbol_type = q409; /* x192999 */ t23923.s0.tag = EXTERNAL_SYMBOL_TYPE; t23923.s0.value.external_symbol_type = q77; /* x193000 */ t23924.s0.tag = EXTERNAL_SYMBOL_TYPE; t23924.s0.value.external_symbol_type = q139; /* x193001 */ t23924.s1.tag = NULL_TYPE; /* x193002 */ t23923.s1.tag = STRUCTURE_TYPE24753; t23923.s1.value.structure_type24753 = &t23924; /* x193003 */ t23922.s0.tag = STRUCTURE_TYPE24753; t23922.s0.value.structure_type24753 = &t23923; /* x193004 */ t23926.s0.tag = EXTERNAL_SYMBOL_TYPE; t23926.s0.value.external_symbol_type = q107; /* x193005 */ t23927.s0.tag = EXTERNAL_SYMBOL_TYPE; t23927.s0.value.external_symbol_type = q453; /* x193006 */ t23927.s1.tag = NULL_TYPE; /* x193007 */ t23926.s1.tag = STRUCTURE_TYPE24753; t23926.s1.value.structure_type24753 = &t23927; /* x193008 */ t23925.s0.tag = STRUCTURE_TYPE24753; t23925.s0.value.structure_type24753 = &t23926; /* x193009 */ t23925.s1.tag = NULL_TYPE; /* x193010 */ t23922.s1.tag = STRUCTURE_TYPE24753; t23922.s1.value.structure_type24753 = &t23925; /* x193011 */ t23921.s0.tag = STRUCTURE_TYPE24753; t23921.s0.value.structure_type24753 = &t23922; /* x193012 */ t23921.s1.tag = NULL_TYPE; /* x193013 */ t23920.s1.tag = STRUCTURE_TYPE24753; t23920.s1.value.structure_type24753 = &t23921; /* x193014 */ t23919.s0.tag = STRUCTURE_TYPE24753; t23919.s0.value.structure_type24753 = &t23920; /* x193015 */ t23919.s1.tag = NULL_TYPE; /* x193016 */ t23914.s1.tag = STRUCTURE_TYPE24753; t23914.s1.value.structure_type24753 = &t23919; /* x193017 */ t23913.s0.tag = STRUCTURE_TYPE24753; t23913.s0.value.structure_type24753 = &t23914; /* x193018 */ t23929.s0.tag = EXTERNAL_SYMBOL_TYPE; t23929.s0.value.external_symbol_type = q43; /* x193019 */ t23931.s0.tag = EXTERNAL_SYMBOL_TYPE; t23931.s0.value.external_symbol_type = q111; /* x193020 */ t23932.s0.tag = EXTERNAL_SYMBOL_TYPE; t23932.s0.value.external_symbol_type = q453; /* x193021 */ t23932.s1.tag = NULL_TYPE; /* x193022 */ t23931.s1.tag = STRUCTURE_TYPE24753; t23931.s1.value.structure_type24753 = &t23932; /* x193023 */ t23930.s0.tag = STRUCTURE_TYPE24753; t23930.s0.value.structure_type24753 = &t23931; /* x193024 */ t23933.s0.tag = EXTERNAL_SYMBOL_TYPE; t23933.s0.value.external_symbol_type = q409; /* x193025 */ t23935.s0.tag = EXTERNAL_SYMBOL_TYPE; t23935.s0.value.external_symbol_type = q287; /* x193026 */ t23937.s0.tag = EXTERNAL_SYMBOL_TYPE; t23937.s0.value.external_symbol_type = q108; /* x193027 */ t23938.s0.tag = EXTERNAL_SYMBOL_TYPE; t23938.s0.value.external_symbol_type = q453; /* x193028 */ t23938.s1.tag = NULL_TYPE; /* x193029 */ t23937.s1.tag = STRUCTURE_TYPE24753; t23937.s1.value.structure_type24753 = &t23938; /* x193030 */ t23936.s0.tag = STRUCTURE_TYPE24753; t23936.s0.value.structure_type24753 = &t23937; /* x193031 */ t23941.s0.tag = EXTERNAL_SYMBOL_TYPE; t23941.s0.value.external_symbol_type = q77; /* x193032 */ t23942.s0.tag = EXTERNAL_SYMBOL_TYPE; t23942.s0.value.external_symbol_type = q139; /* x193033 */ t23942.s1.tag = NULL_TYPE; /* x193034 */ t23941.s1.tag = STRUCTURE_TYPE24753; t23941.s1.value.structure_type24753 = &t23942; /* x193035 */ t23940.s0.tag = STRUCTURE_TYPE24753; t23940.s0.value.structure_type24753 = &t23941; /* x193036 */ t23943.s0.tag = EXTERNAL_SYMBOL_TYPE; t23943.s0.value.external_symbol_type = q409; /* x193037 */ t23945.s0.tag = EXTERNAL_SYMBOL_TYPE; t23945.s0.value.external_symbol_type = q107; /* x193038 */ t23946.s0.tag = EXTERNAL_SYMBOL_TYPE; t23946.s0.value.external_symbol_type = q453; /* x193039 */ t23946.s1.tag = NULL_TYPE; /* x193040 */ t23945.s1.tag = STRUCTURE_TYPE24753; t23945.s1.value.structure_type24753 = &t23946; /* x193041 */ t23944.s0.tag = STRUCTURE_TYPE24753; t23944.s0.value.structure_type24753 = &t23945; /* x193042 */ t23944.s1.tag = NULL_TYPE; /* x193043 */ t23943.s1.tag = STRUCTURE_TYPE24753; t23943.s1.value.structure_type24753 = &t23944; /* x193044 */ t23940.s1.tag = STRUCTURE_TYPE24753; t23940.s1.value.structure_type24753 = &t23943; /* x193045 */ t23939.s0.tag = STRUCTURE_TYPE24753; t23939.s0.value.structure_type24753 = &t23940; /* x193046 */ t23939.s1.tag = NULL_TYPE; /* x193047 */ t23936.s1.tag = STRUCTURE_TYPE24753; t23936.s1.value.structure_type24753 = &t23939; /* x193048 */ t23935.s1.tag = STRUCTURE_TYPE24753; t23935.s1.value.structure_type24753 = &t23936; /* x193049 */ t23934.s0.tag = STRUCTURE_TYPE24753; t23934.s0.value.structure_type24753 = &t23935; /* x193050 */ t23934.s1.tag = NULL_TYPE; /* x193051 */ t23933.s1.tag = STRUCTURE_TYPE24753; t23933.s1.value.structure_type24753 = &t23934; /* x193052 */ t23930.s1.tag = STRUCTURE_TYPE24753; t23930.s1.value.structure_type24753 = &t23933; /* x193053 */ t23929.s1.tag = STRUCTURE_TYPE24753; t23929.s1.value.structure_type24753 = &t23930; /* x193054 */ t23928.s0.tag = STRUCTURE_TYPE24753; t23928.s0.value.structure_type24753 = &t23929; /* x193055 */ t23928.s1.tag = NULL_TYPE; /* x193056 */ t23913.s1.tag = STRUCTURE_TYPE24753; t23913.s1.value.structure_type24753 = &t23928; /* x193057 */ t23912.s1.tag = STRUCTURE_TYPE24753; t23912.s1.value.structure_type24753 = &t23913; /* x193058 */ t23911.s1.tag = STRUCTURE_TYPE24753; t23911.s1.value.structure_type24753 = &t23912; /* x193059 */ t23910.s0.tag = STRUCTURE_TYPE24753; t23910.s0.value.structure_type24753 = &t23911; /* x193060 */ t23910.s1.tag = NULL_TYPE; /* x193061 */ t23906.s1.tag = STRUCTURE_TYPE24753; t23906.s1.value.structure_type24753 = &t23910; /* x193062 */ t23903.s1.tag = STRUCTURE_TYPE24753; t23903.s1.value.structure_type24753 = &t23906; /* x193063 */ t23902.s1.tag = STRUCTURE_TYPE24753; t23902.s1.value.structure_type24753 = &t23903; /* x193064 */ t23901.s0.tag = STRUCTURE_TYPE24753; t23901.s0.value.structure_type24753 = &t23902; /* x193065 */ t23901.s1.tag = NULL_TYPE; /* x193066 */ t23899.s1.tag = STRUCTURE_TYPE24753; t23899.s1.value.structure_type24753 = &t23901; /* x193067 */ t23898.s1.tag = STRUCTURE_TYPE24753; t23898.s1.value.structure_type24753 = &t23899; /* x193070 */ t23951.s0.tag = EXTERNAL_SYMBOL_TYPE; t23951.s0.value.external_symbol_type = q97; /* x193071 */ t23953.s0.tag = EXTERNAL_SYMBOL_TYPE; t23953.s0.value.external_symbol_type = q140; /* x193072 */ t23954.s0.tag = EXTERNAL_SYMBOL_TYPE; t23954.s0.value.external_symbol_type = q252; /* x193073 */ t23954.s1.tag = NULL_TYPE; /* x193074 */ t23953.s1.tag = STRUCTURE_TYPE24753; t23953.s1.value.structure_type24753 = &t23954; /* x193075 */ t23952.s0.tag = STRUCTURE_TYPE24753; t23952.s0.value.structure_type24753 = &t23953; /* x193076 */ t23957.s0.tag = EXTERNAL_SYMBOL_TYPE; t23957.s0.value.external_symbol_type = q77; /* x193077 */ t23958.s0.tag = EXTERNAL_SYMBOL_TYPE; t23958.s0.value.external_symbol_type = q140; /* x193078 */ t23958.s1.tag = NULL_TYPE; /* x193079 */ t23957.s1.tag = STRUCTURE_TYPE24753; t23957.s1.value.structure_type24753 = &t23958; /* x193080 */ t23956.s0.tag = STRUCTURE_TYPE24753; t23956.s0.value.structure_type24753 = &t23957; /* x193081 */ t23959.s0.tag = EXTERNAL_SYMBOL_TYPE; t23959.s0.value.external_symbol_type = q252; /* x193082 */ t23959.s1.tag = NULL_TYPE; /* x193083 */ t23956.s1.tag = STRUCTURE_TYPE24753; t23956.s1.value.structure_type24753 = &t23959; /* x193084 */ t23955.s0.tag = STRUCTURE_TYPE24753; t23955.s0.value.structure_type24753 = &t23956; /* x193085 */ t23955.s1.tag = NULL_TYPE; /* x193086 */ t23952.s1.tag = STRUCTURE_TYPE24753; t23952.s1.value.structure_type24753 = &t23955; /* x193087 */ t23951.s1.tag = STRUCTURE_TYPE24753; t23951.s1.value.structure_type24753 = &t23952; /* x193090 */ t23964.s0.tag = EXTERNAL_SYMBOL_TYPE; t23964.s0.value.external_symbol_type = q97; /* x193091 */ t23966.s0.tag = EXTERNAL_SYMBOL_TYPE; t23966.s0.value.external_symbol_type = q141; /* x193092 */ t23967.s0.tag = EXTERNAL_SYMBOL_TYPE; t23967.s0.value.external_symbol_type = q252; /* x193093 */ t23967.s1.tag = NULL_TYPE; /* x193094 */ t23966.s1.tag = STRUCTURE_TYPE24753; t23966.s1.value.structure_type24753 = &t23967; /* x193095 */ t23965.s0.tag = STRUCTURE_TYPE24753; t23965.s0.value.structure_type24753 = &t23966; /* x193096 */ t23970.s0.tag = EXTERNAL_SYMBOL_TYPE; t23970.s0.value.external_symbol_type = q77; /* x193097 */ t23971.s0.tag = EXTERNAL_SYMBOL_TYPE; t23971.s0.value.external_symbol_type = q141; /* x193098 */ t23971.s1.tag = NULL_TYPE; /* x193099 */ t23970.s1.tag = STRUCTURE_TYPE24753; t23970.s1.value.structure_type24753 = &t23971; /* x193100 */ t23969.s0.tag = STRUCTURE_TYPE24753; t23969.s0.value.structure_type24753 = &t23970; /* x193101 */ t23972.s0.tag = EXTERNAL_SYMBOL_TYPE; t23972.s0.value.external_symbol_type = q252; /* x193102 */ t23972.s1.tag = NULL_TYPE; /* x193103 */ t23969.s1.tag = STRUCTURE_TYPE24753; t23969.s1.value.structure_type24753 = &t23972; /* x193104 */ t23968.s0.tag = STRUCTURE_TYPE24753; t23968.s0.value.structure_type24753 = &t23969; /* x193105 */ t23968.s1.tag = NULL_TYPE; /* x193106 */ t23965.s1.tag = STRUCTURE_TYPE24753; t23965.s1.value.structure_type24753 = &t23968; /* x193107 */ t23964.s1.tag = STRUCTURE_TYPE24753; t23964.s1.value.structure_type24753 = &t23965; /* x193110 */ t23977.s0.tag = EXTERNAL_SYMBOL_TYPE; t23977.s0.value.external_symbol_type = q97; /* x193111 */ t23979.s0.tag = EXTERNAL_SYMBOL_TYPE; t23979.s0.value.external_symbol_type = q142; /* x193112 */ t23980.s0.tag = EXTERNAL_SYMBOL_TYPE; t23980.s0.value.external_symbol_type = q252; /* x193113 */ t23980.s1.tag = NULL_TYPE; /* x193114 */ t23979.s1.tag = STRUCTURE_TYPE24753; t23979.s1.value.structure_type24753 = &t23980; /* x193115 */ t23978.s0.tag = STRUCTURE_TYPE24753; t23978.s0.value.structure_type24753 = &t23979; /* x193116 */ t23983.s0.tag = EXTERNAL_SYMBOL_TYPE; t23983.s0.value.external_symbol_type = q77; /* x193117 */ t23984.s0.tag = EXTERNAL_SYMBOL_TYPE; t23984.s0.value.external_symbol_type = q142; /* x193118 */ t23984.s1.tag = NULL_TYPE; /* x193119 */ t23983.s1.tag = STRUCTURE_TYPE24753; t23983.s1.value.structure_type24753 = &t23984; /* x193120 */ t23982.s0.tag = STRUCTURE_TYPE24753; t23982.s0.value.structure_type24753 = &t23983; /* x193121 */ t23985.s0.tag = EXTERNAL_SYMBOL_TYPE; t23985.s0.value.external_symbol_type = q252; /* x193122 */ t23985.s1.tag = NULL_TYPE; /* x193123 */ t23982.s1.tag = STRUCTURE_TYPE24753; t23982.s1.value.structure_type24753 = &t23985; /* x193124 */ t23981.s0.tag = STRUCTURE_TYPE24753; t23981.s0.value.structure_type24753 = &t23982; /* x193125 */ t23981.s1.tag = NULL_TYPE; /* x193126 */ t23978.s1.tag = STRUCTURE_TYPE24753; t23978.s1.value.structure_type24753 = &t23981; /* x193127 */ t23977.s1.tag = STRUCTURE_TYPE24753; t23977.s1.value.structure_type24753 = &t23978; /* x193130 */ t23990.s0.tag = EXTERNAL_SYMBOL_TYPE; t23990.s0.value.external_symbol_type = q97; /* x193131 */ t23992.s0.tag = EXTERNAL_SYMBOL_TYPE; t23992.s0.value.external_symbol_type = q143; /* x193132 */ t23993.s0.tag = EXTERNAL_SYMBOL_TYPE; t23993.s0.value.external_symbol_type = q252; /* x193133 */ t23993.s1.tag = NULL_TYPE; /* x193134 */ t23992.s1.tag = STRUCTURE_TYPE24753; t23992.s1.value.structure_type24753 = &t23993; /* x193135 */ t23991.s0.tag = STRUCTURE_TYPE24753; t23991.s0.value.structure_type24753 = &t23992; /* x193136 */ t23996.s0.tag = EXTERNAL_SYMBOL_TYPE; t23996.s0.value.external_symbol_type = q77; /* x193137 */ t23997.s0.tag = EXTERNAL_SYMBOL_TYPE; t23997.s0.value.external_symbol_type = q143; /* x193138 */ t23997.s1.tag = NULL_TYPE; /* x193139 */ t23996.s1.tag = STRUCTURE_TYPE24753; t23996.s1.value.structure_type24753 = &t23997; /* x193140 */ t23995.s0.tag = STRUCTURE_TYPE24753; t23995.s0.value.structure_type24753 = &t23996; /* x193141 */ t23998.s0.tag = EXTERNAL_SYMBOL_TYPE; t23998.s0.value.external_symbol_type = q252; /* x193142 */ t23998.s1.tag = NULL_TYPE; /* x193143 */ t23995.s1.tag = STRUCTURE_TYPE24753; t23995.s1.value.structure_type24753 = &t23998; /* x193144 */ t23994.s0.tag = STRUCTURE_TYPE24753; t23994.s0.value.structure_type24753 = &t23995; /* x193145 */ t23994.s1.tag = NULL_TYPE; /* x193146 */ t23991.s1.tag = STRUCTURE_TYPE24753; t23991.s1.value.structure_type24753 = &t23994; /* x193147 */ t23990.s1.tag = STRUCTURE_TYPE24753; t23990.s1.value.structure_type24753 = &t23991; /* x193150 */ t24003.s0.tag = EXTERNAL_SYMBOL_TYPE; t24003.s0.value.external_symbol_type = q97; /* x193151 */ t24005.s0.tag = EXTERNAL_SYMBOL_TYPE; t24005.s0.value.external_symbol_type = q144; /* x193152 */ t24006.s0.tag = EXTERNAL_SYMBOL_TYPE; t24006.s0.value.external_symbol_type = q439; /* x193153 */ t24006.s1.tag = NULL_TYPE; /* x193154 */ t24005.s1.tag = STRUCTURE_TYPE24753; t24005.s1.value.structure_type24753 = &t24006; /* x193155 */ t24004.s0.tag = STRUCTURE_TYPE24753; t24004.s0.value.structure_type24753 = &t24005; /* x193156 */ t24009.s0.tag = EXTERNAL_SYMBOL_TYPE; t24009.s0.value.external_symbol_type = q77; /* x193157 */ t24010.s0.tag = EXTERNAL_SYMBOL_TYPE; t24010.s0.value.external_symbol_type = q144; /* x193158 */ t24010.s1.tag = NULL_TYPE; /* x193159 */ t24009.s1.tag = STRUCTURE_TYPE24753; t24009.s1.value.structure_type24753 = &t24010; /* x193160 */ t24008.s0.tag = STRUCTURE_TYPE24753; t24008.s0.value.structure_type24753 = &t24009; /* x193161 */ t24011.s0.tag = EXTERNAL_SYMBOL_TYPE; t24011.s0.value.external_symbol_type = q439; /* x193162 */ t24011.s1.tag = NULL_TYPE; /* x193163 */ t24008.s1.tag = STRUCTURE_TYPE24753; t24008.s1.value.structure_type24753 = &t24011; /* x193164 */ t24007.s0.tag = STRUCTURE_TYPE24753; t24007.s0.value.structure_type24753 = &t24008; /* x193165 */ t24007.s1.tag = NULL_TYPE; /* x193166 */ t24004.s1.tag = STRUCTURE_TYPE24753; t24004.s1.value.structure_type24753 = &t24007; /* x193167 */ t24003.s1.tag = STRUCTURE_TYPE24753; t24003.s1.value.structure_type24753 = &t24004; /* x193170 */ t24016.s0.tag = EXTERNAL_SYMBOL_TYPE; t24016.s0.value.external_symbol_type = q97; /* x193171 */ t24018.s0.tag = EXTERNAL_SYMBOL_TYPE; t24018.s0.value.external_symbol_type = q145; /* x193172 */ t24019.s0.tag = EXTERNAL_SYMBOL_TYPE; t24019.s0.value.external_symbol_type = q439; /* x193173 */ t24019.s1.tag = NULL_TYPE; /* x193174 */ t24018.s1.tag = STRUCTURE_TYPE24753; t24018.s1.value.structure_type24753 = &t24019; /* x193175 */ t24017.s0.tag = STRUCTURE_TYPE24753; t24017.s0.value.structure_type24753 = &t24018; /* x193176 */ t24022.s0.tag = EXTERNAL_SYMBOL_TYPE; t24022.s0.value.external_symbol_type = q77; /* x193177 */ t24023.s0.tag = EXTERNAL_SYMBOL_TYPE; t24023.s0.value.external_symbol_type = q145; /* x193178 */ t24023.s1.tag = NULL_TYPE; /* x193179 */ t24022.s1.tag = STRUCTURE_TYPE24753; t24022.s1.value.structure_type24753 = &t24023; /* x193180 */ t24021.s0.tag = STRUCTURE_TYPE24753; t24021.s0.value.structure_type24753 = &t24022; /* x193181 */ t24024.s0.tag = EXTERNAL_SYMBOL_TYPE; t24024.s0.value.external_symbol_type = q439; /* x193182 */ t24024.s1.tag = NULL_TYPE; /* x193183 */ t24021.s1.tag = STRUCTURE_TYPE24753; t24021.s1.value.structure_type24753 = &t24024; /* x193184 */ t24020.s0.tag = STRUCTURE_TYPE24753; t24020.s0.value.structure_type24753 = &t24021; /* x193185 */ t24020.s1.tag = NULL_TYPE; /* x193186 */ t24017.s1.tag = STRUCTURE_TYPE24753; t24017.s1.value.structure_type24753 = &t24020; /* x193187 */ t24016.s1.tag = STRUCTURE_TYPE24753; t24016.s1.value.structure_type24753 = &t24017; /* x193190 */ t24029.s0.tag = EXTERNAL_SYMBOL_TYPE; t24029.s0.value.external_symbol_type = q97; /* x193191 */ t24031.s0.tag = EXTERNAL_SYMBOL_TYPE; t24031.s0.value.external_symbol_type = q146; /* x193192 */ t24032.s0.tag = EXTERNAL_SYMBOL_TYPE; t24032.s0.value.external_symbol_type = q439; /* x193193 */ t24032.s1.tag = NULL_TYPE; /* x193194 */ t24031.s1.tag = STRUCTURE_TYPE24753; t24031.s1.value.structure_type24753 = &t24032; /* x193195 */ t24030.s0.tag = STRUCTURE_TYPE24753; t24030.s0.value.structure_type24753 = &t24031; /* x193196 */ t24035.s0.tag = EXTERNAL_SYMBOL_TYPE; t24035.s0.value.external_symbol_type = q77; /* x193197 */ t24036.s0.tag = EXTERNAL_SYMBOL_TYPE; t24036.s0.value.external_symbol_type = q146; /* x193198 */ t24036.s1.tag = NULL_TYPE; /* x193199 */ t24035.s1.tag = STRUCTURE_TYPE24753; t24035.s1.value.structure_type24753 = &t24036; /* x193200 */ t24034.s0.tag = STRUCTURE_TYPE24753; t24034.s0.value.structure_type24753 = &t24035; /* x193201 */ t24037.s0.tag = EXTERNAL_SYMBOL_TYPE; t24037.s0.value.external_symbol_type = q439; /* x193202 */ t24037.s1.tag = NULL_TYPE; /* x193203 */ t24034.s1.tag = STRUCTURE_TYPE24753; t24034.s1.value.structure_type24753 = &t24037; /* x193204 */ t24033.s0.tag = STRUCTURE_TYPE24753; t24033.s0.value.structure_type24753 = &t24034; /* x193205 */ t24033.s1.tag = NULL_TYPE; /* x193206 */ t24030.s1.tag = STRUCTURE_TYPE24753; t24030.s1.value.structure_type24753 = &t24033; /* x193207 */ t24029.s1.tag = STRUCTURE_TYPE24753; t24029.s1.value.structure_type24753 = &t24030; /* x193210 */ t24042.s0.tag = EXTERNAL_SYMBOL_TYPE; t24042.s0.value.external_symbol_type = q97; /* x193211 */ t24044.s0.tag = EXTERNAL_SYMBOL_TYPE; t24044.s0.value.external_symbol_type = q147; /* x193212 */ t24045.s0.tag = EXTERNAL_SYMBOL_TYPE; t24045.s0.value.external_symbol_type = q439; /* x193213 */ t24045.s1.tag = NULL_TYPE; /* x193214 */ t24044.s1.tag = STRUCTURE_TYPE24753; t24044.s1.value.structure_type24753 = &t24045; /* x193215 */ t24043.s0.tag = STRUCTURE_TYPE24753; t24043.s0.value.structure_type24753 = &t24044; /* x193216 */ t24048.s0.tag = EXTERNAL_SYMBOL_TYPE; t24048.s0.value.external_symbol_type = q77; /* x193217 */ t24049.s0.tag = EXTERNAL_SYMBOL_TYPE; t24049.s0.value.external_symbol_type = q147; /* x193218 */ t24049.s1.tag = NULL_TYPE; /* x193219 */ t24048.s1.tag = STRUCTURE_TYPE24753; t24048.s1.value.structure_type24753 = &t24049; /* x193220 */ t24047.s0.tag = STRUCTURE_TYPE24753; t24047.s0.value.structure_type24753 = &t24048; /* x193221 */ t24050.s0.tag = EXTERNAL_SYMBOL_TYPE; t24050.s0.value.external_symbol_type = q439; /* x193222 */ t24050.s1.tag = NULL_TYPE; /* x193223 */ t24047.s1.tag = STRUCTURE_TYPE24753; t24047.s1.value.structure_type24753 = &t24050; /* x193224 */ t24046.s0.tag = STRUCTURE_TYPE24753; t24046.s0.value.structure_type24753 = &t24047; /* x193225 */ t24046.s1.tag = NULL_TYPE; /* x193226 */ t24043.s1.tag = STRUCTURE_TYPE24753; t24043.s1.value.structure_type24753 = &t24046; /* x193227 */ t24042.s1.tag = STRUCTURE_TYPE24753; t24042.s1.value.structure_type24753 = &t24043; /* x193230 */ t24055.s0.tag = EXTERNAL_SYMBOL_TYPE; t24055.s0.value.external_symbol_type = q97; /* x193231 */ t24057.s0.tag = EXTERNAL_SYMBOL_TYPE; t24057.s0.value.external_symbol_type = q148; /* x193232 */ t24058.s0.tag = EXTERNAL_SYMBOL_TYPE; t24058.s0.value.external_symbol_type = q439; /* x193233 */ t24058.s1.tag = NULL_TYPE; /* x193234 */ t24057.s1.tag = STRUCTURE_TYPE24753; t24057.s1.value.structure_type24753 = &t24058; /* x193235 */ t24056.s0.tag = STRUCTURE_TYPE24753; t24056.s0.value.structure_type24753 = &t24057; /* x193236 */ t24061.s0.tag = EXTERNAL_SYMBOL_TYPE; t24061.s0.value.external_symbol_type = q77; /* x193237 */ t24062.s0.tag = EXTERNAL_SYMBOL_TYPE; t24062.s0.value.external_symbol_type = q148; /* x193238 */ t24062.s1.tag = NULL_TYPE; /* x193239 */ t24061.s1.tag = STRUCTURE_TYPE24753; t24061.s1.value.structure_type24753 = &t24062; /* x193240 */ t24060.s0.tag = STRUCTURE_TYPE24753; t24060.s0.value.structure_type24753 = &t24061; /* x193241 */ t24063.s0.tag = EXTERNAL_SYMBOL_TYPE; t24063.s0.value.external_symbol_type = q439; /* x193242 */ t24063.s1.tag = NULL_TYPE; /* x193243 */ t24060.s1.tag = STRUCTURE_TYPE24753; t24060.s1.value.structure_type24753 = &t24063; /* x193244 */ t24059.s0.tag = STRUCTURE_TYPE24753; t24059.s0.value.structure_type24753 = &t24060; /* x193245 */ t24059.s1.tag = NULL_TYPE; /* x193246 */ t24056.s1.tag = STRUCTURE_TYPE24753; t24056.s1.value.structure_type24753 = &t24059; /* x193247 */ t24055.s1.tag = STRUCTURE_TYPE24753; t24055.s1.value.structure_type24753 = &t24056; /* x193250 */ t24068.s0.tag = EXTERNAL_SYMBOL_TYPE; t24068.s0.value.external_symbol_type = q97; /* x193251 */ t24070.s0.tag = EXTERNAL_SYMBOL_TYPE; t24070.s0.value.external_symbol_type = q149; /* x193252 */ t24071.s0.tag = EXTERNAL_SYMBOL_TYPE; t24071.s0.value.external_symbol_type = q439; /* x193253 */ t24071.s1.tag = NULL_TYPE; /* x193254 */ t24070.s1.tag = STRUCTURE_TYPE24753; t24070.s1.value.structure_type24753 = &t24071; /* x193255 */ t24069.s0.tag = STRUCTURE_TYPE24753; t24069.s0.value.structure_type24753 = &t24070; /* x193256 */ t24074.s0.tag = EXTERNAL_SYMBOL_TYPE; t24074.s0.value.external_symbol_type = q77; /* x193257 */ t24075.s0.tag = EXTERNAL_SYMBOL_TYPE; t24075.s0.value.external_symbol_type = q149; /* x193258 */ t24075.s1.tag = NULL_TYPE; /* x193259 */ t24074.s1.tag = STRUCTURE_TYPE24753; t24074.s1.value.structure_type24753 = &t24075; /* x193260 */ t24073.s0.tag = STRUCTURE_TYPE24753; t24073.s0.value.structure_type24753 = &t24074; /* x193261 */ t24076.s0.tag = EXTERNAL_SYMBOL_TYPE; t24076.s0.value.external_symbol_type = q439; /* x193262 */ t24076.s1.tag = NULL_TYPE; /* x193263 */ t24073.s1.tag = STRUCTURE_TYPE24753; t24073.s1.value.structure_type24753 = &t24076; /* x193264 */ t24072.s0.tag = STRUCTURE_TYPE24753; t24072.s0.value.structure_type24753 = &t24073; /* x193265 */ t24072.s1.tag = NULL_TYPE; /* x193266 */ t24069.s1.tag = STRUCTURE_TYPE24753; t24069.s1.value.structure_type24753 = &t24072; /* x193267 */ t24068.s1.tag = STRUCTURE_TYPE24753; t24068.s1.value.structure_type24753 = &t24069; /* x193270 */ t24081.s0.tag = EXTERNAL_SYMBOL_TYPE; t24081.s0.value.external_symbol_type = q97; /* x193271 */ t24083.s0.tag = EXTERNAL_SYMBOL_TYPE; t24083.s0.value.external_symbol_type = q150; /* x193272 */ t24084.s0.tag = EXTERNAL_SYMBOL_TYPE; t24084.s0.value.external_symbol_type = q439; /* x193273 */ t24084.s1.tag = NULL_TYPE; /* x193274 */ t24083.s1.tag = STRUCTURE_TYPE24753; t24083.s1.value.structure_type24753 = &t24084; /* x193275 */ t24082.s0.tag = STRUCTURE_TYPE24753; t24082.s0.value.structure_type24753 = &t24083; /* x193276 */ t24087.s0.tag = EXTERNAL_SYMBOL_TYPE; t24087.s0.value.external_symbol_type = q77; /* x193277 */ t24088.s0.tag = EXTERNAL_SYMBOL_TYPE; t24088.s0.value.external_symbol_type = q150; /* x193278 */ t24088.s1.tag = NULL_TYPE; /* x193279 */ t24087.s1.tag = STRUCTURE_TYPE24753; t24087.s1.value.structure_type24753 = &t24088; /* x193280 */ t24086.s0.tag = STRUCTURE_TYPE24753; t24086.s0.value.structure_type24753 = &t24087; /* x193281 */ t24089.s0.tag = EXTERNAL_SYMBOL_TYPE; t24089.s0.value.external_symbol_type = q439; /* x193282 */ t24089.s1.tag = NULL_TYPE; /* x193283 */ t24086.s1.tag = STRUCTURE_TYPE24753; t24086.s1.value.structure_type24753 = &t24089; /* x193284 */ t24085.s0.tag = STRUCTURE_TYPE24753; t24085.s0.value.structure_type24753 = &t24086; /* x193285 */ t24085.s1.tag = NULL_TYPE; /* x193286 */ t24082.s1.tag = STRUCTURE_TYPE24753; t24082.s1.value.structure_type24753 = &t24085; /* x193287 */ t24081.s1.tag = STRUCTURE_TYPE24753; t24081.s1.value.structure_type24753 = &t24082; /* x193290 */ t24094.s0.tag = EXTERNAL_SYMBOL_TYPE; t24094.s0.value.external_symbol_type = q97; /* x193291 */ t24096.s0.tag = EXTERNAL_SYMBOL_TYPE; t24096.s0.value.external_symbol_type = q151; /* x193292 */ t24097.s0.tag = EXTERNAL_SYMBOL_TYPE; t24097.s0.value.external_symbol_type = q252; /* x193293 */ t24097.s1.tag = EXTERNAL_SYMBOL_TYPE; t24097.s1.value.external_symbol_type = q456; /* x193294 */ t24096.s1.tag = STRUCTURE_TYPE24753; t24096.s1.value.structure_type24753 = &t24097; /* x193295 */ t24095.s0.tag = STRUCTURE_TYPE24753; t24095.s0.value.structure_type24753 = &t24096; /* x193296 */ t24099.s0.tag = EXTERNAL_SYMBOL_TYPE; t24099.s0.value.external_symbol_type = q240; /* x193297 */ t24102.s0.tag = EXTERNAL_SYMBOL_TYPE; t24102.s0.value.external_symbol_type = q111; /* x193298 */ t24103.s0.tag = EXTERNAL_SYMBOL_TYPE; t24103.s0.value.external_symbol_type = q456; /* x193299 */ t24103.s1.tag = NULL_TYPE; /* x193300 */ t24102.s1.tag = STRUCTURE_TYPE24753; t24102.s1.value.structure_type24753 = &t24103; /* x193301 */ t24101.s0.tag = STRUCTURE_TYPE24753; t24101.s0.value.structure_type24753 = &t24102; /* x193302 */ t24106.s0.tag = EXTERNAL_SYMBOL_TYPE; t24106.s0.value.external_symbol_type = q77; /* x193303 */ t24107.s0.tag = EXTERNAL_SYMBOL_TYPE; t24107.s0.value.external_symbol_type = q151; /* x193304 */ t24107.s1.tag = NULL_TYPE; /* x193305 */ t24106.s1.tag = STRUCTURE_TYPE24753; t24106.s1.value.structure_type24753 = &t24107; /* x193306 */ t24105.s0.tag = STRUCTURE_TYPE24753; t24105.s0.value.structure_type24753 = &t24106; /* x193307 */ t24108.s0.tag = EXTERNAL_SYMBOL_TYPE; t24108.s0.value.external_symbol_type = q252; /* x193308 */ t24108.s1.tag = NULL_TYPE; /* x193309 */ t24105.s1.tag = STRUCTURE_TYPE24753; t24105.s1.value.structure_type24753 = &t24108; /* x193310 */ t24104.s0.tag = STRUCTURE_TYPE24753; t24104.s0.value.structure_type24753 = &t24105; /* x193311 */ t24104.s1.tag = NULL_TYPE; /* x193312 */ t24101.s1.tag = STRUCTURE_TYPE24753; t24101.s1.value.structure_type24753 = &t24104; /* x193313 */ t24100.s0.tag = STRUCTURE_TYPE24753; t24100.s0.value.structure_type24753 = &t24101; /* x193314 */ t24111.s0.tag = EXTERNAL_SYMBOL_TYPE; t24111.s0.value.external_symbol_type = q111; /* x193315 */ t24113.s0.tag = EXTERNAL_SYMBOL_TYPE; t24113.s0.value.external_symbol_type = q108; /* x193316 */ t24114.s0.tag = EXTERNAL_SYMBOL_TYPE; t24114.s0.value.external_symbol_type = q456; /* x193317 */ t24114.s1.tag = NULL_TYPE; /* x193318 */ t24113.s1.tag = STRUCTURE_TYPE24753; t24113.s1.value.structure_type24753 = &t24114; /* x193319 */ t24112.s0.tag = STRUCTURE_TYPE24753; t24112.s0.value.structure_type24753 = &t24113; /* x193320 */ t24112.s1.tag = NULL_TYPE; /* x193321 */ t24111.s1.tag = STRUCTURE_TYPE24753; t24111.s1.value.structure_type24753 = &t24112; /* x193322 */ t24110.s0.tag = STRUCTURE_TYPE24753; t24110.s0.value.structure_type24753 = &t24111; /* x193323 */ t24117.s0.tag = EXTERNAL_SYMBOL_TYPE; t24117.s0.value.external_symbol_type = q77; /* x193324 */ t24118.s0.tag = EXTERNAL_SYMBOL_TYPE; t24118.s0.value.external_symbol_type = q151; /* x193325 */ t24118.s1.tag = NULL_TYPE; /* x193326 */ t24117.s1.tag = STRUCTURE_TYPE24753; t24117.s1.value.structure_type24753 = &t24118; /* x193327 */ t24116.s0.tag = STRUCTURE_TYPE24753; t24116.s0.value.structure_type24753 = &t24117; /* x193328 */ t24119.s0.tag = EXTERNAL_SYMBOL_TYPE; t24119.s0.value.external_symbol_type = q252; /* x193329 */ t24121.s0.tag = EXTERNAL_SYMBOL_TYPE; t24121.s0.value.external_symbol_type = q107; /* x193330 */ t24122.s0.tag = EXTERNAL_SYMBOL_TYPE; t24122.s0.value.external_symbol_type = q456; /* x193331 */ t24122.s1.tag = NULL_TYPE; /* x193332 */ t24121.s1.tag = STRUCTURE_TYPE24753; t24121.s1.value.structure_type24753 = &t24122; /* x193333 */ t24120.s0.tag = STRUCTURE_TYPE24753; t24120.s0.value.structure_type24753 = &t24121; /* x193334 */ t24120.s1.tag = NULL_TYPE; /* x193335 */ t24119.s1.tag = STRUCTURE_TYPE24753; t24119.s1.value.structure_type24753 = &t24120; /* x193336 */ t24116.s1.tag = STRUCTURE_TYPE24753; t24116.s1.value.structure_type24753 = &t24119; /* x193337 */ t24115.s0.tag = STRUCTURE_TYPE24753; t24115.s0.value.structure_type24753 = &t24116; /* x193338 */ t24115.s1.tag = NULL_TYPE; /* x193339 */ t24110.s1.tag = STRUCTURE_TYPE24753; t24110.s1.value.structure_type24753 = &t24115; /* x193340 */ t24109.s0.tag = STRUCTURE_TYPE24753; t24109.s0.value.structure_type24753 = &t24110; /* x193341 */ t24124.s0.tag = EXTERNAL_SYMBOL_TYPE; t24124.s0.value.external_symbol_type = q95; /* x193342 */ t24126.s0.tag = EXTERNAL_SYMBOL_TYPE; t24126.s0.value.external_symbol_type = q179; /* x193343 */ t24127.s0.tag = STRING_TYPE; t24127.s0.value.string_type = "Attempt to call ATAN with the wrong number of arguments"; /* x193344 */ t24127.s1.tag = NULL_TYPE; /* x193345 */ t24126.s1.tag = STRUCTURE_TYPE24753; t24126.s1.value.structure_type24753 = &t24127; /* x193346 */ t24125.s0.tag = STRUCTURE_TYPE24753; t24125.s0.value.structure_type24753 = &t24126; /* x193347 */ t24125.s1.tag = NULL_TYPE; /* x193348 */ t24124.s1.tag = STRUCTURE_TYPE24753; t24124.s1.value.structure_type24753 = &t24125; /* x193349 */ t24123.s0.tag = STRUCTURE_TYPE24753; t24123.s0.value.structure_type24753 = &t24124; /* x193350 */ t24123.s1.tag = NULL_TYPE; /* x193351 */ t24109.s1.tag = STRUCTURE_TYPE24753; t24109.s1.value.structure_type24753 = &t24123; /* x193352 */ t24100.s1.tag = STRUCTURE_TYPE24753; t24100.s1.value.structure_type24753 = &t24109; /* x193353 */ t24099.s1.tag = STRUCTURE_TYPE24753; t24099.s1.value.structure_type24753 = &t24100; /* x193354 */ t24098.s0.tag = STRUCTURE_TYPE24753; t24098.s0.value.structure_type24753 = &t24099; /* x193355 */ t24098.s1.tag = NULL_TYPE; /* x193356 */ t24095.s1.tag = STRUCTURE_TYPE24753; t24095.s1.value.structure_type24753 = &t24098; /* x193357 */ t24094.s1.tag = STRUCTURE_TYPE24753; t24094.s1.value.structure_type24753 = &t24095; /* x193360 */ t24132.s0.tag = EXTERNAL_SYMBOL_TYPE; t24132.s0.value.external_symbol_type = q97; /* x193361 */ t24134.s0.tag = EXTERNAL_SYMBOL_TYPE; t24134.s0.value.external_symbol_type = q152; /* x193362 */ t24135.s0.tag = EXTERNAL_SYMBOL_TYPE; t24135.s0.value.external_symbol_type = q439; /* x193363 */ t24135.s1.tag = NULL_TYPE; /* x193364 */ t24134.s1.tag = STRUCTURE_TYPE24753; t24134.s1.value.structure_type24753 = &t24135; /* x193365 */ t24133.s0.tag = STRUCTURE_TYPE24753; t24133.s0.value.structure_type24753 = &t24134; /* x193366 */ t24138.s0.tag = EXTERNAL_SYMBOL_TYPE; t24138.s0.value.external_symbol_type = q77; /* x193367 */ t24139.s0.tag = EXTERNAL_SYMBOL_TYPE; t24139.s0.value.external_symbol_type = q152; /* x193368 */ t24139.s1.tag = NULL_TYPE; /* x193369 */ t24138.s1.tag = STRUCTURE_TYPE24753; t24138.s1.value.structure_type24753 = &t24139; /* x193370 */ t24137.s0.tag = STRUCTURE_TYPE24753; t24137.s0.value.structure_type24753 = &t24138; /* x193371 */ t24140.s0.tag = EXTERNAL_SYMBOL_TYPE; t24140.s0.value.external_symbol_type = q439; /* x193372 */ t24140.s1.tag = NULL_TYPE; /* x193373 */ t24137.s1.tag = STRUCTURE_TYPE24753; t24137.s1.value.structure_type24753 = &t24140; /* x193374 */ t24136.s0.tag = STRUCTURE_TYPE24753; t24136.s0.value.structure_type24753 = &t24137; /* x193375 */ t24136.s1.tag = NULL_TYPE; /* x193376 */ t24133.s1.tag = STRUCTURE_TYPE24753; t24133.s1.value.structure_type24753 = &t24136; /* x193377 */ t24132.s1.tag = STRUCTURE_TYPE24753; t24132.s1.value.structure_type24753 = &t24133; /* x193380 */ t24145.s0.tag = EXTERNAL_SYMBOL_TYPE; t24145.s0.value.external_symbol_type = q97; /* x193381 */ t24147.s0.tag = EXTERNAL_SYMBOL_TYPE; t24147.s0.value.external_symbol_type = q153; /* x193382 */ t24148.s0.tag = EXTERNAL_SYMBOL_TYPE; t24148.s0.value.external_symbol_type = q440; /* x193383 */ t24149.s0.tag = EXTERNAL_SYMBOL_TYPE; t24149.s0.value.external_symbol_type = q441; /* x193384 */ t24149.s1.tag = NULL_TYPE; /* x193385 */ t24148.s1.tag = STRUCTURE_TYPE24753; t24148.s1.value.structure_type24753 = &t24149; /* x193386 */ t24147.s1.tag = STRUCTURE_TYPE24753; t24147.s1.value.structure_type24753 = &t24148; /* x193387 */ t24146.s0.tag = STRUCTURE_TYPE24753; t24146.s0.value.structure_type24753 = &t24147; /* x193388 */ t24152.s0.tag = EXTERNAL_SYMBOL_TYPE; t24152.s0.value.external_symbol_type = q77; /* x193389 */ t24153.s0.tag = EXTERNAL_SYMBOL_TYPE; t24153.s0.value.external_symbol_type = q153; /* x193390 */ t24153.s1.tag = NULL_TYPE; /* x193391 */ t24152.s1.tag = STRUCTURE_TYPE24753; t24152.s1.value.structure_type24753 = &t24153; /* x193392 */ t24151.s0.tag = STRUCTURE_TYPE24753; t24151.s0.value.structure_type24753 = &t24152; /* x193393 */ t24154.s0.tag = EXTERNAL_SYMBOL_TYPE; t24154.s0.value.external_symbol_type = q440; /* x193394 */ t24155.s0.tag = EXTERNAL_SYMBOL_TYPE; t24155.s0.value.external_symbol_type = q441; /* x193395 */ t24155.s1.tag = NULL_TYPE; /* x193396 */ t24154.s1.tag = STRUCTURE_TYPE24753; t24154.s1.value.structure_type24753 = &t24155; /* x193397 */ t24151.s1.tag = STRUCTURE_TYPE24753; t24151.s1.value.structure_type24753 = &t24154; /* x193398 */ t24150.s0.tag = STRUCTURE_TYPE24753; t24150.s0.value.structure_type24753 = &t24151; /* x193399 */ t24150.s1.tag = NULL_TYPE; /* x193400 */ t24146.s1.tag = STRUCTURE_TYPE24753; t24146.s1.value.structure_type24753 = &t24150; /* x193401 */ t24145.s1.tag = STRUCTURE_TYPE24753; t24145.s1.value.structure_type24753 = &t24146; /* x193404 */ t24160.s0.tag = EXTERNAL_SYMBOL_TYPE; t24160.s0.value.external_symbol_type = q97; /* x193405 */ t24162.s0.tag = EXTERNAL_SYMBOL_TYPE; t24162.s0.value.external_symbol_type = q154; /* x193406 */ t24163.s0.tag = EXTERNAL_SYMBOL_TYPE; t24163.s0.value.external_symbol_type = q439; /* x193407 */ t24163.s1.tag = NULL_TYPE; /* x193408 */ t24162.s1.tag = STRUCTURE_TYPE24753; t24162.s1.value.structure_type24753 = &t24163; /* x193409 */ t24161.s0.tag = STRUCTURE_TYPE24753; t24161.s0.value.structure_type24753 = &t24162; /* x193410 */ t24166.s0.tag = EXTERNAL_SYMBOL_TYPE; t24166.s0.value.external_symbol_type = q77; /* x193411 */ t24167.s0.tag = EXTERNAL_SYMBOL_TYPE; t24167.s0.value.external_symbol_type = q154; /* x193412 */ t24167.s1.tag = NULL_TYPE; /* x193413 */ t24166.s1.tag = STRUCTURE_TYPE24753; t24166.s1.value.structure_type24753 = &t24167; /* x193414 */ t24165.s0.tag = STRUCTURE_TYPE24753; t24165.s0.value.structure_type24753 = &t24166; /* x193415 */ t24168.s0.tag = EXTERNAL_SYMBOL_TYPE; t24168.s0.value.external_symbol_type = q439; /* x193416 */ t24168.s1.tag = NULL_TYPE; /* x193417 */ t24165.s1.tag = STRUCTURE_TYPE24753; t24165.s1.value.structure_type24753 = &t24168; /* x193418 */ t24164.s0.tag = STRUCTURE_TYPE24753; t24164.s0.value.structure_type24753 = &t24165; /* x193419 */ t24164.s1.tag = NULL_TYPE; /* x193420 */ t24161.s1.tag = STRUCTURE_TYPE24753; t24161.s1.value.structure_type24753 = &t24164; /* x193421 */ t24160.s1.tag = STRUCTURE_TYPE24753; t24160.s1.value.structure_type24753 = &t24161; /* x193424 */ t24173.s0.tag = EXTERNAL_SYMBOL_TYPE; t24173.s0.value.external_symbol_type = q97; /* x193425 */ t24175.s0.tag = EXTERNAL_SYMBOL_TYPE; t24175.s0.value.external_symbol_type = q155; /* x193426 */ t24176.s0.tag = EXTERNAL_SYMBOL_TYPE; t24176.s0.value.external_symbol_type = q439; /* x193427 */ t24176.s1.tag = NULL_TYPE; /* x193428 */ t24175.s1.tag = STRUCTURE_TYPE24753; t24175.s1.value.structure_type24753 = &t24176; /* x193429 */ t24174.s0.tag = STRUCTURE_TYPE24753; t24174.s0.value.structure_type24753 = &t24175; /* x193430 */ t24179.s0.tag = EXTERNAL_SYMBOL_TYPE; t24179.s0.value.external_symbol_type = q77; /* x193431 */ t24180.s0.tag = EXTERNAL_SYMBOL_TYPE; t24180.s0.value.external_symbol_type = q155; /* x193432 */ t24180.s1.tag = NULL_TYPE; /* x193433 */ t24179.s1.tag = STRUCTURE_TYPE24753; t24179.s1.value.structure_type24753 = &t24180; /* x193434 */ t24178.s0.tag = STRUCTURE_TYPE24753; t24178.s0.value.structure_type24753 = &t24179; /* x193435 */ t24181.s0.tag = EXTERNAL_SYMBOL_TYPE; t24181.s0.value.external_symbol_type = q439; /* x193436 */ t24181.s1.tag = NULL_TYPE; /* x193437 */ t24178.s1.tag = STRUCTURE_TYPE24753; t24178.s1.value.structure_type24753 = &t24181; /* x193438 */ t24177.s0.tag = STRUCTURE_TYPE24753; t24177.s0.value.structure_type24753 = &t24178; /* x193439 */ t24177.s1.tag = NULL_TYPE; /* x193440 */ t24174.s1.tag = STRUCTURE_TYPE24753; t24174.s1.value.structure_type24753 = &t24177; /* x193441 */ t24173.s1.tag = STRUCTURE_TYPE24753; t24173.s1.value.structure_type24753 = &t24174; /* x193444 */ t24186.s0.tag = EXTERNAL_SYMBOL_TYPE; t24186.s0.value.external_symbol_type = q97; /* x193445 */ t24187.s0.tag = EXTERNAL_SYMBOL_TYPE; t24187.s0.value.external_symbol_type = q320; /* x193446 */ t24190.s0.tag = EXTERNAL_SYMBOL_TYPE; t24190.s0.value.external_symbol_type = q39; /* x193447 */ t24191.s0.tag = NULL_TYPE; /* x193448 */ t24191.s1.tag = NULL_TYPE; /* x193449 */ t24190.s1.tag = STRUCTURE_TYPE24753; t24190.s1.value.structure_type24753 = &t24191; /* x193450 */ t24189.s0.tag = STRUCTURE_TYPE24753; t24189.s0.value.structure_type24753 = &t24190; /* x193451 */ t24189.s1.tag = NULL_TYPE; /* x193452 */ t24188.s0.tag = STRUCTURE_TYPE24753; t24188.s0.value.structure_type24753 = &t24189; /* x193453 */ t24188.s1.tag = NULL_TYPE; /* x193454 */ t24187.s1.tag = STRUCTURE_TYPE24753; t24187.s1.value.structure_type24753 = &t24188; /* x193455 */ t24186.s1.tag = STRUCTURE_TYPE24753; t24186.s1.value.structure_type24753 = &t24187; /* x193458 */ t24196.s0.tag = EXTERNAL_SYMBOL_TYPE; t24196.s0.value.external_symbol_type = q97; /* x193459 */ t24197.s0.tag = EXTERNAL_SYMBOL_TYPE; t24197.s0.value.external_symbol_type = q329; /* x193460 */ t24200.s0.tag = EXTERNAL_SYMBOL_TYPE; t24200.s0.value.external_symbol_type = q39; /* x193461 */ t24201.s0.tag = NULL_TYPE; /* x193462 */ t24201.s1.tag = NULL_TYPE; /* x193463 */ t24200.s1.tag = STRUCTURE_TYPE24753; t24200.s1.value.structure_type24753 = &t24201; /* x193464 */ t24199.s0.tag = STRUCTURE_TYPE24753; t24199.s0.value.structure_type24753 = &t24200; /* x193465 */ t24199.s1.tag = NULL_TYPE; /* x193466 */ t24198.s0.tag = STRUCTURE_TYPE24753; t24198.s0.value.structure_type24753 = &t24199; /* x193467 */ t24198.s1.tag = NULL_TYPE; /* x193468 */ t24197.s1.tag = STRUCTURE_TYPE24753; t24197.s1.value.structure_type24753 = &t24198; /* x193469 */ t24196.s1.tag = STRUCTURE_TYPE24753; t24196.s1.value.structure_type24753 = &t24197; /* x193472 */ t24206.s0.tag = EXTERNAL_SYMBOL_TYPE; t24206.s0.value.external_symbol_type = q97; /* x193473 */ t24208.s0.tag = EXTERNAL_SYMBOL_TYPE; t24208.s0.value.external_symbol_type = q156; /* x193474 */ t24209.s0.tag = EXTERNAL_SYMBOL_TYPE; t24209.s0.value.external_symbol_type = q318; /* x193475 */ t24209.s1.tag = NULL_TYPE; /* x193476 */ t24208.s1.tag = STRUCTURE_TYPE24753; t24208.s1.value.structure_type24753 = &t24209; /* x193477 */ t24207.s0.tag = STRUCTURE_TYPE24753; t24207.s0.value.structure_type24753 = &t24208; /* x193478 */ t24212.s0.tag = EXTERNAL_SYMBOL_TYPE; t24212.s0.value.external_symbol_type = q77; /* x193479 */ t24213.s0.tag = EXTERNAL_SYMBOL_TYPE; t24213.s0.value.external_symbol_type = q156; /* x193480 */ t24213.s1.tag = NULL_TYPE; /* x193481 */ t24212.s1.tag = STRUCTURE_TYPE24753; t24212.s1.value.structure_type24753 = &t24213; /* x193482 */ t24211.s0.tag = STRUCTURE_TYPE24753; t24211.s0.value.structure_type24753 = &t24212; /* x193483 */ t24214.s0.tag = EXTERNAL_SYMBOL_TYPE; t24214.s0.value.external_symbol_type = q318; /* x193484 */ t24214.s1.tag = NULL_TYPE; /* x193485 */ t24211.s1.tag = STRUCTURE_TYPE24753; t24211.s1.value.structure_type24753 = &t24214; /* x193486 */ t24210.s0.tag = STRUCTURE_TYPE24753; t24210.s0.value.structure_type24753 = &t24211; /* x193487 */ t24210.s1.tag = NULL_TYPE; /* x193488 */ t24207.s1.tag = STRUCTURE_TYPE24753; t24207.s1.value.structure_type24753 = &t24210; /* x193489 */ t24206.s1.tag = STRUCTURE_TYPE24753; t24206.s1.value.structure_type24753 = &t24207; /* x193492 */ t24219.s0.tag = EXTERNAL_SYMBOL_TYPE; t24219.s0.value.external_symbol_type = q97; /* x193493 */ t24221.s0.tag = EXTERNAL_SYMBOL_TYPE; t24221.s0.value.external_symbol_type = q263; /* x193494 */ t24222.s0.tag = EXTERNAL_SYMBOL_TYPE; t24222.s0.value.external_symbol_type = q457; /* x193495 */ t24223.s0.tag = EXTERNAL_SYMBOL_TYPE; t24223.s0.value.external_symbol_type = q458; /* x193496 */ t24223.s1.tag = EXTERNAL_SYMBOL_TYPE; t24223.s1.value.external_symbol_type = q459; /* x193497 */ t24222.s1.tag = STRUCTURE_TYPE24753; t24222.s1.value.structure_type24753 = &t24223; /* x193498 */ t24221.s1.tag = STRUCTURE_TYPE24753; t24221.s1.value.structure_type24753 = &t24222; /* x193499 */ t24220.s0.tag = STRUCTURE_TYPE24753; t24220.s0.value.structure_type24753 = &t24221; /* x193500 */ t24225.s0.tag = EXTERNAL_SYMBOL_TYPE; t24225.s0.value.external_symbol_type = q242; /* x193501 */ t24226.s0.tag = EXTERNAL_SYMBOL_TYPE; t24226.s0.value.external_symbol_type = q289; /* x193502 */ t24229.s0.tag = EXTERNAL_SYMBOL_TYPE; t24229.s0.value.external_symbol_type = q457; /* x193503 */ t24230.s0.tag = EXTERNAL_SYMBOL_TYPE; t24230.s0.value.external_symbol_type = q457; /* x193504 */ t24230.s1.tag = NULL_TYPE; /* x193505 */ t24229.s1.tag = STRUCTURE_TYPE24753; t24229.s1.value.structure_type24753 = &t24230; /* x193506 */ t24228.s0.tag = STRUCTURE_TYPE24753; t24228.s0.value.structure_type24753 = &t24229; /* x193507 */ t24232.s0.tag = EXTERNAL_SYMBOL_TYPE; t24232.s0.value.external_symbol_type = q458; /* x193508 */ t24233.s0.tag = EXTERNAL_SYMBOL_TYPE; t24233.s0.value.external_symbol_type = q458; /* x193509 */ t24233.s1.tag = NULL_TYPE; /* x193510 */ t24232.s1.tag = STRUCTURE_TYPE24753; t24232.s1.value.structure_type24753 = &t24233; /* x193511 */ t24231.s0.tag = STRUCTURE_TYPE24753; t24231.s0.value.structure_type24753 = &t24232; /* x193512 */ t24235.s0.tag = EXTERNAL_SYMBOL_TYPE; t24235.s0.value.external_symbol_type = q459; /* x193513 */ t24236.s0.tag = EXTERNAL_SYMBOL_TYPE; t24236.s0.value.external_symbol_type = q459; /* x193514 */ t24236.s1.tag = NULL_TYPE; /* x193515 */ t24235.s1.tag = STRUCTURE_TYPE24753; t24235.s1.value.structure_type24753 = &t24236; /* x193516 */ t24234.s0.tag = STRUCTURE_TYPE24753; t24234.s0.value.structure_type24753 = &t24235; /* x193517 */ t24234.s1.tag = NULL_TYPE; /* x193518 */ t24231.s1.tag = STRUCTURE_TYPE24753; t24231.s1.value.structure_type24753 = &t24234; /* x193519 */ t24228.s1.tag = STRUCTURE_TYPE24753; t24228.s1.value.structure_type24753 = &t24231; /* x193520 */ t24227.s0.tag = STRUCTURE_TYPE24753; t24227.s0.value.structure_type24753 = &t24228; /* x193521 */ t24238.s0.tag = EXTERNAL_SYMBOL_TYPE; t24238.s0.value.external_symbol_type = q244; /* x193522 */ t24240.s0.tag = EXTERNAL_SYMBOL_TYPE; t24240.s0.value.external_symbol_type = q120; /* x193523 */ t24242.s0.tag = EXTERNAL_SYMBOL_TYPE; t24242.s0.value.external_symbol_type = q157; /* x193524 */ t24243.s0.tag = EXTERNAL_SYMBOL_TYPE; t24243.s0.value.external_symbol_type = q457; /* x193525 */ t24243.s1.tag = NULL_TYPE; /* x193526 */ t24242.s1.tag = STRUCTURE_TYPE24753; t24242.s1.value.structure_type24753 = &t24243; /* x193527 */ t24241.s0.tag = STRUCTURE_TYPE24753; t24241.s0.value.structure_type24753 = &t24242; /* x193528 */ t24245.s0.tag = EXTERNAL_SYMBOL_TYPE; t24245.s0.value.external_symbol_type = q157; /* x193529 */ t24246.s0.tag = EXTERNAL_SYMBOL_TYPE; t24246.s0.value.external_symbol_type = q458; /* x193530 */ t24246.s1.tag = NULL_TYPE; /* x193531 */ t24245.s1.tag = STRUCTURE_TYPE24753; t24245.s1.value.structure_type24753 = &t24246; /* x193532 */ t24244.s0.tag = STRUCTURE_TYPE24753; t24244.s0.value.structure_type24753 = &t24245; /* x193533 */ t24244.s1.tag = NULL_TYPE; /* x193534 */ t24241.s1.tag = STRUCTURE_TYPE24753; t24241.s1.value.structure_type24753 = &t24244; /* x193535 */ t24240.s1.tag = STRUCTURE_TYPE24753; t24240.s1.value.structure_type24753 = &t24241; /* x193536 */ t24239.s0.tag = STRUCTURE_TYPE24753; t24239.s0.value.structure_type24753 = &t24240; /* x193537 */ t24248.s0.tag = EXTERNAL_SYMBOL_TYPE; t24248.s0.value.external_symbol_type = q241; /* x193538 */ t24250.s0.tag = EXTERNAL_SYMBOL_TYPE; t24250.s0.value.external_symbol_type = q111; /* x193539 */ t24251.s0.tag = EXTERNAL_SYMBOL_TYPE; t24251.s0.value.external_symbol_type = q459; /* x193540 */ t24251.s1.tag = NULL_TYPE; /* x193541 */ t24250.s1.tag = STRUCTURE_TYPE24753; t24250.s1.value.structure_type24753 = &t24251; /* x193542 */ t24249.s0.tag = STRUCTURE_TYPE24753; t24249.s0.value.structure_type24753 = &t24250; /* x193543 */ t24253.s0.tag = EXTERNAL_SYMBOL_TYPE; t24253.s0.value.external_symbol_type = q289; /* x193544 */ t24254.s0.tag = EXTERNAL_SYMBOL_TYPE; t24254.s0.value.external_symbol_type = q458; /* x193545 */ t24256.s0.tag = EXTERNAL_SYMBOL_TYPE; t24256.s0.value.external_symbol_type = q107; /* x193546 */ t24257.s0.tag = EXTERNAL_SYMBOL_TYPE; t24257.s0.value.external_symbol_type = q459; /* x193547 */ t24257.s1.tag = NULL_TYPE; /* x193548 */ t24256.s1.tag = STRUCTURE_TYPE24753; t24256.s1.value.structure_type24753 = &t24257; /* x193549 */ t24255.s0.tag = STRUCTURE_TYPE24753; t24255.s0.value.structure_type24753 = &t24256; /* x193550 */ t24259.s0.tag = EXTERNAL_SYMBOL_TYPE; t24259.s0.value.external_symbol_type = q108; /* x193551 */ t24260.s0.tag = EXTERNAL_SYMBOL_TYPE; t24260.s0.value.external_symbol_type = q459; /* x193552 */ t24260.s1.tag = NULL_TYPE; /* x193553 */ t24259.s1.tag = STRUCTURE_TYPE24753; t24259.s1.value.structure_type24753 = &t24260; /* x193554 */ t24258.s0.tag = STRUCTURE_TYPE24753; t24258.s0.value.structure_type24753 = &t24259; /* x193555 */ t24258.s1.tag = NULL_TYPE; /* x193556 */ t24255.s1.tag = STRUCTURE_TYPE24753; t24255.s1.value.structure_type24753 = &t24258; /* x193557 */ t24254.s1.tag = STRUCTURE_TYPE24753; t24254.s1.value.structure_type24753 = &t24255; /* x193558 */ t24253.s1.tag = STRUCTURE_TYPE24753; t24253.s1.value.structure_type24753 = &t24254; /* x193559 */ t24252.s0.tag = STRUCTURE_TYPE24753; t24252.s0.value.structure_type24753 = &t24253; /* x193560 */ t24252.s1.tag = NULL_TYPE; /* x193561 */ t24249.s1.tag = STRUCTURE_TYPE24753; t24249.s1.value.structure_type24753 = &t24252; /* x193562 */ t24248.s1.tag = STRUCTURE_TYPE24753; t24248.s1.value.structure_type24753 = &t24249; /* x193563 */ t24247.s0.tag = STRUCTURE_TYPE24753; t24247.s0.value.structure_type24753 = &t24248; /* x193564 */ t24247.s1.tag = NULL_TYPE; /* x193565 */ t24239.s1.tag = STRUCTURE_TYPE24753; t24239.s1.value.structure_type24753 = &t24247; /* x193566 */ t24238.s1.tag = STRUCTURE_TYPE24753; t24238.s1.value.structure_type24753 = &t24239; /* x193567 */ t24237.s0.tag = STRUCTURE_TYPE24753; t24237.s0.value.structure_type24753 = &t24238; /* x193568 */ t24237.s1.tag = NULL_TYPE; /* x193569 */ t24227.s1.tag = STRUCTURE_TYPE24753; t24227.s1.value.structure_type24753 = &t24237; /* x193570 */ t24226.s1.tag = STRUCTURE_TYPE24753; t24226.s1.value.structure_type24753 = &t24227; /* x193571 */ t24225.s1.tag = STRUCTURE_TYPE24753; t24225.s1.value.structure_type24753 = &t24226; /* x193572 */ t24224.s0.tag = STRUCTURE_TYPE24753; t24224.s0.value.structure_type24753 = &t24225; /* x193573 */ t24224.s1.tag = NULL_TYPE; /* x193574 */ t24220.s1.tag = STRUCTURE_TYPE24753; t24220.s1.value.structure_type24753 = &t24224; /* x193575 */ t24219.s1.tag = STRUCTURE_TYPE24753; t24219.s1.value.structure_type24753 = &t24220; /* x193578 */ t24265.s0.tag = EXTERNAL_SYMBOL_TYPE; t24265.s0.value.external_symbol_type = q97; /* x193579 */ t24267.s0.tag = EXTERNAL_SYMBOL_TYPE; t24267.s0.value.external_symbol_type = q298; /* x193580 */ t24268.s0.tag = EXTERNAL_SYMBOL_TYPE; t24268.s0.value.external_symbol_type = q457; /* x193581 */ t24269.s0.tag = EXTERNAL_SYMBOL_TYPE; t24269.s0.value.external_symbol_type = q458; /* x193582 */ t24269.s1.tag = EXTERNAL_SYMBOL_TYPE; t24269.s1.value.external_symbol_type = q459; /* x193583 */ t24268.s1.tag = STRUCTURE_TYPE24753; t24268.s1.value.structure_type24753 = &t24269; /* x193584 */ t24267.s1.tag = STRUCTURE_TYPE24753; t24267.s1.value.structure_type24753 = &t24268; /* x193585 */ t24266.s0.tag = STRUCTURE_TYPE24753; t24266.s0.value.structure_type24753 = &t24267; /* x193586 */ t24271.s0.tag = EXTERNAL_SYMBOL_TYPE; t24271.s0.value.external_symbol_type = q242; /* x193587 */ t24272.s0.tag = EXTERNAL_SYMBOL_TYPE; t24272.s0.value.external_symbol_type = q289; /* x193588 */ t24275.s0.tag = EXTERNAL_SYMBOL_TYPE; t24275.s0.value.external_symbol_type = q457; /* x193589 */ t24276.s0.tag = EXTERNAL_SYMBOL_TYPE; t24276.s0.value.external_symbol_type = q457; /* x193590 */ t24276.s1.tag = NULL_TYPE; /* x193591 */ t24275.s1.tag = STRUCTURE_TYPE24753; t24275.s1.value.structure_type24753 = &t24276; /* x193592 */ t24274.s0.tag = STRUCTURE_TYPE24753; t24274.s0.value.structure_type24753 = &t24275; /* x193593 */ t24278.s0.tag = EXTERNAL_SYMBOL_TYPE; t24278.s0.value.external_symbol_type = q458; /* x193594 */ t24279.s0.tag = EXTERNAL_SYMBOL_TYPE; t24279.s0.value.external_symbol_type = q458; /* x193595 */ t24279.s1.tag = NULL_TYPE; /* x193596 */ t24278.s1.tag = STRUCTURE_TYPE24753; t24278.s1.value.structure_type24753 = &t24279; /* x193597 */ t24277.s0.tag = STRUCTURE_TYPE24753; t24277.s0.value.structure_type24753 = &t24278; /* x193598 */ t24281.s0.tag = EXTERNAL_SYMBOL_TYPE; t24281.s0.value.external_symbol_type = q459; /* x193599 */ t24282.s0.tag = EXTERNAL_SYMBOL_TYPE; t24282.s0.value.external_symbol_type = q459; /* x193600 */ t24282.s1.tag = NULL_TYPE; /* x193601 */ t24281.s1.tag = STRUCTURE_TYPE24753; t24281.s1.value.structure_type24753 = &t24282; /* x193602 */ t24280.s0.tag = STRUCTURE_TYPE24753; t24280.s0.value.structure_type24753 = &t24281; /* x193603 */ t24280.s1.tag = NULL_TYPE; /* x193604 */ t24277.s1.tag = STRUCTURE_TYPE24753; t24277.s1.value.structure_type24753 = &t24280; /* x193605 */ t24274.s1.tag = STRUCTURE_TYPE24753; t24274.s1.value.structure_type24753 = &t24277; /* x193606 */ t24273.s0.tag = STRUCTURE_TYPE24753; t24273.s0.value.structure_type24753 = &t24274; /* x193607 */ t24284.s0.tag = EXTERNAL_SYMBOL_TYPE; t24284.s0.value.external_symbol_type = q244; /* x193608 */ t24286.s0.tag = EXTERNAL_SYMBOL_TYPE; t24286.s0.value.external_symbol_type = q121; /* x193609 */ t24288.s0.tag = EXTERNAL_SYMBOL_TYPE; t24288.s0.value.external_symbol_type = q157; /* x193610 */ t24289.s0.tag = EXTERNAL_SYMBOL_TYPE; t24289.s0.value.external_symbol_type = q457; /* x193611 */ t24289.s1.tag = NULL_TYPE; /* x193612 */ t24288.s1.tag = STRUCTURE_TYPE24753; t24288.s1.value.structure_type24753 = &t24289; /* x193613 */ t24287.s0.tag = STRUCTURE_TYPE24753; t24287.s0.value.structure_type24753 = &t24288; /* x193614 */ t24291.s0.tag = EXTERNAL_SYMBOL_TYPE; t24291.s0.value.external_symbol_type = q157; /* x193615 */ t24292.s0.tag = EXTERNAL_SYMBOL_TYPE; t24292.s0.value.external_symbol_type = q458; /* x193616 */ t24292.s1.tag = NULL_TYPE; /* x193617 */ t24291.s1.tag = STRUCTURE_TYPE24753; t24291.s1.value.structure_type24753 = &t24292; /* x193618 */ t24290.s0.tag = STRUCTURE_TYPE24753; t24290.s0.value.structure_type24753 = &t24291; /* x193619 */ t24290.s1.tag = NULL_TYPE; /* x193620 */ t24287.s1.tag = STRUCTURE_TYPE24753; t24287.s1.value.structure_type24753 = &t24290; /* x193621 */ t24286.s1.tag = STRUCTURE_TYPE24753; t24286.s1.value.structure_type24753 = &t24287; /* x193622 */ t24285.s0.tag = STRUCTURE_TYPE24753; t24285.s0.value.structure_type24753 = &t24286; /* x193623 */ t24294.s0.tag = EXTERNAL_SYMBOL_TYPE; t24294.s0.value.external_symbol_type = q241; /* x193624 */ t24296.s0.tag = EXTERNAL_SYMBOL_TYPE; t24296.s0.value.external_symbol_type = q111; /* x193625 */ t24297.s0.tag = EXTERNAL_SYMBOL_TYPE; t24297.s0.value.external_symbol_type = q459; /* x193626 */ t24297.s1.tag = NULL_TYPE; /* x193627 */ t24296.s1.tag = STRUCTURE_TYPE24753; t24296.s1.value.structure_type24753 = &t24297; /* x193628 */ t24295.s0.tag = STRUCTURE_TYPE24753; t24295.s0.value.structure_type24753 = &t24296; /* x193629 */ t24299.s0.tag = EXTERNAL_SYMBOL_TYPE; t24299.s0.value.external_symbol_type = q289; /* x193630 */ t24300.s0.tag = EXTERNAL_SYMBOL_TYPE; t24300.s0.value.external_symbol_type = q458; /* x193631 */ t24302.s0.tag = EXTERNAL_SYMBOL_TYPE; t24302.s0.value.external_symbol_type = q107; /* x193632 */ t24303.s0.tag = EXTERNAL_SYMBOL_TYPE; t24303.s0.value.external_symbol_type = q459; /* x193633 */ t24303.s1.tag = NULL_TYPE; /* x193634 */ t24302.s1.tag = STRUCTURE_TYPE24753; t24302.s1.value.structure_type24753 = &t24303; /* x193635 */ t24301.s0.tag = STRUCTURE_TYPE24753; t24301.s0.value.structure_type24753 = &t24302; /* x193636 */ t24305.s0.tag = EXTERNAL_SYMBOL_TYPE; t24305.s0.value.external_symbol_type = q108; /* x193637 */ t24306.s0.tag = EXTERNAL_SYMBOL_TYPE; t24306.s0.value.external_symbol_type = q459; /* x193638 */ t24306.s1.tag = NULL_TYPE; /* x193639 */ t24305.s1.tag = STRUCTURE_TYPE24753; t24305.s1.value.structure_type24753 = &t24306; /* x193640 */ t24304.s0.tag = STRUCTURE_TYPE24753; t24304.s0.value.structure_type24753 = &t24305; /* x193641 */ t24304.s1.tag = NULL_TYPE; /* x193642 */ t24301.s1.tag = STRUCTURE_TYPE24753; t24301.s1.value.structure_type24753 = &t24304; /* x193643 */ t24300.s1.tag = STRUCTURE_TYPE24753; t24300.s1.value.structure_type24753 = &t24301; /* x193644 */ t24299.s1.tag = STRUCTURE_TYPE24753; t24299.s1.value.structure_type24753 = &t24300; /* x193645 */ t24298.s0.tag = STRUCTURE_TYPE24753; t24298.s0.value.structure_type24753 = &t24299; /* x193646 */ t24298.s1.tag = NULL_TYPE; /* x193647 */ t24295.s1.tag = STRUCTURE_TYPE24753; t24295.s1.value.structure_type24753 = &t24298; /* x193648 */ t24294.s1.tag = STRUCTURE_TYPE24753; t24294.s1.value.structure_type24753 = &t24295; /* x193649 */ t24293.s0.tag = STRUCTURE_TYPE24753; t24293.s0.value.structure_type24753 = &t24294; /* x193650 */ t24293.s1.tag = NULL_TYPE; /* x193651 */ t24285.s1.tag = STRUCTURE_TYPE24753; t24285.s1.value.structure_type24753 = &t24293; /* x193652 */ t24284.s1.tag = STRUCTURE_TYPE24753; t24284.s1.value.structure_type24753 = &t24285; /* x193653 */ t24283.s0.tag = STRUCTURE_TYPE24753; t24283.s0.value.structure_type24753 = &t24284; /* x193654 */ t24283.s1.tag = NULL_TYPE; /* x193655 */ t24273.s1.tag = STRUCTURE_TYPE24753; t24273.s1.value.structure_type24753 = &t24283; /* x193656 */ t24272.s1.tag = STRUCTURE_TYPE24753; t24272.s1.value.structure_type24753 = &t24273; /* x193657 */ t24271.s1.tag = STRUCTURE_TYPE24753; t24271.s1.value.structure_type24753 = &t24272; /* x193658 */ t24270.s0.tag = STRUCTURE_TYPE24753; t24270.s0.value.structure_type24753 = &t24271; /* x193659 */ t24270.s1.tag = NULL_TYPE; /* x193660 */ t24266.s1.tag = STRUCTURE_TYPE24753; t24266.s1.value.structure_type24753 = &t24270; /* x193661 */ t24265.s1.tag = STRUCTURE_TYPE24753; t24265.s1.value.structure_type24753 = &t24266; /* x193664 */ t24311.s0.tag = EXTERNAL_SYMBOL_TYPE; t24311.s0.value.external_symbol_type = q97; /* x193665 */ t24313.s0.tag = EXTERNAL_SYMBOL_TYPE; t24313.s0.value.external_symbol_type = q299; /* x193666 */ t24314.s0.tag = EXTERNAL_SYMBOL_TYPE; t24314.s0.value.external_symbol_type = q457; /* x193667 */ t24315.s0.tag = EXTERNAL_SYMBOL_TYPE; t24315.s0.value.external_symbol_type = q458; /* x193668 */ t24315.s1.tag = EXTERNAL_SYMBOL_TYPE; t24315.s1.value.external_symbol_type = q459; /* x193669 */ t24314.s1.tag = STRUCTURE_TYPE24753; t24314.s1.value.structure_type24753 = &t24315; /* x193670 */ t24313.s1.tag = STRUCTURE_TYPE24753; t24313.s1.value.structure_type24753 = &t24314; /* x193671 */ t24312.s0.tag = STRUCTURE_TYPE24753; t24312.s0.value.structure_type24753 = &t24313; /* x193672 */ t24317.s0.tag = EXTERNAL_SYMBOL_TYPE; t24317.s0.value.external_symbol_type = q242; /* x193673 */ t24318.s0.tag = EXTERNAL_SYMBOL_TYPE; t24318.s0.value.external_symbol_type = q289; /* x193674 */ t24321.s0.tag = EXTERNAL_SYMBOL_TYPE; t24321.s0.value.external_symbol_type = q457; /* x193675 */ t24322.s0.tag = EXTERNAL_SYMBOL_TYPE; t24322.s0.value.external_symbol_type = q457; /* x193676 */ t24322.s1.tag = NULL_TYPE; /* x193677 */ t24321.s1.tag = STRUCTURE_TYPE24753; t24321.s1.value.structure_type24753 = &t24322; /* x193678 */ t24320.s0.tag = STRUCTURE_TYPE24753; t24320.s0.value.structure_type24753 = &t24321; /* x193679 */ t24324.s0.tag = EXTERNAL_SYMBOL_TYPE; t24324.s0.value.external_symbol_type = q458; /* x193680 */ t24325.s0.tag = EXTERNAL_SYMBOL_TYPE; t24325.s0.value.external_symbol_type = q458; /* x193681 */ t24325.s1.tag = NULL_TYPE; /* x193682 */ t24324.s1.tag = STRUCTURE_TYPE24753; t24324.s1.value.structure_type24753 = &t24325; /* x193683 */ t24323.s0.tag = STRUCTURE_TYPE24753; t24323.s0.value.structure_type24753 = &t24324; /* x193684 */ t24327.s0.tag = EXTERNAL_SYMBOL_TYPE; t24327.s0.value.external_symbol_type = q459; /* x193685 */ t24328.s0.tag = EXTERNAL_SYMBOL_TYPE; t24328.s0.value.external_symbol_type = q459; /* x193686 */ t24328.s1.tag = NULL_TYPE; /* x193687 */ t24327.s1.tag = STRUCTURE_TYPE24753; t24327.s1.value.structure_type24753 = &t24328; /* x193688 */ t24326.s0.tag = STRUCTURE_TYPE24753; t24326.s0.value.structure_type24753 = &t24327; /* x193689 */ t24326.s1.tag = NULL_TYPE; /* x193690 */ t24323.s1.tag = STRUCTURE_TYPE24753; t24323.s1.value.structure_type24753 = &t24326; /* x193691 */ t24320.s1.tag = STRUCTURE_TYPE24753; t24320.s1.value.structure_type24753 = &t24323; /* x193692 */ t24319.s0.tag = STRUCTURE_TYPE24753; t24319.s0.value.structure_type24753 = &t24320; /* x193693 */ t24330.s0.tag = EXTERNAL_SYMBOL_TYPE; t24330.s0.value.external_symbol_type = q244; /* x193694 */ t24332.s0.tag = EXTERNAL_SYMBOL_TYPE; t24332.s0.value.external_symbol_type = q122; /* x193695 */ t24334.s0.tag = EXTERNAL_SYMBOL_TYPE; t24334.s0.value.external_symbol_type = q157; /* x193696 */ t24335.s0.tag = EXTERNAL_SYMBOL_TYPE; t24335.s0.value.external_symbol_type = q457; /* x193697 */ t24335.s1.tag = NULL_TYPE; /* x193698 */ t24334.s1.tag = STRUCTURE_TYPE24753; t24334.s1.value.structure_type24753 = &t24335; /* x193699 */ t24333.s0.tag = STRUCTURE_TYPE24753; t24333.s0.value.structure_type24753 = &t24334; /* x193700 */ t24337.s0.tag = EXTERNAL_SYMBOL_TYPE; t24337.s0.value.external_symbol_type = q157; /* x193701 */ t24338.s0.tag = EXTERNAL_SYMBOL_TYPE; t24338.s0.value.external_symbol_type = q458; /* x193702 */ t24338.s1.tag = NULL_TYPE; /* x193703 */ t24337.s1.tag = STRUCTURE_TYPE24753; t24337.s1.value.structure_type24753 = &t24338; /* x193704 */ t24336.s0.tag = STRUCTURE_TYPE24753; t24336.s0.value.structure_type24753 = &t24337; /* x193705 */ t24336.s1.tag = NULL_TYPE; /* x193706 */ t24333.s1.tag = STRUCTURE_TYPE24753; t24333.s1.value.structure_type24753 = &t24336; /* x193707 */ t24332.s1.tag = STRUCTURE_TYPE24753; t24332.s1.value.structure_type24753 = &t24333; /* x193708 */ t24331.s0.tag = STRUCTURE_TYPE24753; t24331.s0.value.structure_type24753 = &t24332; /* x193709 */ t24340.s0.tag = EXTERNAL_SYMBOL_TYPE; t24340.s0.value.external_symbol_type = q241; /* x193710 */ t24342.s0.tag = EXTERNAL_SYMBOL_TYPE; t24342.s0.value.external_symbol_type = q111; /* x193711 */ t24343.s0.tag = EXTERNAL_SYMBOL_TYPE; t24343.s0.value.external_symbol_type = q459; /* x193712 */ t24343.s1.tag = NULL_TYPE; /* x193713 */ t24342.s1.tag = STRUCTURE_TYPE24753; t24342.s1.value.structure_type24753 = &t24343; /* x193714 */ t24341.s0.tag = STRUCTURE_TYPE24753; t24341.s0.value.structure_type24753 = &t24342; /* x193715 */ t24345.s0.tag = EXTERNAL_SYMBOL_TYPE; t24345.s0.value.external_symbol_type = q289; /* x193716 */ t24346.s0.tag = EXTERNAL_SYMBOL_TYPE; t24346.s0.value.external_symbol_type = q458; /* x193717 */ t24348.s0.tag = EXTERNAL_SYMBOL_TYPE; t24348.s0.value.external_symbol_type = q107; /* x193718 */ t24349.s0.tag = EXTERNAL_SYMBOL_TYPE; t24349.s0.value.external_symbol_type = q459; /* x193719 */ t24349.s1.tag = NULL_TYPE; /* x193720 */ t24348.s1.tag = STRUCTURE_TYPE24753; t24348.s1.value.structure_type24753 = &t24349; /* x193721 */ t24347.s0.tag = STRUCTURE_TYPE24753; t24347.s0.value.structure_type24753 = &t24348; /* x193722 */ t24351.s0.tag = EXTERNAL_SYMBOL_TYPE; t24351.s0.value.external_symbol_type = q108; /* x193723 */ t24352.s0.tag = EXTERNAL_SYMBOL_TYPE; t24352.s0.value.external_symbol_type = q459; /* x193724 */ t24352.s1.tag = NULL_TYPE; /* x193725 */ t24351.s1.tag = STRUCTURE_TYPE24753; t24351.s1.value.structure_type24753 = &t24352; /* x193726 */ t24350.s0.tag = STRUCTURE_TYPE24753; t24350.s0.value.structure_type24753 = &t24351; /* x193727 */ t24350.s1.tag = NULL_TYPE; /* x193728 */ t24347.s1.tag = STRUCTURE_TYPE24753; t24347.s1.value.structure_type24753 = &t24350; /* x193729 */ t24346.s1.tag = STRUCTURE_TYPE24753; t24346.s1.value.structure_type24753 = &t24347; /* x193730 */ t24345.s1.tag = STRUCTURE_TYPE24753; t24345.s1.value.structure_type24753 = &t24346; /* x193731 */ t24344.s0.tag = STRUCTURE_TYPE24753; t24344.s0.value.structure_type24753 = &t24345; /* x193732 */ t24344.s1.tag = NULL_TYPE; /* x193733 */ t24341.s1.tag = STRUCTURE_TYPE24753; t24341.s1.value.structure_type24753 = &t24344; /* x193734 */ t24340.s1.tag = STRUCTURE_TYPE24753; t24340.s1.value.structure_type24753 = &t24341; /* x193735 */ t24339.s0.tag = STRUCTURE_TYPE24753; t24339.s0.value.structure_type24753 = &t24340; /* x193736 */ t24339.s1.tag = NULL_TYPE; /* x193737 */ t24331.s1.tag = STRUCTURE_TYPE24753; t24331.s1.value.structure_type24753 = &t24339; /* x193738 */ t24330.s1.tag = STRUCTURE_TYPE24753; t24330.s1.value.structure_type24753 = &t24331; /* x193739 */ t24329.s0.tag = STRUCTURE_TYPE24753; t24329.s0.value.structure_type24753 = &t24330; /* x193740 */ t24329.s1.tag = NULL_TYPE; /* x193741 */ t24319.s1.tag = STRUCTURE_TYPE24753; t24319.s1.value.structure_type24753 = &t24329; /* x193742 */ t24318.s1.tag = STRUCTURE_TYPE24753; t24318.s1.value.structure_type24753 = &t24319; /* x193743 */ t24317.s1.tag = STRUCTURE_TYPE24753; t24317.s1.value.structure_type24753 = &t24318; /* x193744 */ t24316.s0.tag = STRUCTURE_TYPE24753; t24316.s0.value.structure_type24753 = &t24317; /* x193745 */ t24316.s1.tag = NULL_TYPE; /* x193746 */ t24312.s1.tag = STRUCTURE_TYPE24753; t24312.s1.value.structure_type24753 = &t24316; /* x193747 */ t24311.s1.tag = STRUCTURE_TYPE24753; t24311.s1.value.structure_type24753 = &t24312; /* x193750 */ t24357.s0.tag = EXTERNAL_SYMBOL_TYPE; t24357.s0.value.external_symbol_type = q97; /* x193751 */ t24359.s0.tag = EXTERNAL_SYMBOL_TYPE; t24359.s0.value.external_symbol_type = q267; /* x193752 */ t24360.s0.tag = EXTERNAL_SYMBOL_TYPE; t24360.s0.value.external_symbol_type = q457; /* x193753 */ t24361.s0.tag = EXTERNAL_SYMBOL_TYPE; t24361.s0.value.external_symbol_type = q458; /* x193754 */ t24361.s1.tag = EXTERNAL_SYMBOL_TYPE; t24361.s1.value.external_symbol_type = q459; /* x193755 */ t24360.s1.tag = STRUCTURE_TYPE24753; t24360.s1.value.structure_type24753 = &t24361; /* x193756 */ t24359.s1.tag = STRUCTURE_TYPE24753; t24359.s1.value.structure_type24753 = &t24360; /* x193757 */ t24358.s0.tag = STRUCTURE_TYPE24753; t24358.s0.value.structure_type24753 = &t24359; /* x193758 */ t24363.s0.tag = EXTERNAL_SYMBOL_TYPE; t24363.s0.value.external_symbol_type = q242; /* x193759 */ t24364.s0.tag = EXTERNAL_SYMBOL_TYPE; t24364.s0.value.external_symbol_type = q289; /* x193760 */ t24367.s0.tag = EXTERNAL_SYMBOL_TYPE; t24367.s0.value.external_symbol_type = q457; /* x193761 */ t24368.s0.tag = EXTERNAL_SYMBOL_TYPE; t24368.s0.value.external_symbol_type = q457; /* x193762 */ t24368.s1.tag = NULL_TYPE; /* x193763 */ t24367.s1.tag = STRUCTURE_TYPE24753; t24367.s1.value.structure_type24753 = &t24368; /* x193764 */ t24366.s0.tag = STRUCTURE_TYPE24753; t24366.s0.value.structure_type24753 = &t24367; /* x193765 */ t24370.s0.tag = EXTERNAL_SYMBOL_TYPE; t24370.s0.value.external_symbol_type = q458; /* x193766 */ t24371.s0.tag = EXTERNAL_SYMBOL_TYPE; t24371.s0.value.external_symbol_type = q458; /* x193767 */ t24371.s1.tag = NULL_TYPE; /* x193768 */ t24370.s1.tag = STRUCTURE_TYPE24753; t24370.s1.value.structure_type24753 = &t24371; /* x193769 */ t24369.s0.tag = STRUCTURE_TYPE24753; t24369.s0.value.structure_type24753 = &t24370; /* x193770 */ t24373.s0.tag = EXTERNAL_SYMBOL_TYPE; t24373.s0.value.external_symbol_type = q459; /* x193771 */ t24374.s0.tag = EXTERNAL_SYMBOL_TYPE; t24374.s0.value.external_symbol_type = q459; /* x193772 */ t24374.s1.tag = NULL_TYPE; /* x193773 */ t24373.s1.tag = STRUCTURE_TYPE24753; t24373.s1.value.structure_type24753 = &t24374; /* x193774 */ t24372.s0.tag = STRUCTURE_TYPE24753; t24372.s0.value.structure_type24753 = &t24373; /* x193775 */ t24372.s1.tag = NULL_TYPE; /* x193776 */ t24369.s1.tag = STRUCTURE_TYPE24753; t24369.s1.value.structure_type24753 = &t24372; /* x193777 */ t24366.s1.tag = STRUCTURE_TYPE24753; t24366.s1.value.structure_type24753 = &t24369; /* x193778 */ t24365.s0.tag = STRUCTURE_TYPE24753; t24365.s0.value.structure_type24753 = &t24366; /* x193779 */ t24376.s0.tag = EXTERNAL_SYMBOL_TYPE; t24376.s0.value.external_symbol_type = q244; /* x193780 */ t24378.s0.tag = EXTERNAL_SYMBOL_TYPE; t24378.s0.value.external_symbol_type = q123; /* x193781 */ t24380.s0.tag = EXTERNAL_SYMBOL_TYPE; t24380.s0.value.external_symbol_type = q157; /* x193782 */ t24381.s0.tag = EXTERNAL_SYMBOL_TYPE; t24381.s0.value.external_symbol_type = q457; /* x193783 */ t24381.s1.tag = NULL_TYPE; /* x193784 */ t24380.s1.tag = STRUCTURE_TYPE24753; t24380.s1.value.structure_type24753 = &t24381; /* x193785 */ t24379.s0.tag = STRUCTURE_TYPE24753; t24379.s0.value.structure_type24753 = &t24380; /* x193786 */ t24383.s0.tag = EXTERNAL_SYMBOL_TYPE; t24383.s0.value.external_symbol_type = q157; /* x193787 */ t24384.s0.tag = EXTERNAL_SYMBOL_TYPE; t24384.s0.value.external_symbol_type = q458; /* x193788 */ t24384.s1.tag = NULL_TYPE; /* x193789 */ t24383.s1.tag = STRUCTURE_TYPE24753; t24383.s1.value.structure_type24753 = &t24384; /* x193790 */ t24382.s0.tag = STRUCTURE_TYPE24753; t24382.s0.value.structure_type24753 = &t24383; /* x193791 */ t24382.s1.tag = NULL_TYPE; /* x193792 */ t24379.s1.tag = STRUCTURE_TYPE24753; t24379.s1.value.structure_type24753 = &t24382; /* x193793 */ t24378.s1.tag = STRUCTURE_TYPE24753; t24378.s1.value.structure_type24753 = &t24379; /* x193794 */ t24377.s0.tag = STRUCTURE_TYPE24753; t24377.s0.value.structure_type24753 = &t24378; /* x193795 */ t24386.s0.tag = EXTERNAL_SYMBOL_TYPE; t24386.s0.value.external_symbol_type = q241; /* x193796 */ t24388.s0.tag = EXTERNAL_SYMBOL_TYPE; t24388.s0.value.external_symbol_type = q111; /* x193797 */ t24389.s0.tag = EXTERNAL_SYMBOL_TYPE; t24389.s0.value.external_symbol_type = q459; /* x193798 */ t24389.s1.tag = NULL_TYPE; /* x193799 */ t24388.s1.tag = STRUCTURE_TYPE24753; t24388.s1.value.structure_type24753 = &t24389; /* x193800 */ t24387.s0.tag = STRUCTURE_TYPE24753; t24387.s0.value.structure_type24753 = &t24388; /* x193801 */ t24391.s0.tag = EXTERNAL_SYMBOL_TYPE; t24391.s0.value.external_symbol_type = q289; /* x193802 */ t24392.s0.tag = EXTERNAL_SYMBOL_TYPE; t24392.s0.value.external_symbol_type = q458; /* x193803 */ t24394.s0.tag = EXTERNAL_SYMBOL_TYPE; t24394.s0.value.external_symbol_type = q107; /* x193804 */ t24395.s0.tag = EXTERNAL_SYMBOL_TYPE; t24395.s0.value.external_symbol_type = q459; /* x193805 */ t24395.s1.tag = NULL_TYPE; /* x193806 */ t24394.s1.tag = STRUCTURE_TYPE24753; t24394.s1.value.structure_type24753 = &t24395; /* x193807 */ t24393.s0.tag = STRUCTURE_TYPE24753; t24393.s0.value.structure_type24753 = &t24394; /* x193808 */ t24397.s0.tag = EXTERNAL_SYMBOL_TYPE; t24397.s0.value.external_symbol_type = q108; /* x193809 */ t24398.s0.tag = EXTERNAL_SYMBOL_TYPE; t24398.s0.value.external_symbol_type = q459; /* x193810 */ t24398.s1.tag = NULL_TYPE; /* x193811 */ t24397.s1.tag = STRUCTURE_TYPE24753; t24397.s1.value.structure_type24753 = &t24398; /* x193812 */ t24396.s0.tag = STRUCTURE_TYPE24753; t24396.s0.value.structure_type24753 = &t24397; /* x193813 */ t24396.s1.tag = NULL_TYPE; /* x193814 */ t24393.s1.tag = STRUCTURE_TYPE24753; t24393.s1.value.structure_type24753 = &t24396; /* x193815 */ t24392.s1.tag = STRUCTURE_TYPE24753; t24392.s1.value.structure_type24753 = &t24393; /* x193816 */ t24391.s1.tag = STRUCTURE_TYPE24753; t24391.s1.value.structure_type24753 = &t24392; /* x193817 */ t24390.s0.tag = STRUCTURE_TYPE24753; t24390.s0.value.structure_type24753 = &t24391; /* x193818 */ t24390.s1.tag = NULL_TYPE; /* x193819 */ t24387.s1.tag = STRUCTURE_TYPE24753; t24387.s1.value.structure_type24753 = &t24390; /* x193820 */ t24386.s1.tag = STRUCTURE_TYPE24753; t24386.s1.value.structure_type24753 = &t24387; /* x193821 */ t24385.s0.tag = STRUCTURE_TYPE24753; t24385.s0.value.structure_type24753 = &t24386; /* x193822 */ t24385.s1.tag = NULL_TYPE; /* x193823 */ t24377.s1.tag = STRUCTURE_TYPE24753; t24377.s1.value.structure_type24753 = &t24385; /* x193824 */ t24376.s1.tag = STRUCTURE_TYPE24753; t24376.s1.value.structure_type24753 = &t24377; /* x193825 */ t24375.s0.tag = STRUCTURE_TYPE24753; t24375.s0.value.structure_type24753 = &t24376; /* x193826 */ t24375.s1.tag = NULL_TYPE; /* x193827 */ t24365.s1.tag = STRUCTURE_TYPE24753; t24365.s1.value.structure_type24753 = &t24375; /* x193828 */ t24364.s1.tag = STRUCTURE_TYPE24753; t24364.s1.value.structure_type24753 = &t24365; /* x193829 */ t24363.s1.tag = STRUCTURE_TYPE24753; t24363.s1.value.structure_type24753 = &t24364; /* x193830 */ t24362.s0.tag = STRUCTURE_TYPE24753; t24362.s0.value.structure_type24753 = &t24363; /* x193831 */ t24362.s1.tag = NULL_TYPE; /* x193832 */ t24358.s1.tag = STRUCTURE_TYPE24753; t24358.s1.value.structure_type24753 = &t24362; /* x193833 */ t24357.s1.tag = STRUCTURE_TYPE24753; t24357.s1.value.structure_type24753 = &t24358; /* x193836 */ t24403.s0.tag = EXTERNAL_SYMBOL_TYPE; t24403.s0.value.external_symbol_type = q97; /* x193837 */ t24405.s0.tag = EXTERNAL_SYMBOL_TYPE; t24405.s0.value.external_symbol_type = q266; /* x193838 */ t24406.s0.tag = EXTERNAL_SYMBOL_TYPE; t24406.s0.value.external_symbol_type = q457; /* x193839 */ t24407.s0.tag = EXTERNAL_SYMBOL_TYPE; t24407.s0.value.external_symbol_type = q458; /* x193840 */ t24407.s1.tag = EXTERNAL_SYMBOL_TYPE; t24407.s1.value.external_symbol_type = q459; /* x193841 */ t24406.s1.tag = STRUCTURE_TYPE24753; t24406.s1.value.structure_type24753 = &t24407; /* x193842 */ t24405.s1.tag = STRUCTURE_TYPE24753; t24405.s1.value.structure_type24753 = &t24406; /* x193843 */ t24404.s0.tag = STRUCTURE_TYPE24753; t24404.s0.value.structure_type24753 = &t24405; /* x193844 */ t24409.s0.tag = EXTERNAL_SYMBOL_TYPE; t24409.s0.value.external_symbol_type = q242; /* x193845 */ t24410.s0.tag = EXTERNAL_SYMBOL_TYPE; t24410.s0.value.external_symbol_type = q289; /* x193846 */ t24413.s0.tag = EXTERNAL_SYMBOL_TYPE; t24413.s0.value.external_symbol_type = q457; /* x193847 */ t24414.s0.tag = EXTERNAL_SYMBOL_TYPE; t24414.s0.value.external_symbol_type = q457; /* x193848 */ t24414.s1.tag = NULL_TYPE; /* x193849 */ t24413.s1.tag = STRUCTURE_TYPE24753; t24413.s1.value.structure_type24753 = &t24414; /* x193850 */ t24412.s0.tag = STRUCTURE_TYPE24753; t24412.s0.value.structure_type24753 = &t24413; /* x193851 */ t24416.s0.tag = EXTERNAL_SYMBOL_TYPE; t24416.s0.value.external_symbol_type = q458; /* x193852 */ t24417.s0.tag = EXTERNAL_SYMBOL_TYPE; t24417.s0.value.external_symbol_type = q458; /* x193853 */ t24417.s1.tag = NULL_TYPE; /* x193854 */ t24416.s1.tag = STRUCTURE_TYPE24753; t24416.s1.value.structure_type24753 = &t24417; /* x193855 */ t24415.s0.tag = STRUCTURE_TYPE24753; t24415.s0.value.structure_type24753 = &t24416; /* x193856 */ t24419.s0.tag = EXTERNAL_SYMBOL_TYPE; t24419.s0.value.external_symbol_type = q459; /* x193857 */ t24420.s0.tag = EXTERNAL_SYMBOL_TYPE; t24420.s0.value.external_symbol_type = q459; /* x193858 */ t24420.s1.tag = NULL_TYPE; /* x193859 */ t24419.s1.tag = STRUCTURE_TYPE24753; t24419.s1.value.structure_type24753 = &t24420; /* x193860 */ t24418.s0.tag = STRUCTURE_TYPE24753; t24418.s0.value.structure_type24753 = &t24419; /* x193861 */ t24418.s1.tag = NULL_TYPE; /* x193862 */ t24415.s1.tag = STRUCTURE_TYPE24753; t24415.s1.value.structure_type24753 = &t24418; /* x193863 */ t24412.s1.tag = STRUCTURE_TYPE24753; t24412.s1.value.structure_type24753 = &t24415; /* x193864 */ t24411.s0.tag = STRUCTURE_TYPE24753; t24411.s0.value.structure_type24753 = &t24412; /* x193865 */ t24422.s0.tag = EXTERNAL_SYMBOL_TYPE; t24422.s0.value.external_symbol_type = q244; /* x193866 */ t24424.s0.tag = EXTERNAL_SYMBOL_TYPE; t24424.s0.value.external_symbol_type = q124; /* x193867 */ t24426.s0.tag = EXTERNAL_SYMBOL_TYPE; t24426.s0.value.external_symbol_type = q157; /* x193868 */ t24427.s0.tag = EXTERNAL_SYMBOL_TYPE; t24427.s0.value.external_symbol_type = q457; /* x193869 */ t24427.s1.tag = NULL_TYPE; /* x193870 */ t24426.s1.tag = STRUCTURE_TYPE24753; t24426.s1.value.structure_type24753 = &t24427; /* x193871 */ t24425.s0.tag = STRUCTURE_TYPE24753; t24425.s0.value.structure_type24753 = &t24426; /* x193872 */ t24429.s0.tag = EXTERNAL_SYMBOL_TYPE; t24429.s0.value.external_symbol_type = q157; /* x193873 */ t24430.s0.tag = EXTERNAL_SYMBOL_TYPE; t24430.s0.value.external_symbol_type = q458; /* x193874 */ t24430.s1.tag = NULL_TYPE; /* x193875 */ t24429.s1.tag = STRUCTURE_TYPE24753; t24429.s1.value.structure_type24753 = &t24430; /* x193876 */ t24428.s0.tag = STRUCTURE_TYPE24753; t24428.s0.value.structure_type24753 = &t24429; /* x193877 */ t24428.s1.tag = NULL_TYPE; /* x193878 */ t24425.s1.tag = STRUCTURE_TYPE24753; t24425.s1.value.structure_type24753 = &t24428; /* x193879 */ t24424.s1.tag = STRUCTURE_TYPE24753; t24424.s1.value.structure_type24753 = &t24425; /* x193880 */ t24423.s0.tag = STRUCTURE_TYPE24753; t24423.s0.value.structure_type24753 = &t24424; /* x193881 */ t24432.s0.tag = EXTERNAL_SYMBOL_TYPE; t24432.s0.value.external_symbol_type = q241; /* x193882 */ t24434.s0.tag = EXTERNAL_SYMBOL_TYPE; t24434.s0.value.external_symbol_type = q111; /* x193883 */ t24435.s0.tag = EXTERNAL_SYMBOL_TYPE; t24435.s0.value.external_symbol_type = q459; /* x193884 */ t24435.s1.tag = NULL_TYPE; /* x193885 */ t24434.s1.tag = STRUCTURE_TYPE24753; t24434.s1.value.structure_type24753 = &t24435; /* x193886 */ t24433.s0.tag = STRUCTURE_TYPE24753; t24433.s0.value.structure_type24753 = &t24434; /* x193887 */ t24437.s0.tag = EXTERNAL_SYMBOL_TYPE; t24437.s0.value.external_symbol_type = q289; /* x193888 */ t24438.s0.tag = EXTERNAL_SYMBOL_TYPE; t24438.s0.value.external_symbol_type = q458; /* x193889 */ t24440.s0.tag = EXTERNAL_SYMBOL_TYPE; t24440.s0.value.external_symbol_type = q107; /* x193890 */ t24441.s0.tag = EXTERNAL_SYMBOL_TYPE; t24441.s0.value.external_symbol_type = q459; /* x193891 */ t24441.s1.tag = NULL_TYPE; /* x193892 */ t24440.s1.tag = STRUCTURE_TYPE24753; t24440.s1.value.structure_type24753 = &t24441; /* x193893 */ t24439.s0.tag = STRUCTURE_TYPE24753; t24439.s0.value.structure_type24753 = &t24440; /* x193894 */ t24443.s0.tag = EXTERNAL_SYMBOL_TYPE; t24443.s0.value.external_symbol_type = q108; /* x193895 */ t24444.s0.tag = EXTERNAL_SYMBOL_TYPE; t24444.s0.value.external_symbol_type = q459; /* x193896 */ t24444.s1.tag = NULL_TYPE; /* x193897 */ t24443.s1.tag = STRUCTURE_TYPE24753; t24443.s1.value.structure_type24753 = &t24444; /* x193898 */ t24442.s0.tag = STRUCTURE_TYPE24753; t24442.s0.value.structure_type24753 = &t24443; /* x193899 */ t24442.s1.tag = NULL_TYPE; /* x193900 */ t24439.s1.tag = STRUCTURE_TYPE24753; t24439.s1.value.structure_type24753 = &t24442; /* x193901 */ t24438.s1.tag = STRUCTURE_TYPE24753; t24438.s1.value.structure_type24753 = &t24439; /* x193902 */ t24437.s1.tag = STRUCTURE_TYPE24753; t24437.s1.value.structure_type24753 = &t24438; /* x193903 */ t24436.s0.tag = STRUCTURE_TYPE24753; t24436.s0.value.structure_type24753 = &t24437; /* x193904 */ t24436.s1.tag = NULL_TYPE; /* x193905 */ t24433.s1.tag = STRUCTURE_TYPE24753; t24433.s1.value.structure_type24753 = &t24436; /* x193906 */ t24432.s1.tag = STRUCTURE_TYPE24753; t24432.s1.value.structure_type24753 = &t24433; /* x193907 */ t24431.s0.tag = STRUCTURE_TYPE24753; t24431.s0.value.structure_type24753 = &t24432; /* x193908 */ t24431.s1.tag = NULL_TYPE; /* x193909 */ t24423.s1.tag = STRUCTURE_TYPE24753; t24423.s1.value.structure_type24753 = &t24431; /* x193910 */ t24422.s1.tag = STRUCTURE_TYPE24753; t24422.s1.value.structure_type24753 = &t24423; /* x193911 */ t24421.s0.tag = STRUCTURE_TYPE24753; t24421.s0.value.structure_type24753 = &t24422; /* x193912 */ t24421.s1.tag = NULL_TYPE; /* x193913 */ t24411.s1.tag = STRUCTURE_TYPE24753; t24411.s1.value.structure_type24753 = &t24421; /* x193914 */ t24410.s1.tag = STRUCTURE_TYPE24753; t24410.s1.value.structure_type24753 = &t24411; /* x193915 */ t24409.s1.tag = STRUCTURE_TYPE24753; t24409.s1.value.structure_type24753 = &t24410; /* x193916 */ t24408.s0.tag = STRUCTURE_TYPE24753; t24408.s0.value.structure_type24753 = &t24409; /* x193917 */ t24408.s1.tag = NULL_TYPE; /* x193918 */ t24404.s1.tag = STRUCTURE_TYPE24753; t24404.s1.value.structure_type24753 = &t24408; /* x193919 */ t24403.s1.tag = STRUCTURE_TYPE24753; t24403.s1.value.structure_type24753 = &t24404; /* x193922 */ t24449.s0.tag = EXTERNAL_SYMBOL_TYPE; t24449.s0.value.external_symbol_type = q97; /* x193923 */ t24451.s0.tag = EXTERNAL_SYMBOL_TYPE; t24451.s0.value.external_symbol_type = q291; /* x193924 */ t24452.s0.tag = EXTERNAL_SYMBOL_TYPE; t24452.s0.value.external_symbol_type = q457; /* x193925 */ t24453.s0.tag = EXTERNAL_SYMBOL_TYPE; t24453.s0.value.external_symbol_type = q458; /* x193926 */ t24453.s1.tag = EXTERNAL_SYMBOL_TYPE; t24453.s1.value.external_symbol_type = q459; /* x193927 */ t24452.s1.tag = STRUCTURE_TYPE24753; t24452.s1.value.structure_type24753 = &t24453; /* x193928 */ t24451.s1.tag = STRUCTURE_TYPE24753; t24451.s1.value.structure_type24753 = &t24452; /* x193929 */ t24450.s0.tag = STRUCTURE_TYPE24753; t24450.s0.value.structure_type24753 = &t24451; /* x193930 */ t24455.s0.tag = EXTERNAL_SYMBOL_TYPE; t24455.s0.value.external_symbol_type = q242; /* x193931 */ t24456.s0.tag = EXTERNAL_SYMBOL_TYPE; t24456.s0.value.external_symbol_type = q289; /* x193932 */ t24459.s0.tag = EXTERNAL_SYMBOL_TYPE; t24459.s0.value.external_symbol_type = q457; /* x193933 */ t24461.s0.tag = EXTERNAL_SYMBOL_TYPE; t24461.s0.value.external_symbol_type = q285; /* x193934 */ t24462.s0.tag = EXTERNAL_SYMBOL_TYPE; t24462.s0.value.external_symbol_type = q457; /* x193935 */ t24462.s1.tag = NULL_TYPE; /* x193936 */ t24461.s1.tag = STRUCTURE_TYPE24753; t24461.s1.value.structure_type24753 = &t24462; /* x193937 */ t24460.s0.tag = STRUCTURE_TYPE24753; t24460.s0.value.structure_type24753 = &t24461; /* x193938 */ t24460.s1.tag = NULL_TYPE; /* x193939 */ t24459.s1.tag = STRUCTURE_TYPE24753; t24459.s1.value.structure_type24753 = &t24460; /* x193940 */ t24458.s0.tag = STRUCTURE_TYPE24753; t24458.s0.value.structure_type24753 = &t24459; /* x193941 */ t24464.s0.tag = EXTERNAL_SYMBOL_TYPE; t24464.s0.value.external_symbol_type = q458; /* x193942 */ t24466.s0.tag = EXTERNAL_SYMBOL_TYPE; t24466.s0.value.external_symbol_type = q285; /* x193943 */ t24467.s0.tag = EXTERNAL_SYMBOL_TYPE; t24467.s0.value.external_symbol_type = q458; /* x193944 */ t24467.s1.tag = NULL_TYPE; /* x193945 */ t24466.s1.tag = STRUCTURE_TYPE24753; t24466.s1.value.structure_type24753 = &t24467; /* x193946 */ t24465.s0.tag = STRUCTURE_TYPE24753; t24465.s0.value.structure_type24753 = &t24466; /* x193947 */ t24465.s1.tag = NULL_TYPE; /* x193948 */ t24464.s1.tag = STRUCTURE_TYPE24753; t24464.s1.value.structure_type24753 = &t24465; /* x193949 */ t24463.s0.tag = STRUCTURE_TYPE24753; t24463.s0.value.structure_type24753 = &t24464; /* x193950 */ t24469.s0.tag = EXTERNAL_SYMBOL_TYPE; t24469.s0.value.external_symbol_type = q459; /* x193951 */ t24470.s0.tag = EXTERNAL_SYMBOL_TYPE; t24470.s0.value.external_symbol_type = q459; /* x193952 */ t24470.s1.tag = NULL_TYPE; /* x193953 */ t24469.s1.tag = STRUCTURE_TYPE24753; t24469.s1.value.structure_type24753 = &t24470; /* x193954 */ t24468.s0.tag = STRUCTURE_TYPE24753; t24468.s0.value.structure_type24753 = &t24469; /* x193955 */ t24468.s1.tag = NULL_TYPE; /* x193956 */ t24463.s1.tag = STRUCTURE_TYPE24753; t24463.s1.value.structure_type24753 = &t24468; /* x193957 */ t24458.s1.tag = STRUCTURE_TYPE24753; t24458.s1.value.structure_type24753 = &t24463; /* x193958 */ t24457.s0.tag = STRUCTURE_TYPE24753; t24457.s0.value.structure_type24753 = &t24458; /* x193959 */ t24472.s0.tag = EXTERNAL_SYMBOL_TYPE; t24472.s0.value.external_symbol_type = q244; /* x193960 */ t24474.s0.tag = EXTERNAL_SYMBOL_TYPE; t24474.s0.value.external_symbol_type = q120; /* x193961 */ t24476.s0.tag = EXTERNAL_SYMBOL_TYPE; t24476.s0.value.external_symbol_type = q157; /* x193962 */ t24477.s0.tag = EXTERNAL_SYMBOL_TYPE; t24477.s0.value.external_symbol_type = q457; /* x193963 */ t24477.s1.tag = NULL_TYPE; /* x193964 */ t24476.s1.tag = STRUCTURE_TYPE24753; t24476.s1.value.structure_type24753 = &t24477; /* x193965 */ t24475.s0.tag = STRUCTURE_TYPE24753; t24475.s0.value.structure_type24753 = &t24476; /* x193966 */ t24479.s0.tag = EXTERNAL_SYMBOL_TYPE; t24479.s0.value.external_symbol_type = q157; /* x193967 */ t24480.s0.tag = EXTERNAL_SYMBOL_TYPE; t24480.s0.value.external_symbol_type = q458; /* x193968 */ t24480.s1.tag = NULL_TYPE; /* x193969 */ t24479.s1.tag = STRUCTURE_TYPE24753; t24479.s1.value.structure_type24753 = &t24480; /* x193970 */ t24478.s0.tag = STRUCTURE_TYPE24753; t24478.s0.value.structure_type24753 = &t24479; /* x193971 */ t24478.s1.tag = NULL_TYPE; /* x193972 */ t24475.s1.tag = STRUCTURE_TYPE24753; t24475.s1.value.structure_type24753 = &t24478; /* x193973 */ t24474.s1.tag = STRUCTURE_TYPE24753; t24474.s1.value.structure_type24753 = &t24475; /* x193974 */ t24473.s0.tag = STRUCTURE_TYPE24753; t24473.s0.value.structure_type24753 = &t24474; /* x193975 */ t24482.s0.tag = EXTERNAL_SYMBOL_TYPE; t24482.s0.value.external_symbol_type = q241; /* x193976 */ t24484.s0.tag = EXTERNAL_SYMBOL_TYPE; t24484.s0.value.external_symbol_type = q111; /* x193977 */ t24485.s0.tag = EXTERNAL_SYMBOL_TYPE; t24485.s0.value.external_symbol_type = q459; /* x193978 */ t24485.s1.tag = NULL_TYPE; /* x193979 */ t24484.s1.tag = STRUCTURE_TYPE24753; t24484.s1.value.structure_type24753 = &t24485; /* x193980 */ t24483.s0.tag = STRUCTURE_TYPE24753; t24483.s0.value.structure_type24753 = &t24484; /* x193981 */ t24487.s0.tag = EXTERNAL_SYMBOL_TYPE; t24487.s0.value.external_symbol_type = q289; /* x193982 */ t24488.s0.tag = EXTERNAL_SYMBOL_TYPE; t24488.s0.value.external_symbol_type = q458; /* x193983 */ t24490.s0.tag = EXTERNAL_SYMBOL_TYPE; t24490.s0.value.external_symbol_type = q285; /* x193984 */ t24492.s0.tag = EXTERNAL_SYMBOL_TYPE; t24492.s0.value.external_symbol_type = q107; /* x193985 */ t24493.s0.tag = EXTERNAL_SYMBOL_TYPE; t24493.s0.value.external_symbol_type = q459; /* x193986 */ t24493.s1.tag = NULL_TYPE; /* x193987 */ t24492.s1.tag = STRUCTURE_TYPE24753; t24492.s1.value.structure_type24753 = &t24493; /* x193988 */ t24491.s0.tag = STRUCTURE_TYPE24753; t24491.s0.value.structure_type24753 = &t24492; /* x193989 */ t24491.s1.tag = NULL_TYPE; /* x193990 */ t24490.s1.tag = STRUCTURE_TYPE24753;} void initialize_constants17(void) {t24490.s1.value.structure_type24753 = &t24491; /* x193991 */ t24489.s0.tag = STRUCTURE_TYPE24753; t24489.s0.value.structure_type24753 = &t24490; /* x193992 */ t24495.s0.tag = EXTERNAL_SYMBOL_TYPE; t24495.s0.value.external_symbol_type = q108; /* x193993 */ t24496.s0.tag = EXTERNAL_SYMBOL_TYPE; t24496.s0.value.external_symbol_type = q459; /* x193994 */ t24496.s1.tag = NULL_TYPE; /* x193995 */ t24495.s1.tag = STRUCTURE_TYPE24753; t24495.s1.value.structure_type24753 = &t24496; /* x193996 */ t24494.s0.tag = STRUCTURE_TYPE24753; t24494.s0.value.structure_type24753 = &t24495; /* x193997 */ t24494.s1.tag = NULL_TYPE; /* x193998 */ t24489.s1.tag = STRUCTURE_TYPE24753; t24489.s1.value.structure_type24753 = &t24494; /* x193999 */ t24488.s1.tag = STRUCTURE_TYPE24753; t24488.s1.value.structure_type24753 = &t24489; /* x194000 */ t24487.s1.tag = STRUCTURE_TYPE24753; t24487.s1.value.structure_type24753 = &t24488; /* x194001 */ t24486.s0.tag = STRUCTURE_TYPE24753; t24486.s0.value.structure_type24753 = &t24487; /* x194002 */ t24486.s1.tag = NULL_TYPE; /* x194003 */ t24483.s1.tag = STRUCTURE_TYPE24753; t24483.s1.value.structure_type24753 = &t24486; /* x194004 */ t24482.s1.tag = STRUCTURE_TYPE24753; t24482.s1.value.structure_type24753 = &t24483; /* x194005 */ t24481.s0.tag = STRUCTURE_TYPE24753; t24481.s0.value.structure_type24753 = &t24482; /* x194006 */ t24481.s1.tag = NULL_TYPE; /* x194007 */ t24473.s1.tag = STRUCTURE_TYPE24753; t24473.s1.value.structure_type24753 = &t24481; /* x194008 */ t24472.s1.tag = STRUCTURE_TYPE24753; t24472.s1.value.structure_type24753 = &t24473; /* x194009 */ t24471.s0.tag = STRUCTURE_TYPE24753; t24471.s0.value.structure_type24753 = &t24472; /* x194010 */ t24471.s1.tag = NULL_TYPE; /* x194011 */ t24457.s1.tag = STRUCTURE_TYPE24753; t24457.s1.value.structure_type24753 = &t24471; /* x194012 */ t24456.s1.tag = STRUCTURE_TYPE24753; t24456.s1.value.structure_type24753 = &t24457; /* x194013 */ t24455.s1.tag = STRUCTURE_TYPE24753; t24455.s1.value.structure_type24753 = &t24456; /* x194014 */ t24454.s0.tag = STRUCTURE_TYPE24753; t24454.s0.value.structure_type24753 = &t24455; /* x194015 */ t24454.s1.tag = NULL_TYPE; /* x194016 */ t24450.s1.tag = STRUCTURE_TYPE24753; t24450.s1.value.structure_type24753 = &t24454; /* x194017 */ t24449.s1.tag = STRUCTURE_TYPE24753; t24449.s1.value.structure_type24753 = &t24450; /* x194020 */ t24501.s0.tag = EXTERNAL_SYMBOL_TYPE; t24501.s0.value.external_symbol_type = q97; /* x194021 */ t24503.s0.tag = EXTERNAL_SYMBOL_TYPE; t24503.s0.value.external_symbol_type = q460; /* x194022 */ t24504.s0.tag = EXTERNAL_SYMBOL_TYPE; t24504.s0.value.external_symbol_type = q457; /* x194023 */ t24505.s0.tag = EXTERNAL_SYMBOL_TYPE; t24505.s0.value.external_symbol_type = q458; /* x194024 */ t24505.s1.tag = EXTERNAL_SYMBOL_TYPE; t24505.s1.value.external_symbol_type = q459; /* x194025 */ t24504.s1.tag = STRUCTURE_TYPE24753; t24504.s1.value.structure_type24753 = &t24505; /* x194026 */ t24503.s1.tag = STRUCTURE_TYPE24753; t24503.s1.value.structure_type24753 = &t24504; /* x194027 */ t24502.s0.tag = STRUCTURE_TYPE24753; t24502.s0.value.structure_type24753 = &t24503; /* x194028 */ t24507.s0.tag = EXTERNAL_SYMBOL_TYPE; t24507.s0.value.external_symbol_type = q242; /* x194029 */ t24508.s0.tag = EXTERNAL_SYMBOL_TYPE; t24508.s0.value.external_symbol_type = q289; /* x194030 */ t24511.s0.tag = EXTERNAL_SYMBOL_TYPE; t24511.s0.value.external_symbol_type = q457; /* x194031 */ t24513.s0.tag = EXTERNAL_SYMBOL_TYPE; t24513.s0.value.external_symbol_type = q285; /* x194032 */ t24514.s0.tag = EXTERNAL_SYMBOL_TYPE; t24514.s0.value.external_symbol_type = q457; /* x194033 */ t24514.s1.tag = NULL_TYPE; /* x194034 */ t24513.s1.tag = STRUCTURE_TYPE24753; t24513.s1.value.structure_type24753 = &t24514; /* x194035 */ t24512.s0.tag = STRUCTURE_TYPE24753; t24512.s0.value.structure_type24753 = &t24513; /* x194036 */ t24512.s1.tag = NULL_TYPE; /* x194037 */ t24511.s1.tag = STRUCTURE_TYPE24753; t24511.s1.value.structure_type24753 = &t24512; /* x194038 */ t24510.s0.tag = STRUCTURE_TYPE24753; t24510.s0.value.structure_type24753 = &t24511; /* x194039 */ t24516.s0.tag = EXTERNAL_SYMBOL_TYPE; t24516.s0.value.external_symbol_type = q458; /* x194040 */ t24518.s0.tag = EXTERNAL_SYMBOL_TYPE; t24518.s0.value.external_symbol_type = q285; /* x194041 */ t24519.s0.tag = EXTERNAL_SYMBOL_TYPE; t24519.s0.value.external_symbol_type = q458; /* x194042 */ t24519.s1.tag = NULL_TYPE; /* x194043 */ t24518.s1.tag = STRUCTURE_TYPE24753; t24518.s1.value.structure_type24753 = &t24519; /* x194044 */ t24517.s0.tag = STRUCTURE_TYPE24753; t24517.s0.value.structure_type24753 = &t24518; /* x194045 */ t24517.s1.tag = NULL_TYPE; /* x194046 */ t24516.s1.tag = STRUCTURE_TYPE24753; t24516.s1.value.structure_type24753 = &t24517; /* x194047 */ t24515.s0.tag = STRUCTURE_TYPE24753; t24515.s0.value.structure_type24753 = &t24516; /* x194048 */ t24521.s0.tag = EXTERNAL_SYMBOL_TYPE; t24521.s0.value.external_symbol_type = q459; /* x194049 */ t24522.s0.tag = EXTERNAL_SYMBOL_TYPE; t24522.s0.value.external_symbol_type = q459; /* x194050 */ t24522.s1.tag = NULL_TYPE; /* x194051 */ t24521.s1.tag = STRUCTURE_TYPE24753; t24521.s1.value.structure_type24753 = &t24522; /* x194052 */ t24520.s0.tag = STRUCTURE_TYPE24753; t24520.s0.value.structure_type24753 = &t24521; /* x194053 */ t24520.s1.tag = NULL_TYPE; /* x194054 */ t24515.s1.tag = STRUCTURE_TYPE24753; t24515.s1.value.structure_type24753 = &t24520; /* x194055 */ t24510.s1.tag = STRUCTURE_TYPE24753; t24510.s1.value.structure_type24753 = &t24515; /* x194056 */ t24509.s0.tag = STRUCTURE_TYPE24753; t24509.s0.value.structure_type24753 = &t24510; /* x194057 */ t24524.s0.tag = EXTERNAL_SYMBOL_TYPE; t24524.s0.value.external_symbol_type = q244; /* x194058 */ t24526.s0.tag = EXTERNAL_SYMBOL_TYPE; t24526.s0.value.external_symbol_type = q121; /* x194059 */ t24528.s0.tag = EXTERNAL_SYMBOL_TYPE; t24528.s0.value.external_symbol_type = q157; /* x194060 */ t24529.s0.tag = EXTERNAL_SYMBOL_TYPE; t24529.s0.value.external_symbol_type = q457; /* x194061 */ t24529.s1.tag = NULL_TYPE; /* x194062 */ t24528.s1.tag = STRUCTURE_TYPE24753; t24528.s1.value.structure_type24753 = &t24529; /* x194063 */ t24527.s0.tag = STRUCTURE_TYPE24753; t24527.s0.value.structure_type24753 = &t24528; /* x194064 */ t24531.s0.tag = EXTERNAL_SYMBOL_TYPE; t24531.s0.value.external_symbol_type = q157; /* x194065 */ t24532.s0.tag = EXTERNAL_SYMBOL_TYPE; t24532.s0.value.external_symbol_type = q458; /* x194066 */ t24532.s1.tag = NULL_TYPE; /* x194067 */ t24531.s1.tag = STRUCTURE_TYPE24753; t24531.s1.value.structure_type24753 = &t24532; /* x194068 */ t24530.s0.tag = STRUCTURE_TYPE24753; t24530.s0.value.structure_type24753 = &t24531; /* x194069 */ t24530.s1.tag = NULL_TYPE; /* x194070 */ t24527.s1.tag = STRUCTURE_TYPE24753; t24527.s1.value.structure_type24753 = &t24530; /* x194071 */ t24526.s1.tag = STRUCTURE_TYPE24753; t24526.s1.value.structure_type24753 = &t24527; /* x194072 */ t24525.s0.tag = STRUCTURE_TYPE24753; t24525.s0.value.structure_type24753 = &t24526; /* x194073 */ t24534.s0.tag = EXTERNAL_SYMBOL_TYPE; t24534.s0.value.external_symbol_type = q241; /* x194074 */ t24536.s0.tag = EXTERNAL_SYMBOL_TYPE; t24536.s0.value.external_symbol_type = q111; /* x194075 */ t24537.s0.tag = EXTERNAL_SYMBOL_TYPE; t24537.s0.value.external_symbol_type = q459; /* x194076 */ t24537.s1.tag = NULL_TYPE; /* x194077 */ t24536.s1.tag = STRUCTURE_TYPE24753; t24536.s1.value.structure_type24753 = &t24537; /* x194078 */ t24535.s0.tag = STRUCTURE_TYPE24753; t24535.s0.value.structure_type24753 = &t24536; /* x194079 */ t24539.s0.tag = EXTERNAL_SYMBOL_TYPE; t24539.s0.value.external_symbol_type = q289; /* x194080 */ t24540.s0.tag = EXTERNAL_SYMBOL_TYPE; t24540.s0.value.external_symbol_type = q458; /* x194081 */ t24542.s0.tag = EXTERNAL_SYMBOL_TYPE; t24542.s0.value.external_symbol_type = q285; /* x194082 */ t24544.s0.tag = EXTERNAL_SYMBOL_TYPE; t24544.s0.value.external_symbol_type = q107; /* x194083 */ t24545.s0.tag = EXTERNAL_SYMBOL_TYPE; t24545.s0.value.external_symbol_type = q459; /* x194084 */ t24545.s1.tag = NULL_TYPE; /* x194085 */ t24544.s1.tag = STRUCTURE_TYPE24753; t24544.s1.value.structure_type24753 = &t24545; /* x194086 */ t24543.s0.tag = STRUCTURE_TYPE24753; t24543.s0.value.structure_type24753 = &t24544; /* x194087 */ t24543.s1.tag = NULL_TYPE; /* x194088 */ t24542.s1.tag = STRUCTURE_TYPE24753; t24542.s1.value.structure_type24753 = &t24543; /* x194089 */ t24541.s0.tag = STRUCTURE_TYPE24753; t24541.s0.value.structure_type24753 = &t24542; /* x194090 */ t24547.s0.tag = EXTERNAL_SYMBOL_TYPE; t24547.s0.value.external_symbol_type = q108; /* x194091 */ t24548.s0.tag = EXTERNAL_SYMBOL_TYPE; t24548.s0.value.external_symbol_type = q459; /* x194092 */ t24548.s1.tag = NULL_TYPE; /* x194093 */ t24547.s1.tag = STRUCTURE_TYPE24753; t24547.s1.value.structure_type24753 = &t24548; /* x194094 */ t24546.s0.tag = STRUCTURE_TYPE24753; t24546.s0.value.structure_type24753 = &t24547; /* x194095 */ t24546.s1.tag = NULL_TYPE; /* x194096 */ t24541.s1.tag = STRUCTURE_TYPE24753; t24541.s1.value.structure_type24753 = &t24546; /* x194097 */ t24540.s1.tag = STRUCTURE_TYPE24753; t24540.s1.value.structure_type24753 = &t24541; /* x194098 */ t24539.s1.tag = STRUCTURE_TYPE24753; t24539.s1.value.structure_type24753 = &t24540; /* x194099 */ t24538.s0.tag = STRUCTURE_TYPE24753; t24538.s0.value.structure_type24753 = &t24539; /* x194100 */ t24538.s1.tag = NULL_TYPE; /* x194101 */ t24535.s1.tag = STRUCTURE_TYPE24753; t24535.s1.value.structure_type24753 = &t24538; /* x194102 */ t24534.s1.tag = STRUCTURE_TYPE24753; t24534.s1.value.structure_type24753 = &t24535; /* x194103 */ t24533.s0.tag = STRUCTURE_TYPE24753; t24533.s0.value.structure_type24753 = &t24534; /* x194104 */ t24533.s1.tag = NULL_TYPE; /* x194105 */ t24525.s1.tag = STRUCTURE_TYPE24753; t24525.s1.value.structure_type24753 = &t24533; /* x194106 */ t24524.s1.tag = STRUCTURE_TYPE24753; t24524.s1.value.structure_type24753 = &t24525; /* x194107 */ t24523.s0.tag = STRUCTURE_TYPE24753; t24523.s0.value.structure_type24753 = &t24524; /* x194108 */ t24523.s1.tag = NULL_TYPE; /* x194109 */ t24509.s1.tag = STRUCTURE_TYPE24753; t24509.s1.value.structure_type24753 = &t24523; /* x194110 */ t24508.s1.tag = STRUCTURE_TYPE24753; t24508.s1.value.structure_type24753 = &t24509; /* x194111 */ t24507.s1.tag = STRUCTURE_TYPE24753; t24507.s1.value.structure_type24753 = &t24508; /* x194112 */ t24506.s0.tag = STRUCTURE_TYPE24753; t24506.s0.value.structure_type24753 = &t24507; /* x194113 */ t24506.s1.tag = NULL_TYPE; /* x194114 */ t24502.s1.tag = STRUCTURE_TYPE24753; t24502.s1.value.structure_type24753 = &t24506; /* x194115 */ t24501.s1.tag = STRUCTURE_TYPE24753; t24501.s1.value.structure_type24753 = &t24502; /* x194118 */ t24553.s0.tag = EXTERNAL_SYMBOL_TYPE; t24553.s0.value.external_symbol_type = q97; /* x194119 */ t24555.s0.tag = EXTERNAL_SYMBOL_TYPE; t24555.s0.value.external_symbol_type = q461; /* x194120 */ t24556.s0.tag = EXTERNAL_SYMBOL_TYPE; t24556.s0.value.external_symbol_type = q457; /* x194121 */ t24557.s0.tag = EXTERNAL_SYMBOL_TYPE; t24557.s0.value.external_symbol_type = q458; /* x194122 */ t24557.s1.tag = EXTERNAL_SYMBOL_TYPE; t24557.s1.value.external_symbol_type = q459; /* x194123 */ t24556.s1.tag = STRUCTURE_TYPE24753; t24556.s1.value.structure_type24753 = &t24557; /* x194124 */ t24555.s1.tag = STRUCTURE_TYPE24753; t24555.s1.value.structure_type24753 = &t24556; /* x194125 */ t24554.s0.tag = STRUCTURE_TYPE24753; t24554.s0.value.structure_type24753 = &t24555; /* x194126 */ t24559.s0.tag = EXTERNAL_SYMBOL_TYPE; t24559.s0.value.external_symbol_type = q242; /* x194127 */ t24560.s0.tag = EXTERNAL_SYMBOL_TYPE; t24560.s0.value.external_symbol_type = q289; /* x194128 */ t24563.s0.tag = EXTERNAL_SYMBOL_TYPE; t24563.s0.value.external_symbol_type = q457; /* x194129 */ t24565.s0.tag = EXTERNAL_SYMBOL_TYPE; t24565.s0.value.external_symbol_type = q285; /* x194130 */ t24566.s0.tag = EXTERNAL_SYMBOL_TYPE; t24566.s0.value.external_symbol_type = q457; /* x194131 */ t24566.s1.tag = NULL_TYPE; /* x194132 */ t24565.s1.tag = STRUCTURE_TYPE24753; t24565.s1.value.structure_type24753 = &t24566; /* x194133 */ t24564.s0.tag = STRUCTURE_TYPE24753; t24564.s0.value.structure_type24753 = &t24565; /* x194134 */ t24564.s1.tag = NULL_TYPE; /* x194135 */ t24563.s1.tag = STRUCTURE_TYPE24753; t24563.s1.value.structure_type24753 = &t24564; /* x194136 */ t24562.s0.tag = STRUCTURE_TYPE24753; t24562.s0.value.structure_type24753 = &t24563; /* x194137 */ t24568.s0.tag = EXTERNAL_SYMBOL_TYPE; t24568.s0.value.external_symbol_type = q458; /* x194138 */ t24570.s0.tag = EXTERNAL_SYMBOL_TYPE; t24570.s0.value.external_symbol_type = q285; /* x194139 */ t24571.s0.tag = EXTERNAL_SYMBOL_TYPE; t24571.s0.value.external_symbol_type = q458; /* x194140 */ t24571.s1.tag = NULL_TYPE; /* x194141 */ t24570.s1.tag = STRUCTURE_TYPE24753; t24570.s1.value.structure_type24753 = &t24571; /* x194142 */ t24569.s0.tag = STRUCTURE_TYPE24753; t24569.s0.value.structure_type24753 = &t24570; /* x194143 */ t24569.s1.tag = NULL_TYPE; /* x194144 */ t24568.s1.tag = STRUCTURE_TYPE24753; t24568.s1.value.structure_type24753 = &t24569; /* x194145 */ t24567.s0.tag = STRUCTURE_TYPE24753; t24567.s0.value.structure_type24753 = &t24568; /* x194146 */ t24573.s0.tag = EXTERNAL_SYMBOL_TYPE; t24573.s0.value.external_symbol_type = q459; /* x194147 */ t24574.s0.tag = EXTERNAL_SYMBOL_TYPE; t24574.s0.value.external_symbol_type = q459; /* x194148 */ t24574.s1.tag = NULL_TYPE; /* x194149 */ t24573.s1.tag = STRUCTURE_TYPE24753; t24573.s1.value.structure_type24753 = &t24574; /* x194150 */ t24572.s0.tag = STRUCTURE_TYPE24753; t24572.s0.value.structure_type24753 = &t24573; /* x194151 */ t24572.s1.tag = NULL_TYPE; /* x194152 */ t24567.s1.tag = STRUCTURE_TYPE24753; t24567.s1.value.structure_type24753 = &t24572; /* x194153 */ t24562.s1.tag = STRUCTURE_TYPE24753; t24562.s1.value.structure_type24753 = &t24567; /* x194154 */ t24561.s0.tag = STRUCTURE_TYPE24753; t24561.s0.value.structure_type24753 = &t24562; /* x194155 */ t24576.s0.tag = EXTERNAL_SYMBOL_TYPE; t24576.s0.value.external_symbol_type = q244; /* x194156 */ t24578.s0.tag = EXTERNAL_SYMBOL_TYPE; t24578.s0.value.external_symbol_type = q122; /* x194157 */ t24580.s0.tag = EXTERNAL_SYMBOL_TYPE; t24580.s0.value.external_symbol_type = q157; /* x194158 */ t24581.s0.tag = EXTERNAL_SYMBOL_TYPE; t24581.s0.value.external_symbol_type = q457; /* x194159 */ t24581.s1.tag = NULL_TYPE; /* x194160 */ t24580.s1.tag = STRUCTURE_TYPE24753; t24580.s1.value.structure_type24753 = &t24581; /* x194161 */ t24579.s0.tag = STRUCTURE_TYPE24753; t24579.s0.value.structure_type24753 = &t24580; /* x194162 */ t24583.s0.tag = EXTERNAL_SYMBOL_TYPE; t24583.s0.value.external_symbol_type = q157; /* x194163 */ t24584.s0.tag = EXTERNAL_SYMBOL_TYPE; t24584.s0.value.external_symbol_type = q458; /* x194164 */ t24584.s1.tag = NULL_TYPE; /* x194165 */ t24583.s1.tag = STRUCTURE_TYPE24753; t24583.s1.value.structure_type24753 = &t24584; /* x194166 */ t24582.s0.tag = STRUCTURE_TYPE24753; t24582.s0.value.structure_type24753 = &t24583; /* x194167 */ t24582.s1.tag = NULL_TYPE; /* x194168 */ t24579.s1.tag = STRUCTURE_TYPE24753; t24579.s1.value.structure_type24753 = &t24582; /* x194169 */ t24578.s1.tag = STRUCTURE_TYPE24753; t24578.s1.value.structure_type24753 = &t24579; /* x194170 */ t24577.s0.tag = STRUCTURE_TYPE24753; t24577.s0.value.structure_type24753 = &t24578; /* x194171 */ t24586.s0.tag = EXTERNAL_SYMBOL_TYPE; t24586.s0.value.external_symbol_type = q241; /* x194172 */ t24588.s0.tag = EXTERNAL_SYMBOL_TYPE; t24588.s0.value.external_symbol_type = q111; /* x194173 */ t24589.s0.tag = EXTERNAL_SYMBOL_TYPE; t24589.s0.value.external_symbol_type = q459; /* x194174 */ t24589.s1.tag = NULL_TYPE; /* x194175 */ t24588.s1.tag = STRUCTURE_TYPE24753; t24588.s1.value.structure_type24753 = &t24589; /* x194176 */ t24587.s0.tag = STRUCTURE_TYPE24753; t24587.s0.value.structure_type24753 = &t24588; /* x194177 */ t24591.s0.tag = EXTERNAL_SYMBOL_TYPE; t24591.s0.value.external_symbol_type = q289; /* x194178 */ t24592.s0.tag = EXTERNAL_SYMBOL_TYPE; t24592.s0.value.external_symbol_type = q458; /* x194179 */ t24594.s0.tag = EXTERNAL_SYMBOL_TYPE; t24594.s0.value.external_symbol_type = q285; /* x194180 */ t24596.s0.tag = EXTERNAL_SYMBOL_TYPE; t24596.s0.value.external_symbol_type = q107; /* x194181 */ t24597.s0.tag = EXTERNAL_SYMBOL_TYPE; t24597.s0.value.external_symbol_type = q459; /* x194182 */ t24597.s1.tag = NULL_TYPE; /* x194183 */ t24596.s1.tag = STRUCTURE_TYPE24753; t24596.s1.value.structure_type24753 = &t24597; /* x194184 */ t24595.s0.tag = STRUCTURE_TYPE24753; t24595.s0.value.structure_type24753 = &t24596; /* x194185 */ t24595.s1.tag = NULL_TYPE; /* x194186 */ t24594.s1.tag = STRUCTURE_TYPE24753; t24594.s1.value.structure_type24753 = &t24595; /* x194187 */ t24593.s0.tag = STRUCTURE_TYPE24753; t24593.s0.value.structure_type24753 = &t24594; /* x194188 */ t24599.s0.tag = EXTERNAL_SYMBOL_TYPE; t24599.s0.value.external_symbol_type = q108; /* x194189 */ t24600.s0.tag = EXTERNAL_SYMBOL_TYPE; t24600.s0.value.external_symbol_type = q459; /* x194190 */ t24600.s1.tag = NULL_TYPE; /* x194191 */ t24599.s1.tag = STRUCTURE_TYPE24753; t24599.s1.value.structure_type24753 = &t24600; /* x194192 */ t24598.s0.tag = STRUCTURE_TYPE24753; t24598.s0.value.structure_type24753 = &t24599; /* x194193 */ t24598.s1.tag = NULL_TYPE; /* x194194 */ t24593.s1.tag = STRUCTURE_TYPE24753; t24593.s1.value.structure_type24753 = &t24598; /* x194195 */ t24592.s1.tag = STRUCTURE_TYPE24753; t24592.s1.value.structure_type24753 = &t24593; /* x194196 */ t24591.s1.tag = STRUCTURE_TYPE24753; t24591.s1.value.structure_type24753 = &t24592; /* x194197 */ t24590.s0.tag = STRUCTURE_TYPE24753; t24590.s0.value.structure_type24753 = &t24591; /* x194198 */ t24590.s1.tag = NULL_TYPE; /* x194199 */ t24587.s1.tag = STRUCTURE_TYPE24753; t24587.s1.value.structure_type24753 = &t24590; /* x194200 */ t24586.s1.tag = STRUCTURE_TYPE24753; t24586.s1.value.structure_type24753 = &t24587; /* x194201 */ t24585.s0.tag = STRUCTURE_TYPE24753; t24585.s0.value.structure_type24753 = &t24586; /* x194202 */ t24585.s1.tag = NULL_TYPE; /* x194203 */ t24577.s1.tag = STRUCTURE_TYPE24753; t24577.s1.value.structure_type24753 = &t24585; /* x194204 */ t24576.s1.tag = STRUCTURE_TYPE24753; t24576.s1.value.structure_type24753 = &t24577; /* x194205 */ t24575.s0.tag = STRUCTURE_TYPE24753; t24575.s0.value.structure_type24753 = &t24576; /* x194206 */ t24575.s1.tag = NULL_TYPE; /* x194207 */ t24561.s1.tag = STRUCTURE_TYPE24753; t24561.s1.value.structure_type24753 = &t24575; /* x194208 */ t24560.s1.tag = STRUCTURE_TYPE24753; t24560.s1.value.structure_type24753 = &t24561; /* x194209 */ t24559.s1.tag = STRUCTURE_TYPE24753; t24559.s1.value.structure_type24753 = &t24560; /* x194210 */ t24558.s0.tag = STRUCTURE_TYPE24753; t24558.s0.value.structure_type24753 = &t24559; /* x194211 */ t24558.s1.tag = NULL_TYPE; /* x194212 */ t24554.s1.tag = STRUCTURE_TYPE24753; t24554.s1.value.structure_type24753 = &t24558; /* x194213 */ t24553.s1.tag = STRUCTURE_TYPE24753; t24553.s1.value.structure_type24753 = &t24554; /* x194216 */ t24605.s0.tag = EXTERNAL_SYMBOL_TYPE; t24605.s0.value.external_symbol_type = q97; /* x194217 */ t24607.s0.tag = EXTERNAL_SYMBOL_TYPE; t24607.s0.value.external_symbol_type = q462; /* x194218 */ t24608.s0.tag = EXTERNAL_SYMBOL_TYPE; t24608.s0.value.external_symbol_type = q457; /* x194219 */ t24609.s0.tag = EXTERNAL_SYMBOL_TYPE; t24609.s0.value.external_symbol_type = q458; /* x194220 */ t24609.s1.tag = EXTERNAL_SYMBOL_TYPE; t24609.s1.value.external_symbol_type = q459; /* x194221 */ t24608.s1.tag = STRUCTURE_TYPE24753; t24608.s1.value.structure_type24753 = &t24609; /* x194222 */ t24607.s1.tag = STRUCTURE_TYPE24753; t24607.s1.value.structure_type24753 = &t24608; /* x194223 */ t24606.s0.tag = STRUCTURE_TYPE24753; t24606.s0.value.structure_type24753 = &t24607; /* x194224 */ t24611.s0.tag = EXTERNAL_SYMBOL_TYPE; t24611.s0.value.external_symbol_type = q242; /* x194225 */ t24612.s0.tag = EXTERNAL_SYMBOL_TYPE; t24612.s0.value.external_symbol_type = q289; /* x194226 */ t24615.s0.tag = EXTERNAL_SYMBOL_TYPE; t24615.s0.value.external_symbol_type = q457; /* x194227 */ t24617.s0.tag = EXTERNAL_SYMBOL_TYPE; t24617.s0.value.external_symbol_type = q285; /* x194228 */ t24618.s0.tag = EXTERNAL_SYMBOL_TYPE; t24618.s0.value.external_symbol_type = q457; /* x194229 */ t24618.s1.tag = NULL_TYPE; /* x194230 */ t24617.s1.tag = STRUCTURE_TYPE24753; t24617.s1.value.structure_type24753 = &t24618; /* x194231 */ t24616.s0.tag = STRUCTURE_TYPE24753; t24616.s0.value.structure_type24753 = &t24617; /* x194232 */ t24616.s1.tag = NULL_TYPE; /* x194233 */ t24615.s1.tag = STRUCTURE_TYPE24753; t24615.s1.value.structure_type24753 = &t24616; /* x194234 */ t24614.s0.tag = STRUCTURE_TYPE24753; t24614.s0.value.structure_type24753 = &t24615; /* x194235 */ t24620.s0.tag = EXTERNAL_SYMBOL_TYPE; t24620.s0.value.external_symbol_type = q458; /* x194236 */ t24622.s0.tag = EXTERNAL_SYMBOL_TYPE; t24622.s0.value.external_symbol_type = q285; /* x194237 */ t24623.s0.tag = EXTERNAL_SYMBOL_TYPE; t24623.s0.value.external_symbol_type = q458; /* x194238 */ t24623.s1.tag = NULL_TYPE; /* x194239 */ t24622.s1.tag = STRUCTURE_TYPE24753; t24622.s1.value.structure_type24753 = &t24623; /* x194240 */ t24621.s0.tag = STRUCTURE_TYPE24753; t24621.s0.value.structure_type24753 = &t24622; /* x194241 */ t24621.s1.tag = NULL_TYPE; /* x194242 */ t24620.s1.tag = STRUCTURE_TYPE24753; t24620.s1.value.structure_type24753 = &t24621; /* x194243 */ t24619.s0.tag = STRUCTURE_TYPE24753; t24619.s0.value.structure_type24753 = &t24620; /* x194244 */ t24625.s0.tag = EXTERNAL_SYMBOL_TYPE; t24625.s0.value.external_symbol_type = q459; /* x194245 */ t24626.s0.tag = EXTERNAL_SYMBOL_TYPE; t24626.s0.value.external_symbol_type = q459; /* x194246 */ t24626.s1.tag = NULL_TYPE; /* x194247 */ t24625.s1.tag = STRUCTURE_TYPE24753; t24625.s1.value.structure_type24753 = &t24626; /* x194248 */ t24624.s0.tag = STRUCTURE_TYPE24753; t24624.s0.value.structure_type24753 = &t24625; /* x194249 */ t24624.s1.tag = NULL_TYPE; /* x194250 */ t24619.s1.tag = STRUCTURE_TYPE24753; t24619.s1.value.structure_type24753 = &t24624; /* x194251 */ t24614.s1.tag = STRUCTURE_TYPE24753; t24614.s1.value.structure_type24753 = &t24619; /* x194252 */ t24613.s0.tag = STRUCTURE_TYPE24753; t24613.s0.value.structure_type24753 = &t24614; /* x194253 */ t24628.s0.tag = EXTERNAL_SYMBOL_TYPE; t24628.s0.value.external_symbol_type = q244; /* x194254 */ t24630.s0.tag = EXTERNAL_SYMBOL_TYPE; t24630.s0.value.external_symbol_type = q123; /* x194255 */ t24632.s0.tag = EXTERNAL_SYMBOL_TYPE; t24632.s0.value.external_symbol_type = q157; /* x194256 */ t24633.s0.tag = EXTERNAL_SYMBOL_TYPE; t24633.s0.value.external_symbol_type = q457; /* x194257 */ t24633.s1.tag = NULL_TYPE; /* x194258 */ t24632.s1.tag = STRUCTURE_TYPE24753; t24632.s1.value.structure_type24753 = &t24633; /* x194259 */ t24631.s0.tag = STRUCTURE_TYPE24753; t24631.s0.value.structure_type24753 = &t24632; /* x194260 */ t24635.s0.tag = EXTERNAL_SYMBOL_TYPE; t24635.s0.value.external_symbol_type = q157; /* x194261 */ t24636.s0.tag = EXTERNAL_SYMBOL_TYPE; t24636.s0.value.external_symbol_type = q458; /* x194262 */ t24636.s1.tag = NULL_TYPE; /* x194263 */ t24635.s1.tag = STRUCTURE_TYPE24753; t24635.s1.value.structure_type24753 = &t24636; /* x194264 */ t24634.s0.tag = STRUCTURE_TYPE24753; t24634.s0.value.structure_type24753 = &t24635; /* x194265 */ t24634.s1.tag = NULL_TYPE; /* x194266 */ t24631.s1.tag = STRUCTURE_TYPE24753; t24631.s1.value.structure_type24753 = &t24634; /* x194267 */ t24630.s1.tag = STRUCTURE_TYPE24753; t24630.s1.value.structure_type24753 = &t24631; /* x194268 */ t24629.s0.tag = STRUCTURE_TYPE24753; t24629.s0.value.structure_type24753 = &t24630; /* x194269 */ t24638.s0.tag = EXTERNAL_SYMBOL_TYPE; t24638.s0.value.external_symbol_type = q241; /* x194270 */ t24640.s0.tag = EXTERNAL_SYMBOL_TYPE; t24640.s0.value.external_symbol_type = q111; /* x194271 */ t24641.s0.tag = EXTERNAL_SYMBOL_TYPE; t24641.s0.value.external_symbol_type = q459; /* x194272 */ t24641.s1.tag = NULL_TYPE; /* x194273 */ t24640.s1.tag = STRUCTURE_TYPE24753; t24640.s1.value.structure_type24753 = &t24641; /* x194274 */ t24639.s0.tag = STRUCTURE_TYPE24753; t24639.s0.value.structure_type24753 = &t24640; /* x194275 */ t24643.s0.tag = EXTERNAL_SYMBOL_TYPE; t24643.s0.value.external_symbol_type = q289; /* x194276 */ t24644.s0.tag = EXTERNAL_SYMBOL_TYPE; t24644.s0.value.external_symbol_type = q458; /* x194277 */ t24646.s0.tag = EXTERNAL_SYMBOL_TYPE; t24646.s0.value.external_symbol_type = q285; /* x194278 */ t24648.s0.tag = EXTERNAL_SYMBOL_TYPE; t24648.s0.value.external_symbol_type = q107; /* x194279 */ t24649.s0.tag = EXTERNAL_SYMBOL_TYPE; t24649.s0.value.external_symbol_type = q459; /* x194280 */ t24649.s1.tag = NULL_TYPE; /* x194281 */ t24648.s1.tag = STRUCTURE_TYPE24753; t24648.s1.value.structure_type24753 = &t24649; /* x194282 */ t24647.s0.tag = STRUCTURE_TYPE24753; t24647.s0.value.structure_type24753 = &t24648; /* x194283 */ t24647.s1.tag = NULL_TYPE; /* x194284 */ t24646.s1.tag = STRUCTURE_TYPE24753; t24646.s1.value.structure_type24753 = &t24647; /* x194285 */ t24645.s0.tag = STRUCTURE_TYPE24753; t24645.s0.value.structure_type24753 = &t24646; /* x194286 */ t24651.s0.tag = EXTERNAL_SYMBOL_TYPE; t24651.s0.value.external_symbol_type = q108; /* x194287 */ t24652.s0.tag = EXTERNAL_SYMBOL_TYPE; t24652.s0.value.external_symbol_type = q459; /* x194288 */ t24652.s1.tag = NULL_TYPE; /* x194289 */ t24651.s1.tag = STRUCTURE_TYPE24753; t24651.s1.value.structure_type24753 = &t24652; /* x194290 */ t24650.s0.tag = STRUCTURE_TYPE24753; t24650.s0.value.structure_type24753 = &t24651; /* x194291 */ t24650.s1.tag = NULL_TYPE; /* x194292 */ t24645.s1.tag = STRUCTURE_TYPE24753; t24645.s1.value.structure_type24753 = &t24650; /* x194293 */ t24644.s1.tag = STRUCTURE_TYPE24753; t24644.s1.value.structure_type24753 = &t24645; /* x194294 */ t24643.s1.tag = STRUCTURE_TYPE24753; t24643.s1.value.structure_type24753 = &t24644; /* x194295 */ t24642.s0.tag = STRUCTURE_TYPE24753; t24642.s0.value.structure_type24753 = &t24643; /* x194296 */ t24642.s1.tag = NULL_TYPE; /* x194297 */ t24639.s1.tag = STRUCTURE_TYPE24753; t24639.s1.value.structure_type24753 = &t24642; /* x194298 */ t24638.s1.tag = STRUCTURE_TYPE24753; t24638.s1.value.structure_type24753 = &t24639; /* x194299 */ t24637.s0.tag = STRUCTURE_TYPE24753; t24637.s0.value.structure_type24753 = &t24638; /* x194300 */ t24637.s1.tag = NULL_TYPE; /* x194301 */ t24629.s1.tag = STRUCTURE_TYPE24753; t24629.s1.value.structure_type24753 = &t24637; /* x194302 */ t24628.s1.tag = STRUCTURE_TYPE24753; t24628.s1.value.structure_type24753 = &t24629; /* x194303 */ t24627.s0.tag = STRUCTURE_TYPE24753; t24627.s0.value.structure_type24753 = &t24628; /* x194304 */ t24627.s1.tag = NULL_TYPE; /* x194305 */ t24613.s1.tag = STRUCTURE_TYPE24753; t24613.s1.value.structure_type24753 = &t24627; /* x194306 */ t24612.s1.tag = STRUCTURE_TYPE24753; t24612.s1.value.structure_type24753 = &t24613; /* x194307 */ t24611.s1.tag = STRUCTURE_TYPE24753; t24611.s1.value.structure_type24753 = &t24612; /* x194308 */ t24610.s0.tag = STRUCTURE_TYPE24753; t24610.s0.value.structure_type24753 = &t24611; /* x194309 */ t24610.s1.tag = NULL_TYPE; /* x194310 */ t24606.s1.tag = STRUCTURE_TYPE24753; t24606.s1.value.structure_type24753 = &t24610; /* x194311 */ t24605.s1.tag = STRUCTURE_TYPE24753; t24605.s1.value.structure_type24753 = &t24606; /* x194314 */ t24657.s0.tag = EXTERNAL_SYMBOL_TYPE; t24657.s0.value.external_symbol_type = q97; /* x194315 */ t24659.s0.tag = EXTERNAL_SYMBOL_TYPE; t24659.s0.value.external_symbol_type = q463; /* x194316 */ t24660.s0.tag = EXTERNAL_SYMBOL_TYPE; t24660.s0.value.external_symbol_type = q457; /* x194317 */ t24661.s0.tag = EXTERNAL_SYMBOL_TYPE; t24661.s0.value.external_symbol_type = q458; /* x194318 */ t24661.s1.tag = EXTERNAL_SYMBOL_TYPE; t24661.s1.value.external_symbol_type = q459; /* x194319 */ t24660.s1.tag = STRUCTURE_TYPE24753; t24660.s1.value.structure_type24753 = &t24661; /* x194320 */ t24659.s1.tag = STRUCTURE_TYPE24753; t24659.s1.value.structure_type24753 = &t24660; /* x194321 */ t24658.s0.tag = STRUCTURE_TYPE24753; t24658.s0.value.structure_type24753 = &t24659; /* x194322 */ t24663.s0.tag = EXTERNAL_SYMBOL_TYPE; t24663.s0.value.external_symbol_type = q242; /* x194323 */ t24664.s0.tag = EXTERNAL_SYMBOL_TYPE; t24664.s0.value.external_symbol_type = q289; /* x194324 */ t24667.s0.tag = EXTERNAL_SYMBOL_TYPE; t24667.s0.value.external_symbol_type = q457; /* x194325 */ t24669.s0.tag = EXTERNAL_SYMBOL_TYPE; t24669.s0.value.external_symbol_type = q285; /* x194326 */ t24670.s0.tag = EXTERNAL_SYMBOL_TYPE; t24670.s0.value.external_symbol_type = q457; /* x194327 */ t24670.s1.tag = NULL_TYPE; /* x194328 */ t24669.s1.tag = STRUCTURE_TYPE24753; t24669.s1.value.structure_type24753 = &t24670; /* x194329 */ t24668.s0.tag = STRUCTURE_TYPE24753; t24668.s0.value.structure_type24753 = &t24669; /* x194330 */ t24668.s1.tag = NULL_TYPE; /* x194331 */ t24667.s1.tag = STRUCTURE_TYPE24753; t24667.s1.value.structure_type24753 = &t24668; /* x194332 */ t24666.s0.tag = STRUCTURE_TYPE24753; t24666.s0.value.structure_type24753 = &t24667; /* x194333 */ t24672.s0.tag = EXTERNAL_SYMBOL_TYPE; t24672.s0.value.external_symbol_type = q458; /* x194334 */ t24674.s0.tag = EXTERNAL_SYMBOL_TYPE; t24674.s0.value.external_symbol_type = q285; /* x194335 */ t24675.s0.tag = EXTERNAL_SYMBOL_TYPE; t24675.s0.value.external_symbol_type = q458; /* x194336 */ t24675.s1.tag = NULL_TYPE; /* x194337 */ t24674.s1.tag = STRUCTURE_TYPE24753; t24674.s1.value.structure_type24753 = &t24675; /* x194338 */ t24673.s0.tag = STRUCTURE_TYPE24753; t24673.s0.value.structure_type24753 = &t24674; /* x194339 */ t24673.s1.tag = NULL_TYPE; /* x194340 */ t24672.s1.tag = STRUCTURE_TYPE24753; t24672.s1.value.structure_type24753 = &t24673; /* x194341 */ t24671.s0.tag = STRUCTURE_TYPE24753; t24671.s0.value.structure_type24753 = &t24672; /* x194342 */ t24677.s0.tag = EXTERNAL_SYMBOL_TYPE; t24677.s0.value.external_symbol_type = q459; /* x194343 */ t24678.s0.tag = EXTERNAL_SYMBOL_TYPE; t24678.s0.value.external_symbol_type = q459; /* x194344 */ t24678.s1.tag = NULL_TYPE; /* x194345 */ t24677.s1.tag = STRUCTURE_TYPE24753; t24677.s1.value.structure_type24753 = &t24678; /* x194346 */ t24676.s0.tag = STRUCTURE_TYPE24753; t24676.s0.value.structure_type24753 = &t24677; /* x194347 */ t24676.s1.tag = NULL_TYPE; /* x194348 */ t24671.s1.tag = STRUCTURE_TYPE24753; t24671.s1.value.structure_type24753 = &t24676; /* x194349 */ t24666.s1.tag = STRUCTURE_TYPE24753; t24666.s1.value.structure_type24753 = &t24671; /* x194350 */ t24665.s0.tag = STRUCTURE_TYPE24753; t24665.s0.value.structure_type24753 = &t24666; /* x194351 */ t24680.s0.tag = EXTERNAL_SYMBOL_TYPE; t24680.s0.value.external_symbol_type = q244; /* x194352 */ t24682.s0.tag = EXTERNAL_SYMBOL_TYPE; t24682.s0.value.external_symbol_type = q124; /* x194353 */ t24684.s0.tag = EXTERNAL_SYMBOL_TYPE; t24684.s0.value.external_symbol_type = q157; /* x194354 */ t24685.s0.tag = EXTERNAL_SYMBOL_TYPE; t24685.s0.value.external_symbol_type = q457; /* x194355 */ t24685.s1.tag = NULL_TYPE; /* x194356 */ t24684.s1.tag = STRUCTURE_TYPE24753; t24684.s1.value.structure_type24753 = &t24685; /* x194357 */ t24683.s0.tag = STRUCTURE_TYPE24753; t24683.s0.value.structure_type24753 = &t24684; /* x194358 */ t24687.s0.tag = EXTERNAL_SYMBOL_TYPE; t24687.s0.value.external_symbol_type = q157; /* x194359 */ t24688.s0.tag = EXTERNAL_SYMBOL_TYPE; t24688.s0.value.external_symbol_type = q458; /* x194360 */ t24688.s1.tag = NULL_TYPE; /* x194361 */ t24687.s1.tag = STRUCTURE_TYPE24753; t24687.s1.value.structure_type24753 = &t24688; /* x194362 */ t24686.s0.tag = STRUCTURE_TYPE24753; t24686.s0.value.structure_type24753 = &t24687; /* x194363 */ t24686.s1.tag = NULL_TYPE; /* x194364 */ t24683.s1.tag = STRUCTURE_TYPE24753; t24683.s1.value.structure_type24753 = &t24686; /* x194365 */ t24682.s1.tag = STRUCTURE_TYPE24753; t24682.s1.value.structure_type24753 = &t24683; /* x194366 */ t24681.s0.tag = STRUCTURE_TYPE24753; t24681.s0.value.structure_type24753 = &t24682; /* x194367 */ t24690.s0.tag = EXTERNAL_SYMBOL_TYPE; t24690.s0.value.external_symbol_type = q241; /* x194368 */ t24692.s0.tag = EXTERNAL_SYMBOL_TYPE; t24692.s0.value.external_symbol_type = q111; /* x194369 */ t24693.s0.tag = EXTERNAL_SYMBOL_TYPE; t24693.s0.value.external_symbol_type = q459; /* x194370 */ t24693.s1.tag = NULL_TYPE; /* x194371 */ t24692.s1.tag = STRUCTURE_TYPE24753; t24692.s1.value.structure_type24753 = &t24693; /* x194372 */ t24691.s0.tag = STRUCTURE_TYPE24753; t24691.s0.value.structure_type24753 = &t24692; /* x194373 */ t24695.s0.tag = EXTERNAL_SYMBOL_TYPE; t24695.s0.value.external_symbol_type = q289; /* x194374 */ t24696.s0.tag = EXTERNAL_SYMBOL_TYPE; t24696.s0.value.external_symbol_type = q458; /* x194375 */ t24698.s0.tag = EXTERNAL_SYMBOL_TYPE; t24698.s0.value.external_symbol_type = q285; /* x194376 */ t24700.s0.tag = EXTERNAL_SYMBOL_TYPE; t24700.s0.value.external_symbol_type = q107; /* x194377 */ t24701.s0.tag = EXTERNAL_SYMBOL_TYPE; t24701.s0.value.external_symbol_type = q459; /* x194378 */ t24701.s1.tag = NULL_TYPE; /* x194379 */ t24700.s1.tag = STRUCTURE_TYPE24753; t24700.s1.value.structure_type24753 = &t24701; /* x194380 */ t24699.s0.tag = STRUCTURE_TYPE24753; t24699.s0.value.structure_type24753 = &t24700; /* x194381 */ t24699.s1.tag = NULL_TYPE; /* x194382 */ t24698.s1.tag = STRUCTURE_TYPE24753; t24698.s1.value.structure_type24753 = &t24699; /* x194383 */ t24697.s0.tag = STRUCTURE_TYPE24753; t24697.s0.value.structure_type24753 = &t24698; /* x194384 */ t24703.s0.tag = EXTERNAL_SYMBOL_TYPE; t24703.s0.value.external_symbol_type = q108; /* x194385 */ t24704.s0.tag = EXTERNAL_SYMBOL_TYPE; t24704.s0.value.external_symbol_type = q459; /* x194386 */ t24704.s1.tag = NULL_TYPE; /* x194387 */ t24703.s1.tag = STRUCTURE_TYPE24753; t24703.s1.value.structure_type24753 = &t24704; /* x194388 */ t24702.s0.tag = STRUCTURE_TYPE24753; t24702.s0.value.structure_type24753 = &t24703; /* x194389 */ t24702.s1.tag = NULL_TYPE; /* x194390 */ t24697.s1.tag = STRUCTURE_TYPE24753; t24697.s1.value.structure_type24753 = &t24702; /* x194391 */ t24696.s1.tag = STRUCTURE_TYPE24753; t24696.s1.value.structure_type24753 = &t24697; /* x194392 */ t24695.s1.tag = STRUCTURE_TYPE24753; t24695.s1.value.structure_type24753 = &t24696; /* x194393 */ t24694.s0.tag = STRUCTURE_TYPE24753; t24694.s0.value.structure_type24753 = &t24695; /* x194394 */ t24694.s1.tag = NULL_TYPE; /* x194395 */ t24691.s1.tag = STRUCTURE_TYPE24753; t24691.s1.value.structure_type24753 = &t24694; /* x194396 */ t24690.s1.tag = STRUCTURE_TYPE24753; t24690.s1.value.structure_type24753 = &t24691; /* x194397 */ t24689.s0.tag = STRUCTURE_TYPE24753; t24689.s0.value.structure_type24753 = &t24690; /* x194398 */ t24689.s1.tag = NULL_TYPE; /* x194399 */ t24681.s1.tag = STRUCTURE_TYPE24753; t24681.s1.value.structure_type24753 = &t24689; /* x194400 */ t24680.s1.tag = STRUCTURE_TYPE24753; t24680.s1.value.structure_type24753 = &t24681; /* x194401 */ t24679.s0.tag = STRUCTURE_TYPE24753; t24679.s0.value.structure_type24753 = &t24680; /* x194402 */ t24679.s1.tag = NULL_TYPE; /* x194403 */ t24665.s1.tag = STRUCTURE_TYPE24753; t24665.s1.value.structure_type24753 = &t24679; /* x194404 */ t24664.s1.tag = STRUCTURE_TYPE24753; t24664.s1.value.structure_type24753 = &t24665; /* x194405 */ t24663.s1.tag = STRUCTURE_TYPE24753; t24663.s1.value.structure_type24753 = &t24664; /* x194406 */ t24662.s0.tag = STRUCTURE_TYPE24753; t24662.s0.value.structure_type24753 = &t24663; /* x194407 */ t24662.s1.tag = NULL_TYPE; /* x194408 */ t24658.s1.tag = STRUCTURE_TYPE24753; t24658.s1.value.structure_type24753 = &t24662; /* x194409 */ t24657.s1.tag = STRUCTURE_TYPE24753; t24657.s1.value.structure_type24753 = &t24658; /* x194412 */ t24709.s0.tag = EXTERNAL_SYMBOL_TYPE; t24709.s0.value.external_symbol_type = q97; /* x194413 */ t24710.s0.tag = EXTERNAL_SYMBOL_TYPE; t24710.s0.value.external_symbol_type = q278; /* x194414 */ t24712.s0.tag = EXTERNAL_SYMBOL_TYPE; t24712.s0.value.external_symbol_type = q242; /* x194415 */ t24715.s0.tag = EXTERNAL_SYMBOL_TYPE; t24715.s0.value.external_symbol_type = q278; /* x194416 */ t24717.s0.tag = EXTERNAL_SYMBOL_TYPE; t24717.s0.value.external_symbol_type = q11; t24719.length = 256; /* x194417 */ ((t24719.element)[0]).tag = FALSE_TYPE; /* x194418 */ ((t24719.element)[1]).tag = FALSE_TYPE; /* x194419 */ ((t24719.element)[2]).tag = FALSE_TYPE; /* x194420 */ ((t24719.element)[3]).tag = FALSE_TYPE; /* x194421 */ ((t24719.element)[4]).tag = FALSE_TYPE; /* x194422 */ ((t24719.element)[5]).tag = FALSE_TYPE; /* x194423 */ ((t24719.element)[6]).tag = FALSE_TYPE; /* x194424 */ ((t24719.element)[7]).tag = FALSE_TYPE; /* x194425 */ ((t24719.element)[8]).tag = FALSE_TYPE; /* x194426 */ ((t24719.element)[9]).tag = FALSE_TYPE; /* x194427 */ ((t24719.element)[10]).tag = FALSE_TYPE; /* x194428 */ ((t24719.element)[11]).tag = FALSE_TYPE; /* x194429 */ ((t24719.element)[12]).tag = FALSE_TYPE; /* x194430 */ ((t24719.element)[13]).tag = FALSE_TYPE; /* x194431 */ ((t24719.element)[14]).tag = FALSE_TYPE; /* x194432 */ ((t24719.element)[15]).tag = FALSE_TYPE; /* x194433 */ ((t24719.element)[16]).tag = FALSE_TYPE; /* x194434 */ ((t24719.element)[17]).tag = FALSE_TYPE; /* x194435 */ ((t24719.element)[18]).tag = FALSE_TYPE; /* x194436 */ ((t24719.element)[19]).tag = FALSE_TYPE; /* x194437 */ ((t24719.element)[20]).tag = FALSE_TYPE; /* x194438 */ ((t24719.element)[21]).tag = FALSE_TYPE; /* x194439 */ ((t24719.element)[22]).tag = FALSE_TYPE; /* x194440 */ ((t24719.element)[23]).tag = FALSE_TYPE; /* x194441 */ ((t24719.element)[24]).tag = FALSE_TYPE; /* x194442 */ ((t24719.element)[25]).tag = FALSE_TYPE; /* x194443 */ ((t24719.element)[26]).tag = FALSE_TYPE; /* x194444 */ ((t24719.element)[27]).tag = FALSE_TYPE; /* x194445 */ ((t24719.element)[28]).tag = FALSE_TYPE; /* x194446 */ ((t24719.element)[29]).tag = FALSE_TYPE; /* x194447 */ ((t24719.element)[30]).tag = FALSE_TYPE; /* x194448 */ ((t24719.element)[31]).tag = FALSE_TYPE; /* x194449 */ ((t24719.element)[32]).tag = FALSE_TYPE; /* x194450 */ ((t24719.element)[33]).tag = FALSE_TYPE; /* x194451 */ ((t24719.element)[34]).tag = FALSE_TYPE; /* x194452 */ ((t24719.element)[35]).tag = FALSE_TYPE; /* x194453 */ ((t24719.element)[36]).tag = FALSE_TYPE; /* x194454 */ ((t24719.element)[37]).tag = FALSE_TYPE; /* x194455 */ ((t24719.element)[38]).tag = FALSE_TYPE; /* x194456 */ ((t24719.element)[39]).tag = FALSE_TYPE; /* x194457 */ ((t24719.element)[40]).tag = FALSE_TYPE; /* x194458 */ ((t24719.element)[41]).tag = FALSE_TYPE; /* x194459 */ ((t24719.element)[42]).tag = FALSE_TYPE; /* x194460 */ ((t24719.element)[43]).tag = FALSE_TYPE; /* x194461 */ ((t24719.element)[44]).tag = FALSE_TYPE; /* x194462 */ ((t24719.element)[45]).tag = FALSE_TYPE; /* x194463 */ ((t24719.element)[46]).tag = FALSE_TYPE; /* x194464 */ ((t24719.element)[47]).tag = FALSE_TYPE; /* x194465 */ ((t24719.element)[48]).tag = FALSE_TYPE; /* x194466 */ ((t24719.element)[49]).tag = FALSE_TYPE; /* x194467 */ ((t24719.element)[50]).tag = FALSE_TYPE; /* x194468 */ ((t24719.element)[51]).tag = FALSE_TYPE; /* x194469 */ ((t24719.element)[52]).tag = FALSE_TYPE; /* x194470 */ ((t24719.element)[53]).tag = FALSE_TYPE; /* x194471 */ ((t24719.element)[54]).tag = FALSE_TYPE; /* x194472 */ ((t24719.element)[55]).tag = FALSE_TYPE; /* x194473 */ ((t24719.element)[56]).tag = FALSE_TYPE; /* x194474 */ ((t24719.element)[57]).tag = FALSE_TYPE; /* x194475 */ ((t24719.element)[58]).tag = FALSE_TYPE; /* x194476 */ ((t24719.element)[59]).tag = FALSE_TYPE; /* x194477 */ ((t24719.element)[60]).tag = FALSE_TYPE; /* x194478 */ ((t24719.element)[61]).tag = FALSE_TYPE; /* x194479 */ ((t24719.element)[62]).tag = FALSE_TYPE; /* x194480 */ ((t24719.element)[63]).tag = FALSE_TYPE; /* x194481 */ ((t24719.element)[64]).tag = FALSE_TYPE; /* x194482 */ ((t24719.element)[65]).tag = TRUE_TYPE; /* x194483 */ ((t24719.element)[66]).tag = TRUE_TYPE; /* x194484 */ ((t24719.element)[67]).tag = TRUE_TYPE; /* x194485 */ ((t24719.element)[68]).tag = TRUE_TYPE; /* x194486 */ ((t24719.element)[69]).tag = TRUE_TYPE; /* x194487 */ ((t24719.element)[70]).tag = TRUE_TYPE; /* x194488 */ ((t24719.element)[71]).tag = TRUE_TYPE; /* x194489 */ ((t24719.element)[72]).tag = TRUE_TYPE; /* x194490 */ ((t24719.element)[73]).tag = TRUE_TYPE; /* x194491 */ ((t24719.element)[74]).tag = TRUE_TYPE; /* x194492 */ ((t24719.element)[75]).tag = TRUE_TYPE; /* x194493 */ ((t24719.element)[76]).tag = TRUE_TYPE; /* x194494 */ ((t24719.element)[77]).tag = TRUE_TYPE; /* x194495 */ ((t24719.element)[78]).tag = TRUE_TYPE; /* x194496 */ ((t24719.element)[79]).tag = TRUE_TYPE; /* x194497 */ ((t24719.element)[80]).tag = TRUE_TYPE; /* x194498 */ ((t24719.element)[81]).tag = TRUE_TYPE; /* x194499 */ ((t24719.element)[82]).tag = TRUE_TYPE; /* x194500 */ ((t24719.element)[83]).tag = TRUE_TYPE; /* x194501 */ ((t24719.element)[84]).tag = TRUE_TYPE; /* x194502 */ ((t24719.element)[85]).tag = TRUE_TYPE; /* x194503 */ ((t24719.element)[86]).tag = TRUE_TYPE; /* x194504 */ ((t24719.element)[87]).tag = TRUE_TYPE; /* x194505 */ ((t24719.element)[88]).tag = TRUE_TYPE; /* x194506 */ ((t24719.element)[89]).tag = TRUE_TYPE; /* x194507 */ ((t24719.element)[90]).tag = TRUE_TYPE; /* x194508 */ ((t24719.element)[91]).tag = FALSE_TYPE; /* x194509 */ ((t24719.element)[92]).tag = FALSE_TYPE; /* x194510 */ ((t24719.element)[93]).tag = FALSE_TYPE; /* x194511 */ ((t24719.element)[94]).tag = FALSE_TYPE; /* x194512 */ ((t24719.element)[95]).tag = FALSE_TYPE; /* x194513 */ ((t24719.element)[96]).tag = FALSE_TYPE; /* x194514 */ ((t24719.element)[97]).tag = TRUE_TYPE; /* x194515 */ ((t24719.element)[98]).tag = TRUE_TYPE; /* x194516 */ ((t24719.element)[99]).tag = TRUE_TYPE; /* x194517 */ ((t24719.element)[100]).tag = TRUE_TYPE; /* x194518 */ ((t24719.element)[101]).tag = TRUE_TYPE; /* x194519 */ ((t24719.element)[102]).tag = TRUE_TYPE; /* x194520 */ ((t24719.element)[103]).tag = TRUE_TYPE; /* x194521 */ ((t24719.element)[104]).tag = TRUE_TYPE; /* x194522 */ ((t24719.element)[105]).tag = TRUE_TYPE; /* x194523 */ ((t24719.element)[106]).tag = TRUE_TYPE; /* x194524 */ ((t24719.element)[107]).tag = TRUE_TYPE; /* x194525 */ ((t24719.element)[108]).tag = TRUE_TYPE; /* x194526 */ ((t24719.element)[109]).tag = TRUE_TYPE; /* x194527 */ ((t24719.element)[110]).tag = TRUE_TYPE; /* x194528 */ ((t24719.element)[111]).tag = TRUE_TYPE; /* x194529 */ ((t24719.element)[112]).tag = TRUE_TYPE; /* x194530 */ ((t24719.element)[113]).tag = TRUE_TYPE; /* x194531 */ ((t24719.element)[114]).tag = TRUE_TYPE; /* x194532 */ ((t24719.element)[115]).tag = TRUE_TYPE; /* x194533 */ ((t24719.element)[116]).tag = TRUE_TYPE; /* x194534 */ ((t24719.element)[117]).tag = TRUE_TYPE; /* x194535 */ ((t24719.element)[118]).tag = TRUE_TYPE; /* x194536 */ ((t24719.element)[119]).tag = TRUE_TYPE; /* x194537 */ ((t24719.element)[120]).tag = TRUE_TYPE; /* x194538 */ ((t24719.element)[121]).tag = TRUE_TYPE; /* x194539 */ ((t24719.element)[122]).tag = TRUE_TYPE; /* x194540 */ ((t24719.element)[123]).tag = FALSE_TYPE; /* x194541 */ ((t24719.element)[124]).tag = FALSE_TYPE; /* x194542 */ ((t24719.element)[125]).tag = FALSE_TYPE; /* x194543 */ ((t24719.element)[126]).tag = FALSE_TYPE; /* x194544 */ ((t24719.element)[127]).tag = FALSE_TYPE; /* x194545 */ ((t24719.element)[128]).tag = FALSE_TYPE; /* x194546 */ ((t24719.element)[129]).tag = FALSE_TYPE; /* x194547 */ ((t24719.element)[130]).tag = FALSE_TYPE; /* x194548 */ ((t24719.element)[131]).tag = FALSE_TYPE; /* x194549 */ ((t24719.element)[132]).tag = FALSE_TYPE; /* x194550 */ ((t24719.element)[133]).tag = FALSE_TYPE; /* x194551 */ ((t24719.element)[134]).tag = FALSE_TYPE; /* x194552 */ ((t24719.element)[135]).tag = FALSE_TYPE; /* x194553 */ ((t24719.element)[136]).tag = FALSE_TYPE; /* x194554 */ ((t24719.element)[137]).tag = FALSE_TYPE; /* x194555 */ ((t24719.element)[138]).tag = FALSE_TYPE; /* x194556 */ ((t24719.element)[139]).tag = FALSE_TYPE; /* x194557 */ ((t24719.element)[140]).tag = FALSE_TYPE; /* x194558 */ ((t24719.element)[141]).tag = FALSE_TYPE; /* x194559 */ ((t24719.element)[142]).tag = FALSE_TYPE; /* x194560 */ ((t24719.element)[143]).tag = FALSE_TYPE; /* x194561 */ ((t24719.element)[144]).tag = FALSE_TYPE; /* x194562 */ ((t24719.element)[145]).tag = FALSE_TYPE; /* x194563 */ ((t24719.element)[146]).tag = FALSE_TYPE; /* x194564 */ ((t24719.element)[147]).tag = FALSE_TYPE; /* x194565 */ ((t24719.element)[148]).tag = FALSE_TYPE; /* x194566 */ ((t24719.element)[149]).tag = FALSE_TYPE; /* x194567 */ ((t24719.element)[150]).tag = FALSE_TYPE; /* x194568 */ ((t24719.element)[151]).tag = FALSE_TYPE; /* x194569 */ ((t24719.element)[152]).tag = FALSE_TYPE; /* x194570 */ ((t24719.element)[153]).tag = FALSE_TYPE; /* x194571 */ ((t24719.element)[154]).tag = FALSE_TYPE; /* x194572 */ ((t24719.element)[155]).tag = FALSE_TYPE; /* x194573 */ ((t24719.element)[156]).tag = FALSE_TYPE; /* x194574 */ ((t24719.element)[157]).tag = FALSE_TYPE; /* x194575 */ ((t24719.element)[158]).tag = FALSE_TYPE; /* x194576 */ ((t24719.element)[159]).tag = FALSE_TYPE; /* x194577 */ ((t24719.element)[160]).tag = FALSE_TYPE; /* x194578 */ ((t24719.element)[161]).tag = FALSE_TYPE; /* x194579 */ ((t24719.element)[162]).tag = FALSE_TYPE; /* x194580 */ ((t24719.element)[163]).tag = FALSE_TYPE; /* x194581 */ ((t24719.element)[164]).tag = FALSE_TYPE; /* x194582 */ ((t24719.element)[165]).tag = FALSE_TYPE; /* x194583 */ ((t24719.element)[166]).tag = FALSE_TYPE; /* x194584 */ ((t24719.element)[167]).tag = FALSE_TYPE; /* x194585 */ ((t24719.element)[168]).tag = FALSE_TYPE; /* x194586 */ ((t24719.element)[169]).tag = FALSE_TYPE; /* x194587 */ ((t24719.element)[170]).tag = FALSE_TYPE; /* x194588 */ ((t24719.element)[171]).tag = FALSE_TYPE; /* x194589 */ ((t24719.element)[172]).tag = FALSE_TYPE; /* x194590 */ ((t24719.element)[173]).tag = FALSE_TYPE; /* x194591 */ ((t24719.element)[174]).tag = FALSE_TYPE; /* x194592 */ ((t24719.element)[175]).tag = FALSE_TYPE; /* x194593 */ ((t24719.element)[176]).tag = FALSE_TYPE; /* x194594 */ ((t24719.element)[177]).tag = FALSE_TYPE; /* x194595 */ ((t24719.element)[178]).tag = FALSE_TYPE; /* x194596 */ ((t24719.element)[179]).tag = FALSE_TYPE; /* x194597 */ ((t24719.element)[180]).tag = FALSE_TYPE; /* x194598 */ ((t24719.element)[181]).tag = FALSE_TYPE; /* x194599 */ ((t24719.element)[182]).tag = FALSE_TYPE; /* x194600 */ ((t24719.element)[183]).tag = FALSE_TYPE; /* x194601 */ ((t24719.element)[184]).tag = FALSE_TYPE; /* x194602 */ ((t24719.element)[185]).tag = FALSE_TYPE; /* x194603 */ ((t24719.element)[186]).tag = FALSE_TYPE; /* x194604 */ ((t24719.element)[187]).tag = FALSE_TYPE; /* x194605 */ ((t24719.element)[188]).tag = FALSE_TYPE; /* x194606 */ ((t24719.element)[189]).tag = FALSE_TYPE; /* x194607 */ ((t24719.element)[190]).tag = FALSE_TYPE; /* x194608 */ ((t24719.element)[191]).tag = FALSE_TYPE; /* x194609 */ ((t24719.element)[192]).tag = TRUE_TYPE; /* x194610 */ ((t24719.element)[193]).tag = TRUE_TYPE; /* x194611 */ ((t24719.element)[194]).tag = TRUE_TYPE; /* x194612 */ ((t24719.element)[195]).tag = TRUE_TYPE; /* x194613 */ ((t24719.element)[196]).tag = TRUE_TYPE; /* x194614 */ ((t24719.element)[197]).tag = TRUE_TYPE; /* x194615 */ ((t24719.element)[198]).tag = TRUE_TYPE; /* x194616 */ ((t24719.element)[199]).tag = TRUE_TYPE; /* x194617 */ ((t24719.element)[200]).tag = TRUE_TYPE; /* x194618 */ ((t24719.element)[201]).tag = TRUE_TYPE; /* x194619 */ ((t24719.element)[202]).tag = TRUE_TYPE; /* x194620 */ ((t24719.element)[203]).tag = TRUE_TYPE; /* x194621 */ ((t24719.element)[204]).tag = TRUE_TYPE; /* x194622 */ ((t24719.element)[205]).tag = TRUE_TYPE; /* x194623 */ ((t24719.element)[206]).tag = TRUE_TYPE; /* x194624 */ ((t24719.element)[207]).tag = TRUE_TYPE; /* x194625 */ ((t24719.element)[208]).tag = TRUE_TYPE; /* x194626 */ ((t24719.element)[209]).tag = TRUE_TYPE; /* x194627 */ ((t24719.element)[210]).tag = TRUE_TYPE; /* x194628 */ ((t24719.element)[211]).tag = TRUE_TYPE; /* x194629 */ ((t24719.element)[212]).tag = TRUE_TYPE; /* x194630 */ ((t24719.element)[213]).tag = TRUE_TYPE; /* x194631 */ ((t24719.element)[214]).tag = TRUE_TYPE; /* x194632 */ ((t24719.element)[215]).tag = FALSE_TYPE; /* x194633 */ ((t24719.element)[216]).tag = TRUE_TYPE; /* x194634 */ ((t24719.element)[217]).tag = TRUE_TYPE; /* x194635 */ ((t24719.element)[218]).tag = TRUE_TYPE; /* x194636 */ ((t24719.element)[219]).tag = TRUE_TYPE; /* x194637 */ ((t24719.element)[220]).tag = TRUE_TYPE; /* x194638 */ ((t24719.element)[221]).tag = TRUE_TYPE; /* x194639 */ ((t24719.element)[222]).tag = TRUE_TYPE; /* x194640 */ ((t24719.element)[223]).tag = TRUE_TYPE; /* x194641 */ ((t24719.element)[224]).tag = TRUE_TYPE; /* x194642 */ ((t24719.element)[225]).tag = TRUE_TYPE; /* x194643 */ ((t24719.element)[226]).tag = TRUE_TYPE; /* x194644 */ ((t24719.element)[227]).tag = TRUE_TYPE; /* x194645 */ ((t24719.element)[228]).tag = TRUE_TYPE; /* x194646 */ ((t24719.element)[229]).tag = TRUE_TYPE; /* x194647 */ ((t24719.element)[230]).tag = TRUE_TYPE; /* x194648 */ ((t24719.element)[231]).tag = TRUE_TYPE; /* x194649 */ ((t24719.element)[232]).tag = TRUE_TYPE; /* x194650 */ ((t24719.element)[233]).tag = TRUE_TYPE; /* x194651 */ ((t24719.element)[234]).tag = TRUE_TYPE; /* x194652 */ ((t24719.element)[235]).tag = TRUE_TYPE; /* x194653 */ ((t24719.element)[236]).tag = TRUE_TYPE; /* x194654 */ ((t24719.element)[237]).tag = TRUE_TYPE; /* x194655 */ ((t24719.element)[238]).tag = TRUE_TYPE; /* x194656 */ ((t24719.element)[239]).tag = TRUE_TYPE; /* x194657 */ ((t24719.element)[240]).tag = TRUE_TYPE; /* x194658 */ ((t24719.element)[241]).tag = TRUE_TYPE; /* x194659 */ ((t24719.element)[242]).tag = TRUE_TYPE; /* x194660 */ ((t24719.element)[243]).tag = TRUE_TYPE; /* x194661 */ ((t24719.element)[244]).tag = TRUE_TYPE; /* x194662 */ ((t24719.element)[245]).tag = TRUE_TYPE; /* x194663 */ ((t24719.element)[246]).tag = TRUE_TYPE; /* x194664 */ ((t24719.element)[247]).tag = FALSE_TYPE; /* x194665 */ ((t24719.element)[248]).tag = TRUE_TYPE; /* x194666 */ ((t24719.element)[249]).tag = TRUE_TYPE; /* x194667 */ ((t24719.element)[250]).tag = TRUE_TYPE; /* x194668 */ ((t24719.element)[251]).tag = TRUE_TYPE; /* x194669 */ ((t24719.element)[252]).tag = TRUE_TYPE; /* x194670 */ ((t24719.element)[253]).tag = TRUE_TYPE; /* x194671 */ ((t24719.element)[254]).tag = TRUE_TYPE; /* x194672 */ ((t24719.element)[255]).tag = TRUE_TYPE; /* x194673 */ t24718.s0.tag = HEADED_VECTOR_TYPE27896; t24718.s0.value.headed_vector_type27896 = (struct headed_vector_type27896 *)(&t24719); /* x194674 */ t24718.s1.tag = NULL_TYPE; /* x194675 */ t24717.s1.tag = STRUCTURE_TYPE24753; t24717.s1.value.structure_type24753 = &t24718; /* x194676 */ t24716.s0.tag = STRUCTURE_TYPE24753; t24716.s0.value.structure_type24753 = &t24717; /* x194677 */ t24716.s1.tag = NULL_TYPE; /* x194678 */ t24715.s1.tag = STRUCTURE_TYPE24753; t24715.s1.value.structure_type24753 = &t24716; /* x194679 */ t24714.s0.tag = STRUCTURE_TYPE24753; t24714.s0.value.structure_type24753 = &t24715; /* x194680 */ t24714.s1.tag = NULL_TYPE; /* x194681 */ t24713.s0.tag = STRUCTURE_TYPE24753; t24713.s0.value.structure_type24753 = &t24714; /* x194682 */ t24721.s0.tag = EXTERNAL_SYMBOL_TYPE; t24721.s0.value.external_symbol_type = q39; /* x194683 */ t24723.s0.tag = EXTERNAL_SYMBOL_TYPE; t24723.s0.value.external_symbol_type = q56; /* x194684 */ t24723.s1.tag = NULL_TYPE; /* x194685 */ t24722.s0.tag = STRUCTURE_TYPE24753; t24722.s0.value.structure_type24753 = &t24723; /* x194686 */ t24725.s0.tag = EXTERNAL_SYMBOL_TYPE; t24725.s0.value.external_symbol_type = q169; /* x194687 */ t24726.s0.tag = EXTERNAL_SYMBOL_TYPE; t24726.s0.value.external_symbol_type = q278; /* x194688 */ t24728.s0.tag = EXTERNAL_SYMBOL_TYPE; t24728.s0.value.external_symbol_type = q157; /* x194689 */ t24729.s0.tag = EXTERNAL_SYMBOL_TYPE; t24729.s0.value.external_symbol_type = q56; /* x194690 */ t24729.s1.tag = NULL_TYPE; /* x194691 */ t24728.s1.tag = STRUCTURE_TYPE24753; t24728.s1.value.structure_type24753 = &t24729; /* x194692 */ t24727.s0.tag = STRUCTURE_TYPE24753; t24727.s0.value.structure_type24753 = &t24728; /* x194693 */ t24727.s1.tag = NULL_TYPE; /* x194694 */ t24726.s1.tag = STRUCTURE_TYPE24753; t24726.s1.value.structure_type24753 = &t24727; /* x194695 */ t24725.s1.tag = STRUCTURE_TYPE24753; t24725.s1.value.structure_type24753 = &t24726; /* x194696 */ t24724.s0.tag = STRUCTURE_TYPE24753; t24724.s0.value.structure_type24753 = &t24725; /* x194697 */ t24724.s1.tag = NULL_TYPE; /* x194698 */ t24722.s1.tag = STRUCTURE_TYPE24753; t24722.s1.value.structure_type24753 = &t24724; /* x194699 */ t24721.s1.tag = STRUCTURE_TYPE24753; t24721.s1.value.structure_type24753 = &t24722; /* x194700 */ t24720.s0.tag = STRUCTURE_TYPE24753; t24720.s0.value.structure_type24753 = &t24721; /* x194701 */ t24720.s1.tag = NULL_TYPE; /* x194702 */ t24713.s1.tag = STRUCTURE_TYPE24753; t24713.s1.value.structure_type24753 = &t24720; /* x194703 */ t24712.s1.tag = STRUCTURE_TYPE24753; t24712.s1.value.structure_type24753 = &t24713; /* x194704 */ t24711.s0.tag = STRUCTURE_TYPE24753; t24711.s0.value.structure_type24753 = &t24712; /* x194705 */ t24711.s1.tag = NULL_TYPE; /* x194706 */ t24710.s1.tag = STRUCTURE_TYPE24753; t24710.s1.value.structure_type24753 = &t24711; /* x194707 */ t24709.s1.tag = STRUCTURE_TYPE24753; t24709.s1.value.structure_type24753 = &t24710; /* x194710 */ t24734.s0.tag = EXTERNAL_SYMBOL_TYPE; t24734.s0.value.external_symbol_type = q97; /* x194711 */ t24735.s0.tag = EXTERNAL_SYMBOL_TYPE; t24735.s0.value.external_symbol_type = q269; /* x194712 */ t24737.s0.tag = EXTERNAL_SYMBOL_TYPE; t24737.s0.value.external_symbol_type = q242; /* x194713 */ t24740.s0.tag = EXTERNAL_SYMBOL_TYPE; t24740.s0.value.external_symbol_type = q269; /* x194714 */ t24742.s0.tag = EXTERNAL_SYMBOL_TYPE; t24742.s0.value.external_symbol_type = q11; t24744.length = 256; /* x194715 */ ((t24744.element)[0]).tag = FALSE_TYPE; /* x194716 */ ((t24744.element)[1]).tag = FALSE_TYPE; /* x194717 */ ((t24744.element)[2]).tag = FALSE_TYPE; /* x194718 */ ((t24744.element)[3]).tag = FALSE_TYPE; /* x194719 */ ((t24744.element)[4]).tag = FALSE_TYPE; /* x194720 */ ((t24744.element)[5]).tag = FALSE_TYPE; /* x194721 */ ((t24744.element)[6]).tag = FALSE_TYPE; /* x194722 */ ((t24744.element)[7]).tag = FALSE_TYPE; /* x194723 */ ((t24744.element)[8]).tag = FALSE_TYPE; /* x194724 */ ((t24744.element)[9]).tag = FALSE_TYPE; /* x194725 */ ((t24744.element)[10]).tag = FALSE_TYPE; /* x194726 */ ((t24744.element)[11]).tag = FALSE_TYPE; /* x194727 */ ((t24744.element)[12]).tag = FALSE_TYPE; /* x194728 */ ((t24744.element)[13]).tag = FALSE_TYPE; /* x194729 */ ((t24744.element)[14]).tag = FALSE_TYPE; /* x194730 */ ((t24744.element)[15]).tag = FALSE_TYPE; /* x194731 */ ((t24744.element)[16]).tag = FALSE_TYPE; /* x194732 */ ((t24744.element)[17]).tag = FALSE_TYPE; /* x194733 */ ((t24744.element)[18]).tag = FALSE_TYPE; /* x194734 */ ((t24744.element)[19]).tag = FALSE_TYPE; /* x194735 */ ((t24744.element)[20]).tag = FALSE_TYPE; /* x194736 */ ((t24744.element)[21]).tag = FALSE_TYPE; /* x194737 */ ((t24744.element)[22]).tag = FALSE_TYPE; /* x194738 */ ((t24744.element)[23]).tag = FALSE_TYPE; /* x194739 */ ((t24744.element)[24]).tag = FALSE_TYPE; /* x194740 */ ((t24744.element)[25]).tag = FALSE_TYPE; /* x194741 */ ((t24744.element)[26]).tag = FALSE_TYPE; /* x194742 */ ((t24744.element)[27]).tag = FALSE_TYPE; /* x194743 */ ((t24744.element)[28]).tag = FALSE_TYPE; /* x194744 */ ((t24744.element)[29]).tag = FALSE_TYPE; /* x194745 */ ((t24744.element)[30]).tag = FALSE_TYPE; /* x194746 */ ((t24744.element)[31]).tag = FALSE_TYPE; /* x194747 */ ((t24744.element)[32]).tag = FALSE_TYPE; /* x194748 */ ((t24744.element)[33]).tag = FALSE_TYPE; /* x194749 */ ((t24744.element)[34]).tag = FALSE_TYPE; /* x194750 */ ((t24744.element)[35]).tag = FALSE_TYPE; /* x194751 */ ((t24744.element)[36]).tag = FALSE_TYPE; /* x194752 */ ((t24744.element)[37]).tag = FALSE_TYPE; /* x194753 */ ((t24744.element)[38]).tag = FALSE_TYPE; /* x194754 */ ((t24744.element)[39]).tag = FALSE_TYPE; /* x194755 */ ((t24744.element)[40]).tag = FALSE_TYPE; /* x194756 */ ((t24744.element)[41]).tag = FALSE_TYPE; /* x194757 */ ((t24744.element)[42]).tag = FALSE_TYPE; /* x194758 */ ((t24744.element)[43]).tag = FALSE_TYPE; /* x194759 */ ((t24744.element)[44]).tag = FALSE_TYPE; /* x194760 */ ((t24744.element)[45]).tag = FALSE_TYPE; /* x194761 */ ((t24744.element)[46]).tag = FALSE_TYPE; /* x194762 */ ((t24744.element)[47]).tag = FALSE_TYPE; /* x194763 */ ((t24744.element)[48]).tag = TRUE_TYPE; /* x194764 */ ((t24744.element)[49]).tag = TRUE_TYPE; /* x194765 */ ((t24744.element)[50]).tag = TRUE_TYPE; /* x194766 */ ((t24744.element)[51]).tag = TRUE_TYPE; /* x194767 */ ((t24744.element)[52]).tag = TRUE_TYPE; /* x194768 */ ((t24744.element)[53]).tag = TRUE_TYPE; /* x194769 */ ((t24744.element)[54]).tag = TRUE_TYPE; /* x194770 */ ((t24744.element)[55]).tag = TRUE_TYPE; /* x194771 */ ((t24744.element)[56]).tag = TRUE_TYPE; /* x194772 */ ((t24744.element)[57]).tag = TRUE_TYPE; /* x194773 */ ((t24744.element)[58]).tag = FALSE_TYPE; /* x194774 */ ((t24744.element)[59]).tag = FALSE_TYPE; /* x194775 */ ((t24744.element)[60]).tag = FALSE_TYPE; /* x194776 */ ((t24744.element)[61]).tag = FALSE_TYPE; /* x194777 */ ((t24744.element)[62]).tag = FALSE_TYPE; /* x194778 */ ((t24744.element)[63]).tag = FALSE_TYPE; /* x194779 */ ((t24744.element)[64]).tag = FALSE_TYPE; /* x194780 */ ((t24744.element)[65]).tag = FALSE_TYPE; /* x194781 */ ((t24744.element)[66]).tag = FALSE_TYPE; /* x194782 */ ((t24744.element)[67]).tag = FALSE_TYPE; /* x194783 */ ((t24744.element)[68]).tag = FALSE_TYPE; /* x194784 */ ((t24744.element)[69]).tag = FALSE_TYPE; /* x194785 */ ((t24744.element)[70]).tag = FALSE_TYPE; /* x194786 */ ((t24744.element)[71]).tag = FALSE_TYPE; /* x194787 */ ((t24744.element)[72]).tag = FALSE_TYPE; /* x194788 */ ((t24744.element)[73]).tag = FALSE_TYPE; /* x194789 */ ((t24744.element)[74]).tag = FALSE_TYPE; /* x194790 */ ((t24744.element)[75]).tag = FALSE_TYPE; /* x194791 */ ((t24744.element)[76]).tag = FALSE_TYPE; /* x194792 */ ((t24744.element)[77]).tag = FALSE_TYPE; /* x194793 */ ((t24744.element)[78]).tag = FALSE_TYPE; /* x194794 */ ((t24744.element)[79]).tag = FALSE_TYPE; /* x194795 */ ((t24744.element)[80]).tag = FALSE_TYPE; /* x194796 */ ((t24744.element)[81]).tag = FALSE_TYPE; /* x194797 */ ((t24744.element)[82]).tag = FALSE_TYPE; /* x194798 */ ((t24744.element)[83]).tag = FALSE_TYPE; /* x194799 */ ((t24744.element)[84]).tag = FALSE_TYPE; /* x194800 */ ((t24744.element)[85]).tag = FALSE_TYPE; /* x194801 */ ((t24744.element)[86]).tag = FALSE_TYPE; /* x194802 */ ((t24744.element)[87]).tag = FALSE_TYPE; /* x194803 */ ((t24744.element)[88]).tag = FALSE_TYPE; /* x194804 */ ((t24744.element)[89]).tag = FALSE_TYPE; /* x194805 */ ((t24744.element)[90]).tag = FALSE_TYPE; /* x194806 */ ((t24744.element)[91]).tag = FALSE_TYPE; /* x194807 */ ((t24744.element)[92]).tag = FALSE_TYPE; /* x194808 */ ((t24744.element)[93]).tag = FALSE_TYPE; /* x194809 */ ((t24744.element)[94]).tag = FALSE_TYPE; /* x194810 */ ((t24744.element)[95]).tag = FALSE_TYPE; /* x194811 */ ((t24744.element)[96]).tag = FALSE_TYPE; /* x194812 */ ((t24744.element)[97]).tag = FALSE_TYPE; /* x194813 */ ((t24744.element)[98]).tag = FALSE_TYPE; /* x194814 */ ((t24744.element)[99]).tag = FALSE_TYPE; /* x194815 */ ((t24744.element)[100]).tag = FALSE_TYPE; /* x194816 */ ((t24744.element)[101]).tag = FALSE_TYPE; /* x194817 */ ((t24744.element)[102]).tag = FALSE_TYPE; /* x194818 */ ((t24744.element)[103]).tag = FALSE_TYPE; /* x194819 */ ((t24744.element)[104]).tag = FALSE_TYPE; /* x194820 */ ((t24744.element)[105]).tag = FALSE_TYPE; /* x194821 */ ((t24744.element)[106]).tag = FALSE_TYPE; /* x194822 */ ((t24744.element)[107]).tag = FALSE_TYPE; /* x194823 */ ((t24744.element)[108]).tag = FALSE_TYPE; /* x194824 */ ((t24744.element)[109]).tag = FALSE_TYPE; /* x194825 */ ((t24744.element)[110]).tag = FALSE_TYPE; /* x194826 */ ((t24744.element)[111]).tag = FALSE_TYPE; /* x194827 */ ((t24744.element)[112]).tag = FALSE_TYPE; /* x194828 */ ((t24744.element)[113]).tag = FALSE_TYPE; /* x194829 */ ((t24744.element)[114]).tag = FALSE_TYPE; /* x194830 */ ((t24744.element)[115]).tag = FALSE_TYPE; /* x194831 */ ((t24744.element)[116]).tag = FALSE_TYPE; /* x194832 */ ((t24744.element)[117]).tag = FALSE_TYPE; /* x194833 */ ((t24744.element)[118]).tag = FALSE_TYPE; /* x194834 */ ((t24744.element)[119]).tag = FALSE_TYPE; /* x194835 */ ((t24744.element)[120]).tag = FALSE_TYPE; /* x194836 */ ((t24744.element)[121]).tag = FALSE_TYPE; /* x194837 */ ((t24744.element)[122]).tag = FALSE_TYPE; /* x194838 */ ((t24744.element)[123]).tag = FALSE_TYPE; /* x194839 */ ((t24744.element)[124]).tag = FALSE_TYPE; /* x194840 */ ((t24744.element)[125]).tag = FALSE_TYPE; /* x194841 */ ((t24744.element)[126]).tag = FALSE_TYPE; /* x194842 */ ((t24744.element)[127]).tag = FALSE_TYPE; /* x194843 */ ((t24744.element)[128]).tag = FALSE_TYPE; /* x194844 */ ((t24744.element)[129]).tag = FALSE_TYPE; /* x194845 */ ((t24744.element)[130]).tag = FALSE_TYPE; /* x194846 */ ((t24744.element)[131]).tag = FALSE_TYPE; /* x194847 */ ((t24744.element)[132]).tag = FALSE_TYPE; /* x194848 */ ((t24744.element)[133]).tag = FALSE_TYPE; /* x194849 */ ((t24744.element)[134]).tag = FALSE_TYPE; /* x194850 */ ((t24744.element)[135]).tag = FALSE_TYPE; /* x194851 */ ((t24744.element)[136]).tag = FALSE_TYPE; /* x194852 */ ((t24744.element)[137]).tag = FALSE_TYPE; /* x194853 */ ((t24744.element)[138]).tag = FALSE_TYPE; /* x194854 */ ((t24744.element)[139]).tag = FALSE_TYPE; /* x194855 */ ((t24744.element)[140]).tag = FALSE_TYPE; /* x194856 */ ((t24744.element)[141]).tag = FALSE_TYPE; /* x194857 */ ((t24744.element)[142]).tag = FALSE_TYPE; /* x194858 */ ((t24744.element)[143]).tag = FALSE_TYPE; /* x194859 */ ((t24744.element)[144]).tag = FALSE_TYPE; /* x194860 */ ((t24744.element)[145]).tag = FALSE_TYPE; /* x194861 */ ((t24744.element)[146]).tag = FALSE_TYPE; /* x194862 */ ((t24744.element)[147]).tag = FALSE_TYPE; /* x194863 */ ((t24744.element)[148]).tag = FALSE_TYPE; /* x194864 */ ((t24744.element)[149]).tag = FALSE_TYPE; /* x194865 */ ((t24744.element)[150]).tag = FALSE_TYPE; /* x194866 */ ((t24744.element)[151]).tag = FALSE_TYPE; /* x194867 */ ((t24744.element)[152]).tag = FALSE_TYPE; /* x194868 */ ((t24744.element)[153]).tag = FALSE_TYPE; /* x194869 */ ((t24744.element)[154]).tag = FALSE_TYPE; /* x194870 */ ((t24744.element)[155]).tag = FALSE_TYPE; /* x194871 */ ((t24744.element)[156]).tag = FALSE_TYPE; /* x194872 */ ((t24744.element)[157]).tag = FALSE_TYPE; /* x194873 */ ((t24744.element)[158]).tag = FALSE_TYPE; /* x194874 */ ((t24744.element)[159]).tag = FALSE_TYPE; /* x194875 */ ((t24744.element)[160]).tag = FALSE_TYPE; /* x194876 */ ((t24744.element)[161]).tag = FALSE_TYPE; /* x194877 */ ((t24744.element)[162]).tag = FALSE_TYPE; /* x194878 */ ((t24744.element)[163]).tag = FALSE_TYPE; /* x194879 */ ((t24744.element)[164]).tag = FALSE_TYPE; /* x194880 */ ((t24744.element)[165]).tag = FALSE_TYPE; /* x194881 */ ((t24744.element)[166]).tag = FALSE_TYPE; /* x194882 */ ((t24744.element)[167]).tag = FALSE_TYPE; /* x194883 */ ((t24744.element)[168]).tag = FALSE_TYPE; /* x194884 */ ((t24744.element)[169]).tag = FALSE_TYPE; /* x194885 */ ((t24744.element)[170]).tag = FALSE_TYPE; /* x194886 */ ((t24744.element)[171]).tag = FALSE_TYPE; /* x194887 */ ((t24744.element)[172]).tag = FALSE_TYPE; /* x194888 */ ((t24744.element)[173]).tag = FALSE_TYPE; /* x194889 */ ((t24744.element)[174]).tag = FALSE_TYPE; /* x194890 */ ((t24744.element)[175]).tag = FALSE_TYPE; /* x194891 */ ((t24744.element)[176]).tag = FALSE_TYPE; /* x194892 */ ((t24744.element)[177]).tag = FALSE_TYPE; /* x194893 */ ((t24744.element)[178]).tag = FALSE_TYPE; /* x194894 */ ((t24744.element)[179]).tag = FALSE_TYPE; /* x194895 */ ((t24744.element)[180]).tag = FALSE_TYPE; /* x194896 */ ((t24744.element)[181]).tag = FALSE_TYPE; /* x194897 */ ((t24744.element)[182]).tag = FALSE_TYPE; /* x194898 */ ((t24744.element)[183]).tag = FALSE_TYPE; /* x194899 */ ((t24744.element)[184]).tag = FALSE_TYPE; /* x194900 */ ((t24744.element)[185]).tag = FALSE_TYPE; /* x194901 */ ((t24744.element)[186]).tag = FALSE_TYPE; /* x194902 */ ((t24744.element)[187]).tag = FALSE_TYPE; /* x194903 */ ((t24744.element)[188]).tag = FALSE_TYPE; /* x194904 */ ((t24744.element)[189]).tag = FALSE_TYPE; /* x194905 */ ((t24744.element)[190]).tag = FALSE_TYPE; /* x194906 */ ((t24744.element)[191]).tag = FALSE_TYPE; /* x194907 */ ((t24744.element)[192]).tag = FALSE_TYPE; /* x194908 */ ((t24744.element)[193]).tag = FALSE_TYPE; /* x194909 */ ((t24744.element)[194]).tag = FALSE_TYPE; /* x194910 */ ((t24744.element)[195]).tag = FALSE_TYPE; /* x194911 */ ((t24744.element)[196]).tag = FALSE_TYPE; /* x194912 */ ((t24744.element)[197]).tag = FALSE_TYPE; /* x194913 */ ((t24744.element)[198]).tag = FALSE_TYPE; /* x194914 */ ((t24744.element)[199]).tag = FALSE_TYPE; /* x194915 */ ((t24744.element)[200]).tag = FALSE_TYPE; /* x194916 */ ((t24744.element)[201]).tag = FALSE_TYPE; /* x194917 */ ((t24744.element)[202]).tag = FALSE_TYPE; /* x194918 */ ((t24744.element)[203]).tag = FALSE_TYPE; /* x194919 */ ((t24744.element)[204]).tag = FALSE_TYPE; /* x194920 */ ((t24744.element)[205]).tag = FALSE_TYPE; /* x194921 */ ((t24744.element)[206]).tag = FALSE_TYPE; /* x194922 */ ((t24744.element)[207]).tag = FALSE_TYPE; /* x194923 */ ((t24744.element)[208]).tag = FALSE_TYPE; /* x194924 */ ((t24744.element)[209]).tag = FALSE_TYPE; /* x194925 */ ((t24744.element)[210]).tag = FALSE_TYPE; /* x194926 */ ((t24744.element)[211]).tag = FALSE_TYPE; /* x194927 */ ((t24744.element)[212]).tag = FALSE_TYPE; /* x194928 */ ((t24744.element)[213]).tag = FALSE_TYPE; /* x194929 */ ((t24744.element)[214]).tag = FALSE_TYPE; /* x194930 */ ((t24744.element)[215]).tag = FALSE_TYPE; /* x194931 */ ((t24744.element)[216]).tag = FALSE_TYPE; /* x194932 */ ((t24744.element)[217]).tag = FALSE_TYPE; /* x194933 */ ((t24744.element)[218]).tag = FALSE_TYPE; /* x194934 */ ((t24744.element)[219]).tag = FALSE_TYPE; /* x194935 */ ((t24744.element)[220]).tag = FALSE_TYPE; /* x194936 */ ((t24744.element)[221]).tag = FALSE_TYPE; /* x194937 */ ((t24744.element)[222]).tag = FALSE_TYPE; /* x194938 */ ((t24744.element)[223]).tag = FALSE_TYPE; /* x194939 */ ((t24744.element)[224]).tag = FALSE_TYPE; /* x194940 */ ((t24744.element)[225]).tag = FALSE_TYPE; /* x194941 */ ((t24744.element)[226]).tag = FALSE_TYPE; /* x194942 */ ((t24744.element)[227]).tag = FALSE_TYPE; /* x194943 */ ((t24744.element)[228]).tag = FALSE_TYPE; /* x194944 */ ((t24744.element)[229]).tag = FALSE_TYPE; /* x194945 */ ((t24744.element)[230]).tag = FALSE_TYPE; /* x194946 */ ((t24744.element)[231]).tag = FALSE_TYPE; /* x194947 */ ((t24744.element)[232]).tag = FALSE_TYPE; /* x194948 */ ((t24744.element)[233]).tag = FALSE_TYPE; /* x194949 */ ((t24744.element)[234]).tag = FALSE_TYPE; /* x194950 */ ((t24744.element)[235]).tag = FALSE_TYPE; /* x194951 */ ((t24744.element)[236]).tag = FALSE_TYPE; /* x194952 */ ((t24744.element)[237]).tag = FALSE_TYPE; /* x194953 */ ((t24744.element)[238]).tag = FALSE_TYPE; /* x194954 */ ((t24744.element)[239]).tag = FALSE_TYPE; /* x194955 */ ((t24744.element)[240]).tag = FALSE_TYPE; /* x194956 */ ((t24744.element)[241]).tag = FALSE_TYPE; /* x194957 */ ((t24744.element)[242]).tag = FALSE_TYPE; /* x194958 */ ((t24744.element)[243]).tag = FALSE_TYPE; /* x194959 */ ((t24744.element)[244]).tag = FALSE_TYPE; /* x194960 */ ((t24744.element)[245]).tag = FALSE_TYPE; /* x194961 */ ((t24744.element)[246]).tag = FALSE_TYPE; /* x194962 */ ((t24744.element)[247]).tag = FALSE_TYPE; /* x194963 */ ((t24744.element)[248]).tag = FALSE_TYPE; /* x194964 */ ((t24744.element)[249]).tag = FALSE_TYPE; /* x194965 */ ((t24744.element)[250]).tag = FALSE_TYPE; /* x194966 */ ((t24744.element)[251]).tag = FALSE_TYPE; /* x194967 */ ((t24744.element)[252]).tag = FALSE_TYPE; /* x194968 */ ((t24744.element)[253]).tag = FALSE_TYPE; /* x194969 */ ((t24744.element)[254]).tag = FALSE_TYPE; /* x194970 */ ((t24744.element)[255]).tag = FALSE_TYPE; /* x194971 */ t24743.s0.tag = HEADED_VECTOR_TYPE27896; t24743.s0.value.headed_vector_type27896 = (struct headed_vector_type27896 *)(&t24744); /* x194972 */ t24743.s1.tag = NULL_TYPE; /* x194973 */ t24742.s1.tag = STRUCTURE_TYPE24753; t24742.s1.value.structure_type24753 = &t24743; /* x194974 */ t24741.s0.tag = STRUCTURE_TYPE24753; t24741.s0.value.structure_type24753 = &t24742; /* x194975 */ t24741.s1.tag = NULL_TYPE; /* x194976 */ t24740.s1.tag = STRUCTURE_TYPE24753; t24740.s1.value.structure_type24753 = &t24741; /* x194977 */ t24739.s0.tag = STRUCTURE_TYPE24753; t24739.s0.value.structure_type24753 = &t24740; /* x194978 */ t24739.s1.tag = NULL_TYPE; /* x194979 */ t24738.s0.tag = STRUCTURE_TYPE24753; t24738.s0.value.structure_type24753 = &t24739; /* x194980 */ t24746.s0.tag = EXTERNAL_SYMBOL_TYPE; t24746.s0.value.external_symbol_type = q39; /* x194981 */ t24748.s0.tag = EXTERNAL_SYMBOL_TYPE; t24748.s0.value.external_symbol_type = q56; /* x194982 */ t24748.s1.tag = NULL_TYPE; /* x194983 */ t24747.s0.tag = STRUCTURE_TYPE24753; t24747.s0.value.structure_type24753 = &t24748; /* x194984 */ t24750.s0.tag = EXTERNAL_SYMBOL_TYPE; t24750.s0.value.external_symbol_type = q169; /* x194985 */ t24751.s0.tag = EXTERNAL_SYMBOL_TYPE; t24751.s0.value.external_symbol_type = q269; /* x194986 */ t24753.s0.tag = EXTERNAL_SYMBOL_TYPE; t24753.s0.value.external_symbol_type = q157; /* x194987 */ t24754.s0.tag = EXTERNAL_SYMBOL_TYPE; t24754.s0.value.external_symbol_type = q56; /* x194988 */ t24754.s1.tag = NULL_TYPE; /* x194989 */ t24753.s1.tag = STRUCTURE_TYPE24753; t24753.s1.value.structure_type24753 = &t24754; /* x194990 */ t24752.s0.tag = STRUCTURE_TYPE24753; t24752.s0.value.structure_type24753 = &t24753; /* x194991 */ t24752.s1.tag = NULL_TYPE; /* x194992 */ t24751.s1.tag = STRUCTURE_TYPE24753; t24751.s1.value.structure_type24753 = &t24752; /* x194993 */ t24750.s1.tag = STRUCTURE_TYPE24753; t24750.s1.value.structure_type24753 = &t24751; /* x194994 */ t24749.s0.tag = STRUCTURE_TYPE24753; t24749.s0.value.structure_type24753 = &t24750; /* x194995 */ t24749.s1.tag = NULL_TYPE; /* x194996 */ t24747.s1.tag = STRUCTURE_TYPE24753; t24747.s1.value.structure_type24753 = &t24749; /* x194997 */ t24746.s1.tag = STRUCTURE_TYPE24753; t24746.s1.value.structure_type24753 = &t24747; /* x194998 */ t24745.s0.tag = STRUCTURE_TYPE24753; t24745.s0.value.structure_type24753 = &t24746; /* x194999 */ t24745.s1.tag = NULL_TYPE; /* x195000 */ t24738.s1.tag = STRUCTURE_TYPE24753; t24738.s1.value.structure_type24753 = &t24745; /* x195001 */ t24737.s1.tag = STRUCTURE_TYPE24753; t24737.s1.value.structure_type24753 = &t24738; /* x195002 */ t24736.s0.tag = STRUCTURE_TYPE24753; t24736.s0.value.structure_type24753 = &t24737; /* x195003 */ t24736.s1.tag = NULL_TYPE; /* x195004 */ t24735.s1.tag = STRUCTURE_TYPE24753; t24735.s1.value.structure_type24753 = &t24736; /* x195005 */ t24734.s1.tag = STRUCTURE_TYPE24753; t24734.s1.value.structure_type24753 = &t24735; /* x195008 */ t24759.s0.tag = EXTERNAL_SYMBOL_TYPE; t24759.s0.value.external_symbol_type = q97; /* x195009 */ t24760.s0.tag = EXTERNAL_SYMBOL_TYPE; t24760.s0.value.external_symbol_type = q293; /* x195010 */ t24762.s0.tag = EXTERNAL_SYMBOL_TYPE; t24762.s0.value.external_symbol_type = q242; /* x195011 */ t24765.s0.tag = EXTERNAL_SYMBOL_TYPE; t24765.s0.value.external_symbol_type = q293; /* x195012 */ t24767.s0.tag = EXTERNAL_SYMBOL_TYPE; t24767.s0.value.external_symbol_type = q11; t24769.length = 256; /* x195013 */ ((t24769.element)[0]).tag = FALSE_TYPE; /* x195014 */ ((t24769.element)[1]).tag = FALSE_TYPE; /* x195015 */ ((t24769.element)[2]).tag = FALSE_TYPE; /* x195016 */ ((t24769.element)[3]).tag = FALSE_TYPE; /* x195017 */ ((t24769.element)[4]).tag = FALSE_TYPE; /* x195018 */ ((t24769.element)[5]).tag = FALSE_TYPE; /* x195019 */ ((t24769.element)[6]).tag = FALSE_TYPE; /* x195020 */ ((t24769.element)[7]).tag = FALSE_TYPE; /* x195021 */ ((t24769.element)[8]).tag = FALSE_TYPE; /* x195022 */ ((t24769.element)[9]).tag = TRUE_TYPE; /* x195023 */ ((t24769.element)[10]).tag = TRUE_TYPE; /* x195024 */ ((t24769.element)[11]).tag = FALSE_TYPE; /* x195025 */ ((t24769.element)[12]).tag = TRUE_TYPE; /* x195026 */ ((t24769.element)[13]).tag = TRUE_TYPE; /* x195027 */ ((t24769.element)[14]).tag = FALSE_TYPE; /* x195028 */ ((t24769.element)[15]).tag = FALSE_TYPE; /* x195029 */ ((t24769.element)[16]).tag = FALSE_TYPE; /* x195030 */ ((t24769.element)[17]).tag = FALSE_TYPE; /* x195031 */ ((t24769.element)[18]).tag = FALSE_TYPE; /* x195032 */ ((t24769.element)[19]).tag = FALSE_TYPE; /* x195033 */ ((t24769.element)[20]).tag = FALSE_TYPE; /* x195034 */ ((t24769.element)[21]).tag = FALSE_TYPE; /* x195035 */ ((t24769.element)[22]).tag = FALSE_TYPE; /* x195036 */ ((t24769.element)[23]).tag = FALSE_TYPE; /* x195037 */ ((t24769.element)[24]).tag = FALSE_TYPE; /* x195038 */ ((t24769.element)[25]).tag = FALSE_TYPE; /* x195039 */ ((t24769.element)[26]).tag = FALSE_TYPE; /* x195040 */ ((t24769.element)[27]).tag = FALSE_TYPE; /* x195041 */ ((t24769.element)[28]).tag = FALSE_TYPE; /* x195042 */ ((t24769.element)[29]).tag = FALSE_TYPE; /* x195043 */ ((t24769.element)[30]).tag = FALSE_TYPE; /* x195044 */ ((t24769.element)[31]).tag = FALSE_TYPE; /* x195045 */ ((t24769.element)[32]).tag = TRUE_TYPE; /* x195046 */ ((t24769.element)[33]).tag = FALSE_TYPE; /* x195047 */ ((t24769.element)[34]).tag = FALSE_TYPE; /* x195048 */ ((t24769.element)[35]).tag = FALSE_TYPE; /* x195049 */ ((t24769.element)[36]).tag = FALSE_TYPE; /* x195050 */ ((t24769.element)[37]).tag = FALSE_TYPE; /* x195051 */ ((t24769.element)[38]).tag = FALSE_TYPE; /* x195052 */ ((t24769.element)[39]).tag = FALSE_TYPE; /* x195053 */ ((t24769.element)[40]).tag = FALSE_TYPE; /* x195054 */ ((t24769.element)[41]).tag = FALSE_TYPE; /* x195055 */ ((t24769.element)[42]).tag = FALSE_TYPE; /* x195056 */ ((t24769.element)[43]).tag = FALSE_TYPE; /* x195057 */ ((t24769.element)[44]).tag = FALSE_TYPE; /* x195058 */ ((t24769.element)[45]).tag = FALSE_TYPE; /* x195059 */ ((t24769.element)[46]).tag = FALSE_TYPE; /* x195060 */ ((t24769.element)[47]).tag = FALSE_TYPE; /* x195061 */ ((t24769.element)[48]).tag = FALSE_TYPE; /* x195062 */ ((t24769.element)[49]).tag = FALSE_TYPE; /* x195063 */ ((t24769.element)[50]).tag = FALSE_TYPE; /* x195064 */ ((t24769.element)[51]).tag = FALSE_TYPE; /* x195065 */ ((t24769.element)[52]).tag = FALSE_TYPE; /* x195066 */ ((t24769.element)[53]).tag = FALSE_TYPE; /* x195067 */ ((t24769.element)[54]).tag = FALSE_TYPE; /* x195068 */ ((t24769.element)[55]).tag = FALSE_TYPE; /* x195069 */ ((t24769.element)[56]).tag = FALSE_TYPE; /* x195070 */ ((t24769.element)[57]).tag = FALSE_TYPE; /* x195071 */ ((t24769.element)[58]).tag = FALSE_TYPE; /* x195072 */ ((t24769.element)[59]).tag = FALSE_TYPE; /* x195073 */ ((t24769.element)[60]).tag = FALSE_TYPE; /* x195074 */ ((t24769.element)[61]).tag = FALSE_TYPE; /* x195075 */ ((t24769.element)[62]).tag = FALSE_TYPE; /* x195076 */ ((t24769.element)[63]).tag = FALSE_TYPE; /* x195077 */ ((t24769.element)[64]).tag = FALSE_TYPE; /* x195078 */ ((t24769.element)[65]).tag = FALSE_TYPE; /* x195079 */ ((t24769.element)[66]).tag = FALSE_TYPE; /* x195080 */ ((t24769.element)[67]).tag = FALSE_TYPE; /* x195081 */ ((t24769.element)[68]).tag = FALSE_TYPE; /* x195082 */ ((t24769.element)[69]).tag = FALSE_TYPE; /* x195083 */ ((t24769.element)[70]).tag = FALSE_TYPE; /* x195084 */ ((t24769.element)[71]).tag = FALSE_TYPE; /* x195085 */ ((t24769.element)[72]).tag = FALSE_TYPE; /* x195086 */ ((t24769.element)[73]).tag = FALSE_TYPE; /* x195087 */ ((t24769.element)[74]).tag = FALSE_TYPE; /* x195088 */ ((t24769.element)[75]).tag = FALSE_TYPE; /* x195089 */ ((t24769.element)[76]).tag = FALSE_TYPE; /* x195090 */ ((t24769.element)[77]).tag = FALSE_TYPE; /* x195091 */ ((t24769.element)[78]).tag = FALSE_TYPE; /* x195092 */ ((t24769.element)[79]).tag = FALSE_TYPE; /* x195093 */ ((t24769.element)[80]).tag = FALSE_TYPE; /* x195094 */ ((t24769.element)[81]).tag = FALSE_TYPE; /* x195095 */ ((t24769.element)[82]).tag = FALSE_TYPE; /* x195096 */ ((t24769.element)[83]).tag = FALSE_TYPE; /* x195097 */ ((t24769.element)[84]).tag = FALSE_TYPE; /* x195098 */ ((t24769.element)[85]).tag = FALSE_TYPE; /* x195099 */ ((t24769.element)[86]).tag = FALSE_TYPE; /* x195100 */ ((t24769.element)[87]).tag = FALSE_TYPE; /* x195101 */ ((t24769.element)[88]).tag = FALSE_TYPE; /* x195102 */ ((t24769.element)[89]).tag = FALSE_TYPE; /* x195103 */ ((t24769.element)[90]).tag = FALSE_TYPE; /* x195104 */ ((t24769.element)[91]).tag = FALSE_TYPE; /* x195105 */ ((t24769.element)[92]).tag = FALSE_TYPE; /* x195106 */ ((t24769.element)[93]).tag = FALSE_TYPE; /* x195107 */ ((t24769.element)[94]).tag = FALSE_TYPE; /* x195108 */ ((t24769.element)[95]).tag = FALSE_TYPE; /* x195109 */ ((t24769.element)[96]).tag = FALSE_TYPE; /* x195110 */ ((t24769.element)[97]).tag = FALSE_TYPE; /* x195111 */ ((t24769.element)[98]).tag = FALSE_TYPE; /* x195112 */ ((t24769.element)[99]).tag = FALSE_TYPE; /* x195113 */ ((t24769.element)[100]).tag = FALSE_TYPE; /* x195114 */ ((t24769.element)[101]).tag = FALSE_TYPE; /* x195115 */ ((t24769.element)[102]).tag = FALSE_TYPE; /* x195116 */ ((t24769.element)[103]).tag = FALSE_TYPE; /* x195117 */ ((t24769.element)[104]).tag = FALSE_TYPE; /* x195118 */ ((t24769.element)[105]).tag = FALSE_TYPE; /* x195119 */ ((t24769.element)[106]).tag = FALSE_TYPE; /* x195120 */ ((t24769.element)[107]).tag = FALSE_TYPE; /* x195121 */ ((t24769.element)[108]).tag = FALSE_TYPE; /* x195122 */ ((t24769.element)[109]).tag = FALSE_TYPE; /* x195123 */ ((t24769.element)[110]).tag = FALSE_TYPE; /* x195124 */ ((t24769.element)[111]).tag = FALSE_TYPE; /* x195125 */ ((t24769.element)[112]).tag = FALSE_TYPE; /* x195126 */ ((t24769.element)[113]).tag = FALSE_TYPE; /* x195127 */ ((t24769.element)[114]).tag = FALSE_TYPE; /* x195128 */ ((t24769.element)[115]).tag = FALSE_TYPE; /* x195129 */ ((t24769.element)[116]).tag = FALSE_TYPE; /* x195130 */ ((t24769.element)[117]).tag = FALSE_TYPE; /* x195131 */ ((t24769.element)[118]).tag = FALSE_TYPE; /* x195132 */ ((t24769.element)[119]).tag = FALSE_TYPE; /* x195133 */ ((t24769.element)[120]).tag = FALSE_TYPE; /* x195134 */ ((t24769.element)[121]).tag = FALSE_TYPE; /* x195135 */ ((t24769.element)[122]).tag = FALSE_TYPE; /* x195136 */ ((t24769.element)[123]).tag = FALSE_TYPE; /* x195137 */ ((t24769.element)[124]).tag = FALSE_TYPE; /* x195138 */ ((t24769.element)[125]).tag = FALSE_TYPE; /* x195139 */ ((t24769.element)[126]).tag = FALSE_TYPE; /* x195140 */ ((t24769.element)[127]).tag = FALSE_TYPE; /* x195141 */ ((t24769.element)[128]).tag = FALSE_TYPE; /* x195142 */ ((t24769.element)[129]).tag = FALSE_TYPE; /* x195143 */ ((t24769.element)[130]).tag = FALSE_TYPE; /* x195144 */ ((t24769.element)[131]).tag = FALSE_TYPE; /* x195145 */ ((t24769.element)[132]).tag = FALSE_TYPE; /* x195146 */ ((t24769.element)[133]).tag = FALSE_TYPE; /* x195147 */ ((t24769.element)[134]).tag = FALSE_TYPE; /* x195148 */ ((t24769.element)[135]).tag = FALSE_TYPE; /* x195149 */ ((t24769.element)[136]).tag = FALSE_TYPE; /* x195150 */ ((t24769.element)[137]).tag = FALSE_TYPE; /* x195151 */ ((t24769.element)[138]).tag = FALSE_TYPE; /* x195152 */ ((t24769.element)[139]).tag = FALSE_TYPE; /* x195153 */ ((t24769.element)[140]).tag = FALSE_TYPE; /* x195154 */ ((t24769.element)[141]).tag = FALSE_TYPE; /* x195155 */ ((t24769.element)[142]).tag = FALSE_TYPE; /* x195156 */ ((t24769.element)[143]).tag = FALSE_TYPE; /* x195157 */ ((t24769.element)[144]).tag = FALSE_TYPE; /* x195158 */ ((t24769.element)[145]).tag = FALSE_TYPE; /* x195159 */ ((t24769.element)[146]).tag = FALSE_TYPE; /* x195160 */ ((t24769.element)[147]).tag = FALSE_TYPE; /* x195161 */ ((t24769.element)[148]).tag = FALSE_TYPE; /* x195162 */ ((t24769.element)[149]).tag = FALSE_TYPE; /* x195163 */ ((t24769.element)[150]).tag = FALSE_TYPE; /* x195164 */ ((t24769.element)[151]).tag = FALSE_TYPE; /* x195165 */ ((t24769.element)[152]).tag = FALSE_TYPE; /* x195166 */ ((t24769.element)[153]).tag = FALSE_TYPE; /* x195167 */ ((t24769.element)[154]).tag = FALSE_TYPE; /* x195168 */ ((t24769.element)[155]).tag = FALSE_TYPE; /* x195169 */ ((t24769.element)[156]).tag = FALSE_TYPE; /* x195170 */ ((t24769.element)[157]).tag = FALSE_TYPE; /* x195171 */ ((t24769.element)[158]).tag = FALSE_TYPE; /* x195172 */ ((t24769.element)[159]).tag = FALSE_TYPE; /* x195173 */ ((t24769.element)[160]).tag = FALSE_TYPE; /* x195174 */ ((t24769.element)[161]).tag = FALSE_TYPE; /* x195175 */ ((t24769.element)[162]).tag = FALSE_TYPE; /* x195176 */ ((t24769.element)[163]).tag = FALSE_TYPE; /* x195177 */ ((t24769.element)[164]).tag = FALSE_TYPE; /* x195178 */ ((t24769.element)[165]).tag = FALSE_TYPE; /* x195179 */ ((t24769.element)[166]).tag = FALSE_TYPE; /* x195180 */ ((t24769.element)[167]).tag = FALSE_TYPE; /* x195181 */ ((t24769.element)[168]).tag = FALSE_TYPE; /* x195182 */ ((t24769.element)[169]).tag = FALSE_TYPE; /* x195183 */ ((t24769.element)[170]).tag = FALSE_TYPE; /* x195184 */ ((t24769.element)[171]).tag = FALSE_TYPE; /* x195185 */ ((t24769.element)[172]).tag = FALSE_TYPE; /* x195186 */ ((t24769.element)[173]).tag = FALSE_TYPE; /* x195187 */ ((t24769.element)[174]).tag = FALSE_TYPE; /* x195188 */ ((t24769.element)[175]).tag = FALSE_TYPE; /* x195189 */ ((t24769.element)[176]).tag = FALSE_TYPE; /* x195190 */ ((t24769.element)[177]).tag = FALSE_TYPE; /* x195191 */ ((t24769.element)[178]).tag = FALSE_TYPE; /* x195192 */ ((t24769.element)[179]).tag = FALSE_TYPE; /* x195193 */ ((t24769.element)[180]).tag = FALSE_TYPE; /* x195194 */ ((t24769.element)[181]).tag = FALSE_TYPE; /* x195195 */ ((t24769.element)[182]).tag = FALSE_TYPE; /* x195196 */ ((t24769.element)[183]).tag = FALSE_TYPE; /* x195197 */ ((t24769.element)[184]).tag = FALSE_TYPE; /* x195198 */ ((t24769.element)[185]).tag = FALSE_TYPE; /* x195199 */ ((t24769.element)[186]).tag = FALSE_TYPE; /* x195200 */ ((t24769.element)[187]).tag = FALSE_TYPE; /* x195201 */ ((t24769.element)[188]).tag = FALSE_TYPE; /* x195202 */ ((t24769.element)[189]).tag = FALSE_TYPE; /* x195203 */ ((t24769.element)[190]).tag = FALSE_TYPE; /* x195204 */ ((t24769.element)[191]).tag = FALSE_TYPE; /* x195205 */ ((t24769.element)[192]).tag = FALSE_TYPE; /* x195206 */ ((t24769.element)[193]).tag = FALSE_TYPE; /* x195207 */ ((t24769.element)[194]).tag = FALSE_TYPE; /* x195208 */ ((t24769.element)[195]).tag = FALSE_TYPE; /* x195209 */ ((t24769.element)[196]).tag = FALSE_TYPE; /* x195210 */ ((t24769.element)[197]).tag = FALSE_TYPE; /* x195211 */ ((t24769.element)[198]).tag = FALSE_TYPE; /* x195212 */ ((t24769.element)[199]).tag = FALSE_TYPE; /* x195213 */ ((t24769.element)[200]).tag = FALSE_TYPE; /* x195214 */ ((t24769.element)[201]).tag = FALSE_TYPE; /* x195215 */ ((t24769.element)[202]).tag = FALSE_TYPE; /* x195216 */ ((t24769.element)[203]).tag = FALSE_TYPE; /* x195217 */ ((t24769.element)[204]).tag = FALSE_TYPE; /* x195218 */ ((t24769.element)[205]).tag = FALSE_TYPE; /* x195219 */ ((t24769.element)[206]).tag = FALSE_TYPE; /* x195220 */ ((t24769.element)[207]).tag = FALSE_TYPE; /* x195221 */ ((t24769.element)[208]).tag = FALSE_TYPE; /* x195222 */ ((t24769.element)[209]).tag = FALSE_TYPE; /* x195223 */ ((t24769.element)[210]).tag = FALSE_TYPE; /* x195224 */ ((t24769.element)[211]).tag = FALSE_TYPE; /* x195225 */ ((t24769.element)[212]).tag = FALSE_TYPE; /* x195226 */ ((t24769.element)[213]).tag = FALSE_TYPE; /* x195227 */ ((t24769.element)[214]).tag = FALSE_TYPE; /* x195228 */ ((t24769.element)[215]).tag = FALSE_TYPE; /* x195229 */ ((t24769.element)[216]).tag = FALSE_TYPE; /* x195230 */ ((t24769.element)[217]).tag = FALSE_TYPE; /* x195231 */ ((t24769.element)[218]).tag = FALSE_TYPE; /* x195232 */ ((t24769.element)[219]).tag = FALSE_TYPE; /* x195233 */ ((t24769.element)[220]).tag = FALSE_TYPE; /* x195234 */ ((t24769.element)[221]).tag = FALSE_TYPE; /* x195235 */ ((t24769.element)[222]).tag = FALSE_TYPE; /* x195236 */ ((t24769.element)[223]).tag = FALSE_TYPE; /* x195237 */ ((t24769.element)[224]).tag = FALSE_TYPE; /* x195238 */ ((t24769.element)[225]).tag = FALSE_TYPE; /* x195239 */ ((t24769.element)[226]).tag = FALSE_TYPE; /* x195240 */ ((t24769.element)[227]).tag = FALSE_TYPE; /* x195241 */ ((t24769.element)[228]).tag = FALSE_TYPE; /* x195242 */ ((t24769.element)[229]).tag = FALSE_TYPE; /* x195243 */ ((t24769.element)[230]).tag = FALSE_TYPE; /* x195244 */ ((t24769.element)[231]).tag = FALSE_TYPE; /* x195245 */ ((t24769.element)[232]).tag = FALSE_TYPE; /* x195246 */ ((t24769.element)[233]).tag = FALSE_TYPE; /* x195247 */ ((t24769.element)[234]).tag = FALSE_TYPE; /* x195248 */ ((t24769.element)[235]).tag = FALSE_TYPE; /* x195249 */ ((t24769.element)[236]).tag = FALSE_TYPE; /* x195250 */ ((t24769.element)[237]).tag = FALSE_TYPE; /* x195251 */ ((t24769.element)[238]).tag = FALSE_TYPE; /* x195252 */ ((t24769.element)[239]).tag = FALSE_TYPE; /* x195253 */ ((t24769.element)[240]).tag = FALSE_TYPE; /* x195254 */ ((t24769.element)[241]).tag = FALSE_TYPE; /* x195255 */ ((t24769.element)[242]).tag = FALSE_TYPE; /* x195256 */ ((t24769.element)[243]).tag = FALSE_TYPE; /* x195257 */ ((t24769.element)[244]).tag = FALSE_TYPE; /* x195258 */ ((t24769.element)[245]).tag = FALSE_TYPE; /* x195259 */ ((t24769.element)[246]).tag = FALSE_TYPE; /* x195260 */ ((t24769.element)[247]).tag = FALSE_TYPE; /* x195261 */ ((t24769.element)[248]).tag = FALSE_TYPE; /* x195262 */ ((t24769.element)[249]).tag = FALSE_TYPE; /* x195263 */ ((t24769.element)[250]).tag = FALSE_TYPE; /* x195264 */ ((t24769.element)[251]).tag = FALSE_TYPE; /* x195265 */ ((t24769.element)[252]).tag = FALSE_TYPE; /* x195266 */ ((t24769.element)[253]).tag = FALSE_TYPE; /* x195267 */ ((t24769.element)[254]).tag = FALSE_TYPE; /* x195268 */ ((t24769.element)[255]).tag = FALSE_TYPE; /* x195269 */ t24768.s0.tag = HEADED_VECTOR_TYPE27896; t24768.s0.value.headed_vector_type27896 = (struct headed_vector_type27896 *)(&t24769); /* x195270 */ t24768.s1.tag = NULL_TYPE; /* x195271 */ t24767.s1.tag = STRUCTURE_TYPE24753; t24767.s1.value.structure_type24753 = &t24768; /* x195272 */ t24766.s0.tag = STRUCTURE_TYPE24753; t24766.s0.value.structure_type24753 = &t24767; /* x195273 */ t24766.s1.tag = NULL_TYPE; /* x195274 */ t24765.s1.tag = STRUCTURE_TYPE24753; t24765.s1.value.structure_type24753 = &t24766; /* x195275 */ t24764.s0.tag = STRUCTURE_TYPE24753; t24764.s0.value.structure_type24753 = &t24765; /* x195276 */ t24764.s1.tag = NULL_TYPE; /* x195277 */ t24763.s0.tag = STRUCTURE_TYPE24753; t24763.s0.value.structure_type24753 = &t24764; /* x195278 */ t24771.s0.tag = EXTERNAL_SYMBOL_TYPE; t24771.s0.value.external_symbol_type = q39; /* x195279 */ t24773.s0.tag = EXTERNAL_SYMBOL_TYPE; t24773.s0.value.external_symbol_type = q56; /* x195280 */ t24773.s1.tag = NULL_TYPE; /* x195281 */ t24772.s0.tag = STRUCTURE_TYPE24753; t24772.s0.value.structure_type24753 = &t24773; /* x195282 */ t24775.s0.tag = EXTERNAL_SYMBOL_TYPE; t24775.s0.value.external_symbol_type = q169; /* x195283 */ t24776.s0.tag = EXTERNAL_SYMBOL_TYPE; t24776.s0.value.external_symbol_type = q293; /* x195284 */ t24778.s0.tag = EXTERNAL_SYMBOL_TYPE; t24778.s0.value.external_symbol_type = q157; /* x195285 */ t24779.s0.tag = EXTERNAL_SYMBOL_TYPE; t24779.s0.value.external_symbol_type = q56; /* x195286 */ t24779.s1.tag = NULL_TYPE; /* x195287 */ t24778.s1.tag = STRUCTURE_TYPE24753; t24778.s1.value.structure_type24753 = &t24779; /* x195288 */ t24777.s0.tag = STRUCTURE_TYPE24753; t24777.s0.value.structure_type24753 = &t24778; /* x195289 */ t24777.s1.tag = NULL_TYPE; /* x195290 */ t24776.s1.tag = STRUCTURE_TYPE24753; t24776.s1.value.structure_type24753 = &t24777; /* x195291 */ t24775.s1.tag = STRUCTURE_TYPE24753; t24775.s1.value.structure_type24753 = &t24776; /* x195292 */ t24774.s0.tag = STRUCTURE_TYPE24753; t24774.s0.value.structure_type24753 = &t24775; /* x195293 */ t24774.s1.tag = NULL_TYPE;} void initialize_constants18(void) {/* x195294 */ t24772.s1.tag = STRUCTURE_TYPE24753; t24772.s1.value.structure_type24753 = &t24774; /* x195295 */ t24771.s1.tag = STRUCTURE_TYPE24753; t24771.s1.value.structure_type24753 = &t24772; /* x195296 */ t24770.s0.tag = STRUCTURE_TYPE24753; t24770.s0.value.structure_type24753 = &t24771; /* x195297 */ t24770.s1.tag = NULL_TYPE; /* x195298 */ t24763.s1.tag = STRUCTURE_TYPE24753; t24763.s1.value.structure_type24753 = &t24770; /* x195299 */ t24762.s1.tag = STRUCTURE_TYPE24753; t24762.s1.value.structure_type24753 = &t24763; /* x195300 */ t24761.s0.tag = STRUCTURE_TYPE24753; t24761.s0.value.structure_type24753 = &t24762; /* x195301 */ t24761.s1.tag = NULL_TYPE; /* x195302 */ t24760.s1.tag = STRUCTURE_TYPE24753; t24760.s1.value.structure_type24753 = &t24761; /* x195303 */ t24759.s1.tag = STRUCTURE_TYPE24753; t24759.s1.value.structure_type24753 = &t24760; /* x195306 */ t24784.s0.tag = EXTERNAL_SYMBOL_TYPE; t24784.s0.value.external_symbol_type = q97; /* x195307 */ t24785.s0.tag = EXTERNAL_SYMBOL_TYPE; t24785.s0.value.external_symbol_type = q464; /* x195308 */ t24787.s0.tag = EXTERNAL_SYMBOL_TYPE; t24787.s0.value.external_symbol_type = q242; /* x195309 */ t24790.s0.tag = EXTERNAL_SYMBOL_TYPE; t24790.s0.value.external_symbol_type = q464; /* x195310 */ t24792.s0.tag = EXTERNAL_SYMBOL_TYPE; t24792.s0.value.external_symbol_type = q11; t24794.length = 256; /* x195311 */ ((t24794.element)[0]).tag = FALSE_TYPE; /* x195312 */ ((t24794.element)[1]).tag = FALSE_TYPE; /* x195313 */ ((t24794.element)[2]).tag = FALSE_TYPE; /* x195314 */ ((t24794.element)[3]).tag = FALSE_TYPE; /* x195315 */ ((t24794.element)[4]).tag = FALSE_TYPE; /* x195316 */ ((t24794.element)[5]).tag = FALSE_TYPE; /* x195317 */ ((t24794.element)[6]).tag = FALSE_TYPE; /* x195318 */ ((t24794.element)[7]).tag = FALSE_TYPE; /* x195319 */ ((t24794.element)[8]).tag = FALSE_TYPE; /* x195320 */ ((t24794.element)[9]).tag = FALSE_TYPE; /* x195321 */ ((t24794.element)[10]).tag = FALSE_TYPE; /* x195322 */ ((t24794.element)[11]).tag = FALSE_TYPE; /* x195323 */ ((t24794.element)[12]).tag = FALSE_TYPE; /* x195324 */ ((t24794.element)[13]).tag = FALSE_TYPE; /* x195325 */ ((t24794.element)[14]).tag = FALSE_TYPE; /* x195326 */ ((t24794.element)[15]).tag = FALSE_TYPE; /* x195327 */ ((t24794.element)[16]).tag = FALSE_TYPE; /* x195328 */ ((t24794.element)[17]).tag = FALSE_TYPE; /* x195329 */ ((t24794.element)[18]).tag = FALSE_TYPE; /* x195330 */ ((t24794.element)[19]).tag = FALSE_TYPE; /* x195331 */ ((t24794.element)[20]).tag = FALSE_TYPE; /* x195332 */ ((t24794.element)[21]).tag = FALSE_TYPE; /* x195333 */ ((t24794.element)[22]).tag = FALSE_TYPE; /* x195334 */ ((t24794.element)[23]).tag = FALSE_TYPE; /* x195335 */ ((t24794.element)[24]).tag = FALSE_TYPE; /* x195336 */ ((t24794.element)[25]).tag = FALSE_TYPE; /* x195337 */ ((t24794.element)[26]).tag = FALSE_TYPE; /* x195338 */ ((t24794.element)[27]).tag = FALSE_TYPE; /* x195339 */ ((t24794.element)[28]).tag = FALSE_TYPE; /* x195340 */ ((t24794.element)[29]).tag = FALSE_TYPE; /* x195341 */ ((t24794.element)[30]).tag = FALSE_TYPE; /* x195342 */ ((t24794.element)[31]).tag = FALSE_TYPE; /* x195343 */ ((t24794.element)[32]).tag = FALSE_TYPE; /* x195344 */ ((t24794.element)[33]).tag = FALSE_TYPE; /* x195345 */ ((t24794.element)[34]).tag = FALSE_TYPE; /* x195346 */ ((t24794.element)[35]).tag = FALSE_TYPE; /* x195347 */ ((t24794.element)[36]).tag = FALSE_TYPE; /* x195348 */ ((t24794.element)[37]).tag = FALSE_TYPE; /* x195349 */ ((t24794.element)[38]).tag = FALSE_TYPE; /* x195350 */ ((t24794.element)[39]).tag = FALSE_TYPE; /* x195351 */ ((t24794.element)[40]).tag = FALSE_TYPE; /* x195352 */ ((t24794.element)[41]).tag = FALSE_TYPE; /* x195353 */ ((t24794.element)[42]).tag = FALSE_TYPE; /* x195354 */ ((t24794.element)[43]).tag = FALSE_TYPE; /* x195355 */ ((t24794.element)[44]).tag = FALSE_TYPE; /* x195356 */ ((t24794.element)[45]).tag = FALSE_TYPE; /* x195357 */ ((t24794.element)[46]).tag = FALSE_TYPE; /* x195358 */ ((t24794.element)[47]).tag = FALSE_TYPE; /* x195359 */ ((t24794.element)[48]).tag = FALSE_TYPE; /* x195360 */ ((t24794.element)[49]).tag = FALSE_TYPE; /* x195361 */ ((t24794.element)[50]).tag = FALSE_TYPE; /* x195362 */ ((t24794.element)[51]).tag = FALSE_TYPE; /* x195363 */ ((t24794.element)[52]).tag = FALSE_TYPE; /* x195364 */ ((t24794.element)[53]).tag = FALSE_TYPE; /* x195365 */ ((t24794.element)[54]).tag = FALSE_TYPE; /* x195366 */ ((t24794.element)[55]).tag = FALSE_TYPE; /* x195367 */ ((t24794.element)[56]).tag = FALSE_TYPE; /* x195368 */ ((t24794.element)[57]).tag = FALSE_TYPE; /* x195369 */ ((t24794.element)[58]).tag = FALSE_TYPE; /* x195370 */ ((t24794.element)[59]).tag = FALSE_TYPE; /* x195371 */ ((t24794.element)[60]).tag = FALSE_TYPE; /* x195372 */ ((t24794.element)[61]).tag = FALSE_TYPE; /* x195373 */ ((t24794.element)[62]).tag = FALSE_TYPE; /* x195374 */ ((t24794.element)[63]).tag = FALSE_TYPE; /* x195375 */ ((t24794.element)[64]).tag = FALSE_TYPE; /* x195376 */ ((t24794.element)[65]).tag = TRUE_TYPE; /* x195377 */ ((t24794.element)[66]).tag = TRUE_TYPE; /* x195378 */ ((t24794.element)[67]).tag = TRUE_TYPE; /* x195379 */ ((t24794.element)[68]).tag = TRUE_TYPE; /* x195380 */ ((t24794.element)[69]).tag = TRUE_TYPE; /* x195381 */ ((t24794.element)[70]).tag = TRUE_TYPE; /* x195382 */ ((t24794.element)[71]).tag = TRUE_TYPE; /* x195383 */ ((t24794.element)[72]).tag = TRUE_TYPE; /* x195384 */ ((t24794.element)[73]).tag = TRUE_TYPE; /* x195385 */ ((t24794.element)[74]).tag = TRUE_TYPE; /* x195386 */ ((t24794.element)[75]).tag = TRUE_TYPE; /* x195387 */ ((t24794.element)[76]).tag = TRUE_TYPE; /* x195388 */ ((t24794.element)[77]).tag = TRUE_TYPE; /* x195389 */ ((t24794.element)[78]).tag = TRUE_TYPE; /* x195390 */ ((t24794.element)[79]).tag = TRUE_TYPE; /* x195391 */ ((t24794.element)[80]).tag = TRUE_TYPE; /* x195392 */ ((t24794.element)[81]).tag = TRUE_TYPE; /* x195393 */ ((t24794.element)[82]).tag = TRUE_TYPE; /* x195394 */ ((t24794.element)[83]).tag = TRUE_TYPE; /* x195395 */ ((t24794.element)[84]).tag = TRUE_TYPE; /* x195396 */ ((t24794.element)[85]).tag = TRUE_TYPE; /* x195397 */ ((t24794.element)[86]).tag = TRUE_TYPE; /* x195398 */ ((t24794.element)[87]).tag = TRUE_TYPE; /* x195399 */ ((t24794.element)[88]).tag = TRUE_TYPE; /* x195400 */ ((t24794.element)[89]).tag = TRUE_TYPE; /* x195401 */ ((t24794.element)[90]).tag = TRUE_TYPE; /* x195402 */ ((t24794.element)[91]).tag = FALSE_TYPE; /* x195403 */ ((t24794.element)[92]).tag = FALSE_TYPE; /* x195404 */ ((t24794.element)[93]).tag = FALSE_TYPE; /* x195405 */ ((t24794.element)[94]).tag = FALSE_TYPE; /* x195406 */ ((t24794.element)[95]).tag = FALSE_TYPE; /* x195407 */ ((t24794.element)[96]).tag = FALSE_TYPE; /* x195408 */ ((t24794.element)[97]).tag = FALSE_TYPE; /* x195409 */ ((t24794.element)[98]).tag = FALSE_TYPE; /* x195410 */ ((t24794.element)[99]).tag = FALSE_TYPE; /* x195411 */ ((t24794.element)[100]).tag = FALSE_TYPE; /* x195412 */ ((t24794.element)[101]).tag = FALSE_TYPE; /* x195413 */ ((t24794.element)[102]).tag = FALSE_TYPE; /* x195414 */ ((t24794.element)[103]).tag = FALSE_TYPE; /* x195415 */ ((t24794.element)[104]).tag = FALSE_TYPE; /* x195416 */ ((t24794.element)[105]).tag = FALSE_TYPE; /* x195417 */ ((t24794.element)[106]).tag = FALSE_TYPE; /* x195418 */ ((t24794.element)[107]).tag = FALSE_TYPE; /* x195419 */ ((t24794.element)[108]).tag = FALSE_TYPE; /* x195420 */ ((t24794.element)[109]).tag = FALSE_TYPE; /* x195421 */ ((t24794.element)[110]).tag = FALSE_TYPE; /* x195422 */ ((t24794.element)[111]).tag = FALSE_TYPE; /* x195423 */ ((t24794.element)[112]).tag = FALSE_TYPE; /* x195424 */ ((t24794.element)[113]).tag = FALSE_TYPE; /* x195425 */ ((t24794.element)[114]).tag = FALSE_TYPE; /* x195426 */ ((t24794.element)[115]).tag = FALSE_TYPE; /* x195427 */ ((t24794.element)[116]).tag = FALSE_TYPE; /* x195428 */ ((t24794.element)[117]).tag = FALSE_TYPE; /* x195429 */ ((t24794.element)[118]).tag = FALSE_TYPE; /* x195430 */ ((t24794.element)[119]).tag = FALSE_TYPE; /* x195431 */ ((t24794.element)[120]).tag = FALSE_TYPE; /* x195432 */ ((t24794.element)[121]).tag = FALSE_TYPE; /* x195433 */ ((t24794.element)[122]).tag = FALSE_TYPE; /* x195434 */ ((t24794.element)[123]).tag = FALSE_TYPE; /* x195435 */ ((t24794.element)[124]).tag = FALSE_TYPE; /* x195436 */ ((t24794.element)[125]).tag = FALSE_TYPE; /* x195437 */ ((t24794.element)[126]).tag = FALSE_TYPE; /* x195438 */ ((t24794.element)[127]).tag = FALSE_TYPE; /* x195439 */ ((t24794.element)[128]).tag = FALSE_TYPE; /* x195440 */ ((t24794.element)[129]).tag = FALSE_TYPE; /* x195441 */ ((t24794.element)[130]).tag = FALSE_TYPE; /* x195442 */ ((t24794.element)[131]).tag = FALSE_TYPE; /* x195443 */ ((t24794.element)[132]).tag = FALSE_TYPE; /* x195444 */ ((t24794.element)[133]).tag = FALSE_TYPE; /* x195445 */ ((t24794.element)[134]).tag = FALSE_TYPE; /* x195446 */ ((t24794.element)[135]).tag = FALSE_TYPE; /* x195447 */ ((t24794.element)[136]).tag = FALSE_TYPE; /* x195448 */ ((t24794.element)[137]).tag = FALSE_TYPE; /* x195449 */ ((t24794.element)[138]).tag = FALSE_TYPE; /* x195450 */ ((t24794.element)[139]).tag = FALSE_TYPE; /* x195451 */ ((t24794.element)[140]).tag = FALSE_TYPE; /* x195452 */ ((t24794.element)[141]).tag = FALSE_TYPE; /* x195453 */ ((t24794.element)[142]).tag = FALSE_TYPE; /* x195454 */ ((t24794.element)[143]).tag = FALSE_TYPE; /* x195455 */ ((t24794.element)[144]).tag = FALSE_TYPE; /* x195456 */ ((t24794.element)[145]).tag = FALSE_TYPE; /* x195457 */ ((t24794.element)[146]).tag = FALSE_TYPE; /* x195458 */ ((t24794.element)[147]).tag = FALSE_TYPE; /* x195459 */ ((t24794.element)[148]).tag = FALSE_TYPE; /* x195460 */ ((t24794.element)[149]).tag = FALSE_TYPE; /* x195461 */ ((t24794.element)[150]).tag = FALSE_TYPE; /* x195462 */ ((t24794.element)[151]).tag = FALSE_TYPE; /* x195463 */ ((t24794.element)[152]).tag = FALSE_TYPE; /* x195464 */ ((t24794.element)[153]).tag = FALSE_TYPE; /* x195465 */ ((t24794.element)[154]).tag = FALSE_TYPE; /* x195466 */ ((t24794.element)[155]).tag = FALSE_TYPE; /* x195467 */ ((t24794.element)[156]).tag = FALSE_TYPE; /* x195468 */ ((t24794.element)[157]).tag = FALSE_TYPE; /* x195469 */ ((t24794.element)[158]).tag = FALSE_TYPE; /* x195470 */ ((t24794.element)[159]).tag = FALSE_TYPE; /* x195471 */ ((t24794.element)[160]).tag = FALSE_TYPE; /* x195472 */ ((t24794.element)[161]).tag = FALSE_TYPE; /* x195473 */ ((t24794.element)[162]).tag = FALSE_TYPE; /* x195474 */ ((t24794.element)[163]).tag = FALSE_TYPE; /* x195475 */ ((t24794.element)[164]).tag = FALSE_TYPE; /* x195476 */ ((t24794.element)[165]).tag = FALSE_TYPE; /* x195477 */ ((t24794.element)[166]).tag = FALSE_TYPE; /* x195478 */ ((t24794.element)[167]).tag = FALSE_TYPE; /* x195479 */ ((t24794.element)[168]).tag = FALSE_TYPE; /* x195480 */ ((t24794.element)[169]).tag = FALSE_TYPE; /* x195481 */ ((t24794.element)[170]).tag = FALSE_TYPE; /* x195482 */ ((t24794.element)[171]).tag = FALSE_TYPE; /* x195483 */ ((t24794.element)[172]).tag = FALSE_TYPE; /* x195484 */ ((t24794.element)[173]).tag = FALSE_TYPE; /* x195485 */ ((t24794.element)[174]).tag = FALSE_TYPE; /* x195486 */ ((t24794.element)[175]).tag = FALSE_TYPE; /* x195487 */ ((t24794.element)[176]).tag = FALSE_TYPE; /* x195488 */ ((t24794.element)[177]).tag = FALSE_TYPE; /* x195489 */ ((t24794.element)[178]).tag = FALSE_TYPE; /* x195490 */ ((t24794.element)[179]).tag = FALSE_TYPE; /* x195491 */ ((t24794.element)[180]).tag = FALSE_TYPE; /* x195492 */ ((t24794.element)[181]).tag = FALSE_TYPE; /* x195493 */ ((t24794.element)[182]).tag = FALSE_TYPE; /* x195494 */ ((t24794.element)[183]).tag = FALSE_TYPE; /* x195495 */ ((t24794.element)[184]).tag = FALSE_TYPE; /* x195496 */ ((t24794.element)[185]).tag = FALSE_TYPE; /* x195497 */ ((t24794.element)[186]).tag = FALSE_TYPE; /* x195498 */ ((t24794.element)[187]).tag = FALSE_TYPE; /* x195499 */ ((t24794.element)[188]).tag = FALSE_TYPE; /* x195500 */ ((t24794.element)[189]).tag = FALSE_TYPE; /* x195501 */ ((t24794.element)[190]).tag = FALSE_TYPE; /* x195502 */ ((t24794.element)[191]).tag = FALSE_TYPE; /* x195503 */ ((t24794.element)[192]).tag = TRUE_TYPE; /* x195504 */ ((t24794.element)[193]).tag = TRUE_TYPE; /* x195505 */ ((t24794.element)[194]).tag = TRUE_TYPE; /* x195506 */ ((t24794.element)[195]).tag = TRUE_TYPE; /* x195507 */ ((t24794.element)[196]).tag = TRUE_TYPE; /* x195508 */ ((t24794.element)[197]).tag = TRUE_TYPE; /* x195509 */ ((t24794.element)[198]).tag = TRUE_TYPE; /* x195510 */ ((t24794.element)[199]).tag = TRUE_TYPE; /* x195511 */ ((t24794.element)[200]).tag = TRUE_TYPE; /* x195512 */ ((t24794.element)[201]).tag = TRUE_TYPE; /* x195513 */ ((t24794.element)[202]).tag = TRUE_TYPE; /* x195514 */ ((t24794.element)[203]).tag = TRUE_TYPE; /* x195515 */ ((t24794.element)[204]).tag = TRUE_TYPE; /* x195516 */ ((t24794.element)[205]).tag = TRUE_TYPE; /* x195517 */ ((t24794.element)[206]).tag = TRUE_TYPE; /* x195518 */ ((t24794.element)[207]).tag = TRUE_TYPE; /* x195519 */ ((t24794.element)[208]).tag = TRUE_TYPE; /* x195520 */ ((t24794.element)[209]).tag = TRUE_TYPE; /* x195521 */ ((t24794.element)[210]).tag = TRUE_TYPE; /* x195522 */ ((t24794.element)[211]).tag = TRUE_TYPE; /* x195523 */ ((t24794.element)[212]).tag = TRUE_TYPE; /* x195524 */ ((t24794.element)[213]).tag = TRUE_TYPE; /* x195525 */ ((t24794.element)[214]).tag = TRUE_TYPE; /* x195526 */ ((t24794.element)[215]).tag = FALSE_TYPE; /* x195527 */ ((t24794.element)[216]).tag = TRUE_TYPE; /* x195528 */ ((t24794.element)[217]).tag = TRUE_TYPE; /* x195529 */ ((t24794.element)[218]).tag = TRUE_TYPE; /* x195530 */ ((t24794.element)[219]).tag = TRUE_TYPE; /* x195531 */ ((t24794.element)[220]).tag = TRUE_TYPE; /* x195532 */ ((t24794.element)[221]).tag = TRUE_TYPE; /* x195533 */ ((t24794.element)[222]).tag = TRUE_TYPE; /* x195534 */ ((t24794.element)[223]).tag = FALSE_TYPE; /* x195535 */ ((t24794.element)[224]).tag = FALSE_TYPE; /* x195536 */ ((t24794.element)[225]).tag = FALSE_TYPE; /* x195537 */ ((t24794.element)[226]).tag = FALSE_TYPE; /* x195538 */ ((t24794.element)[227]).tag = FALSE_TYPE; /* x195539 */ ((t24794.element)[228]).tag = FALSE_TYPE; /* x195540 */ ((t24794.element)[229]).tag = FALSE_TYPE; /* x195541 */ ((t24794.element)[230]).tag = FALSE_TYPE; /* x195542 */ ((t24794.element)[231]).tag = FALSE_TYPE; /* x195543 */ ((t24794.element)[232]).tag = FALSE_TYPE; /* x195544 */ ((t24794.element)[233]).tag = FALSE_TYPE; /* x195545 */ ((t24794.element)[234]).tag = FALSE_TYPE; /* x195546 */ ((t24794.element)[235]).tag = FALSE_TYPE; /* x195547 */ ((t24794.element)[236]).tag = FALSE_TYPE; /* x195548 */ ((t24794.element)[237]).tag = FALSE_TYPE; /* x195549 */ ((t24794.element)[238]).tag = FALSE_TYPE; /* x195550 */ ((t24794.element)[239]).tag = FALSE_TYPE; /* x195551 */ ((t24794.element)[240]).tag = FALSE_TYPE; /* x195552 */ ((t24794.element)[241]).tag = FALSE_TYPE; /* x195553 */ ((t24794.element)[242]).tag = FALSE_TYPE; /* x195554 */ ((t24794.element)[243]).tag = FALSE_TYPE; /* x195555 */ ((t24794.element)[244]).tag = FALSE_TYPE; /* x195556 */ ((t24794.element)[245]).tag = FALSE_TYPE; /* x195557 */ ((t24794.element)[246]).tag = FALSE_TYPE; /* x195558 */ ((t24794.element)[247]).tag = FALSE_TYPE; /* x195559 */ ((t24794.element)[248]).tag = FALSE_TYPE; /* x195560 */ ((t24794.element)[249]).tag = FALSE_TYPE; /* x195561 */ ((t24794.element)[250]).tag = FALSE_TYPE; /* x195562 */ ((t24794.element)[251]).tag = FALSE_TYPE; /* x195563 */ ((t24794.element)[252]).tag = FALSE_TYPE; /* x195564 */ ((t24794.element)[253]).tag = FALSE_TYPE; /* x195565 */ ((t24794.element)[254]).tag = FALSE_TYPE; /* x195566 */ ((t24794.element)[255]).tag = FALSE_TYPE; /* x195567 */ t24793.s0.tag = HEADED_VECTOR_TYPE27896; t24793.s0.value.headed_vector_type27896 = (struct headed_vector_type27896 *)(&t24794); /* x195568 */ t24793.s1.tag = NULL_TYPE; /* x195569 */ t24792.s1.tag = STRUCTURE_TYPE24753; t24792.s1.value.structure_type24753 = &t24793; /* x195570 */ t24791.s0.tag = STRUCTURE_TYPE24753; t24791.s0.value.structure_type24753 = &t24792; /* x195571 */ t24791.s1.tag = NULL_TYPE; /* x195572 */ t24790.s1.tag = STRUCTURE_TYPE24753; t24790.s1.value.structure_type24753 = &t24791; /* x195573 */ t24789.s0.tag = STRUCTURE_TYPE24753; t24789.s0.value.structure_type24753 = &t24790; /* x195574 */ t24789.s1.tag = NULL_TYPE; /* x195575 */ t24788.s0.tag = STRUCTURE_TYPE24753; t24788.s0.value.structure_type24753 = &t24789; /* x195576 */ t24796.s0.tag = EXTERNAL_SYMBOL_TYPE; t24796.s0.value.external_symbol_type = q39; /* x195577 */ t24798.s0.tag = EXTERNAL_SYMBOL_TYPE; t24798.s0.value.external_symbol_type = q465; /* x195578 */ t24798.s1.tag = NULL_TYPE; /* x195579 */ t24797.s0.tag = STRUCTURE_TYPE24753; t24797.s0.value.structure_type24753 = &t24798; /* x195580 */ t24800.s0.tag = EXTERNAL_SYMBOL_TYPE; t24800.s0.value.external_symbol_type = q169; /* x195581 */ t24801.s0.tag = EXTERNAL_SYMBOL_TYPE; t24801.s0.value.external_symbol_type = q464; /* x195582 */ t24803.s0.tag = EXTERNAL_SYMBOL_TYPE; t24803.s0.value.external_symbol_type = q157; /* x195583 */ t24804.s0.tag = EXTERNAL_SYMBOL_TYPE; t24804.s0.value.external_symbol_type = q465; /* x195584 */ t24804.s1.tag = NULL_TYPE; /* x195585 */ t24803.s1.tag = STRUCTURE_TYPE24753; t24803.s1.value.structure_type24753 = &t24804; /* x195586 */ t24802.s0.tag = STRUCTURE_TYPE24753; t24802.s0.value.structure_type24753 = &t24803; /* x195587 */ t24802.s1.tag = NULL_TYPE; /* x195588 */ t24801.s1.tag = STRUCTURE_TYPE24753; t24801.s1.value.structure_type24753 = &t24802; /* x195589 */ t24800.s1.tag = STRUCTURE_TYPE24753; t24800.s1.value.structure_type24753 = &t24801; /* x195590 */ t24799.s0.tag = STRUCTURE_TYPE24753; t24799.s0.value.structure_type24753 = &t24800; /* x195591 */ t24799.s1.tag = NULL_TYPE; /* x195592 */ t24797.s1.tag = STRUCTURE_TYPE24753; t24797.s1.value.structure_type24753 = &t24799; /* x195593 */ t24796.s1.tag = STRUCTURE_TYPE24753; t24796.s1.value.structure_type24753 = &t24797; /* x195594 */ t24795.s0.tag = STRUCTURE_TYPE24753; t24795.s0.value.structure_type24753 = &t24796; /* x195595 */ t24795.s1.tag = NULL_TYPE; /* x195596 */ t24788.s1.tag = STRUCTURE_TYPE24753; t24788.s1.value.structure_type24753 = &t24795; /* x195597 */ t24787.s1.tag = STRUCTURE_TYPE24753; t24787.s1.value.structure_type24753 = &t24788; /* x195598 */ t24786.s0.tag = STRUCTURE_TYPE24753; t24786.s0.value.structure_type24753 = &t24787; /* x195599 */ t24786.s1.tag = NULL_TYPE; /* x195600 */ t24785.s1.tag = STRUCTURE_TYPE24753; t24785.s1.value.structure_type24753 = &t24786; /* x195601 */ t24784.s1.tag = STRUCTURE_TYPE24753; t24784.s1.value.structure_type24753 = &t24785; /* x195604 */ t24809.s0.tag = EXTERNAL_SYMBOL_TYPE; t24809.s0.value.external_symbol_type = q97; /* x195605 */ t24810.s0.tag = EXTERNAL_SYMBOL_TYPE; t24810.s0.value.external_symbol_type = q466; /* x195606 */ t24812.s0.tag = EXTERNAL_SYMBOL_TYPE; t24812.s0.value.external_symbol_type = q242; /* x195607 */ t24815.s0.tag = EXTERNAL_SYMBOL_TYPE; t24815.s0.value.external_symbol_type = q466; /* x195608 */ t24817.s0.tag = EXTERNAL_SYMBOL_TYPE; t24817.s0.value.external_symbol_type = q11; t24819.length = 256; /* x195609 */ ((t24819.element)[0]).tag = FALSE_TYPE; /* x195610 */ ((t24819.element)[1]).tag = FALSE_TYPE; /* x195611 */ ((t24819.element)[2]).tag = FALSE_TYPE; /* x195612 */ ((t24819.element)[3]).tag = FALSE_TYPE; /* x195613 */ ((t24819.element)[4]).tag = FALSE_TYPE; /* x195614 */ ((t24819.element)[5]).tag = FALSE_TYPE; /* x195615 */ ((t24819.element)[6]).tag = FALSE_TYPE; /* x195616 */ ((t24819.element)[7]).tag = FALSE_TYPE; /* x195617 */ ((t24819.element)[8]).tag = FALSE_TYPE; /* x195618 */ ((t24819.element)[9]).tag = FALSE_TYPE; /* x195619 */ ((t24819.element)[10]).tag = FALSE_TYPE; /* x195620 */ ((t24819.element)[11]).tag = FALSE_TYPE; /* x195621 */ ((t24819.element)[12]).tag = FALSE_TYPE; /* x195622 */ ((t24819.element)[13]).tag = FALSE_TYPE; /* x195623 */ ((t24819.element)[14]).tag = FALSE_TYPE; /* x195624 */ ((t24819.element)[15]).tag = FALSE_TYPE; /* x195625 */ ((t24819.element)[16]).tag = FALSE_TYPE; /* x195626 */ ((t24819.element)[17]).tag = FALSE_TYPE; /* x195627 */ ((t24819.element)[18]).tag = FALSE_TYPE; /* x195628 */ ((t24819.element)[19]).tag = FALSE_TYPE; /* x195629 */ ((t24819.element)[20]).tag = FALSE_TYPE; /* x195630 */ ((t24819.element)[21]).tag = FALSE_TYPE; /* x195631 */ ((t24819.element)[22]).tag = FALSE_TYPE; /* x195632 */ ((t24819.element)[23]).tag = FALSE_TYPE; /* x195633 */ ((t24819.element)[24]).tag = FALSE_TYPE; /* x195634 */ ((t24819.element)[25]).tag = FALSE_TYPE; /* x195635 */ ((t24819.element)[26]).tag = FALSE_TYPE; /* x195636 */ ((t24819.element)[27]).tag = FALSE_TYPE; /* x195637 */ ((t24819.element)[28]).tag = FALSE_TYPE; /* x195638 */ ((t24819.element)[29]).tag = FALSE_TYPE; /* x195639 */ ((t24819.element)[30]).tag = FALSE_TYPE; /* x195640 */ ((t24819.element)[31]).tag = FALSE_TYPE; /* x195641 */ ((t24819.element)[32]).tag = FALSE_TYPE; /* x195642 */ ((t24819.element)[33]).tag = FALSE_TYPE; /* x195643 */ ((t24819.element)[34]).tag = FALSE_TYPE; /* x195644 */ ((t24819.element)[35]).tag = FALSE_TYPE; /* x195645 */ ((t24819.element)[36]).tag = FALSE_TYPE; /* x195646 */ ((t24819.element)[37]).tag = FALSE_TYPE; /* x195647 */ ((t24819.element)[38]).tag = FALSE_TYPE; /* x195648 */ ((t24819.element)[39]).tag = FALSE_TYPE; /* x195649 */ ((t24819.element)[40]).tag = FALSE_TYPE; /* x195650 */ ((t24819.element)[41]).tag = FALSE_TYPE; /* x195651 */ ((t24819.element)[42]).tag = FALSE_TYPE; /* x195652 */ ((t24819.element)[43]).tag = FALSE_TYPE; /* x195653 */ ((t24819.element)[44]).tag = FALSE_TYPE; /* x195654 */ ((t24819.element)[45]).tag = FALSE_TYPE; /* x195655 */ ((t24819.element)[46]).tag = FALSE_TYPE; /* x195656 */ ((t24819.element)[47]).tag = FALSE_TYPE; /* x195657 */ ((t24819.element)[48]).tag = FALSE_TYPE; /* x195658 */ ((t24819.element)[49]).tag = FALSE_TYPE; /* x195659 */ ((t24819.element)[50]).tag = FALSE_TYPE; /* x195660 */ ((t24819.element)[51]).tag = FALSE_TYPE; /* x195661 */ ((t24819.element)[52]).tag = FALSE_TYPE; /* x195662 */ ((t24819.element)[53]).tag = FALSE_TYPE; /* x195663 */ ((t24819.element)[54]).tag = FALSE_TYPE; /* x195664 */ ((t24819.element)[55]).tag = FALSE_TYPE; /* x195665 */ ((t24819.element)[56]).tag = FALSE_TYPE; /* x195666 */ ((t24819.element)[57]).tag = FALSE_TYPE; /* x195667 */ ((t24819.element)[58]).tag = FALSE_TYPE; /* x195668 */ ((t24819.element)[59]).tag = FALSE_TYPE; /* x195669 */ ((t24819.element)[60]).tag = FALSE_TYPE; /* x195670 */ ((t24819.element)[61]).tag = FALSE_TYPE; /* x195671 */ ((t24819.element)[62]).tag = FALSE_TYPE; /* x195672 */ ((t24819.element)[63]).tag = FALSE_TYPE; /* x195673 */ ((t24819.element)[64]).tag = FALSE_TYPE; /* x195674 */ ((t24819.element)[65]).tag = FALSE_TYPE; /* x195675 */ ((t24819.element)[66]).tag = FALSE_TYPE; /* x195676 */ ((t24819.element)[67]).tag = FALSE_TYPE; /* x195677 */ ((t24819.element)[68]).tag = FALSE_TYPE; /* x195678 */ ((t24819.element)[69]).tag = FALSE_TYPE; /* x195679 */ ((t24819.element)[70]).tag = FALSE_TYPE; /* x195680 */ ((t24819.element)[71]).tag = FALSE_TYPE; /* x195681 */ ((t24819.element)[72]).tag = FALSE_TYPE; /* x195682 */ ((t24819.element)[73]).tag = FALSE_TYPE; /* x195683 */ ((t24819.element)[74]).tag = FALSE_TYPE; /* x195684 */ ((t24819.element)[75]).tag = FALSE_TYPE; /* x195685 */ ((t24819.element)[76]).tag = FALSE_TYPE; /* x195686 */ ((t24819.element)[77]).tag = FALSE_TYPE; /* x195687 */ ((t24819.element)[78]).tag = FALSE_TYPE; /* x195688 */ ((t24819.element)[79]).tag = FALSE_TYPE; /* x195689 */ ((t24819.element)[80]).tag = FALSE_TYPE; /* x195690 */ ((t24819.element)[81]).tag = FALSE_TYPE; /* x195691 */ ((t24819.element)[82]).tag = FALSE_TYPE; /* x195692 */ ((t24819.element)[83]).tag = FALSE_TYPE; /* x195693 */ ((t24819.element)[84]).tag = FALSE_TYPE; /* x195694 */ ((t24819.element)[85]).tag = FALSE_TYPE; /* x195695 */ ((t24819.element)[86]).tag = FALSE_TYPE; /* x195696 */ ((t24819.element)[87]).tag = FALSE_TYPE; /* x195697 */ ((t24819.element)[88]).tag = FALSE_TYPE; /* x195698 */ ((t24819.element)[89]).tag = FALSE_TYPE; /* x195699 */ ((t24819.element)[90]).tag = FALSE_TYPE; /* x195700 */ ((t24819.element)[91]).tag = FALSE_TYPE; /* x195701 */ ((t24819.element)[92]).tag = FALSE_TYPE; /* x195702 */ ((t24819.element)[93]).tag = FALSE_TYPE; /* x195703 */ ((t24819.element)[94]).tag = FALSE_TYPE; /* x195704 */ ((t24819.element)[95]).tag = FALSE_TYPE; /* x195705 */ ((t24819.element)[96]).tag = FALSE_TYPE; /* x195706 */ ((t24819.element)[97]).tag = TRUE_TYPE; /* x195707 */ ((t24819.element)[98]).tag = TRUE_TYPE; /* x195708 */ ((t24819.element)[99]).tag = TRUE_TYPE; /* x195709 */ ((t24819.element)[100]).tag = TRUE_TYPE; /* x195710 */ ((t24819.element)[101]).tag = TRUE_TYPE; /* x195711 */ ((t24819.element)[102]).tag = TRUE_TYPE; /* x195712 */ ((t24819.element)[103]).tag = TRUE_TYPE; /* x195713 */ ((t24819.element)[104]).tag = TRUE_TYPE; /* x195714 */ ((t24819.element)[105]).tag = TRUE_TYPE; /* x195715 */ ((t24819.element)[106]).tag = TRUE_TYPE; /* x195716 */ ((t24819.element)[107]).tag = TRUE_TYPE; /* x195717 */ ((t24819.element)[108]).tag = TRUE_TYPE; /* x195718 */ ((t24819.element)[109]).tag = TRUE_TYPE; /* x195719 */ ((t24819.element)[110]).tag = TRUE_TYPE; /* x195720 */ ((t24819.element)[111]).tag = TRUE_TYPE; /* x195721 */ ((t24819.element)[112]).tag = TRUE_TYPE; /* x195722 */ ((t24819.element)[113]).tag = TRUE_TYPE; /* x195723 */ ((t24819.element)[114]).tag = TRUE_TYPE; /* x195724 */ ((t24819.element)[115]).tag = TRUE_TYPE; /* x195725 */ ((t24819.element)[116]).tag = TRUE_TYPE; /* x195726 */ ((t24819.element)[117]).tag = TRUE_TYPE; /* x195727 */ ((t24819.element)[118]).tag = TRUE_TYPE; /* x195728 */ ((t24819.element)[119]).tag = TRUE_TYPE; /* x195729 */ ((t24819.element)[120]).tag = TRUE_TYPE; /* x195730 */ ((t24819.element)[121]).tag = TRUE_TYPE; /* x195731 */ ((t24819.element)[122]).tag = TRUE_TYPE; /* x195732 */ ((t24819.element)[123]).tag = FALSE_TYPE; /* x195733 */ ((t24819.element)[124]).tag = FALSE_TYPE; /* x195734 */ ((t24819.element)[125]).tag = FALSE_TYPE; /* x195735 */ ((t24819.element)[126]).tag = FALSE_TYPE; /* x195736 */ ((t24819.element)[127]).tag = FALSE_TYPE; /* x195737 */ ((t24819.element)[128]).tag = FALSE_TYPE; /* x195738 */ ((t24819.element)[129]).tag = FALSE_TYPE; /* x195739 */ ((t24819.element)[130]).tag = FALSE_TYPE; /* x195740 */ ((t24819.element)[131]).tag = FALSE_TYPE; /* x195741 */ ((t24819.element)[132]).tag = FALSE_TYPE; /* x195742 */ ((t24819.element)[133]).tag = FALSE_TYPE; /* x195743 */ ((t24819.element)[134]).tag = FALSE_TYPE; /* x195744 */ ((t24819.element)[135]).tag = FALSE_TYPE; /* x195745 */ ((t24819.element)[136]).tag = FALSE_TYPE; /* x195746 */ ((t24819.element)[137]).tag = FALSE_TYPE; /* x195747 */ ((t24819.element)[138]).tag = FALSE_TYPE; /* x195748 */ ((t24819.element)[139]).tag = FALSE_TYPE; /* x195749 */ ((t24819.element)[140]).tag = FALSE_TYPE; /* x195750 */ ((t24819.element)[141]).tag = FALSE_TYPE; /* x195751 */ ((t24819.element)[142]).tag = FALSE_TYPE; /* x195752 */ ((t24819.element)[143]).tag = FALSE_TYPE; /* x195753 */ ((t24819.element)[144]).tag = FALSE_TYPE; /* x195754 */ ((t24819.element)[145]).tag = FALSE_TYPE; /* x195755 */ ((t24819.element)[146]).tag = FALSE_TYPE; /* x195756 */ ((t24819.element)[147]).tag = FALSE_TYPE; /* x195757 */ ((t24819.element)[148]).tag = FALSE_TYPE; /* x195758 */ ((t24819.element)[149]).tag = FALSE_TYPE; /* x195759 */ ((t24819.element)[150]).tag = FALSE_TYPE; /* x195760 */ ((t24819.element)[151]).tag = FALSE_TYPE; /* x195761 */ ((t24819.element)[152]).tag = FALSE_TYPE; /* x195762 */ ((t24819.element)[153]).tag = FALSE_TYPE; /* x195763 */ ((t24819.element)[154]).tag = FALSE_TYPE; /* x195764 */ ((t24819.element)[155]).tag = FALSE_TYPE; /* x195765 */ ((t24819.element)[156]).tag = FALSE_TYPE; /* x195766 */ ((t24819.element)[157]).tag = FALSE_TYPE; /* x195767 */ ((t24819.element)[158]).tag = FALSE_TYPE; /* x195768 */ ((t24819.element)[159]).tag = FALSE_TYPE; /* x195769 */ ((t24819.element)[160]).tag = FALSE_TYPE; /* x195770 */ ((t24819.element)[161]).tag = FALSE_TYPE; /* x195771 */ ((t24819.element)[162]).tag = FALSE_TYPE; /* x195772 */ ((t24819.element)[163]).tag = FALSE_TYPE; /* x195773 */ ((t24819.element)[164]).tag = FALSE_TYPE; /* x195774 */ ((t24819.element)[165]).tag = FALSE_TYPE; /* x195775 */ ((t24819.element)[166]).tag = FALSE_TYPE; /* x195776 */ ((t24819.element)[167]).tag = FALSE_TYPE; /* x195777 */ ((t24819.element)[168]).tag = FALSE_TYPE; /* x195778 */ ((t24819.element)[169]).tag = FALSE_TYPE; /* x195779 */ ((t24819.element)[170]).tag = FALSE_TYPE; /* x195780 */ ((t24819.element)[171]).tag = FALSE_TYPE; /* x195781 */ ((t24819.element)[172]).tag = FALSE_TYPE; /* x195782 */ ((t24819.element)[173]).tag = FALSE_TYPE; /* x195783 */ ((t24819.element)[174]).tag = FALSE_TYPE; /* x195784 */ ((t24819.element)[175]).tag = FALSE_TYPE; /* x195785 */ ((t24819.element)[176]).tag = FALSE_TYPE; /* x195786 */ ((t24819.element)[177]).tag = FALSE_TYPE; /* x195787 */ ((t24819.element)[178]).tag = FALSE_TYPE; /* x195788 */ ((t24819.element)[179]).tag = FALSE_TYPE; /* x195789 */ ((t24819.element)[180]).tag = FALSE_TYPE; /* x195790 */ ((t24819.element)[181]).tag = FALSE_TYPE; /* x195791 */ ((t24819.element)[182]).tag = FALSE_TYPE; /* x195792 */ ((t24819.element)[183]).tag = FALSE_TYPE; /* x195793 */ ((t24819.element)[184]).tag = FALSE_TYPE; /* x195794 */ ((t24819.element)[185]).tag = FALSE_TYPE; /* x195795 */ ((t24819.element)[186]).tag = FALSE_TYPE; /* x195796 */ ((t24819.element)[187]).tag = FALSE_TYPE; /* x195797 */ ((t24819.element)[188]).tag = FALSE_TYPE; /* x195798 */ ((t24819.element)[189]).tag = FALSE_TYPE; /* x195799 */ ((t24819.element)[190]).tag = FALSE_TYPE; /* x195800 */ ((t24819.element)[191]).tag = FALSE_TYPE; /* x195801 */ ((t24819.element)[192]).tag = FALSE_TYPE; /* x195802 */ ((t24819.element)[193]).tag = FALSE_TYPE; /* x195803 */ ((t24819.element)[194]).tag = FALSE_TYPE; /* x195804 */ ((t24819.element)[195]).tag = FALSE_TYPE; /* x195805 */ ((t24819.element)[196]).tag = FALSE_TYPE; /* x195806 */ ((t24819.element)[197]).tag = FALSE_TYPE; /* x195807 */ ((t24819.element)[198]).tag = FALSE_TYPE; /* x195808 */ ((t24819.element)[199]).tag = FALSE_TYPE; /* x195809 */ ((t24819.element)[200]).tag = FALSE_TYPE; /* x195810 */ ((t24819.element)[201]).tag = FALSE_TYPE; /* x195811 */ ((t24819.element)[202]).tag = FALSE_TYPE; /* x195812 */ ((t24819.element)[203]).tag = FALSE_TYPE; /* x195813 */ ((t24819.element)[204]).tag = FALSE_TYPE; /* x195814 */ ((t24819.element)[205]).tag = FALSE_TYPE; /* x195815 */ ((t24819.element)[206]).tag = FALSE_TYPE; /* x195816 */ ((t24819.element)[207]).tag = FALSE_TYPE; /* x195817 */ ((t24819.element)[208]).tag = FALSE_TYPE; /* x195818 */ ((t24819.element)[209]).tag = FALSE_TYPE; /* x195819 */ ((t24819.element)[210]).tag = FALSE_TYPE; /* x195820 */ ((t24819.element)[211]).tag = FALSE_TYPE; /* x195821 */ ((t24819.element)[212]).tag = FALSE_TYPE; /* x195822 */ ((t24819.element)[213]).tag = FALSE_TYPE; /* x195823 */ ((t24819.element)[214]).tag = FALSE_TYPE; /* x195824 */ ((t24819.element)[215]).tag = FALSE_TYPE; /* x195825 */ ((t24819.element)[216]).tag = FALSE_TYPE; /* x195826 */ ((t24819.element)[217]).tag = FALSE_TYPE; /* x195827 */ ((t24819.element)[218]).tag = FALSE_TYPE; /* x195828 */ ((t24819.element)[219]).tag = FALSE_TYPE; /* x195829 */ ((t24819.element)[220]).tag = FALSE_TYPE; /* x195830 */ ((t24819.element)[221]).tag = FALSE_TYPE; /* x195831 */ ((t24819.element)[222]).tag = FALSE_TYPE; /* x195832 */ ((t24819.element)[223]).tag = TRUE_TYPE; /* x195833 */ ((t24819.element)[224]).tag = TRUE_TYPE; /* x195834 */ ((t24819.element)[225]).tag = TRUE_TYPE; /* x195835 */ ((t24819.element)[226]).tag = TRUE_TYPE; /* x195836 */ ((t24819.element)[227]).tag = TRUE_TYPE; /* x195837 */ ((t24819.element)[228]).tag = TRUE_TYPE; /* x195838 */ ((t24819.element)[229]).tag = TRUE_TYPE; /* x195839 */ ((t24819.element)[230]).tag = TRUE_TYPE; /* x195840 */ ((t24819.element)[231]).tag = TRUE_TYPE; /* x195841 */ ((t24819.element)[232]).tag = TRUE_TYPE; /* x195842 */ ((t24819.element)[233]).tag = TRUE_TYPE; /* x195843 */ ((t24819.element)[234]).tag = TRUE_TYPE; /* x195844 */ ((t24819.element)[235]).tag = TRUE_TYPE; /* x195845 */ ((t24819.element)[236]).tag = TRUE_TYPE; /* x195846 */ ((t24819.element)[237]).tag = TRUE_TYPE; /* x195847 */ ((t24819.element)[238]).tag = TRUE_TYPE; /* x195848 */ ((t24819.element)[239]).tag = TRUE_TYPE; /* x195849 */ ((t24819.element)[240]).tag = TRUE_TYPE; /* x195850 */ ((t24819.element)[241]).tag = TRUE_TYPE; /* x195851 */ ((t24819.element)[242]).tag = TRUE_TYPE; /* x195852 */ ((t24819.element)[243]).tag = TRUE_TYPE; /* x195853 */ ((t24819.element)[244]).tag = TRUE_TYPE; /* x195854 */ ((t24819.element)[245]).tag = TRUE_TYPE; /* x195855 */ ((t24819.element)[246]).tag = TRUE_TYPE; /* x195856 */ ((t24819.element)[247]).tag = FALSE_TYPE; /* x195857 */ ((t24819.element)[248]).tag = TRUE_TYPE; /* x195858 */ ((t24819.element)[249]).tag = TRUE_TYPE; /* x195859 */ ((t24819.element)[250]).tag = TRUE_TYPE; /* x195860 */ ((t24819.element)[251]).tag = TRUE_TYPE; /* x195861 */ ((t24819.element)[252]).tag = TRUE_TYPE; /* x195862 */ ((t24819.element)[253]).tag = TRUE_TYPE; /* x195863 */ ((t24819.element)[254]).tag = TRUE_TYPE; /* x195864 */ ((t24819.element)[255]).tag = TRUE_TYPE; /* x195865 */ t24818.s0.tag = HEADED_VECTOR_TYPE27896; t24818.s0.value.headed_vector_type27896 = (struct headed_vector_type27896 *)(&t24819); /* x195866 */ t24818.s1.tag = NULL_TYPE; /* x195867 */ t24817.s1.tag = STRUCTURE_TYPE24753; t24817.s1.value.structure_type24753 = &t24818; /* x195868 */ t24816.s0.tag = STRUCTURE_TYPE24753; t24816.s0.value.structure_type24753 = &t24817; /* x195869 */ t24816.s1.tag = NULL_TYPE; /* x195870 */ t24815.s1.tag = STRUCTURE_TYPE24753; t24815.s1.value.structure_type24753 = &t24816; /* x195871 */ t24814.s0.tag = STRUCTURE_TYPE24753; t24814.s0.value.structure_type24753 = &t24815; /* x195872 */ t24814.s1.tag = NULL_TYPE; /* x195873 */ t24813.s0.tag = STRUCTURE_TYPE24753; t24813.s0.value.structure_type24753 = &t24814; /* x195874 */ t24821.s0.tag = EXTERNAL_SYMBOL_TYPE; t24821.s0.value.external_symbol_type = q39; /* x195875 */ t24823.s0.tag = EXTERNAL_SYMBOL_TYPE; t24823.s0.value.external_symbol_type = q465; /* x195876 */ t24823.s1.tag = NULL_TYPE; /* x195877 */ t24822.s0.tag = STRUCTURE_TYPE24753; t24822.s0.value.structure_type24753 = &t24823; /* x195878 */ t24825.s0.tag = EXTERNAL_SYMBOL_TYPE; t24825.s0.value.external_symbol_type = q169; /* x195879 */ t24826.s0.tag = EXTERNAL_SYMBOL_TYPE; t24826.s0.value.external_symbol_type = q466; /* x195880 */ t24828.s0.tag = EXTERNAL_SYMBOL_TYPE; t24828.s0.value.external_symbol_type = q157; /* x195881 */ t24829.s0.tag = EXTERNAL_SYMBOL_TYPE; t24829.s0.value.external_symbol_type = q465; /* x195882 */ t24829.s1.tag = NULL_TYPE; /* x195883 */ t24828.s1.tag = STRUCTURE_TYPE24753; t24828.s1.value.structure_type24753 = &t24829; /* x195884 */ t24827.s0.tag = STRUCTURE_TYPE24753; t24827.s0.value.structure_type24753 = &t24828; /* x195885 */ t24827.s1.tag = NULL_TYPE; /* x195886 */ t24826.s1.tag = STRUCTURE_TYPE24753; t24826.s1.value.structure_type24753 = &t24827; /* x195887 */ t24825.s1.tag = STRUCTURE_TYPE24753; t24825.s1.value.structure_type24753 = &t24826; /* x195888 */ t24824.s0.tag = STRUCTURE_TYPE24753; t24824.s0.value.structure_type24753 = &t24825; /* x195889 */ t24824.s1.tag = NULL_TYPE; /* x195890 */ t24822.s1.tag = STRUCTURE_TYPE24753; t24822.s1.value.structure_type24753 = &t24824; /* x195891 */ t24821.s1.tag = STRUCTURE_TYPE24753; t24821.s1.value.structure_type24753 = &t24822; /* x195892 */ t24820.s0.tag = STRUCTURE_TYPE24753; t24820.s0.value.structure_type24753 = &t24821; /* x195893 */ t24820.s1.tag = NULL_TYPE; /* x195894 */ t24813.s1.tag = STRUCTURE_TYPE24753; t24813.s1.value.structure_type24753 = &t24820; /* x195895 */ t24812.s1.tag = STRUCTURE_TYPE24753; t24812.s1.value.structure_type24753 = &t24813; /* x195896 */ t24811.s0.tag = STRUCTURE_TYPE24753; t24811.s0.value.structure_type24753 = &t24812; /* x195897 */ t24811.s1.tag = NULL_TYPE; /* x195898 */ t24810.s1.tag = STRUCTURE_TYPE24753; t24810.s1.value.structure_type24753 = &t24811; /* x195899 */ t24809.s1.tag = STRUCTURE_TYPE24753; t24809.s1.value.structure_type24753 = &t24810; /* x195902 */ t24834.s0.tag = EXTERNAL_SYMBOL_TYPE; t24834.s0.value.external_symbol_type = q97; /* x195903 */ t24836.s0.tag = EXTERNAL_SYMBOL_TYPE; t24836.s0.value.external_symbol_type = q157; /* x195904 */ t24837.s0.tag = EXTERNAL_SYMBOL_TYPE; t24837.s0.value.external_symbol_type = q56; /* x195905 */ t24837.s1.tag = NULL_TYPE; /* x195906 */ t24836.s1.tag = STRUCTURE_TYPE24753; t24836.s1.value.structure_type24753 = &t24837; /* x195907 */ t24835.s0.tag = STRUCTURE_TYPE24753; t24835.s0.value.structure_type24753 = &t24836; /* x195908 */ t24840.s0.tag = EXTERNAL_SYMBOL_TYPE; t24840.s0.value.external_symbol_type = q77; /* x195909 */ t24841.s0.tag = EXTERNAL_SYMBOL_TYPE; t24841.s0.value.external_symbol_type = q157; /* x195910 */ t24841.s1.tag = NULL_TYPE; /* x195911 */ t24840.s1.tag = STRUCTURE_TYPE24753; t24840.s1.value.structure_type24753 = &t24841; /* x195912 */ t24839.s0.tag = STRUCTURE_TYPE24753; t24839.s0.value.structure_type24753 = &t24840; /* x195913 */ t24842.s0.tag = EXTERNAL_SYMBOL_TYPE; t24842.s0.value.external_symbol_type = q56; /* x195914 */ t24842.s1.tag = NULL_TYPE; /* x195915 */ t24839.s1.tag = STRUCTURE_TYPE24753; t24839.s1.value.structure_type24753 = &t24842; /* x195916 */ t24838.s0.tag = STRUCTURE_TYPE24753; t24838.s0.value.structure_type24753 = &t24839; /* x195917 */ t24838.s1.tag = NULL_TYPE; /* x195918 */ t24835.s1.tag = STRUCTURE_TYPE24753; t24835.s1.value.structure_type24753 = &t24838; /* x195919 */ t24834.s1.tag = STRUCTURE_TYPE24753; t24834.s1.value.structure_type24753 = &t24835; /* x195922 */ t24847.s0.tag = EXTERNAL_SYMBOL_TYPE; t24847.s0.value.external_symbol_type = q97; /* x195923 */ t24849.s0.tag = EXTERNAL_SYMBOL_TYPE; t24849.s0.value.external_symbol_type = q158; /* x195924 */ t24850.s0.tag = EXTERNAL_SYMBOL_TYPE; t24850.s0.value.external_symbol_type = q337; /* x195925 */ t24850.s1.tag = NULL_TYPE; /* x195926 */ t24849.s1.tag = STRUCTURE_TYPE24753; t24849.s1.value.structure_type24753 = &t24850; /* x195927 */ t24848.s0.tag = STRUCTURE_TYPE24753; t24848.s0.value.structure_type24753 = &t24849; /* x195928 */ t24853.s0.tag = EXTERNAL_SYMBOL_TYPE; t24853.s0.value.external_symbol_type = q77; /* x195929 */ t24854.s0.tag = EXTERNAL_SYMBOL_TYPE; t24854.s0.value.external_symbol_type = q158; /* x195930 */ t24854.s1.tag = NULL_TYPE; /* x195931 */ t24853.s1.tag = STRUCTURE_TYPE24753; t24853.s1.value.structure_type24753 = &t24854; /* x195932 */ t24852.s0.tag = STRUCTURE_TYPE24753; t24852.s0.value.structure_type24753 = &t24853; /* x195933 */ t24855.s0.tag = EXTERNAL_SYMBOL_TYPE; t24855.s0.value.external_symbol_type = q337; /* x195934 */ t24855.s1.tag = NULL_TYPE; /* x195935 */ t24852.s1.tag = STRUCTURE_TYPE24753; t24852.s1.value.structure_type24753 = &t24855; /* x195936 */ t24851.s0.tag = STRUCTURE_TYPE24753; t24851.s0.value.structure_type24753 = &t24852; /* x195937 */ t24851.s1.tag = NULL_TYPE; /* x195938 */ t24848.s1.tag = STRUCTURE_TYPE24753; t24848.s1.value.structure_type24753 = &t24851; /* x195939 */ t24847.s1.tag = STRUCTURE_TYPE24753; t24847.s1.value.structure_type24753 = &t24848; /* x195942 */ t24860.s0.tag = EXTERNAL_SYMBOL_TYPE; t24860.s0.value.external_symbol_type = q97; /* x195943 */ t24861.s0.tag = EXTERNAL_SYMBOL_TYPE; t24861.s0.value.external_symbol_type = q285; /* x195944 */ t24863.s0.tag = EXTERNAL_SYMBOL_TYPE; t24863.s0.value.external_symbol_type = q242; /* x195945 */ t24866.s0.tag = EXTERNAL_SYMBOL_TYPE; t24866.s0.value.external_symbol_type = q285; /* x195946 */ t24868.s0.tag = EXTERNAL_SYMBOL_TYPE; t24868.s0.value.external_symbol_type = q11; t24870.length = 256; /* x195947 */ ((t24870.element)[0]).tag = FIXNUM_TYPE; ((t24870.element)[0]).value.fixnum_type = 0; /* x195948 */ ((t24870.element)[1]).tag = FIXNUM_TYPE; ((t24870.element)[1]).value.fixnum_type = 1; /* x195949 */ ((t24870.element)[2]).tag = FIXNUM_TYPE; ((t24870.element)[2]).value.fixnum_type = 2; /* x195950 */ ((t24870.element)[3]).tag = FIXNUM_TYPE; ((t24870.element)[3]).value.fixnum_type = 3; /* x195951 */ ((t24870.element)[4]).tag = FIXNUM_TYPE; ((t24870.element)[4]).value.fixnum_type = 4; /* x195952 */ ((t24870.element)[5]).tag = FIXNUM_TYPE; ((t24870.element)[5]).value.fixnum_type = 5; /* x195953 */ ((t24870.element)[6]).tag = FIXNUM_TYPE; ((t24870.element)[6]).value.fixnum_type = 6; /* x195954 */ ((t24870.element)[7]).tag = FIXNUM_TYPE; ((t24870.element)[7]).value.fixnum_type = 7; /* x195955 */ ((t24870.element)[8]).tag = FIXNUM_TYPE; ((t24870.element)[8]).value.fixnum_type = 8; /* x195956 */ ((t24870.element)[9]).tag = FIXNUM_TYPE; ((t24870.element)[9]).value.fixnum_type = 9; /* x195957 */ ((t24870.element)[10]).tag = FIXNUM_TYPE; ((t24870.element)[10]).value.fixnum_type = 10; /* x195958 */ ((t24870.element)[11]).tag = FIXNUM_TYPE; ((t24870.element)[11]).value.fixnum_type = 11; /* x195959 */ ((t24870.element)[12]).tag = FIXNUM_TYPE; ((t24870.element)[12]).value.fixnum_type = 12; /* x195960 */ ((t24870.element)[13]).tag = FIXNUM_TYPE; ((t24870.element)[13]).value.fixnum_type = 13; /* x195961 */ ((t24870.element)[14]).tag = FIXNUM_TYPE; ((t24870.element)[14]).value.fixnum_type = 14; /* x195962 */ ((t24870.element)[15]).tag = FIXNUM_TYPE; ((t24870.element)[15]).value.fixnum_type = 15; /* x195963 */ ((t24870.element)[16]).tag = FIXNUM_TYPE; ((t24870.element)[16]).value.fixnum_type = 16; /* x195964 */ ((t24870.element)[17]).tag = FIXNUM_TYPE; ((t24870.element)[17]).value.fixnum_type = 17; /* x195965 */ ((t24870.element)[18]).tag = FIXNUM_TYPE; ((t24870.element)[18]).value.fixnum_type = 18; /* x195966 */ ((t24870.element)[19]).tag = FIXNUM_TYPE; ((t24870.element)[19]).value.fixnum_type = 19; /* x195967 */ ((t24870.element)[20]).tag = FIXNUM_TYPE; ((t24870.element)[20]).value.fixnum_type = 20; /* x195968 */ ((t24870.element)[21]).tag = FIXNUM_TYPE; ((t24870.element)[21]).value.fixnum_type = 21; /* x195969 */ ((t24870.element)[22]).tag = FIXNUM_TYPE; ((t24870.element)[22]).value.fixnum_type = 22; /* x195970 */ ((t24870.element)[23]).tag = FIXNUM_TYPE; ((t24870.element)[23]).value.fixnum_type = 23; /* x195971 */ ((t24870.element)[24]).tag = FIXNUM_TYPE; ((t24870.element)[24]).value.fixnum_type = 24; /* x195972 */ ((t24870.element)[25]).tag = FIXNUM_TYPE; ((t24870.element)[25]).value.fixnum_type = 25; /* x195973 */ ((t24870.element)[26]).tag = FIXNUM_TYPE; ((t24870.element)[26]).value.fixnum_type = 26; /* x195974 */ ((t24870.element)[27]).tag = FIXNUM_TYPE; ((t24870.element)[27]).value.fixnum_type = 27; /* x195975 */ ((t24870.element)[28]).tag = FIXNUM_TYPE; ((t24870.element)[28]).value.fixnum_type = 28; /* x195976 */ ((t24870.element)[29]).tag = FIXNUM_TYPE; ((t24870.element)[29]).value.fixnum_type = 29; /* x195977 */ ((t24870.element)[30]).tag = FIXNUM_TYPE; ((t24870.element)[30]).value.fixnum_type = 30; /* x195978 */ ((t24870.element)[31]).tag = FIXNUM_TYPE; ((t24870.element)[31]).value.fixnum_type = 31; /* x195979 */ ((t24870.element)[32]).tag = FIXNUM_TYPE; ((t24870.element)[32]).value.fixnum_type = 32; /* x195980 */ ((t24870.element)[33]).tag = FIXNUM_TYPE; ((t24870.element)[33]).value.fixnum_type = 33; /* x195981 */ ((t24870.element)[34]).tag = FIXNUM_TYPE; ((t24870.element)[34]).value.fixnum_type = 34; /* x195982 */ ((t24870.element)[35]).tag = FIXNUM_TYPE; ((t24870.element)[35]).value.fixnum_type = 35; /* x195983 */ ((t24870.element)[36]).tag = FIXNUM_TYPE; ((t24870.element)[36]).value.fixnum_type = 36; /* x195984 */ ((t24870.element)[37]).tag = FIXNUM_TYPE; ((t24870.element)[37]).value.fixnum_type = 37; /* x195985 */ ((t24870.element)[38]).tag = FIXNUM_TYPE; ((t24870.element)[38]).value.fixnum_type = 38; /* x195986 */ ((t24870.element)[39]).tag = FIXNUM_TYPE; ((t24870.element)[39]).value.fixnum_type = 39; /* x195987 */ ((t24870.element)[40]).tag = FIXNUM_TYPE; ((t24870.element)[40]).value.fixnum_type = 40; /* x195988 */ ((t24870.element)[41]).tag = FIXNUM_TYPE; ((t24870.element)[41]).value.fixnum_type = 41; /* x195989 */ ((t24870.element)[42]).tag = FIXNUM_TYPE; ((t24870.element)[42]).value.fixnum_type = 42; /* x195990 */ ((t24870.element)[43]).tag = FIXNUM_TYPE; ((t24870.element)[43]).value.fixnum_type = 43; /* x195991 */ ((t24870.element)[44]).tag = FIXNUM_TYPE; ((t24870.element)[44]).value.fixnum_type = 44; /* x195992 */ ((t24870.element)[45]).tag = FIXNUM_TYPE; ((t24870.element)[45]).value.fixnum_type = 45; /* x195993 */ ((t24870.element)[46]).tag = FIXNUM_TYPE; ((t24870.element)[46]).value.fixnum_type = 46; /* x195994 */ ((t24870.element)[47]).tag = FIXNUM_TYPE; ((t24870.element)[47]).value.fixnum_type = 47; /* x195995 */ ((t24870.element)[48]).tag = FIXNUM_TYPE; ((t24870.element)[48]).value.fixnum_type = 48; /* x195996 */ ((t24870.element)[49]).tag = FIXNUM_TYPE; ((t24870.element)[49]).value.fixnum_type = 49; /* x195997 */ ((t24870.element)[50]).tag = FIXNUM_TYPE; ((t24870.element)[50]).value.fixnum_type = 50; /* x195998 */ ((t24870.element)[51]).tag = FIXNUM_TYPE; ((t24870.element)[51]).value.fixnum_type = 51; /* x195999 */ ((t24870.element)[52]).tag = FIXNUM_TYPE; ((t24870.element)[52]).value.fixnum_type = 52; /* x196000 */ ((t24870.element)[53]).tag = FIXNUM_TYPE; ((t24870.element)[53]).value.fixnum_type = 53; /* x196001 */ ((t24870.element)[54]).tag = FIXNUM_TYPE; ((t24870.element)[54]).value.fixnum_type = 54; /* x196002 */ ((t24870.element)[55]).tag = FIXNUM_TYPE; ((t24870.element)[55]).value.fixnum_type = 55; /* x196003 */ ((t24870.element)[56]).tag = FIXNUM_TYPE; ((t24870.element)[56]).value.fixnum_type = 56; /* x196004 */ ((t24870.element)[57]).tag = FIXNUM_TYPE; ((t24870.element)[57]).value.fixnum_type = 57; /* x196005 */ ((t24870.element)[58]).tag = FIXNUM_TYPE; ((t24870.element)[58]).value.fixnum_type = 58; /* x196006 */ ((t24870.element)[59]).tag = FIXNUM_TYPE; ((t24870.element)[59]).value.fixnum_type = 59; /* x196007 */ ((t24870.element)[60]).tag = FIXNUM_TYPE; ((t24870.element)[60]).value.fixnum_type = 60; /* x196008 */ ((t24870.element)[61]).tag = FIXNUM_TYPE; ((t24870.element)[61]).value.fixnum_type = 61; /* x196009 */ ((t24870.element)[62]).tag = FIXNUM_TYPE; ((t24870.element)[62]).value.fixnum_type = 62; /* x196010 */ ((t24870.element)[63]).tag = FIXNUM_TYPE; ((t24870.element)[63]).value.fixnum_type = 63; /* x196011 */ ((t24870.element)[64]).tag = FIXNUM_TYPE; ((t24870.element)[64]).value.fixnum_type = 64; /* x196012 */ ((t24870.element)[65]).tag = FIXNUM_TYPE; ((t24870.element)[65]).value.fixnum_type = 65; /* x196013 */ ((t24870.element)[66]).tag = FIXNUM_TYPE; ((t24870.element)[66]).value.fixnum_type = 66; /* x196014 */ ((t24870.element)[67]).tag = FIXNUM_TYPE; ((t24870.element)[67]).value.fixnum_type = 67; /* x196015 */ ((t24870.element)[68]).tag = FIXNUM_TYPE; ((t24870.element)[68]).value.fixnum_type = 68; /* x196016 */ ((t24870.element)[69]).tag = FIXNUM_TYPE; ((t24870.element)[69]).value.fixnum_type = 69; /* x196017 */ ((t24870.element)[70]).tag = FIXNUM_TYPE; ((t24870.element)[70]).value.fixnum_type = 70; /* x196018 */ ((t24870.element)[71]).tag = FIXNUM_TYPE; ((t24870.element)[71]).value.fixnum_type = 71; /* x196019 */ ((t24870.element)[72]).tag = FIXNUM_TYPE; ((t24870.element)[72]).value.fixnum_type = 72; /* x196020 */ ((t24870.element)[73]).tag = FIXNUM_TYPE; ((t24870.element)[73]).value.fixnum_type = 73; /* x196021 */ ((t24870.element)[74]).tag = FIXNUM_TYPE; ((t24870.element)[74]).value.fixnum_type = 74; /* x196022 */ ((t24870.element)[75]).tag = FIXNUM_TYPE; ((t24870.element)[75]).value.fixnum_type = 75; /* x196023 */ ((t24870.element)[76]).tag = FIXNUM_TYPE; ((t24870.element)[76]).value.fixnum_type = 76; /* x196024 */ ((t24870.element)[77]).tag = FIXNUM_TYPE; ((t24870.element)[77]).value.fixnum_type = 77; /* x196025 */ ((t24870.element)[78]).tag = FIXNUM_TYPE; ((t24870.element)[78]).value.fixnum_type = 78; /* x196026 */ ((t24870.element)[79]).tag = FIXNUM_TYPE; ((t24870.element)[79]).value.fixnum_type = 79; /* x196027 */ ((t24870.element)[80]).tag = FIXNUM_TYPE; ((t24870.element)[80]).value.fixnum_type = 80; /* x196028 */ ((t24870.element)[81]).tag = FIXNUM_TYPE; ((t24870.element)[81]).value.fixnum_type = 81; /* x196029 */ ((t24870.element)[82]).tag = FIXNUM_TYPE; ((t24870.element)[82]).value.fixnum_type = 82; /* x196030 */ ((t24870.element)[83]).tag = FIXNUM_TYPE; ((t24870.element)[83]).value.fixnum_type = 83; /* x196031 */ ((t24870.element)[84]).tag = FIXNUM_TYPE; ((t24870.element)[84]).value.fixnum_type = 84; /* x196032 */ ((t24870.element)[85]).tag = FIXNUM_TYPE; ((t24870.element)[85]).value.fixnum_type = 85; /* x196033 */ ((t24870.element)[86]).tag = FIXNUM_TYPE; ((t24870.element)[86]).value.fixnum_type = 86; /* x196034 */ ((t24870.element)[87]).tag = FIXNUM_TYPE; ((t24870.element)[87]).value.fixnum_type = 87; /* x196035 */ ((t24870.element)[88]).tag = FIXNUM_TYPE; ((t24870.element)[88]).value.fixnum_type = 88; /* x196036 */ ((t24870.element)[89]).tag = FIXNUM_TYPE; ((t24870.element)[89]).value.fixnum_type = 89; /* x196037 */ ((t24870.element)[90]).tag = FIXNUM_TYPE; ((t24870.element)[90]).value.fixnum_type = 90; /* x196038 */ ((t24870.element)[91]).tag = FIXNUM_TYPE; ((t24870.element)[91]).value.fixnum_type = 91; /* x196039 */ ((t24870.element)[92]).tag = FIXNUM_TYPE; ((t24870.element)[92]).value.fixnum_type = 92; /* x196040 */ ((t24870.element)[93]).tag = FIXNUM_TYPE; ((t24870.element)[93]).value.fixnum_type = 93; /* x196041 */ ((t24870.element)[94]).tag = FIXNUM_TYPE; ((t24870.element)[94]).value.fixnum_type = 94; /* x196042 */ ((t24870.element)[95]).tag = FIXNUM_TYPE; ((t24870.element)[95]).value.fixnum_type = 95; /* x196043 */ ((t24870.element)[96]).tag = FIXNUM_TYPE; ((t24870.element)[96]).value.fixnum_type = 96; /* x196044 */ ((t24870.element)[97]).tag = FIXNUM_TYPE; ((t24870.element)[97]).value.fixnum_type = 65; /* x196045 */ ((t24870.element)[98]).tag = FIXNUM_TYPE; ((t24870.element)[98]).value.fixnum_type = 66; /* x196046 */ ((t24870.element)[99]).tag = FIXNUM_TYPE; ((t24870.element)[99]).value.fixnum_type = 67; /* x196047 */ ((t24870.element)[100]).tag = FIXNUM_TYPE; ((t24870.element)[100]).value.fixnum_type = 68; /* x196048 */ ((t24870.element)[101]).tag = FIXNUM_TYPE; ((t24870.element)[101]).value.fixnum_type = 69; /* x196049 */ ((t24870.element)[102]).tag = FIXNUM_TYPE; ((t24870.element)[102]).value.fixnum_type = 70; /* x196050 */ ((t24870.element)[103]).tag = FIXNUM_TYPE; ((t24870.element)[103]).value.fixnum_type = 71; /* x196051 */ ((t24870.element)[104]).tag = FIXNUM_TYPE; ((t24870.element)[104]).value.fixnum_type = 72; /* x196052 */ ((t24870.element)[105]).tag = FIXNUM_TYPE; ((t24870.element)[105]).value.fixnum_type = 73; /* x196053 */ ((t24870.element)[106]).tag = FIXNUM_TYPE; ((t24870.element)[106]).value.fixnum_type = 74; /* x196054 */ ((t24870.element)[107]).tag = FIXNUM_TYPE; ((t24870.element)[107]).value.fixnum_type = 75; /* x196055 */ ((t24870.element)[108]).tag = FIXNUM_TYPE; ((t24870.element)[108]).value.fixnum_type = 76; /* x196056 */ ((t24870.element)[109]).tag = FIXNUM_TYPE; ((t24870.element)[109]).value.fixnum_type = 77; /* x196057 */ ((t24870.element)[110]).tag = FIXNUM_TYPE; ((t24870.element)[110]).value.fixnum_type = 78; /* x196058 */ ((t24870.element)[111]).tag = FIXNUM_TYPE; ((t24870.element)[111]).value.fixnum_type = 79; /* x196059 */ ((t24870.element)[112]).tag = FIXNUM_TYPE; ((t24870.element)[112]).value.fixnum_type = 80; /* x196060 */ ((t24870.element)[113]).tag = FIXNUM_TYPE; ((t24870.element)[113]).value.fixnum_type = 81; /* x196061 */ ((t24870.element)[114]).tag = FIXNUM_TYPE; ((t24870.element)[114]).value.fixnum_type = 82; /* x196062 */ ((t24870.element)[115]).tag = FIXNUM_TYPE; ((t24870.element)[115]).value.fixnum_type = 83; /* x196063 */ ((t24870.element)[116]).tag = FIXNUM_TYPE; ((t24870.element)[116]).value.fixnum_type = 84; /* x196064 */ ((t24870.element)[117]).tag = FIXNUM_TYPE; ((t24870.element)[117]).value.fixnum_type = 85; /* x196065 */ ((t24870.element)[118]).tag = FIXNUM_TYPE; ((t24870.element)[118]).value.fixnum_type = 86; /* x196066 */ ((t24870.element)[119]).tag = FIXNUM_TYPE; ((t24870.element)[119]).value.fixnum_type = 87; /* x196067 */ ((t24870.element)[120]).tag = FIXNUM_TYPE; ((t24870.element)[120]).value.fixnum_type = 88; /* x196068 */ ((t24870.element)[121]).tag = FIXNUM_TYPE; ((t24870.element)[121]).value.fixnum_type = 89; /* x196069 */ ((t24870.element)[122]).tag = FIXNUM_TYPE; ((t24870.element)[122]).value.fixnum_type = 90; /* x196070 */ ((t24870.element)[123]).tag = FIXNUM_TYPE; ((t24870.element)[123]).value.fixnum_type = 123; /* x196071 */ ((t24870.element)[124]).tag = FIXNUM_TYPE; ((t24870.element)[124]).value.fixnum_type = 124; /* x196072 */ ((t24870.element)[125]).tag = FIXNUM_TYPE; ((t24870.element)[125]).value.fixnum_type = 125; /* x196073 */ ((t24870.element)[126]).tag = FIXNUM_TYPE; ((t24870.element)[126]).value.fixnum_type = 126; /* x196074 */ ((t24870.element)[127]).tag = FIXNUM_TYPE; ((t24870.element)[127]).value.fixnum_type = 127; /* x196075 */ ((t24870.element)[128]).tag = FIXNUM_TYPE; ((t24870.element)[128]).value.fixnum_type = 128; /* x196076 */ ((t24870.element)[129]).tag = FIXNUM_TYPE; ((t24870.element)[129]).value.fixnum_type = 129; /* x196077 */ ((t24870.element)[130]).tag = FIXNUM_TYPE; ((t24870.element)[130]).value.fixnum_type = 130; /* x196078 */ ((t24870.element)[131]).tag = FIXNUM_TYPE; ((t24870.element)[131]).value.fixnum_type = 131; /* x196079 */ ((t24870.element)[132]).tag = FIXNUM_TYPE; ((t24870.element)[132]).value.fixnum_type = 132; /* x196080 */ ((t24870.element)[133]).tag = FIXNUM_TYPE; ((t24870.element)[133]).value.fixnum_type = 133; /* x196081 */ ((t24870.element)[134]).tag = FIXNUM_TYPE; ((t24870.element)[134]).value.fixnum_type = 134; /* x196082 */ ((t24870.element)[135]).tag = FIXNUM_TYPE; ((t24870.element)[135]).value.fixnum_type = 135; /* x196083 */ ((t24870.element)[136]).tag = FIXNUM_TYPE; ((t24870.element)[136]).value.fixnum_type = 136; /* x196084 */ ((t24870.element)[137]).tag = FIXNUM_TYPE; ((t24870.element)[137]).value.fixnum_type = 137; /* x196085 */ ((t24870.element)[138]).tag = FIXNUM_TYPE; ((t24870.element)[138]).value.fixnum_type = 138; /* x196086 */ ((t24870.element)[139]).tag = FIXNUM_TYPE; ((t24870.element)[139]).value.fixnum_type = 139; /* x196087 */ ((t24870.element)[140]).tag = FIXNUM_TYPE; ((t24870.element)[140]).value.fixnum_type = 140; /* x196088 */ ((t24870.element)[141]).tag = FIXNUM_TYPE; ((t24870.element)[141]).value.fixnum_type = 141; /* x196089 */ ((t24870.element)[142]).tag = FIXNUM_TYPE; ((t24870.element)[142]).value.fixnum_type = 142; /* x196090 */ ((t24870.element)[143]).tag = FIXNUM_TYPE; ((t24870.element)[143]).value.fixnum_type = 143; /* x196091 */ ((t24870.element)[144]).tag = FIXNUM_TYPE; ((t24870.element)[144]).value.fixnum_type = 144; /* x196092 */ ((t24870.element)[145]).tag = FIXNUM_TYPE; ((t24870.element)[145]).value.fixnum_type = 145; /* x196093 */ ((t24870.element)[146]).tag = FIXNUM_TYPE; ((t24870.element)[146]).value.fixnum_type = 146; /* x196094 */ ((t24870.element)[147]).tag = FIXNUM_TYPE; ((t24870.element)[147]).value.fixnum_type = 147; /* x196095 */ ((t24870.element)[148]).tag = FIXNUM_TYPE; ((t24870.element)[148]).value.fixnum_type = 148; /* x196096 */ ((t24870.element)[149]).tag = FIXNUM_TYPE; ((t24870.element)[149]).value.fixnum_type = 149; /* x196097 */ ((t24870.element)[150]).tag = FIXNUM_TYPE; ((t24870.element)[150]).value.fixnum_type = 150; /* x196098 */ ((t24870.element)[151]).tag = FIXNUM_TYPE; ((t24870.element)[151]).value.fixnum_type = 151; /* x196099 */ ((t24870.element)[152]).tag = FIXNUM_TYPE; ((t24870.element)[152]).value.fixnum_type = 152; /* x196100 */ ((t24870.element)[153]).tag = FIXNUM_TYPE; ((t24870.element)[153]).value.fixnum_type = 153; /* x196101 */ ((t24870.element)[154]).tag = FIXNUM_TYPE; ((t24870.element)[154]).value.fixnum_type = 154; /* x196102 */ ((t24870.element)[155]).tag = FIXNUM_TYPE; ((t24870.element)[155]).value.fixnum_type = 155; /* x196103 */ ((t24870.element)[156]).tag = FIXNUM_TYPE; ((t24870.element)[156]).value.fixnum_type = 156; /* x196104 */ ((t24870.element)[157]).tag = FIXNUM_TYPE; ((t24870.element)[157]).value.fixnum_type = 157; /* x196105 */ ((t24870.element)[158]).tag = FIXNUM_TYPE; ((t24870.element)[158]).value.fixnum_type = 158; /* x196106 */ ((t24870.element)[159]).tag = FIXNUM_TYPE; ((t24870.element)[159]).value.fixnum_type = 159; /* x196107 */ ((t24870.element)[160]).tag = FIXNUM_TYPE; ((t24870.element)[160]).value.fixnum_type = 160; /* x196108 */ ((t24870.element)[161]).tag = FIXNUM_TYPE; ((t24870.element)[161]).value.fixnum_type = 161; /* x196109 */ ((t24870.element)[162]).tag = FIXNUM_TYPE; ((t24870.element)[162]).value.fixnum_type = 162; /* x196110 */ ((t24870.element)[163]).tag = FIXNUM_TYPE; ((t24870.element)[163]).value.fixnum_type = 163; /* x196111 */ ((t24870.element)[164]).tag = FIXNUM_TYPE; ((t24870.element)[164]).value.fixnum_type = 164; /* x196112 */ ((t24870.element)[165]).tag = FIXNUM_TYPE; ((t24870.element)[165]).value.fixnum_type = 165; /* x196113 */ ((t24870.element)[166]).tag = FIXNUM_TYPE; ((t24870.element)[166]).value.fixnum_type = 166; /* x196114 */ ((t24870.element)[167]).tag = FIXNUM_TYPE; ((t24870.element)[167]).value.fixnum_type = 167; /* x196115 */ ((t24870.element)[168]).tag = FIXNUM_TYPE; ((t24870.element)[168]).value.fixnum_type = 168; /* x196116 */ ((t24870.element)[169]).tag = FIXNUM_TYPE; ((t24870.element)[169]).value.fixnum_type = 169; /* x196117 */ ((t24870.element)[170]).tag = FIXNUM_TYPE; ((t24870.element)[170]).value.fixnum_type = 170; /* x196118 */ ((t24870.element)[171]).tag = FIXNUM_TYPE; ((t24870.element)[171]).value.fixnum_type = 171; /* x196119 */ ((t24870.element)[172]).tag = FIXNUM_TYPE; ((t24870.element)[172]).value.fixnum_type = 172; /* x196120 */ ((t24870.element)[173]).tag = FIXNUM_TYPE; ((t24870.element)[173]).value.fixnum_type = 173; /* x196121 */ ((t24870.element)[174]).tag = FIXNUM_TYPE; ((t24870.element)[174]).value.fixnum_type = 174; /* x196122 */ ((t24870.element)[175]).tag = FIXNUM_TYPE; ((t24870.element)[175]).value.fixnum_type = 175; /* x196123 */ ((t24870.element)[176]).tag = FIXNUM_TYPE; ((t24870.element)[176]).value.fixnum_type = 176; /* x196124 */ ((t24870.element)[177]).tag = FIXNUM_TYPE; ((t24870.element)[177]).value.fixnum_type = 177; /* x196125 */ ((t24870.element)[178]).tag = FIXNUM_TYPE; ((t24870.element)[178]).value.fixnum_type = 178; /* x196126 */ ((t24870.element)[179]).tag = FIXNUM_TYPE; ((t24870.element)[179]).value.fixnum_type = 179; /* x196127 */ ((t24870.element)[180]).tag = FIXNUM_TYPE; ((t24870.element)[180]).value.fixnum_type = 180; /* x196128 */ ((t24870.element)[181]).tag = FIXNUM_TYPE; ((t24870.element)[181]).value.fixnum_type = 181; /* x196129 */ ((t24870.element)[182]).tag = FIXNUM_TYPE; ((t24870.element)[182]).value.fixnum_type = 182; /* x196130 */ ((t24870.element)[183]).tag = FIXNUM_TYPE; ((t24870.element)[183]).value.fixnum_type = 183; /* x196131 */ ((t24870.element)[184]).tag = FIXNUM_TYPE; ((t24870.element)[184]).value.fixnum_type = 184; /* x196132 */ ((t24870.element)[185]).tag = FIXNUM_TYPE; ((t24870.element)[185]).value.fixnum_type = 185; /* x196133 */ ((t24870.element)[186]).tag = FIXNUM_TYPE; ((t24870.element)[186]).value.fixnum_type = 186; /* x196134 */ ((t24870.element)[187]).tag = FIXNUM_TYPE; ((t24870.element)[187]).value.fixnum_type = 187; /* x196135 */ ((t24870.element)[188]).tag = FIXNUM_TYPE; ((t24870.element)[188]).value.fixnum_type = 188; /* x196136 */ ((t24870.element)[189]).tag = FIXNUM_TYPE; ((t24870.element)[189]).value.fixnum_type = 189; /* x196137 */ ((t24870.element)[190]).tag = FIXNUM_TYPE; ((t24870.element)[190]).value.fixnum_type = 190; /* x196138 */ ((t24870.element)[191]).tag = FIXNUM_TYPE; ((t24870.element)[191]).value.fixnum_type = 191; /* x196139 */ ((t24870.element)[192]).tag = FIXNUM_TYPE; ((t24870.element)[192]).value.fixnum_type = 192; /* x196140 */ ((t24870.element)[193]).tag = FIXNUM_TYPE; ((t24870.element)[193]).value.fixnum_type = 193; /* x196141 */ ((t24870.element)[194]).tag = FIXNUM_TYPE; ((t24870.element)[194]).value.fixnum_type = 194; /* x196142 */ ((t24870.element)[195]).tag = FIXNUM_TYPE; ((t24870.element)[195]).value.fixnum_type = 195; /* x196143 */ ((t24870.element)[196]).tag = FIXNUM_TYPE; ((t24870.element)[196]).value.fixnum_type = 196; /* x196144 */ ((t24870.element)[197]).tag = FIXNUM_TYPE; ((t24870.element)[197]).value.fixnum_type = 197; /* x196145 */ ((t24870.element)[198]).tag = FIXNUM_TYPE; ((t24870.element)[198]).value.fixnum_type = 198; /* x196146 */ ((t24870.element)[199]).tag = FIXNUM_TYPE; ((t24870.element)[199]).value.fixnum_type = 199; /* x196147 */ ((t24870.element)[200]).tag = FIXNUM_TYPE; ((t24870.element)[200]).value.fixnum_type = 200; /* x196148 */ ((t24870.element)[201]).tag = FIXNUM_TYPE; ((t24870.element)[201]).value.fixnum_type = 201; /* x196149 */ ((t24870.element)[202]).tag = FIXNUM_TYPE; ((t24870.element)[202]).value.fixnum_type = 202; /* x196150 */ ((t24870.element)[203]).tag = FIXNUM_TYPE; ((t24870.element)[203]).value.fixnum_type = 203; /* x196151 */ ((t24870.element)[204]).tag = FIXNUM_TYPE; ((t24870.element)[204]).value.fixnum_type = 204; /* x196152 */ ((t24870.element)[205]).tag = FIXNUM_TYPE; ((t24870.element)[205]).value.fixnum_type = 205; /* x196153 */ ((t24870.element)[206]).tag = FIXNUM_TYPE; ((t24870.element)[206]).value.fixnum_type = 206; /* x196154 */ ((t24870.element)[207]).tag = FIXNUM_TYPE; ((t24870.element)[207]).value.fixnum_type = 207; /* x196155 */ ((t24870.element)[208]).tag = FIXNUM_TYPE; ((t24870.element)[208]).value.fixnum_type = 208; /* x196156 */ ((t24870.element)[209]).tag = FIXNUM_TYPE; ((t24870.element)[209]).value.fixnum_type = 209; /* x196157 */ ((t24870.element)[210]).tag = FIXNUM_TYPE; ((t24870.element)[210]).value.fixnum_type = 210; /* x196158 */ ((t24870.element)[211]).tag = FIXNUM_TYPE; ((t24870.element)[211]).value.fixnum_type = 211; /* x196159 */ ((t24870.element)[212]).tag = FIXNUM_TYPE; ((t24870.element)[212]).value.fixnum_type = 212; /* x196160 */ ((t24870.element)[213]).tag = FIXNUM_TYPE; ((t24870.element)[213]).value.fixnum_type = 213; /* x196161 */ ((t24870.element)[214]).tag = FIXNUM_TYPE; ((t24870.element)[214]).value.fixnum_type = 214; /* x196162 */ ((t24870.element)[215]).tag = FIXNUM_TYPE; ((t24870.element)[215]).value.fixnum_type = 215; /* x196163 */ ((t24870.element)[216]).tag = FIXNUM_TYPE; ((t24870.element)[216]).value.fixnum_type = 216; /* x196164 */ ((t24870.element)[217]).tag = FIXNUM_TYPE; ((t24870.element)[217]).value.fixnum_type = 217; /* x196165 */ ((t24870.element)[218]).tag = FIXNUM_TYPE; ((t24870.element)[218]).value.fixnum_type = 218; /* x196166 */ ((t24870.element)[219]).tag = FIXNUM_TYPE; ((t24870.element)[219]).value.fixnum_type = 219; /* x196167 */ ((t24870.element)[220]).tag = FIXNUM_TYPE; ((t24870.element)[220]).value.fixnum_type = 220; /* x196168 */ ((t24870.element)[221]).tag = FIXNUM_TYPE; ((t24870.element)[221]).value.fixnum_type = 221; /* x196169 */ ((t24870.element)[222]).tag = FIXNUM_TYPE; ((t24870.element)[222]).value.fixnum_type = 222; /* x196170 */ ((t24870.element)[223]).tag = FIXNUM_TYPE; ((t24870.element)[223]).value.fixnum_type = 191; /* x196171 */ ((t24870.element)[224]).tag = FIXNUM_TYPE; ((t24870.element)[224]).value.fixnum_type = 192; /* x196172 */ ((t24870.element)[225]).tag = FIXNUM_TYPE; ((t24870.element)[225]).value.fixnum_type = 193; /* x196173 */ ((t24870.element)[226]).tag = FIXNUM_TYPE; ((t24870.element)[226]).value.fixnum_type = 194; /* x196174 */ ((t24870.element)[227]).tag = FIXNUM_TYPE; ((t24870.element)[227]).value.fixnum_type = 195; /* x196175 */ ((t24870.element)[228]).tag = FIXNUM_TYPE; ((t24870.element)[228]).value.fixnum_type = 196; /* x196176 */ ((t24870.element)[229]).tag = FIXNUM_TYPE; ((t24870.element)[229]).value.fixnum_type = 197; /* x196177 */ ((t24870.element)[230]).tag = FIXNUM_TYPE; ((t24870.element)[230]).value.fixnum_type = 198; /* x196178 */ ((t24870.element)[231]).tag = FIXNUM_TYPE; ((t24870.element)[231]).value.fixnum_type = 199; /* x196179 */ ((t24870.element)[232]).tag = FIXNUM_TYPE; ((t24870.element)[232]).value.fixnum_type = 200; /* x196180 */ ((t24870.element)[233]).tag = FIXNUM_TYPE; ((t24870.element)[233]).value.fixnum_type = 201; /* x196181 */ ((t24870.element)[234]).tag = FIXNUM_TYPE; ((t24870.element)[234]).value.fixnum_type = 202; /* x196182 */ ((t24870.element)[235]).tag = FIXNUM_TYPE; ((t24870.element)[235]).value.fixnum_type = 203; /* x196183 */ ((t24870.element)[236]).tag = FIXNUM_TYPE; ((t24870.element)[236]).value.fixnum_type = 204; /* x196184 */ ((t24870.element)[237]).tag = FIXNUM_TYPE; ((t24870.element)[237]).value.fixnum_type = 205; /* x196185 */ ((t24870.element)[238]).tag = FIXNUM_TYPE; ((t24870.element)[238]).value.fixnum_type = 206; /* x196186 */ ((t24870.element)[239]).tag = FIXNUM_TYPE; ((t24870.element)[239]).value.fixnum_type = 207; /* x196187 */ ((t24870.element)[240]).tag = FIXNUM_TYPE; ((t24870.element)[240]).value.fixnum_type = 208; /* x196188 */ ((t24870.element)[241]).tag = FIXNUM_TYPE; ((t24870.element)[241]).value.fixnum_type = 209; /* x196189 */ ((t24870.element)[242]).tag = FIXNUM_TYPE; ((t24870.element)[242]).value.fixnum_type = 210; /* x196190 */ ((t24870.element)[243]).tag = FIXNUM_TYPE; ((t24870.element)[243]).value.fixnum_type = 211; /* x196191 */ ((t24870.element)[244]).tag = FIXNUM_TYPE; ((t24870.element)[244]).value.fixnum_type = 212; /* x196192 */ ((t24870.element)[245]).tag = FIXNUM_TYPE; ((t24870.element)[245]).value.fixnum_type = 213; /* x196193 */ ((t24870.element)[246]).tag = FIXNUM_TYPE; ((t24870.element)[246]).value.fixnum_type = 214; /* x196194 */ ((t24870.element)[247]).tag = FIXNUM_TYPE; ((t24870.element)[247]).value.fixnum_type = 247; /* x196195 */ ((t24870.element)[248]).tag = FIXNUM_TYPE; ((t24870.element)[248]).value.fixnum_type = 216; /* x196196 */ ((t24870.element)[249]).tag = FIXNUM_TYPE; ((t24870.element)[249]).value.fixnum_type = 217; /* x196197 */ ((t24870.element)[250]).tag = FIXNUM_TYPE; ((t24870.element)[250]).value.fixnum_type = 218; /* x196198 */ ((t24870.element)[251]).tag = FIXNUM_TYPE; ((t24870.element)[251]).value.fixnum_type = 219; /* x196199 */ ((t24870.element)[252]).tag = FIXNUM_TYPE; ((t24870.element)[252]).value.fixnum_type = 220; /* x196200 */ ((t24870.element)[253]).tag = FIXNUM_TYPE; ((t24870.element)[253]).value.fixnum_type = 221; /* x196201 */ ((t24870.element)[254]).tag = FIXNUM_TYPE; ((t24870.element)[254]).value.fixnum_type = 222; /* x196202 */ ((t24870.element)[255]).tag = FIXNUM_TYPE; ((t24870.element)[255]).value.fixnum_type = 223; /* x196203 */ t24869.s0.tag = HEADED_VECTOR_TYPE27896; t24869.s0.value.headed_vector_type27896 = (struct headed_vector_type27896 *)(&t24870); /* x196204 */ t24869.s1.tag = NULL_TYPE; /* x196205 */ t24868.s1.tag = STRUCTURE_TYPE24753; t24868.s1.value.structure_type24753 = &t24869; /* x196206 */ t24867.s0.tag = STRUCTURE_TYPE24753; t24867.s0.value.structure_type24753 = &t24868; /* x196207 */ t24867.s1.tag = NULL_TYPE; /* x196208 */ t24866.s1.tag = STRUCTURE_TYPE24753; t24866.s1.value.structure_type24753 = &t24867; /* x196209 */ t24865.s0.tag = STRUCTURE_TYPE24753; t24865.s0.value.structure_type24753 = &t24866; /* x196210 */ t24865.s1.tag = NULL_TYPE; /* x196211 */ t24864.s0.tag = STRUCTURE_TYPE24753; t24864.s0.value.structure_type24753 = &t24865; /* x196212 */ t24872.s0.tag = EXTERNAL_SYMBOL_TYPE; t24872.s0.value.external_symbol_type = q39; /* x196213 */ t24874.s0.tag = EXTERNAL_SYMBOL_TYPE; t24874.s0.value.external_symbol_type = q56; /* x196214 */ t24874.s1.tag = NULL_TYPE; /* x196215 */ t24873.s0.tag = STRUCTURE_TYPE24753; t24873.s0.value.structure_type24753 = &t24874; /* x196216 */ t24876.s0.tag = EXTERNAL_SYMBOL_TYPE; t24876.s0.value.external_symbol_type = q158; /* x196217 */ t24878.s0.tag = EXTERNAL_SYMBOL_TYPE; t24878.s0.value.external_symbol_type = q169; /* x196218 */ t24879.s0.tag = EXTERNAL_SYMBOL_TYPE; t24879.s0.value.external_symbol_type = q285; /* x196219 */ t24881.s0.tag = EXTERNAL_SYMBOL_TYPE; t24881.s0.value.external_symbol_type = q157; /* x196220 */ t24882.s0.tag = EXTERNAL_SYMBOL_TYPE; t24882.s0.value.external_symbol_type = q56; /* x196221 */ t24882.s1.tag = NULL_TYPE; /* x196222 */ t24881.s1.tag = STRUCTURE_TYPE24753; t24881.s1.value.structure_type24753 = &t24882; /* x196223 */ t24880.s0.tag = STRUCTURE_TYPE24753; t24880.s0.value.structure_type24753 = &t24881; /* x196224 */ t24880.s1.tag = NULL_TYPE; /* x196225 */ t24879.s1.tag = STRUCTURE_TYPE24753; t24879.s1.value.structure_type24753 = &t24880; /* x196226 */ t24878.s1.tag = STRUCTURE_TYPE24753; t24878.s1.value.structure_type24753 = &t24879; /* x196227 */ t24877.s0.tag = STRUCTURE_TYPE24753; t24877.s0.value.structure_type24753 = &t24878; /* x196228 */ t24877.s1.tag = NULL_TYPE; /* x196229 */ t24876.s1.tag = STRUCTURE_TYPE24753; t24876.s1.value.structure_type24753 = &t24877; /* x196230 */ t24875.s0.tag = STRUCTURE_TYPE24753; t24875.s0.value.structure_type24753 = &t24876; /* x196231 */ t24875.s1.tag = NULL_TYPE; /* x196232 */ t24873.s1.tag = STRUCTURE_TYPE24753; t24873.s1.value.structure_type24753 = &t24875; /* x196233 */ t24872.s1.tag = STRUCTURE_TYPE24753; t24872.s1.value.structure_type24753 = &t24873; /* x196234 */ t24871.s0.tag = STRUCTURE_TYPE24753; t24871.s0.value.structure_type24753 = &t24872; /* x196235 */ t24871.s1.tag = NULL_TYPE; /* x196236 */ t24864.s1.tag = STRUCTURE_TYPE24753; t24864.s1.value.structure_type24753 = &t24871; /* x196237 */ t24863.s1.tag = STRUCTURE_TYPE24753; t24863.s1.value.structure_type24753 = &t24864; /* x196238 */ t24862.s0.tag = STRUCTURE_TYPE24753; t24862.s0.value.structure_type24753 = &t24863; /* x196239 */ t24862.s1.tag = NULL_TYPE; /* x196240 */ t24861.s1.tag = STRUCTURE_TYPE24753; t24861.s1.value.structure_type24753 = &t24862; /* x196241 */ t24860.s1.tag = STRUCTURE_TYPE24753; t24860.s1.value.structure_type24753 = &t24861; /* x196244 */ t24887.s0.tag = EXTERNAL_SYMBOL_TYPE; t24887.s0.value.external_symbol_type = q97; /* x196245 */ t24888.s0.tag = EXTERNAL_SYMBOL_TYPE; t24888.s0.value.external_symbol_type = q467; /* x196246 */ t24890.s0.tag = EXTERNAL_SYMBOL_TYPE; t24890.s0.value.external_symbol_type = q242; /* x196247 */ t24893.s0.tag = EXTERNAL_SYMBOL_TYPE; t24893.s0.value.external_symbol_type = q467; /* x196248 */ t24895.s0.tag = EXTERNAL_SYMBOL_TYPE; t24895.s0.value.external_symbol_type = q11; t24897.length = 256; /* x196249 */ ((t24897.element)[0]).tag = FIXNUM_TYPE; ((t24897.element)[0]).value.fixnum_type = 0; /* x196250 */ ((t24897.element)[1]).tag = FIXNUM_TYPE; ((t24897.element)[1]).value.fixnum_type = 1; /* x196251 */ ((t24897.element)[2]).tag = FIXNUM_TYPE; ((t24897.element)[2]).value.fixnum_type = 2; /* x196252 */ ((t24897.element)[3]).tag = FIXNUM_TYPE; ((t24897.element)[3]).value.fixnum_type = 3; /* x196253 */ ((t24897.element)[4]).tag = FIXNUM_TYPE; ((t24897.element)[4]).value.fixnum_type = 4; /* x196254 */ ((t24897.element)[5]).tag = FIXNUM_TYPE; ((t24897.element)[5]).value.fixnum_type = 5; /* x196255 */ ((t24897.element)[6]).tag = FIXNUM_TYPE; ((t24897.element)[6]).value.fixnum_type = 6; /* x196256 */ ((t24897.element)[7]).tag = FIXNUM_TYPE; ((t24897.element)[7]).value.fixnum_type = 7; /* x196257 */ ((t24897.element)[8]).tag = FIXNUM_TYPE; ((t24897.element)[8]).value.fixnum_type = 8; /* x196258 */ ((t24897.element)[9]).tag = FIXNUM_TYPE; ((t24897.element)[9]).value.fixnum_type = 9; /* x196259 */ ((t24897.element)[10]).tag = FIXNUM_TYPE; ((t24897.element)[10]).value.fixnum_type = 10; /* x196260 */ ((t24897.element)[11]).tag = FIXNUM_TYPE; ((t24897.element)[11]).value.fixnum_type = 11; /* x196261 */ ((t24897.element)[12]).tag = FIXNUM_TYPE; ((t24897.element)[12]).value.fixnum_type = 12; /* x196262 */ ((t24897.element)[13]).tag = FIXNUM_TYPE; ((t24897.element)[13]).value.fixnum_type = 13; /* x196263 */ ((t24897.element)[14]).tag = FIXNUM_TYPE; ((t24897.element)[14]).value.fixnum_type = 14; /* x196264 */ ((t24897.element)[15]).tag = FIXNUM_TYPE; ((t24897.element)[15]).value.fixnum_type = 15; /* x196265 */ ((t24897.element)[16]).tag = FIXNUM_TYPE; ((t24897.element)[16]).value.fixnum_type = 16; /* x196266 */ ((t24897.element)[17]).tag = FIXNUM_TYPE; ((t24897.element)[17]).value.fixnum_type = 17; /* x196267 */ ((t24897.element)[18]).tag = FIXNUM_TYPE; ((t24897.element)[18]).value.fixnum_type = 18; /* x196268 */ ((t24897.element)[19]).tag = FIXNUM_TYPE; ((t24897.element)[19]).value.fixnum_type = 19; /* x196269 */ ((t24897.element)[20]).tag = FIXNUM_TYPE; ((t24897.element)[20]).value.fixnum_type = 20; /* x196270 */ ((t24897.element)[21]).tag = FIXNUM_TYPE; ((t24897.element)[21]).value.fixnum_type = 21; /* x196271 */ ((t24897.element)[22]).tag = FIXNUM_TYPE; ((t24897.element)[22]).value.fixnum_type = 22; /* x196272 */ ((t24897.element)[23]).tag = FIXNUM_TYPE; ((t24897.element)[23]).value.fixnum_type = 23; /* x196273 */ ((t24897.element)[24]).tag = FIXNUM_TYPE; ((t24897.element)[24]).value.fixnum_type = 24; /* x196274 */ ((t24897.element)[25]).tag = FIXNUM_TYPE; ((t24897.element)[25]).value.fixnum_type = 25; /* x196275 */ ((t24897.element)[26]).tag = FIXNUM_TYPE; ((t24897.element)[26]).value.fixnum_type = 26; /* x196276 */ ((t24897.element)[27]).tag = FIXNUM_TYPE; ((t24897.element)[27]).value.fixnum_type = 27; /* x196277 */ ((t24897.element)[28]).tag = FIXNUM_TYPE; ((t24897.element)[28]).value.fixnum_type = 28; /* x196278 */ ((t24897.element)[29]).tag = FIXNUM_TYPE; ((t24897.element)[29]).value.fixnum_type = 29; /* x196279 */ ((t24897.element)[30]).tag = FIXNUM_TYPE; ((t24897.element)[30]).value.fixnum_type = 30; /* x196280 */ ((t24897.element)[31]).tag = FIXNUM_TYPE; ((t24897.element)[31]).value.fixnum_type = 31; /* x196281 */ ((t24897.element)[32]).tag = FIXNUM_TYPE; ((t24897.element)[32]).value.fixnum_type = 32; /* x196282 */ ((t24897.element)[33]).tag = FIXNUM_TYPE; ((t24897.element)[33]).value.fixnum_type = 33; /* x196283 */ ((t24897.element)[34]).tag = FIXNUM_TYPE; ((t24897.element)[34]).value.fixnum_type = 34; /* x196284 */ ((t24897.element)[35]).tag = FIXNUM_TYPE; ((t24897.element)[35]).value.fixnum_type = 35; /* x196285 */ ((t24897.element)[36]).tag = FIXNUM_TYPE; ((t24897.element)[36]).value.fixnum_type = 36; /* x196286 */ ((t24897.element)[37]).tag = FIXNUM_TYPE; ((t24897.element)[37]).value.fixnum_type = 37; /* x196287 */ ((t24897.element)[38]).tag = FIXNUM_TYPE; ((t24897.element)[38]).value.fixnum_type = 38; /* x196288 */ ((t24897.element)[39]).tag = FIXNUM_TYPE; ((t24897.element)[39]).value.fixnum_type = 39; /* x196289 */ ((t24897.element)[40]).tag = FIXNUM_TYPE; ((t24897.element)[40]).value.fixnum_type = 40; /* x196290 */ ((t24897.element)[41]).tag = FIXNUM_TYPE; ((t24897.element)[41]).value.fixnum_type = 41; /* x196291 */ ((t24897.element)[42]).tag = FIXNUM_TYPE; ((t24897.element)[42]).value.fixnum_type = 42; /* x196292 */ ((t24897.element)[43]).tag = FIXNUM_TYPE; ((t24897.element)[43]).value.fixnum_type = 43; /* x196293 */ ((t24897.element)[44]).tag = FIXNUM_TYPE; ((t24897.element)[44]).value.fixnum_type = 44; /* x196294 */ ((t24897.element)[45]).tag = FIXNUM_TYPE; ((t24897.element)[45]).value.fixnum_type = 45; /* x196295 */ ((t24897.element)[46]).tag = FIXNUM_TYPE; ((t24897.element)[46]).value.fixnum_type = 46; /* x196296 */ ((t24897.element)[47]).tag = FIXNUM_TYPE; ((t24897.element)[47]).value.fixnum_type = 47; /* x196297 */ ((t24897.element)[48]).tag = FIXNUM_TYPE; ((t24897.element)[48]).value.fixnum_type = 48; /* x196298 */ ((t24897.element)[49]).tag = FIXNUM_TYPE; ((t24897.element)[49]).value.fixnum_type = 49; /* x196299 */ ((t24897.element)[50]).tag = FIXNUM_TYPE; ((t24897.element)[50]).value.fixnum_type = 50; /* x196300 */ ((t24897.element)[51]).tag = FIXNUM_TYPE; ((t24897.element)[51]).value.fixnum_type = 51; /* x196301 */ ((t24897.element)[52]).tag = FIXNUM_TYPE; ((t24897.element)[52]).value.fixnum_type = 52; /* x196302 */ ((t24897.element)[53]).tag = FIXNUM_TYPE; ((t24897.element)[53]).value.fixnum_type = 53; /* x196303 */ ((t24897.element)[54]).tag = FIXNUM_TYPE; ((t24897.element)[54]).value.fixnum_type = 54; /* x196304 */ ((t24897.element)[55]).tag = FIXNUM_TYPE; ((t24897.element)[55]).value.fixnum_type = 55; /* x196305 */ ((t24897.element)[56]).tag = FIXNUM_TYPE; ((t24897.element)[56]).value.fixnum_type = 56; /* x196306 */ ((t24897.element)[57]).tag = FIXNUM_TYPE; ((t24897.element)[57]).value.fixnum_type = 57; /* x196307 */ ((t24897.element)[58]).tag = FIXNUM_TYPE; ((t24897.element)[58]).value.fixnum_type = 58; /* x196308 */ ((t24897.element)[59]).tag = FIXNUM_TYPE; ((t24897.element)[59]).value.fixnum_type = 59; /* x196309 */ ((t24897.element)[60]).tag = FIXNUM_TYPE; ((t24897.element)[60]).value.fixnum_type = 60; /* x196310 */ ((t24897.element)[61]).tag = FIXNUM_TYPE; ((t24897.element)[61]).value.fixnum_type = 61; /* x196311 */ ((t24897.element)[62]).tag = FIXNUM_TYPE; ((t24897.element)[62]).value.fixnum_type = 62; /* x196312 */ ((t24897.element)[63]).tag = FIXNUM_TYPE; ((t24897.element)[63]).value.fixnum_type = 63; /* x196313 */ ((t24897.element)[64]).tag = FIXNUM_TYPE; ((t24897.element)[64]).value.fixnum_type = 64; /* x196314 */ ((t24897.element)[65]).tag = FIXNUM_TYPE; ((t24897.element)[65]).value.fixnum_type = 97; /* x196315 */ ((t24897.element)[66]).tag = FIXNUM_TYPE; ((t24897.element)[66]).value.fixnum_type = 98; /* x196316 */ ((t24897.element)[67]).tag = FIXNUM_TYPE; ((t24897.element)[67]).value.fixnum_type = 99; /* x196317 */ ((t24897.element)[68]).tag = FIXNUM_TYPE; ((t24897.element)[68]).value.fixnum_type = 100; /* x196318 */ ((t24897.element)[69]).tag = FIXNUM_TYPE; ((t24897.element)[69]).value.fixnum_type = 101; /* x196319 */ ((t24897.element)[70]).tag = FIXNUM_TYPE; ((t24897.element)[70]).value.fixnum_type = 102; /* x196320 */ ((t24897.element)[71]).tag = FIXNUM_TYPE; ((t24897.element)[71]).value.fixnum_type = 103; /* x196321 */ ((t24897.element)[72]).tag = FIXNUM_TYPE; ((t24897.element)[72]).value.fixnum_type = 104; /* x196322 */ ((t24897.element)[73]).tag = FIXNUM_TYPE; ((t24897.element)[73]).value.fixnum_type = 105; /* x196323 */ ((t24897.element)[74]).tag = FIXNUM_TYPE; ((t24897.element)[74]).value.fixnum_type = 106; /* x196324 */ ((t24897.element)[75]).tag = FIXNUM_TYPE; ((t24897.element)[75]).value.fixnum_type = 107; /* x196325 */ ((t24897.element)[76]).tag = FIXNUM_TYPE; ((t24897.element)[76]).value.fixnum_type = 108; /* x196326 */ ((t24897.element)[77]).tag = FIXNUM_TYPE; ((t24897.element)[77]).value.fixnum_type = 109; /* x196327 */ ((t24897.element)[78]).tag = FIXNUM_TYPE; ((t24897.element)[78]).value.fixnum_type = 110; /* x196328 */ ((t24897.element)[79]).tag = FIXNUM_TYPE; ((t24897.element)[79]).value.fixnum_type = 111; /* x196329 */ ((t24897.element)[80]).tag = FIXNUM_TYPE; ((t24897.element)[80]).value.fixnum_type = 112; /* x196330 */ ((t24897.element)[81]).tag = FIXNUM_TYPE; ((t24897.element)[81]).value.fixnum_type = 113; /* x196331 */ ((t24897.element)[82]).tag = FIXNUM_TYPE; ((t24897.element)[82]).value.fixnum_type = 114; /* x196332 */ ((t24897.element)[83]).tag = FIXNUM_TYPE; ((t24897.element)[83]).value.fixnum_type = 115; /* x196333 */ ((t24897.element)[84]).tag = FIXNUM_TYPE; ((t24897.element)[84]).value.fixnum_type = 116; /* x196334 */ ((t24897.element)[85]).tag = FIXNUM_TYPE; ((t24897.element)[85]).value.fixnum_type = 117; /* x196335 */ ((t24897.element)[86]).tag = FIXNUM_TYPE; ((t24897.element)[86]).value.fixnum_type = 118; /* x196336 */ ((t24897.element)[87]).tag = FIXNUM_TYPE; ((t24897.element)[87]).value.fixnum_type = 119; /* x196337 */ ((t24897.element)[88]).tag = FIXNUM_TYPE; ((t24897.element)[88]).value.fixnum_type = 120; /* x196338 */ ((t24897.element)[89]).tag = FIXNUM_TYPE; ((t24897.element)[89]).value.fixnum_type = 121; /* x196339 */ ((t24897.element)[90]).tag = FIXNUM_TYPE; ((t24897.element)[90]).value.fixnum_type = 122; /* x196340 */ ((t24897.element)[91]).tag = FIXNUM_TYPE; ((t24897.element)[91]).value.fixnum_type = 91; /* x196341 */ ((t24897.element)[92]).tag = FIXNUM_TYPE; ((t24897.element)[92]).value.fixnum_type = 92; /* x196342 */ ((t24897.element)[93]).tag = FIXNUM_TYPE; ((t24897.element)[93]).value.fixnum_type = 93; /* x196343 */ ((t24897.element)[94]).tag = FIXNUM_TYPE; ((t24897.element)[94]).value.fixnum_type = 94; /* x196344 */ ((t24897.element)[95]).tag = FIXNUM_TYPE; ((t24897.element)[95]).value.fixnum_type = 95; /* x196345 */ ((t24897.element)[96]).tag = FIXNUM_TYPE; ((t24897.element)[96]).value.fixnum_type = 96; /* x196346 */ ((t24897.element)[97]).tag = FIXNUM_TYPE; ((t24897.element)[97]).value.fixnum_type = 97; /* x196347 */ ((t24897.element)[98]).tag = FIXNUM_TYPE; ((t24897.element)[98]).value.fixnum_type = 98; /* x196348 */ ((t24897.element)[99]).tag = FIXNUM_TYPE; ((t24897.element)[99]).value.fixnum_type = 99; /* x196349 */ ((t24897.element)[100]).tag = FIXNUM_TYPE; ((t24897.element)[100]).value.fixnum_type = 100; /* x196350 */ ((t24897.element)[101]).tag = FIXNUM_TYPE; ((t24897.element)[101]).value.fixnum_type = 101; /* x196351 */ ((t24897.element)[102]).tag = FIXNUM_TYPE; ((t24897.element)[102]).value.fixnum_type = 102; /* x196352 */ ((t24897.element)[103]).tag = FIXNUM_TYPE; ((t24897.element)[103]).value.fixnum_type = 103; /* x196353 */ ((t24897.element)[104]).tag = FIXNUM_TYPE; ((t24897.element)[104]).value.fixnum_type = 104; /* x196354 */ ((t24897.element)[105]).tag = FIXNUM_TYPE; ((t24897.element)[105]).value.fixnum_type = 105; /* x196355 */ ((t24897.element)[106]).tag = FIXNUM_TYPE; ((t24897.element)[106]).value.fixnum_type = 106; /* x196356 */ ((t24897.element)[107]).tag = FIXNUM_TYPE; ((t24897.element)[107]).value.fixnum_type = 107; /* x196357 */ ((t24897.element)[108]).tag = FIXNUM_TYPE; ((t24897.element)[108]).value.fixnum_type = 108; /* x196358 */ ((t24897.element)[109]).tag = FIXNUM_TYPE; ((t24897.element)[109]).value.fixnum_type = 109; /* x196359 */ ((t24897.element)[110]).tag = FIXNUM_TYPE; ((t24897.element)[110]).value.fixnum_type = 110; /* x196360 */ ((t24897.element)[111]).tag = FIXNUM_TYPE; ((t24897.element)[111]).value.fixnum_type = 111; /* x196361 */ ((t24897.element)[112]).tag = FIXNUM_TYPE; ((t24897.element)[112]).value.fixnum_type = 112; /* x196362 */ ((t24897.element)[113]).tag = FIXNUM_TYPE; ((t24897.element)[113]).value.fixnum_type = 113; /* x196363 */ ((t24897.element)[114]).tag = FIXNUM_TYPE; ((t24897.element)[114]).value.fixnum_type = 114; /* x196364 */ ((t24897.element)[115]).tag = FIXNUM_TYPE; ((t24897.element)[115]).value.fixnum_type = 115; /* x196365 */ ((t24897.element)[116]).tag = FIXNUM_TYPE; ((t24897.element)[116]).value.fixnum_type = 116; /* x196366 */ ((t24897.element)[117]).tag = FIXNUM_TYPE; ((t24897.element)[117]).value.fixnum_type = 117; /* x196367 */ ((t24897.element)[118]).tag = FIXNUM_TYPE; ((t24897.element)[118]).value.fixnum_type = 118; /* x196368 */ ((t24897.element)[119]).tag = FIXNUM_TYPE; ((t24897.element)[119]).value.fixnum_type = 119; /* x196369 */ ((t24897.element)[120]).tag = FIXNUM_TYPE; ((t24897.element)[120]).value.fixnum_type = 120; /* x196370 */ ((t24897.element)[121]).tag = FIXNUM_TYPE; ((t24897.element)[121]).value.fixnum_type = 121; /* x196371 */ ((t24897.element)[122]).tag = FIXNUM_TYPE; ((t24897.element)[122]).value.fixnum_type = 122; /* x196372 */ ((t24897.element)[123]).tag = FIXNUM_TYPE; ((t24897.element)[123]).value.fixnum_type = 123; /* x196373 */ ((t24897.element)[124]).tag = FIXNUM_TYPE; ((t24897.element)[124]).value.fixnum_type = 124; /* x196374 */ ((t24897.element)[125]).tag = FIXNUM_TYPE; ((t24897.element)[125]).value.fixnum_type = 125; /* x196375 */ ((t24897.element)[126]).tag = FIXNUM_TYPE; ((t24897.element)[126]).value.fixnum_type = 126; /* x196376 */ ((t24897.element)[127]).tag = FIXNUM_TYPE; ((t24897.element)[127]).value.fixnum_type = 127; /* x196377 */ ((t24897.element)[128]).tag = FIXNUM_TYPE; ((t24897.element)[128]).value.fixnum_type = 128; /* x196378 */ ((t24897.element)[129]).tag = FIXNUM_TYPE; ((t24897.element)[129]).value.fixnum_type = 129; /* x196379 */ ((t24897.element)[130]).tag = FIXNUM_TYPE; ((t24897.element)[130]).value.fixnum_type = 130; /* x196380 */ ((t24897.element)[131]).tag = FIXNUM_TYPE; ((t24897.element)[131]).value.fixnum_type = 131; /* x196381 */ ((t24897.element)[132]).tag = FIXNUM_TYPE; ((t24897.element)[132]).value.fixnum_type = 132; /* x196382 */ ((t24897.element)[133]).tag = FIXNUM_TYPE; ((t24897.element)[133]).value.fixnum_type = 133; /* x196383 */ ((t24897.element)[134]).tag = FIXNUM_TYPE; ((t24897.element)[134]).value.fixnum_type = 134; /* x196384 */ ((t24897.element)[135]).tag = FIXNUM_TYPE; ((t24897.element)[135]).value.fixnum_type = 135; /* x196385 */ ((t24897.element)[136]).tag = FIXNUM_TYPE; ((t24897.element)[136]).value.fixnum_type = 136; /* x196386 */ ((t24897.element)[137]).tag = FIXNUM_TYPE; ((t24897.element)[137]).value.fixnum_type = 137; /* x196387 */ ((t24897.element)[138]).tag = FIXNUM_TYPE; ((t24897.element)[138]).value.fixnum_type = 138; /* x196388 */ ((t24897.element)[139]).tag = FIXNUM_TYPE; ((t24897.element)[139]).value.fixnum_type = 139; /* x196389 */ ((t24897.element)[140]).tag = FIXNUM_TYPE; ((t24897.element)[140]).value.fixnum_type = 140; /* x196390 */ ((t24897.element)[141]).tag = FIXNUM_TYPE; ((t24897.element)[141]).value.fixnum_type = 141; /* x196391 */ ((t24897.element)[142]).tag = FIXNUM_TYPE; ((t24897.element)[142]).value.fixnum_type = 142; /* x196392 */ ((t24897.element)[143]).tag = FIXNUM_TYPE; ((t24897.element)[143]).value.fixnum_type = 143; /* x196393 */ ((t24897.element)[144]).tag = FIXNUM_TYPE; ((t24897.element)[144]).value.fixnum_type = 144; /* x196394 */ ((t24897.element)[145]).tag = FIXNUM_TYPE; ((t24897.element)[145]).value.fixnum_type = 145; /* x196395 */ ((t24897.element)[146]).tag = FIXNUM_TYPE; ((t24897.element)[146]).value.fixnum_type = 146; /* x196396 */ ((t24897.element)[147]).tag = FIXNUM_TYPE; ((t24897.element)[147]).value.fixnum_type = 147; /* x196397 */ ((t24897.element)[148]).tag = FIXNUM_TYPE; ((t24897.element)[148]).value.fixnum_type = 148; /* x196398 */ ((t24897.element)[149]).tag = FIXNUM_TYPE; ((t24897.element)[149]).value.fixnum_type = 149; /* x196399 */ ((t24897.element)[150]).tag = FIXNUM_TYPE; ((t24897.element)[150]).value.fixnum_type = 150; /* x196400 */ ((t24897.element)[151]).tag = FIXNUM_TYPE; ((t24897.element)[151]).value.fixnum_type = 151; /* x196401 */ ((t24897.element)[152]).tag = FIXNUM_TYPE; ((t24897.element)[152]).value.fixnum_type = 152; /* x196402 */ ((t24897.element)[153]).tag = FIXNUM_TYPE; ((t24897.element)[153]).value.fixnum_type = 153; /* x196403 */ ((t24897.element)[154]).tag = FIXNUM_TYPE; ((t24897.element)[154]).value.fixnum_type = 154; /* x196404 */ ((t24897.element)[155]).tag = FIXNUM_TYPE; ((t24897.element)[155]).value.fixnum_type = 155; /* x196405 */ ((t24897.element)[156]).tag = FIXNUM_TYPE; ((t24897.element)[156]).value.fixnum_type = 156; /* x196406 */ ((t24897.element)[157]).tag = FIXNUM_TYPE; ((t24897.element)[157]).value.fixnum_type = 157; /* x196407 */ ((t24897.element)[158]).tag = FIXNUM_TYPE; ((t24897.element)[158]).value.fixnum_type = 158; /* x196408 */ ((t24897.element)[159]).tag = FIXNUM_TYPE; ((t24897.element)[159]).value.fixnum_type = 159; /* x196409 */ ((t24897.element)[160]).tag = FIXNUM_TYPE; ((t24897.element)[160]).value.fixnum_type = 160; /* x196410 */ ((t24897.element)[161]).tag = FIXNUM_TYPE; ((t24897.element)[161]).value.fixnum_type = 161; /* x196411 */ ((t24897.element)[162]).tag = FIXNUM_TYPE; ((t24897.element)[162]).value.fixnum_type = 162; /* x196412 */ ((t24897.element)[163]).tag = FIXNUM_TYPE; ((t24897.element)[163]).value.fixnum_type = 163; /* x196413 */ ((t24897.element)[164]).tag = FIXNUM_TYPE; ((t24897.element)[164]).value.fixnum_type = 164; /* x196414 */ ((t24897.element)[165]).tag = FIXNUM_TYPE; ((t24897.element)[165]).value.fixnum_type = 165; /* x196415 */ ((t24897.element)[166]).tag = FIXNUM_TYPE; ((t24897.element)[166]).value.fixnum_type = 166; /* x196416 */ ((t24897.element)[167]).tag = FIXNUM_TYPE; ((t24897.element)[167]).value.fixnum_type = 167; /* x196417 */ ((t24897.element)[168]).tag = FIXNUM_TYPE; ((t24897.element)[168]).value.fixnum_type = 168; /* x196418 */ ((t24897.element)[169]).tag = FIXNUM_TYPE; ((t24897.element)[169]).value.fixnum_type = 169; /* x196419 */ ((t24897.element)[170]).tag = FIXNUM_TYPE; ((t24897.element)[170]).value.fixnum_type = 170; /* x196420 */ ((t24897.element)[171]).tag = FIXNUM_TYPE; ((t24897.element)[171]).value.fixnum_type = 171; /* x196421 */ ((t24897.element)[172]).tag = FIXNUM_TYPE; ((t24897.element)[172]).value.fixnum_type = 172; /* x196422 */ ((t24897.element)[173]).tag = FIXNUM_TYPE; ((t24897.element)[173]).value.fixnum_type = 173; /* x196423 */ ((t24897.element)[174]).tag = FIXNUM_TYPE; ((t24897.element)[174]).value.fixnum_type = 174; /* x196424 */ ((t24897.element)[175]).tag = FIXNUM_TYPE; ((t24897.element)[175]).value.fixnum_type = 175; /* x196425 */ ((t24897.element)[176]).tag = FIXNUM_TYPE; ((t24897.element)[176]).value.fixnum_type = 176; /* x196426 */ ((t24897.element)[177]).tag = FIXNUM_TYPE; ((t24897.element)[177]).value.fixnum_type = 177; /* x196427 */ ((t24897.element)[178]).tag = FIXNUM_TYPE; ((t24897.element)[178]).value.fixnum_type = 178; /* x196428 */ ((t24897.element)[179]).tag = FIXNUM_TYPE; ((t24897.element)[179]).value.fixnum_type = 179; /* x196429 */ ((t24897.element)[180]).tag = FIXNUM_TYPE; ((t24897.element)[180]).value.fixnum_type = 180; /* x196430 */ ((t24897.element)[181]).tag = FIXNUM_TYPE; ((t24897.element)[181]).value.fixnum_type = 181; /* x196431 */ ((t24897.element)[182]).tag = FIXNUM_TYPE; ((t24897.element)[182]).value.fixnum_type = 182; /* x196432 */ ((t24897.element)[183]).tag = FIXNUM_TYPE; ((t24897.element)[183]).value.fixnum_type = 183; /* x196433 */ ((t24897.element)[184]).tag = FIXNUM_TYPE; ((t24897.element)[184]).value.fixnum_type = 184; /* x196434 */ ((t24897.element)[185]).tag = FIXNUM_TYPE; ((t24897.element)[185]).value.fixnum_type = 185; /* x196435 */ ((t24897.element)[186]).tag = FIXNUM_TYPE; ((t24897.element)[186]).value.fixnum_type = 186; /* x196436 */ ((t24897.element)[187]).tag = FIXNUM_TYPE; ((t24897.element)[187]).value.fixnum_type = 187; /* x196437 */ ((t24897.element)[188]).tag = FIXNUM_TYPE; ((t24897.element)[188]).value.fixnum_type = 188; /* x196438 */ ((t24897.element)[189]).tag = FIXNUM_TYPE; ((t24897.element)[189]).value.fixnum_type = 189; /* x196439 */ ((t24897.element)[190]).tag = FIXNUM_TYPE; ((t24897.element)[190]).value.fixnum_type = 190; /* x196440 */ ((t24897.element)[191]).tag = FIXNUM_TYPE; ((t24897.element)[191]).value.fixnum_type = 191; /* x196441 */ ((t24897.element)[192]).tag = FIXNUM_TYPE; ((t24897.element)[192]).value.fixnum_type = 224; /* x196442 */ ((t24897.element)[193]).tag = FIXNUM_TYPE; ((t24897.element)[193]).value.fixnum_type = 225; /* x196443 */ ((t24897.element)[194]).tag = FIXNUM_TYPE; ((t24897.element)[194]).value.fixnum_type = 226; /* x196444 */ ((t24897.element)[195]).tag = FIXNUM_TYPE; ((t24897.element)[195]).value.fixnum_type = 227; /* x196445 */ ((t24897.element)[196]).tag = FIXNUM_TYPE; ((t24897.element)[196]).value.fixnum_type = 228; /* x196446 */ ((t24897.element)[197]).tag = FIXNUM_TYPE; ((t24897.element)[197]).value.fixnum_type = 229; /* x196447 */ ((t24897.element)[198]).tag = FIXNUM_TYPE; ((t24897.element)[198]).value.fixnum_type = 230; /* x196448 */ ((t24897.element)[199]).tag = FIXNUM_TYPE; ((t24897.element)[199]).value.fixnum_type = 231; /* x196449 */ ((t24897.element)[200]).tag = FIXNUM_TYPE; ((t24897.element)[200]).value.fixnum_type = 232; /* x196450 */ ((t24897.element)[201]).tag = FIXNUM_TYPE; ((t24897.element)[201]).value.fixnum_type = 233; /* x196451 */ ((t24897.element)[202]).tag = FIXNUM_TYPE; ((t24897.element)[202]).value.fixnum_type = 234; /* x196452 */ ((t24897.element)[203]).tag = FIXNUM_TYPE; ((t24897.element)[203]).value.fixnum_type = 235; /* x196453 */ ((t24897.element)[204]).tag = FIXNUM_TYPE; ((t24897.element)[204]).value.fixnum_type = 236; /* x196454 */ ((t24897.element)[205]).tag = FIXNUM_TYPE; ((t24897.element)[205]).value.fixnum_type = 237; /* x196455 */ ((t24897.element)[206]).tag = FIXNUM_TYPE; ((t24897.element)[206]).value.fixnum_type = 238; /* x196456 */ ((t24897.element)[207]).tag = FIXNUM_TYPE; ((t24897.element)[207]).value.fixnum_type = 239; /* x196457 */ ((t24897.element)[208]).tag = FIXNUM_TYPE; ((t24897.element)[208]).value.fixnum_type = 240; /* x196458 */ ((t24897.element)[209]).tag = FIXNUM_TYPE; ((t24897.element)[209]).value.fixnum_type = 241; /* x196459 */ ((t24897.element)[210]).tag = FIXNUM_TYPE; ((t24897.element)[210]).value.fixnum_type = 242; /* x196460 */ ((t24897.element)[211]).tag = FIXNUM_TYPE; ((t24897.element)[211]).value.fixnum_type = 243; /* x196461 */ ((t24897.element)[212]).tag = FIXNUM_TYPE; ((t24897.element)[212]).value.fixnum_type = 244; /* x196462 */ ((t24897.element)[213]).tag = FIXNUM_TYPE; ((t24897.element)[213]).value.fixnum_type = 245; /* x196463 */ ((t24897.element)[214]).tag = FIXNUM_TYPE; ((t24897.element)[214]).value.fixnum_type = 246; /* x196464 */ ((t24897.element)[215]).tag = FIXNUM_TYPE; ((t24897.element)[215]).value.fixnum_type = 215; /* x196465 */ ((t24897.element)[216]).tag = FIXNUM_TYPE; ((t24897.element)[216]).value.fixnum_type = 248; /* x196466 */ ((t24897.element)[217]).tag = FIXNUM_TYPE; ((t24897.element)[217]).value.fixnum_type = 249; /* x196467 */ ((t24897.element)[218]).tag = FIXNUM_TYPE; ((t24897.element)[218]).value.fixnum_type = 250; /* x196468 */ ((t24897.element)[219]).tag = FIXNUM_TYPE; ((t24897.element)[219]).value.fixnum_type = 251; /* x196469 */ ((t24897.element)[220]).tag = FIXNUM_TYPE; ((t24897.element)[220]).value.fixnum_type = 252; /* x196470 */ ((t24897.element)[221]).tag = FIXNUM_TYPE; ((t24897.element)[221]).value.fixnum_type = 253; /* x196471 */ ((t24897.element)[222]).tag = FIXNUM_TYPE; ((t24897.element)[222]).value.fixnum_type = 254; /* x196472 */ ((t24897.element)[223]).tag = FIXNUM_TYPE; ((t24897.element)[223]).value.fixnum_type = 223; /* x196473 */ ((t24897.element)[224]).tag = FIXNUM_TYPE; ((t24897.element)[224]).value.fixnum_type = 224; /* x196474 */ ((t24897.element)[225]).tag = FIXNUM_TYPE; ((t24897.element)[225]).value.fixnum_type = 225; /* x196475 */ ((t24897.element)[226]).tag = FIXNUM_TYPE; ((t24897.element)[226]).value.fixnum_type = 226; /* x196476 */ ((t24897.element)[227]).tag = FIXNUM_TYPE; ((t24897.element)[227]).value.fixnum_type = 227; /* x196477 */ ((t24897.element)[228]).tag = FIXNUM_TYPE; ((t24897.element)[228]).value.fixnum_type = 228; /* x196478 */ ((t24897.element)[229]).tag = FIXNUM_TYPE; ((t24897.element)[229]).value.fixnum_type = 229; /* x196479 */ ((t24897.element)[230]).tag = FIXNUM_TYPE; ((t24897.element)[230]).value.fixnum_type = 230; /* x196480 */ ((t24897.element)[231]).tag = FIXNUM_TYPE; ((t24897.element)[231]).value.fixnum_type = 231; /* x196481 */ ((t24897.element)[232]).tag = FIXNUM_TYPE; ((t24897.element)[232]).value.fixnum_type = 232; /* x196482 */ ((t24897.element)[233]).tag = FIXNUM_TYPE; ((t24897.element)[233]).value.fixnum_type = 233; /* x196483 */ ((t24897.element)[234]).tag = FIXNUM_TYPE; ((t24897.element)[234]).value.fixnum_type = 234; /* x196484 */ ((t24897.element)[235]).tag = FIXNUM_TYPE; ((t24897.element)[235]).value.fixnum_type = 235; /* x196485 */ ((t24897.element)[236]).tag = FIXNUM_TYPE; ((t24897.element)[236]).value.fixnum_type = 236; /* x196486 */ ((t24897.element)[237]).tag = FIXNUM_TYPE; ((t24897.element)[237]).value.fixnum_type = 237; /* x196487 */ ((t24897.element)[238]).tag = FIXNUM_TYPE; ((t24897.element)[238]).value.fixnum_type = 238;} void initialize_constants19(void) {/* x196488 */ ((t24897.element)[239]).tag = FIXNUM_TYPE; ((t24897.element)[239]).value.fixnum_type = 239; /* x196489 */ ((t24897.element)[240]).tag = FIXNUM_TYPE; ((t24897.element)[240]).value.fixnum_type = 240; /* x196490 */ ((t24897.element)[241]).tag = FIXNUM_TYPE; ((t24897.element)[241]).value.fixnum_type = 241; /* x196491 */ ((t24897.element)[242]).tag = FIXNUM_TYPE; ((t24897.element)[242]).value.fixnum_type = 242; /* x196492 */ ((t24897.element)[243]).tag = FIXNUM_TYPE; ((t24897.element)[243]).value.fixnum_type = 243; /* x196493 */ ((t24897.element)[244]).tag = FIXNUM_TYPE; ((t24897.element)[244]).value.fixnum_type = 244; /* x196494 */ ((t24897.element)[245]).tag = FIXNUM_TYPE; ((t24897.element)[245]).value.fixnum_type = 245; /* x196495 */ ((t24897.element)[246]).tag = FIXNUM_TYPE; ((t24897.element)[246]).value.fixnum_type = 246; /* x196496 */ ((t24897.element)[247]).tag = FIXNUM_TYPE; ((t24897.element)[247]).value.fixnum_type = 247; /* x196497 */ ((t24897.element)[248]).tag = FIXNUM_TYPE; ((t24897.element)[248]).value.fixnum_type = 248; /* x196498 */ ((t24897.element)[249]).tag = FIXNUM_TYPE; ((t24897.element)[249]).value.fixnum_type = 249; /* x196499 */ ((t24897.element)[250]).tag = FIXNUM_TYPE; ((t24897.element)[250]).value.fixnum_type = 250; /* x196500 */ ((t24897.element)[251]).tag = FIXNUM_TYPE; ((t24897.element)[251]).value.fixnum_type = 251; /* x196501 */ ((t24897.element)[252]).tag = FIXNUM_TYPE; ((t24897.element)[252]).value.fixnum_type = 252; /* x196502 */ ((t24897.element)[253]).tag = FIXNUM_TYPE; ((t24897.element)[253]).value.fixnum_type = 253; /* x196503 */ ((t24897.element)[254]).tag = FIXNUM_TYPE; ((t24897.element)[254]).value.fixnum_type = 254; /* x196504 */ ((t24897.element)[255]).tag = FIXNUM_TYPE; ((t24897.element)[255]).value.fixnum_type = 255; /* x196505 */ t24896.s0.tag = HEADED_VECTOR_TYPE27896; t24896.s0.value.headed_vector_type27896 = (struct headed_vector_type27896 *)(&t24897); /* x196506 */ t24896.s1.tag = NULL_TYPE; /* x196507 */ t24895.s1.tag = STRUCTURE_TYPE24753; t24895.s1.value.structure_type24753 = &t24896; /* x196508 */ t24894.s0.tag = STRUCTURE_TYPE24753; t24894.s0.value.structure_type24753 = &t24895; /* x196509 */ t24894.s1.tag = NULL_TYPE; /* x196510 */ t24893.s1.tag = STRUCTURE_TYPE24753; t24893.s1.value.structure_type24753 = &t24894; /* x196511 */ t24892.s0.tag = STRUCTURE_TYPE24753; t24892.s0.value.structure_type24753 = &t24893; /* x196512 */ t24892.s1.tag = NULL_TYPE; /* x196513 */ t24891.s0.tag = STRUCTURE_TYPE24753; t24891.s0.value.structure_type24753 = &t24892; /* x196514 */ t24899.s0.tag = EXTERNAL_SYMBOL_TYPE; t24899.s0.value.external_symbol_type = q39; /* x196515 */ t24901.s0.tag = EXTERNAL_SYMBOL_TYPE; t24901.s0.value.external_symbol_type = q56; /* x196516 */ t24901.s1.tag = NULL_TYPE; /* x196517 */ t24900.s0.tag = STRUCTURE_TYPE24753; t24900.s0.value.structure_type24753 = &t24901; /* x196518 */ t24903.s0.tag = EXTERNAL_SYMBOL_TYPE; t24903.s0.value.external_symbol_type = q158; /* x196519 */ t24905.s0.tag = EXTERNAL_SYMBOL_TYPE; t24905.s0.value.external_symbol_type = q169; /* x196520 */ t24906.s0.tag = EXTERNAL_SYMBOL_TYPE; t24906.s0.value.external_symbol_type = q467; /* x196521 */ t24908.s0.tag = EXTERNAL_SYMBOL_TYPE; t24908.s0.value.external_symbol_type = q157; /* x196522 */ t24909.s0.tag = EXTERNAL_SYMBOL_TYPE; t24909.s0.value.external_symbol_type = q56; /* x196523 */ t24909.s1.tag = NULL_TYPE; /* x196524 */ t24908.s1.tag = STRUCTURE_TYPE24753; t24908.s1.value.structure_type24753 = &t24909; /* x196525 */ t24907.s0.tag = STRUCTURE_TYPE24753; t24907.s0.value.structure_type24753 = &t24908; /* x196526 */ t24907.s1.tag = NULL_TYPE; /* x196527 */ t24906.s1.tag = STRUCTURE_TYPE24753; t24906.s1.value.structure_type24753 = &t24907; /* x196528 */ t24905.s1.tag = STRUCTURE_TYPE24753; t24905.s1.value.structure_type24753 = &t24906; /* x196529 */ t24904.s0.tag = STRUCTURE_TYPE24753; t24904.s0.value.structure_type24753 = &t24905; /* x196530 */ t24904.s1.tag = NULL_TYPE; /* x196531 */ t24903.s1.tag = STRUCTURE_TYPE24753; t24903.s1.value.structure_type24753 = &t24904; /* x196532 */ t24902.s0.tag = STRUCTURE_TYPE24753; t24902.s0.value.structure_type24753 = &t24903; /* x196533 */ t24902.s1.tag = NULL_TYPE; /* x196534 */ t24900.s1.tag = STRUCTURE_TYPE24753; t24900.s1.value.structure_type24753 = &t24902; /* x196535 */ t24899.s1.tag = STRUCTURE_TYPE24753; t24899.s1.value.structure_type24753 = &t24900; /* x196536 */ t24898.s0.tag = STRUCTURE_TYPE24753; t24898.s0.value.structure_type24753 = &t24899; /* x196537 */ t24898.s1.tag = NULL_TYPE; /* x196538 */ t24891.s1.tag = STRUCTURE_TYPE24753; t24891.s1.value.structure_type24753 = &t24898; /* x196539 */ t24890.s1.tag = STRUCTURE_TYPE24753; t24890.s1.value.structure_type24753 = &t24891; /* x196540 */ t24889.s0.tag = STRUCTURE_TYPE24753; t24889.s0.value.structure_type24753 = &t24890; /* x196541 */ t24889.s1.tag = NULL_TYPE; /* x196542 */ t24888.s1.tag = STRUCTURE_TYPE24753; t24888.s1.value.structure_type24753 = &t24889; /* x196543 */ t24887.s1.tag = STRUCTURE_TYPE24753; t24887.s1.value.structure_type24753 = &t24888; /* x196546 */ t24914.s0.tag = EXTERNAL_SYMBOL_TYPE; t24914.s0.value.external_symbol_type = q97; /* x196547 */ t24916.s0.tag = EXTERNAL_SYMBOL_TYPE; t24916.s0.value.external_symbol_type = q159; /* x196548 */ t24917.s0.tag = EXTERNAL_SYMBOL_TYPE; t24917.s0.value.external_symbol_type = q318; /* x196549 */ t24917.s1.tag = NULL_TYPE; /* x196550 */ t24916.s1.tag = STRUCTURE_TYPE24753; t24916.s1.value.structure_type24753 = &t24917; /* x196551 */ t24915.s0.tag = STRUCTURE_TYPE24753; t24915.s0.value.structure_type24753 = &t24916; /* x196552 */ t24920.s0.tag = EXTERNAL_SYMBOL_TYPE; t24920.s0.value.external_symbol_type = q77; /* x196553 */ t24921.s0.tag = EXTERNAL_SYMBOL_TYPE; t24921.s0.value.external_symbol_type = q159; /* x196554 */ t24921.s1.tag = NULL_TYPE; /* x196555 */ t24920.s1.tag = STRUCTURE_TYPE24753; t24920.s1.value.structure_type24753 = &t24921; /* x196556 */ t24919.s0.tag = STRUCTURE_TYPE24753; t24919.s0.value.structure_type24753 = &t24920; /* x196557 */ t24922.s0.tag = EXTERNAL_SYMBOL_TYPE; t24922.s0.value.external_symbol_type = q318; /* x196558 */ t24922.s1.tag = NULL_TYPE; /* x196559 */ t24919.s1.tag = STRUCTURE_TYPE24753; t24919.s1.value.structure_type24753 = &t24922; /* x196560 */ t24918.s0.tag = STRUCTURE_TYPE24753; t24918.s0.value.structure_type24753 = &t24919; /* x196561 */ t24918.s1.tag = NULL_TYPE; /* x196562 */ t24915.s1.tag = STRUCTURE_TYPE24753; t24915.s1.value.structure_type24753 = &t24918; /* x196563 */ t24914.s1.tag = STRUCTURE_TYPE24753; t24914.s1.value.structure_type24753 = &t24915; /* x196566 */ t24927.s0.tag = EXTERNAL_SYMBOL_TYPE; t24927.s0.value.external_symbol_type = q97; /* x196567 */ t24929.s0.tag = EXTERNAL_SYMBOL_TYPE; t24929.s0.value.external_symbol_type = q160; /* x196568 */ t24930.s0.tag = EXTERNAL_SYMBOL_TYPE; t24930.s0.value.external_symbol_type = q337; /* x196569 */ t24930.s1.tag = EXTERNAL_SYMBOL_TYPE; t24930.s1.value.external_symbol_type = q56; /* x196570 */ t24929.s1.tag = STRUCTURE_TYPE24753; t24929.s1.value.structure_type24753 = &t24930; /* x196571 */ t24928.s0.tag = STRUCTURE_TYPE24753; t24928.s0.value.structure_type24753 = &t24929; /* x196572 */ t24932.s0.tag = EXTERNAL_SYMBOL_TYPE; t24932.s0.value.external_symbol_type = q240; /* x196573 */ t24935.s0.tag = EXTERNAL_SYMBOL_TYPE; t24935.s0.value.external_symbol_type = q111; /* x196574 */ t24936.s0.tag = EXTERNAL_SYMBOL_TYPE; t24936.s0.value.external_symbol_type = q56; /* x196575 */ t24936.s1.tag = NULL_TYPE; /* x196576 */ t24935.s1.tag = STRUCTURE_TYPE24753; t24935.s1.value.structure_type24753 = &t24936; /* x196577 */ t24934.s0.tag = STRUCTURE_TYPE24753; t24934.s0.value.structure_type24753 = &t24935; /* x196578 */ t24939.s0.tag = EXTERNAL_SYMBOL_TYPE; t24939.s0.value.external_symbol_type = q77; /* x196579 */ t24940.s0.tag = EXTERNAL_SYMBOL_TYPE; t24940.s0.value.external_symbol_type = q160; /* x196580 */ t24940.s1.tag = NULL_TYPE; /* x196581 */ t24939.s1.tag = STRUCTURE_TYPE24753; t24939.s1.value.structure_type24753 = &t24940; /* x196582 */ t24938.s0.tag = STRUCTURE_TYPE24753; t24938.s0.value.structure_type24753 = &t24939; /* x196583 */ t24941.s0.tag = EXTERNAL_SYMBOL_TYPE; t24941.s0.value.external_symbol_type = q337; /* x196584 */ t24941.s1.tag = NULL_TYPE; /* x196585 */ t24938.s1.tag = STRUCTURE_TYPE24753; t24938.s1.value.structure_type24753 = &t24941; /* x196586 */ t24937.s0.tag = STRUCTURE_TYPE24753; t24937.s0.value.structure_type24753 = &t24938; /* x196587 */ t24937.s1.tag = NULL_TYPE; /* x196588 */ t24934.s1.tag = STRUCTURE_TYPE24753; t24934.s1.value.structure_type24753 = &t24937; /* x196589 */ t24933.s0.tag = STRUCTURE_TYPE24753; t24933.s0.value.structure_type24753 = &t24934; /* x196590 */ t24944.s0.tag = EXTERNAL_SYMBOL_TYPE; t24944.s0.value.external_symbol_type = q111; /* x196591 */ t24946.s0.tag = EXTERNAL_SYMBOL_TYPE; t24946.s0.value.external_symbol_type = q108; /* x196592 */ t24947.s0.tag = EXTERNAL_SYMBOL_TYPE; t24947.s0.value.external_symbol_type = q56; /* x196593 */ t24947.s1.tag = NULL_TYPE; /* x196594 */ t24946.s1.tag = STRUCTURE_TYPE24753; t24946.s1.value.structure_type24753 = &t24947; /* x196595 */ t24945.s0.tag = STRUCTURE_TYPE24753; t24945.s0.value.structure_type24753 = &t24946; /* x196596 */ t24945.s1.tag = NULL_TYPE; /* x196597 */ t24944.s1.tag = STRUCTURE_TYPE24753; t24944.s1.value.structure_type24753 = &t24945; /* x196598 */ t24943.s0.tag = STRUCTURE_TYPE24753; t24943.s0.value.structure_type24753 = &t24944; /* x196599 */ t24950.s0.tag = EXTERNAL_SYMBOL_TYPE; t24950.s0.value.external_symbol_type = q77; /* x196600 */ t24951.s0.tag = EXTERNAL_SYMBOL_TYPE; t24951.s0.value.external_symbol_type = q160; /* x196601 */ t24951.s1.tag = NULL_TYPE; /* x196602 */ t24950.s1.tag = STRUCTURE_TYPE24753; t24950.s1.value.structure_type24753 = &t24951; /* x196603 */ t24949.s0.tag = STRUCTURE_TYPE24753; t24949.s0.value.structure_type24753 = &t24950; /* x196604 */ t24952.s0.tag = EXTERNAL_SYMBOL_TYPE; t24952.s0.value.external_symbol_type = q337; /* x196605 */ t24954.s0.tag = EXTERNAL_SYMBOL_TYPE; t24954.s0.value.external_symbol_type = q107; /* x196606 */ t24955.s0.tag = EXTERNAL_SYMBOL_TYPE; t24955.s0.value.external_symbol_type = q56; /* x196607 */ t24955.s1.tag = NULL_TYPE; /* x196608 */ t24954.s1.tag = STRUCTURE_TYPE24753; t24954.s1.value.structure_type24753 = &t24955; /* x196609 */ t24953.s0.tag = STRUCTURE_TYPE24753; t24953.s0.value.structure_type24753 = &t24954; /* x196610 */ t24953.s1.tag = NULL_TYPE; /* x196611 */ t24952.s1.tag = STRUCTURE_TYPE24753; t24952.s1.value.structure_type24753 = &t24953; /* x196612 */ t24949.s1.tag = STRUCTURE_TYPE24753; t24949.s1.value.structure_type24753 = &t24952; /* x196613 */ t24948.s0.tag = STRUCTURE_TYPE24753; t24948.s0.value.structure_type24753 = &t24949; /* x196614 */ t24948.s1.tag = NULL_TYPE; /* x196615 */ t24943.s1.tag = STRUCTURE_TYPE24753; t24943.s1.value.structure_type24753 = &t24948; /* x196616 */ t24942.s0.tag = STRUCTURE_TYPE24753; t24942.s0.value.structure_type24753 = &t24943; /* x196617 */ t24957.s0.tag = EXTERNAL_SYMBOL_TYPE; t24957.s0.value.external_symbol_type = q95; /* x196618 */ t24959.s0.tag = EXTERNAL_SYMBOL_TYPE; t24959.s0.value.external_symbol_type = q179; /* x196619 */ t24960.s0.tag = STRING_TYPE; t24960.s0.value.string_type = "Attempt to call MAKE-STRING with the wrong number of arguments"; /* x196620 */ t24960.s1.tag = NULL_TYPE; /* x196621 */ t24959.s1.tag = STRUCTURE_TYPE24753; t24959.s1.value.structure_type24753 = &t24960; /* x196622 */ t24958.s0.tag = STRUCTURE_TYPE24753; t24958.s0.value.structure_type24753 = &t24959; /* x196623 */ t24958.s1.tag = NULL_TYPE; /* x196624 */ t24957.s1.tag = STRUCTURE_TYPE24753; t24957.s1.value.structure_type24753 = &t24958; /* x196625 */ t24956.s0.tag = STRUCTURE_TYPE24753; t24956.s0.value.structure_type24753 = &t24957; /* x196626 */ t24956.s1.tag = NULL_TYPE; /* x196627 */ t24942.s1.tag = STRUCTURE_TYPE24753; t24942.s1.value.structure_type24753 = &t24956; /* x196628 */ t24933.s1.tag = STRUCTURE_TYPE24753; t24933.s1.value.structure_type24753 = &t24942; /* x196629 */ t24932.s1.tag = STRUCTURE_TYPE24753; t24932.s1.value.structure_type24753 = &t24933; /* x196630 */ t24931.s0.tag = STRUCTURE_TYPE24753; t24931.s0.value.structure_type24753 = &t24932; /* x196631 */ t24931.s1.tag = NULL_TYPE; /* x196632 */ t24928.s1.tag = STRUCTURE_TYPE24753; t24928.s1.value.structure_type24753 = &t24931; /* x196633 */ t24927.s1.tag = STRUCTURE_TYPE24753; t24927.s1.value.structure_type24753 = &t24928; /* x196636 */ t24965.s0.tag = EXTERNAL_SYMBOL_TYPE; t24965.s0.value.external_symbol_type = q97; /* x196637 */ t24967.s0.tag = EXTERNAL_SYMBOL_TYPE; t24967.s0.value.external_symbol_type = q161; /* x196638 */ t24967.s1.tag = EXTERNAL_SYMBOL_TYPE; t24967.s1.value.external_symbol_type = q459; /* x196639 */ t24966.s0.tag = STRUCTURE_TYPE24753; t24966.s0.value.structure_type24753 = &t24967; /* x196640 */ t24969.s0.tag = EXTERNAL_SYMBOL_TYPE; t24969.s0.value.external_symbol_type = q242; /* x196641 */ t24972.s0.tag = EXTERNAL_SYMBOL_TYPE; t24972.s0.value.external_symbol_type = q409; /* x196642 */ t24974.s0.tag = EXTERNAL_SYMBOL_TYPE; t24974.s0.value.external_symbol_type = q160; /* x196643 */ t24976.s0.tag = EXTERNAL_SYMBOL_TYPE; t24976.s0.value.external_symbol_type = q395; /* x196644 */ t24977.s0.tag = EXTERNAL_SYMBOL_TYPE; t24977.s0.value.external_symbol_type = q459; /* x196645 */ t24977.s1.tag = NULL_TYPE; /* x196646 */ t24976.s1.tag = STRUCTURE_TYPE24753; t24976.s1.value.structure_type24753 = &t24977; /* x196647 */ t24975.s0.tag = STRUCTURE_TYPE24753; t24975.s0.value.structure_type24753 = &t24976; /* x196648 */ t24975.s1.tag = NULL_TYPE; /* x196649 */ t24974.s1.tag = STRUCTURE_TYPE24753; t24974.s1.value.structure_type24753 = &t24975; /* x196650 */ t24973.s0.tag = STRUCTURE_TYPE24753; t24973.s0.value.structure_type24753 = &t24974; /* x196651 */ t24973.s1.tag = NULL_TYPE; /* x196652 */ t24972.s1.tag = STRUCTURE_TYPE24753; t24972.s1.value.structure_type24753 = &t24973; /* x196653 */ t24971.s0.tag = STRUCTURE_TYPE24753; t24971.s0.value.structure_type24753 = &t24972; /* x196654 */ t24971.s1.tag = NULL_TYPE; /* x196655 */ t24970.s0.tag = STRUCTURE_TYPE24753; t24970.s0.value.structure_type24753 = &t24971; /* x196656 */ t24979.s0.tag = EXTERNAL_SYMBOL_TYPE; t24979.s0.value.external_symbol_type = q242; /* x196657 */ t24980.s0.tag = EXTERNAL_SYMBOL_TYPE; t24980.s0.value.external_symbol_type = q287; /* x196658 */ t24983.s0.tag = EXTERNAL_SYMBOL_TYPE; t24983.s0.value.external_symbol_type = q337; /* x196659 */ t24984.s0.tag = FIXNUM_TYPE; t24984.s0.value.fixnum_type = 0; /* x196660 */ t24984.s1.tag = NULL_TYPE; /* x196661 */ t24983.s1.tag = STRUCTURE_TYPE24753; t24983.s1.value.structure_type24753 = &t24984; /* x196662 */ t24982.s0.tag = STRUCTURE_TYPE24753; t24982.s0.value.structure_type24753 = &t24983; /* x196663 */ t24986.s0.tag = EXTERNAL_SYMBOL_TYPE; t24986.s0.value.external_symbol_type = q459; /* x196664 */ t24987.s0.tag = EXTERNAL_SYMBOL_TYPE; t24987.s0.value.external_symbol_type = q459; /* x196665 */ t24987.s1.tag = NULL_TYPE; /* x196666 */ t24986.s1.tag = STRUCTURE_TYPE24753; t24986.s1.value.structure_type24753 = &t24987; /* x196667 */ t24985.s0.tag = STRUCTURE_TYPE24753; t24985.s0.value.structure_type24753 = &t24986; /* x196668 */ t24985.s1.tag = NULL_TYPE; /* x196669 */ t24982.s1.tag = STRUCTURE_TYPE24753; t24982.s1.value.structure_type24753 = &t24985; /* x196670 */ t24981.s0.tag = STRUCTURE_TYPE24753; t24981.s0.value.structure_type24753 = &t24982; /* x196671 */ t24989.s0.tag = EXTERNAL_SYMBOL_TYPE; t24989.s0.value.external_symbol_type = q43; /* x196672 */ t24991.s0.tag = EXTERNAL_SYMBOL_TYPE; t24991.s0.value.external_symbol_type = q111; /* x196673 */ t24992.s0.tag = EXTERNAL_SYMBOL_TYPE; t24992.s0.value.external_symbol_type = q459; /* x196674 */ t24992.s1.tag = NULL_TYPE; /* x196675 */ t24991.s1.tag = STRUCTURE_TYPE24753; t24991.s1.value.structure_type24753 = &t24992; /* x196676 */ t24990.s0.tag = STRUCTURE_TYPE24753; t24990.s0.value.structure_type24753 = &t24991; /* x196677 */ t24993.s0.tag = EXTERNAL_SYMBOL_TYPE; t24993.s0.value.external_symbol_type = q409; /* x196678 */ t24995.s0.tag = EXTERNAL_SYMBOL_TYPE; t24995.s0.value.external_symbol_type = q239; /* x196679 */ t24997.s0.tag = EXTERNAL_SYMBOL_TYPE; t24997.s0.value.external_symbol_type = q164; /* x196680 */ t24998.s0.tag = EXTERNAL_SYMBOL_TYPE; t24998.s0.value.external_symbol_type = q409; /* x196681 */ t24999.s0.tag = EXTERNAL_SYMBOL_TYPE; t24999.s0.value.external_symbol_type = q337; /* x196682 */ t25001.s0.tag = EXTERNAL_SYMBOL_TYPE; t25001.s0.value.external_symbol_type = q107; /* x196683 */ t25002.s0.tag = EXTERNAL_SYMBOL_TYPE; t25002.s0.value.external_symbol_type = q459; /* x196684 */ t25002.s1.tag = NULL_TYPE; /* x196685 */ t25001.s1.tag = STRUCTURE_TYPE24753; t25001.s1.value.structure_type24753 = &t25002; /* x196686 */ t25000.s0.tag = STRUCTURE_TYPE24753; t25000.s0.value.structure_type24753 = &t25001; /* x196687 */ t25000.s1.tag = NULL_TYPE; /* x196688 */ t24999.s1.tag = STRUCTURE_TYPE24753; t24999.s1.value.structure_type24753 = &t25000; /* x196689 */ t24998.s1.tag = STRUCTURE_TYPE24753; t24998.s1.value.structure_type24753 = &t24999; /* x196690 */ t24997.s1.tag = STRUCTURE_TYPE24753; t24997.s1.value.structure_type24753 = &t24998; /* x196691 */ t24996.s0.tag = STRUCTURE_TYPE24753; t24996.s0.value.structure_type24753 = &t24997; /* x196692 */ t25004.s0.tag = EXTERNAL_SYMBOL_TYPE; t25004.s0.value.external_symbol_type = q287; /* x196693 */ t25006.s0.tag = EXTERNAL_SYMBOL_TYPE; t25006.s0.value.external_symbol_type = q4; /* x196694 */ t25007.s0.tag = EXTERNAL_SYMBOL_TYPE; t25007.s0.value.external_symbol_type = q337; /* x196695 */ t25008.s0.tag = FIXNUM_TYPE; t25008.s0.value.fixnum_type = 1; /* x196696 */ t25008.s1.tag = NULL_TYPE; /* x196697 */ t25007.s1.tag = STRUCTURE_TYPE24753; t25007.s1.value.structure_type24753 = &t25008; /* x196698 */ t25006.s1.tag = STRUCTURE_TYPE24753; t25006.s1.value.structure_type24753 = &t25007; /* x196699 */ t25005.s0.tag = STRUCTURE_TYPE24753; t25005.s0.value.structure_type24753 = &t25006; /* x196700 */ t25010.s0.tag = EXTERNAL_SYMBOL_TYPE; t25010.s0.value.external_symbol_type = q108; /* x196701 */ t25011.s0.tag = EXTERNAL_SYMBOL_TYPE; t25011.s0.value.external_symbol_type = q459; /* x196702 */ t25011.s1.tag = NULL_TYPE; /* x196703 */ t25010.s1.tag = STRUCTURE_TYPE24753; t25010.s1.value.structure_type24753 = &t25011; /* x196704 */ t25009.s0.tag = STRUCTURE_TYPE24753; t25009.s0.value.structure_type24753 = &t25010; /* x196705 */ t25009.s1.tag = NULL_TYPE; /* x196706 */ t25005.s1.tag = STRUCTURE_TYPE24753; t25005.s1.value.structure_type24753 = &t25009; /* x196707 */ t25004.s1.tag = STRUCTURE_TYPE24753; t25004.s1.value.structure_type24753 = &t25005; /* x196708 */ t25003.s0.tag = STRUCTURE_TYPE24753; t25003.s0.value.structure_type24753 = &t25004; /* x196709 */ t25003.s1.tag = NULL_TYPE; /* x196710 */ t24996.s1.tag = STRUCTURE_TYPE24753; t24996.s1.value.structure_type24753 = &t25003; /* x196711 */ t24995.s1.tag = STRUCTURE_TYPE24753; t24995.s1.value.structure_type24753 = &t24996; /* x196712 */ t24994.s0.tag = STRUCTURE_TYPE24753; t24994.s0.value.structure_type24753 = &t24995; /* x196713 */ t24994.s1.tag = NULL_TYPE; /* x196714 */ t24993.s1.tag = STRUCTURE_TYPE24753; t24993.s1.value.structure_type24753 = &t24994; /* x196715 */ t24990.s1.tag = STRUCTURE_TYPE24753; t24990.s1.value.structure_type24753 = &t24993; /* x196716 */ t24989.s1.tag = STRUCTURE_TYPE24753; t24989.s1.value.structure_type24753 = &t24990; /* x196717 */ t24988.s0.tag = STRUCTURE_TYPE24753; t24988.s0.value.structure_type24753 = &t24989; /* x196718 */ t24988.s1.tag = NULL_TYPE; /* x196719 */ t24981.s1.tag = STRUCTURE_TYPE24753; t24981.s1.value.structure_type24753 = &t24988; /* x196720 */ t24980.s1.tag = STRUCTURE_TYPE24753; t24980.s1.value.structure_type24753 = &t24981; /* x196721 */ t24979.s1.tag = STRUCTURE_TYPE24753; t24979.s1.value.structure_type24753 = &t24980; /* x196722 */ t24978.s0.tag = STRUCTURE_TYPE24753; t24978.s0.value.structure_type24753 = &t24979; /* x196723 */ t24978.s1.tag = NULL_TYPE; /* x196724 */ t24970.s1.tag = STRUCTURE_TYPE24753; t24970.s1.value.structure_type24753 = &t24978; /* x196725 */ t24969.s1.tag = STRUCTURE_TYPE24753; t24969.s1.value.structure_type24753 = &t24970; /* x196726 */ t24968.s0.tag = STRUCTURE_TYPE24753; t24968.s0.value.structure_type24753 = &t24969; /* x196727 */ t24968.s1.tag = NULL_TYPE; /* x196728 */ t24966.s1.tag = STRUCTURE_TYPE24753; t24966.s1.value.structure_type24753 = &t24968; /* x196729 */ t24965.s1.tag = STRUCTURE_TYPE24753; t24965.s1.value.structure_type24753 = &t24966; /* x196732 */ t25016.s0.tag = EXTERNAL_SYMBOL_TYPE; t25016.s0.value.external_symbol_type = q97; /* x196733 */ t25018.s0.tag = EXTERNAL_SYMBOL_TYPE; t25018.s0.value.external_symbol_type = q162; /* x196734 */ t25019.s0.tag = EXTERNAL_SYMBOL_TYPE; t25019.s0.value.external_symbol_type = q161; /* x196735 */ t25019.s1.tag = NULL_TYPE; /* x196736 */ t25018.s1.tag = STRUCTURE_TYPE24753; t25018.s1.value.structure_type24753 = &t25019; /* x196737 */ t25017.s0.tag = STRUCTURE_TYPE24753; t25017.s0.value.structure_type24753 = &t25018; /* x196738 */ t25022.s0.tag = EXTERNAL_SYMBOL_TYPE; t25022.s0.value.external_symbol_type = q77; /* x196739 */ t25023.s0.tag = EXTERNAL_SYMBOL_TYPE; t25023.s0.value.external_symbol_type = q162; /* x196740 */ t25023.s1.tag = NULL_TYPE; /* x196741 */ t25022.s1.tag = STRUCTURE_TYPE24753; t25022.s1.value.structure_type24753 = &t25023; /* x196742 */ t25021.s0.tag = STRUCTURE_TYPE24753; t25021.s0.value.structure_type24753 = &t25022; /* x196743 */ t25024.s0.tag = EXTERNAL_SYMBOL_TYPE; t25024.s0.value.external_symbol_type = q161; /* x196744 */ t25024.s1.tag = NULL_TYPE; /* x196745 */ t25021.s1.tag = STRUCTURE_TYPE24753; t25021.s1.value.structure_type24753 = &t25024; /* x196746 */ t25020.s0.tag = STRUCTURE_TYPE24753; t25020.s0.value.structure_type24753 = &t25021; /* x196747 */ t25020.s1.tag = NULL_TYPE; /* x196748 */ t25017.s1.tag = STRUCTURE_TYPE24753; t25017.s1.value.structure_type24753 = &t25020; /* x196749 */ t25016.s1.tag = STRUCTURE_TYPE24753; t25016.s1.value.structure_type24753 = &t25017; /* x196752 */ t25029.s0.tag = EXTERNAL_SYMBOL_TYPE; t25029.s0.value.external_symbol_type = q97; /* x196753 */ t25031.s0.tag = EXTERNAL_SYMBOL_TYPE; t25031.s0.value.external_symbol_type = q163; /* x196754 */ t25032.s0.tag = EXTERNAL_SYMBOL_TYPE; t25032.s0.value.external_symbol_type = q161; /* x196755 */ t25033.s0.tag = EXTERNAL_SYMBOL_TYPE; t25033.s0.value.external_symbol_type = q337; /* x196756 */ t25033.s1.tag = NULL_TYPE; /* x196757 */ t25032.s1.tag = STRUCTURE_TYPE24753; t25032.s1.value.structure_type24753 = &t25033; /* x196758 */ t25031.s1.tag = STRUCTURE_TYPE24753; t25031.s1.value.structure_type24753 = &t25032; /* x196759 */ t25030.s0.tag = STRUCTURE_TYPE24753; t25030.s0.value.structure_type24753 = &t25031; /* x196760 */ t25036.s0.tag = EXTERNAL_SYMBOL_TYPE; t25036.s0.value.external_symbol_type = q77; /* x196761 */ t25037.s0.tag = EXTERNAL_SYMBOL_TYPE; t25037.s0.value.external_symbol_type = q163; /* x196762 */ t25037.s1.tag = NULL_TYPE; /* x196763 */ t25036.s1.tag = STRUCTURE_TYPE24753; t25036.s1.value.structure_type24753 = &t25037; /* x196764 */ t25035.s0.tag = STRUCTURE_TYPE24753; t25035.s0.value.structure_type24753 = &t25036; /* x196765 */ t25038.s0.tag = EXTERNAL_SYMBOL_TYPE; t25038.s0.value.external_symbol_type = q161; /* x196766 */ t25039.s0.tag = EXTERNAL_SYMBOL_TYPE; t25039.s0.value.external_symbol_type = q337; /* x196767 */ t25039.s1.tag = NULL_TYPE; /* x196768 */ t25038.s1.tag = STRUCTURE_TYPE24753; t25038.s1.value.structure_type24753 = &t25039; /* x196769 */ t25035.s1.tag = STRUCTURE_TYPE24753; t25035.s1.value.structure_type24753 = &t25038; /* x196770 */ t25034.s0.tag = STRUCTURE_TYPE24753; t25034.s0.value.structure_type24753 = &t25035; /* x196771 */ t25034.s1.tag = NULL_TYPE; /* x196772 */ t25030.s1.tag = STRUCTURE_TYPE24753; t25030.s1.value.structure_type24753 = &t25034; /* x196773 */ t25029.s1.tag = STRUCTURE_TYPE24753; t25029.s1.value.structure_type24753 = &t25030; /* x196776 */ t25044.s0.tag = EXTERNAL_SYMBOL_TYPE; t25044.s0.value.external_symbol_type = q97; /* x196777 */ t25046.s0.tag = EXTERNAL_SYMBOL_TYPE; t25046.s0.value.external_symbol_type = q164; /* x196778 */ t25047.s0.tag = EXTERNAL_SYMBOL_TYPE; t25047.s0.value.external_symbol_type = q161; /* x196779 */ t25048.s0.tag = EXTERNAL_SYMBOL_TYPE; t25048.s0.value.external_symbol_type = q337; /* x196780 */ t25049.s0.tag = EXTERNAL_SYMBOL_TYPE; t25049.s0.value.external_symbol_type = q56; /* x196781 */ t25049.s1.tag = NULL_TYPE; /* x196782 */ t25048.s1.tag = STRUCTURE_TYPE24753; t25048.s1.value.structure_type24753 = &t25049; /* x196783 */ t25047.s1.tag = STRUCTURE_TYPE24753; t25047.s1.value.structure_type24753 = &t25048; /* x196784 */ t25046.s1.tag = STRUCTURE_TYPE24753; t25046.s1.value.structure_type24753 = &t25047; /* x196785 */ t25045.s0.tag = STRUCTURE_TYPE24753; t25045.s0.value.structure_type24753 = &t25046; /* x196786 */ t25052.s0.tag = EXTERNAL_SYMBOL_TYPE; t25052.s0.value.external_symbol_type = q77; /* x196787 */ t25053.s0.tag = EXTERNAL_SYMBOL_TYPE; t25053.s0.value.external_symbol_type = q164; /* x196788 */ t25053.s1.tag = NULL_TYPE; /* x196789 */ t25052.s1.tag = STRUCTURE_TYPE24753; t25052.s1.value.structure_type24753 = &t25053; /* x196790 */ t25051.s0.tag = STRUCTURE_TYPE24753; t25051.s0.value.structure_type24753 = &t25052; /* x196791 */ t25054.s0.tag = EXTERNAL_SYMBOL_TYPE; t25054.s0.value.external_symbol_type = q161; /* x196792 */ t25055.s0.tag = EXTERNAL_SYMBOL_TYPE; t25055.s0.value.external_symbol_type = q337; /* x196793 */ t25056.s0.tag = EXTERNAL_SYMBOL_TYPE; t25056.s0.value.external_symbol_type = q56; /* x196794 */ t25056.s1.tag = NULL_TYPE; /* x196795 */ t25055.s1.tag = STRUCTURE_TYPE24753; t25055.s1.value.structure_type24753 = &t25056; /* x196796 */ t25054.s1.tag = STRUCTURE_TYPE24753; t25054.s1.value.structure_type24753 = &t25055; /* x196797 */ t25051.s1.tag = STRUCTURE_TYPE24753; t25051.s1.value.structure_type24753 = &t25054; /* x196798 */ t25050.s0.tag = STRUCTURE_TYPE24753; t25050.s0.value.structure_type24753 = &t25051; /* x196799 */ t25050.s1.tag = NULL_TYPE; /* x196800 */ t25045.s1.tag = STRUCTURE_TYPE24753; t25045.s1.value.structure_type24753 = &t25050; /* x196801 */ t25044.s1.tag = STRUCTURE_TYPE24753; t25044.s1.value.structure_type24753 = &t25045; /* x196804 */ t25061.s0.tag = EXTERNAL_SYMBOL_TYPE; t25061.s0.value.external_symbol_type = q97; /* x196805 */ t25063.s0.tag = EXTERNAL_SYMBOL_TYPE; t25063.s0.value.external_symbol_type = q362; /* x196806 */ t25064.s0.tag = EXTERNAL_SYMBOL_TYPE; t25064.s0.value.external_symbol_type = q468; /* x196807 */ t25065.s0.tag = EXTERNAL_SYMBOL_TYPE; t25065.s0.value.external_symbol_type = q469; /* x196808 */ t25065.s1.tag = EXTERNAL_SYMBOL_TYPE; t25065.s1.value.external_symbol_type = q410; /* x196809 */ t25064.s1.tag = STRUCTURE_TYPE24753; t25064.s1.value.structure_type24753 = &t25065; /* x196810 */ t25063.s1.tag = STRUCTURE_TYPE24753; t25063.s1.value.structure_type24753 = &t25064; /* x196811 */ t25062.s0.tag = STRUCTURE_TYPE24753; t25062.s0.value.structure_type24753 = &t25063; /* x196812 */ t25067.s0.tag = EXTERNAL_SYMBOL_TYPE; t25067.s0.value.external_symbol_type = q242; /* x196813 */ t25068.s0.tag = EXTERNAL_SYMBOL_TYPE; t25068.s0.value.external_symbol_type = q289; /* x196814 */ t25071.s0.tag = EXTERNAL_SYMBOL_TYPE; t25071.s0.value.external_symbol_type = q468; /* x196815 */ t25072.s0.tag = EXTERNAL_SYMBOL_TYPE; t25072.s0.value.external_symbol_type = q468; /* x196816 */ t25072.s1.tag = NULL_TYPE; /* x196817 */ t25071.s1.tag = STRUCTURE_TYPE24753; t25071.s1.value.structure_type24753 = &t25072; /* x196818 */ t25070.s0.tag = STRUCTURE_TYPE24753; t25070.s0.value.structure_type24753 = &t25071; /* x196819 */ t25074.s0.tag = EXTERNAL_SYMBOL_TYPE; t25074.s0.value.external_symbol_type = q469; /* x196820 */ t25075.s0.tag = EXTERNAL_SYMBOL_TYPE; t25075.s0.value.external_symbol_type = q469; /* x196821 */ t25075.s1.tag = NULL_TYPE; /* x196822 */ t25074.s1.tag = STRUCTURE_TYPE24753; t25074.s1.value.structure_type24753 = &t25075; /* x196823 */ t25073.s0.tag = STRUCTURE_TYPE24753; t25073.s0.value.structure_type24753 = &t25074; /* x196824 */ t25077.s0.tag = EXTERNAL_SYMBOL_TYPE; t25077.s0.value.external_symbol_type = q410; /* x196825 */ t25078.s0.tag = EXTERNAL_SYMBOL_TYPE; t25078.s0.value.external_symbol_type = q410; /* x196826 */ t25078.s1.tag = NULL_TYPE; /* x196827 */ t25077.s1.tag = STRUCTURE_TYPE24753; t25077.s1.value.structure_type24753 = &t25078; /* x196828 */ t25076.s0.tag = STRUCTURE_TYPE24753; t25076.s0.value.structure_type24753 = &t25077; /* x196829 */ t25076.s1.tag = NULL_TYPE; /* x196830 */ t25073.s1.tag = STRUCTURE_TYPE24753; t25073.s1.value.structure_type24753 = &t25076; /* x196831 */ t25070.s1.tag = STRUCTURE_TYPE24753; t25070.s1.value.structure_type24753 = &t25073; /* x196832 */ t25069.s0.tag = STRUCTURE_TYPE24753; t25069.s0.value.structure_type24753 = &t25070; /* x196833 */ t25080.s0.tag = EXTERNAL_SYMBOL_TYPE; t25080.s0.value.external_symbol_type = q242; /* x196834 */ t25083.s0.tag = EXTERNAL_SYMBOL_TYPE; t25083.s0.value.external_symbol_type = q260; /* x196835 */ t25085.s0.tag = EXTERNAL_SYMBOL_TYPE; t25085.s0.value.external_symbol_type = q162; /* x196836 */ t25086.s0.tag = EXTERNAL_SYMBOL_TYPE; t25086.s0.value.external_symbol_type = q468; /* x196837 */ t25086.s1.tag = NULL_TYPE; /* x196838 */ t25085.s1.tag = STRUCTURE_TYPE24753; t25085.s1.value.structure_type24753 = &t25086; /* x196839 */ t25084.s0.tag = STRUCTURE_TYPE24753; t25084.s0.value.structure_type24753 = &t25085; /* x196840 */ t25084.s1.tag = NULL_TYPE; /* x196841 */ t25083.s1.tag = STRUCTURE_TYPE24753; t25083.s1.value.structure_type24753 = &t25084; /* x196842 */ t25082.s0.tag = STRUCTURE_TYPE24753; t25082.s0.value.structure_type24753 = &t25083; /* x196843 */ t25082.s1.tag = NULL_TYPE; /* x196844 */ t25081.s0.tag = STRUCTURE_TYPE24753; t25081.s0.value.structure_type24753 = &t25082; /* x196845 */ t25088.s0.tag = EXTERNAL_SYMBOL_TYPE; t25088.s0.value.external_symbol_type = q244; /* x196846 */ t25090.s0.tag = EXTERNAL_SYMBOL_TYPE; t25090.s0.value.external_symbol_type = q120; /* x196847 */ t25091.s0.tag = EXTERNAL_SYMBOL_TYPE; t25091.s0.value.external_symbol_type = q260; /* x196848 */ t25093.s0.tag = EXTERNAL_SYMBOL_TYPE; t25093.s0.value.external_symbol_type = q162; /* x196849 */ t25094.s0.tag = EXTERNAL_SYMBOL_TYPE; t25094.s0.value.external_symbol_type = q469; /* x196850 */ t25094.s1.tag = NULL_TYPE; /* x196851 */ t25093.s1.tag = STRUCTURE_TYPE24753; t25093.s1.value.structure_type24753 = &t25094; /* x196852 */ t25092.s0.tag = STRUCTURE_TYPE24753; t25092.s0.value.structure_type24753 = &t25093; /* x196853 */ t25092.s1.tag = NULL_TYPE; /* x196854 */ t25091.s1.tag = STRUCTURE_TYPE24753; t25091.s1.value.structure_type24753 = &t25092; /* x196855 */ t25090.s1.tag = STRUCTURE_TYPE24753; t25090.s1.value.structure_type24753 = &t25091; /* x196856 */ t25089.s0.tag = STRUCTURE_TYPE24753; t25089.s0.value.structure_type24753 = &t25090; /* x196857 */ t25096.s0.tag = EXTERNAL_SYMBOL_TYPE; t25096.s0.value.external_symbol_type = q242; /* x196858 */ t25097.s0.tag = EXTERNAL_SYMBOL_TYPE; t25097.s0.value.external_symbol_type = q289; /* x196859 */ t25100.s0.tag = EXTERNAL_SYMBOL_TYPE; t25100.s0.value.external_symbol_type = q337; /* x196860 */ t25101.s0.tag = FIXNUM_TYPE; t25101.s0.value.fixnum_type = 0; /* x196861 */ t25101.s1.tag = NULL_TYPE; /* x196862 */ t25100.s1.tag = STRUCTURE_TYPE24753; t25100.s1.value.structure_type24753 = &t25101; /* x196863 */ t25099.s0.tag = STRUCTURE_TYPE24753; t25099.s0.value.structure_type24753 = &t25100; /* x196864 */ t25099.s1.tag = NULL_TYPE; /* x196865 */ t25098.s0.tag = STRUCTURE_TYPE24753; t25098.s0.value.structure_type24753 = &t25099; /* x196866 */ t25103.s0.tag = EXTERNAL_SYMBOL_TYPE; t25103.s0.value.external_symbol_type = q241; /* x196867 */ t25105.s0.tag = EXTERNAL_SYMBOL_TYPE; t25105.s0.value.external_symbol_type = q120; /* x196868 */ t25106.s0.tag = EXTERNAL_SYMBOL_TYPE; t25106.s0.value.external_symbol_type = q337; /* x196869 */ t25107.s0.tag = EXTERNAL_SYMBOL_TYPE; t25107.s0.value.external_symbol_type = q260; /* x196870 */ t25107.s1.tag = NULL_TYPE; /* x196871 */ t25106.s1.tag = STRUCTURE_TYPE24753; t25106.s1.value.structure_type24753 = &t25107; /* x196872 */ t25105.s1.tag = STRUCTURE_TYPE24753; t25105.s1.value.structure_type24753 = &t25106; /* x196873 */ t25104.s0.tag = STRUCTURE_TYPE24753; t25104.s0.value.structure_type24753 = &t25105; /* x196874 */ t25109.s0.tag = EXTERNAL_SYMBOL_TYPE; t25109.s0.value.external_symbol_type = q244; /* x196875 */ t25111.s0.tag = EXTERNAL_SYMBOL_TYPE; t25111.s0.value.external_symbol_type = q263; /* x196876 */ t25113.s0.tag = EXTERNAL_SYMBOL_TYPE; t25113.s0.value.external_symbol_type = q163; /* x196877 */ t25114.s0.tag = EXTERNAL_SYMBOL_TYPE; t25114.s0.value.external_symbol_type = q468; /* x196878 */ t25115.s0.tag = EXTERNAL_SYMBOL_TYPE; t25115.s0.value.external_symbol_type = q337; /* x196879 */ t25115.s1.tag = NULL_TYPE; /* x196880 */ t25114.s1.tag = STRUCTURE_TYPE24753; t25114.s1.value.structure_type24753 = &t25115; /* x196881 */ t25113.s1.tag = STRUCTURE_TYPE24753; t25113.s1.value.structure_type24753 = &t25114; /* x196882 */ t25112.s0.tag = STRUCTURE_TYPE24753; t25112.s0.value.structure_type24753 = &t25113; /* x196883 */ t25117.s0.tag = EXTERNAL_SYMBOL_TYPE; t25117.s0.value.external_symbol_type = q163; /* x196884 */ t25118.s0.tag = EXTERNAL_SYMBOL_TYPE; t25118.s0.value.external_symbol_type = q469; /* x196885 */ t25119.s0.tag = EXTERNAL_SYMBOL_TYPE; t25119.s0.value.external_symbol_type = q337; /* x196886 */ t25119.s1.tag = NULL_TYPE; /* x196887 */ t25118.s1.tag = STRUCTURE_TYPE24753; t25118.s1.value.structure_type24753 = &t25119; /* x196888 */ t25117.s1.tag = STRUCTURE_TYPE24753; t25117.s1.value.structure_type24753 = &t25118; /* x196889 */ t25116.s0.tag = STRUCTURE_TYPE24753; t25116.s0.value.structure_type24753 = &t25117; /* x196890 */ t25116.s1.tag = NULL_TYPE; /* x196891 */ t25112.s1.tag = STRUCTURE_TYPE24753; t25112.s1.value.structure_type24753 = &t25116; /* x196892 */ t25111.s1.tag = STRUCTURE_TYPE24753; t25111.s1.value.structure_type24753 = &t25112; /* x196893 */ t25110.s0.tag = STRUCTURE_TYPE24753; t25110.s0.value.structure_type24753 = &t25111; /* x196894 */ t25121.s0.tag = EXTERNAL_SYMBOL_TYPE; t25121.s0.value.external_symbol_type = q289; /* x196895 */ t25123.s0.tag = EXTERNAL_SYMBOL_TYPE; t25123.s0.value.external_symbol_type = q4; /* x196896 */ t25124.s0.tag = EXTERNAL_SYMBOL_TYPE; t25124.s0.value.external_symbol_type = q337; /* x196897 */ t25125.s0.tag = FIXNUM_TYPE; t25125.s0.value.fixnum_type = 1; /* x196898 */ t25125.s1.tag = NULL_TYPE; /* x196899 */ t25124.s1.tag = STRUCTURE_TYPE24753; t25124.s1.value.structure_type24753 = &t25125; /* x196900 */ t25123.s1.tag = STRUCTURE_TYPE24753; t25123.s1.value.structure_type24753 = &t25124; /* x196901 */ t25122.s0.tag = STRUCTURE_TYPE24753; t25122.s0.value.structure_type24753 = &t25123; /* x196902 */ t25122.s1.tag = NULL_TYPE; /* x196903 */ t25121.s1.tag = STRUCTURE_TYPE24753; t25121.s1.value.structure_type24753 = &t25122; /* x196904 */ t25120.s0.tag = STRUCTURE_TYPE24753; t25120.s0.value.structure_type24753 = &t25121; /* x196905 */ t25120.s1.tag = NULL_TYPE; /* x196906 */ t25110.s1.tag = STRUCTURE_TYPE24753; t25110.s1.value.structure_type24753 = &t25120; /* x196907 */ t25109.s1.tag = STRUCTURE_TYPE24753; t25109.s1.value.structure_type24753 = &t25110; /* x196908 */ t25108.s0.tag = STRUCTURE_TYPE24753; t25108.s0.value.structure_type24753 = &t25109; /* x196909 */ t25108.s1.tag = NULL_TYPE; /* x196910 */ t25104.s1.tag = STRUCTURE_TYPE24753; t25104.s1.value.structure_type24753 = &t25108; /* x196911 */ t25103.s1.tag = STRUCTURE_TYPE24753; t25103.s1.value.structure_type24753 = &t25104; /* x196912 */ t25102.s0.tag = STRUCTURE_TYPE24753; t25102.s0.value.structure_type24753 = &t25103; /* x196913 */ t25102.s1.tag = NULL_TYPE; /* x196914 */ t25098.s1.tag = STRUCTURE_TYPE24753; t25098.s1.value.structure_type24753 = &t25102; /* x196915 */ t25097.s1.tag = STRUCTURE_TYPE24753; t25097.s1.value.structure_type24753 = &t25098; /* x196916 */ t25096.s1.tag = STRUCTURE_TYPE24753; t25096.s1.value.structure_type24753 = &t25097; /* x196917 */ t25095.s0.tag = STRUCTURE_TYPE24753; t25095.s0.value.structure_type24753 = &t25096; /* x196918 */ t25127.s0.tag = EXTERNAL_SYMBOL_TYPE; t25127.s0.value.external_symbol_type = q241; /* x196919 */ t25129.s0.tag = EXTERNAL_SYMBOL_TYPE; t25129.s0.value.external_symbol_type = q111; /* x196920 */ t25130.s0.tag = EXTERNAL_SYMBOL_TYPE; t25130.s0.value.external_symbol_type = q410; /* x196921 */ t25130.s1.tag = NULL_TYPE; /* x196922 */ t25129.s1.tag = STRUCTURE_TYPE24753; t25129.s1.value.structure_type24753 = &t25130; /* x196923 */ t25128.s0.tag = STRUCTURE_TYPE24753; t25128.s0.value.structure_type24753 = &t25129; /* x196924 */ t25132.s0.tag = EXTERNAL_SYMBOL_TYPE; t25132.s0.value.external_symbol_type = q289; /* x196925 */ t25133.s0.tag = EXTERNAL_SYMBOL_TYPE; t25133.s0.value.external_symbol_type = q469; /* x196926 */ t25135.s0.tag = EXTERNAL_SYMBOL_TYPE; t25135.s0.value.external_symbol_type = q107; /* x196927 */ t25136.s0.tag = EXTERNAL_SYMBOL_TYPE; t25136.s0.value.external_symbol_type = q410; /* x196928 */ t25136.s1.tag = NULL_TYPE; /* x196929 */ t25135.s1.tag = STRUCTURE_TYPE24753; t25135.s1.value.structure_type24753 = &t25136; /* x196930 */ t25134.s0.tag = STRUCTURE_TYPE24753; t25134.s0.value.structure_type24753 = &t25135; /* x196931 */ t25138.s0.tag = EXTERNAL_SYMBOL_TYPE; t25138.s0.value.external_symbol_type = q108; /* x196932 */ t25139.s0.tag = EXTERNAL_SYMBOL_TYPE; t25139.s0.value.external_symbol_type = q410; /* x196933 */ t25139.s1.tag = NULL_TYPE; /* x196934 */ t25138.s1.tag = STRUCTURE_TYPE24753; t25138.s1.value.structure_type24753 = &t25139; /* x196935 */ t25137.s0.tag = STRUCTURE_TYPE24753; t25137.s0.value.structure_type24753 = &t25138; /* x196936 */ t25137.s1.tag = NULL_TYPE; /* x196937 */ t25134.s1.tag = STRUCTURE_TYPE24753; t25134.s1.value.structure_type24753 = &t25137; /* x196938 */ t25133.s1.tag = STRUCTURE_TYPE24753; t25133.s1.value.structure_type24753 = &t25134; /* x196939 */ t25132.s1.tag = STRUCTURE_TYPE24753; t25132.s1.value.structure_type24753 = &t25133; /* x196940 */ t25131.s0.tag = STRUCTURE_TYPE24753; t25131.s0.value.structure_type24753 = &t25132; /* x196941 */ t25131.s1.tag = NULL_TYPE; /* x196942 */ t25128.s1.tag = STRUCTURE_TYPE24753; t25128.s1.value.structure_type24753 = &t25131; /* x196943 */ t25127.s1.tag = STRUCTURE_TYPE24753; t25127.s1.value.structure_type24753 = &t25128; /* x196944 */ t25126.s0.tag = STRUCTURE_TYPE24753; t25126.s0.value.structure_type24753 = &t25127; /* x196945 */ t25126.s1.tag = NULL_TYPE; /* x196946 */ t25095.s1.tag = STRUCTURE_TYPE24753; t25095.s1.value.structure_type24753 = &t25126; /* x196947 */ t25089.s1.tag = STRUCTURE_TYPE24753; t25089.s1.value.structure_type24753 = &t25095; /* x196948 */ t25088.s1.tag = STRUCTURE_TYPE24753; t25088.s1.value.structure_type24753 = &t25089; /* x196949 */ t25087.s0.tag = STRUCTURE_TYPE24753; t25087.s0.value.structure_type24753 = &t25088; /* x196950 */ t25087.s1.tag = NULL_TYPE; /* x196951 */ t25081.s1.tag = STRUCTURE_TYPE24753; t25081.s1.value.structure_type24753 = &t25087; /* x196952 */ t25080.s1.tag = STRUCTURE_TYPE24753; t25080.s1.value.structure_type24753 = &t25081; /* x196953 */ t25079.s0.tag = STRUCTURE_TYPE24753; t25079.s0.value.structure_type24753 = &t25080; /* x196954 */ t25079.s1.tag = NULL_TYPE; /* x196955 */ t25069.s1.tag = STRUCTURE_TYPE24753; t25069.s1.value.structure_type24753 = &t25079; /* x196956 */ t25068.s1.tag = STRUCTURE_TYPE24753; t25068.s1.value.structure_type24753 = &t25069; /* x196957 */ t25067.s1.tag = STRUCTURE_TYPE24753; t25067.s1.value.structure_type24753 = &t25068; /* x196958 */ t25066.s0.tag = STRUCTURE_TYPE24753; t25066.s0.value.structure_type24753 = &t25067; /* x196959 */ t25066.s1.tag = NULL_TYPE; /* x196960 */ t25062.s1.tag = STRUCTURE_TYPE24753; t25062.s1.value.structure_type24753 = &t25066; /* x196961 */ t25061.s1.tag = STRUCTURE_TYPE24753; t25061.s1.value.structure_type24753 = &t25062; /* x196964 */ t25144.s0.tag = EXTERNAL_SYMBOL_TYPE; t25144.s0.value.external_symbol_type = q97; /* x196965 */ t25146.s0.tag = EXTERNAL_SYMBOL_TYPE; t25146.s0.value.external_symbol_type = q470; /* x196966 */ t25147.s0.tag = EXTERNAL_SYMBOL_TYPE; t25147.s0.value.external_symbol_type = q468; /* x196967 */ t25148.s0.tag = EXTERNAL_SYMBOL_TYPE; t25148.s0.value.external_symbol_type = q469; /* x196968 */ t25148.s1.tag = EXTERNAL_SYMBOL_TYPE; t25148.s1.value.external_symbol_type = q410; /* x196969 */ t25147.s1.tag = STRUCTURE_TYPE24753; t25147.s1.value.structure_type24753 = &t25148; /* x196970 */ t25146.s1.tag = STRUCTURE_TYPE24753; t25146.s1.value.structure_type24753 = &t25147; /* x196971 */ t25145.s0.tag = STRUCTURE_TYPE24753; t25145.s0.value.structure_type24753 = &t25146; /* x196972 */ t25150.s0.tag = EXTERNAL_SYMBOL_TYPE; t25150.s0.value.external_symbol_type = q242; /* x196973 */ t25151.s0.tag = EXTERNAL_SYMBOL_TYPE; t25151.s0.value.external_symbol_type = q289; /* x196974 */ t25154.s0.tag = EXTERNAL_SYMBOL_TYPE; t25154.s0.value.external_symbol_type = q468; /* x196975 */ t25155.s0.tag = EXTERNAL_SYMBOL_TYPE; t25155.s0.value.external_symbol_type = q468; /* x196976 */ t25155.s1.tag = NULL_TYPE; /* x196977 */ t25154.s1.tag = STRUCTURE_TYPE24753; t25154.s1.value.structure_type24753 = &t25155; /* x196978 */ t25153.s0.tag = STRUCTURE_TYPE24753; t25153.s0.value.structure_type24753 = &t25154; /* x196979 */ t25157.s0.tag = EXTERNAL_SYMBOL_TYPE; t25157.s0.value.external_symbol_type = q469; /* x196980 */ t25158.s0.tag = EXTERNAL_SYMBOL_TYPE; t25158.s0.value.external_symbol_type = q469; /* x196981 */ t25158.s1.tag = NULL_TYPE; /* x196982 */ t25157.s1.tag = STRUCTURE_TYPE24753; t25157.s1.value.structure_type24753 = &t25158; /* x196983 */ t25156.s0.tag = STRUCTURE_TYPE24753; t25156.s0.value.structure_type24753 = &t25157; /* x196984 */ t25160.s0.tag = EXTERNAL_SYMBOL_TYPE; t25160.s0.value.external_symbol_type = q410; /* x196985 */ t25161.s0.tag = EXTERNAL_SYMBOL_TYPE; t25161.s0.value.external_symbol_type = q410; /* x196986 */ t25161.s1.tag = NULL_TYPE; /* x196987 */ t25160.s1.tag = STRUCTURE_TYPE24753; t25160.s1.value.structure_type24753 = &t25161; /* x196988 */ t25159.s0.tag = STRUCTURE_TYPE24753; t25159.s0.value.structure_type24753 = &t25160; /* x196989 */ t25159.s1.tag = NULL_TYPE; /* x196990 */ t25156.s1.tag = STRUCTURE_TYPE24753; t25156.s1.value.structure_type24753 = &t25159; /* x196991 */ t25153.s1.tag = STRUCTURE_TYPE24753; t25153.s1.value.structure_type24753 = &t25156; /* x196992 */ t25152.s0.tag = STRUCTURE_TYPE24753; t25152.s0.value.structure_type24753 = &t25153; /* x196993 */ t25163.s0.tag = EXTERNAL_SYMBOL_TYPE; t25163.s0.value.external_symbol_type = q242; /* x196994 */ t25166.s0.tag = EXTERNAL_SYMBOL_TYPE; t25166.s0.value.external_symbol_type = q260; /* x196995 */ t25168.s0.tag = EXTERNAL_SYMBOL_TYPE; t25168.s0.value.external_symbol_type = q162; /* x196996 */ t25169.s0.tag = EXTERNAL_SYMBOL_TYPE; t25169.s0.value.external_symbol_type = q468; /* x196997 */ t25169.s1.tag = NULL_TYPE; /* x196998 */ t25168.s1.tag = STRUCTURE_TYPE24753; t25168.s1.value.structure_type24753 = &t25169; /* x196999 */ t25167.s0.tag = STRUCTURE_TYPE24753; t25167.s0.value.structure_type24753 = &t25168; /* x197000 */ t25167.s1.tag = NULL_TYPE; /* x197001 */ t25166.s1.tag = STRUCTURE_TYPE24753; t25166.s1.value.structure_type24753 = &t25167; /* x197002 */ t25165.s0.tag = STRUCTURE_TYPE24753; t25165.s0.value.structure_type24753 = &t25166; /* x197003 */ t25165.s1.tag = NULL_TYPE; /* x197004 */ t25164.s0.tag = STRUCTURE_TYPE24753; t25164.s0.value.structure_type24753 = &t25165; /* x197005 */ t25171.s0.tag = EXTERNAL_SYMBOL_TYPE; t25171.s0.value.external_symbol_type = q244; /* x197006 */ t25173.s0.tag = EXTERNAL_SYMBOL_TYPE; t25173.s0.value.external_symbol_type = q120; /* x197007 */ t25174.s0.tag = EXTERNAL_SYMBOL_TYPE; t25174.s0.value.external_symbol_type = q260; /* x197008 */ t25176.s0.tag = EXTERNAL_SYMBOL_TYPE; t25176.s0.value.external_symbol_type = q162; /* x197009 */ t25177.s0.tag = EXTERNAL_SYMBOL_TYPE; t25177.s0.value.external_symbol_type = q469; /* x197010 */ t25177.s1.tag = NULL_TYPE; /* x197011 */ t25176.s1.tag = STRUCTURE_TYPE24753; t25176.s1.value.structure_type24753 = &t25177; /* x197012 */ t25175.s0.tag = STRUCTURE_TYPE24753; t25175.s0.value.structure_type24753 = &t25176; /* x197013 */ t25175.s1.tag = NULL_TYPE; /* x197014 */ t25174.s1.tag = STRUCTURE_TYPE24753; t25174.s1.value.structure_type24753 = &t25175; /* x197015 */ t25173.s1.tag = STRUCTURE_TYPE24753; t25173.s1.value.structure_type24753 = &t25174; /* x197016 */ t25172.s0.tag = STRUCTURE_TYPE24753; t25172.s0.value.structure_type24753 = &t25173; /* x197017 */ t25179.s0.tag = EXTERNAL_SYMBOL_TYPE; t25179.s0.value.external_symbol_type = q242; /* x197018 */ t25180.s0.tag = EXTERNAL_SYMBOL_TYPE; t25180.s0.value.external_symbol_type = q289; /* x197019 */ t25183.s0.tag = EXTERNAL_SYMBOL_TYPE; t25183.s0.value.external_symbol_type = q337; /* x197020 */ t25184.s0.tag = FIXNUM_TYPE; t25184.s0.value.fixnum_type = 0; /* x197021 */ t25184.s1.tag = NULL_TYPE; /* x197022 */ t25183.s1.tag = STRUCTURE_TYPE24753; t25183.s1.value.structure_type24753 = &t25184; /* x197023 */ t25182.s0.tag = STRUCTURE_TYPE24753; t25182.s0.value.structure_type24753 = &t25183; /* x197024 */ t25182.s1.tag = NULL_TYPE; /* x197025 */ t25181.s0.tag = STRUCTURE_TYPE24753; t25181.s0.value.structure_type24753 = &t25182; /* x197026 */ t25186.s0.tag = EXTERNAL_SYMBOL_TYPE; t25186.s0.value.external_symbol_type = q241; /* x197027 */ t25188.s0.tag = EXTERNAL_SYMBOL_TYPE; t25188.s0.value.external_symbol_type = q120; /* x197028 */ t25189.s0.tag = EXTERNAL_SYMBOL_TYPE; t25189.s0.value.external_symbol_type = q337; /* x197029 */ t25190.s0.tag = EXTERNAL_SYMBOL_TYPE; t25190.s0.value.external_symbol_type = q260; /* x197030 */ t25190.s1.tag = NULL_TYPE; /* x197031 */ t25189.s1.tag = STRUCTURE_TYPE24753; t25189.s1.value.structure_type24753 = &t25190; /* x197032 */ t25188.s1.tag = STRUCTURE_TYPE24753; t25188.s1.value.structure_type24753 = &t25189; /* x197033 */ t25187.s0.tag = STRUCTURE_TYPE24753; t25187.s0.value.structure_type24753 = &t25188; /* x197034 */ t25192.s0.tag = EXTERNAL_SYMBOL_TYPE; t25192.s0.value.external_symbol_type = q244; /* x197035 */ t25194.s0.tag = EXTERNAL_SYMBOL_TYPE; t25194.s0.value.external_symbol_type = q291; /* x197036 */ t25196.s0.tag = EXTERNAL_SYMBOL_TYPE; t25196.s0.value.external_symbol_type = q163; /* x197037 */ t25197.s0.tag = EXTERNAL_SYMBOL_TYPE; t25197.s0.value.external_symbol_type = q468; /* x197038 */ t25198.s0.tag = EXTERNAL_SYMBOL_TYPE; t25198.s0.value.external_symbol_type = q337; /* x197039 */ t25198.s1.tag = NULL_TYPE; /* x197040 */ t25197.s1.tag = STRUCTURE_TYPE24753; t25197.s1.value.structure_type24753 = &t25198; /* x197041 */ t25196.s1.tag = STRUCTURE_TYPE24753; t25196.s1.value.structure_type24753 = &t25197; /* x197042 */ t25195.s0.tag = STRUCTURE_TYPE24753; t25195.s0.value.structure_type24753 = &t25196; /* x197043 */ t25200.s0.tag = EXTERNAL_SYMBOL_TYPE; t25200.s0.value.external_symbol_type = q163; /* x197044 */ t25201.s0.tag = EXTERNAL_SYMBOL_TYPE; t25201.s0.value.external_symbol_type = q469; /* x197045 */ t25202.s0.tag = EXTERNAL_SYMBOL_TYPE; t25202.s0.value.external_symbol_type = q337; /* x197046 */ t25202.s1.tag = NULL_TYPE; /* x197047 */ t25201.s1.tag = STRUCTURE_TYPE24753; t25201.s1.value.structure_type24753 = &t25202; /* x197048 */ t25200.s1.tag = STRUCTURE_TYPE24753; t25200.s1.value.structure_type24753 = &t25201; /* x197049 */ t25199.s0.tag = STRUCTURE_TYPE24753; t25199.s0.value.structure_type24753 = &t25200; /* x197050 */ t25199.s1.tag = NULL_TYPE; /* x197051 */ t25195.s1.tag = STRUCTURE_TYPE24753; t25195.s1.value.structure_type24753 = &t25199; /* x197052 */ t25194.s1.tag = STRUCTURE_TYPE24753; t25194.s1.value.structure_type24753 = &t25195; /* x197053 */ t25193.s0.tag = STRUCTURE_TYPE24753; t25193.s0.value.structure_type24753 = &t25194; /* x197054 */ t25204.s0.tag = EXTERNAL_SYMBOL_TYPE; t25204.s0.value.external_symbol_type = q289; /* x197055 */ t25206.s0.tag = EXTERNAL_SYMBOL_TYPE; t25206.s0.value.external_symbol_type = q4; /* x197056 */ t25207.s0.tag = EXTERNAL_SYMBOL_TYPE; t25207.s0.value.external_symbol_type = q337; /* x197057 */ t25208.s0.tag = FIXNUM_TYPE; t25208.s0.value.fixnum_type = 1; /* x197058 */ t25208.s1.tag = NULL_TYPE; /* x197059 */ t25207.s1.tag = STRUCTURE_TYPE24753; t25207.s1.value.structure_type24753 = &t25208; /* x197060 */ t25206.s1.tag = STRUCTURE_TYPE24753; t25206.s1.value.structure_type24753 = &t25207; /* x197061 */ t25205.s0.tag = STRUCTURE_TYPE24753; t25205.s0.value.structure_type24753 = &t25206; /* x197062 */ t25205.s1.tag = NULL_TYPE; /* x197063 */ t25204.s1.tag = STRUCTURE_TYPE24753; t25204.s1.value.structure_type24753 = &t25205; /* x197064 */ t25203.s0.tag = STRUCTURE_TYPE24753; t25203.s0.value.structure_type24753 = &t25204; /* x197065 */ t25203.s1.tag = NULL_TYPE; /* x197066 */ t25193.s1.tag = STRUCTURE_TYPE24753; t25193.s1.value.structure_type24753 = &t25203; /* x197067 */ t25192.s1.tag = STRUCTURE_TYPE24753; t25192.s1.value.structure_type24753 = &t25193; /* x197068 */ t25191.s0.tag = STRUCTURE_TYPE24753; t25191.s0.value.structure_type24753 = &t25192; /* x197069 */ t25191.s1.tag = NULL_TYPE; /* x197070 */ t25187.s1.tag = STRUCTURE_TYPE24753; t25187.s1.value.structure_type24753 = &t25191; /* x197071 */ t25186.s1.tag = STRUCTURE_TYPE24753; t25186.s1.value.structure_type24753 = &t25187; /* x197072 */ t25185.s0.tag = STRUCTURE_TYPE24753; t25185.s0.value.structure_type24753 = &t25186; /* x197073 */ t25185.s1.tag = NULL_TYPE; /* x197074 */ t25181.s1.tag = STRUCTURE_TYPE24753; t25181.s1.value.structure_type24753 = &t25185; /* x197075 */ t25180.s1.tag = STRUCTURE_TYPE24753; t25180.s1.value.structure_type24753 = &t25181; /* x197076 */ t25179.s1.tag = STRUCTURE_TYPE24753; t25179.s1.value.structure_type24753 = &t25180; /* x197077 */ t25178.s0.tag = STRUCTURE_TYPE24753; t25178.s0.value.structure_type24753 = &t25179; /* x197078 */ t25210.s0.tag = EXTERNAL_SYMBOL_TYPE; t25210.s0.value.external_symbol_type = q241; /* x197079 */ t25212.s0.tag = EXTERNAL_SYMBOL_TYPE; t25212.s0.value.external_symbol_type = q111; /* x197080 */ t25213.s0.tag = EXTERNAL_SYMBOL_TYPE; t25213.s0.value.external_symbol_type = q410; /* x197081 */ t25213.s1.tag = NULL_TYPE; /* x197082 */ t25212.s1.tag = STRUCTURE_TYPE24753; t25212.s1.value.structure_type24753 = &t25213; /* x197083 */ t25211.s0.tag = STRUCTURE_TYPE24753; t25211.s0.value.structure_type24753 = &t25212; /* x197084 */ t25215.s0.tag = EXTERNAL_SYMBOL_TYPE; t25215.s0.value.external_symbol_type = q289; /* x197085 */ t25216.s0.tag = EXTERNAL_SYMBOL_TYPE; t25216.s0.value.external_symbol_type = q469; /* x197086 */ t25218.s0.tag = EXTERNAL_SYMBOL_TYPE; t25218.s0.value.external_symbol_type = q107; /* x197087 */ t25219.s0.tag = EXTERNAL_SYMBOL_TYPE; t25219.s0.value.external_symbol_type = q410; /* x197088 */ t25219.s1.tag = NULL_TYPE; /* x197089 */ t25218.s1.tag = STRUCTURE_TYPE24753; t25218.s1.value.structure_type24753 = &t25219; /* x197090 */ t25217.s0.tag = STRUCTURE_TYPE24753; t25217.s0.value.structure_type24753 = &t25218; /* x197091 */ t25221.s0.tag = EXTERNAL_SYMBOL_TYPE; t25221.s0.value.external_symbol_type = q108; /* x197092 */ t25222.s0.tag = EXTERNAL_SYMBOL_TYPE; t25222.s0.value.external_symbol_type = q410; /* x197093 */ t25222.s1.tag = NULL_TYPE; /* x197094 */ t25221.s1.tag = STRUCTURE_TYPE24753; t25221.s1.value.structure_type24753 = &t25222; /* x197095 */ t25220.s0.tag = STRUCTURE_TYPE24753; t25220.s0.value.structure_type24753 = &t25221; /* x197096 */ t25220.s1.tag = NULL_TYPE; /* x197097 */ t25217.s1.tag = STRUCTURE_TYPE24753; t25217.s1.value.structure_type24753 = &t25220; /* x197098 */ t25216.s1.tag = STRUCTURE_TYPE24753; t25216.s1.value.structure_type24753 = &t25217; /* x197099 */ t25215.s1.tag = STRUCTURE_TYPE24753; t25215.s1.value.structure_type24753 = &t25216; /* x197100 */ t25214.s0.tag = STRUCTURE_TYPE24753; t25214.s0.value.structure_type24753 = &t25215; /* x197101 */ t25214.s1.tag = NULL_TYPE; /* x197102 */ t25211.s1.tag = STRUCTURE_TYPE24753; t25211.s1.value.structure_type24753 = &t25214; /* x197103 */ t25210.s1.tag = STRUCTURE_TYPE24753; t25210.s1.value.structure_type24753 = &t25211; /* x197104 */ t25209.s0.tag = STRUCTURE_TYPE24753; t25209.s0.value.structure_type24753 = &t25210; /* x197105 */ t25209.s1.tag = NULL_TYPE; /* x197106 */ t25178.s1.tag = STRUCTURE_TYPE24753; t25178.s1.value.structure_type24753 = &t25209; /* x197107 */ t25172.s1.tag = STRUCTURE_TYPE24753; t25172.s1.value.structure_type24753 = &t25178; /* x197108 */ t25171.s1.tag = STRUCTURE_TYPE24753; t25171.s1.value.structure_type24753 = &t25172; /* x197109 */ t25170.s0.tag = STRUCTURE_TYPE24753; t25170.s0.value.structure_type24753 = &t25171; /* x197110 */ t25170.s1.tag = NULL_TYPE; /* x197111 */ t25164.s1.tag = STRUCTURE_TYPE24753; t25164.s1.value.structure_type24753 = &t25170; /* x197112 */ t25163.s1.tag = STRUCTURE_TYPE24753; t25163.s1.value.structure_type24753 = &t25164; /* x197113 */ t25162.s0.tag = STRUCTURE_TYPE24753; t25162.s0.value.structure_type24753 = &t25163; /* x197114 */ t25162.s1.tag = NULL_TYPE; /* x197115 */ t25152.s1.tag = STRUCTURE_TYPE24753; t25152.s1.value.structure_type24753 = &t25162; /* x197116 */ t25151.s1.tag = STRUCTURE_TYPE24753; t25151.s1.value.structure_type24753 = &t25152; /* x197117 */ t25150.s1.tag = STRUCTURE_TYPE24753; t25150.s1.value.structure_type24753 = &t25151; /* x197118 */ t25149.s0.tag = STRUCTURE_TYPE24753; t25149.s0.value.structure_type24753 = &t25150; /* x197119 */ t25149.s1.tag = NULL_TYPE; /* x197120 */ t25145.s1.tag = STRUCTURE_TYPE24753; t25145.s1.value.structure_type24753 = &t25149; /* x197121 */ t25144.s1.tag = STRUCTURE_TYPE24753; t25144.s1.value.structure_type24753 = &t25145; /* x197124 */ t25227.s0.tag = EXTERNAL_SYMBOL_TYPE; t25227.s0.value.external_symbol_type = q97; /* x197125 */ t25229.s0.tag = EXTERNAL_SYMBOL_TYPE; t25229.s0.value.external_symbol_type = q471; /* x197126 */ t25230.s0.tag = EXTERNAL_SYMBOL_TYPE; t25230.s0.value.external_symbol_type = q468; /* x197127 */ t25231.s0.tag = EXTERNAL_SYMBOL_TYPE; t25231.s0.value.external_symbol_type = q469; /* x197128 */ t25231.s1.tag = EXTERNAL_SYMBOL_TYPE; t25231.s1.value.external_symbol_type = q410; /* x197129 */ t25230.s1.tag = STRUCTURE_TYPE24753; t25230.s1.value.structure_type24753 = &t25231; /* x197130 */ t25229.s1.tag = STRUCTURE_TYPE24753; t25229.s1.value.structure_type24753 = &t25230; /* x197131 */ t25228.s0.tag = STRUCTURE_TYPE24753; t25228.s0.value.structure_type24753 = &t25229; /* x197132 */ t25233.s0.tag = EXTERNAL_SYMBOL_TYPE; t25233.s0.value.external_symbol_type = q242; /* x197133 */ t25234.s0.tag = EXTERNAL_SYMBOL_TYPE; t25234.s0.value.external_symbol_type = q289; /* x197134 */ t25237.s0.tag = EXTERNAL_SYMBOL_TYPE; t25237.s0.value.external_symbol_type = q468; /* x197135 */ t25238.s0.tag = EXTERNAL_SYMBOL_TYPE; t25238.s0.value.external_symbol_type = q468; /* x197136 */ t25238.s1.tag = NULL_TYPE; /* x197137 */ t25237.s1.tag = STRUCTURE_TYPE24753; t25237.s1.value.structure_type24753 = &t25238; /* x197138 */ t25236.s0.tag = STRUCTURE_TYPE24753; t25236.s0.value.structure_type24753 = &t25237; /* x197139 */ t25240.s0.tag = EXTERNAL_SYMBOL_TYPE; t25240.s0.value.external_symbol_type = q449; /* x197140 */ t25242.s0.tag = EXTERNAL_SYMBOL_TYPE; t25242.s0.value.external_symbol_type = q162; /* x197141 */ t25243.s0.tag = EXTERNAL_SYMBOL_TYPE; t25243.s0.value.external_symbol_type = q468; /* x197142 */ t25243.s1.tag = NULL_TYPE; /* x197143 */ t25242.s1.tag = STRUCTURE_TYPE24753; t25242.s1.value.structure_type24753 = &t25243; /* x197144 */ t25241.s0.tag = STRUCTURE_TYPE24753; t25241.s0.value.structure_type24753 = &t25242; /* x197145 */ t25241.s1.tag = NULL_TYPE; /* x197146 */ t25240.s1.tag = STRUCTURE_TYPE24753; t25240.s1.value.structure_type24753 = &t25241; /* x197147 */ t25239.s0.tag = STRUCTURE_TYPE24753; t25239.s0.value.structure_type24753 = &t25240; /* x197148 */ t25245.s0.tag = EXTERNAL_SYMBOL_TYPE; t25245.s0.value.external_symbol_type = q469; /* x197149 */ t25246.s0.tag = EXTERNAL_SYMBOL_TYPE; t25246.s0.value.external_symbol_type = q469; /* x197150 */ t25246.s1.tag = NULL_TYPE; /* x197151 */ t25245.s1.tag = STRUCTURE_TYPE24753; t25245.s1.value.structure_type24753 = &t25246; /* x197152 */ t25244.s0.tag = STRUCTURE_TYPE24753; t25244.s0.value.structure_type24753 = &t25245; /* x197153 */ t25248.s0.tag = EXTERNAL_SYMBOL_TYPE; t25248.s0.value.external_symbol_type = q450; /* x197154 */ t25250.s0.tag = EXTERNAL_SYMBOL_TYPE; t25250.s0.value.external_symbol_type = q162; /* x197155 */ t25251.s0.tag = EXTERNAL_SYMBOL_TYPE; t25251.s0.value.external_symbol_type = q469; /* x197156 */ t25251.s1.tag = NULL_TYPE; /* x197157 */ t25250.s1.tag = STRUCTURE_TYPE24753; t25250.s1.value.structure_type24753 = &t25251; /* x197158 */ t25249.s0.tag = STRUCTURE_TYPE24753; t25249.s0.value.structure_type24753 = &t25250; /* x197159 */ t25249.s1.tag = NULL_TYPE; /* x197160 */ t25248.s1.tag = STRUCTURE_TYPE24753; t25248.s1.value.structure_type24753 = &t25249; /* x197161 */ t25247.s0.tag = STRUCTURE_TYPE24753; t25247.s0.value.structure_type24753 = &t25248; /* x197162 */ t25253.s0.tag = EXTERNAL_SYMBOL_TYPE; t25253.s0.value.external_symbol_type = q410; /* x197163 */ t25254.s0.tag = EXTERNAL_SYMBOL_TYPE; t25254.s0.value.external_symbol_type = q410; /* x197164 */ t25254.s1.tag = NULL_TYPE; /* x197165 */ t25253.s1.tag = STRUCTURE_TYPE24753; t25253.s1.value.structure_type24753 = &t25254; /* x197166 */ t25252.s0.tag = STRUCTURE_TYPE24753; t25252.s0.value.structure_type24753 = &t25253; /* x197167 */ t25252.s1.tag = NULL_TYPE; /* x197168 */ t25247.s1.tag = STRUCTURE_TYPE24753; t25247.s1.value.structure_type24753 = &t25252; /* x197169 */ t25244.s1.tag = STRUCTURE_TYPE24753; t25244.s1.value.structure_type24753 = &t25247; /* x197170 */ t25239.s1.tag = STRUCTURE_TYPE24753; t25239.s1.value.structure_type24753 = &t25244; /* x197171 */ t25236.s1.tag = STRUCTURE_TYPE24753; t25236.s1.value.structure_type24753 = &t25239; /* x197172 */ t25235.s0.tag = STRUCTURE_TYPE24753; t25235.s0.value.structure_type24753 = &t25236; /* x197173 */ t25256.s0.tag = EXTERNAL_SYMBOL_TYPE; t25256.s0.value.external_symbol_type = q244; /* x197174 */ t25258.s0.tag = EXTERNAL_SYMBOL_TYPE; t25258.s0.value.external_symbol_type = q242; /* x197175 */ t25259.s0.tag = EXTERNAL_SYMBOL_TYPE; t25259.s0.value.external_symbol_type = q289; /* x197176 */ t25262.s0.tag = EXTERNAL_SYMBOL_TYPE; t25262.s0.value.external_symbol_type = q337; /* x197177 */ t25263.s0.tag = FIXNUM_TYPE; t25263.s0.value.fixnum_type = 0; /* x197178 */ t25263.s1.tag = NULL_TYPE; /* x197179 */ t25262.s1.tag = STRUCTURE_TYPE24753; t25262.s1.value.structure_type24753 = &t25263; /* x197180 */ t25261.s0.tag = STRUCTURE_TYPE24753; t25261.s0.value.structure_type24753 = &t25262; /* x197181 */ t25261.s1.tag = NULL_TYPE; /* x197182 */ t25260.s0.tag = STRUCTURE_TYPE24753; t25260.s0.value.structure_type24753 = &t25261; /* x197183 */ t25265.s0.tag = EXTERNAL_SYMBOL_TYPE; t25265.s0.value.external_symbol_type = q43; /* x197184 */ t25267.s0.tag = EXTERNAL_SYMBOL_TYPE; t25267.s0.value.external_symbol_type = q120; /* x197185 */ t25268.s0.tag = EXTERNAL_SYMBOL_TYPE; t25268.s0.value.external_symbol_type = q337; /* x197186 */ t25269.s0.tag = EXTERNAL_SYMBOL_TYPE; t25269.s0.value.external_symbol_type = q449; /* x197187 */ t25269.s1.tag = NULL_TYPE; /* x197188 */ t25268.s1.tag = STRUCTURE_TYPE24753; t25268.s1.value.structure_type24753 = &t25269; /* x197189 */ t25267.s1.tag = STRUCTURE_TYPE24753; t25267.s1.value.structure_type24753 = &t25268; /* x197190 */ t25266.s0.tag = STRUCTURE_TYPE24753; t25266.s0.value.structure_type24753 = &t25267; /* x197191 */ t25271.s0.tag = EXTERNAL_SYMBOL_TYPE; t25271.s0.value.external_symbol_type = q121; /* x197192 */ t25272.s0.tag = EXTERNAL_SYMBOL_TYPE; t25272.s0.value.external_symbol_type = q337; /* x197193 */ t25273.s0.tag = EXTERNAL_SYMBOL_TYPE; t25273.s0.value.external_symbol_type = q450; /* x197194 */ t25273.s1.tag = NULL_TYPE; /* x197195 */ t25272.s1.tag = STRUCTURE_TYPE24753; t25272.s1.value.structure_type24753 = &t25273; /* x197196 */ t25271.s1.tag = STRUCTURE_TYPE24753; t25271.s1.value.structure_type24753 = &t25272; /* x197197 */ t25270.s0.tag = STRUCTURE_TYPE24753; t25270.s0.value.structure_type24753 = &t25271; /* x197198 */ t25275.s0.tag = EXTERNAL_SYMBOL_TYPE; t25275.s0.value.external_symbol_type = q244; /* x197199 */ t25277.s0.tag = EXTERNAL_SYMBOL_TYPE; t25277.s0.value.external_symbol_type = q121; /* x197200 */ t25278.s0.tag = EXTERNAL_SYMBOL_TYPE; t25278.s0.value.external_symbol_type = q337; /* x197201 */ t25279.s0.tag = EXTERNAL_SYMBOL_TYPE; t25279.s0.value.external_symbol_type = q450; /* x197202 */ t25279.s1.tag = NULL_TYPE; /* x197203 */ t25278.s1.tag = STRUCTURE_TYPE24753; t25278.s1.value.structure_type24753 = &t25279; /* x197204 */ t25277.s1.tag = STRUCTURE_TYPE24753; t25277.s1.value.structure_type24753 = &t25278; /* x197205 */ t25276.s0.tag = STRUCTURE_TYPE24753; t25276.s0.value.structure_type24753 = &t25277; /* x197206 */ t25281.s0.tag = EXTERNAL_SYMBOL_TYPE; t25281.s0.value.external_symbol_type = q241; /* x197207 */ t25283.s0.tag = EXTERNAL_SYMBOL_TYPE; t25283.s0.value.external_symbol_type = q298; /* x197208 */ t25285.s0.tag = EXTERNAL_SYMBOL_TYPE; t25285.s0.value.external_symbol_type = q163; /* x197209 */ t25286.s0.tag = EXTERNAL_SYMBOL_TYPE; t25286.s0.value.external_symbol_type = q468; /* x197210 */ t25287.s0.tag = EXTERNAL_SYMBOL_TYPE; t25287.s0.value.external_symbol_type = q337; /* x197211 */ t25287.s1.tag = NULL_TYPE; /* x197212 */ t25286.s1.tag = STRUCTURE_TYPE24753; t25286.s1.value.structure_type24753 = &t25287; /* x197213 */ t25285.s1.tag = STRUCTURE_TYPE24753; t25285.s1.value.structure_type24753 = &t25286; /* x197214 */ t25284.s0.tag = STRUCTURE_TYPE24753; t25284.s0.value.structure_type24753 = &t25285; /* x197215 */ t25289.s0.tag = EXTERNAL_SYMBOL_TYPE; t25289.s0.value.external_symbol_type = q163; /* x197216 */ t25290.s0.tag = EXTERNAL_SYMBOL_TYPE; t25290.s0.value.external_symbol_type = q469; /* x197217 */ t25291.s0.tag = EXTERNAL_SYMBOL_TYPE; t25291.s0.value.external_symbol_type = q337; /* x197218 */ t25291.s1.tag = NULL_TYPE; /* x197219 */ t25290.s1.tag = STRUCTURE_TYPE24753; t25290.s1.value.structure_type24753 = &t25291; /* x197220 */ t25289.s1.tag = STRUCTURE_TYPE24753; t25289.s1.value.structure_type24753 = &t25290; /* x197221 */ t25288.s0.tag = STRUCTURE_TYPE24753; t25288.s0.value.structure_type24753 = &t25289; /* x197222 */ t25288.s1.tag = NULL_TYPE; /* x197223 */ t25284.s1.tag = STRUCTURE_TYPE24753; t25284.s1.value.structure_type24753 = &t25288; /* x197224 */ t25283.s1.tag = STRUCTURE_TYPE24753; t25283.s1.value.structure_type24753 = &t25284; /* x197225 */ t25282.s0.tag = STRUCTURE_TYPE24753; t25282.s0.value.structure_type24753 = &t25283; /* x197226 */ t25293.s0.tag = EXTERNAL_SYMBOL_TYPE; t25293.s0.value.external_symbol_type = q244; /* x197227 */ t25295.s0.tag = EXTERNAL_SYMBOL_TYPE; t25295.s0.value.external_symbol_type = q263; /* x197228 */ t25297.s0.tag = EXTERNAL_SYMBOL_TYPE; t25297.s0.value.external_symbol_type = q163; /* x197229 */ t25298.s0.tag = EXTERNAL_SYMBOL_TYPE; t25298.s0.value.external_symbol_type = q468; /* x197230 */ t25299.s0.tag = EXTERNAL_SYMBOL_TYPE; t25299.s0.value.external_symbol_type = q337; /* x197231 */ t25299.s1.tag = NULL_TYPE; /* x197232 */ t25298.s1.tag = STRUCTURE_TYPE24753; t25298.s1.value.structure_type24753 = &t25299; /* x197233 */ t25297.s1.tag = STRUCTURE_TYPE24753; t25297.s1.value.structure_type24753 = &t25298; /* x197234 */ t25296.s0.tag = STRUCTURE_TYPE24753; t25296.s0.value.structure_type24753 = &t25297; /* x197235 */ t25301.s0.tag = EXTERNAL_SYMBOL_TYPE; t25301.s0.value.external_symbol_type = q163; /* x197236 */ t25302.s0.tag = EXTERNAL_SYMBOL_TYPE; t25302.s0.value.external_symbol_type = q469; /* x197237 */ t25303.s0.tag = EXTERNAL_SYMBOL_TYPE; t25303.s0.value.external_symbol_type = q337; /* x197238 */ t25303.s1.tag = NULL_TYPE; /* x197239 */ t25302.s1.tag = STRUCTURE_TYPE24753; t25302.s1.value.structure_type24753 = &t25303; /* x197240 */ t25301.s1.tag = STRUCTURE_TYPE24753; t25301.s1.value.structure_type24753 = &t25302; /* x197241 */ t25300.s0.tag = STRUCTURE_TYPE24753; t25300.s0.value.structure_type24753 = &t25301; /* x197242 */ t25300.s1.tag = NULL_TYPE; /* x197243 */ t25296.s1.tag = STRUCTURE_TYPE24753; t25296.s1.value.structure_type24753 = &t25300; /* x197244 */ t25295.s1.tag = STRUCTURE_TYPE24753; t25295.s1.value.structure_type24753 = &t25296; /* x197245 */ t25294.s0.tag = STRUCTURE_TYPE24753; t25294.s0.value.structure_type24753 = &t25295; /* x197246 */ t25305.s0.tag = EXTERNAL_SYMBOL_TYPE; t25305.s0.value.external_symbol_type = q289; /* x197247 */ t25307.s0.tag = EXTERNAL_SYMBOL_TYPE; t25307.s0.value.external_symbol_type = q4; /* x197248 */ t25308.s0.tag = EXTERNAL_SYMBOL_TYPE; t25308.s0.value.external_symbol_type = q337; /* x197249 */ t25309.s0.tag = FIXNUM_TYPE; t25309.s0.value.fixnum_type = 1; /* x197250 */ t25309.s1.tag = NULL_TYPE; /* x197251 */ t25308.s1.tag = STRUCTURE_TYPE24753; t25308.s1.value.structure_type24753 = &t25309; /* x197252 */ t25307.s1.tag = STRUCTURE_TYPE24753; t25307.s1.value.structure_type24753 = &t25308; /* x197253 */ t25306.s0.tag = STRUCTURE_TYPE24753; t25306.s0.value.structure_type24753 = &t25307; /* x197254 */ t25306.s1.tag = NULL_TYPE; /* x197255 */ t25305.s1.tag = STRUCTURE_TYPE24753; t25305.s1.value.structure_type24753 = &t25306; /* x197256 */ t25304.s0.tag = STRUCTURE_TYPE24753; t25304.s0.value.structure_type24753 = &t25305; /* x197257 */ t25304.s1.tag = NULL_TYPE; /* x197258 */ t25294.s1.tag = STRUCTURE_TYPE24753; t25294.s1.value.structure_type24753 = &t25304; /* x197259 */ t25293.s1.tag = STRUCTURE_TYPE24753; t25293.s1.value.structure_type24753 = &t25294; /* x197260 */ t25292.s0.tag = STRUCTURE_TYPE24753; t25292.s0.value.structure_type24753 = &t25293; /* x197261 */ t25292.s1.tag = NULL_TYPE; /* x197262 */ t25282.s1.tag = STRUCTURE_TYPE24753; t25282.s1.value.structure_type24753 = &t25292; /* x197263 */ t25281.s1.tag = STRUCTURE_TYPE24753; t25281.s1.value.structure_type24753 = &t25282; /* x197264 */ t25280.s0.tag = STRUCTURE_TYPE24753; t25280.s0.value.structure_type24753 = &t25281; /* x197265 */ t25280.s1.tag = NULL_TYPE; /* x197266 */ t25276.s1.tag = STRUCTURE_TYPE24753; t25276.s1.value.structure_type24753 = &t25280; /* x197267 */ t25275.s1.tag = STRUCTURE_TYPE24753; t25275.s1.value.structure_type24753 = &t25276; /* x197268 */ t25274.s0.tag = STRUCTURE_TYPE24753; t25274.s0.value.structure_type24753 = &t25275; /* x197269 */ t25274.s1.tag = NULL_TYPE; /* x197270 */ t25270.s1.tag = STRUCTURE_TYPE24753; t25270.s1.value.structure_type24753 = &t25274; /* x197271 */ t25266.s1.tag = STRUCTURE_TYPE24753; t25266.s1.value.structure_type24753 = &t25270; /* x197272 */ t25265.s1.tag = STRUCTURE_TYPE24753; t25265.s1.value.structure_type24753 = &t25266; /* x197273 */ t25264.s0.tag = STRUCTURE_TYPE24753; t25264.s0.value.structure_type24753 = &t25265; /* x197274 */ t25264.s1.tag = NULL_TYPE; /* x197275 */ t25260.s1.tag = STRUCTURE_TYPE24753; t25260.s1.value.structure_type24753 = &t25264; /* x197276 */ t25259.s1.tag = STRUCTURE_TYPE24753; t25259.s1.value.structure_type24753 = &t25260; /* x197277 */ t25258.s1.tag = STRUCTURE_TYPE24753; t25258.s1.value.structure_type24753 = &t25259; /* x197278 */ t25257.s0.tag = STRUCTURE_TYPE24753; t25257.s0.value.structure_type24753 = &t25258; /* x197279 */ t25311.s0.tag = EXTERNAL_SYMBOL_TYPE; t25311.s0.value.external_symbol_type = q241; /* x197280 */ t25313.s0.tag = EXTERNAL_SYMBOL_TYPE; t25313.s0.value.external_symbol_type = q111; /* x197281 */ t25314.s0.tag = EXTERNAL_SYMBOL_TYPE; t25314.s0.value.external_symbol_type = q410; /* x197282 */ t25314.s1.tag = NULL_TYPE; /* x197283 */ t25313.s1.tag = STRUCTURE_TYPE24753; t25313.s1.value.structure_type24753 = &t25314; /* x197284 */ t25312.s0.tag = STRUCTURE_TYPE24753; t25312.s0.value.structure_type24753 = &t25313; /* x197285 */ t25316.s0.tag = EXTERNAL_SYMBOL_TYPE; t25316.s0.value.external_symbol_type = q289; /* x197286 */ t25317.s0.tag = EXTERNAL_SYMBOL_TYPE; t25317.s0.value.external_symbol_type = q469; /* x197287 */ t25318.s0.tag = EXTERNAL_SYMBOL_TYPE; t25318.s0.value.external_symbol_type = q450; /* x197288 */ t25320.s0.tag = EXTERNAL_SYMBOL_TYPE; t25320.s0.value.external_symbol_type = q107; /* x197289 */ t25321.s0.tag = EXTERNAL_SYMBOL_TYPE; t25321.s0.value.external_symbol_type = q410; /* x197290 */ t25321.s1.tag = NULL_TYPE; /* x197291 */ t25320.s1.tag = STRUCTURE_TYPE24753; t25320.s1.value.structure_type24753 = &t25321; /* x197292 */ t25319.s0.tag = STRUCTURE_TYPE24753; t25319.s0.value.structure_type24753 = &t25320; /* x197293 */ t25323.s0.tag = EXTERNAL_SYMBOL_TYPE; t25323.s0.value.external_symbol_type = q162; /* x197294 */ t25325.s0.tag = EXTERNAL_SYMBOL_TYPE; t25325.s0.value.external_symbol_type = q107; /* x197295 */ t25326.s0.tag = EXTERNAL_SYMBOL_TYPE; t25326.s0.value.external_symbol_type = q410; /* x197296 */ t25326.s1.tag = NULL_TYPE; /* x197297 */ t25325.s1.tag = STRUCTURE_TYPE24753; t25325.s1.value.structure_type24753 = &t25326; /* x197298 */ t25324.s0.tag = STRUCTURE_TYPE24753; t25324.s0.value.structure_type24753 = &t25325; /* x197299 */ t25324.s1.tag = NULL_TYPE; /* x197300 */ t25323.s1.tag = STRUCTURE_TYPE24753; t25323.s1.value.structure_type24753 = &t25324; /* x197301 */ t25322.s0.tag = STRUCTURE_TYPE24753; t25322.s0.value.structure_type24753 = &t25323; /* x197302 */ t25328.s0.tag = EXTERNAL_SYMBOL_TYPE; t25328.s0.value.external_symbol_type = q108; /* x197303 */ t25329.s0.tag = EXTERNAL_SYMBOL_TYPE; t25329.s0.value.external_symbol_type = q410; /* x197304 */ t25329.s1.tag = NULL_TYPE; /* x197305 */ t25328.s1.tag = STRUCTURE_TYPE24753; t25328.s1.value.structure_type24753 = &t25329; /* x197306 */ t25327.s0.tag = STRUCTURE_TYPE24753; t25327.s0.value.structure_type24753 = &t25328; /* x197307 */ t25327.s1.tag = NULL_TYPE; /* x197308 */ t25322.s1.tag = STRUCTURE_TYPE24753; t25322.s1.value.structure_type24753 = &t25327; /* x197309 */ t25319.s1.tag = STRUCTURE_TYPE24753; t25319.s1.value.structure_type24753 = &t25322; /* x197310 */ t25318.s1.tag = STRUCTURE_TYPE24753; t25318.s1.value.structure_type24753 = &t25319; /* x197311 */ t25317.s1.tag = STRUCTURE_TYPE24753; t25317.s1.value.structure_type24753 = &t25318; /* x197312 */ t25316.s1.tag = STRUCTURE_TYPE24753; t25316.s1.value.structure_type24753 = &t25317; /* x197313 */ t25315.s0.tag = STRUCTURE_TYPE24753; t25315.s0.value.structure_type24753 = &t25316; /* x197314 */ t25315.s1.tag = NULL_TYPE; /* x197315 */ t25312.s1.tag = STRUCTURE_TYPE24753; t25312.s1.value.structure_type24753 = &t25315; /* x197316 */ t25311.s1.tag = STRUCTURE_TYPE24753; t25311.s1.value.structure_type24753 = &t25312; /* x197317 */ t25310.s0.tag = STRUCTURE_TYPE24753; t25310.s0.value.structure_type24753 = &t25311; /* x197318 */ t25310.s1.tag = NULL_TYPE; /* x197319 */ t25257.s1.tag = STRUCTURE_TYPE24753; t25257.s1.value.structure_type24753 = &t25310; /* x197320 */ t25256.s1.tag = STRUCTURE_TYPE24753; t25256.s1.value.structure_type24753 = &t25257; /* x197321 */ t25255.s0.tag = STRUCTURE_TYPE24753; t25255.s0.value.structure_type24753 = &t25256; /* x197322 */ t25255.s1.tag = NULL_TYPE; /* x197323 */ t25235.s1.tag = STRUCTURE_TYPE24753; t25235.s1.value.structure_type24753 = &t25255; /* x197324 */ t25234.s1.tag = STRUCTURE_TYPE24753; t25234.s1.value.structure_type24753 = &t25235; /* x197325 */ t25233.s1.tag = STRUCTURE_TYPE24753; t25233.s1.value.structure_type24753 = &t25234; /* x197326 */ t25232.s0.tag = STRUCTURE_TYPE24753; t25232.s0.value.structure_type24753 = &t25233; /* x197327 */ t25232.s1.tag = NULL_TYPE; /* x197328 */ t25228.s1.tag = STRUCTURE_TYPE24753; t25228.s1.value.structure_type24753 = &t25232; /* x197329 */ t25227.s1.tag = STRUCTURE_TYPE24753; t25227.s1.value.structure_type24753 = &t25228; /* x197332 */ t25334.s0.tag = EXTERNAL_SYMBOL_TYPE; t25334.s0.value.external_symbol_type = q97; /* x197333 */ t25336.s0.tag = EXTERNAL_SYMBOL_TYPE; t25336.s0.value.external_symbol_type = q472; /* x197334 */ t25337.s0.tag = EXTERNAL_SYMBOL_TYPE; t25337.s0.value.external_symbol_type = q468; /* x197335 */ t25338.s0.tag = EXTERNAL_SYMBOL_TYPE; t25338.s0.value.external_symbol_type = q469; /* x197336 */ t25338.s1.tag = EXTERNAL_SYMBOL_TYPE; t25338.s1.value.external_symbol_type = q410; /* x197337 */ t25337.s1.tag = STRUCTURE_TYPE24753; t25337.s1.value.structure_type24753 = &t25338; /* x197338 */ t25336.s1.tag = STRUCTURE_TYPE24753; t25336.s1.value.structure_type24753 = &t25337; /* x197339 */ t25335.s0.tag = STRUCTURE_TYPE24753; t25335.s0.value.structure_type24753 = &t25336; /* x197340 */ t25340.s0.tag = EXTERNAL_SYMBOL_TYPE; t25340.s0.value.external_symbol_type = q242; /* x197341 */ t25341.s0.tag = EXTERNAL_SYMBOL_TYPE; t25341.s0.value.external_symbol_type = q289; /* x197342 */ t25344.s0.tag = EXTERNAL_SYMBOL_TYPE; t25344.s0.value.external_symbol_type = q468; /* x197343 */ t25345.s0.tag = EXTERNAL_SYMBOL_TYPE; t25345.s0.value.external_symbol_type = q468; /* x197344 */ t25345.s1.tag = NULL_TYPE; /* x197345 */ t25344.s1.tag = STRUCTURE_TYPE24753; t25344.s1.value.structure_type24753 = &t25345; /* x197346 */ t25343.s0.tag = STRUCTURE_TYPE24753; t25343.s0.value.structure_type24753 = &t25344; /* x197347 */ t25347.s0.tag = EXTERNAL_SYMBOL_TYPE; t25347.s0.value.external_symbol_type = q449; /* x197348 */ t25349.s0.tag = EXTERNAL_SYMBOL_TYPE; t25349.s0.value.external_symbol_type = q162; /* x197349 */ t25350.s0.tag = EXTERNAL_SYMBOL_TYPE; t25350.s0.value.external_symbol_type = q468; /* x197350 */ t25350.s1.tag = NULL_TYPE; /* x197351 */ t25349.s1.tag = STRUCTURE_TYPE24753; t25349.s1.value.structure_type24753 = &t25350; /* x197352 */ t25348.s0.tag = STRUCTURE_TYPE24753; t25348.s0.value.structure_type24753 = &t25349; /* x197353 */ t25348.s1.tag = NULL_TYPE; /* x197354 */ t25347.s1.tag = STRUCTURE_TYPE24753; t25347.s1.value.structure_type24753 = &t25348; /* x197355 */ t25346.s0.tag = STRUCTURE_TYPE24753; t25346.s0.value.structure_type24753 = &t25347; /* x197356 */ t25352.s0.tag = EXTERNAL_SYMBOL_TYPE; t25352.s0.value.external_symbol_type = q469; /* x197357 */ t25353.s0.tag = EXTERNAL_SYMBOL_TYPE; t25353.s0.value.external_symbol_type = q469; /* x197358 */ t25353.s1.tag = NULL_TYPE; /* x197359 */ t25352.s1.tag = STRUCTURE_TYPE24753; t25352.s1.value.structure_type24753 = &t25353; /* x197360 */ t25351.s0.tag = STRUCTURE_TYPE24753; t25351.s0.value.structure_type24753 = &t25352; /* x197361 */ t25355.s0.tag = EXTERNAL_SYMBOL_TYPE; t25355.s0.value.external_symbol_type = q450; /* x197362 */ t25357.s0.tag = EXTERNAL_SYMBOL_TYPE; t25357.s0.value.external_symbol_type = q162; /* x197363 */ t25358.s0.tag = EXTERNAL_SYMBOL_TYPE; t25358.s0.value.external_symbol_type = q469; /* x197364 */ t25358.s1.tag = NULL_TYPE; /* x197365 */ t25357.s1.tag = STRUCTURE_TYPE24753; t25357.s1.value.structure_type24753 = &t25358; /* x197366 */ t25356.s0.tag = STRUCTURE_TYPE24753; t25356.s0.value.structure_type24753 = &t25357; /* x197367 */ t25356.s1.tag = NULL_TYPE; /* x197368 */ t25355.s1.tag = STRUCTURE_TYPE24753; t25355.s1.value.structure_type24753 = &t25356; /* x197369 */ t25354.s0.tag = STRUCTURE_TYPE24753; t25354.s0.value.structure_type24753 = &t25355; /* x197370 */ t25360.s0.tag = EXTERNAL_SYMBOL_TYPE; t25360.s0.value.external_symbol_type = q410; /* x197371 */ t25361.s0.tag = EXTERNAL_SYMBOL_TYPE; t25361.s0.value.external_symbol_type = q410; /* x197372 */ t25361.s1.tag = NULL_TYPE; /* x197373 */ t25360.s1.tag = STRUCTURE_TYPE24753; t25360.s1.value.structure_type24753 = &t25361; /* x197374 */ t25359.s0.tag = STRUCTURE_TYPE24753; t25359.s0.value.structure_type24753 = &t25360; /* x197375 */ t25359.s1.tag = NULL_TYPE; /* x197376 */ t25354.s1.tag = STRUCTURE_TYPE24753; t25354.s1.value.structure_type24753 = &t25359; /* x197377 */ t25351.s1.tag = STRUCTURE_TYPE24753; t25351.s1.value.structure_type24753 = &t25354; /* x197378 */ t25346.s1.tag = STRUCTURE_TYPE24753; t25346.s1.value.structure_type24753 = &t25351; /* x197379 */ t25343.s1.tag = STRUCTURE_TYPE24753; t25343.s1.value.structure_type24753 = &t25346; /* x197380 */ t25342.s0.tag = STRUCTURE_TYPE24753; t25342.s0.value.structure_type24753 = &t25343; /* x197381 */ t25363.s0.tag = EXTERNAL_SYMBOL_TYPE; t25363.s0.value.external_symbol_type = q244; /* x197382 */ t25365.s0.tag = EXTERNAL_SYMBOL_TYPE; t25365.s0.value.external_symbol_type = q242; /* x197383 */ t25366.s0.tag = EXTERNAL_SYMBOL_TYPE; t25366.s0.value.external_symbol_type = q289; /* x197384 */ t25369.s0.tag = EXTERNAL_SYMBOL_TYPE; t25369.s0.value.external_symbol_type = q337; /* x197385 */ t25370.s0.tag = FIXNUM_TYPE; t25370.s0.value.fixnum_type = 0; /* x197386 */ t25370.s1.tag = NULL_TYPE; /* x197387 */ t25369.s1.tag = STRUCTURE_TYPE24753; t25369.s1.value.structure_type24753 = &t25370; /* x197388 */ t25368.s0.tag = STRUCTURE_TYPE24753; t25368.s0.value.structure_type24753 = &t25369; /* x197389 */ t25368.s1.tag = NULL_TYPE; /* x197390 */ t25367.s0.tag = STRUCTURE_TYPE24753; t25367.s0.value.structure_type24753 = &t25368; /* x197391 */ t25372.s0.tag = EXTERNAL_SYMBOL_TYPE; t25372.s0.value.external_symbol_type = q43; /* x197392 */ t25374.s0.tag = EXTERNAL_SYMBOL_TYPE; t25374.s0.value.external_symbol_type = q120; /* x197393 */ t25375.s0.tag = EXTERNAL_SYMBOL_TYPE; t25375.s0.value.external_symbol_type = q337; /* x197394 */ t25376.s0.tag = EXTERNAL_SYMBOL_TYPE; t25376.s0.value.external_symbol_type = q450; /* x197395 */ t25376.s1.tag = NULL_TYPE; /* x197396 */ t25375.s1.tag = STRUCTURE_TYPE24753; t25375.s1.value.structure_type24753 = &t25376; /* x197397 */ t25374.s1.tag = STRUCTURE_TYPE24753; t25374.s1.value.structure_type24753 = &t25375; /* x197398 */ t25373.s0.tag = STRUCTURE_TYPE24753; t25373.s0.value.structure_type24753 = &t25374; /* x197399 */ t25378.s0.tag = EXTERNAL_SYMBOL_TYPE; t25378.s0.value.external_symbol_type = q121; /* x197400 */ t25379.s0.tag = EXTERNAL_SYMBOL_TYPE; t25379.s0.value.external_symbol_type = q337; /* x197401 */ t25380.s0.tag = EXTERNAL_SYMBOL_TYPE; t25380.s0.value.external_symbol_type = q449; /* x197402 */ t25380.s1.tag = NULL_TYPE; /* x197403 */ t25379.s1.tag = STRUCTURE_TYPE24753; t25379.s1.value.structure_type24753 = &t25380; /* x197404 */ t25378.s1.tag = STRUCTURE_TYPE24753; t25378.s1.value.structure_type24753 = &t25379; /* x197405 */ t25377.s0.tag = STRUCTURE_TYPE24753; t25377.s0.value.structure_type24753 = &t25378; /* x197406 */ t25382.s0.tag = EXTERNAL_SYMBOL_TYPE; t25382.s0.value.external_symbol_type = q244; /* x197407 */ t25384.s0.tag = EXTERNAL_SYMBOL_TYPE; t25384.s0.value.external_symbol_type = q121; /* x197408 */ t25385.s0.tag = EXTERNAL_SYMBOL_TYPE; t25385.s0.value.external_symbol_type = q337; /* x197409 */ t25386.s0.tag = EXTERNAL_SYMBOL_TYPE; t25386.s0.value.external_symbol_type = q449; /* x197410 */ t25386.s1.tag = NULL_TYPE; /* x197411 */ t25385.s1.tag = STRUCTURE_TYPE24753; t25385.s1.value.structure_type24753 = &t25386; /* x197412 */ t25384.s1.tag = STRUCTURE_TYPE24753; t25384.s1.value.structure_type24753 = &t25385; /* x197413 */ t25383.s0.tag = STRUCTURE_TYPE24753; t25383.s0.value.structure_type24753 = &t25384; /* x197414 */ t25388.s0.tag = EXTERNAL_SYMBOL_TYPE; t25388.s0.value.external_symbol_type = q241; /* x197415 */ t25390.s0.tag = EXTERNAL_SYMBOL_TYPE; t25390.s0.value.external_symbol_type = q299; /* x197416 */ t25392.s0.tag = EXTERNAL_SYMBOL_TYPE; t25392.s0.value.external_symbol_type = q163; /* x197417 */ t25393.s0.tag = EXTERNAL_SYMBOL_TYPE; t25393.s0.value.external_symbol_type = q468; /* x197418 */ t25394.s0.tag = EXTERNAL_SYMBOL_TYPE; t25394.s0.value.external_symbol_type = q337; /* x197419 */ t25394.s1.tag = NULL_TYPE; /* x197420 */ t25393.s1.tag = STRUCTURE_TYPE24753; t25393.s1.value.structure_type24753 = &t25394; /* x197421 */ t25392.s1.tag = STRUCTURE_TYPE24753; t25392.s1.value.structure_type24753 = &t25393; /* x197422 */ t25391.s0.tag = STRUCTURE_TYPE24753; t25391.s0.value.structure_type24753 = &t25392; /* x197423 */ t25396.s0.tag = EXTERNAL_SYMBOL_TYPE; t25396.s0.value.external_symbol_type = q163; /* x197424 */ t25397.s0.tag = EXTERNAL_SYMBOL_TYPE; t25397.s0.value.external_symbol_type = q469; /* x197425 */ t25398.s0.tag = EXTERNAL_SYMBOL_TYPE; t25398.s0.value.external_symbol_type = q337; /* x197426 */ t25398.s1.tag = NULL_TYPE; /* x197427 */ t25397.s1.tag = STRUCTURE_TYPE24753; t25397.s1.value.structure_type24753 = &t25398; /* x197428 */ t25396.s1.tag = STRUCTURE_TYPE24753; t25396.s1.value.structure_type24753 = &t25397; /* x197429 */ t25395.s0.tag = STRUCTURE_TYPE24753; t25395.s0.value.structure_type24753 = &t25396; /* x197430 */ t25395.s1.tag = NULL_TYPE; /* x197431 */ t25391.s1.tag = STRUCTURE_TYPE24753; t25391.s1.value.structure_type24753 = &t25395; /* x197432 */ t25390.s1.tag = STRUCTURE_TYPE24753; t25390.s1.value.structure_type24753 = &t25391; /* x197433 */ t25389.s0.tag = STRUCTURE_TYPE24753; t25389.s0.value.structure_type24753 = &t25390; /* x197434 */ t25400.s0.tag = EXTERNAL_SYMBOL_TYPE; t25400.s0.value.external_symbol_type = q244; /* x197435 */ t25402.s0.tag = EXTERNAL_SYMBOL_TYPE; t25402.s0.value.external_symbol_type = q263; /* x197436 */ t25404.s0.tag = EXTERNAL_SYMBOL_TYPE; t25404.s0.value.external_symbol_type = q163; /* x197437 */ t25405.s0.tag = EXTERNAL_SYMBOL_TYPE; t25405.s0.value.external_symbol_type = q468; /* x197438 */ t25406.s0.tag = EXTERNAL_SYMBOL_TYPE; t25406.s0.value.external_symbol_type = q337; /* x197439 */ t25406.s1.tag = NULL_TYPE; /* x197440 */ t25405.s1.tag = STRUCTURE_TYPE24753; t25405.s1.value.structure_type24753 = &t25406; /* x197441 */ t25404.s1.tag = STRUCTURE_TYPE24753; t25404.s1.value.structure_type24753 = &t25405; /* x197442 */ t25403.s0.tag = STRUCTURE_TYPE24753; t25403.s0.value.structure_type24753 = &t25404; /* x197443 */ t25408.s0.tag = EXTERNAL_SYMBOL_TYPE; t25408.s0.value.external_symbol_type = q163; /* x197444 */ t25409.s0.tag = EXTERNAL_SYMBOL_TYPE; t25409.s0.value.external_symbol_type = q469; /* x197445 */ t25410.s0.tag = EXTERNAL_SYMBOL_TYPE; t25410.s0.value.external_symbol_type = q337; /* x197446 */ t25410.s1.tag = NULL_TYPE; /* x197447 */ t25409.s1.tag = STRUCTURE_TYPE24753; t25409.s1.value.structure_type24753 = &t25410; /* x197448 */ t25408.s1.tag = STRUCTURE_TYPE24753; t25408.s1.value.structure_type24753 = &t25409; /* x197449 */ t25407.s0.tag = STRUCTURE_TYPE24753; t25407.s0.value.structure_type24753 = &t25408; /* x197450 */ t25407.s1.tag = NULL_TYPE; /* x197451 */ t25403.s1.tag = STRUCTURE_TYPE24753; t25403.s1.value.structure_type24753 = &t25407; /* x197452 */ t25402.s1.tag = STRUCTURE_TYPE24753; t25402.s1.value.structure_type24753 = &t25403; /* x197453 */ t25401.s0.tag = STRUCTURE_TYPE24753; t25401.s0.value.structure_type24753 = &t25402; /* x197454 */ t25412.s0.tag = EXTERNAL_SYMBOL_TYPE; t25412.s0.value.external_symbol_type = q289; /* x197455 */ t25414.s0.tag = EXTERNAL_SYMBOL_TYPE; t25414.s0.value.external_symbol_type = q4; /* x197456 */ t25415.s0.tag = EXTERNAL_SYMBOL_TYPE; t25415.s0.value.external_symbol_type = q337; /* x197457 */ t25416.s0.tag = FIXNUM_TYPE; t25416.s0.value.fixnum_type = 1; /* x197458 */ t25416.s1.tag = NULL_TYPE; /* x197459 */ t25415.s1.tag = STRUCTURE_TYPE24753; t25415.s1.value.structure_type24753 = &t25416; /* x197460 */ t25414.s1.tag = STRUCTURE_TYPE24753; t25414.s1.value.structure_type24753 = &t25415; /* x197461 */ t25413.s0.tag = STRUCTURE_TYPE24753; t25413.s0.value.structure_type24753 = &t25414; /* x197462 */ t25413.s1.tag = NULL_TYPE; /* x197463 */ t25412.s1.tag = STRUCTURE_TYPE24753; t25412.s1.value.structure_type24753 = &t25413; /* x197464 */ t25411.s0.tag = STRUCTURE_TYPE24753; t25411.s0.value.structure_type24753 = &t25412; /* x197465 */ t25411.s1.tag = NULL_TYPE; /* x197466 */ t25401.s1.tag = STRUCTURE_TYPE24753; t25401.s1.value.structure_type24753 = &t25411; /* x197467 */ t25400.s1.tag = STRUCTURE_TYPE24753; t25400.s1.value.structure_type24753 = &t25401; /* x197468 */ t25399.s0.tag = STRUCTURE_TYPE24753; t25399.s0.value.structure_type24753 = &t25400; /* x197469 */ t25399.s1.tag = NULL_TYPE; /* x197470 */ t25389.s1.tag = STRUCTURE_TYPE24753; t25389.s1.value.structure_type24753 = &t25399; /* x197471 */ t25388.s1.tag = STRUCTURE_TYPE24753; t25388.s1.value.structure_type24753 = &t25389; /* x197472 */ t25387.s0.tag = STRUCTURE_TYPE24753; t25387.s0.value.structure_type24753 = &t25388; /* x197473 */ t25387.s1.tag = NULL_TYPE; /* x197474 */ t25383.s1.tag = STRUCTURE_TYPE24753; t25383.s1.value.structure_type24753 = &t25387; /* x197475 */ t25382.s1.tag = STRUCTURE_TYPE24753; t25382.s1.value.structure_type24753 = &t25383; /* x197476 */ t25381.s0.tag = STRUCTURE_TYPE24753; t25381.s0.value.structure_type24753 = &t25382; /* x197477 */ t25381.s1.tag = NULL_TYPE; /* x197478 */ t25377.s1.tag = STRUCTURE_TYPE24753; t25377.s1.value.structure_type24753 = &t25381; /* x197479 */ t25373.s1.tag = STRUCTURE_TYPE24753; t25373.s1.value.structure_type24753 = &t25377; /* x197480 */ t25372.s1.tag = STRUCTURE_TYPE24753; t25372.s1.value.structure_type24753 = &t25373; /* x197481 */ t25371.s0.tag = STRUCTURE_TYPE24753; t25371.s0.value.structure_type24753 = &t25372; /* x197482 */ t25371.s1.tag = NULL_TYPE; /* x197483 */ t25367.s1.tag = STRUCTURE_TYPE24753; t25367.s1.value.structure_type24753 = &t25371; /* x197484 */ t25366.s1.tag = STRUCTURE_TYPE24753; t25366.s1.value.structure_type24753 = &t25367; /* x197485 */ t25365.s1.tag = STRUCTURE_TYPE24753; t25365.s1.value.structure_type24753 = &t25366; /* x197486 */ t25364.s0.tag = STRUCTURE_TYPE24753; t25364.s0.value.structure_type24753 = &t25365; /* x197487 */ t25418.s0.tag = EXTERNAL_SYMBOL_TYPE; t25418.s0.value.external_symbol_type = q241; /* x197488 */ t25420.s0.tag = EXTERNAL_SYMBOL_TYPE; t25420.s0.value.external_symbol_type = q111; /* x197489 */ t25421.s0.tag = EXTERNAL_SYMBOL_TYPE; t25421.s0.value.external_symbol_type = q410; /* x197490 */ t25421.s1.tag = NULL_TYPE; /* x197491 */ t25420.s1.tag = STRUCTURE_TYPE24753; t25420.s1.value.structure_type24753 = &t25421; /* x197492 */ t25419.s0.tag = STRUCTURE_TYPE24753; t25419.s0.value.structure_type24753 = &t25420; /* x197493 */ t25423.s0.tag = EXTERNAL_SYMBOL_TYPE; t25423.s0.value.external_symbol_type = q289; /* x197494 */ t25424.s0.tag = EXTERNAL_SYMBOL_TYPE; t25424.s0.value.external_symbol_type = q469; /* x197495 */ t25425.s0.tag = EXTERNAL_SYMBOL_TYPE; t25425.s0.value.external_symbol_type = q450; /* x197496 */ t25427.s0.tag = EXTERNAL_SYMBOL_TYPE; t25427.s0.value.external_symbol_type = q107; /* x197497 */ t25428.s0.tag = EXTERNAL_SYMBOL_TYPE; t25428.s0.value.external_symbol_type = q410; /* x197498 */ t25428.s1.tag = NULL_TYPE; /* x197499 */ t25427.s1.tag = STRUCTURE_TYPE24753; t25427.s1.value.structure_type24753 = &t25428; /* x197500 */ t25426.s0.tag = STRUCTURE_TYPE24753; t25426.s0.value.structure_type24753 = &t25427; /* x197501 */ t25430.s0.tag = EXTERNAL_SYMBOL_TYPE; t25430.s0.value.external_symbol_type = q162; /* x197502 */ t25432.s0.tag = EXTERNAL_SYMBOL_TYPE; t25432.s0.value.external_symbol_type = q107; /* x197503 */ t25433.s0.tag = EXTERNAL_SYMBOL_TYPE; t25433.s0.value.external_symbol_type = q410; /* x197504 */ t25433.s1.tag = NULL_TYPE; /* x197505 */ t25432.s1.tag = STRUCTURE_TYPE24753; t25432.s1.value.structure_type24753 = &t25433; /* x197506 */ t25431.s0.tag = STRUCTURE_TYPE24753; t25431.s0.value.structure_type24753 = &t25432; /* x197507 */ t25431.s1.tag = NULL_TYPE; /* x197508 */ t25430.s1.tag = STRUCTURE_TYPE24753; t25430.s1.value.structure_type24753 = &t25431; /* x197509 */ t25429.s0.tag = STRUCTURE_TYPE24753; t25429.s0.value.structure_type24753 = &t25430; /* x197510 */ t25435.s0.tag = EXTERNAL_SYMBOL_TYPE; t25435.s0.value.external_symbol_type = q108; /* x197511 */ t25436.s0.tag = EXTERNAL_SYMBOL_TYPE; t25436.s0.value.external_symbol_type = q410; /* x197512 */ t25436.s1.tag = NULL_TYPE; /* x197513 */ t25435.s1.tag = STRUCTURE_TYPE24753; t25435.s1.value.structure_type24753 = &t25436; /* x197514 */ t25434.s0.tag = STRUCTURE_TYPE24753; t25434.s0.value.structure_type24753 = &t25435; /* x197515 */ t25434.s1.tag = NULL_TYPE; /* x197516 */ t25429.s1.tag = STRUCTURE_TYPE24753; t25429.s1.value.structure_type24753 = &t25434; /* x197517 */ t25426.s1.tag = STRUCTURE_TYPE24753; t25426.s1.value.structure_type24753 = &t25429; /* x197518 */ t25425.s1.tag = STRUCTURE_TYPE24753; t25425.s1.value.structure_type24753 = &t25426; /* x197519 */ t25424.s1.tag = STRUCTURE_TYPE24753; t25424.s1.value.structure_type24753 = &t25425; /* x197520 */ t25423.s1.tag = STRUCTURE_TYPE24753; t25423.s1.value.structure_type24753 = &t25424; /* x197521 */ t25422.s0.tag = STRUCTURE_TYPE24753; t25422.s0.value.structure_type24753 = &t25423; /* x197522 */ t25422.s1.tag = NULL_TYPE; /* x197523 */ t25419.s1.tag = STRUCTURE_TYPE24753; t25419.s1.value.structure_type24753 = &t25422; /* x197524 */ t25418.s1.tag = STRUCTURE_TYPE24753; t25418.s1.value.structure_type24753 = &t25419; /* x197525 */ t25417.s0.tag = STRUCTURE_TYPE24753; t25417.s0.value.structure_type24753 = &t25418; /* x197526 */ t25417.s1.tag = NULL_TYPE; /* x197527 */ t25364.s1.tag = STRUCTURE_TYPE24753; t25364.s1.value.structure_type24753 = &t25417; /* x197528 */ t25363.s1.tag = STRUCTURE_TYPE24753; t25363.s1.value.structure_type24753 = &t25364; /* x197529 */ t25362.s0.tag = STRUCTURE_TYPE24753; t25362.s0.value.structure_type24753 = &t25363; /* x197530 */ t25362.s1.tag = NULL_TYPE; /* x197531 */ t25342.s1.tag = STRUCTURE_TYPE24753; t25342.s1.value.structure_type24753 = &t25362; /* x197532 */ t25341.s1.tag = STRUCTURE_TYPE24753; t25341.s1.value.structure_type24753 = &t25342; /* x197533 */ t25340.s1.tag = STRUCTURE_TYPE24753; t25340.s1.value.structure_type24753 = &t25341; /* x197534 */ t25339.s0.tag = STRUCTURE_TYPE24753; t25339.s0.value.structure_type24753 = &t25340; /* x197535 */ t25339.s1.tag = NULL_TYPE; /* x197536 */ t25335.s1.tag = STRUCTURE_TYPE24753; t25335.s1.value.structure_type24753 = &t25339; /* x197537 */ t25334.s1.tag = STRUCTURE_TYPE24753; t25334.s1.value.structure_type24753 = &t25335; /* x197540 */ t25441.s0.tag = EXTERNAL_SYMBOL_TYPE; t25441.s0.value.external_symbol_type = q97; /* x197541 */ t25443.s0.tag = EXTERNAL_SYMBOL_TYPE; t25443.s0.value.external_symbol_type = q473; /* x197542 */ t25444.s0.tag = EXTERNAL_SYMBOL_TYPE; t25444.s0.value.external_symbol_type = q468; /* x197543 */ t25445.s0.tag = EXTERNAL_SYMBOL_TYPE; t25445.s0.value.external_symbol_type = q469; /* x197544 */ t25445.s1.tag = EXTERNAL_SYMBOL_TYPE; t25445.s1.value.external_symbol_type = q410; /* x197545 */ t25444.s1.tag = STRUCTURE_TYPE24753; t25444.s1.value.structure_type24753 = &t25445; /* x197546 */ t25443.s1.tag = STRUCTURE_TYPE24753; t25443.s1.value.structure_type24753 = &t25444; /* x197547 */ t25442.s0.tag = STRUCTURE_TYPE24753; t25442.s0.value.structure_type24753 = &t25443; /* x197548 */ t25447.s0.tag = EXTERNAL_SYMBOL_TYPE; t25447.s0.value.external_symbol_type = q242; /* x197549 */ t25448.s0.tag = EXTERNAL_SYMBOL_TYPE; t25448.s0.value.external_symbol_type = q289; /* x197550 */ t25451.s0.tag = EXTERNAL_SYMBOL_TYPE; t25451.s0.value.external_symbol_type = q468; /* x197551 */ t25452.s0.tag = EXTERNAL_SYMBOL_TYPE; t25452.s0.value.external_symbol_type = q468; /* x197552 */ t25452.s1.tag = NULL_TYPE; /* x197553 */ t25451.s1.tag = STRUCTURE_TYPE24753; t25451.s1.value.structure_type24753 = &t25452; /* x197554 */ t25450.s0.tag = STRUCTURE_TYPE24753; t25450.s0.value.structure_type24753 = &t25451; /* x197555 */ t25454.s0.tag = EXTERNAL_SYMBOL_TYPE; t25454.s0.value.external_symbol_type = q449; /* x197556 */ t25456.s0.tag = EXTERNAL_SYMBOL_TYPE; t25456.s0.value.external_symbol_type = q162; /* x197557 */ t25457.s0.tag = EXTERNAL_SYMBOL_TYPE; t25457.s0.value.external_symbol_type = q468; /* x197558 */ t25457.s1.tag = NULL_TYPE; /* x197559 */ t25456.s1.tag = STRUCTURE_TYPE24753; t25456.s1.value.structure_type24753 = &t25457; /* x197560 */ t25455.s0.tag = STRUCTURE_TYPE24753; t25455.s0.value.structure_type24753 = &t25456; /* x197561 */ t25455.s1.tag = NULL_TYPE; /* x197562 */ t25454.s1.tag = STRUCTURE_TYPE24753; t25454.s1.value.structure_type24753 = &t25455; /* x197563 */ t25453.s0.tag = STRUCTURE_TYPE24753; t25453.s0.value.structure_type24753 = &t25454; /* x197564 */ t25459.s0.tag = EXTERNAL_SYMBOL_TYPE; t25459.s0.value.external_symbol_type = q469; /* x197565 */ t25460.s0.tag = EXTERNAL_SYMBOL_TYPE; t25460.s0.value.external_symbol_type = q469; /* x197566 */ t25460.s1.tag = NULL_TYPE; /* x197567 */ t25459.s1.tag = STRUCTURE_TYPE24753; t25459.s1.value.structure_type24753 = &t25460; /* x197568 */ t25458.s0.tag = STRUCTURE_TYPE24753; t25458.s0.value.structure_type24753 = &t25459; /* x197569 */ t25462.s0.tag = EXTERNAL_SYMBOL_TYPE; t25462.s0.value.external_symbol_type = q450; /* x197570 */ t25464.s0.tag = EXTERNAL_SYMBOL_TYPE; t25464.s0.value.external_symbol_type = q162; /* x197571 */ t25465.s0.tag = EXTERNAL_SYMBOL_TYPE; t25465.s0.value.external_symbol_type = q469; /* x197572 */ t25465.s1.tag = NULL_TYPE; /* x197573 */ t25464.s1.tag = STRUCTURE_TYPE24753; t25464.s1.value.structure_type24753 = &t25465; /* x197574 */} void initialize_constants20(void) {t25463.s0.tag = STRUCTURE_TYPE24753; t25463.s0.value.structure_type24753 = &t25464; /* x197575 */ t25463.s1.tag = NULL_TYPE; /* x197576 */ t25462.s1.tag = STRUCTURE_TYPE24753; t25462.s1.value.structure_type24753 = &t25463; /* x197577 */ t25461.s0.tag = STRUCTURE_TYPE24753; t25461.s0.value.structure_type24753 = &t25462; /* x197578 */ t25467.s0.tag = EXTERNAL_SYMBOL_TYPE; t25467.s0.value.external_symbol_type = q410; /* x197579 */ t25468.s0.tag = EXTERNAL_SYMBOL_TYPE; t25468.s0.value.external_symbol_type = q410; /* x197580 */ t25468.s1.tag = NULL_TYPE; /* x197581 */ t25467.s1.tag = STRUCTURE_TYPE24753; t25467.s1.value.structure_type24753 = &t25468; /* x197582 */ t25466.s0.tag = STRUCTURE_TYPE24753; t25466.s0.value.structure_type24753 = &t25467; /* x197583 */ t25466.s1.tag = NULL_TYPE; /* x197584 */ t25461.s1.tag = STRUCTURE_TYPE24753; t25461.s1.value.structure_type24753 = &t25466; /* x197585 */ t25458.s1.tag = STRUCTURE_TYPE24753; t25458.s1.value.structure_type24753 = &t25461; /* x197586 */ t25453.s1.tag = STRUCTURE_TYPE24753; t25453.s1.value.structure_type24753 = &t25458; /* x197587 */ t25450.s1.tag = STRUCTURE_TYPE24753; t25450.s1.value.structure_type24753 = &t25453; /* x197588 */ t25449.s0.tag = STRUCTURE_TYPE24753; t25449.s0.value.structure_type24753 = &t25450; /* x197589 */ t25470.s0.tag = EXTERNAL_SYMBOL_TYPE; t25470.s0.value.external_symbol_type = q244; /* x197590 */ t25472.s0.tag = EXTERNAL_SYMBOL_TYPE; t25472.s0.value.external_symbol_type = q242; /* x197591 */ t25473.s0.tag = EXTERNAL_SYMBOL_TYPE; t25473.s0.value.external_symbol_type = q289; /* x197592 */ t25476.s0.tag = EXTERNAL_SYMBOL_TYPE; t25476.s0.value.external_symbol_type = q337; /* x197593 */ t25477.s0.tag = FIXNUM_TYPE; t25477.s0.value.fixnum_type = 0; /* x197594 */ t25477.s1.tag = NULL_TYPE; /* x197595 */ t25476.s1.tag = STRUCTURE_TYPE24753; t25476.s1.value.structure_type24753 = &t25477; /* x197596 */ t25475.s0.tag = STRUCTURE_TYPE24753; t25475.s0.value.structure_type24753 = &t25476; /* x197597 */ t25475.s1.tag = NULL_TYPE; /* x197598 */ t25474.s0.tag = STRUCTURE_TYPE24753; t25474.s0.value.structure_type24753 = &t25475; /* x197599 */ t25479.s0.tag = EXTERNAL_SYMBOL_TYPE; t25479.s0.value.external_symbol_type = q43; /* x197600 */ t25481.s0.tag = EXTERNAL_SYMBOL_TYPE; t25481.s0.value.external_symbol_type = q120; /* x197601 */ t25482.s0.tag = EXTERNAL_SYMBOL_TYPE; t25482.s0.value.external_symbol_type = q337; /* x197602 */ t25483.s0.tag = EXTERNAL_SYMBOL_TYPE; t25483.s0.value.external_symbol_type = q449; /* x197603 */ t25483.s1.tag = NULL_TYPE; /* x197604 */ t25482.s1.tag = STRUCTURE_TYPE24753; t25482.s1.value.structure_type24753 = &t25483; /* x197605 */ t25481.s1.tag = STRUCTURE_TYPE24753; t25481.s1.value.structure_type24753 = &t25482; /* x197606 */ t25480.s0.tag = STRUCTURE_TYPE24753; t25480.s0.value.structure_type24753 = &t25481; /* x197607 */ t25485.s0.tag = EXTERNAL_SYMBOL_TYPE; t25485.s0.value.external_symbol_type = q123; /* x197608 */ t25486.s0.tag = EXTERNAL_SYMBOL_TYPE; t25486.s0.value.external_symbol_type = q337; /* x197609 */ t25487.s0.tag = EXTERNAL_SYMBOL_TYPE; t25487.s0.value.external_symbol_type = q450; /* x197610 */ t25487.s1.tag = NULL_TYPE; /* x197611 */ t25486.s1.tag = STRUCTURE_TYPE24753; t25486.s1.value.structure_type24753 = &t25487; /* x197612 */ t25485.s1.tag = STRUCTURE_TYPE24753; t25485.s1.value.structure_type24753 = &t25486; /* x197613 */ t25484.s0.tag = STRUCTURE_TYPE24753; t25484.s0.value.structure_type24753 = &t25485; /* x197614 */ t25489.s0.tag = EXTERNAL_SYMBOL_TYPE; t25489.s0.value.external_symbol_type = q244; /* x197615 */ t25491.s0.tag = EXTERNAL_SYMBOL_TYPE; t25491.s0.value.external_symbol_type = q121; /* x197616 */ t25492.s0.tag = EXTERNAL_SYMBOL_TYPE; t25492.s0.value.external_symbol_type = q337; /* x197617 */ t25493.s0.tag = EXTERNAL_SYMBOL_TYPE; t25493.s0.value.external_symbol_type = q450; /* x197618 */ t25493.s1.tag = NULL_TYPE; /* x197619 */ t25492.s1.tag = STRUCTURE_TYPE24753; t25492.s1.value.structure_type24753 = &t25493; /* x197620 */ t25491.s1.tag = STRUCTURE_TYPE24753; t25491.s1.value.structure_type24753 = &t25492; /* x197621 */ t25490.s0.tag = STRUCTURE_TYPE24753; t25490.s0.value.structure_type24753 = &t25491; /* x197622 */ t25495.s0.tag = EXTERNAL_SYMBOL_TYPE; t25495.s0.value.external_symbol_type = q241; /* x197623 */ t25497.s0.tag = EXTERNAL_SYMBOL_TYPE; t25497.s0.value.external_symbol_type = q298; /* x197624 */ t25499.s0.tag = EXTERNAL_SYMBOL_TYPE; t25499.s0.value.external_symbol_type = q163; /* x197625 */ t25500.s0.tag = EXTERNAL_SYMBOL_TYPE; t25500.s0.value.external_symbol_type = q468; /* x197626 */ t25501.s0.tag = EXTERNAL_SYMBOL_TYPE; t25501.s0.value.external_symbol_type = q337; /* x197627 */ t25501.s1.tag = NULL_TYPE; /* x197628 */ t25500.s1.tag = STRUCTURE_TYPE24753; t25500.s1.value.structure_type24753 = &t25501; /* x197629 */ t25499.s1.tag = STRUCTURE_TYPE24753; t25499.s1.value.structure_type24753 = &t25500; /* x197630 */ t25498.s0.tag = STRUCTURE_TYPE24753; t25498.s0.value.structure_type24753 = &t25499; /* x197631 */ t25503.s0.tag = EXTERNAL_SYMBOL_TYPE; t25503.s0.value.external_symbol_type = q163; /* x197632 */ t25504.s0.tag = EXTERNAL_SYMBOL_TYPE; t25504.s0.value.external_symbol_type = q469; /* x197633 */ t25505.s0.tag = EXTERNAL_SYMBOL_TYPE; t25505.s0.value.external_symbol_type = q337; /* x197634 */ t25505.s1.tag = NULL_TYPE; /* x197635 */ t25504.s1.tag = STRUCTURE_TYPE24753; t25504.s1.value.structure_type24753 = &t25505; /* x197636 */ t25503.s1.tag = STRUCTURE_TYPE24753; t25503.s1.value.structure_type24753 = &t25504; /* x197637 */ t25502.s0.tag = STRUCTURE_TYPE24753; t25502.s0.value.structure_type24753 = &t25503; /* x197638 */ t25502.s1.tag = NULL_TYPE; /* x197639 */ t25498.s1.tag = STRUCTURE_TYPE24753; t25498.s1.value.structure_type24753 = &t25502; /* x197640 */ t25497.s1.tag = STRUCTURE_TYPE24753; t25497.s1.value.structure_type24753 = &t25498; /* x197641 */ t25496.s0.tag = STRUCTURE_TYPE24753; t25496.s0.value.structure_type24753 = &t25497; /* x197642 */ t25507.s0.tag = EXTERNAL_SYMBOL_TYPE; t25507.s0.value.external_symbol_type = q244; /* x197643 */ t25509.s0.tag = EXTERNAL_SYMBOL_TYPE; t25509.s0.value.external_symbol_type = q263; /* x197644 */ t25511.s0.tag = EXTERNAL_SYMBOL_TYPE; t25511.s0.value.external_symbol_type = q163; /* x197645 */ t25512.s0.tag = EXTERNAL_SYMBOL_TYPE; t25512.s0.value.external_symbol_type = q468; /* x197646 */ t25513.s0.tag = EXTERNAL_SYMBOL_TYPE; t25513.s0.value.external_symbol_type = q337; /* x197647 */ t25513.s1.tag = NULL_TYPE; /* x197648 */ t25512.s1.tag = STRUCTURE_TYPE24753; t25512.s1.value.structure_type24753 = &t25513; /* x197649 */ t25511.s1.tag = STRUCTURE_TYPE24753; t25511.s1.value.structure_type24753 = &t25512; /* x197650 */ t25510.s0.tag = STRUCTURE_TYPE24753; t25510.s0.value.structure_type24753 = &t25511; /* x197651 */ t25515.s0.tag = EXTERNAL_SYMBOL_TYPE; t25515.s0.value.external_symbol_type = q163; /* x197652 */ t25516.s0.tag = EXTERNAL_SYMBOL_TYPE; t25516.s0.value.external_symbol_type = q469; /* x197653 */ t25517.s0.tag = EXTERNAL_SYMBOL_TYPE; t25517.s0.value.external_symbol_type = q337; /* x197654 */ t25517.s1.tag = NULL_TYPE; /* x197655 */ t25516.s1.tag = STRUCTURE_TYPE24753; t25516.s1.value.structure_type24753 = &t25517; /* x197656 */ t25515.s1.tag = STRUCTURE_TYPE24753; t25515.s1.value.structure_type24753 = &t25516; /* x197657 */ t25514.s0.tag = STRUCTURE_TYPE24753; t25514.s0.value.structure_type24753 = &t25515; /* x197658 */ t25514.s1.tag = NULL_TYPE; /* x197659 */ t25510.s1.tag = STRUCTURE_TYPE24753; t25510.s1.value.structure_type24753 = &t25514; /* x197660 */ t25509.s1.tag = STRUCTURE_TYPE24753; t25509.s1.value.structure_type24753 = &t25510; /* x197661 */ t25508.s0.tag = STRUCTURE_TYPE24753; t25508.s0.value.structure_type24753 = &t25509; /* x197662 */ t25519.s0.tag = EXTERNAL_SYMBOL_TYPE; t25519.s0.value.external_symbol_type = q289; /* x197663 */ t25521.s0.tag = EXTERNAL_SYMBOL_TYPE; t25521.s0.value.external_symbol_type = q4; /* x197664 */ t25522.s0.tag = EXTERNAL_SYMBOL_TYPE; t25522.s0.value.external_symbol_type = q337; /* x197665 */ t25523.s0.tag = FIXNUM_TYPE; t25523.s0.value.fixnum_type = 1; /* x197666 */ t25523.s1.tag = NULL_TYPE; /* x197667 */ t25522.s1.tag = STRUCTURE_TYPE24753; t25522.s1.value.structure_type24753 = &t25523; /* x197668 */ t25521.s1.tag = STRUCTURE_TYPE24753; t25521.s1.value.structure_type24753 = &t25522; /* x197669 */ t25520.s0.tag = STRUCTURE_TYPE24753; t25520.s0.value.structure_type24753 = &t25521; /* x197670 */ t25520.s1.tag = NULL_TYPE; /* x197671 */ t25519.s1.tag = STRUCTURE_TYPE24753; t25519.s1.value.structure_type24753 = &t25520; /* x197672 */ t25518.s0.tag = STRUCTURE_TYPE24753; t25518.s0.value.structure_type24753 = &t25519; /* x197673 */ t25518.s1.tag = NULL_TYPE; /* x197674 */ t25508.s1.tag = STRUCTURE_TYPE24753; t25508.s1.value.structure_type24753 = &t25518; /* x197675 */ t25507.s1.tag = STRUCTURE_TYPE24753; t25507.s1.value.structure_type24753 = &t25508; /* x197676 */ t25506.s0.tag = STRUCTURE_TYPE24753; t25506.s0.value.structure_type24753 = &t25507; /* x197677 */ t25506.s1.tag = NULL_TYPE; /* x197678 */ t25496.s1.tag = STRUCTURE_TYPE24753; t25496.s1.value.structure_type24753 = &t25506; /* x197679 */ t25495.s1.tag = STRUCTURE_TYPE24753; t25495.s1.value.structure_type24753 = &t25496; /* x197680 */ t25494.s0.tag = STRUCTURE_TYPE24753; t25494.s0.value.structure_type24753 = &t25495; /* x197681 */ t25494.s1.tag = NULL_TYPE; /* x197682 */ t25490.s1.tag = STRUCTURE_TYPE24753; t25490.s1.value.structure_type24753 = &t25494; /* x197683 */ t25489.s1.tag = STRUCTURE_TYPE24753; t25489.s1.value.structure_type24753 = &t25490; /* x197684 */ t25488.s0.tag = STRUCTURE_TYPE24753; t25488.s0.value.structure_type24753 = &t25489; /* x197685 */ t25488.s1.tag = NULL_TYPE; /* x197686 */ t25484.s1.tag = STRUCTURE_TYPE24753; t25484.s1.value.structure_type24753 = &t25488; /* x197687 */ t25480.s1.tag = STRUCTURE_TYPE24753; t25480.s1.value.structure_type24753 = &t25484; /* x197688 */ t25479.s1.tag = STRUCTURE_TYPE24753; t25479.s1.value.structure_type24753 = &t25480; /* x197689 */ t25478.s0.tag = STRUCTURE_TYPE24753; t25478.s0.value.structure_type24753 = &t25479; /* x197690 */ t25478.s1.tag = NULL_TYPE; /* x197691 */ t25474.s1.tag = STRUCTURE_TYPE24753; t25474.s1.value.structure_type24753 = &t25478; /* x197692 */ t25473.s1.tag = STRUCTURE_TYPE24753; t25473.s1.value.structure_type24753 = &t25474; /* x197693 */ t25472.s1.tag = STRUCTURE_TYPE24753; t25472.s1.value.structure_type24753 = &t25473; /* x197694 */ t25471.s0.tag = STRUCTURE_TYPE24753; t25471.s0.value.structure_type24753 = &t25472; /* x197695 */ t25525.s0.tag = EXTERNAL_SYMBOL_TYPE; t25525.s0.value.external_symbol_type = q241; /* x197696 */ t25527.s0.tag = EXTERNAL_SYMBOL_TYPE; t25527.s0.value.external_symbol_type = q111; /* x197697 */ t25528.s0.tag = EXTERNAL_SYMBOL_TYPE; t25528.s0.value.external_symbol_type = q410; /* x197698 */ t25528.s1.tag = NULL_TYPE; /* x197699 */ t25527.s1.tag = STRUCTURE_TYPE24753; t25527.s1.value.structure_type24753 = &t25528; /* x197700 */ t25526.s0.tag = STRUCTURE_TYPE24753; t25526.s0.value.structure_type24753 = &t25527; /* x197701 */ t25530.s0.tag = EXTERNAL_SYMBOL_TYPE; t25530.s0.value.external_symbol_type = q289; /* x197702 */ t25531.s0.tag = EXTERNAL_SYMBOL_TYPE; t25531.s0.value.external_symbol_type = q469; /* x197703 */ t25532.s0.tag = EXTERNAL_SYMBOL_TYPE; t25532.s0.value.external_symbol_type = q450; /* x197704 */ t25534.s0.tag = EXTERNAL_SYMBOL_TYPE; t25534.s0.value.external_symbol_type = q107; /* x197705 */ t25535.s0.tag = EXTERNAL_SYMBOL_TYPE; t25535.s0.value.external_symbol_type = q410; /* x197706 */ t25535.s1.tag = NULL_TYPE; /* x197707 */ t25534.s1.tag = STRUCTURE_TYPE24753; t25534.s1.value.structure_type24753 = &t25535; /* x197708 */ t25533.s0.tag = STRUCTURE_TYPE24753; t25533.s0.value.structure_type24753 = &t25534; /* x197709 */ t25537.s0.tag = EXTERNAL_SYMBOL_TYPE; t25537.s0.value.external_symbol_type = q162; /* x197710 */ t25539.s0.tag = EXTERNAL_SYMBOL_TYPE; t25539.s0.value.external_symbol_type = q107; /* x197711 */ t25540.s0.tag = EXTERNAL_SYMBOL_TYPE; t25540.s0.value.external_symbol_type = q410; /* x197712 */ t25540.s1.tag = NULL_TYPE; /* x197713 */ t25539.s1.tag = STRUCTURE_TYPE24753; t25539.s1.value.structure_type24753 = &t25540; /* x197714 */ t25538.s0.tag = STRUCTURE_TYPE24753; t25538.s0.value.structure_type24753 = &t25539; /* x197715 */ t25538.s1.tag = NULL_TYPE; /* x197716 */ t25537.s1.tag = STRUCTURE_TYPE24753; t25537.s1.value.structure_type24753 = &t25538; /* x197717 */ t25536.s0.tag = STRUCTURE_TYPE24753; t25536.s0.value.structure_type24753 = &t25537; /* x197718 */ t25542.s0.tag = EXTERNAL_SYMBOL_TYPE; t25542.s0.value.external_symbol_type = q108; /* x197719 */ t25543.s0.tag = EXTERNAL_SYMBOL_TYPE; t25543.s0.value.external_symbol_type = q410; /* x197720 */ t25543.s1.tag = NULL_TYPE; /* x197721 */ t25542.s1.tag = STRUCTURE_TYPE24753; t25542.s1.value.structure_type24753 = &t25543; /* x197722 */ t25541.s0.tag = STRUCTURE_TYPE24753; t25541.s0.value.structure_type24753 = &t25542; /* x197723 */ t25541.s1.tag = NULL_TYPE; /* x197724 */ t25536.s1.tag = STRUCTURE_TYPE24753; t25536.s1.value.structure_type24753 = &t25541; /* x197725 */ t25533.s1.tag = STRUCTURE_TYPE24753; t25533.s1.value.structure_type24753 = &t25536; /* x197726 */ t25532.s1.tag = STRUCTURE_TYPE24753; t25532.s1.value.structure_type24753 = &t25533; /* x197727 */ t25531.s1.tag = STRUCTURE_TYPE24753; t25531.s1.value.structure_type24753 = &t25532; /* x197728 */ t25530.s1.tag = STRUCTURE_TYPE24753; t25530.s1.value.structure_type24753 = &t25531; /* x197729 */ t25529.s0.tag = STRUCTURE_TYPE24753; t25529.s0.value.structure_type24753 = &t25530; /* x197730 */ t25529.s1.tag = NULL_TYPE; /* x197731 */ t25526.s1.tag = STRUCTURE_TYPE24753; t25526.s1.value.structure_type24753 = &t25529; /* x197732 */ t25525.s1.tag = STRUCTURE_TYPE24753; t25525.s1.value.structure_type24753 = &t25526; /* x197733 */ t25524.s0.tag = STRUCTURE_TYPE24753; t25524.s0.value.structure_type24753 = &t25525; /* x197734 */ t25524.s1.tag = NULL_TYPE; /* x197735 */ t25471.s1.tag = STRUCTURE_TYPE24753; t25471.s1.value.structure_type24753 = &t25524; /* x197736 */ t25470.s1.tag = STRUCTURE_TYPE24753; t25470.s1.value.structure_type24753 = &t25471; /* x197737 */ t25469.s0.tag = STRUCTURE_TYPE24753; t25469.s0.value.structure_type24753 = &t25470; /* x197738 */ t25469.s1.tag = NULL_TYPE; /* x197739 */ t25449.s1.tag = STRUCTURE_TYPE24753; t25449.s1.value.structure_type24753 = &t25469; /* x197740 */ t25448.s1.tag = STRUCTURE_TYPE24753; t25448.s1.value.structure_type24753 = &t25449; /* x197741 */ t25447.s1.tag = STRUCTURE_TYPE24753; t25447.s1.value.structure_type24753 = &t25448; /* x197742 */ t25446.s0.tag = STRUCTURE_TYPE24753; t25446.s0.value.structure_type24753 = &t25447; /* x197743 */ t25446.s1.tag = NULL_TYPE; /* x197744 */ t25442.s1.tag = STRUCTURE_TYPE24753; t25442.s1.value.structure_type24753 = &t25446; /* x197745 */ t25441.s1.tag = STRUCTURE_TYPE24753; t25441.s1.value.structure_type24753 = &t25442; /* x197748 */ t25548.s0.tag = EXTERNAL_SYMBOL_TYPE; t25548.s0.value.external_symbol_type = q97; /* x197749 */ t25550.s0.tag = EXTERNAL_SYMBOL_TYPE; t25550.s0.value.external_symbol_type = q474; /* x197750 */ t25551.s0.tag = EXTERNAL_SYMBOL_TYPE; t25551.s0.value.external_symbol_type = q468; /* x197751 */ t25552.s0.tag = EXTERNAL_SYMBOL_TYPE; t25552.s0.value.external_symbol_type = q469; /* x197752 */ t25552.s1.tag = EXTERNAL_SYMBOL_TYPE; t25552.s1.value.external_symbol_type = q410; /* x197753 */ t25551.s1.tag = STRUCTURE_TYPE24753; t25551.s1.value.structure_type24753 = &t25552; /* x197754 */ t25550.s1.tag = STRUCTURE_TYPE24753; t25550.s1.value.structure_type24753 = &t25551; /* x197755 */ t25549.s0.tag = STRUCTURE_TYPE24753; t25549.s0.value.structure_type24753 = &t25550; /* x197756 */ t25554.s0.tag = EXTERNAL_SYMBOL_TYPE; t25554.s0.value.external_symbol_type = q242; /* x197757 */ t25555.s0.tag = EXTERNAL_SYMBOL_TYPE; t25555.s0.value.external_symbol_type = q289; /* x197758 */ t25558.s0.tag = EXTERNAL_SYMBOL_TYPE; t25558.s0.value.external_symbol_type = q468; /* x197759 */ t25559.s0.tag = EXTERNAL_SYMBOL_TYPE; t25559.s0.value.external_symbol_type = q468; /* x197760 */ t25559.s1.tag = NULL_TYPE; /* x197761 */ t25558.s1.tag = STRUCTURE_TYPE24753; t25558.s1.value.structure_type24753 = &t25559; /* x197762 */ t25557.s0.tag = STRUCTURE_TYPE24753; t25557.s0.value.structure_type24753 = &t25558; /* x197763 */ t25561.s0.tag = EXTERNAL_SYMBOL_TYPE; t25561.s0.value.external_symbol_type = q449; /* x197764 */ t25563.s0.tag = EXTERNAL_SYMBOL_TYPE; t25563.s0.value.external_symbol_type = q162; /* x197765 */ t25564.s0.tag = EXTERNAL_SYMBOL_TYPE; t25564.s0.value.external_symbol_type = q468; /* x197766 */ t25564.s1.tag = NULL_TYPE; /* x197767 */ t25563.s1.tag = STRUCTURE_TYPE24753; t25563.s1.value.structure_type24753 = &t25564; /* x197768 */ t25562.s0.tag = STRUCTURE_TYPE24753; t25562.s0.value.structure_type24753 = &t25563; /* x197769 */ t25562.s1.tag = NULL_TYPE; /* x197770 */ t25561.s1.tag = STRUCTURE_TYPE24753; t25561.s1.value.structure_type24753 = &t25562; /* x197771 */ t25560.s0.tag = STRUCTURE_TYPE24753; t25560.s0.value.structure_type24753 = &t25561; /* x197772 */ t25566.s0.tag = EXTERNAL_SYMBOL_TYPE; t25566.s0.value.external_symbol_type = q469; /* x197773 */ t25567.s0.tag = EXTERNAL_SYMBOL_TYPE; t25567.s0.value.external_symbol_type = q469; /* x197774 */ t25567.s1.tag = NULL_TYPE; /* x197775 */ t25566.s1.tag = STRUCTURE_TYPE24753; t25566.s1.value.structure_type24753 = &t25567; /* x197776 */ t25565.s0.tag = STRUCTURE_TYPE24753; t25565.s0.value.structure_type24753 = &t25566; /* x197777 */ t25569.s0.tag = EXTERNAL_SYMBOL_TYPE; t25569.s0.value.external_symbol_type = q450; /* x197778 */ t25571.s0.tag = EXTERNAL_SYMBOL_TYPE; t25571.s0.value.external_symbol_type = q162; /* x197779 */ t25572.s0.tag = EXTERNAL_SYMBOL_TYPE; t25572.s0.value.external_symbol_type = q469; /* x197780 */ t25572.s1.tag = NULL_TYPE; /* x197781 */ t25571.s1.tag = STRUCTURE_TYPE24753; t25571.s1.value.structure_type24753 = &t25572; /* x197782 */ t25570.s0.tag = STRUCTURE_TYPE24753; t25570.s0.value.structure_type24753 = &t25571; /* x197783 */ t25570.s1.tag = NULL_TYPE; /* x197784 */ t25569.s1.tag = STRUCTURE_TYPE24753; t25569.s1.value.structure_type24753 = &t25570; /* x197785 */ t25568.s0.tag = STRUCTURE_TYPE24753; t25568.s0.value.structure_type24753 = &t25569; /* x197786 */ t25574.s0.tag = EXTERNAL_SYMBOL_TYPE; t25574.s0.value.external_symbol_type = q410; /* x197787 */ t25575.s0.tag = EXTERNAL_SYMBOL_TYPE; t25575.s0.value.external_symbol_type = q410; /* x197788 */ t25575.s1.tag = NULL_TYPE; /* x197789 */ t25574.s1.tag = STRUCTURE_TYPE24753; t25574.s1.value.structure_type24753 = &t25575; /* x197790 */ t25573.s0.tag = STRUCTURE_TYPE24753; t25573.s0.value.structure_type24753 = &t25574; /* x197791 */ t25573.s1.tag = NULL_TYPE; /* x197792 */ t25568.s1.tag = STRUCTURE_TYPE24753; t25568.s1.value.structure_type24753 = &t25573; /* x197793 */ t25565.s1.tag = STRUCTURE_TYPE24753; t25565.s1.value.structure_type24753 = &t25568; /* x197794 */ t25560.s1.tag = STRUCTURE_TYPE24753; t25560.s1.value.structure_type24753 = &t25565; /* x197795 */ t25557.s1.tag = STRUCTURE_TYPE24753; t25557.s1.value.structure_type24753 = &t25560; /* x197796 */ t25556.s0.tag = STRUCTURE_TYPE24753; t25556.s0.value.structure_type24753 = &t25557; /* x197797 */ t25577.s0.tag = EXTERNAL_SYMBOL_TYPE; t25577.s0.value.external_symbol_type = q244; /* x197798 */ t25579.s0.tag = EXTERNAL_SYMBOL_TYPE; t25579.s0.value.external_symbol_type = q242; /* x197799 */ t25580.s0.tag = EXTERNAL_SYMBOL_TYPE; t25580.s0.value.external_symbol_type = q289; /* x197800 */ t25583.s0.tag = EXTERNAL_SYMBOL_TYPE; t25583.s0.value.external_symbol_type = q337; /* x197801 */ t25584.s0.tag = FIXNUM_TYPE; t25584.s0.value.fixnum_type = 0; /* x197802 */ t25584.s1.tag = NULL_TYPE; /* x197803 */ t25583.s1.tag = STRUCTURE_TYPE24753; t25583.s1.value.structure_type24753 = &t25584; /* x197804 */ t25582.s0.tag = STRUCTURE_TYPE24753; t25582.s0.value.structure_type24753 = &t25583; /* x197805 */ t25582.s1.tag = NULL_TYPE; /* x197806 */ t25581.s0.tag = STRUCTURE_TYPE24753; t25581.s0.value.structure_type24753 = &t25582; /* x197807 */ t25586.s0.tag = EXTERNAL_SYMBOL_TYPE; t25586.s0.value.external_symbol_type = q43; /* x197808 */ t25588.s0.tag = EXTERNAL_SYMBOL_TYPE; t25588.s0.value.external_symbol_type = q120; /* x197809 */ t25589.s0.tag = EXTERNAL_SYMBOL_TYPE; t25589.s0.value.external_symbol_type = q337; /* x197810 */ t25590.s0.tag = EXTERNAL_SYMBOL_TYPE; t25590.s0.value.external_symbol_type = q450; /* x197811 */ t25590.s1.tag = NULL_TYPE; /* x197812 */ t25589.s1.tag = STRUCTURE_TYPE24753; t25589.s1.value.structure_type24753 = &t25590; /* x197813 */ t25588.s1.tag = STRUCTURE_TYPE24753; t25588.s1.value.structure_type24753 = &t25589; /* x197814 */ t25587.s0.tag = STRUCTURE_TYPE24753; t25587.s0.value.structure_type24753 = &t25588; /* x197815 */ t25592.s0.tag = EXTERNAL_SYMBOL_TYPE; t25592.s0.value.external_symbol_type = q123; /* x197816 */ t25593.s0.tag = EXTERNAL_SYMBOL_TYPE; t25593.s0.value.external_symbol_type = q337; /* x197817 */ t25594.s0.tag = EXTERNAL_SYMBOL_TYPE; t25594.s0.value.external_symbol_type = q449; /* x197818 */ t25594.s1.tag = NULL_TYPE; /* x197819 */ t25593.s1.tag = STRUCTURE_TYPE24753; t25593.s1.value.structure_type24753 = &t25594; /* x197820 */ t25592.s1.tag = STRUCTURE_TYPE24753; t25592.s1.value.structure_type24753 = &t25593; /* x197821 */ t25591.s0.tag = STRUCTURE_TYPE24753; t25591.s0.value.structure_type24753 = &t25592; /* x197822 */ t25596.s0.tag = EXTERNAL_SYMBOL_TYPE; t25596.s0.value.external_symbol_type = q244; /* x197823 */ t25598.s0.tag = EXTERNAL_SYMBOL_TYPE; t25598.s0.value.external_symbol_type = q121; /* x197824 */ t25599.s0.tag = EXTERNAL_SYMBOL_TYPE; t25599.s0.value.external_symbol_type = q337; /* x197825 */ t25600.s0.tag = EXTERNAL_SYMBOL_TYPE; t25600.s0.value.external_symbol_type = q449; /* x197826 */ t25600.s1.tag = NULL_TYPE; /* x197827 */ t25599.s1.tag = STRUCTURE_TYPE24753; t25599.s1.value.structure_type24753 = &t25600; /* x197828 */ t25598.s1.tag = STRUCTURE_TYPE24753; t25598.s1.value.structure_type24753 = &t25599; /* x197829 */ t25597.s0.tag = STRUCTURE_TYPE24753; t25597.s0.value.structure_type24753 = &t25598; /* x197830 */ t25602.s0.tag = EXTERNAL_SYMBOL_TYPE; t25602.s0.value.external_symbol_type = q241; /* x197831 */ t25604.s0.tag = EXTERNAL_SYMBOL_TYPE; t25604.s0.value.external_symbol_type = q299; /* x197832 */ t25606.s0.tag = EXTERNAL_SYMBOL_TYPE; t25606.s0.value.external_symbol_type = q163; /* x197833 */ t25607.s0.tag = EXTERNAL_SYMBOL_TYPE; t25607.s0.value.external_symbol_type = q468; /* x197834 */ t25608.s0.tag = EXTERNAL_SYMBOL_TYPE; t25608.s0.value.external_symbol_type = q337; /* x197835 */ t25608.s1.tag = NULL_TYPE; /* x197836 */ t25607.s1.tag = STRUCTURE_TYPE24753; t25607.s1.value.structure_type24753 = &t25608; /* x197837 */ t25606.s1.tag = STRUCTURE_TYPE24753; t25606.s1.value.structure_type24753 = &t25607; /* x197838 */ t25605.s0.tag = STRUCTURE_TYPE24753; t25605.s0.value.structure_type24753 = &t25606; /* x197839 */ t25610.s0.tag = EXTERNAL_SYMBOL_TYPE; t25610.s0.value.external_symbol_type = q163; /* x197840 */ t25611.s0.tag = EXTERNAL_SYMBOL_TYPE; t25611.s0.value.external_symbol_type = q469; /* x197841 */ t25612.s0.tag = EXTERNAL_SYMBOL_TYPE; t25612.s0.value.external_symbol_type = q337; /* x197842 */ t25612.s1.tag = NULL_TYPE; /* x197843 */ t25611.s1.tag = STRUCTURE_TYPE24753; t25611.s1.value.structure_type24753 = &t25612; /* x197844 */ t25610.s1.tag = STRUCTURE_TYPE24753; t25610.s1.value.structure_type24753 = &t25611; /* x197845 */ t25609.s0.tag = STRUCTURE_TYPE24753; t25609.s0.value.structure_type24753 = &t25610; /* x197846 */ t25609.s1.tag = NULL_TYPE; /* x197847 */ t25605.s1.tag = STRUCTURE_TYPE24753; t25605.s1.value.structure_type24753 = &t25609; /* x197848 */ t25604.s1.tag = STRUCTURE_TYPE24753; t25604.s1.value.structure_type24753 = &t25605; /* x197849 */ t25603.s0.tag = STRUCTURE_TYPE24753; t25603.s0.value.structure_type24753 = &t25604; /* x197850 */ t25614.s0.tag = EXTERNAL_SYMBOL_TYPE; t25614.s0.value.external_symbol_type = q244; /* x197851 */ t25616.s0.tag = EXTERNAL_SYMBOL_TYPE; t25616.s0.value.external_symbol_type = q263; /* x197852 */ t25618.s0.tag = EXTERNAL_SYMBOL_TYPE; t25618.s0.value.external_symbol_type = q163; /* x197853 */ t25619.s0.tag = EXTERNAL_SYMBOL_TYPE; t25619.s0.value.external_symbol_type = q468; /* x197854 */ t25620.s0.tag = EXTERNAL_SYMBOL_TYPE; t25620.s0.value.external_symbol_type = q337; /* x197855 */ t25620.s1.tag = NULL_TYPE; /* x197856 */ t25619.s1.tag = STRUCTURE_TYPE24753; t25619.s1.value.structure_type24753 = &t25620; /* x197857 */ t25618.s1.tag = STRUCTURE_TYPE24753; t25618.s1.value.structure_type24753 = &t25619; /* x197858 */ t25617.s0.tag = STRUCTURE_TYPE24753; t25617.s0.value.structure_type24753 = &t25618; /* x197859 */ t25622.s0.tag = EXTERNAL_SYMBOL_TYPE; t25622.s0.value.external_symbol_type = q163; /* x197860 */ t25623.s0.tag = EXTERNAL_SYMBOL_TYPE; t25623.s0.value.external_symbol_type = q469; /* x197861 */ t25624.s0.tag = EXTERNAL_SYMBOL_TYPE; t25624.s0.value.external_symbol_type = q337; /* x197862 */ t25624.s1.tag = NULL_TYPE; /* x197863 */ t25623.s1.tag = STRUCTURE_TYPE24753; t25623.s1.value.structure_type24753 = &t25624; /* x197864 */ t25622.s1.tag = STRUCTURE_TYPE24753; t25622.s1.value.structure_type24753 = &t25623; /* x197865 */ t25621.s0.tag = STRUCTURE_TYPE24753; t25621.s0.value.structure_type24753 = &t25622; /* x197866 */ t25621.s1.tag = NULL_TYPE; /* x197867 */ t25617.s1.tag = STRUCTURE_TYPE24753; t25617.s1.value.structure_type24753 = &t25621; /* x197868 */ t25616.s1.tag = STRUCTURE_TYPE24753; t25616.s1.value.structure_type24753 = &t25617; /* x197869 */ t25615.s0.tag = STRUCTURE_TYPE24753; t25615.s0.value.structure_type24753 = &t25616; /* x197870 */ t25626.s0.tag = EXTERNAL_SYMBOL_TYPE; t25626.s0.value.external_symbol_type = q289; /* x197871 */ t25628.s0.tag = EXTERNAL_SYMBOL_TYPE; t25628.s0.value.external_symbol_type = q4; /* x197872 */ t25629.s0.tag = EXTERNAL_SYMBOL_TYPE; t25629.s0.value.external_symbol_type = q337; /* x197873 */ t25630.s0.tag = FIXNUM_TYPE; t25630.s0.value.fixnum_type = 1; /* x197874 */ t25630.s1.tag = NULL_TYPE; /* x197875 */ t25629.s1.tag = STRUCTURE_TYPE24753; t25629.s1.value.structure_type24753 = &t25630; /* x197876 */ t25628.s1.tag = STRUCTURE_TYPE24753; t25628.s1.value.structure_type24753 = &t25629; /* x197877 */ t25627.s0.tag = STRUCTURE_TYPE24753; t25627.s0.value.structure_type24753 = &t25628; /* x197878 */ t25627.s1.tag = NULL_TYPE; /* x197879 */ t25626.s1.tag = STRUCTURE_TYPE24753; t25626.s1.value.structure_type24753 = &t25627; /* x197880 */ t25625.s0.tag = STRUCTURE_TYPE24753; t25625.s0.value.structure_type24753 = &t25626; /* x197881 */ t25625.s1.tag = NULL_TYPE; /* x197882 */ t25615.s1.tag = STRUCTURE_TYPE24753; t25615.s1.value.structure_type24753 = &t25625; /* x197883 */ t25614.s1.tag = STRUCTURE_TYPE24753; t25614.s1.value.structure_type24753 = &t25615; /* x197884 */ t25613.s0.tag = STRUCTURE_TYPE24753; t25613.s0.value.structure_type24753 = &t25614; /* x197885 */ t25613.s1.tag = NULL_TYPE; /* x197886 */ t25603.s1.tag = STRUCTURE_TYPE24753; t25603.s1.value.structure_type24753 = &t25613; /* x197887 */ t25602.s1.tag = STRUCTURE_TYPE24753; t25602.s1.value.structure_type24753 = &t25603; /* x197888 */ t25601.s0.tag = STRUCTURE_TYPE24753; t25601.s0.value.structure_type24753 = &t25602; /* x197889 */ t25601.s1.tag = NULL_TYPE; /* x197890 */ t25597.s1.tag = STRUCTURE_TYPE24753; t25597.s1.value.structure_type24753 = &t25601; /* x197891 */ t25596.s1.tag = STRUCTURE_TYPE24753; t25596.s1.value.structure_type24753 = &t25597; /* x197892 */ t25595.s0.tag = STRUCTURE_TYPE24753; t25595.s0.value.structure_type24753 = &t25596; /* x197893 */ t25595.s1.tag = NULL_TYPE; /* x197894 */ t25591.s1.tag = STRUCTURE_TYPE24753; t25591.s1.value.structure_type24753 = &t25595; /* x197895 */ t25587.s1.tag = STRUCTURE_TYPE24753; t25587.s1.value.structure_type24753 = &t25591; /* x197896 */ t25586.s1.tag = STRUCTURE_TYPE24753; t25586.s1.value.structure_type24753 = &t25587; /* x197897 */ t25585.s0.tag = STRUCTURE_TYPE24753; t25585.s0.value.structure_type24753 = &t25586; /* x197898 */ t25585.s1.tag = NULL_TYPE; /* x197899 */ t25581.s1.tag = STRUCTURE_TYPE24753; t25581.s1.value.structure_type24753 = &t25585; /* x197900 */ t25580.s1.tag = STRUCTURE_TYPE24753; t25580.s1.value.structure_type24753 = &t25581; /* x197901 */ t25579.s1.tag = STRUCTURE_TYPE24753; t25579.s1.value.structure_type24753 = &t25580; /* x197902 */ t25578.s0.tag = STRUCTURE_TYPE24753; t25578.s0.value.structure_type24753 = &t25579; /* x197903 */ t25632.s0.tag = EXTERNAL_SYMBOL_TYPE; t25632.s0.value.external_symbol_type = q241; /* x197904 */ t25634.s0.tag = EXTERNAL_SYMBOL_TYPE; t25634.s0.value.external_symbol_type = q111; /* x197905 */ t25635.s0.tag = EXTERNAL_SYMBOL_TYPE; t25635.s0.value.external_symbol_type = q410; /* x197906 */ t25635.s1.tag = NULL_TYPE; /* x197907 */ t25634.s1.tag = STRUCTURE_TYPE24753; t25634.s1.value.structure_type24753 = &t25635; /* x197908 */ t25633.s0.tag = STRUCTURE_TYPE24753; t25633.s0.value.structure_type24753 = &t25634; /* x197909 */ t25637.s0.tag = EXTERNAL_SYMBOL_TYPE; t25637.s0.value.external_symbol_type = q289; /* x197910 */ t25638.s0.tag = EXTERNAL_SYMBOL_TYPE; t25638.s0.value.external_symbol_type = q469; /* x197911 */ t25639.s0.tag = EXTERNAL_SYMBOL_TYPE; t25639.s0.value.external_symbol_type = q450; /* x197912 */ t25641.s0.tag = EXTERNAL_SYMBOL_TYPE; t25641.s0.value.external_symbol_type = q107; /* x197913 */ t25642.s0.tag = EXTERNAL_SYMBOL_TYPE; t25642.s0.value.external_symbol_type = q410; /* x197914 */ t25642.s1.tag = NULL_TYPE; /* x197915 */ t25641.s1.tag = STRUCTURE_TYPE24753; t25641.s1.value.structure_type24753 = &t25642; /* x197916 */ t25640.s0.tag = STRUCTURE_TYPE24753; t25640.s0.value.structure_type24753 = &t25641; /* x197917 */ t25644.s0.tag = EXTERNAL_SYMBOL_TYPE; t25644.s0.value.external_symbol_type = q162; /* x197918 */ t25646.s0.tag = EXTERNAL_SYMBOL_TYPE; t25646.s0.value.external_symbol_type = q107; /* x197919 */ t25647.s0.tag = EXTERNAL_SYMBOL_TYPE; t25647.s0.value.external_symbol_type = q410; /* x197920 */ t25647.s1.tag = NULL_TYPE; /* x197921 */ t25646.s1.tag = STRUCTURE_TYPE24753; t25646.s1.value.structure_type24753 = &t25647; /* x197922 */ t25645.s0.tag = STRUCTURE_TYPE24753; t25645.s0.value.structure_type24753 = &t25646; /* x197923 */ t25645.s1.tag = NULL_TYPE; /* x197924 */ t25644.s1.tag = STRUCTURE_TYPE24753; t25644.s1.value.structure_type24753 = &t25645; /* x197925 */ t25643.s0.tag = STRUCTURE_TYPE24753; t25643.s0.value.structure_type24753 = &t25644; /* x197926 */ t25649.s0.tag = EXTERNAL_SYMBOL_TYPE; t25649.s0.value.external_symbol_type = q108; /* x197927 */ t25650.s0.tag = EXTERNAL_SYMBOL_TYPE; t25650.s0.value.external_symbol_type = q410; /* x197928 */ t25650.s1.tag = NULL_TYPE; /* x197929 */ t25649.s1.tag = STRUCTURE_TYPE24753; t25649.s1.value.structure_type24753 = &t25650; /* x197930 */ t25648.s0.tag = STRUCTURE_TYPE24753; t25648.s0.value.structure_type24753 = &t25649; /* x197931 */ t25648.s1.tag = NULL_TYPE; /* x197932 */ t25643.s1.tag = STRUCTURE_TYPE24753; t25643.s1.value.structure_type24753 = &t25648; /* x197933 */ t25640.s1.tag = STRUCTURE_TYPE24753; t25640.s1.value.structure_type24753 = &t25643; /* x197934 */ t25639.s1.tag = STRUCTURE_TYPE24753; t25639.s1.value.structure_type24753 = &t25640; /* x197935 */ t25638.s1.tag = STRUCTURE_TYPE24753; t25638.s1.value.structure_type24753 = &t25639; /* x197936 */ t25637.s1.tag = STRUCTURE_TYPE24753; t25637.s1.value.structure_type24753 = &t25638; /* x197937 */ t25636.s0.tag = STRUCTURE_TYPE24753; t25636.s0.value.structure_type24753 = &t25637; /* x197938 */ t25636.s1.tag = NULL_TYPE; /* x197939 */ t25633.s1.tag = STRUCTURE_TYPE24753; t25633.s1.value.structure_type24753 = &t25636; /* x197940 */ t25632.s1.tag = STRUCTURE_TYPE24753; t25632.s1.value.structure_type24753 = &t25633; /* x197941 */ t25631.s0.tag = STRUCTURE_TYPE24753; t25631.s0.value.structure_type24753 = &t25632; /* x197942 */ t25631.s1.tag = NULL_TYPE; /* x197943 */ t25578.s1.tag = STRUCTURE_TYPE24753; t25578.s1.value.structure_type24753 = &t25631; /* x197944 */ t25577.s1.tag = STRUCTURE_TYPE24753; t25577.s1.value.structure_type24753 = &t25578; /* x197945 */ t25576.s0.tag = STRUCTURE_TYPE24753; t25576.s0.value.structure_type24753 = &t25577; /* x197946 */ t25576.s1.tag = NULL_TYPE; /* x197947 */ t25556.s1.tag = STRUCTURE_TYPE24753; t25556.s1.value.structure_type24753 = &t25576; /* x197948 */ t25555.s1.tag = STRUCTURE_TYPE24753; t25555.s1.value.structure_type24753 = &t25556; /* x197949 */ t25554.s1.tag = STRUCTURE_TYPE24753; t25554.s1.value.structure_type24753 = &t25555; /* x197950 */ t25553.s0.tag = STRUCTURE_TYPE24753; t25553.s0.value.structure_type24753 = &t25554; /* x197951 */ t25553.s1.tag = NULL_TYPE; /* x197952 */ t25549.s1.tag = STRUCTURE_TYPE24753; t25549.s1.value.structure_type24753 = &t25553; /* x197953 */ t25548.s1.tag = STRUCTURE_TYPE24753; t25548.s1.value.structure_type24753 = &t25549; /* x197956 */ t25655.s0.tag = EXTERNAL_SYMBOL_TYPE; t25655.s0.value.external_symbol_type = q97; /* x197957 */ t25657.s0.tag = EXTERNAL_SYMBOL_TYPE; t25657.s0.value.external_symbol_type = q475; /* x197958 */ t25658.s0.tag = EXTERNAL_SYMBOL_TYPE; t25658.s0.value.external_symbol_type = q468; /* x197959 */ t25659.s0.tag = EXTERNAL_SYMBOL_TYPE; t25659.s0.value.external_symbol_type = q469; /* x197960 */ t25659.s1.tag = EXTERNAL_SYMBOL_TYPE; t25659.s1.value.external_symbol_type = q410; /* x197961 */ t25658.s1.tag = STRUCTURE_TYPE24753; t25658.s1.value.structure_type24753 = &t25659; /* x197962 */ t25657.s1.tag = STRUCTURE_TYPE24753; t25657.s1.value.structure_type24753 = &t25658; /* x197963 */ t25656.s0.tag = STRUCTURE_TYPE24753; t25656.s0.value.structure_type24753 = &t25657; /* x197964 */ t25661.s0.tag = EXTERNAL_SYMBOL_TYPE; t25661.s0.value.external_symbol_type = q242; /* x197965 */ t25662.s0.tag = EXTERNAL_SYMBOL_TYPE; t25662.s0.value.external_symbol_type = q289; /* x197966 */ t25665.s0.tag = EXTERNAL_SYMBOL_TYPE; t25665.s0.value.external_symbol_type = q468; /* x197967 */ t25666.s0.tag = EXTERNAL_SYMBOL_TYPE; t25666.s0.value.external_symbol_type = q468; /* x197968 */ t25666.s1.tag = NULL_TYPE; /* x197969 */ t25665.s1.tag = STRUCTURE_TYPE24753; t25665.s1.value.structure_type24753 = &t25666; /* x197970 */ t25664.s0.tag = STRUCTURE_TYPE24753; t25664.s0.value.structure_type24753 = &t25665; /* x197971 */ t25668.s0.tag = EXTERNAL_SYMBOL_TYPE; t25668.s0.value.external_symbol_type = q449; /* x197972 */ t25670.s0.tag = EXTERNAL_SYMBOL_TYPE; t25670.s0.value.external_symbol_type = q162; /* x197973 */ t25671.s0.tag = EXTERNAL_SYMBOL_TYPE; t25671.s0.value.external_symbol_type = q468; /* x197974 */ t25671.s1.tag = NULL_TYPE; /* x197975 */ t25670.s1.tag = STRUCTURE_TYPE24753; t25670.s1.value.structure_type24753 = &t25671; /* x197976 */ t25669.s0.tag = STRUCTURE_TYPE24753; t25669.s0.value.structure_type24753 = &t25670; /* x197977 */ t25669.s1.tag = NULL_TYPE; /* x197978 */ t25668.s1.tag = STRUCTURE_TYPE24753; t25668.s1.value.structure_type24753 = &t25669; /* x197979 */ t25667.s0.tag = STRUCTURE_TYPE24753; t25667.s0.value.structure_type24753 = &t25668; /* x197980 */ t25673.s0.tag = EXTERNAL_SYMBOL_TYPE; t25673.s0.value.external_symbol_type = q469; /* x197981 */ t25674.s0.tag = EXTERNAL_SYMBOL_TYPE; t25674.s0.value.external_symbol_type = q469; /* x197982 */ t25674.s1.tag = NULL_TYPE; /* x197983 */ t25673.s1.tag = STRUCTURE_TYPE24753; t25673.s1.value.structure_type24753 = &t25674; /* x197984 */ t25672.s0.tag = STRUCTURE_TYPE24753; t25672.s0.value.structure_type24753 = &t25673; /* x197985 */ t25676.s0.tag = EXTERNAL_SYMBOL_TYPE; t25676.s0.value.external_symbol_type = q450; /* x197986 */ t25678.s0.tag = EXTERNAL_SYMBOL_TYPE; t25678.s0.value.external_symbol_type = q162; /* x197987 */ t25679.s0.tag = EXTERNAL_SYMBOL_TYPE; t25679.s0.value.external_symbol_type = q469; /* x197988 */ t25679.s1.tag = NULL_TYPE; /* x197989 */ t25678.s1.tag = STRUCTURE_TYPE24753; t25678.s1.value.structure_type24753 = &t25679; /* x197990 */ t25677.s0.tag = STRUCTURE_TYPE24753; t25677.s0.value.structure_type24753 = &t25678; /* x197991 */ t25677.s1.tag = NULL_TYPE; /* x197992 */ t25676.s1.tag = STRUCTURE_TYPE24753; t25676.s1.value.structure_type24753 = &t25677; /* x197993 */ t25675.s0.tag = STRUCTURE_TYPE24753; t25675.s0.value.structure_type24753 = &t25676; /* x197994 */ t25681.s0.tag = EXTERNAL_SYMBOL_TYPE; t25681.s0.value.external_symbol_type = q410; /* x197995 */ t25682.s0.tag = EXTERNAL_SYMBOL_TYPE; t25682.s0.value.external_symbol_type = q410; /* x197996 */ t25682.s1.tag = NULL_TYPE; /* x197997 */ t25681.s1.tag = STRUCTURE_TYPE24753; t25681.s1.value.structure_type24753 = &t25682; /* x197998 */ t25680.s0.tag = STRUCTURE_TYPE24753; t25680.s0.value.structure_type24753 = &t25681; /* x197999 */ t25680.s1.tag = NULL_TYPE; /* x198000 */ t25675.s1.tag = STRUCTURE_TYPE24753; t25675.s1.value.structure_type24753 = &t25680; /* x198001 */ t25672.s1.tag = STRUCTURE_TYPE24753; t25672.s1.value.structure_type24753 = &t25675; /* x198002 */ t25667.s1.tag = STRUCTURE_TYPE24753; t25667.s1.value.structure_type24753 = &t25672; /* x198003 */ t25664.s1.tag = STRUCTURE_TYPE24753; t25664.s1.value.structure_type24753 = &t25667; /* x198004 */ t25663.s0.tag = STRUCTURE_TYPE24753; t25663.s0.value.structure_type24753 = &t25664; /* x198005 */ t25684.s0.tag = EXTERNAL_SYMBOL_TYPE; t25684.s0.value.external_symbol_type = q244; /* x198006 */ t25686.s0.tag = EXTERNAL_SYMBOL_TYPE; t25686.s0.value.external_symbol_type = q242; /* x198007 */ t25687.s0.tag = EXTERNAL_SYMBOL_TYPE; t25687.s0.value.external_symbol_type = q289; /* x198008 */ t25690.s0.tag = EXTERNAL_SYMBOL_TYPE; t25690.s0.value.external_symbol_type = q337; /* x198009 */ t25691.s0.tag = FIXNUM_TYPE; t25691.s0.value.fixnum_type = 0; /* x198010 */ t25691.s1.tag = NULL_TYPE; /* x198011 */ t25690.s1.tag = STRUCTURE_TYPE24753; t25690.s1.value.structure_type24753 = &t25691; /* x198012 */ t25689.s0.tag = STRUCTURE_TYPE24753; t25689.s0.value.structure_type24753 = &t25690; /* x198013 */ t25689.s1.tag = NULL_TYPE; /* x198014 */ t25688.s0.tag = STRUCTURE_TYPE24753; t25688.s0.value.structure_type24753 = &t25689; /* x198015 */ t25693.s0.tag = EXTERNAL_SYMBOL_TYPE; t25693.s0.value.external_symbol_type = q43; /* x198016 */ t25695.s0.tag = EXTERNAL_SYMBOL_TYPE; t25695.s0.value.external_symbol_type = q120; /* x198017 */ t25696.s0.tag = EXTERNAL_SYMBOL_TYPE; t25696.s0.value.external_symbol_type = q337; /* x198018 */ t25697.s0.tag = EXTERNAL_SYMBOL_TYPE; t25697.s0.value.external_symbol_type = q449; /* x198019 */ t25697.s1.tag = NULL_TYPE; /* x198020 */ t25696.s1.tag = STRUCTURE_TYPE24753; t25696.s1.value.structure_type24753 = &t25697; /* x198021 */ t25695.s1.tag = STRUCTURE_TYPE24753; t25695.s1.value.structure_type24753 = &t25696; /* x198022 */ t25694.s0.tag = STRUCTURE_TYPE24753; t25694.s0.value.structure_type24753 = &t25695; /* x198023 */ t25699.s0.tag = EXTERNAL_SYMBOL_TYPE; t25699.s0.value.external_symbol_type = q121; /* x198024 */ t25700.s0.tag = EXTERNAL_SYMBOL_TYPE; t25700.s0.value.external_symbol_type = q337; /* x198025 */ t25701.s0.tag = EXTERNAL_SYMBOL_TYPE; t25701.s0.value.external_symbol_type = q450; /* x198026 */ t25701.s1.tag = NULL_TYPE; /* x198027 */ t25700.s1.tag = STRUCTURE_TYPE24753; t25700.s1.value.structure_type24753 = &t25701; /* x198028 */ t25699.s1.tag = STRUCTURE_TYPE24753; t25699.s1.value.structure_type24753 = &t25700; /* x198029 */ t25698.s0.tag = STRUCTURE_TYPE24753; t25698.s0.value.structure_type24753 = &t25699; /* x198030 */ t25703.s0.tag = EXTERNAL_SYMBOL_TYPE; t25703.s0.value.external_symbol_type = q244; /* x198031 */ t25705.s0.tag = EXTERNAL_SYMBOL_TYPE; t25705.s0.value.external_symbol_type = q121; /* x198032 */ t25706.s0.tag = EXTERNAL_SYMBOL_TYPE; t25706.s0.value.external_symbol_type = q337; /* x198033 */ t25707.s0.tag = EXTERNAL_SYMBOL_TYPE; t25707.s0.value.external_symbol_type = q450; /* x198034 */ t25707.s1.tag = NULL_TYPE; /* x198035 */ t25706.s1.tag = STRUCTURE_TYPE24753; t25706.s1.value.structure_type24753 = &t25707; /* x198036 */ t25705.s1.tag = STRUCTURE_TYPE24753; t25705.s1.value.structure_type24753 = &t25706; /* x198037 */ t25704.s0.tag = STRUCTURE_TYPE24753; t25704.s0.value.structure_type24753 = &t25705; /* x198038 */ t25709.s0.tag = EXTERNAL_SYMBOL_TYPE; t25709.s0.value.external_symbol_type = q241; /* x198039 */ t25711.s0.tag = EXTERNAL_SYMBOL_TYPE; t25711.s0.value.external_symbol_type = q460; /* x198040 */ t25713.s0.tag = EXTERNAL_SYMBOL_TYPE; t25713.s0.value.external_symbol_type = q163; /* x198041 */ t25714.s0.tag = EXTERNAL_SYMBOL_TYPE; t25714.s0.value.external_symbol_type = q468; /* x198042 */ t25715.s0.tag = EXTERNAL_SYMBOL_TYPE; t25715.s0.value.external_symbol_type = q337; /* x198043 */ t25715.s1.tag = NULL_TYPE; /* x198044 */ t25714.s1.tag = STRUCTURE_TYPE24753; t25714.s1.value.structure_type24753 = &t25715; /* x198045 */ t25713.s1.tag = STRUCTURE_TYPE24753; t25713.s1.value.structure_type24753 = &t25714; /* x198046 */ t25712.s0.tag = STRUCTURE_TYPE24753; t25712.s0.value.structure_type24753 = &t25713; /* x198047 */ t25717.s0.tag = EXTERNAL_SYMBOL_TYPE; t25717.s0.value.external_symbol_type = q163; /* x198048 */ t25718.s0.tag = EXTERNAL_SYMBOL_TYPE; t25718.s0.value.external_symbol_type = q469; /* x198049 */ t25719.s0.tag = EXTERNAL_SYMBOL_TYPE; t25719.s0.value.external_symbol_type = q337; /* x198050 */ t25719.s1.tag = NULL_TYPE; /* x198051 */ t25718.s1.tag = STRUCTURE_TYPE24753; t25718.s1.value.structure_type24753 = &t25719; /* x198052 */ t25717.s1.tag = STRUCTURE_TYPE24753; t25717.s1.value.structure_type24753 = &t25718; /* x198053 */ t25716.s0.tag = STRUCTURE_TYPE24753; t25716.s0.value.structure_type24753 = &t25717; /* x198054 */ t25716.s1.tag = NULL_TYPE; /* x198055 */ t25712.s1.tag = STRUCTURE_TYPE24753; t25712.s1.value.structure_type24753 = &t25716; /* x198056 */ t25711.s1.tag = STRUCTURE_TYPE24753; t25711.s1.value.structure_type24753 = &t25712; /* x198057 */ t25710.s0.tag = STRUCTURE_TYPE24753; t25710.s0.value.structure_type24753 = &t25711; /* x198058 */ t25721.s0.tag = EXTERNAL_SYMBOL_TYPE; t25721.s0.value.external_symbol_type = q244; /* x198059 */ t25723.s0.tag = EXTERNAL_SYMBOL_TYPE; t25723.s0.value.external_symbol_type = q291; /* x198060 */ t25725.s0.tag = EXTERNAL_SYMBOL_TYPE; t25725.s0.value.external_symbol_type = q163; /* x198061 */ t25726.s0.tag = EXTERNAL_SYMBOL_TYPE; t25726.s0.value.external_symbol_type = q468; /* x198062 */ t25727.s0.tag = EXTERNAL_SYMBOL_TYPE; t25727.s0.value.external_symbol_type = q337; /* x198063 */ t25727.s1.tag = NULL_TYPE; /* x198064 */ t25726.s1.tag = STRUCTURE_TYPE24753; t25726.s1.value.structure_type24753 = &t25727; /* x198065 */ t25725.s1.tag = STRUCTURE_TYPE24753; t25725.s1.value.structure_type24753 = &t25726; /* x198066 */ t25724.s0.tag = STRUCTURE_TYPE24753; t25724.s0.value.structure_type24753 = &t25725; /* x198067 */ t25729.s0.tag = EXTERNAL_SYMBOL_TYPE; t25729.s0.value.external_symbol_type = q163; /* x198068 */ t25730.s0.tag = EXTERNAL_SYMBOL_TYPE; t25730.s0.value.external_symbol_type = q469; /* x198069 */ t25731.s0.tag = EXTERNAL_SYMBOL_TYPE; t25731.s0.value.external_symbol_type = q337; /* x198070 */ t25731.s1.tag = NULL_TYPE; /* x198071 */ t25730.s1.tag = STRUCTURE_TYPE24753; t25730.s1.value.structure_type24753 = &t25731; /* x198072 */ t25729.s1.tag = STRUCTURE_TYPE24753; t25729.s1.value.structure_type24753 = &t25730; /* x198073 */ t25728.s0.tag = STRUCTURE_TYPE24753; t25728.s0.value.structure_type24753 = &t25729; /* x198074 */ t25728.s1.tag = NULL_TYPE; /* x198075 */ t25724.s1.tag = STRUCTURE_TYPE24753; t25724.s1.value.structure_type24753 = &t25728; /* x198076 */ t25723.s1.tag = STRUCTURE_TYPE24753; t25723.s1.value.structure_type24753 = &t25724; /* x198077 */ t25722.s0.tag = STRUCTURE_TYPE24753; t25722.s0.value.structure_type24753 = &t25723; /* x198078 */ t25733.s0.tag = EXTERNAL_SYMBOL_TYPE; t25733.s0.value.external_symbol_type = q289; /* x198079 */ t25735.s0.tag = EXTERNAL_SYMBOL_TYPE; t25735.s0.value.external_symbol_type = q4; /* x198080 */ t25736.s0.tag = EXTERNAL_SYMBOL_TYPE; t25736.s0.value.external_symbol_type = q337; /* x198081 */ t25737.s0.tag = FIXNUM_TYPE; t25737.s0.value.fixnum_type = 1; /* x198082 */ t25737.s1.tag = NULL_TYPE; /* x198083 */ t25736.s1.tag = STRUCTURE_TYPE24753; t25736.s1.value.structure_type24753 = &t25737; /* x198084 */ t25735.s1.tag = STRUCTURE_TYPE24753; t25735.s1.value.structure_type24753 = &t25736; /* x198085 */ t25734.s0.tag = STRUCTURE_TYPE24753; t25734.s0.value.structure_type24753 = &t25735; /* x198086 */ t25734.s1.tag = NULL_TYPE; /* x198087 */ t25733.s1.tag = STRUCTURE_TYPE24753; t25733.s1.value.structure_type24753 = &t25734; /* x198088 */ t25732.s0.tag = STRUCTURE_TYPE24753; t25732.s0.value.structure_type24753 = &t25733; /* x198089 */ t25732.s1.tag = NULL_TYPE; /* x198090 */ t25722.s1.tag = STRUCTURE_TYPE24753; t25722.s1.value.structure_type24753 = &t25732; /* x198091 */ t25721.s1.tag = STRUCTURE_TYPE24753; t25721.s1.value.structure_type24753 = &t25722; /* x198092 */ t25720.s0.tag = STRUCTURE_TYPE24753; t25720.s0.value.structure_type24753 = &t25721; /* x198093 */ t25720.s1.tag = NULL_TYPE; /* x198094 */ t25710.s1.tag = STRUCTURE_TYPE24753; t25710.s1.value.structure_type24753 = &t25720; /* x198095 */ t25709.s1.tag = STRUCTURE_TYPE24753; t25709.s1.value.structure_type24753 = &t25710; /* x198096 */ t25708.s0.tag = STRUCTURE_TYPE24753; t25708.s0.value.structure_type24753 = &t25709; /* x198097 */ t25708.s1.tag = NULL_TYPE; /* x198098 */ t25704.s1.tag = STRUCTURE_TYPE24753; t25704.s1.value.structure_type24753 = &t25708; /* x198099 */ t25703.s1.tag = STRUCTURE_TYPE24753; t25703.s1.value.structure_type24753 = &t25704; /* x198100 */ t25702.s0.tag = STRUCTURE_TYPE24753; t25702.s0.value.structure_type24753 = &t25703; /* x198101 */ t25702.s1.tag = NULL_TYPE; /* x198102 */ t25698.s1.tag = STRUCTURE_TYPE24753; t25698.s1.value.structure_type24753 = &t25702; /* x198103 */ t25694.s1.tag = STRUCTURE_TYPE24753; t25694.s1.value.structure_type24753 = &t25698; /* x198104 */ t25693.s1.tag = STRUCTURE_TYPE24753; t25693.s1.value.structure_type24753 = &t25694; /* x198105 */ t25692.s0.tag = STRUCTURE_TYPE24753; t25692.s0.value.structure_type24753 = &t25693; /* x198106 */ t25692.s1.tag = NULL_TYPE; /* x198107 */ t25688.s1.tag = STRUCTURE_TYPE24753; t25688.s1.value.structure_type24753 = &t25692; /* x198108 */ t25687.s1.tag = STRUCTURE_TYPE24753; t25687.s1.value.structure_type24753 = &t25688; /* x198109 */ t25686.s1.tag = STRUCTURE_TYPE24753; t25686.s1.value.structure_type24753 = &t25687; /* x198110 */ t25685.s0.tag = STRUCTURE_TYPE24753; t25685.s0.value.structure_type24753 = &t25686; /* x198111 */ t25739.s0.tag = EXTERNAL_SYMBOL_TYPE; t25739.s0.value.external_symbol_type = q241; /* x198112 */ t25741.s0.tag = EXTERNAL_SYMBOL_TYPE; t25741.s0.value.external_symbol_type = q111; /* x198113 */ t25742.s0.tag = EXTERNAL_SYMBOL_TYPE; t25742.s0.value.external_symbol_type = q410; /* x198114 */ t25742.s1.tag = NULL_TYPE; /* x198115 */ t25741.s1.tag = STRUCTURE_TYPE24753; t25741.s1.value.structure_type24753 = &t25742; /* x198116 */ t25740.s0.tag = STRUCTURE_TYPE24753; t25740.s0.value.structure_type24753 = &t25741; /* x198117 */ t25744.s0.tag = EXTERNAL_SYMBOL_TYPE; t25744.s0.value.external_symbol_type = q289; /* x198118 */ t25745.s0.tag = EXTERNAL_SYMBOL_TYPE; t25745.s0.value.external_symbol_type = q469; /* x198119 */ t25746.s0.tag = EXTERNAL_SYMBOL_TYPE; t25746.s0.value.external_symbol_type = q450; /* x198120 */ t25748.s0.tag = EXTERNAL_SYMBOL_TYPE; t25748.s0.value.external_symbol_type = q107; /* x198121 */ t25749.s0.tag = EXTERNAL_SYMBOL_TYPE; t25749.s0.value.external_symbol_type = q410; /* x198122 */ t25749.s1.tag = NULL_TYPE; /* x198123 */ t25748.s1.tag = STRUCTURE_TYPE24753; t25748.s1.value.structure_type24753 = &t25749; /* x198124 */ t25747.s0.tag = STRUCTURE_TYPE24753; t25747.s0.value.structure_type24753 = &t25748; /* x198125 */ t25751.s0.tag = EXTERNAL_SYMBOL_TYPE; t25751.s0.value.external_symbol_type = q162; /* x198126 */ t25753.s0.tag = EXTERNAL_SYMBOL_TYPE; t25753.s0.value.external_symbol_type = q107; /* x198127 */ t25754.s0.tag = EXTERNAL_SYMBOL_TYPE; t25754.s0.value.external_symbol_type = q410; /* x198128 */ t25754.s1.tag = NULL_TYPE; /* x198129 */ t25753.s1.tag = STRUCTURE_TYPE24753; t25753.s1.value.structure_type24753 = &t25754; /* x198130 */ t25752.s0.tag = STRUCTURE_TYPE24753; t25752.s0.value.structure_type24753 = &t25753; /* x198131 */ t25752.s1.tag = NULL_TYPE; /* x198132 */ t25751.s1.tag = STRUCTURE_TYPE24753; t25751.s1.value.structure_type24753 = &t25752; /* x198133 */ t25750.s0.tag = STRUCTURE_TYPE24753; t25750.s0.value.structure_type24753 = &t25751; /* x198134 */ t25756.s0.tag = EXTERNAL_SYMBOL_TYPE; t25756.s0.value.external_symbol_type = q108; /* x198135 */ t25757.s0.tag = EXTERNAL_SYMBOL_TYPE; t25757.s0.value.external_symbol_type = q410; /* x198136 */ t25757.s1.tag = NULL_TYPE; /* x198137 */ t25756.s1.tag = STRUCTURE_TYPE24753; t25756.s1.value.structure_type24753 = &t25757; /* x198138 */ t25755.s0.tag = STRUCTURE_TYPE24753; t25755.s0.value.structure_type24753 = &t25756; /* x198139 */ t25755.s1.tag = NULL_TYPE; /* x198140 */ t25750.s1.tag = STRUCTURE_TYPE24753; t25750.s1.value.structure_type24753 = &t25755; /* x198141 */ t25747.s1.tag = STRUCTURE_TYPE24753; t25747.s1.value.structure_type24753 = &t25750; /* x198142 */ t25746.s1.tag = STRUCTURE_TYPE24753; t25746.s1.value.structure_type24753 = &t25747; /* x198143 */ t25745.s1.tag = STRUCTURE_TYPE24753; t25745.s1.value.structure_type24753 = &t25746; /* x198144 */ t25744.s1.tag = STRUCTURE_TYPE24753; t25744.s1.value.structure_type24753 = &t25745; /* x198145 */ t25743.s0.tag = STRUCTURE_TYPE24753; t25743.s0.value.structure_type24753 = &t25744; /* x198146 */ t25743.s1.tag = NULL_TYPE; /* x198147 */ t25740.s1.tag = STRUCTURE_TYPE24753; t25740.s1.value.structure_type24753 = &t25743; /* x198148 */ t25739.s1.tag = STRUCTURE_TYPE24753; t25739.s1.value.structure_type24753 = &t25740; /* x198149 */ t25738.s0.tag = STRUCTURE_TYPE24753; t25738.s0.value.structure_type24753 = &t25739; /* x198150 */ t25738.s1.tag = NULL_TYPE; /* x198151 */ t25685.s1.tag = STRUCTURE_TYPE24753; t25685.s1.value.structure_type24753 = &t25738; /* x198152 */ t25684.s1.tag = STRUCTURE_TYPE24753; t25684.s1.value.structure_type24753 = &t25685; /* x198153 */ t25683.s0.tag = STRUCTURE_TYPE24753; t25683.s0.value.structure_type24753 = &t25684; /* x198154 */ t25683.s1.tag = NULL_TYPE; /* x198155 */ t25663.s1.tag = STRUCTURE_TYPE24753; t25663.s1.value.structure_type24753 = &t25683; /* x198156 */ t25662.s1.tag = STRUCTURE_TYPE24753; t25662.s1.value.structure_type24753 = &t25663; /* x198157 */ t25661.s1.tag = STRUCTURE_TYPE24753; t25661.s1.value.structure_type24753 = &t25662; /* x198158 */ t25660.s0.tag = STRUCTURE_TYPE24753; t25660.s0.value.structure_type24753 = &t25661; /* x198159 */ t25660.s1.tag = NULL_TYPE; /* x198160 */ t25656.s1.tag = STRUCTURE_TYPE24753; t25656.s1.value.structure_type24753 = &t25660; /* x198161 */ t25655.s1.tag = STRUCTURE_TYPE24753; t25655.s1.value.structure_type24753 = &t25656; /* x198164 */ t25762.s0.tag = EXTERNAL_SYMBOL_TYPE; t25762.s0.value.external_symbol_type = q97; /* x198165 */ t25764.s0.tag = EXTERNAL_SYMBOL_TYPE; t25764.s0.value.external_symbol_type = q476; /* x198166 */ t25765.s0.tag = EXTERNAL_SYMBOL_TYPE; t25765.s0.value.external_symbol_type = q468; /* x198167 */ t25766.s0.tag = EXTERNAL_SYMBOL_TYPE; t25766.s0.value.external_symbol_type = q469; /* x198168 */ t25766.s1.tag = EXTERNAL_SYMBOL_TYPE; t25766.s1.value.external_symbol_type = q410; /* x198169 */ t25765.s1.tag = STRUCTURE_TYPE24753; t25765.s1.value.structure_type24753 = &t25766; /* x198170 */ t25764.s1.tag = STRUCTURE_TYPE24753; t25764.s1.value.structure_type24753 = &t25765; /* x198171 */ t25763.s0.tag = STRUCTURE_TYPE24753; t25763.s0.value.structure_type24753 = &t25764; /* x198172 */ t25768.s0.tag = EXTERNAL_SYMBOL_TYPE; t25768.s0.value.external_symbol_type = q242; /* x198173 */ t25769.s0.tag = EXTERNAL_SYMBOL_TYPE; t25769.s0.value.external_symbol_type = q289; /* x198174 */ t25772.s0.tag = EXTERNAL_SYMBOL_TYPE; t25772.s0.value.external_symbol_type = q468; /* x198175 */ t25773.s0.tag = EXTERNAL_SYMBOL_TYPE; t25773.s0.value.external_symbol_type = q468; /* x198176 */ t25773.s1.tag = NULL_TYPE; /* x198177 */ t25772.s1.tag = STRUCTURE_TYPE24753; t25772.s1.value.structure_type24753 = &t25773; /* x198178 */ t25771.s0.tag = STRUCTURE_TYPE24753; t25771.s0.value.structure_type24753 = &t25772; /* x198179 */ t25775.s0.tag = EXTERNAL_SYMBOL_TYPE; t25775.s0.value.external_symbol_type = q449; /* x198180 */ t25777.s0.tag = EXTERNAL_SYMBOL_TYPE; t25777.s0.value.external_symbol_type = q162; /* x198181 */ t25778.s0.tag = EXTERNAL_SYMBOL_TYPE; t25778.s0.value.external_symbol_type = q468; /* x198182 */ t25778.s1.tag = NULL_TYPE; /* x198183 */ t25777.s1.tag = STRUCTURE_TYPE24753; t25777.s1.value.structure_type24753 = &t25778; /* x198184 */ t25776.s0.tag = STRUCTURE_TYPE24753; t25776.s0.value.structure_type24753 = &t25777; /* x198185 */ t25776.s1.tag = NULL_TYPE; /* x198186 */ t25775.s1.tag = STRUCTURE_TYPE24753; t25775.s1.value.structure_type24753 = &t25776; /* x198187 */ t25774.s0.tag = STRUCTURE_TYPE24753; t25774.s0.value.structure_type24753 = &t25775; /* x198188 */ t25780.s0.tag = EXTERNAL_SYMBOL_TYPE; t25780.s0.value.external_symbol_type = q469; /* x198189 */ t25781.s0.tag = EXTERNAL_SYMBOL_TYPE; t25781.s0.value.external_symbol_type = q469; /* x198190 */ t25781.s1.tag = NULL_TYPE; /* x198191 */ t25780.s1.tag = STRUCTURE_TYPE24753; t25780.s1.value.structure_type24753 = &t25781; /* x198192 */ t25779.s0.tag = STRUCTURE_TYPE24753; t25779.s0.value.structure_type24753 = &t25780; /* x198193 */ t25783.s0.tag = EXTERNAL_SYMBOL_TYPE; t25783.s0.value.external_symbol_type = q450; /* x198194 */ t25785.s0.tag = EXTERNAL_SYMBOL_TYPE; t25785.s0.value.external_symbol_type = q162; /* x198195 */ t25786.s0.tag = EXTERNAL_SYMBOL_TYPE; t25786.s0.value.external_symbol_type = q469; /* x198196 */ t25786.s1.tag = NULL_TYPE; /* x198197 */ t25785.s1.tag = STRUCTURE_TYPE24753; t25785.s1.value.structure_type24753 = &t25786; /* x198198 */ t25784.s0.tag = STRUCTURE_TYPE24753; t25784.s0.value.structure_type24753 = &t25785; /* x198199 */ t25784.s1.tag = NULL_TYPE; /* x198200 */ t25783.s1.tag = STRUCTURE_TYPE24753; t25783.s1.value.structure_type24753 = &t25784; /* x198201 */ t25782.s0.tag = STRUCTURE_TYPE24753; t25782.s0.value.structure_type24753 = &t25783; /* x198202 */ t25788.s0.tag = EXTERNAL_SYMBOL_TYPE; t25788.s0.value.external_symbol_type = q410; /* x198203 */ t25789.s0.tag = EXTERNAL_SYMBOL_TYPE; t25789.s0.value.external_symbol_type = q410; /* x198204 */ t25789.s1.tag = NULL_TYPE; /* x198205 */ t25788.s1.tag = STRUCTURE_TYPE24753; t25788.s1.value.structure_type24753 = &t25789; /* x198206 */ t25787.s0.tag = STRUCTURE_TYPE24753; t25787.s0.value.structure_type24753 = &t25788; /* x198207 */ t25787.s1.tag = NULL_TYPE; /* x198208 */ t25782.s1.tag = STRUCTURE_TYPE24753; t25782.s1.value.structure_type24753 = &t25787; /* x198209 */ t25779.s1.tag = STRUCTURE_TYPE24753; t25779.s1.value.structure_type24753 = &t25782; /* x198210 */ t25774.s1.tag = STRUCTURE_TYPE24753; t25774.s1.value.structure_type24753 = &t25779; /* x198211 */ t25771.s1.tag = STRUCTURE_TYPE24753; t25771.s1.value.structure_type24753 = &t25774; /* x198212 */ t25770.s0.tag = STRUCTURE_TYPE24753; t25770.s0.value.structure_type24753 = &t25771; /* x198213 */ t25791.s0.tag = EXTERNAL_SYMBOL_TYPE; t25791.s0.value.external_symbol_type = q244; /* x198214 */ t25793.s0.tag = EXTERNAL_SYMBOL_TYPE; t25793.s0.value.external_symbol_type = q242; /* x198215 */ t25794.s0.tag = EXTERNAL_SYMBOL_TYPE; t25794.s0.value.external_symbol_type = q289; /* x198216 */ t25797.s0.tag = EXTERNAL_SYMBOL_TYPE; t25797.s0.value.external_symbol_type = q337; /* x198217 */ t25798.s0.tag = FIXNUM_TYPE; t25798.s0.value.fixnum_type = 0; /* x198218 */ t25798.s1.tag = NULL_TYPE; /* x198219 */ t25797.s1.tag = STRUCTURE_TYPE24753; t25797.s1.value.structure_type24753 = &t25798; /* x198220 */ t25796.s0.tag = STRUCTURE_TYPE24753; t25796.s0.value.structure_type24753 = &t25797; /* x198221 */ t25796.s1.tag = NULL_TYPE; /* x198222 */ t25795.s0.tag = STRUCTURE_TYPE24753; t25795.s0.value.structure_type24753 = &t25796; /* x198223 */ t25800.s0.tag = EXTERNAL_SYMBOL_TYPE; t25800.s0.value.external_symbol_type = q43; /* x198224 */ t25802.s0.tag = EXTERNAL_SYMBOL_TYPE; t25802.s0.value.external_symbol_type = q120; /* x198225 */ t25803.s0.tag = EXTERNAL_SYMBOL_TYPE; t25803.s0.value.external_symbol_type = q337; /* x198226 */ t25804.s0.tag = EXTERNAL_SYMBOL_TYPE; t25804.s0.value.external_symbol_type = q450; /* x198227 */ t25804.s1.tag = NULL_TYPE; /* x198228 */ t25803.s1.tag = STRUCTURE_TYPE24753; t25803.s1.value.structure_type24753 = &t25804; /* x198229 */ t25802.s1.tag = STRUCTURE_TYPE24753; t25802.s1.value.structure_type24753 = &t25803; /* x198230 */ t25801.s0.tag = STRUCTURE_TYPE24753; t25801.s0.value.structure_type24753 = &t25802; /* x198231 */ t25806.s0.tag = EXTERNAL_SYMBOL_TYPE; t25806.s0.value.external_symbol_type = q121; /* x198232 */ t25807.s0.tag = EXTERNAL_SYMBOL_TYPE; t25807.s0.value.external_symbol_type = q337; /* x198233 */ t25808.s0.tag = EXTERNAL_SYMBOL_TYPE; t25808.s0.value.external_symbol_type = q449; /* x198234 */ t25808.s1.tag = NULL_TYPE; /* x198235 */ t25807.s1.tag = STRUCTURE_TYPE24753; t25807.s1.value.structure_type24753 = &t25808; /* x198236 */ t25806.s1.tag = STRUCTURE_TYPE24753; t25806.s1.value.structure_type24753 = &t25807; /* x198237 */ t25805.s0.tag = STRUCTURE_TYPE24753; t25805.s0.value.structure_type24753 = &t25806; /* x198238 */ t25810.s0.tag = EXTERNAL_SYMBOL_TYPE; t25810.s0.value.external_symbol_type = q244; /* x198239 */ t25812.s0.tag = EXTERNAL_SYMBOL_TYPE; t25812.s0.value.external_symbol_type = q121; /* x198240 */ t25813.s0.tag = EXTERNAL_SYMBOL_TYPE; t25813.s0.value.external_symbol_type = q337; /* x198241 */ t25814.s0.tag = EXTERNAL_SYMBOL_TYPE; t25814.s0.value.external_symbol_type = q449; /* x198242 */ t25814.s1.tag = NULL_TYPE; /* x198243 */ t25813.s1.tag = STRUCTURE_TYPE24753; t25813.s1.value.structure_type24753 = &t25814; /* x198244 */ t25812.s1.tag = STRUCTURE_TYPE24753; t25812.s1.value.structure_type24753 = &t25813; /* x198245 */ t25811.s0.tag = STRUCTURE_TYPE24753; t25811.s0.value.structure_type24753 = &t25812; /* x198246 */ t25816.s0.tag = EXTERNAL_SYMBOL_TYPE; t25816.s0.value.external_symbol_type = q241; /* x198247 */ t25818.s0.tag = EXTERNAL_SYMBOL_TYPE; t25818.s0.value.external_symbol_type = q461; /* x198248 */ t25820.s0.tag = EXTERNAL_SYMBOL_TYPE; t25820.s0.value.external_symbol_type = q163; /* x198249 */ t25821.s0.tag = EXTERNAL_SYMBOL_TYPE; t25821.s0.value.external_symbol_type = q468; /* x198250 */ t25822.s0.tag = EXTERNAL_SYMBOL_TYPE; t25822.s0.value.external_symbol_type = q337; /* x198251 */ t25822.s1.tag = NULL_TYPE; /* x198252 */ t25821.s1.tag = STRUCTURE_TYPE24753; t25821.s1.value.structure_type24753 = &t25822; /* x198253 */ t25820.s1.tag = STRUCTURE_TYPE24753; t25820.s1.value.structure_type24753 = &t25821; /* x198254 */ t25819.s0.tag = STRUCTURE_TYPE24753; t25819.s0.value.structure_type24753 = &t25820; /* x198255 */ t25824.s0.tag = EXTERNAL_SYMBOL_TYPE; t25824.s0.value.external_symbol_type = q163; /* x198256 */ t25825.s0.tag = EXTERNAL_SYMBOL_TYPE; t25825.s0.value.external_symbol_type = q469; /* x198257 */ t25826.s0.tag = EXTERNAL_SYMBOL_TYPE; t25826.s0.value.external_symbol_type = q337; /* x198258 */ t25826.s1.tag = NULL_TYPE; /* x198259 */ t25825.s1.tag = STRUCTURE_TYPE24753; t25825.s1.value.structure_type24753 = &t25826; /* x198260 */ t25824.s1.tag = STRUCTURE_TYPE24753; t25824.s1.value.structure_type24753 = &t25825; /* x198261 */ t25823.s0.tag = STRUCTURE_TYPE24753; t25823.s0.value.structure_type24753 = &t25824; /* x198262 */ t25823.s1.tag = NULL_TYPE; /* x198263 */ t25819.s1.tag = STRUCTURE_TYPE24753; t25819.s1.value.structure_type24753 = &t25823; /* x198264 */ t25818.s1.tag = STRUCTURE_TYPE24753; t25818.s1.value.structure_type24753 = &t25819; /* x198265 */ t25817.s0.tag = STRUCTURE_TYPE24753; t25817.s0.value.structure_type24753 = &t25818; /* x198266 */ t25828.s0.tag = EXTERNAL_SYMBOL_TYPE; t25828.s0.value.external_symbol_type = q244; /* x198267 */ t25830.s0.tag = EXTERNAL_SYMBOL_TYPE; t25830.s0.value.external_symbol_type = q291; /* x198268 */ t25832.s0.tag = EXTERNAL_SYMBOL_TYPE; t25832.s0.value.external_symbol_type = q163; /* x198269 */ t25833.s0.tag = EXTERNAL_SYMBOL_TYPE; t25833.s0.value.external_symbol_type = q468; /* x198270 */ t25834.s0.tag = EXTERNAL_SYMBOL_TYPE; t25834.s0.value.external_symbol_type = q337; /* x198271 */ t25834.s1.tag = NULL_TYPE; /* x198272 */ t25833.s1.tag = STRUCTURE_TYPE24753; t25833.s1.value.structure_type24753 = &t25834; /* x198273 */ t25832.s1.tag = STRUCTURE_TYPE24753; t25832.s1.value.structure_type24753 = &t25833; /* x198274 */ t25831.s0.tag = STRUCTURE_TYPE24753; t25831.s0.value.structure_type24753 = &t25832; /* x198275 */ t25836.s0.tag = EXTERNAL_SYMBOL_TYPE; t25836.s0.value.external_symbol_type = q163; /* x198276 */ t25837.s0.tag = EXTERNAL_SYMBOL_TYPE; t25837.s0.value.external_symbol_type = q469; /* x198277 */ t25838.s0.tag = EXTERNAL_SYMBOL_TYPE; t25838.s0.value.external_symbol_type = q337; /* x198278 */ t25838.s1.tag = NULL_TYPE; /* x198279 */ t25837.s1.tag = STRUCTURE_TYPE24753; t25837.s1.value.structure_type24753 = &t25838; /* x198280 */ t25836.s1.tag = STRUCTURE_TYPE24753; t25836.s1.value.structure_type24753 = &t25837; /* x198281 */ t25835.s0.tag = STRUCTURE_TYPE24753; t25835.s0.value.structure_type24753 = &t25836; /* x198282 */ t25835.s1.tag = NULL_TYPE; /* x198283 */ t25831.s1.tag = STRUCTURE_TYPE24753; t25831.s1.value.structure_type24753 = &t25835; /* x198284 */ t25830.s1.tag = STRUCTURE_TYPE24753; t25830.s1.value.structure_type24753 = &t25831; /* x198285 */ t25829.s0.tag = STRUCTURE_TYPE24753; t25829.s0.value.structure_type24753 = &t25830; /* x198286 */ t25840.s0.tag = EXTERNAL_SYMBOL_TYPE; t25840.s0.value.external_symbol_type = q289; /* x198287 */ t25842.s0.tag = EXTERNAL_SYMBOL_TYPE; t25842.s0.value.external_symbol_type = q4; /* x198288 */ t25843.s0.tag = EXTERNAL_SYMBOL_TYPE; t25843.s0.value.external_symbol_type = q337; /* x198289 */ t25844.s0.tag = FIXNUM_TYPE; t25844.s0.value.fixnum_type = 1; /* x198290 */ t25844.s1.tag = NULL_TYPE; /* x198291 */ t25843.s1.tag = STRUCTURE_TYPE24753; t25843.s1.value.structure_type24753 = &t25844; /* x198292 */ t25842.s1.tag = STRUCTURE_TYPE24753; t25842.s1.value.structure_type24753 = &t25843; /* x198293 */ t25841.s0.tag = STRUCTURE_TYPE24753; t25841.s0.value.structure_type24753 = &t25842; /* x198294 */ t25841.s1.tag = NULL_TYPE; /* x198295 */ t25840.s1.tag = STRUCTURE_TYPE24753; t25840.s1.value.structure_type24753 = &t25841; /* x198296 */ t25839.s0.tag = STRUCTURE_TYPE24753; t25839.s0.value.structure_type24753 = &t25840; /* x198297 */ t25839.s1.tag = NULL_TYPE; /* x198298 */ t25829.s1.tag = STRUCTURE_TYPE24753; t25829.s1.value.structure_type24753 = &t25839; /* x198299 */ t25828.s1.tag = STRUCTURE_TYPE24753; t25828.s1.value.structure_type24753 = &t25829; /* x198300 */ t25827.s0.tag = STRUCTURE_TYPE24753; t25827.s0.value.structure_type24753 = &t25828; /* x198301 */ t25827.s1.tag = NULL_TYPE; /* x198302 */ t25817.s1.tag = STRUCTURE_TYPE24753; t25817.s1.value.structure_type24753 = &t25827; /* x198303 */ t25816.s1.tag = STRUCTURE_TYPE24753; t25816.s1.value.structure_type24753 = &t25817; /* x198304 */ t25815.s0.tag = STRUCTURE_TYPE24753; t25815.s0.value.structure_type24753 = &t25816; /* x198305 */ t25815.s1.tag = NULL_TYPE; /* x198306 */ t25811.s1.tag = STRUCTURE_TYPE24753; t25811.s1.value.structure_type24753 = &t25815; /* x198307 */ t25810.s1.tag = STRUCTURE_TYPE24753; t25810.s1.value.structure_type24753 = &t25811; /* x198308 */ t25809.s0.tag = STRUCTURE_TYPE24753; t25809.s0.value.structure_type24753 = &t25810; /* x198309 */ t25809.s1.tag = NULL_TYPE; /* x198310 */ t25805.s1.tag = STRUCTURE_TYPE24753; t25805.s1.value.structure_type24753 = &t25809; /* x198311 */ t25801.s1.tag = STRUCTURE_TYPE24753; t25801.s1.value.structure_type24753 = &t25805; /* x198312 */ t25800.s1.tag = STRUCTURE_TYPE24753; t25800.s1.value.structure_type24753 = &t25801; /* x198313 */ t25799.s0.tag = STRUCTURE_TYPE24753; t25799.s0.value.structure_type24753 = &t25800; /* x198314 */ t25799.s1.tag = NULL_TYPE; /* x198315 */ t25795.s1.tag = STRUCTURE_TYPE24753; t25795.s1.value.structure_type24753 = &t25799; /* x198316 */ t25794.s1.tag = STRUCTURE_TYPE24753; t25794.s1.value.structure_type24753 = &t25795; /* x198317 */ t25793.s1.tag = STRUCTURE_TYPE24753; t25793.s1.value.structure_type24753 = &t25794; /* x198318 */ t25792.s0.tag = STRUCTURE_TYPE24753; t25792.s0.value.structure_type24753 = &t25793; /* x198319 */ t25846.s0.tag = EXTERNAL_SYMBOL_TYPE; t25846.s0.value.external_symbol_type = q241; /* x198320 */ t25848.s0.tag = EXTERNAL_SYMBOL_TYPE; t25848.s0.value.external_symbol_type = q111; /* x198321 */ t25849.s0.tag = EXTERNAL_SYMBOL_TYPE; t25849.s0.value.external_symbol_type = q410; /* x198322 */ t25849.s1.tag = NULL_TYPE; /* x198323 */ t25848.s1.tag = STRUCTURE_TYPE24753; t25848.s1.value.structure_type24753 = &t25849; /* x198324 */ t25847.s0.tag = STRUCTURE_TYPE24753; t25847.s0.value.structure_type24753 = &t25848; /* x198325 */ t25851.s0.tag = EXTERNAL_SYMBOL_TYPE; t25851.s0.value.external_symbol_type = q289; /* x198326 */ t25852.s0.tag = EXTERNAL_SYMBOL_TYPE; t25852.s0.value.external_symbol_type = q469; /* x198327 */ t25853.s0.tag = EXTERNAL_SYMBOL_TYPE; t25853.s0.value.external_symbol_type = q450; /* x198328 */ t25855.s0.tag = EXTERNAL_SYMBOL_TYPE; t25855.s0.value.external_symbol_type = q107; /* x198329 */ t25856.s0.tag = EXTERNAL_SYMBOL_TYPE; t25856.s0.value.external_symbol_type = q410; /* x198330 */ t25856.s1.tag = NULL_TYPE; /* x198331 */ t25855.s1.tag = STRUCTURE_TYPE24753; t25855.s1.value.structure_type24753 = &t25856; /* x198332 */ t25854.s0.tag = STRUCTURE_TYPE24753; t25854.s0.value.structure_type24753 = &t25855; /* x198333 */ t25858.s0.tag = EXTERNAL_SYMBOL_TYPE; t25858.s0.value.external_symbol_type = q162; /* x198334 */ t25860.s0.tag = EXTERNAL_SYMBOL_TYPE; t25860.s0.value.external_symbol_type = q107; /* x198335 */ t25861.s0.tag = EXTERNAL_SYMBOL_TYPE; t25861.s0.value.external_symbol_type = q410; /* x198336 */ t25861.s1.tag = NULL_TYPE; /* x198337 */ t25860.s1.tag = STRUCTURE_TYPE24753; t25860.s1.value.structure_type24753 = &t25861; /* x198338 */ t25859.s0.tag = STRUCTURE_TYPE24753; t25859.s0.value.structure_type24753 = &t25860; /* x198339 */ t25859.s1.tag = NULL_TYPE; /* x198340 */ t25858.s1.tag = STRUCTURE_TYPE24753; t25858.s1.value.structure_type24753 = &t25859; /* x198341 */ t25857.s0.tag = STRUCTURE_TYPE24753; t25857.s0.value.structure_type24753 = &t25858; /* x198342 */ t25863.s0.tag = EXTERNAL_SYMBOL_TYPE; t25863.s0.value.external_symbol_type = q108; /* x198343 */ t25864.s0.tag = EXTERNAL_SYMBOL_TYPE; t25864.s0.value.external_symbol_type = q410; /* x198344 */ t25864.s1.tag = NULL_TYPE; /* x198345 */ t25863.s1.tag = STRUCTURE_TYPE24753; t25863.s1.value.structure_type24753 = &t25864; /* x198346 */ t25862.s0.tag = STRUCTURE_TYPE24753; t25862.s0.value.structure_type24753 = &t25863; /* x198347 */ t25862.s1.tag = NULL_TYPE; /* x198348 */ t25857.s1.tag = STRUCTURE_TYPE24753; t25857.s1.value.structure_type24753 = &t25862; /* x198349 */ t25854.s1.tag = STRUCTURE_TYPE24753; t25854.s1.value.structure_type24753 = &t25857; /* x198350 */ t25853.s1.tag = STRUCTURE_TYPE24753; t25853.s1.value.structure_type24753 = &t25854; /* x198351 */ t25852.s1.tag = STRUCTURE_TYPE24753; t25852.s1.value.structure_type24753 = &t25853; /* x198352 */ t25851.s1.tag = STRUCTURE_TYPE24753; t25851.s1.value.structure_type24753 = &t25852; /* x198353 */ t25850.s0.tag = STRUCTURE_TYPE24753; t25850.s0.value.structure_type24753 = &t25851; /* x198354 */ t25850.s1.tag = NULL_TYPE; /* x198355 */ t25847.s1.tag = STRUCTURE_TYPE24753; t25847.s1.value.structure_type24753 = &t25850; /* x198356 */ t25846.s1.tag = STRUCTURE_TYPE24753; t25846.s1.value.structure_type24753 = &t25847; /* x198357 */ t25845.s0.tag = STRUCTURE_TYPE24753; t25845.s0.value.structure_type24753 = &t25846; /* x198358 */ t25845.s1.tag = NULL_TYPE; /* x198359 */ t25792.s1.tag = STRUCTURE_TYPE24753; t25792.s1.value.structure_type24753 = &t25845; /* x198360 */ t25791.s1.tag = STRUCTURE_TYPE24753; t25791.s1.value.structure_type24753 = &t25792; /* x198361 */ t25790.s0.tag = STRUCTURE_TYPE24753; t25790.s0.value.structure_type24753 = &t25791; /* x198362 */ t25790.s1.tag = NULL_TYPE; /* x198363 */ t25770.s1.tag = STRUCTURE_TYPE24753; t25770.s1.value.structure_type24753 = &t25790; /* x198364 */ t25769.s1.tag = STRUCTURE_TYPE24753; t25769.s1.value.structure_type24753 = &t25770; /* x198365 */ t25768.s1.tag = STRUCTURE_TYPE24753; t25768.s1.value.structure_type24753 = &t25769; /* x198366 */ t25767.s0.tag = STRUCTURE_TYPE24753; t25767.s0.value.structure_type24753 = &t25768; /* x198367 */ t25767.s1.tag = NULL_TYPE; /* x198368 */ t25763.s1.tag = STRUCTURE_TYPE24753; t25763.s1.value.structure_type24753 = &t25767; /* x198369 */ t25762.s1.tag = STRUCTURE_TYPE24753; t25762.s1.value.structure_type24753 = &t25763; /* x198372 */ t25869.s0.tag = EXTERNAL_SYMBOL_TYPE; t25869.s0.value.external_symbol_type = q97; /* x198373 */ t25871.s0.tag = EXTERNAL_SYMBOL_TYPE; t25871.s0.value.external_symbol_type = q477; /* x198374 */ t25872.s0.tag = EXTERNAL_SYMBOL_TYPE; t25872.s0.value.external_symbol_type = q468; /* x198375 */ t25873.s0.tag = EXTERNAL_SYMBOL_TYPE; t25873.s0.value.external_symbol_type = q469; /* x198376 */ t25873.s1.tag = EXTERNAL_SYMBOL_TYPE; t25873.s1.value.external_symbol_type = q410; /* x198377 */ t25872.s1.tag = STRUCTURE_TYPE24753; t25872.s1.value.structure_type24753 = &t25873; /* x198378 */ t25871.s1.tag = STRUCTURE_TYPE24753; t25871.s1.value.structure_type24753 = &t25872; /* x198379 */ t25870.s0.tag = STRUCTURE_TYPE24753; t25870.s0.value.structure_type24753 = &t25871; /* x198380 */ t25875.s0.tag = EXTERNAL_SYMBOL_TYPE; t25875.s0.value.external_symbol_type = q242; /* x198381 */ t25876.s0.tag = EXTERNAL_SYMBOL_TYPE; t25876.s0.value.external_symbol_type = q289; /* x198382 */ t25879.s0.tag = EXTERNAL_SYMBOL_TYPE; t25879.s0.value.external_symbol_type = q468; /* x198383 */ t25880.s0.tag = EXTERNAL_SYMBOL_TYPE; t25880.s0.value.external_symbol_type = q468; /* x198384 */ t25880.s1.tag = NULL_TYPE; /* x198385 */ t25879.s1.tag = STRUCTURE_TYPE24753; t25879.s1.value.structure_type24753 = &t25880; /* x198386 */ t25878.s0.tag = STRUCTURE_TYPE24753; t25878.s0.value.structure_type24753 = &t25879; /* x198387 */ t25882.s0.tag = EXTERNAL_SYMBOL_TYPE; t25882.s0.value.external_symbol_type = q449; /* x198388 */ t25884.s0.tag = EXTERNAL_SYMBOL_TYPE; t25884.s0.value.external_symbol_type = q162; /* x198389 */ t25885.s0.tag = EXTERNAL_SYMBOL_TYPE; t25885.s0.value.external_symbol_type = q468; /* x198390 */ t25885.s1.tag = NULL_TYPE; /* x198391 */ t25884.s1.tag = STRUCTURE_TYPE24753; t25884.s1.value.structure_type24753 = &t25885; /* x198392 */ t25883.s0.tag = STRUCTURE_TYPE24753; t25883.s0.value.structure_type24753 = &t25884; /* x198393 */ t25883.s1.tag = NULL_TYPE; /* x198394 */ t25882.s1.tag = STRUCTURE_TYPE24753; t25882.s1.value.structure_type24753 = &t25883; /* x198395 */ t25881.s0.tag = STRUCTURE_TYPE24753; t25881.s0.value.structure_type24753 = &t25882; /* x198396 */ t25887.s0.tag = EXTERNAL_SYMBOL_TYPE; t25887.s0.value.external_symbol_type = q469; /* x198397 */ t25888.s0.tag = EXTERNAL_SYMBOL_TYPE; t25888.s0.value.external_symbol_type = q469; /* x198398 */ t25888.s1.tag = NULL_TYPE; /* x198399 */ t25887.s1.tag = STRUCTURE_TYPE24753; t25887.s1.value.structure_type24753 = &t25888; /* x198400 */ t25886.s0.tag = STRUCTURE_TYPE24753; t25886.s0.value.structure_type24753 = &t25887; /* x198401 */ t25890.s0.tag = EXTERNAL_SYMBOL_TYPE; t25890.s0.value.external_symbol_type = q450; /* x198402 */ t25892.s0.tag = EXTERNAL_SYMBOL_TYPE; t25892.s0.value.external_symbol_type = q162; /* x198403 */ t25893.s0.tag = EXTERNAL_SYMBOL_TYPE; t25893.s0.value.external_symbol_type = q469; /* x198404 */ t25893.s1.tag = NULL_TYPE; /* x198405 */ t25892.s1.tag = STRUCTURE_TYPE24753; t25892.s1.value.structure_type24753 = &t25893; /* x198406 */ t25891.s0.tag = STRUCTURE_TYPE24753; t25891.s0.value.structure_type24753 = &t25892; /* x198407 */ t25891.s1.tag = NULL_TYPE; /* x198408 */ t25890.s1.tag = STRUCTURE_TYPE24753; t25890.s1.value.structure_type24753 = &t25891; /* x198409 */ t25889.s0.tag = STRUCTURE_TYPE24753; t25889.s0.value.structure_type24753 = &t25890; /* x198410 */ t25895.s0.tag = EXTERNAL_SYMBOL_TYPE; t25895.s0.value.external_symbol_type = q410; /* x198411 */ t25896.s0.tag = EXTERNAL_SYMBOL_TYPE; t25896.s0.value.external_symbol_type = q410; /* x198412 */ t25896.s1.tag = NULL_TYPE; /* x198413 */ t25895.s1.tag = STRUCTURE_TYPE24753; t25895.s1.value.structure_type24753 = &t25896; /* x198414 */ t25894.s0.tag = STRUCTURE_TYPE24753; t25894.s0.value.structure_type24753 = &t25895; /* x198415 */ t25894.s1.tag = NULL_TYPE; /* x198416 */ t25889.s1.tag = STRUCTURE_TYPE24753; t25889.s1.value.structure_type24753 = &t25894; /* x198417 */ t25886.s1.tag = STRUCTURE_TYPE24753; t25886.s1.value.structure_type24753 = &t25889; /* x198418 */ t25881.s1.tag = STRUCTURE_TYPE24753; t25881.s1.value.structure_type24753 = &t25886; /* x198419 */ t25878.s1.tag = STRUCTURE_TYPE24753; t25878.s1.value.structure_type24753 = &t25881; /* x198420 */ t25877.s0.tag = STRUCTURE_TYPE24753; t25877.s0.value.structure_type24753 = &t25878; /* x198421 */ t25898.s0.tag = EXTERNAL_SYMBOL_TYPE; t25898.s0.value.external_symbol_type = q244; /* x198422 */ t25900.s0.tag = EXTERNAL_SYMBOL_TYPE; t25900.s0.value.external_symbol_type = q242; /* x198423 */ t25901.s0.tag = EXTERNAL_SYMBOL_TYPE; t25901.s0.value.external_symbol_type = q289; /* x198424 */ t25904.s0.tag = EXTERNAL_SYMBOL_TYPE; t25904.s0.value.external_symbol_type = q337; /* x198425 */ t25905.s0.tag = FIXNUM_TYPE; t25905.s0.value.fixnum_type = 0; /* x198426 */ t25905.s1.tag = NULL_TYPE; /* x198427 */ t25904.s1.tag = STRUCTURE_TYPE24753; t25904.s1.value.structure_type24753 = &t25905; /* x198428 */ t25903.s0.tag = STRUCTURE_TYPE24753; t25903.s0.value.structure_type24753 = &t25904; /* x198429 */ t25903.s1.tag = NULL_TYPE; /* x198430 */ t25902.s0.tag = STRUCTURE_TYPE24753; t25902.s0.value.structure_type24753 = &t25903; /* x198431 */ t25907.s0.tag = EXTERNAL_SYMBOL_TYPE; t25907.s0.value.external_symbol_type = q43; /* x198432 */ t25909.s0.tag = EXTERNAL_SYMBOL_TYPE; t25909.s0.value.external_symbol_type = q120; /* x198433 */ t25910.s0.tag = EXTERNAL_SYMBOL_TYPE; t25910.s0.value.external_symbol_type = q337; /* x198434 */ t25911.s0.tag = EXTERNAL_SYMBOL_TYPE; t25911.s0.value.external_symbol_type = q449; /* x198435 */ t25911.s1.tag = NULL_TYPE; /* x198436 */ t25910.s1.tag = STRUCTURE_TYPE24753; t25910.s1.value.structure_type24753 = &t25911; /* x198437 */ t25909.s1.tag = STRUCTURE_TYPE24753; t25909.s1.value.structure_type24753 = &t25910; /* x198438 */ t25908.s0.tag = STRUCTURE_TYPE24753; t25908.s0.value.structure_type24753 = &t25909; /* x198439 */ t25913.s0.tag = EXTERNAL_SYMBOL_TYPE; t25913.s0.value.external_symbol_type = q123; /* x198440 */ t25914.s0.tag = EXTERNAL_SYMBOL_TYPE; t25914.s0.value.external_symbol_type = q337; /* x198441 */ t25915.s0.tag = EXTERNAL_SYMBOL_TYPE; t25915.s0.value.external_symbol_type = q450; /* x198442 */ t25915.s1.tag = NULL_TYPE; /* x198443 */ t25914.s1.tag = STRUCTURE_TYPE24753; t25914.s1.value.structure_type24753 = &t25915; /* x198444 */ t25913.s1.tag = STRUCTURE_TYPE24753; t25913.s1.value.structure_type24753 = &t25914; /* x198445 */ t25912.s0.tag = STRUCTURE_TYPE24753; t25912.s0.value.structure_type24753 = &t25913; /* x198446 */ t25917.s0.tag = EXTERNAL_SYMBOL_TYPE; t25917.s0.value.external_symbol_type = q244; /* x198447 */ t25919.s0.tag = EXTERNAL_SYMBOL_TYPE; t25919.s0.value.external_symbol_type = q121; /* x198448 */ t25920.s0.tag = EXTERNAL_SYMBOL_TYPE; t25920.s0.value.external_symbol_type = q337; /* x198449 */ t25921.s0.tag = EXTERNAL_SYMBOL_TYPE; t25921.s0.value.external_symbol_type = q450; /* x198450 */ t25921.s1.tag = NULL_TYPE; /* x198451 */ t25920.s1.tag = STRUCTURE_TYPE24753; t25920.s1.value.structure_type24753 = &t25921; /* x198452 */ t25919.s1.tag = STRUCTURE_TYPE24753; t25919.s1.value.structure_type24753 = &t25920; /* x198453 */ t25918.s0.tag = STRUCTURE_TYPE24753; t25918.s0.value.structure_type24753 = &t25919; /* x198454 */ t25923.s0.tag = EXTERNAL_SYMBOL_TYPE; t25923.s0.value.external_symbol_type = q241; /* x198455 */ t25925.s0.tag = EXTERNAL_SYMBOL_TYPE; t25925.s0.value.external_symbol_type = q460; /* x198456 */ t25927.s0.tag = EXTERNAL_SYMBOL_TYPE; t25927.s0.value.external_symbol_type = q163; /* x198457 */ t25928.s0.tag = EXTERNAL_SYMBOL_TYPE; t25928.s0.value.external_symbol_type = q468; /* x198458 */ t25929.s0.tag = EXTERNAL_SYMBOL_TYPE; t25929.s0.value.external_symbol_type = q337; /* x198459 */ t25929.s1.tag = NULL_TYPE; /* x198460 */ t25928.s1.tag = STRUCTURE_TYPE24753; t25928.s1.value.structure_type24753 = &t25929; /* x198461 */ t25927.s1.tag = STRUCTURE_TYPE24753; t25927.s1.value.structure_type24753 = &t25928; /* x198462 */ t25926.s0.tag = STRUCTURE_TYPE24753; t25926.s0.value.structure_type24753 = &t25927; /* x198463 */ t25931.s0.tag = EXTERNAL_SYMBOL_TYPE; t25931.s0.value.external_symbol_type = q163; /* x198464 */ t25932.s0.tag = EXTERNAL_SYMBOL_TYPE; t25932.s0.value.external_symbol_type = q469; /* x198465 */ t25933.s0.tag = EXTERNAL_SYMBOL_TYPE; t25933.s0.value.external_symbol_type = q337; /* x198466 */ t25933.s1.tag = NULL_TYPE; /* x198467 */ t25932.s1.tag = STRUCTURE_TYPE24753; t25932.s1.value.structure_type24753 = &t25933; /* x198468 */ t25931.s1.tag = STRUCTURE_TYPE24753; t25931.s1.value.structure_type24753 = &t25932; /* x198469 */ t25930.s0.tag = STRUCTURE_TYPE24753; t25930.s0.value.structure_type24753 = &t25931; /* x198470 */ t25930.s1.tag = NULL_TYPE; /* x198471 */ t25926.s1.tag = STRUCTURE_TYPE24753; t25926.s1.value.structure_type24753 = &t25930; /* x198472 */ t25925.s1.tag = STRUCTURE_TYPE24753; t25925.s1.value.structure_type24753 = &t25926; /* x198473 */ t25924.s0.tag = STRUCTURE_TYPE24753; t25924.s0.value.structure_type24753 = &t25925; /* x198474 */ t25935.s0.tag = EXTERNAL_SYMBOL_TYPE; t25935.s0.value.external_symbol_type = q244; /* x198475 */ t25937.s0.tag = EXTERNAL_SYMBOL_TYPE; t25937.s0.value.external_symbol_type = q291; /* x198476 */ t25939.s0.tag = EXTERNAL_SYMBOL_TYPE; t25939.s0.value.external_symbol_type = q163; /* x198477 */ t25940.s0.tag = EXTERNAL_SYMBOL_TYPE; t25940.s0.value.external_symbol_type = q468; /* x198478 */ t25941.s0.tag = EXTERNAL_SYMBOL_TYPE; t25941.s0.value.external_symbol_type = q337; /* x198479 */ t25941.s1.tag = NULL_TYPE; /* x198480 */ t25940.s1.tag = STRUCTURE_TYPE24753; t25940.s1.value.structure_type24753 = &t25941; /* x198481 */ t25939.s1.tag = STRUCTURE_TYPE24753; t25939.s1.value.structure_type24753 = &t25940; /* x198482 */ t25938.s0.tag = STRUCTURE_TYPE24753; t25938.s0.value.structure_type24753 = &t25939; /* x198483 */ t25943.s0.tag = EXTERNAL_SYMBOL_TYPE; t25943.s0.value.external_symbol_type = q163; /* x198484 */ t25944.s0.tag = EXTERNAL_SYMBOL_TYPE; t25944.s0.value.external_symbol_type = q469; /* x198485 */ t25945.s0.tag = EXTERNAL_SYMBOL_TYPE; t25945.s0.value.external_symbol_type = q337; /* x198486 */ t25945.s1.tag = NULL_TYPE; /* x198487 */ t25944.s1.tag = STRUCTURE_TYPE24753; t25944.s1.value.structure_type24753 = &t25945; /* x198488 */ t25943.s1.tag = STRUCTURE_TYPE24753; t25943.s1.value.structure_type24753 = &t25944; /* x198489 */ t25942.s0.tag = STRUCTURE_TYPE24753; t25942.s0.value.structure_type24753 = &t25943; /* x198490 */ t25942.s1.tag = NULL_TYPE; /* x198491 */ t25938.s1.tag = STRUCTURE_TYPE24753; t25938.s1.value.structure_type24753 = &t25942; /* x198492 */ t25937.s1.tag = STRUCTURE_TYPE24753; t25937.s1.value.structure_type24753 = &t25938; /* x198493 */ t25936.s0.tag = STRUCTURE_TYPE24753; t25936.s0.value.structure_type24753 = &t25937; /* x198494 */ t25947.s0.tag = EXTERNAL_SYMBOL_TYPE; t25947.s0.value.external_symbol_type = q289; /* x198495 */ t25949.s0.tag = EXTERNAL_SYMBOL_TYPE; t25949.s0.value.external_symbol_type = q4; /* x198496 */ t25950.s0.tag = EXTERNAL_SYMBOL_TYPE; t25950.s0.value.external_symbol_type = q337; /* x198497 */ t25951.s0.tag = FIXNUM_TYPE; t25951.s0.value.fixnum_type = 1; /* x198498 */ t25951.s1.tag = NULL_TYPE; /* x198499 */ t25950.s1.tag = STRUCTURE_TYPE24753; t25950.s1.value.structure_type24753 = &t25951; /* x198500 */ t25949.s1.tag = STRUCTURE_TYPE24753; t25949.s1.value.structure_type24753 = &t25950; /* x198501 */ t25948.s0.tag = STRUCTURE_TYPE24753; t25948.s0.value.structure_type24753 = &t25949; /* x198502 */ t25948.s1.tag = NULL_TYPE; /* x198503 */ t25947.s1.tag = STRUCTURE_TYPE24753; t25947.s1.value.structure_type24753 = &t25948; /* x198504 */ t25946.s0.tag = STRUCTURE_TYPE24753; t25946.s0.value.structure_type24753 = &t25947; /* x198505 */ t25946.s1.tag = NULL_TYPE; /* x198506 */ t25936.s1.tag = STRUCTURE_TYPE24753; t25936.s1.value.structure_type24753 = &t25946; /* x198507 */ t25935.s1.tag = STRUCTURE_TYPE24753; t25935.s1.value.structure_type24753 = &t25936; /* x198508 */ t25934.s0.tag = STRUCTURE_TYPE24753; t25934.s0.value.structure_type24753 = &t25935; /* x198509 */ t25934.s1.tag = NULL_TYPE; /* x198510 */ t25924.s1.tag = STRUCTURE_TYPE24753; t25924.s1.value.structure_type24753 = &t25934; /* x198511 */ t25923.s1.tag = STRUCTURE_TYPE24753; t25923.s1.value.structure_type24753 = &t25924; /* x198512 */ t25922.s0.tag = STRUCTURE_TYPE24753; t25922.s0.value.structure_type24753 = &t25923; /* x198513 */ t25922.s1.tag = NULL_TYPE; /* x198514 */ t25918.s1.tag = STRUCTURE_TYPE24753; t25918.s1.value.structure_type24753 = &t25922; /* x198515 */ t25917.s1.tag = STRUCTURE_TYPE24753; t25917.s1.value.structure_type24753 = &t25918; /* x198516 */ t25916.s0.tag = STRUCTURE_TYPE24753; t25916.s0.value.structure_type24753 = &t25917; /* x198517 */ t25916.s1.tag = NULL_TYPE; /* x198518 */ t25912.s1.tag = STRUCTURE_TYPE24753; t25912.s1.value.structure_type24753 = &t25916; /* x198519 */ t25908.s1.tag = STRUCTURE_TYPE24753; t25908.s1.value.structure_type24753 = &t25912; /* x198520 */ t25907.s1.tag = STRUCTURE_TYPE24753; t25907.s1.value.structure_type24753 = &t25908; /* x198521 */ t25906.s0.tag = STRUCTURE_TYPE24753; t25906.s0.value.structure_type24753 = &t25907; /* x198522 */ t25906.s1.tag = NULL_TYPE; /* x198523 */ t25902.s1.tag = STRUCTURE_TYPE24753; t25902.s1.value.structure_type24753 = &t25906; /* x198524 */ t25901.s1.tag = STRUCTURE_TYPE24753; t25901.s1.value.structure_type24753 = &t25902; /* x198525 */ t25900.s1.tag = STRUCTURE_TYPE24753; t25900.s1.value.structure_type24753 = &t25901; /* x198526 */ t25899.s0.tag = STRUCTURE_TYPE24753; t25899.s0.value.structure_type24753 = &t25900; /* x198527 */ t25953.s0.tag = EXTERNAL_SYMBOL_TYPE; t25953.s0.value.external_symbol_type = q241; /* x198528 */ t25955.s0.tag = EXTERNAL_SYMBOL_TYPE; t25955.s0.value.external_symbol_type = q111; /* x198529 */ t25956.s0.tag = EXTERNAL_SYMBOL_TYPE; t25956.s0.value.external_symbol_type = q410; /* x198530 */ t25956.s1.tag = NULL_TYPE; /* x198531 */ t25955.s1.tag = STRUCTURE_TYPE24753; t25955.s1.value.structure_type24753 = &t25956; /* x198532 */ t25954.s0.tag = STRUCTURE_TYPE24753; t25954.s0.value.structure_type24753 = &t25955; /* x198533 */ t25958.s0.tag = EXTERNAL_SYMBOL_TYPE; t25958.s0.value.external_symbol_type = q289; /* x198534 */ t25959.s0.tag = EXTERNAL_SYMBOL_TYPE; t25959.s0.value.external_symbol_type = q469; /* x198535 */ t25960.s0.tag = EXTERNAL_SYMBOL_TYPE; t25960.s0.value.external_symbol_type = q450; /* x198536 */ t25962.s0.tag = EXTERNAL_SYMBOL_TYPE; t25962.s0.value.external_symbol_type = q107; /* x198537 */ t25963.s0.tag = EXTERNAL_SYMBOL_TYPE; t25963.s0.value.external_symbol_type = q410; /* x198538 */ t25963.s1.tag = NULL_TYPE; /* x198539 */ t25962.s1.tag = STRUCTURE_TYPE24753; t25962.s1.value.structure_type24753 = &t25963; /* x198540 */ t25961.s0.tag = STRUCTURE_TYPE24753; t25961.s0.value.structure_type24753 = &t25962; /* x198541 */ t25965.s0.tag = EXTERNAL_SYMBOL_TYPE; t25965.s0.value.external_symbol_type = q162; /* x198542 */ t25967.s0.tag = EXTERNAL_SYMBOL_TYPE; t25967.s0.value.external_symbol_type = q107; /* x198543 */ t25968.s0.tag = EXTERNAL_SYMBOL_TYPE; t25968.s0.value.external_symbol_type = q410; /* x198544 */ t25968.s1.tag = NULL_TYPE; /* x198545 */ t25967.s1.tag = STRUCTURE_TYPE24753; t25967.s1.value.structure_type24753 = &t25968; /* x198546 */ t25966.s0.tag = STRUCTURE_TYPE24753; t25966.s0.value.structure_type24753 = &t25967; /* x198547 */ t25966.s1.tag = NULL_TYPE; /* x198548 */ t25965.s1.tag = STRUCTURE_TYPE24753; t25965.s1.value.structure_type24753 = &t25966; /* x198549 */ t25964.s0.tag = STRUCTURE_TYPE24753; t25964.s0.value.structure_type24753 = &t25965; /* x198550 */ t25970.s0.tag = EXTERNAL_SYMBOL_TYPE; t25970.s0.value.external_symbol_type = q108; /* x198551 */ t25971.s0.tag = EXTERNAL_SYMBOL_TYPE; t25971.s0.value.external_symbol_type = q410; /* x198552 */ t25971.s1.tag = NULL_TYPE; /* x198553 */ t25970.s1.tag = STRUCTURE_TYPE24753; t25970.s1.value.structure_type24753 = &t25971; /* x198554 */ t25969.s0.tag = STRUCTURE_TYPE24753; t25969.s0.value.structure_type24753 = &t25970; /* x198555 */ t25969.s1.tag = NULL_TYPE; /* x198556 */ t25964.s1.tag = STRUCTURE_TYPE24753; t25964.s1.value.structure_type24753 = &t25969; /* x198557 */ t25961.s1.tag = STRUCTURE_TYPE24753; t25961.s1.value.structure_type24753 = &t25964; /* x198558 */ t25960.s1.tag = STRUCTURE_TYPE24753; t25960.s1.value.structure_type24753 = &t25961; /* x198559 */ t25959.s1.tag = STRUCTURE_TYPE24753; t25959.s1.value.structure_type24753 = &t25960; /* x198560 */ t25958.s1.tag = STRUCTURE_TYPE24753; t25958.s1.value.structure_type24753 = &t25959; /* x198561 */ t25957.s0.tag = STRUCTURE_TYPE24753; t25957.s0.value.structure_type24753 = &t25958; /* x198562 */ t25957.s1.tag = NULL_TYPE; /* x198563 */ t25954.s1.tag = STRUCTURE_TYPE24753; t25954.s1.value.structure_type24753 = &t25957; /* x198564 */ t25953.s1.tag = STRUCTURE_TYPE24753; t25953.s1.value.structure_type24753 = &t25954; /* x198565 */ t25952.s0.tag = STRUCTURE_TYPE24753; t25952.s0.value.structure_type24753 = &t25953; /* x198566 */ t25952.s1.tag = NULL_TYPE; /* x198567 */ t25899.s1.tag = STRUCTURE_TYPE24753; t25899.s1.value.structure_type24753 = &t25952; /* x198568 */ t25898.s1.tag = STRUCTURE_TYPE24753; t25898.s1.value.structure_type24753 = &t25899; /* x198569 */ t25897.s0.tag = STRUCTURE_TYPE24753; t25897.s0.value.structure_type24753 = &t25898; /* x198570 */ t25897.s1.tag = NULL_TYPE; /* x198571 */ t25877.s1.tag = STRUCTURE_TYPE24753; t25877.s1.value.structure_type24753 = &t25897; /* x198572 */ t25876.s1.tag = STRUCTURE_TYPE24753; t25876.s1.value.structure_type24753 = &t25877; /* x198573 */ t25875.s1.tag = STRUCTURE_TYPE24753; t25875.s1.value.structure_type24753 = &t25876; /* x198574 */ t25874.s0.tag = STRUCTURE_TYPE24753; t25874.s0.value.structure_type24753 = &t25875; /* x198575 */ t25874.s1.tag = NULL_TYPE; /* x198576 */ t25870.s1.tag = STRUCTURE_TYPE24753; t25870.s1.value.structure_type24753 = &t25874; /* x198577 */ t25869.s1.tag = STRUCTURE_TYPE24753; t25869.s1.value.structure_type24753 = &t25870; /* x198580 */ t25976.s0.tag = EXTERNAL_SYMBOL_TYPE; t25976.s0.value.external_symbol_type = q97; /* x198581 */ t25978.s0.tag = EXTERNAL_SYMBOL_TYPE; t25978.s0.value.external_symbol_type = q478; /* x198582 */ t25979.s0.tag = EXTERNAL_SYMBOL_TYPE; t25979.s0.value.external_symbol_type = q468; /* x198583 */ t25980.s0.tag = EXTERNAL_SYMBOL_TYPE; t25980.s0.value.external_symbol_type = q469; /* x198584 */ t25980.s1.tag = EXTERNAL_SYMBOL_TYPE; t25980.s1.value.external_symbol_type = q410; /* x198585 */ t25979.s1.tag = STRUCTURE_TYPE24753; t25979.s1.value.structure_type24753 = &t25980; /* x198586 */ t25978.s1.tag = STRUCTURE_TYPE24753; t25978.s1.value.structure_type24753 = &t25979; /* x198587 */ t25977.s0.tag = STRUCTURE_TYPE24753; t25977.s0.value.structure_type24753 = &t25978; /* x198588 */ t25982.s0.tag = EXTERNAL_SYMBOL_TYPE; t25982.s0.value.external_symbol_type = q242; /* x198589 */ t25983.s0.tag = EXTERNAL_SYMBOL_TYPE; t25983.s0.value.external_symbol_type = q289; /* x198590 */ t25986.s0.tag = EXTERNAL_SYMBOL_TYPE; t25986.s0.value.external_symbol_type = q468; /* x198591 */ t25987.s0.tag = EXTERNAL_SYMBOL_TYPE; t25987.s0.value.external_symbol_type = q468; /* x198592 */ t25987.s1.tag = NULL_TYPE; /* x198593 */ t25986.s1.tag = STRUCTURE_TYPE24753; t25986.s1.value.structure_type24753 = &t25987; /* x198594 */ t25985.s0.tag = STRUCTURE_TYPE24753; t25985.s0.value.structure_type24753 = &t25986; /* x198595 */ t25989.s0.tag = EXTERNAL_SYMBOL_TYPE; t25989.s0.value.external_symbol_type = q449; /* x198596 */ t25991.s0.tag = EXTERNAL_SYMBOL_TYPE; t25991.s0.value.external_symbol_type = q162; /* x198597 */ t25992.s0.tag = EXTERNAL_SYMBOL_TYPE; t25992.s0.value.external_symbol_type = q468; /* x198598 */ t25992.s1.tag = NULL_TYPE; /* x198599 */ t25991.s1.tag = STRUCTURE_TYPE24753; t25991.s1.value.structure_type24753 = &t25992; /* x198600 */ t25990.s0.tag = STRUCTURE_TYPE24753; t25990.s0.value.structure_type24753 = &t25991; /* x198601 */ t25990.s1.tag = NULL_TYPE; /* x198602 */ t25989.s1.tag = STRUCTURE_TYPE24753; t25989.s1.value.structure_type24753 = &t25990; /* x198603 */ t25988.s0.tag = STRUCTURE_TYPE24753; t25988.s0.value.structure_type24753 = &t25989; /* x198604 */ t25994.s0.tag = EXTERNAL_SYMBOL_TYPE; t25994.s0.value.external_symbol_type = q469; /* x198605 */ t25995.s0.tag = EXTERNAL_SYMBOL_TYPE; t25995.s0.value.external_symbol_type = q469; /* x198606 */ t25995.s1.tag = NULL_TYPE; /* x198607 */ t25994.s1.tag = STRUCTURE_TYPE24753; t25994.s1.value.structure_type24753 = &t25995; /* x198608 */ t25993.s0.tag = STRUCTURE_TYPE24753; t25993.s0.value.structure_type24753 = &t25994; /* x198609 */ t25997.s0.tag = EXTERNAL_SYMBOL_TYPE; t25997.s0.value.external_symbol_type = q450; /* x198610 */ t25999.s0.tag = EXTERNAL_SYMBOL_TYPE; t25999.s0.value.external_symbol_type = q162; /* x198611 */ t26000.s0.tag = EXTERNAL_SYMBOL_TYPE; t26000.s0.value.external_symbol_type = q469; /* x198612 */ t26000.s1.tag = NULL_TYPE; /* x198613 */ t25999.s1.tag = STRUCTURE_TYPE24753; t25999.s1.value.structure_type24753 = &t26000; /* x198614 */ t25998.s0.tag = STRUCTURE_TYPE24753; t25998.s0.value.structure_type24753 = &t25999; /* x198615 */ t25998.s1.tag = NULL_TYPE; /* x198616 */ t25997.s1.tag = STRUCTURE_TYPE24753; t25997.s1.value.structure_type24753 = &t25998; /* x198617 */ t25996.s0.tag = STRUCTURE_TYPE24753; t25996.s0.value.structure_type24753 = &t25997; /* x198618 */ t26002.s0.tag = EXTERNAL_SYMBOL_TYPE; t26002.s0.value.external_symbol_type = q410; /* x198619 */ t26003.s0.tag = EXTERNAL_SYMBOL_TYPE; t26003.s0.value.external_symbol_type = q410; /* x198620 */ t26003.s1.tag = NULL_TYPE; /* x198621 */ t26002.s1.tag = STRUCTURE_TYPE24753; t26002.s1.value.structure_type24753 = &t26003; /* x198622 */ t26001.s0.tag = STRUCTURE_TYPE24753; t26001.s0.value.structure_type24753 = &t26002; /* x198623 */ t26001.s1.tag = NULL_TYPE; /* x198624 */ t25996.s1.tag = STRUCTURE_TYPE24753; t25996.s1.value.structure_type24753 = &t26001; /* x198625 */ t25993.s1.tag = STRUCTURE_TYPE24753; t25993.s1.value.structure_type24753 = &t25996; /* x198626 */ t25988.s1.tag = STRUCTURE_TYPE24753; t25988.s1.value.structure_type24753 = &t25993; /* x198627 */ t25985.s1.tag = STRUCTURE_TYPE24753; t25985.s1.value.structure_type24753 = &t25988; /* x198628 */ t25984.s0.tag = STRUCTURE_TYPE24753; t25984.s0.value.structure_type24753 = &t25985; /* x198629 */ t26005.s0.tag = EXTERNAL_SYMBOL_TYPE; t26005.s0.value.external_symbol_type = q244; /* x198630 */ t26007.s0.tag = EXTERNAL_SYMBOL_TYPE; t26007.s0.value.external_symbol_type = q242; /* x198631 */ t26008.s0.tag = EXTERNAL_SYMBOL_TYPE; t26008.s0.value.external_symbol_type = q289; /* x198632 */ t26011.s0.tag = EXTERNAL_SYMBOL_TYPE; t26011.s0.value.external_symbol_type = q337; /* x198633 */ t26012.s0.tag = FIXNUM_TYPE; t26012.s0.value.fixnum_type = 0; /* x198634 */ t26012.s1.tag = NULL_TYPE; /* x198635 */ t26011.s1.tag = STRUCTURE_TYPE24753; t26011.s1.value.structure_type24753 = &t26012; /* x198636 */ t26010.s0.tag = STRUCTURE_TYPE24753; t26010.s0.value.structure_type24753 = &t26011; /* x198637 */ t26010.s1.tag = NULL_TYPE; /* x198638 */ t26009.s0.tag = STRUCTURE_TYPE24753; t26009.s0.value.structure_type24753 = &t26010; /* x198639 */ t26014.s0.tag = EXTERNAL_SYMBOL_TYPE; t26014.s0.value.external_symbol_type = q43; /* x198640 */ t26016.s0.tag = EXTERNAL_SYMBOL_TYPE; t26016.s0.value.external_symbol_type = q120; /* x198641 */ t26017.s0.tag = EXTERNAL_SYMBOL_TYPE; t26017.s0.value.external_symbol_type = q337; /* x198642 */ t26018.s0.tag = EXTERNAL_SYMBOL_TYPE; t26018.s0.value.external_symbol_type = q450; /* x198643 */ t26018.s1.tag = NULL_TYPE; /* x198644 */ t26017.s1.tag = STRUCTURE_TYPE24753; t26017.s1.value.structure_type24753 = &t26018; /* x198645 */ t26016.s1.tag = STRUCTURE_TYPE24753; t26016.s1.value.structure_type24753 = &t26017; /* x198646 */} void initialize_constants21(void) {t26015.s0.tag = STRUCTURE_TYPE24753; t26015.s0.value.structure_type24753 = &t26016; /* x198647 */ t26020.s0.tag = EXTERNAL_SYMBOL_TYPE; t26020.s0.value.external_symbol_type = q123; /* x198648 */ t26021.s0.tag = EXTERNAL_SYMBOL_TYPE; t26021.s0.value.external_symbol_type = q337; /* x198649 */ t26022.s0.tag = EXTERNAL_SYMBOL_TYPE; t26022.s0.value.external_symbol_type = q449; /* x198650 */ t26022.s1.tag = NULL_TYPE; /* x198651 */ t26021.s1.tag = STRUCTURE_TYPE24753; t26021.s1.value.structure_type24753 = &t26022; /* x198652 */ t26020.s1.tag = STRUCTURE_TYPE24753; t26020.s1.value.structure_type24753 = &t26021; /* x198653 */ t26019.s0.tag = STRUCTURE_TYPE24753; t26019.s0.value.structure_type24753 = &t26020; /* x198654 */ t26024.s0.tag = EXTERNAL_SYMBOL_TYPE; t26024.s0.value.external_symbol_type = q244; /* x198655 */ t26026.s0.tag = EXTERNAL_SYMBOL_TYPE; t26026.s0.value.external_symbol_type = q121; /* x198656 */ t26027.s0.tag = EXTERNAL_SYMBOL_TYPE; t26027.s0.value.external_symbol_type = q337; /* x198657 */ t26028.s0.tag = EXTERNAL_SYMBOL_TYPE; t26028.s0.value.external_symbol_type = q449; /* x198658 */ t26028.s1.tag = NULL_TYPE; /* x198659 */ t26027.s1.tag = STRUCTURE_TYPE24753; t26027.s1.value.structure_type24753 = &t26028; /* x198660 */ t26026.s1.tag = STRUCTURE_TYPE24753; t26026.s1.value.structure_type24753 = &t26027; /* x198661 */ t26025.s0.tag = STRUCTURE_TYPE24753; t26025.s0.value.structure_type24753 = &t26026; /* x198662 */ t26030.s0.tag = EXTERNAL_SYMBOL_TYPE; t26030.s0.value.external_symbol_type = q241; /* x198663 */ t26032.s0.tag = EXTERNAL_SYMBOL_TYPE; t26032.s0.value.external_symbol_type = q461; /* x198664 */ t26034.s0.tag = EXTERNAL_SYMBOL_TYPE; t26034.s0.value.external_symbol_type = q163; /* x198665 */ t26035.s0.tag = EXTERNAL_SYMBOL_TYPE; t26035.s0.value.external_symbol_type = q468; /* x198666 */ t26036.s0.tag = EXTERNAL_SYMBOL_TYPE; t26036.s0.value.external_symbol_type = q337; /* x198667 */ t26036.s1.tag = NULL_TYPE; /* x198668 */ t26035.s1.tag = STRUCTURE_TYPE24753; t26035.s1.value.structure_type24753 = &t26036; /* x198669 */ t26034.s1.tag = STRUCTURE_TYPE24753; t26034.s1.value.structure_type24753 = &t26035; /* x198670 */ t26033.s0.tag = STRUCTURE_TYPE24753; t26033.s0.value.structure_type24753 = &t26034; /* x198671 */ t26038.s0.tag = EXTERNAL_SYMBOL_TYPE; t26038.s0.value.external_symbol_type = q163; /* x198672 */ t26039.s0.tag = EXTERNAL_SYMBOL_TYPE; t26039.s0.value.external_symbol_type = q469; /* x198673 */ t26040.s0.tag = EXTERNAL_SYMBOL_TYPE; t26040.s0.value.external_symbol_type = q337; /* x198674 */ t26040.s1.tag = NULL_TYPE; /* x198675 */ t26039.s1.tag = STRUCTURE_TYPE24753; t26039.s1.value.structure_type24753 = &t26040; /* x198676 */ t26038.s1.tag = STRUCTURE_TYPE24753; t26038.s1.value.structure_type24753 = &t26039; /* x198677 */ t26037.s0.tag = STRUCTURE_TYPE24753; t26037.s0.value.structure_type24753 = &t26038; /* x198678 */ t26037.s1.tag = NULL_TYPE; /* x198679 */ t26033.s1.tag = STRUCTURE_TYPE24753; t26033.s1.value.structure_type24753 = &t26037; /* x198680 */ t26032.s1.tag = STRUCTURE_TYPE24753; t26032.s1.value.structure_type24753 = &t26033; /* x198681 */ t26031.s0.tag = STRUCTURE_TYPE24753; t26031.s0.value.structure_type24753 = &t26032; /* x198682 */ t26042.s0.tag = EXTERNAL_SYMBOL_TYPE; t26042.s0.value.external_symbol_type = q244; /* x198683 */ t26044.s0.tag = EXTERNAL_SYMBOL_TYPE; t26044.s0.value.external_symbol_type = q291; /* x198684 */ t26046.s0.tag = EXTERNAL_SYMBOL_TYPE; t26046.s0.value.external_symbol_type = q163; /* x198685 */ t26047.s0.tag = EXTERNAL_SYMBOL_TYPE; t26047.s0.value.external_symbol_type = q468; /* x198686 */ t26048.s0.tag = EXTERNAL_SYMBOL_TYPE; t26048.s0.value.external_symbol_type = q337; /* x198687 */ t26048.s1.tag = NULL_TYPE; /* x198688 */ t26047.s1.tag = STRUCTURE_TYPE24753; t26047.s1.value.structure_type24753 = &t26048; /* x198689 */ t26046.s1.tag = STRUCTURE_TYPE24753; t26046.s1.value.structure_type24753 = &t26047; /* x198690 */ t26045.s0.tag = STRUCTURE_TYPE24753; t26045.s0.value.structure_type24753 = &t26046; /* x198691 */ t26050.s0.tag = EXTERNAL_SYMBOL_TYPE; t26050.s0.value.external_symbol_type = q163; /* x198692 */ t26051.s0.tag = EXTERNAL_SYMBOL_TYPE; t26051.s0.value.external_symbol_type = q469; /* x198693 */ t26052.s0.tag = EXTERNAL_SYMBOL_TYPE; t26052.s0.value.external_symbol_type = q337; /* x198694 */ t26052.s1.tag = NULL_TYPE; /* x198695 */ t26051.s1.tag = STRUCTURE_TYPE24753; t26051.s1.value.structure_type24753 = &t26052; /* x198696 */ t26050.s1.tag = STRUCTURE_TYPE24753; t26050.s1.value.structure_type24753 = &t26051; /* x198697 */ t26049.s0.tag = STRUCTURE_TYPE24753; t26049.s0.value.structure_type24753 = &t26050; /* x198698 */ t26049.s1.tag = NULL_TYPE; /* x198699 */ t26045.s1.tag = STRUCTURE_TYPE24753; t26045.s1.value.structure_type24753 = &t26049; /* x198700 */ t26044.s1.tag = STRUCTURE_TYPE24753; t26044.s1.value.structure_type24753 = &t26045; /* x198701 */ t26043.s0.tag = STRUCTURE_TYPE24753; t26043.s0.value.structure_type24753 = &t26044; /* x198702 */ t26054.s0.tag = EXTERNAL_SYMBOL_TYPE; t26054.s0.value.external_symbol_type = q289; /* x198703 */ t26056.s0.tag = EXTERNAL_SYMBOL_TYPE; t26056.s0.value.external_symbol_type = q4; /* x198704 */ t26057.s0.tag = EXTERNAL_SYMBOL_TYPE; t26057.s0.value.external_symbol_type = q337; /* x198705 */ t26058.s0.tag = FIXNUM_TYPE; t26058.s0.value.fixnum_type = 1; /* x198706 */ t26058.s1.tag = NULL_TYPE; /* x198707 */ t26057.s1.tag = STRUCTURE_TYPE24753; t26057.s1.value.structure_type24753 = &t26058; /* x198708 */ t26056.s1.tag = STRUCTURE_TYPE24753; t26056.s1.value.structure_type24753 = &t26057; /* x198709 */ t26055.s0.tag = STRUCTURE_TYPE24753; t26055.s0.value.structure_type24753 = &t26056; /* x198710 */ t26055.s1.tag = NULL_TYPE; /* x198711 */ t26054.s1.tag = STRUCTURE_TYPE24753; t26054.s1.value.structure_type24753 = &t26055; /* x198712 */ t26053.s0.tag = STRUCTURE_TYPE24753; t26053.s0.value.structure_type24753 = &t26054; /* x198713 */ t26053.s1.tag = NULL_TYPE; /* x198714 */ t26043.s1.tag = STRUCTURE_TYPE24753; t26043.s1.value.structure_type24753 = &t26053; /* x198715 */ t26042.s1.tag = STRUCTURE_TYPE24753; t26042.s1.value.structure_type24753 = &t26043; /* x198716 */ t26041.s0.tag = STRUCTURE_TYPE24753; t26041.s0.value.structure_type24753 = &t26042; /* x198717 */ t26041.s1.tag = NULL_TYPE; /* x198718 */ t26031.s1.tag = STRUCTURE_TYPE24753; t26031.s1.value.structure_type24753 = &t26041; /* x198719 */ t26030.s1.tag = STRUCTURE_TYPE24753; t26030.s1.value.structure_type24753 = &t26031; /* x198720 */ t26029.s0.tag = STRUCTURE_TYPE24753; t26029.s0.value.structure_type24753 = &t26030; /* x198721 */ t26029.s1.tag = NULL_TYPE; /* x198722 */ t26025.s1.tag = STRUCTURE_TYPE24753; t26025.s1.value.structure_type24753 = &t26029; /* x198723 */ t26024.s1.tag = STRUCTURE_TYPE24753; t26024.s1.value.structure_type24753 = &t26025; /* x198724 */ t26023.s0.tag = STRUCTURE_TYPE24753; t26023.s0.value.structure_type24753 = &t26024; /* x198725 */ t26023.s1.tag = NULL_TYPE; /* x198726 */ t26019.s1.tag = STRUCTURE_TYPE24753; t26019.s1.value.structure_type24753 = &t26023; /* x198727 */ t26015.s1.tag = STRUCTURE_TYPE24753; t26015.s1.value.structure_type24753 = &t26019; /* x198728 */ t26014.s1.tag = STRUCTURE_TYPE24753; t26014.s1.value.structure_type24753 = &t26015; /* x198729 */ t26013.s0.tag = STRUCTURE_TYPE24753; t26013.s0.value.structure_type24753 = &t26014; /* x198730 */ t26013.s1.tag = NULL_TYPE; /* x198731 */ t26009.s1.tag = STRUCTURE_TYPE24753; t26009.s1.value.structure_type24753 = &t26013; /* x198732 */ t26008.s1.tag = STRUCTURE_TYPE24753; t26008.s1.value.structure_type24753 = &t26009; /* x198733 */ t26007.s1.tag = STRUCTURE_TYPE24753; t26007.s1.value.structure_type24753 = &t26008; /* x198734 */ t26006.s0.tag = STRUCTURE_TYPE24753; t26006.s0.value.structure_type24753 = &t26007; /* x198735 */ t26060.s0.tag = EXTERNAL_SYMBOL_TYPE; t26060.s0.value.external_symbol_type = q241; /* x198736 */ t26062.s0.tag = EXTERNAL_SYMBOL_TYPE; t26062.s0.value.external_symbol_type = q111; /* x198737 */ t26063.s0.tag = EXTERNAL_SYMBOL_TYPE; t26063.s0.value.external_symbol_type = q410; /* x198738 */ t26063.s1.tag = NULL_TYPE; /* x198739 */ t26062.s1.tag = STRUCTURE_TYPE24753; t26062.s1.value.structure_type24753 = &t26063; /* x198740 */ t26061.s0.tag = STRUCTURE_TYPE24753; t26061.s0.value.structure_type24753 = &t26062; /* x198741 */ t26065.s0.tag = EXTERNAL_SYMBOL_TYPE; t26065.s0.value.external_symbol_type = q289; /* x198742 */ t26066.s0.tag = EXTERNAL_SYMBOL_TYPE; t26066.s0.value.external_symbol_type = q469; /* x198743 */ t26067.s0.tag = EXTERNAL_SYMBOL_TYPE; t26067.s0.value.external_symbol_type = q450; /* x198744 */ t26069.s0.tag = EXTERNAL_SYMBOL_TYPE; t26069.s0.value.external_symbol_type = q107; /* x198745 */ t26070.s0.tag = EXTERNAL_SYMBOL_TYPE; t26070.s0.value.external_symbol_type = q410; /* x198746 */ t26070.s1.tag = NULL_TYPE; /* x198747 */ t26069.s1.tag = STRUCTURE_TYPE24753; t26069.s1.value.structure_type24753 = &t26070; /* x198748 */ t26068.s0.tag = STRUCTURE_TYPE24753; t26068.s0.value.structure_type24753 = &t26069; /* x198749 */ t26072.s0.tag = EXTERNAL_SYMBOL_TYPE; t26072.s0.value.external_symbol_type = q162; /* x198750 */ t26074.s0.tag = EXTERNAL_SYMBOL_TYPE; t26074.s0.value.external_symbol_type = q107; /* x198751 */ t26075.s0.tag = EXTERNAL_SYMBOL_TYPE; t26075.s0.value.external_symbol_type = q410; /* x198752 */ t26075.s1.tag = NULL_TYPE; /* x198753 */ t26074.s1.tag = STRUCTURE_TYPE24753; t26074.s1.value.structure_type24753 = &t26075; /* x198754 */ t26073.s0.tag = STRUCTURE_TYPE24753; t26073.s0.value.structure_type24753 = &t26074; /* x198755 */ t26073.s1.tag = NULL_TYPE; /* x198756 */ t26072.s1.tag = STRUCTURE_TYPE24753; t26072.s1.value.structure_type24753 = &t26073; /* x198757 */ t26071.s0.tag = STRUCTURE_TYPE24753; t26071.s0.value.structure_type24753 = &t26072; /* x198758 */ t26077.s0.tag = EXTERNAL_SYMBOL_TYPE; t26077.s0.value.external_symbol_type = q108; /* x198759 */ t26078.s0.tag = EXTERNAL_SYMBOL_TYPE; t26078.s0.value.external_symbol_type = q410; /* x198760 */ t26078.s1.tag = NULL_TYPE; /* x198761 */ t26077.s1.tag = STRUCTURE_TYPE24753; t26077.s1.value.structure_type24753 = &t26078; /* x198762 */ t26076.s0.tag = STRUCTURE_TYPE24753; t26076.s0.value.structure_type24753 = &t26077; /* x198763 */ t26076.s1.tag = NULL_TYPE; /* x198764 */ t26071.s1.tag = STRUCTURE_TYPE24753; t26071.s1.value.structure_type24753 = &t26076; /* x198765 */ t26068.s1.tag = STRUCTURE_TYPE24753; t26068.s1.value.structure_type24753 = &t26071; /* x198766 */ t26067.s1.tag = STRUCTURE_TYPE24753; t26067.s1.value.structure_type24753 = &t26068; /* x198767 */ t26066.s1.tag = STRUCTURE_TYPE24753; t26066.s1.value.structure_type24753 = &t26067; /* x198768 */ t26065.s1.tag = STRUCTURE_TYPE24753; t26065.s1.value.structure_type24753 = &t26066; /* x198769 */ t26064.s0.tag = STRUCTURE_TYPE24753; t26064.s0.value.structure_type24753 = &t26065; /* x198770 */ t26064.s1.tag = NULL_TYPE; /* x198771 */ t26061.s1.tag = STRUCTURE_TYPE24753; t26061.s1.value.structure_type24753 = &t26064; /* x198772 */ t26060.s1.tag = STRUCTURE_TYPE24753; t26060.s1.value.structure_type24753 = &t26061; /* x198773 */ t26059.s0.tag = STRUCTURE_TYPE24753; t26059.s0.value.structure_type24753 = &t26060; /* x198774 */ t26059.s1.tag = NULL_TYPE; /* x198775 */ t26006.s1.tag = STRUCTURE_TYPE24753; t26006.s1.value.structure_type24753 = &t26059; /* x198776 */ t26005.s1.tag = STRUCTURE_TYPE24753; t26005.s1.value.structure_type24753 = &t26006; /* x198777 */ t26004.s0.tag = STRUCTURE_TYPE24753; t26004.s0.value.structure_type24753 = &t26005; /* x198778 */ t26004.s1.tag = NULL_TYPE; /* x198779 */ t25984.s1.tag = STRUCTURE_TYPE24753; t25984.s1.value.structure_type24753 = &t26004; /* x198780 */ t25983.s1.tag = STRUCTURE_TYPE24753; t25983.s1.value.structure_type24753 = &t25984; /* x198781 */ t25982.s1.tag = STRUCTURE_TYPE24753; t25982.s1.value.structure_type24753 = &t25983; /* x198782 */ t25981.s0.tag = STRUCTURE_TYPE24753; t25981.s0.value.structure_type24753 = &t25982; /* x198783 */ t25981.s1.tag = NULL_TYPE; /* x198784 */ t25977.s1.tag = STRUCTURE_TYPE24753; t25977.s1.value.structure_type24753 = &t25981; /* x198785 */ t25976.s1.tag = STRUCTURE_TYPE24753; t25976.s1.value.structure_type24753 = &t25977; /* x198788 */ t26083.s0.tag = EXTERNAL_SYMBOL_TYPE; t26083.s0.value.external_symbol_type = q97; /* x198789 */ t26085.s0.tag = EXTERNAL_SYMBOL_TYPE; t26085.s0.value.external_symbol_type = q401; /* x198790 */ t26086.s0.tag = EXTERNAL_SYMBOL_TYPE; t26086.s0.value.external_symbol_type = q161; /* x198791 */ t26087.s0.tag = EXTERNAL_SYMBOL_TYPE; t26087.s0.value.external_symbol_type = q398; /* x198792 */ t26088.s0.tag = EXTERNAL_SYMBOL_TYPE; t26088.s0.value.external_symbol_type = q399; /* x198793 */ t26088.s1.tag = NULL_TYPE; /* x198794 */ t26087.s1.tag = STRUCTURE_TYPE24753; t26087.s1.value.structure_type24753 = &t26088; /* x198795 */ t26086.s1.tag = STRUCTURE_TYPE24753; t26086.s1.value.structure_type24753 = &t26087; /* x198796 */ t26085.s1.tag = STRUCTURE_TYPE24753; t26085.s1.value.structure_type24753 = &t26086; /* x198797 */ t26084.s0.tag = STRUCTURE_TYPE24753; t26084.s0.value.structure_type24753 = &t26085; /* x198798 */ t26090.s0.tag = EXTERNAL_SYMBOL_TYPE; t26090.s0.value.external_symbol_type = q242; /* x198799 */ t26093.s0.tag = EXTERNAL_SYMBOL_TYPE; t26093.s0.value.external_symbol_type = q409; /* x198800 */ t26095.s0.tag = EXTERNAL_SYMBOL_TYPE; t26095.s0.value.external_symbol_type = q160; /* x198801 */ t26097.s0.tag = EXTERNAL_SYMBOL_TYPE; t26097.s0.value.external_symbol_type = q2; /* x198802 */ t26098.s0.tag = EXTERNAL_SYMBOL_TYPE; t26098.s0.value.external_symbol_type = q399; /* x198803 */ t26099.s0.tag = EXTERNAL_SYMBOL_TYPE; t26099.s0.value.external_symbol_type = q398; /* x198804 */ t26099.s1.tag = NULL_TYPE; /* x198805 */ t26098.s1.tag = STRUCTURE_TYPE24753; t26098.s1.value.structure_type24753 = &t26099; /* x198806 */ t26097.s1.tag = STRUCTURE_TYPE24753; t26097.s1.value.structure_type24753 = &t26098; /* x198807 */ t26096.s0.tag = STRUCTURE_TYPE24753; t26096.s0.value.structure_type24753 = &t26097; /* x198808 */ t26096.s1.tag = NULL_TYPE; /* x198809 */ t26095.s1.tag = STRUCTURE_TYPE24753; t26095.s1.value.structure_type24753 = &t26096; /* x198810 */ t26094.s0.tag = STRUCTURE_TYPE24753; t26094.s0.value.structure_type24753 = &t26095; /* x198811 */ t26094.s1.tag = NULL_TYPE; /* x198812 */ t26093.s1.tag = STRUCTURE_TYPE24753; t26093.s1.value.structure_type24753 = &t26094; /* x198813 */ t26092.s0.tag = STRUCTURE_TYPE24753; t26092.s0.value.structure_type24753 = &t26093; /* x198814 */ t26092.s1.tag = NULL_TYPE; /* x198815 */ t26091.s0.tag = STRUCTURE_TYPE24753; t26091.s0.value.structure_type24753 = &t26092; /* x198816 */ t26101.s0.tag = EXTERNAL_SYMBOL_TYPE; t26101.s0.value.external_symbol_type = q242; /* x198817 */ t26102.s0.tag = EXTERNAL_SYMBOL_TYPE; t26102.s0.value.external_symbol_type = q287; /* x198818 */ t26105.s0.tag = EXTERNAL_SYMBOL_TYPE; t26105.s0.value.external_symbol_type = q337; /* x198819 */ t26106.s0.tag = EXTERNAL_SYMBOL_TYPE; t26106.s0.value.external_symbol_type = q398; /* x198820 */ t26106.s1.tag = NULL_TYPE; /* x198821 */ t26105.s1.tag = STRUCTURE_TYPE24753; t26105.s1.value.structure_type24753 = &t26106; /* x198822 */ t26104.s0.tag = STRUCTURE_TYPE24753; t26104.s0.value.structure_type24753 = &t26105; /* x198823 */ t26104.s1.tag = NULL_TYPE; /* x198824 */ t26103.s0.tag = STRUCTURE_TYPE24753; t26103.s0.value.structure_type24753 = &t26104; /* x198825 */ t26108.s0.tag = EXTERNAL_SYMBOL_TYPE; t26108.s0.value.external_symbol_type = q43; /* x198826 */ t26110.s0.tag = EXTERNAL_SYMBOL_TYPE; t26110.s0.value.external_symbol_type = q121; /* x198827 */ t26111.s0.tag = EXTERNAL_SYMBOL_TYPE; t26111.s0.value.external_symbol_type = q337; /* x198828 */ t26112.s0.tag = EXTERNAL_SYMBOL_TYPE; t26112.s0.value.external_symbol_type = q399; /* x198829 */ t26112.s1.tag = NULL_TYPE; /* x198830 */ t26111.s1.tag = STRUCTURE_TYPE24753; t26111.s1.value.structure_type24753 = &t26112; /* x198831 */ t26110.s1.tag = STRUCTURE_TYPE24753; t26110.s1.value.structure_type24753 = &t26111; /* x198832 */ t26109.s0.tag = STRUCTURE_TYPE24753; t26109.s0.value.structure_type24753 = &t26110; /* x198833 */ t26114.s0.tag = EXTERNAL_SYMBOL_TYPE; t26114.s0.value.external_symbol_type = q239; /* x198834 */ t26116.s0.tag = EXTERNAL_SYMBOL_TYPE; t26116.s0.value.external_symbol_type = q164; /* x198835 */ t26117.s0.tag = EXTERNAL_SYMBOL_TYPE; t26117.s0.value.external_symbol_type = q409; /* x198836 */ t26119.s0.tag = EXTERNAL_SYMBOL_TYPE; t26119.s0.value.external_symbol_type = q2; /* x198837 */ t26120.s0.tag = EXTERNAL_SYMBOL_TYPE; t26120.s0.value.external_symbol_type = q337; /* x198838 */ t26121.s0.tag = EXTERNAL_SYMBOL_TYPE; t26121.s0.value.external_symbol_type = q398; /* x198839 */ t26121.s1.tag = NULL_TYPE; /* x198840 */ t26120.s1.tag = STRUCTURE_TYPE24753; t26120.s1.value.structure_type24753 = &t26121; /* x198841 */ t26119.s1.tag = STRUCTURE_TYPE24753; t26119.s1.value.structure_type24753 = &t26120; /* x198842 */ t26118.s0.tag = STRUCTURE_TYPE24753; t26118.s0.value.structure_type24753 = &t26119; /* x198843 */ t26123.s0.tag = EXTERNAL_SYMBOL_TYPE; t26123.s0.value.external_symbol_type = q163; /* x198844 */ t26124.s0.tag = EXTERNAL_SYMBOL_TYPE; t26124.s0.value.external_symbol_type = q161; /* x198845 */ t26125.s0.tag = EXTERNAL_SYMBOL_TYPE; t26125.s0.value.external_symbol_type = q337; /* x198846 */ t26125.s1.tag = NULL_TYPE; /* x198847 */ t26124.s1.tag = STRUCTURE_TYPE24753; t26124.s1.value.structure_type24753 = &t26125; /* x198848 */ t26123.s1.tag = STRUCTURE_TYPE24753; t26123.s1.value.structure_type24753 = &t26124; /* x198849 */ t26122.s0.tag = STRUCTURE_TYPE24753; t26122.s0.value.structure_type24753 = &t26123; /* x198850 */ t26122.s1.tag = NULL_TYPE; /* x198851 */ t26118.s1.tag = STRUCTURE_TYPE24753; t26118.s1.value.structure_type24753 = &t26122; /* x198852 */ t26117.s1.tag = STRUCTURE_TYPE24753; t26117.s1.value.structure_type24753 = &t26118; /* x198853 */ t26116.s1.tag = STRUCTURE_TYPE24753; t26116.s1.value.structure_type24753 = &t26117; /* x198854 */ t26115.s0.tag = STRUCTURE_TYPE24753; t26115.s0.value.structure_type24753 = &t26116; /* x198855 */ t26127.s0.tag = EXTERNAL_SYMBOL_TYPE; t26127.s0.value.external_symbol_type = q287; /* x198856 */ t26129.s0.tag = EXTERNAL_SYMBOL_TYPE; t26129.s0.value.external_symbol_type = q4; /* x198857 */ t26130.s0.tag = EXTERNAL_SYMBOL_TYPE; t26130.s0.value.external_symbol_type = q337; /* x198858 */ t26131.s0.tag = FIXNUM_TYPE; t26131.s0.value.fixnum_type = 1; /* x198859 */ t26131.s1.tag = NULL_TYPE; /* x198860 */ t26130.s1.tag = STRUCTURE_TYPE24753; t26130.s1.value.structure_type24753 = &t26131; /* x198861 */ t26129.s1.tag = STRUCTURE_TYPE24753; t26129.s1.value.structure_type24753 = &t26130; /* x198862 */ t26128.s0.tag = STRUCTURE_TYPE24753; t26128.s0.value.structure_type24753 = &t26129; /* x198863 */ t26128.s1.tag = NULL_TYPE; /* x198864 */ t26127.s1.tag = STRUCTURE_TYPE24753; t26127.s1.value.structure_type24753 = &t26128; /* x198865 */ t26126.s0.tag = STRUCTURE_TYPE24753; t26126.s0.value.structure_type24753 = &t26127; /* x198866 */ t26126.s1.tag = NULL_TYPE; /* x198867 */ t26115.s1.tag = STRUCTURE_TYPE24753; t26115.s1.value.structure_type24753 = &t26126; /* x198868 */ t26114.s1.tag = STRUCTURE_TYPE24753; t26114.s1.value.structure_type24753 = &t26115; /* x198869 */ t26113.s0.tag = STRUCTURE_TYPE24753; t26113.s0.value.structure_type24753 = &t26114; /* x198870 */ t26113.s1.tag = NULL_TYPE; /* x198871 */ t26109.s1.tag = STRUCTURE_TYPE24753; t26109.s1.value.structure_type24753 = &t26113; /* x198872 */ t26108.s1.tag = STRUCTURE_TYPE24753; t26108.s1.value.structure_type24753 = &t26109; /* x198873 */ t26107.s0.tag = STRUCTURE_TYPE24753; t26107.s0.value.structure_type24753 = &t26108; /* x198874 */ t26107.s1.tag = NULL_TYPE; /* x198875 */ t26103.s1.tag = STRUCTURE_TYPE24753; t26103.s1.value.structure_type24753 = &t26107; /* x198876 */ t26102.s1.tag = STRUCTURE_TYPE24753; t26102.s1.value.structure_type24753 = &t26103; /* x198877 */ t26101.s1.tag = STRUCTURE_TYPE24753; t26101.s1.value.structure_type24753 = &t26102; /* x198878 */ t26100.s0.tag = STRUCTURE_TYPE24753; t26100.s0.value.structure_type24753 = &t26101; /* x198879 */ t26132.s0.tag = EXTERNAL_SYMBOL_TYPE; t26132.s0.value.external_symbol_type = q409; /* x198880 */ t26132.s1.tag = NULL_TYPE; /* x198881 */ t26100.s1.tag = STRUCTURE_TYPE24753; t26100.s1.value.structure_type24753 = &t26132; /* x198882 */ t26091.s1.tag = STRUCTURE_TYPE24753; t26091.s1.value.structure_type24753 = &t26100; /* x198883 */ t26090.s1.tag = STRUCTURE_TYPE24753; t26090.s1.value.structure_type24753 = &t26091; /* x198884 */ t26089.s0.tag = STRUCTURE_TYPE24753; t26089.s0.value.structure_type24753 = &t26090; /* x198885 */ t26089.s1.tag = NULL_TYPE; /* x198886 */ t26084.s1.tag = STRUCTURE_TYPE24753; t26084.s1.value.structure_type24753 = &t26089; /* x198887 */ t26083.s1.tag = STRUCTURE_TYPE24753; t26083.s1.value.structure_type24753 = &t26084; /* x198890 */ t26137.s0.tag = EXTERNAL_SYMBOL_TYPE; t26137.s0.value.external_symbol_type = q97; /* x198891 */ t26139.s0.tag = EXTERNAL_SYMBOL_TYPE; t26139.s0.value.external_symbol_type = q479; /* x198892 */ t26139.s1.tag = EXTERNAL_SYMBOL_TYPE; t26139.s1.value.external_symbol_type = q410; /* x198893 */ t26138.s0.tag = STRUCTURE_TYPE24753; t26138.s0.value.structure_type24753 = &t26139; /* x198894 */ t26141.s0.tag = EXTERNAL_SYMBOL_TYPE; t26141.s0.value.external_symbol_type = q246; /* x198895 */ t26144.s0.tag = EXTERNAL_SYMBOL_TYPE; t26144.s0.value.external_symbol_type = q409; /* x198896 */ t26146.s0.tag = EXTERNAL_SYMBOL_TYPE; t26146.s0.value.external_symbol_type = q160; /* x198897 */ t26148.s0.tag = EXTERNAL_SYMBOL_TYPE; t26148.s0.value.external_symbol_type = q242; /* x198898 */ t26149.s0.tag = EXTERNAL_SYMBOL_TYPE; t26149.s0.value.external_symbol_type = q287; /* x198899 */ t26152.s0.tag = EXTERNAL_SYMBOL_TYPE; t26152.s0.value.external_symbol_type = q337; /* x198900 */ t26153.s0.tag = FIXNUM_TYPE; t26153.s0.value.fixnum_type = 0; /* x198901 */ t26153.s1.tag = NULL_TYPE; /* x198902 */ t26152.s1.tag = STRUCTURE_TYPE24753; t26152.s1.value.structure_type24753 = &t26153; /* x198903 */ t26151.s0.tag = STRUCTURE_TYPE24753; t26151.s0.value.structure_type24753 = &t26152; /* x198904 */ t26155.s0.tag = EXTERNAL_SYMBOL_TYPE; t26155.s0.value.external_symbol_type = q410; /* x198905 */ t26156.s0.tag = EXTERNAL_SYMBOL_TYPE; t26156.s0.value.external_symbol_type = q410; /* x198906 */ t26156.s1.tag = NULL_TYPE; /* x198907 */ t26155.s1.tag = STRUCTURE_TYPE24753; t26155.s1.value.structure_type24753 = &t26156; /* x198908 */ t26154.s0.tag = STRUCTURE_TYPE24753; t26154.s0.value.structure_type24753 = &t26155; /* x198909 */ t26154.s1.tag = NULL_TYPE; /* x198910 */ t26151.s1.tag = STRUCTURE_TYPE24753; t26151.s1.value.structure_type24753 = &t26154; /* x198911 */ t26150.s0.tag = STRUCTURE_TYPE24753; t26150.s0.value.structure_type24753 = &t26151; /* x198912 */ t26158.s0.tag = EXTERNAL_SYMBOL_TYPE; t26158.s0.value.external_symbol_type = q43; /* x198913 */ t26160.s0.tag = EXTERNAL_SYMBOL_TYPE; t26160.s0.value.external_symbol_type = q111; /* x198914 */ t26161.s0.tag = EXTERNAL_SYMBOL_TYPE; t26161.s0.value.external_symbol_type = q410; /* x198915 */ t26161.s1.tag = NULL_TYPE; /* x198916 */ t26160.s1.tag = STRUCTURE_TYPE24753; t26160.s1.value.structure_type24753 = &t26161; /* x198917 */ t26159.s0.tag = STRUCTURE_TYPE24753; t26159.s0.value.structure_type24753 = &t26160; /* x198918 */ t26162.s0.tag = EXTERNAL_SYMBOL_TYPE; t26162.s0.value.external_symbol_type = q337; /* x198919 */ t26164.s0.tag = EXTERNAL_SYMBOL_TYPE; t26164.s0.value.external_symbol_type = q287; /* x198920 */ t26166.s0.tag = EXTERNAL_SYMBOL_TYPE; t26166.s0.value.external_symbol_type = q4; /* x198921 */ t26167.s0.tag = EXTERNAL_SYMBOL_TYPE; t26167.s0.value.external_symbol_type = q337; /* x198922 */ t26169.s0.tag = EXTERNAL_SYMBOL_TYPE; t26169.s0.value.external_symbol_type = q162; /* x198923 */ t26171.s0.tag = EXTERNAL_SYMBOL_TYPE; t26171.s0.value.external_symbol_type = q107; /* x198924 */ t26172.s0.tag = EXTERNAL_SYMBOL_TYPE; t26172.s0.value.external_symbol_type = q410; /* x198925 */ t26172.s1.tag = NULL_TYPE; /* x198926 */ t26171.s1.tag = STRUCTURE_TYPE24753; t26171.s1.value.structure_type24753 = &t26172; /* x198927 */ t26170.s0.tag = STRUCTURE_TYPE24753; t26170.s0.value.structure_type24753 = &t26171; /* x198928 */ t26170.s1.tag = NULL_TYPE; /* x198929 */ t26169.s1.tag = STRUCTURE_TYPE24753; t26169.s1.value.structure_type24753 = &t26170; /* x198930 */ t26168.s0.tag = STRUCTURE_TYPE24753; t26168.s0.value.structure_type24753 = &t26169; /* x198931 */ t26168.s1.tag = NULL_TYPE; /* x198932 */ t26167.s1.tag = STRUCTURE_TYPE24753; t26167.s1.value.structure_type24753 = &t26168; /* x198933 */ t26166.s1.tag = STRUCTURE_TYPE24753; t26166.s1.value.structure_type24753 = &t26167; /* x198934 */ t26165.s0.tag = STRUCTURE_TYPE24753; t26165.s0.value.structure_type24753 = &t26166; /* x198935 */ t26174.s0.tag = EXTERNAL_SYMBOL_TYPE; t26174.s0.value.external_symbol_type = q108; /* x198936 */ t26175.s0.tag = EXTERNAL_SYMBOL_TYPE; t26175.s0.value.external_symbol_type = q410; /* x198937 */ t26175.s1.tag = NULL_TYPE; /* x198938 */ t26174.s1.tag = STRUCTURE_TYPE24753; t26174.s1.value.structure_type24753 = &t26175; /* x198939 */ t26173.s0.tag = STRUCTURE_TYPE24753; t26173.s0.value.structure_type24753 = &t26174; /* x198940 */ t26173.s1.tag = NULL_TYPE; /* x198941 */ t26165.s1.tag = STRUCTURE_TYPE24753; t26165.s1.value.structure_type24753 = &t26173; /* x198942 */ t26164.s1.tag = STRUCTURE_TYPE24753; t26164.s1.value.structure_type24753 = &t26165; /* x198943 */ t26163.s0.tag = STRUCTURE_TYPE24753; t26163.s0.value.structure_type24753 = &t26164; /* x198944 */ t26163.s1.tag = NULL_TYPE; /* x198945 */ t26162.s1.tag = STRUCTURE_TYPE24753; t26162.s1.value.structure_type24753 = &t26163; /* x198946 */ t26159.s1.tag = STRUCTURE_TYPE24753; t26159.s1.value.structure_type24753 = &t26162; /* x198947 */ t26158.s1.tag = STRUCTURE_TYPE24753; t26158.s1.value.structure_type24753 = &t26159; /* x198948 */ t26157.s0.tag = STRUCTURE_TYPE24753; t26157.s0.value.structure_type24753 = &t26158; /* x198949 */ t26157.s1.tag = NULL_TYPE; /* x198950 */ t26150.s1.tag = STRUCTURE_TYPE24753; t26150.s1.value.structure_type24753 = &t26157; /* x198951 */ t26149.s1.tag = STRUCTURE_TYPE24753; t26149.s1.value.structure_type24753 = &t26150; /* x198952 */ t26148.s1.tag = STRUCTURE_TYPE24753; t26148.s1.value.structure_type24753 = &t26149; /* x198953 */ t26147.s0.tag = STRUCTURE_TYPE24753; t26147.s0.value.structure_type24753 = &t26148; /* x198954 */ t26147.s1.tag = NULL_TYPE; /* x198955 */ t26146.s1.tag = STRUCTURE_TYPE24753; t26146.s1.value.structure_type24753 = &t26147; /* x198956 */ t26145.s0.tag = STRUCTURE_TYPE24753; t26145.s0.value.structure_type24753 = &t26146; /* x198957 */ t26145.s1.tag = NULL_TYPE; /* x198958 */ t26144.s1.tag = STRUCTURE_TYPE24753; t26144.s1.value.structure_type24753 = &t26145; /* x198959 */ t26143.s0.tag = STRUCTURE_TYPE24753; t26143.s0.value.structure_type24753 = &t26144; /* x198960 */ t26177.s0.tag = EXTERNAL_SYMBOL_TYPE; t26177.s0.value.external_symbol_type = q337; /* x198961 */ t26178.s0.tag = FIXNUM_TYPE; t26178.s0.value.fixnum_type = 0; /* x198962 */ t26178.s1.tag = NULL_TYPE; /* x198963 */ t26177.s1.tag = STRUCTURE_TYPE24753; t26177.s1.value.structure_type24753 = &t26178; /* x198964 */ t26176.s0.tag = STRUCTURE_TYPE24753; t26176.s0.value.structure_type24753 = &t26177; /* x198965 */ t26176.s1.tag = NULL_TYPE; /* x198966 */ t26143.s1.tag = STRUCTURE_TYPE24753; t26143.s1.value.structure_type24753 = &t26176; /* x198967 */ t26142.s0.tag = STRUCTURE_TYPE24753; t26142.s0.value.structure_type24753 = &t26143; /* x198968 */ t26180.s0.tag = EXTERNAL_SYMBOL_TYPE; t26180.s0.value.external_symbol_type = q242; /* x198969 */ t26181.s0.tag = EXTERNAL_SYMBOL_TYPE; t26181.s0.value.external_symbol_type = q287; /* x198970 */ t26184.s0.tag = EXTERNAL_SYMBOL_TYPE; t26184.s0.value.external_symbol_type = q410; /* x198971 */ t26185.s0.tag = EXTERNAL_SYMBOL_TYPE; t26185.s0.value.external_symbol_type = q410; /* x198972 */ t26185.s1.tag = NULL_TYPE; /* x198973 */ t26184.s1.tag = STRUCTURE_TYPE24753; t26184.s1.value.structure_type24753 = &t26185; /* x198974 */ t26183.s0.tag = STRUCTURE_TYPE24753; t26183.s0.value.structure_type24753 = &t26184; /* x198975 */ t26183.s1.tag = NULL_TYPE; /* x198976 */ t26182.s0.tag = STRUCTURE_TYPE24753; t26182.s0.value.structure_type24753 = &t26183; /* x198977 */ t26187.s0.tag = EXTERNAL_SYMBOL_TYPE; t26187.s0.value.external_symbol_type = q43; /* x198978 */ t26189.s0.tag = EXTERNAL_SYMBOL_TYPE; t26189.s0.value.external_symbol_type = q102; /* x198979 */ t26191.s0.tag = EXTERNAL_SYMBOL_TYPE; t26191.s0.value.external_symbol_type = q111; /* x198980 */ t26192.s0.tag = EXTERNAL_SYMBOL_TYPE; t26192.s0.value.external_symbol_type = q410; /* x198981 */ t26192.s1.tag = NULL_TYPE; /* x198982 */ t26191.s1.tag = STRUCTURE_TYPE24753; t26191.s1.value.structure_type24753 = &t26192; /* x198983 */ t26190.s0.tag = STRUCTURE_TYPE24753; t26190.s0.value.structure_type24753 = &t26191; /* x198984 */ t26190.s1.tag = NULL_TYPE; /* x198985 */ t26189.s1.tag = STRUCTURE_TYPE24753; t26189.s1.value.structure_type24753 = &t26190; /* x198986 */ t26188.s0.tag = STRUCTURE_TYPE24753; t26188.s0.value.structure_type24753 = &t26189; /* x198987 */ t26194.s0.tag = EXTERNAL_SYMBOL_TYPE; t26194.s0.value.external_symbol_type = q242; /* x198988 */ t26197.s0.tag = EXTERNAL_SYMBOL_TYPE; t26197.s0.value.external_symbol_type = q260; /* x198989 */ t26199.s0.tag = EXTERNAL_SYMBOL_TYPE; t26199.s0.value.external_symbol_type = q162; /* x198990 */ t26201.s0.tag = EXTERNAL_SYMBOL_TYPE; t26201.s0.value.external_symbol_type = q107; /* x198991 */ t26202.s0.tag = EXTERNAL_SYMBOL_TYPE; t26202.s0.value.external_symbol_type = q410; /* x198992 */ t26202.s1.tag = NULL_TYPE; /* x198993 */ t26201.s1.tag = STRUCTURE_TYPE24753; t26201.s1.value.structure_type24753 = &t26202; /* x198994 */ t26200.s0.tag = STRUCTURE_TYPE24753; t26200.s0.value.structure_type24753 = &t26201; /* x198995 */ t26200.s1.tag = NULL_TYPE; /* x198996 */ t26199.s1.tag = STRUCTURE_TYPE24753; t26199.s1.value.structure_type24753 = &t26200; /* x198997 */ t26198.s0.tag = STRUCTURE_TYPE24753; t26198.s0.value.structure_type24753 = &t26199; /* x198998 */ t26198.s1.tag = NULL_TYPE; /* x198999 */ t26197.s1.tag = STRUCTURE_TYPE24753; t26197.s1.value.structure_type24753 = &t26198; /* x199000 */ t26196.s0.tag = STRUCTURE_TYPE24753; t26196.s0.value.structure_type24753 = &t26197; /* x199001 */ t26196.s1.tag = NULL_TYPE; /* x199002 */ t26195.s0.tag = STRUCTURE_TYPE24753; t26195.s0.value.structure_type24753 = &t26196; /* x199003 */ t26204.s0.tag = EXTERNAL_SYMBOL_TYPE; t26204.s0.value.external_symbol_type = q242; /* x199004 */ t26205.s0.tag = EXTERNAL_SYMBOL_TYPE; t26205.s0.value.external_symbol_type = q287; /* x199005 */ t26208.s0.tag = EXTERNAL_SYMBOL_TYPE; t26208.s0.value.external_symbol_type = q330; /* x199006 */ t26209.s0.tag = FIXNUM_TYPE; t26209.s0.value.fixnum_type = 0; /* x199007 */ t26209.s1.tag = NULL_TYPE; /* x199008 */ t26208.s1.tag = STRUCTURE_TYPE24753; t26208.s1.value.structure_type24753 = &t26209; /* x199009 */ t26207.s0.tag = STRUCTURE_TYPE24753; t26207.s0.value.structure_type24753 = &t26208; /* x199010 */ t26207.s1.tag = NULL_TYPE; /* x199011 */ t26206.s0.tag = STRUCTURE_TYPE24753; t26206.s0.value.structure_type24753 = &t26207; /* x199012 */ t26211.s0.tag = EXTERNAL_SYMBOL_TYPE; t26211.s0.value.external_symbol_type = q43; /* x199013 */ t26213.s0.tag = EXTERNAL_SYMBOL_TYPE; t26213.s0.value.external_symbol_type = q102; /* x199014 */ t26215.s0.tag = EXTERNAL_SYMBOL_TYPE; t26215.s0.value.external_symbol_type = q120; /* x199015 */ t26216.s0.tag = EXTERNAL_SYMBOL_TYPE; t26216.s0.value.external_symbol_type = q330; /* x199016 */ t26217.s0.tag = EXTERNAL_SYMBOL_TYPE; t26217.s0.value.external_symbol_type = q260; /* x199017 */ t26217.s1.tag = NULL_TYPE; /* x199018 */ t26216.s1.tag = STRUCTURE_TYPE24753; t26216.s1.value.structure_type24753 = &t26217; /* x199019 */ t26215.s1.tag = STRUCTURE_TYPE24753; t26215.s1.value.structure_type24753 = &t26216; /* x199020 */ t26214.s0.tag = STRUCTURE_TYPE24753; t26214.s0.value.structure_type24753 = &t26215; /* x199021 */ t26214.s1.tag = NULL_TYPE; /* x199022 */ t26213.s1.tag = STRUCTURE_TYPE24753; t26213.s1.value.structure_type24753 = &t26214; /* x199023 */ t26212.s0.tag = STRUCTURE_TYPE24753; t26212.s0.value.structure_type24753 = &t26213; /* x199024 */ t26219.s0.tag = EXTERNAL_SYMBOL_TYPE; t26219.s0.value.external_symbol_type = q239; /* x199025 */ t26221.s0.tag = EXTERNAL_SYMBOL_TYPE; t26221.s0.value.external_symbol_type = q164; /* x199026 */ t26222.s0.tag = EXTERNAL_SYMBOL_TYPE; t26222.s0.value.external_symbol_type = q409; /* x199027 */ t26223.s0.tag = EXTERNAL_SYMBOL_TYPE; t26223.s0.value.external_symbol_type = q337; /* x199028 */ t26225.s0.tag = EXTERNAL_SYMBOL_TYPE; t26225.s0.value.external_symbol_type = q163; /* x199029 */ t26227.s0.tag = EXTERNAL_SYMBOL_TYPE; t26227.s0.value.external_symbol_type = q107; /* x199030 */ t26228.s0.tag = EXTERNAL_SYMBOL_TYPE; t26228.s0.value.external_symbol_type = q410; /* x199031 */ t26228.s1.tag = NULL_TYPE; /* x199032 */ t26227.s1.tag = STRUCTURE_TYPE24753; t26227.s1.value.structure_type24753 = &t26228; /* x199033 */ t26226.s0.tag = STRUCTURE_TYPE24753; t26226.s0.value.structure_type24753 = &t26227; /* x199034 */ t26229.s0.tag = EXTERNAL_SYMBOL_TYPE; t26229.s0.value.external_symbol_type = q330; /* x199035 */ t26229.s1.tag = NULL_TYPE; /* x199036 */ t26226.s1.tag = STRUCTURE_TYPE24753; t26226.s1.value.structure_type24753 = &t26229; /* x199037 */ t26225.s1.tag = STRUCTURE_TYPE24753; t26225.s1.value.structure_type24753 = &t26226; /* x199038 */ t26224.s0.tag = STRUCTURE_TYPE24753; t26224.s0.value.structure_type24753 = &t26225; /* x199039 */ t26224.s1.tag = NULL_TYPE; /* x199040 */ t26223.s1.tag = STRUCTURE_TYPE24753; t26223.s1.value.structure_type24753 = &t26224; /* x199041 */ t26222.s1.tag = STRUCTURE_TYPE24753; t26222.s1.value.structure_type24753 = &t26223; /* x199042 */ t26221.s1.tag = STRUCTURE_TYPE24753; t26221.s1.value.structure_type24753 = &t26222; /* x199043 */ t26220.s0.tag = STRUCTURE_TYPE24753; t26220.s0.value.structure_type24753 = &t26221; /* x199044 */ t26231.s0.tag = EXTERNAL_SYMBOL_TYPE; t26231.s0.value.external_symbol_type = q42; /* x199045 */ t26232.s0.tag = EXTERNAL_SYMBOL_TYPE; t26232.s0.value.external_symbol_type = q337; /* x199046 */ t26234.s0.tag = EXTERNAL_SYMBOL_TYPE; t26234.s0.value.external_symbol_type = q4; /* x199047 */ t26235.s0.tag = EXTERNAL_SYMBOL_TYPE; t26235.s0.value.external_symbol_type = q337; /* x199048 */ t26236.s0.tag = FIXNUM_TYPE; t26236.s0.value.fixnum_type = 1; /* x199049 */ t26236.s1.tag = NULL_TYPE; /* x199050 */ t26235.s1.tag = STRUCTURE_TYPE24753; t26235.s1.value.structure_type24753 = &t26236; /* x199051 */ t26234.s1.tag = STRUCTURE_TYPE24753; t26234.s1.value.structure_type24753 = &t26235; /* x199052 */ t26233.s0.tag = STRUCTURE_TYPE24753; t26233.s0.value.structure_type24753 = &t26234; /* x199053 */ t26233.s1.tag = NULL_TYPE; /* x199054 */ t26232.s1.tag = STRUCTURE_TYPE24753; t26232.s1.value.structure_type24753 = &t26233; /* x199055 */ t26231.s1.tag = STRUCTURE_TYPE24753; t26231.s1.value.structure_type24753 = &t26232; /* x199056 */ t26230.s0.tag = STRUCTURE_TYPE24753; t26230.s0.value.structure_type24753 = &t26231; /* x199057 */ t26238.s0.tag = EXTERNAL_SYMBOL_TYPE; t26238.s0.value.external_symbol_type = q287; /* x199058 */ t26240.s0.tag = EXTERNAL_SYMBOL_TYPE; t26240.s0.value.external_symbol_type = q4; /* x199059 */ t26241.s0.tag = EXTERNAL_SYMBOL_TYPE; t26241.s0.value.external_symbol_type = q330; /* x199060 */ t26242.s0.tag = FIXNUM_TYPE; t26242.s0.value.fixnum_type = 1; /* x199061 */ t26242.s1.tag = NULL_TYPE; /* x199062 */ t26241.s1.tag = STRUCTURE_TYPE24753; t26241.s1.value.structure_type24753 = &t26242; /* x199063 */ t26240.s1.tag = STRUCTURE_TYPE24753; t26240.s1.value.structure_type24753 = &t26241; /* x199064 */ t26239.s0.tag = STRUCTURE_TYPE24753; t26239.s0.value.structure_type24753 = &t26240; /* x199065 */ t26239.s1.tag = NULL_TYPE; /* x199066 */ t26238.s1.tag = STRUCTURE_TYPE24753; t26238.s1.value.structure_type24753 = &t26239; /* x199067 */ t26237.s0.tag = STRUCTURE_TYPE24753; t26237.s0.value.structure_type24753 = &t26238; /* x199068 */ t26237.s1.tag = NULL_TYPE; /* x199069 */ t26230.s1.tag = STRUCTURE_TYPE24753; t26230.s1.value.structure_type24753 = &t26237; /* x199070 */ t26220.s1.tag = STRUCTURE_TYPE24753; t26220.s1.value.structure_type24753 = &t26230; /* x199071 */ t26219.s1.tag = STRUCTURE_TYPE24753; t26219.s1.value.structure_type24753 = &t26220; /* x199072 */ t26218.s0.tag = STRUCTURE_TYPE24753; t26218.s0.value.structure_type24753 = &t26219; /* x199073 */ t26218.s1.tag = NULL_TYPE; /* x199074 */ t26212.s1.tag = STRUCTURE_TYPE24753; t26212.s1.value.structure_type24753 = &t26218; /* x199075 */ t26211.s1.tag = STRUCTURE_TYPE24753; t26211.s1.value.structure_type24753 = &t26212; /* x199076 */ t26210.s0.tag = STRUCTURE_TYPE24753; t26210.s0.value.structure_type24753 = &t26211; /* x199077 */ t26210.s1.tag = NULL_TYPE; /* x199078 */ t26206.s1.tag = STRUCTURE_TYPE24753; t26206.s1.value.structure_type24753 = &t26210; /* x199079 */ t26205.s1.tag = STRUCTURE_TYPE24753; t26205.s1.value.structure_type24753 = &t26206; /* x199080 */ t26204.s1.tag = STRUCTURE_TYPE24753; t26204.s1.value.structure_type24753 = &t26205; /* x199081 */ t26203.s0.tag = STRUCTURE_TYPE24753; t26203.s0.value.structure_type24753 = &t26204; /* x199082 */ t26244.s0.tag = EXTERNAL_SYMBOL_TYPE; t26244.s0.value.external_symbol_type = q287; /* x199083 */ t26246.s0.tag = EXTERNAL_SYMBOL_TYPE; t26246.s0.value.external_symbol_type = q108; /* x199084 */ t26247.s0.tag = EXTERNAL_SYMBOL_TYPE; t26247.s0.value.external_symbol_type = q410; /* x199085 */ t26247.s1.tag = NULL_TYPE; /* x199086 */ t26246.s1.tag = STRUCTURE_TYPE24753; t26246.s1.value.structure_type24753 = &t26247; /* x199087 */ t26245.s0.tag = STRUCTURE_TYPE24753; t26245.s0.value.structure_type24753 = &t26246; /* x199088 */ t26245.s1.tag = NULL_TYPE; /* x199089 */ t26244.s1.tag = STRUCTURE_TYPE24753; t26244.s1.value.structure_type24753 = &t26245; /* x199090 */ t26243.s0.tag = STRUCTURE_TYPE24753; t26243.s0.value.structure_type24753 = &t26244; /* x199091 */ t26243.s1.tag = NULL_TYPE; /* x199092 */ t26203.s1.tag = STRUCTURE_TYPE24753; t26203.s1.value.structure_type24753 = &t26243; /* x199093 */ t26195.s1.tag = STRUCTURE_TYPE24753; t26195.s1.value.structure_type24753 = &t26203; /* x199094 */ t26194.s1.tag = STRUCTURE_TYPE24753; t26194.s1.value.structure_type24753 = &t26195; /* x199095 */ t26193.s0.tag = STRUCTURE_TYPE24753; t26193.s0.value.structure_type24753 = &t26194; /* x199096 */ t26193.s1.tag = NULL_TYPE; /* x199097 */ t26188.s1.tag = STRUCTURE_TYPE24753; t26188.s1.value.structure_type24753 = &t26193; /* x199098 */ t26187.s1.tag = STRUCTURE_TYPE24753; t26187.s1.value.structure_type24753 = &t26188; /* x199099 */ t26186.s0.tag = STRUCTURE_TYPE24753; t26186.s0.value.structure_type24753 = &t26187; /* x199100 */ t26186.s1.tag = NULL_TYPE; /* x199101 */ t26182.s1.tag = STRUCTURE_TYPE24753; t26182.s1.value.structure_type24753 = &t26186; /* x199102 */ t26181.s1.tag = STRUCTURE_TYPE24753; t26181.s1.value.structure_type24753 = &t26182; /* x199103 */ t26180.s1.tag = STRUCTURE_TYPE24753; t26180.s1.value.structure_type24753 = &t26181; /* x199104 */ t26179.s0.tag = STRUCTURE_TYPE24753; t26179.s0.value.structure_type24753 = &t26180; /* x199105 */ t26248.s0.tag = EXTERNAL_SYMBOL_TYPE; t26248.s0.value.external_symbol_type = q409; /* x199106 */ t26248.s1.tag = NULL_TYPE; /* x199107 */ t26179.s1.tag = STRUCTURE_TYPE24753; t26179.s1.value.structure_type24753 = &t26248; /* x199108 */ t26142.s1.tag = STRUCTURE_TYPE24753; t26142.s1.value.structure_type24753 = &t26179; /* x199109 */ t26141.s1.tag = STRUCTURE_TYPE24753; t26141.s1.value.structure_type24753 = &t26142; /* x199110 */ t26140.s0.tag = STRUCTURE_TYPE24753; t26140.s0.value.structure_type24753 = &t26141; /* x199111 */ t26140.s1.tag = NULL_TYPE; /* x199112 */ t26138.s1.tag = STRUCTURE_TYPE24753; t26138.s1.value.structure_type24753 = &t26140; /* x199113 */ t26137.s1.tag = STRUCTURE_TYPE24753; t26137.s1.value.structure_type24753 = &t26138; /* x199116 */ t26253.s0.tag = EXTERNAL_SYMBOL_TYPE; t26253.s0.value.external_symbol_type = q97; /* x199117 */ t26255.s0.tag = EXTERNAL_SYMBOL_TYPE; t26255.s0.value.external_symbol_type = q480; /* x199118 */ t26256.s0.tag = EXTERNAL_SYMBOL_TYPE; t26256.s0.value.external_symbol_type = q161; /* x199119 */ t26256.s1.tag = NULL_TYPE; /* x199120 */ t26255.s1.tag = STRUCTURE_TYPE24753; t26255.s1.value.structure_type24753 = &t26256; /* x199121 */ t26254.s0.tag = STRUCTURE_TYPE24753; t26254.s0.value.structure_type24753 = &t26255; /* x199122 */ t26258.s0.tag = EXTERNAL_SYMBOL_TYPE; t26258.s0.value.external_symbol_type = q242; /* x199123 */ t26261.s0.tag = EXTERNAL_SYMBOL_TYPE; t26261.s0.value.external_symbol_type = q260; /* x199124 */ t26263.s0.tag = EXTERNAL_SYMBOL_TYPE; t26263.s0.value.external_symbol_type = q162; /* x199125 */ t26264.s0.tag = EXTERNAL_SYMBOL_TYPE; t26264.s0.value.external_symbol_type = q161; /* x199126 */ t26264.s1.tag = NULL_TYPE; /* x199127 */ t26263.s1.tag = STRUCTURE_TYPE24753; t26263.s1.value.structure_type24753 = &t26264; /* x199128 */ t26262.s0.tag = STRUCTURE_TYPE24753; t26262.s0.value.structure_type24753 = &t26263; /* x199129 */ t26262.s1.tag = NULL_TYPE; /* x199130 */ t26261.s1.tag = STRUCTURE_TYPE24753; t26261.s1.value.structure_type24753 = &t26262; /* x199131 */ t26260.s0.tag = STRUCTURE_TYPE24753; t26260.s0.value.structure_type24753 = &t26261; /* x199132 */ t26260.s1.tag = NULL_TYPE; /* x199133 */ t26259.s0.tag = STRUCTURE_TYPE24753; t26259.s0.value.structure_type24753 = &t26260; /* x199134 */ t26266.s0.tag = EXTERNAL_SYMBOL_TYPE; t26266.s0.value.external_symbol_type = q242; /* x199135 */ t26267.s0.tag = EXTERNAL_SYMBOL_TYPE; t26267.s0.value.external_symbol_type = q287; /* x199136 */ t26270.s0.tag = EXTERNAL_SYMBOL_TYPE; t26270.s0.value.external_symbol_type = q337; /* x199137 */ t26271.s0.tag = FIXNUM_TYPE; t26271.s0.value.fixnum_type = 0; /* x199138 */ t26271.s1.tag = NULL_TYPE; /* x199139 */ t26270.s1.tag = STRUCTURE_TYPE24753; t26270.s1.value.structure_type24753 = &t26271; /* x199140 */ t26269.s0.tag = STRUCTURE_TYPE24753; t26269.s0.value.structure_type24753 = &t26270; /* x199141 */ t26269.s1.tag = NULL_TYPE; /* x199142 */ t26268.s0.tag = STRUCTURE_TYPE24753; t26268.s0.value.structure_type24753 = &t26269; /* x199143 */ t26273.s0.tag = EXTERNAL_SYMBOL_TYPE; t26273.s0.value.external_symbol_type = q43; /* x199144 */ t26275.s0.tag = EXTERNAL_SYMBOL_TYPE; t26275.s0.value.external_symbol_type = q120; /* x199145 */ t26276.s0.tag = EXTERNAL_SYMBOL_TYPE; t26276.s0.value.external_symbol_type = q337; /* x199146 */ t26277.s0.tag = EXTERNAL_SYMBOL_TYPE; t26277.s0.value.external_symbol_type = q260; /* x199147 */ t26277.s1.tag = NULL_TYPE; /* x199148 */ t26276.s1.tag = STRUCTURE_TYPE24753; t26276.s1.value.structure_type24753 = &t26277; /* x199149 */ t26275.s1.tag = STRUCTURE_TYPE24753; t26275.s1.value.structure_type24753 = &t26276; /* x199150 */ t26274.s0.tag = STRUCTURE_TYPE24753; t26274.s0.value.structure_type24753 = &t26275; /* x199151 */ t26279.s0.tag = EXTERNAL_SYMBOL_TYPE; t26279.s0.value.external_symbol_type = q11; /* x199152 */ t26280.s0.tag = NULL_TYPE; /* x199153 */ t26280.s1.tag = NULL_TYPE; /* x199154 */ t26279.s1.tag = STRUCTURE_TYPE24753; t26279.s1.value.structure_type24753 = &t26280; /* x199155 */ t26278.s0.tag = STRUCTURE_TYPE24753; t26278.s0.value.structure_type24753 = &t26279; /* x199156 */ t26282.s0.tag = EXTERNAL_SYMBOL_TYPE; t26282.s0.value.external_symbol_type = q106; /* x199157 */ t26284.s0.tag = EXTERNAL_SYMBOL_TYPE; t26284.s0.value.external_symbol_type = q163; /* x199158 */ t26285.s0.tag = EXTERNAL_SYMBOL_TYPE; t26285.s0.value.external_symbol_type = q161; /* x199159 */ t26286.s0.tag = EXTERNAL_SYMBOL_TYPE; t26286.s0.value.external_symbol_type = q337; /* x199160 */ t26286.s1.tag = NULL_TYPE; /* x199161 */ t26285.s1.tag = STRUCTURE_TYPE24753; t26285.s1.value.structure_type24753 = &t26286; /* x199162 */ t26284.s1.tag = STRUCTURE_TYPE24753; t26284.s1.value.structure_type24753 = &t26285; /* x199163 */ t26283.s0.tag = STRUCTURE_TYPE24753; t26283.s0.value.structure_type24753 = &t26284; /* x199164 */ t26288.s0.tag = EXTERNAL_SYMBOL_TYPE; t26288.s0.value.external_symbol_type = q287; /* x199165 */ t26290.s0.tag = EXTERNAL_SYMBOL_TYPE; t26290.s0.value.external_symbol_type = q4; /* x199166 */ t26291.s0.tag = EXTERNAL_SYMBOL_TYPE; t26291.s0.value.external_symbol_type = q337; /* x199167 */ t26292.s0.tag = FIXNUM_TYPE; t26292.s0.value.fixnum_type = 1; /* x199168 */ t26292.s1.tag = NULL_TYPE; /* x199169 */ t26291.s1.tag = STRUCTURE_TYPE24753; t26291.s1.value.structure_type24753 = &t26292; /* x199170 */ t26290.s1.tag = STRUCTURE_TYPE24753; t26290.s1.value.structure_type24753 = &t26291; /* x199171 */ t26289.s0.tag = STRUCTURE_TYPE24753; t26289.s0.value.structure_type24753 = &t26290; /* x199172 */ t26289.s1.tag = NULL_TYPE; /* x199173 */ t26288.s1.tag = STRUCTURE_TYPE24753; t26288.s1.value.structure_type24753 = &t26289; /* x199174 */ t26287.s0.tag = STRUCTURE_TYPE24753; t26287.s0.value.structure_type24753 = &t26288; /* x199175 */ t26287.s1.tag = NULL_TYPE; /* x199176 */ t26283.s1.tag = STRUCTURE_TYPE24753; t26283.s1.value.structure_type24753 = &t26287; /* x199177 */ t26282.s1.tag = STRUCTURE_TYPE24753; t26282.s1.value.structure_type24753 = &t26283; /* x199178 */ t26281.s0.tag = STRUCTURE_TYPE24753; t26281.s0.value.structure_type24753 = &t26282; /* x199179 */ t26281.s1.tag = NULL_TYPE; /* x199180 */ t26278.s1.tag = STRUCTURE_TYPE24753; t26278.s1.value.structure_type24753 = &t26281; /* x199181 */ t26274.s1.tag = STRUCTURE_TYPE24753; t26274.s1.value.structure_type24753 = &t26278; /* x199182 */ t26273.s1.tag = STRUCTURE_TYPE24753; t26273.s1.value.structure_type24753 = &t26274; /* x199183 */ t26272.s0.tag = STRUCTURE_TYPE24753; t26272.s0.value.structure_type24753 = &t26273; /* x199184 */ t26272.s1.tag = NULL_TYPE; /* x199185 */ t26268.s1.tag = STRUCTURE_TYPE24753; t26268.s1.value.structure_type24753 = &t26272; /* x199186 */ t26267.s1.tag = STRUCTURE_TYPE24753; t26267.s1.value.structure_type24753 = &t26268; /* x199187 */ t26266.s1.tag = STRUCTURE_TYPE24753; t26266.s1.value.structure_type24753 = &t26267; /* x199188 */ t26265.s0.tag = STRUCTURE_TYPE24753; t26265.s0.value.structure_type24753 = &t26266; /* x199189 */ t26265.s1.tag = NULL_TYPE; /* x199190 */ t26259.s1.tag = STRUCTURE_TYPE24753; t26259.s1.value.structure_type24753 = &t26265; /* x199191 */ t26258.s1.tag = STRUCTURE_TYPE24753; t26258.s1.value.structure_type24753 = &t26259; /* x199192 */ t26257.s0.tag = STRUCTURE_TYPE24753; t26257.s0.value.structure_type24753 = &t26258; /* x199193 */ t26257.s1.tag = NULL_TYPE; /* x199194 */ t26254.s1.tag = STRUCTURE_TYPE24753; t26254.s1.value.structure_type24753 = &t26257; /* x199195 */ t26253.s1.tag = STRUCTURE_TYPE24753; t26253.s1.value.structure_type24753 = &t26254; /* x199198 */ t26297.s0.tag = EXTERNAL_SYMBOL_TYPE; t26297.s0.value.external_symbol_type = q97; /* x199199 */ t26299.s0.tag = EXTERNAL_SYMBOL_TYPE; t26299.s0.value.external_symbol_type = q283; /* x199200 */ t26300.s0.tag = EXTERNAL_SYMBOL_TYPE; t26300.s0.value.external_symbol_type = q1; /* x199201 */ t26300.s1.tag = NULL_TYPE; /* x199202 */ t26299.s1.tag = STRUCTURE_TYPE24753; t26299.s1.value.structure_type24753 = &t26300; /* x199203 */ t26298.s0.tag = STRUCTURE_TYPE24753; t26298.s0.value.structure_type24753 = &t26299; /* x199204 */ t26302.s0.tag = EXTERNAL_SYMBOL_TYPE; t26302.s0.value.external_symbol_type = q242; /* x199205 */ t26305.s0.tag = EXTERNAL_SYMBOL_TYPE; t26305.s0.value.external_symbol_type = q409; /* x199206 */ t26307.s0.tag = EXTERNAL_SYMBOL_TYPE; t26307.s0.value.external_symbol_type = q160; /* x199207 */ t26309.s0.tag = EXTERNAL_SYMBOL_TYPE; t26309.s0.value.external_symbol_type = q395; /* x199208 */ t26310.s0.tag = EXTERNAL_SYMBOL_TYPE; t26310.s0.value.external_symbol_type = q1; /* x199209 */ t26310.s1.tag = NULL_TYPE; /* x199210 */ t26309.s1.tag = STRUCTURE_TYPE24753; t26309.s1.value.structure_type24753 = &t26310; /* x199211 */ t26308.s0.tag = STRUCTURE_TYPE24753; t26308.s0.value.structure_type24753 = &t26309; /* x199212 */ t26308.s1.tag = NULL_TYPE; /* x199213 */ t26307.s1.tag = STRUCTURE_TYPE24753; t26307.s1.value.structure_type24753 = &t26308; /* x199214 */ t26306.s0.tag = STRUCTURE_TYPE24753; t26306.s0.value.structure_type24753 = &t26307; /* x199215 */ t26306.s1.tag = NULL_TYPE; /* x199216 */ t26305.s1.tag = STRUCTURE_TYPE24753; t26305.s1.value.structure_type24753 = &t26306; /* x199217 */ t26304.s0.tag = STRUCTURE_TYPE24753; t26304.s0.value.structure_type24753 = &t26305; /* x199218 */ t26304.s1.tag = NULL_TYPE; /* x199219 */ t26303.s0.tag = STRUCTURE_TYPE24753; t26303.s0.value.structure_type24753 = &t26304; /* x199220 */ t26312.s0.tag = EXTERNAL_SYMBOL_TYPE; t26312.s0.value.external_symbol_type = q242; /* x199221 */ t26313.s0.tag = EXTERNAL_SYMBOL_TYPE; t26313.s0.value.external_symbol_type = q287; /* x199222 */ t26316.s0.tag = EXTERNAL_SYMBOL_TYPE; t26316.s0.value.external_symbol_type = q337; /* x199223 */ t26317.s0.tag = FIXNUM_TYPE; t26317.s0.value.fixnum_type = 0; /* x199224 */ t26317.s1.tag = NULL_TYPE; /* x199225 */ t26316.s1.tag = STRUCTURE_TYPE24753; t26316.s1.value.structure_type24753 = &t26317; /* x199226 */ t26315.s0.tag = STRUCTURE_TYPE24753; t26315.s0.value.structure_type24753 = &t26316; /* x199227 */ t26315.s1.tag = NULL_TYPE; /* x199228 */ t26314.s0.tag = STRUCTURE_TYPE24753; t26314.s0.value.structure_type24753 = &t26315; /* x199229 */ t26319.s0.tag = EXTERNAL_SYMBOL_TYPE; t26319.s0.value.external_symbol_type = q43; /* x199230 */ t26321.s0.tag = EXTERNAL_SYMBOL_TYPE; t26321.s0.value.external_symbol_type = q102; /* x199231 */ t26323.s0.tag = EXTERNAL_SYMBOL_TYPE; t26323.s0.value.external_symbol_type = q111; /* x199232 */ t26324.s0.tag = EXTERNAL_SYMBOL_TYPE; t26324.s0.value.external_symbol_type = q1; /* x199233 */ t26324.s1.tag = NULL_TYPE; /* x199234 */ t26323.s1.tag = STRUCTURE_TYPE24753; t26323.s1.value.structure_type24753 = &t26324; /* x199235 */ t26322.s0.tag = STRUCTURE_TYPE24753; t26322.s0.value.structure_type24753 = &t26323; /* x199236 */ t26322.s1.tag = NULL_TYPE; /* x199237 */ t26321.s1.tag = STRUCTURE_TYPE24753; t26321.s1.value.structure_type24753 = &t26322; /* x199238 */ t26320.s0.tag = STRUCTURE_TYPE24753; t26320.s0.value.structure_type24753 = &t26321; /* x199239 */ t26326.s0.tag = EXTERNAL_SYMBOL_TYPE; t26326.s0.value.external_symbol_type = q239; /* x199240 */ t26328.s0.tag = EXTERNAL_SYMBOL_TYPE; t26328.s0.value.external_symbol_type = q164; /* x199241 */ t26329.s0.tag = EXTERNAL_SYMBOL_TYPE; t26329.s0.value.external_symbol_type = q409; /* x199242 */ t26330.s0.tag = EXTERNAL_SYMBOL_TYPE; t26330.s0.value.external_symbol_type = q337; /* x199243 */ t26332.s0.tag = EXTERNAL_SYMBOL_TYPE; t26332.s0.value.external_symbol_type = q107; /* x199244 */ t26333.s0.tag = EXTERNAL_SYMBOL_TYPE; t26333.s0.value.external_symbol_type = q1; /* x199245 */ t26333.s1.tag = NULL_TYPE; /* x199246 */ t26332.s1.tag = STRUCTURE_TYPE24753; t26332.s1.value.structure_type24753 = &t26333; /* x199247 */ t26331.s0.tag = STRUCTURE_TYPE24753; t26331.s0.value.structure_type24753 = &t26332; /* x199248 */ t26331.s1.tag = NULL_TYPE; /* x199249 */ t26330.s1.tag = STRUCTURE_TYPE24753; t26330.s1.value.structure_type24753 = &t26331; /* x199250 */ t26329.s1.tag = STRUCTURE_TYPE24753; t26329.s1.value.structure_type24753 = &t26330; /* x199251 */ t26328.s1.tag = STRUCTURE_TYPE24753; t26328.s1.value.structure_type24753 = &t26329; /* x199252 */ t26327.s0.tag = STRUCTURE_TYPE24753; t26327.s0.value.structure_type24753 = &t26328; /* x199253 */ t26335.s0.tag = EXTERNAL_SYMBOL_TYPE; t26335.s0.value.external_symbol_type = q42; /* x199254 */ t26336.s0.tag = EXTERNAL_SYMBOL_TYPE; t26336.s0.value.external_symbol_type = q1; /* x199255 */ t26338.s0.tag = EXTERNAL_SYMBOL_TYPE; t26338.s0.value.external_symbol_type = q108; /* x199256 */ t26339.s0.tag = EXTERNAL_SYMBOL_TYPE; t26339.s0.value.external_symbol_type = q1; /* x199257 */ t26339.s1.tag = NULL_TYPE; /* x199258 */ t26338.s1.tag = STRUCTURE_TYPE24753; t26338.s1.value.structure_type24753 = &t26339; /* x199259 */ t26337.s0.tag = STRUCTURE_TYPE24753; t26337.s0.value.structure_type24753 = &t26338; /* x199260 */ t26337.s1.tag = NULL_TYPE; /* x199261 */ t26336.s1.tag = STRUCTURE_TYPE24753; t26336.s1.value.structure_type24753 = &t26337; /* x199262 */ t26335.s1.tag = STRUCTURE_TYPE24753; t26335.s1.value.structure_type24753 = &t26336; /* x199263 */ t26334.s0.tag = STRUCTURE_TYPE24753; t26334.s0.value.structure_type24753 = &t26335; /* x199264 */ t26341.s0.tag = EXTERNAL_SYMBOL_TYPE; t26341.s0.value.external_symbol_type = q287; /* x199265 */ t26343.s0.tag = EXTERNAL_SYMBOL_TYPE; t26343.s0.value.external_symbol_type = q4; /* x199266 */ t26344.s0.tag = EXTERNAL_SYMBOL_TYPE; t26344.s0.value.external_symbol_type = q337; /* x199267 */ t26345.s0.tag = FIXNUM_TYPE; t26345.s0.value.fixnum_type = 1; /* x199268 */ t26345.s1.tag = NULL_TYPE; /* x199269 */ t26344.s1.tag = STRUCTURE_TYPE24753; t26344.s1.value.structure_type24753 = &t26345; /* x199270 */ t26343.s1.tag = STRUCTURE_TYPE24753; t26343.s1.value.structure_type24753 = &t26344; /* x199271 */ t26342.s0.tag = STRUCTURE_TYPE24753; t26342.s0.value.structure_type24753 = &t26343; /* x199272 */ t26342.s1.tag = NULL_TYPE; /* x199273 */ t26341.s1.tag = STRUCTURE_TYPE24753; t26341.s1.value.structure_type24753 = &t26342; /* x199274 */ t26340.s0.tag = STRUCTURE_TYPE24753; t26340.s0.value.structure_type24753 = &t26341; /* x199275 */ t26340.s1.tag = NULL_TYPE; /* x199276 */ t26334.s1.tag = STRUCTURE_TYPE24753; t26334.s1.value.structure_type24753 = &t26340; /* x199277 */ t26327.s1.tag = STRUCTURE_TYPE24753; t26327.s1.value.structure_type24753 = &t26334; /* x199278 */ t26326.s1.tag = STRUCTURE_TYPE24753; t26326.s1.value.structure_type24753 = &t26327; /* x199279 */ t26325.s0.tag = STRUCTURE_TYPE24753; t26325.s0.value.structure_type24753 = &t26326; /* x199280 */ t26325.s1.tag = NULL_TYPE; /* x199281 */ t26320.s1.tag = STRUCTURE_TYPE24753; t26320.s1.value.structure_type24753 = &t26325; /* x199282 */ t26319.s1.tag = STRUCTURE_TYPE24753; t26319.s1.value.structure_type24753 = &t26320; /* x199283 */ t26318.s0.tag = STRUCTURE_TYPE24753; t26318.s0.value.structure_type24753 = &t26319; /* x199284 */ t26318.s1.tag = NULL_TYPE; /* x199285 */ t26314.s1.tag = STRUCTURE_TYPE24753; t26314.s1.value.structure_type24753 = &t26318; /* x199286 */ t26313.s1.tag = STRUCTURE_TYPE24753; t26313.s1.value.structure_type24753 = &t26314; /* x199287 */ t26312.s1.tag = STRUCTURE_TYPE24753; t26312.s1.value.structure_type24753 = &t26313; /* x199288 */ t26311.s0.tag = STRUCTURE_TYPE24753; t26311.s0.value.structure_type24753 = &t26312; /* x199289 */ t26346.s0.tag = EXTERNAL_SYMBOL_TYPE; t26346.s0.value.external_symbol_type = q409; /* x199290 */ t26346.s1.tag = NULL_TYPE; /* x199291 */ t26311.s1.tag = STRUCTURE_TYPE24753; t26311.s1.value.structure_type24753 = &t26346; /* x199292 */ t26303.s1.tag = STRUCTURE_TYPE24753; t26303.s1.value.structure_type24753 = &t26311; /* x199293 */ t26302.s1.tag = STRUCTURE_TYPE24753; t26302.s1.value.structure_type24753 = &t26303; /* x199294 */ t26301.s0.tag = STRUCTURE_TYPE24753; t26301.s0.value.structure_type24753 = &t26302; /* x199295 */ t26301.s1.tag = NULL_TYPE; /* x199296 */ t26298.s1.tag = STRUCTURE_TYPE24753; t26298.s1.value.structure_type24753 = &t26301; /* x199297 */ t26297.s1.tag = STRUCTURE_TYPE24753; t26297.s1.value.structure_type24753 = &t26298; /* x199300 */ t26351.s0.tag = EXTERNAL_SYMBOL_TYPE; t26351.s0.value.external_symbol_type = q97; /* x199301 */ t26353.s0.tag = EXTERNAL_SYMBOL_TYPE; t26353.s0.value.external_symbol_type = q257; /* x199302 */ t26354.s0.tag = EXTERNAL_SYMBOL_TYPE; t26354.s0.value.external_symbol_type = q161; /* x199303 */ t26354.s1.tag = NULL_TYPE; /* x199304 */ t26353.s1.tag = STRUCTURE_TYPE24753; t26353.s1.value.structure_type24753 = &t26354; /* x199305 */ t26352.s0.tag = STRUCTURE_TYPE24753; t26352.s0.value.structure_type24753 = &t26353; /* x199306 */ t26356.s0.tag = EXTERNAL_SYMBOL_TYPE; t26356.s0.value.external_symbol_type = q246; /* x199307 */ t26359.s0.tag = EXTERNAL_SYMBOL_TYPE; t26359.s0.value.external_symbol_type = q260; /* x199308 */ t26361.s0.tag = EXTERNAL_SYMBOL_TYPE; t26361.s0.value.external_symbol_type = q162; /* x199309 */ t26362.s0.tag = EXTERNAL_SYMBOL_TYPE; t26362.s0.value.external_symbol_type = q161; /* x199310 */ t26362.s1.tag = NULL_TYPE; /* x199311 */ t26361.s1.tag = STRUCTURE_TYPE24753; t26361.s1.value.structure_type24753 = &t26362; /* x199312 */ t26360.s0.tag = STRUCTURE_TYPE24753; t26360.s0.value.structure_type24753 = &t26361; /* x199313 */ t26360.s1.tag = NULL_TYPE; /* x199314 */ t26359.s1.tag = STRUCTURE_TYPE24753; t26359.s1.value.structure_type24753 = &t26360; /* x199315 */ t26358.s0.tag = STRUCTURE_TYPE24753; t26358.s0.value.structure_type24753 = &t26359; /* x199316 */ t26364.s0.tag = EXTERNAL_SYMBOL_TYPE; t26364.s0.value.external_symbol_type = q409; /* x199317 */ t26366.s0.tag = EXTERNAL_SYMBOL_TYPE; t26366.s0.value.external_symbol_type = q160; /* x199318 */ t26367.s0.tag = EXTERNAL_SYMBOL_TYPE; t26367.s0.value.external_symbol_type = q260; /* x199319 */ t26367.s1.tag = NULL_TYPE; /* x199320 */ t26366.s1.tag = STRUCTURE_TYPE24753; t26366.s1.value.structure_type24753 = &t26367; /* x199321 */ t26365.s0.tag = STRUCTURE_TYPE24753; t26365.s0.value.structure_type24753 = &t26366; /* x199322 */ t26365.s1.tag = NULL_TYPE; /* x199323 */ t26364.s1.tag = STRUCTURE_TYPE24753; t26364.s1.value.structure_type24753 = &t26365; /* x199324 */ t26363.s0.tag = STRUCTURE_TYPE24753; t26363.s0.value.structure_type24753 = &t26364; /* x199325 */ t26363.s1.tag = NULL_TYPE; /* x199326 */ t26358.s1.tag = STRUCTURE_TYPE24753; t26358.s1.value.structure_type24753 = &t26363; /* x199327 */ t26357.s0.tag = STRUCTURE_TYPE24753; t26357.s0.value.structure_type24753 = &t26358; /* x199328 */ t26369.s0.tag = EXTERNAL_SYMBOL_TYPE; t26369.s0.value.external_symbol_type = q242; /* x199329 */ t26370.s0.tag = EXTERNAL_SYMBOL_TYPE; t26370.s0.value.external_symbol_type = q287; /* x199330 */ t26373.s0.tag = EXTERNAL_SYMBOL_TYPE; t26373.s0.value.external_symbol_type = q337; /* x199331 */ t26374.s0.tag = FIXNUM_TYPE; t26374.s0.value.fixnum_type = 0; /* x199332 */ t26374.s1.tag = NULL_TYPE; /* x199333 */ t26373.s1.tag = STRUCTURE_TYPE24753; t26373.s1.value.structure_type24753 = &t26374; /* x199334 */ t26372.s0.tag = STRUCTURE_TYPE24753; t26372.s0.value.structure_type24753 = &t26373; /* x199335 */ t26372.s1.tag = NULL_TYPE; /* x199336 */ t26371.s0.tag = STRUCTURE_TYPE24753; t26371.s0.value.structure_type24753 = &t26372; /* x199337 */ t26376.s0.tag = EXTERNAL_SYMBOL_TYPE; t26376.s0.value.external_symbol_type = q43; /* x199338 */ t26378.s0.tag = EXTERNAL_SYMBOL_TYPE; t26378.s0.value.external_symbol_type = q102; /* x199339 */ t26380.s0.tag = EXTERNAL_SYMBOL_TYPE; t26380.s0.value.external_symbol_type = q120; /* x199340 */ t26381.s0.tag = EXTERNAL_SYMBOL_TYPE; t26381.s0.value.external_symbol_type = q337; /* x199341 */ t26382.s0.tag = EXTERNAL_SYMBOL_TYPE; t26382.s0.value.external_symbol_type = q260; /* x199342 */ t26382.s1.tag = NULL_TYPE; /* x199343 */ t26381.s1.tag = STRUCTURE_TYPE24753; t26381.s1.value.structure_type24753 = &t26382; /* x199344 */ t26380.s1.tag = STRUCTURE_TYPE24753; t26380.s1.value.structure_type24753 = &t26381; /* x199345 */ t26379.s0.tag = STRUCTURE_TYPE24753; t26379.s0.value.structure_type24753 = &t26380; /* x199346 */ t26379.s1.tag = NULL_TYPE; /* x199347 */ t26378.s1.tag = STRUCTURE_TYPE24753; t26378.s1.value.structure_type24753 = &t26379; /* x199348 */ t26377.s0.tag = STRUCTURE_TYPE24753; t26377.s0.value.structure_type24753 = &t26378; /* x199349 */ t26384.s0.tag = EXTERNAL_SYMBOL_TYPE; t26384.s0.value.external_symbol_type = q239; /* x199350 */ t26386.s0.tag = EXTERNAL_SYMBOL_TYPE; t26386.s0.value.external_symbol_type = q164; /* x199351 */ t26387.s0.tag = EXTERNAL_SYMBOL_TYPE; t26387.s0.value.external_symbol_type = q409; /* x199352 */ t26388.s0.tag = EXTERNAL_SYMBOL_TYPE; t26388.s0.value.external_symbol_type = q337; /* x199353 */ t26390.s0.tag = EXTERNAL_SYMBOL_TYPE; t26390.s0.value.external_symbol_type = q163; /* x199354 */ t26391.s0.tag = EXTERNAL_SYMBOL_TYPE; t26391.s0.value.external_symbol_type = q161; /* x199355 */ t26392.s0.tag = EXTERNAL_SYMBOL_TYPE; t26392.s0.value.external_symbol_type = q337; /* x199356 */ t26392.s1.tag = NULL_TYPE; /* x199357 */ t26391.s1.tag = STRUCTURE_TYPE24753; t26391.s1.value.structure_type24753 = &t26392; /* x199358 */ t26390.s1.tag = STRUCTURE_TYPE24753; t26390.s1.value.structure_type24753 = &t26391; /* x199359 */ t26389.s0.tag = STRUCTURE_TYPE24753; t26389.s0.value.structure_type24753 = &t26390; /* x199360 */ t26389.s1.tag = NULL_TYPE; /* x199361 */ t26388.s1.tag = STRUCTURE_TYPE24753; t26388.s1.value.structure_type24753 = &t26389; /* x199362 */ t26387.s1.tag = STRUCTURE_TYPE24753; t26387.s1.value.structure_type24753 = &t26388; /* x199363 */ t26386.s1.tag = STRUCTURE_TYPE24753; t26386.s1.value.structure_type24753 = &t26387; /* x199364 */ t26385.s0.tag = STRUCTURE_TYPE24753; t26385.s0.value.structure_type24753 = &t26386; /* x199365 */ t26394.s0.tag = EXTERNAL_SYMBOL_TYPE; t26394.s0.value.external_symbol_type = q287; /* x199366 */ t26396.s0.tag = EXTERNAL_SYMBOL_TYPE; t26396.s0.value.external_symbol_type = q4; /* x199367 */ t26397.s0.tag = EXTERNAL_SYMBOL_TYPE; t26397.s0.value.external_symbol_type = q337; /* x199368 */ t26398.s0.tag = FIXNUM_TYPE; t26398.s0.value.fixnum_type = 1; /* x199369 */ t26398.s1.tag = NULL_TYPE; /* x199370 */ t26397.s1.tag = STRUCTURE_TYPE24753; t26397.s1.value.structure_type24753 = &t26398; /* x199371 */ t26396.s1.tag = STRUCTURE_TYPE24753; t26396.s1.value.structure_type24753 = &t26397; /* x199372 */ t26395.s0.tag = STRUCTURE_TYPE24753; t26395.s0.value.structure_type24753 = &t26396; /* x199373 */ t26395.s1.tag = NULL_TYPE; /* x199374 */ t26394.s1.tag = STRUCTURE_TYPE24753; t26394.s1.value.structure_type24753 = &t26395; /* x199375 */ t26393.s0.tag = STRUCTURE_TYPE24753; t26393.s0.value.structure_type24753 = &t26394; /* x199376 */ t26393.s1.tag = NULL_TYPE; /* x199377 */ t26385.s1.tag = STRUCTURE_TYPE24753; t26385.s1.value.structure_type24753 = &t26393; /* x199378 */ t26384.s1.tag = STRUCTURE_TYPE24753; t26384.s1.value.structure_type24753 = &t26385; /* x199379 */ t26383.s0.tag = STRUCTURE_TYPE24753; t26383.s0.value.structure_type24753 = &t26384; /* x199380 */ t26383.s1.tag = NULL_TYPE; /* x199381 */ t26377.s1.tag = STRUCTURE_TYPE24753; t26377.s1.value.structure_type24753 = &t26383; /* x199382 */ t26376.s1.tag = STRUCTURE_TYPE24753; t26376.s1.value.structure_type24753 = &t26377; /* x199383 */ t26375.s0.tag = STRUCTURE_TYPE24753; t26375.s0.value.structure_type24753 = &t26376; /* x199384 */ t26375.s1.tag = NULL_TYPE; /* x199385 */ t26371.s1.tag = STRUCTURE_TYPE24753; t26371.s1.value.structure_type24753 = &t26375; /* x199386 */ t26370.s1.tag = STRUCTURE_TYPE24753; t26370.s1.value.structure_type24753 = &t26371; /* x199387 */ t26369.s1.tag = STRUCTURE_TYPE24753; t26369.s1.value.structure_type24753 = &t26370; /* x199388 */ t26368.s0.tag = STRUCTURE_TYPE24753; t26368.s0.value.structure_type24753 = &t26369; /* x199389 */ t26399.s0.tag = EXTERNAL_SYMBOL_TYPE; t26399.s0.value.external_symbol_type = q409; /* x199390 */ t26399.s1.tag = NULL_TYPE; /* x199391 */ t26368.s1.tag = STRUCTURE_TYPE24753; t26368.s1.value.structure_type24753 = &t26399; /* x199392 */ t26357.s1.tag = STRUCTURE_TYPE24753; t26357.s1.value.structure_type24753 = &t26368; /* x199393 */ t26356.s1.tag = STRUCTURE_TYPE24753; t26356.s1.value.structure_type24753 = &t26357; /* x199394 */ t26355.s0.tag = STRUCTURE_TYPE24753; t26355.s0.value.structure_type24753 = &t26356; /* x199395 */ t26355.s1.tag = NULL_TYPE; /* x199396 */ t26352.s1.tag = STRUCTURE_TYPE24753; t26352.s1.value.structure_type24753 = &t26355; /* x199397 */ t26351.s1.tag = STRUCTURE_TYPE24753; t26351.s1.value.structure_type24753 = &t26352; /* x199400 */ t26404.s0.tag = EXTERNAL_SYMBOL_TYPE; t26404.s0.value.external_symbol_type = q97; /* x199401 */ t26406.s0.tag = EXTERNAL_SYMBOL_TYPE; t26406.s0.value.external_symbol_type = q429; /* x199402 */ t26407.s0.tag = EXTERNAL_SYMBOL_TYPE; t26407.s0.value.external_symbol_type = q161; /* x199403 */ t26408.s0.tag = EXTERNAL_SYMBOL_TYPE; t26408.s0.value.external_symbol_type = q56; /* x199404 */ t26408.s1.tag = NULL_TYPE; /* x199405 */ t26407.s1.tag = STRUCTURE_TYPE24753; t26407.s1.value.structure_type24753 = &t26408; /* x199406 */ t26406.s1.tag = STRUCTURE_TYPE24753; t26406.s1.value.structure_type24753 = &t26407; /* x199407 */ t26405.s0.tag = STRUCTURE_TYPE24753; t26405.s0.value.structure_type24753 = &t26406; /* x199408 */ t26410.s0.tag = EXTERNAL_SYMBOL_TYPE; t26410.s0.value.external_symbol_type = q242; /* x199409 */ t26413.s0.tag = EXTERNAL_SYMBOL_TYPE; t26413.s0.value.external_symbol_type = q260; /* x199410 */ t26415.s0.tag = EXTERNAL_SYMBOL_TYPE; t26415.s0.value.external_symbol_type = q162; /* x199411 */ t26416.s0.tag = EXTERNAL_SYMBOL_TYPE; t26416.s0.value.external_symbol_type = q161; /* x199412 */ t26416.s1.tag = NULL_TYPE; /* x199413 */ t26415.s1.tag = STRUCTURE_TYPE24753; t26415.s1.value.structure_type24753 = &t26416; /* x199414 */ t26414.s0.tag = STRUCTURE_TYPE24753; t26414.s0.value.structure_type24753 = &t26415; /* x199415 */ t26414.s1.tag = NULL_TYPE; /* x199416 */ t26413.s1.tag = STRUCTURE_TYPE24753; t26413.s1.value.structure_type24753 = &t26414; /* x199417 */ t26412.s0.tag = STRUCTURE_TYPE24753; t26412.s0.value.structure_type24753 = &t26413; /* x199418 */ t26412.s1.tag = NULL_TYPE; /* x199419 */ t26411.s0.tag = STRUCTURE_TYPE24753; t26411.s0.value.structure_type24753 = &t26412; /* x199420 */ t26418.s0.tag = EXTERNAL_SYMBOL_TYPE; t26418.s0.value.external_symbol_type = q242; /* x199421 */ t26419.s0.tag = EXTERNAL_SYMBOL_TYPE; t26419.s0.value.external_symbol_type = q287; /* x199422 */ t26422.s0.tag = EXTERNAL_SYMBOL_TYPE; t26422.s0.value.external_symbol_type = q337; /* x199423 */ t26423.s0.tag = FIXNUM_TYPE; t26423.s0.value.fixnum_type = 0; /* x199424 */ t26423.s1.tag = NULL_TYPE; /* x199425 */ t26422.s1.tag = STRUCTURE_TYPE24753; t26422.s1.value.structure_type24753 = &t26423; /* x199426 */ t26421.s0.tag = STRUCTURE_TYPE24753; t26421.s0.value.structure_type24753 = &t26422; /* x199427 */ t26421.s1.tag = NULL_TYPE; /* x199428 */ t26420.s0.tag = STRUCTURE_TYPE24753; t26420.s0.value.structure_type24753 = &t26421; /* x199429 */ t26425.s0.tag = EXTERNAL_SYMBOL_TYPE; t26425.s0.value.external_symbol_type = q43; /* x199430 */ t26427.s0.tag = EXTERNAL_SYMBOL_TYPE; t26427.s0.value.external_symbol_type = q102; /* x199431 */ t26429.s0.tag = EXTERNAL_SYMBOL_TYPE; t26429.s0.value.external_symbol_type = q120; /* x199432 */ t26430.s0.tag = EXTERNAL_SYMBOL_TYPE; t26430.s0.value.external_symbol_type = q337; /* x199433 */ t26431.s0.tag = EXTERNAL_SYMBOL_TYPE; t26431.s0.value.external_symbol_type = q260; /* x199434 */ t26431.s1.tag = NULL_TYPE; /* x199435 */ t26430.s1.tag = STRUCTURE_TYPE24753; t26430.s1.value.structure_type24753 = &t26431; /* x199436 */ t26429.s1.tag = STRUCTURE_TYPE24753; t26429.s1.value.structure_type24753 = &t26430; /* x199437 */ t26428.s0.tag = STRUCTURE_TYPE24753; t26428.s0.value.structure_type24753 = &t26429; /* x199438 */ t26428.s1.tag = NULL_TYPE; /* x199439 */ t26427.s1.tag = STRUCTURE_TYPE24753; t26427.s1.value.structure_type24753 = &t26428; /* x199440 */ t26426.s0.tag = STRUCTURE_TYPE24753; t26426.s0.value.structure_type24753 = &t26427; /* x199441 */ t26433.s0.tag = EXTERNAL_SYMBOL_TYPE; t26433.s0.value.external_symbol_type = q239; /* x199442 */ t26435.s0.tag = EXTERNAL_SYMBOL_TYPE; t26435.s0.value.external_symbol_type = q164; /* x199443 */ t26436.s0.tag = EXTERNAL_SYMBOL_TYPE; t26436.s0.value.external_symbol_type = q161; /* x199444 */ t26437.s0.tag = EXTERNAL_SYMBOL_TYPE; t26437.s0.value.external_symbol_type = q337; /* x199445 */ t26438.s0.tag = EXTERNAL_SYMBOL_TYPE; t26438.s0.value.external_symbol_type = q56; /* x199446 */ t26438.s1.tag = NULL_TYPE; /* x199447 */ t26437.s1.tag = STRUCTURE_TYPE24753; t26437.s1.value.structure_type24753 = &t26438; /* x199448 */ t26436.s1.tag = STRUCTURE_TYPE24753; t26436.s1.value.structure_type24753 = &t26437; /* x199449 */ t26435.s1.tag = STRUCTURE_TYPE24753; t26435.s1.value.structure_type24753 = &t26436; /* x199450 */ t26434.s0.tag = STRUCTURE_TYPE24753; t26434.s0.value.structure_type24753 = &t26435; /* x199451 */ t26440.s0.tag = EXTERNAL_SYMBOL_TYPE; t26440.s0.value.external_symbol_type = q287; /* x199452 */ t26442.s0.tag = EXTERNAL_SYMBOL_TYPE; t26442.s0.value.external_symbol_type = q4; /* x199453 */ t26443.s0.tag = EXTERNAL_SYMBOL_TYPE; t26443.s0.value.external_symbol_type = q337; /* x199454 */ t26444.s0.tag = FIXNUM_TYPE; t26444.s0.value.fixnum_type = 1; /* x199455 */ t26444.s1.tag = NULL_TYPE; /* x199456 */ t26443.s1.tag = STRUCTURE_TYPE24753; t26443.s1.value.structure_type24753 = &t26444; /* x199457 */ t26442.s1.tag = STRUCTURE_TYPE24753; t26442.s1.value.structure_type24753 = &t26443; /* x199458 */ t26441.s0.tag = STRUCTURE_TYPE24753; t26441.s0.value.structure_type24753 = &t26442; /* x199459 */ t26441.s1.tag = NULL_TYPE; /* x199460 */ t26440.s1.tag = STRUCTURE_TYPE24753; t26440.s1.value.structure_type24753 = &t26441; /* x199461 */ t26439.s0.tag = STRUCTURE_TYPE24753; t26439.s0.value.structure_type24753 = &t26440; /* x199462 */ t26439.s1.tag = NULL_TYPE; /* x199463 */ t26434.s1.tag = STRUCTURE_TYPE24753; t26434.s1.value.structure_type24753 = &t26439; /* x199464 */ t26433.s1.tag = STRUCTURE_TYPE24753; t26433.s1.value.structure_type24753 = &t26434; /* x199465 */ t26432.s0.tag = STRUCTURE_TYPE24753; t26432.s0.value.structure_type24753 = &t26433; /* x199466 */ t26432.s1.tag = NULL_TYPE; /* x199467 */ t26426.s1.tag = STRUCTURE_TYPE24753; t26426.s1.value.structure_type24753 = &t26432; /* x199468 */ t26425.s1.tag = STRUCTURE_TYPE24753; t26425.s1.value.structure_type24753 = &t26426; /* x199469 */ t26424.s0.tag = STRUCTURE_TYPE24753; t26424.s0.value.structure_type24753 = &t26425; /* x199470 */ t26424.s1.tag = NULL_TYPE; /* x199471 */ t26420.s1.tag = STRUCTURE_TYPE24753; t26420.s1.value.structure_type24753 = &t26424; /* x199472 */ t26419.s1.tag = STRUCTURE_TYPE24753; t26419.s1.value.structure_type24753 = &t26420; /* x199473 */ t26418.s1.tag = STRUCTURE_TYPE24753; t26418.s1.value.structure_type24753 = &t26419; /* x199474 */ t26417.s0.tag = STRUCTURE_TYPE24753; t26417.s0.value.structure_type24753 = &t26418; /* x199475 */ t26417.s1.tag = NULL_TYPE; /* x199476 */ t26411.s1.tag = STRUCTURE_TYPE24753; t26411.s1.value.structure_type24753 = &t26417; /* x199477 */ t26410.s1.tag = STRUCTURE_TYPE24753; t26410.s1.value.structure_type24753 = &t26411; /* x199478 */ t26409.s0.tag = STRUCTURE_TYPE24753; t26409.s0.value.structure_type24753 = &t26410; /* x199479 */ t26409.s1.tag = NULL_TYPE; /* x199480 */ t26405.s1.tag = STRUCTURE_TYPE24753; t26405.s1.value.structure_type24753 = &t26409; /* x199481 */ t26404.s1.tag = STRUCTURE_TYPE24753; t26404.s1.value.structure_type24753 = &t26405; /* x199484 */ t26449.s0.tag = EXTERNAL_SYMBOL_TYPE; t26449.s0.value.external_symbol_type = q97; /* x199485 */ t26451.s0.tag = EXTERNAL_SYMBOL_TYPE; t26451.s0.value.external_symbol_type = q413; /* x199486 */ t26452.s0.tag = EXTERNAL_SYMBOL_TYPE; t26452.s0.value.external_symbol_type = q161; /* x199487 */ t26452.s1.tag = NULL_TYPE; /* x199488 */ t26451.s1.tag = STRUCTURE_TYPE24753; t26451.s1.value.structure_type24753 = &t26452; /* x199489 */ t26450.s0.tag = STRUCTURE_TYPE24753; t26450.s0.value.structure_type24753 = &t26451; /* x199490 */ t26454.s0.tag = EXTERNAL_SYMBOL_TYPE; t26454.s0.value.external_symbol_type = q246; /* x199491 */ t26457.s0.tag = EXTERNAL_SYMBOL_TYPE; t26457.s0.value.external_symbol_type = q260; /* x199492 */ t26459.s0.tag = EXTERNAL_SYMBOL_TYPE; t26459.s0.value.external_symbol_type = q162; /* x199493 */ t26460.s0.tag = EXTERNAL_SYMBOL_TYPE; t26460.s0.value.external_symbol_type = q161; /* x199494 */ t26460.s1.tag = NULL_TYPE; /* x199495 */ t26459.s1.tag = STRUCTURE_TYPE24753; t26459.s1.value.structure_type24753 = &t26460; /* x199496 */ t26458.s0.tag = STRUCTURE_TYPE24753; t26458.s0.value.structure_type24753 = &t26459; /* x199497 */ t26458.s1.tag = NULL_TYPE; /* x199498 */ t26457.s1.tag = STRUCTURE_TYPE24753; t26457.s1.value.structure_type24753 = &t26458; /* x199499 */ t26456.s0.tag = STRUCTURE_TYPE24753; t26456.s0.value.structure_type24753 = &t26457; /* x199500 */ t26462.s0.tag = EXTERNAL_SYMBOL_TYPE; t26462.s0.value.external_symbol_type = q409; /* x199501 */ t26464.s0.tag = EXTERNAL_SYMBOL_TYPE; t26464.s0.value.external_symbol_type = q160; /* x199502 */ t26465.s0.tag = EXTERNAL_SYMBOL_TYPE; t26465.s0.value.external_symbol_type = q260; /* x199503 */ t26465.s1.tag = NULL_TYPE; /* x199504 */ t26464.s1.tag = STRUCTURE_TYPE24753; t26464.s1.value.structure_type24753 = &t26465; /* x199505 */ t26463.s0.tag = STRUCTURE_TYPE24753; t26463.s0.value.structure_type24753 = &t26464; /* x199506 */ t26463.s1.tag = NULL_TYPE; /* x199507 */ t26462.s1.tag = STRUCTURE_TYPE24753; t26462.s1.value.structure_type24753 = &t26463; /* x199508 */ t26461.s0.tag = STRUCTURE_TYPE24753; t26461.s0.value.structure_type24753 = &t26462; /* x199509 */ t26461.s1.tag = NULL_TYPE; /* x199510 */ t26456.s1.tag = STRUCTURE_TYPE24753; t26456.s1.value.structure_type24753 = &t26461; /* x199511 */ t26455.s0.tag = STRUCTURE_TYPE24753; t26455.s0.value.structure_type24753 = &t26456; /* x199512 */ t26467.s0.tag = EXTERNAL_SYMBOL_TYPE; t26467.s0.value.external_symbol_type = q242; /* x199513 */ t26468.s0.tag = EXTERNAL_SYMBOL_TYPE; t26468.s0.value.external_symbol_type = q287; /* x199514 */ t26471.s0.tag = EXTERNAL_SYMBOL_TYPE; t26471.s0.value.external_symbol_type = q337; /* x199515 */ t26472.s0.tag = FIXNUM_TYPE; t26472.s0.value.fixnum_type = 0; /* x199516 */ t26472.s1.tag = NULL_TYPE; /* x199517 */ t26471.s1.tag = STRUCTURE_TYPE24753; t26471.s1.value.structure_type24753 = &t26472; /* x199518 */ t26470.s0.tag = STRUCTURE_TYPE24753; t26470.s0.value.structure_type24753 = &t26471; /* x199519 */ t26470.s1.tag = NULL_TYPE; /* x199520 */ t26469.s0.tag = STRUCTURE_TYPE24753; t26469.s0.value.structure_type24753 = &t26470; /* x199521 */ t26474.s0.tag = EXTERNAL_SYMBOL_TYPE; t26474.s0.value.external_symbol_type = q43; /* x199522 */ t26476.s0.tag = EXTERNAL_SYMBOL_TYPE; t26476.s0.value.external_symbol_type = q102; /* x199523 */ t26478.s0.tag = EXTERNAL_SYMBOL_TYPE; t26478.s0.value.external_symbol_type = q120; /* x199524 */ t26479.s0.tag = EXTERNAL_SYMBOL_TYPE; t26479.s0.value.external_symbol_type = q337; /* x199525 */ t26480.s0.tag = EXTERNAL_SYMBOL_TYPE; t26480.s0.value.external_symbol_type = q260; /* x199526 */ t26480.s1.tag = NULL_TYPE; /* x199527 */ t26479.s1.tag = STRUCTURE_TYPE24753; t26479.s1.value.structure_type24753 = &t26480; /* x199528 */ t26478.s1.tag = STRUCTURE_TYPE24753; t26478.s1.value.structure_type24753 = &t26479; /* x199529 */ t26477.s0.tag = STRUCTURE_TYPE24753; t26477.s0.value.structure_type24753 = &t26478; /* x199530 */ t26477.s1.tag = NULL_TYPE; /* x199531 */ t26476.s1.tag = STRUCTURE_TYPE24753; t26476.s1.value.structure_type24753 = &t26477; /* x199532 */ t26475.s0.tag = STRUCTURE_TYPE24753; t26475.s0.value.structure_type24753 = &t26476; /* x199533 */ t26482.s0.tag = EXTERNAL_SYMBOL_TYPE; t26482.s0.value.external_symbol_type = q239; /* x199534 */ t26484.s0.tag = EXTERNAL_SYMBOL_TYPE; t26484.s0.value.external_symbol_type = q164; /* x199535 */ t26485.s0.tag = EXTERNAL_SYMBOL_TYPE; t26485.s0.value.external_symbol_type = q409; /* x199536 */ t26486.s0.tag = EXTERNAL_SYMBOL_TYPE; t26486.s0.value.external_symbol_type = q337; /* x199537 */ t26488.s0.tag = EXTERNAL_SYMBOL_TYPE; t26488.s0.value.external_symbol_type = q163; /* x199538 */ t26489.s0.tag = EXTERNAL_SYMBOL_TYPE; t26489.s0.value.external_symbol_type = q161; /* x199539 */ t26491.s0.tag = EXTERNAL_SYMBOL_TYPE; t26491.s0.value.external_symbol_type = q2; /* x199540 */ t26493.s0.tag = EXTERNAL_SYMBOL_TYPE; t26493.s0.value.external_symbol_type = q2; /* x199541 */ t26494.s0.tag = EXTERNAL_SYMBOL_TYPE; t26494.s0.value.external_symbol_type = q260; /* x199542 */ t26495.s0.tag = EXTERNAL_SYMBOL_TYPE; t26495.s0.value.external_symbol_type = q337; /* x199543 */ t26495.s1.tag = NULL_TYPE; /* x199544 */ t26494.s1.tag = STRUCTURE_TYPE24753; t26494.s1.value.structure_type24753 = &t26495; /* x199545 */ t26493.s1.tag = STRUCTURE_TYPE24753; t26493.s1.value.structure_type24753 = &t26494; /* x199546 */ t26492.s0.tag = STRUCTURE_TYPE24753; t26492.s0.value.structure_type24753 = &t26493; /* x199547 */ t26496.s0.tag = FIXNUM_TYPE; t26496.s0.value.fixnum_type = 1; /* x199548 */ t26496.s1.tag = NULL_TYPE; /* x199549 */ t26492.s1.tag = STRUCTURE_TYPE24753; t26492.s1.value.structure_type24753 = &t26496; /* x199550 */ t26491.s1.tag = STRUCTURE_TYPE24753; t26491.s1.value.structure_type24753 = &t26492; /* x199551 */ t26490.s0.tag = STRUCTURE_TYPE24753; t26490.s0.value.structure_type24753 = &t26491; /* x199552 */ t26490.s1.tag = NULL_TYPE; /* x199553 */ t26489.s1.tag = STRUCTURE_TYPE24753; t26489.s1.value.structure_type24753 = &t26490; /* x199554 */ t26488.s1.tag = STRUCTURE_TYPE24753; t26488.s1.value.structure_type24753 = &t26489; /* x199555 */ t26487.s0.tag = STRUCTURE_TYPE24753; t26487.s0.value.structure_type24753 = &t26488; /* x199556 */ t26487.s1.tag = NULL_TYPE; /* x199557 */ t26486.s1.tag = STRUCTURE_TYPE24753; t26486.s1.value.structure_type24753 = &t26487; /* x199558 */ t26485.s1.tag = STRUCTURE_TYPE24753; t26485.s1.value.structure_type24753 = &t26486; /* x199559 */ t26484.s1.tag = STRUCTURE_TYPE24753; t26484.s1.value.structure_type24753 = &t26485; /* x199560 */ t26483.s0.tag = STRUCTURE_TYPE24753; t26483.s0.value.structure_type24753 = &t26484; /* x199561 */ t26498.s0.tag = EXTERNAL_SYMBOL_TYPE; t26498.s0.value.external_symbol_type = q287; /* x199562 */ t26500.s0.tag = EXTERNAL_SYMBOL_TYPE; t26500.s0.value.external_symbol_type = q4; /* x199563 */ t26501.s0.tag = EXTERNAL_SYMBOL_TYPE; t26501.s0.value.external_symbol_type = q337; /* x199564 */ t26502.s0.tag = FIXNUM_TYPE; t26502.s0.value.fixnum_type = 1; /* x199565 */ t26502.s1.tag = NULL_TYPE; /* x199566 */ t26501.s1.tag = STRUCTURE_TYPE24753; t26501.s1.value.structure_type24753 = &t26502; /* x199567 */ t26500.s1.tag = STRUCTURE_TYPE24753; t26500.s1.value.structure_type24753 = &t26501; /* x199568 */ t26499.s0.tag = STRUCTURE_TYPE24753; t26499.s0.value.structure_type24753 = &t26500; /* x199569 */ t26499.s1.tag = NULL_TYPE; /* x199570 */ t26498.s1.tag = STRUCTURE_TYPE24753; t26498.s1.value.structure_type24753 = &t26499; /* x199571 */ t26497.s0.tag = STRUCTURE_TYPE24753; t26497.s0.value.structure_type24753 = &t26498; /* x199572 */ t26497.s1.tag = NULL_TYPE; /* x199573 */ t26483.s1.tag = STRUCTURE_TYPE24753; t26483.s1.value.structure_type24753 = &t26497; /* x199574 */ t26482.s1.tag = STRUCTURE_TYPE24753; t26482.s1.value.structure_type24753 = &t26483; /* x199575 */ t26481.s0.tag = STRUCTURE_TYPE24753; t26481.s0.value.structure_type24753 = &t26482; /* x199576 */ t26481.s1.tag = NULL_TYPE; /* x199577 */ t26475.s1.tag = STRUCTURE_TYPE24753; t26475.s1.value.structure_type24753 = &t26481; /* x199578 */ t26474.s1.tag = STRUCTURE_TYPE24753; t26474.s1.value.structure_type24753 = &t26475; /* x199579 */ t26473.s0.tag = STRUCTURE_TYPE24753; t26473.s0.value.structure_type24753 = &t26474; /* x199580 */ t26473.s1.tag = NULL_TYPE; /* x199581 */ t26469.s1.tag = STRUCTURE_TYPE24753; t26469.s1.value.structure_type24753 = &t26473; /* x199582 */ t26468.s1.tag = STRUCTURE_TYPE24753; t26468.s1.value.structure_type24753 = &t26469; /* x199583 */ t26467.s1.tag = STRUCTURE_TYPE24753; t26467.s1.value.structure_type24753 = &t26468; /* x199584 */ t26466.s0.tag = STRUCTURE_TYPE24753; t26466.s0.value.structure_type24753 = &t26467; /* x199585 */ t26503.s0.tag = EXTERNAL_SYMBOL_TYPE; t26503.s0.value.external_symbol_type = q409; /* x199586 */ t26503.s1.tag = NULL_TYPE; /* x199587 */ t26466.s1.tag = STRUCTURE_TYPE24753; t26466.s1.value.structure_type24753 = &t26503; /* x199588 */ t26455.s1.tag = STRUCTURE_TYPE24753; t26455.s1.value.structure_type24753 = &t26466; /* x199589 */ t26454.s1.tag = STRUCTURE_TYPE24753; t26454.s1.value.structure_type24753 = &t26455; /* x199590 */ t26453.s0.tag = STRUCTURE_TYPE24753; t26453.s0.value.structure_type24753 = &t26454; /* x199591 */ t26453.s1.tag = NULL_TYPE; /* x199592 */ t26450.s1.tag = STRUCTURE_TYPE24753; t26450.s1.value.structure_type24753 = &t26453; /* x199593 */ t26449.s1.tag = STRUCTURE_TYPE24753; t26449.s1.value.structure_type24753 = &t26450; /* x199596 */ t26508.s0.tag = EXTERNAL_SYMBOL_TYPE; t26508.s0.value.external_symbol_type = q97; /* x199597 */ t26510.s0.tag = EXTERNAL_SYMBOL_TYPE; t26510.s0.value.external_symbol_type = q165; /* x199598 */ t26511.s0.tag = EXTERNAL_SYMBOL_TYPE; t26511.s0.value.external_symbol_type = q318; /* x199599 */ t26511.s1.tag = NULL_TYPE; /* x199600 */ t26510.s1.tag = STRUCTURE_TYPE24753; t26510.s1.value.structure_type24753 = &t26511; /* x199601 */ t26509.s0.tag = STRUCTURE_TYPE24753; t26509.s0.value.structure_type24753 = &t26510; /* x199602 */ t26514.s0.tag = EXTERNAL_SYMBOL_TYPE; t26514.s0.value.external_symbol_type = q77; /* x199603 */ t26515.s0.tag = EXTERNAL_SYMBOL_TYPE; t26515.s0.value.external_symbol_type = q165; /* x199604 */ t26515.s1.tag = NULL_TYPE; /* x199605 */ t26514.s1.tag = STRUCTURE_TYPE24753; t26514.s1.value.structure_type24753 = &t26515; /* x199606 */ t26513.s0.tag = STRUCTURE_TYPE24753; t26513.s0.value.structure_type24753 = &t26514; /* x199607 */ t26516.s0.tag = EXTERNAL_SYMBOL_TYPE; t26516.s0.value.external_symbol_type = q318; /* x199608 */ t26516.s1.tag = NULL_TYPE; /* x199609 */ t26513.s1.tag = STRUCTURE_TYPE24753; t26513.s1.value.structure_type24753 = &t26516; /* x199610 */ t26512.s0.tag = STRUCTURE_TYPE24753; t26512.s0.value.structure_type24753 = &t26513; /* x199611 */ t26512.s1.tag = NULL_TYPE; /* x199612 */ t26509.s1.tag = STRUCTURE_TYPE24753; t26509.s1.value.structure_type24753 = &t26512; /* x199613 */ t26508.s1.tag = STRUCTURE_TYPE24753; t26508.s1.value.structure_type24753 = &t26509; /* x199616 */ t26521.s0.tag = EXTERNAL_SYMBOL_TYPE; t26521.s0.value.external_symbol_type = q97; /* x199617 */ t26523.s0.tag = EXTERNAL_SYMBOL_TYPE; t26523.s0.value.external_symbol_type = q166; /* x199618 */ t26524.s0.tag = EXTERNAL_SYMBOL_TYPE; t26524.s0.value.external_symbol_type = q337; /* x199619 */ t26524.s1.tag = EXTERNAL_SYMBOL_TYPE; t26524.s1.value.external_symbol_type = q481; /* x199620 */ t26523.s1.tag = STRUCTURE_TYPE24753; t26523.s1.value.structure_type24753 = &t26524; /* x199621 */ t26522.s0.tag = STRUCTURE_TYPE24753; t26522.s0.value.structure_type24753 = &t26523; /* x199622 */ t26526.s0.tag = EXTERNAL_SYMBOL_TYPE; t26526.s0.value.external_symbol_type = q240; /* x199623 */ t26529.s0.tag = EXTERNAL_SYMBOL_TYPE; t26529.s0.value.external_symbol_type = q111; /* x199624 */ t26530.s0.tag = EXTERNAL_SYMBOL_TYPE; t26530.s0.value.external_symbol_type = q481; /* x199625 */ t26530.s1.tag = NULL_TYPE; /* x199626 */ t26529.s1.tag = STRUCTURE_TYPE24753; t26529.s1.value.structure_type24753 = &t26530; /* x199627 */ t26528.s0.tag = STRUCTURE_TYPE24753; t26528.s0.value.structure_type24753 = &t26529; /* x199628 */ t26533.s0.tag = EXTERNAL_SYMBOL_TYPE; t26533.s0.value.external_symbol_type = q77; /* x199629 */ t26534.s0.tag = EXTERNAL_SYMBOL_TYPE; t26534.s0.value.external_symbol_type = q166; /* x199630 */ t26534.s1.tag = NULL_TYPE; /* x199631 */ t26533.s1.tag = STRUCTURE_TYPE24753; t26533.s1.value.structure_type24753 = &t26534; /* x199632 */ t26532.s0.tag = STRUCTURE_TYPE24753; t26532.s0.value.structure_type24753 = &t26533; /* x199633 */ t26535.s0.tag = EXTERNAL_SYMBOL_TYPE; t26535.s0.value.external_symbol_type = q337; /* x199634 */ t26535.s1.tag = NULL_TYPE; /* x199635 */ t26532.s1.tag = STRUCTURE_TYPE24753; t26532.s1.value.structure_type24753 = &t26535; /* x199636 */ t26531.s0.tag = STRUCTURE_TYPE24753; t26531.s0.value.structure_type24753 = &t26532; /* x199637 */ t26531.s1.tag = NULL_TYPE; /* x199638 */ t26528.s1.tag = STRUCTURE_TYPE24753; t26528.s1.value.structure_type24753 = &t26531; /* x199639 */ t26527.s0.tag = STRUCTURE_TYPE24753; t26527.s0.value.structure_type24753 = &t26528; /* x199640 */ t26538.s0.tag = EXTERNAL_SYMBOL_TYPE; t26538.s0.value.external_symbol_type = q111; /* x199641 */ t26540.s0.tag = EXTERNAL_SYMBOL_TYPE; t26540.s0.value.external_symbol_type = q108; /* x199642 */ t26541.s0.tag = EXTERNAL_SYMBOL_TYPE; t26541.s0.value.external_symbol_type = q481; /* x199643 */ t26541.s1.tag = NULL_TYPE; /* x199644 */ t26540.s1.tag = STRUCTURE_TYPE24753; t26540.s1.value.structure_type24753 = &t26541; /* x199645 */ t26539.s0.tag = STRUCTURE_TYPE24753; t26539.s0.value.structure_type24753 = &t26540; /* x199646 */ t26539.s1.tag = NULL_TYPE; /* x199647 */ t26538.s1.tag = STRUCTURE_TYPE24753; t26538.s1.value.structure_type24753 = &t26539; /* x199648 */ t26537.s0.tag = STRUCTURE_TYPE24753; t26537.s0.value.structure_type24753 = &t26538; /* x199649 */ t26544.s0.tag = EXTERNAL_SYMBOL_TYPE; t26544.s0.value.external_symbol_type = q77; /* x199650 */ t26545.s0.tag = EXTERNAL_SYMBOL_TYPE; t26545.s0.value.external_symbol_type = q166; /* x199651 */ t26545.s1.tag = NULL_TYPE; /* x199652 */ t26544.s1.tag = STRUCTURE_TYPE24753; t26544.s1.value.structure_type24753 = &t26545; /* x199653 */ t26543.s0.tag = STRUCTURE_TYPE24753; t26543.s0.value.structure_type24753 = &t26544; /* x199654 */ t26546.s0.tag = EXTERNAL_SYMBOL_TYPE; t26546.s0.value.external_symbol_type = q337; /* x199655 */ t26548.s0.tag = EXTERNAL_SYMBOL_TYPE; t26548.s0.value.external_symbol_type = q107; /* x199656 */ t26549.s0.tag = EXTERNAL_SYMBOL_TYPE; t26549.s0.value.external_symbol_type = q481; /* x199657 */ t26549.s1.tag = NULL_TYPE; /* x199658 */ t26548.s1.tag = STRUCTURE_TYPE24753; t26548.s1.value.structure_type24753 = &t26549; /* x199659 */ t26547.s0.tag = STRUCTURE_TYPE24753; t26547.s0.value.structure_type24753 = &t26548; /* x199660 */ t26547.s1.tag = NULL_TYPE; /* x199661 */ t26546.s1.tag = STRUCTURE_TYPE24753; t26546.s1.value.structure_type24753 = &t26547; /* x199662 */ t26543.s1.tag = STRUCTURE_TYPE24753; t26543.s1.value.structure_type24753 = &t26546; /* x199663 */ t26542.s0.tag = STRUCTURE_TYPE24753; t26542.s0.value.structure_type24753 = &t26543; /* x199664 */ t26542.s1.tag = NULL_TYPE; /* x199665 */ t26537.s1.tag = STRUCTURE_TYPE24753; t26537.s1.value.structure_type24753 = &t26542; /* x199666 */ t26536.s0.tag = STRUCTURE_TYPE24753; t26536.s0.value.structure_type24753 = &t26537; /* x199667 */ t26551.s0.tag = EXTERNAL_SYMBOL_TYPE; t26551.s0.value.external_symbol_type = q95; /* x199668 */ t26553.s0.tag = EXTERNAL_SYMBOL_TYPE; t26553.s0.value.external_symbol_type = q179; /* x199669 */ t26554.s0.tag = STRING_TYPE; t26554.s0.value.string_type = "Attempt to call MAKE-VECTOR with the wrong number of arguments"; /* x199670 */ t26554.s1.tag = NULL_TYPE; /* x199671 */ t26553.s1.tag = STRUCTURE_TYPE24753; t26553.s1.value.structure_type24753 = &t26554; /* x199672 */ t26552.s0.tag = STRUCTURE_TYPE24753; t26552.s0.value.structure_type24753 = &t26553; /* x199673 */ t26552.s1.tag = NULL_TYPE; /* x199674 */ t26551.s1.tag = STRUCTURE_TYPE24753; t26551.s1.value.structure_type24753 = &t26552; /* x199675 */ t26550.s0.tag = STRUCTURE_TYPE24753; t26550.s0.value.structure_type24753 = &t26551; /* x199676 */ t26550.s1.tag = NULL_TYPE; /* x199677 */ t26536.s1.tag = STRUCTURE_TYPE24753; t26536.s1.value.structure_type24753 = &t26550; /* x199678 */ t26527.s1.tag = STRUCTURE_TYPE24753; t26527.s1.value.structure_type24753 = &t26536; /* x199679 */ t26526.s1.tag = STRUCTURE_TYPE24753; t26526.s1.value.structure_type24753 = &t26527; /* x199680 */ t26525.s0.tag = STRUCTURE_TYPE24753; t26525.s0.value.structure_type24753 = &t26526; /* x199681 */ t26525.s1.tag = NULL_TYPE; /* x199682 */ t26522.s1.tag = STRUCTURE_TYPE24753; t26522.s1.value.structure_type24753 = &t26525; /* x199683 */ t26521.s1.tag = STRUCTURE_TYPE24753; t26521.s1.value.structure_type24753 = &t26522; /* x199686 */ t26559.s0.tag = EXTERNAL_SYMBOL_TYPE; t26559.s0.value.external_symbol_type = q97; /* x199687 */ t26561.s0.tag = EXTERNAL_SYMBOL_TYPE; t26561.s0.value.external_symbol_type = q167; /* x199688 */ t26562.s0.tag = EXTERNAL_SYMBOL_TYPE; t26562.s0.value.external_symbol_type = q6; /* x199689 */ t26563.s0.tag = EXTERNAL_SYMBOL_TYPE; t26563.s0.value.external_symbol_type = q482; /* x199690 */ t26564.s0.tag = EXTERNAL_SYMBOL_TYPE; t26564.s0.value.external_symbol_type = q483; /* x199691 */ t26564.s1.tag = NULL_TYPE; /* x199692 */ t26563.s1.tag = STRUCTURE_TYPE24753; t26563.s1.value.structure_type24753 = &t26564; /* x199693 */ t26562.s1.tag = STRUCTURE_TYPE24753; t26562.s1.value.structure_type24753 = &t26563; /* x199694 */ t26561.s1.tag = STRUCTURE_TYPE24753; t26561.s1.value.structure_type24753 = &t26562; /* x199695 */ t26560.s0.tag = STRUCTURE_TYPE24753; t26560.s0.value.structure_type24753 = &t26561; /* x199696 */ t26567.s0.tag = EXTERNAL_SYMBOL_TYPE; t26567.s0.value.external_symbol_type = q77; /* x199697 */ t26568.s0.tag = EXTERNAL_SYMBOL_TYPE; t26568.s0.value.external_symbol_type = q167; /* x199698 */ t26568.s1.tag = NULL_TYPE; /* x199699 */ t26567.s1.tag = STRUCTURE_TYPE24753; t26567.s1.value.structure_type24753 = &t26568; /* x199700 */ t26566.s0.tag = STRUCTURE_TYPE24753; t26566.s0.value.structure_type24753 = &t26567; /* x199701 */ t26569.s0.tag = EXTERNAL_SYMBOL_TYPE; t26569.s0.value.external_symbol_type = q6; /* x199702 */ t26570.s0.tag = EXTERNAL_SYMBOL_TYPE; t26570.s0.value.external_symbol_type = q482; /* x199703 */ t26571.s0.tag = EXTERNAL_SYMBOL_TYPE; t26571.s0.value.external_symbol_type = q483; /* x199704 */ t26571.s1.tag = NULL_TYPE; /* x199705 */ t26570.s1.tag = STRUCTURE_TYPE24753; t26570.s1.value.structure_type24753 = &t26571; /* x199706 */ t26569.s1.tag = STRUCTURE_TYPE24753; t26569.s1.value.structure_type24753 = &t26570; /* x199707 */ t26566.s1.tag = STRUCTURE_TYPE24753; t26566.s1.value.structure_type24753 = &t26569; /* x199708 */ t26565.s0.tag = STRUCTURE_TYPE24753; t26565.s0.value.structure_type24753 = &t26566; /* x199709 */ t26565.s1.tag = NULL_TYPE; /* x199710 */ t26560.s1.tag = STRUCTURE_TYPE24753; t26560.s1.value.structure_type24753 = &t26565; /* x199711 */ t26559.s1.tag = STRUCTURE_TYPE24753; t26559.s1.value.structure_type24753 = &t26560; /* x199714 */ t26576.s0.tag = EXTERNAL_SYMBOL_TYPE; t26576.s0.value.external_symbol_type = q97; /* x199715 */ t26578.s0.tag = EXTERNAL_SYMBOL_TYPE; t26578.s0.value.external_symbol_type = q6; /* x199716 */ t26578.s1.tag = EXTERNAL_SYMBOL_TYPE; t26578.s1.value.external_symbol_type = q394; /* x199717 */ t26577.s0.tag = STRUCTURE_TYPE24753; t26577.s0.value.structure_type24753 = &t26578; /* x199718 */ t26580.s0.tag = EXTERNAL_SYMBOL_TYPE; t26580.s0.value.external_symbol_type = q242; /* x199719 */ t26583.s0.tag = EXTERNAL_SYMBOL_TYPE; t26583.s0.value.external_symbol_type = q409; /* x199720 */ t26585.s0.tag = EXTERNAL_SYMBOL_TYPE; t26585.s0.value.external_symbol_type = q166; /* x199721 */ t26587.s0.tag = EXTERNAL_SYMBOL_TYPE; t26587.s0.value.external_symbol_type = q395; /* x199722 */ t26588.s0.tag = EXTERNAL_SYMBOL_TYPE; t26588.s0.value.external_symbol_type = q394; /* x199723 */ t26588.s1.tag = NULL_TYPE; /* x199724 */ t26587.s1.tag = STRUCTURE_TYPE24753; t26587.s1.value.structure_type24753 = &t26588; /* x199725 */ t26586.s0.tag = STRUCTURE_TYPE24753; t26586.s0.value.structure_type24753 = &t26587; /* x199726 */ t26586.s1.tag = NULL_TYPE; /* x199727 */ t26585.s1.tag = STRUCTURE_TYPE24753; t26585.s1.value.structure_type24753 = &t26586; /* x199728 */ t26584.s0.tag = STRUCTURE_TYPE24753; t26584.s0.value.structure_type24753 = &t26585; /* x199729 */ t26584.s1.tag = NULL_TYPE; /* x199730 */ t26583.s1.tag = STRUCTURE_TYPE24753; t26583.s1.value.structure_type24753 = &t26584; /* x199731 */ t26582.s0.tag = STRUCTURE_TYPE24753; t26582.s0.value.structure_type24753 = &t26583; /* x199732 */ t26582.s1.tag = NULL_TYPE; /* x199733 */ t26581.s0.tag = STRUCTURE_TYPE24753; t26581.s0.value.structure_type24753 = &t26582; /* x199734 */ t26590.s0.tag = EXTERNAL_SYMBOL_TYPE; t26590.s0.value.external_symbol_type = q242; /* x199735 */ t26591.s0.tag = EXTERNAL_SYMBOL_TYPE; t26591.s0.value.external_symbol_type = q287; /* x199736 */ t26594.s0.tag = EXTERNAL_SYMBOL_TYPE; t26594.s0.value.external_symbol_type = q337;} void initialize_constants22(void) {/* x199737 */ t26595.s0.tag = FIXNUM_TYPE; t26595.s0.value.fixnum_type = 0; /* x199738 */ t26595.s1.tag = NULL_TYPE; /* x199739 */ t26594.s1.tag = STRUCTURE_TYPE24753; t26594.s1.value.structure_type24753 = &t26595; /* x199740 */ t26593.s0.tag = STRUCTURE_TYPE24753; t26593.s0.value.structure_type24753 = &t26594; /* x199741 */ t26597.s0.tag = EXTERNAL_SYMBOL_TYPE; t26597.s0.value.external_symbol_type = q394; /* x199742 */ t26598.s0.tag = EXTERNAL_SYMBOL_TYPE; t26598.s0.value.external_symbol_type = q394; /* x199743 */ t26598.s1.tag = NULL_TYPE; /* x199744 */ t26597.s1.tag = STRUCTURE_TYPE24753; t26597.s1.value.structure_type24753 = &t26598; /* x199745 */ t26596.s0.tag = STRUCTURE_TYPE24753; t26596.s0.value.structure_type24753 = &t26597; /* x199746 */ t26596.s1.tag = NULL_TYPE; /* x199747 */ t26593.s1.tag = STRUCTURE_TYPE24753; t26593.s1.value.structure_type24753 = &t26596; /* x199748 */ t26592.s0.tag = STRUCTURE_TYPE24753; t26592.s0.value.structure_type24753 = &t26593; /* x199749 */ t26600.s0.tag = EXTERNAL_SYMBOL_TYPE; t26600.s0.value.external_symbol_type = q43; /* x199750 */ t26602.s0.tag = EXTERNAL_SYMBOL_TYPE; t26602.s0.value.external_symbol_type = q111; /* x199751 */ t26603.s0.tag = EXTERNAL_SYMBOL_TYPE; t26603.s0.value.external_symbol_type = q394; /* x199752 */ t26603.s1.tag = NULL_TYPE; /* x199753 */ t26602.s1.tag = STRUCTURE_TYPE24753; t26602.s1.value.structure_type24753 = &t26603; /* x199754 */ t26601.s0.tag = STRUCTURE_TYPE24753; t26601.s0.value.structure_type24753 = &t26602; /* x199755 */ t26604.s0.tag = EXTERNAL_SYMBOL_TYPE; t26604.s0.value.external_symbol_type = q409; /* x199756 */ t26606.s0.tag = EXTERNAL_SYMBOL_TYPE; t26606.s0.value.external_symbol_type = q239; /* x199757 */ t26608.s0.tag = EXTERNAL_SYMBOL_TYPE; t26608.s0.value.external_symbol_type = q170; /* x199758 */ t26609.s0.tag = EXTERNAL_SYMBOL_TYPE; t26609.s0.value.external_symbol_type = q409; /* x199759 */ t26610.s0.tag = EXTERNAL_SYMBOL_TYPE; t26610.s0.value.external_symbol_type = q337; /* x199760 */ t26612.s0.tag = EXTERNAL_SYMBOL_TYPE; t26612.s0.value.external_symbol_type = q107; /* x199761 */ t26613.s0.tag = EXTERNAL_SYMBOL_TYPE; t26613.s0.value.external_symbol_type = q394; /* x199762 */ t26613.s1.tag = NULL_TYPE; /* x199763 */ t26612.s1.tag = STRUCTURE_TYPE24753; t26612.s1.value.structure_type24753 = &t26613; /* x199764 */ t26611.s0.tag = STRUCTURE_TYPE24753; t26611.s0.value.structure_type24753 = &t26612; /* x199765 */ t26611.s1.tag = NULL_TYPE; /* x199766 */ t26610.s1.tag = STRUCTURE_TYPE24753; t26610.s1.value.structure_type24753 = &t26611; /* x199767 */ t26609.s1.tag = STRUCTURE_TYPE24753; t26609.s1.value.structure_type24753 = &t26610; /* x199768 */ t26608.s1.tag = STRUCTURE_TYPE24753; t26608.s1.value.structure_type24753 = &t26609; /* x199769 */ t26607.s0.tag = STRUCTURE_TYPE24753; t26607.s0.value.structure_type24753 = &t26608; /* x199770 */ t26615.s0.tag = EXTERNAL_SYMBOL_TYPE; t26615.s0.value.external_symbol_type = q287; /* x199771 */ t26617.s0.tag = EXTERNAL_SYMBOL_TYPE; t26617.s0.value.external_symbol_type = q4; /* x199772 */ t26618.s0.tag = EXTERNAL_SYMBOL_TYPE; t26618.s0.value.external_symbol_type = q337; /* x199773 */ t26619.s0.tag = FIXNUM_TYPE; t26619.s0.value.fixnum_type = 1; /* x199774 */ t26619.s1.tag = NULL_TYPE; /* x199775 */ t26618.s1.tag = STRUCTURE_TYPE24753; t26618.s1.value.structure_type24753 = &t26619; /* x199776 */ t26617.s1.tag = STRUCTURE_TYPE24753; t26617.s1.value.structure_type24753 = &t26618; /* x199777 */ t26616.s0.tag = STRUCTURE_TYPE24753; t26616.s0.value.structure_type24753 = &t26617; /* x199778 */ t26621.s0.tag = EXTERNAL_SYMBOL_TYPE; t26621.s0.value.external_symbol_type = q108; /* x199779 */ t26622.s0.tag = EXTERNAL_SYMBOL_TYPE; t26622.s0.value.external_symbol_type = q394; /* x199780 */ t26622.s1.tag = NULL_TYPE; /* x199781 */ t26621.s1.tag = STRUCTURE_TYPE24753; t26621.s1.value.structure_type24753 = &t26622; /* x199782 */ t26620.s0.tag = STRUCTURE_TYPE24753; t26620.s0.value.structure_type24753 = &t26621; /* x199783 */ t26620.s1.tag = NULL_TYPE; /* x199784 */ t26616.s1.tag = STRUCTURE_TYPE24753; t26616.s1.value.structure_type24753 = &t26620; /* x199785 */ t26615.s1.tag = STRUCTURE_TYPE24753; t26615.s1.value.structure_type24753 = &t26616; /* x199786 */ t26614.s0.tag = STRUCTURE_TYPE24753; t26614.s0.value.structure_type24753 = &t26615; /* x199787 */ t26614.s1.tag = NULL_TYPE; /* x199788 */ t26607.s1.tag = STRUCTURE_TYPE24753; t26607.s1.value.structure_type24753 = &t26614; /* x199789 */ t26606.s1.tag = STRUCTURE_TYPE24753; t26606.s1.value.structure_type24753 = &t26607; /* x199790 */ t26605.s0.tag = STRUCTURE_TYPE24753; t26605.s0.value.structure_type24753 = &t26606; /* x199791 */ t26605.s1.tag = NULL_TYPE; /* x199792 */ t26604.s1.tag = STRUCTURE_TYPE24753; t26604.s1.value.structure_type24753 = &t26605; /* x199793 */ t26601.s1.tag = STRUCTURE_TYPE24753; t26601.s1.value.structure_type24753 = &t26604; /* x199794 */ t26600.s1.tag = STRUCTURE_TYPE24753; t26600.s1.value.structure_type24753 = &t26601; /* x199795 */ t26599.s0.tag = STRUCTURE_TYPE24753; t26599.s0.value.structure_type24753 = &t26600; /* x199796 */ t26599.s1.tag = NULL_TYPE; /* x199797 */ t26592.s1.tag = STRUCTURE_TYPE24753; t26592.s1.value.structure_type24753 = &t26599; /* x199798 */ t26591.s1.tag = STRUCTURE_TYPE24753; t26591.s1.value.structure_type24753 = &t26592; /* x199799 */ t26590.s1.tag = STRUCTURE_TYPE24753; t26590.s1.value.structure_type24753 = &t26591; /* x199800 */ t26589.s0.tag = STRUCTURE_TYPE24753; t26589.s0.value.structure_type24753 = &t26590; /* x199801 */ t26589.s1.tag = NULL_TYPE; /* x199802 */ t26581.s1.tag = STRUCTURE_TYPE24753; t26581.s1.value.structure_type24753 = &t26589; /* x199803 */ t26580.s1.tag = STRUCTURE_TYPE24753; t26580.s1.value.structure_type24753 = &t26581; /* x199804 */ t26579.s0.tag = STRUCTURE_TYPE24753; t26579.s0.value.structure_type24753 = &t26580; /* x199805 */ t26579.s1.tag = NULL_TYPE; /* x199806 */ t26577.s1.tag = STRUCTURE_TYPE24753; t26577.s1.value.structure_type24753 = &t26579; /* x199807 */ t26576.s1.tag = STRUCTURE_TYPE24753; t26576.s1.value.structure_type24753 = &t26577; /* x199810 */ t26627.s0.tag = EXTERNAL_SYMBOL_TYPE; t26627.s0.value.external_symbol_type = q97; /* x199811 */ t26629.s0.tag = EXTERNAL_SYMBOL_TYPE; t26629.s0.value.external_symbol_type = q168; /* x199812 */ t26630.s0.tag = EXTERNAL_SYMBOL_TYPE; t26630.s0.value.external_symbol_type = q6; /* x199813 */ t26630.s1.tag = NULL_TYPE; /* x199814 */ t26629.s1.tag = STRUCTURE_TYPE24753; t26629.s1.value.structure_type24753 = &t26630; /* x199815 */ t26628.s0.tag = STRUCTURE_TYPE24753; t26628.s0.value.structure_type24753 = &t26629; /* x199816 */ t26633.s0.tag = EXTERNAL_SYMBOL_TYPE; t26633.s0.value.external_symbol_type = q77; /* x199817 */ t26634.s0.tag = EXTERNAL_SYMBOL_TYPE; t26634.s0.value.external_symbol_type = q168; /* x199818 */ t26634.s1.tag = NULL_TYPE; /* x199819 */ t26633.s1.tag = STRUCTURE_TYPE24753; t26633.s1.value.structure_type24753 = &t26634; /* x199820 */ t26632.s0.tag = STRUCTURE_TYPE24753; t26632.s0.value.structure_type24753 = &t26633; /* x199821 */ t26635.s0.tag = EXTERNAL_SYMBOL_TYPE; t26635.s0.value.external_symbol_type = q6; /* x199822 */ t26635.s1.tag = NULL_TYPE; /* x199823 */ t26632.s1.tag = STRUCTURE_TYPE24753; t26632.s1.value.structure_type24753 = &t26635; /* x199824 */ t26631.s0.tag = STRUCTURE_TYPE24753; t26631.s0.value.structure_type24753 = &t26632; /* x199825 */ t26631.s1.tag = NULL_TYPE; /* x199826 */ t26628.s1.tag = STRUCTURE_TYPE24753; t26628.s1.value.structure_type24753 = &t26631; /* x199827 */ t26627.s1.tag = STRUCTURE_TYPE24753; t26627.s1.value.structure_type24753 = &t26628; /* x199830 */ t26640.s0.tag = EXTERNAL_SYMBOL_TYPE; t26640.s0.value.external_symbol_type = q97; /* x199831 */ t26642.s0.tag = EXTERNAL_SYMBOL_TYPE; t26642.s0.value.external_symbol_type = q169; /* x199832 */ t26643.s0.tag = EXTERNAL_SYMBOL_TYPE; t26643.s0.value.external_symbol_type = q6; /* x199833 */ t26644.s0.tag = EXTERNAL_SYMBOL_TYPE; t26644.s0.value.external_symbol_type = q337; /* x199834 */ t26644.s1.tag = NULL_TYPE; /* x199835 */ t26643.s1.tag = STRUCTURE_TYPE24753; t26643.s1.value.structure_type24753 = &t26644; /* x199836 */ t26642.s1.tag = STRUCTURE_TYPE24753; t26642.s1.value.structure_type24753 = &t26643; /* x199837 */ t26641.s0.tag = STRUCTURE_TYPE24753; t26641.s0.value.structure_type24753 = &t26642; /* x199838 */ t26647.s0.tag = EXTERNAL_SYMBOL_TYPE; t26647.s0.value.external_symbol_type = q77; /* x199839 */ t26648.s0.tag = EXTERNAL_SYMBOL_TYPE; t26648.s0.value.external_symbol_type = q169; /* x199840 */ t26648.s1.tag = NULL_TYPE; /* x199841 */ t26647.s1.tag = STRUCTURE_TYPE24753; t26647.s1.value.structure_type24753 = &t26648; /* x199842 */ t26646.s0.tag = STRUCTURE_TYPE24753; t26646.s0.value.structure_type24753 = &t26647; /* x199843 */ t26649.s0.tag = EXTERNAL_SYMBOL_TYPE; t26649.s0.value.external_symbol_type = q6; /* x199844 */ t26650.s0.tag = EXTERNAL_SYMBOL_TYPE; t26650.s0.value.external_symbol_type = q337; /* x199845 */ t26650.s1.tag = NULL_TYPE; /* x199846 */ t26649.s1.tag = STRUCTURE_TYPE24753; t26649.s1.value.structure_type24753 = &t26650; /* x199847 */ t26646.s1.tag = STRUCTURE_TYPE24753; t26646.s1.value.structure_type24753 = &t26649; /* x199848 */ t26645.s0.tag = STRUCTURE_TYPE24753; t26645.s0.value.structure_type24753 = &t26646; /* x199849 */ t26645.s1.tag = NULL_TYPE; /* x199850 */ t26641.s1.tag = STRUCTURE_TYPE24753; t26641.s1.value.structure_type24753 = &t26645; /* x199851 */ t26640.s1.tag = STRUCTURE_TYPE24753; t26640.s1.value.structure_type24753 = &t26641; /* x199854 */ t26655.s0.tag = EXTERNAL_SYMBOL_TYPE; t26655.s0.value.external_symbol_type = q97; /* x199855 */ t26657.s0.tag = EXTERNAL_SYMBOL_TYPE; t26657.s0.value.external_symbol_type = q170; /* x199856 */ t26658.s0.tag = EXTERNAL_SYMBOL_TYPE; t26658.s0.value.external_symbol_type = q6; /* x199857 */ t26659.s0.tag = EXTERNAL_SYMBOL_TYPE; t26659.s0.value.external_symbol_type = q337; /* x199858 */ t26660.s0.tag = EXTERNAL_SYMBOL_TYPE; t26660.s0.value.external_symbol_type = q318; /* x199859 */ t26660.s1.tag = NULL_TYPE; /* x199860 */ t26659.s1.tag = STRUCTURE_TYPE24753; t26659.s1.value.structure_type24753 = &t26660; /* x199861 */ t26658.s1.tag = STRUCTURE_TYPE24753; t26658.s1.value.structure_type24753 = &t26659; /* x199862 */ t26657.s1.tag = STRUCTURE_TYPE24753; t26657.s1.value.structure_type24753 = &t26658; /* x199863 */ t26656.s0.tag = STRUCTURE_TYPE24753; t26656.s0.value.structure_type24753 = &t26657; /* x199864 */ t26663.s0.tag = EXTERNAL_SYMBOL_TYPE; t26663.s0.value.external_symbol_type = q77; /* x199865 */ t26664.s0.tag = EXTERNAL_SYMBOL_TYPE; t26664.s0.value.external_symbol_type = q170; /* x199866 */ t26664.s1.tag = NULL_TYPE; /* x199867 */ t26663.s1.tag = STRUCTURE_TYPE24753; t26663.s1.value.structure_type24753 = &t26664; /* x199868 */ t26662.s0.tag = STRUCTURE_TYPE24753; t26662.s0.value.structure_type24753 = &t26663; /* x199869 */ t26665.s0.tag = EXTERNAL_SYMBOL_TYPE; t26665.s0.value.external_symbol_type = q6; /* x199870 */ t26666.s0.tag = EXTERNAL_SYMBOL_TYPE; t26666.s0.value.external_symbol_type = q337; /* x199871 */ t26667.s0.tag = EXTERNAL_SYMBOL_TYPE; t26667.s0.value.external_symbol_type = q318; /* x199872 */ t26667.s1.tag = NULL_TYPE; /* x199873 */ t26666.s1.tag = STRUCTURE_TYPE24753; t26666.s1.value.structure_type24753 = &t26667; /* x199874 */ t26665.s1.tag = STRUCTURE_TYPE24753; t26665.s1.value.structure_type24753 = &t26666; /* x199875 */ t26662.s1.tag = STRUCTURE_TYPE24753; t26662.s1.value.structure_type24753 = &t26665; /* x199876 */ t26661.s0.tag = STRUCTURE_TYPE24753; t26661.s0.value.structure_type24753 = &t26662; /* x199877 */ t26661.s1.tag = NULL_TYPE; /* x199878 */ t26656.s1.tag = STRUCTURE_TYPE24753; t26656.s1.value.structure_type24753 = &t26661; /* x199879 */ t26655.s1.tag = STRUCTURE_TYPE24753; t26655.s1.value.structure_type24753 = &t26656; /* x199882 */ t26672.s0.tag = EXTERNAL_SYMBOL_TYPE; t26672.s0.value.external_symbol_type = q97; /* x199883 */ t26674.s0.tag = EXTERNAL_SYMBOL_TYPE; t26674.s0.value.external_symbol_type = q484; /* x199884 */ t26675.s0.tag = EXTERNAL_SYMBOL_TYPE; t26675.s0.value.external_symbol_type = q6; /* x199885 */ t26675.s1.tag = NULL_TYPE; /* x199886 */ t26674.s1.tag = STRUCTURE_TYPE24753; t26674.s1.value.structure_type24753 = &t26675; /* x199887 */ t26673.s0.tag = STRUCTURE_TYPE24753; t26673.s0.value.structure_type24753 = &t26674; /* x199888 */ t26677.s0.tag = EXTERNAL_SYMBOL_TYPE; t26677.s0.value.external_symbol_type = q242; /* x199889 */ t26678.s0.tag = EXTERNAL_SYMBOL_TYPE; t26678.s0.value.external_symbol_type = q287; /* x199890 */ t26681.s0.tag = EXTERNAL_SYMBOL_TYPE; t26681.s0.value.external_symbol_type = q337; /* x199891 */ t26682.s0.tag = FIXNUM_TYPE; t26682.s0.value.fixnum_type = 0; /* x199892 */ t26682.s1.tag = NULL_TYPE; /* x199893 */ t26681.s1.tag = STRUCTURE_TYPE24753; t26681.s1.value.structure_type24753 = &t26682; /* x199894 */ t26680.s0.tag = STRUCTURE_TYPE24753; t26680.s0.value.structure_type24753 = &t26681; /* x199895 */ t26680.s1.tag = NULL_TYPE; /* x199896 */ t26679.s0.tag = STRUCTURE_TYPE24753; t26679.s0.value.structure_type24753 = &t26680; /* x199897 */ t26684.s0.tag = EXTERNAL_SYMBOL_TYPE; t26684.s0.value.external_symbol_type = q43; /* x199898 */ t26686.s0.tag = EXTERNAL_SYMBOL_TYPE; t26686.s0.value.external_symbol_type = q120; /* x199899 */ t26687.s0.tag = EXTERNAL_SYMBOL_TYPE; t26687.s0.value.external_symbol_type = q337; /* x199900 */ t26689.s0.tag = EXTERNAL_SYMBOL_TYPE; t26689.s0.value.external_symbol_type = q168; /* x199901 */ t26690.s0.tag = EXTERNAL_SYMBOL_TYPE; t26690.s0.value.external_symbol_type = q6; /* x199902 */ t26690.s1.tag = NULL_TYPE; /* x199903 */ t26689.s1.tag = STRUCTURE_TYPE24753; t26689.s1.value.structure_type24753 = &t26690; /* x199904 */ t26688.s0.tag = STRUCTURE_TYPE24753; t26688.s0.value.structure_type24753 = &t26689; /* x199905 */ t26688.s1.tag = NULL_TYPE; /* x199906 */ t26687.s1.tag = STRUCTURE_TYPE24753; t26687.s1.value.structure_type24753 = &t26688; /* x199907 */ t26686.s1.tag = STRUCTURE_TYPE24753; t26686.s1.value.structure_type24753 = &t26687; /* x199908 */ t26685.s0.tag = STRUCTURE_TYPE24753; t26685.s0.value.structure_type24753 = &t26686; /* x199909 */ t26692.s0.tag = EXTERNAL_SYMBOL_TYPE; t26692.s0.value.external_symbol_type = q11; /* x199910 */ t26693.s0.tag = NULL_TYPE; /* x199911 */ t26693.s1.tag = NULL_TYPE; /* x199912 */ t26692.s1.tag = STRUCTURE_TYPE24753; t26692.s1.value.structure_type24753 = &t26693; /* x199913 */ t26691.s0.tag = STRUCTURE_TYPE24753; t26691.s0.value.structure_type24753 = &t26692; /* x199914 */ t26695.s0.tag = EXTERNAL_SYMBOL_TYPE; t26695.s0.value.external_symbol_type = q106; /* x199915 */ t26697.s0.tag = EXTERNAL_SYMBOL_TYPE; t26697.s0.value.external_symbol_type = q169; /* x199916 */ t26698.s0.tag = EXTERNAL_SYMBOL_TYPE; t26698.s0.value.external_symbol_type = q6; /* x199917 */ t26699.s0.tag = EXTERNAL_SYMBOL_TYPE; t26699.s0.value.external_symbol_type = q337; /* x199918 */ t26699.s1.tag = NULL_TYPE; /* x199919 */ t26698.s1.tag = STRUCTURE_TYPE24753; t26698.s1.value.structure_type24753 = &t26699; /* x199920 */ t26697.s1.tag = STRUCTURE_TYPE24753; t26697.s1.value.structure_type24753 = &t26698; /* x199921 */ t26696.s0.tag = STRUCTURE_TYPE24753; t26696.s0.value.structure_type24753 = &t26697; /* x199922 */ t26701.s0.tag = EXTERNAL_SYMBOL_TYPE; t26701.s0.value.external_symbol_type = q287; /* x199923 */ t26703.s0.tag = EXTERNAL_SYMBOL_TYPE; t26703.s0.value.external_symbol_type = q4; /* x199924 */ t26704.s0.tag = EXTERNAL_SYMBOL_TYPE; t26704.s0.value.external_symbol_type = q337; /* x199925 */ t26705.s0.tag = FIXNUM_TYPE; t26705.s0.value.fixnum_type = 1; /* x199926 */ t26705.s1.tag = NULL_TYPE; /* x199927 */ t26704.s1.tag = STRUCTURE_TYPE24753; t26704.s1.value.structure_type24753 = &t26705; /* x199928 */ t26703.s1.tag = STRUCTURE_TYPE24753; t26703.s1.value.structure_type24753 = &t26704; /* x199929 */ t26702.s0.tag = STRUCTURE_TYPE24753; t26702.s0.value.structure_type24753 = &t26703; /* x199930 */ t26702.s1.tag = NULL_TYPE; /* x199931 */ t26701.s1.tag = STRUCTURE_TYPE24753; t26701.s1.value.structure_type24753 = &t26702; /* x199932 */ t26700.s0.tag = STRUCTURE_TYPE24753; t26700.s0.value.structure_type24753 = &t26701; /* x199933 */ t26700.s1.tag = NULL_TYPE; /* x199934 */ t26696.s1.tag = STRUCTURE_TYPE24753; t26696.s1.value.structure_type24753 = &t26700; /* x199935 */ t26695.s1.tag = STRUCTURE_TYPE24753; t26695.s1.value.structure_type24753 = &t26696; /* x199936 */ t26694.s0.tag = STRUCTURE_TYPE24753; t26694.s0.value.structure_type24753 = &t26695; /* x199937 */ t26694.s1.tag = NULL_TYPE; /* x199938 */ t26691.s1.tag = STRUCTURE_TYPE24753; t26691.s1.value.structure_type24753 = &t26694; /* x199939 */ t26685.s1.tag = STRUCTURE_TYPE24753; t26685.s1.value.structure_type24753 = &t26691; /* x199940 */ t26684.s1.tag = STRUCTURE_TYPE24753; t26684.s1.value.structure_type24753 = &t26685; /* x199941 */ t26683.s0.tag = STRUCTURE_TYPE24753; t26683.s0.value.structure_type24753 = &t26684; /* x199942 */ t26683.s1.tag = NULL_TYPE; /* x199943 */ t26679.s1.tag = STRUCTURE_TYPE24753; t26679.s1.value.structure_type24753 = &t26683; /* x199944 */ t26678.s1.tag = STRUCTURE_TYPE24753; t26678.s1.value.structure_type24753 = &t26679; /* x199945 */ t26677.s1.tag = STRUCTURE_TYPE24753; t26677.s1.value.structure_type24753 = &t26678; /* x199946 */ t26676.s0.tag = STRUCTURE_TYPE24753; t26676.s0.value.structure_type24753 = &t26677; /* x199947 */ t26676.s1.tag = NULL_TYPE; /* x199948 */ t26673.s1.tag = STRUCTURE_TYPE24753; t26673.s1.value.structure_type24753 = &t26676; /* x199949 */ t26672.s1.tag = STRUCTURE_TYPE24753; t26672.s1.value.structure_type24753 = &t26673; /* x199952 */ t26710.s0.tag = EXTERNAL_SYMBOL_TYPE; t26710.s0.value.external_symbol_type = q97; /* x199953 */ t26712.s0.tag = EXTERNAL_SYMBOL_TYPE; t26712.s0.value.external_symbol_type = q301; /* x199954 */ t26713.s0.tag = EXTERNAL_SYMBOL_TYPE; t26713.s0.value.external_symbol_type = q1; /* x199955 */ t26713.s1.tag = NULL_TYPE; /* x199956 */ t26712.s1.tag = STRUCTURE_TYPE24753; t26712.s1.value.structure_type24753 = &t26713; /* x199957 */ t26711.s0.tag = STRUCTURE_TYPE24753; t26711.s0.value.structure_type24753 = &t26712; /* x199958 */ t26715.s0.tag = EXTERNAL_SYMBOL_TYPE; t26715.s0.value.external_symbol_type = q242; /* x199959 */ t26718.s0.tag = EXTERNAL_SYMBOL_TYPE; t26718.s0.value.external_symbol_type = q409; /* x199960 */ t26720.s0.tag = EXTERNAL_SYMBOL_TYPE; t26720.s0.value.external_symbol_type = q166; /* x199961 */ t26722.s0.tag = EXTERNAL_SYMBOL_TYPE; t26722.s0.value.external_symbol_type = q395; /* x199962 */ t26723.s0.tag = EXTERNAL_SYMBOL_TYPE; t26723.s0.value.external_symbol_type = q1; /* x199963 */ t26723.s1.tag = NULL_TYPE; /* x199964 */ t26722.s1.tag = STRUCTURE_TYPE24753; t26722.s1.value.structure_type24753 = &t26723; /* x199965 */ t26721.s0.tag = STRUCTURE_TYPE24753; t26721.s0.value.structure_type24753 = &t26722; /* x199966 */ t26721.s1.tag = NULL_TYPE; /* x199967 */ t26720.s1.tag = STRUCTURE_TYPE24753; t26720.s1.value.structure_type24753 = &t26721; /* x199968 */ t26719.s0.tag = STRUCTURE_TYPE24753; t26719.s0.value.structure_type24753 = &t26720; /* x199969 */ t26719.s1.tag = NULL_TYPE; /* x199970 */ t26718.s1.tag = STRUCTURE_TYPE24753; t26718.s1.value.structure_type24753 = &t26719; /* x199971 */ t26717.s0.tag = STRUCTURE_TYPE24753; t26717.s0.value.structure_type24753 = &t26718; /* x199972 */ t26717.s1.tag = NULL_TYPE; /* x199973 */ t26716.s0.tag = STRUCTURE_TYPE24753; t26716.s0.value.structure_type24753 = &t26717; /* x199974 */ t26725.s0.tag = EXTERNAL_SYMBOL_TYPE; t26725.s0.value.external_symbol_type = q242; /* x199975 */ t26726.s0.tag = EXTERNAL_SYMBOL_TYPE; t26726.s0.value.external_symbol_type = q287; /* x199976 */ t26729.s0.tag = EXTERNAL_SYMBOL_TYPE; t26729.s0.value.external_symbol_type = q337; /* x199977 */ t26730.s0.tag = FIXNUM_TYPE; t26730.s0.value.fixnum_type = 0; /* x199978 */ t26730.s1.tag = NULL_TYPE; /* x199979 */ t26729.s1.tag = STRUCTURE_TYPE24753; t26729.s1.value.structure_type24753 = &t26730; /* x199980 */ t26728.s0.tag = STRUCTURE_TYPE24753; t26728.s0.value.structure_type24753 = &t26729; /* x199981 */ t26728.s1.tag = NULL_TYPE; /* x199982 */ t26727.s0.tag = STRUCTURE_TYPE24753; t26727.s0.value.structure_type24753 = &t26728; /* x199983 */ t26732.s0.tag = EXTERNAL_SYMBOL_TYPE; t26732.s0.value.external_symbol_type = q43; /* x199984 */ t26734.s0.tag = EXTERNAL_SYMBOL_TYPE; t26734.s0.value.external_symbol_type = q102; /* x199985 */ t26736.s0.tag = EXTERNAL_SYMBOL_TYPE; t26736.s0.value.external_symbol_type = q111; /* x199986 */ t26737.s0.tag = EXTERNAL_SYMBOL_TYPE; t26737.s0.value.external_symbol_type = q1; /* x199987 */ t26737.s1.tag = NULL_TYPE; /* x199988 */ t26736.s1.tag = STRUCTURE_TYPE24753; t26736.s1.value.structure_type24753 = &t26737; /* x199989 */ t26735.s0.tag = STRUCTURE_TYPE24753; t26735.s0.value.structure_type24753 = &t26736; /* x199990 */ t26735.s1.tag = NULL_TYPE; /* x199991 */ t26734.s1.tag = STRUCTURE_TYPE24753; t26734.s1.value.structure_type24753 = &t26735; /* x199992 */ t26733.s0.tag = STRUCTURE_TYPE24753; t26733.s0.value.structure_type24753 = &t26734; /* x199993 */ t26739.s0.tag = EXTERNAL_SYMBOL_TYPE; t26739.s0.value.external_symbol_type = q239; /* x199994 */ t26741.s0.tag = EXTERNAL_SYMBOL_TYPE; t26741.s0.value.external_symbol_type = q170; /* x199995 */ t26742.s0.tag = EXTERNAL_SYMBOL_TYPE; t26742.s0.value.external_symbol_type = q409; /* x199996 */ t26743.s0.tag = EXTERNAL_SYMBOL_TYPE; t26743.s0.value.external_symbol_type = q337; /* x199997 */ t26745.s0.tag = EXTERNAL_SYMBOL_TYPE; t26745.s0.value.external_symbol_type = q107; /* x199998 */ t26746.s0.tag = EXTERNAL_SYMBOL_TYPE; t26746.s0.value.external_symbol_type = q1; /* x199999 */ t26746.s1.tag = NULL_TYPE; /* x200000 */ t26745.s1.tag = STRUCTURE_TYPE24753; t26745.s1.value.structure_type24753 = &t26746; /* x200001 */ t26744.s0.tag = STRUCTURE_TYPE24753; t26744.s0.value.structure_type24753 = &t26745; /* x200002 */ t26744.s1.tag = NULL_TYPE; /* x200003 */ t26743.s1.tag = STRUCTURE_TYPE24753; t26743.s1.value.structure_type24753 = &t26744; /* x200004 */ t26742.s1.tag = STRUCTURE_TYPE24753; t26742.s1.value.structure_type24753 = &t26743; /* x200005 */ t26741.s1.tag = STRUCTURE_TYPE24753; t26741.s1.value.structure_type24753 = &t26742; /* x200006 */ t26740.s0.tag = STRUCTURE_TYPE24753; t26740.s0.value.structure_type24753 = &t26741; /* x200007 */ t26748.s0.tag = EXTERNAL_SYMBOL_TYPE; t26748.s0.value.external_symbol_type = q42; /* x200008 */ t26749.s0.tag = EXTERNAL_SYMBOL_TYPE; t26749.s0.value.external_symbol_type = q1; /* x200009 */ t26751.s0.tag = EXTERNAL_SYMBOL_TYPE; t26751.s0.value.external_symbol_type = q108; /* x200010 */ t26752.s0.tag = EXTERNAL_SYMBOL_TYPE; t26752.s0.value.external_symbol_type = q1; /* x200011 */ t26752.s1.tag = NULL_TYPE; /* x200012 */ t26751.s1.tag = STRUCTURE_TYPE24753; t26751.s1.value.structure_type24753 = &t26752; /* x200013 */ t26750.s0.tag = STRUCTURE_TYPE24753; t26750.s0.value.structure_type24753 = &t26751; /* x200014 */ t26750.s1.tag = NULL_TYPE; /* x200015 */ t26749.s1.tag = STRUCTURE_TYPE24753; t26749.s1.value.structure_type24753 = &t26750; /* x200016 */ t26748.s1.tag = STRUCTURE_TYPE24753; t26748.s1.value.structure_type24753 = &t26749; /* x200017 */ t26747.s0.tag = STRUCTURE_TYPE24753; t26747.s0.value.structure_type24753 = &t26748; /* x200018 */ t26754.s0.tag = EXTERNAL_SYMBOL_TYPE; t26754.s0.value.external_symbol_type = q287; /* x200019 */ t26756.s0.tag = EXTERNAL_SYMBOL_TYPE; t26756.s0.value.external_symbol_type = q4; /* x200020 */ t26757.s0.tag = EXTERNAL_SYMBOL_TYPE; t26757.s0.value.external_symbol_type = q337; /* x200021 */ t26758.s0.tag = FIXNUM_TYPE; t26758.s0.value.fixnum_type = 1; /* x200022 */ t26758.s1.tag = NULL_TYPE; /* x200023 */ t26757.s1.tag = STRUCTURE_TYPE24753; t26757.s1.value.structure_type24753 = &t26758; /* x200024 */ t26756.s1.tag = STRUCTURE_TYPE24753; t26756.s1.value.structure_type24753 = &t26757; /* x200025 */ t26755.s0.tag = STRUCTURE_TYPE24753; t26755.s0.value.structure_type24753 = &t26756; /* x200026 */ t26755.s1.tag = NULL_TYPE; /* x200027 */ t26754.s1.tag = STRUCTURE_TYPE24753; t26754.s1.value.structure_type24753 = &t26755; /* x200028 */ t26753.s0.tag = STRUCTURE_TYPE24753; t26753.s0.value.structure_type24753 = &t26754; /* x200029 */ t26753.s1.tag = NULL_TYPE; /* x200030 */ t26747.s1.tag = STRUCTURE_TYPE24753; t26747.s1.value.structure_type24753 = &t26753; /* x200031 */ t26740.s1.tag = STRUCTURE_TYPE24753; t26740.s1.value.structure_type24753 = &t26747; /* x200032 */ t26739.s1.tag = STRUCTURE_TYPE24753; t26739.s1.value.structure_type24753 = &t26740; /* x200033 */ t26738.s0.tag = STRUCTURE_TYPE24753; t26738.s0.value.structure_type24753 = &t26739; /* x200034 */ t26738.s1.tag = NULL_TYPE; /* x200035 */ t26733.s1.tag = STRUCTURE_TYPE24753; t26733.s1.value.structure_type24753 = &t26738; /* x200036 */ t26732.s1.tag = STRUCTURE_TYPE24753; t26732.s1.value.structure_type24753 = &t26733; /* x200037 */ t26731.s0.tag = STRUCTURE_TYPE24753; t26731.s0.value.structure_type24753 = &t26732; /* x200038 */ t26731.s1.tag = NULL_TYPE; /* x200039 */ t26727.s1.tag = STRUCTURE_TYPE24753; t26727.s1.value.structure_type24753 = &t26731; /* x200040 */ t26726.s1.tag = STRUCTURE_TYPE24753; t26726.s1.value.structure_type24753 = &t26727; /* x200041 */ t26725.s1.tag = STRUCTURE_TYPE24753; t26725.s1.value.structure_type24753 = &t26726; /* x200042 */ t26724.s0.tag = STRUCTURE_TYPE24753; t26724.s0.value.structure_type24753 = &t26725; /* x200043 */ t26759.s0.tag = EXTERNAL_SYMBOL_TYPE; t26759.s0.value.external_symbol_type = q409; /* x200044 */ t26759.s1.tag = NULL_TYPE; /* x200045 */ t26724.s1.tag = STRUCTURE_TYPE24753; t26724.s1.value.structure_type24753 = &t26759; /* x200046 */ t26716.s1.tag = STRUCTURE_TYPE24753; t26716.s1.value.structure_type24753 = &t26724; /* x200047 */ t26715.s1.tag = STRUCTURE_TYPE24753; t26715.s1.value.structure_type24753 = &t26716; /* x200048 */ t26714.s0.tag = STRUCTURE_TYPE24753; t26714.s0.value.structure_type24753 = &t26715; /* x200049 */ t26714.s1.tag = NULL_TYPE; /* x200050 */ t26711.s1.tag = STRUCTURE_TYPE24753; t26711.s1.value.structure_type24753 = &t26714; /* x200051 */ t26710.s1.tag = STRUCTURE_TYPE24753; t26710.s1.value.structure_type24753 = &t26711; /* x200054 */ t26764.s0.tag = EXTERNAL_SYMBOL_TYPE; t26764.s0.value.external_symbol_type = q97; /* x200055 */ t26766.s0.tag = EXTERNAL_SYMBOL_TYPE; t26766.s0.value.external_symbol_type = q430; /* x200056 */ t26767.s0.tag = EXTERNAL_SYMBOL_TYPE; t26767.s0.value.external_symbol_type = q6; /* x200057 */ t26768.s0.tag = EXTERNAL_SYMBOL_TYPE; t26768.s0.value.external_symbol_type = q318; /* x200058 */ t26768.s1.tag = NULL_TYPE; /* x200059 */ t26767.s1.tag = STRUCTURE_TYPE24753; t26767.s1.value.structure_type24753 = &t26768; /* x200060 */ t26766.s1.tag = STRUCTURE_TYPE24753; t26766.s1.value.structure_type24753 = &t26767; /* x200061 */ t26765.s0.tag = STRUCTURE_TYPE24753; t26765.s0.value.structure_type24753 = &t26766; /* x200062 */ t26770.s0.tag = EXTERNAL_SYMBOL_TYPE; t26770.s0.value.external_symbol_type = q242; /* x200063 */ t26771.s0.tag = EXTERNAL_SYMBOL_TYPE; t26771.s0.value.external_symbol_type = q287; /* x200064 */ t26774.s0.tag = EXTERNAL_SYMBOL_TYPE; t26774.s0.value.external_symbol_type = q337; /* x200065 */ t26775.s0.tag = FIXNUM_TYPE; t26775.s0.value.fixnum_type = 0; /* x200066 */ t26775.s1.tag = NULL_TYPE; /* x200067 */ t26774.s1.tag = STRUCTURE_TYPE24753; t26774.s1.value.structure_type24753 = &t26775; /* x200068 */ t26773.s0.tag = STRUCTURE_TYPE24753; t26773.s0.value.structure_type24753 = &t26774; /* x200069 */ t26773.s1.tag = NULL_TYPE; /* x200070 */ t26772.s0.tag = STRUCTURE_TYPE24753; t26772.s0.value.structure_type24753 = &t26773; /* x200071 */ t26777.s0.tag = EXTERNAL_SYMBOL_TYPE; t26777.s0.value.external_symbol_type = q43; /* x200072 */ t26779.s0.tag = EXTERNAL_SYMBOL_TYPE; t26779.s0.value.external_symbol_type = q102; /* x200073 */ t26781.s0.tag = EXTERNAL_SYMBOL_TYPE; t26781.s0.value.external_symbol_type = q120; /* x200074 */ t26782.s0.tag = EXTERNAL_SYMBOL_TYPE; t26782.s0.value.external_symbol_type = q337; /* x200075 */ t26784.s0.tag = EXTERNAL_SYMBOL_TYPE; t26784.s0.value.external_symbol_type = q168; /* x200076 */ t26785.s0.tag = EXTERNAL_SYMBOL_TYPE; t26785.s0.value.external_symbol_type = q6; /* x200077 */ t26785.s1.tag = NULL_TYPE; /* x200078 */ t26784.s1.tag = STRUCTURE_TYPE24753; t26784.s1.value.structure_type24753 = &t26785; /* x200079 */ t26783.s0.tag = STRUCTURE_TYPE24753; t26783.s0.value.structure_type24753 = &t26784; /* x200080 */ t26783.s1.tag = NULL_TYPE; /* x200081 */ t26782.s1.tag = STRUCTURE_TYPE24753; t26782.s1.value.structure_type24753 = &t26783; /* x200082 */ t26781.s1.tag = STRUCTURE_TYPE24753; t26781.s1.value.structure_type24753 = &t26782; /* x200083 */ t26780.s0.tag = STRUCTURE_TYPE24753; t26780.s0.value.structure_type24753 = &t26781; /* x200084 */ t26780.s1.tag = NULL_TYPE; /* x200085 */ t26779.s1.tag = STRUCTURE_TYPE24753; t26779.s1.value.structure_type24753 = &t26780; /* x200086 */ t26778.s0.tag = STRUCTURE_TYPE24753; t26778.s0.value.structure_type24753 = &t26779; /* x200087 */ t26787.s0.tag = EXTERNAL_SYMBOL_TYPE; t26787.s0.value.external_symbol_type = q239; /* x200088 */ t26789.s0.tag = EXTERNAL_SYMBOL_TYPE; t26789.s0.value.external_symbol_type = q170; /* x200089 */ t26790.s0.tag = EXTERNAL_SYMBOL_TYPE; t26790.s0.value.external_symbol_type = q6; /* x200090 */ t26791.s0.tag = EXTERNAL_SYMBOL_TYPE; t26791.s0.value.external_symbol_type = q337; /* x200091 */ t26792.s0.tag = EXTERNAL_SYMBOL_TYPE; t26792.s0.value.external_symbol_type = q318; /* x200092 */ t26792.s1.tag = NULL_TYPE; /* x200093 */ t26791.s1.tag = STRUCTURE_TYPE24753; t26791.s1.value.structure_type24753 = &t26792; /* x200094 */ t26790.s1.tag = STRUCTURE_TYPE24753; t26790.s1.value.structure_type24753 = &t26791; /* x200095 */ t26789.s1.tag = STRUCTURE_TYPE24753; t26789.s1.value.structure_type24753 = &t26790; /* x200096 */ t26788.s0.tag = STRUCTURE_TYPE24753; t26788.s0.value.structure_type24753 = &t26789; /* x200097 */ t26794.s0.tag = EXTERNAL_SYMBOL_TYPE; t26794.s0.value.external_symbol_type = q287; /* x200098 */ t26796.s0.tag = EXTERNAL_SYMBOL_TYPE; t26796.s0.value.external_symbol_type = q4; /* x200099 */ t26797.s0.tag = EXTERNAL_SYMBOL_TYPE; t26797.s0.value.external_symbol_type = q337; /* x200100 */ t26798.s0.tag = FIXNUM_TYPE; t26798.s0.value.fixnum_type = 1; /* x200101 */ t26798.s1.tag = NULL_TYPE; /* x200102 */ t26797.s1.tag = STRUCTURE_TYPE24753; t26797.s1.value.structure_type24753 = &t26798; /* x200103 */ t26796.s1.tag = STRUCTURE_TYPE24753; t26796.s1.value.structure_type24753 = &t26797; /* x200104 */ t26795.s0.tag = STRUCTURE_TYPE24753; t26795.s0.value.structure_type24753 = &t26796; /* x200105 */ t26795.s1.tag = NULL_TYPE; /* x200106 */ t26794.s1.tag = STRUCTURE_TYPE24753; t26794.s1.value.structure_type24753 = &t26795; /* x200107 */ t26793.s0.tag = STRUCTURE_TYPE24753; t26793.s0.value.structure_type24753 = &t26794; /* x200108 */ t26793.s1.tag = NULL_TYPE; /* x200109 */ t26788.s1.tag = STRUCTURE_TYPE24753; t26788.s1.value.structure_type24753 = &t26793; /* x200110 */ t26787.s1.tag = STRUCTURE_TYPE24753; t26787.s1.value.structure_type24753 = &t26788; /* x200111 */ t26786.s0.tag = STRUCTURE_TYPE24753; t26786.s0.value.structure_type24753 = &t26787; /* x200112 */ t26786.s1.tag = NULL_TYPE; /* x200113 */ t26778.s1.tag = STRUCTURE_TYPE24753; t26778.s1.value.structure_type24753 = &t26786; /* x200114 */ t26777.s1.tag = STRUCTURE_TYPE24753; t26777.s1.value.structure_type24753 = &t26778; /* x200115 */ t26776.s0.tag = STRUCTURE_TYPE24753; t26776.s0.value.structure_type24753 = &t26777; /* x200116 */ t26776.s1.tag = NULL_TYPE; /* x200117 */ t26772.s1.tag = STRUCTURE_TYPE24753; t26772.s1.value.structure_type24753 = &t26776; /* x200118 */ t26771.s1.tag = STRUCTURE_TYPE24753; t26771.s1.value.structure_type24753 = &t26772; /* x200119 */ t26770.s1.tag = STRUCTURE_TYPE24753; t26770.s1.value.structure_type24753 = &t26771; /* x200120 */ t26769.s0.tag = STRUCTURE_TYPE24753; t26769.s0.value.structure_type24753 = &t26770; /* x200121 */ t26769.s1.tag = NULL_TYPE; /* x200122 */ t26765.s1.tag = STRUCTURE_TYPE24753; t26765.s1.value.structure_type24753 = &t26769; /* x200123 */ t26764.s1.tag = STRUCTURE_TYPE24753; t26764.s1.value.structure_type24753 = &t26765; /* x200126 */ t26803.s0.tag = EXTERNAL_SYMBOL_TYPE; t26803.s0.value.external_symbol_type = q97; /* x200127 */ t26805.s0.tag = EXTERNAL_SYMBOL_TYPE; t26805.s0.value.external_symbol_type = q402; /* x200128 */ t26806.s0.tag = EXTERNAL_SYMBOL_TYPE; t26806.s0.value.external_symbol_type = q6; /* x200129 */ t26807.s0.tag = EXTERNAL_SYMBOL_TYPE; t26807.s0.value.external_symbol_type = q398; /* x200130 */ t26808.s0.tag = EXTERNAL_SYMBOL_TYPE; t26808.s0.value.external_symbol_type = q399; /* x200131 */ t26808.s1.tag = NULL_TYPE; /* x200132 */ t26807.s1.tag = STRUCTURE_TYPE24753; t26807.s1.value.structure_type24753 = &t26808; /* x200133 */ t26806.s1.tag = STRUCTURE_TYPE24753; t26806.s1.value.structure_type24753 = &t26807; /* x200134 */ t26805.s1.tag = STRUCTURE_TYPE24753; t26805.s1.value.structure_type24753 = &t26806; /* x200135 */ t26804.s0.tag = STRUCTURE_TYPE24753; t26804.s0.value.structure_type24753 = &t26805; /* x200136 */ t26810.s0.tag = EXTERNAL_SYMBOL_TYPE; t26810.s0.value.external_symbol_type = q242; /* x200137 */ t26813.s0.tag = EXTERNAL_SYMBOL_TYPE; t26813.s0.value.external_symbol_type = q409; /* x200138 */ t26815.s0.tag = EXTERNAL_SYMBOL_TYPE; t26815.s0.value.external_symbol_type = q166; /* x200139 */ t26817.s0.tag = EXTERNAL_SYMBOL_TYPE; t26817.s0.value.external_symbol_type = q2; /* x200140 */ t26818.s0.tag = EXTERNAL_SYMBOL_TYPE; t26818.s0.value.external_symbol_type = q399; /* x200141 */ t26819.s0.tag = EXTERNAL_SYMBOL_TYPE; t26819.s0.value.external_symbol_type = q398; /* x200142 */ t26819.s1.tag = NULL_TYPE; /* x200143 */ t26818.s1.tag = STRUCTURE_TYPE24753; t26818.s1.value.structure_type24753 = &t26819; /* x200144 */ t26817.s1.tag = STRUCTURE_TYPE24753; t26817.s1.value.structure_type24753 = &t26818; /* x200145 */ t26816.s0.tag = STRUCTURE_TYPE24753; t26816.s0.value.structure_type24753 = &t26817; /* x200146 */ t26816.s1.tag = NULL_TYPE; /* x200147 */ t26815.s1.tag = STRUCTURE_TYPE24753; t26815.s1.value.structure_type24753 = &t26816; /* x200148 */ t26814.s0.tag = STRUCTURE_TYPE24753; t26814.s0.value.structure_type24753 = &t26815; /* x200149 */ t26814.s1.tag = NULL_TYPE; /* x200150 */ t26813.s1.tag = STRUCTURE_TYPE24753; t26813.s1.value.structure_type24753 = &t26814; /* x200151 */ t26812.s0.tag = STRUCTURE_TYPE24753; t26812.s0.value.structure_type24753 = &t26813; /* x200152 */ t26812.s1.tag = NULL_TYPE; /* x200153 */ t26811.s0.tag = STRUCTURE_TYPE24753; t26811.s0.value.structure_type24753 = &t26812; /* x200154 */ t26821.s0.tag = EXTERNAL_SYMBOL_TYPE; t26821.s0.value.external_symbol_type = q242; /* x200155 */ t26822.s0.tag = EXTERNAL_SYMBOL_TYPE; t26822.s0.value.external_symbol_type = q287; /* x200156 */ t26825.s0.tag = EXTERNAL_SYMBOL_TYPE; t26825.s0.value.external_symbol_type = q337; /* x200157 */ t26826.s0.tag = FIXNUM_TYPE; t26826.s0.value.fixnum_type = 0; /* x200158 */ t26826.s1.tag = NULL_TYPE; /* x200159 */ t26825.s1.tag = STRUCTURE_TYPE24753; t26825.s1.value.structure_type24753 = &t26826; /* x200160 */ t26824.s0.tag = STRUCTURE_TYPE24753; t26824.s0.value.structure_type24753 = &t26825; /* x200161 */ t26824.s1.tag = NULL_TYPE; /* x200162 */ t26823.s0.tag = STRUCTURE_TYPE24753; t26823.s0.value.structure_type24753 = &t26824; /* x200163 */ t26828.s0.tag = EXTERNAL_SYMBOL_TYPE; t26828.s0.value.external_symbol_type = q43; /* x200164 */ t26830.s0.tag = EXTERNAL_SYMBOL_TYPE; t26830.s0.value.external_symbol_type = q121; /* x200165 */ t26831.s0.tag = EXTERNAL_SYMBOL_TYPE; t26831.s0.value.external_symbol_type = q337; /* x200166 */ t26833.s0.tag = EXTERNAL_SYMBOL_TYPE; t26833.s0.value.external_symbol_type = q2; /* x200167 */ t26834.s0.tag = EXTERNAL_SYMBOL_TYPE; t26834.s0.value.external_symbol_type = q399; /* x200168 */ t26835.s0.tag = EXTERNAL_SYMBOL_TYPE; t26835.s0.value.external_symbol_type = q398; /* x200169 */ t26835.s1.tag = NULL_TYPE; /* x200170 */ t26834.s1.tag = STRUCTURE_TYPE24753; t26834.s1.value.structure_type24753 = &t26835; /* x200171 */ t26833.s1.tag = STRUCTURE_TYPE24753; t26833.s1.value.structure_type24753 = &t26834; /* x200172 */ t26832.s0.tag = STRUCTURE_TYPE24753; t26832.s0.value.structure_type24753 = &t26833; /* x200173 */ t26832.s1.tag = NULL_TYPE; /* x200174 */ t26831.s1.tag = STRUCTURE_TYPE24753; t26831.s1.value.structure_type24753 = &t26832; /* x200175 */ t26830.s1.tag = STRUCTURE_TYPE24753; t26830.s1.value.structure_type24753 = &t26831; /* x200176 */ t26829.s0.tag = STRUCTURE_TYPE24753; t26829.s0.value.structure_type24753 = &t26830; /* x200177 */ t26837.s0.tag = EXTERNAL_SYMBOL_TYPE; t26837.s0.value.external_symbol_type = q239; /* x200178 */ t26839.s0.tag = EXTERNAL_SYMBOL_TYPE; t26839.s0.value.external_symbol_type = q170; /* x200179 */ t26840.s0.tag = EXTERNAL_SYMBOL_TYPE; t26840.s0.value.external_symbol_type = q409; /* x200180 */ t26841.s0.tag = EXTERNAL_SYMBOL_TYPE; t26841.s0.value.external_symbol_type = q337; /* x200181 */ t26843.s0.tag = EXTERNAL_SYMBOL_TYPE; t26843.s0.value.external_symbol_type = q169; /* x200182 */ t26844.s0.tag = EXTERNAL_SYMBOL_TYPE; t26844.s0.value.external_symbol_type = q6; /* x200183 */ t26846.s0.tag = EXTERNAL_SYMBOL_TYPE; t26846.s0.value.external_symbol_type = q4; /* x200184 */ t26847.s0.tag = EXTERNAL_SYMBOL_TYPE; t26847.s0.value.external_symbol_type = q337; /* x200185 */ t26848.s0.tag = EXTERNAL_SYMBOL_TYPE; t26848.s0.value.external_symbol_type = q398; /* x200186 */ t26848.s1.tag = NULL_TYPE; /* x200187 */ t26847.s1.tag = STRUCTURE_TYPE24753; t26847.s1.value.structure_type24753 = &t26848; /* x200188 */ t26846.s1.tag = STRUCTURE_TYPE24753; t26846.s1.value.structure_type24753 = &t26847; /* x200189 */ t26845.s0.tag = STRUCTURE_TYPE24753; t26845.s0.value.structure_type24753 = &t26846; /* x200190 */ t26845.s1.tag = NULL_TYPE; /* x200191 */ t26844.s1.tag = STRUCTURE_TYPE24753; t26844.s1.value.structure_type24753 = &t26845; /* x200192 */ t26843.s1.tag = STRUCTURE_TYPE24753; t26843.s1.value.structure_type24753 = &t26844; /* x200193 */ t26842.s0.tag = STRUCTURE_TYPE24753; t26842.s0.value.structure_type24753 = &t26843; /* x200194 */ t26842.s1.tag = NULL_TYPE; /* x200195 */ t26841.s1.tag = STRUCTURE_TYPE24753; t26841.s1.value.structure_type24753 = &t26842; /* x200196 */ t26840.s1.tag = STRUCTURE_TYPE24753; t26840.s1.value.structure_type24753 = &t26841; /* x200197 */ t26839.s1.tag = STRUCTURE_TYPE24753; t26839.s1.value.structure_type24753 = &t26840; /* x200198 */ t26838.s0.tag = STRUCTURE_TYPE24753; t26838.s0.value.structure_type24753 = &t26839; /* x200199 */ t26850.s0.tag = EXTERNAL_SYMBOL_TYPE; t26850.s0.value.external_symbol_type = q287; /* x200200 */ t26852.s0.tag = EXTERNAL_SYMBOL_TYPE; t26852.s0.value.external_symbol_type = q4; /* x200201 */ t26853.s0.tag = EXTERNAL_SYMBOL_TYPE; t26853.s0.value.external_symbol_type = q337; /* x200202 */ t26854.s0.tag = FIXNUM_TYPE; t26854.s0.value.fixnum_type = 1; /* x200203 */ t26854.s1.tag = NULL_TYPE; /* x200204 */ t26853.s1.tag = STRUCTURE_TYPE24753; t26853.s1.value.structure_type24753 = &t26854; /* x200205 */ t26852.s1.tag = STRUCTURE_TYPE24753; t26852.s1.value.structure_type24753 = &t26853; /* x200206 */ t26851.s0.tag = STRUCTURE_TYPE24753; t26851.s0.value.structure_type24753 = &t26852; /* x200207 */ t26851.s1.tag = NULL_TYPE; /* x200208 */ t26850.s1.tag = STRUCTURE_TYPE24753; t26850.s1.value.structure_type24753 = &t26851; /* x200209 */ t26849.s0.tag = STRUCTURE_TYPE24753; t26849.s0.value.structure_type24753 = &t26850; /* x200210 */ t26849.s1.tag = NULL_TYPE; /* x200211 */ t26838.s1.tag = STRUCTURE_TYPE24753; t26838.s1.value.structure_type24753 = &t26849; /* x200212 */ t26837.s1.tag = STRUCTURE_TYPE24753; t26837.s1.value.structure_type24753 = &t26838; /* x200213 */ t26836.s0.tag = STRUCTURE_TYPE24753; t26836.s0.value.structure_type24753 = &t26837; /* x200214 */ t26836.s1.tag = NULL_TYPE; /* x200215 */ t26829.s1.tag = STRUCTURE_TYPE24753; t26829.s1.value.structure_type24753 = &t26836; /* x200216 */ t26828.s1.tag = STRUCTURE_TYPE24753; t26828.s1.value.structure_type24753 = &t26829; /* x200217 */ t26827.s0.tag = STRUCTURE_TYPE24753; t26827.s0.value.structure_type24753 = &t26828; /* x200218 */ t26827.s1.tag = NULL_TYPE; /* x200219 */ t26823.s1.tag = STRUCTURE_TYPE24753; t26823.s1.value.structure_type24753 = &t26827; /* x200220 */ t26822.s1.tag = STRUCTURE_TYPE24753; t26822.s1.value.structure_type24753 = &t26823; /* x200221 */ t26821.s1.tag = STRUCTURE_TYPE24753; t26821.s1.value.structure_type24753 = &t26822; /* x200222 */ t26820.s0.tag = STRUCTURE_TYPE24753; t26820.s0.value.structure_type24753 = &t26821; /* x200223 */ t26855.s0.tag = EXTERNAL_SYMBOL_TYPE; t26855.s0.value.external_symbol_type = q409; /* x200224 */ t26855.s1.tag = NULL_TYPE; /* x200225 */ t26820.s1.tag = STRUCTURE_TYPE24753; t26820.s1.value.structure_type24753 = &t26855; /* x200226 */ t26811.s1.tag = STRUCTURE_TYPE24753; t26811.s1.value.structure_type24753 = &t26820; /* x200227 */ t26810.s1.tag = STRUCTURE_TYPE24753; t26810.s1.value.structure_type24753 = &t26811; /* x200228 */ t26809.s0.tag = STRUCTURE_TYPE24753; t26809.s0.value.structure_type24753 = &t26810; /* x200229 */ t26809.s1.tag = NULL_TYPE; /* x200230 */ t26804.s1.tag = STRUCTURE_TYPE24753; t26804.s1.value.structure_type24753 = &t26809; /* x200231 */ t26803.s1.tag = STRUCTURE_TYPE24753; t26803.s1.value.structure_type24753 = &t26804; /* x200234 */ t26860.s0.tag = EXTERNAL_SYMBOL_TYPE; t26860.s0.value.external_symbol_type = q97; /* x200235 */ t26862.s0.tag = EXTERNAL_SYMBOL_TYPE; t26862.s0.value.external_symbol_type = q485; /* x200236 */ t26862.s1.tag = EXTERNAL_SYMBOL_TYPE; t26862.s1.value.external_symbol_type = q411; /* x200237 */ t26861.s0.tag = STRUCTURE_TYPE24753; t26861.s0.value.structure_type24753 = &t26862; /* x200238 */ t26864.s0.tag = EXTERNAL_SYMBOL_TYPE; t26864.s0.value.external_symbol_type = q246; /* x200239 */ t26867.s0.tag = EXTERNAL_SYMBOL_TYPE; t26867.s0.value.external_symbol_type = q409; /* x200240 */ t26869.s0.tag = EXTERNAL_SYMBOL_TYPE; t26869.s0.value.external_symbol_type = q166; /* x200241 */ t26871.s0.tag = EXTERNAL_SYMBOL_TYPE; t26871.s0.value.external_symbol_type = q242; /* x200242 */ t26872.s0.tag = EXTERNAL_SYMBOL_TYPE; t26872.s0.value.external_symbol_type = q287; /* x200243 */ t26875.s0.tag = EXTERNAL_SYMBOL_TYPE; t26875.s0.value.external_symbol_type = q337; /* x200244 */ t26876.s0.tag = FIXNUM_TYPE; t26876.s0.value.fixnum_type = 0; /* x200245 */ t26876.s1.tag = NULL_TYPE; /* x200246 */ t26875.s1.tag = STRUCTURE_TYPE24753; t26875.s1.value.structure_type24753 = &t26876; /* x200247 */ t26874.s0.tag = STRUCTURE_TYPE24753; t26874.s0.value.structure_type24753 = &t26875; /* x200248 */ t26878.s0.tag = EXTERNAL_SYMBOL_TYPE; t26878.s0.value.external_symbol_type = q411; /* x200249 */ t26879.s0.tag = EXTERNAL_SYMBOL_TYPE; t26879.s0.value.external_symbol_type = q411; /* x200250 */ t26879.s1.tag = NULL_TYPE; /* x200251 */ t26878.s1.tag = STRUCTURE_TYPE24753; t26878.s1.value.structure_type24753 = &t26879; /* x200252 */ t26877.s0.tag = STRUCTURE_TYPE24753; t26877.s0.value.structure_type24753 = &t26878; /* x200253 */ t26877.s1.tag = NULL_TYPE; /* x200254 */ t26874.s1.tag = STRUCTURE_TYPE24753; t26874.s1.value.structure_type24753 = &t26877; /* x200255 */ t26873.s0.tag = STRUCTURE_TYPE24753; t26873.s0.value.structure_type24753 = &t26874; /* x200256 */ t26881.s0.tag = EXTERNAL_SYMBOL_TYPE; t26881.s0.value.external_symbol_type = q43; /* x200257 */ t26883.s0.tag = EXTERNAL_SYMBOL_TYPE; t26883.s0.value.external_symbol_type = q111; /* x200258 */ t26884.s0.tag = EXTERNAL_SYMBOL_TYPE; t26884.s0.value.external_symbol_type = q411; /* x200259 */ t26884.s1.tag = NULL_TYPE; /* x200260 */ t26883.s1.tag = STRUCTURE_TYPE24753; t26883.s1.value.structure_type24753 = &t26884; /* x200261 */ t26882.s0.tag = STRUCTURE_TYPE24753; t26882.s0.value.structure_type24753 = &t26883; /* x200262 */ t26885.s0.tag = EXTERNAL_SYMBOL_TYPE; t26885.s0.value.external_symbol_type = q337; /* x200263 */ t26887.s0.tag = EXTERNAL_SYMBOL_TYPE; t26887.s0.value.external_symbol_type = q287; /* x200264 */ t26889.s0.tag = EXTERNAL_SYMBOL_TYPE; t26889.s0.value.external_symbol_type = q4; /* x200265 */ t26890.s0.tag = EXTERNAL_SYMBOL_TYPE; t26890.s0.value.external_symbol_type = q337; /* x200266 */ t26892.s0.tag = EXTERNAL_SYMBOL_TYPE; t26892.s0.value.external_symbol_type = q168; /* x200267 */ t26894.s0.tag = EXTERNAL_SYMBOL_TYPE; t26894.s0.value.external_symbol_type = q107; /* x200268 */ t26895.s0.tag = EXTERNAL_SYMBOL_TYPE; t26895.s0.value.external_symbol_type = q411; /* x200269 */ t26895.s1.tag = NULL_TYPE; /* x200270 */ t26894.s1.tag = STRUCTURE_TYPE24753; t26894.s1.value.structure_type24753 = &t26895; /* x200271 */ t26893.s0.tag = STRUCTURE_TYPE24753; t26893.s0.value.structure_type24753 = &t26894; /* x200272 */ t26893.s1.tag = NULL_TYPE; /* x200273 */ t26892.s1.tag = STRUCTURE_TYPE24753; t26892.s1.value.structure_type24753 = &t26893; /* x200274 */ t26891.s0.tag = STRUCTURE_TYPE24753; t26891.s0.value.structure_type24753 = &t26892; /* x200275 */ t26891.s1.tag = NULL_TYPE; /* x200276 */ t26890.s1.tag = STRUCTURE_TYPE24753; t26890.s1.value.structure_type24753 = &t26891; /* x200277 */ t26889.s1.tag = STRUCTURE_TYPE24753; t26889.s1.value.structure_type24753 = &t26890; /* x200278 */ t26888.s0.tag = STRUCTURE_TYPE24753; t26888.s0.value.structure_type24753 = &t26889; /* x200279 */ t26897.s0.tag = EXTERNAL_SYMBOL_TYPE; t26897.s0.value.external_symbol_type = q108; /* x200280 */ t26898.s0.tag = EXTERNAL_SYMBOL_TYPE; t26898.s0.value.external_symbol_type = q411; /* x200281 */ t26898.s1.tag = NULL_TYPE; /* x200282 */ t26897.s1.tag = STRUCTURE_TYPE24753; t26897.s1.value.structure_type24753 = &t26898; /* x200283 */ t26896.s0.tag = STRUCTURE_TYPE24753; t26896.s0.value.structure_type24753 = &t26897; /* x200284 */ t26896.s1.tag = NULL_TYPE; /* x200285 */ t26888.s1.tag = STRUCTURE_TYPE24753; t26888.s1.value.structure_type24753 = &t26896; /* x200286 */ t26887.s1.tag = STRUCTURE_TYPE24753; t26887.s1.value.structure_type24753 = &t26888; /* x200287 */ t26886.s0.tag = STRUCTURE_TYPE24753; t26886.s0.value.structure_type24753 = &t26887; /* x200288 */ t26886.s1.tag = NULL_TYPE; /* x200289 */ t26885.s1.tag = STRUCTURE_TYPE24753; t26885.s1.value.structure_type24753 = &t26886; /* x200290 */ t26882.s1.tag = STRUCTURE_TYPE24753; t26882.s1.value.structure_type24753 = &t26885; /* x200291 */ t26881.s1.tag = STRUCTURE_TYPE24753; t26881.s1.value.structure_type24753 = &t26882; /* x200292 */ t26880.s0.tag = STRUCTURE_TYPE24753; t26880.s0.value.structure_type24753 = &t26881; /* x200293 */ t26880.s1.tag = NULL_TYPE; /* x200294 */ t26873.s1.tag = STRUCTURE_TYPE24753; t26873.s1.value.structure_type24753 = &t26880; /* x200295 */ t26872.s1.tag = STRUCTURE_TYPE24753; t26872.s1.value.structure_type24753 = &t26873; /* x200296 */ t26871.s1.tag = STRUCTURE_TYPE24753; t26871.s1.value.structure_type24753 = &t26872; /* x200297 */ t26870.s0.tag = STRUCTURE_TYPE24753; t26870.s0.value.structure_type24753 = &t26871; /* x200298 */ t26870.s1.tag = NULL_TYPE; /* x200299 */ t26869.s1.tag = STRUCTURE_TYPE24753; t26869.s1.value.structure_type24753 = &t26870; /* x200300 */ t26868.s0.tag = STRUCTURE_TYPE24753; t26868.s0.value.structure_type24753 = &t26869; /* x200301 */ t26868.s1.tag = NULL_TYPE; /* x200302 */ t26867.s1.tag = STRUCTURE_TYPE24753; t26867.s1.value.structure_type24753 = &t26868; /* x200303 */ t26866.s0.tag = STRUCTURE_TYPE24753; t26866.s0.value.structure_type24753 = &t26867; /* x200304 */ t26900.s0.tag = EXTERNAL_SYMBOL_TYPE; t26900.s0.value.external_symbol_type = q337; /* x200305 */ t26901.s0.tag = FIXNUM_TYPE; t26901.s0.value.fixnum_type = 0; /* x200306 */ t26901.s1.tag = NULL_TYPE; /* x200307 */ t26900.s1.tag = STRUCTURE_TYPE24753; t26900.s1.value.structure_type24753 = &t26901; /* x200308 */ t26899.s0.tag = STRUCTURE_TYPE24753; t26899.s0.value.structure_type24753 = &t26900; /* x200309 */ t26899.s1.tag = NULL_TYPE; /* x200310 */ t26866.s1.tag = STRUCTURE_TYPE24753; t26866.s1.value.structure_type24753 = &t26899; /* x200311 */ t26865.s0.tag = STRUCTURE_TYPE24753; t26865.s0.value.structure_type24753 = &t26866; /* x200312 */ t26903.s0.tag = EXTERNAL_SYMBOL_TYPE; t26903.s0.value.external_symbol_type = q242; /* x200313 */ t26904.s0.tag = EXTERNAL_SYMBOL_TYPE; t26904.s0.value.external_symbol_type = q287; /* x200314 */ t26907.s0.tag = EXTERNAL_SYMBOL_TYPE; t26907.s0.value.external_symbol_type = q411; /* x200315 */ t26908.s0.tag = EXTERNAL_SYMBOL_TYPE; t26908.s0.value.external_symbol_type = q411; /* x200316 */ t26908.s1.tag = NULL_TYPE; /* x200317 */ t26907.s1.tag = STRUCTURE_TYPE24753; t26907.s1.value.structure_type24753 = &t26908; /* x200318 */ t26906.s0.tag = STRUCTURE_TYPE24753; t26906.s0.value.structure_type24753 = &t26907; /* x200319 */ t26906.s1.tag = NULL_TYPE; /* x200320 */ t26905.s0.tag = STRUCTURE_TYPE24753; t26905.s0.value.structure_type24753 = &t26906; /* x200321 */ t26910.s0.tag = EXTERNAL_SYMBOL_TYPE; t26910.s0.value.external_symbol_type = q43; /* x200322 */ t26912.s0.tag = EXTERNAL_SYMBOL_TYPE; t26912.s0.value.external_symbol_type = q102; /* x200323 */ t26914.s0.tag = EXTERNAL_SYMBOL_TYPE; t26914.s0.value.external_symbol_type = q111; /* x200324 */ t26915.s0.tag = EXTERNAL_SYMBOL_TYPE; t26915.s0.value.external_symbol_type = q411; /* x200325 */ t26915.s1.tag = NULL_TYPE; /* x200326 */ t26914.s1.tag = STRUCTURE_TYPE24753; t26914.s1.value.structure_type24753 = &t26915; /* x200327 */ t26913.s0.tag = STRUCTURE_TYPE24753; t26913.s0.value.structure_type24753 = &t26914; /* x200328 */ t26913.s1.tag = NULL_TYPE; /* x200329 */ t26912.s1.tag = STRUCTURE_TYPE24753; t26912.s1.value.structure_type24753 = &t26913; /* x200330 */ t26911.s0.tag = STRUCTURE_TYPE24753; t26911.s0.value.structure_type24753 = &t26912; /* x200331 */ t26917.s0.tag = EXTERNAL_SYMBOL_TYPE; t26917.s0.value.external_symbol_type = q239; /* x200332 */ t26919.s0.tag = EXTERNAL_SYMBOL_TYPE; t26919.s0.value.external_symbol_type = q242; /* x200333 */ t26920.s0.tag = EXTERNAL_SYMBOL_TYPE; t26920.s0.value.external_symbol_type = q287; /* x200334 */ t26923.s0.tag = EXTERNAL_SYMBOL_TYPE; t26923.s0.value.external_symbol_type = q330; /* x200335 */ t26924.s0.tag = FIXNUM_TYPE; t26924.s0.value.fixnum_type = 0; /* x200336 */ t26924.s1.tag = NULL_TYPE; /* x200337 */ t26923.s1.tag = STRUCTURE_TYPE24753; t26923.s1.value.structure_type24753 = &t26924; /* x200338 */ t26922.s0.tag = STRUCTURE_TYPE24753; t26922.s0.value.structure_type24753 = &t26923; /* x200339 */ t26922.s1.tag = NULL_TYPE; /* x200340 */ t26921.s0.tag = STRUCTURE_TYPE24753; t26921.s0.value.structure_type24753 = &t26922; /* x200341 */ t26926.s0.tag = EXTERNAL_SYMBOL_TYPE; t26926.s0.value.external_symbol_type = q43; /* x200342 */ t26928.s0.tag = EXTERNAL_SYMBOL_TYPE; t26928.s0.value.external_symbol_type = q102; /* x200343 */ t26930.s0.tag = EXTERNAL_SYMBOL_TYPE; t26930.s0.value.external_symbol_type = q120; /* x200344 */ t26931.s0.tag = EXTERNAL_SYMBOL_TYPE; t26931.s0.value.external_symbol_type = q330; /* x200345 */ t26933.s0.tag = EXTERNAL_SYMBOL_TYPE; t26933.s0.value.external_symbol_type = q168; /* x200346 */ t26935.s0.tag = EXTERNAL_SYMBOL_TYPE; t26935.s0.value.external_symbol_type = q107; /* x200347 */ t26936.s0.tag = EXTERNAL_SYMBOL_TYPE; t26936.s0.value.external_symbol_type = q411; /* x200348 */ t26936.s1.tag = NULL_TYPE; /* x200349 */ t26935.s1.tag = STRUCTURE_TYPE24753; t26935.s1.value.structure_type24753 = &t26936; /* x200350 */ t26934.s0.tag = STRUCTURE_TYPE24753; t26934.s0.value.structure_type24753 = &t26935; /* x200351 */ t26934.s1.tag = NULL_TYPE; /* x200352 */ t26933.s1.tag = STRUCTURE_TYPE24753; t26933.s1.value.structure_type24753 = &t26934; /* x200353 */ t26932.s0.tag = STRUCTURE_TYPE24753; t26932.s0.value.structure_type24753 = &t26933; /* x200354 */ t26932.s1.tag = NULL_TYPE; /* x200355 */ t26931.s1.tag = STRUCTURE_TYPE24753; t26931.s1.value.structure_type24753 = &t26932; /* x200356 */ t26930.s1.tag = STRUCTURE_TYPE24753; t26930.s1.value.structure_type24753 = &t26931; /* x200357 */ t26929.s0.tag = STRUCTURE_TYPE24753; t26929.s0.value.structure_type24753 = &t26930; /* x200358 */ t26929.s1.tag = NULL_TYPE; /* x200359 */ t26928.s1.tag = STRUCTURE_TYPE24753; t26928.s1.value.structure_type24753 = &t26929; /* x200360 */ t26927.s0.tag = STRUCTURE_TYPE24753; t26927.s0.value.structure_type24753 = &t26928; /* x200361 */ t26938.s0.tag = EXTERNAL_SYMBOL_TYPE; t26938.s0.value.external_symbol_type = q239; /* x200362 */ t26940.s0.tag = EXTERNAL_SYMBOL_TYPE; t26940.s0.value.external_symbol_type = q170; /* x200363 */ t26941.s0.tag = EXTERNAL_SYMBOL_TYPE; t26941.s0.value.external_symbol_type = q409; /* x200364 */ t26942.s0.tag = EXTERNAL_SYMBOL_TYPE; t26942.s0.value.external_symbol_type = q337; /* x200365 */ t26944.s0.tag = EXTERNAL_SYMBOL_TYPE; t26944.s0.value.external_symbol_type = q169; /* x200366 */ t26946.s0.tag = EXTERNAL_SYMBOL_TYPE; t26946.s0.value.external_symbol_type = q107; /* x200367 */ t26947.s0.tag = EXTERNAL_SYMBOL_TYPE; t26947.s0.value.external_symbol_type = q411; /* x200368 */ t26947.s1.tag = NULL_TYPE; /* x200369 */ t26946.s1.tag = STRUCTURE_TYPE24753; t26946.s1.value.structure_type24753 = &t26947; /* x200370 */ t26945.s0.tag = STRUCTURE_TYPE24753; t26945.s0.value.structure_type24753 = &t26946; /* x200371 */ t26948.s0.tag = EXTERNAL_SYMBOL_TYPE; t26948.s0.value.external_symbol_type = q330; /* x200372 */ t26948.s1.tag = NULL_TYPE; /* x200373 */ t26945.s1.tag = STRUCTURE_TYPE24753; t26945.s1.value.structure_type24753 = &t26948; /* x200374 */ t26944.s1.tag = STRUCTURE_TYPE24753; t26944.s1.value.structure_type24753 = &t26945; /* x200375 */ t26943.s0.tag = STRUCTURE_TYPE24753; t26943.s0.value.structure_type24753 = &t26944; /* x200376 */ t26943.s1.tag = NULL_TYPE; /* x200377 */ t26942.s1.tag = STRUCTURE_TYPE24753; t26942.s1.value.structure_type24753 = &t26943; /* x200378 */ t26941.s1.tag = STRUCTURE_TYPE24753; t26941.s1.value.structure_type24753 = &t26942; /* x200379 */ t26940.s1.tag = STRUCTURE_TYPE24753; t26940.s1.value.structure_type24753 = &t26941; /* x200380 */ t26939.s0.tag = STRUCTURE_TYPE24753; t26939.s0.value.structure_type24753 = &t26940; /* x200381 */ t26950.s0.tag = EXTERNAL_SYMBOL_TYPE; t26950.s0.value.external_symbol_type = q42; /* x200382 */ t26951.s0.tag = EXTERNAL_SYMBOL_TYPE; t26951.s0.value.external_symbol_type = q337; /* x200383 */ t26953.s0.tag = EXTERNAL_SYMBOL_TYPE; t26953.s0.value.external_symbol_type = q4; /* x200384 */ t26954.s0.tag = EXTERNAL_SYMBOL_TYPE; t26954.s0.value.external_symbol_type = q337; /* x200385 */ t26955.s0.tag = FIXNUM_TYPE; t26955.s0.value.fixnum_type = 1; /* x200386 */ t26955.s1.tag = NULL_TYPE; /* x200387 */ t26954.s1.tag = STRUCTURE_TYPE24753; t26954.s1.value.structure_type24753 = &t26955; /* x200388 */ t26953.s1.tag = STRUCTURE_TYPE24753; t26953.s1.value.structure_type24753 = &t26954; /* x200389 */ t26952.s0.tag = STRUCTURE_TYPE24753; t26952.s0.value.structure_type24753 = &t26953; /* x200390 */ t26952.s1.tag = NULL_TYPE; /* x200391 */ t26951.s1.tag = STRUCTURE_TYPE24753; t26951.s1.value.structure_type24753 = &t26952; /* x200392 */ t26950.s1.tag = STRUCTURE_TYPE24753; t26950.s1.value.structure_type24753 = &t26951; /* x200393 */ t26949.s0.tag = STRUCTURE_TYPE24753; t26949.s0.value.structure_type24753 = &t26950; /* x200394 */ t26957.s0.tag = EXTERNAL_SYMBOL_TYPE; t26957.s0.value.external_symbol_type = q287; /* x200395 */ t26959.s0.tag = EXTERNAL_SYMBOL_TYPE; t26959.s0.value.external_symbol_type = q4; /* x200396 */ t26960.s0.tag = EXTERNAL_SYMBOL_TYPE; t26960.s0.value.external_symbol_type = q330; /* x200397 */ t26961.s0.tag = FIXNUM_TYPE; t26961.s0.value.fixnum_type = 1; /* x200398 */ t26961.s1.tag = NULL_TYPE; /* x200399 */ t26960.s1.tag = STRUCTURE_TYPE24753; t26960.s1.value.structure_type24753 = &t26961; /* x200400 */ t26959.s1.tag = STRUCTURE_TYPE24753; t26959.s1.value.structure_type24753 = &t26960; /* x200401 */ t26958.s0.tag = STRUCTURE_TYPE24753; t26958.s0.value.structure_type24753 = &t26959; /* x200402 */ t26958.s1.tag = NULL_TYPE; /* x200403 */ t26957.s1.tag = STRUCTURE_TYPE24753; t26957.s1.value.structure_type24753 = &t26958; /* x200404 */ t26956.s0.tag = STRUCTURE_TYPE24753; t26956.s0.value.structure_type24753 = &t26957; /* x200405 */ t26956.s1.tag = NULL_TYPE; /* x200406 */ t26949.s1.tag = STRUCTURE_TYPE24753; t26949.s1.value.structure_type24753 = &t26956; /* x200407 */ t26939.s1.tag = STRUCTURE_TYPE24753; t26939.s1.value.structure_type24753 = &t26949; /* x200408 */ t26938.s1.tag = STRUCTURE_TYPE24753; t26938.s1.value.structure_type24753 = &t26939; /* x200409 */ t26937.s0.tag = STRUCTURE_TYPE24753; t26937.s0.value.structure_type24753 = &t26938; /* x200410 */ t26937.s1.tag = NULL_TYPE; /* x200411 */ t26927.s1.tag = STRUCTURE_TYPE24753; t26927.s1.value.structure_type24753 = &t26937; /* x200412 */ t26926.s1.tag = STRUCTURE_TYPE24753; t26926.s1.value.structure_type24753 = &t26927; /* x200413 */ t26925.s0.tag = STRUCTURE_TYPE24753; t26925.s0.value.structure_type24753 = &t26926; /* x200414 */ t26925.s1.tag = NULL_TYPE; /* x200415 */ t26921.s1.tag = STRUCTURE_TYPE24753; t26921.s1.value.structure_type24753 = &t26925; /* x200416 */ t26920.s1.tag = STRUCTURE_TYPE24753; t26920.s1.value.structure_type24753 = &t26921; /* x200417 */ t26919.s1.tag = STRUCTURE_TYPE24753; t26919.s1.value.structure_type24753 = &t26920; /* x200418 */ t26918.s0.tag = STRUCTURE_TYPE24753; t26918.s0.value.structure_type24753 = &t26919; /* x200419 */ t26963.s0.tag = EXTERNAL_SYMBOL_TYPE; t26963.s0.value.external_symbol_type = q287; /* x200420 */ t26965.s0.tag = EXTERNAL_SYMBOL_TYPE; t26965.s0.value.external_symbol_type = q108; /* x200421 */ t26966.s0.tag = EXTERNAL_SYMBOL_TYPE; t26966.s0.value.external_symbol_type = q411; /* x200422 */ t26966.s1.tag = NULL_TYPE; /* x200423 */ t26965.s1.tag = STRUCTURE_TYPE24753; t26965.s1.value.structure_type24753 = &t26966; /* x200424 */ t26964.s0.tag = STRUCTURE_TYPE24753; t26964.s0.value.structure_type24753 = &t26965; /* x200425 */ t26964.s1.tag = NULL_TYPE; /* x200426 */ t26963.s1.tag = STRUCTURE_TYPE24753; t26963.s1.value.structure_type24753 = &t26964; /* x200427 */ t26962.s0.tag = STRUCTURE_TYPE24753; t26962.s0.value.structure_type24753 = &t26963; /* x200428 */ t26962.s1.tag = NULL_TYPE; /* x200429 */ t26918.s1.tag = STRUCTURE_TYPE24753; t26918.s1.value.structure_type24753 = &t26962; /* x200430 */ t26917.s1.tag = STRUCTURE_TYPE24753; t26917.s1.value.structure_type24753 = &t26918; /* x200431 */ t26916.s0.tag = STRUCTURE_TYPE24753; t26916.s0.value.structure_type24753 = &t26917; /* x200432 */ t26916.s1.tag = NULL_TYPE; /* x200433 */ t26911.s1.tag = STRUCTURE_TYPE24753; t26911.s1.value.structure_type24753 = &t26916; /* x200434 */ t26910.s1.tag = STRUCTURE_TYPE24753; t26910.s1.value.structure_type24753 = &t26911; /* x200435 */ t26909.s0.tag = STRUCTURE_TYPE24753; t26909.s0.value.structure_type24753 = &t26910; /* x200436 */ t26909.s1.tag = NULL_TYPE; /* x200437 */ t26905.s1.tag = STRUCTURE_TYPE24753; t26905.s1.value.structure_type24753 = &t26909; /* x200438 */ t26904.s1.tag = STRUCTURE_TYPE24753; t26904.s1.value.structure_type24753 = &t26905; /* x200439 */ t26903.s1.tag = STRUCTURE_TYPE24753; t26903.s1.value.structure_type24753 = &t26904; /* x200440 */ t26902.s0.tag = STRUCTURE_TYPE24753; t26902.s0.value.structure_type24753 = &t26903; /* x200441 */ t26967.s0.tag = EXTERNAL_SYMBOL_TYPE; t26967.s0.value.external_symbol_type = q409; /* x200442 */ t26967.s1.tag = NULL_TYPE; /* x200443 */ t26902.s1.tag = STRUCTURE_TYPE24753; t26902.s1.value.structure_type24753 = &t26967; /* x200444 */ t26865.s1.tag = STRUCTURE_TYPE24753; t26865.s1.value.structure_type24753 = &t26902; /* x200445 */ t26864.s1.tag = STRUCTURE_TYPE24753; t26864.s1.value.structure_type24753 = &t26865; /* x200446 */ t26863.s0.tag = STRUCTURE_TYPE24753; t26863.s0.value.structure_type24753 = &t26864; /* x200447 */ t26863.s1.tag = NULL_TYPE; /* x200448 */ t26861.s1.tag = STRUCTURE_TYPE24753; t26861.s1.value.structure_type24753 = &t26863; /* x200449 */ t26860.s1.tag = STRUCTURE_TYPE24753; t26860.s1.value.structure_type24753 = &t26861; /* x200452 */ t26972.s0.tag = EXTERNAL_SYMBOL_TYPE; t26972.s0.value.external_symbol_type = q97; /* x200453 */ t26974.s0.tag = EXTERNAL_SYMBOL_TYPE; t26974.s0.value.external_symbol_type = q414; /* x200454 */ t26975.s0.tag = EXTERNAL_SYMBOL_TYPE; t26975.s0.value.external_symbol_type = q6; /* x200455 */ t26975.s1.tag = NULL_TYPE; /* x200456 */ t26974.s1.tag = STRUCTURE_TYPE24753; t26974.s1.value.structure_type24753 = &t26975; /* x200457 */ t26973.s0.tag = STRUCTURE_TYPE24753; t26973.s0.value.structure_type24753 = &t26974; /* x200458 */ t26977.s0.tag = EXTERNAL_SYMBOL_TYPE; t26977.s0.value.external_symbol_type = q242; /* x200459 */ t26980.s0.tag = EXTERNAL_SYMBOL_TYPE; t26980.s0.value.external_symbol_type = q409; /* x200460 */ t26982.s0.tag = EXTERNAL_SYMBOL_TYPE; t26982.s0.value.external_symbol_type = q166; /* x200461 */ t26984.s0.tag = EXTERNAL_SYMBOL_TYPE; t26984.s0.value.external_symbol_type = q168; /* x200462 */ t26985.s0.tag = EXTERNAL_SYMBOL_TYPE; t26985.s0.value.external_symbol_type = q6; /* x200463 */ t26985.s1.tag = NULL_TYPE; /* x200464 */ t26984.s1.tag = STRUCTURE_TYPE24753; t26984.s1.value.structure_type24753 = &t26985; /* x200465 */ t26983.s0.tag = STRUCTURE_TYPE24753; t26983.s0.value.structure_type24753 = &t26984; /* x200466 */ t26983.s1.tag = NULL_TYPE; /* x200467 */ t26982.s1.tag = STRUCTURE_TYPE24753; t26982.s1.value.structure_type24753 = &t26983; /* x200468 */ t26981.s0.tag = STRUCTURE_TYPE24753; t26981.s0.value.structure_type24753 = &t26982; /* x200469 */ t26981.s1.tag = NULL_TYPE; /* x200470 */ t26980.s1.tag = STRUCTURE_TYPE24753; t26980.s1.value.structure_type24753 = &t26981; /* x200471 */ t26979.s0.tag = STRUCTURE_TYPE24753; t26979.s0.value.structure_type24753 = &t26980; /* x200472 */ t26979.s1.tag = NULL_TYPE; /* x200473 */ t26978.s0.tag = STRUCTURE_TYPE24753; t26978.s0.value.structure_type24753 = &t26979; /* x200474 */ t26987.s0.tag = EXTERNAL_SYMBOL_TYPE; t26987.s0.value.external_symbol_type = q242; /* x200475 */ t26988.s0.tag = EXTERNAL_SYMBOL_TYPE; t26988.s0.value.external_symbol_type = q287; /* x200476 */ t26991.s0.tag = EXTERNAL_SYMBOL_TYPE; t26991.s0.value.external_symbol_type = q337; /* x200477 */ t26992.s0.tag = FIXNUM_TYPE; t26992.s0.value.fixnum_type = 0; /* x200478 */ t26992.s1.tag = NULL_TYPE; /* x200479 */ t26991.s1.tag = STRUCTURE_TYPE24753; t26991.s1.value.structure_type24753 = &t26992; /* x200480 */ t26990.s0.tag = STRUCTURE_TYPE24753; t26990.s0.value.structure_type24753 = &t26991; /* x200481 */ t26990.s1.tag = NULL_TYPE; /* x200482 */ t26989.s0.tag = STRUCTURE_TYPE24753; t26989.s0.value.structure_type24753 = &t26990; /* x200483 */ t26994.s0.tag = EXTERNAL_SYMBOL_TYPE; t26994.s0.value.external_symbol_type = q43; /* x200484 */ t26996.s0.tag = EXTERNAL_SYMBOL_TYPE; t26996.s0.value.external_symbol_type = q102; /* x200485 */ t26998.s0.tag = EXTERNAL_SYMBOL_TYPE; t26998.s0.value.external_symbol_type = q120; /* x200486 */ t26999.s0.tag = EXTERNAL_SYMBOL_TYPE; t26999.s0.value.external_symbol_type = q337; /* x200487 */ t27001.s0.tag = EXTERNAL_SYMBOL_TYPE; t27001.s0.value.external_symbol_type = q168; /* x200488 */ t27002.s0.tag = EXTERNAL_SYMBOL_TYPE; t27002.s0.value.external_symbol_type = q6; /* x200489 */ t27002.s1.tag = NULL_TYPE; /* x200490 */ t27001.s1.tag = STRUCTURE_TYPE24753; t27001.s1.value.structure_type24753 = &t27002; /* x200491 */ t27000.s0.tag = STRUCTURE_TYPE24753; t27000.s0.value.structure_type24753 = &t27001; /* x200492 */ t27000.s1.tag = NULL_TYPE; /* x200493 */ t26999.s1.tag = STRUCTURE_TYPE24753; t26999.s1.value.structure_type24753 = &t27000; /* x200494 */ t26998.s1.tag = STRUCTURE_TYPE24753; t26998.s1.value.structure_type24753 = &t26999; /* x200495 */ t26997.s0.tag = STRUCTURE_TYPE24753; t26997.s0.value.structure_type24753 = &t26998; /* x200496 */ t26997.s1.tag = NULL_TYPE; /* x200497 */ t26996.s1.tag = STRUCTURE_TYPE24753; t26996.s1.value.structure_type24753 = &t26997; /* x200498 */ t26995.s0.tag = STRUCTURE_TYPE24753; t26995.s0.value.structure_type24753 = &t26996; /* x200499 */ t27004.s0.tag = EXTERNAL_SYMBOL_TYPE; t27004.s0.value.external_symbol_type = q239; /* x200500 */ t27006.s0.tag = EXTERNAL_SYMBOL_TYPE; t27006.s0.value.external_symbol_type = q170; /* x200501 */ t27007.s0.tag = EXTERNAL_SYMBOL_TYPE; t27007.s0.value.external_symbol_type = q409; /* x200502 */ t27008.s0.tag = EXTERNAL_SYMBOL_TYPE; t27008.s0.value.external_symbol_type = q337; /* x200503 */ t27010.s0.tag = EXTERNAL_SYMBOL_TYPE; t27010.s0.value.external_symbol_type = q169; /* x200504 */ t27011.s0.tag = EXTERNAL_SYMBOL_TYPE; t27011.s0.value.external_symbol_type = q6; /* x200505 */ t27013.s0.tag = EXTERNAL_SYMBOL_TYPE; t27013.s0.value.external_symbol_type = q2; /* x200506 */ t27015.s0.tag = EXTERNAL_SYMBOL_TYPE; t27015.s0.value.external_symbol_type = q2; /* x200507 */ t27017.s0.tag = EXTERNAL_SYMBOL_TYPE; t27017.s0.value.external_symbol_type = q168; /* x200508 */ t27018.s0.tag = EXTERNAL_SYMBOL_TYPE; t27018.s0.value.external_symbol_type = q6; /* x200509 */ t27018.s1.tag = NULL_TYPE; /* x200510 */ t27017.s1.tag = STRUCTURE_TYPE24753; t27017.s1.value.structure_type24753 = &t27018; /* x200511 */ t27016.s0.tag = STRUCTURE_TYPE24753; t27016.s0.value.structure_type24753 = &t27017; /* x200512 */ t27019.s0.tag = EXTERNAL_SYMBOL_TYPE; t27019.s0.value.external_symbol_type = q337; /* x200513 */ t27019.s1.tag = NULL_TYPE; /* x200514 */ t27016.s1.tag = STRUCTURE_TYPE24753; t27016.s1.value.structure_type24753 = &t27019; /* x200515 */ t27015.s1.tag = STRUCTURE_TYPE24753; t27015.s1.value.structure_type24753 = &t27016; /* x200516 */ t27014.s0.tag = STRUCTURE_TYPE24753; t27014.s0.value.structure_type24753 = &t27015; /* x200517 */ t27020.s0.tag = FIXNUM_TYPE; t27020.s0.value.fixnum_type = 1; /* x200518 */ t27020.s1.tag = NULL_TYPE; /* x200519 */ t27014.s1.tag = STRUCTURE_TYPE24753; t27014.s1.value.structure_type24753 = &t27020; /* x200520 */ t27013.s1.tag = STRUCTURE_TYPE24753; t27013.s1.value.structure_type24753 = &t27014; /* x200521 */ t27012.s0.tag = STRUCTURE_TYPE24753; t27012.s0.value.structure_type24753 = &t27013; /* x200522 */ t27012.s1.tag = NULL_TYPE; /* x200523 */ t27011.s1.tag = STRUCTURE_TYPE24753; t27011.s1.value.structure_type24753 = &t27012; /* x200524 */ t27010.s1.tag = STRUCTURE_TYPE24753; t27010.s1.value.structure_type24753 = &t27011; /* x200525 */ t27009.s0.tag = STRUCTURE_TYPE24753; t27009.s0.value.structure_type24753 = &t27010; /* x200526 */ t27009.s1.tag = NULL_TYPE; /* x200527 */ t27008.s1.tag = STRUCTURE_TYPE24753; t27008.s1.value.structure_type24753 = &t27009; /* x200528 */ t27007.s1.tag = STRUCTURE_TYPE24753; t27007.s1.value.structure_type24753 = &t27008; /* x200529 */ t27006.s1.tag = STRUCTURE_TYPE24753; t27006.s1.value.structure_type24753 = &t27007; /* x200530 */ t27005.s0.tag = STRUCTURE_TYPE24753; t27005.s0.value.structure_type24753 = &t27006; /* x200531 */ t27022.s0.tag = EXTERNAL_SYMBOL_TYPE; t27022.s0.value.external_symbol_type = q287; /* x200532 */ t27024.s0.tag = EXTERNAL_SYMBOL_TYPE; t27024.s0.value.external_symbol_type = q4; /* x200533 */ t27025.s0.tag = EXTERNAL_SYMBOL_TYPE; t27025.s0.value.external_symbol_type = q337; /* x200534 */ t27026.s0.tag = FIXNUM_TYPE; t27026.s0.value.fixnum_type = 1; /* x200535 */ t27026.s1.tag = NULL_TYPE; /* x200536 */ t27025.s1.tag = STRUCTURE_TYPE24753; t27025.s1.value.structure_type24753 = &t27026; /* x200537 */ t27024.s1.tag = STRUCTURE_TYPE24753; t27024.s1.value.structure_type24753 = &t27025; /* x200538 */ t27023.s0.tag = STRUCTURE_TYPE24753; t27023.s0.value.structure_type24753 = &t27024; /* x200539 */ t27023.s1.tag = NULL_TYPE; /* x200540 */ t27022.s1.tag = STRUCTURE_TYPE24753; t27022.s1.value.structure_type24753 = &t27023; /* x200541 */ t27021.s0.tag = STRUCTURE_TYPE24753; t27021.s0.value.structure_type24753 = &t27022; /* x200542 */ t27021.s1.tag = NULL_TYPE; /* x200543 */ t27005.s1.tag = STRUCTURE_TYPE24753; t27005.s1.value.structure_type24753 = &t27021; /* x200544 */ t27004.s1.tag = STRUCTURE_TYPE24753; t27004.s1.value.structure_type24753 = &t27005; /* x200545 */ t27003.s0.tag = STRUCTURE_TYPE24753; t27003.s0.value.structure_type24753 = &t27004; /* x200546 */ t27003.s1.tag = NULL_TYPE; /* x200547 */ t26995.s1.tag = STRUCTURE_TYPE24753; t26995.s1.value.structure_type24753 = &t27003; /* x200548 */ t26994.s1.tag = STRUCTURE_TYPE24753; t26994.s1.value.structure_type24753 = &t26995; /* x200549 */ t26993.s0.tag = STRUCTURE_TYPE24753; t26993.s0.value.structure_type24753 = &t26994; /* x200550 */ t26993.s1.tag = NULL_TYPE; /* x200551 */ t26989.s1.tag = STRUCTURE_TYPE24753; t26989.s1.value.structure_type24753 = &t26993; /* x200552 */ t26988.s1.tag = STRUCTURE_TYPE24753; t26988.s1.value.structure_type24753 = &t26989; /* x200553 */ t26987.s1.tag = STRUCTURE_TYPE24753; t26987.s1.value.structure_type24753 = &t26988; /* x200554 */ t26986.s0.tag = STRUCTURE_TYPE24753; t26986.s0.value.structure_type24753 = &t26987; /* x200555 */ t27027.s0.tag = EXTERNAL_SYMBOL_TYPE; t27027.s0.value.external_symbol_type = q409; /* x200556 */ t27027.s1.tag = NULL_TYPE; /* x200557 */ t26986.s1.tag = STRUCTURE_TYPE24753; t26986.s1.value.structure_type24753 = &t27027; /* x200558 */ t26978.s1.tag = STRUCTURE_TYPE24753; t26978.s1.value.structure_type24753 = &t26986; /* x200559 */ t26977.s1.tag = STRUCTURE_TYPE24753; t26977.s1.value.structure_type24753 = &t26978; /* x200560 */ t26976.s0.tag = STRUCTURE_TYPE24753; t26976.s0.value.structure_type24753 = &t26977; /* x200561 */ t26976.s1.tag = NULL_TYPE; /* x200562 */ t26973.s1.tag = STRUCTURE_TYPE24753; t26973.s1.value.structure_type24753 = &t26976; /* x200563 */ t26972.s1.tag = STRUCTURE_TYPE24753; t26972.s1.value.structure_type24753 = &t26973; /* x200566 */ t27032.s0.tag = EXTERNAL_SYMBOL_TYPE; t27032.s0.value.external_symbol_type = q97; /* x200567 */ t27034.s0.tag = EXTERNAL_SYMBOL_TYPE; t27034.s0.value.external_symbol_type = q433; /* x200568 */ t27035.s0.tag = EXTERNAL_SYMBOL_TYPE; t27035.s0.value.external_symbol_type = q6; /* x200569 */ t27035.s1.tag = NULL_TYPE; /* x200570 */ t27034.s1.tag = STRUCTURE_TYPE24753; t27034.s1.value.structure_type24753 = &t27035; /* x200571 */ t27033.s0.tag = STRUCTURE_TYPE24753; t27033.s0.value.structure_type24753 = &t27034; /* x200572 */ t27037.s0.tag = EXTERNAL_SYMBOL_TYPE; t27037.s0.value.external_symbol_type = q242; /* x200573 */ t27040.s0.tag = EXTERNAL_SYMBOL_TYPE; t27040.s0.value.external_symbol_type = q409; /* x200574 */ t27042.s0.tag = EXTERNAL_SYMBOL_TYPE; t27042.s0.value.external_symbol_type = q166; /* x200575 */ t27044.s0.tag = EXTERNAL_SYMBOL_TYPE; t27044.s0.value.external_symbol_type = q168; /* x200576 */ t27045.s0.tag = EXTERNAL_SYMBOL_TYPE; t27045.s0.value.external_symbol_type = q6; /* x200577 */ t27045.s1.tag = NULL_TYPE; /* x200578 */ t27044.s1.tag = STRUCTURE_TYPE24753; t27044.s1.value.structure_type24753 = &t27045; /* x200579 */ t27043.s0.tag = STRUCTURE_TYPE24753; t27043.s0.value.structure_type24753 = &t27044; /* x200580 */ t27043.s1.tag = NULL_TYPE; /* x200581 */ t27042.s1.tag = STRUCTURE_TYPE24753; t27042.s1.value.structure_type24753 = &t27043; /* x200582 */ t27041.s0.tag = STRUCTURE_TYPE24753; t27041.s0.value.structure_type24753 = &t27042; /* x200583 */ t27041.s1.tag = NULL_TYPE; /* x200584 */ t27040.s1.tag = STRUCTURE_TYPE24753; t27040.s1.value.structure_type24753 = &t27041; /* x200585 */ t27039.s0.tag = STRUCTURE_TYPE24753; t27039.s0.value.structure_type24753 = &t27040; /* x200586 */ t27039.s1.tag = NULL_TYPE; /* x200587 */ t27038.s0.tag = STRUCTURE_TYPE24753; t27038.s0.value.structure_type24753 = &t27039; /* x200588 */ t27047.s0.tag = EXTERNAL_SYMBOL_TYPE; t27047.s0.value.external_symbol_type = q242; /* x200589 */ t27048.s0.tag = EXTERNAL_SYMBOL_TYPE; t27048.s0.value.external_symbol_type = q287; /* x200590 */ t27051.s0.tag = EXTERNAL_SYMBOL_TYPE; t27051.s0.value.external_symbol_type = q337; /* x200591 */ t27052.s0.tag = FIXNUM_TYPE; t27052.s0.value.fixnum_type = 0; /* x200592 */ t27052.s1.tag = NULL_TYPE; /* x200593 */ t27051.s1.tag = STRUCTURE_TYPE24753; t27051.s1.value.structure_type24753 = &t27052; /* x200594 */ t27050.s0.tag = STRUCTURE_TYPE24753; t27050.s0.value.structure_type24753 = &t27051; /* x200595 */ t27050.s1.tag = NULL_TYPE; /* x200596 */ t27049.s0.tag = STRUCTURE_TYPE24753; t27049.s0.value.structure_type24753 = &t27050; /* x200597 */ t27054.s0.tag = EXTERNAL_SYMBOL_TYPE; t27054.s0.value.external_symbol_type = q43; /* x200598 */ t27056.s0.tag = EXTERNAL_SYMBOL_TYPE; t27056.s0.value.external_symbol_type = q102; /* x200599 */ t27058.s0.tag = EXTERNAL_SYMBOL_TYPE; t27058.s0.value.external_symbol_type = q120; /* x200600 */ t27059.s0.tag = EXTERNAL_SYMBOL_TYPE; t27059.s0.value.external_symbol_type = q337; /* x200601 */ t27061.s0.tag = EXTERNAL_SYMBOL_TYPE; t27061.s0.value.external_symbol_type = q168; /* x200602 */ t27062.s0.tag = EXTERNAL_SYMBOL_TYPE; t27062.s0.value.external_symbol_type = q6; /* x200603 */ t27062.s1.tag = NULL_TYPE; /* x200604 */ t27061.s1.tag = STRUCTURE_TYPE24753; t27061.s1.value.structure_type24753 = &t27062; /* x200605 */ t27060.s0.tag = STRUCTURE_TYPE24753; t27060.s0.value.structure_type24753 = &t27061; /* x200606 */ t27060.s1.tag = NULL_TYPE; /* x200607 */ t27059.s1.tag = STRUCTURE_TYPE24753; t27059.s1.value.structure_type24753 = &t27060; /* x200608 */ t27058.s1.tag = STRUCTURE_TYPE24753; t27058.s1.value.structure_type24753 = &t27059; /* x200609 */ t27057.s0.tag = STRUCTURE_TYPE24753; t27057.s0.value.structure_type24753 = &t27058; /* x200610 */ t27057.s1.tag = NULL_TYPE; /* x200611 */ t27056.s1.tag = STRUCTURE_TYPE24753; t27056.s1.value.structure_type24753 = &t27057; /* x200612 */ t27055.s0.tag = STRUCTURE_TYPE24753; t27055.s0.value.structure_type24753 = &t27056; /* x200613 */ t27064.s0.tag = EXTERNAL_SYMBOL_TYPE; t27064.s0.value.external_symbol_type = q239; /* x200614 */ t27066.s0.tag = EXTERNAL_SYMBOL_TYPE; t27066.s0.value.external_symbol_type = q170; /* x200615 */ t27067.s0.tag = EXTERNAL_SYMBOL_TYPE; t27067.s0.value.external_symbol_type = q409; /* x200616 */ t27068.s0.tag = EXTERNAL_SYMBOL_TYPE; t27068.s0.value.external_symbol_type = q337; /* x200617 */ t27070.s0.tag = EXTERNAL_SYMBOL_TYPE; t27070.s0.value.external_symbol_type = q169; /* x200618 */ t27071.s0.tag = EXTERNAL_SYMBOL_TYPE; t27071.s0.value.external_symbol_type = q6; /* x200619 */ t27072.s0.tag = EXTERNAL_SYMBOL_TYPE; t27072.s0.value.external_symbol_type = q337; /* x200620 */ t27072.s1.tag = NULL_TYPE; /* x200621 */ t27071.s1.tag = STRUCTURE_TYPE24753; t27071.s1.value.structure_type24753 = &t27072; /* x200622 */ t27070.s1.tag = STRUCTURE_TYPE24753; t27070.s1.value.structure_type24753 = &t27071; /* x200623 */ t27069.s0.tag = STRUCTURE_TYPE24753; t27069.s0.value.structure_type24753 = &t27070; /* x200624 */ t27069.s1.tag = NULL_TYPE; /* x200625 */ t27068.s1.tag = STRUCTURE_TYPE24753; t27068.s1.value.structure_type24753 = &t27069; /* x200626 */ t27067.s1.tag = STRUCTURE_TYPE24753; t27067.s1.value.structure_type24753 = &t27068; /* x200627 */ t27066.s1.tag = STRUCTURE_TYPE24753; t27066.s1.value.structure_type24753 = &t27067; /* x200628 */ t27065.s0.tag = STRUCTURE_TYPE24753; t27065.s0.value.structure_type24753 = &t27066; /* x200629 */ t27074.s0.tag = EXTERNAL_SYMBOL_TYPE; t27074.s0.value.external_symbol_type = q287; /* x200630 */ t27076.s0.tag = EXTERNAL_SYMBOL_TYPE; t27076.s0.value.external_symbol_type = q4; /* x200631 */ t27077.s0.tag = EXTERNAL_SYMBOL_TYPE; t27077.s0.value.external_symbol_type = q337; /* x200632 */ t27078.s0.tag = FIXNUM_TYPE; t27078.s0.value.fixnum_type = 1; /* x200633 */ t27078.s1.tag = NULL_TYPE; /* x200634 */ t27077.s1.tag = STRUCTURE_TYPE24753; t27077.s1.value.structure_type24753 = &t27078; /* x200635 */ t27076.s1.tag = STRUCTURE_TYPE24753; t27076.s1.value.structure_type24753 = &t27077; /* x200636 */ t27075.s0.tag = STRUCTURE_TYPE24753; t27075.s0.value.structure_type24753 = &t27076; /* x200637 */ t27075.s1.tag = NULL_TYPE; /* x200638 */ t27074.s1.tag = STRUCTURE_TYPE24753; t27074.s1.value.structure_type24753 = &t27075; /* x200639 */ t27073.s0.tag = STRUCTURE_TYPE24753; t27073.s0.value.structure_type24753 = &t27074; /* x200640 */ t27073.s1.tag = NULL_TYPE; /* x200641 */ t27065.s1.tag = STRUCTURE_TYPE24753; t27065.s1.value.structure_type24753 = &t27073; /* x200642 */ t27064.s1.tag = STRUCTURE_TYPE24753; t27064.s1.value.structure_type24753 = &t27065; /* x200643 */ t27063.s0.tag = STRUCTURE_TYPE24753; t27063.s0.value.structure_type24753 = &t27064; /* x200644 */ t27063.s1.tag = NULL_TYPE; /* x200645 */ t27055.s1.tag = STRUCTURE_TYPE24753; t27055.s1.value.structure_type24753 = &t27063; /* x200646 */ t27054.s1.tag = STRUCTURE_TYPE24753; t27054.s1.value.structure_type24753 = &t27055; /* x200647 */ t27053.s0.tag = STRUCTURE_TYPE24753; t27053.s0.value.structure_type24753 = &t27054; /* x200648 */ t27053.s1.tag = NULL_TYPE; /* x200649 */ t27049.s1.tag = STRUCTURE_TYPE24753; t27049.s1.value.structure_type24753 = &t27053; /* x200650 */ t27048.s1.tag = STRUCTURE_TYPE24753; t27048.s1.value.structure_type24753 = &t27049; /* x200651 */ t27047.s1.tag = STRUCTURE_TYPE24753; t27047.s1.value.structure_type24753 = &t27048; /* x200652 */ t27046.s0.tag = STRUCTURE_TYPE24753; t27046.s0.value.structure_type24753 = &t27047; /* x200653 */ t27079.s0.tag = EXTERNAL_SYMBOL_TYPE; t27079.s0.value.external_symbol_type = q409; /* x200654 */ t27079.s1.tag = NULL_TYPE; /* x200655 */ t27046.s1.tag = STRUCTURE_TYPE24753; t27046.s1.value.structure_type24753 = &t27079; /* x200656 */ t27038.s1.tag = STRUCTURE_TYPE24753; t27038.s1.value.structure_type24753 = &t27046; /* x200657 */ t27037.s1.tag = STRUCTURE_TYPE24753; t27037.s1.value.structure_type24753 = &t27038; /* x200658 */ t27036.s0.tag = STRUCTURE_TYPE24753; t27036.s0.value.structure_type24753 = &t27037; /* x200659 */ t27036.s1.tag = NULL_TYPE; /* x200660 */ t27033.s1.tag = STRUCTURE_TYPE24753; t27033.s1.value.structure_type24753 = &t27036; /* x200661 */ t27032.s1.tag = STRUCTURE_TYPE24753; t27032.s1.value.structure_type24753 = &t27033; /* x200664 */ t27084.s0.tag = EXTERNAL_SYMBOL_TYPE; t27084.s0.value.external_symbol_type = q97; /* x200665 */ t27086.s0.tag = EXTERNAL_SYMBOL_TYPE; t27086.s0.value.external_symbol_type = q171; /* x200666 */ t27087.s0.tag = EXTERNAL_SYMBOL_TYPE; t27087.s0.value.external_symbol_type = q318; /* x200667 */ t27087.s1.tag = NULL_TYPE; /* x200668 */ t27086.s1.tag = STRUCTURE_TYPE24753; t27086.s1.value.structure_type24753 = &t27087; /* x200669 */ t27085.s0.tag = STRUCTURE_TYPE24753; t27085.s0.value.structure_type24753 = &t27086; /* x200670 */ t27090.s0.tag = EXTERNAL_SYMBOL_TYPE; t27090.s0.value.external_symbol_type = q77; /* x200671 */ t27091.s0.tag = EXTERNAL_SYMBOL_TYPE; t27091.s0.value.external_symbol_type = q171; /* x200672 */ t27091.s1.tag = NULL_TYPE; /* x200673 */ t27090.s1.tag = STRUCTURE_TYPE24753; t27090.s1.value.structure_type24753 = &t27091; /* x200674 */ t27089.s0.tag = STRUCTURE_TYPE24753; t27089.s0.value.structure_type24753 = &t27090; /* x200675 */ t27092.s0.tag = EXTERNAL_SYMBOL_TYPE; t27092.s0.value.external_symbol_type = q318; /* x200676 */ t27092.s1.tag = NULL_TYPE; /* x200677 */ t27089.s1.tag = STRUCTURE_TYPE24753; t27089.s1.value.structure_type24753 = &t27092; /* x200678 */ t27088.s0.tag = STRUCTURE_TYPE24753; t27088.s0.value.structure_type24753 = &t27089; /* x200679 */ t27088.s1.tag = NULL_TYPE; /* x200680 */ t27085.s1.tag = STRUCTURE_TYPE24753; t27085.s1.value.structure_type24753 = &t27088; /* x200681 */ t27084.s1.tag = STRUCTURE_TYPE24753; t27084.s1.value.structure_type24753 = &t27085; /* x200684 */ t27097.s0.tag = EXTERNAL_SYMBOL_TYPE; t27097.s0.value.external_symbol_type = q97; /* x200685 */ t27099.s0.tag = EXTERNAL_SYMBOL_TYPE; t27099.s0.value.external_symbol_type = q79; /* x200686 */ t27100.s0.tag = EXTERNAL_SYMBOL_TYPE; t27100.s0.value.external_symbol_type = q249; /* x200687 */ t27101.s0.tag = EXTERNAL_SYMBOL_TYPE; t27101.s0.value.external_symbol_type = q486; /* x200688 */ t27101.s1.tag = EXTERNAL_SYMBOL_TYPE; t27101.s1.value.external_symbol_type = q487; /* x200689 */ t27100.s1.tag = STRUCTURE_TYPE24753; t27100.s1.value.structure_type24753 = &t27101; /* x200690 */ t27099.s1.tag = STRUCTURE_TYPE24753; t27099.s1.value.structure_type24753 = &t27100; /* x200691 */ t27098.s0.tag = STRUCTURE_TYPE24753; t27098.s0.value.structure_type24753 = &t27099; /* x200692 */ t27103.s0.tag = EXTERNAL_SYMBOL_TYPE; t27103.s0.value.external_symbol_type = q43; /* x200693 */ t27105.s0.tag = EXTERNAL_SYMBOL_TYPE; t27105.s0.value.external_symbol_type = q111; /* x200694 */ t27106.s0.tag = EXTERNAL_SYMBOL_TYPE; t27106.s0.value.external_symbol_type = q487; /* x200695 */ t27106.s1.tag = NULL_TYPE; /* x200696 */ t27105.s1.tag = STRUCTURE_TYPE24753; t27105.s1.value.structure_type24753 = &t27106; /* x200697 */ t27104.s0.tag = STRUCTURE_TYPE24753; t27104.s0.value.structure_type24753 = &t27105; /* x200698 */ t27109.s0.tag = EXTERNAL_SYMBOL_TYPE; t27109.s0.value.external_symbol_type = q77; /* x200699 */ t27110.s0.tag = EXTERNAL_SYMBOL_TYPE; t27110.s0.value.external_symbol_type = q79; /* x200700 */ t27110.s1.tag = NULL_TYPE; /* x200701 */ t27109.s1.tag = STRUCTURE_TYPE24753; t27109.s1.value.structure_type24753 = &t27110; /* x200702 */ t27108.s0.tag = STRUCTURE_TYPE24753; t27108.s0.value.structure_type24753 = &t27109; /* x200703 */ t27111.s0.tag = EXTERNAL_SYMBOL_TYPE; t27111.s0.value.external_symbol_type = q249; /* x200704 */ t27112.s0.tag = EXTERNAL_SYMBOL_TYPE; t27112.s0.value.external_symbol_type = q486; /* x200705 */ t27112.s1.tag = NULL_TYPE; /* x200706 */ t27111.s1.tag = STRUCTURE_TYPE24753; t27111.s1.value.structure_type24753 = &t27112; /* x200707 */ t27108.s1.tag = STRUCTURE_TYPE24753; t27108.s1.value.structure_type24753 = &t27111; /* x200708 */ t27107.s0.tag = STRUCTURE_TYPE24753; t27107.s0.value.structure_type24753 = &t27108; /* x200709 */ t27114.s0.tag = EXTERNAL_SYMBOL_TYPE; t27114.s0.value.external_symbol_type = q242; /* x200710 */ t27115.s0.tag = EXTERNAL_SYMBOL_TYPE; t27115.s0.value.external_symbol_type = q287; /* x200711 */ t27118.s0.tag = EXTERNAL_SYMBOL_TYPE; t27118.s0.value.external_symbol_type = q486; /* x200712 */ t27120.s0.tag = EXTERNAL_SYMBOL_TYPE; t27120.s0.value.external_symbol_type = q1; /* x200713 */ t27121.s0.tag = EXTERNAL_SYMBOL_TYPE; t27121.s0.value.external_symbol_type = q486; /* x200714 */ t27121.s1.tag = NULL_TYPE; /* x200715 */ t27120.s1.tag = STRUCTURE_TYPE24753; t27120.s1.value.structure_type24753 = &t27121; /* x200716 */ t27119.s0.tag = STRUCTURE_TYPE24753; t27119.s0.value.structure_type24753 = &t27120; /* x200717 */ t27119.s1.tag = NULL_TYPE; /* x200718 */ t27118.s1.tag = STRUCTURE_TYPE24753; t27118.s1.value.structure_type24753 = &t27119; /* x200719 */ t27117.s0.tag = STRUCTURE_TYPE24753; t27117.s0.value.structure_type24753 = &t27118; /* x200720 */ t27123.s0.tag = EXTERNAL_SYMBOL_TYPE; t27123.s0.value.external_symbol_type = q487; /* x200721 */ t27124.s0.tag = EXTERNAL_SYMBOL_TYPE; t27124.s0.value.external_symbol_type = q487; /* x200722 */ t27124.s1.tag = NULL_TYPE; /* x200723 */ t27123.s1.tag = STRUCTURE_TYPE24753; t27123.s1.value.structure_type24753 = &t27124; /* x200724 */ t27122.s0.tag = STRUCTURE_TYPE24753; t27122.s0.value.structure_type24753 = &t27123; /* x200725 */ t27122.s1.tag = NULL_TYPE; /* x200726 */ t27117.s1.tag = STRUCTURE_TYPE24753; t27117.s1.value.structure_type24753 = &t27122; /* x200727 */ t27116.s0.tag = STRUCTURE_TYPE24753; t27116.s0.value.structure_type24753 = &t27117; /* x200728 */ t27126.s0.tag = EXTERNAL_SYMBOL_TYPE; t27126.s0.value.external_symbol_type = q43; /* x200729 */ t27128.s0.tag = EXTERNAL_SYMBOL_TYPE; t27128.s0.value.external_symbol_type = q111; /* x200730 */ t27130.s0.tag = EXTERNAL_SYMBOL_TYPE; t27130.s0.value.external_symbol_type = q108; /* x200731 */ t27131.s0.tag = EXTERNAL_SYMBOL_TYPE; t27131.s0.value.external_symbol_type = q487; /* x200732 */ t27131.s1.tag = NULL_TYPE; /* x200733 */ t27130.s1.tag = STRUCTURE_TYPE24753; t27130.s1.value.structure_type24753 = &t27131; /* x200734 */ t27129.s0.tag = STRUCTURE_TYPE24753; t27129.s0.value.structure_type24753 = &t27130; /* x200735 */ t27129.s1.tag = NULL_TYPE; /* x200736 */ t27128.s1.tag = STRUCTURE_TYPE24753; t27128.s1.value.structure_type24753 = &t27129; /* x200737 */ t27127.s0.tag = STRUCTURE_TYPE24753; t27127.s0.value.structure_type24753 = &t27128; /* x200738 */ t27133.s0.tag = EXTERNAL_SYMBOL_TYPE; t27133.s0.value.external_symbol_type = q242; /* x200739 */ t27134.s0.tag = EXTERNAL_SYMBOL_TYPE; t27134.s0.value.external_symbol_type = q287; /* x200740 */ t27137.s0.tag = EXTERNAL_SYMBOL_TYPE; t27137.s0.value.external_symbol_type = q486; /* x200741 */ t27139.s0.tag = EXTERNAL_SYMBOL_TYPE; t27139.s0.value.external_symbol_type = q107; /* x200742 */ t27140.s0.tag = EXTERNAL_SYMBOL_TYPE; t27140.s0.value.external_symbol_type = q487; /* x200743 */ t27140.s1.tag = NULL_TYPE; /* x200744 */ t27139.s1.tag = STRUCTURE_TYPE24753; t27139.s1.value.structure_type24753 = &t27140; /* x200745 */ t27138.s0.tag = STRUCTURE_TYPE24753; t27138.s0.value.structure_type24753 = &t27139; /* x200746 */ t27138.s1.tag = NULL_TYPE; /* x200747 */ t27137.s1.tag = STRUCTURE_TYPE24753; t27137.s1.value.structure_type24753 = &t27138; /* x200748 */ t27136.s0.tag = STRUCTURE_TYPE24753; t27136.s0.value.structure_type24753 = &t27137; /* x200749 */ t27142.s0.tag = EXTERNAL_SYMBOL_TYPE; t27142.s0.value.external_symbol_type = q487; /* x200750 */ t27143.s0.tag = EXTERNAL_SYMBOL_TYPE; t27143.s0.value.external_symbol_type = q486; /* x200751 */ t27143.s1.tag = NULL_TYPE; /* x200752 */ t27142.s1.tag = STRUCTURE_TYPE24753; t27142.s1.value.structure_type24753 = &t27143; /* x200753 */ t27141.s0.tag = STRUCTURE_TYPE24753; t27141.s0.value.structure_type24753 = &t27142; /* x200754 */ t27141.s1.tag = NULL_TYPE; /* x200755 */ t27136.s1.tag = STRUCTURE_TYPE24753; t27136.s1.value.structure_type24753 = &t27141; /* x200756 */ t27135.s0.tag = STRUCTURE_TYPE24753; t27135.s0.value.structure_type24753 = &t27136; /* x200757 */ t27145.s0.tag = EXTERNAL_SYMBOL_TYPE; t27145.s0.value.external_symbol_type = q43; /* x200758 */ t27147.s0.tag = EXTERNAL_SYMBOL_TYPE; t27147.s0.value.external_symbol_type = q111; /* x200759 */ t27148.s0.tag = EXTERNAL_SYMBOL_TYPE; t27148.s0.value.external_symbol_type = q487; /* x200760 */ t27148.s1.tag = NULL_TYPE; /* x200761 */ t27147.s1.tag = STRUCTURE_TYPE24753; t27147.s1.value.structure_type24753 = &t27148; /* x200762 */ t27146.s0.tag = STRUCTURE_TYPE24753; t27146.s0.value.structure_type24753 = &t27147; /* x200763 */ t27151.s0.tag = EXTERNAL_SYMBOL_TYPE; t27151.s0.value.external_symbol_type = q77; /* x200764 */ t27152.s0.tag = EXTERNAL_SYMBOL_TYPE; t27152.s0.value.external_symbol_type = q79; /* x200765 */ t27152.s1.tag = NULL_TYPE; /* x200766 */ t27151.s1.tag = STRUCTURE_TYPE24753; t27151.s1.value.structure_type24753 = &t27152; /* x200767 */ t27150.s0.tag = STRUCTURE_TYPE24753; t27150.s0.value.structure_type24753 = &t27151; /* x200768 */ t27153.s0.tag = EXTERNAL_SYMBOL_TYPE; t27153.s0.value.external_symbol_type = q249; /* x200769 */ t27154.s0.tag = EXTERNAL_SYMBOL_TYPE; t27154.s0.value.external_symbol_type = q486; /* x200770 */ t27154.s1.tag = NULL_TYPE; /* x200771 */ t27153.s1.tag = STRUCTURE_TYPE24753; t27153.s1.value.structure_type24753 = &t27154; /* x200772 */ t27150.s1.tag = STRUCTURE_TYPE24753; t27150.s1.value.structure_type24753 = &t27153; /* x200773 */ t27149.s0.tag = STRUCTURE_TYPE24753; t27149.s0.value.structure_type24753 = &t27150; /* x200774 */ t27156.s0.tag = EXTERNAL_SYMBOL_TYPE; t27156.s0.value.external_symbol_type = q287; /* x200775 */ t27158.s0.tag = EXTERNAL_SYMBOL_TYPE; t27158.s0.value.external_symbol_type = q106; /* x200776 */ t27160.s0.tag = EXTERNAL_SYMBOL_TYPE; t27160.s0.value.external_symbol_type = q107; /* x200777 */ t27161.s0.tag = EXTERNAL_SYMBOL_TYPE; t27161.s0.value.external_symbol_type = q487; /* x200778 */ t27161.s1.tag = NULL_TYPE; /* x200779 */ t27160.s1.tag = STRUCTURE_TYPE24753; t27160.s1.value.structure_type24753 = &t27161; /* x200780 */ t27159.s0.tag = STRUCTURE_TYPE24753; t27159.s0.value.structure_type24753 = &t27160; /* x200781 */ t27162.s0.tag = EXTERNAL_SYMBOL_TYPE; t27162.s0.value.external_symbol_type = q486; /* x200782 */ t27162.s1.tag = NULL_TYPE; /* x200783 */ t27159.s1.tag = STRUCTURE_TYPE24753; t27159.s1.value.structure_type24753 = &t27162; /* x200784 */ t27158.s1.tag = STRUCTURE_TYPE24753; t27158.s1.value.structure_type24753 = &t27159; /* x200785 */ t27157.s0.tag = STRUCTURE_TYPE24753; t27157.s0.value.structure_type24753 = &t27158; /* x200786 */ t27164.s0.tag = EXTERNAL_SYMBOL_TYPE; t27164.s0.value.external_symbol_type = q108; /* x200787 */ t27165.s0.tag = EXTERNAL_SYMBOL_TYPE; t27165.s0.value.external_symbol_type = q487; /* x200788 */ t27165.s1.tag = NULL_TYPE; /* x200789 */ t27164.s1.tag = STRUCTURE_TYPE24753; t27164.s1.value.structure_type24753 = &t27165; /* x200790 */ t27163.s0.tag = STRUCTURE_TYPE24753; t27163.s0.value.structure_type24753 = &t27164; /* x200791 */ t27163.s1.tag = NULL_TYPE; /* x200792 */ t27157.s1.tag = STRUCTURE_TYPE24753; t27157.s1.value.structure_type24753 = &t27163; /* x200793 */ t27156.s1.tag = STRUCTURE_TYPE24753; t27156.s1.value.structure_type24753 = &t27157; /* x200794 */ t27155.s0.tag = STRUCTURE_TYPE24753; t27155.s0.value.structure_type24753 = &t27156; /* x200795 */ t27155.s1.tag = NULL_TYPE; /* x200796 */ t27149.s1.tag = STRUCTURE_TYPE24753; t27149.s1.value.structure_type24753 = &t27155; /* x200797 */ t27146.s1.tag = STRUCTURE_TYPE24753; t27146.s1.value.structure_type24753 = &t27149; /* x200798 */ t27145.s1.tag = STRUCTURE_TYPE24753; t27145.s1.value.structure_type24753 = &t27146; /* x200799 */ t27144.s0.tag = STRUCTURE_TYPE24753; t27144.s0.value.structure_type24753 = &t27145; /* x200800 */ t27144.s1.tag = NULL_TYPE; /* x200801 */ t27135.s1.tag = STRUCTURE_TYPE24753; t27135.s1.value.structure_type24753 = &t27144; /* x200802 */ t27134.s1.tag = STRUCTURE_TYPE24753; t27134.s1.value.structure_type24753 = &t27135; /* x200803 */ t27133.s1.tag = STRUCTURE_TYPE24753; t27133.s1.value.structure_type24753 = &t27134; /* x200804 */ t27132.s0.tag = STRUCTURE_TYPE24753; t27132.s0.value.structure_type24753 = &t27133; /* x200805 */ t27167.s0.tag = EXTERNAL_SYMBOL_TYPE; t27167.s0.value.external_symbol_type = q287; /* x200806 */ t27169.s0.tag = EXTERNAL_SYMBOL_TYPE; t27169.s0.value.external_symbol_type = q106; /* x200807 */ t27171.s0.tag = EXTERNAL_SYMBOL_TYPE; t27171.s0.value.external_symbol_type = q107; /* x200808 */ t27172.s0.tag = EXTERNAL_SYMBOL_TYPE; t27172.s0.value.external_symbol_type = q487; /* x200809 */ t27172.s1.tag = NULL_TYPE; /* x200810 */ t27171.s1.tag = STRUCTURE_TYPE24753; t27171.s1.value.structure_type24753 = &t27172; /* x200811 */ t27170.s0.tag = STRUCTURE_TYPE24753; t27170.s0.value.structure_type24753 = &t27171; /* x200812 */ t27173.s0.tag = EXTERNAL_SYMBOL_TYPE; t27173.s0.value.external_symbol_type = q486; /* x200813 */ t27173.s1.tag = NULL_TYPE; /* x200814 */ t27170.s1.tag = STRUCTURE_TYPE24753; t27170.s1.value.structure_type24753 = &t27173; /* x200815 */ t27169.s1.tag = STRUCTURE_TYPE24753; t27169.s1.value.structure_type24753 = &t27170; /* x200816 */ t27168.s0.tag = STRUCTURE_TYPE24753; t27168.s0.value.structure_type24753 = &t27169; /* x200817 */ t27175.s0.tag = EXTERNAL_SYMBOL_TYPE; t27175.s0.value.external_symbol_type = q108; /* x200818 */ t27176.s0.tag = EXTERNAL_SYMBOL_TYPE; t27176.s0.value.external_symbol_type = q487; /* x200819 */ t27176.s1.tag = NULL_TYPE; /* x200820 */ t27175.s1.tag = STRUCTURE_TYPE24753; t27175.s1.value.structure_type24753 = &t27176; /* x200821 */ t27174.s0.tag = STRUCTURE_TYPE24753; t27174.s0.value.structure_type24753 = &t27175; /* x200822 */ t27174.s1.tag = NULL_TYPE; /* x200823 */ t27168.s1.tag = STRUCTURE_TYPE24753; t27168.s1.value.structure_type24753 = &t27174; /* x200824 */ t27167.s1.tag = STRUCTURE_TYPE24753; t27167.s1.value.structure_type24753 = &t27168; /* x200825 */ t27166.s0.tag = STRUCTURE_TYPE24753; t27166.s0.value.structure_type24753 = &t27167; /* x200826 */ t27166.s1.tag = NULL_TYPE; /* x200827 */ t27132.s1.tag = STRUCTURE_TYPE24753; t27132.s1.value.structure_type24753 = &t27166; /* x200828 */ t27127.s1.tag = STRUCTURE_TYPE24753; t27127.s1.value.structure_type24753 = &t27132; /* x200829 */ t27126.s1.tag = STRUCTURE_TYPE24753;} void initialize_constants23(void) {t27126.s1.value.structure_type24753 = &t27127; /* x200830 */ t27125.s0.tag = STRUCTURE_TYPE24753; t27125.s0.value.structure_type24753 = &t27126; /* x200831 */ t27125.s1.tag = NULL_TYPE; /* x200832 */ t27116.s1.tag = STRUCTURE_TYPE24753; t27116.s1.value.structure_type24753 = &t27125; /* x200833 */ t27115.s1.tag = STRUCTURE_TYPE24753; t27115.s1.value.structure_type24753 = &t27116; /* x200834 */ t27114.s1.tag = STRUCTURE_TYPE24753; t27114.s1.value.structure_type24753 = &t27115; /* x200835 */ t27113.s0.tag = STRUCTURE_TYPE24753; t27113.s0.value.structure_type24753 = &t27114; /* x200836 */ t27113.s1.tag = NULL_TYPE; /* x200837 */ t27107.s1.tag = STRUCTURE_TYPE24753; t27107.s1.value.structure_type24753 = &t27113; /* x200838 */ t27104.s1.tag = STRUCTURE_TYPE24753; t27104.s1.value.structure_type24753 = &t27107; /* x200839 */ t27103.s1.tag = STRUCTURE_TYPE24753; t27103.s1.value.structure_type24753 = &t27104; /* x200840 */ t27102.s0.tag = STRUCTURE_TYPE24753; t27102.s0.value.structure_type24753 = &t27103; /* x200841 */ t27102.s1.tag = NULL_TYPE; /* x200842 */ t27098.s1.tag = STRUCTURE_TYPE24753; t27098.s1.value.structure_type24753 = &t27102; /* x200843 */ t27097.s1.tag = STRUCTURE_TYPE24753; t27097.s1.value.structure_type24753 = &t27098; /* x200846 */ t27181.s0.tag = EXTERNAL_SYMBOL_TYPE; t27181.s0.value.external_symbol_type = q97; /* x200847 */ t27183.s0.tag = EXTERNAL_SYMBOL_TYPE; t27183.s0.value.external_symbol_type = q488; /* x200848 */ t27184.s0.tag = EXTERNAL_SYMBOL_TYPE; t27184.s0.value.external_symbol_type = q249; /* x200849 */ t27185.s0.tag = EXTERNAL_SYMBOL_TYPE; t27185.s0.value.external_symbol_type = q405; /* x200850 */ t27185.s1.tag = EXTERNAL_SYMBOL_TYPE; t27185.s1.value.external_symbol_type = q404; /* x200851 */ t27184.s1.tag = STRUCTURE_TYPE24753; t27184.s1.value.structure_type24753 = &t27185; /* x200852 */ t27183.s1.tag = STRUCTURE_TYPE24753; t27183.s1.value.structure_type24753 = &t27184; /* x200853 */ t27182.s0.tag = STRUCTURE_TYPE24753; t27182.s0.value.structure_type24753 = &t27183; /* x200854 */ t27187.s0.tag = EXTERNAL_SYMBOL_TYPE; t27187.s0.value.external_symbol_type = q240; /* x200855 */ t27190.s0.tag = EXTERNAL_SYMBOL_TYPE; t27190.s0.value.external_symbol_type = q111; /* x200856 */ t27191.s0.tag = EXTERNAL_SYMBOL_TYPE; t27191.s0.value.external_symbol_type = q404; /* x200857 */ t27191.s1.tag = NULL_TYPE; /* x200858 */ t27190.s1.tag = STRUCTURE_TYPE24753; t27190.s1.value.structure_type24753 = &t27191; /* x200859 */ t27189.s0.tag = STRUCTURE_TYPE24753; t27189.s0.value.structure_type24753 = &t27190; /* x200860 */ t27193.s0.tag = EXTERNAL_SYMBOL_TYPE; t27193.s0.value.external_symbol_type = q242; /* x200861 */ t27194.s0.tag = EXTERNAL_SYMBOL_TYPE; t27194.s0.value.external_symbol_type = q287; /* x200862 */ t27197.s0.tag = EXTERNAL_SYMBOL_TYPE; t27197.s0.value.external_symbol_type = q405; /* x200863 */ t27198.s0.tag = EXTERNAL_SYMBOL_TYPE; t27198.s0.value.external_symbol_type = q405; /* x200864 */ t27198.s1.tag = NULL_TYPE; /* x200865 */ t27197.s1.tag = STRUCTURE_TYPE24753; t27197.s1.value.structure_type24753 = &t27198; /* x200866 */ t27196.s0.tag = STRUCTURE_TYPE24753; t27196.s0.value.structure_type24753 = &t27197; /* x200867 */ t27200.s0.tag = EXTERNAL_SYMBOL_TYPE; t27200.s0.value.external_symbol_type = q261; /* x200868 */ t27202.s0.tag = EXTERNAL_SYMBOL_TYPE; t27202.s0.value.external_symbol_type = q11; /* x200869 */ t27203.s0.tag = NULL_TYPE; /* x200870 */ t27203.s1.tag = NULL_TYPE; /* x200871 */ t27202.s1.tag = STRUCTURE_TYPE24753; t27202.s1.value.structure_type24753 = &t27203; /* x200872 */ t27201.s0.tag = STRUCTURE_TYPE24753; t27201.s0.value.structure_type24753 = &t27202; /* x200873 */ t27201.s1.tag = NULL_TYPE; /* x200874 */ t27200.s1.tag = STRUCTURE_TYPE24753; t27200.s1.value.structure_type24753 = &t27201; /* x200875 */ t27199.s0.tag = STRUCTURE_TYPE24753; t27199.s0.value.structure_type24753 = &t27200; /* x200876 */ t27199.s1.tag = NULL_TYPE; /* x200877 */ t27196.s1.tag = STRUCTURE_TYPE24753; t27196.s1.value.structure_type24753 = &t27199; /* x200878 */ t27195.s0.tag = STRUCTURE_TYPE24753; t27195.s0.value.structure_type24753 = &t27196; /* x200879 */ t27205.s0.tag = EXTERNAL_SYMBOL_TYPE; t27205.s0.value.external_symbol_type = q43; /* x200880 */ t27207.s0.tag = EXTERNAL_SYMBOL_TYPE; t27207.s0.value.external_symbol_type = q111; /* x200881 */ t27208.s0.tag = EXTERNAL_SYMBOL_TYPE; t27208.s0.value.external_symbol_type = q405; /* x200882 */ t27208.s1.tag = NULL_TYPE; /* x200883 */ t27207.s1.tag = STRUCTURE_TYPE24753; t27207.s1.value.structure_type24753 = &t27208; /* x200884 */ t27206.s0.tag = STRUCTURE_TYPE24753; t27206.s0.value.structure_type24753 = &t27207; /* x200885 */ t27210.s0.tag = EXTERNAL_SYMBOL_TYPE; t27210.s0.value.external_symbol_type = q284; /* x200886 */ t27211.s0.tag = EXTERNAL_SYMBOL_TYPE; t27211.s0.value.external_symbol_type = q261; /* x200887 */ t27211.s1.tag = NULL_TYPE; /* x200888 */ t27210.s1.tag = STRUCTURE_TYPE24753; t27210.s1.value.structure_type24753 = &t27211; /* x200889 */ t27209.s0.tag = STRUCTURE_TYPE24753; t27209.s0.value.structure_type24753 = &t27210; /* x200890 */ t27213.s0.tag = EXTERNAL_SYMBOL_TYPE; t27213.s0.value.external_symbol_type = q287; /* x200891 */ t27215.s0.tag = EXTERNAL_SYMBOL_TYPE; t27215.s0.value.external_symbol_type = q108; /* x200892 */ t27216.s0.tag = EXTERNAL_SYMBOL_TYPE; t27216.s0.value.external_symbol_type = q405; /* x200893 */ t27216.s1.tag = NULL_TYPE; /* x200894 */ t27215.s1.tag = STRUCTURE_TYPE24753; t27215.s1.value.structure_type24753 = &t27216; /* x200895 */ t27214.s0.tag = STRUCTURE_TYPE24753; t27214.s0.value.structure_type24753 = &t27215; /* x200896 */ t27218.s0.tag = EXTERNAL_SYMBOL_TYPE; t27218.s0.value.external_symbol_type = q106; /* x200897 */ t27220.s0.tag = EXTERNAL_SYMBOL_TYPE; t27220.s0.value.external_symbol_type = q249; /* x200898 */ t27222.s0.tag = EXTERNAL_SYMBOL_TYPE; t27222.s0.value.external_symbol_type = q107; /* x200899 */ t27223.s0.tag = EXTERNAL_SYMBOL_TYPE; t27223.s0.value.external_symbol_type = q405; /* x200900 */ t27223.s1.tag = NULL_TYPE; /* x200901 */ t27222.s1.tag = STRUCTURE_TYPE24753; t27222.s1.value.structure_type24753 = &t27223; /* x200902 */ t27221.s0.tag = STRUCTURE_TYPE24753; t27221.s0.value.structure_type24753 = &t27222; /* x200903 */ t27221.s1.tag = NULL_TYPE; /* x200904 */ t27220.s1.tag = STRUCTURE_TYPE24753; t27220.s1.value.structure_type24753 = &t27221; /* x200905 */ t27219.s0.tag = STRUCTURE_TYPE24753; t27219.s0.value.structure_type24753 = &t27220; /* x200906 */ t27224.s0.tag = EXTERNAL_SYMBOL_TYPE; t27224.s0.value.external_symbol_type = q261; /* x200907 */ t27224.s1.tag = NULL_TYPE; /* x200908 */ t27219.s1.tag = STRUCTURE_TYPE24753; t27219.s1.value.structure_type24753 = &t27224; /* x200909 */ t27218.s1.tag = STRUCTURE_TYPE24753; t27218.s1.value.structure_type24753 = &t27219; /* x200910 */ t27217.s0.tag = STRUCTURE_TYPE24753; t27217.s0.value.structure_type24753 = &t27218; /* x200911 */ t27217.s1.tag = NULL_TYPE; /* x200912 */ t27214.s1.tag = STRUCTURE_TYPE24753; t27214.s1.value.structure_type24753 = &t27217; /* x200913 */ t27213.s1.tag = STRUCTURE_TYPE24753; t27213.s1.value.structure_type24753 = &t27214; /* x200914 */ t27212.s0.tag = STRUCTURE_TYPE24753; t27212.s0.value.structure_type24753 = &t27213; /* x200915 */ t27212.s1.tag = NULL_TYPE; /* x200916 */ t27209.s1.tag = STRUCTURE_TYPE24753; t27209.s1.value.structure_type24753 = &t27212; /* x200917 */ t27206.s1.tag = STRUCTURE_TYPE24753; t27206.s1.value.structure_type24753 = &t27209; /* x200918 */ t27205.s1.tag = STRUCTURE_TYPE24753; t27205.s1.value.structure_type24753 = &t27206; /* x200919 */ t27204.s0.tag = STRUCTURE_TYPE24753; t27204.s0.value.structure_type24753 = &t27205; /* x200920 */ t27204.s1.tag = NULL_TYPE; /* x200921 */ t27195.s1.tag = STRUCTURE_TYPE24753; t27195.s1.value.structure_type24753 = &t27204; /* x200922 */ t27194.s1.tag = STRUCTURE_TYPE24753; t27194.s1.value.structure_type24753 = &t27195; /* x200923 */ t27193.s1.tag = STRUCTURE_TYPE24753; t27193.s1.value.structure_type24753 = &t27194; /* x200924 */ t27192.s0.tag = STRUCTURE_TYPE24753; t27192.s0.value.structure_type24753 = &t27193; /* x200925 */ t27192.s1.tag = NULL_TYPE; /* x200926 */ t27189.s1.tag = STRUCTURE_TYPE24753; t27189.s1.value.structure_type24753 = &t27192; /* x200927 */ t27188.s0.tag = STRUCTURE_TYPE24753; t27188.s0.value.structure_type24753 = &t27189; /* x200928 */ t27227.s0.tag = EXTERNAL_SYMBOL_TYPE; t27227.s0.value.external_symbol_type = q111; /* x200929 */ t27229.s0.tag = EXTERNAL_SYMBOL_TYPE; t27229.s0.value.external_symbol_type = q108; /* x200930 */ t27230.s0.tag = EXTERNAL_SYMBOL_TYPE; t27230.s0.value.external_symbol_type = q404; /* x200931 */ t27230.s1.tag = NULL_TYPE; /* x200932 */ t27229.s1.tag = STRUCTURE_TYPE24753; t27229.s1.value.structure_type24753 = &t27230; /* x200933 */ t27228.s0.tag = STRUCTURE_TYPE24753; t27228.s0.value.structure_type24753 = &t27229; /* x200934 */ t27228.s1.tag = NULL_TYPE; /* x200935 */ t27227.s1.tag = STRUCTURE_TYPE24753; t27227.s1.value.structure_type24753 = &t27228; /* x200936 */ t27226.s0.tag = STRUCTURE_TYPE24753; t27226.s0.value.structure_type24753 = &t27227; /* x200937 */ t27232.s0.tag = EXTERNAL_SYMBOL_TYPE; t27232.s0.value.external_symbol_type = q242; /* x200938 */ t27233.s0.tag = EXTERNAL_SYMBOL_TYPE; t27233.s0.value.external_symbol_type = q287; /* x200939 */ t27236.s0.tag = EXTERNAL_SYMBOL_TYPE; t27236.s0.value.external_symbol_type = q405; /* x200940 */ t27237.s0.tag = EXTERNAL_SYMBOL_TYPE; t27237.s0.value.external_symbol_type = q405; /* x200941 */ t27237.s1.tag = NULL_TYPE; /* x200942 */ t27236.s1.tag = STRUCTURE_TYPE24753; t27236.s1.value.structure_type24753 = &t27237; /* x200943 */ t27235.s0.tag = STRUCTURE_TYPE24753; t27235.s0.value.structure_type24753 = &t27236; /* x200944 */ t27239.s0.tag = EXTERNAL_SYMBOL_TYPE; t27239.s0.value.external_symbol_type = q406; /* x200945 */ t27241.s0.tag = EXTERNAL_SYMBOL_TYPE; t27241.s0.value.external_symbol_type = q107; /* x200946 */ t27242.s0.tag = EXTERNAL_SYMBOL_TYPE; t27242.s0.value.external_symbol_type = q404; /* x200947 */ t27242.s1.tag = NULL_TYPE; /* x200948 */ t27241.s1.tag = STRUCTURE_TYPE24753; t27241.s1.value.structure_type24753 = &t27242; /* x200949 */ t27240.s0.tag = STRUCTURE_TYPE24753; t27240.s0.value.structure_type24753 = &t27241; /* x200950 */ t27240.s1.tag = NULL_TYPE; /* x200951 */ t27239.s1.tag = STRUCTURE_TYPE24753; t27239.s1.value.structure_type24753 = &t27240; /* x200952 */ t27238.s0.tag = STRUCTURE_TYPE24753; t27238.s0.value.structure_type24753 = &t27239; /* x200953 */ t27244.s0.tag = EXTERNAL_SYMBOL_TYPE; t27244.s0.value.external_symbol_type = q261; /* x200954 */ t27246.s0.tag = EXTERNAL_SYMBOL_TYPE; t27246.s0.value.external_symbol_type = q11; /* x200955 */ t27247.s0.tag = NULL_TYPE; /* x200956 */ t27247.s1.tag = NULL_TYPE; /* x200957 */ t27246.s1.tag = STRUCTURE_TYPE24753; t27246.s1.value.structure_type24753 = &t27247; /* x200958 */ t27245.s0.tag = STRUCTURE_TYPE24753; t27245.s0.value.structure_type24753 = &t27246; /* x200959 */ t27245.s1.tag = NULL_TYPE; /* x200960 */ t27244.s1.tag = STRUCTURE_TYPE24753; t27244.s1.value.structure_type24753 = &t27245; /* x200961 */ t27243.s0.tag = STRUCTURE_TYPE24753; t27243.s0.value.structure_type24753 = &t27244; /* x200962 */ t27243.s1.tag = NULL_TYPE; /* x200963 */ t27238.s1.tag = STRUCTURE_TYPE24753; t27238.s1.value.structure_type24753 = &t27243; /* x200964 */ t27235.s1.tag = STRUCTURE_TYPE24753; t27235.s1.value.structure_type24753 = &t27238; /* x200965 */ t27234.s0.tag = STRUCTURE_TYPE24753; t27234.s0.value.structure_type24753 = &t27235; /* x200966 */ t27249.s0.tag = EXTERNAL_SYMBOL_TYPE; t27249.s0.value.external_symbol_type = q43; /* x200967 */ t27251.s0.tag = EXTERNAL_SYMBOL_TYPE; t27251.s0.value.external_symbol_type = q111; /* x200968 */ t27252.s0.tag = EXTERNAL_SYMBOL_TYPE; t27252.s0.value.external_symbol_type = q405; /* x200969 */ t27252.s1.tag = NULL_TYPE; /* x200970 */ t27251.s1.tag = STRUCTURE_TYPE24753; t27251.s1.value.structure_type24753 = &t27252; /* x200971 */ t27250.s0.tag = STRUCTURE_TYPE24753; t27250.s0.value.structure_type24753 = &t27251; /* x200972 */ t27254.s0.tag = EXTERNAL_SYMBOL_TYPE; t27254.s0.value.external_symbol_type = q284; /* x200973 */ t27255.s0.tag = EXTERNAL_SYMBOL_TYPE; t27255.s0.value.external_symbol_type = q261; /* x200974 */ t27255.s1.tag = NULL_TYPE; /* x200975 */ t27254.s1.tag = STRUCTURE_TYPE24753; t27254.s1.value.structure_type24753 = &t27255; /* x200976 */ t27253.s0.tag = STRUCTURE_TYPE24753; t27253.s0.value.structure_type24753 = &t27254; /* x200977 */ t27257.s0.tag = EXTERNAL_SYMBOL_TYPE; t27257.s0.value.external_symbol_type = q287; /* x200978 */ t27259.s0.tag = EXTERNAL_SYMBOL_TYPE; t27259.s0.value.external_symbol_type = q108; /* x200979 */ t27260.s0.tag = EXTERNAL_SYMBOL_TYPE; t27260.s0.value.external_symbol_type = q405; /* x200980 */ t27260.s1.tag = NULL_TYPE; /* x200981 */ t27259.s1.tag = STRUCTURE_TYPE24753; t27259.s1.value.structure_type24753 = &t27260; /* x200982 */ t27258.s0.tag = STRUCTURE_TYPE24753; t27258.s0.value.structure_type24753 = &t27259; /* x200983 */ t27262.s0.tag = EXTERNAL_SYMBOL_TYPE; t27262.s0.value.external_symbol_type = q108; /* x200984 */ t27263.s0.tag = EXTERNAL_SYMBOL_TYPE; t27263.s0.value.external_symbol_type = q406; /* x200985 */ t27263.s1.tag = NULL_TYPE; /* x200986 */ t27262.s1.tag = STRUCTURE_TYPE24753; t27262.s1.value.structure_type24753 = &t27263; /* x200987 */ t27261.s0.tag = STRUCTURE_TYPE24753; t27261.s0.value.structure_type24753 = &t27262; /* x200988 */ t27265.s0.tag = EXTERNAL_SYMBOL_TYPE; t27265.s0.value.external_symbol_type = q106; /* x200989 */ t27267.s0.tag = EXTERNAL_SYMBOL_TYPE; t27267.s0.value.external_symbol_type = q249; /* x200990 */ t27269.s0.tag = EXTERNAL_SYMBOL_TYPE; t27269.s0.value.external_symbol_type = q107; /* x200991 */ t27270.s0.tag = EXTERNAL_SYMBOL_TYPE; t27270.s0.value.external_symbol_type = q405; /* x200992 */ t27270.s1.tag = NULL_TYPE; /* x200993 */ t27269.s1.tag = STRUCTURE_TYPE24753; t27269.s1.value.structure_type24753 = &t27270; /* x200994 */ t27268.s0.tag = STRUCTURE_TYPE24753; t27268.s0.value.structure_type24753 = &t27269; /* x200995 */ t27272.s0.tag = EXTERNAL_SYMBOL_TYPE; t27272.s0.value.external_symbol_type = q107; /* x200996 */ t27273.s0.tag = EXTERNAL_SYMBOL_TYPE; t27273.s0.value.external_symbol_type = q406; /* x200997 */ t27273.s1.tag = NULL_TYPE; /* x200998 */ t27272.s1.tag = STRUCTURE_TYPE24753; t27272.s1.value.structure_type24753 = &t27273; /* x200999 */ t27271.s0.tag = STRUCTURE_TYPE24753; t27271.s0.value.structure_type24753 = &t27272; /* x201000 */ t27271.s1.tag = NULL_TYPE; /* x201001 */ t27268.s1.tag = STRUCTURE_TYPE24753; t27268.s1.value.structure_type24753 = &t27271; /* x201002 */ t27267.s1.tag = STRUCTURE_TYPE24753; t27267.s1.value.structure_type24753 = &t27268; /* x201003 */ t27266.s0.tag = STRUCTURE_TYPE24753; t27266.s0.value.structure_type24753 = &t27267; /* x201004 */ t27274.s0.tag = EXTERNAL_SYMBOL_TYPE; t27274.s0.value.external_symbol_type = q261; /* x201005 */ t27274.s1.tag = NULL_TYPE; /* x201006 */ t27266.s1.tag = STRUCTURE_TYPE24753; t27266.s1.value.structure_type24753 = &t27274; /* x201007 */ t27265.s1.tag = STRUCTURE_TYPE24753; t27265.s1.value.structure_type24753 = &t27266; /* x201008 */ t27264.s0.tag = STRUCTURE_TYPE24753; t27264.s0.value.structure_type24753 = &t27265; /* x201009 */ t27264.s1.tag = NULL_TYPE; /* x201010 */ t27261.s1.tag = STRUCTURE_TYPE24753; t27261.s1.value.structure_type24753 = &t27264; /* x201011 */ t27258.s1.tag = STRUCTURE_TYPE24753; t27258.s1.value.structure_type24753 = &t27261; /* x201012 */ t27257.s1.tag = STRUCTURE_TYPE24753; t27257.s1.value.structure_type24753 = &t27258; /* x201013 */ t27256.s0.tag = STRUCTURE_TYPE24753; t27256.s0.value.structure_type24753 = &t27257; /* x201014 */ t27256.s1.tag = NULL_TYPE; /* x201015 */ t27253.s1.tag = STRUCTURE_TYPE24753; t27253.s1.value.structure_type24753 = &t27256; /* x201016 */ t27250.s1.tag = STRUCTURE_TYPE24753; t27250.s1.value.structure_type24753 = &t27253; /* x201017 */ t27249.s1.tag = STRUCTURE_TYPE24753; t27249.s1.value.structure_type24753 = &t27250; /* x201018 */ t27248.s0.tag = STRUCTURE_TYPE24753; t27248.s0.value.structure_type24753 = &t27249; /* x201019 */ t27248.s1.tag = NULL_TYPE; /* x201020 */ t27234.s1.tag = STRUCTURE_TYPE24753; t27234.s1.value.structure_type24753 = &t27248; /* x201021 */ t27233.s1.tag = STRUCTURE_TYPE24753; t27233.s1.value.structure_type24753 = &t27234; /* x201022 */ t27232.s1.tag = STRUCTURE_TYPE24753; t27232.s1.value.structure_type24753 = &t27233; /* x201023 */ t27231.s0.tag = STRUCTURE_TYPE24753; t27231.s0.value.structure_type24753 = &t27232; /* x201024 */ t27231.s1.tag = NULL_TYPE; /* x201025 */ t27226.s1.tag = STRUCTURE_TYPE24753; t27226.s1.value.structure_type24753 = &t27231; /* x201026 */ t27225.s0.tag = STRUCTURE_TYPE24753; t27225.s0.value.structure_type24753 = &t27226; /* x201027 */ t27276.s0.tag = EXTERNAL_SYMBOL_TYPE; t27276.s0.value.external_symbol_type = q95; /* x201028 */ t27278.s0.tag = EXTERNAL_SYMBOL_TYPE; t27278.s0.value.external_symbol_type = q242; /* x201029 */ t27279.s0.tag = EXTERNAL_SYMBOL_TYPE; t27279.s0.value.external_symbol_type = q287; /* x201030 */ t27282.s0.tag = EXTERNAL_SYMBOL_TYPE; t27282.s0.value.external_symbol_type = q405; /* x201031 */ t27283.s0.tag = EXTERNAL_SYMBOL_TYPE; t27283.s0.value.external_symbol_type = q405; /* x201032 */ t27283.s1.tag = NULL_TYPE; /* x201033 */ t27282.s1.tag = STRUCTURE_TYPE24753; t27282.s1.value.structure_type24753 = &t27283; /* x201034 */ t27281.s0.tag = STRUCTURE_TYPE24753; t27281.s0.value.structure_type24753 = &t27282; /* x201035 */ t27285.s0.tag = EXTERNAL_SYMBOL_TYPE; t27285.s0.value.external_symbol_type = q404; /* x201036 */ t27286.s0.tag = EXTERNAL_SYMBOL_TYPE; t27286.s0.value.external_symbol_type = q404; /* x201037 */ t27286.s1.tag = NULL_TYPE; /* x201038 */ t27285.s1.tag = STRUCTURE_TYPE24753; t27285.s1.value.structure_type24753 = &t27286; /* x201039 */ t27284.s0.tag = STRUCTURE_TYPE24753; t27284.s0.value.structure_type24753 = &t27285; /* x201040 */ t27288.s0.tag = EXTERNAL_SYMBOL_TYPE; t27288.s0.value.external_symbol_type = q261; /* x201041 */ t27290.s0.tag = EXTERNAL_SYMBOL_TYPE; t27290.s0.value.external_symbol_type = q11; /* x201042 */ t27291.s0.tag = NULL_TYPE; /* x201043 */ t27291.s1.tag = NULL_TYPE; /* x201044 */ t27290.s1.tag = STRUCTURE_TYPE24753; t27290.s1.value.structure_type24753 = &t27291; /* x201045 */ t27289.s0.tag = STRUCTURE_TYPE24753; t27289.s0.value.structure_type24753 = &t27290; /* x201046 */ t27289.s1.tag = NULL_TYPE; /* x201047 */ t27288.s1.tag = STRUCTURE_TYPE24753; t27288.s1.value.structure_type24753 = &t27289; /* x201048 */ t27287.s0.tag = STRUCTURE_TYPE24753; t27287.s0.value.structure_type24753 = &t27288; /* x201049 */ t27287.s1.tag = NULL_TYPE; /* x201050 */ t27284.s1.tag = STRUCTURE_TYPE24753; t27284.s1.value.structure_type24753 = &t27287; /* x201051 */ t27281.s1.tag = STRUCTURE_TYPE24753; t27281.s1.value.structure_type24753 = &t27284; /* x201052 */ t27280.s0.tag = STRUCTURE_TYPE24753; t27280.s0.value.structure_type24753 = &t27281; /* x201053 */ t27293.s0.tag = EXTERNAL_SYMBOL_TYPE; t27293.s0.value.external_symbol_type = q43; /* x201054 */ t27295.s0.tag = EXTERNAL_SYMBOL_TYPE; t27295.s0.value.external_symbol_type = q111; /* x201055 */ t27296.s0.tag = EXTERNAL_SYMBOL_TYPE; t27296.s0.value.external_symbol_type = q405; /* x201056 */ t27296.s1.tag = NULL_TYPE; /* x201057 */ t27295.s1.tag = STRUCTURE_TYPE24753; t27295.s1.value.structure_type24753 = &t27296; /* x201058 */ t27294.s0.tag = STRUCTURE_TYPE24753; t27294.s0.value.structure_type24753 = &t27295; /* x201059 */ t27298.s0.tag = EXTERNAL_SYMBOL_TYPE; t27298.s0.value.external_symbol_type = q284; /* x201060 */ t27299.s0.tag = EXTERNAL_SYMBOL_TYPE; t27299.s0.value.external_symbol_type = q261; /* x201061 */ t27299.s1.tag = NULL_TYPE; /* x201062 */ t27298.s1.tag = STRUCTURE_TYPE24753; t27298.s1.value.structure_type24753 = &t27299; /* x201063 */ t27297.s0.tag = STRUCTURE_TYPE24753; t27297.s0.value.structure_type24753 = &t27298; /* x201064 */ t27301.s0.tag = EXTERNAL_SYMBOL_TYPE; t27301.s0.value.external_symbol_type = q287; /* x201065 */ t27303.s0.tag = EXTERNAL_SYMBOL_TYPE; t27303.s0.value.external_symbol_type = q108; /* x201066 */ t27304.s0.tag = EXTERNAL_SYMBOL_TYPE; t27304.s0.value.external_symbol_type = q405; /* x201067 */ t27304.s1.tag = NULL_TYPE; /* x201068 */ t27303.s1.tag = STRUCTURE_TYPE24753; t27303.s1.value.structure_type24753 = &t27304; /* x201069 */ t27302.s0.tag = STRUCTURE_TYPE24753; t27302.s0.value.structure_type24753 = &t27303; /* x201070 */ t27306.s0.tag = EXTERNAL_SYMBOL_TYPE; t27306.s0.value.external_symbol_type = q242; /* x201071 */ t27307.s0.tag = EXTERNAL_SYMBOL_TYPE; t27307.s0.value.external_symbol_type = q287; /* x201072 */ t27310.s0.tag = EXTERNAL_SYMBOL_TYPE; t27310.s0.value.external_symbol_type = q404; /* x201073 */ t27311.s0.tag = EXTERNAL_SYMBOL_TYPE; t27311.s0.value.external_symbol_type = q404; /* x201074 */ t27311.s1.tag = NULL_TYPE; /* x201075 */ t27310.s1.tag = STRUCTURE_TYPE24753; t27310.s1.value.structure_type24753 = &t27311; /* x201076 */ t27309.s0.tag = STRUCTURE_TYPE24753; t27309.s0.value.structure_type24753 = &t27310; /* x201077 */ t27313.s0.tag = EXTERNAL_SYMBOL_TYPE; t27313.s0.value.external_symbol_type = q261; /* x201078 */ t27315.s0.tag = EXTERNAL_SYMBOL_TYPE; t27315.s0.value.external_symbol_type = q11; /* x201079 */ t27316.s0.tag = NULL_TYPE; /* x201080 */ t27316.s1.tag = NULL_TYPE; /* x201081 */ t27315.s1.tag = STRUCTURE_TYPE24753; t27315.s1.value.structure_type24753 = &t27316; /* x201082 */ t27314.s0.tag = STRUCTURE_TYPE24753; t27314.s0.value.structure_type24753 = &t27315; /* x201083 */ t27314.s1.tag = NULL_TYPE; /* x201084 */ t27313.s1.tag = STRUCTURE_TYPE24753; t27313.s1.value.structure_type24753 = &t27314; /* x201085 */ t27312.s0.tag = STRUCTURE_TYPE24753; t27312.s0.value.structure_type24753 = &t27313; /* x201086 */ t27312.s1.tag = NULL_TYPE; /* x201087 */ t27309.s1.tag = STRUCTURE_TYPE24753; t27309.s1.value.structure_type24753 = &t27312; /* x201088 */ t27308.s0.tag = STRUCTURE_TYPE24753; t27308.s0.value.structure_type24753 = &t27309; /* x201089 */ t27318.s0.tag = EXTERNAL_SYMBOL_TYPE; t27318.s0.value.external_symbol_type = q43; /* x201090 */ t27320.s0.tag = EXTERNAL_SYMBOL_TYPE; t27320.s0.value.external_symbol_type = q111; /* x201091 */ t27321.s0.tag = EXTERNAL_SYMBOL_TYPE; t27321.s0.value.external_symbol_type = q404; /* x201092 */ t27321.s1.tag = NULL_TYPE; /* x201093 */ t27320.s1.tag = STRUCTURE_TYPE24753; t27320.s1.value.structure_type24753 = &t27321; /* x201094 */ t27319.s0.tag = STRUCTURE_TYPE24753; t27319.s0.value.structure_type24753 = &t27320; /* x201095 */ t27323.s0.tag = EXTERNAL_SYMBOL_TYPE; t27323.s0.value.external_symbol_type = q284; /* x201096 */ t27324.s0.tag = EXTERNAL_SYMBOL_TYPE; t27324.s0.value.external_symbol_type = q261; /* x201097 */ t27324.s1.tag = NULL_TYPE; /* x201098 */ t27323.s1.tag = STRUCTURE_TYPE24753; t27323.s1.value.structure_type24753 = &t27324; /* x201099 */ t27322.s0.tag = STRUCTURE_TYPE24753; t27322.s0.value.structure_type24753 = &t27323; /* x201100 */ t27326.s0.tag = EXTERNAL_SYMBOL_TYPE; t27326.s0.value.external_symbol_type = q287; /* x201101 */ t27328.s0.tag = EXTERNAL_SYMBOL_TYPE; t27328.s0.value.external_symbol_type = q108; /* x201102 */ t27329.s0.tag = EXTERNAL_SYMBOL_TYPE; t27329.s0.value.external_symbol_type = q404; /* x201103 */ t27329.s1.tag = NULL_TYPE; /* x201104 */ t27328.s1.tag = STRUCTURE_TYPE24753; t27328.s1.value.structure_type24753 = &t27329; /* x201105 */ t27327.s0.tag = STRUCTURE_TYPE24753; t27327.s0.value.structure_type24753 = &t27328; /* x201106 */ t27331.s0.tag = EXTERNAL_SYMBOL_TYPE; t27331.s0.value.external_symbol_type = q106; /* x201107 */ t27333.s0.tag = EXTERNAL_SYMBOL_TYPE; t27333.s0.value.external_symbol_type = q108; /* x201108 */ t27335.s0.tag = EXTERNAL_SYMBOL_TYPE; t27335.s0.value.external_symbol_type = q107; /* x201109 */ t27336.s0.tag = EXTERNAL_SYMBOL_TYPE; t27336.s0.value.external_symbol_type = q404; /* x201110 */ t27336.s1.tag = NULL_TYPE; /* x201111 */ t27335.s1.tag = STRUCTURE_TYPE24753; t27335.s1.value.structure_type24753 = &t27336; /* x201112 */ t27334.s0.tag = STRUCTURE_TYPE24753; t27334.s0.value.structure_type24753 = &t27335; /* x201113 */ t27334.s1.tag = NULL_TYPE; /* x201114 */ t27333.s1.tag = STRUCTURE_TYPE24753; t27333.s1.value.structure_type24753 = &t27334; /* x201115 */ t27332.s0.tag = STRUCTURE_TYPE24753; t27332.s0.value.structure_type24753 = &t27333; /* x201116 */ t27337.s0.tag = EXTERNAL_SYMBOL_TYPE; t27337.s0.value.external_symbol_type = q261; /* x201117 */ t27337.s1.tag = NULL_TYPE; /* x201118 */ t27332.s1.tag = STRUCTURE_TYPE24753; t27332.s1.value.structure_type24753 = &t27337; /* x201119 */ t27331.s1.tag = STRUCTURE_TYPE24753; t27331.s1.value.structure_type24753 = &t27332; /* x201120 */ t27330.s0.tag = STRUCTURE_TYPE24753; t27330.s0.value.structure_type24753 = &t27331; /* x201121 */ t27330.s1.tag = NULL_TYPE; /* x201122 */ t27327.s1.tag = STRUCTURE_TYPE24753; t27327.s1.value.structure_type24753 = &t27330; /* x201123 */ t27326.s1.tag = STRUCTURE_TYPE24753; t27326.s1.value.structure_type24753 = &t27327; /* x201124 */ t27325.s0.tag = STRUCTURE_TYPE24753; t27325.s0.value.structure_type24753 = &t27326; /* x201125 */ t27325.s1.tag = NULL_TYPE; /* x201126 */ t27322.s1.tag = STRUCTURE_TYPE24753; t27322.s1.value.structure_type24753 = &t27325; /* x201127 */ t27319.s1.tag = STRUCTURE_TYPE24753; t27319.s1.value.structure_type24753 = &t27322; /* x201128 */ t27318.s1.tag = STRUCTURE_TYPE24753; t27318.s1.value.structure_type24753 = &t27319; /* x201129 */ t27317.s0.tag = STRUCTURE_TYPE24753; t27317.s0.value.structure_type24753 = &t27318; /* x201130 */ t27317.s1.tag = NULL_TYPE; /* x201131 */ t27308.s1.tag = STRUCTURE_TYPE24753; t27308.s1.value.structure_type24753 = &t27317; /* x201132 */ t27307.s1.tag = STRUCTURE_TYPE24753; t27307.s1.value.structure_type24753 = &t27308; /* x201133 */ t27306.s1.tag = STRUCTURE_TYPE24753; t27306.s1.value.structure_type24753 = &t27307; /* x201134 */ t27305.s0.tag = STRUCTURE_TYPE24753; t27305.s0.value.structure_type24753 = &t27306; /* x201135 */ t27339.s0.tag = EXTERNAL_SYMBOL_TYPE; t27339.s0.value.external_symbol_type = q106; /* x201136 */ t27341.s0.tag = EXTERNAL_SYMBOL_TYPE; t27341.s0.value.external_symbol_type = q79; /* x201137 */ t27342.s0.tag = EXTERNAL_SYMBOL_TYPE; t27342.s0.value.external_symbol_type = q249; /* x201138 */ t27344.s0.tag = EXTERNAL_SYMBOL_TYPE; t27344.s0.value.external_symbol_type = q107; /* x201139 */ t27345.s0.tag = EXTERNAL_SYMBOL_TYPE; t27345.s0.value.external_symbol_type = q405; /* x201140 */ t27345.s1.tag = NULL_TYPE; /* x201141 */ t27344.s1.tag = STRUCTURE_TYPE24753; t27344.s1.value.structure_type24753 = &t27345; /* x201142 */ t27343.s0.tag = STRUCTURE_TYPE24753; t27343.s0.value.structure_type24753 = &t27344; /* x201143 */ t27347.s0.tag = EXTERNAL_SYMBOL_TYPE; t27347.s0.value.external_symbol_type = q242; /* x201144 */ t27348.s0.tag = EXTERNAL_SYMBOL_TYPE; t27348.s0.value.external_symbol_type = q287; /* x201145 */ t27351.s0.tag = EXTERNAL_SYMBOL_TYPE; t27351.s0.value.external_symbol_type = q404; /* x201146 */ t27352.s0.tag = EXTERNAL_SYMBOL_TYPE; t27352.s0.value.external_symbol_type = q404; /* x201147 */ t27352.s1.tag = NULL_TYPE; /* x201148 */ t27351.s1.tag = STRUCTURE_TYPE24753; t27351.s1.value.structure_type24753 = &t27352; /* x201149 */ t27350.s0.tag = STRUCTURE_TYPE24753; t27350.s0.value.structure_type24753 = &t27351; /* x201150 */ t27354.s0.tag = EXTERNAL_SYMBOL_TYPE; t27354.s0.value.external_symbol_type = q261; /* x201151 */ t27356.s0.tag = EXTERNAL_SYMBOL_TYPE; t27356.s0.value.external_symbol_type = q11; /* x201152 */ t27357.s0.tag = NULL_TYPE; /* x201153 */ t27357.s1.tag = NULL_TYPE; /* x201154 */ t27356.s1.tag = STRUCTURE_TYPE24753; t27356.s1.value.structure_type24753 = &t27357; /* x201155 */ t27355.s0.tag = STRUCTURE_TYPE24753; t27355.s0.value.structure_type24753 = &t27356; /* x201156 */ t27355.s1.tag = NULL_TYPE; /* x201157 */ t27354.s1.tag = STRUCTURE_TYPE24753; t27354.s1.value.structure_type24753 = &t27355; /* x201158 */ t27353.s0.tag = STRUCTURE_TYPE24753; t27353.s0.value.structure_type24753 = &t27354; /* x201159 */ t27353.s1.tag = NULL_TYPE; /* x201160 */ t27350.s1.tag = STRUCTURE_TYPE24753; t27350.s1.value.structure_type24753 = &t27353; /* x201161 */ t27349.s0.tag = STRUCTURE_TYPE24753; t27349.s0.value.structure_type24753 = &t27350; /* x201162 */ t27359.s0.tag = EXTERNAL_SYMBOL_TYPE; t27359.s0.value.external_symbol_type = q43; /* x201163 */ t27361.s0.tag = EXTERNAL_SYMBOL_TYPE; t27361.s0.value.external_symbol_type = q111; /* x201164 */ t27362.s0.tag = EXTERNAL_SYMBOL_TYPE; t27362.s0.value.external_symbol_type = q404; /* x201165 */ t27362.s1.tag = NULL_TYPE; /* x201166 */ t27361.s1.tag = STRUCTURE_TYPE24753; t27361.s1.value.structure_type24753 = &t27362; /* x201167 */ t27360.s0.tag = STRUCTURE_TYPE24753; t27360.s0.value.structure_type24753 = &t27361; /* x201168 */ t27364.s0.tag = EXTERNAL_SYMBOL_TYPE; t27364.s0.value.external_symbol_type = q284; /* x201169 */ t27365.s0.tag = EXTERNAL_SYMBOL_TYPE; t27365.s0.value.external_symbol_type = q261; /* x201170 */ t27365.s1.tag = NULL_TYPE; /* x201171 */ t27364.s1.tag = STRUCTURE_TYPE24753; t27364.s1.value.structure_type24753 = &t27365; /* x201172 */ t27363.s0.tag = STRUCTURE_TYPE24753; t27363.s0.value.structure_type24753 = &t27364; /* x201173 */ t27367.s0.tag = EXTERNAL_SYMBOL_TYPE; t27367.s0.value.external_symbol_type = q287; /* x201174 */ t27369.s0.tag = EXTERNAL_SYMBOL_TYPE; t27369.s0.value.external_symbol_type = q108; /* x201175 */ t27370.s0.tag = EXTERNAL_SYMBOL_TYPE; t27370.s0.value.external_symbol_type = q404; /* x201176 */ t27370.s1.tag = NULL_TYPE; /* x201177 */ t27369.s1.tag = STRUCTURE_TYPE24753; t27369.s1.value.structure_type24753 = &t27370; /* x201178 */ t27368.s0.tag = STRUCTURE_TYPE24753; t27368.s0.value.structure_type24753 = &t27369; /* x201179 */ t27372.s0.tag = EXTERNAL_SYMBOL_TYPE; t27372.s0.value.external_symbol_type = q106; /* x201180 */ t27374.s0.tag = EXTERNAL_SYMBOL_TYPE; t27374.s0.value.external_symbol_type = q107; /* x201181 */ t27376.s0.tag = EXTERNAL_SYMBOL_TYPE; t27376.s0.value.external_symbol_type = q107; /* x201182 */ t27377.s0.tag = EXTERNAL_SYMBOL_TYPE; t27377.s0.value.external_symbol_type = q404; /* x201183 */ t27377.s1.tag = NULL_TYPE; /* x201184 */ t27376.s1.tag = STRUCTURE_TYPE24753; t27376.s1.value.structure_type24753 = &t27377; /* x201185 */ t27375.s0.tag = STRUCTURE_TYPE24753; t27375.s0.value.structure_type24753 = &t27376; /* x201186 */ t27375.s1.tag = NULL_TYPE; /* x201187 */ t27374.s1.tag = STRUCTURE_TYPE24753; t27374.s1.value.structure_type24753 = &t27375; /* x201188 */ t27373.s0.tag = STRUCTURE_TYPE24753; t27373.s0.value.structure_type24753 = &t27374; /* x201189 */ t27378.s0.tag = EXTERNAL_SYMBOL_TYPE; t27378.s0.value.external_symbol_type = q261; /* x201190 */ t27378.s1.tag = NULL_TYPE; /* x201191 */ t27373.s1.tag = STRUCTURE_TYPE24753; t27373.s1.value.structure_type24753 = &t27378; /* x201192 */ t27372.s1.tag = STRUCTURE_TYPE24753; t27372.s1.value.structure_type24753 = &t27373; /* x201193 */ t27371.s0.tag = STRUCTURE_TYPE24753; t27371.s0.value.structure_type24753 = &t27372; /* x201194 */ t27371.s1.tag = NULL_TYPE; /* x201195 */ t27368.s1.tag = STRUCTURE_TYPE24753; t27368.s1.value.structure_type24753 = &t27371; /* x201196 */ t27367.s1.tag = STRUCTURE_TYPE24753; t27367.s1.value.structure_type24753 = &t27368; /* x201197 */ t27366.s0.tag = STRUCTURE_TYPE24753; t27366.s0.value.structure_type24753 = &t27367; /* x201198 */ t27366.s1.tag = NULL_TYPE; /* x201199 */ t27363.s1.tag = STRUCTURE_TYPE24753; t27363.s1.value.structure_type24753 = &t27366; /* x201200 */ t27360.s1.tag = STRUCTURE_TYPE24753; t27360.s1.value.structure_type24753 = &t27363; /* x201201 */ t27359.s1.tag = STRUCTURE_TYPE24753; t27359.s1.value.structure_type24753 = &t27360; /* x201202 */ t27358.s0.tag = STRUCTURE_TYPE24753; t27358.s0.value.structure_type24753 = &t27359; /* x201203 */ t27358.s1.tag = NULL_TYPE; /* x201204 */ t27349.s1.tag = STRUCTURE_TYPE24753; t27349.s1.value.structure_type24753 = &t27358; /* x201205 */ t27348.s1.tag = STRUCTURE_TYPE24753; t27348.s1.value.structure_type24753 = &t27349; /* x201206 */ t27347.s1.tag = STRUCTURE_TYPE24753; t27347.s1.value.structure_type24753 = &t27348; /* x201207 */ t27346.s0.tag = STRUCTURE_TYPE24753; t27346.s0.value.structure_type24753 = &t27347; /* x201208 */ t27346.s1.tag = NULL_TYPE; /* x201209 */ t27343.s1.tag = STRUCTURE_TYPE24753; t27343.s1.value.structure_type24753 = &t27346; /* x201210 */ t27342.s1.tag = STRUCTURE_TYPE24753; t27342.s1.value.structure_type24753 = &t27343; /* x201211 */ t27341.s1.tag = STRUCTURE_TYPE24753; t27341.s1.value.structure_type24753 = &t27342; /* x201212 */ t27340.s0.tag = STRUCTURE_TYPE24753; t27340.s0.value.structure_type24753 = &t27341; /* x201213 */ t27379.s0.tag = EXTERNAL_SYMBOL_TYPE; t27379.s0.value.external_symbol_type = q261; /* x201214 */ t27379.s1.tag = NULL_TYPE; /* x201215 */ t27340.s1.tag = STRUCTURE_TYPE24753; t27340.s1.value.structure_type24753 = &t27379; /* x201216 */ t27339.s1.tag = STRUCTURE_TYPE24753; t27339.s1.value.structure_type24753 = &t27340; /* x201217 */ t27338.s0.tag = STRUCTURE_TYPE24753; t27338.s0.value.structure_type24753 = &t27339; /* x201218 */ t27338.s1.tag = NULL_TYPE; /* x201219 */ t27305.s1.tag = STRUCTURE_TYPE24753; t27305.s1.value.structure_type24753 = &t27338; /* x201220 */ t27302.s1.tag = STRUCTURE_TYPE24753; t27302.s1.value.structure_type24753 = &t27305; /* x201221 */ t27301.s1.tag = STRUCTURE_TYPE24753; t27301.s1.value.structure_type24753 = &t27302; /* x201222 */ t27300.s0.tag = STRUCTURE_TYPE24753; t27300.s0.value.structure_type24753 = &t27301; /* x201223 */ t27300.s1.tag = NULL_TYPE; /* x201224 */ t27297.s1.tag = STRUCTURE_TYPE24753; t27297.s1.value.structure_type24753 = &t27300; /* x201225 */ t27294.s1.tag = STRUCTURE_TYPE24753; t27294.s1.value.structure_type24753 = &t27297; /* x201226 */ t27293.s1.tag = STRUCTURE_TYPE24753; t27293.s1.value.structure_type24753 = &t27294; /* x201227 */ t27292.s0.tag = STRUCTURE_TYPE24753; t27292.s0.value.structure_type24753 = &t27293; /* x201228 */ t27292.s1.tag = NULL_TYPE; /* x201229 */ t27280.s1.tag = STRUCTURE_TYPE24753; t27280.s1.value.structure_type24753 = &t27292; /* x201230 */ t27279.s1.tag = STRUCTURE_TYPE24753; t27279.s1.value.structure_type24753 = &t27280; /* x201231 */ t27278.s1.tag = STRUCTURE_TYPE24753; t27278.s1.value.structure_type24753 = &t27279; /* x201232 */ t27277.s0.tag = STRUCTURE_TYPE24753; t27277.s0.value.structure_type24753 = &t27278; /* x201233 */ t27277.s1.tag = NULL_TYPE; /* x201234 */ t27276.s1.tag = STRUCTURE_TYPE24753; t27276.s1.value.structure_type24753 = &t27277; /* x201235 */ t27275.s0.tag = STRUCTURE_TYPE24753; t27275.s0.value.structure_type24753 = &t27276; /* x201236 */ t27275.s1.tag = NULL_TYPE; /* x201237 */ t27225.s1.tag = STRUCTURE_TYPE24753; t27225.s1.value.structure_type24753 = &t27275; /* x201238 */ t27188.s1.tag = STRUCTURE_TYPE24753; t27188.s1.value.structure_type24753 = &t27225; /* x201239 */ t27187.s1.tag = STRUCTURE_TYPE24753; t27187.s1.value.structure_type24753 = &t27188; /* x201240 */ t27186.s0.tag = STRUCTURE_TYPE24753; t27186.s0.value.structure_type24753 = &t27187; /* x201241 */ t27186.s1.tag = NULL_TYPE; /* x201242 */ t27182.s1.tag = STRUCTURE_TYPE24753; t27182.s1.value.structure_type24753 = &t27186; /* x201243 */ t27181.s1.tag = STRUCTURE_TYPE24753; t27181.s1.value.structure_type24753 = &t27182; /* x201246 */ t27384.s0.tag = EXTERNAL_SYMBOL_TYPE; t27384.s0.value.external_symbol_type = q97; /* x201247 */ t27386.s0.tag = EXTERNAL_SYMBOL_TYPE; t27386.s0.value.external_symbol_type = q489; /* x201248 */ t27387.s0.tag = EXTERNAL_SYMBOL_TYPE; t27387.s0.value.external_symbol_type = q249; /* x201249 */ t27388.s0.tag = EXTERNAL_SYMBOL_TYPE; t27388.s0.value.external_symbol_type = q405; /* x201250 */ t27388.s1.tag = EXTERNAL_SYMBOL_TYPE; t27388.s1.value.external_symbol_type = q404; /* x201251 */ t27387.s1.tag = STRUCTURE_TYPE24753; t27387.s1.value.structure_type24753 = &t27388; /* x201252 */ t27386.s1.tag = STRUCTURE_TYPE24753; t27386.s1.value.structure_type24753 = &t27387; /* x201253 */ t27385.s0.tag = STRUCTURE_TYPE24753; t27385.s0.value.structure_type24753 = &t27386; /* x201254 */ t27390.s0.tag = EXTERNAL_SYMBOL_TYPE; t27390.s0.value.external_symbol_type = q240; /* x201255 */ t27393.s0.tag = EXTERNAL_SYMBOL_TYPE; t27393.s0.value.external_symbol_type = q111; /* x201256 */ t27394.s0.tag = EXTERNAL_SYMBOL_TYPE; t27394.s0.value.external_symbol_type = q404; /* x201257 */ t27394.s1.tag = NULL_TYPE; /* x201258 */ t27393.s1.tag = STRUCTURE_TYPE24753; t27393.s1.value.structure_type24753 = &t27394; /* x201259 */ t27392.s0.tag = STRUCTURE_TYPE24753; t27392.s0.value.structure_type24753 = &t27393; /* x201260 */ t27396.s0.tag = EXTERNAL_SYMBOL_TYPE; t27396.s0.value.external_symbol_type = q242; /* x201261 */ t27397.s0.tag = EXTERNAL_SYMBOL_TYPE; t27397.s0.value.external_symbol_type = q287; /* x201262 */ t27400.s0.tag = EXTERNAL_SYMBOL_TYPE; t27400.s0.value.external_symbol_type = q405; /* x201263 */ t27401.s0.tag = EXTERNAL_SYMBOL_TYPE; t27401.s0.value.external_symbol_type = q405; /* x201264 */ t27401.s1.tag = NULL_TYPE; /* x201265 */ t27400.s1.tag = STRUCTURE_TYPE24753; t27400.s1.value.structure_type24753 = &t27401; /* x201266 */ t27399.s0.tag = STRUCTURE_TYPE24753; t27399.s0.value.structure_type24753 = &t27400; /* x201267 */ t27399.s1.tag = NULL_TYPE; /* x201268 */ t27398.s0.tag = STRUCTURE_TYPE24753; t27398.s0.value.structure_type24753 = &t27399; /* x201269 */ t27403.s0.tag = EXTERNAL_SYMBOL_TYPE; t27403.s0.value.external_symbol_type = q43; /* x201270 */ t27405.s0.tag = EXTERNAL_SYMBOL_TYPE; t27405.s0.value.external_symbol_type = q102; /* x201271 */ t27407.s0.tag = EXTERNAL_SYMBOL_TYPE; t27407.s0.value.external_symbol_type = q111; /* x201272 */ t27408.s0.tag = EXTERNAL_SYMBOL_TYPE; t27408.s0.value.external_symbol_type = q405; /* x201273 */ t27408.s1.tag = NULL_TYPE; /* x201274 */ t27407.s1.tag = STRUCTURE_TYPE24753; t27407.s1.value.structure_type24753 = &t27408; /* x201275 */ t27406.s0.tag = STRUCTURE_TYPE24753; t27406.s0.value.structure_type24753 = &t27407; /* x201276 */ t27406.s1.tag = NULL_TYPE; /* x201277 */ t27405.s1.tag = STRUCTURE_TYPE24753; t27405.s1.value.structure_type24753 = &t27406; /* x201278 */ t27404.s0.tag = STRUCTURE_TYPE24753; t27404.s0.value.structure_type24753 = &t27405; /* x201279 */ t27410.s0.tag = EXTERNAL_SYMBOL_TYPE; t27410.s0.value.external_symbol_type = q239; /* x201280 */ t27412.s0.tag = EXTERNAL_SYMBOL_TYPE; t27412.s0.value.external_symbol_type = q249; /* x201281 */ t27414.s0.tag = EXTERNAL_SYMBOL_TYPE; t27414.s0.value.external_symbol_type = q107; /* x201282 */ t27415.s0.tag = EXTERNAL_SYMBOL_TYPE; t27415.s0.value.external_symbol_type = q405; /* x201283 */ t27415.s1.tag = NULL_TYPE; /* x201284 */ t27414.s1.tag = STRUCTURE_TYPE24753; t27414.s1.value.structure_type24753 = &t27415; /* x201285 */ t27413.s0.tag = STRUCTURE_TYPE24753; t27413.s0.value.structure_type24753 = &t27414; /* x201286 */ t27413.s1.tag = NULL_TYPE; /* x201287 */ t27412.s1.tag = STRUCTURE_TYPE24753; t27412.s1.value.structure_type24753 = &t27413; /* x201288 */ t27411.s0.tag = STRUCTURE_TYPE24753; t27411.s0.value.structure_type24753 = &t27412; /* x201289 */ t27417.s0.tag = EXTERNAL_SYMBOL_TYPE; t27417.s0.value.external_symbol_type = q287; /* x201290 */ t27419.s0.tag = EXTERNAL_SYMBOL_TYPE; t27419.s0.value.external_symbol_type = q108; /* x201291 */ t27420.s0.tag = EXTERNAL_SYMBOL_TYPE; t27420.s0.value.external_symbol_type = q405; /* x201292 */ t27420.s1.tag = NULL_TYPE; /* x201293 */ t27419.s1.tag = STRUCTURE_TYPE24753; t27419.s1.value.structure_type24753 = &t27420; /* x201294 */ t27418.s0.tag = STRUCTURE_TYPE24753; t27418.s0.value.structure_type24753 = &t27419; /* x201295 */ t27418.s1.tag = NULL_TYPE; /* x201296 */ t27417.s1.tag = STRUCTURE_TYPE24753; t27417.s1.value.structure_type24753 = &t27418; /* x201297 */ t27416.s0.tag = STRUCTURE_TYPE24753; t27416.s0.value.structure_type24753 = &t27417; /* x201298 */ t27416.s1.tag = NULL_TYPE; /* x201299 */ t27411.s1.tag = STRUCTURE_TYPE24753; t27411.s1.value.structure_type24753 = &t27416; /* x201300 */ t27410.s1.tag = STRUCTURE_TYPE24753; t27410.s1.value.structure_type24753 = &t27411; /* x201301 */ t27409.s0.tag = STRUCTURE_TYPE24753; t27409.s0.value.structure_type24753 = &t27410; /* x201302 */ t27409.s1.tag = NULL_TYPE; /* x201303 */ t27404.s1.tag = STRUCTURE_TYPE24753; t27404.s1.value.structure_type24753 = &t27409; /* x201304 */ t27403.s1.tag = STRUCTURE_TYPE24753; t27403.s1.value.structure_type24753 = &t27404; /* x201305 */ t27402.s0.tag = STRUCTURE_TYPE24753; t27402.s0.value.structure_type24753 = &t27403; /* x201306 */ t27402.s1.tag = NULL_TYPE; /* x201307 */ t27398.s1.tag = STRUCTURE_TYPE24753; t27398.s1.value.structure_type24753 = &t27402; /* x201308 */ t27397.s1.tag = STRUCTURE_TYPE24753; t27397.s1.value.structure_type24753 = &t27398; /* x201309 */ t27396.s1.tag = STRUCTURE_TYPE24753; t27396.s1.value.structure_type24753 = &t27397; /* x201310 */ t27395.s0.tag = STRUCTURE_TYPE24753; t27395.s0.value.structure_type24753 = &t27396; /* x201311 */ t27395.s1.tag = NULL_TYPE; /* x201312 */ t27392.s1.tag = STRUCTURE_TYPE24753; t27392.s1.value.structure_type24753 = &t27395; /* x201313 */ t27391.s0.tag = STRUCTURE_TYPE24753; t27391.s0.value.structure_type24753 = &t27392; /* x201314 */ t27423.s0.tag = EXTERNAL_SYMBOL_TYPE; t27423.s0.value.external_symbol_type = q111; /* x201315 */ t27425.s0.tag = EXTERNAL_SYMBOL_TYPE; t27425.s0.value.external_symbol_type = q108; /* x201316 */ t27426.s0.tag = EXTERNAL_SYMBOL_TYPE; t27426.s0.value.external_symbol_type = q404; /* x201317 */ t27426.s1.tag = NULL_TYPE; /* x201318 */ t27425.s1.tag = STRUCTURE_TYPE24753; t27425.s1.value.structure_type24753 = &t27426; /* x201319 */ t27424.s0.tag = STRUCTURE_TYPE24753; t27424.s0.value.structure_type24753 = &t27425; /* x201320 */ t27424.s1.tag = NULL_TYPE; /* x201321 */ t27423.s1.tag = STRUCTURE_TYPE24753; t27423.s1.value.structure_type24753 = &t27424; /* x201322 */ t27422.s0.tag = STRUCTURE_TYPE24753; t27422.s0.value.structure_type24753 = &t27423; /* x201323 */ t27428.s0.tag = EXTERNAL_SYMBOL_TYPE; t27428.s0.value.external_symbol_type = q242; /* x201324 */ t27429.s0.tag = EXTERNAL_SYMBOL_TYPE; t27429.s0.value.external_symbol_type = q287; /* x201325 */ t27432.s0.tag = EXTERNAL_SYMBOL_TYPE; t27432.s0.value.external_symbol_type = q405; /* x201326 */ t27433.s0.tag = EXTERNAL_SYMBOL_TYPE; t27433.s0.value.external_symbol_type = q405; /* x201327 */ t27433.s1.tag = NULL_TYPE; /* x201328 */ t27432.s1.tag = STRUCTURE_TYPE24753; t27432.s1.value.structure_type24753 = &t27433; /* x201329 */ t27431.s0.tag = STRUCTURE_TYPE24753; t27431.s0.value.structure_type24753 = &t27432; /* x201330 */ t27435.s0.tag = EXTERNAL_SYMBOL_TYPE; t27435.s0.value.external_symbol_type = q406; /* x201331 */ t27437.s0.tag = EXTERNAL_SYMBOL_TYPE; t27437.s0.value.external_symbol_type = q107; /* x201332 */ t27438.s0.tag = EXTERNAL_SYMBOL_TYPE; t27438.s0.value.external_symbol_type = q404; /* x201333 */ t27438.s1.tag = NULL_TYPE; /* x201334 */ t27437.s1.tag = STRUCTURE_TYPE24753; t27437.s1.value.structure_type24753 = &t27438; /* x201335 */ t27436.s0.tag = STRUCTURE_TYPE24753; t27436.s0.value.structure_type24753 = &t27437; /* x201336 */ t27436.s1.tag = NULL_TYPE; /* x201337 */ t27435.s1.tag = STRUCTURE_TYPE24753; t27435.s1.value.structure_type24753 = &t27436; /* x201338 */ t27434.s0.tag = STRUCTURE_TYPE24753; t27434.s0.value.structure_type24753 = &t27435; /* x201339 */ t27434.s1.tag = NULL_TYPE; /* x201340 */ t27431.s1.tag = STRUCTURE_TYPE24753; t27431.s1.value.structure_type24753 = &t27434; /* x201341 */ t27430.s0.tag = STRUCTURE_TYPE24753; t27430.s0.value.structure_type24753 = &t27431; /* x201342 */ t27440.s0.tag = EXTERNAL_SYMBOL_TYPE; t27440.s0.value.external_symbol_type = q43; /* x201343 */ t27442.s0.tag = EXTERNAL_SYMBOL_TYPE; t27442.s0.value.external_symbol_type = q102; /* x201344 */ t27444.s0.tag = EXTERNAL_SYMBOL_TYPE; t27444.s0.value.external_symbol_type = q111; /* x201345 */ t27445.s0.tag = EXTERNAL_SYMBOL_TYPE; t27445.s0.value.external_symbol_type = q405; /* x201346 */ t27445.s1.tag = NULL_TYPE; /* x201347 */ t27444.s1.tag = STRUCTURE_TYPE24753; t27444.s1.value.structure_type24753 = &t27445; /* x201348 */ t27443.s0.tag = STRUCTURE_TYPE24753; t27443.s0.value.structure_type24753 = &t27444; /* x201349 */ t27443.s1.tag = NULL_TYPE; /* x201350 */ t27442.s1.tag = STRUCTURE_TYPE24753; t27442.s1.value.structure_type24753 = &t27443; /* x201351 */ t27441.s0.tag = STRUCTURE_TYPE24753; t27441.s0.value.structure_type24753 = &t27442; /* x201352 */ t27447.s0.tag = EXTERNAL_SYMBOL_TYPE; t27447.s0.value.external_symbol_type = q239; /* x201353 */ t27449.s0.tag = EXTERNAL_SYMBOL_TYPE; t27449.s0.value.external_symbol_type = q249; /* x201354 */ t27451.s0.tag = EXTERNAL_SYMBOL_TYPE; t27451.s0.value.external_symbol_type = q107; /* x201355 */ t27452.s0.tag = EXTERNAL_SYMBOL_TYPE; t27452.s0.value.external_symbol_type = q405; /* x201356 */ t27452.s1.tag = NULL_TYPE; /* x201357 */ t27451.s1.tag = STRUCTURE_TYPE24753; t27451.s1.value.structure_type24753 = &t27452; /* x201358 */ t27450.s0.tag = STRUCTURE_TYPE24753; t27450.s0.value.structure_type24753 = &t27451; /* x201359 */ t27454.s0.tag = EXTERNAL_SYMBOL_TYPE; t27454.s0.value.external_symbol_type = q107; /* x201360 */ t27455.s0.tag = EXTERNAL_SYMBOL_TYPE; t27455.s0.value.external_symbol_type = q406; /* x201361 */ t27455.s1.tag = NULL_TYPE; /* x201362 */ t27454.s1.tag = STRUCTURE_TYPE24753; t27454.s1.value.structure_type24753 = &t27455; /* x201363 */ t27453.s0.tag = STRUCTURE_TYPE24753; t27453.s0.value.structure_type24753 = &t27454; /* x201364 */ t27453.s1.tag = NULL_TYPE; /* x201365 */ t27450.s1.tag = STRUCTURE_TYPE24753; t27450.s1.value.structure_type24753 = &t27453; /* x201366 */ t27449.s1.tag = STRUCTURE_TYPE24753; t27449.s1.value.structure_type24753 = &t27450; /* x201367 */ t27448.s0.tag = STRUCTURE_TYPE24753; t27448.s0.value.structure_type24753 = &t27449; /* x201368 */ t27457.s0.tag = EXTERNAL_SYMBOL_TYPE; t27457.s0.value.external_symbol_type = q287; /* x201369 */ t27459.s0.tag = EXTERNAL_SYMBOL_TYPE; t27459.s0.value.external_symbol_type = q108; /* x201370 */ t27460.s0.tag = EXTERNAL_SYMBOL_TYPE; t27460.s0.value.external_symbol_type = q405; /* x201371 */ t27460.s1.tag = NULL_TYPE; /* x201372 */ t27459.s1.tag = STRUCTURE_TYPE24753; t27459.s1.value.structure_type24753 = &t27460; /* x201373 */ t27458.s0.tag = STRUCTURE_TYPE24753; t27458.s0.value.structure_type24753 = &t27459; /* x201374 */ t27462.s0.tag = EXTERNAL_SYMBOL_TYPE; t27462.s0.value.external_symbol_type = q108; /* x201375 */ t27463.s0.tag = EXTERNAL_SYMBOL_TYPE; t27463.s0.value.external_symbol_type = q406; /* x201376 */ t27463.s1.tag = NULL_TYPE; /* x201377 */ t27462.s1.tag = STRUCTURE_TYPE24753; t27462.s1.value.structure_type24753 = &t27463; /* x201378 */ t27461.s0.tag = STRUCTURE_TYPE24753; t27461.s0.value.structure_type24753 = &t27462; /* x201379 */ t27461.s1.tag = NULL_TYPE; /* x201380 */ t27458.s1.tag = STRUCTURE_TYPE24753; t27458.s1.value.structure_type24753 = &t27461; /* x201381 */ t27457.s1.tag = STRUCTURE_TYPE24753; t27457.s1.value.structure_type24753 = &t27458; /* x201382 */ t27456.s0.tag = STRUCTURE_TYPE24753; t27456.s0.value.structure_type24753 = &t27457; /* x201383 */ t27456.s1.tag = NULL_TYPE; /* x201384 */ t27448.s1.tag = STRUCTURE_TYPE24753; t27448.s1.value.structure_type24753 = &t27456; /* x201385 */ t27447.s1.tag = STRUCTURE_TYPE24753; t27447.s1.value.structure_type24753 = &t27448; /* x201386 */ t27446.s0.tag = STRUCTURE_TYPE24753; t27446.s0.value.structure_type24753 = &t27447; /* x201387 */ t27446.s1.tag = NULL_TYPE; /* x201388 */ t27441.s1.tag = STRUCTURE_TYPE24753; t27441.s1.value.structure_type24753 = &t27446; /* x201389 */ t27440.s1.tag = STRUCTURE_TYPE24753; t27440.s1.value.structure_type24753 = &t27441; /* x201390 */ t27439.s0.tag = STRUCTURE_TYPE24753; t27439.s0.value.structure_type24753 = &t27440; /* x201391 */ t27439.s1.tag = NULL_TYPE; /* x201392 */ t27430.s1.tag = STRUCTURE_TYPE24753; t27430.s1.value.structure_type24753 = &t27439; /* x201393 */ t27429.s1.tag = STRUCTURE_TYPE24753; t27429.s1.value.structure_type24753 = &t27430; /* x201394 */ t27428.s1.tag = STRUCTURE_TYPE24753; t27428.s1.value.structure_type24753 = &t27429; /* x201395 */ t27427.s0.tag = STRUCTURE_TYPE24753; t27427.s0.value.structure_type24753 = &t27428; /* x201396 */ t27427.s1.tag = NULL_TYPE; /* x201397 */ t27422.s1.tag = STRUCTURE_TYPE24753; t27422.s1.value.structure_type24753 = &t27427; /* x201398 */ t27421.s0.tag = STRUCTURE_TYPE24753; t27421.s0.value.structure_type24753 = &t27422; /* x201399 */ t27465.s0.tag = EXTERNAL_SYMBOL_TYPE; t27465.s0.value.external_symbol_type = q95; /* x201400 */ t27467.s0.tag = EXTERNAL_SYMBOL_TYPE; t27467.s0.value.external_symbol_type = q242; /* x201401 */ t27468.s0.tag = EXTERNAL_SYMBOL_TYPE; t27468.s0.value.external_symbol_type = q287; /* x201402 */ t27471.s0.tag = EXTERNAL_SYMBOL_TYPE; t27471.s0.value.external_symbol_type = q405; /* x201403 */ t27472.s0.tag = EXTERNAL_SYMBOL_TYPE; t27472.s0.value.external_symbol_type = q405; /* x201404 */ t27472.s1.tag = NULL_TYPE; /* x201405 */ t27471.s1.tag = STRUCTURE_TYPE24753; t27471.s1.value.structure_type24753 = &t27472; /* x201406 */ t27470.s0.tag = STRUCTURE_TYPE24753; t27470.s0.value.structure_type24753 = &t27471; /* x201407 */ t27474.s0.tag = EXTERNAL_SYMBOL_TYPE; t27474.s0.value.external_symbol_type = q404; /* x201408 */ t27475.s0.tag = EXTERNAL_SYMBOL_TYPE; t27475.s0.value.external_symbol_type = q404; /* x201409 */ t27475.s1.tag = NULL_TYPE; /* x201410 */ t27474.s1.tag = STRUCTURE_TYPE24753; t27474.s1.value.structure_type24753 = &t27475; /* x201411 */ t27473.s0.tag = STRUCTURE_TYPE24753; t27473.s0.value.structure_type24753 = &t27474; /* x201412 */ t27473.s1.tag = NULL_TYPE; /* x201413 */ t27470.s1.tag = STRUCTURE_TYPE24753; t27470.s1.value.structure_type24753 = &t27473; /* x201414 */ t27469.s0.tag = STRUCTURE_TYPE24753; t27469.s0.value.structure_type24753 = &t27470; /* x201415 */ t27477.s0.tag = EXTERNAL_SYMBOL_TYPE; t27477.s0.value.external_symbol_type = q43; /* x201416 */ t27479.s0.tag = EXTERNAL_SYMBOL_TYPE; t27479.s0.value.external_symbol_type = q102; /* x201417 */ t27481.s0.tag = EXTERNAL_SYMBOL_TYPE; t27481.s0.value.external_symbol_type = q111; /* x201418 */ t27482.s0.tag = EXTERNAL_SYMBOL_TYPE; t27482.s0.value.external_symbol_type = q405; /* x201419 */ t27482.s1.tag = NULL_TYPE; /* x201420 */ t27481.s1.tag = STRUCTURE_TYPE24753; t27481.s1.value.structure_type24753 = &t27482; /* x201421 */ t27480.s0.tag = STRUCTURE_TYPE24753; t27480.s0.value.structure_type24753 = &t27481; /* x201422 */ t27480.s1.tag = NULL_TYPE; /* x201423 */ t27479.s1.tag = STRUCTURE_TYPE24753; t27479.s1.value.structure_type24753 = &t27480; /* x201424 */ t27478.s0.tag = STRUCTURE_TYPE24753; t27478.s0.value.structure_type24753 = &t27479; /* x201425 */ t27484.s0.tag = EXTERNAL_SYMBOL_TYPE; t27484.s0.value.external_symbol_type = q239; /* x201426 */ t27486.s0.tag = EXTERNAL_SYMBOL_TYPE; t27486.s0.value.external_symbol_type = q79; /* x201427 */ t27487.s0.tag = EXTERNAL_SYMBOL_TYPE; t27487.s0.value.external_symbol_type = q249; /* x201428 */ t27489.s0.tag = EXTERNAL_SYMBOL_TYPE; t27489.s0.value.external_symbol_type = q107; /* x201429 */ t27490.s0.tag = EXTERNAL_SYMBOL_TYPE; t27490.s0.value.external_symbol_type = q405; /* x201430 */ t27490.s1.tag = NULL_TYPE; /* x201431 */ t27489.s1.tag = STRUCTURE_TYPE24753; t27489.s1.value.structure_type24753 = &t27490; /* x201432 */ t27488.s0.tag = STRUCTURE_TYPE24753; t27488.s0.value.structure_type24753 = &t27489; /* x201433 */ t27492.s0.tag = EXTERNAL_SYMBOL_TYPE; t27492.s0.value.external_symbol_type = q242; /* x201434 */ t27493.s0.tag = EXTERNAL_SYMBOL_TYPE; t27493.s0.value.external_symbol_type = q287; /* x201435 */ t27496.s0.tag = EXTERNAL_SYMBOL_TYPE; t27496.s0.value.external_symbol_type = q404; /* x201436 */ t27497.s0.tag = EXTERNAL_SYMBOL_TYPE; t27497.s0.value.external_symbol_type = q404; /* x201437 */ t27497.s1.tag = NULL_TYPE; /* x201438 */ t27496.s1.tag = STRUCTURE_TYPE24753; t27496.s1.value.structure_type24753 = &t27497; /* x201439 */ t27495.s0.tag = STRUCTURE_TYPE24753; t27495.s0.value.structure_type24753 = &t27496; /* x201440 */ t27499.s0.tag = EXTERNAL_SYMBOL_TYPE; t27499.s0.value.external_symbol_type = q261; /* x201441 */ t27501.s0.tag = EXTERNAL_SYMBOL_TYPE; t27501.s0.value.external_symbol_type = q11; /* x201442 */ t27502.s0.tag = NULL_TYPE; /* x201443 */ t27502.s1.tag = NULL_TYPE; /* x201444 */ t27501.s1.tag = STRUCTURE_TYPE24753; t27501.s1.value.structure_type24753 = &t27502; /* x201445 */ t27500.s0.tag = STRUCTURE_TYPE24753; t27500.s0.value.structure_type24753 = &t27501; /* x201446 */ t27500.s1.tag = NULL_TYPE; /* x201447 */ t27499.s1.tag = STRUCTURE_TYPE24753; t27499.s1.value.structure_type24753 = &t27500; /* x201448 */ t27498.s0.tag = STRUCTURE_TYPE24753; t27498.s0.value.structure_type24753 = &t27499; /* x201449 */ t27498.s1.tag = NULL_TYPE; /* x201450 */ t27495.s1.tag = STRUCTURE_TYPE24753; t27495.s1.value.structure_type24753 = &t27498; /* x201451 */ t27494.s0.tag = STRUCTURE_TYPE24753; t27494.s0.value.structure_type24753 = &t27495; /* x201452 */ t27504.s0.tag = EXTERNAL_SYMBOL_TYPE; t27504.s0.value.external_symbol_type = q43; /* x201453 */ t27506.s0.tag = EXTERNAL_SYMBOL_TYPE; t27506.s0.value.external_symbol_type = q111; /* x201454 */ t27507.s0.tag = EXTERNAL_SYMBOL_TYPE; t27507.s0.value.external_symbol_type = q404; /* x201455 */ t27507.s1.tag = NULL_TYPE; /* x201456 */ t27506.s1.tag = STRUCTURE_TYPE24753; t27506.s1.value.structure_type24753 = &t27507; /* x201457 */ t27505.s0.tag = STRUCTURE_TYPE24753; t27505.s0.value.structure_type24753 = &t27506; /* x201458 */ t27509.s0.tag = EXTERNAL_SYMBOL_TYPE; t27509.s0.value.external_symbol_type = q284; /* x201459 */ t27510.s0.tag = EXTERNAL_SYMBOL_TYPE; t27510.s0.value.external_symbol_type = q261; /* x201460 */ t27510.s1.tag = NULL_TYPE; /* x201461 */ t27509.s1.tag = STRUCTURE_TYPE24753; t27509.s1.value.structure_type24753 = &t27510; /* x201462 */ t27508.s0.tag = STRUCTURE_TYPE24753; t27508.s0.value.structure_type24753 = &t27509; /* x201463 */ t27512.s0.tag = EXTERNAL_SYMBOL_TYPE; t27512.s0.value.external_symbol_type = q287; /* x201464 */ t27514.s0.tag = EXTERNAL_SYMBOL_TYPE; t27514.s0.value.external_symbol_type = q108; /* x201465 */ t27515.s0.tag = EXTERNAL_SYMBOL_TYPE; t27515.s0.value.external_symbol_type = q404; /* x201466 */ t27515.s1.tag = NULL_TYPE; /* x201467 */ t27514.s1.tag = STRUCTURE_TYPE24753; t27514.s1.value.structure_type24753 = &t27515; /* x201468 */ t27513.s0.tag = STRUCTURE_TYPE24753; t27513.s0.value.structure_type24753 = &t27514; /* x201469 */ t27517.s0.tag = EXTERNAL_SYMBOL_TYPE; t27517.s0.value.external_symbol_type = q106; /* x201470 */ t27519.s0.tag = EXTERNAL_SYMBOL_TYPE; t27519.s0.value.external_symbol_type = q107; /* x201471 */ t27521.s0.tag = EXTERNAL_SYMBOL_TYPE; t27521.s0.value.external_symbol_type = q107; /* x201472 */ t27522.s0.tag = EXTERNAL_SYMBOL_TYPE; t27522.s0.value.external_symbol_type = q404; /* x201473 */ t27522.s1.tag = NULL_TYPE; /* x201474 */ t27521.s1.tag = STRUCTURE_TYPE24753; t27521.s1.value.structure_type24753 = &t27522; /* x201475 */ t27520.s0.tag = STRUCTURE_TYPE24753; t27520.s0.value.structure_type24753 = &t27521; /* x201476 */ t27520.s1.tag = NULL_TYPE; /* x201477 */ t27519.s1.tag = STRUCTURE_TYPE24753; t27519.s1.value.structure_type24753 = &t27520; /* x201478 */ t27518.s0.tag = STRUCTURE_TYPE24753; t27518.s0.value.structure_type24753 = &t27519; /* x201479 */ t27523.s0.tag = EXTERNAL_SYMBOL_TYPE; t27523.s0.value.external_symbol_type = q261; /* x201480 */ t27523.s1.tag = NULL_TYPE; /* x201481 */ t27518.s1.tag = STRUCTURE_TYPE24753; t27518.s1.value.structure_type24753 = &t27523; /* x201482 */ t27517.s1.tag = STRUCTURE_TYPE24753; t27517.s1.value.structure_type24753 = &t27518; /* x201483 */ t27516.s0.tag = STRUCTURE_TYPE24753; t27516.s0.value.structure_type24753 = &t27517; /* x201484 */ t27516.s1.tag = NULL_TYPE; /* x201485 */ t27513.s1.tag = STRUCTURE_TYPE24753; t27513.s1.value.structure_type24753 = &t27516; /* x201486 */ t27512.s1.tag = STRUCTURE_TYPE24753; t27512.s1.value.structure_type24753 = &t27513; /* x201487 */ t27511.s0.tag = STRUCTURE_TYPE24753; t27511.s0.value.structure_type24753 = &t27512; /* x201488 */ t27511.s1.tag = NULL_TYPE; /* x201489 */ t27508.s1.tag = STRUCTURE_TYPE24753; t27508.s1.value.structure_type24753 = &t27511; /* x201490 */ t27505.s1.tag = STRUCTURE_TYPE24753; t27505.s1.value.structure_type24753 = &t27508; /* x201491 */ t27504.s1.tag = STRUCTURE_TYPE24753; t27504.s1.value.structure_type24753 = &t27505; /* x201492 */ t27503.s0.tag = STRUCTURE_TYPE24753; t27503.s0.value.structure_type24753 = &t27504; /* x201493 */ t27503.s1.tag = NULL_TYPE; /* x201494 */ t27494.s1.tag = STRUCTURE_TYPE24753; t27494.s1.value.structure_type24753 = &t27503; /* x201495 */ t27493.s1.tag = STRUCTURE_TYPE24753; t27493.s1.value.structure_type24753 = &t27494; /* x201496 */ t27492.s1.tag = STRUCTURE_TYPE24753; t27492.s1.value.structure_type24753 = &t27493; /* x201497 */ t27491.s0.tag = STRUCTURE_TYPE24753; t27491.s0.value.structure_type24753 = &t27492; /* x201498 */ t27491.s1.tag = NULL_TYPE; /* x201499 */ t27488.s1.tag = STRUCTURE_TYPE24753; t27488.s1.value.structure_type24753 = &t27491; /* x201500 */ t27487.s1.tag = STRUCTURE_TYPE24753; t27487.s1.value.structure_type24753 = &t27488; /* x201501 */ t27486.s1.tag = STRUCTURE_TYPE24753; t27486.s1.value.structure_type24753 = &t27487; /* x201502 */ t27485.s0.tag = STRUCTURE_TYPE24753; t27485.s0.value.structure_type24753 = &t27486; /* x201503 */ t27525.s0.tag = EXTERNAL_SYMBOL_TYPE; t27525.s0.value.external_symbol_type = q287; /* x201504 */ t27527.s0.tag = EXTERNAL_SYMBOL_TYPE; t27527.s0.value.external_symbol_type = q108; /* x201505 */ t27528.s0.tag = EXTERNAL_SYMBOL_TYPE; t27528.s0.value.external_symbol_type = q405; /* x201506 */ t27528.s1.tag = NULL_TYPE; /* x201507 */ t27527.s1.tag = STRUCTURE_TYPE24753; t27527.s1.value.structure_type24753 = &t27528; /* x201508 */ t27526.s0.tag = STRUCTURE_TYPE24753; t27526.s0.value.structure_type24753 = &t27527; /* x201509 */ t27530.s0.tag = EXTERNAL_SYMBOL_TYPE; t27530.s0.value.external_symbol_type = q242; /* x201510 */ t27531.s0.tag = EXTERNAL_SYMBOL_TYPE; t27531.s0.value.external_symbol_type = q287; /* x201511 */ t27534.s0.tag = EXTERNAL_SYMBOL_TYPE; t27534.s0.value.external_symbol_type = q404; /* x201512 */ t27535.s0.tag = EXTERNAL_SYMBOL_TYPE; t27535.s0.value.external_symbol_type = q404; /* x201513 */ t27535.s1.tag = NULL_TYPE; /* x201514 */ t27534.s1.tag = STRUCTURE_TYPE24753; t27534.s1.value.structure_type24753 = &t27535; /* x201515 */ t27533.s0.tag = STRUCTURE_TYPE24753; t27533.s0.value.structure_type24753 = &t27534; /* x201516 */ t27537.s0.tag = EXTERNAL_SYMBOL_TYPE; t27537.s0.value.external_symbol_type = q261; /* x201517 */ t27539.s0.tag = EXTERNAL_SYMBOL_TYPE; t27539.s0.value.external_symbol_type = q11; /* x201518 */ t27540.s0.tag = NULL_TYPE; /* x201519 */ t27540.s1.tag = NULL_TYPE; /* x201520 */ t27539.s1.tag = STRUCTURE_TYPE24753; t27539.s1.value.structure_type24753 = &t27540; /* x201521 */ t27538.s0.tag = STRUCTURE_TYPE24753; t27538.s0.value.structure_type24753 = &t27539; /* x201522 */ t27538.s1.tag = NULL_TYPE; /* x201523 */ t27537.s1.tag = STRUCTURE_TYPE24753; t27537.s1.value.structure_type24753 = &t27538; /* x201524 */ t27536.s0.tag = STRUCTURE_TYPE24753; t27536.s0.value.structure_type24753 = &t27537; /* x201525 */ t27536.s1.tag = NULL_TYPE; /* x201526 */ t27533.s1.tag = STRUCTURE_TYPE24753; t27533.s1.value.structure_type24753 = &t27536; /* x201527 */ t27532.s0.tag = STRUCTURE_TYPE24753; t27532.s0.value.structure_type24753 = &t27533; /* x201528 */ t27542.s0.tag = EXTERNAL_SYMBOL_TYPE; t27542.s0.value.external_symbol_type = q43; /* x201529 */ t27544.s0.tag = EXTERNAL_SYMBOL_TYPE; t27544.s0.value.external_symbol_type = q111; /* x201530 */ t27545.s0.tag = EXTERNAL_SYMBOL_TYPE; t27545.s0.value.external_symbol_type = q404; /* x201531 */ t27545.s1.tag = NULL_TYPE; /* x201532 */ t27544.s1.tag = STRUCTURE_TYPE24753; t27544.s1.value.structure_type24753 = &t27545; /* x201533 */ t27543.s0.tag = STRUCTURE_TYPE24753; t27543.s0.value.structure_type24753 = &t27544; /* x201534 */ t27547.s0.tag = EXTERNAL_SYMBOL_TYPE; t27547.s0.value.external_symbol_type = q284; /* x201535 */ t27548.s0.tag = EXTERNAL_SYMBOL_TYPE; t27548.s0.value.external_symbol_type = q261; /* x201536 */ t27548.s1.tag = NULL_TYPE; /* x201537 */ t27547.s1.tag = STRUCTURE_TYPE24753; t27547.s1.value.structure_type24753 = &t27548; /* x201538 */ t27546.s0.tag = STRUCTURE_TYPE24753; t27546.s0.value.structure_type24753 = &t27547; /* x201539 */ t27550.s0.tag = EXTERNAL_SYMBOL_TYPE; t27550.s0.value.external_symbol_type = q287; /* x201540 */ t27552.s0.tag = EXTERNAL_SYMBOL_TYPE; t27552.s0.value.external_symbol_type = q108; /* x201541 */ t27553.s0.tag = EXTERNAL_SYMBOL_TYPE; t27553.s0.value.external_symbol_type = q404; /* x201542 */ t27553.s1.tag = NULL_TYPE; /* x201543 */ t27552.s1.tag = STRUCTURE_TYPE24753; t27552.s1.value.structure_type24753 = &t27553; /* x201544 */ t27551.s0.tag = STRUCTURE_TYPE24753; t27551.s0.value.structure_type24753 = &t27552; /* x201545 */ t27555.s0.tag = EXTERNAL_SYMBOL_TYPE; t27555.s0.value.external_symbol_type = q106; /* x201546 */ t27557.s0.tag = EXTERNAL_SYMBOL_TYPE; t27557.s0.value.external_symbol_type = q108; /* x201547 */ t27559.s0.tag = EXTERNAL_SYMBOL_TYPE; t27559.s0.value.external_symbol_type = q107; /* x201548 */ t27560.s0.tag = EXTERNAL_SYMBOL_TYPE; t27560.s0.value.external_symbol_type = q404; /* x201549 */ t27560.s1.tag = NULL_TYPE; /* x201550 */ t27559.s1.tag = STRUCTURE_TYPE24753; t27559.s1.value.structure_type24753 = &t27560; /* x201551 */ t27558.s0.tag = STRUCTURE_TYPE24753; t27558.s0.value.structure_type24753 = &t27559; /* x201552 */ t27558.s1.tag = NULL_TYPE; /* x201553 */ t27557.s1.tag = STRUCTURE_TYPE24753; t27557.s1.value.structure_type24753 = &t27558; /* x201554 */ t27556.s0.tag = STRUCTURE_TYPE24753; t27556.s0.value.structure_type24753 = &t27557; /* x201555 */ t27561.s0.tag = EXTERNAL_SYMBOL_TYPE; t27561.s0.value.external_symbol_type = q261; /* x201556 */ t27561.s1.tag = NULL_TYPE; /* x201557 */ t27556.s1.tag = STRUCTURE_TYPE24753; t27556.s1.value.structure_type24753 = &t27561; /* x201558 */ t27555.s1.tag = STRUCTURE_TYPE24753; t27555.s1.value.structure_type24753 = &t27556; /* x201559 */ t27554.s0.tag = STRUCTURE_TYPE24753; t27554.s0.value.structure_type24753 = &t27555; /* x201560 */ t27554.s1.tag = NULL_TYPE; /* x201561 */ t27551.s1.tag = STRUCTURE_TYPE24753; t27551.s1.value.structure_type24753 = &t27554; /* x201562 */ t27550.s1.tag = STRUCTURE_TYPE24753; t27550.s1.value.structure_type24753 = &t27551; /* x201563 */ t27549.s0.tag = STRUCTURE_TYPE24753; t27549.s0.value.structure_type24753 = &t27550; /* x201564 */ t27549.s1.tag = NULL_TYPE; /* x201565 */ t27546.s1.tag = STRUCTURE_TYPE24753; t27546.s1.value.structure_type24753 = &t27549; /* x201566 */ t27543.s1.tag = STRUCTURE_TYPE24753; t27543.s1.value.structure_type24753 = &t27546; /* x201567 */ t27542.s1.tag = STRUCTURE_TYPE24753; t27542.s1.value.structure_type24753 = &t27543; /* x201568 */ t27541.s0.tag = STRUCTURE_TYPE24753; t27541.s0.value.structure_type24753 = &t27542; /* x201569 */ t27541.s1.tag = NULL_TYPE; /* x201570 */ t27532.s1.tag = STRUCTURE_TYPE24753; t27532.s1.value.structure_type24753 = &t27541; /* x201571 */ t27531.s1.tag = STRUCTURE_TYPE24753; t27531.s1.value.structure_type24753 = &t27532; /* x201572 */ t27530.s1.tag = STRUCTURE_TYPE24753; t27530.s1.value.structure_type24753 = &t27531; /* x201573 */ t27529.s0.tag = STRUCTURE_TYPE24753; t27529.s0.value.structure_type24753 = &t27530; /* x201574 */ t27529.s1.tag = NULL_TYPE; /* x201575 */ t27526.s1.tag = STRUCTURE_TYPE24753; t27526.s1.value.structure_type24753 = &t27529; /* x201576 */ t27525.s1.tag = STRUCTURE_TYPE24753; t27525.s1.value.structure_type24753 = &t27526; /* x201577 */ t27524.s0.tag = STRUCTURE_TYPE24753; t27524.s0.value.structure_type24753 = &t27525; /* x201578 */ t27524.s1.tag = NULL_TYPE; /* x201579 */ t27485.s1.tag = STRUCTURE_TYPE24753; t27485.s1.value.structure_type24753 = &t27524; /* x201580 */ t27484.s1.tag = STRUCTURE_TYPE24753; t27484.s1.value.structure_type24753 = &t27485; /* x201581 */ t27483.s0.tag = STRUCTURE_TYPE24753; t27483.s0.value.structure_type24753 = &t27484; /* x201582 */ t27483.s1.tag = NULL_TYPE; /* x201583 */ t27478.s1.tag = STRUCTURE_TYPE24753; t27478.s1.value.structure_type24753 = &t27483; /* x201584 */ t27477.s1.tag = STRUCTURE_TYPE24753; t27477.s1.value.structure_type24753 = &t27478; /* x201585 */ t27476.s0.tag = STRUCTURE_TYPE24753; t27476.s0.value.structure_type24753 = &t27477; /* x201586 */ t27476.s1.tag = NULL_TYPE; /* x201587 */ t27469.s1.tag = STRUCTURE_TYPE24753; t27469.s1.value.structure_type24753 = &t27476; /* x201588 */ t27468.s1.tag = STRUCTURE_TYPE24753; t27468.s1.value.structure_type24753 = &t27469; /* x201589 */ t27467.s1.tag = STRUCTURE_TYPE24753; t27467.s1.value.structure_type24753 = &t27468; /* x201590 */ t27466.s0.tag = STRUCTURE_TYPE24753; t27466.s0.value.structure_type24753 = &t27467; /* x201591 */ t27466.s1.tag = NULL_TYPE; /* x201592 */ t27465.s1.tag = STRUCTURE_TYPE24753; t27465.s1.value.structure_type24753 = &t27466; /* x201593 */ t27464.s0.tag = STRUCTURE_TYPE24753; t27464.s0.value.structure_type24753 = &t27465; /* x201594 */ t27464.s1.tag = NULL_TYPE; /* x201595 */ t27421.s1.tag = STRUCTURE_TYPE24753; t27421.s1.value.structure_type24753 = &t27464; /* x201596 */ t27391.s1.tag = STRUCTURE_TYPE24753; t27391.s1.value.structure_type24753 = &t27421; /* x201597 */ t27390.s1.tag = STRUCTURE_TYPE24753; t27390.s1.value.structure_type24753 = &t27391; /* x201598 */ t27389.s0.tag = STRUCTURE_TYPE24753; t27389.s0.value.structure_type24753 = &t27390; /* x201599 */ t27389.s1.tag = NULL_TYPE; /* x201600 */ t27385.s1.tag = STRUCTURE_TYPE24753; t27385.s1.value.structure_type24753 = &t27389; /* x201601 */ t27384.s1.tag = STRUCTURE_TYPE24753; t27384.s1.value.structure_type24753 = &t27385; /* x201604 */ t27566.s0.tag = EXTERNAL_SYMBOL_TYPE; t27566.s0.value.external_symbol_type = q97; /* x201605 */ t27568.s0.tag = EXTERNAL_SYMBOL_TYPE; t27568.s0.value.external_symbol_type = q490; /* x201606 */ t27569.s0.tag = EXTERNAL_SYMBOL_TYPE; t27569.s0.value.external_symbol_type = q491; /* x201607 */ t27569.s1.tag = NULL_TYPE; /* x201608 */ t27568.s1.tag = STRUCTURE_TYPE24753; t27568.s1.value.structure_type24753 = &t27569; /* x201609 */ t27567.s0.tag = STRUCTURE_TYPE24753; t27567.s0.value.structure_type24753 = &t27568; /* x201610 */ t27571.s0.tag = EXTERNAL_SYMBOL_TYPE; t27571.s0.value.external_symbol_type = q491; /* x201611 */ t27571.s1.tag = NULL_TYPE; /* x201612 */ t27570.s0.tag = STRUCTURE_TYPE24753; t27570.s0.value.structure_type24753 = &t27571; /* x201613 */ t27570.s1.tag = NULL_TYPE; /* x201614 */ t27567.s1.tag = STRUCTURE_TYPE24753; t27567.s1.value.structure_type24753 = &t27570; /* x201615 */ t27566.s1.tag = STRUCTURE_TYPE24753; t27566.s1.value.structure_type24753 = &t27567; /* x201618 */ t27576.s0.tag = EXTERNAL_SYMBOL_TYPE; t27576.s0.value.external_symbol_type = q97; /* x201619 */ t27578.s0.tag = EXTERNAL_SYMBOL_TYPE; t27578.s0.value.external_symbol_type = q66; /* x201620 */ t27579.s0.tag = EXTERNAL_SYMBOL_TYPE; t27579.s0.value.external_symbol_type = q249; /* x201621 */ t27579.s1.tag = NULL_TYPE; /* x201622 */ t27578.s1.tag = STRUCTURE_TYPE24753; t27578.s1.value.structure_type24753 = &t27579; /* x201623 */ t27577.s0.tag = STRUCTURE_TYPE24753; t27577.s0.value.structure_type24753 = &t27578; /* x201624 */ t27582.s0.tag = EXTERNAL_SYMBOL_TYPE; t27582.s0.value.external_symbol_type = q77; /* x201625 */ t27583.s0.tag = EXTERNAL_SYMBOL_TYPE; t27583.s0.value.external_symbol_type = q66; /* x201626 */ t27583.s1.tag = NULL_TYPE; /* x201627 */ t27582.s1.tag = STRUCTURE_TYPE24753; t27582.s1.value.structure_type24753 = &t27583; /* x201628 */ t27581.s0.tag = STRUCTURE_TYPE24753; t27581.s0.value.structure_type24753 = &t27582; /* x201629 */ t27584.s0.tag = EXTERNAL_SYMBOL_TYPE; t27584.s0.value.external_symbol_type = q249; /* x201630 */ t27584.s1.tag = NULL_TYPE; /* x201631 */ t27581.s1.tag = STRUCTURE_TYPE24753; t27581.s1.value.structure_type24753 = &t27584; /* x201632 */ t27580.s0.tag = STRUCTURE_TYPE24753; t27580.s0.value.structure_type24753 = &t27581; /* x201633 */ t27580.s1.tag = NULL_TYPE; /* x201634 */ t27577.s1.tag = STRUCTURE_TYPE24753; t27577.s1.value.structure_type24753 = &t27580; /* x201635 */ t27576.s1.tag = STRUCTURE_TYPE24753; t27576.s1.value.structure_type24753 = &t27577; /* x201638 */ t27589.s0.tag = EXTERNAL_SYMBOL_TYPE; t27589.s0.value.external_symbol_type = q97; /* x201639 */ t27591.s0.tag = EXTERNAL_SYMBOL_TYPE; t27591.s0.value.external_symbol_type = q343; /* x201640 */ t27592.s0.tag = EXTERNAL_SYMBOL_TYPE; t27592.s0.value.external_symbol_type = q161; /* x201641 */ t27593.s0.tag = EXTERNAL_SYMBOL_TYPE; t27593.s0.value.external_symbol_type = q249; /* x201642 */ t27593.s1.tag = NULL_TYPE; /* x201643 */ t27592.s1.tag = STRUCTURE_TYPE24753; t27592.s1.value.structure_type24753 = &t27593; /* x201644 */ t27591.s1.tag = STRUCTURE_TYPE24753; t27591.s1.value.structure_type24753 = &t27592; /* x201645 */ t27590.s0.tag = STRUCTURE_TYPE24753; t27590.s0.value.structure_type24753 = &t27591; /* x201646 */ t27595.s0.tag = EXTERNAL_SYMBOL_TYPE; t27595.s0.value.external_symbol_type = q246; /* x201647 */ t27598.s0.tag = EXTERNAL_SYMBOL_TYPE; t27598.s0.value.external_symbol_type = q60; /* x201648 */ t27600.s0.tag = EXTERNAL_SYMBOL_TYPE; t27600.s0.value.external_symbol_type = q174; /* x201649 */ t27601.s0.tag = EXTERNAL_SYMBOL_TYPE; t27601.s0.value.external_symbol_type = q161; /* x201650 */ t27601.s1.tag = NULL_TYPE; /* x201651 */ t27600.s1.tag = STRUCTURE_TYPE24753; t27600.s1.value.structure_type24753 = &t27601; /* x201652 */ t27599.s0.tag = STRUCTURE_TYPE24753; t27599.s0.value.structure_type24753 = &t27600; /* x201653 */ t27599.s1.tag = NULL_TYPE; /* x201654 */ t27598.s1.tag = STRUCTURE_TYPE24753; t27598.s1.value.structure_type24753 = &t27599; /* x201655 */ t27597.s0.tag = STRUCTURE_TYPE24753; t27597.s0.value.structure_type24753 = &t27598; /* x201656 */ t27603.s0.tag = EXTERNAL_SYMBOL_TYPE; t27603.s0.value.external_symbol_type = q409; /* x201657 */ t27605.s0.tag = EXTERNAL_SYMBOL_TYPE; t27605.s0.value.external_symbol_type = q249; /* x201658 */ t27606.s0.tag = EXTERNAL_SYMBOL_TYPE; t27606.s0.value.external_symbol_type = q60; /* x201659 */ t27606.s1.tag = NULL_TYPE; /* x201660 */ t27605.s1.tag = STRUCTURE_TYPE24753; t27605.s1.value.structure_type24753 = &t27606; /* x201661 */ t27604.s0.tag = STRUCTURE_TYPE24753; t27604.s0.value.structure_type24753 = &t27605; /* x201662 */ t27604.s1.tag = NULL_TYPE; /* x201663 */ t27603.s1.tag = STRUCTURE_TYPE24753; t27603.s1.value.structure_type24753 = &t27604; /* x201664 */ t27602.s0.tag = STRUCTURE_TYPE24753; t27602.s0.value.structure_type24753 = &t27603; /* x201665 */ t27602.s1.tag = NULL_TYPE; /* x201666 */ t27597.s1.tag = STRUCTURE_TYPE24753; t27597.s1.value.structure_type24753 = &t27602; /* x201667 */ t27596.s0.tag = STRUCTURE_TYPE24753; t27596.s0.value.structure_type24753 = &t27597; /* x201668 */ t27608.s0.tag = EXTERNAL_SYMBOL_TYPE; t27608.s0.value.external_symbol_type = q176; /* x201669 */ t27609.s0.tag = EXTERNAL_SYMBOL_TYPE; t27609.s0.value.external_symbol_type = q60; /* x201670 */ t27609.s1.tag = NULL_TYPE; /* x201671 */ t27608.s1.tag = STRUCTURE_TYPE24753; t27608.s1.value.structure_type24753 = &t27609; /* x201672 */ t27607.s0.tag = STRUCTURE_TYPE24753; t27607.s0.value.structure_type24753 = &t27608; /* x201673 */ t27610.s0.tag = EXTERNAL_SYMBOL_TYPE; t27610.s0.value.external_symbol_type = q409; /* x201674 */ t27610.s1.tag = NULL_TYPE; /* x201675 */ t27607.s1.tag = STRUCTURE_TYPE24753; t27607.s1.value.structure_type24753 = &t27610; /* x201676 */ t27596.s1.tag = STRUCTURE_TYPE24753; t27596.s1.value.structure_type24753 = &t27607; /* x201677 */ t27595.s1.tag = STRUCTURE_TYPE24753; t27595.s1.value.structure_type24753 = &t27596; /* x201678 */ t27594.s0.tag = STRUCTURE_TYPE24753; t27594.s0.value.structure_type24753 = &t27595; /* x201679 */ t27594.s1.tag = NULL_TYPE; /* x201680 */ t27590.s1.tag = STRUCTURE_TYPE24753; t27590.s1.value.structure_type24753 = &t27594; /* x201681 */ t27589.s1.tag = STRUCTURE_TYPE24753; t27589.s1.value.structure_type24753 = &t27590; /* x201684 */ t27615.s0.tag = EXTERNAL_SYMBOL_TYPE; t27615.s0.value.external_symbol_type = q97; /* x201685 */ t27617.s0.tag = EXTERNAL_SYMBOL_TYPE; t27617.s0.value.external_symbol_type = q346; /* x201686 */ t27618.s0.tag = EXTERNAL_SYMBOL_TYPE; t27618.s0.value.external_symbol_type = q161; /* x201687 */ t27619.s0.tag = EXTERNAL_SYMBOL_TYPE; t27619.s0.value.external_symbol_type = q249; /* x201688 */ t27619.s1.tag = NULL_TYPE; /* x201689 */ t27618.s1.tag = STRUCTURE_TYPE24753; t27618.s1.value.structure_type24753 = &t27619; /* x201690 */ t27617.s1.tag = STRUCTURE_TYPE24753; t27617.s1.value.structure_type24753 = &t27618; /* x201691 */ t27616.s0.tag = STRUCTURE_TYPE24753; t27616.s0.value.structure_type24753 = &t27617; /* x201692 */ t27621.s0.tag = EXTERNAL_SYMBOL_TYPE; t27621.s0.value.external_symbol_type = q246; /* x201693 */ t27624.s0.tag = EXTERNAL_SYMBOL_TYPE; t27624.s0.value.external_symbol_type = q61; /* x201694 */ t27626.s0.tag = EXTERNAL_SYMBOL_TYPE; t27626.s0.value.external_symbol_type = q175; /* x201695 */ t27627.s0.tag = EXTERNAL_SYMBOL_TYPE; t27627.s0.value.external_symbol_type = q161; /* x201696 */ t27627.s1.tag = NULL_TYPE; /* x201697 */ t27626.s1.tag = STRUCTURE_TYPE24753; t27626.s1.value.structure_type24753 = &t27627; /* x201698 */ t27625.s0.tag = STRUCTURE_TYPE24753; t27625.s0.value.structure_type24753 = &t27626; /* x201699 */ t27625.s1.tag = NULL_TYPE; /* x201700 */ t27624.s1.tag = STRUCTURE_TYPE24753; t27624.s1.value.structure_type24753 = &t27625; /* x201701 */ t27623.s0.tag = STRUCTURE_TYPE24753; t27623.s0.value.structure_type24753 = &t27624; /* x201702 */ t27629.s0.tag = EXTERNAL_SYMBOL_TYPE; t27629.s0.value.external_symbol_type = q409; /* x201703 */ t27631.s0.tag = EXTERNAL_SYMBOL_TYPE; t27631.s0.value.external_symbol_type = q249; /* x201704 */ t27632.s0.tag = EXTERNAL_SYMBOL_TYPE; t27632.s0.value.external_symbol_type = q61; /* x201705 */ t27632.s1.tag = NULL_TYPE; /* x201706 */ t27631.s1.tag = STRUCTURE_TYPE24753; t27631.s1.value.structure_type24753 = &t27632; /* x201707 */ t27630.s0.tag = STRUCTURE_TYPE24753; t27630.s0.value.structure_type24753 = &t27631; /* x201708 */ t27630.s1.tag = NULL_TYPE; /* x201709 */ t27629.s1.tag = STRUCTURE_TYPE24753; t27629.s1.value.structure_type24753 = &t27630; /* x201710 */ t27628.s0.tag = STRUCTURE_TYPE24753; t27628.s0.value.structure_type24753 = &t27629; /* x201711 */ t27628.s1.tag = NULL_TYPE; /* x201712 */ t27623.s1.tag = STRUCTURE_TYPE24753; t27623.s1.value.structure_type24753 = &t27628; /* x201713 */ t27622.s0.tag = STRUCTURE_TYPE24753; t27622.s0.value.structure_type24753 = &t27623; /* x201714 */ t27634.s0.tag = EXTERNAL_SYMBOL_TYPE; t27634.s0.value.external_symbol_type = q177; /* x201715 */ t27635.s0.tag = EXTERNAL_SYMBOL_TYPE; t27635.s0.value.external_symbol_type = q61; /* x201716 */ t27635.s1.tag = NULL_TYPE; /* x201717 */ t27634.s1.tag = STRUCTURE_TYPE24753; t27634.s1.value.structure_type24753 = &t27635; /* x201718 */ t27633.s0.tag = STRUCTURE_TYPE24753; t27633.s0.value.structure_type24753 = &t27634; /* x201719 */ t27636.s0.tag = EXTERNAL_SYMBOL_TYPE; t27636.s0.value.external_symbol_type = q409; /* x201720 */ t27636.s1.tag = NULL_TYPE; /* x201721 */ t27633.s1.tag = STRUCTURE_TYPE24753; t27633.s1.value.structure_type24753 = &t27636; /* x201722 */ t27622.s1.tag = STRUCTURE_TYPE24753; t27622.s1.value.structure_type24753 = &t27633; /* x201723 */ t27621.s1.tag = STRUCTURE_TYPE24753; t27621.s1.value.structure_type24753 = &t27622; /* x201724 */ t27620.s0.tag = STRUCTURE_TYPE24753; t27620.s0.value.structure_type24753 = &t27621; /* x201725 */ t27620.s1.tag = NULL_TYPE; /* x201726 */ t27616.s1.tag = STRUCTURE_TYPE24753; t27616.s1.value.structure_type24753 = &t27620; /* x201727 */ t27615.s1.tag = STRUCTURE_TYPE24753; t27615.s1.value.structure_type24753 = &t27616; /* x201730 */ t27641.s0.tag = EXTERNAL_SYMBOL_TYPE; t27641.s0.value.external_symbol_type = q97; /* x201731 */ t27643.s0.tag = EXTERNAL_SYMBOL_TYPE; t27643.s0.value.external_symbol_type = q172; /* x201732 */ t27644.s0.tag = EXTERNAL_SYMBOL_TYPE; t27644.s0.value.external_symbol_type = q318; /* x201733 */ t27644.s1.tag = NULL_TYPE; /* x201734 */ t27643.s1.tag = STRUCTURE_TYPE24753; t27643.s1.value.structure_type24753 = &t27644; /* x201735 */ t27642.s0.tag = STRUCTURE_TYPE24753; t27642.s0.value.structure_type24753 = &t27643; /* x201736 */ t27647.s0.tag = EXTERNAL_SYMBOL_TYPE; t27647.s0.value.external_symbol_type = q77; /* x201737 */ t27648.s0.tag = EXTERNAL_SYMBOL_TYPE; t27648.s0.value.external_symbol_type = q172; /* x201738 */ t27648.s1.tag = NULL_TYPE; /* x201739 */ t27647.s1.tag = STRUCTURE_TYPE24753; t27647.s1.value.structure_type24753 = &t27648; /* x201740 */ t27646.s0.tag = STRUCTURE_TYPE24753; t27646.s0.value.structure_type24753 = &t27647; /* x201741 */ t27649.s0.tag = EXTERNAL_SYMBOL_TYPE; t27649.s0.value.external_symbol_type = q318; /* x201742 */ t27649.s1.tag = NULL_TYPE; /* x201743 */ t27646.s1.tag = STRUCTURE_TYPE24753; t27646.s1.value.structure_type24753 = &t27649; /* x201744 */ t27645.s0.tag = STRUCTURE_TYPE24753; t27645.s0.value.structure_type24753 = &t27646; /* x201745 */ t27645.s1.tag = NULL_TYPE; /* x201746 */ t27642.s1.tag = STRUCTURE_TYPE24753; t27642.s1.value.structure_type24753 = &t27645; /* x201747 */ t27641.s1.tag = STRUCTURE_TYPE24753; t27641.s1.value.structure_type24753 = &t27642; /* x201750 */ t27654.s0.tag = EXTERNAL_SYMBOL_TYPE; t27654.s0.value.external_symbol_type = q97; /* x201751 */ t27656.s0.tag = EXTERNAL_SYMBOL_TYPE; t27656.s0.value.external_symbol_type = q173; /* x201752 */ t27657.s0.tag = EXTERNAL_SYMBOL_TYPE; t27657.s0.value.external_symbol_type = q318; /* x201753 */ t27657.s1.tag = NULL_TYPE; /* x201754 */ t27656.s1.tag = STRUCTURE_TYPE24753; t27656.s1.value.structure_type24753 = &t27657; /* x201755 */ t27655.s0.tag = STRUCTURE_TYPE24753; t27655.s0.value.structure_type24753 = &t27656; /* x201756 */ t27660.s0.tag = EXTERNAL_SYMBOL_TYPE; t27660.s0.value.external_symbol_type = q77; /* x201757 */ t27661.s0.tag = EXTERNAL_SYMBOL_TYPE; t27661.s0.value.external_symbol_type = q173; /* x201758 */ t27661.s1.tag = NULL_TYPE; /* x201759 */ t27660.s1.tag = STRUCTURE_TYPE24753; t27660.s1.value.structure_type24753 = &t27661; /* x201760 */ t27659.s0.tag = STRUCTURE_TYPE24753; t27659.s0.value.structure_type24753 = &t27660; /* x201761 */ t27662.s0.tag = EXTERNAL_SYMBOL_TYPE; t27662.s0.value.external_symbol_type = q318; /* x201762 */ t27662.s1.tag = NULL_TYPE; /* x201763 */ t27659.s1.tag = STRUCTURE_TYPE24753; t27659.s1.value.structure_type24753 = &t27662; /* x201764 */ t27658.s0.tag = STRUCTURE_TYPE24753; t27658.s0.value.structure_type24753 = &t27659; /* x201765 */ t27658.s1.tag = NULL_TYPE; /* x201766 */ t27655.s1.tag = STRUCTURE_TYPE24753; t27655.s1.value.structure_type24753 = &t27658; /* x201767 */ t27654.s1.tag = STRUCTURE_TYPE24753; t27654.s1.value.structure_type24753 = &t27655; /* x201770 */ t27667.s0.tag = EXTERNAL_SYMBOL_TYPE; t27667.s0.value.external_symbol_type = q97; /* x201771 */ t27668.s0.tag = EXTERNAL_SYMBOL_TYPE; t27668.s0.value.external_symbol_type = q255; /* x201772 */ t27671.s0.tag = EXTERNAL_SYMBOL_TYPE; t27671.s0.value.external_symbol_type = q39; /* x201773 */ t27672.s0.tag = NULL_TYPE; /* x201774 */ t27672.s1.tag = NULL_TYPE; /* x201775 */ t27671.s1.tag = STRUCTURE_TYPE24753; t27671.s1.value.structure_type24753 = &t27672; /* x201776 */ t27670.s0.tag = STRUCTURE_TYPE24753; t27670.s0.value.structure_type24753 = &t27671; /* x201777 */ t27670.s1.tag = NULL_TYPE; /* x201778 */ t27669.s0.tag = STRUCTURE_TYPE24753; t27669.s0.value.structure_type24753 = &t27670; /* x201779 */ t27669.s1.tag = NULL_TYPE; /* x201780 */ t27668.s1.tag = STRUCTURE_TYPE24753; t27668.s1.value.structure_type24753 = &t27669; /* x201781 */ t27667.s1.tag = STRUCTURE_TYPE24753; t27667.s1.value.structure_type24753 = &t27668; /* x201784 */ t27677.s0.tag = EXTERNAL_SYMBOL_TYPE; t27677.s0.value.external_symbol_type = q97; /* x201785 */ t27678.s0.tag = EXTERNAL_SYMBOL_TYPE; t27678.s0.value.external_symbol_type = q339; /* x201786 */ t27681.s0.tag = EXTERNAL_SYMBOL_TYPE; t27681.s0.value.external_symbol_type = q39; /* x201787 */ t27682.s0.tag = NULL_TYPE; /* x201788 */ t27682.s1.tag = NULL_TYPE; /* x201789 */ t27681.s1.tag = STRUCTURE_TYPE24753; t27681.s1.value.structure_type24753 = &t27682; /* x201790 */ t27680.s0.tag = STRUCTURE_TYPE24753; t27680.s0.value.structure_type24753 = &t27681; /* x201791 */ t27680.s1.tag = NULL_TYPE; /* x201792 */ t27679.s0.tag = STRUCTURE_TYPE24753; t27679.s0.value.structure_type24753 = &t27680; /* x201793 */ t27679.s1.tag = NULL_TYPE; /* x201794 */ t27678.s1.tag = STRUCTURE_TYPE24753; t27678.s1.value.structure_type24753 = &t27679; /* x201795 */ t27677.s1.tag = STRUCTURE_TYPE24753; t27677.s1.value.structure_type24753 = &t27678; /* x201798 */ t27687.s0.tag = EXTERNAL_SYMBOL_TYPE; t27687.s0.value.external_symbol_type = q97; /* x201799 */ t27688.s0.tag = EXTERNAL_SYMBOL_TYPE; t27688.s0.value.external_symbol_type = q340; /* x201800 */ t27691.s0.tag = EXTERNAL_SYMBOL_TYPE; t27691.s0.value.external_symbol_type = q39; /* x201801 */ t27692.s0.tag = NULL_TYPE; /* x201802 */ t27692.s1.tag = NULL_TYPE; /* x201803 */ t27691.s1.tag = STRUCTURE_TYPE24753; t27691.s1.value.structure_type24753 = &t27692; /* x201804 */ t27690.s0.tag = STRUCTURE_TYPE24753; t27690.s0.value.structure_type24753 = &t27691; /* x201805 */ t27690.s1.tag = NULL_TYPE; /* x201806 */ t27689.s0.tag = STRUCTURE_TYPE24753; t27689.s0.value.structure_type24753 = &t27690; /* x201807 */ t27689.s1.tag = NULL_TYPE; /* x201808 */ t27688.s1.tag = STRUCTURE_TYPE24753; t27688.s1.value.structure_type24753 = &t27689; /* x201809 */ t27687.s1.tag = STRUCTURE_TYPE24753; t27687.s1.value.structure_type24753 = &t27688; /* x201812 */ t27697.s0.tag = EXTERNAL_SYMBOL_TYPE; t27697.s0.value.external_symbol_type = q97; /* x201813 */ t27698.s0.tag = EXTERNAL_SYMBOL_TYPE; t27698.s0.value.external_symbol_type = q344; /* x201814 */ t27701.s0.tag = EXTERNAL_SYMBOL_TYPE; t27701.s0.value.external_symbol_type = q39; /* x201815 */ t27702.s0.tag = NULL_TYPE; /* x201816 */ t27702.s1.tag = NULL_TYPE; /* x201817 */ t27701.s1.tag = STRUCTURE_TYPE24753; t27701.s1.value.structure_type24753 = &t27702; /* x201818 */ t27700.s0.tag = STRUCTURE_TYPE24753; t27700.s0.value.structure_type24753 = &t27701; /* x201819 */ t27700.s1.tag = NULL_TYPE; /* x201820 */ t27699.s0.tag = STRUCTURE_TYPE24753; t27699.s0.value.structure_type24753 = &t27700; /* x201821 */ t27699.s1.tag = NULL_TYPE; /* x201822 */ t27698.s1.tag = STRUCTURE_TYPE24753; t27698.s1.value.structure_type24753 = &t27699; /* x201823 */ t27697.s1.tag = STRUCTURE_TYPE24753; t27697.s1.value.structure_type24753 = &t27698; /* x201826 */ t27707.s0.tag = EXTERNAL_SYMBOL_TYPE; t27707.s0.value.external_symbol_type = q97; /* x201827 */ t27709.s0.tag = EXTERNAL_SYMBOL_TYPE; t27709.s0.value.external_symbol_type = q174; /* x201828 */ t27710.s0.tag = EXTERNAL_SYMBOL_TYPE; t27710.s0.value.external_symbol_type = q492; /* x201829 */ t27710.s1.tag = NULL_TYPE; /* x201830 */ t27709.s1.tag = STRUCTURE_TYPE24753; t27709.s1.value.structure_type24753 = &t27710; /* x201831 */ t27708.s0.tag = STRUCTURE_TYPE24753; t27708.s0.value.structure_type24753 = &t27709; /* x201832 */ t27713.s0.tag = EXTERNAL_SYMBOL_TYPE; t27713.s0.value.external_symbol_type = q77; /* x201833 */ t27714.s0.tag = EXTERNAL_SYMBOL_TYPE; t27714.s0.value.external_symbol_type = q174; /* x201834 */ t27714.s1.tag = NULL_TYPE; /* x201835 */ t27713.s1.tag = STRUCTURE_TYPE24753; t27713.s1.value.structure_type24753 = &t27714; /* x201836 */ t27712.s0.tag = STRUCTURE_TYPE24753; t27712.s0.value.structure_type24753 = &t27713; /* x201837 */ t27715.s0.tag = EXTERNAL_SYMBOL_TYPE; t27715.s0.value.external_symbol_type = q492; /* x201838 */ t27715.s1.tag = NULL_TYPE; /* x201839 */ t27712.s1.tag = STRUCTURE_TYPE24753; t27712.s1.value.structure_type24753 = &t27715; /* x201840 */ t27711.s0.tag = STRUCTURE_TYPE24753; t27711.s0.value.structure_type24753 = &t27712; /* x201841 */ t27711.s1.tag = NULL_TYPE; /* x201842 */ t27708.s1.tag = STRUCTURE_TYPE24753; t27708.s1.value.structure_type24753 = &t27711; /* x201843 */ t27707.s1.tag = STRUCTURE_TYPE24753; t27707.s1.value.structure_type24753 = &t27708; /* x201846 */ t27720.s0.tag = EXTERNAL_SYMBOL_TYPE; t27720.s0.value.external_symbol_type = q97; /* x201847 */ t27722.s0.tag = EXTERNAL_SYMBOL_TYPE; t27722.s0.value.external_symbol_type = q175; /* x201848 */ t27723.s0.tag = EXTERNAL_SYMBOL_TYPE; t27723.s0.value.external_symbol_type = q492; /* x201849 */ t27723.s1.tag = NULL_TYPE; /* x201850 */ t27722.s1.tag = STRUCTURE_TYPE24753; t27722.s1.value.structure_type24753 = &t27723; /* x201851 */ t27721.s0.tag = STRUCTURE_TYPE24753; t27721.s0.value.structure_type24753 = &t27722; /* x201852 */ t27726.s0.tag = EXTERNAL_SYMBOL_TYPE; t27726.s0.value.external_symbol_type = q77; /* x201853 */ t27727.s0.tag = EXTERNAL_SYMBOL_TYPE; t27727.s0.value.external_symbol_type = q175; /* x201854 */ t27727.s1.tag = NULL_TYPE; /* x201855 */ t27726.s1.tag = STRUCTURE_TYPE24753; t27726.s1.value.structure_type24753 = &t27727; /* x201856 */ t27725.s0.tag = STRUCTURE_TYPE24753; t27725.s0.value.structure_type24753 = &t27726; /* x201857 */ t27728.s0.tag = EXTERNAL_SYMBOL_TYPE; t27728.s0.value.external_symbol_type = q492; /* x201858 */ t27728.s1.tag = NULL_TYPE; /* x201859 */ t27725.s1.tag = STRUCTURE_TYPE24753; t27725.s1.value.structure_type24753 = &t27728; /* x201860 */ t27724.s0.tag = STRUCTURE_TYPE24753; t27724.s0.value.structure_type24753 = &t27725; /* x201861 */ t27724.s1.tag = NULL_TYPE; /* x201862 */ t27721.s1.tag = STRUCTURE_TYPE24753; t27721.s1.value.structure_type24753 = &t27724; /* x201863 */ t27720.s1.tag = STRUCTURE_TYPE24753; t27720.s1.value.structure_type24753 = &t27721; /* x201866 */ t27733.s0.tag = EXTERNAL_SYMBOL_TYPE; t27733.s0.value.external_symbol_type = q97; /* x201867 */ t27735.s0.tag = EXTERNAL_SYMBOL_TYPE; t27735.s0.value.external_symbol_type = q176; /* x201868 */ t27736.s0.tag = EXTERNAL_SYMBOL_TYPE; t27736.s0.value.external_symbol_type = q254; /* x201869 */ t27736.s1.tag = NULL_TYPE; /* x201870 */ t27735.s1.tag = STRUCTURE_TYPE24753; t27735.s1.value.structure_type24753 = &t27736; /* x201871 */ t27734.s0.tag = STRUCTURE_TYPE24753; t27734.s0.value.structure_type24753 = &t27735; /* x201872 */ t27739.s0.tag = EXTERNAL_SYMBOL_TYPE; t27739.s0.value.external_symbol_type = q77; /* x201873 */ t27740.s0.tag = EXTERNAL_SYMBOL_TYPE; t27740.s0.value.external_symbol_type = q176; /* x201874 */ t27740.s1.tag = NULL_TYPE; /* x201875 */ t27739.s1.tag = STRUCTURE_TYPE24753; t27739.s1.value.structure_type24753 = &t27740; /* x201876 */ t27738.s0.tag = STRUCTURE_TYPE24753; t27738.s0.value.structure_type24753 = &t27739; /* x201877 */ t27741.s0.tag = EXTERNAL_SYMBOL_TYPE; t27741.s0.value.external_symbol_type = q254; /* x201878 */ t27741.s1.tag = NULL_TYPE; /* x201879 */ t27738.s1.tag = STRUCTURE_TYPE24753; t27738.s1.value.structure_type24753 = &t27741; /* x201880 */ t27737.s0.tag = STRUCTURE_TYPE24753; t27737.s0.value.structure_type24753 = &t27738; /* x201881 */ t27737.s1.tag = NULL_TYPE; /* x201882 */ t27734.s1.tag = STRUCTURE_TYPE24753; t27734.s1.value.structure_type24753 = &t27737; /* x201883 */ t27733.s1.tag = STRUCTURE_TYPE24753; t27733.s1.value.structure_type24753 = &t27734; /* x201886 */ t27746.s0.tag = EXTERNAL_SYMBOL_TYPE; t27746.s0.value.external_symbol_type = q97; /* x201887 */ t27748.s0.tag = EXTERNAL_SYMBOL_TYPE; t27748.s0.value.external_symbol_type = q177; /* x201888 */ t27749.s0.tag = EXTERNAL_SYMBOL_TYPE; t27749.s0.value.external_symbol_type = q254; /* x201889 */ t27749.s1.tag = NULL_TYPE; /* x201890 */ t27748.s1.tag = STRUCTURE_TYPE24753; t27748.s1.value.structure_type24753 = &t27749; /* x201891 */ t27747.s0.tag = STRUCTURE_TYPE24753; t27747.s0.value.structure_type24753 = &t27748; /* x201892 */ t27752.s0.tag = EXTERNAL_SYMBOL_TYPE; t27752.s0.value.external_symbol_type = q77; /* x201893 */ t27753.s0.tag = EXTERNAL_SYMBOL_TYPE; t27753.s0.value.external_symbol_type = q177; /* x201894 */ t27753.s1.tag = NULL_TYPE; /* x201895 */ t27752.s1.tag = STRUCTURE_TYPE24753; t27752.s1.value.structure_type24753 = &t27753; /* x201896 */ t27751.s0.tag = STRUCTURE_TYPE24753; t27751.s0.value.structure_type24753 = &t27752; /* x201897 */ t27754.s0.tag = EXTERNAL_SYMBOL_TYPE; t27754.s0.value.external_symbol_type = q254; /* x201898 */ t27754.s1.tag = NULL_TYPE; /* x201899 */ t27751.s1.tag = STRUCTURE_TYPE24753; t27751.s1.value.structure_type24753 = &t27754; /* x201900 */ t27750.s0.tag = STRUCTURE_TYPE24753; t27750.s0.value.structure_type24753 = &t27751; /* x201901 */ t27750.s1.tag = NULL_TYPE; /* x201902 */ t27747.s1.tag = STRUCTURE_TYPE24753; t27747.s1.value.structure_type24753 = &t27750; /* x201903 */ t27746.s1.tag = STRUCTURE_TYPE24753; t27746.s1.value.structure_type24753 = &t27747; /* x201908 */ t27763.s0.tag = EXTERNAL_SYMBOL_TYPE; t27763.s0.value.external_symbol_type = q97; /* x201909 */ t27764.s0.tag = EXTERNAL_SYMBOL_TYPE; t27764.s0.value.external_symbol_type = q264; /* x201910 */ t27767.s0.tag = EXTERNAL_SYMBOL_TYPE; t27767.s0.value.external_symbol_type = q39; /* x201911 */ t27768.s0.tag = NULL_TYPE; /* x201912 */ t27768.s1.tag = NULL_TYPE; /* x201913 */ t27767.s1.tag = STRUCTURE_TYPE24753; t27767.s1.value.structure_type24753 = &t27768; /* x201914 */ t27766.s0.tag = STRUCTURE_TYPE24753; t27766.s0.value.structure_type24753 = &t27767; /* x201915 */ t27766.s1.tag = NULL_TYPE; /* x201916 */ t27765.s0.tag = STRUCTURE_TYPE24753; t27765.s0.value.structure_type24753 = &t27766; /* x201917 */ t27765.s1.tag = NULL_TYPE; /* x201918 */ t27764.s1.tag = STRUCTURE_TYPE24753; t27764.s1.value.structure_type24753 = &t27765; /* x201919 */ t27763.s1.tag = STRUCTURE_TYPE24753; t27763.s1.value.structure_type24753 = &t27764; /* x201922 */ t27773.s0.tag = EXTERNAL_SYMBOL_TYPE; t27773.s0.value.external_symbol_type = q97; /* x201923 */ t27774.s0.tag = EXTERNAL_SYMBOL_TYPE; t27774.s0.value.external_symbol_type = q262; /* x201924 */ t27777.s0.tag = EXTERNAL_SYMBOL_TYPE; t27777.s0.value.external_symbol_type = q39; /* x201925 */ t27778.s0.tag = NULL_TYPE; /* x201926 */ t27778.s1.tag = NULL_TYPE; /* x201927 */ t27777.s1.tag = STRUCTURE_TYPE24753; t27777.s1.value.structure_type24753 = &t27778; /* x201928 */ t27776.s0.tag = STRUCTURE_TYPE24753; t27776.s0.value.structure_type24753 = &t27777; /* x201929 */ t27776.s1.tag = NULL_TYPE; /* x201930 */ t27775.s0.tag = STRUCTURE_TYPE24753; t27775.s0.value.structure_type24753 = &t27776; /* x201931 */ t27775.s1.tag = NULL_TYPE; /* x201932 */ t27774.s1.tag = STRUCTURE_TYPE24753; t27774.s1.value.structure_type24753 = &t27775; /* x201933 */ t27773.s1.tag = STRUCTURE_TYPE24753; t27773.s1.value.structure_type24753 = &t27774; /* x201936 */ t27783.s0.tag = EXTERNAL_SYMBOL_TYPE; t27783.s0.value.external_symbol_type = q97; /* x201937 */ t27785.s0.tag = EXTERNAL_SYMBOL_TYPE; t27785.s0.value.external_symbol_type = q178; /* x201938 */ t27786.s0.tag = EXTERNAL_SYMBOL_TYPE; t27786.s0.value.external_symbol_type = q318; /* x201939 */ t27786.s1.tag = NULL_TYPE; /* x201940 */ t27785.s1.tag = STRUCTURE_TYPE24753; t27785.s1.value.structure_type24753 = &t27786; /* x201941 */ t27784.s0.tag = STRUCTURE_TYPE24753; t27784.s0.value.structure_type24753 = &t27785; /* x201942 */ t27789.s0.tag = EXTERNAL_SYMBOL_TYPE; t27789.s0.value.external_symbol_type = q77; /* x201943 */ t27790.s0.tag = EXTERNAL_SYMBOL_TYPE; t27790.s0.value.external_symbol_type = q178; /* x201944 */ t27790.s1.tag = NULL_TYPE; /* x201945 */ t27789.s1.tag = STRUCTURE_TYPE24753; t27789.s1.value.structure_type24753 = &t27790; /* x201946 */ t27788.s0.tag = STRUCTURE_TYPE24753; t27788.s0.value.structure_type24753 = &t27789; /* x201947 */ t27791.s0.tag = EXTERNAL_SYMBOL_TYPE; t27791.s0.value.external_symbol_type = q318;} void initialize_constants24(void) {/* x201948 */ t27791.s1.tag = NULL_TYPE; /* x201949 */ t27788.s1.tag = STRUCTURE_TYPE24753; t27788.s1.value.structure_type24753 = &t27791; /* x201950 */ t27787.s0.tag = STRUCTURE_TYPE24753; t27787.s0.value.structure_type24753 = &t27788; /* x201951 */ t27787.s1.tag = NULL_TYPE; /* x201952 */ t27784.s1.tag = STRUCTURE_TYPE24753; t27784.s1.value.structure_type24753 = &t27787; /* x201953 */ t27783.s1.tag = STRUCTURE_TYPE24753; t27783.s1.value.structure_type24753 = &t27784; /* x201956 */ t27796.s0.tag = EXTERNAL_SYMBOL_TYPE; t27796.s0.value.external_symbol_type = q97; /* x201957 */ t27797.s0.tag = EXTERNAL_SYMBOL_TYPE; t27797.s0.value.external_symbol_type = q348; /* x201958 */ t27800.s0.tag = EXTERNAL_SYMBOL_TYPE; t27800.s0.value.external_symbol_type = q39; /* x201959 */ t27801.s0.tag = NULL_TYPE; /* x201960 */ t27801.s1.tag = NULL_TYPE; /* x201961 */ t27800.s1.tag = STRUCTURE_TYPE24753; t27800.s1.value.structure_type24753 = &t27801; /* x201962 */ t27799.s0.tag = STRUCTURE_TYPE24753; t27799.s0.value.structure_type24753 = &t27800; /* x201963 */ t27799.s1.tag = NULL_TYPE; /* x201964 */ t27798.s0.tag = STRUCTURE_TYPE24753; t27798.s0.value.structure_type24753 = &t27799; /* x201965 */ t27798.s1.tag = NULL_TYPE; /* x201966 */ t27797.s1.tag = STRUCTURE_TYPE24753; t27797.s1.value.structure_type24753 = &t27798; /* x201967 */ t27796.s1.tag = STRUCTURE_TYPE24753; t27796.s1.value.structure_type24753 = &t27797; /* x201970 */ t27806.s0.tag = EXTERNAL_SYMBOL_TYPE; t27806.s0.value.external_symbol_type = q97; /* x201971 */ t27807.s0.tag = EXTERNAL_SYMBOL_TYPE; t27807.s0.value.external_symbol_type = q349; /* x201972 */ t27810.s0.tag = EXTERNAL_SYMBOL_TYPE; t27810.s0.value.external_symbol_type = q39; /* x201973 */ t27811.s0.tag = NULL_TYPE; /* x201974 */ t27811.s1.tag = NULL_TYPE; /* x201975 */ t27810.s1.tag = STRUCTURE_TYPE24753; t27810.s1.value.structure_type24753 = &t27811; /* x201976 */ t27809.s0.tag = STRUCTURE_TYPE24753; t27809.s0.value.structure_type24753 = &t27810; /* x201977 */ t27809.s1.tag = NULL_TYPE; /* x201978 */ t27808.s0.tag = STRUCTURE_TYPE24753; t27808.s0.value.structure_type24753 = &t27809; /* x201979 */ t27808.s1.tag = NULL_TYPE; /* x201980 */ t27807.s1.tag = STRUCTURE_TYPE24753; t27807.s1.value.structure_type24753 = &t27808; /* x201981 */ t27806.s1.tag = STRUCTURE_TYPE24753; t27806.s1.value.structure_type24753 = &t27807; /* x201984 */ t27816.s0.tag = EXTERNAL_SYMBOL_TYPE; t27816.s0.value.external_symbol_type = q97; /* x201985 */ t27817.s0.tag = EXTERNAL_SYMBOL_TYPE; t27817.s0.value.external_symbol_type = q350; /* x201986 */ t27820.s0.tag = EXTERNAL_SYMBOL_TYPE; t27820.s0.value.external_symbol_type = q39; /* x201987 */ t27821.s0.tag = NULL_TYPE; /* x201988 */ t27821.s1.tag = NULL_TYPE; /* x201989 */ t27820.s1.tag = STRUCTURE_TYPE24753; t27820.s1.value.structure_type24753 = &t27821; /* x201990 */ t27819.s0.tag = STRUCTURE_TYPE24753; t27819.s0.value.structure_type24753 = &t27820; /* x201991 */ t27819.s1.tag = NULL_TYPE; /* x201992 */ t27818.s0.tag = STRUCTURE_TYPE24753; t27818.s0.value.structure_type24753 = &t27819; /* x201993 */ t27818.s1.tag = NULL_TYPE; /* x201994 */ t27817.s1.tag = STRUCTURE_TYPE24753; t27817.s1.value.structure_type24753 = &t27818; /* x201995 */ t27816.s1.tag = STRUCTURE_TYPE24753; t27816.s1.value.structure_type24753 = &t27817; /* x201998 */ t27826.s0.tag = EXTERNAL_SYMBOL_TYPE; t27826.s0.value.external_symbol_type = q97; /* x201999 */ t27827.s0.tag = EXTERNAL_SYMBOL_TYPE; t27827.s0.value.external_symbol_type = q351; /* x202000 */ t27830.s0.tag = EXTERNAL_SYMBOL_TYPE; t27830.s0.value.external_symbol_type = q39; /* x202001 */ t27831.s0.tag = NULL_TYPE; /* x202002 */ t27831.s1.tag = NULL_TYPE; /* x202003 */ t27830.s1.tag = STRUCTURE_TYPE24753; t27830.s1.value.structure_type24753 = &t27831; /* x202004 */ t27829.s0.tag = STRUCTURE_TYPE24753; t27829.s0.value.structure_type24753 = &t27830; /* x202005 */ t27829.s1.tag = NULL_TYPE; /* x202006 */ t27828.s0.tag = STRUCTURE_TYPE24753; t27828.s0.value.structure_type24753 = &t27829; /* x202007 */ t27828.s1.tag = NULL_TYPE; /* x202008 */ t27827.s1.tag = STRUCTURE_TYPE24753; t27827.s1.value.structure_type24753 = &t27828; /* x202009 */ t27826.s1.tag = STRUCTURE_TYPE24753; t27826.s1.value.structure_type24753 = &t27827; /* x202012 */ t27836.s0.tag = EXTERNAL_SYMBOL_TYPE; t27836.s0.value.external_symbol_type = q97; /* x202013 */ t27837.s0.tag = EXTERNAL_SYMBOL_TYPE; t27837.s0.value.external_symbol_type = q352; /* x202014 */ t27840.s0.tag = EXTERNAL_SYMBOL_TYPE; t27840.s0.value.external_symbol_type = q39; /* x202015 */ t27841.s0.tag = NULL_TYPE; /* x202016 */ t27841.s1.tag = NULL_TYPE; /* x202017 */ t27840.s1.tag = STRUCTURE_TYPE24753; t27840.s1.value.structure_type24753 = &t27841; /* x202018 */ t27839.s0.tag = STRUCTURE_TYPE24753; t27839.s0.value.structure_type24753 = &t27840; /* x202019 */ t27839.s1.tag = NULL_TYPE; /* x202020 */ t27838.s0.tag = STRUCTURE_TYPE24753; t27838.s0.value.structure_type24753 = &t27839; /* x202021 */ t27838.s1.tag = NULL_TYPE; /* x202022 */ t27837.s1.tag = STRUCTURE_TYPE24753; t27837.s1.value.structure_type24753 = &t27838; /* x202023 */ t27836.s1.tag = STRUCTURE_TYPE24753; t27836.s1.value.structure_type24753 = &t27837; /* x202026 */ t27846.s0.tag = EXTERNAL_SYMBOL_TYPE; t27846.s0.value.external_symbol_type = q97; /* x202027 */ t27847.s0.tag = EXTERNAL_SYMBOL_TYPE; t27847.s0.value.external_symbol_type = q353; /* x202028 */ t27850.s0.tag = EXTERNAL_SYMBOL_TYPE; t27850.s0.value.external_symbol_type = q39; /* x202029 */ t27851.s0.tag = NULL_TYPE; /* x202030 */ t27851.s1.tag = NULL_TYPE; /* x202031 */ t27850.s1.tag = STRUCTURE_TYPE24753; t27850.s1.value.structure_type24753 = &t27851; /* x202032 */ t27849.s0.tag = STRUCTURE_TYPE24753; t27849.s0.value.structure_type24753 = &t27850; /* x202033 */ t27849.s1.tag = NULL_TYPE; /* x202034 */ t27848.s0.tag = STRUCTURE_TYPE24753; t27848.s0.value.structure_type24753 = &t27849; /* x202035 */ t27848.s1.tag = NULL_TYPE; /* x202036 */ t27847.s1.tag = STRUCTURE_TYPE24753; t27847.s1.value.structure_type24753 = &t27848; /* x202037 */ t27846.s1.tag = STRUCTURE_TYPE24753; t27846.s1.value.structure_type24753 = &t27847; /* x202040 */ t27856.s0.tag = EXTERNAL_SYMBOL_TYPE; t27856.s0.value.external_symbol_type = q97; /* x202041 */ t27857.s0.tag = EXTERNAL_SYMBOL_TYPE; t27857.s0.value.external_symbol_type = q356; /* x202042 */ t27860.s0.tag = EXTERNAL_SYMBOL_TYPE; t27860.s0.value.external_symbol_type = q39; /* x202043 */ t27861.s0.tag = NULL_TYPE; /* x202044 */ t27861.s1.tag = NULL_TYPE; /* x202045 */ t27860.s1.tag = STRUCTURE_TYPE24753; t27860.s1.value.structure_type24753 = &t27861; /* x202046 */ t27859.s0.tag = STRUCTURE_TYPE24753; t27859.s0.value.structure_type24753 = &t27860; /* x202047 */ t27859.s1.tag = NULL_TYPE; /* x202048 */ t27858.s0.tag = STRUCTURE_TYPE24753; t27858.s0.value.structure_type24753 = &t27859; /* x202049 */ t27858.s1.tag = NULL_TYPE; /* x202050 */ t27857.s1.tag = STRUCTURE_TYPE24753; t27857.s1.value.structure_type24753 = &t27858; /* x202051 */ t27856.s1.tag = STRUCTURE_TYPE24753; t27856.s1.value.structure_type24753 = &t27857; /* x202056 */ t27870.s0.tag = EXTERNAL_SYMBOL_TYPE; t27870.s0.value.external_symbol_type = q97; /* x202057 */ t27872.s0.tag = EXTERNAL_SYMBOL_TYPE; t27872.s0.value.external_symbol_type = q179; /* x202058 */ t27873.s0.tag = EXTERNAL_SYMBOL_TYPE; t27873.s0.value.external_symbol_type = q161; /* x202059 */ t27873.s1.tag = NULL_TYPE; /* x202060 */ t27872.s1.tag = STRUCTURE_TYPE24753; t27872.s1.value.structure_type24753 = &t27873; /* x202061 */ t27871.s0.tag = STRUCTURE_TYPE24753; t27871.s0.value.structure_type24753 = &t27872; /* x202062 */ t27876.s0.tag = EXTERNAL_SYMBOL_TYPE; t27876.s0.value.external_symbol_type = q77; /* x202063 */ t27877.s0.tag = EXTERNAL_SYMBOL_TYPE; t27877.s0.value.external_symbol_type = q179; /* x202064 */ t27877.s1.tag = NULL_TYPE; /* x202065 */ t27876.s1.tag = STRUCTURE_TYPE24753; t27876.s1.value.structure_type24753 = &t27877; /* x202066 */ t27875.s0.tag = STRUCTURE_TYPE24753; t27875.s0.value.structure_type24753 = &t27876; /* x202067 */ t27878.s0.tag = EXTERNAL_SYMBOL_TYPE; t27878.s0.value.external_symbol_type = q161; /* x202068 */ t27878.s1.tag = NULL_TYPE; /* x202069 */ t27875.s1.tag = STRUCTURE_TYPE24753; t27875.s1.value.structure_type24753 = &t27878; /* x202070 */ t27874.s0.tag = STRUCTURE_TYPE24753; t27874.s0.value.structure_type24753 = &t27875; /* x202071 */ t27874.s1.tag = NULL_TYPE; /* x202072 */ t27871.s1.tag = STRUCTURE_TYPE24753; t27871.s1.value.structure_type24753 = &t27874; /* x202073 */ t27870.s1.tag = STRUCTURE_TYPE24753; t27870.s1.value.structure_type24753 = &t27871; /* x202076 */ t27883.s0.tag = EXTERNAL_SYMBOL_TYPE; t27883.s0.value.external_symbol_type = q97; /* x202077 */ t27885.s0.tag = EXTERNAL_SYMBOL_TYPE; t27885.s0.value.external_symbol_type = q180; /* x202078 */ t27886.s0.tag = EXTERNAL_SYMBOL_TYPE; t27886.s0.value.external_symbol_type = q318; /* x202079 */ t27886.s1.tag = NULL_TYPE; /* x202080 */ t27885.s1.tag = STRUCTURE_TYPE24753; t27885.s1.value.structure_type24753 = &t27886; /* x202081 */ t27884.s0.tag = STRUCTURE_TYPE24753; t27884.s0.value.structure_type24753 = &t27885; /* x202082 */ t27889.s0.tag = EXTERNAL_SYMBOL_TYPE; t27889.s0.value.external_symbol_type = q77; /* x202083 */ t27890.s0.tag = EXTERNAL_SYMBOL_TYPE; t27890.s0.value.external_symbol_type = q180; /* x202084 */ t27890.s1.tag = NULL_TYPE; /* x202085 */ t27889.s1.tag = STRUCTURE_TYPE24753; t27889.s1.value.structure_type24753 = &t27890; /* x202086 */ t27888.s0.tag = STRUCTURE_TYPE24753; t27888.s0.value.structure_type24753 = &t27889; /* x202087 */ t27891.s0.tag = EXTERNAL_SYMBOL_TYPE; t27891.s0.value.external_symbol_type = q318; /* x202088 */ t27891.s1.tag = NULL_TYPE; /* x202089 */ t27888.s1.tag = STRUCTURE_TYPE24753; t27888.s1.value.structure_type24753 = &t27891; /* x202090 */ t27887.s0.tag = STRUCTURE_TYPE24753; t27887.s0.value.structure_type24753 = &t27888; /* x202091 */ t27887.s1.tag = NULL_TYPE; /* x202092 */ t27884.s1.tag = STRUCTURE_TYPE24753; t27884.s1.value.structure_type24753 = &t27887; /* x202093 */ t27883.s1.tag = STRUCTURE_TYPE24753; t27883.s1.value.structure_type24753 = &t27884; /* x202096 */ t27896.s0.tag = EXTERNAL_SYMBOL_TYPE; t27896.s0.value.external_symbol_type = q97; /* x202097 */ t27898.s0.tag = EXTERNAL_SYMBOL_TYPE; t27898.s0.value.external_symbol_type = q181; /* x202098 */ t27899.s0.tag = EXTERNAL_SYMBOL_TYPE; t27899.s0.value.external_symbol_type = q337; /* x202099 */ t27899.s1.tag = NULL_TYPE; /* x202100 */ t27898.s1.tag = STRUCTURE_TYPE24753; t27898.s1.value.structure_type24753 = &t27899; /* x202101 */ t27897.s0.tag = STRUCTURE_TYPE24753; t27897.s0.value.structure_type24753 = &t27898; /* x202102 */ t27902.s0.tag = EXTERNAL_SYMBOL_TYPE; t27902.s0.value.external_symbol_type = q77; /* x202103 */ t27903.s0.tag = EXTERNAL_SYMBOL_TYPE; t27903.s0.value.external_symbol_type = q181; /* x202104 */ t27903.s1.tag = NULL_TYPE; /* x202105 */ t27902.s1.tag = STRUCTURE_TYPE24753; t27902.s1.value.structure_type24753 = &t27903; /* x202106 */ t27901.s0.tag = STRUCTURE_TYPE24753; t27901.s0.value.structure_type24753 = &t27902; /* x202107 */ t27904.s0.tag = EXTERNAL_SYMBOL_TYPE; t27904.s0.value.external_symbol_type = q337; /* x202108 */ t27904.s1.tag = NULL_TYPE; /* x202109 */ t27901.s1.tag = STRUCTURE_TYPE24753; t27901.s1.value.structure_type24753 = &t27904; /* x202110 */ t27900.s0.tag = STRUCTURE_TYPE24753; t27900.s0.value.structure_type24753 = &t27901; /* x202111 */ t27900.s1.tag = NULL_TYPE; /* x202112 */ t27897.s1.tag = STRUCTURE_TYPE24753; t27897.s1.value.structure_type24753 = &t27900; /* x202113 */ t27896.s1.tag = STRUCTURE_TYPE24753; t27896.s1.value.structure_type24753 = &t27897; /* x202116 */ t27909.s0.tag = EXTERNAL_SYMBOL_TYPE; t27909.s0.value.external_symbol_type = q97; /* x202117 */ t27911.s0.tag = EXTERNAL_SYMBOL_TYPE; t27911.s0.value.external_symbol_type = q182; /* x202118 */ t27912.s0.tag = EXTERNAL_SYMBOL_TYPE; t27912.s0.value.external_symbol_type = q337; /* x202119 */ t27912.s1.tag = NULL_TYPE; /* x202120 */ t27911.s1.tag = STRUCTURE_TYPE24753; t27911.s1.value.structure_type24753 = &t27912; /* x202121 */ t27910.s0.tag = STRUCTURE_TYPE24753; t27910.s0.value.structure_type24753 = &t27911; /* x202122 */ t27915.s0.tag = EXTERNAL_SYMBOL_TYPE; t27915.s0.value.external_symbol_type = q77; /* x202123 */ t27916.s0.tag = EXTERNAL_SYMBOL_TYPE; t27916.s0.value.external_symbol_type = q182; /* x202124 */ t27916.s1.tag = NULL_TYPE; /* x202125 */ t27915.s1.tag = STRUCTURE_TYPE24753; t27915.s1.value.structure_type24753 = &t27916; /* x202126 */ t27914.s0.tag = STRUCTURE_TYPE24753; t27914.s0.value.structure_type24753 = &t27915; /* x202127 */ t27917.s0.tag = EXTERNAL_SYMBOL_TYPE; t27917.s0.value.external_symbol_type = q337; /* x202128 */ t27917.s1.tag = NULL_TYPE; /* x202129 */ t27914.s1.tag = STRUCTURE_TYPE24753; t27914.s1.value.structure_type24753 = &t27917; /* x202130 */ t27913.s0.tag = STRUCTURE_TYPE24753; t27913.s0.value.structure_type24753 = &t27914; /* x202131 */ t27913.s1.tag = NULL_TYPE; /* x202132 */ t27910.s1.tag = STRUCTURE_TYPE24753; t27910.s1.value.structure_type24753 = &t27913; /* x202133 */ t27909.s1.tag = STRUCTURE_TYPE24753; t27909.s1.value.structure_type24753 = &t27910; /* x202136 */ t27922.s0.tag = EXTERNAL_SYMBOL_TYPE; t27922.s0.value.external_symbol_type = q97; /* x202137 */ t27924.s0.tag = EXTERNAL_SYMBOL_TYPE; t27924.s0.value.external_symbol_type = q183; /* x202138 */ t27925.s0.tag = EXTERNAL_SYMBOL_TYPE; t27925.s0.value.external_symbol_type = q337; /* x202139 */ t27925.s1.tag = NULL_TYPE; /* x202140 */ t27924.s1.tag = STRUCTURE_TYPE24753; t27924.s1.value.structure_type24753 = &t27925; /* x202141 */ t27923.s0.tag = STRUCTURE_TYPE24753; t27923.s0.value.structure_type24753 = &t27924; /* x202142 */ t27928.s0.tag = EXTERNAL_SYMBOL_TYPE; t27928.s0.value.external_symbol_type = q77; /* x202143 */ t27929.s0.tag = EXTERNAL_SYMBOL_TYPE; t27929.s0.value.external_symbol_type = q183; /* x202144 */ t27929.s1.tag = NULL_TYPE; /* x202145 */ t27928.s1.tag = STRUCTURE_TYPE24753; t27928.s1.value.structure_type24753 = &t27929; /* x202146 */ t27927.s0.tag = STRUCTURE_TYPE24753; t27927.s0.value.structure_type24753 = &t27928; /* x202147 */ t27930.s0.tag = EXTERNAL_SYMBOL_TYPE; t27930.s0.value.external_symbol_type = q337; /* x202148 */ t27930.s1.tag = NULL_TYPE; /* x202149 */ t27927.s1.tag = STRUCTURE_TYPE24753; t27927.s1.value.structure_type24753 = &t27930; /* x202150 */ t27926.s0.tag = STRUCTURE_TYPE24753; t27926.s0.value.structure_type24753 = &t27927; /* x202151 */ t27926.s1.tag = NULL_TYPE; /* x202152 */ t27923.s1.tag = STRUCTURE_TYPE24753; t27923.s1.value.structure_type24753 = &t27926; /* x202153 */ t27922.s1.tag = STRUCTURE_TYPE24753; t27922.s1.value.structure_type24753 = &t27923; /* x202156 */ t27935.s0.tag = EXTERNAL_SYMBOL_TYPE; t27935.s0.value.external_symbol_type = q97; /* x202157 */ t27937.s0.tag = EXTERNAL_SYMBOL_TYPE; t27937.s0.value.external_symbol_type = q184; /* x202158 */ t27938.s0.tag = EXTERNAL_SYMBOL_TYPE; t27938.s0.value.external_symbol_type = q337; /* x202159 */ t27938.s1.tag = NULL_TYPE; /* x202160 */ t27937.s1.tag = STRUCTURE_TYPE24753; t27937.s1.value.structure_type24753 = &t27938; /* x202161 */ t27936.s0.tag = STRUCTURE_TYPE24753; t27936.s0.value.structure_type24753 = &t27937; /* x202162 */ t27941.s0.tag = EXTERNAL_SYMBOL_TYPE; t27941.s0.value.external_symbol_type = q77; /* x202163 */ t27942.s0.tag = EXTERNAL_SYMBOL_TYPE; t27942.s0.value.external_symbol_type = q184; /* x202164 */ t27942.s1.tag = NULL_TYPE; /* x202165 */ t27941.s1.tag = STRUCTURE_TYPE24753; t27941.s1.value.structure_type24753 = &t27942; /* x202166 */ t27940.s0.tag = STRUCTURE_TYPE24753; t27940.s0.value.structure_type24753 = &t27941; /* x202167 */ t27943.s0.tag = EXTERNAL_SYMBOL_TYPE; t27943.s0.value.external_symbol_type = q337; /* x202168 */ t27943.s1.tag = NULL_TYPE; /* x202169 */ t27940.s1.tag = STRUCTURE_TYPE24753; t27940.s1.value.structure_type24753 = &t27943; /* x202170 */ t27939.s0.tag = STRUCTURE_TYPE24753; t27939.s0.value.structure_type24753 = &t27940; /* x202171 */ t27939.s1.tag = NULL_TYPE; /* x202172 */ t27936.s1.tag = STRUCTURE_TYPE24753; t27936.s1.value.structure_type24753 = &t27939; /* x202173 */ t27935.s1.tag = STRUCTURE_TYPE24753; t27935.s1.value.structure_type24753 = &t27936; /* x202180 */ t27956.s0.tag = EXTERNAL_SYMBOL_TYPE; t27956.s0.value.external_symbol_type = q301; /* x202181 */ t27956.s1.tag = NULL_TYPE; /* x202190 */ t27969.s0.tag = EXTERNAL_SYMBOL_TYPE; t27969.s0.value.external_symbol_type = q407; /* x202191 */ t27969.s1.tag = NULL_TYPE; /* x202200 */ t27982.s0.tag = EXTERNAL_SYMBOL_TYPE; t27982.s0.value.external_symbol_type = q106; /* x202201 */ t27982.s1.tag = NULL_TYPE; /* x202210 */ t27995.s0.tag = EXTERNAL_SYMBOL_TYPE; t27995.s0.value.external_symbol_type = q358; /* x202211 */ t27995.s1.tag = NULL_TYPE; /* x202219 */ t28007.s0.tag = EXTERNAL_SYMBOL_TYPE; t28007.s0.value.external_symbol_type = q102; /* x202220 */ t28008.s0.tag = EXTERNAL_SYMBOL_TYPE; t28008.s0.value.external_symbol_type = q102; /* x202221 */ t28008.s1.tag = NULL_TYPE; /* x202222 */ t28007.s1.tag = STRUCTURE_TYPE24753; t28007.s1.value.structure_type24753 = &t28008; /* x202223 */ t28006.s0.tag = STRUCTURE_TYPE24753; t28006.s0.value.structure_type24753 = &t28007; /* x202224 */ t28010.s0.tag = EXTERNAL_SYMBOL_TYPE; t28010.s0.value.external_symbol_type = q103; /* x202225 */ t28011.s0.tag = EXTERNAL_SYMBOL_TYPE; t28011.s0.value.external_symbol_type = q103; /* x202226 */ t28011.s1.tag = NULL_TYPE; /* x202227 */ t28010.s1.tag = STRUCTURE_TYPE24753; t28010.s1.value.structure_type24753 = &t28011; /* x202228 */ t28009.s0.tag = STRUCTURE_TYPE24753; t28009.s0.value.structure_type24753 = &t28010; /* x202229 */ t28013.s0.tag = EXTERNAL_SYMBOL_TYPE; t28013.s0.value.external_symbol_type = q358; /* x202230 */ t28014.s0.tag = EXTERNAL_SYMBOL_TYPE; t28014.s0.value.external_symbol_type = q358; /* x202231 */ t28014.s1.tag = NULL_TYPE; /* x202232 */ t28013.s1.tag = STRUCTURE_TYPE24753; t28013.s1.value.structure_type24753 = &t28014; /* x202233 */ t28012.s0.tag = STRUCTURE_TYPE24753; t28012.s0.value.structure_type24753 = &t28013; /* x202234 */ t28016.s0.tag = EXTERNAL_SYMBOL_TYPE; t28016.s0.value.external_symbol_type = q104; /* x202235 */ t28017.s0.tag = EXTERNAL_SYMBOL_TYPE; t28017.s0.value.external_symbol_type = q104; /* x202236 */ t28017.s1.tag = NULL_TYPE; /* x202237 */ t28016.s1.tag = STRUCTURE_TYPE24753; t28016.s1.value.structure_type24753 = &t28017; /* x202238 */ t28015.s0.tag = STRUCTURE_TYPE24753; t28015.s0.value.structure_type24753 = &t28016; /* x202239 */ t28019.s0.tag = EXTERNAL_SYMBOL_TYPE; t28019.s0.value.external_symbol_type = q361; /* x202240 */ t28020.s0.tag = EXTERNAL_SYMBOL_TYPE; t28020.s0.value.external_symbol_type = q361; /* x202241 */ t28020.s1.tag = NULL_TYPE; /* x202242 */ t28019.s1.tag = STRUCTURE_TYPE24753; t28019.s1.value.structure_type24753 = &t28020; /* x202243 */ t28018.s0.tag = STRUCTURE_TYPE24753; t28018.s0.value.structure_type24753 = &t28019; /* x202244 */ t28022.s0.tag = EXTERNAL_SYMBOL_TYPE; t28022.s0.value.external_symbol_type = q105; /* x202245 */ t28023.s0.tag = EXTERNAL_SYMBOL_TYPE; t28023.s0.value.external_symbol_type = q105; /* x202246 */ t28023.s1.tag = NULL_TYPE; /* x202247 */ t28022.s1.tag = STRUCTURE_TYPE24753; t28022.s1.value.structure_type24753 = &t28023; /* x202248 */ t28021.s0.tag = STRUCTURE_TYPE24753; t28021.s0.value.structure_type24753 = &t28022; /* x202249 */ t28025.s0.tag = EXTERNAL_SYMBOL_TYPE; t28025.s0.value.external_symbol_type = q106; /* x202250 */ t28026.s0.tag = EXTERNAL_SYMBOL_TYPE; t28026.s0.value.external_symbol_type = q106; /* x202251 */ t28026.s1.tag = NULL_TYPE; /* x202252 */ t28025.s1.tag = STRUCTURE_TYPE24753; t28025.s1.value.structure_type24753 = &t28026; /* x202253 */ t28024.s0.tag = STRUCTURE_TYPE24753; t28024.s0.value.structure_type24753 = &t28025; /* x202254 */ t28028.s0.tag = EXTERNAL_SYMBOL_TYPE; t28028.s0.value.external_symbol_type = q107; /* x202255 */ t28029.s0.tag = EXTERNAL_SYMBOL_TYPE; t28029.s0.value.external_symbol_type = q107; /* x202256 */ t28029.s1.tag = NULL_TYPE; /* x202257 */ t28028.s1.tag = STRUCTURE_TYPE24753; t28028.s1.value.structure_type24753 = &t28029; /* x202258 */ t28027.s0.tag = STRUCTURE_TYPE24753; t28027.s0.value.structure_type24753 = &t28028; /* x202259 */ t28031.s0.tag = EXTERNAL_SYMBOL_TYPE; t28031.s0.value.external_symbol_type = q108; /* x202260 */ t28032.s0.tag = EXTERNAL_SYMBOL_TYPE; t28032.s0.value.external_symbol_type = q108; /* x202261 */ t28032.s1.tag = NULL_TYPE; /* x202262 */ t28031.s1.tag = STRUCTURE_TYPE24753; t28031.s1.value.structure_type24753 = &t28032; /* x202263 */ t28030.s0.tag = STRUCTURE_TYPE24753; t28030.s0.value.structure_type24753 = &t28031; /* x202264 */ t28034.s0.tag = EXTERNAL_SYMBOL_TYPE; t28034.s0.value.external_symbol_type = q109; /* x202265 */ t28035.s0.tag = EXTERNAL_SYMBOL_TYPE; t28035.s0.value.external_symbol_type = q109; /* x202266 */ t28035.s1.tag = NULL_TYPE; /* x202267 */ t28034.s1.tag = STRUCTURE_TYPE24753; t28034.s1.value.structure_type24753 = &t28035; /* x202268 */ t28033.s0.tag = STRUCTURE_TYPE24753; t28033.s0.value.structure_type24753 = &t28034; /* x202269 */ t28037.s0.tag = EXTERNAL_SYMBOL_TYPE; t28037.s0.value.external_symbol_type = q110; /* x202270 */ t28038.s0.tag = EXTERNAL_SYMBOL_TYPE; t28038.s0.value.external_symbol_type = q110; /* x202271 */ t28038.s1.tag = NULL_TYPE; /* x202272 */ t28037.s1.tag = STRUCTURE_TYPE24753; t28037.s1.value.structure_type24753 = &t28038; /* x202273 */ t28036.s0.tag = STRUCTURE_TYPE24753; t28036.s0.value.structure_type24753 = &t28037; /* x202274 */ t28040.s0.tag = EXTERNAL_SYMBOL_TYPE; t28040.s0.value.external_symbol_type = q363; /* x202275 */ t28041.s0.tag = EXTERNAL_SYMBOL_TYPE; t28041.s0.value.external_symbol_type = q363; /* x202276 */ t28041.s1.tag = NULL_TYPE; /* x202277 */ t28040.s1.tag = STRUCTURE_TYPE24753; t28040.s1.value.structure_type24753 = &t28041; /* x202278 */ t28039.s0.tag = STRUCTURE_TYPE24753; t28039.s0.value.structure_type24753 = &t28040; /* x202279 */ t28043.s0.tag = EXTERNAL_SYMBOL_TYPE; t28043.s0.value.external_symbol_type = q364; /* x202280 */ t28044.s0.tag = EXTERNAL_SYMBOL_TYPE; t28044.s0.value.external_symbol_type = q364; /* x202281 */ t28044.s1.tag = NULL_TYPE; /* x202282 */ t28043.s1.tag = STRUCTURE_TYPE24753; t28043.s1.value.structure_type24753 = &t28044; /* x202283 */ t28042.s0.tag = STRUCTURE_TYPE24753; t28042.s0.value.structure_type24753 = &t28043; /* x202284 */ t28046.s0.tag = EXTERNAL_SYMBOL_TYPE; t28046.s0.value.external_symbol_type = q365; /* x202285 */ t28047.s0.tag = EXTERNAL_SYMBOL_TYPE; t28047.s0.value.external_symbol_type = q365; /* x202286 */ t28047.s1.tag = NULL_TYPE; /* x202287 */ t28046.s1.tag = STRUCTURE_TYPE24753; t28046.s1.value.structure_type24753 = &t28047; /* x202288 */ t28045.s0.tag = STRUCTURE_TYPE24753; t28045.s0.value.structure_type24753 = &t28046; /* x202289 */ t28049.s0.tag = EXTERNAL_SYMBOL_TYPE; t28049.s0.value.external_symbol_type = q366; /* x202290 */ t28050.s0.tag = EXTERNAL_SYMBOL_TYPE; t28050.s0.value.external_symbol_type = q366; /* x202291 */ t28050.s1.tag = NULL_TYPE; /* x202292 */ t28049.s1.tag = STRUCTURE_TYPE24753; t28049.s1.value.structure_type24753 = &t28050; /* x202293 */ t28048.s0.tag = STRUCTURE_TYPE24753; t28048.s0.value.structure_type24753 = &t28049; /* x202294 */ t28052.s0.tag = EXTERNAL_SYMBOL_TYPE; t28052.s0.value.external_symbol_type = q367; /* x202295 */ t28053.s0.tag = EXTERNAL_SYMBOL_TYPE; t28053.s0.value.external_symbol_type = q367; /* x202296 */ t28053.s1.tag = NULL_TYPE; /* x202297 */ t28052.s1.tag = STRUCTURE_TYPE24753; t28052.s1.value.structure_type24753 = &t28053; /* x202298 */ t28051.s0.tag = STRUCTURE_TYPE24753; t28051.s0.value.structure_type24753 = &t28052; /* x202299 */ t28055.s0.tag = EXTERNAL_SYMBOL_TYPE; t28055.s0.value.external_symbol_type = q368; /* x202300 */ t28056.s0.tag = EXTERNAL_SYMBOL_TYPE; t28056.s0.value.external_symbol_type = q368; /* x202301 */ t28056.s1.tag = NULL_TYPE; /* x202302 */ t28055.s1.tag = STRUCTURE_TYPE24753; t28055.s1.value.structure_type24753 = &t28056; /* x202303 */ t28054.s0.tag = STRUCTURE_TYPE24753; t28054.s0.value.structure_type24753 = &t28055; /* x202304 */ t28058.s0.tag = EXTERNAL_SYMBOL_TYPE; t28058.s0.value.external_symbol_type = q369; /* x202305 */ t28059.s0.tag = EXTERNAL_SYMBOL_TYPE; t28059.s0.value.external_symbol_type = q369; /* x202306 */ t28059.s1.tag = NULL_TYPE; /* x202307 */ t28058.s1.tag = STRUCTURE_TYPE24753; t28058.s1.value.structure_type24753 = &t28059; /* x202308 */ t28057.s0.tag = STRUCTURE_TYPE24753; t28057.s0.value.structure_type24753 = &t28058; /* x202309 */ t28061.s0.tag = EXTERNAL_SYMBOL_TYPE; t28061.s0.value.external_symbol_type = q370; /* x202310 */ t28062.s0.tag = EXTERNAL_SYMBOL_TYPE; t28062.s0.value.external_symbol_type = q370; /* x202311 */ t28062.s1.tag = NULL_TYPE; /* x202312 */ t28061.s1.tag = STRUCTURE_TYPE24753; t28061.s1.value.structure_type24753 = &t28062; /* x202313 */ t28060.s0.tag = STRUCTURE_TYPE24753; t28060.s0.value.structure_type24753 = &t28061; /* x202314 */ t28064.s0.tag = EXTERNAL_SYMBOL_TYPE; t28064.s0.value.external_symbol_type = q371; /* x202315 */ t28065.s0.tag = EXTERNAL_SYMBOL_TYPE; t28065.s0.value.external_symbol_type = q371; /* x202316 */ t28065.s1.tag = NULL_TYPE; /* x202317 */ t28064.s1.tag = STRUCTURE_TYPE24753; t28064.s1.value.structure_type24753 = &t28065; /* x202318 */ t28063.s0.tag = STRUCTURE_TYPE24753; t28063.s0.value.structure_type24753 = &t28064; /* x202319 */ t28067.s0.tag = EXTERNAL_SYMBOL_TYPE; t28067.s0.value.external_symbol_type = q372; /* x202320 */ t28068.s0.tag = EXTERNAL_SYMBOL_TYPE; t28068.s0.value.external_symbol_type = q372; /* x202321 */ t28068.s1.tag = NULL_TYPE; /* x202322 */ t28067.s1.tag = STRUCTURE_TYPE24753; t28067.s1.value.structure_type24753 = &t28068; /* x202323 */ t28066.s0.tag = STRUCTURE_TYPE24753; t28066.s0.value.structure_type24753 = &t28067; /* x202324 */ t28070.s0.tag = EXTERNAL_SYMBOL_TYPE; t28070.s0.value.external_symbol_type = q373; /* x202325 */ t28071.s0.tag = EXTERNAL_SYMBOL_TYPE; t28071.s0.value.external_symbol_type = q373; /* x202326 */ t28071.s1.tag = NULL_TYPE; /* x202327 */ t28070.s1.tag = STRUCTURE_TYPE24753; t28070.s1.value.structure_type24753 = &t28071; /* x202328 */ t28069.s0.tag = STRUCTURE_TYPE24753; t28069.s0.value.structure_type24753 = &t28070; /* x202329 */ t28073.s0.tag = EXTERNAL_SYMBOL_TYPE; t28073.s0.value.external_symbol_type = q374; /* x202330 */ t28074.s0.tag = EXTERNAL_SYMBOL_TYPE; t28074.s0.value.external_symbol_type = q374; /* x202331 */ t28074.s1.tag = NULL_TYPE; /* x202332 */ t28073.s1.tag = STRUCTURE_TYPE24753; t28073.s1.value.structure_type24753 = &t28074; /* x202333 */ t28072.s0.tag = STRUCTURE_TYPE24753; t28072.s0.value.structure_type24753 = &t28073; /* x202334 */ t28076.s0.tag = EXTERNAL_SYMBOL_TYPE; t28076.s0.value.external_symbol_type = q375; /* x202335 */ t28077.s0.tag = EXTERNAL_SYMBOL_TYPE; t28077.s0.value.external_symbol_type = q375; /* x202336 */ t28077.s1.tag = NULL_TYPE; /* x202337 */ t28076.s1.tag = STRUCTURE_TYPE24753; t28076.s1.value.structure_type24753 = &t28077; /* x202338 */ t28075.s0.tag = STRUCTURE_TYPE24753; t28075.s0.value.structure_type24753 = &t28076; /* x202339 */ t28079.s0.tag = EXTERNAL_SYMBOL_TYPE; t28079.s0.value.external_symbol_type = q376; /* x202340 */ t28080.s0.tag = EXTERNAL_SYMBOL_TYPE; t28080.s0.value.external_symbol_type = q376; /* x202341 */ t28080.s1.tag = NULL_TYPE; /* x202342 */ t28079.s1.tag = STRUCTURE_TYPE24753; t28079.s1.value.structure_type24753 = &t28080; /* x202343 */ t28078.s0.tag = STRUCTURE_TYPE24753; t28078.s0.value.structure_type24753 = &t28079; /* x202344 */ t28082.s0.tag = EXTERNAL_SYMBOL_TYPE; t28082.s0.value.external_symbol_type = q377; /* x202345 */ t28083.s0.tag = EXTERNAL_SYMBOL_TYPE; t28083.s0.value.external_symbol_type = q377; /* x202346 */ t28083.s1.tag = NULL_TYPE; /* x202347 */ t28082.s1.tag = STRUCTURE_TYPE24753; t28082.s1.value.structure_type24753 = &t28083; /* x202348 */ t28081.s0.tag = STRUCTURE_TYPE24753; t28081.s0.value.structure_type24753 = &t28082; /* x202349 */ t28085.s0.tag = EXTERNAL_SYMBOL_TYPE; t28085.s0.value.external_symbol_type = q378; /* x202350 */ t28086.s0.tag = EXTERNAL_SYMBOL_TYPE; t28086.s0.value.external_symbol_type = q378; /* x202351 */ t28086.s1.tag = NULL_TYPE; /* x202352 */ t28085.s1.tag = STRUCTURE_TYPE24753; t28085.s1.value.structure_type24753 = &t28086; /* x202353 */ t28084.s0.tag = STRUCTURE_TYPE24753; t28084.s0.value.structure_type24753 = &t28085; /* x202354 */ t28088.s0.tag = EXTERNAL_SYMBOL_TYPE; t28088.s0.value.external_symbol_type = q379; /* x202355 */ t28089.s0.tag = EXTERNAL_SYMBOL_TYPE; t28089.s0.value.external_symbol_type = q379; /* x202356 */ t28089.s1.tag = NULL_TYPE; /* x202357 */ t28088.s1.tag = STRUCTURE_TYPE24753; t28088.s1.value.structure_type24753 = &t28089; /* x202358 */ t28087.s0.tag = STRUCTURE_TYPE24753; t28087.s0.value.structure_type24753 = &t28088; /* x202359 */ t28091.s0.tag = EXTERNAL_SYMBOL_TYPE; t28091.s0.value.external_symbol_type = q380; /* x202360 */ t28092.s0.tag = EXTERNAL_SYMBOL_TYPE; t28092.s0.value.external_symbol_type = q380; /* x202361 */ t28092.s1.tag = NULL_TYPE; /* x202362 */ t28091.s1.tag = STRUCTURE_TYPE24753; t28091.s1.value.structure_type24753 = &t28092; /* x202363 */ t28090.s0.tag = STRUCTURE_TYPE24753; t28090.s0.value.structure_type24753 = &t28091; /* x202364 */ t28094.s0.tag = EXTERNAL_SYMBOL_TYPE; t28094.s0.value.external_symbol_type = q381; /* x202365 */ t28095.s0.tag = EXTERNAL_SYMBOL_TYPE; t28095.s0.value.external_symbol_type = q381; /* x202366 */ t28095.s1.tag = NULL_TYPE; /* x202367 */ t28094.s1.tag = STRUCTURE_TYPE24753; t28094.s1.value.structure_type24753 = &t28095; /* x202368 */ t28093.s0.tag = STRUCTURE_TYPE24753; t28093.s0.value.structure_type24753 = &t28094; /* x202369 */ t28097.s0.tag = EXTERNAL_SYMBOL_TYPE; t28097.s0.value.external_symbol_type = q382; /* x202370 */ t28098.s0.tag = EXTERNAL_SYMBOL_TYPE; t28098.s0.value.external_symbol_type = q382; /* x202371 */ t28098.s1.tag = NULL_TYPE; /* x202372 */ t28097.s1.tag = STRUCTURE_TYPE24753; t28097.s1.value.structure_type24753 = &t28098; /* x202373 */ t28096.s0.tag = STRUCTURE_TYPE24753; t28096.s0.value.structure_type24753 = &t28097; /* x202374 */ t28100.s0.tag = EXTERNAL_SYMBOL_TYPE; t28100.s0.value.external_symbol_type = q383; /* x202375 */ t28101.s0.tag = EXTERNAL_SYMBOL_TYPE; t28101.s0.value.external_symbol_type = q383; /* x202376 */ t28101.s1.tag = NULL_TYPE; /* x202377 */ t28100.s1.tag = STRUCTURE_TYPE24753; t28100.s1.value.structure_type24753 = &t28101; /* x202378 */ t28099.s0.tag = STRUCTURE_TYPE24753; t28099.s0.value.structure_type24753 = &t28100; /* x202379 */ t28103.s0.tag = EXTERNAL_SYMBOL_TYPE; t28103.s0.value.external_symbol_type = q384; /* x202380 */ t28104.s0.tag = EXTERNAL_SYMBOL_TYPE; t28104.s0.value.external_symbol_type = q384; /* x202381 */ t28104.s1.tag = NULL_TYPE; /* x202382 */ t28103.s1.tag = STRUCTURE_TYPE24753; t28103.s1.value.structure_type24753 = &t28104; /* x202383 */ t28102.s0.tag = STRUCTURE_TYPE24753; t28102.s0.value.structure_type24753 = &t28103; /* x202384 */ t28106.s0.tag = EXTERNAL_SYMBOL_TYPE; t28106.s0.value.external_symbol_type = q385; /* x202385 */ t28107.s0.tag = EXTERNAL_SYMBOL_TYPE; t28107.s0.value.external_symbol_type = q385; /* x202386 */ t28107.s1.tag = NULL_TYPE; /* x202387 */ t28106.s1.tag = STRUCTURE_TYPE24753; t28106.s1.value.structure_type24753 = &t28107; /* x202388 */ t28105.s0.tag = STRUCTURE_TYPE24753; t28105.s0.value.structure_type24753 = &t28106; /* x202389 */ t28109.s0.tag = EXTERNAL_SYMBOL_TYPE; t28109.s0.value.external_symbol_type = q386; /* x202390 */ t28110.s0.tag = EXTERNAL_SYMBOL_TYPE; t28110.s0.value.external_symbol_type = q386; /* x202391 */ t28110.s1.tag = NULL_TYPE; /* x202392 */ t28109.s1.tag = STRUCTURE_TYPE24753; t28109.s1.value.structure_type24753 = &t28110; /* x202393 */ t28108.s0.tag = STRUCTURE_TYPE24753; t28108.s0.value.structure_type24753 = &t28109; /* x202394 */ t28112.s0.tag = EXTERNAL_SYMBOL_TYPE; t28112.s0.value.external_symbol_type = q387; /* x202395 */ t28113.s0.tag = EXTERNAL_SYMBOL_TYPE; t28113.s0.value.external_symbol_type = q387; /* x202396 */ t28113.s1.tag = NULL_TYPE; /* x202397 */ t28112.s1.tag = STRUCTURE_TYPE24753; t28112.s1.value.structure_type24753 = &t28113; /* x202398 */ t28111.s0.tag = STRUCTURE_TYPE24753; t28111.s0.value.structure_type24753 = &t28112; /* x202399 */ t28115.s0.tag = EXTERNAL_SYMBOL_TYPE; t28115.s0.value.external_symbol_type = q388; /* x202400 */ t28116.s0.tag = EXTERNAL_SYMBOL_TYPE; t28116.s0.value.external_symbol_type = q388; /* x202401 */ t28116.s1.tag = NULL_TYPE; /* x202402 */ t28115.s1.tag = STRUCTURE_TYPE24753; t28115.s1.value.structure_type24753 = &t28116; /* x202403 */ t28114.s0.tag = STRUCTURE_TYPE24753; t28114.s0.value.structure_type24753 = &t28115; /* x202404 */ t28118.s0.tag = EXTERNAL_SYMBOL_TYPE; t28118.s0.value.external_symbol_type = q389; /* x202405 */ t28119.s0.tag = EXTERNAL_SYMBOL_TYPE; t28119.s0.value.external_symbol_type = q389; /* x202406 */ t28119.s1.tag = NULL_TYPE; /* x202407 */ t28118.s1.tag = STRUCTURE_TYPE24753; t28118.s1.value.structure_type24753 = &t28119; /* x202408 */ t28117.s0.tag = STRUCTURE_TYPE24753; t28117.s0.value.structure_type24753 = &t28118; /* x202409 */ t28121.s0.tag = EXTERNAL_SYMBOL_TYPE; t28121.s0.value.external_symbol_type = q390; /* x202410 */ t28122.s0.tag = EXTERNAL_SYMBOL_TYPE; t28122.s0.value.external_symbol_type = q390; /* x202411 */ t28122.s1.tag = NULL_TYPE; /* x202412 */ t28121.s1.tag = STRUCTURE_TYPE24753; t28121.s1.value.structure_type24753 = &t28122; /* x202413 */ t28120.s0.tag = STRUCTURE_TYPE24753; t28120.s0.value.structure_type24753 = &t28121; /* x202414 */ t28124.s0.tag = EXTERNAL_SYMBOL_TYPE; t28124.s0.value.external_symbol_type = q111; /* x202415 */ t28125.s0.tag = EXTERNAL_SYMBOL_TYPE; t28125.s0.value.external_symbol_type = q111; /* x202416 */ t28125.s1.tag = NULL_TYPE; /* x202417 */ t28124.s1.tag = STRUCTURE_TYPE24753; t28124.s1.value.structure_type24753 = &t28125; /* x202418 */ t28123.s0.tag = STRUCTURE_TYPE24753; t28123.s0.value.structure_type24753 = &t28124; /* x202419 */ t28127.s0.tag = EXTERNAL_SYMBOL_TYPE; t28127.s0.value.external_symbol_type = q391; /* x202420 */ t28128.s0.tag = EXTERNAL_SYMBOL_TYPE; t28128.s0.value.external_symbol_type = q391; /* x202421 */ t28128.s1.tag = NULL_TYPE; /* x202422 */ t28127.s1.tag = STRUCTURE_TYPE24753; t28127.s1.value.structure_type24753 = &t28128; /* x202423 */ t28126.s0.tag = STRUCTURE_TYPE24753; t28126.s0.value.structure_type24753 = &t28127; /* x202424 */ t28130.s0.tag = EXTERNAL_SYMBOL_TYPE; t28130.s0.value.external_symbol_type = q1; /* x202425 */ t28131.s0.tag = EXTERNAL_SYMBOL_TYPE; t28131.s0.value.external_symbol_type = q1; /* x202426 */ t28131.s1.tag = NULL_TYPE; /* x202427 */ t28130.s1.tag = STRUCTURE_TYPE24753; t28130.s1.value.structure_type24753 = &t28131; /* x202428 */ t28129.s0.tag = STRUCTURE_TYPE24753; t28129.s0.value.structure_type24753 = &t28130; /* x202429 */ t28133.s0.tag = EXTERNAL_SYMBOL_TYPE; t28133.s0.value.external_symbol_type = q395; /* x202430 */ t28134.s0.tag = EXTERNAL_SYMBOL_TYPE; t28134.s0.value.external_symbol_type = q395; /* x202431 */ t28134.s1.tag = NULL_TYPE; /* x202432 */ t28133.s1.tag = STRUCTURE_TYPE24753; t28133.s1.value.structure_type24753 = &t28134; /* x202433 */ t28132.s0.tag = STRUCTURE_TYPE24753; t28132.s0.value.structure_type24753 = &t28133; /* x202434 */ t28136.s0.tag = EXTERNAL_SYMBOL_TYPE; t28136.s0.value.external_symbol_type = q396; /* x202435 */ t28137.s0.tag = EXTERNAL_SYMBOL_TYPE; t28137.s0.value.external_symbol_type = q396; /* x202436 */ t28137.s1.tag = NULL_TYPE; /* x202437 */ t28136.s1.tag = STRUCTURE_TYPE24753; t28136.s1.value.structure_type24753 = &t28137; /* x202438 */ t28135.s0.tag = STRUCTURE_TYPE24753; t28135.s0.value.structure_type24753 = &t28136; /* x202439 */ t28139.s0.tag = EXTERNAL_SYMBOL_TYPE; t28139.s0.value.external_symbol_type = q397; /* x202440 */ t28140.s0.tag = EXTERNAL_SYMBOL_TYPE; t28140.s0.value.external_symbol_type = q397; /* x202441 */ t28140.s1.tag = NULL_TYPE; /* x202442 */ t28139.s1.tag = STRUCTURE_TYPE24753; t28139.s1.value.structure_type24753 = &t28140; /* x202443 */ t28138.s0.tag = STRUCTURE_TYPE24753; t28138.s0.value.structure_type24753 = &t28139; /* x202444 */ t28142.s0.tag = EXTERNAL_SYMBOL_TYPE; t28142.s0.value.external_symbol_type = q400; /* x202445 */ t28143.s0.tag = EXTERNAL_SYMBOL_TYPE; t28143.s0.value.external_symbol_type = q400; /* x202446 */ t28143.s1.tag = NULL_TYPE; /* x202447 */ t28142.s1.tag = STRUCTURE_TYPE24753; t28142.s1.value.structure_type24753 = &t28143; /* x202448 */ t28141.s0.tag = STRUCTURE_TYPE24753; t28141.s0.value.structure_type24753 = &t28142; /* x202449 */ t28145.s0.tag = EXTERNAL_SYMBOL_TYPE; t28145.s0.value.external_symbol_type = q403; /* x202450 */ t28146.s0.tag = EXTERNAL_SYMBOL_TYPE; t28146.s0.value.external_symbol_type = q403; /* x202451 */ t28146.s1.tag = NULL_TYPE; /* x202452 */ t28145.s1.tag = STRUCTURE_TYPE24753; t28145.s1.value.structure_type24753 = &t28146; /* x202453 */ t28144.s0.tag = STRUCTURE_TYPE24753; t28144.s0.value.structure_type24753 = &t28145; /* x202454 */ t28148.s0.tag = EXTERNAL_SYMBOL_TYPE; t28148.s0.value.external_symbol_type = q407; /* x202455 */ t28149.s0.tag = EXTERNAL_SYMBOL_TYPE; t28149.s0.value.external_symbol_type = q407; /* x202456 */ t28149.s1.tag = NULL_TYPE; /* x202457 */ t28148.s1.tag = STRUCTURE_TYPE24753; t28148.s1.value.structure_type24753 = &t28149; /* x202458 */ t28147.s0.tag = STRUCTURE_TYPE24753; t28147.s0.value.structure_type24753 = &t28148; /* x202459 */ t28151.s0.tag = EXTERNAL_SYMBOL_TYPE; t28151.s0.value.external_symbol_type = q284; /* x202460 */ t28152.s0.tag = EXTERNAL_SYMBOL_TYPE; t28152.s0.value.external_symbol_type = q284; /* x202461 */ t28152.s1.tag = NULL_TYPE; /* x202462 */ t28151.s1.tag = STRUCTURE_TYPE24753; t28151.s1.value.structure_type24753 = &t28152; /* x202463 */ t28150.s0.tag = STRUCTURE_TYPE24753; t28150.s0.value.structure_type24753 = &t28151; /* x202464 */ t28154.s0.tag = EXTERNAL_SYMBOL_TYPE; t28154.s0.value.external_symbol_type = q412; /* x202465 */ t28155.s0.tag = EXTERNAL_SYMBOL_TYPE; t28155.s0.value.external_symbol_type = q412; /* x202466 */ t28155.s1.tag = NULL_TYPE; /* x202467 */ t28154.s1.tag = STRUCTURE_TYPE24753; t28154.s1.value.structure_type24753 = &t28155; /* x202468 */ t28153.s0.tag = STRUCTURE_TYPE24753; t28153.s0.value.structure_type24753 = &t28154; /* x202469 */ t28157.s0.tag = EXTERNAL_SYMBOL_TYPE; t28157.s0.value.external_symbol_type = q415; /* x202470 */ t28158.s0.tag = EXTERNAL_SYMBOL_TYPE; t28158.s0.value.external_symbol_type = q415; /* x202471 */ t28158.s1.tag = NULL_TYPE; /* x202472 */ t28157.s1.tag = STRUCTURE_TYPE24753; t28157.s1.value.structure_type24753 = &t28158; /* x202473 */ t28156.s0.tag = STRUCTURE_TYPE24753; t28156.s0.value.structure_type24753 = &t28157; /* x202474 */ t28160.s0.tag = EXTERNAL_SYMBOL_TYPE; t28160.s0.value.external_symbol_type = q416; /* x202475 */ t28161.s0.tag = EXTERNAL_SYMBOL_TYPE; t28161.s0.value.external_symbol_type = q416; /* x202476 */ t28161.s1.tag = NULL_TYPE; /* x202477 */ t28160.s1.tag = STRUCTURE_TYPE24753; t28160.s1.value.structure_type24753 = &t28161; /* x202478 */ t28159.s0.tag = STRUCTURE_TYPE24753; t28159.s0.value.structure_type24753 = &t28160; /* x202479 */ t28163.s0.tag = EXTERNAL_SYMBOL_TYPE; t28163.s0.value.external_symbol_type = q417; /* x202480 */ t28164.s0.tag = EXTERNAL_SYMBOL_TYPE; t28164.s0.value.external_symbol_type = q417; /* x202481 */ t28164.s1.tag = NULL_TYPE; /* x202482 */ t28163.s1.tag = STRUCTURE_TYPE24753; t28163.s1.value.structure_type24753 = &t28164; /* x202483 */ t28162.s0.tag = STRUCTURE_TYPE24753; t28162.s0.value.structure_type24753 = &t28163; /* x202484 */ t28166.s0.tag = EXTERNAL_SYMBOL_TYPE; t28166.s0.value.external_symbol_type = q418; /* x202485 */ t28167.s0.tag = EXTERNAL_SYMBOL_TYPE; t28167.s0.value.external_symbol_type = q418; /* x202486 */ t28167.s1.tag = NULL_TYPE; /* x202487 */ t28166.s1.tag = STRUCTURE_TYPE24753; t28166.s1.value.structure_type24753 = &t28167; /* x202488 */ t28165.s0.tag = STRUCTURE_TYPE24753; t28165.s0.value.structure_type24753 = &t28166; /* x202489 */ t28169.s0.tag = EXTERNAL_SYMBOL_TYPE; t28169.s0.value.external_symbol_type = q419; /* x202490 */ t28170.s0.tag = EXTERNAL_SYMBOL_TYPE; t28170.s0.value.external_symbol_type = q419; /* x202491 */ t28170.s1.tag = NULL_TYPE; /* x202492 */ t28169.s1.tag = STRUCTURE_TYPE24753; t28169.s1.value.structure_type24753 = &t28170; /* x202493 */ t28168.s0.tag = STRUCTURE_TYPE24753; t28168.s0.value.structure_type24753 = &t28169; /* x202494 */ t28172.s0.tag = EXTERNAL_SYMBOL_TYPE; t28172.s0.value.external_symbol_type = q420; /* x202495 */ t28173.s0.tag = EXTERNAL_SYMBOL_TYPE; t28173.s0.value.external_symbol_type = q420; /* x202496 */ t28173.s1.tag = NULL_TYPE; /* x202497 */ t28172.s1.tag = STRUCTURE_TYPE24753; t28172.s1.value.structure_type24753 = &t28173; /* x202498 */ t28171.s0.tag = STRUCTURE_TYPE24753; t28171.s0.value.structure_type24753 = &t28172; /* x202499 */ t28175.s0.tag = EXTERNAL_SYMBOL_TYPE; t28175.s0.value.external_symbol_type = q421; /* x202500 */ t28176.s0.tag = EXTERNAL_SYMBOL_TYPE; t28176.s0.value.external_symbol_type = q421; /* x202501 */ t28176.s1.tag = NULL_TYPE; /* x202502 */ t28175.s1.tag = STRUCTURE_TYPE24753; t28175.s1.value.structure_type24753 = &t28176; /* x202503 */ t28174.s0.tag = STRUCTURE_TYPE24753; t28174.s0.value.structure_type24753 = &t28175; /* x202504 */ t28178.s0.tag = EXTERNAL_SYMBOL_TYPE; t28178.s0.value.external_symbol_type = q423; /* x202505 */ t28179.s0.tag = EXTERNAL_SYMBOL_TYPE; t28179.s0.value.external_symbol_type = q423; /* x202506 */ t28179.s1.tag = NULL_TYPE; /* x202507 */ t28178.s1.tag = STRUCTURE_TYPE24753; t28178.s1.value.structure_type24753 = &t28179; /* x202508 */ t28177.s0.tag = STRUCTURE_TYPE24753; t28177.s0.value.structure_type24753 = &t28178; /* x202509 */ t28181.s0.tag = EXTERNAL_SYMBOL_TYPE; t28181.s0.value.external_symbol_type = q424; /* x202510 */ t28182.s0.tag = EXTERNAL_SYMBOL_TYPE; t28182.s0.value.external_symbol_type = q424; /* x202511 */ t28182.s1.tag = NULL_TYPE; /* x202512 */ t28181.s1.tag = STRUCTURE_TYPE24753; t28181.s1.value.structure_type24753 = &t28182; /* x202513 */ t28180.s0.tag = STRUCTURE_TYPE24753; t28180.s0.value.structure_type24753 = &t28181; /* x202514 */ t28184.s0.tag = EXTERNAL_SYMBOL_TYPE; t28184.s0.value.external_symbol_type = q425; /* x202515 */ t28185.s0.tag = EXTERNAL_SYMBOL_TYPE; t28185.s0.value.external_symbol_type = q425; /* x202516 */ t28185.s1.tag = NULL_TYPE; /* x202517 */ t28184.s1.tag = STRUCTURE_TYPE24753; t28184.s1.value.structure_type24753 = &t28185; /* x202518 */ t28183.s0.tag = STRUCTURE_TYPE24753; t28183.s0.value.structure_type24753 = &t28184; /* x202519 */ t28187.s0.tag = EXTERNAL_SYMBOL_TYPE; t28187.s0.value.external_symbol_type = q426; /* x202520 */ t28188.s0.tag = EXTERNAL_SYMBOL_TYPE; t28188.s0.value.external_symbol_type = q426; /* x202521 */ t28188.s1.tag = NULL_TYPE; /* x202522 */ t28187.s1.tag = STRUCTURE_TYPE24753; t28187.s1.value.structure_type24753 = &t28188; /* x202523 */ t28186.s0.tag = STRUCTURE_TYPE24753; t28186.s0.value.structure_type24753 = &t28187; /* x202524 */ t28190.s0.tag = EXTERNAL_SYMBOL_TYPE; t28190.s0.value.external_symbol_type = q427; /* x202525 */ t28191.s0.tag = EXTERNAL_SYMBOL_TYPE; t28191.s0.value.external_symbol_type = q427; /* x202526 */ t28191.s1.tag = NULL_TYPE; /* x202527 */ t28190.s1.tag = STRUCTURE_TYPE24753; t28190.s1.value.structure_type24753 = &t28191; /* x202528 */ t28189.s0.tag = STRUCTURE_TYPE24753; t28189.s0.value.structure_type24753 = &t28190; /* x202529 */ t28193.s0.tag = EXTERNAL_SYMBOL_TYPE; t28193.s0.value.external_symbol_type = q428; /* x202530 */ t28194.s0.tag = EXTERNAL_SYMBOL_TYPE; t28194.s0.value.external_symbol_type = q428; /* x202531 */ t28194.s1.tag = NULL_TYPE; /* x202532 */ t28193.s1.tag = STRUCTURE_TYPE24753; t28193.s1.value.structure_type24753 = &t28194; /* x202533 */ t28192.s0.tag = STRUCTURE_TYPE24753; t28192.s0.value.structure_type24753 = &t28193; /* x202534 */ t28196.s0.tag = EXTERNAL_SYMBOL_TYPE; t28196.s0.value.external_symbol_type = q431; /* x202535 */ t28197.s0.tag = EXTERNAL_SYMBOL_TYPE; t28197.s0.value.external_symbol_type = q431; /* x202536 */ t28197.s1.tag = NULL_TYPE; /* x202537 */ t28196.s1.tag = STRUCTURE_TYPE24753; t28196.s1.value.structure_type24753 = &t28197; /* x202538 */ t28195.s0.tag = STRUCTURE_TYPE24753; t28195.s0.value.structure_type24753 = &t28196; /* x202539 */ t28199.s0.tag = EXTERNAL_SYMBOL_TYPE; t28199.s0.value.external_symbol_type = q432; /* x202540 */ t28200.s0.tag = EXTERNAL_SYMBOL_TYPE; t28200.s0.value.external_symbol_type = q432; /* x202541 */ t28200.s1.tag = NULL_TYPE; /* x202542 */ t28199.s1.tag = STRUCTURE_TYPE24753; t28199.s1.value.structure_type24753 = &t28200; /* x202543 */ t28198.s0.tag = STRUCTURE_TYPE24753; t28198.s0.value.structure_type24753 = &t28199; /* x202544 */ t28202.s0.tag = EXTERNAL_SYMBOL_TYPE; t28202.s0.value.external_symbol_type = q112; /* x202545 */ t28203.s0.tag = EXTERNAL_SYMBOL_TYPE; t28203.s0.value.external_symbol_type = q112; /* x202546 */ t28203.s1.tag = NULL_TYPE; /* x202547 */ t28202.s1.tag = STRUCTURE_TYPE24753; t28202.s1.value.structure_type24753 = &t28203; /* x202548 */ t28201.s0.tag = STRUCTURE_TYPE24753; t28201.s0.value.structure_type24753 = &t28202; /* x202549 */ t28205.s0.tag = EXTERNAL_SYMBOL_TYPE; t28205.s0.value.external_symbol_type = q113; /* x202550 */ t28206.s0.tag = EXTERNAL_SYMBOL_TYPE; t28206.s0.value.external_symbol_type = q113; /* x202551 */ t28206.s1.tag = NULL_TYPE; /* x202552 */ t28205.s1.tag = STRUCTURE_TYPE24753; t28205.s1.value.structure_type24753 = &t28206; /* x202553 */ t28204.s0.tag = STRUCTURE_TYPE24753; t28204.s0.value.structure_type24753 = &t28205; /* x202554 */ t28208.s0.tag = EXTERNAL_SYMBOL_TYPE; t28208.s0.value.external_symbol_type = q114; /* x202555 */ t28209.s0.tag = EXTERNAL_SYMBOL_TYPE; t28209.s0.value.external_symbol_type = q114; /* x202556 */ t28209.s1.tag = NULL_TYPE; /* x202557 */ t28208.s1.tag = STRUCTURE_TYPE24753; t28208.s1.value.structure_type24753 = &t28209; /* x202558 */ t28207.s0.tag = STRUCTURE_TYPE24753; t28207.s0.value.structure_type24753 = &t28208; /* x202559 */ t28211.s0.tag = EXTERNAL_SYMBOL_TYPE; t28211.s0.value.external_symbol_type = q282; /* x202560 */ t28212.s0.tag = EXTERNAL_SYMBOL_TYPE; t28212.s0.value.external_symbol_type = q282; /* x202561 */ t28212.s1.tag = NULL_TYPE; /* x202562 */ t28211.s1.tag = STRUCTURE_TYPE24753; t28211.s1.value.structure_type24753 = &t28212; /* x202563 */ t28210.s0.tag = STRUCTURE_TYPE24753; t28210.s0.value.structure_type24753 = &t28211; /* x202564 */ t28214.s0.tag = EXTERNAL_SYMBOL_TYPE; t28214.s0.value.external_symbol_type = q115; /* x202565 */ t28215.s0.tag = EXTERNAL_SYMBOL_TYPE; t28215.s0.value.external_symbol_type = q115; /* x202566 */ t28215.s1.tag = NULL_TYPE; /* x202567 */ t28214.s1.tag = STRUCTURE_TYPE24753; t28214.s1.value.structure_type24753 = &t28215; /* x202568 */ t28213.s0.tag = STRUCTURE_TYPE24753; t28213.s0.value.structure_type24753 = &t28214; /* x202569 */ t28217.s0.tag = EXTERNAL_SYMBOL_TYPE; t28217.s0.value.external_symbol_type = q437; /* x202570 */ t28218.s0.tag = EXTERNAL_SYMBOL_TYPE; t28218.s0.value.external_symbol_type = q437; /* x202571 */ t28218.s1.tag = NULL_TYPE; /* x202572 */ t28217.s1.tag = STRUCTURE_TYPE24753; t28217.s1.value.structure_type24753 = &t28218; /* x202573 */ t28216.s0.tag = STRUCTURE_TYPE24753; t28216.s0.value.structure_type24753 = &t28217; /* x202574 */ t28220.s0.tag = EXTERNAL_SYMBOL_TYPE; t28220.s0.value.external_symbol_type = q116; /* x202575 */ t28221.s0.tag = EXTERNAL_SYMBOL_TYPE; t28221.s0.value.external_symbol_type = q116; /* x202576 */ t28221.s1.tag = NULL_TYPE; /* x202577 */ t28220.s1.tag = STRUCTURE_TYPE24753; t28220.s1.value.structure_type24753 = &t28221; /* x202578 */ t28219.s0.tag = STRUCTURE_TYPE24753; t28219.s0.value.structure_type24753 = &t28220; /* x202579 */ t28223.s0.tag = EXTERNAL_SYMBOL_TYPE; t28223.s0.value.external_symbol_type = q438; /* x202580 */ t28224.s0.tag = EXTERNAL_SYMBOL_TYPE; t28224.s0.value.external_symbol_type = q438; /* x202581 */ t28224.s1.tag = NULL_TYPE; /* x202582 */ t28223.s1.tag = STRUCTURE_TYPE24753; t28223.s1.value.structure_type24753 = &t28224; /* x202583 */ t28222.s0.tag = STRUCTURE_TYPE24753; t28222.s0.value.structure_type24753 = &t28223; /* x202584 */ t28226.s0.tag = EXTERNAL_SYMBOL_TYPE; t28226.s0.value.external_symbol_type = q117; /* x202585 */ t28227.s0.tag = EXTERNAL_SYMBOL_TYPE; t28227.s0.value.external_symbol_type = q117; /* x202586 */ t28227.s1.tag = NULL_TYPE; /* x202587 */ t28226.s1.tag = STRUCTURE_TYPE24753; t28226.s1.value.structure_type24753 = &t28227; /* x202588 */ t28225.s0.tag = STRUCTURE_TYPE24753; t28225.s0.value.structure_type24753 = &t28226; /* x202589 */ t28229.s0.tag = EXTERNAL_SYMBOL_TYPE; t28229.s0.value.external_symbol_type = q118; /* x202590 */ t28230.s0.tag = EXTERNAL_SYMBOL_TYPE; t28230.s0.value.external_symbol_type = q118; /* x202591 */ t28230.s1.tag = NULL_TYPE; /* x202592 */ t28229.s1.tag = STRUCTURE_TYPE24753; t28229.s1.value.structure_type24753 = &t28230; /* x202593 */ t28228.s0.tag = STRUCTURE_TYPE24753; t28228.s0.value.structure_type24753 = &t28229; /* x202594 */ t28232.s0.tag = EXTERNAL_SYMBOL_TYPE; t28232.s0.value.external_symbol_type = q119; /* x202595 */ t28233.s0.tag = EXTERNAL_SYMBOL_TYPE; t28233.s0.value.external_symbol_type = q119; /* x202596 */ t28233.s1.tag = NULL_TYPE; /* x202597 */ t28232.s1.tag = STRUCTURE_TYPE24753; t28232.s1.value.structure_type24753 = &t28233; /* x202598 */ t28231.s0.tag = STRUCTURE_TYPE24753; t28231.s0.value.structure_type24753 = &t28232; /* x202599 */ t28235.s0.tag = EXTERNAL_SYMBOL_TYPE; t28235.s0.value.external_symbol_type = q120; /* x202600 */ t28236.s0.tag = EXTERNAL_SYMBOL_TYPE; t28236.s0.value.external_symbol_type = q120; /* x202601 */ t28236.s1.tag = NULL_TYPE; /* x202602 */ t28235.s1.tag = STRUCTURE_TYPE24753; t28235.s1.value.structure_type24753 = &t28236; /* x202603 */ t28234.s0.tag = STRUCTURE_TYPE24753; t28234.s0.value.structure_type24753 = &t28235; /* x202604 */ t28238.s0.tag = EXTERNAL_SYMBOL_TYPE; t28238.s0.value.external_symbol_type = q121; /* x202605 */ t28239.s0.tag = EXTERNAL_SYMBOL_TYPE; t28239.s0.value.external_symbol_type = q121; /* x202606 */ t28239.s1.tag = NULL_TYPE; /* x202607 */ t28238.s1.tag = STRUCTURE_TYPE24753; t28238.s1.value.structure_type24753 = &t28239; /* x202608 */ t28237.s0.tag = STRUCTURE_TYPE24753; t28237.s0.value.structure_type24753 = &t28238; /* x202609 */ t28241.s0.tag = EXTERNAL_SYMBOL_TYPE; t28241.s0.value.external_symbol_type = q122; /* x202610 */ t28242.s0.tag = EXTERNAL_SYMBOL_TYPE; t28242.s0.value.external_symbol_type = q122; /* x202611 */ t28242.s1.tag = NULL_TYPE; /* x202612 */ t28241.s1.tag = STRUCTURE_TYPE24753; t28241.s1.value.structure_type24753 = &t28242; /* x202613 */ t28240.s0.tag = STRUCTURE_TYPE24753; t28240.s0.value.structure_type24753 = &t28241; /* x202614 */ t28244.s0.tag = EXTERNAL_SYMBOL_TYPE; t28244.s0.value.external_symbol_type = q123; /* x202615 */ t28245.s0.tag = EXTERNAL_SYMBOL_TYPE; t28245.s0.value.external_symbol_type = q123; /* x202616 */ t28245.s1.tag = NULL_TYPE; /* x202617 */ t28244.s1.tag = STRUCTURE_TYPE24753; t28244.s1.value.structure_type24753 = &t28245; /* x202618 */ t28243.s0.tag = STRUCTURE_TYPE24753; t28243.s0.value.structure_type24753 = &t28244; /* x202619 */ t28247.s0.tag = EXTERNAL_SYMBOL_TYPE; t28247.s0.value.external_symbol_type = q124; /* x202620 */ t28248.s0.tag = EXTERNAL_SYMBOL_TYPE; t28248.s0.value.external_symbol_type = q124; /* x202621 */ t28248.s1.tag = NULL_TYPE; /* x202622 */ t28247.s1.tag = STRUCTURE_TYPE24753; t28247.s1.value.structure_type24753 = &t28248; /* x202623 */ t28246.s0.tag = STRUCTURE_TYPE24753; t28246.s0.value.structure_type24753 = &t28247; /* x202624 */ t28250.s0.tag = EXTERNAL_SYMBOL_TYPE; t28250.s0.value.external_symbol_type = q125; /* x202625 */ t28251.s0.tag = EXTERNAL_SYMBOL_TYPE; t28251.s0.value.external_symbol_type = q125; /* x202626 */ t28251.s1.tag = NULL_TYPE; /* x202627 */ t28250.s1.tag = STRUCTURE_TYPE24753; t28250.s1.value.structure_type24753 = &t28251; /* x202628 */ t28249.s0.tag = STRUCTURE_TYPE24753; t28249.s0.value.structure_type24753 = &t28250; /* x202629 */ t28253.s0.tag = EXTERNAL_SYMBOL_TYPE; t28253.s0.value.external_symbol_type = q126; /* x202630 */ t28254.s0.tag = EXTERNAL_SYMBOL_TYPE; t28254.s0.value.external_symbol_type = q126; /* x202631 */ t28254.s1.tag = NULL_TYPE; /* x202632 */ t28253.s1.tag = STRUCTURE_TYPE24753; t28253.s1.value.structure_type24753 = &t28254; /* x202633 */ t28252.s0.tag = STRUCTURE_TYPE24753; t28252.s0.value.structure_type24753 = &t28253; /* x202634 */ t28256.s0.tag = EXTERNAL_SYMBOL_TYPE; t28256.s0.value.external_symbol_type = q127; /* x202635 */ t28257.s0.tag = EXTERNAL_SYMBOL_TYPE; t28257.s0.value.external_symbol_type = q127; /* x202636 */ t28257.s1.tag = NULL_TYPE; /* x202637 */ t28256.s1.tag = STRUCTURE_TYPE24753; t28256.s1.value.structure_type24753 = &t28257; /* x202638 */ t28255.s0.tag = STRUCTURE_TYPE24753; t28255.s0.value.structure_type24753 = &t28256; /* x202639 */ t28259.s0.tag = EXTERNAL_SYMBOL_TYPE; t28259.s0.value.external_symbol_type = q446; /* x202640 */ t28260.s0.tag = EXTERNAL_SYMBOL_TYPE; t28260.s0.value.external_symbol_type = q446; /* x202641 */ t28260.s1.tag = NULL_TYPE; /* x202642 */ t28259.s1.tag = STRUCTURE_TYPE24753; t28259.s1.value.structure_type24753 = &t28260; /* x202643 */ t28258.s0.tag = STRUCTURE_TYPE24753; t28258.s0.value.structure_type24753 = &t28259; /* x202644 */ t28262.s0.tag = EXTERNAL_SYMBOL_TYPE; t28262.s0.value.external_symbol_type = q447; /* x202645 */ t28263.s0.tag = EXTERNAL_SYMBOL_TYPE; t28263.s0.value.external_symbol_type = q447; /* x202646 */ t28263.s1.tag = NULL_TYPE; /* x202647 */ t28262.s1.tag = STRUCTURE_TYPE24753; t28262.s1.value.structure_type24753 = &t28263; /* x202648 */ t28261.s0.tag = STRUCTURE_TYPE24753; t28261.s0.value.structure_type24753 = &t28262; /* x202649 */ t28265.s0.tag = EXTERNAL_SYMBOL_TYPE; t28265.s0.value.external_symbol_type = q128; /* x202650 */ t28266.s0.tag = EXTERNAL_SYMBOL_TYPE; t28266.s0.value.external_symbol_type = q128; /* x202651 */ t28266.s1.tag = NULL_TYPE; /* x202652 */ t28265.s1.tag = STRUCTURE_TYPE24753; t28265.s1.value.structure_type24753 = &t28266; /* x202653 */ t28264.s0.tag = STRUCTURE_TYPE24753; t28264.s0.value.structure_type24753 = &t28265; /* x202654 */ t28268.s0.tag = EXTERNAL_SYMBOL_TYPE; t28268.s0.value.external_symbol_type = q129; /* x202655 */ t28269.s0.tag = EXTERNAL_SYMBOL_TYPE; t28269.s0.value.external_symbol_type = q129; /* x202656 */ t28269.s1.tag = NULL_TYPE; /* x202657 */ t28268.s1.tag = STRUCTURE_TYPE24753; t28268.s1.value.structure_type24753 = &t28269; /* x202658 */ t28267.s0.tag = STRUCTURE_TYPE24753; t28267.s0.value.structure_type24753 = &t28268; /* x202659 */ t28271.s0.tag = EXTERNAL_SYMBOL_TYPE; t28271.s0.value.external_symbol_type = q4; /* x202660 */ t28272.s0.tag = EXTERNAL_SYMBOL_TYPE; t28272.s0.value.external_symbol_type = q4; /* x202661 */ t28272.s1.tag = NULL_TYPE; /* x202662 */ t28271.s1.tag = STRUCTURE_TYPE24753; t28271.s1.value.structure_type24753 = &t28272; /* x202663 */ t28270.s0.tag = STRUCTURE_TYPE24753; t28270.s0.value.structure_type24753 = &t28271; /* x202664 */ t28274.s0.tag = EXTERNAL_SYMBOL_TYPE; t28274.s0.value.external_symbol_type = q130; /* x202665 */ t28275.s0.tag = EXTERNAL_SYMBOL_TYPE; t28275.s0.value.external_symbol_type = q130; /* x202666 */ t28275.s1.tag = NULL_TYPE; /* x202667 */ t28274.s1.tag = STRUCTURE_TYPE24753; t28274.s1.value.structure_type24753 = &t28275; /* x202668 */ t28273.s0.tag = STRUCTURE_TYPE24753; t28273.s0.value.structure_type24753 = &t28274; /* x202669 */ t28277.s0.tag = EXTERNAL_SYMBOL_TYPE; t28277.s0.value.external_symbol_type = q2; /* x202670 */ t28278.s0.tag = EXTERNAL_SYMBOL_TYPE; t28278.s0.value.external_symbol_type = q2; /* x202671 */ t28278.s1.tag = NULL_TYPE; /* x202672 */ t28277.s1.tag = STRUCTURE_TYPE24753; t28277.s1.value.structure_type24753 = &t28278; /* x202673 */ t28276.s0.tag = STRUCTURE_TYPE24753; t28276.s0.value.structure_type24753 = &t28277; /* x202674 */ t28280.s0.tag = EXTERNAL_SYMBOL_TYPE; t28280.s0.value.external_symbol_type = q131; /* x202675 */ t28281.s0.tag = EXTERNAL_SYMBOL_TYPE; t28281.s0.value.external_symbol_type = q131; /* x202676 */ t28281.s1.tag = NULL_TYPE; /* x202677 */ t28280.s1.tag = STRUCTURE_TYPE24753; t28280.s1.value.structure_type24753 = &t28281; /* x202678 */ t28279.s0.tag = STRUCTURE_TYPE24753; t28279.s0.value.structure_type24753 = &t28280; /* x202679 */ t28283.s0.tag = EXTERNAL_SYMBOL_TYPE; t28283.s0.value.external_symbol_type = q448; /* x202680 */ t28284.s0.tag = EXTERNAL_SYMBOL_TYPE; t28284.s0.value.external_symbol_type = q448; /* x202681 */ t28284.s1.tag = NULL_TYPE; /* x202682 */ t28283.s1.tag = STRUCTURE_TYPE24753; t28283.s1.value.structure_type24753 = &t28284; /* x202683 */ t28282.s0.tag = STRUCTURE_TYPE24753; t28282.s0.value.structure_type24753 = &t28283; /* x202684 */ t28286.s0.tag = EXTERNAL_SYMBOL_TYPE; t28286.s0.value.external_symbol_type = q132; /* x202685 */ t28287.s0.tag = EXTERNAL_SYMBOL_TYPE; t28287.s0.value.external_symbol_type = q132; /* x202686 */ t28287.s1.tag = NULL_TYPE; /* x202687 */ t28286.s1.tag = STRUCTURE_TYPE24753; t28286.s1.value.structure_type24753 = &t28287; /* x202688 */ t28285.s0.tag = STRUCTURE_TYPE24753; t28285.s0.value.structure_type24753 = &t28286; /* x202689 */ t28289.s0.tag = EXTERNAL_SYMBOL_TYPE; t28289.s0.value.external_symbol_type = q133; /* x202690 */ t28290.s0.tag = EXTERNAL_SYMBOL_TYPE; t28290.s0.value.external_symbol_type = q133; /* x202691 */ t28290.s1.tag = NULL_TYPE; /* x202692 */ t28289.s1.tag = STRUCTURE_TYPE24753; t28289.s1.value.structure_type24753 = &t28290; /* x202693 */ t28288.s0.tag = STRUCTURE_TYPE24753; t28288.s0.value.structure_type24753 = &t28289; /* x202694 */ t28292.s0.tag = EXTERNAL_SYMBOL_TYPE; t28292.s0.value.external_symbol_type = q451; /* x202695 */ t28293.s0.tag = EXTERNAL_SYMBOL_TYPE; t28293.s0.value.external_symbol_type = q451; /* x202696 */ t28293.s1.tag = NULL_TYPE; /* x202697 */ t28292.s1.tag = STRUCTURE_TYPE24753; t28292.s1.value.structure_type24753 = &t28293; /* x202698 */ t28291.s0.tag = STRUCTURE_TYPE24753; t28291.s0.value.structure_type24753 = &t28292; /* x202699 */ t28295.s0.tag = EXTERNAL_SYMBOL_TYPE; t28295.s0.value.external_symbol_type = q452; /* x202700 */ t28296.s0.tag = EXTERNAL_SYMBOL_TYPE; t28296.s0.value.external_symbol_type = q452; /* x202701 */ t28296.s1.tag = NULL_TYPE; /* x202702 */ t28295.s1.tag = STRUCTURE_TYPE24753; t28295.s1.value.structure_type24753 = &t28296; /* x202703 */ t28294.s0.tag = STRUCTURE_TYPE24753; t28294.s0.value.structure_type24753 = &t28295; /* x202704 */ t28298.s0.tag = EXTERNAL_SYMBOL_TYPE; t28298.s0.value.external_symbol_type = q455; /* x202705 */ t28299.s0.tag = EXTERNAL_SYMBOL_TYPE; t28299.s0.value.external_symbol_type = q455; /* x202706 */ t28299.s1.tag = NULL_TYPE; /* x202707 */ t28298.s1.tag = STRUCTURE_TYPE24753; t28298.s1.value.structure_type24753 = &t28299; /* x202708 */ t28297.s0.tag = STRUCTURE_TYPE24753; t28297.s0.value.structure_type24753 = &t28298; /* x202709 */ t28301.s0.tag = EXTERNAL_SYMBOL_TYPE; t28301.s0.value.external_symbol_type = q134; /* x202710 */ t28302.s0.tag = EXTERNAL_SYMBOL_TYPE; t28302.s0.value.external_symbol_type = q134; /* x202711 */ t28302.s1.tag = NULL_TYPE; /* x202712 */ t28301.s1.tag = STRUCTURE_TYPE24753; t28301.s1.value.structure_type24753 = &t28302; /* x202713 */ t28300.s0.tag = STRUCTURE_TYPE24753; t28300.s0.value.structure_type24753 = &t28301; /* x202714 */ t28304.s0.tag = EXTERNAL_SYMBOL_TYPE; t28304.s0.value.external_symbol_type = q135; /* x202715 */ t28305.s0.tag = EXTERNAL_SYMBOL_TYPE; t28305.s0.value.external_symbol_type = q135; /* x202716 */ t28305.s1.tag = NULL_TYPE; /* x202717 */ t28304.s1.tag = STRUCTURE_TYPE24753; t28304.s1.value.structure_type24753 = &t28305; /* x202718 */ t28303.s0.tag = STRUCTURE_TYPE24753; t28303.s0.value.structure_type24753 = &t28304; /* x202719 */ t28307.s0.tag = EXTERNAL_SYMBOL_TYPE; t28307.s0.value.external_symbol_type = q136; /* x202720 */ t28308.s0.tag = EXTERNAL_SYMBOL_TYPE; t28308.s0.value.external_symbol_type = q136; /* x202721 */ t28308.s1.tag = NULL_TYPE; /* x202722 */ t28307.s1.tag = STRUCTURE_TYPE24753; t28307.s1.value.structure_type24753 = &t28308; /* x202723 */ t28306.s0.tag = STRUCTURE_TYPE24753; t28306.s0.value.structure_type24753 = &t28307; /* x202724 */ t28310.s0.tag = EXTERNAL_SYMBOL_TYPE; t28310.s0.value.external_symbol_type = q137; /* x202725 */ t28311.s0.tag = EXTERNAL_SYMBOL_TYPE; t28311.s0.value.external_symbol_type = q137; /* x202726 */ t28311.s1.tag = NULL_TYPE; /* x202727 */ t28310.s1.tag = STRUCTURE_TYPE24753; t28310.s1.value.structure_type24753 = &t28311; /* x202728 */ t28309.s0.tag = STRUCTURE_TYPE24753; t28309.s0.value.structure_type24753 = &t28310; /* x202729 */ t28313.s0.tag = EXTERNAL_SYMBOL_TYPE; t28313.s0.value.external_symbol_type = q138; /* x202730 */ t28314.s0.tag = EXTERNAL_SYMBOL_TYPE; t28314.s0.value.external_symbol_type = q138; /* x202731 */ t28314.s1.tag = NULL_TYPE; /* x202732 */ t28313.s1.tag = STRUCTURE_TYPE24753; t28313.s1.value.structure_type24753 = &t28314; /* x202733 */ t28312.s0.tag = STRUCTURE_TYPE24753; t28312.s0.value.structure_type24753 = &t28313; /* x202734 */ t28316.s0.tag = EXTERNAL_SYMBOL_TYPE; t28316.s0.value.external_symbol_type = q139; /* x202735 */ t28317.s0.tag = EXTERNAL_SYMBOL_TYPE; t28317.s0.value.external_symbol_type = q139; /* x202736 */ t28317.s1.tag = NULL_TYPE; /* x202737 */ t28316.s1.tag = STRUCTURE_TYPE24753; t28316.s1.value.structure_type24753 = &t28317; /* x202738 */ t28315.s0.tag = STRUCTURE_TYPE24753; t28315.s0.value.structure_type24753 = &t28316; /* x202739 */ t28319.s0.tag = EXTERNAL_SYMBOL_TYPE; t28319.s0.value.external_symbol_type = q140; /* x202740 */ t28320.s0.tag = EXTERNAL_SYMBOL_TYPE; t28320.s0.value.external_symbol_type = q140; /* x202741 */ t28320.s1.tag = NULL_TYPE; /* x202742 */ t28319.s1.tag = STRUCTURE_TYPE24753; t28319.s1.value.structure_type24753 = &t28320; /* x202743 */ t28318.s0.tag = STRUCTURE_TYPE24753; t28318.s0.value.structure_type24753 = &t28319; /* x202744 */ t28322.s0.tag = EXTERNAL_SYMBOL_TYPE; t28322.s0.value.external_symbol_type = q141; /* x202745 */ t28323.s0.tag = EXTERNAL_SYMBOL_TYPE; t28323.s0.value.external_symbol_type = q141; /* x202746 */ t28323.s1.tag = NULL_TYPE; /* x202747 */ t28322.s1.tag = STRUCTURE_TYPE24753; t28322.s1.value.structure_type24753 = &t28323; /* x202748 */ t28321.s0.tag = STRUCTURE_TYPE24753; t28321.s0.value.structure_type24753 = &t28322; /* x202749 */ t28325.s0.tag = EXTERNAL_SYMBOL_TYPE; t28325.s0.value.external_symbol_type = q142; /* x202750 */ t28326.s0.tag = EXTERNAL_SYMBOL_TYPE; t28326.s0.value.external_symbol_type = q142; /* x202751 */ t28326.s1.tag = NULL_TYPE; /* x202752 */ t28325.s1.tag = STRUCTURE_TYPE24753; t28325.s1.value.structure_type24753 = &t28326; /* x202753 */ t28324.s0.tag = STRUCTURE_TYPE24753; t28324.s0.value.structure_type24753 = &t28325; /* x202754 */ t28328.s0.tag = EXTERNAL_SYMBOL_TYPE; t28328.s0.value.external_symbol_type = q143; /* x202755 */ t28329.s0.tag = EXTERNAL_SYMBOL_TYPE; t28329.s0.value.external_symbol_type = q143; /* x202756 */ t28329.s1.tag = NULL_TYPE; /* x202757 */ t28328.s1.tag = STRUCTURE_TYPE24753; t28328.s1.value.structure_type24753 = &t28329; /* x202758 */ t28327.s0.tag = STRUCTURE_TYPE24753; t28327.s0.value.structure_type24753 = &t28328; /* x202759 */ t28331.s0.tag = EXTERNAL_SYMBOL_TYPE; t28331.s0.value.external_symbol_type = q144; /* x202760 */ t28332.s0.tag = EXTERNAL_SYMBOL_TYPE; t28332.s0.value.external_symbol_type = q144; /* x202761 */ t28332.s1.tag = NULL_TYPE; /* x202762 */ t28331.s1.tag = STRUCTURE_TYPE24753; t28331.s1.value.structure_type24753 = &t28332; /* x202763 */ t28330.s0.tag = STRUCTURE_TYPE24753; t28330.s0.value.structure_type24753 = &t28331; /* x202764 */ t28334.s0.tag = EXTERNAL_SYMBOL_TYPE; t28334.s0.value.external_symbol_type = q145; /* x202765 */ t28335.s0.tag = EXTERNAL_SYMBOL_TYPE; t28335.s0.value.external_symbol_type = q145; /* x202766 */ t28335.s1.tag = NULL_TYPE; /* x202767 */ t28334.s1.tag = STRUCTURE_TYPE24753; t28334.s1.value.structure_type24753 = &t28335; /* x202768 */ t28333.s0.tag = STRUCTURE_TYPE24753; t28333.s0.value.structure_type24753 = &t28334; /* x202769 */ t28337.s0.tag = EXTERNAL_SYMBOL_TYPE; t28337.s0.value.external_symbol_type = q146; /* x202770 */ t28338.s0.tag = EXTERNAL_SYMBOL_TYPE; t28338.s0.value.external_symbol_type = q146; /* x202771 */ t28338.s1.tag = NULL_TYPE; /* x202772 */ t28337.s1.tag = STRUCTURE_TYPE24753; t28337.s1.value.structure_type24753 = &t28338; /* x202773 */ t28336.s0.tag = STRUCTURE_TYPE24753; t28336.s0.value.structure_type24753 = &t28337; /* x202774 */ t28340.s0.tag = EXTERNAL_SYMBOL_TYPE; t28340.s0.value.external_symbol_type = q147; /* x202775 */ t28341.s0.tag = EXTERNAL_SYMBOL_TYPE; t28341.s0.value.external_symbol_type = q147; /* x202776 */ t28341.s1.tag = NULL_TYPE; /* x202777 */ t28340.s1.tag = STRUCTURE_TYPE24753; t28340.s1.value.structure_type24753 = &t28341; /* x202778 */ t28339.s0.tag = STRUCTURE_TYPE24753; t28339.s0.value.structure_type24753 = &t28340; /* x202779 */ t28343.s0.tag = EXTERNAL_SYMBOL_TYPE; t28343.s0.value.external_symbol_type = q148; /* x202780 */ t28344.s0.tag = EXTERNAL_SYMBOL_TYPE; t28344.s0.value.external_symbol_type = q148; /* x202781 */ t28344.s1.tag = NULL_TYPE; /* x202782 */ t28343.s1.tag = STRUCTURE_TYPE24753; t28343.s1.value.structure_type24753 = &t28344; /* x202783 */ t28342.s0.tag = STRUCTURE_TYPE24753; t28342.s0.value.structure_type24753 = &t28343; /* x202784 */ t28346.s0.tag = EXTERNAL_SYMBOL_TYPE; t28346.s0.value.external_symbol_type = q149; /* x202785 */ t28347.s0.tag = EXTERNAL_SYMBOL_TYPE; t28347.s0.value.external_symbol_type = q149; /* x202786 */ t28347.s1.tag = NULL_TYPE; /* x202787 */ t28346.s1.tag = STRUCTURE_TYPE24753; t28346.s1.value.structure_type24753 = &t28347; /* x202788 */ t28345.s0.tag = STRUCTURE_TYPE24753; t28345.s0.value.structure_type24753 = &t28346; /* x202789 */ t28349.s0.tag = EXTERNAL_SYMBOL_TYPE; t28349.s0.value.external_symbol_type = q150; /* x202790 */ t28350.s0.tag = EXTERNAL_SYMBOL_TYPE; t28350.s0.value.external_symbol_type = q150; /* x202791 */ t28350.s1.tag = NULL_TYPE; /* x202792 */ t28349.s1.tag = STRUCTURE_TYPE24753; t28349.s1.value.structure_type24753 = &t28350; /* x202793 */ t28348.s0.tag = STRUCTURE_TYPE24753; t28348.s0.value.structure_type24753 = &t28349; /* x202794 */ t28352.s0.tag = EXTERNAL_SYMBOL_TYPE; t28352.s0.value.external_symbol_type = q151; /* x202795 */ t28353.s0.tag = EXTERNAL_SYMBOL_TYPE; t28353.s0.value.external_symbol_type = q151; /* x202796 */ t28353.s1.tag = NULL_TYPE; /* x202797 */ t28352.s1.tag = STRUCTURE_TYPE24753; t28352.s1.value.structure_type24753 = &t28353; /* x202798 */ t28351.s0.tag = STRUCTURE_TYPE24753; t28351.s0.value.structure_type24753 = &t28352; /* x202799 */ t28355.s0.tag = EXTERNAL_SYMBOL_TYPE; t28355.s0.value.external_symbol_type = q152; /* x202800 */ t28356.s0.tag = EXTERNAL_SYMBOL_TYPE; t28356.s0.value.external_symbol_type = q152; /* x202801 */ t28356.s1.tag = NULL_TYPE; /* x202802 */ t28355.s1.tag = STRUCTURE_TYPE24753; t28355.s1.value.structure_type24753 = &t28356; /* x202803 */ t28354.s0.tag = STRUCTURE_TYPE24753; t28354.s0.value.structure_type24753 = &t28355; /* x202804 */ t28358.s0.tag = EXTERNAL_SYMBOL_TYPE; t28358.s0.value.external_symbol_type = q153; /* x202805 */ t28359.s0.tag = EXTERNAL_SYMBOL_TYPE; t28359.s0.value.external_symbol_type = q153; /* x202806 */ t28359.s1.tag = NULL_TYPE; /* x202807 */ t28358.s1.tag = STRUCTURE_TYPE24753; t28358.s1.value.structure_type24753 = &t28359; /* x202808 */ t28357.s0.tag = STRUCTURE_TYPE24753; t28357.s0.value.structure_type24753 = &t28358; /* x202809 */ t28361.s0.tag = EXTERNAL_SYMBOL_TYPE; t28361.s0.value.external_symbol_type = q154; /* x202810 */ t28362.s0.tag = EXTERNAL_SYMBOL_TYPE; t28362.s0.value.external_symbol_type = q154; /* x202811 */ t28362.s1.tag = NULL_TYPE; /* x202812 */ t28361.s1.tag = STRUCTURE_TYPE24753; t28361.s1.value.structure_type24753 = &t28362; /* x202813 */ t28360.s0.tag = STRUCTURE_TYPE24753; t28360.s0.value.structure_type24753 = &t28361; /* x202814 */ t28364.s0.tag = EXTERNAL_SYMBOL_TYPE; t28364.s0.value.external_symbol_type = q155; /* x202815 */ t28365.s0.tag = EXTERNAL_SYMBOL_TYPE; t28365.s0.value.external_symbol_type = q155; /* x202816 */ t28365.s1.tag = NULL_TYPE; /* x202817 */ t28364.s1.tag = STRUCTURE_TYPE24753; t28364.s1.value.structure_type24753 = &t28365; /* x202818 */ t28363.s0.tag = STRUCTURE_TYPE24753; t28363.s0.value.structure_type24753 = &t28364; /* x202819 */ t28367.s0.tag = EXTERNAL_SYMBOL_TYPE; t28367.s0.value.external_symbol_type = q320; /* x202820 */ t28368.s0.tag = EXTERNAL_SYMBOL_TYPE; t28368.s0.value.external_symbol_type = q320; /* x202821 */ t28368.s1.tag = NULL_TYPE; /* x202822 */ t28367.s1.tag = STRUCTURE_TYPE24753; t28367.s1.value.structure_type24753 = &t28368; /* x202823 */ t28366.s0.tag = STRUCTURE_TYPE24753; t28366.s0.value.structure_type24753 = &t28367; /* x202824 */ t28370.s0.tag = EXTERNAL_SYMBOL_TYPE; t28370.s0.value.external_symbol_type = q329; /* x202825 */ t28371.s0.tag = EXTERNAL_SYMBOL_TYPE; t28371.s0.value.external_symbol_type = q329; /* x202826 */ t28371.s1.tag = NULL_TYPE; /* x202827 */ t28370.s1.tag = STRUCTURE_TYPE24753; t28370.s1.value.structure_type24753 = &t28371; /* x202828 */ t28369.s0.tag = STRUCTURE_TYPE24753; t28369.s0.value.structure_type24753 = &t28370; /* x202829 */ t28373.s0.tag = EXTERNAL_SYMBOL_TYPE; t28373.s0.value.external_symbol_type = q156; /* x202830 */ t28374.s0.tag = EXTERNAL_SYMBOL_TYPE; t28374.s0.value.external_symbol_type = q156; /* x202831 */ t28374.s1.tag = NULL_TYPE; /* x202832 */ t28373.s1.tag = STRUCTURE_TYPE24753; t28373.s1.value.structure_type24753 = &t28374; /* x202833 */ t28372.s0.tag = STRUCTURE_TYPE24753; t28372.s0.value.structure_type24753 = &t28373; /* x202834 */ t28376.s0.tag = EXTERNAL_SYMBOL_TYPE; t28376.s0.value.external_symbol_type = q263; /* x202835 */ t28377.s0.tag = EXTERNAL_SYMBOL_TYPE; t28377.s0.value.external_symbol_type = q263; /* x202836 */ t28377.s1.tag = NULL_TYPE; /* x202837 */ t28376.s1.tag = STRUCTURE_TYPE24753; t28376.s1.value.structure_type24753 = &t28377; /* x202838 */ t28375.s0.tag = STRUCTURE_TYPE24753; t28375.s0.value.structure_type24753 = &t28376; /* x202839 */ t28379.s0.tag = EXTERNAL_SYMBOL_TYPE; t28379.s0.value.external_symbol_type = q298; /* x202840 */ t28380.s0.tag = EXTERNAL_SYMBOL_TYPE; t28380.s0.value.external_symbol_type = q298; /* x202841 */ t28380.s1.tag = NULL_TYPE; /* x202842 */ t28379.s1.tag = STRUCTURE_TYPE24753; t28379.s1.value.structure_type24753 = &t28380; /* x202843 */ t28378.s0.tag = STRUCTURE_TYPE24753; t28378.s0.value.structure_type24753 = &t28379; /* x202844 */ t28382.s0.tag = EXTERNAL_SYMBOL_TYPE; t28382.s0.value.external_symbol_type = q299; /* x202845 */ t28383.s0.tag = EXTERNAL_SYMBOL_TYPE; t28383.s0.value.external_symbol_type = q299; /* x202846 */ t28383.s1.tag = NULL_TYPE; /* x202847 */ t28382.s1.tag = STRUCTURE_TYPE24753; t28382.s1.value.structure_type24753 = &t28383; /* x202848 */ t28381.s0.tag = STRUCTURE_TYPE24753; t28381.s0.value.structure_type24753 = &t28382; /* x202849 */ t28385.s0.tag = EXTERNAL_SYMBOL_TYPE; t28385.s0.value.external_symbol_type = q267; /* x202850 */ t28386.s0.tag = EXTERNAL_SYMBOL_TYPE; t28386.s0.value.external_symbol_type = q267; /* x202851 */ t28386.s1.tag = NULL_TYPE; /* x202852 */ t28385.s1.tag = STRUCTURE_TYPE24753; t28385.s1.value.structure_type24753 = &t28386; /* x202853 */ t28384.s0.tag = STRUCTURE_TYPE24753; t28384.s0.value.structure_type24753 = &t28385; /* x202854 */ t28388.s0.tag = EXTERNAL_SYMBOL_TYPE; t28388.s0.value.external_symbol_type = q266; /* x202855 */ t28389.s0.tag = EXTERNAL_SYMBOL_TYPE; t28389.s0.value.external_symbol_type = q266; /* x202856 */ t28389.s1.tag = NULL_TYPE; /* x202857 */ t28388.s1.tag = STRUCTURE_TYPE24753; t28388.s1.value.structure_type24753 = &t28389; /* x202858 */ t28387.s0.tag = STRUCTURE_TYPE24753; t28387.s0.value.structure_type24753 = &t28388; /* x202859 */ t28391.s0.tag = EXTERNAL_SYMBOL_TYPE; t28391.s0.value.external_symbol_type = q291; /* x202860 */ t28392.s0.tag = EXTERNAL_SYMBOL_TYPE; t28392.s0.value.external_symbol_type = q291; /* x202861 */ t28392.s1.tag = NULL_TYPE; /* x202862 */ t28391.s1.tag = STRUCTURE_TYPE24753; t28391.s1.value.structure_type24753 = &t28392; /* x202863 */ t28390.s0.tag = STRUCTURE_TYPE24753; t28390.s0.value.structure_type24753 = &t28391; /* x202864 */ t28394.s0.tag = EXTERNAL_SYMBOL_TYPE; t28394.s0.value.external_symbol_type = q460; /* x202865 */ t28395.s0.tag = EXTERNAL_SYMBOL_TYPE; t28395.s0.value.external_symbol_type = q460; /* x202866 */ t28395.s1.tag = NULL_TYPE; /* x202867 */ t28394.s1.tag = STRUCTURE_TYPE24753; t28394.s1.value.structure_type24753 = &t28395; /* x202868 */ t28393.s0.tag = STRUCTURE_TYPE24753; t28393.s0.value.structure_type24753 = &t28394; /* x202869 */ t28397.s0.tag = EXTERNAL_SYMBOL_TYPE; t28397.s0.value.external_symbol_type = q461; /* x202870 */ t28398.s0.tag = EXTERNAL_SYMBOL_TYPE; t28398.s0.value.external_symbol_type = q461; /* x202871 */ t28398.s1.tag = NULL_TYPE; /* x202872 */ t28397.s1.tag = STRUCTURE_TYPE24753; t28397.s1.value.structure_type24753 = &t28398; /* x202873 */ t28396.s0.tag = STRUCTURE_TYPE24753; t28396.s0.value.structure_type24753 = &t28397; /* x202874 */ t28400.s0.tag = EXTERNAL_SYMBOL_TYPE; t28400.s0.value.external_symbol_type = q462; /* x202875 */ t28401.s0.tag = EXTERNAL_SYMBOL_TYPE; t28401.s0.value.external_symbol_type = q462; /* x202876 */ t28401.s1.tag = NULL_TYPE; /* x202877 */ t28400.s1.tag = STRUCTURE_TYPE24753; t28400.s1.value.structure_type24753 = &t28401; /* x202878 */ t28399.s0.tag = STRUCTURE_TYPE24753; t28399.s0.value.structure_type24753 = &t28400; /* x202879 */ t28403.s0.tag = EXTERNAL_SYMBOL_TYPE; t28403.s0.value.external_symbol_type = q463; /* x202880 */ t28404.s0.tag = EXTERNAL_SYMBOL_TYPE; t28404.s0.value.external_symbol_type = q463; /* x202881 */ t28404.s1.tag = NULL_TYPE; /* x202882 */ t28403.s1.tag = STRUCTURE_TYPE24753; t28403.s1.value.structure_type24753 = &t28404; /* x202883 */ t28402.s0.tag = STRUCTURE_TYPE24753; t28402.s0.value.structure_type24753 = &t28403; /* x202884 */ t28406.s0.tag = EXTERNAL_SYMBOL_TYPE; t28406.s0.value.external_symbol_type = q278; /* x202885 */ t28407.s0.tag = EXTERNAL_SYMBOL_TYPE; t28407.s0.value.external_symbol_type = q278; /* x202886 */ t28407.s1.tag = NULL_TYPE; /* x202887 */ t28406.s1.tag = STRUCTURE_TYPE24753; t28406.s1.value.structure_type24753 = &t28407; /* x202888 */ t28405.s0.tag = STRUCTURE_TYPE24753; t28405.s0.value.structure_type24753 = &t28406; /* x202889 */ t28409.s0.tag = EXTERNAL_SYMBOL_TYPE; t28409.s0.value.external_symbol_type = q269; /* x202890 */ t28410.s0.tag = EXTERNAL_SYMBOL_TYPE; t28410.s0.value.external_symbol_type = q269; /* x202891 */ t28410.s1.tag = NULL_TYPE; /* x202892 */ t28409.s1.tag = STRUCTURE_TYPE24753; t28409.s1.value.structure_type24753 = &t28410; /* x202893 */ t28408.s0.tag = STRUCTURE_TYPE24753; t28408.s0.value.structure_type24753 = &t28409; /* x202894 */ t28412.s0.tag = EXTERNAL_SYMBOL_TYPE; t28412.s0.value.external_symbol_type = q293; /* x202895 */ t28413.s0.tag = EXTERNAL_SYMBOL_TYPE; t28413.s0.value.external_symbol_type = q293; /* x202896 */ t28413.s1.tag = NULL_TYPE; /* x202897 */ t28412.s1.tag = STRUCTURE_TYPE24753; t28412.s1.value.structure_type24753 = &t28413; /* x202898 */ t28411.s0.tag = STRUCTURE_TYPE24753; t28411.s0.value.structure_type24753 = &t28412; /* x202899 */ t28415.s0.tag = EXTERNAL_SYMBOL_TYPE; t28415.s0.value.external_symbol_type = q464; /* x202900 */ t28416.s0.tag = EXTERNAL_SYMBOL_TYPE; t28416.s0.value.external_symbol_type = q464; /* x202901 */ t28416.s1.tag = NULL_TYPE; /* x202902 */ t28415.s1.tag = STRUCTURE_TYPE24753; t28415.s1.value.structure_type24753 = &t28416; /* x202903 */ t28414.s0.tag = STRUCTURE_TYPE24753; t28414.s0.value.structure_type24753 = &t28415; /* x202904 */ t28418.s0.tag = EXTERNAL_SYMBOL_TYPE; t28418.s0.value.external_symbol_type = q466; /* x202905 */ t28419.s0.tag = EXTERNAL_SYMBOL_TYPE; t28419.s0.value.external_symbol_type = q466; /* x202906 */ t28419.s1.tag = NULL_TYPE; /* x202907 */ t28418.s1.tag = STRUCTURE_TYPE24753; t28418.s1.value.structure_type24753 = &t28419; /* x202908 */ t28417.s0.tag = STRUCTURE_TYPE24753; t28417.s0.value.structure_type24753 = &t28418; /* x202909 */ t28421.s0.tag = EXTERNAL_SYMBOL_TYPE; t28421.s0.value.external_symbol_type = q157; /* x202910 */ t28422.s0.tag = EXTERNAL_SYMBOL_TYPE; t28422.s0.value.external_symbol_type = q157; /* x202911 */ t28422.s1.tag = NULL_TYPE; /* x202912 */ t28421.s1.tag = STRUCTURE_TYPE24753; t28421.s1.value.structure_type24753 = &t28422; /* x202913 */ t28420.s0.tag = STRUCTURE_TYPE24753; t28420.s0.value.structure_type24753 = &t28421; /* x202914 */ t28424.s0.tag = EXTERNAL_SYMBOL_TYPE; t28424.s0.value.external_symbol_type = q158; /* x202915 */ t28425.s0.tag = EXTERNAL_SYMBOL_TYPE; t28425.s0.value.external_symbol_type = q158; /* x202916 */ t28425.s1.tag = NULL_TYPE; /* x202917 */ t28424.s1.tag = STRUCTURE_TYPE24753; t28424.s1.value.structure_type24753 = &t28425; /* x202918 */ t28423.s0.tag = STRUCTURE_TYPE24753; t28423.s0.value.structure_type24753 = &t28424; /* x202919 */ t28427.s0.tag = EXTERNAL_SYMBOL_TYPE; t28427.s0.value.external_symbol_type = q285; /* x202920 */ t28428.s0.tag = EXTERNAL_SYMBOL_TYPE; t28428.s0.value.external_symbol_type = q285; /* x202921 */ t28428.s1.tag = NULL_TYPE; /* x202922 */ t28427.s1.tag = STRUCTURE_TYPE24753; t28427.s1.value.structure_type24753 = &t28428; /* x202923 */ t28426.s0.tag = STRUCTURE_TYPE24753; t28426.s0.value.structure_type24753 = &t28427; /* x202924 */ t28430.s0.tag = EXTERNAL_SYMBOL_TYPE; t28430.s0.value.external_symbol_type = q467; /* x202925 */ t28431.s0.tag = EXTERNAL_SYMBOL_TYPE; t28431.s0.value.external_symbol_type = q467; /* x202926 */ t28431.s1.tag = NULL_TYPE; /* x202927 */ t28430.s1.tag = STRUCTURE_TYPE24753; t28430.s1.value.structure_type24753 = &t28431; /* x202928 */ t28429.s0.tag = STRUCTURE_TYPE24753; t28429.s0.value.structure_type24753 = &t28430; /* x202929 */ t28433.s0.tag = EXTERNAL_SYMBOL_TYPE; t28433.s0.value.external_symbol_type = q159; /* x202930 */ t28434.s0.tag = EXTERNAL_SYMBOL_TYPE; t28434.s0.value.external_symbol_type = q159; /* x202931 */ t28434.s1.tag = NULL_TYPE; /* x202932 */ t28433.s1.tag = STRUCTURE_TYPE24753; t28433.s1.value.structure_type24753 = &t28434; /* x202933 */ t28432.s0.tag = STRUCTURE_TYPE24753; t28432.s0.value.structure_type24753 = &t28433; /* x202934 */ t28436.s0.tag = EXTERNAL_SYMBOL_TYPE; t28436.s0.value.external_symbol_type = q160; /* x202935 */ t28437.s0.tag = EXTERNAL_SYMBOL_TYPE; t28437.s0.value.external_symbol_type = q160; /* x202936 */ t28437.s1.tag = NULL_TYPE; /* x202937 */ t28436.s1.tag = STRUCTURE_TYPE24753; t28436.s1.value.structure_type24753 = &t28437; /* x202938 */ t28435.s0.tag = STRUCTURE_TYPE24753; t28435.s0.value.structure_type24753 = &t28436; /* x202939 */ t28439.s0.tag = EXTERNAL_SYMBOL_TYPE; t28439.s0.value.external_symbol_type = q161; /* x202940 */ t28440.s0.tag = EXTERNAL_SYMBOL_TYPE; t28440.s0.value.external_symbol_type = q161; /* x202941 */ t28440.s1.tag = NULL_TYPE; /* x202942 */ t28439.s1.tag = STRUCTURE_TYPE24753; t28439.s1.value.structure_type24753 = &t28440; /* x202943 */ t28438.s0.tag = STRUCTURE_TYPE24753; t28438.s0.value.structure_type24753 = &t28439; /* x202944 */ t28442.s0.tag = EXTERNAL_SYMBOL_TYPE; t28442.s0.value.external_symbol_type = q162; /* x202945 */ t28443.s0.tag = EXTERNAL_SYMBOL_TYPE; t28443.s0.value.external_symbol_type = q162; /* x202946 */ t28443.s1.tag = NULL_TYPE; /* x202947 */ t28442.s1.tag = STRUCTURE_TYPE24753; t28442.s1.value.structure_type24753 = &t28443; /* x202948 */ t28441.s0.tag = STRUCTURE_TYPE24753; t28441.s0.value.structure_type24753 = &t28442; /* x202949 */ t28445.s0.tag = EXTERNAL_SYMBOL_TYPE; t28445.s0.value.external_symbol_type = q163; /* x202950 */ t28446.s0.tag = EXTERNAL_SYMBOL_TYPE; t28446.s0.value.external_symbol_type = q163; /* x202951 */ t28446.s1.tag = NULL_TYPE; /* x202952 */ t28445.s1.tag = STRUCTURE_TYPE24753; t28445.s1.value.structure_type24753 = &t28446; /* x202953 */ t28444.s0.tag = STRUCTURE_TYPE24753; t28444.s0.value.structure_type24753 = &t28445; /* x202954 */ t28448.s0.tag = EXTERNAL_SYMBOL_TYPE; t28448.s0.value.external_symbol_type = q164; /* x202955 */ t28449.s0.tag = EXTERNAL_SYMBOL_TYPE; t28449.s0.value.external_symbol_type = q164; /* x202956 */ t28449.s1.tag = NULL_TYPE; /* x202957 */ t28448.s1.tag = STRUCTURE_TYPE24753; t28448.s1.value.structure_type24753 = &t28449; /* x202958 */ t28447.s0.tag = STRUCTURE_TYPE24753; t28447.s0.value.structure_type24753 = &t28448; /* x202959 */ t28451.s0.tag = EXTERNAL_SYMBOL_TYPE; t28451.s0.value.external_symbol_type = q362; /* x202960 */ t28452.s0.tag = EXTERNAL_SYMBOL_TYPE; t28452.s0.value.external_symbol_type = q362; /* x202961 */ t28452.s1.tag = NULL_TYPE; /* x202962 */ t28451.s1.tag = STRUCTURE_TYPE24753; t28451.s1.value.structure_type24753 = &t28452; /* x202963 */ t28450.s0.tag = STRUCTURE_TYPE24753; t28450.s0.value.structure_type24753 = &t28451; /* x202964 */ t28454.s0.tag = EXTERNAL_SYMBOL_TYPE; t28454.s0.value.external_symbol_type = q470; /* x202965 */ t28455.s0.tag = EXTERNAL_SYMBOL_TYPE; t28455.s0.value.external_symbol_type = q470; /* x202966 */ t28455.s1.tag = NULL_TYPE; /* x202967 */ t28454.s1.tag = STRUCTURE_TYPE24753; t28454.s1.value.structure_type24753 = &t28455; /* x202968 */ t28453.s0.tag = STRUCTURE_TYPE24753; t28453.s0.value.structure_type24753 = &t28454; /* x202969 */ t28457.s0.tag = EXTERNAL_SYMBOL_TYPE; t28457.s0.value.external_symbol_type = q471; /* x202970 */ t28458.s0.tag = EXTERNAL_SYMBOL_TYPE; t28458.s0.value.external_symbol_type = q471; /* x202971 */ t28458.s1.tag = NULL_TYPE; /* x202972 */ t28457.s1.tag = STRUCTURE_TYPE24753; t28457.s1.value.structure_type24753 = &t28458; /* x202973 */ t28456.s0.tag = STRUCTURE_TYPE24753; t28456.s0.value.structure_type24753 = &t28457; /* x202974 */ t28460.s0.tag = EXTERNAL_SYMBOL_TYPE; t28460.s0.value.external_symbol_type = q472; /* x202975 */ t28461.s0.tag = EXTERNAL_SYMBOL_TYPE; t28461.s0.value.external_symbol_type = q472; /* x202976 */ t28461.s1.tag = NULL_TYPE; /* x202977 */ t28460.s1.tag = STRUCTURE_TYPE24753; t28460.s1.value.structure_type24753 = &t28461; /* x202978 */ t28459.s0.tag = STRUCTURE_TYPE24753; t28459.s0.value.structure_type24753 = &t28460; /* x202979 */ t28463.s0.tag = EXTERNAL_SYMBOL_TYPE; t28463.s0.value.external_symbol_type = q473; /* x202980 */ t28464.s0.tag = EXTERNAL_SYMBOL_TYPE; t28464.s0.value.external_symbol_type = q473; /* x202981 */ t28464.s1.tag = NULL_TYPE; /* x202982 */ t28463.s1.tag = STRUCTURE_TYPE24753; t28463.s1.value.structure_type24753 = &t28464; /* x202983 */ t28462.s0.tag = STRUCTURE_TYPE24753; t28462.s0.value.structure_type24753 = &t28463; /* x202984 */ t28466.s0.tag = EXTERNAL_SYMBOL_TYPE; t28466.s0.value.external_symbol_type = q474; /* x202985 */ t28467.s0.tag = EXTERNAL_SYMBOL_TYPE; t28467.s0.value.external_symbol_type = q474; /* x202986 */ t28467.s1.tag = NULL_TYPE; /* x202987 */ t28466.s1.tag = STRUCTURE_TYPE24753; t28466.s1.value.structure_type24753 = &t28467; /* x202988 */ t28465.s0.tag = STRUCTURE_TYPE24753; t28465.s0.value.structure_type24753 = &t28466; /* x202989 */ t28469.s0.tag = EXTERNAL_SYMBOL_TYPE; t28469.s0.value.external_symbol_type = q475; /* x202990 */ t28470.s0.tag = EXTERNAL_SYMBOL_TYPE; t28470.s0.value.external_symbol_type = q475; /* x202991 */ t28470.s1.tag = NULL_TYPE; /* x202992 */ t28469.s1.tag = STRUCTURE_TYPE24753; t28469.s1.value.structure_type24753 = &t28470; /* x202993 */ t28468.s0.tag = STRUCTURE_TYPE24753; t28468.s0.value.structure_type24753 = &t28469; /* x202994 */ t28472.s0.tag = EXTERNAL_SYMBOL_TYPE; t28472.s0.value.external_symbol_type = q476; /* x202995 */ t28473.s0.tag = EXTERNAL_SYMBOL_TYPE; t28473.s0.value.external_symbol_type = q476; /* x202996 */ t28473.s1.tag = NULL_TYPE; /* x202997 */ t28472.s1.tag = STRUCTURE_TYPE24753; t28472.s1.value.structure_type24753 = &t28473; /* x202998 */ t28471.s0.tag = STRUCTURE_TYPE24753; t28471.s0.value.structure_type24753 = &t28472; /* x202999 */ t28475.s0.tag = EXTERNAL_SYMBOL_TYPE; t28475.s0.value.external_symbol_type = q477; /* x203000 */ t28476.s0.tag = EXTERNAL_SYMBOL_TYPE; t28476.s0.value.external_symbol_type = q477; /* x203001 */ t28476.s1.tag = NULL_TYPE; /* x203002 */ t28475.s1.tag = STRUCTURE_TYPE24753; t28475.s1.value.structure_type24753 = &t28476; /* x203003 */ t28474.s0.tag = STRUCTURE_TYPE24753; t28474.s0.value.structure_type24753 = &t28475; /* x203004 */ t28478.s0.tag = EXTERNAL_SYMBOL_TYPE; t28478.s0.value.external_symbol_type = q478; /* x203005 */ t28479.s0.tag = EXTERNAL_SYMBOL_TYPE; t28479.s0.value.external_symbol_type = q478; /* x203006 */ t28479.s1.tag = NULL_TYPE; /* x203007 */ t28478.s1.tag = STRUCTURE_TYPE24753; t28478.s1.value.structure_type24753 = &t28479; /* x203008 */ t28477.s0.tag = STRUCTURE_TYPE24753; t28477.s0.value.structure_type24753 = &t28478; /* x203009 */ t28481.s0.tag = EXTERNAL_SYMBOL_TYPE; t28481.s0.value.external_symbol_type = q401; /* x203010 */ t28482.s0.tag = EXTERNAL_SYMBOL_TYPE; t28482.s0.value.external_symbol_type = q401; /* x203011 */ t28482.s1.tag = NULL_TYPE; /* x203012 */ t28481.s1.tag = STRUCTURE_TYPE24753; t28481.s1.value.structure_type24753 = &t28482; /* x203013 */ t28480.s0.tag = STRUCTURE_TYPE24753; t28480.s0.value.structure_type24753 = &t28481; /* x203014 */ t28484.s0.tag = EXTERNAL_SYMBOL_TYPE; t28484.s0.value.external_symbol_type = q479; /* x203015 */ t28485.s0.tag = EXTERNAL_SYMBOL_TYPE; t28485.s0.value.external_symbol_type = q479; /* x203016 */ t28485.s1.tag = NULL_TYPE; /* x203017 */ t28484.s1.tag = STRUCTURE_TYPE24753; t28484.s1.value.structure_type24753 = &t28485; /* x203018 */ t28483.s0.tag = STRUCTURE_TYPE24753; t28483.s0.value.structure_type24753 = &t28484; /* x203019 */ t28487.s0.tag = EXTERNAL_SYMBOL_TYPE; t28487.s0.value.external_symbol_type = q480; /* x203020 */ t28488.s0.tag = EXTERNAL_SYMBOL_TYPE; t28488.s0.value.external_symbol_type = q480; /* x203021 */ t28488.s1.tag = NULL_TYPE; /* x203022 */ t28487.s1.tag = STRUCTURE_TYPE24753; t28487.s1.value.structure_type24753 = &t28488; /* x203023 */ t28486.s0.tag = STRUCTURE_TYPE24753; t28486.s0.value.structure_type24753 = &t28487; /* x203024 */ t28490.s0.tag = EXTERNAL_SYMBOL_TYPE; t28490.s0.value.external_symbol_type = q283; /* x203025 */ t28491.s0.tag = EXTERNAL_SYMBOL_TYPE; t28491.s0.value.external_symbol_type = q283; /* x203026 */ t28491.s1.tag = NULL_TYPE; /* x203027 */ t28490.s1.tag = STRUCTURE_TYPE24753; t28490.s1.value.structure_type24753 = &t28491; /* x203028 */ t28489.s0.tag = STRUCTURE_TYPE24753; t28489.s0.value.structure_type24753 = &t28490; /* x203029 */ t28493.s0.tag = EXTERNAL_SYMBOL_TYPE; t28493.s0.value.external_symbol_type = q257; /* x203030 */ t28494.s0.tag = EXTERNAL_SYMBOL_TYPE; t28494.s0.value.external_symbol_type = q257; /* x203031 */ t28494.s1.tag = NULL_TYPE; /* x203032 */ t28493.s1.tag = STRUCTURE_TYPE24753; t28493.s1.value.structure_type24753 = &t28494; /* x203033 */ t28492.s0.tag = STRUCTURE_TYPE24753; t28492.s0.value.structure_type24753 = &t28493; /* x203034 */ t28496.s0.tag = EXTERNAL_SYMBOL_TYPE; t28496.s0.value.external_symbol_type = q429; /* x203035 */ t28497.s0.tag = EXTERNAL_SYMBOL_TYPE; t28497.s0.value.external_symbol_type = q429; /* x203036 */ t28497.s1.tag = NULL_TYPE; /* x203037 */ t28496.s1.tag = STRUCTURE_TYPE24753; t28496.s1.value.structure_type24753 = &t28497; /* x203038 */ t28495.s0.tag = STRUCTURE_TYPE24753; t28495.s0.value.structure_type24753 = &t28496; /* x203039 */ t28499.s0.tag = EXTERNAL_SYMBOL_TYPE; t28499.s0.value.external_symbol_type = q413; /* x203040 */ t28500.s0.tag = EXTERNAL_SYMBOL_TYPE; t28500.s0.value.external_symbol_type = q413; /* x203041 */ t28500.s1.tag = NULL_TYPE; /* x203042 */ t28499.s1.tag = STRUCTURE_TYPE24753; t28499.s1.value.structure_type24753 = &t28500; /* x203043 */ t28498.s0.tag = STRUCTURE_TYPE24753; t28498.s0.value.structure_type24753 = &t28499; /* x203044 */ t28502.s0.tag = EXTERNAL_SYMBOL_TYPE; t28502.s0.value.external_symbol_type = q165; /* x203045 */ t28503.s0.tag = EXTERNAL_SYMBOL_TYPE; t28503.s0.value.external_symbol_type = q165; /* x203046 */ t28503.s1.tag = NULL_TYPE; /* x203047 */ t28502.s1.tag = STRUCTURE_TYPE24753; t28502.s1.value.structure_type24753 = &t28503; /* x203048 */ t28501.s0.tag = STRUCTURE_TYPE24753; t28501.s0.value.structure_type24753 = &t28502; /* x203049 */ t28505.s0.tag = EXTERNAL_SYMBOL_TYPE; t28505.s0.value.external_symbol_type = q166; /* x203050 */ t28506.s0.tag = EXTERNAL_SYMBOL_TYPE; t28506.s0.value.external_symbol_type = q166; /* x203051 */ t28506.s1.tag = NULL_TYPE; /* x203052 */ t28505.s1.tag = STRUCTURE_TYPE24753; t28505.s1.value.structure_type24753 = &t28506; /* x203053 */ t28504.s0.tag = STRUCTURE_TYPE24753; t28504.s0.value.structure_type24753 = &t28505; /* x203054 */ t28508.s0.tag = EXTERNAL_SYMBOL_TYPE; t28508.s0.value.external_symbol_type = q167; /* x203055 */ t28509.s0.tag = EXTERNAL_SYMBOL_TYPE; t28509.s0.value.external_symbol_type = q167; /* x203056 */ t28509.s1.tag = NULL_TYPE; /* x203057 */ t28508.s1.tag = STRUCTURE_TYPE24753; t28508.s1.value.structure_type24753 = &t28509; /* x203058 */ t28507.s0.tag = STRUCTURE_TYPE24753; t28507.s0.value.structure_type24753 = &t28508; /* x203059 */ t28511.s0.tag = EXTERNAL_SYMBOL_TYPE; t28511.s0.value.external_symbol_type = q6; /* x203060 */ t28512.s0.tag = EXTERNAL_SYMBOL_TYPE; t28512.s0.value.external_symbol_type = q6; /* x203061 */ t28512.s1.tag = NULL_TYPE; /* x203062 */ t28511.s1.tag = STRUCTURE_TYPE24753; t28511.s1.value.structure_type24753 = &t28512; /* x203063 */ t28510.s0.tag = STRUCTURE_TYPE24753; t28510.s0.value.structure_type24753 = &t28511; /* x203064 */ t28514.s0.tag = EXTERNAL_SYMBOL_TYPE; t28514.s0.value.external_symbol_type = q168; /* x203065 */ t28515.s0.tag = EXTERNAL_SYMBOL_TYPE; t28515.s0.value.external_symbol_type = q168; /* x203066 */ t28515.s1.tag = NULL_TYPE; /* x203067 */ t28514.s1.tag = STRUCTURE_TYPE24753; t28514.s1.value.structure_type24753 = &t28515; /* x203068 */ t28513.s0.tag = STRUCTURE_TYPE24753; t28513.s0.value.structure_type24753 = &t28514; /* x203069 */ t28517.s0.tag = EXTERNAL_SYMBOL_TYPE; t28517.s0.value.external_symbol_type = q169; /* x203070 */ t28518.s0.tag = EXTERNAL_SYMBOL_TYPE; t28518.s0.value.external_symbol_type = q169; /* x203071 */ t28518.s1.tag = NULL_TYPE; /* x203072 */ t28517.s1.tag = STRUCTURE_TYPE24753; t28517.s1.value.structure_type24753 = &t28518; /* x203073 */ t28516.s0.tag = STRUCTURE_TYPE24753; t28516.s0.value.structure_type24753 = &t28517; /* x203074 */ t28520.s0.tag = EXTERNAL_SYMBOL_TYPE; t28520.s0.value.external_symbol_type = q170; /* x203075 */ t28521.s0.tag = EXTERNAL_SYMBOL_TYPE; t28521.s0.value.external_symbol_type = q170; /* x203076 */ t28521.s1.tag = NULL_TYPE; /* x203077 */ t28520.s1.tag = STRUCTURE_TYPE24753; t28520.s1.value.structure_type24753 = &t28521; /* x203078 */ t28519.s0.tag = STRUCTURE_TYPE24753; t28519.s0.value.structure_type24753 = &t28520; /* x203079 */ t28523.s0.tag = EXTERNAL_SYMBOL_TYPE; t28523.s0.value.external_symbol_type = q484; /* x203080 */ t28524.s0.tag = EXTERNAL_SYMBOL_TYPE; t28524.s0.value.external_symbol_type = q484; /* x203081 */ t28524.s1.tag = NULL_TYPE; /* x203082 */ t28523.s1.tag = STRUCTURE_TYPE24753; t28523.s1.value.structure_type24753 = &t28524; /* x203083 */ t28522.s0.tag = STRUCTURE_TYPE24753; t28522.s0.value.structure_type24753 = &t28523; /* x203084 */ t28526.s0.tag = EXTERNAL_SYMBOL_TYPE; t28526.s0.value.external_symbol_type = q301; /* x203085 */ t28527.s0.tag = EXTERNAL_SYMBOL_TYPE; t28527.s0.value.external_symbol_type = q301; /* x203086 */ t28527.s1.tag = NULL_TYPE; /* x203087 */ t28526.s1.tag = STRUCTURE_TYPE24753; t28526.s1.value.structure_type24753 = &t28527; /* x203088 */ t28525.s0.tag = STRUCTURE_TYPE24753; t28525.s0.value.structure_type24753 = &t28526; /* x203089 */ t28529.s0.tag = EXTERNAL_SYMBOL_TYPE; t28529.s0.value.external_symbol_type = q430; /* x203090 */} void initialize_constants25(void) {t28530.s0.tag = EXTERNAL_SYMBOL_TYPE; t28530.s0.value.external_symbol_type = q430; /* x203091 */ t28530.s1.tag = NULL_TYPE; /* x203092 */ t28529.s1.tag = STRUCTURE_TYPE24753; t28529.s1.value.structure_type24753 = &t28530; /* x203093 */ t28528.s0.tag = STRUCTURE_TYPE24753; t28528.s0.value.structure_type24753 = &t28529; /* x203094 */ t28532.s0.tag = EXTERNAL_SYMBOL_TYPE; t28532.s0.value.external_symbol_type = q402; /* x203095 */ t28533.s0.tag = EXTERNAL_SYMBOL_TYPE; t28533.s0.value.external_symbol_type = q402; /* x203096 */ t28533.s1.tag = NULL_TYPE; /* x203097 */ t28532.s1.tag = STRUCTURE_TYPE24753; t28532.s1.value.structure_type24753 = &t28533; /* x203098 */ t28531.s0.tag = STRUCTURE_TYPE24753; t28531.s0.value.structure_type24753 = &t28532; /* x203099 */ t28535.s0.tag = EXTERNAL_SYMBOL_TYPE; t28535.s0.value.external_symbol_type = q485; /* x203100 */ t28536.s0.tag = EXTERNAL_SYMBOL_TYPE; t28536.s0.value.external_symbol_type = q485; /* x203101 */ t28536.s1.tag = NULL_TYPE; /* x203102 */ t28535.s1.tag = STRUCTURE_TYPE24753; t28535.s1.value.structure_type24753 = &t28536; /* x203103 */ t28534.s0.tag = STRUCTURE_TYPE24753; t28534.s0.value.structure_type24753 = &t28535; /* x203104 */ t28538.s0.tag = EXTERNAL_SYMBOL_TYPE; t28538.s0.value.external_symbol_type = q414; /* x203105 */ t28539.s0.tag = EXTERNAL_SYMBOL_TYPE; t28539.s0.value.external_symbol_type = q414; /* x203106 */ t28539.s1.tag = NULL_TYPE; /* x203107 */ t28538.s1.tag = STRUCTURE_TYPE24753; t28538.s1.value.structure_type24753 = &t28539; /* x203108 */ t28537.s0.tag = STRUCTURE_TYPE24753; t28537.s0.value.structure_type24753 = &t28538; /* x203109 */ t28541.s0.tag = EXTERNAL_SYMBOL_TYPE; t28541.s0.value.external_symbol_type = q433; /* x203110 */ t28542.s0.tag = EXTERNAL_SYMBOL_TYPE; t28542.s0.value.external_symbol_type = q433; /* x203111 */ t28542.s1.tag = NULL_TYPE; /* x203112 */ t28541.s1.tag = STRUCTURE_TYPE24753; t28541.s1.value.structure_type24753 = &t28542; /* x203113 */ t28540.s0.tag = STRUCTURE_TYPE24753; t28540.s0.value.structure_type24753 = &t28541; /* x203114 */ t28544.s0.tag = EXTERNAL_SYMBOL_TYPE; t28544.s0.value.external_symbol_type = q171; /* x203115 */ t28545.s0.tag = EXTERNAL_SYMBOL_TYPE; t28545.s0.value.external_symbol_type = q171; /* x203116 */ t28545.s1.tag = NULL_TYPE; /* x203117 */ t28544.s1.tag = STRUCTURE_TYPE24753; t28544.s1.value.structure_type24753 = &t28545; /* x203118 */ t28543.s0.tag = STRUCTURE_TYPE24753; t28543.s0.value.structure_type24753 = &t28544; /* x203119 */ t28547.s0.tag = EXTERNAL_SYMBOL_TYPE; t28547.s0.value.external_symbol_type = q79; /* x203120 */ t28548.s0.tag = EXTERNAL_SYMBOL_TYPE; t28548.s0.value.external_symbol_type = q79; /* x203121 */ t28548.s1.tag = NULL_TYPE; /* x203122 */ t28547.s1.tag = STRUCTURE_TYPE24753; t28547.s1.value.structure_type24753 = &t28548; /* x203123 */ t28546.s0.tag = STRUCTURE_TYPE24753; t28546.s0.value.structure_type24753 = &t28547; /* x203124 */ t28550.s0.tag = EXTERNAL_SYMBOL_TYPE; t28550.s0.value.external_symbol_type = q488; /* x203125 */ t28551.s0.tag = EXTERNAL_SYMBOL_TYPE; t28551.s0.value.external_symbol_type = q488; /* x203126 */ t28551.s1.tag = NULL_TYPE; /* x203127 */ t28550.s1.tag = STRUCTURE_TYPE24753; t28550.s1.value.structure_type24753 = &t28551; /* x203128 */ t28549.s0.tag = STRUCTURE_TYPE24753; t28549.s0.value.structure_type24753 = &t28550; /* x203129 */ t28553.s0.tag = EXTERNAL_SYMBOL_TYPE; t28553.s0.value.external_symbol_type = q489; /* x203130 */ t28554.s0.tag = EXTERNAL_SYMBOL_TYPE; t28554.s0.value.external_symbol_type = q489; /* x203131 */ t28554.s1.tag = NULL_TYPE; /* x203132 */ t28553.s1.tag = STRUCTURE_TYPE24753; t28553.s1.value.structure_type24753 = &t28554; /* x203133 */ t28552.s0.tag = STRUCTURE_TYPE24753; t28552.s0.value.structure_type24753 = &t28553; /* x203134 */ t28556.s0.tag = EXTERNAL_SYMBOL_TYPE; t28556.s0.value.external_symbol_type = q490; /* x203135 */ t28557.s0.tag = EXTERNAL_SYMBOL_TYPE; t28557.s0.value.external_symbol_type = q490; /* x203136 */ t28557.s1.tag = NULL_TYPE; /* x203137 */ t28556.s1.tag = STRUCTURE_TYPE24753; t28556.s1.value.structure_type24753 = &t28557; /* x203138 */ t28555.s0.tag = STRUCTURE_TYPE24753; t28555.s0.value.structure_type24753 = &t28556; /* x203139 */ t28559.s0.tag = EXTERNAL_SYMBOL_TYPE; t28559.s0.value.external_symbol_type = q66; /* x203140 */ t28560.s0.tag = EXTERNAL_SYMBOL_TYPE; t28560.s0.value.external_symbol_type = q66; /* x203141 */ t28560.s1.tag = NULL_TYPE; /* x203142 */ t28559.s1.tag = STRUCTURE_TYPE24753; t28559.s1.value.structure_type24753 = &t28560; /* x203143 */ t28558.s0.tag = STRUCTURE_TYPE24753; t28558.s0.value.structure_type24753 = &t28559; /* x203144 */ t28562.s0.tag = EXTERNAL_SYMBOL_TYPE; t28562.s0.value.external_symbol_type = q343; /* x203145 */ t28563.s0.tag = EXTERNAL_SYMBOL_TYPE; t28563.s0.value.external_symbol_type = q343; /* x203146 */ t28563.s1.tag = NULL_TYPE; /* x203147 */ t28562.s1.tag = STRUCTURE_TYPE24753; t28562.s1.value.structure_type24753 = &t28563; /* x203148 */ t28561.s0.tag = STRUCTURE_TYPE24753; t28561.s0.value.structure_type24753 = &t28562; /* x203149 */ t28565.s0.tag = EXTERNAL_SYMBOL_TYPE; t28565.s0.value.external_symbol_type = q346; /* x203150 */ t28566.s0.tag = EXTERNAL_SYMBOL_TYPE; t28566.s0.value.external_symbol_type = q346; /* x203151 */ t28566.s1.tag = NULL_TYPE; /* x203152 */ t28565.s1.tag = STRUCTURE_TYPE24753; t28565.s1.value.structure_type24753 = &t28566; /* x203153 */ t28564.s0.tag = STRUCTURE_TYPE24753; t28564.s0.value.structure_type24753 = &t28565; /* x203154 */ t28568.s0.tag = EXTERNAL_SYMBOL_TYPE; t28568.s0.value.external_symbol_type = q172; /* x203155 */ t28569.s0.tag = EXTERNAL_SYMBOL_TYPE; t28569.s0.value.external_symbol_type = q172; /* x203156 */ t28569.s1.tag = NULL_TYPE; /* x203157 */ t28568.s1.tag = STRUCTURE_TYPE24753; t28568.s1.value.structure_type24753 = &t28569; /* x203158 */ t28567.s0.tag = STRUCTURE_TYPE24753; t28567.s0.value.structure_type24753 = &t28568; /* x203159 */ t28571.s0.tag = EXTERNAL_SYMBOL_TYPE; t28571.s0.value.external_symbol_type = q173; /* x203160 */ t28572.s0.tag = EXTERNAL_SYMBOL_TYPE; t28572.s0.value.external_symbol_type = q173; /* x203161 */ t28572.s1.tag = NULL_TYPE; /* x203162 */ t28571.s1.tag = STRUCTURE_TYPE24753; t28571.s1.value.structure_type24753 = &t28572; /* x203163 */ t28570.s0.tag = STRUCTURE_TYPE24753; t28570.s0.value.structure_type24753 = &t28571; /* x203164 */ t28574.s0.tag = EXTERNAL_SYMBOL_TYPE; t28574.s0.value.external_symbol_type = q255; /* x203165 */ t28575.s0.tag = EXTERNAL_SYMBOL_TYPE; t28575.s0.value.external_symbol_type = q255; /* x203166 */ t28575.s1.tag = NULL_TYPE; /* x203167 */ t28574.s1.tag = STRUCTURE_TYPE24753; t28574.s1.value.structure_type24753 = &t28575; /* x203168 */ t28573.s0.tag = STRUCTURE_TYPE24753; t28573.s0.value.structure_type24753 = &t28574; /* x203169 */ t28577.s0.tag = EXTERNAL_SYMBOL_TYPE; t28577.s0.value.external_symbol_type = q339; /* x203170 */ t28578.s0.tag = EXTERNAL_SYMBOL_TYPE; t28578.s0.value.external_symbol_type = q339; /* x203171 */ t28578.s1.tag = NULL_TYPE; /* x203172 */ t28577.s1.tag = STRUCTURE_TYPE24753; t28577.s1.value.structure_type24753 = &t28578; /* x203173 */ t28576.s0.tag = STRUCTURE_TYPE24753; t28576.s0.value.structure_type24753 = &t28577; /* x203174 */ t28580.s0.tag = EXTERNAL_SYMBOL_TYPE; t28580.s0.value.external_symbol_type = q340; /* x203175 */ t28581.s0.tag = EXTERNAL_SYMBOL_TYPE; t28581.s0.value.external_symbol_type = q340; /* x203176 */ t28581.s1.tag = NULL_TYPE; /* x203177 */ t28580.s1.tag = STRUCTURE_TYPE24753; t28580.s1.value.structure_type24753 = &t28581; /* x203178 */ t28579.s0.tag = STRUCTURE_TYPE24753; t28579.s0.value.structure_type24753 = &t28580; /* x203179 */ t28583.s0.tag = EXTERNAL_SYMBOL_TYPE; t28583.s0.value.external_symbol_type = q344; /* x203180 */ t28584.s0.tag = EXTERNAL_SYMBOL_TYPE; t28584.s0.value.external_symbol_type = q344; /* x203181 */ t28584.s1.tag = NULL_TYPE; /* x203182 */ t28583.s1.tag = STRUCTURE_TYPE24753; t28583.s1.value.structure_type24753 = &t28584; /* x203183 */ t28582.s0.tag = STRUCTURE_TYPE24753; t28582.s0.value.structure_type24753 = &t28583; /* x203184 */ t28586.s0.tag = EXTERNAL_SYMBOL_TYPE; t28586.s0.value.external_symbol_type = q174; /* x203185 */ t28587.s0.tag = EXTERNAL_SYMBOL_TYPE; t28587.s0.value.external_symbol_type = q174; /* x203186 */ t28587.s1.tag = NULL_TYPE; /* x203187 */ t28586.s1.tag = STRUCTURE_TYPE24753; t28586.s1.value.structure_type24753 = &t28587; /* x203188 */ t28585.s0.tag = STRUCTURE_TYPE24753; t28585.s0.value.structure_type24753 = &t28586; /* x203189 */ t28589.s0.tag = EXTERNAL_SYMBOL_TYPE; t28589.s0.value.external_symbol_type = q175; /* x203190 */ t28590.s0.tag = EXTERNAL_SYMBOL_TYPE; t28590.s0.value.external_symbol_type = q175; /* x203191 */ t28590.s1.tag = NULL_TYPE; /* x203192 */ t28589.s1.tag = STRUCTURE_TYPE24753; t28589.s1.value.structure_type24753 = &t28590; /* x203193 */ t28588.s0.tag = STRUCTURE_TYPE24753; t28588.s0.value.structure_type24753 = &t28589; /* x203194 */ t28592.s0.tag = EXTERNAL_SYMBOL_TYPE; t28592.s0.value.external_symbol_type = q176; /* x203195 */ t28593.s0.tag = EXTERNAL_SYMBOL_TYPE; t28593.s0.value.external_symbol_type = q176; /* x203196 */ t28593.s1.tag = NULL_TYPE; /* x203197 */ t28592.s1.tag = STRUCTURE_TYPE24753; t28592.s1.value.structure_type24753 = &t28593; /* x203198 */ t28591.s0.tag = STRUCTURE_TYPE24753; t28591.s0.value.structure_type24753 = &t28592; /* x203199 */ t28595.s0.tag = EXTERNAL_SYMBOL_TYPE; t28595.s0.value.external_symbol_type = q177; /* x203200 */ t28596.s0.tag = EXTERNAL_SYMBOL_TYPE; t28596.s0.value.external_symbol_type = q177; /* x203201 */ t28596.s1.tag = NULL_TYPE; /* x203202 */ t28595.s1.tag = STRUCTURE_TYPE24753; t28595.s1.value.structure_type24753 = &t28596; /* x203203 */ t28594.s0.tag = STRUCTURE_TYPE24753; t28594.s0.value.structure_type24753 = &t28595; /* x203204 */ t28598.s0.tag = EXTERNAL_SYMBOL_TYPE; t28598.s0.value.external_symbol_type = q253; /* x203205 */ t28599.s0.tag = EXTERNAL_SYMBOL_TYPE; t28599.s0.value.external_symbol_type = q253; /* x203206 */ t28599.s1.tag = NULL_TYPE; /* x203207 */ t28598.s1.tag = STRUCTURE_TYPE24753; t28598.s1.value.structure_type24753 = &t28599; /* x203208 */ t28597.s0.tag = STRUCTURE_TYPE24753; t28597.s0.value.structure_type24753 = &t28598; /* x203209 */ t28601.s0.tag = EXTERNAL_SYMBOL_TYPE; t28601.s0.value.external_symbol_type = q264; /* x203210 */ t28602.s0.tag = EXTERNAL_SYMBOL_TYPE; t28602.s0.value.external_symbol_type = q264; /* x203211 */ t28602.s1.tag = NULL_TYPE; /* x203212 */ t28601.s1.tag = STRUCTURE_TYPE24753; t28601.s1.value.structure_type24753 = &t28602; /* x203213 */ t28600.s0.tag = STRUCTURE_TYPE24753; t28600.s0.value.structure_type24753 = &t28601; /* x203214 */ t28604.s0.tag = EXTERNAL_SYMBOL_TYPE; t28604.s0.value.external_symbol_type = q262; /* x203215 */ t28605.s0.tag = EXTERNAL_SYMBOL_TYPE; t28605.s0.value.external_symbol_type = q262; /* x203216 */ t28605.s1.tag = NULL_TYPE; /* x203217 */ t28604.s1.tag = STRUCTURE_TYPE24753; t28604.s1.value.structure_type24753 = &t28605; /* x203218 */ t28603.s0.tag = STRUCTURE_TYPE24753; t28603.s0.value.structure_type24753 = &t28604; /* x203219 */ t28607.s0.tag = EXTERNAL_SYMBOL_TYPE; t28607.s0.value.external_symbol_type = q178; /* x203220 */ t28608.s0.tag = EXTERNAL_SYMBOL_TYPE; t28608.s0.value.external_symbol_type = q178; /* x203221 */ t28608.s1.tag = NULL_TYPE; /* x203222 */ t28607.s1.tag = STRUCTURE_TYPE24753; t28607.s1.value.structure_type24753 = &t28608; /* x203223 */ t28606.s0.tag = STRUCTURE_TYPE24753; t28606.s0.value.structure_type24753 = &t28607; /* x203224 */ t28610.s0.tag = EXTERNAL_SYMBOL_TYPE; t28610.s0.value.external_symbol_type = q348; /* x203225 */ t28611.s0.tag = EXTERNAL_SYMBOL_TYPE; t28611.s0.value.external_symbol_type = q348; /* x203226 */ t28611.s1.tag = NULL_TYPE; /* x203227 */ t28610.s1.tag = STRUCTURE_TYPE24753; t28610.s1.value.structure_type24753 = &t28611; /* x203228 */ t28609.s0.tag = STRUCTURE_TYPE24753; t28609.s0.value.structure_type24753 = &t28610; /* x203229 */ t28613.s0.tag = EXTERNAL_SYMBOL_TYPE; t28613.s0.value.external_symbol_type = q349; /* x203230 */ t28614.s0.tag = EXTERNAL_SYMBOL_TYPE; t28614.s0.value.external_symbol_type = q349; /* x203231 */ t28614.s1.tag = NULL_TYPE; /* x203232 */ t28613.s1.tag = STRUCTURE_TYPE24753; t28613.s1.value.structure_type24753 = &t28614; /* x203233 */ t28612.s0.tag = STRUCTURE_TYPE24753; t28612.s0.value.structure_type24753 = &t28613; /* x203234 */ t28616.s0.tag = EXTERNAL_SYMBOL_TYPE; t28616.s0.value.external_symbol_type = q350; /* x203235 */ t28617.s0.tag = EXTERNAL_SYMBOL_TYPE; t28617.s0.value.external_symbol_type = q350; /* x203236 */ t28617.s1.tag = NULL_TYPE; /* x203237 */ t28616.s1.tag = STRUCTURE_TYPE24753; t28616.s1.value.structure_type24753 = &t28617; /* x203238 */ t28615.s0.tag = STRUCTURE_TYPE24753; t28615.s0.value.structure_type24753 = &t28616; /* x203239 */ t28619.s0.tag = EXTERNAL_SYMBOL_TYPE; t28619.s0.value.external_symbol_type = q351; /* x203240 */ t28620.s0.tag = EXTERNAL_SYMBOL_TYPE; t28620.s0.value.external_symbol_type = q351; /* x203241 */ t28620.s1.tag = NULL_TYPE; /* x203242 */ t28619.s1.tag = STRUCTURE_TYPE24753; t28619.s1.value.structure_type24753 = &t28620; /* x203243 */ t28618.s0.tag = STRUCTURE_TYPE24753; t28618.s0.value.structure_type24753 = &t28619; /* x203244 */ t28622.s0.tag = EXTERNAL_SYMBOL_TYPE; t28622.s0.value.external_symbol_type = q352; /* x203245 */ t28623.s0.tag = EXTERNAL_SYMBOL_TYPE; t28623.s0.value.external_symbol_type = q352; /* x203246 */ t28623.s1.tag = NULL_TYPE; /* x203247 */ t28622.s1.tag = STRUCTURE_TYPE24753; t28622.s1.value.structure_type24753 = &t28623; /* x203248 */ t28621.s0.tag = STRUCTURE_TYPE24753; t28621.s0.value.structure_type24753 = &t28622; /* x203249 */ t28625.s0.tag = EXTERNAL_SYMBOL_TYPE; t28625.s0.value.external_symbol_type = q353; /* x203250 */ t28626.s0.tag = EXTERNAL_SYMBOL_TYPE; t28626.s0.value.external_symbol_type = q353; /* x203251 */ t28626.s1.tag = NULL_TYPE; /* x203252 */ t28625.s1.tag = STRUCTURE_TYPE24753; t28625.s1.value.structure_type24753 = &t28626; /* x203253 */ t28624.s0.tag = STRUCTURE_TYPE24753; t28624.s0.value.structure_type24753 = &t28625; /* x203254 */ t28628.s0.tag = EXTERNAL_SYMBOL_TYPE; t28628.s0.value.external_symbol_type = q356; /* x203255 */ t28629.s0.tag = EXTERNAL_SYMBOL_TYPE; t28629.s0.value.external_symbol_type = q356; /* x203256 */ t28629.s1.tag = NULL_TYPE; /* x203257 */ t28628.s1.tag = STRUCTURE_TYPE24753; t28628.s1.value.structure_type24753 = &t28629; /* x203258 */ t28627.s0.tag = STRUCTURE_TYPE24753; t28627.s0.value.structure_type24753 = &t28628; /* x203259 */ t28631.s0.tag = EXTERNAL_SYMBOL_TYPE; t28631.s0.value.external_symbol_type = q179; /* x203260 */ t28632.s0.tag = EXTERNAL_SYMBOL_TYPE; t28632.s0.value.external_symbol_type = q179; /* x203261 */ t28632.s1.tag = NULL_TYPE; /* x203262 */ t28631.s1.tag = STRUCTURE_TYPE24753; t28631.s1.value.structure_type24753 = &t28632; /* x203263 */ t28630.s0.tag = STRUCTURE_TYPE24753; t28630.s0.value.structure_type24753 = &t28631; /* x203264 */ t28634.s0.tag = EXTERNAL_SYMBOL_TYPE; t28634.s0.value.external_symbol_type = q180; /* x203265 */ t28635.s0.tag = EXTERNAL_SYMBOL_TYPE; t28635.s0.value.external_symbol_type = q180; /* x203266 */ t28635.s1.tag = NULL_TYPE; /* x203267 */ t28634.s1.tag = STRUCTURE_TYPE24753; t28634.s1.value.structure_type24753 = &t28635; /* x203268 */ t28633.s0.tag = STRUCTURE_TYPE24753; t28633.s0.value.structure_type24753 = &t28634; /* x203269 */ t28637.s0.tag = EXTERNAL_SYMBOL_TYPE; t28637.s0.value.external_symbol_type = q181; /* x203270 */ t28638.s0.tag = EXTERNAL_SYMBOL_TYPE; t28638.s0.value.external_symbol_type = q181; /* x203271 */ t28638.s1.tag = NULL_TYPE; /* x203272 */ t28637.s1.tag = STRUCTURE_TYPE24753; t28637.s1.value.structure_type24753 = &t28638; /* x203273 */ t28636.s0.tag = STRUCTURE_TYPE24753; t28636.s0.value.structure_type24753 = &t28637; /* x203274 */ t28640.s0.tag = EXTERNAL_SYMBOL_TYPE; t28640.s0.value.external_symbol_type = q182; /* x203275 */ t28641.s0.tag = EXTERNAL_SYMBOL_TYPE; t28641.s0.value.external_symbol_type = q182; /* x203276 */ t28641.s1.tag = NULL_TYPE; /* x203277 */ t28640.s1.tag = STRUCTURE_TYPE24753; t28640.s1.value.structure_type24753 = &t28641; /* x203278 */ t28639.s0.tag = STRUCTURE_TYPE24753; t28639.s0.value.structure_type24753 = &t28640; /* x203279 */ t28643.s0.tag = EXTERNAL_SYMBOL_TYPE; t28643.s0.value.external_symbol_type = q183; /* x203280 */ t28644.s0.tag = EXTERNAL_SYMBOL_TYPE; t28644.s0.value.external_symbol_type = q183; /* x203281 */ t28644.s1.tag = NULL_TYPE; /* x203282 */ t28643.s1.tag = STRUCTURE_TYPE24753; t28643.s1.value.structure_type24753 = &t28644; /* x203283 */ t28642.s0.tag = STRUCTURE_TYPE24753; t28642.s0.value.structure_type24753 = &t28643; /* x203284 */ t28646.s0.tag = EXTERNAL_SYMBOL_TYPE; t28646.s0.value.external_symbol_type = q184; /* x203285 */ t28647.s0.tag = EXTERNAL_SYMBOL_TYPE; t28647.s0.value.external_symbol_type = q184; /* x203286 */ t28647.s1.tag = NULL_TYPE; /* x203287 */ t28646.s1.tag = STRUCTURE_TYPE24753; t28646.s1.value.structure_type24753 = &t28647; /* x203288 */ t28645.s0.tag = STRUCTURE_TYPE24753; t28645.s0.value.structure_type24753 = &t28646; /* x203289 */ t28645.s1.tag = NULL_TYPE; /* x203290 */ t28642.s1.tag = STRUCTURE_TYPE24753; t28642.s1.value.structure_type24753 = &t28645; /* x203291 */ t28639.s1.tag = STRUCTURE_TYPE24753; t28639.s1.value.structure_type24753 = &t28642; /* x203292 */ t28636.s1.tag = STRUCTURE_TYPE24753; t28636.s1.value.structure_type24753 = &t28639; /* x203293 */ t28633.s1.tag = STRUCTURE_TYPE24753; t28633.s1.value.structure_type24753 = &t28636; /* x203294 */ t28630.s1.tag = STRUCTURE_TYPE24753; t28630.s1.value.structure_type24753 = &t28633; /* x203295 */ t28627.s1.tag = STRUCTURE_TYPE24753; t28627.s1.value.structure_type24753 = &t28630; /* x203296 */ t28624.s1.tag = STRUCTURE_TYPE24753; t28624.s1.value.structure_type24753 = &t28627; /* x203297 */ t28621.s1.tag = STRUCTURE_TYPE24753; t28621.s1.value.structure_type24753 = &t28624; /* x203298 */ t28618.s1.tag = STRUCTURE_TYPE24753; t28618.s1.value.structure_type24753 = &t28621; /* x203299 */ t28615.s1.tag = STRUCTURE_TYPE24753; t28615.s1.value.structure_type24753 = &t28618; /* x203300 */ t28612.s1.tag = STRUCTURE_TYPE24753; t28612.s1.value.structure_type24753 = &t28615; /* x203301 */ t28609.s1.tag = STRUCTURE_TYPE24753; t28609.s1.value.structure_type24753 = &t28612; /* x203302 */ t28606.s1.tag = STRUCTURE_TYPE24753; t28606.s1.value.structure_type24753 = &t28609; /* x203303 */ t28603.s1.tag = STRUCTURE_TYPE24753; t28603.s1.value.structure_type24753 = &t28606; /* x203304 */ t28600.s1.tag = STRUCTURE_TYPE24753; t28600.s1.value.structure_type24753 = &t28603; /* x203305 */ t28597.s1.tag = STRUCTURE_TYPE24753; t28597.s1.value.structure_type24753 = &t28600; /* x203306 */ t28594.s1.tag = STRUCTURE_TYPE24753; t28594.s1.value.structure_type24753 = &t28597; /* x203307 */ t28591.s1.tag = STRUCTURE_TYPE24753; t28591.s1.value.structure_type24753 = &t28594; /* x203308 */ t28588.s1.tag = STRUCTURE_TYPE24753; t28588.s1.value.structure_type24753 = &t28591; /* x203309 */ t28585.s1.tag = STRUCTURE_TYPE24753; t28585.s1.value.structure_type24753 = &t28588; /* x203310 */ t28582.s1.tag = STRUCTURE_TYPE24753; t28582.s1.value.structure_type24753 = &t28585; /* x203311 */ t28579.s1.tag = STRUCTURE_TYPE24753; t28579.s1.value.structure_type24753 = &t28582; /* x203312 */ t28576.s1.tag = STRUCTURE_TYPE24753; t28576.s1.value.structure_type24753 = &t28579; /* x203313 */ t28573.s1.tag = STRUCTURE_TYPE24753; t28573.s1.value.structure_type24753 = &t28576; /* x203314 */ t28570.s1.tag = STRUCTURE_TYPE24753; t28570.s1.value.structure_type24753 = &t28573; /* x203315 */ t28567.s1.tag = STRUCTURE_TYPE24753; t28567.s1.value.structure_type24753 = &t28570; /* x203316 */ t28564.s1.tag = STRUCTURE_TYPE24753; t28564.s1.value.structure_type24753 = &t28567; /* x203317 */ t28561.s1.tag = STRUCTURE_TYPE24753; t28561.s1.value.structure_type24753 = &t28564; /* x203318 */ t28558.s1.tag = STRUCTURE_TYPE24753; t28558.s1.value.structure_type24753 = &t28561; /* x203319 */ t28555.s1.tag = STRUCTURE_TYPE24753; t28555.s1.value.structure_type24753 = &t28558; /* x203320 */ t28552.s1.tag = STRUCTURE_TYPE24753; t28552.s1.value.structure_type24753 = &t28555; /* x203321 */ t28549.s1.tag = STRUCTURE_TYPE24753; t28549.s1.value.structure_type24753 = &t28552; /* x203322 */ t28546.s1.tag = STRUCTURE_TYPE24753; t28546.s1.value.structure_type24753 = &t28549; /* x203323 */ t28543.s1.tag = STRUCTURE_TYPE24753; t28543.s1.value.structure_type24753 = &t28546; /* x203324 */ t28540.s1.tag = STRUCTURE_TYPE24753; t28540.s1.value.structure_type24753 = &t28543; /* x203325 */ t28537.s1.tag = STRUCTURE_TYPE24753; t28537.s1.value.structure_type24753 = &t28540; /* x203326 */ t28534.s1.tag = STRUCTURE_TYPE24753; t28534.s1.value.structure_type24753 = &t28537; /* x203327 */ t28531.s1.tag = STRUCTURE_TYPE24753; t28531.s1.value.structure_type24753 = &t28534; /* x203328 */ t28528.s1.tag = STRUCTURE_TYPE24753; t28528.s1.value.structure_type24753 = &t28531; /* x203329 */ t28525.s1.tag = STRUCTURE_TYPE24753; t28525.s1.value.structure_type24753 = &t28528; /* x203330 */ t28522.s1.tag = STRUCTURE_TYPE24753; t28522.s1.value.structure_type24753 = &t28525; /* x203331 */ t28519.s1.tag = STRUCTURE_TYPE24753; t28519.s1.value.structure_type24753 = &t28522; /* x203332 */ t28516.s1.tag = STRUCTURE_TYPE24753; t28516.s1.value.structure_type24753 = &t28519; /* x203333 */ t28513.s1.tag = STRUCTURE_TYPE24753; t28513.s1.value.structure_type24753 = &t28516; /* x203334 */ t28510.s1.tag = STRUCTURE_TYPE24753; t28510.s1.value.structure_type24753 = &t28513; /* x203335 */ t28507.s1.tag = STRUCTURE_TYPE24753; t28507.s1.value.structure_type24753 = &t28510; /* x203336 */ t28504.s1.tag = STRUCTURE_TYPE24753; t28504.s1.value.structure_type24753 = &t28507; /* x203337 */ t28501.s1.tag = STRUCTURE_TYPE24753; t28501.s1.value.structure_type24753 = &t28504; /* x203338 */ t28498.s1.tag = STRUCTURE_TYPE24753; t28498.s1.value.structure_type24753 = &t28501; /* x203339 */ t28495.s1.tag = STRUCTURE_TYPE24753; t28495.s1.value.structure_type24753 = &t28498; /* x203340 */ t28492.s1.tag = STRUCTURE_TYPE24753; t28492.s1.value.structure_type24753 = &t28495; /* x203341 */ t28489.s1.tag = STRUCTURE_TYPE24753; t28489.s1.value.structure_type24753 = &t28492; /* x203342 */ t28486.s1.tag = STRUCTURE_TYPE24753; t28486.s1.value.structure_type24753 = &t28489; /* x203343 */ t28483.s1.tag = STRUCTURE_TYPE24753; t28483.s1.value.structure_type24753 = &t28486; /* x203344 */ t28480.s1.tag = STRUCTURE_TYPE24753; t28480.s1.value.structure_type24753 = &t28483; /* x203345 */ t28477.s1.tag = STRUCTURE_TYPE24753; t28477.s1.value.structure_type24753 = &t28480; /* x203346 */ t28474.s1.tag = STRUCTURE_TYPE24753; t28474.s1.value.structure_type24753 = &t28477; /* x203347 */ t28471.s1.tag = STRUCTURE_TYPE24753; t28471.s1.value.structure_type24753 = &t28474; /* x203348 */ t28468.s1.tag = STRUCTURE_TYPE24753; t28468.s1.value.structure_type24753 = &t28471; /* x203349 */ t28465.s1.tag = STRUCTURE_TYPE24753; t28465.s1.value.structure_type24753 = &t28468; /* x203350 */ t28462.s1.tag = STRUCTURE_TYPE24753; t28462.s1.value.structure_type24753 = &t28465; /* x203351 */ t28459.s1.tag = STRUCTURE_TYPE24753; t28459.s1.value.structure_type24753 = &t28462; /* x203352 */ t28456.s1.tag = STRUCTURE_TYPE24753; t28456.s1.value.structure_type24753 = &t28459; /* x203353 */ t28453.s1.tag = STRUCTURE_TYPE24753; t28453.s1.value.structure_type24753 = &t28456; /* x203354 */ t28450.s1.tag = STRUCTURE_TYPE24753; t28450.s1.value.structure_type24753 = &t28453; /* x203355 */ t28447.s1.tag = STRUCTURE_TYPE24753; t28447.s1.value.structure_type24753 = &t28450; /* x203356 */ t28444.s1.tag = STRUCTURE_TYPE24753; t28444.s1.value.structure_type24753 = &t28447; /* x203357 */ t28441.s1.tag = STRUCTURE_TYPE24753; t28441.s1.value.structure_type24753 = &t28444; /* x203358 */ t28438.s1.tag = STRUCTURE_TYPE24753; t28438.s1.value.structure_type24753 = &t28441; /* x203359 */ t28435.s1.tag = STRUCTURE_TYPE24753; t28435.s1.value.structure_type24753 = &t28438; /* x203360 */ t28432.s1.tag = STRUCTURE_TYPE24753; t28432.s1.value.structure_type24753 = &t28435; /* x203361 */ t28429.s1.tag = STRUCTURE_TYPE24753; t28429.s1.value.structure_type24753 = &t28432; /* x203362 */ t28426.s1.tag = STRUCTURE_TYPE24753; t28426.s1.value.structure_type24753 = &t28429; /* x203363 */ t28423.s1.tag = STRUCTURE_TYPE24753; t28423.s1.value.structure_type24753 = &t28426; /* x203364 */ t28420.s1.tag = STRUCTURE_TYPE24753; t28420.s1.value.structure_type24753 = &t28423; /* x203365 */ t28417.s1.tag = STRUCTURE_TYPE24753; t28417.s1.value.structure_type24753 = &t28420; /* x203366 */ t28414.s1.tag = STRUCTURE_TYPE24753; t28414.s1.value.structure_type24753 = &t28417; /* x203367 */ t28411.s1.tag = STRUCTURE_TYPE24753; t28411.s1.value.structure_type24753 = &t28414; /* x203368 */ t28408.s1.tag = STRUCTURE_TYPE24753; t28408.s1.value.structure_type24753 = &t28411; /* x203369 */ t28405.s1.tag = STRUCTURE_TYPE24753; t28405.s1.value.structure_type24753 = &t28408; /* x203370 */ t28402.s1.tag = STRUCTURE_TYPE24753; t28402.s1.value.structure_type24753 = &t28405; /* x203371 */ t28399.s1.tag = STRUCTURE_TYPE24753; t28399.s1.value.structure_type24753 = &t28402; /* x203372 */ t28396.s1.tag = STRUCTURE_TYPE24753; t28396.s1.value.structure_type24753 = &t28399; /* x203373 */ t28393.s1.tag = STRUCTURE_TYPE24753; t28393.s1.value.structure_type24753 = &t28396; /* x203374 */ t28390.s1.tag = STRUCTURE_TYPE24753; t28390.s1.value.structure_type24753 = &t28393; /* x203375 */ t28387.s1.tag = STRUCTURE_TYPE24753; t28387.s1.value.structure_type24753 = &t28390; /* x203376 */ t28384.s1.tag = STRUCTURE_TYPE24753; t28384.s1.value.structure_type24753 = &t28387; /* x203377 */ t28381.s1.tag = STRUCTURE_TYPE24753; t28381.s1.value.structure_type24753 = &t28384; /* x203378 */ t28378.s1.tag = STRUCTURE_TYPE24753; t28378.s1.value.structure_type24753 = &t28381; /* x203379 */ t28375.s1.tag = STRUCTURE_TYPE24753; t28375.s1.value.structure_type24753 = &t28378; /* x203380 */ t28372.s1.tag = STRUCTURE_TYPE24753; t28372.s1.value.structure_type24753 = &t28375; /* x203381 */ t28369.s1.tag = STRUCTURE_TYPE24753; t28369.s1.value.structure_type24753 = &t28372; /* x203382 */ t28366.s1.tag = STRUCTURE_TYPE24753; t28366.s1.value.structure_type24753 = &t28369; /* x203383 */ t28363.s1.tag = STRUCTURE_TYPE24753; t28363.s1.value.structure_type24753 = &t28366; /* x203384 */ t28360.s1.tag = STRUCTURE_TYPE24753; t28360.s1.value.structure_type24753 = &t28363; /* x203385 */ t28357.s1.tag = STRUCTURE_TYPE24753; t28357.s1.value.structure_type24753 = &t28360; /* x203386 */ t28354.s1.tag = STRUCTURE_TYPE24753; t28354.s1.value.structure_type24753 = &t28357; /* x203387 */ t28351.s1.tag = STRUCTURE_TYPE24753; t28351.s1.value.structure_type24753 = &t28354; /* x203388 */ t28348.s1.tag = STRUCTURE_TYPE24753; t28348.s1.value.structure_type24753 = &t28351; /* x203389 */ t28345.s1.tag = STRUCTURE_TYPE24753; t28345.s1.value.structure_type24753 = &t28348; /* x203390 */ t28342.s1.tag = STRUCTURE_TYPE24753; t28342.s1.value.structure_type24753 = &t28345; /* x203391 */ t28339.s1.tag = STRUCTURE_TYPE24753; t28339.s1.value.structure_type24753 = &t28342; /* x203392 */ t28336.s1.tag = STRUCTURE_TYPE24753; t28336.s1.value.structure_type24753 = &t28339; /* x203393 */ t28333.s1.tag = STRUCTURE_TYPE24753; t28333.s1.value.structure_type24753 = &t28336; /* x203394 */ t28330.s1.tag = STRUCTURE_TYPE24753; t28330.s1.value.structure_type24753 = &t28333; /* x203395 */ t28327.s1.tag = STRUCTURE_TYPE24753; t28327.s1.value.structure_type24753 = &t28330; /* x203396 */ t28324.s1.tag = STRUCTURE_TYPE24753; t28324.s1.value.structure_type24753 = &t28327; /* x203397 */ t28321.s1.tag = STRUCTURE_TYPE24753; t28321.s1.value.structure_type24753 = &t28324; /* x203398 */ t28318.s1.tag = STRUCTURE_TYPE24753; t28318.s1.value.structure_type24753 = &t28321; /* x203399 */ t28315.s1.tag = STRUCTURE_TYPE24753; t28315.s1.value.structure_type24753 = &t28318; /* x203400 */ t28312.s1.tag = STRUCTURE_TYPE24753; t28312.s1.value.structure_type24753 = &t28315; /* x203401 */ t28309.s1.tag = STRUCTURE_TYPE24753; t28309.s1.value.structure_type24753 = &t28312; /* x203402 */ t28306.s1.tag = STRUCTURE_TYPE24753; t28306.s1.value.structure_type24753 = &t28309; /* x203403 */ t28303.s1.tag = STRUCTURE_TYPE24753; t28303.s1.value.structure_type24753 = &t28306; /* x203404 */ t28300.s1.tag = STRUCTURE_TYPE24753; t28300.s1.value.structure_type24753 = &t28303; /* x203405 */ t28297.s1.tag = STRUCTURE_TYPE24753; t28297.s1.value.structure_type24753 = &t28300; /* x203406 */ t28294.s1.tag = STRUCTURE_TYPE24753; t28294.s1.value.structure_type24753 = &t28297; /* x203407 */ t28291.s1.tag = STRUCTURE_TYPE24753; t28291.s1.value.structure_type24753 = &t28294; /* x203408 */ t28288.s1.tag = STRUCTURE_TYPE24753; t28288.s1.value.structure_type24753 = &t28291; /* x203409 */ t28285.s1.tag = STRUCTURE_TYPE24753; t28285.s1.value.structure_type24753 = &t28288; /* x203410 */ t28282.s1.tag = STRUCTURE_TYPE24753; t28282.s1.value.structure_type24753 = &t28285; /* x203411 */ t28279.s1.tag = STRUCTURE_TYPE24753; t28279.s1.value.structure_type24753 = &t28282; /* x203412 */ t28276.s1.tag = STRUCTURE_TYPE24753; t28276.s1.value.structure_type24753 = &t28279; /* x203413 */ t28273.s1.tag = STRUCTURE_TYPE24753; t28273.s1.value.structure_type24753 = &t28276; /* x203414 */ t28270.s1.tag = STRUCTURE_TYPE24753; t28270.s1.value.structure_type24753 = &t28273; /* x203415 */ t28267.s1.tag = STRUCTURE_TYPE24753; t28267.s1.value.structure_type24753 = &t28270; /* x203416 */ t28264.s1.tag = STRUCTURE_TYPE24753; t28264.s1.value.structure_type24753 = &t28267; /* x203417 */ t28261.s1.tag = STRUCTURE_TYPE24753; t28261.s1.value.structure_type24753 = &t28264; /* x203418 */ t28258.s1.tag = STRUCTURE_TYPE24753; t28258.s1.value.structure_type24753 = &t28261; /* x203419 */ t28255.s1.tag = STRUCTURE_TYPE24753; t28255.s1.value.structure_type24753 = &t28258; /* x203420 */ t28252.s1.tag = STRUCTURE_TYPE24753; t28252.s1.value.structure_type24753 = &t28255; /* x203421 */ t28249.s1.tag = STRUCTURE_TYPE24753; t28249.s1.value.structure_type24753 = &t28252; /* x203422 */ t28246.s1.tag = STRUCTURE_TYPE24753; t28246.s1.value.structure_type24753 = &t28249; /* x203423 */ t28243.s1.tag = STRUCTURE_TYPE24753; t28243.s1.value.structure_type24753 = &t28246; /* x203424 */ t28240.s1.tag = STRUCTURE_TYPE24753; t28240.s1.value.structure_type24753 = &t28243; /* x203425 */ t28237.s1.tag = STRUCTURE_TYPE24753; t28237.s1.value.structure_type24753 = &t28240; /* x203426 */ t28234.s1.tag = STRUCTURE_TYPE24753; t28234.s1.value.structure_type24753 = &t28237; /* x203427 */ t28231.s1.tag = STRUCTURE_TYPE24753; t28231.s1.value.structure_type24753 = &t28234; /* x203428 */ t28228.s1.tag = STRUCTURE_TYPE24753; t28228.s1.value.structure_type24753 = &t28231; /* x203429 */ t28225.s1.tag = STRUCTURE_TYPE24753; t28225.s1.value.structure_type24753 = &t28228; /* x203430 */ t28222.s1.tag = STRUCTURE_TYPE24753; t28222.s1.value.structure_type24753 = &t28225; /* x203431 */ t28219.s1.tag = STRUCTURE_TYPE24753; t28219.s1.value.structure_type24753 = &t28222; /* x203432 */ t28216.s1.tag = STRUCTURE_TYPE24753; t28216.s1.value.structure_type24753 = &t28219; /* x203433 */ t28213.s1.tag = STRUCTURE_TYPE24753; t28213.s1.value.structure_type24753 = &t28216; /* x203434 */ t28210.s1.tag = STRUCTURE_TYPE24753; t28210.s1.value.structure_type24753 = &t28213; /* x203435 */ t28207.s1.tag = STRUCTURE_TYPE24753; t28207.s1.value.structure_type24753 = &t28210; /* x203436 */ t28204.s1.tag = STRUCTURE_TYPE24753; t28204.s1.value.structure_type24753 = &t28207; /* x203437 */ t28201.s1.tag = STRUCTURE_TYPE24753; t28201.s1.value.structure_type24753 = &t28204; /* x203438 */ t28198.s1.tag = STRUCTURE_TYPE24753; t28198.s1.value.structure_type24753 = &t28201; /* x203439 */ t28195.s1.tag = STRUCTURE_TYPE24753; t28195.s1.value.structure_type24753 = &t28198; /* x203440 */ t28192.s1.tag = STRUCTURE_TYPE24753; t28192.s1.value.structure_type24753 = &t28195; /* x203441 */ t28189.s1.tag = STRUCTURE_TYPE24753; t28189.s1.value.structure_type24753 = &t28192; /* x203442 */ t28186.s1.tag = STRUCTURE_TYPE24753; t28186.s1.value.structure_type24753 = &t28189; /* x203443 */ t28183.s1.tag = STRUCTURE_TYPE24753; t28183.s1.value.structure_type24753 = &t28186; /* x203444 */ t28180.s1.tag = STRUCTURE_TYPE24753; t28180.s1.value.structure_type24753 = &t28183; /* x203445 */ t28177.s1.tag = STRUCTURE_TYPE24753; t28177.s1.value.structure_type24753 = &t28180; /* x203446 */ t28174.s1.tag = STRUCTURE_TYPE24753; t28174.s1.value.structure_type24753 = &t28177; /* x203447 */ t28171.s1.tag = STRUCTURE_TYPE24753; t28171.s1.value.structure_type24753 = &t28174; /* x203448 */ t28168.s1.tag = STRUCTURE_TYPE24753; t28168.s1.value.structure_type24753 = &t28171; /* x203449 */ t28165.s1.tag = STRUCTURE_TYPE24753; t28165.s1.value.structure_type24753 = &t28168; /* x203450 */ t28162.s1.tag = STRUCTURE_TYPE24753; t28162.s1.value.structure_type24753 = &t28165; /* x203451 */ t28159.s1.tag = STRUCTURE_TYPE24753; t28159.s1.value.structure_type24753 = &t28162; /* x203452 */ t28156.s1.tag = STRUCTURE_TYPE24753; t28156.s1.value.structure_type24753 = &t28159; /* x203453 */ t28153.s1.tag = STRUCTURE_TYPE24753; t28153.s1.value.structure_type24753 = &t28156; /* x203454 */ t28150.s1.tag = STRUCTURE_TYPE24753; t28150.s1.value.structure_type24753 = &t28153; /* x203455 */ t28147.s1.tag = STRUCTURE_TYPE24753; t28147.s1.value.structure_type24753 = &t28150; /* x203456 */ t28144.s1.tag = STRUCTURE_TYPE24753; t28144.s1.value.structure_type24753 = &t28147; /* x203457 */ t28141.s1.tag = STRUCTURE_TYPE24753; t28141.s1.value.structure_type24753 = &t28144; /* x203458 */ t28138.s1.tag = STRUCTURE_TYPE24753; t28138.s1.value.structure_type24753 = &t28141; /* x203459 */ t28135.s1.tag = STRUCTURE_TYPE24753; t28135.s1.value.structure_type24753 = &t28138; /* x203460 */ t28132.s1.tag = STRUCTURE_TYPE24753; t28132.s1.value.structure_type24753 = &t28135; /* x203461 */ t28129.s1.tag = STRUCTURE_TYPE24753; t28129.s1.value.structure_type24753 = &t28132; /* x203462 */ t28126.s1.tag = STRUCTURE_TYPE24753; t28126.s1.value.structure_type24753 = &t28129; /* x203463 */ t28123.s1.tag = STRUCTURE_TYPE24753; t28123.s1.value.structure_type24753 = &t28126; /* x203464 */ t28120.s1.tag = STRUCTURE_TYPE24753; t28120.s1.value.structure_type24753 = &t28123; /* x203465 */ t28117.s1.tag = STRUCTURE_TYPE24753; t28117.s1.value.structure_type24753 = &t28120; /* x203466 */ t28114.s1.tag = STRUCTURE_TYPE24753; t28114.s1.value.structure_type24753 = &t28117; /* x203467 */ t28111.s1.tag = STRUCTURE_TYPE24753; t28111.s1.value.structure_type24753 = &t28114; /* x203468 */ t28108.s1.tag = STRUCTURE_TYPE24753; t28108.s1.value.structure_type24753 = &t28111; /* x203469 */ t28105.s1.tag = STRUCTURE_TYPE24753; t28105.s1.value.structure_type24753 = &t28108; /* x203470 */ t28102.s1.tag = STRUCTURE_TYPE24753; t28102.s1.value.structure_type24753 = &t28105; /* x203471 */ t28099.s1.tag = STRUCTURE_TYPE24753; t28099.s1.value.structure_type24753 = &t28102; /* x203472 */ t28096.s1.tag = STRUCTURE_TYPE24753; t28096.s1.value.structure_type24753 = &t28099; /* x203473 */ t28093.s1.tag = STRUCTURE_TYPE24753; t28093.s1.value.structure_type24753 = &t28096; /* x203474 */ t28090.s1.tag = STRUCTURE_TYPE24753; t28090.s1.value.structure_type24753 = &t28093; /* x203475 */ t28087.s1.tag = STRUCTURE_TYPE24753; t28087.s1.value.structure_type24753 = &t28090; /* x203476 */ t28084.s1.tag = STRUCTURE_TYPE24753; t28084.s1.value.structure_type24753 = &t28087; /* x203477 */ t28081.s1.tag = STRUCTURE_TYPE24753; t28081.s1.value.structure_type24753 = &t28084; /* x203478 */ t28078.s1.tag = STRUCTURE_TYPE24753; t28078.s1.value.structure_type24753 = &t28081; /* x203479 */ t28075.s1.tag = STRUCTURE_TYPE24753; t28075.s1.value.structure_type24753 = &t28078; /* x203480 */ t28072.s1.tag = STRUCTURE_TYPE24753; t28072.s1.value.structure_type24753 = &t28075; /* x203481 */ t28069.s1.tag = STRUCTURE_TYPE24753; t28069.s1.value.structure_type24753 = &t28072; /* x203482 */ t28066.s1.tag = STRUCTURE_TYPE24753; t28066.s1.value.structure_type24753 = &t28069; /* x203483 */ t28063.s1.tag = STRUCTURE_TYPE24753; t28063.s1.value.structure_type24753 = &t28066; /* x203484 */ t28060.s1.tag = STRUCTURE_TYPE24753; t28060.s1.value.structure_type24753 = &t28063; /* x203485 */ t28057.s1.tag = STRUCTURE_TYPE24753; t28057.s1.value.structure_type24753 = &t28060; /* x203486 */ t28054.s1.tag = STRUCTURE_TYPE24753; t28054.s1.value.structure_type24753 = &t28057; /* x203487 */ t28051.s1.tag = STRUCTURE_TYPE24753; t28051.s1.value.structure_type24753 = &t28054; /* x203488 */ t28048.s1.tag = STRUCTURE_TYPE24753; t28048.s1.value.structure_type24753 = &t28051; /* x203489 */ t28045.s1.tag = STRUCTURE_TYPE24753; t28045.s1.value.structure_type24753 = &t28048; /* x203490 */ t28042.s1.tag = STRUCTURE_TYPE24753; t28042.s1.value.structure_type24753 = &t28045; /* x203491 */ t28039.s1.tag = STRUCTURE_TYPE24753; t28039.s1.value.structure_type24753 = &t28042; /* x203492 */ t28036.s1.tag = STRUCTURE_TYPE24753; t28036.s1.value.structure_type24753 = &t28039; /* x203493 */ t28033.s1.tag = STRUCTURE_TYPE24753; t28033.s1.value.structure_type24753 = &t28036; /* x203494 */ t28030.s1.tag = STRUCTURE_TYPE24753; t28030.s1.value.structure_type24753 = &t28033; /* x203495 */ t28027.s1.tag = STRUCTURE_TYPE24753; t28027.s1.value.structure_type24753 = &t28030; /* x203496 */ t28024.s1.tag = STRUCTURE_TYPE24753; t28024.s1.value.structure_type24753 = &t28027; /* x203497 */ t28021.s1.tag = STRUCTURE_TYPE24753; t28021.s1.value.structure_type24753 = &t28024; /* x203498 */ t28018.s1.tag = STRUCTURE_TYPE24753; t28018.s1.value.structure_type24753 = &t28021; /* x203499 */ t28015.s1.tag = STRUCTURE_TYPE24753; t28015.s1.value.structure_type24753 = &t28018; /* x203500 */ t28012.s1.tag = STRUCTURE_TYPE24753; t28012.s1.value.structure_type24753 = &t28015; /* x203501 */ t28009.s1.tag = STRUCTURE_TYPE24753; t28009.s1.value.structure_type24753 = &t28012; /* x203502 */ t28006.s1.tag = STRUCTURE_TYPE24753; t28006.s1.value.structure_type24753 = &t28009; /* x171886 */ t28686.s0.tag = EXTERNAL_SYMBOL_TYPE; t28686.s0.value.external_symbol_type = q39; /* x171887 */ t28688.s0.tag = EXTERNAL_SYMBOL_TYPE; t28688.s0.value.external_symbol_type = q249; /* x171888 */ t28688.s1.tag = NULL_TYPE; /* x171889 */ t28687.s0.tag = STRUCTURE_TYPE24753; t28687.s0.value.structure_type24753 = &t28688; /* x171890 */ t28690.s0.tag = EXTERNAL_SYMBOL_TYPE; t28690.s0.value.external_symbol_type = q242; /* x171891 */ t28693.s0.tag = EXTERNAL_SYMBOL_TYPE; t28693.s0.value.external_symbol_type = q250; /* x171892 */ t28694.s0.tag = FALSE_TYPE; /* x171893 */ t28694.s1.tag = NULL_TYPE; /* x171894 */ t28693.s1.tag = STRUCTURE_TYPE24753; t28693.s1.value.structure_type24753 = &t28694; /* x171895 */ t28692.s0.tag = STRUCTURE_TYPE24753; t28692.s0.value.structure_type24753 = &t28693; /* x171896 */ t28696.s0.tag = EXTERNAL_SYMBOL_TYPE; t28696.s0.value.external_symbol_type = q251; /* x171897 */ t28697.s0.tag = FALSE_TYPE; /* x171898 */ t28697.s1.tag = NULL_TYPE; /* x171899 */ t28696.s1.tag = STRUCTURE_TYPE24753; t28696.s1.value.structure_type24753 = &t28697; /* x171900 */ t28695.s0.tag = STRUCTURE_TYPE24753; t28695.s0.value.structure_type24753 = &t28696; /* x171901 */ t28695.s1.tag = NULL_TYPE; /* x171902 */ t28692.s1.tag = STRUCTURE_TYPE24753; t28692.s1.value.structure_type24753 = &t28695; /* x171903 */ t28691.s0.tag = STRUCTURE_TYPE24753; t28691.s0.value.structure_type24753 = &t28692; /* x171904 */ t28699.s0.tag = EXTERNAL_SYMBOL_TYPE; t28699.s0.value.external_symbol_type = q39; /* x171905 */ t28700.s0.tag = NULL_TYPE; /* x171906 */ t28702.s0.tag = EXTERNAL_SYMBOL_TYPE; t28702.s0.value.external_symbol_type = q43; /* x171907 */ t28703.s0.tag = EXTERNAL_SYMBOL_TYPE; t28703.s0.value.external_symbol_type = q250; /* x171908 */ t28704.s0.tag = EXTERNAL_SYMBOL_TYPE; t28704.s0.value.external_symbol_type = q251; /* x171909 */ t28706.s0.tag = EXTERNAL_SYMBOL_TYPE; t28706.s0.value.external_symbol_type = q242; /* x171910 */ t28709.s0.tag = EXTERNAL_SYMBOL_TYPE; t28709.s0.value.external_symbol_type = q252; /* x171911 */ t28711.s0.tag = EXTERNAL_SYMBOL_TYPE; t28711.s0.value.external_symbol_type = q249; /* x171912 */ t28711.s1.tag = NULL_TYPE; /* x171913 */ t28710.s0.tag = STRUCTURE_TYPE24753; t28710.s0.value.structure_type24753 = &t28711; /* x171914 */ t28710.s1.tag = NULL_TYPE; /* x171915 */ t28709.s1.tag = STRUCTURE_TYPE24753; t28709.s1.value.structure_type24753 = &t28710; /* x171916 */ t28708.s0.tag = STRUCTURE_TYPE24753; t28708.s0.value.structure_type24753 = &t28709; /* x171917 */ t28708.s1.tag = NULL_TYPE; /* x171918 */ t28707.s0.tag = STRUCTURE_TYPE24753; t28707.s0.value.structure_type24753 = &t28708; /* x171919 */ t28713.s0.tag = EXTERNAL_SYMBOL_TYPE; t28713.s0.value.external_symbol_type = q43; /* x171920 */ t28714.s0.tag = EXTERNAL_SYMBOL_TYPE; t28714.s0.value.external_symbol_type = q250; /* x171921 */ t28715.s0.tag = EXTERNAL_SYMBOL_TYPE; t28715.s0.value.external_symbol_type = q251; /* x171922 */ t28717.s0.tag = EXTERNAL_SYMBOL_TYPE; t28717.s0.value.external_symbol_type = q239; /* x171923 */ t28719.s0.tag = EXTERNAL_SYMBOL_TYPE; t28719.s0.value.external_symbol_type = q42; /* x171924 */ t28720.s0.tag = EXTERNAL_SYMBOL_TYPE; t28720.s0.value.external_symbol_type = q250; /* x171925 */ t28721.s0.tag = TRUE_TYPE; /* x171926 */ t28721.s1.tag = NULL_TYPE; /* x171927 */ t28720.s1.tag = STRUCTURE_TYPE24753; t28720.s1.value.structure_type24753 = &t28721; /* x171928 */ t28719.s1.tag = STRUCTURE_TYPE24753; t28719.s1.value.structure_type24753 = &t28720; /* x171929 */ t28718.s0.tag = STRUCTURE_TYPE24753; t28718.s0.value.structure_type24753 = &t28719; /* x171930 */ t28723.s0.tag = EXTERNAL_SYMBOL_TYPE; t28723.s0.value.external_symbol_type = q42; /* x171931 */ t28724.s0.tag = EXTERNAL_SYMBOL_TYPE; t28724.s0.value.external_symbol_type = q251; /* x171932 */ t28725.s0.tag = EXTERNAL_SYMBOL_TYPE; t28725.s0.value.external_symbol_type = q252; /* x171933 */ t28725.s1.tag = NULL_TYPE; /* x171934 */ t28724.s1.tag = STRUCTURE_TYPE24753; t28724.s1.value.structure_type24753 = &t28725; /* x171935 */ t28723.s1.tag = STRUCTURE_TYPE24753; t28723.s1.value.structure_type24753 = &t28724; /* x171936 */ t28722.s0.tag = STRUCTURE_TYPE24753; t28722.s0.value.structure_type24753 = &t28723; /* x171937 */ t28726.s0.tag = EXTERNAL_SYMBOL_TYPE; t28726.s0.value.external_symbol_type = q251; /* x171938 */ t28726.s1.tag = NULL_TYPE; /* x171939 */ t28722.s1.tag = STRUCTURE_TYPE24753; t28722.s1.value.structure_type24753 = &t28726; /* x171940 */ t28718.s1.tag = STRUCTURE_TYPE24753; t28718.s1.value.structure_type24753 = &t28722; /* x171941 */ t28717.s1.tag = STRUCTURE_TYPE24753; t28717.s1.value.structure_type24753 = &t28718; /* x171942 */ t28716.s0.tag = STRUCTURE_TYPE24753; t28716.s0.value.structure_type24753 = &t28717; /* x171943 */ t28716.s1.tag = NULL_TYPE; /* x171944 */ t28715.s1.tag = STRUCTURE_TYPE24753; t28715.s1.value.structure_type24753 = &t28716; /* x171945 */ t28714.s1.tag = STRUCTURE_TYPE24753; t28714.s1.value.structure_type24753 = &t28715; /* x171946 */ t28713.s1.tag = STRUCTURE_TYPE24753; t28713.s1.value.structure_type24753 = &t28714; /* x171947 */ t28712.s0.tag = STRUCTURE_TYPE24753; t28712.s0.value.structure_type24753 = &t28713; /* x171948 */ t28712.s1.tag = NULL_TYPE; /* x171949 */ t28707.s1.tag = STRUCTURE_TYPE24753; t28707.s1.value.structure_type24753 = &t28712; /* x171950 */ t28706.s1.tag = STRUCTURE_TYPE24753; t28706.s1.value.structure_type24753 = &t28707; /* x171951 */ t28705.s0.tag = STRUCTURE_TYPE24753; t28705.s0.value.structure_type24753 = &t28706; /* x171952 */ t28705.s1.tag = NULL_TYPE; /* x171953 */ t28704.s1.tag = STRUCTURE_TYPE24753; t28704.s1.value.structure_type24753 = &t28705; /* x171954 */ t28703.s1.tag = STRUCTURE_TYPE24753; t28703.s1.value.structure_type24753 = &t28704; /* x171955 */ t28702.s1.tag = STRUCTURE_TYPE24753; t28702.s1.value.structure_type24753 = &t28703; /* x171956 */ t28701.s0.tag = STRUCTURE_TYPE24753; t28701.s0.value.structure_type24753 = &t28702; /* x171957 */ t28701.s1.tag = NULL_TYPE; /* x171958 */ t28700.s1.tag = STRUCTURE_TYPE24753; t28700.s1.value.structure_type24753 = &t28701; /* x171959 */ t28699.s1.tag = STRUCTURE_TYPE24753; t28699.s1.value.structure_type24753 = &t28700; /* x171960 */ t28698.s0.tag = STRUCTURE_TYPE24753; t28698.s0.value.structure_type24753 = &t28699; /* x171961 */ t28698.s1.tag = NULL_TYPE; /* x171962 */ t28691.s1.tag = STRUCTURE_TYPE24753; t28691.s1.value.structure_type24753 = &t28698; /* x171963 */ t28690.s1.tag = STRUCTURE_TYPE24753; t28690.s1.value.structure_type24753 = &t28691; /* x171964 */ t28689.s0.tag = STRUCTURE_TYPE24753; t28689.s0.value.structure_type24753 = &t28690; /* x171965 */ t28689.s1.tag = NULL_TYPE; /* x171966 */ t28687.s1.tag = STRUCTURE_TYPE24753; t28687.s1.value.structure_type24753 = &t28689; /* x171967 */ t28686.s1.tag = STRUCTURE_TYPE24753; t28686.s1.value.structure_type24753 = &t28687; /* x171219 stalin.sc:25092:867309 */ t28987.s0.tag = EXTERNAL_SYMBOL_TYPE; t28987.s0.value.external_symbol_type = q39; /* x171220 stalin.sc:25092:867309 */ t28988.s0.tag = NULL_TYPE; /* x171221 stalin.sc:25092:867309 */ t28988.s1.tag = NULL_TYPE; /* x171222 stalin.sc:25092:867309 */ t28987.s1.tag = STRUCTURE_TYPE24753; t28987.s1.value.structure_type24753 = &t28988; /* x171223 stalin.sc:25092:867309 */ t28986.s0.tag = STRUCTURE_TYPE24753; t28986.s0.value.structure_type24753 = &t28987; /* x171224 stalin.sc:25092:867309 */ t28986.s1.tag = NULL_TYPE; /* x171083 */ t29188.s0.tag = FALSE_TYPE; /* x171084 */ t29188.s1.tag = NULL_TYPE; /* x170499 stalin.sc:25004:864277 */ t29466.s0.tag = EXTERNAL_SYMBOL_TYPE; t29466.s0.value.external_symbol_type = q39; /* x170500 stalin.sc:25004:864277 */ t29467.s0.tag = NULL_TYPE; /* x170501 stalin.sc:25004:864277 */ t29467.s1.tag = NULL_TYPE; /* x170502 stalin.sc:25004:864277 */ t29466.s1.tag = STRUCTURE_TYPE24753; t29466.s1.value.structure_type24753 = &t29467; /* x170503 stalin.sc:25004:864277 */ t29465.s0.tag = STRUCTURE_TYPE24753; t29465.s0.value.structure_type24753 = &t29466; /* x170504 stalin.sc:25004:864277 */ t29465.s1.tag = NULL_TYPE; /* x170296 stalin.sc:24972:863354 */ t29544.s0.tag = EXTERNAL_SYMBOL_TYPE; t29544.s0.value.external_symbol_type = q39; /* x170297 stalin.sc:24972:863354 */ t29545.s0.tag = NULL_TYPE; /* x170298 stalin.sc:24972:863354 */ t29545.s1.tag = NULL_TYPE; /* x170299 stalin.sc:24972:863354 */ t29544.s1.tag = STRUCTURE_TYPE24753; t29544.s1.value.structure_type24753 = &t29545; /* x170300 stalin.sc:24972:863354 */ t29543.s0.tag = STRUCTURE_TYPE24753; t29543.s0.value.structure_type24753 = &t29544; /* x170301 stalin.sc:24972:863354 */ t29543.s1.tag = NULL_TYPE; /* x170228 stalin.sc:24962:863037 */ t29548.s0.tag = EXTERNAL_SYMBOL_TYPE; t29548.s0.value.external_symbol_type = q39; /* x170229 stalin.sc:24962:863037 */ t29549.s0.tag = NULL_TYPE; /* x170230 stalin.sc:24962:863037 */ t29549.s1.tag = NULL_TYPE; /* x170231 stalin.sc:24962:863037 */ t29548.s1.tag = STRUCTURE_TYPE24753; t29548.s1.value.structure_type24753 = &t29549; /* x170232 stalin.sc:24962:863037 */ t29547.s0.tag = STRUCTURE_TYPE24753; t29547.s0.value.structure_type24753 = &t29548; /* x170233 stalin.sc:24962:863037 */ t29547.s1.tag = NULL_TYPE; /* x169510 */ t29862.s0.tag = EXTERNAL_SYMBOL_TYPE; t29862.s0.value.external_symbol_type = q11; /* x169511 */ t29863.s0.tag = NULL_TYPE; /* x169512 */ t29863.s1.tag = NULL_TYPE; /* x169513 */ t29862.s1.tag = STRUCTURE_TYPE24753; t29862.s1.value.structure_type24753 = &t29863; /* x169514 */ t29861.s0.tag = STRUCTURE_TYPE24753; t29861.s0.value.structure_type24753 = &t29862; /* x169515 */ t29861.s1.tag = NULL_TYPE; /* x169575 */ t30067.s0.tag = EXTERNAL_SYMBOL_TYPE; t30067.s0.value.external_symbol_type = q77; /* x169576 */ t30068.s0.tag = EXTERNAL_SYMBOL_TYPE; t30068.s0.value.external_symbol_type = q6; /* x169577 */ t30068.s1.tag = NULL_TYPE; /* x169578 */ t30067.s1.tag = STRUCTURE_TYPE24753; t30067.s1.value.structure_type24753 = &t30068; /* x117630 stalin.sc:13446:472391 */ t57368.s0.tag = EXTERNAL_SYMBOL_TYPE; t57368.s0.value.external_symbol_type = q11; /* x117631 stalin.sc:13446:472391 */ t57369.s0.tag = NULL_TYPE; /* x117632 stalin.sc:13446:472391 */ t57369.s1.tag = NULL_TYPE; /* x117633 stalin.sc:13446:472391 */ t57368.s1.tag = STRUCTURE_TYPE24753; t57368.s1.value.structure_type24753 = &t57369; /* x117080 stalin.sc:13378:469565 */ t57726.s0.tag = EXTERNAL_SYMBOL_TYPE; t57726.s0.value.external_symbol_type = q11; /* x117081 stalin.sc:13378:469565 */ t57727.s0.tag = NULL_TYPE; /* x117082 stalin.sc:13378:469565 */ t57727.s1.tag = NULL_TYPE; /* x117083 stalin.sc:13378:469565 */ t57726.s1.tag = STRUCTURE_TYPE24753; t57726.s1.value.structure_type24753 = &t57727; /* x171301 stalin.sc:25101:867643 */ t68034.s0.tag = EXTERNAL_SYMBOL_TYPE; t68034.s0.value.external_symbol_type = q39; /* x171302 stalin.sc:25101:867643 */ t68035.s0.tag = NULL_TYPE; /* x171303 stalin.sc:25101:867643 */ t68035.s1.tag = NULL_TYPE; /* x171304 stalin.sc:25101:867643 */ t68034.s1.tag = STRUCTURE_TYPE24753; t68034.s1.value.structure_type24753 = &t68035; /* x171305 stalin.sc:25101:867643 */ t68033.s0.tag = STRUCTURE_TYPE24753; t68033.s0.value.structure_type24753 = &t68034; /* x171306 stalin.sc:25101:867643 */ t68033.s1.tag = NULL_TYPE; /* x171561 */ t68048.s0.tag = EXTERNAL_SYMBOL_TYPE; t68048.s0.value.external_symbol_type = q39; /* x171562 */ t68049.s0.tag = NULL_TYPE; /* x171563 */ t68049.s1.tag = NULL_TYPE; /* x171564 */ t68048.s1.tag = STRUCTURE_TYPE24753; t68048.s1.value.structure_type24753 = &t68049; /* x171565 */ t68047.s0.tag = STRUCTURE_TYPE24753; t68047.s0.value.structure_type24753 = &t68048; /* x171566 */ t68047.s1.tag = NULL_TYPE; /* x171567 */ t68046.s0.tag = STRUCTURE_TYPE24753; t68046.s0.value.structure_type24753 = &t68047; /* x171568 */ t68046.s1.tag = NULL_TYPE; /* x171547 */ t68056.s0.tag = EXTERNAL_SYMBOL_TYPE; t68056.s0.value.external_symbol_type = q39; /* x171548 */ t68057.s0.tag = NULL_TYPE; /* x171549 */ t68057.s1.tag = NULL_TYPE; /* x171550 */ t68056.s1.tag = STRUCTURE_TYPE24753; t68056.s1.value.structure_type24753 = &t68057; /* x171551 */ t68055.s0.tag = STRUCTURE_TYPE24753; t68055.s0.value.structure_type24753 = &t68056; /* x171552 */ t68055.s1.tag = NULL_TYPE; /* x171553 */ t68054.s0.tag = STRUCTURE_TYPE24753; t68054.s0.value.structure_type24753 = &t68055; /* x171554 */ t68054.s1.tag = NULL_TYPE; /* x206855 */ t68207.s0.tag = EXTERNAL_SYMBOL_TYPE; t68207.s0.value.external_symbol_type = q520; /* x206856 */ t68207.s1.tag = NULL_TYPE; /* x219290 */ t68235.s0.tag = EXTERNAL_SYMBOL_TYPE; t68235.s0.value.external_symbol_type = q107; /* x219291 */ t68236.s0.tag = EXTERNAL_SYMBOL_TYPE; t68236.s0.value.external_symbol_type = q527; /* x219292 */ t68236.s1.tag = NULL_TYPE; /* x219293 */ t68235.s1.tag = STRUCTURE_TYPE24753; t68235.s1.value.structure_type24753 = &t68236; /* x219309 */ t68253.s0.tag = EXTERNAL_SYMBOL_TYPE; t68253.s0.value.external_symbol_type = q42; /* x219310 */ t68254.s0.tag = EXTERNAL_SYMBOL_TYPE; t68254.s0.value.external_symbol_type = q527; /* x219311 */ t68256.s0.tag = EXTERNAL_SYMBOL_TYPE; t68256.s0.value.external_symbol_type = q108; /* x219312 */ t68257.s0.tag = EXTERNAL_SYMBOL_TYPE; t68257.s0.value.external_symbol_type = q527; /* x219313 */ t68257.s1.tag = NULL_TYPE; /* x219314 */ t68256.s1.tag = STRUCTURE_TYPE24753; t68256.s1.value.structure_type24753 = &t68257; /* x219315 */ t68255.s0.tag = STRUCTURE_TYPE24753; t68255.s0.value.structure_type24753 = &t68256; /* x219316 */ t68255.s1.tag = NULL_TYPE; /* x219317 */ t68254.s1.tag = STRUCTURE_TYPE24753; t68254.s1.value.structure_type24753 = &t68255; /* x219318 */ t68253.s1.tag = STRUCTURE_TYPE24753; t68253.s1.value.structure_type24753 = &t68254; /* x219338 */ t68283.s0.tag = EXTERNAL_SYMBOL_TYPE; t68283.s0.value.external_symbol_type = q735; /* x219339 */ t68283.s1.tag = NULL_TYPE; /* x219340 */ t68282.s0.tag = STRUCTURE_TYPE24753; t68282.s0.value.structure_type24753 = &t68283; /* x219341 */ t68282.s1.tag = NULL_TYPE; /* x219352 */ t68295.s0.tag = TRUE_TYPE; /* x219353 */ t68295.s1.tag = NULL_TYPE; /* x219425 */ t68311.s0.tag = EXTERNAL_SYMBOL_TYPE; t68311.s0.value.external_symbol_type = q287; /* x219426 */ t68311.s1.tag = NULL_TYPE; /* x219427 */ t68310.s0.tag = STRUCTURE_TYPE24753; t68310.s0.value.structure_type24753 = &t68311; /* x219428 */ t68310.s1.tag = NULL_TYPE; /* x219362 */ t68317.s0.tag = EXTERNAL_SYMBOL_TYPE; t68317.s0.value.external_symbol_type = q493; /* x219363 */ t68319.s0.tag = EXTERNAL_SYMBOL_TYPE; t68319.s0.value.external_symbol_type = q111; /* x219364 */ t68320.s0.tag = EXTERNAL_SYMBOL_TYPE; t68320.s0.value.external_symbol_type = q527; /* x219365 */ t68320.s1.tag = NULL_TYPE; /* x219366 */ t68319.s1.tag = STRUCTURE_TYPE24753; t68319.s1.value.structure_type24753 = &t68320; /* x219367 */ t68318.s0.tag = STRUCTURE_TYPE24753; t68318.s0.value.structure_type24753 = &t68319; /* x219368 */ t68322.s0.tag = EXTERNAL_SYMBOL_TYPE; t68322.s0.value.external_symbol_type = q735; /* x219369 */ t68322.s1.tag = NULL_TYPE; /* x219370 */ t68321.s0.tag = STRUCTURE_TYPE24753; t68321.s0.value.structure_type24753 = &t68322; /* x219371 */ t68321.s1.tag = NULL_TYPE; /* x219372 */ t68318.s1.tag = STRUCTURE_TYPE24753; t68318.s1.value.structure_type24753 = &t68321; /* x219373 */ t68317.s1.tag = STRUCTURE_TYPE24753; t68317.s1.value.structure_type24753 = &t68318; /* x219387 */ t68344.s0.tag = EXTERNAL_SYMBOL_TYPE; t68344.s0.value.external_symbol_type = q107; /* x219388 */ t68345.s0.tag = EXTERNAL_SYMBOL_TYPE; t68345.s0.value.external_symbol_type = q527; /* x219389 */ t68345.s1.tag = NULL_TYPE; /* x219390 */ t68344.s1.tag = STRUCTURE_TYPE24753; t68344.s1.value.structure_type24753 = &t68345; /* x219391 */ t68343.s0.tag = STRUCTURE_TYPE24753; t68343.s0.value.structure_type24753 = &t68344; /* x219392 */ t68346.s0.tag = EXTERNAL_SYMBOL_TYPE; t68346.s0.value.external_symbol_type = q735; /* x219393 */ t68346.s1.tag = NULL_TYPE; /* x219394 */ t68343.s1.tag = STRUCTURE_TYPE24753; t68343.s1.value.structure_type24753 = &t68346; /* x219401 */ t68348.s0.tag = EXTERNAL_SYMBOL_TYPE; t68348.s0.value.external_symbol_type = q42; /* x219402 */ t68349.s0.tag = EXTERNAL_SYMBOL_TYPE; t68349.s0.value.external_symbol_type = q527; /* x219403 */ t68351.s0.tag = EXTERNAL_SYMBOL_TYPE; t68351.s0.value.external_symbol_type = q108; /* x219404 */ t68352.s0.tag = EXTERNAL_SYMBOL_TYPE; t68352.s0.value.external_symbol_type = q527; /* x219405 */ t68352.s1.tag = NULL_TYPE; /* x219406 */ t68351.s1.tag = STRUCTURE_TYPE24753; t68351.s1.value.structure_type24753 = &t68352; /* x219407 */ t68350.s0.tag = STRUCTURE_TYPE24753; t68350.s0.value.structure_type24753 = &t68351; /* x219408 */ t68350.s1.tag = NULL_TYPE; /* x219409 */ t68349.s1.tag = STRUCTURE_TYPE24753; t68349.s1.value.structure_type24753 = &t68350; /* x219410 */ t68348.s1.tag = STRUCTURE_TYPE24753; t68348.s1.value.structure_type24753 = &t68349; /* x219411 */ t68347.s0.tag = STRUCTURE_TYPE24753; t68347.s0.value.structure_type24753 = &t68348; /* x219412 */ t68347.s1.tag = NULL_TYPE; /* x219126 */ t68366.s0.tag = EXTERNAL_SYMBOL_TYPE; t68366.s0.value.external_symbol_type = q107; /* x219127 */ t68367.s0.tag = EXTERNAL_SYMBOL_TYPE; t68367.s0.value.external_symbol_type = q527; /* x219128 */ t68367.s1.tag = NULL_TYPE; /* x219129 */ t68366.s1.tag = STRUCTURE_TYPE24753; t68366.s1.value.structure_type24753 = &t68367; /* x219145 */ t68384.s0.tag = EXTERNAL_SYMBOL_TYPE; t68384.s0.value.external_symbol_type = q42; /* x219146 */ t68385.s0.tag = EXTERNAL_SYMBOL_TYPE; t68385.s0.value.external_symbol_type = q527; /* x219147 */ t68387.s0.tag = EXTERNAL_SYMBOL_TYPE; t68387.s0.value.external_symbol_type = q108; /* x219148 */ t68388.s0.tag = EXTERNAL_SYMBOL_TYPE; t68388.s0.value.external_symbol_type = q527; /* x219149 */ t68388.s1.tag = NULL_TYPE; /* x219150 */ t68387.s1.tag = STRUCTURE_TYPE24753; t68387.s1.value.structure_type24753 = &t68388; /* x219151 */ t68386.s0.tag = STRUCTURE_TYPE24753; t68386.s0.value.structure_type24753 = &t68387; /* x219152 */ t68386.s1.tag = NULL_TYPE; /* x219153 */ t68385.s1.tag = STRUCTURE_TYPE24753; t68385.s1.value.structure_type24753 = &t68386; /* x219154 */ t68384.s1.tag = STRUCTURE_TYPE24753; t68384.s1.value.structure_type24753 = &t68385; /* x219163 */ t68400.s0.tag = TRUE_TYPE; /* x219164 */ t68400.s1.tag = NULL_TYPE; /* x219247 */ t68416.s0.tag = EXTERNAL_SYMBOL_TYPE; t68416.s0.value.external_symbol_type = q287; /* x219248 */ t68416.s1.tag = NULL_TYPE; /* x219249 */ t68415.s0.tag = STRUCTURE_TYPE24753; t68415.s0.value.structure_type24753 = &t68416; /* x219250 */ t68415.s1.tag = NULL_TYPE; /* x219173 */ t68422.s0.tag = EXTERNAL_SYMBOL_TYPE; t68422.s0.value.external_symbol_type = q493; /* x219174 */ t68424.s0.tag = EXTERNAL_SYMBOL_TYPE; t68424.s0.value.external_symbol_type = q111; /* x219175 */ t68425.s0.tag = EXTERNAL_SYMBOL_TYPE; t68425.s0.value.external_symbol_type = q527; /* x219176 */ t68425.s1.tag = NULL_TYPE; /* x219177 */ t68424.s1.tag = STRUCTURE_TYPE24753; t68424.s1.value.structure_type24753 = &t68425; /* x219178 */ t68423.s0.tag = STRUCTURE_TYPE24753; t68423.s0.value.structure_type24753 = &t68424; /* x219179 */ t68427.s0.tag = EXTERNAL_SYMBOL_TYPE; t68427.s0.value.external_symbol_type = q735; /* x219180 */ t68427.s1.tag = NULL_TYPE; /* x219181 */ t68426.s0.tag = STRUCTURE_TYPE24753; t68426.s0.value.structure_type24753 = &t68427; /* x219182 */ t68426.s1.tag = NULL_TYPE; /* x219183 */ t68423.s1.tag = STRUCTURE_TYPE24753; t68423.s1.value.structure_type24753 = &t68426; /* x219184 */ t68422.s1.tag = STRUCTURE_TYPE24753; t68422.s1.value.structure_type24753 = &t68423; /* x219201 */ t68457.s0.tag = EXTERNAL_SYMBOL_TYPE; t68457.s0.value.external_symbol_type = q107; /* x219202 */ t68458.s0.tag = EXTERNAL_SYMBOL_TYPE; t68458.s0.value.external_symbol_type = q527; /* x219203 */ t68458.s1.tag = NULL_TYPE; /* x219204 */ t68457.s1.tag = STRUCTURE_TYPE24753; t68457.s1.value.structure_type24753 = &t68458; /* x219205 */ t68456.s0.tag = STRUCTURE_TYPE24753; t68456.s0.value.structure_type24753 = &t68457; /* x219206 */ t68459.s0.tag = EXTERNAL_SYMBOL_TYPE; t68459.s0.value.external_symbol_type = q735; /* x219207 */ t68459.s1.tag = NULL_TYPE; /* x219208 */ t68456.s1.tag = STRUCTURE_TYPE24753; t68456.s1.value.structure_type24753 = &t68459; /* x219223 */ t68465.s0.tag = EXTERNAL_SYMBOL_TYPE; t68465.s0.value.external_symbol_type = q42; /* x219224 */ t68466.s0.tag = EXTERNAL_SYMBOL_TYPE; t68466.s0.value.external_symbol_type = q527; /* x219225 */ t68468.s0.tag = EXTERNAL_SYMBOL_TYPE; t68468.s0.value.external_symbol_type = q108; /* x219226 */ t68469.s0.tag = EXTERNAL_SYMBOL_TYPE; t68469.s0.value.external_symbol_type = q527; /* x219227 */ t68469.s1.tag = NULL_TYPE; /* x219228 */ t68468.s1.tag = STRUCTURE_TYPE24753; t68468.s1.value.structure_type24753 = &t68469; /* x219229 */ t68467.s0.tag = STRUCTURE_TYPE24753; t68467.s0.value.structure_type24753 = &t68468; /* x219230 */ t68467.s1.tag = NULL_TYPE; /* x219231 */ t68466.s1.tag = STRUCTURE_TYPE24753; t68466.s1.value.structure_type24753 = &t68467; /* x219232 */ t68465.s1.tag = STRUCTURE_TYPE24753; t68465.s1.value.structure_type24753 = &t68466; /* x219233 */ t68464.s0.tag = STRUCTURE_TYPE24753; t68464.s0.value.structure_type24753 = &t68465; /* x219234 */ t68464.s1.tag = NULL_TYPE; /* x218877 stalin.sc:30206:1040183 */ t68503.s0.tag = EXTERNAL_SYMBOL_TYPE; t68503.s0.value.external_symbol_type = q11; /* x218878 stalin.sc:30206:1040183 */ t68504.s0.tag = NULL_TYPE; /* x218879 stalin.sc:30206:1040183 */ t68504.s1.tag = NULL_TYPE; /* x218880 stalin.sc:30206:1040183 */ t68503.s1.tag = STRUCTURE_TYPE24753; t68503.s1.value.structure_type24753 = &t68504; /* x205295 */ t86673.s0.tag = EXTERNAL_SYMBOL_TYPE; t86673.s0.value.external_symbol_type = q281; /* x205296 */ t86673.s1.tag = NULL_TYPE; /* x205314 */ t86695.s0.tag = EXTERNAL_SYMBOL_TYPE; t86695.s0.value.external_symbol_type = q281; /* x205315 */ t86695.s1.tag = NULL_TYPE; /* x205340 */ t86725.s0.tag = EXTERNAL_SYMBOL_TYPE; t86725.s0.value.external_symbol_type = q281; /* x205341 */ t86726.s0.tag = EXTERNAL_SYMBOL_TYPE; t86726.s0.value.external_symbol_type = q252; /* x205342 */ t86726.s1.tag = NULL_TYPE; /* x205343 */ t86725.s1.tag = STRUCTURE_TYPE24753; t86725.s1.value.structure_type24753 = &t86726; /* x205361 */ t86748.s0.tag = EXTERNAL_SYMBOL_TYPE; t86748.s0.value.external_symbol_type = q281; /* x205362 */ t86749.s0.tag = EXTERNAL_SYMBOL_TYPE; t86749.s0.value.external_symbol_type = q252; /* x205363 */ t86749.s1.tag = NULL_TYPE; /* x205364 */ t86748.s1.tag = STRUCTURE_TYPE24753; t86748.s1.value.structure_type24753 = &t86749; /* x205389 */ t86778.s0.tag = EXTERNAL_SYMBOL_TYPE; t86778.s0.value.external_symbol_type = q281; /* x205390 */ t86779.s0.tag = EXTERNAL_SYMBOL_TYPE; t86779.s0.value.external_symbol_type = q252; /* x205391 */ t86779.s1.tag = NULL_TYPE; /* x205392 */ t86778.s1.tag = STRUCTURE_TYPE24753; t86778.s1.value.structure_type24753 = &t86779; /* x205417 */ t86820.s0.tag = EXTERNAL_SYMBOL_TYPE; t86820.s0.value.external_symbol_type = q281; /* x205418 */ t86820.s1.tag = NULL_TYPE; /* x205444 */ t86849.s0.tag = EXTERNAL_SYMBOL_TYPE; t86849.s0.value.external_symbol_type = q281; /* x205445 */ t86850.s0.tag = EXTERNAL_SYMBOL_TYPE; t86850.s0.value.external_symbol_type = q502; /* x205446 */ t86850.s1.tag = NULL_TYPE; /* x205447 */ t86849.s1.tag = STRUCTURE_TYPE24753; t86849.s1.value.structure_type24753 = &t86850; /* x205472 */ t86872.s0.tag = EXTERNAL_SYMBOL_TYPE; t86872.s0.value.external_symbol_type = q281; /* x205473 */ t86873.s0.tag = EXTERNAL_SYMBOL_TYPE; t86873.s0.value.external_symbol_type = q252; /* x205474 */ t86873.s1.tag = NULL_TYPE; /* x205475 */ t86872.s1.tag = STRUCTURE_TYPE24753; t86872.s1.value.structure_type24753 = &t86873; /* x229808 stalin.sc:32612:1126724 */ t92903.s0.tag = STRING_TYPE; t92903.s0.value.string_type = "-lgc"; /* x229809 stalin.sc:32612:1126724 */ t92903.s1.tag = NULL_TYPE; /* x229815 stalin.sc:32613:1126778 */ t92908.s0.tag = STRING_TYPE; t92908.s0.value.string_type = "-lpthread"; /* x229816 stalin.sc:32613:1126778 */ t92908.s1.tag = NULL_TYPE; /* x229822 stalin.sc:32614:1126827 */ t92912.s0.tag = STRING_TYPE; t92912.s0.value.string_type = "-lTmk"; /* x229823 stalin.sc:32614:1126827 */ t92912.s1.tag = NULL_TYPE; /* x3018 stalin.sc:32762:1133540 */ t93742.s0.tag = STRING_TYPE; t93742.s0.value.string_type = "."; /* x3019 stalin.sc:32762:1133540 */ t93742.s1.tag = NULL_TYPE; /* x3022 stalin.sc:32762:1133560 */ t93743.s0.tag = STRING_TYPE; t93743.s0.value.string_type = "/usr/local/stalin/include"; /* x3023 stalin.sc:32762:1133560 */ t93743.s1.tag = NULL_TYPE; /* x93042 stalin.sc:8172:279247 */ t93777.s0.tag = EXTERNAL_SYMBOL_TYPE; t93777.s0.value.external_symbol_type = q102; /* x93043 stalin.sc:8172:279247 */ t93778.s0.tag = EXTERNAL_SYMBOL_TYPE; t93778.s0.value.external_symbol_type = q102; /* x93044 stalin.sc:8172:279247 */ t93778.s1.tag = NULL_TYPE; /* x93045 stalin.sc:8172:279247 */ t93777.s1.tag = STRUCTURE_TYPE24753; t93777.s1.value.structure_type24753 = &t93778; /* x93046 stalin.sc:8172:279247 */ t93776.s0.tag = STRUCTURE_TYPE24753; t93776.s0.value.structure_type24753 = &t93777; /* x93047 stalin.sc:8172:279247 */ t93780.s0.tag = EXTERNAL_SYMBOL_TYPE; t93780.s0.value.external_symbol_type = q103; /* x93048 stalin.sc:8172:279247 */ t93781.s0.tag = EXTERNAL_SYMBOL_TYPE; t93781.s0.value.external_symbol_type = q103; /* x93049 stalin.sc:8172:279247 */ t93781.s1.tag = NULL_TYPE; /* x93050 stalin.sc:8172:279247 */ t93780.s1.tag = STRUCTURE_TYPE24753; t93780.s1.value.structure_type24753 = &t93781; /* x93051 stalin.sc:8172:279247 */ t93779.s0.tag = STRUCTURE_TYPE24753; t93779.s0.value.structure_type24753 = &t93780; /* x93052 stalin.sc:8172:279247 */ t93783.s0.tag = EXTERNAL_SYMBOL_TYPE; t93783.s0.value.external_symbol_type = q104; /* x93053 stalin.sc:8172:279247 */ t93784.s0.tag = EXTERNAL_SYMBOL_TYPE; t93784.s0.value.external_symbol_type = q104; /* x93054 stalin.sc:8172:279247 */ t93784.s1.tag = NULL_TYPE; /* x93055 stalin.sc:8172:279247 */ t93783.s1.tag = STRUCTURE_TYPE24753; t93783.s1.value.structure_type24753 = &t93784; /* x93056 stalin.sc:8172:279247 */ t93782.s0.tag = STRUCTURE_TYPE24753; t93782.s0.value.structure_type24753 = &t93783; /* x93057 stalin.sc:8172:279247 */ t93786.s0.tag = EXTERNAL_SYMBOL_TYPE; t93786.s0.value.external_symbol_type = q105; /* x93058 stalin.sc:8172:279247 */ t93787.s0.tag = EXTERNAL_SYMBOL_TYPE; t93787.s0.value.external_symbol_type = q101; /* x93059 stalin.sc:8172:279247 */ t93788.s0.tag = EXTERNAL_SYMBOL_TYPE; t93788.s0.value.external_symbol_type = q51; /* x93060 stalin.sc:8172:279247 */ t93788.s1.tag = NULL_TYPE; /* x93061 stalin.sc:8172:279247 */ t93787.s1.tag = STRUCTURE_TYPE24753; t93787.s1.value.structure_type24753 = &t93788; /* x93062 stalin.sc:8172:279247 */ t93786.s1.tag = STRUCTURE_TYPE24753; t93786.s1.value.structure_type24753 = &t93787; /* x93063 stalin.sc:8172:279247 */ t93785.s0.tag = STRUCTURE_TYPE24753; t93785.s0.value.structure_type24753 = &t93786; /* x93064 stalin.sc:8172:279247 */ t93790.s0.tag = EXTERNAL_SYMBOL_TYPE; t93790.s0.value.external_symbol_type = q106; /* x93065 stalin.sc:8172:279247 */ t93791.s0.tag = EXTERNAL_SYMBOL_TYPE; t93791.s0.value.external_symbol_type = q98; /* x93066 stalin.sc:8172:279247 */ t93792.s0.tag = EXTERNAL_SYMBOL_TYPE; t93792.s0.value.external_symbol_type = q51; /* x93067 stalin.sc:8172:279247 */ t93793.s0.tag = FIXNUM_TYPE; t93793.s0.value.fixnum_type = 2; /* x93068 stalin.sc:8172:279247 */ t93793.s1.tag = NULL_TYPE; /* x93069 stalin.sc:8172:279247 */ t93792.s1.tag = STRUCTURE_TYPE24753; t93792.s1.value.structure_type24753 = &t93793; /* x93070 stalin.sc:8172:279247 */ t93791.s1.tag = STRUCTURE_TYPE24753; t93791.s1.value.structure_type24753 = &t93792; /* x93071 stalin.sc:8172:279247 */ t93790.s1.tag = STRUCTURE_TYPE24753; t93790.s1.value.structure_type24753 = &t93791; /* x93072 stalin.sc:8172:279247 */ t93789.s0.tag = STRUCTURE_TYPE24753; t93789.s0.value.structure_type24753 = &t93790; /* x93073 stalin.sc:8172:279247 */ t93795.s0.tag = EXTERNAL_SYMBOL_TYPE; t93795.s0.value.external_symbol_type = q107; /* x93074 stalin.sc:8172:279247 */ t93796.s0.tag = EXTERNAL_SYMBOL_TYPE; t93796.s0.value.external_symbol_type = q99; /* x93075 stalin.sc:8172:279247 */ t93797.s0.tag = EXTERNAL_SYMBOL_TYPE; t93797.s0.value.external_symbol_type = q51; /* x93076 stalin.sc:8172:279247 */ t93798.s0.tag = FIXNUM_TYPE; t93798.s0.value.fixnum_type = 0; /* x93077 stalin.sc:8172:279247 */ t93798.s1.tag = NULL_TYPE; /* x93078 stalin.sc:8172:279247 */ t93797.s1.tag = STRUCTURE_TYPE24753; t93797.s1.value.structure_type24753 = &t93798; /* x93079 stalin.sc:8172:279247 */ t93796.s1.tag = STRUCTURE_TYPE24753; t93796.s1.value.structure_type24753 = &t93797; /* x93080 stalin.sc:8172:279247 */ t93795.s1.tag = STRUCTURE_TYPE24753; t93795.s1.value.structure_type24753 = &t93796; /* x93081 stalin.sc:8172:279247 */ t93794.s0.tag = STRUCTURE_TYPE24753; t93794.s0.value.structure_type24753 = &t93795; /* x93082 stalin.sc:8172:279247 */ t93800.s0.tag = EXTERNAL_SYMBOL_TYPE; t93800.s0.value.external_symbol_type = q108; /* x93083 stalin.sc:8172:279247 */ t93801.s0.tag = EXTERNAL_SYMBOL_TYPE; t93801.s0.value.external_symbol_type = q99; /* x93084 stalin.sc:8172:279247 */ t93802.s0.tag = EXTERNAL_SYMBOL_TYPE; t93802.s0.value.external_symbol_type = q51; /* x93085 stalin.sc:8172:279247 */ t93803.s0.tag = FIXNUM_TYPE; t93803.s0.value.fixnum_type = 1; /* x93086 stalin.sc:8172:279247 */ t93803.s1.tag = NULL_TYPE; /* x93087 stalin.sc:8172:279247 */ t93802.s1.tag = STRUCTURE_TYPE24753; t93802.s1.value.structure_type24753 = &t93803; /* x93088 stalin.sc:8172:279247 */ t93801.s1.tag = STRUCTURE_TYPE24753; t93801.s1.value.structure_type24753 = &t93802; /* x93089 stalin.sc:8172:279247 */ t93800.s1.tag = STRUCTURE_TYPE24753; t93800.s1.value.structure_type24753 = &t93801; /* x93090 stalin.sc:8172:279247 */ t93799.s0.tag = STRUCTURE_TYPE24753; t93799.s0.value.structure_type24753 = &t93800; /* x93091 stalin.sc:8172:279247 */ t93805.s0.tag = EXTERNAL_SYMBOL_TYPE; t93805.s0.value.external_symbol_type = q109; /* x93092 stalin.sc:8172:279247 */ t93806.s0.tag = EXTERNAL_SYMBOL_TYPE; t93806.s0.value.external_symbol_type = q100; /* x93093 stalin.sc:8172:279247 */ t93807.s0.tag = EXTERNAL_SYMBOL_TYPE; t93807.s0.value.external_symbol_type = q51; /* x93094 stalin.sc:8172:279247 */ t93808.s0.tag = FIXNUM_TYPE; t93808.s0.value.fixnum_type = 0; /* x93095 stalin.sc:8172:279247 */ t93808.s1.tag = NULL_TYPE; /* x93096 stalin.sc:8172:279247 */ t93807.s1.tag = STRUCTURE_TYPE24753; t93807.s1.value.structure_type24753 = &t93808; /* x93097 stalin.sc:8172:279247 */ t93806.s1.tag = STRUCTURE_TYPE24753; t93806.s1.value.structure_type24753 = &t93807; /* x93098 stalin.sc:8172:279247 */ t93805.s1.tag = STRUCTURE_TYPE24753; t93805.s1.value.structure_type24753 = &t93806; /* x93099 stalin.sc:8172:279247 */ t93804.s0.tag = STRUCTURE_TYPE24753; t93804.s0.value.structure_type24753 = &t93805; /* x93100 stalin.sc:8172:279247 */ t93810.s0.tag = EXTERNAL_SYMBOL_TYPE; t93810.s0.value.external_symbol_type = q110; /* x93101 stalin.sc:8172:279247 */ t93811.s0.tag = EXTERNAL_SYMBOL_TYPE; t93811.s0.value.external_symbol_type = q100; /* x93102 stalin.sc:8172:279247 */ t93812.s0.tag = EXTERNAL_SYMBOL_TYPE; t93812.s0.value.external_symbol_type = q51; /* x93103 stalin.sc:8172:279247 */ t93813.s0.tag = FIXNUM_TYPE; t93813.s0.value.fixnum_type = 1; /* x93104 stalin.sc:8172:279247 */ t93813.s1.tag = NULL_TYPE; /* x93105 stalin.sc:8172:279247 */ t93812.s1.tag = STRUCTURE_TYPE24753; t93812.s1.value.structure_type24753 = &t93813; /* x93106 stalin.sc:8172:279247 */ t93811.s1.tag = STRUCTURE_TYPE24753; t93811.s1.value.structure_type24753 = &t93812; /* x93107 stalin.sc:8172:279247 */ t93810.s1.tag = STRUCTURE_TYPE24753; t93810.s1.value.structure_type24753 = &t93811; /* x93108 stalin.sc:8172:279247 */ t93809.s0.tag = STRUCTURE_TYPE24753; t93809.s0.value.structure_type24753 = &t93810; /* x93109 stalin.sc:8172:279247 */ t93815.s0.tag = EXTERNAL_SYMBOL_TYPE; t93815.s0.value.external_symbol_type = q111; /* x93110 stalin.sc:8172:279247 */ t93816.s0.tag = EXTERNAL_SYMBOL_TYPE; t93816.s0.value.external_symbol_type = q111; /* x93111 stalin.sc:8172:279247 */ t93816.s1.tag = NULL_TYPE; /* x93112 stalin.sc:8172:279247 */ t93815.s1.tag = STRUCTURE_TYPE24753; t93815.s1.value.structure_type24753 = &t93816; /* x93113 stalin.sc:8172:279247 */ t93814.s0.tag = STRUCTURE_TYPE24753; t93814.s0.value.structure_type24753 = &t93815; /* x93114 stalin.sc:8172:279247 */ t93818.s0.tag = EXTERNAL_SYMBOL_TYPE; t93818.s0.value.external_symbol_type = q112; /* x93115 stalin.sc:8172:279247 */ t93819.s0.tag = EXTERNAL_SYMBOL_TYPE; t93819.s0.value.external_symbol_type = q112; /* x93116 stalin.sc:8172:279247 */ t93819.s1.tag = NULL_TYPE; /* x93117 stalin.sc:8172:279247 */ t93818.s1.tag = STRUCTURE_TYPE24753; t93818.s1.value.structure_type24753 = &t93819; /* x93118 stalin.sc:8172:279247 */ t93817.s0.tag = STRUCTURE_TYPE24753; t93817.s0.value.structure_type24753 = &t93818; /* x93119 stalin.sc:8172:279247 */ t93821.s0.tag = EXTERNAL_SYMBOL_TYPE; t93821.s0.value.external_symbol_type = q113; /* x93120 stalin.sc:8172:279247 */ t93822.s0.tag = EXTERNAL_SYMBOL_TYPE; t93822.s0.value.external_symbol_type = q113; /* x93121 stalin.sc:8172:279247 */ t93822.s1.tag = NULL_TYPE; /* x93122 stalin.sc:8172:279247 */ t93821.s1.tag = STRUCTURE_TYPE24753; t93821.s1.value.structure_type24753 = &t93822; /* x93123 stalin.sc:8172:279247 */ t93820.s0.tag = STRUCTURE_TYPE24753; t93820.s0.value.structure_type24753 = &t93821; /* x93124 stalin.sc:8172:279247 */ t93824.s0.tag = EXTERNAL_SYMBOL_TYPE; t93824.s0.value.external_symbol_type = q114; /* x93125 stalin.sc:8172:279247 */ t93825.s0.tag = EXTERNAL_SYMBOL_TYPE; t93825.s0.value.external_symbol_type = q114; /* x93126 stalin.sc:8172:279247 */ t93825.s1.tag = NULL_TYPE; /* x93127 stalin.sc:8172:279247 */ t93824.s1.tag = STRUCTURE_TYPE24753; t93824.s1.value.structure_type24753 = &t93825; /* x93128 stalin.sc:8172:279247 */ t93823.s0.tag = STRUCTURE_TYPE24753; t93823.s0.value.structure_type24753 = &t93824; /* x93129 stalin.sc:8172:279247 */ t93827.s0.tag = EXTERNAL_SYMBOL_TYPE; t93827.s0.value.external_symbol_type = q115; /* x93130 stalin.sc:8172:279247 */ t93828.s0.tag = EXTERNAL_SYMBOL_TYPE; t93828.s0.value.external_symbol_type = q115; /* x93131 stalin.sc:8172:279247 */ t93828.s1.tag = NULL_TYPE; /* x93132 stalin.sc:8172:279247 */ t93827.s1.tag = STRUCTURE_TYPE24753; t93827.s1.value.structure_type24753 = &t93828; /* x93133 stalin.sc:8172:279247 */ t93826.s0.tag = STRUCTURE_TYPE24753; t93826.s0.value.structure_type24753 = &t93827; /* x93134 stalin.sc:8172:279247 */ t93830.s0.tag = EXTERNAL_SYMBOL_TYPE; t93830.s0.value.external_symbol_type = q116; /* x93135 stalin.sc:8172:279247 */ t93831.s0.tag = EXTERNAL_SYMBOL_TYPE; t93831.s0.value.external_symbol_type = q116; /* x93136 stalin.sc:8172:279247 */ t93831.s1.tag = NULL_TYPE; /* x93137 stalin.sc:8172:279247 */ t93830.s1.tag = STRUCTURE_TYPE24753; t93830.s1.value.structure_type24753 = &t93831; /* x93138 stalin.sc:8172:279247 */ t93829.s0.tag = STRUCTURE_TYPE24753; t93829.s0.value.structure_type24753 = &t93830; /* x93139 stalin.sc:8172:279247 */ t93833.s0.tag = EXTERNAL_SYMBOL_TYPE; t93833.s0.value.external_symbol_type = q117; /* x93140 stalin.sc:8172:279247 */ t93834.s0.tag = EXTERNAL_SYMBOL_TYPE; t93834.s0.value.external_symbol_type = q117; /* x93141 stalin.sc:8172:279247 */ t93834.s1.tag = NULL_TYPE; /* x93142 stalin.sc:8172:279247 */ t93833.s1.tag = STRUCTURE_TYPE24753; t93833.s1.value.structure_type24753 = &t93834; /* x93143 stalin.sc:8172:279247 */ t93832.s0.tag = STRUCTURE_TYPE24753; t93832.s0.value.structure_type24753 = &t93833; /* x93144 stalin.sc:8172:279247 */ t93836.s0.tag = EXTERNAL_SYMBOL_TYPE; t93836.s0.value.external_symbol_type = q118; /* x93145 stalin.sc:8172:279247 */ t93837.s0.tag = EXTERNAL_SYMBOL_TYPE; t93837.s0.value.external_symbol_type = q118; /* x93146 stalin.sc:8172:279247 */ t93837.s1.tag = NULL_TYPE; /* x93147 stalin.sc:8172:279247 */ t93836.s1.tag = STRUCTURE_TYPE24753; t93836.s1.value.structure_type24753 = &t93837; /* x93148 stalin.sc:8172:279247 */ t93835.s0.tag = STRUCTURE_TYPE24753; t93835.s0.value.structure_type24753 = &t93836; /* x93149 stalin.sc:8172:279247 */ t93839.s0.tag = EXTERNAL_SYMBOL_TYPE; t93839.s0.value.external_symbol_type = q119; /* x93150 stalin.sc:8172:279247 */ t93840.s0.tag = EXTERNAL_SYMBOL_TYPE; t93840.s0.value.external_symbol_type = q119; /* x93151 stalin.sc:8172:279247 */ t93840.s1.tag = NULL_TYPE; /* x93152 stalin.sc:8172:279247 */ t93839.s1.tag = STRUCTURE_TYPE24753; t93839.s1.value.structure_type24753 = &t93840; /* x93153 stalin.sc:8172:279247 */ t93838.s0.tag = STRUCTURE_TYPE24753; t93838.s0.value.structure_type24753 = &t93839; /* x93154 stalin.sc:8172:279247 */ t93842.s0.tag = EXTERNAL_SYMBOL_TYPE; t93842.s0.value.external_symbol_type = q120; /* x93155 stalin.sc:8172:279247 */ t93843.s0.tag = EXTERNAL_SYMBOL_TYPE; t93843.s0.value.external_symbol_type = q120; /* x93156 stalin.sc:8172:279247 */ t93843.s1.tag = NULL_TYPE; /* x93157 stalin.sc:8172:279247 */ t93842.s1.tag = STRUCTURE_TYPE24753; t93842.s1.value.structure_type24753 = &t93843; /* x93158 stalin.sc:8172:279247 */ t93841.s0.tag = STRUCTURE_TYPE24753; t93841.s0.value.structure_type24753 = &t93842; /* x93159 stalin.sc:8172:279247 */ t93845.s0.tag = EXTERNAL_SYMBOL_TYPE; t93845.s0.value.external_symbol_type = q121; /* x93160 stalin.sc:8172:279247 */ t93846.s0.tag = EXTERNAL_SYMBOL_TYPE; t93846.s0.value.external_symbol_type = q121; /* x93161 stalin.sc:8172:279247 */ t93846.s1.tag = NULL_TYPE; /* x93162 stalin.sc:8172:279247 */ t93845.s1.tag = STRUCTURE_TYPE24753; t93845.s1.value.structure_type24753 = &t93846; /* x93163 stalin.sc:8172:279247 */ t93844.s0.tag = STRUCTURE_TYPE24753; t93844.s0.value.structure_type24753 = &t93845; /* x93164 stalin.sc:8172:279247 */ t93848.s0.tag = EXTERNAL_SYMBOL_TYPE; t93848.s0.value.external_symbol_type = q122; /* x93165 stalin.sc:8172:279247 */ t93849.s0.tag = EXTERNAL_SYMBOL_TYPE; t93849.s0.value.external_symbol_type = q122; /* x93166 stalin.sc:8172:279247 */ t93849.s1.tag = NULL_TYPE; /* x93167 stalin.sc:8172:279247 */ t93848.s1.tag = STRUCTURE_TYPE24753; t93848.s1.value.structure_type24753 = &t93849; /* x93168 stalin.sc:8172:279247 */ t93847.s0.tag = STRUCTURE_TYPE24753; t93847.s0.value.structure_type24753 = &t93848; /* x93169 stalin.sc:8172:279247 */ t93851.s0.tag = EXTERNAL_SYMBOL_TYPE; t93851.s0.value.external_symbol_type = q123; /* x93170 stalin.sc:8172:279247 */ t93852.s0.tag = EXTERNAL_SYMBOL_TYPE; t93852.s0.value.external_symbol_type = q123; /* x93171 stalin.sc:8172:279247 */ t93852.s1.tag = NULL_TYPE; /* x93172 stalin.sc:8172:279247 */ t93851.s1.tag = STRUCTURE_TYPE24753; t93851.s1.value.structure_type24753 = &t93852; /* x93173 stalin.sc:8172:279247 */ t93850.s0.tag = STRUCTURE_TYPE24753; t93850.s0.value.structure_type24753 = &t93851; /* x93174 stalin.sc:8172:279247 */ t93854.s0.tag = EXTERNAL_SYMBOL_TYPE; t93854.s0.value.external_symbol_type = q124; /* x93175 stalin.sc:8172:279247 */ t93855.s0.tag = EXTERNAL_SYMBOL_TYPE; t93855.s0.value.external_symbol_type = q124; /* x93176 stalin.sc:8172:279247 */ t93855.s1.tag = NULL_TYPE; /* x93177 stalin.sc:8172:279247 */ t93854.s1.tag = STRUCTURE_TYPE24753; t93854.s1.value.structure_type24753 = &t93855; /* x93178 stalin.sc:8172:279247 */ t93853.s0.tag = STRUCTURE_TYPE24753; t93853.s0.value.structure_type24753 = &t93854; /* x93179 stalin.sc:8172:279247 */ t93857.s0.tag = EXTERNAL_SYMBOL_TYPE; t93857.s0.value.external_symbol_type = q125; /* x93180 stalin.sc:8172:279247 */ t93858.s0.tag = EXTERNAL_SYMBOL_TYPE; t93858.s0.value.external_symbol_type = q125; /* x93181 stalin.sc:8172:279247 */ t93858.s1.tag = NULL_TYPE; /* x93182 stalin.sc:8172:279247 */ t93857.s1.tag = STRUCTURE_TYPE24753; t93857.s1.value.structure_type24753 = &t93858; /* x93183 stalin.sc:8172:279247 */ t93856.s0.tag = STRUCTURE_TYPE24753; t93856.s0.value.structure_type24753 = &t93857; /* x93184 stalin.sc:8172:279247 */ t93860.s0.tag = EXTERNAL_SYMBOL_TYPE; t93860.s0.value.external_symbol_type = q126; /* x93185 stalin.sc:8172:279247 */ t93861.s0.tag = EXTERNAL_SYMBOL_TYPE; t93861.s0.value.external_symbol_type = q126; /* x93186 stalin.sc:8172:279247 */ t93861.s1.tag = NULL_TYPE; /* x93187 stalin.sc:8172:279247 */ t93860.s1.tag = STRUCTURE_TYPE24753; t93860.s1.value.structure_type24753 = &t93861; /* x93188 stalin.sc:8172:279247 */ t93859.s0.tag = STRUCTURE_TYPE24753; t93859.s0.value.structure_type24753 = &t93860; /* x93189 stalin.sc:8172:279247 */ t93863.s0.tag = EXTERNAL_SYMBOL_TYPE; t93863.s0.value.external_symbol_type = q127; /* x93190 stalin.sc:8172:279247 */ t93864.s0.tag = EXTERNAL_SYMBOL_TYPE; t93864.s0.value.external_symbol_type = q127; /* x93191 stalin.sc:8172:279247 */ t93864.s1.tag = NULL_TYPE; /* x93192 stalin.sc:8172:279247 */ t93863.s1.tag = STRUCTURE_TYPE24753; t93863.s1.value.structure_type24753 = &t93864; /* x93193 stalin.sc:8172:279247 */ t93862.s0.tag = STRUCTURE_TYPE24753; t93862.s0.value.structure_type24753 = &t93863; /* x93194 stalin.sc:8172:279247 */ t93866.s0.tag = EXTERNAL_SYMBOL_TYPE; t93866.s0.value.external_symbol_type = q128; /* x93195 stalin.sc:8172:279247 */ t93867.s0.tag = EXTERNAL_SYMBOL_TYPE; t93867.s0.value.external_symbol_type = q128; /* x93196 stalin.sc:8172:279247 */ t93867.s1.tag = NULL_TYPE; /* x93197 stalin.sc:8172:279247 */ t93866.s1.tag = STRUCTURE_TYPE24753; t93866.s1.value.structure_type24753 = &t93867; /* x93198 stalin.sc:8172:279247 */ t93865.s0.tag = STRUCTURE_TYPE24753; t93865.s0.value.structure_type24753 = &t93866; /* x93199 stalin.sc:8172:279247 */ t93869.s0.tag = EXTERNAL_SYMBOL_TYPE; t93869.s0.value.external_symbol_type = q129; /* x93200 stalin.sc:8172:279247 */ t93870.s0.tag = EXTERNAL_SYMBOL_TYPE; t93870.s0.value.external_symbol_type = q129; /* x93201 stalin.sc:8172:279247 */ t93870.s1.tag = NULL_TYPE; /* x93202 stalin.sc:8172:279247 */ t93869.s1.tag = STRUCTURE_TYPE24753; t93869.s1.value.structure_type24753 = &t93870; /* x93203 stalin.sc:8172:279247 */ t93868.s0.tag = STRUCTURE_TYPE24753; t93868.s0.value.structure_type24753 = &t93869; /* x93204 stalin.sc:8172:279247 */ t93872.s0.tag = EXTERNAL_SYMBOL_TYPE; t93872.s0.value.external_symbol_type = q4; /* x93205 stalin.sc:8172:279247 */ t93873.s0.tag = EXTERNAL_SYMBOL_TYPE; t93873.s0.value.external_symbol_type = q4; /* x93206 stalin.sc:8172:279247 */ t93873.s1.tag = NULL_TYPE; /* x93207 stalin.sc:8172:279247 */ t93872.s1.tag = STRUCTURE_TYPE24753; t93872.s1.value.structure_type24753 = &t93873; /* x93208 stalin.sc:8172:279247 */ t93871.s0.tag = STRUCTURE_TYPE24753; t93871.s0.value.structure_type24753 = &t93872; /* x93209 stalin.sc:8172:279247 */ t93875.s0.tag = EXTERNAL_SYMBOL_TYPE; t93875.s0.value.external_symbol_type = q130; /* x93210 stalin.sc:8172:279247 */ t93876.s0.tag = EXTERNAL_SYMBOL_TYPE; t93876.s0.value.external_symbol_type = q130; /* x93211 stalin.sc:8172:279247 */ t93876.s1.tag = NULL_TYPE; /* x93212 stalin.sc:8172:279247 */ t93875.s1.tag = STRUCTURE_TYPE24753; t93875.s1.value.structure_type24753 = &t93876; /* x93213 stalin.sc:8172:279247 */ t93874.s0.tag = STRUCTURE_TYPE24753; t93874.s0.value.structure_type24753 = &t93875; /* x93214 stalin.sc:8172:279247 */ t93878.s0.tag = EXTERNAL_SYMBOL_TYPE; t93878.s0.value.external_symbol_type = q2; /* x93215 stalin.sc:8172:279247 */ t93879.s0.tag = EXTERNAL_SYMBOL_TYPE; t93879.s0.value.external_symbol_type = q2; /* x93216 stalin.sc:8172:279247 */ t93879.s1.tag = NULL_TYPE; /* x93217 stalin.sc:8172:279247 */ t93878.s1.tag = STRUCTURE_TYPE24753; t93878.s1.value.structure_type24753 = &t93879; /* x93218 stalin.sc:8172:279247 */ t93877.s0.tag = STRUCTURE_TYPE24753; t93877.s0.value.structure_type24753 = &t93878; /* x93219 stalin.sc:8172:279247 */ t93881.s0.tag = EXTERNAL_SYMBOL_TYPE; t93881.s0.value.external_symbol_type = q131; /* x93220 stalin.sc:8172:279247 */ t93882.s0.tag = EXTERNAL_SYMBOL_TYPE; t93882.s0.value.external_symbol_type = q131; /* x93221 stalin.sc:8172:279247 */ t93882.s1.tag = NULL_TYPE; /* x93222 stalin.sc:8172:279247 */ t93881.s1.tag = STRUCTURE_TYPE24753; t93881.s1.value.structure_type24753 = &t93882; /* x93223 stalin.sc:8172:279247 */ t93880.s0.tag = STRUCTURE_TYPE24753; t93880.s0.value.structure_type24753 = &t93881; /* x93224 stalin.sc:8172:279247 */ t93884.s0.tag = EXTERNAL_SYMBOL_TYPE; t93884.s0.value.external_symbol_type = q132; /* x93225 stalin.sc:8172:279247 */ t93885.s0.tag = EXTERNAL_SYMBOL_TYPE; t93885.s0.value.external_symbol_type = q132; /* x93226 stalin.sc:8172:279247 */ t93885.s1.tag = NULL_TYPE; /* x93227 stalin.sc:8172:279247 */ t93884.s1.tag = STRUCTURE_TYPE24753; t93884.s1.value.structure_type24753 = &t93885; /* x93228 stalin.sc:8172:279247 */ t93883.s0.tag = STRUCTURE_TYPE24753; t93883.s0.value.structure_type24753 = &t93884; /* x93229 stalin.sc:8172:279247 */ t93887.s0.tag = EXTERNAL_SYMBOL_TYPE; t93887.s0.value.external_symbol_type = q133; /* x93230 stalin.sc:8172:279247 */ t93888.s0.tag = EXTERNAL_SYMBOL_TYPE; t93888.s0.value.external_symbol_type = q133; /* x93231 stalin.sc:8172:279247 */ t93888.s1.tag = NULL_TYPE; /* x93232 stalin.sc:8172:279247 */ t93887.s1.tag = STRUCTURE_TYPE24753; t93887.s1.value.structure_type24753 = &t93888; /* x93233 stalin.sc:8172:279247 */ t93886.s0.tag = STRUCTURE_TYPE24753; t93886.s0.value.structure_type24753 = &t93887; /* x93234 stalin.sc:8172:279247 */ t93890.s0.tag = EXTERNAL_SYMBOL_TYPE; t93890.s0.value.external_symbol_type = q134; /* x93235 stalin.sc:8172:279247 */ t93891.s0.tag = EXTERNAL_SYMBOL_TYPE; t93891.s0.value.external_symbol_type = q134; /* x93236 stalin.sc:8172:279247 */ t93891.s1.tag = NULL_TYPE; /* x93237 stalin.sc:8172:279247 */ t93890.s1.tag = STRUCTURE_TYPE24753; t93890.s1.value.structure_type24753 = &t93891; /* x93238 stalin.sc:8172:279247 */ t93889.s0.tag = STRUCTURE_TYPE24753; t93889.s0.value.structure_type24753 = &t93890; /* x93239 stalin.sc:8172:279247 */ t93893.s0.tag = EXTERNAL_SYMBOL_TYPE; t93893.s0.value.external_symbol_type = q135; /* x93240 stalin.sc:8172:279247 */ t93894.s0.tag = EXTERNAL_SYMBOL_TYPE; t93894.s0.value.external_symbol_type = q135; /* x93241 stalin.sc:8172:279247 */ t93894.s1.tag = NULL_TYPE; /* x93242 stalin.sc:8172:279247 */ t93893.s1.tag = STRUCTURE_TYPE24753; t93893.s1.value.structure_type24753 = &t93894; /* x93243 stalin.sc:8172:279247 */ t93892.s0.tag = STRUCTURE_TYPE24753; t93892.s0.value.structure_type24753 = &t93893; /* x93244 stalin.sc:8172:279247 */ t93896.s0.tag = EXTERNAL_SYMBOL_TYPE; t93896.s0.value.external_symbol_type = q136; /* x93245 stalin.sc:8172:279247 */ t93897.s0.tag = EXTERNAL_SYMBOL_TYPE; t93897.s0.value.external_symbol_type = q136; /* x93246 stalin.sc:8172:279247 */ t93897.s1.tag = NULL_TYPE; /* x93247 stalin.sc:8172:279247 */ t93896.s1.tag = STRUCTURE_TYPE24753; t93896.s1.value.structure_type24753 = &t93897; /* x93248 stalin.sc:8172:279247 */ t93895.s0.tag = STRUCTURE_TYPE24753; t93895.s0.value.structure_type24753 = &t93896; /* x93249 stalin.sc:8172:279247 */ t93899.s0.tag = EXTERNAL_SYMBOL_TYPE; t93899.s0.value.external_symbol_type = q137; /* x93250 stalin.sc:8172:279247 */ t93900.s0.tag = EXTERNAL_SYMBOL_TYPE; t93900.s0.value.external_symbol_type = q137; /* x93251 stalin.sc:8172:279247 */ t93900.s1.tag = NULL_TYPE; /* x93252 stalin.sc:8172:279247 */ t93899.s1.tag = STRUCTURE_TYPE24753; t93899.s1.value.structure_type24753 = &t93900; /* x93253 stalin.sc:8172:279247 */ t93898.s0.tag = STRUCTURE_TYPE24753; t93898.s0.value.structure_type24753 = &t93899; /* x93254 stalin.sc:8172:279247 */ t93902.s0.tag = EXTERNAL_SYMBOL_TYPE; t93902.s0.value.external_symbol_type = q138; /* x93255 stalin.sc:8172:279247 */ t93903.s0.tag = EXTERNAL_SYMBOL_TYPE; t93903.s0.value.external_symbol_type = q138; /* x93256 stalin.sc:8172:279247 */ t93903.s1.tag = NULL_TYPE; /* x93257 stalin.sc:8172:279247 */ t93902.s1.tag = STRUCTURE_TYPE24753; t93902.s1.value.structure_type24753 = &t93903; /* x93258 stalin.sc:8172:279247 */ t93901.s0.tag = STRUCTURE_TYPE24753; t93901.s0.value.structure_type24753 = &t93902; /* x93259 stalin.sc:8172:279247 */ t93905.s0.tag = EXTERNAL_SYMBOL_TYPE; t93905.s0.value.external_symbol_type = q139; /* x93260 stalin.sc:8172:279247 */ t93906.s0.tag = EXTERNAL_SYMBOL_TYPE; t93906.s0.value.external_symbol_type = q139; /* x93261 stalin.sc:8172:279247 */ t93906.s1.tag = NULL_TYPE; /* x93262 stalin.sc:8172:279247 */ t93905.s1.tag = STRUCTURE_TYPE24753; t93905.s1.value.structure_type24753 = &t93906; /* x93263 stalin.sc:8172:279247 */ t93904.s0.tag = STRUCTURE_TYPE24753; t93904.s0.value.structure_type24753 = &t93905; /* x93264 stalin.sc:8172:279247 */ t93908.s0.tag = EXTERNAL_SYMBOL_TYPE; t93908.s0.value.external_symbol_type = q140; /* x93265 stalin.sc:8172:279247 */ t93909.s0.tag = EXTERNAL_SYMBOL_TYPE; t93909.s0.value.external_symbol_type = q140; /* x93266 stalin.sc:8172:279247 */ t93909.s1.tag = NULL_TYPE; /* x93267 stalin.sc:8172:279247 */ t93908.s1.tag = STRUCTURE_TYPE24753; t93908.s1.value.structure_type24753 = &t93909; /* x93268 stalin.sc:8172:279247 */ t93907.s0.tag = STRUCTURE_TYPE24753; t93907.s0.value.structure_type24753 = &t93908; /* x93269 stalin.sc:8172:279247 */ t93911.s0.tag = EXTERNAL_SYMBOL_TYPE; t93911.s0.value.external_symbol_type = q141; /* x93270 stalin.sc:8172:279247 */ t93912.s0.tag = EXTERNAL_SYMBOL_TYPE; t93912.s0.value.external_symbol_type = q141; /* x93271 stalin.sc:8172:279247 */ t93912.s1.tag = NULL_TYPE; /* x93272 stalin.sc:8172:279247 */ t93911.s1.tag = STRUCTURE_TYPE24753; t93911.s1.value.structure_type24753 = &t93912; /* x93273 stalin.sc:8172:279247 */ t93910.s0.tag = STRUCTURE_TYPE24753; t93910.s0.value.structure_type24753 = &t93911; /* x93274 stalin.sc:8172:279247 */ t93914.s0.tag = EXTERNAL_SYMBOL_TYPE; t93914.s0.value.external_symbol_type = q142; /* x93275 stalin.sc:8172:279247 */ t93915.s0.tag = EXTERNAL_SYMBOL_TYPE; t93915.s0.value.external_symbol_type = q142; /* x93276 stalin.sc:8172:279247 */ t93915.s1.tag = NULL_TYPE; /* x93277 stalin.sc:8172:279247 */ t93914.s1.tag = STRUCTURE_TYPE24753; t93914.s1.value.structure_type24753 = &t93915; /* x93278 stalin.sc:8172:279247 */ t93913.s0.tag = STRUCTURE_TYPE24753; t93913.s0.value.structure_type24753 = &t93914; /* x93279 stalin.sc:8172:279247 */ t93917.s0.tag = EXTERNAL_SYMBOL_TYPE; t93917.s0.value.external_symbol_type = q143; /* x93280 stalin.sc:8172:279247 */ t93918.s0.tag = EXTERNAL_SYMBOL_TYPE; t93918.s0.value.external_symbol_type = q143; /* x93281 stalin.sc:8172:279247 */ t93918.s1.tag = NULL_TYPE; /* x93282 stalin.sc:8172:279247 */ t93917.s1.tag = STRUCTURE_TYPE24753; t93917.s1.value.structure_type24753 = &t93918; /* x93283 stalin.sc:8172:279247 */ t93916.s0.tag = STRUCTURE_TYPE24753; t93916.s0.value.structure_type24753 = &t93917; /* x93284 stalin.sc:8172:279247 */ t93920.s0.tag = EXTERNAL_SYMBOL_TYPE; t93920.s0.value.external_symbol_type = q144; /* x93285 stalin.sc:8172:279247 */ t93921.s0.tag = EXTERNAL_SYMBOL_TYPE; t93921.s0.value.external_symbol_type = q144; /* x93286 stalin.sc:8172:279247 */ t93921.s1.tag = NULL_TYPE; /* x93287 stalin.sc:8172:279247 */ t93920.s1.tag = STRUCTURE_TYPE24753; t93920.s1.value.structure_type24753 = &t93921; /* x93288 stalin.sc:8172:279247 */ t93919.s0.tag = STRUCTURE_TYPE24753; t93919.s0.value.structure_type24753 = &t93920; /* x93289 stalin.sc:8172:279247 */ t93923.s0.tag = EXTERNAL_SYMBOL_TYPE; t93923.s0.value.external_symbol_type = q145; /* x93290 stalin.sc:8172:279247 */ t93924.s0.tag = EXTERNAL_SYMBOL_TYPE; t93924.s0.value.external_symbol_type = q145; /* x93291 stalin.sc:8172:279247 */ t93924.s1.tag = NULL_TYPE; /* x93292 stalin.sc:8172:279247 */ t93923.s1.tag = STRUCTURE_TYPE24753; t93923.s1.value.structure_type24753 = &t93924; /* x93293 stalin.sc:8172:279247 */ t93922.s0.tag = STRUCTURE_TYPE24753; t93922.s0.value.structure_type24753 = &t93923; /* x93294 stalin.sc:8172:279247 */ t93926.s0.tag = EXTERNAL_SYMBOL_TYPE; t93926.s0.value.external_symbol_type = q146; /* x93295 stalin.sc:8172:279247 */ t93927.s0.tag = EXTERNAL_SYMBOL_TYPE; t93927.s0.value.external_symbol_type = q146; /* x93296 stalin.sc:8172:279247 */ t93927.s1.tag = NULL_TYPE; /* x93297 stalin.sc:8172:279247 */ t93926.s1.tag = STRUCTURE_TYPE24753; t93926.s1.value.structure_type24753 = &t93927; /* x93298 stalin.sc:8172:279247 */ t93925.s0.tag = STRUCTURE_TYPE24753; t93925.s0.value.structure_type24753 = &t93926; /* x93299 stalin.sc:8172:279247 */ t93929.s0.tag = EXTERNAL_SYMBOL_TYPE; t93929.s0.value.external_symbol_type = q147; /* x93300 stalin.sc:8172:279247 */ t93930.s0.tag = EXTERNAL_SYMBOL_TYPE; t93930.s0.value.external_symbol_type = q147; /* x93301 stalin.sc:8172:279247 */ t93930.s1.tag = NULL_TYPE; /* x93302 stalin.sc:8172:279247 */ t93929.s1.tag = STRUCTURE_TYPE24753; t93929.s1.value.structure_type24753 = &t93930; /* x93303 stalin.sc:8172:279247 */ t93928.s0.tag = STRUCTURE_TYPE24753; t93928.s0.value.structure_type24753 = &t93929; /* x93304 stalin.sc:8172:279247 */ t93932.s0.tag = EXTERNAL_SYMBOL_TYPE; t93932.s0.value.external_symbol_type = q148; /* x93305 stalin.sc:8172:279247 */ t93933.s0.tag = EXTERNAL_SYMBOL_TYPE; t93933.s0.value.external_symbol_type = q148; /* x93306 stalin.sc:8172:279247 */ t93933.s1.tag = NULL_TYPE; /* x93307 stalin.sc:8172:279247 */ t93932.s1.tag = STRUCTURE_TYPE24753; t93932.s1.value.structure_type24753 = &t93933; /* x93308 stalin.sc:8172:279247 */ t93931.s0.tag = STRUCTURE_TYPE24753; t93931.s0.value.structure_type24753 = &t93932; /* x93309 stalin.sc:8172:279247 */ t93935.s0.tag = EXTERNAL_SYMBOL_TYPE; t93935.s0.value.external_symbol_type = q149; /* x93310 stalin.sc:8172:279247 */ t93936.s0.tag = EXTERNAL_SYMBOL_TYPE; t93936.s0.value.external_symbol_type = q149; /* x93311 stalin.sc:8172:279247 */ t93936.s1.tag = NULL_TYPE; /* x93312 stalin.sc:8172:279247 */ t93935.s1.tag = STRUCTURE_TYPE24753; t93935.s1.value.structure_type24753 = &t93936; /* x93313 stalin.sc:8172:279247 */ t93934.s0.tag = STRUCTURE_TYPE24753; t93934.s0.value.structure_type24753 = &t93935; /* x93314 stalin.sc:8172:279247 */ t93938.s0.tag = EXTERNAL_SYMBOL_TYPE; t93938.s0.value.external_symbol_type = q150; /* x93315 stalin.sc:8172:279247 */ t93939.s0.tag = EXTERNAL_SYMBOL_TYPE; t93939.s0.value.external_symbol_type = q150; /* x93316 stalin.sc:8172:279247 */ t93939.s1.tag = NULL_TYPE; /* x93317 stalin.sc:8172:279247 */ t93938.s1.tag = STRUCTURE_TYPE24753; t93938.s1.value.structure_type24753 = &t93939; /* x93318 stalin.sc:8172:279247 */ t93937.s0.tag = STRUCTURE_TYPE24753; t93937.s0.value.structure_type24753 = &t93938; /* x93319 stalin.sc:8172:279247 */ t93941.s0.tag = EXTERNAL_SYMBOL_TYPE; t93941.s0.value.external_symbol_type = q151; /* x93320 stalin.sc:8172:279247 */ t93942.s0.tag = EXTERNAL_SYMBOL_TYPE; t93942.s0.value.external_symbol_type = q151; /* x93321 stalin.sc:8172:279247 */ t93942.s1.tag = NULL_TYPE; /* x93322 stalin.sc:8172:279247 */ t93941.s1.tag = STRUCTURE_TYPE24753; t93941.s1.value.structure_type24753 = &t93942; /* x93323 stalin.sc:8172:279247 */ t93940.s0.tag = STRUCTURE_TYPE24753; t93940.s0.value.structure_type24753 = &t93941; /* x93324 stalin.sc:8172:279247 */ t93944.s0.tag = EXTERNAL_SYMBOL_TYPE; t93944.s0.value.external_symbol_type = q152; /* x93325 stalin.sc:8172:279247 */ t93945.s0.tag = EXTERNAL_SYMBOL_TYPE; t93945.s0.value.external_symbol_type = q152; /* x93326 stalin.sc:8172:279247 */ t93945.s1.tag = NULL_TYPE; /* x93327 stalin.sc:8172:279247 */ t93944.s1.tag = STRUCTURE_TYPE24753; t93944.s1.value.structure_type24753 = &t93945; /* x93328 stalin.sc:8172:279247 */ t93943.s0.tag = STRUCTURE_TYPE24753; t93943.s0.value.structure_type24753 = &t93944; /* x93329 stalin.sc:8172:279247 */ t93947.s0.tag = EXTERNAL_SYMBOL_TYPE; t93947.s0.value.external_symbol_type = q153; /* x93330 stalin.sc:8172:279247 */ t93948.s0.tag = EXTERNAL_SYMBOL_TYPE; t93948.s0.value.external_symbol_type = q153; /* x93331 stalin.sc:8172:279247 */ t93948.s1.tag = NULL_TYPE; /* x93332 stalin.sc:8172:279247 */ t93947.s1.tag = STRUCTURE_TYPE24753; t93947.s1.value.structure_type24753 = &t93948; /* x93333 stalin.sc:8172:279247 */ t93946.s0.tag = STRUCTURE_TYPE24753; t93946.s0.value.structure_type24753 = &t93947; /* x93334 stalin.sc:8172:279247 */ t93950.s0.tag = EXTERNAL_SYMBOL_TYPE; t93950.s0.value.external_symbol_type = q154; /* x93335 stalin.sc:8172:279247 */ t93951.s0.tag = EXTERNAL_SYMBOL_TYPE; t93951.s0.value.external_symbol_type = q154; /* x93336 stalin.sc:8172:279247 */ t93951.s1.tag = NULL_TYPE; /* x93337 stalin.sc:8172:279247 */ t93950.s1.tag = STRUCTURE_TYPE24753; t93950.s1.value.structure_type24753 = &t93951; /* x93338 stalin.sc:8172:279247 */ t93949.s0.tag = STRUCTURE_TYPE24753; t93949.s0.value.structure_type24753 = &t93950; /* x93339 stalin.sc:8172:279247 */ t93953.s0.tag = EXTERNAL_SYMBOL_TYPE; t93953.s0.value.external_symbol_type = q155; /* x93340 stalin.sc:8172:279247 */ t93954.s0.tag = EXTERNAL_SYMBOL_TYPE; t93954.s0.value.external_symbol_type = q155; /* x93341 stalin.sc:8172:279247 */ t93954.s1.tag = NULL_TYPE; /* x93342 stalin.sc:8172:279247 */ t93953.s1.tag = STRUCTURE_TYPE24753; t93953.s1.value.structure_type24753 = &t93954; /* x93343 stalin.sc:8172:279247 */ t93952.s0.tag = STRUCTURE_TYPE24753; t93952.s0.value.structure_type24753 = &t93953; /* x93344 stalin.sc:8172:279247 */ t93956.s0.tag = EXTERNAL_SYMBOL_TYPE; t93956.s0.value.external_symbol_type = q156; /* x93345 stalin.sc:8172:279247 */ t93957.s0.tag = EXTERNAL_SYMBOL_TYPE; t93957.s0.value.external_symbol_type = q156; /* x93346 stalin.sc:8172:279247 */ t93957.s1.tag = NULL_TYPE; /* x93347 stalin.sc:8172:279247 */ t93956.s1.tag = STRUCTURE_TYPE24753; t93956.s1.value.structure_type24753 = &t93957; /* x93348 stalin.sc:8172:279247 */ t93955.s0.tag = STRUCTURE_TYPE24753; t93955.s0.value.structure_type24753 = &t93956; /* x93349 stalin.sc:8172:279247 */ t93959.s0.tag = EXTERNAL_SYMBOL_TYPE; t93959.s0.value.external_symbol_type = q157; /* x93350 stalin.sc:8172:279247 */ t93960.s0.tag = EXTERNAL_SYMBOL_TYPE; t93960.s0.value.external_symbol_type = q157; /* x93351 stalin.sc:8172:279247 */ t93960.s1.tag = NULL_TYPE; /* x93352 stalin.sc:8172:279247 */ t93959.s1.tag = STRUCTURE_TYPE24753; t93959.s1.value.structure_type24753 = &t93960; /* x93353 stalin.sc:8172:279247 */ t93958.s0.tag = STRUCTURE_TYPE24753; t93958.s0.value.structure_type24753 = &t93959; /* x93354 stalin.sc:8172:279247 */ t93962.s0.tag = EXTERNAL_SYMBOL_TYPE; t93962.s0.value.external_symbol_type = q158; /* x93355 stalin.sc:8172:279247 */ t93963.s0.tag = EXTERNAL_SYMBOL_TYPE; t93963.s0.value.external_symbol_type = q158; /* x93356 stalin.sc:8172:279247 */ t93963.s1.tag = NULL_TYPE; /* x93357 stalin.sc:8172:279247 */ t93962.s1.tag = STRUCTURE_TYPE24753; t93962.s1.value.structure_type24753 = &t93963; /* x93358 stalin.sc:8172:279247 */ t93961.s0.tag = STRUCTURE_TYPE24753; t93961.s0.value.structure_type24753 = &t93962; /* x93359 stalin.sc:8172:279247 */ t93965.s0.tag = EXTERNAL_SYMBOL_TYPE; t93965.s0.value.external_symbol_type = q159; /* x93360 stalin.sc:8172:279247 */ t93966.s0.tag = EXTERNAL_SYMBOL_TYPE; t93966.s0.value.external_symbol_type = q159; /* x93361 stalin.sc:8172:279247 */ t93966.s1.tag = NULL_TYPE; /* x93362 stalin.sc:8172:279247 */ t93965.s1.tag = STRUCTURE_TYPE24753; t93965.s1.value.structure_type24753 = &t93966; /* x93363 stalin.sc:8172:279247 */ t93964.s0.tag = STRUCTURE_TYPE24753; t93964.s0.value.structure_type24753 = &t93965; /* x93364 stalin.sc:8172:279247 */ t93968.s0.tag = EXTERNAL_SYMBOL_TYPE; t93968.s0.value.external_symbol_type = q160; /* x93365 stalin.sc:8172:279247 */ t93969.s0.tag = EXTERNAL_SYMBOL_TYPE; t93969.s0.value.external_symbol_type = q160; /* x93366 stalin.sc:8172:279247 */ t93969.s1.tag = NULL_TYPE; /* x93367 stalin.sc:8172:279247 */ t93968.s1.tag = STRUCTURE_TYPE24753; t93968.s1.value.structure_type24753 = &t93969; /* x93368 stalin.sc:8172:279247 */ t93967.s0.tag = STRUCTURE_TYPE24753; t93967.s0.value.structure_type24753 = &t93968; /* x93369 stalin.sc:8172:279247 */ t93971.s0.tag = EXTERNAL_SYMBOL_TYPE; t93971.s0.value.external_symbol_type = q161; /* x93370 stalin.sc:8172:279247 */ t93972.s0.tag = EXTERNAL_SYMBOL_TYPE; t93972.s0.value.external_symbol_type = q161; /* x93371 stalin.sc:8172:279247 */ t93972.s1.tag = NULL_TYPE; /* x93372 stalin.sc:8172:279247 */ t93971.s1.tag = STRUCTURE_TYPE24753; t93971.s1.value.structure_type24753 = &t93972; /* x93373 stalin.sc:8172:279247 */ t93970.s0.tag = STRUCTURE_TYPE24753; t93970.s0.value.structure_type24753 = &t93971; /* x93374 stalin.sc:8172:279247 */ t93974.s0.tag = EXTERNAL_SYMBOL_TYPE; t93974.s0.value.external_symbol_type = q162; /* x93375 stalin.sc:8172:279247 */ t93975.s0.tag = EXTERNAL_SYMBOL_TYPE; t93975.s0.value.external_symbol_type = q162; /* x93376 stalin.sc:8172:279247 */ t93975.s1.tag = NULL_TYPE; /* x93377 stalin.sc:8172:279247 */ t93974.s1.tag = STRUCTURE_TYPE24753; t93974.s1.value.structure_type24753 = &t93975; /* x93378 stalin.sc:8172:279247 */ t93973.s0.tag = STRUCTURE_TYPE24753; t93973.s0.value.structure_type24753 = &t93974; /* x93379 stalin.sc:8172:279247 */ t93977.s0.tag = EXTERNAL_SYMBOL_TYPE; t93977.s0.value.external_symbol_type = q163; /* x93380 stalin.sc:8172:279247 */ t93978.s0.tag = EXTERNAL_SYMBOL_TYPE; t93978.s0.value.external_symbol_type = q163; /* x93381 stalin.sc:8172:279247 */ t93978.s1.tag = NULL_TYPE; /* x93382 stalin.sc:8172:279247 */ t93977.s1.tag = STRUCTURE_TYPE24753; t93977.s1.value.structure_type24753 = &t93978; /* x93383 stalin.sc:8172:279247 */ t93976.s0.tag = STRUCTURE_TYPE24753; t93976.s0.value.structure_type24753 = &t93977; /* x93384 stalin.sc:8172:279247 */ t93980.s0.tag = EXTERNAL_SYMBOL_TYPE; t93980.s0.value.external_symbol_type = q164; /* x93385 stalin.sc:8172:279247 */ t93981.s0.tag = EXTERNAL_SYMBOL_TYPE; t93981.s0.value.external_symbol_type = q164; /* x93386 stalin.sc:8172:279247 */ t93981.s1.tag = NULL_TYPE; /* x93387 stalin.sc:8172:279247 */ t93980.s1.tag = STRUCTURE_TYPE24753; t93980.s1.value.structure_type24753 = &t93981; /* x93388 stalin.sc:8172:279247 */ t93979.s0.tag = STRUCTURE_TYPE24753; t93979.s0.value.structure_type24753 = &t93980; /* x93389 stalin.sc:8172:279247 */ t93983.s0.tag = EXTERNAL_SYMBOL_TYPE; t93983.s0.value.external_symbol_type = q165; /* x93390 stalin.sc:8172:279247 */ t93984.s0.tag = EXTERNAL_SYMBOL_TYPE; t93984.s0.value.external_symbol_type = q165; /* x93391 stalin.sc:8172:279247 */ t93984.s1.tag = NULL_TYPE; /* x93392 stalin.sc:8172:279247 */ t93983.s1.tag = STRUCTURE_TYPE24753; t93983.s1.value.structure_type24753 = &t93984; /* x93393 stalin.sc:8172:279247 */ t93982.s0.tag = STRUCTURE_TYPE24753; t93982.s0.value.structure_type24753 = &t93983; /* x93394 stalin.sc:8172:279247 */ t93986.s0.tag = EXTERNAL_SYMBOL_TYPE; t93986.s0.value.external_symbol_type = q166; /* x93395 stalin.sc:8172:279247 */ t93987.s0.tag = EXTERNAL_SYMBOL_TYPE; t93987.s0.value.external_symbol_type = q166; /* x93396 stalin.sc:8172:279247 */ t93987.s1.tag = NULL_TYPE; /* x93397 stalin.sc:8172:279247 */ t93986.s1.tag = STRUCTURE_TYPE24753; t93986.s1.value.structure_type24753 = &t93987; /* x93398 stalin.sc:8172:279247 */ t93985.s0.tag = STRUCTURE_TYPE24753; t93985.s0.value.structure_type24753 = &t93986; /* x93399 stalin.sc:8172:279247 */ t93989.s0.tag = EXTERNAL_SYMBOL_TYPE; t93989.s0.value.external_symbol_type = q167; /* x93400 stalin.sc:8172:279247 */ t93990.s0.tag = EXTERNAL_SYMBOL_TYPE; t93990.s0.value.external_symbol_type = q167;} void initialize_constants26(void) {/* x93401 stalin.sc:8172:279247 */ t93990.s1.tag = NULL_TYPE; /* x93402 stalin.sc:8172:279247 */ t93989.s1.tag = STRUCTURE_TYPE24753; t93989.s1.value.structure_type24753 = &t93990; /* x93403 stalin.sc:8172:279247 */ t93988.s0.tag = STRUCTURE_TYPE24753; t93988.s0.value.structure_type24753 = &t93989; /* x93404 stalin.sc:8172:279247 */ t93992.s0.tag = EXTERNAL_SYMBOL_TYPE; t93992.s0.value.external_symbol_type = q6; /* x93405 stalin.sc:8172:279247 */ t93993.s0.tag = EXTERNAL_SYMBOL_TYPE; t93993.s0.value.external_symbol_type = q6; /* x93406 stalin.sc:8172:279247 */ t93993.s1.tag = NULL_TYPE; /* x93407 stalin.sc:8172:279247 */ t93992.s1.tag = STRUCTURE_TYPE24753; t93992.s1.value.structure_type24753 = &t93993; /* x93408 stalin.sc:8172:279247 */ t93991.s0.tag = STRUCTURE_TYPE24753; t93991.s0.value.structure_type24753 = &t93992; /* x93409 stalin.sc:8172:279247 */ t93995.s0.tag = EXTERNAL_SYMBOL_TYPE; t93995.s0.value.external_symbol_type = q168; /* x93410 stalin.sc:8172:279247 */ t93996.s0.tag = EXTERNAL_SYMBOL_TYPE; t93996.s0.value.external_symbol_type = q168; /* x93411 stalin.sc:8172:279247 */ t93996.s1.tag = NULL_TYPE; /* x93412 stalin.sc:8172:279247 */ t93995.s1.tag = STRUCTURE_TYPE24753; t93995.s1.value.structure_type24753 = &t93996; /* x93413 stalin.sc:8172:279247 */ t93994.s0.tag = STRUCTURE_TYPE24753; t93994.s0.value.structure_type24753 = &t93995; /* x93414 stalin.sc:8172:279247 */ t93998.s0.tag = EXTERNAL_SYMBOL_TYPE; t93998.s0.value.external_symbol_type = q169; /* x93415 stalin.sc:8172:279247 */ t93999.s0.tag = EXTERNAL_SYMBOL_TYPE; t93999.s0.value.external_symbol_type = q169; /* x93416 stalin.sc:8172:279247 */ t93999.s1.tag = NULL_TYPE; /* x93417 stalin.sc:8172:279247 */ t93998.s1.tag = STRUCTURE_TYPE24753; t93998.s1.value.structure_type24753 = &t93999; /* x93418 stalin.sc:8172:279247 */ t93997.s0.tag = STRUCTURE_TYPE24753; t93997.s0.value.structure_type24753 = &t93998; /* x93419 stalin.sc:8172:279247 */ t94001.s0.tag = EXTERNAL_SYMBOL_TYPE; t94001.s0.value.external_symbol_type = q170; /* x93420 stalin.sc:8172:279247 */ t94002.s0.tag = EXTERNAL_SYMBOL_TYPE; t94002.s0.value.external_symbol_type = q170; /* x93421 stalin.sc:8172:279247 */ t94002.s1.tag = NULL_TYPE; /* x93422 stalin.sc:8172:279247 */ t94001.s1.tag = STRUCTURE_TYPE24753; t94001.s1.value.structure_type24753 = &t94002; /* x93423 stalin.sc:8172:279247 */ t94000.s0.tag = STRUCTURE_TYPE24753; t94000.s0.value.structure_type24753 = &t94001; /* x93424 stalin.sc:8172:279247 */ t94004.s0.tag = EXTERNAL_SYMBOL_TYPE; t94004.s0.value.external_symbol_type = q171; /* x93425 stalin.sc:8172:279247 */ t94005.s0.tag = EXTERNAL_SYMBOL_TYPE; t94005.s0.value.external_symbol_type = q171; /* x93426 stalin.sc:8172:279247 */ t94005.s1.tag = NULL_TYPE; /* x93427 stalin.sc:8172:279247 */ t94004.s1.tag = STRUCTURE_TYPE24753; t94004.s1.value.structure_type24753 = &t94005; /* x93428 stalin.sc:8172:279247 */ t94003.s0.tag = STRUCTURE_TYPE24753; t94003.s0.value.structure_type24753 = &t94004; /* x93429 stalin.sc:8172:279247 */ t94007.s0.tag = EXTERNAL_SYMBOL_TYPE; t94007.s0.value.external_symbol_type = q79; /* x93430 stalin.sc:8172:279247 */ t94008.s0.tag = EXTERNAL_SYMBOL_TYPE; t94008.s0.value.external_symbol_type = q79; /* x93431 stalin.sc:8172:279247 */ t94008.s1.tag = NULL_TYPE; /* x93432 stalin.sc:8172:279247 */ t94007.s1.tag = STRUCTURE_TYPE24753; t94007.s1.value.structure_type24753 = &t94008; /* x93433 stalin.sc:8172:279247 */ t94006.s0.tag = STRUCTURE_TYPE24753; t94006.s0.value.structure_type24753 = &t94007; /* x93434 stalin.sc:8172:279247 */ t94010.s0.tag = EXTERNAL_SYMBOL_TYPE; t94010.s0.value.external_symbol_type = q66; /* x93435 stalin.sc:8172:279247 */ t94011.s0.tag = EXTERNAL_SYMBOL_TYPE; t94011.s0.value.external_symbol_type = q66; /* x93436 stalin.sc:8172:279247 */ t94011.s1.tag = NULL_TYPE; /* x93437 stalin.sc:8172:279247 */ t94010.s1.tag = STRUCTURE_TYPE24753; t94010.s1.value.structure_type24753 = &t94011; /* x93438 stalin.sc:8172:279247 */ t94009.s0.tag = STRUCTURE_TYPE24753; t94009.s0.value.structure_type24753 = &t94010; /* x93439 stalin.sc:8172:279247 */ t94013.s0.tag = EXTERNAL_SYMBOL_TYPE; t94013.s0.value.external_symbol_type = q172; /* x93440 stalin.sc:8172:279247 */ t94014.s0.tag = EXTERNAL_SYMBOL_TYPE; t94014.s0.value.external_symbol_type = q172; /* x93441 stalin.sc:8172:279247 */ t94014.s1.tag = NULL_TYPE; /* x93442 stalin.sc:8172:279247 */ t94013.s1.tag = STRUCTURE_TYPE24753; t94013.s1.value.structure_type24753 = &t94014; /* x93443 stalin.sc:8172:279247 */ t94012.s0.tag = STRUCTURE_TYPE24753; t94012.s0.value.structure_type24753 = &t94013; /* x93444 stalin.sc:8172:279247 */ t94016.s0.tag = EXTERNAL_SYMBOL_TYPE; t94016.s0.value.external_symbol_type = q173; /* x93445 stalin.sc:8172:279247 */ t94017.s0.tag = EXTERNAL_SYMBOL_TYPE; t94017.s0.value.external_symbol_type = q173; /* x93446 stalin.sc:8172:279247 */ t94017.s1.tag = NULL_TYPE; /* x93447 stalin.sc:8172:279247 */ t94016.s1.tag = STRUCTURE_TYPE24753; t94016.s1.value.structure_type24753 = &t94017; /* x93448 stalin.sc:8172:279247 */ t94015.s0.tag = STRUCTURE_TYPE24753; t94015.s0.value.structure_type24753 = &t94016; /* x93449 stalin.sc:8172:279247 */ t94019.s0.tag = EXTERNAL_SYMBOL_TYPE; t94019.s0.value.external_symbol_type = q174; /* x93450 stalin.sc:8172:279247 */ t94020.s0.tag = EXTERNAL_SYMBOL_TYPE; t94020.s0.value.external_symbol_type = q174; /* x93451 stalin.sc:8172:279247 */ t94020.s1.tag = NULL_TYPE; /* x93452 stalin.sc:8172:279247 */ t94019.s1.tag = STRUCTURE_TYPE24753; t94019.s1.value.structure_type24753 = &t94020; /* x93453 stalin.sc:8172:279247 */ t94018.s0.tag = STRUCTURE_TYPE24753; t94018.s0.value.structure_type24753 = &t94019; /* x93454 stalin.sc:8172:279247 */ t94022.s0.tag = EXTERNAL_SYMBOL_TYPE; t94022.s0.value.external_symbol_type = q175; /* x93455 stalin.sc:8172:279247 */ t94023.s0.tag = EXTERNAL_SYMBOL_TYPE; t94023.s0.value.external_symbol_type = q175; /* x93456 stalin.sc:8172:279247 */ t94023.s1.tag = NULL_TYPE; /* x93457 stalin.sc:8172:279247 */ t94022.s1.tag = STRUCTURE_TYPE24753; t94022.s1.value.structure_type24753 = &t94023; /* x93458 stalin.sc:8172:279247 */ t94021.s0.tag = STRUCTURE_TYPE24753; t94021.s0.value.structure_type24753 = &t94022; /* x93459 stalin.sc:8172:279247 */ t94025.s0.tag = EXTERNAL_SYMBOL_TYPE; t94025.s0.value.external_symbol_type = q176; /* x93460 stalin.sc:8172:279247 */ t94026.s0.tag = EXTERNAL_SYMBOL_TYPE; t94026.s0.value.external_symbol_type = q176; /* x93461 stalin.sc:8172:279247 */ t94026.s1.tag = NULL_TYPE; /* x93462 stalin.sc:8172:279247 */ t94025.s1.tag = STRUCTURE_TYPE24753; t94025.s1.value.structure_type24753 = &t94026; /* x93463 stalin.sc:8172:279247 */ t94024.s0.tag = STRUCTURE_TYPE24753; t94024.s0.value.structure_type24753 = &t94025; /* x93464 stalin.sc:8172:279247 */ t94028.s0.tag = EXTERNAL_SYMBOL_TYPE; t94028.s0.value.external_symbol_type = q177; /* x93465 stalin.sc:8172:279247 */ t94029.s0.tag = EXTERNAL_SYMBOL_TYPE; t94029.s0.value.external_symbol_type = q177; /* x93466 stalin.sc:8172:279247 */ t94029.s1.tag = NULL_TYPE; /* x93467 stalin.sc:8172:279247 */ t94028.s1.tag = STRUCTURE_TYPE24753; t94028.s1.value.structure_type24753 = &t94029; /* x93468 stalin.sc:8172:279247 */ t94027.s0.tag = STRUCTURE_TYPE24753; t94027.s0.value.structure_type24753 = &t94028; /* x93469 stalin.sc:8172:279247 */ t94031.s0.tag = EXTERNAL_SYMBOL_TYPE; t94031.s0.value.external_symbol_type = q178; /* x93470 stalin.sc:8172:279247 */ t94032.s0.tag = EXTERNAL_SYMBOL_TYPE; t94032.s0.value.external_symbol_type = q178; /* x93471 stalin.sc:8172:279247 */ t94032.s1.tag = NULL_TYPE; /* x93472 stalin.sc:8172:279247 */ t94031.s1.tag = STRUCTURE_TYPE24753; t94031.s1.value.structure_type24753 = &t94032; /* x93473 stalin.sc:8172:279247 */ t94030.s0.tag = STRUCTURE_TYPE24753; t94030.s0.value.structure_type24753 = &t94031; /* x93474 stalin.sc:8172:279247 */ t94034.s0.tag = EXTERNAL_SYMBOL_TYPE; t94034.s0.value.external_symbol_type = q179; /* x93475 stalin.sc:8172:279247 */ t94035.s0.tag = EXTERNAL_SYMBOL_TYPE; t94035.s0.value.external_symbol_type = q179; /* x93476 stalin.sc:8172:279247 */ t94035.s1.tag = NULL_TYPE; /* x93477 stalin.sc:8172:279247 */ t94034.s1.tag = STRUCTURE_TYPE24753; t94034.s1.value.structure_type24753 = &t94035; /* x93478 stalin.sc:8172:279247 */ t94033.s0.tag = STRUCTURE_TYPE24753; t94033.s0.value.structure_type24753 = &t94034; /* x93479 stalin.sc:8172:279247 */ t94037.s0.tag = EXTERNAL_SYMBOL_TYPE; t94037.s0.value.external_symbol_type = q180; /* x93480 stalin.sc:8172:279247 */ t94038.s0.tag = EXTERNAL_SYMBOL_TYPE; t94038.s0.value.external_symbol_type = q180; /* x93481 stalin.sc:8172:279247 */ t94038.s1.tag = NULL_TYPE; /* x93482 stalin.sc:8172:279247 */ t94037.s1.tag = STRUCTURE_TYPE24753; t94037.s1.value.structure_type24753 = &t94038; /* x93483 stalin.sc:8172:279247 */ t94036.s0.tag = STRUCTURE_TYPE24753; t94036.s0.value.structure_type24753 = &t94037; /* x93484 stalin.sc:8172:279247 */ t94040.s0.tag = EXTERNAL_SYMBOL_TYPE; t94040.s0.value.external_symbol_type = q181; /* x93485 stalin.sc:8172:279247 */ t94041.s0.tag = EXTERNAL_SYMBOL_TYPE; t94041.s0.value.external_symbol_type = q181; /* x93486 stalin.sc:8172:279247 */ t94041.s1.tag = NULL_TYPE; /* x93487 stalin.sc:8172:279247 */ t94040.s1.tag = STRUCTURE_TYPE24753; t94040.s1.value.structure_type24753 = &t94041; /* x93488 stalin.sc:8172:279247 */ t94039.s0.tag = STRUCTURE_TYPE24753; t94039.s0.value.structure_type24753 = &t94040; /* x93489 stalin.sc:8172:279247 */ t94043.s0.tag = EXTERNAL_SYMBOL_TYPE; t94043.s0.value.external_symbol_type = q182; /* x93490 stalin.sc:8172:279247 */ t94044.s0.tag = EXTERNAL_SYMBOL_TYPE; t94044.s0.value.external_symbol_type = q182; /* x93491 stalin.sc:8172:279247 */ t94044.s1.tag = NULL_TYPE; /* x93492 stalin.sc:8172:279247 */ t94043.s1.tag = STRUCTURE_TYPE24753; t94043.s1.value.structure_type24753 = &t94044; /* x93493 stalin.sc:8172:279247 */ t94042.s0.tag = STRUCTURE_TYPE24753; t94042.s0.value.structure_type24753 = &t94043; /* x93494 stalin.sc:8172:279247 */ t94046.s0.tag = EXTERNAL_SYMBOL_TYPE; t94046.s0.value.external_symbol_type = q183; /* x93495 stalin.sc:8172:279247 */ t94047.s0.tag = EXTERNAL_SYMBOL_TYPE; t94047.s0.value.external_symbol_type = q183; /* x93496 stalin.sc:8172:279247 */ t94047.s1.tag = NULL_TYPE; /* x93497 stalin.sc:8172:279247 */ t94046.s1.tag = STRUCTURE_TYPE24753; t94046.s1.value.structure_type24753 = &t94047; /* x93498 stalin.sc:8172:279247 */ t94045.s0.tag = STRUCTURE_TYPE24753; t94045.s0.value.structure_type24753 = &t94046; /* x93499 stalin.sc:8172:279247 */ t94049.s0.tag = EXTERNAL_SYMBOL_TYPE; t94049.s0.value.external_symbol_type = q184; /* x93500 stalin.sc:8172:279247 */ t94050.s0.tag = EXTERNAL_SYMBOL_TYPE; t94050.s0.value.external_symbol_type = q184; /* x93501 stalin.sc:8172:279247 */ t94050.s1.tag = NULL_TYPE; /* x93502 stalin.sc:8172:279247 */ t94049.s1.tag = STRUCTURE_TYPE24753; t94049.s1.value.structure_type24753 = &t94050; /* x93503 stalin.sc:8172:279247 */ t94048.s0.tag = STRUCTURE_TYPE24753; t94048.s0.value.structure_type24753 = &t94049; /* x93504 stalin.sc:8172:279247 */ t94048.s1.tag = NULL_TYPE; /* x93505 stalin.sc:8172:279247 */ t94045.s1.tag = STRUCTURE_TYPE24753; t94045.s1.value.structure_type24753 = &t94048; /* x93506 stalin.sc:8172:279247 */ t94042.s1.tag = STRUCTURE_TYPE24753; t94042.s1.value.structure_type24753 = &t94045; /* x93507 stalin.sc:8172:279247 */ t94039.s1.tag = STRUCTURE_TYPE24753; t94039.s1.value.structure_type24753 = &t94042; /* x93508 stalin.sc:8172:279247 */ t94036.s1.tag = STRUCTURE_TYPE24753; t94036.s1.value.structure_type24753 = &t94039; /* x93509 stalin.sc:8172:279247 */ t94033.s1.tag = STRUCTURE_TYPE24753; t94033.s1.value.structure_type24753 = &t94036; /* x93510 stalin.sc:8172:279247 */ t94030.s1.tag = STRUCTURE_TYPE24753; t94030.s1.value.structure_type24753 = &t94033; /* x93511 stalin.sc:8172:279247 */ t94027.s1.tag = STRUCTURE_TYPE24753; t94027.s1.value.structure_type24753 = &t94030; /* x93512 stalin.sc:8172:279247 */ t94024.s1.tag = STRUCTURE_TYPE24753; t94024.s1.value.structure_type24753 = &t94027; /* x93513 stalin.sc:8172:279247 */ t94021.s1.tag = STRUCTURE_TYPE24753; t94021.s1.value.structure_type24753 = &t94024; /* x93514 stalin.sc:8172:279247 */ t94018.s1.tag = STRUCTURE_TYPE24753; t94018.s1.value.structure_type24753 = &t94021; /* x93515 stalin.sc:8172:279247 */ t94015.s1.tag = STRUCTURE_TYPE24753; t94015.s1.value.structure_type24753 = &t94018; /* x93516 stalin.sc:8172:279247 */ t94012.s1.tag = STRUCTURE_TYPE24753; t94012.s1.value.structure_type24753 = &t94015; /* x93517 stalin.sc:8172:279247 */ t94009.s1.tag = STRUCTURE_TYPE24753; t94009.s1.value.structure_type24753 = &t94012; /* x93518 stalin.sc:8172:279247 */ t94006.s1.tag = STRUCTURE_TYPE24753; t94006.s1.value.structure_type24753 = &t94009; /* x93519 stalin.sc:8172:279247 */ t94003.s1.tag = STRUCTURE_TYPE24753; t94003.s1.value.structure_type24753 = &t94006; /* x93520 stalin.sc:8172:279247 */ t94000.s1.tag = STRUCTURE_TYPE24753; t94000.s1.value.structure_type24753 = &t94003; /* x93521 stalin.sc:8172:279247 */ t93997.s1.tag = STRUCTURE_TYPE24753; t93997.s1.value.structure_type24753 = &t94000; /* x93522 stalin.sc:8172:279247 */ t93994.s1.tag = STRUCTURE_TYPE24753; t93994.s1.value.structure_type24753 = &t93997; /* x93523 stalin.sc:8172:279247 */ t93991.s1.tag = STRUCTURE_TYPE24753; t93991.s1.value.structure_type24753 = &t93994; /* x93524 stalin.sc:8172:279247 */ t93988.s1.tag = STRUCTURE_TYPE24753; t93988.s1.value.structure_type24753 = &t93991; /* x93525 stalin.sc:8172:279247 */ t93985.s1.tag = STRUCTURE_TYPE24753; t93985.s1.value.structure_type24753 = &t93988; /* x93526 stalin.sc:8172:279247 */ t93982.s1.tag = STRUCTURE_TYPE24753; t93982.s1.value.structure_type24753 = &t93985; /* x93527 stalin.sc:8172:279247 */ t93979.s1.tag = STRUCTURE_TYPE24753; t93979.s1.value.structure_type24753 = &t93982; /* x93528 stalin.sc:8172:279247 */ t93976.s1.tag = STRUCTURE_TYPE24753; t93976.s1.value.structure_type24753 = &t93979; /* x93529 stalin.sc:8172:279247 */ t93973.s1.tag = STRUCTURE_TYPE24753; t93973.s1.value.structure_type24753 = &t93976; /* x93530 stalin.sc:8172:279247 */ t93970.s1.tag = STRUCTURE_TYPE24753; t93970.s1.value.structure_type24753 = &t93973; /* x93531 stalin.sc:8172:279247 */ t93967.s1.tag = STRUCTURE_TYPE24753; t93967.s1.value.structure_type24753 = &t93970; /* x93532 stalin.sc:8172:279247 */ t93964.s1.tag = STRUCTURE_TYPE24753; t93964.s1.value.structure_type24753 = &t93967; /* x93533 stalin.sc:8172:279247 */ t93961.s1.tag = STRUCTURE_TYPE24753; t93961.s1.value.structure_type24753 = &t93964; /* x93534 stalin.sc:8172:279247 */ t93958.s1.tag = STRUCTURE_TYPE24753; t93958.s1.value.structure_type24753 = &t93961; /* x93535 stalin.sc:8172:279247 */ t93955.s1.tag = STRUCTURE_TYPE24753; t93955.s1.value.structure_type24753 = &t93958; /* x93536 stalin.sc:8172:279247 */ t93952.s1.tag = STRUCTURE_TYPE24753; t93952.s1.value.structure_type24753 = &t93955; /* x93537 stalin.sc:8172:279247 */ t93949.s1.tag = STRUCTURE_TYPE24753; t93949.s1.value.structure_type24753 = &t93952; /* x93538 stalin.sc:8172:279247 */ t93946.s1.tag = STRUCTURE_TYPE24753; t93946.s1.value.structure_type24753 = &t93949; /* x93539 stalin.sc:8172:279247 */ t93943.s1.tag = STRUCTURE_TYPE24753; t93943.s1.value.structure_type24753 = &t93946; /* x93540 stalin.sc:8172:279247 */ t93940.s1.tag = STRUCTURE_TYPE24753; t93940.s1.value.structure_type24753 = &t93943; /* x93541 stalin.sc:8172:279247 */ t93937.s1.tag = STRUCTURE_TYPE24753; t93937.s1.value.structure_type24753 = &t93940; /* x93542 stalin.sc:8172:279247 */ t93934.s1.tag = STRUCTURE_TYPE24753; t93934.s1.value.structure_type24753 = &t93937; /* x93543 stalin.sc:8172:279247 */ t93931.s1.tag = STRUCTURE_TYPE24753; t93931.s1.value.structure_type24753 = &t93934; /* x93544 stalin.sc:8172:279247 */ t93928.s1.tag = STRUCTURE_TYPE24753; t93928.s1.value.structure_type24753 = &t93931; /* x93545 stalin.sc:8172:279247 */ t93925.s1.tag = STRUCTURE_TYPE24753; t93925.s1.value.structure_type24753 = &t93928; /* x93546 stalin.sc:8172:279247 */ t93922.s1.tag = STRUCTURE_TYPE24753; t93922.s1.value.structure_type24753 = &t93925; /* x93547 stalin.sc:8172:279247 */ t93919.s1.tag = STRUCTURE_TYPE24753; t93919.s1.value.structure_type24753 = &t93922; /* x93548 stalin.sc:8172:279247 */ t93916.s1.tag = STRUCTURE_TYPE24753; t93916.s1.value.structure_type24753 = &t93919; /* x93549 stalin.sc:8172:279247 */ t93913.s1.tag = STRUCTURE_TYPE24753; t93913.s1.value.structure_type24753 = &t93916; /* x93550 stalin.sc:8172:279247 */ t93910.s1.tag = STRUCTURE_TYPE24753; t93910.s1.value.structure_type24753 = &t93913; /* x93551 stalin.sc:8172:279247 */ t93907.s1.tag = STRUCTURE_TYPE24753; t93907.s1.value.structure_type24753 = &t93910; /* x93552 stalin.sc:8172:279247 */ t93904.s1.tag = STRUCTURE_TYPE24753; t93904.s1.value.structure_type24753 = &t93907; /* x93553 stalin.sc:8172:279247 */ t93901.s1.tag = STRUCTURE_TYPE24753; t93901.s1.value.structure_type24753 = &t93904; /* x93554 stalin.sc:8172:279247 */ t93898.s1.tag = STRUCTURE_TYPE24753; t93898.s1.value.structure_type24753 = &t93901; /* x93555 stalin.sc:8172:279247 */ t93895.s1.tag = STRUCTURE_TYPE24753; t93895.s1.value.structure_type24753 = &t93898; /* x93556 stalin.sc:8172:279247 */ t93892.s1.tag = STRUCTURE_TYPE24753; t93892.s1.value.structure_type24753 = &t93895; /* x93557 stalin.sc:8172:279247 */ t93889.s1.tag = STRUCTURE_TYPE24753; t93889.s1.value.structure_type24753 = &t93892; /* x93558 stalin.sc:8172:279247 */ t93886.s1.tag = STRUCTURE_TYPE24753; t93886.s1.value.structure_type24753 = &t93889; /* x93559 stalin.sc:8172:279247 */ t93883.s1.tag = STRUCTURE_TYPE24753; t93883.s1.value.structure_type24753 = &t93886; /* x93560 stalin.sc:8172:279247 */ t93880.s1.tag = STRUCTURE_TYPE24753; t93880.s1.value.structure_type24753 = &t93883; /* x93561 stalin.sc:8172:279247 */ t93877.s1.tag = STRUCTURE_TYPE24753; t93877.s1.value.structure_type24753 = &t93880; /* x93562 stalin.sc:8172:279247 */ t93874.s1.tag = STRUCTURE_TYPE24753; t93874.s1.value.structure_type24753 = &t93877; /* x93563 stalin.sc:8172:279247 */ t93871.s1.tag = STRUCTURE_TYPE24753; t93871.s1.value.structure_type24753 = &t93874; /* x93564 stalin.sc:8172:279247 */ t93868.s1.tag = STRUCTURE_TYPE24753; t93868.s1.value.structure_type24753 = &t93871; /* x93565 stalin.sc:8172:279247 */ t93865.s1.tag = STRUCTURE_TYPE24753; t93865.s1.value.structure_type24753 = &t93868; /* x93566 stalin.sc:8172:279247 */ t93862.s1.tag = STRUCTURE_TYPE24753; t93862.s1.value.structure_type24753 = &t93865; /* x93567 stalin.sc:8172:279247 */ t93859.s1.tag = STRUCTURE_TYPE24753; t93859.s1.value.structure_type24753 = &t93862; /* x93568 stalin.sc:8172:279247 */ t93856.s1.tag = STRUCTURE_TYPE24753; t93856.s1.value.structure_type24753 = &t93859; /* x93569 stalin.sc:8172:279247 */ t93853.s1.tag = STRUCTURE_TYPE24753; t93853.s1.value.structure_type24753 = &t93856; /* x93570 stalin.sc:8172:279247 */ t93850.s1.tag = STRUCTURE_TYPE24753; t93850.s1.value.structure_type24753 = &t93853; /* x93571 stalin.sc:8172:279247 */ t93847.s1.tag = STRUCTURE_TYPE24753; t93847.s1.value.structure_type24753 = &t93850; /* x93572 stalin.sc:8172:279247 */ t93844.s1.tag = STRUCTURE_TYPE24753; t93844.s1.value.structure_type24753 = &t93847; /* x93573 stalin.sc:8172:279247 */ t93841.s1.tag = STRUCTURE_TYPE24753; t93841.s1.value.structure_type24753 = &t93844; /* x93574 stalin.sc:8172:279247 */ t93838.s1.tag = STRUCTURE_TYPE24753; t93838.s1.value.structure_type24753 = &t93841; /* x93575 stalin.sc:8172:279247 */ t93835.s1.tag = STRUCTURE_TYPE24753; t93835.s1.value.structure_type24753 = &t93838; /* x93576 stalin.sc:8172:279247 */ t93832.s1.tag = STRUCTURE_TYPE24753; t93832.s1.value.structure_type24753 = &t93835; /* x93577 stalin.sc:8172:279247 */ t93829.s1.tag = STRUCTURE_TYPE24753; t93829.s1.value.structure_type24753 = &t93832; /* x93578 stalin.sc:8172:279247 */ t93826.s1.tag = STRUCTURE_TYPE24753; t93826.s1.value.structure_type24753 = &t93829; /* x93579 stalin.sc:8172:279247 */ t93823.s1.tag = STRUCTURE_TYPE24753; t93823.s1.value.structure_type24753 = &t93826; /* x93580 stalin.sc:8172:279247 */ t93820.s1.tag = STRUCTURE_TYPE24753; t93820.s1.value.structure_type24753 = &t93823; /* x93581 stalin.sc:8172:279247 */ t93817.s1.tag = STRUCTURE_TYPE24753; t93817.s1.value.structure_type24753 = &t93820; /* x93582 stalin.sc:8172:279247 */ t93814.s1.tag = STRUCTURE_TYPE24753; t93814.s1.value.structure_type24753 = &t93817; /* x93583 stalin.sc:8172:279247 */ t93809.s1.tag = STRUCTURE_TYPE24753; t93809.s1.value.structure_type24753 = &t93814; /* x93584 stalin.sc:8172:279247 */ t93804.s1.tag = STRUCTURE_TYPE24753; t93804.s1.value.structure_type24753 = &t93809; /* x93585 stalin.sc:8172:279247 */ t93799.s1.tag = STRUCTURE_TYPE24753; t93799.s1.value.structure_type24753 = &t93804; /* x93586 stalin.sc:8172:279247 */ t93794.s1.tag = STRUCTURE_TYPE24753; t93794.s1.value.structure_type24753 = &t93799; /* x93587 stalin.sc:8172:279247 */ t93789.s1.tag = STRUCTURE_TYPE24753; t93789.s1.value.structure_type24753 = &t93794; /* x93588 stalin.sc:8172:279247 */ t93785.s1.tag = STRUCTURE_TYPE24753; t93785.s1.value.structure_type24753 = &t93789; /* x93589 stalin.sc:8172:279247 */ t93782.s1.tag = STRUCTURE_TYPE24753; t93782.s1.value.structure_type24753 = &t93785; /* x93590 stalin.sc:8172:279247 */ t93779.s1.tag = STRUCTURE_TYPE24753; t93779.s1.value.structure_type24753 = &t93782; /* x93591 stalin.sc:8172:279247 */ t93776.s1.tag = STRUCTURE_TYPE24753; t93776.s1.value.structure_type24753 = &t93779; /* x139112 stalin.sc:17849:623957 */ t94052.s0.tag = STRING_TYPE; t94052.s0.value.string_type = "out_of_memory"; /* x139113 stalin.sc:17849:623957 */ t94053.s0.tag = STRING_TYPE; t94053.s0.value.string_type = "Out of memory"; /* x139114 stalin.sc:17849:623957 */ t94054.s0.tag = FALSE_TYPE; /* x139115 stalin.sc:17849:623957 */ t94054.s1.tag = NULL_TYPE; /* x139116 stalin.sc:17849:623957 */ t94053.s1.tag = STRUCTURE_TYPE24753; t94053.s1.value.structure_type24753 = &t94054; /* x139117 stalin.sc:17849:623957 */ t94052.s1.tag = STRUCTURE_TYPE24753; t94052.s1.value.structure_type24753 = &t94053; /* x139118 stalin.sc:17849:623957 */ t94051.s0.tag = STRUCTURE_TYPE24753; t94051.s0.value.structure_type24753 = &t94052; /* x139119 stalin.sc:17849:623957 */ t94056.s0.tag = STRING_TYPE; t94056.s0.value.string_type = "call"; /* x139120 stalin.sc:17849:623957 */ t94057.s0.tag = STRING_TYPE; t94057.s0.value.string_type = "Attempt to call a non-procedure or call a procedure with the wrong number of arguments"; /* x139121 stalin.sc:17849:623957 */ t94058.s0.tag = STRING_TYPE; t94058.s0.value.string_type = "Might call a non-procedure or call a procedure with the wrong number of arguments"; /* x139122 stalin.sc:17849:623957 */ t94059.s0.tag = STRING_TYPE; t94059.s0.value.string_type = "Will call a non-procedure or call a procedure with the wrong number of arguments"; /* x139123 stalin.sc:17849:623957 */ t94059.s1.tag = NULL_TYPE; /* x139124 stalin.sc:17849:623957 */ t94058.s1.tag = STRUCTURE_TYPE24753; t94058.s1.value.structure_type24753 = &t94059; /* x139125 stalin.sc:17849:623957 */ t94057.s1.tag = STRUCTURE_TYPE24753; t94057.s1.value.structure_type24753 = &t94058; /* x139126 stalin.sc:17849:623957 */ t94056.s1.tag = STRUCTURE_TYPE24753; t94056.s1.value.structure_type24753 = &t94057; /* x139127 stalin.sc:17849:623957 */ t94055.s0.tag = STRUCTURE_TYPE24753; t94055.s0.value.structure_type24753 = &t94056; /* x139128 stalin.sc:17849:623957 */ t94061.s0.tag = STRING_TYPE; t94061.s0.value.string_type = "foreign_call"; /* x139129 stalin.sc:17849:623957 */ t94062.s0.tag = STRING_TYPE; t94062.s0.value.string_type = "Attempt to call a foreign procedure with arguments of the wrong type"; /* x139130 stalin.sc:17849:623957 */ t94063.s0.tag = STRING_TYPE; t94063.s0.value.string_type = "Might call a foreign procedure with arguments of the wrong type"; /* x139131 stalin.sc:17849:623957 */ t94064.s0.tag = STRING_TYPE; t94064.s0.value.string_type = "Will call a foreign procedure with arguments of the wrong type"; /* x139132 stalin.sc:17849:623957 */ t94064.s1.tag = NULL_TYPE; /* x139133 stalin.sc:17849:623957 */ t94063.s1.tag = STRUCTURE_TYPE24753; t94063.s1.value.structure_type24753 = &t94064; /* x139134 stalin.sc:17849:623957 */ t94062.s1.tag = STRUCTURE_TYPE24753; t94062.s1.value.structure_type24753 = &t94063; /* x139135 stalin.sc:17849:623957 */ t94061.s1.tag = STRUCTURE_TYPE24753; t94061.s1.value.structure_type24753 = &t94062; /* x139136 stalin.sc:17849:623957 */ t94060.s0.tag = STRUCTURE_TYPE24753; t94060.s0.value.structure_type24753 = &t94061; /* x139137 stalin.sc:17849:623957 */ t94066.s0.tag = STRING_TYPE; t94066.s0.value.string_type = "void_if"; /* x139138 stalin.sc:17849:623957 */ t94067.s0.tag = STRING_TYPE; t94067.s0.value.string_type = "The antecedent to an IF has an unspecified value"; /* x139139 stalin.sc:17849:623957 */ t94068.s0.tag = STRING_TYPE; t94068.s0.value.string_type = "The antecedent to an IF might have an unspecified value"; /* x139140 stalin.sc:17849:623957 */ t94069.s0.tag = STRING_TYPE; t94069.s0.value.string_type = "The antecedent to an IF will have an unspecified value"; /* x139141 stalin.sc:17849:623957 */ t94069.s1.tag = NULL_TYPE; /* x139142 stalin.sc:17849:623957 */ t94068.s1.tag = STRUCTURE_TYPE24753; t94068.s1.value.structure_type24753 = &t94069; /* x139143 stalin.sc:17849:623957 */ t94067.s1.tag = STRUCTURE_TYPE24753; t94067.s1.value.structure_type24753 = &t94068; /* x139144 stalin.sc:17849:623957 */ t94066.s1.tag = STRUCTURE_TYPE24753; t94066.s1.value.structure_type24753 = &t94067; /* x139145 stalin.sc:17849:623957 */ t94065.s0.tag = STRUCTURE_TYPE24753; t94065.s0.value.structure_type24753 = &t94066; /* x139146 stalin.sc:17849:623957 */ t94071.s0.tag = STRING_TYPE; t94071.s0.value.string_type = "void_call"; /* x139147 stalin.sc:17849:623957 */ t94072.s0.tag = STRING_TYPE; t94072.s0.value.string_type = "Attempt to call an unspecified value"; /* x139148 stalin.sc:17849:623957 */ t94073.s0.tag = STRING_TYPE; t94073.s0.value.string_type = "Might call an unspecified value"; /* x139149 stalin.sc:17849:623957 */ t94074.s0.tag = STRING_TYPE; t94074.s0.value.string_type = "Will call an unspecified value"; /* x139150 stalin.sc:17849:623957 */ t94074.s1.tag = NULL_TYPE; /* x139151 stalin.sc:17849:623957 */ t94073.s1.tag = STRUCTURE_TYPE24753; t94073.s1.value.structure_type24753 = &t94074; /* x139152 stalin.sc:17849:623957 */ t94072.s1.tag = STRUCTURE_TYPE24753; t94072.s1.value.structure_type24753 = &t94073; /* x139153 stalin.sc:17849:623957 */ t94071.s1.tag = STRUCTURE_TYPE24753; t94071.s1.value.structure_type24753 = &t94072; /* x139154 stalin.sc:17849:623957 */ t94070.s0.tag = STRUCTURE_TYPE24753; t94070.s0.value.structure_type24753 = &t94071; /* x139155 stalin.sc:17849:623957 */ t94076.s0.tag = STRING_TYPE; t94076.s0.value.string_type = "void_primitive_procedure_call"; /* x139156 stalin.sc:17849:623957 */ t94077.s0.tag = STRING_TYPE; t94077.s0.value.string_type = "Attempt to call a primitive procedure with an unspecified value"; /* x139157 stalin.sc:17849:623957 */ t94078.s0.tag = STRING_TYPE; t94078.s0.value.string_type = "Might call a primitive procedure with an unspecified value"; /* x139158 stalin.sc:17849:623957 */ t94079.s0.tag = STRING_TYPE; t94079.s0.value.string_type = "Will call a primitive procedure with an unspecified value"; /* x139159 stalin.sc:17849:623957 */ t94079.s1.tag = NULL_TYPE; /* x139160 stalin.sc:17849:623957 */ t94078.s1.tag = STRUCTURE_TYPE24753; t94078.s1.value.structure_type24753 = &t94079; /* x139161 stalin.sc:17849:623957 */ t94077.s1.tag = STRUCTURE_TYPE24753; t94077.s1.value.structure_type24753 = &t94078; /* x139162 stalin.sc:17849:623957 */ t94076.s1.tag = STRUCTURE_TYPE24753; t94076.s1.value.structure_type24753 = &t94077; /* x139163 stalin.sc:17849:623957 */ t94075.s0.tag = STRUCTURE_TYPE24753; t94075.s0.value.structure_type24753 = &t94076; /* x139164 stalin.sc:17849:623957 */ t94081.s0.tag = STRING_TYPE; t94081.s0.value.string_type = "void_foreign_procedure_call"; /* x139165 stalin.sc:17849:623957 */ t94082.s0.tag = STRING_TYPE; t94082.s0.value.string_type = "Attempt to call a foreign procedure with an unspecified value"; /* x139166 stalin.sc:17849:623957 */ t94083.s0.tag = STRING_TYPE; t94083.s0.value.string_type = "Might call a foreign procedure with an unspecified value"; /* x139167 stalin.sc:17849:623957 */ t94084.s0.tag = STRING_TYPE; t94084.s0.value.string_type = "Will call a foreign procedure with an unspecified value"; /* x139168 stalin.sc:17849:623957 */ t94084.s1.tag = NULL_TYPE; /* x139169 stalin.sc:17849:623957 */ t94083.s1.tag = STRUCTURE_TYPE24753; t94083.s1.value.structure_type24753 = &t94084; /* x139170 stalin.sc:17849:623957 */ t94082.s1.tag = STRUCTURE_TYPE24753; t94082.s1.value.structure_type24753 = &t94083; /* x139171 stalin.sc:17849:623957 */ t94081.s1.tag = STRUCTURE_TYPE24753; t94081.s1.value.structure_type24753 = &t94082; /* x139172 stalin.sc:17849:623957 */ t94080.s0.tag = STRUCTURE_TYPE24753; t94080.s0.value.structure_type24753 = &t94081; /* x139173 stalin.sc:17849:623957 */ t94086.s0.tag = STRING_TYPE; t94086.s0.value.string_type = "structure_ref"; /* x139174 stalin.sc:17849:623957 */ t94087.s0.tag = STRING_TYPE; t94087.s0.value.string_type = "Argument to STRUCTURE-REF ~a a structure of the correct type"; /* x139175 stalin.sc:17849:623957 */ t94088.s0.tag = TRUE_TYPE; /* x139176 stalin.sc:17849:623957 */ t94088.s1.tag = NULL_TYPE; /* x139177 stalin.sc:17849:623957 */ t94087.s1.tag = STRUCTURE_TYPE24753; t94087.s1.value.structure_type24753 = &t94088; /* x139178 stalin.sc:17849:623957 */ t94086.s1.tag = STRUCTURE_TYPE24753; t94086.s1.value.structure_type24753 = &t94087; /* x139179 stalin.sc:17849:623957 */ t94085.s0.tag = STRUCTURE_TYPE24753; t94085.s0.value.structure_type24753 = &t94086; /* x139180 stalin.sc:17849:623957 */ t94090.s0.tag = STRING_TYPE; t94090.s0.value.string_type = "structure_set"; /* x139181 stalin.sc:17849:623957 */ t94091.s0.tag = STRING_TYPE; t94091.s0.value.string_type = "First argument to STRUCTURE-SET! ~a a structure of the correct type"; /* x139182 stalin.sc:17849:623957 */ t94092.s0.tag = TRUE_TYPE; /* x139183 stalin.sc:17849:623957 */ t94092.s1.tag = NULL_TYPE; /* x139184 stalin.sc:17849:623957 */ t94091.s1.tag = STRUCTURE_TYPE24753; t94091.s1.value.structure_type24753 = &t94092; /* x139185 stalin.sc:17849:623957 */ t94090.s1.tag = STRUCTURE_TYPE24753; t94090.s1.value.structure_type24753 = &t94091; /* x139186 stalin.sc:17849:623957 */ t94089.s0.tag = STRUCTURE_TYPE24753; t94089.s0.value.structure_type24753 = &t94090; /* x139187 stalin.sc:17849:623957 */ t94094.s0.tag = STRING_TYPE; t94094.s0.value.string_type = "string_to_uninterned_symbol"; /* x139188 stalin.sc:17849:623957 */ t94095.s0.tag = STRING_TYPE; t94095.s0.value.string_type = "Argument to STRING->UNINTERNED-SYMBOL ~a a string"; /* x139189 stalin.sc:17849:623957 */ t94096.s0.tag = TRUE_TYPE; /* x139190 stalin.sc:17849:623957 */ t94096.s1.tag = NULL_TYPE; /* x139191 stalin.sc:17849:623957 */ t94095.s1.tag = STRUCTURE_TYPE24753; t94095.s1.value.structure_type24753 = &t94096; /* x139192 stalin.sc:17849:623957 */ t94094.s1.tag = STRUCTURE_TYPE24753; t94094.s1.value.structure_type24753 = &t94095; /* x139193 stalin.sc:17849:623957 */ t94093.s0.tag = STRUCTURE_TYPE24753; t94093.s0.value.structure_type24753 = &t94094; /* x139194 stalin.sc:17849:623957 */ t94098.s0.tag = STRING_TYPE; t94098.s0.value.string_type = "exact"; /* x139195 stalin.sc:17849:623957 */ t94099.s0.tag = STRING_TYPE; t94099.s0.value.string_type = "Argument to EXACT? ~a a number"; /* x139196 stalin.sc:17849:623957 */ t94100.s0.tag = TRUE_TYPE; /* x139197 stalin.sc:17849:623957 */ t94100.s1.tag = NULL_TYPE; /* x139198 stalin.sc:17849:623957 */ t94099.s1.tag = STRUCTURE_TYPE24753; t94099.s1.value.structure_type24753 = &t94100; /* x139199 stalin.sc:17849:623957 */ t94098.s1.tag = STRUCTURE_TYPE24753; t94098.s1.value.structure_type24753 = &t94099; /* x139200 stalin.sc:17849:623957 */ t94097.s0.tag = STRUCTURE_TYPE24753; t94097.s0.value.structure_type24753 = &t94098; /* x139201 stalin.sc:17849:623957 */ t94102.s0.tag = STRING_TYPE; t94102.s0.value.string_type = "inexact"; /* x139202 stalin.sc:17849:623957 */ t94103.s0.tag = STRING_TYPE; t94103.s0.value.string_type = "Argument to INEXACT? ~a a number"; /* x139203 stalin.sc:17849:623957 */ t94104.s0.tag = TRUE_TYPE; /* x139204 stalin.sc:17849:623957 */ t94104.s1.tag = NULL_TYPE; /* x139205 stalin.sc:17849:623957 */ t94103.s1.tag = STRUCTURE_TYPE24753; t94103.s1.value.structure_type24753 = &t94104; /* x139206 stalin.sc:17849:623957 */ t94102.s1.tag = STRUCTURE_TYPE24753; t94102.s1.value.structure_type24753 = &t94103; /* x139207 stalin.sc:17849:623957 */ t94101.s0.tag = STRUCTURE_TYPE24753; t94101.s0.value.structure_type24753 = &t94102; /* x139208 stalin.sc:17849:623957 */ t94106.s0.tag = STRING_TYPE; t94106.s0.value.string_type = "symbol_string"; /* x139209 stalin.sc:17849:623957 */ t94107.s0.tag = STRING_TYPE; t94107.s0.value.string_type = "Argument to SYMBOL->STRING ~a a symbol"; /* x139210 stalin.sc:17849:623957 */ t94108.s0.tag = TRUE_TYPE; /* x139211 stalin.sc:17849:623957 */ t94108.s1.tag = NULL_TYPE; /* x139212 stalin.sc:17849:623957 */ t94107.s1.tag = STRUCTURE_TYPE24753; t94107.s1.value.structure_type24753 = &t94108; /* x139213 stalin.sc:17849:623957 */ t94106.s1.tag = STRUCTURE_TYPE24753; t94106.s1.value.structure_type24753 = &t94107; /* x139214 stalin.sc:17849:623957 */ t94105.s0.tag = STRUCTURE_TYPE24753; t94105.s0.value.structure_type24753 = &t94106; /* x139215 stalin.sc:17849:623957 */ t94110.s0.tag = STRING_TYPE; t94110.s0.value.string_type = "eql"; /* x139216 stalin.sc:17849:623957 */ t94111.s0.tag = STRING_TYPE; t94111.s0.value.string_type = "Argument to = ~a a number"; /* x139217 stalin.sc:17849:623957 */ t94112.s0.tag = TRUE_TYPE; /* x139218 stalin.sc:17849:623957 */ t94112.s1.tag = NULL_TYPE; /* x139219 stalin.sc:17849:623957 */ t94111.s1.tag = STRUCTURE_TYPE24753; t94111.s1.value.structure_type24753 = &t94112; /* x139220 stalin.sc:17849:623957 */ t94110.s1.tag = STRUCTURE_TYPE24753; t94110.s1.value.structure_type24753 = &t94111; /* x139221 stalin.sc:17849:623957 */ t94109.s0.tag = STRUCTURE_TYPE24753; t94109.s0.value.structure_type24753 = &t94110; /* x139222 stalin.sc:17849:623957 */ t94114.s0.tag = STRING_TYPE; t94114.s0.value.string_type = "lt"; /* x139223 stalin.sc:17849:623957 */ t94115.s0.tag = STRING_TYPE; t94115.s0.value.string_type = "Argument to < ~a a real number"; /* x139224 stalin.sc:17849:623957 */ t94116.s0.tag = TRUE_TYPE; /* x139225 stalin.sc:17849:623957 */ t94116.s1.tag = NULL_TYPE; /* x139226 stalin.sc:17849:623957 */ t94115.s1.tag = STRUCTURE_TYPE24753; t94115.s1.value.structure_type24753 = &t94116; /* x139227 stalin.sc:17849:623957 */ t94114.s1.tag = STRUCTURE_TYPE24753; t94114.s1.value.structure_type24753 = &t94115; /* x139228 stalin.sc:17849:623957 */ t94113.s0.tag = STRUCTURE_TYPE24753; t94113.s0.value.structure_type24753 = &t94114; /* x139229 stalin.sc:17849:623957 */ t94118.s0.tag = STRING_TYPE; t94118.s0.value.string_type = "gt"; /* x139230 stalin.sc:17849:623957 */ t94119.s0.tag = STRING_TYPE; t94119.s0.value.string_type = "Argument to > ~a a real number"; /* x139231 stalin.sc:17849:623957 */ t94120.s0.tag = TRUE_TYPE; /* x139232 stalin.sc:17849:623957 */ t94120.s1.tag = NULL_TYPE; /* x139233 stalin.sc:17849:623957 */ t94119.s1.tag = STRUCTURE_TYPE24753; t94119.s1.value.structure_type24753 = &t94120; /* x139234 stalin.sc:17849:623957 */ t94118.s1.tag = STRUCTURE_TYPE24753; t94118.s1.value.structure_type24753 = &t94119; /* x139235 stalin.sc:17849:623957 */ t94117.s0.tag = STRUCTURE_TYPE24753; t94117.s0.value.structure_type24753 = &t94118; /* x139236 stalin.sc:17849:623957 */ t94122.s0.tag = STRING_TYPE; t94122.s0.value.string_type = "le"; /* x139237 stalin.sc:17849:623957 */ t94123.s0.tag = STRING_TYPE; t94123.s0.value.string_type = "Argument to <= ~a a real number"; /* x139238 stalin.sc:17849:623957 */ t94124.s0.tag = TRUE_TYPE; /* x139239 stalin.sc:17849:623957 */ t94124.s1.tag = NULL_TYPE; /* x139240 stalin.sc:17849:623957 */ t94123.s1.tag = STRUCTURE_TYPE24753; t94123.s1.value.structure_type24753 = &t94124; /* x139241 stalin.sc:17849:623957 */ t94122.s1.tag = STRUCTURE_TYPE24753; t94122.s1.value.structure_type24753 = &t94123; /* x139242 stalin.sc:17849:623957 */ t94121.s0.tag = STRUCTURE_TYPE24753; t94121.s0.value.structure_type24753 = &t94122; /* x139243 stalin.sc:17849:623957 */ t94126.s0.tag = STRING_TYPE; t94126.s0.value.string_type = "ge"; /* x139244 stalin.sc:17849:623957 */ t94127.s0.tag = STRING_TYPE; t94127.s0.value.string_type = "Argument to >= ~a a real number"; /* x139245 stalin.sc:17849:623957 */ t94128.s0.tag = TRUE_TYPE; /* x139246 stalin.sc:17849:623957 */ t94128.s1.tag = NULL_TYPE; /* x139247 stalin.sc:17849:623957 */ t94127.s1.tag = STRUCTURE_TYPE24753; t94127.s1.value.structure_type24753 = &t94128; /* x139248 stalin.sc:17849:623957 */ t94126.s1.tag = STRUCTURE_TYPE24753; t94126.s1.value.structure_type24753 = &t94127; /* x139249 stalin.sc:17849:623957 */ t94125.s0.tag = STRUCTURE_TYPE24753; t94125.s0.value.structure_type24753 = &t94126; /* x139250 stalin.sc:17849:623957 */ t94130.s0.tag = STRING_TYPE; t94130.s0.value.string_type = "zero"; /* x139251 stalin.sc:17849:623957 */ t94131.s0.tag = STRING_TYPE; t94131.s0.value.string_type = "Argument to ZERO? ~a a number or a pointer"; /* x139252 stalin.sc:17849:623957 */ t94132.s0.tag = TRUE_TYPE; /* x139253 stalin.sc:17849:623957 */ t94132.s1.tag = NULL_TYPE; /* x139254 stalin.sc:17849:623957 */ t94131.s1.tag = STRUCTURE_TYPE24753; t94131.s1.value.structure_type24753 = &t94132; /* x139255 stalin.sc:17849:623957 */ t94130.s1.tag = STRUCTURE_TYPE24753; t94130.s1.value.structure_type24753 = &t94131; /* x139256 stalin.sc:17849:623957 */ t94129.s0.tag = STRUCTURE_TYPE24753; t94129.s0.value.structure_type24753 = &t94130; /* x139257 stalin.sc:17849:623957 */ t94134.s0.tag = STRING_TYPE; t94134.s0.value.string_type = "positive"; /* x139258 stalin.sc:17849:623957 */ t94135.s0.tag = STRING_TYPE; t94135.s0.value.string_type = "Argument to POSITIVE? ~a a real number"; /* x139259 stalin.sc:17849:623957 */ t94136.s0.tag = TRUE_TYPE; /* x139260 stalin.sc:17849:623957 */ t94136.s1.tag = NULL_TYPE; /* x139261 stalin.sc:17849:623957 */ t94135.s1.tag = STRUCTURE_TYPE24753; t94135.s1.value.structure_type24753 = &t94136; /* x139262 stalin.sc:17849:623957 */ t94134.s1.tag = STRUCTURE_TYPE24753; t94134.s1.value.structure_type24753 = &t94135; /* x139263 stalin.sc:17849:623957 */ t94133.s0.tag = STRUCTURE_TYPE24753; t94133.s0.value.structure_type24753 = &t94134; /* x139264 stalin.sc:17849:623957 */ t94138.s0.tag = STRING_TYPE; t94138.s0.value.string_type = "negative"; /* x139265 stalin.sc:17849:623957 */ t94139.s0.tag = STRING_TYPE; t94139.s0.value.string_type = "Argument to NEGATIVE? ~a a real number"; /* x139266 stalin.sc:17849:623957 */ t94140.s0.tag = TRUE_TYPE; /* x139267 stalin.sc:17849:623957 */ t94140.s1.tag = NULL_TYPE; /* x139268 stalin.sc:17849:623957 */ t94139.s1.tag = STRUCTURE_TYPE24753; t94139.s1.value.structure_type24753 = &t94140; /* x139269 stalin.sc:17849:623957 */ t94138.s1.tag = STRUCTURE_TYPE24753; t94138.s1.value.structure_type24753 = &t94139; /* x139270 stalin.sc:17849:623957 */ t94137.s0.tag = STRUCTURE_TYPE24753; t94137.s0.value.structure_type24753 = &t94138; /* x139271 stalin.sc:17849:623957 */ t94142.s0.tag = STRING_TYPE; t94142.s0.value.string_type = "max"; /* x139272 stalin.sc:17849:623957 */ t94143.s0.tag = STRING_TYPE; t94143.s0.value.string_type = "Argument to MAX ~a a real number"; /* x139273 stalin.sc:17849:623957 */ t94144.s0.tag = TRUE_TYPE; /* x139274 stalin.sc:17849:623957 */ t94144.s1.tag = NULL_TYPE; /* x139275 stalin.sc:17849:623957 */ t94143.s1.tag = STRUCTURE_TYPE24753; t94143.s1.value.structure_type24753 = &t94144; /* x139276 stalin.sc:17849:623957 */ t94142.s1.tag = STRUCTURE_TYPE24753; t94142.s1.value.structure_type24753 = &t94143; /* x139277 stalin.sc:17849:623957 */ t94141.s0.tag = STRUCTURE_TYPE24753; t94141.s0.value.structure_type24753 = &t94142; /* x139278 stalin.sc:17849:623957 */ t94146.s0.tag = STRING_TYPE; t94146.s0.value.string_type = "min"; /* x139279 stalin.sc:17849:623957 */ t94147.s0.tag = STRING_TYPE; t94147.s0.value.string_type = "Argument to MIN ~a a real number"; /* x139280 stalin.sc:17849:623957 */ t94148.s0.tag = TRUE_TYPE; /* x139281 stalin.sc:17849:623957 */ t94148.s1.tag = NULL_TYPE; /* x139282 stalin.sc:17849:623957 */ t94147.s1.tag = STRUCTURE_TYPE24753; t94147.s1.value.structure_type24753 = &t94148; /* x139283 stalin.sc:17849:623957 */ t94146.s1.tag = STRUCTURE_TYPE24753; t94146.s1.value.structure_type24753 = &t94147; /* x139284 stalin.sc:17849:623957 */ t94145.s0.tag = STRUCTURE_TYPE24753; t94145.s0.value.structure_type24753 = &t94146; /* x139285 stalin.sc:17849:623957 */ t94150.s0.tag = STRING_TYPE; t94150.s0.value.string_type = "plus"; /* x139286 stalin.sc:17849:623957 */ t94151.s0.tag = STRING_TYPE; t94151.s0.value.string_type = "Argument to + ~a a number"; /* x139287 stalin.sc:17849:623957 */ t94152.s0.tag = TRUE_TYPE; /* x139288 stalin.sc:17849:623957 */ t94152.s1.tag = NULL_TYPE; /* x139289 stalin.sc:17849:623957 */ t94151.s1.tag = STRUCTURE_TYPE24753; t94151.s1.value.structure_type24753 = &t94152; /* x139290 stalin.sc:17849:623957 */ t94150.s1.tag = STRUCTURE_TYPE24753; t94150.s1.value.structure_type24753 = &t94151; /* x139291 stalin.sc:17849:623957 */ t94149.s0.tag = STRUCTURE_TYPE24753; t94149.s0.value.structure_type24753 = &t94150; /* x139292 stalin.sc:17849:623957 */ t94154.s0.tag = STRING_TYPE; t94154.s0.value.string_type = "minus"; /* x139293 stalin.sc:17849:623957 */ t94155.s0.tag = STRING_TYPE; t94155.s0.value.string_type = "Argument to - ~a a number"; /* x139294 stalin.sc:17849:623957 */ t94156.s0.tag = TRUE_TYPE; /* x139295 stalin.sc:17849:623957 */ t94156.s1.tag = NULL_TYPE; /* x139296 stalin.sc:17849:623957 */ t94155.s1.tag = STRUCTURE_TYPE24753; t94155.s1.value.structure_type24753 = &t94156; /* x139297 stalin.sc:17849:623957 */ t94154.s1.tag = STRUCTURE_TYPE24753; t94154.s1.value.structure_type24753 = &t94155; /* x139298 stalin.sc:17849:623957 */ t94153.s0.tag = STRUCTURE_TYPE24753; t94153.s0.value.structure_type24753 = &t94154; /* x139299 stalin.sc:17849:623957 */ t94158.s0.tag = STRING_TYPE; t94158.s0.value.string_type = "times"; /* x139300 stalin.sc:17849:623957 */ t94159.s0.tag = STRING_TYPE; t94159.s0.value.string_type = "Argument to * ~a a number"; /* x139301 stalin.sc:17849:623957 */ t94160.s0.tag = TRUE_TYPE; /* x139302 stalin.sc:17849:623957 */ t94160.s1.tag = NULL_TYPE; /* x139303 stalin.sc:17849:623957 */ t94159.s1.tag = STRUCTURE_TYPE24753; t94159.s1.value.structure_type24753 = &t94160; /* x139304 stalin.sc:17849:623957 */ t94158.s1.tag = STRUCTURE_TYPE24753; t94158.s1.value.structure_type24753 = &t94159; /* x139305 stalin.sc:17849:623957 */ t94157.s0.tag = STRUCTURE_TYPE24753; t94157.s0.value.structure_type24753 = &t94158; /* x139306 stalin.sc:17849:623957 */ t94162.s0.tag = STRING_TYPE; t94162.s0.value.string_type = "divide"; /* x139307 stalin.sc:17849:623957 */ t94163.s0.tag = STRING_TYPE; t94163.s0.value.string_type = "Argument to / ~a a number"; /* x139308 stalin.sc:17849:623957 */ t94164.s0.tag = TRUE_TYPE; /* x139309 stalin.sc:17849:623957 */ t94164.s1.tag = NULL_TYPE; /* x139310 stalin.sc:17849:623957 */ t94163.s1.tag = STRUCTURE_TYPE24753; t94163.s1.value.structure_type24753 = &t94164; /* x139311 stalin.sc:17849:623957 */ t94162.s1.tag = STRUCTURE_TYPE24753; t94162.s1.value.structure_type24753 = &t94163; /* x139312 stalin.sc:17849:623957 */ t94161.s0.tag = STRUCTURE_TYPE24753; t94161.s0.value.structure_type24753 = &t94162; /* x139313 stalin.sc:17849:623957 */ t94166.s0.tag = STRING_TYPE; t94166.s0.value.string_type = "quotient1"; /* x139314 stalin.sc:17849:623957 */ t94167.s0.tag = STRING_TYPE; t94167.s0.value.string_type = "First argument to QUOTIENT ~a an integer"; /* x139315 stalin.sc:17849:623957 */ t94168.s0.tag = TRUE_TYPE; /* x139316 stalin.sc:17849:623957 */ t94168.s1.tag = NULL_TYPE; /* x139317 stalin.sc:17849:623957 */ t94167.s1.tag = STRUCTURE_TYPE24753; t94167.s1.value.structure_type24753 = &t94168; /* x139318 stalin.sc:17849:623957 */ t94166.s1.tag = STRUCTURE_TYPE24753; t94166.s1.value.structure_type24753 = &t94167; /* x139319 stalin.sc:17849:623957 */ t94165.s0.tag = STRUCTURE_TYPE24753; t94165.s0.value.structure_type24753 = &t94166; /* x139320 stalin.sc:17849:623957 */ t94170.s0.tag = STRING_TYPE; t94170.s0.value.string_type = "quotient2"; /* x139321 stalin.sc:17849:623957 */ t94171.s0.tag = STRING_TYPE; t94171.s0.value.string_type = "Second argument to QUOTIENT ~a an integer"; /* x139322 stalin.sc:17849:623957 */ t94172.s0.tag = TRUE_TYPE; /* x139323 stalin.sc:17849:623957 */ t94172.s1.tag = NULL_TYPE; /* x139324 stalin.sc:17849:623957 */ t94171.s1.tag = STRUCTURE_TYPE24753; t94171.s1.value.structure_type24753 = &t94172; /* x139325 stalin.sc:17849:623957 */ t94170.s1.tag = STRUCTURE_TYPE24753; t94170.s1.value.structure_type24753 = &t94171; /* x139326 stalin.sc:17849:623957 */ t94169.s0.tag = STRUCTURE_TYPE24753; t94169.s0.value.structure_type24753 = &t94170; /* x139327 stalin.sc:17849:623957 */ t94174.s0.tag = STRING_TYPE; t94174.s0.value.string_type = "remainder1"; /* x139328 stalin.sc:17849:623957 */ t94175.s0.tag = STRING_TYPE; t94175.s0.value.string_type = "First argument to REMAINDER ~a an integer"; /* x139329 stalin.sc:17849:623957 */ t94176.s0.tag = TRUE_TYPE; /* x139330 stalin.sc:17849:623957 */ t94176.s1.tag = NULL_TYPE; /* x139331 stalin.sc:17849:623957 */ t94175.s1.tag = STRUCTURE_TYPE24753; t94175.s1.value.structure_type24753 = &t94176; /* x139332 stalin.sc:17849:623957 */ t94174.s1.tag = STRUCTURE_TYPE24753; t94174.s1.value.structure_type24753 = &t94175; /* x139333 stalin.sc:17849:623957 */ t94173.s0.tag = STRUCTURE_TYPE24753; t94173.s0.value.structure_type24753 = &t94174; /* x139334 stalin.sc:17849:623957 */ t94178.s0.tag = STRING_TYPE; t94178.s0.value.string_type = "remainder2"; /* x139335 stalin.sc:17849:623957 */ t94179.s0.tag = STRING_TYPE; t94179.s0.value.string_type = "Second argument to REMAINDER ~a an integer"; /* x139336 stalin.sc:17849:623957 */ t94180.s0.tag = TRUE_TYPE; /* x139337 stalin.sc:17849:623957 */ t94180.s1.tag = NULL_TYPE; /* x139338 stalin.sc:17849:623957 */ t94179.s1.tag = STRUCTURE_TYPE24753; t94179.s1.value.structure_type24753 = &t94180; /* x139339 stalin.sc:17849:623957 */ t94178.s1.tag = STRUCTURE_TYPE24753; t94178.s1.value.structure_type24753 = &t94179; /* x139340 stalin.sc:17849:623957 */ t94177.s0.tag = STRUCTURE_TYPE24753; t94177.s0.value.structure_type24753 = &t94178; /* x139341 stalin.sc:17849:623957 */ t94182.s0.tag = STRING_TYPE; t94182.s0.value.string_type = "lsh1"; /* x139342 stalin.sc:17849:623957 */ t94183.s0.tag = STRING_TYPE; t94183.s0.value.string_type = "First argument to << ~a an integer"; /* x139343 stalin.sc:17849:623957 */ t94184.s0.tag = TRUE_TYPE; /* x139344 stalin.sc:17849:623957 */ t94184.s1.tag = NULL_TYPE; /* x139345 stalin.sc:17849:623957 */ t94183.s1.tag = STRUCTURE_TYPE24753; t94183.s1.value.structure_type24753 = &t94184; /* x139346 stalin.sc:17849:623957 */ t94182.s1.tag = STRUCTURE_TYPE24753; t94182.s1.value.structure_type24753 = &t94183; /* x139347 stalin.sc:17849:623957 */ t94181.s0.tag = STRUCTURE_TYPE24753; t94181.s0.value.structure_type24753 = &t94182; /* x139348 stalin.sc:17849:623957 */ t94186.s0.tag = STRING_TYPE; t94186.s0.value.string_type = "lsh2"; /* x139349 stalin.sc:17849:623957 */ t94187.s0.tag = STRING_TYPE; t94187.s0.value.string_type = "Second argument to >> ~a an integer"; /* x139350 stalin.sc:17849:623957 */ t94188.s0.tag = TRUE_TYPE; /* x139351 stalin.sc:17849:623957 */ t94188.s1.tag = NULL_TYPE; /* x139352 stalin.sc:17849:623957 */ t94187.s1.tag = STRUCTURE_TYPE24753; t94187.s1.value.structure_type24753 = &t94188; /* x139353 stalin.sc:17849:623957 */ t94186.s1.tag = STRUCTURE_TYPE24753; t94186.s1.value.structure_type24753 = &t94187; /* x139354 stalin.sc:17849:623957 */ t94185.s0.tag = STRUCTURE_TYPE24753; t94185.s0.value.structure_type24753 = &t94186; /* x139355 stalin.sc:17849:623957 */ t94190.s0.tag = STRING_TYPE; t94190.s0.value.string_type = "rsh1"; /* x139356 stalin.sc:17849:623957 */ t94191.s0.tag = STRING_TYPE; t94191.s0.value.string_type = "First argument to << ~a an integer"; /* x139357 stalin.sc:17849:623957 */ t94192.s0.tag = TRUE_TYPE; /* x139358 stalin.sc:17849:623957 */ t94192.s1.tag = NULL_TYPE; /* x139359 stalin.sc:17849:623957 */ t94191.s1.tag = STRUCTURE_TYPE24753; t94191.s1.value.structure_type24753 = &t94192; /* x139360 stalin.sc:17849:623957 */ t94190.s1.tag = STRUCTURE_TYPE24753; t94190.s1.value.structure_type24753 = &t94191; /* x139361 stalin.sc:17849:623957 */ t94189.s0.tag = STRUCTURE_TYPE24753; t94189.s0.value.structure_type24753 = &t94190; /* x139362 stalin.sc:17849:623957 */ t94194.s0.tag = STRING_TYPE; t94194.s0.value.string_type = "rsh2"; /* x139363 stalin.sc:17849:623957 */ t94195.s0.tag = STRING_TYPE; t94195.s0.value.string_type = "Second argument to >> ~a an integer"; /* x139364 stalin.sc:17849:623957 */ t94196.s0.tag = TRUE_TYPE; /* x139365 stalin.sc:17849:623957 */ t94196.s1.tag = NULL_TYPE; /* x139366 stalin.sc:17849:623957 */ t94195.s1.tag = STRUCTURE_TYPE24753; t94195.s1.value.structure_type24753 = &t94196; /* x139367 stalin.sc:17849:623957 */ t94194.s1.tag = STRUCTURE_TYPE24753; t94194.s1.value.structure_type24753 = &t94195; /* x139368 stalin.sc:17849:623957 */ t94193.s0.tag = STRUCTURE_TYPE24753; t94193.s0.value.structure_type24753 = &t94194; /* x139369 stalin.sc:17849:623957 */ t94198.s0.tag = STRING_TYPE; t94198.s0.value.string_type = "bitwise_not"; /* x139370 stalin.sc:17849:623957 */ t94199.s0.tag = STRING_TYPE; t94199.s0.value.string_type = "Argument to BITWISE-NOT ~a an exact integer"; /* x139371 stalin.sc:17849:623957 */ t94200.s0.tag = TRUE_TYPE; /* x139372 stalin.sc:17849:623957 */ t94200.s1.tag = NULL_TYPE; /* x139373 stalin.sc:17849:623957 */ t94199.s1.tag = STRUCTURE_TYPE24753; t94199.s1.value.structure_type24753 = &t94200; /* x139374 stalin.sc:17849:623957 */ t94198.s1.tag = STRUCTURE_TYPE24753; t94198.s1.value.structure_type24753 = &t94199; /* x139375 stalin.sc:17849:623957 */ t94197.s0.tag = STRUCTURE_TYPE24753; t94197.s0.value.structure_type24753 = &t94198; /* x139376 stalin.sc:17849:623957 */ t94202.s0.tag = STRING_TYPE; t94202.s0.value.string_type = "bitwise_and"; /* x139377 stalin.sc:17849:623957 */ t94203.s0.tag = STRING_TYPE; t94203.s0.value.string_type = "Argument to BITWISE-AND ~a an exact integer"; /* x139378 stalin.sc:17849:623957 */ t94204.s0.tag = TRUE_TYPE; /* x139379 stalin.sc:17849:623957 */ t94204.s1.tag = NULL_TYPE; /* x139380 stalin.sc:17849:623957 */ t94203.s1.tag = STRUCTURE_TYPE24753; t94203.s1.value.structure_type24753 = &t94204; /* x139381 stalin.sc:17849:623957 */ t94202.s1.tag = STRUCTURE_TYPE24753; t94202.s1.value.structure_type24753 = &t94203; /* x139382 stalin.sc:17849:623957 */ t94201.s0.tag = STRUCTURE_TYPE24753; t94201.s0.value.structure_type24753 = &t94202; /* x139383 stalin.sc:17849:623957 */ t94206.s0.tag = STRING_TYPE; t94206.s0.value.string_type = "bitwise_or"; /* x139384 stalin.sc:17849:623957 */ t94207.s0.tag = STRING_TYPE; t94207.s0.value.string_type = "Argument to BITWISE-OR ~a an exact integer"; /* x139385 stalin.sc:17849:623957 */ t94208.s0.tag = TRUE_TYPE; /* x139386 stalin.sc:17849:623957 */ t94208.s1.tag = NULL_TYPE; /* x139387 stalin.sc:17849:623957 */ t94207.s1.tag = STRUCTURE_TYPE24753; t94207.s1.value.structure_type24753 = &t94208; /* x139388 stalin.sc:17849:623957 */ t94206.s1.tag = STRUCTURE_TYPE24753; t94206.s1.value.structure_type24753 = &t94207; /* x139389 stalin.sc:17849:623957 */ t94205.s0.tag = STRUCTURE_TYPE24753; t94205.s0.value.structure_type24753 = &t94206; /* x139390 stalin.sc:17849:623957 */ t94210.s0.tag = STRING_TYPE; t94210.s0.value.string_type = "floor"; /* x139391 stalin.sc:17849:623957 */ t94211.s0.tag = STRING_TYPE; t94211.s0.value.string_type = "Argument to FLOOR ~a a real number"; /* x139392 stalin.sc:17849:623957 */ t94212.s0.tag = TRUE_TYPE; /* x139393 stalin.sc:17849:623957 */ t94212.s1.tag = NULL_TYPE; /* x139394 stalin.sc:17849:623957 */ t94211.s1.tag = STRUCTURE_TYPE24753; t94211.s1.value.structure_type24753 = &t94212; /* x139395 stalin.sc:17849:623957 */ t94210.s1.tag = STRUCTURE_TYPE24753; t94210.s1.value.structure_type24753 = &t94211; /* x139396 stalin.sc:17849:623957 */ t94209.s0.tag = STRUCTURE_TYPE24753; t94209.s0.value.structure_type24753 = &t94210; /* x139397 stalin.sc:17849:623957 */ t94214.s0.tag = STRING_TYPE; t94214.s0.value.string_type = "ceiling"; /* x139398 stalin.sc:17849:623957 */ t94215.s0.tag = STRING_TYPE; t94215.s0.value.string_type = "Argument to CEILING ~a a real number"; /* x139399 stalin.sc:17849:623957 */ t94216.s0.tag = TRUE_TYPE; /* x139400 stalin.sc:17849:623957 */ t94216.s1.tag = NULL_TYPE; /* x139401 stalin.sc:17849:623957 */ t94215.s1.tag = STRUCTURE_TYPE24753; t94215.s1.value.structure_type24753 = &t94216; /* x139402 stalin.sc:17849:623957 */ t94214.s1.tag = STRUCTURE_TYPE24753; t94214.s1.value.structure_type24753 = &t94215; /* x139403 stalin.sc:17849:623957 */ t94213.s0.tag = STRUCTURE_TYPE24753; t94213.s0.value.structure_type24753 = &t94214; /* x139404 stalin.sc:17849:623957 */ t94218.s0.tag = STRING_TYPE; t94218.s0.value.string_type = "truncate"; /* x139405 stalin.sc:17849:623957 */ t94219.s0.tag = STRING_TYPE; t94219.s0.value.string_type = "Argument to TRUNCATE ~a a real number"; /* x139406 stalin.sc:17849:623957 */ t94220.s0.tag = TRUE_TYPE; /* x139407 stalin.sc:17849:623957 */ t94220.s1.tag = NULL_TYPE; /* x139408 stalin.sc:17849:623957 */ t94219.s1.tag = STRUCTURE_TYPE24753; t94219.s1.value.structure_type24753 = &t94220; /* x139409 stalin.sc:17849:623957 */ t94218.s1.tag = STRUCTURE_TYPE24753; t94218.s1.value.structure_type24753 = &t94219; /* x139410 stalin.sc:17849:623957 */ t94217.s0.tag = STRUCTURE_TYPE24753; t94217.s0.value.structure_type24753 = &t94218; /* x139411 stalin.sc:17849:623957 */ t94222.s0.tag = STRING_TYPE; t94222.s0.value.string_type = "round"; /* x139412 stalin.sc:17849:623957 */ t94223.s0.tag = STRING_TYPE; t94223.s0.value.string_type = "Argument to ROUND ~a a real number"; /* x139413 stalin.sc:17849:623957 */ t94224.s0.tag = TRUE_TYPE; /* x139414 stalin.sc:17849:623957 */ t94224.s1.tag = NULL_TYPE; /* x139415 stalin.sc:17849:623957 */ t94223.s1.tag = STRUCTURE_TYPE24753; t94223.s1.value.structure_type24753 = &t94224; /* x139416 stalin.sc:17849:623957 */ t94222.s1.tag = STRUCTURE_TYPE24753; t94222.s1.value.structure_type24753 = &t94223; /* x139417 stalin.sc:17849:623957 */ t94221.s0.tag = STRUCTURE_TYPE24753; t94221.s0.value.structure_type24753 = &t94222; /* x139418 stalin.sc:17849:623957 */ t94226.s0.tag = STRING_TYPE; t94226.s0.value.string_type = "exp"; /* x139419 stalin.sc:17849:623957 */ t94227.s0.tag = STRING_TYPE; t94227.s0.value.string_type = "Argument to EXP ~a a number"; /* x139420 stalin.sc:17849:623957 */ t94228.s0.tag = TRUE_TYPE; /* x139421 stalin.sc:17849:623957 */ t94228.s1.tag = NULL_TYPE; /* x139422 stalin.sc:17849:623957 */ t94227.s1.tag = STRUCTURE_TYPE24753; t94227.s1.value.structure_type24753 = &t94228; /* x139423 stalin.sc:17849:623957 */ t94226.s1.tag = STRUCTURE_TYPE24753; t94226.s1.value.structure_type24753 = &t94227; /* x139424 stalin.sc:17849:623957 */ t94225.s0.tag = STRUCTURE_TYPE24753; t94225.s0.value.structure_type24753 = &t94226; /* x139425 stalin.sc:17849:623957 */ t94230.s0.tag = STRING_TYPE; t94230.s0.value.string_type = "log"; /* x139426 stalin.sc:17849:623957 */ t94231.s0.tag = STRING_TYPE; t94231.s0.value.string_type = "Argument to LOG ~a a number"; /* x139427 stalin.sc:17849:623957 */ t94232.s0.tag = TRUE_TYPE; /* x139428 stalin.sc:17849:623957 */ t94232.s1.tag = NULL_TYPE; /* x139429 stalin.sc:17849:623957 */ t94231.s1.tag = STRUCTURE_TYPE24753; t94231.s1.value.structure_type24753 = &t94232; /* x139430 stalin.sc:17849:623957 */ t94230.s1.tag = STRUCTURE_TYPE24753; t94230.s1.value.structure_type24753 = &t94231; /* x139431 stalin.sc:17849:623957 */ t94229.s0.tag = STRUCTURE_TYPE24753; t94229.s0.value.structure_type24753 = &t94230; /* x139432 stalin.sc:17849:623957 */ t94234.s0.tag = STRING_TYPE; t94234.s0.value.string_type = "sin"; /* x139433 stalin.sc:17849:623957 */ t94235.s0.tag = STRING_TYPE; t94235.s0.value.string_type = "Argument to SIN ~a a number"; /* x139434 stalin.sc:17849:623957 */ t94236.s0.tag = TRUE_TYPE; /* x139435 stalin.sc:17849:623957 */ t94236.s1.tag = NULL_TYPE; /* x139436 stalin.sc:17849:623957 */ t94235.s1.tag = STRUCTURE_TYPE24753; t94235.s1.value.structure_type24753 = &t94236; /* x139437 stalin.sc:17849:623957 */ t94234.s1.tag = STRUCTURE_TYPE24753; t94234.s1.value.structure_type24753 = &t94235; /* x139438 stalin.sc:17849:623957 */ t94233.s0.tag = STRUCTURE_TYPE24753; t94233.s0.value.structure_type24753 = &t94234; /* x139439 stalin.sc:17849:623957 */ t94238.s0.tag = STRING_TYPE; t94238.s0.value.string_type = "cos"; /* x139440 stalin.sc:17849:623957 */ t94239.s0.tag = STRING_TYPE; t94239.s0.value.string_type = "Argument to COS ~a a number"; /* x139441 stalin.sc:17849:623957 */ t94240.s0.tag = TRUE_TYPE; /* x139442 stalin.sc:17849:623957 */ t94240.s1.tag = NULL_TYPE; /* x139443 stalin.sc:17849:623957 */ t94239.s1.tag = STRUCTURE_TYPE24753; t94239.s1.value.structure_type24753 = &t94240; /* x139444 stalin.sc:17849:623957 */ t94238.s1.tag = STRUCTURE_TYPE24753; t94238.s1.value.structure_type24753 = &t94239; /* x139445 stalin.sc:17849:623957 */ t94237.s0.tag = STRUCTURE_TYPE24753; t94237.s0.value.structure_type24753 = &t94238; /* x139446 stalin.sc:17849:623957 */ t94242.s0.tag = STRING_TYPE; t94242.s0.value.string_type = "tan"; /* x139447 stalin.sc:17849:623957 */ t94243.s0.tag = STRING_TYPE; t94243.s0.value.string_type = "Argument to TAN ~a a number"; /* x139448 stalin.sc:17849:623957 */ t94244.s0.tag = TRUE_TYPE; /* x139449 stalin.sc:17849:623957 */ t94244.s1.tag = NULL_TYPE; /* x139450 stalin.sc:17849:623957 */ t94243.s1.tag = STRUCTURE_TYPE24753; t94243.s1.value.structure_type24753 = &t94244; /* x139451 stalin.sc:17849:623957 */ t94242.s1.tag = STRUCTURE_TYPE24753; t94242.s1.value.structure_type24753 = &t94243; /* x139452 stalin.sc:17849:623957 */ t94241.s0.tag = STRUCTURE_TYPE24753; t94241.s0.value.structure_type24753 = &t94242; /* x139453 stalin.sc:17849:623957 */ t94246.s0.tag = STRING_TYPE; t94246.s0.value.string_type = "asin"; /* x139454 stalin.sc:17849:623957 */ t94247.s0.tag = STRING_TYPE; t94247.s0.value.string_type = "Argument to ASIN ~a a number"; /* x139455 stalin.sc:17849:623957 */ t94248.s0.tag = TRUE_TYPE; /* x139456 stalin.sc:17849:623957 */ t94248.s1.tag = NULL_TYPE; /* x139457 stalin.sc:17849:623957 */ t94247.s1.tag = STRUCTURE_TYPE24753; t94247.s1.value.structure_type24753 = &t94248; /* x139458 stalin.sc:17849:623957 */ t94246.s1.tag = STRUCTURE_TYPE24753; t94246.s1.value.structure_type24753 = &t94247; /* x139459 stalin.sc:17849:623957 */ t94245.s0.tag = STRUCTURE_TYPE24753; t94245.s0.value.structure_type24753 = &t94246; /* x139460 stalin.sc:17849:623957 */ t94250.s0.tag = STRING_TYPE; t94250.s0.value.string_type = "acos"; /* x139461 stalin.sc:17849:623957 */ t94251.s0.tag = STRING_TYPE; t94251.s0.value.string_type = "Argument to ACOS ~a a number"; /* x139462 stalin.sc:17849:623957 */ t94252.s0.tag = TRUE_TYPE; /* x139463 stalin.sc:17849:623957 */ t94252.s1.tag = NULL_TYPE; /* x139464 stalin.sc:17849:623957 */ t94251.s1.tag = STRUCTURE_TYPE24753; t94251.s1.value.structure_type24753 = &t94252; /* x139465 stalin.sc:17849:623957 */ t94250.s1.tag = STRUCTURE_TYPE24753; t94250.s1.value.structure_type24753 = &t94251; /* x139466 stalin.sc:17849:623957 */ t94249.s0.tag = STRUCTURE_TYPE24753; t94249.s0.value.structure_type24753 = &t94250; /* x139467 stalin.sc:17849:623957 */ t94254.s0.tag = STRING_TYPE; t94254.s0.value.string_type = "atan1"; /* x139468 stalin.sc:17849:623957 */ t94255.s0.tag = STRING_TYPE; t94255.s0.value.string_type = "Argument to ATAN ~a a number"; /* x139469 stalin.sc:17849:623957 */ t94256.s0.tag = TRUE_TYPE; /* x139470 stalin.sc:17849:623957 */ t94256.s1.tag = NULL_TYPE; /* x139471 stalin.sc:17849:623957 */ t94255.s1.tag = STRUCTURE_TYPE24753; t94255.s1.value.structure_type24753 = &t94256; /* x139472 stalin.sc:17849:623957 */ t94254.s1.tag = STRUCTURE_TYPE24753; t94254.s1.value.structure_type24753 = &t94255; /* x139473 stalin.sc:17849:623957 */ t94253.s0.tag = STRUCTURE_TYPE24753; t94253.s0.value.structure_type24753 = &t94254; /* x139474 stalin.sc:17849:623957 */ t94258.s0.tag = STRING_TYPE; t94258.s0.value.string_type = "atan2"; /* x139475 stalin.sc:17849:623957 */ t94259.s0.tag = STRING_TYPE; t94259.s0.value.string_type = "First argument to ATAN ~a a number"; /* x139476 stalin.sc:17849:623957 */ t94260.s0.tag = TRUE_TYPE; /* x139477 stalin.sc:17849:623957 */ t94260.s1.tag = NULL_TYPE; /* x139478 stalin.sc:17849:623957 */ t94259.s1.tag = STRUCTURE_TYPE24753; t94259.s1.value.structure_type24753 = &t94260; /* x139479 stalin.sc:17849:623957 */ t94258.s1.tag = STRUCTURE_TYPE24753; t94258.s1.value.structure_type24753 = &t94259; /* x139480 stalin.sc:17849:623957 */ t94257.s0.tag = STRUCTURE_TYPE24753; t94257.s0.value.structure_type24753 = &t94258; /* x139481 stalin.sc:17849:623957 */ t94262.s0.tag = STRING_TYPE; t94262.s0.value.string_type = "atan3"; /* x139482 stalin.sc:17849:623957 */ t94263.s0.tag = STRING_TYPE; t94263.s0.value.string_type = "Second argument to ATAN ~a a number"; /* x139483 stalin.sc:17849:623957 */ t94264.s0.tag = TRUE_TYPE; /* x139484 stalin.sc:17849:623957 */ t94264.s1.tag = NULL_TYPE; /* x139485 stalin.sc:17849:623957 */ t94263.s1.tag = STRUCTURE_TYPE24753; t94263.s1.value.structure_type24753 = &t94264; /* x139486 stalin.sc:17849:623957 */ t94262.s1.tag = STRUCTURE_TYPE24753; t94262.s1.value.structure_type24753 = &t94263; /* x139487 stalin.sc:17849:623957 */ t94261.s0.tag = STRUCTURE_TYPE24753; t94261.s0.value.structure_type24753 = &t94262; /* x139488 stalin.sc:17849:623957 */ t94266.s0.tag = STRING_TYPE; t94266.s0.value.string_type = "sqrt"; /* x139489 stalin.sc:17849:623957 */ t94267.s0.tag = STRING_TYPE; t94267.s0.value.string_type = "Argument to SQRT ~a a number"; /* x139490 stalin.sc:17849:623957 */ t94268.s0.tag = TRUE_TYPE; /* x139491 stalin.sc:17849:623957 */ t94268.s1.tag = NULL_TYPE; /* x139492 stalin.sc:17849:623957 */ t94267.s1.tag = STRUCTURE_TYPE24753; t94267.s1.value.structure_type24753 = &t94268; /* x139493 stalin.sc:17849:623957 */ t94266.s1.tag = STRUCTURE_TYPE24753; t94266.s1.value.structure_type24753 = &t94267; /* x139494 stalin.sc:17849:623957 */ t94265.s0.tag = STRUCTURE_TYPE24753; t94265.s0.value.structure_type24753 = &t94266; /* x139495 stalin.sc:17849:623957 */ t94270.s0.tag = STRING_TYPE; t94270.s0.value.string_type = "expt1"; /* x139496 stalin.sc:17849:623957 */ t94271.s0.tag = STRING_TYPE; t94271.s0.value.string_type = "First argument to EXPT ~a a number"; /* x139497 stalin.sc:17849:623957 */ t94272.s0.tag = TRUE_TYPE; /* x139498 stalin.sc:17849:623957 */ t94272.s1.tag = NULL_TYPE; /* x139499 stalin.sc:17849:623957 */ t94271.s1.tag = STRUCTURE_TYPE24753; t94271.s1.value.structure_type24753 = &t94272; /* x139500 stalin.sc:17849:623957 */ t94270.s1.tag = STRUCTURE_TYPE24753; t94270.s1.value.structure_type24753 = &t94271; /* x139501 stalin.sc:17849:623957 */ t94269.s0.tag = STRUCTURE_TYPE24753; t94269.s0.value.structure_type24753 = &t94270; /* x139502 stalin.sc:17849:623957 */ t94274.s0.tag = STRING_TYPE; t94274.s0.value.string_type = "expt2"; /* x139503 stalin.sc:17849:623957 */ t94275.s0.tag = STRING_TYPE; t94275.s0.value.string_type = "Second argument to EXPT ~a a number"; /* x139504 stalin.sc:17849:623957 */ t94276.s0.tag = TRUE_TYPE; /* x139505 stalin.sc:17849:623957 */ t94276.s1.tag = NULL_TYPE; /* x139506 stalin.sc:17849:623957 */ t94275.s1.tag = STRUCTURE_TYPE24753; t94275.s1.value.structure_type24753 = &t94276; /* x139507 stalin.sc:17849:623957 */ t94274.s1.tag = STRUCTURE_TYPE24753; t94274.s1.value.structure_type24753 = &t94275; /* x139508 stalin.sc:17849:623957 */ t94273.s0.tag = STRUCTURE_TYPE24753; t94273.s0.value.structure_type24753 = &t94274; /* x139509 stalin.sc:17849:623957 */ t94278.s0.tag = STRING_TYPE; t94278.s0.value.string_type = "exact_to_inexact"; /* x139510 stalin.sc:17849:623957 */ t94279.s0.tag = STRING_TYPE; t94279.s0.value.string_type = "Argument to EXACT->INEXACT ~a a number"; /* x139511 stalin.sc:17849:623957 */ t94280.s0.tag = TRUE_TYPE; /* x139512 stalin.sc:17849:623957 */ t94280.s1.tag = NULL_TYPE; /* x139513 stalin.sc:17849:623957 */ t94279.s1.tag = STRUCTURE_TYPE24753; t94279.s1.value.structure_type24753 = &t94280; /* x139514 stalin.sc:17849:623957 */ t94278.s1.tag = STRUCTURE_TYPE24753; t94278.s1.value.structure_type24753 = &t94279; /* x139515 stalin.sc:17849:623957 */ t94277.s0.tag = STRUCTURE_TYPE24753; t94277.s0.value.structure_type24753 = &t94278; /* x139516 stalin.sc:17849:623957 */ t94282.s0.tag = STRING_TYPE; t94282.s0.value.string_type = "inexact_to_exact1"; /* x139517 stalin.sc:17849:623957 */ t94283.s0.tag = STRING_TYPE; t94283.s0.value.string_type = "Argument to INEXACT->EXACT ~a a number"; /* x139518 stalin.sc:17849:623957 */ t94284.s0.tag = TRUE_TYPE; /* x139519 stalin.sc:17849:623957 */ t94284.s1.tag = NULL_TYPE; /* x139520 stalin.sc:17849:623957 */ t94283.s1.tag = STRUCTURE_TYPE24753; t94283.s1.value.structure_type24753 = &t94284; /* x139521 stalin.sc:17849:623957 */ t94282.s1.tag = STRUCTURE_TYPE24753; t94282.s1.value.structure_type24753 = &t94283; /* x139522 stalin.sc:17849:623957 */ t94281.s0.tag = STRUCTURE_TYPE24753; t94281.s0.value.structure_type24753 = &t94282; /* x139523 stalin.sc:17849:623957 */ t94286.s0.tag = STRING_TYPE; t94286.s0.value.string_type = "inexact_to_exact2"; /* x139524 stalin.sc:17849:623957 */ t94287.s0.tag = STRING_TYPE; t94287.s0.value.string_type = "Implementation restriction: Argument to INEXACT->EXACT ~a a real number"; /* x139525 stalin.sc:17849:623957 */ t94288.s0.tag = TRUE_TYPE; /* x139526 stalin.sc:17849:623957 */ t94288.s1.tag = NULL_TYPE; /* x139527 stalin.sc:17849:623957 */ t94287.s1.tag = STRUCTURE_TYPE24753; t94287.s1.value.structure_type24753 = &t94288; /* x139528 stalin.sc:17849:623957 */ t94286.s1.tag = STRUCTURE_TYPE24753; t94286.s1.value.structure_type24753 = &t94287; /* x139529 stalin.sc:17849:623957 */ t94285.s0.tag = STRUCTURE_TYPE24753; t94285.s0.value.structure_type24753 = &t94286; /* x139530 stalin.sc:17849:623957 */ t94290.s0.tag = STRING_TYPE; t94290.s0.value.string_type = "char_to_integer"; /* x139531 stalin.sc:17849:623957 */ t94291.s0.tag = STRING_TYPE; t94291.s0.value.string_type = "Argument to CHAR->INTEGER ~a a character"; /* x139532 stalin.sc:17849:623957 */ t94292.s0.tag = TRUE_TYPE; /* x139533 stalin.sc:17849:623957 */ t94292.s1.tag = NULL_TYPE; /* x139534 stalin.sc:17849:623957 */ t94291.s1.tag = STRUCTURE_TYPE24753; t94291.s1.value.structure_type24753 = &t94292; /* x139535 stalin.sc:17849:623957 */ t94290.s1.tag = STRUCTURE_TYPE24753; t94290.s1.value.structure_type24753 = &t94291; /* x139536 stalin.sc:17849:623957 */ t94289.s0.tag = STRUCTURE_TYPE24753; t94289.s0.value.structure_type24753 = &t94290; /* x139537 stalin.sc:17849:623957 */ t94294.s0.tag = STRING_TYPE; t94294.s0.value.string_type = "integer_to_char1"; /* x139538 stalin.sc:17849:623957 */ t94295.s0.tag = STRING_TYPE; t94295.s0.value.string_type = "Argument to INTEGER->CHAR ~a an exact integer"; /* x139539 stalin.sc:17849:623957 */ t94296.s0.tag = TRUE_TYPE; /* x139540 stalin.sc:17849:623957 */ t94296.s1.tag = NULL_TYPE; /* x139541 stalin.sc:17849:623957 */ t94295.s1.tag = STRUCTURE_TYPE24753; t94295.s1.value.structure_type24753 = &t94296; /* x139542 stalin.sc:17849:623957 */ t94294.s1.tag = STRUCTURE_TYPE24753; t94294.s1.value.structure_type24753 = &t94295; /* x139543 stalin.sc:17849:623957 */ t94293.s0.tag = STRUCTURE_TYPE24753; t94293.s0.value.structure_type24753 = &t94294; /* x139544 stalin.sc:17849:623957 */ t94298.s0.tag = STRING_TYPE; t94298.s0.value.string_type = "integer_to_char2"; /* x139545 stalin.sc:17849:623957 */ t94299.s0.tag = STRING_TYPE; t94299.s0.value.string_type = "Argument to INTEGER->CHAR is out of bounds"; /* x139546 stalin.sc:17849:623957 */ t94300.s0.tag = FALSE_TYPE; /* x139547 stalin.sc:17849:623957 */ t94300.s1.tag = NULL_TYPE; /* x139548 stalin.sc:17849:623957 */ t94299.s1.tag = STRUCTURE_TYPE24753; t94299.s1.value.structure_type24753 = &t94300; /* x139549 stalin.sc:17849:623957 */ t94298.s1.tag = STRUCTURE_TYPE24753; t94298.s1.value.structure_type24753 = &t94299; /* x139550 stalin.sc:17849:623957 */ t94297.s0.tag = STRUCTURE_TYPE24753; t94297.s0.value.structure_type24753 = &t94298; /* x139551 stalin.sc:17849:623957 */ t94302.s0.tag = STRING_TYPE; t94302.s0.value.string_type = "make_string1"; /* x139552 stalin.sc:17849:623957 */ t94303.s0.tag = STRING_TYPE; t94303.s0.value.string_type = "First argument to MAKE-STRING ~a an exact integer"; /* x139553 stalin.sc:17849:623957 */ t94304.s0.tag = TRUE_TYPE; /* x139554 stalin.sc:17849:623957 */ t94304.s1.tag = NULL_TYPE; /* x139555 stalin.sc:17849:623957 */ t94303.s1.tag = STRUCTURE_TYPE24753; t94303.s1.value.structure_type24753 = &t94304; /* x139556 stalin.sc:17849:623957 */ t94302.s1.tag = STRUCTURE_TYPE24753; t94302.s1.value.structure_type24753 = &t94303; /* x139557 stalin.sc:17849:623957 */ t94301.s0.tag = STRUCTURE_TYPE24753; t94301.s0.value.structure_type24753 = &t94302; /* x139558 stalin.sc:17849:623957 */ t94306.s0.tag = STRING_TYPE; t94306.s0.value.string_type = "make_string2"; /* x139559 stalin.sc:17849:623957 */ t94307.s0.tag = STRING_TYPE; t94307.s0.value.string_type = "Second argument to MAKE-STRING ~a a character"; /* x139560 stalin.sc:17849:623957 */ t94308.s0.tag = TRUE_TYPE; /* x139561 stalin.sc:17849:623957 */ t94308.s1.tag = NULL_TYPE; /* x139562 stalin.sc:17849:623957 */ t94307.s1.tag = STRUCTURE_TYPE24753; t94307.s1.value.structure_type24753 = &t94308; /* x139563 stalin.sc:17849:623957 */ t94306.s1.tag = STRUCTURE_TYPE24753; t94306.s1.value.structure_type24753 = &t94307; /* x139564 stalin.sc:17849:623957 */ t94305.s0.tag = STRUCTURE_TYPE24753; t94305.s0.value.structure_type24753 = &t94306; /* x139565 stalin.sc:17849:623957 */ t94310.s0.tag = STRING_TYPE; t94310.s0.value.string_type = "string"; /* x139566 stalin.sc:17849:623957 */ t94311.s0.tag = STRING_TYPE; t94311.s0.value.string_type = "Argument to STRING ~a a character"; /* x139567 stalin.sc:17849:623957 */ t94312.s0.tag = TRUE_TYPE; /* x139568 stalin.sc:17849:623957 */ t94312.s1.tag = NULL_TYPE; /* x139569 stalin.sc:17849:623957 */ t94311.s1.tag = STRUCTURE_TYPE24753; t94311.s1.value.structure_type24753 = &t94312; /* x139570 stalin.sc:17849:623957 */ t94310.s1.tag = STRUCTURE_TYPE24753; t94310.s1.value.structure_type24753 = &t94311; /* x139571 stalin.sc:17849:623957 */ t94309.s0.tag = STRUCTURE_TYPE24753; t94309.s0.value.structure_type24753 = &t94310; /* x139572 stalin.sc:17849:623957 */ t94314.s0.tag = STRING_TYPE; t94314.s0.value.string_type = "string_length"; /* x139573 stalin.sc:17849:623957 */ t94315.s0.tag = STRING_TYPE; t94315.s0.value.string_type = "Argument to STRING-LENGTH ~a a string"; /* x139574 stalin.sc:17849:623957 */ t94316.s0.tag = TRUE_TYPE; /* x139575 stalin.sc:17849:623957 */ t94316.s1.tag = NULL_TYPE; /* x139576 stalin.sc:17849:623957 */ t94315.s1.tag = STRUCTURE_TYPE24753; t94315.s1.value.structure_type24753 = &t94316; /* x139577 stalin.sc:17849:623957 */ t94314.s1.tag = STRUCTURE_TYPE24753; t94314.s1.value.structure_type24753 = &t94315; /* x139578 stalin.sc:17849:623957 */ t94313.s0.tag = STRUCTURE_TYPE24753; t94313.s0.value.structure_type24753 = &t94314; /* x139579 stalin.sc:17849:623957 */ t94318.s0.tag = STRING_TYPE; t94318.s0.value.string_type = "string_ref1"; /* x139580 stalin.sc:17849:623957 */ t94319.s0.tag = STRING_TYPE; t94319.s0.value.string_type = "First argument to STRING-REF ~a a string"; /* x139581 stalin.sc:17849:623957 */ t94320.s0.tag = TRUE_TYPE; /* x139582 stalin.sc:17849:623957 */ t94320.s1.tag = NULL_TYPE; /* x139583 stalin.sc:17849:623957 */ t94319.s1.tag = STRUCTURE_TYPE24753; t94319.s1.value.structure_type24753 = &t94320; /* x139584 stalin.sc:17849:623957 */ t94318.s1.tag = STRUCTURE_TYPE24753; t94318.s1.value.structure_type24753 = &t94319; /* x139585 stalin.sc:17849:623957 */ t94317.s0.tag = STRUCTURE_TYPE24753; t94317.s0.value.structure_type24753 = &t94318; /* x139586 stalin.sc:17849:623957 */ t94322.s0.tag = STRING_TYPE; t94322.s0.value.string_type = "string_ref2"; /* x139587 stalin.sc:17849:623957 */ t94323.s0.tag = STRING_TYPE; t94323.s0.value.string_type = "Second argument to STRING-REF ~a an exact integer"; /* x139588 stalin.sc:17849:623957 */ t94324.s0.tag = TRUE_TYPE; /* x139589 stalin.sc:17849:623957 */ t94324.s1.tag = NULL_TYPE; /* x139590 stalin.sc:17849:623957 */ t94323.s1.tag = STRUCTURE_TYPE24753; t94323.s1.value.structure_type24753 = &t94324; /* x139591 stalin.sc:17849:623957 */ t94322.s1.tag = STRUCTURE_TYPE24753; t94322.s1.value.structure_type24753 = &t94323; /* x139592 stalin.sc:17849:623957 */ t94321.s0.tag = STRUCTURE_TYPE24753; t94321.s0.value.structure_type24753 = &t94322; /* x139593 stalin.sc:17849:623957 */ t94326.s0.tag = STRING_TYPE; t94326.s0.value.string_type = "string_ref3"; /* x139594 stalin.sc:17849:623957 */ t94327.s0.tag = STRING_TYPE; t94327.s0.value.string_type = "Second argument to STRING-REF is out of bounds"; /* x139595 stalin.sc:17849:623957 */ t94328.s0.tag = FALSE_TYPE; /* x139596 stalin.sc:17849:623957 */ t94328.s1.tag = NULL_TYPE; /* x139597 stalin.sc:17849:623957 */ t94327.s1.tag = STRUCTURE_TYPE24753; t94327.s1.value.structure_type24753 = &t94328; /* x139598 stalin.sc:17849:623957 */ t94326.s1.tag = STRUCTURE_TYPE24753; t94326.s1.value.structure_type24753 = &t94327; /* x139599 stalin.sc:17849:623957 */ t94325.s0.tag = STRUCTURE_TYPE24753; t94325.s0.value.structure_type24753 = &t94326; /* x139600 stalin.sc:17849:623957 */ t94330.s0.tag = STRING_TYPE; t94330.s0.value.string_type = "string_set1"; /* x139601 stalin.sc:17849:623957 */ t94331.s0.tag = STRING_TYPE; t94331.s0.value.string_type = "First argument to STRING-SET! ~a a string"; /* x139602 stalin.sc:17849:623957 */ t94332.s0.tag = TRUE_TYPE; /* x139603 stalin.sc:17849:623957 */ t94332.s1.tag = NULL_TYPE; /* x139604 stalin.sc:17849:623957 */ t94331.s1.tag = STRUCTURE_TYPE24753; t94331.s1.value.structure_type24753 = &t94332; /* x139605 stalin.sc:17849:623957 */ t94330.s1.tag = STRUCTURE_TYPE24753; t94330.s1.value.structure_type24753 = &t94331; /* x139606 stalin.sc:17849:623957 */ t94329.s0.tag = STRUCTURE_TYPE24753; t94329.s0.value.structure_type24753 = &t94330; /* x139607 stalin.sc:17849:623957 */ t94334.s0.tag = STRING_TYPE; t94334.s0.value.string_type = "string_set2"; /* x139608 stalin.sc:17849:623957 */ t94335.s0.tag = STRING_TYPE; t94335.s0.value.string_type = "Second argument to STRING-SET! ~a an exact integer"; /* x139609 stalin.sc:17849:623957 */ t94336.s0.tag = TRUE_TYPE; /* x139610 stalin.sc:17849:623957 */ t94336.s1.tag = NULL_TYPE; /* x139611 stalin.sc:17849:623957 */ t94335.s1.tag = STRUCTURE_TYPE24753; t94335.s1.value.structure_type24753 = &t94336; /* x139612 stalin.sc:17849:623957 */ t94334.s1.tag = STRUCTURE_TYPE24753; t94334.s1.value.structure_type24753 = &t94335; /* x139613 stalin.sc:17849:623957 */ t94333.s0.tag = STRUCTURE_TYPE24753; t94333.s0.value.structure_type24753 = &t94334; /* x139614 stalin.sc:17849:623957 */ t94338.s0.tag = STRING_TYPE; t94338.s0.value.string_type = "string_set3"; /* x139615 stalin.sc:17849:623957 */ t94339.s0.tag = STRING_TYPE; t94339.s0.value.string_type = "Third argument to STRING-SET! ~a a character"; /* x139616 stalin.sc:17849:623957 */ t94340.s0.tag = TRUE_TYPE; /* x139617 stalin.sc:17849:623957 */ t94340.s1.tag = NULL_TYPE; /* x139618 stalin.sc:17849:623957 */ t94339.s1.tag = STRUCTURE_TYPE24753; t94339.s1.value.structure_type24753 = &t94340; /* x139619 stalin.sc:17849:623957 */ t94338.s1.tag = STRUCTURE_TYPE24753; t94338.s1.value.structure_type24753 = &t94339; /* x139620 stalin.sc:17849:623957 */ t94337.s0.tag = STRUCTURE_TYPE24753; t94337.s0.value.structure_type24753 = &t94338; /* x139621 stalin.sc:17849:623957 */ t94342.s0.tag = STRING_TYPE; t94342.s0.value.string_type = "string_set4"; /* x139622 stalin.sc:17849:623957 */ t94343.s0.tag = STRING_TYPE; t94343.s0.value.string_type = "Second argument to STRING-SET! is out of bounds"; /* x139623 stalin.sc:17849:623957 */ t94344.s0.tag = FALSE_TYPE; /* x139624 stalin.sc:17849:623957 */ t94344.s1.tag = NULL_TYPE; /* x139625 stalin.sc:17849:623957 */ t94343.s1.tag = STRUCTURE_TYPE24753; t94343.s1.value.structure_type24753 = &t94344; /* x139626 stalin.sc:17849:623957 */ t94342.s1.tag = STRUCTURE_TYPE24753; t94342.s1.value.structure_type24753 = &t94343; /* x139627 stalin.sc:17849:623957 */ t94341.s0.tag = STRUCTURE_TYPE24753; t94341.s0.value.structure_type24753 = &t94342; /* x139628 stalin.sc:17849:623957 */ t94346.s0.tag = STRING_TYPE; t94346.s0.value.string_type = "make_vector"; /* x139629 stalin.sc:17849:623957 */ t94347.s0.tag = STRING_TYPE; t94347.s0.value.string_type = "First argument to MAKE-VECTOR ~a an exact integer"; /* x139630 stalin.sc:17849:623957 */ t94348.s0.tag = TRUE_TYPE; /* x139631 stalin.sc:17849:623957 */ t94348.s1.tag = NULL_TYPE; /* x139632 stalin.sc:17849:623957 */ t94347.s1.tag = STRUCTURE_TYPE24753; t94347.s1.value.structure_type24753 = &t94348; /* x139633 stalin.sc:17849:623957 */ t94346.s1.tag = STRUCTURE_TYPE24753; t94346.s1.value.structure_type24753 = &t94347; /* x139634 stalin.sc:17849:623957 */ t94345.s0.tag = STRUCTURE_TYPE24753; t94345.s0.value.structure_type24753 = &t94346; /* x139635 stalin.sc:17849:623957 */ t94350.s0.tag = STRING_TYPE; t94350.s0.value.string_type = "make_displaced_vector1"; /* x139636 stalin.sc:17849:623957 */ t94351.s0.tag = STRING_TYPE; t94351.s0.value.string_type = "First argument to MAKE-DISPLACED-VECTOR ~a a vector"; /* x139637 stalin.sc:17849:623957 */ t94352.s0.tag = TRUE_TYPE; /* x139638 stalin.sc:17849:623957 */ t94352.s1.tag = NULL_TYPE; /* x139639 stalin.sc:17849:623957 */ t94351.s1.tag = STRUCTURE_TYPE24753; t94351.s1.value.structure_type24753 = &t94352; /* x139640 stalin.sc:17849:623957 */ t94350.s1.tag = STRUCTURE_TYPE24753; t94350.s1.value.structure_type24753 = &t94351; /* x139641 stalin.sc:17849:623957 */ t94349.s0.tag = STRUCTURE_TYPE24753; t94349.s0.value.structure_type24753 = &t94350; /* x139642 stalin.sc:17849:623957 */ t94354.s0.tag = STRING_TYPE; t94354.s0.value.string_type = "make_displaced_vector2"; /* x139643 stalin.sc:17849:623957 */ t94355.s0.tag = STRING_TYPE; t94355.s0.value.string_type = "Second argument to MAKE-DISPLACED-VECTOR ~a an exact integer"; /* x139644 stalin.sc:17849:623957 */ t94356.s0.tag = TRUE_TYPE; /* x139645 stalin.sc:17849:623957 */ t94356.s1.tag = NULL_TYPE; /* x139646 stalin.sc:17849:623957 */ t94355.s1.tag = STRUCTURE_TYPE24753; t94355.s1.value.structure_type24753 = &t94356; /* x139647 stalin.sc:17849:623957 */ t94354.s1.tag = STRUCTURE_TYPE24753; t94354.s1.value.structure_type24753 = &t94355; /* x139648 stalin.sc:17849:623957 */ t94353.s0.tag = STRUCTURE_TYPE24753; t94353.s0.value.structure_type24753 = &t94354; /* x139649 stalin.sc:17849:623957 */ t94358.s0.tag = STRING_TYPE; t94358.s0.value.string_type = "make_displaced_vector3"; /* x139650 stalin.sc:17849:623957 */ t94359.s0.tag = STRING_TYPE; t94359.s0.value.string_type = "Third argument to MAKE-DISPLACED-VECTOR ~a an exact integer"; /* x139651 stalin.sc:17849:623957 */ t94360.s0.tag = TRUE_TYPE; /* x139652 stalin.sc:17849:623957 */ t94360.s1.tag = NULL_TYPE; /* x139653 stalin.sc:17849:623957 */ t94359.s1.tag = STRUCTURE_TYPE24753; t94359.s1.value.structure_type24753 = &t94360; /* x139654 stalin.sc:17849:623957 */ t94358.s1.tag = STRUCTURE_TYPE24753; t94358.s1.value.structure_type24753 = &t94359; /* x139655 stalin.sc:17849:623957 */ t94357.s0.tag = STRUCTURE_TYPE24753; t94357.s0.value.structure_type24753 = &t94358; /* x139656 stalin.sc:17849:623957 */ t94362.s0.tag = STRING_TYPE; t94362.s0.value.string_type = "make_displaced_vector4"; /* x139657 stalin.sc:17849:623957 */ t94363.s0.tag = STRING_TYPE; t94363.s0.value.string_type = "Second argument to MAKE-DISPLACED-VECTOR is out of bounds"; /* x139658 stalin.sc:17849:623957 */ t94364.s0.tag = FALSE_TYPE; /* x139659 stalin.sc:17849:623957 */ t94364.s1.tag = NULL_TYPE; /* x139660 stalin.sc:17849:623957 */ t94363.s1.tag = STRUCTURE_TYPE24753; t94363.s1.value.structure_type24753 = &t94364; /* x139661 stalin.sc:17849:623957 */ t94362.s1.tag = STRUCTURE_TYPE24753; t94362.s1.value.structure_type24753 = &t94363; /* x139662 stalin.sc:17849:623957 */ t94361.s0.tag = STRUCTURE_TYPE24753; t94361.s0.value.structure_type24753 = &t94362; /* x139663 stalin.sc:17849:623957 */ t94366.s0.tag = STRING_TYPE; t94366.s0.value.string_type = "make_displaced_vector5"; /* x139664 stalin.sc:17849:623957 */ t94367.s0.tag = STRING_TYPE; t94367.s0.value.string_type = "Third argument to MAKE-DISPLACED-VECTOR is out of bounds"; /* x139665 stalin.sc:17849:623957 */ t94368.s0.tag = FALSE_TYPE; /* x139666 stalin.sc:17849:623957 */ t94368.s1.tag = NULL_TYPE; /* x139667 stalin.sc:17849:623957 */ t94367.s1.tag = STRUCTURE_TYPE24753; t94367.s1.value.structure_type24753 = &t94368; /* x139668 stalin.sc:17849:623957 */ t94366.s1.tag = STRUCTURE_TYPE24753; t94366.s1.value.structure_type24753 = &t94367; /* x139669 stalin.sc:17849:623957 */ t94365.s0.tag = STRUCTURE_TYPE24753; t94365.s0.value.structure_type24753 = &t94366; /* x139670 stalin.sc:17849:623957 */ t94370.s0.tag = STRING_TYPE; t94370.s0.value.string_type = "vector_length"; /* x139671 stalin.sc:17849:623957 */ t94371.s0.tag = STRING_TYPE; t94371.s0.value.string_type = "Argument to VECTOR-LENGTH ~a a vector"; /* x139672 stalin.sc:17849:623957 */ t94372.s0.tag = TRUE_TYPE; /* x139673 stalin.sc:17849:623957 */ t94372.s1.tag = NULL_TYPE; /* x139674 stalin.sc:17849:623957 */ t94371.s1.tag = STRUCTURE_TYPE24753; t94371.s1.value.structure_type24753 = &t94372; /* x139675 stalin.sc:17849:623957 */ t94370.s1.tag = STRUCTURE_TYPE24753; t94370.s1.value.structure_type24753 = &t94371; /* x139676 stalin.sc:17849:623957 */ t94369.s0.tag = STRUCTURE_TYPE24753; t94369.s0.value.structure_type24753 = &t94370; /* x139677 stalin.sc:17849:623957 */ t94374.s0.tag = STRING_TYPE; t94374.s0.value.string_type = "vector_ref1"; /* x139678 stalin.sc:17849:623957 */ t94375.s0.tag = STRING_TYPE; t94375.s0.value.string_type = "First argument to VECTOR-REF ~a a vector"; /* x139679 stalin.sc:17849:623957 */ t94376.s0.tag = TRUE_TYPE; /* x139680 stalin.sc:17849:623957 */ t94376.s1.tag = NULL_TYPE; /* x139681 stalin.sc:17849:623957 */ t94375.s1.tag = STRUCTURE_TYPE24753; t94375.s1.value.structure_type24753 = &t94376; /* x139682 stalin.sc:17849:623957 */ t94374.s1.tag = STRUCTURE_TYPE24753; t94374.s1.value.structure_type24753 = &t94375; /* x139683 stalin.sc:17849:623957 */ t94373.s0.tag = STRUCTURE_TYPE24753; t94373.s0.value.structure_type24753 = &t94374; /* x139684 stalin.sc:17849:623957 */ t94378.s0.tag = STRING_TYPE; t94378.s0.value.string_type = "vector_ref2"; /* x139685 stalin.sc:17849:623957 */ t94379.s0.tag = STRING_TYPE; t94379.s0.value.string_type = "Second argument to VECTOR-REF ~a an exact integer"; /* x139686 stalin.sc:17849:623957 */ t94380.s0.tag = TRUE_TYPE; /* x139687 stalin.sc:17849:623957 */ t94380.s1.tag = NULL_TYPE; /* x139688 stalin.sc:17849:623957 */ t94379.s1.tag = STRUCTURE_TYPE24753; t94379.s1.value.structure_type24753 = &t94380; /* x139689 stalin.sc:17849:623957 */ t94378.s1.tag = STRUCTURE_TYPE24753; t94378.s1.value.structure_type24753 = &t94379; /* x139690 stalin.sc:17849:623957 */ t94377.s0.tag = STRUCTURE_TYPE24753; t94377.s0.value.structure_type24753 = &t94378; /* x139691 stalin.sc:17849:623957 */ t94382.s0.tag = STRING_TYPE; t94382.s0.value.string_type = "vector_ref3"; /* x139692 stalin.sc:17849:623957 */ t94383.s0.tag = STRING_TYPE; t94383.s0.value.string_type = "Second argument to VECTOR-REF is out of bounds"; /* x139693 stalin.sc:17849:623957 */ t94384.s0.tag = FALSE_TYPE; /* x139694 stalin.sc:17849:623957 */ t94384.s1.tag = NULL_TYPE; /* x139695 stalin.sc:17849:623957 */ t94383.s1.tag = STRUCTURE_TYPE24753; t94383.s1.value.structure_type24753 = &t94384; /* x139696 stalin.sc:17849:623957 */ t94382.s1.tag = STRUCTURE_TYPE24753; t94382.s1.value.structure_type24753 = &t94383; /* x139697 stalin.sc:17849:623957 */ t94381.s0.tag = STRUCTURE_TYPE24753; t94381.s0.value.structure_type24753 = &t94382; /* x139698 stalin.sc:17849:623957 */ t94386.s0.tag = STRING_TYPE; t94386.s0.value.string_type = "vector_set1"; /* x139699 stalin.sc:17849:623957 */ t94387.s0.tag = STRING_TYPE; t94387.s0.value.string_type = "First argument to VECTOR-SET! ~a a vector"; /* x139700 stalin.sc:17849:623957 */ t94388.s0.tag = TRUE_TYPE; /* x139701 stalin.sc:17849:623957 */ t94388.s1.tag = NULL_TYPE; /* x139702 stalin.sc:17849:623957 */ t94387.s1.tag = STRUCTURE_TYPE24753; t94387.s1.value.structure_type24753 = &t94388; /* x139703 stalin.sc:17849:623957 */ t94386.s1.tag = STRUCTURE_TYPE24753; t94386.s1.value.structure_type24753 = &t94387; /* x139704 stalin.sc:17849:623957 */ t94385.s0.tag = STRUCTURE_TYPE24753; t94385.s0.value.structure_type24753 = &t94386; /* x139705 stalin.sc:17849:623957 */ t94390.s0.tag = STRING_TYPE; t94390.s0.value.string_type = "vector_set2"; /* x139706 stalin.sc:17849:623957 */ t94391.s0.tag = STRING_TYPE; t94391.s0.value.string_type = "Second argument to VECTOR-SET! ~a an exact integer"; /* x139707 stalin.sc:17849:623957 */ t94392.s0.tag = TRUE_TYPE; /* x139708 stalin.sc:17849:623957 */ t94392.s1.tag = NULL_TYPE; /* x139709 stalin.sc:17849:623957 */ t94391.s1.tag = STRUCTURE_TYPE24753; t94391.s1.value.structure_type24753 = &t94392; /* x139710 stalin.sc:17849:623957 */ t94390.s1.tag = STRUCTURE_TYPE24753; t94390.s1.value.structure_type24753 = &t94391; /* x139711 stalin.sc:17849:623957 */ t94389.s0.tag = STRUCTURE_TYPE24753; t94389.s0.value.structure_type24753 = &t94390; /* x139712 stalin.sc:17849:623957 */ t94394.s0.tag = STRING_TYPE; t94394.s0.value.string_type = "vector_set3"; /* x139713 stalin.sc:17849:623957 */ t94395.s0.tag = STRING_TYPE; t94395.s0.value.string_type = "Second argument to VECTOR-SET! is out of bounds"; /* x139714 stalin.sc:17849:623957 */ t94396.s0.tag = FALSE_TYPE; /* x139715 stalin.sc:17849:623957 */ t94396.s1.tag = NULL_TYPE; /* x139716 stalin.sc:17849:623957 */ t94395.s1.tag = STRUCTURE_TYPE24753; t94395.s1.value.structure_type24753 = &t94396; /* x139717 stalin.sc:17849:623957 */ t94394.s1.tag = STRUCTURE_TYPE24753; t94394.s1.value.structure_type24753 = &t94395; /* x139718 stalin.sc:17849:623957 */ t94393.s0.tag = STRUCTURE_TYPE24753; t94393.s0.value.structure_type24753 = &t94394; /* x139719 stalin.sc:17849:623957 */ t94398.s0.tag = STRING_TYPE; t94398.s0.value.string_type = "call_with_current_continuation"; /* x139720 stalin.sc:17849:623957 */ t94399.s0.tag = STRING_TYPE; t94399.s0.value.string_type = "First argument to CALL-WITH-CURRENT-CONTINUATION ~a a procedure of one argument"; /* x139721 stalin.sc:17849:623957 */ t94400.s0.tag = TRUE_TYPE; /* x139722 stalin.sc:17849:623957 */ t94400.s1.tag = NULL_TYPE; /* x139723 stalin.sc:17849:623957 */ t94399.s1.tag = STRUCTURE_TYPE24753; t94399.s1.value.structure_type24753 = &t94400; /* x139724 stalin.sc:17849:623957 */ t94398.s1.tag = STRUCTURE_TYPE24753; t94398.s1.value.structure_type24753 = &t94399; /* x139725 stalin.sc:17849:623957 */ t94397.s0.tag = STRUCTURE_TYPE24753; t94397.s0.value.structure_type24753 = &t94398; /* x139726 stalin.sc:17849:623957 */ t94402.s0.tag = STRING_TYPE; t94402.s0.value.string_type = "open_input_file1"; /* x139727 stalin.sc:17849:623957 */ t94403.s0.tag = STRING_TYPE; t94403.s0.value.string_type = "Argument to OPEN-INPUT-FILE ~a a string"; /* x139728 stalin.sc:17849:623957 */ t94404.s0.tag = TRUE_TYPE; /* x139729 stalin.sc:17849:623957 */ t94404.s1.tag = NULL_TYPE; /* x139730 stalin.sc:17849:623957 */ t94403.s1.tag = STRUCTURE_TYPE24753; t94403.s1.value.structure_type24753 = &t94404; /* x139731 stalin.sc:17849:623957 */ t94402.s1.tag = STRUCTURE_TYPE24753; t94402.s1.value.structure_type24753 = &t94403; /* x139732 stalin.sc:17849:623957 */ t94401.s0.tag = STRUCTURE_TYPE24753; t94401.s0.value.structure_type24753 = &t94402; /* x139733 stalin.sc:17849:623957 */ t94406.s0.tag = STRING_TYPE; t94406.s0.value.string_type = "open_input_file2"; /* x139734 stalin.sc:17849:623957 */ t94407.s0.tag = STRING_TYPE; t94407.s0.value.string_type = "OPEN-INPUT-FILE cannot open file"; /* x139735 stalin.sc:17849:623957 */ t94408.s0.tag = FALSE_TYPE; /* x139736 stalin.sc:17849:623957 */ t94408.s1.tag = NULL_TYPE; /* x139737 stalin.sc:17849:623957 */ t94407.s1.tag = STRUCTURE_TYPE24753; t94407.s1.value.structure_type24753 = &t94408; /* x139738 stalin.sc:17849:623957 */ t94406.s1.tag = STRUCTURE_TYPE24753; t94406.s1.value.structure_type24753 = &t94407; /* x139739 stalin.sc:17849:623957 */ t94405.s0.tag = STRUCTURE_TYPE24753; t94405.s0.value.structure_type24753 = &t94406; /* x139740 stalin.sc:17849:623957 */ t94410.s0.tag = STRING_TYPE; t94410.s0.value.string_type = "open_output_file1"; /* x139741 stalin.sc:17849:623957 */ t94411.s0.tag = STRING_TYPE; t94411.s0.value.string_type = "Argument to OPEN-OUTPUT-FILE ~a a string"; /* x139742 stalin.sc:17849:623957 */ t94412.s0.tag = TRUE_TYPE; /* x139743 stalin.sc:17849:623957 */ t94412.s1.tag = NULL_TYPE; /* x139744 stalin.sc:17849:623957 */ t94411.s1.tag = STRUCTURE_TYPE24753; t94411.s1.value.structure_type24753 = &t94412; /* x139745 stalin.sc:17849:623957 */ t94410.s1.tag = STRUCTURE_TYPE24753; t94410.s1.value.structure_type24753 = &t94411; /* x139746 stalin.sc:17849:623957 */ t94409.s0.tag = STRUCTURE_TYPE24753; t94409.s0.value.structure_type24753 = &t94410; /* x139747 stalin.sc:17849:623957 */ t94414.s0.tag = STRING_TYPE; t94414.s0.value.string_type = "open_output_file2"; /* x139748 stalin.sc:17849:623957 */ t94415.s0.tag = STRING_TYPE; t94415.s0.value.string_type = "OPEN-OUTPUT-FILE cannot open file"; /* x139749 stalin.sc:17849:623957 */ t94416.s0.tag = FALSE_TYPE; /* x139750 stalin.sc:17849:623957 */ t94416.s1.tag = NULL_TYPE; /* x139751 stalin.sc:17849:623957 */ t94415.s1.tag = STRUCTURE_TYPE24753; t94415.s1.value.structure_type24753 = &t94416; /* x139752 stalin.sc:17849:623957 */ t94414.s1.tag = STRUCTURE_TYPE24753; t94414.s1.value.structure_type24753 = &t94415; /* x139753 stalin.sc:17849:623957 */ t94413.s0.tag = STRUCTURE_TYPE24753; t94413.s0.value.structure_type24753 = &t94414; /* x139754 stalin.sc:17849:623957 */ t94418.s0.tag = STRING_TYPE; t94418.s0.value.string_type = "close_input_port1"; /* x139755 stalin.sc:17849:623957 */ t94419.s0.tag = STRING_TYPE; t94419.s0.value.string_type = "Argument to CLOSE-INPUT-PORT ~a an input port"; /* x139756 stalin.sc:17849:623957 */ t94420.s0.tag = TRUE_TYPE; /* x139757 stalin.sc:17849:623957 */ t94420.s1.tag = NULL_TYPE; /* x139758 stalin.sc:17849:623957 */ t94419.s1.tag = STRUCTURE_TYPE24753; t94419.s1.value.structure_type24753 = &t94420; /* x139759 stalin.sc:17849:623957 */ t94418.s1.tag = STRUCTURE_TYPE24753; t94418.s1.value.structure_type24753 = &t94419; /* x139760 stalin.sc:17849:623957 */ t94417.s0.tag = STRUCTURE_TYPE24753; t94417.s0.value.structure_type24753 = &t94418; /* x139761 stalin.sc:17849:623957 */ t94422.s0.tag = STRING_TYPE; t94422.s0.value.string_type = "close_input_port2"; /* x139762 stalin.sc:17849:623957 */ t94423.s0.tag = STRING_TYPE; t94423.s0.value.string_type = "CLOSE-INPUT-PORT cannot close input port"; /* x139763 stalin.sc:17849:623957 */ t94424.s0.tag = FALSE_TYPE; /* x139764 stalin.sc:17849:623957 */ t94424.s1.tag = NULL_TYPE; /* x139765 stalin.sc:17849:623957 */ t94423.s1.tag = STRUCTURE_TYPE24753; t94423.s1.value.structure_type24753 = &t94424; /* x139766 stalin.sc:17849:623957 */ t94422.s1.tag = STRUCTURE_TYPE24753; t94422.s1.value.structure_type24753 = &t94423; /* x139767 stalin.sc:17849:623957 */ t94421.s0.tag = STRUCTURE_TYPE24753; t94421.s0.value.structure_type24753 = &t94422; /* x139768 stalin.sc:17849:623957 */ t94426.s0.tag = STRING_TYPE; t94426.s0.value.string_type = "close_output_port1"; /* x139769 stalin.sc:17849:623957 */ t94427.s0.tag = STRING_TYPE; t94427.s0.value.string_type = "Argument to CLOSE-OUTPUT-PORT ~a an output port"; /* x139770 stalin.sc:17849:623957 */ t94428.s0.tag = TRUE_TYPE; /* x139771 stalin.sc:17849:623957 */ t94428.s1.tag = NULL_TYPE; /* x139772 stalin.sc:17849:623957 */ t94427.s1.tag = STRUCTURE_TYPE24753; t94427.s1.value.structure_type24753 = &t94428; /* x139773 stalin.sc:17849:623957 */ t94426.s1.tag = STRUCTURE_TYPE24753; t94426.s1.value.structure_type24753 = &t94427; /* x139774 stalin.sc:17849:623957 */ t94425.s0.tag = STRUCTURE_TYPE24753; t94425.s0.value.structure_type24753 = &t94426; /* x139775 stalin.sc:17849:623957 */ t94430.s0.tag = STRING_TYPE; t94430.s0.value.string_type = "close_output_port2"; /* x139776 stalin.sc:17849:623957 */ t94431.s0.tag = STRING_TYPE; t94431.s0.value.string_type = "CLOSE-OUTPUT-PORT cannot close output port"; /* x139777 stalin.sc:17849:623957 */ t94432.s0.tag = FALSE_TYPE; /* x139778 stalin.sc:17849:623957 */ t94432.s1.tag = NULL_TYPE; /* x139779 stalin.sc:17849:623957 */ t94431.s1.tag = STRUCTURE_TYPE24753; t94431.s1.value.structure_type24753 = &t94432; /* x139780 stalin.sc:17849:623957 */ t94430.s1.tag = STRUCTURE_TYPE24753; t94430.s1.value.structure_type24753 = &t94431; /* x139781 stalin.sc:17849:623957 */ t94429.s0.tag = STRUCTURE_TYPE24753; t94429.s0.value.structure_type24753 = &t94430; /* x139782 stalin.sc:17849:623957 */ t94434.s0.tag = STRING_TYPE; t94434.s0.value.string_type = "read_char1"; /* x139783 stalin.sc:17849:623957 */ t94435.s0.tag = STRING_TYPE; t94435.s0.value.string_type = "Argument to READ-CHAR1 ~a an input port"; /* x139784 stalin.sc:17849:623957 */ t94436.s0.tag = TRUE_TYPE; /* x139785 stalin.sc:17849:623957 */ t94436.s1.tag = NULL_TYPE; /* x139786 stalin.sc:17849:623957 */ t94435.s1.tag = STRUCTURE_TYPE24753; t94435.s1.value.structure_type24753 = &t94436; /* x139787 stalin.sc:17849:623957 */ t94434.s1.tag = STRUCTURE_TYPE24753; t94434.s1.value.structure_type24753 = &t94435; /* x139788 stalin.sc:17849:623957 */ t94433.s0.tag = STRUCTURE_TYPE24753; t94433.s0.value.structure_type24753 = &t94434; /* x139789 stalin.sc:17849:623957 */ t94438.s0.tag = STRING_TYPE; t94438.s0.value.string_type = "peek_char1"; /* x139790 stalin.sc:17849:623957 */ t94439.s0.tag = STRING_TYPE; t94439.s0.value.string_type = "Argument to PEEK-CHAR1 ~a an input port"; /* x139791 stalin.sc:17849:623957 */ t94440.s0.tag = TRUE_TYPE; /* x139792 stalin.sc:17849:623957 */ t94440.s1.tag = NULL_TYPE; /* x139793 stalin.sc:17849:623957 */ t94439.s1.tag = STRUCTURE_TYPE24753; t94439.s1.value.structure_type24753 = &t94440; /* x139794 stalin.sc:17849:623957 */ t94438.s1.tag = STRUCTURE_TYPE24753; t94438.s1.value.structure_type24753 = &t94439; /* x139795 stalin.sc:17849:623957 */ t94437.s0.tag = STRUCTURE_TYPE24753; t94437.s0.value.structure_type24753 = &t94438; /* x139796 stalin.sc:17849:623957 */ t94442.s0.tag = STRING_TYPE; t94442.s0.value.string_type = "char_ready1"; /* x139797 stalin.sc:17849:623957 */ t94443.s0.tag = STRING_TYPE; t94443.s0.value.string_type = "Argument to CHAR-READY?1 ~a an input port"; /* x139798 stalin.sc:17849:623957 */ t94444.s0.tag = TRUE_TYPE; /* x139799 stalin.sc:17849:623957 */ t94444.s1.tag = NULL_TYPE; /* x139800 stalin.sc:17849:623957 */ t94443.s1.tag = STRUCTURE_TYPE24753; t94443.s1.value.structure_type24753 = &t94444; /* x139801 stalin.sc:17849:623957 */ t94442.s1.tag = STRUCTURE_TYPE24753; t94442.s1.value.structure_type24753 = &t94443; /* x139802 stalin.sc:17849:623957 */ t94441.s0.tag = STRUCTURE_TYPE24753; t94441.s0.value.structure_type24753 = &t94442; /* x139803 stalin.sc:17849:623957 */ t94446.s0.tag = STRING_TYPE; t94446.s0.value.string_type = "write_char1"; /* x139804 stalin.sc:17849:623957 */ t94447.s0.tag = STRING_TYPE; t94447.s0.value.string_type = "First argument to WRITE-CHAR2 ~a a character"; /* x139805 stalin.sc:17849:623957 */ t94448.s0.tag = TRUE_TYPE; /* x139806 stalin.sc:17849:623957 */ t94448.s1.tag = NULL_TYPE; /* x139807 stalin.sc:17849:623957 */ t94447.s1.tag = STRUCTURE_TYPE24753; t94447.s1.value.structure_type24753 = &t94448; /* x139808 stalin.sc:17849:623957 */ t94446.s1.tag = STRUCTURE_TYPE24753; t94446.s1.value.structure_type24753 = &t94447; /* x139809 stalin.sc:17849:623957 */ t94445.s0.tag = STRUCTURE_TYPE24753; t94445.s0.value.structure_type24753 = &t94446; /* x139810 stalin.sc:17849:623957 */ t94450.s0.tag = STRING_TYPE; t94450.s0.value.string_type = "write_char2"; /* x139811 stalin.sc:17849:623957 */ t94451.s0.tag = STRING_TYPE; t94451.s0.value.string_type = "Second argument to WRITE-CHAR2 ~a an output port"; /* x139812 stalin.sc:17849:623957 */ t94452.s0.tag = TRUE_TYPE; /* x139813 stalin.sc:17849:623957 */ t94452.s1.tag = NULL_TYPE; /* x139814 stalin.sc:17849:623957 */ t94451.s1.tag = STRUCTURE_TYPE24753; t94451.s1.value.structure_type24753 = &t94452; /* x139815 stalin.sc:17849:623957 */ t94450.s1.tag = STRUCTURE_TYPE24753; t94450.s1.value.structure_type24753 = &t94451; /* x139816 stalin.sc:17849:623957 */ t94449.s0.tag = STRUCTURE_TYPE24753; t94449.s0.value.structure_type24753 = &t94450; /* x139817 stalin.sc:17849:623957 */ t94454.s0.tag = STRING_TYPE; t94454.s0.value.string_type = "panic"; /* x139818 stalin.sc:17849:623957 */ t94455.s0.tag = STRING_TYPE; t94455.s0.value.string_type = "Argument to PANIC ~a a string"; /* x139819 stalin.sc:17849:623957 */ t94456.s0.tag = TRUE_TYPE; /* x139820 stalin.sc:17849:623957 */ t94456.s1.tag = NULL_TYPE; /* x139821 stalin.sc:17849:623957 */ t94455.s1.tag = STRUCTURE_TYPE24753; t94455.s1.value.structure_type24753 = &t94456; /* x139822 stalin.sc:17849:623957 */ t94454.s1.tag = STRUCTURE_TYPE24753; t94454.s1.value.structure_type24753 = &t94455; /* x139823 stalin.sc:17849:623957 */ t94453.s0.tag = STRUCTURE_TYPE24753; t94453.s0.value.structure_type24753 = &t94454; /* x139824 stalin.sc:17849:623957 */ t94458.s0.tag = STRING_TYPE; t94458.s0.value.string_type = "integer_to_string"; /* x139825 stalin.sc:17849:623957 */ t94459.s0.tag = STRING_TYPE; t94459.s0.value.string_type = "Argument to INTEGER->STRING ~a an exact integer"; /* x139826 stalin.sc:17849:623957 */ t94460.s0.tag = TRUE_TYPE; /* x139827 stalin.sc:17849:623957 */ t94460.s1.tag = NULL_TYPE; /* x139828 stalin.sc:17849:623957 */ t94459.s1.tag = STRUCTURE_TYPE24753; t94459.s1.value.structure_type24753 = &t94460; /* x139829 stalin.sc:17849:623957 */ t94458.s1.tag = STRUCTURE_TYPE24753; t94458.s1.value.structure_type24753 = &t94459; /* x139830 stalin.sc:17849:623957 */ t94457.s0.tag = STRUCTURE_TYPE24753; t94457.s0.value.structure_type24753 = &t94458; /* x139831 stalin.sc:17849:623957 */ t94462.s0.tag = STRING_TYPE; t94462.s0.value.string_type = "integer_to_input_port"; /* x139832 stalin.sc:17849:623957 */ t94463.s0.tag = STRING_TYPE; t94463.s0.value.string_type = "Argument to INTEGER->INPUT-PORT ~a an exact integer"; /* x139833 stalin.sc:17849:623957 */ t94464.s0.tag = TRUE_TYPE; /* x139834 stalin.sc:17849:623957 */ t94464.s1.tag = NULL_TYPE; /* x139835 stalin.sc:17849:623957 */ t94463.s1.tag = STRUCTURE_TYPE24753; t94463.s1.value.structure_type24753 = &t94464; /* x139836 stalin.sc:17849:623957 */ t94462.s1.tag = STRUCTURE_TYPE24753; t94462.s1.value.structure_type24753 = &t94463; /* x139837 stalin.sc:17849:623957 */ t94461.s0.tag = STRUCTURE_TYPE24753; t94461.s0.value.structure_type24753 = &t94462; /* x139838 stalin.sc:17849:623957 */ t94466.s0.tag = STRING_TYPE; t94466.s0.value.string_type = "integer_to_output_port"; /* x139839 stalin.sc:17849:623957 */ t94467.s0.tag = STRING_TYPE; t94467.s0.value.string_type = "Argument to INTEGER->OUTPUT-PORT ~a an exact integer"; /* x139840 stalin.sc:17849:623957 */ t94468.s0.tag = TRUE_TYPE; /* x139841 stalin.sc:17849:623957 */ t94468.s1.tag = NULL_TYPE; /* x139842 stalin.sc:17849:623957 */ t94467.s1.tag = STRUCTURE_TYPE24753; t94467.s1.value.structure_type24753 = &t94468; /* x139843 stalin.sc:17849:623957 */ t94466.s1.tag = STRUCTURE_TYPE24753; t94466.s1.value.structure_type24753 = &t94467; /* x139844 stalin.sc:17849:623957 */ t94465.s0.tag = STRUCTURE_TYPE24753; t94465.s0.value.structure_type24753 = &t94466; /* x139845 stalin.sc:17849:623957 */ t94470.s0.tag = STRING_TYPE; t94470.s0.value.string_type = "integer_to_pointer"; /* x139846 stalin.sc:17849:623957 */ t94471.s0.tag = STRING_TYPE; t94471.s0.value.string_type = "Argument to INTEGER->POINTER ~a an exact integer"; /* x139847 stalin.sc:17849:623957 */ t94472.s0.tag = TRUE_TYPE; /* x139848 stalin.sc:17849:623957 */ t94472.s1.tag = NULL_TYPE; /* x139849 stalin.sc:17849:623957 */ t94471.s1.tag = STRUCTURE_TYPE24753; t94471.s1.value.structure_type24753 = &t94472; /* x139850 stalin.sc:17849:623957 */ t94470.s1.tag = STRUCTURE_TYPE24753; t94470.s1.value.structure_type24753 = &t94471; /* x139851 stalin.sc:17849:623957 */ t94469.s0.tag = STRUCTURE_TYPE24753; t94469.s0.value.structure_type24753 = &t94470; /* x139852 stalin.sc:17849:623957 */ t94474.s0.tag = STRING_TYPE; t94474.s0.value.string_type = "infinity"; /* x139853 stalin.sc:17849:623957 */ t94475.s0.tag = STRING_TYPE; t94475.s0.value.string_type = "Argument to INFINITY? ~a a flonum"; /* x139854 stalin.sc:17849:623957 */ t94476.s0.tag = TRUE_TYPE; /* x139855 stalin.sc:17849:623957 */ t94476.s1.tag = NULL_TYPE; /* x139856 stalin.sc:17849:623957 */ t94475.s1.tag = STRUCTURE_TYPE24753; t94475.s1.value.structure_type24753 = &t94476; /* x139857 stalin.sc:17849:623957 */ t94474.s1.tag = STRUCTURE_TYPE24753; t94474.s1.value.structure_type24753 = &t94475; /* x139858 stalin.sc:17849:623957 */ t94473.s0.tag = STRUCTURE_TYPE24753; t94473.s0.value.structure_type24753 = &t94474; /* x139859 stalin.sc:17849:623957 */ t94473.s1.tag = NULL_TYPE; /* x139860 stalin.sc:17849:623957 */ t94469.s1.tag = STRUCTURE_TYPE24753; t94469.s1.value.structure_type24753 = &t94473; /* x139861 stalin.sc:17849:623957 */ t94465.s1.tag = STRUCTURE_TYPE24753; t94465.s1.value.structure_type24753 = &t94469; /* x139862 stalin.sc:17849:623957 */ t94461.s1.tag = STRUCTURE_TYPE24753; t94461.s1.value.structure_type24753 = &t94465; /* x139863 stalin.sc:17849:623957 */ t94457.s1.tag = STRUCTURE_TYPE24753; t94457.s1.value.structure_type24753 = &t94461; /* x139864 stalin.sc:17849:623957 */ t94453.s1.tag = STRUCTURE_TYPE24753; t94453.s1.value.structure_type24753 = &t94457; /* x139865 stalin.sc:17849:623957 */ t94449.s1.tag = STRUCTURE_TYPE24753; t94449.s1.value.structure_type24753 = &t94453; /* x139866 stalin.sc:17849:623957 */ t94445.s1.tag = STRUCTURE_TYPE24753; t94445.s1.value.structure_type24753 = &t94449; /* x139867 stalin.sc:17849:623957 */ t94441.s1.tag = STRUCTURE_TYPE24753; t94441.s1.value.structure_type24753 = &t94445; /* x139868 stalin.sc:17849:623957 */ t94437.s1.tag = STRUCTURE_TYPE24753; t94437.s1.value.structure_type24753 = &t94441; /* x139869 stalin.sc:17849:623957 */ t94433.s1.tag = STRUCTURE_TYPE24753; t94433.s1.value.structure_type24753 = &t94437; /* x139870 stalin.sc:17849:623957 */ t94429.s1.tag = STRUCTURE_TYPE24753; t94429.s1.value.structure_type24753 = &t94433; /* x139871 stalin.sc:17849:623957 */ t94425.s1.tag = STRUCTURE_TYPE24753; t94425.s1.value.structure_type24753 = &t94429; /* x139872 stalin.sc:17849:623957 */ t94421.s1.tag = STRUCTURE_TYPE24753; t94421.s1.value.structure_type24753 = &t94425; /* x139873 stalin.sc:17849:623957 */ t94417.s1.tag = STRUCTURE_TYPE24753; t94417.s1.value.structure_type24753 = &t94421; /* x139874 stalin.sc:17849:623957 */ t94413.s1.tag = STRUCTURE_TYPE24753; t94413.s1.value.structure_type24753 = &t94417; /* x139875 stalin.sc:17849:623957 */ t94409.s1.tag = STRUCTURE_TYPE24753; t94409.s1.value.structure_type24753 = &t94413; /* x139876 stalin.sc:17849:623957 */ t94405.s1.tag = STRUCTURE_TYPE24753; t94405.s1.value.structure_type24753 = &t94409; /* x139877 stalin.sc:17849:623957 */ t94401.s1.tag = STRUCTURE_TYPE24753; t94401.s1.value.structure_type24753 = &t94405; /* x139878 stalin.sc:17849:623957 */ t94397.s1.tag = STRUCTURE_TYPE24753; t94397.s1.value.structure_type24753 = &t94401; /* x139879 stalin.sc:17849:623957 */ t94393.s1.tag = STRUCTURE_TYPE24753; t94393.s1.value.structure_type24753 = &t94397; /* x139880 stalin.sc:17849:623957 */ t94389.s1.tag = STRUCTURE_TYPE24753; t94389.s1.value.structure_type24753 = &t94393; /* x139881 stalin.sc:17849:623957 */ t94385.s1.tag = STRUCTURE_TYPE24753; t94385.s1.value.structure_type24753 = &t94389; /* x139882 stalin.sc:17849:623957 */ t94381.s1.tag = STRUCTURE_TYPE24753; t94381.s1.value.structure_type24753 = &t94385; /* x139883 stalin.sc:17849:623957 */ t94377.s1.tag = STRUCTURE_TYPE24753; t94377.s1.value.structure_type24753 = &t94381; /* x139884 stalin.sc:17849:623957 */ t94373.s1.tag = STRUCTURE_TYPE24753; t94373.s1.value.structure_type24753 = &t94377; /* x139885 stalin.sc:17849:623957 */ t94369.s1.tag = STRUCTURE_TYPE24753; t94369.s1.value.structure_type24753 = &t94373; /* x139886 stalin.sc:17849:623957 */ t94365.s1.tag = STRUCTURE_TYPE24753; t94365.s1.value.structure_type24753 = &t94369; /* x139887 stalin.sc:17849:623957 */ t94361.s1.tag = STRUCTURE_TYPE24753; t94361.s1.value.structure_type24753 = &t94365; /* x139888 stalin.sc:17849:623957 */ t94357.s1.tag = STRUCTURE_TYPE24753; t94357.s1.value.structure_type24753 = &t94361; /* x139889 stalin.sc:17849:623957 */ t94353.s1.tag = STRUCTURE_TYPE24753; t94353.s1.value.structure_type24753 = &t94357; /* x139890 stalin.sc:17849:623957 */ t94349.s1.tag = STRUCTURE_TYPE24753; t94349.s1.value.structure_type24753 = &t94353; /* x139891 stalin.sc:17849:623957 */ t94345.s1.tag = STRUCTURE_TYPE24753; t94345.s1.value.structure_type24753 = &t94349; /* x139892 stalin.sc:17849:623957 */ t94341.s1.tag = STRUCTURE_TYPE24753; t94341.s1.value.structure_type24753 = &t94345; /* x139893 stalin.sc:17849:623957 */ t94337.s1.tag = STRUCTURE_TYPE24753; t94337.s1.value.structure_type24753 = &t94341; /* x139894 stalin.sc:17849:623957 */ t94333.s1.tag = STRUCTURE_TYPE24753; t94333.s1.value.structure_type24753 = &t94337; /* x139895 stalin.sc:17849:623957 */ t94329.s1.tag = STRUCTURE_TYPE24753; t94329.s1.value.structure_type24753 = &t94333; /* x139896 stalin.sc:17849:623957 */ t94325.s1.tag = STRUCTURE_TYPE24753; t94325.s1.value.structure_type24753 = &t94329; /* x139897 stalin.sc:17849:623957 */ t94321.s1.tag = STRUCTURE_TYPE24753; t94321.s1.value.structure_type24753 = &t94325; /* x139898 stalin.sc:17849:623957 */ t94317.s1.tag = STRUCTURE_TYPE24753; t94317.s1.value.structure_type24753 = &t94321; /* x139899 stalin.sc:17849:623957 */ t94313.s1.tag = STRUCTURE_TYPE24753; t94313.s1.value.structure_type24753 = &t94317; /* x139900 stalin.sc:17849:623957 */ t94309.s1.tag = STRUCTURE_TYPE24753; t94309.s1.value.structure_type24753 = &t94313; /* x139901 stalin.sc:17849:623957 */ t94305.s1.tag = STRUCTURE_TYPE24753; t94305.s1.value.structure_type24753 = &t94309; /* x139902 stalin.sc:17849:623957 */ t94301.s1.tag = STRUCTURE_TYPE24753; t94301.s1.value.structure_type24753 = &t94305; /* x139903 stalin.sc:17849:623957 */ t94297.s1.tag = STRUCTURE_TYPE24753; t94297.s1.value.structure_type24753 = &t94301; /* x139904 stalin.sc:17849:623957 */ t94293.s1.tag = STRUCTURE_TYPE24753; t94293.s1.value.structure_type24753 = &t94297; /* x139905 stalin.sc:17849:623957 */ t94289.s1.tag = STRUCTURE_TYPE24753; t94289.s1.value.structure_type24753 = &t94293; /* x139906 stalin.sc:17849:623957 */ t94285.s1.tag = STRUCTURE_TYPE24753; t94285.s1.value.structure_type24753 = &t94289; /* x139907 stalin.sc:17849:623957 */ t94281.s1.tag = STRUCTURE_TYPE24753; t94281.s1.value.structure_type24753 = &t94285; /* x139908 stalin.sc:17849:623957 */ t94277.s1.tag = STRUCTURE_TYPE24753; t94277.s1.value.structure_type24753 = &t94281; /* x139909 stalin.sc:17849:623957 */ t94273.s1.tag = STRUCTURE_TYPE24753; t94273.s1.value.structure_type24753 = &t94277; /* x139910 stalin.sc:17849:623957 */ t94269.s1.tag = STRUCTURE_TYPE24753; t94269.s1.value.structure_type24753 = &t94273; /* x139911 stalin.sc:17849:623957 */ t94265.s1.tag = STRUCTURE_TYPE24753; t94265.s1.value.structure_type24753 = &t94269; /* x139912 stalin.sc:17849:623957 */ t94261.s1.tag = STRUCTURE_TYPE24753; t94261.s1.value.structure_type24753 = &t94265; /* x139913 stalin.sc:17849:623957 */ t94257.s1.tag = STRUCTURE_TYPE24753; t94257.s1.value.structure_type24753 = &t94261; /* x139914 stalin.sc:17849:623957 */ t94253.s1.tag = STRUCTURE_TYPE24753; t94253.s1.value.structure_type24753 = &t94257; /* x139915 stalin.sc:17849:623957 */ t94249.s1.tag = STRUCTURE_TYPE24753; t94249.s1.value.structure_type24753 = &t94253; /* x139916 stalin.sc:17849:623957 */ t94245.s1.tag = STRUCTURE_TYPE24753; t94245.s1.value.structure_type24753 = &t94249; /* x139917 stalin.sc:17849:623957 */ t94241.s1.tag = STRUCTURE_TYPE24753; t94241.s1.value.structure_type24753 = &t94245; /* x139918 stalin.sc:17849:623957 */ t94237.s1.tag = STRUCTURE_TYPE24753; t94237.s1.value.structure_type24753 = &t94241; /* x139919 stalin.sc:17849:623957 */ t94233.s1.tag = STRUCTURE_TYPE24753; t94233.s1.value.structure_type24753 = &t94237; /* x139920 stalin.sc:17849:623957 */ t94229.s1.tag = STRUCTURE_TYPE24753; t94229.s1.value.structure_type24753 = &t94233; /* x139921 stalin.sc:17849:623957 */ t94225.s1.tag = STRUCTURE_TYPE24753; t94225.s1.value.structure_type24753 = &t94229; /* x139922 stalin.sc:17849:623957 */ t94221.s1.tag = STRUCTURE_TYPE24753; t94221.s1.value.structure_type24753 = &t94225; /* x139923 stalin.sc:17849:623957 */ t94217.s1.tag = STRUCTURE_TYPE24753; t94217.s1.value.structure_type24753 = &t94221; /* x139924 stalin.sc:17849:623957 */ t94213.s1.tag = STRUCTURE_TYPE24753; t94213.s1.value.structure_type24753 = &t94217; /* x139925 stalin.sc:17849:623957 */ t94209.s1.tag = STRUCTURE_TYPE24753; t94209.s1.value.structure_type24753 = &t94213; /* x139926 stalin.sc:17849:623957 */ t94205.s1.tag = STRUCTURE_TYPE24753; t94205.s1.value.structure_type24753 = &t94209; /* x139927 stalin.sc:17849:623957 */ t94201.s1.tag = STRUCTURE_TYPE24753; t94201.s1.value.structure_type24753 = &t94205; /* x139928 stalin.sc:17849:623957 */ t94197.s1.tag = STRUCTURE_TYPE24753; t94197.s1.value.structure_type24753 = &t94201; /* x139929 stalin.sc:17849:623957 */ t94193.s1.tag = STRUCTURE_TYPE24753; t94193.s1.value.structure_type24753 = &t94197; /* x139930 stalin.sc:17849:623957 */ t94189.s1.tag = STRUCTURE_TYPE24753; t94189.s1.value.structure_type24753 = &t94193; /* x139931 stalin.sc:17849:623957 */ t94185.s1.tag = STRUCTURE_TYPE24753; t94185.s1.value.structure_type24753 = &t94189; /* x139932 stalin.sc:17849:623957 */ t94181.s1.tag = STRUCTURE_TYPE24753; t94181.s1.value.structure_type24753 = &t94185; /* x139933 stalin.sc:17849:623957 */ t94177.s1.tag = STRUCTURE_TYPE24753; t94177.s1.value.structure_type24753 = &t94181; /* x139934 stalin.sc:17849:623957 */ t94173.s1.tag = STRUCTURE_TYPE24753; t94173.s1.value.structure_type24753 = &t94177; /* x139935 stalin.sc:17849:623957 */ t94169.s1.tag = STRUCTURE_TYPE24753; t94169.s1.value.structure_type24753 = &t94173; /* x139936 stalin.sc:17849:623957 */ t94165.s1.tag = STRUCTURE_TYPE24753; t94165.s1.value.structure_type24753 = &t94169; /* x139937 stalin.sc:17849:623957 */ t94161.s1.tag = STRUCTURE_TYPE24753; t94161.s1.value.structure_type24753 = &t94165; /* x139938 stalin.sc:17849:623957 */ t94157.s1.tag = STRUCTURE_TYPE24753; t94157.s1.value.structure_type24753 = &t94161; /* x139939 stalin.sc:17849:623957 */ t94153.s1.tag = STRUCTURE_TYPE24753; t94153.s1.value.structure_type24753 = &t94157; /* x139940 stalin.sc:17849:623957 */ t94149.s1.tag = STRUCTURE_TYPE24753; t94149.s1.value.structure_type24753 = &t94153; /* x139941 stalin.sc:17849:623957 */ t94145.s1.tag = STRUCTURE_TYPE24753; t94145.s1.value.structure_type24753 = &t94149; /* x139942 stalin.sc:17849:623957 */ t94141.s1.tag = STRUCTURE_TYPE24753; t94141.s1.value.structure_type24753 = &t94145; /* x139943 stalin.sc:17849:623957 */ t94137.s1.tag = STRUCTURE_TYPE24753; t94137.s1.value.structure_type24753 = &t94141; /* x139944 stalin.sc:17849:623957 */ t94133.s1.tag = STRUCTURE_TYPE24753; t94133.s1.value.structure_type24753 = &t94137; /* x139945 stalin.sc:17849:623957 */ t94129.s1.tag = STRUCTURE_TYPE24753; t94129.s1.value.structure_type24753 = &t94133; /* x139946 stalin.sc:17849:623957 */ t94125.s1.tag = STRUCTURE_TYPE24753; t94125.s1.value.structure_type24753 = &t94129; /* x139947 stalin.sc:17849:623957 */ t94121.s1.tag = STRUCTURE_TYPE24753; t94121.s1.value.structure_type24753 = &t94125; /* x139948 stalin.sc:17849:623957 */ t94117.s1.tag = STRUCTURE_TYPE24753; t94117.s1.value.structure_type24753 = &t94121; /* x139949 stalin.sc:17849:623957 */ t94113.s1.tag = STRUCTURE_TYPE24753; t94113.s1.value.structure_type24753 = &t94117; /* x139950 stalin.sc:17849:623957 */ t94109.s1.tag = STRUCTURE_TYPE24753; t94109.s1.value.structure_type24753 = &t94113; /* x139951 stalin.sc:17849:623957 */ t94105.s1.tag = STRUCTURE_TYPE24753; t94105.s1.value.structure_type24753 = &t94109; /* x139952 stalin.sc:17849:623957 */ t94101.s1.tag = STRUCTURE_TYPE24753; t94101.s1.value.structure_type24753 = &t94105; /* x139953 stalin.sc:17849:623957 */ t94097.s1.tag = STRUCTURE_TYPE24753; t94097.s1.value.structure_type24753 = &t94101; /* x139954 stalin.sc:17849:623957 */ t94093.s1.tag = STRUCTURE_TYPE24753; t94093.s1.value.structure_type24753 = &t94097; /* x139955 stalin.sc:17849:623957 */ t94089.s1.tag = STRUCTURE_TYPE24753; t94089.s1.value.structure_type24753 = &t94093; /* x139956 stalin.sc:17849:623957 */ t94085.s1.tag = STRUCTURE_TYPE24753; t94085.s1.value.structure_type24753 = &t94089; /* x139957 stalin.sc:17849:623957 */ t94080.s1.tag = STRUCTURE_TYPE24753; t94080.s1.value.structure_type24753 = &t94085; /* x139958 stalin.sc:17849:623957 */ t94075.s1.tag = STRUCTURE_TYPE24753; t94075.s1.value.structure_type24753 = &t94080; /* x139959 stalin.sc:17849:623957 */ t94070.s1.tag = STRUCTURE_TYPE24753; t94070.s1.value.structure_type24753 = &t94075; /* x139960 stalin.sc:17849:623957 */ t94065.s1.tag = STRUCTURE_TYPE24753; t94065.s1.value.structure_type24753 = &t94070; /* x139961 stalin.sc:17849:623957 */ t94060.s1.tag = STRUCTURE_TYPE24753; t94060.s1.value.structure_type24753 = &t94065; /* x139962 stalin.sc:17849:623957 */ t94055.s1.tag = STRUCTURE_TYPE24753; t94055.s1.value.structure_type24753 = &t94060; /* x139963 stalin.sc:17849:623957 */ t94051.s1.tag = STRUCTURE_TYPE24753; t94051.s1.value.structure_type24753 = &t94055; /* x172090 stalin.sc:25197:870668 */ t95606.s0.tag = EXTERNAL_SYMBOL_TYPE; t95606.s0.value.external_symbol_type = q97; /* x172091 stalin.sc:25197:870668 */ t95608.s0.tag = EXTERNAL_SYMBOL_TYPE; t95608.s0.value.external_symbol_type = q253; /* x172092 stalin.sc:25197:870668 */ t95608.s1.tag = EXTERNAL_SYMBOL_TYPE; t95608.s1.value.external_symbol_type = q254; /* x172093 stalin.sc:25197:870668 */ t95607.s0.tag = STRUCTURE_TYPE24753; t95607.s0.value.structure_type24753 = &t95608; /* x172094 stalin.sc:25197:870668 */ t95610.s0.tag = EXTERNAL_SYMBOL_TYPE; t95610.s0.value.external_symbol_type = q42; /* x172095 stalin.sc:25197:870668 */ t95611.s0.tag = EXTERNAL_SYMBOL_TYPE; t95611.s0.value.external_symbol_type = q254; /* x172096 stalin.sc:25197:870668 */ t95613.s0.tag = EXTERNAL_SYMBOL_TYPE; t95613.s0.value.external_symbol_type = q43; /* x172097 stalin.sc:25197:870668 */ t95615.s0.tag = EXTERNAL_SYMBOL_TYPE; t95615.s0.value.external_symbol_type = q111; /* x172098 stalin.sc:25197:870668 */ t95616.s0.tag = EXTERNAL_SYMBOL_TYPE; t95616.s0.value.external_symbol_type = q254; /* x172099 stalin.sc:25197:870668 */ t95616.s1.tag = NULL_TYPE; /* x172100 stalin.sc:25197:870668 */ t95615.s1.tag = STRUCTURE_TYPE24753; t95615.s1.value.structure_type24753 = &t95616; /* x172101 stalin.sc:25197:870668 */ t95614.s0.tag = STRUCTURE_TYPE24753; t95614.s0.value.structure_type24753 = &t95615; /* x172102 stalin.sc:25197:870668 */ t95618.s0.tag = EXTERNAL_SYMBOL_TYPE; t95618.s0.value.external_symbol_type = q255; /* x172103 stalin.sc:25197:870668 */ t95618.s1.tag = NULL_TYPE; /* x172104 stalin.sc:25197:870668 */ t95617.s0.tag = STRUCTURE_TYPE24753; t95617.s0.value.structure_type24753 = &t95618; /* x172105 stalin.sc:25197:870668 */ t95620.s0.tag = EXTERNAL_SYMBOL_TYPE; t95620.s0.value.external_symbol_type = q107; /* x172106 stalin.sc:25197:870668 */ t95621.s0.tag = EXTERNAL_SYMBOL_TYPE; t95621.s0.value.external_symbol_type = q254; /* x172107 stalin.sc:25197:870668 */ t95621.s1.tag = NULL_TYPE; /* x172108 stalin.sc:25197:870668 */ t95620.s1.tag = STRUCTURE_TYPE24753; t95620.s1.value.structure_type24753 = &t95621; /* x172109 stalin.sc:25197:870668 */ t95619.s0.tag = STRUCTURE_TYPE24753; t95619.s0.value.structure_type24753 = &t95620; /* x172110 stalin.sc:25197:870668 */ t95619.s1.tag = NULL_TYPE; /* x172111 stalin.sc:25197:870668 */ t95617.s1.tag = STRUCTURE_TYPE24753; t95617.s1.value.structure_type24753 = &t95619; /* x172112 stalin.sc:25197:870668 */ t95614.s1.tag = STRUCTURE_TYPE24753; t95614.s1.value.structure_type24753 = &t95617; /* x172113 stalin.sc:25197:870668 */ t95613.s1.tag = STRUCTURE_TYPE24753; t95613.s1.value.structure_type24753 = &t95614; /* x172114 stalin.sc:25197:870668 */ t95612.s0.tag = STRUCTURE_TYPE24753; t95612.s0.value.structure_type24753 = &t95613; /* x172115 stalin.sc:25197:870668 */ t95612.s1.tag = NULL_TYPE; /* x172116 stalin.sc:25197:870668 */ t95611.s1.tag = STRUCTURE_TYPE24753; t95611.s1.value.structure_type24753 = &t95612; /* x172117 stalin.sc:25197:870668 */ t95610.s1.tag = STRUCTURE_TYPE24753; t95610.s1.value.structure_type24753 = &t95611; /* x172118 stalin.sc:25197:870668 */ t95609.s0.tag = STRUCTURE_TYPE24753; t95609.s0.value.structure_type24753 = &t95610; /* x172119 stalin.sc:25197:870668 */ t95623.s0.tag = EXTERNAL_SYMBOL_TYPE; t95623.s0.value.external_symbol_type = q242; /* x172120 stalin.sc:25197:870668 */ t95626.s0.tag = EXTERNAL_SYMBOL_TYPE; t95626.s0.value.external_symbol_type = q256; /* x172121 stalin.sc:25197:870668 */ t95628.s0.tag = EXTERNAL_SYMBOL_TYPE; t95628.s0.value.external_symbol_type = q114; /* x172122 stalin.sc:25197:870668 */ t95630.s0.tag = EXTERNAL_SYMBOL_TYPE; t95630.s0.value.external_symbol_type = q257; /* x172123 stalin.sc:25197:870668 */ t95631.s0.tag = STRING_TYPE; t95631.s0.value.string_type = "dot"; /* x172124 stalin.sc:25197:870668 */} void initialize_constants27(void) {t95631.s1.tag = NULL_TYPE; /* x172125 stalin.sc:25197:870668 */ t95630.s1.tag = STRUCTURE_TYPE24753; t95630.s1.value.structure_type24753 = &t95631; /* x172126 stalin.sc:25197:870668 */ t95629.s0.tag = STRUCTURE_TYPE24753; t95629.s0.value.structure_type24753 = &t95630; /* x172127 stalin.sc:25197:870668 */ t95629.s1.tag = NULL_TYPE; /* x172128 stalin.sc:25197:870668 */ t95628.s1.tag = STRUCTURE_TYPE24753; t95628.s1.value.structure_type24753 = &t95629; /* x172129 stalin.sc:25197:870668 */ t95627.s0.tag = STRUCTURE_TYPE24753; t95627.s0.value.structure_type24753 = &t95628; /* x172130 stalin.sc:25197:870668 */ t95627.s1.tag = NULL_TYPE; /* x172131 stalin.sc:25197:870668 */ t95626.s1.tag = STRUCTURE_TYPE24753; t95626.s1.value.structure_type24753 = &t95627; /* x172132 stalin.sc:25197:870668 */ t95625.s0.tag = STRUCTURE_TYPE24753; t95625.s0.value.structure_type24753 = &t95626; /* x172133 stalin.sc:25197:870668 */ t95633.s0.tag = EXTERNAL_SYMBOL_TYPE; t95633.s0.value.external_symbol_type = q0; /* x172134 stalin.sc:25197:870668 */ t95635.s0.tag = EXTERNAL_SYMBOL_TYPE; t95635.s0.value.external_symbol_type = q114; /* x172135 stalin.sc:25197:870668 */ t95637.s0.tag = EXTERNAL_SYMBOL_TYPE; t95637.s0.value.external_symbol_type = q257; /* x172136 stalin.sc:25197:870668 */ t95638.s0.tag = STRING_TYPE; t95638.s0.value.string_type = "close"; /* x172137 stalin.sc:25197:870668 */ t95638.s1.tag = NULL_TYPE; /* x172138 stalin.sc:25197:870668 */ t95637.s1.tag = STRUCTURE_TYPE24753; t95637.s1.value.structure_type24753 = &t95638; /* x172139 stalin.sc:25197:870668 */ t95636.s0.tag = STRUCTURE_TYPE24753; t95636.s0.value.structure_type24753 = &t95637; /* x172140 stalin.sc:25197:870668 */ t95636.s1.tag = NULL_TYPE; /* x172141 stalin.sc:25197:870668 */ t95635.s1.tag = STRUCTURE_TYPE24753; t95635.s1.value.structure_type24753 = &t95636; /* x172142 stalin.sc:25197:870668 */ t95634.s0.tag = STRUCTURE_TYPE24753; t95634.s0.value.structure_type24753 = &t95635; /* x172143 stalin.sc:25197:870668 */ t95634.s1.tag = NULL_TYPE; /* x172144 stalin.sc:25197:870668 */ t95633.s1.tag = STRUCTURE_TYPE24753; t95633.s1.value.structure_type24753 = &t95634; /* x172145 stalin.sc:25197:870668 */ t95632.s0.tag = STRUCTURE_TYPE24753; t95632.s0.value.structure_type24753 = &t95633; /* x172146 stalin.sc:25197:870668 */ t95632.s1.tag = NULL_TYPE; /* x172147 stalin.sc:25197:870668 */ t95625.s1.tag = STRUCTURE_TYPE24753; t95625.s1.value.structure_type24753 = &t95632; /* x172148 stalin.sc:25197:870668 */ t95624.s0.tag = STRUCTURE_TYPE24753; t95624.s0.value.structure_type24753 = &t95625; /* x172149 stalin.sc:25197:870668 */ t95640.s0.tag = EXTERNAL_SYMBOL_TYPE; t95640.s0.value.external_symbol_type = q242; /* x172150 stalin.sc:25197:870668 */ t95641.s0.tag = EXTERNAL_SYMBOL_TYPE; t95641.s0.value.external_symbol_type = q253; /* x172151 stalin.sc:25197:870668 */ t95644.s0.tag = EXTERNAL_SYMBOL_TYPE; t95644.s0.value.external_symbol_type = q258; /* x172152 stalin.sc:25197:870668 */ t95646.s0.tag = EXTERNAL_SYMBOL_TYPE; t95646.s0.value.external_symbol_type = q11; /* x172153 stalin.sc:25197:870668 */ t95647.s0.tag = EXTERNAL_SYMBOL_TYPE; t95647.s0.value.external_symbol_type = q7; /* x172154 stalin.sc:25197:870668 */ t95647.s1.tag = NULL_TYPE; /* x172155 stalin.sc:25197:870668 */ t95646.s1.tag = STRUCTURE_TYPE24753; t95646.s1.value.structure_type24753 = &t95647; /* x172156 stalin.sc:25197:870668 */ t95645.s0.tag = STRUCTURE_TYPE24753; t95645.s0.value.structure_type24753 = &t95646; /* x172157 stalin.sc:25197:870668 */ t95645.s1.tag = NULL_TYPE; /* x172158 stalin.sc:25197:870668 */ t95644.s1.tag = STRUCTURE_TYPE24753; t95644.s1.value.structure_type24753 = &t95645; /* x172159 stalin.sc:25197:870668 */ t95643.s0.tag = STRUCTURE_TYPE24753; t95643.s0.value.structure_type24753 = &t95644; /* x172160 stalin.sc:25197:870668 */ t95643.s1.tag = NULL_TYPE; /* x172161 stalin.sc:25197:870668 */ t95642.s0.tag = STRUCTURE_TYPE24753; t95642.s0.value.structure_type24753 = &t95643; /* x172162 stalin.sc:25197:870668 */ t95649.s0.tag = EXTERNAL_SYMBOL_TYPE; t95649.s0.value.external_symbol_type = q97; /* x172163 stalin.sc:25197:870668 */ t95651.s0.tag = EXTERNAL_SYMBOL_TYPE; t95651.s0.value.external_symbol_type = q259; /* x172164 stalin.sc:25197:870668 */ t95652.s0.tag = EXTERNAL_SYMBOL_TYPE; t95652.s0.value.external_symbol_type = q260; /* x172165 stalin.sc:25197:870668 */ t95652.s1.tag = NULL_TYPE; /* x172166 stalin.sc:25197:870668 */ t95651.s1.tag = STRUCTURE_TYPE24753; t95651.s1.value.structure_type24753 = &t95652; /* x172167 stalin.sc:25197:870668 */ t95650.s0.tag = STRUCTURE_TYPE24753; t95650.s0.value.structure_type24753 = &t95651; /* x172168 stalin.sc:25197:870668 */ t95654.s0.tag = EXTERNAL_SYMBOL_TYPE; t95654.s0.value.external_symbol_type = q242; /* x172169 stalin.sc:25197:870668 */ t95657.s0.tag = EXTERNAL_SYMBOL_TYPE; t95657.s0.value.external_symbol_type = q261; /* x172170 stalin.sc:25197:870668 */ t95659.s0.tag = EXTERNAL_SYMBOL_TYPE; t95659.s0.value.external_symbol_type = q262; /* x172171 stalin.sc:25197:870668 */ t95660.s0.tag = EXTERNAL_SYMBOL_TYPE; t95660.s0.value.external_symbol_type = q254; /* x172172 stalin.sc:25197:870668 */ t95660.s1.tag = NULL_TYPE; /* x172173 stalin.sc:25197:870668 */ t95659.s1.tag = STRUCTURE_TYPE24753; t95659.s1.value.structure_type24753 = &t95660; /* x172174 stalin.sc:25197:870668 */ t95658.s0.tag = STRUCTURE_TYPE24753; t95658.s0.value.structure_type24753 = &t95659; /* x172175 stalin.sc:25197:870668 */ t95658.s1.tag = NULL_TYPE; /* x172176 stalin.sc:25197:870668 */ t95657.s1.tag = STRUCTURE_TYPE24753; t95657.s1.value.structure_type24753 = &t95658; /* x172177 stalin.sc:25197:870668 */ t95656.s0.tag = STRUCTURE_TYPE24753; t95656.s0.value.structure_type24753 = &t95657; /* x172178 stalin.sc:25197:870668 */ t95656.s1.tag = NULL_TYPE; /* x172179 stalin.sc:25197:870668 */ t95655.s0.tag = STRUCTURE_TYPE24753; t95655.s0.value.structure_type24753 = &t95656; /* x172180 stalin.sc:25197:870668 */ t95662.s0.tag = EXTERNAL_SYMBOL_TYPE; t95662.s0.value.external_symbol_type = q240; /* x172181 stalin.sc:25197:870668 */ t95665.s0.tag = EXTERNAL_SYMBOL_TYPE; t95665.s0.value.external_symbol_type = q178; /* x172182 stalin.sc:25197:870668 */ t95666.s0.tag = EXTERNAL_SYMBOL_TYPE; t95666.s0.value.external_symbol_type = q261; /* x172183 stalin.sc:25197:870668 */ t95666.s1.tag = NULL_TYPE; /* x172184 stalin.sc:25197:870668 */ t95665.s1.tag = STRUCTURE_TYPE24753; t95665.s1.value.structure_type24753 = &t95666; /* x172185 stalin.sc:25197:870668 */ t95664.s0.tag = STRUCTURE_TYPE24753; t95664.s0.value.structure_type24753 = &t95665; /* x172186 stalin.sc:25197:870668 */ t95667.s0.tag = EXTERNAL_SYMBOL_TYPE; t95667.s0.value.external_symbol_type = q260; /* x172187 stalin.sc:25197:870668 */ t95667.s1.tag = NULL_TYPE; /* x172188 stalin.sc:25197:870668 */ t95664.s1.tag = STRUCTURE_TYPE24753; t95664.s1.value.structure_type24753 = &t95667; /* x172189 stalin.sc:25197:870668 */ t95663.s0.tag = STRUCTURE_TYPE24753; t95663.s0.value.structure_type24753 = &t95664; /* x172190 stalin.sc:25197:870668 */ t95670.s0.tag = EXTERNAL_SYMBOL_TYPE; t95670.s0.value.external_symbol_type = q263; /* x172191 stalin.sc:25197:870668 */ t95671.s0.tag = EXTERNAL_SYMBOL_TYPE; t95671.s0.value.external_symbol_type = q261; /* x172192 stalin.sc:25197:870668 */ t95672.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x172193 stalin.sc:25197:870668 */ t95672.s1.tag = NULL_TYPE; /* x172194 stalin.sc:25197:870668 */ t95671.s1.tag = STRUCTURE_TYPE24753; t95671.s1.value.structure_type24753 = &t95672; /* x172195 stalin.sc:25197:870668 */ t95670.s1.tag = STRUCTURE_TYPE24753; t95670.s1.value.structure_type24753 = &t95671; /* x172196 stalin.sc:25197:870668 */ t95669.s0.tag = STRUCTURE_TYPE24753; t95669.s0.value.structure_type24753 = &t95670; /* x172197 stalin.sc:25197:870668 */ t95674.s0.tag = EXTERNAL_SYMBOL_TYPE; t95674.s0.value.external_symbol_type = q264; /* x172198 stalin.sc:25197:870668 */ t95675.s0.tag = EXTERNAL_SYMBOL_TYPE; t95675.s0.value.external_symbol_type = q254; /* x172199 stalin.sc:25197:870668 */ t95675.s1.tag = NULL_TYPE; /* x172200 stalin.sc:25197:870668 */ t95674.s1.tag = STRUCTURE_TYPE24753; t95674.s1.value.structure_type24753 = &t95675; /* x172201 stalin.sc:25197:870668 */ t95673.s0.tag = STRUCTURE_TYPE24753; t95673.s0.value.structure_type24753 = &t95674; /* x172202 stalin.sc:25197:870668 */ t95677.s0.tag = EXTERNAL_SYMBOL_TYPE; t95677.s0.value.external_symbol_type = q259; /* x172203 stalin.sc:25197:870668 */ t95679.s0.tag = EXTERNAL_SYMBOL_TYPE; t95679.s0.value.external_symbol_type = q130; /* x172204 stalin.sc:25197:870668 */ t95680.s0.tag = FIXNUM_TYPE; t95680.s0.value.fixnum_type = 2; /* x172205 stalin.sc:25197:870668 */ t95681.s0.tag = EXTERNAL_SYMBOL_TYPE; t95681.s0.value.external_symbol_type = q260; /* x172206 stalin.sc:25197:870668 */ t95681.s1.tag = NULL_TYPE; /* x172207 stalin.sc:25197:870668 */ t95680.s1.tag = STRUCTURE_TYPE24753; t95680.s1.value.structure_type24753 = &t95681; /* x172208 stalin.sc:25197:870668 */ t95679.s1.tag = STRUCTURE_TYPE24753; t95679.s1.value.structure_type24753 = &t95680; /* x172209 stalin.sc:25197:870668 */ t95678.s0.tag = STRUCTURE_TYPE24753; t95678.s0.value.structure_type24753 = &t95679; /* x172210 stalin.sc:25197:870668 */ t95678.s1.tag = NULL_TYPE; /* x172211 stalin.sc:25197:870668 */ t95677.s1.tag = STRUCTURE_TYPE24753; t95677.s1.value.structure_type24753 = &t95678; /* x172212 stalin.sc:25197:870668 */ t95676.s0.tag = STRUCTURE_TYPE24753; t95676.s0.value.structure_type24753 = &t95677; /* x172213 stalin.sc:25197:870668 */ t95676.s1.tag = NULL_TYPE; /* x172214 stalin.sc:25197:870668 */ t95673.s1.tag = STRUCTURE_TYPE24753; t95673.s1.value.structure_type24753 = &t95676; /* x172215 stalin.sc:25197:870668 */ t95669.s1.tag = STRUCTURE_TYPE24753; t95669.s1.value.structure_type24753 = &t95673; /* x172216 stalin.sc:25197:870668 */ t95668.s0.tag = STRUCTURE_TYPE24753; t95668.s0.value.structure_type24753 = &t95669; /* x172217 stalin.sc:25197:870668 */ t95684.s0.tag = EXTERNAL_SYMBOL_TYPE; t95684.s0.value.external_symbol_type = q263; /* x172218 stalin.sc:25197:870668 */ t95685.s0.tag = EXTERNAL_SYMBOL_TYPE; t95685.s0.value.external_symbol_type = q261; /* x172219 stalin.sc:25197:870668 */ t95686.s0.tag = ((unsigned)((unsigned char)'1'))<<2; /* x172220 stalin.sc:25197:870668 */ t95686.s1.tag = NULL_TYPE; /* x172221 stalin.sc:25197:870668 */ t95685.s1.tag = STRUCTURE_TYPE24753; t95685.s1.value.structure_type24753 = &t95686; /* x172222 stalin.sc:25197:870668 */ t95684.s1.tag = STRUCTURE_TYPE24753; t95684.s1.value.structure_type24753 = &t95685; /* x172223 stalin.sc:25197:870668 */ t95683.s0.tag = STRUCTURE_TYPE24753; t95683.s0.value.structure_type24753 = &t95684; /* x172224 stalin.sc:25197:870668 */ t95688.s0.tag = EXTERNAL_SYMBOL_TYPE; t95688.s0.value.external_symbol_type = q264; /* x172225 stalin.sc:25197:870668 */ t95689.s0.tag = EXTERNAL_SYMBOL_TYPE; t95689.s0.value.external_symbol_type = q254; /* x172226 stalin.sc:25197:870668 */ t95689.s1.tag = NULL_TYPE; /* x172227 stalin.sc:25197:870668 */ t95688.s1.tag = STRUCTURE_TYPE24753; t95688.s1.value.structure_type24753 = &t95689; /* x172228 stalin.sc:25197:870668 */ t95687.s0.tag = STRUCTURE_TYPE24753; t95687.s0.value.structure_type24753 = &t95688; /* x172229 stalin.sc:25197:870668 */ t95691.s0.tag = EXTERNAL_SYMBOL_TYPE; t95691.s0.value.external_symbol_type = q259; /* x172230 stalin.sc:25197:870668 */ t95693.s0.tag = EXTERNAL_SYMBOL_TYPE; t95693.s0.value.external_symbol_type = q4; /* x172231 stalin.sc:25197:870668 */ t95695.s0.tag = EXTERNAL_SYMBOL_TYPE; t95695.s0.value.external_symbol_type = q130; /* x172232 stalin.sc:25197:870668 */ t95696.s0.tag = FIXNUM_TYPE; t95696.s0.value.fixnum_type = 2; /* x172233 stalin.sc:25197:870668 */ t95697.s0.tag = EXTERNAL_SYMBOL_TYPE; t95697.s0.value.external_symbol_type = q260; /* x172234 stalin.sc:25197:870668 */ t95697.s1.tag = NULL_TYPE; /* x172235 stalin.sc:25197:870668 */ t95696.s1.tag = STRUCTURE_TYPE24753; t95696.s1.value.structure_type24753 = &t95697; /* x172236 stalin.sc:25197:870668 */ t95695.s1.tag = STRUCTURE_TYPE24753; t95695.s1.value.structure_type24753 = &t95696; /* x172237 stalin.sc:25197:870668 */ t95694.s0.tag = STRUCTURE_TYPE24753; t95694.s0.value.structure_type24753 = &t95695; /* x172238 stalin.sc:25197:870668 */ t95698.s0.tag = FIXNUM_TYPE; t95698.s0.value.fixnum_type = 1; /* x172239 stalin.sc:25197:870668 */ t95698.s1.tag = NULL_TYPE; /* x172240 stalin.sc:25197:870668 */ t95694.s1.tag = STRUCTURE_TYPE24753; t95694.s1.value.structure_type24753 = &t95698; /* x172241 stalin.sc:25197:870668 */ t95693.s1.tag = STRUCTURE_TYPE24753; t95693.s1.value.structure_type24753 = &t95694; /* x172242 stalin.sc:25197:870668 */ t95692.s0.tag = STRUCTURE_TYPE24753; t95692.s0.value.structure_type24753 = &t95693; /* x172243 stalin.sc:25197:870668 */ t95692.s1.tag = NULL_TYPE; /* x172244 stalin.sc:25197:870668 */ t95691.s1.tag = STRUCTURE_TYPE24753; t95691.s1.value.structure_type24753 = &t95692; /* x172245 stalin.sc:25197:870668 */ t95690.s0.tag = STRUCTURE_TYPE24753; t95690.s0.value.structure_type24753 = &t95691; /* x172246 stalin.sc:25197:870668 */ t95690.s1.tag = NULL_TYPE; /* x172247 stalin.sc:25197:870668 */ t95687.s1.tag = STRUCTURE_TYPE24753; t95687.s1.value.structure_type24753 = &t95690; /* x172248 stalin.sc:25197:870668 */ t95683.s1.tag = STRUCTURE_TYPE24753; t95683.s1.value.structure_type24753 = &t95687; /* x172249 stalin.sc:25197:870668 */ t95682.s0.tag = STRUCTURE_TYPE24753; t95682.s0.value.structure_type24753 = &t95683; /* x172250 stalin.sc:25197:870668 */ t95700.s0.tag = EXTERNAL_SYMBOL_TYPE; t95700.s0.value.external_symbol_type = q95; /* x172251 stalin.sc:25197:870668 */ t95701.s0.tag = EXTERNAL_SYMBOL_TYPE; t95701.s0.value.external_symbol_type = q260; /* x172252 stalin.sc:25197:870668 */ t95701.s1.tag = NULL_TYPE; /* x172253 stalin.sc:25197:870668 */ t95700.s1.tag = STRUCTURE_TYPE24753; t95700.s1.value.structure_type24753 = &t95701; /* x172254 stalin.sc:25197:870668 */ t95699.s0.tag = STRUCTURE_TYPE24753; t95699.s0.value.structure_type24753 = &t95700; /* x172255 stalin.sc:25197:870668 */ t95699.s1.tag = NULL_TYPE; /* x172256 stalin.sc:25197:870668 */ t95682.s1.tag = STRUCTURE_TYPE24753; t95682.s1.value.structure_type24753 = &t95699; /* x172257 stalin.sc:25197:870668 */ t95668.s1.tag = STRUCTURE_TYPE24753; t95668.s1.value.structure_type24753 = &t95682; /* x172258 stalin.sc:25197:870668 */ t95663.s1.tag = STRUCTURE_TYPE24753; t95663.s1.value.structure_type24753 = &t95668; /* x172259 stalin.sc:25197:870668 */ t95662.s1.tag = STRUCTURE_TYPE24753; t95662.s1.value.structure_type24753 = &t95663; /* x172260 stalin.sc:25197:870668 */ t95661.s0.tag = STRUCTURE_TYPE24753; t95661.s0.value.structure_type24753 = &t95662; /* x172261 stalin.sc:25197:870668 */ t95661.s1.tag = NULL_TYPE; /* x172262 stalin.sc:25197:870668 */ t95655.s1.tag = STRUCTURE_TYPE24753; t95655.s1.value.structure_type24753 = &t95661; /* x172263 stalin.sc:25197:870668 */ t95654.s1.tag = STRUCTURE_TYPE24753; t95654.s1.value.structure_type24753 = &t95655; /* x172264 stalin.sc:25197:870668 */ t95653.s0.tag = STRUCTURE_TYPE24753; t95653.s0.value.structure_type24753 = &t95654; /* x172265 stalin.sc:25197:870668 */ t95653.s1.tag = NULL_TYPE; /* x172266 stalin.sc:25197:870668 */ t95650.s1.tag = STRUCTURE_TYPE24753; t95650.s1.value.structure_type24753 = &t95653; /* x172267 stalin.sc:25197:870668 */ t95649.s1.tag = STRUCTURE_TYPE24753; t95649.s1.value.structure_type24753 = &t95650; /* x172268 stalin.sc:25197:870668 */ t95648.s0.tag = STRUCTURE_TYPE24753; t95648.s0.value.structure_type24753 = &t95649; /* x172269 stalin.sc:25197:870668 */ t95703.s0.tag = EXTERNAL_SYMBOL_TYPE; t95703.s0.value.external_symbol_type = q97; /* x172270 stalin.sc:25197:870668 */ t95705.s0.tag = EXTERNAL_SYMBOL_TYPE; t95705.s0.value.external_symbol_type = q265; /* x172271 stalin.sc:25197:870668 */ t95706.s0.tag = EXTERNAL_SYMBOL_TYPE; t95706.s0.value.external_symbol_type = q260; /* x172272 stalin.sc:25197:870668 */ t95706.s1.tag = NULL_TYPE; /* x172273 stalin.sc:25197:870668 */ t95705.s1.tag = STRUCTURE_TYPE24753; t95705.s1.value.structure_type24753 = &t95706; /* x172274 stalin.sc:25197:870668 */ t95704.s0.tag = STRUCTURE_TYPE24753; t95704.s0.value.structure_type24753 = &t95705; /* x172275 stalin.sc:25197:870668 */ t95708.s0.tag = EXTERNAL_SYMBOL_TYPE; t95708.s0.value.external_symbol_type = q242; /* x172276 stalin.sc:25197:870668 */ t95711.s0.tag = EXTERNAL_SYMBOL_TYPE; t95711.s0.value.external_symbol_type = q261; /* x172277 stalin.sc:25197:870668 */ t95713.s0.tag = EXTERNAL_SYMBOL_TYPE; t95713.s0.value.external_symbol_type = q262; /* x172278 stalin.sc:25197:870668 */ t95714.s0.tag = EXTERNAL_SYMBOL_TYPE; t95714.s0.value.external_symbol_type = q254; /* x172279 stalin.sc:25197:870668 */ t95714.s1.tag = NULL_TYPE; /* x172280 stalin.sc:25197:870668 */ t95713.s1.tag = STRUCTURE_TYPE24753; t95713.s1.value.structure_type24753 = &t95714; /* x172281 stalin.sc:25197:870668 */ t95712.s0.tag = STRUCTURE_TYPE24753; t95712.s0.value.structure_type24753 = &t95713; /* x172282 stalin.sc:25197:870668 */ t95712.s1.tag = NULL_TYPE; /* x172283 stalin.sc:25197:870668 */ t95711.s1.tag = STRUCTURE_TYPE24753; t95711.s1.value.structure_type24753 = &t95712; /* x172284 stalin.sc:25197:870668 */ t95710.s0.tag = STRUCTURE_TYPE24753; t95710.s0.value.structure_type24753 = &t95711; /* x172285 stalin.sc:25197:870668 */ t95710.s1.tag = NULL_TYPE; /* x172286 stalin.sc:25197:870668 */ t95709.s0.tag = STRUCTURE_TYPE24753; t95709.s0.value.structure_type24753 = &t95710; /* x172287 stalin.sc:25197:870668 */ t95716.s0.tag = EXTERNAL_SYMBOL_TYPE; t95716.s0.value.external_symbol_type = q240; /* x172288 stalin.sc:25197:870668 */ t95719.s0.tag = EXTERNAL_SYMBOL_TYPE; t95719.s0.value.external_symbol_type = q178; /* x172289 stalin.sc:25197:870668 */ t95720.s0.tag = EXTERNAL_SYMBOL_TYPE; t95720.s0.value.external_symbol_type = q261; /* x172290 stalin.sc:25197:870668 */ t95720.s1.tag = NULL_TYPE; /* x172291 stalin.sc:25197:870668 */ t95719.s1.tag = STRUCTURE_TYPE24753; t95719.s1.value.structure_type24753 = &t95720; /* x172292 stalin.sc:25197:870668 */ t95718.s0.tag = STRUCTURE_TYPE24753; t95718.s0.value.structure_type24753 = &t95719; /* x172293 stalin.sc:25197:870668 */ t95721.s0.tag = EXTERNAL_SYMBOL_TYPE; t95721.s0.value.external_symbol_type = q260; /* x172294 stalin.sc:25197:870668 */ t95721.s1.tag = NULL_TYPE; /* x172295 stalin.sc:25197:870668 */ t95718.s1.tag = STRUCTURE_TYPE24753; t95718.s1.value.structure_type24753 = &t95721; /* x172296 stalin.sc:25197:870668 */ t95717.s0.tag = STRUCTURE_TYPE24753; t95717.s0.value.structure_type24753 = &t95718; /* x172297 stalin.sc:25197:870668 */ t95724.s0.tag = EXTERNAL_SYMBOL_TYPE; t95724.s0.value.external_symbol_type = q244; /* x172298 stalin.sc:25197:870668 */ t95726.s0.tag = EXTERNAL_SYMBOL_TYPE; t95726.s0.value.external_symbol_type = q266; /* x172299 stalin.sc:25197:870668 */ t95727.s0.tag = EXTERNAL_SYMBOL_TYPE; t95727.s0.value.external_symbol_type = q261; /* x172300 stalin.sc:25197:870668 */ t95728.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x172301 stalin.sc:25197:870668 */ t95728.s1.tag = NULL_TYPE; /* x172302 stalin.sc:25197:870668 */ t95727.s1.tag = STRUCTURE_TYPE24753; t95727.s1.value.structure_type24753 = &t95728; /* x172303 stalin.sc:25197:870668 */ t95726.s1.tag = STRUCTURE_TYPE24753; t95726.s1.value.structure_type24753 = &t95727; /* x172304 stalin.sc:25197:870668 */ t95725.s0.tag = STRUCTURE_TYPE24753; t95725.s0.value.structure_type24753 = &t95726; /* x172305 stalin.sc:25197:870668 */ t95730.s0.tag = EXTERNAL_SYMBOL_TYPE; t95730.s0.value.external_symbol_type = q267; /* x172306 stalin.sc:25197:870668 */ t95731.s0.tag = EXTERNAL_SYMBOL_TYPE; t95731.s0.value.external_symbol_type = q261; /* x172307 stalin.sc:25197:870668 */ t95732.s0.tag = ((unsigned)((unsigned char)'7'))<<2; /* x172308 stalin.sc:25197:870668 */ t95732.s1.tag = NULL_TYPE; /* x172309 stalin.sc:25197:870668 */ t95731.s1.tag = STRUCTURE_TYPE24753; t95731.s1.value.structure_type24753 = &t95732; /* x172310 stalin.sc:25197:870668 */ t95730.s1.tag = STRUCTURE_TYPE24753; t95730.s1.value.structure_type24753 = &t95731; /* x172311 stalin.sc:25197:870668 */ t95729.s0.tag = STRUCTURE_TYPE24753; t95729.s0.value.structure_type24753 = &t95730; /* x172312 stalin.sc:25197:870668 */ t95729.s1.tag = NULL_TYPE; /* x172313 stalin.sc:25197:870668 */ t95725.s1.tag = STRUCTURE_TYPE24753; t95725.s1.value.structure_type24753 = &t95729; /* x172314 stalin.sc:25197:870668 */ t95724.s1.tag = STRUCTURE_TYPE24753; t95724.s1.value.structure_type24753 = &t95725; /* x172315 stalin.sc:25197:870668 */ t95723.s0.tag = STRUCTURE_TYPE24753; t95723.s0.value.structure_type24753 = &t95724; /* x172316 stalin.sc:25197:870668 */ t95734.s0.tag = EXTERNAL_SYMBOL_TYPE; t95734.s0.value.external_symbol_type = q264; /* x172317 stalin.sc:25197:870668 */ t95735.s0.tag = EXTERNAL_SYMBOL_TYPE; t95735.s0.value.external_symbol_type = q254; /* x172318 stalin.sc:25197:870668 */ t95735.s1.tag = NULL_TYPE; /* x172319 stalin.sc:25197:870668 */ t95734.s1.tag = STRUCTURE_TYPE24753; t95734.s1.value.structure_type24753 = &t95735; /* x172320 stalin.sc:25197:870668 */ t95733.s0.tag = STRUCTURE_TYPE24753; t95733.s0.value.structure_type24753 = &t95734; /* x172321 stalin.sc:25197:870668 */ t95737.s0.tag = EXTERNAL_SYMBOL_TYPE; t95737.s0.value.external_symbol_type = q265; /* x172322 stalin.sc:25197:870668 */ t95739.s0.tag = EXTERNAL_SYMBOL_TYPE; t95739.s0.value.external_symbol_type = q4; /* x172323 stalin.sc:25197:870668 */ t95741.s0.tag = EXTERNAL_SYMBOL_TYPE; t95741.s0.value.external_symbol_type = q130; /* x172324 stalin.sc:25197:870668 */ t95742.s0.tag = FIXNUM_TYPE; t95742.s0.value.fixnum_type = 8; /* x172325 stalin.sc:25197:870668 */ t95743.s0.tag = EXTERNAL_SYMBOL_TYPE; t95743.s0.value.external_symbol_type = q260; /* x172326 stalin.sc:25197:870668 */ t95743.s1.tag = NULL_TYPE; /* x172327 stalin.sc:25197:870668 */ t95742.s1.tag = STRUCTURE_TYPE24753; t95742.s1.value.structure_type24753 = &t95743; /* x172328 stalin.sc:25197:870668 */ t95741.s1.tag = STRUCTURE_TYPE24753; t95741.s1.value.structure_type24753 = &t95742; /* x172329 stalin.sc:25197:870668 */ t95740.s0.tag = STRUCTURE_TYPE24753; t95740.s0.value.structure_type24753 = &t95741; /* x172330 stalin.sc:25197:870668 */ t95745.s0.tag = EXTERNAL_SYMBOL_TYPE; t95745.s0.value.external_symbol_type = q2; /* x172331 stalin.sc:25197:870668 */ t95747.s0.tag = EXTERNAL_SYMBOL_TYPE; t95747.s0.value.external_symbol_type = q157; /* x172332 stalin.sc:25197:870668 */ t95748.s0.tag = EXTERNAL_SYMBOL_TYPE; t95748.s0.value.external_symbol_type = q261; /* x172333 stalin.sc:25197:870668 */ t95748.s1.tag = NULL_TYPE; /* x172334 stalin.sc:25197:870668 */ t95747.s1.tag = STRUCTURE_TYPE24753; t95747.s1.value.structure_type24753 = &t95748; /* x172335 stalin.sc:25197:870668 */ t95746.s0.tag = STRUCTURE_TYPE24753; t95746.s0.value.structure_type24753 = &t95747; /* x172336 stalin.sc:25197:870668 */ t95750.s0.tag = EXTERNAL_SYMBOL_TYPE; t95750.s0.value.external_symbol_type = q157; /* x172337 stalin.sc:25197:870668 */ t95751.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x172338 stalin.sc:25197:870668 */ t95751.s1.tag = NULL_TYPE; /* x172339 stalin.sc:25197:870668 */ t95750.s1.tag = STRUCTURE_TYPE24753; t95750.s1.value.structure_type24753 = &t95751; /* x172340 stalin.sc:25197:870668 */ t95749.s0.tag = STRUCTURE_TYPE24753; t95749.s0.value.structure_type24753 = &t95750; /* x172341 stalin.sc:25197:870668 */ t95749.s1.tag = NULL_TYPE; /* x172342 stalin.sc:25197:870668 */ t95746.s1.tag = STRUCTURE_TYPE24753; t95746.s1.value.structure_type24753 = &t95749; /* x172343 stalin.sc:25197:870668 */ t95745.s1.tag = STRUCTURE_TYPE24753; t95745.s1.value.structure_type24753 = &t95746; /* x172344 stalin.sc:25197:870668 */ t95744.s0.tag = STRUCTURE_TYPE24753; t95744.s0.value.structure_type24753 = &t95745; /* x172345 stalin.sc:25197:870668 */ t95744.s1.tag = NULL_TYPE; /* x172346 stalin.sc:25197:870668 */ t95740.s1.tag = STRUCTURE_TYPE24753; t95740.s1.value.structure_type24753 = &t95744; /* x172347 stalin.sc:25197:870668 */ t95739.s1.tag = STRUCTURE_TYPE24753; t95739.s1.value.structure_type24753 = &t95740; /* x172348 stalin.sc:25197:870668 */ t95738.s0.tag = STRUCTURE_TYPE24753; t95738.s0.value.structure_type24753 = &t95739; /* x172349 stalin.sc:25197:870668 */ t95738.s1.tag = NULL_TYPE; /* x172350 stalin.sc:25197:870668 */ t95737.s1.tag = STRUCTURE_TYPE24753; t95737.s1.value.structure_type24753 = &t95738; /* x172351 stalin.sc:25197:870668 */ t95736.s0.tag = STRUCTURE_TYPE24753; t95736.s0.value.structure_type24753 = &t95737; /* x172352 stalin.sc:25197:870668 */ t95736.s1.tag = NULL_TYPE; /* x172353 stalin.sc:25197:870668 */ t95733.s1.tag = STRUCTURE_TYPE24753; t95733.s1.value.structure_type24753 = &t95736; /* x172354 stalin.sc:25197:870668 */ t95723.s1.tag = STRUCTURE_TYPE24753; t95723.s1.value.structure_type24753 = &t95733; /* x172355 stalin.sc:25197:870668 */ t95722.s0.tag = STRUCTURE_TYPE24753; t95722.s0.value.structure_type24753 = &t95723; /* x172356 stalin.sc:25197:870668 */ t95753.s0.tag = EXTERNAL_SYMBOL_TYPE; t95753.s0.value.external_symbol_type = q95; /* x172357 stalin.sc:25197:870668 */ t95754.s0.tag = EXTERNAL_SYMBOL_TYPE; t95754.s0.value.external_symbol_type = q260; /* x172358 stalin.sc:25197:870668 */ t95754.s1.tag = NULL_TYPE; /* x172359 stalin.sc:25197:870668 */ t95753.s1.tag = STRUCTURE_TYPE24753; t95753.s1.value.structure_type24753 = &t95754; /* x172360 stalin.sc:25197:870668 */ t95752.s0.tag = STRUCTURE_TYPE24753; t95752.s0.value.structure_type24753 = &t95753; /* x172361 stalin.sc:25197:870668 */ t95752.s1.tag = NULL_TYPE; /* x172362 stalin.sc:25197:870668 */ t95722.s1.tag = STRUCTURE_TYPE24753; t95722.s1.value.structure_type24753 = &t95752; /* x172363 stalin.sc:25197:870668 */ t95717.s1.tag = STRUCTURE_TYPE24753; t95717.s1.value.structure_type24753 = &t95722; /* x172364 stalin.sc:25197:870668 */ t95716.s1.tag = STRUCTURE_TYPE24753; t95716.s1.value.structure_type24753 = &t95717; /* x172365 stalin.sc:25197:870668 */ t95715.s0.tag = STRUCTURE_TYPE24753; t95715.s0.value.structure_type24753 = &t95716; /* x172366 stalin.sc:25197:870668 */ t95715.s1.tag = NULL_TYPE; /* x172367 stalin.sc:25197:870668 */ t95709.s1.tag = STRUCTURE_TYPE24753; t95709.s1.value.structure_type24753 = &t95715; /* x172368 stalin.sc:25197:870668 */ t95708.s1.tag = STRUCTURE_TYPE24753; t95708.s1.value.structure_type24753 = &t95709; /* x172369 stalin.sc:25197:870668 */ t95707.s0.tag = STRUCTURE_TYPE24753; t95707.s0.value.structure_type24753 = &t95708; /* x172370 stalin.sc:25197:870668 */ t95707.s1.tag = NULL_TYPE; /* x172371 stalin.sc:25197:870668 */ t95704.s1.tag = STRUCTURE_TYPE24753; t95704.s1.value.structure_type24753 = &t95707; /* x172372 stalin.sc:25197:870668 */ t95703.s1.tag = STRUCTURE_TYPE24753; t95703.s1.value.structure_type24753 = &t95704; /* x172373 stalin.sc:25197:870668 */ t95702.s0.tag = STRUCTURE_TYPE24753; t95702.s0.value.structure_type24753 = &t95703; /* x172374 stalin.sc:25197:870668 */ t95756.s0.tag = EXTERNAL_SYMBOL_TYPE; t95756.s0.value.external_symbol_type = q97; /* x172375 stalin.sc:25197:870668 */ t95758.s0.tag = EXTERNAL_SYMBOL_TYPE; t95758.s0.value.external_symbol_type = q268; /* x172376 stalin.sc:25197:870668 */ t95759.s0.tag = EXTERNAL_SYMBOL_TYPE; t95759.s0.value.external_symbol_type = q260; /* x172377 stalin.sc:25197:870668 */ t95759.s1.tag = NULL_TYPE; /* x172378 stalin.sc:25197:870668 */ t95758.s1.tag = STRUCTURE_TYPE24753; t95758.s1.value.structure_type24753 = &t95759; /* x172379 stalin.sc:25197:870668 */ t95757.s0.tag = STRUCTURE_TYPE24753; t95757.s0.value.structure_type24753 = &t95758; /* x172380 stalin.sc:25197:870668 */ t95761.s0.tag = EXTERNAL_SYMBOL_TYPE; t95761.s0.value.external_symbol_type = q242; /* x172381 stalin.sc:25197:870668 */ t95764.s0.tag = EXTERNAL_SYMBOL_TYPE; t95764.s0.value.external_symbol_type = q261; /* x172382 stalin.sc:25197:870668 */ t95766.s0.tag = EXTERNAL_SYMBOL_TYPE; t95766.s0.value.external_symbol_type = q262; /* x172383 stalin.sc:25197:870668 */ t95767.s0.tag = EXTERNAL_SYMBOL_TYPE; t95767.s0.value.external_symbol_type = q254; /* x172384 stalin.sc:25197:870668 */ t95767.s1.tag = NULL_TYPE; /* x172385 stalin.sc:25197:870668 */ t95766.s1.tag = STRUCTURE_TYPE24753; t95766.s1.value.structure_type24753 = &t95767; /* x172386 stalin.sc:25197:870668 */ t95765.s0.tag = STRUCTURE_TYPE24753; t95765.s0.value.structure_type24753 = &t95766; /* x172387 stalin.sc:25197:870668 */ t95765.s1.tag = NULL_TYPE; /* x172388 stalin.sc:25197:870668 */ t95764.s1.tag = STRUCTURE_TYPE24753; t95764.s1.value.structure_type24753 = &t95765; /* x172389 stalin.sc:25197:870668 */ t95763.s0.tag = STRUCTURE_TYPE24753; t95763.s0.value.structure_type24753 = &t95764; /* x172390 stalin.sc:25197:870668 */ t95763.s1.tag = NULL_TYPE; /* x172391 stalin.sc:25197:870668 */ t95762.s0.tag = STRUCTURE_TYPE24753; t95762.s0.value.structure_type24753 = &t95763; /* x172392 stalin.sc:25197:870668 */ t95769.s0.tag = EXTERNAL_SYMBOL_TYPE; t95769.s0.value.external_symbol_type = q240; /* x172393 stalin.sc:25197:870668 */ t95772.s0.tag = EXTERNAL_SYMBOL_TYPE; t95772.s0.value.external_symbol_type = q178; /* x172394 stalin.sc:25197:870668 */ t95773.s0.tag = EXTERNAL_SYMBOL_TYPE; t95773.s0.value.external_symbol_type = q261; /* x172395 stalin.sc:25197:870668 */ t95773.s1.tag = NULL_TYPE; /* x172396 stalin.sc:25197:870668 */ t95772.s1.tag = STRUCTURE_TYPE24753; t95772.s1.value.structure_type24753 = &t95773; /* x172397 stalin.sc:25197:870668 */ t95771.s0.tag = STRUCTURE_TYPE24753; t95771.s0.value.structure_type24753 = &t95772; /* x172398 stalin.sc:25197:870668 */ t95774.s0.tag = EXTERNAL_SYMBOL_TYPE; t95774.s0.value.external_symbol_type = q260; /* x172399 stalin.sc:25197:870668 */ t95774.s1.tag = NULL_TYPE; /* x172400 stalin.sc:25197:870668 */ t95771.s1.tag = STRUCTURE_TYPE24753; t95771.s1.value.structure_type24753 = &t95774; /* x172401 stalin.sc:25197:870668 */ t95770.s0.tag = STRUCTURE_TYPE24753; t95770.s0.value.structure_type24753 = &t95771; /* x172402 stalin.sc:25197:870668 */ t95777.s0.tag = EXTERNAL_SYMBOL_TYPE; t95777.s0.value.external_symbol_type = q269; /* x172403 stalin.sc:25197:870668 */ t95778.s0.tag = EXTERNAL_SYMBOL_TYPE; t95778.s0.value.external_symbol_type = q261; /* x172404 stalin.sc:25197:870668 */ t95778.s1.tag = NULL_TYPE; /* x172405 stalin.sc:25197:870668 */ t95777.s1.tag = STRUCTURE_TYPE24753; t95777.s1.value.structure_type24753 = &t95778; /* x172406 stalin.sc:25197:870668 */ t95776.s0.tag = STRUCTURE_TYPE24753; t95776.s0.value.structure_type24753 = &t95777; /* x172407 stalin.sc:25197:870668 */ t95780.s0.tag = EXTERNAL_SYMBOL_TYPE; t95780.s0.value.external_symbol_type = q264; /* x172408 stalin.sc:25197:870668 */ t95781.s0.tag = EXTERNAL_SYMBOL_TYPE; t95781.s0.value.external_symbol_type = q254; /* x172409 stalin.sc:25197:870668 */ t95781.s1.tag = NULL_TYPE; /* x172410 stalin.sc:25197:870668 */ t95780.s1.tag = STRUCTURE_TYPE24753; t95780.s1.value.structure_type24753 = &t95781; /* x172411 stalin.sc:25197:870668 */ t95779.s0.tag = STRUCTURE_TYPE24753; t95779.s0.value.structure_type24753 = &t95780; /* x172412 stalin.sc:25197:870668 */ t95783.s0.tag = EXTERNAL_SYMBOL_TYPE; t95783.s0.value.external_symbol_type = q268; /* x172413 stalin.sc:25197:870668 */ t95785.s0.tag = EXTERNAL_SYMBOL_TYPE; t95785.s0.value.external_symbol_type = q4; /* x172414 stalin.sc:25197:870668 */ t95787.s0.tag = EXTERNAL_SYMBOL_TYPE; t95787.s0.value.external_symbol_type = q130; /* x172415 stalin.sc:25197:870668 */ t95788.s0.tag = FIXNUM_TYPE; t95788.s0.value.fixnum_type = 10; /* x172416 stalin.sc:25197:870668 */ t95789.s0.tag = EXTERNAL_SYMBOL_TYPE; t95789.s0.value.external_symbol_type = q260; /* x172417 stalin.sc:25197:870668 */ t95789.s1.tag = NULL_TYPE; /* x172418 stalin.sc:25197:870668 */ t95788.s1.tag = STRUCTURE_TYPE24753; t95788.s1.value.structure_type24753 = &t95789; /* x172419 stalin.sc:25197:870668 */ t95787.s1.tag = STRUCTURE_TYPE24753; t95787.s1.value.structure_type24753 = &t95788; /* x172420 stalin.sc:25197:870668 */ t95786.s0.tag = STRUCTURE_TYPE24753; t95786.s0.value.structure_type24753 = &t95787; /* x172421 stalin.sc:25197:870668 */ t95791.s0.tag = EXTERNAL_SYMBOL_TYPE; t95791.s0.value.external_symbol_type = q2; /* x172422 stalin.sc:25197:870668 */ t95793.s0.tag = EXTERNAL_SYMBOL_TYPE; t95793.s0.value.external_symbol_type = q157; /* x172423 stalin.sc:25197:870668 */ t95794.s0.tag = EXTERNAL_SYMBOL_TYPE; t95794.s0.value.external_symbol_type = q261; /* x172424 stalin.sc:25197:870668 */ t95794.s1.tag = NULL_TYPE; /* x172425 stalin.sc:25197:870668 */ t95793.s1.tag = STRUCTURE_TYPE24753; t95793.s1.value.structure_type24753 = &t95794; /* x172426 stalin.sc:25197:870668 */ t95792.s0.tag = STRUCTURE_TYPE24753; t95792.s0.value.structure_type24753 = &t95793; /* x172427 stalin.sc:25197:870668 */ t95796.s0.tag = EXTERNAL_SYMBOL_TYPE; t95796.s0.value.external_symbol_type = q157; /* x172428 stalin.sc:25197:870668 */ t95797.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x172429 stalin.sc:25197:870668 */ t95797.s1.tag = NULL_TYPE; /* x172430 stalin.sc:25197:870668 */ t95796.s1.tag = STRUCTURE_TYPE24753; t95796.s1.value.structure_type24753 = &t95797; /* x172431 stalin.sc:25197:870668 */ t95795.s0.tag = STRUCTURE_TYPE24753; t95795.s0.value.structure_type24753 = &t95796; /* x172432 stalin.sc:25197:870668 */ t95795.s1.tag = NULL_TYPE; /* x172433 stalin.sc:25197:870668 */ t95792.s1.tag = STRUCTURE_TYPE24753; t95792.s1.value.structure_type24753 = &t95795; /* x172434 stalin.sc:25197:870668 */ t95791.s1.tag = STRUCTURE_TYPE24753; t95791.s1.value.structure_type24753 = &t95792; /* x172435 stalin.sc:25197:870668 */ t95790.s0.tag = STRUCTURE_TYPE24753; t95790.s0.value.structure_type24753 = &t95791; /* x172436 stalin.sc:25197:870668 */ t95790.s1.tag = NULL_TYPE; /* x172437 stalin.sc:25197:870668 */ t95786.s1.tag = STRUCTURE_TYPE24753; t95786.s1.value.structure_type24753 = &t95790; /* x172438 stalin.sc:25197:870668 */ t95785.s1.tag = STRUCTURE_TYPE24753; t95785.s1.value.structure_type24753 = &t95786; /* x172439 stalin.sc:25197:870668 */ t95784.s0.tag = STRUCTURE_TYPE24753; t95784.s0.value.structure_type24753 = &t95785; /* x172440 stalin.sc:25197:870668 */ t95784.s1.tag = NULL_TYPE; /* x172441 stalin.sc:25197:870668 */ t95783.s1.tag = STRUCTURE_TYPE24753; t95783.s1.value.structure_type24753 = &t95784; /* x172442 stalin.sc:25197:870668 */ t95782.s0.tag = STRUCTURE_TYPE24753; t95782.s0.value.structure_type24753 = &t95783; /* x172443 stalin.sc:25197:870668 */ t95782.s1.tag = NULL_TYPE; /* x172444 stalin.sc:25197:870668 */ t95779.s1.tag = STRUCTURE_TYPE24753; t95779.s1.value.structure_type24753 = &t95782; /* x172445 stalin.sc:25197:870668 */ t95776.s1.tag = STRUCTURE_TYPE24753; t95776.s1.value.structure_type24753 = &t95779; /* x172446 stalin.sc:25197:870668 */ t95775.s0.tag = STRUCTURE_TYPE24753; t95775.s0.value.structure_type24753 = &t95776; /* x172447 stalin.sc:25197:870668 */ t95799.s0.tag = EXTERNAL_SYMBOL_TYPE; t95799.s0.value.external_symbol_type = q95; /* x172448 stalin.sc:25197:870668 */ t95800.s0.tag = EXTERNAL_SYMBOL_TYPE; t95800.s0.value.external_symbol_type = q260; /* x172449 stalin.sc:25197:870668 */ t95800.s1.tag = NULL_TYPE; /* x172450 stalin.sc:25197:870668 */ t95799.s1.tag = STRUCTURE_TYPE24753; t95799.s1.value.structure_type24753 = &t95800; /* x172451 stalin.sc:25197:870668 */ t95798.s0.tag = STRUCTURE_TYPE24753; t95798.s0.value.structure_type24753 = &t95799; /* x172452 stalin.sc:25197:870668 */ t95798.s1.tag = NULL_TYPE; /* x172453 stalin.sc:25197:870668 */ t95775.s1.tag = STRUCTURE_TYPE24753; t95775.s1.value.structure_type24753 = &t95798; /* x172454 stalin.sc:25197:870668 */ t95770.s1.tag = STRUCTURE_TYPE24753; t95770.s1.value.structure_type24753 = &t95775; /* x172455 stalin.sc:25197:870668 */ t95769.s1.tag = STRUCTURE_TYPE24753; t95769.s1.value.structure_type24753 = &t95770; /* x172456 stalin.sc:25197:870668 */ t95768.s0.tag = STRUCTURE_TYPE24753; t95768.s0.value.structure_type24753 = &t95769; /* x172457 stalin.sc:25197:870668 */ t95768.s1.tag = NULL_TYPE; /* x172458 stalin.sc:25197:870668 */ t95762.s1.tag = STRUCTURE_TYPE24753; t95762.s1.value.structure_type24753 = &t95768; /* x172459 stalin.sc:25197:870668 */ t95761.s1.tag = STRUCTURE_TYPE24753; t95761.s1.value.structure_type24753 = &t95762; /* x172460 stalin.sc:25197:870668 */ t95760.s0.tag = STRUCTURE_TYPE24753; t95760.s0.value.structure_type24753 = &t95761; /* x172461 stalin.sc:25197:870668 */ t95760.s1.tag = NULL_TYPE; /* x172462 stalin.sc:25197:870668 */ t95757.s1.tag = STRUCTURE_TYPE24753; t95757.s1.value.structure_type24753 = &t95760; /* x172463 stalin.sc:25197:870668 */ t95756.s1.tag = STRUCTURE_TYPE24753; t95756.s1.value.structure_type24753 = &t95757; /* x172464 stalin.sc:25197:870668 */ t95755.s0.tag = STRUCTURE_TYPE24753; t95755.s0.value.structure_type24753 = &t95756; /* x172465 stalin.sc:25197:870668 */ t95802.s0.tag = EXTERNAL_SYMBOL_TYPE; t95802.s0.value.external_symbol_type = q97; /* x172466 stalin.sc:25197:870668 */ t95804.s0.tag = EXTERNAL_SYMBOL_TYPE; t95804.s0.value.external_symbol_type = q270; /* x172467 stalin.sc:25197:870668 */ t95805.s0.tag = EXTERNAL_SYMBOL_TYPE; t95805.s0.value.external_symbol_type = q260; /* x172468 stalin.sc:25197:870668 */ t95805.s1.tag = NULL_TYPE; /* x172469 stalin.sc:25197:870668 */ t95804.s1.tag = STRUCTURE_TYPE24753; t95804.s1.value.structure_type24753 = &t95805; /* x172470 stalin.sc:25197:870668 */ t95803.s0.tag = STRUCTURE_TYPE24753; t95803.s0.value.structure_type24753 = &t95804; /* x172471 stalin.sc:25197:870668 */ t95807.s0.tag = EXTERNAL_SYMBOL_TYPE; t95807.s0.value.external_symbol_type = q242; /* x172472 stalin.sc:25197:870668 */ t95810.s0.tag = EXTERNAL_SYMBOL_TYPE; t95810.s0.value.external_symbol_type = q261; /* x172473 stalin.sc:25197:870668 */ t95812.s0.tag = EXTERNAL_SYMBOL_TYPE; t95812.s0.value.external_symbol_type = q262; /* x172474 stalin.sc:25197:870668 */ t95813.s0.tag = EXTERNAL_SYMBOL_TYPE; t95813.s0.value.external_symbol_type = q254; /* x172475 stalin.sc:25197:870668 */ t95813.s1.tag = NULL_TYPE; /* x172476 stalin.sc:25197:870668 */ t95812.s1.tag = STRUCTURE_TYPE24753; t95812.s1.value.structure_type24753 = &t95813; /* x172477 stalin.sc:25197:870668 */ t95811.s0.tag = STRUCTURE_TYPE24753; t95811.s0.value.structure_type24753 = &t95812; /* x172478 stalin.sc:25197:870668 */ t95811.s1.tag = NULL_TYPE; /* x172479 stalin.sc:25197:870668 */ t95810.s1.tag = STRUCTURE_TYPE24753; t95810.s1.value.structure_type24753 = &t95811; /* x172480 stalin.sc:25197:870668 */ t95809.s0.tag = STRUCTURE_TYPE24753; t95809.s0.value.structure_type24753 = &t95810; /* x172481 stalin.sc:25197:870668 */ t95809.s1.tag = NULL_TYPE; /* x172482 stalin.sc:25197:870668 */ t95808.s0.tag = STRUCTURE_TYPE24753; t95808.s0.value.structure_type24753 = &t95809; /* x172483 stalin.sc:25197:870668 */ t95815.s0.tag = EXTERNAL_SYMBOL_TYPE; t95815.s0.value.external_symbol_type = q240; /* x172484 stalin.sc:25197:870668 */ t95818.s0.tag = EXTERNAL_SYMBOL_TYPE; t95818.s0.value.external_symbol_type = q178; /* x172485 stalin.sc:25197:870668 */ t95819.s0.tag = EXTERNAL_SYMBOL_TYPE; t95819.s0.value.external_symbol_type = q261; /* x172486 stalin.sc:25197:870668 */ t95819.s1.tag = NULL_TYPE; /* x172487 stalin.sc:25197:870668 */ t95818.s1.tag = STRUCTURE_TYPE24753; t95818.s1.value.structure_type24753 = &t95819; /* x172488 stalin.sc:25197:870668 */ t95817.s0.tag = STRUCTURE_TYPE24753; t95817.s0.value.structure_type24753 = &t95818; /* x172489 stalin.sc:25197:870668 */ t95820.s0.tag = EXTERNAL_SYMBOL_TYPE; t95820.s0.value.external_symbol_type = q260; /* x172490 stalin.sc:25197:870668 */ t95820.s1.tag = NULL_TYPE; /* x172491 stalin.sc:25197:870668 */ t95817.s1.tag = STRUCTURE_TYPE24753; t95817.s1.value.structure_type24753 = &t95820; /* x172492 stalin.sc:25197:870668 */ t95816.s0.tag = STRUCTURE_TYPE24753; t95816.s0.value.structure_type24753 = &t95817; /* x172493 stalin.sc:25197:870668 */ t95823.s0.tag = EXTERNAL_SYMBOL_TYPE; t95823.s0.value.external_symbol_type = q269; /* x172494 stalin.sc:25197:870668 */ t95824.s0.tag = EXTERNAL_SYMBOL_TYPE; t95824.s0.value.external_symbol_type = q261; /* x172495 stalin.sc:25197:870668 */ t95824.s1.tag = NULL_TYPE; /* x172496 stalin.sc:25197:870668 */ t95823.s1.tag = STRUCTURE_TYPE24753; t95823.s1.value.structure_type24753 = &t95824; /* x172497 stalin.sc:25197:870668 */ t95822.s0.tag = STRUCTURE_TYPE24753; t95822.s0.value.structure_type24753 = &t95823; /* x172498 stalin.sc:25197:870668 */ t95826.s0.tag = EXTERNAL_SYMBOL_TYPE; t95826.s0.value.external_symbol_type = q264; /* x172499 stalin.sc:25197:870668 */ t95827.s0.tag = EXTERNAL_SYMBOL_TYPE; t95827.s0.value.external_symbol_type = q254; /* x172500 stalin.sc:25197:870668 */ t95827.s1.tag = NULL_TYPE; /* x172501 stalin.sc:25197:870668 */ t95826.s1.tag = STRUCTURE_TYPE24753; t95826.s1.value.structure_type24753 = &t95827; /* x172502 stalin.sc:25197:870668 */ t95825.s0.tag = STRUCTURE_TYPE24753; t95825.s0.value.structure_type24753 = &t95826; /* x172503 stalin.sc:25197:870668 */ t95829.s0.tag = EXTERNAL_SYMBOL_TYPE; t95829.s0.value.external_symbol_type = q270; /* x172504 stalin.sc:25197:870668 */ t95831.s0.tag = EXTERNAL_SYMBOL_TYPE; t95831.s0.value.external_symbol_type = q4; /* x172505 stalin.sc:25197:870668 */ t95833.s0.tag = EXTERNAL_SYMBOL_TYPE; t95833.s0.value.external_symbol_type = q130; /* x172506 stalin.sc:25197:870668 */ t95834.s0.tag = FIXNUM_TYPE; t95834.s0.value.fixnum_type = 16; /* x172507 stalin.sc:25197:870668 */ t95835.s0.tag = EXTERNAL_SYMBOL_TYPE; t95835.s0.value.external_symbol_type = q260; /* x172508 stalin.sc:25197:870668 */ t95835.s1.tag = NULL_TYPE; /* x172509 stalin.sc:25197:870668 */ t95834.s1.tag = STRUCTURE_TYPE24753; t95834.s1.value.structure_type24753 = &t95835; /* x172510 stalin.sc:25197:870668 */ t95833.s1.tag = STRUCTURE_TYPE24753; t95833.s1.value.structure_type24753 = &t95834; /* x172511 stalin.sc:25197:870668 */ t95832.s0.tag = STRUCTURE_TYPE24753; t95832.s0.value.structure_type24753 = &t95833; /* x172512 stalin.sc:25197:870668 */ t95837.s0.tag = EXTERNAL_SYMBOL_TYPE; t95837.s0.value.external_symbol_type = q2; /* x172513 stalin.sc:25197:870668 */ t95839.s0.tag = EXTERNAL_SYMBOL_TYPE; t95839.s0.value.external_symbol_type = q157; /* x172514 stalin.sc:25197:870668 */ t95840.s0.tag = EXTERNAL_SYMBOL_TYPE; t95840.s0.value.external_symbol_type = q261; /* x172515 stalin.sc:25197:870668 */ t95840.s1.tag = NULL_TYPE; /* x172516 stalin.sc:25197:870668 */ t95839.s1.tag = STRUCTURE_TYPE24753; t95839.s1.value.structure_type24753 = &t95840; /* x172517 stalin.sc:25197:870668 */ t95838.s0.tag = STRUCTURE_TYPE24753; t95838.s0.value.structure_type24753 = &t95839; /* x172518 stalin.sc:25197:870668 */ t95842.s0.tag = EXTERNAL_SYMBOL_TYPE; t95842.s0.value.external_symbol_type = q157; /* x172519 stalin.sc:25197:870668 */ t95843.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x172520 stalin.sc:25197:870668 */ t95843.s1.tag = NULL_TYPE; /* x172521 stalin.sc:25197:870668 */ t95842.s1.tag = STRUCTURE_TYPE24753; t95842.s1.value.structure_type24753 = &t95843; /* x172522 stalin.sc:25197:870668 */ t95841.s0.tag = STRUCTURE_TYPE24753; t95841.s0.value.structure_type24753 = &t95842; /* x172523 stalin.sc:25197:870668 */ t95841.s1.tag = NULL_TYPE; /* x172524 stalin.sc:25197:870668 */ t95838.s1.tag = STRUCTURE_TYPE24753; t95838.s1.value.structure_type24753 = &t95841; /* x172525 stalin.sc:25197:870668 */ t95837.s1.tag = STRUCTURE_TYPE24753; t95837.s1.value.structure_type24753 = &t95838; /* x172526 stalin.sc:25197:870668 */ t95836.s0.tag = STRUCTURE_TYPE24753; t95836.s0.value.structure_type24753 = &t95837; /* x172527 stalin.sc:25197:870668 */ t95836.s1.tag = NULL_TYPE; /* x172528 stalin.sc:25197:870668 */ t95832.s1.tag = STRUCTURE_TYPE24753; t95832.s1.value.structure_type24753 = &t95836; /* x172529 stalin.sc:25197:870668 */ t95831.s1.tag = STRUCTURE_TYPE24753; t95831.s1.value.structure_type24753 = &t95832; /* x172530 stalin.sc:25197:870668 */ t95830.s0.tag = STRUCTURE_TYPE24753; t95830.s0.value.structure_type24753 = &t95831; /* x172531 stalin.sc:25197:870668 */ t95830.s1.tag = NULL_TYPE; /* x172532 stalin.sc:25197:870668 */ t95829.s1.tag = STRUCTURE_TYPE24753; t95829.s1.value.structure_type24753 = &t95830; /* x172533 stalin.sc:25197:870668 */ t95828.s0.tag = STRUCTURE_TYPE24753; t95828.s0.value.structure_type24753 = &t95829; /* x172534 stalin.sc:25197:870668 */ t95828.s1.tag = NULL_TYPE; /* x172535 stalin.sc:25197:870668 */ t95825.s1.tag = STRUCTURE_TYPE24753; t95825.s1.value.structure_type24753 = &t95828; /* x172536 stalin.sc:25197:870668 */ t95822.s1.tag = STRUCTURE_TYPE24753; t95822.s1.value.structure_type24753 = &t95825; /* x172537 stalin.sc:25197:870668 */ t95821.s0.tag = STRUCTURE_TYPE24753; t95821.s0.value.structure_type24753 = &t95822; /* x172538 stalin.sc:25197:870668 */ t95846.s0.tag = EXTERNAL_SYMBOL_TYPE; t95846.s0.value.external_symbol_type = q244; /* x172539 stalin.sc:25197:870668 */ t95848.s0.tag = EXTERNAL_SYMBOL_TYPE; t95848.s0.value.external_symbol_type = q266; /* x172540 stalin.sc:25197:870668 */ t95849.s0.tag = EXTERNAL_SYMBOL_TYPE; t95849.s0.value.external_symbol_type = q261; /* x172541 stalin.sc:25197:870668 */ t95850.s0.tag = ((unsigned)((unsigned char)'a'))<<2; /* x172542 stalin.sc:25197:870668 */ t95850.s1.tag = NULL_TYPE; /* x172543 stalin.sc:25197:870668 */ t95849.s1.tag = STRUCTURE_TYPE24753; t95849.s1.value.structure_type24753 = &t95850; /* x172544 stalin.sc:25197:870668 */ t95848.s1.tag = STRUCTURE_TYPE24753; t95848.s1.value.structure_type24753 = &t95849; /* x172545 stalin.sc:25197:870668 */ t95847.s0.tag = STRUCTURE_TYPE24753; t95847.s0.value.structure_type24753 = &t95848; /* x172546 stalin.sc:25197:870668 */ t95852.s0.tag = EXTERNAL_SYMBOL_TYPE; t95852.s0.value.external_symbol_type = q267; /* x172547 stalin.sc:25197:870668 */ t95853.s0.tag = EXTERNAL_SYMBOL_TYPE; t95853.s0.value.external_symbol_type = q261; /* x172548 stalin.sc:25197:870668 */ t95854.s0.tag = ((unsigned)((unsigned char)'f'))<<2; /* x172549 stalin.sc:25197:870668 */ t95854.s1.tag = NULL_TYPE; /* x172550 stalin.sc:25197:870668 */ t95853.s1.tag = STRUCTURE_TYPE24753; t95853.s1.value.structure_type24753 = &t95854; /* x172551 stalin.sc:25197:870668 */ t95852.s1.tag = STRUCTURE_TYPE24753; t95852.s1.value.structure_type24753 = &t95853; /* x172552 stalin.sc:25197:870668 */ t95851.s0.tag = STRUCTURE_TYPE24753; t95851.s0.value.structure_type24753 = &t95852; /* x172553 stalin.sc:25197:870668 */ t95851.s1.tag = NULL_TYPE; /* x172554 stalin.sc:25197:870668 */ t95847.s1.tag = STRUCTURE_TYPE24753; t95847.s1.value.structure_type24753 = &t95851; /* x172555 stalin.sc:25197:870668 */ t95846.s1.tag = STRUCTURE_TYPE24753; t95846.s1.value.structure_type24753 = &t95847; /* x172556 stalin.sc:25197:870668 */ t95845.s0.tag = STRUCTURE_TYPE24753; t95845.s0.value.structure_type24753 = &t95846; /* x172557 stalin.sc:25197:870668 */ t95856.s0.tag = EXTERNAL_SYMBOL_TYPE; t95856.s0.value.external_symbol_type = q264; /* x172558 stalin.sc:25197:870668 */ t95857.s0.tag = EXTERNAL_SYMBOL_TYPE; t95857.s0.value.external_symbol_type = q254; /* x172559 stalin.sc:25197:870668 */ t95857.s1.tag = NULL_TYPE; /* x172560 stalin.sc:25197:870668 */ t95856.s1.tag = STRUCTURE_TYPE24753; t95856.s1.value.structure_type24753 = &t95857; /* x172561 stalin.sc:25197:870668 */ t95855.s0.tag = STRUCTURE_TYPE24753; t95855.s0.value.structure_type24753 = &t95856; /* x172562 stalin.sc:25197:870668 */ t95859.s0.tag = EXTERNAL_SYMBOL_TYPE; t95859.s0.value.external_symbol_type = q270; /* x172563 stalin.sc:25197:870668 */ t95861.s0.tag = EXTERNAL_SYMBOL_TYPE; t95861.s0.value.external_symbol_type = q4; /* x172564 stalin.sc:25197:870668 */ t95863.s0.tag = EXTERNAL_SYMBOL_TYPE; t95863.s0.value.external_symbol_type = q130; /* x172565 stalin.sc:25197:870668 */ t95864.s0.tag = FIXNUM_TYPE; t95864.s0.value.fixnum_type = 16; /* x172566 stalin.sc:25197:870668 */ t95865.s0.tag = EXTERNAL_SYMBOL_TYPE; t95865.s0.value.external_symbol_type = q260; /* x172567 stalin.sc:25197:870668 */ t95865.s1.tag = NULL_TYPE; /* x172568 stalin.sc:25197:870668 */ t95864.s1.tag = STRUCTURE_TYPE24753; t95864.s1.value.structure_type24753 = &t95865; /* x172569 stalin.sc:25197:870668 */ t95863.s1.tag = STRUCTURE_TYPE24753; t95863.s1.value.structure_type24753 = &t95864; /* x172570 stalin.sc:25197:870668 */ t95862.s0.tag = STRUCTURE_TYPE24753; t95862.s0.value.structure_type24753 = &t95863; /* x172571 stalin.sc:25197:870668 */ t95867.s0.tag = EXTERNAL_SYMBOL_TYPE; t95867.s0.value.external_symbol_type = q2; /* x172572 stalin.sc:25197:870668 */ t95869.s0.tag = EXTERNAL_SYMBOL_TYPE; t95869.s0.value.external_symbol_type = q157; /* x172573 stalin.sc:25197:870668 */ t95870.s0.tag = EXTERNAL_SYMBOL_TYPE; t95870.s0.value.external_symbol_type = q261; /* x172574 stalin.sc:25197:870668 */ t95870.s1.tag = NULL_TYPE; /* x172575 stalin.sc:25197:870668 */ t95869.s1.tag = STRUCTURE_TYPE24753; t95869.s1.value.structure_type24753 = &t95870; /* x172576 stalin.sc:25197:870668 */ t95868.s0.tag = STRUCTURE_TYPE24753; t95868.s0.value.structure_type24753 = &t95869; /* x172577 stalin.sc:25197:870668 */ t95872.s0.tag = EXTERNAL_SYMBOL_TYPE; t95872.s0.value.external_symbol_type = q157; /* x172578 stalin.sc:25197:870668 */ t95873.s0.tag = ((unsigned)((unsigned char)'a'))<<2; /* x172579 stalin.sc:25197:870668 */ t95873.s1.tag = NULL_TYPE; /* x172580 stalin.sc:25197:870668 */ t95872.s1.tag = STRUCTURE_TYPE24753; t95872.s1.value.structure_type24753 = &t95873; /* x172581 stalin.sc:25197:870668 */ t95871.s0.tag = STRUCTURE_TYPE24753; t95871.s0.value.structure_type24753 = &t95872; /* x172582 stalin.sc:25197:870668 */ t95871.s1.tag = NULL_TYPE; /* x172583 stalin.sc:25197:870668 */ t95868.s1.tag = STRUCTURE_TYPE24753; t95868.s1.value.structure_type24753 = &t95871; /* x172584 stalin.sc:25197:870668 */ t95867.s1.tag = STRUCTURE_TYPE24753; t95867.s1.value.structure_type24753 = &t95868; /* x172585 stalin.sc:25197:870668 */ t95866.s0.tag = STRUCTURE_TYPE24753; t95866.s0.value.structure_type24753 = &t95867; /* x172586 stalin.sc:25197:870668 */ t95874.s0.tag = FIXNUM_TYPE; t95874.s0.value.fixnum_type = 10; /* x172587 stalin.sc:25197:870668 */ t95874.s1.tag = NULL_TYPE; /* x172588 stalin.sc:25197:870668 */ t95866.s1.tag = STRUCTURE_TYPE24753; t95866.s1.value.structure_type24753 = &t95874; /* x172589 stalin.sc:25197:870668 */ t95862.s1.tag = STRUCTURE_TYPE24753; t95862.s1.value.structure_type24753 = &t95866; /* x172590 stalin.sc:25197:870668 */ t95861.s1.tag = STRUCTURE_TYPE24753; t95861.s1.value.structure_type24753 = &t95862; /* x172591 stalin.sc:25197:870668 */ t95860.s0.tag = STRUCTURE_TYPE24753; t95860.s0.value.structure_type24753 = &t95861; /* x172592 stalin.sc:25197:870668 */ t95860.s1.tag = NULL_TYPE; /* x172593 stalin.sc:25197:870668 */ t95859.s1.tag = STRUCTURE_TYPE24753; t95859.s1.value.structure_type24753 = &t95860; /* x172594 stalin.sc:25197:870668 */ t95858.s0.tag = STRUCTURE_TYPE24753; t95858.s0.value.structure_type24753 = &t95859; /* x172595 stalin.sc:25197:870668 */ t95858.s1.tag = NULL_TYPE; /* x172596 stalin.sc:25197:870668 */ t95855.s1.tag = STRUCTURE_TYPE24753; t95855.s1.value.structure_type24753 = &t95858; /* x172597 stalin.sc:25197:870668 */ t95845.s1.tag = STRUCTURE_TYPE24753; t95845.s1.value.structure_type24753 = &t95855; /* x172598 stalin.sc:25197:870668 */ t95844.s0.tag = STRUCTURE_TYPE24753; t95844.s0.value.structure_type24753 = &t95845; /* x172599 stalin.sc:25197:870668 */ t95877.s0.tag = EXTERNAL_SYMBOL_TYPE; t95877.s0.value.external_symbol_type = q244; /* x172600 stalin.sc:25197:870668 */ t95879.s0.tag = EXTERNAL_SYMBOL_TYPE; t95879.s0.value.external_symbol_type = q266; /* x172601 stalin.sc:25197:870668 */ t95880.s0.tag = EXTERNAL_SYMBOL_TYPE; t95880.s0.value.external_symbol_type = q261; /* x172602 stalin.sc:25197:870668 */ t95881.s0.tag = ((unsigned)((unsigned char)'A'))<<2; /* x172603 stalin.sc:25197:870668 */ t95881.s1.tag = NULL_TYPE; /* x172604 stalin.sc:25197:870668 */ t95880.s1.tag = STRUCTURE_TYPE24753; t95880.s1.value.structure_type24753 = &t95881; /* x172605 stalin.sc:25197:870668 */ t95879.s1.tag = STRUCTURE_TYPE24753; t95879.s1.value.structure_type24753 = &t95880; /* x172606 stalin.sc:25197:870668 */ t95878.s0.tag = STRUCTURE_TYPE24753; t95878.s0.value.structure_type24753 = &t95879; /* x172607 stalin.sc:25197:870668 */ t95883.s0.tag = EXTERNAL_SYMBOL_TYPE; t95883.s0.value.external_symbol_type = q267; /* x172608 stalin.sc:25197:870668 */ t95884.s0.tag = EXTERNAL_SYMBOL_TYPE; t95884.s0.value.external_symbol_type = q261; /* x172609 stalin.sc:25197:870668 */ t95885.s0.tag = ((unsigned)((unsigned char)'F'))<<2; /* x172610 stalin.sc:25197:870668 */ t95885.s1.tag = NULL_TYPE; /* x172611 stalin.sc:25197:870668 */ t95884.s1.tag = STRUCTURE_TYPE24753; t95884.s1.value.structure_type24753 = &t95885; /* x172612 stalin.sc:25197:870668 */ t95883.s1.tag = STRUCTURE_TYPE24753; t95883.s1.value.structure_type24753 = &t95884; /* x172613 stalin.sc:25197:870668 */ t95882.s0.tag = STRUCTURE_TYPE24753; t95882.s0.value.structure_type24753 = &t95883; /* x172614 stalin.sc:25197:870668 */ t95882.s1.tag = NULL_TYPE; /* x172615 stalin.sc:25197:870668 */ t95878.s1.tag = STRUCTURE_TYPE24753; t95878.s1.value.structure_type24753 = &t95882; /* x172616 stalin.sc:25197:870668 */ t95877.s1.tag = STRUCTURE_TYPE24753; t95877.s1.value.structure_type24753 = &t95878; /* x172617 stalin.sc:25197:870668 */ t95876.s0.tag = STRUCTURE_TYPE24753; t95876.s0.value.structure_type24753 = &t95877; /* x172618 stalin.sc:25197:870668 */ t95887.s0.tag = EXTERNAL_SYMBOL_TYPE; t95887.s0.value.external_symbol_type = q264; /* x172619 stalin.sc:25197:870668 */ t95888.s0.tag = EXTERNAL_SYMBOL_TYPE; t95888.s0.value.external_symbol_type = q254; /* x172620 stalin.sc:25197:870668 */ t95888.s1.tag = NULL_TYPE; /* x172621 stalin.sc:25197:870668 */ t95887.s1.tag = STRUCTURE_TYPE24753; t95887.s1.value.structure_type24753 = &t95888; /* x172622 stalin.sc:25197:870668 */ t95886.s0.tag = STRUCTURE_TYPE24753; t95886.s0.value.structure_type24753 = &t95887; /* x172623 stalin.sc:25197:870668 */ t95890.s0.tag = EXTERNAL_SYMBOL_TYPE; t95890.s0.value.external_symbol_type = q270; /* x172624 stalin.sc:25197:870668 */ t95892.s0.tag = EXTERNAL_SYMBOL_TYPE; t95892.s0.value.external_symbol_type = q4; /* x172625 stalin.sc:25197:870668 */ t95894.s0.tag = EXTERNAL_SYMBOL_TYPE; t95894.s0.value.external_symbol_type = q130; /* x172626 stalin.sc:25197:870668 */ t95895.s0.tag = FIXNUM_TYPE; t95895.s0.value.fixnum_type = 16; /* x172627 stalin.sc:25197:870668 */ t95896.s0.tag = EXTERNAL_SYMBOL_TYPE; t95896.s0.value.external_symbol_type = q260; /* x172628 stalin.sc:25197:870668 */ t95896.s1.tag = NULL_TYPE; /* x172629 stalin.sc:25197:870668 */ t95895.s1.tag = STRUCTURE_TYPE24753; t95895.s1.value.structure_type24753 = &t95896; /* x172630 stalin.sc:25197:870668 */ t95894.s1.tag = STRUCTURE_TYPE24753; t95894.s1.value.structure_type24753 = &t95895; /* x172631 stalin.sc:25197:870668 */ t95893.s0.tag = STRUCTURE_TYPE24753; t95893.s0.value.structure_type24753 = &t95894; /* x172632 stalin.sc:25197:870668 */ t95898.s0.tag = EXTERNAL_SYMBOL_TYPE; t95898.s0.value.external_symbol_type = q2; /* x172633 stalin.sc:25197:870668 */ t95900.s0.tag = EXTERNAL_SYMBOL_TYPE; t95900.s0.value.external_symbol_type = q157; /* x172634 stalin.sc:25197:870668 */ t95901.s0.tag = EXTERNAL_SYMBOL_TYPE; t95901.s0.value.external_symbol_type = q261; /* x172635 stalin.sc:25197:870668 */ t95901.s1.tag = NULL_TYPE; /* x172636 stalin.sc:25197:870668 */ t95900.s1.tag = STRUCTURE_TYPE24753; t95900.s1.value.structure_type24753 = &t95901; /* x172637 stalin.sc:25197:870668 */ t95899.s0.tag = STRUCTURE_TYPE24753; t95899.s0.value.structure_type24753 = &t95900; /* x172638 stalin.sc:25197:870668 */ t95903.s0.tag = EXTERNAL_SYMBOL_TYPE; t95903.s0.value.external_symbol_type = q157; /* x172639 stalin.sc:25197:870668 */ t95904.s0.tag = ((unsigned)((unsigned char)'A'))<<2; /* x172640 stalin.sc:25197:870668 */ t95904.s1.tag = NULL_TYPE; /* x172641 stalin.sc:25197:870668 */ t95903.s1.tag = STRUCTURE_TYPE24753; t95903.s1.value.structure_type24753 = &t95904; /* x172642 stalin.sc:25197:870668 */ t95902.s0.tag = STRUCTURE_TYPE24753; t95902.s0.value.structure_type24753 = &t95903; /* x172643 stalin.sc:25197:870668 */ t95902.s1.tag = NULL_TYPE; /* x172644 stalin.sc:25197:870668 */ t95899.s1.tag = STRUCTURE_TYPE24753; t95899.s1.value.structure_type24753 = &t95902; /* x172645 stalin.sc:25197:870668 */ t95898.s1.tag = STRUCTURE_TYPE24753; t95898.s1.value.structure_type24753 = &t95899; /* x172646 stalin.sc:25197:870668 */ t95897.s0.tag = STRUCTURE_TYPE24753; t95897.s0.value.structure_type24753 = &t95898; /* x172647 stalin.sc:25197:870668 */ t95905.s0.tag = FIXNUM_TYPE; t95905.s0.value.fixnum_type = 10; /* x172648 stalin.sc:25197:870668 */ t95905.s1.tag = NULL_TYPE; /* x172649 stalin.sc:25197:870668 */ t95897.s1.tag = STRUCTURE_TYPE24753; t95897.s1.value.structure_type24753 = &t95905; /* x172650 stalin.sc:25197:870668 */ t95893.s1.tag = STRUCTURE_TYPE24753; t95893.s1.value.structure_type24753 = &t95897; /* x172651 stalin.sc:25197:870668 */ t95892.s1.tag = STRUCTURE_TYPE24753; t95892.s1.value.structure_type24753 = &t95893; /* x172652 stalin.sc:25197:870668 */ t95891.s0.tag = STRUCTURE_TYPE24753; t95891.s0.value.structure_type24753 = &t95892; /* x172653 stalin.sc:25197:870668 */ t95891.s1.tag = NULL_TYPE; /* x172654 stalin.sc:25197:870668 */ t95890.s1.tag = STRUCTURE_TYPE24753; t95890.s1.value.structure_type24753 = &t95891; /* x172655 stalin.sc:25197:870668 */ t95889.s0.tag = STRUCTURE_TYPE24753; t95889.s0.value.structure_type24753 = &t95890; /* x172656 stalin.sc:25197:870668 */ t95889.s1.tag = NULL_TYPE; /* x172657 stalin.sc:25197:870668 */ t95886.s1.tag = STRUCTURE_TYPE24753; t95886.s1.value.structure_type24753 = &t95889; /* x172658 stalin.sc:25197:870668 */ t95876.s1.tag = STRUCTURE_TYPE24753; t95876.s1.value.structure_type24753 = &t95886; /* x172659 stalin.sc:25197:870668 */ t95875.s0.tag = STRUCTURE_TYPE24753; t95875.s0.value.structure_type24753 = &t95876; /* x172660 stalin.sc:25197:870668 */ t95907.s0.tag = EXTERNAL_SYMBOL_TYPE; t95907.s0.value.external_symbol_type = q95; /* x172661 stalin.sc:25197:870668 */ t95908.s0.tag = EXTERNAL_SYMBOL_TYPE; t95908.s0.value.external_symbol_type = q260; /* x172662 stalin.sc:25197:870668 */ t95908.s1.tag = NULL_TYPE; /* x172663 stalin.sc:25197:870668 */ t95907.s1.tag = STRUCTURE_TYPE24753; t95907.s1.value.structure_type24753 = &t95908; /* x172664 stalin.sc:25197:870668 */ t95906.s0.tag = STRUCTURE_TYPE24753; t95906.s0.value.structure_type24753 = &t95907; /* x172665 stalin.sc:25197:870668 */ t95906.s1.tag = NULL_TYPE; /* x172666 stalin.sc:25197:870668 */ t95875.s1.tag = STRUCTURE_TYPE24753; t95875.s1.value.structure_type24753 = &t95906; /* x172667 stalin.sc:25197:870668 */ t95844.s1.tag = STRUCTURE_TYPE24753; t95844.s1.value.structure_type24753 = &t95875; /* x172668 stalin.sc:25197:870668 */ t95821.s1.tag = STRUCTURE_TYPE24753; t95821.s1.value.structure_type24753 = &t95844; /* x172669 stalin.sc:25197:870668 */ t95816.s1.tag = STRUCTURE_TYPE24753; t95816.s1.value.structure_type24753 = &t95821; /* x172670 stalin.sc:25197:870668 */ t95815.s1.tag = STRUCTURE_TYPE24753; t95815.s1.value.structure_type24753 = &t95816; /* x172671 stalin.sc:25197:870668 */ t95814.s0.tag = STRUCTURE_TYPE24753; t95814.s0.value.structure_type24753 = &t95815; /* x172672 stalin.sc:25197:870668 */ t95814.s1.tag = NULL_TYPE; /* x172673 stalin.sc:25197:870668 */ t95808.s1.tag = STRUCTURE_TYPE24753; t95808.s1.value.structure_type24753 = &t95814; /* x172674 stalin.sc:25197:870668 */ t95807.s1.tag = STRUCTURE_TYPE24753; t95807.s1.value.structure_type24753 = &t95808; /* x172675 stalin.sc:25197:870668 */ t95806.s0.tag = STRUCTURE_TYPE24753; t95806.s0.value.structure_type24753 = &t95807; /* x172676 stalin.sc:25197:870668 */ t95806.s1.tag = NULL_TYPE; /* x172677 stalin.sc:25197:870668 */ t95803.s1.tag = STRUCTURE_TYPE24753; t95803.s1.value.structure_type24753 = &t95806; /* x172678 stalin.sc:25197:870668 */ t95802.s1.tag = STRUCTURE_TYPE24753; t95802.s1.value.structure_type24753 = &t95803; /* x172679 stalin.sc:25197:870668 */ t95801.s0.tag = STRUCTURE_TYPE24753; t95801.s0.value.structure_type24753 = &t95802; /* x172680 stalin.sc:25197:870668 */ t95910.s0.tag = EXTERNAL_SYMBOL_TYPE; t95910.s0.value.external_symbol_type = q97; /* x172681 stalin.sc:25197:870668 */ t95912.s0.tag = EXTERNAL_SYMBOL_TYPE; t95912.s0.value.external_symbol_type = q271; /* x172682 stalin.sc:25197:870668 */ t95913.s0.tag = EXTERNAL_SYMBOL_TYPE; t95913.s0.value.external_symbol_type = q260; /* x172683 stalin.sc:25197:870668 */ t95914.s0.tag = EXTERNAL_SYMBOL_TYPE; t95914.s0.value.external_symbol_type = q272; /* x172684 stalin.sc:25197:870668 */ t95914.s1.tag = NULL_TYPE; /* x172685 stalin.sc:25197:870668 */ t95913.s1.tag = STRUCTURE_TYPE24753; t95913.s1.value.structure_type24753 = &t95914; /* x172686 stalin.sc:25197:870668 */ t95912.s1.tag = STRUCTURE_TYPE24753; t95912.s1.value.structure_type24753 = &t95913; /* x172687 stalin.sc:25197:870668 */ t95911.s0.tag = STRUCTURE_TYPE24753; t95911.s0.value.structure_type24753 = &t95912; /* x172688 stalin.sc:25197:870668 */ t95916.s0.tag = EXTERNAL_SYMBOL_TYPE; t95916.s0.value.external_symbol_type = q242; /* x172689 stalin.sc:25197:870668 */ t95919.s0.tag = EXTERNAL_SYMBOL_TYPE; t95919.s0.value.external_symbol_type = q273; /* x172690 stalin.sc:25197:870668 */ t95921.s0.tag = EXTERNAL_SYMBOL_TYPE; t95921.s0.value.external_symbol_type = q262; /* x172691 stalin.sc:25197:870668 */ t95922.s0.tag = EXTERNAL_SYMBOL_TYPE; t95922.s0.value.external_symbol_type = q254; /* x172692 stalin.sc:25197:870668 */ t95922.s1.tag = NULL_TYPE; /* x172693 stalin.sc:25197:870668 */ t95921.s1.tag = STRUCTURE_TYPE24753; t95921.s1.value.structure_type24753 = &t95922; /* x172694 stalin.sc:25197:870668 */ t95920.s0.tag = STRUCTURE_TYPE24753; t95920.s0.value.structure_type24753 = &t95921; /* x172695 stalin.sc:25197:870668 */ t95920.s1.tag = NULL_TYPE; /* x172696 stalin.sc:25197:870668 */ t95919.s1.tag = STRUCTURE_TYPE24753; t95919.s1.value.structure_type24753 = &t95920; /* x172697 stalin.sc:25197:870668 */ t95918.s0.tag = STRUCTURE_TYPE24753; t95918.s0.value.structure_type24753 = &t95919; /* x172698 stalin.sc:25197:870668 */ t95918.s1.tag = NULL_TYPE; /* x172699 stalin.sc:25197:870668 */ t95917.s0.tag = STRUCTURE_TYPE24753; t95917.s0.value.structure_type24753 = &t95918; /* x172700 stalin.sc:25197:870668 */ t95924.s0.tag = EXTERNAL_SYMBOL_TYPE; t95924.s0.value.external_symbol_type = q240; /* x172701 stalin.sc:25197:870668 */ t95927.s0.tag = EXTERNAL_SYMBOL_TYPE; t95927.s0.value.external_symbol_type = q178; /* x172702 stalin.sc:25197:870668 */ t95928.s0.tag = EXTERNAL_SYMBOL_TYPE; t95928.s0.value.external_symbol_type = q273; /* x172703 stalin.sc:25197:870668 */ t95928.s1.tag = NULL_TYPE; /* x172704 stalin.sc:25197:870668 */ t95927.s1.tag = STRUCTURE_TYPE24753; t95927.s1.value.structure_type24753 = &t95928; /* x172705 stalin.sc:25197:870668 */ t95926.s0.tag = STRUCTURE_TYPE24753; t95926.s0.value.structure_type24753 = &t95927; /* x172706 stalin.sc:25197:870668 */ t95929.s0.tag = EXTERNAL_SYMBOL_TYPE; t95929.s0.value.external_symbol_type = q260; /* x172707 stalin.sc:25197:870668 */ t95929.s1.tag = NULL_TYPE; /* x172708 stalin.sc:25197:870668 */ t95926.s1.tag = STRUCTURE_TYPE24753; t95926.s1.value.structure_type24753 = &t95929; /* x172709 stalin.sc:25197:870668 */ t95925.s0.tag = STRUCTURE_TYPE24753; t95925.s0.value.structure_type24753 = &t95926; /* x172710 stalin.sc:25197:870668 */ t95932.s0.tag = EXTERNAL_SYMBOL_TYPE; t95932.s0.value.external_symbol_type = q269; /* x172711 stalin.sc:25197:870668 */ t95933.s0.tag = EXTERNAL_SYMBOL_TYPE; t95933.s0.value.external_symbol_type = q273; /* x172712 stalin.sc:25197:870668 */ t95933.s1.tag = NULL_TYPE; /* x172713 stalin.sc:25197:870668 */ t95932.s1.tag = STRUCTURE_TYPE24753; t95932.s1.value.structure_type24753 = &t95933; /* x172714 stalin.sc:25197:870668 */ t95931.s0.tag = STRUCTURE_TYPE24753; t95931.s0.value.structure_type24753 = &t95932; /* x172715 stalin.sc:25197:870668 */ t95935.s0.tag = EXTERNAL_SYMBOL_TYPE; t95935.s0.value.external_symbol_type = q264; /* x172716 stalin.sc:25197:870668 */ t95936.s0.tag = EXTERNAL_SYMBOL_TYPE; t95936.s0.value.external_symbol_type = q254; /* x172717 stalin.sc:25197:870668 */ t95936.s1.tag = NULL_TYPE; /* x172718 stalin.sc:25197:870668 */ t95935.s1.tag = STRUCTURE_TYPE24753; t95935.s1.value.structure_type24753 = &t95936; /* x172719 stalin.sc:25197:870668 */ t95934.s0.tag = STRUCTURE_TYPE24753; t95934.s0.value.structure_type24753 = &t95935; /* x172720 stalin.sc:25197:870668 */ t95938.s0.tag = EXTERNAL_SYMBOL_TYPE; t95938.s0.value.external_symbol_type = q271; /* x172721 stalin.sc:25197:870668 */ t95940.s0.tag = EXTERNAL_SYMBOL_TYPE; t95940.s0.value.external_symbol_type = q4; /* x172722 stalin.sc:25197:870668 */ t95941.s0.tag = EXTERNAL_SYMBOL_TYPE; t95941.s0.value.external_symbol_type = q260; /* x172723 stalin.sc:25197:870668 */ t95943.s0.tag = EXTERNAL_SYMBOL_TYPE; t95943.s0.value.external_symbol_type = q131; /* x172724 stalin.sc:25197:870668 */ t95945.s0.tag = EXTERNAL_SYMBOL_TYPE; t95945.s0.value.external_symbol_type = q2; /* x172725 stalin.sc:25197:870668 */ t95947.s0.tag = EXTERNAL_SYMBOL_TYPE; t95947.s0.value.external_symbol_type = q157; /* x172726 stalin.sc:25197:870668 */ t95948.s0.tag = EXTERNAL_SYMBOL_TYPE; t95948.s0.value.external_symbol_type = q273; /* x172727 stalin.sc:25197:870668 */ t95948.s1.tag = NULL_TYPE; /* x172728 stalin.sc:25197:870668 */ t95947.s1.tag = STRUCTURE_TYPE24753; t95947.s1.value.structure_type24753 = &t95948; /* x172729 stalin.sc:25197:870668 */ t95946.s0.tag = STRUCTURE_TYPE24753; t95946.s0.value.structure_type24753 = &t95947; /* x172730 stalin.sc:25197:870668 */ t95950.s0.tag = EXTERNAL_SYMBOL_TYPE; t95950.s0.value.external_symbol_type = q157; /* x172731 stalin.sc:25197:870668 */ t95951.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x172732 stalin.sc:25197:870668 */ t95951.s1.tag = NULL_TYPE; /* x172733 stalin.sc:25197:870668 */ t95950.s1.tag = STRUCTURE_TYPE24753; t95950.s1.value.structure_type24753 = &t95951; /* x172734 stalin.sc:25197:870668 */ t95949.s0.tag = STRUCTURE_TYPE24753; t95949.s0.value.structure_type24753 = &t95950; /* x172735 stalin.sc:25197:870668 */ t95949.s1.tag = NULL_TYPE; /* x172736 stalin.sc:25197:870668 */ t95946.s1.tag = STRUCTURE_TYPE24753; t95946.s1.value.structure_type24753 = &t95949; /* x172737 stalin.sc:25197:870668 */ t95945.s1.tag = STRUCTURE_TYPE24753; t95945.s1.value.structure_type24753 = &t95946; /* x172738 stalin.sc:25197:870668 */ t95944.s0.tag = STRUCTURE_TYPE24753; t95944.s0.value.structure_type24753 = &t95945; /* x172739 stalin.sc:25197:870668 */ t95952.s0.tag = EXTERNAL_SYMBOL_TYPE; t95952.s0.value.external_symbol_type = q272; /* x172740 stalin.sc:25197:870668 */ t95952.s1.tag = NULL_TYPE; /* x172741 stalin.sc:25197:870668 */ t95944.s1.tag = STRUCTURE_TYPE24753; t95944.s1.value.structure_type24753 = &t95952; /* x172742 stalin.sc:25197:870668 */ t95943.s1.tag = STRUCTURE_TYPE24753; t95943.s1.value.structure_type24753 = &t95944; /* x172743 stalin.sc:25197:870668 */ t95942.s0.tag = STRUCTURE_TYPE24753; t95942.s0.value.structure_type24753 = &t95943; /* x172744 stalin.sc:25197:870668 */ t95942.s1.tag = NULL_TYPE; /* x172745 stalin.sc:25197:870668 */ t95941.s1.tag = STRUCTURE_TYPE24753; t95941.s1.value.structure_type24753 = &t95942; /* x172746 stalin.sc:25197:870668 */ t95940.s1.tag = STRUCTURE_TYPE24753; t95940.s1.value.structure_type24753 = &t95941; /* x172747 stalin.sc:25197:870668 */ t95939.s0.tag = STRUCTURE_TYPE24753; t95939.s0.value.structure_type24753 = &t95940; /* x172748 stalin.sc:25197:870668 */ t95954.s0.tag = EXTERNAL_SYMBOL_TYPE; t95954.s0.value.external_symbol_type = q130; /* x172749 stalin.sc:25197:870668 */ t95955.s0.tag = EXTERNAL_SYMBOL_TYPE; t95955.s0.value.external_symbol_type = q272; /* x172750 stalin.sc:25197:870668 */ t95956.s0.tag = FLONUM_TYPE; t95956.s0.value.flonum_type = 1.0e1; /* x172751 stalin.sc:25197:870668 */ t95956.s1.tag = NULL_TYPE; /* x172752 stalin.sc:25197:870668 */ t95955.s1.tag = STRUCTURE_TYPE24753; t95955.s1.value.structure_type24753 = &t95956; /* x172753 stalin.sc:25197:870668 */ t95954.s1.tag = STRUCTURE_TYPE24753; t95954.s1.value.structure_type24753 = &t95955; /* x172754 stalin.sc:25197:870668 */ t95953.s0.tag = STRUCTURE_TYPE24753; t95953.s0.value.structure_type24753 = &t95954; /* x172755 stalin.sc:25197:870668 */ t95953.s1.tag = NULL_TYPE; /* x172756 stalin.sc:25197:870668 */ t95939.s1.tag = STRUCTURE_TYPE24753; t95939.s1.value.structure_type24753 = &t95953; /* x172757 stalin.sc:25197:870668 */ t95938.s1.tag = STRUCTURE_TYPE24753; t95938.s1.value.structure_type24753 = &t95939; /* x172758 stalin.sc:25197:870668 */ t95937.s0.tag = STRUCTURE_TYPE24753; t95937.s0.value.structure_type24753 = &t95938; /* x172759 stalin.sc:25197:870668 */ t95937.s1.tag = NULL_TYPE; /* x172760 stalin.sc:25197:870668 */ t95934.s1.tag = STRUCTURE_TYPE24753; t95934.s1.value.structure_type24753 = &t95937; /* x172761 stalin.sc:25197:870668 */ t95931.s1.tag = STRUCTURE_TYPE24753; t95931.s1.value.structure_type24753 = &t95934; /* x172762 stalin.sc:25197:870668 */ t95930.s0.tag = STRUCTURE_TYPE24753; t95930.s0.value.structure_type24753 = &t95931; /* x172763 stalin.sc:25197:870668 */ t95959.s0.tag = EXTERNAL_SYMBOL_TYPE; t95959.s0.value.external_symbol_type = q241; /* x172764 stalin.sc:25197:870668 */ t95961.s0.tag = EXTERNAL_SYMBOL_TYPE; t95961.s0.value.external_symbol_type = q263; /* x172765 stalin.sc:25197:870668 */ t95962.s0.tag = EXTERNAL_SYMBOL_TYPE; t95962.s0.value.external_symbol_type = q273; /* x172766 stalin.sc:25197:870668 */ t95963.s0.tag = ((unsigned)((unsigned char)'e'))<<2; /* x172767 stalin.sc:25197:870668 */ t95963.s1.tag = NULL_TYPE; /* x172768 stalin.sc:25197:870668 */ t95962.s1.tag = STRUCTURE_TYPE24753; t95962.s1.value.structure_type24753 = &t95963; /* x172769 stalin.sc:25197:870668 */ t95961.s1.tag = STRUCTURE_TYPE24753; t95961.s1.value.structure_type24753 = &t95962; /* x172770 stalin.sc:25197:870668 */ t95960.s0.tag = STRUCTURE_TYPE24753; t95960.s0.value.structure_type24753 = &t95961; /* x172771 stalin.sc:25197:870668 */ t95965.s0.tag = EXTERNAL_SYMBOL_TYPE; t95965.s0.value.external_symbol_type = q263; /* x172772 stalin.sc:25197:870668 */ t95966.s0.tag = EXTERNAL_SYMBOL_TYPE; t95966.s0.value.external_symbol_type = q273; /* x172773 stalin.sc:25197:870668 */ t95967.s0.tag = ((unsigned)((unsigned char)'E'))<<2; /* x172774 stalin.sc:25197:870668 */ t95967.s1.tag = NULL_TYPE; /* x172775 stalin.sc:25197:870668 */ t95966.s1.tag = STRUCTURE_TYPE24753; t95966.s1.value.structure_type24753 = &t95967; /* x172776 stalin.sc:25197:870668 */ t95965.s1.tag = STRUCTURE_TYPE24753; t95965.s1.value.structure_type24753 = &t95966; /* x172777 stalin.sc:25197:870668 */ t95964.s0.tag = STRUCTURE_TYPE24753; t95964.s0.value.structure_type24753 = &t95965; /* x172778 stalin.sc:25197:870668 */ t95969.s0.tag = EXTERNAL_SYMBOL_TYPE; t95969.s0.value.external_symbol_type = q263; /* x172779 stalin.sc:25197:870668 */ t95970.s0.tag = EXTERNAL_SYMBOL_TYPE; t95970.s0.value.external_symbol_type = q273; /* x172780 stalin.sc:25197:870668 */ t95971.s0.tag = ((unsigned)((unsigned char)'s'))<<2; /* x172781 stalin.sc:25197:870668 */ t95971.s1.tag = NULL_TYPE; /* x172782 stalin.sc:25197:870668 */ t95970.s1.tag = STRUCTURE_TYPE24753; t95970.s1.value.structure_type24753 = &t95971; /* x172783 stalin.sc:25197:870668 */ t95969.s1.tag = STRUCTURE_TYPE24753; t95969.s1.value.structure_type24753 = &t95970; /* x172784 stalin.sc:25197:870668 */ t95968.s0.tag = STRUCTURE_TYPE24753; t95968.s0.value.structure_type24753 = &t95969; /* x172785 stalin.sc:25197:870668 */ t95973.s0.tag = EXTERNAL_SYMBOL_TYPE; t95973.s0.value.external_symbol_type = q263; /* x172786 stalin.sc:25197:870668 */ t95974.s0.tag = EXTERNAL_SYMBOL_TYPE; t95974.s0.value.external_symbol_type = q273; /* x172787 stalin.sc:25197:870668 */ t95975.s0.tag = ((unsigned)((unsigned char)'S'))<<2; /* x172788 stalin.sc:25197:870668 */ t95975.s1.tag = NULL_TYPE; /* x172789 stalin.sc:25197:870668 */ t95974.s1.tag = STRUCTURE_TYPE24753; t95974.s1.value.structure_type24753 = &t95975; /* x172790 stalin.sc:25197:870668 */ t95973.s1.tag = STRUCTURE_TYPE24753; t95973.s1.value.structure_type24753 = &t95974; /* x172791 stalin.sc:25197:870668 */ t95972.s0.tag = STRUCTURE_TYPE24753; t95972.s0.value.structure_type24753 = &t95973; /* x172792 stalin.sc:25197:870668 */ t95977.s0.tag = EXTERNAL_SYMBOL_TYPE; t95977.s0.value.external_symbol_type = q263; /* x172793 stalin.sc:25197:870668 */ t95978.s0.tag = EXTERNAL_SYMBOL_TYPE; t95978.s0.value.external_symbol_type = q273; /* x172794 stalin.sc:25197:870668 */ t95979.s0.tag = ((unsigned)((unsigned char)'f'))<<2; /* x172795 stalin.sc:25197:870668 */ t95979.s1.tag = NULL_TYPE; /* x172796 stalin.sc:25197:870668 */ t95978.s1.tag = STRUCTURE_TYPE24753; t95978.s1.value.structure_type24753 = &t95979; /* x172797 stalin.sc:25197:870668 */ t95977.s1.tag = STRUCTURE_TYPE24753; t95977.s1.value.structure_type24753 = &t95978; /* x172798 stalin.sc:25197:870668 */ t95976.s0.tag = STRUCTURE_TYPE24753; t95976.s0.value.structure_type24753 = &t95977; /* x172799 stalin.sc:25197:870668 */ t95981.s0.tag = EXTERNAL_SYMBOL_TYPE; t95981.s0.value.external_symbol_type = q263; /* x172800 stalin.sc:25197:870668 */ t95982.s0.tag = EXTERNAL_SYMBOL_TYPE; t95982.s0.value.external_symbol_type = q273; /* x172801 stalin.sc:25197:870668 */ t95983.s0.tag = ((unsigned)((unsigned char)'F'))<<2; /* x172802 stalin.sc:25197:870668 */ t95983.s1.tag = NULL_TYPE; /* x172803 stalin.sc:25197:870668 */ t95982.s1.tag = STRUCTURE_TYPE24753; t95982.s1.value.structure_type24753 = &t95983; /* x172804 stalin.sc:25197:870668 */ t95981.s1.tag = STRUCTURE_TYPE24753; t95981.s1.value.structure_type24753 = &t95982; /* x172805 stalin.sc:25197:870668 */ t95980.s0.tag = STRUCTURE_TYPE24753; t95980.s0.value.structure_type24753 = &t95981; /* x172806 stalin.sc:25197:870668 */ t95985.s0.tag = EXTERNAL_SYMBOL_TYPE; t95985.s0.value.external_symbol_type = q263; /* x172807 stalin.sc:25197:870668 */ t95986.s0.tag = EXTERNAL_SYMBOL_TYPE; t95986.s0.value.external_symbol_type = q273; /* x172808 stalin.sc:25197:870668 */ t95987.s0.tag = ((unsigned)((unsigned char)'d'))<<2; /* x172809 stalin.sc:25197:870668 */ t95987.s1.tag = NULL_TYPE; /* x172810 stalin.sc:25197:870668 */ t95986.s1.tag = STRUCTURE_TYPE24753; t95986.s1.value.structure_type24753 = &t95987; /* x172811 stalin.sc:25197:870668 */ t95985.s1.tag = STRUCTURE_TYPE24753; t95985.s1.value.structure_type24753 = &t95986; /* x172812 stalin.sc:25197:870668 */ t95984.s0.tag = STRUCTURE_TYPE24753; t95984.s0.value.structure_type24753 = &t95985; /* x172813 stalin.sc:25197:870668 */ t95989.s0.tag = EXTERNAL_SYMBOL_TYPE; t95989.s0.value.external_symbol_type = q263; /* x172814 stalin.sc:25197:870668 */ t95990.s0.tag = EXTERNAL_SYMBOL_TYPE; t95990.s0.value.external_symbol_type = q273; /* x172815 stalin.sc:25197:870668 */ t95991.s0.tag = ((unsigned)((unsigned char)'D'))<<2; /* x172816 stalin.sc:25197:870668 */ t95991.s1.tag = NULL_TYPE; /* x172817 stalin.sc:25197:870668 */ t95990.s1.tag = STRUCTURE_TYPE24753; t95990.s1.value.structure_type24753 = &t95991; /* x172818 stalin.sc:25197:870668 */ t95989.s1.tag = STRUCTURE_TYPE24753; t95989.s1.value.structure_type24753 = &t95990; /* x172819 stalin.sc:25197:870668 */ t95988.s0.tag = STRUCTURE_TYPE24753; t95988.s0.value.structure_type24753 = &t95989; /* x172820 stalin.sc:25197:870668 */ t95993.s0.tag = EXTERNAL_SYMBOL_TYPE; t95993.s0.value.external_symbol_type = q263; /* x172821 stalin.sc:25197:870668 */ t95994.s0.tag = EXTERNAL_SYMBOL_TYPE; t95994.s0.value.external_symbol_type = q273; /* x172822 stalin.sc:25197:870668 */ t95995.s0.tag = ((unsigned)((unsigned char)'l'))<<2; /* x172823 stalin.sc:25197:870668 */ t95995.s1.tag = NULL_TYPE; /* x172824 stalin.sc:25197:870668 */ t95994.s1.tag = STRUCTURE_TYPE24753; t95994.s1.value.structure_type24753 = &t95995; /* x172825 stalin.sc:25197:870668 */ t95993.s1.tag = STRUCTURE_TYPE24753; t95993.s1.value.structure_type24753 = &t95994; /* x172826 stalin.sc:25197:870668 */ t95992.s0.tag = STRUCTURE_TYPE24753; t95992.s0.value.structure_type24753 = &t95993; /* x172827 stalin.sc:25197:870668 */ t95997.s0.tag = EXTERNAL_SYMBOL_TYPE; t95997.s0.value.external_symbol_type = q263; /* x172828 stalin.sc:25197:870668 */ t95998.s0.tag = EXTERNAL_SYMBOL_TYPE; t95998.s0.value.external_symbol_type = q273; /* x172829 stalin.sc:25197:870668 */ t95999.s0.tag = ((unsigned)((unsigned char)'L'))<<2; /* x172830 stalin.sc:25197:870668 */ t95999.s1.tag = NULL_TYPE; /* x172831 stalin.sc:25197:870668 */ t95998.s1.tag = STRUCTURE_TYPE24753; t95998.s1.value.structure_type24753 = &t95999; /* x172832 stalin.sc:25197:870668 */ t95997.s1.tag = STRUCTURE_TYPE24753; t95997.s1.value.structure_type24753 = &t95998; /* x172833 stalin.sc:25197:870668 */ t95996.s0.tag = STRUCTURE_TYPE24753; t95996.s0.value.structure_type24753 = &t95997; /* x172834 stalin.sc:25197:870668 */ t95996.s1.tag = NULL_TYPE; /* x172835 stalin.sc:25197:870668 */ t95992.s1.tag = STRUCTURE_TYPE24753; t95992.s1.value.structure_type24753 = &t95996; /* x172836 stalin.sc:25197:870668 */ t95988.s1.tag = STRUCTURE_TYPE24753; t95988.s1.value.structure_type24753 = &t95992; /* x172837 stalin.sc:25197:870668 */ t95984.s1.tag = STRUCTURE_TYPE24753; t95984.s1.value.structure_type24753 = &t95988; /* x172838 stalin.sc:25197:870668 */ t95980.s1.tag = STRUCTURE_TYPE24753; t95980.s1.value.structure_type24753 = &t95984; /* x172839 stalin.sc:25197:870668 */ t95976.s1.tag = STRUCTURE_TYPE24753; t95976.s1.value.structure_type24753 = &t95980; /* x172840 stalin.sc:25197:870668 */ t95972.s1.tag = STRUCTURE_TYPE24753; t95972.s1.value.structure_type24753 = &t95976; /* x172841 stalin.sc:25197:870668 */ t95968.s1.tag = STRUCTURE_TYPE24753; t95968.s1.value.structure_type24753 = &t95972; /* x172842 stalin.sc:25197:870668 */ t95964.s1.tag = STRUCTURE_TYPE24753; t95964.s1.value.structure_type24753 = &t95968; /* x172843 stalin.sc:25197:870668 */ t95960.s1.tag = STRUCTURE_TYPE24753; t95960.s1.value.structure_type24753 = &t95964; /* x172844 stalin.sc:25197:870668 */ t95959.s1.tag = STRUCTURE_TYPE24753; t95959.s1.value.structure_type24753 = &t95960; /* x172845 stalin.sc:25197:870668 */ t95958.s0.tag = STRUCTURE_TYPE24753; t95958.s0.value.structure_type24753 = &t95959; /* x172846 stalin.sc:25197:870668 */ t96001.s0.tag = EXTERNAL_SYMBOL_TYPE; t96001.s0.value.external_symbol_type = q264; /* x172847 stalin.sc:25197:870668 */ t96002.s0.tag = EXTERNAL_SYMBOL_TYPE; t96002.s0.value.external_symbol_type = q254; /* x172848 stalin.sc:25197:870668 */ t96002.s1.tag = NULL_TYPE; /* x172849 stalin.sc:25197:870668 */ t96001.s1.tag = STRUCTURE_TYPE24753; t96001.s1.value.structure_type24753 = &t96002; /* x172850 stalin.sc:25197:870668 */ t96000.s0.tag = STRUCTURE_TYPE24753; t96000.s0.value.structure_type24753 = &t96001; /* x172851 stalin.sc:25197:870668 */ t96004.s0.tag = EXTERNAL_SYMBOL_TYPE; t96004.s0.value.external_symbol_type = q242; /* x172852 stalin.sc:25197:870668 */ t96007.s0.tag = EXTERNAL_SYMBOL_TYPE; t96007.s0.value.external_symbol_type = q274; /* x172853 stalin.sc:25197:870668 */ t96009.s0.tag = EXTERNAL_SYMBOL_TYPE; t96009.s0.value.external_symbol_type = q264; /* x172854 stalin.sc:25197:870668 */ t96010.s0.tag = EXTERNAL_SYMBOL_TYPE; t96010.s0.value.external_symbol_type = q254; /* x172855 stalin.sc:25197:870668 */ t96010.s1.tag = NULL_TYPE; /* x172856 stalin.sc:25197:870668 */ t96009.s1.tag = STRUCTURE_TYPE24753; t96009.s1.value.structure_type24753 = &t96010; /* x172857 stalin.sc:25197:870668 */ t96008.s0.tag = STRUCTURE_TYPE24753; t96008.s0.value.structure_type24753 = &t96009; /* x172858 stalin.sc:25197:870668 */ t96008.s1.tag = NULL_TYPE; /* x172859 stalin.sc:25197:870668 */ t96007.s1.tag = STRUCTURE_TYPE24753; t96007.s1.value.structure_type24753 = &t96008; /* x172860 stalin.sc:25197:870668 */ t96006.s0.tag = STRUCTURE_TYPE24753; t96006.s0.value.structure_type24753 = &t96007; /* x172861 stalin.sc:25197:870668 */ t96006.s1.tag = NULL_TYPE; /* x172862 stalin.sc:25197:870668 */ t96005.s0.tag = STRUCTURE_TYPE24753; t96005.s0.value.structure_type24753 = &t96006; /* x172863 stalin.sc:25197:870668 */ t96012.s0.tag = EXTERNAL_SYMBOL_TYPE; t96012.s0.value.external_symbol_type = q43; /* x172864 stalin.sc:25197:870668 */ t96014.s0.tag = EXTERNAL_SYMBOL_TYPE; t96014.s0.value.external_symbol_type = q178; /* x172865 stalin.sc:25197:870668 */ t96015.s0.tag = EXTERNAL_SYMBOL_TYPE; t96015.s0.value.external_symbol_type = q274; /* x172866 stalin.sc:25197:870668 */ t96015.s1.tag = NULL_TYPE; /* x172867 stalin.sc:25197:870668 */ t96014.s1.tag = STRUCTURE_TYPE24753; t96014.s1.value.structure_type24753 = &t96015; /* x172868 stalin.sc:25197:870668 */ t96013.s0.tag = STRUCTURE_TYPE24753; t96013.s0.value.structure_type24753 = &t96014; /* x172869 stalin.sc:25197:870668 */ t96017.s0.tag = EXTERNAL_SYMBOL_TYPE; t96017.s0.value.external_symbol_type = q179; /* x172870 stalin.sc:25197:870668 */ t96018.s0.tag = STRING_TYPE; t96018.s0.value.string_type = "EOF while reading exponent"; /* x172871 stalin.sc:25197:870668 */ t96018.s1.tag = NULL_TYPE; /* x172872 stalin.sc:25197:870668 */ t96017.s1.tag = STRUCTURE_TYPE24753; t96017.s1.value.structure_type24753 = &t96018; /* x172873 stalin.sc:25197:870668 */ t96016.s0.tag = STRUCTURE_TYPE24753; t96016.s0.value.structure_type24753 = &t96017; /* x172874 stalin.sc:25197:870668 */ t96016.s1.tag = NULL_TYPE; /* x172875 stalin.sc:25197:870668 */ t96013.s1.tag = STRUCTURE_TYPE24753; t96013.s1.value.structure_type24753 = &t96016; /* x172876 stalin.sc:25197:870668 */ t96012.s1.tag = STRUCTURE_TYPE24753; t96012.s1.value.structure_type24753 = &t96013; /* x172877 stalin.sc:25197:870668 */ t96011.s0.tag = STRUCTURE_TYPE24753; t96011.s0.value.structure_type24753 = &t96012; /* x172878 stalin.sc:25197:870668 */ t96020.s0.tag = EXTERNAL_SYMBOL_TYPE; t96020.s0.value.external_symbol_type = q240; /* x172879 stalin.sc:25197:870668 */ t96023.s0.tag = EXTERNAL_SYMBOL_TYPE; t96023.s0.value.external_symbol_type = q269; /* x172880 stalin.sc:25197:870668 */ t96024.s0.tag = EXTERNAL_SYMBOL_TYPE; t96024.s0.value.external_symbol_type = q274; /* x172881 stalin.sc:25197:870668 */ t96024.s1.tag = NULL_TYPE; /* x172882 stalin.sc:25197:870668 */ t96023.s1.tag = STRUCTURE_TYPE24753; t96023.s1.value.structure_type24753 = &t96024; /* x172883 stalin.sc:25197:870668 */ t96022.s0.tag = STRUCTURE_TYPE24753; t96022.s0.value.structure_type24753 = &t96023; /* x172884 stalin.sc:25197:870668 */ t96026.s0.tag = EXTERNAL_SYMBOL_TYPE; t96026.s0.value.external_symbol_type = q130; /* x172885 stalin.sc:25197:870668 */ t96027.s0.tag = EXTERNAL_SYMBOL_TYPE; t96027.s0.value.external_symbol_type = q260; /* x172886 stalin.sc:25197:870668 */ t96029.s0.tag = EXTERNAL_SYMBOL_TYPE; t96029.s0.value.external_symbol_type = q153; /* x172887 stalin.sc:25197:870668 */ t96030.s0.tag = FLONUM_TYPE; t96030.s0.value.flonum_type = 1.0e1; /* x172888 stalin.sc:25197:870668 */ t96032.s0.tag = EXTERNAL_SYMBOL_TYPE; t96032.s0.value.external_symbol_type = q268; /* x172889 stalin.sc:25197:870668 */ t96034.s0.tag = EXTERNAL_SYMBOL_TYPE; t96034.s0.value.external_symbol_type = q2; /* x172890 stalin.sc:25197:870668 */ t96036.s0.tag = EXTERNAL_SYMBOL_TYPE; t96036.s0.value.external_symbol_type = q157; /* x172891 stalin.sc:25197:870668 */ t96037.s0.tag = EXTERNAL_SYMBOL_TYPE; t96037.s0.value.external_symbol_type = q274; /* x172892 stalin.sc:25197:870668 */ t96037.s1.tag = NULL_TYPE; /* x172893 stalin.sc:25197:870668 */ t96036.s1.tag = STRUCTURE_TYPE24753; t96036.s1.value.structure_type24753 = &t96037; /* x172894 stalin.sc:25197:870668 */ t96035.s0.tag = STRUCTURE_TYPE24753; t96035.s0.value.structure_type24753 = &t96036; /* x172895 stalin.sc:25197:870668 */ t96039.s0.tag = EXTERNAL_SYMBOL_TYPE; t96039.s0.value.external_symbol_type = q157; /* x172896 stalin.sc:25197:870668 */ t96040.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x172897 stalin.sc:25197:870668 */ t96040.s1.tag = NULL_TYPE; /* x172898 stalin.sc:25197:870668 */ t96039.s1.tag = STRUCTURE_TYPE24753; t96039.s1.value.structure_type24753 = &t96040; /* x172899 stalin.sc:25197:870668 */ t96038.s0.tag = STRUCTURE_TYPE24753; t96038.s0.value.structure_type24753 = &t96039; /* x172900 stalin.sc:25197:870668 */ t96038.s1.tag = NULL_TYPE; /* x172901 stalin.sc:25197:870668 */ t96035.s1.tag = STRUCTURE_TYPE24753; t96035.s1.value.structure_type24753 = &t96038; /* x172902 stalin.sc:25197:870668 */ t96034.s1.tag = STRUCTURE_TYPE24753; t96034.s1.value.structure_type24753 = &t96035; /* x172903 stalin.sc:25197:870668 */ t96033.s0.tag = STRUCTURE_TYPE24753; t96033.s0.value.structure_type24753 = &t96034; /* x172904 stalin.sc:25197:870668 */ t96033.s1.tag = NULL_TYPE; /* x172905 stalin.sc:25197:870668 */ t96032.s1.tag = STRUCTURE_TYPE24753; t96032.s1.value.structure_type24753 = &t96033; /* x172906 stalin.sc:25197:870668 */ t96031.s0.tag = STRUCTURE_TYPE24753; t96031.s0.value.structure_type24753 = &t96032; /* x172907 stalin.sc:25197:870668 */ t96031.s1.tag = NULL_TYPE; /* x172908 stalin.sc:25197:870668 */ t96030.s1.tag = STRUCTURE_TYPE24753; t96030.s1.value.structure_type24753 = &t96031; /* x172909 stalin.sc:25197:870668 */ t96029.s1.tag = STRUCTURE_TYPE24753; t96029.s1.value.structure_type24753 = &t96030; /* x172910 stalin.sc:25197:870668 */ t96028.s0.tag = STRUCTURE_TYPE24753; t96028.s0.value.structure_type24753 = &t96029; /* x172911 stalin.sc:25197:870668 */ t96028.s1.tag = NULL_TYPE; /* x172912 stalin.sc:25197:870668 */ t96027.s1.tag = STRUCTURE_TYPE24753; t96027.s1.value.structure_type24753 = &t96028; /* x172913 stalin.sc:25197:870668 */ t96026.s1.tag = STRUCTURE_TYPE24753; t96026.s1.value.structure_type24753 = &t96027; /* x172914 stalin.sc:25197:870668 */ t96025.s0.tag = STRUCTURE_TYPE24753; t96025.s0.value.structure_type24753 = &t96026; /* x172915 stalin.sc:25197:870668 */ t96025.s1.tag = NULL_TYPE; /* x172916 stalin.sc:25197:870668 */ t96022.s1.tag = STRUCTURE_TYPE24753; t96022.s1.value.structure_type24753 = &t96025; /* x172917 stalin.sc:25197:870668 */ t96021.s0.tag = STRUCTURE_TYPE24753; t96021.s0.value.structure_type24753 = &t96022; /* x172918 stalin.sc:25197:870668 */ t96043.s0.tag = EXTERNAL_SYMBOL_TYPE; t96043.s0.value.external_symbol_type = q263; /* x172919 stalin.sc:25197:870668 */ t96044.s0.tag = EXTERNAL_SYMBOL_TYPE; t96044.s0.value.external_symbol_type = q274; /* x172920 stalin.sc:25197:870668 */ t96045.s0.tag = ((unsigned)((unsigned char)'+'))<<2; /* x172921 stalin.sc:25197:870668 */ t96045.s1.tag = NULL_TYPE; /* x172922 stalin.sc:25197:870668 */ t96044.s1.tag = STRUCTURE_TYPE24753; t96044.s1.value.structure_type24753 = &t96045; /* x172923 stalin.sc:25197:870668 */ t96043.s1.tag = STRUCTURE_TYPE24753; t96043.s1.value.structure_type24753 = &t96044; /* x172924 stalin.sc:25197:870668 */ t96042.s0.tag = STRUCTURE_TYPE24753; t96042.s0.value.structure_type24753 = &t96043; /* x172925 stalin.sc:25197:870668 */ t96047.s0.tag = EXTERNAL_SYMBOL_TYPE; t96047.s0.value.external_symbol_type = q242; /* x172926 stalin.sc:25197:870668 */ t96050.s0.tag = EXTERNAL_SYMBOL_TYPE; t96050.s0.value.external_symbol_type = q275; /* x172927 stalin.sc:25197:870668 */ t96052.s0.tag = EXTERNAL_SYMBOL_TYPE; t96052.s0.value.external_symbol_type = q264; /* x172928 stalin.sc:25197:870668 */ t96053.s0.tag = EXTERNAL_SYMBOL_TYPE; t96053.s0.value.external_symbol_type = q254; /* x172929 stalin.sc:25197:870668 */ t96053.s1.tag = NULL_TYPE; /* x172930 stalin.sc:25197:870668 */ t96052.s1.tag = STRUCTURE_TYPE24753; t96052.s1.value.structure_type24753 = &t96053; /* x172931 stalin.sc:25197:870668 */ t96051.s0.tag = STRUCTURE_TYPE24753; t96051.s0.value.structure_type24753 = &t96052; /* x172932 stalin.sc:25197:870668 */ t96051.s1.tag = NULL_TYPE; /* x172933 stalin.sc:25197:870668 */ t96050.s1.tag = STRUCTURE_TYPE24753; t96050.s1.value.structure_type24753 = &t96051; /* x172934 stalin.sc:25197:870668 */ t96049.s0.tag = STRUCTURE_TYPE24753; t96049.s0.value.structure_type24753 = &t96050; /* x172935 stalin.sc:25197:870668 */ t96049.s1.tag = NULL_TYPE; /* x172936 stalin.sc:25197:870668 */ t96048.s0.tag = STRUCTURE_TYPE24753; t96048.s0.value.structure_type24753 = &t96049; /* x172937 stalin.sc:25197:870668 */ t96055.s0.tag = EXTERNAL_SYMBOL_TYPE; t96055.s0.value.external_symbol_type = q43; /* x172938 stalin.sc:25197:870668 */ t96057.s0.tag = EXTERNAL_SYMBOL_TYPE; t96057.s0.value.external_symbol_type = q178; /* x172939 stalin.sc:25197:870668 */ t96058.s0.tag = EXTERNAL_SYMBOL_TYPE; t96058.s0.value.external_symbol_type = q275; /* x172940 stalin.sc:25197:870668 */ t96058.s1.tag = NULL_TYPE; /* x172941 stalin.sc:25197:870668 */ t96057.s1.tag = STRUCTURE_TYPE24753; t96057.s1.value.structure_type24753 = &t96058; /* x172942 stalin.sc:25197:870668 */ t96056.s0.tag = STRUCTURE_TYPE24753; t96056.s0.value.structure_type24753 = &t96057; /* x172943 stalin.sc:25197:870668 */ t96060.s0.tag = EXTERNAL_SYMBOL_TYPE; t96060.s0.value.external_symbol_type = q179; /* x172944 stalin.sc:25197:870668 */ t96061.s0.tag = STRING_TYPE; t96061.s0.value.string_type = "EOF while reading exponent"; /* x172945 stalin.sc:25197:870668 */ t96061.s1.tag = NULL_TYPE; /* x172946 stalin.sc:25197:870668 */ t96060.s1.tag = STRUCTURE_TYPE24753; t96060.s1.value.structure_type24753 = &t96061; /* x172947 stalin.sc:25197:870668 */ t96059.s0.tag = STRUCTURE_TYPE24753; t96059.s0.value.structure_type24753 = &t96060; /* x172948 stalin.sc:25197:870668 */ t96059.s1.tag = NULL_TYPE; /* x172949 stalin.sc:25197:870668 */ t96056.s1.tag = STRUCTURE_TYPE24753; t96056.s1.value.structure_type24753 = &t96059; /* x172950 stalin.sc:25197:870668 */ t96055.s1.tag = STRUCTURE_TYPE24753; t96055.s1.value.structure_type24753 = &t96056; /* x172951 stalin.sc:25197:870668 */ t96054.s0.tag = STRUCTURE_TYPE24753; t96054.s0.value.structure_type24753 = &t96055; /* x172952 stalin.sc:25197:870668 */ t96063.s0.tag = EXTERNAL_SYMBOL_TYPE; t96063.s0.value.external_symbol_type = q43; /* x172953 stalin.sc:25197:870668 */ t96065.s0.tag = EXTERNAL_SYMBOL_TYPE; t96065.s0.value.external_symbol_type = q102; /* x172954 stalin.sc:25197:870668 */ t96067.s0.tag = EXTERNAL_SYMBOL_TYPE; t96067.s0.value.external_symbol_type = q269; /* x172955 stalin.sc:25197:870668 */ t96068.s0.tag = EXTERNAL_SYMBOL_TYPE; t96068.s0.value.external_symbol_type = q275; /* x172956 stalin.sc:25197:870668 */ t96068.s1.tag = NULL_TYPE; /* x172957 stalin.sc:25197:870668 */ t96067.s1.tag = STRUCTURE_TYPE24753; t96067.s1.value.structure_type24753 = &t96068; /* x172958 stalin.sc:25197:870668 */ t96066.s0.tag = STRUCTURE_TYPE24753; t96066.s0.value.structure_type24753 = &t96067; /* x172959 stalin.sc:25197:870668 */ t96066.s1.tag = NULL_TYPE; /* x172960 stalin.sc:25197:870668 */ t96065.s1.tag = STRUCTURE_TYPE24753; t96065.s1.value.structure_type24753 = &t96066; /* x172961 stalin.sc:25197:870668 */ t96064.s0.tag = STRUCTURE_TYPE24753; t96064.s0.value.structure_type24753 = &t96065; /* x172962 stalin.sc:25197:870668 */ t96070.s0.tag = EXTERNAL_SYMBOL_TYPE; t96070.s0.value.external_symbol_type = q179; /* x172963 stalin.sc:25197:870668 */ t96071.s0.tag = STRING_TYPE; t96071.s0.value.string_type = "Unfinished exponent"; /* x172964 stalin.sc:25197:870668 */ t96071.s1.tag = NULL_TYPE; /* x172965 stalin.sc:25197:870668 */ t96070.s1.tag = STRUCTURE_TYPE24753; t96070.s1.value.structure_type24753 = &t96071; /* x172966 stalin.sc:25197:870668 */ t96069.s0.tag = STRUCTURE_TYPE24753; t96069.s0.value.structure_type24753 = &t96070; /* x172967 stalin.sc:25197:870668 */ t96069.s1.tag = NULL_TYPE; /* x172968 stalin.sc:25197:870668 */ t96064.s1.tag = STRUCTURE_TYPE24753; t96064.s1.value.structure_type24753 = &t96069; /* x172969 stalin.sc:25197:870668 */ t96063.s1.tag = STRUCTURE_TYPE24753; t96063.s1.value.structure_type24753 = &t96064; /* x172970 stalin.sc:25197:870668 */ t96062.s0.tag = STRUCTURE_TYPE24753; t96062.s0.value.structure_type24753 = &t96063; /* x172971 stalin.sc:25197:870668 */ t96073.s0.tag = EXTERNAL_SYMBOL_TYPE; t96073.s0.value.external_symbol_type = q130; /* x172972 stalin.sc:25197:870668 */ t96074.s0.tag = EXTERNAL_SYMBOL_TYPE; t96074.s0.value.external_symbol_type = q260; /* x172973 stalin.sc:25197:870668 */ t96076.s0.tag = EXTERNAL_SYMBOL_TYPE; t96076.s0.value.external_symbol_type = q153; /* x172974 stalin.sc:25197:870668 */ t96077.s0.tag = FLONUM_TYPE; t96077.s0.value.flonum_type = 1.0e1; /* x172975 stalin.sc:25197:870668 */ t96079.s0.tag = EXTERNAL_SYMBOL_TYPE; t96079.s0.value.external_symbol_type = q268; /* x172976 stalin.sc:25197:870668 */ t96081.s0.tag = EXTERNAL_SYMBOL_TYPE; t96081.s0.value.external_symbol_type = q2; /* x172977 stalin.sc:25197:870668 */ t96083.s0.tag = EXTERNAL_SYMBOL_TYPE; t96083.s0.value.external_symbol_type = q157; /* x172978 stalin.sc:25197:870668 */ t96084.s0.tag = EXTERNAL_SYMBOL_TYPE; t96084.s0.value.external_symbol_type = q275; /* x172979 stalin.sc:25197:870668 */ t96084.s1.tag = NULL_TYPE; /* x172980 stalin.sc:25197:870668 */ t96083.s1.tag = STRUCTURE_TYPE24753; t96083.s1.value.structure_type24753 = &t96084; /* x172981 stalin.sc:25197:870668 */ t96082.s0.tag = STRUCTURE_TYPE24753; t96082.s0.value.structure_type24753 = &t96083; /* x172982 stalin.sc:25197:870668 */ t96086.s0.tag = EXTERNAL_SYMBOL_TYPE; t96086.s0.value.external_symbol_type = q157; /* x172983 stalin.sc:25197:870668 */ t96087.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x172984 stalin.sc:25197:870668 */ t96087.s1.tag = NULL_TYPE; /* x172985 stalin.sc:25197:870668 */ t96086.s1.tag = STRUCTURE_TYPE24753; t96086.s1.value.structure_type24753 = &t96087; /* x172986 stalin.sc:25197:870668 */ t96085.s0.tag = STRUCTURE_TYPE24753; t96085.s0.value.structure_type24753 = &t96086; /* x172987 stalin.sc:25197:870668 */ t96085.s1.tag = NULL_TYPE; /* x172988 stalin.sc:25197:870668 */ t96082.s1.tag = STRUCTURE_TYPE24753; t96082.s1.value.structure_type24753 = &t96085; /* x172989 stalin.sc:25197:870668 */ t96081.s1.tag = STRUCTURE_TYPE24753; t96081.s1.value.structure_type24753 = &t96082; /* x172990 stalin.sc:25197:870668 */ t96080.s0.tag = STRUCTURE_TYPE24753; t96080.s0.value.structure_type24753 = &t96081; /* x172991 stalin.sc:25197:870668 */ t96080.s1.tag = NULL_TYPE; /* x172992 stalin.sc:25197:870668 */ t96079.s1.tag = STRUCTURE_TYPE24753; t96079.s1.value.structure_type24753 = &t96080; /* x172993 stalin.sc:25197:870668 */ t96078.s0.tag = STRUCTURE_TYPE24753; t96078.s0.value.structure_type24753 = &t96079; /* x172994 stalin.sc:25197:870668 */ t96078.s1.tag = NULL_TYPE; /* x172995 stalin.sc:25197:870668 */ t96077.s1.tag = STRUCTURE_TYPE24753; t96077.s1.value.structure_type24753 = &t96078; /* x172996 stalin.sc:25197:870668 */ t96076.s1.tag = STRUCTURE_TYPE24753; t96076.s1.value.structure_type24753 = &t96077; /* x172997 stalin.sc:25197:870668 */ t96075.s0.tag = STRUCTURE_TYPE24753; t96075.s0.value.structure_type24753 = &t96076; /* x172998 stalin.sc:25197:870668 */ t96075.s1.tag = NULL_TYPE; /* x172999 stalin.sc:25197:870668 */ t96074.s1.tag = STRUCTURE_TYPE24753; t96074.s1.value.structure_type24753 = &t96075; /* x173000 stalin.sc:25197:870668 */ t96073.s1.tag = STRUCTURE_TYPE24753; t96073.s1.value.structure_type24753 = &t96074; /* x173001 stalin.sc:25197:870668 */ t96072.s0.tag = STRUCTURE_TYPE24753; t96072.s0.value.structure_type24753 = &t96073; /* x173002 stalin.sc:25197:870668 */ t96072.s1.tag = NULL_TYPE; /* x173003 stalin.sc:25197:870668 */ t96062.s1.tag = STRUCTURE_TYPE24753; t96062.s1.value.structure_type24753 = &t96072; /* x173004 stalin.sc:25197:870668 */ t96054.s1.tag = STRUCTURE_TYPE24753; t96054.s1.value.structure_type24753 = &t96062; /* x173005 stalin.sc:25197:870668 */ t96048.s1.tag = STRUCTURE_TYPE24753; t96048.s1.value.structure_type24753 = &t96054; /* x173006 stalin.sc:25197:870668 */ t96047.s1.tag = STRUCTURE_TYPE24753; t96047.s1.value.structure_type24753 = &t96048; /* x173007 stalin.sc:25197:870668 */ t96046.s0.tag = STRUCTURE_TYPE24753; t96046.s0.value.structure_type24753 = &t96047; /* x173008 stalin.sc:25197:870668 */ t96046.s1.tag = NULL_TYPE; /* x173009 stalin.sc:25197:870668 */ t96042.s1.tag = STRUCTURE_TYPE24753; t96042.s1.value.structure_type24753 = &t96046; /* x173010 stalin.sc:25197:870668 */ t96041.s0.tag = STRUCTURE_TYPE24753; t96041.s0.value.structure_type24753 = &t96042; /* x173011 stalin.sc:25197:870668 */ t96090.s0.tag = EXTERNAL_SYMBOL_TYPE; t96090.s0.value.external_symbol_type = q263; /* x173012 stalin.sc:25197:870668 */ t96091.s0.tag = EXTERNAL_SYMBOL_TYPE; t96091.s0.value.external_symbol_type = q274; /* x173013 stalin.sc:25197:870668 */ t96092.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x173014 stalin.sc:25197:870668 */ t96092.s1.tag = NULL_TYPE; /* x173015 stalin.sc:25197:870668 */ t96091.s1.tag = STRUCTURE_TYPE24753; t96091.s1.value.structure_type24753 = &t96092; /* x173016 stalin.sc:25197:870668 */ t96090.s1.tag = STRUCTURE_TYPE24753; t96090.s1.value.structure_type24753 = &t96091; /* x173017 stalin.sc:25197:870668 */ t96089.s0.tag = STRUCTURE_TYPE24753; t96089.s0.value.structure_type24753 = &t96090; /* x173018 stalin.sc:25197:870668 */ t96094.s0.tag = EXTERNAL_SYMBOL_TYPE; t96094.s0.value.external_symbol_type = q242; /* x173019 stalin.sc:25197:870668 */ t96097.s0.tag = EXTERNAL_SYMBOL_TYPE; t96097.s0.value.external_symbol_type = q275; /* x173020 stalin.sc:25197:870668 */ t96099.s0.tag = EXTERNAL_SYMBOL_TYPE; t96099.s0.value.external_symbol_type = q264; /* x173021 stalin.sc:25197:870668 */ t96100.s0.tag = EXTERNAL_SYMBOL_TYPE; t96100.s0.value.external_symbol_type = q254; /* x173022 stalin.sc:25197:870668 */ t96100.s1.tag = NULL_TYPE; /* x173023 stalin.sc:25197:870668 */ t96099.s1.tag = STRUCTURE_TYPE24753; t96099.s1.value.structure_type24753 = &t96100; /* x173024 stalin.sc:25197:870668 */ t96098.s0.tag = STRUCTURE_TYPE24753; t96098.s0.value.structure_type24753 = &t96099; /* x173025 stalin.sc:25197:870668 */ t96098.s1.tag = NULL_TYPE; /* x173026 stalin.sc:25197:870668 */ t96097.s1.tag = STRUCTURE_TYPE24753; t96097.s1.value.structure_type24753 = &t96098; /* x173027 stalin.sc:25197:870668 */ t96096.s0.tag = STRUCTURE_TYPE24753; t96096.s0.value.structure_type24753 = &t96097; /* x173028 stalin.sc:25197:870668 */ t96096.s1.tag = NULL_TYPE; /* x173029 stalin.sc:25197:870668 */ t96095.s0.tag = STRUCTURE_TYPE24753; t96095.s0.value.structure_type24753 = &t96096; /* x173030 stalin.sc:25197:870668 */ t96102.s0.tag = EXTERNAL_SYMBOL_TYPE; t96102.s0.value.external_symbol_type = q43; /* x173031 stalin.sc:25197:870668 */ t96104.s0.tag = EXTERNAL_SYMBOL_TYPE; t96104.s0.value.external_symbol_type = q178; /* x173032 stalin.sc:25197:870668 */ t96105.s0.tag = EXTERNAL_SYMBOL_TYPE; t96105.s0.value.external_symbol_type = q275; /* x173033 stalin.sc:25197:870668 */ t96105.s1.tag = NULL_TYPE; /* x173034 stalin.sc:25197:870668 */ t96104.s1.tag = STRUCTURE_TYPE24753; t96104.s1.value.structure_type24753 = &t96105; /* x173035 stalin.sc:25197:870668 */ t96103.s0.tag = STRUCTURE_TYPE24753; t96103.s0.value.structure_type24753 = &t96104; /* x173036 stalin.sc:25197:870668 */ t96107.s0.tag = EXTERNAL_SYMBOL_TYPE; t96107.s0.value.external_symbol_type = q179; /* x173037 stalin.sc:25197:870668 */ t96108.s0.tag = STRING_TYPE; t96108.s0.value.string_type = "EOF while reading exponent"; /* x173038 stalin.sc:25197:870668 */ t96108.s1.tag = NULL_TYPE; /* x173039 stalin.sc:25197:870668 */ t96107.s1.tag = STRUCTURE_TYPE24753; t96107.s1.value.structure_type24753 = &t96108; /* x173040 stalin.sc:25197:870668 */ t96106.s0.tag = STRUCTURE_TYPE24753; t96106.s0.value.structure_type24753 = &t96107; /* x173041 stalin.sc:25197:870668 */ t96106.s1.tag = NULL_TYPE; /* x173042 stalin.sc:25197:870668 */ t96103.s1.tag = STRUCTURE_TYPE24753; t96103.s1.value.structure_type24753 = &t96106; /* x173043 stalin.sc:25197:870668 */ t96102.s1.tag = STRUCTURE_TYPE24753; t96102.s1.value.structure_type24753 = &t96103; /* x173044 stalin.sc:25197:870668 */ t96101.s0.tag = STRUCTURE_TYPE24753; t96101.s0.value.structure_type24753 = &t96102; /* x173045 stalin.sc:25197:870668 */ t96110.s0.tag = EXTERNAL_SYMBOL_TYPE; t96110.s0.value.external_symbol_type = q43; /* x173046 stalin.sc:25197:870668 */ t96112.s0.tag = EXTERNAL_SYMBOL_TYPE; t96112.s0.value.external_symbol_type = q102; /* x173047 stalin.sc:25197:870668 */ t96114.s0.tag = EXTERNAL_SYMBOL_TYPE; t96114.s0.value.external_symbol_type = q269; /* x173048 stalin.sc:25197:870668 */ t96115.s0.tag = EXTERNAL_SYMBOL_TYPE; t96115.s0.value.external_symbol_type = q275; /* x173049 stalin.sc:25197:870668 */ t96115.s1.tag = NULL_TYPE; /* x173050 stalin.sc:25197:870668 */ t96114.s1.tag = STRUCTURE_TYPE24753; t96114.s1.value.structure_type24753 = &t96115; /* x173051 stalin.sc:25197:870668 */ t96113.s0.tag = STRUCTURE_TYPE24753; t96113.s0.value.structure_type24753 = &t96114; /* x173052 stalin.sc:25197:870668 */ t96113.s1.tag = NULL_TYPE; /* x173053 stalin.sc:25197:870668 */ t96112.s1.tag = STRUCTURE_TYPE24753; t96112.s1.value.structure_type24753 = &t96113; /* x173054 stalin.sc:25197:870668 */ t96111.s0.tag = STRUCTURE_TYPE24753; t96111.s0.value.structure_type24753 = &t96112; /* x173055 stalin.sc:25197:870668 */ t96117.s0.tag = EXTERNAL_SYMBOL_TYPE; t96117.s0.value.external_symbol_type = q179; /* x173056 stalin.sc:25197:870668 */ t96118.s0.tag = STRING_TYPE; t96118.s0.value.string_type = "Unfinished exponent"; /* x173057 stalin.sc:25197:870668 */ t96118.s1.tag = NULL_TYPE; /* x173058 stalin.sc:25197:870668 */ t96117.s1.tag = STRUCTURE_TYPE24753; t96117.s1.value.structure_type24753 = &t96118; /* x173059 stalin.sc:25197:870668 */ t96116.s0.tag = STRUCTURE_TYPE24753; t96116.s0.value.structure_type24753 = &t96117; /* x173060 stalin.sc:25197:870668 */ t96116.s1.tag = NULL_TYPE; /* x173061 stalin.sc:25197:870668 */ t96111.s1.tag = STRUCTURE_TYPE24753; t96111.s1.value.structure_type24753 = &t96116; /* x173062 stalin.sc:25197:870668 */ t96110.s1.tag = STRUCTURE_TYPE24753; t96110.s1.value.structure_type24753 = &t96111; /* x173063 stalin.sc:25197:870668 */ t96109.s0.tag = STRUCTURE_TYPE24753; t96109.s0.value.structure_type24753 = &t96110; /* x173064 stalin.sc:25197:870668 */ t96120.s0.tag = EXTERNAL_SYMBOL_TYPE; t96120.s0.value.external_symbol_type = q130; /* x173065 stalin.sc:25197:870668 */ t96121.s0.tag = EXTERNAL_SYMBOL_TYPE; t96121.s0.value.external_symbol_type = q260; /* x173066 stalin.sc:25197:870668 */ t96123.s0.tag = EXTERNAL_SYMBOL_TYPE; t96123.s0.value.external_symbol_type = q153; /* x173067 stalin.sc:25197:870668 */ t96124.s0.tag = FLONUM_TYPE; t96124.s0.value.flonum_type = 1.0e1; /* x173068 stalin.sc:25197:870668 */ t96126.s0.tag = EXTERNAL_SYMBOL_TYPE; t96126.s0.value.external_symbol_type = q2; /* x173069 stalin.sc:25197:870668 */ t96128.s0.tag = EXTERNAL_SYMBOL_TYPE; t96128.s0.value.external_symbol_type = q268; /* x173070 stalin.sc:25197:870668 */ t96130.s0.tag = EXTERNAL_SYMBOL_TYPE; t96130.s0.value.external_symbol_type = q2; /* x173071 stalin.sc:25197:870668 */ t96132.s0.tag = EXTERNAL_SYMBOL_TYPE; t96132.s0.value.external_symbol_type = q157; /* x173072 stalin.sc:25197:870668 */ t96133.s0.tag = EXTERNAL_SYMBOL_TYPE; t96133.s0.value.external_symbol_type = q275; /* x173073 stalin.sc:25197:870668 */ t96133.s1.tag = NULL_TYPE; /* x173074 stalin.sc:25197:870668 */ t96132.s1.tag = STRUCTURE_TYPE24753; t96132.s1.value.structure_type24753 = &t96133; /* x173075 stalin.sc:25197:870668 */ t96131.s0.tag = STRUCTURE_TYPE24753; t96131.s0.value.structure_type24753 = &t96132; /* x173076 stalin.sc:25197:870668 */ t96135.s0.tag = EXTERNAL_SYMBOL_TYPE; t96135.s0.value.external_symbol_type = q157; /* x173077 stalin.sc:25197:870668 */ t96136.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x173078 stalin.sc:25197:870668 */ t96136.s1.tag = NULL_TYPE; /* x173079 stalin.sc:25197:870668 */ t96135.s1.tag = STRUCTURE_TYPE24753; t96135.s1.value.structure_type24753 = &t96136; /* x173080 stalin.sc:25197:870668 */ t96134.s0.tag = STRUCTURE_TYPE24753; t96134.s0.value.structure_type24753 = &t96135; /* x173081 stalin.sc:25197:870668 */ t96134.s1.tag = NULL_TYPE; /* x173082 stalin.sc:25197:870668 */ t96131.s1.tag = STRUCTURE_TYPE24753; t96131.s1.value.structure_type24753 = &t96134; /* x173083 stalin.sc:25197:870668 */ t96130.s1.tag = STRUCTURE_TYPE24753; t96130.s1.value.structure_type24753 = &t96131; /* x173084 stalin.sc:25197:870668 */ t96129.s0.tag = STRUCTURE_TYPE24753; t96129.s0.value.structure_type24753 = &t96130; /* x173085 stalin.sc:25197:870668 */ t96129.s1.tag = NULL_TYPE; /* x173086 stalin.sc:25197:870668 */ t96128.s1.tag = STRUCTURE_TYPE24753; t96128.s1.value.structure_type24753 = &t96129; /* x173087 stalin.sc:25197:870668 */ t96127.s0.tag = STRUCTURE_TYPE24753; t96127.s0.value.structure_type24753 = &t96128; /* x173088 stalin.sc:25197:870668 */ t96127.s1.tag = NULL_TYPE; /* x173089 stalin.sc:25197:870668 */ t96126.s1.tag = STRUCTURE_TYPE24753; t96126.s1.value.structure_type24753 = &t96127; /* x173090 stalin.sc:25197:870668 */ t96125.s0.tag = STRUCTURE_TYPE24753; t96125.s0.value.structure_type24753 = &t96126; /* x173091 stalin.sc:25197:870668 */ t96125.s1.tag = NULL_TYPE; /* x173092 stalin.sc:25197:870668 */ t96124.s1.tag = STRUCTURE_TYPE24753; t96124.s1.value.structure_type24753 = &t96125; /* x173093 stalin.sc:25197:870668 */ t96123.s1.tag = STRUCTURE_TYPE24753; t96123.s1.value.structure_type24753 = &t96124; /* x173094 stalin.sc:25197:870668 */ t96122.s0.tag = STRUCTURE_TYPE24753; t96122.s0.value.structure_type24753 = &t96123; /* x173095 stalin.sc:25197:870668 */ t96122.s1.tag = NULL_TYPE; /* x173096 stalin.sc:25197:870668 */ t96121.s1.tag = STRUCTURE_TYPE24753; t96121.s1.value.structure_type24753 = &t96122; /* x173097 stalin.sc:25197:870668 */ t96120.s1.tag = STRUCTURE_TYPE24753; t96120.s1.value.structure_type24753 = &t96121; /* x173098 stalin.sc:25197:870668 */ t96119.s0.tag = STRUCTURE_TYPE24753; t96119.s0.value.structure_type24753 = &t96120; /* x173099 stalin.sc:25197:870668 */ t96119.s1.tag = NULL_TYPE; /* x173100 stalin.sc:25197:870668 */ t96109.s1.tag = STRUCTURE_TYPE24753; t96109.s1.value.structure_type24753 = &t96119; /* x173101 stalin.sc:25197:870668 */ t96101.s1.tag = STRUCTURE_TYPE24753; t96101.s1.value.structure_type24753 = &t96109; /* x173102 stalin.sc:25197:870668 */ t96095.s1.tag = STRUCTURE_TYPE24753; t96095.s1.value.structure_type24753 = &t96101; /* x173103 stalin.sc:25197:870668 */ t96094.s1.tag = STRUCTURE_TYPE24753; t96094.s1.value.structure_type24753 = &t96095; /* x173104 stalin.sc:25197:870668 */ t96093.s0.tag = STRUCTURE_TYPE24753; t96093.s0.value.structure_type24753 = &t96094; /* x173105 stalin.sc:25197:870668 */ t96093.s1.tag = NULL_TYPE; /* x173106 stalin.sc:25197:870668 */ t96089.s1.tag = STRUCTURE_TYPE24753; t96089.s1.value.structure_type24753 = &t96093; /* x173107 stalin.sc:25197:870668 */ t96088.s0.tag = STRUCTURE_TYPE24753; t96088.s0.value.structure_type24753 = &t96089; /* x173108 stalin.sc:25197:870668 */ t96138.s0.tag = EXTERNAL_SYMBOL_TYPE; t96138.s0.value.external_symbol_type = q95; /* x173109 stalin.sc:25197:870668 */ t96140.s0.tag = EXTERNAL_SYMBOL_TYPE; t96140.s0.value.external_symbol_type = q179; /* x173110 stalin.sc:25197:870668 */ t96141.s0.tag = STRING_TYPE; t96141.s0.value.string_type = "Unfinished exponent"; /* x173111 stalin.sc:25197:870668 */ t96141.s1.tag = NULL_TYPE; /* x173112 stalin.sc:25197:870668 */ t96140.s1.tag = STRUCTURE_TYPE24753; t96140.s1.value.structure_type24753 = &t96141; /* x173113 stalin.sc:25197:870668 */ t96139.s0.tag = STRUCTURE_TYPE24753; t96139.s0.value.structure_type24753 = &t96140; /* x173114 stalin.sc:25197:870668 */ t96139.s1.tag = NULL_TYPE; /* x173115 stalin.sc:25197:870668 */ t96138.s1.tag = STRUCTURE_TYPE24753; t96138.s1.value.structure_type24753 = &t96139; /* x173116 stalin.sc:25197:870668 */ t96137.s0.tag = STRUCTURE_TYPE24753; t96137.s0.value.structure_type24753 = &t96138; /* x173117 stalin.sc:25197:870668 */ t96137.s1.tag = NULL_TYPE; /* x173118 stalin.sc:25197:870668 */ t96088.s1.tag = STRUCTURE_TYPE24753; t96088.s1.value.structure_type24753 = &t96137; /* x173119 stalin.sc:25197:870668 */ t96041.s1.tag = STRUCTURE_TYPE24753; t96041.s1.value.structure_type24753 = &t96088; /* x173120 stalin.sc:25197:870668 */ t96021.s1.tag = STRUCTURE_TYPE24753; t96021.s1.value.structure_type24753 = &t96041; /* x173121 stalin.sc:25197:870668 */ t96020.s1.tag = STRUCTURE_TYPE24753; t96020.s1.value.structure_type24753 = &t96021; /* x173122 stalin.sc:25197:870668 */ t96019.s0.tag = STRUCTURE_TYPE24753; t96019.s0.value.structure_type24753 = &t96020; /* x173123 stalin.sc:25197:870668 */ t96019.s1.tag = NULL_TYPE; /* x173124 stalin.sc:25197:870668 */ t96011.s1.tag = STRUCTURE_TYPE24753; t96011.s1.value.structure_type24753 = &t96019; /* x173125 stalin.sc:25197:870668 */ t96005.s1.tag = STRUCTURE_TYPE24753; t96005.s1.value.structure_type24753 = &t96011; /* x173126 stalin.sc:25197:870668 */ t96004.s1.tag = STRUCTURE_TYPE24753; t96004.s1.value.structure_type24753 = &t96005; /* x173127 stalin.sc:25197:870668 */ t96003.s0.tag = STRUCTURE_TYPE24753; t96003.s0.value.structure_type24753 = &t96004; /* x173128 stalin.sc:25197:870668 */ t96003.s1.tag = NULL_TYPE; /* x173129 stalin.sc:25197:870668 */ t96000.s1.tag = STRUCTURE_TYPE24753; t96000.s1.value.structure_type24753 = &t96003; /* x173130 stalin.sc:25197:870668 */ t95958.s1.tag = STRUCTURE_TYPE24753; t95958.s1.value.structure_type24753 = &t96000; /* x173131 stalin.sc:25197:870668 */ t95957.s0.tag = STRUCTURE_TYPE24753; t95957.s0.value.structure_type24753 = &t95958; /* x173132 stalin.sc:25197:870668 */ t96143.s0.tag = EXTERNAL_SYMBOL_TYPE; t96143.s0.value.external_symbol_type = q95; /* x173133 stalin.sc:25197:870668 */ t96144.s0.tag = EXTERNAL_SYMBOL_TYPE; t96144.s0.value.external_symbol_type = q260; /* x173134 stalin.sc:25197:870668 */ t96144.s1.tag = NULL_TYPE; /* x173135 stalin.sc:25197:870668 */ t96143.s1.tag = STRUCTURE_TYPE24753; t96143.s1.value.structure_type24753 = &t96144; /* x173136 stalin.sc:25197:870668 */ t96142.s0.tag = STRUCTURE_TYPE24753; t96142.s0.value.structure_type24753 = &t96143; /* x173137 stalin.sc:25197:870668 */ t96142.s1.tag = NULL_TYPE; /* x173138 stalin.sc:25197:870668 */ t95957.s1.tag = STRUCTURE_TYPE24753; t95957.s1.value.structure_type24753 = &t96142; /* x173139 stalin.sc:25197:870668 */ t95930.s1.tag = STRUCTURE_TYPE24753; t95930.s1.value.structure_type24753 = &t95957; /* x173140 stalin.sc:25197:870668 */ t95925.s1.tag = STRUCTURE_TYPE24753; t95925.s1.value.structure_type24753 = &t95930; /* x173141 stalin.sc:25197:870668 */ t95924.s1.tag = STRUCTURE_TYPE24753; t95924.s1.value.structure_type24753 = &t95925; /* x173142 stalin.sc:25197:870668 */ t95923.s0.tag = STRUCTURE_TYPE24753; t95923.s0.value.structure_type24753 = &t95924; /* x173143 stalin.sc:25197:870668 */ t95923.s1.tag = NULL_TYPE; /* x173144 stalin.sc:25197:870668 */ t95917.s1.tag = STRUCTURE_TYPE24753; t95917.s1.value.structure_type24753 = &t95923; /* x173145 stalin.sc:25197:870668 */ t95916.s1.tag = STRUCTURE_TYPE24753; t95916.s1.value.structure_type24753 = &t95917; /* x173146 stalin.sc:25197:870668 */ t95915.s0.tag = STRUCTURE_TYPE24753; t95915.s0.value.structure_type24753 = &t95916; /* x173147 stalin.sc:25197:870668 */ t95915.s1.tag = NULL_TYPE; /* x173148 stalin.sc:25197:870668 */ t95911.s1.tag = STRUCTURE_TYPE24753; t95911.s1.value.structure_type24753 = &t95915; /* x173149 stalin.sc:25197:870668 */ t95910.s1.tag = STRUCTURE_TYPE24753; t95910.s1.value.structure_type24753 = &t95911; /* x173150 stalin.sc:25197:870668 */ t95909.s0.tag = STRUCTURE_TYPE24753; t95909.s0.value.structure_type24753 = &t95910; /* x173151 stalin.sc:25197:870668 */ t96146.s0.tag = EXTERNAL_SYMBOL_TYPE; t96146.s0.value.external_symbol_type = q97; /* x173152 stalin.sc:25197:870668 */ t96148.s0.tag = EXTERNAL_SYMBOL_TYPE; t96148.s0.value.external_symbol_type = q276; /* x173153 stalin.sc:25197:870668 */ t96149.s0.tag = EXTERNAL_SYMBOL_TYPE; t96149.s0.value.external_symbol_type = q260; /* x173154 stalin.sc:25197:870668 */ t96149.s1.tag = NULL_TYPE; /* x173155 stalin.sc:25197:870668 */ t96148.s1.tag = STRUCTURE_TYPE24753; t96148.s1.value.structure_type24753 = &t96149; /* x173156 stalin.sc:25197:870668 */ t96147.s0.tag = STRUCTURE_TYPE24753; t96147.s0.value.structure_type24753 = &t96148; /* x173157 stalin.sc:25197:870668 */ t96151.s0.tag = EXTERNAL_SYMBOL_TYPE; t96151.s0.value.external_symbol_type = q242; /* x173158 stalin.sc:25197:870668 */ t96154.s0.tag = EXTERNAL_SYMBOL_TYPE; t96154.s0.value.external_symbol_type = q273; /* x173159 stalin.sc:25197:870668 */ t96156.s0.tag = EXTERNAL_SYMBOL_TYPE; t96156.s0.value.external_symbol_type = q262; /* x173160 stalin.sc:25197:870668 */ t96157.s0.tag = EXTERNAL_SYMBOL_TYPE; t96157.s0.value.external_symbol_type = q254; /* x173161 stalin.sc:25197:870668 */ t96157.s1.tag = NULL_TYPE; /* x173162 stalin.sc:25197:870668 */ t96156.s1.tag = STRUCTURE_TYPE24753; t96156.s1.value.structure_type24753 = &t96157; /* x173163 stalin.sc:25197:870668 */ t96155.s0.tag = STRUCTURE_TYPE24753; t96155.s0.value.structure_type24753 = &t96156; /* x173164 stalin.sc:25197:870668 */ t96155.s1.tag = NULL_TYPE; /* x173165 stalin.sc:25197:870668 */ t96154.s1.tag = STRUCTURE_TYPE24753; t96154.s1.value.structure_type24753 = &t96155; /* x173166 stalin.sc:25197:870668 */ t96153.s0.tag = STRUCTURE_TYPE24753; t96153.s0.value.structure_type24753 = &t96154; /* x173167 stalin.sc:25197:870668 */ t96153.s1.tag = NULL_TYPE; /* x173168 stalin.sc:25197:870668 */ t96152.s0.tag = STRUCTURE_TYPE24753; t96152.s0.value.structure_type24753 = &t96153; /* x173169 stalin.sc:25197:870668 */ t96159.s0.tag = EXTERNAL_SYMBOL_TYPE; t96159.s0.value.external_symbol_type = q240; /* x173170 stalin.sc:25197:870668 */ t96162.s0.tag = EXTERNAL_SYMBOL_TYPE; t96162.s0.value.external_symbol_type = q178; /* x173171 stalin.sc:25197:870668 */ t96163.s0.tag = EXTERNAL_SYMBOL_TYPE; t96163.s0.value.external_symbol_type = q273; /* x173172 stalin.sc:25197:870668 */ t96163.s1.tag = NULL_TYPE; /* x173173 stalin.sc:25197:870668 */ t96162.s1.tag = STRUCTURE_TYPE24753; t96162.s1.value.structure_type24753 = &t96163; /* x173174 stalin.sc:25197:870668 */ t96161.s0.tag = STRUCTURE_TYPE24753; t96161.s0.value.structure_type24753 = &t96162; /* x173175 stalin.sc:25197:870668 */ t96164.s0.tag = EXTERNAL_SYMBOL_TYPE; t96164.s0.value.external_symbol_type = q260; /* x173176 stalin.sc:25197:870668 */ t96164.s1.tag = NULL_TYPE; /* x173177 stalin.sc:25197:870668 */ t96161.s1.tag = STRUCTURE_TYPE24753; t96161.s1.value.structure_type24753 = &t96164; /* x173178 stalin.sc:25197:870668 */ t96160.s0.tag = STRUCTURE_TYPE24753; t96160.s0.value.structure_type24753 = &t96161; /* x173179 stalin.sc:25197:870668 */ t96167.s0.tag = EXTERNAL_SYMBOL_TYPE; t96167.s0.value.external_symbol_type = q269; /* x173180 stalin.sc:25197:870668 */ t96168.s0.tag = EXTERNAL_SYMBOL_TYPE; t96168.s0.value.external_symbol_type = q273; /* x173181 stalin.sc:25197:870668 */ t96168.s1.tag = NULL_TYPE; /* x173182 stalin.sc:25197:870668 */ t96167.s1.tag = STRUCTURE_TYPE24753; t96167.s1.value.structure_type24753 = &t96168; /* x173183 stalin.sc:25197:870668 */ t96166.s0.tag = STRUCTURE_TYPE24753; t96166.s0.value.structure_type24753 = &t96167; /* x173184 stalin.sc:25197:870668 */ t96170.s0.tag = EXTERNAL_SYMBOL_TYPE; t96170.s0.value.external_symbol_type = q264; /* x173185 stalin.sc:25197:870668 */ t96171.s0.tag = EXTERNAL_SYMBOL_TYPE; t96171.s0.value.external_symbol_type = q254; /* x173186 stalin.sc:25197:870668 */ t96171.s1.tag = NULL_TYPE; /* x173187 stalin.sc:25197:870668 */ t96170.s1.tag = STRUCTURE_TYPE24753; t96170.s1.value.structure_type24753 = &t96171; /* x173188 stalin.sc:25197:870668 */ t96169.s0.tag = STRUCTURE_TYPE24753; t96169.s0.value.structure_type24753 = &t96170; /* x173189 stalin.sc:25197:870668 */ t96173.s0.tag = EXTERNAL_SYMBOL_TYPE; t96173.s0.value.external_symbol_type = q276; /* x173190 stalin.sc:25197:870668 */ t96175.s0.tag = EXTERNAL_SYMBOL_TYPE; t96175.s0.value.external_symbol_type = q4; /* x173191 stalin.sc:25197:870668 */ t96177.s0.tag = EXTERNAL_SYMBOL_TYPE; t96177.s0.value.external_symbol_type = q130; /* x173192 stalin.sc:25197:870668 */ t96178.s0.tag = FIXNUM_TYPE; t96178.s0.value.fixnum_type = 10; /* x173193 stalin.sc:25197:870668 */ t96179.s0.tag = EXTERNAL_SYMBOL_TYPE; t96179.s0.value.external_symbol_type = q260; /* x173194 stalin.sc:25197:870668 */ t96179.s1.tag = NULL_TYPE; /* x173195 stalin.sc:25197:870668 */ t96178.s1.tag = STRUCTURE_TYPE24753; t96178.s1.value.structure_type24753 = &t96179; /* x173196 stalin.sc:25197:870668 */ t96177.s1.tag = STRUCTURE_TYPE24753; t96177.s1.value.structure_type24753 = &t96178; /* x173197 stalin.sc:25197:870668 */ t96176.s0.tag = STRUCTURE_TYPE24753; t96176.s0.value.structure_type24753 = &t96177; /* x173198 stalin.sc:25197:870668 */ t96181.s0.tag = EXTERNAL_SYMBOL_TYPE; t96181.s0.value.external_symbol_type = q2; /* x173199 stalin.sc:25197:870668 */ t96183.s0.tag = EXTERNAL_SYMBOL_TYPE; t96183.s0.value.external_symbol_type = q157; /* x173200 stalin.sc:25197:870668 */ t96184.s0.tag = EXTERNAL_SYMBOL_TYPE; t96184.s0.value.external_symbol_type = q273; /* x173201 stalin.sc:25197:870668 */ t96184.s1.tag = NULL_TYPE; /* x173202 stalin.sc:25197:870668 */ t96183.s1.tag = STRUCTURE_TYPE24753; t96183.s1.value.structure_type24753 = &t96184; /* x173203 stalin.sc:25197:870668 */ t96182.s0.tag = STRUCTURE_TYPE24753; t96182.s0.value.structure_type24753 = &t96183; /* x173204 stalin.sc:25197:870668 */ t96186.s0.tag = EXTERNAL_SYMBOL_TYPE;} void initialize_constants28(void) {t96186.s0.value.external_symbol_type = q157; /* x173205 stalin.sc:25197:870668 */ t96187.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x173206 stalin.sc:25197:870668 */ t96187.s1.tag = NULL_TYPE; /* x173207 stalin.sc:25197:870668 */ t96186.s1.tag = STRUCTURE_TYPE24753; t96186.s1.value.structure_type24753 = &t96187; /* x173208 stalin.sc:25197:870668 */ t96185.s0.tag = STRUCTURE_TYPE24753; t96185.s0.value.structure_type24753 = &t96186; /* x173209 stalin.sc:25197:870668 */ t96185.s1.tag = NULL_TYPE; /* x173210 stalin.sc:25197:870668 */ t96182.s1.tag = STRUCTURE_TYPE24753; t96182.s1.value.structure_type24753 = &t96185; /* x173211 stalin.sc:25197:870668 */ t96181.s1.tag = STRUCTURE_TYPE24753; t96181.s1.value.structure_type24753 = &t96182; /* x173212 stalin.sc:25197:870668 */ t96180.s0.tag = STRUCTURE_TYPE24753; t96180.s0.value.structure_type24753 = &t96181; /* x173213 stalin.sc:25197:870668 */ t96180.s1.tag = NULL_TYPE; /* x173214 stalin.sc:25197:870668 */ t96176.s1.tag = STRUCTURE_TYPE24753; t96176.s1.value.structure_type24753 = &t96180; /* x173215 stalin.sc:25197:870668 */ t96175.s1.tag = STRUCTURE_TYPE24753; t96175.s1.value.structure_type24753 = &t96176; /* x173216 stalin.sc:25197:870668 */ t96174.s0.tag = STRUCTURE_TYPE24753; t96174.s0.value.structure_type24753 = &t96175; /* x173217 stalin.sc:25197:870668 */ t96174.s1.tag = NULL_TYPE; /* x173218 stalin.sc:25197:870668 */ t96173.s1.tag = STRUCTURE_TYPE24753; t96173.s1.value.structure_type24753 = &t96174; /* x173219 stalin.sc:25197:870668 */ t96172.s0.tag = STRUCTURE_TYPE24753; t96172.s0.value.structure_type24753 = &t96173; /* x173220 stalin.sc:25197:870668 */ t96172.s1.tag = NULL_TYPE; /* x173221 stalin.sc:25197:870668 */ t96169.s1.tag = STRUCTURE_TYPE24753; t96169.s1.value.structure_type24753 = &t96172; /* x173222 stalin.sc:25197:870668 */ t96166.s1.tag = STRUCTURE_TYPE24753; t96166.s1.value.structure_type24753 = &t96169; /* x173223 stalin.sc:25197:870668 */ t96165.s0.tag = STRUCTURE_TYPE24753; t96165.s0.value.structure_type24753 = &t96166; /* x173224 stalin.sc:25197:870668 */ t96190.s0.tag = EXTERNAL_SYMBOL_TYPE; t96190.s0.value.external_symbol_type = q263; /* x173225 stalin.sc:25197:870668 */ t96191.s0.tag = EXTERNAL_SYMBOL_TYPE; t96191.s0.value.external_symbol_type = q273; /* x173226 stalin.sc:25197:870668 */ t96192.s0.tag = ((unsigned)((unsigned char)'.'))<<2; /* x173227 stalin.sc:25197:870668 */ t96192.s1.tag = NULL_TYPE; /* x173228 stalin.sc:25197:870668 */ t96191.s1.tag = STRUCTURE_TYPE24753; t96191.s1.value.structure_type24753 = &t96192; /* x173229 stalin.sc:25197:870668 */ t96190.s1.tag = STRUCTURE_TYPE24753; t96190.s1.value.structure_type24753 = &t96191; /* x173230 stalin.sc:25197:870668 */ t96189.s0.tag = STRUCTURE_TYPE24753; t96189.s0.value.structure_type24753 = &t96190; /* x173231 stalin.sc:25197:870668 */ t96194.s0.tag = EXTERNAL_SYMBOL_TYPE; t96194.s0.value.external_symbol_type = q264; /* x173232 stalin.sc:25197:870668 */ t96195.s0.tag = EXTERNAL_SYMBOL_TYPE; t96195.s0.value.external_symbol_type = q254; /* x173233 stalin.sc:25197:870668 */ t96195.s1.tag = NULL_TYPE; /* x173234 stalin.sc:25197:870668 */ t96194.s1.tag = STRUCTURE_TYPE24753; t96194.s1.value.structure_type24753 = &t96195; /* x173235 stalin.sc:25197:870668 */ t96193.s0.tag = STRUCTURE_TYPE24753; t96193.s0.value.structure_type24753 = &t96194; /* x173236 stalin.sc:25197:870668 */ t96197.s0.tag = EXTERNAL_SYMBOL_TYPE; t96197.s0.value.external_symbol_type = q271; /* x173237 stalin.sc:25197:870668 */ t96199.s0.tag = EXTERNAL_SYMBOL_TYPE; t96199.s0.value.external_symbol_type = q154; /* x173238 stalin.sc:25197:870668 */ t96200.s0.tag = EXTERNAL_SYMBOL_TYPE; t96200.s0.value.external_symbol_type = q260; /* x173239 stalin.sc:25197:870668 */ t96200.s1.tag = NULL_TYPE; /* x173240 stalin.sc:25197:870668 */ t96199.s1.tag = STRUCTURE_TYPE24753; t96199.s1.value.structure_type24753 = &t96200; /* x173241 stalin.sc:25197:870668 */ t96198.s0.tag = STRUCTURE_TYPE24753; t96198.s0.value.structure_type24753 = &t96199; /* x173242 stalin.sc:25197:870668 */ t96201.s0.tag = FLONUM_TYPE; t96201.s0.value.flonum_type = 1.0e1; /* x173243 stalin.sc:25197:870668 */ t96201.s1.tag = NULL_TYPE; /* x173244 stalin.sc:25197:870668 */ t96198.s1.tag = STRUCTURE_TYPE24753; t96198.s1.value.structure_type24753 = &t96201; /* x173245 stalin.sc:25197:870668 */ t96197.s1.tag = STRUCTURE_TYPE24753; t96197.s1.value.structure_type24753 = &t96198; /* x173246 stalin.sc:25197:870668 */ t96196.s0.tag = STRUCTURE_TYPE24753; t96196.s0.value.structure_type24753 = &t96197; /* x173247 stalin.sc:25197:870668 */ t96196.s1.tag = NULL_TYPE; /* x173248 stalin.sc:25197:870668 */ t96193.s1.tag = STRUCTURE_TYPE24753; t96193.s1.value.structure_type24753 = &t96196; /* x173249 stalin.sc:25197:870668 */ t96189.s1.tag = STRUCTURE_TYPE24753; t96189.s1.value.structure_type24753 = &t96193; /* x173250 stalin.sc:25197:870668 */ t96188.s0.tag = STRUCTURE_TYPE24753; t96188.s0.value.structure_type24753 = &t96189; /* x173251 stalin.sc:25197:870668 */ t96204.s0.tag = EXTERNAL_SYMBOL_TYPE; t96204.s0.value.external_symbol_type = q241; /* x173252 stalin.sc:25197:870668 */ t96206.s0.tag = EXTERNAL_SYMBOL_TYPE; t96206.s0.value.external_symbol_type = q263; /* x173253 stalin.sc:25197:870668 */ t96207.s0.tag = EXTERNAL_SYMBOL_TYPE; t96207.s0.value.external_symbol_type = q273; /* x173254 stalin.sc:25197:870668 */ t96208.s0.tag = ((unsigned)((unsigned char)'e'))<<2; /* x173255 stalin.sc:25197:870668 */ t96208.s1.tag = NULL_TYPE; /* x173256 stalin.sc:25197:870668 */ t96207.s1.tag = STRUCTURE_TYPE24753; t96207.s1.value.structure_type24753 = &t96208; /* x173257 stalin.sc:25197:870668 */ t96206.s1.tag = STRUCTURE_TYPE24753; t96206.s1.value.structure_type24753 = &t96207; /* x173258 stalin.sc:25197:870668 */ t96205.s0.tag = STRUCTURE_TYPE24753; t96205.s0.value.structure_type24753 = &t96206; /* x173259 stalin.sc:25197:870668 */ t96210.s0.tag = EXTERNAL_SYMBOL_TYPE; t96210.s0.value.external_symbol_type = q263; /* x173260 stalin.sc:25197:870668 */ t96211.s0.tag = EXTERNAL_SYMBOL_TYPE; t96211.s0.value.external_symbol_type = q273; /* x173261 stalin.sc:25197:870668 */ t96212.s0.tag = ((unsigned)((unsigned char)'E'))<<2; /* x173262 stalin.sc:25197:870668 */ t96212.s1.tag = NULL_TYPE; /* x173263 stalin.sc:25197:870668 */ t96211.s1.tag = STRUCTURE_TYPE24753; t96211.s1.value.structure_type24753 = &t96212; /* x173264 stalin.sc:25197:870668 */ t96210.s1.tag = STRUCTURE_TYPE24753; t96210.s1.value.structure_type24753 = &t96211; /* x173265 stalin.sc:25197:870668 */ t96209.s0.tag = STRUCTURE_TYPE24753; t96209.s0.value.structure_type24753 = &t96210; /* x173266 stalin.sc:25197:870668 */ t96214.s0.tag = EXTERNAL_SYMBOL_TYPE; t96214.s0.value.external_symbol_type = q263; /* x173267 stalin.sc:25197:870668 */ t96215.s0.tag = EXTERNAL_SYMBOL_TYPE; t96215.s0.value.external_symbol_type = q273; /* x173268 stalin.sc:25197:870668 */ t96216.s0.tag = ((unsigned)((unsigned char)'s'))<<2; /* x173269 stalin.sc:25197:870668 */ t96216.s1.tag = NULL_TYPE; /* x173270 stalin.sc:25197:870668 */ t96215.s1.tag = STRUCTURE_TYPE24753; t96215.s1.value.structure_type24753 = &t96216; /* x173271 stalin.sc:25197:870668 */ t96214.s1.tag = STRUCTURE_TYPE24753; t96214.s1.value.structure_type24753 = &t96215; /* x173272 stalin.sc:25197:870668 */ t96213.s0.tag = STRUCTURE_TYPE24753; t96213.s0.value.structure_type24753 = &t96214; /* x173273 stalin.sc:25197:870668 */ t96218.s0.tag = EXTERNAL_SYMBOL_TYPE; t96218.s0.value.external_symbol_type = q263; /* x173274 stalin.sc:25197:870668 */ t96219.s0.tag = EXTERNAL_SYMBOL_TYPE; t96219.s0.value.external_symbol_type = q273; /* x173275 stalin.sc:25197:870668 */ t96220.s0.tag = ((unsigned)((unsigned char)'S'))<<2; /* x173276 stalin.sc:25197:870668 */ t96220.s1.tag = NULL_TYPE; /* x173277 stalin.sc:25197:870668 */ t96219.s1.tag = STRUCTURE_TYPE24753; t96219.s1.value.structure_type24753 = &t96220; /* x173278 stalin.sc:25197:870668 */ t96218.s1.tag = STRUCTURE_TYPE24753; t96218.s1.value.structure_type24753 = &t96219; /* x173279 stalin.sc:25197:870668 */ t96217.s0.tag = STRUCTURE_TYPE24753; t96217.s0.value.structure_type24753 = &t96218; /* x173280 stalin.sc:25197:870668 */ t96222.s0.tag = EXTERNAL_SYMBOL_TYPE; t96222.s0.value.external_symbol_type = q263; /* x173281 stalin.sc:25197:870668 */ t96223.s0.tag = EXTERNAL_SYMBOL_TYPE; t96223.s0.value.external_symbol_type = q273; /* x173282 stalin.sc:25197:870668 */ t96224.s0.tag = ((unsigned)((unsigned char)'f'))<<2; /* x173283 stalin.sc:25197:870668 */ t96224.s1.tag = NULL_TYPE; /* x173284 stalin.sc:25197:870668 */ t96223.s1.tag = STRUCTURE_TYPE24753; t96223.s1.value.structure_type24753 = &t96224; /* x173285 stalin.sc:25197:870668 */ t96222.s1.tag = STRUCTURE_TYPE24753; t96222.s1.value.structure_type24753 = &t96223; /* x173286 stalin.sc:25197:870668 */ t96221.s0.tag = STRUCTURE_TYPE24753; t96221.s0.value.structure_type24753 = &t96222; /* x173287 stalin.sc:25197:870668 */ t96226.s0.tag = EXTERNAL_SYMBOL_TYPE; t96226.s0.value.external_symbol_type = q263; /* x173288 stalin.sc:25197:870668 */ t96227.s0.tag = EXTERNAL_SYMBOL_TYPE; t96227.s0.value.external_symbol_type = q273; /* x173289 stalin.sc:25197:870668 */ t96228.s0.tag = ((unsigned)((unsigned char)'F'))<<2; /* x173290 stalin.sc:25197:870668 */ t96228.s1.tag = NULL_TYPE; /* x173291 stalin.sc:25197:870668 */ t96227.s1.tag = STRUCTURE_TYPE24753; t96227.s1.value.structure_type24753 = &t96228; /* x173292 stalin.sc:25197:870668 */ t96226.s1.tag = STRUCTURE_TYPE24753; t96226.s1.value.structure_type24753 = &t96227; /* x173293 stalin.sc:25197:870668 */ t96225.s0.tag = STRUCTURE_TYPE24753; t96225.s0.value.structure_type24753 = &t96226; /* x173294 stalin.sc:25197:870668 */ t96230.s0.tag = EXTERNAL_SYMBOL_TYPE; t96230.s0.value.external_symbol_type = q263; /* x173295 stalin.sc:25197:870668 */ t96231.s0.tag = EXTERNAL_SYMBOL_TYPE; t96231.s0.value.external_symbol_type = q273; /* x173296 stalin.sc:25197:870668 */ t96232.s0.tag = ((unsigned)((unsigned char)'d'))<<2; /* x173297 stalin.sc:25197:870668 */ t96232.s1.tag = NULL_TYPE; /* x173298 stalin.sc:25197:870668 */ t96231.s1.tag = STRUCTURE_TYPE24753; t96231.s1.value.structure_type24753 = &t96232; /* x173299 stalin.sc:25197:870668 */ t96230.s1.tag = STRUCTURE_TYPE24753; t96230.s1.value.structure_type24753 = &t96231; /* x173300 stalin.sc:25197:870668 */ t96229.s0.tag = STRUCTURE_TYPE24753; t96229.s0.value.structure_type24753 = &t96230; /* x173301 stalin.sc:25197:870668 */ t96234.s0.tag = EXTERNAL_SYMBOL_TYPE; t96234.s0.value.external_symbol_type = q263; /* x173302 stalin.sc:25197:870668 */ t96235.s0.tag = EXTERNAL_SYMBOL_TYPE; t96235.s0.value.external_symbol_type = q273; /* x173303 stalin.sc:25197:870668 */ t96236.s0.tag = ((unsigned)((unsigned char)'D'))<<2; /* x173304 stalin.sc:25197:870668 */ t96236.s1.tag = NULL_TYPE; /* x173305 stalin.sc:25197:870668 */ t96235.s1.tag = STRUCTURE_TYPE24753; t96235.s1.value.structure_type24753 = &t96236; /* x173306 stalin.sc:25197:870668 */ t96234.s1.tag = STRUCTURE_TYPE24753; t96234.s1.value.structure_type24753 = &t96235; /* x173307 stalin.sc:25197:870668 */ t96233.s0.tag = STRUCTURE_TYPE24753; t96233.s0.value.structure_type24753 = &t96234; /* x173308 stalin.sc:25197:870668 */ t96238.s0.tag = EXTERNAL_SYMBOL_TYPE; t96238.s0.value.external_symbol_type = q263; /* x173309 stalin.sc:25197:870668 */ t96239.s0.tag = EXTERNAL_SYMBOL_TYPE; t96239.s0.value.external_symbol_type = q273; /* x173310 stalin.sc:25197:870668 */ t96240.s0.tag = ((unsigned)((unsigned char)'l'))<<2; /* x173311 stalin.sc:25197:870668 */ t96240.s1.tag = NULL_TYPE; /* x173312 stalin.sc:25197:870668 */ t96239.s1.tag = STRUCTURE_TYPE24753; t96239.s1.value.structure_type24753 = &t96240; /* x173313 stalin.sc:25197:870668 */ t96238.s1.tag = STRUCTURE_TYPE24753; t96238.s1.value.structure_type24753 = &t96239; /* x173314 stalin.sc:25197:870668 */ t96237.s0.tag = STRUCTURE_TYPE24753; t96237.s0.value.structure_type24753 = &t96238; /* x173315 stalin.sc:25197:870668 */ t96242.s0.tag = EXTERNAL_SYMBOL_TYPE; t96242.s0.value.external_symbol_type = q263; /* x173316 stalin.sc:25197:870668 */ t96243.s0.tag = EXTERNAL_SYMBOL_TYPE; t96243.s0.value.external_symbol_type = q273; /* x173317 stalin.sc:25197:870668 */ t96244.s0.tag = ((unsigned)((unsigned char)'L'))<<2; /* x173318 stalin.sc:25197:870668 */ t96244.s1.tag = NULL_TYPE; /* x173319 stalin.sc:25197:870668 */ t96243.s1.tag = STRUCTURE_TYPE24753; t96243.s1.value.structure_type24753 = &t96244; /* x173320 stalin.sc:25197:870668 */ t96242.s1.tag = STRUCTURE_TYPE24753; t96242.s1.value.structure_type24753 = &t96243; /* x173321 stalin.sc:25197:870668 */ t96241.s0.tag = STRUCTURE_TYPE24753; t96241.s0.value.structure_type24753 = &t96242; /* x173322 stalin.sc:25197:870668 */ t96241.s1.tag = NULL_TYPE; /* x173323 stalin.sc:25197:870668 */ t96237.s1.tag = STRUCTURE_TYPE24753; t96237.s1.value.structure_type24753 = &t96241; /* x173324 stalin.sc:25197:870668 */ t96233.s1.tag = STRUCTURE_TYPE24753; t96233.s1.value.structure_type24753 = &t96237; /* x173325 stalin.sc:25197:870668 */ t96229.s1.tag = STRUCTURE_TYPE24753; t96229.s1.value.structure_type24753 = &t96233; /* x173326 stalin.sc:25197:870668 */ t96225.s1.tag = STRUCTURE_TYPE24753; t96225.s1.value.structure_type24753 = &t96229; /* x173327 stalin.sc:25197:870668 */ t96221.s1.tag = STRUCTURE_TYPE24753; t96221.s1.value.structure_type24753 = &t96225; /* x173328 stalin.sc:25197:870668 */ t96217.s1.tag = STRUCTURE_TYPE24753; t96217.s1.value.structure_type24753 = &t96221; /* x173329 stalin.sc:25197:870668 */ t96213.s1.tag = STRUCTURE_TYPE24753; t96213.s1.value.structure_type24753 = &t96217; /* x173330 stalin.sc:25197:870668 */ t96209.s1.tag = STRUCTURE_TYPE24753; t96209.s1.value.structure_type24753 = &t96213; /* x173331 stalin.sc:25197:870668 */ t96205.s1.tag = STRUCTURE_TYPE24753; t96205.s1.value.structure_type24753 = &t96209; /* x173332 stalin.sc:25197:870668 */ t96204.s1.tag = STRUCTURE_TYPE24753; t96204.s1.value.structure_type24753 = &t96205; /* x173333 stalin.sc:25197:870668 */ t96203.s0.tag = STRUCTURE_TYPE24753; t96203.s0.value.structure_type24753 = &t96204; /* x173334 stalin.sc:25197:870668 */ t96246.s0.tag = EXTERNAL_SYMBOL_TYPE; t96246.s0.value.external_symbol_type = q264; /* x173335 stalin.sc:25197:870668 */ t96247.s0.tag = EXTERNAL_SYMBOL_TYPE; t96247.s0.value.external_symbol_type = q254; /* x173336 stalin.sc:25197:870668 */ t96247.s1.tag = NULL_TYPE; /* x173337 stalin.sc:25197:870668 */ t96246.s1.tag = STRUCTURE_TYPE24753; t96246.s1.value.structure_type24753 = &t96247; /* x173338 stalin.sc:25197:870668 */ t96245.s0.tag = STRUCTURE_TYPE24753; t96245.s0.value.structure_type24753 = &t96246; /* x173339 stalin.sc:25197:870668 */ t96249.s0.tag = EXTERNAL_SYMBOL_TYPE; t96249.s0.value.external_symbol_type = q242; /* x173340 stalin.sc:25197:870668 */ t96252.s0.tag = EXTERNAL_SYMBOL_TYPE; t96252.s0.value.external_symbol_type = q274; /* x173341 stalin.sc:25197:870668 */ t96254.s0.tag = EXTERNAL_SYMBOL_TYPE; t96254.s0.value.external_symbol_type = q264; /* x173342 stalin.sc:25197:870668 */ t96255.s0.tag = EXTERNAL_SYMBOL_TYPE; t96255.s0.value.external_symbol_type = q254; /* x173343 stalin.sc:25197:870668 */ t96255.s1.tag = NULL_TYPE; /* x173344 stalin.sc:25197:870668 */ t96254.s1.tag = STRUCTURE_TYPE24753; t96254.s1.value.structure_type24753 = &t96255; /* x173345 stalin.sc:25197:870668 */ t96253.s0.tag = STRUCTURE_TYPE24753; t96253.s0.value.structure_type24753 = &t96254; /* x173346 stalin.sc:25197:870668 */ t96253.s1.tag = NULL_TYPE; /* x173347 stalin.sc:25197:870668 */ t96252.s1.tag = STRUCTURE_TYPE24753; t96252.s1.value.structure_type24753 = &t96253; /* x173348 stalin.sc:25197:870668 */ t96251.s0.tag = STRUCTURE_TYPE24753; t96251.s0.value.structure_type24753 = &t96252; /* x173349 stalin.sc:25197:870668 */ t96251.s1.tag = NULL_TYPE; /* x173350 stalin.sc:25197:870668 */ t96250.s0.tag = STRUCTURE_TYPE24753; t96250.s0.value.structure_type24753 = &t96251; /* x173351 stalin.sc:25197:870668 */ t96257.s0.tag = EXTERNAL_SYMBOL_TYPE; t96257.s0.value.external_symbol_type = q43; /* x173352 stalin.sc:25197:870668 */ t96259.s0.tag = EXTERNAL_SYMBOL_TYPE; t96259.s0.value.external_symbol_type = q178; /* x173353 stalin.sc:25197:870668 */ t96260.s0.tag = EXTERNAL_SYMBOL_TYPE; t96260.s0.value.external_symbol_type = q274; /* x173354 stalin.sc:25197:870668 */ t96260.s1.tag = NULL_TYPE; /* x173355 stalin.sc:25197:870668 */ t96259.s1.tag = STRUCTURE_TYPE24753; t96259.s1.value.structure_type24753 = &t96260; /* x173356 stalin.sc:25197:870668 */ t96258.s0.tag = STRUCTURE_TYPE24753; t96258.s0.value.structure_type24753 = &t96259; /* x173357 stalin.sc:25197:870668 */ t96262.s0.tag = EXTERNAL_SYMBOL_TYPE; t96262.s0.value.external_symbol_type = q179; /* x173358 stalin.sc:25197:870668 */ t96263.s0.tag = STRING_TYPE; t96263.s0.value.string_type = "EOF while reading exponent"; /* x173359 stalin.sc:25197:870668 */ t96263.s1.tag = NULL_TYPE; /* x173360 stalin.sc:25197:870668 */ t96262.s1.tag = STRUCTURE_TYPE24753; t96262.s1.value.structure_type24753 = &t96263; /* x173361 stalin.sc:25197:870668 */ t96261.s0.tag = STRUCTURE_TYPE24753; t96261.s0.value.structure_type24753 = &t96262; /* x173362 stalin.sc:25197:870668 */ t96261.s1.tag = NULL_TYPE; /* x173363 stalin.sc:25197:870668 */ t96258.s1.tag = STRUCTURE_TYPE24753; t96258.s1.value.structure_type24753 = &t96261; /* x173364 stalin.sc:25197:870668 */ t96257.s1.tag = STRUCTURE_TYPE24753; t96257.s1.value.structure_type24753 = &t96258; /* x173365 stalin.sc:25197:870668 */ t96256.s0.tag = STRUCTURE_TYPE24753; t96256.s0.value.structure_type24753 = &t96257; /* x173366 stalin.sc:25197:870668 */ t96265.s0.tag = EXTERNAL_SYMBOL_TYPE; t96265.s0.value.external_symbol_type = q240; /* x173367 stalin.sc:25197:870668 */ t96268.s0.tag = EXTERNAL_SYMBOL_TYPE; t96268.s0.value.external_symbol_type = q269; /* x173368 stalin.sc:25197:870668 */ t96269.s0.tag = EXTERNAL_SYMBOL_TYPE; t96269.s0.value.external_symbol_type = q274; /* x173369 stalin.sc:25197:870668 */ t96269.s1.tag = NULL_TYPE; /* x173370 stalin.sc:25197:870668 */ t96268.s1.tag = STRUCTURE_TYPE24753; t96268.s1.value.structure_type24753 = &t96269; /* x173371 stalin.sc:25197:870668 */ t96267.s0.tag = STRUCTURE_TYPE24753; t96267.s0.value.structure_type24753 = &t96268; /* x173372 stalin.sc:25197:870668 */ t96271.s0.tag = EXTERNAL_SYMBOL_TYPE; t96271.s0.value.external_symbol_type = q130; /* x173373 stalin.sc:25197:870668 */ t96273.s0.tag = EXTERNAL_SYMBOL_TYPE; t96273.s0.value.external_symbol_type = q154; /* x173374 stalin.sc:25197:870668 */ t96274.s0.tag = EXTERNAL_SYMBOL_TYPE; t96274.s0.value.external_symbol_type = q260; /* x173375 stalin.sc:25197:870668 */ t96274.s1.tag = NULL_TYPE; /* x173376 stalin.sc:25197:870668 */ t96273.s1.tag = STRUCTURE_TYPE24753; t96273.s1.value.structure_type24753 = &t96274; /* x173377 stalin.sc:25197:870668 */ t96272.s0.tag = STRUCTURE_TYPE24753; t96272.s0.value.structure_type24753 = &t96273; /* x173378 stalin.sc:25197:870668 */ t96276.s0.tag = EXTERNAL_SYMBOL_TYPE; t96276.s0.value.external_symbol_type = q153; /* x173379 stalin.sc:25197:870668 */ t96277.s0.tag = FLONUM_TYPE; t96277.s0.value.flonum_type = 1.0e1; /* x173380 stalin.sc:25197:870668 */ t96279.s0.tag = EXTERNAL_SYMBOL_TYPE; t96279.s0.value.external_symbol_type = q268; /* x173381 stalin.sc:25197:870668 */ t96281.s0.tag = EXTERNAL_SYMBOL_TYPE; t96281.s0.value.external_symbol_type = q2; /* x173382 stalin.sc:25197:870668 */ t96283.s0.tag = EXTERNAL_SYMBOL_TYPE; t96283.s0.value.external_symbol_type = q157; /* x173383 stalin.sc:25197:870668 */ t96284.s0.tag = EXTERNAL_SYMBOL_TYPE; t96284.s0.value.external_symbol_type = q274; /* x173384 stalin.sc:25197:870668 */ t96284.s1.tag = NULL_TYPE; /* x173385 stalin.sc:25197:870668 */ t96283.s1.tag = STRUCTURE_TYPE24753; t96283.s1.value.structure_type24753 = &t96284; /* x173386 stalin.sc:25197:870668 */ t96282.s0.tag = STRUCTURE_TYPE24753; t96282.s0.value.structure_type24753 = &t96283; /* x173387 stalin.sc:25197:870668 */ t96286.s0.tag = EXTERNAL_SYMBOL_TYPE; t96286.s0.value.external_symbol_type = q157; /* x173388 stalin.sc:25197:870668 */ t96287.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x173389 stalin.sc:25197:870668 */ t96287.s1.tag = NULL_TYPE; /* x173390 stalin.sc:25197:870668 */ t96286.s1.tag = STRUCTURE_TYPE24753; t96286.s1.value.structure_type24753 = &t96287; /* x173391 stalin.sc:25197:870668 */ t96285.s0.tag = STRUCTURE_TYPE24753; t96285.s0.value.structure_type24753 = &t96286; /* x173392 stalin.sc:25197:870668 */ t96285.s1.tag = NULL_TYPE; /* x173393 stalin.sc:25197:870668 */ t96282.s1.tag = STRUCTURE_TYPE24753; t96282.s1.value.structure_type24753 = &t96285; /* x173394 stalin.sc:25197:870668 */ t96281.s1.tag = STRUCTURE_TYPE24753; t96281.s1.value.structure_type24753 = &t96282; /* x173395 stalin.sc:25197:870668 */ t96280.s0.tag = STRUCTURE_TYPE24753; t96280.s0.value.structure_type24753 = &t96281; /* x173396 stalin.sc:25197:870668 */ t96280.s1.tag = NULL_TYPE; /* x173397 stalin.sc:25197:870668 */ t96279.s1.tag = STRUCTURE_TYPE24753; t96279.s1.value.structure_type24753 = &t96280; /* x173398 stalin.sc:25197:870668 */ t96278.s0.tag = STRUCTURE_TYPE24753; t96278.s0.value.structure_type24753 = &t96279; /* x173399 stalin.sc:25197:870668 */ t96278.s1.tag = NULL_TYPE; /* x173400 stalin.sc:25197:870668 */ t96277.s1.tag = STRUCTURE_TYPE24753; t96277.s1.value.structure_type24753 = &t96278; /* x173401 stalin.sc:25197:870668 */ t96276.s1.tag = STRUCTURE_TYPE24753; t96276.s1.value.structure_type24753 = &t96277; /* x173402 stalin.sc:25197:870668 */ t96275.s0.tag = STRUCTURE_TYPE24753; t96275.s0.value.structure_type24753 = &t96276; /* x173403 stalin.sc:25197:870668 */ t96275.s1.tag = NULL_TYPE; /* x173404 stalin.sc:25197:870668 */ t96272.s1.tag = STRUCTURE_TYPE24753; t96272.s1.value.structure_type24753 = &t96275; /* x173405 stalin.sc:25197:870668 */ t96271.s1.tag = STRUCTURE_TYPE24753; t96271.s1.value.structure_type24753 = &t96272; /* x173406 stalin.sc:25197:870668 */ t96270.s0.tag = STRUCTURE_TYPE24753; t96270.s0.value.structure_type24753 = &t96271; /* x173407 stalin.sc:25197:870668 */ t96270.s1.tag = NULL_TYPE; /* x173408 stalin.sc:25197:870668 */ t96267.s1.tag = STRUCTURE_TYPE24753; t96267.s1.value.structure_type24753 = &t96270; /* x173409 stalin.sc:25197:870668 */ t96266.s0.tag = STRUCTURE_TYPE24753; t96266.s0.value.structure_type24753 = &t96267; /* x173410 stalin.sc:25197:870668 */ t96290.s0.tag = EXTERNAL_SYMBOL_TYPE; t96290.s0.value.external_symbol_type = q263; /* x173411 stalin.sc:25197:870668 */ t96291.s0.tag = EXTERNAL_SYMBOL_TYPE; t96291.s0.value.external_symbol_type = q274; /* x173412 stalin.sc:25197:870668 */ t96292.s0.tag = ((unsigned)((unsigned char)'+'))<<2; /* x173413 stalin.sc:25197:870668 */ t96292.s1.tag = NULL_TYPE; /* x173414 stalin.sc:25197:870668 */ t96291.s1.tag = STRUCTURE_TYPE24753; t96291.s1.value.structure_type24753 = &t96292; /* x173415 stalin.sc:25197:870668 */ t96290.s1.tag = STRUCTURE_TYPE24753; t96290.s1.value.structure_type24753 = &t96291; /* x173416 stalin.sc:25197:870668 */ t96289.s0.tag = STRUCTURE_TYPE24753; t96289.s0.value.structure_type24753 = &t96290; /* x173417 stalin.sc:25197:870668 */ t96294.s0.tag = EXTERNAL_SYMBOL_TYPE; t96294.s0.value.external_symbol_type = q242; /* x173418 stalin.sc:25197:870668 */ t96297.s0.tag = EXTERNAL_SYMBOL_TYPE; t96297.s0.value.external_symbol_type = q275; /* x173419 stalin.sc:25197:870668 */ t96299.s0.tag = EXTERNAL_SYMBOL_TYPE; t96299.s0.value.external_symbol_type = q264; /* x173420 stalin.sc:25197:870668 */ t96300.s0.tag = EXTERNAL_SYMBOL_TYPE; t96300.s0.value.external_symbol_type = q254; /* x173421 stalin.sc:25197:870668 */ t96300.s1.tag = NULL_TYPE; /* x173422 stalin.sc:25197:870668 */ t96299.s1.tag = STRUCTURE_TYPE24753; t96299.s1.value.structure_type24753 = &t96300; /* x173423 stalin.sc:25197:870668 */ t96298.s0.tag = STRUCTURE_TYPE24753; t96298.s0.value.structure_type24753 = &t96299; /* x173424 stalin.sc:25197:870668 */ t96298.s1.tag = NULL_TYPE; /* x173425 stalin.sc:25197:870668 */ t96297.s1.tag = STRUCTURE_TYPE24753; t96297.s1.value.structure_type24753 = &t96298; /* x173426 stalin.sc:25197:870668 */ t96296.s0.tag = STRUCTURE_TYPE24753; t96296.s0.value.structure_type24753 = &t96297; /* x173427 stalin.sc:25197:870668 */ t96296.s1.tag = NULL_TYPE; /* x173428 stalin.sc:25197:870668 */ t96295.s0.tag = STRUCTURE_TYPE24753; t96295.s0.value.structure_type24753 = &t96296; /* x173429 stalin.sc:25197:870668 */ t96302.s0.tag = EXTERNAL_SYMBOL_TYPE; t96302.s0.value.external_symbol_type = q43; /* x173430 stalin.sc:25197:870668 */ t96304.s0.tag = EXTERNAL_SYMBOL_TYPE; t96304.s0.value.external_symbol_type = q178; /* x173431 stalin.sc:25197:870668 */ t96305.s0.tag = EXTERNAL_SYMBOL_TYPE; t96305.s0.value.external_symbol_type = q275; /* x173432 stalin.sc:25197:870668 */ t96305.s1.tag = NULL_TYPE; /* x173433 stalin.sc:25197:870668 */ t96304.s1.tag = STRUCTURE_TYPE24753; t96304.s1.value.structure_type24753 = &t96305; /* x173434 stalin.sc:25197:870668 */ t96303.s0.tag = STRUCTURE_TYPE24753; t96303.s0.value.structure_type24753 = &t96304; /* x173435 stalin.sc:25197:870668 */ t96307.s0.tag = EXTERNAL_SYMBOL_TYPE; t96307.s0.value.external_symbol_type = q179; /* x173436 stalin.sc:25197:870668 */ t96308.s0.tag = STRING_TYPE; t96308.s0.value.string_type = "EOF while reading exponent"; /* x173437 stalin.sc:25197:870668 */ t96308.s1.tag = NULL_TYPE; /* x173438 stalin.sc:25197:870668 */ t96307.s1.tag = STRUCTURE_TYPE24753; t96307.s1.value.structure_type24753 = &t96308; /* x173439 stalin.sc:25197:870668 */ t96306.s0.tag = STRUCTURE_TYPE24753; t96306.s0.value.structure_type24753 = &t96307; /* x173440 stalin.sc:25197:870668 */ t96306.s1.tag = NULL_TYPE; /* x173441 stalin.sc:25197:870668 */ t96303.s1.tag = STRUCTURE_TYPE24753; t96303.s1.value.structure_type24753 = &t96306; /* x173442 stalin.sc:25197:870668 */ t96302.s1.tag = STRUCTURE_TYPE24753; t96302.s1.value.structure_type24753 = &t96303; /* x173443 stalin.sc:25197:870668 */ t96301.s0.tag = STRUCTURE_TYPE24753; t96301.s0.value.structure_type24753 = &t96302; /* x173444 stalin.sc:25197:870668 */ t96310.s0.tag = EXTERNAL_SYMBOL_TYPE; t96310.s0.value.external_symbol_type = q43; /* x173445 stalin.sc:25197:870668 */ t96312.s0.tag = EXTERNAL_SYMBOL_TYPE; t96312.s0.value.external_symbol_type = q102; /* x173446 stalin.sc:25197:870668 */ t96314.s0.tag = EXTERNAL_SYMBOL_TYPE; t96314.s0.value.external_symbol_type = q269; /* x173447 stalin.sc:25197:870668 */ t96315.s0.tag = EXTERNAL_SYMBOL_TYPE; t96315.s0.value.external_symbol_type = q275; /* x173448 stalin.sc:25197:870668 */ t96315.s1.tag = NULL_TYPE; /* x173449 stalin.sc:25197:870668 */ t96314.s1.tag = STRUCTURE_TYPE24753; t96314.s1.value.structure_type24753 = &t96315; /* x173450 stalin.sc:25197:870668 */ t96313.s0.tag = STRUCTURE_TYPE24753; t96313.s0.value.structure_type24753 = &t96314; /* x173451 stalin.sc:25197:870668 */ t96313.s1.tag = NULL_TYPE; /* x173452 stalin.sc:25197:870668 */ t96312.s1.tag = STRUCTURE_TYPE24753; t96312.s1.value.structure_type24753 = &t96313; /* x173453 stalin.sc:25197:870668 */ t96311.s0.tag = STRUCTURE_TYPE24753; t96311.s0.value.structure_type24753 = &t96312; /* x173454 stalin.sc:25197:870668 */ t96317.s0.tag = EXTERNAL_SYMBOL_TYPE; t96317.s0.value.external_symbol_type = q179; /* x173455 stalin.sc:25197:870668 */ t96318.s0.tag = STRING_TYPE; t96318.s0.value.string_type = "Unfinished exponent"; /* x173456 stalin.sc:25197:870668 */ t96318.s1.tag = NULL_TYPE; /* x173457 stalin.sc:25197:870668 */ t96317.s1.tag = STRUCTURE_TYPE24753; t96317.s1.value.structure_type24753 = &t96318; /* x173458 stalin.sc:25197:870668 */ t96316.s0.tag = STRUCTURE_TYPE24753; t96316.s0.value.structure_type24753 = &t96317; /* x173459 stalin.sc:25197:870668 */ t96316.s1.tag = NULL_TYPE; /* x173460 stalin.sc:25197:870668 */ t96311.s1.tag = STRUCTURE_TYPE24753; t96311.s1.value.structure_type24753 = &t96316; /* x173461 stalin.sc:25197:870668 */ t96310.s1.tag = STRUCTURE_TYPE24753; t96310.s1.value.structure_type24753 = &t96311; /* x173462 stalin.sc:25197:870668 */ t96309.s0.tag = STRUCTURE_TYPE24753; t96309.s0.value.structure_type24753 = &t96310; /* x173463 stalin.sc:25197:870668 */ t96320.s0.tag = EXTERNAL_SYMBOL_TYPE; t96320.s0.value.external_symbol_type = q130; /* x173464 stalin.sc:25197:870668 */ t96322.s0.tag = EXTERNAL_SYMBOL_TYPE; t96322.s0.value.external_symbol_type = q154; /* x173465 stalin.sc:25197:870668 */ t96323.s0.tag = EXTERNAL_SYMBOL_TYPE; t96323.s0.value.external_symbol_type = q260; /* x173466 stalin.sc:25197:870668 */ t96323.s1.tag = NULL_TYPE; /* x173467 stalin.sc:25197:870668 */ t96322.s1.tag = STRUCTURE_TYPE24753; t96322.s1.value.structure_type24753 = &t96323; /* x173468 stalin.sc:25197:870668 */ t96321.s0.tag = STRUCTURE_TYPE24753; t96321.s0.value.structure_type24753 = &t96322; /* x173469 stalin.sc:25197:870668 */ t96325.s0.tag = EXTERNAL_SYMBOL_TYPE; t96325.s0.value.external_symbol_type = q153; /* x173470 stalin.sc:25197:870668 */ t96326.s0.tag = FLONUM_TYPE; t96326.s0.value.flonum_type = 1.0e1; /* x173471 stalin.sc:25197:870668 */ t96328.s0.tag = EXTERNAL_SYMBOL_TYPE; t96328.s0.value.external_symbol_type = q268; /* x173472 stalin.sc:25197:870668 */ t96330.s0.tag = EXTERNAL_SYMBOL_TYPE; t96330.s0.value.external_symbol_type = q2; /* x173473 stalin.sc:25197:870668 */ t96332.s0.tag = EXTERNAL_SYMBOL_TYPE; t96332.s0.value.external_symbol_type = q157; /* x173474 stalin.sc:25197:870668 */ t96333.s0.tag = EXTERNAL_SYMBOL_TYPE; t96333.s0.value.external_symbol_type = q275; /* x173475 stalin.sc:25197:870668 */ t96333.s1.tag = NULL_TYPE; /* x173476 stalin.sc:25197:870668 */ t96332.s1.tag = STRUCTURE_TYPE24753; t96332.s1.value.structure_type24753 = &t96333; /* x173477 stalin.sc:25197:870668 */ t96331.s0.tag = STRUCTURE_TYPE24753; t96331.s0.value.structure_type24753 = &t96332; /* x173478 stalin.sc:25197:870668 */ t96335.s0.tag = EXTERNAL_SYMBOL_TYPE; t96335.s0.value.external_symbol_type = q157; /* x173479 stalin.sc:25197:870668 */ t96336.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x173480 stalin.sc:25197:870668 */ t96336.s1.tag = NULL_TYPE; /* x173481 stalin.sc:25197:870668 */ t96335.s1.tag = STRUCTURE_TYPE24753; t96335.s1.value.structure_type24753 = &t96336; /* x173482 stalin.sc:25197:870668 */ t96334.s0.tag = STRUCTURE_TYPE24753; t96334.s0.value.structure_type24753 = &t96335; /* x173483 stalin.sc:25197:870668 */ t96334.s1.tag = NULL_TYPE; /* x173484 stalin.sc:25197:870668 */ t96331.s1.tag = STRUCTURE_TYPE24753; t96331.s1.value.structure_type24753 = &t96334; /* x173485 stalin.sc:25197:870668 */ t96330.s1.tag = STRUCTURE_TYPE24753; t96330.s1.value.structure_type24753 = &t96331; /* x173486 stalin.sc:25197:870668 */ t96329.s0.tag = STRUCTURE_TYPE24753; t96329.s0.value.structure_type24753 = &t96330; /* x173487 stalin.sc:25197:870668 */ t96329.s1.tag = NULL_TYPE; /* x173488 stalin.sc:25197:870668 */ t96328.s1.tag = STRUCTURE_TYPE24753; t96328.s1.value.structure_type24753 = &t96329; /* x173489 stalin.sc:25197:870668 */ t96327.s0.tag = STRUCTURE_TYPE24753; t96327.s0.value.structure_type24753 = &t96328; /* x173490 stalin.sc:25197:870668 */ t96327.s1.tag = NULL_TYPE; /* x173491 stalin.sc:25197:870668 */ t96326.s1.tag = STRUCTURE_TYPE24753; t96326.s1.value.structure_type24753 = &t96327; /* x173492 stalin.sc:25197:870668 */ t96325.s1.tag = STRUCTURE_TYPE24753; t96325.s1.value.structure_type24753 = &t96326; /* x173493 stalin.sc:25197:870668 */ t96324.s0.tag = STRUCTURE_TYPE24753; t96324.s0.value.structure_type24753 = &t96325; /* x173494 stalin.sc:25197:870668 */ t96324.s1.tag = NULL_TYPE; /* x173495 stalin.sc:25197:870668 */ t96321.s1.tag = STRUCTURE_TYPE24753; t96321.s1.value.structure_type24753 = &t96324; /* x173496 stalin.sc:25197:870668 */ t96320.s1.tag = STRUCTURE_TYPE24753; t96320.s1.value.structure_type24753 = &t96321; /* x173497 stalin.sc:25197:870668 */ t96319.s0.tag = STRUCTURE_TYPE24753; t96319.s0.value.structure_type24753 = &t96320; /* x173498 stalin.sc:25197:870668 */ t96319.s1.tag = NULL_TYPE; /* x173499 stalin.sc:25197:870668 */ t96309.s1.tag = STRUCTURE_TYPE24753; t96309.s1.value.structure_type24753 = &t96319; /* x173500 stalin.sc:25197:870668 */ t96301.s1.tag = STRUCTURE_TYPE24753; t96301.s1.value.structure_type24753 = &t96309; /* x173501 stalin.sc:25197:870668 */ t96295.s1.tag = STRUCTURE_TYPE24753; t96295.s1.value.structure_type24753 = &t96301; /* x173502 stalin.sc:25197:870668 */ t96294.s1.tag = STRUCTURE_TYPE24753; t96294.s1.value.structure_type24753 = &t96295; /* x173503 stalin.sc:25197:870668 */ t96293.s0.tag = STRUCTURE_TYPE24753; t96293.s0.value.structure_type24753 = &t96294; /* x173504 stalin.sc:25197:870668 */ t96293.s1.tag = NULL_TYPE; /* x173505 stalin.sc:25197:870668 */ t96289.s1.tag = STRUCTURE_TYPE24753; t96289.s1.value.structure_type24753 = &t96293; /* x173506 stalin.sc:25197:870668 */ t96288.s0.tag = STRUCTURE_TYPE24753; t96288.s0.value.structure_type24753 = &t96289; /* x173507 stalin.sc:25197:870668 */ t96339.s0.tag = EXTERNAL_SYMBOL_TYPE; t96339.s0.value.external_symbol_type = q263; /* x173508 stalin.sc:25197:870668 */ t96340.s0.tag = EXTERNAL_SYMBOL_TYPE; t96340.s0.value.external_symbol_type = q274; /* x173509 stalin.sc:25197:870668 */ t96341.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x173510 stalin.sc:25197:870668 */ t96341.s1.tag = NULL_TYPE; /* x173511 stalin.sc:25197:870668 */ t96340.s1.tag = STRUCTURE_TYPE24753; t96340.s1.value.structure_type24753 = &t96341; /* x173512 stalin.sc:25197:870668 */ t96339.s1.tag = STRUCTURE_TYPE24753; t96339.s1.value.structure_type24753 = &t96340; /* x173513 stalin.sc:25197:870668 */ t96338.s0.tag = STRUCTURE_TYPE24753; t96338.s0.value.structure_type24753 = &t96339; /* x173514 stalin.sc:25197:870668 */ t96343.s0.tag = EXTERNAL_SYMBOL_TYPE; t96343.s0.value.external_symbol_type = q242; /* x173515 stalin.sc:25197:870668 */ t96346.s0.tag = EXTERNAL_SYMBOL_TYPE; t96346.s0.value.external_symbol_type = q275; /* x173516 stalin.sc:25197:870668 */ t96348.s0.tag = EXTERNAL_SYMBOL_TYPE; t96348.s0.value.external_symbol_type = q264; /* x173517 stalin.sc:25197:870668 */ t96349.s0.tag = EXTERNAL_SYMBOL_TYPE; t96349.s0.value.external_symbol_type = q254; /* x173518 stalin.sc:25197:870668 */ t96349.s1.tag = NULL_TYPE; /* x173519 stalin.sc:25197:870668 */ t96348.s1.tag = STRUCTURE_TYPE24753; t96348.s1.value.structure_type24753 = &t96349; /* x173520 stalin.sc:25197:870668 */ t96347.s0.tag = STRUCTURE_TYPE24753; t96347.s0.value.structure_type24753 = &t96348; /* x173521 stalin.sc:25197:870668 */ t96347.s1.tag = NULL_TYPE; /* x173522 stalin.sc:25197:870668 */ t96346.s1.tag = STRUCTURE_TYPE24753; t96346.s1.value.structure_type24753 = &t96347; /* x173523 stalin.sc:25197:870668 */ t96345.s0.tag = STRUCTURE_TYPE24753; t96345.s0.value.structure_type24753 = &t96346; /* x173524 stalin.sc:25197:870668 */ t96345.s1.tag = NULL_TYPE; /* x173525 stalin.sc:25197:870668 */ t96344.s0.tag = STRUCTURE_TYPE24753; t96344.s0.value.structure_type24753 = &t96345; /* x173526 stalin.sc:25197:870668 */ t96351.s0.tag = EXTERNAL_SYMBOL_TYPE; t96351.s0.value.external_symbol_type = q43; /* x173527 stalin.sc:25197:870668 */ t96353.s0.tag = EXTERNAL_SYMBOL_TYPE; t96353.s0.value.external_symbol_type = q178; /* x173528 stalin.sc:25197:870668 */ t96354.s0.tag = EXTERNAL_SYMBOL_TYPE; t96354.s0.value.external_symbol_type = q275; /* x173529 stalin.sc:25197:870668 */ t96354.s1.tag = NULL_TYPE; /* x173530 stalin.sc:25197:870668 */ t96353.s1.tag = STRUCTURE_TYPE24753; t96353.s1.value.structure_type24753 = &t96354; /* x173531 stalin.sc:25197:870668 */ t96352.s0.tag = STRUCTURE_TYPE24753; t96352.s0.value.structure_type24753 = &t96353; /* x173532 stalin.sc:25197:870668 */ t96356.s0.tag = EXTERNAL_SYMBOL_TYPE; t96356.s0.value.external_symbol_type = q179; /* x173533 stalin.sc:25197:870668 */ t96357.s0.tag = STRING_TYPE; t96357.s0.value.string_type = "EOF while reading exponent"; /* x173534 stalin.sc:25197:870668 */ t96357.s1.tag = NULL_TYPE; /* x173535 stalin.sc:25197:870668 */ t96356.s1.tag = STRUCTURE_TYPE24753; t96356.s1.value.structure_type24753 = &t96357; /* x173536 stalin.sc:25197:870668 */ t96355.s0.tag = STRUCTURE_TYPE24753; t96355.s0.value.structure_type24753 = &t96356; /* x173537 stalin.sc:25197:870668 */ t96355.s1.tag = NULL_TYPE; /* x173538 stalin.sc:25197:870668 */ t96352.s1.tag = STRUCTURE_TYPE24753; t96352.s1.value.structure_type24753 = &t96355; /* x173539 stalin.sc:25197:870668 */ t96351.s1.tag = STRUCTURE_TYPE24753; t96351.s1.value.structure_type24753 = &t96352; /* x173540 stalin.sc:25197:870668 */ t96350.s0.tag = STRUCTURE_TYPE24753; t96350.s0.value.structure_type24753 = &t96351; /* x173541 stalin.sc:25197:870668 */ t96359.s0.tag = EXTERNAL_SYMBOL_TYPE; t96359.s0.value.external_symbol_type = q43; /* x173542 stalin.sc:25197:870668 */ t96361.s0.tag = EXTERNAL_SYMBOL_TYPE; t96361.s0.value.external_symbol_type = q102; /* x173543 stalin.sc:25197:870668 */ t96363.s0.tag = EXTERNAL_SYMBOL_TYPE; t96363.s0.value.external_symbol_type = q269; /* x173544 stalin.sc:25197:870668 */ t96364.s0.tag = EXTERNAL_SYMBOL_TYPE; t96364.s0.value.external_symbol_type = q275; /* x173545 stalin.sc:25197:870668 */ t96364.s1.tag = NULL_TYPE; /* x173546 stalin.sc:25197:870668 */ t96363.s1.tag = STRUCTURE_TYPE24753; t96363.s1.value.structure_type24753 = &t96364; /* x173547 stalin.sc:25197:870668 */ t96362.s0.tag = STRUCTURE_TYPE24753; t96362.s0.value.structure_type24753 = &t96363; /* x173548 stalin.sc:25197:870668 */ t96362.s1.tag = NULL_TYPE; /* x173549 stalin.sc:25197:870668 */ t96361.s1.tag = STRUCTURE_TYPE24753; t96361.s1.value.structure_type24753 = &t96362; /* x173550 stalin.sc:25197:870668 */ t96360.s0.tag = STRUCTURE_TYPE24753; t96360.s0.value.structure_type24753 = &t96361; /* x173551 stalin.sc:25197:870668 */ t96366.s0.tag = EXTERNAL_SYMBOL_TYPE; t96366.s0.value.external_symbol_type = q179; /* x173552 stalin.sc:25197:870668 */ t96367.s0.tag = STRING_TYPE; t96367.s0.value.string_type = "Unfinished exponent"; /* x173553 stalin.sc:25197:870668 */ t96367.s1.tag = NULL_TYPE; /* x173554 stalin.sc:25197:870668 */ t96366.s1.tag = STRUCTURE_TYPE24753; t96366.s1.value.structure_type24753 = &t96367; /* x173555 stalin.sc:25197:870668 */ t96365.s0.tag = STRUCTURE_TYPE24753; t96365.s0.value.structure_type24753 = &t96366; /* x173556 stalin.sc:25197:870668 */ t96365.s1.tag = NULL_TYPE; /* x173557 stalin.sc:25197:870668 */ t96360.s1.tag = STRUCTURE_TYPE24753; t96360.s1.value.structure_type24753 = &t96365; /* x173558 stalin.sc:25197:870668 */ t96359.s1.tag = STRUCTURE_TYPE24753; t96359.s1.value.structure_type24753 = &t96360; /* x173559 stalin.sc:25197:870668 */ t96358.s0.tag = STRUCTURE_TYPE24753; t96358.s0.value.structure_type24753 = &t96359; /* x173560 stalin.sc:25197:870668 */ t96369.s0.tag = EXTERNAL_SYMBOL_TYPE; t96369.s0.value.external_symbol_type = q130; /* x173561 stalin.sc:25197:870668 */ t96371.s0.tag = EXTERNAL_SYMBOL_TYPE; t96371.s0.value.external_symbol_type = q154; /* x173562 stalin.sc:25197:870668 */ t96372.s0.tag = EXTERNAL_SYMBOL_TYPE; t96372.s0.value.external_symbol_type = q260; /* x173563 stalin.sc:25197:870668 */ t96372.s1.tag = NULL_TYPE; /* x173564 stalin.sc:25197:870668 */ t96371.s1.tag = STRUCTURE_TYPE24753; t96371.s1.value.structure_type24753 = &t96372; /* x173565 stalin.sc:25197:870668 */ t96370.s0.tag = STRUCTURE_TYPE24753; t96370.s0.value.structure_type24753 = &t96371; /* x173566 stalin.sc:25197:870668 */ t96374.s0.tag = EXTERNAL_SYMBOL_TYPE; t96374.s0.value.external_symbol_type = q153; /* x173567 stalin.sc:25197:870668 */ t96375.s0.tag = FLONUM_TYPE; t96375.s0.value.flonum_type = 1.0e1; /* x173568 stalin.sc:25197:870668 */ t96377.s0.tag = EXTERNAL_SYMBOL_TYPE; t96377.s0.value.external_symbol_type = q2; /* x173569 stalin.sc:25197:870668 */ t96379.s0.tag = EXTERNAL_SYMBOL_TYPE; t96379.s0.value.external_symbol_type = q268; /* x173570 stalin.sc:25197:870668 */ t96381.s0.tag = EXTERNAL_SYMBOL_TYPE; t96381.s0.value.external_symbol_type = q2; /* x173571 stalin.sc:25197:870668 */ t96383.s0.tag = EXTERNAL_SYMBOL_TYPE; t96383.s0.value.external_symbol_type = q157; /* x173572 stalin.sc:25197:870668 */ t96384.s0.tag = EXTERNAL_SYMBOL_TYPE; t96384.s0.value.external_symbol_type = q275; /* x173573 stalin.sc:25197:870668 */ t96384.s1.tag = NULL_TYPE; /* x173574 stalin.sc:25197:870668 */ t96383.s1.tag = STRUCTURE_TYPE24753; t96383.s1.value.structure_type24753 = &t96384; /* x173575 stalin.sc:25197:870668 */ t96382.s0.tag = STRUCTURE_TYPE24753; t96382.s0.value.structure_type24753 = &t96383; /* x173576 stalin.sc:25197:870668 */ t96386.s0.tag = EXTERNAL_SYMBOL_TYPE; t96386.s0.value.external_symbol_type = q157; /* x173577 stalin.sc:25197:870668 */ t96387.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x173578 stalin.sc:25197:870668 */ t96387.s1.tag = NULL_TYPE; /* x173579 stalin.sc:25197:870668 */ t96386.s1.tag = STRUCTURE_TYPE24753; t96386.s1.value.structure_type24753 = &t96387; /* x173580 stalin.sc:25197:870668 */ t96385.s0.tag = STRUCTURE_TYPE24753; t96385.s0.value.structure_type24753 = &t96386; /* x173581 stalin.sc:25197:870668 */ t96385.s1.tag = NULL_TYPE; /* x173582 stalin.sc:25197:870668 */ t96382.s1.tag = STRUCTURE_TYPE24753; t96382.s1.value.structure_type24753 = &t96385; /* x173583 stalin.sc:25197:870668 */ t96381.s1.tag = STRUCTURE_TYPE24753; t96381.s1.value.structure_type24753 = &t96382; /* x173584 stalin.sc:25197:870668 */ t96380.s0.tag = STRUCTURE_TYPE24753; t96380.s0.value.structure_type24753 = &t96381; /* x173585 stalin.sc:25197:870668 */ t96380.s1.tag = NULL_TYPE; /* x173586 stalin.sc:25197:870668 */ t96379.s1.tag = STRUCTURE_TYPE24753; t96379.s1.value.structure_type24753 = &t96380; /* x173587 stalin.sc:25197:870668 */ t96378.s0.tag = STRUCTURE_TYPE24753; t96378.s0.value.structure_type24753 = &t96379; /* x173588 stalin.sc:25197:870668 */ t96378.s1.tag = NULL_TYPE; /* x173589 stalin.sc:25197:870668 */ t96377.s1.tag = STRUCTURE_TYPE24753; t96377.s1.value.structure_type24753 = &t96378; /* x173590 stalin.sc:25197:870668 */ t96376.s0.tag = STRUCTURE_TYPE24753; t96376.s0.value.structure_type24753 = &t96377; /* x173591 stalin.sc:25197:870668 */ t96376.s1.tag = NULL_TYPE; /* x173592 stalin.sc:25197:870668 */ t96375.s1.tag = STRUCTURE_TYPE24753; t96375.s1.value.structure_type24753 = &t96376; /* x173593 stalin.sc:25197:870668 */ t96374.s1.tag = STRUCTURE_TYPE24753; t96374.s1.value.structure_type24753 = &t96375; /* x173594 stalin.sc:25197:870668 */ t96373.s0.tag = STRUCTURE_TYPE24753; t96373.s0.value.structure_type24753 = &t96374; /* x173595 stalin.sc:25197:870668 */ t96373.s1.tag = NULL_TYPE; /* x173596 stalin.sc:25197:870668 */ t96370.s1.tag = STRUCTURE_TYPE24753; t96370.s1.value.structure_type24753 = &t96373; /* x173597 stalin.sc:25197:870668 */ t96369.s1.tag = STRUCTURE_TYPE24753; t96369.s1.value.structure_type24753 = &t96370; /* x173598 stalin.sc:25197:870668 */ t96368.s0.tag = STRUCTURE_TYPE24753; t96368.s0.value.structure_type24753 = &t96369; /* x173599 stalin.sc:25197:870668 */ t96368.s1.tag = NULL_TYPE; /* x173600 stalin.sc:25197:870668 */ t96358.s1.tag = STRUCTURE_TYPE24753; t96358.s1.value.structure_type24753 = &t96368; /* x173601 stalin.sc:25197:870668 */ t96350.s1.tag = STRUCTURE_TYPE24753; t96350.s1.value.structure_type24753 = &t96358; /* x173602 stalin.sc:25197:870668 */ t96344.s1.tag = STRUCTURE_TYPE24753; t96344.s1.value.structure_type24753 = &t96350; /* x173603 stalin.sc:25197:870668 */ t96343.s1.tag = STRUCTURE_TYPE24753; t96343.s1.value.structure_type24753 = &t96344; /* x173604 stalin.sc:25197:870668 */ t96342.s0.tag = STRUCTURE_TYPE24753; t96342.s0.value.structure_type24753 = &t96343; /* x173605 stalin.sc:25197:870668 */ t96342.s1.tag = NULL_TYPE; /* x173606 stalin.sc:25197:870668 */ t96338.s1.tag = STRUCTURE_TYPE24753; t96338.s1.value.structure_type24753 = &t96342; /* x173607 stalin.sc:25197:870668 */ t96337.s0.tag = STRUCTURE_TYPE24753; t96337.s0.value.structure_type24753 = &t96338; /* x173608 stalin.sc:25197:870668 */ t96389.s0.tag = EXTERNAL_SYMBOL_TYPE; t96389.s0.value.external_symbol_type = q95; /* x173609 stalin.sc:25197:870668 */ t96391.s0.tag = EXTERNAL_SYMBOL_TYPE; t96391.s0.value.external_symbol_type = q179; /* x173610 stalin.sc:25197:870668 */ t96392.s0.tag = STRING_TYPE; t96392.s0.value.string_type = "Unfinished exponent"; /* x173611 stalin.sc:25197:870668 */ t96392.s1.tag = NULL_TYPE; /* x173612 stalin.sc:25197:870668 */ t96391.s1.tag = STRUCTURE_TYPE24753; t96391.s1.value.structure_type24753 = &t96392; /* x173613 stalin.sc:25197:870668 */ t96390.s0.tag = STRUCTURE_TYPE24753; t96390.s0.value.structure_type24753 = &t96391; /* x173614 stalin.sc:25197:870668 */ t96390.s1.tag = NULL_TYPE; /* x173615 stalin.sc:25197:870668 */ t96389.s1.tag = STRUCTURE_TYPE24753; t96389.s1.value.structure_type24753 = &t96390; /* x173616 stalin.sc:25197:870668 */ t96388.s0.tag = STRUCTURE_TYPE24753; t96388.s0.value.structure_type24753 = &t96389; /* x173617 stalin.sc:25197:870668 */ t96388.s1.tag = NULL_TYPE; /* x173618 stalin.sc:25197:870668 */ t96337.s1.tag = STRUCTURE_TYPE24753; t96337.s1.value.structure_type24753 = &t96388; /* x173619 stalin.sc:25197:870668 */ t96288.s1.tag = STRUCTURE_TYPE24753; t96288.s1.value.structure_type24753 = &t96337; /* x173620 stalin.sc:25197:870668 */ t96266.s1.tag = STRUCTURE_TYPE24753; t96266.s1.value.structure_type24753 = &t96288; /* x173621 stalin.sc:25197:870668 */ t96265.s1.tag = STRUCTURE_TYPE24753; t96265.s1.value.structure_type24753 = &t96266; /* x173622 stalin.sc:25197:870668 */ t96264.s0.tag = STRUCTURE_TYPE24753; t96264.s0.value.structure_type24753 = &t96265; /* x173623 stalin.sc:25197:870668 */ t96264.s1.tag = NULL_TYPE; /* x173624 stalin.sc:25197:870668 */ t96256.s1.tag = STRUCTURE_TYPE24753; t96256.s1.value.structure_type24753 = &t96264; /* x173625 stalin.sc:25197:870668 */ t96250.s1.tag = STRUCTURE_TYPE24753; t96250.s1.value.structure_type24753 = &t96256; /* x173626 stalin.sc:25197:870668 */ t96249.s1.tag = STRUCTURE_TYPE24753; t96249.s1.value.structure_type24753 = &t96250; /* x173627 stalin.sc:25197:870668 */ t96248.s0.tag = STRUCTURE_TYPE24753; t96248.s0.value.structure_type24753 = &t96249; /* x173628 stalin.sc:25197:870668 */ t96248.s1.tag = NULL_TYPE; /* x173629 stalin.sc:25197:870668 */ t96245.s1.tag = STRUCTURE_TYPE24753; t96245.s1.value.structure_type24753 = &t96248; /* x173630 stalin.sc:25197:870668 */ t96203.s1.tag = STRUCTURE_TYPE24753; t96203.s1.value.structure_type24753 = &t96245; /* x173631 stalin.sc:25197:870668 */ t96202.s0.tag = STRUCTURE_TYPE24753; t96202.s0.value.structure_type24753 = &t96203; /* x173632 stalin.sc:25197:870668 */ t96394.s0.tag = EXTERNAL_SYMBOL_TYPE; t96394.s0.value.external_symbol_type = q95; /* x173633 stalin.sc:25197:870668 */ t96395.s0.tag = EXTERNAL_SYMBOL_TYPE; t96395.s0.value.external_symbol_type = q260; /* x173634 stalin.sc:25197:870668 */ t96395.s1.tag = NULL_TYPE; /* x173635 stalin.sc:25197:870668 */ t96394.s1.tag = STRUCTURE_TYPE24753; t96394.s1.value.structure_type24753 = &t96395; /* x173636 stalin.sc:25197:870668 */ t96393.s0.tag = STRUCTURE_TYPE24753; t96393.s0.value.structure_type24753 = &t96394; /* x173637 stalin.sc:25197:870668 */ t96393.s1.tag = NULL_TYPE; /* x173638 stalin.sc:25197:870668 */ t96202.s1.tag = STRUCTURE_TYPE24753; t96202.s1.value.structure_type24753 = &t96393; /* x173639 stalin.sc:25197:870668 */ t96188.s1.tag = STRUCTURE_TYPE24753; t96188.s1.value.structure_type24753 = &t96202; /* x173640 stalin.sc:25197:870668 */ t96165.s1.tag = STRUCTURE_TYPE24753; t96165.s1.value.structure_type24753 = &t96188; /* x173641 stalin.sc:25197:870668 */ t96160.s1.tag = STRUCTURE_TYPE24753; t96160.s1.value.structure_type24753 = &t96165; /* x173642 stalin.sc:25197:870668 */ t96159.s1.tag = STRUCTURE_TYPE24753; t96159.s1.value.structure_type24753 = &t96160; /* x173643 stalin.sc:25197:870668 */ t96158.s0.tag = STRUCTURE_TYPE24753; t96158.s0.value.structure_type24753 = &t96159; /* x173644 stalin.sc:25197:870668 */ t96158.s1.tag = NULL_TYPE; /* x173645 stalin.sc:25197:870668 */ t96152.s1.tag = STRUCTURE_TYPE24753; t96152.s1.value.structure_type24753 = &t96158; /* x173646 stalin.sc:25197:870668 */ t96151.s1.tag = STRUCTURE_TYPE24753; t96151.s1.value.structure_type24753 = &t96152; /* x173647 stalin.sc:25197:870668 */ t96150.s0.tag = STRUCTURE_TYPE24753; t96150.s0.value.structure_type24753 = &t96151; /* x173648 stalin.sc:25197:870668 */ t96150.s1.tag = NULL_TYPE; /* x173649 stalin.sc:25197:870668 */ t96147.s1.tag = STRUCTURE_TYPE24753; t96147.s1.value.structure_type24753 = &t96150; /* x173650 stalin.sc:25197:870668 */ t96146.s1.tag = STRUCTURE_TYPE24753; t96146.s1.value.structure_type24753 = &t96147; /* x173651 stalin.sc:25197:870668 */ t96145.s0.tag = STRUCTURE_TYPE24753; t96145.s0.value.structure_type24753 = &t96146; /* x173652 stalin.sc:25197:870668 */ t96397.s0.tag = EXTERNAL_SYMBOL_TYPE; t96397.s0.value.external_symbol_type = q97; /* x173653 stalin.sc:25197:870668 */ t96399.s0.tag = EXTERNAL_SYMBOL_TYPE; t96399.s0.value.external_symbol_type = q277; /* x173654 stalin.sc:25197:870668 */ t96400.s0.tag = EXTERNAL_SYMBOL_TYPE; t96400.s0.value.external_symbol_type = q261; /* x173655 stalin.sc:25197:870668 */ t96400.s1.tag = NULL_TYPE; /* x173656 stalin.sc:25197:870668 */ t96399.s1.tag = STRUCTURE_TYPE24753; t96399.s1.value.structure_type24753 = &t96400; /* x173657 stalin.sc:25197:870668 */ t96398.s0.tag = STRUCTURE_TYPE24753; t96398.s0.value.structure_type24753 = &t96399; /* x173658 stalin.sc:25197:870668 */ t96402.s0.tag = EXTERNAL_SYMBOL_TYPE; t96402.s0.value.external_symbol_type = q241; /* x173659 stalin.sc:25197:870668 */ t96404.s0.tag = EXTERNAL_SYMBOL_TYPE; t96404.s0.value.external_symbol_type = q278; /* x173660 stalin.sc:25197:870668 */ t96405.s0.tag = EXTERNAL_SYMBOL_TYPE; t96405.s0.value.external_symbol_type = q261; /* x173661 stalin.sc:25197:870668 */ t96405.s1.tag = NULL_TYPE; /* x173662 stalin.sc:25197:870668 */ t96404.s1.tag = STRUCTURE_TYPE24753; t96404.s1.value.structure_type24753 = &t96405; /* x173663 stalin.sc:25197:870668 */ t96403.s0.tag = STRUCTURE_TYPE24753; t96403.s0.value.structure_type24753 = &t96404; /* x173664 stalin.sc:25197:870668 */ t96407.s0.tag = EXTERNAL_SYMBOL_TYPE; t96407.s0.value.external_symbol_type = q263; /* x173665 stalin.sc:25197:870668 */ t96408.s0.tag = EXTERNAL_SYMBOL_TYPE; t96408.s0.value.external_symbol_type = q261; /* x173666 stalin.sc:25197:870668 */ t96409.s0.tag = ((unsigned)((unsigned char)'~'))<<2; /* x173667 stalin.sc:25197:870668 */ t96409.s1.tag = NULL_TYPE; /* x173668 stalin.sc:25197:870668 */ t96408.s1.tag = STRUCTURE_TYPE24753; t96408.s1.value.structure_type24753 = &t96409; /* x173669 stalin.sc:25197:870668 */ t96407.s1.tag = STRUCTURE_TYPE24753; t96407.s1.value.structure_type24753 = &t96408; /* x173670 stalin.sc:25197:870668 */ t96406.s0.tag = STRUCTURE_TYPE24753; t96406.s0.value.structure_type24753 = &t96407; /* x173671 stalin.sc:25197:870668 */ t96411.s0.tag = EXTERNAL_SYMBOL_TYPE; t96411.s0.value.external_symbol_type = q263; /* x173672 stalin.sc:25197:870668 */ t96412.s0.tag = EXTERNAL_SYMBOL_TYPE; t96412.s0.value.external_symbol_type = q261; /* x173673 stalin.sc:25197:870668 */ t96413.s0.tag = ((unsigned)((unsigned char)'!'))<<2; /* x173674 stalin.sc:25197:870668 */ t96413.s1.tag = NULL_TYPE; /* x173675 stalin.sc:25197:870668 */ t96412.s1.tag = STRUCTURE_TYPE24753; t96412.s1.value.structure_type24753 = &t96413; /* x173676 stalin.sc:25197:870668 */ t96411.s1.tag = STRUCTURE_TYPE24753; t96411.s1.value.structure_type24753 = &t96412; /* x173677 stalin.sc:25197:870668 */ t96410.s0.tag = STRUCTURE_TYPE24753; t96410.s0.value.structure_type24753 = &t96411; /* x173678 stalin.sc:25197:870668 */ t96415.s0.tag = EXTERNAL_SYMBOL_TYPE; t96415.s0.value.external_symbol_type = q263; /* x173679 stalin.sc:25197:870668 */ t96416.s0.tag = EXTERNAL_SYMBOL_TYPE; t96416.s0.value.external_symbol_type = q261; /* x173680 stalin.sc:25197:870668 */ t96417.s0.tag = ((unsigned)((unsigned char)'$'))<<2; /* x173681 stalin.sc:25197:870668 */ t96417.s1.tag = NULL_TYPE; /* x173682 stalin.sc:25197:870668 */ t96416.s1.tag = STRUCTURE_TYPE24753; t96416.s1.value.structure_type24753 = &t96417; /* x173683 stalin.sc:25197:870668 */ t96415.s1.tag = STRUCTURE_TYPE24753; t96415.s1.value.structure_type24753 = &t96416; /* x173684 stalin.sc:25197:870668 */ t96414.s0.tag = STRUCTURE_TYPE24753; t96414.s0.value.structure_type24753 = &t96415; /* x173685 stalin.sc:25197:870668 */ t96419.s0.tag = EXTERNAL_SYMBOL_TYPE; t96419.s0.value.external_symbol_type = q263; /* x173686 stalin.sc:25197:870668 */ t96420.s0.tag = EXTERNAL_SYMBOL_TYPE; t96420.s0.value.external_symbol_type = q261; /* x173687 stalin.sc:25197:870668 */ t96421.s0.tag = ((unsigned)((unsigned char)'%'))<<2; /* x173688 stalin.sc:25197:870668 */ t96421.s1.tag = NULL_TYPE; /* x173689 stalin.sc:25197:870668 */ t96420.s1.tag = STRUCTURE_TYPE24753; t96420.s1.value.structure_type24753 = &t96421; /* x173690 stalin.sc:25197:870668 */ t96419.s1.tag = STRUCTURE_TYPE24753; t96419.s1.value.structure_type24753 = &t96420; /* x173691 stalin.sc:25197:870668 */ t96418.s0.tag = STRUCTURE_TYPE24753; t96418.s0.value.structure_type24753 = &t96419; /* x173692 stalin.sc:25197:870668 */ t96423.s0.tag = EXTERNAL_SYMBOL_TYPE; t96423.s0.value.external_symbol_type = q263; /* x173693 stalin.sc:25197:870668 */ t96424.s0.tag = EXTERNAL_SYMBOL_TYPE; t96424.s0.value.external_symbol_type = q261; /* x173694 stalin.sc:25197:870668 */ t96425.s0.tag = ((unsigned)((unsigned char)'^'))<<2; /* x173695 stalin.sc:25197:870668 */ t96425.s1.tag = NULL_TYPE; /* x173696 stalin.sc:25197:870668 */ t96424.s1.tag = STRUCTURE_TYPE24753; t96424.s1.value.structure_type24753 = &t96425; /* x173697 stalin.sc:25197:870668 */ t96423.s1.tag = STRUCTURE_TYPE24753; t96423.s1.value.structure_type24753 = &t96424; /* x173698 stalin.sc:25197:870668 */ t96422.s0.tag = STRUCTURE_TYPE24753; t96422.s0.value.structure_type24753 = &t96423; /* x173699 stalin.sc:25197:870668 */ t96427.s0.tag = EXTERNAL_SYMBOL_TYPE; t96427.s0.value.external_symbol_type = q263; /* x173700 stalin.sc:25197:870668 */ t96428.s0.tag = EXTERNAL_SYMBOL_TYPE; t96428.s0.value.external_symbol_type = q261; /* x173701 stalin.sc:25197:870668 */ t96429.s0.tag = ((unsigned)((unsigned char)'&'))<<2; /* x173702 stalin.sc:25197:870668 */ t96429.s1.tag = NULL_TYPE; /* x173703 stalin.sc:25197:870668 */ t96428.s1.tag = STRUCTURE_TYPE24753; t96428.s1.value.structure_type24753 = &t96429; /* x173704 stalin.sc:25197:870668 */ t96427.s1.tag = STRUCTURE_TYPE24753; t96427.s1.value.structure_type24753 = &t96428; /* x173705 stalin.sc:25197:870668 */ t96426.s0.tag = STRUCTURE_TYPE24753; t96426.s0.value.structure_type24753 = &t96427; /* x173706 stalin.sc:25197:870668 */ t96431.s0.tag = EXTERNAL_SYMBOL_TYPE; t96431.s0.value.external_symbol_type = q263; /* x173707 stalin.sc:25197:870668 */ t96432.s0.tag = EXTERNAL_SYMBOL_TYPE; t96432.s0.value.external_symbol_type = q261; /* x173708 stalin.sc:25197:870668 */ t96433.s0.tag = ((unsigned)((unsigned char)'*'))<<2; /* x173709 stalin.sc:25197:870668 */ t96433.s1.tag = NULL_TYPE; /* x173710 stalin.sc:25197:870668 */ t96432.s1.tag = STRUCTURE_TYPE24753; t96432.s1.value.structure_type24753 = &t96433; /* x173711 stalin.sc:25197:870668 */ t96431.s1.tag = STRUCTURE_TYPE24753; t96431.s1.value.structure_type24753 = &t96432; /* x173712 stalin.sc:25197:870668 */ t96430.s0.tag = STRUCTURE_TYPE24753; t96430.s0.value.structure_type24753 = &t96431; /* x173713 stalin.sc:25197:870668 */ t96435.s0.tag = EXTERNAL_SYMBOL_TYPE; t96435.s0.value.external_symbol_type = q263; /* x173714 stalin.sc:25197:870668 */ t96436.s0.tag = EXTERNAL_SYMBOL_TYPE; t96436.s0.value.external_symbol_type = q261; /* x173715 stalin.sc:25197:870668 */ t96437.s0.tag = ((unsigned)((unsigned char)'_'))<<2; /* x173716 stalin.sc:25197:870668 */ t96437.s1.tag = NULL_TYPE; /* x173717 stalin.sc:25197:870668 */ t96436.s1.tag = STRUCTURE_TYPE24753; t96436.s1.value.structure_type24753 = &t96437; /* x173718 stalin.sc:25197:870668 */ t96435.s1.tag = STRUCTURE_TYPE24753; t96435.s1.value.structure_type24753 = &t96436; /* x173719 stalin.sc:25197:870668 */ t96434.s0.tag = STRUCTURE_TYPE24753; t96434.s0.value.structure_type24753 = &t96435; /* x173720 stalin.sc:25197:870668 */ t96439.s0.tag = EXTERNAL_SYMBOL_TYPE; t96439.s0.value.external_symbol_type = q263; /* x173721 stalin.sc:25197:870668 */ t96440.s0.tag = EXTERNAL_SYMBOL_TYPE; t96440.s0.value.external_symbol_type = q261; /* x173722 stalin.sc:25197:870668 */ t96441.s0.tag = ((unsigned)((unsigned char)'/'))<<2; /* x173723 stalin.sc:25197:870668 */ t96441.s1.tag = NULL_TYPE; /* x173724 stalin.sc:25197:870668 */ t96440.s1.tag = STRUCTURE_TYPE24753; t96440.s1.value.structure_type24753 = &t96441; /* x173725 stalin.sc:25197:870668 */ t96439.s1.tag = STRUCTURE_TYPE24753; t96439.s1.value.structure_type24753 = &t96440; /* x173726 stalin.sc:25197:870668 */ t96438.s0.tag = STRUCTURE_TYPE24753; t96438.s0.value.structure_type24753 = &t96439; /* x173727 stalin.sc:25197:870668 */ t96443.s0.tag = EXTERNAL_SYMBOL_TYPE; t96443.s0.value.external_symbol_type = q263; /* x173728 stalin.sc:25197:870668 */ t96444.s0.tag = EXTERNAL_SYMBOL_TYPE; t96444.s0.value.external_symbol_type = q261; /* x173729 stalin.sc:25197:870668 */ t96445.s0.tag = ((unsigned)((unsigned char)':'))<<2; /* x173730 stalin.sc:25197:870668 */ t96445.s1.tag = NULL_TYPE; /* x173731 stalin.sc:25197:870668 */ t96444.s1.tag = STRUCTURE_TYPE24753; t96444.s1.value.structure_type24753 = &t96445; /* x173732 stalin.sc:25197:870668 */ t96443.s1.tag = STRUCTURE_TYPE24753; t96443.s1.value.structure_type24753 = &t96444; /* x173733 stalin.sc:25197:870668 */ t96442.s0.tag = STRUCTURE_TYPE24753; t96442.s0.value.structure_type24753 = &t96443; /* x173734 stalin.sc:25197:870668 */ t96447.s0.tag = EXTERNAL_SYMBOL_TYPE; t96447.s0.value.external_symbol_type = q263; /* x173735 stalin.sc:25197:870668 */ t96448.s0.tag = EXTERNAL_SYMBOL_TYPE; t96448.s0.value.external_symbol_type = q261; /* x173736 stalin.sc:25197:870668 */ t96449.s0.tag = ((unsigned)((unsigned char)'<'))<<2; /* x173737 stalin.sc:25197:870668 */ t96449.s1.tag = NULL_TYPE; /* x173738 stalin.sc:25197:870668 */ t96448.s1.tag = STRUCTURE_TYPE24753; t96448.s1.value.structure_type24753 = &t96449; /* x173739 stalin.sc:25197:870668 */ t96447.s1.tag = STRUCTURE_TYPE24753; t96447.s1.value.structure_type24753 = &t96448; /* x173740 stalin.sc:25197:870668 */ t96446.s0.tag = STRUCTURE_TYPE24753; t96446.s0.value.structure_type24753 = &t96447; /* x173741 stalin.sc:25197:870668 */ t96451.s0.tag = EXTERNAL_SYMBOL_TYPE; t96451.s0.value.external_symbol_type = q263; /* x173742 stalin.sc:25197:870668 */ t96452.s0.tag = EXTERNAL_SYMBOL_TYPE; t96452.s0.value.external_symbol_type = q261; /* x173743 stalin.sc:25197:870668 */ t96453.s0.tag = ((unsigned)((unsigned char)'='))<<2; /* x173744 stalin.sc:25197:870668 */ t96453.s1.tag = NULL_TYPE; /* x173745 stalin.sc:25197:870668 */ t96452.s1.tag = STRUCTURE_TYPE24753; t96452.s1.value.structure_type24753 = &t96453; /* x173746 stalin.sc:25197:870668 */ t96451.s1.tag = STRUCTURE_TYPE24753; t96451.s1.value.structure_type24753 = &t96452; /* x173747 stalin.sc:25197:870668 */ t96450.s0.tag = STRUCTURE_TYPE24753; t96450.s0.value.structure_type24753 = &t96451; /* x173748 stalin.sc:25197:870668 */ t96455.s0.tag = EXTERNAL_SYMBOL_TYPE; t96455.s0.value.external_symbol_type = q263; /* x173749 stalin.sc:25197:870668 */ t96456.s0.tag = EXTERNAL_SYMBOL_TYPE; t96456.s0.value.external_symbol_type = q261; /* x173750 stalin.sc:25197:870668 */ t96457.s0.tag = ((unsigned)((unsigned char)'>'))<<2; /* x173751 stalin.sc:25197:870668 */ t96457.s1.tag = NULL_TYPE; /* x173752 stalin.sc:25197:870668 */ t96456.s1.tag = STRUCTURE_TYPE24753; t96456.s1.value.structure_type24753 = &t96457; /* x173753 stalin.sc:25197:870668 */ t96455.s1.tag = STRUCTURE_TYPE24753; t96455.s1.value.structure_type24753 = &t96456; /* x173754 stalin.sc:25197:870668 */ t96454.s0.tag = STRUCTURE_TYPE24753; t96454.s0.value.structure_type24753 = &t96455; /* x173755 stalin.sc:25197:870668 */ t96459.s0.tag = EXTERNAL_SYMBOL_TYPE; t96459.s0.value.external_symbol_type = q263; /* x173756 stalin.sc:25197:870668 */ t96460.s0.tag = EXTERNAL_SYMBOL_TYPE; t96460.s0.value.external_symbol_type = q261; /* x173757 stalin.sc:25197:870668 */ t96461.s0.tag = ((unsigned)((unsigned char)'?'))<<2; /* x173758 stalin.sc:25197:870668 */ t96461.s1.tag = NULL_TYPE; /* x173759 stalin.sc:25197:870668 */ t96460.s1.tag = STRUCTURE_TYPE24753; t96460.s1.value.structure_type24753 = &t96461; /* x173760 stalin.sc:25197:870668 */ t96459.s1.tag = STRUCTURE_TYPE24753; t96459.s1.value.structure_type24753 = &t96460; /* x173761 stalin.sc:25197:870668 */ t96458.s0.tag = STRUCTURE_TYPE24753; t96458.s0.value.structure_type24753 = &t96459; /* x173762 stalin.sc:25197:870668 */ t96458.s1.tag = NULL_TYPE; /* x173763 stalin.sc:25197:870668 */ t96454.s1.tag = STRUCTURE_TYPE24753; t96454.s1.value.structure_type24753 = &t96458; /* x173764 stalin.sc:25197:870668 */ t96450.s1.tag = STRUCTURE_TYPE24753; t96450.s1.value.structure_type24753 = &t96454; /* x173765 stalin.sc:25197:870668 */ t96446.s1.tag = STRUCTURE_TYPE24753; t96446.s1.value.structure_type24753 = &t96450; /* x173766 stalin.sc:25197:870668 */ t96442.s1.tag = STRUCTURE_TYPE24753; t96442.s1.value.structure_type24753 = &t96446; /* x173767 stalin.sc:25197:870668 */ t96438.s1.tag = STRUCTURE_TYPE24753; t96438.s1.value.structure_type24753 = &t96442; /* x173768 stalin.sc:25197:870668 */ t96434.s1.tag = STRUCTURE_TYPE24753; t96434.s1.value.structure_type24753 = &t96438; /* x173769 stalin.sc:25197:870668 */ t96430.s1.tag = STRUCTURE_TYPE24753; t96430.s1.value.structure_type24753 = &t96434; /* x173770 stalin.sc:25197:870668 */ t96426.s1.tag = STRUCTURE_TYPE24753; t96426.s1.value.structure_type24753 = &t96430; /* x173771 stalin.sc:25197:870668 */ t96422.s1.tag = STRUCTURE_TYPE24753; t96422.s1.value.structure_type24753 = &t96426; /* x173772 stalin.sc:25197:870668 */ t96418.s1.tag = STRUCTURE_TYPE24753; t96418.s1.value.structure_type24753 = &t96422; /* x173773 stalin.sc:25197:870668 */ t96414.s1.tag = STRUCTURE_TYPE24753; t96414.s1.value.structure_type24753 = &t96418; /* x173774 stalin.sc:25197:870668 */ t96410.s1.tag = STRUCTURE_TYPE24753; t96410.s1.value.structure_type24753 = &t96414; /* x173775 stalin.sc:25197:870668 */ t96406.s1.tag = STRUCTURE_TYPE24753; t96406.s1.value.structure_type24753 = &t96410; /* x173776 stalin.sc:25197:870668 */ t96403.s1.tag = STRUCTURE_TYPE24753; t96403.s1.value.structure_type24753 = &t96406; /* x173777 stalin.sc:25197:870668 */ t96402.s1.tag = STRUCTURE_TYPE24753; t96402.s1.value.structure_type24753 = &t96403; /* x173778 stalin.sc:25197:870668 */ t96401.s0.tag = STRUCTURE_TYPE24753; t96401.s0.value.structure_type24753 = &t96402; /* x173779 stalin.sc:25197:870668 */ t96401.s1.tag = NULL_TYPE; /* x173780 stalin.sc:25197:870668 */ t96398.s1.tag = STRUCTURE_TYPE24753; t96398.s1.value.structure_type24753 = &t96401; /* x173781 stalin.sc:25197:870668 */ t96397.s1.tag = STRUCTURE_TYPE24753; t96397.s1.value.structure_type24753 = &t96398; /* x173782 stalin.sc:25197:870668 */ t96396.s0.tag = STRUCTURE_TYPE24753; t96396.s0.value.structure_type24753 = &t96397; /* x173783 stalin.sc:25197:870668 */ t96463.s0.tag = EXTERNAL_SYMBOL_TYPE; t96463.s0.value.external_symbol_type = q97; /* x173784 stalin.sc:25197:870668 */ t96465.s0.tag = EXTERNAL_SYMBOL_TYPE; t96465.s0.value.external_symbol_type = q279; /* x173785 stalin.sc:25197:870668 */ t96466.s0.tag = EXTERNAL_SYMBOL_TYPE; t96466.s0.value.external_symbol_type = q261; /* x173786 stalin.sc:25197:870668 */ t96466.s1.tag = NULL_TYPE; /* x173787 stalin.sc:25197:870668 */ t96465.s1.tag = STRUCTURE_TYPE24753; t96465.s1.value.structure_type24753 = &t96466; /* x173788 stalin.sc:25197:870668 */ t96464.s0.tag = STRUCTURE_TYPE24753; t96464.s0.value.structure_type24753 = &t96465; /* x173789 stalin.sc:25197:870668 */ t96468.s0.tag = EXTERNAL_SYMBOL_TYPE; t96468.s0.value.external_symbol_type = q241; /* x173790 stalin.sc:25197:870668 */ t96470.s0.tag = EXTERNAL_SYMBOL_TYPE; t96470.s0.value.external_symbol_type = q277; /* x173791 stalin.sc:25197:870668 */ t96471.s0.tag = EXTERNAL_SYMBOL_TYPE; t96471.s0.value.external_symbol_type = q261; /* x173792 stalin.sc:25197:870668 */ t96471.s1.tag = NULL_TYPE; /* x173793 stalin.sc:25197:870668 */ t96470.s1.tag = STRUCTURE_TYPE24753; t96470.s1.value.structure_type24753 = &t96471; /* x173794 stalin.sc:25197:870668 */ t96469.s0.tag = STRUCTURE_TYPE24753; t96469.s0.value.structure_type24753 = &t96470; /* x173795 stalin.sc:25197:870668 */ t96473.s0.tag = EXTERNAL_SYMBOL_TYPE; t96473.s0.value.external_symbol_type = q269; /* x173796 stalin.sc:25197:870668 */ t96474.s0.tag = EXTERNAL_SYMBOL_TYPE; t96474.s0.value.external_symbol_type = q261; /* x173797 stalin.sc:25197:870668 */ t96474.s1.tag = NULL_TYPE; /* x173798 stalin.sc:25197:870668 */ t96473.s1.tag = STRUCTURE_TYPE24753; t96473.s1.value.structure_type24753 = &t96474; /* x173799 stalin.sc:25197:870668 */ t96472.s0.tag = STRUCTURE_TYPE24753; t96472.s0.value.structure_type24753 = &t96473; /* x173800 stalin.sc:25197:870668 */ t96476.s0.tag = EXTERNAL_SYMBOL_TYPE; t96476.s0.value.external_symbol_type = q263; /* x173801 stalin.sc:25197:870668 */ t96477.s0.tag = EXTERNAL_SYMBOL_TYPE; t96477.s0.value.external_symbol_type = q261; /* x173802 stalin.sc:25197:870668 */ t96478.s0.tag = ((unsigned)((unsigned char)'+'))<<2; /* x173803 stalin.sc:25197:870668 */ t96478.s1.tag = NULL_TYPE; /* x173804 stalin.sc:25197:870668 */ t96477.s1.tag = STRUCTURE_TYPE24753; t96477.s1.value.structure_type24753 = &t96478; /* x173805 stalin.sc:25197:870668 */ t96476.s1.tag = STRUCTURE_TYPE24753; t96476.s1.value.structure_type24753 = &t96477; /* x173806 stalin.sc:25197:870668 */ t96475.s0.tag = STRUCTURE_TYPE24753; t96475.s0.value.structure_type24753 = &t96476; /* x173807 stalin.sc:25197:870668 */ t96480.s0.tag = EXTERNAL_SYMBOL_TYPE; t96480.s0.value.external_symbol_type = q263; /* x173808 stalin.sc:25197:870668 */ t96481.s0.tag = EXTERNAL_SYMBOL_TYPE; t96481.s0.value.external_symbol_type = q261; /* x173809 stalin.sc:25197:870668 */ t96482.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x173810 stalin.sc:25197:870668 */ t96482.s1.tag = NULL_TYPE; /* x173811 stalin.sc:25197:870668 */ t96481.s1.tag = STRUCTURE_TYPE24753; t96481.s1.value.structure_type24753 = &t96482; /* x173812 stalin.sc:25197:870668 */ t96480.s1.tag = STRUCTURE_TYPE24753; t96480.s1.value.structure_type24753 = &t96481; /* x173813 stalin.sc:25197:870668 */ t96479.s0.tag = STRUCTURE_TYPE24753; t96479.s0.value.structure_type24753 = &t96480; /* x173814 stalin.sc:25197:870668 */ t96484.s0.tag = EXTERNAL_SYMBOL_TYPE; t96484.s0.value.external_symbol_type = q263; /* x173815 stalin.sc:25197:870668 */ t96485.s0.tag = EXTERNAL_SYMBOL_TYPE; t96485.s0.value.external_symbol_type = q261; /* x173816 stalin.sc:25197:870668 */ t96486.s0.tag = ((unsigned)((unsigned char)'.'))<<2; /* x173817 stalin.sc:25197:870668 */ t96486.s1.tag = NULL_TYPE; /* x173818 stalin.sc:25197:870668 */ t96485.s1.tag = STRUCTURE_TYPE24753; t96485.s1.value.structure_type24753 = &t96486; /* x173819 stalin.sc:25197:870668 */ t96484.s1.tag = STRUCTURE_TYPE24753; t96484.s1.value.structure_type24753 = &t96485; /* x173820 stalin.sc:25197:870668 */ t96483.s0.tag = STRUCTURE_TYPE24753; t96483.s0.value.structure_type24753 = &t96484; /* x173821 stalin.sc:25197:870668 */ t96483.s1.tag = NULL_TYPE; /* x173822 stalin.sc:25197:870668 */ t96479.s1.tag = STRUCTURE_TYPE24753; t96479.s1.value.structure_type24753 = &t96483; /* x173823 stalin.sc:25197:870668 */ t96475.s1.tag = STRUCTURE_TYPE24753; t96475.s1.value.structure_type24753 = &t96479; /* x173824 stalin.sc:25197:870668 */ t96472.s1.tag = STRUCTURE_TYPE24753; t96472.s1.value.structure_type24753 = &t96475; /* x173825 stalin.sc:25197:870668 */ t96469.s1.tag = STRUCTURE_TYPE24753; t96469.s1.value.structure_type24753 = &t96472; /* x173826 stalin.sc:25197:870668 */ t96468.s1.tag = STRUCTURE_TYPE24753; t96468.s1.value.structure_type24753 = &t96469; /* x173827 stalin.sc:25197:870668 */ t96467.s0.tag = STRUCTURE_TYPE24753; t96467.s0.value.structure_type24753 = &t96468; /* x173828 stalin.sc:25197:870668 */ t96467.s1.tag = NULL_TYPE; /* x173829 stalin.sc:25197:870668 */ t96464.s1.tag = STRUCTURE_TYPE24753; t96464.s1.value.structure_type24753 = &t96467; /* x173830 stalin.sc:25197:870668 */ t96463.s1.tag = STRUCTURE_TYPE24753; t96463.s1.value.structure_type24753 = &t96464; /* x173831 stalin.sc:25197:870668 */ t96462.s0.tag = STRUCTURE_TYPE24753; t96462.s0.value.structure_type24753 = &t96463; /* x173832 stalin.sc:25197:870668 */ t96488.s0.tag = EXTERNAL_SYMBOL_TYPE; t96488.s0.value.external_symbol_type = q97; /* x173833 stalin.sc:25197:870668 */ t96490.s0.tag = EXTERNAL_SYMBOL_TYPE; t96490.s0.value.external_symbol_type = q280; /* x173834 stalin.sc:25197:870668 */ t96491.s0.tag = EXTERNAL_SYMBOL_TYPE; t96491.s0.value.external_symbol_type = q281; /* x173835 stalin.sc:25197:870668 */ t96491.s1.tag = NULL_TYPE; /* x173836 stalin.sc:25197:870668 */ t96490.s1.tag = STRUCTURE_TYPE24753; t96490.s1.value.structure_type24753 = &t96491; /* x173837 stalin.sc:25197:870668 */ t96489.s0.tag = STRUCTURE_TYPE24753; t96489.s0.value.structure_type24753 = &t96490; /* x173838 stalin.sc:25197:870668 */ t96493.s0.tag = EXTERNAL_SYMBOL_TYPE; t96493.s0.value.external_symbol_type = q242; /* x173839 stalin.sc:25197:870668 */ t96496.s0.tag = EXTERNAL_SYMBOL_TYPE; t96496.s0.value.external_symbol_type = q261; /* x173840 stalin.sc:25197:870668 */ t96498.s0.tag = EXTERNAL_SYMBOL_TYPE; t96498.s0.value.external_symbol_type = q262; /* x173841 stalin.sc:25197:870668 */ t96499.s0.tag = EXTERNAL_SYMBOL_TYPE; t96499.s0.value.external_symbol_type = q254; /* x173842 stalin.sc:25197:870668 */ t96499.s1.tag = NULL_TYPE; /* x173843 stalin.sc:25197:870668 */ t96498.s1.tag = STRUCTURE_TYPE24753; t96498.s1.value.structure_type24753 = &t96499; /* x173844 stalin.sc:25197:870668 */ t96497.s0.tag = STRUCTURE_TYPE24753; t96497.s0.value.structure_type24753 = &t96498; /* x173845 stalin.sc:25197:870668 */ t96497.s1.tag = NULL_TYPE; /* x173846 stalin.sc:25197:870668 */ t96496.s1.tag = STRUCTURE_TYPE24753; t96496.s1.value.structure_type24753 = &t96497; /* x173847 stalin.sc:25197:870668 */ t96495.s0.tag = STRUCTURE_TYPE24753; t96495.s0.value.structure_type24753 = &t96496; /* x173848 stalin.sc:25197:870668 */ t96495.s1.tag = NULL_TYPE; /* x173849 stalin.sc:25197:870668 */ t96494.s0.tag = STRUCTURE_TYPE24753; t96494.s0.value.structure_type24753 = &t96495; /* x173850 stalin.sc:25197:870668 */ t96501.s0.tag = EXTERNAL_SYMBOL_TYPE; t96501.s0.value.external_symbol_type = q240; /* x173851 stalin.sc:25197:870668 */ t96504.s0.tag = EXTERNAL_SYMBOL_TYPE; t96504.s0.value.external_symbol_type = q178; /* x173852 stalin.sc:25197:870668 */ t96505.s0.tag = EXTERNAL_SYMBOL_TYPE; t96505.s0.value.external_symbol_type = q261; /* x173853 stalin.sc:25197:870668 */ t96505.s1.tag = NULL_TYPE; /* x173854 stalin.sc:25197:870668 */ t96504.s1.tag = STRUCTURE_TYPE24753; t96504.s1.value.structure_type24753 = &t96505; /* x173855 stalin.sc:25197:870668 */ t96503.s0.tag = STRUCTURE_TYPE24753; t96503.s0.value.structure_type24753 = &t96504; /* x173856 stalin.sc:25197:870668 */ t96507.s0.tag = EXTERNAL_SYMBOL_TYPE; t96507.s0.value.external_symbol_type = q282; /* x173857 stalin.sc:25197:870668 */ t96509.s0.tag = EXTERNAL_SYMBOL_TYPE; t96509.s0.value.external_symbol_type = q283; /* x173858 stalin.sc:25197:870668 */ t96511.s0.tag = EXTERNAL_SYMBOL_TYPE; t96511.s0.value.external_symbol_type = q284; /* x173859 stalin.sc:25197:870668 */ t96512.s0.tag = EXTERNAL_SYMBOL_TYPE; t96512.s0.value.external_symbol_type = q281; /* x173860 stalin.sc:25197:870668 */ t96512.s1.tag = NULL_TYPE; /* x173861 stalin.sc:25197:870668 */ t96511.s1.tag = STRUCTURE_TYPE24753; t96511.s1.value.structure_type24753 = &t96512; /* x173862 stalin.sc:25197:870668 */ t96510.s0.tag = STRUCTURE_TYPE24753; t96510.s0.value.structure_type24753 = &t96511; /* x173863 stalin.sc:25197:870668 */ t96510.s1.tag = NULL_TYPE; /* x173864 stalin.sc:25197:870668 */ t96509.s1.tag = STRUCTURE_TYPE24753; t96509.s1.value.structure_type24753 = &t96510; /* x173865 stalin.sc:25197:870668 */ t96508.s0.tag = STRUCTURE_TYPE24753; t96508.s0.value.structure_type24753 = &t96509; /* x173866 stalin.sc:25197:870668 */ t96508.s1.tag = NULL_TYPE; /* x173867 stalin.sc:25197:870668 */ t96507.s1.tag = STRUCTURE_TYPE24753; t96507.s1.value.structure_type24753 = &t96508; /* x173868 stalin.sc:25197:870668 */ t96506.s0.tag = STRUCTURE_TYPE24753; t96506.s0.value.structure_type24753 = &t96507; /* x173869 stalin.sc:25197:870668 */ t96506.s1.tag = NULL_TYPE; /* x173870 stalin.sc:25197:870668 */ t96503.s1.tag = STRUCTURE_TYPE24753; t96503.s1.value.structure_type24753 = &t96506; /* x173871 stalin.sc:25197:870668 */ t96502.s0.tag = STRUCTURE_TYPE24753; t96502.s0.value.structure_type24753 = &t96503; /* x173872 stalin.sc:25197:870668 */ t96515.s0.tag = EXTERNAL_SYMBOL_TYPE; t96515.s0.value.external_symbol_type = q279; /* x173873 stalin.sc:25197:870668 */ t96516.s0.tag = EXTERNAL_SYMBOL_TYPE; t96516.s0.value.external_symbol_type = q261; /* x173874 stalin.sc:25197:870668 */ t96516.s1.tag = NULL_TYPE; /* x173875 stalin.sc:25197:870668 */ t96515.s1.tag = STRUCTURE_TYPE24753; t96515.s1.value.structure_type24753 = &t96516; /* x173876 stalin.sc:25197:870668 */ t96514.s0.tag = STRUCTURE_TYPE24753; t96514.s0.value.structure_type24753 = &t96515; /* x173877 stalin.sc:25197:870668 */ t96518.s0.tag = EXTERNAL_SYMBOL_TYPE; t96518.s0.value.external_symbol_type = q264; /* x173878 stalin.sc:25197:870668 */ t96519.s0.tag = EXTERNAL_SYMBOL_TYPE; t96519.s0.value.external_symbol_type = q254; /* x173879 stalin.sc:25197:870668 */ t96519.s1.tag = NULL_TYPE; /* x173880 stalin.sc:25197:870668 */ t96518.s1.tag = STRUCTURE_TYPE24753; t96518.s1.value.structure_type24753 = &t96519; /* x173881 stalin.sc:25197:870668 */ t96517.s0.tag = STRUCTURE_TYPE24753; t96517.s0.value.structure_type24753 = &t96518; /* x173882 stalin.sc:25197:870668 */ t96521.s0.tag = EXTERNAL_SYMBOL_TYPE; t96521.s0.value.external_symbol_type = q280; /* x173883 stalin.sc:25197:870668 */ t96523.s0.tag = EXTERNAL_SYMBOL_TYPE; t96523.s0.value.external_symbol_type = q106; /* x173884 stalin.sc:25197:870668 */ t96525.s0.tag = EXTERNAL_SYMBOL_TYPE; t96525.s0.value.external_symbol_type = q285; /* x173885 stalin.sc:25197:870668 */ t96526.s0.tag = EXTERNAL_SYMBOL_TYPE; t96526.s0.value.external_symbol_type = q261; /* x173886 stalin.sc:25197:870668 */ t96526.s1.tag = NULL_TYPE; /* x173887 stalin.sc:25197:870668 */ t96525.s1.tag = STRUCTURE_TYPE24753; t96525.s1.value.structure_type24753 = &t96526; /* x173888 stalin.sc:25197:870668 */ t96524.s0.tag = STRUCTURE_TYPE24753; t96524.s0.value.structure_type24753 = &t96525; /* x173889 stalin.sc:25197:870668 */ t96527.s0.tag = EXTERNAL_SYMBOL_TYPE; t96527.s0.value.external_symbol_type = q281; /* x173890 stalin.sc:25197:870668 */ t96527.s1.tag = NULL_TYPE; /* x173891 stalin.sc:25197:870668 */ t96524.s1.tag = STRUCTURE_TYPE24753; t96524.s1.value.structure_type24753 = &t96527; /* x173892 stalin.sc:25197:870668 */ t96523.s1.tag = STRUCTURE_TYPE24753; t96523.s1.value.structure_type24753 = &t96524; /* x173893 stalin.sc:25197:870668 */ t96522.s0.tag = STRUCTURE_TYPE24753; t96522.s0.value.structure_type24753 = &t96523; /* x173894 stalin.sc:25197:870668 */ t96522.s1.tag = NULL_TYPE; /* x173895 stalin.sc:25197:870668 */ t96521.s1.tag = STRUCTURE_TYPE24753; t96521.s1.value.structure_type24753 = &t96522; /* x173896 stalin.sc:25197:870668 */ t96520.s0.tag = STRUCTURE_TYPE24753; t96520.s0.value.structure_type24753 = &t96521; /* x173897 stalin.sc:25197:870668 */ t96520.s1.tag = NULL_TYPE; /* x173898 stalin.sc:25197:870668 */ t96517.s1.tag = STRUCTURE_TYPE24753; t96517.s1.value.structure_type24753 = &t96520; /* x173899 stalin.sc:25197:870668 */ t96514.s1.tag = STRUCTURE_TYPE24753; t96514.s1.value.structure_type24753 = &t96517; /* x173900 stalin.sc:25197:870668 */ t96513.s0.tag = STRUCTURE_TYPE24753; t96513.s0.value.structure_type24753 = &t96514; /* x173901 stalin.sc:25197:870668 */ t96529.s0.tag = EXTERNAL_SYMBOL_TYPE; t96529.s0.value.external_symbol_type = q95; /* x173902 stalin.sc:25197:870668 */ t96531.s0.tag = EXTERNAL_SYMBOL_TYPE; t96531.s0.value.external_symbol_type = q282; /* x173903 stalin.sc:25197:870668 */ t96533.s0.tag = EXTERNAL_SYMBOL_TYPE; t96533.s0.value.external_symbol_type = q283; /* x173904 stalin.sc:25197:870668 */ t96535.s0.tag = EXTERNAL_SYMBOL_TYPE; t96535.s0.value.external_symbol_type = q284; /* x173905 stalin.sc:25197:870668 */ t96536.s0.tag = EXTERNAL_SYMBOL_TYPE; t96536.s0.value.external_symbol_type = q281; /* x173906 stalin.sc:25197:870668 */ t96536.s1.tag = NULL_TYPE; /* x173907 stalin.sc:25197:870668 */ t96535.s1.tag = STRUCTURE_TYPE24753; t96535.s1.value.structure_type24753 = &t96536; /* x173908 stalin.sc:25197:870668 */ t96534.s0.tag = STRUCTURE_TYPE24753; t96534.s0.value.structure_type24753 = &t96535; /* x173909 stalin.sc:25197:870668 */ t96534.s1.tag = NULL_TYPE; /* x173910 stalin.sc:25197:870668 */ t96533.s1.tag = STRUCTURE_TYPE24753; t96533.s1.value.structure_type24753 = &t96534; /* x173911 stalin.sc:25197:870668 */ t96532.s0.tag = STRUCTURE_TYPE24753; t96532.s0.value.structure_type24753 = &t96533; /* x173912 stalin.sc:25197:870668 */ t96532.s1.tag = NULL_TYPE; /* x173913 stalin.sc:25197:870668 */ t96531.s1.tag = STRUCTURE_TYPE24753; t96531.s1.value.structure_type24753 = &t96532; /* x173914 stalin.sc:25197:870668 */ t96530.s0.tag = STRUCTURE_TYPE24753; t96530.s0.value.structure_type24753 = &t96531; /* x173915 stalin.sc:25197:870668 */ t96530.s1.tag = NULL_TYPE; /* x173916 stalin.sc:25197:870668 */ t96529.s1.tag = STRUCTURE_TYPE24753; t96529.s1.value.structure_type24753 = &t96530; /* x173917 stalin.sc:25197:870668 */ t96528.s0.tag = STRUCTURE_TYPE24753; t96528.s0.value.structure_type24753 = &t96529; /* x173918 stalin.sc:25197:870668 */ t96528.s1.tag = NULL_TYPE; /* x173919 stalin.sc:25197:870668 */ t96513.s1.tag = STRUCTURE_TYPE24753; t96513.s1.value.structure_type24753 = &t96528; /* x173920 stalin.sc:25197:870668 */ t96502.s1.tag = STRUCTURE_TYPE24753; t96502.s1.value.structure_type24753 = &t96513; /* x173921 stalin.sc:25197:870668 */ t96501.s1.tag = STRUCTURE_TYPE24753; t96501.s1.value.structure_type24753 = &t96502; /* x173922 stalin.sc:25197:870668 */ t96500.s0.tag = STRUCTURE_TYPE24753; t96500.s0.value.structure_type24753 = &t96501; /* x173923 stalin.sc:25197:870668 */ t96500.s1.tag = NULL_TYPE; /* x173924 stalin.sc:25197:870668 */ t96494.s1.tag = STRUCTURE_TYPE24753; t96494.s1.value.structure_type24753 = &t96500; /* x173925 stalin.sc:25197:870668 */ t96493.s1.tag = STRUCTURE_TYPE24753; t96493.s1.value.structure_type24753 = &t96494; /* x173926 stalin.sc:25197:870668 */ t96492.s0.tag = STRUCTURE_TYPE24753; t96492.s0.value.structure_type24753 = &t96493; /* x173927 stalin.sc:25197:870668 */ t96492.s1.tag = NULL_TYPE; /* x173928 stalin.sc:25197:870668 */ t96489.s1.tag = STRUCTURE_TYPE24753; t96489.s1.value.structure_type24753 = &t96492; /* x173929 stalin.sc:25197:870668 */ t96488.s1.tag = STRUCTURE_TYPE24753; t96488.s1.value.structure_type24753 = &t96489; /* x173930 stalin.sc:25197:870668 */ t96487.s0.tag = STRUCTURE_TYPE24753; t96487.s0.value.structure_type24753 = &t96488; /* x173931 stalin.sc:25197:870668 */ t96538.s0.tag = EXTERNAL_SYMBOL_TYPE; t96538.s0.value.external_symbol_type = q97; /* x173932 stalin.sc:25197:870668 */ t96540.s0.tag = EXTERNAL_SYMBOL_TYPE; t96540.s0.value.external_symbol_type = q286; /* x173933 stalin.sc:25197:870668 */ t96541.s0.tag = EXTERNAL_SYMBOL_TYPE; t96541.s0.value.external_symbol_type = q281; /* x173934 stalin.sc:25197:870668 */ t96541.s1.tag = NULL_TYPE; /* x173935 stalin.sc:25197:870668 */ t96540.s1.tag = STRUCTURE_TYPE24753; t96540.s1.value.structure_type24753 = &t96541; /* x173936 stalin.sc:25197:870668 */ t96539.s0.tag = STRUCTURE_TYPE24753; t96539.s0.value.structure_type24753 = &t96540; /* x173937 stalin.sc:25197:870668 */ t96543.s0.tag = EXTERNAL_SYMBOL_TYPE; t96543.s0.value.external_symbol_type = q242; /* x173938 stalin.sc:25197:870668 */ t96544.s0.tag = EXTERNAL_SYMBOL_TYPE; t96544.s0.value.external_symbol_type = q287; /* x173939 stalin.sc:25197:870668 */ t96547.s0.tag = EXTERNAL_SYMBOL_TYPE; t96547.s0.value.external_symbol_type = q288; /* x173940 stalin.sc:25197:870668 */ t96549.s0.tag = EXTERNAL_SYMBOL_TYPE; t96549.s0.value.external_symbol_type = q11; /* x173941 stalin.sc:25197:870668 */ t96553.s0.tag = ((unsigned)((unsigned char)'e'))<<2; /* x173942 stalin.sc:25197:870668 */ t96554.s0.tag = ((unsigned)((unsigned char)'c'))<<2; /* x173943 stalin.sc:25197:870668 */ t96555.s0.tag = ((unsigned)((unsigned char)'a'))<<2; /* x173944 stalin.sc:25197:870668 */ t96556.s0.tag = ((unsigned)((unsigned char)'p'))<<2; /* x173945 stalin.sc:25197:870668 */ t96557.s0.tag = ((unsigned)((unsigned char)'s'))<<2; /* x173946 stalin.sc:25197:870668 */ t96557.s1.tag = NULL_TYPE; /* x173947 stalin.sc:25197:870668 */ t96556.s1.tag = STRUCTURE_TYPE24753; t96556.s1.value.structure_type24753 = &t96557; /* x173948 stalin.sc:25197:870668 */ t96555.s1.tag = STRUCTURE_TYPE24753; t96555.s1.value.structure_type24753 = &t96556; /* x173949 stalin.sc:25197:870668 */ t96554.s1.tag = STRUCTURE_TYPE24753; t96554.s1.value.structure_type24753 = &t96555; /* x173950 stalin.sc:25197:870668 */ t96553.s1.tag = STRUCTURE_TYPE24753; t96553.s1.value.structure_type24753 = &t96554; /* x173951 stalin.sc:25197:870668 */ t96552.s0.tag = STRUCTURE_TYPE24753; t96552.s0.value.structure_type24753 = &t96553; /* x173952 stalin.sc:25197:870668 */ t96552.s1.tag = ((unsigned)((unsigned char)' '))<<2; /* x173953 stalin.sc:25197:870668 */ t96551.s0.tag = STRUCTURE_TYPE24753; t96551.s0.value.structure_type24753 = &t96552; /* x173954 stalin.sc:25197:870668 */ t96560.s0.tag = ((unsigned)((unsigned char)'e'))<<2; /* x173955 stalin.sc:25197:870668 */ t96561.s0.tag = ((unsigned)((unsigned char)'n'))<<2; /* x173956 stalin.sc:25197:870668 */ t96562.s0.tag = ((unsigned)((unsigned char)'i'))<<2; /* x173957 stalin.sc:25197:870668 */ t96563.s0.tag = ((unsigned)((unsigned char)'l'))<<2; /* x173958 stalin.sc:25197:870668 */ t96564.s0.tag = ((unsigned)((unsigned char)'w'))<<2; /* x173959 stalin.sc:25197:870668 */ t96565.s0.tag = ((unsigned)((unsigned char)'e'))<<2; /* x173960 stalin.sc:25197:870668 */ t96566.s0.tag = ((unsigned)((unsigned char)'n'))<<2; /* x173961 stalin.sc:25197:870668 */ t96566.s1.tag = NULL_TYPE; /* x173962 stalin.sc:25197:870668 */ t96565.s1.tag = STRUCTURE_TYPE24753; t96565.s1.value.structure_type24753 = &t96566; /* x173963 stalin.sc:25197:870668 */ t96564.s1.tag = STRUCTURE_TYPE24753; t96564.s1.value.structure_type24753 = &t96565; /* x173964 stalin.sc:25197:870668 */ t96563.s1.tag = STRUCTURE_TYPE24753; t96563.s1.value.structure_type24753 = &t96564; /* x173965 stalin.sc:25197:870668 */ t96562.s1.tag = STRUCTURE_TYPE24753; t96562.s1.value.structure_type24753 = &t96563; /* x173966 stalin.sc:25197:870668 */ t96561.s1.tag = STRUCTURE_TYPE24753; t96561.s1.value.structure_type24753 = &t96562; /* x173967 stalin.sc:25197:870668 */ t96560.s1.tag = STRUCTURE_TYPE24753; t96560.s1.value.structure_type24753 = &t96561; /* x173968 stalin.sc:25197:870668 */ t96559.s0.tag = STRUCTURE_TYPE24753; t96559.s0.value.structure_type24753 = &t96560; /* x173969 stalin.sc:25197:870668 */ t96559.s1.tag = ((unsigned)((unsigned char)'\n'))<<2; /* x173970 stalin.sc:25197:870668 */ t96558.s0.tag = STRUCTURE_TYPE24753; t96558.s0.value.structure_type24753 = &t96559; /* x173971 stalin.sc:25197:870668 */ t96558.s1.tag = NULL_TYPE; /* x173972 stalin.sc:25197:870668 */ t96551.s1.tag = STRUCTURE_TYPE24753; t96551.s1.value.structure_type24753 = &t96558; /* x173973 stalin.sc:25197:870668 */ t96550.s0.tag = STRUCTURE_TYPE24753; t96550.s0.value.structure_type24753 = &t96551; /* x173974 stalin.sc:25197:870668 */ t96550.s1.tag = NULL_TYPE; /* x173975 stalin.sc:25197:870668 */ t96549.s1.tag = STRUCTURE_TYPE24753; t96549.s1.value.structure_type24753 = &t96550; /* x173976 stalin.sc:25197:870668 */ t96548.s0.tag = STRUCTURE_TYPE24753; t96548.s0.value.structure_type24753 = &t96549; /* x173977 stalin.sc:25197:870668 */ t96548.s1.tag = NULL_TYPE; /* x173978 stalin.sc:25197:870668 */ t96547.s1.tag = STRUCTURE_TYPE24753; t96547.s1.value.structure_type24753 = &t96548; /* x173979 stalin.sc:25197:870668 */ t96546.s0.tag = STRUCTURE_TYPE24753; t96546.s0.value.structure_type24753 = &t96547; /* x173980 stalin.sc:25197:870668 */ t96546.s1.tag = NULL_TYPE; /* x173981 stalin.sc:25197:870668 */ t96545.s0.tag = STRUCTURE_TYPE24753; t96545.s0.value.structure_type24753 = &t96546; /* x173982 stalin.sc:25197:870668 */ t96568.s0.tag = EXTERNAL_SYMBOL_TYPE; t96568.s0.value.external_symbol_type = q43; /* x173983 stalin.sc:25197:870668 */ t96570.s0.tag = EXTERNAL_SYMBOL_TYPE; t96570.s0.value.external_symbol_type = q111; /* x173984 stalin.sc:25197:870668 */ t96571.s0.tag = EXTERNAL_SYMBOL_TYPE; t96571.s0.value.external_symbol_type = q288; /* x173985 stalin.sc:25197:870668 */ t96571.s1.tag = NULL_TYPE; /* x173986 stalin.sc:25197:870668 */ t96570.s1.tag = STRUCTURE_TYPE24753; t96570.s1.value.structure_type24753 = &t96571; /* x173987 stalin.sc:25197:870668 */ t96569.s0.tag = STRUCTURE_TYPE24753; t96569.s0.value.structure_type24753 = &t96570; /* x173988 stalin.sc:25197:870668 */ t96573.s0.tag = EXTERNAL_SYMBOL_TYPE; t96573.s0.value.external_symbol_type = q179; /* x173989 stalin.sc:25197:870668 */ t96574.s0.tag = STRING_TYPE; t96574.s0.value.string_type = "Unrecognized character name"; /* x173990 stalin.sc:25197:870668 */ t96574.s1.tag = NULL_TYPE; /* x173991 stalin.sc:25197:870668 */ t96573.s1.tag = STRUCTURE_TYPE24753; t96573.s1.value.structure_type24753 = &t96574; /* x173992 stalin.sc:25197:870668 */ t96572.s0.tag = STRUCTURE_TYPE24753; t96572.s0.value.structure_type24753 = &t96573; /* x173993 stalin.sc:25197:870668 */ t96572.s1.tag = NULL_TYPE; /* x173994 stalin.sc:25197:870668 */ t96569.s1.tag = STRUCTURE_TYPE24753; t96569.s1.value.structure_type24753 = &t96572; /* x173995 stalin.sc:25197:870668 */ t96568.s1.tag = STRUCTURE_TYPE24753; t96568.s1.value.structure_type24753 = &t96569; /* x173996 stalin.sc:25197:870668 */ t96567.s0.tag = STRUCTURE_TYPE24753; t96567.s0.value.structure_type24753 = &t96568; /* x173997 stalin.sc:25197:870668 */ t96576.s0.tag = EXTERNAL_SYMBOL_TYPE; t96576.s0.value.external_symbol_type = q43; /* x173998 stalin.sc:25197:870668 */ t96578.s0.tag = EXTERNAL_SYMBOL_TYPE; t96578.s0.value.external_symbol_type = q242; /* x173999 stalin.sc:25197:870668 */ t96579.s0.tag = EXTERNAL_SYMBOL_TYPE; t96579.s0.value.external_symbol_type = q289; /* x174000 stalin.sc:25197:870668 */ t96582.s0.tag = EXTERNAL_SYMBOL_TYPE; t96582.s0.value.external_symbol_type = q281; /* x174001 stalin.sc:25197:870668 */ t96583.s0.tag = EXTERNAL_SYMBOL_TYPE; t96583.s0.value.external_symbol_type = q281; /* x174002 stalin.sc:25197:870668 */ t96583.s1.tag = NULL_TYPE; /* x174003 stalin.sc:25197:870668 */ t96582.s1.tag = STRUCTURE_TYPE24753; t96582.s1.value.structure_type24753 = &t96583; /* x174004 stalin.sc:25197:870668 */ t96581.s0.tag = STRUCTURE_TYPE24753; t96581.s0.value.structure_type24753 = &t96582; /* x174005 stalin.sc:25197:870668 */ t96585.s0.tag = EXTERNAL_SYMBOL_TYPE; t96585.s0.value.external_symbol_type = q290; /* x174006 stalin.sc:25197:870668 */ t96587.s0.tag = EXTERNAL_SYMBOL_TYPE; t96587.s0.value.external_symbol_type = q107; /* x174007 stalin.sc:25197:870668 */ t96589.s0.tag = EXTERNAL_SYMBOL_TYPE; t96589.s0.value.external_symbol_type = q107; /* x174008 stalin.sc:25197:870668 */ t96590.s0.tag = EXTERNAL_SYMBOL_TYPE; t96590.s0.value.external_symbol_type = q288; /* x174009 stalin.sc:25197:870668 */ t96590.s1.tag = NULL_TYPE; /* x174010 stalin.sc:25197:870668 */ t96589.s1.tag = STRUCTURE_TYPE24753; t96589.s1.value.structure_type24753 = &t96590; /* x174011 stalin.sc:25197:870668 */ t96588.s0.tag = STRUCTURE_TYPE24753; t96588.s0.value.structure_type24753 = &t96589; /* x174012 stalin.sc:25197:870668 */ t96588.s1.tag = NULL_TYPE; /* x174013 stalin.sc:25197:870668 */ t96587.s1.tag = STRUCTURE_TYPE24753; t96587.s1.value.structure_type24753 = &t96588; /* x174014 stalin.sc:25197:870668 */ t96586.s0.tag = STRUCTURE_TYPE24753; t96586.s0.value.structure_type24753 = &t96587; /* x174015 stalin.sc:25197:870668 */ t96586.s1.tag = NULL_TYPE; /* x174016 stalin.sc:25197:870668 */ t96585.s1.tag = STRUCTURE_TYPE24753; t96585.s1.value.structure_type24753 = &t96586; /* x174017 stalin.sc:25197:870668 */ t96584.s0.tag = STRUCTURE_TYPE24753; t96584.s0.value.structure_type24753 = &t96585; /* x174018 stalin.sc:25197:870668 */ t96584.s1.tag = NULL_TYPE; /* x174019 stalin.sc:25197:870668 */ t96581.s1.tag = STRUCTURE_TYPE24753; t96581.s1.value.structure_type24753 = &t96584; /* x174020 stalin.sc:25197:870668 */ t96580.s0.tag = STRUCTURE_TYPE24753; t96580.s0.value.structure_type24753 = &t96581; /* x174021 stalin.sc:25197:870668 */ t96592.s0.tag = EXTERNAL_SYMBOL_TYPE; t96592.s0.value.external_symbol_type = q241; /* x174022 stalin.sc:25197:870668 */ t96594.s0.tag = EXTERNAL_SYMBOL_TYPE; t96594.s0.value.external_symbol_type = q244; /* x174023 stalin.sc:25197:870668 */ t96596.s0.tag = EXTERNAL_SYMBOL_TYPE; t96596.s0.value.external_symbol_type = q111; /* x174024 stalin.sc:25197:870668 */ t96597.s0.tag = EXTERNAL_SYMBOL_TYPE; t96597.s0.value.external_symbol_type = q281; /* x174025 stalin.sc:25197:870668 */ t96597.s1.tag = NULL_TYPE; /* x174026 stalin.sc:25197:870668 */ t96596.s1.tag = STRUCTURE_TYPE24753; t96596.s1.value.structure_type24753 = &t96597; /* x174027 stalin.sc:25197:870668 */ t96595.s0.tag = STRUCTURE_TYPE24753; t96595.s0.value.structure_type24753 = &t96596; /* x174028 stalin.sc:25197:870668 */ t96599.s0.tag = EXTERNAL_SYMBOL_TYPE; t96599.s0.value.external_symbol_type = q111; /* x174029 stalin.sc:25197:870668 */ t96600.s0.tag = EXTERNAL_SYMBOL_TYPE; t96600.s0.value.external_symbol_type = q290; /* x174030 stalin.sc:25197:870668 */ t96600.s1.tag = NULL_TYPE; /* x174031 stalin.sc:25197:870668 */ t96599.s1.tag = STRUCTURE_TYPE24753; t96599.s1.value.structure_type24753 = &t96600; /* x174032 stalin.sc:25197:870668 */ t96598.s0.tag = STRUCTURE_TYPE24753; t96598.s0.value.structure_type24753 = &t96599; /* x174033 stalin.sc:25197:870668 */ t96598.s1.tag = NULL_TYPE; /* x174034 stalin.sc:25197:870668 */ t96595.s1.tag = STRUCTURE_TYPE24753; t96595.s1.value.structure_type24753 = &t96598; /* x174035 stalin.sc:25197:870668 */ t96594.s1.tag = STRUCTURE_TYPE24753; t96594.s1.value.structure_type24753 = &t96595; /* x174036 stalin.sc:25197:870668 */ t96593.s0.tag = STRUCTURE_TYPE24753; t96593.s0.value.structure_type24753 = &t96594; /* x174037 stalin.sc:25197:870668 */ t96602.s0.tag = EXTERNAL_SYMBOL_TYPE; t96602.s0.value.external_symbol_type = q244; /* x174038 stalin.sc:25197:870668 */ t96604.s0.tag = EXTERNAL_SYMBOL_TYPE; t96604.s0.value.external_symbol_type = q102; /* x174039 stalin.sc:25197:870668 */ t96606.s0.tag = EXTERNAL_SYMBOL_TYPE; t96606.s0.value.external_symbol_type = q111; /* x174040 stalin.sc:25197:870668 */ t96607.s0.tag = EXTERNAL_SYMBOL_TYPE; t96607.s0.value.external_symbol_type = q281; /* x174041 stalin.sc:25197:870668 */ t96607.s1.tag = NULL_TYPE; /* x174042 stalin.sc:25197:870668 */ t96606.s1.tag = STRUCTURE_TYPE24753; t96606.s1.value.structure_type24753 = &t96607; /* x174043 stalin.sc:25197:870668 */ t96605.s0.tag = STRUCTURE_TYPE24753; t96605.s0.value.structure_type24753 = &t96606; /* x174044 stalin.sc:25197:870668 */ t96605.s1.tag = NULL_TYPE; /* x174045 stalin.sc:25197:870668 */ t96604.s1.tag = STRUCTURE_TYPE24753; t96604.s1.value.structure_type24753 = &t96605; /* x174046 stalin.sc:25197:870668 */ t96603.s0.tag = STRUCTURE_TYPE24753; t96603.s0.value.structure_type24753 = &t96604; /* x174047 stalin.sc:25197:870668 */ t96609.s0.tag = EXTERNAL_SYMBOL_TYPE; t96609.s0.value.external_symbol_type = q102; /* x174048 stalin.sc:25197:870668 */ t96611.s0.tag = EXTERNAL_SYMBOL_TYPE; t96611.s0.value.external_symbol_type = q111; /* x174049 stalin.sc:25197:870668 */ t96612.s0.tag = EXTERNAL_SYMBOL_TYPE; t96612.s0.value.external_symbol_type = q290; /* x174050 stalin.sc:25197:870668 */ t96612.s1.tag = NULL_TYPE; /* x174051 stalin.sc:25197:870668 */ t96611.s1.tag = STRUCTURE_TYPE24753; t96611.s1.value.structure_type24753 = &t96612; /* x174052 stalin.sc:25197:870668 */ t96610.s0.tag = STRUCTURE_TYPE24753; t96610.s0.value.structure_type24753 = &t96611; /* x174053 stalin.sc:25197:870668 */ t96610.s1.tag = NULL_TYPE; /* x174054 stalin.sc:25197:870668 */ t96609.s1.tag = STRUCTURE_TYPE24753; t96609.s1.value.structure_type24753 = &t96610; /* x174055 stalin.sc:25197:870668 */ t96608.s0.tag = STRUCTURE_TYPE24753; t96608.s0.value.structure_type24753 = &t96609; /* x174056 stalin.sc:25197:870668 */ t96614.s0.tag = EXTERNAL_SYMBOL_TYPE; t96614.s0.value.external_symbol_type = q291; /* x174057 stalin.sc:25197:870668 */ t96616.s0.tag = EXTERNAL_SYMBOL_TYPE; t96616.s0.value.external_symbol_type = q107; /* x174058 stalin.sc:25197:870668 */ t96617.s0.tag = EXTERNAL_SYMBOL_TYPE; t96617.s0.value.external_symbol_type = q281; /* x174059 stalin.sc:25197:870668 */ t96617.s1.tag = NULL_TYPE; /* x174060 stalin.sc:25197:870668 */ t96616.s1.tag = STRUCTURE_TYPE24753; t96616.s1.value.structure_type24753 = &t96617; /* x174061 stalin.sc:25197:870668 */ t96615.s0.tag = STRUCTURE_TYPE24753; t96615.s0.value.structure_type24753 = &t96616; /* x174062 stalin.sc:25197:870668 */ t96619.s0.tag = EXTERNAL_SYMBOL_TYPE; t96619.s0.value.external_symbol_type = q107; /* x174063 stalin.sc:25197:870668 */ t96620.s0.tag = EXTERNAL_SYMBOL_TYPE; t96620.s0.value.external_symbol_type = q290; /* x174064 stalin.sc:25197:870668 */ t96620.s1.tag = NULL_TYPE; /* x174065 stalin.sc:25197:870668 */ t96619.s1.tag = STRUCTURE_TYPE24753; t96619.s1.value.structure_type24753 = &t96620; /* x174066 stalin.sc:25197:870668 */ t96618.s0.tag = STRUCTURE_TYPE24753; t96618.s0.value.structure_type24753 = &t96619; /* x174067 stalin.sc:25197:870668 */ t96618.s1.tag = NULL_TYPE; /* x174068 stalin.sc:25197:870668 */ t96615.s1.tag = STRUCTURE_TYPE24753; t96615.s1.value.structure_type24753 = &t96618; /* x174069 stalin.sc:25197:870668 */ t96614.s1.tag = STRUCTURE_TYPE24753; t96614.s1.value.structure_type24753 = &t96615; /* x174070 stalin.sc:25197:870668 */ t96613.s0.tag = STRUCTURE_TYPE24753; t96613.s0.value.structure_type24753 = &t96614; /* x174071 stalin.sc:25197:870668 */ t96622.s0.tag = EXTERNAL_SYMBOL_TYPE; t96622.s0.value.external_symbol_type = q289; /* x174072 stalin.sc:25197:870668 */ t96624.s0.tag = EXTERNAL_SYMBOL_TYPE; t96624.s0.value.external_symbol_type = q108; /* x174073 stalin.sc:25197:870668 */ t96625.s0.tag = EXTERNAL_SYMBOL_TYPE; t96625.s0.value.external_symbol_type = q281; /* x174074 stalin.sc:25197:870668 */ t96625.s1.tag = NULL_TYPE; /* x174075 stalin.sc:25197:870668 */ t96624.s1.tag = STRUCTURE_TYPE24753; t96624.s1.value.structure_type24753 = &t96625; /* x174076 stalin.sc:25197:870668 */ t96623.s0.tag = STRUCTURE_TYPE24753; t96623.s0.value.structure_type24753 = &t96624; /* x174077 stalin.sc:25197:870668 */ t96627.s0.tag = EXTERNAL_SYMBOL_TYPE; t96627.s0.value.external_symbol_type = q108; /* x174078 stalin.sc:25197:870668 */ t96628.s0.tag = EXTERNAL_SYMBOL_TYPE; t96628.s0.value.external_symbol_type = q290; /* x174079 stalin.sc:25197:870668 */ t96628.s1.tag = NULL_TYPE; /* x174080 stalin.sc:25197:870668 */ t96627.s1.tag = STRUCTURE_TYPE24753; t96627.s1.value.structure_type24753 = &t96628; /* x174081 stalin.sc:25197:870668 */ t96626.s0.tag = STRUCTURE_TYPE24753; t96626.s0.value.structure_type24753 = &t96627; /* x174082 stalin.sc:25197:870668 */ t96626.s1.tag = NULL_TYPE; /* x174083 stalin.sc:25197:870668 */ t96623.s1.tag = STRUCTURE_TYPE24753; t96623.s1.value.structure_type24753 = &t96626; /* x174084 stalin.sc:25197:870668 */ t96622.s1.tag = STRUCTURE_TYPE24753; t96622.s1.value.structure_type24753 = &t96623; /* x174085 stalin.sc:25197:870668 */ t96621.s0.tag = STRUCTURE_TYPE24753; t96621.s0.value.structure_type24753 = &t96622; /* x174086 stalin.sc:25197:870668 */ t96621.s1.tag = NULL_TYPE; /* x174087 stalin.sc:25197:870668 */ t96613.s1.tag = STRUCTURE_TYPE24753; t96613.s1.value.structure_type24753 = &t96621; /* x174088 stalin.sc:25197:870668 */ t96608.s1.tag = STRUCTURE_TYPE24753; t96608.s1.value.structure_type24753 = &t96613; /* x174089 stalin.sc:25197:870668 */ t96603.s1.tag = STRUCTURE_TYPE24753; t96603.s1.value.structure_type24753 = &t96608; /* x174090 stalin.sc:25197:870668 */ t96602.s1.tag = STRUCTURE_TYPE24753; t96602.s1.value.structure_type24753 = &t96603; /* x174091 stalin.sc:25197:870668 */ t96601.s0.tag = STRUCTURE_TYPE24753; t96601.s0.value.structure_type24753 = &t96602; /* x174092 stalin.sc:25197:870668 */ t96601.s1.tag = NULL_TYPE; /* x174093 stalin.sc:25197:870668 */ t96593.s1.tag = STRUCTURE_TYPE24753; t96593.s1.value.structure_type24753 = &t96601; /* x174094 stalin.sc:25197:870668 */ t96592.s1.tag = STRUCTURE_TYPE24753; t96592.s1.value.structure_type24753 = &t96593; /* x174095 stalin.sc:25197:870668 */ t96591.s0.tag = STRUCTURE_TYPE24753; t96591.s0.value.structure_type24753 = &t96592; /* x174096 stalin.sc:25197:870668 */ t96591.s1.tag = NULL_TYPE; /* x174097 stalin.sc:25197:870668 */ t96580.s1.tag = STRUCTURE_TYPE24753; t96580.s1.value.structure_type24753 = &t96591; /* x174098 stalin.sc:25197:870668 */ t96579.s1.tag = STRUCTURE_TYPE24753; t96579.s1.value.structure_type24753 = &t96580; /* x174099 stalin.sc:25197:870668 */ t96578.s1.tag = STRUCTURE_TYPE24753; t96578.s1.value.structure_type24753 = &t96579; /* x174100 stalin.sc:25197:870668 */ t96577.s0.tag = STRUCTURE_TYPE24753; t96577.s0.value.structure_type24753 = &t96578; /* x174101 stalin.sc:25197:870668 */ t96630.s0.tag = EXTERNAL_SYMBOL_TYPE; t96630.s0.value.external_symbol_type = q108; /* x174102 stalin.sc:25197:870668 */ t96632.s0.tag = EXTERNAL_SYMBOL_TYPE; t96632.s0.value.external_symbol_type = q107; /* x174103 stalin.sc:25197:870668 */ t96633.s0.tag = EXTERNAL_SYMBOL_TYPE; t96633.s0.value.external_symbol_type = q288; /* x174104 stalin.sc:25197:870668 */ t96633.s1.tag = NULL_TYPE; /* x174105 stalin.sc:25197:870668 */ t96632.s1.tag = STRUCTURE_TYPE24753; t96632.s1.value.structure_type24753 = &t96633; /* x174106 stalin.sc:25197:870668 */ t96631.s0.tag = STRUCTURE_TYPE24753; t96631.s0.value.structure_type24753 = &t96632; /* x174107 stalin.sc:25197:870668 */ t96631.s1.tag = NULL_TYPE; /* x174108 stalin.sc:25197:870668 */ t96630.s1.tag = STRUCTURE_TYPE24753; t96630.s1.value.structure_type24753 = &t96631; /* x174109 stalin.sc:25197:870668 */ t96629.s0.tag = STRUCTURE_TYPE24753; t96629.s0.value.structure_type24753 = &t96630; /* x174110 stalin.sc:25197:870668 */ t96635.s0.tag = EXTERNAL_SYMBOL_TYPE; t96635.s0.value.external_symbol_type = q287; /* x174111 stalin.sc:25197:870668 */ t96637.s0.tag = EXTERNAL_SYMBOL_TYPE; t96637.s0.value.external_symbol_type = q108; /* x174112 stalin.sc:25197:870668 */ t96638.s0.tag = EXTERNAL_SYMBOL_TYPE; t96638.s0.value.external_symbol_type = q288; /* x174113 stalin.sc:25197:870668 */ t96638.s1.tag = NULL_TYPE; /* x174114 stalin.sc:25197:870668 */ t96637.s1.tag = STRUCTURE_TYPE24753; t96637.s1.value.structure_type24753 = &t96638; /* x174115 stalin.sc:25197:870668 */ t96636.s0.tag = STRUCTURE_TYPE24753; t96636.s0.value.structure_type24753 = &t96637; /* x174116 stalin.sc:25197:870668 */ t96636.s1.tag = NULL_TYPE; /* x174117 stalin.sc:25197:870668 */ t96635.s1.tag = STRUCTURE_TYPE24753; t96635.s1.value.structure_type24753 = &t96636; /* x174118 stalin.sc:25197:870668 */ t96634.s0.tag = STRUCTURE_TYPE24753; t96634.s0.value.structure_type24753 = &t96635; /* x174119 stalin.sc:25197:870668 */ t96634.s1.tag = NULL_TYPE; /* x174120 stalin.sc:25197:870668 */ t96629.s1.tag = STRUCTURE_TYPE24753; t96629.s1.value.structure_type24753 = &t96634; /* x174121 stalin.sc:25197:870668 */ t96577.s1.tag = STRUCTURE_TYPE24753; t96577.s1.value.structure_type24753 = &t96629; /* x174122 stalin.sc:25197:870668 */ t96576.s1.tag = STRUCTURE_TYPE24753; t96576.s1.value.structure_type24753 = &t96577; /* x174123 stalin.sc:25197:870668 */ t96575.s0.tag = STRUCTURE_TYPE24753; t96575.s0.value.structure_type24753 = &t96576; /* x174124 stalin.sc:25197:870668 */ t96575.s1.tag = NULL_TYPE; /* x174125 stalin.sc:25197:870668 */ t96567.s1.tag = STRUCTURE_TYPE24753; t96567.s1.value.structure_type24753 = &t96575; /* x174126 stalin.sc:25197:870668 */ t96545.s1.tag = STRUCTURE_TYPE24753; t96545.s1.value.structure_type24753 = &t96567; /* x174127 stalin.sc:25197:870668 */ t96544.s1.tag = STRUCTURE_TYPE24753; t96544.s1.value.structure_type24753 = &t96545; /* x174128 stalin.sc:25197:870668 */ t96543.s1.tag = STRUCTURE_TYPE24753; t96543.s1.value.structure_type24753 = &t96544; /* x174129 stalin.sc:25197:870668 */ t96542.s0.tag = STRUCTURE_TYPE24753; t96542.s0.value.structure_type24753 = &t96543; /* x174130 stalin.sc:25197:870668 */ t96542.s1.tag = NULL_TYPE; /* x174131 stalin.sc:25197:870668 */ t96539.s1.tag = STRUCTURE_TYPE24753; t96539.s1.value.structure_type24753 = &t96542; /* x174132 stalin.sc:25197:870668 */ t96538.s1.tag = STRUCTURE_TYPE24753; t96538.s1.value.structure_type24753 = &t96539; /* x174133 stalin.sc:25197:870668 */ t96537.s0.tag = STRUCTURE_TYPE24753; t96537.s0.value.structure_type24753 = &t96538; /* x174134 stalin.sc:25197:870668 */ t96640.s0.tag = EXTERNAL_SYMBOL_TYPE; t96640.s0.value.external_symbol_type = q97; /* x174135 stalin.sc:25197:870668 */ t96642.s0.tag = EXTERNAL_SYMBOL_TYPE; t96642.s0.value.external_symbol_type = q292; /* x174136 stalin.sc:25197:870668 */ t96643.s0.tag = EXTERNAL_SYMBOL_TYPE; t96643.s0.value.external_symbol_type = q281; /* x174137 stalin.sc:25197:870668 */ t96643.s1.tag = NULL_TYPE; /* x174138 stalin.sc:25197:870668 */ t96642.s1.tag = STRUCTURE_TYPE24753; t96642.s1.value.structure_type24753 = &t96643; /* x174139 stalin.sc:25197:870668 */ t96641.s0.tag = STRUCTURE_TYPE24753; t96641.s0.value.structure_type24753 = &t96642; /* x174140 stalin.sc:25197:870668 */ t96645.s0.tag = EXTERNAL_SYMBOL_TYPE; t96645.s0.value.external_symbol_type = q242; /* x174141 stalin.sc:25197:870668 */ t96648.s0.tag = EXTERNAL_SYMBOL_TYPE; t96648.s0.value.external_symbol_type = q261; /* x174142 stalin.sc:25197:870668 */ t96650.s0.tag = EXTERNAL_SYMBOL_TYPE; t96650.s0.value.external_symbol_type = q262; /* x174143 stalin.sc:25197:870668 */ t96651.s0.tag = EXTERNAL_SYMBOL_TYPE; t96651.s0.value.external_symbol_type = q254; /* x174144 stalin.sc:25197:870668 */ t96651.s1.tag = NULL_TYPE; /* x174145 stalin.sc:25197:870668 */ t96650.s1.tag = STRUCTURE_TYPE24753; t96650.s1.value.structure_type24753 = &t96651; /* x174146 stalin.sc:25197:870668 */ t96649.s0.tag = STRUCTURE_TYPE24753; t96649.s0.value.structure_type24753 = &t96650; /* x174147 stalin.sc:25197:870668 */ t96649.s1.tag = NULL_TYPE; /* x174148 stalin.sc:25197:870668 */ t96648.s1.tag = STRUCTURE_TYPE24753; t96648.s1.value.structure_type24753 = &t96649; /* x174149 stalin.sc:25197:870668 */ t96647.s0.tag = STRUCTURE_TYPE24753; t96647.s0.value.structure_type24753 = &t96648; /* x174150 stalin.sc:25197:870668 */ t96647.s1.tag = NULL_TYPE; /* x174151 stalin.sc:25197:870668 */ t96646.s0.tag = STRUCTURE_TYPE24753; t96646.s0.value.structure_type24753 = &t96647; /* x174152 stalin.sc:25197:870668 */ t96653.s0.tag = EXTERNAL_SYMBOL_TYPE; t96653.s0.value.external_symbol_type = q240; /* x174153 stalin.sc:25197:870668 */ t96656.s0.tag = EXTERNAL_SYMBOL_TYPE; t96656.s0.value.external_symbol_type = q178; /* x174154 stalin.sc:25197:870668 */ t96657.s0.tag = EXTERNAL_SYMBOL_TYPE; t96657.s0.value.external_symbol_type = q261; /* x174155 stalin.sc:25197:870668 */ t96657.s1.tag = NULL_TYPE; /* x174156 stalin.sc:25197:870668 */ t96656.s1.tag = STRUCTURE_TYPE24753; t96656.s1.value.structure_type24753 = &t96657; /* x174157 stalin.sc:25197:870668 */ t96655.s0.tag = STRUCTURE_TYPE24753; t96655.s0.value.structure_type24753 = &t96656; /* x174158 stalin.sc:25197:870668 */ t96659.s0.tag = EXTERNAL_SYMBOL_TYPE; t96659.s0.value.external_symbol_type = q286; /* x174159 stalin.sc:25197:870668 */ t96660.s0.tag = EXTERNAL_SYMBOL_TYPE; t96660.s0.value.external_symbol_type = q281; /* x174160 stalin.sc:25197:870668 */ t96660.s1.tag = NULL_TYPE; /* x174161 stalin.sc:25197:870668 */ t96659.s1.tag = STRUCTURE_TYPE24753; t96659.s1.value.structure_type24753 = &t96660; /* x174162 stalin.sc:25197:870668 */ t96658.s0.tag = STRUCTURE_TYPE24753; t96658.s0.value.structure_type24753 = &t96659; /* x174163 stalin.sc:25197:870668 */ t96658.s1.tag = NULL_TYPE; /* x174164 stalin.sc:25197:870668 */ t96655.s1.tag = STRUCTURE_TYPE24753; t96655.s1.value.structure_type24753 = &t96658; /* x174165 stalin.sc:25197:870668 */ t96654.s0.tag = STRUCTURE_TYPE24753; t96654.s0.value.structure_type24753 = &t96655; /* x174166 stalin.sc:25197:870668 */ t96663.s0.tag = EXTERNAL_SYMBOL_TYPE; t96663.s0.value.external_symbol_type = q278; /* x174167 stalin.sc:25197:870668 */ t96664.s0.tag = EXTERNAL_SYMBOL_TYPE; t96664.s0.value.external_symbol_type = q261; /* x174168 stalin.sc:25197:870668 */ t96664.s1.tag = NULL_TYPE; /* x174169 stalin.sc:25197:870668 */ t96663.s1.tag = STRUCTURE_TYPE24753; t96663.s1.value.structure_type24753 = &t96664; /* x174170 stalin.sc:25197:870668 */ t96662.s0.tag = STRUCTURE_TYPE24753; t96662.s0.value.structure_type24753 = &t96663; /* x174171 stalin.sc:25197:870668 */ t96666.s0.tag = EXTERNAL_SYMBOL_TYPE; t96666.s0.value.external_symbol_type = q264; /* x174172 stalin.sc:25197:870668 */ t96667.s0.tag = EXTERNAL_SYMBOL_TYPE; t96667.s0.value.external_symbol_type = q254; /* x174173 stalin.sc:25197:870668 */ t96667.s1.tag = NULL_TYPE; /* x174174 stalin.sc:25197:870668 */ t96666.s1.tag = STRUCTURE_TYPE24753; t96666.s1.value.structure_type24753 = &t96667; /* x174175 stalin.sc:25197:870668 */ t96665.s0.tag = STRUCTURE_TYPE24753; t96665.s0.value.structure_type24753 = &t96666; /* x174176 stalin.sc:25197:870668 */ t96669.s0.tag = EXTERNAL_SYMBOL_TYPE; t96669.s0.value.external_symbol_type = q292; /* x174177 stalin.sc:25197:870668 */ t96671.s0.tag = EXTERNAL_SYMBOL_TYPE; t96671.s0.value.external_symbol_type = q106; /* x174178 stalin.sc:25197:870668 */ t96672.s0.tag = EXTERNAL_SYMBOL_TYPE; t96672.s0.value.external_symbol_type = q261; /* x174179 stalin.sc:25197:870668 */ t96673.s0.tag = EXTERNAL_SYMBOL_TYPE; t96673.s0.value.external_symbol_type = q281; /* x174180 stalin.sc:25197:870668 */ t96673.s1.tag = NULL_TYPE; /* x174181 stalin.sc:25197:870668 */ t96672.s1.tag = STRUCTURE_TYPE24753; t96672.s1.value.structure_type24753 = &t96673; /* x174182 stalin.sc:25197:870668 */ t96671.s1.tag = STRUCTURE_TYPE24753; t96671.s1.value.structure_type24753 = &t96672; /* x174183 stalin.sc:25197:870668 */ t96670.s0.tag = STRUCTURE_TYPE24753; t96670.s0.value.structure_type24753 = &t96671; /* x174184 stalin.sc:25197:870668 */ t96670.s1.tag = NULL_TYPE; /* x174185 stalin.sc:25197:870668 */ t96669.s1.tag = STRUCTURE_TYPE24753; t96669.s1.value.structure_type24753 = &t96670; /* x174186 stalin.sc:25197:870668 */ t96668.s0.tag = STRUCTURE_TYPE24753; t96668.s0.value.structure_type24753 = &t96669; /* x174187 stalin.sc:25197:870668 */ t96668.s1.tag = NULL_TYPE; /* x174188 stalin.sc:25197:870668 */ t96665.s1.tag = STRUCTURE_TYPE24753; t96665.s1.value.structure_type24753 = &t96668; /* x174189 stalin.sc:25197:870668 */ t96662.s1.tag = STRUCTURE_TYPE24753; t96662.s1.value.structure_type24753 = &t96665; /* x174190 stalin.sc:25197:870668 */ t96661.s0.tag = STRUCTURE_TYPE24753; t96661.s0.value.structure_type24753 = &t96662; /* x174191 stalin.sc:25197:870668 */ t96675.s0.tag = EXTERNAL_SYMBOL_TYPE; t96675.s0.value.external_symbol_type = q95; /* x174192 stalin.sc:25197:870668 */ t96677.s0.tag = EXTERNAL_SYMBOL_TYPE; t96677.s0.value.external_symbol_type = q43; /* x174193 stalin.sc:25197:870668 */ t96679.s0.tag = EXTERNAL_SYMBOL_TYPE; t96679.s0.value.external_symbol_type = q244; /* x174194 stalin.sc:25197:870668 */ t96681.s0.tag = EXTERNAL_SYMBOL_TYPE; t96681.s0.value.external_symbol_type = q102; /* x174195 stalin.sc:25197:870668 */ t96683.s0.tag = EXTERNAL_SYMBOL_TYPE; t96683.s0.value.external_symbol_type = q111; /* x174196 stalin.sc:25197:870668 */ t96684.s0.tag = EXTERNAL_SYMBOL_TYPE; t96684.s0.value.external_symbol_type = q281; /* x174197 stalin.sc:25197:870668 */ t96684.s1.tag = NULL_TYPE; /* x174198 stalin.sc:25197:870668 */ t96683.s1.tag = STRUCTURE_TYPE24753; t96683.s1.value.structure_type24753 = &t96684; /* x174199 stalin.sc:25197:870668 */ t96682.s0.tag = STRUCTURE_TYPE24753; t96682.s0.value.structure_type24753 = &t96683; /* x174200 stalin.sc:25197:870668 */ t96682.s1.tag = NULL_TYPE; /* x174201 stalin.sc:25197:870668 */ t96681.s1.tag = STRUCTURE_TYPE24753; t96681.s1.value.structure_type24753 = &t96682; /* x174202 stalin.sc:25197:870668 */ t96680.s0.tag = STRUCTURE_TYPE24753; t96680.s0.value.structure_type24753 = &t96681; /* x174203 stalin.sc:25197:870668 */ t96686.s0.tag = EXTERNAL_SYMBOL_TYPE; t96686.s0.value.external_symbol_type = q111; /* x174204 stalin.sc:25197:870668 */ t96688.s0.tag = EXTERNAL_SYMBOL_TYPE; t96688.s0.value.external_symbol_type = q108; /* x174205 stalin.sc:25197:870668 */ t96689.s0.tag = EXTERNAL_SYMBOL_TYPE; t96689.s0.value.external_symbol_type = q281; /* x174206 stalin.sc:25197:870668 */ t96689.s1.tag = NULL_TYPE; /* x174207 stalin.sc:25197:870668 */ t96688.s1.tag = STRUCTURE_TYPE24753; t96688.s1.value.structure_type24753 = &t96689; /* x174208 stalin.sc:25197:870668 */ t96687.s0.tag = STRUCTURE_TYPE24753; t96687.s0.value.structure_type24753 = &t96688; /* x174209 stalin.sc:25197:870668 */ t96687.s1.tag = NULL_TYPE; /* x174210 stalin.sc:25197:870668 */ t96686.s1.tag = STRUCTURE_TYPE24753; t96686.s1.value.structure_type24753 = &t96687; /* x174211 stalin.sc:25197:870668 */ t96685.s0.tag = STRUCTURE_TYPE24753; t96685.s0.value.structure_type24753 = &t96686; /* x174212 stalin.sc:25197:870668 */ t96685.s1.tag = NULL_TYPE; /* x174213 stalin.sc:25197:870668 */ t96680.s1.tag = STRUCTURE_TYPE24753; t96680.s1.value.structure_type24753 = &t96685; /* x174214 stalin.sc:25197:870668 */ t96679.s1.tag = STRUCTURE_TYPE24753; t96679.s1.value.structure_type24753 = &t96680; /* x174215 stalin.sc:25197:870668 */ t96678.s0.tag = STRUCTURE_TYPE24753; t96678.s0.value.structure_type24753 = &t96679; /* x174216 stalin.sc:25197:870668 */ t96691.s0.tag = EXTERNAL_SYMBOL_TYPE; t96691.s0.value.external_symbol_type = q107; /* x174217 stalin.sc:25197:870668 */ t96692.s0.tag = EXTERNAL_SYMBOL_TYPE; t96692.s0.value.external_symbol_type = q281; /* x174218 stalin.sc:25197:870668 */ t96692.s1.tag = NULL_TYPE; /* x174219 stalin.sc:25197:870668 */ t96691.s1.tag = STRUCTURE_TYPE24753; t96691.s1.value.structure_type24753 = &t96692; /* x174220 stalin.sc:25197:870668 */ t96690.s0.tag = STRUCTURE_TYPE24753; t96690.s0.value.structure_type24753 = &t96691; /* x174221 stalin.sc:25197:870668 */ t96694.s0.tag = EXTERNAL_SYMBOL_TYPE; t96694.s0.value.external_symbol_type = q286; /* x174222 stalin.sc:25197:870668 */ t96695.s0.tag = EXTERNAL_SYMBOL_TYPE; t96695.s0.value.external_symbol_type = q281; /* x174223 stalin.sc:25197:870668 */ t96695.s1.tag = NULL_TYPE; /* x174224 stalin.sc:25197:870668 */ t96694.s1.tag = STRUCTURE_TYPE24753; t96694.s1.value.structure_type24753 = &t96695; /* x174225 stalin.sc:25197:870668 */ t96693.s0.tag = STRUCTURE_TYPE24753; t96693.s0.value.structure_type24753 = &t96694; /* x174226 stalin.sc:25197:870668 */ t96693.s1.tag = NULL_TYPE; /* x174227 stalin.sc:25197:870668 */ t96690.s1.tag = STRUCTURE_TYPE24753; t96690.s1.value.structure_type24753 = &t96693; /* x174228 stalin.sc:25197:870668 */ t96678.s1.tag = STRUCTURE_TYPE24753; t96678.s1.value.structure_type24753 = &t96690; /* x174229 stalin.sc:25197:870668 */ t96677.s1.tag = STRUCTURE_TYPE24753; t96677.s1.value.structure_type24753 = &t96678; /* x174230 stalin.sc:25197:870668 */ t96676.s0.tag = STRUCTURE_TYPE24753; t96676.s0.value.structure_type24753 = &t96677; /* x174231 stalin.sc:25197:870668 */ t96676.s1.tag = NULL_TYPE; /* x174232 stalin.sc:25197:870668 */ t96675.s1.tag = STRUCTURE_TYPE24753; t96675.s1.value.structure_type24753 = &t96676; /* x174233 stalin.sc:25197:870668 */ t96674.s0.tag = STRUCTURE_TYPE24753; t96674.s0.value.structure_type24753 = &t96675; /* x174234 stalin.sc:25197:870668 */ t96674.s1.tag = NULL_TYPE; /* x174235 stalin.sc:25197:870668 */ t96661.s1.tag = STRUCTURE_TYPE24753; t96661.s1.value.structure_type24753 = &t96674; /* x174236 stalin.sc:25197:870668 */ t96654.s1.tag = STRUCTURE_TYPE24753; t96654.s1.value.structure_type24753 = &t96661; /* x174237 stalin.sc:25197:870668 */ t96653.s1.tag = STRUCTURE_TYPE24753; t96653.s1.value.structure_type24753 = &t96654; /* x174238 stalin.sc:25197:870668 */ t96652.s0.tag = STRUCTURE_TYPE24753; t96652.s0.value.structure_type24753 = &t96653; /* x174239 stalin.sc:25197:870668 */ t96652.s1.tag = NULL_TYPE; /* x174240 stalin.sc:25197:870668 */ t96646.s1.tag = STRUCTURE_TYPE24753; t96646.s1.value.structure_type24753 = &t96652; /* x174241 stalin.sc:25197:870668 */ t96645.s1.tag = STRUCTURE_TYPE24753; t96645.s1.value.structure_type24753 = &t96646; /* x174242 stalin.sc:25197:870668 */ t96644.s0.tag = STRUCTURE_TYPE24753; t96644.s0.value.structure_type24753 = &t96645; /* x174243 stalin.sc:25197:870668 */ t96644.s1.tag = NULL_TYPE; /* x174244 stalin.sc:25197:870668 */ t96641.s1.tag = STRUCTURE_TYPE24753; t96641.s1.value.structure_type24753 = &t96644; /* x174245 stalin.sc:25197:870668 */ t96640.s1.tag = STRUCTURE_TYPE24753; t96640.s1.value.structure_type24753 = &t96641; /* x174246 stalin.sc:25197:870668 */ t96639.s0.tag = STRUCTURE_TYPE24753; t96639.s0.value.structure_type24753 = &t96640; /* x174247 stalin.sc:25197:870668 */ t96697.s0.tag = EXTERNAL_SYMBOL_TYPE; t96697.s0.value.external_symbol_type = q242; /* x174248 stalin.sc:25197:870668 */ t96700.s0.tag = EXTERNAL_SYMBOL_TYPE; t96700.s0.value.external_symbol_type = q273; /* x174249 stalin.sc:25197:870668 */ t96702.s0.tag = EXTERNAL_SYMBOL_TYPE; t96702.s0.value.external_symbol_type = q264; /* x174250 stalin.sc:25197:870668 */ t96703.s0.tag = EXTERNAL_SYMBOL_TYPE; t96703.s0.value.external_symbol_type = q254; /* x174251 stalin.sc:25197:870668 */ t96703.s1.tag = NULL_TYPE; /* x174252 stalin.sc:25197:870668 */ t96702.s1.tag = STRUCTURE_TYPE24753; t96702.s1.value.structure_type24753 = &t96703; /* x174253 stalin.sc:25197:870668 */ t96701.s0.tag = STRUCTURE_TYPE24753; t96701.s0.value.structure_type24753 = &t96702; /* x174254 stalin.sc:25197:870668 */ t96701.s1.tag = NULL_TYPE; /* x174255 stalin.sc:25197:870668 */ t96700.s1.tag = STRUCTURE_TYPE24753; t96700.s1.value.structure_type24753 = &t96701; /* x174256 stalin.sc:25197:870668 */ t96699.s0.tag = STRUCTURE_TYPE24753; t96699.s0.value.structure_type24753 = &t96700; /* x174257 stalin.sc:25197:870668 */ t96699.s1.tag = NULL_TYPE; /* x174258 stalin.sc:25197:870668 */ t96698.s0.tag = STRUCTURE_TYPE24753; t96698.s0.value.structure_type24753 = &t96699; /* x174259 stalin.sc:25197:870668 */ t96705.s0.tag = EXTERNAL_SYMBOL_TYPE; t96705.s0.value.external_symbol_type = q240; /* x174260 stalin.sc:25197:870668 */ t96708.s0.tag = EXTERNAL_SYMBOL_TYPE; t96708.s0.value.external_symbol_type = q178; /* x174261 stalin.sc:25197:870668 */ t96709.s0.tag = EXTERNAL_SYMBOL_TYPE; t96709.s0.value.external_symbol_type = q273; /* x174262 stalin.sc:25197:870668 */ t96709.s1.tag = NULL_TYPE; /* x174263 stalin.sc:25197:870668 */ t96708.s1.tag = STRUCTURE_TYPE24753; t96708.s1.value.structure_type24753 = &t96709; /* x174264 stalin.sc:25197:870668 */ t96707.s0.tag = STRUCTURE_TYPE24753; t96707.s0.value.structure_type24753 = &t96708; /* x174265 stalin.sc:25197:870668 */ t96711.s0.tag = EXTERNAL_SYMBOL_TYPE; t96711.s0.value.external_symbol_type = q240; /* x174266 stalin.sc:25197:870668 */ t96714.s0.tag = EXTERNAL_SYMBOL_TYPE; t96714.s0.value.external_symbol_type = q104; /* x174267 stalin.sc:25197:870668 */ t96715.s0.tag = EXTERNAL_SYMBOL_TYPE; t96715.s0.value.external_symbol_type = q258; /* x174268 stalin.sc:25197:870668 */ t96717.s0.tag = EXTERNAL_SYMBOL_TYPE; t96717.s0.value.external_symbol_type = q11; /* x174269 stalin.sc:25197:870668 */ t96718.s0.tag = EXTERNAL_SYMBOL_TYPE; t96718.s0.value.external_symbol_type = q7; /* x174270 stalin.sc:25197:870668 */ t96718.s1.tag = NULL_TYPE; /* x174271 stalin.sc:25197:870668 */ t96717.s1.tag = STRUCTURE_TYPE24753; t96717.s1.value.structure_type24753 = &t96718; /* x174272 stalin.sc:25197:870668 */ t96716.s0.tag = STRUCTURE_TYPE24753; t96716.s0.value.structure_type24753 = &t96717; /* x174273 stalin.sc:25197:870668 */ t96716.s1.tag = NULL_TYPE; /* x174274 stalin.sc:25197:870668 */ t96715.s1.tag = STRUCTURE_TYPE24753; t96715.s1.value.structure_type24753 = &t96716; /* x174275 stalin.sc:25197:870668 */ t96714.s1.tag = STRUCTURE_TYPE24753; t96714.s1.value.structure_type24753 = &t96715; /* x174276 stalin.sc:25197:870668 */ t96713.s0.tag = STRUCTURE_TYPE24753; t96713.s0.value.structure_type24753 = &t96714; /* x174277 stalin.sc:25197:870668 */ t96719.s0.tag = EXTERNAL_SYMBOL_TYPE; t96719.s0.value.external_symbol_type = q273; /* x174278 stalin.sc:25197:870668 */ t96719.s1.tag = NULL_TYPE; /* x174279 stalin.sc:25197:870668 */ t96713.s1.tag = STRUCTURE_TYPE24753; t96713.s1.value.structure_type24753 = &t96719; /* x174280 stalin.sc:25197:870668 */ t96712.s0.tag = STRUCTURE_TYPE24753; t96712.s0.value.structure_type24753 = &t96713; /* x174281 stalin.sc:25197:870668 */ t96722.s0.tag = EXTERNAL_SYMBOL_TYPE; t96722.s0.value.external_symbol_type = q104; /* x174282 stalin.sc:25197:870668 */ t96723.s0.tag = EXTERNAL_SYMBOL_TYPE; t96723.s0.value.external_symbol_type = q258; /* x174283 stalin.sc:25197:870668 */ t96725.s0.tag = EXTERNAL_SYMBOL_TYPE; t96725.s0.value.external_symbol_type = q11; /* x174284 stalin.sc:25197:870668 */ t96726.s0.tag = EXTERNAL_SYMBOL_TYPE; t96726.s0.value.external_symbol_type = q1; /* x174285 stalin.sc:25197:870668 */ t96726.s1.tag = NULL_TYPE; /* x174286 stalin.sc:25197:870668 */ t96725.s1.tag = STRUCTURE_TYPE24753; t96725.s1.value.structure_type24753 = &t96726; /* x174287 stalin.sc:25197:870668 */ t96724.s0.tag = STRUCTURE_TYPE24753; t96724.s0.value.structure_type24753 = &t96725; /* x174288 stalin.sc:25197:870668 */ t96724.s1.tag = NULL_TYPE; /* x174289 stalin.sc:25197:870668 */} void initialize_constants29(void) {t96723.s1.tag = STRUCTURE_TYPE24753; t96723.s1.value.structure_type24753 = &t96724; /* x174290 stalin.sc:25197:870668 */ t96722.s1.tag = STRUCTURE_TYPE24753; t96722.s1.value.structure_type24753 = &t96723; /* x174291 stalin.sc:25197:870668 */ t96721.s0.tag = STRUCTURE_TYPE24753; t96721.s0.value.structure_type24753 = &t96722; /* x174292 stalin.sc:25197:870668 */ t96728.s0.tag = EXTERNAL_SYMBOL_TYPE; t96728.s0.value.external_symbol_type = q179; /* x174293 stalin.sc:25197:870668 */ t96729.s0.tag = STRING_TYPE; t96729.s0.value.string_type = "EOF while reading list"; /* x174294 stalin.sc:25197:870668 */ t96729.s1.tag = NULL_TYPE; /* x174295 stalin.sc:25197:870668 */ t96728.s1.tag = STRUCTURE_TYPE24753; t96728.s1.value.structure_type24753 = &t96729; /* x174296 stalin.sc:25197:870668 */ t96727.s0.tag = STRUCTURE_TYPE24753; t96727.s0.value.structure_type24753 = &t96728; /* x174297 stalin.sc:25197:870668 */ t96727.s1.tag = NULL_TYPE; /* x174298 stalin.sc:25197:870668 */ t96721.s1.tag = STRUCTURE_TYPE24753; t96721.s1.value.structure_type24753 = &t96727; /* x174299 stalin.sc:25197:870668 */ t96720.s0.tag = STRUCTURE_TYPE24753; t96720.s0.value.structure_type24753 = &t96721; /* x174300 stalin.sc:25197:870668 */ t96732.s0.tag = EXTERNAL_SYMBOL_TYPE; t96732.s0.value.external_symbol_type = q104; /* x174301 stalin.sc:25197:870668 */ t96733.s0.tag = EXTERNAL_SYMBOL_TYPE; t96733.s0.value.external_symbol_type = q258; /* x174302 stalin.sc:25197:870668 */ t96735.s0.tag = EXTERNAL_SYMBOL_TYPE; t96735.s0.value.external_symbol_type = q11; /* x174303 stalin.sc:25197:870668 */ t96736.s0.tag = EXTERNAL_SYMBOL_TYPE; t96736.s0.value.external_symbol_type = q6; /* x174304 stalin.sc:25197:870668 */ t96736.s1.tag = NULL_TYPE; /* x174305 stalin.sc:25197:870668 */ t96735.s1.tag = STRUCTURE_TYPE24753; t96735.s1.value.structure_type24753 = &t96736; /* x174306 stalin.sc:25197:870668 */ t96734.s0.tag = STRUCTURE_TYPE24753; t96734.s0.value.structure_type24753 = &t96735; /* x174307 stalin.sc:25197:870668 */ t96734.s1.tag = NULL_TYPE; /* x174308 stalin.sc:25197:870668 */ t96733.s1.tag = STRUCTURE_TYPE24753; t96733.s1.value.structure_type24753 = &t96734; /* x174309 stalin.sc:25197:870668 */ t96732.s1.tag = STRUCTURE_TYPE24753; t96732.s1.value.structure_type24753 = &t96733; /* x174310 stalin.sc:25197:870668 */ t96731.s0.tag = STRUCTURE_TYPE24753; t96731.s0.value.structure_type24753 = &t96732; /* x174311 stalin.sc:25197:870668 */ t96738.s0.tag = EXTERNAL_SYMBOL_TYPE; t96738.s0.value.external_symbol_type = q179; /* x174312 stalin.sc:25197:870668 */ t96739.s0.tag = STRING_TYPE; t96739.s0.value.string_type = "EOF while reading vector"; /* x174313 stalin.sc:25197:870668 */ t96739.s1.tag = NULL_TYPE; /* x174314 stalin.sc:25197:870668 */ t96738.s1.tag = STRUCTURE_TYPE24753; t96738.s1.value.structure_type24753 = &t96739; /* x174315 stalin.sc:25197:870668 */ t96737.s0.tag = STRUCTURE_TYPE24753; t96737.s0.value.structure_type24753 = &t96738; /* x174316 stalin.sc:25197:870668 */ t96737.s1.tag = NULL_TYPE; /* x174317 stalin.sc:25197:870668 */ t96731.s1.tag = STRUCTURE_TYPE24753; t96731.s1.value.structure_type24753 = &t96737; /* x174318 stalin.sc:25197:870668 */ t96730.s0.tag = STRUCTURE_TYPE24753; t96730.s0.value.structure_type24753 = &t96731; /* x174319 stalin.sc:25197:870668 */ t96742.s0.tag = EXTERNAL_SYMBOL_TYPE; t96742.s0.value.external_symbol_type = q104; /* x174320 stalin.sc:25197:870668 */ t96743.s0.tag = EXTERNAL_SYMBOL_TYPE; t96743.s0.value.external_symbol_type = q258; /* x174321 stalin.sc:25197:870668 */ t96745.s0.tag = EXTERNAL_SYMBOL_TYPE; t96745.s0.value.external_symbol_type = q11; /* x174322 stalin.sc:25197:870668 */ t96746.s0.tag = EXTERNAL_SYMBOL_TYPE; t96746.s0.value.external_symbol_type = q11; /* x174323 stalin.sc:25197:870668 */ t96746.s1.tag = NULL_TYPE; /* x174324 stalin.sc:25197:870668 */ t96745.s1.tag = STRUCTURE_TYPE24753; t96745.s1.value.structure_type24753 = &t96746; /* x174325 stalin.sc:25197:870668 */ t96744.s0.tag = STRUCTURE_TYPE24753; t96744.s0.value.structure_type24753 = &t96745; /* x174326 stalin.sc:25197:870668 */ t96744.s1.tag = NULL_TYPE; /* x174327 stalin.sc:25197:870668 */ t96743.s1.tag = STRUCTURE_TYPE24753; t96743.s1.value.structure_type24753 = &t96744; /* x174328 stalin.sc:25197:870668 */ t96742.s1.tag = STRUCTURE_TYPE24753; t96742.s1.value.structure_type24753 = &t96743; /* x174329 stalin.sc:25197:870668 */ t96741.s0.tag = STRUCTURE_TYPE24753; t96741.s0.value.structure_type24753 = &t96742; /* x174330 stalin.sc:25197:870668 */ t96748.s0.tag = EXTERNAL_SYMBOL_TYPE; t96748.s0.value.external_symbol_type = q179; /* x174331 stalin.sc:25197:870668 */ t96749.s0.tag = STRING_TYPE; t96749.s0.value.string_type = "EOF while reading quoted object"; /* x174332 stalin.sc:25197:870668 */ t96749.s1.tag = NULL_TYPE; /* x174333 stalin.sc:25197:870668 */ t96748.s1.tag = STRUCTURE_TYPE24753; t96748.s1.value.structure_type24753 = &t96749; /* x174334 stalin.sc:25197:870668 */ t96747.s0.tag = STRUCTURE_TYPE24753; t96747.s0.value.structure_type24753 = &t96748; /* x174335 stalin.sc:25197:870668 */ t96747.s1.tag = NULL_TYPE; /* x174336 stalin.sc:25197:870668 */ t96741.s1.tag = STRUCTURE_TYPE24753; t96741.s1.value.structure_type24753 = &t96747; /* x174337 stalin.sc:25197:870668 */ t96740.s0.tag = STRUCTURE_TYPE24753; t96740.s0.value.structure_type24753 = &t96741; /* x174338 stalin.sc:25197:870668 */ t96752.s0.tag = EXTERNAL_SYMBOL_TYPE; t96752.s0.value.external_symbol_type = q104; /* x174339 stalin.sc:25197:870668 */ t96753.s0.tag = EXTERNAL_SYMBOL_TYPE; t96753.s0.value.external_symbol_type = q258; /* x174340 stalin.sc:25197:870668 */ t96755.s0.tag = EXTERNAL_SYMBOL_TYPE; t96755.s0.value.external_symbol_type = q11; /* x174341 stalin.sc:25197:870668 */ t96756.s0.tag = EXTERNAL_SYMBOL_TYPE; t96756.s0.value.external_symbol_type = q10; /* x174342 stalin.sc:25197:870668 */ t96756.s1.tag = NULL_TYPE; /* x174343 stalin.sc:25197:870668 */ t96755.s1.tag = STRUCTURE_TYPE24753; t96755.s1.value.structure_type24753 = &t96756; /* x174344 stalin.sc:25197:870668 */ t96754.s0.tag = STRUCTURE_TYPE24753; t96754.s0.value.structure_type24753 = &t96755; /* x174345 stalin.sc:25197:870668 */ t96754.s1.tag = NULL_TYPE; /* x174346 stalin.sc:25197:870668 */ t96753.s1.tag = STRUCTURE_TYPE24753; t96753.s1.value.structure_type24753 = &t96754; /* x174347 stalin.sc:25197:870668 */ t96752.s1.tag = STRUCTURE_TYPE24753; t96752.s1.value.structure_type24753 = &t96753; /* x174348 stalin.sc:25197:870668 */ t96751.s0.tag = STRUCTURE_TYPE24753; t96751.s0.value.structure_type24753 = &t96752; /* x174349 stalin.sc:25197:870668 */ t96758.s0.tag = EXTERNAL_SYMBOL_TYPE; t96758.s0.value.external_symbol_type = q179; /* x174350 stalin.sc:25197:870668 */ t96759.s0.tag = STRING_TYPE; t96759.s0.value.string_type = "EOF while reading quasiquoted object"; /* x174351 stalin.sc:25197:870668 */ t96759.s1.tag = NULL_TYPE; /* x174352 stalin.sc:25197:870668 */ t96758.s1.tag = STRUCTURE_TYPE24753; t96758.s1.value.structure_type24753 = &t96759; /* x174353 stalin.sc:25197:870668 */ t96757.s0.tag = STRUCTURE_TYPE24753; t96757.s0.value.structure_type24753 = &t96758; /* x174354 stalin.sc:25197:870668 */ t96757.s1.tag = NULL_TYPE; /* x174355 stalin.sc:25197:870668 */ t96751.s1.tag = STRUCTURE_TYPE24753; t96751.s1.value.structure_type24753 = &t96757; /* x174356 stalin.sc:25197:870668 */ t96750.s0.tag = STRUCTURE_TYPE24753; t96750.s0.value.structure_type24753 = &t96751; /* x174357 stalin.sc:25197:870668 */ t96762.s0.tag = EXTERNAL_SYMBOL_TYPE; t96762.s0.value.external_symbol_type = q104; /* x174358 stalin.sc:25197:870668 */ t96763.s0.tag = EXTERNAL_SYMBOL_TYPE; t96763.s0.value.external_symbol_type = q258; /* x174359 stalin.sc:25197:870668 */ t96765.s0.tag = EXTERNAL_SYMBOL_TYPE; t96765.s0.value.external_symbol_type = q11; /* x174360 stalin.sc:25197:870668 */ t96766.s0.tag = EXTERNAL_SYMBOL_TYPE; t96766.s0.value.external_symbol_type = q9; /* x174361 stalin.sc:25197:870668 */ t96766.s1.tag = NULL_TYPE; /* x174362 stalin.sc:25197:870668 */ t96765.s1.tag = STRUCTURE_TYPE24753; t96765.s1.value.structure_type24753 = &t96766; /* x174363 stalin.sc:25197:870668 */ t96764.s0.tag = STRUCTURE_TYPE24753; t96764.s0.value.structure_type24753 = &t96765; /* x174364 stalin.sc:25197:870668 */ t96764.s1.tag = NULL_TYPE; /* x174365 stalin.sc:25197:870668 */ t96763.s1.tag = STRUCTURE_TYPE24753; t96763.s1.value.structure_type24753 = &t96764; /* x174366 stalin.sc:25197:870668 */ t96762.s1.tag = STRUCTURE_TYPE24753; t96762.s1.value.structure_type24753 = &t96763; /* x174367 stalin.sc:25197:870668 */ t96761.s0.tag = STRUCTURE_TYPE24753; t96761.s0.value.structure_type24753 = &t96762; /* x174368 stalin.sc:25197:870668 */ t96768.s0.tag = EXTERNAL_SYMBOL_TYPE; t96768.s0.value.external_symbol_type = q179; /* x174369 stalin.sc:25197:870668 */ t96769.s0.tag = STRING_TYPE; t96769.s0.value.string_type = "EOF while reading unquote-slicing object"; /* x174370 stalin.sc:25197:870668 */ t96769.s1.tag = NULL_TYPE; /* x174371 stalin.sc:25197:870668 */ t96768.s1.tag = STRUCTURE_TYPE24753; t96768.s1.value.structure_type24753 = &t96769; /* x174372 stalin.sc:25197:870668 */ t96767.s0.tag = STRUCTURE_TYPE24753; t96767.s0.value.structure_type24753 = &t96768; /* x174373 stalin.sc:25197:870668 */ t96767.s1.tag = NULL_TYPE; /* x174374 stalin.sc:25197:870668 */ t96761.s1.tag = STRUCTURE_TYPE24753; t96761.s1.value.structure_type24753 = &t96767; /* x174375 stalin.sc:25197:870668 */ t96760.s0.tag = STRUCTURE_TYPE24753; t96760.s0.value.structure_type24753 = &t96761; /* x174376 stalin.sc:25197:870668 */ t96772.s0.tag = EXTERNAL_SYMBOL_TYPE; t96772.s0.value.external_symbol_type = q104; /* x174377 stalin.sc:25197:870668 */ t96773.s0.tag = EXTERNAL_SYMBOL_TYPE; t96773.s0.value.external_symbol_type = q258; /* x174378 stalin.sc:25197:870668 */ t96775.s0.tag = EXTERNAL_SYMBOL_TYPE; t96775.s0.value.external_symbol_type = q11; /* x174379 stalin.sc:25197:870668 */ t96776.s0.tag = EXTERNAL_SYMBOL_TYPE; t96776.s0.value.external_symbol_type = q8; /* x174380 stalin.sc:25197:870668 */ t96776.s1.tag = NULL_TYPE; /* x174381 stalin.sc:25197:870668 */ t96775.s1.tag = STRUCTURE_TYPE24753; t96775.s1.value.structure_type24753 = &t96776; /* x174382 stalin.sc:25197:870668 */ t96774.s0.tag = STRUCTURE_TYPE24753; t96774.s0.value.structure_type24753 = &t96775; /* x174383 stalin.sc:25197:870668 */ t96774.s1.tag = NULL_TYPE; /* x174384 stalin.sc:25197:870668 */ t96773.s1.tag = STRUCTURE_TYPE24753; t96773.s1.value.structure_type24753 = &t96774; /* x174385 stalin.sc:25197:870668 */ t96772.s1.tag = STRUCTURE_TYPE24753; t96772.s1.value.structure_type24753 = &t96773; /* x174386 stalin.sc:25197:870668 */ t96771.s0.tag = STRUCTURE_TYPE24753; t96771.s0.value.structure_type24753 = &t96772; /* x174387 stalin.sc:25197:870668 */ t96778.s0.tag = EXTERNAL_SYMBOL_TYPE; t96778.s0.value.external_symbol_type = q179; /* x174388 stalin.sc:25197:870668 */ t96779.s0.tag = STRING_TYPE; t96779.s0.value.string_type = "EOF while reading unquoted object"; /* x174389 stalin.sc:25197:870668 */ t96779.s1.tag = NULL_TYPE; /* x174390 stalin.sc:25197:870668 */ t96778.s1.tag = STRUCTURE_TYPE24753; t96778.s1.value.structure_type24753 = &t96779; /* x174391 stalin.sc:25197:870668 */ t96777.s0.tag = STRUCTURE_TYPE24753; t96777.s0.value.structure_type24753 = &t96778; /* x174392 stalin.sc:25197:870668 */ t96777.s1.tag = NULL_TYPE; /* x174393 stalin.sc:25197:870668 */ t96771.s1.tag = STRUCTURE_TYPE24753; t96771.s1.value.structure_type24753 = &t96777; /* x174394 stalin.sc:25197:870668 */ t96770.s0.tag = STRUCTURE_TYPE24753; t96770.s0.value.structure_type24753 = &t96771; /* x174395 stalin.sc:25197:870668 */ t96782.s0.tag = EXTERNAL_SYMBOL_TYPE; t96782.s0.value.external_symbol_type = q104; /* x174396 stalin.sc:25197:870668 */ t96783.s0.tag = EXTERNAL_SYMBOL_TYPE; t96783.s0.value.external_symbol_type = q258; /* x174397 stalin.sc:25197:870668 */ t96785.s0.tag = EXTERNAL_SYMBOL_TYPE; t96785.s0.value.external_symbol_type = q11; /* x174398 stalin.sc:25197:870668 */ t96786.s0.tag = EXTERNAL_SYMBOL_TYPE; t96786.s0.value.external_symbol_type = q0; /* x174399 stalin.sc:25197:870668 */ t96786.s1.tag = NULL_TYPE; /* x174400 stalin.sc:25197:870668 */ t96785.s1.tag = STRUCTURE_TYPE24753; t96785.s1.value.structure_type24753 = &t96786; /* x174401 stalin.sc:25197:870668 */ t96784.s0.tag = STRUCTURE_TYPE24753; t96784.s0.value.structure_type24753 = &t96785; /* x174402 stalin.sc:25197:870668 */ t96784.s1.tag = NULL_TYPE; /* x174403 stalin.sc:25197:870668 */ t96783.s1.tag = STRUCTURE_TYPE24753; t96783.s1.value.structure_type24753 = &t96784; /* x174404 stalin.sc:25197:870668 */ t96782.s1.tag = STRUCTURE_TYPE24753; t96782.s1.value.structure_type24753 = &t96783; /* x174405 stalin.sc:25197:870668 */ t96781.s0.tag = STRUCTURE_TYPE24753; t96781.s0.value.structure_type24753 = &t96782; /* x174406 stalin.sc:25197:870668 */ t96788.s0.tag = EXTERNAL_SYMBOL_TYPE; t96788.s0.value.external_symbol_type = q179; /* x174407 stalin.sc:25197:870668 */ t96789.s0.tag = STRING_TYPE; t96789.s0.value.string_type = "EOF while reading pair"; /* x174408 stalin.sc:25197:870668 */ t96789.s1.tag = NULL_TYPE; /* x174409 stalin.sc:25197:870668 */ t96788.s1.tag = STRUCTURE_TYPE24753; t96788.s1.value.structure_type24753 = &t96789; /* x174410 stalin.sc:25197:870668 */ t96787.s0.tag = STRUCTURE_TYPE24753; t96787.s0.value.structure_type24753 = &t96788; /* x174411 stalin.sc:25197:870668 */ t96787.s1.tag = NULL_TYPE; /* x174412 stalin.sc:25197:870668 */ t96781.s1.tag = STRUCTURE_TYPE24753; t96781.s1.value.structure_type24753 = &t96787; /* x174413 stalin.sc:25197:870668 */ t96780.s0.tag = STRUCTURE_TYPE24753; t96780.s0.value.structure_type24753 = &t96781; /* x174414 stalin.sc:25197:870668 */ t96791.s0.tag = EXTERNAL_SYMBOL_TYPE; t96791.s0.value.external_symbol_type = q95; /* x174415 stalin.sc:25197:870668 */ t96793.s0.tag = EXTERNAL_SYMBOL_TYPE; t96793.s0.value.external_symbol_type = q179; /* x174416 stalin.sc:25197:870668 */ t96794.s0.tag = STRING_TYPE; t96794.s0.value.string_type = "This shouldn\'t happen"; /* x174417 stalin.sc:25197:870668 */ t96794.s1.tag = NULL_TYPE; /* x174418 stalin.sc:25197:870668 */ t96793.s1.tag = STRUCTURE_TYPE24753; t96793.s1.value.structure_type24753 = &t96794; /* x174419 stalin.sc:25197:870668 */ t96792.s0.tag = STRUCTURE_TYPE24753; t96792.s0.value.structure_type24753 = &t96793; /* x174420 stalin.sc:25197:870668 */ t96792.s1.tag = NULL_TYPE; /* x174421 stalin.sc:25197:870668 */ t96791.s1.tag = STRUCTURE_TYPE24753; t96791.s1.value.structure_type24753 = &t96792; /* x174422 stalin.sc:25197:870668 */ t96790.s0.tag = STRUCTURE_TYPE24753; t96790.s0.value.structure_type24753 = &t96791; /* x174423 stalin.sc:25197:870668 */ t96790.s1.tag = NULL_TYPE; /* x174424 stalin.sc:25197:870668 */ t96780.s1.tag = STRUCTURE_TYPE24753; t96780.s1.value.structure_type24753 = &t96790; /* x174425 stalin.sc:25197:870668 */ t96770.s1.tag = STRUCTURE_TYPE24753; t96770.s1.value.structure_type24753 = &t96780; /* x174426 stalin.sc:25197:870668 */ t96760.s1.tag = STRUCTURE_TYPE24753; t96760.s1.value.structure_type24753 = &t96770; /* x174427 stalin.sc:25197:870668 */ t96750.s1.tag = STRUCTURE_TYPE24753; t96750.s1.value.structure_type24753 = &t96760; /* x174428 stalin.sc:25197:870668 */ t96740.s1.tag = STRUCTURE_TYPE24753; t96740.s1.value.structure_type24753 = &t96750; /* x174429 stalin.sc:25197:870668 */ t96730.s1.tag = STRUCTURE_TYPE24753; t96730.s1.value.structure_type24753 = &t96740; /* x174430 stalin.sc:25197:870668 */ t96720.s1.tag = STRUCTURE_TYPE24753; t96720.s1.value.structure_type24753 = &t96730; /* x174431 stalin.sc:25197:870668 */ t96712.s1.tag = STRUCTURE_TYPE24753; t96712.s1.value.structure_type24753 = &t96720; /* x174432 stalin.sc:25197:870668 */ t96711.s1.tag = STRUCTURE_TYPE24753; t96711.s1.value.structure_type24753 = &t96712; /* x174433 stalin.sc:25197:870668 */ t96710.s0.tag = STRUCTURE_TYPE24753; t96710.s0.value.structure_type24753 = &t96711; /* x174434 stalin.sc:25197:870668 */ t96710.s1.tag = NULL_TYPE; /* x174435 stalin.sc:25197:870668 */ t96707.s1.tag = STRUCTURE_TYPE24753; t96707.s1.value.structure_type24753 = &t96710; /* x174436 stalin.sc:25197:870668 */ t96706.s0.tag = STRUCTURE_TYPE24753; t96706.s0.value.structure_type24753 = &t96707; /* x174437 stalin.sc:25197:870668 */ t96797.s0.tag = EXTERNAL_SYMBOL_TYPE; t96797.s0.value.external_symbol_type = q263; /* x174438 stalin.sc:25197:870668 */ t96798.s0.tag = EXTERNAL_SYMBOL_TYPE; t96798.s0.value.external_symbol_type = q273; /* x174439 stalin.sc:25197:870668 */ t96799.s0.tag = ((unsigned)((unsigned char)';'))<<2; /* x174440 stalin.sc:25197:870668 */ t96799.s1.tag = NULL_TYPE; /* x174441 stalin.sc:25197:870668 */ t96798.s1.tag = STRUCTURE_TYPE24753; t96798.s1.value.structure_type24753 = &t96799; /* x174442 stalin.sc:25197:870668 */ t96797.s1.tag = STRUCTURE_TYPE24753; t96797.s1.value.structure_type24753 = &t96798; /* x174443 stalin.sc:25197:870668 */ t96796.s0.tag = STRUCTURE_TYPE24753; t96796.s0.value.structure_type24753 = &t96797; /* x174444 stalin.sc:25197:870668 */ t96801.s0.tag = EXTERNAL_SYMBOL_TYPE; t96801.s0.value.external_symbol_type = q242; /* x174445 stalin.sc:25197:870668 */ t96802.s0.tag = EXTERNAL_SYMBOL_TYPE; t96802.s0.value.external_symbol_type = q287; /* x174446 stalin.sc:25197:870668 */ t96803.s0.tag = NULL_TYPE; /* x174447 stalin.sc:25197:870668 */ t96805.s0.tag = EXTERNAL_SYMBOL_TYPE; t96805.s0.value.external_symbol_type = q43; /* x174448 stalin.sc:25197:870668 */ t96807.s0.tag = EXTERNAL_SYMBOL_TYPE; t96807.s0.value.external_symbol_type = q242; /* x174449 stalin.sc:25197:870668 */ t96810.s0.tag = EXTERNAL_SYMBOL_TYPE; t96810.s0.value.external_symbol_type = q261; /* x174450 stalin.sc:25197:870668 */ t96812.s0.tag = EXTERNAL_SYMBOL_TYPE; t96812.s0.value.external_symbol_type = q264; /* x174451 stalin.sc:25197:870668 */ t96813.s0.tag = EXTERNAL_SYMBOL_TYPE; t96813.s0.value.external_symbol_type = q254; /* x174452 stalin.sc:25197:870668 */ t96813.s1.tag = NULL_TYPE; /* x174453 stalin.sc:25197:870668 */ t96812.s1.tag = STRUCTURE_TYPE24753; t96812.s1.value.structure_type24753 = &t96813; /* x174454 stalin.sc:25197:870668 */ t96811.s0.tag = STRUCTURE_TYPE24753; t96811.s0.value.structure_type24753 = &t96812; /* x174455 stalin.sc:25197:870668 */ t96811.s1.tag = NULL_TYPE; /* x174456 stalin.sc:25197:870668 */ t96810.s1.tag = STRUCTURE_TYPE24753; t96810.s1.value.structure_type24753 = &t96811; /* x174457 stalin.sc:25197:870668 */ t96809.s0.tag = STRUCTURE_TYPE24753; t96809.s0.value.structure_type24753 = &t96810; /* x174458 stalin.sc:25197:870668 */ t96809.s1.tag = NULL_TYPE; /* x174459 stalin.sc:25197:870668 */ t96808.s0.tag = STRUCTURE_TYPE24753; t96808.s0.value.structure_type24753 = &t96809; /* x174460 stalin.sc:25197:870668 */ t96815.s0.tag = EXTERNAL_SYMBOL_TYPE; t96815.s0.value.external_symbol_type = q244; /* x174461 stalin.sc:25197:870668 */ t96817.s0.tag = EXTERNAL_SYMBOL_TYPE; t96817.s0.value.external_symbol_type = q102; /* x174462 stalin.sc:25197:870668 */ t96819.s0.tag = EXTERNAL_SYMBOL_TYPE; t96819.s0.value.external_symbol_type = q178; /* x174463 stalin.sc:25197:870668 */ t96820.s0.tag = EXTERNAL_SYMBOL_TYPE; t96820.s0.value.external_symbol_type = q261; /* x174464 stalin.sc:25197:870668 */ t96820.s1.tag = NULL_TYPE; /* x174465 stalin.sc:25197:870668 */ t96819.s1.tag = STRUCTURE_TYPE24753; t96819.s1.value.structure_type24753 = &t96820; /* x174466 stalin.sc:25197:870668 */ t96818.s0.tag = STRUCTURE_TYPE24753; t96818.s0.value.structure_type24753 = &t96819; /* x174467 stalin.sc:25197:870668 */ t96818.s1.tag = NULL_TYPE; /* x174468 stalin.sc:25197:870668 */ t96817.s1.tag = STRUCTURE_TYPE24753; t96817.s1.value.structure_type24753 = &t96818; /* x174469 stalin.sc:25197:870668 */ t96816.s0.tag = STRUCTURE_TYPE24753; t96816.s0.value.structure_type24753 = &t96817; /* x174470 stalin.sc:25197:870668 */ t96822.s0.tag = EXTERNAL_SYMBOL_TYPE; t96822.s0.value.external_symbol_type = q102; /* x174471 stalin.sc:25197:870668 */ t96824.s0.tag = EXTERNAL_SYMBOL_TYPE; t96824.s0.value.external_symbol_type = q263; /* x174472 stalin.sc:25197:870668 */ t96825.s0.tag = EXTERNAL_SYMBOL_TYPE; t96825.s0.value.external_symbol_type = q261; /* x174473 stalin.sc:25197:870668 */ t96826.s0.tag = ((unsigned)((unsigned char)'\n'))<<2; /* x174474 stalin.sc:25197:870668 */ t96826.s1.tag = NULL_TYPE; /* x174475 stalin.sc:25197:870668 */ t96825.s1.tag = STRUCTURE_TYPE24753; t96825.s1.value.structure_type24753 = &t96826; /* x174476 stalin.sc:25197:870668 */ t96824.s1.tag = STRUCTURE_TYPE24753; t96824.s1.value.structure_type24753 = &t96825; /* x174477 stalin.sc:25197:870668 */ t96823.s0.tag = STRUCTURE_TYPE24753; t96823.s0.value.structure_type24753 = &t96824; /* x174478 stalin.sc:25197:870668 */ t96823.s1.tag = NULL_TYPE; /* x174479 stalin.sc:25197:870668 */ t96822.s1.tag = STRUCTURE_TYPE24753; t96822.s1.value.structure_type24753 = &t96823; /* x174480 stalin.sc:25197:870668 */ t96821.s0.tag = STRUCTURE_TYPE24753; t96821.s0.value.structure_type24753 = &t96822; /* x174481 stalin.sc:25197:870668 */ t96821.s1.tag = NULL_TYPE; /* x174482 stalin.sc:25197:870668 */ t96816.s1.tag = STRUCTURE_TYPE24753; t96816.s1.value.structure_type24753 = &t96821; /* x174483 stalin.sc:25197:870668 */ t96815.s1.tag = STRUCTURE_TYPE24753; t96815.s1.value.structure_type24753 = &t96816; /* x174484 stalin.sc:25197:870668 */ t96814.s0.tag = STRUCTURE_TYPE24753; t96814.s0.value.structure_type24753 = &t96815; /* x174485 stalin.sc:25197:870668 */ t96814.s1.tag = NULL_TYPE; /* x174486 stalin.sc:25197:870668 */ t96808.s1.tag = STRUCTURE_TYPE24753; t96808.s1.value.structure_type24753 = &t96814; /* x174487 stalin.sc:25197:870668 */ t96807.s1.tag = STRUCTURE_TYPE24753; t96807.s1.value.structure_type24753 = &t96808; /* x174488 stalin.sc:25197:870668 */ t96806.s0.tag = STRUCTURE_TYPE24753; t96806.s0.value.structure_type24753 = &t96807; /* x174489 stalin.sc:25197:870668 */ t96828.s0.tag = EXTERNAL_SYMBOL_TYPE; t96828.s0.value.external_symbol_type = q287; /* x174490 stalin.sc:25197:870668 */ t96828.s1.tag = NULL_TYPE; /* x174491 stalin.sc:25197:870668 */ t96827.s0.tag = STRUCTURE_TYPE24753; t96827.s0.value.structure_type24753 = &t96828; /* x174492 stalin.sc:25197:870668 */ t96827.s1.tag = NULL_TYPE; /* x174493 stalin.sc:25197:870668 */ t96806.s1.tag = STRUCTURE_TYPE24753; t96806.s1.value.structure_type24753 = &t96827; /* x174494 stalin.sc:25197:870668 */ t96805.s1.tag = STRUCTURE_TYPE24753; t96805.s1.value.structure_type24753 = &t96806; /* x174495 stalin.sc:25197:870668 */ t96804.s0.tag = STRUCTURE_TYPE24753; t96804.s0.value.structure_type24753 = &t96805; /* x174496 stalin.sc:25197:870668 */ t96804.s1.tag = NULL_TYPE; /* x174497 stalin.sc:25197:870668 */ t96803.s1.tag = STRUCTURE_TYPE24753; t96803.s1.value.structure_type24753 = &t96804; /* x174498 stalin.sc:25197:870668 */ t96802.s1.tag = STRUCTURE_TYPE24753; t96802.s1.value.structure_type24753 = &t96803; /* x174499 stalin.sc:25197:870668 */ t96801.s1.tag = STRUCTURE_TYPE24753; t96801.s1.value.structure_type24753 = &t96802; /* x174500 stalin.sc:25197:870668 */ t96800.s0.tag = STRUCTURE_TYPE24753; t96800.s0.value.structure_type24753 = &t96801; /* x174501 stalin.sc:25197:870668 */ t96830.s0.tag = EXTERNAL_SYMBOL_TYPE; t96830.s0.value.external_symbol_type = q253; /* x174502 stalin.sc:25197:870668 */ t96831.s0.tag = EXTERNAL_SYMBOL_TYPE; t96831.s0.value.external_symbol_type = q258; /* x174503 stalin.sc:25197:870668 */ t96831.s1.tag = NULL_TYPE; /* x174504 stalin.sc:25197:870668 */ t96830.s1.tag = STRUCTURE_TYPE24753; t96830.s1.value.structure_type24753 = &t96831; /* x174505 stalin.sc:25197:870668 */ t96829.s0.tag = STRUCTURE_TYPE24753; t96829.s0.value.structure_type24753 = &t96830; /* x174506 stalin.sc:25197:870668 */ t96829.s1.tag = NULL_TYPE; /* x174507 stalin.sc:25197:870668 */ t96800.s1.tag = STRUCTURE_TYPE24753; t96800.s1.value.structure_type24753 = &t96829; /* x174508 stalin.sc:25197:870668 */ t96796.s1.tag = STRUCTURE_TYPE24753; t96796.s1.value.structure_type24753 = &t96800; /* x174509 stalin.sc:25197:870668 */ t96795.s0.tag = STRUCTURE_TYPE24753; t96795.s0.value.structure_type24753 = &t96796; /* x174510 stalin.sc:25197:870668 */ t96834.s0.tag = EXTERNAL_SYMBOL_TYPE; t96834.s0.value.external_symbol_type = q263; /* x174511 stalin.sc:25197:870668 */ t96835.s0.tag = EXTERNAL_SYMBOL_TYPE; t96835.s0.value.external_symbol_type = q273; /* x174512 stalin.sc:25197:870668 */ t96836.s0.tag = ((unsigned)((unsigned char)')'))<<2; /* x174513 stalin.sc:25197:870668 */ t96836.s1.tag = NULL_TYPE; /* x174514 stalin.sc:25197:870668 */ t96835.s1.tag = STRUCTURE_TYPE24753; t96835.s1.value.structure_type24753 = &t96836; /* x174515 stalin.sc:25197:870668 */ t96834.s1.tag = STRUCTURE_TYPE24753; t96834.s1.value.structure_type24753 = &t96835; /* x174516 stalin.sc:25197:870668 */ t96833.s0.tag = STRUCTURE_TYPE24753; t96833.s0.value.structure_type24753 = &t96834; /* x174517 stalin.sc:25197:870668 */ t96838.s0.tag = EXTERNAL_SYMBOL_TYPE; t96838.s0.value.external_symbol_type = q43; /* x174518 stalin.sc:25197:870668 */ t96840.s0.tag = EXTERNAL_SYMBOL_TYPE; t96840.s0.value.external_symbol_type = q244; /* x174519 stalin.sc:25197:870668 */ t96842.s0.tag = EXTERNAL_SYMBOL_TYPE; t96842.s0.value.external_symbol_type = q102; /* x174520 stalin.sc:25197:870668 */ t96844.s0.tag = EXTERNAL_SYMBOL_TYPE; t96844.s0.value.external_symbol_type = q104; /* x174521 stalin.sc:25197:870668 */ t96845.s0.tag = EXTERNAL_SYMBOL_TYPE; t96845.s0.value.external_symbol_type = q258; /* x174522 stalin.sc:25197:870668 */ t96847.s0.tag = EXTERNAL_SYMBOL_TYPE; t96847.s0.value.external_symbol_type = q11; /* x174523 stalin.sc:25197:870668 */ t96848.s0.tag = EXTERNAL_SYMBOL_TYPE; t96848.s0.value.external_symbol_type = q1; /* x174524 stalin.sc:25197:870668 */ t96848.s1.tag = NULL_TYPE; /* x174525 stalin.sc:25197:870668 */ t96847.s1.tag = STRUCTURE_TYPE24753; t96847.s1.value.structure_type24753 = &t96848; /* x174526 stalin.sc:25197:870668 */ t96846.s0.tag = STRUCTURE_TYPE24753; t96846.s0.value.structure_type24753 = &t96847; /* x174527 stalin.sc:25197:870668 */ t96846.s1.tag = NULL_TYPE; /* x174528 stalin.sc:25197:870668 */ t96845.s1.tag = STRUCTURE_TYPE24753; t96845.s1.value.structure_type24753 = &t96846; /* x174529 stalin.sc:25197:870668 */ t96844.s1.tag = STRUCTURE_TYPE24753; t96844.s1.value.structure_type24753 = &t96845; /* x174530 stalin.sc:25197:870668 */ t96843.s0.tag = STRUCTURE_TYPE24753; t96843.s0.value.structure_type24753 = &t96844; /* x174531 stalin.sc:25197:870668 */ t96843.s1.tag = NULL_TYPE; /* x174532 stalin.sc:25197:870668 */ t96842.s1.tag = STRUCTURE_TYPE24753; t96842.s1.value.structure_type24753 = &t96843; /* x174533 stalin.sc:25197:870668 */ t96841.s0.tag = STRUCTURE_TYPE24753; t96841.s0.value.structure_type24753 = &t96842; /* x174534 stalin.sc:25197:870668 */ t96850.s0.tag = EXTERNAL_SYMBOL_TYPE; t96850.s0.value.external_symbol_type = q102; /* x174535 stalin.sc:25197:870668 */ t96852.s0.tag = EXTERNAL_SYMBOL_TYPE; t96852.s0.value.external_symbol_type = q104; /* x174536 stalin.sc:25197:870668 */ t96853.s0.tag = EXTERNAL_SYMBOL_TYPE; t96853.s0.value.external_symbol_type = q258; /* x174537 stalin.sc:25197:870668 */ t96855.s0.tag = EXTERNAL_SYMBOL_TYPE; t96855.s0.value.external_symbol_type = q11; /* x174538 stalin.sc:25197:870668 */ t96856.s0.tag = EXTERNAL_SYMBOL_TYPE; t96856.s0.value.external_symbol_type = q6; /* x174539 stalin.sc:25197:870668 */ t96856.s1.tag = NULL_TYPE; /* x174540 stalin.sc:25197:870668 */ t96855.s1.tag = STRUCTURE_TYPE24753; t96855.s1.value.structure_type24753 = &t96856; /* x174541 stalin.sc:25197:870668 */ t96854.s0.tag = STRUCTURE_TYPE24753; t96854.s0.value.structure_type24753 = &t96855; /* x174542 stalin.sc:25197:870668 */ t96854.s1.tag = NULL_TYPE; /* x174543 stalin.sc:25197:870668 */ t96853.s1.tag = STRUCTURE_TYPE24753; t96853.s1.value.structure_type24753 = &t96854; /* x174544 stalin.sc:25197:870668 */ t96852.s1.tag = STRUCTURE_TYPE24753; t96852.s1.value.structure_type24753 = &t96853; /* x174545 stalin.sc:25197:870668 */ t96851.s0.tag = STRUCTURE_TYPE24753; t96851.s0.value.structure_type24753 = &t96852; /* x174546 stalin.sc:25197:870668 */ t96851.s1.tag = NULL_TYPE; /* x174547 stalin.sc:25197:870668 */ t96850.s1.tag = STRUCTURE_TYPE24753; t96850.s1.value.structure_type24753 = &t96851; /* x174548 stalin.sc:25197:870668 */ t96849.s0.tag = STRUCTURE_TYPE24753; t96849.s0.value.structure_type24753 = &t96850; /* x174549 stalin.sc:25197:870668 */ t96858.s0.tag = EXTERNAL_SYMBOL_TYPE; t96858.s0.value.external_symbol_type = q102; /* x174550 stalin.sc:25197:870668 */ t96860.s0.tag = EXTERNAL_SYMBOL_TYPE; t96860.s0.value.external_symbol_type = q104; /* x174551 stalin.sc:25197:870668 */ t96861.s0.tag = EXTERNAL_SYMBOL_TYPE; t96861.s0.value.external_symbol_type = q258; /* x174552 stalin.sc:25197:870668 */ t96863.s0.tag = EXTERNAL_SYMBOL_TYPE; t96863.s0.value.external_symbol_type = q11; /* x174553 stalin.sc:25197:870668 */ t96864.s0.tag = EXTERNAL_SYMBOL_TYPE; t96864.s0.value.external_symbol_type = q0; /* x174554 stalin.sc:25197:870668 */ t96864.s1.tag = NULL_TYPE; /* x174555 stalin.sc:25197:870668 */ t96863.s1.tag = STRUCTURE_TYPE24753; t96863.s1.value.structure_type24753 = &t96864; /* x174556 stalin.sc:25197:870668 */ t96862.s0.tag = STRUCTURE_TYPE24753; t96862.s0.value.structure_type24753 = &t96863; /* x174557 stalin.sc:25197:870668 */ t96862.s1.tag = NULL_TYPE; /* x174558 stalin.sc:25197:870668 */ t96861.s1.tag = STRUCTURE_TYPE24753; t96861.s1.value.structure_type24753 = &t96862; /* x174559 stalin.sc:25197:870668 */ t96860.s1.tag = STRUCTURE_TYPE24753; t96860.s1.value.structure_type24753 = &t96861; /* x174560 stalin.sc:25197:870668 */ t96859.s0.tag = STRUCTURE_TYPE24753; t96859.s0.value.structure_type24753 = &t96860; /* x174561 stalin.sc:25197:870668 */ t96859.s1.tag = NULL_TYPE; /* x174562 stalin.sc:25197:870668 */ t96858.s1.tag = STRUCTURE_TYPE24753; t96858.s1.value.structure_type24753 = &t96859; /* x174563 stalin.sc:25197:870668 */ t96857.s0.tag = STRUCTURE_TYPE24753; t96857.s0.value.structure_type24753 = &t96858; /* x174564 stalin.sc:25197:870668 */ t96857.s1.tag = NULL_TYPE; /* x174565 stalin.sc:25197:870668 */ t96849.s1.tag = STRUCTURE_TYPE24753; t96849.s1.value.structure_type24753 = &t96857; /* x174566 stalin.sc:25197:870668 */ t96841.s1.tag = STRUCTURE_TYPE24753; t96841.s1.value.structure_type24753 = &t96849; /* x174567 stalin.sc:25197:870668 */ t96840.s1.tag = STRUCTURE_TYPE24753; t96840.s1.value.structure_type24753 = &t96841; /* x174568 stalin.sc:25197:870668 */ t96839.s0.tag = STRUCTURE_TYPE24753; t96839.s0.value.structure_type24753 = &t96840; /* x174569 stalin.sc:25197:870668 */ t96866.s0.tag = EXTERNAL_SYMBOL_TYPE; t96866.s0.value.external_symbol_type = q179; /* x174570 stalin.sc:25197:870668 */ t96867.s0.tag = STRING_TYPE; t96867.s0.value.string_type = "Mismatched closing parenthesis"; /* x174571 stalin.sc:25197:870668 */ t96867.s1.tag = NULL_TYPE; /* x174572 stalin.sc:25197:870668 */ t96866.s1.tag = STRUCTURE_TYPE24753; t96866.s1.value.structure_type24753 = &t96867; /* x174573 stalin.sc:25197:870668 */ t96865.s0.tag = STRUCTURE_TYPE24753; t96865.s0.value.structure_type24753 = &t96866; /* x174574 stalin.sc:25197:870668 */ t96865.s1.tag = NULL_TYPE; /* x174575 stalin.sc:25197:870668 */ t96839.s1.tag = STRUCTURE_TYPE24753; t96839.s1.value.structure_type24753 = &t96865; /* x174576 stalin.sc:25197:870668 */ t96838.s1.tag = STRUCTURE_TYPE24753; t96838.s1.value.structure_type24753 = &t96839; /* x174577 stalin.sc:25197:870668 */ t96837.s0.tag = STRUCTURE_TYPE24753; t96837.s0.value.structure_type24753 = &t96838; /* x174578 stalin.sc:25197:870668 */ t96868.s0.tag = EXTERNAL_SYMBOL_TYPE; t96868.s0.value.external_symbol_type = q0; /* x174579 stalin.sc:25197:870668 */ t96868.s1.tag = NULL_TYPE; /* x174580 stalin.sc:25197:870668 */ t96837.s1.tag = STRUCTURE_TYPE24753; t96837.s1.value.structure_type24753 = &t96868; /* x174581 stalin.sc:25197:870668 */ t96833.s1.tag = STRUCTURE_TYPE24753; t96833.s1.value.structure_type24753 = &t96837; /* x174582 stalin.sc:25197:870668 */ t96832.s0.tag = STRUCTURE_TYPE24753; t96832.s0.value.structure_type24753 = &t96833; /* x174583 stalin.sc:25197:870668 */ t96871.s0.tag = EXTERNAL_SYMBOL_TYPE; t96871.s0.value.external_symbol_type = q293; /* x174584 stalin.sc:25197:870668 */ t96872.s0.tag = EXTERNAL_SYMBOL_TYPE; t96872.s0.value.external_symbol_type = q273; /* x174585 stalin.sc:25197:870668 */ t96872.s1.tag = NULL_TYPE; /* x174586 stalin.sc:25197:870668 */ t96871.s1.tag = STRUCTURE_TYPE24753; t96871.s1.value.structure_type24753 = &t96872; /* x174587 stalin.sc:25197:870668 */ t96870.s0.tag = STRUCTURE_TYPE24753; t96870.s0.value.structure_type24753 = &t96871; /* x174588 stalin.sc:25197:870668 */ t96874.s0.tag = EXTERNAL_SYMBOL_TYPE; t96874.s0.value.external_symbol_type = q253; /* x174589 stalin.sc:25197:870668 */ t96875.s0.tag = EXTERNAL_SYMBOL_TYPE; t96875.s0.value.external_symbol_type = q258; /* x174590 stalin.sc:25197:870668 */ t96875.s1.tag = NULL_TYPE; /* x174591 stalin.sc:25197:870668 */ t96874.s1.tag = STRUCTURE_TYPE24753; t96874.s1.value.structure_type24753 = &t96875; /* x174592 stalin.sc:25197:870668 */ t96873.s0.tag = STRUCTURE_TYPE24753; t96873.s0.value.structure_type24753 = &t96874; /* x174593 stalin.sc:25197:870668 */ t96873.s1.tag = NULL_TYPE; /* x174594 stalin.sc:25197:870668 */ t96870.s1.tag = STRUCTURE_TYPE24753; t96870.s1.value.structure_type24753 = &t96873; /* x174595 stalin.sc:25197:870668 */ t96869.s0.tag = STRUCTURE_TYPE24753; t96869.s0.value.structure_type24753 = &t96870; /* x174596 stalin.sc:25197:870668 */ t96878.s0.tag = EXTERNAL_SYMBOL_TYPE; t96878.s0.value.external_symbol_type = q104; /* x174597 stalin.sc:25197:870668 */ t96879.s0.tag = EXTERNAL_SYMBOL_TYPE; t96879.s0.value.external_symbol_type = q258; /* x174598 stalin.sc:25197:870668 */ t96881.s0.tag = EXTERNAL_SYMBOL_TYPE; t96881.s0.value.external_symbol_type = q11; /* x174599 stalin.sc:25197:870668 */ t96882.s0.tag = EXTERNAL_SYMBOL_TYPE; t96882.s0.value.external_symbol_type = q0; /* x174600 stalin.sc:25197:870668 */ t96882.s1.tag = NULL_TYPE; /* x174601 stalin.sc:25197:870668 */ t96881.s1.tag = STRUCTURE_TYPE24753; t96881.s1.value.structure_type24753 = &t96882; /* x174602 stalin.sc:25197:870668 */ t96880.s0.tag = STRUCTURE_TYPE24753; t96880.s0.value.structure_type24753 = &t96881; /* x174603 stalin.sc:25197:870668 */ t96880.s1.tag = NULL_TYPE; /* x174604 stalin.sc:25197:870668 */ t96879.s1.tag = STRUCTURE_TYPE24753; t96879.s1.value.structure_type24753 = &t96880; /* x174605 stalin.sc:25197:870668 */ t96878.s1.tag = STRUCTURE_TYPE24753; t96878.s1.value.structure_type24753 = &t96879; /* x174606 stalin.sc:25197:870668 */ t96877.s0.tag = STRUCTURE_TYPE24753; t96877.s0.value.structure_type24753 = &t96878; /* x174607 stalin.sc:25197:870668 */ t96884.s0.tag = EXTERNAL_SYMBOL_TYPE; t96884.s0.value.external_symbol_type = q179; /* x174608 stalin.sc:25197:870668 */ t96885.s0.tag = STRING_TYPE; t96885.s0.value.string_type = "Only one object allowed after dot"; /* x174609 stalin.sc:25197:870668 */ t96885.s1.tag = NULL_TYPE; /* x174610 stalin.sc:25197:870668 */ t96884.s1.tag = STRUCTURE_TYPE24753; t96884.s1.value.structure_type24753 = &t96885; /* x174611 stalin.sc:25197:870668 */ t96883.s0.tag = STRUCTURE_TYPE24753; t96883.s0.value.structure_type24753 = &t96884; /* x174612 stalin.sc:25197:870668 */ t96883.s1.tag = NULL_TYPE; /* x174613 stalin.sc:25197:870668 */ t96877.s1.tag = STRUCTURE_TYPE24753; t96877.s1.value.structure_type24753 = &t96883; /* x174614 stalin.sc:25197:870668 */ t96876.s0.tag = STRUCTURE_TYPE24753; t96876.s0.value.structure_type24753 = &t96877; /* x174615 stalin.sc:25197:870668 */ t96888.s0.tag = EXTERNAL_SYMBOL_TYPE; t96888.s0.value.external_symbol_type = q263; /* x174616 stalin.sc:25197:870668 */ t96889.s0.tag = EXTERNAL_SYMBOL_TYPE; t96889.s0.value.external_symbol_type = q273; /* x174617 stalin.sc:25197:870668 */ t96890.s0.tag = ((unsigned)((unsigned char)'\''))<<2; /* x174618 stalin.sc:25197:870668 */ t96890.s1.tag = NULL_TYPE; /* x174619 stalin.sc:25197:870668 */ t96889.s1.tag = STRUCTURE_TYPE24753; t96889.s1.value.structure_type24753 = &t96890; /* x174620 stalin.sc:25197:870668 */ t96888.s1.tag = STRUCTURE_TYPE24753; t96888.s1.value.structure_type24753 = &t96889; /* x174621 stalin.sc:25197:870668 */ t96887.s0.tag = STRUCTURE_TYPE24753; t96887.s0.value.structure_type24753 = &t96888; /* x174622 stalin.sc:25197:870668 */ t96892.s0.tag = EXTERNAL_SYMBOL_TYPE; t96892.s0.value.external_symbol_type = q1; /* x174623 stalin.sc:25197:870668 */ t96894.s0.tag = EXTERNAL_SYMBOL_TYPE; t96894.s0.value.external_symbol_type = q11; /* x174624 stalin.sc:25197:870668 */ t96895.s0.tag = EXTERNAL_SYMBOL_TYPE; t96895.s0.value.external_symbol_type = q11; /* x174625 stalin.sc:25197:870668 */ t96895.s1.tag = NULL_TYPE; /* x174626 stalin.sc:25197:870668 */ t96894.s1.tag = STRUCTURE_TYPE24753; t96894.s1.value.structure_type24753 = &t96895; /* x174627 stalin.sc:25197:870668 */ t96893.s0.tag = STRUCTURE_TYPE24753; t96893.s0.value.structure_type24753 = &t96894; /* x174628 stalin.sc:25197:870668 */ t96897.s0.tag = EXTERNAL_SYMBOL_TYPE; t96897.s0.value.external_symbol_type = q253; /* x174629 stalin.sc:25197:870668 */ t96899.s0.tag = EXTERNAL_SYMBOL_TYPE; t96899.s0.value.external_symbol_type = q11; /* x174630 stalin.sc:25197:870668 */ t96900.s0.tag = EXTERNAL_SYMBOL_TYPE; t96900.s0.value.external_symbol_type = q11; /* x174631 stalin.sc:25197:870668 */ t96900.s1.tag = NULL_TYPE; /* x174632 stalin.sc:25197:870668 */ t96899.s1.tag = STRUCTURE_TYPE24753; t96899.s1.value.structure_type24753 = &t96900; /* x174633 stalin.sc:25197:870668 */ t96898.s0.tag = STRUCTURE_TYPE24753; t96898.s0.value.structure_type24753 = &t96899; /* x174634 stalin.sc:25197:870668 */ t96898.s1.tag = NULL_TYPE; /* x174635 stalin.sc:25197:870668 */ t96897.s1.tag = STRUCTURE_TYPE24753; t96897.s1.value.structure_type24753 = &t96898; /* x174636 stalin.sc:25197:870668 */ t96896.s0.tag = STRUCTURE_TYPE24753; t96896.s0.value.structure_type24753 = &t96897; /* x174637 stalin.sc:25197:870668 */ t96896.s1.tag = NULL_TYPE; /* x174638 stalin.sc:25197:870668 */ t96893.s1.tag = STRUCTURE_TYPE24753; t96893.s1.value.structure_type24753 = &t96896; /* x174639 stalin.sc:25197:870668 */ t96892.s1.tag = STRUCTURE_TYPE24753; t96892.s1.value.structure_type24753 = &t96893; /* x174640 stalin.sc:25197:870668 */ t96891.s0.tag = STRUCTURE_TYPE24753; t96891.s0.value.structure_type24753 = &t96892; /* x174641 stalin.sc:25197:870668 */ t96891.s1.tag = NULL_TYPE; /* x174642 stalin.sc:25197:870668 */ t96887.s1.tag = STRUCTURE_TYPE24753; t96887.s1.value.structure_type24753 = &t96891; /* x174643 stalin.sc:25197:870668 */ t96886.s0.tag = STRUCTURE_TYPE24753; t96886.s0.value.structure_type24753 = &t96887; /* x174644 stalin.sc:25197:870668 */ t96903.s0.tag = EXTERNAL_SYMBOL_TYPE; t96903.s0.value.external_symbol_type = q263; /* x174645 stalin.sc:25197:870668 */ t96904.s0.tag = EXTERNAL_SYMBOL_TYPE; t96904.s0.value.external_symbol_type = q273; /* x174646 stalin.sc:25197:870668 */ t96905.s0.tag = ((unsigned)((unsigned char)'`'))<<2; /* x174647 stalin.sc:25197:870668 */ t96905.s1.tag = NULL_TYPE; /* x174648 stalin.sc:25197:870668 */ t96904.s1.tag = STRUCTURE_TYPE24753; t96904.s1.value.structure_type24753 = &t96905; /* x174649 stalin.sc:25197:870668 */ t96903.s1.tag = STRUCTURE_TYPE24753; t96903.s1.value.structure_type24753 = &t96904; /* x174650 stalin.sc:25197:870668 */ t96902.s0.tag = STRUCTURE_TYPE24753; t96902.s0.value.structure_type24753 = &t96903; /* x174651 stalin.sc:25197:870668 */ t96907.s0.tag = EXTERNAL_SYMBOL_TYPE; t96907.s0.value.external_symbol_type = q1; /* x174652 stalin.sc:25197:870668 */ t96909.s0.tag = EXTERNAL_SYMBOL_TYPE; t96909.s0.value.external_symbol_type = q11; /* x174653 stalin.sc:25197:870668 */ t96910.s0.tag = EXTERNAL_SYMBOL_TYPE; t96910.s0.value.external_symbol_type = q10; /* x174654 stalin.sc:25197:870668 */ t96910.s1.tag = NULL_TYPE; /* x174655 stalin.sc:25197:870668 */ t96909.s1.tag = STRUCTURE_TYPE24753; t96909.s1.value.structure_type24753 = &t96910; /* x174656 stalin.sc:25197:870668 */ t96908.s0.tag = STRUCTURE_TYPE24753; t96908.s0.value.structure_type24753 = &t96909; /* x174657 stalin.sc:25197:870668 */ t96912.s0.tag = EXTERNAL_SYMBOL_TYPE; t96912.s0.value.external_symbol_type = q253; /* x174658 stalin.sc:25197:870668 */ t96914.s0.tag = EXTERNAL_SYMBOL_TYPE; t96914.s0.value.external_symbol_type = q11; /* x174659 stalin.sc:25197:870668 */ t96915.s0.tag = EXTERNAL_SYMBOL_TYPE; t96915.s0.value.external_symbol_type = q10; /* x174660 stalin.sc:25197:870668 */ t96915.s1.tag = NULL_TYPE; /* x174661 stalin.sc:25197:870668 */ t96914.s1.tag = STRUCTURE_TYPE24753; t96914.s1.value.structure_type24753 = &t96915; /* x174662 stalin.sc:25197:870668 */ t96913.s0.tag = STRUCTURE_TYPE24753; t96913.s0.value.structure_type24753 = &t96914; /* x174663 stalin.sc:25197:870668 */ t96913.s1.tag = NULL_TYPE; /* x174664 stalin.sc:25197:870668 */ t96912.s1.tag = STRUCTURE_TYPE24753; t96912.s1.value.structure_type24753 = &t96913; /* x174665 stalin.sc:25197:870668 */ t96911.s0.tag = STRUCTURE_TYPE24753; t96911.s0.value.structure_type24753 = &t96912; /* x174666 stalin.sc:25197:870668 */ t96911.s1.tag = NULL_TYPE; /* x174667 stalin.sc:25197:870668 */ t96908.s1.tag = STRUCTURE_TYPE24753; t96908.s1.value.structure_type24753 = &t96911; /* x174668 stalin.sc:25197:870668 */ t96907.s1.tag = STRUCTURE_TYPE24753; t96907.s1.value.structure_type24753 = &t96908; /* x174669 stalin.sc:25197:870668 */ t96906.s0.tag = STRUCTURE_TYPE24753; t96906.s0.value.structure_type24753 = &t96907; /* x174670 stalin.sc:25197:870668 */ t96906.s1.tag = NULL_TYPE; /* x174671 stalin.sc:25197:870668 */ t96902.s1.tag = STRUCTURE_TYPE24753; t96902.s1.value.structure_type24753 = &t96906; /* x174672 stalin.sc:25197:870668 */ t96901.s0.tag = STRUCTURE_TYPE24753; t96901.s0.value.structure_type24753 = &t96902; /* x174673 stalin.sc:25197:870668 */ t96918.s0.tag = EXTERNAL_SYMBOL_TYPE; t96918.s0.value.external_symbol_type = q263; /* x174674 stalin.sc:25197:870668 */ t96919.s0.tag = EXTERNAL_SYMBOL_TYPE; t96919.s0.value.external_symbol_type = q273; /* x174675 stalin.sc:25197:870668 */ t96920.s0.tag = ((unsigned)((unsigned char)','))<<2; /* x174676 stalin.sc:25197:870668 */ t96920.s1.tag = NULL_TYPE; /* x174677 stalin.sc:25197:870668 */ t96919.s1.tag = STRUCTURE_TYPE24753; t96919.s1.value.structure_type24753 = &t96920; /* x174678 stalin.sc:25197:870668 */ t96918.s1.tag = STRUCTURE_TYPE24753; t96918.s1.value.structure_type24753 = &t96919; /* x174679 stalin.sc:25197:870668 */ t96917.s0.tag = STRUCTURE_TYPE24753; t96917.s0.value.structure_type24753 = &t96918; /* x174680 stalin.sc:25197:870668 */ t96922.s0.tag = EXTERNAL_SYMBOL_TYPE; t96922.s0.value.external_symbol_type = q242; /* x174681 stalin.sc:25197:870668 */ t96925.s0.tag = EXTERNAL_SYMBOL_TYPE; t96925.s0.value.external_symbol_type = q274; /* x174682 stalin.sc:25197:870668 */ t96927.s0.tag = EXTERNAL_SYMBOL_TYPE; t96927.s0.value.external_symbol_type = q262; /* x174683 stalin.sc:25197:870668 */ t96928.s0.tag = EXTERNAL_SYMBOL_TYPE; t96928.s0.value.external_symbol_type = q254; /* x174684 stalin.sc:25197:870668 */ t96928.s1.tag = NULL_TYPE; /* x174685 stalin.sc:25197:870668 */ t96927.s1.tag = STRUCTURE_TYPE24753; t96927.s1.value.structure_type24753 = &t96928; /* x174686 stalin.sc:25197:870668 */ t96926.s0.tag = STRUCTURE_TYPE24753; t96926.s0.value.structure_type24753 = &t96927; /* x174687 stalin.sc:25197:870668 */ t96926.s1.tag = NULL_TYPE; /* x174688 stalin.sc:25197:870668 */ t96925.s1.tag = STRUCTURE_TYPE24753; t96925.s1.value.structure_type24753 = &t96926; /* x174689 stalin.sc:25197:870668 */ t96924.s0.tag = STRUCTURE_TYPE24753; t96924.s0.value.structure_type24753 = &t96925; /* x174690 stalin.sc:25197:870668 */ t96924.s1.tag = NULL_TYPE; /* x174691 stalin.sc:25197:870668 */ t96923.s0.tag = STRUCTURE_TYPE24753; t96923.s0.value.structure_type24753 = &t96924; /* x174692 stalin.sc:25197:870668 */ t96930.s0.tag = EXTERNAL_SYMBOL_TYPE; t96930.s0.value.external_symbol_type = q43; /* x174693 stalin.sc:25197:870668 */ t96932.s0.tag = EXTERNAL_SYMBOL_TYPE; t96932.s0.value.external_symbol_type = q178; /* x174694 stalin.sc:25197:870668 */ t96933.s0.tag = EXTERNAL_SYMBOL_TYPE; t96933.s0.value.external_symbol_type = q274; /* x174695 stalin.sc:25197:870668 */ t96933.s1.tag = NULL_TYPE; /* x174696 stalin.sc:25197:870668 */ t96932.s1.tag = STRUCTURE_TYPE24753; t96932.s1.value.structure_type24753 = &t96933; /* x174697 stalin.sc:25197:870668 */ t96931.s0.tag = STRUCTURE_TYPE24753; t96931.s0.value.structure_type24753 = &t96932; /* x174698 stalin.sc:25197:870668 */ t96935.s0.tag = EXTERNAL_SYMBOL_TYPE; t96935.s0.value.external_symbol_type = q179; /* x174699 stalin.sc:25197:870668 */ t96936.s0.tag = STRING_TYPE; t96936.s0.value.string_type = "EOF after dot"; /* x174700 stalin.sc:25197:870668 */ t96936.s1.tag = NULL_TYPE; /* x174701 stalin.sc:25197:870668 */ t96935.s1.tag = STRUCTURE_TYPE24753; t96935.s1.value.structure_type24753 = &t96936; /* x174702 stalin.sc:25197:870668 */ t96934.s0.tag = STRUCTURE_TYPE24753; t96934.s0.value.structure_type24753 = &t96935; /* x174703 stalin.sc:25197:870668 */ t96934.s1.tag = NULL_TYPE; /* x174704 stalin.sc:25197:870668 */ t96931.s1.tag = STRUCTURE_TYPE24753; t96931.s1.value.structure_type24753 = &t96934; /* x174705 stalin.sc:25197:870668 */ t96930.s1.tag = STRUCTURE_TYPE24753; t96930.s1.value.structure_type24753 = &t96931; /* x174706 stalin.sc:25197:870668 */ t96929.s0.tag = STRUCTURE_TYPE24753; t96929.s0.value.structure_type24753 = &t96930; /* x174707 stalin.sc:25197:870668 */ t96938.s0.tag = EXTERNAL_SYMBOL_TYPE; t96938.s0.value.external_symbol_type = q240; /* x174708 stalin.sc:25197:870668 */ t96941.s0.tag = EXTERNAL_SYMBOL_TYPE; t96941.s0.value.external_symbol_type = q263; /* x174709 stalin.sc:25197:870668 */ t96942.s0.tag = EXTERNAL_SYMBOL_TYPE; t96942.s0.value.external_symbol_type = q274; /* x174710 stalin.sc:25197:870668 */ t96943.s0.tag = ((unsigned)((unsigned char)'@'))<<2; /* x174711 stalin.sc:25197:870668 */ t96943.s1.tag = NULL_TYPE; /* x174712 stalin.sc:25197:870668 */ t96942.s1.tag = STRUCTURE_TYPE24753; t96942.s1.value.structure_type24753 = &t96943; /* x174713 stalin.sc:25197:870668 */ t96941.s1.tag = STRUCTURE_TYPE24753; t96941.s1.value.structure_type24753 = &t96942; /* x174714 stalin.sc:25197:870668 */ t96940.s0.tag = STRUCTURE_TYPE24753; t96940.s0.value.structure_type24753 = &t96941; /* x174715 stalin.sc:25197:870668 */ t96945.s0.tag = EXTERNAL_SYMBOL_TYPE; t96945.s0.value.external_symbol_type = q264; /* x174716 stalin.sc:25197:870668 */ t96946.s0.tag = EXTERNAL_SYMBOL_TYPE; t96946.s0.value.external_symbol_type = q254; /* x174717 stalin.sc:25197:870668 */ t96946.s1.tag = NULL_TYPE; /* x174718 stalin.sc:25197:870668 */ t96945.s1.tag = STRUCTURE_TYPE24753; t96945.s1.value.structure_type24753 = &t96946; /* x174719 stalin.sc:25197:870668 */ t96944.s0.tag = STRUCTURE_TYPE24753; t96944.s0.value.structure_type24753 = &t96945; /* x174720 stalin.sc:25197:870668 */ t96948.s0.tag = EXTERNAL_SYMBOL_TYPE; t96948.s0.value.external_symbol_type = q1; /* x174721 stalin.sc:25197:870668 */ t96950.s0.tag = EXTERNAL_SYMBOL_TYPE; t96950.s0.value.external_symbol_type = q11; /* x174722 stalin.sc:25197:870668 */ t96951.s0.tag = EXTERNAL_SYMBOL_TYPE; t96951.s0.value.external_symbol_type = q9; /* x174723 stalin.sc:25197:870668 */ t96951.s1.tag = NULL_TYPE; /* x174724 stalin.sc:25197:870668 */ t96950.s1.tag = STRUCTURE_TYPE24753; t96950.s1.value.structure_type24753 = &t96951; /* x174725 stalin.sc:25197:870668 */ t96949.s0.tag = STRUCTURE_TYPE24753; t96949.s0.value.structure_type24753 = &t96950; /* x174726 stalin.sc:25197:870668 */ t96953.s0.tag = EXTERNAL_SYMBOL_TYPE; t96953.s0.value.external_symbol_type = q253; /* x174727 stalin.sc:25197:870668 */ t96955.s0.tag = EXTERNAL_SYMBOL_TYPE; t96955.s0.value.external_symbol_type = q11; /* x174728 stalin.sc:25197:870668 */ t96956.s0.tag = EXTERNAL_SYMBOL_TYPE; t96956.s0.value.external_symbol_type = q9; /* x174729 stalin.sc:25197:870668 */ t96956.s1.tag = NULL_TYPE; /* x174730 stalin.sc:25197:870668 */ t96955.s1.tag = STRUCTURE_TYPE24753; t96955.s1.value.structure_type24753 = &t96956; /* x174731 stalin.sc:25197:870668 */ t96954.s0.tag = STRUCTURE_TYPE24753; t96954.s0.value.structure_type24753 = &t96955; /* x174732 stalin.sc:25197:870668 */ t96954.s1.tag = NULL_TYPE; /* x174733 stalin.sc:25197:870668 */ t96953.s1.tag = STRUCTURE_TYPE24753; t96953.s1.value.structure_type24753 = &t96954; /* x174734 stalin.sc:25197:870668 */ t96952.s0.tag = STRUCTURE_TYPE24753; t96952.s0.value.structure_type24753 = &t96953; /* x174735 stalin.sc:25197:870668 */ t96952.s1.tag = NULL_TYPE; /* x174736 stalin.sc:25197:870668 */ t96949.s1.tag = STRUCTURE_TYPE24753; t96949.s1.value.structure_type24753 = &t96952; /* x174737 stalin.sc:25197:870668 */ t96948.s1.tag = STRUCTURE_TYPE24753; t96948.s1.value.structure_type24753 = &t96949; /* x174738 stalin.sc:25197:870668 */ t96947.s0.tag = STRUCTURE_TYPE24753; t96947.s0.value.structure_type24753 = &t96948; /* x174739 stalin.sc:25197:870668 */ t96947.s1.tag = NULL_TYPE; /* x174740 stalin.sc:25197:870668 */ t96944.s1.tag = STRUCTURE_TYPE24753; t96944.s1.value.structure_type24753 = &t96947; /* x174741 stalin.sc:25197:870668 */ t96940.s1.tag = STRUCTURE_TYPE24753; t96940.s1.value.structure_type24753 = &t96944; /* x174742 stalin.sc:25197:870668 */ t96939.s0.tag = STRUCTURE_TYPE24753; t96939.s0.value.structure_type24753 = &t96940; /* x174743 stalin.sc:25197:870668 */ t96958.s0.tag = EXTERNAL_SYMBOL_TYPE; t96958.s0.value.external_symbol_type = q95; /* x174744 stalin.sc:25197:870668 */ t96960.s0.tag = EXTERNAL_SYMBOL_TYPE; t96960.s0.value.external_symbol_type = q1; /* x174745 stalin.sc:25197:870668 */ t96962.s0.tag = EXTERNAL_SYMBOL_TYPE; t96962.s0.value.external_symbol_type = q11; /* x174746 stalin.sc:25197:870668 */ t96963.s0.tag = EXTERNAL_SYMBOL_TYPE; t96963.s0.value.external_symbol_type = q8; /* x174747 stalin.sc:25197:870668 */ t96963.s1.tag = NULL_TYPE; /* x174748 stalin.sc:25197:870668 */ t96962.s1.tag = STRUCTURE_TYPE24753; t96962.s1.value.structure_type24753 = &t96963; /* x174749 stalin.sc:25197:870668 */ t96961.s0.tag = STRUCTURE_TYPE24753; t96961.s0.value.structure_type24753 = &t96962; /* x174750 stalin.sc:25197:870668 */ t96965.s0.tag = EXTERNAL_SYMBOL_TYPE; t96965.s0.value.external_symbol_type = q253; /* x174751 stalin.sc:25197:870668 */ t96967.s0.tag = EXTERNAL_SYMBOL_TYPE; t96967.s0.value.external_symbol_type = q11; /* x174752 stalin.sc:25197:870668 */ t96968.s0.tag = EXTERNAL_SYMBOL_TYPE; t96968.s0.value.external_symbol_type = q8; /* x174753 stalin.sc:25197:870668 */ t96968.s1.tag = NULL_TYPE; /* x174754 stalin.sc:25197:870668 */ t96967.s1.tag = STRUCTURE_TYPE24753; t96967.s1.value.structure_type24753 = &t96968; /* x174755 stalin.sc:25197:870668 */ t96966.s0.tag = STRUCTURE_TYPE24753; t96966.s0.value.structure_type24753 = &t96967; /* x174756 stalin.sc:25197:870668 */ t96966.s1.tag = NULL_TYPE; /* x174757 stalin.sc:25197:870668 */ t96965.s1.tag = STRUCTURE_TYPE24753; t96965.s1.value.structure_type24753 = &t96966; /* x174758 stalin.sc:25197:870668 */ t96964.s0.tag = STRUCTURE_TYPE24753; t96964.s0.value.structure_type24753 = &t96965; /* x174759 stalin.sc:25197:870668 */ t96964.s1.tag = NULL_TYPE; /* x174760 stalin.sc:25197:870668 */ t96961.s1.tag = STRUCTURE_TYPE24753; t96961.s1.value.structure_type24753 = &t96964; /* x174761 stalin.sc:25197:870668 */ t96960.s1.tag = STRUCTURE_TYPE24753; t96960.s1.value.structure_type24753 = &t96961; /* x174762 stalin.sc:25197:870668 */ t96959.s0.tag = STRUCTURE_TYPE24753; t96959.s0.value.structure_type24753 = &t96960; /* x174763 stalin.sc:25197:870668 */ t96959.s1.tag = NULL_TYPE; /* x174764 stalin.sc:25197:870668 */ t96958.s1.tag = STRUCTURE_TYPE24753; t96958.s1.value.structure_type24753 = &t96959; /* x174765 stalin.sc:25197:870668 */ t96957.s0.tag = STRUCTURE_TYPE24753; t96957.s0.value.structure_type24753 = &t96958; /* x174766 stalin.sc:25197:870668 */ t96957.s1.tag = NULL_TYPE; /* x174767 stalin.sc:25197:870668 */ t96939.s1.tag = STRUCTURE_TYPE24753; t96939.s1.value.structure_type24753 = &t96957; /* x174768 stalin.sc:25197:870668 */ t96938.s1.tag = STRUCTURE_TYPE24753; t96938.s1.value.structure_type24753 = &t96939; /* x174769 stalin.sc:25197:870668 */ t96937.s0.tag = STRUCTURE_TYPE24753; t96937.s0.value.structure_type24753 = &t96938; /* x174770 stalin.sc:25197:870668 */ t96937.s1.tag = NULL_TYPE; /* x174771 stalin.sc:25197:870668 */ t96929.s1.tag = STRUCTURE_TYPE24753; t96929.s1.value.structure_type24753 = &t96937; /* x174772 stalin.sc:25197:870668 */ t96923.s1.tag = STRUCTURE_TYPE24753; t96923.s1.value.structure_type24753 = &t96929; /* x174773 stalin.sc:25197:870668 */ t96922.s1.tag = STRUCTURE_TYPE24753; t96922.s1.value.structure_type24753 = &t96923; /* x174774 stalin.sc:25197:870668 */ t96921.s0.tag = STRUCTURE_TYPE24753; t96921.s0.value.structure_type24753 = &t96922; /* x174775 stalin.sc:25197:870668 */ t96921.s1.tag = NULL_TYPE; /* x174776 stalin.sc:25197:870668 */ t96917.s1.tag = STRUCTURE_TYPE24753; t96917.s1.value.structure_type24753 = &t96921; /* x174777 stalin.sc:25197:870668 */ t96916.s0.tag = STRUCTURE_TYPE24753; t96916.s0.value.structure_type24753 = &t96917; /* x174778 stalin.sc:25197:870668 */ t96971.s0.tag = EXTERNAL_SYMBOL_TYPE; t96971.s0.value.external_symbol_type = q263; /* x174779 stalin.sc:25197:870668 */ t96972.s0.tag = EXTERNAL_SYMBOL_TYPE; t96972.s0.value.external_symbol_type = q273; /* x174780 stalin.sc:25197:870668 */ t96973.s0.tag = ((unsigned)((unsigned char)'('))<<2; /* x174781 stalin.sc:25197:870668 */ t96973.s1.tag = NULL_TYPE; /* x174782 stalin.sc:25197:870668 */ t96972.s1.tag = STRUCTURE_TYPE24753; t96972.s1.value.structure_type24753 = &t96973; /* x174783 stalin.sc:25197:870668 */ t96971.s1.tag = STRUCTURE_TYPE24753; t96971.s1.value.structure_type24753 = &t96972; /* x174784 stalin.sc:25197:870668 */ t96970.s0.tag = STRUCTURE_TYPE24753; t96970.s0.value.structure_type24753 = &t96971; /* x174785 stalin.sc:25197:870668 */ t96975.s0.tag = EXTERNAL_SYMBOL_TYPE; t96975.s0.value.external_symbol_type = q242; /* x174786 stalin.sc:25197:870668 */ t96976.s0.tag = EXTERNAL_SYMBOL_TYPE; t96976.s0.value.external_symbol_type = q287; /* x174787 stalin.sc:25197:870668 */ t96979.s0.tag = EXTERNAL_SYMBOL_TYPE; t96979.s0.value.external_symbol_type = q281; /* x174788 stalin.sc:25197:870668 */ t96981.s0.tag = EXTERNAL_SYMBOL_TYPE; t96981.s0.value.external_symbol_type = q11; /* x174789 stalin.sc:25197:870668 */ t96982.s0.tag = NULL_TYPE; /* x174790 stalin.sc:25197:870668 */ t96982.s1.tag = NULL_TYPE; /* x174791 stalin.sc:25197:870668 */ t96981.s1.tag = STRUCTURE_TYPE24753; t96981.s1.value.structure_type24753 = &t96982; /* x174792 stalin.sc:25197:870668 */ t96980.s0.tag = STRUCTURE_TYPE24753; t96980.s0.value.structure_type24753 = &t96981; /* x174793 stalin.sc:25197:870668 */ t96980.s1.tag = NULL_TYPE; /* x174794 stalin.sc:25197:870668 */ t96979.s1.tag = STRUCTURE_TYPE24753; t96979.s1.value.structure_type24753 = &t96980; /* x174795 stalin.sc:25197:870668 */ t96978.s0.tag = STRUCTURE_TYPE24753; t96978.s0.value.structure_type24753 = &t96979; /* x174796 stalin.sc:25197:870668 */ t96978.s1.tag = NULL_TYPE; /* x174797 stalin.sc:25197:870668 */ t96977.s0.tag = STRUCTURE_TYPE24753; t96977.s0.value.structure_type24753 = &t96978; /* x174798 stalin.sc:25197:870668 */ t96984.s0.tag = EXTERNAL_SYMBOL_TYPE; t96984.s0.value.external_symbol_type = q242; /* x174799 stalin.sc:25197:870668 */ t96987.s0.tag = EXTERNAL_SYMBOL_TYPE; t96987.s0.value.external_symbol_type = q294; /* x174800 stalin.sc:25197:870668 */ t96989.s0.tag = EXTERNAL_SYMBOL_TYPE; t96989.s0.value.external_symbol_type = q253; /* x174801 stalin.sc:25197:870668 */ t96991.s0.tag = EXTERNAL_SYMBOL_TYPE; t96991.s0.value.external_symbol_type = q11; /* x174802 stalin.sc:25197:870668 */ t96992.s0.tag = EXTERNAL_SYMBOL_TYPE; t96992.s0.value.external_symbol_type = q1; /* x174803 stalin.sc:25197:870668 */ t96992.s1.tag = NULL_TYPE; /* x174804 stalin.sc:25197:870668 */ t96991.s1.tag = STRUCTURE_TYPE24753; t96991.s1.value.structure_type24753 = &t96992; /* x174805 stalin.sc:25197:870668 */ t96990.s0.tag = STRUCTURE_TYPE24753; t96990.s0.value.structure_type24753 = &t96991; /* x174806 stalin.sc:25197:870668 */ t96990.s1.tag = NULL_TYPE; /* x174807 stalin.sc:25197:870668 */ t96989.s1.tag = STRUCTURE_TYPE24753; t96989.s1.value.structure_type24753 = &t96990; /* x174808 stalin.sc:25197:870668 */ t96988.s0.tag = STRUCTURE_TYPE24753; t96988.s0.value.structure_type24753 = &t96989; /* x174809 stalin.sc:25197:870668 */ t96988.s1.tag = NULL_TYPE; /* x174810 stalin.sc:25197:870668 */ t96987.s1.tag = STRUCTURE_TYPE24753; t96987.s1.value.structure_type24753 = &t96988; /* x174811 stalin.sc:25197:870668 */ t96986.s0.tag = STRUCTURE_TYPE24753; t96986.s0.value.structure_type24753 = &t96987; /* x174812 stalin.sc:25197:870668 */ t96986.s1.tag = NULL_TYPE; /* x174813 stalin.sc:25197:870668 */ t96985.s0.tag = STRUCTURE_TYPE24753; t96985.s0.value.structure_type24753 = &t96986; /* x174814 stalin.sc:25197:870668 */ t96994.s0.tag = EXTERNAL_SYMBOL_TYPE; t96994.s0.value.external_symbol_type = q240; /* x174815 stalin.sc:25197:870668 */ t96997.s0.tag = EXTERNAL_SYMBOL_TYPE; t96997.s0.value.external_symbol_type = q104; /* x174816 stalin.sc:25197:870668 */ t96998.s0.tag = EXTERNAL_SYMBOL_TYPE; t96998.s0.value.external_symbol_type = q294; /* x174817 stalin.sc:25197:870668 */ t96999.s0.tag = EXTERNAL_SYMBOL_TYPE; t96999.s0.value.external_symbol_type = q256; /* x174818 stalin.sc:25197:870668 */ t96999.s1.tag = NULL_TYPE; /* x174819 stalin.sc:25197:870668 */ t96998.s1.tag = STRUCTURE_TYPE24753; t96998.s1.value.structure_type24753 = &t96999; /* x174820 stalin.sc:25197:870668 */ t96997.s1.tag = STRUCTURE_TYPE24753; t96997.s1.value.structure_type24753 = &t96998; /* x174821 stalin.sc:25197:870668 */ t96996.s0.tag = STRUCTURE_TYPE24753; t96996.s0.value.structure_type24753 = &t96997; /* x174822 stalin.sc:25197:870668 */ t97001.s0.tag = EXTERNAL_SYMBOL_TYPE; t97001.s0.value.external_symbol_type = q43; /* x174823 stalin.sc:25197:870668 */ t97003.s0.tag = EXTERNAL_SYMBOL_TYPE; t97003.s0.value.external_symbol_type = q111; /* x174824 stalin.sc:25197:870668 */ t97004.s0.tag = EXTERNAL_SYMBOL_TYPE; t97004.s0.value.external_symbol_type = q281; /* x174825 stalin.sc:25197:870668 */ t97004.s1.tag = NULL_TYPE; /* x174826 stalin.sc:25197:870668 */ t97003.s1.tag = STRUCTURE_TYPE24753; t97003.s1.value.structure_type24753 = &t97004; /* x174827 stalin.sc:25197:870668 */ t97002.s0.tag = STRUCTURE_TYPE24753; t97002.s0.value.structure_type24753 = &t97003; /* x174828 stalin.sc:25197:870668 */ t97006.s0.tag = EXTERNAL_SYMBOL_TYPE; t97006.s0.value.external_symbol_type = q179; /* x174829 stalin.sc:25197:870668 */ t97007.s0.tag = STRING_TYPE; t97007.s0.value.string_type = "Dot cannot be first element of list"; /* x174830 stalin.sc:25197:870668 */ t97007.s1.tag = NULL_TYPE; /* x174831 stalin.sc:25197:870668 */ t97006.s1.tag = STRUCTURE_TYPE24753; t97006.s1.value.structure_type24753 = &t97007; /* x174832 stalin.sc:25197:870668 */ t97005.s0.tag = STRUCTURE_TYPE24753; t97005.s0.value.structure_type24753 = &t97006; /* x174833 stalin.sc:25197:870668 */ t97005.s1.tag = NULL_TYPE; /* x174834 stalin.sc:25197:870668 */ t97002.s1.tag = STRUCTURE_TYPE24753; t97002.s1.value.structure_type24753 = &t97005; /* x174835 stalin.sc:25197:870668 */ t97001.s1.tag = STRUCTURE_TYPE24753; t97001.s1.value.structure_type24753 = &t97002; /* x174836 stalin.sc:25197:870668 */ t97000.s0.tag = STRUCTURE_TYPE24753; t97000.s0.value.structure_type24753 = &t97001; /* x174837 stalin.sc:25197:870668 */ t97009.s0.tag = EXTERNAL_SYMBOL_TYPE; t97009.s0.value.external_symbol_type = q246; /* x174838 stalin.sc:25197:870668 */ t97012.s0.tag = EXTERNAL_SYMBOL_TYPE; t97012.s0.value.external_symbol_type = q295; /* x174839 stalin.sc:25197:870668 */ t97014.s0.tag = EXTERNAL_SYMBOL_TYPE; t97014.s0.value.external_symbol_type = q253; /* x174840 stalin.sc:25197:870668 */ t97016.s0.tag = EXTERNAL_SYMBOL_TYPE; t97016.s0.value.external_symbol_type = q11; /* x174841 stalin.sc:25197:870668 */ t97017.s0.tag = EXTERNAL_SYMBOL_TYPE; t97017.s0.value.external_symbol_type = q7; /* x174842 stalin.sc:25197:870668 */ t97017.s1.tag = NULL_TYPE; /* x174843 stalin.sc:25197:870668 */ t97016.s1.tag = STRUCTURE_TYPE24753; t97016.s1.value.structure_type24753 = &t97017; /* x174844 stalin.sc:25197:870668 */ t97015.s0.tag = STRUCTURE_TYPE24753; t97015.s0.value.structure_type24753 = &t97016; /* x174845 stalin.sc:25197:870668 */ t97015.s1.tag = NULL_TYPE; /* x174846 stalin.sc:25197:870668 */ t97014.s1.tag = STRUCTURE_TYPE24753; t97014.s1.value.structure_type24753 = &t97015; /* x174847 stalin.sc:25197:870668 */ t97013.s0.tag = STRUCTURE_TYPE24753; t97013.s0.value.structure_type24753 = &t97014; /* x174848 stalin.sc:25197:870668 */ t97013.s1.tag = NULL_TYPE; /* x174849 stalin.sc:25197:870668 */ t97012.s1.tag = STRUCTURE_TYPE24753; t97012.s1.value.structure_type24753 = &t97013; /* x174850 stalin.sc:25197:870668 */ t97011.s0.tag = STRUCTURE_TYPE24753; t97011.s0.value.structure_type24753 = &t97012; /* x174851 stalin.sc:25197:870668 */ t97019.s0.tag = EXTERNAL_SYMBOL_TYPE; t97019.s0.value.external_symbol_type = q296; /* x174852 stalin.sc:25197:870668 */ t97021.s0.tag = EXTERNAL_SYMBOL_TYPE; t97021.s0.value.external_symbol_type = q253; /* x174853 stalin.sc:25197:870668 */ t97023.s0.tag = EXTERNAL_SYMBOL_TYPE; t97023.s0.value.external_symbol_type = q11; /* x174854 stalin.sc:25197:870668 */ t97024.s0.tag = EXTERNAL_SYMBOL_TYPE; t97024.s0.value.external_symbol_type = q0; /* x174855 stalin.sc:25197:870668 */ t97024.s1.tag = NULL_TYPE; /* x174856 stalin.sc:25197:870668 */ t97023.s1.tag = STRUCTURE_TYPE24753; t97023.s1.value.structure_type24753 = &t97024; /* x174857 stalin.sc:25197:870668 */ t97022.s0.tag = STRUCTURE_TYPE24753; t97022.s0.value.structure_type24753 = &t97023; /* x174858 stalin.sc:25197:870668 */ t97022.s1.tag = NULL_TYPE; /* x174859 stalin.sc:25197:870668 */ t97021.s1.tag = STRUCTURE_TYPE24753; t97021.s1.value.structure_type24753 = &t97022; /* x174860 stalin.sc:25197:870668 */ t97020.s0.tag = STRUCTURE_TYPE24753; t97020.s0.value.structure_type24753 = &t97021; /* x174861 stalin.sc:25197:870668 */ t97020.s1.tag = NULL_TYPE; /* x174862 stalin.sc:25197:870668 */ t97019.s1.tag = STRUCTURE_TYPE24753; t97019.s1.value.structure_type24753 = &t97020; /* x174863 stalin.sc:25197:870668 */ t97018.s0.tag = STRUCTURE_TYPE24753; t97018.s0.value.structure_type24753 = &t97019; /* x174864 stalin.sc:25197:870668 */ t97018.s1.tag = NULL_TYPE; /* x174865 stalin.sc:25197:870668 */ t97011.s1.tag = STRUCTURE_TYPE24753; t97011.s1.value.structure_type24753 = &t97018; /* x174866 stalin.sc:25197:870668 */ t97010.s0.tag = STRUCTURE_TYPE24753; t97010.s0.value.structure_type24753 = &t97011; /* x174867 stalin.sc:25197:870668 */ t97026.s0.tag = EXTERNAL_SYMBOL_TYPE; t97026.s0.value.external_symbol_type = q242; /* x174868 stalin.sc:25197:870668 */ t97027.s0.tag = EXTERNAL_SYMBOL_TYPE; t97027.s0.value.external_symbol_type = q287; /* x174869 stalin.sc:25197:870668 */ t97030.s0.tag = EXTERNAL_SYMBOL_TYPE; t97030.s0.value.external_symbol_type = q281; /* x174870 stalin.sc:25197:870668 */ t97032.s0.tag = EXTERNAL_SYMBOL_TYPE; t97032.s0.value.external_symbol_type = q108; /* x174871 stalin.sc:25197:870668 */ t97033.s0.tag = EXTERNAL_SYMBOL_TYPE; t97033.s0.value.external_symbol_type = q281; /* x174872 stalin.sc:25197:870668 */ t97033.s1.tag = NULL_TYPE; /* x174873 stalin.sc:25197:870668 */ t97032.s1.tag = STRUCTURE_TYPE24753; t97032.s1.value.structure_type24753 = &t97033; /* x174874 stalin.sc:25197:870668 */ t97031.s0.tag = STRUCTURE_TYPE24753; t97031.s0.value.structure_type24753 = &t97032; /* x174875 stalin.sc:25197:870668 */ t97031.s1.tag = NULL_TYPE; /* x174876 stalin.sc:25197:870668 */ t97030.s1.tag = STRUCTURE_TYPE24753; t97030.s1.value.structure_type24753 = &t97031; /* x174877 stalin.sc:25197:870668 */ t97029.s0.tag = STRUCTURE_TYPE24753; t97029.s0.value.structure_type24753 = &t97030; /* x174878 stalin.sc:25197:870668 */ t97035.s0.tag = EXTERNAL_SYMBOL_TYPE; t97035.s0.value.external_symbol_type = q261; /* x174879 stalin.sc:25197:870668 */ t97037.s0.tag = EXTERNAL_SYMBOL_TYPE; t97037.s0.value.external_symbol_type = q106; /* x174880 stalin.sc:25197:870668 */ t97039.s0.tag = EXTERNAL_SYMBOL_TYPE; t97039.s0.value.external_symbol_type = q107; /* x174881 stalin.sc:25197:870668 */ t97040.s0.tag = EXTERNAL_SYMBOL_TYPE; t97040.s0.value.external_symbol_type = q281; /* x174882 stalin.sc:25197:870668 */ t97040.s1.tag = NULL_TYPE; /* x174883 stalin.sc:25197:870668 */ t97039.s1.tag = STRUCTURE_TYPE24753; t97039.s1.value.structure_type24753 = &t97040; /* x174884 stalin.sc:25197:870668 */ t97038.s0.tag = STRUCTURE_TYPE24753; t97038.s0.value.structure_type24753 = &t97039; /* x174885 stalin.sc:25197:870668 */ t97041.s0.tag = EXTERNAL_SYMBOL_TYPE; t97041.s0.value.external_symbol_type = q295; /* x174886 stalin.sc:25197:870668 */ t97041.s1.tag = NULL_TYPE; /* x174887 stalin.sc:25197:870668 */ t97038.s1.tag = STRUCTURE_TYPE24753; t97038.s1.value.structure_type24753 = &t97041; /* x174888 stalin.sc:25197:870668 */ t97037.s1.tag = STRUCTURE_TYPE24753; t97037.s1.value.structure_type24753 = &t97038; /* x174889 stalin.sc:25197:870668 */ t97036.s0.tag = STRUCTURE_TYPE24753; t97036.s0.value.structure_type24753 = &t97037; /* x174890 stalin.sc:25197:870668 */ t97036.s1.tag = NULL_TYPE; /* x174891 stalin.sc:25197:870668 */ t97035.s1.tag = STRUCTURE_TYPE24753; t97035.s1.value.structure_type24753 = &t97036; /* x174892 stalin.sc:25197:870668 */ t97034.s0.tag = STRUCTURE_TYPE24753; t97034.s0.value.structure_type24753 = &t97035; /* x174893 stalin.sc:25197:870668 */ t97034.s1.tag = NULL_TYPE; /* x174894 stalin.sc:25197:870668 */ t97029.s1.tag = STRUCTURE_TYPE24753; t97029.s1.value.structure_type24753 = &t97034; /* x174895 stalin.sc:25197:870668 */ t97028.s0.tag = STRUCTURE_TYPE24753; t97028.s0.value.structure_type24753 = &t97029; /* x174896 stalin.sc:25197:870668 */ t97043.s0.tag = EXTERNAL_SYMBOL_TYPE; t97043.s0.value.external_symbol_type = q43; /* x174897 stalin.sc:25197:870668 */ t97045.s0.tag = EXTERNAL_SYMBOL_TYPE; t97045.s0.value.external_symbol_type = q111; /* x174898 stalin.sc:25197:870668 */ t97046.s0.tag = EXTERNAL_SYMBOL_TYPE; t97046.s0.value.external_symbol_type = q281; /* x174899 stalin.sc:25197:870668 */ t97046.s1.tag = NULL_TYPE; /* x174900 stalin.sc:25197:870668 */ t97045.s1.tag = STRUCTURE_TYPE24753; t97045.s1.value.structure_type24753 = &t97046; /* x174901 stalin.sc:25197:870668 */ t97044.s0.tag = STRUCTURE_TYPE24753; t97044.s0.value.structure_type24753 = &t97045; /* x174902 stalin.sc:25197:870668 */ t97047.s0.tag = EXTERNAL_SYMBOL_TYPE; t97047.s0.value.external_symbol_type = q261; /* x174903 stalin.sc:25197:870668 */ t97049.s0.tag = EXTERNAL_SYMBOL_TYPE; t97049.s0.value.external_symbol_type = q287; /* x174904 stalin.sc:25197:870668 */ t97051.s0.tag = EXTERNAL_SYMBOL_TYPE; t97051.s0.value.external_symbol_type = q108; /* x174905 stalin.sc:25197:870668 */ t97052.s0.tag = EXTERNAL_SYMBOL_TYPE; t97052.s0.value.external_symbol_type = q281; /* x174906 stalin.sc:25197:870668 */ t97052.s1.tag = NULL_TYPE; /* x174907 stalin.sc:25197:870668 */ t97051.s1.tag = STRUCTURE_TYPE24753; t97051.s1.value.structure_type24753 = &t97052; /* x174908 stalin.sc:25197:870668 */ t97050.s0.tag = STRUCTURE_TYPE24753; t97050.s0.value.structure_type24753 = &t97051; /* x174909 stalin.sc:25197:870668 */ t97054.s0.tag = EXTERNAL_SYMBOL_TYPE; t97054.s0.value.external_symbol_type = q106; /* x174910 stalin.sc:25197:870668 */ t97056.s0.tag = EXTERNAL_SYMBOL_TYPE; t97056.s0.value.external_symbol_type = q107; /* x174911 stalin.sc:25197:870668 */ t97057.s0.tag = EXTERNAL_SYMBOL_TYPE; t97057.s0.value.external_symbol_type = q281; /* x174912 stalin.sc:25197:870668 */ t97057.s1.tag = NULL_TYPE; /* x174913 stalin.sc:25197:870668 */ t97056.s1.tag = STRUCTURE_TYPE24753; t97056.s1.value.structure_type24753 = &t97057; /* x174914 stalin.sc:25197:870668 */ t97055.s0.tag = STRUCTURE_TYPE24753; t97055.s0.value.structure_type24753 = &t97056; /* x174915 stalin.sc:25197:870668 */ t97058.s0.tag = EXTERNAL_SYMBOL_TYPE; t97058.s0.value.external_symbol_type = q261; /* x174916 stalin.sc:25197:870668 */ t97058.s1.tag = NULL_TYPE; /* x174917 stalin.sc:25197:870668 */ t97055.s1.tag = STRUCTURE_TYPE24753; t97055.s1.value.structure_type24753 = &t97058; /* x174918 stalin.sc:25197:870668 */ t97054.s1.tag = STRUCTURE_TYPE24753; t97054.s1.value.structure_type24753 = &t97055; /* x174919 stalin.sc:25197:870668 */ t97053.s0.tag = STRUCTURE_TYPE24753; t97053.s0.value.structure_type24753 = &t97054; /* x174920 stalin.sc:25197:870668 */ t97053.s1.tag = NULL_TYPE; /* x174921 stalin.sc:25197:870668 */ t97050.s1.tag = STRUCTURE_TYPE24753; t97050.s1.value.structure_type24753 = &t97053; /* x174922 stalin.sc:25197:870668 */ t97049.s1.tag = STRUCTURE_TYPE24753; t97049.s1.value.structure_type24753 = &t97050; /* x174923 stalin.sc:25197:870668 */ t97048.s0.tag = STRUCTURE_TYPE24753; t97048.s0.value.structure_type24753 = &t97049; /* x174924 stalin.sc:25197:870668 */ t97048.s1.tag = NULL_TYPE; /* x174925 stalin.sc:25197:870668 */ t97047.s1.tag = STRUCTURE_TYPE24753; t97047.s1.value.structure_type24753 = &t97048; /* x174926 stalin.sc:25197:870668 */ t97044.s1.tag = STRUCTURE_TYPE24753; t97044.s1.value.structure_type24753 = &t97047; /* x174927 stalin.sc:25197:870668 */ t97043.s1.tag = STRUCTURE_TYPE24753; t97043.s1.value.structure_type24753 = &t97044; /* x174928 stalin.sc:25197:870668 */ t97042.s0.tag = STRUCTURE_TYPE24753; t97042.s0.value.structure_type24753 = &t97043; /* x174929 stalin.sc:25197:870668 */ t97042.s1.tag = NULL_TYPE; /* x174930 stalin.sc:25197:870668 */ t97028.s1.tag = STRUCTURE_TYPE24753; t97028.s1.value.structure_type24753 = &t97042; /* x174931 stalin.sc:25197:870668 */ t97027.s1.tag = STRUCTURE_TYPE24753; t97027.s1.value.structure_type24753 = &t97028; /* x174932 stalin.sc:25197:870668 */ t97026.s1.tag = STRUCTURE_TYPE24753; t97026.s1.value.structure_type24753 = &t97027; /* x174933 stalin.sc:25197:870668 */ t97025.s0.tag = STRUCTURE_TYPE24753; t97025.s0.value.structure_type24753 = &t97026; /* x174934 stalin.sc:25197:870668 */ t97025.s1.tag = NULL_TYPE; /* x174935 stalin.sc:25197:870668 */ t97010.s1.tag = STRUCTURE_TYPE24753; t97010.s1.value.structure_type24753 = &t97025; /* x174936 stalin.sc:25197:870668 */ t97009.s1.tag = STRUCTURE_TYPE24753; t97009.s1.value.structure_type24753 = &t97010; /* x174937 stalin.sc:25197:870668 */ t97008.s0.tag = STRUCTURE_TYPE24753; t97008.s0.value.structure_type24753 = &t97009; /* x174938 stalin.sc:25197:870668 */ t97008.s1.tag = NULL_TYPE; /* x174939 stalin.sc:25197:870668 */ t97000.s1.tag = STRUCTURE_TYPE24753; t97000.s1.value.structure_type24753 = &t97008; /* x174940 stalin.sc:25197:870668 */ t96996.s1.tag = STRUCTURE_TYPE24753; t96996.s1.value.structure_type24753 = &t97000; /* x174941 stalin.sc:25197:870668 */ t96995.s0.tag = STRUCTURE_TYPE24753; t96995.s0.value.structure_type24753 = &t96996; /* x174942 stalin.sc:25197:870668 */ t97061.s0.tag = EXTERNAL_SYMBOL_TYPE; t97061.s0.value.external_symbol_type = q104; /* x174943 stalin.sc:25197:870668 */ t97062.s0.tag = EXTERNAL_SYMBOL_TYPE; t97062.s0.value.external_symbol_type = q294; /* x174944 stalin.sc:25197:870668 */ t97063.s0.tag = EXTERNAL_SYMBOL_TYPE; t97063.s0.value.external_symbol_type = q0; /* x174945 stalin.sc:25197:870668 */ t97063.s1.tag = NULL_TYPE; /* x174946 stalin.sc:25197:870668 */ t97062.s1.tag = STRUCTURE_TYPE24753; t97062.s1.value.structure_type24753 = &t97063; /* x174947 stalin.sc:25197:870668 */ t97061.s1.tag = STRUCTURE_TYPE24753; t97061.s1.value.structure_type24753 = &t97062; /* x174948 stalin.sc:25197:870668 */ t97060.s0.tag = STRUCTURE_TYPE24753; t97060.s0.value.structure_type24753 = &t97061; /* x174949 stalin.sc:25197:870668 */ t97065.s0.tag = EXTERNAL_SYMBOL_TYPE; t97065.s0.value.external_symbol_type = q284; /* x174950 stalin.sc:25197:870668 */ t97066.s0.tag = EXTERNAL_SYMBOL_TYPE; t97066.s0.value.external_symbol_type = q281; /* x174951 stalin.sc:25197:870668 */ t97066.s1.tag = NULL_TYPE; /* x174952 stalin.sc:25197:870668 */ t97065.s1.tag = STRUCTURE_TYPE24753; t97065.s1.value.structure_type24753 = &t97066; /* x174953 stalin.sc:25197:870668 */ t97064.s0.tag = STRUCTURE_TYPE24753; t97064.s0.value.structure_type24753 = &t97065; /* x174954 stalin.sc:25197:870668 */ t97064.s1.tag = NULL_TYPE; /* x174955 stalin.sc:25197:870668 */ t97060.s1.tag = STRUCTURE_TYPE24753; t97060.s1.value.structure_type24753 = &t97064; /* x174956 stalin.sc:25197:870668 */ t97059.s0.tag = STRUCTURE_TYPE24753; t97059.s0.value.structure_type24753 = &t97060; /* x174957 stalin.sc:25197:870668 */ t97068.s0.tag = EXTERNAL_SYMBOL_TYPE; t97068.s0.value.external_symbol_type = q95; /* x174958 stalin.sc:25197:870668 */ t97070.s0.tag = EXTERNAL_SYMBOL_TYPE; t97070.s0.value.external_symbol_type = q287; /* x174959 stalin.sc:25197:870668 */ t97072.s0.tag = EXTERNAL_SYMBOL_TYPE; t97072.s0.value.external_symbol_type = q106; /* x174960 stalin.sc:25197:870668 */ t97073.s0.tag = EXTERNAL_SYMBOL_TYPE; t97073.s0.value.external_symbol_type = q294; /* x174961 stalin.sc:25197:870668 */ t97074.s0.tag = EXTERNAL_SYMBOL_TYPE; t97074.s0.value.external_symbol_type = q281; /* x174962 stalin.sc:25197:870668 */ t97074.s1.tag = NULL_TYPE; /* x174963 stalin.sc:25197:870668 */ t97073.s1.tag = STRUCTURE_TYPE24753; t97073.s1.value.structure_type24753 = &t97074; /* x174964 stalin.sc:25197:870668 */ t97072.s1.tag = STRUCTURE_TYPE24753; t97072.s1.value.structure_type24753 = &t97073; /* x174965 stalin.sc:25197:870668 */ t97071.s0.tag = STRUCTURE_TYPE24753; t97071.s0.value.structure_type24753 = &t97072; /* x174966 stalin.sc:25197:870668 */ t97071.s1.tag = NULL_TYPE; /* x174967 stalin.sc:25197:870668 */ t97070.s1.tag = STRUCTURE_TYPE24753; t97070.s1.value.structure_type24753 = &t97071; /* x174968 stalin.sc:25197:870668 */ t97069.s0.tag = STRUCTURE_TYPE24753; t97069.s0.value.structure_type24753 = &t97070; /* x174969 stalin.sc:25197:870668 */ t97069.s1.tag = NULL_TYPE; /* x174970 stalin.sc:25197:870668 */ t97068.s1.tag = STRUCTURE_TYPE24753; t97068.s1.value.structure_type24753 = &t97069; /* x174971 stalin.sc:25197:870668 */ t97067.s0.tag = STRUCTURE_TYPE24753; t97067.s0.value.structure_type24753 = &t97068; /* x174972 stalin.sc:25197:870668 */ t97067.s1.tag = NULL_TYPE; /* x174973 stalin.sc:25197:870668 */ t97059.s1.tag = STRUCTURE_TYPE24753; t97059.s1.value.structure_type24753 = &t97067; /* x174974 stalin.sc:25197:870668 */ t96995.s1.tag = STRUCTURE_TYPE24753; t96995.s1.value.structure_type24753 = &t97059; /* x174975 stalin.sc:25197:870668 */ t96994.s1.tag = STRUCTURE_TYPE24753; t96994.s1.value.structure_type24753 = &t96995; /* x174976 stalin.sc:25197:870668 */ t96993.s0.tag = STRUCTURE_TYPE24753; t96993.s0.value.structure_type24753 = &t96994; /* x174977 stalin.sc:25197:870668 */ t96993.s1.tag = NULL_TYPE; /* x174978 stalin.sc:25197:870668 */ t96985.s1.tag = STRUCTURE_TYPE24753; t96985.s1.value.structure_type24753 = &t96993; /* x174979 stalin.sc:25197:870668 */ t96984.s1.tag = STRUCTURE_TYPE24753; t96984.s1.value.structure_type24753 = &t96985; /* x174980 stalin.sc:25197:870668 */ t96983.s0.tag = STRUCTURE_TYPE24753; t96983.s0.value.structure_type24753 = &t96984; /* x174981 stalin.sc:25197:870668 */ t96983.s1.tag = NULL_TYPE; /* x174982 stalin.sc:25197:870668 */ t96977.s1.tag = STRUCTURE_TYPE24753; t96977.s1.value.structure_type24753 = &t96983; /* x174983 stalin.sc:25197:870668 */ t96976.s1.tag = STRUCTURE_TYPE24753; t96976.s1.value.structure_type24753 = &t96977; /* x174984 stalin.sc:25197:870668 */ t96975.s1.tag = STRUCTURE_TYPE24753; t96975.s1.value.structure_type24753 = &t96976; /* x174985 stalin.sc:25197:870668 */ t96974.s0.tag = STRUCTURE_TYPE24753; t96974.s0.value.structure_type24753 = &t96975; /* x174986 stalin.sc:25197:870668 */ t96974.s1.tag = NULL_TYPE; /* x174987 stalin.sc:25197:870668 */ t96970.s1.tag = STRUCTURE_TYPE24753; t96970.s1.value.structure_type24753 = &t96974; /* x174988 stalin.sc:25197:870668 */ t96969.s0.tag = STRUCTURE_TYPE24753; t96969.s0.value.structure_type24753 = &t96970; /* x174989 stalin.sc:25197:870668 */ t97077.s0.tag = EXTERNAL_SYMBOL_TYPE; t97077.s0.value.external_symbol_type = q263; /* x174990 stalin.sc:25197:870668 */ t97078.s0.tag = EXTERNAL_SYMBOL_TYPE; t97078.s0.value.external_symbol_type = q273; /* x174991 stalin.sc:25197:870668 */ t97079.s0.tag = ((unsigned)((unsigned char)'#'))<<2; /* x174992 stalin.sc:25197:870668 */ t97079.s1.tag = NULL_TYPE; /* x174993 stalin.sc:25197:870668 */ t97078.s1.tag = STRUCTURE_TYPE24753; t97078.s1.value.structure_type24753 = &t97079; /* x174994 stalin.sc:25197:870668 */ t97077.s1.tag = STRUCTURE_TYPE24753; t97077.s1.value.structure_type24753 = &t97078; /* x174995 stalin.sc:25197:870668 */ t97076.s0.tag = STRUCTURE_TYPE24753; t97076.s0.value.structure_type24753 = &t97077; /* x174996 stalin.sc:25197:870668 */ t97081.s0.tag = EXTERNAL_SYMBOL_TYPE; t97081.s0.value.external_symbol_type = q242; /* x174997 stalin.sc:25197:870668 */ t97084.s0.tag = EXTERNAL_SYMBOL_TYPE; t97084.s0.value.external_symbol_type = q274; /* x174998 stalin.sc:25197:870668 */ t97086.s0.tag = EXTERNAL_SYMBOL_TYPE; t97086.s0.value.external_symbol_type = q264; /* x174999 stalin.sc:25197:870668 */ t97087.s0.tag = EXTERNAL_SYMBOL_TYPE; t97087.s0.value.external_symbol_type = q254; /* x175000 stalin.sc:25197:870668 */ t97087.s1.tag = NULL_TYPE; /* x175001 stalin.sc:25197:870668 */ t97086.s1.tag = STRUCTURE_TYPE24753; t97086.s1.value.structure_type24753 = &t97087; /* x175002 stalin.sc:25197:870668 */ t97085.s0.tag = STRUCTURE_TYPE24753; t97085.s0.value.structure_type24753 = &t97086; /* x175003 stalin.sc:25197:870668 */ t97085.s1.tag = NULL_TYPE; /* x175004 stalin.sc:25197:870668 */ t97084.s1.tag = STRUCTURE_TYPE24753; t97084.s1.value.structure_type24753 = &t97085; /* x175005 stalin.sc:25197:870668 */ t97083.s0.tag = STRUCTURE_TYPE24753; t97083.s0.value.structure_type24753 = &t97084; /* x175006 stalin.sc:25197:870668 */ t97083.s1.tag = NULL_TYPE; /* x175007 stalin.sc:25197:870668 */ t97082.s0.tag = STRUCTURE_TYPE24753; t97082.s0.value.structure_type24753 = &t97083; /* x175008 stalin.sc:25197:870668 */ t97089.s0.tag = EXTERNAL_SYMBOL_TYPE; t97089.s0.value.external_symbol_type = q43; /* x175009 stalin.sc:25197:870668 */ t97091.s0.tag = EXTERNAL_SYMBOL_TYPE; t97091.s0.value.external_symbol_type = q178; /* x175010 stalin.sc:25197:870668 */ t97092.s0.tag = EXTERNAL_SYMBOL_TYPE; t97092.s0.value.external_symbol_type = q274; /* x175011 stalin.sc:25197:870668 */ t97092.s1.tag = NULL_TYPE; /* x175012 stalin.sc:25197:870668 */ t97091.s1.tag = STRUCTURE_TYPE24753; t97091.s1.value.structure_type24753 = &t97092; /* x175013 stalin.sc:25197:870668 */ t97090.s0.tag = STRUCTURE_TYPE24753; t97090.s0.value.structure_type24753 = &t97091; /* x175014 stalin.sc:25197:870668 */ t97094.s0.tag = EXTERNAL_SYMBOL_TYPE; t97094.s0.value.external_symbol_type = q179; /* x175015 stalin.sc:25197:870668 */ t97095.s0.tag = STRING_TYPE; t97095.s0.value.string_type = "EOF after sharp sign"; /* x175016 stalin.sc:25197:870668 */ t97095.s1.tag = NULL_TYPE; /* x175017 stalin.sc:25197:870668 */ t97094.s1.tag = STRUCTURE_TYPE24753; t97094.s1.value.structure_type24753 = &t97095; /* x175018 stalin.sc:25197:870668 */ t97093.s0.tag = STRUCTURE_TYPE24753; t97093.s0.value.structure_type24753 = &t97094; /* x175019 stalin.sc:25197:870668 */ t97093.s1.tag = NULL_TYPE; /* x175020 stalin.sc:25197:870668 */ t97090.s1.tag = STRUCTURE_TYPE24753; t97090.s1.value.structure_type24753 = &t97093; /* x175021 stalin.sc:25197:870668 */ t97089.s1.tag = STRUCTURE_TYPE24753; t97089.s1.value.structure_type24753 = &t97090; /* x175022 stalin.sc:25197:870668 */ t97088.s0.tag = STRUCTURE_TYPE24753; t97088.s0.value.structure_type24753 = &t97089; /* x175023 stalin.sc:25197:870668 */ t97097.s0.tag = EXTERNAL_SYMBOL_TYPE; t97097.s0.value.external_symbol_type = q240; /* x175024 stalin.sc:25197:870668 */ t97100.s0.tag = EXTERNAL_SYMBOL_TYPE; t97100.s0.value.external_symbol_type = q241; /* x175025 stalin.sc:25197:870668 */ t97102.s0.tag = EXTERNAL_SYMBOL_TYPE; t97102.s0.value.external_symbol_type = q263; /* x175026 stalin.sc:25197:870668 */ t97103.s0.tag = EXTERNAL_SYMBOL_TYPE; t97103.s0.value.external_symbol_type = q274; /* x175027 stalin.sc:25197:870668 */ t97104.s0.tag = ((unsigned)((unsigned char)'t'))<<2; /* x175028 stalin.sc:25197:870668 */ t97104.s1.tag = NULL_TYPE; /* x175029 stalin.sc:25197:870668 */ t97103.s1.tag = STRUCTURE_TYPE24753; t97103.s1.value.structure_type24753 = &t97104; /* x175030 stalin.sc:25197:870668 */ t97102.s1.tag = STRUCTURE_TYPE24753; t97102.s1.value.structure_type24753 = &t97103; /* x175031 stalin.sc:25197:870668 */ t97101.s0.tag = STRUCTURE_TYPE24753; t97101.s0.value.structure_type24753 = &t97102; /* x175032 stalin.sc:25197:870668 */ t97106.s0.tag = EXTERNAL_SYMBOL_TYPE; t97106.s0.value.external_symbol_type = q263; /* x175033 stalin.sc:25197:870668 */ t97107.s0.tag = EXTERNAL_SYMBOL_TYPE; t97107.s0.value.external_symbol_type = q274; /* x175034 stalin.sc:25197:870668 */ t97108.s0.tag = ((unsigned)((unsigned char)'T'))<<2; /* x175035 stalin.sc:25197:870668 */ t97108.s1.tag = NULL_TYPE; /* x175036 stalin.sc:25197:870668 */ t97107.s1.tag = STRUCTURE_TYPE24753; t97107.s1.value.structure_type24753 = &t97108; /* x175037 stalin.sc:25197:870668 */ t97106.s1.tag = STRUCTURE_TYPE24753; t97106.s1.value.structure_type24753 = &t97107; /* x175038 stalin.sc:25197:870668 */ t97105.s0.tag = STRUCTURE_TYPE24753; t97105.s0.value.structure_type24753 = &t97106; /* x175039 stalin.sc:25197:870668 */ t97105.s1.tag = NULL_TYPE; /* x175040 stalin.sc:25197:870668 */ t97101.s1.tag = STRUCTURE_TYPE24753; t97101.s1.value.structure_type24753 = &t97105; /* x175041 stalin.sc:25197:870668 */ t97100.s1.tag = STRUCTURE_TYPE24753; t97100.s1.value.structure_type24753 = &t97101; /* x175042 stalin.sc:25197:870668 */ t97099.s0.tag = STRUCTURE_TYPE24753; t97099.s0.value.structure_type24753 = &t97100; /* x175043 stalin.sc:25197:870668 */ t97109.s0.tag = TRUE_TYPE; /* x175044 stalin.sc:25197:870668 */ t97109.s1.tag = NULL_TYPE; /* x175045 stalin.sc:25197:870668 */ t97099.s1.tag = STRUCTURE_TYPE24753; t97099.s1.value.structure_type24753 = &t97109; /* x175046 stalin.sc:25197:870668 */ t97098.s0.tag = STRUCTURE_TYPE24753; t97098.s0.value.structure_type24753 = &t97099; /* x175047 stalin.sc:25197:870668 */ t97112.s0.tag = EXTERNAL_SYMBOL_TYPE; t97112.s0.value.external_symbol_type = q241; /* x175048 stalin.sc:25197:870668 */ t97114.s0.tag = EXTERNAL_SYMBOL_TYPE; t97114.s0.value.external_symbol_type = q263; /* x175049 stalin.sc:25197:870668 */ t97115.s0.tag = EXTERNAL_SYMBOL_TYPE; t97115.s0.value.external_symbol_type = q274; /* x175050 stalin.sc:25197:870668 */ t97116.s0.tag = ((unsigned)((unsigned char)'f'))<<2; /* x175051 stalin.sc:25197:870668 */ t97116.s1.tag = NULL_TYPE; /* x175052 stalin.sc:25197:870668 */ t97115.s1.tag = STRUCTURE_TYPE24753; t97115.s1.value.structure_type24753 = &t97116; /* x175053 stalin.sc:25197:870668 */ t97114.s1.tag = STRUCTURE_TYPE24753; t97114.s1.value.structure_type24753 = &t97115; /* x175054 stalin.sc:25197:870668 */ t97113.s0.tag = STRUCTURE_TYPE24753; t97113.s0.value.structure_type24753 = &t97114; /* x175055 stalin.sc:25197:870668 */ t97118.s0.tag = EXTERNAL_SYMBOL_TYPE; t97118.s0.value.external_symbol_type = q263; /* x175056 stalin.sc:25197:870668 */ t97119.s0.tag = EXTERNAL_SYMBOL_TYPE; t97119.s0.value.external_symbol_type = q274; /* x175057 stalin.sc:25197:870668 */ t97120.s0.tag = ((unsigned)((unsigned char)'F'))<<2; /* x175058 stalin.sc:25197:870668 */ t97120.s1.tag = NULL_TYPE; /* x175059 stalin.sc:25197:870668 */ t97119.s1.tag = STRUCTURE_TYPE24753; t97119.s1.value.structure_type24753 = &t97120; /* x175060 stalin.sc:25197:870668 */ t97118.s1.tag = STRUCTURE_TYPE24753; t97118.s1.value.structure_type24753 = &t97119; /* x175061 stalin.sc:25197:870668 */ t97117.s0.tag = STRUCTURE_TYPE24753; t97117.s0.value.structure_type24753 = &t97118; /* x175062 stalin.sc:25197:870668 */ t97117.s1.tag = NULL_TYPE; /* x175063 stalin.sc:25197:870668 */ t97113.s1.tag = STRUCTURE_TYPE24753; t97113.s1.value.structure_type24753 = &t97117; /* x175064 stalin.sc:25197:870668 */ t97112.s1.tag = STRUCTURE_TYPE24753; t97112.s1.value.structure_type24753 = &t97113; /* x175065 stalin.sc:25197:870668 */ t97111.s0.tag = STRUCTURE_TYPE24753; t97111.s0.value.structure_type24753 = &t97112; /* x175066 stalin.sc:25197:870668 */ t97121.s0.tag = FALSE_TYPE; /* x175067 stalin.sc:25197:870668 */ t97121.s1.tag = NULL_TYPE; /* x175068 stalin.sc:25197:870668 */ t97111.s1.tag = STRUCTURE_TYPE24753; t97111.s1.value.structure_type24753 = &t97121; /* x175069 stalin.sc:25197:870668 */ t97110.s0.tag = STRUCTURE_TYPE24753; t97110.s0.value.structure_type24753 = &t97111; /* x175070 stalin.sc:25197:870668 */ t97124.s0.tag = EXTERNAL_SYMBOL_TYPE; t97124.s0.value.external_symbol_type = q241; /* x175071 stalin.sc:25197:870668 */ t97126.s0.tag = EXTERNAL_SYMBOL_TYPE; t97126.s0.value.external_symbol_type = q263; /* x175072 stalin.sc:25197:870668 */ t97127.s0.tag = EXTERNAL_SYMBOL_TYPE; t97127.s0.value.external_symbol_type = q274; /* x175073 stalin.sc:25197:870668 */ t97128.s0.tag = ((unsigned)((unsigned char)'b'))<<2; /* x175074 stalin.sc:25197:870668 */ t97128.s1.tag = NULL_TYPE; /* x175075 stalin.sc:25197:870668 */ t97127.s1.tag = STRUCTURE_TYPE24753; t97127.s1.value.structure_type24753 = &t97128; /* x175076 stalin.sc:25197:870668 */ t97126.s1.tag = STRUCTURE_TYPE24753; t97126.s1.value.structure_type24753 = &t97127; /* x175077 stalin.sc:25197:870668 */ t97125.s0.tag = STRUCTURE_TYPE24753; t97125.s0.value.structure_type24753 = &t97126; /* x175078 stalin.sc:25197:870668 */ t97130.s0.tag = EXTERNAL_SYMBOL_TYPE; t97130.s0.value.external_symbol_type = q263; /* x175079 stalin.sc:25197:870668 */ t97131.s0.tag = EXTERNAL_SYMBOL_TYPE; t97131.s0.value.external_symbol_type = q274; /* x175080 stalin.sc:25197:870668 */ t97132.s0.tag = ((unsigned)((unsigned char)'B'))<<2; /* x175081 stalin.sc:25197:870668 */ t97132.s1.tag = NULL_TYPE; /* x175082 stalin.sc:25197:870668 */ t97131.s1.tag = STRUCTURE_TYPE24753; t97131.s1.value.structure_type24753 = &t97132; /* x175083 stalin.sc:25197:870668 */ t97130.s1.tag = STRUCTURE_TYPE24753; t97130.s1.value.structure_type24753 = &t97131; /* x175084 stalin.sc:25197:870668 */ t97129.s0.tag = STRUCTURE_TYPE24753; t97129.s0.value.structure_type24753 = &t97130; /* x175085 stalin.sc:25197:870668 */ t97129.s1.tag = NULL_TYPE; /* x175086 stalin.sc:25197:870668 */ t97125.s1.tag = STRUCTURE_TYPE24753; t97125.s1.value.structure_type24753 = &t97129; /* x175087 stalin.sc:25197:870668 */ t97124.s1.tag = STRUCTURE_TYPE24753; t97124.s1.value.structure_type24753 = &t97125; /* x175088 stalin.sc:25197:870668 */ t97123.s0.tag = STRUCTURE_TYPE24753; t97123.s0.value.structure_type24753 = &t97124; /* x175089 stalin.sc:25197:870668 */ t97134.s0.tag = EXTERNAL_SYMBOL_TYPE; t97134.s0.value.external_symbol_type = q242; /* x175090 stalin.sc:25197:870668 */ t97137.s0.tag = EXTERNAL_SYMBOL_TYPE; t97137.s0.value.external_symbol_type = q275; /* x175091 stalin.sc:25197:870668 */ t97139.s0.tag = EXTERNAL_SYMBOL_TYPE; t97139.s0.value.external_symbol_type = q264; /* x175092 stalin.sc:25197:870668 */ t97140.s0.tag = EXTERNAL_SYMBOL_TYPE; t97140.s0.value.external_symbol_type = q254; /* x175093 stalin.sc:25197:870668 */ t97140.s1.tag = NULL_TYPE; /* x175094 stalin.sc:25197:870668 */ t97139.s1.tag = STRUCTURE_TYPE24753; t97139.s1.value.structure_type24753 = &t97140; /* x175095 stalin.sc:25197:870668 */ t97138.s0.tag = STRUCTURE_TYPE24753; t97138.s0.value.structure_type24753 = &t97139; /* x175096 stalin.sc:25197:870668 */ t97138.s1.tag = NULL_TYPE; /* x175097 stalin.sc:25197:870668 */ t97137.s1.tag = STRUCTURE_TYPE24753; t97137.s1.value.structure_type24753 = &t97138; /* x175098 stalin.sc:25197:870668 */ t97136.s0.tag = STRUCTURE_TYPE24753; t97136.s0.value.structure_type24753 = &t97137; /* x175099 stalin.sc:25197:870668 */ t97136.s1.tag = NULL_TYPE; /* x175100 stalin.sc:25197:870668 */ t97135.s0.tag = STRUCTURE_TYPE24753; t97135.s0.value.structure_type24753 = &t97136; /* x175101 stalin.sc:25197:870668 */ t97142.s0.tag = EXTERNAL_SYMBOL_TYPE; t97142.s0.value.external_symbol_type = q43; /* x175102 stalin.sc:25197:870668 */ t97144.s0.tag = EXTERNAL_SYMBOL_TYPE; t97144.s0.value.external_symbol_type = q178; /* x175103 stalin.sc:25197:870668 */ t97145.s0.tag = EXTERNAL_SYMBOL_TYPE; t97145.s0.value.external_symbol_type = q275; /* x175104 stalin.sc:25197:870668 */ t97145.s1.tag = NULL_TYPE; /* x175105 stalin.sc:25197:870668 */ t97144.s1.tag = STRUCTURE_TYPE24753; t97144.s1.value.structure_type24753 = &t97145; /* x175106 stalin.sc:25197:870668 */ t97143.s0.tag = STRUCTURE_TYPE24753; t97143.s0.value.structure_type24753 = &t97144; /* x175107 stalin.sc:25197:870668 */ t97147.s0.tag = EXTERNAL_SYMBOL_TYPE; t97147.s0.value.external_symbol_type = q179; /* x175108 stalin.sc:25197:870668 */ t97148.s0.tag = STRING_TYPE; t97148.s0.value.string_type = "EOF while reading binary number"; /* x175109 stalin.sc:25197:870668 */ t97148.s1.tag = NULL_TYPE; /* x175110 stalin.sc:25197:870668 */ t97147.s1.tag = STRUCTURE_TYPE24753; t97147.s1.value.structure_type24753 = &t97148; /* x175111 stalin.sc:25197:870668 */ t97146.s0.tag = STRUCTURE_TYPE24753; t97146.s0.value.structure_type24753 = &t97147; /* x175112 stalin.sc:25197:870668 */ t97146.s1.tag = NULL_TYPE; /* x175113 stalin.sc:25197:870668 */ t97143.s1.tag = STRUCTURE_TYPE24753; t97143.s1.value.structure_type24753 = &t97146; /* x175114 stalin.sc:25197:870668 */ t97142.s1.tag = STRUCTURE_TYPE24753; t97142.s1.value.structure_type24753 = &t97143; /* x175115 stalin.sc:25197:870668 */ t97141.s0.tag = STRUCTURE_TYPE24753; t97141.s0.value.structure_type24753 = &t97142; /* x175116 stalin.sc:25197:870668 */ t97150.s0.tag = EXTERNAL_SYMBOL_TYPE; t97150.s0.value.external_symbol_type = q240; /* x175117 stalin.sc:25197:870668 */ t97153.s0.tag = EXTERNAL_SYMBOL_TYPE; t97153.s0.value.external_symbol_type = q263; /* x175118 stalin.sc:25197:870668 */ t97154.s0.tag = EXTERNAL_SYMBOL_TYPE; t97154.s0.value.external_symbol_type = q275; /* x175119 stalin.sc:25197:870668 */ t97155.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x175120 stalin.sc:25197:870668 */ t97155.s1.tag = NULL_TYPE; /* x175121 stalin.sc:25197:870668 */ t97154.s1.tag = STRUCTURE_TYPE24753; t97154.s1.value.structure_type24753 = &t97155; /* x175122 stalin.sc:25197:870668 */ t97153.s1.tag = STRUCTURE_TYPE24753; t97153.s1.value.structure_type24753 = &t97154; /* x175123 stalin.sc:25197:870668 */ t97152.s0.tag = STRUCTURE_TYPE24753; t97152.s0.value.structure_type24753 = &t97153; /* x175124 stalin.sc:25197:870668 */ t97157.s0.tag = EXTERNAL_SYMBOL_TYPE; t97157.s0.value.external_symbol_type = q259; /* x175125 stalin.sc:25197:870668 */ t97158.s0.tag = FIXNUM_TYPE; t97158.s0.value.fixnum_type = 0; /* x175126 stalin.sc:25197:870668 */ t97158.s1.tag = NULL_TYPE; /* x175127 stalin.sc:25197:870668 */ t97157.s1.tag = STRUCTURE_TYPE24753; t97157.s1.value.structure_type24753 = &t97158; /* x175128 stalin.sc:25197:870668 */ t97156.s0.tag = STRUCTURE_TYPE24753; t97156.s0.value.structure_type24753 = &t97157; /* x175129 stalin.sc:25197:870668 */ t97156.s1.tag = NULL_TYPE; /* x175130 stalin.sc:25197:870668 */ t97152.s1.tag = STRUCTURE_TYPE24753; t97152.s1.value.structure_type24753 = &t97156; /* x175131 stalin.sc:25197:870668 */ t97151.s0.tag = STRUCTURE_TYPE24753; t97151.s0.value.structure_type24753 = &t97152; /* x175132 stalin.sc:25197:870668 */ t97161.s0.tag = EXTERNAL_SYMBOL_TYPE; t97161.s0.value.external_symbol_type = q263; /* x175133 stalin.sc:25197:870668 */ t97162.s0.tag = EXTERNAL_SYMBOL_TYPE; t97162.s0.value.external_symbol_type = q275; /* x175134 stalin.sc:25197:870668 */ t97163.s0.tag = ((unsigned)((unsigned char)'1'))<<2; /* x175135 stalin.sc:25197:870668 */ t97163.s1.tag = NULL_TYPE; /* x175136 stalin.sc:25197:870668 */ t97162.s1.tag = STRUCTURE_TYPE24753; t97162.s1.value.structure_type24753 = &t97163; /* x175137 stalin.sc:25197:870668 */ t97161.s1.tag = STRUCTURE_TYPE24753; t97161.s1.value.structure_type24753 = &t97162; /* x175138 stalin.sc:25197:870668 */ t97160.s0.tag = STRUCTURE_TYPE24753; t97160.s0.value.structure_type24753 = &t97161; /* x175139 stalin.sc:25197:870668 */ t97165.s0.tag = EXTERNAL_SYMBOL_TYPE; t97165.s0.value.external_symbol_type = q259; /* x175140 stalin.sc:25197:870668 */ t97166.s0.tag = FIXNUM_TYPE; t97166.s0.value.fixnum_type = 1; /* x175141 stalin.sc:25197:870668 */ t97166.s1.tag = NULL_TYPE; /* x175142 stalin.sc:25197:870668 */ t97165.s1.tag = STRUCTURE_TYPE24753; t97165.s1.value.structure_type24753 = &t97166; /* x175143 stalin.sc:25197:870668 */ t97164.s0.tag = STRUCTURE_TYPE24753; t97164.s0.value.structure_type24753 = &t97165; /* x175144 stalin.sc:25197:870668 */ t97164.s1.tag = NULL_TYPE; /* x175145 stalin.sc:25197:870668 */ t97160.s1.tag = STRUCTURE_TYPE24753; t97160.s1.value.structure_type24753 = &t97164; /* x175146 stalin.sc:25197:870668 */ t97159.s0.tag = STRUCTURE_TYPE24753; t97159.s0.value.structure_type24753 = &t97160; /* x175147 stalin.sc:25197:870668 */ t97169.s0.tag = EXTERNAL_SYMBOL_TYPE; t97169.s0.value.external_symbol_type = q263; /* x175148 stalin.sc:25197:870668 */ t97170.s0.tag = EXTERNAL_SYMBOL_TYPE; t97170.s0.value.external_symbol_type = q275; /* x175149 stalin.sc:25197:870668 */ t97171.s0.tag = ((unsigned)((unsigned char)'+'))<<2; /* x175150 stalin.sc:25197:870668 */ t97171.s1.tag = NULL_TYPE; /* x175151 stalin.sc:25197:870668 */ t97170.s1.tag = STRUCTURE_TYPE24753; t97170.s1.value.structure_type24753 = &t97171; /* x175152 stalin.sc:25197:870668 */ t97169.s1.tag = STRUCTURE_TYPE24753; t97169.s1.value.structure_type24753 = &t97170; /* x175153 stalin.sc:25197:870668 */ t97168.s0.tag = STRUCTURE_TYPE24753; t97168.s0.value.structure_type24753 = &t97169; /* x175154 stalin.sc:25197:870668 */ t97173.s0.tag = EXTERNAL_SYMBOL_TYPE; t97173.s0.value.external_symbol_type = q242; /* x175155 stalin.sc:25197:870668 */ t97176.s0.tag = EXTERNAL_SYMBOL_TYPE; t97176.s0.value.external_symbol_type = q297; /* x175156 stalin.sc:25197:870668 */ t97178.s0.tag = EXTERNAL_SYMBOL_TYPE; t97178.s0.value.external_symbol_type = q264; /* x175157 stalin.sc:25197:870668 */ t97179.s0.tag = EXTERNAL_SYMBOL_TYPE; t97179.s0.value.external_symbol_type = q254; /* x175158 stalin.sc:25197:870668 */ t97179.s1.tag = NULL_TYPE; /* x175159 stalin.sc:25197:870668 */ t97178.s1.tag = STRUCTURE_TYPE24753; t97178.s1.value.structure_type24753 = &t97179; /* x175160 stalin.sc:25197:870668 */ t97177.s0.tag = STRUCTURE_TYPE24753; t97177.s0.value.structure_type24753 = &t97178; /* x175161 stalin.sc:25197:870668 */ t97177.s1.tag = NULL_TYPE; /* x175162 stalin.sc:25197:870668 */ t97176.s1.tag = STRUCTURE_TYPE24753; t97176.s1.value.structure_type24753 = &t97177; /* x175163 stalin.sc:25197:870668 */ t97175.s0.tag = STRUCTURE_TYPE24753; t97175.s0.value.structure_type24753 = &t97176; /* x175164 stalin.sc:25197:870668 */ t97175.s1.tag = NULL_TYPE; /* x175165 stalin.sc:25197:870668 */ t97174.s0.tag = STRUCTURE_TYPE24753; t97174.s0.value.structure_type24753 = &t97175; /* x175166 stalin.sc:25197:870668 */ t97181.s0.tag = EXTERNAL_SYMBOL_TYPE; t97181.s0.value.external_symbol_type = q43; /* x175167 stalin.sc:25197:870668 */ t97183.s0.tag = EXTERNAL_SYMBOL_TYPE; t97183.s0.value.external_symbol_type = q178; /* x175168 stalin.sc:25197:870668 */ t97184.s0.tag = EXTERNAL_SYMBOL_TYPE; t97184.s0.value.external_symbol_type = q297; /* x175169 stalin.sc:25197:870668 */ t97184.s1.tag = NULL_TYPE; /* x175170 stalin.sc:25197:870668 */ t97183.s1.tag = STRUCTURE_TYPE24753; t97183.s1.value.structure_type24753 = &t97184; /* x175171 stalin.sc:25197:870668 */ t97182.s0.tag = STRUCTURE_TYPE24753; t97182.s0.value.structure_type24753 = &t97183; /* x175172 stalin.sc:25197:870668 */ t97186.s0.tag = EXTERNAL_SYMBOL_TYPE; t97186.s0.value.external_symbol_type = q179; /* x175173 stalin.sc:25197:870668 */ t97187.s0.tag = STRING_TYPE; t97187.s0.value.string_type = "EOF while reading binary number"; /* x175174 stalin.sc:25197:870668 */ t97187.s1.tag = NULL_TYPE; /* x175175 stalin.sc:25197:870668 */ t97186.s1.tag = STRUCTURE_TYPE24753; t97186.s1.value.structure_type24753 = &t97187; /* x175176 stalin.sc:25197:870668 */ t97185.s0.tag = STRUCTURE_TYPE24753; t97185.s0.value.structure_type24753 = &t97186; /* x175177 stalin.sc:25197:870668 */ t97185.s1.tag = NULL_TYPE; /* x175178 stalin.sc:25197:870668 */ t97182.s1.tag = STRUCTURE_TYPE24753; t97182.s1.value.structure_type24753 = &t97185; /* x175179 stalin.sc:25197:870668 */ t97181.s1.tag = STRUCTURE_TYPE24753; t97181.s1.value.structure_type24753 = &t97182; /* x175180 stalin.sc:25197:870668 */ t97180.s0.tag = STRUCTURE_TYPE24753; t97180.s0.value.structure_type24753 = &t97181; /* x175181 stalin.sc:25197:870668 */ t97189.s0.tag = EXTERNAL_SYMBOL_TYPE; t97189.s0.value.external_symbol_type = q240; /* x175182 stalin.sc:25197:870668 */ t97192.s0.tag = EXTERNAL_SYMBOL_TYPE; t97192.s0.value.external_symbol_type = q263; /* x175183 stalin.sc:25197:870668 */ t97193.s0.tag = EXTERNAL_SYMBOL_TYPE; t97193.s0.value.external_symbol_type = q297; /* x175184 stalin.sc:25197:870668 */ t97194.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x175185 stalin.sc:25197:870668 */ t97194.s1.tag = NULL_TYPE; /* x175186 stalin.sc:25197:870668 */ t97193.s1.tag = STRUCTURE_TYPE24753; t97193.s1.value.structure_type24753 = &t97194; /* x175187 stalin.sc:25197:870668 */ t97192.s1.tag = STRUCTURE_TYPE24753; t97192.s1.value.structure_type24753 = &t97193; /* x175188 stalin.sc:25197:870668 */ t97191.s0.tag = STRUCTURE_TYPE24753; t97191.s0.value.structure_type24753 = &t97192; /* x175189 stalin.sc:25197:870668 */ t97196.s0.tag = EXTERNAL_SYMBOL_TYPE; t97196.s0.value.external_symbol_type = q259; /* x175190 stalin.sc:25197:870668 */ t97197.s0.tag = FIXNUM_TYPE; t97197.s0.value.fixnum_type = 0; /* x175191 stalin.sc:25197:870668 */ t97197.s1.tag = NULL_TYPE; /* x175192 stalin.sc:25197:870668 */ t97196.s1.tag = STRUCTURE_TYPE24753; t97196.s1.value.structure_type24753 = &t97197; /* x175193 stalin.sc:25197:870668 */ t97195.s0.tag = STRUCTURE_TYPE24753; t97195.s0.value.structure_type24753 = &t97196; /* x175194 stalin.sc:25197:870668 */ t97195.s1.tag = NULL_TYPE; /* x175195 stalin.sc:25197:870668 */ t97191.s1.tag = STRUCTURE_TYPE24753; t97191.s1.value.structure_type24753 = &t97195; /* x175196 stalin.sc:25197:870668 */ t97190.s0.tag = STRUCTURE_TYPE24753; t97190.s0.value.structure_type24753 = &t97191; /* x175197 stalin.sc:25197:870668 */ t97200.s0.tag = EXTERNAL_SYMBOL_TYPE; t97200.s0.value.external_symbol_type = q263; /* x175198 stalin.sc:25197:870668 */ t97201.s0.tag = EXTERNAL_SYMBOL_TYPE; t97201.s0.value.external_symbol_type = q297; /* x175199 stalin.sc:25197:870668 */ t97202.s0.tag = ((unsigned)((unsigned char)'1'))<<2; /* x175200 stalin.sc:25197:870668 */ t97202.s1.tag = NULL_TYPE; /* x175201 stalin.sc:25197:870668 */ t97201.s1.tag = STRUCTURE_TYPE24753; t97201.s1.value.structure_type24753 = &t97202; /* x175202 stalin.sc:25197:870668 */ t97200.s1.tag = STRUCTURE_TYPE24753; t97200.s1.value.structure_type24753 = &t97201; /* x175203 stalin.sc:25197:870668 */ t97199.s0.tag = STRUCTURE_TYPE24753; t97199.s0.value.structure_type24753 = &t97200; /* x175204 stalin.sc:25197:870668 */ t97204.s0.tag = EXTERNAL_SYMBOL_TYPE; t97204.s0.value.external_symbol_type = q259; /* x175205 stalin.sc:25197:870668 */ t97205.s0.tag = FIXNUM_TYPE; t97205.s0.value.fixnum_type = 1; /* x175206 stalin.sc:25197:870668 */ t97205.s1.tag = NULL_TYPE; /* x175207 stalin.sc:25197:870668 */ t97204.s1.tag = STRUCTURE_TYPE24753; t97204.s1.value.structure_type24753 = &t97205; /* x175208 stalin.sc:25197:870668 */ t97203.s0.tag = STRUCTURE_TYPE24753; t97203.s0.value.structure_type24753 = &t97204; /* x175209 stalin.sc:25197:870668 */ t97203.s1.tag = NULL_TYPE; /* x175210 stalin.sc:25197:870668 */ t97199.s1.tag = STRUCTURE_TYPE24753; t97199.s1.value.structure_type24753 = &t97203; /* x175211 stalin.sc:25197:870668 */ t97198.s0.tag = STRUCTURE_TYPE24753; t97198.s0.value.structure_type24753 = &t97199; /* x175212 stalin.sc:25197:870668 */ t97207.s0.tag = EXTERNAL_SYMBOL_TYPE; t97207.s0.value.external_symbol_type = q95; /* x175213 stalin.sc:25197:870668 */ t97209.s0.tag = EXTERNAL_SYMBOL_TYPE; t97209.s0.value.external_symbol_type = q179; /* x175214 stalin.sc:25197:870668 */ t97210.s0.tag = STRING_TYPE; t97210.s0.value.string_type = "Unfinished binary number"; /* x175215 stalin.sc:25197:870668 */ t97210.s1.tag = NULL_TYPE; /* x175216 stalin.sc:25197:870668 */ t97209.s1.tag = STRUCTURE_TYPE24753; t97209.s1.value.structure_type24753 = &t97210; /* x175217 stalin.sc:25197:870668 */ t97208.s0.tag = STRUCTURE_TYPE24753; t97208.s0.value.structure_type24753 = &t97209; /* x175218 stalin.sc:25197:870668 */ t97208.s1.tag = NULL_TYPE; /* x175219 stalin.sc:25197:870668 */ t97207.s1.tag = STRUCTURE_TYPE24753; t97207.s1.value.structure_type24753 = &t97208; /* x175220 stalin.sc:25197:870668 */ t97206.s0.tag = STRUCTURE_TYPE24753; t97206.s0.value.structure_type24753 = &t97207; /* x175221 stalin.sc:25197:870668 */ t97206.s1.tag = NULL_TYPE; /* x175222 stalin.sc:25197:870668 */ t97198.s1.tag = STRUCTURE_TYPE24753; t97198.s1.value.structure_type24753 = &t97206; /* x175223 stalin.sc:25197:870668 */ t97190.s1.tag = STRUCTURE_TYPE24753; t97190.s1.value.structure_type24753 = &t97198; /* x175224 stalin.sc:25197:870668 */ t97189.s1.tag = STRUCTURE_TYPE24753; t97189.s1.value.structure_type24753 = &t97190; /* x175225 stalin.sc:25197:870668 */ t97188.s0.tag = STRUCTURE_TYPE24753; t97188.s0.value.structure_type24753 = &t97189; /* x175226 stalin.sc:25197:870668 */ t97188.s1.tag = NULL_TYPE; /* x175227 stalin.sc:25197:870668 */ t97180.s1.tag = STRUCTURE_TYPE24753; t97180.s1.value.structure_type24753 = &t97188; /* x175228 stalin.sc:25197:870668 */ t97174.s1.tag = STRUCTURE_TYPE24753; t97174.s1.value.structure_type24753 = &t97180; /* x175229 stalin.sc:25197:870668 */ t97173.s1.tag = STRUCTURE_TYPE24753; t97173.s1.value.structure_type24753 = &t97174; /* x175230 stalin.sc:25197:870668 */ t97172.s0.tag = STRUCTURE_TYPE24753; t97172.s0.value.structure_type24753 = &t97173; /* x175231 stalin.sc:25197:870668 */ t97172.s1.tag = NULL_TYPE; /* x175232 stalin.sc:25197:870668 */ t97168.s1.tag = STRUCTURE_TYPE24753; t97168.s1.value.structure_type24753 = &t97172; /* x175233 stalin.sc:25197:870668 */ t97167.s0.tag = STRUCTURE_TYPE24753; t97167.s0.value.structure_type24753 = &t97168; /* x175234 stalin.sc:25197:870668 */ t97213.s0.tag = EXTERNAL_SYMBOL_TYPE; t97213.s0.value.external_symbol_type = q263; /* x175235 stalin.sc:25197:870668 */ t97214.s0.tag = EXTERNAL_SYMBOL_TYPE; t97214.s0.value.external_symbol_type = q275; /* x175236 stalin.sc:25197:870668 */ t97215.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x175237 stalin.sc:25197:870668 */ t97215.s1.tag = NULL_TYPE; /* x175238 stalin.sc:25197:870668 */ t97214.s1.tag = STRUCTURE_TYPE24753; t97214.s1.value.structure_type24753 = &t97215; /* x175239 stalin.sc:25197:870668 */ t97213.s1.tag = STRUCTURE_TYPE24753; t97213.s1.value.structure_type24753 = &t97214; /* x175240 stalin.sc:25197:870668 */ t97212.s0.tag = STRUCTURE_TYPE24753; t97212.s0.value.structure_type24753 = &t97213; /* x175241 stalin.sc:25197:870668 */ t97217.s0.tag = EXTERNAL_SYMBOL_TYPE; t97217.s0.value.external_symbol_type = q242; /* x175242 stalin.sc:25197:870668 */ t97220.s0.tag = EXTERNAL_SYMBOL_TYPE; t97220.s0.value.external_symbol_type = q297; /* x175243 stalin.sc:25197:870668 */ t97222.s0.tag = EXTERNAL_SYMBOL_TYPE; t97222.s0.value.external_symbol_type = q264; /* x175244 stalin.sc:25197:870668 */ t97223.s0.tag = EXTERNAL_SYMBOL_TYPE; t97223.s0.value.external_symbol_type = q254; /* x175245 stalin.sc:25197:870668 */ t97223.s1.tag = NULL_TYPE; /* x175246 stalin.sc:25197:870668 */ t97222.s1.tag = STRUCTURE_TYPE24753; t97222.s1.value.structure_type24753 = &t97223; /* x175247 stalin.sc:25197:870668 */ t97221.s0.tag = STRUCTURE_TYPE24753; t97221.s0.value.structure_type24753 = &t97222; /* x175248 stalin.sc:25197:870668 */ t97221.s1.tag = NULL_TYPE; /* x175249 stalin.sc:25197:870668 */ t97220.s1.tag = STRUCTURE_TYPE24753; t97220.s1.value.structure_type24753 = &t97221; /* x175250 stalin.sc:25197:870668 */ t97219.s0.tag = STRUCTURE_TYPE24753; t97219.s0.value.structure_type24753 = &t97220; /* x175251 stalin.sc:25197:870668 */ t97219.s1.tag = NULL_TYPE; /* x175252 stalin.sc:25197:870668 */ t97218.s0.tag = STRUCTURE_TYPE24753; t97218.s0.value.structure_type24753 = &t97219; /* x175253 stalin.sc:25197:870668 */ t97225.s0.tag = EXTERNAL_SYMBOL_TYPE; t97225.s0.value.external_symbol_type = q43; /* x175254 stalin.sc:25197:870668 */ t97227.s0.tag = EXTERNAL_SYMBOL_TYPE; t97227.s0.value.external_symbol_type = q178; /* x175255 stalin.sc:25197:870668 */ t97228.s0.tag = EXTERNAL_SYMBOL_TYPE; t97228.s0.value.external_symbol_type = q297; /* x175256 stalin.sc:25197:870668 */ t97228.s1.tag = NULL_TYPE; /* x175257 stalin.sc:25197:870668 */ t97227.s1.tag = STRUCTURE_TYPE24753; t97227.s1.value.structure_type24753 = &t97228; /* x175258 stalin.sc:25197:870668 */ t97226.s0.tag = STRUCTURE_TYPE24753; t97226.s0.value.structure_type24753 = &t97227; /* x175259 stalin.sc:25197:870668 */ t97230.s0.tag = EXTERNAL_SYMBOL_TYPE; t97230.s0.value.external_symbol_type = q179; /* x175260 stalin.sc:25197:870668 */ t97231.s0.tag = STRING_TYPE; t97231.s0.value.string_type = "EOF while reading binary number"; /* x175261 stalin.sc:25197:870668 */ t97231.s1.tag = NULL_TYPE; /* x175262 stalin.sc:25197:870668 */ t97230.s1.tag = STRUCTURE_TYPE24753; t97230.s1.value.structure_type24753 = &t97231; /* x175263 stalin.sc:25197:870668 */ t97229.s0.tag = STRUCTURE_TYPE24753; t97229.s0.value.structure_type24753 = &t97230; /* x175264 stalin.sc:25197:870668 */ t97229.s1.tag = NULL_TYPE; /* x175265 stalin.sc:25197:870668 */ t97226.s1.tag = STRUCTURE_TYPE24753; t97226.s1.value.structure_type24753 = &t97229; /* x175266 stalin.sc:25197:870668 */ t97225.s1.tag = STRUCTURE_TYPE24753; t97225.s1.value.structure_type24753 = &t97226; /* x175267 stalin.sc:25197:870668 */ t97224.s0.tag = STRUCTURE_TYPE24753; t97224.s0.value.structure_type24753 = &t97225; /* x175268 stalin.sc:25197:870668 */ t97233.s0.tag = EXTERNAL_SYMBOL_TYPE; t97233.s0.value.external_symbol_type = q240; /* x175269 stalin.sc:25197:870668 */ t97236.s0.tag = EXTERNAL_SYMBOL_TYPE; t97236.s0.value.external_symbol_type = q263; /* x175270 stalin.sc:25197:870668 */ t97237.s0.tag = EXTERNAL_SYMBOL_TYPE; t97237.s0.value.external_symbol_type = q297; /* x175271 stalin.sc:25197:870668 */ t97238.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x175272 stalin.sc:25197:870668 */ t97238.s1.tag = NULL_TYPE; /* x175273 stalin.sc:25197:870668 */ t97237.s1.tag = STRUCTURE_TYPE24753; t97237.s1.value.structure_type24753 = &t97238; /* x175274 stalin.sc:25197:870668 */ t97236.s1.tag = STRUCTURE_TYPE24753; t97236.s1.value.structure_type24753 = &t97237; /* x175275 stalin.sc:25197:870668 */ t97235.s0.tag = STRUCTURE_TYPE24753; t97235.s0.value.structure_type24753 = &t97236; /* x175276 stalin.sc:25197:870668 */ t97240.s0.tag = EXTERNAL_SYMBOL_TYPE; t97240.s0.value.external_symbol_type = q2; /* x175277 stalin.sc:25197:870668 */ t97242.s0.tag = EXTERNAL_SYMBOL_TYPE; t97242.s0.value.external_symbol_type = q259; /* x175278 stalin.sc:25197:870668 */ t97243.s0.tag = FIXNUM_TYPE; t97243.s0.value.fixnum_type = 0; /* x175279 stalin.sc:25197:870668 */ t97243.s1.tag = NULL_TYPE; /* x175280 stalin.sc:25197:870668 */ t97242.s1.tag = STRUCTURE_TYPE24753; t97242.s1.value.structure_type24753 = &t97243; /* x175281 stalin.sc:25197:870668 */ t97241.s0.tag = STRUCTURE_TYPE24753; t97241.s0.value.structure_type24753 = &t97242; /* x175282 stalin.sc:25197:870668 */ t97241.s1.tag = NULL_TYPE; /* x175283 stalin.sc:25197:870668 */ t97240.s1.tag = STRUCTURE_TYPE24753; t97240.s1.value.structure_type24753 = &t97241; /* x175284 stalin.sc:25197:870668 */ t97239.s0.tag = STRUCTURE_TYPE24753; t97239.s0.value.structure_type24753 = &t97240; /* x175285 stalin.sc:25197:870668 */ t97239.s1.tag = NULL_TYPE; /* x175286 stalin.sc:25197:870668 */ t97235.s1.tag = STRUCTURE_TYPE24753; t97235.s1.value.structure_type24753 = &t97239; /* x175287 stalin.sc:25197:870668 */ t97234.s0.tag = STRUCTURE_TYPE24753; t97234.s0.value.structure_type24753 = &t97235; /* x175288 stalin.sc:25197:870668 */ t97246.s0.tag = EXTERNAL_SYMBOL_TYPE; t97246.s0.value.external_symbol_type = q263; /* x175289 stalin.sc:25197:870668 */ t97247.s0.tag = EXTERNAL_SYMBOL_TYPE; t97247.s0.value.external_symbol_type = q297; /* x175290 stalin.sc:25197:870668 */ t97248.s0.tag = ((unsigned)((unsigned char)'1'))<<2; /* x175291 stalin.sc:25197:870668 */ t97248.s1.tag = NULL_TYPE; /* x175292 stalin.sc:25197:870668 */ t97247.s1.tag = STRUCTURE_TYPE24753; t97247.s1.value.structure_type24753 = &t97248; /* x175293 stalin.sc:25197:870668 */ t97246.s1.tag = STRUCTURE_TYPE24753; t97246.s1.value.structure_type24753 = &t97247; /* x175294 stalin.sc:25197:870668 */ t97245.s0.tag = STRUCTURE_TYPE24753; t97245.s0.value.structure_type24753 = &t97246; /* x175295 stalin.sc:25197:870668 */ t97250.s0.tag = EXTERNAL_SYMBOL_TYPE; t97250.s0.value.external_symbol_type = q2; /* x175296 stalin.sc:25197:870668 */ t97252.s0.tag = EXTERNAL_SYMBOL_TYPE; t97252.s0.value.external_symbol_type = q259; /* x175297 stalin.sc:25197:870668 */ t97253.s0.tag = FIXNUM_TYPE; t97253.s0.value.fixnum_type = 1; /* x175298 stalin.sc:25197:870668 */ t97253.s1.tag = NULL_TYPE; /* x175299 stalin.sc:25197:870668 */ t97252.s1.tag = STRUCTURE_TYPE24753; t97252.s1.value.structure_type24753 = &t97253; /* x175300 stalin.sc:25197:870668 */ t97251.s0.tag = STRUCTURE_TYPE24753; t97251.s0.value.structure_type24753 = &t97252; /* x175301 stalin.sc:25197:870668 */ t97251.s1.tag = NULL_TYPE; /* x175302 stalin.sc:25197:870668 */ t97250.s1.tag = STRUCTURE_TYPE24753; t97250.s1.value.structure_type24753 = &t97251; /* x175303 stalin.sc:25197:870668 */ t97249.s0.tag = STRUCTURE_TYPE24753; t97249.s0.value.structure_type24753 = &t97250; /* x175304 stalin.sc:25197:870668 */ t97249.s1.tag = NULL_TYPE; /* x175305 stalin.sc:25197:870668 */ t97245.s1.tag = STRUCTURE_TYPE24753; t97245.s1.value.structure_type24753 = &t97249; /* x175306 stalin.sc:25197:870668 */ t97244.s0.tag = STRUCTURE_TYPE24753; t97244.s0.value.structure_type24753 = &t97245; /* x175307 stalin.sc:25197:870668 */ t97255.s0.tag = EXTERNAL_SYMBOL_TYPE; t97255.s0.value.external_symbol_type = q95; /* x175308 stalin.sc:25197:870668 */ t97257.s0.tag = EXTERNAL_SYMBOL_TYPE; t97257.s0.value.external_symbol_type = q179; /* x175309 stalin.sc:25197:870668 */ t97258.s0.tag = STRING_TYPE; t97258.s0.value.string_type = "Unfinished binary number"; /* x175310 stalin.sc:25197:870668 */ t97258.s1.tag = NULL_TYPE; /* x175311 stalin.sc:25197:870668 */ t97257.s1.tag = STRUCTURE_TYPE24753; t97257.s1.value.structure_type24753 = &t97258; /* x175312 stalin.sc:25197:870668 */ t97256.s0.tag = STRUCTURE_TYPE24753; t97256.s0.value.structure_type24753 = &t97257; /* x175313 stalin.sc:25197:870668 */ t97256.s1.tag = NULL_TYPE; /* x175314 stalin.sc:25197:870668 */ t97255.s1.tag = STRUCTURE_TYPE24753; t97255.s1.value.structure_type24753 = &t97256; /* x175315 stalin.sc:25197:870668 */ t97254.s0.tag = STRUCTURE_TYPE24753; t97254.s0.value.structure_type24753 = &t97255; /* x175316 stalin.sc:25197:870668 */ t97254.s1.tag = NULL_TYPE; /* x175317 stalin.sc:25197:870668 */ t97244.s1.tag = STRUCTURE_TYPE24753; t97244.s1.value.structure_type24753 = &t97254; /* x175318 stalin.sc:25197:870668 */ t97234.s1.tag = STRUCTURE_TYPE24753; t97234.s1.value.structure_type24753 = &t97244; /* x175319 stalin.sc:25197:870668 */ t97233.s1.tag = STRUCTURE_TYPE24753; t97233.s1.value.structure_type24753 = &t97234; /* x175320 stalin.sc:25197:870668 */ t97232.s0.tag = STRUCTURE_TYPE24753; t97232.s0.value.structure_type24753 = &t97233; /* x175321 stalin.sc:25197:870668 */ t97232.s1.tag = NULL_TYPE; /* x175322 stalin.sc:25197:870668 */ t97224.s1.tag = STRUCTURE_TYPE24753; t97224.s1.value.structure_type24753 = &t97232; /* x175323 stalin.sc:25197:870668 */ t97218.s1.tag = STRUCTURE_TYPE24753; t97218.s1.value.structure_type24753 = &t97224; /* x175324 stalin.sc:25197:870668 */ t97217.s1.tag = STRUCTURE_TYPE24753; t97217.s1.value.structure_type24753 = &t97218; /* x175325 stalin.sc:25197:870668 */ t97216.s0.tag = STRUCTURE_TYPE24753; t97216.s0.value.structure_type24753 = &t97217; /* x175326 stalin.sc:25197:870668 */ t97216.s1.tag = NULL_TYPE; /* x175327 stalin.sc:25197:870668 */ t97212.s1.tag = STRUCTURE_TYPE24753; t97212.s1.value.structure_type24753 = &t97216; /* x175328 stalin.sc:25197:870668 */ t97211.s0.tag = STRUCTURE_TYPE24753; t97211.s0.value.structure_type24753 = &t97212; /* x175329 stalin.sc:25197:870668 */ t97260.s0.tag = EXTERNAL_SYMBOL_TYPE; t97260.s0.value.external_symbol_type = q95; /* x175330 stalin.sc:25197:870668 */ t97262.s0.tag = EXTERNAL_SYMBOL_TYPE; t97262.s0.value.external_symbol_type = q179; /* x175331 stalin.sc:25197:870668 */ t97263.s0.tag = STRING_TYPE; t97263.s0.value.string_type = "Unfinished binary number"; /* x175332 stalin.sc:25197:870668 */ t97263.s1.tag = NULL_TYPE; /* x175333 stalin.sc:25197:870668 */ t97262.s1.tag = STRUCTURE_TYPE24753; t97262.s1.value.structure_type24753 = &t97263; /* x175334 stalin.sc:25197:870668 */ t97261.s0.tag = STRUCTURE_TYPE24753; t97261.s0.value.structure_type24753 = &t97262; /* x175335 stalin.sc:25197:870668 */ t97261.s1.tag = NULL_TYPE; /* x175336 stalin.sc:25197:870668 */ t97260.s1.tag = STRUCTURE_TYPE24753; t97260.s1.value.structure_type24753 = &t97261; /* x175337 stalin.sc:25197:870668 */ t97259.s0.tag = STRUCTURE_TYPE24753; t97259.s0.value.structure_type24753 = &t97260; /* x175338 stalin.sc:25197:870668 */ t97259.s1.tag = NULL_TYPE; /* x175339 stalin.sc:25197:870668 */ t97211.s1.tag = STRUCTURE_TYPE24753; t97211.s1.value.structure_type24753 = &t97259; /* x175340 stalin.sc:25197:870668 */ t97167.s1.tag = STRUCTURE_TYPE24753; t97167.s1.value.structure_type24753 = &t97211; /* x175341 stalin.sc:25197:870668 */ t97159.s1.tag = STRUCTURE_TYPE24753; t97159.s1.value.structure_type24753 = &t97167; /* x175342 stalin.sc:25197:870668 */ t97151.s1.tag = STRUCTURE_TYPE24753; t97151.s1.value.structure_type24753 = &t97159; /* x175343 stalin.sc:25197:870668 */ t97150.s1.tag = STRUCTURE_TYPE24753; t97150.s1.value.structure_type24753 = &t97151; /* x175344 stalin.sc:25197:870668 */ t97149.s0.tag = STRUCTURE_TYPE24753; t97149.s0.value.structure_type24753 = &t97150; /* x175345 stalin.sc:25197:870668 */ t97149.s1.tag = NULL_TYPE; /* x175346 stalin.sc:25197:870668 */ t97141.s1.tag = STRUCTURE_TYPE24753; t97141.s1.value.structure_type24753 = &t97149; /* x175347 stalin.sc:25197:870668 */ t97135.s1.tag = STRUCTURE_TYPE24753; t97135.s1.value.structure_type24753 = &t97141; /* x175348 stalin.sc:25197:870668 */ t97134.s1.tag = STRUCTURE_TYPE24753; t97134.s1.value.structure_type24753 = &t97135; /* x175349 stalin.sc:25197:870668 */ t97133.s0.tag = STRUCTURE_TYPE24753; t97133.s0.value.structure_type24753 = &t97134; /* x175350 stalin.sc:25197:870668 */ t97133.s1.tag = NULL_TYPE; /* x175351 stalin.sc:25197:870668 */ t97123.s1.tag = STRUCTURE_TYPE24753; t97123.s1.value.structure_type24753 = &t97133; /* x175352 stalin.sc:25197:870668 */ t97122.s0.tag = STRUCTURE_TYPE24753; t97122.s0.value.structure_type24753 = &t97123; /* x175353 stalin.sc:25197:870668 */ t97266.s0.tag = EXTERNAL_SYMBOL_TYPE; t97266.s0.value.external_symbol_type = q241; /* x175354 stalin.sc:25197:870668 */ t97268.s0.tag = EXTERNAL_SYMBOL_TYPE; t97268.s0.value.external_symbol_type = q263; /* x175355 stalin.sc:25197:870668 */ t97269.s0.tag = EXTERNAL_SYMBOL_TYPE; t97269.s0.value.external_symbol_type = q274; /* x175356 stalin.sc:25197:870668 */ t97270.s0.tag = ((unsigned)((unsigned char)'o'))<<2; /* x175357 stalin.sc:25197:870668 */ t97270.s1.tag = NULL_TYPE; /* x175358 stalin.sc:25197:870668 */ t97269.s1.tag = STRUCTURE_TYPE24753; t97269.s1.value.structure_type24753 = &t97270; /* x175359 stalin.sc:25197:870668 */ t97268.s1.tag = STRUCTURE_TYPE24753; t97268.s1.value.structure_type24753 = &t97269; /* x175360 stalin.sc:25197:870668 */ t97267.s0.tag = STRUCTURE_TYPE24753; t97267.s0.value.structure_type24753 = &t97268; /* x175361 stalin.sc:25197:870668 */ t97272.s0.tag = EXTERNAL_SYMBOL_TYPE; t97272.s0.value.external_symbol_type = q263; /* x175362 stalin.sc:25197:870668 */ t97273.s0.tag = EXTERNAL_SYMBOL_TYPE; t97273.s0.value.external_symbol_type = q274; /* x175363 stalin.sc:25197:870668 */ t97274.s0.tag = ((unsigned)((unsigned char)'O'))<<2; /* x175364 stalin.sc:25197:870668 */ t97274.s1.tag = NULL_TYPE; /* x175365 stalin.sc:25197:870668 */ t97273.s1.tag = STRUCTURE_TYPE24753; t97273.s1.value.structure_type24753 = &t97274; /* x175366 stalin.sc:25197:870668 */ t97272.s1.tag = STRUCTURE_TYPE24753; t97272.s1.value.structure_type24753 = &t97273; /* x175367 stalin.sc:25197:870668 */ t97271.s0.tag = STRUCTURE_TYPE24753; t97271.s0.value.structure_type24753 = &t97272; /* x175368 stalin.sc:25197:870668 */ t97271.s1.tag = NULL_TYPE; /* x175369 stalin.sc:25197:870668 */ t97267.s1.tag = STRUCTURE_TYPE24753; t97267.s1.value.structure_type24753 = &t97271; /* x175370 stalin.sc:25197:870668 */ t97266.s1.tag = STRUCTURE_TYPE24753; t97266.s1.value.structure_type24753 = &t97267; /* x175371 stalin.sc:25197:870668 */ t97265.s0.tag = STRUCTURE_TYPE24753; t97265.s0.value.structure_type24753 = &t97266; /* x175372 stalin.sc:25197:870668 */} void initialize_constants30(void) {t97276.s0.tag = EXTERNAL_SYMBOL_TYPE; t97276.s0.value.external_symbol_type = q242; /* x175373 stalin.sc:25197:870668 */ t97279.s0.tag = EXTERNAL_SYMBOL_TYPE; t97279.s0.value.external_symbol_type = q275; /* x175374 stalin.sc:25197:870668 */ t97281.s0.tag = EXTERNAL_SYMBOL_TYPE; t97281.s0.value.external_symbol_type = q264; /* x175375 stalin.sc:25197:870668 */ t97282.s0.tag = EXTERNAL_SYMBOL_TYPE; t97282.s0.value.external_symbol_type = q254; /* x175376 stalin.sc:25197:870668 */ t97282.s1.tag = NULL_TYPE; /* x175377 stalin.sc:25197:870668 */ t97281.s1.tag = STRUCTURE_TYPE24753; t97281.s1.value.structure_type24753 = &t97282; /* x175378 stalin.sc:25197:870668 */ t97280.s0.tag = STRUCTURE_TYPE24753; t97280.s0.value.structure_type24753 = &t97281; /* x175379 stalin.sc:25197:870668 */ t97280.s1.tag = NULL_TYPE; /* x175380 stalin.sc:25197:870668 */ t97279.s1.tag = STRUCTURE_TYPE24753; t97279.s1.value.structure_type24753 = &t97280; /* x175381 stalin.sc:25197:870668 */ t97278.s0.tag = STRUCTURE_TYPE24753; t97278.s0.value.structure_type24753 = &t97279; /* x175382 stalin.sc:25197:870668 */ t97278.s1.tag = NULL_TYPE; /* x175383 stalin.sc:25197:870668 */ t97277.s0.tag = STRUCTURE_TYPE24753; t97277.s0.value.structure_type24753 = &t97278; /* x175384 stalin.sc:25197:870668 */ t97284.s0.tag = EXTERNAL_SYMBOL_TYPE; t97284.s0.value.external_symbol_type = q43; /* x175385 stalin.sc:25197:870668 */ t97286.s0.tag = EXTERNAL_SYMBOL_TYPE; t97286.s0.value.external_symbol_type = q178; /* x175386 stalin.sc:25197:870668 */ t97287.s0.tag = EXTERNAL_SYMBOL_TYPE; t97287.s0.value.external_symbol_type = q275; /* x175387 stalin.sc:25197:870668 */ t97287.s1.tag = NULL_TYPE; /* x175388 stalin.sc:25197:870668 */ t97286.s1.tag = STRUCTURE_TYPE24753; t97286.s1.value.structure_type24753 = &t97287; /* x175389 stalin.sc:25197:870668 */ t97285.s0.tag = STRUCTURE_TYPE24753; t97285.s0.value.structure_type24753 = &t97286; /* x175390 stalin.sc:25197:870668 */ t97289.s0.tag = EXTERNAL_SYMBOL_TYPE; t97289.s0.value.external_symbol_type = q179; /* x175391 stalin.sc:25197:870668 */ t97290.s0.tag = STRING_TYPE; t97290.s0.value.string_type = "EOF while reading octal number"; /* x175392 stalin.sc:25197:870668 */ t97290.s1.tag = NULL_TYPE; /* x175393 stalin.sc:25197:870668 */ t97289.s1.tag = STRUCTURE_TYPE24753; t97289.s1.value.structure_type24753 = &t97290; /* x175394 stalin.sc:25197:870668 */ t97288.s0.tag = STRUCTURE_TYPE24753; t97288.s0.value.structure_type24753 = &t97289; /* x175395 stalin.sc:25197:870668 */ t97288.s1.tag = NULL_TYPE; /* x175396 stalin.sc:25197:870668 */ t97285.s1.tag = STRUCTURE_TYPE24753; t97285.s1.value.structure_type24753 = &t97288; /* x175397 stalin.sc:25197:870668 */ t97284.s1.tag = STRUCTURE_TYPE24753; t97284.s1.value.structure_type24753 = &t97285; /* x175398 stalin.sc:25197:870668 */ t97283.s0.tag = STRUCTURE_TYPE24753; t97283.s0.value.structure_type24753 = &t97284; /* x175399 stalin.sc:25197:870668 */ t97292.s0.tag = EXTERNAL_SYMBOL_TYPE; t97292.s0.value.external_symbol_type = q240; /* x175400 stalin.sc:25197:870668 */ t97295.s0.tag = EXTERNAL_SYMBOL_TYPE; t97295.s0.value.external_symbol_type = q244; /* x175401 stalin.sc:25197:870668 */ t97297.s0.tag = EXTERNAL_SYMBOL_TYPE; t97297.s0.value.external_symbol_type = q266; /* x175402 stalin.sc:25197:870668 */ t97298.s0.tag = EXTERNAL_SYMBOL_TYPE; t97298.s0.value.external_symbol_type = q275; /* x175403 stalin.sc:25197:870668 */ t97299.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x175404 stalin.sc:25197:870668 */ t97299.s1.tag = NULL_TYPE; /* x175405 stalin.sc:25197:870668 */ t97298.s1.tag = STRUCTURE_TYPE24753; t97298.s1.value.structure_type24753 = &t97299; /* x175406 stalin.sc:25197:870668 */ t97297.s1.tag = STRUCTURE_TYPE24753; t97297.s1.value.structure_type24753 = &t97298; /* x175407 stalin.sc:25197:870668 */ t97296.s0.tag = STRUCTURE_TYPE24753; t97296.s0.value.structure_type24753 = &t97297; /* x175408 stalin.sc:25197:870668 */ t97301.s0.tag = EXTERNAL_SYMBOL_TYPE; t97301.s0.value.external_symbol_type = q267; /* x175409 stalin.sc:25197:870668 */ t97302.s0.tag = EXTERNAL_SYMBOL_TYPE; t97302.s0.value.external_symbol_type = q275; /* x175410 stalin.sc:25197:870668 */ t97303.s0.tag = ((unsigned)((unsigned char)'7'))<<2; /* x175411 stalin.sc:25197:870668 */ t97303.s1.tag = NULL_TYPE; /* x175412 stalin.sc:25197:870668 */ t97302.s1.tag = STRUCTURE_TYPE24753; t97302.s1.value.structure_type24753 = &t97303; /* x175413 stalin.sc:25197:870668 */ t97301.s1.tag = STRUCTURE_TYPE24753; t97301.s1.value.structure_type24753 = &t97302; /* x175414 stalin.sc:25197:870668 */ t97300.s0.tag = STRUCTURE_TYPE24753; t97300.s0.value.structure_type24753 = &t97301; /* x175415 stalin.sc:25197:870668 */ t97300.s1.tag = NULL_TYPE; /* x175416 stalin.sc:25197:870668 */ t97296.s1.tag = STRUCTURE_TYPE24753; t97296.s1.value.structure_type24753 = &t97300; /* x175417 stalin.sc:25197:870668 */ t97295.s1.tag = STRUCTURE_TYPE24753; t97295.s1.value.structure_type24753 = &t97296; /* x175418 stalin.sc:25197:870668 */ t97294.s0.tag = STRUCTURE_TYPE24753; t97294.s0.value.structure_type24753 = &t97295; /* x175419 stalin.sc:25197:870668 */ t97305.s0.tag = EXTERNAL_SYMBOL_TYPE; t97305.s0.value.external_symbol_type = q265; /* x175420 stalin.sc:25197:870668 */ t97307.s0.tag = EXTERNAL_SYMBOL_TYPE; t97307.s0.value.external_symbol_type = q2; /* x175421 stalin.sc:25197:870668 */ t97309.s0.tag = EXTERNAL_SYMBOL_TYPE; t97309.s0.value.external_symbol_type = q157; /* x175422 stalin.sc:25197:870668 */ t97310.s0.tag = EXTERNAL_SYMBOL_TYPE; t97310.s0.value.external_symbol_type = q275; /* x175423 stalin.sc:25197:870668 */ t97310.s1.tag = NULL_TYPE; /* x175424 stalin.sc:25197:870668 */ t97309.s1.tag = STRUCTURE_TYPE24753; t97309.s1.value.structure_type24753 = &t97310; /* x175425 stalin.sc:25197:870668 */ t97308.s0.tag = STRUCTURE_TYPE24753; t97308.s0.value.structure_type24753 = &t97309; /* x175426 stalin.sc:25197:870668 */ t97312.s0.tag = EXTERNAL_SYMBOL_TYPE; t97312.s0.value.external_symbol_type = q157; /* x175427 stalin.sc:25197:870668 */ t97313.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x175428 stalin.sc:25197:870668 */ t97313.s1.tag = NULL_TYPE; /* x175429 stalin.sc:25197:870668 */ t97312.s1.tag = STRUCTURE_TYPE24753; t97312.s1.value.structure_type24753 = &t97313; /* x175430 stalin.sc:25197:870668 */ t97311.s0.tag = STRUCTURE_TYPE24753; t97311.s0.value.structure_type24753 = &t97312; /* x175431 stalin.sc:25197:870668 */ t97311.s1.tag = NULL_TYPE; /* x175432 stalin.sc:25197:870668 */ t97308.s1.tag = STRUCTURE_TYPE24753; t97308.s1.value.structure_type24753 = &t97311; /* x175433 stalin.sc:25197:870668 */ t97307.s1.tag = STRUCTURE_TYPE24753; t97307.s1.value.structure_type24753 = &t97308; /* x175434 stalin.sc:25197:870668 */ t97306.s0.tag = STRUCTURE_TYPE24753; t97306.s0.value.structure_type24753 = &t97307; /* x175435 stalin.sc:25197:870668 */ t97306.s1.tag = NULL_TYPE; /* x175436 stalin.sc:25197:870668 */ t97305.s1.tag = STRUCTURE_TYPE24753; t97305.s1.value.structure_type24753 = &t97306; /* x175437 stalin.sc:25197:870668 */ t97304.s0.tag = STRUCTURE_TYPE24753; t97304.s0.value.structure_type24753 = &t97305; /* x175438 stalin.sc:25197:870668 */ t97304.s1.tag = NULL_TYPE; /* x175439 stalin.sc:25197:870668 */ t97294.s1.tag = STRUCTURE_TYPE24753; t97294.s1.value.structure_type24753 = &t97304; /* x175440 stalin.sc:25197:870668 */ t97293.s0.tag = STRUCTURE_TYPE24753; t97293.s0.value.structure_type24753 = &t97294; /* x175441 stalin.sc:25197:870668 */ t97316.s0.tag = EXTERNAL_SYMBOL_TYPE; t97316.s0.value.external_symbol_type = q263; /* x175442 stalin.sc:25197:870668 */ t97317.s0.tag = EXTERNAL_SYMBOL_TYPE; t97317.s0.value.external_symbol_type = q275; /* x175443 stalin.sc:25197:870668 */ t97318.s0.tag = ((unsigned)((unsigned char)'+'))<<2; /* x175444 stalin.sc:25197:870668 */ t97318.s1.tag = NULL_TYPE; /* x175445 stalin.sc:25197:870668 */ t97317.s1.tag = STRUCTURE_TYPE24753; t97317.s1.value.structure_type24753 = &t97318; /* x175446 stalin.sc:25197:870668 */ t97316.s1.tag = STRUCTURE_TYPE24753; t97316.s1.value.structure_type24753 = &t97317; /* x175447 stalin.sc:25197:870668 */ t97315.s0.tag = STRUCTURE_TYPE24753; t97315.s0.value.structure_type24753 = &t97316; /* x175448 stalin.sc:25197:870668 */ t97320.s0.tag = EXTERNAL_SYMBOL_TYPE; t97320.s0.value.external_symbol_type = q242; /* x175449 stalin.sc:25197:870668 */ t97323.s0.tag = EXTERNAL_SYMBOL_TYPE; t97323.s0.value.external_symbol_type = q297; /* x175450 stalin.sc:25197:870668 */ t97325.s0.tag = EXTERNAL_SYMBOL_TYPE; t97325.s0.value.external_symbol_type = q264; /* x175451 stalin.sc:25197:870668 */ t97326.s0.tag = EXTERNAL_SYMBOL_TYPE; t97326.s0.value.external_symbol_type = q254; /* x175452 stalin.sc:25197:870668 */ t97326.s1.tag = NULL_TYPE; /* x175453 stalin.sc:25197:870668 */ t97325.s1.tag = STRUCTURE_TYPE24753; t97325.s1.value.structure_type24753 = &t97326; /* x175454 stalin.sc:25197:870668 */ t97324.s0.tag = STRUCTURE_TYPE24753; t97324.s0.value.structure_type24753 = &t97325; /* x175455 stalin.sc:25197:870668 */ t97324.s1.tag = NULL_TYPE; /* x175456 stalin.sc:25197:870668 */ t97323.s1.tag = STRUCTURE_TYPE24753; t97323.s1.value.structure_type24753 = &t97324; /* x175457 stalin.sc:25197:870668 */ t97322.s0.tag = STRUCTURE_TYPE24753; t97322.s0.value.structure_type24753 = &t97323; /* x175458 stalin.sc:25197:870668 */ t97322.s1.tag = NULL_TYPE; /* x175459 stalin.sc:25197:870668 */ t97321.s0.tag = STRUCTURE_TYPE24753; t97321.s0.value.structure_type24753 = &t97322; /* x175460 stalin.sc:25197:870668 */ t97328.s0.tag = EXTERNAL_SYMBOL_TYPE; t97328.s0.value.external_symbol_type = q43; /* x175461 stalin.sc:25197:870668 */ t97330.s0.tag = EXTERNAL_SYMBOL_TYPE; t97330.s0.value.external_symbol_type = q178; /* x175462 stalin.sc:25197:870668 */ t97331.s0.tag = EXTERNAL_SYMBOL_TYPE; t97331.s0.value.external_symbol_type = q297; /* x175463 stalin.sc:25197:870668 */ t97331.s1.tag = NULL_TYPE; /* x175464 stalin.sc:25197:870668 */ t97330.s1.tag = STRUCTURE_TYPE24753; t97330.s1.value.structure_type24753 = &t97331; /* x175465 stalin.sc:25197:870668 */ t97329.s0.tag = STRUCTURE_TYPE24753; t97329.s0.value.structure_type24753 = &t97330; /* x175466 stalin.sc:25197:870668 */ t97333.s0.tag = EXTERNAL_SYMBOL_TYPE; t97333.s0.value.external_symbol_type = q179; /* x175467 stalin.sc:25197:870668 */ t97334.s0.tag = STRING_TYPE; t97334.s0.value.string_type = "EOF while reading octal number"; /* x175468 stalin.sc:25197:870668 */ t97334.s1.tag = NULL_TYPE; /* x175469 stalin.sc:25197:870668 */ t97333.s1.tag = STRUCTURE_TYPE24753; t97333.s1.value.structure_type24753 = &t97334; /* x175470 stalin.sc:25197:870668 */ t97332.s0.tag = STRUCTURE_TYPE24753; t97332.s0.value.structure_type24753 = &t97333; /* x175471 stalin.sc:25197:870668 */ t97332.s1.tag = NULL_TYPE; /* x175472 stalin.sc:25197:870668 */ t97329.s1.tag = STRUCTURE_TYPE24753; t97329.s1.value.structure_type24753 = &t97332; /* x175473 stalin.sc:25197:870668 */ t97328.s1.tag = STRUCTURE_TYPE24753; t97328.s1.value.structure_type24753 = &t97329; /* x175474 stalin.sc:25197:870668 */ t97327.s0.tag = STRUCTURE_TYPE24753; t97327.s0.value.structure_type24753 = &t97328; /* x175475 stalin.sc:25197:870668 */ t97336.s0.tag = EXTERNAL_SYMBOL_TYPE; t97336.s0.value.external_symbol_type = q43; /* x175476 stalin.sc:25197:870668 */ t97338.s0.tag = EXTERNAL_SYMBOL_TYPE; t97338.s0.value.external_symbol_type = q241; /* x175477 stalin.sc:25197:870668 */ t97340.s0.tag = EXTERNAL_SYMBOL_TYPE; t97340.s0.value.external_symbol_type = q298; /* x175478 stalin.sc:25197:870668 */ t97341.s0.tag = EXTERNAL_SYMBOL_TYPE; t97341.s0.value.external_symbol_type = q297; /* x175479 stalin.sc:25197:870668 */ t97342.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x175480 stalin.sc:25197:870668 */ t97342.s1.tag = NULL_TYPE; /* x175481 stalin.sc:25197:870668 */ t97341.s1.tag = STRUCTURE_TYPE24753; t97341.s1.value.structure_type24753 = &t97342; /* x175482 stalin.sc:25197:870668 */ t97340.s1.tag = STRUCTURE_TYPE24753; t97340.s1.value.structure_type24753 = &t97341; /* x175483 stalin.sc:25197:870668 */ t97339.s0.tag = STRUCTURE_TYPE24753; t97339.s0.value.structure_type24753 = &t97340; /* x175484 stalin.sc:25197:870668 */ t97344.s0.tag = EXTERNAL_SYMBOL_TYPE; t97344.s0.value.external_symbol_type = q299; /* x175485 stalin.sc:25197:870668 */ t97345.s0.tag = EXTERNAL_SYMBOL_TYPE; t97345.s0.value.external_symbol_type = q297; /* x175486 stalin.sc:25197:870668 */ t97346.s0.tag = ((unsigned)((unsigned char)'7'))<<2; /* x175487 stalin.sc:25197:870668 */ t97346.s1.tag = NULL_TYPE; /* x175488 stalin.sc:25197:870668 */ t97345.s1.tag = STRUCTURE_TYPE24753; t97345.s1.value.structure_type24753 = &t97346; /* x175489 stalin.sc:25197:870668 */ t97344.s1.tag = STRUCTURE_TYPE24753; t97344.s1.value.structure_type24753 = &t97345; /* x175490 stalin.sc:25197:870668 */ t97343.s0.tag = STRUCTURE_TYPE24753; t97343.s0.value.structure_type24753 = &t97344; /* x175491 stalin.sc:25197:870668 */ t97343.s1.tag = NULL_TYPE; /* x175492 stalin.sc:25197:870668 */ t97339.s1.tag = STRUCTURE_TYPE24753; t97339.s1.value.structure_type24753 = &t97343; /* x175493 stalin.sc:25197:870668 */ t97338.s1.tag = STRUCTURE_TYPE24753; t97338.s1.value.structure_type24753 = &t97339; /* x175494 stalin.sc:25197:870668 */ t97337.s0.tag = STRUCTURE_TYPE24753; t97337.s0.value.structure_type24753 = &t97338; /* x175495 stalin.sc:25197:870668 */ t97348.s0.tag = EXTERNAL_SYMBOL_TYPE; t97348.s0.value.external_symbol_type = q179; /* x175496 stalin.sc:25197:870668 */ t97349.s0.tag = STRING_TYPE; t97349.s0.value.string_type = "Unfinished octal number"; /* x175497 stalin.sc:25197:870668 */ t97349.s1.tag = NULL_TYPE; /* x175498 stalin.sc:25197:870668 */ t97348.s1.tag = STRUCTURE_TYPE24753; t97348.s1.value.structure_type24753 = &t97349; /* x175499 stalin.sc:25197:870668 */ t97347.s0.tag = STRUCTURE_TYPE24753; t97347.s0.value.structure_type24753 = &t97348; /* x175500 stalin.sc:25197:870668 */ t97347.s1.tag = NULL_TYPE; /* x175501 stalin.sc:25197:870668 */ t97337.s1.tag = STRUCTURE_TYPE24753; t97337.s1.value.structure_type24753 = &t97347; /* x175502 stalin.sc:25197:870668 */ t97336.s1.tag = STRUCTURE_TYPE24753; t97336.s1.value.structure_type24753 = &t97337; /* x175503 stalin.sc:25197:870668 */ t97335.s0.tag = STRUCTURE_TYPE24753; t97335.s0.value.structure_type24753 = &t97336; /* x175504 stalin.sc:25197:870668 */ t97351.s0.tag = EXTERNAL_SYMBOL_TYPE; t97351.s0.value.external_symbol_type = q265; /* x175505 stalin.sc:25197:870668 */ t97353.s0.tag = EXTERNAL_SYMBOL_TYPE; t97353.s0.value.external_symbol_type = q2; /* x175506 stalin.sc:25197:870668 */ t97355.s0.tag = EXTERNAL_SYMBOL_TYPE; t97355.s0.value.external_symbol_type = q157; /* x175507 stalin.sc:25197:870668 */ t97356.s0.tag = EXTERNAL_SYMBOL_TYPE; t97356.s0.value.external_symbol_type = q297; /* x175508 stalin.sc:25197:870668 */ t97356.s1.tag = NULL_TYPE; /* x175509 stalin.sc:25197:870668 */ t97355.s1.tag = STRUCTURE_TYPE24753; t97355.s1.value.structure_type24753 = &t97356; /* x175510 stalin.sc:25197:870668 */ t97354.s0.tag = STRUCTURE_TYPE24753; t97354.s0.value.structure_type24753 = &t97355; /* x175511 stalin.sc:25197:870668 */ t97358.s0.tag = EXTERNAL_SYMBOL_TYPE; t97358.s0.value.external_symbol_type = q157; /* x175512 stalin.sc:25197:870668 */ t97359.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x175513 stalin.sc:25197:870668 */ t97359.s1.tag = NULL_TYPE; /* x175514 stalin.sc:25197:870668 */ t97358.s1.tag = STRUCTURE_TYPE24753; t97358.s1.value.structure_type24753 = &t97359; /* x175515 stalin.sc:25197:870668 */ t97357.s0.tag = STRUCTURE_TYPE24753; t97357.s0.value.structure_type24753 = &t97358; /* x175516 stalin.sc:25197:870668 */ t97357.s1.tag = NULL_TYPE; /* x175517 stalin.sc:25197:870668 */ t97354.s1.tag = STRUCTURE_TYPE24753; t97354.s1.value.structure_type24753 = &t97357; /* x175518 stalin.sc:25197:870668 */ t97353.s1.tag = STRUCTURE_TYPE24753; t97353.s1.value.structure_type24753 = &t97354; /* x175519 stalin.sc:25197:870668 */ t97352.s0.tag = STRUCTURE_TYPE24753; t97352.s0.value.structure_type24753 = &t97353; /* x175520 stalin.sc:25197:870668 */ t97352.s1.tag = NULL_TYPE; /* x175521 stalin.sc:25197:870668 */ t97351.s1.tag = STRUCTURE_TYPE24753; t97351.s1.value.structure_type24753 = &t97352; /* x175522 stalin.sc:25197:870668 */ t97350.s0.tag = STRUCTURE_TYPE24753; t97350.s0.value.structure_type24753 = &t97351; /* x175523 stalin.sc:25197:870668 */ t97350.s1.tag = NULL_TYPE; /* x175524 stalin.sc:25197:870668 */ t97335.s1.tag = STRUCTURE_TYPE24753; t97335.s1.value.structure_type24753 = &t97350; /* x175525 stalin.sc:25197:870668 */ t97327.s1.tag = STRUCTURE_TYPE24753; t97327.s1.value.structure_type24753 = &t97335; /* x175526 stalin.sc:25197:870668 */ t97321.s1.tag = STRUCTURE_TYPE24753; t97321.s1.value.structure_type24753 = &t97327; /* x175527 stalin.sc:25197:870668 */ t97320.s1.tag = STRUCTURE_TYPE24753; t97320.s1.value.structure_type24753 = &t97321; /* x175528 stalin.sc:25197:870668 */ t97319.s0.tag = STRUCTURE_TYPE24753; t97319.s0.value.structure_type24753 = &t97320; /* x175529 stalin.sc:25197:870668 */ t97319.s1.tag = NULL_TYPE; /* x175530 stalin.sc:25197:870668 */ t97315.s1.tag = STRUCTURE_TYPE24753; t97315.s1.value.structure_type24753 = &t97319; /* x175531 stalin.sc:25197:870668 */ t97314.s0.tag = STRUCTURE_TYPE24753; t97314.s0.value.structure_type24753 = &t97315; /* x175532 stalin.sc:25197:870668 */ t97362.s0.tag = EXTERNAL_SYMBOL_TYPE; t97362.s0.value.external_symbol_type = q263; /* x175533 stalin.sc:25197:870668 */ t97363.s0.tag = EXTERNAL_SYMBOL_TYPE; t97363.s0.value.external_symbol_type = q275; /* x175534 stalin.sc:25197:870668 */ t97364.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x175535 stalin.sc:25197:870668 */ t97364.s1.tag = NULL_TYPE; /* x175536 stalin.sc:25197:870668 */ t97363.s1.tag = STRUCTURE_TYPE24753; t97363.s1.value.structure_type24753 = &t97364; /* x175537 stalin.sc:25197:870668 */ t97362.s1.tag = STRUCTURE_TYPE24753; t97362.s1.value.structure_type24753 = &t97363; /* x175538 stalin.sc:25197:870668 */ t97361.s0.tag = STRUCTURE_TYPE24753; t97361.s0.value.structure_type24753 = &t97362; /* x175539 stalin.sc:25197:870668 */ t97366.s0.tag = EXTERNAL_SYMBOL_TYPE; t97366.s0.value.external_symbol_type = q242; /* x175540 stalin.sc:25197:870668 */ t97369.s0.tag = EXTERNAL_SYMBOL_TYPE; t97369.s0.value.external_symbol_type = q297; /* x175541 stalin.sc:25197:870668 */ t97371.s0.tag = EXTERNAL_SYMBOL_TYPE; t97371.s0.value.external_symbol_type = q264; /* x175542 stalin.sc:25197:870668 */ t97372.s0.tag = EXTERNAL_SYMBOL_TYPE; t97372.s0.value.external_symbol_type = q254; /* x175543 stalin.sc:25197:870668 */ t97372.s1.tag = NULL_TYPE; /* x175544 stalin.sc:25197:870668 */ t97371.s1.tag = STRUCTURE_TYPE24753; t97371.s1.value.structure_type24753 = &t97372; /* x175545 stalin.sc:25197:870668 */ t97370.s0.tag = STRUCTURE_TYPE24753; t97370.s0.value.structure_type24753 = &t97371; /* x175546 stalin.sc:25197:870668 */ t97370.s1.tag = NULL_TYPE; /* x175547 stalin.sc:25197:870668 */ t97369.s1.tag = STRUCTURE_TYPE24753; t97369.s1.value.structure_type24753 = &t97370; /* x175548 stalin.sc:25197:870668 */ t97368.s0.tag = STRUCTURE_TYPE24753; t97368.s0.value.structure_type24753 = &t97369; /* x175549 stalin.sc:25197:870668 */ t97368.s1.tag = NULL_TYPE; /* x175550 stalin.sc:25197:870668 */ t97367.s0.tag = STRUCTURE_TYPE24753; t97367.s0.value.structure_type24753 = &t97368; /* x175551 stalin.sc:25197:870668 */ t97374.s0.tag = EXTERNAL_SYMBOL_TYPE; t97374.s0.value.external_symbol_type = q43; /* x175552 stalin.sc:25197:870668 */ t97376.s0.tag = EXTERNAL_SYMBOL_TYPE; t97376.s0.value.external_symbol_type = q178; /* x175553 stalin.sc:25197:870668 */ t97377.s0.tag = EXTERNAL_SYMBOL_TYPE; t97377.s0.value.external_symbol_type = q297; /* x175554 stalin.sc:25197:870668 */ t97377.s1.tag = NULL_TYPE; /* x175555 stalin.sc:25197:870668 */ t97376.s1.tag = STRUCTURE_TYPE24753; t97376.s1.value.structure_type24753 = &t97377; /* x175556 stalin.sc:25197:870668 */ t97375.s0.tag = STRUCTURE_TYPE24753; t97375.s0.value.structure_type24753 = &t97376; /* x175557 stalin.sc:25197:870668 */ t97379.s0.tag = EXTERNAL_SYMBOL_TYPE; t97379.s0.value.external_symbol_type = q179; /* x175558 stalin.sc:25197:870668 */ t97380.s0.tag = STRING_TYPE; t97380.s0.value.string_type = "EOF while reading octal number"; /* x175559 stalin.sc:25197:870668 */ t97380.s1.tag = NULL_TYPE; /* x175560 stalin.sc:25197:870668 */ t97379.s1.tag = STRUCTURE_TYPE24753; t97379.s1.value.structure_type24753 = &t97380; /* x175561 stalin.sc:25197:870668 */ t97378.s0.tag = STRUCTURE_TYPE24753; t97378.s0.value.structure_type24753 = &t97379; /* x175562 stalin.sc:25197:870668 */ t97378.s1.tag = NULL_TYPE; /* x175563 stalin.sc:25197:870668 */ t97375.s1.tag = STRUCTURE_TYPE24753; t97375.s1.value.structure_type24753 = &t97378; /* x175564 stalin.sc:25197:870668 */ t97374.s1.tag = STRUCTURE_TYPE24753; t97374.s1.value.structure_type24753 = &t97375; /* x175565 stalin.sc:25197:870668 */ t97373.s0.tag = STRUCTURE_TYPE24753; t97373.s0.value.structure_type24753 = &t97374; /* x175566 stalin.sc:25197:870668 */ t97382.s0.tag = EXTERNAL_SYMBOL_TYPE; t97382.s0.value.external_symbol_type = q43; /* x175567 stalin.sc:25197:870668 */ t97384.s0.tag = EXTERNAL_SYMBOL_TYPE; t97384.s0.value.external_symbol_type = q241; /* x175568 stalin.sc:25197:870668 */ t97386.s0.tag = EXTERNAL_SYMBOL_TYPE; t97386.s0.value.external_symbol_type = q298; /* x175569 stalin.sc:25197:870668 */ t97387.s0.tag = EXTERNAL_SYMBOL_TYPE; t97387.s0.value.external_symbol_type = q297; /* x175570 stalin.sc:25197:870668 */ t97388.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x175571 stalin.sc:25197:870668 */ t97388.s1.tag = NULL_TYPE; /* x175572 stalin.sc:25197:870668 */ t97387.s1.tag = STRUCTURE_TYPE24753; t97387.s1.value.structure_type24753 = &t97388; /* x175573 stalin.sc:25197:870668 */ t97386.s1.tag = STRUCTURE_TYPE24753; t97386.s1.value.structure_type24753 = &t97387; /* x175574 stalin.sc:25197:870668 */ t97385.s0.tag = STRUCTURE_TYPE24753; t97385.s0.value.structure_type24753 = &t97386; /* x175575 stalin.sc:25197:870668 */ t97390.s0.tag = EXTERNAL_SYMBOL_TYPE; t97390.s0.value.external_symbol_type = q299; /* x175576 stalin.sc:25197:870668 */ t97391.s0.tag = EXTERNAL_SYMBOL_TYPE; t97391.s0.value.external_symbol_type = q297; /* x175577 stalin.sc:25197:870668 */ t97392.s0.tag = ((unsigned)((unsigned char)'7'))<<2; /* x175578 stalin.sc:25197:870668 */ t97392.s1.tag = NULL_TYPE; /* x175579 stalin.sc:25197:870668 */ t97391.s1.tag = STRUCTURE_TYPE24753; t97391.s1.value.structure_type24753 = &t97392; /* x175580 stalin.sc:25197:870668 */ t97390.s1.tag = STRUCTURE_TYPE24753; t97390.s1.value.structure_type24753 = &t97391; /* x175581 stalin.sc:25197:870668 */ t97389.s0.tag = STRUCTURE_TYPE24753; t97389.s0.value.structure_type24753 = &t97390; /* x175582 stalin.sc:25197:870668 */ t97389.s1.tag = NULL_TYPE; /* x175583 stalin.sc:25197:870668 */ t97385.s1.tag = STRUCTURE_TYPE24753; t97385.s1.value.structure_type24753 = &t97389; /* x175584 stalin.sc:25197:870668 */ t97384.s1.tag = STRUCTURE_TYPE24753; t97384.s1.value.structure_type24753 = &t97385; /* x175585 stalin.sc:25197:870668 */ t97383.s0.tag = STRUCTURE_TYPE24753; t97383.s0.value.structure_type24753 = &t97384; /* x175586 stalin.sc:25197:870668 */ t97394.s0.tag = EXTERNAL_SYMBOL_TYPE; t97394.s0.value.external_symbol_type = q179; /* x175587 stalin.sc:25197:870668 */ t97395.s0.tag = STRING_TYPE; t97395.s0.value.string_type = "Unfinished octal number"; /* x175588 stalin.sc:25197:870668 */ t97395.s1.tag = NULL_TYPE; /* x175589 stalin.sc:25197:870668 */ t97394.s1.tag = STRUCTURE_TYPE24753; t97394.s1.value.structure_type24753 = &t97395; /* x175590 stalin.sc:25197:870668 */ t97393.s0.tag = STRUCTURE_TYPE24753; t97393.s0.value.structure_type24753 = &t97394; /* x175591 stalin.sc:25197:870668 */ t97393.s1.tag = NULL_TYPE; /* x175592 stalin.sc:25197:870668 */ t97383.s1.tag = STRUCTURE_TYPE24753; t97383.s1.value.structure_type24753 = &t97393; /* x175593 stalin.sc:25197:870668 */ t97382.s1.tag = STRUCTURE_TYPE24753; t97382.s1.value.structure_type24753 = &t97383; /* x175594 stalin.sc:25197:870668 */ t97381.s0.tag = STRUCTURE_TYPE24753; t97381.s0.value.structure_type24753 = &t97382; /* x175595 stalin.sc:25197:870668 */ t97397.s0.tag = EXTERNAL_SYMBOL_TYPE; t97397.s0.value.external_symbol_type = q2; /* x175596 stalin.sc:25197:870668 */ t97399.s0.tag = EXTERNAL_SYMBOL_TYPE; t97399.s0.value.external_symbol_type = q265; /* x175597 stalin.sc:25197:870668 */ t97401.s0.tag = EXTERNAL_SYMBOL_TYPE; t97401.s0.value.external_symbol_type = q2; /* x175598 stalin.sc:25197:870668 */ t97403.s0.tag = EXTERNAL_SYMBOL_TYPE; t97403.s0.value.external_symbol_type = q157; /* x175599 stalin.sc:25197:870668 */ t97404.s0.tag = EXTERNAL_SYMBOL_TYPE; t97404.s0.value.external_symbol_type = q297; /* x175600 stalin.sc:25197:870668 */ t97404.s1.tag = NULL_TYPE; /* x175601 stalin.sc:25197:870668 */ t97403.s1.tag = STRUCTURE_TYPE24753; t97403.s1.value.structure_type24753 = &t97404; /* x175602 stalin.sc:25197:870668 */ t97402.s0.tag = STRUCTURE_TYPE24753; t97402.s0.value.structure_type24753 = &t97403; /* x175603 stalin.sc:25197:870668 */ t97406.s0.tag = EXTERNAL_SYMBOL_TYPE; t97406.s0.value.external_symbol_type = q157; /* x175604 stalin.sc:25197:870668 */ t97407.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x175605 stalin.sc:25197:870668 */ t97407.s1.tag = NULL_TYPE; /* x175606 stalin.sc:25197:870668 */ t97406.s1.tag = STRUCTURE_TYPE24753; t97406.s1.value.structure_type24753 = &t97407; /* x175607 stalin.sc:25197:870668 */ t97405.s0.tag = STRUCTURE_TYPE24753; t97405.s0.value.structure_type24753 = &t97406; /* x175608 stalin.sc:25197:870668 */ t97405.s1.tag = NULL_TYPE; /* x175609 stalin.sc:25197:870668 */ t97402.s1.tag = STRUCTURE_TYPE24753; t97402.s1.value.structure_type24753 = &t97405; /* x175610 stalin.sc:25197:870668 */ t97401.s1.tag = STRUCTURE_TYPE24753; t97401.s1.value.structure_type24753 = &t97402; /* x175611 stalin.sc:25197:870668 */ t97400.s0.tag = STRUCTURE_TYPE24753; t97400.s0.value.structure_type24753 = &t97401; /* x175612 stalin.sc:25197:870668 */ t97400.s1.tag = NULL_TYPE; /* x175613 stalin.sc:25197:870668 */ t97399.s1.tag = STRUCTURE_TYPE24753; t97399.s1.value.structure_type24753 = &t97400; /* x175614 stalin.sc:25197:870668 */ t97398.s0.tag = STRUCTURE_TYPE24753; t97398.s0.value.structure_type24753 = &t97399; /* x175615 stalin.sc:25197:870668 */ t97398.s1.tag = NULL_TYPE; /* x175616 stalin.sc:25197:870668 */ t97397.s1.tag = STRUCTURE_TYPE24753; t97397.s1.value.structure_type24753 = &t97398; /* x175617 stalin.sc:25197:870668 */ t97396.s0.tag = STRUCTURE_TYPE24753; t97396.s0.value.structure_type24753 = &t97397; /* x175618 stalin.sc:25197:870668 */ t97396.s1.tag = NULL_TYPE; /* x175619 stalin.sc:25197:870668 */ t97381.s1.tag = STRUCTURE_TYPE24753; t97381.s1.value.structure_type24753 = &t97396; /* x175620 stalin.sc:25197:870668 */ t97373.s1.tag = STRUCTURE_TYPE24753; t97373.s1.value.structure_type24753 = &t97381; /* x175621 stalin.sc:25197:870668 */ t97367.s1.tag = STRUCTURE_TYPE24753; t97367.s1.value.structure_type24753 = &t97373; /* x175622 stalin.sc:25197:870668 */ t97366.s1.tag = STRUCTURE_TYPE24753; t97366.s1.value.structure_type24753 = &t97367; /* x175623 stalin.sc:25197:870668 */ t97365.s0.tag = STRUCTURE_TYPE24753; t97365.s0.value.structure_type24753 = &t97366; /* x175624 stalin.sc:25197:870668 */ t97365.s1.tag = NULL_TYPE; /* x175625 stalin.sc:25197:870668 */ t97361.s1.tag = STRUCTURE_TYPE24753; t97361.s1.value.structure_type24753 = &t97365; /* x175626 stalin.sc:25197:870668 */ t97360.s0.tag = STRUCTURE_TYPE24753; t97360.s0.value.structure_type24753 = &t97361; /* x175627 stalin.sc:25197:870668 */ t97409.s0.tag = EXTERNAL_SYMBOL_TYPE; t97409.s0.value.external_symbol_type = q95; /* x175628 stalin.sc:25197:870668 */ t97411.s0.tag = EXTERNAL_SYMBOL_TYPE; t97411.s0.value.external_symbol_type = q179; /* x175629 stalin.sc:25197:870668 */ t97412.s0.tag = STRING_TYPE; t97412.s0.value.string_type = "Unfinished octal number"; /* x175630 stalin.sc:25197:870668 */ t97412.s1.tag = NULL_TYPE; /* x175631 stalin.sc:25197:870668 */ t97411.s1.tag = STRUCTURE_TYPE24753; t97411.s1.value.structure_type24753 = &t97412; /* x175632 stalin.sc:25197:870668 */ t97410.s0.tag = STRUCTURE_TYPE24753; t97410.s0.value.structure_type24753 = &t97411; /* x175633 stalin.sc:25197:870668 */ t97410.s1.tag = NULL_TYPE; /* x175634 stalin.sc:25197:870668 */ t97409.s1.tag = STRUCTURE_TYPE24753; t97409.s1.value.structure_type24753 = &t97410; /* x175635 stalin.sc:25197:870668 */ t97408.s0.tag = STRUCTURE_TYPE24753; t97408.s0.value.structure_type24753 = &t97409; /* x175636 stalin.sc:25197:870668 */ t97408.s1.tag = NULL_TYPE; /* x175637 stalin.sc:25197:870668 */ t97360.s1.tag = STRUCTURE_TYPE24753; t97360.s1.value.structure_type24753 = &t97408; /* x175638 stalin.sc:25197:870668 */ t97314.s1.tag = STRUCTURE_TYPE24753; t97314.s1.value.structure_type24753 = &t97360; /* x175639 stalin.sc:25197:870668 */ t97293.s1.tag = STRUCTURE_TYPE24753; t97293.s1.value.structure_type24753 = &t97314; /* x175640 stalin.sc:25197:870668 */ t97292.s1.tag = STRUCTURE_TYPE24753; t97292.s1.value.structure_type24753 = &t97293; /* x175641 stalin.sc:25197:870668 */ t97291.s0.tag = STRUCTURE_TYPE24753; t97291.s0.value.structure_type24753 = &t97292; /* x175642 stalin.sc:25197:870668 */ t97291.s1.tag = NULL_TYPE; /* x175643 stalin.sc:25197:870668 */ t97283.s1.tag = STRUCTURE_TYPE24753; t97283.s1.value.structure_type24753 = &t97291; /* x175644 stalin.sc:25197:870668 */ t97277.s1.tag = STRUCTURE_TYPE24753; t97277.s1.value.structure_type24753 = &t97283; /* x175645 stalin.sc:25197:870668 */ t97276.s1.tag = STRUCTURE_TYPE24753; t97276.s1.value.structure_type24753 = &t97277; /* x175646 stalin.sc:25197:870668 */ t97275.s0.tag = STRUCTURE_TYPE24753; t97275.s0.value.structure_type24753 = &t97276; /* x175647 stalin.sc:25197:870668 */ t97275.s1.tag = NULL_TYPE; /* x175648 stalin.sc:25197:870668 */ t97265.s1.tag = STRUCTURE_TYPE24753; t97265.s1.value.structure_type24753 = &t97275; /* x175649 stalin.sc:25197:870668 */ t97264.s0.tag = STRUCTURE_TYPE24753; t97264.s0.value.structure_type24753 = &t97265; /* x175650 stalin.sc:25197:870668 */ t97415.s0.tag = EXTERNAL_SYMBOL_TYPE; t97415.s0.value.external_symbol_type = q241; /* x175651 stalin.sc:25197:870668 */ t97417.s0.tag = EXTERNAL_SYMBOL_TYPE; t97417.s0.value.external_symbol_type = q263; /* x175652 stalin.sc:25197:870668 */ t97418.s0.tag = EXTERNAL_SYMBOL_TYPE; t97418.s0.value.external_symbol_type = q274; /* x175653 stalin.sc:25197:870668 */ t97419.s0.tag = ((unsigned)((unsigned char)'d'))<<2; /* x175654 stalin.sc:25197:870668 */ t97419.s1.tag = NULL_TYPE; /* x175655 stalin.sc:25197:870668 */ t97418.s1.tag = STRUCTURE_TYPE24753; t97418.s1.value.structure_type24753 = &t97419; /* x175656 stalin.sc:25197:870668 */ t97417.s1.tag = STRUCTURE_TYPE24753; t97417.s1.value.structure_type24753 = &t97418; /* x175657 stalin.sc:25197:870668 */ t97416.s0.tag = STRUCTURE_TYPE24753; t97416.s0.value.structure_type24753 = &t97417; /* x175658 stalin.sc:25197:870668 */ t97421.s0.tag = EXTERNAL_SYMBOL_TYPE; t97421.s0.value.external_symbol_type = q263; /* x175659 stalin.sc:25197:870668 */ t97422.s0.tag = EXTERNAL_SYMBOL_TYPE; t97422.s0.value.external_symbol_type = q274; /* x175660 stalin.sc:25197:870668 */ t97423.s0.tag = ((unsigned)((unsigned char)'D'))<<2; /* x175661 stalin.sc:25197:870668 */ t97423.s1.tag = NULL_TYPE; /* x175662 stalin.sc:25197:870668 */ t97422.s1.tag = STRUCTURE_TYPE24753; t97422.s1.value.structure_type24753 = &t97423; /* x175663 stalin.sc:25197:870668 */ t97421.s1.tag = STRUCTURE_TYPE24753; t97421.s1.value.structure_type24753 = &t97422; /* x175664 stalin.sc:25197:870668 */ t97420.s0.tag = STRUCTURE_TYPE24753; t97420.s0.value.structure_type24753 = &t97421; /* x175665 stalin.sc:25197:870668 */ t97420.s1.tag = NULL_TYPE; /* x175666 stalin.sc:25197:870668 */ t97416.s1.tag = STRUCTURE_TYPE24753; t97416.s1.value.structure_type24753 = &t97420; /* x175667 stalin.sc:25197:870668 */ t97415.s1.tag = STRUCTURE_TYPE24753; t97415.s1.value.structure_type24753 = &t97416; /* x175668 stalin.sc:25197:870668 */ t97414.s0.tag = STRUCTURE_TYPE24753; t97414.s0.value.structure_type24753 = &t97415; /* x175669 stalin.sc:25197:870668 */ t97425.s0.tag = EXTERNAL_SYMBOL_TYPE; t97425.s0.value.external_symbol_type = q242; /* x175670 stalin.sc:25197:870668 */ t97428.s0.tag = EXTERNAL_SYMBOL_TYPE; t97428.s0.value.external_symbol_type = q275; /* x175671 stalin.sc:25197:870668 */ t97430.s0.tag = EXTERNAL_SYMBOL_TYPE; t97430.s0.value.external_symbol_type = q264; /* x175672 stalin.sc:25197:870668 */ t97431.s0.tag = EXTERNAL_SYMBOL_TYPE; t97431.s0.value.external_symbol_type = q254; /* x175673 stalin.sc:25197:870668 */ t97431.s1.tag = NULL_TYPE; /* x175674 stalin.sc:25197:870668 */ t97430.s1.tag = STRUCTURE_TYPE24753; t97430.s1.value.structure_type24753 = &t97431; /* x175675 stalin.sc:25197:870668 */ t97429.s0.tag = STRUCTURE_TYPE24753; t97429.s0.value.structure_type24753 = &t97430; /* x175676 stalin.sc:25197:870668 */ t97429.s1.tag = NULL_TYPE; /* x175677 stalin.sc:25197:870668 */ t97428.s1.tag = STRUCTURE_TYPE24753; t97428.s1.value.structure_type24753 = &t97429; /* x175678 stalin.sc:25197:870668 */ t97427.s0.tag = STRUCTURE_TYPE24753; t97427.s0.value.structure_type24753 = &t97428; /* x175679 stalin.sc:25197:870668 */ t97427.s1.tag = NULL_TYPE; /* x175680 stalin.sc:25197:870668 */ t97426.s0.tag = STRUCTURE_TYPE24753; t97426.s0.value.structure_type24753 = &t97427; /* x175681 stalin.sc:25197:870668 */ t97433.s0.tag = EXTERNAL_SYMBOL_TYPE; t97433.s0.value.external_symbol_type = q43; /* x175682 stalin.sc:25197:870668 */ t97435.s0.tag = EXTERNAL_SYMBOL_TYPE; t97435.s0.value.external_symbol_type = q178; /* x175683 stalin.sc:25197:870668 */ t97436.s0.tag = EXTERNAL_SYMBOL_TYPE; t97436.s0.value.external_symbol_type = q275; /* x175684 stalin.sc:25197:870668 */ t97436.s1.tag = NULL_TYPE; /* x175685 stalin.sc:25197:870668 */ t97435.s1.tag = STRUCTURE_TYPE24753; t97435.s1.value.structure_type24753 = &t97436; /* x175686 stalin.sc:25197:870668 */ t97434.s0.tag = STRUCTURE_TYPE24753; t97434.s0.value.structure_type24753 = &t97435; /* x175687 stalin.sc:25197:870668 */ t97438.s0.tag = EXTERNAL_SYMBOL_TYPE; t97438.s0.value.external_symbol_type = q179; /* x175688 stalin.sc:25197:870668 */ t97439.s0.tag = STRING_TYPE; t97439.s0.value.string_type = "EOF while reading decimal number"; /* x175689 stalin.sc:25197:870668 */ t97439.s1.tag = NULL_TYPE; /* x175690 stalin.sc:25197:870668 */ t97438.s1.tag = STRUCTURE_TYPE24753; t97438.s1.value.structure_type24753 = &t97439; /* x175691 stalin.sc:25197:870668 */ t97437.s0.tag = STRUCTURE_TYPE24753; t97437.s0.value.structure_type24753 = &t97438; /* x175692 stalin.sc:25197:870668 */ t97437.s1.tag = NULL_TYPE; /* x175693 stalin.sc:25197:870668 */ t97434.s1.tag = STRUCTURE_TYPE24753; t97434.s1.value.structure_type24753 = &t97437; /* x175694 stalin.sc:25197:870668 */ t97433.s1.tag = STRUCTURE_TYPE24753; t97433.s1.value.structure_type24753 = &t97434; /* x175695 stalin.sc:25197:870668 */ t97432.s0.tag = STRUCTURE_TYPE24753; t97432.s0.value.structure_type24753 = &t97433; /* x175696 stalin.sc:25197:870668 */ t97441.s0.tag = EXTERNAL_SYMBOL_TYPE; t97441.s0.value.external_symbol_type = q240; /* x175697 stalin.sc:25197:870668 */ t97444.s0.tag = EXTERNAL_SYMBOL_TYPE; t97444.s0.value.external_symbol_type = q263; /* x175698 stalin.sc:25197:870668 */ t97445.s0.tag = EXTERNAL_SYMBOL_TYPE; t97445.s0.value.external_symbol_type = q275; /* x175699 stalin.sc:25197:870668 */ t97446.s0.tag = ((unsigned)((unsigned char)'+'))<<2; /* x175700 stalin.sc:25197:870668 */ t97446.s1.tag = NULL_TYPE; /* x175701 stalin.sc:25197:870668 */ t97445.s1.tag = STRUCTURE_TYPE24753; t97445.s1.value.structure_type24753 = &t97446; /* x175702 stalin.sc:25197:870668 */ t97444.s1.tag = STRUCTURE_TYPE24753; t97444.s1.value.structure_type24753 = &t97445; /* x175703 stalin.sc:25197:870668 */ t97443.s0.tag = STRUCTURE_TYPE24753; t97443.s0.value.structure_type24753 = &t97444; /* x175704 stalin.sc:25197:870668 */ t97448.s0.tag = EXTERNAL_SYMBOL_TYPE; t97448.s0.value.external_symbol_type = q242; /* x175705 stalin.sc:25197:870668 */ t97451.s0.tag = EXTERNAL_SYMBOL_TYPE; t97451.s0.value.external_symbol_type = q297; /* x175706 stalin.sc:25197:870668 */ t97453.s0.tag = EXTERNAL_SYMBOL_TYPE; t97453.s0.value.external_symbol_type = q264; /* x175707 stalin.sc:25197:870668 */ t97454.s0.tag = EXTERNAL_SYMBOL_TYPE; t97454.s0.value.external_symbol_type = q254; /* x175708 stalin.sc:25197:870668 */ t97454.s1.tag = NULL_TYPE; /* x175709 stalin.sc:25197:870668 */ t97453.s1.tag = STRUCTURE_TYPE24753; t97453.s1.value.structure_type24753 = &t97454; /* x175710 stalin.sc:25197:870668 */ t97452.s0.tag = STRUCTURE_TYPE24753; t97452.s0.value.structure_type24753 = &t97453; /* x175711 stalin.sc:25197:870668 */ t97452.s1.tag = NULL_TYPE; /* x175712 stalin.sc:25197:870668 */ t97451.s1.tag = STRUCTURE_TYPE24753; t97451.s1.value.structure_type24753 = &t97452; /* x175713 stalin.sc:25197:870668 */ t97450.s0.tag = STRUCTURE_TYPE24753; t97450.s0.value.structure_type24753 = &t97451; /* x175714 stalin.sc:25197:870668 */ t97450.s1.tag = NULL_TYPE; /* x175715 stalin.sc:25197:870668 */ t97449.s0.tag = STRUCTURE_TYPE24753; t97449.s0.value.structure_type24753 = &t97450; /* x175716 stalin.sc:25197:870668 */ t97456.s0.tag = EXTERNAL_SYMBOL_TYPE; t97456.s0.value.external_symbol_type = q43; /* x175717 stalin.sc:25197:870668 */ t97458.s0.tag = EXTERNAL_SYMBOL_TYPE; t97458.s0.value.external_symbol_type = q178; /* x175718 stalin.sc:25197:870668 */ t97459.s0.tag = EXTERNAL_SYMBOL_TYPE; t97459.s0.value.external_symbol_type = q297; /* x175719 stalin.sc:25197:870668 */ t97459.s1.tag = NULL_TYPE; /* x175720 stalin.sc:25197:870668 */ t97458.s1.tag = STRUCTURE_TYPE24753; t97458.s1.value.structure_type24753 = &t97459; /* x175721 stalin.sc:25197:870668 */ t97457.s0.tag = STRUCTURE_TYPE24753; t97457.s0.value.structure_type24753 = &t97458; /* x175722 stalin.sc:25197:870668 */ t97461.s0.tag = EXTERNAL_SYMBOL_TYPE; t97461.s0.value.external_symbol_type = q179; /* x175723 stalin.sc:25197:870668 */ t97462.s0.tag = STRING_TYPE; t97462.s0.value.string_type = "EOF while reading decimal number"; /* x175724 stalin.sc:25197:870668 */ t97462.s1.tag = NULL_TYPE; /* x175725 stalin.sc:25197:870668 */ t97461.s1.tag = STRUCTURE_TYPE24753; t97461.s1.value.structure_type24753 = &t97462; /* x175726 stalin.sc:25197:870668 */ t97460.s0.tag = STRUCTURE_TYPE24753; t97460.s0.value.structure_type24753 = &t97461; /* x175727 stalin.sc:25197:870668 */ t97460.s1.tag = NULL_TYPE; /* x175728 stalin.sc:25197:870668 */ t97457.s1.tag = STRUCTURE_TYPE24753; t97457.s1.value.structure_type24753 = &t97460; /* x175729 stalin.sc:25197:870668 */ t97456.s1.tag = STRUCTURE_TYPE24753; t97456.s1.value.structure_type24753 = &t97457; /* x175730 stalin.sc:25197:870668 */ t97455.s0.tag = STRUCTURE_TYPE24753; t97455.s0.value.structure_type24753 = &t97456; /* x175731 stalin.sc:25197:870668 */ t97464.s0.tag = EXTERNAL_SYMBOL_TYPE; t97464.s0.value.external_symbol_type = q240; /* x175732 stalin.sc:25197:870668 */ t97467.s0.tag = EXTERNAL_SYMBOL_TYPE; t97467.s0.value.external_symbol_type = q269; /* x175733 stalin.sc:25197:870668 */ t97468.s0.tag = EXTERNAL_SYMBOL_TYPE; t97468.s0.value.external_symbol_type = q297; /* x175734 stalin.sc:25197:870668 */ t97468.s1.tag = NULL_TYPE; /* x175735 stalin.sc:25197:870668 */ t97467.s1.tag = STRUCTURE_TYPE24753; t97467.s1.value.structure_type24753 = &t97468; /* x175736 stalin.sc:25197:870668 */ t97466.s0.tag = STRUCTURE_TYPE24753; t97466.s0.value.structure_type24753 = &t97467; /* x175737 stalin.sc:25197:870668 */ t97470.s0.tag = EXTERNAL_SYMBOL_TYPE; t97470.s0.value.external_symbol_type = q276; /* x175738 stalin.sc:25197:870668 */ t97472.s0.tag = EXTERNAL_SYMBOL_TYPE; t97472.s0.value.external_symbol_type = q2; /* x175739 stalin.sc:25197:870668 */ t97474.s0.tag = EXTERNAL_SYMBOL_TYPE; t97474.s0.value.external_symbol_type = q157; /* x175740 stalin.sc:25197:870668 */ t97475.s0.tag = EXTERNAL_SYMBOL_TYPE; t97475.s0.value.external_symbol_type = q297; /* x175741 stalin.sc:25197:870668 */ t97475.s1.tag = NULL_TYPE; /* x175742 stalin.sc:25197:870668 */ t97474.s1.tag = STRUCTURE_TYPE24753; t97474.s1.value.structure_type24753 = &t97475; /* x175743 stalin.sc:25197:870668 */ t97473.s0.tag = STRUCTURE_TYPE24753; t97473.s0.value.structure_type24753 = &t97474; /* x175744 stalin.sc:25197:870668 */ t97477.s0.tag = EXTERNAL_SYMBOL_TYPE; t97477.s0.value.external_symbol_type = q157; /* x175745 stalin.sc:25197:870668 */ t97478.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x175746 stalin.sc:25197:870668 */ t97478.s1.tag = NULL_TYPE; /* x175747 stalin.sc:25197:870668 */ t97477.s1.tag = STRUCTURE_TYPE24753; t97477.s1.value.structure_type24753 = &t97478; /* x175748 stalin.sc:25197:870668 */ t97476.s0.tag = STRUCTURE_TYPE24753; t97476.s0.value.structure_type24753 = &t97477; /* x175749 stalin.sc:25197:870668 */ t97476.s1.tag = NULL_TYPE; /* x175750 stalin.sc:25197:870668 */ t97473.s1.tag = STRUCTURE_TYPE24753; t97473.s1.value.structure_type24753 = &t97476; /* x175751 stalin.sc:25197:870668 */ t97472.s1.tag = STRUCTURE_TYPE24753; t97472.s1.value.structure_type24753 = &t97473; /* x175752 stalin.sc:25197:870668 */ t97471.s0.tag = STRUCTURE_TYPE24753; t97471.s0.value.structure_type24753 = &t97472; /* x175753 stalin.sc:25197:870668 */ t97471.s1.tag = NULL_TYPE; /* x175754 stalin.sc:25197:870668 */ t97470.s1.tag = STRUCTURE_TYPE24753; t97470.s1.value.structure_type24753 = &t97471; /* x175755 stalin.sc:25197:870668 */ t97469.s0.tag = STRUCTURE_TYPE24753; t97469.s0.value.structure_type24753 = &t97470; /* x175756 stalin.sc:25197:870668 */ t97469.s1.tag = NULL_TYPE; /* x175757 stalin.sc:25197:870668 */ t97466.s1.tag = STRUCTURE_TYPE24753; t97466.s1.value.structure_type24753 = &t97469; /* x175758 stalin.sc:25197:870668 */ t97465.s0.tag = STRUCTURE_TYPE24753; t97465.s0.value.structure_type24753 = &t97466; /* x175759 stalin.sc:25197:870668 */ t97481.s0.tag = EXTERNAL_SYMBOL_TYPE; t97481.s0.value.external_symbol_type = q263; /* x175760 stalin.sc:25197:870668 */ t97482.s0.tag = EXTERNAL_SYMBOL_TYPE; t97482.s0.value.external_symbol_type = q297; /* x175761 stalin.sc:25197:870668 */ t97483.s0.tag = ((unsigned)((unsigned char)'.'))<<2; /* x175762 stalin.sc:25197:870668 */ t97483.s1.tag = NULL_TYPE; /* x175763 stalin.sc:25197:870668 */ t97482.s1.tag = STRUCTURE_TYPE24753; t97482.s1.value.structure_type24753 = &t97483; /* x175764 stalin.sc:25197:870668 */ t97481.s1.tag = STRUCTURE_TYPE24753; t97481.s1.value.structure_type24753 = &t97482; /* x175765 stalin.sc:25197:870668 */ t97480.s0.tag = STRUCTURE_TYPE24753; t97480.s0.value.structure_type24753 = &t97481; /* x175766 stalin.sc:25197:870668 */ t97485.s0.tag = EXTERNAL_SYMBOL_TYPE; t97485.s0.value.external_symbol_type = q242; /* x175767 stalin.sc:25197:870668 */ t97488.s0.tag = EXTERNAL_SYMBOL_TYPE; t97488.s0.value.external_symbol_type = q300; /* x175768 stalin.sc:25197:870668 */ t97490.s0.tag = EXTERNAL_SYMBOL_TYPE; t97490.s0.value.external_symbol_type = q264; /* x175769 stalin.sc:25197:870668 */ t97491.s0.tag = EXTERNAL_SYMBOL_TYPE; t97491.s0.value.external_symbol_type = q254; /* x175770 stalin.sc:25197:870668 */ t97491.s1.tag = NULL_TYPE; /* x175771 stalin.sc:25197:870668 */ t97490.s1.tag = STRUCTURE_TYPE24753; t97490.s1.value.structure_type24753 = &t97491; /* x175772 stalin.sc:25197:870668 */ t97489.s0.tag = STRUCTURE_TYPE24753; t97489.s0.value.structure_type24753 = &t97490; /* x175773 stalin.sc:25197:870668 */ t97489.s1.tag = NULL_TYPE; /* x175774 stalin.sc:25197:870668 */ t97488.s1.tag = STRUCTURE_TYPE24753; t97488.s1.value.structure_type24753 = &t97489; /* x175775 stalin.sc:25197:870668 */ t97487.s0.tag = STRUCTURE_TYPE24753; t97487.s0.value.structure_type24753 = &t97488; /* x175776 stalin.sc:25197:870668 */ t97487.s1.tag = NULL_TYPE; /* x175777 stalin.sc:25197:870668 */ t97486.s0.tag = STRUCTURE_TYPE24753; t97486.s0.value.structure_type24753 = &t97487; /* x175778 stalin.sc:25197:870668 */ t97493.s0.tag = EXTERNAL_SYMBOL_TYPE; t97493.s0.value.external_symbol_type = q43; /* x175779 stalin.sc:25197:870668 */ t97495.s0.tag = EXTERNAL_SYMBOL_TYPE; t97495.s0.value.external_symbol_type = q178; /* x175780 stalin.sc:25197:870668 */ t97496.s0.tag = EXTERNAL_SYMBOL_TYPE; t97496.s0.value.external_symbol_type = q300; /* x175781 stalin.sc:25197:870668 */ t97496.s1.tag = NULL_TYPE; /* x175782 stalin.sc:25197:870668 */ t97495.s1.tag = STRUCTURE_TYPE24753; t97495.s1.value.structure_type24753 = &t97496; /* x175783 stalin.sc:25197:870668 */ t97494.s0.tag = STRUCTURE_TYPE24753; t97494.s0.value.structure_type24753 = &t97495; /* x175784 stalin.sc:25197:870668 */ t97498.s0.tag = EXTERNAL_SYMBOL_TYPE; t97498.s0.value.external_symbol_type = q179; /* x175785 stalin.sc:25197:870668 */ t97499.s0.tag = STRING_TYPE; t97499.s0.value.string_type = "EOF while reading decimal number"; /* x175786 stalin.sc:25197:870668 */ t97499.s1.tag = NULL_TYPE; /* x175787 stalin.sc:25197:870668 */ t97498.s1.tag = STRUCTURE_TYPE24753; t97498.s1.value.structure_type24753 = &t97499; /* x175788 stalin.sc:25197:870668 */ t97497.s0.tag = STRUCTURE_TYPE24753; t97497.s0.value.structure_type24753 = &t97498; /* x175789 stalin.sc:25197:870668 */ t97497.s1.tag = NULL_TYPE; /* x175790 stalin.sc:25197:870668 */ t97494.s1.tag = STRUCTURE_TYPE24753; t97494.s1.value.structure_type24753 = &t97497; /* x175791 stalin.sc:25197:870668 */ t97493.s1.tag = STRUCTURE_TYPE24753; t97493.s1.value.structure_type24753 = &t97494; /* x175792 stalin.sc:25197:870668 */ t97492.s0.tag = STRUCTURE_TYPE24753; t97492.s0.value.structure_type24753 = &t97493; /* x175793 stalin.sc:25197:870668 */ t97501.s0.tag = EXTERNAL_SYMBOL_TYPE; t97501.s0.value.external_symbol_type = q43; /* x175794 stalin.sc:25197:870668 */ t97503.s0.tag = EXTERNAL_SYMBOL_TYPE; t97503.s0.value.external_symbol_type = q102; /* x175795 stalin.sc:25197:870668 */ t97505.s0.tag = EXTERNAL_SYMBOL_TYPE; t97505.s0.value.external_symbol_type = q269; /* x175796 stalin.sc:25197:870668 */ t97506.s0.tag = EXTERNAL_SYMBOL_TYPE; t97506.s0.value.external_symbol_type = q300; /* x175797 stalin.sc:25197:870668 */ t97506.s1.tag = NULL_TYPE; /* x175798 stalin.sc:25197:870668 */ t97505.s1.tag = STRUCTURE_TYPE24753; t97505.s1.value.structure_type24753 = &t97506; /* x175799 stalin.sc:25197:870668 */ t97504.s0.tag = STRUCTURE_TYPE24753; t97504.s0.value.structure_type24753 = &t97505; /* x175800 stalin.sc:25197:870668 */ t97504.s1.tag = NULL_TYPE; /* x175801 stalin.sc:25197:870668 */ t97503.s1.tag = STRUCTURE_TYPE24753; t97503.s1.value.structure_type24753 = &t97504; /* x175802 stalin.sc:25197:870668 */ t97502.s0.tag = STRUCTURE_TYPE24753; t97502.s0.value.structure_type24753 = &t97503; /* x175803 stalin.sc:25197:870668 */ t97508.s0.tag = EXTERNAL_SYMBOL_TYPE; t97508.s0.value.external_symbol_type = q179; /* x175804 stalin.sc:25197:870668 */ t97509.s0.tag = STRING_TYPE; t97509.s0.value.string_type = "Unfinished decimal number"; /* x175805 stalin.sc:25197:870668 */ t97509.s1.tag = NULL_TYPE; /* x175806 stalin.sc:25197:870668 */ t97508.s1.tag = STRUCTURE_TYPE24753; t97508.s1.value.structure_type24753 = &t97509; /* x175807 stalin.sc:25197:870668 */ t97507.s0.tag = STRUCTURE_TYPE24753; t97507.s0.value.structure_type24753 = &t97508; /* x175808 stalin.sc:25197:870668 */ t97507.s1.tag = NULL_TYPE; /* x175809 stalin.sc:25197:870668 */ t97502.s1.tag = STRUCTURE_TYPE24753; t97502.s1.value.structure_type24753 = &t97507; /* x175810 stalin.sc:25197:870668 */ t97501.s1.tag = STRUCTURE_TYPE24753; t97501.s1.value.structure_type24753 = &t97502; /* x175811 stalin.sc:25197:870668 */ t97500.s0.tag = STRUCTURE_TYPE24753; t97500.s0.value.structure_type24753 = &t97501; /* x175812 stalin.sc:25197:870668 */ t97511.s0.tag = EXTERNAL_SYMBOL_TYPE; t97511.s0.value.external_symbol_type = q271; /* x175813 stalin.sc:25197:870668 */ t97513.s0.tag = EXTERNAL_SYMBOL_TYPE; t97513.s0.value.external_symbol_type = q131; /* x175814 stalin.sc:25197:870668 */ t97515.s0.tag = EXTERNAL_SYMBOL_TYPE; t97515.s0.value.external_symbol_type = q2; /* x175815 stalin.sc:25197:870668 */ t97517.s0.tag = EXTERNAL_SYMBOL_TYPE; t97517.s0.value.external_symbol_type = q157; /* x175816 stalin.sc:25197:870668 */ t97518.s0.tag = EXTERNAL_SYMBOL_TYPE; t97518.s0.value.external_symbol_type = q300; /* x175817 stalin.sc:25197:870668 */ t97518.s1.tag = NULL_TYPE; /* x175818 stalin.sc:25197:870668 */ t97517.s1.tag = STRUCTURE_TYPE24753; t97517.s1.value.structure_type24753 = &t97518; /* x175819 stalin.sc:25197:870668 */ t97516.s0.tag = STRUCTURE_TYPE24753; t97516.s0.value.structure_type24753 = &t97517; /* x175820 stalin.sc:25197:870668 */ t97520.s0.tag = EXTERNAL_SYMBOL_TYPE; t97520.s0.value.external_symbol_type = q157; /* x175821 stalin.sc:25197:870668 */ t97521.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x175822 stalin.sc:25197:870668 */ t97521.s1.tag = NULL_TYPE; /* x175823 stalin.sc:25197:870668 */ t97520.s1.tag = STRUCTURE_TYPE24753; t97520.s1.value.structure_type24753 = &t97521; /* x175824 stalin.sc:25197:870668 */ t97519.s0.tag = STRUCTURE_TYPE24753; t97519.s0.value.structure_type24753 = &t97520; /* x175825 stalin.sc:25197:870668 */ t97519.s1.tag = NULL_TYPE; /* x175826 stalin.sc:25197:870668 */ t97516.s1.tag = STRUCTURE_TYPE24753; t97516.s1.value.structure_type24753 = &t97519; /* x175827 stalin.sc:25197:870668 */ t97515.s1.tag = STRUCTURE_TYPE24753; t97515.s1.value.structure_type24753 = &t97516; /* x175828 stalin.sc:25197:870668 */ t97514.s0.tag = STRUCTURE_TYPE24753; t97514.s0.value.structure_type24753 = &t97515; /* x175829 stalin.sc:25197:870668 */ t97522.s0.tag = FLONUM_TYPE; t97522.s0.value.flonum_type = 1.0e1; /* x175830 stalin.sc:25197:870668 */ t97522.s1.tag = NULL_TYPE; /* x175831 stalin.sc:25197:870668 */ t97514.s1.tag = STRUCTURE_TYPE24753; t97514.s1.value.structure_type24753 = &t97522; /* x175832 stalin.sc:25197:870668 */ t97513.s1.tag = STRUCTURE_TYPE24753; t97513.s1.value.structure_type24753 = &t97514; /* x175833 stalin.sc:25197:870668 */ t97512.s0.tag = STRUCTURE_TYPE24753; t97512.s0.value.structure_type24753 = &t97513; /* x175834 stalin.sc:25197:870668 */ t97523.s0.tag = FLONUM_TYPE; t97523.s0.value.flonum_type = 1.0e2; /* x175835 stalin.sc:25197:870668 */ t97523.s1.tag = NULL_TYPE; /* x175836 stalin.sc:25197:870668 */ t97512.s1.tag = STRUCTURE_TYPE24753; t97512.s1.value.structure_type24753 = &t97523; /* x175837 stalin.sc:25197:870668 */ t97511.s1.tag = STRUCTURE_TYPE24753; t97511.s1.value.structure_type24753 = &t97512; /* x175838 stalin.sc:25197:870668 */ t97510.s0.tag = STRUCTURE_TYPE24753; t97510.s0.value.structure_type24753 = &t97511; /* x175839 stalin.sc:25197:870668 */ t97510.s1.tag = NULL_TYPE; /* x175840 stalin.sc:25197:870668 */ t97500.s1.tag = STRUCTURE_TYPE24753; t97500.s1.value.structure_type24753 = &t97510; /* x175841 stalin.sc:25197:870668 */ t97492.s1.tag = STRUCTURE_TYPE24753; t97492.s1.value.structure_type24753 = &t97500; /* x175842 stalin.sc:25197:870668 */ t97486.s1.tag = STRUCTURE_TYPE24753; t97486.s1.value.structure_type24753 = &t97492; /* x175843 stalin.sc:25197:870668 */ t97485.s1.tag = STRUCTURE_TYPE24753; t97485.s1.value.structure_type24753 = &t97486; /* x175844 stalin.sc:25197:870668 */ t97484.s0.tag = STRUCTURE_TYPE24753; t97484.s0.value.structure_type24753 = &t97485; /* x175845 stalin.sc:25197:870668 */ t97484.s1.tag = NULL_TYPE; /* x175846 stalin.sc:25197:870668 */ t97480.s1.tag = STRUCTURE_TYPE24753; t97480.s1.value.structure_type24753 = &t97484; /* x175847 stalin.sc:25197:870668 */ t97479.s0.tag = STRUCTURE_TYPE24753; t97479.s0.value.structure_type24753 = &t97480; /* x175848 stalin.sc:25197:870668 */ t97525.s0.tag = EXTERNAL_SYMBOL_TYPE; t97525.s0.value.external_symbol_type = q95; /* x175849 stalin.sc:25197:870668 */ t97527.s0.tag = EXTERNAL_SYMBOL_TYPE; t97527.s0.value.external_symbol_type = q179; /* x175850 stalin.sc:25197:870668 */ t97528.s0.tag = STRING_TYPE; t97528.s0.value.string_type = "Unfinished decimal number"; /* x175851 stalin.sc:25197:870668 */ t97528.s1.tag = NULL_TYPE; /* x175852 stalin.sc:25197:870668 */ t97527.s1.tag = STRUCTURE_TYPE24753; t97527.s1.value.structure_type24753 = &t97528; /* x175853 stalin.sc:25197:870668 */ t97526.s0.tag = STRUCTURE_TYPE24753; t97526.s0.value.structure_type24753 = &t97527; /* x175854 stalin.sc:25197:870668 */ t97526.s1.tag = NULL_TYPE; /* x175855 stalin.sc:25197:870668 */ t97525.s1.tag = STRUCTURE_TYPE24753; t97525.s1.value.structure_type24753 = &t97526; /* x175856 stalin.sc:25197:870668 */ t97524.s0.tag = STRUCTURE_TYPE24753; t97524.s0.value.structure_type24753 = &t97525; /* x175857 stalin.sc:25197:870668 */ t97524.s1.tag = NULL_TYPE; /* x175858 stalin.sc:25197:870668 */ t97479.s1.tag = STRUCTURE_TYPE24753; t97479.s1.value.structure_type24753 = &t97524; /* x175859 stalin.sc:25197:870668 */ t97465.s1.tag = STRUCTURE_TYPE24753; t97465.s1.value.structure_type24753 = &t97479; /* x175860 stalin.sc:25197:870668 */ t97464.s1.tag = STRUCTURE_TYPE24753; t97464.s1.value.structure_type24753 = &t97465; /* x175861 stalin.sc:25197:870668 */ t97463.s0.tag = STRUCTURE_TYPE24753; t97463.s0.value.structure_type24753 = &t97464; /* x175862 stalin.sc:25197:870668 */ t97463.s1.tag = NULL_TYPE; /* x175863 stalin.sc:25197:870668 */ t97455.s1.tag = STRUCTURE_TYPE24753; t97455.s1.value.structure_type24753 = &t97463; /* x175864 stalin.sc:25197:870668 */ t97449.s1.tag = STRUCTURE_TYPE24753; t97449.s1.value.structure_type24753 = &t97455; /* x175865 stalin.sc:25197:870668 */ t97448.s1.tag = STRUCTURE_TYPE24753; t97448.s1.value.structure_type24753 = &t97449; /* x175866 stalin.sc:25197:870668 */ t97447.s0.tag = STRUCTURE_TYPE24753; t97447.s0.value.structure_type24753 = &t97448; /* x175867 stalin.sc:25197:870668 */ t97447.s1.tag = NULL_TYPE; /* x175868 stalin.sc:25197:870668 */ t97443.s1.tag = STRUCTURE_TYPE24753; t97443.s1.value.structure_type24753 = &t97447; /* x175869 stalin.sc:25197:870668 */ t97442.s0.tag = STRUCTURE_TYPE24753; t97442.s0.value.structure_type24753 = &t97443; /* x175870 stalin.sc:25197:870668 */ t97531.s0.tag = EXTERNAL_SYMBOL_TYPE; t97531.s0.value.external_symbol_type = q263; /* x175871 stalin.sc:25197:870668 */ t97532.s0.tag = EXTERNAL_SYMBOL_TYPE; t97532.s0.value.external_symbol_type = q275; /* x175872 stalin.sc:25197:870668 */ t97533.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x175873 stalin.sc:25197:870668 */ t97533.s1.tag = NULL_TYPE; /* x175874 stalin.sc:25197:870668 */ t97532.s1.tag = STRUCTURE_TYPE24753; t97532.s1.value.structure_type24753 = &t97533; /* x175875 stalin.sc:25197:870668 */ t97531.s1.tag = STRUCTURE_TYPE24753; t97531.s1.value.structure_type24753 = &t97532; /* x175876 stalin.sc:25197:870668 */ t97530.s0.tag = STRUCTURE_TYPE24753; t97530.s0.value.structure_type24753 = &t97531; /* x175877 stalin.sc:25197:870668 */ t97535.s0.tag = EXTERNAL_SYMBOL_TYPE; t97535.s0.value.external_symbol_type = q242; /* x175878 stalin.sc:25197:870668 */ t97538.s0.tag = EXTERNAL_SYMBOL_TYPE; t97538.s0.value.external_symbol_type = q297; /* x175879 stalin.sc:25197:870668 */ t97540.s0.tag = EXTERNAL_SYMBOL_TYPE; t97540.s0.value.external_symbol_type = q264; /* x175880 stalin.sc:25197:870668 */ t97541.s0.tag = EXTERNAL_SYMBOL_TYPE; t97541.s0.value.external_symbol_type = q254; /* x175881 stalin.sc:25197:870668 */ t97541.s1.tag = NULL_TYPE; /* x175882 stalin.sc:25197:870668 */ t97540.s1.tag = STRUCTURE_TYPE24753; t97540.s1.value.structure_type24753 = &t97541; /* x175883 stalin.sc:25197:870668 */ t97539.s0.tag = STRUCTURE_TYPE24753; t97539.s0.value.structure_type24753 = &t97540; /* x175884 stalin.sc:25197:870668 */ t97539.s1.tag = NULL_TYPE; /* x175885 stalin.sc:25197:870668 */ t97538.s1.tag = STRUCTURE_TYPE24753; t97538.s1.value.structure_type24753 = &t97539; /* x175886 stalin.sc:25197:870668 */ t97537.s0.tag = STRUCTURE_TYPE24753; t97537.s0.value.structure_type24753 = &t97538; /* x175887 stalin.sc:25197:870668 */ t97537.s1.tag = NULL_TYPE; /* x175888 stalin.sc:25197:870668 */ t97536.s0.tag = STRUCTURE_TYPE24753; t97536.s0.value.structure_type24753 = &t97537; /* x175889 stalin.sc:25197:870668 */ t97543.s0.tag = EXTERNAL_SYMBOL_TYPE; t97543.s0.value.external_symbol_type = q43; /* x175890 stalin.sc:25197:870668 */ t97545.s0.tag = EXTERNAL_SYMBOL_TYPE; t97545.s0.value.external_symbol_type = q178; /* x175891 stalin.sc:25197:870668 */ t97546.s0.tag = EXTERNAL_SYMBOL_TYPE; t97546.s0.value.external_symbol_type = q297; /* x175892 stalin.sc:25197:870668 */ t97546.s1.tag = NULL_TYPE; /* x175893 stalin.sc:25197:870668 */ t97545.s1.tag = STRUCTURE_TYPE24753; t97545.s1.value.structure_type24753 = &t97546; /* x175894 stalin.sc:25197:870668 */ t97544.s0.tag = STRUCTURE_TYPE24753; t97544.s0.value.structure_type24753 = &t97545; /* x175895 stalin.sc:25197:870668 */ t97548.s0.tag = EXTERNAL_SYMBOL_TYPE; t97548.s0.value.external_symbol_type = q179; /* x175896 stalin.sc:25197:870668 */ t97549.s0.tag = STRING_TYPE; t97549.s0.value.string_type = "EOF while reading decimal number"; /* x175897 stalin.sc:25197:870668 */ t97549.s1.tag = NULL_TYPE; /* x175898 stalin.sc:25197:870668 */ t97548.s1.tag = STRUCTURE_TYPE24753; t97548.s1.value.structure_type24753 = &t97549; /* x175899 stalin.sc:25197:870668 */ t97547.s0.tag = STRUCTURE_TYPE24753; t97547.s0.value.structure_type24753 = &t97548; /* x175900 stalin.sc:25197:870668 */ t97547.s1.tag = NULL_TYPE; /* x175901 stalin.sc:25197:870668 */ t97544.s1.tag = STRUCTURE_TYPE24753; t97544.s1.value.structure_type24753 = &t97547; /* x175902 stalin.sc:25197:870668 */ t97543.s1.tag = STRUCTURE_TYPE24753; t97543.s1.value.structure_type24753 = &t97544; /* x175903 stalin.sc:25197:870668 */ t97542.s0.tag = STRUCTURE_TYPE24753; t97542.s0.value.structure_type24753 = &t97543; /* x175904 stalin.sc:25197:870668 */ t97551.s0.tag = EXTERNAL_SYMBOL_TYPE; t97551.s0.value.external_symbol_type = q240; /* x175905 stalin.sc:25197:870668 */ t97554.s0.tag = EXTERNAL_SYMBOL_TYPE; t97554.s0.value.external_symbol_type = q269; /* x175906 stalin.sc:25197:870668 */ t97555.s0.tag = EXTERNAL_SYMBOL_TYPE; t97555.s0.value.external_symbol_type = q297; /* x175907 stalin.sc:25197:870668 */ t97555.s1.tag = NULL_TYPE; /* x175908 stalin.sc:25197:870668 */ t97554.s1.tag = STRUCTURE_TYPE24753; t97554.s1.value.structure_type24753 = &t97555; /* x175909 stalin.sc:25197:870668 */ t97553.s0.tag = STRUCTURE_TYPE24753; t97553.s0.value.structure_type24753 = &t97554; /* x175910 stalin.sc:25197:870668 */ t97557.s0.tag = EXTERNAL_SYMBOL_TYPE; t97557.s0.value.external_symbol_type = q2; /* x175911 stalin.sc:25197:870668 */ t97559.s0.tag = EXTERNAL_SYMBOL_TYPE; t97559.s0.value.external_symbol_type = q276; /* x175912 stalin.sc:25197:870668 */ t97561.s0.tag = EXTERNAL_SYMBOL_TYPE; t97561.s0.value.external_symbol_type = q2; /* x175913 stalin.sc:25197:870668 */ t97563.s0.tag = EXTERNAL_SYMBOL_TYPE; t97563.s0.value.external_symbol_type = q157; /* x175914 stalin.sc:25197:870668 */ t97564.s0.tag = EXTERNAL_SYMBOL_TYPE; t97564.s0.value.external_symbol_type = q297; /* x175915 stalin.sc:25197:870668 */ t97564.s1.tag = NULL_TYPE; /* x175916 stalin.sc:25197:870668 */ t97563.s1.tag = STRUCTURE_TYPE24753; t97563.s1.value.structure_type24753 = &t97564; /* x175917 stalin.sc:25197:870668 */ t97562.s0.tag = STRUCTURE_TYPE24753; t97562.s0.value.structure_type24753 = &t97563; /* x175918 stalin.sc:25197:870668 */ t97566.s0.tag = EXTERNAL_SYMBOL_TYPE; t97566.s0.value.external_symbol_type = q157; /* x175919 stalin.sc:25197:870668 */ t97567.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x175920 stalin.sc:25197:870668 */ t97567.s1.tag = NULL_TYPE; /* x175921 stalin.sc:25197:870668 */ t97566.s1.tag = STRUCTURE_TYPE24753; t97566.s1.value.structure_type24753 = &t97567; /* x175922 stalin.sc:25197:870668 */ t97565.s0.tag = STRUCTURE_TYPE24753; t97565.s0.value.structure_type24753 = &t97566; /* x175923 stalin.sc:25197:870668 */ t97565.s1.tag = NULL_TYPE; /* x175924 stalin.sc:25197:870668 */ t97562.s1.tag = STRUCTURE_TYPE24753; t97562.s1.value.structure_type24753 = &t97565; /* x175925 stalin.sc:25197:870668 */ t97561.s1.tag = STRUCTURE_TYPE24753; t97561.s1.value.structure_type24753 = &t97562; /* x175926 stalin.sc:25197:870668 */ t97560.s0.tag = STRUCTURE_TYPE24753; t97560.s0.value.structure_type24753 = &t97561; /* x175927 stalin.sc:25197:870668 */ t97560.s1.tag = NULL_TYPE; /* x175928 stalin.sc:25197:870668 */ t97559.s1.tag = STRUCTURE_TYPE24753; t97559.s1.value.structure_type24753 = &t97560; /* x175929 stalin.sc:25197:870668 */ t97558.s0.tag = STRUCTURE_TYPE24753; t97558.s0.value.structure_type24753 = &t97559; /* x175930 stalin.sc:25197:870668 */ t97558.s1.tag = NULL_TYPE; /* x175931 stalin.sc:25197:870668 */ t97557.s1.tag = STRUCTURE_TYPE24753; t97557.s1.value.structure_type24753 = &t97558; /* x175932 stalin.sc:25197:870668 */ t97556.s0.tag = STRUCTURE_TYPE24753; t97556.s0.value.structure_type24753 = &t97557; /* x175933 stalin.sc:25197:870668 */ t97556.s1.tag = NULL_TYPE; /* x175934 stalin.sc:25197:870668 */ t97553.s1.tag = STRUCTURE_TYPE24753; t97553.s1.value.structure_type24753 = &t97556; /* x175935 stalin.sc:25197:870668 */ t97552.s0.tag = STRUCTURE_TYPE24753; t97552.s0.value.structure_type24753 = &t97553; /* x175936 stalin.sc:25197:870668 */ t97570.s0.tag = EXTERNAL_SYMBOL_TYPE; t97570.s0.value.external_symbol_type = q263; /* x175937 stalin.sc:25197:870668 */ t97571.s0.tag = EXTERNAL_SYMBOL_TYPE; t97571.s0.value.external_symbol_type = q297; /* x175938 stalin.sc:25197:870668 */ t97572.s0.tag = ((unsigned)((unsigned char)'.'))<<2; /* x175939 stalin.sc:25197:870668 */ t97572.s1.tag = NULL_TYPE; /* x175940 stalin.sc:25197:870668 */ t97571.s1.tag = STRUCTURE_TYPE24753; t97571.s1.value.structure_type24753 = &t97572; /* x175941 stalin.sc:25197:870668 */ t97570.s1.tag = STRUCTURE_TYPE24753; t97570.s1.value.structure_type24753 = &t97571; /* x175942 stalin.sc:25197:870668 */ t97569.s0.tag = STRUCTURE_TYPE24753; t97569.s0.value.structure_type24753 = &t97570; /* x175943 stalin.sc:25197:870668 */ t97574.s0.tag = EXTERNAL_SYMBOL_TYPE; t97574.s0.value.external_symbol_type = q242; /* x175944 stalin.sc:25197:870668 */ t97577.s0.tag = EXTERNAL_SYMBOL_TYPE; t97577.s0.value.external_symbol_type = q300; /* x175945 stalin.sc:25197:870668 */ t97579.s0.tag = EXTERNAL_SYMBOL_TYPE; t97579.s0.value.external_symbol_type = q264; /* x175946 stalin.sc:25197:870668 */ t97580.s0.tag = EXTERNAL_SYMBOL_TYPE; t97580.s0.value.external_symbol_type = q254; /* x175947 stalin.sc:25197:870668 */ t97580.s1.tag = NULL_TYPE; /* x175948 stalin.sc:25197:870668 */ t97579.s1.tag = STRUCTURE_TYPE24753; t97579.s1.value.structure_type24753 = &t97580; /* x175949 stalin.sc:25197:870668 */ t97578.s0.tag = STRUCTURE_TYPE24753; t97578.s0.value.structure_type24753 = &t97579; /* x175950 stalin.sc:25197:870668 */ t97578.s1.tag = NULL_TYPE; /* x175951 stalin.sc:25197:870668 */ t97577.s1.tag = STRUCTURE_TYPE24753; t97577.s1.value.structure_type24753 = &t97578; /* x175952 stalin.sc:25197:870668 */ t97576.s0.tag = STRUCTURE_TYPE24753; t97576.s0.value.structure_type24753 = &t97577; /* x175953 stalin.sc:25197:870668 */ t97576.s1.tag = NULL_TYPE; /* x175954 stalin.sc:25197:870668 */ t97575.s0.tag = STRUCTURE_TYPE24753; t97575.s0.value.structure_type24753 = &t97576; /* x175955 stalin.sc:25197:870668 */ t97582.s0.tag = EXTERNAL_SYMBOL_TYPE; t97582.s0.value.external_symbol_type = q43; /* x175956 stalin.sc:25197:870668 */ t97584.s0.tag = EXTERNAL_SYMBOL_TYPE; t97584.s0.value.external_symbol_type = q178; /* x175957 stalin.sc:25197:870668 */ t97585.s0.tag = EXTERNAL_SYMBOL_TYPE; t97585.s0.value.external_symbol_type = q300; /* x175958 stalin.sc:25197:870668 */ t97585.s1.tag = NULL_TYPE; /* x175959 stalin.sc:25197:870668 */ t97584.s1.tag = STRUCTURE_TYPE24753; t97584.s1.value.structure_type24753 = &t97585; /* x175960 stalin.sc:25197:870668 */ t97583.s0.tag = STRUCTURE_TYPE24753; t97583.s0.value.structure_type24753 = &t97584; /* x175961 stalin.sc:25197:870668 */ t97587.s0.tag = EXTERNAL_SYMBOL_TYPE; t97587.s0.value.external_symbol_type = q179; /* x175962 stalin.sc:25197:870668 */ t97588.s0.tag = STRING_TYPE; t97588.s0.value.string_type = "EOF while reading decimal number"; /* x175963 stalin.sc:25197:870668 */ t97588.s1.tag = NULL_TYPE; /* x175964 stalin.sc:25197:870668 */ t97587.s1.tag = STRUCTURE_TYPE24753; t97587.s1.value.structure_type24753 = &t97588; /* x175965 stalin.sc:25197:870668 */ t97586.s0.tag = STRUCTURE_TYPE24753; t97586.s0.value.structure_type24753 = &t97587; /* x175966 stalin.sc:25197:870668 */ t97586.s1.tag = NULL_TYPE; /* x175967 stalin.sc:25197:870668 */ t97583.s1.tag = STRUCTURE_TYPE24753; t97583.s1.value.structure_type24753 = &t97586; /* x175968 stalin.sc:25197:870668 */ t97582.s1.tag = STRUCTURE_TYPE24753; t97582.s1.value.structure_type24753 = &t97583; /* x175969 stalin.sc:25197:870668 */ t97581.s0.tag = STRUCTURE_TYPE24753; t97581.s0.value.structure_type24753 = &t97582; /* x175970 stalin.sc:25197:870668 */ t97590.s0.tag = EXTERNAL_SYMBOL_TYPE; t97590.s0.value.external_symbol_type = q43; /* x175971 stalin.sc:25197:870668 */ t97592.s0.tag = EXTERNAL_SYMBOL_TYPE; t97592.s0.value.external_symbol_type = q102; /* x175972 stalin.sc:25197:870668 */ t97594.s0.tag = EXTERNAL_SYMBOL_TYPE; t97594.s0.value.external_symbol_type = q269; /* x175973 stalin.sc:25197:870668 */ t97595.s0.tag = EXTERNAL_SYMBOL_TYPE; t97595.s0.value.external_symbol_type = q300; /* x175974 stalin.sc:25197:870668 */ t97595.s1.tag = NULL_TYPE; /* x175975 stalin.sc:25197:870668 */ t97594.s1.tag = STRUCTURE_TYPE24753; t97594.s1.value.structure_type24753 = &t97595; /* x175976 stalin.sc:25197:870668 */ t97593.s0.tag = STRUCTURE_TYPE24753; t97593.s0.value.structure_type24753 = &t97594; /* x175977 stalin.sc:25197:870668 */ t97593.s1.tag = NULL_TYPE; /* x175978 stalin.sc:25197:870668 */ t97592.s1.tag = STRUCTURE_TYPE24753; t97592.s1.value.structure_type24753 = &t97593; /* x175979 stalin.sc:25197:870668 */ t97591.s0.tag = STRUCTURE_TYPE24753; t97591.s0.value.structure_type24753 = &t97592; /* x175980 stalin.sc:25197:870668 */ t97597.s0.tag = EXTERNAL_SYMBOL_TYPE; t97597.s0.value.external_symbol_type = q179; /* x175981 stalin.sc:25197:870668 */ t97598.s0.tag = STRING_TYPE; t97598.s0.value.string_type = "Unfinished decimal number"; /* x175982 stalin.sc:25197:870668 */ t97598.s1.tag = NULL_TYPE; /* x175983 stalin.sc:25197:870668 */ t97597.s1.tag = STRUCTURE_TYPE24753; t97597.s1.value.structure_type24753 = &t97598; /* x175984 stalin.sc:25197:870668 */ t97596.s0.tag = STRUCTURE_TYPE24753; t97596.s0.value.structure_type24753 = &t97597; /* x175985 stalin.sc:25197:870668 */ t97596.s1.tag = NULL_TYPE; /* x175986 stalin.sc:25197:870668 */ t97591.s1.tag = STRUCTURE_TYPE24753; t97591.s1.value.structure_type24753 = &t97596; /* x175987 stalin.sc:25197:870668 */ t97590.s1.tag = STRUCTURE_TYPE24753; t97590.s1.value.structure_type24753 = &t97591; /* x175988 stalin.sc:25197:870668 */ t97589.s0.tag = STRUCTURE_TYPE24753; t97589.s0.value.structure_type24753 = &t97590; /* x175989 stalin.sc:25197:870668 */ t97600.s0.tag = EXTERNAL_SYMBOL_TYPE; t97600.s0.value.external_symbol_type = q2; /* x175990 stalin.sc:25197:870668 */ t97602.s0.tag = EXTERNAL_SYMBOL_TYPE; t97602.s0.value.external_symbol_type = q271; /* x175991 stalin.sc:25197:870668 */ t97604.s0.tag = EXTERNAL_SYMBOL_TYPE; t97604.s0.value.external_symbol_type = q131; /* x175992 stalin.sc:25197:870668 */ t97606.s0.tag = EXTERNAL_SYMBOL_TYPE; t97606.s0.value.external_symbol_type = q2; /* x175993 stalin.sc:25197:870668 */ t97608.s0.tag = EXTERNAL_SYMBOL_TYPE; t97608.s0.value.external_symbol_type = q157; /* x175994 stalin.sc:25197:870668 */ t97609.s0.tag = EXTERNAL_SYMBOL_TYPE; t97609.s0.value.external_symbol_type = q300; /* x175995 stalin.sc:25197:870668 */ t97609.s1.tag = NULL_TYPE; /* x175996 stalin.sc:25197:870668 */ t97608.s1.tag = STRUCTURE_TYPE24753; t97608.s1.value.structure_type24753 = &t97609; /* x175997 stalin.sc:25197:870668 */ t97607.s0.tag = STRUCTURE_TYPE24753; t97607.s0.value.structure_type24753 = &t97608; /* x175998 stalin.sc:25197:870668 */ t97611.s0.tag = EXTERNAL_SYMBOL_TYPE; t97611.s0.value.external_symbol_type = q157; /* x175999 stalin.sc:25197:870668 */ t97612.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x176000 stalin.sc:25197:870668 */ t97612.s1.tag = NULL_TYPE; /* x176001 stalin.sc:25197:870668 */ t97611.s1.tag = STRUCTURE_TYPE24753; t97611.s1.value.structure_type24753 = &t97612; /* x176002 stalin.sc:25197:870668 */ t97610.s0.tag = STRUCTURE_TYPE24753; t97610.s0.value.structure_type24753 = &t97611; /* x176003 stalin.sc:25197:870668 */ t97610.s1.tag = NULL_TYPE; /* x176004 stalin.sc:25197:870668 */ t97607.s1.tag = STRUCTURE_TYPE24753; t97607.s1.value.structure_type24753 = &t97610; /* x176005 stalin.sc:25197:870668 */ t97606.s1.tag = STRUCTURE_TYPE24753; t97606.s1.value.structure_type24753 = &t97607; /* x176006 stalin.sc:25197:870668 */ t97605.s0.tag = STRUCTURE_TYPE24753; t97605.s0.value.structure_type24753 = &t97606; /* x176007 stalin.sc:25197:870668 */ t97613.s0.tag = FLONUM_TYPE; t97613.s0.value.flonum_type = 1.0e1; /* x176008 stalin.sc:25197:870668 */ t97613.s1.tag = NULL_TYPE; /* x176009 stalin.sc:25197:870668 */ t97605.s1.tag = STRUCTURE_TYPE24753; t97605.s1.value.structure_type24753 = &t97613; /* x176010 stalin.sc:25197:870668 */ t97604.s1.tag = STRUCTURE_TYPE24753; t97604.s1.value.structure_type24753 = &t97605; /* x176011 stalin.sc:25197:870668 */ t97603.s0.tag = STRUCTURE_TYPE24753; t97603.s0.value.structure_type24753 = &t97604; /* x176012 stalin.sc:25197:870668 */ t97614.s0.tag = FLONUM_TYPE; t97614.s0.value.flonum_type = 1.0e2; /* x176013 stalin.sc:25197:870668 */ t97614.s1.tag = NULL_TYPE; /* x176014 stalin.sc:25197:870668 */ t97603.s1.tag = STRUCTURE_TYPE24753; t97603.s1.value.structure_type24753 = &t97614; /* x176015 stalin.sc:25197:870668 */ t97602.s1.tag = STRUCTURE_TYPE24753; t97602.s1.value.structure_type24753 = &t97603; /* x176016 stalin.sc:25197:870668 */ t97601.s0.tag = STRUCTURE_TYPE24753; t97601.s0.value.structure_type24753 = &t97602; /* x176017 stalin.sc:25197:870668 */ t97601.s1.tag = NULL_TYPE; /* x176018 stalin.sc:25197:870668 */ t97600.s1.tag = STRUCTURE_TYPE24753; t97600.s1.value.structure_type24753 = &t97601; /* x176019 stalin.sc:25197:870668 */ t97599.s0.tag = STRUCTURE_TYPE24753; t97599.s0.value.structure_type24753 = &t97600; /* x176020 stalin.sc:25197:870668 */ t97599.s1.tag = NULL_TYPE; /* x176021 stalin.sc:25197:870668 */ t97589.s1.tag = STRUCTURE_TYPE24753; t97589.s1.value.structure_type24753 = &t97599; /* x176022 stalin.sc:25197:870668 */ t97581.s1.tag = STRUCTURE_TYPE24753; t97581.s1.value.structure_type24753 = &t97589; /* x176023 stalin.sc:25197:870668 */ t97575.s1.tag = STRUCTURE_TYPE24753; t97575.s1.value.structure_type24753 = &t97581; /* x176024 stalin.sc:25197:870668 */ t97574.s1.tag = STRUCTURE_TYPE24753; t97574.s1.value.structure_type24753 = &t97575; /* x176025 stalin.sc:25197:870668 */ t97573.s0.tag = STRUCTURE_TYPE24753; t97573.s0.value.structure_type24753 = &t97574; /* x176026 stalin.sc:25197:870668 */ t97573.s1.tag = NULL_TYPE; /* x176027 stalin.sc:25197:870668 */ t97569.s1.tag = STRUCTURE_TYPE24753; t97569.s1.value.structure_type24753 = &t97573; /* x176028 stalin.sc:25197:870668 */ t97568.s0.tag = STRUCTURE_TYPE24753; t97568.s0.value.structure_type24753 = &t97569; /* x176029 stalin.sc:25197:870668 */ t97616.s0.tag = EXTERNAL_SYMBOL_TYPE; t97616.s0.value.external_symbol_type = q95; /* x176030 stalin.sc:25197:870668 */ t97618.s0.tag = EXTERNAL_SYMBOL_TYPE; t97618.s0.value.external_symbol_type = q179; /* x176031 stalin.sc:25197:870668 */ t97619.s0.tag = STRING_TYPE; t97619.s0.value.string_type = "Unfinished decimal number"; /* x176032 stalin.sc:25197:870668 */ t97619.s1.tag = NULL_TYPE; /* x176033 stalin.sc:25197:870668 */ t97618.s1.tag = STRUCTURE_TYPE24753; t97618.s1.value.structure_type24753 = &t97619; /* x176034 stalin.sc:25197:870668 */ t97617.s0.tag = STRUCTURE_TYPE24753; t97617.s0.value.structure_type24753 = &t97618; /* x176035 stalin.sc:25197:870668 */ t97617.s1.tag = NULL_TYPE; /* x176036 stalin.sc:25197:870668 */ t97616.s1.tag = STRUCTURE_TYPE24753; t97616.s1.value.structure_type24753 = &t97617; /* x176037 stalin.sc:25197:870668 */ t97615.s0.tag = STRUCTURE_TYPE24753; t97615.s0.value.structure_type24753 = &t97616; /* x176038 stalin.sc:25197:870668 */ t97615.s1.tag = NULL_TYPE; /* x176039 stalin.sc:25197:870668 */ t97568.s1.tag = STRUCTURE_TYPE24753; t97568.s1.value.structure_type24753 = &t97615; /* x176040 stalin.sc:25197:870668 */ t97552.s1.tag = STRUCTURE_TYPE24753; t97552.s1.value.structure_type24753 = &t97568; /* x176041 stalin.sc:25197:870668 */ t97551.s1.tag = STRUCTURE_TYPE24753; t97551.s1.value.structure_type24753 = &t97552; /* x176042 stalin.sc:25197:870668 */ t97550.s0.tag = STRUCTURE_TYPE24753; t97550.s0.value.structure_type24753 = &t97551; /* x176043 stalin.sc:25197:870668 */ t97550.s1.tag = NULL_TYPE; /* x176044 stalin.sc:25197:870668 */ t97542.s1.tag = STRUCTURE_TYPE24753; t97542.s1.value.structure_type24753 = &t97550; /* x176045 stalin.sc:25197:870668 */ t97536.s1.tag = STRUCTURE_TYPE24753; t97536.s1.value.structure_type24753 = &t97542; /* x176046 stalin.sc:25197:870668 */ t97535.s1.tag = STRUCTURE_TYPE24753; t97535.s1.value.structure_type24753 = &t97536; /* x176047 stalin.sc:25197:870668 */ t97534.s0.tag = STRUCTURE_TYPE24753; t97534.s0.value.structure_type24753 = &t97535; /* x176048 stalin.sc:25197:870668 */ t97534.s1.tag = NULL_TYPE; /* x176049 stalin.sc:25197:870668 */ t97530.s1.tag = STRUCTURE_TYPE24753; t97530.s1.value.structure_type24753 = &t97534; /* x176050 stalin.sc:25197:870668 */ t97529.s0.tag = STRUCTURE_TYPE24753; t97529.s0.value.structure_type24753 = &t97530; /* x176051 stalin.sc:25197:870668 */ t97622.s0.tag = EXTERNAL_SYMBOL_TYPE; t97622.s0.value.external_symbol_type = q263; /* x176052 stalin.sc:25197:870668 */ t97623.s0.tag = EXTERNAL_SYMBOL_TYPE; t97623.s0.value.external_symbol_type = q275; /* x176053 stalin.sc:25197:870668 */ t97624.s0.tag = ((unsigned)((unsigned char)'.'))<<2; /* x176054 stalin.sc:25197:870668 */ t97624.s1.tag = NULL_TYPE; /* x176055 stalin.sc:25197:870668 */ t97623.s1.tag = STRUCTURE_TYPE24753; t97623.s1.value.structure_type24753 = &t97624; /* x176056 stalin.sc:25197:870668 */ t97622.s1.tag = STRUCTURE_TYPE24753; t97622.s1.value.structure_type24753 = &t97623; /* x176057 stalin.sc:25197:870668 */ t97621.s0.tag = STRUCTURE_TYPE24753; t97621.s0.value.structure_type24753 = &t97622; /* x176058 stalin.sc:25197:870668 */ t97626.s0.tag = EXTERNAL_SYMBOL_TYPE; t97626.s0.value.external_symbol_type = q242; /* x176059 stalin.sc:25197:870668 */ t97629.s0.tag = EXTERNAL_SYMBOL_TYPE; t97629.s0.value.external_symbol_type = q297; /* x176060 stalin.sc:25197:870668 */ t97631.s0.tag = EXTERNAL_SYMBOL_TYPE; t97631.s0.value.external_symbol_type = q264; /* x176061 stalin.sc:25197:870668 */ t97632.s0.tag = EXTERNAL_SYMBOL_TYPE; t97632.s0.value.external_symbol_type = q254; /* x176062 stalin.sc:25197:870668 */ t97632.s1.tag = NULL_TYPE; /* x176063 stalin.sc:25197:870668 */ t97631.s1.tag = STRUCTURE_TYPE24753; t97631.s1.value.structure_type24753 = &t97632; /* x176064 stalin.sc:25197:870668 */ t97630.s0.tag = STRUCTURE_TYPE24753; t97630.s0.value.structure_type24753 = &t97631; /* x176065 stalin.sc:25197:870668 */ t97630.s1.tag = NULL_TYPE; /* x176066 stalin.sc:25197:870668 */ t97629.s1.tag = STRUCTURE_TYPE24753; t97629.s1.value.structure_type24753 = &t97630; /* x176067 stalin.sc:25197:870668 */ t97628.s0.tag = STRUCTURE_TYPE24753; t97628.s0.value.structure_type24753 = &t97629; /* x176068 stalin.sc:25197:870668 */ t97628.s1.tag = NULL_TYPE; /* x176069 stalin.sc:25197:870668 */ t97627.s0.tag = STRUCTURE_TYPE24753; t97627.s0.value.structure_type24753 = &t97628; /* x176070 stalin.sc:25197:870668 */ t97634.s0.tag = EXTERNAL_SYMBOL_TYPE; t97634.s0.value.external_symbol_type = q43; /* x176071 stalin.sc:25197:870668 */ t97636.s0.tag = EXTERNAL_SYMBOL_TYPE; t97636.s0.value.external_symbol_type = q178; /* x176072 stalin.sc:25197:870668 */ t97637.s0.tag = EXTERNAL_SYMBOL_TYPE; t97637.s0.value.external_symbol_type = q297; /* x176073 stalin.sc:25197:870668 */ t97637.s1.tag = NULL_TYPE; /* x176074 stalin.sc:25197:870668 */ t97636.s1.tag = STRUCTURE_TYPE24753; t97636.s1.value.structure_type24753 = &t97637; /* x176075 stalin.sc:25197:870668 */ t97635.s0.tag = STRUCTURE_TYPE24753; t97635.s0.value.structure_type24753 = &t97636; /* x176076 stalin.sc:25197:870668 */ t97639.s0.tag = EXTERNAL_SYMBOL_TYPE; t97639.s0.value.external_symbol_type = q179; /* x176077 stalin.sc:25197:870668 */ t97640.s0.tag = STRING_TYPE; t97640.s0.value.string_type = "EOF while reading decimal number"; /* x176078 stalin.sc:25197:870668 */ t97640.s1.tag = NULL_TYPE; /* x176079 stalin.sc:25197:870668 */ t97639.s1.tag = STRUCTURE_TYPE24753; t97639.s1.value.structure_type24753 = &t97640; /* x176080 stalin.sc:25197:870668 */ t97638.s0.tag = STRUCTURE_TYPE24753; t97638.s0.value.structure_type24753 = &t97639; /* x176081 stalin.sc:25197:870668 */ t97638.s1.tag = NULL_TYPE; /* x176082 stalin.sc:25197:870668 */ t97635.s1.tag = STRUCTURE_TYPE24753; t97635.s1.value.structure_type24753 = &t97638; /* x176083 stalin.sc:25197:870668 */ t97634.s1.tag = STRUCTURE_TYPE24753; t97634.s1.value.structure_type24753 = &t97635; /* x176084 stalin.sc:25197:870668 */ t97633.s0.tag = STRUCTURE_TYPE24753; t97633.s0.value.structure_type24753 = &t97634; /* x176085 stalin.sc:25197:870668 */ t97642.s0.tag = EXTERNAL_SYMBOL_TYPE; t97642.s0.value.external_symbol_type = q43; /* x176086 stalin.sc:25197:870668 */ t97644.s0.tag = EXTERNAL_SYMBOL_TYPE; t97644.s0.value.external_symbol_type = q102; /* x176087 stalin.sc:25197:870668 */ t97646.s0.tag = EXTERNAL_SYMBOL_TYPE; t97646.s0.value.external_symbol_type = q269; /* x176088 stalin.sc:25197:870668 */ t97647.s0.tag = EXTERNAL_SYMBOL_TYPE; t97647.s0.value.external_symbol_type = q297; /* x176089 stalin.sc:25197:870668 */ t97647.s1.tag = NULL_TYPE; /* x176090 stalin.sc:25197:870668 */ t97646.s1.tag = STRUCTURE_TYPE24753; t97646.s1.value.structure_type24753 = &t97647; /* x176091 stalin.sc:25197:870668 */ t97645.s0.tag = STRUCTURE_TYPE24753; t97645.s0.value.structure_type24753 = &t97646; /* x176092 stalin.sc:25197:870668 */ t97645.s1.tag = NULL_TYPE; /* x176093 stalin.sc:25197:870668 */ t97644.s1.tag = STRUCTURE_TYPE24753; t97644.s1.value.structure_type24753 = &t97645; /* x176094 stalin.sc:25197:870668 */ t97643.s0.tag = STRUCTURE_TYPE24753; t97643.s0.value.structure_type24753 = &t97644; /* x176095 stalin.sc:25197:870668 */ t97649.s0.tag = EXTERNAL_SYMBOL_TYPE; t97649.s0.value.external_symbol_type = q179; /* x176096 stalin.sc:25197:870668 */ t97650.s0.tag = STRING_TYPE; t97650.s0.value.string_type = "Unfinished decimal number"; /* x176097 stalin.sc:25197:870668 */ t97650.s1.tag = NULL_TYPE; /* x176098 stalin.sc:25197:870668 */ t97649.s1.tag = STRUCTURE_TYPE24753; t97649.s1.value.structure_type24753 = &t97650; /* x176099 stalin.sc:25197:870668 */ t97648.s0.tag = STRUCTURE_TYPE24753; t97648.s0.value.structure_type24753 = &t97649; /* x176100 stalin.sc:25197:870668 */ t97648.s1.tag = NULL_TYPE; /* x176101 stalin.sc:25197:870668 */ t97643.s1.tag = STRUCTURE_TYPE24753; t97643.s1.value.structure_type24753 = &t97648; /* x176102 stalin.sc:25197:870668 */ t97642.s1.tag = STRUCTURE_TYPE24753; t97642.s1.value.structure_type24753 = &t97643; /* x176103 stalin.sc:25197:870668 */ t97641.s0.tag = STRUCTURE_TYPE24753; t97641.s0.value.structure_type24753 = &t97642; /* x176104 stalin.sc:25197:870668 */ t97652.s0.tag = EXTERNAL_SYMBOL_TYPE; t97652.s0.value.external_symbol_type = q271; /* x176105 stalin.sc:25197:870668 */ t97654.s0.tag = EXTERNAL_SYMBOL_TYPE; t97654.s0.value.external_symbol_type = q131; /* x176106 stalin.sc:25197:870668 */ t97656.s0.tag = EXTERNAL_SYMBOL_TYPE; t97656.s0.value.external_symbol_type = q2; /* x176107 stalin.sc:25197:870668 */ t97658.s0.tag = EXTERNAL_SYMBOL_TYPE; t97658.s0.value.external_symbol_type = q157; /* x176108 stalin.sc:25197:870668 */ t97659.s0.tag = EXTERNAL_SYMBOL_TYPE; t97659.s0.value.external_symbol_type = q297; /* x176109 stalin.sc:25197:870668 */ t97659.s1.tag = NULL_TYPE; /* x176110 stalin.sc:25197:870668 */ t97658.s1.tag = STRUCTURE_TYPE24753; t97658.s1.value.structure_type24753 = &t97659; /* x176111 stalin.sc:25197:870668 */ t97657.s0.tag = STRUCTURE_TYPE24753; t97657.s0.value.structure_type24753 = &t97658; /* x176112 stalin.sc:25197:870668 */ t97661.s0.tag = EXTERNAL_SYMBOL_TYPE; t97661.s0.value.external_symbol_type = q157; /* x176113 stalin.sc:25197:870668 */ t97662.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x176114 stalin.sc:25197:870668 */ t97662.s1.tag = NULL_TYPE; /* x176115 stalin.sc:25197:870668 */ t97661.s1.tag = STRUCTURE_TYPE24753; t97661.s1.value.structure_type24753 = &t97662; /* x176116 stalin.sc:25197:870668 */ t97660.s0.tag = STRUCTURE_TYPE24753; t97660.s0.value.structure_type24753 = &t97661; /* x176117 stalin.sc:25197:870668 */ t97660.s1.tag = NULL_TYPE; /* x176118 stalin.sc:25197:870668 */ t97657.s1.tag = STRUCTURE_TYPE24753; t97657.s1.value.structure_type24753 = &t97660; /* x176119 stalin.sc:25197:870668 */ t97656.s1.tag = STRUCTURE_TYPE24753; t97656.s1.value.structure_type24753 = &t97657; /* x176120 stalin.sc:25197:870668 */ t97655.s0.tag = STRUCTURE_TYPE24753; t97655.s0.value.structure_type24753 = &t97656; /* x176121 stalin.sc:25197:870668 */ t97663.s0.tag = FLONUM_TYPE; t97663.s0.value.flonum_type = 1.0e1; /* x176122 stalin.sc:25197:870668 */ t97663.s1.tag = NULL_TYPE; /* x176123 stalin.sc:25197:870668 */ t97655.s1.tag = STRUCTURE_TYPE24753; t97655.s1.value.structure_type24753 = &t97663; /* x176124 stalin.sc:25197:870668 */ t97654.s1.tag = STRUCTURE_TYPE24753; t97654.s1.value.structure_type24753 = &t97655; /* x176125 stalin.sc:25197:870668 */ t97653.s0.tag = STRUCTURE_TYPE24753; t97653.s0.value.structure_type24753 = &t97654; /* x176126 stalin.sc:25197:870668 */ t97664.s0.tag = FLONUM_TYPE; t97664.s0.value.flonum_type = 1.0e2; /* x176127 stalin.sc:25197:870668 */ t97664.s1.tag = NULL_TYPE; /* x176128 stalin.sc:25197:870668 */ t97653.s1.tag = STRUCTURE_TYPE24753; t97653.s1.value.structure_type24753 = &t97664; /* x176129 stalin.sc:25197:870668 */ t97652.s1.tag = STRUCTURE_TYPE24753; t97652.s1.value.structure_type24753 = &t97653; /* x176130 stalin.sc:25197:870668 */ t97651.s0.tag = STRUCTURE_TYPE24753; t97651.s0.value.structure_type24753 = &t97652; /* x176131 stalin.sc:25197:870668 */ t97651.s1.tag = NULL_TYPE; /* x176132 stalin.sc:25197:870668 */ t97641.s1.tag = STRUCTURE_TYPE24753; t97641.s1.value.structure_type24753 = &t97651; /* x176133 stalin.sc:25197:870668 */ t97633.s1.tag = STRUCTURE_TYPE24753; t97633.s1.value.structure_type24753 = &t97641; /* x176134 stalin.sc:25197:870668 */ t97627.s1.tag = STRUCTURE_TYPE24753; t97627.s1.value.structure_type24753 = &t97633; /* x176135 stalin.sc:25197:870668 */ t97626.s1.tag = STRUCTURE_TYPE24753; t97626.s1.value.structure_type24753 = &t97627; /* x176136 stalin.sc:25197:870668 */ t97625.s0.tag = STRUCTURE_TYPE24753; t97625.s0.value.structure_type24753 = &t97626; /* x176137 stalin.sc:25197:870668 */ t97625.s1.tag = NULL_TYPE; /* x176138 stalin.sc:25197:870668 */ t97621.s1.tag = STRUCTURE_TYPE24753; t97621.s1.value.structure_type24753 = &t97625; /* x176139 stalin.sc:25197:870668 */ t97620.s0.tag = STRUCTURE_TYPE24753; t97620.s0.value.structure_type24753 = &t97621; /* x176140 stalin.sc:25197:870668 */ t97667.s0.tag = EXTERNAL_SYMBOL_TYPE; t97667.s0.value.external_symbol_type = q269; /* x176141 stalin.sc:25197:870668 */ t97668.s0.tag = EXTERNAL_SYMBOL_TYPE; t97668.s0.value.external_symbol_type = q275; /* x176142 stalin.sc:25197:870668 */ t97668.s1.tag = NULL_TYPE; /* x176143 stalin.sc:25197:870668 */ t97667.s1.tag = STRUCTURE_TYPE24753; t97667.s1.value.structure_type24753 = &t97668; /* x176144 stalin.sc:25197:870668 */ t97666.s0.tag = STRUCTURE_TYPE24753; t97666.s0.value.structure_type24753 = &t97667; /* x176145 stalin.sc:25197:870668 */ t97670.s0.tag = EXTERNAL_SYMBOL_TYPE; t97670.s0.value.external_symbol_type = q276; /* x176146 stalin.sc:25197:870668 */ t97672.s0.tag = EXTERNAL_SYMBOL_TYPE; t97672.s0.value.external_symbol_type = q2; /* x176147 stalin.sc:25197:870668 */ t97674.s0.tag = EXTERNAL_SYMBOL_TYPE; t97674.s0.value.external_symbol_type = q157; /* x176148 stalin.sc:25197:870668 */ t97675.s0.tag = EXTERNAL_SYMBOL_TYPE; t97675.s0.value.external_symbol_type = q275; /* x176149 stalin.sc:25197:870668 */ t97675.s1.tag = NULL_TYPE; /* x176150 stalin.sc:25197:870668 */ t97674.s1.tag = STRUCTURE_TYPE24753; t97674.s1.value.structure_type24753 = &t97675; /* x176151 stalin.sc:25197:870668 */ t97673.s0.tag = STRUCTURE_TYPE24753; t97673.s0.value.structure_type24753 = &t97674; /* x176152 stalin.sc:25197:870668 */ t97677.s0.tag = EXTERNAL_SYMBOL_TYPE; t97677.s0.value.external_symbol_type = q157; /* x176153 stalin.sc:25197:870668 */ t97678.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x176154 stalin.sc:25197:870668 */ t97678.s1.tag = NULL_TYPE; /* x176155 stalin.sc:25197:870668 */ t97677.s1.tag = STRUCTURE_TYPE24753; t97677.s1.value.structure_type24753 = &t97678; /* x176156 stalin.sc:25197:870668 */ t97676.s0.tag = STRUCTURE_TYPE24753; t97676.s0.value.structure_type24753 = &t97677; /* x176157 stalin.sc:25197:870668 */ t97676.s1.tag = NULL_TYPE; /* x176158 stalin.sc:25197:870668 */ t97673.s1.tag = STRUCTURE_TYPE24753; t97673.s1.value.structure_type24753 = &t97676; /* x176159 stalin.sc:25197:870668 */ t97672.s1.tag = STRUCTURE_TYPE24753; t97672.s1.value.structure_type24753 = &t97673; /* x176160 stalin.sc:25197:870668 */ t97671.s0.tag = STRUCTURE_TYPE24753; t97671.s0.value.structure_type24753 = &t97672; /* x176161 stalin.sc:25197:870668 */ t97671.s1.tag = NULL_TYPE; /* x176162 stalin.sc:25197:870668 */ t97670.s1.tag = STRUCTURE_TYPE24753; t97670.s1.value.structure_type24753 = &t97671; /* x176163 stalin.sc:25197:870668 */ t97669.s0.tag = STRUCTURE_TYPE24753; t97669.s0.value.structure_type24753 = &t97670; /* x176164 stalin.sc:25197:870668 */ t97669.s1.tag = NULL_TYPE; /* x176165 stalin.sc:25197:870668 */ t97666.s1.tag = STRUCTURE_TYPE24753; t97666.s1.value.structure_type24753 = &t97669; /* x176166 stalin.sc:25197:870668 */ t97665.s0.tag = STRUCTURE_TYPE24753; t97665.s0.value.structure_type24753 = &t97666; /* x176167 stalin.sc:25197:870668 */ t97680.s0.tag = EXTERNAL_SYMBOL_TYPE; t97680.s0.value.external_symbol_type = q95; /* x176168 stalin.sc:25197:870668 */ t97682.s0.tag = EXTERNAL_SYMBOL_TYPE; t97682.s0.value.external_symbol_type = q179; /* x176169 stalin.sc:25197:870668 */ t97683.s0.tag = STRING_TYPE; t97683.s0.value.string_type = "Unfinished decimal number"; /* x176170 stalin.sc:25197:870668 */ t97683.s1.tag = NULL_TYPE; /* x176171 stalin.sc:25197:870668 */ t97682.s1.tag = STRUCTURE_TYPE24753; t97682.s1.value.structure_type24753 = &t97683; /* x176172 stalin.sc:25197:870668 */ t97681.s0.tag = STRUCTURE_TYPE24753; t97681.s0.value.structure_type24753 = &t97682; /* x176173 stalin.sc:25197:870668 */ t97681.s1.tag = NULL_TYPE; /* x176174 stalin.sc:25197:870668 */ t97680.s1.tag = STRUCTURE_TYPE24753; t97680.s1.value.structure_type24753 = &t97681; /* x176175 stalin.sc:25197:870668 */ t97679.s0.tag = STRUCTURE_TYPE24753; t97679.s0.value.structure_type24753 = &t97680; /* x176176 stalin.sc:25197:870668 */ t97679.s1.tag = NULL_TYPE; /* x176177 stalin.sc:25197:870668 */ t97665.s1.tag = STRUCTURE_TYPE24753; t97665.s1.value.structure_type24753 = &t97679; /* x176178 stalin.sc:25197:870668 */ t97620.s1.tag = STRUCTURE_TYPE24753; t97620.s1.value.structure_type24753 = &t97665; /* x176179 stalin.sc:25197:870668 */ t97529.s1.tag = STRUCTURE_TYPE24753; t97529.s1.value.structure_type24753 = &t97620; /* x176180 stalin.sc:25197:870668 */ t97442.s1.tag = STRUCTURE_TYPE24753; t97442.s1.value.structure_type24753 = &t97529; /* x176181 stalin.sc:25197:870668 */ t97441.s1.tag = STRUCTURE_TYPE24753; t97441.s1.value.structure_type24753 = &t97442; /* x176182 stalin.sc:25197:870668 */ t97440.s0.tag = STRUCTURE_TYPE24753; t97440.s0.value.structure_type24753 = &t97441; /* x176183 stalin.sc:25197:870668 */ t97440.s1.tag = NULL_TYPE; /* x176184 stalin.sc:25197:870668 */ t97432.s1.tag = STRUCTURE_TYPE24753; t97432.s1.value.structure_type24753 = &t97440; /* x176185 stalin.sc:25197:870668 */ t97426.s1.tag = STRUCTURE_TYPE24753; t97426.s1.value.structure_type24753 = &t97432; /* x176186 stalin.sc:25197:870668 */ t97425.s1.tag = STRUCTURE_TYPE24753; t97425.s1.value.structure_type24753 = &t97426; /* x176187 stalin.sc:25197:870668 */ t97424.s0.tag = STRUCTURE_TYPE24753; t97424.s0.value.structure_type24753 = &t97425; /* x176188 stalin.sc:25197:870668 */ t97424.s1.tag = NULL_TYPE; /* x176189 stalin.sc:25197:870668 */ t97414.s1.tag = STRUCTURE_TYPE24753; t97414.s1.value.structure_type24753 = &t97424; /* x176190 stalin.sc:25197:870668 */ t97413.s0.tag = STRUCTURE_TYPE24753; t97413.s0.value.structure_type24753 = &t97414; /* x176191 stalin.sc:25197:870668 */ t97686.s0.tag = EXTERNAL_SYMBOL_TYPE; t97686.s0.value.external_symbol_type = q241; /* x176192 stalin.sc:25197:870668 */ t97688.s0.tag = EXTERNAL_SYMBOL_TYPE; t97688.s0.value.external_symbol_type = q263; /* x176193 stalin.sc:25197:870668 */ t97689.s0.tag = EXTERNAL_SYMBOL_TYPE; t97689.s0.value.external_symbol_type = q274; /* x176194 stalin.sc:25197:870668 */ t97690.s0.tag = ((unsigned)((unsigned char)'x'))<<2; /* x176195 stalin.sc:25197:870668 */ t97690.s1.tag = NULL_TYPE; /* x176196 stalin.sc:25197:870668 */ t97689.s1.tag = STRUCTURE_TYPE24753; t97689.s1.value.structure_type24753 = &t97690; /* x176197 stalin.sc:25197:870668 */ t97688.s1.tag = STRUCTURE_TYPE24753; t97688.s1.value.structure_type24753 = &t97689; /* x176198 stalin.sc:25197:870668 */ t97687.s0.tag = STRUCTURE_TYPE24753; t97687.s0.value.structure_type24753 = &t97688; /* x176199 stalin.sc:25197:870668 */ t97692.s0.tag = EXTERNAL_SYMBOL_TYPE; t97692.s0.value.external_symbol_type = q263; /* x176200 stalin.sc:25197:870668 */ t97693.s0.tag = EXTERNAL_SYMBOL_TYPE; t97693.s0.value.external_symbol_type = q274; /* x176201 stalin.sc:25197:870668 */ t97694.s0.tag = ((unsigned)((unsigned char)'X'))<<2; /* x176202 stalin.sc:25197:870668 */ t97694.s1.tag = NULL_TYPE; /* x176203 stalin.sc:25197:870668 */ t97693.s1.tag = STRUCTURE_TYPE24753; t97693.s1.value.structure_type24753 = &t97694; /* x176204 stalin.sc:25197:870668 */ t97692.s1.tag = STRUCTURE_TYPE24753; t97692.s1.value.structure_type24753 = &t97693; /* x176205 stalin.sc:25197:870668 */ t97691.s0.tag = STRUCTURE_TYPE24753; t97691.s0.value.structure_type24753 = &t97692; /* x176206 stalin.sc:25197:870668 */ t97691.s1.tag = NULL_TYPE; /* x176207 stalin.sc:25197:870668 */ t97687.s1.tag = STRUCTURE_TYPE24753; t97687.s1.value.structure_type24753 = &t97691; /* x176208 stalin.sc:25197:870668 */ t97686.s1.tag = STRUCTURE_TYPE24753; t97686.s1.value.structure_type24753 = &t97687; /* x176209 stalin.sc:25197:870668 */ t97685.s0.tag = STRUCTURE_TYPE24753; t97685.s0.value.structure_type24753 = &t97686; /* x176210 stalin.sc:25197:870668 */ t97696.s0.tag = EXTERNAL_SYMBOL_TYPE; t97696.s0.value.external_symbol_type = q242; /* x176211 stalin.sc:25197:870668 */ t97699.s0.tag = EXTERNAL_SYMBOL_TYPE; t97699.s0.value.external_symbol_type = q275; /* x176212 stalin.sc:25197:870668 */ t97701.s0.tag = EXTERNAL_SYMBOL_TYPE; t97701.s0.value.external_symbol_type = q264; /* x176213 stalin.sc:25197:870668 */ t97702.s0.tag = EXTERNAL_SYMBOL_TYPE; t97702.s0.value.external_symbol_type = q254; /* x176214 stalin.sc:25197:870668 */ t97702.s1.tag = NULL_TYPE; /* x176215 stalin.sc:25197:870668 */ t97701.s1.tag = STRUCTURE_TYPE24753; t97701.s1.value.structure_type24753 = &t97702; /* x176216 stalin.sc:25197:870668 */ t97700.s0.tag = STRUCTURE_TYPE24753; t97700.s0.value.structure_type24753 = &t97701; /* x176217 stalin.sc:25197:870668 */ t97700.s1.tag = NULL_TYPE; /* x176218 stalin.sc:25197:870668 */ t97699.s1.tag = STRUCTURE_TYPE24753; t97699.s1.value.structure_type24753 = &t97700; /* x176219 stalin.sc:25197:870668 */ t97698.s0.tag = STRUCTURE_TYPE24753; t97698.s0.value.structure_type24753 = &t97699; /* x176220 stalin.sc:25197:870668 */ t97698.s1.tag = NULL_TYPE; /* x176221 stalin.sc:25197:870668 */ t97697.s0.tag = STRUCTURE_TYPE24753; t97697.s0.value.structure_type24753 = &t97698; /* x176222 stalin.sc:25197:870668 */ t97704.s0.tag = EXTERNAL_SYMBOL_TYPE; t97704.s0.value.external_symbol_type = q43; /* x176223 stalin.sc:25197:870668 */ t97706.s0.tag = EXTERNAL_SYMBOL_TYPE; t97706.s0.value.external_symbol_type = q178; /* x176224 stalin.sc:25197:870668 */ t97707.s0.tag = EXTERNAL_SYMBOL_TYPE; t97707.s0.value.external_symbol_type = q275; /* x176225 stalin.sc:25197:870668 */ t97707.s1.tag = NULL_TYPE; /* x176226 stalin.sc:25197:870668 */ t97706.s1.tag = STRUCTURE_TYPE24753; t97706.s1.value.structure_type24753 = &t97707; /* x176227 stalin.sc:25197:870668 */ t97705.s0.tag = STRUCTURE_TYPE24753; t97705.s0.value.structure_type24753 = &t97706; /* x176228 stalin.sc:25197:870668 */ t97709.s0.tag = EXTERNAL_SYMBOL_TYPE; t97709.s0.value.external_symbol_type = q179; /* x176229 stalin.sc:25197:870668 */ t97710.s0.tag = STRING_TYPE; t97710.s0.value.string_type = "EOF while reading hexadecimal number"; /* x176230 stalin.sc:25197:870668 */ t97710.s1.tag = NULL_TYPE; /* x176231 stalin.sc:25197:870668 */ t97709.s1.tag = STRUCTURE_TYPE24753; t97709.s1.value.structure_type24753 = &t97710; /* x176232 stalin.sc:25197:870668 */ t97708.s0.tag = STRUCTURE_TYPE24753; t97708.s0.value.structure_type24753 = &t97709; /* x176233 stalin.sc:25197:870668 */ t97708.s1.tag = NULL_TYPE; /* x176234 stalin.sc:25197:870668 */ t97705.s1.tag = STRUCTURE_TYPE24753; t97705.s1.value.structure_type24753 = &t97708; /* x176235 stalin.sc:25197:870668 */ t97704.s1.tag = STRUCTURE_TYPE24753; t97704.s1.value.structure_type24753 = &t97705; /* x176236 stalin.sc:25197:870668 */ t97703.s0.tag = STRUCTURE_TYPE24753; t97703.s0.value.structure_type24753 = &t97704; /* x176237 stalin.sc:25197:870668 */ t97712.s0.tag = EXTERNAL_SYMBOL_TYPE; t97712.s0.value.external_symbol_type = q240; /* x176238 stalin.sc:25197:870668 */ t97715.s0.tag = EXTERNAL_SYMBOL_TYPE; t97715.s0.value.external_symbol_type = q269; /* x176239 stalin.sc:25197:870668 */ t97716.s0.tag = EXTERNAL_SYMBOL_TYPE; t97716.s0.value.external_symbol_type = q275; /* x176240 stalin.sc:25197:870668 */ t97716.s1.tag = NULL_TYPE; /* x176241 stalin.sc:25197:870668 */ t97715.s1.tag = STRUCTURE_TYPE24753; t97715.s1.value.structure_type24753 = &t97716; /* x176242 stalin.sc:25197:870668 */ t97714.s0.tag = STRUCTURE_TYPE24753; t97714.s0.value.structure_type24753 = &t97715; /* x176243 stalin.sc:25197:870668 */ t97718.s0.tag = EXTERNAL_SYMBOL_TYPE; t97718.s0.value.external_symbol_type = q270; /* x176244 stalin.sc:25197:870668 */ t97720.s0.tag = EXTERNAL_SYMBOL_TYPE; t97720.s0.value.external_symbol_type = q2; /* x176245 stalin.sc:25197:870668 */ t97722.s0.tag = EXTERNAL_SYMBOL_TYPE; t97722.s0.value.external_symbol_type = q157; /* x176246 stalin.sc:25197:870668 */ t97723.s0.tag = EXTERNAL_SYMBOL_TYPE; t97723.s0.value.external_symbol_type = q275; /* x176247 stalin.sc:25197:870668 */ t97723.s1.tag = NULL_TYPE; /* x176248 stalin.sc:25197:870668 */ t97722.s1.tag = STRUCTURE_TYPE24753; t97722.s1.value.structure_type24753 = &t97723; /* x176249 stalin.sc:25197:870668 */ t97721.s0.tag = STRUCTURE_TYPE24753; t97721.s0.value.structure_type24753 = &t97722; /* x176250 stalin.sc:25197:870668 */ t97725.s0.tag = EXTERNAL_SYMBOL_TYPE; t97725.s0.value.external_symbol_type = q157; /* x176251 stalin.sc:25197:870668 */ t97726.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x176252 stalin.sc:25197:870668 */ t97726.s1.tag = NULL_TYPE; /* x176253 stalin.sc:25197:870668 */ t97725.s1.tag = STRUCTURE_TYPE24753; t97725.s1.value.structure_type24753 = &t97726; /* x176254 stalin.sc:25197:870668 */ t97724.s0.tag = STRUCTURE_TYPE24753; t97724.s0.value.structure_type24753 = &t97725; /* x176255 stalin.sc:25197:870668 */ t97724.s1.tag = NULL_TYPE; /* x176256 stalin.sc:25197:870668 */ t97721.s1.tag = STRUCTURE_TYPE24753; t97721.s1.value.structure_type24753 = &t97724; /* x176257 stalin.sc:25197:870668 */ t97720.s1.tag = STRUCTURE_TYPE24753; t97720.s1.value.structure_type24753 = &t97721; /* x176258 stalin.sc:25197:870668 */ t97719.s0.tag = STRUCTURE_TYPE24753; t97719.s0.value.structure_type24753 = &t97720; /* x176259 stalin.sc:25197:870668 */ t97719.s1.tag = NULL_TYPE; /* x176260 stalin.sc:25197:870668 */ t97718.s1.tag = STRUCTURE_TYPE24753; t97718.s1.value.structure_type24753 = &t97719; /* x176261 stalin.sc:25197:870668 */ t97717.s0.tag = STRUCTURE_TYPE24753; t97717.s0.value.structure_type24753 = &t97718; /* x176262 stalin.sc:25197:870668 */ t97717.s1.tag = NULL_TYPE; /* x176263 stalin.sc:25197:870668 */ t97714.s1.tag = STRUCTURE_TYPE24753; t97714.s1.value.structure_type24753 = &t97717; /* x176264 stalin.sc:25197:870668 */ t97713.s0.tag = STRUCTURE_TYPE24753; t97713.s0.value.structure_type24753 = &t97714; /* x176265 stalin.sc:25197:870668 */ t97729.s0.tag = EXTERNAL_SYMBOL_TYPE; t97729.s0.value.external_symbol_type = q244; /* x176266 stalin.sc:25197:870668 */ t97731.s0.tag = EXTERNAL_SYMBOL_TYPE; t97731.s0.value.external_symbol_type = q266; /* x176267 stalin.sc:25197:870668 */ t97732.s0.tag = EXTERNAL_SYMBOL_TYPE; t97732.s0.value.external_symbol_type = q275; /* x176268 stalin.sc:25197:870668 */ t97733.s0.tag = ((unsigned)((unsigned char)'a'))<<2; /* x176269 stalin.sc:25197:870668 */ t97733.s1.tag = NULL_TYPE; /* x176270 stalin.sc:25197:870668 */ t97732.s1.tag = STRUCTURE_TYPE24753; t97732.s1.value.structure_type24753 = &t97733; /* x176271 stalin.sc:25197:870668 */ t97731.s1.tag = STRUCTURE_TYPE24753; t97731.s1.value.structure_type24753 = &t97732; /* x176272 stalin.sc:25197:870668 */ t97730.s0.tag = STRUCTURE_TYPE24753; t97730.s0.value.structure_type24753 = &t97731; /* x176273 stalin.sc:25197:870668 */ t97735.s0.tag = EXTERNAL_SYMBOL_TYPE; t97735.s0.value.external_symbol_type = q267; /* x176274 stalin.sc:25197:870668 */ t97736.s0.tag = EXTERNAL_SYMBOL_TYPE; t97736.s0.value.external_symbol_type = q275; /* x176275 stalin.sc:25197:870668 */ t97737.s0.tag = ((unsigned)((unsigned char)'f'))<<2; /* x176276 stalin.sc:25197:870668 */ t97737.s1.tag = NULL_TYPE; /* x176277 stalin.sc:25197:870668 */ t97736.s1.tag = STRUCTURE_TYPE24753; t97736.s1.value.structure_type24753 = &t97737; /* x176278 stalin.sc:25197:870668 */ t97735.s1.tag = STRUCTURE_TYPE24753; t97735.s1.value.structure_type24753 = &t97736; /* x176279 stalin.sc:25197:870668 */ t97734.s0.tag = STRUCTURE_TYPE24753; t97734.s0.value.structure_type24753 = &t97735; /* x176280 stalin.sc:25197:870668 */ t97734.s1.tag = NULL_TYPE; /* x176281 stalin.sc:25197:870668 */ t97730.s1.tag = STRUCTURE_TYPE24753; t97730.s1.value.structure_type24753 = &t97734; /* x176282 stalin.sc:25197:870668 */ t97729.s1.tag = STRUCTURE_TYPE24753; t97729.s1.value.structure_type24753 = &t97730; /* x176283 stalin.sc:25197:870668 */ t97728.s0.tag = STRUCTURE_TYPE24753; t97728.s0.value.structure_type24753 = &t97729; /* x176284 stalin.sc:25197:870668 */ t97739.s0.tag = EXTERNAL_SYMBOL_TYPE; t97739.s0.value.external_symbol_type = q270; /* x176285 stalin.sc:25197:870668 */ t97741.s0.tag = EXTERNAL_SYMBOL_TYPE; t97741.s0.value.external_symbol_type = q4; /* x176286 stalin.sc:25197:870668 */ t97743.s0.tag = EXTERNAL_SYMBOL_TYPE; t97743.s0.value.external_symbol_type = q2; /* x176287 stalin.sc:25197:870668 */ t97745.s0.tag = EXTERNAL_SYMBOL_TYPE; t97745.s0.value.external_symbol_type = q157; /* x176288 stalin.sc:25197:870668 */ t97746.s0.tag = EXTERNAL_SYMBOL_TYPE; t97746.s0.value.external_symbol_type = q275; /* x176289 stalin.sc:25197:870668 */ t97746.s1.tag = NULL_TYPE; /* x176290 stalin.sc:25197:870668 */ t97745.s1.tag = STRUCTURE_TYPE24753; t97745.s1.value.structure_type24753 = &t97746; /* x176291 stalin.sc:25197:870668 */ t97744.s0.tag = STRUCTURE_TYPE24753; t97744.s0.value.structure_type24753 = &t97745; /* x176292 stalin.sc:25197:870668 */ t97748.s0.tag = EXTERNAL_SYMBOL_TYPE; t97748.s0.value.external_symbol_type = q157; /* x176293 stalin.sc:25197:870668 */ t97749.s0.tag = ((unsigned)((unsigned char)'a'))<<2; /* x176294 stalin.sc:25197:870668 */ t97749.s1.tag = NULL_TYPE; /* x176295 stalin.sc:25197:870668 */ t97748.s1.tag = STRUCTURE_TYPE24753; t97748.s1.value.structure_type24753 = &t97749; /* x176296 stalin.sc:25197:870668 */ t97747.s0.tag = STRUCTURE_TYPE24753; t97747.s0.value.structure_type24753 = &t97748; /* x176297 stalin.sc:25197:870668 */ t97747.s1.tag = NULL_TYPE; /* x176298 stalin.sc:25197:870668 */ t97744.s1.tag = STRUCTURE_TYPE24753; t97744.s1.value.structure_type24753 = &t97747; /* x176299 stalin.sc:25197:870668 */ t97743.s1.tag = STRUCTURE_TYPE24753; t97743.s1.value.structure_type24753 = &t97744; /* x176300 stalin.sc:25197:870668 */ t97742.s0.tag = STRUCTURE_TYPE24753; t97742.s0.value.structure_type24753 = &t97743; /* x176301 stalin.sc:25197:870668 */ t97750.s0.tag = FIXNUM_TYPE; t97750.s0.value.fixnum_type = 10; /* x176302 stalin.sc:25197:870668 */ t97750.s1.tag = NULL_TYPE; /* x176303 stalin.sc:25197:870668 */ t97742.s1.tag = STRUCTURE_TYPE24753; t97742.s1.value.structure_type24753 = &t97750; /* x176304 stalin.sc:25197:870668 */ t97741.s1.tag = STRUCTURE_TYPE24753; t97741.s1.value.structure_type24753 = &t97742; /* x176305 stalin.sc:25197:870668 */ t97740.s0.tag = STRUCTURE_TYPE24753; t97740.s0.value.structure_type24753 = &t97741; /* x176306 stalin.sc:25197:870668 */ t97740.s1.tag = NULL_TYPE; /* x176307 stalin.sc:25197:870668 */ t97739.s1.tag = STRUCTURE_TYPE24753; t97739.s1.value.structure_type24753 = &t97740; /* x176308 stalin.sc:25197:870668 */ t97738.s0.tag = STRUCTURE_TYPE24753; t97738.s0.value.structure_type24753 = &t97739; /* x176309 stalin.sc:25197:870668 */ t97738.s1.tag = NULL_TYPE; /* x176310 stalin.sc:25197:870668 */ t97728.s1.tag = STRUCTURE_TYPE24753; t97728.s1.value.structure_type24753 = &t97738; /* x176311 stalin.sc:25197:870668 */ t97727.s0.tag = STRUCTURE_TYPE24753; t97727.s0.value.structure_type24753 = &t97728; /* x176312 stalin.sc:25197:870668 */ t97753.s0.tag = EXTERNAL_SYMBOL_TYPE; t97753.s0.value.external_symbol_type = q244; /* x176313 stalin.sc:25197:870668 */ t97755.s0.tag = EXTERNAL_SYMBOL_TYPE; t97755.s0.value.external_symbol_type = q266; /* x176314 stalin.sc:25197:870668 */ t97756.s0.tag = EXTERNAL_SYMBOL_TYPE; t97756.s0.value.external_symbol_type = q275; /* x176315 stalin.sc:25197:870668 */ t97757.s0.tag = ((unsigned)((unsigned char)'A'))<<2; /* x176316 stalin.sc:25197:870668 */ t97757.s1.tag = NULL_TYPE; /* x176317 stalin.sc:25197:870668 */ t97756.s1.tag = STRUCTURE_TYPE24753; t97756.s1.value.structure_type24753 = &t97757; /* x176318 stalin.sc:25197:870668 */ t97755.s1.tag = STRUCTURE_TYPE24753; t97755.s1.value.structure_type24753 = &t97756; /* x176319 stalin.sc:25197:870668 */ t97754.s0.tag = STRUCTURE_TYPE24753; t97754.s0.value.structure_type24753 = &t97755; /* x176320 stalin.sc:25197:870668 */ t97759.s0.tag = EXTERNAL_SYMBOL_TYPE; t97759.s0.value.external_symbol_type = q267; /* x176321 stalin.sc:25197:870668 */ t97760.s0.tag = EXTERNAL_SYMBOL_TYPE; t97760.s0.value.external_symbol_type = q275; /* x176322 stalin.sc:25197:870668 */ t97761.s0.tag = ((unsigned)((unsigned char)'F'))<<2; /* x176323 stalin.sc:25197:870668 */ t97761.s1.tag = NULL_TYPE; /* x176324 stalin.sc:25197:870668 */ t97760.s1.tag = STRUCTURE_TYPE24753; t97760.s1.value.structure_type24753 = &t97761; /* x176325 stalin.sc:25197:870668 */ t97759.s1.tag = STRUCTURE_TYPE24753; t97759.s1.value.structure_type24753 = &t97760; /* x176326 stalin.sc:25197:870668 */ t97758.s0.tag = STRUCTURE_TYPE24753; t97758.s0.value.structure_type24753 = &t97759; /* x176327 stalin.sc:25197:870668 */ t97758.s1.tag = NULL_TYPE; /* x176328 stalin.sc:25197:870668 */ t97754.s1.tag = STRUCTURE_TYPE24753; t97754.s1.value.structure_type24753 = &t97758; /* x176329 stalin.sc:25197:870668 */ t97753.s1.tag = STRUCTURE_TYPE24753; t97753.s1.value.structure_type24753 = &t97754; /* x176330 stalin.sc:25197:870668 */ t97752.s0.tag = STRUCTURE_TYPE24753; t97752.s0.value.structure_type24753 = &t97753; /* x176331 stalin.sc:25197:870668 */ t97763.s0.tag = EXTERNAL_SYMBOL_TYPE; t97763.s0.value.external_symbol_type = q270; /* x176332 stalin.sc:25197:870668 */ t97765.s0.tag = EXTERNAL_SYMBOL_TYPE; t97765.s0.value.external_symbol_type = q4; /* x176333 stalin.sc:25197:870668 */ t97767.s0.tag = EXTERNAL_SYMBOL_TYPE; t97767.s0.value.external_symbol_type = q2; /* x176334 stalin.sc:25197:870668 */ t97769.s0.tag = EXTERNAL_SYMBOL_TYPE; t97769.s0.value.external_symbol_type = q157; /* x176335 stalin.sc:25197:870668 */ t97770.s0.tag = EXTERNAL_SYMBOL_TYPE; t97770.s0.value.external_symbol_type = q275; /* x176336 stalin.sc:25197:870668 */ t97770.s1.tag = NULL_TYPE; /* x176337 stalin.sc:25197:870668 */ t97769.s1.tag = STRUCTURE_TYPE24753; t97769.s1.value.structure_type24753 = &t97770; /* x176338 stalin.sc:25197:870668 */ t97768.s0.tag = STRUCTURE_TYPE24753; t97768.s0.value.structure_type24753 = &t97769; /* x176339 stalin.sc:25197:870668 */ t97772.s0.tag = EXTERNAL_SYMBOL_TYPE; t97772.s0.value.external_symbol_type = q157; /* x176340 stalin.sc:25197:870668 */ t97773.s0.tag = ((unsigned)((unsigned char)'A'))<<2; /* x176341 stalin.sc:25197:870668 */ t97773.s1.tag = NULL_TYPE; /* x176342 stalin.sc:25197:870668 */ t97772.s1.tag = STRUCTURE_TYPE24753; t97772.s1.value.structure_type24753 = &t97773; /* x176343 stalin.sc:25197:870668 */ t97771.s0.tag = STRUCTURE_TYPE24753; t97771.s0.value.structure_type24753 = &t97772; /* x176344 stalin.sc:25197:870668 */ t97771.s1.tag = NULL_TYPE; /* x176345 stalin.sc:25197:870668 */ t97768.s1.tag = STRUCTURE_TYPE24753; t97768.s1.value.structure_type24753 = &t97771; /* x176346 stalin.sc:25197:870668 */ t97767.s1.tag = STRUCTURE_TYPE24753; t97767.s1.value.structure_type24753 = &t97768; /* x176347 stalin.sc:25197:870668 */ t97766.s0.tag = STRUCTURE_TYPE24753; t97766.s0.value.structure_type24753 = &t97767; /* x176348 stalin.sc:25197:870668 */ t97774.s0.tag = FIXNUM_TYPE; t97774.s0.value.fixnum_type = 10; /* x176349 stalin.sc:25197:870668 */ t97774.s1.tag = NULL_TYPE; /* x176350 stalin.sc:25197:870668 */ t97766.s1.tag = STRUCTURE_TYPE24753; t97766.s1.value.structure_type24753 = &t97774; /* x176351 stalin.sc:25197:870668 */ t97765.s1.tag = STRUCTURE_TYPE24753; t97765.s1.value.structure_type24753 = &t97766; /* x176352 stalin.sc:25197:870668 */ t97764.s0.tag = STRUCTURE_TYPE24753; t97764.s0.value.structure_type24753 = &t97765; /* x176353 stalin.sc:25197:870668 */ t97764.s1.tag = NULL_TYPE; /* x176354 stalin.sc:25197:870668 */ t97763.s1.tag = STRUCTURE_TYPE24753; t97763.s1.value.structure_type24753 = &t97764; /* x176355 stalin.sc:25197:870668 */ t97762.s0.tag = STRUCTURE_TYPE24753; t97762.s0.value.structure_type24753 = &t97763; /* x176356 stalin.sc:25197:870668 */ t97762.s1.tag = NULL_TYPE; /* x176357 stalin.sc:25197:870668 */ t97752.s1.tag = STRUCTURE_TYPE24753; t97752.s1.value.structure_type24753 = &t97762; /* x176358 stalin.sc:25197:870668 */ t97751.s0.tag = STRUCTURE_TYPE24753; t97751.s0.value.structure_type24753 = &t97752; /* x176359 stalin.sc:25197:870668 */ t97777.s0.tag = EXTERNAL_SYMBOL_TYPE; t97777.s0.value.external_symbol_type = q263; /* x176360 stalin.sc:25197:870668 */ t97778.s0.tag = EXTERNAL_SYMBOL_TYPE; t97778.s0.value.external_symbol_type = q275; /* x176361 stalin.sc:25197:870668 */ t97779.s0.tag = ((unsigned)((unsigned char)'+'))<<2; /* x176362 stalin.sc:25197:870668 */ t97779.s1.tag = NULL_TYPE; /* x176363 stalin.sc:25197:870668 */ t97778.s1.tag = STRUCTURE_TYPE24753; t97778.s1.value.structure_type24753 = &t97779; /* x176364 stalin.sc:25197:870668 */ t97777.s1.tag = STRUCTURE_TYPE24753; t97777.s1.value.structure_type24753 = &t97778; /* x176365 stalin.sc:25197:870668 */ t97776.s0.tag = STRUCTURE_TYPE24753; t97776.s0.value.structure_type24753 = &t97777; /* x176366 stalin.sc:25197:870668 */ t97781.s0.tag = EXTERNAL_SYMBOL_TYPE; t97781.s0.value.external_symbol_type = q242; /* x176367 stalin.sc:25197:870668 */ t97784.s0.tag = EXTERNAL_SYMBOL_TYPE; t97784.s0.value.external_symbol_type = q297; /* x176368 stalin.sc:25197:870668 */ t97786.s0.tag = EXTERNAL_SYMBOL_TYPE; t97786.s0.value.external_symbol_type = q264; /* x176369 stalin.sc:25197:870668 */ t97787.s0.tag = EXTERNAL_SYMBOL_TYPE; t97787.s0.value.external_symbol_type = q254; /* x176370 stalin.sc:25197:870668 */ t97787.s1.tag = NULL_TYPE; /* x176371 stalin.sc:25197:870668 */ t97786.s1.tag = STRUCTURE_TYPE24753; t97786.s1.value.structure_type24753 = &t97787; /* x176372 stalin.sc:25197:870668 */ t97785.s0.tag = STRUCTURE_TYPE24753; t97785.s0.value.structure_type24753 = &t97786; /* x176373 stalin.sc:25197:870668 */ t97785.s1.tag = NULL_TYPE; /* x176374 stalin.sc:25197:870668 */ t97784.s1.tag = STRUCTURE_TYPE24753; t97784.s1.value.structure_type24753 = &t97785; /* x176375 stalin.sc:25197:870668 */ t97783.s0.tag = STRUCTURE_TYPE24753; t97783.s0.value.structure_type24753 = &t97784; /* x176376 stalin.sc:25197:870668 */ t97783.s1.tag = NULL_TYPE; /* x176377 stalin.sc:25197:870668 */ t97782.s0.tag = STRUCTURE_TYPE24753; t97782.s0.value.structure_type24753 = &t97783; /* x176378 stalin.sc:25197:870668 */ t97789.s0.tag = EXTERNAL_SYMBOL_TYPE; t97789.s0.value.external_symbol_type = q43; /* x176379 stalin.sc:25197:870668 */ t97791.s0.tag = EXTERNAL_SYMBOL_TYPE; t97791.s0.value.external_symbol_type = q178; /* x176380 stalin.sc:25197:870668 */ t97792.s0.tag = EXTERNAL_SYMBOL_TYPE; t97792.s0.value.external_symbol_type = q297; /* x176381 stalin.sc:25197:870668 */ t97792.s1.tag = NULL_TYPE; /* x176382 stalin.sc:25197:870668 */ t97791.s1.tag = STRUCTURE_TYPE24753; t97791.s1.value.structure_type24753 = &t97792; /* x176383 stalin.sc:25197:870668 */ t97790.s0.tag = STRUCTURE_TYPE24753; t97790.s0.value.structure_type24753 = &t97791; /* x176384 stalin.sc:25197:870668 */ t97794.s0.tag = EXTERNAL_SYMBOL_TYPE; t97794.s0.value.external_symbol_type = q179; /* x176385 stalin.sc:25197:870668 */ t97795.s0.tag = STRING_TYPE; t97795.s0.value.string_type = "EOF while reading hexadecimal number"; /* x176386 stalin.sc:25197:870668 */ t97795.s1.tag = NULL_TYPE; /* x176387 stalin.sc:25197:870668 */ t97794.s1.tag = STRUCTURE_TYPE24753; t97794.s1.value.structure_type24753 = &t97795; /* x176388 stalin.sc:25197:870668 */ t97793.s0.tag = STRUCTURE_TYPE24753; t97793.s0.value.structure_type24753 = &t97794; /* x176389 stalin.sc:25197:870668 */ t97793.s1.tag = NULL_TYPE; /* x176390 stalin.sc:25197:870668 */ t97790.s1.tag = STRUCTURE_TYPE24753; t97790.s1.value.structure_type24753 = &t97793; /* x176391 stalin.sc:25197:870668 */ t97789.s1.tag = STRUCTURE_TYPE24753; t97789.s1.value.structure_type24753 = &t97790; /* x176392 stalin.sc:25197:870668 */ t97788.s0.tag = STRUCTURE_TYPE24753; t97788.s0.value.structure_type24753 = &t97789; /* x176393 stalin.sc:25197:870668 */ t97797.s0.tag = EXTERNAL_SYMBOL_TYPE; t97797.s0.value.external_symbol_type = q240; /* x176394 stalin.sc:25197:870668 */ t97800.s0.tag = EXTERNAL_SYMBOL_TYPE; t97800.s0.value.external_symbol_type = q269; /* x176395 stalin.sc:25197:870668 */ t97801.s0.tag = EXTERNAL_SYMBOL_TYPE; t97801.s0.value.external_symbol_type = q297; /* x176396 stalin.sc:25197:870668 */ t97801.s1.tag = NULL_TYPE; /* x176397 stalin.sc:25197:870668 */ t97800.s1.tag = STRUCTURE_TYPE24753; t97800.s1.value.structure_type24753 = &t97801; /* x176398 stalin.sc:25197:870668 */ t97799.s0.tag = STRUCTURE_TYPE24753; t97799.s0.value.structure_type24753 = &t97800; /* x176399 stalin.sc:25197:870668 */ t97803.s0.tag = EXTERNAL_SYMBOL_TYPE; t97803.s0.value.external_symbol_type = q270; /* x176400 stalin.sc:25197:870668 */ t97805.s0.tag = EXTERNAL_SYMBOL_TYPE; t97805.s0.value.external_symbol_type = q2; /* x176401 stalin.sc:25197:870668 */ t97807.s0.tag = EXTERNAL_SYMBOL_TYPE; t97807.s0.value.external_symbol_type = q157; /* x176402 stalin.sc:25197:870668 */ t97808.s0.tag = EXTERNAL_SYMBOL_TYPE; t97808.s0.value.external_symbol_type = q297; /* x176403 stalin.sc:25197:870668 */ t97808.s1.tag = NULL_TYPE; /* x176404 stalin.sc:25197:870668 */ t97807.s1.tag = STRUCTURE_TYPE24753; t97807.s1.value.structure_type24753 = &t97808; /* x176405 stalin.sc:25197:870668 */ t97806.s0.tag = STRUCTURE_TYPE24753; t97806.s0.value.structure_type24753 = &t97807; /* x176406 stalin.sc:25197:870668 */ t97810.s0.tag = EXTERNAL_SYMBOL_TYPE; t97810.s0.value.external_symbol_type = q157; /* x176407 stalin.sc:25197:870668 */ t97811.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x176408 stalin.sc:25197:870668 */ t97811.s1.tag = NULL_TYPE; /* x176409 stalin.sc:25197:870668 */ t97810.s1.tag = STRUCTURE_TYPE24753; t97810.s1.value.structure_type24753 = &t97811; /* x176410 stalin.sc:25197:870668 */ t97809.s0.tag = STRUCTURE_TYPE24753; t97809.s0.value.structure_type24753 = &t97810; /* x176411 stalin.sc:25197:870668 */ t97809.s1.tag = NULL_TYPE; /* x176412 stalin.sc:25197:870668 */ t97806.s1.tag = STRUCTURE_TYPE24753; t97806.s1.value.structure_type24753 = &t97809; /* x176413 stalin.sc:25197:870668 */ t97805.s1.tag = STRUCTURE_TYPE24753; t97805.s1.value.structure_type24753 = &t97806; /* x176414 stalin.sc:25197:870668 */ t97804.s0.tag = STRUCTURE_TYPE24753; t97804.s0.value.structure_type24753 = &t97805; /* x176415 stalin.sc:25197:870668 */ t97804.s1.tag = NULL_TYPE; /* x176416 stalin.sc:25197:870668 */ t97803.s1.tag = STRUCTURE_TYPE24753; t97803.s1.value.structure_type24753 = &t97804; /* x176417 stalin.sc:25197:870668 */ t97802.s0.tag = STRUCTURE_TYPE24753; t97802.s0.value.structure_type24753 = &t97803; /* x176418 stalin.sc:25197:870668 */ t97802.s1.tag = NULL_TYPE; /* x176419 stalin.sc:25197:870668 */ t97799.s1.tag = STRUCTURE_TYPE24753; t97799.s1.value.structure_type24753 = &t97802; /* x176420 stalin.sc:25197:870668 */ t97798.s0.tag = STRUCTURE_TYPE24753; t97798.s0.value.structure_type24753 = &t97799; /* x176421 stalin.sc:25197:870668 */ t97814.s0.tag = EXTERNAL_SYMBOL_TYPE; t97814.s0.value.external_symbol_type = q244; /* x176422 stalin.sc:25197:870668 */ t97816.s0.tag = EXTERNAL_SYMBOL_TYPE; t97816.s0.value.external_symbol_type = q266; /* x176423 stalin.sc:25197:870668 */ t97817.s0.tag = EXTERNAL_SYMBOL_TYPE; t97817.s0.value.external_symbol_type = q297; /* x176424 stalin.sc:25197:870668 */ t97818.s0.tag = ((unsigned)((unsigned char)'a'))<<2; /* x176425 stalin.sc:25197:870668 */ t97818.s1.tag = NULL_TYPE; /* x176426 stalin.sc:25197:870668 */ t97817.s1.tag = STRUCTURE_TYPE24753; t97817.s1.value.structure_type24753 = &t97818; /* x176427 stalin.sc:25197:870668 */ t97816.s1.tag = STRUCTURE_TYPE24753; t97816.s1.value.structure_type24753 = &t97817; /* x176428 stalin.sc:25197:870668 */ t97815.s0.tag = STRUCTURE_TYPE24753; t97815.s0.value.structure_type24753 = &t97816; /* x176429 stalin.sc:25197:870668 */ t97820.s0.tag = EXTERNAL_SYMBOL_TYPE; t97820.s0.value.external_symbol_type = q267; /* x176430 stalin.sc:25197:870668 */ t97821.s0.tag = EXTERNAL_SYMBOL_TYPE; t97821.s0.value.external_symbol_type = q297; /* x176431 stalin.sc:25197:870668 */ t97822.s0.tag = ((unsigned)((unsigned char)'f'))<<2; /* x176432 stalin.sc:25197:870668 */ t97822.s1.tag = NULL_TYPE; /* x176433 stalin.sc:25197:870668 */ t97821.s1.tag = STRUCTURE_TYPE24753; t97821.s1.value.structure_type24753 = &t97822; /* x176434 stalin.sc:25197:870668 */ t97820.s1.tag = STRUCTURE_TYPE24753; t97820.s1.value.structure_type24753 = &t97821; /* x176435 stalin.sc:25197:870668 */ t97819.s0.tag = STRUCTURE_TYPE24753; t97819.s0.value.structure_type24753 = &t97820; /* x176436 stalin.sc:25197:870668 */ t97819.s1.tag = NULL_TYPE; /* x176437 stalin.sc:25197:870668 */ t97815.s1.tag = STRUCTURE_TYPE24753; t97815.s1.value.structure_type24753 = &t97819; /* x176438 stalin.sc:25197:870668 */ t97814.s1.tag = STRUCTURE_TYPE24753; t97814.s1.value.structure_type24753 = &t97815; /* x176439 stalin.sc:25197:870668 */ t97813.s0.tag = STRUCTURE_TYPE24753; t97813.s0.value.structure_type24753 = &t97814; /* x176440 stalin.sc:25197:870668 */ t97824.s0.tag = EXTERNAL_SYMBOL_TYPE; t97824.s0.value.external_symbol_type = q270; /* x176441 stalin.sc:25197:870668 */ t97826.s0.tag = EXTERNAL_SYMBOL_TYPE; t97826.s0.value.external_symbol_type = q4; /* x176442 stalin.sc:25197:870668 */ t97828.s0.tag = EXTERNAL_SYMBOL_TYPE; t97828.s0.value.external_symbol_type = q2; /* x176443 stalin.sc:25197:870668 */ t97830.s0.tag = EXTERNAL_SYMBOL_TYPE; t97830.s0.value.external_symbol_type = q157; /* x176444 stalin.sc:25197:870668 */ t97831.s0.tag = EXTERNAL_SYMBOL_TYPE; t97831.s0.value.external_symbol_type = q297; /* x176445 stalin.sc:25197:870668 */ t97831.s1.tag = NULL_TYPE; /* x176446 stalin.sc:25197:870668 */ t97830.s1.tag = STRUCTURE_TYPE24753; t97830.s1.value.structure_type24753 = &t97831; /* x176447 stalin.sc:25197:870668 */ t97829.s0.tag = STRUCTURE_TYPE24753; t97829.s0.value.structure_type24753 = &t97830; /* x176448 stalin.sc:25197:870668 */ t97833.s0.tag = EXTERNAL_SYMBOL_TYPE; t97833.s0.value.external_symbol_type = q157; /* x176449 stalin.sc:25197:870668 */ t97834.s0.tag = ((unsigned)((unsigned char)'a'))<<2; /* x176450 stalin.sc:25197:870668 */ t97834.s1.tag = NULL_TYPE; /* x176451 stalin.sc:25197:870668 */ t97833.s1.tag = STRUCTURE_TYPE24753; t97833.s1.value.structure_type24753 = &t97834; /* x176452 stalin.sc:25197:870668 */ t97832.s0.tag = STRUCTURE_TYPE24753; t97832.s0.value.structure_type24753 = &t97833; /* x176453 stalin.sc:25197:870668 */ t97832.s1.tag = NULL_TYPE; /* x176454 stalin.sc:25197:870668 */ t97829.s1.tag = STRUCTURE_TYPE24753; t97829.s1.value.structure_type24753 = &t97832; /* x176455 stalin.sc:25197:870668 */ t97828.s1.tag = STRUCTURE_TYPE24753; t97828.s1.value.structure_type24753 = &t97829; /* x176456 stalin.sc:25197:870668 */ t97827.s0.tag = STRUCTURE_TYPE24753; t97827.s0.value.structure_type24753 = &t97828; /* x176457 stalin.sc:25197:870668 */ t97835.s0.tag = FIXNUM_TYPE; t97835.s0.value.fixnum_type = 10; /* x176458 stalin.sc:25197:870668 */} void initialize_constants31(void) {t97835.s1.tag = NULL_TYPE; /* x176459 stalin.sc:25197:870668 */ t97827.s1.tag = STRUCTURE_TYPE24753; t97827.s1.value.structure_type24753 = &t97835; /* x176460 stalin.sc:25197:870668 */ t97826.s1.tag = STRUCTURE_TYPE24753; t97826.s1.value.structure_type24753 = &t97827; /* x176461 stalin.sc:25197:870668 */ t97825.s0.tag = STRUCTURE_TYPE24753; t97825.s0.value.structure_type24753 = &t97826; /* x176462 stalin.sc:25197:870668 */ t97825.s1.tag = NULL_TYPE; /* x176463 stalin.sc:25197:870668 */ t97824.s1.tag = STRUCTURE_TYPE24753; t97824.s1.value.structure_type24753 = &t97825; /* x176464 stalin.sc:25197:870668 */ t97823.s0.tag = STRUCTURE_TYPE24753; t97823.s0.value.structure_type24753 = &t97824; /* x176465 stalin.sc:25197:870668 */ t97823.s1.tag = NULL_TYPE; /* x176466 stalin.sc:25197:870668 */ t97813.s1.tag = STRUCTURE_TYPE24753; t97813.s1.value.structure_type24753 = &t97823; /* x176467 stalin.sc:25197:870668 */ t97812.s0.tag = STRUCTURE_TYPE24753; t97812.s0.value.structure_type24753 = &t97813; /* x176468 stalin.sc:25197:870668 */ t97838.s0.tag = EXTERNAL_SYMBOL_TYPE; t97838.s0.value.external_symbol_type = q244; /* x176469 stalin.sc:25197:870668 */ t97840.s0.tag = EXTERNAL_SYMBOL_TYPE; t97840.s0.value.external_symbol_type = q266; /* x176470 stalin.sc:25197:870668 */ t97841.s0.tag = EXTERNAL_SYMBOL_TYPE; t97841.s0.value.external_symbol_type = q297; /* x176471 stalin.sc:25197:870668 */ t97842.s0.tag = ((unsigned)((unsigned char)'A'))<<2; /* x176472 stalin.sc:25197:870668 */ t97842.s1.tag = NULL_TYPE; /* x176473 stalin.sc:25197:870668 */ t97841.s1.tag = STRUCTURE_TYPE24753; t97841.s1.value.structure_type24753 = &t97842; /* x176474 stalin.sc:25197:870668 */ t97840.s1.tag = STRUCTURE_TYPE24753; t97840.s1.value.structure_type24753 = &t97841; /* x176475 stalin.sc:25197:870668 */ t97839.s0.tag = STRUCTURE_TYPE24753; t97839.s0.value.structure_type24753 = &t97840; /* x176476 stalin.sc:25197:870668 */ t97844.s0.tag = EXTERNAL_SYMBOL_TYPE; t97844.s0.value.external_symbol_type = q267; /* x176477 stalin.sc:25197:870668 */ t97845.s0.tag = EXTERNAL_SYMBOL_TYPE; t97845.s0.value.external_symbol_type = q297; /* x176478 stalin.sc:25197:870668 */ t97846.s0.tag = ((unsigned)((unsigned char)'F'))<<2; /* x176479 stalin.sc:25197:870668 */ t97846.s1.tag = NULL_TYPE; /* x176480 stalin.sc:25197:870668 */ t97845.s1.tag = STRUCTURE_TYPE24753; t97845.s1.value.structure_type24753 = &t97846; /* x176481 stalin.sc:25197:870668 */ t97844.s1.tag = STRUCTURE_TYPE24753; t97844.s1.value.structure_type24753 = &t97845; /* x176482 stalin.sc:25197:870668 */ t97843.s0.tag = STRUCTURE_TYPE24753; t97843.s0.value.structure_type24753 = &t97844; /* x176483 stalin.sc:25197:870668 */ t97843.s1.tag = NULL_TYPE; /* x176484 stalin.sc:25197:870668 */ t97839.s1.tag = STRUCTURE_TYPE24753; t97839.s1.value.structure_type24753 = &t97843; /* x176485 stalin.sc:25197:870668 */ t97838.s1.tag = STRUCTURE_TYPE24753; t97838.s1.value.structure_type24753 = &t97839; /* x176486 stalin.sc:25197:870668 */ t97837.s0.tag = STRUCTURE_TYPE24753; t97837.s0.value.structure_type24753 = &t97838; /* x176487 stalin.sc:25197:870668 */ t97848.s0.tag = EXTERNAL_SYMBOL_TYPE; t97848.s0.value.external_symbol_type = q270; /* x176488 stalin.sc:25197:870668 */ t97850.s0.tag = EXTERNAL_SYMBOL_TYPE; t97850.s0.value.external_symbol_type = q4; /* x176489 stalin.sc:25197:870668 */ t97852.s0.tag = EXTERNAL_SYMBOL_TYPE; t97852.s0.value.external_symbol_type = q2; /* x176490 stalin.sc:25197:870668 */ t97854.s0.tag = EXTERNAL_SYMBOL_TYPE; t97854.s0.value.external_symbol_type = q157; /* x176491 stalin.sc:25197:870668 */ t97855.s0.tag = EXTERNAL_SYMBOL_TYPE; t97855.s0.value.external_symbol_type = q297; /* x176492 stalin.sc:25197:870668 */ t97855.s1.tag = NULL_TYPE; /* x176493 stalin.sc:25197:870668 */ t97854.s1.tag = STRUCTURE_TYPE24753; t97854.s1.value.structure_type24753 = &t97855; /* x176494 stalin.sc:25197:870668 */ t97853.s0.tag = STRUCTURE_TYPE24753; t97853.s0.value.structure_type24753 = &t97854; /* x176495 stalin.sc:25197:870668 */ t97857.s0.tag = EXTERNAL_SYMBOL_TYPE; t97857.s0.value.external_symbol_type = q157; /* x176496 stalin.sc:25197:870668 */ t97858.s0.tag = ((unsigned)((unsigned char)'A'))<<2; /* x176497 stalin.sc:25197:870668 */ t97858.s1.tag = NULL_TYPE; /* x176498 stalin.sc:25197:870668 */ t97857.s1.tag = STRUCTURE_TYPE24753; t97857.s1.value.structure_type24753 = &t97858; /* x176499 stalin.sc:25197:870668 */ t97856.s0.tag = STRUCTURE_TYPE24753; t97856.s0.value.structure_type24753 = &t97857; /* x176500 stalin.sc:25197:870668 */ t97856.s1.tag = NULL_TYPE; /* x176501 stalin.sc:25197:870668 */ t97853.s1.tag = STRUCTURE_TYPE24753; t97853.s1.value.structure_type24753 = &t97856; /* x176502 stalin.sc:25197:870668 */ t97852.s1.tag = STRUCTURE_TYPE24753; t97852.s1.value.structure_type24753 = &t97853; /* x176503 stalin.sc:25197:870668 */ t97851.s0.tag = STRUCTURE_TYPE24753; t97851.s0.value.structure_type24753 = &t97852; /* x176504 stalin.sc:25197:870668 */ t97859.s0.tag = FIXNUM_TYPE; t97859.s0.value.fixnum_type = 10; /* x176505 stalin.sc:25197:870668 */ t97859.s1.tag = NULL_TYPE; /* x176506 stalin.sc:25197:870668 */ t97851.s1.tag = STRUCTURE_TYPE24753; t97851.s1.value.structure_type24753 = &t97859; /* x176507 stalin.sc:25197:870668 */ t97850.s1.tag = STRUCTURE_TYPE24753; t97850.s1.value.structure_type24753 = &t97851; /* x176508 stalin.sc:25197:870668 */ t97849.s0.tag = STRUCTURE_TYPE24753; t97849.s0.value.structure_type24753 = &t97850; /* x176509 stalin.sc:25197:870668 */ t97849.s1.tag = NULL_TYPE; /* x176510 stalin.sc:25197:870668 */ t97848.s1.tag = STRUCTURE_TYPE24753; t97848.s1.value.structure_type24753 = &t97849; /* x176511 stalin.sc:25197:870668 */ t97847.s0.tag = STRUCTURE_TYPE24753; t97847.s0.value.structure_type24753 = &t97848; /* x176512 stalin.sc:25197:870668 */ t97847.s1.tag = NULL_TYPE; /* x176513 stalin.sc:25197:870668 */ t97837.s1.tag = STRUCTURE_TYPE24753; t97837.s1.value.structure_type24753 = &t97847; /* x176514 stalin.sc:25197:870668 */ t97836.s0.tag = STRUCTURE_TYPE24753; t97836.s0.value.structure_type24753 = &t97837; /* x176515 stalin.sc:25197:870668 */ t97861.s0.tag = EXTERNAL_SYMBOL_TYPE; t97861.s0.value.external_symbol_type = q95; /* x176516 stalin.sc:25197:870668 */ t97863.s0.tag = EXTERNAL_SYMBOL_TYPE; t97863.s0.value.external_symbol_type = q179; /* x176517 stalin.sc:25197:870668 */ t97864.s0.tag = STRING_TYPE; t97864.s0.value.string_type = "Unfinished hexadecimal number"; /* x176518 stalin.sc:25197:870668 */ t97864.s1.tag = NULL_TYPE; /* x176519 stalin.sc:25197:870668 */ t97863.s1.tag = STRUCTURE_TYPE24753; t97863.s1.value.structure_type24753 = &t97864; /* x176520 stalin.sc:25197:870668 */ t97862.s0.tag = STRUCTURE_TYPE24753; t97862.s0.value.structure_type24753 = &t97863; /* x176521 stalin.sc:25197:870668 */ t97862.s1.tag = NULL_TYPE; /* x176522 stalin.sc:25197:870668 */ t97861.s1.tag = STRUCTURE_TYPE24753; t97861.s1.value.structure_type24753 = &t97862; /* x176523 stalin.sc:25197:870668 */ t97860.s0.tag = STRUCTURE_TYPE24753; t97860.s0.value.structure_type24753 = &t97861; /* x176524 stalin.sc:25197:870668 */ t97860.s1.tag = NULL_TYPE; /* x176525 stalin.sc:25197:870668 */ t97836.s1.tag = STRUCTURE_TYPE24753; t97836.s1.value.structure_type24753 = &t97860; /* x176526 stalin.sc:25197:870668 */ t97812.s1.tag = STRUCTURE_TYPE24753; t97812.s1.value.structure_type24753 = &t97836; /* x176527 stalin.sc:25197:870668 */ t97798.s1.tag = STRUCTURE_TYPE24753; t97798.s1.value.structure_type24753 = &t97812; /* x176528 stalin.sc:25197:870668 */ t97797.s1.tag = STRUCTURE_TYPE24753; t97797.s1.value.structure_type24753 = &t97798; /* x176529 stalin.sc:25197:870668 */ t97796.s0.tag = STRUCTURE_TYPE24753; t97796.s0.value.structure_type24753 = &t97797; /* x176530 stalin.sc:25197:870668 */ t97796.s1.tag = NULL_TYPE; /* x176531 stalin.sc:25197:870668 */ t97788.s1.tag = STRUCTURE_TYPE24753; t97788.s1.value.structure_type24753 = &t97796; /* x176532 stalin.sc:25197:870668 */ t97782.s1.tag = STRUCTURE_TYPE24753; t97782.s1.value.structure_type24753 = &t97788; /* x176533 stalin.sc:25197:870668 */ t97781.s1.tag = STRUCTURE_TYPE24753; t97781.s1.value.structure_type24753 = &t97782; /* x176534 stalin.sc:25197:870668 */ t97780.s0.tag = STRUCTURE_TYPE24753; t97780.s0.value.structure_type24753 = &t97781; /* x176535 stalin.sc:25197:870668 */ t97780.s1.tag = NULL_TYPE; /* x176536 stalin.sc:25197:870668 */ t97776.s1.tag = STRUCTURE_TYPE24753; t97776.s1.value.structure_type24753 = &t97780; /* x176537 stalin.sc:25197:870668 */ t97775.s0.tag = STRUCTURE_TYPE24753; t97775.s0.value.structure_type24753 = &t97776; /* x176538 stalin.sc:25197:870668 */ t97867.s0.tag = EXTERNAL_SYMBOL_TYPE; t97867.s0.value.external_symbol_type = q263; /* x176539 stalin.sc:25197:870668 */ t97868.s0.tag = EXTERNAL_SYMBOL_TYPE; t97868.s0.value.external_symbol_type = q275; /* x176540 stalin.sc:25197:870668 */ t97869.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x176541 stalin.sc:25197:870668 */ t97869.s1.tag = NULL_TYPE; /* x176542 stalin.sc:25197:870668 */ t97868.s1.tag = STRUCTURE_TYPE24753; t97868.s1.value.structure_type24753 = &t97869; /* x176543 stalin.sc:25197:870668 */ t97867.s1.tag = STRUCTURE_TYPE24753; t97867.s1.value.structure_type24753 = &t97868; /* x176544 stalin.sc:25197:870668 */ t97866.s0.tag = STRUCTURE_TYPE24753; t97866.s0.value.structure_type24753 = &t97867; /* x176545 stalin.sc:25197:870668 */ t97871.s0.tag = EXTERNAL_SYMBOL_TYPE; t97871.s0.value.external_symbol_type = q242; /* x176546 stalin.sc:25197:870668 */ t97874.s0.tag = EXTERNAL_SYMBOL_TYPE; t97874.s0.value.external_symbol_type = q297; /* x176547 stalin.sc:25197:870668 */ t97876.s0.tag = EXTERNAL_SYMBOL_TYPE; t97876.s0.value.external_symbol_type = q264; /* x176548 stalin.sc:25197:870668 */ t97877.s0.tag = EXTERNAL_SYMBOL_TYPE; t97877.s0.value.external_symbol_type = q254; /* x176549 stalin.sc:25197:870668 */ t97877.s1.tag = NULL_TYPE; /* x176550 stalin.sc:25197:870668 */ t97876.s1.tag = STRUCTURE_TYPE24753; t97876.s1.value.structure_type24753 = &t97877; /* x176551 stalin.sc:25197:870668 */ t97875.s0.tag = STRUCTURE_TYPE24753; t97875.s0.value.structure_type24753 = &t97876; /* x176552 stalin.sc:25197:870668 */ t97875.s1.tag = NULL_TYPE; /* x176553 stalin.sc:25197:870668 */ t97874.s1.tag = STRUCTURE_TYPE24753; t97874.s1.value.structure_type24753 = &t97875; /* x176554 stalin.sc:25197:870668 */ t97873.s0.tag = STRUCTURE_TYPE24753; t97873.s0.value.structure_type24753 = &t97874; /* x176555 stalin.sc:25197:870668 */ t97873.s1.tag = NULL_TYPE; /* x176556 stalin.sc:25197:870668 */ t97872.s0.tag = STRUCTURE_TYPE24753; t97872.s0.value.structure_type24753 = &t97873; /* x176557 stalin.sc:25197:870668 */ t97879.s0.tag = EXTERNAL_SYMBOL_TYPE; t97879.s0.value.external_symbol_type = q43; /* x176558 stalin.sc:25197:870668 */ t97881.s0.tag = EXTERNAL_SYMBOL_TYPE; t97881.s0.value.external_symbol_type = q178; /* x176559 stalin.sc:25197:870668 */ t97882.s0.tag = EXTERNAL_SYMBOL_TYPE; t97882.s0.value.external_symbol_type = q297; /* x176560 stalin.sc:25197:870668 */ t97882.s1.tag = NULL_TYPE; /* x176561 stalin.sc:25197:870668 */ t97881.s1.tag = STRUCTURE_TYPE24753; t97881.s1.value.structure_type24753 = &t97882; /* x176562 stalin.sc:25197:870668 */ t97880.s0.tag = STRUCTURE_TYPE24753; t97880.s0.value.structure_type24753 = &t97881; /* x176563 stalin.sc:25197:870668 */ t97884.s0.tag = EXTERNAL_SYMBOL_TYPE; t97884.s0.value.external_symbol_type = q179; /* x176564 stalin.sc:25197:870668 */ t97885.s0.tag = STRING_TYPE; t97885.s0.value.string_type = "EOF while reading hexadecimal number"; /* x176565 stalin.sc:25197:870668 */ t97885.s1.tag = NULL_TYPE; /* x176566 stalin.sc:25197:870668 */ t97884.s1.tag = STRUCTURE_TYPE24753; t97884.s1.value.structure_type24753 = &t97885; /* x176567 stalin.sc:25197:870668 */ t97883.s0.tag = STRUCTURE_TYPE24753; t97883.s0.value.structure_type24753 = &t97884; /* x176568 stalin.sc:25197:870668 */ t97883.s1.tag = NULL_TYPE; /* x176569 stalin.sc:25197:870668 */ t97880.s1.tag = STRUCTURE_TYPE24753; t97880.s1.value.structure_type24753 = &t97883; /* x176570 stalin.sc:25197:870668 */ t97879.s1.tag = STRUCTURE_TYPE24753; t97879.s1.value.structure_type24753 = &t97880; /* x176571 stalin.sc:25197:870668 */ t97878.s0.tag = STRUCTURE_TYPE24753; t97878.s0.value.structure_type24753 = &t97879; /* x176572 stalin.sc:25197:870668 */ t97887.s0.tag = EXTERNAL_SYMBOL_TYPE; t97887.s0.value.external_symbol_type = q240; /* x176573 stalin.sc:25197:870668 */ t97890.s0.tag = EXTERNAL_SYMBOL_TYPE; t97890.s0.value.external_symbol_type = q269; /* x176574 stalin.sc:25197:870668 */ t97891.s0.tag = EXTERNAL_SYMBOL_TYPE; t97891.s0.value.external_symbol_type = q297; /* x176575 stalin.sc:25197:870668 */ t97891.s1.tag = NULL_TYPE; /* x176576 stalin.sc:25197:870668 */ t97890.s1.tag = STRUCTURE_TYPE24753; t97890.s1.value.structure_type24753 = &t97891; /* x176577 stalin.sc:25197:870668 */ t97889.s0.tag = STRUCTURE_TYPE24753; t97889.s0.value.structure_type24753 = &t97890; /* x176578 stalin.sc:25197:870668 */ t97893.s0.tag = EXTERNAL_SYMBOL_TYPE; t97893.s0.value.external_symbol_type = q2; /* x176579 stalin.sc:25197:870668 */ t97895.s0.tag = EXTERNAL_SYMBOL_TYPE; t97895.s0.value.external_symbol_type = q270; /* x176580 stalin.sc:25197:870668 */ t97897.s0.tag = EXTERNAL_SYMBOL_TYPE; t97897.s0.value.external_symbol_type = q2; /* x176581 stalin.sc:25197:870668 */ t97899.s0.tag = EXTERNAL_SYMBOL_TYPE; t97899.s0.value.external_symbol_type = q157; /* x176582 stalin.sc:25197:870668 */ t97900.s0.tag = EXTERNAL_SYMBOL_TYPE; t97900.s0.value.external_symbol_type = q297; /* x176583 stalin.sc:25197:870668 */ t97900.s1.tag = NULL_TYPE; /* x176584 stalin.sc:25197:870668 */ t97899.s1.tag = STRUCTURE_TYPE24753; t97899.s1.value.structure_type24753 = &t97900; /* x176585 stalin.sc:25197:870668 */ t97898.s0.tag = STRUCTURE_TYPE24753; t97898.s0.value.structure_type24753 = &t97899; /* x176586 stalin.sc:25197:870668 */ t97902.s0.tag = EXTERNAL_SYMBOL_TYPE; t97902.s0.value.external_symbol_type = q157; /* x176587 stalin.sc:25197:870668 */ t97903.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x176588 stalin.sc:25197:870668 */ t97903.s1.tag = NULL_TYPE; /* x176589 stalin.sc:25197:870668 */ t97902.s1.tag = STRUCTURE_TYPE24753; t97902.s1.value.structure_type24753 = &t97903; /* x176590 stalin.sc:25197:870668 */ t97901.s0.tag = STRUCTURE_TYPE24753; t97901.s0.value.structure_type24753 = &t97902; /* x176591 stalin.sc:25197:870668 */ t97901.s1.tag = NULL_TYPE; /* x176592 stalin.sc:25197:870668 */ t97898.s1.tag = STRUCTURE_TYPE24753; t97898.s1.value.structure_type24753 = &t97901; /* x176593 stalin.sc:25197:870668 */ t97897.s1.tag = STRUCTURE_TYPE24753; t97897.s1.value.structure_type24753 = &t97898; /* x176594 stalin.sc:25197:870668 */ t97896.s0.tag = STRUCTURE_TYPE24753; t97896.s0.value.structure_type24753 = &t97897; /* x176595 stalin.sc:25197:870668 */ t97896.s1.tag = NULL_TYPE; /* x176596 stalin.sc:25197:870668 */ t97895.s1.tag = STRUCTURE_TYPE24753; t97895.s1.value.structure_type24753 = &t97896; /* x176597 stalin.sc:25197:870668 */ t97894.s0.tag = STRUCTURE_TYPE24753; t97894.s0.value.structure_type24753 = &t97895; /* x176598 stalin.sc:25197:870668 */ t97894.s1.tag = NULL_TYPE; /* x176599 stalin.sc:25197:870668 */ t97893.s1.tag = STRUCTURE_TYPE24753; t97893.s1.value.structure_type24753 = &t97894; /* x176600 stalin.sc:25197:870668 */ t97892.s0.tag = STRUCTURE_TYPE24753; t97892.s0.value.structure_type24753 = &t97893; /* x176601 stalin.sc:25197:870668 */ t97892.s1.tag = NULL_TYPE; /* x176602 stalin.sc:25197:870668 */ t97889.s1.tag = STRUCTURE_TYPE24753; t97889.s1.value.structure_type24753 = &t97892; /* x176603 stalin.sc:25197:870668 */ t97888.s0.tag = STRUCTURE_TYPE24753; t97888.s0.value.structure_type24753 = &t97889; /* x176604 stalin.sc:25197:870668 */ t97906.s0.tag = EXTERNAL_SYMBOL_TYPE; t97906.s0.value.external_symbol_type = q244; /* x176605 stalin.sc:25197:870668 */ t97908.s0.tag = EXTERNAL_SYMBOL_TYPE; t97908.s0.value.external_symbol_type = q266; /* x176606 stalin.sc:25197:870668 */ t97909.s0.tag = EXTERNAL_SYMBOL_TYPE; t97909.s0.value.external_symbol_type = q297; /* x176607 stalin.sc:25197:870668 */ t97910.s0.tag = ((unsigned)((unsigned char)'a'))<<2; /* x176608 stalin.sc:25197:870668 */ t97910.s1.tag = NULL_TYPE; /* x176609 stalin.sc:25197:870668 */ t97909.s1.tag = STRUCTURE_TYPE24753; t97909.s1.value.structure_type24753 = &t97910; /* x176610 stalin.sc:25197:870668 */ t97908.s1.tag = STRUCTURE_TYPE24753; t97908.s1.value.structure_type24753 = &t97909; /* x176611 stalin.sc:25197:870668 */ t97907.s0.tag = STRUCTURE_TYPE24753; t97907.s0.value.structure_type24753 = &t97908; /* x176612 stalin.sc:25197:870668 */ t97912.s0.tag = EXTERNAL_SYMBOL_TYPE; t97912.s0.value.external_symbol_type = q267; /* x176613 stalin.sc:25197:870668 */ t97913.s0.tag = EXTERNAL_SYMBOL_TYPE; t97913.s0.value.external_symbol_type = q297; /* x176614 stalin.sc:25197:870668 */ t97914.s0.tag = ((unsigned)((unsigned char)'f'))<<2; /* x176615 stalin.sc:25197:870668 */ t97914.s1.tag = NULL_TYPE; /* x176616 stalin.sc:25197:870668 */ t97913.s1.tag = STRUCTURE_TYPE24753; t97913.s1.value.structure_type24753 = &t97914; /* x176617 stalin.sc:25197:870668 */ t97912.s1.tag = STRUCTURE_TYPE24753; t97912.s1.value.structure_type24753 = &t97913; /* x176618 stalin.sc:25197:870668 */ t97911.s0.tag = STRUCTURE_TYPE24753; t97911.s0.value.structure_type24753 = &t97912; /* x176619 stalin.sc:25197:870668 */ t97911.s1.tag = NULL_TYPE; /* x176620 stalin.sc:25197:870668 */ t97907.s1.tag = STRUCTURE_TYPE24753; t97907.s1.value.structure_type24753 = &t97911; /* x176621 stalin.sc:25197:870668 */ t97906.s1.tag = STRUCTURE_TYPE24753; t97906.s1.value.structure_type24753 = &t97907; /* x176622 stalin.sc:25197:870668 */ t97905.s0.tag = STRUCTURE_TYPE24753; t97905.s0.value.structure_type24753 = &t97906; /* x176623 stalin.sc:25197:870668 */ t97916.s0.tag = EXTERNAL_SYMBOL_TYPE; t97916.s0.value.external_symbol_type = q2; /* x176624 stalin.sc:25197:870668 */ t97918.s0.tag = EXTERNAL_SYMBOL_TYPE; t97918.s0.value.external_symbol_type = q270; /* x176625 stalin.sc:25197:870668 */ t97920.s0.tag = EXTERNAL_SYMBOL_TYPE; t97920.s0.value.external_symbol_type = q4; /* x176626 stalin.sc:25197:870668 */ t97922.s0.tag = EXTERNAL_SYMBOL_TYPE; t97922.s0.value.external_symbol_type = q2; /* x176627 stalin.sc:25197:870668 */ t97924.s0.tag = EXTERNAL_SYMBOL_TYPE; t97924.s0.value.external_symbol_type = q157; /* x176628 stalin.sc:25197:870668 */ t97925.s0.tag = EXTERNAL_SYMBOL_TYPE; t97925.s0.value.external_symbol_type = q297; /* x176629 stalin.sc:25197:870668 */ t97925.s1.tag = NULL_TYPE; /* x176630 stalin.sc:25197:870668 */ t97924.s1.tag = STRUCTURE_TYPE24753; t97924.s1.value.structure_type24753 = &t97925; /* x176631 stalin.sc:25197:870668 */ t97923.s0.tag = STRUCTURE_TYPE24753; t97923.s0.value.structure_type24753 = &t97924; /* x176632 stalin.sc:25197:870668 */ t97927.s0.tag = EXTERNAL_SYMBOL_TYPE; t97927.s0.value.external_symbol_type = q157; /* x176633 stalin.sc:25197:870668 */ t97928.s0.tag = ((unsigned)((unsigned char)'a'))<<2; /* x176634 stalin.sc:25197:870668 */ t97928.s1.tag = NULL_TYPE; /* x176635 stalin.sc:25197:870668 */ t97927.s1.tag = STRUCTURE_TYPE24753; t97927.s1.value.structure_type24753 = &t97928; /* x176636 stalin.sc:25197:870668 */ t97926.s0.tag = STRUCTURE_TYPE24753; t97926.s0.value.structure_type24753 = &t97927; /* x176637 stalin.sc:25197:870668 */ t97926.s1.tag = NULL_TYPE; /* x176638 stalin.sc:25197:870668 */ t97923.s1.tag = STRUCTURE_TYPE24753; t97923.s1.value.structure_type24753 = &t97926; /* x176639 stalin.sc:25197:870668 */ t97922.s1.tag = STRUCTURE_TYPE24753; t97922.s1.value.structure_type24753 = &t97923; /* x176640 stalin.sc:25197:870668 */ t97921.s0.tag = STRUCTURE_TYPE24753; t97921.s0.value.structure_type24753 = &t97922; /* x176641 stalin.sc:25197:870668 */ t97929.s0.tag = FIXNUM_TYPE; t97929.s0.value.fixnum_type = 10; /* x176642 stalin.sc:25197:870668 */ t97929.s1.tag = NULL_TYPE; /* x176643 stalin.sc:25197:870668 */ t97921.s1.tag = STRUCTURE_TYPE24753; t97921.s1.value.structure_type24753 = &t97929; /* x176644 stalin.sc:25197:870668 */ t97920.s1.tag = STRUCTURE_TYPE24753; t97920.s1.value.structure_type24753 = &t97921; /* x176645 stalin.sc:25197:870668 */ t97919.s0.tag = STRUCTURE_TYPE24753; t97919.s0.value.structure_type24753 = &t97920; /* x176646 stalin.sc:25197:870668 */ t97919.s1.tag = NULL_TYPE; /* x176647 stalin.sc:25197:870668 */ t97918.s1.tag = STRUCTURE_TYPE24753; t97918.s1.value.structure_type24753 = &t97919; /* x176648 stalin.sc:25197:870668 */ t97917.s0.tag = STRUCTURE_TYPE24753; t97917.s0.value.structure_type24753 = &t97918; /* x176649 stalin.sc:25197:870668 */ t97917.s1.tag = NULL_TYPE; /* x176650 stalin.sc:25197:870668 */ t97916.s1.tag = STRUCTURE_TYPE24753; t97916.s1.value.structure_type24753 = &t97917; /* x176651 stalin.sc:25197:870668 */ t97915.s0.tag = STRUCTURE_TYPE24753; t97915.s0.value.structure_type24753 = &t97916; /* x176652 stalin.sc:25197:870668 */ t97915.s1.tag = NULL_TYPE; /* x176653 stalin.sc:25197:870668 */ t97905.s1.tag = STRUCTURE_TYPE24753; t97905.s1.value.structure_type24753 = &t97915; /* x176654 stalin.sc:25197:870668 */ t97904.s0.tag = STRUCTURE_TYPE24753; t97904.s0.value.structure_type24753 = &t97905; /* x176655 stalin.sc:25197:870668 */ t97932.s0.tag = EXTERNAL_SYMBOL_TYPE; t97932.s0.value.external_symbol_type = q244; /* x176656 stalin.sc:25197:870668 */ t97934.s0.tag = EXTERNAL_SYMBOL_TYPE; t97934.s0.value.external_symbol_type = q266; /* x176657 stalin.sc:25197:870668 */ t97935.s0.tag = EXTERNAL_SYMBOL_TYPE; t97935.s0.value.external_symbol_type = q297; /* x176658 stalin.sc:25197:870668 */ t97936.s0.tag = ((unsigned)((unsigned char)'A'))<<2; /* x176659 stalin.sc:25197:870668 */ t97936.s1.tag = NULL_TYPE; /* x176660 stalin.sc:25197:870668 */ t97935.s1.tag = STRUCTURE_TYPE24753; t97935.s1.value.structure_type24753 = &t97936; /* x176661 stalin.sc:25197:870668 */ t97934.s1.tag = STRUCTURE_TYPE24753; t97934.s1.value.structure_type24753 = &t97935; /* x176662 stalin.sc:25197:870668 */ t97933.s0.tag = STRUCTURE_TYPE24753; t97933.s0.value.structure_type24753 = &t97934; /* x176663 stalin.sc:25197:870668 */ t97938.s0.tag = EXTERNAL_SYMBOL_TYPE; t97938.s0.value.external_symbol_type = q267; /* x176664 stalin.sc:25197:870668 */ t97939.s0.tag = EXTERNAL_SYMBOL_TYPE; t97939.s0.value.external_symbol_type = q297; /* x176665 stalin.sc:25197:870668 */ t97940.s0.tag = ((unsigned)((unsigned char)'F'))<<2; /* x176666 stalin.sc:25197:870668 */ t97940.s1.tag = NULL_TYPE; /* x176667 stalin.sc:25197:870668 */ t97939.s1.tag = STRUCTURE_TYPE24753; t97939.s1.value.structure_type24753 = &t97940; /* x176668 stalin.sc:25197:870668 */ t97938.s1.tag = STRUCTURE_TYPE24753; t97938.s1.value.structure_type24753 = &t97939; /* x176669 stalin.sc:25197:870668 */ t97937.s0.tag = STRUCTURE_TYPE24753; t97937.s0.value.structure_type24753 = &t97938; /* x176670 stalin.sc:25197:870668 */ t97937.s1.tag = NULL_TYPE; /* x176671 stalin.sc:25197:870668 */ t97933.s1.tag = STRUCTURE_TYPE24753; t97933.s1.value.structure_type24753 = &t97937; /* x176672 stalin.sc:25197:870668 */ t97932.s1.tag = STRUCTURE_TYPE24753; t97932.s1.value.structure_type24753 = &t97933; /* x176673 stalin.sc:25197:870668 */ t97931.s0.tag = STRUCTURE_TYPE24753; t97931.s0.value.structure_type24753 = &t97932; /* x176674 stalin.sc:25197:870668 */ t97942.s0.tag = EXTERNAL_SYMBOL_TYPE; t97942.s0.value.external_symbol_type = q2; /* x176675 stalin.sc:25197:870668 */ t97944.s0.tag = EXTERNAL_SYMBOL_TYPE; t97944.s0.value.external_symbol_type = q270; /* x176676 stalin.sc:25197:870668 */ t97946.s0.tag = EXTERNAL_SYMBOL_TYPE; t97946.s0.value.external_symbol_type = q4; /* x176677 stalin.sc:25197:870668 */ t97948.s0.tag = EXTERNAL_SYMBOL_TYPE; t97948.s0.value.external_symbol_type = q2; /* x176678 stalin.sc:25197:870668 */ t97950.s0.tag = EXTERNAL_SYMBOL_TYPE; t97950.s0.value.external_symbol_type = q157; /* x176679 stalin.sc:25197:870668 */ t97951.s0.tag = EXTERNAL_SYMBOL_TYPE; t97951.s0.value.external_symbol_type = q297; /* x176680 stalin.sc:25197:870668 */ t97951.s1.tag = NULL_TYPE; /* x176681 stalin.sc:25197:870668 */ t97950.s1.tag = STRUCTURE_TYPE24753; t97950.s1.value.structure_type24753 = &t97951; /* x176682 stalin.sc:25197:870668 */ t97949.s0.tag = STRUCTURE_TYPE24753; t97949.s0.value.structure_type24753 = &t97950; /* x176683 stalin.sc:25197:870668 */ t97953.s0.tag = EXTERNAL_SYMBOL_TYPE; t97953.s0.value.external_symbol_type = q157; /* x176684 stalin.sc:25197:870668 */ t97954.s0.tag = ((unsigned)((unsigned char)'A'))<<2; /* x176685 stalin.sc:25197:870668 */ t97954.s1.tag = NULL_TYPE; /* x176686 stalin.sc:25197:870668 */ t97953.s1.tag = STRUCTURE_TYPE24753; t97953.s1.value.structure_type24753 = &t97954; /* x176687 stalin.sc:25197:870668 */ t97952.s0.tag = STRUCTURE_TYPE24753; t97952.s0.value.structure_type24753 = &t97953; /* x176688 stalin.sc:25197:870668 */ t97952.s1.tag = NULL_TYPE; /* x176689 stalin.sc:25197:870668 */ t97949.s1.tag = STRUCTURE_TYPE24753; t97949.s1.value.structure_type24753 = &t97952; /* x176690 stalin.sc:25197:870668 */ t97948.s1.tag = STRUCTURE_TYPE24753; t97948.s1.value.structure_type24753 = &t97949; /* x176691 stalin.sc:25197:870668 */ t97947.s0.tag = STRUCTURE_TYPE24753; t97947.s0.value.structure_type24753 = &t97948; /* x176692 stalin.sc:25197:870668 */ t97955.s0.tag = FIXNUM_TYPE; t97955.s0.value.fixnum_type = 10; /* x176693 stalin.sc:25197:870668 */ t97955.s1.tag = NULL_TYPE; /* x176694 stalin.sc:25197:870668 */ t97947.s1.tag = STRUCTURE_TYPE24753; t97947.s1.value.structure_type24753 = &t97955; /* x176695 stalin.sc:25197:870668 */ t97946.s1.tag = STRUCTURE_TYPE24753; t97946.s1.value.structure_type24753 = &t97947; /* x176696 stalin.sc:25197:870668 */ t97945.s0.tag = STRUCTURE_TYPE24753; t97945.s0.value.structure_type24753 = &t97946; /* x176697 stalin.sc:25197:870668 */ t97945.s1.tag = NULL_TYPE; /* x176698 stalin.sc:25197:870668 */ t97944.s1.tag = STRUCTURE_TYPE24753; t97944.s1.value.structure_type24753 = &t97945; /* x176699 stalin.sc:25197:870668 */ t97943.s0.tag = STRUCTURE_TYPE24753; t97943.s0.value.structure_type24753 = &t97944; /* x176700 stalin.sc:25197:870668 */ t97943.s1.tag = NULL_TYPE; /* x176701 stalin.sc:25197:870668 */ t97942.s1.tag = STRUCTURE_TYPE24753; t97942.s1.value.structure_type24753 = &t97943; /* x176702 stalin.sc:25197:870668 */ t97941.s0.tag = STRUCTURE_TYPE24753; t97941.s0.value.structure_type24753 = &t97942; /* x176703 stalin.sc:25197:870668 */ t97941.s1.tag = NULL_TYPE; /* x176704 stalin.sc:25197:870668 */ t97931.s1.tag = STRUCTURE_TYPE24753; t97931.s1.value.structure_type24753 = &t97941; /* x176705 stalin.sc:25197:870668 */ t97930.s0.tag = STRUCTURE_TYPE24753; t97930.s0.value.structure_type24753 = &t97931; /* x176706 stalin.sc:25197:870668 */ t97957.s0.tag = EXTERNAL_SYMBOL_TYPE; t97957.s0.value.external_symbol_type = q95; /* x176707 stalin.sc:25197:870668 */ t97959.s0.tag = EXTERNAL_SYMBOL_TYPE; t97959.s0.value.external_symbol_type = q179; /* x176708 stalin.sc:25197:870668 */ t97960.s0.tag = STRING_TYPE; t97960.s0.value.string_type = "Unfinished hexadecimal number"; /* x176709 stalin.sc:25197:870668 */ t97960.s1.tag = NULL_TYPE; /* x176710 stalin.sc:25197:870668 */ t97959.s1.tag = STRUCTURE_TYPE24753; t97959.s1.value.structure_type24753 = &t97960; /* x176711 stalin.sc:25197:870668 */ t97958.s0.tag = STRUCTURE_TYPE24753; t97958.s0.value.structure_type24753 = &t97959; /* x176712 stalin.sc:25197:870668 */ t97958.s1.tag = NULL_TYPE; /* x176713 stalin.sc:25197:870668 */ t97957.s1.tag = STRUCTURE_TYPE24753; t97957.s1.value.structure_type24753 = &t97958; /* x176714 stalin.sc:25197:870668 */ t97956.s0.tag = STRUCTURE_TYPE24753; t97956.s0.value.structure_type24753 = &t97957; /* x176715 stalin.sc:25197:870668 */ t97956.s1.tag = NULL_TYPE; /* x176716 stalin.sc:25197:870668 */ t97930.s1.tag = STRUCTURE_TYPE24753; t97930.s1.value.structure_type24753 = &t97956; /* x176717 stalin.sc:25197:870668 */ t97904.s1.tag = STRUCTURE_TYPE24753; t97904.s1.value.structure_type24753 = &t97930; /* x176718 stalin.sc:25197:870668 */ t97888.s1.tag = STRUCTURE_TYPE24753; t97888.s1.value.structure_type24753 = &t97904; /* x176719 stalin.sc:25197:870668 */ t97887.s1.tag = STRUCTURE_TYPE24753; t97887.s1.value.structure_type24753 = &t97888; /* x176720 stalin.sc:25197:870668 */ t97886.s0.tag = STRUCTURE_TYPE24753; t97886.s0.value.structure_type24753 = &t97887; /* x176721 stalin.sc:25197:870668 */ t97886.s1.tag = NULL_TYPE; /* x176722 stalin.sc:25197:870668 */ t97878.s1.tag = STRUCTURE_TYPE24753; t97878.s1.value.structure_type24753 = &t97886; /* x176723 stalin.sc:25197:870668 */ t97872.s1.tag = STRUCTURE_TYPE24753; t97872.s1.value.structure_type24753 = &t97878; /* x176724 stalin.sc:25197:870668 */ t97871.s1.tag = STRUCTURE_TYPE24753; t97871.s1.value.structure_type24753 = &t97872; /* x176725 stalin.sc:25197:870668 */ t97870.s0.tag = STRUCTURE_TYPE24753; t97870.s0.value.structure_type24753 = &t97871; /* x176726 stalin.sc:25197:870668 */ t97870.s1.tag = NULL_TYPE; /* x176727 stalin.sc:25197:870668 */ t97866.s1.tag = STRUCTURE_TYPE24753; t97866.s1.value.structure_type24753 = &t97870; /* x176728 stalin.sc:25197:870668 */ t97865.s0.tag = STRUCTURE_TYPE24753; t97865.s0.value.structure_type24753 = &t97866; /* x176729 stalin.sc:25197:870668 */ t97962.s0.tag = EXTERNAL_SYMBOL_TYPE; t97962.s0.value.external_symbol_type = q95; /* x176730 stalin.sc:25197:870668 */ t97964.s0.tag = EXTERNAL_SYMBOL_TYPE; t97964.s0.value.external_symbol_type = q179; /* x176731 stalin.sc:25197:870668 */ t97965.s0.tag = STRING_TYPE; t97965.s0.value.string_type = "Unfinished hexadecimal number"; /* x176732 stalin.sc:25197:870668 */ t97965.s1.tag = NULL_TYPE; /* x176733 stalin.sc:25197:870668 */ t97964.s1.tag = STRUCTURE_TYPE24753; t97964.s1.value.structure_type24753 = &t97965; /* x176734 stalin.sc:25197:870668 */ t97963.s0.tag = STRUCTURE_TYPE24753; t97963.s0.value.structure_type24753 = &t97964; /* x176735 stalin.sc:25197:870668 */ t97963.s1.tag = NULL_TYPE; /* x176736 stalin.sc:25197:870668 */ t97962.s1.tag = STRUCTURE_TYPE24753; t97962.s1.value.structure_type24753 = &t97963; /* x176737 stalin.sc:25197:870668 */ t97961.s0.tag = STRUCTURE_TYPE24753; t97961.s0.value.structure_type24753 = &t97962; /* x176738 stalin.sc:25197:870668 */ t97961.s1.tag = NULL_TYPE; /* x176739 stalin.sc:25197:870668 */ t97865.s1.tag = STRUCTURE_TYPE24753; t97865.s1.value.structure_type24753 = &t97961; /* x176740 stalin.sc:25197:870668 */ t97775.s1.tag = STRUCTURE_TYPE24753; t97775.s1.value.structure_type24753 = &t97865; /* x176741 stalin.sc:25197:870668 */ t97751.s1.tag = STRUCTURE_TYPE24753; t97751.s1.value.structure_type24753 = &t97775; /* x176742 stalin.sc:25197:870668 */ t97727.s1.tag = STRUCTURE_TYPE24753; t97727.s1.value.structure_type24753 = &t97751; /* x176743 stalin.sc:25197:870668 */ t97713.s1.tag = STRUCTURE_TYPE24753; t97713.s1.value.structure_type24753 = &t97727; /* x176744 stalin.sc:25197:870668 */ t97712.s1.tag = STRUCTURE_TYPE24753; t97712.s1.value.structure_type24753 = &t97713; /* x176745 stalin.sc:25197:870668 */ t97711.s0.tag = STRUCTURE_TYPE24753; t97711.s0.value.structure_type24753 = &t97712; /* x176746 stalin.sc:25197:870668 */ t97711.s1.tag = NULL_TYPE; /* x176747 stalin.sc:25197:870668 */ t97703.s1.tag = STRUCTURE_TYPE24753; t97703.s1.value.structure_type24753 = &t97711; /* x176748 stalin.sc:25197:870668 */ t97697.s1.tag = STRUCTURE_TYPE24753; t97697.s1.value.structure_type24753 = &t97703; /* x176749 stalin.sc:25197:870668 */ t97696.s1.tag = STRUCTURE_TYPE24753; t97696.s1.value.structure_type24753 = &t97697; /* x176750 stalin.sc:25197:870668 */ t97695.s0.tag = STRUCTURE_TYPE24753; t97695.s0.value.structure_type24753 = &t97696; /* x176751 stalin.sc:25197:870668 */ t97695.s1.tag = NULL_TYPE; /* x176752 stalin.sc:25197:870668 */ t97685.s1.tag = STRUCTURE_TYPE24753; t97685.s1.value.structure_type24753 = &t97695; /* x176753 stalin.sc:25197:870668 */ t97684.s0.tag = STRUCTURE_TYPE24753; t97684.s0.value.structure_type24753 = &t97685; /* x176754 stalin.sc:25197:870668 */ t97968.s0.tag = EXTERNAL_SYMBOL_TYPE; t97968.s0.value.external_symbol_type = q263; /* x176755 stalin.sc:25197:870668 */ t97969.s0.tag = EXTERNAL_SYMBOL_TYPE; t97969.s0.value.external_symbol_type = q274; /* x176756 stalin.sc:25197:870668 */ t97970.s0.tag = ((unsigned)((unsigned char)'('))<<2; /* x176757 stalin.sc:25197:870668 */ t97970.s1.tag = NULL_TYPE; /* x176758 stalin.sc:25197:870668 */ t97969.s1.tag = STRUCTURE_TYPE24753; t97969.s1.value.structure_type24753 = &t97970; /* x176759 stalin.sc:25197:870668 */ t97968.s1.tag = STRUCTURE_TYPE24753; t97968.s1.value.structure_type24753 = &t97969; /* x176760 stalin.sc:25197:870668 */ t97967.s0.tag = STRUCTURE_TYPE24753; t97967.s0.value.structure_type24753 = &t97968; /* x176761 stalin.sc:25197:870668 */ t97972.s0.tag = EXTERNAL_SYMBOL_TYPE; t97972.s0.value.external_symbol_type = q242; /* x176762 stalin.sc:25197:870668 */ t97973.s0.tag = EXTERNAL_SYMBOL_TYPE; t97973.s0.value.external_symbol_type = q287; /* x176763 stalin.sc:25197:870668 */ t97976.s0.tag = EXTERNAL_SYMBOL_TYPE; t97976.s0.value.external_symbol_type = q281; /* x176764 stalin.sc:25197:870668 */ t97978.s0.tag = EXTERNAL_SYMBOL_TYPE; t97978.s0.value.external_symbol_type = q11; /* x176765 stalin.sc:25197:870668 */ t97979.s0.tag = NULL_TYPE; /* x176766 stalin.sc:25197:870668 */ t97979.s1.tag = NULL_TYPE; /* x176767 stalin.sc:25197:870668 */ t97978.s1.tag = STRUCTURE_TYPE24753; t97978.s1.value.structure_type24753 = &t97979; /* x176768 stalin.sc:25197:870668 */ t97977.s0.tag = STRUCTURE_TYPE24753; t97977.s0.value.structure_type24753 = &t97978; /* x176769 stalin.sc:25197:870668 */ t97977.s1.tag = NULL_TYPE; /* x176770 stalin.sc:25197:870668 */ t97976.s1.tag = STRUCTURE_TYPE24753; t97976.s1.value.structure_type24753 = &t97977; /* x176771 stalin.sc:25197:870668 */ t97975.s0.tag = STRUCTURE_TYPE24753; t97975.s0.value.structure_type24753 = &t97976; /* x176772 stalin.sc:25197:870668 */ t97975.s1.tag = NULL_TYPE; /* x176773 stalin.sc:25197:870668 */ t97974.s0.tag = STRUCTURE_TYPE24753; t97974.s0.value.structure_type24753 = &t97975; /* x176774 stalin.sc:25197:870668 */ t97981.s0.tag = EXTERNAL_SYMBOL_TYPE; t97981.s0.value.external_symbol_type = q242; /* x176775 stalin.sc:25197:870668 */ t97984.s0.tag = EXTERNAL_SYMBOL_TYPE; t97984.s0.value.external_symbol_type = q294; /* x176776 stalin.sc:25197:870668 */ t97986.s0.tag = EXTERNAL_SYMBOL_TYPE; t97986.s0.value.external_symbol_type = q253; /* x176777 stalin.sc:25197:870668 */ t97988.s0.tag = EXTERNAL_SYMBOL_TYPE; t97988.s0.value.external_symbol_type = q11; /* x176778 stalin.sc:25197:870668 */ t97989.s0.tag = EXTERNAL_SYMBOL_TYPE; t97989.s0.value.external_symbol_type = q6; /* x176779 stalin.sc:25197:870668 */ t97989.s1.tag = NULL_TYPE; /* x176780 stalin.sc:25197:870668 */ t97988.s1.tag = STRUCTURE_TYPE24753; t97988.s1.value.structure_type24753 = &t97989; /* x176781 stalin.sc:25197:870668 */ t97987.s0.tag = STRUCTURE_TYPE24753; t97987.s0.value.structure_type24753 = &t97988; /* x176782 stalin.sc:25197:870668 */ t97987.s1.tag = NULL_TYPE; /* x176783 stalin.sc:25197:870668 */ t97986.s1.tag = STRUCTURE_TYPE24753; t97986.s1.value.structure_type24753 = &t97987; /* x176784 stalin.sc:25197:870668 */ t97985.s0.tag = STRUCTURE_TYPE24753; t97985.s0.value.structure_type24753 = &t97986; /* x176785 stalin.sc:25197:870668 */ t97985.s1.tag = NULL_TYPE; /* x176786 stalin.sc:25197:870668 */ t97984.s1.tag = STRUCTURE_TYPE24753; t97984.s1.value.structure_type24753 = &t97985; /* x176787 stalin.sc:25197:870668 */ t97983.s0.tag = STRUCTURE_TYPE24753; t97983.s0.value.structure_type24753 = &t97984; /* x176788 stalin.sc:25197:870668 */ t97983.s1.tag = NULL_TYPE; /* x176789 stalin.sc:25197:870668 */ t97982.s0.tag = STRUCTURE_TYPE24753; t97982.s0.value.structure_type24753 = &t97983; /* x176790 stalin.sc:25197:870668 */ t97991.s0.tag = EXTERNAL_SYMBOL_TYPE; t97991.s0.value.external_symbol_type = q43; /* x176791 stalin.sc:25197:870668 */ t97993.s0.tag = EXTERNAL_SYMBOL_TYPE; t97993.s0.value.external_symbol_type = q104; /* x176792 stalin.sc:25197:870668 */ t97994.s0.tag = EXTERNAL_SYMBOL_TYPE; t97994.s0.value.external_symbol_type = q294; /* x176793 stalin.sc:25197:870668 */ t97995.s0.tag = EXTERNAL_SYMBOL_TYPE; t97995.s0.value.external_symbol_type = q0; /* x176794 stalin.sc:25197:870668 */ t97995.s1.tag = NULL_TYPE; /* x176795 stalin.sc:25197:870668 */ t97994.s1.tag = STRUCTURE_TYPE24753; t97994.s1.value.structure_type24753 = &t97995; /* x176796 stalin.sc:25197:870668 */ t97993.s1.tag = STRUCTURE_TYPE24753; t97993.s1.value.structure_type24753 = &t97994; /* x176797 stalin.sc:25197:870668 */ t97992.s0.tag = STRUCTURE_TYPE24753; t97992.s0.value.structure_type24753 = &t97993; /* x176798 stalin.sc:25197:870668 */ t97997.s0.tag = EXTERNAL_SYMBOL_TYPE; t97997.s0.value.external_symbol_type = q301; /* x176799 stalin.sc:25197:870668 */ t97999.s0.tag = EXTERNAL_SYMBOL_TYPE; t97999.s0.value.external_symbol_type = q284; /* x176800 stalin.sc:25197:870668 */ t98000.s0.tag = EXTERNAL_SYMBOL_TYPE; t98000.s0.value.external_symbol_type = q281; /* x176801 stalin.sc:25197:870668 */ t98000.s1.tag = NULL_TYPE; /* x176802 stalin.sc:25197:870668 */ t97999.s1.tag = STRUCTURE_TYPE24753; t97999.s1.value.structure_type24753 = &t98000; /* x176803 stalin.sc:25197:870668 */ t97998.s0.tag = STRUCTURE_TYPE24753; t97998.s0.value.structure_type24753 = &t97999; /* x176804 stalin.sc:25197:870668 */ t97998.s1.tag = NULL_TYPE; /* x176805 stalin.sc:25197:870668 */ t97997.s1.tag = STRUCTURE_TYPE24753; t97997.s1.value.structure_type24753 = &t97998; /* x176806 stalin.sc:25197:870668 */ t97996.s0.tag = STRUCTURE_TYPE24753; t97996.s0.value.structure_type24753 = &t97997; /* x176807 stalin.sc:25197:870668 */ t98002.s0.tag = EXTERNAL_SYMBOL_TYPE; t98002.s0.value.external_symbol_type = q287; /* x176808 stalin.sc:25197:870668 */ t98004.s0.tag = EXTERNAL_SYMBOL_TYPE; t98004.s0.value.external_symbol_type = q106; /* x176809 stalin.sc:25197:870668 */ t98005.s0.tag = EXTERNAL_SYMBOL_TYPE; t98005.s0.value.external_symbol_type = q294; /* x176810 stalin.sc:25197:870668 */ t98006.s0.tag = EXTERNAL_SYMBOL_TYPE; t98006.s0.value.external_symbol_type = q281; /* x176811 stalin.sc:25197:870668 */ t98006.s1.tag = NULL_TYPE; /* x176812 stalin.sc:25197:870668 */ t98005.s1.tag = STRUCTURE_TYPE24753; t98005.s1.value.structure_type24753 = &t98006; /* x176813 stalin.sc:25197:870668 */ t98004.s1.tag = STRUCTURE_TYPE24753; t98004.s1.value.structure_type24753 = &t98005; /* x176814 stalin.sc:25197:870668 */ t98003.s0.tag = STRUCTURE_TYPE24753; t98003.s0.value.structure_type24753 = &t98004; /* x176815 stalin.sc:25197:870668 */ t98003.s1.tag = NULL_TYPE; /* x176816 stalin.sc:25197:870668 */ t98002.s1.tag = STRUCTURE_TYPE24753; t98002.s1.value.structure_type24753 = &t98003; /* x176817 stalin.sc:25197:870668 */ t98001.s0.tag = STRUCTURE_TYPE24753; t98001.s0.value.structure_type24753 = &t98002; /* x176818 stalin.sc:25197:870668 */ t98001.s1.tag = NULL_TYPE; /* x176819 stalin.sc:25197:870668 */ t97996.s1.tag = STRUCTURE_TYPE24753; t97996.s1.value.structure_type24753 = &t98001; /* x176820 stalin.sc:25197:870668 */ t97992.s1.tag = STRUCTURE_TYPE24753; t97992.s1.value.structure_type24753 = &t97996; /* x176821 stalin.sc:25197:870668 */ t97991.s1.tag = STRUCTURE_TYPE24753; t97991.s1.value.structure_type24753 = &t97992; /* x176822 stalin.sc:25197:870668 */ t97990.s0.tag = STRUCTURE_TYPE24753; t97990.s0.value.structure_type24753 = &t97991; /* x176823 stalin.sc:25197:870668 */ t97990.s1.tag = NULL_TYPE; /* x176824 stalin.sc:25197:870668 */ t97982.s1.tag = STRUCTURE_TYPE24753; t97982.s1.value.structure_type24753 = &t97990; /* x176825 stalin.sc:25197:870668 */ t97981.s1.tag = STRUCTURE_TYPE24753; t97981.s1.value.structure_type24753 = &t97982; /* x176826 stalin.sc:25197:870668 */ t97980.s0.tag = STRUCTURE_TYPE24753; t97980.s0.value.structure_type24753 = &t97981; /* x176827 stalin.sc:25197:870668 */ t97980.s1.tag = NULL_TYPE; /* x176828 stalin.sc:25197:870668 */ t97974.s1.tag = STRUCTURE_TYPE24753; t97974.s1.value.structure_type24753 = &t97980; /* x176829 stalin.sc:25197:870668 */ t97973.s1.tag = STRUCTURE_TYPE24753; t97973.s1.value.structure_type24753 = &t97974; /* x176830 stalin.sc:25197:870668 */ t97972.s1.tag = STRUCTURE_TYPE24753; t97972.s1.value.structure_type24753 = &t97973; /* x176831 stalin.sc:25197:870668 */ t97971.s0.tag = STRUCTURE_TYPE24753; t97971.s0.value.structure_type24753 = &t97972; /* x176832 stalin.sc:25197:870668 */ t97971.s1.tag = NULL_TYPE; /* x176833 stalin.sc:25197:870668 */ t97967.s1.tag = STRUCTURE_TYPE24753; t97967.s1.value.structure_type24753 = &t97971; /* x176834 stalin.sc:25197:870668 */ t97966.s0.tag = STRUCTURE_TYPE24753; t97966.s0.value.structure_type24753 = &t97967; /* x176835 stalin.sc:25197:870668 */ t98009.s0.tag = EXTERNAL_SYMBOL_TYPE; t98009.s0.value.external_symbol_type = q263; /* x176836 stalin.sc:25197:870668 */ t98010.s0.tag = EXTERNAL_SYMBOL_TYPE; t98010.s0.value.external_symbol_type = q274; /* x176837 stalin.sc:25197:870668 */ t98011.s0.tag = ((unsigned)((unsigned char)'\\'))<<2; /* x176838 stalin.sc:25197:870668 */ t98011.s1.tag = NULL_TYPE; /* x176839 stalin.sc:25197:870668 */ t98010.s1.tag = STRUCTURE_TYPE24753; t98010.s1.value.structure_type24753 = &t98011; /* x176840 stalin.sc:25197:870668 */ t98009.s1.tag = STRUCTURE_TYPE24753; t98009.s1.value.structure_type24753 = &t98010; /* x176841 stalin.sc:25197:870668 */ t98008.s0.tag = STRUCTURE_TYPE24753; t98008.s0.value.structure_type24753 = &t98009; /* x176842 stalin.sc:25197:870668 */ t98013.s0.tag = EXTERNAL_SYMBOL_TYPE; t98013.s0.value.external_symbol_type = q242; /* x176843 stalin.sc:25197:870668 */ t98016.s0.tag = EXTERNAL_SYMBOL_TYPE; t98016.s0.value.external_symbol_type = q275; /* x176844 stalin.sc:25197:870668 */ t98018.s0.tag = EXTERNAL_SYMBOL_TYPE; t98018.s0.value.external_symbol_type = q264; /* x176845 stalin.sc:25197:870668 */ t98019.s0.tag = EXTERNAL_SYMBOL_TYPE; t98019.s0.value.external_symbol_type = q254; /* x176846 stalin.sc:25197:870668 */ t98019.s1.tag = NULL_TYPE; /* x176847 stalin.sc:25197:870668 */ t98018.s1.tag = STRUCTURE_TYPE24753; t98018.s1.value.structure_type24753 = &t98019; /* x176848 stalin.sc:25197:870668 */ t98017.s0.tag = STRUCTURE_TYPE24753; t98017.s0.value.structure_type24753 = &t98018; /* x176849 stalin.sc:25197:870668 */ t98017.s1.tag = NULL_TYPE; /* x176850 stalin.sc:25197:870668 */ t98016.s1.tag = STRUCTURE_TYPE24753; t98016.s1.value.structure_type24753 = &t98017; /* x176851 stalin.sc:25197:870668 */ t98015.s0.tag = STRUCTURE_TYPE24753; t98015.s0.value.structure_type24753 = &t98016; /* x176852 stalin.sc:25197:870668 */ t98015.s1.tag = NULL_TYPE; /* x176853 stalin.sc:25197:870668 */ t98014.s0.tag = STRUCTURE_TYPE24753; t98014.s0.value.structure_type24753 = &t98015; /* x176854 stalin.sc:25197:870668 */ t98021.s0.tag = EXTERNAL_SYMBOL_TYPE; t98021.s0.value.external_symbol_type = q43; /* x176855 stalin.sc:25197:870668 */ t98023.s0.tag = EXTERNAL_SYMBOL_TYPE; t98023.s0.value.external_symbol_type = q178; /* x176856 stalin.sc:25197:870668 */ t98024.s0.tag = EXTERNAL_SYMBOL_TYPE; t98024.s0.value.external_symbol_type = q275; /* x176857 stalin.sc:25197:870668 */ t98024.s1.tag = NULL_TYPE; /* x176858 stalin.sc:25197:870668 */ t98023.s1.tag = STRUCTURE_TYPE24753; t98023.s1.value.structure_type24753 = &t98024; /* x176859 stalin.sc:25197:870668 */ t98022.s0.tag = STRUCTURE_TYPE24753; t98022.s0.value.structure_type24753 = &t98023; /* x176860 stalin.sc:25197:870668 */ t98026.s0.tag = EXTERNAL_SYMBOL_TYPE; t98026.s0.value.external_symbol_type = q179; /* x176861 stalin.sc:25197:870668 */ t98027.s0.tag = STRING_TYPE; t98027.s0.value.string_type = "EOF while reading character constant"; /* x176862 stalin.sc:25197:870668 */ t98027.s1.tag = NULL_TYPE; /* x176863 stalin.sc:25197:870668 */ t98026.s1.tag = STRUCTURE_TYPE24753; t98026.s1.value.structure_type24753 = &t98027; /* x176864 stalin.sc:25197:870668 */ t98025.s0.tag = STRUCTURE_TYPE24753; t98025.s0.value.structure_type24753 = &t98026; /* x176865 stalin.sc:25197:870668 */ t98025.s1.tag = NULL_TYPE; /* x176866 stalin.sc:25197:870668 */ t98022.s1.tag = STRUCTURE_TYPE24753; t98022.s1.value.structure_type24753 = &t98025; /* x176867 stalin.sc:25197:870668 */ t98021.s1.tag = STRUCTURE_TYPE24753; t98021.s1.value.structure_type24753 = &t98022; /* x176868 stalin.sc:25197:870668 */ t98020.s0.tag = STRUCTURE_TYPE24753; t98020.s0.value.structure_type24753 = &t98021; /* x176869 stalin.sc:25197:870668 */ t98029.s0.tag = EXTERNAL_SYMBOL_TYPE; t98029.s0.value.external_symbol_type = q43; /* x176870 stalin.sc:25197:870668 */ t98031.s0.tag = EXTERNAL_SYMBOL_TYPE; t98031.s0.value.external_symbol_type = q278; /* x176871 stalin.sc:25197:870668 */ t98032.s0.tag = EXTERNAL_SYMBOL_TYPE; t98032.s0.value.external_symbol_type = q275; /* x176872 stalin.sc:25197:870668 */ t98032.s1.tag = NULL_TYPE; /* x176873 stalin.sc:25197:870668 */ t98031.s1.tag = STRUCTURE_TYPE24753; t98031.s1.value.structure_type24753 = &t98032; /* x176874 stalin.sc:25197:870668 */ t98030.s0.tag = STRUCTURE_TYPE24753; t98030.s0.value.structure_type24753 = &t98031; /* x176875 stalin.sc:25197:870668 */ t98034.s0.tag = EXTERNAL_SYMBOL_TYPE; t98034.s0.value.external_symbol_type = q292; /* x176876 stalin.sc:25197:870668 */ t98036.s0.tag = EXTERNAL_SYMBOL_TYPE; t98036.s0.value.external_symbol_type = q1; /* x176877 stalin.sc:25197:870668 */ t98037.s0.tag = EXTERNAL_SYMBOL_TYPE; t98037.s0.value.external_symbol_type = q275; /* x176878 stalin.sc:25197:870668 */ t98037.s1.tag = NULL_TYPE; /* x176879 stalin.sc:25197:870668 */ t98036.s1.tag = STRUCTURE_TYPE24753; t98036.s1.value.structure_type24753 = &t98037; /* x176880 stalin.sc:25197:870668 */ t98035.s0.tag = STRUCTURE_TYPE24753; t98035.s0.value.structure_type24753 = &t98036; /* x176881 stalin.sc:25197:870668 */ t98035.s1.tag = NULL_TYPE; /* x176882 stalin.sc:25197:870668 */ t98034.s1.tag = STRUCTURE_TYPE24753; t98034.s1.value.structure_type24753 = &t98035; /* x176883 stalin.sc:25197:870668 */ t98033.s0.tag = STRUCTURE_TYPE24753; t98033.s0.value.structure_type24753 = &t98034; /* x176884 stalin.sc:25197:870668 */ t98038.s0.tag = EXTERNAL_SYMBOL_TYPE; t98038.s0.value.external_symbol_type = q275; /* x176885 stalin.sc:25197:870668 */ t98038.s1.tag = NULL_TYPE; /* x176886 stalin.sc:25197:870668 */ t98033.s1.tag = STRUCTURE_TYPE24753; t98033.s1.value.structure_type24753 = &t98038; /* x176887 stalin.sc:25197:870668 */ t98030.s1.tag = STRUCTURE_TYPE24753; t98030.s1.value.structure_type24753 = &t98033; /* x176888 stalin.sc:25197:870668 */ t98029.s1.tag = STRUCTURE_TYPE24753; t98029.s1.value.structure_type24753 = &t98030; /* x176889 stalin.sc:25197:870668 */ t98028.s0.tag = STRUCTURE_TYPE24753; t98028.s0.value.structure_type24753 = &t98029; /* x176890 stalin.sc:25197:870668 */ t98028.s1.tag = NULL_TYPE; /* x176891 stalin.sc:25197:870668 */ t98020.s1.tag = STRUCTURE_TYPE24753; t98020.s1.value.structure_type24753 = &t98028; /* x176892 stalin.sc:25197:870668 */ t98014.s1.tag = STRUCTURE_TYPE24753; t98014.s1.value.structure_type24753 = &t98020; /* x176893 stalin.sc:25197:870668 */ t98013.s1.tag = STRUCTURE_TYPE24753; t98013.s1.value.structure_type24753 = &t98014; /* x176894 stalin.sc:25197:870668 */ t98012.s0.tag = STRUCTURE_TYPE24753; t98012.s0.value.structure_type24753 = &t98013; /* x176895 stalin.sc:25197:870668 */ t98012.s1.tag = NULL_TYPE; /* x176896 stalin.sc:25197:870668 */ t98008.s1.tag = STRUCTURE_TYPE24753; t98008.s1.value.structure_type24753 = &t98012; /* x176897 stalin.sc:25197:870668 */ t98007.s0.tag = STRUCTURE_TYPE24753; t98007.s0.value.structure_type24753 = &t98008; /* x176898 stalin.sc:25197:870668 */ t98040.s0.tag = EXTERNAL_SYMBOL_TYPE; t98040.s0.value.external_symbol_type = q95; /* x176899 stalin.sc:25197:870668 */ t98042.s0.tag = EXTERNAL_SYMBOL_TYPE; t98042.s0.value.external_symbol_type = q179; /* x176900 stalin.sc:25197:870668 */ t98043.s0.tag = STRING_TYPE; t98043.s0.value.string_type = "Improper character after sharp sign"; /* x176901 stalin.sc:25197:870668 */ t98043.s1.tag = NULL_TYPE; /* x176902 stalin.sc:25197:870668 */ t98042.s1.tag = STRUCTURE_TYPE24753; t98042.s1.value.structure_type24753 = &t98043; /* x176903 stalin.sc:25197:870668 */ t98041.s0.tag = STRUCTURE_TYPE24753; t98041.s0.value.structure_type24753 = &t98042; /* x176904 stalin.sc:25197:870668 */ t98041.s1.tag = NULL_TYPE; /* x176905 stalin.sc:25197:870668 */ t98040.s1.tag = STRUCTURE_TYPE24753; t98040.s1.value.structure_type24753 = &t98041; /* x176906 stalin.sc:25197:870668 */ t98039.s0.tag = STRUCTURE_TYPE24753; t98039.s0.value.structure_type24753 = &t98040; /* x176907 stalin.sc:25197:870668 */ t98039.s1.tag = NULL_TYPE; /* x176908 stalin.sc:25197:870668 */ t98007.s1.tag = STRUCTURE_TYPE24753; t98007.s1.value.structure_type24753 = &t98039; /* x176909 stalin.sc:25197:870668 */ t97966.s1.tag = STRUCTURE_TYPE24753; t97966.s1.value.structure_type24753 = &t98007; /* x176910 stalin.sc:25197:870668 */ t97684.s1.tag = STRUCTURE_TYPE24753; t97684.s1.value.structure_type24753 = &t97966; /* x176911 stalin.sc:25197:870668 */ t97413.s1.tag = STRUCTURE_TYPE24753; t97413.s1.value.structure_type24753 = &t97684; /* x176912 stalin.sc:25197:870668 */ t97264.s1.tag = STRUCTURE_TYPE24753; t97264.s1.value.structure_type24753 = &t97413; /* x176913 stalin.sc:25197:870668 */ t97122.s1.tag = STRUCTURE_TYPE24753; t97122.s1.value.structure_type24753 = &t97264; /* x176914 stalin.sc:25197:870668 */ t97110.s1.tag = STRUCTURE_TYPE24753; t97110.s1.value.structure_type24753 = &t97122; /* x176915 stalin.sc:25197:870668 */ t97098.s1.tag = STRUCTURE_TYPE24753; t97098.s1.value.structure_type24753 = &t97110; /* x176916 stalin.sc:25197:870668 */ t97097.s1.tag = STRUCTURE_TYPE24753; t97097.s1.value.structure_type24753 = &t97098; /* x176917 stalin.sc:25197:870668 */ t97096.s0.tag = STRUCTURE_TYPE24753; t97096.s0.value.structure_type24753 = &t97097; /* x176918 stalin.sc:25197:870668 */ t97096.s1.tag = NULL_TYPE; /* x176919 stalin.sc:25197:870668 */ t97088.s1.tag = STRUCTURE_TYPE24753; t97088.s1.value.structure_type24753 = &t97096; /* x176920 stalin.sc:25197:870668 */ t97082.s1.tag = STRUCTURE_TYPE24753; t97082.s1.value.structure_type24753 = &t97088; /* x176921 stalin.sc:25197:870668 */ t97081.s1.tag = STRUCTURE_TYPE24753; t97081.s1.value.structure_type24753 = &t97082; /* x176922 stalin.sc:25197:870668 */ t97080.s0.tag = STRUCTURE_TYPE24753; t97080.s0.value.structure_type24753 = &t97081; /* x176923 stalin.sc:25197:870668 */ t97080.s1.tag = NULL_TYPE; /* x176924 stalin.sc:25197:870668 */ t97076.s1.tag = STRUCTURE_TYPE24753; t97076.s1.value.structure_type24753 = &t97080; /* x176925 stalin.sc:25197:870668 */ t97075.s0.tag = STRUCTURE_TYPE24753; t97075.s0.value.structure_type24753 = &t97076; /* x176926 stalin.sc:25197:870668 */ t98046.s0.tag = EXTERNAL_SYMBOL_TYPE; t98046.s0.value.external_symbol_type = q263; /* x176927 stalin.sc:25197:870668 */ t98047.s0.tag = EXTERNAL_SYMBOL_TYPE; t98047.s0.value.external_symbol_type = q273; /* x176928 stalin.sc:25197:870668 */ t98048.s0.tag = ((unsigned)((unsigned char)'\"'))<<2; /* x176929 stalin.sc:25197:870668 */ t98048.s1.tag = NULL_TYPE; /* x176930 stalin.sc:25197:870668 */ t98047.s1.tag = STRUCTURE_TYPE24753; t98047.s1.value.structure_type24753 = &t98048; /* x176931 stalin.sc:25197:870668 */ t98046.s1.tag = STRUCTURE_TYPE24753; t98046.s1.value.structure_type24753 = &t98047; /* x176932 stalin.sc:25197:870668 */ t98045.s0.tag = STRUCTURE_TYPE24753; t98045.s0.value.structure_type24753 = &t98046; /* x176933 stalin.sc:25197:870668 */ t98050.s0.tag = EXTERNAL_SYMBOL_TYPE; t98050.s0.value.external_symbol_type = q242; /* x176934 stalin.sc:25197:870668 */ t98051.s0.tag = EXTERNAL_SYMBOL_TYPE; t98051.s0.value.external_symbol_type = q287; /* x176935 stalin.sc:25197:870668 */ t98054.s0.tag = EXTERNAL_SYMBOL_TYPE; t98054.s0.value.external_symbol_type = q281; /* x176936 stalin.sc:25197:870668 */ t98056.s0.tag = EXTERNAL_SYMBOL_TYPE; t98056.s0.value.external_symbol_type = q11; /* x176937 stalin.sc:25197:870668 */ t98057.s0.tag = NULL_TYPE; /* x176938 stalin.sc:25197:870668 */ t98057.s1.tag = NULL_TYPE; /* x176939 stalin.sc:25197:870668 */ t98056.s1.tag = STRUCTURE_TYPE24753; t98056.s1.value.structure_type24753 = &t98057; /* x176940 stalin.sc:25197:870668 */ t98055.s0.tag = STRUCTURE_TYPE24753; t98055.s0.value.structure_type24753 = &t98056; /* x176941 stalin.sc:25197:870668 */ t98055.s1.tag = NULL_TYPE; /* x176942 stalin.sc:25197:870668 */ t98054.s1.tag = STRUCTURE_TYPE24753; t98054.s1.value.structure_type24753 = &t98055; /* x176943 stalin.sc:25197:870668 */ t98053.s0.tag = STRUCTURE_TYPE24753; t98053.s0.value.structure_type24753 = &t98054; /* x176944 stalin.sc:25197:870668 */ t98053.s1.tag = NULL_TYPE; /* x176945 stalin.sc:25197:870668 */ t98052.s0.tag = STRUCTURE_TYPE24753; t98052.s0.value.structure_type24753 = &t98053; /* x176946 stalin.sc:25197:870668 */ t98059.s0.tag = EXTERNAL_SYMBOL_TYPE; t98059.s0.value.external_symbol_type = q242; /* x176947 stalin.sc:25197:870668 */ t98062.s0.tag = EXTERNAL_SYMBOL_TYPE; t98062.s0.value.external_symbol_type = q261; /* x176948 stalin.sc:25197:870668 */ t98064.s0.tag = EXTERNAL_SYMBOL_TYPE; t98064.s0.value.external_symbol_type = q264; /* x176949 stalin.sc:25197:870668 */ t98065.s0.tag = EXTERNAL_SYMBOL_TYPE; t98065.s0.value.external_symbol_type = q254; /* x176950 stalin.sc:25197:870668 */ t98065.s1.tag = NULL_TYPE; /* x176951 stalin.sc:25197:870668 */ t98064.s1.tag = STRUCTURE_TYPE24753; t98064.s1.value.structure_type24753 = &t98065; /* x176952 stalin.sc:25197:870668 */ t98063.s0.tag = STRUCTURE_TYPE24753; t98063.s0.value.structure_type24753 = &t98064; /* x176953 stalin.sc:25197:870668 */ t98063.s1.tag = NULL_TYPE; /* x176954 stalin.sc:25197:870668 */ t98062.s1.tag = STRUCTURE_TYPE24753; t98062.s1.value.structure_type24753 = &t98063; /* x176955 stalin.sc:25197:870668 */ t98061.s0.tag = STRUCTURE_TYPE24753; t98061.s0.value.structure_type24753 = &t98062; /* x176956 stalin.sc:25197:870668 */ t98061.s1.tag = NULL_TYPE; /* x176957 stalin.sc:25197:870668 */ t98060.s0.tag = STRUCTURE_TYPE24753; t98060.s0.value.structure_type24753 = &t98061; /* x176958 stalin.sc:25197:870668 */ t98067.s0.tag = EXTERNAL_SYMBOL_TYPE; t98067.s0.value.external_symbol_type = q43; /* x176959 stalin.sc:25197:870668 */ t98069.s0.tag = EXTERNAL_SYMBOL_TYPE; t98069.s0.value.external_symbol_type = q178; /* x176960 stalin.sc:25197:870668 */ t98070.s0.tag = EXTERNAL_SYMBOL_TYPE; t98070.s0.value.external_symbol_type = q261; /* x176961 stalin.sc:25197:870668 */ t98070.s1.tag = NULL_TYPE; /* x176962 stalin.sc:25197:870668 */ t98069.s1.tag = STRUCTURE_TYPE24753; t98069.s1.value.structure_type24753 = &t98070; /* x176963 stalin.sc:25197:870668 */ t98068.s0.tag = STRUCTURE_TYPE24753; t98068.s0.value.structure_type24753 = &t98069; /* x176964 stalin.sc:25197:870668 */ t98072.s0.tag = EXTERNAL_SYMBOL_TYPE; t98072.s0.value.external_symbol_type = q179; /* x176965 stalin.sc:25197:870668 */ t98073.s0.tag = STRING_TYPE; t98073.s0.value.string_type = "EOF while reading string"; /* x176966 stalin.sc:25197:870668 */ t98073.s1.tag = NULL_TYPE; /* x176967 stalin.sc:25197:870668 */ t98072.s1.tag = STRUCTURE_TYPE24753; t98072.s1.value.structure_type24753 = &t98073; /* x176968 stalin.sc:25197:870668 */ t98071.s0.tag = STRUCTURE_TYPE24753; t98071.s0.value.structure_type24753 = &t98072; /* x176969 stalin.sc:25197:870668 */ t98071.s1.tag = NULL_TYPE; /* x176970 stalin.sc:25197:870668 */ t98068.s1.tag = STRUCTURE_TYPE24753; t98068.s1.value.structure_type24753 = &t98071; /* x176971 stalin.sc:25197:870668 */ t98067.s1.tag = STRUCTURE_TYPE24753; t98067.s1.value.structure_type24753 = &t98068; /* x176972 stalin.sc:25197:870668 */ t98066.s0.tag = STRUCTURE_TYPE24753; t98066.s0.value.structure_type24753 = &t98067; /* x176973 stalin.sc:25197:870668 */ t98075.s0.tag = EXTERNAL_SYMBOL_TYPE; t98075.s0.value.external_symbol_type = q240; /* x176974 stalin.sc:25197:870668 */ t98078.s0.tag = EXTERNAL_SYMBOL_TYPE; t98078.s0.value.external_symbol_type = q263; /* x176975 stalin.sc:25197:870668 */ t98079.s0.tag = EXTERNAL_SYMBOL_TYPE; t98079.s0.value.external_symbol_type = q261; /* x176976 stalin.sc:25197:870668 */ t98080.s0.tag = ((unsigned)((unsigned char)'\\'))<<2; /* x176977 stalin.sc:25197:870668 */ t98080.s1.tag = NULL_TYPE; /* x176978 stalin.sc:25197:870668 */ t98079.s1.tag = STRUCTURE_TYPE24753; t98079.s1.value.structure_type24753 = &t98080; /* x176979 stalin.sc:25197:870668 */ t98078.s1.tag = STRUCTURE_TYPE24753; t98078.s1.value.structure_type24753 = &t98079; /* x176980 stalin.sc:25197:870668 */ t98077.s0.tag = STRUCTURE_TYPE24753; t98077.s0.value.structure_type24753 = &t98078; /* x176981 stalin.sc:25197:870668 */ t98082.s0.tag = EXTERNAL_SYMBOL_TYPE; t98082.s0.value.external_symbol_type = q242; /* x176982 stalin.sc:25197:870668 */ t98085.s0.tag = EXTERNAL_SYMBOL_TYPE; t98085.s0.value.external_symbol_type = q273; /* x176983 stalin.sc:25197:870668 */ t98087.s0.tag = EXTERNAL_SYMBOL_TYPE; t98087.s0.value.external_symbol_type = q264; /* x176984 stalin.sc:25197:870668 */ t98088.s0.tag = EXTERNAL_SYMBOL_TYPE; t98088.s0.value.external_symbol_type = q254; /* x176985 stalin.sc:25197:870668 */ t98088.s1.tag = NULL_TYPE; /* x176986 stalin.sc:25197:870668 */ t98087.s1.tag = STRUCTURE_TYPE24753; t98087.s1.value.structure_type24753 = &t98088; /* x176987 stalin.sc:25197:870668 */ t98086.s0.tag = STRUCTURE_TYPE24753; t98086.s0.value.structure_type24753 = &t98087; /* x176988 stalin.sc:25197:870668 */ t98086.s1.tag = NULL_TYPE; /* x176989 stalin.sc:25197:870668 */ t98085.s1.tag = STRUCTURE_TYPE24753; t98085.s1.value.structure_type24753 = &t98086; /* x176990 stalin.sc:25197:870668 */ t98084.s0.tag = STRUCTURE_TYPE24753; t98084.s0.value.structure_type24753 = &t98085; /* x176991 stalin.sc:25197:870668 */ t98084.s1.tag = NULL_TYPE; /* x176992 stalin.sc:25197:870668 */ t98083.s0.tag = STRUCTURE_TYPE24753; t98083.s0.value.structure_type24753 = &t98084; /* x176993 stalin.sc:25197:870668 */ t98090.s0.tag = EXTERNAL_SYMBOL_TYPE; t98090.s0.value.external_symbol_type = q43; /* x176994 stalin.sc:25197:870668 */ t98092.s0.tag = EXTERNAL_SYMBOL_TYPE; t98092.s0.value.external_symbol_type = q178; /* x176995 stalin.sc:25197:870668 */ t98093.s0.tag = EXTERNAL_SYMBOL_TYPE; t98093.s0.value.external_symbol_type = q273; /* x176996 stalin.sc:25197:870668 */ t98093.s1.tag = NULL_TYPE; /* x176997 stalin.sc:25197:870668 */ t98092.s1.tag = STRUCTURE_TYPE24753; t98092.s1.value.structure_type24753 = &t98093; /* x176998 stalin.sc:25197:870668 */ t98091.s0.tag = STRUCTURE_TYPE24753; t98091.s0.value.structure_type24753 = &t98092; /* x176999 stalin.sc:25197:870668 */ t98095.s0.tag = EXTERNAL_SYMBOL_TYPE; t98095.s0.value.external_symbol_type = q179; /* x177000 stalin.sc:25197:870668 */ t98096.s0.tag = STRING_TYPE; t98096.s0.value.string_type = "EOF after backslash in string"; /* x177001 stalin.sc:25197:870668 */ t98096.s1.tag = NULL_TYPE; /* x177002 stalin.sc:25197:870668 */ t98095.s1.tag = STRUCTURE_TYPE24753; t98095.s1.value.structure_type24753 = &t98096; /* x177003 stalin.sc:25197:870668 */ t98094.s0.tag = STRUCTURE_TYPE24753; t98094.s0.value.structure_type24753 = &t98095; /* x177004 stalin.sc:25197:870668 */ t98094.s1.tag = NULL_TYPE; /* x177005 stalin.sc:25197:870668 */ t98091.s1.tag = STRUCTURE_TYPE24753; t98091.s1.value.structure_type24753 = &t98094; /* x177006 stalin.sc:25197:870668 */ t98090.s1.tag = STRUCTURE_TYPE24753; t98090.s1.value.structure_type24753 = &t98091; /* x177007 stalin.sc:25197:870668 */ t98089.s0.tag = STRUCTURE_TYPE24753; t98089.s0.value.structure_type24753 = &t98090; /* x177008 stalin.sc:25197:870668 */ t98098.s0.tag = EXTERNAL_SYMBOL_TYPE; t98098.s0.value.external_symbol_type = q287; /* x177009 stalin.sc:25197:870668 */ t98100.s0.tag = EXTERNAL_SYMBOL_TYPE; t98100.s0.value.external_symbol_type = q106; /* x177010 stalin.sc:25197:870668 */ t98101.s0.tag = EXTERNAL_SYMBOL_TYPE; t98101.s0.value.external_symbol_type = q273; /* x177011 stalin.sc:25197:870668 */ t98102.s0.tag = EXTERNAL_SYMBOL_TYPE; t98102.s0.value.external_symbol_type = q281; /* x177012 stalin.sc:25197:870668 */ t98102.s1.tag = NULL_TYPE; /* x177013 stalin.sc:25197:870668 */ t98101.s1.tag = STRUCTURE_TYPE24753; t98101.s1.value.structure_type24753 = &t98102; /* x177014 stalin.sc:25197:870668 */ t98100.s1.tag = STRUCTURE_TYPE24753; t98100.s1.value.structure_type24753 = &t98101; /* x177015 stalin.sc:25197:870668 */ t98099.s0.tag = STRUCTURE_TYPE24753; t98099.s0.value.structure_type24753 = &t98100; /* x177016 stalin.sc:25197:870668 */ t98099.s1.tag = NULL_TYPE; /* x177017 stalin.sc:25197:870668 */ t98098.s1.tag = STRUCTURE_TYPE24753; t98098.s1.value.structure_type24753 = &t98099; /* x177018 stalin.sc:25197:870668 */ t98097.s0.tag = STRUCTURE_TYPE24753; t98097.s0.value.structure_type24753 = &t98098; /* x177019 stalin.sc:25197:870668 */ t98097.s1.tag = NULL_TYPE; /* x177020 stalin.sc:25197:870668 */ t98089.s1.tag = STRUCTURE_TYPE24753; t98089.s1.value.structure_type24753 = &t98097; /* x177021 stalin.sc:25197:870668 */ t98083.s1.tag = STRUCTURE_TYPE24753; t98083.s1.value.structure_type24753 = &t98089; /* x177022 stalin.sc:25197:870668 */ t98082.s1.tag = STRUCTURE_TYPE24753; t98082.s1.value.structure_type24753 = &t98083; /* x177023 stalin.sc:25197:870668 */ t98081.s0.tag = STRUCTURE_TYPE24753; t98081.s0.value.structure_type24753 = &t98082; /* x177024 stalin.sc:25197:870668 */ t98081.s1.tag = NULL_TYPE; /* x177025 stalin.sc:25197:870668 */ t98077.s1.tag = STRUCTURE_TYPE24753; t98077.s1.value.structure_type24753 = &t98081; /* x177026 stalin.sc:25197:870668 */ t98076.s0.tag = STRUCTURE_TYPE24753; t98076.s0.value.structure_type24753 = &t98077; /* x177027 stalin.sc:25197:870668 */ t98105.s0.tag = EXTERNAL_SYMBOL_TYPE; t98105.s0.value.external_symbol_type = q263; /* x177028 stalin.sc:25197:870668 */ t98106.s0.tag = EXTERNAL_SYMBOL_TYPE; t98106.s0.value.external_symbol_type = q261; /* x177029 stalin.sc:25197:870668 */ t98107.s0.tag = ((unsigned)((unsigned char)'\"'))<<2; /* x177030 stalin.sc:25197:870668 */ t98107.s1.tag = NULL_TYPE; /* x177031 stalin.sc:25197:870668 */ t98106.s1.tag = STRUCTURE_TYPE24753; t98106.s1.value.structure_type24753 = &t98107; /* x177032 stalin.sc:25197:870668 */ t98105.s1.tag = STRUCTURE_TYPE24753; t98105.s1.value.structure_type24753 = &t98106; /* x177033 stalin.sc:25197:870668 */ t98104.s0.tag = STRUCTURE_TYPE24753; t98104.s0.value.structure_type24753 = &t98105; /* x177034 stalin.sc:25197:870668 */ t98109.s0.tag = EXTERNAL_SYMBOL_TYPE; t98109.s0.value.external_symbol_type = q283; /* x177035 stalin.sc:25197:870668 */ t98111.s0.tag = EXTERNAL_SYMBOL_TYPE; t98111.s0.value.external_symbol_type = q284; /* x177036 stalin.sc:25197:870668 */ t98112.s0.tag = EXTERNAL_SYMBOL_TYPE; t98112.s0.value.external_symbol_type = q281; /* x177037 stalin.sc:25197:870668 */ t98112.s1.tag = NULL_TYPE; /* x177038 stalin.sc:25197:870668 */ t98111.s1.tag = STRUCTURE_TYPE24753; t98111.s1.value.structure_type24753 = &t98112; /* x177039 stalin.sc:25197:870668 */ t98110.s0.tag = STRUCTURE_TYPE24753; t98110.s0.value.structure_type24753 = &t98111; /* x177040 stalin.sc:25197:870668 */ t98110.s1.tag = NULL_TYPE; /* x177041 stalin.sc:25197:870668 */ t98109.s1.tag = STRUCTURE_TYPE24753; t98109.s1.value.structure_type24753 = &t98110; /* x177042 stalin.sc:25197:870668 */ t98108.s0.tag = STRUCTURE_TYPE24753; t98108.s0.value.structure_type24753 = &t98109; /* x177043 stalin.sc:25197:870668 */ t98108.s1.tag = NULL_TYPE; /* x177044 stalin.sc:25197:870668 */ t98104.s1.tag = STRUCTURE_TYPE24753; t98104.s1.value.structure_type24753 = &t98108; /* x177045 stalin.sc:25197:870668 */ t98103.s0.tag = STRUCTURE_TYPE24753; t98103.s0.value.structure_type24753 = &t98104; /* x177046 stalin.sc:25197:870668 */ t98114.s0.tag = EXTERNAL_SYMBOL_TYPE; t98114.s0.value.external_symbol_type = q95; /* x177047 stalin.sc:25197:870668 */ t98116.s0.tag = EXTERNAL_SYMBOL_TYPE; t98116.s0.value.external_symbol_type = q287; /* x177048 stalin.sc:25197:870668 */ t98118.s0.tag = EXTERNAL_SYMBOL_TYPE; t98118.s0.value.external_symbol_type = q106; /* x177049 stalin.sc:25197:870668 */ t98119.s0.tag = EXTERNAL_SYMBOL_TYPE; t98119.s0.value.external_symbol_type = q261; /* x177050 stalin.sc:25197:870668 */ t98120.s0.tag = EXTERNAL_SYMBOL_TYPE; t98120.s0.value.external_symbol_type = q281; /* x177051 stalin.sc:25197:870668 */ t98120.s1.tag = NULL_TYPE; /* x177052 stalin.sc:25197:870668 */ t98119.s1.tag = STRUCTURE_TYPE24753; t98119.s1.value.structure_type24753 = &t98120; /* x177053 stalin.sc:25197:870668 */ t98118.s1.tag = STRUCTURE_TYPE24753; t98118.s1.value.structure_type24753 = &t98119; /* x177054 stalin.sc:25197:870668 */ t98117.s0.tag = STRUCTURE_TYPE24753; t98117.s0.value.structure_type24753 = &t98118; /* x177055 stalin.sc:25197:870668 */ t98117.s1.tag = NULL_TYPE; /* x177056 stalin.sc:25197:870668 */ t98116.s1.tag = STRUCTURE_TYPE24753; t98116.s1.value.structure_type24753 = &t98117; /* x177057 stalin.sc:25197:870668 */ t98115.s0.tag = STRUCTURE_TYPE24753; t98115.s0.value.structure_type24753 = &t98116; /* x177058 stalin.sc:25197:870668 */ t98115.s1.tag = NULL_TYPE; /* x177059 stalin.sc:25197:870668 */ t98114.s1.tag = STRUCTURE_TYPE24753; t98114.s1.value.structure_type24753 = &t98115; /* x177060 stalin.sc:25197:870668 */ t98113.s0.tag = STRUCTURE_TYPE24753; t98113.s0.value.structure_type24753 = &t98114; /* x177061 stalin.sc:25197:870668 */ t98113.s1.tag = NULL_TYPE; /* x177062 stalin.sc:25197:870668 */ t98103.s1.tag = STRUCTURE_TYPE24753; t98103.s1.value.structure_type24753 = &t98113; /* x177063 stalin.sc:25197:870668 */ t98076.s1.tag = STRUCTURE_TYPE24753; t98076.s1.value.structure_type24753 = &t98103; /* x177064 stalin.sc:25197:870668 */ t98075.s1.tag = STRUCTURE_TYPE24753; t98075.s1.value.structure_type24753 = &t98076; /* x177065 stalin.sc:25197:870668 */ t98074.s0.tag = STRUCTURE_TYPE24753; t98074.s0.value.structure_type24753 = &t98075; /* x177066 stalin.sc:25197:870668 */ t98074.s1.tag = NULL_TYPE; /* x177067 stalin.sc:25197:870668 */ t98066.s1.tag = STRUCTURE_TYPE24753; t98066.s1.value.structure_type24753 = &t98074; /* x177068 stalin.sc:25197:870668 */ t98060.s1.tag = STRUCTURE_TYPE24753; t98060.s1.value.structure_type24753 = &t98066; /* x177069 stalin.sc:25197:870668 */ t98059.s1.tag = STRUCTURE_TYPE24753; t98059.s1.value.structure_type24753 = &t98060; /* x177070 stalin.sc:25197:870668 */ t98058.s0.tag = STRUCTURE_TYPE24753; t98058.s0.value.structure_type24753 = &t98059; /* x177071 stalin.sc:25197:870668 */ t98058.s1.tag = NULL_TYPE; /* x177072 stalin.sc:25197:870668 */ t98052.s1.tag = STRUCTURE_TYPE24753; t98052.s1.value.structure_type24753 = &t98058; /* x177073 stalin.sc:25197:870668 */ t98051.s1.tag = STRUCTURE_TYPE24753; t98051.s1.value.structure_type24753 = &t98052; /* x177074 stalin.sc:25197:870668 */ t98050.s1.tag = STRUCTURE_TYPE24753; t98050.s1.value.structure_type24753 = &t98051; /* x177075 stalin.sc:25197:870668 */ t98049.s0.tag = STRUCTURE_TYPE24753; t98049.s0.value.structure_type24753 = &t98050; /* x177076 stalin.sc:25197:870668 */ t98049.s1.tag = NULL_TYPE; /* x177077 stalin.sc:25197:870668 */ t98045.s1.tag = STRUCTURE_TYPE24753; t98045.s1.value.structure_type24753 = &t98049; /* x177078 stalin.sc:25197:870668 */ t98044.s0.tag = STRUCTURE_TYPE24753; t98044.s0.value.structure_type24753 = &t98045; /* x177079 stalin.sc:25197:870668 */ t98123.s0.tag = EXTERNAL_SYMBOL_TYPE; t98123.s0.value.external_symbol_type = q263; /* x177080 stalin.sc:25197:870668 */ t98124.s0.tag = EXTERNAL_SYMBOL_TYPE; t98124.s0.value.external_symbol_type = q273; /* x177081 stalin.sc:25197:870668 */ t98125.s0.tag = ((unsigned)((unsigned char)'+'))<<2; /* x177082 stalin.sc:25197:870668 */ t98125.s1.tag = NULL_TYPE; /* x177083 stalin.sc:25197:870668 */ t98124.s1.tag = STRUCTURE_TYPE24753; t98124.s1.value.structure_type24753 = &t98125; /* x177084 stalin.sc:25197:870668 */ t98123.s1.tag = STRUCTURE_TYPE24753; t98123.s1.value.structure_type24753 = &t98124; /* x177085 stalin.sc:25197:870668 */ t98122.s0.tag = STRUCTURE_TYPE24753; t98122.s0.value.structure_type24753 = &t98123; /* x177086 stalin.sc:25197:870668 */ t98127.s0.tag = EXTERNAL_SYMBOL_TYPE; t98127.s0.value.external_symbol_type = q242; /* x177087 stalin.sc:25197:870668 */ t98130.s0.tag = EXTERNAL_SYMBOL_TYPE; t98130.s0.value.external_symbol_type = q274; /* x177088 stalin.sc:25197:870668 */ t98132.s0.tag = EXTERNAL_SYMBOL_TYPE; t98132.s0.value.external_symbol_type = q262; /* x177089 stalin.sc:25197:870668 */ t98133.s0.tag = EXTERNAL_SYMBOL_TYPE; t98133.s0.value.external_symbol_type = q254; /* x177090 stalin.sc:25197:870668 */ t98133.s1.tag = NULL_TYPE; /* x177091 stalin.sc:25197:870668 */ t98132.s1.tag = STRUCTURE_TYPE24753; t98132.s1.value.structure_type24753 = &t98133; /* x177092 stalin.sc:25197:870668 */ t98131.s0.tag = STRUCTURE_TYPE24753; t98131.s0.value.structure_type24753 = &t98132; /* x177093 stalin.sc:25197:870668 */ t98131.s1.tag = NULL_TYPE; /* x177094 stalin.sc:25197:870668 */ t98130.s1.tag = STRUCTURE_TYPE24753; t98130.s1.value.structure_type24753 = &t98131; /* x177095 stalin.sc:25197:870668 */ t98129.s0.tag = STRUCTURE_TYPE24753; t98129.s0.value.structure_type24753 = &t98130; /* x177096 stalin.sc:25197:870668 */ t98129.s1.tag = NULL_TYPE; /* x177097 stalin.sc:25197:870668 */ t98128.s0.tag = STRUCTURE_TYPE24753; t98128.s0.value.structure_type24753 = &t98129; /* x177098 stalin.sc:25197:870668 */ t98135.s0.tag = EXTERNAL_SYMBOL_TYPE; t98135.s0.value.external_symbol_type = q240; /* x177099 stalin.sc:25197:870668 */ t98138.s0.tag = EXTERNAL_SYMBOL_TYPE; t98138.s0.value.external_symbol_type = q178; /* x177100 stalin.sc:25197:870668 */ t98139.s0.tag = EXTERNAL_SYMBOL_TYPE; t98139.s0.value.external_symbol_type = q274; /* x177101 stalin.sc:25197:870668 */ t98139.s1.tag = NULL_TYPE; /* x177102 stalin.sc:25197:870668 */ t98138.s1.tag = STRUCTURE_TYPE24753; t98138.s1.value.structure_type24753 = &t98139; /* x177103 stalin.sc:25197:870668 */ t98137.s0.tag = STRUCTURE_TYPE24753; t98137.s0.value.structure_type24753 = &t98138; /* x177104 stalin.sc:25197:870668 */ t98141.s0.tag = EXTERNAL_SYMBOL_TYPE; t98141.s0.value.external_symbol_type = q11; /* x177105 stalin.sc:25197:870668 */ t98142.s0.tag = EXTERNAL_SYMBOL_TYPE; t98142.s0.value.external_symbol_type = q4; /* x177106 stalin.sc:25197:870668 */ t98142.s1.tag = NULL_TYPE; /* x177107 stalin.sc:25197:870668 */ t98141.s1.tag = STRUCTURE_TYPE24753; t98141.s1.value.structure_type24753 = &t98142; /* x177108 stalin.sc:25197:870668 */ t98140.s0.tag = STRUCTURE_TYPE24753; t98140.s0.value.structure_type24753 = &t98141; /* x177109 stalin.sc:25197:870668 */ t98140.s1.tag = NULL_TYPE; /* x177110 stalin.sc:25197:870668 */ t98137.s1.tag = STRUCTURE_TYPE24753; t98137.s1.value.structure_type24753 = &t98140; /* x177111 stalin.sc:25197:870668 */ t98136.s0.tag = STRUCTURE_TYPE24753; t98136.s0.value.structure_type24753 = &t98137; /* x177112 stalin.sc:25197:870668 */ t98145.s0.tag = EXTERNAL_SYMBOL_TYPE; t98145.s0.value.external_symbol_type = q269; /* x177113 stalin.sc:25197:870668 */ t98146.s0.tag = EXTERNAL_SYMBOL_TYPE; t98146.s0.value.external_symbol_type = q274; /* x177114 stalin.sc:25197:870668 */ t98146.s1.tag = NULL_TYPE; /* x177115 stalin.sc:25197:870668 */ t98145.s1.tag = STRUCTURE_TYPE24753; t98145.s1.value.structure_type24753 = &t98146; /* x177116 stalin.sc:25197:870668 */ t98144.s0.tag = STRUCTURE_TYPE24753; t98144.s0.value.structure_type24753 = &t98145; /* x177117 stalin.sc:25197:870668 */ t98148.s0.tag = EXTERNAL_SYMBOL_TYPE; t98148.s0.value.external_symbol_type = q264; /* x177118 stalin.sc:25197:870668 */ t98149.s0.tag = EXTERNAL_SYMBOL_TYPE; t98149.s0.value.external_symbol_type = q254; /* x177119 stalin.sc:25197:870668 */ t98149.s1.tag = NULL_TYPE; /* x177120 stalin.sc:25197:870668 */ t98148.s1.tag = STRUCTURE_TYPE24753; t98148.s1.value.structure_type24753 = &t98149; /* x177121 stalin.sc:25197:870668 */ t98147.s0.tag = STRUCTURE_TYPE24753; t98147.s0.value.structure_type24753 = &t98148; /* x177122 stalin.sc:25197:870668 */ t98151.s0.tag = EXTERNAL_SYMBOL_TYPE; t98151.s0.value.external_symbol_type = q276; /* x177123 stalin.sc:25197:870668 */ t98153.s0.tag = EXTERNAL_SYMBOL_TYPE; t98153.s0.value.external_symbol_type = q2; /* x177124 stalin.sc:25197:870668 */ t98155.s0.tag = EXTERNAL_SYMBOL_TYPE; t98155.s0.value.external_symbol_type = q157; /* x177125 stalin.sc:25197:870668 */ t98156.s0.tag = EXTERNAL_SYMBOL_TYPE; t98156.s0.value.external_symbol_type = q274; /* x177126 stalin.sc:25197:870668 */ t98156.s1.tag = NULL_TYPE; /* x177127 stalin.sc:25197:870668 */ t98155.s1.tag = STRUCTURE_TYPE24753; t98155.s1.value.structure_type24753 = &t98156; /* x177128 stalin.sc:25197:870668 */ t98154.s0.tag = STRUCTURE_TYPE24753; t98154.s0.value.structure_type24753 = &t98155; /* x177129 stalin.sc:25197:870668 */ t98158.s0.tag = EXTERNAL_SYMBOL_TYPE; t98158.s0.value.external_symbol_type = q157; /* x177130 stalin.sc:25197:870668 */ t98159.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x177131 stalin.sc:25197:870668 */ t98159.s1.tag = NULL_TYPE; /* x177132 stalin.sc:25197:870668 */ t98158.s1.tag = STRUCTURE_TYPE24753; t98158.s1.value.structure_type24753 = &t98159; /* x177133 stalin.sc:25197:870668 */ t98157.s0.tag = STRUCTURE_TYPE24753; t98157.s0.value.structure_type24753 = &t98158; /* x177134 stalin.sc:25197:870668 */ t98157.s1.tag = NULL_TYPE; /* x177135 stalin.sc:25197:870668 */ t98154.s1.tag = STRUCTURE_TYPE24753; t98154.s1.value.structure_type24753 = &t98157; /* x177136 stalin.sc:25197:870668 */ t98153.s1.tag = STRUCTURE_TYPE24753; t98153.s1.value.structure_type24753 = &t98154; /* x177137 stalin.sc:25197:870668 */ t98152.s0.tag = STRUCTURE_TYPE24753; t98152.s0.value.structure_type24753 = &t98153; /* x177138 stalin.sc:25197:870668 */ t98152.s1.tag = NULL_TYPE; /* x177139 stalin.sc:25197:870668 */ t98151.s1.tag = STRUCTURE_TYPE24753; t98151.s1.value.structure_type24753 = &t98152; /* x177140 stalin.sc:25197:870668 */ t98150.s0.tag = STRUCTURE_TYPE24753; t98150.s0.value.structure_type24753 = &t98151; /* x177141 stalin.sc:25197:870668 */ t98150.s1.tag = NULL_TYPE; /* x177142 stalin.sc:25197:870668 */ t98147.s1.tag = STRUCTURE_TYPE24753; t98147.s1.value.structure_type24753 = &t98150; /* x177143 stalin.sc:25197:870668 */ t98144.s1.tag = STRUCTURE_TYPE24753; t98144.s1.value.structure_type24753 = &t98147; /* x177144 stalin.sc:25197:870668 */ t98143.s0.tag = STRUCTURE_TYPE24753; t98143.s0.value.structure_type24753 = &t98144; /* x177145 stalin.sc:25197:870668 */ t98162.s0.tag = EXTERNAL_SYMBOL_TYPE; t98162.s0.value.external_symbol_type = q263; /* x177146 stalin.sc:25197:870668 */ t98163.s0.tag = EXTERNAL_SYMBOL_TYPE; t98163.s0.value.external_symbol_type = q274; /* x177147 stalin.sc:25197:870668 */ t98164.s0.tag = ((unsigned)((unsigned char)'.'))<<2; /* x177148 stalin.sc:25197:870668 */ t98164.s1.tag = NULL_TYPE; /* x177149 stalin.sc:25197:870668 */ t98163.s1.tag = STRUCTURE_TYPE24753; t98163.s1.value.structure_type24753 = &t98164; /* x177150 stalin.sc:25197:870668 */ t98162.s1.tag = STRUCTURE_TYPE24753; t98162.s1.value.structure_type24753 = &t98163; /* x177151 stalin.sc:25197:870668 */ t98161.s0.tag = STRUCTURE_TYPE24753; t98161.s0.value.structure_type24753 = &t98162; /* x177152 stalin.sc:25197:870668 */ t98166.s0.tag = EXTERNAL_SYMBOL_TYPE; t98166.s0.value.external_symbol_type = q264; /* x177153 stalin.sc:25197:870668 */ t98167.s0.tag = EXTERNAL_SYMBOL_TYPE; t98167.s0.value.external_symbol_type = q254; /* x177154 stalin.sc:25197:870668 */ t98167.s1.tag = NULL_TYPE; /* x177155 stalin.sc:25197:870668 */ t98166.s1.tag = STRUCTURE_TYPE24753; t98166.s1.value.structure_type24753 = &t98167; /* x177156 stalin.sc:25197:870668 */ t98165.s0.tag = STRUCTURE_TYPE24753; t98165.s0.value.structure_type24753 = &t98166; /* x177157 stalin.sc:25197:870668 */ t98169.s0.tag = EXTERNAL_SYMBOL_TYPE; t98169.s0.value.external_symbol_type = q242; /* x177158 stalin.sc:25197:870668 */ t98172.s0.tag = EXTERNAL_SYMBOL_TYPE; t98172.s0.value.external_symbol_type = q275; /* x177159 stalin.sc:25197:870668 */ t98174.s0.tag = EXTERNAL_SYMBOL_TYPE; t98174.s0.value.external_symbol_type = q262; /* x177160 stalin.sc:25197:870668 */ t98175.s0.tag = EXTERNAL_SYMBOL_TYPE; t98175.s0.value.external_symbol_type = q254; /* x177161 stalin.sc:25197:870668 */ t98175.s1.tag = NULL_TYPE; /* x177162 stalin.sc:25197:870668 */ t98174.s1.tag = STRUCTURE_TYPE24753; t98174.s1.value.structure_type24753 = &t98175; /* x177163 stalin.sc:25197:870668 */ t98173.s0.tag = STRUCTURE_TYPE24753; t98173.s0.value.structure_type24753 = &t98174; /* x177164 stalin.sc:25197:870668 */ t98173.s1.tag = NULL_TYPE; /* x177165 stalin.sc:25197:870668 */ t98172.s1.tag = STRUCTURE_TYPE24753; t98172.s1.value.structure_type24753 = &t98173; /* x177166 stalin.sc:25197:870668 */ t98171.s0.tag = STRUCTURE_TYPE24753; t98171.s0.value.structure_type24753 = &t98172; /* x177167 stalin.sc:25197:870668 */ t98171.s1.tag = NULL_TYPE; /* x177168 stalin.sc:25197:870668 */ t98170.s0.tag = STRUCTURE_TYPE24753; t98170.s0.value.structure_type24753 = &t98171; /* x177169 stalin.sc:25197:870668 */ t98177.s0.tag = EXTERNAL_SYMBOL_TYPE; t98177.s0.value.external_symbol_type = q240; /* x177170 stalin.sc:25197:870668 */ t98180.s0.tag = EXTERNAL_SYMBOL_TYPE; t98180.s0.value.external_symbol_type = q178; /* x177171 stalin.sc:25197:870668 */ t98181.s0.tag = EXTERNAL_SYMBOL_TYPE; t98181.s0.value.external_symbol_type = q275; /* x177172 stalin.sc:25197:870668 */ t98181.s1.tag = NULL_TYPE; /* x177173 stalin.sc:25197:870668 */ t98180.s1.tag = STRUCTURE_TYPE24753; t98180.s1.value.structure_type24753 = &t98181; /* x177174 stalin.sc:25197:870668 */ t98179.s0.tag = STRUCTURE_TYPE24753; t98179.s0.value.structure_type24753 = &t98180; /* x177175 stalin.sc:25197:870668 */ t98183.s0.tag = EXTERNAL_SYMBOL_TYPE; t98183.s0.value.external_symbol_type = q11; /* x177176 stalin.sc:25197:870668 */ t98184.s0.tag = EXTERNAL_SYMBOL_TYPE; t98184.s0.value.external_symbol_type = q5; /* x177177 stalin.sc:25197:870668 */ t98184.s1.tag = NULL_TYPE; /* x177178 stalin.sc:25197:870668 */ t98183.s1.tag = STRUCTURE_TYPE24753; t98183.s1.value.structure_type24753 = &t98184; /* x177179 stalin.sc:25197:870668 */ t98182.s0.tag = STRUCTURE_TYPE24753; t98182.s0.value.structure_type24753 = &t98183; /* x177180 stalin.sc:25197:870668 */ t98182.s1.tag = NULL_TYPE; /* x177181 stalin.sc:25197:870668 */ t98179.s1.tag = STRUCTURE_TYPE24753; t98179.s1.value.structure_type24753 = &t98182; /* x177182 stalin.sc:25197:870668 */ t98178.s0.tag = STRUCTURE_TYPE24753; t98178.s0.value.structure_type24753 = &t98179; /* x177183 stalin.sc:25197:870668 */ t98187.s0.tag = EXTERNAL_SYMBOL_TYPE; t98187.s0.value.external_symbol_type = q269; /* x177184 stalin.sc:25197:870668 */ t98188.s0.tag = EXTERNAL_SYMBOL_TYPE; t98188.s0.value.external_symbol_type = q275; /* x177185 stalin.sc:25197:870668 */ t98188.s1.tag = NULL_TYPE; /* x177186 stalin.sc:25197:870668 */ t98187.s1.tag = STRUCTURE_TYPE24753; t98187.s1.value.structure_type24753 = &t98188; /* x177187 stalin.sc:25197:870668 */ t98186.s0.tag = STRUCTURE_TYPE24753; t98186.s0.value.structure_type24753 = &t98187; /* x177188 stalin.sc:25197:870668 */ t98190.s0.tag = EXTERNAL_SYMBOL_TYPE; t98190.s0.value.external_symbol_type = q264; /* x177189 stalin.sc:25197:870668 */ t98191.s0.tag = EXTERNAL_SYMBOL_TYPE; t98191.s0.value.external_symbol_type = q254; /* x177190 stalin.sc:25197:870668 */ t98191.s1.tag = NULL_TYPE; /* x177191 stalin.sc:25197:870668 */ t98190.s1.tag = STRUCTURE_TYPE24753; t98190.s1.value.structure_type24753 = &t98191; /* x177192 stalin.sc:25197:870668 */ t98189.s0.tag = STRUCTURE_TYPE24753; t98189.s0.value.structure_type24753 = &t98190; /* x177193 stalin.sc:25197:870668 */ t98193.s0.tag = EXTERNAL_SYMBOL_TYPE; t98193.s0.value.external_symbol_type = q271; /* x177194 stalin.sc:25197:870668 */ t98195.s0.tag = EXTERNAL_SYMBOL_TYPE; t98195.s0.value.external_symbol_type = q131; /* x177195 stalin.sc:25197:870668 */ t98197.s0.tag = EXTERNAL_SYMBOL_TYPE; t98197.s0.value.external_symbol_type = q2; /* x177196 stalin.sc:25197:870668 */ t98199.s0.tag = EXTERNAL_SYMBOL_TYPE; t98199.s0.value.external_symbol_type = q157; /* x177197 stalin.sc:25197:870668 */ t98200.s0.tag = EXTERNAL_SYMBOL_TYPE; t98200.s0.value.external_symbol_type = q275; /* x177198 stalin.sc:25197:870668 */ t98200.s1.tag = NULL_TYPE; /* x177199 stalin.sc:25197:870668 */ t98199.s1.tag = STRUCTURE_TYPE24753; t98199.s1.value.structure_type24753 = &t98200; /* x177200 stalin.sc:25197:870668 */ t98198.s0.tag = STRUCTURE_TYPE24753; t98198.s0.value.structure_type24753 = &t98199; /* x177201 stalin.sc:25197:870668 */ t98202.s0.tag = EXTERNAL_SYMBOL_TYPE; t98202.s0.value.external_symbol_type = q157; /* x177202 stalin.sc:25197:870668 */ t98203.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x177203 stalin.sc:25197:870668 */ t98203.s1.tag = NULL_TYPE; /* x177204 stalin.sc:25197:870668 */ t98202.s1.tag = STRUCTURE_TYPE24753; t98202.s1.value.structure_type24753 = &t98203; /* x177205 stalin.sc:25197:870668 */ t98201.s0.tag = STRUCTURE_TYPE24753; t98201.s0.value.structure_type24753 = &t98202; /* x177206 stalin.sc:25197:870668 */ t98201.s1.tag = NULL_TYPE; /* x177207 stalin.sc:25197:870668 */ t98198.s1.tag = STRUCTURE_TYPE24753; t98198.s1.value.structure_type24753 = &t98201; /* x177208 stalin.sc:25197:870668 */ t98197.s1.tag = STRUCTURE_TYPE24753; t98197.s1.value.structure_type24753 = &t98198; /* x177209 stalin.sc:25197:870668 */ t98196.s0.tag = STRUCTURE_TYPE24753; t98196.s0.value.structure_type24753 = &t98197; /* x177210 stalin.sc:25197:870668 */ t98204.s0.tag = FLONUM_TYPE; t98204.s0.value.flonum_type = 1.0e1; /* x177211 stalin.sc:25197:870668 */ t98204.s1.tag = NULL_TYPE; /* x177212 stalin.sc:25197:870668 */ t98196.s1.tag = STRUCTURE_TYPE24753; t98196.s1.value.structure_type24753 = &t98204; /* x177213 stalin.sc:25197:870668 */ t98195.s1.tag = STRUCTURE_TYPE24753; t98195.s1.value.structure_type24753 = &t98196; /* x177214 stalin.sc:25197:870668 */ t98194.s0.tag = STRUCTURE_TYPE24753; t98194.s0.value.structure_type24753 = &t98195; /* x177215 stalin.sc:25197:870668 */ t98205.s0.tag = FLONUM_TYPE; t98205.s0.value.flonum_type = 1.0e2; /* x177216 stalin.sc:25197:870668 */ t98205.s1.tag = NULL_TYPE; /* x177217 stalin.sc:25197:870668 */ t98194.s1.tag = STRUCTURE_TYPE24753; t98194.s1.value.structure_type24753 = &t98205; /* x177218 stalin.sc:25197:870668 */ t98193.s1.tag = STRUCTURE_TYPE24753; t98193.s1.value.structure_type24753 = &t98194; /* x177219 stalin.sc:25197:870668 */ t98192.s0.tag = STRUCTURE_TYPE24753; t98192.s0.value.structure_type24753 = &t98193; /* x177220 stalin.sc:25197:870668 */ t98192.s1.tag = NULL_TYPE; /* x177221 stalin.sc:25197:870668 */ t98189.s1.tag = STRUCTURE_TYPE24753; t98189.s1.value.structure_type24753 = &t98192; /* x177222 stalin.sc:25197:870668 */ t98186.s1.tag = STRUCTURE_TYPE24753; t98186.s1.value.structure_type24753 = &t98189; /* x177223 stalin.sc:25197:870668 */ t98185.s0.tag = STRUCTURE_TYPE24753; t98185.s0.value.structure_type24753 = &t98186; /* x177224 stalin.sc:25197:870668 */ t98208.s0.tag = EXTERNAL_SYMBOL_TYPE; t98208.s0.value.external_symbol_type = q279; /* x177225 stalin.sc:25197:870668 */ t98209.s0.tag = EXTERNAL_SYMBOL_TYPE; t98209.s0.value.external_symbol_type = q275; /* x177226 stalin.sc:25197:870668 */ t98209.s1.tag = NULL_TYPE; /* x177227 stalin.sc:25197:870668 */ t98208.s1.tag = STRUCTURE_TYPE24753; t98208.s1.value.structure_type24753 = &t98209; /* x177228 stalin.sc:25197:870668 */ t98207.s0.tag = STRUCTURE_TYPE24753; t98207.s0.value.structure_type24753 = &t98208; /* x177229 stalin.sc:25197:870668 */ t98211.s0.tag = EXTERNAL_SYMBOL_TYPE; t98211.s0.value.external_symbol_type = q264; /* x177230 stalin.sc:25197:870668 */ t98212.s0.tag = EXTERNAL_SYMBOL_TYPE; t98212.s0.value.external_symbol_type = q254; /* x177231 stalin.sc:25197:870668 */ t98212.s1.tag = NULL_TYPE; /* x177232 stalin.sc:25197:870668 */ t98211.s1.tag = STRUCTURE_TYPE24753; t98211.s1.value.structure_type24753 = &t98212; /* x177233 stalin.sc:25197:870668 */ t98210.s0.tag = STRUCTURE_TYPE24753; t98210.s0.value.structure_type24753 = &t98211; /* x177234 stalin.sc:25197:870668 */ t98214.s0.tag = EXTERNAL_SYMBOL_TYPE; t98214.s0.value.external_symbol_type = q280; /* x177235 stalin.sc:25197:870668 */ t98216.s0.tag = EXTERNAL_SYMBOL_TYPE; t98216.s0.value.external_symbol_type = q1; /* x177236 stalin.sc:25197:870668 */ t98218.s0.tag = EXTERNAL_SYMBOL_TYPE; t98218.s0.value.external_symbol_type = q285; /* x177237 stalin.sc:25197:870668 */ t98219.s0.tag = EXTERNAL_SYMBOL_TYPE; t98219.s0.value.external_symbol_type = q275; /* x177238 stalin.sc:25197:870668 */ t98219.s1.tag = NULL_TYPE; /* x177239 stalin.sc:25197:870668 */ t98218.s1.tag = STRUCTURE_TYPE24753; t98218.s1.value.structure_type24753 = &t98219; /* x177240 stalin.sc:25197:870668 */ t98217.s0.tag = STRUCTURE_TYPE24753; t98217.s0.value.structure_type24753 = &t98218; /* x177241 stalin.sc:25197:870668 */ t98221.s0.tag = EXTERNAL_SYMBOL_TYPE; t98221.s0.value.external_symbol_type = q285; /* x177242 stalin.sc:25197:870668 */ t98222.s0.tag = EXTERNAL_SYMBOL_TYPE; t98222.s0.value.external_symbol_type = q274; /* x177243 stalin.sc:25197:870668 */ t98222.s1.tag = NULL_TYPE; /* x177244 stalin.sc:25197:870668 */ t98221.s1.tag = STRUCTURE_TYPE24753; t98221.s1.value.structure_type24753 = &t98222; /* x177245 stalin.sc:25197:870668 */ t98220.s0.tag = STRUCTURE_TYPE24753; t98220.s0.value.structure_type24753 = &t98221; /* x177246 stalin.sc:25197:870668 */ t98224.s0.tag = EXTERNAL_SYMBOL_TYPE; t98224.s0.value.external_symbol_type = q285; /* x177247 stalin.sc:25197:870668 */ t98225.s0.tag = EXTERNAL_SYMBOL_TYPE; t98225.s0.value.external_symbol_type = q273; /* x177248 stalin.sc:25197:870668 */ t98225.s1.tag = NULL_TYPE; /* x177249 stalin.sc:25197:870668 */ t98224.s1.tag = STRUCTURE_TYPE24753; t98224.s1.value.structure_type24753 = &t98225; /* x177250 stalin.sc:25197:870668 */ t98223.s0.tag = STRUCTURE_TYPE24753; t98223.s0.value.structure_type24753 = &t98224; /* x177251 stalin.sc:25197:870668 */ t98223.s1.tag = NULL_TYPE; /* x177252 stalin.sc:25197:870668 */ t98220.s1.tag = STRUCTURE_TYPE24753; t98220.s1.value.structure_type24753 = &t98223; /* x177253 stalin.sc:25197:870668 */ t98217.s1.tag = STRUCTURE_TYPE24753; t98217.s1.value.structure_type24753 = &t98220; /* x177254 stalin.sc:25197:870668 */ t98216.s1.tag = STRUCTURE_TYPE24753; t98216.s1.value.structure_type24753 = &t98217; /* x177255 stalin.sc:25197:870668 */ t98215.s0.tag = STRUCTURE_TYPE24753; t98215.s0.value.structure_type24753 = &t98216; /* x177256 stalin.sc:25197:870668 */ t98215.s1.tag = NULL_TYPE; /* x177257 stalin.sc:25197:870668 */ t98214.s1.tag = STRUCTURE_TYPE24753; t98214.s1.value.structure_type24753 = &t98215; /* x177258 stalin.sc:25197:870668 */ t98213.s0.tag = STRUCTURE_TYPE24753; t98213.s0.value.structure_type24753 = &t98214; /* x177259 stalin.sc:25197:870668 */ t98213.s1.tag = NULL_TYPE; /* x177260 stalin.sc:25197:870668 */ t98210.s1.tag = STRUCTURE_TYPE24753; t98210.s1.value.structure_type24753 = &t98213; /* x177261 stalin.sc:25197:870668 */ t98207.s1.tag = STRUCTURE_TYPE24753; t98207.s1.value.structure_type24753 = &t98210; /* x177262 stalin.sc:25197:870668 */ t98206.s0.tag = STRUCTURE_TYPE24753; t98206.s0.value.structure_type24753 = &t98207; /* x177263 stalin.sc:25197:870668 */ t98227.s0.tag = EXTERNAL_SYMBOL_TYPE; t98227.s0.value.external_symbol_type = q95; /* x177264 stalin.sc:25197:870668 */ t98229.s0.tag = EXTERNAL_SYMBOL_TYPE; t98229.s0.value.external_symbol_type = q11; /* x177265 stalin.sc:25197:870668 */ t98230.s0.tag = EXTERNAL_SYMBOL_TYPE; t98230.s0.value.external_symbol_type = q5; /* x177266 stalin.sc:25197:870668 */ t98230.s1.tag = NULL_TYPE; /* x177267 stalin.sc:25197:870668 */ t98229.s1.tag = STRUCTURE_TYPE24753; t98229.s1.value.structure_type24753 = &t98230; /* x177268 stalin.sc:25197:870668 */ t98228.s0.tag = STRUCTURE_TYPE24753; t98228.s0.value.structure_type24753 = &t98229; /* x177269 stalin.sc:25197:870668 */ t98228.s1.tag = NULL_TYPE; /* x177270 stalin.sc:25197:870668 */ t98227.s1.tag = STRUCTURE_TYPE24753; t98227.s1.value.structure_type24753 = &t98228; /* x177271 stalin.sc:25197:870668 */ t98226.s0.tag = STRUCTURE_TYPE24753; t98226.s0.value.structure_type24753 = &t98227; /* x177272 stalin.sc:25197:870668 */ t98226.s1.tag = NULL_TYPE; /* x177273 stalin.sc:25197:870668 */ t98206.s1.tag = STRUCTURE_TYPE24753; t98206.s1.value.structure_type24753 = &t98226; /* x177274 stalin.sc:25197:870668 */ t98185.s1.tag = STRUCTURE_TYPE24753; t98185.s1.value.structure_type24753 = &t98206; /* x177275 stalin.sc:25197:870668 */ t98178.s1.tag = STRUCTURE_TYPE24753; t98178.s1.value.structure_type24753 = &t98185; /* x177276 stalin.sc:25197:870668 */ t98177.s1.tag = STRUCTURE_TYPE24753; t98177.s1.value.structure_type24753 = &t98178; /* x177277 stalin.sc:25197:870668 */ t98176.s0.tag = STRUCTURE_TYPE24753; t98176.s0.value.structure_type24753 = &t98177; /* x177278 stalin.sc:25197:870668 */ t98176.s1.tag = NULL_TYPE; /* x177279 stalin.sc:25197:870668 */ t98170.s1.tag = STRUCTURE_TYPE24753; t98170.s1.value.structure_type24753 = &t98176; /* x177280 stalin.sc:25197:870668 */ t98169.s1.tag = STRUCTURE_TYPE24753; t98169.s1.value.structure_type24753 = &t98170; /* x177281 stalin.sc:25197:870668 */ t98168.s0.tag = STRUCTURE_TYPE24753; t98168.s0.value.structure_type24753 = &t98169; /* x177282 stalin.sc:25197:870668 */ t98168.s1.tag = NULL_TYPE; /* x177283 stalin.sc:25197:870668 */ t98165.s1.tag = STRUCTURE_TYPE24753; t98165.s1.value.structure_type24753 = &t98168; /* x177284 stalin.sc:25197:870668 */ t98161.s1.tag = STRUCTURE_TYPE24753; t98161.s1.value.structure_type24753 = &t98165; /* x177285 stalin.sc:25197:870668 */ t98160.s0.tag = STRUCTURE_TYPE24753; t98160.s0.value.structure_type24753 = &t98161; /* x177286 stalin.sc:25197:870668 */ t98233.s0.tag = EXTERNAL_SYMBOL_TYPE; t98233.s0.value.external_symbol_type = q279; /* x177287 stalin.sc:25197:870668 */ t98234.s0.tag = EXTERNAL_SYMBOL_TYPE; t98234.s0.value.external_symbol_type = q274; /* x177288 stalin.sc:25197:870668 */ t98234.s1.tag = NULL_TYPE; /* x177289 stalin.sc:25197:870668 */ t98233.s1.tag = STRUCTURE_TYPE24753; t98233.s1.value.structure_type24753 = &t98234; /* x177290 stalin.sc:25197:870668 */ t98232.s0.tag = STRUCTURE_TYPE24753; t98232.s0.value.structure_type24753 = &t98233; /* x177291 stalin.sc:25197:870668 */ t98236.s0.tag = EXTERNAL_SYMBOL_TYPE; t98236.s0.value.external_symbol_type = q264; /* x177292 stalin.sc:25197:870668 */ t98237.s0.tag = EXTERNAL_SYMBOL_TYPE; t98237.s0.value.external_symbol_type = q254; /* x177293 stalin.sc:25197:870668 */ t98237.s1.tag = NULL_TYPE; /* x177294 stalin.sc:25197:870668 */ t98236.s1.tag = STRUCTURE_TYPE24753; t98236.s1.value.structure_type24753 = &t98237; /* x177295 stalin.sc:25197:870668 */ t98235.s0.tag = STRUCTURE_TYPE24753; t98235.s0.value.structure_type24753 = &t98236; /* x177296 stalin.sc:25197:870668 */ t98239.s0.tag = EXTERNAL_SYMBOL_TYPE; t98239.s0.value.external_symbol_type = q280; /* x177297 stalin.sc:25197:870668 */ t98241.s0.tag = EXTERNAL_SYMBOL_TYPE; t98241.s0.value.external_symbol_type = q1; /* x177298 stalin.sc:25197:870668 */ t98243.s0.tag = EXTERNAL_SYMBOL_TYPE; t98243.s0.value.external_symbol_type = q285; /* x177299 stalin.sc:25197:870668 */ t98244.s0.tag = EXTERNAL_SYMBOL_TYPE; t98244.s0.value.external_symbol_type = q274; /* x177300 stalin.sc:25197:870668 */ t98244.s1.tag = NULL_TYPE; /* x177301 stalin.sc:25197:870668 */ t98243.s1.tag = STRUCTURE_TYPE24753; t98243.s1.value.structure_type24753 = &t98244; /* x177302 stalin.sc:25197:870668 */ t98242.s0.tag = STRUCTURE_TYPE24753; t98242.s0.value.structure_type24753 = &t98243; /* x177303 stalin.sc:25197:870668 */ t98246.s0.tag = EXTERNAL_SYMBOL_TYPE; t98246.s0.value.external_symbol_type = q285; /* x177304 stalin.sc:25197:870668 */ t98247.s0.tag = EXTERNAL_SYMBOL_TYPE; t98247.s0.value.external_symbol_type = q273; /* x177305 stalin.sc:25197:870668 */ t98247.s1.tag = NULL_TYPE; /* x177306 stalin.sc:25197:870668 */ t98246.s1.tag = STRUCTURE_TYPE24753; t98246.s1.value.structure_type24753 = &t98247; /* x177307 stalin.sc:25197:870668 */ t98245.s0.tag = STRUCTURE_TYPE24753; t98245.s0.value.structure_type24753 = &t98246; /* x177308 stalin.sc:25197:870668 */ t98245.s1.tag = NULL_TYPE; /* x177309 stalin.sc:25197:870668 */ t98242.s1.tag = STRUCTURE_TYPE24753; t98242.s1.value.structure_type24753 = &t98245; /* x177310 stalin.sc:25197:870668 */ t98241.s1.tag = STRUCTURE_TYPE24753; t98241.s1.value.structure_type24753 = &t98242; /* x177311 stalin.sc:25197:870668 */ t98240.s0.tag = STRUCTURE_TYPE24753; t98240.s0.value.structure_type24753 = &t98241; /* x177312 stalin.sc:25197:870668 */ t98240.s1.tag = NULL_TYPE; /* x177313 stalin.sc:25197:870668 */ t98239.s1.tag = STRUCTURE_TYPE24753; t98239.s1.value.structure_type24753 = &t98240; /* x177314 stalin.sc:25197:870668 */ t98238.s0.tag = STRUCTURE_TYPE24753; t98238.s0.value.structure_type24753 = &t98239; /* x177315 stalin.sc:25197:870668 */ t98238.s1.tag = NULL_TYPE; /* x177316 stalin.sc:25197:870668 */ t98235.s1.tag = STRUCTURE_TYPE24753; t98235.s1.value.structure_type24753 = &t98238; /* x177317 stalin.sc:25197:870668 */ t98232.s1.tag = STRUCTURE_TYPE24753; t98232.s1.value.structure_type24753 = &t98235; /* x177318 stalin.sc:25197:870668 */ t98231.s0.tag = STRUCTURE_TYPE24753; t98231.s0.value.structure_type24753 = &t98232; /* x177319 stalin.sc:25197:870668 */ t98249.s0.tag = EXTERNAL_SYMBOL_TYPE; t98249.s0.value.external_symbol_type = q95; /* x177320 stalin.sc:25197:870668 */ t98251.s0.tag = EXTERNAL_SYMBOL_TYPE; t98251.s0.value.external_symbol_type = q11; /* x177321 stalin.sc:25197:870668 */ t98252.s0.tag = EXTERNAL_SYMBOL_TYPE; t98252.s0.value.external_symbol_type = q4; /* x177322 stalin.sc:25197:870668 */ t98252.s1.tag = NULL_TYPE; /* x177323 stalin.sc:25197:870668 */ t98251.s1.tag = STRUCTURE_TYPE24753; t98251.s1.value.structure_type24753 = &t98252; /* x177324 stalin.sc:25197:870668 */ t98250.s0.tag = STRUCTURE_TYPE24753; t98250.s0.value.structure_type24753 = &t98251; /* x177325 stalin.sc:25197:870668 */ t98250.s1.tag = NULL_TYPE; /* x177326 stalin.sc:25197:870668 */ t98249.s1.tag = STRUCTURE_TYPE24753; t98249.s1.value.structure_type24753 = &t98250; /* x177327 stalin.sc:25197:870668 */ t98248.s0.tag = STRUCTURE_TYPE24753; t98248.s0.value.structure_type24753 = &t98249; /* x177328 stalin.sc:25197:870668 */ t98248.s1.tag = NULL_TYPE; /* x177329 stalin.sc:25197:870668 */ t98231.s1.tag = STRUCTURE_TYPE24753; t98231.s1.value.structure_type24753 = &t98248; /* x177330 stalin.sc:25197:870668 */ t98160.s1.tag = STRUCTURE_TYPE24753; t98160.s1.value.structure_type24753 = &t98231; /* x177331 stalin.sc:25197:870668 */ t98143.s1.tag = STRUCTURE_TYPE24753; t98143.s1.value.structure_type24753 = &t98160; /* x177332 stalin.sc:25197:870668 */ t98136.s1.tag = STRUCTURE_TYPE24753; t98136.s1.value.structure_type24753 = &t98143; /* x177333 stalin.sc:25197:870668 */ t98135.s1.tag = STRUCTURE_TYPE24753; t98135.s1.value.structure_type24753 = &t98136; /* x177334 stalin.sc:25197:870668 */ t98134.s0.tag = STRUCTURE_TYPE24753; t98134.s0.value.structure_type24753 = &t98135; /* x177335 stalin.sc:25197:870668 */ t98134.s1.tag = NULL_TYPE; /* x177336 stalin.sc:25197:870668 */ t98128.s1.tag = STRUCTURE_TYPE24753; t98128.s1.value.structure_type24753 = &t98134; /* x177337 stalin.sc:25197:870668 */ t98127.s1.tag = STRUCTURE_TYPE24753; t98127.s1.value.structure_type24753 = &t98128; /* x177338 stalin.sc:25197:870668 */ t98126.s0.tag = STRUCTURE_TYPE24753; t98126.s0.value.structure_type24753 = &t98127; /* x177339 stalin.sc:25197:870668 */ t98126.s1.tag = NULL_TYPE; /* x177340 stalin.sc:25197:870668 */ t98122.s1.tag = STRUCTURE_TYPE24753; t98122.s1.value.structure_type24753 = &t98126; /* x177341 stalin.sc:25197:870668 */ t98121.s0.tag = STRUCTURE_TYPE24753; t98121.s0.value.structure_type24753 = &t98122; /* x177342 stalin.sc:25197:870668 */ t98255.s0.tag = EXTERNAL_SYMBOL_TYPE; t98255.s0.value.external_symbol_type = q263; /* x177343 stalin.sc:25197:870668 */ t98256.s0.tag = EXTERNAL_SYMBOL_TYPE; t98256.s0.value.external_symbol_type = q273; /* x177344 stalin.sc:25197:870668 */ t98257.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x177345 stalin.sc:25197:870668 */ t98257.s1.tag = NULL_TYPE; /* x177346 stalin.sc:25197:870668 */ t98256.s1.tag = STRUCTURE_TYPE24753; t98256.s1.value.structure_type24753 = &t98257; /* x177347 stalin.sc:25197:870668 */ t98255.s1.tag = STRUCTURE_TYPE24753; t98255.s1.value.structure_type24753 = &t98256; /* x177348 stalin.sc:25197:870668 */ t98254.s0.tag = STRUCTURE_TYPE24753; t98254.s0.value.structure_type24753 = &t98255; /* x177349 stalin.sc:25197:870668 */ t98259.s0.tag = EXTERNAL_SYMBOL_TYPE; t98259.s0.value.external_symbol_type = q242; /* x177350 stalin.sc:25197:870668 */ t98262.s0.tag = EXTERNAL_SYMBOL_TYPE; t98262.s0.value.external_symbol_type = q274; /* x177351 stalin.sc:25197:870668 */ t98264.s0.tag = EXTERNAL_SYMBOL_TYPE; t98264.s0.value.external_symbol_type = q262; /* x177352 stalin.sc:25197:870668 */ t98265.s0.tag = EXTERNAL_SYMBOL_TYPE; t98265.s0.value.external_symbol_type = q254; /* x177353 stalin.sc:25197:870668 */ t98265.s1.tag = NULL_TYPE; /* x177354 stalin.sc:25197:870668 */ t98264.s1.tag = STRUCTURE_TYPE24753; t98264.s1.value.structure_type24753 = &t98265; /* x177355 stalin.sc:25197:870668 */ t98263.s0.tag = STRUCTURE_TYPE24753; t98263.s0.value.structure_type24753 = &t98264; /* x177356 stalin.sc:25197:870668 */ t98263.s1.tag = NULL_TYPE; /* x177357 stalin.sc:25197:870668 */ t98262.s1.tag = STRUCTURE_TYPE24753; t98262.s1.value.structure_type24753 = &t98263; /* x177358 stalin.sc:25197:870668 */ t98261.s0.tag = STRUCTURE_TYPE24753; t98261.s0.value.structure_type24753 = &t98262; /* x177359 stalin.sc:25197:870668 */ t98261.s1.tag = NULL_TYPE; /* x177360 stalin.sc:25197:870668 */ t98260.s0.tag = STRUCTURE_TYPE24753; t98260.s0.value.structure_type24753 = &t98261; /* x177361 stalin.sc:25197:870668 */ t98267.s0.tag = EXTERNAL_SYMBOL_TYPE; t98267.s0.value.external_symbol_type = q240; /* x177362 stalin.sc:25197:870668 */ t98270.s0.tag = EXTERNAL_SYMBOL_TYPE; t98270.s0.value.external_symbol_type = q178; /* x177363 stalin.sc:25197:870668 */ t98271.s0.tag = EXTERNAL_SYMBOL_TYPE; t98271.s0.value.external_symbol_type = q274; /* x177364 stalin.sc:25197:870668 */ t98271.s1.tag = NULL_TYPE; /* x177365 stalin.sc:25197:870668 */ t98270.s1.tag = STRUCTURE_TYPE24753; t98270.s1.value.structure_type24753 = &t98271; /* x177366 stalin.sc:25197:870668 */ t98269.s0.tag = STRUCTURE_TYPE24753; t98269.s0.value.structure_type24753 = &t98270; /* x177367 stalin.sc:25197:870668 */ t98273.s0.tag = EXTERNAL_SYMBOL_TYPE; t98273.s0.value.external_symbol_type = q11; /* x177368 stalin.sc:25197:870668 */ t98274.s0.tag = EXTERNAL_SYMBOL_TYPE; t98274.s0.value.external_symbol_type = q2; /* x177369 stalin.sc:25197:870668 */ t98274.s1.tag = NULL_TYPE; /* x177370 stalin.sc:25197:870668 */ t98273.s1.tag = STRUCTURE_TYPE24753; t98273.s1.value.structure_type24753 = &t98274; /* x177371 stalin.sc:25197:870668 */ t98272.s0.tag = STRUCTURE_TYPE24753; t98272.s0.value.structure_type24753 = &t98273; /* x177372 stalin.sc:25197:870668 */ t98272.s1.tag = NULL_TYPE; /* x177373 stalin.sc:25197:870668 */ t98269.s1.tag = STRUCTURE_TYPE24753; t98269.s1.value.structure_type24753 = &t98272; /* x177374 stalin.sc:25197:870668 */ t98268.s0.tag = STRUCTURE_TYPE24753; t98268.s0.value.structure_type24753 = &t98269; /* x177375 stalin.sc:25197:870668 */ t98277.s0.tag = EXTERNAL_SYMBOL_TYPE; t98277.s0.value.external_symbol_type = q269; /* x177376 stalin.sc:25197:870668 */ t98278.s0.tag = EXTERNAL_SYMBOL_TYPE; t98278.s0.value.external_symbol_type = q274; /* x177377 stalin.sc:25197:870668 */ t98278.s1.tag = NULL_TYPE; /* x177378 stalin.sc:25197:870668 */ t98277.s1.tag = STRUCTURE_TYPE24753; t98277.s1.value.structure_type24753 = &t98278; /* x177379 stalin.sc:25197:870668 */ t98276.s0.tag = STRUCTURE_TYPE24753; t98276.s0.value.structure_type24753 = &t98277; /* x177380 stalin.sc:25197:870668 */ t98280.s0.tag = EXTERNAL_SYMBOL_TYPE; t98280.s0.value.external_symbol_type = q264; /* x177381 stalin.sc:25197:870668 */ t98281.s0.tag = EXTERNAL_SYMBOL_TYPE; t98281.s0.value.external_symbol_type = q254; /* x177382 stalin.sc:25197:870668 */ t98281.s1.tag = NULL_TYPE; /* x177383 stalin.sc:25197:870668 */ t98280.s1.tag = STRUCTURE_TYPE24753; t98280.s1.value.structure_type24753 = &t98281; /* x177384 stalin.sc:25197:870668 */ t98279.s0.tag = STRUCTURE_TYPE24753; t98279.s0.value.structure_type24753 = &t98280; /* x177385 stalin.sc:25197:870668 */ t98283.s0.tag = EXTERNAL_SYMBOL_TYPE; t98283.s0.value.external_symbol_type = q2; /* x177386 stalin.sc:25197:870668 */ t98285.s0.tag = EXTERNAL_SYMBOL_TYPE; t98285.s0.value.external_symbol_type = q276; /* x177387 stalin.sc:25197:870668 */ t98287.s0.tag = EXTERNAL_SYMBOL_TYPE; t98287.s0.value.external_symbol_type = q2; /* x177388 stalin.sc:25197:870668 */ t98289.s0.tag = EXTERNAL_SYMBOL_TYPE; t98289.s0.value.external_symbol_type = q157; /* x177389 stalin.sc:25197:870668 */ t98290.s0.tag = EXTERNAL_SYMBOL_TYPE; t98290.s0.value.external_symbol_type = q274; /* x177390 stalin.sc:25197:870668 */ t98290.s1.tag = NULL_TYPE; /* x177391 stalin.sc:25197:870668 */ t98289.s1.tag = STRUCTURE_TYPE24753; t98289.s1.value.structure_type24753 = &t98290; /* x177392 stalin.sc:25197:870668 */ t98288.s0.tag = STRUCTURE_TYPE24753; t98288.s0.value.structure_type24753 = &t98289; /* x177393 stalin.sc:25197:870668 */ t98292.s0.tag = EXTERNAL_SYMBOL_TYPE; t98292.s0.value.external_symbol_type = q157; /* x177394 stalin.sc:25197:870668 */ t98293.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x177395 stalin.sc:25197:870668 */ t98293.s1.tag = NULL_TYPE; /* x177396 stalin.sc:25197:870668 */ t98292.s1.tag = STRUCTURE_TYPE24753; t98292.s1.value.structure_type24753 = &t98293; /* x177397 stalin.sc:25197:870668 */ t98291.s0.tag = STRUCTURE_TYPE24753; t98291.s0.value.structure_type24753 = &t98292; /* x177398 stalin.sc:25197:870668 */ t98291.s1.tag = NULL_TYPE; /* x177399 stalin.sc:25197:870668 */ t98288.s1.tag = STRUCTURE_TYPE24753; t98288.s1.value.structure_type24753 = &t98291; /* x177400 stalin.sc:25197:870668 */ t98287.s1.tag = STRUCTURE_TYPE24753; t98287.s1.value.structure_type24753 = &t98288; /* x177401 stalin.sc:25197:870668 */ t98286.s0.tag = STRUCTURE_TYPE24753; t98286.s0.value.structure_type24753 = &t98287; /* x177402 stalin.sc:25197:870668 */ t98286.s1.tag = NULL_TYPE; /* x177403 stalin.sc:25197:870668 */ t98285.s1.tag = STRUCTURE_TYPE24753; t98285.s1.value.structure_type24753 = &t98286; /* x177404 stalin.sc:25197:870668 */ t98284.s0.tag = STRUCTURE_TYPE24753; t98284.s0.value.structure_type24753 = &t98285; /* x177405 stalin.sc:25197:870668 */ t98284.s1.tag = NULL_TYPE; /* x177406 stalin.sc:25197:870668 */ t98283.s1.tag = STRUCTURE_TYPE24753; t98283.s1.value.structure_type24753 = &t98284; /* x177407 stalin.sc:25197:870668 */ t98282.s0.tag = STRUCTURE_TYPE24753; t98282.s0.value.structure_type24753 = &t98283; /* x177408 stalin.sc:25197:870668 */ t98282.s1.tag = NULL_TYPE; /* x177409 stalin.sc:25197:870668 */ t98279.s1.tag = STRUCTURE_TYPE24753; t98279.s1.value.structure_type24753 = &t98282; /* x177410 stalin.sc:25197:870668 */ t98276.s1.tag = STRUCTURE_TYPE24753; t98276.s1.value.structure_type24753 = &t98279; /* x177411 stalin.sc:25197:870668 */ t98275.s0.tag = STRUCTURE_TYPE24753; t98275.s0.value.structure_type24753 = &t98276; /* x177412 stalin.sc:25197:870668 */ t98296.s0.tag = EXTERNAL_SYMBOL_TYPE; t98296.s0.value.external_symbol_type = q263; /* x177413 stalin.sc:25197:870668 */ t98297.s0.tag = EXTERNAL_SYMBOL_TYPE; t98297.s0.value.external_symbol_type = q274; /* x177414 stalin.sc:25197:870668 */ t98298.s0.tag = ((unsigned)((unsigned char)'.'))<<2; /* x177415 stalin.sc:25197:870668 */ t98298.s1.tag = NULL_TYPE; /* x177416 stalin.sc:25197:870668 */ t98297.s1.tag = STRUCTURE_TYPE24753; t98297.s1.value.structure_type24753 = &t98298; /* x177417 stalin.sc:25197:870668 */ t98296.s1.tag = STRUCTURE_TYPE24753; t98296.s1.value.structure_type24753 = &t98297; /* x177418 stalin.sc:25197:870668 */ t98295.s0.tag = STRUCTURE_TYPE24753; t98295.s0.value.structure_type24753 = &t98296; /* x177419 stalin.sc:25197:870668 */ t98300.s0.tag = EXTERNAL_SYMBOL_TYPE; t98300.s0.value.external_symbol_type = q264; /* x177420 stalin.sc:25197:870668 */ t98301.s0.tag = EXTERNAL_SYMBOL_TYPE; t98301.s0.value.external_symbol_type = q254; /* x177421 stalin.sc:25197:870668 */ t98301.s1.tag = NULL_TYPE; /* x177422 stalin.sc:25197:870668 */ t98300.s1.tag = STRUCTURE_TYPE24753; t98300.s1.value.structure_type24753 = &t98301; /* x177423 stalin.sc:25197:870668 */ t98299.s0.tag = STRUCTURE_TYPE24753; t98299.s0.value.structure_type24753 = &t98300; /* x177424 stalin.sc:25197:870668 */ t98303.s0.tag = EXTERNAL_SYMBOL_TYPE; t98303.s0.value.external_symbol_type = q242; /* x177425 stalin.sc:25197:870668 */ t98306.s0.tag = EXTERNAL_SYMBOL_TYPE; t98306.s0.value.external_symbol_type = q275; /* x177426 stalin.sc:25197:870668 */ t98308.s0.tag = EXTERNAL_SYMBOL_TYPE; t98308.s0.value.external_symbol_type = q262; /* x177427 stalin.sc:25197:870668 */ t98309.s0.tag = EXTERNAL_SYMBOL_TYPE; t98309.s0.value.external_symbol_type = q254; /* x177428 stalin.sc:25197:870668 */ t98309.s1.tag = NULL_TYPE; /* x177429 stalin.sc:25197:870668 */ t98308.s1.tag = STRUCTURE_TYPE24753; t98308.s1.value.structure_type24753 = &t98309; /* x177430 stalin.sc:25197:870668 */ t98307.s0.tag = STRUCTURE_TYPE24753; t98307.s0.value.structure_type24753 = &t98308; /* x177431 stalin.sc:25197:870668 */ t98307.s1.tag = NULL_TYPE; /* x177432 stalin.sc:25197:870668 */ t98306.s1.tag = STRUCTURE_TYPE24753; t98306.s1.value.structure_type24753 = &t98307; /* x177433 stalin.sc:25197:870668 */ t98305.s0.tag = STRUCTURE_TYPE24753; t98305.s0.value.structure_type24753 = &t98306; /* x177434 stalin.sc:25197:870668 */ t98305.s1.tag = NULL_TYPE; /* x177435 stalin.sc:25197:870668 */ t98304.s0.tag = STRUCTURE_TYPE24753; t98304.s0.value.structure_type24753 = &t98305; /* x177436 stalin.sc:25197:870668 */ t98311.s0.tag = EXTERNAL_SYMBOL_TYPE; t98311.s0.value.external_symbol_type = q240; /* x177437 stalin.sc:25197:870668 */ t98314.s0.tag = EXTERNAL_SYMBOL_TYPE; t98314.s0.value.external_symbol_type = q178; /* x177438 stalin.sc:25197:870668 */ t98315.s0.tag = EXTERNAL_SYMBOL_TYPE; t98315.s0.value.external_symbol_type = q275; /* x177439 stalin.sc:25197:870668 */ t98315.s1.tag = NULL_TYPE; /* x177440 stalin.sc:25197:870668 */ t98314.s1.tag = STRUCTURE_TYPE24753; t98314.s1.value.structure_type24753 = &t98315; /* x177441 stalin.sc:25197:870668 */ t98313.s0.tag = STRUCTURE_TYPE24753; t98313.s0.value.structure_type24753 = &t98314; /* x177442 stalin.sc:25197:870668 */ t98317.s0.tag = EXTERNAL_SYMBOL_TYPE; t98317.s0.value.external_symbol_type = q11; /* x177443 stalin.sc:25197:870668 */ t98318.s0.tag = EXTERNAL_SYMBOL_TYPE; t98318.s0.value.external_symbol_type = q3; /* x177444 stalin.sc:25197:870668 */ t98318.s1.tag = NULL_TYPE; /* x177445 stalin.sc:25197:870668 */ t98317.s1.tag = STRUCTURE_TYPE24753; t98317.s1.value.structure_type24753 = &t98318; /* x177446 stalin.sc:25197:870668 */ t98316.s0.tag = STRUCTURE_TYPE24753; t98316.s0.value.structure_type24753 = &t98317; /* x177447 stalin.sc:25197:870668 */ t98316.s1.tag = NULL_TYPE; /* x177448 stalin.sc:25197:870668 */ t98313.s1.tag = STRUCTURE_TYPE24753; t98313.s1.value.structure_type24753 = &t98316; /* x177449 stalin.sc:25197:870668 */ t98312.s0.tag = STRUCTURE_TYPE24753; t98312.s0.value.structure_type24753 = &t98313; /* x177450 stalin.sc:25197:870668 */ t98321.s0.tag = EXTERNAL_SYMBOL_TYPE; t98321.s0.value.external_symbol_type = q269; /* x177451 stalin.sc:25197:870668 */ t98322.s0.tag = EXTERNAL_SYMBOL_TYPE; t98322.s0.value.external_symbol_type = q275; /* x177452 stalin.sc:25197:870668 */ t98322.s1.tag = NULL_TYPE; /* x177453 stalin.sc:25197:870668 */ t98321.s1.tag = STRUCTURE_TYPE24753; t98321.s1.value.structure_type24753 = &t98322; /* x177454 stalin.sc:25197:870668 */ t98320.s0.tag = STRUCTURE_TYPE24753; t98320.s0.value.structure_type24753 = &t98321; /* x177455 stalin.sc:25197:870668 */ t98324.s0.tag = EXTERNAL_SYMBOL_TYPE; t98324.s0.value.external_symbol_type = q264; /* x177456 stalin.sc:25197:870668 */ t98325.s0.tag = EXTERNAL_SYMBOL_TYPE; t98325.s0.value.external_symbol_type = q254; /* x177457 stalin.sc:25197:870668 */ t98325.s1.tag = NULL_TYPE; /* x177458 stalin.sc:25197:870668 */ t98324.s1.tag = STRUCTURE_TYPE24753; t98324.s1.value.structure_type24753 = &t98325; /* x177459 stalin.sc:25197:870668 */ t98323.s0.tag = STRUCTURE_TYPE24753; t98323.s0.value.structure_type24753 = &t98324; /* x177460 stalin.sc:25197:870668 */ t98327.s0.tag = EXTERNAL_SYMBOL_TYPE; t98327.s0.value.external_symbol_type = q2; /* x177461 stalin.sc:25197:870668 */ t98329.s0.tag = EXTERNAL_SYMBOL_TYPE; t98329.s0.value.external_symbol_type = q271; /* x177462 stalin.sc:25197:870668 */ t98331.s0.tag = EXTERNAL_SYMBOL_TYPE; t98331.s0.value.external_symbol_type = q131; /* x177463 stalin.sc:25197:870668 */ t98333.s0.tag = EXTERNAL_SYMBOL_TYPE; t98333.s0.value.external_symbol_type = q2; /* x177464 stalin.sc:25197:870668 */ t98335.s0.tag = EXTERNAL_SYMBOL_TYPE; t98335.s0.value.external_symbol_type = q157; /* x177465 stalin.sc:25197:870668 */ t98336.s0.tag = EXTERNAL_SYMBOL_TYPE; t98336.s0.value.external_symbol_type = q275; /* x177466 stalin.sc:25197:870668 */ t98336.s1.tag = NULL_TYPE; /* x177467 stalin.sc:25197:870668 */ t98335.s1.tag = STRUCTURE_TYPE24753; t98335.s1.value.structure_type24753 = &t98336; /* x177468 stalin.sc:25197:870668 */ t98334.s0.tag = STRUCTURE_TYPE24753; t98334.s0.value.structure_type24753 = &t98335; /* x177469 stalin.sc:25197:870668 */ t98338.s0.tag = EXTERNAL_SYMBOL_TYPE; t98338.s0.value.external_symbol_type = q157; /* x177470 stalin.sc:25197:870668 */ t98339.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x177471 stalin.sc:25197:870668 */ t98339.s1.tag = NULL_TYPE; /* x177472 stalin.sc:25197:870668 */ t98338.s1.tag = STRUCTURE_TYPE24753; t98338.s1.value.structure_type24753 = &t98339; /* x177473 stalin.sc:25197:870668 */ t98337.s0.tag = STRUCTURE_TYPE24753; t98337.s0.value.structure_type24753 = &t98338; /* x177474 stalin.sc:25197:870668 */ t98337.s1.tag = NULL_TYPE; /* x177475 stalin.sc:25197:870668 */ t98334.s1.tag = STRUCTURE_TYPE24753; t98334.s1.value.structure_type24753 = &t98337; /* x177476 stalin.sc:25197:870668 */ t98333.s1.tag = STRUCTURE_TYPE24753; t98333.s1.value.structure_type24753 = &t98334; /* x177477 stalin.sc:25197:870668 */ t98332.s0.tag = STRUCTURE_TYPE24753; t98332.s0.value.structure_type24753 = &t98333; /* x177478 stalin.sc:25197:870668 */ t98340.s0.tag = FLONUM_TYPE; t98340.s0.value.flonum_type = 1.0e1; /* x177479 stalin.sc:25197:870668 */ t98340.s1.tag = NULL_TYPE; /* x177480 stalin.sc:25197:870668 */ t98332.s1.tag = STRUCTURE_TYPE24753; t98332.s1.value.structure_type24753 = &t98340; /* x177481 stalin.sc:25197:870668 */ t98331.s1.tag = STRUCTURE_TYPE24753; t98331.s1.value.structure_type24753 = &t98332; /* x177482 stalin.sc:25197:870668 */ t98330.s0.tag = STRUCTURE_TYPE24753; t98330.s0.value.structure_type24753 = &t98331; /* x177483 stalin.sc:25197:870668 */ t98341.s0.tag = FLONUM_TYPE; t98341.s0.value.flonum_type = 1.0e2; /* x177484 stalin.sc:25197:870668 */ t98341.s1.tag = NULL_TYPE; /* x177485 stalin.sc:25197:870668 */ t98330.s1.tag = STRUCTURE_TYPE24753; t98330.s1.value.structure_type24753 = &t98341; /* x177486 stalin.sc:25197:870668 */ t98329.s1.tag = STRUCTURE_TYPE24753; t98329.s1.value.structure_type24753 = &t98330; /* x177487 stalin.sc:25197:870668 */ t98328.s0.tag = STRUCTURE_TYPE24753; t98328.s0.value.structure_type24753 = &t98329; /* x177488 stalin.sc:25197:870668 */ t98328.s1.tag = NULL_TYPE; /* x177489 stalin.sc:25197:870668 */ t98327.s1.tag = STRUCTURE_TYPE24753; t98327.s1.value.structure_type24753 = &t98328; /* x177490 stalin.sc:25197:870668 */ t98326.s0.tag = STRUCTURE_TYPE24753; t98326.s0.value.structure_type24753 = &t98327; /* x177491 stalin.sc:25197:870668 */ t98326.s1.tag = NULL_TYPE; /* x177492 stalin.sc:25197:870668 */ t98323.s1.tag = STRUCTURE_TYPE24753; t98323.s1.value.structure_type24753 = &t98326; /* x177493 stalin.sc:25197:870668 */ t98320.s1.tag = STRUCTURE_TYPE24753; t98320.s1.value.structure_type24753 = &t98323; /* x177494 stalin.sc:25197:870668 */ t98319.s0.tag = STRUCTURE_TYPE24753; t98319.s0.value.structure_type24753 = &t98320; /* x177495 stalin.sc:25197:870668 */ t98344.s0.tag = EXTERNAL_SYMBOL_TYPE; t98344.s0.value.external_symbol_type = q279; /* x177496 stalin.sc:25197:870668 */ t98345.s0.tag = EXTERNAL_SYMBOL_TYPE; t98345.s0.value.external_symbol_type = q275; /* x177497 stalin.sc:25197:870668 */ t98345.s1.tag = NULL_TYPE; /* x177498 stalin.sc:25197:870668 */ t98344.s1.tag = STRUCTURE_TYPE24753; t98344.s1.value.structure_type24753 = &t98345; /* x177499 stalin.sc:25197:870668 */ t98343.s0.tag = STRUCTURE_TYPE24753; t98343.s0.value.structure_type24753 = &t98344; /* x177500 stalin.sc:25197:870668 */ t98347.s0.tag = EXTERNAL_SYMBOL_TYPE; t98347.s0.value.external_symbol_type = q264; /* x177501 stalin.sc:25197:870668 */ t98348.s0.tag = EXTERNAL_SYMBOL_TYPE; t98348.s0.value.external_symbol_type = q254; /* x177502 stalin.sc:25197:870668 */ t98348.s1.tag = NULL_TYPE; /* x177503 stalin.sc:25197:870668 */ t98347.s1.tag = STRUCTURE_TYPE24753; t98347.s1.value.structure_type24753 = &t98348; /* x177504 stalin.sc:25197:870668 */ t98346.s0.tag = STRUCTURE_TYPE24753; t98346.s0.value.structure_type24753 = &t98347; /* x177505 stalin.sc:25197:870668 */ t98350.s0.tag = EXTERNAL_SYMBOL_TYPE; t98350.s0.value.external_symbol_type = q280; /* x177506 stalin.sc:25197:870668 */ t98352.s0.tag = EXTERNAL_SYMBOL_TYPE; t98352.s0.value.external_symbol_type = q1; /* x177507 stalin.sc:25197:870668 */ t98354.s0.tag = EXTERNAL_SYMBOL_TYPE; t98354.s0.value.external_symbol_type = q285; /* x177508 stalin.sc:25197:870668 */ t98355.s0.tag = EXTERNAL_SYMBOL_TYPE; t98355.s0.value.external_symbol_type = q275; /* x177509 stalin.sc:25197:870668 */ t98355.s1.tag = NULL_TYPE; /* x177510 stalin.sc:25197:870668 */ t98354.s1.tag = STRUCTURE_TYPE24753; t98354.s1.value.structure_type24753 = &t98355; /* x177511 stalin.sc:25197:870668 */ t98353.s0.tag = STRUCTURE_TYPE24753; t98353.s0.value.structure_type24753 = &t98354; /* x177512 stalin.sc:25197:870668 */ t98357.s0.tag = EXTERNAL_SYMBOL_TYPE; t98357.s0.value.external_symbol_type = q285; /* x177513 stalin.sc:25197:870668 */ t98358.s0.tag = EXTERNAL_SYMBOL_TYPE; t98358.s0.value.external_symbol_type = q274; /* x177514 stalin.sc:25197:870668 */ t98358.s1.tag = NULL_TYPE; /* x177515 stalin.sc:25197:870668 */ t98357.s1.tag = STRUCTURE_TYPE24753; t98357.s1.value.structure_type24753 = &t98358; /* x177516 stalin.sc:25197:870668 */ t98356.s0.tag = STRUCTURE_TYPE24753; t98356.s0.value.structure_type24753 = &t98357; /* x177517 stalin.sc:25197:870668 */ t98360.s0.tag = EXTERNAL_SYMBOL_TYPE; t98360.s0.value.external_symbol_type = q285; /* x177518 stalin.sc:25197:870668 */ t98361.s0.tag = EXTERNAL_SYMBOL_TYPE; t98361.s0.value.external_symbol_type = q273; /* x177519 stalin.sc:25197:870668 */ t98361.s1.tag = NULL_TYPE; /* x177520 stalin.sc:25197:870668 */ t98360.s1.tag = STRUCTURE_TYPE24753; t98360.s1.value.structure_type24753 = &t98361; /* x177521 stalin.sc:25197:870668 */ t98359.s0.tag = STRUCTURE_TYPE24753; t98359.s0.value.structure_type24753 = &t98360; /* x177522 stalin.sc:25197:870668 */ t98359.s1.tag = NULL_TYPE; /* x177523 stalin.sc:25197:870668 */ t98356.s1.tag = STRUCTURE_TYPE24753; t98356.s1.value.structure_type24753 = &t98359; /* x177524 stalin.sc:25197:870668 */ t98353.s1.tag = STRUCTURE_TYPE24753; t98353.s1.value.structure_type24753 = &t98356; /* x177525 stalin.sc:25197:870668 */ t98352.s1.tag = STRUCTURE_TYPE24753; t98352.s1.value.structure_type24753 = &t98353; /* x177526 stalin.sc:25197:870668 */ t98351.s0.tag = STRUCTURE_TYPE24753; t98351.s0.value.structure_type24753 = &t98352; /* x177527 stalin.sc:25197:870668 */ t98351.s1.tag = NULL_TYPE; /* x177528 stalin.sc:25197:870668 */ t98350.s1.tag = STRUCTURE_TYPE24753; t98350.s1.value.structure_type24753 = &t98351; /* x177529 stalin.sc:25197:870668 */ t98349.s0.tag = STRUCTURE_TYPE24753; t98349.s0.value.structure_type24753 = &t98350; /* x177530 stalin.sc:25197:870668 */ t98349.s1.tag = NULL_TYPE; /* x177531 stalin.sc:25197:870668 */ t98346.s1.tag = STRUCTURE_TYPE24753; t98346.s1.value.structure_type24753 = &t98349; /* x177532 stalin.sc:25197:870668 */ t98343.s1.tag = STRUCTURE_TYPE24753; t98343.s1.value.structure_type24753 = &t98346; /* x177533 stalin.sc:25197:870668 */ t98342.s0.tag = STRUCTURE_TYPE24753; t98342.s0.value.structure_type24753 = &t98343; /* x177534 stalin.sc:25197:870668 */ t98363.s0.tag = EXTERNAL_SYMBOL_TYPE; t98363.s0.value.external_symbol_type = q95; /* x177535 stalin.sc:25197:870668 */ t98365.s0.tag = EXTERNAL_SYMBOL_TYPE; t98365.s0.value.external_symbol_type = q11; /* x177536 stalin.sc:25197:870668 */ t98366.s0.tag = EXTERNAL_SYMBOL_TYPE; t98366.s0.value.external_symbol_type = q3; /* x177537 stalin.sc:25197:870668 */ t98366.s1.tag = NULL_TYPE; /* x177538 stalin.sc:25197:870668 */ t98365.s1.tag = STRUCTURE_TYPE24753; t98365.s1.value.structure_type24753 = &t98366; /* x177539 stalin.sc:25197:870668 */ t98364.s0.tag = STRUCTURE_TYPE24753; t98364.s0.value.structure_type24753 = &t98365; /* x177540 stalin.sc:25197:870668 */ t98364.s1.tag = NULL_TYPE; /* x177541 stalin.sc:25197:870668 */ t98363.s1.tag = STRUCTURE_TYPE24753; t98363.s1.value.structure_type24753 = &t98364;} void initialize_constants32(void) {/* x177542 stalin.sc:25197:870668 */ t98362.s0.tag = STRUCTURE_TYPE24753; t98362.s0.value.structure_type24753 = &t98363; /* x177543 stalin.sc:25197:870668 */ t98362.s1.tag = NULL_TYPE; /* x177544 stalin.sc:25197:870668 */ t98342.s1.tag = STRUCTURE_TYPE24753; t98342.s1.value.structure_type24753 = &t98362; /* x177545 stalin.sc:25197:870668 */ t98319.s1.tag = STRUCTURE_TYPE24753; t98319.s1.value.structure_type24753 = &t98342; /* x177546 stalin.sc:25197:870668 */ t98312.s1.tag = STRUCTURE_TYPE24753; t98312.s1.value.structure_type24753 = &t98319; /* x177547 stalin.sc:25197:870668 */ t98311.s1.tag = STRUCTURE_TYPE24753; t98311.s1.value.structure_type24753 = &t98312; /* x177548 stalin.sc:25197:870668 */ t98310.s0.tag = STRUCTURE_TYPE24753; t98310.s0.value.structure_type24753 = &t98311; /* x177549 stalin.sc:25197:870668 */ t98310.s1.tag = NULL_TYPE; /* x177550 stalin.sc:25197:870668 */ t98304.s1.tag = STRUCTURE_TYPE24753; t98304.s1.value.structure_type24753 = &t98310; /* x177551 stalin.sc:25197:870668 */ t98303.s1.tag = STRUCTURE_TYPE24753; t98303.s1.value.structure_type24753 = &t98304; /* x177552 stalin.sc:25197:870668 */ t98302.s0.tag = STRUCTURE_TYPE24753; t98302.s0.value.structure_type24753 = &t98303; /* x177553 stalin.sc:25197:870668 */ t98302.s1.tag = NULL_TYPE; /* x177554 stalin.sc:25197:870668 */ t98299.s1.tag = STRUCTURE_TYPE24753; t98299.s1.value.structure_type24753 = &t98302; /* x177555 stalin.sc:25197:870668 */ t98295.s1.tag = STRUCTURE_TYPE24753; t98295.s1.value.structure_type24753 = &t98299; /* x177556 stalin.sc:25197:870668 */ t98294.s0.tag = STRUCTURE_TYPE24753; t98294.s0.value.structure_type24753 = &t98295; /* x177557 stalin.sc:25197:870668 */ t98369.s0.tag = EXTERNAL_SYMBOL_TYPE; t98369.s0.value.external_symbol_type = q279; /* x177558 stalin.sc:25197:870668 */ t98370.s0.tag = EXTERNAL_SYMBOL_TYPE; t98370.s0.value.external_symbol_type = q274; /* x177559 stalin.sc:25197:870668 */ t98370.s1.tag = NULL_TYPE; /* x177560 stalin.sc:25197:870668 */ t98369.s1.tag = STRUCTURE_TYPE24753; t98369.s1.value.structure_type24753 = &t98370; /* x177561 stalin.sc:25197:870668 */ t98368.s0.tag = STRUCTURE_TYPE24753; t98368.s0.value.structure_type24753 = &t98369; /* x177562 stalin.sc:25197:870668 */ t98372.s0.tag = EXTERNAL_SYMBOL_TYPE; t98372.s0.value.external_symbol_type = q264; /* x177563 stalin.sc:25197:870668 */ t98373.s0.tag = EXTERNAL_SYMBOL_TYPE; t98373.s0.value.external_symbol_type = q254; /* x177564 stalin.sc:25197:870668 */ t98373.s1.tag = NULL_TYPE; /* x177565 stalin.sc:25197:870668 */ t98372.s1.tag = STRUCTURE_TYPE24753; t98372.s1.value.structure_type24753 = &t98373; /* x177566 stalin.sc:25197:870668 */ t98371.s0.tag = STRUCTURE_TYPE24753; t98371.s0.value.structure_type24753 = &t98372; /* x177567 stalin.sc:25197:870668 */ t98375.s0.tag = EXTERNAL_SYMBOL_TYPE; t98375.s0.value.external_symbol_type = q280; /* x177568 stalin.sc:25197:870668 */ t98377.s0.tag = EXTERNAL_SYMBOL_TYPE; t98377.s0.value.external_symbol_type = q1; /* x177569 stalin.sc:25197:870668 */ t98379.s0.tag = EXTERNAL_SYMBOL_TYPE; t98379.s0.value.external_symbol_type = q285; /* x177570 stalin.sc:25197:870668 */ t98380.s0.tag = EXTERNAL_SYMBOL_TYPE; t98380.s0.value.external_symbol_type = q274; /* x177571 stalin.sc:25197:870668 */ t98380.s1.tag = NULL_TYPE; /* x177572 stalin.sc:25197:870668 */ t98379.s1.tag = STRUCTURE_TYPE24753; t98379.s1.value.structure_type24753 = &t98380; /* x177573 stalin.sc:25197:870668 */ t98378.s0.tag = STRUCTURE_TYPE24753; t98378.s0.value.structure_type24753 = &t98379; /* x177574 stalin.sc:25197:870668 */ t98382.s0.tag = EXTERNAL_SYMBOL_TYPE; t98382.s0.value.external_symbol_type = q285; /* x177575 stalin.sc:25197:870668 */ t98383.s0.tag = EXTERNAL_SYMBOL_TYPE; t98383.s0.value.external_symbol_type = q273; /* x177576 stalin.sc:25197:870668 */ t98383.s1.tag = NULL_TYPE; /* x177577 stalin.sc:25197:870668 */ t98382.s1.tag = STRUCTURE_TYPE24753; t98382.s1.value.structure_type24753 = &t98383; /* x177578 stalin.sc:25197:870668 */ t98381.s0.tag = STRUCTURE_TYPE24753; t98381.s0.value.structure_type24753 = &t98382; /* x177579 stalin.sc:25197:870668 */ t98381.s1.tag = NULL_TYPE; /* x177580 stalin.sc:25197:870668 */ t98378.s1.tag = STRUCTURE_TYPE24753; t98378.s1.value.structure_type24753 = &t98381; /* x177581 stalin.sc:25197:870668 */ t98377.s1.tag = STRUCTURE_TYPE24753; t98377.s1.value.structure_type24753 = &t98378; /* x177582 stalin.sc:25197:870668 */ t98376.s0.tag = STRUCTURE_TYPE24753; t98376.s0.value.structure_type24753 = &t98377; /* x177583 stalin.sc:25197:870668 */ t98376.s1.tag = NULL_TYPE; /* x177584 stalin.sc:25197:870668 */ t98375.s1.tag = STRUCTURE_TYPE24753; t98375.s1.value.structure_type24753 = &t98376; /* x177585 stalin.sc:25197:870668 */ t98374.s0.tag = STRUCTURE_TYPE24753; t98374.s0.value.structure_type24753 = &t98375; /* x177586 stalin.sc:25197:870668 */ t98374.s1.tag = NULL_TYPE; /* x177587 stalin.sc:25197:870668 */ t98371.s1.tag = STRUCTURE_TYPE24753; t98371.s1.value.structure_type24753 = &t98374; /* x177588 stalin.sc:25197:870668 */ t98368.s1.tag = STRUCTURE_TYPE24753; t98368.s1.value.structure_type24753 = &t98371; /* x177589 stalin.sc:25197:870668 */ t98367.s0.tag = STRUCTURE_TYPE24753; t98367.s0.value.structure_type24753 = &t98368; /* x177590 stalin.sc:25197:870668 */ t98385.s0.tag = EXTERNAL_SYMBOL_TYPE; t98385.s0.value.external_symbol_type = q95; /* x177591 stalin.sc:25197:870668 */ t98387.s0.tag = EXTERNAL_SYMBOL_TYPE; t98387.s0.value.external_symbol_type = q11; /* x177592 stalin.sc:25197:870668 */ t98388.s0.tag = EXTERNAL_SYMBOL_TYPE; t98388.s0.value.external_symbol_type = q2; /* x177593 stalin.sc:25197:870668 */ t98388.s1.tag = NULL_TYPE; /* x177594 stalin.sc:25197:870668 */ t98387.s1.tag = STRUCTURE_TYPE24753; t98387.s1.value.structure_type24753 = &t98388; /* x177595 stalin.sc:25197:870668 */ t98386.s0.tag = STRUCTURE_TYPE24753; t98386.s0.value.structure_type24753 = &t98387; /* x177596 stalin.sc:25197:870668 */ t98386.s1.tag = NULL_TYPE; /* x177597 stalin.sc:25197:870668 */ t98385.s1.tag = STRUCTURE_TYPE24753; t98385.s1.value.structure_type24753 = &t98386; /* x177598 stalin.sc:25197:870668 */ t98384.s0.tag = STRUCTURE_TYPE24753; t98384.s0.value.structure_type24753 = &t98385; /* x177599 stalin.sc:25197:870668 */ t98384.s1.tag = NULL_TYPE; /* x177600 stalin.sc:25197:870668 */ t98367.s1.tag = STRUCTURE_TYPE24753; t98367.s1.value.structure_type24753 = &t98384; /* x177601 stalin.sc:25197:870668 */ t98294.s1.tag = STRUCTURE_TYPE24753; t98294.s1.value.structure_type24753 = &t98367; /* x177602 stalin.sc:25197:870668 */ t98275.s1.tag = STRUCTURE_TYPE24753; t98275.s1.value.structure_type24753 = &t98294; /* x177603 stalin.sc:25197:870668 */ t98268.s1.tag = STRUCTURE_TYPE24753; t98268.s1.value.structure_type24753 = &t98275; /* x177604 stalin.sc:25197:870668 */ t98267.s1.tag = STRUCTURE_TYPE24753; t98267.s1.value.structure_type24753 = &t98268; /* x177605 stalin.sc:25197:870668 */ t98266.s0.tag = STRUCTURE_TYPE24753; t98266.s0.value.structure_type24753 = &t98267; /* x177606 stalin.sc:25197:870668 */ t98266.s1.tag = NULL_TYPE; /* x177607 stalin.sc:25197:870668 */ t98260.s1.tag = STRUCTURE_TYPE24753; t98260.s1.value.structure_type24753 = &t98266; /* x177608 stalin.sc:25197:870668 */ t98259.s1.tag = STRUCTURE_TYPE24753; t98259.s1.value.structure_type24753 = &t98260; /* x177609 stalin.sc:25197:870668 */ t98258.s0.tag = STRUCTURE_TYPE24753; t98258.s0.value.structure_type24753 = &t98259; /* x177610 stalin.sc:25197:870668 */ t98258.s1.tag = NULL_TYPE; /* x177611 stalin.sc:25197:870668 */ t98254.s1.tag = STRUCTURE_TYPE24753; t98254.s1.value.structure_type24753 = &t98258; /* x177612 stalin.sc:25197:870668 */ t98253.s0.tag = STRUCTURE_TYPE24753; t98253.s0.value.structure_type24753 = &t98254; /* x177613 stalin.sc:25197:870668 */ t98391.s0.tag = EXTERNAL_SYMBOL_TYPE; t98391.s0.value.external_symbol_type = q263; /* x177614 stalin.sc:25197:870668 */ t98392.s0.tag = EXTERNAL_SYMBOL_TYPE; t98392.s0.value.external_symbol_type = q273; /* x177615 stalin.sc:25197:870668 */ t98393.s0.tag = ((unsigned)((unsigned char)'.'))<<2; /* x177616 stalin.sc:25197:870668 */ t98393.s1.tag = NULL_TYPE; /* x177617 stalin.sc:25197:870668 */ t98392.s1.tag = STRUCTURE_TYPE24753; t98392.s1.value.structure_type24753 = &t98393; /* x177618 stalin.sc:25197:870668 */ t98391.s1.tag = STRUCTURE_TYPE24753; t98391.s1.value.structure_type24753 = &t98392; /* x177619 stalin.sc:25197:870668 */ t98390.s0.tag = STRUCTURE_TYPE24753; t98390.s0.value.structure_type24753 = &t98391; /* x177620 stalin.sc:25197:870668 */ t98395.s0.tag = EXTERNAL_SYMBOL_TYPE; t98395.s0.value.external_symbol_type = q242; /* x177621 stalin.sc:25197:870668 */ t98398.s0.tag = EXTERNAL_SYMBOL_TYPE; t98398.s0.value.external_symbol_type = q274; /* x177622 stalin.sc:25197:870668 */ t98400.s0.tag = EXTERNAL_SYMBOL_TYPE; t98400.s0.value.external_symbol_type = q262; /* x177623 stalin.sc:25197:870668 */ t98401.s0.tag = EXTERNAL_SYMBOL_TYPE; t98401.s0.value.external_symbol_type = q254; /* x177624 stalin.sc:25197:870668 */ t98401.s1.tag = NULL_TYPE; /* x177625 stalin.sc:25197:870668 */ t98400.s1.tag = STRUCTURE_TYPE24753; t98400.s1.value.structure_type24753 = &t98401; /* x177626 stalin.sc:25197:870668 */ t98399.s0.tag = STRUCTURE_TYPE24753; t98399.s0.value.structure_type24753 = &t98400; /* x177627 stalin.sc:25197:870668 */ t98399.s1.tag = NULL_TYPE; /* x177628 stalin.sc:25197:870668 */ t98398.s1.tag = STRUCTURE_TYPE24753; t98398.s1.value.structure_type24753 = &t98399; /* x177629 stalin.sc:25197:870668 */ t98397.s0.tag = STRUCTURE_TYPE24753; t98397.s0.value.structure_type24753 = &t98398; /* x177630 stalin.sc:25197:870668 */ t98397.s1.tag = NULL_TYPE; /* x177631 stalin.sc:25197:870668 */ t98396.s0.tag = STRUCTURE_TYPE24753; t98396.s0.value.structure_type24753 = &t98397; /* x177632 stalin.sc:25197:870668 */ t98403.s0.tag = EXTERNAL_SYMBOL_TYPE; t98403.s0.value.external_symbol_type = q43; /* x177633 stalin.sc:25197:870668 */ t98405.s0.tag = EXTERNAL_SYMBOL_TYPE; t98405.s0.value.external_symbol_type = q178; /* x177634 stalin.sc:25197:870668 */ t98406.s0.tag = EXTERNAL_SYMBOL_TYPE; t98406.s0.value.external_symbol_type = q274; /* x177635 stalin.sc:25197:870668 */ t98406.s1.tag = NULL_TYPE; /* x177636 stalin.sc:25197:870668 */ t98405.s1.tag = STRUCTURE_TYPE24753; t98405.s1.value.structure_type24753 = &t98406; /* x177637 stalin.sc:25197:870668 */ t98404.s0.tag = STRUCTURE_TYPE24753; t98404.s0.value.structure_type24753 = &t98405; /* x177638 stalin.sc:25197:870668 */ t98408.s0.tag = EXTERNAL_SYMBOL_TYPE; t98408.s0.value.external_symbol_type = q179; /* x177639 stalin.sc:25197:870668 */ t98409.s0.tag = STRING_TYPE; t98409.s0.value.string_type = "EOF after dot"; /* x177640 stalin.sc:25197:870668 */ t98409.s1.tag = NULL_TYPE; /* x177641 stalin.sc:25197:870668 */ t98408.s1.tag = STRUCTURE_TYPE24753; t98408.s1.value.structure_type24753 = &t98409; /* x177642 stalin.sc:25197:870668 */ t98407.s0.tag = STRUCTURE_TYPE24753; t98407.s0.value.structure_type24753 = &t98408; /* x177643 stalin.sc:25197:870668 */ t98407.s1.tag = NULL_TYPE; /* x177644 stalin.sc:25197:870668 */ t98404.s1.tag = STRUCTURE_TYPE24753; t98404.s1.value.structure_type24753 = &t98407; /* x177645 stalin.sc:25197:870668 */ t98403.s1.tag = STRUCTURE_TYPE24753; t98403.s1.value.structure_type24753 = &t98404; /* x177646 stalin.sc:25197:870668 */ t98402.s0.tag = STRUCTURE_TYPE24753; t98402.s0.value.structure_type24753 = &t98403; /* x177647 stalin.sc:25197:870668 */ t98411.s0.tag = EXTERNAL_SYMBOL_TYPE; t98411.s0.value.external_symbol_type = q240; /* x177648 stalin.sc:25197:870668 */ t98414.s0.tag = EXTERNAL_SYMBOL_TYPE; t98414.s0.value.external_symbol_type = q269; /* x177649 stalin.sc:25197:870668 */ t98415.s0.tag = EXTERNAL_SYMBOL_TYPE; t98415.s0.value.external_symbol_type = q274; /* x177650 stalin.sc:25197:870668 */ t98415.s1.tag = NULL_TYPE; /* x177651 stalin.sc:25197:870668 */ t98414.s1.tag = STRUCTURE_TYPE24753; t98414.s1.value.structure_type24753 = &t98415; /* x177652 stalin.sc:25197:870668 */ t98413.s0.tag = STRUCTURE_TYPE24753; t98413.s0.value.structure_type24753 = &t98414; /* x177653 stalin.sc:25197:870668 */ t98417.s0.tag = EXTERNAL_SYMBOL_TYPE; t98417.s0.value.external_symbol_type = q264; /* x177654 stalin.sc:25197:870668 */ t98418.s0.tag = EXTERNAL_SYMBOL_TYPE; t98418.s0.value.external_symbol_type = q254; /* x177655 stalin.sc:25197:870668 */ t98418.s1.tag = NULL_TYPE; /* x177656 stalin.sc:25197:870668 */ t98417.s1.tag = STRUCTURE_TYPE24753; t98417.s1.value.structure_type24753 = &t98418; /* x177657 stalin.sc:25197:870668 */ t98416.s0.tag = STRUCTURE_TYPE24753; t98416.s0.value.structure_type24753 = &t98417; /* x177658 stalin.sc:25197:870668 */ t98420.s0.tag = EXTERNAL_SYMBOL_TYPE; t98420.s0.value.external_symbol_type = q271; /* x177659 stalin.sc:25197:870668 */ t98422.s0.tag = EXTERNAL_SYMBOL_TYPE; t98422.s0.value.external_symbol_type = q131; /* x177660 stalin.sc:25197:870668 */ t98424.s0.tag = EXTERNAL_SYMBOL_TYPE; t98424.s0.value.external_symbol_type = q2; /* x177661 stalin.sc:25197:870668 */ t98426.s0.tag = EXTERNAL_SYMBOL_TYPE; t98426.s0.value.external_symbol_type = q157; /* x177662 stalin.sc:25197:870668 */ t98427.s0.tag = EXTERNAL_SYMBOL_TYPE; t98427.s0.value.external_symbol_type = q274; /* x177663 stalin.sc:25197:870668 */ t98427.s1.tag = NULL_TYPE; /* x177664 stalin.sc:25197:870668 */ t98426.s1.tag = STRUCTURE_TYPE24753; t98426.s1.value.structure_type24753 = &t98427; /* x177665 stalin.sc:25197:870668 */ t98425.s0.tag = STRUCTURE_TYPE24753; t98425.s0.value.structure_type24753 = &t98426; /* x177666 stalin.sc:25197:870668 */ t98429.s0.tag = EXTERNAL_SYMBOL_TYPE; t98429.s0.value.external_symbol_type = q157; /* x177667 stalin.sc:25197:870668 */ t98430.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x177668 stalin.sc:25197:870668 */ t98430.s1.tag = NULL_TYPE; /* x177669 stalin.sc:25197:870668 */ t98429.s1.tag = STRUCTURE_TYPE24753; t98429.s1.value.structure_type24753 = &t98430; /* x177670 stalin.sc:25197:870668 */ t98428.s0.tag = STRUCTURE_TYPE24753; t98428.s0.value.structure_type24753 = &t98429; /* x177671 stalin.sc:25197:870668 */ t98428.s1.tag = NULL_TYPE; /* x177672 stalin.sc:25197:870668 */ t98425.s1.tag = STRUCTURE_TYPE24753; t98425.s1.value.structure_type24753 = &t98428; /* x177673 stalin.sc:25197:870668 */ t98424.s1.tag = STRUCTURE_TYPE24753; t98424.s1.value.structure_type24753 = &t98425; /* x177674 stalin.sc:25197:870668 */ t98423.s0.tag = STRUCTURE_TYPE24753; t98423.s0.value.structure_type24753 = &t98424; /* x177675 stalin.sc:25197:870668 */ t98431.s0.tag = FLONUM_TYPE; t98431.s0.value.flonum_type = 1.0e1; /* x177676 stalin.sc:25197:870668 */ t98431.s1.tag = NULL_TYPE; /* x177677 stalin.sc:25197:870668 */ t98423.s1.tag = STRUCTURE_TYPE24753; t98423.s1.value.structure_type24753 = &t98431; /* x177678 stalin.sc:25197:870668 */ t98422.s1.tag = STRUCTURE_TYPE24753; t98422.s1.value.structure_type24753 = &t98423; /* x177679 stalin.sc:25197:870668 */ t98421.s0.tag = STRUCTURE_TYPE24753; t98421.s0.value.structure_type24753 = &t98422; /* x177680 stalin.sc:25197:870668 */ t98432.s0.tag = FLONUM_TYPE; t98432.s0.value.flonum_type = 1.0e2; /* x177681 stalin.sc:25197:870668 */ t98432.s1.tag = NULL_TYPE; /* x177682 stalin.sc:25197:870668 */ t98421.s1.tag = STRUCTURE_TYPE24753; t98421.s1.value.structure_type24753 = &t98432; /* x177683 stalin.sc:25197:870668 */ t98420.s1.tag = STRUCTURE_TYPE24753; t98420.s1.value.structure_type24753 = &t98421; /* x177684 stalin.sc:25197:870668 */ t98419.s0.tag = STRUCTURE_TYPE24753; t98419.s0.value.structure_type24753 = &t98420; /* x177685 stalin.sc:25197:870668 */ t98419.s1.tag = NULL_TYPE; /* x177686 stalin.sc:25197:870668 */ t98416.s1.tag = STRUCTURE_TYPE24753; t98416.s1.value.structure_type24753 = &t98419; /* x177687 stalin.sc:25197:870668 */ t98413.s1.tag = STRUCTURE_TYPE24753; t98413.s1.value.structure_type24753 = &t98416; /* x177688 stalin.sc:25197:870668 */ t98412.s0.tag = STRUCTURE_TYPE24753; t98412.s0.value.structure_type24753 = &t98413; /* x177689 stalin.sc:25197:870668 */ t98435.s0.tag = EXTERNAL_SYMBOL_TYPE; t98435.s0.value.external_symbol_type = q279; /* x177690 stalin.sc:25197:870668 */ t98436.s0.tag = EXTERNAL_SYMBOL_TYPE; t98436.s0.value.external_symbol_type = q274; /* x177691 stalin.sc:25197:870668 */ t98436.s1.tag = NULL_TYPE; /* x177692 stalin.sc:25197:870668 */ t98435.s1.tag = STRUCTURE_TYPE24753; t98435.s1.value.structure_type24753 = &t98436; /* x177693 stalin.sc:25197:870668 */ t98434.s0.tag = STRUCTURE_TYPE24753; t98434.s0.value.structure_type24753 = &t98435; /* x177694 stalin.sc:25197:870668 */ t98438.s0.tag = EXTERNAL_SYMBOL_TYPE; t98438.s0.value.external_symbol_type = q264; /* x177695 stalin.sc:25197:870668 */ t98439.s0.tag = EXTERNAL_SYMBOL_TYPE; t98439.s0.value.external_symbol_type = q254; /* x177696 stalin.sc:25197:870668 */ t98439.s1.tag = NULL_TYPE; /* x177697 stalin.sc:25197:870668 */ t98438.s1.tag = STRUCTURE_TYPE24753; t98438.s1.value.structure_type24753 = &t98439; /* x177698 stalin.sc:25197:870668 */ t98437.s0.tag = STRUCTURE_TYPE24753; t98437.s0.value.structure_type24753 = &t98438; /* x177699 stalin.sc:25197:870668 */ t98441.s0.tag = EXTERNAL_SYMBOL_TYPE; t98441.s0.value.external_symbol_type = q280; /* x177700 stalin.sc:25197:870668 */ t98443.s0.tag = EXTERNAL_SYMBOL_TYPE; t98443.s0.value.external_symbol_type = q1; /* x177701 stalin.sc:25197:870668 */ t98445.s0.tag = EXTERNAL_SYMBOL_TYPE; t98445.s0.value.external_symbol_type = q285; /* x177702 stalin.sc:25197:870668 */ t98446.s0.tag = EXTERNAL_SYMBOL_TYPE; t98446.s0.value.external_symbol_type = q274; /* x177703 stalin.sc:25197:870668 */ t98446.s1.tag = NULL_TYPE; /* x177704 stalin.sc:25197:870668 */ t98445.s1.tag = STRUCTURE_TYPE24753; t98445.s1.value.structure_type24753 = &t98446; /* x177705 stalin.sc:25197:870668 */ t98444.s0.tag = STRUCTURE_TYPE24753; t98444.s0.value.structure_type24753 = &t98445; /* x177706 stalin.sc:25197:870668 */ t98448.s0.tag = EXTERNAL_SYMBOL_TYPE; t98448.s0.value.external_symbol_type = q285; /* x177707 stalin.sc:25197:870668 */ t98449.s0.tag = EXTERNAL_SYMBOL_TYPE; t98449.s0.value.external_symbol_type = q273; /* x177708 stalin.sc:25197:870668 */ t98449.s1.tag = NULL_TYPE; /* x177709 stalin.sc:25197:870668 */ t98448.s1.tag = STRUCTURE_TYPE24753; t98448.s1.value.structure_type24753 = &t98449; /* x177710 stalin.sc:25197:870668 */ t98447.s0.tag = STRUCTURE_TYPE24753; t98447.s0.value.structure_type24753 = &t98448; /* x177711 stalin.sc:25197:870668 */ t98447.s1.tag = NULL_TYPE; /* x177712 stalin.sc:25197:870668 */ t98444.s1.tag = STRUCTURE_TYPE24753; t98444.s1.value.structure_type24753 = &t98447; /* x177713 stalin.sc:25197:870668 */ t98443.s1.tag = STRUCTURE_TYPE24753; t98443.s1.value.structure_type24753 = &t98444; /* x177714 stalin.sc:25197:870668 */ t98442.s0.tag = STRUCTURE_TYPE24753; t98442.s0.value.structure_type24753 = &t98443; /* x177715 stalin.sc:25197:870668 */ t98442.s1.tag = NULL_TYPE; /* x177716 stalin.sc:25197:870668 */ t98441.s1.tag = STRUCTURE_TYPE24753; t98441.s1.value.structure_type24753 = &t98442; /* x177717 stalin.sc:25197:870668 */ t98440.s0.tag = STRUCTURE_TYPE24753; t98440.s0.value.structure_type24753 = &t98441; /* x177718 stalin.sc:25197:870668 */ t98440.s1.tag = NULL_TYPE; /* x177719 stalin.sc:25197:870668 */ t98437.s1.tag = STRUCTURE_TYPE24753; t98437.s1.value.structure_type24753 = &t98440; /* x177720 stalin.sc:25197:870668 */ t98434.s1.tag = STRUCTURE_TYPE24753; t98434.s1.value.structure_type24753 = &t98437; /* x177721 stalin.sc:25197:870668 */ t98433.s0.tag = STRUCTURE_TYPE24753; t98433.s0.value.structure_type24753 = &t98434; /* x177722 stalin.sc:25197:870668 */ t98452.s0.tag = EXTERNAL_SYMBOL_TYPE; t98452.s0.value.external_symbol_type = q104; /* x177723 stalin.sc:25197:870668 */ t98453.s0.tag = EXTERNAL_SYMBOL_TYPE; t98453.s0.value.external_symbol_type = q258; /* x177724 stalin.sc:25197:870668 */ t98455.s0.tag = EXTERNAL_SYMBOL_TYPE; t98455.s0.value.external_symbol_type = q11; /* x177725 stalin.sc:25197:870668 */ t98456.s0.tag = EXTERNAL_SYMBOL_TYPE; t98456.s0.value.external_symbol_type = q1; /* x177726 stalin.sc:25197:870668 */ t98456.s1.tag = NULL_TYPE; /* x177727 stalin.sc:25197:870668 */ t98455.s1.tag = STRUCTURE_TYPE24753; t98455.s1.value.structure_type24753 = &t98456; /* x177728 stalin.sc:25197:870668 */ t98454.s0.tag = STRUCTURE_TYPE24753; t98454.s0.value.structure_type24753 = &t98455; /* x177729 stalin.sc:25197:870668 */ t98454.s1.tag = NULL_TYPE; /* x177730 stalin.sc:25197:870668 */ t98453.s1.tag = STRUCTURE_TYPE24753; t98453.s1.value.structure_type24753 = &t98454; /* x177731 stalin.sc:25197:870668 */ t98452.s1.tag = STRUCTURE_TYPE24753; t98452.s1.value.structure_type24753 = &t98453; /* x177732 stalin.sc:25197:870668 */ t98451.s0.tag = STRUCTURE_TYPE24753; t98451.s0.value.structure_type24753 = &t98452; /* x177733 stalin.sc:25197:870668 */ t98457.s0.tag = EXTERNAL_SYMBOL_TYPE; t98457.s0.value.external_symbol_type = q256; /* x177734 stalin.sc:25197:870668 */ t98457.s1.tag = NULL_TYPE; /* x177735 stalin.sc:25197:870668 */ t98451.s1.tag = STRUCTURE_TYPE24753; t98451.s1.value.structure_type24753 = &t98457; /* x177736 stalin.sc:25197:870668 */ t98450.s0.tag = STRUCTURE_TYPE24753; t98450.s0.value.structure_type24753 = &t98451; /* x177737 stalin.sc:25197:870668 */ t98459.s0.tag = EXTERNAL_SYMBOL_TYPE; t98459.s0.value.external_symbol_type = q95; /* x177738 stalin.sc:25197:870668 */ t98461.s0.tag = EXTERNAL_SYMBOL_TYPE; t98461.s0.value.external_symbol_type = q179; /* x177739 stalin.sc:25197:870668 */ t98462.s0.tag = STRING_TYPE; t98462.s0.value.string_type = "Dot allowed only inside list"; /* x177740 stalin.sc:25197:870668 */ t98462.s1.tag = NULL_TYPE; /* x177741 stalin.sc:25197:870668 */ t98461.s1.tag = STRUCTURE_TYPE24753; t98461.s1.value.structure_type24753 = &t98462; /* x177742 stalin.sc:25197:870668 */ t98460.s0.tag = STRUCTURE_TYPE24753; t98460.s0.value.structure_type24753 = &t98461; /* x177743 stalin.sc:25197:870668 */ t98460.s1.tag = NULL_TYPE; /* x177744 stalin.sc:25197:870668 */ t98459.s1.tag = STRUCTURE_TYPE24753; t98459.s1.value.structure_type24753 = &t98460; /* x177745 stalin.sc:25197:870668 */ t98458.s0.tag = STRUCTURE_TYPE24753; t98458.s0.value.structure_type24753 = &t98459; /* x177746 stalin.sc:25197:870668 */ t98458.s1.tag = NULL_TYPE; /* x177747 stalin.sc:25197:870668 */ t98450.s1.tag = STRUCTURE_TYPE24753; t98450.s1.value.structure_type24753 = &t98458; /* x177748 stalin.sc:25197:870668 */ t98433.s1.tag = STRUCTURE_TYPE24753; t98433.s1.value.structure_type24753 = &t98450; /* x177749 stalin.sc:25197:870668 */ t98412.s1.tag = STRUCTURE_TYPE24753; t98412.s1.value.structure_type24753 = &t98433; /* x177750 stalin.sc:25197:870668 */ t98411.s1.tag = STRUCTURE_TYPE24753; t98411.s1.value.structure_type24753 = &t98412; /* x177751 stalin.sc:25197:870668 */ t98410.s0.tag = STRUCTURE_TYPE24753; t98410.s0.value.structure_type24753 = &t98411; /* x177752 stalin.sc:25197:870668 */ t98410.s1.tag = NULL_TYPE; /* x177753 stalin.sc:25197:870668 */ t98402.s1.tag = STRUCTURE_TYPE24753; t98402.s1.value.structure_type24753 = &t98410; /* x177754 stalin.sc:25197:870668 */ t98396.s1.tag = STRUCTURE_TYPE24753; t98396.s1.value.structure_type24753 = &t98402; /* x177755 stalin.sc:25197:870668 */ t98395.s1.tag = STRUCTURE_TYPE24753; t98395.s1.value.structure_type24753 = &t98396; /* x177756 stalin.sc:25197:870668 */ t98394.s0.tag = STRUCTURE_TYPE24753; t98394.s0.value.structure_type24753 = &t98395; /* x177757 stalin.sc:25197:870668 */ t98394.s1.tag = NULL_TYPE; /* x177758 stalin.sc:25197:870668 */ t98390.s1.tag = STRUCTURE_TYPE24753; t98390.s1.value.structure_type24753 = &t98394; /* x177759 stalin.sc:25197:870668 */ t98389.s0.tag = STRUCTURE_TYPE24753; t98389.s0.value.structure_type24753 = &t98390; /* x177760 stalin.sc:25197:870668 */ t98465.s0.tag = EXTERNAL_SYMBOL_TYPE; t98465.s0.value.external_symbol_type = q269; /* x177761 stalin.sc:25197:870668 */ t98466.s0.tag = EXTERNAL_SYMBOL_TYPE; t98466.s0.value.external_symbol_type = q273; /* x177762 stalin.sc:25197:870668 */ t98466.s1.tag = NULL_TYPE; /* x177763 stalin.sc:25197:870668 */ t98465.s1.tag = STRUCTURE_TYPE24753; t98465.s1.value.structure_type24753 = &t98466; /* x177764 stalin.sc:25197:870668 */ t98464.s0.tag = STRUCTURE_TYPE24753; t98464.s0.value.structure_type24753 = &t98465; /* x177765 stalin.sc:25197:870668 */ t98468.s0.tag = EXTERNAL_SYMBOL_TYPE; t98468.s0.value.external_symbol_type = q276; /* x177766 stalin.sc:25197:870668 */ t98470.s0.tag = EXTERNAL_SYMBOL_TYPE; t98470.s0.value.external_symbol_type = q2; /* x177767 stalin.sc:25197:870668 */ t98472.s0.tag = EXTERNAL_SYMBOL_TYPE; t98472.s0.value.external_symbol_type = q157; /* x177768 stalin.sc:25197:870668 */ t98473.s0.tag = EXTERNAL_SYMBOL_TYPE; t98473.s0.value.external_symbol_type = q273; /* x177769 stalin.sc:25197:870668 */ t98473.s1.tag = NULL_TYPE; /* x177770 stalin.sc:25197:870668 */ t98472.s1.tag = STRUCTURE_TYPE24753; t98472.s1.value.structure_type24753 = &t98473; /* x177771 stalin.sc:25197:870668 */ t98471.s0.tag = STRUCTURE_TYPE24753; t98471.s0.value.structure_type24753 = &t98472; /* x177772 stalin.sc:25197:870668 */ t98475.s0.tag = EXTERNAL_SYMBOL_TYPE; t98475.s0.value.external_symbol_type = q157; /* x177773 stalin.sc:25197:870668 */ t98476.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x177774 stalin.sc:25197:870668 */ t98476.s1.tag = NULL_TYPE; /* x177775 stalin.sc:25197:870668 */ t98475.s1.tag = STRUCTURE_TYPE24753; t98475.s1.value.structure_type24753 = &t98476; /* x177776 stalin.sc:25197:870668 */ t98474.s0.tag = STRUCTURE_TYPE24753; t98474.s0.value.structure_type24753 = &t98475; /* x177777 stalin.sc:25197:870668 */ t98474.s1.tag = NULL_TYPE; /* x177778 stalin.sc:25197:870668 */ t98471.s1.tag = STRUCTURE_TYPE24753; t98471.s1.value.structure_type24753 = &t98474; /* x177779 stalin.sc:25197:870668 */ t98470.s1.tag = STRUCTURE_TYPE24753; t98470.s1.value.structure_type24753 = &t98471; /* x177780 stalin.sc:25197:870668 */ t98469.s0.tag = STRUCTURE_TYPE24753; t98469.s0.value.structure_type24753 = &t98470; /* x177781 stalin.sc:25197:870668 */ t98469.s1.tag = NULL_TYPE; /* x177782 stalin.sc:25197:870668 */ t98468.s1.tag = STRUCTURE_TYPE24753; t98468.s1.value.structure_type24753 = &t98469; /* x177783 stalin.sc:25197:870668 */ t98467.s0.tag = STRUCTURE_TYPE24753; t98467.s0.value.structure_type24753 = &t98468; /* x177784 stalin.sc:25197:870668 */ t98467.s1.tag = NULL_TYPE; /* x177785 stalin.sc:25197:870668 */ t98464.s1.tag = STRUCTURE_TYPE24753; t98464.s1.value.structure_type24753 = &t98467; /* x177786 stalin.sc:25197:870668 */ t98463.s0.tag = STRUCTURE_TYPE24753; t98463.s0.value.structure_type24753 = &t98464; /* x177787 stalin.sc:25197:870668 */ t98479.s0.tag = EXTERNAL_SYMBOL_TYPE; t98479.s0.value.external_symbol_type = q277; /* x177788 stalin.sc:25197:870668 */ t98480.s0.tag = EXTERNAL_SYMBOL_TYPE; t98480.s0.value.external_symbol_type = q273; /* x177789 stalin.sc:25197:870668 */ t98480.s1.tag = NULL_TYPE; /* x177790 stalin.sc:25197:870668 */ t98479.s1.tag = STRUCTURE_TYPE24753; t98479.s1.value.structure_type24753 = &t98480; /* x177791 stalin.sc:25197:870668 */ t98478.s0.tag = STRUCTURE_TYPE24753; t98478.s0.value.structure_type24753 = &t98479; /* x177792 stalin.sc:25197:870668 */ t98482.s0.tag = EXTERNAL_SYMBOL_TYPE; t98482.s0.value.external_symbol_type = q280; /* x177793 stalin.sc:25197:870668 */ t98484.s0.tag = EXTERNAL_SYMBOL_TYPE; t98484.s0.value.external_symbol_type = q1; /* x177794 stalin.sc:25197:870668 */ t98486.s0.tag = EXTERNAL_SYMBOL_TYPE; t98486.s0.value.external_symbol_type = q285; /* x177795 stalin.sc:25197:870668 */ t98487.s0.tag = EXTERNAL_SYMBOL_TYPE; t98487.s0.value.external_symbol_type = q273; /* x177796 stalin.sc:25197:870668 */ t98487.s1.tag = NULL_TYPE; /* x177797 stalin.sc:25197:870668 */ t98486.s1.tag = STRUCTURE_TYPE24753; t98486.s1.value.structure_type24753 = &t98487; /* x177798 stalin.sc:25197:870668 */ t98485.s0.tag = STRUCTURE_TYPE24753; t98485.s0.value.structure_type24753 = &t98486; /* x177799 stalin.sc:25197:870668 */ t98485.s1.tag = NULL_TYPE; /* x177800 stalin.sc:25197:870668 */ t98484.s1.tag = STRUCTURE_TYPE24753; t98484.s1.value.structure_type24753 = &t98485; /* x177801 stalin.sc:25197:870668 */ t98483.s0.tag = STRUCTURE_TYPE24753; t98483.s0.value.structure_type24753 = &t98484; /* x177802 stalin.sc:25197:870668 */ t98483.s1.tag = NULL_TYPE; /* x177803 stalin.sc:25197:870668 */ t98482.s1.tag = STRUCTURE_TYPE24753; t98482.s1.value.structure_type24753 = &t98483; /* x177804 stalin.sc:25197:870668 */ t98481.s0.tag = STRUCTURE_TYPE24753; t98481.s0.value.structure_type24753 = &t98482; /* x177805 stalin.sc:25197:870668 */ t98481.s1.tag = NULL_TYPE; /* x177806 stalin.sc:25197:870668 */ t98478.s1.tag = STRUCTURE_TYPE24753; t98478.s1.value.structure_type24753 = &t98481; /* x177807 stalin.sc:25197:870668 */ t98477.s0.tag = STRUCTURE_TYPE24753; t98477.s0.value.structure_type24753 = &t98478; /* x177808 stalin.sc:25197:870668 */ t98489.s0.tag = EXTERNAL_SYMBOL_TYPE; t98489.s0.value.external_symbol_type = q95; /* x177809 stalin.sc:25197:870668 */ t98491.s0.tag = EXTERNAL_SYMBOL_TYPE; t98491.s0.value.external_symbol_type = q179; /* x177810 stalin.sc:25197:870668 */ t98492.s0.tag = STRING_TYPE; t98492.s0.value.string_type = "Attempt to READ invalid character"; /* x177811 stalin.sc:25197:870668 */ t98492.s1.tag = NULL_TYPE; /* x177812 stalin.sc:25197:870668 */ t98491.s1.tag = STRUCTURE_TYPE24753; t98491.s1.value.structure_type24753 = &t98492; /* x177813 stalin.sc:25197:870668 */ t98490.s0.tag = STRUCTURE_TYPE24753; t98490.s0.value.structure_type24753 = &t98491; /* x177814 stalin.sc:25197:870668 */ t98490.s1.tag = NULL_TYPE; /* x177815 stalin.sc:25197:870668 */ t98489.s1.tag = STRUCTURE_TYPE24753; t98489.s1.value.structure_type24753 = &t98490; /* x177816 stalin.sc:25197:870668 */ t98488.s0.tag = STRUCTURE_TYPE24753; t98488.s0.value.structure_type24753 = &t98489; /* x177817 stalin.sc:25197:870668 */ t98488.s1.tag = NULL_TYPE; /* x177818 stalin.sc:25197:870668 */ t98477.s1.tag = STRUCTURE_TYPE24753; t98477.s1.value.structure_type24753 = &t98488; /* x177819 stalin.sc:25197:870668 */ t98463.s1.tag = STRUCTURE_TYPE24753; t98463.s1.value.structure_type24753 = &t98477; /* x177820 stalin.sc:25197:870668 */ t98389.s1.tag = STRUCTURE_TYPE24753; t98389.s1.value.structure_type24753 = &t98463; /* x177821 stalin.sc:25197:870668 */ t98253.s1.tag = STRUCTURE_TYPE24753; t98253.s1.value.structure_type24753 = &t98389; /* x177822 stalin.sc:25197:870668 */ t98121.s1.tag = STRUCTURE_TYPE24753; t98121.s1.value.structure_type24753 = &t98253; /* x177823 stalin.sc:25197:870668 */ t98044.s1.tag = STRUCTURE_TYPE24753; t98044.s1.value.structure_type24753 = &t98121; /* x177824 stalin.sc:25197:870668 */ t97075.s1.tag = STRUCTURE_TYPE24753; t97075.s1.value.structure_type24753 = &t98044; /* x177825 stalin.sc:25197:870668 */ t96969.s1.tag = STRUCTURE_TYPE24753; t96969.s1.value.structure_type24753 = &t97075; /* x177826 stalin.sc:25197:870668 */ t96916.s1.tag = STRUCTURE_TYPE24753; t96916.s1.value.structure_type24753 = &t96969; /* x177827 stalin.sc:25197:870668 */ t96901.s1.tag = STRUCTURE_TYPE24753; t96901.s1.value.structure_type24753 = &t96916; /* x177828 stalin.sc:25197:870668 */ t96886.s1.tag = STRUCTURE_TYPE24753; t96886.s1.value.structure_type24753 = &t96901; /* x177829 stalin.sc:25197:870668 */ t96876.s1.tag = STRUCTURE_TYPE24753; t96876.s1.value.structure_type24753 = &t96886; /* x177830 stalin.sc:25197:870668 */ t96869.s1.tag = STRUCTURE_TYPE24753; t96869.s1.value.structure_type24753 = &t96876; /* x177831 stalin.sc:25197:870668 */ t96832.s1.tag = STRUCTURE_TYPE24753; t96832.s1.value.structure_type24753 = &t96869; /* x177832 stalin.sc:25197:870668 */ t96795.s1.tag = STRUCTURE_TYPE24753; t96795.s1.value.structure_type24753 = &t96832; /* x177833 stalin.sc:25197:870668 */ t96706.s1.tag = STRUCTURE_TYPE24753; t96706.s1.value.structure_type24753 = &t96795; /* x177834 stalin.sc:25197:870668 */ t96705.s1.tag = STRUCTURE_TYPE24753; t96705.s1.value.structure_type24753 = &t96706; /* x177835 stalin.sc:25197:870668 */ t96704.s0.tag = STRUCTURE_TYPE24753; t96704.s0.value.structure_type24753 = &t96705; /* x177836 stalin.sc:25197:870668 */ t96704.s1.tag = NULL_TYPE; /* x177837 stalin.sc:25197:870668 */ t96698.s1.tag = STRUCTURE_TYPE24753; t96698.s1.value.structure_type24753 = &t96704; /* x177838 stalin.sc:25197:870668 */ t96697.s1.tag = STRUCTURE_TYPE24753; t96697.s1.value.structure_type24753 = &t96698; /* x177839 stalin.sc:25197:870668 */ t96696.s0.tag = STRUCTURE_TYPE24753; t96696.s0.value.structure_type24753 = &t96697; /* x177840 stalin.sc:25197:870668 */ t96696.s1.tag = NULL_TYPE; /* x177841 stalin.sc:25197:870668 */ t96639.s1.tag = STRUCTURE_TYPE24753; t96639.s1.value.structure_type24753 = &t96696; /* x177842 stalin.sc:25197:870668 */ t96537.s1.tag = STRUCTURE_TYPE24753; t96537.s1.value.structure_type24753 = &t96639; /* x177843 stalin.sc:25197:870668 */ t96487.s1.tag = STRUCTURE_TYPE24753; t96487.s1.value.structure_type24753 = &t96537; /* x177844 stalin.sc:25197:870668 */ t96462.s1.tag = STRUCTURE_TYPE24753; t96462.s1.value.structure_type24753 = &t96487; /* x177845 stalin.sc:25197:870668 */ t96396.s1.tag = STRUCTURE_TYPE24753; t96396.s1.value.structure_type24753 = &t96462; /* x177846 stalin.sc:25197:870668 */ t96145.s1.tag = STRUCTURE_TYPE24753; t96145.s1.value.structure_type24753 = &t96396; /* x177847 stalin.sc:25197:870668 */ t95909.s1.tag = STRUCTURE_TYPE24753; t95909.s1.value.structure_type24753 = &t96145; /* x177848 stalin.sc:25197:870668 */ t95801.s1.tag = STRUCTURE_TYPE24753; t95801.s1.value.structure_type24753 = &t95909; /* x177849 stalin.sc:25197:870668 */ t95755.s1.tag = STRUCTURE_TYPE24753; t95755.s1.value.structure_type24753 = &t95801; /* x177850 stalin.sc:25197:870668 */ t95702.s1.tag = STRUCTURE_TYPE24753; t95702.s1.value.structure_type24753 = &t95755; /* x177851 stalin.sc:25197:870668 */ t95648.s1.tag = STRUCTURE_TYPE24753; t95648.s1.value.structure_type24753 = &t95702; /* x177852 stalin.sc:25197:870668 */ t95642.s1.tag = STRUCTURE_TYPE24753; t95642.s1.value.structure_type24753 = &t95648; /* x177853 stalin.sc:25197:870668 */ t95641.s1.tag = STRUCTURE_TYPE24753; t95641.s1.value.structure_type24753 = &t95642; /* x177854 stalin.sc:25197:870668 */ t95640.s1.tag = STRUCTURE_TYPE24753; t95640.s1.value.structure_type24753 = &t95641; /* x177855 stalin.sc:25197:870668 */ t95639.s0.tag = STRUCTURE_TYPE24753; t95639.s0.value.structure_type24753 = &t95640; /* x177856 stalin.sc:25197:870668 */ t95639.s1.tag = NULL_TYPE; /* x177857 stalin.sc:25197:870668 */ t95624.s1.tag = STRUCTURE_TYPE24753; t95624.s1.value.structure_type24753 = &t95639; /* x177858 stalin.sc:25197:870668 */ t95623.s1.tag = STRUCTURE_TYPE24753; t95623.s1.value.structure_type24753 = &t95624; /* x177859 stalin.sc:25197:870668 */ t95622.s0.tag = STRUCTURE_TYPE24753; t95622.s0.value.structure_type24753 = &t95623; /* x177860 stalin.sc:25197:870668 */ t95622.s1.tag = NULL_TYPE; /* x177861 stalin.sc:25197:870668 */ t95609.s1.tag = STRUCTURE_TYPE24753; t95609.s1.value.structure_type24753 = &t95622; /* x177862 stalin.sc:25197:870668 */ t95607.s1.tag = STRUCTURE_TYPE24753; t95607.s1.value.structure_type24753 = &t95609; /* x177863 stalin.sc:25197:870668 */ t95606.s1.tag = STRUCTURE_TYPE24753; t95606.s1.value.structure_type24753 = &t95607; /* x177866 stalin.sc:25683:888584 */ t98493.s0.tag = EXTERNAL_SYMBOL_TYPE; t98493.s0.value.external_symbol_type = q242; /* x177867 stalin.sc:25683:888584 */ t98496.s0.tag = EXTERNAL_SYMBOL_TYPE; t98496.s0.value.external_symbol_type = q302; /* x177868 stalin.sc:25683:888584 */ t98498.s0.tag = EXTERNAL_SYMBOL_TYPE; t98498.s0.value.external_symbol_type = q166; /* x177869 stalin.sc:25683:888584 */ t98499.s0.tag = FIXNUM_TYPE; t98499.s0.value.fixnum_type = 20; /* x177870 stalin.sc:25683:888584 */ t98499.s1.tag = NULL_TYPE; /* x177871 stalin.sc:25683:888584 */ t98498.s1.tag = STRUCTURE_TYPE24753; t98498.s1.value.structure_type24753 = &t98499; /* x177872 stalin.sc:25683:888584 */ t98497.s0.tag = STRUCTURE_TYPE24753; t98497.s0.value.structure_type24753 = &t98498; /* x177873 stalin.sc:25683:888584 */ t98497.s1.tag = NULL_TYPE; /* x177874 stalin.sc:25683:888584 */ t98496.s1.tag = STRUCTURE_TYPE24753; t98496.s1.value.structure_type24753 = &t98497; /* x177875 stalin.sc:25683:888584 */ t98495.s0.tag = STRUCTURE_TYPE24753; t98495.s0.value.structure_type24753 = &t98496; /* x177876 stalin.sc:25683:888584 */ t98501.s0.tag = EXTERNAL_SYMBOL_TYPE; t98501.s0.value.external_symbol_type = q303; /* x177877 stalin.sc:25683:888584 */ t98504.s0.tag = EXTERNAL_SYMBOL_TYPE; t98504.s0.value.external_symbol_type = q77; /* x177878 stalin.sc:25683:888584 */ t98505.s0.tag = EXTERNAL_SYMBOL_TYPE; t98505.s0.value.external_symbol_type = q232; /* x177879 stalin.sc:25683:888584 */ t98505.s1.tag = NULL_TYPE; /* x177880 stalin.sc:25683:888584 */ t98504.s1.tag = STRUCTURE_TYPE24753; t98504.s1.value.structure_type24753 = &t98505; /* x177881 stalin.sc:25683:888584 */ t98503.s0.tag = STRUCTURE_TYPE24753; t98503.s0.value.structure_type24753 = &t98504; /* x177882 stalin.sc:25683:888584 */ t98503.s1.tag = NULL_TYPE; /* x177883 stalin.sc:25683:888584 */ t98502.s0.tag = STRUCTURE_TYPE24753; t98502.s0.value.structure_type24753 = &t98503; /* x177884 stalin.sc:25683:888584 */ t98502.s1.tag = NULL_TYPE; /* x177885 stalin.sc:25683:888584 */ t98501.s1.tag = STRUCTURE_TYPE24753; t98501.s1.value.structure_type24753 = &t98502; /* x177886 stalin.sc:25683:888584 */ t98500.s0.tag = STRUCTURE_TYPE24753; t98500.s0.value.structure_type24753 = &t98501; /* x177887 stalin.sc:25683:888584 */ t98507.s0.tag = EXTERNAL_SYMBOL_TYPE; t98507.s0.value.external_symbol_type = q304; /* x177888 stalin.sc:25683:888584 */ t98510.s0.tag = EXTERNAL_SYMBOL_TYPE; t98510.s0.value.external_symbol_type = q77; /* x177889 stalin.sc:25683:888584 */ t98511.s0.tag = EXTERNAL_SYMBOL_TYPE; t98511.s0.value.external_symbol_type = q233; /* x177890 stalin.sc:25683:888584 */ t98511.s1.tag = NULL_TYPE; /* x177891 stalin.sc:25683:888584 */ t98510.s1.tag = STRUCTURE_TYPE24753; t98510.s1.value.structure_type24753 = &t98511; /* x177892 stalin.sc:25683:888584 */ t98509.s0.tag = STRUCTURE_TYPE24753; t98509.s0.value.structure_type24753 = &t98510; /* x177893 stalin.sc:25683:888584 */ t98509.s1.tag = NULL_TYPE; /* x177894 stalin.sc:25683:888584 */ t98508.s0.tag = STRUCTURE_TYPE24753; t98508.s0.value.structure_type24753 = &t98509; /* x177895 stalin.sc:25683:888584 */ t98508.s1.tag = NULL_TYPE; /* x177896 stalin.sc:25683:888584 */ t98507.s1.tag = STRUCTURE_TYPE24753; t98507.s1.value.structure_type24753 = &t98508; /* x177897 stalin.sc:25683:888584 */ t98506.s0.tag = STRUCTURE_TYPE24753; t98506.s0.value.structure_type24753 = &t98507; /* x177898 stalin.sc:25683:888584 */ t98513.s0.tag = EXTERNAL_SYMBOL_TYPE; t98513.s0.value.external_symbol_type = q305; /* x177899 stalin.sc:25683:888584 */ t98515.s0.tag = EXTERNAL_SYMBOL_TYPE; t98515.s0.value.external_symbol_type = q11; /* x177900 stalin.sc:25683:888584 */ t98516.s0.tag = NULL_TYPE; /* x177901 stalin.sc:25683:888584 */ t98516.s1.tag = NULL_TYPE; /* x177902 stalin.sc:25683:888584 */ t98515.s1.tag = STRUCTURE_TYPE24753; t98515.s1.value.structure_type24753 = &t98516; /* x177903 stalin.sc:25683:888584 */ t98514.s0.tag = STRUCTURE_TYPE24753; t98514.s0.value.structure_type24753 = &t98515; /* x177904 stalin.sc:25683:888584 */ t98514.s1.tag = NULL_TYPE; /* x177905 stalin.sc:25683:888584 */ t98513.s1.tag = STRUCTURE_TYPE24753; t98513.s1.value.structure_type24753 = &t98514; /* x177906 stalin.sc:25683:888584 */ t98512.s0.tag = STRUCTURE_TYPE24753; t98512.s0.value.structure_type24753 = &t98513; /* x177907 stalin.sc:25683:888584 */ t98518.s0.tag = EXTERNAL_SYMBOL_TYPE; t98518.s0.value.external_symbol_type = q306; /* x177908 stalin.sc:25683:888584 */ t98520.s0.tag = EXTERNAL_SYMBOL_TYPE; t98520.s0.value.external_symbol_type = q11; /* x177909 stalin.sc:25683:888584 */ t98521.s0.tag = NULL_TYPE; /* x177910 stalin.sc:25683:888584 */ t98521.s1.tag = NULL_TYPE; /* x177911 stalin.sc:25683:888584 */ t98520.s1.tag = STRUCTURE_TYPE24753; t98520.s1.value.structure_type24753 = &t98521; /* x177912 stalin.sc:25683:888584 */ t98519.s0.tag = STRUCTURE_TYPE24753; t98519.s0.value.structure_type24753 = &t98520; /* x177913 stalin.sc:25683:888584 */ t98519.s1.tag = NULL_TYPE; /* x177914 stalin.sc:25683:888584 */ t98518.s1.tag = STRUCTURE_TYPE24753; t98518.s1.value.structure_type24753 = &t98519; /* x177915 stalin.sc:25683:888584 */ t98517.s0.tag = STRUCTURE_TYPE24753; t98517.s0.value.structure_type24753 = &t98518; /* x177916 stalin.sc:25683:888584 */ t98517.s1.tag = NULL_TYPE; /* x177917 stalin.sc:25683:888584 */ t98512.s1.tag = STRUCTURE_TYPE24753; t98512.s1.value.structure_type24753 = &t98517; /* x177918 stalin.sc:25683:888584 */ t98506.s1.tag = STRUCTURE_TYPE24753; t98506.s1.value.structure_type24753 = &t98512; /* x177919 stalin.sc:25683:888584 */ t98500.s1.tag = STRUCTURE_TYPE24753; t98500.s1.value.structure_type24753 = &t98506; /* x177920 stalin.sc:25683:888584 */ t98495.s1.tag = STRUCTURE_TYPE24753; t98495.s1.value.structure_type24753 = &t98500; /* x177921 stalin.sc:25683:888584 */ t98494.s0.tag = STRUCTURE_TYPE24753; t98494.s0.value.structure_type24753 = &t98495; /* x177922 stalin.sc:25683:888584 */ t98523.s0.tag = EXTERNAL_SYMBOL_TYPE; t98523.s0.value.external_symbol_type = q97; /* x177923 stalin.sc:25683:888584 */ t98524.s0.tag = EXTERNAL_SYMBOL_TYPE; t98524.s0.value.external_symbol_type = q227; /* x177924 stalin.sc:25683:888584 */ t98526.s0.tag = EXTERNAL_SYMBOL_TYPE; t98526.s0.value.external_symbol_type = q77; /* x177925 stalin.sc:25683:888584 */ t98527.s0.tag = EXTERNAL_SYMBOL_TYPE; t98527.s0.value.external_symbol_type = q227; /* x177926 stalin.sc:25683:888584 */ t98527.s1.tag = NULL_TYPE; /* x177927 stalin.sc:25683:888584 */ t98526.s1.tag = STRUCTURE_TYPE24753; t98526.s1.value.structure_type24753 = &t98527; /* x177928 stalin.sc:25683:888584 */ t98525.s0.tag = STRUCTURE_TYPE24753; t98525.s0.value.structure_type24753 = &t98526; /* x177929 stalin.sc:25683:888584 */ t98525.s1.tag = NULL_TYPE; /* x177930 stalin.sc:25683:888584 */ t98524.s1.tag = STRUCTURE_TYPE24753; t98524.s1.value.structure_type24753 = &t98525; /* x177931 stalin.sc:25683:888584 */ t98523.s1.tag = STRUCTURE_TYPE24753; t98523.s1.value.structure_type24753 = &t98524; /* x177932 stalin.sc:25683:888584 */ t98522.s0.tag = STRUCTURE_TYPE24753; t98522.s0.value.structure_type24753 = &t98523; /* x177933 stalin.sc:25683:888584 */ t98529.s0.tag = EXTERNAL_SYMBOL_TYPE; t98529.s0.value.external_symbol_type = q97; /* x177934 stalin.sc:25683:888584 */ t98530.s0.tag = EXTERNAL_SYMBOL_TYPE; t98530.s0.value.external_symbol_type = q229; /* x177935 stalin.sc:25683:888584 */ t98532.s0.tag = EXTERNAL_SYMBOL_TYPE; t98532.s0.value.external_symbol_type = q77; /* x177936 stalin.sc:25683:888584 */ t98533.s0.tag = EXTERNAL_SYMBOL_TYPE; t98533.s0.value.external_symbol_type = q229; /* x177937 stalin.sc:25683:888584 */ t98533.s1.tag = NULL_TYPE; /* x177938 stalin.sc:25683:888584 */ t98532.s1.tag = STRUCTURE_TYPE24753; t98532.s1.value.structure_type24753 = &t98533; /* x177939 stalin.sc:25683:888584 */ t98531.s0.tag = STRUCTURE_TYPE24753; t98531.s0.value.structure_type24753 = &t98532; /* x177940 stalin.sc:25683:888584 */ t98531.s1.tag = NULL_TYPE; /* x177941 stalin.sc:25683:888584 */ t98530.s1.tag = STRUCTURE_TYPE24753; t98530.s1.value.structure_type24753 = &t98531; /* x177942 stalin.sc:25683:888584 */ t98529.s1.tag = STRUCTURE_TYPE24753; t98529.s1.value.structure_type24753 = &t98530; /* x177943 stalin.sc:25683:888584 */ t98528.s0.tag = STRUCTURE_TYPE24753; t98528.s0.value.structure_type24753 = &t98529; /* x177944 stalin.sc:25683:888584 */ t98535.s0.tag = EXTERNAL_SYMBOL_TYPE; t98535.s0.value.external_symbol_type = q97; /* x177945 stalin.sc:25683:888584 */ t98536.s0.tag = EXTERNAL_SYMBOL_TYPE; t98536.s0.value.external_symbol_type = q231; /* x177946 stalin.sc:25683:888584 */ t98538.s0.tag = EXTERNAL_SYMBOL_TYPE; t98538.s0.value.external_symbol_type = q77; /* x177947 stalin.sc:25683:888584 */ t98539.s0.tag = EXTERNAL_SYMBOL_TYPE; t98539.s0.value.external_symbol_type = q231; /* x177948 stalin.sc:25683:888584 */ t98539.s1.tag = NULL_TYPE; /* x177949 stalin.sc:25683:888584 */ t98538.s1.tag = STRUCTURE_TYPE24753; t98538.s1.value.structure_type24753 = &t98539; /* x177950 stalin.sc:25683:888584 */ t98537.s0.tag = STRUCTURE_TYPE24753; t98537.s0.value.structure_type24753 = &t98538; /* x177951 stalin.sc:25683:888584 */ t98537.s1.tag = NULL_TYPE; /* x177952 stalin.sc:25683:888584 */ t98536.s1.tag = STRUCTURE_TYPE24753; t98536.s1.value.structure_type24753 = &t98537; /* x177953 stalin.sc:25683:888584 */ t98535.s1.tag = STRUCTURE_TYPE24753; t98535.s1.value.structure_type24753 = &t98536; /* x177954 stalin.sc:25683:888584 */ t98534.s0.tag = STRUCTURE_TYPE24753; t98534.s0.value.structure_type24753 = &t98535; /* x177955 stalin.sc:25683:888584 */ t98541.s0.tag = EXTERNAL_SYMBOL_TYPE; t98541.s0.value.external_symbol_type = q97; /* x177956 stalin.sc:25683:888584 */ t98542.s0.tag = EXTERNAL_SYMBOL_TYPE; t98542.s0.value.external_symbol_type = q234; /* x177957 stalin.sc:25683:888584 */ t98544.s0.tag = EXTERNAL_SYMBOL_TYPE; t98544.s0.value.external_symbol_type = q77; /* x177958 stalin.sc:25683:888584 */ t98545.s0.tag = EXTERNAL_SYMBOL_TYPE; t98545.s0.value.external_symbol_type = q234; /* x177959 stalin.sc:25683:888584 */ t98545.s1.tag = NULL_TYPE; /* x177960 stalin.sc:25683:888584 */ t98544.s1.tag = STRUCTURE_TYPE24753; t98544.s1.value.structure_type24753 = &t98545; /* x177961 stalin.sc:25683:888584 */ t98543.s0.tag = STRUCTURE_TYPE24753; t98543.s0.value.structure_type24753 = &t98544; /* x177962 stalin.sc:25683:888584 */ t98543.s1.tag = NULL_TYPE; /* x177963 stalin.sc:25683:888584 */ t98542.s1.tag = STRUCTURE_TYPE24753; t98542.s1.value.structure_type24753 = &t98543; /* x177964 stalin.sc:25683:888584 */ t98541.s1.tag = STRUCTURE_TYPE24753; t98541.s1.value.structure_type24753 = &t98542; /* x177965 stalin.sc:25683:888584 */ t98540.s0.tag = STRUCTURE_TYPE24753; t98540.s0.value.structure_type24753 = &t98541; /* x177966 stalin.sc:25683:888584 */ t98547.s0.tag = EXTERNAL_SYMBOL_TYPE; t98547.s0.value.external_symbol_type = q97; /* x177967 stalin.sc:25683:888584 */ t98549.s0.tag = EXTERNAL_SYMBOL_TYPE; t98549.s0.value.external_symbol_type = q307; /* x177968 stalin.sc:25683:888584 */ t98550.s0.tag = EXTERNAL_SYMBOL_TYPE; t98550.s0.value.external_symbol_type = q161; /* x177969 stalin.sc:25683:888584 */ t98551.s0.tag = EXTERNAL_SYMBOL_TYPE; t98551.s0.value.external_symbol_type = q254; /* x177970 stalin.sc:25683:888584 */ t98551.s1.tag = NULL_TYPE; /* x177971 stalin.sc:25683:888584 */ t98550.s1.tag = STRUCTURE_TYPE24753; t98550.s1.value.structure_type24753 = &t98551; /* x177972 stalin.sc:25683:888584 */ t98549.s1.tag = STRUCTURE_TYPE24753; t98549.s1.value.structure_type24753 = &t98550; /* x177973 stalin.sc:25683:888584 */ t98548.s0.tag = STRUCTURE_TYPE24753; t98548.s0.value.structure_type24753 = &t98549; /* x177974 stalin.sc:25683:888584 */ t98553.s0.tag = EXTERNAL_SYMBOL_TYPE; t98553.s0.value.external_symbol_type = q242; /* x177975 stalin.sc:25683:888584 */ t98556.s0.tag = EXTERNAL_SYMBOL_TYPE; t98556.s0.value.external_symbol_type = q260; /* x177976 stalin.sc:25683:888584 */ t98558.s0.tag = EXTERNAL_SYMBOL_TYPE; t98558.s0.value.external_symbol_type = q162; /* x177977 stalin.sc:25683:888584 */ t98559.s0.tag = EXTERNAL_SYMBOL_TYPE; t98559.s0.value.external_symbol_type = q161; /* x177978 stalin.sc:25683:888584 */ t98559.s1.tag = NULL_TYPE; /* x177979 stalin.sc:25683:888584 */ t98558.s1.tag = STRUCTURE_TYPE24753; t98558.s1.value.structure_type24753 = &t98559; /* x177980 stalin.sc:25683:888584 */ t98557.s0.tag = STRUCTURE_TYPE24753; t98557.s0.value.structure_type24753 = &t98558; /* x177981 stalin.sc:25683:888584 */ t98557.s1.tag = NULL_TYPE; /* x177982 stalin.sc:25683:888584 */ t98556.s1.tag = STRUCTURE_TYPE24753; t98556.s1.value.structure_type24753 = &t98557; /* x177983 stalin.sc:25683:888584 */ t98555.s0.tag = STRUCTURE_TYPE24753; t98555.s0.value.structure_type24753 = &t98556; /* x177984 stalin.sc:25683:888584 */ t98555.s1.tag = NULL_TYPE; /* x177985 stalin.sc:25683:888584 */ t98554.s0.tag = STRUCTURE_TYPE24753; t98554.s0.value.structure_type24753 = &t98555; /* x177986 stalin.sc:25683:888584 */ t98561.s0.tag = EXTERNAL_SYMBOL_TYPE; t98561.s0.value.external_symbol_type = q242; /* x177987 stalin.sc:25683:888584 */ t98562.s0.tag = EXTERNAL_SYMBOL_TYPE; t98562.s0.value.external_symbol_type = q287; /* x177988 stalin.sc:25683:888584 */ t98565.s0.tag = EXTERNAL_SYMBOL_TYPE; t98565.s0.value.external_symbol_type = q308; /* x177989 stalin.sc:25683:888584 */ t98566.s0.tag = FIXNUM_TYPE; t98566.s0.value.fixnum_type = 0; /* x177990 stalin.sc:25683:888584 */ t98566.s1.tag = NULL_TYPE; /* x177991 stalin.sc:25683:888584 */ t98565.s1.tag = STRUCTURE_TYPE24753; t98565.s1.value.structure_type24753 = &t98566; /* x177992 stalin.sc:25683:888584 */ t98564.s0.tag = STRUCTURE_TYPE24753; t98564.s0.value.structure_type24753 = &t98565; /* x177993 stalin.sc:25683:888584 */ t98564.s1.tag = NULL_TYPE; /* x177994 stalin.sc:25683:888584 */ t98563.s0.tag = STRUCTURE_TYPE24753; t98563.s0.value.structure_type24753 = &t98564; /* x177995 stalin.sc:25683:888584 */ t98568.s0.tag = EXTERNAL_SYMBOL_TYPE; t98568.s0.value.external_symbol_type = q43; /* x177996 stalin.sc:25683:888584 */ t98570.s0.tag = EXTERNAL_SYMBOL_TYPE; t98570.s0.value.external_symbol_type = q121; /* x177997 stalin.sc:25683:888584 */ t98571.s0.tag = EXTERNAL_SYMBOL_TYPE; t98571.s0.value.external_symbol_type = q308; /* x177998 stalin.sc:25683:888584 */ t98572.s0.tag = EXTERNAL_SYMBOL_TYPE; t98572.s0.value.external_symbol_type = q260; /* x177999 stalin.sc:25683:888584 */ t98572.s1.tag = NULL_TYPE; /* x178000 stalin.sc:25683:888584 */ t98571.s1.tag = STRUCTURE_TYPE24753; t98571.s1.value.structure_type24753 = &t98572; /* x178001 stalin.sc:25683:888584 */ t98570.s1.tag = STRUCTURE_TYPE24753; t98570.s1.value.structure_type24753 = &t98571; /* x178002 stalin.sc:25683:888584 */ t98569.s0.tag = STRUCTURE_TYPE24753; t98569.s0.value.structure_type24753 = &t98570; /* x178003 stalin.sc:25683:888584 */ t98574.s0.tag = EXTERNAL_SYMBOL_TYPE; t98574.s0.value.external_symbol_type = q239; /* x178004 stalin.sc:25683:888584 */ t98576.s0.tag = EXTERNAL_SYMBOL_TYPE; t98576.s0.value.external_symbol_type = q234; /* x178005 stalin.sc:25683:888584 */ t98578.s0.tag = EXTERNAL_SYMBOL_TYPE; t98578.s0.value.external_symbol_type = q163; /* x178006 stalin.sc:25683:888584 */ t98579.s0.tag = EXTERNAL_SYMBOL_TYPE; t98579.s0.value.external_symbol_type = q161; /* x178007 stalin.sc:25683:888584 */ t98580.s0.tag = EXTERNAL_SYMBOL_TYPE; t98580.s0.value.external_symbol_type = q308; /* x178008 stalin.sc:25683:888584 */ t98580.s1.tag = NULL_TYPE; /* x178009 stalin.sc:25683:888584 */ t98579.s1.tag = STRUCTURE_TYPE24753; t98579.s1.value.structure_type24753 = &t98580; /* x178010 stalin.sc:25683:888584 */ t98578.s1.tag = STRUCTURE_TYPE24753; t98578.s1.value.structure_type24753 = &t98579; /* x178011 stalin.sc:25683:888584 */ t98577.s0.tag = STRUCTURE_TYPE24753; t98577.s0.value.structure_type24753 = &t98578; /* x178012 stalin.sc:25683:888584 */ t98581.s0.tag = EXTERNAL_SYMBOL_TYPE; t98581.s0.value.external_symbol_type = q254; /* x178013 stalin.sc:25683:888584 */ t98581.s1.tag = NULL_TYPE; /* x178014 stalin.sc:25683:888584 */ t98577.s1.tag = STRUCTURE_TYPE24753; t98577.s1.value.structure_type24753 = &t98581; /* x178015 stalin.sc:25683:888584 */ t98576.s1.tag = STRUCTURE_TYPE24753; t98576.s1.value.structure_type24753 = &t98577; /* x178016 stalin.sc:25683:888584 */ t98575.s0.tag = STRUCTURE_TYPE24753; t98575.s0.value.structure_type24753 = &t98576; /* x178017 stalin.sc:25683:888584 */ t98583.s0.tag = EXTERNAL_SYMBOL_TYPE; t98583.s0.value.external_symbol_type = q287; /* x178018 stalin.sc:25683:888584 */ t98585.s0.tag = EXTERNAL_SYMBOL_TYPE; t98585.s0.value.external_symbol_type = q4; /* x178019 stalin.sc:25683:888584 */ t98586.s0.tag = EXTERNAL_SYMBOL_TYPE; t98586.s0.value.external_symbol_type = q308; /* x178020 stalin.sc:25683:888584 */ t98587.s0.tag = FIXNUM_TYPE; t98587.s0.value.fixnum_type = 1; /* x178021 stalin.sc:25683:888584 */ t98587.s1.tag = NULL_TYPE; /* x178022 stalin.sc:25683:888584 */ t98586.s1.tag = STRUCTURE_TYPE24753; t98586.s1.value.structure_type24753 = &t98587; /* x178023 stalin.sc:25683:888584 */ t98585.s1.tag = STRUCTURE_TYPE24753; t98585.s1.value.structure_type24753 = &t98586; /* x178024 stalin.sc:25683:888584 */ t98584.s0.tag = STRUCTURE_TYPE24753; t98584.s0.value.structure_type24753 = &t98585; /* x178025 stalin.sc:25683:888584 */ t98584.s1.tag = NULL_TYPE; /* x178026 stalin.sc:25683:888584 */ t98583.s1.tag = STRUCTURE_TYPE24753; t98583.s1.value.structure_type24753 = &t98584; /* x178027 stalin.sc:25683:888584 */ t98582.s0.tag = STRUCTURE_TYPE24753; t98582.s0.value.structure_type24753 = &t98583; /* x178028 stalin.sc:25683:888584 */ t98582.s1.tag = NULL_TYPE; /* x178029 stalin.sc:25683:888584 */ t98575.s1.tag = STRUCTURE_TYPE24753; t98575.s1.value.structure_type24753 = &t98582; /* x178030 stalin.sc:25683:888584 */ t98574.s1.tag = STRUCTURE_TYPE24753; t98574.s1.value.structure_type24753 = &t98575; /* x178031 stalin.sc:25683:888584 */ t98573.s0.tag = STRUCTURE_TYPE24753; t98573.s0.value.structure_type24753 = &t98574; /* x178032 stalin.sc:25683:888584 */ t98573.s1.tag = NULL_TYPE; /* x178033 stalin.sc:25683:888584 */ t98569.s1.tag = STRUCTURE_TYPE24753; t98569.s1.value.structure_type24753 = &t98573; /* x178034 stalin.sc:25683:888584 */ t98568.s1.tag = STRUCTURE_TYPE24753; t98568.s1.value.structure_type24753 = &t98569; /* x178035 stalin.sc:25683:888584 */ t98567.s0.tag = STRUCTURE_TYPE24753; t98567.s0.value.structure_type24753 = &t98568; /* x178036 stalin.sc:25683:888584 */ t98567.s1.tag = NULL_TYPE; /* x178037 stalin.sc:25683:888584 */ t98563.s1.tag = STRUCTURE_TYPE24753; t98563.s1.value.structure_type24753 = &t98567; /* x178038 stalin.sc:25683:888584 */ t98562.s1.tag = STRUCTURE_TYPE24753; t98562.s1.value.structure_type24753 = &t98563; /* x178039 stalin.sc:25683:888584 */ t98561.s1.tag = STRUCTURE_TYPE24753; t98561.s1.value.structure_type24753 = &t98562; /* x178040 stalin.sc:25683:888584 */ t98560.s0.tag = STRUCTURE_TYPE24753; t98560.s0.value.structure_type24753 = &t98561; /* x178041 stalin.sc:25683:888584 */ t98560.s1.tag = NULL_TYPE; /* x178042 stalin.sc:25683:888584 */ t98554.s1.tag = STRUCTURE_TYPE24753; t98554.s1.value.structure_type24753 = &t98560; /* x178043 stalin.sc:25683:888584 */ t98553.s1.tag = STRUCTURE_TYPE24753; t98553.s1.value.structure_type24753 = &t98554; /* x178044 stalin.sc:25683:888584 */ t98552.s0.tag = STRUCTURE_TYPE24753; t98552.s0.value.structure_type24753 = &t98553; /* x178045 stalin.sc:25683:888584 */ t98552.s1.tag = NULL_TYPE; /* x178046 stalin.sc:25683:888584 */ t98548.s1.tag = STRUCTURE_TYPE24753; t98548.s1.value.structure_type24753 = &t98552; /* x178047 stalin.sc:25683:888584 */ t98547.s1.tag = STRUCTURE_TYPE24753; t98547.s1.value.structure_type24753 = &t98548; /* x178048 stalin.sc:25683:888584 */ t98546.s0.tag = STRUCTURE_TYPE24753; t98546.s0.value.structure_type24753 = &t98547; /* x178049 stalin.sc:25683:888584 */ t98589.s0.tag = EXTERNAL_SYMBOL_TYPE; t98589.s0.value.external_symbol_type = q97; /* x178050 stalin.sc:25683:888584 */ t98591.s0.tag = EXTERNAL_SYMBOL_TYPE; t98591.s0.value.external_symbol_type = q309; /* x178051 stalin.sc:25683:888584 */ t98592.s0.tag = EXTERNAL_SYMBOL_TYPE; t98592.s0.value.external_symbol_type = q310; /* x178052 stalin.sc:25683:888584 */ t98593.s0.tag = EXTERNAL_SYMBOL_TYPE; t98593.s0.value.external_symbol_type = q254; /* x178053 stalin.sc:25683:888584 */ t98593.s1.tag = NULL_TYPE; /* x178054 stalin.sc:25683:888584 */ t98592.s1.tag = STRUCTURE_TYPE24753; t98592.s1.value.structure_type24753 = &t98593; /* x178055 stalin.sc:25683:888584 */ t98591.s1.tag = STRUCTURE_TYPE24753; t98591.s1.value.structure_type24753 = &t98592; /* x178056 stalin.sc:25683:888584 */ t98590.s0.tag = STRUCTURE_TYPE24753; t98590.s0.value.structure_type24753 = &t98591; /* x178057 stalin.sc:25683:888584 */ t98595.s0.tag = EXTERNAL_SYMBOL_TYPE; t98595.s0.value.external_symbol_type = q240; /* x178058 stalin.sc:25683:888584 */ t98598.s0.tag = EXTERNAL_SYMBOL_TYPE; t98598.s0.value.external_symbol_type = q126; /* x178059 stalin.sc:25683:888584 */ t98599.s0.tag = EXTERNAL_SYMBOL_TYPE; t98599.s0.value.external_symbol_type = q310; /* x178060 stalin.sc:25683:888584 */ t98599.s1.tag = NULL_TYPE; /* x178061 stalin.sc:25683:888584 */ t98598.s1.tag = STRUCTURE_TYPE24753; t98598.s1.value.structure_type24753 = &t98599; /* x178062 stalin.sc:25683:888584 */ t98597.s0.tag = STRUCTURE_TYPE24753; t98597.s0.value.structure_type24753 = &t98598; /* x178063 stalin.sc:25683:888584 */ t98601.s0.tag = EXTERNAL_SYMBOL_TYPE; t98601.s0.value.external_symbol_type = q242; /* x178064 stalin.sc:25683:888584 */ t98602.s0.tag = EXTERNAL_SYMBOL_TYPE; t98602.s0.value.external_symbol_type = q287; /* x178065 stalin.sc:25683:888584 */ t98605.s0.tag = EXTERNAL_SYMBOL_TYPE; t98605.s0.value.external_symbol_type = q308; /* x178066 stalin.sc:25683:888584 */ t98606.s0.tag = FIXNUM_TYPE; t98606.s0.value.fixnum_type = 0; /* x178067 stalin.sc:25683:888584 */ t98606.s1.tag = NULL_TYPE; /* x178068 stalin.sc:25683:888584 */ t98605.s1.tag = STRUCTURE_TYPE24753; t98605.s1.value.structure_type24753 = &t98606; /* x178069 stalin.sc:25683:888584 */ t98604.s0.tag = STRUCTURE_TYPE24753; t98604.s0.value.structure_type24753 = &t98605; /* x178070 stalin.sc:25683:888584 */ t98608.s0.tag = EXTERNAL_SYMBOL_TYPE; t98608.s0.value.external_symbol_type = q310; /* x178071 stalin.sc:25683:888584 */ t98609.s0.tag = EXTERNAL_SYMBOL_TYPE; t98609.s0.value.external_symbol_type = q310; /* x178072 stalin.sc:25683:888584 */ t98609.s1.tag = NULL_TYPE; /* x178073 stalin.sc:25683:888584 */ t98608.s1.tag = STRUCTURE_TYPE24753; t98608.s1.value.structure_type24753 = &t98609; /* x178074 stalin.sc:25683:888584 */ t98607.s0.tag = STRUCTURE_TYPE24753; t98607.s0.value.structure_type24753 = &t98608; /* x178075 stalin.sc:25683:888584 */ t98607.s1.tag = NULL_TYPE; /* x178076 stalin.sc:25683:888584 */ t98604.s1.tag = STRUCTURE_TYPE24753; t98604.s1.value.structure_type24753 = &t98607; /* x178077 stalin.sc:25683:888584 */ t98603.s0.tag = STRUCTURE_TYPE24753; t98603.s0.value.structure_type24753 = &t98604; /* x178078 stalin.sc:25683:888584 */ t98611.s0.tag = EXTERNAL_SYMBOL_TYPE; t98611.s0.value.external_symbol_type = q43; /* x178079 stalin.sc:25683:888584 */ t98613.s0.tag = EXTERNAL_SYMBOL_TYPE; t98613.s0.value.external_symbol_type = q125; /* x178080 stalin.sc:25683:888584 */ t98614.s0.tag = EXTERNAL_SYMBOL_TYPE; t98614.s0.value.external_symbol_type = q310; /* x178081 stalin.sc:25683:888584 */ t98614.s1.tag = NULL_TYPE; /* x178082 stalin.sc:25683:888584 */ t98613.s1.tag = STRUCTURE_TYPE24753; t98613.s1.value.structure_type24753 = &t98614; /* x178083 stalin.sc:25683:888584 */ t98612.s0.tag = STRUCTURE_TYPE24753; t98612.s0.value.structure_type24753 = &t98613; /* x178084 stalin.sc:25683:888584 */ t98616.s0.tag = EXTERNAL_SYMBOL_TYPE; t98616.s0.value.external_symbol_type = q242; /* x178085 stalin.sc:25683:888584 */ t98617.s0.tag = EXTERNAL_SYMBOL_TYPE; t98617.s0.value.external_symbol_type = q287; /* x178086 stalin.sc:25683:888584 */ t98620.s0.tag = EXTERNAL_SYMBOL_TYPE; t98620.s0.value.external_symbol_type = q308; /* x178087 stalin.sc:25683:888584 */ t98622.s0.tag = EXTERNAL_SYMBOL_TYPE; t98622.s0.value.external_symbol_type = q2; /* x178088 stalin.sc:25683:888584 */ t98623.s0.tag = EXTERNAL_SYMBOL_TYPE; t98623.s0.value.external_symbol_type = q308; /* x178089 stalin.sc:25683:888584 */ t98624.s0.tag = FIXNUM_TYPE; t98624.s0.value.fixnum_type = 1; /* x178090 stalin.sc:25683:888584 */ t98624.s1.tag = NULL_TYPE; /* x178091 stalin.sc:25683:888584 */ t98623.s1.tag = STRUCTURE_TYPE24753; t98623.s1.value.structure_type24753 = &t98624; /* x178092 stalin.sc:25683:888584 */ t98622.s1.tag = STRUCTURE_TYPE24753; t98622.s1.value.structure_type24753 = &t98623; /* x178093 stalin.sc:25683:888584 */ t98621.s0.tag = STRUCTURE_TYPE24753; t98621.s0.value.structure_type24753 = &t98622; /* x178094 stalin.sc:25683:888584 */ t98621.s1.tag = NULL_TYPE; /* x178095 stalin.sc:25683:888584 */ t98620.s1.tag = STRUCTURE_TYPE24753; t98620.s1.value.structure_type24753 = &t98621; /* x178096 stalin.sc:25683:888584 */ t98619.s0.tag = STRUCTURE_TYPE24753; t98619.s0.value.structure_type24753 = &t98620; /* x178097 stalin.sc:25683:888584 */ t98619.s1.tag = NULL_TYPE; /* x178098 stalin.sc:25683:888584 */ t98618.s0.tag = STRUCTURE_TYPE24753; t98618.s0.value.structure_type24753 = &t98619; /* x178099 stalin.sc:25683:888584 */ t98626.s0.tag = EXTERNAL_SYMBOL_TYPE; t98626.s0.value.external_symbol_type = q234; /* x178100 stalin.sc:25683:888584 */ t98628.s0.tag = EXTERNAL_SYMBOL_TYPE; t98628.s0.value.external_symbol_type = q158; /* x178101 stalin.sc:25683:888584 */ t98630.s0.tag = EXTERNAL_SYMBOL_TYPE; t98630.s0.value.external_symbol_type = q4; /* x178102 stalin.sc:25683:888584 */ t98632.s0.tag = EXTERNAL_SYMBOL_TYPE; t98632.s0.value.external_symbol_type = q157; /* x178103 stalin.sc:25683:888584 */ t98633.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x178104 stalin.sc:25683:888584 */ t98633.s1.tag = NULL_TYPE; /* x178105 stalin.sc:25683:888584 */ t98632.s1.tag = STRUCTURE_TYPE24753; t98632.s1.value.structure_type24753 = &t98633; /* x178106 stalin.sc:25683:888584 */ t98631.s0.tag = STRUCTURE_TYPE24753; t98631.s0.value.structure_type24753 = &t98632; /* x178107 stalin.sc:25683:888584 */ t98635.s0.tag = EXTERNAL_SYMBOL_TYPE; t98635.s0.value.external_symbol_type = q169; /* x178108 stalin.sc:25683:888584 */ t98636.s0.tag = EXTERNAL_SYMBOL_TYPE; t98636.s0.value.external_symbol_type = q302; /* x178109 stalin.sc:25683:888584 */ t98637.s0.tag = EXTERNAL_SYMBOL_TYPE; t98637.s0.value.external_symbol_type = q308; /* x178110 stalin.sc:25683:888584 */ t98637.s1.tag = NULL_TYPE; /* x178111 stalin.sc:25683:888584 */ t98636.s1.tag = STRUCTURE_TYPE24753; t98636.s1.value.structure_type24753 = &t98637; /* x178112 stalin.sc:25683:888584 */ t98635.s1.tag = STRUCTURE_TYPE24753; t98635.s1.value.structure_type24753 = &t98636; /* x178113 stalin.sc:25683:888584 */ t98634.s0.tag = STRUCTURE_TYPE24753; t98634.s0.value.structure_type24753 = &t98635; /* x178114 stalin.sc:25683:888584 */ t98634.s1.tag = NULL_TYPE; /* x178115 stalin.sc:25683:888584 */ t98631.s1.tag = STRUCTURE_TYPE24753; t98631.s1.value.structure_type24753 = &t98634; /* x178116 stalin.sc:25683:888584 */ t98630.s1.tag = STRUCTURE_TYPE24753; t98630.s1.value.structure_type24753 = &t98631; /* x178117 stalin.sc:25683:888584 */ t98629.s0.tag = STRUCTURE_TYPE24753; t98629.s0.value.structure_type24753 = &t98630; /* x178118 stalin.sc:25683:888584 */ t98629.s1.tag = NULL_TYPE; /* x178119 stalin.sc:25683:888584 */ t98628.s1.tag = STRUCTURE_TYPE24753; t98628.s1.value.structure_type24753 = &t98629; /* x178120 stalin.sc:25683:888584 */ t98627.s0.tag = STRUCTURE_TYPE24753; t98627.s0.value.structure_type24753 = &t98628; /* x178121 stalin.sc:25683:888584 */ t98638.s0.tag = EXTERNAL_SYMBOL_TYPE; t98638.s0.value.external_symbol_type = q254; /* x178122 stalin.sc:25683:888584 */ t98638.s1.tag = NULL_TYPE; /* x178123 stalin.sc:25683:888584 */ t98627.s1.tag = STRUCTURE_TYPE24753; t98627.s1.value.structure_type24753 = &t98638; /* x178124 stalin.sc:25683:888584 */ t98626.s1.tag = STRUCTURE_TYPE24753; t98626.s1.value.structure_type24753 = &t98627; /* x178125 stalin.sc:25683:888584 */ t98625.s0.tag = STRUCTURE_TYPE24753; t98625.s0.value.structure_type24753 = &t98626; /* x178126 stalin.sc:25683:888584 */ t98640.s0.tag = EXTERNAL_SYMBOL_TYPE; t98640.s0.value.external_symbol_type = q43; /* x178127 stalin.sc:25683:888584 */ t98642.s0.tag = EXTERNAL_SYMBOL_TYPE; t98642.s0.value.external_symbol_type = q102; /* x178128 stalin.sc:25683:888584 */ t98644.s0.tag = EXTERNAL_SYMBOL_TYPE; t98644.s0.value.external_symbol_type = q125; /* x178129 stalin.sc:25683:888584 */ t98645.s0.tag = EXTERNAL_SYMBOL_TYPE; t98645.s0.value.external_symbol_type = q308; /* x178130 stalin.sc:25683:888584 */ t98645.s1.tag = NULL_TYPE; /* x178131 stalin.sc:25683:888584 */ t98644.s1.tag = STRUCTURE_TYPE24753; t98644.s1.value.structure_type24753 = &t98645; /* x178132 stalin.sc:25683:888584 */ t98643.s0.tag = STRUCTURE_TYPE24753; t98643.s0.value.structure_type24753 = &t98644; /* x178133 stalin.sc:25683:888584 */ t98643.s1.tag = NULL_TYPE; /* x178134 stalin.sc:25683:888584 */ t98642.s1.tag = STRUCTURE_TYPE24753; t98642.s1.value.structure_type24753 = &t98643; /* x178135 stalin.sc:25683:888584 */ t98641.s0.tag = STRUCTURE_TYPE24753; t98641.s0.value.structure_type24753 = &t98642; /* x178136 stalin.sc:25683:888584 */ t98647.s0.tag = EXTERNAL_SYMBOL_TYPE; t98647.s0.value.external_symbol_type = q287; /* x178137 stalin.sc:25683:888584 */ t98649.s0.tag = EXTERNAL_SYMBOL_TYPE; t98649.s0.value.external_symbol_type = q2; /* x178138 stalin.sc:25683:888584 */ t98650.s0.tag = EXTERNAL_SYMBOL_TYPE; t98650.s0.value.external_symbol_type = q308; /* x178139 stalin.sc:25683:888584 */ t98651.s0.tag = FIXNUM_TYPE; t98651.s0.value.fixnum_type = 1; /* x178140 stalin.sc:25683:888584 */ t98651.s1.tag = NULL_TYPE; /* x178141 stalin.sc:25683:888584 */ t98650.s1.tag = STRUCTURE_TYPE24753; t98650.s1.value.structure_type24753 = &t98651; /* x178142 stalin.sc:25683:888584 */ t98649.s1.tag = STRUCTURE_TYPE24753; t98649.s1.value.structure_type24753 = &t98650; /* x178143 stalin.sc:25683:888584 */ t98648.s0.tag = STRUCTURE_TYPE24753; t98648.s0.value.structure_type24753 = &t98649; /* x178144 stalin.sc:25683:888584 */ t98648.s1.tag = NULL_TYPE; /* x178145 stalin.sc:25683:888584 */ t98647.s1.tag = STRUCTURE_TYPE24753; t98647.s1.value.structure_type24753 = &t98648; /* x178146 stalin.sc:25683:888584 */ t98646.s0.tag = STRUCTURE_TYPE24753; t98646.s0.value.structure_type24753 = &t98647; /* x178147 stalin.sc:25683:888584 */ t98646.s1.tag = NULL_TYPE; /* x178148 stalin.sc:25683:888584 */ t98641.s1.tag = STRUCTURE_TYPE24753; t98641.s1.value.structure_type24753 = &t98646; /* x178149 stalin.sc:25683:888584 */ t98640.s1.tag = STRUCTURE_TYPE24753; t98640.s1.value.structure_type24753 = &t98641; /* x178150 stalin.sc:25683:888584 */ t98639.s0.tag = STRUCTURE_TYPE24753; t98639.s0.value.structure_type24753 = &t98640; /* x178151 stalin.sc:25683:888584 */ t98639.s1.tag = NULL_TYPE; /* x178152 stalin.sc:25683:888584 */ t98625.s1.tag = STRUCTURE_TYPE24753; t98625.s1.value.structure_type24753 = &t98639; /* x178153 stalin.sc:25683:888584 */ t98618.s1.tag = STRUCTURE_TYPE24753; t98618.s1.value.structure_type24753 = &t98625; /* x178154 stalin.sc:25683:888584 */ t98617.s1.tag = STRUCTURE_TYPE24753; t98617.s1.value.structure_type24753 = &t98618; /* x178155 stalin.sc:25683:888584 */ t98616.s1.tag = STRUCTURE_TYPE24753; t98616.s1.value.structure_type24753 = &t98617; /* x178156 stalin.sc:25683:888584 */ t98615.s0.tag = STRUCTURE_TYPE24753; t98615.s0.value.structure_type24753 = &t98616; /* x178157 stalin.sc:25683:888584 */ t98653.s0.tag = EXTERNAL_SYMBOL_TYPE; t98653.s0.value.external_symbol_type = q239; /* x178158 stalin.sc:25683:888584 */ t98655.s0.tag = EXTERNAL_SYMBOL_TYPE; t98655.s0.value.external_symbol_type = q170; /* x178159 stalin.sc:25683:888584 */ t98656.s0.tag = EXTERNAL_SYMBOL_TYPE; t98656.s0.value.external_symbol_type = q302; /* x178160 stalin.sc:25683:888584 */ t98657.s0.tag = EXTERNAL_SYMBOL_TYPE; t98657.s0.value.external_symbol_type = q308; /* x178161 stalin.sc:25683:888584 */ t98659.s0.tag = EXTERNAL_SYMBOL_TYPE; t98659.s0.value.external_symbol_type = q133; /* x178162 stalin.sc:25683:888584 */ t98660.s0.tag = EXTERNAL_SYMBOL_TYPE; t98660.s0.value.external_symbol_type = q310; /* x178163 stalin.sc:25683:888584 */ t98661.s0.tag = FIXNUM_TYPE; t98661.s0.value.fixnum_type = 10; /* x178164 stalin.sc:25683:888584 */ t98661.s1.tag = NULL_TYPE; /* x178165 stalin.sc:25683:888584 */ t98660.s1.tag = STRUCTURE_TYPE24753; t98660.s1.value.structure_type24753 = &t98661; /* x178166 stalin.sc:25683:888584 */ t98659.s1.tag = STRUCTURE_TYPE24753; t98659.s1.value.structure_type24753 = &t98660; /* x178167 stalin.sc:25683:888584 */ t98658.s0.tag = STRUCTURE_TYPE24753; t98658.s0.value.structure_type24753 = &t98659; /* x178168 stalin.sc:25683:888584 */ t98658.s1.tag = NULL_TYPE; /* x178169 stalin.sc:25683:888584 */ t98657.s1.tag = STRUCTURE_TYPE24753; t98657.s1.value.structure_type24753 = &t98658; /* x178170 stalin.sc:25683:888584 */ t98656.s1.tag = STRUCTURE_TYPE24753; t98656.s1.value.structure_type24753 = &t98657; /* x178171 stalin.sc:25683:888584 */ t98655.s1.tag = STRUCTURE_TYPE24753; t98655.s1.value.structure_type24753 = &t98656; /* x178172 stalin.sc:25683:888584 */ t98654.s0.tag = STRUCTURE_TYPE24753; t98654.s0.value.structure_type24753 = &t98655; /* x178173 stalin.sc:25683:888584 */ t98663.s0.tag = EXTERNAL_SYMBOL_TYPE; t98663.s0.value.external_symbol_type = q287; /* x178174 stalin.sc:25683:888584 */ t98665.s0.tag = EXTERNAL_SYMBOL_TYPE; t98665.s0.value.external_symbol_type = q4; /* x178175 stalin.sc:25683:888584 */ t98666.s0.tag = EXTERNAL_SYMBOL_TYPE; t98666.s0.value.external_symbol_type = q308; /* x178176 stalin.sc:25683:888584 */ t98667.s0.tag = FIXNUM_TYPE; t98667.s0.value.fixnum_type = 1; /* x178177 stalin.sc:25683:888584 */ t98667.s1.tag = NULL_TYPE; /* x178178 stalin.sc:25683:888584 */ t98666.s1.tag = STRUCTURE_TYPE24753; t98666.s1.value.structure_type24753 = &t98667; /* x178179 stalin.sc:25683:888584 */ t98665.s1.tag = STRUCTURE_TYPE24753; t98665.s1.value.structure_type24753 = &t98666; /* x178180 stalin.sc:25683:888584 */ t98664.s0.tag = STRUCTURE_TYPE24753; t98664.s0.value.structure_type24753 = &t98665; /* x178181 stalin.sc:25683:888584 */ t98669.s0.tag = EXTERNAL_SYMBOL_TYPE; t98669.s0.value.external_symbol_type = q132; /* x178182 stalin.sc:25683:888584 */ t98670.s0.tag = EXTERNAL_SYMBOL_TYPE; t98670.s0.value.external_symbol_type = q310; /* x178183 stalin.sc:25683:888584 */ t98671.s0.tag = FIXNUM_TYPE; t98671.s0.value.fixnum_type = 10; /* x178184 stalin.sc:25683:888584 */ t98671.s1.tag = NULL_TYPE; /* x178185 stalin.sc:25683:888584 */ t98670.s1.tag = STRUCTURE_TYPE24753; t98670.s1.value.structure_type24753 = &t98671; /* x178186 stalin.sc:25683:888584 */ t98669.s1.tag = STRUCTURE_TYPE24753; t98669.s1.value.structure_type24753 = &t98670; /* x178187 stalin.sc:25683:888584 */ t98668.s0.tag = STRUCTURE_TYPE24753; t98668.s0.value.structure_type24753 = &t98669; /* x178188 stalin.sc:25683:888584 */ t98668.s1.tag = NULL_TYPE; /* x178189 stalin.sc:25683:888584 */ t98664.s1.tag = STRUCTURE_TYPE24753; t98664.s1.value.structure_type24753 = &t98668; /* x178190 stalin.sc:25683:888584 */ t98663.s1.tag = STRUCTURE_TYPE24753; t98663.s1.value.structure_type24753 = &t98664; /* x178191 stalin.sc:25683:888584 */ t98662.s0.tag = STRUCTURE_TYPE24753; t98662.s0.value.structure_type24753 = &t98663; /* x178192 stalin.sc:25683:888584 */ t98662.s1.tag = NULL_TYPE; /* x178193 stalin.sc:25683:888584 */ t98654.s1.tag = STRUCTURE_TYPE24753; t98654.s1.value.structure_type24753 = &t98662; /* x178194 stalin.sc:25683:888584 */ t98653.s1.tag = STRUCTURE_TYPE24753; t98653.s1.value.structure_type24753 = &t98654; /* x178195 stalin.sc:25683:888584 */ t98652.s0.tag = STRUCTURE_TYPE24753; t98652.s0.value.structure_type24753 = &t98653; /* x178196 stalin.sc:25683:888584 */ t98652.s1.tag = NULL_TYPE; /* x178197 stalin.sc:25683:888584 */ t98615.s1.tag = STRUCTURE_TYPE24753; t98615.s1.value.structure_type24753 = &t98652; /* x178198 stalin.sc:25683:888584 */ t98612.s1.tag = STRUCTURE_TYPE24753; t98612.s1.value.structure_type24753 = &t98615; /* x178199 stalin.sc:25683:888584 */ t98611.s1.tag = STRUCTURE_TYPE24753; t98611.s1.value.structure_type24753 = &t98612; /* x178200 stalin.sc:25683:888584 */ t98610.s0.tag = STRUCTURE_TYPE24753; t98610.s0.value.structure_type24753 = &t98611; /* x178201 stalin.sc:25683:888584 */ t98610.s1.tag = NULL_TYPE; /* x178202 stalin.sc:25683:888584 */ t98603.s1.tag = STRUCTURE_TYPE24753; t98603.s1.value.structure_type24753 = &t98610; /* x178203 stalin.sc:25683:888584 */ t98602.s1.tag = STRUCTURE_TYPE24753; t98602.s1.value.structure_type24753 = &t98603; /* x178204 stalin.sc:25683:888584 */ t98601.s1.tag = STRUCTURE_TYPE24753; t98601.s1.value.structure_type24753 = &t98602; /* x178205 stalin.sc:25683:888584 */ t98600.s0.tag = STRUCTURE_TYPE24753; t98600.s0.value.structure_type24753 = &t98601; /* x178206 stalin.sc:25683:888584 */ t98600.s1.tag = NULL_TYPE; /* x178207 stalin.sc:25683:888584 */ t98597.s1.tag = STRUCTURE_TYPE24753; t98597.s1.value.structure_type24753 = &t98600; /* x178208 stalin.sc:25683:888584 */ t98596.s0.tag = STRUCTURE_TYPE24753; t98596.s0.value.structure_type24753 = &t98597; /* x178209 stalin.sc:25683:888584 */ t98674.s0.tag = EXTERNAL_SYMBOL_TYPE; t98674.s0.value.external_symbol_type = q127; /* x178210 stalin.sc:25683:888584 */ t98675.s0.tag = EXTERNAL_SYMBOL_TYPE; t98675.s0.value.external_symbol_type = q310; /* x178211 stalin.sc:25683:888584 */ t98675.s1.tag = NULL_TYPE; /* x178212 stalin.sc:25683:888584 */ t98674.s1.tag = STRUCTURE_TYPE24753; t98674.s1.value.structure_type24753 = &t98675; /* x178213 stalin.sc:25683:888584 */ t98673.s0.tag = STRUCTURE_TYPE24753; t98673.s0.value.structure_type24753 = &t98674; /* x178214 stalin.sc:25683:888584 */ t98677.s0.tag = EXTERNAL_SYMBOL_TYPE; t98677.s0.value.external_symbol_type = q234; /* x178215 stalin.sc:25683:888584 */ t98678.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x178216 stalin.sc:25683:888584 */ t98679.s0.tag = EXTERNAL_SYMBOL_TYPE; t98679.s0.value.external_symbol_type = q254; /* x178217 stalin.sc:25683:888584 */ t98679.s1.tag = NULL_TYPE; /* x178218 stalin.sc:25683:888584 */ t98678.s1.tag = STRUCTURE_TYPE24753; t98678.s1.value.structure_type24753 = &t98679; /* x178219 stalin.sc:25683:888584 */ t98677.s1.tag = STRUCTURE_TYPE24753; t98677.s1.value.structure_type24753 = &t98678; /* x178220 stalin.sc:25683:888584 */ t98676.s0.tag = STRUCTURE_TYPE24753; t98676.s0.value.structure_type24753 = &t98677; /* x178221 stalin.sc:25683:888584 */ t98681.s0.tag = EXTERNAL_SYMBOL_TYPE; t98681.s0.value.external_symbol_type = q242; /* x178222 stalin.sc:25683:888584 */ t98682.s0.tag = EXTERNAL_SYMBOL_TYPE; t98682.s0.value.external_symbol_type = q287; /* x178223 stalin.sc:25683:888584 */ t98685.s0.tag = EXTERNAL_SYMBOL_TYPE; t98685.s0.value.external_symbol_type = q308; /* x178224 stalin.sc:25683:888584 */ t98686.s0.tag = FIXNUM_TYPE; t98686.s0.value.fixnum_type = 0; /* x178225 stalin.sc:25683:888584 */ t98686.s1.tag = NULL_TYPE; /* x178226 stalin.sc:25683:888584 */ t98685.s1.tag = STRUCTURE_TYPE24753; t98685.s1.value.structure_type24753 = &t98686; /* x178227 stalin.sc:25683:888584 */ t98684.s0.tag = STRUCTURE_TYPE24753; t98684.s0.value.structure_type24753 = &t98685; /* x178228 stalin.sc:25683:888584 */ t98688.s0.tag = EXTERNAL_SYMBOL_TYPE; t98688.s0.value.external_symbol_type = q310; /* x178229 stalin.sc:25683:888584 */ t98689.s0.tag = EXTERNAL_SYMBOL_TYPE; t98689.s0.value.external_symbol_type = q310; /* x178230 stalin.sc:25683:888584 */ t98689.s1.tag = NULL_TYPE; /* x178231 stalin.sc:25683:888584 */ t98688.s1.tag = STRUCTURE_TYPE24753; t98688.s1.value.structure_type24753 = &t98689; /* x178232 stalin.sc:25683:888584 */ t98687.s0.tag = STRUCTURE_TYPE24753; t98687.s0.value.structure_type24753 = &t98688; /* x178233 stalin.sc:25683:888584 */ t98687.s1.tag = NULL_TYPE; /* x178234 stalin.sc:25683:888584 */ t98684.s1.tag = STRUCTURE_TYPE24753; t98684.s1.value.structure_type24753 = &t98687; /* x178235 stalin.sc:25683:888584 */ t98683.s0.tag = STRUCTURE_TYPE24753; t98683.s0.value.structure_type24753 = &t98684; /* x178236 stalin.sc:25683:888584 */ t98691.s0.tag = EXTERNAL_SYMBOL_TYPE; t98691.s0.value.external_symbol_type = q43; /* x178237 stalin.sc:25683:888584 */ t98693.s0.tag = EXTERNAL_SYMBOL_TYPE; t98693.s0.value.external_symbol_type = q125; /* x178238 stalin.sc:25683:888584 */ t98694.s0.tag = EXTERNAL_SYMBOL_TYPE; t98694.s0.value.external_symbol_type = q310; /* x178239 stalin.sc:25683:888584 */ t98694.s1.tag = NULL_TYPE; /* x178240 stalin.sc:25683:888584 */ t98693.s1.tag = STRUCTURE_TYPE24753; t98693.s1.value.structure_type24753 = &t98694; /* x178241 stalin.sc:25683:888584 */ t98692.s0.tag = STRUCTURE_TYPE24753; t98692.s0.value.structure_type24753 = &t98693; /* x178242 stalin.sc:25683:888584 */ t98696.s0.tag = EXTERNAL_SYMBOL_TYPE; t98696.s0.value.external_symbol_type = q242; /* x178243 stalin.sc:25683:888584 */ t98697.s0.tag = EXTERNAL_SYMBOL_TYPE; t98697.s0.value.external_symbol_type = q287; /* x178244 stalin.sc:25683:888584 */ t98700.s0.tag = EXTERNAL_SYMBOL_TYPE; t98700.s0.value.external_symbol_type = q308; /* x178245 stalin.sc:25683:888584 */ t98702.s0.tag = EXTERNAL_SYMBOL_TYPE; t98702.s0.value.external_symbol_type = q2; /* x178246 stalin.sc:25683:888584 */ t98703.s0.tag = EXTERNAL_SYMBOL_TYPE; t98703.s0.value.external_symbol_type = q308; /* x178247 stalin.sc:25683:888584 */ t98704.s0.tag = FIXNUM_TYPE; t98704.s0.value.fixnum_type = 1; /* x178248 stalin.sc:25683:888584 */ t98704.s1.tag = NULL_TYPE; /* x178249 stalin.sc:25683:888584 */ t98703.s1.tag = STRUCTURE_TYPE24753; t98703.s1.value.structure_type24753 = &t98704; /* x178250 stalin.sc:25683:888584 */ t98702.s1.tag = STRUCTURE_TYPE24753; t98702.s1.value.structure_type24753 = &t98703; /* x178251 stalin.sc:25683:888584 */ t98701.s0.tag = STRUCTURE_TYPE24753; t98701.s0.value.structure_type24753 = &t98702; /* x178252 stalin.sc:25683:888584 */ t98701.s1.tag = NULL_TYPE; /* x178253 stalin.sc:25683:888584 */ t98700.s1.tag = STRUCTURE_TYPE24753; t98700.s1.value.structure_type24753 = &t98701; /* x178254 stalin.sc:25683:888584 */ t98699.s0.tag = STRUCTURE_TYPE24753; t98699.s0.value.structure_type24753 = &t98700; /* x178255 stalin.sc:25683:888584 */ t98699.s1.tag = NULL_TYPE; /* x178256 stalin.sc:25683:888584 */ t98698.s0.tag = STRUCTURE_TYPE24753; t98698.s0.value.structure_type24753 = &t98699; /* x178257 stalin.sc:25683:888584 */ t98706.s0.tag = EXTERNAL_SYMBOL_TYPE; t98706.s0.value.external_symbol_type = q234; /* x178258 stalin.sc:25683:888584 */ t98708.s0.tag = EXTERNAL_SYMBOL_TYPE; t98708.s0.value.external_symbol_type = q158; /* x178259 stalin.sc:25683:888584 */ t98710.s0.tag = EXTERNAL_SYMBOL_TYPE; t98710.s0.value.external_symbol_type = q4; /* x178260 stalin.sc:25683:888584 */ t98712.s0.tag = EXTERNAL_SYMBOL_TYPE; t98712.s0.value.external_symbol_type = q157; /* x178261 stalin.sc:25683:888584 */ t98713.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x178262 stalin.sc:25683:888584 */ t98713.s1.tag = NULL_TYPE; /* x178263 stalin.sc:25683:888584 */ t98712.s1.tag = STRUCTURE_TYPE24753; t98712.s1.value.structure_type24753 = &t98713; /* x178264 stalin.sc:25683:888584 */ t98711.s0.tag = STRUCTURE_TYPE24753; t98711.s0.value.structure_type24753 = &t98712; /* x178265 stalin.sc:25683:888584 */ t98715.s0.tag = EXTERNAL_SYMBOL_TYPE; t98715.s0.value.external_symbol_type = q169; /* x178266 stalin.sc:25683:888584 */ t98716.s0.tag = EXTERNAL_SYMBOL_TYPE; t98716.s0.value.external_symbol_type = q302; /* x178267 stalin.sc:25683:888584 */ t98717.s0.tag = EXTERNAL_SYMBOL_TYPE; t98717.s0.value.external_symbol_type = q308; /* x178268 stalin.sc:25683:888584 */ t98717.s1.tag = NULL_TYPE; /* x178269 stalin.sc:25683:888584 */ t98716.s1.tag = STRUCTURE_TYPE24753; t98716.s1.value.structure_type24753 = &t98717; /* x178270 stalin.sc:25683:888584 */ t98715.s1.tag = STRUCTURE_TYPE24753; t98715.s1.value.structure_type24753 = &t98716; /* x178271 stalin.sc:25683:888584 */ t98714.s0.tag = STRUCTURE_TYPE24753; t98714.s0.value.structure_type24753 = &t98715; /* x178272 stalin.sc:25683:888584 */ t98714.s1.tag = NULL_TYPE; /* x178273 stalin.sc:25683:888584 */ t98711.s1.tag = STRUCTURE_TYPE24753; t98711.s1.value.structure_type24753 = &t98714; /* x178274 stalin.sc:25683:888584 */ t98710.s1.tag = STRUCTURE_TYPE24753; t98710.s1.value.structure_type24753 = &t98711; /* x178275 stalin.sc:25683:888584 */ t98709.s0.tag = STRUCTURE_TYPE24753; t98709.s0.value.structure_type24753 = &t98710; /* x178276 stalin.sc:25683:888584 */ t98709.s1.tag = NULL_TYPE; /* x178277 stalin.sc:25683:888584 */ t98708.s1.tag = STRUCTURE_TYPE24753; t98708.s1.value.structure_type24753 = &t98709; /* x178278 stalin.sc:25683:888584 */ t98707.s0.tag = STRUCTURE_TYPE24753; t98707.s0.value.structure_type24753 = &t98708; /* x178279 stalin.sc:25683:888584 */ t98718.s0.tag = EXTERNAL_SYMBOL_TYPE; t98718.s0.value.external_symbol_type = q254; /* x178280 stalin.sc:25683:888584 */ t98718.s1.tag = NULL_TYPE; /* x178281 stalin.sc:25683:888584 */ t98707.s1.tag = STRUCTURE_TYPE24753; t98707.s1.value.structure_type24753 = &t98718; /* x178282 stalin.sc:25683:888584 */ t98706.s1.tag = STRUCTURE_TYPE24753; t98706.s1.value.structure_type24753 = &t98707; /* x178283 stalin.sc:25683:888584 */ t98705.s0.tag = STRUCTURE_TYPE24753; t98705.s0.value.structure_type24753 = &t98706; /* x178284 stalin.sc:25683:888584 */ t98720.s0.tag = EXTERNAL_SYMBOL_TYPE; t98720.s0.value.external_symbol_type = q43; /* x178285 stalin.sc:25683:888584 */ t98722.s0.tag = EXTERNAL_SYMBOL_TYPE; t98722.s0.value.external_symbol_type = q102; /* x178286 stalin.sc:25683:888584 */ t98724.s0.tag = EXTERNAL_SYMBOL_TYPE; t98724.s0.value.external_symbol_type = q125; /* x178287 stalin.sc:25683:888584 */ t98725.s0.tag = EXTERNAL_SYMBOL_TYPE; t98725.s0.value.external_symbol_type = q308; /* x178288 stalin.sc:25683:888584 */ t98725.s1.tag = NULL_TYPE; /* x178289 stalin.sc:25683:888584 */ t98724.s1.tag = STRUCTURE_TYPE24753; t98724.s1.value.structure_type24753 = &t98725; /* x178290 stalin.sc:25683:888584 */ t98723.s0.tag = STRUCTURE_TYPE24753; t98723.s0.value.structure_type24753 = &t98724; /* x178291 stalin.sc:25683:888584 */ t98723.s1.tag = NULL_TYPE; /* x178292 stalin.sc:25683:888584 */ t98722.s1.tag = STRUCTURE_TYPE24753; t98722.s1.value.structure_type24753 = &t98723; /* x178293 stalin.sc:25683:888584 */ t98721.s0.tag = STRUCTURE_TYPE24753; t98721.s0.value.structure_type24753 = &t98722; /* x178294 stalin.sc:25683:888584 */ t98727.s0.tag = EXTERNAL_SYMBOL_TYPE; t98727.s0.value.external_symbol_type = q287; /* x178295 stalin.sc:25683:888584 */ t98729.s0.tag = EXTERNAL_SYMBOL_TYPE; t98729.s0.value.external_symbol_type = q2; /* x178296 stalin.sc:25683:888584 */ t98730.s0.tag = EXTERNAL_SYMBOL_TYPE; t98730.s0.value.external_symbol_type = q308; /* x178297 stalin.sc:25683:888584 */ t98731.s0.tag = FIXNUM_TYPE; t98731.s0.value.fixnum_type = 1; /* x178298 stalin.sc:25683:888584 */ t98731.s1.tag = NULL_TYPE; /* x178299 stalin.sc:25683:888584 */ t98730.s1.tag = STRUCTURE_TYPE24753; t98730.s1.value.structure_type24753 = &t98731; /* x178300 stalin.sc:25683:888584 */ t98729.s1.tag = STRUCTURE_TYPE24753; t98729.s1.value.structure_type24753 = &t98730; /* x178301 stalin.sc:25683:888584 */ t98728.s0.tag = STRUCTURE_TYPE24753; t98728.s0.value.structure_type24753 = &t98729; /* x178302 stalin.sc:25683:888584 */ t98728.s1.tag = NULL_TYPE; /* x178303 stalin.sc:25683:888584 */ t98727.s1.tag = STRUCTURE_TYPE24753; t98727.s1.value.structure_type24753 = &t98728; /* x178304 stalin.sc:25683:888584 */ t98726.s0.tag = STRUCTURE_TYPE24753; t98726.s0.value.structure_type24753 = &t98727; /* x178305 stalin.sc:25683:888584 */ t98726.s1.tag = NULL_TYPE; /* x178306 stalin.sc:25683:888584 */ t98721.s1.tag = STRUCTURE_TYPE24753; t98721.s1.value.structure_type24753 = &t98726; /* x178307 stalin.sc:25683:888584 */ t98720.s1.tag = STRUCTURE_TYPE24753; t98720.s1.value.structure_type24753 = &t98721; /* x178308 stalin.sc:25683:888584 */ t98719.s0.tag = STRUCTURE_TYPE24753; t98719.s0.value.structure_type24753 = &t98720; /* x178309 stalin.sc:25683:888584 */ t98719.s1.tag = NULL_TYPE; /* x178310 stalin.sc:25683:888584 */ t98705.s1.tag = STRUCTURE_TYPE24753; t98705.s1.value.structure_type24753 = &t98719; /* x178311 stalin.sc:25683:888584 */ t98698.s1.tag = STRUCTURE_TYPE24753; t98698.s1.value.structure_type24753 = &t98705; /* x178312 stalin.sc:25683:888584 */ t98697.s1.tag = STRUCTURE_TYPE24753; t98697.s1.value.structure_type24753 = &t98698; /* x178313 stalin.sc:25683:888584 */ t98696.s1.tag = STRUCTURE_TYPE24753; t98696.s1.value.structure_type24753 = &t98697; /* x178314 stalin.sc:25683:888584 */ t98695.s0.tag = STRUCTURE_TYPE24753; t98695.s0.value.structure_type24753 = &t98696; /* x178315 stalin.sc:25683:888584 */ t98733.s0.tag = EXTERNAL_SYMBOL_TYPE; t98733.s0.value.external_symbol_type = q239; /* x178316 stalin.sc:25683:888584 */ t98735.s0.tag = EXTERNAL_SYMBOL_TYPE; t98735.s0.value.external_symbol_type = q170; /* x178317 stalin.sc:25683:888584 */ t98736.s0.tag = EXTERNAL_SYMBOL_TYPE; t98736.s0.value.external_symbol_type = q302; /* x178318 stalin.sc:25683:888584 */ t98737.s0.tag = EXTERNAL_SYMBOL_TYPE; t98737.s0.value.external_symbol_type = q308; /* x178319 stalin.sc:25683:888584 */ t98739.s0.tag = EXTERNAL_SYMBOL_TYPE; t98739.s0.value.external_symbol_type = q2; /* x178320 stalin.sc:25683:888584 */ t98741.s0.tag = EXTERNAL_SYMBOL_TYPE; t98741.s0.value.external_symbol_type = q133; /* x178321 stalin.sc:25683:888584 */ t98742.s0.tag = EXTERNAL_SYMBOL_TYPE; t98742.s0.value.external_symbol_type = q310; /* x178322 stalin.sc:25683:888584 */ t98743.s0.tag = FIXNUM_TYPE; t98743.s0.value.fixnum_type = 10; /* x178323 stalin.sc:25683:888584 */ t98743.s1.tag = NULL_TYPE; /* x178324 stalin.sc:25683:888584 */ t98742.s1.tag = STRUCTURE_TYPE24753; t98742.s1.value.structure_type24753 = &t98743; /* x178325 stalin.sc:25683:888584 */ t98741.s1.tag = STRUCTURE_TYPE24753; t98741.s1.value.structure_type24753 = &t98742; /* x178326 stalin.sc:25683:888584 */ t98740.s0.tag = STRUCTURE_TYPE24753; t98740.s0.value.structure_type24753 = &t98741; /* x178327 stalin.sc:25683:888584 */ t98740.s1.tag = NULL_TYPE; /* x178328 stalin.sc:25683:888584 */ t98739.s1.tag = STRUCTURE_TYPE24753; t98739.s1.value.structure_type24753 = &t98740; /* x178329 stalin.sc:25683:888584 */ t98738.s0.tag = STRUCTURE_TYPE24753; t98738.s0.value.structure_type24753 = &t98739; /* x178330 stalin.sc:25683:888584 */ t98738.s1.tag = NULL_TYPE; /* x178331 stalin.sc:25683:888584 */ t98737.s1.tag = STRUCTURE_TYPE24753; t98737.s1.value.structure_type24753 = &t98738; /* x178332 stalin.sc:25683:888584 */ t98736.s1.tag = STRUCTURE_TYPE24753; t98736.s1.value.structure_type24753 = &t98737; /* x178333 stalin.sc:25683:888584 */ t98735.s1.tag = STRUCTURE_TYPE24753; t98735.s1.value.structure_type24753 = &t98736; /* x178334 stalin.sc:25683:888584 */ t98734.s0.tag = STRUCTURE_TYPE24753; t98734.s0.value.structure_type24753 = &t98735; /* x178335 stalin.sc:25683:888584 */ t98745.s0.tag = EXTERNAL_SYMBOL_TYPE; t98745.s0.value.external_symbol_type = q287; /* x178336 stalin.sc:25683:888584 */ t98747.s0.tag = EXTERNAL_SYMBOL_TYPE; t98747.s0.value.external_symbol_type = q4; /* x178337 stalin.sc:25683:888584 */ t98748.s0.tag = EXTERNAL_SYMBOL_TYPE; t98748.s0.value.external_symbol_type = q308; /* x178338 stalin.sc:25683:888584 */ t98749.s0.tag = FIXNUM_TYPE; t98749.s0.value.fixnum_type = 1; /* x178339 stalin.sc:25683:888584 */ t98749.s1.tag = NULL_TYPE; /* x178340 stalin.sc:25683:888584 */ t98748.s1.tag = STRUCTURE_TYPE24753; t98748.s1.value.structure_type24753 = &t98749; /* x178341 stalin.sc:25683:888584 */ t98747.s1.tag = STRUCTURE_TYPE24753; t98747.s1.value.structure_type24753 = &t98748; /* x178342 stalin.sc:25683:888584 */ t98746.s0.tag = STRUCTURE_TYPE24753; t98746.s0.value.structure_type24753 = &t98747; /* x178343 stalin.sc:25683:888584 */ t98751.s0.tag = EXTERNAL_SYMBOL_TYPE; t98751.s0.value.external_symbol_type = q132; /* x178344 stalin.sc:25683:888584 */ t98752.s0.tag = EXTERNAL_SYMBOL_TYPE; t98752.s0.value.external_symbol_type = q310; /* x178345 stalin.sc:25683:888584 */ t98753.s0.tag = FIXNUM_TYPE; t98753.s0.value.fixnum_type = 10; /* x178346 stalin.sc:25683:888584 */ t98753.s1.tag = NULL_TYPE; /* x178347 stalin.sc:25683:888584 */ t98752.s1.tag = STRUCTURE_TYPE24753; t98752.s1.value.structure_type24753 = &t98753; /* x178348 stalin.sc:25683:888584 */ t98751.s1.tag = STRUCTURE_TYPE24753; t98751.s1.value.structure_type24753 = &t98752; /* x178349 stalin.sc:25683:888584 */ t98750.s0.tag = STRUCTURE_TYPE24753; t98750.s0.value.structure_type24753 = &t98751; /* x178350 stalin.sc:25683:888584 */ t98750.s1.tag = NULL_TYPE; /* x178351 stalin.sc:25683:888584 */ t98746.s1.tag = STRUCTURE_TYPE24753; t98746.s1.value.structure_type24753 = &t98750; /* x178352 stalin.sc:25683:888584 */ t98745.s1.tag = STRUCTURE_TYPE24753; t98745.s1.value.structure_type24753 = &t98746; /* x178353 stalin.sc:25683:888584 */ t98744.s0.tag = STRUCTURE_TYPE24753; t98744.s0.value.structure_type24753 = &t98745; /* x178354 stalin.sc:25683:888584 */ t98744.s1.tag = NULL_TYPE; /* x178355 stalin.sc:25683:888584 */ t98734.s1.tag = STRUCTURE_TYPE24753; t98734.s1.value.structure_type24753 = &t98744; /* x178356 stalin.sc:25683:888584 */ t98733.s1.tag = STRUCTURE_TYPE24753; t98733.s1.value.structure_type24753 = &t98734; /* x178357 stalin.sc:25683:888584 */ t98732.s0.tag = STRUCTURE_TYPE24753; t98732.s0.value.structure_type24753 = &t98733; /* x178358 stalin.sc:25683:888584 */ t98732.s1.tag = NULL_TYPE; /* x178359 stalin.sc:25683:888584 */ t98695.s1.tag = STRUCTURE_TYPE24753; t98695.s1.value.structure_type24753 = &t98732; /* x178360 stalin.sc:25683:888584 */ t98692.s1.tag = STRUCTURE_TYPE24753; t98692.s1.value.structure_type24753 = &t98695; /* x178361 stalin.sc:25683:888584 */ t98691.s1.tag = STRUCTURE_TYPE24753; t98691.s1.value.structure_type24753 = &t98692; /* x178362 stalin.sc:25683:888584 */ t98690.s0.tag = STRUCTURE_TYPE24753; t98690.s0.value.structure_type24753 = &t98691; /* x178363 stalin.sc:25683:888584 */ t98690.s1.tag = NULL_TYPE; /* x178364 stalin.sc:25683:888584 */ t98683.s1.tag = STRUCTURE_TYPE24753; t98683.s1.value.structure_type24753 = &t98690; /* x178365 stalin.sc:25683:888584 */ t98682.s1.tag = STRUCTURE_TYPE24753; t98682.s1.value.structure_type24753 = &t98683; /* x178366 stalin.sc:25683:888584 */ t98681.s1.tag = STRUCTURE_TYPE24753; t98681.s1.value.structure_type24753 = &t98682; /* x178367 stalin.sc:25683:888584 */ t98680.s0.tag = STRUCTURE_TYPE24753; t98680.s0.value.structure_type24753 = &t98681; /* x178368 stalin.sc:25683:888584 */ t98680.s1.tag = NULL_TYPE; /* x178369 stalin.sc:25683:888584 */ t98676.s1.tag = STRUCTURE_TYPE24753; t98676.s1.value.structure_type24753 = &t98680; /* x178370 stalin.sc:25683:888584 */ t98673.s1.tag = STRUCTURE_TYPE24753; t98673.s1.value.structure_type24753 = &t98676; /* x178371 stalin.sc:25683:888584 */ t98672.s0.tag = STRUCTURE_TYPE24753; t98672.s0.value.structure_type24753 = &t98673; /* x178372 stalin.sc:25683:888584 */ t98755.s0.tag = EXTERNAL_SYMBOL_TYPE; t98755.s0.value.external_symbol_type = q95; /* x178373 stalin.sc:25683:888584 */ t98757.s0.tag = EXTERNAL_SYMBOL_TYPE; t98757.s0.value.external_symbol_type = q234; /* x178374 stalin.sc:25683:888584 */ t98758.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x178375 stalin.sc:25683:888584 */ t98759.s0.tag = EXTERNAL_SYMBOL_TYPE; t98759.s0.value.external_symbol_type = q254; /* x178376 stalin.sc:25683:888584 */ t98759.s1.tag = NULL_TYPE; /* x178377 stalin.sc:25683:888584 */ t98758.s1.tag = STRUCTURE_TYPE24753; t98758.s1.value.structure_type24753 = &t98759; /* x178378 stalin.sc:25683:888584 */ t98757.s1.tag = STRUCTURE_TYPE24753; t98757.s1.value.structure_type24753 = &t98758; /* x178379 stalin.sc:25683:888584 */ t98756.s0.tag = STRUCTURE_TYPE24753; t98756.s0.value.structure_type24753 = &t98757; /* x178380 stalin.sc:25683:888584 */ t98756.s1.tag = NULL_TYPE; /* x178381 stalin.sc:25683:888584 */ t98755.s1.tag = STRUCTURE_TYPE24753; t98755.s1.value.structure_type24753 = &t98756; /* x178382 stalin.sc:25683:888584 */ t98754.s0.tag = STRUCTURE_TYPE24753; t98754.s0.value.structure_type24753 = &t98755; /* x178383 stalin.sc:25683:888584 */ t98754.s1.tag = NULL_TYPE; /* x178384 stalin.sc:25683:888584 */ t98672.s1.tag = STRUCTURE_TYPE24753; t98672.s1.value.structure_type24753 = &t98754; /* x178385 stalin.sc:25683:888584 */ t98596.s1.tag = STRUCTURE_TYPE24753; t98596.s1.value.structure_type24753 = &t98672; /* x178386 stalin.sc:25683:888584 */ t98595.s1.tag = STRUCTURE_TYPE24753; t98595.s1.value.structure_type24753 = &t98596; /* x178387 stalin.sc:25683:888584 */ t98594.s0.tag = STRUCTURE_TYPE24753; t98594.s0.value.structure_type24753 = &t98595; /* x178388 stalin.sc:25683:888584 */ t98594.s1.tag = NULL_TYPE; /* x178389 stalin.sc:25683:888584 */ t98590.s1.tag = STRUCTURE_TYPE24753; t98590.s1.value.structure_type24753 = &t98594; /* x178390 stalin.sc:25683:888584 */ t98589.s1.tag = STRUCTURE_TYPE24753; t98589.s1.value.structure_type24753 = &t98590; /* x178391 stalin.sc:25683:888584 */ t98588.s0.tag = STRUCTURE_TYPE24753; t98588.s0.value.structure_type24753 = &t98589; /* x178392 stalin.sc:25683:888584 */ t98761.s0.tag = EXTERNAL_SYMBOL_TYPE; t98761.s0.value.external_symbol_type = q97; /* x178393 stalin.sc:25683:888584 */ t98763.s0.tag = EXTERNAL_SYMBOL_TYPE; t98763.s0.value.external_symbol_type = q311; /* x178394 stalin.sc:25683:888584 */ t98764.s0.tag = EXTERNAL_SYMBOL_TYPE; t98764.s0.value.external_symbol_type = q312; /* x178395 stalin.sc:25683:888584 */ t98765.s0.tag = EXTERNAL_SYMBOL_TYPE; t98765.s0.value.external_symbol_type = q313; /* x178396 stalin.sc:25683:888584 */ t98766.s0.tag = EXTERNAL_SYMBOL_TYPE; t98766.s0.value.external_symbol_type = q254; /* x178397 stalin.sc:25683:888584 */ t98766.s1.tag = NULL_TYPE; /* x178398 stalin.sc:25683:888584 */ t98765.s1.tag = STRUCTURE_TYPE24753; t98765.s1.value.structure_type24753 = &t98766; /* x178399 stalin.sc:25683:888584 */ t98764.s1.tag = STRUCTURE_TYPE24753; t98764.s1.value.structure_type24753 = &t98765; /* x178400 stalin.sc:25683:888584 */ t98763.s1.tag = STRUCTURE_TYPE24753; t98763.s1.value.structure_type24753 = &t98764; /* x178401 stalin.sc:25683:888584 */ t98762.s0.tag = STRUCTURE_TYPE24753; t98762.s0.value.structure_type24753 = &t98763; /* x178402 stalin.sc:25683:888584 */ t98768.s0.tag = EXTERNAL_SYMBOL_TYPE; t98768.s0.value.external_symbol_type = q246; /* x178403 stalin.sc:25683:888584 */ t98771.s0.tag = EXTERNAL_SYMBOL_TYPE; t98771.s0.value.external_symbol_type = q314; /* x178404 stalin.sc:25683:888584 */ t98773.s0.tag = EXTERNAL_SYMBOL_TYPE; t98773.s0.value.external_symbol_type = q140; /* x178405 stalin.sc:25683:888584 */ t98774.s0.tag = EXTERNAL_SYMBOL_TYPE; t98774.s0.value.external_symbol_type = q312; /* x178406 stalin.sc:25683:888584 */ t98774.s1.tag = NULL_TYPE; /* x178407 stalin.sc:25683:888584 */ t98773.s1.tag = STRUCTURE_TYPE24753; t98773.s1.value.structure_type24753 = &t98774; /* x178408 stalin.sc:25683:888584 */ t98772.s0.tag = STRUCTURE_TYPE24753; t98772.s0.value.structure_type24753 = &t98773; /* x178409 stalin.sc:25683:888584 */ t98772.s1.tag = NULL_TYPE; /* x178410 stalin.sc:25683:888584 */ t98771.s1.tag = STRUCTURE_TYPE24753; t98771.s1.value.structure_type24753 = &t98772; /* x178411 stalin.sc:25683:888584 */ t98770.s0.tag = STRUCTURE_TYPE24753; t98770.s0.value.structure_type24753 = &t98771; /* x178412 stalin.sc:25683:888584 */ t98776.s0.tag = EXTERNAL_SYMBOL_TYPE; t98776.s0.value.external_symbol_type = q315; /* x178413 stalin.sc:25683:888584 */ t98778.s0.tag = EXTERNAL_SYMBOL_TYPE; t98778.s0.value.external_symbol_type = q155; /* x178414 stalin.sc:25683:888584 */ t98779.s0.tag = EXTERNAL_SYMBOL_TYPE; t98779.s0.value.external_symbol_type = q314; /* x178415 stalin.sc:25683:888584 */ t98779.s1.tag = NULL_TYPE; /* x178416 stalin.sc:25683:888584 */ t98778.s1.tag = STRUCTURE_TYPE24753; t98778.s1.value.structure_type24753 = &t98779; /* x178417 stalin.sc:25683:888584 */ t98777.s0.tag = STRUCTURE_TYPE24753; t98777.s0.value.structure_type24753 = &t98778; /* x178418 stalin.sc:25683:888584 */ t98777.s1.tag = NULL_TYPE; /* x178419 stalin.sc:25683:888584 */ t98776.s1.tag = STRUCTURE_TYPE24753; t98776.s1.value.structure_type24753 = &t98777; /* x178420 stalin.sc:25683:888584 */ t98775.s0.tag = STRUCTURE_TYPE24753; t98775.s0.value.structure_type24753 = &t98776; /* x178421 stalin.sc:25683:888584 */ t98775.s1.tag = NULL_TYPE; /* x178422 stalin.sc:25683:888584 */ t98770.s1.tag = STRUCTURE_TYPE24753; t98770.s1.value.structure_type24753 = &t98775; /* x178423 stalin.sc:25683:888584 */ t98769.s0.tag = STRUCTURE_TYPE24753; t98769.s0.value.structure_type24753 = &t98770; /* x178424 stalin.sc:25683:888584 */ t98781.s0.tag = EXTERNAL_SYMBOL_TYPE; t98781.s0.value.external_symbol_type = q240; /* x178425 stalin.sc:25683:888584 */ t98784.s0.tag = EXTERNAL_SYMBOL_TYPE; t98784.s0.value.external_symbol_type = q120; /* x178426 stalin.sc:25683:888584 */ t98785.s0.tag = EXTERNAL_SYMBOL_TYPE; t98785.s0.value.external_symbol_type = q315; /* x178427 stalin.sc:25683:888584 */ t98786.s0.tag = FIXNUM_TYPE; t98786.s0.value.fixnum_type = 0; /* x178428 stalin.sc:25683:888584 */ t98786.s1.tag = NULL_TYPE; /* x178429 stalin.sc:25683:888584 */ t98785.s1.tag = STRUCTURE_TYPE24753; t98785.s1.value.structure_type24753 = &t98786; /* x178430 stalin.sc:25683:888584 */ t98784.s1.tag = STRUCTURE_TYPE24753; t98784.s1.value.structure_type24753 = &t98785; /* x178431 stalin.sc:25683:888584 */ t98783.s0.tag = STRUCTURE_TYPE24753; t98783.s0.value.structure_type24753 = &t98784; /* x178432 stalin.sc:25683:888584 */ t98788.s0.tag = EXTERNAL_SYMBOL_TYPE; t98788.s0.value.external_symbol_type = q311; /* x178433 stalin.sc:25683:888584 */ t98790.s0.tag = EXTERNAL_SYMBOL_TYPE; t98790.s0.value.external_symbol_type = q130; /* x178434 stalin.sc:25683:888584 */ t98791.s0.tag = FLONUM_TYPE; t98791.s0.value.flonum_type = 1.0e1; /* x178435 stalin.sc:25683:888584 */ t98792.s0.tag = EXTERNAL_SYMBOL_TYPE; t98792.s0.value.external_symbol_type = q312; /* x178436 stalin.sc:25683:888584 */ t98792.s1.tag = NULL_TYPE; /* x178437 stalin.sc:25683:888584 */ t98791.s1.tag = STRUCTURE_TYPE24753; t98791.s1.value.structure_type24753 = &t98792; /* x178438 stalin.sc:25683:888584 */ t98790.s1.tag = STRUCTURE_TYPE24753; t98790.s1.value.structure_type24753 = &t98791; /* x178439 stalin.sc:25683:888584 */ t98789.s0.tag = STRUCTURE_TYPE24753; t98789.s0.value.structure_type24753 = &t98790; /* x178440 stalin.sc:25683:888584 */ t98794.s0.tag = EXTERNAL_SYMBOL_TYPE; t98794.s0.value.external_symbol_type = q2; /* x178441 stalin.sc:25683:888584 */ t98795.s0.tag = EXTERNAL_SYMBOL_TYPE; t98795.s0.value.external_symbol_type = q313; /* x178442 stalin.sc:25683:888584 */ t98796.s0.tag = FIXNUM_TYPE; t98796.s0.value.fixnum_type = 1; /* x178443 stalin.sc:25683:888584 */ t98796.s1.tag = NULL_TYPE; /* x178444 stalin.sc:25683:888584 */ t98795.s1.tag = STRUCTURE_TYPE24753; t98795.s1.value.structure_type24753 = &t98796; /* x178445 stalin.sc:25683:888584 */ t98794.s1.tag = STRUCTURE_TYPE24753; t98794.s1.value.structure_type24753 = &t98795; /* x178446 stalin.sc:25683:888584 */ t98793.s0.tag = STRUCTURE_TYPE24753; t98793.s0.value.structure_type24753 = &t98794; /* x178447 stalin.sc:25683:888584 */ t98797.s0.tag = EXTERNAL_SYMBOL_TYPE; t98797.s0.value.external_symbol_type = q254; /* x178448 stalin.sc:25683:888584 */ t98797.s1.tag = NULL_TYPE; /* x178449 stalin.sc:25683:888584 */ t98793.s1.tag = STRUCTURE_TYPE24753; t98793.s1.value.structure_type24753 = &t98797; /* x178450 stalin.sc:25683:888584 */ t98789.s1.tag = STRUCTURE_TYPE24753; t98789.s1.value.structure_type24753 = &t98793; /* x178451 stalin.sc:25683:888584 */ t98788.s1.tag = STRUCTURE_TYPE24753; t98788.s1.value.structure_type24753 = &t98789; /* x178452 stalin.sc:25683:888584 */ t98787.s0.tag = STRUCTURE_TYPE24753; t98787.s0.value.structure_type24753 = &t98788; /* x178453 stalin.sc:25683:888584 */ t98787.s1.tag = NULL_TYPE; /* x178454 stalin.sc:25683:888584 */ t98783.s1.tag = STRUCTURE_TYPE24753; t98783.s1.value.structure_type24753 = &t98787; /* x178455 stalin.sc:25683:888584 */ t98782.s0.tag = STRUCTURE_TYPE24753; t98782.s0.value.structure_type24753 = &t98783; /* x178456 stalin.sc:25683:888584 */ t98800.s0.tag = EXTERNAL_SYMBOL_TYPE; t98800.s0.value.external_symbol_type = q120; /* x178457 stalin.sc:25683:888584 */ t98801.s0.tag = EXTERNAL_SYMBOL_TYPE; t98801.s0.value.external_symbol_type = q315; /* x178458 stalin.sc:25683:888584 */ t98802.s0.tag = FIXNUM_TYPE; t98802.s0.value.fixnum_type = 10; /* x178459 stalin.sc:25683:888584 */ t98802.s1.tag = NULL_TYPE; /* x178460 stalin.sc:25683:888584 */ t98801.s1.tag = STRUCTURE_TYPE24753; t98801.s1.value.structure_type24753 = &t98802; /* x178461 stalin.sc:25683:888584 */ t98800.s1.tag = STRUCTURE_TYPE24753; t98800.s1.value.structure_type24753 = &t98801; /* x178462 stalin.sc:25683:888584 */ t98799.s0.tag = STRUCTURE_TYPE24753; t98799.s0.value.structure_type24753 = &t98800; /* x178463 stalin.sc:25683:888584 */ t98804.s0.tag = EXTERNAL_SYMBOL_TYPE; t98804.s0.value.external_symbol_type = q311; /* x178464 stalin.sc:25683:888584 */ t98806.s0.tag = EXTERNAL_SYMBOL_TYPE; t98806.s0.value.external_symbol_type = q130; /* x178465 stalin.sc:25683:888584 */ t98807.s0.tag = FLONUM_TYPE; t98807.s0.value.flonum_type = 1.0e-1; /* x178466 stalin.sc:25683:888584 */ t98808.s0.tag = EXTERNAL_SYMBOL_TYPE; t98808.s0.value.external_symbol_type = q312; /* x178467 stalin.sc:25683:888584 */ t98808.s1.tag = NULL_TYPE; /* x178468 stalin.sc:25683:888584 */ t98807.s1.tag = STRUCTURE_TYPE24753; t98807.s1.value.structure_type24753 = &t98808; /* x178469 stalin.sc:25683:888584 */ t98806.s1.tag = STRUCTURE_TYPE24753; t98806.s1.value.structure_type24753 = &t98807; /* x178470 stalin.sc:25683:888584 */ t98805.s0.tag = STRUCTURE_TYPE24753; t98805.s0.value.structure_type24753 = &t98806; /* x178471 stalin.sc:25683:888584 */ t98810.s0.tag = EXTERNAL_SYMBOL_TYPE; t98810.s0.value.external_symbol_type = q4; /* x178472 stalin.sc:25683:888584 */ t98811.s0.tag = EXTERNAL_SYMBOL_TYPE; t98811.s0.value.external_symbol_type = q313; /* x178473 stalin.sc:25683:888584 */ t98812.s0.tag = FIXNUM_TYPE; t98812.s0.value.fixnum_type = 1; /* x178474 stalin.sc:25683:888584 */ t98812.s1.tag = NULL_TYPE; /* x178475 stalin.sc:25683:888584 */ t98811.s1.tag = STRUCTURE_TYPE24753; t98811.s1.value.structure_type24753 = &t98812; /* x178476 stalin.sc:25683:888584 */ t98810.s1.tag = STRUCTURE_TYPE24753; t98810.s1.value.structure_type24753 = &t98811; /* x178477 stalin.sc:25683:888584 */ t98809.s0.tag = STRUCTURE_TYPE24753; t98809.s0.value.structure_type24753 = &t98810; /* x178478 stalin.sc:25683:888584 */ t98813.s0.tag = EXTERNAL_SYMBOL_TYPE; t98813.s0.value.external_symbol_type = q254; /* x178479 stalin.sc:25683:888584 */ t98813.s1.tag = NULL_TYPE; /* x178480 stalin.sc:25683:888584 */ t98809.s1.tag = STRUCTURE_TYPE24753; t98809.s1.value.structure_type24753 = &t98813; /* x178481 stalin.sc:25683:888584 */ t98805.s1.tag = STRUCTURE_TYPE24753; t98805.s1.value.structure_type24753 = &t98809; /* x178482 stalin.sc:25683:888584 */ t98804.s1.tag = STRUCTURE_TYPE24753; t98804.s1.value.structure_type24753 = &t98805; /* x178483 stalin.sc:25683:888584 */ t98803.s0.tag = STRUCTURE_TYPE24753; t98803.s0.value.structure_type24753 = &t98804; /* x178484 stalin.sc:25683:888584 */ t98803.s1.tag = NULL_TYPE; /* x178485 stalin.sc:25683:888584 */ t98799.s1.tag = STRUCTURE_TYPE24753; t98799.s1.value.structure_type24753 = &t98803; /* x178486 stalin.sc:25683:888584 */ t98798.s0.tag = STRUCTURE_TYPE24753; t98798.s0.value.structure_type24753 = &t98799; /* x178487 stalin.sc:25683:888584 */ t98815.s0.tag = EXTERNAL_SYMBOL_TYPE; t98815.s0.value.external_symbol_type = q95; /* x178488 stalin.sc:25683:888584 */ t98817.s0.tag = EXTERNAL_SYMBOL_TYPE; t98817.s0.value.external_symbol_type = q234; /* x178489 stalin.sc:25683:888584 */ t98819.s0.tag = EXTERNAL_SYMBOL_TYPE; t98819.s0.value.external_symbol_type = q158; /* x178490 stalin.sc:25683:888584 */ t98821.s0.tag = EXTERNAL_SYMBOL_TYPE; t98821.s0.value.external_symbol_type = q4; /* x178491 stalin.sc:25683:888584 */ t98823.s0.tag = EXTERNAL_SYMBOL_TYPE; t98823.s0.value.external_symbol_type = q157; /* x178492 stalin.sc:25683:888584 */ t98824.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x178493 stalin.sc:25683:888584 */ t98824.s1.tag = NULL_TYPE; /* x178494 stalin.sc:25683:888584 */ t98823.s1.tag = STRUCTURE_TYPE24753; t98823.s1.value.structure_type24753 = &t98824; /* x178495 stalin.sc:25683:888584 */ t98822.s0.tag = STRUCTURE_TYPE24753; t98822.s0.value.structure_type24753 = &t98823; /* x178496 stalin.sc:25683:888584 */ t98825.s0.tag = EXTERNAL_SYMBOL_TYPE; t98825.s0.value.external_symbol_type = q315; /* x178497 stalin.sc:25683:888584 */ t98825.s1.tag = NULL_TYPE; /* x178498 stalin.sc:25683:888584 */ t98822.s1.tag = STRUCTURE_TYPE24753; t98822.s1.value.structure_type24753 = &t98825; /* x178499 stalin.sc:25683:888584 */ t98821.s1.tag = STRUCTURE_TYPE24753; t98821.s1.value.structure_type24753 = &t98822; /* x178500 stalin.sc:25683:888584 */ t98820.s0.tag = STRUCTURE_TYPE24753; t98820.s0.value.structure_type24753 = &t98821; /* x178501 stalin.sc:25683:888584 */ t98820.s1.tag = NULL_TYPE; /* x178502 stalin.sc:25683:888584 */ t98819.s1.tag = STRUCTURE_TYPE24753; t98819.s1.value.structure_type24753 = &t98820; /* x178503 stalin.sc:25683:888584 */ t98818.s0.tag = STRUCTURE_TYPE24753; t98818.s0.value.structure_type24753 = &t98819; /* x178504 stalin.sc:25683:888584 */ t98826.s0.tag = EXTERNAL_SYMBOL_TYPE; t98826.s0.value.external_symbol_type = q254; /* x178505 stalin.sc:25683:888584 */ t98826.s1.tag = NULL_TYPE; /* x178506 stalin.sc:25683:888584 */ t98818.s1.tag = STRUCTURE_TYPE24753; t98818.s1.value.structure_type24753 = &t98826; /* x178507 stalin.sc:25683:888584 */ t98817.s1.tag = STRUCTURE_TYPE24753; t98817.s1.value.structure_type24753 = &t98818; /* x178508 stalin.sc:25683:888584 */ t98816.s0.tag = STRUCTURE_TYPE24753; t98816.s0.value.structure_type24753 = &t98817; /* x178509 stalin.sc:25683:888584 */ t98828.s0.tag = EXTERNAL_SYMBOL_TYPE; t98828.s0.value.external_symbol_type = q234; /* x178510 stalin.sc:25683:888584 */ t98829.s0.tag = ((unsigned)((unsigned char)'.'))<<2; /* x178511 stalin.sc:25683:888584 */ t98830.s0.tag = EXTERNAL_SYMBOL_TYPE; t98830.s0.value.external_symbol_type = q254; /* x178512 stalin.sc:25683:888584 */ t98830.s1.tag = NULL_TYPE; /* x178513 stalin.sc:25683:888584 */ t98829.s1.tag = STRUCTURE_TYPE24753; t98829.s1.value.structure_type24753 = &t98830; /* x178514 stalin.sc:25683:888584 */ t98828.s1.tag = STRUCTURE_TYPE24753; t98828.s1.value.structure_type24753 = &t98829; /* x178515 stalin.sc:25683:888584 */ t98827.s0.tag = STRUCTURE_TYPE24753; t98827.s0.value.structure_type24753 = &t98828; /* x178516 stalin.sc:25683:888584 */ t98832.s0.tag = EXTERNAL_SYMBOL_TYPE; t98832.s0.value.external_symbol_type = q242; /* x178517 stalin.sc:25683:888584 */ t98833.s0.tag = EXTERNAL_SYMBOL_TYPE; t98833.s0.value.external_symbol_type = q287; /* x178518 stalin.sc:25683:888584 */ t98836.s0.tag = EXTERNAL_SYMBOL_TYPE; t98836.s0.value.external_symbol_type = q312; /* x178519 stalin.sc:25683:888584 */ t98838.s0.tag = EXTERNAL_SYMBOL_TYPE; t98838.s0.value.external_symbol_type = q130; /* x178520 stalin.sc:25683:888584 */ t98839.s0.tag = FLONUM_TYPE; t98839.s0.value.flonum_type = 1.0e1; /* x178521 stalin.sc:25683:888584 */ t98841.s0.tag = EXTERNAL_SYMBOL_TYPE; t98841.s0.value.external_symbol_type = q2; /* x178522 stalin.sc:25683:888584 */ t98842.s0.tag = EXTERNAL_SYMBOL_TYPE; t98842.s0.value.external_symbol_type = q312; /* x178523 stalin.sc:25683:888584 */ t98843.s0.tag = EXTERNAL_SYMBOL_TYPE; t98843.s0.value.external_symbol_type = q314; /* x178524 stalin.sc:25683:888584 */ t98843.s1.tag = NULL_TYPE; /* x178525 stalin.sc:25683:888584 */ t98842.s1.tag = STRUCTURE_TYPE24753; t98842.s1.value.structure_type24753 = &t98843; /* x178526 stalin.sc:25683:888584 */ t98841.s1.tag = STRUCTURE_TYPE24753; t98841.s1.value.structure_type24753 = &t98842; /* x178527 stalin.sc:25683:888584 */ t98840.s0.tag = STRUCTURE_TYPE24753; t98840.s0.value.structure_type24753 = &t98841; /* x178528 stalin.sc:25683:888584 */ t98840.s1.tag = NULL_TYPE; /* x178529 stalin.sc:25683:888584 */ t98839.s1.tag = STRUCTURE_TYPE24753; t98839.s1.value.structure_type24753 = &t98840; /* x178530 stalin.sc:25683:888584 */ t98838.s1.tag = STRUCTURE_TYPE24753; t98838.s1.value.structure_type24753 = &t98839; /* x178531 stalin.sc:25683:888584 */ t98837.s0.tag = STRUCTURE_TYPE24753; t98837.s0.value.structure_type24753 = &t98838; /* x178532 stalin.sc:25683:888584 */ t98837.s1.tag = NULL_TYPE; /* x178533 stalin.sc:25683:888584 */ t98836.s1.tag = STRUCTURE_TYPE24753; t98836.s1.value.structure_type24753 = &t98837; /* x178534 stalin.sc:25683:888584 */ t98835.s0.tag = STRUCTURE_TYPE24753; t98835.s0.value.structure_type24753 = &t98836; /* x178535 stalin.sc:25683:888584 */ t98835.s1.tag = NULL_TYPE; /* x178536 stalin.sc:25683:888584 */ t98834.s0.tag = STRUCTURE_TYPE24753; t98834.s0.value.structure_type24753 = &t98835; /* x178537 stalin.sc:25683:888584 */ t98845.s0.tag = EXTERNAL_SYMBOL_TYPE; t98845.s0.value.external_symbol_type = q246; /* x178538 stalin.sc:25683:888584 */ t98848.s0.tag = EXTERNAL_SYMBOL_TYPE; t98848.s0.value.external_symbol_type = q314; /* x178539 stalin.sc:25683:888584 */ t98850.s0.tag = EXTERNAL_SYMBOL_TYPE; t98850.s0.value.external_symbol_type = q140; /* x178540 stalin.sc:25683:888584 */ t98851.s0.tag = EXTERNAL_SYMBOL_TYPE; t98851.s0.value.external_symbol_type = q312; /* x178541 stalin.sc:25683:888584 */ t98851.s1.tag = NULL_TYPE; /* x178542 stalin.sc:25683:888584 */ t98850.s1.tag = STRUCTURE_TYPE24753; t98850.s1.value.structure_type24753 = &t98851; /* x178543 stalin.sc:25683:888584 */ t98849.s0.tag = STRUCTURE_TYPE24753; t98849.s0.value.structure_type24753 = &t98850; /* x178544 stalin.sc:25683:888584 */ t98849.s1.tag = NULL_TYPE; /* x178545 stalin.sc:25683:888584 */ t98848.s1.tag = STRUCTURE_TYPE24753; t98848.s1.value.structure_type24753 = &t98849; /* x178546 stalin.sc:25683:888584 */ t98847.s0.tag = STRUCTURE_TYPE24753; t98847.s0.value.structure_type24753 = &t98848; /* x178547 stalin.sc:25683:888584 */ t98853.s0.tag = EXTERNAL_SYMBOL_TYPE; t98853.s0.value.external_symbol_type = q315; /* x178548 stalin.sc:25683:888584 */ t98855.s0.tag = EXTERNAL_SYMBOL_TYPE; t98855.s0.value.external_symbol_type = q155; /* x178549 stalin.sc:25683:888584 */ t98856.s0.tag = EXTERNAL_SYMBOL_TYPE; t98856.s0.value.external_symbol_type = q314; /* x178550 stalin.sc:25683:888584 */ t98856.s1.tag = NULL_TYPE; /* x178551 stalin.sc:25683:888584 */ t98855.s1.tag = STRUCTURE_TYPE24753; t98855.s1.value.structure_type24753 = &t98856; /* x178552 stalin.sc:25683:888584 */ t98854.s0.tag = STRUCTURE_TYPE24753; t98854.s0.value.structure_type24753 = &t98855; /* x178553 stalin.sc:25683:888584 */ t98854.s1.tag = NULL_TYPE; /* x178554 stalin.sc:25683:888584 */ t98853.s1.tag = STRUCTURE_TYPE24753; t98853.s1.value.structure_type24753 = &t98854; /* x178555 stalin.sc:25683:888584 */ t98852.s0.tag = STRUCTURE_TYPE24753; t98852.s0.value.structure_type24753 = &t98853; /* x178556 stalin.sc:25683:888584 */ t98852.s1.tag = NULL_TYPE; /* x178557 stalin.sc:25683:888584 */ t98847.s1.tag = STRUCTURE_TYPE24753; t98847.s1.value.structure_type24753 = &t98852; /* x178558 stalin.sc:25683:888584 */ t98846.s0.tag = STRUCTURE_TYPE24753; t98846.s0.value.structure_type24753 = &t98847; /* x178559 stalin.sc:25683:888584 */ t98858.s0.tag = EXTERNAL_SYMBOL_TYPE; t98858.s0.value.external_symbol_type = q234; /* x178560 stalin.sc:25683:888584 */ t98860.s0.tag = EXTERNAL_SYMBOL_TYPE; t98860.s0.value.external_symbol_type = q158; /* x178561 stalin.sc:25683:888584 */ t98862.s0.tag = EXTERNAL_SYMBOL_TYPE; t98862.s0.value.external_symbol_type = q4; /* x178562 stalin.sc:25683:888584 */ t98864.s0.tag = EXTERNAL_SYMBOL_TYPE; t98864.s0.value.external_symbol_type = q157; /* x178563 stalin.sc:25683:888584 */ t98865.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x178564 stalin.sc:25683:888584 */ t98865.s1.tag = NULL_TYPE; /* x178565 stalin.sc:25683:888584 */ t98864.s1.tag = STRUCTURE_TYPE24753; t98864.s1.value.structure_type24753 = &t98865; /* x178566 stalin.sc:25683:888584 */ t98863.s0.tag = STRUCTURE_TYPE24753; t98863.s0.value.structure_type24753 = &t98864; /* x178567 stalin.sc:25683:888584 */ t98866.s0.tag = EXTERNAL_SYMBOL_TYPE; t98866.s0.value.external_symbol_type = q315; /* x178568 stalin.sc:25683:888584 */ t98866.s1.tag = NULL_TYPE; /* x178569 stalin.sc:25683:888584 */ t98863.s1.tag = STRUCTURE_TYPE24753; t98863.s1.value.structure_type24753 = &t98866; /* x178570 stalin.sc:25683:888584 */ t98862.s1.tag = STRUCTURE_TYPE24753; t98862.s1.value.structure_type24753 = &t98863; /* x178571 stalin.sc:25683:888584 */ t98861.s0.tag = STRUCTURE_TYPE24753; t98861.s0.value.structure_type24753 = &t98862; /* x178572 stalin.sc:25683:888584 */ t98861.s1.tag = NULL_TYPE; /* x178573 stalin.sc:25683:888584 */ t98860.s1.tag = STRUCTURE_TYPE24753; t98860.s1.value.structure_type24753 = &t98861; /* x178574 stalin.sc:25683:888584 */ t98859.s0.tag = STRUCTURE_TYPE24753; t98859.s0.value.structure_type24753 = &t98860; /* x178575 stalin.sc:25683:888584 */ t98867.s0.tag = EXTERNAL_SYMBOL_TYPE; t98867.s0.value.external_symbol_type = q254; /* x178576 stalin.sc:25683:888584 */ t98867.s1.tag = NULL_TYPE; /* x178577 stalin.sc:25683:888584 */ t98859.s1.tag = STRUCTURE_TYPE24753; t98859.s1.value.structure_type24753 = &t98867; /* x178578 stalin.sc:25683:888584 */ t98858.s1.tag = STRUCTURE_TYPE24753; t98858.s1.value.structure_type24753 = &t98859; /* x178579 stalin.sc:25683:888584 */ t98857.s0.tag = STRUCTURE_TYPE24753; t98857.s0.value.structure_type24753 = &t98858; /* x178580 stalin.sc:25683:888584 */ t98869.s0.tag = EXTERNAL_SYMBOL_TYPE; t98869.s0.value.external_symbol_type = q242; /* x178581 stalin.sc:25683:888584 */ t98872.s0.tag = EXTERNAL_SYMBOL_TYPE; t98872.s0.value.external_symbol_type = q312; /* x178582 stalin.sc:25683:888584 */ t98874.s0.tag = EXTERNAL_SYMBOL_TYPE; t98874.s0.value.external_symbol_type = q130; /* x178583 stalin.sc:25683:888584 */ t98875.s0.tag = FLONUM_TYPE; t98875.s0.value.flonum_type = 1.0e1; /* x178584 stalin.sc:25683:888584 */ t98877.s0.tag = EXTERNAL_SYMBOL_TYPE; t98877.s0.value.external_symbol_type = q2; /* x178585 stalin.sc:25683:888584 */ t98878.s0.tag = EXTERNAL_SYMBOL_TYPE; t98878.s0.value.external_symbol_type = q312; /* x178586 stalin.sc:25683:888584 */ t98879.s0.tag = EXTERNAL_SYMBOL_TYPE; t98879.s0.value.external_symbol_type = q314; /* x178587 stalin.sc:25683:888584 */ t98879.s1.tag = NULL_TYPE; /* x178588 stalin.sc:25683:888584 */ t98878.s1.tag = STRUCTURE_TYPE24753; t98878.s1.value.structure_type24753 = &t98879; /* x178589 stalin.sc:25683:888584 */ t98877.s1.tag = STRUCTURE_TYPE24753; t98877.s1.value.structure_type24753 = &t98878; /* x178590 stalin.sc:25683:888584 */ t98876.s0.tag = STRUCTURE_TYPE24753; t98876.s0.value.structure_type24753 = &t98877; /* x178591 stalin.sc:25683:888584 */ t98876.s1.tag = NULL_TYPE; /* x178592 stalin.sc:25683:888584 */ t98875.s1.tag = STRUCTURE_TYPE24753; t98875.s1.value.structure_type24753 = &t98876; /* x178593 stalin.sc:25683:888584 */ t98874.s1.tag = STRUCTURE_TYPE24753; t98874.s1.value.structure_type24753 = &t98875; /* x178594 stalin.sc:25683:888584 */ t98873.s0.tag = STRUCTURE_TYPE24753; t98873.s0.value.structure_type24753 = &t98874; /* x178595 stalin.sc:25683:888584 */ t98873.s1.tag = NULL_TYPE; /* x178596 stalin.sc:25683:888584 */ t98872.s1.tag = STRUCTURE_TYPE24753; t98872.s1.value.structure_type24753 = &t98873; /* x178597 stalin.sc:25683:888584 */ t98871.s0.tag = STRUCTURE_TYPE24753; t98871.s0.value.structure_type24753 = &t98872; /* x178598 stalin.sc:25683:888584 */ t98871.s1.tag = NULL_TYPE; /* x178599 stalin.sc:25683:888584 */ t98870.s0.tag = STRUCTURE_TYPE24753; t98870.s0.value.structure_type24753 = &t98871; /* x178600 stalin.sc:25683:888584 */ t98881.s0.tag = EXTERNAL_SYMBOL_TYPE; t98881.s0.value.external_symbol_type = q43; /* x178601 stalin.sc:25683:888584 */ t98883.s0.tag = EXTERNAL_SYMBOL_TYPE; t98883.s0.value.external_symbol_type = q102; /* x178602 stalin.sc:25683:888584 */ t98885.s0.tag = EXTERNAL_SYMBOL_TYPE; t98885.s0.value.external_symbol_type = q125; /* x178603 stalin.sc:25683:888584 */ t98886.s0.tag = EXTERNAL_SYMBOL_TYPE; t98886.s0.value.external_symbol_type = q312; /* x178604 stalin.sc:25683:888584 */ t98886.s1.tag = NULL_TYPE; /* x178605 stalin.sc:25683:888584 */ t98885.s1.tag = STRUCTURE_TYPE24753; t98885.s1.value.structure_type24753 = &t98886; /* x178606 stalin.sc:25683:888584 */ t98884.s0.tag = STRUCTURE_TYPE24753; t98884.s0.value.structure_type24753 = &t98885; /* x178607 stalin.sc:25683:888584 */ t98884.s1.tag = NULL_TYPE; /* x178608 stalin.sc:25683:888584 */ t98883.s1.tag = STRUCTURE_TYPE24753; t98883.s1.value.structure_type24753 = &t98884; /* x178609 stalin.sc:25683:888584 */ t98882.s0.tag = STRUCTURE_TYPE24753; t98882.s0.value.structure_type24753 = &t98883; /* x178610 stalin.sc:25683:888584 */ t98888.s0.tag = EXTERNAL_SYMBOL_TYPE; t98888.s0.value.external_symbol_type = q287; /* x178611 stalin.sc:25683:888584 */ t98889.s0.tag = EXTERNAL_SYMBOL_TYPE; t98889.s0.value.external_symbol_type = q312; /* x178612 stalin.sc:25683:888584 */ t98889.s1.tag = NULL_TYPE; /* x178613 stalin.sc:25683:888584 */ t98888.s1.tag = STRUCTURE_TYPE24753; t98888.s1.value.structure_type24753 = &t98889; /* x178614 stalin.sc:25683:888584 */ t98887.s0.tag = STRUCTURE_TYPE24753; t98887.s0.value.structure_type24753 = &t98888; /* x178615 stalin.sc:25683:888584 */ t98887.s1.tag = NULL_TYPE; /* x178616 stalin.sc:25683:888584 */} void initialize_constants33(void) {t98882.s1.tag = STRUCTURE_TYPE24753; t98882.s1.value.structure_type24753 = &t98887; /* x178617 stalin.sc:25683:888584 */ t98881.s1.tag = STRUCTURE_TYPE24753; t98881.s1.value.structure_type24753 = &t98882; /* x178618 stalin.sc:25683:888584 */ t98880.s0.tag = STRUCTURE_TYPE24753; t98880.s0.value.structure_type24753 = &t98881; /* x178619 stalin.sc:25683:888584 */ t98880.s1.tag = NULL_TYPE; /* x178620 stalin.sc:25683:888584 */ t98870.s1.tag = STRUCTURE_TYPE24753; t98870.s1.value.structure_type24753 = &t98880; /* x178621 stalin.sc:25683:888584 */ t98869.s1.tag = STRUCTURE_TYPE24753; t98869.s1.value.structure_type24753 = &t98870; /* x178622 stalin.sc:25683:888584 */ t98868.s0.tag = STRUCTURE_TYPE24753; t98868.s0.value.structure_type24753 = &t98869; /* x178623 stalin.sc:25683:888584 */ t98868.s1.tag = NULL_TYPE; /* x178624 stalin.sc:25683:888584 */ t98857.s1.tag = STRUCTURE_TYPE24753; t98857.s1.value.structure_type24753 = &t98868; /* x178625 stalin.sc:25683:888584 */ t98846.s1.tag = STRUCTURE_TYPE24753; t98846.s1.value.structure_type24753 = &t98857; /* x178626 stalin.sc:25683:888584 */ t98845.s1.tag = STRUCTURE_TYPE24753; t98845.s1.value.structure_type24753 = &t98846; /* x178627 stalin.sc:25683:888584 */ t98844.s0.tag = STRUCTURE_TYPE24753; t98844.s0.value.structure_type24753 = &t98845; /* x178628 stalin.sc:25683:888584 */ t98844.s1.tag = NULL_TYPE; /* x178629 stalin.sc:25683:888584 */ t98834.s1.tag = STRUCTURE_TYPE24753; t98834.s1.value.structure_type24753 = &t98844; /* x178630 stalin.sc:25683:888584 */ t98833.s1.tag = STRUCTURE_TYPE24753; t98833.s1.value.structure_type24753 = &t98834; /* x178631 stalin.sc:25683:888584 */ t98832.s1.tag = STRUCTURE_TYPE24753; t98832.s1.value.structure_type24753 = &t98833; /* x178632 stalin.sc:25683:888584 */ t98831.s0.tag = STRUCTURE_TYPE24753; t98831.s0.value.structure_type24753 = &t98832; /* x178633 stalin.sc:25683:888584 */ t98891.s0.tag = EXTERNAL_SYMBOL_TYPE; t98891.s0.value.external_symbol_type = q43; /* x178634 stalin.sc:25683:888584 */ t98893.s0.tag = EXTERNAL_SYMBOL_TYPE; t98893.s0.value.external_symbol_type = q102; /* x178635 stalin.sc:25683:888584 */ t98895.s0.tag = EXTERNAL_SYMBOL_TYPE; t98895.s0.value.external_symbol_type = q125; /* x178636 stalin.sc:25683:888584 */ t98896.s0.tag = EXTERNAL_SYMBOL_TYPE; t98896.s0.value.external_symbol_type = q313; /* x178637 stalin.sc:25683:888584 */ t98896.s1.tag = NULL_TYPE; /* x178638 stalin.sc:25683:888584 */ t98895.s1.tag = STRUCTURE_TYPE24753; t98895.s1.value.structure_type24753 = &t98896; /* x178639 stalin.sc:25683:888584 */ t98894.s0.tag = STRUCTURE_TYPE24753; t98894.s0.value.structure_type24753 = &t98895; /* x178640 stalin.sc:25683:888584 */ t98894.s1.tag = NULL_TYPE; /* x178641 stalin.sc:25683:888584 */ t98893.s1.tag = STRUCTURE_TYPE24753; t98893.s1.value.structure_type24753 = &t98894; /* x178642 stalin.sc:25683:888584 */ t98892.s0.tag = STRUCTURE_TYPE24753; t98892.s0.value.structure_type24753 = &t98893; /* x178643 stalin.sc:25683:888584 */ t98898.s0.tag = EXTERNAL_SYMBOL_TYPE; t98898.s0.value.external_symbol_type = q239; /* x178644 stalin.sc:25683:888584 */ t98900.s0.tag = EXTERNAL_SYMBOL_TYPE; t98900.s0.value.external_symbol_type = q234; /* x178645 stalin.sc:25683:888584 */ t98901.s0.tag = ((unsigned)((unsigned char)'e'))<<2; /* x178646 stalin.sc:25683:888584 */ t98902.s0.tag = EXTERNAL_SYMBOL_TYPE; t98902.s0.value.external_symbol_type = q254; /* x178647 stalin.sc:25683:888584 */ t98902.s1.tag = NULL_TYPE; /* x178648 stalin.sc:25683:888584 */ t98901.s1.tag = STRUCTURE_TYPE24753; t98901.s1.value.structure_type24753 = &t98902; /* x178649 stalin.sc:25683:888584 */ t98900.s1.tag = STRUCTURE_TYPE24753; t98900.s1.value.structure_type24753 = &t98901; /* x178650 stalin.sc:25683:888584 */ t98899.s0.tag = STRUCTURE_TYPE24753; t98899.s0.value.structure_type24753 = &t98900; /* x178651 stalin.sc:25683:888584 */ t98904.s0.tag = EXTERNAL_SYMBOL_TYPE; t98904.s0.value.external_symbol_type = q309; /* x178652 stalin.sc:25683:888584 */ t98905.s0.tag = EXTERNAL_SYMBOL_TYPE; t98905.s0.value.external_symbol_type = q313; /* x178653 stalin.sc:25683:888584 */ t98906.s0.tag = EXTERNAL_SYMBOL_TYPE; t98906.s0.value.external_symbol_type = q254; /* x178654 stalin.sc:25683:888584 */ t98906.s1.tag = NULL_TYPE; /* x178655 stalin.sc:25683:888584 */ t98905.s1.tag = STRUCTURE_TYPE24753; t98905.s1.value.structure_type24753 = &t98906; /* x178656 stalin.sc:25683:888584 */ t98904.s1.tag = STRUCTURE_TYPE24753; t98904.s1.value.structure_type24753 = &t98905; /* x178657 stalin.sc:25683:888584 */ t98903.s0.tag = STRUCTURE_TYPE24753; t98903.s0.value.structure_type24753 = &t98904; /* x178658 stalin.sc:25683:888584 */ t98903.s1.tag = NULL_TYPE; /* x178659 stalin.sc:25683:888584 */ t98899.s1.tag = STRUCTURE_TYPE24753; t98899.s1.value.structure_type24753 = &t98903; /* x178660 stalin.sc:25683:888584 */ t98898.s1.tag = STRUCTURE_TYPE24753; t98898.s1.value.structure_type24753 = &t98899; /* x178661 stalin.sc:25683:888584 */ t98897.s0.tag = STRUCTURE_TYPE24753; t98897.s0.value.structure_type24753 = &t98898; /* x178662 stalin.sc:25683:888584 */ t98897.s1.tag = NULL_TYPE; /* x178663 stalin.sc:25683:888584 */ t98892.s1.tag = STRUCTURE_TYPE24753; t98892.s1.value.structure_type24753 = &t98897; /* x178664 stalin.sc:25683:888584 */ t98891.s1.tag = STRUCTURE_TYPE24753; t98891.s1.value.structure_type24753 = &t98892; /* x178665 stalin.sc:25683:888584 */ t98890.s0.tag = STRUCTURE_TYPE24753; t98890.s0.value.structure_type24753 = &t98891; /* x178666 stalin.sc:25683:888584 */ t98890.s1.tag = NULL_TYPE; /* x178667 stalin.sc:25683:888584 */ t98831.s1.tag = STRUCTURE_TYPE24753; t98831.s1.value.structure_type24753 = &t98890; /* x178668 stalin.sc:25683:888584 */ t98827.s1.tag = STRUCTURE_TYPE24753; t98827.s1.value.structure_type24753 = &t98831; /* x178669 stalin.sc:25683:888584 */ t98816.s1.tag = STRUCTURE_TYPE24753; t98816.s1.value.structure_type24753 = &t98827; /* x178670 stalin.sc:25683:888584 */ t98815.s1.tag = STRUCTURE_TYPE24753; t98815.s1.value.structure_type24753 = &t98816; /* x178671 stalin.sc:25683:888584 */ t98814.s0.tag = STRUCTURE_TYPE24753; t98814.s0.value.structure_type24753 = &t98815; /* x178672 stalin.sc:25683:888584 */ t98814.s1.tag = NULL_TYPE; /* x178673 stalin.sc:25683:888584 */ t98798.s1.tag = STRUCTURE_TYPE24753; t98798.s1.value.structure_type24753 = &t98814; /* x178674 stalin.sc:25683:888584 */ t98782.s1.tag = STRUCTURE_TYPE24753; t98782.s1.value.structure_type24753 = &t98798; /* x178675 stalin.sc:25683:888584 */ t98781.s1.tag = STRUCTURE_TYPE24753; t98781.s1.value.structure_type24753 = &t98782; /* x178676 stalin.sc:25683:888584 */ t98780.s0.tag = STRUCTURE_TYPE24753; t98780.s0.value.structure_type24753 = &t98781; /* x178677 stalin.sc:25683:888584 */ t98780.s1.tag = NULL_TYPE; /* x178678 stalin.sc:25683:888584 */ t98769.s1.tag = STRUCTURE_TYPE24753; t98769.s1.value.structure_type24753 = &t98780; /* x178679 stalin.sc:25683:888584 */ t98768.s1.tag = STRUCTURE_TYPE24753; t98768.s1.value.structure_type24753 = &t98769; /* x178680 stalin.sc:25683:888584 */ t98767.s0.tag = STRUCTURE_TYPE24753; t98767.s0.value.structure_type24753 = &t98768; /* x178681 stalin.sc:25683:888584 */ t98767.s1.tag = NULL_TYPE; /* x178682 stalin.sc:25683:888584 */ t98762.s1.tag = STRUCTURE_TYPE24753; t98762.s1.value.structure_type24753 = &t98767; /* x178683 stalin.sc:25683:888584 */ t98761.s1.tag = STRUCTURE_TYPE24753; t98761.s1.value.structure_type24753 = &t98762; /* x178684 stalin.sc:25683:888584 */ t98760.s0.tag = STRUCTURE_TYPE24753; t98760.s0.value.structure_type24753 = &t98761; /* x178685 stalin.sc:25683:888584 */ t98908.s0.tag = EXTERNAL_SYMBOL_TYPE; t98908.s0.value.external_symbol_type = q97; /* x178686 stalin.sc:25683:888584 */ t98910.s0.tag = EXTERNAL_SYMBOL_TYPE; t98910.s0.value.external_symbol_type = q316; /* x178687 stalin.sc:25683:888584 */ t98911.s0.tag = EXTERNAL_SYMBOL_TYPE; t98911.s0.value.external_symbol_type = q310; /* x178688 stalin.sc:25683:888584 */ t98912.s0.tag = EXTERNAL_SYMBOL_TYPE; t98912.s0.value.external_symbol_type = q254; /* x178689 stalin.sc:25683:888584 */ t98912.s1.tag = NULL_TYPE; /* x178690 stalin.sc:25683:888584 */ t98911.s1.tag = STRUCTURE_TYPE24753; t98911.s1.value.structure_type24753 = &t98912; /* x178691 stalin.sc:25683:888584 */ t98910.s1.tag = STRUCTURE_TYPE24753; t98910.s1.value.structure_type24753 = &t98911; /* x178692 stalin.sc:25683:888584 */ t98909.s0.tag = STRUCTURE_TYPE24753; t98909.s0.value.structure_type24753 = &t98910; /* x178693 stalin.sc:25683:888584 */ t98914.s0.tag = EXTERNAL_SYMBOL_TYPE; t98914.s0.value.external_symbol_type = q240; /* x178694 stalin.sc:25683:888584 */ t98917.s0.tag = EXTERNAL_SYMBOL_TYPE; t98917.s0.value.external_symbol_type = q102; /* x178695 stalin.sc:25683:888584 */ t98919.s0.tag = EXTERNAL_SYMBOL_TYPE; t98919.s0.value.external_symbol_type = q120; /* x178696 stalin.sc:25683:888584 */ t98920.s0.tag = EXTERNAL_SYMBOL_TYPE; t98920.s0.value.external_symbol_type = q310; /* x178697 stalin.sc:25683:888584 */ t98921.s0.tag = EXTERNAL_SYMBOL_TYPE; t98921.s0.value.external_symbol_type = q310; /* x178698 stalin.sc:25683:888584 */ t98921.s1.tag = NULL_TYPE; /* x178699 stalin.sc:25683:888584 */ t98920.s1.tag = STRUCTURE_TYPE24753; t98920.s1.value.structure_type24753 = &t98921; /* x178700 stalin.sc:25683:888584 */ t98919.s1.tag = STRUCTURE_TYPE24753; t98919.s1.value.structure_type24753 = &t98920; /* x178701 stalin.sc:25683:888584 */ t98918.s0.tag = STRUCTURE_TYPE24753; t98918.s0.value.structure_type24753 = &t98919; /* x178702 stalin.sc:25683:888584 */ t98918.s1.tag = NULL_TYPE; /* x178703 stalin.sc:25683:888584 */ t98917.s1.tag = STRUCTURE_TYPE24753; t98917.s1.value.structure_type24753 = &t98918; /* x178704 stalin.sc:25683:888584 */ t98916.s0.tag = STRUCTURE_TYPE24753; t98916.s0.value.structure_type24753 = &t98917; /* x178705 stalin.sc:25683:888584 */ t98923.s0.tag = EXTERNAL_SYMBOL_TYPE; t98923.s0.value.external_symbol_type = q307; /* x178706 stalin.sc:25683:888584 */ t98924.s0.tag = STRING_TYPE; t98924.s0.value.string_type = "#*NOT-A-NUMBER*"; /* x178707 stalin.sc:25683:888584 */ t98925.s0.tag = EXTERNAL_SYMBOL_TYPE; t98925.s0.value.external_symbol_type = q254; /* x178708 stalin.sc:25683:888584 */ t98925.s1.tag = NULL_TYPE; /* x178709 stalin.sc:25683:888584 */ t98924.s1.tag = STRUCTURE_TYPE24753; t98924.s1.value.structure_type24753 = &t98925; /* x178710 stalin.sc:25683:888584 */ t98923.s1.tag = STRUCTURE_TYPE24753; t98923.s1.value.structure_type24753 = &t98924; /* x178711 stalin.sc:25683:888584 */ t98922.s0.tag = STRUCTURE_TYPE24753; t98922.s0.value.structure_type24753 = &t98923; /* x178712 stalin.sc:25683:888584 */ t98922.s1.tag = NULL_TYPE; /* x178713 stalin.sc:25683:888584 */ t98916.s1.tag = STRUCTURE_TYPE24753; t98916.s1.value.structure_type24753 = &t98922; /* x178714 stalin.sc:25683:888584 */ t98915.s0.tag = STRUCTURE_TYPE24753; t98915.s0.value.structure_type24753 = &t98916; /* x178715 stalin.sc:25683:888584 */ t98929.s0.tag = EXTERNAL_SYMBOL_TYPE; t98929.s0.value.external_symbol_type = q77; /* x178716 stalin.sc:25683:888584 */ t98930.s0.tag = EXTERNAL_SYMBOL_TYPE; t98930.s0.value.external_symbol_type = q238; /* x178717 stalin.sc:25683:888584 */ t98930.s1.tag = NULL_TYPE; /* x178718 stalin.sc:25683:888584 */ t98929.s1.tag = STRUCTURE_TYPE24753; t98929.s1.value.structure_type24753 = &t98930; /* x178719 stalin.sc:25683:888584 */ t98928.s0.tag = STRUCTURE_TYPE24753; t98928.s0.value.structure_type24753 = &t98929; /* x178720 stalin.sc:25683:888584 */ t98931.s0.tag = EXTERNAL_SYMBOL_TYPE; t98931.s0.value.external_symbol_type = q310; /* x178721 stalin.sc:25683:888584 */ t98931.s1.tag = NULL_TYPE; /* x178722 stalin.sc:25683:888584 */ t98928.s1.tag = STRUCTURE_TYPE24753; t98928.s1.value.structure_type24753 = &t98931; /* x178723 stalin.sc:25683:888584 */ t98927.s0.tag = STRUCTURE_TYPE24753; t98927.s0.value.structure_type24753 = &t98928; /* x178724 stalin.sc:25683:888584 */ t98933.s0.tag = EXTERNAL_SYMBOL_TYPE; t98933.s0.value.external_symbol_type = q307; /* x178725 stalin.sc:25683:888584 */ t98934.s0.tag = STRING_TYPE; t98934.s0.value.string_type = "#*INFINITY*"; /* x178726 stalin.sc:25683:888584 */ t98935.s0.tag = EXTERNAL_SYMBOL_TYPE; t98935.s0.value.external_symbol_type = q254; /* x178727 stalin.sc:25683:888584 */ t98935.s1.tag = NULL_TYPE; /* x178728 stalin.sc:25683:888584 */ t98934.s1.tag = STRUCTURE_TYPE24753; t98934.s1.value.structure_type24753 = &t98935; /* x178729 stalin.sc:25683:888584 */ t98933.s1.tag = STRUCTURE_TYPE24753; t98933.s1.value.structure_type24753 = &t98934; /* x178730 stalin.sc:25683:888584 */ t98932.s0.tag = STRUCTURE_TYPE24753; t98932.s0.value.structure_type24753 = &t98933; /* x178731 stalin.sc:25683:888584 */ t98932.s1.tag = NULL_TYPE; /* x178732 stalin.sc:25683:888584 */ t98927.s1.tag = STRUCTURE_TYPE24753; t98927.s1.value.structure_type24753 = &t98932; /* x178733 stalin.sc:25683:888584 */ t98926.s0.tag = STRUCTURE_TYPE24753; t98926.s0.value.structure_type24753 = &t98927; /* x178734 stalin.sc:25683:888584 */ t98938.s0.tag = EXTERNAL_SYMBOL_TYPE; t98938.s0.value.external_symbol_type = q127; /* x178735 stalin.sc:25683:888584 */ t98939.s0.tag = EXTERNAL_SYMBOL_TYPE; t98939.s0.value.external_symbol_type = q310; /* x178736 stalin.sc:25683:888584 */ t98939.s1.tag = NULL_TYPE; /* x178737 stalin.sc:25683:888584 */ t98938.s1.tag = STRUCTURE_TYPE24753; t98938.s1.value.structure_type24753 = &t98939; /* x178738 stalin.sc:25683:888584 */ t98937.s0.tag = STRUCTURE_TYPE24753; t98937.s0.value.structure_type24753 = &t98938; /* x178739 stalin.sc:25683:888584 */ t98941.s0.tag = EXTERNAL_SYMBOL_TYPE; t98941.s0.value.external_symbol_type = q234; /* x178740 stalin.sc:25683:888584 */ t98942.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x178741 stalin.sc:25683:888584 */ t98943.s0.tag = EXTERNAL_SYMBOL_TYPE; t98943.s0.value.external_symbol_type = q254; /* x178742 stalin.sc:25683:888584 */ t98943.s1.tag = NULL_TYPE; /* x178743 stalin.sc:25683:888584 */ t98942.s1.tag = STRUCTURE_TYPE24753; t98942.s1.value.structure_type24753 = &t98943; /* x178744 stalin.sc:25683:888584 */ t98941.s1.tag = STRUCTURE_TYPE24753; t98941.s1.value.structure_type24753 = &t98942; /* x178745 stalin.sc:25683:888584 */ t98940.s0.tag = STRUCTURE_TYPE24753; t98940.s0.value.structure_type24753 = &t98941; /* x178746 stalin.sc:25683:888584 */ t98945.s0.tag = EXTERNAL_SYMBOL_TYPE; t98945.s0.value.external_symbol_type = q316; /* x178747 stalin.sc:25683:888584 */ t98947.s0.tag = EXTERNAL_SYMBOL_TYPE; t98947.s0.value.external_symbol_type = q2; /* x178748 stalin.sc:25683:888584 */ t98948.s0.tag = EXTERNAL_SYMBOL_TYPE; t98948.s0.value.external_symbol_type = q310; /* x178749 stalin.sc:25683:888584 */ t98948.s1.tag = NULL_TYPE; /* x178750 stalin.sc:25683:888584 */ t98947.s1.tag = STRUCTURE_TYPE24753; t98947.s1.value.structure_type24753 = &t98948; /* x178751 stalin.sc:25683:888584 */ t98946.s0.tag = STRUCTURE_TYPE24753; t98946.s0.value.structure_type24753 = &t98947; /* x178752 stalin.sc:25683:888584 */ t98949.s0.tag = EXTERNAL_SYMBOL_TYPE; t98949.s0.value.external_symbol_type = q254; /* x178753 stalin.sc:25683:888584 */ t98949.s1.tag = NULL_TYPE; /* x178754 stalin.sc:25683:888584 */ t98946.s1.tag = STRUCTURE_TYPE24753; t98946.s1.value.structure_type24753 = &t98949; /* x178755 stalin.sc:25683:888584 */ t98945.s1.tag = STRUCTURE_TYPE24753; t98945.s1.value.structure_type24753 = &t98946; /* x178756 stalin.sc:25683:888584 */ t98944.s0.tag = STRUCTURE_TYPE24753; t98944.s0.value.structure_type24753 = &t98945; /* x178757 stalin.sc:25683:888584 */ t98944.s1.tag = NULL_TYPE; /* x178758 stalin.sc:25683:888584 */ t98940.s1.tag = STRUCTURE_TYPE24753; t98940.s1.value.structure_type24753 = &t98944; /* x178759 stalin.sc:25683:888584 */ t98937.s1.tag = STRUCTURE_TYPE24753; t98937.s1.value.structure_type24753 = &t98940; /* x178760 stalin.sc:25683:888584 */ t98936.s0.tag = STRUCTURE_TYPE24753; t98936.s0.value.structure_type24753 = &t98937; /* x178761 stalin.sc:25683:888584 */ t98952.s0.tag = EXTERNAL_SYMBOL_TYPE; t98952.s0.value.external_symbol_type = q125; /* x178762 stalin.sc:25683:888584 */ t98953.s0.tag = EXTERNAL_SYMBOL_TYPE; t98953.s0.value.external_symbol_type = q310; /* x178763 stalin.sc:25683:888584 */ t98953.s1.tag = NULL_TYPE; /* x178764 stalin.sc:25683:888584 */ t98952.s1.tag = STRUCTURE_TYPE24753; t98952.s1.value.structure_type24753 = &t98953; /* x178765 stalin.sc:25683:888584 */ t98951.s0.tag = STRUCTURE_TYPE24753; t98951.s0.value.structure_type24753 = &t98952; /* x178766 stalin.sc:25683:888584 */ t98955.s0.tag = EXTERNAL_SYMBOL_TYPE; t98955.s0.value.external_symbol_type = q307; /* x178767 stalin.sc:25683:888584 */ t98956.s0.tag = STRING_TYPE; t98956.s0.value.string_type = "0.0"; /* x178768 stalin.sc:25683:888584 */ t98957.s0.tag = EXTERNAL_SYMBOL_TYPE; t98957.s0.value.external_symbol_type = q254; /* x178769 stalin.sc:25683:888584 */ t98957.s1.tag = NULL_TYPE; /* x178770 stalin.sc:25683:888584 */ t98956.s1.tag = STRUCTURE_TYPE24753; t98956.s1.value.structure_type24753 = &t98957; /* x178771 stalin.sc:25683:888584 */ t98955.s1.tag = STRUCTURE_TYPE24753; t98955.s1.value.structure_type24753 = &t98956; /* x178772 stalin.sc:25683:888584 */ t98954.s0.tag = STRUCTURE_TYPE24753; t98954.s0.value.structure_type24753 = &t98955; /* x178773 stalin.sc:25683:888584 */ t98954.s1.tag = NULL_TYPE; /* x178774 stalin.sc:25683:888584 */ t98951.s1.tag = STRUCTURE_TYPE24753; t98951.s1.value.structure_type24753 = &t98954; /* x178775 stalin.sc:25683:888584 */ t98950.s0.tag = STRUCTURE_TYPE24753; t98950.s0.value.structure_type24753 = &t98951; /* x178776 stalin.sc:25683:888584 */ t98960.s0.tag = EXTERNAL_SYMBOL_TYPE; t98960.s0.value.external_symbol_type = q124; /* x178777 stalin.sc:25683:888584 */ t98961.s0.tag = EXTERNAL_SYMBOL_TYPE; t98961.s0.value.external_symbol_type = q310; /* x178778 stalin.sc:25683:888584 */ t98962.s0.tag = FLONUM_TYPE; t98962.s0.value.flonum_type = 1.0e1; /* x178779 stalin.sc:25683:888584 */ t98962.s1.tag = NULL_TYPE; /* x178780 stalin.sc:25683:888584 */ t98961.s1.tag = STRUCTURE_TYPE24753; t98961.s1.value.structure_type24753 = &t98962; /* x178781 stalin.sc:25683:888584 */ t98960.s1.tag = STRUCTURE_TYPE24753; t98960.s1.value.structure_type24753 = &t98961; /* x178782 stalin.sc:25683:888584 */ t98959.s0.tag = STRUCTURE_TYPE24753; t98959.s0.value.structure_type24753 = &t98960; /* x178783 stalin.sc:25683:888584 */ t98964.s0.tag = EXTERNAL_SYMBOL_TYPE; t98964.s0.value.external_symbol_type = q242; /* x178784 stalin.sc:25683:888584 */ t98965.s0.tag = EXTERNAL_SYMBOL_TYPE; t98965.s0.value.external_symbol_type = q287; /* x178785 stalin.sc:25683:888584 */ t98968.s0.tag = EXTERNAL_SYMBOL_TYPE; t98968.s0.value.external_symbol_type = q312; /* x178786 stalin.sc:25683:888584 */ t98970.s0.tag = EXTERNAL_SYMBOL_TYPE; t98970.s0.value.external_symbol_type = q130; /* x178787 stalin.sc:25683:888584 */ t98971.s0.tag = FLONUM_TYPE; t98971.s0.value.flonum_type = 1.0e-1; /* x178788 stalin.sc:25683:888584 */ t98972.s0.tag = EXTERNAL_SYMBOL_TYPE; t98972.s0.value.external_symbol_type = q310; /* x178789 stalin.sc:25683:888584 */ t98972.s1.tag = NULL_TYPE; /* x178790 stalin.sc:25683:888584 */ t98971.s1.tag = STRUCTURE_TYPE24753; t98971.s1.value.structure_type24753 = &t98972; /* x178791 stalin.sc:25683:888584 */ t98970.s1.tag = STRUCTURE_TYPE24753; t98970.s1.value.structure_type24753 = &t98971; /* x178792 stalin.sc:25683:888584 */ t98969.s0.tag = STRUCTURE_TYPE24753; t98969.s0.value.structure_type24753 = &t98970; /* x178793 stalin.sc:25683:888584 */ t98969.s1.tag = NULL_TYPE; /* x178794 stalin.sc:25683:888584 */ t98968.s1.tag = STRUCTURE_TYPE24753; t98968.s1.value.structure_type24753 = &t98969; /* x178795 stalin.sc:25683:888584 */ t98967.s0.tag = STRUCTURE_TYPE24753; t98967.s0.value.structure_type24753 = &t98968; /* x178796 stalin.sc:25683:888584 */ t98974.s0.tag = EXTERNAL_SYMBOL_TYPE; t98974.s0.value.external_symbol_type = q313; /* x178797 stalin.sc:25683:888584 */ t98975.s0.tag = FIXNUM_TYPE; t98975.s0.value.fixnum_type = 1; /* x178798 stalin.sc:25683:888584 */ t98975.s1.tag = NULL_TYPE; /* x178799 stalin.sc:25683:888584 */ t98974.s1.tag = STRUCTURE_TYPE24753; t98974.s1.value.structure_type24753 = &t98975; /* x178800 stalin.sc:25683:888584 */ t98973.s0.tag = STRUCTURE_TYPE24753; t98973.s0.value.structure_type24753 = &t98974; /* x178801 stalin.sc:25683:888584 */ t98973.s1.tag = NULL_TYPE; /* x178802 stalin.sc:25683:888584 */ t98967.s1.tag = STRUCTURE_TYPE24753; t98967.s1.value.structure_type24753 = &t98973; /* x178803 stalin.sc:25683:888584 */ t98966.s0.tag = STRUCTURE_TYPE24753; t98966.s0.value.structure_type24753 = &t98967; /* x178804 stalin.sc:25683:888584 */ t98977.s0.tag = EXTERNAL_SYMBOL_TYPE; t98977.s0.value.external_symbol_type = q43; /* x178805 stalin.sc:25683:888584 */ t98979.s0.tag = EXTERNAL_SYMBOL_TYPE; t98979.s0.value.external_symbol_type = q124; /* x178806 stalin.sc:25683:888584 */ t98980.s0.tag = EXTERNAL_SYMBOL_TYPE; t98980.s0.value.external_symbol_type = q312; /* x178807 stalin.sc:25683:888584 */ t98981.s0.tag = FLONUM_TYPE; t98981.s0.value.flonum_type = 1.0e1; /* x178808 stalin.sc:25683:888584 */ t98981.s1.tag = NULL_TYPE; /* x178809 stalin.sc:25683:888584 */ t98980.s1.tag = STRUCTURE_TYPE24753; t98980.s1.value.structure_type24753 = &t98981; /* x178810 stalin.sc:25683:888584 */ t98979.s1.tag = STRUCTURE_TYPE24753; t98979.s1.value.structure_type24753 = &t98980; /* x178811 stalin.sc:25683:888584 */ t98978.s0.tag = STRUCTURE_TYPE24753; t98978.s0.value.structure_type24753 = &t98979; /* x178812 stalin.sc:25683:888584 */ t98983.s0.tag = EXTERNAL_SYMBOL_TYPE; t98983.s0.value.external_symbol_type = q287; /* x178813 stalin.sc:25683:888584 */ t98985.s0.tag = EXTERNAL_SYMBOL_TYPE; t98985.s0.value.external_symbol_type = q130; /* x178814 stalin.sc:25683:888584 */ t98986.s0.tag = FLONUM_TYPE; t98986.s0.value.flonum_type = 1.0e-1; /* x178815 stalin.sc:25683:888584 */ t98987.s0.tag = EXTERNAL_SYMBOL_TYPE; t98987.s0.value.external_symbol_type = q312; /* x178816 stalin.sc:25683:888584 */ t98987.s1.tag = NULL_TYPE; /* x178817 stalin.sc:25683:888584 */ t98986.s1.tag = STRUCTURE_TYPE24753; t98986.s1.value.structure_type24753 = &t98987; /* x178818 stalin.sc:25683:888584 */ t98985.s1.tag = STRUCTURE_TYPE24753; t98985.s1.value.structure_type24753 = &t98986; /* x178819 stalin.sc:25683:888584 */ t98984.s0.tag = STRUCTURE_TYPE24753; t98984.s0.value.structure_type24753 = &t98985; /* x178820 stalin.sc:25683:888584 */ t98989.s0.tag = EXTERNAL_SYMBOL_TYPE; t98989.s0.value.external_symbol_type = q4; /* x178821 stalin.sc:25683:888584 */ t98990.s0.tag = EXTERNAL_SYMBOL_TYPE; t98990.s0.value.external_symbol_type = q313; /* x178822 stalin.sc:25683:888584 */ t98991.s0.tag = FIXNUM_TYPE; t98991.s0.value.fixnum_type = 1; /* x178823 stalin.sc:25683:888584 */ t98991.s1.tag = NULL_TYPE; /* x178824 stalin.sc:25683:888584 */ t98990.s1.tag = STRUCTURE_TYPE24753; t98990.s1.value.structure_type24753 = &t98991; /* x178825 stalin.sc:25683:888584 */ t98989.s1.tag = STRUCTURE_TYPE24753; t98989.s1.value.structure_type24753 = &t98990; /* x178826 stalin.sc:25683:888584 */ t98988.s0.tag = STRUCTURE_TYPE24753; t98988.s0.value.structure_type24753 = &t98989; /* x178827 stalin.sc:25683:888584 */ t98988.s1.tag = NULL_TYPE; /* x178828 stalin.sc:25683:888584 */ t98984.s1.tag = STRUCTURE_TYPE24753; t98984.s1.value.structure_type24753 = &t98988; /* x178829 stalin.sc:25683:888584 */ t98983.s1.tag = STRUCTURE_TYPE24753; t98983.s1.value.structure_type24753 = &t98984; /* x178830 stalin.sc:25683:888584 */ t98982.s0.tag = STRUCTURE_TYPE24753; t98982.s0.value.structure_type24753 = &t98983; /* x178831 stalin.sc:25683:888584 */ t98993.s0.tag = EXTERNAL_SYMBOL_TYPE; t98993.s0.value.external_symbol_type = q311; /* x178832 stalin.sc:25683:888584 */ t98994.s0.tag = EXTERNAL_SYMBOL_TYPE; t98994.s0.value.external_symbol_type = q312; /* x178833 stalin.sc:25683:888584 */ t98995.s0.tag = EXTERNAL_SYMBOL_TYPE; t98995.s0.value.external_symbol_type = q313; /* x178834 stalin.sc:25683:888584 */ t98996.s0.tag = EXTERNAL_SYMBOL_TYPE; t98996.s0.value.external_symbol_type = q254; /* x178835 stalin.sc:25683:888584 */ t98996.s1.tag = NULL_TYPE; /* x178836 stalin.sc:25683:888584 */ t98995.s1.tag = STRUCTURE_TYPE24753; t98995.s1.value.structure_type24753 = &t98996; /* x178837 stalin.sc:25683:888584 */ t98994.s1.tag = STRUCTURE_TYPE24753; t98994.s1.value.structure_type24753 = &t98995; /* x178838 stalin.sc:25683:888584 */ t98993.s1.tag = STRUCTURE_TYPE24753; t98993.s1.value.structure_type24753 = &t98994; /* x178839 stalin.sc:25683:888584 */ t98992.s0.tag = STRUCTURE_TYPE24753; t98992.s0.value.structure_type24753 = &t98993; /* x178840 stalin.sc:25683:888584 */ t98992.s1.tag = NULL_TYPE; /* x178841 stalin.sc:25683:888584 */ t98982.s1.tag = STRUCTURE_TYPE24753; t98982.s1.value.structure_type24753 = &t98992; /* x178842 stalin.sc:25683:888584 */ t98978.s1.tag = STRUCTURE_TYPE24753; t98978.s1.value.structure_type24753 = &t98982; /* x178843 stalin.sc:25683:888584 */ t98977.s1.tag = STRUCTURE_TYPE24753; t98977.s1.value.structure_type24753 = &t98978; /* x178844 stalin.sc:25683:888584 */ t98976.s0.tag = STRUCTURE_TYPE24753; t98976.s0.value.structure_type24753 = &t98977; /* x178845 stalin.sc:25683:888584 */ t98976.s1.tag = NULL_TYPE; /* x178846 stalin.sc:25683:888584 */ t98966.s1.tag = STRUCTURE_TYPE24753; t98966.s1.value.structure_type24753 = &t98976; /* x178847 stalin.sc:25683:888584 */ t98965.s1.tag = STRUCTURE_TYPE24753; t98965.s1.value.structure_type24753 = &t98966; /* x178848 stalin.sc:25683:888584 */ t98964.s1.tag = STRUCTURE_TYPE24753; t98964.s1.value.structure_type24753 = &t98965; /* x178849 stalin.sc:25683:888584 */ t98963.s0.tag = STRUCTURE_TYPE24753; t98963.s0.value.structure_type24753 = &t98964; /* x178850 stalin.sc:25683:888584 */ t98963.s1.tag = NULL_TYPE; /* x178851 stalin.sc:25683:888584 */ t98959.s1.tag = STRUCTURE_TYPE24753; t98959.s1.value.structure_type24753 = &t98963; /* x178852 stalin.sc:25683:888584 */ t98958.s0.tag = STRUCTURE_TYPE24753; t98958.s0.value.structure_type24753 = &t98959; /* x178853 stalin.sc:25683:888584 */ t98999.s0.tag = EXTERNAL_SYMBOL_TYPE; t98999.s0.value.external_symbol_type = q121; /* x178854 stalin.sc:25683:888584 */ t99000.s0.tag = EXTERNAL_SYMBOL_TYPE; t99000.s0.value.external_symbol_type = q310; /* x178855 stalin.sc:25683:888584 */ t99001.s0.tag = FLONUM_TYPE; t99001.s0.value.flonum_type = 1.0; /* x178856 stalin.sc:25683:888584 */ t99001.s1.tag = NULL_TYPE; /* x178857 stalin.sc:25683:888584 */ t99000.s1.tag = STRUCTURE_TYPE24753; t99000.s1.value.structure_type24753 = &t99001; /* x178858 stalin.sc:25683:888584 */ t98999.s1.tag = STRUCTURE_TYPE24753; t98999.s1.value.structure_type24753 = &t99000; /* x178859 stalin.sc:25683:888584 */ t98998.s0.tag = STRUCTURE_TYPE24753; t98998.s0.value.structure_type24753 = &t98999; /* x178860 stalin.sc:25683:888584 */ t99003.s0.tag = EXTERNAL_SYMBOL_TYPE; t99003.s0.value.external_symbol_type = q242; /* x178861 stalin.sc:25683:888584 */ t99004.s0.tag = EXTERNAL_SYMBOL_TYPE; t99004.s0.value.external_symbol_type = q287; /* x178862 stalin.sc:25683:888584 */ t99007.s0.tag = EXTERNAL_SYMBOL_TYPE; t99007.s0.value.external_symbol_type = q312; /* x178863 stalin.sc:25683:888584 */ t99009.s0.tag = EXTERNAL_SYMBOL_TYPE; t99009.s0.value.external_symbol_type = q130; /* x178864 stalin.sc:25683:888584 */ t99010.s0.tag = FLONUM_TYPE; t99010.s0.value.flonum_type = 1.0e1; /* x178865 stalin.sc:25683:888584 */ t99011.s0.tag = EXTERNAL_SYMBOL_TYPE; t99011.s0.value.external_symbol_type = q310; /* x178866 stalin.sc:25683:888584 */ t99011.s1.tag = NULL_TYPE; /* x178867 stalin.sc:25683:888584 */ t99010.s1.tag = STRUCTURE_TYPE24753; t99010.s1.value.structure_type24753 = &t99011; /* x178868 stalin.sc:25683:888584 */ t99009.s1.tag = STRUCTURE_TYPE24753; t99009.s1.value.structure_type24753 = &t99010; /* x178869 stalin.sc:25683:888584 */ t99008.s0.tag = STRUCTURE_TYPE24753; t99008.s0.value.structure_type24753 = &t99009; /* x178870 stalin.sc:25683:888584 */ t99008.s1.tag = NULL_TYPE; /* x178871 stalin.sc:25683:888584 */ t99007.s1.tag = STRUCTURE_TYPE24753; t99007.s1.value.structure_type24753 = &t99008; /* x178872 stalin.sc:25683:888584 */ t99006.s0.tag = STRUCTURE_TYPE24753; t99006.s0.value.structure_type24753 = &t99007; /* x178873 stalin.sc:25683:888584 */ t99013.s0.tag = EXTERNAL_SYMBOL_TYPE; t99013.s0.value.external_symbol_type = q313; /* x178874 stalin.sc:25683:888584 */ t99014.s0.tag = FIXNUM_TYPE; t99014.s0.value.fixnum_type = -1; /* x178875 stalin.sc:25683:888584 */ t99014.s1.tag = NULL_TYPE; /* x178876 stalin.sc:25683:888584 */ t99013.s1.tag = STRUCTURE_TYPE24753; t99013.s1.value.structure_type24753 = &t99014; /* x178877 stalin.sc:25683:888584 */ t99012.s0.tag = STRUCTURE_TYPE24753; t99012.s0.value.structure_type24753 = &t99013; /* x178878 stalin.sc:25683:888584 */ t99012.s1.tag = NULL_TYPE; /* x178879 stalin.sc:25683:888584 */ t99006.s1.tag = STRUCTURE_TYPE24753; t99006.s1.value.structure_type24753 = &t99012; /* x178880 stalin.sc:25683:888584 */ t99005.s0.tag = STRUCTURE_TYPE24753; t99005.s0.value.structure_type24753 = &t99006; /* x178881 stalin.sc:25683:888584 */ t99016.s0.tag = EXTERNAL_SYMBOL_TYPE; t99016.s0.value.external_symbol_type = q43; /* x178882 stalin.sc:25683:888584 */ t99018.s0.tag = EXTERNAL_SYMBOL_TYPE; t99018.s0.value.external_symbol_type = q121; /* x178883 stalin.sc:25683:888584 */ t99019.s0.tag = EXTERNAL_SYMBOL_TYPE; t99019.s0.value.external_symbol_type = q312; /* x178884 stalin.sc:25683:888584 */ t99020.s0.tag = FLONUM_TYPE; t99020.s0.value.flonum_type = 1.0; /* x178885 stalin.sc:25683:888584 */ t99020.s1.tag = NULL_TYPE; /* x178886 stalin.sc:25683:888584 */ t99019.s1.tag = STRUCTURE_TYPE24753; t99019.s1.value.structure_type24753 = &t99020; /* x178887 stalin.sc:25683:888584 */ t99018.s1.tag = STRUCTURE_TYPE24753; t99018.s1.value.structure_type24753 = &t99019; /* x178888 stalin.sc:25683:888584 */ t99017.s0.tag = STRUCTURE_TYPE24753; t99017.s0.value.structure_type24753 = &t99018; /* x178889 stalin.sc:25683:888584 */ t99022.s0.tag = EXTERNAL_SYMBOL_TYPE; t99022.s0.value.external_symbol_type = q287; /* x178890 stalin.sc:25683:888584 */ t99024.s0.tag = EXTERNAL_SYMBOL_TYPE; t99024.s0.value.external_symbol_type = q130; /* x178891 stalin.sc:25683:888584 */ t99025.s0.tag = FLONUM_TYPE; t99025.s0.value.flonum_type = 1.0e1; /* x178892 stalin.sc:25683:888584 */ t99026.s0.tag = EXTERNAL_SYMBOL_TYPE; t99026.s0.value.external_symbol_type = q312; /* x178893 stalin.sc:25683:888584 */ t99026.s1.tag = NULL_TYPE; /* x178894 stalin.sc:25683:888584 */ t99025.s1.tag = STRUCTURE_TYPE24753; t99025.s1.value.structure_type24753 = &t99026; /* x178895 stalin.sc:25683:888584 */ t99024.s1.tag = STRUCTURE_TYPE24753; t99024.s1.value.structure_type24753 = &t99025; /* x178896 stalin.sc:25683:888584 */ t99023.s0.tag = STRUCTURE_TYPE24753; t99023.s0.value.structure_type24753 = &t99024; /* x178897 stalin.sc:25683:888584 */ t99028.s0.tag = EXTERNAL_SYMBOL_TYPE; t99028.s0.value.external_symbol_type = q2; /* x178898 stalin.sc:25683:888584 */ t99029.s0.tag = EXTERNAL_SYMBOL_TYPE; t99029.s0.value.external_symbol_type = q313; /* x178899 stalin.sc:25683:888584 */ t99030.s0.tag = FIXNUM_TYPE; t99030.s0.value.fixnum_type = 1; /* x178900 stalin.sc:25683:888584 */ t99030.s1.tag = NULL_TYPE; /* x178901 stalin.sc:25683:888584 */ t99029.s1.tag = STRUCTURE_TYPE24753; t99029.s1.value.structure_type24753 = &t99030; /* x178902 stalin.sc:25683:888584 */ t99028.s1.tag = STRUCTURE_TYPE24753; t99028.s1.value.structure_type24753 = &t99029; /* x178903 stalin.sc:25683:888584 */ t99027.s0.tag = STRUCTURE_TYPE24753; t99027.s0.value.structure_type24753 = &t99028; /* x178904 stalin.sc:25683:888584 */ t99027.s1.tag = NULL_TYPE; /* x178905 stalin.sc:25683:888584 */ t99023.s1.tag = STRUCTURE_TYPE24753; t99023.s1.value.structure_type24753 = &t99027; /* x178906 stalin.sc:25683:888584 */ t99022.s1.tag = STRUCTURE_TYPE24753; t99022.s1.value.structure_type24753 = &t99023; /* x178907 stalin.sc:25683:888584 */ t99021.s0.tag = STRUCTURE_TYPE24753; t99021.s0.value.structure_type24753 = &t99022; /* x178908 stalin.sc:25683:888584 */ t99032.s0.tag = EXTERNAL_SYMBOL_TYPE; t99032.s0.value.external_symbol_type = q311; /* x178909 stalin.sc:25683:888584 */ t99033.s0.tag = EXTERNAL_SYMBOL_TYPE; t99033.s0.value.external_symbol_type = q312; /* x178910 stalin.sc:25683:888584 */ t99034.s0.tag = EXTERNAL_SYMBOL_TYPE; t99034.s0.value.external_symbol_type = q313; /* x178911 stalin.sc:25683:888584 */ t99035.s0.tag = EXTERNAL_SYMBOL_TYPE; t99035.s0.value.external_symbol_type = q254; /* x178912 stalin.sc:25683:888584 */ t99035.s1.tag = NULL_TYPE; /* x178913 stalin.sc:25683:888584 */ t99034.s1.tag = STRUCTURE_TYPE24753; t99034.s1.value.structure_type24753 = &t99035; /* x178914 stalin.sc:25683:888584 */ t99033.s1.tag = STRUCTURE_TYPE24753; t99033.s1.value.structure_type24753 = &t99034; /* x178915 stalin.sc:25683:888584 */ t99032.s1.tag = STRUCTURE_TYPE24753; t99032.s1.value.structure_type24753 = &t99033; /* x178916 stalin.sc:25683:888584 */ t99031.s0.tag = STRUCTURE_TYPE24753; t99031.s0.value.structure_type24753 = &t99032; /* x178917 stalin.sc:25683:888584 */ t99031.s1.tag = NULL_TYPE; /* x178918 stalin.sc:25683:888584 */ t99021.s1.tag = STRUCTURE_TYPE24753; t99021.s1.value.structure_type24753 = &t99031; /* x178919 stalin.sc:25683:888584 */ t99017.s1.tag = STRUCTURE_TYPE24753; t99017.s1.value.structure_type24753 = &t99021; /* x178920 stalin.sc:25683:888584 */ t99016.s1.tag = STRUCTURE_TYPE24753; t99016.s1.value.structure_type24753 = &t99017; /* x178921 stalin.sc:25683:888584 */ t99015.s0.tag = STRUCTURE_TYPE24753; t99015.s0.value.structure_type24753 = &t99016; /* x178922 stalin.sc:25683:888584 */ t99015.s1.tag = NULL_TYPE; /* x178923 stalin.sc:25683:888584 */ t99005.s1.tag = STRUCTURE_TYPE24753; t99005.s1.value.structure_type24753 = &t99015; /* x178924 stalin.sc:25683:888584 */ t99004.s1.tag = STRUCTURE_TYPE24753; t99004.s1.value.structure_type24753 = &t99005; /* x178925 stalin.sc:25683:888584 */ t99003.s1.tag = STRUCTURE_TYPE24753; t99003.s1.value.structure_type24753 = &t99004; /* x178926 stalin.sc:25683:888584 */ t99002.s0.tag = STRUCTURE_TYPE24753; t99002.s0.value.structure_type24753 = &t99003; /* x178927 stalin.sc:25683:888584 */ t99002.s1.tag = NULL_TYPE; /* x178928 stalin.sc:25683:888584 */ t98998.s1.tag = STRUCTURE_TYPE24753; t98998.s1.value.structure_type24753 = &t99002; /* x178929 stalin.sc:25683:888584 */ t98997.s0.tag = STRUCTURE_TYPE24753; t98997.s0.value.structure_type24753 = &t98998; /* x178930 stalin.sc:25683:888584 */ t99037.s0.tag = EXTERNAL_SYMBOL_TYPE; t99037.s0.value.external_symbol_type = q95; /* x178931 stalin.sc:25683:888584 */ t99039.s0.tag = EXTERNAL_SYMBOL_TYPE; t99039.s0.value.external_symbol_type = q311; /* x178932 stalin.sc:25683:888584 */ t99040.s0.tag = EXTERNAL_SYMBOL_TYPE; t99040.s0.value.external_symbol_type = q310; /* x178933 stalin.sc:25683:888584 */ t99041.s0.tag = FIXNUM_TYPE; t99041.s0.value.fixnum_type = 0; /* x178934 stalin.sc:25683:888584 */ t99042.s0.tag = EXTERNAL_SYMBOL_TYPE; t99042.s0.value.external_symbol_type = q254; /* x178935 stalin.sc:25683:888584 */ t99042.s1.tag = NULL_TYPE; /* x178936 stalin.sc:25683:888584 */ t99041.s1.tag = STRUCTURE_TYPE24753; t99041.s1.value.structure_type24753 = &t99042; /* x178937 stalin.sc:25683:888584 */ t99040.s1.tag = STRUCTURE_TYPE24753; t99040.s1.value.structure_type24753 = &t99041; /* x178938 stalin.sc:25683:888584 */ t99039.s1.tag = STRUCTURE_TYPE24753; t99039.s1.value.structure_type24753 = &t99040; /* x178939 stalin.sc:25683:888584 */ t99038.s0.tag = STRUCTURE_TYPE24753; t99038.s0.value.structure_type24753 = &t99039; /* x178940 stalin.sc:25683:888584 */ t99038.s1.tag = NULL_TYPE; /* x178941 stalin.sc:25683:888584 */ t99037.s1.tag = STRUCTURE_TYPE24753; t99037.s1.value.structure_type24753 = &t99038; /* x178942 stalin.sc:25683:888584 */ t99036.s0.tag = STRUCTURE_TYPE24753; t99036.s0.value.structure_type24753 = &t99037; /* x178943 stalin.sc:25683:888584 */ t99036.s1.tag = NULL_TYPE; /* x178944 stalin.sc:25683:888584 */ t98997.s1.tag = STRUCTURE_TYPE24753; t98997.s1.value.structure_type24753 = &t99036; /* x178945 stalin.sc:25683:888584 */ t98958.s1.tag = STRUCTURE_TYPE24753; t98958.s1.value.structure_type24753 = &t98997; /* x178946 stalin.sc:25683:888584 */ t98950.s1.tag = STRUCTURE_TYPE24753; t98950.s1.value.structure_type24753 = &t98958; /* x178947 stalin.sc:25683:888584 */ t98936.s1.tag = STRUCTURE_TYPE24753; t98936.s1.value.structure_type24753 = &t98950; /* x178948 stalin.sc:25683:888584 */ t98926.s1.tag = STRUCTURE_TYPE24753; t98926.s1.value.structure_type24753 = &t98936; /* x178949 stalin.sc:25683:888584 */ t98915.s1.tag = STRUCTURE_TYPE24753; t98915.s1.value.structure_type24753 = &t98926; /* x178950 stalin.sc:25683:888584 */ t98914.s1.tag = STRUCTURE_TYPE24753; t98914.s1.value.structure_type24753 = &t98915; /* x178951 stalin.sc:25683:888584 */ t98913.s0.tag = STRUCTURE_TYPE24753; t98913.s0.value.structure_type24753 = &t98914; /* x178952 stalin.sc:25683:888584 */ t98913.s1.tag = NULL_TYPE; /* x178953 stalin.sc:25683:888584 */ t98909.s1.tag = STRUCTURE_TYPE24753; t98909.s1.value.structure_type24753 = &t98913; /* x178954 stalin.sc:25683:888584 */ t98908.s1.tag = STRUCTURE_TYPE24753; t98908.s1.value.structure_type24753 = &t98909; /* x178955 stalin.sc:25683:888584 */ t98907.s0.tag = STRUCTURE_TYPE24753; t98907.s0.value.structure_type24753 = &t98908; /* x178956 stalin.sc:25683:888584 */ t99044.s0.tag = EXTERNAL_SYMBOL_TYPE; t99044.s0.value.external_symbol_type = q97; /* x178957 stalin.sc:25683:888584 */ t99046.s0.tag = EXTERNAL_SYMBOL_TYPE; t99046.s0.value.external_symbol_type = q317; /* x178958 stalin.sc:25683:888584 */ t99047.s0.tag = EXTERNAL_SYMBOL_TYPE; t99047.s0.value.external_symbol_type = q318; /* x178959 stalin.sc:25683:888584 */ t99048.s0.tag = EXTERNAL_SYMBOL_TYPE; t99048.s0.value.external_symbol_type = q254; /* x178960 stalin.sc:25683:888584 */ t99048.s1.tag = NULL_TYPE; /* x178961 stalin.sc:25683:888584 */ t99047.s1.tag = STRUCTURE_TYPE24753; t99047.s1.value.structure_type24753 = &t99048; /* x178962 stalin.sc:25683:888584 */ t99046.s1.tag = STRUCTURE_TYPE24753; t99046.s1.value.structure_type24753 = &t99047; /* x178963 stalin.sc:25683:888584 */ t99045.s0.tag = STRUCTURE_TYPE24753; t99045.s0.value.structure_type24753 = &t99046; /* x178964 stalin.sc:25683:888584 */ t99050.s0.tag = EXTERNAL_SYMBOL_TYPE; t99050.s0.value.external_symbol_type = q240; /* x178965 stalin.sc:25683:888584 */ t99053.s0.tag = EXTERNAL_SYMBOL_TYPE; t99053.s0.value.external_symbol_type = q111; /* x178966 stalin.sc:25683:888584 */ t99054.s0.tag = EXTERNAL_SYMBOL_TYPE; t99054.s0.value.external_symbol_type = q318; /* x178967 stalin.sc:25683:888584 */ t99054.s1.tag = NULL_TYPE; /* x178968 stalin.sc:25683:888584 */ t99053.s1.tag = STRUCTURE_TYPE24753; t99053.s1.value.structure_type24753 = &t99054; /* x178969 stalin.sc:25683:888584 */ t99052.s0.tag = STRUCTURE_TYPE24753; t99052.s0.value.structure_type24753 = &t99053; /* x178970 stalin.sc:25683:888584 */ t99056.s0.tag = EXTERNAL_SYMBOL_TYPE; t99056.s0.value.external_symbol_type = q307; /* x178971 stalin.sc:25683:888584 */ t99057.s0.tag = STRING_TYPE; t99057.s0.value.string_type = "()"; /* x178972 stalin.sc:25683:888584 */ t99058.s0.tag = EXTERNAL_SYMBOL_TYPE; t99058.s0.value.external_symbol_type = q254; /* x178973 stalin.sc:25683:888584 */ t99058.s1.tag = NULL_TYPE; /* x178974 stalin.sc:25683:888584 */ t99057.s1.tag = STRUCTURE_TYPE24753; t99057.s1.value.structure_type24753 = &t99058; /* x178975 stalin.sc:25683:888584 */ t99056.s1.tag = STRUCTURE_TYPE24753; t99056.s1.value.structure_type24753 = &t99057; /* x178976 stalin.sc:25683:888584 */ t99055.s0.tag = STRUCTURE_TYPE24753; t99055.s0.value.structure_type24753 = &t99056; /* x178977 stalin.sc:25683:888584 */ t99055.s1.tag = NULL_TYPE; /* x178978 stalin.sc:25683:888584 */ t99052.s1.tag = STRUCTURE_TYPE24753; t99052.s1.value.structure_type24753 = &t99055; /* x178979 stalin.sc:25683:888584 */ t99051.s0.tag = STRUCTURE_TYPE24753; t99051.s0.value.structure_type24753 = &t99052; /* x178980 stalin.sc:25683:888584 */ t99061.s0.tag = EXTERNAL_SYMBOL_TYPE; t99061.s0.value.external_symbol_type = q104; /* x178981 stalin.sc:25683:888584 */ t99062.s0.tag = EXTERNAL_SYMBOL_TYPE; t99062.s0.value.external_symbol_type = q318; /* x178982 stalin.sc:25683:888584 */ t99063.s0.tag = TRUE_TYPE; /* x178983 stalin.sc:25683:888584 */ t99063.s1.tag = NULL_TYPE; /* x178984 stalin.sc:25683:888584 */ t99062.s1.tag = STRUCTURE_TYPE24753; t99062.s1.value.structure_type24753 = &t99063; /* x178985 stalin.sc:25683:888584 */ t99061.s1.tag = STRUCTURE_TYPE24753; t99061.s1.value.structure_type24753 = &t99062; /* x178986 stalin.sc:25683:888584 */ t99060.s0.tag = STRUCTURE_TYPE24753; t99060.s0.value.structure_type24753 = &t99061; /* x178987 stalin.sc:25683:888584 */ t99065.s0.tag = EXTERNAL_SYMBOL_TYPE; t99065.s0.value.external_symbol_type = q307; /* x178988 stalin.sc:25683:888584 */ t99066.s0.tag = STRING_TYPE; t99066.s0.value.string_type = "#T"; /* x178989 stalin.sc:25683:888584 */ t99067.s0.tag = EXTERNAL_SYMBOL_TYPE; t99067.s0.value.external_symbol_type = q254; /* x178990 stalin.sc:25683:888584 */ t99067.s1.tag = NULL_TYPE; /* x178991 stalin.sc:25683:888584 */ t99066.s1.tag = STRUCTURE_TYPE24753; t99066.s1.value.structure_type24753 = &t99067; /* x178992 stalin.sc:25683:888584 */ t99065.s1.tag = STRUCTURE_TYPE24753; t99065.s1.value.structure_type24753 = &t99066; /* x178993 stalin.sc:25683:888584 */ t99064.s0.tag = STRUCTURE_TYPE24753; t99064.s0.value.structure_type24753 = &t99065; /* x178994 stalin.sc:25683:888584 */ t99064.s1.tag = NULL_TYPE; /* x178995 stalin.sc:25683:888584 */ t99060.s1.tag = STRUCTURE_TYPE24753; t99060.s1.value.structure_type24753 = &t99064; /* x178996 stalin.sc:25683:888584 */ t99059.s0.tag = STRUCTURE_TYPE24753; t99059.s0.value.structure_type24753 = &t99060; /* x178997 stalin.sc:25683:888584 */ t99070.s0.tag = EXTERNAL_SYMBOL_TYPE; t99070.s0.value.external_symbol_type = q102; /* x178998 stalin.sc:25683:888584 */ t99071.s0.tag = EXTERNAL_SYMBOL_TYPE; t99071.s0.value.external_symbol_type = q318; /* x178999 stalin.sc:25683:888584 */ t99071.s1.tag = NULL_TYPE; /* x179000 stalin.sc:25683:888584 */ t99070.s1.tag = STRUCTURE_TYPE24753; t99070.s1.value.structure_type24753 = &t99071; /* x179001 stalin.sc:25683:888584 */ t99069.s0.tag = STRUCTURE_TYPE24753; t99069.s0.value.structure_type24753 = &t99070; /* x179002 stalin.sc:25683:888584 */ t99073.s0.tag = EXTERNAL_SYMBOL_TYPE; t99073.s0.value.external_symbol_type = q307; /* x179003 stalin.sc:25683:888584 */ t99074.s0.tag = STRING_TYPE; t99074.s0.value.string_type = "#F"; /* x179004 stalin.sc:25683:888584 */ t99075.s0.tag = EXTERNAL_SYMBOL_TYPE; t99075.s0.value.external_symbol_type = q254; /* x179005 stalin.sc:25683:888584 */ t99075.s1.tag = NULL_TYPE; /* x179006 stalin.sc:25683:888584 */ t99074.s1.tag = STRUCTURE_TYPE24753; t99074.s1.value.structure_type24753 = &t99075; /* x179007 stalin.sc:25683:888584 */ t99073.s1.tag = STRUCTURE_TYPE24753; t99073.s1.value.structure_type24753 = &t99074; /* x179008 stalin.sc:25683:888584 */ t99072.s0.tag = STRUCTURE_TYPE24753; t99072.s0.value.structure_type24753 = &t99073; /* x179009 stalin.sc:25683:888584 */ t99072.s1.tag = NULL_TYPE; /* x179010 stalin.sc:25683:888584 */ t99069.s1.tag = STRUCTURE_TYPE24753; t99069.s1.value.structure_type24753 = &t99072; /* x179011 stalin.sc:25683:888584 */ t99068.s0.tag = STRUCTURE_TYPE24753; t99068.s0.value.structure_type24753 = &t99069; /* x179012 stalin.sc:25683:888584 */ t99078.s0.tag = EXTERNAL_SYMBOL_TYPE; t99078.s0.value.external_symbol_type = q156; /* x179013 stalin.sc:25683:888584 */ t99079.s0.tag = EXTERNAL_SYMBOL_TYPE; t99079.s0.value.external_symbol_type = q318; /* x179014 stalin.sc:25683:888584 */ t99079.s1.tag = NULL_TYPE; /* x179015 stalin.sc:25683:888584 */ t99078.s1.tag = STRUCTURE_TYPE24753; t99078.s1.value.structure_type24753 = &t99079; /* x179016 stalin.sc:25683:888584 */ t99077.s0.tag = STRUCTURE_TYPE24753; t99077.s0.value.structure_type24753 = &t99078; /* x179017 stalin.sc:25683:888584 */ t99081.s0.tag = EXTERNAL_SYMBOL_TYPE; t99081.s0.value.external_symbol_type = q240; /* x179018 stalin.sc:25683:888584 */ t99084.s0.tag = EXTERNAL_SYMBOL_TYPE; t99084.s0.value.external_symbol_type = q263; /* x179019 stalin.sc:25683:888584 */ t99085.s0.tag = EXTERNAL_SYMBOL_TYPE; t99085.s0.value.external_symbol_type = q318; /* x179020 stalin.sc:25683:888584 */ t99086.s0.tag = ((unsigned)((unsigned char)' '))<<2; /* x179021 stalin.sc:25683:888584 */ t99086.s1.tag = NULL_TYPE; /* x179022 stalin.sc:25683:888584 */ t99085.s1.tag = STRUCTURE_TYPE24753; t99085.s1.value.structure_type24753 = &t99086; /* x179023 stalin.sc:25683:888584 */ t99084.s1.tag = STRUCTURE_TYPE24753; t99084.s1.value.structure_type24753 = &t99085; /* x179024 stalin.sc:25683:888584 */ t99083.s0.tag = STRUCTURE_TYPE24753; t99083.s0.value.structure_type24753 = &t99084; /* x179025 stalin.sc:25683:888584 */ t99088.s0.tag = EXTERNAL_SYMBOL_TYPE; t99088.s0.value.external_symbol_type = q307; /* x179026 stalin.sc:25683:888584 */ t99089.s0.tag = STRING_TYPE; t99089.s0.value.string_type = "#\\Space"; /* x179027 stalin.sc:25683:888584 */ t99090.s0.tag = EXTERNAL_SYMBOL_TYPE; t99090.s0.value.external_symbol_type = q254; /* x179028 stalin.sc:25683:888584 */ t99090.s1.tag = NULL_TYPE; /* x179029 stalin.sc:25683:888584 */ t99089.s1.tag = STRUCTURE_TYPE24753; t99089.s1.value.structure_type24753 = &t99090; /* x179030 stalin.sc:25683:888584 */ t99088.s1.tag = STRUCTURE_TYPE24753; t99088.s1.value.structure_type24753 = &t99089; /* x179031 stalin.sc:25683:888584 */ t99087.s0.tag = STRUCTURE_TYPE24753; t99087.s0.value.structure_type24753 = &t99088; /* x179032 stalin.sc:25683:888584 */ t99087.s1.tag = NULL_TYPE; /* x179033 stalin.sc:25683:888584 */ t99083.s1.tag = STRUCTURE_TYPE24753; t99083.s1.value.structure_type24753 = &t99087; /* x179034 stalin.sc:25683:888584 */ t99082.s0.tag = STRUCTURE_TYPE24753; t99082.s0.value.structure_type24753 = &t99083; /* x179035 stalin.sc:25683:888584 */ t99093.s0.tag = EXTERNAL_SYMBOL_TYPE; t99093.s0.value.external_symbol_type = q263; /* x179036 stalin.sc:25683:888584 */ t99094.s0.tag = EXTERNAL_SYMBOL_TYPE; t99094.s0.value.external_symbol_type = q318; /* x179037 stalin.sc:25683:888584 */ t99095.s0.tag = ((unsigned)((unsigned char)'\n'))<<2; /* x179038 stalin.sc:25683:888584 */ t99095.s1.tag = NULL_TYPE; /* x179039 stalin.sc:25683:888584 */ t99094.s1.tag = STRUCTURE_TYPE24753; t99094.s1.value.structure_type24753 = &t99095; /* x179040 stalin.sc:25683:888584 */ t99093.s1.tag = STRUCTURE_TYPE24753; t99093.s1.value.structure_type24753 = &t99094; /* x179041 stalin.sc:25683:888584 */ t99092.s0.tag = STRUCTURE_TYPE24753; t99092.s0.value.structure_type24753 = &t99093; /* x179042 stalin.sc:25683:888584 */ t99097.s0.tag = EXTERNAL_SYMBOL_TYPE; t99097.s0.value.external_symbol_type = q307; /* x179043 stalin.sc:25683:888584 */ t99098.s0.tag = STRING_TYPE; t99098.s0.value.string_type = "#\\Newline"; /* x179044 stalin.sc:25683:888584 */ t99099.s0.tag = EXTERNAL_SYMBOL_TYPE; t99099.s0.value.external_symbol_type = q254; /* x179045 stalin.sc:25683:888584 */ t99099.s1.tag = NULL_TYPE; /* x179046 stalin.sc:25683:888584 */ t99098.s1.tag = STRUCTURE_TYPE24753; t99098.s1.value.structure_type24753 = &t99099; /* x179047 stalin.sc:25683:888584 */ t99097.s1.tag = STRUCTURE_TYPE24753; t99097.s1.value.structure_type24753 = &t99098; /* x179048 stalin.sc:25683:888584 */ t99096.s0.tag = STRUCTURE_TYPE24753; t99096.s0.value.structure_type24753 = &t99097; /* x179049 stalin.sc:25683:888584 */ t99096.s1.tag = NULL_TYPE; /* x179050 stalin.sc:25683:888584 */ t99092.s1.tag = STRUCTURE_TYPE24753; t99092.s1.value.structure_type24753 = &t99096; /* x179051 stalin.sc:25683:888584 */ t99091.s0.tag = STRUCTURE_TYPE24753; t99091.s0.value.structure_type24753 = &t99092; /* x179052 stalin.sc:25683:888584 */ t99101.s0.tag = EXTERNAL_SYMBOL_TYPE; t99101.s0.value.external_symbol_type = q95; /* x179053 stalin.sc:25683:888584 */ t99103.s0.tag = EXTERNAL_SYMBOL_TYPE; t99103.s0.value.external_symbol_type = q307; /* x179054 stalin.sc:25683:888584 */ t99104.s0.tag = STRING_TYPE; t99104.s0.value.string_type = "#\\"; /* x179055 stalin.sc:25683:888584 */ t99105.s0.tag = EXTERNAL_SYMBOL_TYPE; t99105.s0.value.external_symbol_type = q254; /* x179056 stalin.sc:25683:888584 */ t99105.s1.tag = NULL_TYPE; /* x179057 stalin.sc:25683:888584 */ t99104.s1.tag = STRUCTURE_TYPE24753; t99104.s1.value.structure_type24753 = &t99105; /* x179058 stalin.sc:25683:888584 */ t99103.s1.tag = STRUCTURE_TYPE24753; t99103.s1.value.structure_type24753 = &t99104; /* x179059 stalin.sc:25683:888584 */ t99102.s0.tag = STRUCTURE_TYPE24753; t99102.s0.value.structure_type24753 = &t99103; /* x179060 stalin.sc:25683:888584 */ t99107.s0.tag = EXTERNAL_SYMBOL_TYPE; t99107.s0.value.external_symbol_type = q234; /* x179061 stalin.sc:25683:888584 */ t99108.s0.tag = EXTERNAL_SYMBOL_TYPE; t99108.s0.value.external_symbol_type = q318; /* x179062 stalin.sc:25683:888584 */ t99109.s0.tag = EXTERNAL_SYMBOL_TYPE; t99109.s0.value.external_symbol_type = q254; /* x179063 stalin.sc:25683:888584 */ t99109.s1.tag = NULL_TYPE; /* x179064 stalin.sc:25683:888584 */ t99108.s1.tag = STRUCTURE_TYPE24753; t99108.s1.value.structure_type24753 = &t99109; /* x179065 stalin.sc:25683:888584 */ t99107.s1.tag = STRUCTURE_TYPE24753; t99107.s1.value.structure_type24753 = &t99108; /* x179066 stalin.sc:25683:888584 */ t99106.s0.tag = STRUCTURE_TYPE24753; t99106.s0.value.structure_type24753 = &t99107; /* x179067 stalin.sc:25683:888584 */ t99106.s1.tag = NULL_TYPE; /* x179068 stalin.sc:25683:888584 */ t99102.s1.tag = STRUCTURE_TYPE24753; t99102.s1.value.structure_type24753 = &t99106; /* x179069 stalin.sc:25683:888584 */ t99101.s1.tag = STRUCTURE_TYPE24753; t99101.s1.value.structure_type24753 = &t99102; /* x179070 stalin.sc:25683:888584 */ t99100.s0.tag = STRUCTURE_TYPE24753; t99100.s0.value.structure_type24753 = &t99101; /* x179071 stalin.sc:25683:888584 */ t99100.s1.tag = NULL_TYPE; /* x179072 stalin.sc:25683:888584 */ t99091.s1.tag = STRUCTURE_TYPE24753; t99091.s1.value.structure_type24753 = &t99100; /* x179073 stalin.sc:25683:888584 */ t99082.s1.tag = STRUCTURE_TYPE24753; t99082.s1.value.structure_type24753 = &t99091; /* x179074 stalin.sc:25683:888584 */ t99081.s1.tag = STRUCTURE_TYPE24753; t99081.s1.value.structure_type24753 = &t99082; /* x179075 stalin.sc:25683:888584 */ t99080.s0.tag = STRUCTURE_TYPE24753; t99080.s0.value.structure_type24753 = &t99081; /* x179076 stalin.sc:25683:888584 */ t99080.s1.tag = NULL_TYPE; /* x179077 stalin.sc:25683:888584 */ t99077.s1.tag = STRUCTURE_TYPE24753; t99077.s1.value.structure_type24753 = &t99080; /* x179078 stalin.sc:25683:888584 */ t99076.s0.tag = STRUCTURE_TYPE24753; t99076.s0.value.structure_type24753 = &t99077; /* x179079 stalin.sc:25683:888584 */ t99112.s0.tag = EXTERNAL_SYMBOL_TYPE; t99112.s0.value.external_symbol_type = q115; /* x179080 stalin.sc:25683:888584 */ t99113.s0.tag = EXTERNAL_SYMBOL_TYPE; t99113.s0.value.external_symbol_type = q318; /* x179081 stalin.sc:25683:888584 */ t99113.s1.tag = NULL_TYPE; /* x179082 stalin.sc:25683:888584 */ t99112.s1.tag = STRUCTURE_TYPE24753; t99112.s1.value.structure_type24753 = &t99113; /* x179083 stalin.sc:25683:888584 */ t99111.s0.tag = STRUCTURE_TYPE24753; t99111.s0.value.structure_type24753 = &t99112; /* x179084 stalin.sc:25683:888584 */ t99115.s0.tag = EXTERNAL_SYMBOL_TYPE; t99115.s0.value.external_symbol_type = q43; /* x179085 stalin.sc:25683:888584 */ t99117.s0.tag = EXTERNAL_SYMBOL_TYPE; t99117.s0.value.external_symbol_type = q118; /* x179086 stalin.sc:25683:888584 */ t99118.s0.tag = EXTERNAL_SYMBOL_TYPE; t99118.s0.value.external_symbol_type = q318; /* x179087 stalin.sc:25683:888584 */ t99118.s1.tag = NULL_TYPE; /* x179088 stalin.sc:25683:888584 */ t99117.s1.tag = STRUCTURE_TYPE24753; t99117.s1.value.structure_type24753 = &t99118; /* x179089 stalin.sc:25683:888584 */ t99116.s0.tag = STRUCTURE_TYPE24753; t99116.s0.value.structure_type24753 = &t99117; /* x179090 stalin.sc:25683:888584 */ t99120.s0.tag = EXTERNAL_SYMBOL_TYPE; t99120.s0.value.external_symbol_type = q309; /* x179091 stalin.sc:25683:888584 */ t99121.s0.tag = EXTERNAL_SYMBOL_TYPE; t99121.s0.value.external_symbol_type = q318; /* x179092 stalin.sc:25683:888584 */ t99122.s0.tag = EXTERNAL_SYMBOL_TYPE; t99122.s0.value.external_symbol_type = q254; /* x179093 stalin.sc:25683:888584 */ t99122.s1.tag = NULL_TYPE; /* x179094 stalin.sc:25683:888584 */ t99121.s1.tag = STRUCTURE_TYPE24753; t99121.s1.value.structure_type24753 = &t99122; /* x179095 stalin.sc:25683:888584 */ t99120.s1.tag = STRUCTURE_TYPE24753; t99120.s1.value.structure_type24753 = &t99121; /* x179096 stalin.sc:25683:888584 */ t99119.s0.tag = STRUCTURE_TYPE24753; t99119.s0.value.structure_type24753 = &t99120; /* x179097 stalin.sc:25683:888584 */ t99124.s0.tag = EXTERNAL_SYMBOL_TYPE; t99124.s0.value.external_symbol_type = q316; /* x179098 stalin.sc:25683:888584 */ t99125.s0.tag = EXTERNAL_SYMBOL_TYPE; t99125.s0.value.external_symbol_type = q318; /* x179099 stalin.sc:25683:888584 */ t99126.s0.tag = EXTERNAL_SYMBOL_TYPE; t99126.s0.value.external_symbol_type = q254; /* x179100 stalin.sc:25683:888584 */ t99126.s1.tag = NULL_TYPE; /* x179101 stalin.sc:25683:888584 */ t99125.s1.tag = STRUCTURE_TYPE24753; t99125.s1.value.structure_type24753 = &t99126; /* x179102 stalin.sc:25683:888584 */ t99124.s1.tag = STRUCTURE_TYPE24753; t99124.s1.value.structure_type24753 = &t99125; /* x179103 stalin.sc:25683:888584 */ t99123.s0.tag = STRUCTURE_TYPE24753; t99123.s0.value.structure_type24753 = &t99124; /* x179104 stalin.sc:25683:888584 */ t99123.s1.tag = NULL_TYPE; /* x179105 stalin.sc:25683:888584 */ t99119.s1.tag = STRUCTURE_TYPE24753; t99119.s1.value.structure_type24753 = &t99123; /* x179106 stalin.sc:25683:888584 */ t99116.s1.tag = STRUCTURE_TYPE24753; t99116.s1.value.structure_type24753 = &t99119; /* x179107 stalin.sc:25683:888584 */ t99115.s1.tag = STRUCTURE_TYPE24753; t99115.s1.value.structure_type24753 = &t99116; /* x179108 stalin.sc:25683:888584 */ t99114.s0.tag = STRUCTURE_TYPE24753; t99114.s0.value.structure_type24753 = &t99115; /* x179109 stalin.sc:25683:888584 */ t99114.s1.tag = NULL_TYPE; /* x179110 stalin.sc:25683:888584 */ t99111.s1.tag = STRUCTURE_TYPE24753; t99111.s1.value.structure_type24753 = &t99114; /* x179111 stalin.sc:25683:888584 */ t99110.s0.tag = STRUCTURE_TYPE24753; t99110.s0.value.structure_type24753 = &t99111; /* x179112 stalin.sc:25683:888584 */ t99129.s0.tag = EXTERNAL_SYMBOL_TYPE; t99129.s0.value.external_symbol_type = q172; /* x179113 stalin.sc:25683:888584 */ t99130.s0.tag = EXTERNAL_SYMBOL_TYPE; t99130.s0.value.external_symbol_type = q318; /* x179114 stalin.sc:25683:888584 */ t99130.s1.tag = NULL_TYPE; /* x179115 stalin.sc:25683:888584 */ t99129.s1.tag = STRUCTURE_TYPE24753; t99129.s1.value.structure_type24753 = &t99130; /* x179116 stalin.sc:25683:888584 */ t99128.s0.tag = STRUCTURE_TYPE24753; t99128.s0.value.structure_type24753 = &t99129; /* x179117 stalin.sc:25683:888584 */ t99132.s0.tag = EXTERNAL_SYMBOL_TYPE; t99132.s0.value.external_symbol_type = q307; /* x179118 stalin.sc:25683:888584 */ t99133.s0.tag = STRING_TYPE; t99133.s0.value.string_type = "#*INPUT-PORT*"; /* x179119 stalin.sc:25683:888584 */ t99134.s0.tag = EXTERNAL_SYMBOL_TYPE; t99134.s0.value.external_symbol_type = q254; /* x179120 stalin.sc:25683:888584 */ t99134.s1.tag = NULL_TYPE; /* x179121 stalin.sc:25683:888584 */ t99133.s1.tag = STRUCTURE_TYPE24753; t99133.s1.value.structure_type24753 = &t99134; /* x179122 stalin.sc:25683:888584 */ t99132.s1.tag = STRUCTURE_TYPE24753; t99132.s1.value.structure_type24753 = &t99133; /* x179123 stalin.sc:25683:888584 */ t99131.s0.tag = STRUCTURE_TYPE24753; t99131.s0.value.structure_type24753 = &t99132; /* x179124 stalin.sc:25683:888584 */ t99131.s1.tag = NULL_TYPE; /* x179125 stalin.sc:25683:888584 */ t99128.s1.tag = STRUCTURE_TYPE24753; t99128.s1.value.structure_type24753 = &t99131; /* x179126 stalin.sc:25683:888584 */ t99127.s0.tag = STRUCTURE_TYPE24753; t99127.s0.value.structure_type24753 = &t99128; /* x179127 stalin.sc:25683:888584 */ t99137.s0.tag = EXTERNAL_SYMBOL_TYPE; t99137.s0.value.external_symbol_type = q173; /* x179128 stalin.sc:25683:888584 */ t99138.s0.tag = EXTERNAL_SYMBOL_TYPE; t99138.s0.value.external_symbol_type = q318; /* x179129 stalin.sc:25683:888584 */ t99138.s1.tag = NULL_TYPE; /* x179130 stalin.sc:25683:888584 */ t99137.s1.tag = STRUCTURE_TYPE24753; t99137.s1.value.structure_type24753 = &t99138; /* x179131 stalin.sc:25683:888584 */ t99136.s0.tag = STRUCTURE_TYPE24753; t99136.s0.value.structure_type24753 = &t99137; /* x179132 stalin.sc:25683:888584 */ t99140.s0.tag = EXTERNAL_SYMBOL_TYPE; t99140.s0.value.external_symbol_type = q307; /* x179133 stalin.sc:25683:888584 */ t99141.s0.tag = STRING_TYPE; t99141.s0.value.string_type = "#*OUTPUT-PORT*"; /* x179134 stalin.sc:25683:888584 */ t99142.s0.tag = EXTERNAL_SYMBOL_TYPE; t99142.s0.value.external_symbol_type = q254; /* x179135 stalin.sc:25683:888584 */ t99142.s1.tag = NULL_TYPE; /* x179136 stalin.sc:25683:888584 */ t99141.s1.tag = STRUCTURE_TYPE24753; t99141.s1.value.structure_type24753 = &t99142; /* x179137 stalin.sc:25683:888584 */ t99140.s1.tag = STRUCTURE_TYPE24753; t99140.s1.value.structure_type24753 = &t99141; /* x179138 stalin.sc:25683:888584 */ t99139.s0.tag = STRUCTURE_TYPE24753; t99139.s0.value.structure_type24753 = &t99140; /* x179139 stalin.sc:25683:888584 */ t99139.s1.tag = NULL_TYPE; /* x179140 stalin.sc:25683:888584 */ t99136.s1.tag = STRUCTURE_TYPE24753; t99136.s1.value.structure_type24753 = &t99139; /* x179141 stalin.sc:25683:888584 */ t99135.s0.tag = STRUCTURE_TYPE24753; t99135.s0.value.structure_type24753 = &t99136; /* x179142 stalin.sc:25683:888584 */ t99145.s0.tag = EXTERNAL_SYMBOL_TYPE; t99145.s0.value.external_symbol_type = q178; /* x179143 stalin.sc:25683:888584 */ t99146.s0.tag = EXTERNAL_SYMBOL_TYPE; t99146.s0.value.external_symbol_type = q318; /* x179144 stalin.sc:25683:888584 */ t99146.s1.tag = NULL_TYPE; /* x179145 stalin.sc:25683:888584 */ t99145.s1.tag = STRUCTURE_TYPE24753; t99145.s1.value.structure_type24753 = &t99146; /* x179146 stalin.sc:25683:888584 */ t99144.s0.tag = STRUCTURE_TYPE24753; t99144.s0.value.structure_type24753 = &t99145; /* x179147 stalin.sc:25683:888584 */ t99148.s0.tag = EXTERNAL_SYMBOL_TYPE; t99148.s0.value.external_symbol_type = q307; /* x179148 stalin.sc:25683:888584 */ t99149.s0.tag = STRING_TYPE; t99149.s0.value.string_type = "#*EOF-OBJECT*"; /* x179149 stalin.sc:25683:888584 */ t99150.s0.tag = EXTERNAL_SYMBOL_TYPE; t99150.s0.value.external_symbol_type = q254; /* x179150 stalin.sc:25683:888584 */ t99150.s1.tag = NULL_TYPE; /* x179151 stalin.sc:25683:888584 */ t99149.s1.tag = STRUCTURE_TYPE24753; t99149.s1.value.structure_type24753 = &t99150; /* x179152 stalin.sc:25683:888584 */ t99148.s1.tag = STRUCTURE_TYPE24753; t99148.s1.value.structure_type24753 = &t99149; /* x179153 stalin.sc:25683:888584 */ t99147.s0.tag = STRUCTURE_TYPE24753; t99147.s0.value.structure_type24753 = &t99148; /* x179154 stalin.sc:25683:888584 */ t99147.s1.tag = NULL_TYPE; /* x179155 stalin.sc:25683:888584 */ t99144.s1.tag = STRUCTURE_TYPE24753; t99144.s1.value.structure_type24753 = &t99147; /* x179156 stalin.sc:25683:888584 */ t99143.s0.tag = STRUCTURE_TYPE24753; t99143.s0.value.structure_type24753 = &t99144; /* x179157 stalin.sc:25683:888584 */ t99153.s0.tag = EXTERNAL_SYMBOL_TYPE; t99153.s0.value.external_symbol_type = q180; /* x179158 stalin.sc:25683:888584 */ t99154.s0.tag = EXTERNAL_SYMBOL_TYPE; t99154.s0.value.external_symbol_type = q318; /* x179159 stalin.sc:25683:888584 */ t99154.s1.tag = NULL_TYPE; /* x179160 stalin.sc:25683:888584 */ t99153.s1.tag = STRUCTURE_TYPE24753; t99153.s1.value.structure_type24753 = &t99154; /* x179161 stalin.sc:25683:888584 */ t99152.s0.tag = STRUCTURE_TYPE24753; t99152.s0.value.structure_type24753 = &t99153; /* x179162 stalin.sc:25683:888584 */ t99156.s0.tag = EXTERNAL_SYMBOL_TYPE; t99156.s0.value.external_symbol_type = q307; /* x179163 stalin.sc:25683:888584 */ t99157.s0.tag = STRING_TYPE; t99157.s0.value.string_type = "#*POINTER*"; /* x179164 stalin.sc:25683:888584 */ t99158.s0.tag = EXTERNAL_SYMBOL_TYPE; t99158.s0.value.external_symbol_type = q254; /* x179165 stalin.sc:25683:888584 */ t99158.s1.tag = NULL_TYPE; /* x179166 stalin.sc:25683:888584 */ t99157.s1.tag = STRUCTURE_TYPE24753; t99157.s1.value.structure_type24753 = &t99158; /* x179167 stalin.sc:25683:888584 */ t99156.s1.tag = STRUCTURE_TYPE24753; t99156.s1.value.structure_type24753 = &t99157; /* x179168 stalin.sc:25683:888584 */ t99155.s0.tag = STRUCTURE_TYPE24753; t99155.s0.value.structure_type24753 = &t99156; /* x179169 stalin.sc:25683:888584 */ t99155.s1.tag = NULL_TYPE; /* x179170 stalin.sc:25683:888584 */ t99152.s1.tag = STRUCTURE_TYPE24753; t99152.s1.value.structure_type24753 = &t99155; /* x179171 stalin.sc:25683:888584 */ t99151.s0.tag = STRUCTURE_TYPE24753; t99151.s0.value.structure_type24753 = &t99152; /* x179172 stalin.sc:25683:888584 */ t99161.s0.tag = EXTERNAL_SYMBOL_TYPE; t99161.s0.value.external_symbol_type = q112; /* x179173 stalin.sc:25683:888584 */ t99162.s0.tag = EXTERNAL_SYMBOL_TYPE; t99162.s0.value.external_symbol_type = q318; /* x179174 stalin.sc:25683:888584 */ t99162.s1.tag = NULL_TYPE; /* x179175 stalin.sc:25683:888584 */ t99161.s1.tag = STRUCTURE_TYPE24753; t99161.s1.value.structure_type24753 = &t99162; /* x179176 stalin.sc:25683:888584 */ t99160.s0.tag = STRUCTURE_TYPE24753; t99160.s0.value.structure_type24753 = &t99161; /* x179177 stalin.sc:25683:888584 */ t99164.s0.tag = EXTERNAL_SYMBOL_TYPE; t99164.s0.value.external_symbol_type = q307; /* x179178 stalin.sc:25683:888584 */ t99166.s0.tag = EXTERNAL_SYMBOL_TYPE; t99166.s0.value.external_symbol_type = q113; /* x179179 stalin.sc:25683:888584 */ t99167.s0.tag = EXTERNAL_SYMBOL_TYPE; t99167.s0.value.external_symbol_type = q318; /* x179180 stalin.sc:25683:888584 */ t99167.s1.tag = NULL_TYPE; /* x179181 stalin.sc:25683:888584 */ t99166.s1.tag = STRUCTURE_TYPE24753; t99166.s1.value.structure_type24753 = &t99167; /* x179182 stalin.sc:25683:888584 */ t99165.s0.tag = STRUCTURE_TYPE24753; t99165.s0.value.structure_type24753 = &t99166; /* x179183 stalin.sc:25683:888584 */ t99168.s0.tag = EXTERNAL_SYMBOL_TYPE; t99168.s0.value.external_symbol_type = q254; /* x179184 stalin.sc:25683:888584 */ t99168.s1.tag = NULL_TYPE; /* x179185 stalin.sc:25683:888584 */ t99165.s1.tag = STRUCTURE_TYPE24753; t99165.s1.value.structure_type24753 = &t99168; /* x179186 stalin.sc:25683:888584 */ t99164.s1.tag = STRUCTURE_TYPE24753; t99164.s1.value.structure_type24753 = &t99165; /* x179187 stalin.sc:25683:888584 */ t99163.s0.tag = STRUCTURE_TYPE24753; t99163.s0.value.structure_type24753 = &t99164; /* x179188 stalin.sc:25683:888584 */ t99163.s1.tag = NULL_TYPE; /* x179189 stalin.sc:25683:888584 */ t99160.s1.tag = STRUCTURE_TYPE24753; t99160.s1.value.structure_type24753 = &t99163; /* x179190 stalin.sc:25683:888584 */ t99159.s0.tag = STRUCTURE_TYPE24753; t99159.s0.value.structure_type24753 = &t99160; /* x179191 stalin.sc:25683:888584 */ t99171.s0.tag = EXTERNAL_SYMBOL_TYPE; t99171.s0.value.external_symbol_type = q171; /* x179192 stalin.sc:25683:888584 */ t99172.s0.tag = EXTERNAL_SYMBOL_TYPE; t99172.s0.value.external_symbol_type = q318; /* x179193 stalin.sc:25683:888584 */ t99172.s1.tag = NULL_TYPE; /* x179194 stalin.sc:25683:888584 */ t99171.s1.tag = STRUCTURE_TYPE24753; t99171.s1.value.structure_type24753 = &t99172; /* x179195 stalin.sc:25683:888584 */ t99170.s0.tag = STRUCTURE_TYPE24753; t99170.s0.value.structure_type24753 = &t99171; /* x179196 stalin.sc:25683:888584 */ t99174.s0.tag = EXTERNAL_SYMBOL_TYPE; t99174.s0.value.external_symbol_type = q307; /* x179197 stalin.sc:25683:888584 */ t99175.s0.tag = STRING_TYPE; t99175.s0.value.string_type = "#*PROCEDURE*"; /* x179198 stalin.sc:25683:888584 */ t99176.s0.tag = EXTERNAL_SYMBOL_TYPE; t99176.s0.value.external_symbol_type = q254; /* x179199 stalin.sc:25683:888584 */ t99176.s1.tag = NULL_TYPE; /* x179200 stalin.sc:25683:888584 */ t99175.s1.tag = STRUCTURE_TYPE24753; t99175.s1.value.structure_type24753 = &t99176; /* x179201 stalin.sc:25683:888584 */ t99174.s1.tag = STRUCTURE_TYPE24753; t99174.s1.value.structure_type24753 = &t99175; /* x179202 stalin.sc:25683:888584 */ t99173.s0.tag = STRUCTURE_TYPE24753; t99173.s0.value.structure_type24753 = &t99174; /* x179203 stalin.sc:25683:888584 */ t99173.s1.tag = NULL_TYPE; /* x179204 stalin.sc:25683:888584 */ t99170.s1.tag = STRUCTURE_TYPE24753; t99170.s1.value.structure_type24753 = &t99173; /* x179205 stalin.sc:25683:888584 */ t99169.s0.tag = STRUCTURE_TYPE24753; t99169.s0.value.structure_type24753 = &t99170; /* x179206 stalin.sc:25683:888584 */ t99179.s0.tag = EXTERNAL_SYMBOL_TYPE; t99179.s0.value.external_symbol_type = q159; /* x179207 stalin.sc:25683:888584 */ t99180.s0.tag = EXTERNAL_SYMBOL_TYPE; t99180.s0.value.external_symbol_type = q318; /* x179208 stalin.sc:25683:888584 */ t99180.s1.tag = NULL_TYPE; /* x179209 stalin.sc:25683:888584 */ t99179.s1.tag = STRUCTURE_TYPE24753; t99179.s1.value.structure_type24753 = &t99180; /* x179210 stalin.sc:25683:888584 */ t99178.s0.tag = STRUCTURE_TYPE24753; t99178.s0.value.structure_type24753 = &t99179; /* x179211 stalin.sc:25683:888584 */ t99182.s0.tag = EXTERNAL_SYMBOL_TYPE; t99182.s0.value.external_symbol_type = q234; /* x179212 stalin.sc:25683:888584 */ t99183.s0.tag = ((unsigned)((unsigned char)'\"'))<<2; /* x179213 stalin.sc:25683:888584 */ t99184.s0.tag = EXTERNAL_SYMBOL_TYPE; t99184.s0.value.external_symbol_type = q254; /* x179214 stalin.sc:25683:888584 */ t99184.s1.tag = NULL_TYPE; /* x179215 stalin.sc:25683:888584 */ t99183.s1.tag = STRUCTURE_TYPE24753; t99183.s1.value.structure_type24753 = &t99184; /* x179216 stalin.sc:25683:888584 */ t99182.s1.tag = STRUCTURE_TYPE24753; t99182.s1.value.structure_type24753 = &t99183; /* x179217 stalin.sc:25683:888584 */ t99181.s0.tag = STRUCTURE_TYPE24753; t99181.s0.value.structure_type24753 = &t99182; /* x179218 stalin.sc:25683:888584 */ t99186.s0.tag = EXTERNAL_SYMBOL_TYPE; t99186.s0.value.external_symbol_type = q242; /* x179219 stalin.sc:25683:888584 */ t99189.s0.tag = EXTERNAL_SYMBOL_TYPE; t99189.s0.value.external_symbol_type = q260; /* x179220 stalin.sc:25683:888584 */ t99191.s0.tag = EXTERNAL_SYMBOL_TYPE; t99191.s0.value.external_symbol_type = q162; /* x179221 stalin.sc:25683:888584 */ t99192.s0.tag = EXTERNAL_SYMBOL_TYPE; t99192.s0.value.external_symbol_type = q318; /* x179222 stalin.sc:25683:888584 */ t99192.s1.tag = NULL_TYPE; /* x179223 stalin.sc:25683:888584 */ t99191.s1.tag = STRUCTURE_TYPE24753; t99191.s1.value.structure_type24753 = &t99192; /* x179224 stalin.sc:25683:888584 */ t99190.s0.tag = STRUCTURE_TYPE24753; t99190.s0.value.structure_type24753 = &t99191; /* x179225 stalin.sc:25683:888584 */ t99190.s1.tag = NULL_TYPE; /* x179226 stalin.sc:25683:888584 */ t99189.s1.tag = STRUCTURE_TYPE24753; t99189.s1.value.structure_type24753 = &t99190; /* x179227 stalin.sc:25683:888584 */ t99188.s0.tag = STRUCTURE_TYPE24753; t99188.s0.value.structure_type24753 = &t99189; /* x179228 stalin.sc:25683:888584 */ t99188.s1.tag = NULL_TYPE; /* x179229 stalin.sc:25683:888584 */ t99187.s0.tag = STRUCTURE_TYPE24753; t99187.s0.value.structure_type24753 = &t99188; /* x179230 stalin.sc:25683:888584 */ t99194.s0.tag = EXTERNAL_SYMBOL_TYPE; t99194.s0.value.external_symbol_type = q242; /* x179231 stalin.sc:25683:888584 */ t99195.s0.tag = EXTERNAL_SYMBOL_TYPE; t99195.s0.value.external_symbol_type = q287; /* x179232 stalin.sc:25683:888584 */ t99198.s0.tag = EXTERNAL_SYMBOL_TYPE; t99198.s0.value.external_symbol_type = q308; /* x179233 stalin.sc:25683:888584 */ t99199.s0.tag = FIXNUM_TYPE; t99199.s0.value.fixnum_type = 0; /* x179234 stalin.sc:25683:888584 */ t99199.s1.tag = NULL_TYPE; /* x179235 stalin.sc:25683:888584 */ t99198.s1.tag = STRUCTURE_TYPE24753; t99198.s1.value.structure_type24753 = &t99199; /* x179236 stalin.sc:25683:888584 */ t99197.s0.tag = STRUCTURE_TYPE24753; t99197.s0.value.structure_type24753 = &t99198; /* x179237 stalin.sc:25683:888584 */ t99197.s1.tag = NULL_TYPE; /* x179238 stalin.sc:25683:888584 */ t99196.s0.tag = STRUCTURE_TYPE24753; t99196.s0.value.structure_type24753 = &t99197; /* x179239 stalin.sc:25683:888584 */ t99201.s0.tag = EXTERNAL_SYMBOL_TYPE; t99201.s0.value.external_symbol_type = q43; /* x179240 stalin.sc:25683:888584 */ t99203.s0.tag = EXTERNAL_SYMBOL_TYPE; t99203.s0.value.external_symbol_type = q121; /* x179241 stalin.sc:25683:888584 */ t99204.s0.tag = EXTERNAL_SYMBOL_TYPE; t99204.s0.value.external_symbol_type = q308; /* x179242 stalin.sc:25683:888584 */ t99205.s0.tag = EXTERNAL_SYMBOL_TYPE; t99205.s0.value.external_symbol_type = q260; /* x179243 stalin.sc:25683:888584 */ t99205.s1.tag = NULL_TYPE; /* x179244 stalin.sc:25683:888584 */ t99204.s1.tag = STRUCTURE_TYPE24753; t99204.s1.value.structure_type24753 = &t99205; /* x179245 stalin.sc:25683:888584 */ t99203.s1.tag = STRUCTURE_TYPE24753; t99203.s1.value.structure_type24753 = &t99204; /* x179246 stalin.sc:25683:888584 */ t99202.s0.tag = STRUCTURE_TYPE24753; t99202.s0.value.structure_type24753 = &t99203; /* x179247 stalin.sc:25683:888584 */ t99207.s0.tag = EXTERNAL_SYMBOL_TYPE; t99207.s0.value.external_symbol_type = q242; /* x179248 stalin.sc:25683:888584 */ t99210.s0.tag = EXTERNAL_SYMBOL_TYPE; t99210.s0.value.external_symbol_type = q261; /* x179249 stalin.sc:25683:888584 */ t99212.s0.tag = EXTERNAL_SYMBOL_TYPE; t99212.s0.value.external_symbol_type = q163; /* x179250 stalin.sc:25683:888584 */ t99213.s0.tag = EXTERNAL_SYMBOL_TYPE; t99213.s0.value.external_symbol_type = q318; /* x179251 stalin.sc:25683:888584 */ t99214.s0.tag = EXTERNAL_SYMBOL_TYPE; t99214.s0.value.external_symbol_type = q308; /* x179252 stalin.sc:25683:888584 */ t99214.s1.tag = NULL_TYPE; /* x179253 stalin.sc:25683:888584 */ t99213.s1.tag = STRUCTURE_TYPE24753; t99213.s1.value.structure_type24753 = &t99214; /* x179254 stalin.sc:25683:888584 */ t99212.s1.tag = STRUCTURE_TYPE24753; t99212.s1.value.structure_type24753 = &t99213; /* x179255 stalin.sc:25683:888584 */ t99211.s0.tag = STRUCTURE_TYPE24753; t99211.s0.value.structure_type24753 = &t99212; /* x179256 stalin.sc:25683:888584 */ t99211.s1.tag = NULL_TYPE; /* x179257 stalin.sc:25683:888584 */ t99210.s1.tag = STRUCTURE_TYPE24753; t99210.s1.value.structure_type24753 = &t99211; /* x179258 stalin.sc:25683:888584 */ t99209.s0.tag = STRUCTURE_TYPE24753; t99209.s0.value.structure_type24753 = &t99210; /* x179259 stalin.sc:25683:888584 */ t99209.s1.tag = NULL_TYPE; /* x179260 stalin.sc:25683:888584 */ t99208.s0.tag = STRUCTURE_TYPE24753; t99208.s0.value.structure_type24753 = &t99209; /* x179261 stalin.sc:25683:888584 */ t99216.s0.tag = EXTERNAL_SYMBOL_TYPE; t99216.s0.value.external_symbol_type = q43; /* x179262 stalin.sc:25683:888584 */ t99218.s0.tag = EXTERNAL_SYMBOL_TYPE; t99218.s0.value.external_symbol_type = q241; /* x179263 stalin.sc:25683:888584 */ t99220.s0.tag = EXTERNAL_SYMBOL_TYPE; t99220.s0.value.external_symbol_type = q263; /* x179264 stalin.sc:25683:888584 */ t99221.s0.tag = EXTERNAL_SYMBOL_TYPE; t99221.s0.value.external_symbol_type = q261; /* x179265 stalin.sc:25683:888584 */ t99222.s0.tag = ((unsigned)((unsigned char)'\\'))<<2; /* x179266 stalin.sc:25683:888584 */ t99222.s1.tag = NULL_TYPE; /* x179267 stalin.sc:25683:888584 */ t99221.s1.tag = STRUCTURE_TYPE24753; t99221.s1.value.structure_type24753 = &t99222; /* x179268 stalin.sc:25683:888584 */ t99220.s1.tag = STRUCTURE_TYPE24753; t99220.s1.value.structure_type24753 = &t99221; /* x179269 stalin.sc:25683:888584 */ t99219.s0.tag = STRUCTURE_TYPE24753; t99219.s0.value.structure_type24753 = &t99220; /* x179270 stalin.sc:25683:888584 */ t99224.s0.tag = EXTERNAL_SYMBOL_TYPE; t99224.s0.value.external_symbol_type = q263; /* x179271 stalin.sc:25683:888584 */ t99225.s0.tag = EXTERNAL_SYMBOL_TYPE; t99225.s0.value.external_symbol_type = q261; /* x179272 stalin.sc:25683:888584 */ t99226.s0.tag = ((unsigned)((unsigned char)'\"'))<<2; /* x179273 stalin.sc:25683:888584 */ t99226.s1.tag = NULL_TYPE; /* x179274 stalin.sc:25683:888584 */ t99225.s1.tag = STRUCTURE_TYPE24753; t99225.s1.value.structure_type24753 = &t99226; /* x179275 stalin.sc:25683:888584 */ t99224.s1.tag = STRUCTURE_TYPE24753; t99224.s1.value.structure_type24753 = &t99225; /* x179276 stalin.sc:25683:888584 */ t99223.s0.tag = STRUCTURE_TYPE24753; t99223.s0.value.structure_type24753 = &t99224; /* x179277 stalin.sc:25683:888584 */ t99223.s1.tag = NULL_TYPE; /* x179278 stalin.sc:25683:888584 */ t99219.s1.tag = STRUCTURE_TYPE24753; t99219.s1.value.structure_type24753 = &t99223; /* x179279 stalin.sc:25683:888584 */ t99218.s1.tag = STRUCTURE_TYPE24753; t99218.s1.value.structure_type24753 = &t99219; /* x179280 stalin.sc:25683:888584 */ t99217.s0.tag = STRUCTURE_TYPE24753; t99217.s0.value.structure_type24753 = &t99218; /* x179281 stalin.sc:25683:888584 */ t99228.s0.tag = EXTERNAL_SYMBOL_TYPE; t99228.s0.value.external_symbol_type = q234; /* x179282 stalin.sc:25683:888584 */ t99229.s0.tag = ((unsigned)((unsigned char)'\\'))<<2; /* x179283 stalin.sc:25683:888584 */ t99230.s0.tag = EXTERNAL_SYMBOL_TYPE; t99230.s0.value.external_symbol_type = q254; /* x179284 stalin.sc:25683:888584 */ t99230.s1.tag = NULL_TYPE; /* x179285 stalin.sc:25683:888584 */ t99229.s1.tag = STRUCTURE_TYPE24753; t99229.s1.value.structure_type24753 = &t99230; /* x179286 stalin.sc:25683:888584 */ t99228.s1.tag = STRUCTURE_TYPE24753; t99228.s1.value.structure_type24753 = &t99229; /* x179287 stalin.sc:25683:888584 */ t99227.s0.tag = STRUCTURE_TYPE24753; t99227.s0.value.structure_type24753 = &t99228; /* x179288 stalin.sc:25683:888584 */ t99227.s1.tag = NULL_TYPE; /* x179289 stalin.sc:25683:888584 */ t99217.s1.tag = STRUCTURE_TYPE24753; t99217.s1.value.structure_type24753 = &t99227; /* x179290 stalin.sc:25683:888584 */ t99216.s1.tag = STRUCTURE_TYPE24753; t99216.s1.value.structure_type24753 = &t99217; /* x179291 stalin.sc:25683:888584 */ t99215.s0.tag = STRUCTURE_TYPE24753; t99215.s0.value.structure_type24753 = &t99216; /* x179292 stalin.sc:25683:888584 */ t99232.s0.tag = EXTERNAL_SYMBOL_TYPE; t99232.s0.value.external_symbol_type = q234; /* x179293 stalin.sc:25683:888584 */ t99233.s0.tag = EXTERNAL_SYMBOL_TYPE; t99233.s0.value.external_symbol_type = q261; /* x179294 stalin.sc:25683:888584 */ t99234.s0.tag = EXTERNAL_SYMBOL_TYPE; t99234.s0.value.external_symbol_type = q254; /* x179295 stalin.sc:25683:888584 */ t99234.s1.tag = NULL_TYPE; /* x179296 stalin.sc:25683:888584 */ t99233.s1.tag = STRUCTURE_TYPE24753; t99233.s1.value.structure_type24753 = &t99234; /* x179297 stalin.sc:25683:888584 */ t99232.s1.tag = STRUCTURE_TYPE24753; t99232.s1.value.structure_type24753 = &t99233; /* x179298 stalin.sc:25683:888584 */ t99231.s0.tag = STRUCTURE_TYPE24753; t99231.s0.value.structure_type24753 = &t99232; /* x179299 stalin.sc:25683:888584 */ t99236.s0.tag = EXTERNAL_SYMBOL_TYPE; t99236.s0.value.external_symbol_type = q287; /* x179300 stalin.sc:25683:888584 */ t99238.s0.tag = EXTERNAL_SYMBOL_TYPE; t99238.s0.value.external_symbol_type = q4; /* x179301 stalin.sc:25683:888584 */ t99239.s0.tag = EXTERNAL_SYMBOL_TYPE; t99239.s0.value.external_symbol_type = q308; /* x179302 stalin.sc:25683:888584 */ t99240.s0.tag = FIXNUM_TYPE; t99240.s0.value.fixnum_type = 1; /* x179303 stalin.sc:25683:888584 */ t99240.s1.tag = NULL_TYPE; /* x179304 stalin.sc:25683:888584 */ t99239.s1.tag = STRUCTURE_TYPE24753; t99239.s1.value.structure_type24753 = &t99240; /* x179305 stalin.sc:25683:888584 */ t99238.s1.tag = STRUCTURE_TYPE24753; t99238.s1.value.structure_type24753 = &t99239; /* x179306 stalin.sc:25683:888584 */ t99237.s0.tag = STRUCTURE_TYPE24753; t99237.s0.value.structure_type24753 = &t99238; /* x179307 stalin.sc:25683:888584 */ t99237.s1.tag = NULL_TYPE; /* x179308 stalin.sc:25683:888584 */ t99236.s1.tag = STRUCTURE_TYPE24753; t99236.s1.value.structure_type24753 = &t99237; /* x179309 stalin.sc:25683:888584 */ t99235.s0.tag = STRUCTURE_TYPE24753; t99235.s0.value.structure_type24753 = &t99236; /* x179310 stalin.sc:25683:888584 */ t99235.s1.tag = NULL_TYPE; /* x179311 stalin.sc:25683:888584 */ t99231.s1.tag = STRUCTURE_TYPE24753; t99231.s1.value.structure_type24753 = &t99235; /* x179312 stalin.sc:25683:888584 */ t99215.s1.tag = STRUCTURE_TYPE24753; t99215.s1.value.structure_type24753 = &t99231; /* x179313 stalin.sc:25683:888584 */ t99208.s1.tag = STRUCTURE_TYPE24753; t99208.s1.value.structure_type24753 = &t99215; /* x179314 stalin.sc:25683:888584 */ t99207.s1.tag = STRUCTURE_TYPE24753; t99207.s1.value.structure_type24753 = &t99208; /* x179315 stalin.sc:25683:888584 */ t99206.s0.tag = STRUCTURE_TYPE24753; t99206.s0.value.structure_type24753 = &t99207; /* x179316 stalin.sc:25683:888584 */ t99206.s1.tag = NULL_TYPE; /* x179317 stalin.sc:25683:888584 */ t99202.s1.tag = STRUCTURE_TYPE24753; t99202.s1.value.structure_type24753 = &t99206; /* x179318 stalin.sc:25683:888584 */ t99201.s1.tag = STRUCTURE_TYPE24753; t99201.s1.value.structure_type24753 = &t99202; /* x179319 stalin.sc:25683:888584 */ t99200.s0.tag = STRUCTURE_TYPE24753; t99200.s0.value.structure_type24753 = &t99201; /* x179320 stalin.sc:25683:888584 */ t99200.s1.tag = NULL_TYPE; /* x179321 stalin.sc:25683:888584 */ t99196.s1.tag = STRUCTURE_TYPE24753; t99196.s1.value.structure_type24753 = &t99200; /* x179322 stalin.sc:25683:888584 */ t99195.s1.tag = STRUCTURE_TYPE24753; t99195.s1.value.structure_type24753 = &t99196; /* x179323 stalin.sc:25683:888584 */ t99194.s1.tag = STRUCTURE_TYPE24753; t99194.s1.value.structure_type24753 = &t99195; /* x179324 stalin.sc:25683:888584 */ t99193.s0.tag = STRUCTURE_TYPE24753; t99193.s0.value.structure_type24753 = &t99194; /* x179325 stalin.sc:25683:888584 */ t99193.s1.tag = NULL_TYPE; /* x179326 stalin.sc:25683:888584 */ t99187.s1.tag = STRUCTURE_TYPE24753; t99187.s1.value.structure_type24753 = &t99193; /* x179327 stalin.sc:25683:888584 */ t99186.s1.tag = STRUCTURE_TYPE24753; t99186.s1.value.structure_type24753 = &t99187; /* x179328 stalin.sc:25683:888584 */ t99185.s0.tag = STRUCTURE_TYPE24753; t99185.s0.value.structure_type24753 = &t99186; /* x179329 stalin.sc:25683:888584 */ t99242.s0.tag = EXTERNAL_SYMBOL_TYPE; t99242.s0.value.external_symbol_type = q234; /* x179330 stalin.sc:25683:888584 */ t99243.s0.tag = ((unsigned)((unsigned char)'\"'))<<2; /* x179331 stalin.sc:25683:888584 */ t99244.s0.tag = EXTERNAL_SYMBOL_TYPE; t99244.s0.value.external_symbol_type = q254; /* x179332 stalin.sc:25683:888584 */ t99244.s1.tag = NULL_TYPE; /* x179333 stalin.sc:25683:888584 */ t99243.s1.tag = STRUCTURE_TYPE24753; t99243.s1.value.structure_type24753 = &t99244; /* x179334 stalin.sc:25683:888584 */ t99242.s1.tag = STRUCTURE_TYPE24753; t99242.s1.value.structure_type24753 = &t99243; /* x179335 stalin.sc:25683:888584 */ t99241.s0.tag = STRUCTURE_TYPE24753; t99241.s0.value.structure_type24753 = &t99242; /* x179336 stalin.sc:25683:888584 */ t99241.s1.tag = NULL_TYPE; /* x179337 stalin.sc:25683:888584 */ t99185.s1.tag = STRUCTURE_TYPE24753; t99185.s1.value.structure_type24753 = &t99241; /* x179338 stalin.sc:25683:888584 */ t99181.s1.tag = STRUCTURE_TYPE24753; t99181.s1.value.structure_type24753 = &t99185; /* x179339 stalin.sc:25683:888584 */ t99178.s1.tag = STRUCTURE_TYPE24753; t99178.s1.value.structure_type24753 = &t99181; /* x179340 stalin.sc:25683:888584 */ t99177.s0.tag = STRUCTURE_TYPE24753; t99177.s0.value.structure_type24753 = &t99178; /* x179341 stalin.sc:25683:888584 */ t99247.s0.tag = EXTERNAL_SYMBOL_TYPE; t99247.s0.value.external_symbol_type = q105; /* x179342 stalin.sc:25683:888584 */ t99248.s0.tag = EXTERNAL_SYMBOL_TYPE; t99248.s0.value.external_symbol_type = q318; /* x179343 stalin.sc:25683:888584 */ t99248.s1.tag = NULL_TYPE; /* x179344 stalin.sc:25683:888584 */ t99247.s1.tag = STRUCTURE_TYPE24753; t99247.s1.value.structure_type24753 = &t99248; /* x179345 stalin.sc:25683:888584 */ t99246.s0.tag = STRUCTURE_TYPE24753; t99246.s0.value.structure_type24753 = &t99247; /* x179346 stalin.sc:25683:888584 */ t99250.s0.tag = EXTERNAL_SYMBOL_TYPE; t99250.s0.value.external_symbol_type = q234; /* x179347 stalin.sc:25683:888584 */ t99251.s0.tag = ((unsigned)((unsigned char)'('))<<2; /* x179348 stalin.sc:25683:888584 */ t99252.s0.tag = EXTERNAL_SYMBOL_TYPE; t99252.s0.value.external_symbol_type = q254; /* x179349 stalin.sc:25683:888584 */ t99252.s1.tag = NULL_TYPE; /* x179350 stalin.sc:25683:888584 */ t99251.s1.tag = STRUCTURE_TYPE24753; t99251.s1.value.structure_type24753 = &t99252; /* x179351 stalin.sc:25683:888584 */ t99250.s1.tag = STRUCTURE_TYPE24753; t99250.s1.value.structure_type24753 = &t99251; /* x179352 stalin.sc:25683:888584 */ t99249.s0.tag = STRUCTURE_TYPE24753; t99249.s0.value.structure_type24753 = &t99250; /* x179353 stalin.sc:25683:888584 */ t99254.s0.tag = EXTERNAL_SYMBOL_TYPE; t99254.s0.value.external_symbol_type = q242; /* x179354 stalin.sc:25683:888584 */ t99255.s0.tag = EXTERNAL_SYMBOL_TYPE; t99255.s0.value.external_symbol_type = q287; /* x179355 stalin.sc:25683:888584 */ t99258.s0.tag = EXTERNAL_SYMBOL_TYPE; t99258.s0.value.external_symbol_type = q318; /* x179356 stalin.sc:25683:888584 */ t99259.s0.tag = EXTERNAL_SYMBOL_TYPE; t99259.s0.value.external_symbol_type = q318; /* x179357 stalin.sc:25683:888584 */ t99259.s1.tag = NULL_TYPE; /* x179358 stalin.sc:25683:888584 */ t99258.s1.tag = STRUCTURE_TYPE24753; t99258.s1.value.structure_type24753 = &t99259; /* x179359 stalin.sc:25683:888584 */ t99257.s0.tag = STRUCTURE_TYPE24753; t99257.s0.value.structure_type24753 = &t99258; /* x179360 stalin.sc:25683:888584 */ t99257.s1.tag = NULL_TYPE; /* x179361 stalin.sc:25683:888584 */ t99256.s0.tag = STRUCTURE_TYPE24753; t99256.s0.value.structure_type24753 = &t99257; /* x179362 stalin.sc:25683:888584 */ t99261.s0.tag = EXTERNAL_SYMBOL_TYPE; t99261.s0.value.external_symbol_type = q240; /* x179363 stalin.sc:25683:888584 */ t99264.s0.tag = EXTERNAL_SYMBOL_TYPE; t99264.s0.value.external_symbol_type = q111; /* x179364 stalin.sc:25683:888584 */ t99266.s0.tag = EXTERNAL_SYMBOL_TYPE; t99266.s0.value.external_symbol_type = q108; /* x179365 stalin.sc:25683:888584 */ t99267.s0.tag = EXTERNAL_SYMBOL_TYPE; t99267.s0.value.external_symbol_type = q318; /* x179366 stalin.sc:25683:888584 */ t99267.s1.tag = NULL_TYPE; /* x179367 stalin.sc:25683:888584 */ t99266.s1.tag = STRUCTURE_TYPE24753; t99266.s1.value.structure_type24753 = &t99267; /* x179368 stalin.sc:25683:888584 */ t99265.s0.tag = STRUCTURE_TYPE24753; t99265.s0.value.structure_type24753 = &t99266; /* x179369 stalin.sc:25683:888584 */ t99265.s1.tag = NULL_TYPE; /* x179370 stalin.sc:25683:888584 */ t99264.s1.tag = STRUCTURE_TYPE24753; t99264.s1.value.structure_type24753 = &t99265; /* x179371 stalin.sc:25683:888584 */ t99263.s0.tag = STRUCTURE_TYPE24753; t99263.s0.value.structure_type24753 = &t99264; /* x179372 stalin.sc:25683:888584 */ t99269.s0.tag = EXTERNAL_SYMBOL_TYPE; t99269.s0.value.external_symbol_type = q317; /* x179373 stalin.sc:25683:888584 */ t99271.s0.tag = EXTERNAL_SYMBOL_TYPE; t99271.s0.value.external_symbol_type = q107; /* x179374 stalin.sc:25683:888584 */ t99272.s0.tag = EXTERNAL_SYMBOL_TYPE; t99272.s0.value.external_symbol_type = q318; /* x179375 stalin.sc:25683:888584 */ t99272.s1.tag = NULL_TYPE; /* x179376 stalin.sc:25683:888584 */ t99271.s1.tag = STRUCTURE_TYPE24753; t99271.s1.value.structure_type24753 = &t99272; /* x179377 stalin.sc:25683:888584 */ t99270.s0.tag = STRUCTURE_TYPE24753; t99270.s0.value.structure_type24753 = &t99271; /* x179378 stalin.sc:25683:888584 */ t99273.s0.tag = EXTERNAL_SYMBOL_TYPE; t99273.s0.value.external_symbol_type = q254; /* x179379 stalin.sc:25683:888584 */ t99273.s1.tag = NULL_TYPE; /* x179380 stalin.sc:25683:888584 */ t99270.s1.tag = STRUCTURE_TYPE24753; t99270.s1.value.structure_type24753 = &t99273; /* x179381 stalin.sc:25683:888584 */ t99269.s1.tag = STRUCTURE_TYPE24753; t99269.s1.value.structure_type24753 = &t99270; /* x179382 stalin.sc:25683:888584 */ t99268.s0.tag = STRUCTURE_TYPE24753; t99268.s0.value.structure_type24753 = &t99269; /* x179383 stalin.sc:25683:888584 */ t99275.s0.tag = EXTERNAL_SYMBOL_TYPE; t99275.s0.value.external_symbol_type = q234; /* x179384 stalin.sc:25683:888584 */ t99276.s0.tag = ((unsigned)((unsigned char)')'))<<2; /* x179385 stalin.sc:25683:888584 */ t99277.s0.tag = EXTERNAL_SYMBOL_TYPE; t99277.s0.value.external_symbol_type = q254; /* x179386 stalin.sc:25683:888584 */ t99277.s1.tag = NULL_TYPE; /* x179387 stalin.sc:25683:888584 */ t99276.s1.tag = STRUCTURE_TYPE24753; t99276.s1.value.structure_type24753 = &t99277; /* x179388 stalin.sc:25683:888584 */ t99275.s1.tag = STRUCTURE_TYPE24753; t99275.s1.value.structure_type24753 = &t99276; /* x179389 stalin.sc:25683:888584 */ t99274.s0.tag = STRUCTURE_TYPE24753; t99274.s0.value.structure_type24753 = &t99275; /* x179390 stalin.sc:25683:888584 */ t99274.s1.tag = NULL_TYPE; /* x179391 stalin.sc:25683:888584 */ t99268.s1.tag = STRUCTURE_TYPE24753; t99268.s1.value.structure_type24753 = &t99274; /* x179392 stalin.sc:25683:888584 */ t99263.s1.tag = STRUCTURE_TYPE24753; t99263.s1.value.structure_type24753 = &t99268; /* x179393 stalin.sc:25683:888584 */ t99262.s0.tag = STRUCTURE_TYPE24753; t99262.s0.value.structure_type24753 = &t99263; /* x179394 stalin.sc:25683:888584 */ t99280.s0.tag = EXTERNAL_SYMBOL_TYPE; t99280.s0.value.external_symbol_type = q105; /* x179395 stalin.sc:25683:888584 */ t99282.s0.tag = EXTERNAL_SYMBOL_TYPE; t99282.s0.value.external_symbol_type = q108; /* x179396 stalin.sc:25683:888584 */ t99283.s0.tag = EXTERNAL_SYMBOL_TYPE; t99283.s0.value.external_symbol_type = q318; /* x179397 stalin.sc:25683:888584 */ t99283.s1.tag = NULL_TYPE; /* x179398 stalin.sc:25683:888584 */ t99282.s1.tag = STRUCTURE_TYPE24753; t99282.s1.value.structure_type24753 = &t99283; /* x179399 stalin.sc:25683:888584 */ t99281.s0.tag = STRUCTURE_TYPE24753; t99281.s0.value.structure_type24753 = &t99282; /* x179400 stalin.sc:25683:888584 */ t99281.s1.tag = NULL_TYPE; /* x179401 stalin.sc:25683:888584 */ t99280.s1.tag = STRUCTURE_TYPE24753; t99280.s1.value.structure_type24753 = &t99281; /* x179402 stalin.sc:25683:888584 */ t99279.s0.tag = STRUCTURE_TYPE24753; t99279.s0.value.structure_type24753 = &t99280; /* x179403 stalin.sc:25683:888584 */ t99285.s0.tag = EXTERNAL_SYMBOL_TYPE; t99285.s0.value.external_symbol_type = q317; /* x179404 stalin.sc:25683:888584 */ t99287.s0.tag = EXTERNAL_SYMBOL_TYPE; t99287.s0.value.external_symbol_type = q107; /* x179405 stalin.sc:25683:888584 */ t99288.s0.tag = EXTERNAL_SYMBOL_TYPE; t99288.s0.value.external_symbol_type = q318; /* x179406 stalin.sc:25683:888584 */ t99288.s1.tag = NULL_TYPE; /* x179407 stalin.sc:25683:888584 */ t99287.s1.tag = STRUCTURE_TYPE24753; t99287.s1.value.structure_type24753 = &t99288; /* x179408 stalin.sc:25683:888584 */ t99286.s0.tag = STRUCTURE_TYPE24753; t99286.s0.value.structure_type24753 = &t99287; /* x179409 stalin.sc:25683:888584 */ t99289.s0.tag = EXTERNAL_SYMBOL_TYPE; t99289.s0.value.external_symbol_type = q254; /* x179410 stalin.sc:25683:888584 */ t99289.s1.tag = NULL_TYPE; /* x179411 stalin.sc:25683:888584 */ t99286.s1.tag = STRUCTURE_TYPE24753; t99286.s1.value.structure_type24753 = &t99289; /* x179412 stalin.sc:25683:888584 */ t99285.s1.tag = STRUCTURE_TYPE24753; t99285.s1.value.structure_type24753 = &t99286; /* x179413 stalin.sc:25683:888584 */ t99284.s0.tag = STRUCTURE_TYPE24753; t99284.s0.value.structure_type24753 = &t99285; /* x179414 stalin.sc:25683:888584 */ t99291.s0.tag = EXTERNAL_SYMBOL_TYPE; t99291.s0.value.external_symbol_type = q234; /* x179415 stalin.sc:25683:888584 */ t99292.s0.tag = ((unsigned)((unsigned char)' '))<<2; /* x179416 stalin.sc:25683:888584 */ t99293.s0.tag = EXTERNAL_SYMBOL_TYPE; t99293.s0.value.external_symbol_type = q254; /* x179417 stalin.sc:25683:888584 */ t99293.s1.tag = NULL_TYPE; /* x179418 stalin.sc:25683:888584 */ t99292.s1.tag = STRUCTURE_TYPE24753; t99292.s1.value.structure_type24753 = &t99293; /* x179419 stalin.sc:25683:888584 */ t99291.s1.tag = STRUCTURE_TYPE24753; t99291.s1.value.structure_type24753 = &t99292; /* x179420 stalin.sc:25683:888584 */ t99290.s0.tag = STRUCTURE_TYPE24753; t99290.s0.value.structure_type24753 = &t99291; /* x179421 stalin.sc:25683:888584 */ t99295.s0.tag = EXTERNAL_SYMBOL_TYPE; t99295.s0.value.external_symbol_type = q287; /* x179422 stalin.sc:25683:888584 */ t99297.s0.tag = EXTERNAL_SYMBOL_TYPE; t99297.s0.value.external_symbol_type = q108; /* x179423 stalin.sc:25683:888584 */ t99298.s0.tag = EXTERNAL_SYMBOL_TYPE; t99298.s0.value.external_symbol_type = q318; /* x179424 stalin.sc:25683:888584 */ t99298.s1.tag = NULL_TYPE; /* x179425 stalin.sc:25683:888584 */ t99297.s1.tag = STRUCTURE_TYPE24753; t99297.s1.value.structure_type24753 = &t99298; /* x179426 stalin.sc:25683:888584 */ t99296.s0.tag = STRUCTURE_TYPE24753; t99296.s0.value.structure_type24753 = &t99297; /* x179427 stalin.sc:25683:888584 */ t99296.s1.tag = NULL_TYPE; /* x179428 stalin.sc:25683:888584 */ t99295.s1.tag = STRUCTURE_TYPE24753; t99295.s1.value.structure_type24753 = &t99296; /* x179429 stalin.sc:25683:888584 */ t99294.s0.tag = STRUCTURE_TYPE24753; t99294.s0.value.structure_type24753 = &t99295; /* x179430 stalin.sc:25683:888584 */ t99294.s1.tag = NULL_TYPE; /* x179431 stalin.sc:25683:888584 */ t99290.s1.tag = STRUCTURE_TYPE24753; t99290.s1.value.structure_type24753 = &t99294; /* x179432 stalin.sc:25683:888584 */ t99284.s1.tag = STRUCTURE_TYPE24753; t99284.s1.value.structure_type24753 = &t99290; /* x179433 stalin.sc:25683:888584 */ t99279.s1.tag = STRUCTURE_TYPE24753; t99279.s1.value.structure_type24753 = &t99284; /* x179434 stalin.sc:25683:888584 */ t99278.s0.tag = STRUCTURE_TYPE24753; t99278.s0.value.structure_type24753 = &t99279; /* x179435 stalin.sc:25683:888584 */ t99300.s0.tag = EXTERNAL_SYMBOL_TYPE; t99300.s0.value.external_symbol_type = q95; /* x179436 stalin.sc:25683:888584 */ t99302.s0.tag = EXTERNAL_SYMBOL_TYPE; t99302.s0.value.external_symbol_type = q317; /* x179437 stalin.sc:25683:888584 */ t99304.s0.tag = EXTERNAL_SYMBOL_TYPE; t99304.s0.value.external_symbol_type = q107; /* x179438 stalin.sc:25683:888584 */ t99305.s0.tag = EXTERNAL_SYMBOL_TYPE; t99305.s0.value.external_symbol_type = q318; /* x179439 stalin.sc:25683:888584 */ t99305.s1.tag = NULL_TYPE; /* x179440 stalin.sc:25683:888584 */ t99304.s1.tag = STRUCTURE_TYPE24753; t99304.s1.value.structure_type24753 = &t99305; /* x179441 stalin.sc:25683:888584 */ t99303.s0.tag = STRUCTURE_TYPE24753; t99303.s0.value.structure_type24753 = &t99304; /* x179442 stalin.sc:25683:888584 */ t99306.s0.tag = EXTERNAL_SYMBOL_TYPE; t99306.s0.value.external_symbol_type = q254; /* x179443 stalin.sc:25683:888584 */ t99306.s1.tag = NULL_TYPE; /* x179444 stalin.sc:25683:888584 */ t99303.s1.tag = STRUCTURE_TYPE24753; t99303.s1.value.structure_type24753 = &t99306; /* x179445 stalin.sc:25683:888584 */ t99302.s1.tag = STRUCTURE_TYPE24753; t99302.s1.value.structure_type24753 = &t99303; /* x179446 stalin.sc:25683:888584 */ t99301.s0.tag = STRUCTURE_TYPE24753; t99301.s0.value.structure_type24753 = &t99302; /* x179447 stalin.sc:25683:888584 */ t99308.s0.tag = EXTERNAL_SYMBOL_TYPE; t99308.s0.value.external_symbol_type = q307; /* x179448 stalin.sc:25683:888584 */ t99309.s0.tag = STRING_TYPE; t99309.s0.value.string_type = " . "; /* x179449 stalin.sc:25683:888584 */ t99310.s0.tag = EXTERNAL_SYMBOL_TYPE; t99310.s0.value.external_symbol_type = q254; /* x179450 stalin.sc:25683:888584 */ t99310.s1.tag = NULL_TYPE; /* x179451 stalin.sc:25683:888584 */ t99309.s1.tag = STRUCTURE_TYPE24753; t99309.s1.value.structure_type24753 = &t99310; /* x179452 stalin.sc:25683:888584 */ t99308.s1.tag = STRUCTURE_TYPE24753; t99308.s1.value.structure_type24753 = &t99309; /* x179453 stalin.sc:25683:888584 */ t99307.s0.tag = STRUCTURE_TYPE24753; t99307.s0.value.structure_type24753 = &t99308; /* x179454 stalin.sc:25683:888584 */ t99312.s0.tag = EXTERNAL_SYMBOL_TYPE; t99312.s0.value.external_symbol_type = q317; /* x179455 stalin.sc:25683:888584 */ t99314.s0.tag = EXTERNAL_SYMBOL_TYPE; t99314.s0.value.external_symbol_type = q108; /* x179456 stalin.sc:25683:888584 */ t99315.s0.tag = EXTERNAL_SYMBOL_TYPE; t99315.s0.value.external_symbol_type = q318; /* x179457 stalin.sc:25683:888584 */ t99315.s1.tag = NULL_TYPE; /* x179458 stalin.sc:25683:888584 */ t99314.s1.tag = STRUCTURE_TYPE24753; t99314.s1.value.structure_type24753 = &t99315; /* x179459 stalin.sc:25683:888584 */ t99313.s0.tag = STRUCTURE_TYPE24753; t99313.s0.value.structure_type24753 = &t99314; /* x179460 stalin.sc:25683:888584 */ t99316.s0.tag = EXTERNAL_SYMBOL_TYPE; t99316.s0.value.external_symbol_type = q254; /* x179461 stalin.sc:25683:888584 */ t99316.s1.tag = NULL_TYPE; /* x179462 stalin.sc:25683:888584 */ t99313.s1.tag = STRUCTURE_TYPE24753; t99313.s1.value.structure_type24753 = &t99316; /* x179463 stalin.sc:25683:888584 */ t99312.s1.tag = STRUCTURE_TYPE24753; t99312.s1.value.structure_type24753 = &t99313; /* x179464 stalin.sc:25683:888584 */ t99311.s0.tag = STRUCTURE_TYPE24753; t99311.s0.value.structure_type24753 = &t99312; /* x179465 stalin.sc:25683:888584 */ t99318.s0.tag = EXTERNAL_SYMBOL_TYPE; t99318.s0.value.external_symbol_type = q234; /* x179466 stalin.sc:25683:888584 */ t99319.s0.tag = ((unsigned)((unsigned char)')'))<<2; /* x179467 stalin.sc:25683:888584 */ t99320.s0.tag = EXTERNAL_SYMBOL_TYPE; t99320.s0.value.external_symbol_type = q254; /* x179468 stalin.sc:25683:888584 */ t99320.s1.tag = NULL_TYPE; /* x179469 stalin.sc:25683:888584 */ t99319.s1.tag = STRUCTURE_TYPE24753; t99319.s1.value.structure_type24753 = &t99320; /* x179470 stalin.sc:25683:888584 */ t99318.s1.tag = STRUCTURE_TYPE24753; t99318.s1.value.structure_type24753 = &t99319; /* x179471 stalin.sc:25683:888584 */ t99317.s0.tag = STRUCTURE_TYPE24753; t99317.s0.value.structure_type24753 = &t99318; /* x179472 stalin.sc:25683:888584 */ t99317.s1.tag = NULL_TYPE; /* x179473 stalin.sc:25683:888584 */ t99311.s1.tag = STRUCTURE_TYPE24753; t99311.s1.value.structure_type24753 = &t99317; /* x179474 stalin.sc:25683:888584 */ t99307.s1.tag = STRUCTURE_TYPE24753; t99307.s1.value.structure_type24753 = &t99311; /* x179475 stalin.sc:25683:888584 */ t99301.s1.tag = STRUCTURE_TYPE24753; t99301.s1.value.structure_type24753 = &t99307; /* x179476 stalin.sc:25683:888584 */ t99300.s1.tag = STRUCTURE_TYPE24753; t99300.s1.value.structure_type24753 = &t99301; /* x179477 stalin.sc:25683:888584 */ t99299.s0.tag = STRUCTURE_TYPE24753; t99299.s0.value.structure_type24753 = &t99300; /* x179478 stalin.sc:25683:888584 */ t99299.s1.tag = NULL_TYPE; /* x179479 stalin.sc:25683:888584 */ t99278.s1.tag = STRUCTURE_TYPE24753; t99278.s1.value.structure_type24753 = &t99299; /* x179480 stalin.sc:25683:888584 */ t99262.s1.tag = STRUCTURE_TYPE24753; t99262.s1.value.structure_type24753 = &t99278; /* x179481 stalin.sc:25683:888584 */ t99261.s1.tag = STRUCTURE_TYPE24753; t99261.s1.value.structure_type24753 = &t99262; /* x179482 stalin.sc:25683:888584 */ t99260.s0.tag = STRUCTURE_TYPE24753; t99260.s0.value.structure_type24753 = &t99261; /* x179483 stalin.sc:25683:888584 */ t99260.s1.tag = NULL_TYPE; /* x179484 stalin.sc:25683:888584 */ t99256.s1.tag = STRUCTURE_TYPE24753; t99256.s1.value.structure_type24753 = &t99260; /* x179485 stalin.sc:25683:888584 */ t99255.s1.tag = STRUCTURE_TYPE24753; t99255.s1.value.structure_type24753 = &t99256; /* x179486 stalin.sc:25683:888584 */ t99254.s1.tag = STRUCTURE_TYPE24753; t99254.s1.value.structure_type24753 = &t99255; /* x179487 stalin.sc:25683:888584 */ t99253.s0.tag = STRUCTURE_TYPE24753; t99253.s0.value.structure_type24753 = &t99254; /* x179488 stalin.sc:25683:888584 */ t99253.s1.tag = NULL_TYPE; /* x179489 stalin.sc:25683:888584 */ t99249.s1.tag = STRUCTURE_TYPE24753; t99249.s1.value.structure_type24753 = &t99253; /* x179490 stalin.sc:25683:888584 */ t99246.s1.tag = STRUCTURE_TYPE24753; t99246.s1.value.structure_type24753 = &t99249; /* x179491 stalin.sc:25683:888584 */ t99245.s0.tag = STRUCTURE_TYPE24753; t99245.s0.value.structure_type24753 = &t99246; /* x179492 stalin.sc:25683:888584 */ t99323.s0.tag = EXTERNAL_SYMBOL_TYPE; t99323.s0.value.external_symbol_type = q165; /* x179493 stalin.sc:25683:888584 */ t99324.s0.tag = EXTERNAL_SYMBOL_TYPE; t99324.s0.value.external_symbol_type = q318; /* x179494 stalin.sc:25683:888584 */ t99324.s1.tag = NULL_TYPE; /* x179495 stalin.sc:25683:888584 */ t99323.s1.tag = STRUCTURE_TYPE24753; t99323.s1.value.structure_type24753 = &t99324; /* x179496 stalin.sc:25683:888584 */ t99322.s0.tag = STRUCTURE_TYPE24753; t99322.s0.value.structure_type24753 = &t99323; /* x179497 stalin.sc:25683:888584 */ t99326.s0.tag = EXTERNAL_SYMBOL_TYPE; t99326.s0.value.external_symbol_type = q307; /* x179498 stalin.sc:25683:888584 */ t99327.s0.tag = STRING_TYPE; t99327.s0.value.string_type = "#("; /* x179499 stalin.sc:25683:888584 */ t99328.s0.tag = EXTERNAL_SYMBOL_TYPE; t99328.s0.value.external_symbol_type = q254; /* x179500 stalin.sc:25683:888584 */ t99328.s1.tag = NULL_TYPE; /* x179501 stalin.sc:25683:888584 */ t99327.s1.tag = STRUCTURE_TYPE24753; t99327.s1.value.structure_type24753 = &t99328; /* x179502 stalin.sc:25683:888584 */ t99326.s1.tag = STRUCTURE_TYPE24753; t99326.s1.value.structure_type24753 = &t99327; /* x179503 stalin.sc:25683:888584 */ t99325.s0.tag = STRUCTURE_TYPE24753; t99325.s0.value.structure_type24753 = &t99326; /* x179504 stalin.sc:25683:888584 */ t99330.s0.tag = EXTERNAL_SYMBOL_TYPE; t99330.s0.value.external_symbol_type = q43; /* x179505 stalin.sc:25683:888584 */ t99332.s0.tag = EXTERNAL_SYMBOL_TYPE; t99332.s0.value.external_symbol_type = q102; /* x179506 stalin.sc:25683:888584 */ t99334.s0.tag = EXTERNAL_SYMBOL_TYPE; t99334.s0.value.external_symbol_type = q125; /* x179507 stalin.sc:25683:888584 */ t99336.s0.tag = EXTERNAL_SYMBOL_TYPE; t99336.s0.value.external_symbol_type = q168; /* x179508 stalin.sc:25683:888584 */ t99337.s0.tag = EXTERNAL_SYMBOL_TYPE; t99337.s0.value.external_symbol_type = q318; /* x179509 stalin.sc:25683:888584 */ t99337.s1.tag = NULL_TYPE; /* x179510 stalin.sc:25683:888584 */ t99336.s1.tag = STRUCTURE_TYPE24753; t99336.s1.value.structure_type24753 = &t99337; /* x179511 stalin.sc:25683:888584 */ t99335.s0.tag = STRUCTURE_TYPE24753; t99335.s0.value.structure_type24753 = &t99336; /* x179512 stalin.sc:25683:888584 */ t99335.s1.tag = NULL_TYPE; /* x179513 stalin.sc:25683:888584 */ t99334.s1.tag = STRUCTURE_TYPE24753; t99334.s1.value.structure_type24753 = &t99335; /* x179514 stalin.sc:25683:888584 */ t99333.s0.tag = STRUCTURE_TYPE24753; t99333.s0.value.structure_type24753 = &t99334; /* x179515 stalin.sc:25683:888584 */ t99333.s1.tag = NULL_TYPE; /* x179516 stalin.sc:25683:888584 */ t99332.s1.tag = STRUCTURE_TYPE24753; t99332.s1.value.structure_type24753 = &t99333; /* x179517 stalin.sc:25683:888584 */ t99331.s0.tag = STRUCTURE_TYPE24753; t99331.s0.value.structure_type24753 = &t99332; /* x179518 stalin.sc:25683:888584 */ t99339.s0.tag = EXTERNAL_SYMBOL_TYPE; t99339.s0.value.external_symbol_type = q239; /* x179519 stalin.sc:25683:888584 */ t99341.s0.tag = EXTERNAL_SYMBOL_TYPE; t99341.s0.value.external_symbol_type = q317; /* x179520 stalin.sc:25683:888584 */ t99343.s0.tag = EXTERNAL_SYMBOL_TYPE; t99343.s0.value.external_symbol_type = q169; /* x179521 stalin.sc:25683:888584 */ t99344.s0.tag = EXTERNAL_SYMBOL_TYPE; t99344.s0.value.external_symbol_type = q318; /* x179522 stalin.sc:25683:888584 */ t99345.s0.tag = FIXNUM_TYPE; t99345.s0.value.fixnum_type = 0; /* x179523 stalin.sc:25683:888584 */ t99345.s1.tag = NULL_TYPE; /* x179524 stalin.sc:25683:888584 */ t99344.s1.tag = STRUCTURE_TYPE24753; t99344.s1.value.structure_type24753 = &t99345; /* x179525 stalin.sc:25683:888584 */ t99343.s1.tag = STRUCTURE_TYPE24753; t99343.s1.value.structure_type24753 = &t99344; /* x179526 stalin.sc:25683:888584 */ t99342.s0.tag = STRUCTURE_TYPE24753; t99342.s0.value.structure_type24753 = &t99343; /* x179527 stalin.sc:25683:888584 */ t99346.s0.tag = EXTERNAL_SYMBOL_TYPE; t99346.s0.value.external_symbol_type = q254; /* x179528 stalin.sc:25683:888584 */ t99346.s1.tag = NULL_TYPE; /* x179529 stalin.sc:25683:888584 */ t99342.s1.tag = STRUCTURE_TYPE24753; t99342.s1.value.structure_type24753 = &t99346; /* x179530 stalin.sc:25683:888584 */ t99341.s1.tag = STRUCTURE_TYPE24753; t99341.s1.value.structure_type24753 = &t99342; /* x179531 stalin.sc:25683:888584 */ t99340.s0.tag = STRUCTURE_TYPE24753; t99340.s0.value.structure_type24753 = &t99341; /* x179532 stalin.sc:25683:888584 */ t99348.s0.tag = EXTERNAL_SYMBOL_TYPE; t99348.s0.value.external_symbol_type = q242; /* x179533 stalin.sc:25683:888584 */ t99349.s0.tag = EXTERNAL_SYMBOL_TYPE; t99349.s0.value.external_symbol_type = q287; /* x179534 stalin.sc:25683:888584 */ t99352.s0.tag = EXTERNAL_SYMBOL_TYPE; t99352.s0.value.external_symbol_type = q308; /* x179535 stalin.sc:25683:888584 */ t99353.s0.tag = FIXNUM_TYPE; t99353.s0.value.fixnum_type = 1; /* x179536 stalin.sc:25683:888584 */ t99353.s1.tag = NULL_TYPE; /* x179537 stalin.sc:25683:888584 */ t99352.s1.tag = STRUCTURE_TYPE24753; t99352.s1.value.structure_type24753 = &t99353; /* x179538 stalin.sc:25683:888584 */ t99351.s0.tag = STRUCTURE_TYPE24753; t99351.s0.value.structure_type24753 = &t99352; /* x179539 stalin.sc:25683:888584 */ t99351.s1.tag = NULL_TYPE; /* x179540 stalin.sc:25683:888584 */ t99350.s0.tag = STRUCTURE_TYPE24753; t99350.s0.value.structure_type24753 = &t99351; /* x179541 stalin.sc:25683:888584 */ t99355.s0.tag = EXTERNAL_SYMBOL_TYPE; t99355.s0.value.external_symbol_type = q43; /* x179542 stalin.sc:25683:888584 */ t99357.s0.tag = EXTERNAL_SYMBOL_TYPE; t99357.s0.value.external_symbol_type = q121; /* x179543 stalin.sc:25683:888584 */ t99358.s0.tag = EXTERNAL_SYMBOL_TYPE; t99358.s0.value.external_symbol_type = q308; /* x179544 stalin.sc:25683:888584 */ t99360.s0.tag = EXTERNAL_SYMBOL_TYPE; t99360.s0.value.external_symbol_type = q168; /* x179545 stalin.sc:25683:888584 */ t99361.s0.tag = EXTERNAL_SYMBOL_TYPE; t99361.s0.value.external_symbol_type = q318; /* x179546 stalin.sc:25683:888584 */ t99361.s1.tag = NULL_TYPE; /* x179547 stalin.sc:25683:888584 */ t99360.s1.tag = STRUCTURE_TYPE24753; t99360.s1.value.structure_type24753 = &t99361; /* x179548 stalin.sc:25683:888584 */ t99359.s0.tag = STRUCTURE_TYPE24753; t99359.s0.value.structure_type24753 = &t99360; /* x179549 stalin.sc:25683:888584 */ t99359.s1.tag = NULL_TYPE; /* x179550 stalin.sc:25683:888584 */ t99358.s1.tag = STRUCTURE_TYPE24753; t99358.s1.value.structure_type24753 = &t99359; /* x179551 stalin.sc:25683:888584 */ t99357.s1.tag = STRUCTURE_TYPE24753; t99357.s1.value.structure_type24753 = &t99358; /* x179552 stalin.sc:25683:888584 */ t99356.s0.tag = STRUCTURE_TYPE24753; t99356.s0.value.structure_type24753 = &t99357; /* x179553 stalin.sc:25683:888584 */ t99363.s0.tag = EXTERNAL_SYMBOL_TYPE; t99363.s0.value.external_symbol_type = q239; /* x179554 stalin.sc:25683:888584 */ t99365.s0.tag = EXTERNAL_SYMBOL_TYPE; t99365.s0.value.external_symbol_type = q234; /* x179555 stalin.sc:25683:888584 */ t99366.s0.tag = ((unsigned)((unsigned char)' '))<<2; /* x179556 stalin.sc:25683:888584 */ t99367.s0.tag = EXTERNAL_SYMBOL_TYPE; t99367.s0.value.external_symbol_type = q254; /* x179557 stalin.sc:25683:888584 */ t99367.s1.tag = NULL_TYPE; /* x179558 stalin.sc:25683:888584 */ t99366.s1.tag = STRUCTURE_TYPE24753; t99366.s1.value.structure_type24753 = &t99367; /* x179559 stalin.sc:25683:888584 */ t99365.s1.tag = STRUCTURE_TYPE24753; t99365.s1.value.structure_type24753 = &t99366; /* x179560 stalin.sc:25683:888584 */ t99364.s0.tag = STRUCTURE_TYPE24753; t99364.s0.value.structure_type24753 = &t99365; /* x179561 stalin.sc:25683:888584 */ t99369.s0.tag = EXTERNAL_SYMBOL_TYPE; t99369.s0.value.external_symbol_type = q317; /* x179562 stalin.sc:25683:888584 */ t99371.s0.tag = EXTERNAL_SYMBOL_TYPE; t99371.s0.value.external_symbol_type = q169; /* x179563 stalin.sc:25683:888584 */ t99372.s0.tag = EXTERNAL_SYMBOL_TYPE; t99372.s0.value.external_symbol_type = q318; /* x179564 stalin.sc:25683:888584 */ t99373.s0.tag = EXTERNAL_SYMBOL_TYPE; t99373.s0.value.external_symbol_type = q308; /* x179565 stalin.sc:25683:888584 */ t99373.s1.tag = NULL_TYPE; /* x179566 stalin.sc:25683:888584 */ t99372.s1.tag = STRUCTURE_TYPE24753; t99372.s1.value.structure_type24753 = &t99373; /* x179567 stalin.sc:25683:888584 */ t99371.s1.tag = STRUCTURE_TYPE24753; t99371.s1.value.structure_type24753 = &t99372; /* x179568 stalin.sc:25683:888584 */ t99370.s0.tag = STRUCTURE_TYPE24753; t99370.s0.value.structure_type24753 = &t99371; /* x179569 stalin.sc:25683:888584 */ t99374.s0.tag = EXTERNAL_SYMBOL_TYPE; t99374.s0.value.external_symbol_type = q254; /* x179570 stalin.sc:25683:888584 */ t99374.s1.tag = NULL_TYPE; /* x179571 stalin.sc:25683:888584 */ t99370.s1.tag = STRUCTURE_TYPE24753; t99370.s1.value.structure_type24753 = &t99374; /* x179572 stalin.sc:25683:888584 */ t99369.s1.tag = STRUCTURE_TYPE24753; t99369.s1.value.structure_type24753 = &t99370; /* x179573 stalin.sc:25683:888584 */ t99368.s0.tag = STRUCTURE_TYPE24753; t99368.s0.value.structure_type24753 = &t99369; /* x179574 stalin.sc:25683:888584 */ t99376.s0.tag = EXTERNAL_SYMBOL_TYPE; t99376.s0.value.external_symbol_type = q287; /* x179575 stalin.sc:25683:888584 */ t99378.s0.tag = EXTERNAL_SYMBOL_TYPE; t99378.s0.value.external_symbol_type = q4; /* x179576 stalin.sc:25683:888584 */ t99379.s0.tag = EXTERNAL_SYMBOL_TYPE; t99379.s0.value.external_symbol_type = q308; /* x179577 stalin.sc:25683:888584 */ t99380.s0.tag = FIXNUM_TYPE; t99380.s0.value.fixnum_type = 1; /* x179578 stalin.sc:25683:888584 */ t99380.s1.tag = NULL_TYPE; /* x179579 stalin.sc:25683:888584 */ t99379.s1.tag = STRUCTURE_TYPE24753; t99379.s1.value.structure_type24753 = &t99380; /* x179580 stalin.sc:25683:888584 */ t99378.s1.tag = STRUCTURE_TYPE24753; t99378.s1.value.structure_type24753 = &t99379; /* x179581 stalin.sc:25683:888584 */ t99377.s0.tag = STRUCTURE_TYPE24753; t99377.s0.value.structure_type24753 = &t99378; /* x179582 stalin.sc:25683:888584 */ t99377.s1.tag = NULL_TYPE; /* x179583 stalin.sc:25683:888584 */ t99376.s1.tag = STRUCTURE_TYPE24753; t99376.s1.value.structure_type24753 = &t99377; /* x179584 stalin.sc:25683:888584 */ t99375.s0.tag = STRUCTURE_TYPE24753; t99375.s0.value.structure_type24753 = &t99376; /* x179585 stalin.sc:25683:888584 */ t99375.s1.tag = NULL_TYPE; /* x179586 stalin.sc:25683:888584 */ t99368.s1.tag = STRUCTURE_TYPE24753; t99368.s1.value.structure_type24753 = &t99375; /* x179587 stalin.sc:25683:888584 */ t99364.s1.tag = STRUCTURE_TYPE24753; t99364.s1.value.structure_type24753 = &t99368; /* x179588 stalin.sc:25683:888584 */ t99363.s1.tag = STRUCTURE_TYPE24753; t99363.s1.value.structure_type24753 = &t99364; /* x179589 stalin.sc:25683:888584 */ t99362.s0.tag = STRUCTURE_TYPE24753; t99362.s0.value.structure_type24753 = &t99363; /* x179590 stalin.sc:25683:888584 */ t99362.s1.tag = NULL_TYPE; /* x179591 stalin.sc:25683:888584 */ t99356.s1.tag = STRUCTURE_TYPE24753; t99356.s1.value.structure_type24753 = &t99362; /* x179592 stalin.sc:25683:888584 */ t99355.s1.tag = STRUCTURE_TYPE24753; t99355.s1.value.structure_type24753 = &t99356; /* x179593 stalin.sc:25683:888584 */ t99354.s0.tag = STRUCTURE_TYPE24753; t99354.s0.value.structure_type24753 = &t99355; /* x179594 stalin.sc:25683:888584 */ t99354.s1.tag = NULL_TYPE; /* x179595 stalin.sc:25683:888584 */ t99350.s1.tag = STRUCTURE_TYPE24753; t99350.s1.value.structure_type24753 = &t99354; /* x179596 stalin.sc:25683:888584 */ t99349.s1.tag = STRUCTURE_TYPE24753; t99349.s1.value.structure_type24753 = &t99350; /* x179597 stalin.sc:25683:888584 */ t99348.s1.tag = STRUCTURE_TYPE24753; t99348.s1.value.structure_type24753 = &t99349; /* x179598 stalin.sc:25683:888584 */ t99347.s0.tag = STRUCTURE_TYPE24753; t99347.s0.value.structure_type24753 = &t99348; /* x179599 stalin.sc:25683:888584 */ t99347.s1.tag = NULL_TYPE; /* x179600 stalin.sc:25683:888584 */ t99340.s1.tag = STRUCTURE_TYPE24753; t99340.s1.value.structure_type24753 = &t99347; /* x179601 stalin.sc:25683:888584 */ t99339.s1.tag = STRUCTURE_TYPE24753; t99339.s1.value.structure_type24753 = &t99340; /* x179602 stalin.sc:25683:888584 */ t99338.s0.tag = STRUCTURE_TYPE24753; t99338.s0.value.structure_type24753 = &t99339; /* x179603 stalin.sc:25683:888584 */ t99338.s1.tag = NULL_TYPE; /* x179604 stalin.sc:25683:888584 */ t99331.s1.tag = STRUCTURE_TYPE24753; t99331.s1.value.structure_type24753 = &t99338; /* x179605 stalin.sc:25683:888584 */ t99330.s1.tag = STRUCTURE_TYPE24753; t99330.s1.value.structure_type24753 = &t99331; /* x179606 stalin.sc:25683:888584 */ t99329.s0.tag = STRUCTURE_TYPE24753; t99329.s0.value.structure_type24753 = &t99330; /* x179607 stalin.sc:25683:888584 */ t99382.s0.tag = EXTERNAL_SYMBOL_TYPE; t99382.s0.value.external_symbol_type = q234; /* x179608 stalin.sc:25683:888584 */ t99383.s0.tag = ((unsigned)((unsigned char)')'))<<2; /* x179609 stalin.sc:25683:888584 */ t99384.s0.tag = EXTERNAL_SYMBOL_TYPE; t99384.s0.value.external_symbol_type = q254; /* x179610 stalin.sc:25683:888584 */ t99384.s1.tag = NULL_TYPE; /* x179611 stalin.sc:25683:888584 */ t99383.s1.tag = STRUCTURE_TYPE24753; t99383.s1.value.structure_type24753 = &t99384; /* x179612 stalin.sc:25683:888584 */ t99382.s1.tag = STRUCTURE_TYPE24753; t99382.s1.value.structure_type24753 = &t99383; /* x179613 stalin.sc:25683:888584 */ t99381.s0.tag = STRUCTURE_TYPE24753; t99381.s0.value.structure_type24753 = &t99382; /* x179614 stalin.sc:25683:888584 */ t99381.s1.tag = NULL_TYPE; /* x179615 stalin.sc:25683:888584 */ t99329.s1.tag = STRUCTURE_TYPE24753; t99329.s1.value.structure_type24753 = &t99381; /* x179616 stalin.sc:25683:888584 */ t99325.s1.tag = STRUCTURE_TYPE24753; t99325.s1.value.structure_type24753 = &t99329; /* x179617 stalin.sc:25683:888584 */ t99322.s1.tag = STRUCTURE_TYPE24753; t99322.s1.value.structure_type24753 = &t99325; /* x179618 stalin.sc:25683:888584 */ t99321.s0.tag = STRUCTURE_TYPE24753; t99321.s0.value.structure_type24753 = &t99322; /* x179619 stalin.sc:25683:888584 */ t99386.s0.tag = EXTERNAL_SYMBOL_TYPE; t99386.s0.value.external_symbol_type = q95; /* x179620 stalin.sc:25683:888584 */ t99388.s0.tag = EXTERNAL_SYMBOL_TYPE; t99388.s0.value.external_symbol_type = q242; /* x179621 stalin.sc:25683:888584 */ t99389.s0.tag = EXTERNAL_SYMBOL_TYPE; t99389.s0.value.external_symbol_type = q287; /* x179622 stalin.sc:25683:888584 */ t99392.s0.tag = EXTERNAL_SYMBOL_TYPE; t99392.s0.value.external_symbol_type = q305; /* x179623 stalin.sc:25683:888584 */ t99393.s0.tag = EXTERNAL_SYMBOL_TYPE; t99393.s0.value.external_symbol_type = q305; /* x179624 stalin.sc:25683:888584 */ t99393.s1.tag = NULL_TYPE; /* x179625 stalin.sc:25683:888584 */ t99392.s1.tag = STRUCTURE_TYPE24753; t99392.s1.value.structure_type24753 = &t99393; /* x179626 stalin.sc:25683:888584 */ t99391.s0.tag = STRUCTURE_TYPE24753; t99391.s0.value.structure_type24753 = &t99392; /* x179627 stalin.sc:25683:888584 */ t99391.s1.tag = NULL_TYPE; /* x179628 stalin.sc:25683:888584 */ t99390.s0.tag = STRUCTURE_TYPE24753; t99390.s0.value.structure_type24753 = &t99391; /* x179629 stalin.sc:25683:888584 */ t99395.s0.tag = EXTERNAL_SYMBOL_TYPE; t99395.s0.value.external_symbol_type = q240; /* x179630 stalin.sc:25683:888584 */ t99398.s0.tag = EXTERNAL_SYMBOL_TYPE; t99398.s0.value.external_symbol_type = q111; /* x179631 stalin.sc:25683:888584 */ t99399.s0.tag = EXTERNAL_SYMBOL_TYPE; t99399.s0.value.external_symbol_type = q305; /* x179632 stalin.sc:25683:888584 */ t99399.s1.tag = NULL_TYPE; /* x179633 stalin.sc:25683:888584 */ t99398.s1.tag = STRUCTURE_TYPE24753; t99398.s1.value.structure_type24753 = &t99399; /* x179634 stalin.sc:25683:888584 */ t99397.s0.tag = STRUCTURE_TYPE24753; t99397.s0.value.structure_type24753 = &t99398; /* x179635 stalin.sc:25683:888584 */ t99401.s0.tag = EXTERNAL_SYMBOL_TYPE; t99401.s0.value.external_symbol_type = q307; /* x179636 stalin.sc:25683:888584 */ t99402.s0.tag = STRING_TYPE; t99402.s0.value.string_type = "#*UNKNOWN*"; /* x179637 stalin.sc:25683:888584 */ t99403.s0.tag = EXTERNAL_SYMBOL_TYPE; t99403.s0.value.external_symbol_type = q254; /* x179638 stalin.sc:25683:888584 */ t99403.s1.tag = NULL_TYPE; /* x179639 stalin.sc:25683:888584 */ t99402.s1.tag = STRUCTURE_TYPE24753; t99402.s1.value.structure_type24753 = &t99403; /* x179640 stalin.sc:25683:888584 */ t99401.s1.tag = STRUCTURE_TYPE24753; t99401.s1.value.structure_type24753 = &t99402; /* x179641 stalin.sc:25683:888584 */ t99400.s0.tag = STRUCTURE_TYPE24753; t99400.s0.value.structure_type24753 = &t99401; /* x179642 stalin.sc:25683:888584 */ t99400.s1.tag = NULL_TYPE; /* x179643 stalin.sc:25683:888584 */ t99397.s1.tag = STRUCTURE_TYPE24753; t99397.s1.value.structure_type24753 = &t99400; /* x179644 stalin.sc:25683:888584 */ t99396.s0.tag = STRUCTURE_TYPE24753; t99396.s0.value.structure_type24753 = &t99397; /* x179645 stalin.sc:25683:888584 */ t99407.s0.tag = EXTERNAL_SYMBOL_TYPE; t99407.s0.value.external_symbol_type = q107; /* x179646 stalin.sc:25683:888584 */ t99409.s0.tag = EXTERNAL_SYMBOL_TYPE; t99409.s0.value.external_symbol_type = q107; /* x179647 stalin.sc:25683:888584 */ t99410.s0.tag = EXTERNAL_SYMBOL_TYPE; t99410.s0.value.external_symbol_type = q305; /* x179648 stalin.sc:25683:888584 */ t99410.s1.tag = NULL_TYPE; /* x179649 stalin.sc:25683:888584 */ t99409.s1.tag = STRUCTURE_TYPE24753; t99409.s1.value.structure_type24753 = &t99410; /* x179650 stalin.sc:25683:888584 */ t99408.s0.tag = STRUCTURE_TYPE24753; t99408.s0.value.structure_type24753 = &t99409; /* x179651 stalin.sc:25683:888584 */ t99408.s1.tag = NULL_TYPE; /* x179652 stalin.sc:25683:888584 */ t99407.s1.tag = STRUCTURE_TYPE24753; t99407.s1.value.structure_type24753 = &t99408; /* x179653 stalin.sc:25683:888584 */ t99406.s0.tag = STRUCTURE_TYPE24753; t99406.s0.value.structure_type24753 = &t99407; /* x179654 stalin.sc:25683:888584 */ t99411.s0.tag = EXTERNAL_SYMBOL_TYPE; t99411.s0.value.external_symbol_type = q318; /* x179655 stalin.sc:25683:888584 */ t99411.s1.tag = NULL_TYPE; /* x179656 stalin.sc:25683:888584 */ t99406.s1.tag = STRUCTURE_TYPE24753; t99406.s1.value.structure_type24753 = &t99411; /* x179657 stalin.sc:25683:888584 */ t99405.s0.tag = STRUCTURE_TYPE24753; t99405.s0.value.structure_type24753 = &t99406; /* x179658 stalin.sc:25683:888584 */ t99414.s0.tag = EXTERNAL_SYMBOL_TYPE; t99414.s0.value.external_symbol_type = q108; /* x179659 stalin.sc:25683:888584 */ t99416.s0.tag = EXTERNAL_SYMBOL_TYPE; t99416.s0.value.external_symbol_type = q107; /* x179660 stalin.sc:25683:888584 */ t99417.s0.tag = EXTERNAL_SYMBOL_TYPE; t99417.s0.value.external_symbol_type = q305; /* x179661 stalin.sc:25683:888584 */ t99417.s1.tag = NULL_TYPE; /* x179662 stalin.sc:25683:888584 */ t99416.s1.tag = STRUCTURE_TYPE24753; t99416.s1.value.structure_type24753 = &t99417; /* x179663 stalin.sc:25683:888584 */ t99415.s0.tag = STRUCTURE_TYPE24753; t99415.s0.value.structure_type24753 = &t99416; /* x179664 stalin.sc:25683:888584 */ t99415.s1.tag = NULL_TYPE; /* x179665 stalin.sc:25683:888584 */ t99414.s1.tag = STRUCTURE_TYPE24753; t99414.s1.value.structure_type24753 = &t99415; /* x179666 stalin.sc:25683:888584 */ t99413.s0.tag = STRUCTURE_TYPE24753; t99413.s0.value.structure_type24753 = &t99414; /* x179667 stalin.sc:25683:888584 */ t99418.s0.tag = EXTERNAL_SYMBOL_TYPE; t99418.s0.value.external_symbol_type = q318; /* x179668 stalin.sc:25683:888584 */ t99419.s0.tag = EXTERNAL_SYMBOL_TYPE; t99419.s0.value.external_symbol_type = q254; /* x179669 stalin.sc:25683:888584 */ t99419.s1.tag = NULL_TYPE; /* x179670 stalin.sc:25683:888584 */ t99418.s1.tag = STRUCTURE_TYPE24753; t99418.s1.value.structure_type24753 = &t99419; /* x179671 stalin.sc:25683:888584 */ t99413.s1.tag = STRUCTURE_TYPE24753; t99413.s1.value.structure_type24753 = &t99418; /* x179672 stalin.sc:25683:888584 */ t99412.s0.tag = STRUCTURE_TYPE24753; t99412.s0.value.structure_type24753 = &t99413; /* x179673 stalin.sc:25683:888584 */ t99412.s1.tag = NULL_TYPE; /* x179674 stalin.sc:25683:888584 */ t99405.s1.tag = STRUCTURE_TYPE24753; t99405.s1.value.structure_type24753 = &t99412; /* x179675 stalin.sc:25683:888584 */ t99404.s0.tag = STRUCTURE_TYPE24753; t99404.s0.value.structure_type24753 = &t99405; /* x179676 stalin.sc:25683:888584 */ t99421.s0.tag = EXTERNAL_SYMBOL_TYPE; t99421.s0.value.external_symbol_type = q95; /* x179677 stalin.sc:25683:888584 */ t99423.s0.tag = EXTERNAL_SYMBOL_TYPE; t99423.s0.value.external_symbol_type = q287; /* x179678 stalin.sc:25683:888584 */ t99425.s0.tag = EXTERNAL_SYMBOL_TYPE; t99425.s0.value.external_symbol_type = q108; /* x179679 stalin.sc:25683:888584 */ t99426.s0.tag = EXTERNAL_SYMBOL_TYPE; t99426.s0.value.external_symbol_type = q305; /* x179680 stalin.sc:25683:888584 */ t99426.s1.tag = NULL_TYPE; /* x179681 stalin.sc:25683:888584 */ t99425.s1.tag = STRUCTURE_TYPE24753; t99425.s1.value.structure_type24753 = &t99426; /* x179682 stalin.sc:25683:888584 */ t99424.s0.tag = STRUCTURE_TYPE24753; t99424.s0.value.structure_type24753 = &t99425; /* x179683 stalin.sc:25683:888584 */ t99424.s1.tag = NULL_TYPE; /* x179684 stalin.sc:25683:888584 */ t99423.s1.tag = STRUCTURE_TYPE24753; t99423.s1.value.structure_type24753 = &t99424; /* x179685 stalin.sc:25683:888584 */ t99422.s0.tag = STRUCTURE_TYPE24753; t99422.s0.value.structure_type24753 = &t99423; /* x179686 stalin.sc:25683:888584 */ t99422.s1.tag = NULL_TYPE; /* x179687 stalin.sc:25683:888584 */ t99421.s1.tag = STRUCTURE_TYPE24753;} void initialize_constants34(void) {t99421.s1.value.structure_type24753 = &t99422; /* x179688 stalin.sc:25683:888584 */ t99420.s0.tag = STRUCTURE_TYPE24753; t99420.s0.value.structure_type24753 = &t99421; /* x179689 stalin.sc:25683:888584 */ t99420.s1.tag = NULL_TYPE; /* x179690 stalin.sc:25683:888584 */ t99404.s1.tag = STRUCTURE_TYPE24753; t99404.s1.value.structure_type24753 = &t99420; /* x179691 stalin.sc:25683:888584 */ t99396.s1.tag = STRUCTURE_TYPE24753; t99396.s1.value.structure_type24753 = &t99404; /* x179692 stalin.sc:25683:888584 */ t99395.s1.tag = STRUCTURE_TYPE24753; t99395.s1.value.structure_type24753 = &t99396; /* x179693 stalin.sc:25683:888584 */ t99394.s0.tag = STRUCTURE_TYPE24753; t99394.s0.value.structure_type24753 = &t99395; /* x179694 stalin.sc:25683:888584 */ t99394.s1.tag = NULL_TYPE; /* x179695 stalin.sc:25683:888584 */ t99390.s1.tag = STRUCTURE_TYPE24753; t99390.s1.value.structure_type24753 = &t99394; /* x179696 stalin.sc:25683:888584 */ t99389.s1.tag = STRUCTURE_TYPE24753; t99389.s1.value.structure_type24753 = &t99390; /* x179697 stalin.sc:25683:888584 */ t99388.s1.tag = STRUCTURE_TYPE24753; t99388.s1.value.structure_type24753 = &t99389; /* x179698 stalin.sc:25683:888584 */ t99387.s0.tag = STRUCTURE_TYPE24753; t99387.s0.value.structure_type24753 = &t99388; /* x179699 stalin.sc:25683:888584 */ t99387.s1.tag = NULL_TYPE; /* x179700 stalin.sc:25683:888584 */ t99386.s1.tag = STRUCTURE_TYPE24753; t99386.s1.value.structure_type24753 = &t99387; /* x179701 stalin.sc:25683:888584 */ t99385.s0.tag = STRUCTURE_TYPE24753; t99385.s0.value.structure_type24753 = &t99386; /* x179702 stalin.sc:25683:888584 */ t99385.s1.tag = NULL_TYPE; /* x179703 stalin.sc:25683:888584 */ t99321.s1.tag = STRUCTURE_TYPE24753; t99321.s1.value.structure_type24753 = &t99385; /* x179704 stalin.sc:25683:888584 */ t99245.s1.tag = STRUCTURE_TYPE24753; t99245.s1.value.structure_type24753 = &t99321; /* x179705 stalin.sc:25683:888584 */ t99177.s1.tag = STRUCTURE_TYPE24753; t99177.s1.value.structure_type24753 = &t99245; /* x179706 stalin.sc:25683:888584 */ t99169.s1.tag = STRUCTURE_TYPE24753; t99169.s1.value.structure_type24753 = &t99177; /* x179707 stalin.sc:25683:888584 */ t99159.s1.tag = STRUCTURE_TYPE24753; t99159.s1.value.structure_type24753 = &t99169; /* x179708 stalin.sc:25683:888584 */ t99151.s1.tag = STRUCTURE_TYPE24753; t99151.s1.value.structure_type24753 = &t99159; /* x179709 stalin.sc:25683:888584 */ t99143.s1.tag = STRUCTURE_TYPE24753; t99143.s1.value.structure_type24753 = &t99151; /* x179710 stalin.sc:25683:888584 */ t99135.s1.tag = STRUCTURE_TYPE24753; t99135.s1.value.structure_type24753 = &t99143; /* x179711 stalin.sc:25683:888584 */ t99127.s1.tag = STRUCTURE_TYPE24753; t99127.s1.value.structure_type24753 = &t99135; /* x179712 stalin.sc:25683:888584 */ t99110.s1.tag = STRUCTURE_TYPE24753; t99110.s1.value.structure_type24753 = &t99127; /* x179713 stalin.sc:25683:888584 */ t99076.s1.tag = STRUCTURE_TYPE24753; t99076.s1.value.structure_type24753 = &t99110; /* x179714 stalin.sc:25683:888584 */ t99068.s1.tag = STRUCTURE_TYPE24753; t99068.s1.value.structure_type24753 = &t99076; /* x179715 stalin.sc:25683:888584 */ t99059.s1.tag = STRUCTURE_TYPE24753; t99059.s1.value.structure_type24753 = &t99068; /* x179716 stalin.sc:25683:888584 */ t99051.s1.tag = STRUCTURE_TYPE24753; t99051.s1.value.structure_type24753 = &t99059; /* x179717 stalin.sc:25683:888584 */ t99050.s1.tag = STRUCTURE_TYPE24753; t99050.s1.value.structure_type24753 = &t99051; /* x179718 stalin.sc:25683:888584 */ t99049.s0.tag = STRUCTURE_TYPE24753; t99049.s0.value.structure_type24753 = &t99050; /* x179719 stalin.sc:25683:888584 */ t99049.s1.tag = NULL_TYPE; /* x179720 stalin.sc:25683:888584 */ t99045.s1.tag = STRUCTURE_TYPE24753; t99045.s1.value.structure_type24753 = &t99049; /* x179721 stalin.sc:25683:888584 */ t99044.s1.tag = STRUCTURE_TYPE24753; t99044.s1.value.structure_type24753 = &t99045; /* x179722 stalin.sc:25683:888584 */ t99043.s0.tag = STRUCTURE_TYPE24753; t99043.s0.value.structure_type24753 = &t99044; /* x179723 stalin.sc:25683:888584 */ t99428.s0.tag = EXTERNAL_SYMBOL_TYPE; t99428.s0.value.external_symbol_type = q97; /* x179724 stalin.sc:25683:888584 */ t99430.s0.tag = EXTERNAL_SYMBOL_TYPE; t99430.s0.value.external_symbol_type = q319; /* x179725 stalin.sc:25683:888584 */ t99431.s0.tag = EXTERNAL_SYMBOL_TYPE; t99431.s0.value.external_symbol_type = q318; /* x179726 stalin.sc:25683:888584 */ t99432.s0.tag = EXTERNAL_SYMBOL_TYPE; t99432.s0.value.external_symbol_type = q254; /* x179727 stalin.sc:25683:888584 */ t99432.s1.tag = NULL_TYPE; /* x179728 stalin.sc:25683:888584 */ t99431.s1.tag = STRUCTURE_TYPE24753; t99431.s1.value.structure_type24753 = &t99432; /* x179729 stalin.sc:25683:888584 */ t99430.s1.tag = STRUCTURE_TYPE24753; t99430.s1.value.structure_type24753 = &t99431; /* x179730 stalin.sc:25683:888584 */ t99429.s0.tag = STRUCTURE_TYPE24753; t99429.s0.value.structure_type24753 = &t99430; /* x179731 stalin.sc:25683:888584 */ t99434.s0.tag = EXTERNAL_SYMBOL_TYPE; t99434.s0.value.external_symbol_type = q240; /* x179732 stalin.sc:25683:888584 */ t99437.s0.tag = EXTERNAL_SYMBOL_TYPE; t99437.s0.value.external_symbol_type = q111; /* x179733 stalin.sc:25683:888584 */ t99438.s0.tag = EXTERNAL_SYMBOL_TYPE; t99438.s0.value.external_symbol_type = q318; /* x179734 stalin.sc:25683:888584 */ t99438.s1.tag = NULL_TYPE; /* x179735 stalin.sc:25683:888584 */ t99437.s1.tag = STRUCTURE_TYPE24753; t99437.s1.value.structure_type24753 = &t99438; /* x179736 stalin.sc:25683:888584 */ t99436.s0.tag = STRUCTURE_TYPE24753; t99436.s0.value.structure_type24753 = &t99437; /* x179737 stalin.sc:25683:888584 */ t99440.s0.tag = EXTERNAL_SYMBOL_TYPE; t99440.s0.value.external_symbol_type = q307; /* x179738 stalin.sc:25683:888584 */ t99441.s0.tag = STRING_TYPE; t99441.s0.value.string_type = "()"; /* x179739 stalin.sc:25683:888584 */ t99442.s0.tag = EXTERNAL_SYMBOL_TYPE; t99442.s0.value.external_symbol_type = q254; /* x179740 stalin.sc:25683:888584 */ t99442.s1.tag = NULL_TYPE; /* x179741 stalin.sc:25683:888584 */ t99441.s1.tag = STRUCTURE_TYPE24753; t99441.s1.value.structure_type24753 = &t99442; /* x179742 stalin.sc:25683:888584 */ t99440.s1.tag = STRUCTURE_TYPE24753; t99440.s1.value.structure_type24753 = &t99441; /* x179743 stalin.sc:25683:888584 */ t99439.s0.tag = STRUCTURE_TYPE24753; t99439.s0.value.structure_type24753 = &t99440; /* x179744 stalin.sc:25683:888584 */ t99439.s1.tag = NULL_TYPE; /* x179745 stalin.sc:25683:888584 */ t99436.s1.tag = STRUCTURE_TYPE24753; t99436.s1.value.structure_type24753 = &t99439; /* x179746 stalin.sc:25683:888584 */ t99435.s0.tag = STRUCTURE_TYPE24753; t99435.s0.value.structure_type24753 = &t99436; /* x179747 stalin.sc:25683:888584 */ t99445.s0.tag = EXTERNAL_SYMBOL_TYPE; t99445.s0.value.external_symbol_type = q104; /* x179748 stalin.sc:25683:888584 */ t99446.s0.tag = EXTERNAL_SYMBOL_TYPE; t99446.s0.value.external_symbol_type = q318; /* x179749 stalin.sc:25683:888584 */ t99447.s0.tag = TRUE_TYPE; /* x179750 stalin.sc:25683:888584 */ t99447.s1.tag = NULL_TYPE; /* x179751 stalin.sc:25683:888584 */ t99446.s1.tag = STRUCTURE_TYPE24753; t99446.s1.value.structure_type24753 = &t99447; /* x179752 stalin.sc:25683:888584 */ t99445.s1.tag = STRUCTURE_TYPE24753; t99445.s1.value.structure_type24753 = &t99446; /* x179753 stalin.sc:25683:888584 */ t99444.s0.tag = STRUCTURE_TYPE24753; t99444.s0.value.structure_type24753 = &t99445; /* x179754 stalin.sc:25683:888584 */ t99449.s0.tag = EXTERNAL_SYMBOL_TYPE; t99449.s0.value.external_symbol_type = q307; /* x179755 stalin.sc:25683:888584 */ t99450.s0.tag = STRING_TYPE; t99450.s0.value.string_type = "#T"; /* x179756 stalin.sc:25683:888584 */ t99451.s0.tag = EXTERNAL_SYMBOL_TYPE; t99451.s0.value.external_symbol_type = q254; /* x179757 stalin.sc:25683:888584 */ t99451.s1.tag = NULL_TYPE; /* x179758 stalin.sc:25683:888584 */ t99450.s1.tag = STRUCTURE_TYPE24753; t99450.s1.value.structure_type24753 = &t99451; /* x179759 stalin.sc:25683:888584 */ t99449.s1.tag = STRUCTURE_TYPE24753; t99449.s1.value.structure_type24753 = &t99450; /* x179760 stalin.sc:25683:888584 */ t99448.s0.tag = STRUCTURE_TYPE24753; t99448.s0.value.structure_type24753 = &t99449; /* x179761 stalin.sc:25683:888584 */ t99448.s1.tag = NULL_TYPE; /* x179762 stalin.sc:25683:888584 */ t99444.s1.tag = STRUCTURE_TYPE24753; t99444.s1.value.structure_type24753 = &t99448; /* x179763 stalin.sc:25683:888584 */ t99443.s0.tag = STRUCTURE_TYPE24753; t99443.s0.value.structure_type24753 = &t99444; /* x179764 stalin.sc:25683:888584 */ t99454.s0.tag = EXTERNAL_SYMBOL_TYPE; t99454.s0.value.external_symbol_type = q102; /* x179765 stalin.sc:25683:888584 */ t99455.s0.tag = EXTERNAL_SYMBOL_TYPE; t99455.s0.value.external_symbol_type = q318; /* x179766 stalin.sc:25683:888584 */ t99455.s1.tag = NULL_TYPE; /* x179767 stalin.sc:25683:888584 */ t99454.s1.tag = STRUCTURE_TYPE24753; t99454.s1.value.structure_type24753 = &t99455; /* x179768 stalin.sc:25683:888584 */ t99453.s0.tag = STRUCTURE_TYPE24753; t99453.s0.value.structure_type24753 = &t99454; /* x179769 stalin.sc:25683:888584 */ t99457.s0.tag = EXTERNAL_SYMBOL_TYPE; t99457.s0.value.external_symbol_type = q307; /* x179770 stalin.sc:25683:888584 */ t99458.s0.tag = STRING_TYPE; t99458.s0.value.string_type = "#F"; /* x179771 stalin.sc:25683:888584 */ t99459.s0.tag = EXTERNAL_SYMBOL_TYPE; t99459.s0.value.external_symbol_type = q254; /* x179772 stalin.sc:25683:888584 */ t99459.s1.tag = NULL_TYPE; /* x179773 stalin.sc:25683:888584 */ t99458.s1.tag = STRUCTURE_TYPE24753; t99458.s1.value.structure_type24753 = &t99459; /* x179774 stalin.sc:25683:888584 */ t99457.s1.tag = STRUCTURE_TYPE24753; t99457.s1.value.structure_type24753 = &t99458; /* x179775 stalin.sc:25683:888584 */ t99456.s0.tag = STRUCTURE_TYPE24753; t99456.s0.value.structure_type24753 = &t99457; /* x179776 stalin.sc:25683:888584 */ t99456.s1.tag = NULL_TYPE; /* x179777 stalin.sc:25683:888584 */ t99453.s1.tag = STRUCTURE_TYPE24753; t99453.s1.value.structure_type24753 = &t99456; /* x179778 stalin.sc:25683:888584 */ t99452.s0.tag = STRUCTURE_TYPE24753; t99452.s0.value.structure_type24753 = &t99453; /* x179779 stalin.sc:25683:888584 */ t99462.s0.tag = EXTERNAL_SYMBOL_TYPE; t99462.s0.value.external_symbol_type = q156; /* x179780 stalin.sc:25683:888584 */ t99463.s0.tag = EXTERNAL_SYMBOL_TYPE; t99463.s0.value.external_symbol_type = q318; /* x179781 stalin.sc:25683:888584 */ t99463.s1.tag = NULL_TYPE; /* x179782 stalin.sc:25683:888584 */ t99462.s1.tag = STRUCTURE_TYPE24753; t99462.s1.value.structure_type24753 = &t99463; /* x179783 stalin.sc:25683:888584 */ t99461.s0.tag = STRUCTURE_TYPE24753; t99461.s0.value.structure_type24753 = &t99462; /* x179784 stalin.sc:25683:888584 */ t99465.s0.tag = EXTERNAL_SYMBOL_TYPE; t99465.s0.value.external_symbol_type = q234; /* x179785 stalin.sc:25683:888584 */ t99466.s0.tag = EXTERNAL_SYMBOL_TYPE; t99466.s0.value.external_symbol_type = q318; /* x179786 stalin.sc:25683:888584 */ t99467.s0.tag = EXTERNAL_SYMBOL_TYPE; t99467.s0.value.external_symbol_type = q254; /* x179787 stalin.sc:25683:888584 */ t99467.s1.tag = NULL_TYPE; /* x179788 stalin.sc:25683:888584 */ t99466.s1.tag = STRUCTURE_TYPE24753; t99466.s1.value.structure_type24753 = &t99467; /* x179789 stalin.sc:25683:888584 */ t99465.s1.tag = STRUCTURE_TYPE24753; t99465.s1.value.structure_type24753 = &t99466; /* x179790 stalin.sc:25683:888584 */ t99464.s0.tag = STRUCTURE_TYPE24753; t99464.s0.value.structure_type24753 = &t99465; /* x179791 stalin.sc:25683:888584 */ t99464.s1.tag = NULL_TYPE; /* x179792 stalin.sc:25683:888584 */ t99461.s1.tag = STRUCTURE_TYPE24753; t99461.s1.value.structure_type24753 = &t99464; /* x179793 stalin.sc:25683:888584 */ t99460.s0.tag = STRUCTURE_TYPE24753; t99460.s0.value.structure_type24753 = &t99461; /* x179794 stalin.sc:25683:888584 */ t99470.s0.tag = EXTERNAL_SYMBOL_TYPE; t99470.s0.value.external_symbol_type = q115; /* x179795 stalin.sc:25683:888584 */ t99471.s0.tag = EXTERNAL_SYMBOL_TYPE; t99471.s0.value.external_symbol_type = q318; /* x179796 stalin.sc:25683:888584 */ t99471.s1.tag = NULL_TYPE; /* x179797 stalin.sc:25683:888584 */ t99470.s1.tag = STRUCTURE_TYPE24753; t99470.s1.value.structure_type24753 = &t99471; /* x179798 stalin.sc:25683:888584 */ t99469.s0.tag = STRUCTURE_TYPE24753; t99469.s0.value.structure_type24753 = &t99470; /* x179799 stalin.sc:25683:888584 */ t99473.s0.tag = EXTERNAL_SYMBOL_TYPE; t99473.s0.value.external_symbol_type = q43; /* x179800 stalin.sc:25683:888584 */ t99475.s0.tag = EXTERNAL_SYMBOL_TYPE; t99475.s0.value.external_symbol_type = q118; /* x179801 stalin.sc:25683:888584 */ t99476.s0.tag = EXTERNAL_SYMBOL_TYPE; t99476.s0.value.external_symbol_type = q318; /* x179802 stalin.sc:25683:888584 */ t99476.s1.tag = NULL_TYPE; /* x179803 stalin.sc:25683:888584 */ t99475.s1.tag = STRUCTURE_TYPE24753; t99475.s1.value.structure_type24753 = &t99476; /* x179804 stalin.sc:25683:888584 */ t99474.s0.tag = STRUCTURE_TYPE24753; t99474.s0.value.structure_type24753 = &t99475; /* x179805 stalin.sc:25683:888584 */ t99478.s0.tag = EXTERNAL_SYMBOL_TYPE; t99478.s0.value.external_symbol_type = q309; /* x179806 stalin.sc:25683:888584 */ t99479.s0.tag = EXTERNAL_SYMBOL_TYPE; t99479.s0.value.external_symbol_type = q318; /* x179807 stalin.sc:25683:888584 */ t99480.s0.tag = EXTERNAL_SYMBOL_TYPE; t99480.s0.value.external_symbol_type = q254; /* x179808 stalin.sc:25683:888584 */ t99480.s1.tag = NULL_TYPE; /* x179809 stalin.sc:25683:888584 */ t99479.s1.tag = STRUCTURE_TYPE24753; t99479.s1.value.structure_type24753 = &t99480; /* x179810 stalin.sc:25683:888584 */ t99478.s1.tag = STRUCTURE_TYPE24753; t99478.s1.value.structure_type24753 = &t99479; /* x179811 stalin.sc:25683:888584 */ t99477.s0.tag = STRUCTURE_TYPE24753; t99477.s0.value.structure_type24753 = &t99478; /* x179812 stalin.sc:25683:888584 */ t99482.s0.tag = EXTERNAL_SYMBOL_TYPE; t99482.s0.value.external_symbol_type = q316; /* x179813 stalin.sc:25683:888584 */ t99483.s0.tag = EXTERNAL_SYMBOL_TYPE; t99483.s0.value.external_symbol_type = q318; /* x179814 stalin.sc:25683:888584 */ t99484.s0.tag = EXTERNAL_SYMBOL_TYPE; t99484.s0.value.external_symbol_type = q254; /* x179815 stalin.sc:25683:888584 */ t99484.s1.tag = NULL_TYPE; /* x179816 stalin.sc:25683:888584 */ t99483.s1.tag = STRUCTURE_TYPE24753; t99483.s1.value.structure_type24753 = &t99484; /* x179817 stalin.sc:25683:888584 */ t99482.s1.tag = STRUCTURE_TYPE24753; t99482.s1.value.structure_type24753 = &t99483; /* x179818 stalin.sc:25683:888584 */ t99481.s0.tag = STRUCTURE_TYPE24753; t99481.s0.value.structure_type24753 = &t99482; /* x179819 stalin.sc:25683:888584 */ t99481.s1.tag = NULL_TYPE; /* x179820 stalin.sc:25683:888584 */ t99477.s1.tag = STRUCTURE_TYPE24753; t99477.s1.value.structure_type24753 = &t99481; /* x179821 stalin.sc:25683:888584 */ t99474.s1.tag = STRUCTURE_TYPE24753; t99474.s1.value.structure_type24753 = &t99477; /* x179822 stalin.sc:25683:888584 */ t99473.s1.tag = STRUCTURE_TYPE24753; t99473.s1.value.structure_type24753 = &t99474; /* x179823 stalin.sc:25683:888584 */ t99472.s0.tag = STRUCTURE_TYPE24753; t99472.s0.value.structure_type24753 = &t99473; /* x179824 stalin.sc:25683:888584 */ t99472.s1.tag = NULL_TYPE; /* x179825 stalin.sc:25683:888584 */ t99469.s1.tag = STRUCTURE_TYPE24753; t99469.s1.value.structure_type24753 = &t99472; /* x179826 stalin.sc:25683:888584 */ t99468.s0.tag = STRUCTURE_TYPE24753; t99468.s0.value.structure_type24753 = &t99469; /* x179827 stalin.sc:25683:888584 */ t99487.s0.tag = EXTERNAL_SYMBOL_TYPE; t99487.s0.value.external_symbol_type = q172; /* x179828 stalin.sc:25683:888584 */ t99488.s0.tag = EXTERNAL_SYMBOL_TYPE; t99488.s0.value.external_symbol_type = q318; /* x179829 stalin.sc:25683:888584 */ t99488.s1.tag = NULL_TYPE; /* x179830 stalin.sc:25683:888584 */ t99487.s1.tag = STRUCTURE_TYPE24753; t99487.s1.value.structure_type24753 = &t99488; /* x179831 stalin.sc:25683:888584 */ t99486.s0.tag = STRUCTURE_TYPE24753; t99486.s0.value.structure_type24753 = &t99487; /* x179832 stalin.sc:25683:888584 */ t99490.s0.tag = EXTERNAL_SYMBOL_TYPE; t99490.s0.value.external_symbol_type = q307; /* x179833 stalin.sc:25683:888584 */ t99491.s0.tag = STRING_TYPE; t99491.s0.value.string_type = "#*INPUT-PORT*"; /* x179834 stalin.sc:25683:888584 */ t99492.s0.tag = EXTERNAL_SYMBOL_TYPE; t99492.s0.value.external_symbol_type = q254; /* x179835 stalin.sc:25683:888584 */ t99492.s1.tag = NULL_TYPE; /* x179836 stalin.sc:25683:888584 */ t99491.s1.tag = STRUCTURE_TYPE24753; t99491.s1.value.structure_type24753 = &t99492; /* x179837 stalin.sc:25683:888584 */ t99490.s1.tag = STRUCTURE_TYPE24753; t99490.s1.value.structure_type24753 = &t99491; /* x179838 stalin.sc:25683:888584 */ t99489.s0.tag = STRUCTURE_TYPE24753; t99489.s0.value.structure_type24753 = &t99490; /* x179839 stalin.sc:25683:888584 */ t99489.s1.tag = NULL_TYPE; /* x179840 stalin.sc:25683:888584 */ t99486.s1.tag = STRUCTURE_TYPE24753; t99486.s1.value.structure_type24753 = &t99489; /* x179841 stalin.sc:25683:888584 */ t99485.s0.tag = STRUCTURE_TYPE24753; t99485.s0.value.structure_type24753 = &t99486; /* x179842 stalin.sc:25683:888584 */ t99495.s0.tag = EXTERNAL_SYMBOL_TYPE; t99495.s0.value.external_symbol_type = q173; /* x179843 stalin.sc:25683:888584 */ t99496.s0.tag = EXTERNAL_SYMBOL_TYPE; t99496.s0.value.external_symbol_type = q318; /* x179844 stalin.sc:25683:888584 */ t99496.s1.tag = NULL_TYPE; /* x179845 stalin.sc:25683:888584 */ t99495.s1.tag = STRUCTURE_TYPE24753; t99495.s1.value.structure_type24753 = &t99496; /* x179846 stalin.sc:25683:888584 */ t99494.s0.tag = STRUCTURE_TYPE24753; t99494.s0.value.structure_type24753 = &t99495; /* x179847 stalin.sc:25683:888584 */ t99498.s0.tag = EXTERNAL_SYMBOL_TYPE; t99498.s0.value.external_symbol_type = q307; /* x179848 stalin.sc:25683:888584 */ t99499.s0.tag = STRING_TYPE; t99499.s0.value.string_type = "#*OUTPUT-PORT*"; /* x179849 stalin.sc:25683:888584 */ t99500.s0.tag = EXTERNAL_SYMBOL_TYPE; t99500.s0.value.external_symbol_type = q254; /* x179850 stalin.sc:25683:888584 */ t99500.s1.tag = NULL_TYPE; /* x179851 stalin.sc:25683:888584 */ t99499.s1.tag = STRUCTURE_TYPE24753; t99499.s1.value.structure_type24753 = &t99500; /* x179852 stalin.sc:25683:888584 */ t99498.s1.tag = STRUCTURE_TYPE24753; t99498.s1.value.structure_type24753 = &t99499; /* x179853 stalin.sc:25683:888584 */ t99497.s0.tag = STRUCTURE_TYPE24753; t99497.s0.value.structure_type24753 = &t99498; /* x179854 stalin.sc:25683:888584 */ t99497.s1.tag = NULL_TYPE; /* x179855 stalin.sc:25683:888584 */ t99494.s1.tag = STRUCTURE_TYPE24753; t99494.s1.value.structure_type24753 = &t99497; /* x179856 stalin.sc:25683:888584 */ t99493.s0.tag = STRUCTURE_TYPE24753; t99493.s0.value.structure_type24753 = &t99494; /* x179857 stalin.sc:25683:888584 */ t99503.s0.tag = EXTERNAL_SYMBOL_TYPE; t99503.s0.value.external_symbol_type = q178; /* x179858 stalin.sc:25683:888584 */ t99504.s0.tag = EXTERNAL_SYMBOL_TYPE; t99504.s0.value.external_symbol_type = q318; /* x179859 stalin.sc:25683:888584 */ t99504.s1.tag = NULL_TYPE; /* x179860 stalin.sc:25683:888584 */ t99503.s1.tag = STRUCTURE_TYPE24753; t99503.s1.value.structure_type24753 = &t99504; /* x179861 stalin.sc:25683:888584 */ t99502.s0.tag = STRUCTURE_TYPE24753; t99502.s0.value.structure_type24753 = &t99503; /* x179862 stalin.sc:25683:888584 */ t99506.s0.tag = EXTERNAL_SYMBOL_TYPE; t99506.s0.value.external_symbol_type = q307; /* x179863 stalin.sc:25683:888584 */ t99507.s0.tag = STRING_TYPE; t99507.s0.value.string_type = "#*EOF-OBJECT*"; /* x179864 stalin.sc:25683:888584 */ t99508.s0.tag = EXTERNAL_SYMBOL_TYPE; t99508.s0.value.external_symbol_type = q254; /* x179865 stalin.sc:25683:888584 */ t99508.s1.tag = NULL_TYPE; /* x179866 stalin.sc:25683:888584 */ t99507.s1.tag = STRUCTURE_TYPE24753; t99507.s1.value.structure_type24753 = &t99508; /* x179867 stalin.sc:25683:888584 */ t99506.s1.tag = STRUCTURE_TYPE24753; t99506.s1.value.structure_type24753 = &t99507; /* x179868 stalin.sc:25683:888584 */ t99505.s0.tag = STRUCTURE_TYPE24753; t99505.s0.value.structure_type24753 = &t99506; /* x179869 stalin.sc:25683:888584 */ t99505.s1.tag = NULL_TYPE; /* x179870 stalin.sc:25683:888584 */ t99502.s1.tag = STRUCTURE_TYPE24753; t99502.s1.value.structure_type24753 = &t99505; /* x179871 stalin.sc:25683:888584 */ t99501.s0.tag = STRUCTURE_TYPE24753; t99501.s0.value.structure_type24753 = &t99502; /* x179872 stalin.sc:25683:888584 */ t99511.s0.tag = EXTERNAL_SYMBOL_TYPE; t99511.s0.value.external_symbol_type = q180; /* x179873 stalin.sc:25683:888584 */ t99512.s0.tag = EXTERNAL_SYMBOL_TYPE; t99512.s0.value.external_symbol_type = q318; /* x179874 stalin.sc:25683:888584 */ t99512.s1.tag = NULL_TYPE; /* x179875 stalin.sc:25683:888584 */ t99511.s1.tag = STRUCTURE_TYPE24753; t99511.s1.value.structure_type24753 = &t99512; /* x179876 stalin.sc:25683:888584 */ t99510.s0.tag = STRUCTURE_TYPE24753; t99510.s0.value.structure_type24753 = &t99511; /* x179877 stalin.sc:25683:888584 */ t99514.s0.tag = EXTERNAL_SYMBOL_TYPE; t99514.s0.value.external_symbol_type = q307; /* x179878 stalin.sc:25683:888584 */ t99515.s0.tag = STRING_TYPE; t99515.s0.value.string_type = "#*POINTER*"; /* x179879 stalin.sc:25683:888584 */ t99516.s0.tag = EXTERNAL_SYMBOL_TYPE; t99516.s0.value.external_symbol_type = q254; /* x179880 stalin.sc:25683:888584 */ t99516.s1.tag = NULL_TYPE; /* x179881 stalin.sc:25683:888584 */ t99515.s1.tag = STRUCTURE_TYPE24753; t99515.s1.value.structure_type24753 = &t99516; /* x179882 stalin.sc:25683:888584 */ t99514.s1.tag = STRUCTURE_TYPE24753; t99514.s1.value.structure_type24753 = &t99515; /* x179883 stalin.sc:25683:888584 */ t99513.s0.tag = STRUCTURE_TYPE24753; t99513.s0.value.structure_type24753 = &t99514; /* x179884 stalin.sc:25683:888584 */ t99513.s1.tag = NULL_TYPE; /* x179885 stalin.sc:25683:888584 */ t99510.s1.tag = STRUCTURE_TYPE24753; t99510.s1.value.structure_type24753 = &t99513; /* x179886 stalin.sc:25683:888584 */ t99509.s0.tag = STRUCTURE_TYPE24753; t99509.s0.value.structure_type24753 = &t99510; /* x179887 stalin.sc:25683:888584 */ t99519.s0.tag = EXTERNAL_SYMBOL_TYPE; t99519.s0.value.external_symbol_type = q112; /* x179888 stalin.sc:25683:888584 */ t99520.s0.tag = EXTERNAL_SYMBOL_TYPE; t99520.s0.value.external_symbol_type = q318; /* x179889 stalin.sc:25683:888584 */ t99520.s1.tag = NULL_TYPE; /* x179890 stalin.sc:25683:888584 */ t99519.s1.tag = STRUCTURE_TYPE24753; t99519.s1.value.structure_type24753 = &t99520; /* x179891 stalin.sc:25683:888584 */ t99518.s0.tag = STRUCTURE_TYPE24753; t99518.s0.value.structure_type24753 = &t99519; /* x179892 stalin.sc:25683:888584 */ t99522.s0.tag = EXTERNAL_SYMBOL_TYPE; t99522.s0.value.external_symbol_type = q307; /* x179893 stalin.sc:25683:888584 */ t99524.s0.tag = EXTERNAL_SYMBOL_TYPE; t99524.s0.value.external_symbol_type = q113; /* x179894 stalin.sc:25683:888584 */ t99525.s0.tag = EXTERNAL_SYMBOL_TYPE; t99525.s0.value.external_symbol_type = q318; /* x179895 stalin.sc:25683:888584 */ t99525.s1.tag = NULL_TYPE; /* x179896 stalin.sc:25683:888584 */ t99524.s1.tag = STRUCTURE_TYPE24753; t99524.s1.value.structure_type24753 = &t99525; /* x179897 stalin.sc:25683:888584 */ t99523.s0.tag = STRUCTURE_TYPE24753; t99523.s0.value.structure_type24753 = &t99524; /* x179898 stalin.sc:25683:888584 */ t99526.s0.tag = EXTERNAL_SYMBOL_TYPE; t99526.s0.value.external_symbol_type = q254; /* x179899 stalin.sc:25683:888584 */ t99526.s1.tag = NULL_TYPE; /* x179900 stalin.sc:25683:888584 */ t99523.s1.tag = STRUCTURE_TYPE24753; t99523.s1.value.structure_type24753 = &t99526; /* x179901 stalin.sc:25683:888584 */ t99522.s1.tag = STRUCTURE_TYPE24753; t99522.s1.value.structure_type24753 = &t99523; /* x179902 stalin.sc:25683:888584 */ t99521.s0.tag = STRUCTURE_TYPE24753; t99521.s0.value.structure_type24753 = &t99522; /* x179903 stalin.sc:25683:888584 */ t99521.s1.tag = NULL_TYPE; /* x179904 stalin.sc:25683:888584 */ t99518.s1.tag = STRUCTURE_TYPE24753; t99518.s1.value.structure_type24753 = &t99521; /* x179905 stalin.sc:25683:888584 */ t99517.s0.tag = STRUCTURE_TYPE24753; t99517.s0.value.structure_type24753 = &t99518; /* x179906 stalin.sc:25683:888584 */ t99529.s0.tag = EXTERNAL_SYMBOL_TYPE; t99529.s0.value.external_symbol_type = q171; /* x179907 stalin.sc:25683:888584 */ t99530.s0.tag = EXTERNAL_SYMBOL_TYPE; t99530.s0.value.external_symbol_type = q318; /* x179908 stalin.sc:25683:888584 */ t99530.s1.tag = NULL_TYPE; /* x179909 stalin.sc:25683:888584 */ t99529.s1.tag = STRUCTURE_TYPE24753; t99529.s1.value.structure_type24753 = &t99530; /* x179910 stalin.sc:25683:888584 */ t99528.s0.tag = STRUCTURE_TYPE24753; t99528.s0.value.structure_type24753 = &t99529; /* x179911 stalin.sc:25683:888584 */ t99532.s0.tag = EXTERNAL_SYMBOL_TYPE; t99532.s0.value.external_symbol_type = q307; /* x179912 stalin.sc:25683:888584 */ t99533.s0.tag = STRING_TYPE; t99533.s0.value.string_type = "#*PROCEDURE*"; /* x179913 stalin.sc:25683:888584 */ t99534.s0.tag = EXTERNAL_SYMBOL_TYPE; t99534.s0.value.external_symbol_type = q254; /* x179914 stalin.sc:25683:888584 */ t99534.s1.tag = NULL_TYPE; /* x179915 stalin.sc:25683:888584 */ t99533.s1.tag = STRUCTURE_TYPE24753; t99533.s1.value.structure_type24753 = &t99534; /* x179916 stalin.sc:25683:888584 */ t99532.s1.tag = STRUCTURE_TYPE24753; t99532.s1.value.structure_type24753 = &t99533; /* x179917 stalin.sc:25683:888584 */ t99531.s0.tag = STRUCTURE_TYPE24753; t99531.s0.value.structure_type24753 = &t99532; /* x179918 stalin.sc:25683:888584 */ t99531.s1.tag = NULL_TYPE; /* x179919 stalin.sc:25683:888584 */ t99528.s1.tag = STRUCTURE_TYPE24753; t99528.s1.value.structure_type24753 = &t99531; /* x179920 stalin.sc:25683:888584 */ t99527.s0.tag = STRUCTURE_TYPE24753; t99527.s0.value.structure_type24753 = &t99528; /* x179921 stalin.sc:25683:888584 */ t99537.s0.tag = EXTERNAL_SYMBOL_TYPE; t99537.s0.value.external_symbol_type = q159; /* x179922 stalin.sc:25683:888584 */ t99538.s0.tag = EXTERNAL_SYMBOL_TYPE; t99538.s0.value.external_symbol_type = q318; /* x179923 stalin.sc:25683:888584 */ t99538.s1.tag = NULL_TYPE; /* x179924 stalin.sc:25683:888584 */ t99537.s1.tag = STRUCTURE_TYPE24753; t99537.s1.value.structure_type24753 = &t99538; /* x179925 stalin.sc:25683:888584 */ t99536.s0.tag = STRUCTURE_TYPE24753; t99536.s0.value.structure_type24753 = &t99537; /* x179926 stalin.sc:25683:888584 */ t99540.s0.tag = EXTERNAL_SYMBOL_TYPE; t99540.s0.value.external_symbol_type = q307; /* x179927 stalin.sc:25683:888584 */ t99541.s0.tag = EXTERNAL_SYMBOL_TYPE; t99541.s0.value.external_symbol_type = q318; /* x179928 stalin.sc:25683:888584 */ t99542.s0.tag = EXTERNAL_SYMBOL_TYPE; t99542.s0.value.external_symbol_type = q254; /* x179929 stalin.sc:25683:888584 */ t99542.s1.tag = NULL_TYPE; /* x179930 stalin.sc:25683:888584 */ t99541.s1.tag = STRUCTURE_TYPE24753; t99541.s1.value.structure_type24753 = &t99542; /* x179931 stalin.sc:25683:888584 */ t99540.s1.tag = STRUCTURE_TYPE24753; t99540.s1.value.structure_type24753 = &t99541; /* x179932 stalin.sc:25683:888584 */ t99539.s0.tag = STRUCTURE_TYPE24753; t99539.s0.value.structure_type24753 = &t99540; /* x179933 stalin.sc:25683:888584 */ t99539.s1.tag = NULL_TYPE; /* x179934 stalin.sc:25683:888584 */ t99536.s1.tag = STRUCTURE_TYPE24753; t99536.s1.value.structure_type24753 = &t99539; /* x179935 stalin.sc:25683:888584 */ t99535.s0.tag = STRUCTURE_TYPE24753; t99535.s0.value.structure_type24753 = &t99536; /* x179936 stalin.sc:25683:888584 */ t99545.s0.tag = EXTERNAL_SYMBOL_TYPE; t99545.s0.value.external_symbol_type = q105; /* x179937 stalin.sc:25683:888584 */ t99546.s0.tag = EXTERNAL_SYMBOL_TYPE; t99546.s0.value.external_symbol_type = q318; /* x179938 stalin.sc:25683:888584 */ t99546.s1.tag = NULL_TYPE; /* x179939 stalin.sc:25683:888584 */ t99545.s1.tag = STRUCTURE_TYPE24753; t99545.s1.value.structure_type24753 = &t99546; /* x179940 stalin.sc:25683:888584 */ t99544.s0.tag = STRUCTURE_TYPE24753; t99544.s0.value.structure_type24753 = &t99545; /* x179941 stalin.sc:25683:888584 */ t99548.s0.tag = EXTERNAL_SYMBOL_TYPE; t99548.s0.value.external_symbol_type = q234; /* x179942 stalin.sc:25683:888584 */ t99549.s0.tag = ((unsigned)((unsigned char)'('))<<2; /* x179943 stalin.sc:25683:888584 */ t99550.s0.tag = EXTERNAL_SYMBOL_TYPE; t99550.s0.value.external_symbol_type = q254; /* x179944 stalin.sc:25683:888584 */ t99550.s1.tag = NULL_TYPE; /* x179945 stalin.sc:25683:888584 */ t99549.s1.tag = STRUCTURE_TYPE24753; t99549.s1.value.structure_type24753 = &t99550; /* x179946 stalin.sc:25683:888584 */ t99548.s1.tag = STRUCTURE_TYPE24753; t99548.s1.value.structure_type24753 = &t99549; /* x179947 stalin.sc:25683:888584 */ t99547.s0.tag = STRUCTURE_TYPE24753; t99547.s0.value.structure_type24753 = &t99548; /* x179948 stalin.sc:25683:888584 */ t99552.s0.tag = EXTERNAL_SYMBOL_TYPE; t99552.s0.value.external_symbol_type = q242; /* x179949 stalin.sc:25683:888584 */ t99553.s0.tag = EXTERNAL_SYMBOL_TYPE; t99553.s0.value.external_symbol_type = q287; /* x179950 stalin.sc:25683:888584 */ t99556.s0.tag = EXTERNAL_SYMBOL_TYPE; t99556.s0.value.external_symbol_type = q318; /* x179951 stalin.sc:25683:888584 */ t99557.s0.tag = EXTERNAL_SYMBOL_TYPE; t99557.s0.value.external_symbol_type = q318; /* x179952 stalin.sc:25683:888584 */ t99557.s1.tag = NULL_TYPE; /* x179953 stalin.sc:25683:888584 */ t99556.s1.tag = STRUCTURE_TYPE24753; t99556.s1.value.structure_type24753 = &t99557; /* x179954 stalin.sc:25683:888584 */ t99555.s0.tag = STRUCTURE_TYPE24753; t99555.s0.value.structure_type24753 = &t99556; /* x179955 stalin.sc:25683:888584 */ t99555.s1.tag = NULL_TYPE; /* x179956 stalin.sc:25683:888584 */ t99554.s0.tag = STRUCTURE_TYPE24753; t99554.s0.value.structure_type24753 = &t99555; /* x179957 stalin.sc:25683:888584 */ t99559.s0.tag = EXTERNAL_SYMBOL_TYPE; t99559.s0.value.external_symbol_type = q240; /* x179958 stalin.sc:25683:888584 */ t99562.s0.tag = EXTERNAL_SYMBOL_TYPE; t99562.s0.value.external_symbol_type = q111; /* x179959 stalin.sc:25683:888584 */ t99564.s0.tag = EXTERNAL_SYMBOL_TYPE; t99564.s0.value.external_symbol_type = q108; /* x179960 stalin.sc:25683:888584 */ t99565.s0.tag = EXTERNAL_SYMBOL_TYPE; t99565.s0.value.external_symbol_type = q318; /* x179961 stalin.sc:25683:888584 */ t99565.s1.tag = NULL_TYPE; /* x179962 stalin.sc:25683:888584 */ t99564.s1.tag = STRUCTURE_TYPE24753; t99564.s1.value.structure_type24753 = &t99565; /* x179963 stalin.sc:25683:888584 */ t99563.s0.tag = STRUCTURE_TYPE24753; t99563.s0.value.structure_type24753 = &t99564; /* x179964 stalin.sc:25683:888584 */ t99563.s1.tag = NULL_TYPE; /* x179965 stalin.sc:25683:888584 */ t99562.s1.tag = STRUCTURE_TYPE24753; t99562.s1.value.structure_type24753 = &t99563; /* x179966 stalin.sc:25683:888584 */ t99561.s0.tag = STRUCTURE_TYPE24753; t99561.s0.value.structure_type24753 = &t99562; /* x179967 stalin.sc:25683:888584 */ t99567.s0.tag = EXTERNAL_SYMBOL_TYPE; t99567.s0.value.external_symbol_type = q319; /* x179968 stalin.sc:25683:888584 */ t99569.s0.tag = EXTERNAL_SYMBOL_TYPE; t99569.s0.value.external_symbol_type = q107; /* x179969 stalin.sc:25683:888584 */ t99570.s0.tag = EXTERNAL_SYMBOL_TYPE; t99570.s0.value.external_symbol_type = q318; /* x179970 stalin.sc:25683:888584 */ t99570.s1.tag = NULL_TYPE; /* x179971 stalin.sc:25683:888584 */ t99569.s1.tag = STRUCTURE_TYPE24753; t99569.s1.value.structure_type24753 = &t99570; /* x179972 stalin.sc:25683:888584 */ t99568.s0.tag = STRUCTURE_TYPE24753; t99568.s0.value.structure_type24753 = &t99569; /* x179973 stalin.sc:25683:888584 */ t99571.s0.tag = EXTERNAL_SYMBOL_TYPE; t99571.s0.value.external_symbol_type = q254; /* x179974 stalin.sc:25683:888584 */ t99571.s1.tag = NULL_TYPE; /* x179975 stalin.sc:25683:888584 */ t99568.s1.tag = STRUCTURE_TYPE24753; t99568.s1.value.structure_type24753 = &t99571; /* x179976 stalin.sc:25683:888584 */ t99567.s1.tag = STRUCTURE_TYPE24753; t99567.s1.value.structure_type24753 = &t99568; /* x179977 stalin.sc:25683:888584 */ t99566.s0.tag = STRUCTURE_TYPE24753; t99566.s0.value.structure_type24753 = &t99567; /* x179978 stalin.sc:25683:888584 */ t99573.s0.tag = EXTERNAL_SYMBOL_TYPE; t99573.s0.value.external_symbol_type = q234; /* x179979 stalin.sc:25683:888584 */ t99574.s0.tag = ((unsigned)((unsigned char)')'))<<2; /* x179980 stalin.sc:25683:888584 */ t99575.s0.tag = EXTERNAL_SYMBOL_TYPE; t99575.s0.value.external_symbol_type = q254; /* x179981 stalin.sc:25683:888584 */ t99575.s1.tag = NULL_TYPE; /* x179982 stalin.sc:25683:888584 */ t99574.s1.tag = STRUCTURE_TYPE24753; t99574.s1.value.structure_type24753 = &t99575; /* x179983 stalin.sc:25683:888584 */ t99573.s1.tag = STRUCTURE_TYPE24753; t99573.s1.value.structure_type24753 = &t99574; /* x179984 stalin.sc:25683:888584 */ t99572.s0.tag = STRUCTURE_TYPE24753; t99572.s0.value.structure_type24753 = &t99573; /* x179985 stalin.sc:25683:888584 */ t99572.s1.tag = NULL_TYPE; /* x179986 stalin.sc:25683:888584 */ t99566.s1.tag = STRUCTURE_TYPE24753; t99566.s1.value.structure_type24753 = &t99572; /* x179987 stalin.sc:25683:888584 */ t99561.s1.tag = STRUCTURE_TYPE24753; t99561.s1.value.structure_type24753 = &t99566; /* x179988 stalin.sc:25683:888584 */ t99560.s0.tag = STRUCTURE_TYPE24753; t99560.s0.value.structure_type24753 = &t99561; /* x179989 stalin.sc:25683:888584 */ t99578.s0.tag = EXTERNAL_SYMBOL_TYPE; t99578.s0.value.external_symbol_type = q105; /* x179990 stalin.sc:25683:888584 */ t99580.s0.tag = EXTERNAL_SYMBOL_TYPE; t99580.s0.value.external_symbol_type = q108; /* x179991 stalin.sc:25683:888584 */ t99581.s0.tag = EXTERNAL_SYMBOL_TYPE; t99581.s0.value.external_symbol_type = q318; /* x179992 stalin.sc:25683:888584 */ t99581.s1.tag = NULL_TYPE; /* x179993 stalin.sc:25683:888584 */ t99580.s1.tag = STRUCTURE_TYPE24753; t99580.s1.value.structure_type24753 = &t99581; /* x179994 stalin.sc:25683:888584 */ t99579.s0.tag = STRUCTURE_TYPE24753; t99579.s0.value.structure_type24753 = &t99580; /* x179995 stalin.sc:25683:888584 */ t99579.s1.tag = NULL_TYPE; /* x179996 stalin.sc:25683:888584 */ t99578.s1.tag = STRUCTURE_TYPE24753; t99578.s1.value.structure_type24753 = &t99579; /* x179997 stalin.sc:25683:888584 */ t99577.s0.tag = STRUCTURE_TYPE24753; t99577.s0.value.structure_type24753 = &t99578; /* x179998 stalin.sc:25683:888584 */ t99583.s0.tag = EXTERNAL_SYMBOL_TYPE; t99583.s0.value.external_symbol_type = q319; /* x179999 stalin.sc:25683:888584 */ t99585.s0.tag = EXTERNAL_SYMBOL_TYPE; t99585.s0.value.external_symbol_type = q107; /* x180000 stalin.sc:25683:888584 */ t99586.s0.tag = EXTERNAL_SYMBOL_TYPE; t99586.s0.value.external_symbol_type = q318; /* x180001 stalin.sc:25683:888584 */ t99586.s1.tag = NULL_TYPE; /* x180002 stalin.sc:25683:888584 */ t99585.s1.tag = STRUCTURE_TYPE24753; t99585.s1.value.structure_type24753 = &t99586; /* x180003 stalin.sc:25683:888584 */ t99584.s0.tag = STRUCTURE_TYPE24753; t99584.s0.value.structure_type24753 = &t99585; /* x180004 stalin.sc:25683:888584 */ t99587.s0.tag = EXTERNAL_SYMBOL_TYPE; t99587.s0.value.external_symbol_type = q254; /* x180005 stalin.sc:25683:888584 */ t99587.s1.tag = NULL_TYPE; /* x180006 stalin.sc:25683:888584 */ t99584.s1.tag = STRUCTURE_TYPE24753; t99584.s1.value.structure_type24753 = &t99587; /* x180007 stalin.sc:25683:888584 */ t99583.s1.tag = STRUCTURE_TYPE24753; t99583.s1.value.structure_type24753 = &t99584; /* x180008 stalin.sc:25683:888584 */ t99582.s0.tag = STRUCTURE_TYPE24753; t99582.s0.value.structure_type24753 = &t99583; /* x180009 stalin.sc:25683:888584 */ t99589.s0.tag = EXTERNAL_SYMBOL_TYPE; t99589.s0.value.external_symbol_type = q234; /* x180010 stalin.sc:25683:888584 */ t99590.s0.tag = ((unsigned)((unsigned char)' '))<<2; /* x180011 stalin.sc:25683:888584 */ t99591.s0.tag = EXTERNAL_SYMBOL_TYPE; t99591.s0.value.external_symbol_type = q254; /* x180012 stalin.sc:25683:888584 */ t99591.s1.tag = NULL_TYPE; /* x180013 stalin.sc:25683:888584 */ t99590.s1.tag = STRUCTURE_TYPE24753; t99590.s1.value.structure_type24753 = &t99591; /* x180014 stalin.sc:25683:888584 */ t99589.s1.tag = STRUCTURE_TYPE24753; t99589.s1.value.structure_type24753 = &t99590; /* x180015 stalin.sc:25683:888584 */ t99588.s0.tag = STRUCTURE_TYPE24753; t99588.s0.value.structure_type24753 = &t99589; /* x180016 stalin.sc:25683:888584 */ t99593.s0.tag = EXTERNAL_SYMBOL_TYPE; t99593.s0.value.external_symbol_type = q287; /* x180017 stalin.sc:25683:888584 */ t99595.s0.tag = EXTERNAL_SYMBOL_TYPE; t99595.s0.value.external_symbol_type = q108; /* x180018 stalin.sc:25683:888584 */ t99596.s0.tag = EXTERNAL_SYMBOL_TYPE; t99596.s0.value.external_symbol_type = q318; /* x180019 stalin.sc:25683:888584 */ t99596.s1.tag = NULL_TYPE; /* x180020 stalin.sc:25683:888584 */ t99595.s1.tag = STRUCTURE_TYPE24753; t99595.s1.value.structure_type24753 = &t99596; /* x180021 stalin.sc:25683:888584 */ t99594.s0.tag = STRUCTURE_TYPE24753; t99594.s0.value.structure_type24753 = &t99595; /* x180022 stalin.sc:25683:888584 */ t99594.s1.tag = NULL_TYPE; /* x180023 stalin.sc:25683:888584 */ t99593.s1.tag = STRUCTURE_TYPE24753; t99593.s1.value.structure_type24753 = &t99594; /* x180024 stalin.sc:25683:888584 */ t99592.s0.tag = STRUCTURE_TYPE24753; t99592.s0.value.structure_type24753 = &t99593; /* x180025 stalin.sc:25683:888584 */ t99592.s1.tag = NULL_TYPE; /* x180026 stalin.sc:25683:888584 */ t99588.s1.tag = STRUCTURE_TYPE24753; t99588.s1.value.structure_type24753 = &t99592; /* x180027 stalin.sc:25683:888584 */ t99582.s1.tag = STRUCTURE_TYPE24753; t99582.s1.value.structure_type24753 = &t99588; /* x180028 stalin.sc:25683:888584 */ t99577.s1.tag = STRUCTURE_TYPE24753; t99577.s1.value.structure_type24753 = &t99582; /* x180029 stalin.sc:25683:888584 */ t99576.s0.tag = STRUCTURE_TYPE24753; t99576.s0.value.structure_type24753 = &t99577; /* x180030 stalin.sc:25683:888584 */ t99598.s0.tag = EXTERNAL_SYMBOL_TYPE; t99598.s0.value.external_symbol_type = q95; /* x180031 stalin.sc:25683:888584 */ t99600.s0.tag = EXTERNAL_SYMBOL_TYPE; t99600.s0.value.external_symbol_type = q319; /* x180032 stalin.sc:25683:888584 */ t99602.s0.tag = EXTERNAL_SYMBOL_TYPE; t99602.s0.value.external_symbol_type = q107; /* x180033 stalin.sc:25683:888584 */ t99603.s0.tag = EXTERNAL_SYMBOL_TYPE; t99603.s0.value.external_symbol_type = q318; /* x180034 stalin.sc:25683:888584 */ t99603.s1.tag = NULL_TYPE; /* x180035 stalin.sc:25683:888584 */ t99602.s1.tag = STRUCTURE_TYPE24753; t99602.s1.value.structure_type24753 = &t99603; /* x180036 stalin.sc:25683:888584 */ t99601.s0.tag = STRUCTURE_TYPE24753; t99601.s0.value.structure_type24753 = &t99602; /* x180037 stalin.sc:25683:888584 */ t99604.s0.tag = EXTERNAL_SYMBOL_TYPE; t99604.s0.value.external_symbol_type = q254; /* x180038 stalin.sc:25683:888584 */ t99604.s1.tag = NULL_TYPE; /* x180039 stalin.sc:25683:888584 */ t99601.s1.tag = STRUCTURE_TYPE24753; t99601.s1.value.structure_type24753 = &t99604; /* x180040 stalin.sc:25683:888584 */ t99600.s1.tag = STRUCTURE_TYPE24753; t99600.s1.value.structure_type24753 = &t99601; /* x180041 stalin.sc:25683:888584 */ t99599.s0.tag = STRUCTURE_TYPE24753; t99599.s0.value.structure_type24753 = &t99600; /* x180042 stalin.sc:25683:888584 */ t99606.s0.tag = EXTERNAL_SYMBOL_TYPE; t99606.s0.value.external_symbol_type = q307; /* x180043 stalin.sc:25683:888584 */ t99607.s0.tag = STRING_TYPE; t99607.s0.value.string_type = " . "; /* x180044 stalin.sc:25683:888584 */ t99608.s0.tag = EXTERNAL_SYMBOL_TYPE; t99608.s0.value.external_symbol_type = q254; /* x180045 stalin.sc:25683:888584 */ t99608.s1.tag = NULL_TYPE; /* x180046 stalin.sc:25683:888584 */ t99607.s1.tag = STRUCTURE_TYPE24753; t99607.s1.value.structure_type24753 = &t99608; /* x180047 stalin.sc:25683:888584 */ t99606.s1.tag = STRUCTURE_TYPE24753; t99606.s1.value.structure_type24753 = &t99607; /* x180048 stalin.sc:25683:888584 */ t99605.s0.tag = STRUCTURE_TYPE24753; t99605.s0.value.structure_type24753 = &t99606; /* x180049 stalin.sc:25683:888584 */ t99610.s0.tag = EXTERNAL_SYMBOL_TYPE; t99610.s0.value.external_symbol_type = q319; /* x180050 stalin.sc:25683:888584 */ t99612.s0.tag = EXTERNAL_SYMBOL_TYPE; t99612.s0.value.external_symbol_type = q108; /* x180051 stalin.sc:25683:888584 */ t99613.s0.tag = EXTERNAL_SYMBOL_TYPE; t99613.s0.value.external_symbol_type = q318; /* x180052 stalin.sc:25683:888584 */ t99613.s1.tag = NULL_TYPE; /* x180053 stalin.sc:25683:888584 */ t99612.s1.tag = STRUCTURE_TYPE24753; t99612.s1.value.structure_type24753 = &t99613; /* x180054 stalin.sc:25683:888584 */ t99611.s0.tag = STRUCTURE_TYPE24753; t99611.s0.value.structure_type24753 = &t99612; /* x180055 stalin.sc:25683:888584 */ t99614.s0.tag = EXTERNAL_SYMBOL_TYPE; t99614.s0.value.external_symbol_type = q254; /* x180056 stalin.sc:25683:888584 */ t99614.s1.tag = NULL_TYPE; /* x180057 stalin.sc:25683:888584 */ t99611.s1.tag = STRUCTURE_TYPE24753; t99611.s1.value.structure_type24753 = &t99614; /* x180058 stalin.sc:25683:888584 */ t99610.s1.tag = STRUCTURE_TYPE24753; t99610.s1.value.structure_type24753 = &t99611; /* x180059 stalin.sc:25683:888584 */ t99609.s0.tag = STRUCTURE_TYPE24753; t99609.s0.value.structure_type24753 = &t99610; /* x180060 stalin.sc:25683:888584 */ t99616.s0.tag = EXTERNAL_SYMBOL_TYPE; t99616.s0.value.external_symbol_type = q234; /* x180061 stalin.sc:25683:888584 */ t99617.s0.tag = ((unsigned)((unsigned char)')'))<<2; /* x180062 stalin.sc:25683:888584 */ t99618.s0.tag = EXTERNAL_SYMBOL_TYPE; t99618.s0.value.external_symbol_type = q254; /* x180063 stalin.sc:25683:888584 */ t99618.s1.tag = NULL_TYPE; /* x180064 stalin.sc:25683:888584 */ t99617.s1.tag = STRUCTURE_TYPE24753; t99617.s1.value.structure_type24753 = &t99618; /* x180065 stalin.sc:25683:888584 */ t99616.s1.tag = STRUCTURE_TYPE24753; t99616.s1.value.structure_type24753 = &t99617; /* x180066 stalin.sc:25683:888584 */ t99615.s0.tag = STRUCTURE_TYPE24753; t99615.s0.value.structure_type24753 = &t99616; /* x180067 stalin.sc:25683:888584 */ t99615.s1.tag = NULL_TYPE; /* x180068 stalin.sc:25683:888584 */ t99609.s1.tag = STRUCTURE_TYPE24753; t99609.s1.value.structure_type24753 = &t99615; /* x180069 stalin.sc:25683:888584 */ t99605.s1.tag = STRUCTURE_TYPE24753; t99605.s1.value.structure_type24753 = &t99609; /* x180070 stalin.sc:25683:888584 */ t99599.s1.tag = STRUCTURE_TYPE24753; t99599.s1.value.structure_type24753 = &t99605; /* x180071 stalin.sc:25683:888584 */ t99598.s1.tag = STRUCTURE_TYPE24753; t99598.s1.value.structure_type24753 = &t99599; /* x180072 stalin.sc:25683:888584 */ t99597.s0.tag = STRUCTURE_TYPE24753; t99597.s0.value.structure_type24753 = &t99598; /* x180073 stalin.sc:25683:888584 */ t99597.s1.tag = NULL_TYPE; /* x180074 stalin.sc:25683:888584 */ t99576.s1.tag = STRUCTURE_TYPE24753; t99576.s1.value.structure_type24753 = &t99597; /* x180075 stalin.sc:25683:888584 */ t99560.s1.tag = STRUCTURE_TYPE24753; t99560.s1.value.structure_type24753 = &t99576; /* x180076 stalin.sc:25683:888584 */ t99559.s1.tag = STRUCTURE_TYPE24753; t99559.s1.value.structure_type24753 = &t99560; /* x180077 stalin.sc:25683:888584 */ t99558.s0.tag = STRUCTURE_TYPE24753; t99558.s0.value.structure_type24753 = &t99559; /* x180078 stalin.sc:25683:888584 */ t99558.s1.tag = NULL_TYPE; /* x180079 stalin.sc:25683:888584 */ t99554.s1.tag = STRUCTURE_TYPE24753; t99554.s1.value.structure_type24753 = &t99558; /* x180080 stalin.sc:25683:888584 */ t99553.s1.tag = STRUCTURE_TYPE24753; t99553.s1.value.structure_type24753 = &t99554; /* x180081 stalin.sc:25683:888584 */ t99552.s1.tag = STRUCTURE_TYPE24753; t99552.s1.value.structure_type24753 = &t99553; /* x180082 stalin.sc:25683:888584 */ t99551.s0.tag = STRUCTURE_TYPE24753; t99551.s0.value.structure_type24753 = &t99552; /* x180083 stalin.sc:25683:888584 */ t99551.s1.tag = NULL_TYPE; /* x180084 stalin.sc:25683:888584 */ t99547.s1.tag = STRUCTURE_TYPE24753; t99547.s1.value.structure_type24753 = &t99551; /* x180085 stalin.sc:25683:888584 */ t99544.s1.tag = STRUCTURE_TYPE24753; t99544.s1.value.structure_type24753 = &t99547; /* x180086 stalin.sc:25683:888584 */ t99543.s0.tag = STRUCTURE_TYPE24753; t99543.s0.value.structure_type24753 = &t99544; /* x180087 stalin.sc:25683:888584 */ t99621.s0.tag = EXTERNAL_SYMBOL_TYPE; t99621.s0.value.external_symbol_type = q165; /* x180088 stalin.sc:25683:888584 */ t99622.s0.tag = EXTERNAL_SYMBOL_TYPE; t99622.s0.value.external_symbol_type = q318; /* x180089 stalin.sc:25683:888584 */ t99622.s1.tag = NULL_TYPE; /* x180090 stalin.sc:25683:888584 */ t99621.s1.tag = STRUCTURE_TYPE24753; t99621.s1.value.structure_type24753 = &t99622; /* x180091 stalin.sc:25683:888584 */ t99620.s0.tag = STRUCTURE_TYPE24753; t99620.s0.value.structure_type24753 = &t99621; /* x180092 stalin.sc:25683:888584 */ t99624.s0.tag = EXTERNAL_SYMBOL_TYPE; t99624.s0.value.external_symbol_type = q307; /* x180093 stalin.sc:25683:888584 */ t99625.s0.tag = STRING_TYPE; t99625.s0.value.string_type = "#("; /* x180094 stalin.sc:25683:888584 */ t99626.s0.tag = EXTERNAL_SYMBOL_TYPE; t99626.s0.value.external_symbol_type = q254; /* x180095 stalin.sc:25683:888584 */ t99626.s1.tag = NULL_TYPE; /* x180096 stalin.sc:25683:888584 */ t99625.s1.tag = STRUCTURE_TYPE24753; t99625.s1.value.structure_type24753 = &t99626; /* x180097 stalin.sc:25683:888584 */ t99624.s1.tag = STRUCTURE_TYPE24753; t99624.s1.value.structure_type24753 = &t99625; /* x180098 stalin.sc:25683:888584 */ t99623.s0.tag = STRUCTURE_TYPE24753; t99623.s0.value.structure_type24753 = &t99624; /* x180099 stalin.sc:25683:888584 */ t99628.s0.tag = EXTERNAL_SYMBOL_TYPE; t99628.s0.value.external_symbol_type = q43; /* x180100 stalin.sc:25683:888584 */ t99630.s0.tag = EXTERNAL_SYMBOL_TYPE; t99630.s0.value.external_symbol_type = q102; /* x180101 stalin.sc:25683:888584 */ t99632.s0.tag = EXTERNAL_SYMBOL_TYPE; t99632.s0.value.external_symbol_type = q125; /* x180102 stalin.sc:25683:888584 */ t99634.s0.tag = EXTERNAL_SYMBOL_TYPE; t99634.s0.value.external_symbol_type = q168; /* x180103 stalin.sc:25683:888584 */ t99635.s0.tag = EXTERNAL_SYMBOL_TYPE; t99635.s0.value.external_symbol_type = q318; /* x180104 stalin.sc:25683:888584 */ t99635.s1.tag = NULL_TYPE; /* x180105 stalin.sc:25683:888584 */ t99634.s1.tag = STRUCTURE_TYPE24753; t99634.s1.value.structure_type24753 = &t99635; /* x180106 stalin.sc:25683:888584 */ t99633.s0.tag = STRUCTURE_TYPE24753; t99633.s0.value.structure_type24753 = &t99634; /* x180107 stalin.sc:25683:888584 */ t99633.s1.tag = NULL_TYPE; /* x180108 stalin.sc:25683:888584 */ t99632.s1.tag = STRUCTURE_TYPE24753; t99632.s1.value.structure_type24753 = &t99633; /* x180109 stalin.sc:25683:888584 */ t99631.s0.tag = STRUCTURE_TYPE24753; t99631.s0.value.structure_type24753 = &t99632; /* x180110 stalin.sc:25683:888584 */ t99631.s1.tag = NULL_TYPE; /* x180111 stalin.sc:25683:888584 */ t99630.s1.tag = STRUCTURE_TYPE24753; t99630.s1.value.structure_type24753 = &t99631; /* x180112 stalin.sc:25683:888584 */ t99629.s0.tag = STRUCTURE_TYPE24753; t99629.s0.value.structure_type24753 = &t99630; /* x180113 stalin.sc:25683:888584 */ t99637.s0.tag = EXTERNAL_SYMBOL_TYPE; t99637.s0.value.external_symbol_type = q239; /* x180114 stalin.sc:25683:888584 */ t99639.s0.tag = EXTERNAL_SYMBOL_TYPE; t99639.s0.value.external_symbol_type = q319; /* x180115 stalin.sc:25683:888584 */ t99641.s0.tag = EXTERNAL_SYMBOL_TYPE; t99641.s0.value.external_symbol_type = q169; /* x180116 stalin.sc:25683:888584 */ t99642.s0.tag = EXTERNAL_SYMBOL_TYPE; t99642.s0.value.external_symbol_type = q318; /* x180117 stalin.sc:25683:888584 */ t99643.s0.tag = FIXNUM_TYPE; t99643.s0.value.fixnum_type = 0; /* x180118 stalin.sc:25683:888584 */ t99643.s1.tag = NULL_TYPE; /* x180119 stalin.sc:25683:888584 */ t99642.s1.tag = STRUCTURE_TYPE24753; t99642.s1.value.structure_type24753 = &t99643; /* x180120 stalin.sc:25683:888584 */ t99641.s1.tag = STRUCTURE_TYPE24753; t99641.s1.value.structure_type24753 = &t99642; /* x180121 stalin.sc:25683:888584 */ t99640.s0.tag = STRUCTURE_TYPE24753; t99640.s0.value.structure_type24753 = &t99641; /* x180122 stalin.sc:25683:888584 */ t99644.s0.tag = EXTERNAL_SYMBOL_TYPE; t99644.s0.value.external_symbol_type = q254; /* x180123 stalin.sc:25683:888584 */ t99644.s1.tag = NULL_TYPE; /* x180124 stalin.sc:25683:888584 */ t99640.s1.tag = STRUCTURE_TYPE24753; t99640.s1.value.structure_type24753 = &t99644; /* x180125 stalin.sc:25683:888584 */ t99639.s1.tag = STRUCTURE_TYPE24753; t99639.s1.value.structure_type24753 = &t99640; /* x180126 stalin.sc:25683:888584 */ t99638.s0.tag = STRUCTURE_TYPE24753; t99638.s0.value.structure_type24753 = &t99639; /* x180127 stalin.sc:25683:888584 */ t99646.s0.tag = EXTERNAL_SYMBOL_TYPE; t99646.s0.value.external_symbol_type = q242; /* x180128 stalin.sc:25683:888584 */ t99647.s0.tag = EXTERNAL_SYMBOL_TYPE; t99647.s0.value.external_symbol_type = q287; /* x180129 stalin.sc:25683:888584 */ t99650.s0.tag = EXTERNAL_SYMBOL_TYPE; t99650.s0.value.external_symbol_type = q308; /* x180130 stalin.sc:25683:888584 */ t99651.s0.tag = FIXNUM_TYPE; t99651.s0.value.fixnum_type = 1; /* x180131 stalin.sc:25683:888584 */ t99651.s1.tag = NULL_TYPE; /* x180132 stalin.sc:25683:888584 */ t99650.s1.tag = STRUCTURE_TYPE24753; t99650.s1.value.structure_type24753 = &t99651; /* x180133 stalin.sc:25683:888584 */ t99649.s0.tag = STRUCTURE_TYPE24753; t99649.s0.value.structure_type24753 = &t99650; /* x180134 stalin.sc:25683:888584 */ t99649.s1.tag = NULL_TYPE; /* x180135 stalin.sc:25683:888584 */ t99648.s0.tag = STRUCTURE_TYPE24753; t99648.s0.value.structure_type24753 = &t99649; /* x180136 stalin.sc:25683:888584 */ t99653.s0.tag = EXTERNAL_SYMBOL_TYPE; t99653.s0.value.external_symbol_type = q43; /* x180137 stalin.sc:25683:888584 */ t99655.s0.tag = EXTERNAL_SYMBOL_TYPE; t99655.s0.value.external_symbol_type = q121; /* x180138 stalin.sc:25683:888584 */ t99656.s0.tag = EXTERNAL_SYMBOL_TYPE; t99656.s0.value.external_symbol_type = q308; /* x180139 stalin.sc:25683:888584 */ t99658.s0.tag = EXTERNAL_SYMBOL_TYPE; t99658.s0.value.external_symbol_type = q168; /* x180140 stalin.sc:25683:888584 */ t99659.s0.tag = EXTERNAL_SYMBOL_TYPE; t99659.s0.value.external_symbol_type = q318; /* x180141 stalin.sc:25683:888584 */ t99659.s1.tag = NULL_TYPE; /* x180142 stalin.sc:25683:888584 */ t99658.s1.tag = STRUCTURE_TYPE24753; t99658.s1.value.structure_type24753 = &t99659; /* x180143 stalin.sc:25683:888584 */ t99657.s0.tag = STRUCTURE_TYPE24753; t99657.s0.value.structure_type24753 = &t99658; /* x180144 stalin.sc:25683:888584 */ t99657.s1.tag = NULL_TYPE; /* x180145 stalin.sc:25683:888584 */ t99656.s1.tag = STRUCTURE_TYPE24753; t99656.s1.value.structure_type24753 = &t99657; /* x180146 stalin.sc:25683:888584 */ t99655.s1.tag = STRUCTURE_TYPE24753; t99655.s1.value.structure_type24753 = &t99656; /* x180147 stalin.sc:25683:888584 */ t99654.s0.tag = STRUCTURE_TYPE24753; t99654.s0.value.structure_type24753 = &t99655; /* x180148 stalin.sc:25683:888584 */ t99661.s0.tag = EXTERNAL_SYMBOL_TYPE; t99661.s0.value.external_symbol_type = q239; /* x180149 stalin.sc:25683:888584 */ t99663.s0.tag = EXTERNAL_SYMBOL_TYPE; t99663.s0.value.external_symbol_type = q234; /* x180150 stalin.sc:25683:888584 */ t99664.s0.tag = ((unsigned)((unsigned char)' '))<<2; /* x180151 stalin.sc:25683:888584 */ t99665.s0.tag = EXTERNAL_SYMBOL_TYPE; t99665.s0.value.external_symbol_type = q254; /* x180152 stalin.sc:25683:888584 */ t99665.s1.tag = NULL_TYPE; /* x180153 stalin.sc:25683:888584 */ t99664.s1.tag = STRUCTURE_TYPE24753; t99664.s1.value.structure_type24753 = &t99665; /* x180154 stalin.sc:25683:888584 */ t99663.s1.tag = STRUCTURE_TYPE24753; t99663.s1.value.structure_type24753 = &t99664; /* x180155 stalin.sc:25683:888584 */ t99662.s0.tag = STRUCTURE_TYPE24753; t99662.s0.value.structure_type24753 = &t99663; /* x180156 stalin.sc:25683:888584 */ t99667.s0.tag = EXTERNAL_SYMBOL_TYPE; t99667.s0.value.external_symbol_type = q319; /* x180157 stalin.sc:25683:888584 */ t99669.s0.tag = EXTERNAL_SYMBOL_TYPE; t99669.s0.value.external_symbol_type = q169; /* x180158 stalin.sc:25683:888584 */ t99670.s0.tag = EXTERNAL_SYMBOL_TYPE; t99670.s0.value.external_symbol_type = q318; /* x180159 stalin.sc:25683:888584 */ t99671.s0.tag = EXTERNAL_SYMBOL_TYPE; t99671.s0.value.external_symbol_type = q308; /* x180160 stalin.sc:25683:888584 */ t99671.s1.tag = NULL_TYPE; /* x180161 stalin.sc:25683:888584 */ t99670.s1.tag = STRUCTURE_TYPE24753; t99670.s1.value.structure_type24753 = &t99671; /* x180162 stalin.sc:25683:888584 */ t99669.s1.tag = STRUCTURE_TYPE24753; t99669.s1.value.structure_type24753 = &t99670; /* x180163 stalin.sc:25683:888584 */ t99668.s0.tag = STRUCTURE_TYPE24753; t99668.s0.value.structure_type24753 = &t99669; /* x180164 stalin.sc:25683:888584 */ t99672.s0.tag = EXTERNAL_SYMBOL_TYPE; t99672.s0.value.external_symbol_type = q254; /* x180165 stalin.sc:25683:888584 */ t99672.s1.tag = NULL_TYPE; /* x180166 stalin.sc:25683:888584 */ t99668.s1.tag = STRUCTURE_TYPE24753; t99668.s1.value.structure_type24753 = &t99672; /* x180167 stalin.sc:25683:888584 */ t99667.s1.tag = STRUCTURE_TYPE24753; t99667.s1.value.structure_type24753 = &t99668; /* x180168 stalin.sc:25683:888584 */ t99666.s0.tag = STRUCTURE_TYPE24753; t99666.s0.value.structure_type24753 = &t99667; /* x180169 stalin.sc:25683:888584 */ t99674.s0.tag = EXTERNAL_SYMBOL_TYPE; t99674.s0.value.external_symbol_type = q287; /* x180170 stalin.sc:25683:888584 */ t99676.s0.tag = EXTERNAL_SYMBOL_TYPE; t99676.s0.value.external_symbol_type = q4; /* x180171 stalin.sc:25683:888584 */ t99677.s0.tag = EXTERNAL_SYMBOL_TYPE; t99677.s0.value.external_symbol_type = q308; /* x180172 stalin.sc:25683:888584 */ t99678.s0.tag = FIXNUM_TYPE; t99678.s0.value.fixnum_type = 1; /* x180173 stalin.sc:25683:888584 */ t99678.s1.tag = NULL_TYPE; /* x180174 stalin.sc:25683:888584 */ t99677.s1.tag = STRUCTURE_TYPE24753; t99677.s1.value.structure_type24753 = &t99678; /* x180175 stalin.sc:25683:888584 */ t99676.s1.tag = STRUCTURE_TYPE24753; t99676.s1.value.structure_type24753 = &t99677; /* x180176 stalin.sc:25683:888584 */ t99675.s0.tag = STRUCTURE_TYPE24753; t99675.s0.value.structure_type24753 = &t99676; /* x180177 stalin.sc:25683:888584 */ t99675.s1.tag = NULL_TYPE; /* x180178 stalin.sc:25683:888584 */ t99674.s1.tag = STRUCTURE_TYPE24753; t99674.s1.value.structure_type24753 = &t99675; /* x180179 stalin.sc:25683:888584 */ t99673.s0.tag = STRUCTURE_TYPE24753; t99673.s0.value.structure_type24753 = &t99674; /* x180180 stalin.sc:25683:888584 */ t99673.s1.tag = NULL_TYPE; /* x180181 stalin.sc:25683:888584 */ t99666.s1.tag = STRUCTURE_TYPE24753; t99666.s1.value.structure_type24753 = &t99673; /* x180182 stalin.sc:25683:888584 */ t99662.s1.tag = STRUCTURE_TYPE24753; t99662.s1.value.structure_type24753 = &t99666; /* x180183 stalin.sc:25683:888584 */ t99661.s1.tag = STRUCTURE_TYPE24753; t99661.s1.value.structure_type24753 = &t99662; /* x180184 stalin.sc:25683:888584 */ t99660.s0.tag = STRUCTURE_TYPE24753; t99660.s0.value.structure_type24753 = &t99661; /* x180185 stalin.sc:25683:888584 */ t99660.s1.tag = NULL_TYPE; /* x180186 stalin.sc:25683:888584 */ t99654.s1.tag = STRUCTURE_TYPE24753; t99654.s1.value.structure_type24753 = &t99660; /* x180187 stalin.sc:25683:888584 */ t99653.s1.tag = STRUCTURE_TYPE24753; t99653.s1.value.structure_type24753 = &t99654; /* x180188 stalin.sc:25683:888584 */ t99652.s0.tag = STRUCTURE_TYPE24753; t99652.s0.value.structure_type24753 = &t99653; /* x180189 stalin.sc:25683:888584 */ t99652.s1.tag = NULL_TYPE; /* x180190 stalin.sc:25683:888584 */ t99648.s1.tag = STRUCTURE_TYPE24753; t99648.s1.value.structure_type24753 = &t99652; /* x180191 stalin.sc:25683:888584 */ t99647.s1.tag = STRUCTURE_TYPE24753; t99647.s1.value.structure_type24753 = &t99648; /* x180192 stalin.sc:25683:888584 */ t99646.s1.tag = STRUCTURE_TYPE24753; t99646.s1.value.structure_type24753 = &t99647; /* x180193 stalin.sc:25683:888584 */ t99645.s0.tag = STRUCTURE_TYPE24753; t99645.s0.value.structure_type24753 = &t99646; /* x180194 stalin.sc:25683:888584 */ t99645.s1.tag = NULL_TYPE; /* x180195 stalin.sc:25683:888584 */ t99638.s1.tag = STRUCTURE_TYPE24753; t99638.s1.value.structure_type24753 = &t99645; /* x180196 stalin.sc:25683:888584 */ t99637.s1.tag = STRUCTURE_TYPE24753; t99637.s1.value.structure_type24753 = &t99638; /* x180197 stalin.sc:25683:888584 */ t99636.s0.tag = STRUCTURE_TYPE24753; t99636.s0.value.structure_type24753 = &t99637; /* x180198 stalin.sc:25683:888584 */ t99636.s1.tag = NULL_TYPE; /* x180199 stalin.sc:25683:888584 */ t99629.s1.tag = STRUCTURE_TYPE24753; t99629.s1.value.structure_type24753 = &t99636; /* x180200 stalin.sc:25683:888584 */ t99628.s1.tag = STRUCTURE_TYPE24753; t99628.s1.value.structure_type24753 = &t99629; /* x180201 stalin.sc:25683:888584 */ t99627.s0.tag = STRUCTURE_TYPE24753; t99627.s0.value.structure_type24753 = &t99628; /* x180202 stalin.sc:25683:888584 */ t99680.s0.tag = EXTERNAL_SYMBOL_TYPE; t99680.s0.value.external_symbol_type = q234; /* x180203 stalin.sc:25683:888584 */ t99681.s0.tag = ((unsigned)((unsigned char)')'))<<2; /* x180204 stalin.sc:25683:888584 */ t99682.s0.tag = EXTERNAL_SYMBOL_TYPE; t99682.s0.value.external_symbol_type = q254; /* x180205 stalin.sc:25683:888584 */ t99682.s1.tag = NULL_TYPE; /* x180206 stalin.sc:25683:888584 */ t99681.s1.tag = STRUCTURE_TYPE24753; t99681.s1.value.structure_type24753 = &t99682; /* x180207 stalin.sc:25683:888584 */ t99680.s1.tag = STRUCTURE_TYPE24753; t99680.s1.value.structure_type24753 = &t99681; /* x180208 stalin.sc:25683:888584 */ t99679.s0.tag = STRUCTURE_TYPE24753; t99679.s0.value.structure_type24753 = &t99680; /* x180209 stalin.sc:25683:888584 */ t99679.s1.tag = NULL_TYPE; /* x180210 stalin.sc:25683:888584 */ t99627.s1.tag = STRUCTURE_TYPE24753; t99627.s1.value.structure_type24753 = &t99679; /* x180211 stalin.sc:25683:888584 */ t99623.s1.tag = STRUCTURE_TYPE24753; t99623.s1.value.structure_type24753 = &t99627; /* x180212 stalin.sc:25683:888584 */ t99620.s1.tag = STRUCTURE_TYPE24753; t99620.s1.value.structure_type24753 = &t99623; /* x180213 stalin.sc:25683:888584 */ t99619.s0.tag = STRUCTURE_TYPE24753; t99619.s0.value.structure_type24753 = &t99620; /* x180214 stalin.sc:25683:888584 */ t99684.s0.tag = EXTERNAL_SYMBOL_TYPE; t99684.s0.value.external_symbol_type = q95; /* x180215 stalin.sc:25683:888584 */ t99686.s0.tag = EXTERNAL_SYMBOL_TYPE; t99686.s0.value.external_symbol_type = q242; /* x180216 stalin.sc:25683:888584 */ t99687.s0.tag = EXTERNAL_SYMBOL_TYPE; t99687.s0.value.external_symbol_type = q287; /* x180217 stalin.sc:25683:888584 */ t99690.s0.tag = EXTERNAL_SYMBOL_TYPE; t99690.s0.value.external_symbol_type = q306; /* x180218 stalin.sc:25683:888584 */ t99691.s0.tag = EXTERNAL_SYMBOL_TYPE; t99691.s0.value.external_symbol_type = q306; /* x180219 stalin.sc:25683:888584 */ t99691.s1.tag = NULL_TYPE; /* x180220 stalin.sc:25683:888584 */ t99690.s1.tag = STRUCTURE_TYPE24753; t99690.s1.value.structure_type24753 = &t99691; /* x180221 stalin.sc:25683:888584 */ t99689.s0.tag = STRUCTURE_TYPE24753; t99689.s0.value.structure_type24753 = &t99690; /* x180222 stalin.sc:25683:888584 */ t99689.s1.tag = NULL_TYPE; /* x180223 stalin.sc:25683:888584 */ t99688.s0.tag = STRUCTURE_TYPE24753; t99688.s0.value.structure_type24753 = &t99689; /* x180224 stalin.sc:25683:888584 */ t99693.s0.tag = EXTERNAL_SYMBOL_TYPE; t99693.s0.value.external_symbol_type = q240; /* x180225 stalin.sc:25683:888584 */ t99696.s0.tag = EXTERNAL_SYMBOL_TYPE; t99696.s0.value.external_symbol_type = q111; /* x180226 stalin.sc:25683:888584 */ t99697.s0.tag = EXTERNAL_SYMBOL_TYPE; t99697.s0.value.external_symbol_type = q306; /* x180227 stalin.sc:25683:888584 */ t99697.s1.tag = NULL_TYPE; /* x180228 stalin.sc:25683:888584 */ t99696.s1.tag = STRUCTURE_TYPE24753; t99696.s1.value.structure_type24753 = &t99697; /* x180229 stalin.sc:25683:888584 */ t99695.s0.tag = STRUCTURE_TYPE24753; t99695.s0.value.structure_type24753 = &t99696; /* x180230 stalin.sc:25683:888584 */ t99699.s0.tag = EXTERNAL_SYMBOL_TYPE; t99699.s0.value.external_symbol_type = q307; /* x180231 stalin.sc:25683:888584 */ t99700.s0.tag = STRING_TYPE; t99700.s0.value.string_type = "#*UNKNOWN*"; /* x180232 stalin.sc:25683:888584 */ t99701.s0.tag = EXTERNAL_SYMBOL_TYPE; t99701.s0.value.external_symbol_type = q254; /* x180233 stalin.sc:25683:888584 */ t99701.s1.tag = NULL_TYPE; /* x180234 stalin.sc:25683:888584 */ t99700.s1.tag = STRUCTURE_TYPE24753; t99700.s1.value.structure_type24753 = &t99701; /* x180235 stalin.sc:25683:888584 */ t99699.s1.tag = STRUCTURE_TYPE24753; t99699.s1.value.structure_type24753 = &t99700; /* x180236 stalin.sc:25683:888584 */ t99698.s0.tag = STRUCTURE_TYPE24753; t99698.s0.value.structure_type24753 = &t99699; /* x180237 stalin.sc:25683:888584 */ t99698.s1.tag = NULL_TYPE; /* x180238 stalin.sc:25683:888584 */ t99695.s1.tag = STRUCTURE_TYPE24753; t99695.s1.value.structure_type24753 = &t99698; /* x180239 stalin.sc:25683:888584 */ t99694.s0.tag = STRUCTURE_TYPE24753; t99694.s0.value.structure_type24753 = &t99695; /* x180240 stalin.sc:25683:888584 */ t99705.s0.tag = EXTERNAL_SYMBOL_TYPE; t99705.s0.value.external_symbol_type = q107; /* x180241 stalin.sc:25683:888584 */ t99707.s0.tag = EXTERNAL_SYMBOL_TYPE; t99707.s0.value.external_symbol_type = q107; /* x180242 stalin.sc:25683:888584 */ t99708.s0.tag = EXTERNAL_SYMBOL_TYPE; t99708.s0.value.external_symbol_type = q306; /* x180243 stalin.sc:25683:888584 */ t99708.s1.tag = NULL_TYPE; /* x180244 stalin.sc:25683:888584 */ t99707.s1.tag = STRUCTURE_TYPE24753; t99707.s1.value.structure_type24753 = &t99708; /* x180245 stalin.sc:25683:888584 */ t99706.s0.tag = STRUCTURE_TYPE24753; t99706.s0.value.structure_type24753 = &t99707; /* x180246 stalin.sc:25683:888584 */ t99706.s1.tag = NULL_TYPE; /* x180247 stalin.sc:25683:888584 */ t99705.s1.tag = STRUCTURE_TYPE24753; t99705.s1.value.structure_type24753 = &t99706; /* x180248 stalin.sc:25683:888584 */ t99704.s0.tag = STRUCTURE_TYPE24753; t99704.s0.value.structure_type24753 = &t99705; /* x180249 stalin.sc:25683:888584 */ t99709.s0.tag = EXTERNAL_SYMBOL_TYPE; t99709.s0.value.external_symbol_type = q318; /* x180250 stalin.sc:25683:888584 */ t99709.s1.tag = NULL_TYPE; /* x180251 stalin.sc:25683:888584 */ t99704.s1.tag = STRUCTURE_TYPE24753; t99704.s1.value.structure_type24753 = &t99709; /* x180252 stalin.sc:25683:888584 */ t99703.s0.tag = STRUCTURE_TYPE24753; t99703.s0.value.structure_type24753 = &t99704; /* x180253 stalin.sc:25683:888584 */ t99712.s0.tag = EXTERNAL_SYMBOL_TYPE; t99712.s0.value.external_symbol_type = q108; /* x180254 stalin.sc:25683:888584 */ t99714.s0.tag = EXTERNAL_SYMBOL_TYPE; t99714.s0.value.external_symbol_type = q107; /* x180255 stalin.sc:25683:888584 */ t99715.s0.tag = EXTERNAL_SYMBOL_TYPE; t99715.s0.value.external_symbol_type = q306; /* x180256 stalin.sc:25683:888584 */ t99715.s1.tag = NULL_TYPE; /* x180257 stalin.sc:25683:888584 */ t99714.s1.tag = STRUCTURE_TYPE24753; t99714.s1.value.structure_type24753 = &t99715; /* x180258 stalin.sc:25683:888584 */ t99713.s0.tag = STRUCTURE_TYPE24753; t99713.s0.value.structure_type24753 = &t99714; /* x180259 stalin.sc:25683:888584 */ t99713.s1.tag = NULL_TYPE; /* x180260 stalin.sc:25683:888584 */ t99712.s1.tag = STRUCTURE_TYPE24753; t99712.s1.value.structure_type24753 = &t99713; /* x180261 stalin.sc:25683:888584 */ t99711.s0.tag = STRUCTURE_TYPE24753; t99711.s0.value.structure_type24753 = &t99712; /* x180262 stalin.sc:25683:888584 */ t99716.s0.tag = EXTERNAL_SYMBOL_TYPE; t99716.s0.value.external_symbol_type = q318; /* x180263 stalin.sc:25683:888584 */ t99717.s0.tag = EXTERNAL_SYMBOL_TYPE; t99717.s0.value.external_symbol_type = q254; /* x180264 stalin.sc:25683:888584 */ t99717.s1.tag = NULL_TYPE; /* x180265 stalin.sc:25683:888584 */ t99716.s1.tag = STRUCTURE_TYPE24753; t99716.s1.value.structure_type24753 = &t99717; /* x180266 stalin.sc:25683:888584 */ t99711.s1.tag = STRUCTURE_TYPE24753; t99711.s1.value.structure_type24753 = &t99716; /* x180267 stalin.sc:25683:888584 */ t99710.s0.tag = STRUCTURE_TYPE24753; t99710.s0.value.structure_type24753 = &t99711; /* x180268 stalin.sc:25683:888584 */ t99710.s1.tag = NULL_TYPE; /* x180269 stalin.sc:25683:888584 */ t99703.s1.tag = STRUCTURE_TYPE24753; t99703.s1.value.structure_type24753 = &t99710; /* x180270 stalin.sc:25683:888584 */ t99702.s0.tag = STRUCTURE_TYPE24753; t99702.s0.value.structure_type24753 = &t99703; /* x180271 stalin.sc:25683:888584 */ t99719.s0.tag = EXTERNAL_SYMBOL_TYPE; t99719.s0.value.external_symbol_type = q95; /* x180272 stalin.sc:25683:888584 */ t99721.s0.tag = EXTERNAL_SYMBOL_TYPE; t99721.s0.value.external_symbol_type = q287; /* x180273 stalin.sc:25683:888584 */ t99723.s0.tag = EXTERNAL_SYMBOL_TYPE; t99723.s0.value.external_symbol_type = q108; /* x180274 stalin.sc:25683:888584 */ t99724.s0.tag = EXTERNAL_SYMBOL_TYPE; t99724.s0.value.external_symbol_type = q306; /* x180275 stalin.sc:25683:888584 */ t99724.s1.tag = NULL_TYPE; /* x180276 stalin.sc:25683:888584 */ t99723.s1.tag = STRUCTURE_TYPE24753; t99723.s1.value.structure_type24753 = &t99724; /* x180277 stalin.sc:25683:888584 */ t99722.s0.tag = STRUCTURE_TYPE24753; t99722.s0.value.structure_type24753 = &t99723; /* x180278 stalin.sc:25683:888584 */ t99722.s1.tag = NULL_TYPE; /* x180279 stalin.sc:25683:888584 */ t99721.s1.tag = STRUCTURE_TYPE24753; t99721.s1.value.structure_type24753 = &t99722; /* x180280 stalin.sc:25683:888584 */ t99720.s0.tag = STRUCTURE_TYPE24753; t99720.s0.value.structure_type24753 = &t99721; /* x180281 stalin.sc:25683:888584 */ t99720.s1.tag = NULL_TYPE; /* x180282 stalin.sc:25683:888584 */ t99719.s1.tag = STRUCTURE_TYPE24753; t99719.s1.value.structure_type24753 = &t99720; /* x180283 stalin.sc:25683:888584 */ t99718.s0.tag = STRUCTURE_TYPE24753; t99718.s0.value.structure_type24753 = &t99719; /* x180284 stalin.sc:25683:888584 */ t99718.s1.tag = NULL_TYPE; /* x180285 stalin.sc:25683:888584 */ t99702.s1.tag = STRUCTURE_TYPE24753; t99702.s1.value.structure_type24753 = &t99718; /* x180286 stalin.sc:25683:888584 */ t99694.s1.tag = STRUCTURE_TYPE24753; t99694.s1.value.structure_type24753 = &t99702; /* x180287 stalin.sc:25683:888584 */ t99693.s1.tag = STRUCTURE_TYPE24753; t99693.s1.value.structure_type24753 = &t99694; /* x180288 stalin.sc:25683:888584 */ t99692.s0.tag = STRUCTURE_TYPE24753; t99692.s0.value.structure_type24753 = &t99693; /* x180289 stalin.sc:25683:888584 */ t99692.s1.tag = NULL_TYPE; /* x180290 stalin.sc:25683:888584 */ t99688.s1.tag = STRUCTURE_TYPE24753; t99688.s1.value.structure_type24753 = &t99692; /* x180291 stalin.sc:25683:888584 */ t99687.s1.tag = STRUCTURE_TYPE24753; t99687.s1.value.structure_type24753 = &t99688; /* x180292 stalin.sc:25683:888584 */ t99686.s1.tag = STRUCTURE_TYPE24753; t99686.s1.value.structure_type24753 = &t99687; /* x180293 stalin.sc:25683:888584 */ t99685.s0.tag = STRUCTURE_TYPE24753; t99685.s0.value.structure_type24753 = &t99686; /* x180294 stalin.sc:25683:888584 */ t99685.s1.tag = NULL_TYPE; /* x180295 stalin.sc:25683:888584 */ t99684.s1.tag = STRUCTURE_TYPE24753; t99684.s1.value.structure_type24753 = &t99685; /* x180296 stalin.sc:25683:888584 */ t99683.s0.tag = STRUCTURE_TYPE24753; t99683.s0.value.structure_type24753 = &t99684; /* x180297 stalin.sc:25683:888584 */ t99683.s1.tag = NULL_TYPE; /* x180298 stalin.sc:25683:888584 */ t99619.s1.tag = STRUCTURE_TYPE24753; t99619.s1.value.structure_type24753 = &t99683; /* x180299 stalin.sc:25683:888584 */ t99543.s1.tag = STRUCTURE_TYPE24753; t99543.s1.value.structure_type24753 = &t99619; /* x180300 stalin.sc:25683:888584 */ t99535.s1.tag = STRUCTURE_TYPE24753; t99535.s1.value.structure_type24753 = &t99543; /* x180301 stalin.sc:25683:888584 */ t99527.s1.tag = STRUCTURE_TYPE24753; t99527.s1.value.structure_type24753 = &t99535; /* x180302 stalin.sc:25683:888584 */ t99517.s1.tag = STRUCTURE_TYPE24753; t99517.s1.value.structure_type24753 = &t99527; /* x180303 stalin.sc:25683:888584 */ t99509.s1.tag = STRUCTURE_TYPE24753; t99509.s1.value.structure_type24753 = &t99517; /* x180304 stalin.sc:25683:888584 */ t99501.s1.tag = STRUCTURE_TYPE24753; t99501.s1.value.structure_type24753 = &t99509; /* x180305 stalin.sc:25683:888584 */ t99493.s1.tag = STRUCTURE_TYPE24753; t99493.s1.value.structure_type24753 = &t99501; /* x180306 stalin.sc:25683:888584 */ t99485.s1.tag = STRUCTURE_TYPE24753; t99485.s1.value.structure_type24753 = &t99493; /* x180307 stalin.sc:25683:888584 */ t99468.s1.tag = STRUCTURE_TYPE24753; t99468.s1.value.structure_type24753 = &t99485; /* x180308 stalin.sc:25683:888584 */ t99460.s1.tag = STRUCTURE_TYPE24753; t99460.s1.value.structure_type24753 = &t99468; /* x180309 stalin.sc:25683:888584 */ t99452.s1.tag = STRUCTURE_TYPE24753; t99452.s1.value.structure_type24753 = &t99460; /* x180310 stalin.sc:25683:888584 */ t99443.s1.tag = STRUCTURE_TYPE24753; t99443.s1.value.structure_type24753 = &t99452; /* x180311 stalin.sc:25683:888584 */ t99435.s1.tag = STRUCTURE_TYPE24753; t99435.s1.value.structure_type24753 = &t99443; /* x180312 stalin.sc:25683:888584 */ t99434.s1.tag = STRUCTURE_TYPE24753; t99434.s1.value.structure_type24753 = &t99435; /* x180313 stalin.sc:25683:888584 */ t99433.s0.tag = STRUCTURE_TYPE24753; t99433.s0.value.structure_type24753 = &t99434; /* x180314 stalin.sc:25683:888584 */ t99433.s1.tag = NULL_TYPE; /* x180315 stalin.sc:25683:888584 */ t99429.s1.tag = STRUCTURE_TYPE24753; t99429.s1.value.structure_type24753 = &t99433; /* x180316 stalin.sc:25683:888584 */ t99428.s1.tag = STRUCTURE_TYPE24753; t99428.s1.value.structure_type24753 = &t99429; /* x180317 stalin.sc:25683:888584 */ t99427.s0.tag = STRUCTURE_TYPE24753; t99427.s0.value.structure_type24753 = &t99428; /* x180318 stalin.sc:25683:888584 */ t99726.s0.tag = EXTERNAL_SYMBOL_TYPE; t99726.s0.value.external_symbol_type = q42; /* x180319 stalin.sc:25683:888584 */ t99727.s0.tag = EXTERNAL_SYMBOL_TYPE; t99727.s0.value.external_symbol_type = q320; /* x180320 stalin.sc:25683:888584 */ t99729.s0.tag = EXTERNAL_SYMBOL_TYPE; t99729.s0.value.external_symbol_type = q39; /* x180321 stalin.sc:25683:888584 */ t99731.s0.tag = EXTERNAL_SYMBOL_TYPE; t99731.s0.value.external_symbol_type = q310; /* x180322 stalin.sc:25683:888584 */ t99731.s1.tag = EXTERNAL_SYMBOL_TYPE; t99731.s1.value.external_symbol_type = q321; /* x180323 stalin.sc:25683:888584 */ t99730.s0.tag = STRUCTURE_TYPE24753; t99730.s0.value.structure_type24753 = &t99731; /* x180324 stalin.sc:25683:888584 */ t99733.s0.tag = EXTERNAL_SYMBOL_TYPE; t99733.s0.value.external_symbol_type = q246; /* x180325 stalin.sc:25683:888584 */ t99736.s0.tag = EXTERNAL_SYMBOL_TYPE; t99736.s0.value.external_symbol_type = q322; /* x180326 stalin.sc:25683:888584 */ t99738.s0.tag = EXTERNAL_SYMBOL_TYPE; t99738.s0.value.external_symbol_type = q43; /* x180327 stalin.sc:25683:888584 */ t99740.s0.tag = EXTERNAL_SYMBOL_TYPE; t99740.s0.value.external_symbol_type = q111; /* x180328 stalin.sc:25683:888584 */ t99741.s0.tag = EXTERNAL_SYMBOL_TYPE; t99741.s0.value.external_symbol_type = q321; /* x180329 stalin.sc:25683:888584 */ t99741.s1.tag = NULL_TYPE; /* x180330 stalin.sc:25683:888584 */ t99740.s1.tag = STRUCTURE_TYPE24753; t99740.s1.value.structure_type24753 = &t99741; /* x180331 stalin.sc:25683:888584 */ t99739.s0.tag = STRUCTURE_TYPE24753; t99739.s0.value.structure_type24753 = &t99740; /* x180332 stalin.sc:25683:888584 */ t99742.s0.tag = FIXNUM_TYPE; t99742.s0.value.fixnum_type = 10; /* x180333 stalin.sc:25683:888584 */ t99744.s0.tag = EXTERNAL_SYMBOL_TYPE; t99744.s0.value.external_symbol_type = q242; /* x180334 stalin.sc:25683:888584 */ t99747.s0.tag = EXTERNAL_SYMBOL_TYPE; t99747.s0.value.external_symbol_type = q323; /* x180335 stalin.sc:25683:888584 */ t99749.s0.tag = EXTERNAL_SYMBOL_TYPE; t99749.s0.value.external_symbol_type = q107; /* x180336 stalin.sc:25683:888584 */ t99750.s0.tag = EXTERNAL_SYMBOL_TYPE; t99750.s0.value.external_symbol_type = q321; /* x180337 stalin.sc:25683:888584 */ t99750.s1.tag = NULL_TYPE; /* x180338 stalin.sc:25683:888584 */ t99749.s1.tag = STRUCTURE_TYPE24753; t99749.s1.value.structure_type24753 = &t99750; /* x180339 stalin.sc:25683:888584 */ t99748.s0.tag = STRUCTURE_TYPE24753; t99748.s0.value.structure_type24753 = &t99749; /* x180340 stalin.sc:25683:888584 */ t99748.s1.tag = NULL_TYPE; /* x180341 stalin.sc:25683:888584 */ t99747.s1.tag = STRUCTURE_TYPE24753; t99747.s1.value.structure_type24753 = &t99748; /* x180342 stalin.sc:25683:888584 */ t99746.s0.tag = STRUCTURE_TYPE24753; t99746.s0.value.structure_type24753 = &t99747; /* x180343 stalin.sc:25683:888584 */ t99746.s1.tag = NULL_TYPE; /* x180344 stalin.sc:25683:888584 */ t99745.s0.tag = STRUCTURE_TYPE24753; t99745.s0.value.structure_type24753 = &t99746; /* x180345 stalin.sc:25683:888584 */ t99752.s0.tag = EXTERNAL_SYMBOL_TYPE; t99752.s0.value.external_symbol_type = q43; /* x180346 stalin.sc:25683:888584 */ t99754.s0.tag = EXTERNAL_SYMBOL_TYPE; t99754.s0.value.external_symbol_type = q244; /* x180347 stalin.sc:25683:888584 */ t99756.s0.tag = EXTERNAL_SYMBOL_TYPE; t99756.s0.value.external_symbol_type = q117; /* x180348 stalin.sc:25683:888584 */ t99757.s0.tag = EXTERNAL_SYMBOL_TYPE; t99757.s0.value.external_symbol_type = q323; /* x180349 stalin.sc:25683:888584 */ t99757.s1.tag = NULL_TYPE; /* x180350 stalin.sc:25683:888584 */ t99756.s1.tag = STRUCTURE_TYPE24753; t99756.s1.value.structure_type24753 = &t99757; /* x180351 stalin.sc:25683:888584 */ t99755.s0.tag = STRUCTURE_TYPE24753; t99755.s0.value.structure_type24753 = &t99756; /* x180352 stalin.sc:25683:888584 */ t99759.s0.tag = EXTERNAL_SYMBOL_TYPE; t99759.s0.value.external_symbol_type = q118; /* x180353 stalin.sc:25683:888584 */ t99760.s0.tag = EXTERNAL_SYMBOL_TYPE; t99760.s0.value.external_symbol_type = q323; /* x180354 stalin.sc:25683:888584 */ t99760.s1.tag = NULL_TYPE; /* x180355 stalin.sc:25683:888584 */ t99759.s1.tag = STRUCTURE_TYPE24753; t99759.s1.value.structure_type24753 = &t99760; /* x180356 stalin.sc:25683:888584 */ t99758.s0.tag = STRUCTURE_TYPE24753; t99758.s0.value.structure_type24753 = &t99759; /* x180357 stalin.sc:25683:888584 */ t99762.s0.tag = EXTERNAL_SYMBOL_TYPE; t99762.s0.value.external_symbol_type = q241; /* x180358 stalin.sc:25683:888584 */ t99764.s0.tag = EXTERNAL_SYMBOL_TYPE; t99764.s0.value.external_symbol_type = q120; /* x180359 stalin.sc:25683:888584 */ t99765.s0.tag = EXTERNAL_SYMBOL_TYPE; t99765.s0.value.external_symbol_type = q323; /* x180360 stalin.sc:25683:888584 */ t99766.s0.tag = FIXNUM_TYPE; t99766.s0.value.fixnum_type = 10; /* x180361 stalin.sc:25683:888584 */ t99766.s1.tag = NULL_TYPE; /* x180362 stalin.sc:25683:888584 */ t99765.s1.tag = STRUCTURE_TYPE24753; t99765.s1.value.structure_type24753 = &t99766; /* x180363 stalin.sc:25683:888584 */ t99764.s1.tag = STRUCTURE_TYPE24753; t99764.s1.value.structure_type24753 = &t99765; /* x180364 stalin.sc:25683:888584 */ t99763.s0.tag = STRUCTURE_TYPE24753; t99763.s0.value.structure_type24753 = &t99764; /* x180365 stalin.sc:25683:888584 */ t99768.s0.tag = EXTERNAL_SYMBOL_TYPE; t99768.s0.value.external_symbol_type = q244; /* x180366 stalin.sc:25683:888584 */ t99770.s0.tag = EXTERNAL_SYMBOL_TYPE; t99770.s0.value.external_symbol_type = q117; /* x180367 stalin.sc:25683:888584 */ t99771.s0.tag = EXTERNAL_SYMBOL_TYPE; t99771.s0.value.external_symbol_type = q310; /* x180368 stalin.sc:25683:888584 */ t99771.s1.tag = NULL_TYPE; /* x180369 stalin.sc:25683:888584 */ t99770.s1.tag = STRUCTURE_TYPE24753; t99770.s1.value.structure_type24753 = &t99771; /* x180370 stalin.sc:25683:888584 */ t99769.s0.tag = STRUCTURE_TYPE24753; t99769.s0.value.structure_type24753 = &t99770; /* x180371 stalin.sc:25683:888584 */ t99773.s0.tag = EXTERNAL_SYMBOL_TYPE; t99773.s0.value.external_symbol_type = q118; /* x180372 stalin.sc:25683:888584 */ t99774.s0.tag = EXTERNAL_SYMBOL_TYPE; t99774.s0.value.external_symbol_type = q310; /* x180373 stalin.sc:25683:888584 */ t99774.s1.tag = NULL_TYPE; /* x180374 stalin.sc:25683:888584 */ t99773.s1.tag = STRUCTURE_TYPE24753; t99773.s1.value.structure_type24753 = &t99774; /* x180375 stalin.sc:25683:888584 */ t99772.s0.tag = STRUCTURE_TYPE24753; t99772.s0.value.structure_type24753 = &t99773; /* x180376 stalin.sc:25683:888584 */ t99776.s0.tag = EXTERNAL_SYMBOL_TYPE; t99776.s0.value.external_symbol_type = q241; /* x180377 stalin.sc:25683:888584 */ t99778.s0.tag = EXTERNAL_SYMBOL_TYPE; t99778.s0.value.external_symbol_type = q120; /* x180378 stalin.sc:25683:888584 */ t99779.s0.tag = EXTERNAL_SYMBOL_TYPE; t99779.s0.value.external_symbol_type = q323; /* x180379 stalin.sc:25683:888584 */ t99780.s0.tag = FIXNUM_TYPE; t99780.s0.value.fixnum_type = 2; /* x180380 stalin.sc:25683:888584 */ t99780.s1.tag = NULL_TYPE; /* x180381 stalin.sc:25683:888584 */ t99779.s1.tag = STRUCTURE_TYPE24753; t99779.s1.value.structure_type24753 = &t99780; /* x180382 stalin.sc:25683:888584 */ t99778.s1.tag = STRUCTURE_TYPE24753; t99778.s1.value.structure_type24753 = &t99779; /* x180383 stalin.sc:25683:888584 */ t99777.s0.tag = STRUCTURE_TYPE24753; t99777.s0.value.structure_type24753 = &t99778; /* x180384 stalin.sc:25683:888584 */ t99782.s0.tag = EXTERNAL_SYMBOL_TYPE; t99782.s0.value.external_symbol_type = q120; /* x180385 stalin.sc:25683:888584 */ t99783.s0.tag = EXTERNAL_SYMBOL_TYPE; t99783.s0.value.external_symbol_type = q323; /* x180386 stalin.sc:25683:888584 */ t99784.s0.tag = FIXNUM_TYPE; t99784.s0.value.fixnum_type = 8; /* x180387 stalin.sc:25683:888584 */ t99784.s1.tag = NULL_TYPE; /* x180388 stalin.sc:25683:888584 */ t99783.s1.tag = STRUCTURE_TYPE24753; t99783.s1.value.structure_type24753 = &t99784; /* x180389 stalin.sc:25683:888584 */ t99782.s1.tag = STRUCTURE_TYPE24753; t99782.s1.value.structure_type24753 = &t99783; /* x180390 stalin.sc:25683:888584 */ t99781.s0.tag = STRUCTURE_TYPE24753; t99781.s0.value.structure_type24753 = &t99782; /* x180391 stalin.sc:25683:888584 */ t99786.s0.tag = EXTERNAL_SYMBOL_TYPE; t99786.s0.value.external_symbol_type = q120; /* x180392 stalin.sc:25683:888584 */ t99787.s0.tag = EXTERNAL_SYMBOL_TYPE; t99787.s0.value.external_symbol_type = q323; /* x180393 stalin.sc:25683:888584 */ t99788.s0.tag = FIXNUM_TYPE; t99788.s0.value.fixnum_type = 16; /* x180394 stalin.sc:25683:888584 */ t99788.s1.tag = NULL_TYPE; /* x180395 stalin.sc:25683:888584 */ t99787.s1.tag = STRUCTURE_TYPE24753; t99787.s1.value.structure_type24753 = &t99788; /* x180396 stalin.sc:25683:888584 */ t99786.s1.tag = STRUCTURE_TYPE24753; t99786.s1.value.structure_type24753 = &t99787; /* x180397 stalin.sc:25683:888584 */ t99785.s0.tag = STRUCTURE_TYPE24753; t99785.s0.value.structure_type24753 = &t99786; /* x180398 stalin.sc:25683:888584 */ t99785.s1.tag = NULL_TYPE; /* x180399 stalin.sc:25683:888584 */ t99781.s1.tag = STRUCTURE_TYPE24753; t99781.s1.value.structure_type24753 = &t99785; /* x180400 stalin.sc:25683:888584 */ t99777.s1.tag = STRUCTURE_TYPE24753; t99777.s1.value.structure_type24753 = &t99781; /* x180401 stalin.sc:25683:888584 */ t99776.s1.tag = STRUCTURE_TYPE24753; t99776.s1.value.structure_type24753 = &t99777; /* x180402 stalin.sc:25683:888584 */ t99775.s0.tag = STRUCTURE_TYPE24753; t99775.s0.value.structure_type24753 = &t99776; /* x180403 stalin.sc:25683:888584 */ t99775.s1.tag = NULL_TYPE; /* x180404 stalin.sc:25683:888584 */ t99772.s1.tag = STRUCTURE_TYPE24753; t99772.s1.value.structure_type24753 = &t99775; /* x180405 stalin.sc:25683:888584 */ t99769.s1.tag = STRUCTURE_TYPE24753; t99769.s1.value.structure_type24753 = &t99772; /* x180406 stalin.sc:25683:888584 */ t99768.s1.tag = STRUCTURE_TYPE24753; t99768.s1.value.structure_type24753 = &t99769; /* x180407 stalin.sc:25683:888584 */ t99767.s0.tag = STRUCTURE_TYPE24753; t99767.s0.value.structure_type24753 = &t99768; /* x180408 stalin.sc:25683:888584 */ t99767.s1.tag = NULL_TYPE; /* x180409 stalin.sc:25683:888584 */ t99763.s1.tag = STRUCTURE_TYPE24753; t99763.s1.value.structure_type24753 = &t99767; /* x180410 stalin.sc:25683:888584 */ t99762.s1.tag = STRUCTURE_TYPE24753; t99762.s1.value.structure_type24753 = &t99763; /* x180411 stalin.sc:25683:888584 */ t99761.s0.tag = STRUCTURE_TYPE24753; t99761.s0.value.structure_type24753 = &t99762; /* x180412 stalin.sc:25683:888584 */ t99761.s1.tag = NULL_TYPE; /* x180413 stalin.sc:25683:888584 */ t99758.s1.tag = STRUCTURE_TYPE24753; t99758.s1.value.structure_type24753 = &t99761; /* x180414 stalin.sc:25683:888584 */ t99755.s1.tag = STRUCTURE_TYPE24753; t99755.s1.value.structure_type24753 = &t99758; /* x180415 stalin.sc:25683:888584 */ t99754.s1.tag = STRUCTURE_TYPE24753; t99754.s1.value.structure_type24753 = &t99755; /* x180416 stalin.sc:25683:888584 */ t99753.s0.tag = STRUCTURE_TYPE24753; t99753.s0.value.structure_type24753 = &t99754; /* x180417 stalin.sc:25683:888584 */ t99789.s0.tag = EXTERNAL_SYMBOL_TYPE; t99789.s0.value.external_symbol_type = q323; /* x180418 stalin.sc:25683:888584 */ t99791.s0.tag = EXTERNAL_SYMBOL_TYPE; t99791.s0.value.external_symbol_type = q179; /* x180419 stalin.sc:25683:888584 */ t99792.s0.tag = STRING_TYPE; t99792.s0.value.string_type = "Attempt to call NUMBER->STRING with invalid radix"; /* x180420 stalin.sc:25683:888584 */ t99792.s1.tag = NULL_TYPE; /* x180421 stalin.sc:25683:888584 */ t99791.s1.tag = STRUCTURE_TYPE24753; t99791.s1.value.structure_type24753 = &t99792; /* x180422 stalin.sc:25683:888584 */ t99790.s0.tag = STRUCTURE_TYPE24753; t99790.s0.value.structure_type24753 = &t99791; /* x180423 stalin.sc:25683:888584 */ t99790.s1.tag = NULL_TYPE; /* x180424 stalin.sc:25683:888584 */ t99789.s1.tag = STRUCTURE_TYPE24753; t99789.s1.value.structure_type24753 = &t99790; /* x180425 stalin.sc:25683:888584 */ t99753.s1.tag = STRUCTURE_TYPE24753; t99753.s1.value.structure_type24753 = &t99789; /* x180426 stalin.sc:25683:888584 */ t99752.s1.tag = STRUCTURE_TYPE24753; t99752.s1.value.structure_type24753 = &t99753; /* x180427 stalin.sc:25683:888584 */ t99751.s0.tag = STRUCTURE_TYPE24753; t99751.s0.value.structure_type24753 = &t99752; /* x180428 stalin.sc:25683:888584 */ t99751.s1.tag = NULL_TYPE; /* x180429 stalin.sc:25683:888584 */ t99745.s1.tag = STRUCTURE_TYPE24753; t99745.s1.value.structure_type24753 = &t99751; /* x180430 stalin.sc:25683:888584 */ t99744.s1.tag = STRUCTURE_TYPE24753; t99744.s1.value.structure_type24753 = &t99745; /* x180431 stalin.sc:25683:888584 */ t99743.s0.tag = STRUCTURE_TYPE24753; t99743.s0.value.structure_type24753 = &t99744; /* x180432 stalin.sc:25683:888584 */ t99743.s1.tag = NULL_TYPE; /* x180433 stalin.sc:25683:888584 */ t99742.s1.tag = STRUCTURE_TYPE24753; t99742.s1.value.structure_type24753 = &t99743; /* x180434 stalin.sc:25683:888584 */ t99739.s1.tag = STRUCTURE_TYPE24753; t99739.s1.value.structure_type24753 = &t99742; /* x180435 stalin.sc:25683:888584 */ t99738.s1.tag = STRUCTURE_TYPE24753; t99738.s1.value.structure_type24753 = &t99739; /* x180436 stalin.sc:25683:888584 */ t99737.s0.tag = STRUCTURE_TYPE24753; t99737.s0.value.structure_type24753 = &t99738; /* x180437 stalin.sc:25683:888584 */ t99737.s1.tag = NULL_TYPE; /* x180438 stalin.sc:25683:888584 */ t99736.s1.tag = STRUCTURE_TYPE24753; t99736.s1.value.structure_type24753 = &t99737; /* x180439 stalin.sc:25683:888584 */ t99735.s0.tag = STRUCTURE_TYPE24753; t99735.s0.value.structure_type24753 = &t99736; /* x180440 stalin.sc:25683:888584 */ t99794.s0.tag = EXTERNAL_SYMBOL_TYPE; t99794.s0.value.external_symbol_type = q324; /* x180441 stalin.sc:25683:888584 */ t99796.s0.tag = EXTERNAL_SYMBOL_TYPE; t99796.s0.value.external_symbol_type = q154; /* x180442 stalin.sc:25683:888584 */ t99797.s0.tag = EXTERNAL_SYMBOL_TYPE; t99797.s0.value.external_symbol_type = q322; /* x180443 stalin.sc:25683:888584 */ t99797.s1.tag = NULL_TYPE; /* x180444 stalin.sc:25683:888584 */ t99796.s1.tag = STRUCTURE_TYPE24753; t99796.s1.value.structure_type24753 = &t99797; /* x180445 stalin.sc:25683:888584 */ t99795.s0.tag = STRUCTURE_TYPE24753; t99795.s0.value.structure_type24753 = &t99796; /* x180446 stalin.sc:25683:888584 */ t99795.s1.tag = NULL_TYPE; /* x180447 stalin.sc:25683:888584 */ t99794.s1.tag = STRUCTURE_TYPE24753; t99794.s1.value.structure_type24753 = &t99795; /* x180448 stalin.sc:25683:888584 */ t99793.s0.tag = STRUCTURE_TYPE24753; t99793.s0.value.structure_type24753 = &t99794; /* x180449 stalin.sc:25683:888584 */ t99799.s0.tag = EXTERNAL_SYMBOL_TYPE; t99799.s0.value.external_symbol_type = q325; /* x180450 stalin.sc:25683:888584 */ t99801.s0.tag = EXTERNAL_SYMBOL_TYPE; t99801.s0.value.external_symbol_type = q131; /* x180451 stalin.sc:25683:888584 */ t99802.s0.tag = EXTERNAL_SYMBOL_TYPE; t99802.s0.value.external_symbol_type = q324; /* x180452 stalin.sc:25683:888584 */ t99802.s1.tag = NULL_TYPE; /* x180453 stalin.sc:25683:888584 */ t99801.s1.tag = STRUCTURE_TYPE24753; t99801.s1.value.structure_type24753 = &t99802; /* x180454 stalin.sc:25683:888584 */ t99800.s0.tag = STRUCTURE_TYPE24753; t99800.s0.value.structure_type24753 = &t99801; /* x180455 stalin.sc:25683:888584 */ t99800.s1.tag = NULL_TYPE; /* x180456 stalin.sc:25683:888584 */ t99799.s1.tag = STRUCTURE_TYPE24753; t99799.s1.value.structure_type24753 = &t99800; /* x180457 stalin.sc:25683:888584 */ t99798.s0.tag = STRUCTURE_TYPE24753; t99798.s0.value.structure_type24753 = &t99799; /* x180458 stalin.sc:25683:888584 */ t99798.s1.tag = NULL_TYPE; /* x180459 stalin.sc:25683:888584 */ t99793.s1.tag = STRUCTURE_TYPE24753; t99793.s1.value.structure_type24753 = &t99798; /* x180460 stalin.sc:25683:888584 */ t99735.s1.tag = STRUCTURE_TYPE24753; t99735.s1.value.structure_type24753 = &t99793; /* x180461 stalin.sc:25683:888584 */ t99734.s0.tag = STRUCTURE_TYPE24753; t99734.s0.value.structure_type24753 = &t99735; /* x180462 stalin.sc:25683:888584 */ t99804.s0.tag = EXTERNAL_SYMBOL_TYPE; t99804.s0.value.external_symbol_type = q97; /* x180463 stalin.sc:25683:888584 */ t99806.s0.tag = EXTERNAL_SYMBOL_TYPE; t99806.s0.value.external_symbol_type = q326; /* x180464 stalin.sc:25683:888584 */ t99807.s0.tag = EXTERNAL_SYMBOL_TYPE; t99807.s0.value.external_symbol_type = q315; /* x180465 stalin.sc:25683:888584 */ t99807.s1.tag = NULL_TYPE; /* x180466 stalin.sc:25683:888584 */ t99806.s1.tag = STRUCTURE_TYPE24753; t99806.s1.value.structure_type24753 = &t99807; /* x180467 stalin.sc:25683:888584 */ t99805.s0.tag = STRUCTURE_TYPE24753; t99805.s0.value.structure_type24753 = &t99806; /* x180468 stalin.sc:25683:888584 */ t99809.s0.tag = EXTERNAL_SYMBOL_TYPE; t99809.s0.value.external_symbol_type = q169; /* x180469 stalin.sc:25683:888584 */ t99811.s0.tag = EXTERNAL_SYMBOL_TYPE; t99811.s0.value.external_symbol_type = q11; t99813.length = 16; /* x180470 stalin.sc:25683:888584 */ ((t99813.element)[0]).tag = ((unsigned)((unsigned char)'0'))<<2; /* x180471 stalin.sc:25683:888584 */ ((t99813.element)[1]).tag = ((unsigned)((unsigned char)'1'))<<2; /* x180472 stalin.sc:25683:888584 */ ((t99813.element)[2]).tag = ((unsigned)((unsigned char)'2'))<<2; /* x180473 stalin.sc:25683:888584 */ ((t99813.element)[3]).tag = ((unsigned)((unsigned char)'3'))<<2; /* x180474 stalin.sc:25683:888584 */ ((t99813.element)[4]).tag = ((unsigned)((unsigned char)'4'))<<2; /* x180475 stalin.sc:25683:888584 */ ((t99813.element)[5]).tag = ((unsigned)((unsigned char)'5'))<<2; /* x180476 stalin.sc:25683:888584 */ ((t99813.element)[6]).tag = ((unsigned)((unsigned char)'6'))<<2; /* x180477 stalin.sc:25683:888584 */ ((t99813.element)[7]).tag = ((unsigned)((unsigned char)'7'))<<2; /* x180478 stalin.sc:25683:888584 */ ((t99813.element)[8]).tag = ((unsigned)((unsigned char)'8'))<<2; /* x180479 stalin.sc:25683:888584 */ ((t99813.element)[9]).tag = ((unsigned)((unsigned char)'9'))<<2; /* x180480 stalin.sc:25683:888584 */ ((t99813.element)[10]).tag = ((unsigned)((unsigned char)'A'))<<2; /* x180481 stalin.sc:25683:888584 */ ((t99813.element)[11]).tag = ((unsigned)((unsigned char)'B'))<<2; /* x180482 stalin.sc:25683:888584 */ ((t99813.element)[12]).tag = ((unsigned)((unsigned char)'C'))<<2; /* x180483 stalin.sc:25683:888584 */ ((t99813.element)[13]).tag = ((unsigned)((unsigned char)'D'))<<2; /* x180484 stalin.sc:25683:888584 */ ((t99813.element)[14]).tag = ((unsigned)((unsigned char)'E'))<<2; /* x180485 stalin.sc:25683:888584 */ ((t99813.element)[15]).tag = ((unsigned)((unsigned char)'F'))<<2; /* x180486 stalin.sc:25683:888584 */ t99812.s0.tag = HEADED_VECTOR_TYPE27896; t99812.s0.value.headed_vector_type27896 = (struct headed_vector_type27896 *)(&t99813); /* x180487 stalin.sc:25683:888584 */ t99812.s1.tag = NULL_TYPE; /* x180488 stalin.sc:25683:888584 */ t99811.s1.tag = STRUCTURE_TYPE24753; t99811.s1.value.structure_type24753 = &t99812; /* x180489 stalin.sc:25683:888584 */ t99810.s0.tag = STRUCTURE_TYPE24753; t99810.s0.value.structure_type24753 = &t99811; /* x180490 stalin.sc:25683:888584 */ t99814.s0.tag = EXTERNAL_SYMBOL_TYPE; t99814.s0.value.external_symbol_type = q315; /* x180491 stalin.sc:25683:888584 */ t99814.s1.tag = NULL_TYPE; /* x180492 stalin.sc:25683:888584 */ t99810.s1.tag = STRUCTURE_TYPE24753; t99810.s1.value.structure_type24753 = &t99814; /* x180493 stalin.sc:25683:888584 */ t99809.s1.tag = STRUCTURE_TYPE24753; t99809.s1.value.structure_type24753 = &t99810; /* x180494 stalin.sc:25683:888584 */ t99808.s0.tag = STRUCTURE_TYPE24753; t99808.s0.value.structure_type24753 = &t99809; /* x180495 stalin.sc:25683:888584 */ t99808.s1.tag = NULL_TYPE; /* x180496 stalin.sc:25683:888584 */ t99805.s1.tag = STRUCTURE_TYPE24753; t99805.s1.value.structure_type24753 = &t99808; /* x180497 stalin.sc:25683:888584 */ t99804.s1.tag = STRUCTURE_TYPE24753; t99804.s1.value.structure_type24753 = &t99805; /* x180498 stalin.sc:25683:888584 */ t99803.s0.tag = STRUCTURE_TYPE24753; t99803.s0.value.structure_type24753 = &t99804; /* x180499 stalin.sc:25683:888584 */ t99816.s0.tag = EXTERNAL_SYMBOL_TYPE; t99816.s0.value.external_symbol_type = q97; /* x180500 stalin.sc:25683:888584 */ t99818.s0.tag = EXTERNAL_SYMBOL_TYPE; t99818.s0.value.external_symbol_type = q327; /* x180501 stalin.sc:25683:888584 */ t99819.s0.tag = EXTERNAL_SYMBOL_TYPE; t99819.s0.value.external_symbol_type = q312; /* x180502 stalin.sc:25683:888584 */ t99820.s0.tag = EXTERNAL_SYMBOL_TYPE; t99820.s0.value.external_symbol_type = q313; /* x180503 stalin.sc:25683:888584 */ t99820.s1.tag = NULL_TYPE; /* x180504 stalin.sc:25683:888584 */ t99819.s1.tag = STRUCTURE_TYPE24753; t99819.s1.value.structure_type24753 = &t99820; /* x180505 stalin.sc:25683:888584 */ t99818.s1.tag = STRUCTURE_TYPE24753; t99818.s1.value.structure_type24753 = &t99819; /* x180506 stalin.sc:25683:888584 */ t99817.s0.tag = STRUCTURE_TYPE24753; t99817.s0.value.structure_type24753 = &t99818; /* x180507 stalin.sc:25683:888584 */ t99822.s0.tag = EXTERNAL_SYMBOL_TYPE; t99822.s0.value.external_symbol_type = q246; /* x180508 stalin.sc:25683:888584 */ t99825.s0.tag = EXTERNAL_SYMBOL_TYPE; t99825.s0.value.external_symbol_type = q314; /* x180509 stalin.sc:25683:888584 */ t99827.s0.tag = EXTERNAL_SYMBOL_TYPE; t99827.s0.value.external_symbol_type = q140; /* x180510 stalin.sc:25683:888584 */ t99828.s0.tag = EXTERNAL_SYMBOL_TYPE; t99828.s0.value.external_symbol_type = q312; /* x180511 stalin.sc:25683:888584 */ t99828.s1.tag = NULL_TYPE; /* x180512 stalin.sc:25683:888584 */ t99827.s1.tag = STRUCTURE_TYPE24753; t99827.s1.value.structure_type24753 = &t99828; /* x180513 stalin.sc:25683:888584 */ t99826.s0.tag = STRUCTURE_TYPE24753; t99826.s0.value.structure_type24753 = &t99827; /* x180514 stalin.sc:25683:888584 */ t99826.s1.tag = NULL_TYPE; /* x180515 stalin.sc:25683:888584 */ t99825.s1.tag = STRUCTURE_TYPE24753; t99825.s1.value.structure_type24753 = &t99826; /* x180516 stalin.sc:25683:888584 */ t99824.s0.tag = STRUCTURE_TYPE24753; t99824.s0.value.structure_type24753 = &t99825; /* x180517 stalin.sc:25683:888584 */ t99830.s0.tag = EXTERNAL_SYMBOL_TYPE; t99830.s0.value.external_symbol_type = q315; /* x180518 stalin.sc:25683:888584 */ t99832.s0.tag = EXTERNAL_SYMBOL_TYPE; t99832.s0.value.external_symbol_type = q155; /* x180519 stalin.sc:25683:888584 */ t99833.s0.tag = EXTERNAL_SYMBOL_TYPE; t99833.s0.value.external_symbol_type = q314; /* x180520 stalin.sc:25683:888584 */ t99833.s1.tag = NULL_TYPE; /* x180521 stalin.sc:25683:888584 */ t99832.s1.tag = STRUCTURE_TYPE24753; t99832.s1.value.structure_type24753 = &t99833; /* x180522 stalin.sc:25683:888584 */ t99831.s0.tag = STRUCTURE_TYPE24753; t99831.s0.value.structure_type24753 = &t99832; /* x180523 stalin.sc:25683:888584 */ t99831.s1.tag = NULL_TYPE; /* x180524 stalin.sc:25683:888584 */ t99830.s1.tag = STRUCTURE_TYPE24753; t99830.s1.value.structure_type24753 = &t99831; /* x180525 stalin.sc:25683:888584 */ t99829.s0.tag = STRUCTURE_TYPE24753; t99829.s0.value.structure_type24753 = &t99830; /* x180526 stalin.sc:25683:888584 */ t99829.s1.tag = NULL_TYPE; /* x180527 stalin.sc:25683:888584 */ t99824.s1.tag = STRUCTURE_TYPE24753; t99824.s1.value.structure_type24753 = &t99829; /* x180528 stalin.sc:25683:888584 */ t99823.s0.tag = STRUCTURE_TYPE24753; t99823.s0.value.structure_type24753 = &t99824; /* x180529 stalin.sc:25683:888584 */ t99835.s0.tag = EXTERNAL_SYMBOL_TYPE; t99835.s0.value.external_symbol_type = q240; /* x180530 stalin.sc:25683:888584 */ t99838.s0.tag = EXTERNAL_SYMBOL_TYPE; t99838.s0.value.external_symbol_type = q120; /* x180531 stalin.sc:25683:888584 */ t99839.s0.tag = EXTERNAL_SYMBOL_TYPE; t99839.s0.value.external_symbol_type = q315; /* x180532 stalin.sc:25683:888584 */ t99840.s0.tag = FIXNUM_TYPE; t99840.s0.value.fixnum_type = 0; /* x180533 stalin.sc:25683:888584 */ t99840.s1.tag = NULL_TYPE; /* x180534 stalin.sc:25683:888584 */ t99839.s1.tag = STRUCTURE_TYPE24753; t99839.s1.value.structure_type24753 = &t99840; /* x180535 stalin.sc:25683:888584 */ t99838.s1.tag = STRUCTURE_TYPE24753; t99838.s1.value.structure_type24753 = &t99839; /* x180536 stalin.sc:25683:888584 */ t99837.s0.tag = STRUCTURE_TYPE24753; t99837.s0.value.structure_type24753 = &t99838; /* x180537 stalin.sc:25683:888584 */ t99842.s0.tag = EXTERNAL_SYMBOL_TYPE; t99842.s0.value.external_symbol_type = q327; /* x180538 stalin.sc:25683:888584 */ t99844.s0.tag = EXTERNAL_SYMBOL_TYPE; t99844.s0.value.external_symbol_type = q130; /* x180539 stalin.sc:25683:888584 */ t99845.s0.tag = EXTERNAL_SYMBOL_TYPE; t99845.s0.value.external_symbol_type = q324; /* x180540 stalin.sc:25683:888584 */ t99846.s0.tag = EXTERNAL_SYMBOL_TYPE; t99846.s0.value.external_symbol_type = q312; /* x180541 stalin.sc:25683:888584 */ t99846.s1.tag = NULL_TYPE; /* x180542 stalin.sc:25683:888584 */ t99845.s1.tag = STRUCTURE_TYPE24753; t99845.s1.value.structure_type24753 = &t99846; /* x180543 stalin.sc:25683:888584 */ t99844.s1.tag = STRUCTURE_TYPE24753; t99844.s1.value.structure_type24753 = &t99845; /* x180544 stalin.sc:25683:888584 */ t99843.s0.tag = STRUCTURE_TYPE24753; t99843.s0.value.structure_type24753 = &t99844; /* x180545 stalin.sc:25683:888584 */ t99848.s0.tag = EXTERNAL_SYMBOL_TYPE; t99848.s0.value.external_symbol_type = q2; /* x180546 stalin.sc:25683:888584 */ t99849.s0.tag = EXTERNAL_SYMBOL_TYPE; t99849.s0.value.external_symbol_type = q313; /* x180547 stalin.sc:25683:888584 */ t99850.s0.tag = FIXNUM_TYPE; t99850.s0.value.fixnum_type = 1; /* x180548 stalin.sc:25683:888584 */ t99850.s1.tag = NULL_TYPE; /* x180549 stalin.sc:25683:888584 */ t99849.s1.tag = STRUCTURE_TYPE24753; t99849.s1.value.structure_type24753 = &t99850; /* x180550 stalin.sc:25683:888584 */ t99848.s1.tag = STRUCTURE_TYPE24753; t99848.s1.value.structure_type24753 = &t99849; /* x180551 stalin.sc:25683:888584 */ t99847.s0.tag = STRUCTURE_TYPE24753; t99847.s0.value.structure_type24753 = &t99848; /* x180552 stalin.sc:25683:888584 */ t99847.s1.tag = NULL_TYPE; /* x180553 stalin.sc:25683:888584 */ t99843.s1.tag = STRUCTURE_TYPE24753; t99843.s1.value.structure_type24753 = &t99847; /* x180554 stalin.sc:25683:888584 */ t99842.s1.tag = STRUCTURE_TYPE24753; t99842.s1.value.structure_type24753 = &t99843; /* x180555 stalin.sc:25683:888584 */ t99841.s0.tag = STRUCTURE_TYPE24753; t99841.s0.value.structure_type24753 = &t99842; /* x180556 stalin.sc:25683:888584 */ t99841.s1.tag = NULL_TYPE; /* x180557 stalin.sc:25683:888584 */ t99837.s1.tag = STRUCTURE_TYPE24753; t99837.s1.value.structure_type24753 = &t99841; /* x180558 stalin.sc:25683:888584 */ t99836.s0.tag = STRUCTURE_TYPE24753; t99836.s0.value.structure_type24753 = &t99837; /* x180559 stalin.sc:25683:888584 */ t99853.s0.tag = EXTERNAL_SYMBOL_TYPE; t99853.s0.value.external_symbol_type = q120; /* x180560 stalin.sc:25683:888584 */ t99854.s0.tag = EXTERNAL_SYMBOL_TYPE; t99854.s0.value.external_symbol_type = q315; /* x180561 stalin.sc:25683:888584 */ t99855.s0.tag = EXTERNAL_SYMBOL_TYPE; t99855.s0.value.external_symbol_type = q322; /* x180562 stalin.sc:25683:888584 */ t99855.s1.tag = NULL_TYPE; /* x180563 stalin.sc:25683:888584 */ t99854.s1.tag = STRUCTURE_TYPE24753; t99854.s1.value.structure_type24753 = &t99855; /* x180564 stalin.sc:25683:888584 */ t99853.s1.tag = STRUCTURE_TYPE24753; t99853.s1.value.structure_type24753 = &t99854; /* x180565 stalin.sc:25683:888584 */ t99852.s0.tag = STRUCTURE_TYPE24753; t99852.s0.value.structure_type24753 = &t99853; /* x180566 stalin.sc:25683:888584 */ t99857.s0.tag = EXTERNAL_SYMBOL_TYPE; t99857.s0.value.external_symbol_type = q327; /* x180567 stalin.sc:25683:888584 */ t99859.s0.tag = EXTERNAL_SYMBOL_TYPE; t99859.s0.value.external_symbol_type = q130; /* x180568 stalin.sc:25683:888584 */ t99860.s0.tag = EXTERNAL_SYMBOL_TYPE; t99860.s0.value.external_symbol_type = q325; /* x180569 stalin.sc:25683:888584 */ t99861.s0.tag = EXTERNAL_SYMBOL_TYPE; t99861.s0.value.external_symbol_type = q312; /* x180570 stalin.sc:25683:888584 */ t99861.s1.tag = NULL_TYPE; /* x180571 stalin.sc:25683:888584 */ t99860.s1.tag = STRUCTURE_TYPE24753; t99860.s1.value.structure_type24753 = &t99861; /* x180572 stalin.sc:25683:888584 */ t99859.s1.tag = STRUCTURE_TYPE24753; t99859.s1.value.structure_type24753 = &t99860; /* x180573 stalin.sc:25683:888584 */ t99858.s0.tag = STRUCTURE_TYPE24753; t99858.s0.value.structure_type24753 = &t99859; /* x180574 stalin.sc:25683:888584 */ t99863.s0.tag = EXTERNAL_SYMBOL_TYPE; t99863.s0.value.external_symbol_type = q4; /* x180575 stalin.sc:25683:888584 */ t99864.s0.tag = EXTERNAL_SYMBOL_TYPE; t99864.s0.value.external_symbol_type = q313; /* x180576 stalin.sc:25683:888584 */ t99865.s0.tag = FIXNUM_TYPE; t99865.s0.value.fixnum_type = 1; /* x180577 stalin.sc:25683:888584 */ t99865.s1.tag = NULL_TYPE; /* x180578 stalin.sc:25683:888584 */ t99864.s1.tag = STRUCTURE_TYPE24753; t99864.s1.value.structure_type24753 = &t99865; /* x180579 stalin.sc:25683:888584 */ t99863.s1.tag = STRUCTURE_TYPE24753; t99863.s1.value.structure_type24753 = &t99864; /* x180580 stalin.sc:25683:888584 */ t99862.s0.tag = STRUCTURE_TYPE24753; t99862.s0.value.structure_type24753 = &t99863; /* x180581 stalin.sc:25683:888584 */ t99862.s1.tag = NULL_TYPE; /* x180582 stalin.sc:25683:888584 */ t99858.s1.tag = STRUCTURE_TYPE24753; t99858.s1.value.structure_type24753 = &t99862; /* x180583 stalin.sc:25683:888584 */ t99857.s1.tag = STRUCTURE_TYPE24753; t99857.s1.value.structure_type24753 = &t99858; /* x180584 stalin.sc:25683:888584 */ t99856.s0.tag = STRUCTURE_TYPE24753; t99856.s0.value.structure_type24753 = &t99857; /* x180585 stalin.sc:25683:888584 */ t99856.s1.tag = NULL_TYPE; /* x180586 stalin.sc:25683:888584 */ t99852.s1.tag = STRUCTURE_TYPE24753; t99852.s1.value.structure_type24753 = &t99856; /* x180587 stalin.sc:25683:888584 */ t99851.s0.tag = STRUCTURE_TYPE24753; t99851.s0.value.structure_type24753 = &t99852; /* x180588 stalin.sc:25683:888584 */ t99867.s0.tag = EXTERNAL_SYMBOL_TYPE; t99867.s0.value.external_symbol_type = q95; /* x180589 stalin.sc:25683:888584 */ t99869.s0.tag = EXTERNAL_SYMBOL_TYPE; t99869.s0.value.external_symbol_type = q106; /* x180590 stalin.sc:25683:888584 */ t99871.s0.tag = EXTERNAL_SYMBOL_TYPE; t99871.s0.value.external_symbol_type = q326; /* x180591 stalin.sc:25683:888584 */ t99872.s0.tag = EXTERNAL_SYMBOL_TYPE; t99872.s0.value.external_symbol_type = q315; /* x180592 stalin.sc:25683:888584 */ t99872.s1.tag = NULL_TYPE; /* x180593 stalin.sc:25683:888584 */ t99871.s1.tag = STRUCTURE_TYPE24753; t99871.s1.value.structure_type24753 = &t99872; /* x180594 stalin.sc:25683:888584 */ t99870.s0.tag = STRUCTURE_TYPE24753; t99870.s0.value.structure_type24753 = &t99871; /* x180595 stalin.sc:25683:888584 */ t99874.s0.tag = EXTERNAL_SYMBOL_TYPE; t99874.s0.value.external_symbol_type = q106; /* x180596 stalin.sc:25683:888584 */ t99875.s0.tag = ((unsigned)((unsigned char)'.'))<<2; /* x180597 stalin.sc:25683:888584 */ t99877.s0.tag = EXTERNAL_SYMBOL_TYPE; t99877.s0.value.external_symbol_type = q242; /* x180598 stalin.sc:25683:888584 */ t99878.s0.tag = EXTERNAL_SYMBOL_TYPE; t99878.s0.value.external_symbol_type = q287; /* x180599 stalin.sc:25683:888584 */ t99881.s0.tag = EXTERNAL_SYMBOL_TYPE; t99881.s0.value.external_symbol_type = q312; /* x180600 stalin.sc:25683:888584 */ t99883.s0.tag = EXTERNAL_SYMBOL_TYPE; t99883.s0.value.external_symbol_type = q130; /* x180601 stalin.sc:25683:888584 */ t99884.s0.tag = EXTERNAL_SYMBOL_TYPE; t99884.s0.value.external_symbol_type = q324; /* x180602 stalin.sc:25683:888584 */ t99886.s0.tag = EXTERNAL_SYMBOL_TYPE; t99886.s0.value.external_symbol_type = q2; /* x180603 stalin.sc:25683:888584 */ t99887.s0.tag = EXTERNAL_SYMBOL_TYPE; t99887.s0.value.external_symbol_type = q312; /* x180604 stalin.sc:25683:888584 */ t99888.s0.tag = EXTERNAL_SYMBOL_TYPE; t99888.s0.value.external_symbol_type = q314; /* x180605 stalin.sc:25683:888584 */ t99888.s1.tag = NULL_TYPE; /* x180606 stalin.sc:25683:888584 */ t99887.s1.tag = STRUCTURE_TYPE24753; t99887.s1.value.structure_type24753 = &t99888; /* x180607 stalin.sc:25683:888584 */ t99886.s1.tag = STRUCTURE_TYPE24753; t99886.s1.value.structure_type24753 = &t99887; /* x180608 stalin.sc:25683:888584 */ t99885.s0.tag = STRUCTURE_TYPE24753; t99885.s0.value.structure_type24753 = &t99886; /* x180609 stalin.sc:25683:888584 */ t99885.s1.tag = NULL_TYPE; /* x180610 stalin.sc:25683:888584 */ t99884.s1.tag = STRUCTURE_TYPE24753; t99884.s1.value.structure_type24753 = &t99885; /* x180611 stalin.sc:25683:888584 */ t99883.s1.tag = STRUCTURE_TYPE24753; t99883.s1.value.structure_type24753 = &t99884; /* x180612 stalin.sc:25683:888584 */ t99882.s0.tag = STRUCTURE_TYPE24753; t99882.s0.value.structure_type24753 = &t99883; /* x180613 stalin.sc:25683:888584 */ t99882.s1.tag = NULL_TYPE; /* x180614 stalin.sc:25683:888584 */ t99881.s1.tag = STRUCTURE_TYPE24753; t99881.s1.value.structure_type24753 = &t99882; /* x180615 stalin.sc:25683:888584 */ t99880.s0.tag = STRUCTURE_TYPE24753; t99880.s0.value.structure_type24753 = &t99881; /* x180616 stalin.sc:25683:888584 */ t99880.s1.tag = NULL_TYPE; /* x180617 stalin.sc:25683:888584 */ t99879.s0.tag = STRUCTURE_TYPE24753; t99879.s0.value.structure_type24753 = &t99880; /* x180618 stalin.sc:25683:888584 */ t99890.s0.tag = EXTERNAL_SYMBOL_TYPE; t99890.s0.value.external_symbol_type = q246; /* x180619 stalin.sc:25683:888584 */ t99893.s0.tag = EXTERNAL_SYMBOL_TYPE; t99893.s0.value.external_symbol_type = q314; /* x180620 stalin.sc:25683:888584 */ t99895.s0.tag = EXTERNAL_SYMBOL_TYPE; t99895.s0.value.external_symbol_type = q140; /* x180621 stalin.sc:25683:888584 */ t99896.s0.tag = EXTERNAL_SYMBOL_TYPE; t99896.s0.value.external_symbol_type = q312; /* x180622 stalin.sc:25683:888584 */ t99896.s1.tag = NULL_TYPE; /* x180623 stalin.sc:25683:888584 */ t99895.s1.tag = STRUCTURE_TYPE24753; t99895.s1.value.structure_type24753 = &t99896; /* x180624 stalin.sc:25683:888584 */ t99894.s0.tag = STRUCTURE_TYPE24753; t99894.s0.value.structure_type24753 = &t99895; /* x180625 stalin.sc:25683:888584 */ t99894.s1.tag = NULL_TYPE; /* x180626 stalin.sc:25683:888584 */ t99893.s1.tag = STRUCTURE_TYPE24753; t99893.s1.value.structure_type24753 = &t99894; /* x180627 stalin.sc:25683:888584 */ t99892.s0.tag = STRUCTURE_TYPE24753; t99892.s0.value.structure_type24753 = &t99893; /* x180628 stalin.sc:25683:888584 */ t99898.s0.tag = EXTERNAL_SYMBOL_TYPE; t99898.s0.value.external_symbol_type = q315; /* x180629 stalin.sc:25683:888584 */ t99900.s0.tag = EXTERNAL_SYMBOL_TYPE; t99900.s0.value.external_symbol_type = q155; /* x180630 stalin.sc:25683:888584 */ t99901.s0.tag = EXTERNAL_SYMBOL_TYPE; t99901.s0.value.external_symbol_type = q314; /* x180631 stalin.sc:25683:888584 */ t99901.s1.tag = NULL_TYPE; /* x180632 stalin.sc:25683:888584 */ t99900.s1.tag = STRUCTURE_TYPE24753; t99900.s1.value.structure_type24753 = &t99901; /* x180633 stalin.sc:25683:888584 */ t99899.s0.tag = STRUCTURE_TYPE24753; t99899.s0.value.structure_type24753 = &t99900; /* x180634 stalin.sc:25683:888584 */ t99899.s1.tag = NULL_TYPE; /* x180635 stalin.sc:25683:888584 */ t99898.s1.tag = STRUCTURE_TYPE24753; t99898.s1.value.structure_type24753 = &t99899; /* x180636 stalin.sc:25683:888584 */ t99897.s0.tag = STRUCTURE_TYPE24753; t99897.s0.value.structure_type24753 = &t99898; /* x180637 stalin.sc:25683:888584 */ t99897.s1.tag = NULL_TYPE; /* x180638 stalin.sc:25683:888584 */ t99892.s1.tag = STRUCTURE_TYPE24753; t99892.s1.value.structure_type24753 = &t99897; /* x180639 stalin.sc:25683:888584 */ t99891.s0.tag = STRUCTURE_TYPE24753; t99891.s0.value.structure_type24753 = &t99892; /* x180640 stalin.sc:25683:888584 */ t99903.s0.tag = EXTERNAL_SYMBOL_TYPE; t99903.s0.value.external_symbol_type = q106; /* x180641 stalin.sc:25683:888584 */ t99905.s0.tag = EXTERNAL_SYMBOL_TYPE; t99905.s0.value.external_symbol_type = q326; /* x180642 stalin.sc:25683:888584 */ t99906.s0.tag = EXTERNAL_SYMBOL_TYPE; t99906.s0.value.external_symbol_type = q315; /* x180643 stalin.sc:25683:888584 */ t99906.s1.tag = NULL_TYPE; /* x180644 stalin.sc:25683:888584 */ t99905.s1.tag = STRUCTURE_TYPE24753; t99905.s1.value.structure_type24753 = &t99906; /* x180645 stalin.sc:25683:888584 */ t99904.s0.tag = STRUCTURE_TYPE24753; t99904.s0.value.structure_type24753 = &t99905; /* x180646 stalin.sc:25683:888584 */ t99908.s0.tag = EXTERNAL_SYMBOL_TYPE; t99908.s0.value.external_symbol_type = q242; /* x180647 stalin.sc:25683:888584 */ t99911.s0.tag = EXTERNAL_SYMBOL_TYPE; t99911.s0.value.external_symbol_type = q312; /* x180648 stalin.sc:25683:888584 */ t99913.s0.tag = EXTERNAL_SYMBOL_TYPE; t99913.s0.value.external_symbol_type = q130; /* x180649 stalin.sc:25683:888584 */ t99914.s0.tag = EXTERNAL_SYMBOL_TYPE; t99914.s0.value.external_symbol_type = q324; /* x180650 stalin.sc:25683:888584 */ t99916.s0.tag = EXTERNAL_SYMBOL_TYPE; t99916.s0.value.external_symbol_type = q2; /* x180651 stalin.sc:25683:888584 */ t99917.s0.tag = EXTERNAL_SYMBOL_TYPE; t99917.s0.value.external_symbol_type = q312; /* x180652 stalin.sc:25683:888584 */ t99918.s0.tag = EXTERNAL_SYMBOL_TYPE; t99918.s0.value.external_symbol_type = q314; /* x180653 stalin.sc:25683:888584 */ t99918.s1.tag = NULL_TYPE; /* x180654 stalin.sc:25683:888584 */ t99917.s1.tag = STRUCTURE_TYPE24753; t99917.s1.value.structure_type24753 = &t99918; /* x180655 stalin.sc:25683:888584 */ t99916.s1.tag = STRUCTURE_TYPE24753; t99916.s1.value.structure_type24753 = &t99917; /* x180656 stalin.sc:25683:888584 */ t99915.s0.tag = STRUCTURE_TYPE24753; t99915.s0.value.structure_type24753 = &t99916; /* x180657 stalin.sc:25683:888584 */ t99915.s1.tag = NULL_TYPE; /* x180658 stalin.sc:25683:888584 */ t99914.s1.tag = STRUCTURE_TYPE24753; t99914.s1.value.structure_type24753 = &t99915; /* x180659 stalin.sc:25683:888584 */ t99913.s1.tag = STRUCTURE_TYPE24753; t99913.s1.value.structure_type24753 = &t99914; /* x180660 stalin.sc:25683:888584 */ t99912.s0.tag = STRUCTURE_TYPE24753; t99912.s0.value.structure_type24753 = &t99913; /* x180661 stalin.sc:25683:888584 */ t99912.s1.tag = NULL_TYPE; /* x180662 stalin.sc:25683:888584 */ t99911.s1.tag = STRUCTURE_TYPE24753; t99911.s1.value.structure_type24753 = &t99912; /* x180663 stalin.sc:25683:888584 */ t99910.s0.tag = STRUCTURE_TYPE24753; t99910.s0.value.structure_type24753 = &t99911; /* x180664 stalin.sc:25683:888584 */ t99910.s1.tag = NULL_TYPE; /* x180665 stalin.sc:25683:888584 */ t99909.s0.tag = STRUCTURE_TYPE24753; t99909.s0.value.structure_type24753 = &t99910; /* x180666 stalin.sc:25683:888584 */ t99920.s0.tag = EXTERNAL_SYMBOL_TYPE; t99920.s0.value.external_symbol_type = q43; /* x180667 stalin.sc:25683:888584 */ t99922.s0.tag = EXTERNAL_SYMBOL_TYPE; t99922.s0.value.external_symbol_type = q125; /* x180668 stalin.sc:25683:888584 */ t99923.s0.tag = EXTERNAL_SYMBOL_TYPE; t99923.s0.value.external_symbol_type = q312; /* x180669 stalin.sc:25683:888584 */ t99923.s1.tag = NULL_TYPE; /* x180670 stalin.sc:25683:888584 */ t99922.s1.tag = STRUCTURE_TYPE24753; t99922.s1.value.structure_type24753 = &t99923; /* x180671 stalin.sc:25683:888584 */ t99921.s0.tag = STRUCTURE_TYPE24753; t99921.s0.value.structure_type24753 = &t99922; /* x180672 stalin.sc:25683:888584 */ t99925.s0.tag = EXTERNAL_SYMBOL_TYPE; t99925.s0.value.external_symbol_type = q43; /* x180673 stalin.sc:25683:888584 */ t99927.s0.tag = EXTERNAL_SYMBOL_TYPE; t99927.s0.value.external_symbol_type = q125; /* x180674 stalin.sc:25683:888584 */ t99928.s0.tag = EXTERNAL_SYMBOL_TYPE; t99928.s0.value.external_symbol_type = q313; /* x180675 stalin.sc:25683:888584 */ t99928.s1.tag = NULL_TYPE; /* x180676 stalin.sc:25683:888584 */ t99927.s1.tag = STRUCTURE_TYPE24753; t99927.s1.value.structure_type24753 = &t99928; /* x180677 stalin.sc:25683:888584 */ t99926.s0.tag = STRUCTURE_TYPE24753; t99926.s0.value.structure_type24753 = &t99927; /* x180678 stalin.sc:25683:888584 */ t99930.s0.tag = EXTERNAL_SYMBOL_TYPE; t99930.s0.value.external_symbol_type = q11; /* x180679 stalin.sc:25683:888584 */ t99931.s0.tag = NULL_TYPE; /* x180680 stalin.sc:25683:888584 */ t99931.s1.tag = NULL_TYPE; /* x180681 stalin.sc:25683:888584 */ t99930.s1.tag = STRUCTURE_TYPE24753; t99930.s1.value.structure_type24753 = &t99931; /* x180682 stalin.sc:25683:888584 */ t99929.s0.tag = STRUCTURE_TYPE24753; t99929.s0.value.structure_type24753 = &t99930; /* x180683 stalin.sc:25683:888584 */ t99933.s0.tag = EXTERNAL_SYMBOL_TYPE; t99933.s0.value.external_symbol_type = q106; /* x180684 stalin.sc:25683:888584 */ t99934.s0.tag = ((unsigned)((unsigned char)'e'))<<2; /* x180685 stalin.sc:25683:888584 */ t99936.s0.tag = EXTERNAL_SYMBOL_TYPE; t99936.s0.value.external_symbol_type = q240; /* x180686 stalin.sc:25683:888584 */ t99939.s0.tag = EXTERNAL_SYMBOL_TYPE; t99939.s0.value.external_symbol_type = q126; /* x180687 stalin.sc:25683:888584 */ t99940.s0.tag = EXTERNAL_SYMBOL_TYPE; t99940.s0.value.external_symbol_type = q313; /* x180688 stalin.sc:25683:888584 */ t99940.s1.tag = NULL_TYPE; /* x180689 stalin.sc:25683:888584 */ t99939.s1.tag = STRUCTURE_TYPE24753; t99939.s1.value.structure_type24753 = &t99940; /* x180690 stalin.sc:25683:888584 */ t99938.s0.tag = STRUCTURE_TYPE24753; t99938.s0.value.structure_type24753 = &t99939; /* x180691 stalin.sc:25683:888584 */ t99942.s0.tag = EXTERNAL_SYMBOL_TYPE; t99942.s0.value.external_symbol_type = q242; /* x180692 stalin.sc:25683:888584 */ t99943.s0.tag = EXTERNAL_SYMBOL_TYPE; t99943.s0.value.external_symbol_type = q287; /* x180693 stalin.sc:25683:888584 */ t99946.s0.tag = EXTERNAL_SYMBOL_TYPE; t99946.s0.value.external_symbol_type = q313; /* x180694 stalin.sc:25683:888584 */ t99947.s0.tag = EXTERNAL_SYMBOL_TYPE; t99947.s0.value.external_symbol_type = q313; /* x180695 stalin.sc:25683:888584 */ t99947.s1.tag = NULL_TYPE; /* x180696 stalin.sc:25683:888584 */ t99946.s1.tag = STRUCTURE_TYPE24753; t99946.s1.value.structure_type24753 = &t99947; /* x180697 stalin.sc:25683:888584 */ t99945.s0.tag = STRUCTURE_TYPE24753; t99945.s0.value.structure_type24753 = &t99946; /* x180698 stalin.sc:25683:888584 */ t99949.s0.tag = EXTERNAL_SYMBOL_TYPE; t99949.s0.value.external_symbol_type = q328; /* x180699 stalin.sc:25683:888584 */ t99951.s0.tag = EXTERNAL_SYMBOL_TYPE; t99951.s0.value.external_symbol_type = q11; /* x180700 stalin.sc:25683:888584 */ t99952.s0.tag = NULL_TYPE; /* x180701 stalin.sc:25683:888584 */ t99952.s1.tag = NULL_TYPE; /* x180702 stalin.sc:25683:888584 */ t99951.s1.tag = STRUCTURE_TYPE24753; t99951.s1.value.structure_type24753 = &t99952; /* x180703 stalin.sc:25683:888584 */ t99950.s0.tag = STRUCTURE_TYPE24753; t99950.s0.value.structure_type24753 = &t99951; /* x180704 stalin.sc:25683:888584 */ t99950.s1.tag = NULL_TYPE; /* x180705 stalin.sc:25683:888584 */ t99949.s1.tag = STRUCTURE_TYPE24753; t99949.s1.value.structure_type24753 = &t99950; /* x180706 stalin.sc:25683:888584 */ t99948.s0.tag = STRUCTURE_TYPE24753; t99948.s0.value.structure_type24753 = &t99949; /* x180707 stalin.sc:25683:888584 */ t99948.s1.tag = NULL_TYPE; /* x180708 stalin.sc:25683:888584 */ t99945.s1.tag = STRUCTURE_TYPE24753; t99945.s1.value.structure_type24753 = &t99948; /* x180709 stalin.sc:25683:888584 */ t99944.s0.tag = STRUCTURE_TYPE24753; t99944.s0.value.structure_type24753 = &t99945; /* x180710 stalin.sc:25683:888584 */ t99954.s0.tag = EXTERNAL_SYMBOL_TYPE; t99954.s0.value.external_symbol_type = q43; /* x180711 stalin.sc:25683:888584 */ t99956.s0.tag = EXTERNAL_SYMBOL_TYPE; t99956.s0.value.external_symbol_type = q125; /* x180712 stalin.sc:25683:888584 */ t99957.s0.tag = EXTERNAL_SYMBOL_TYPE; t99957.s0.value.external_symbol_type = q313; /* x180713 stalin.sc:25683:888584 */ t99957.s1.tag = NULL_TYPE; /* x180714 stalin.sc:25683:888584 */ t99956.s1.tag = STRUCTURE_TYPE24753; t99956.s1.value.structure_type24753 = &t99957; /* x180715 stalin.sc:25683:888584 */ t99955.s0.tag = STRUCTURE_TYPE24753; t99955.s0.value.structure_type24753 = &t99956; /* x180716 stalin.sc:25683:888584 */ t99958.s0.tag = EXTERNAL_SYMBOL_TYPE; t99958.s0.value.external_symbol_type = q328; /* x180717 stalin.sc:25683:888584 */ t99960.s0.tag = EXTERNAL_SYMBOL_TYPE; t99960.s0.value.external_symbol_type = q287; /* x180718 stalin.sc:25683:888584 */ t99962.s0.tag = EXTERNAL_SYMBOL_TYPE; t99962.s0.value.external_symbol_type = q132; /* x180719 stalin.sc:25683:888584 */ t99963.s0.tag = EXTERNAL_SYMBOL_TYPE; t99963.s0.value.external_symbol_type = q313; /* x180720 stalin.sc:25683:888584 */ t99964.s0.tag = EXTERNAL_SYMBOL_TYPE; t99964.s0.value.external_symbol_type = q322; /* x180721 stalin.sc:25683:888584 */ t99964.s1.tag = NULL_TYPE; /* x180722 stalin.sc:25683:888584 */ t99963.s1.tag = STRUCTURE_TYPE24753; t99963.s1.value.structure_type24753 = &t99964; /* x180723 stalin.sc:25683:888584 */ t99962.s1.tag = STRUCTURE_TYPE24753; t99962.s1.value.structure_type24753 = &t99963; /* x180724 stalin.sc:25683:888584 */ t99961.s0.tag = STRUCTURE_TYPE24753; t99961.s0.value.structure_type24753 = &t99962; /* x180725 stalin.sc:25683:888584 */ t99966.s0.tag = EXTERNAL_SYMBOL_TYPE; t99966.s0.value.external_symbol_type = q106; /* x180726 stalin.sc:25683:888584 */ t99968.s0.tag = EXTERNAL_SYMBOL_TYPE; t99968.s0.value.external_symbol_type = q326; /* x180727 stalin.sc:25683:888584 */ t99970.s0.tag = EXTERNAL_SYMBOL_TYPE; t99970.s0.value.external_symbol_type = q133; /* x180728 stalin.sc:25683:888584 */ t99971.s0.tag = EXTERNAL_SYMBOL_TYPE; t99971.s0.value.external_symbol_type = q313; /* x180729 stalin.sc:25683:888584 */ t99972.s0.tag = EXTERNAL_SYMBOL_TYPE; t99972.s0.value.external_symbol_type = q322; /* x180730 stalin.sc:25683:888584 */ t99972.s1.tag = NULL_TYPE; /* x180731 stalin.sc:25683:888584 */ t99971.s1.tag = STRUCTURE_TYPE24753; t99971.s1.value.structure_type24753 = &t99972; /* x180732 stalin.sc:25683:888584 */ t99970.s1.tag = STRUCTURE_TYPE24753; t99970.s1.value.structure_type24753 = &t99971; /* x180733 stalin.sc:25683:888584 */ t99969.s0.tag = STRUCTURE_TYPE24753; t99969.s0.value.structure_type24753 = &t99970; /* x180734 stalin.sc:25683:888584 */ t99969.s1.tag = NULL_TYPE; /* x180735 stalin.sc:25683:888584 */ t99968.s1.tag = STRUCTURE_TYPE24753; t99968.s1.value.structure_type24753 = &t99969; /* x180736 stalin.sc:25683:888584 */ t99967.s0.tag = STRUCTURE_TYPE24753; t99967.s0.value.structure_type24753 = &t99968; /* x180737 stalin.sc:25683:888584 */ t99973.s0.tag = EXTERNAL_SYMBOL_TYPE; t99973.s0.value.external_symbol_type = q328; /* x180738 stalin.sc:25683:888584 */ t99973.s1.tag = NULL_TYPE; /* x180739 stalin.sc:25683:888584 */ t99967.s1.tag = STRUCTURE_TYPE24753; t99967.s1.value.structure_type24753 = &t99973; /* x180740 stalin.sc:25683:888584 */ t99966.s1.tag = STRUCTURE_TYPE24753; t99966.s1.value.structure_type24753 = &t99967; /* x180741 stalin.sc:25683:888584 */ t99965.s0.tag = STRUCTURE_TYPE24753; t99965.s0.value.structure_type24753 = &t99966; /* x180742 stalin.sc:25683:888584 */ t99965.s1.tag = NULL_TYPE; /* x180743 stalin.sc:25683:888584 */ t99961.s1.tag = STRUCTURE_TYPE24753; t99961.s1.value.structure_type24753 = &t99965; /* x180744 stalin.sc:25683:888584 */ t99960.s1.tag = STRUCTURE_TYPE24753; t99960.s1.value.structure_type24753 = &t99961; /* x180745 stalin.sc:25683:888584 */ t99959.s0.tag = STRUCTURE_TYPE24753; t99959.s0.value.structure_type24753 = &t99960; /* x180746 stalin.sc:25683:888584 */ t99959.s1.tag = NULL_TYPE; /* x180747 stalin.sc:25683:888584 */ t99958.s1.tag = STRUCTURE_TYPE24753; t99958.s1.value.structure_type24753 = &t99959; /* x180748 stalin.sc:25683:888584 */ t99955.s1.tag = STRUCTURE_TYPE24753; t99955.s1.value.structure_type24753 = &t99958; /* x180749 stalin.sc:25683:888584 */ t99954.s1.tag = STRUCTURE_TYPE24753; t99954.s1.value.structure_type24753 = &t99955; /* x180750 stalin.sc:25683:888584 */ t99953.s0.tag = STRUCTURE_TYPE24753; t99953.s0.value.structure_type24753 = &t99954; /* x180751 stalin.sc:25683:888584 */ t99953.s1.tag = NULL_TYPE; /* x180752 stalin.sc:25683:888584 */ t99944.s1.tag = STRUCTURE_TYPE24753; t99944.s1.value.structure_type24753 = &t99953; /* x180753 stalin.sc:25683:888584 */ t99943.s1.tag = STRUCTURE_TYPE24753; t99943.s1.value.structure_type24753 = &t99944; /* x180754 stalin.sc:25683:888584 */ t99942.s1.tag = STRUCTURE_TYPE24753; t99942.s1.value.structure_type24753 = &t99943; /* x180755 stalin.sc:25683:888584 */ t99941.s0.tag = STRUCTURE_TYPE24753; t99941.s0.value.structure_type24753 = &t99942; /* x180756 stalin.sc:25683:888584 */ t99941.s1.tag = NULL_TYPE; /* x180757 stalin.sc:25683:888584 */ t99938.s1.tag = STRUCTURE_TYPE24753; t99938.s1.value.structure_type24753 = &t99941; /* x180758 stalin.sc:25683:888584 */ t99937.s0.tag = STRUCTURE_TYPE24753; t99937.s0.value.structure_type24753 = &t99938; /* x180759 stalin.sc:25683:888584 */ t99976.s0.tag = EXTERNAL_SYMBOL_TYPE; t99976.s0.value.external_symbol_type = q127; /* x180760 stalin.sc:25683:888584 */ t99977.s0.tag = EXTERNAL_SYMBOL_TYPE; t99977.s0.value.external_symbol_type = q313; /* x180761 stalin.sc:25683:888584 */} void initialize_constants35(void) {t99977.s1.tag = NULL_TYPE; /* x180762 stalin.sc:25683:888584 */ t99976.s1.tag = STRUCTURE_TYPE24753; t99976.s1.value.structure_type24753 = &t99977; /* x180763 stalin.sc:25683:888584 */ t99975.s0.tag = STRUCTURE_TYPE24753; t99975.s0.value.structure_type24753 = &t99976; /* x180764 stalin.sc:25683:888584 */ t99979.s0.tag = EXTERNAL_SYMBOL_TYPE; t99979.s0.value.external_symbol_type = q242; /* x180765 stalin.sc:25683:888584 */ t99980.s0.tag = EXTERNAL_SYMBOL_TYPE; t99980.s0.value.external_symbol_type = q287; /* x180766 stalin.sc:25683:888584 */ t99983.s0.tag = EXTERNAL_SYMBOL_TYPE; t99983.s0.value.external_symbol_type = q313; /* x180767 stalin.sc:25683:888584 */ t99984.s0.tag = EXTERNAL_SYMBOL_TYPE; t99984.s0.value.external_symbol_type = q313; /* x180768 stalin.sc:25683:888584 */ t99984.s1.tag = NULL_TYPE; /* x180769 stalin.sc:25683:888584 */ t99983.s1.tag = STRUCTURE_TYPE24753; t99983.s1.value.structure_type24753 = &t99984; /* x180770 stalin.sc:25683:888584 */ t99982.s0.tag = STRUCTURE_TYPE24753; t99982.s0.value.structure_type24753 = &t99983; /* x180771 stalin.sc:25683:888584 */ t99986.s0.tag = EXTERNAL_SYMBOL_TYPE; t99986.s0.value.external_symbol_type = q328; /* x180772 stalin.sc:25683:888584 */ t99988.s0.tag = EXTERNAL_SYMBOL_TYPE; t99988.s0.value.external_symbol_type = q11; /* x180773 stalin.sc:25683:888584 */ t99989.s0.tag = NULL_TYPE; /* x180774 stalin.sc:25683:888584 */ t99989.s1.tag = NULL_TYPE; /* x180775 stalin.sc:25683:888584 */ t99988.s1.tag = STRUCTURE_TYPE24753; t99988.s1.value.structure_type24753 = &t99989; /* x180776 stalin.sc:25683:888584 */ t99987.s0.tag = STRUCTURE_TYPE24753; t99987.s0.value.structure_type24753 = &t99988; /* x180777 stalin.sc:25683:888584 */ t99987.s1.tag = NULL_TYPE; /* x180778 stalin.sc:25683:888584 */ t99986.s1.tag = STRUCTURE_TYPE24753; t99986.s1.value.structure_type24753 = &t99987; /* x180779 stalin.sc:25683:888584 */ t99985.s0.tag = STRUCTURE_TYPE24753; t99985.s0.value.structure_type24753 = &t99986; /* x180780 stalin.sc:25683:888584 */ t99985.s1.tag = NULL_TYPE; /* x180781 stalin.sc:25683:888584 */ t99982.s1.tag = STRUCTURE_TYPE24753; t99982.s1.value.structure_type24753 = &t99985; /* x180782 stalin.sc:25683:888584 */ t99981.s0.tag = STRUCTURE_TYPE24753; t99981.s0.value.structure_type24753 = &t99982; /* x180783 stalin.sc:25683:888584 */ t99991.s0.tag = EXTERNAL_SYMBOL_TYPE; t99991.s0.value.external_symbol_type = q43; /* x180784 stalin.sc:25683:888584 */ t99993.s0.tag = EXTERNAL_SYMBOL_TYPE; t99993.s0.value.external_symbol_type = q125; /* x180785 stalin.sc:25683:888584 */ t99994.s0.tag = EXTERNAL_SYMBOL_TYPE; t99994.s0.value.external_symbol_type = q313; /* x180786 stalin.sc:25683:888584 */ t99994.s1.tag = NULL_TYPE; /* x180787 stalin.sc:25683:888584 */ t99993.s1.tag = STRUCTURE_TYPE24753; t99993.s1.value.structure_type24753 = &t99994; /* x180788 stalin.sc:25683:888584 */ t99992.s0.tag = STRUCTURE_TYPE24753; t99992.s0.value.structure_type24753 = &t99993; /* x180789 stalin.sc:25683:888584 */ t99996.s0.tag = EXTERNAL_SYMBOL_TYPE; t99996.s0.value.external_symbol_type = q106; /* x180790 stalin.sc:25683:888584 */ t99997.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x180791 stalin.sc:25683:888584 */ t99998.s0.tag = EXTERNAL_SYMBOL_TYPE; t99998.s0.value.external_symbol_type = q328; /* x180792 stalin.sc:25683:888584 */ t99998.s1.tag = NULL_TYPE; /* x180793 stalin.sc:25683:888584 */ t99997.s1.tag = STRUCTURE_TYPE24753; t99997.s1.value.structure_type24753 = &t99998; /* x180794 stalin.sc:25683:888584 */ t99996.s1.tag = STRUCTURE_TYPE24753; t99996.s1.value.structure_type24753 = &t99997; /* x180795 stalin.sc:25683:888584 */ t99995.s0.tag = STRUCTURE_TYPE24753; t99995.s0.value.structure_type24753 = &t99996; /* x180796 stalin.sc:25683:888584 */ t100000.s0.tag = EXTERNAL_SYMBOL_TYPE; t100000.s0.value.external_symbol_type = q287; /* x180797 stalin.sc:25683:888584 */ t100002.s0.tag = EXTERNAL_SYMBOL_TYPE; t100002.s0.value.external_symbol_type = q132; /* x180798 stalin.sc:25683:888584 */ t100003.s0.tag = EXTERNAL_SYMBOL_TYPE; t100003.s0.value.external_symbol_type = q313; /* x180799 stalin.sc:25683:888584 */ t100004.s0.tag = EXTERNAL_SYMBOL_TYPE; t100004.s0.value.external_symbol_type = q322; /* x180800 stalin.sc:25683:888584 */ t100004.s1.tag = NULL_TYPE; /* x180801 stalin.sc:25683:888584 */ t100003.s1.tag = STRUCTURE_TYPE24753; t100003.s1.value.structure_type24753 = &t100004; /* x180802 stalin.sc:25683:888584 */ t100002.s1.tag = STRUCTURE_TYPE24753; t100002.s1.value.structure_type24753 = &t100003; /* x180803 stalin.sc:25683:888584 */ t100001.s0.tag = STRUCTURE_TYPE24753; t100001.s0.value.structure_type24753 = &t100002; /* x180804 stalin.sc:25683:888584 */ t100006.s0.tag = EXTERNAL_SYMBOL_TYPE; t100006.s0.value.external_symbol_type = q106; /* x180805 stalin.sc:25683:888584 */ t100008.s0.tag = EXTERNAL_SYMBOL_TYPE; t100008.s0.value.external_symbol_type = q326; /* x180806 stalin.sc:25683:888584 */ t100010.s0.tag = EXTERNAL_SYMBOL_TYPE; t100010.s0.value.external_symbol_type = q2; /* x180807 stalin.sc:25683:888584 */ t100012.s0.tag = EXTERNAL_SYMBOL_TYPE; t100012.s0.value.external_symbol_type = q133; /* x180808 stalin.sc:25683:888584 */ t100013.s0.tag = EXTERNAL_SYMBOL_TYPE; t100013.s0.value.external_symbol_type = q313; /* x180809 stalin.sc:25683:888584 */ t100014.s0.tag = EXTERNAL_SYMBOL_TYPE; t100014.s0.value.external_symbol_type = q322; /* x180810 stalin.sc:25683:888584 */ t100014.s1.tag = NULL_TYPE; /* x180811 stalin.sc:25683:888584 */ t100013.s1.tag = STRUCTURE_TYPE24753; t100013.s1.value.structure_type24753 = &t100014; /* x180812 stalin.sc:25683:888584 */ t100012.s1.tag = STRUCTURE_TYPE24753; t100012.s1.value.structure_type24753 = &t100013; /* x180813 stalin.sc:25683:888584 */ t100011.s0.tag = STRUCTURE_TYPE24753; t100011.s0.value.structure_type24753 = &t100012; /* x180814 stalin.sc:25683:888584 */ t100011.s1.tag = NULL_TYPE; /* x180815 stalin.sc:25683:888584 */ t100010.s1.tag = STRUCTURE_TYPE24753; t100010.s1.value.structure_type24753 = &t100011; /* x180816 stalin.sc:25683:888584 */ t100009.s0.tag = STRUCTURE_TYPE24753; t100009.s0.value.structure_type24753 = &t100010; /* x180817 stalin.sc:25683:888584 */ t100009.s1.tag = NULL_TYPE; /* x180818 stalin.sc:25683:888584 */ t100008.s1.tag = STRUCTURE_TYPE24753; t100008.s1.value.structure_type24753 = &t100009; /* x180819 stalin.sc:25683:888584 */ t100007.s0.tag = STRUCTURE_TYPE24753; t100007.s0.value.structure_type24753 = &t100008; /* x180820 stalin.sc:25683:888584 */ t100015.s0.tag = EXTERNAL_SYMBOL_TYPE; t100015.s0.value.external_symbol_type = q328; /* x180821 stalin.sc:25683:888584 */ t100015.s1.tag = NULL_TYPE; /* x180822 stalin.sc:25683:888584 */ t100007.s1.tag = STRUCTURE_TYPE24753; t100007.s1.value.structure_type24753 = &t100015; /* x180823 stalin.sc:25683:888584 */ t100006.s1.tag = STRUCTURE_TYPE24753; t100006.s1.value.structure_type24753 = &t100007; /* x180824 stalin.sc:25683:888584 */ t100005.s0.tag = STRUCTURE_TYPE24753; t100005.s0.value.structure_type24753 = &t100006; /* x180825 stalin.sc:25683:888584 */ t100005.s1.tag = NULL_TYPE; /* x180826 stalin.sc:25683:888584 */ t100001.s1.tag = STRUCTURE_TYPE24753; t100001.s1.value.structure_type24753 = &t100005; /* x180827 stalin.sc:25683:888584 */ t100000.s1.tag = STRUCTURE_TYPE24753; t100000.s1.value.structure_type24753 = &t100001; /* x180828 stalin.sc:25683:888584 */ t99999.s0.tag = STRUCTURE_TYPE24753; t99999.s0.value.structure_type24753 = &t100000; /* x180829 stalin.sc:25683:888584 */ t99999.s1.tag = NULL_TYPE; /* x180830 stalin.sc:25683:888584 */ t99995.s1.tag = STRUCTURE_TYPE24753; t99995.s1.value.structure_type24753 = &t99999; /* x180831 stalin.sc:25683:888584 */ t99992.s1.tag = STRUCTURE_TYPE24753; t99992.s1.value.structure_type24753 = &t99995; /* x180832 stalin.sc:25683:888584 */ t99991.s1.tag = STRUCTURE_TYPE24753; t99991.s1.value.structure_type24753 = &t99992; /* x180833 stalin.sc:25683:888584 */ t99990.s0.tag = STRUCTURE_TYPE24753; t99990.s0.value.structure_type24753 = &t99991; /* x180834 stalin.sc:25683:888584 */ t99990.s1.tag = NULL_TYPE; /* x180835 stalin.sc:25683:888584 */ t99981.s1.tag = STRUCTURE_TYPE24753; t99981.s1.value.structure_type24753 = &t99990; /* x180836 stalin.sc:25683:888584 */ t99980.s1.tag = STRUCTURE_TYPE24753; t99980.s1.value.structure_type24753 = &t99981; /* x180837 stalin.sc:25683:888584 */ t99979.s1.tag = STRUCTURE_TYPE24753; t99979.s1.value.structure_type24753 = &t99980; /* x180838 stalin.sc:25683:888584 */ t99978.s0.tag = STRUCTURE_TYPE24753; t99978.s0.value.structure_type24753 = &t99979; /* x180839 stalin.sc:25683:888584 */ t99978.s1.tag = NULL_TYPE; /* x180840 stalin.sc:25683:888584 */ t99975.s1.tag = STRUCTURE_TYPE24753; t99975.s1.value.structure_type24753 = &t99978; /* x180841 stalin.sc:25683:888584 */ t99974.s0.tag = STRUCTURE_TYPE24753; t99974.s0.value.structure_type24753 = &t99975; /* x180842 stalin.sc:25683:888584 */ t99974.s1.tag = NULL_TYPE; /* x180843 stalin.sc:25683:888584 */ t99937.s1.tag = STRUCTURE_TYPE24753; t99937.s1.value.structure_type24753 = &t99974; /* x180844 stalin.sc:25683:888584 */ t99936.s1.tag = STRUCTURE_TYPE24753; t99936.s1.value.structure_type24753 = &t99937; /* x180845 stalin.sc:25683:888584 */ t99935.s0.tag = STRUCTURE_TYPE24753; t99935.s0.value.structure_type24753 = &t99936; /* x180846 stalin.sc:25683:888584 */ t99935.s1.tag = NULL_TYPE; /* x180847 stalin.sc:25683:888584 */ t99934.s1.tag = STRUCTURE_TYPE24753; t99934.s1.value.structure_type24753 = &t99935; /* x180848 stalin.sc:25683:888584 */ t99933.s1.tag = STRUCTURE_TYPE24753; t99933.s1.value.structure_type24753 = &t99934; /* x180849 stalin.sc:25683:888584 */ t99932.s0.tag = STRUCTURE_TYPE24753; t99932.s0.value.structure_type24753 = &t99933; /* x180850 stalin.sc:25683:888584 */ t99932.s1.tag = NULL_TYPE; /* x180851 stalin.sc:25683:888584 */ t99929.s1.tag = STRUCTURE_TYPE24753; t99929.s1.value.structure_type24753 = &t99932; /* x180852 stalin.sc:25683:888584 */ t99926.s1.tag = STRUCTURE_TYPE24753; t99926.s1.value.structure_type24753 = &t99929; /* x180853 stalin.sc:25683:888584 */ t99925.s1.tag = STRUCTURE_TYPE24753; t99925.s1.value.structure_type24753 = &t99926; /* x180854 stalin.sc:25683:888584 */ t99924.s0.tag = STRUCTURE_TYPE24753; t99924.s0.value.structure_type24753 = &t99925; /* x180855 stalin.sc:25683:888584 */ t100017.s0.tag = EXTERNAL_SYMBOL_TYPE; t100017.s0.value.external_symbol_type = q287; /* x180856 stalin.sc:25683:888584 */ t100018.s0.tag = EXTERNAL_SYMBOL_TYPE; t100018.s0.value.external_symbol_type = q312; /* x180857 stalin.sc:25683:888584 */ t100018.s1.tag = NULL_TYPE; /* x180858 stalin.sc:25683:888584 */ t100017.s1.tag = STRUCTURE_TYPE24753; t100017.s1.value.structure_type24753 = &t100018; /* x180859 stalin.sc:25683:888584 */ t100016.s0.tag = STRUCTURE_TYPE24753; t100016.s0.value.structure_type24753 = &t100017; /* x180860 stalin.sc:25683:888584 */ t100016.s1.tag = NULL_TYPE; /* x180861 stalin.sc:25683:888584 */ t99924.s1.tag = STRUCTURE_TYPE24753; t99924.s1.value.structure_type24753 = &t100016; /* x180862 stalin.sc:25683:888584 */ t99921.s1.tag = STRUCTURE_TYPE24753; t99921.s1.value.structure_type24753 = &t99924; /* x180863 stalin.sc:25683:888584 */ t99920.s1.tag = STRUCTURE_TYPE24753; t99920.s1.value.structure_type24753 = &t99921; /* x180864 stalin.sc:25683:888584 */ t99919.s0.tag = STRUCTURE_TYPE24753; t99919.s0.value.structure_type24753 = &t99920; /* x180865 stalin.sc:25683:888584 */ t99919.s1.tag = NULL_TYPE; /* x180866 stalin.sc:25683:888584 */ t99909.s1.tag = STRUCTURE_TYPE24753; t99909.s1.value.structure_type24753 = &t99919; /* x180867 stalin.sc:25683:888584 */ t99908.s1.tag = STRUCTURE_TYPE24753; t99908.s1.value.structure_type24753 = &t99909; /* x180868 stalin.sc:25683:888584 */ t99907.s0.tag = STRUCTURE_TYPE24753; t99907.s0.value.structure_type24753 = &t99908; /* x180869 stalin.sc:25683:888584 */ t99907.s1.tag = NULL_TYPE; /* x180870 stalin.sc:25683:888584 */ t99904.s1.tag = STRUCTURE_TYPE24753; t99904.s1.value.structure_type24753 = &t99907; /* x180871 stalin.sc:25683:888584 */ t99903.s1.tag = STRUCTURE_TYPE24753; t99903.s1.value.structure_type24753 = &t99904; /* x180872 stalin.sc:25683:888584 */ t99902.s0.tag = STRUCTURE_TYPE24753; t99902.s0.value.structure_type24753 = &t99903; /* x180873 stalin.sc:25683:888584 */ t99902.s1.tag = NULL_TYPE; /* x180874 stalin.sc:25683:888584 */ t99891.s1.tag = STRUCTURE_TYPE24753; t99891.s1.value.structure_type24753 = &t99902; /* x180875 stalin.sc:25683:888584 */ t99890.s1.tag = STRUCTURE_TYPE24753; t99890.s1.value.structure_type24753 = &t99891; /* x180876 stalin.sc:25683:888584 */ t99889.s0.tag = STRUCTURE_TYPE24753; t99889.s0.value.structure_type24753 = &t99890; /* x180877 stalin.sc:25683:888584 */ t99889.s1.tag = NULL_TYPE; /* x180878 stalin.sc:25683:888584 */ t99879.s1.tag = STRUCTURE_TYPE24753; t99879.s1.value.structure_type24753 = &t99889; /* x180879 stalin.sc:25683:888584 */ t99878.s1.tag = STRUCTURE_TYPE24753; t99878.s1.value.structure_type24753 = &t99879; /* x180880 stalin.sc:25683:888584 */ t99877.s1.tag = STRUCTURE_TYPE24753; t99877.s1.value.structure_type24753 = &t99878; /* x180881 stalin.sc:25683:888584 */ t99876.s0.tag = STRUCTURE_TYPE24753; t99876.s0.value.structure_type24753 = &t99877; /* x180882 stalin.sc:25683:888584 */ t99876.s1.tag = NULL_TYPE; /* x180883 stalin.sc:25683:888584 */ t99875.s1.tag = STRUCTURE_TYPE24753; t99875.s1.value.structure_type24753 = &t99876; /* x180884 stalin.sc:25683:888584 */ t99874.s1.tag = STRUCTURE_TYPE24753; t99874.s1.value.structure_type24753 = &t99875; /* x180885 stalin.sc:25683:888584 */ t99873.s0.tag = STRUCTURE_TYPE24753; t99873.s0.value.structure_type24753 = &t99874; /* x180886 stalin.sc:25683:888584 */ t99873.s1.tag = NULL_TYPE; /* x180887 stalin.sc:25683:888584 */ t99870.s1.tag = STRUCTURE_TYPE24753; t99870.s1.value.structure_type24753 = &t99873; /* x180888 stalin.sc:25683:888584 */ t99869.s1.tag = STRUCTURE_TYPE24753; t99869.s1.value.structure_type24753 = &t99870; /* x180889 stalin.sc:25683:888584 */ t99868.s0.tag = STRUCTURE_TYPE24753; t99868.s0.value.structure_type24753 = &t99869; /* x180890 stalin.sc:25683:888584 */ t99868.s1.tag = NULL_TYPE; /* x180891 stalin.sc:25683:888584 */ t99867.s1.tag = STRUCTURE_TYPE24753; t99867.s1.value.structure_type24753 = &t99868; /* x180892 stalin.sc:25683:888584 */ t99866.s0.tag = STRUCTURE_TYPE24753; t99866.s0.value.structure_type24753 = &t99867; /* x180893 stalin.sc:25683:888584 */ t99866.s1.tag = NULL_TYPE; /* x180894 stalin.sc:25683:888584 */ t99851.s1.tag = STRUCTURE_TYPE24753; t99851.s1.value.structure_type24753 = &t99866; /* x180895 stalin.sc:25683:888584 */ t99836.s1.tag = STRUCTURE_TYPE24753; t99836.s1.value.structure_type24753 = &t99851; /* x180896 stalin.sc:25683:888584 */ t99835.s1.tag = STRUCTURE_TYPE24753; t99835.s1.value.structure_type24753 = &t99836; /* x180897 stalin.sc:25683:888584 */ t99834.s0.tag = STRUCTURE_TYPE24753; t99834.s0.value.structure_type24753 = &t99835; /* x180898 stalin.sc:25683:888584 */ t99834.s1.tag = NULL_TYPE; /* x180899 stalin.sc:25683:888584 */ t99823.s1.tag = STRUCTURE_TYPE24753; t99823.s1.value.structure_type24753 = &t99834; /* x180900 stalin.sc:25683:888584 */ t99822.s1.tag = STRUCTURE_TYPE24753; t99822.s1.value.structure_type24753 = &t99823; /* x180901 stalin.sc:25683:888584 */ t99821.s0.tag = STRUCTURE_TYPE24753; t99821.s0.value.structure_type24753 = &t99822; /* x180902 stalin.sc:25683:888584 */ t99821.s1.tag = NULL_TYPE; /* x180903 stalin.sc:25683:888584 */ t99817.s1.tag = STRUCTURE_TYPE24753; t99817.s1.value.structure_type24753 = &t99821; /* x180904 stalin.sc:25683:888584 */ t99816.s1.tag = STRUCTURE_TYPE24753; t99816.s1.value.structure_type24753 = &t99817; /* x180905 stalin.sc:25683:888584 */ t99815.s0.tag = STRUCTURE_TYPE24753; t99815.s0.value.structure_type24753 = &t99816; /* x180906 stalin.sc:25683:888584 */ t100020.s0.tag = EXTERNAL_SYMBOL_TYPE; t100020.s0.value.external_symbol_type = q240; /* x180907 stalin.sc:25683:888584 */ t100023.s0.tag = EXTERNAL_SYMBOL_TYPE; t100023.s0.value.external_symbol_type = q119; /* x180908 stalin.sc:25683:888584 */ t100024.s0.tag = EXTERNAL_SYMBOL_TYPE; t100024.s0.value.external_symbol_type = q310; /* x180909 stalin.sc:25683:888584 */ t100024.s1.tag = NULL_TYPE; /* x180910 stalin.sc:25683:888584 */ t100023.s1.tag = STRUCTURE_TYPE24753; t100023.s1.value.structure_type24753 = &t100024; /* x180911 stalin.sc:25683:888584 */ t100022.s0.tag = STRUCTURE_TYPE24753; t100022.s0.value.structure_type24753 = &t100023; /* x180912 stalin.sc:25683:888584 */ t100026.s0.tag = EXTERNAL_SYMBOL_TYPE; t100026.s0.value.external_symbol_type = q240; /* x180913 stalin.sc:25683:888584 */ t100029.s0.tag = EXTERNAL_SYMBOL_TYPE; t100029.s0.value.external_symbol_type = q102; /* x180914 stalin.sc:25683:888584 */ t100031.s0.tag = EXTERNAL_SYMBOL_TYPE; t100031.s0.value.external_symbol_type = q120; /* x180915 stalin.sc:25683:888584 */ t100032.s0.tag = EXTERNAL_SYMBOL_TYPE; t100032.s0.value.external_symbol_type = q310; /* x180916 stalin.sc:25683:888584 */ t100033.s0.tag = EXTERNAL_SYMBOL_TYPE; t100033.s0.value.external_symbol_type = q310; /* x180917 stalin.sc:25683:888584 */ t100033.s1.tag = NULL_TYPE; /* x180918 stalin.sc:25683:888584 */ t100032.s1.tag = STRUCTURE_TYPE24753; t100032.s1.value.structure_type24753 = &t100033; /* x180919 stalin.sc:25683:888584 */ t100031.s1.tag = STRUCTURE_TYPE24753; t100031.s1.value.structure_type24753 = &t100032; /* x180920 stalin.sc:25683:888584 */ t100030.s0.tag = STRUCTURE_TYPE24753; t100030.s0.value.structure_type24753 = &t100031; /* x180921 stalin.sc:25683:888584 */ t100030.s1.tag = NULL_TYPE; /* x180922 stalin.sc:25683:888584 */ t100029.s1.tag = STRUCTURE_TYPE24753; t100029.s1.value.structure_type24753 = &t100030; /* x180923 stalin.sc:25683:888584 */ t100028.s0.tag = STRUCTURE_TYPE24753; t100028.s0.value.structure_type24753 = &t100029; /* x180924 stalin.sc:25683:888584 */ t100034.s0.tag = STRING_TYPE; t100034.s0.value.string_type = "#*NOT-A-NUMBER*"; /* x180925 stalin.sc:25683:888584 */ t100034.s1.tag = NULL_TYPE; /* x180926 stalin.sc:25683:888584 */ t100028.s1.tag = STRUCTURE_TYPE24753; t100028.s1.value.structure_type24753 = &t100034; /* x180927 stalin.sc:25683:888584 */ t100027.s0.tag = STRUCTURE_TYPE24753; t100027.s0.value.structure_type24753 = &t100028; /* x180928 stalin.sc:25683:888584 */ t100038.s0.tag = EXTERNAL_SYMBOL_TYPE; t100038.s0.value.external_symbol_type = q77; /* x180929 stalin.sc:25683:888584 */ t100039.s0.tag = EXTERNAL_SYMBOL_TYPE; t100039.s0.value.external_symbol_type = q238; /* x180930 stalin.sc:25683:888584 */ t100039.s1.tag = NULL_TYPE; /* x180931 stalin.sc:25683:888584 */ t100038.s1.tag = STRUCTURE_TYPE24753; t100038.s1.value.structure_type24753 = &t100039; /* x180932 stalin.sc:25683:888584 */ t100037.s0.tag = STRUCTURE_TYPE24753; t100037.s0.value.structure_type24753 = &t100038; /* x180933 stalin.sc:25683:888584 */ t100040.s0.tag = EXTERNAL_SYMBOL_TYPE; t100040.s0.value.external_symbol_type = q310; /* x180934 stalin.sc:25683:888584 */ t100040.s1.tag = NULL_TYPE; /* x180935 stalin.sc:25683:888584 */ t100037.s1.tag = STRUCTURE_TYPE24753; t100037.s1.value.structure_type24753 = &t100040; /* x180936 stalin.sc:25683:888584 */ t100036.s0.tag = STRUCTURE_TYPE24753; t100036.s0.value.structure_type24753 = &t100037; /* x180937 stalin.sc:25683:888584 */ t100041.s0.tag = STRING_TYPE; t100041.s0.value.string_type = "#*INFINITY*"; /* x180938 stalin.sc:25683:888584 */ t100041.s1.tag = NULL_TYPE; /* x180939 stalin.sc:25683:888584 */ t100036.s1.tag = STRUCTURE_TYPE24753; t100036.s1.value.structure_type24753 = &t100041; /* x180940 stalin.sc:25683:888584 */ t100035.s0.tag = STRUCTURE_TYPE24753; t100035.s0.value.structure_type24753 = &t100036; /* x180941 stalin.sc:25683:888584 */ t100044.s0.tag = EXTERNAL_SYMBOL_TYPE; t100044.s0.value.external_symbol_type = q127; /* x180942 stalin.sc:25683:888584 */ t100045.s0.tag = EXTERNAL_SYMBOL_TYPE; t100045.s0.value.external_symbol_type = q310; /* x180943 stalin.sc:25683:888584 */ t100045.s1.tag = NULL_TYPE; /* x180944 stalin.sc:25683:888584 */ t100044.s1.tag = STRUCTURE_TYPE24753; t100044.s1.value.structure_type24753 = &t100045; /* x180945 stalin.sc:25683:888584 */ t100043.s0.tag = STRUCTURE_TYPE24753; t100043.s0.value.structure_type24753 = &t100044; /* x180946 stalin.sc:25683:888584 */ t100047.s0.tag = EXTERNAL_SYMBOL_TYPE; t100047.s0.value.external_symbol_type = q242; /* x180947 stalin.sc:25683:888584 */ t100050.s0.tag = EXTERNAL_SYMBOL_TYPE; t100050.s0.value.external_symbol_type = q310; /* x180948 stalin.sc:25683:888584 */ t100052.s0.tag = EXTERNAL_SYMBOL_TYPE; t100052.s0.value.external_symbol_type = q2; /* x180949 stalin.sc:25683:888584 */ t100053.s0.tag = EXTERNAL_SYMBOL_TYPE; t100053.s0.value.external_symbol_type = q310; /* x180950 stalin.sc:25683:888584 */ t100053.s1.tag = NULL_TYPE; /* x180951 stalin.sc:25683:888584 */ t100052.s1.tag = STRUCTURE_TYPE24753; t100052.s1.value.structure_type24753 = &t100053; /* x180952 stalin.sc:25683:888584 */ t100051.s0.tag = STRUCTURE_TYPE24753; t100051.s0.value.structure_type24753 = &t100052; /* x180953 stalin.sc:25683:888584 */ t100051.s1.tag = NULL_TYPE; /* x180954 stalin.sc:25683:888584 */ t100050.s1.tag = STRUCTURE_TYPE24753; t100050.s1.value.structure_type24753 = &t100051; /* x180955 stalin.sc:25683:888584 */ t100049.s0.tag = STRUCTURE_TYPE24753; t100049.s0.value.structure_type24753 = &t100050; /* x180956 stalin.sc:25683:888584 */ t100049.s1.tag = NULL_TYPE; /* x180957 stalin.sc:25683:888584 */ t100048.s0.tag = STRUCTURE_TYPE24753; t100048.s0.value.structure_type24753 = &t100049; /* x180958 stalin.sc:25683:888584 */ t100055.s0.tag = EXTERNAL_SYMBOL_TYPE; t100055.s0.value.external_symbol_type = q240; /* x180959 stalin.sc:25683:888584 */ t100058.s0.tag = EXTERNAL_SYMBOL_TYPE; t100058.s0.value.external_symbol_type = q102; /* x180960 stalin.sc:25683:888584 */ t100060.s0.tag = EXTERNAL_SYMBOL_TYPE; t100060.s0.value.external_symbol_type = q120; /* x180961 stalin.sc:25683:888584 */ t100061.s0.tag = EXTERNAL_SYMBOL_TYPE; t100061.s0.value.external_symbol_type = q310; /* x180962 stalin.sc:25683:888584 */ t100062.s0.tag = EXTERNAL_SYMBOL_TYPE; t100062.s0.value.external_symbol_type = q310; /* x180963 stalin.sc:25683:888584 */ t100062.s1.tag = NULL_TYPE; /* x180964 stalin.sc:25683:888584 */ t100061.s1.tag = STRUCTURE_TYPE24753; t100061.s1.value.structure_type24753 = &t100062; /* x180965 stalin.sc:25683:888584 */ t100060.s1.tag = STRUCTURE_TYPE24753; t100060.s1.value.structure_type24753 = &t100061; /* x180966 stalin.sc:25683:888584 */ t100059.s0.tag = STRUCTURE_TYPE24753; t100059.s0.value.structure_type24753 = &t100060; /* x180967 stalin.sc:25683:888584 */ t100059.s1.tag = NULL_TYPE; /* x180968 stalin.sc:25683:888584 */ t100058.s1.tag = STRUCTURE_TYPE24753; t100058.s1.value.structure_type24753 = &t100059; /* x180969 stalin.sc:25683:888584 */ t100057.s0.tag = STRUCTURE_TYPE24753; t100057.s0.value.structure_type24753 = &t100058; /* x180970 stalin.sc:25683:888584 */ t100063.s0.tag = STRING_TYPE; t100063.s0.value.string_type = "-#*NOT-A-NUMBER*"; /* x180971 stalin.sc:25683:888584 */ t100063.s1.tag = NULL_TYPE; /* x180972 stalin.sc:25683:888584 */ t100057.s1.tag = STRUCTURE_TYPE24753; t100057.s1.value.structure_type24753 = &t100063; /* x180973 stalin.sc:25683:888584 */ t100056.s0.tag = STRUCTURE_TYPE24753; t100056.s0.value.structure_type24753 = &t100057; /* x180974 stalin.sc:25683:888584 */ t100067.s0.tag = EXTERNAL_SYMBOL_TYPE; t100067.s0.value.external_symbol_type = q77; /* x180975 stalin.sc:25683:888584 */ t100068.s0.tag = EXTERNAL_SYMBOL_TYPE; t100068.s0.value.external_symbol_type = q238; /* x180976 stalin.sc:25683:888584 */ t100068.s1.tag = NULL_TYPE; /* x180977 stalin.sc:25683:888584 */ t100067.s1.tag = STRUCTURE_TYPE24753; t100067.s1.value.structure_type24753 = &t100068; /* x180978 stalin.sc:25683:888584 */ t100066.s0.tag = STRUCTURE_TYPE24753; t100066.s0.value.structure_type24753 = &t100067; /* x180979 stalin.sc:25683:888584 */ t100069.s0.tag = EXTERNAL_SYMBOL_TYPE; t100069.s0.value.external_symbol_type = q310; /* x180980 stalin.sc:25683:888584 */ t100069.s1.tag = NULL_TYPE; /* x180981 stalin.sc:25683:888584 */ t100066.s1.tag = STRUCTURE_TYPE24753; t100066.s1.value.structure_type24753 = &t100069; /* x180982 stalin.sc:25683:888584 */ t100065.s0.tag = STRUCTURE_TYPE24753; t100065.s0.value.structure_type24753 = &t100066; /* x180983 stalin.sc:25683:888584 */ t100070.s0.tag = STRING_TYPE; t100070.s0.value.string_type = "-#*INFINITY*"; /* x180984 stalin.sc:25683:888584 */ t100070.s1.tag = NULL_TYPE; /* x180985 stalin.sc:25683:888584 */ t100065.s1.tag = STRUCTURE_TYPE24753; t100065.s1.value.structure_type24753 = &t100070; /* x180986 stalin.sc:25683:888584 */ t100064.s0.tag = STRUCTURE_TYPE24753; t100064.s0.value.structure_type24753 = &t100065; /* x180987 stalin.sc:25683:888584 */ t100073.s0.tag = EXTERNAL_SYMBOL_TYPE; t100073.s0.value.external_symbol_type = q124; /* x180988 stalin.sc:25683:888584 */ t100074.s0.tag = EXTERNAL_SYMBOL_TYPE; t100074.s0.value.external_symbol_type = q310; /* x180989 stalin.sc:25683:888584 */ t100075.s0.tag = EXTERNAL_SYMBOL_TYPE; t100075.s0.value.external_symbol_type = q324; /* x180990 stalin.sc:25683:888584 */ t100075.s1.tag = NULL_TYPE; /* x180991 stalin.sc:25683:888584 */ t100074.s1.tag = STRUCTURE_TYPE24753; t100074.s1.value.structure_type24753 = &t100075; /* x180992 stalin.sc:25683:888584 */ t100073.s1.tag = STRUCTURE_TYPE24753; t100073.s1.value.structure_type24753 = &t100074; /* x180993 stalin.sc:25683:888584 */ t100072.s0.tag = STRUCTURE_TYPE24753; t100072.s0.value.structure_type24753 = &t100073; /* x180994 stalin.sc:25683:888584 */ t100077.s0.tag = EXTERNAL_SYMBOL_TYPE; t100077.s0.value.external_symbol_type = q242; /* x180995 stalin.sc:25683:888584 */ t100078.s0.tag = EXTERNAL_SYMBOL_TYPE; t100078.s0.value.external_symbol_type = q287; /* x180996 stalin.sc:25683:888584 */ t100081.s0.tag = EXTERNAL_SYMBOL_TYPE; t100081.s0.value.external_symbol_type = q312; /* x180997 stalin.sc:25683:888584 */ t100083.s0.tag = EXTERNAL_SYMBOL_TYPE; t100083.s0.value.external_symbol_type = q130; /* x180998 stalin.sc:25683:888584 */ t100084.s0.tag = EXTERNAL_SYMBOL_TYPE; t100084.s0.value.external_symbol_type = q325; /* x180999 stalin.sc:25683:888584 */ t100085.s0.tag = EXTERNAL_SYMBOL_TYPE; t100085.s0.value.external_symbol_type = q310; /* x181000 stalin.sc:25683:888584 */ t100085.s1.tag = NULL_TYPE; /* x181001 stalin.sc:25683:888584 */ t100084.s1.tag = STRUCTURE_TYPE24753; t100084.s1.value.structure_type24753 = &t100085; /* x181002 stalin.sc:25683:888584 */ t100083.s1.tag = STRUCTURE_TYPE24753; t100083.s1.value.structure_type24753 = &t100084; /* x181003 stalin.sc:25683:888584 */ t100082.s0.tag = STRUCTURE_TYPE24753; t100082.s0.value.structure_type24753 = &t100083; /* x181004 stalin.sc:25683:888584 */ t100082.s1.tag = NULL_TYPE; /* x181005 stalin.sc:25683:888584 */ t100081.s1.tag = STRUCTURE_TYPE24753; t100081.s1.value.structure_type24753 = &t100082; /* x181006 stalin.sc:25683:888584 */ t100080.s0.tag = STRUCTURE_TYPE24753; t100080.s0.value.structure_type24753 = &t100081; /* x181007 stalin.sc:25683:888584 */ t100087.s0.tag = EXTERNAL_SYMBOL_TYPE; t100087.s0.value.external_symbol_type = q313; /* x181008 stalin.sc:25683:888584 */ t100088.s0.tag = FIXNUM_TYPE; t100088.s0.value.fixnum_type = 1; /* x181009 stalin.sc:25683:888584 */ t100088.s1.tag = NULL_TYPE; /* x181010 stalin.sc:25683:888584 */ t100087.s1.tag = STRUCTURE_TYPE24753; t100087.s1.value.structure_type24753 = &t100088; /* x181011 stalin.sc:25683:888584 */ t100086.s0.tag = STRUCTURE_TYPE24753; t100086.s0.value.structure_type24753 = &t100087; /* x181012 stalin.sc:25683:888584 */ t100086.s1.tag = NULL_TYPE; /* x181013 stalin.sc:25683:888584 */ t100080.s1.tag = STRUCTURE_TYPE24753; t100080.s1.value.structure_type24753 = &t100086; /* x181014 stalin.sc:25683:888584 */ t100079.s0.tag = STRUCTURE_TYPE24753; t100079.s0.value.structure_type24753 = &t100080; /* x181015 stalin.sc:25683:888584 */ t100090.s0.tag = EXTERNAL_SYMBOL_TYPE; t100090.s0.value.external_symbol_type = q43; /* x181016 stalin.sc:25683:888584 */ t100092.s0.tag = EXTERNAL_SYMBOL_TYPE; t100092.s0.value.external_symbol_type = q124; /* x181017 stalin.sc:25683:888584 */ t100093.s0.tag = EXTERNAL_SYMBOL_TYPE; t100093.s0.value.external_symbol_type = q312; /* x181018 stalin.sc:25683:888584 */ t100094.s0.tag = EXTERNAL_SYMBOL_TYPE; t100094.s0.value.external_symbol_type = q324; /* x181019 stalin.sc:25683:888584 */ t100094.s1.tag = NULL_TYPE; /* x181020 stalin.sc:25683:888584 */ t100093.s1.tag = STRUCTURE_TYPE24753; t100093.s1.value.structure_type24753 = &t100094; /* x181021 stalin.sc:25683:888584 */ t100092.s1.tag = STRUCTURE_TYPE24753; t100092.s1.value.structure_type24753 = &t100093; /* x181022 stalin.sc:25683:888584 */ t100091.s0.tag = STRUCTURE_TYPE24753; t100091.s0.value.structure_type24753 = &t100092; /* x181023 stalin.sc:25683:888584 */ t100096.s0.tag = EXTERNAL_SYMBOL_TYPE; t100096.s0.value.external_symbol_type = q287; /* x181024 stalin.sc:25683:888584 */ t100098.s0.tag = EXTERNAL_SYMBOL_TYPE; t100098.s0.value.external_symbol_type = q130; /* x181025 stalin.sc:25683:888584 */ t100099.s0.tag = EXTERNAL_SYMBOL_TYPE; t100099.s0.value.external_symbol_type = q325; /* x181026 stalin.sc:25683:888584 */ t100100.s0.tag = EXTERNAL_SYMBOL_TYPE; t100100.s0.value.external_symbol_type = q312; /* x181027 stalin.sc:25683:888584 */ t100100.s1.tag = NULL_TYPE; /* x181028 stalin.sc:25683:888584 */ t100099.s1.tag = STRUCTURE_TYPE24753; t100099.s1.value.structure_type24753 = &t100100; /* x181029 stalin.sc:25683:888584 */ t100098.s1.tag = STRUCTURE_TYPE24753; t100098.s1.value.structure_type24753 = &t100099; /* x181030 stalin.sc:25683:888584 */ t100097.s0.tag = STRUCTURE_TYPE24753; t100097.s0.value.structure_type24753 = &t100098; /* x181031 stalin.sc:25683:888584 */ t100102.s0.tag = EXTERNAL_SYMBOL_TYPE; t100102.s0.value.external_symbol_type = q4; /* x181032 stalin.sc:25683:888584 */ t100103.s0.tag = EXTERNAL_SYMBOL_TYPE; t100103.s0.value.external_symbol_type = q313; /* x181033 stalin.sc:25683:888584 */ t100104.s0.tag = FIXNUM_TYPE; t100104.s0.value.fixnum_type = 1; /* x181034 stalin.sc:25683:888584 */ t100104.s1.tag = NULL_TYPE; /* x181035 stalin.sc:25683:888584 */ t100103.s1.tag = STRUCTURE_TYPE24753; t100103.s1.value.structure_type24753 = &t100104; /* x181036 stalin.sc:25683:888584 */ t100102.s1.tag = STRUCTURE_TYPE24753; t100102.s1.value.structure_type24753 = &t100103; /* x181037 stalin.sc:25683:888584 */ t100101.s0.tag = STRUCTURE_TYPE24753; t100101.s0.value.structure_type24753 = &t100102; /* x181038 stalin.sc:25683:888584 */ t100101.s1.tag = NULL_TYPE; /* x181039 stalin.sc:25683:888584 */ t100097.s1.tag = STRUCTURE_TYPE24753; t100097.s1.value.structure_type24753 = &t100101; /* x181040 stalin.sc:25683:888584 */ t100096.s1.tag = STRUCTURE_TYPE24753; t100096.s1.value.structure_type24753 = &t100097; /* x181041 stalin.sc:25683:888584 */ t100095.s0.tag = STRUCTURE_TYPE24753; t100095.s0.value.structure_type24753 = &t100096; /* x181042 stalin.sc:25683:888584 */ t100106.s0.tag = EXTERNAL_SYMBOL_TYPE; t100106.s0.value.external_symbol_type = q283; /* x181043 stalin.sc:25683:888584 */ t100108.s0.tag = EXTERNAL_SYMBOL_TYPE; t100108.s0.value.external_symbol_type = q106; /* x181044 stalin.sc:25683:888584 */ t100109.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x181045 stalin.sc:25683:888584 */ t100111.s0.tag = EXTERNAL_SYMBOL_TYPE; t100111.s0.value.external_symbol_type = q327; /* x181046 stalin.sc:25683:888584 */ t100112.s0.tag = EXTERNAL_SYMBOL_TYPE; t100112.s0.value.external_symbol_type = q312; /* x181047 stalin.sc:25683:888584 */ t100113.s0.tag = EXTERNAL_SYMBOL_TYPE; t100113.s0.value.external_symbol_type = q313; /* x181048 stalin.sc:25683:888584 */ t100113.s1.tag = NULL_TYPE; /* x181049 stalin.sc:25683:888584 */ t100112.s1.tag = STRUCTURE_TYPE24753; t100112.s1.value.structure_type24753 = &t100113; /* x181050 stalin.sc:25683:888584 */ t100111.s1.tag = STRUCTURE_TYPE24753; t100111.s1.value.structure_type24753 = &t100112; /* x181051 stalin.sc:25683:888584 */ t100110.s0.tag = STRUCTURE_TYPE24753; t100110.s0.value.structure_type24753 = &t100111; /* x181052 stalin.sc:25683:888584 */ t100110.s1.tag = NULL_TYPE; /* x181053 stalin.sc:25683:888584 */ t100109.s1.tag = STRUCTURE_TYPE24753; t100109.s1.value.structure_type24753 = &t100110; /* x181054 stalin.sc:25683:888584 */ t100108.s1.tag = STRUCTURE_TYPE24753; t100108.s1.value.structure_type24753 = &t100109; /* x181055 stalin.sc:25683:888584 */ t100107.s0.tag = STRUCTURE_TYPE24753; t100107.s0.value.structure_type24753 = &t100108; /* x181056 stalin.sc:25683:888584 */ t100107.s1.tag = NULL_TYPE; /* x181057 stalin.sc:25683:888584 */ t100106.s1.tag = STRUCTURE_TYPE24753; t100106.s1.value.structure_type24753 = &t100107; /* x181058 stalin.sc:25683:888584 */ t100105.s0.tag = STRUCTURE_TYPE24753; t100105.s0.value.structure_type24753 = &t100106; /* x181059 stalin.sc:25683:888584 */ t100105.s1.tag = NULL_TYPE; /* x181060 stalin.sc:25683:888584 */ t100095.s1.tag = STRUCTURE_TYPE24753; t100095.s1.value.structure_type24753 = &t100105; /* x181061 stalin.sc:25683:888584 */ t100091.s1.tag = STRUCTURE_TYPE24753; t100091.s1.value.structure_type24753 = &t100095; /* x181062 stalin.sc:25683:888584 */ t100090.s1.tag = STRUCTURE_TYPE24753; t100090.s1.value.structure_type24753 = &t100091; /* x181063 stalin.sc:25683:888584 */ t100089.s0.tag = STRUCTURE_TYPE24753; t100089.s0.value.structure_type24753 = &t100090; /* x181064 stalin.sc:25683:888584 */ t100089.s1.tag = NULL_TYPE; /* x181065 stalin.sc:25683:888584 */ t100079.s1.tag = STRUCTURE_TYPE24753; t100079.s1.value.structure_type24753 = &t100089; /* x181066 stalin.sc:25683:888584 */ t100078.s1.tag = STRUCTURE_TYPE24753; t100078.s1.value.structure_type24753 = &t100079; /* x181067 stalin.sc:25683:888584 */ t100077.s1.tag = STRUCTURE_TYPE24753; t100077.s1.value.structure_type24753 = &t100078; /* x181068 stalin.sc:25683:888584 */ t100076.s0.tag = STRUCTURE_TYPE24753; t100076.s0.value.structure_type24753 = &t100077; /* x181069 stalin.sc:25683:888584 */ t100076.s1.tag = NULL_TYPE; /* x181070 stalin.sc:25683:888584 */ t100072.s1.tag = STRUCTURE_TYPE24753; t100072.s1.value.structure_type24753 = &t100076; /* x181071 stalin.sc:25683:888584 */ t100071.s0.tag = STRUCTURE_TYPE24753; t100071.s0.value.structure_type24753 = &t100072; /* x181072 stalin.sc:25683:888584 */ t100116.s0.tag = EXTERNAL_SYMBOL_TYPE; t100116.s0.value.external_symbol_type = q121; /* x181073 stalin.sc:25683:888584 */ t100117.s0.tag = EXTERNAL_SYMBOL_TYPE; t100117.s0.value.external_symbol_type = q310; /* x181074 stalin.sc:25683:888584 */ t100118.s0.tag = FLONUM_TYPE; t100118.s0.value.flonum_type = 1.0; /* x181075 stalin.sc:25683:888584 */ t100118.s1.tag = NULL_TYPE; /* x181076 stalin.sc:25683:888584 */ t100117.s1.tag = STRUCTURE_TYPE24753; t100117.s1.value.structure_type24753 = &t100118; /* x181077 stalin.sc:25683:888584 */ t100116.s1.tag = STRUCTURE_TYPE24753; t100116.s1.value.structure_type24753 = &t100117; /* x181078 stalin.sc:25683:888584 */ t100115.s0.tag = STRUCTURE_TYPE24753; t100115.s0.value.structure_type24753 = &t100116; /* x181079 stalin.sc:25683:888584 */ t100120.s0.tag = EXTERNAL_SYMBOL_TYPE; t100120.s0.value.external_symbol_type = q242; /* x181080 stalin.sc:25683:888584 */ t100121.s0.tag = EXTERNAL_SYMBOL_TYPE; t100121.s0.value.external_symbol_type = q287; /* x181081 stalin.sc:25683:888584 */ t100124.s0.tag = EXTERNAL_SYMBOL_TYPE; t100124.s0.value.external_symbol_type = q312; /* x181082 stalin.sc:25683:888584 */ t100126.s0.tag = EXTERNAL_SYMBOL_TYPE; t100126.s0.value.external_symbol_type = q130; /* x181083 stalin.sc:25683:888584 */ t100127.s0.tag = EXTERNAL_SYMBOL_TYPE; t100127.s0.value.external_symbol_type = q324; /* x181084 stalin.sc:25683:888584 */ t100128.s0.tag = EXTERNAL_SYMBOL_TYPE; t100128.s0.value.external_symbol_type = q310; /* x181085 stalin.sc:25683:888584 */ t100128.s1.tag = NULL_TYPE; /* x181086 stalin.sc:25683:888584 */ t100127.s1.tag = STRUCTURE_TYPE24753; t100127.s1.value.structure_type24753 = &t100128; /* x181087 stalin.sc:25683:888584 */ t100126.s1.tag = STRUCTURE_TYPE24753; t100126.s1.value.structure_type24753 = &t100127; /* x181088 stalin.sc:25683:888584 */ t100125.s0.tag = STRUCTURE_TYPE24753; t100125.s0.value.structure_type24753 = &t100126; /* x181089 stalin.sc:25683:888584 */ t100125.s1.tag = NULL_TYPE; /* x181090 stalin.sc:25683:888584 */ t100124.s1.tag = STRUCTURE_TYPE24753; t100124.s1.value.structure_type24753 = &t100125; /* x181091 stalin.sc:25683:888584 */ t100123.s0.tag = STRUCTURE_TYPE24753; t100123.s0.value.structure_type24753 = &t100124; /* x181092 stalin.sc:25683:888584 */ t100130.s0.tag = EXTERNAL_SYMBOL_TYPE; t100130.s0.value.external_symbol_type = q313; /* x181093 stalin.sc:25683:888584 */ t100131.s0.tag = FIXNUM_TYPE; t100131.s0.value.fixnum_type = -1; /* x181094 stalin.sc:25683:888584 */ t100131.s1.tag = NULL_TYPE; /* x181095 stalin.sc:25683:888584 */ t100130.s1.tag = STRUCTURE_TYPE24753; t100130.s1.value.structure_type24753 = &t100131; /* x181096 stalin.sc:25683:888584 */ t100129.s0.tag = STRUCTURE_TYPE24753; t100129.s0.value.structure_type24753 = &t100130; /* x181097 stalin.sc:25683:888584 */ t100129.s1.tag = NULL_TYPE; /* x181098 stalin.sc:25683:888584 */ t100123.s1.tag = STRUCTURE_TYPE24753; t100123.s1.value.structure_type24753 = &t100129; /* x181099 stalin.sc:25683:888584 */ t100122.s0.tag = STRUCTURE_TYPE24753; t100122.s0.value.structure_type24753 = &t100123; /* x181100 stalin.sc:25683:888584 */ t100133.s0.tag = EXTERNAL_SYMBOL_TYPE; t100133.s0.value.external_symbol_type = q43; /* x181101 stalin.sc:25683:888584 */ t100135.s0.tag = EXTERNAL_SYMBOL_TYPE; t100135.s0.value.external_symbol_type = q121; /* x181102 stalin.sc:25683:888584 */ t100136.s0.tag = EXTERNAL_SYMBOL_TYPE; t100136.s0.value.external_symbol_type = q312; /* x181103 stalin.sc:25683:888584 */ t100137.s0.tag = FLONUM_TYPE; t100137.s0.value.flonum_type = 1.0; /* x181104 stalin.sc:25683:888584 */ t100137.s1.tag = NULL_TYPE; /* x181105 stalin.sc:25683:888584 */ t100136.s1.tag = STRUCTURE_TYPE24753; t100136.s1.value.structure_type24753 = &t100137; /* x181106 stalin.sc:25683:888584 */ t100135.s1.tag = STRUCTURE_TYPE24753; t100135.s1.value.structure_type24753 = &t100136; /* x181107 stalin.sc:25683:888584 */ t100134.s0.tag = STRUCTURE_TYPE24753; t100134.s0.value.structure_type24753 = &t100135; /* x181108 stalin.sc:25683:888584 */ t100139.s0.tag = EXTERNAL_SYMBOL_TYPE; t100139.s0.value.external_symbol_type = q287; /* x181109 stalin.sc:25683:888584 */ t100141.s0.tag = EXTERNAL_SYMBOL_TYPE; t100141.s0.value.external_symbol_type = q130; /* x181110 stalin.sc:25683:888584 */ t100142.s0.tag = EXTERNAL_SYMBOL_TYPE; t100142.s0.value.external_symbol_type = q324; /* x181111 stalin.sc:25683:888584 */ t100143.s0.tag = EXTERNAL_SYMBOL_TYPE; t100143.s0.value.external_symbol_type = q312; /* x181112 stalin.sc:25683:888584 */ t100143.s1.tag = NULL_TYPE; /* x181113 stalin.sc:25683:888584 */ t100142.s1.tag = STRUCTURE_TYPE24753; t100142.s1.value.structure_type24753 = &t100143; /* x181114 stalin.sc:25683:888584 */ t100141.s1.tag = STRUCTURE_TYPE24753; t100141.s1.value.structure_type24753 = &t100142; /* x181115 stalin.sc:25683:888584 */ t100140.s0.tag = STRUCTURE_TYPE24753; t100140.s0.value.structure_type24753 = &t100141; /* x181116 stalin.sc:25683:888584 */ t100145.s0.tag = EXTERNAL_SYMBOL_TYPE; t100145.s0.value.external_symbol_type = q2; /* x181117 stalin.sc:25683:888584 */ t100146.s0.tag = EXTERNAL_SYMBOL_TYPE; t100146.s0.value.external_symbol_type = q313; /* x181118 stalin.sc:25683:888584 */ t100147.s0.tag = FIXNUM_TYPE; t100147.s0.value.fixnum_type = 1; /* x181119 stalin.sc:25683:888584 */ t100147.s1.tag = NULL_TYPE; /* x181120 stalin.sc:25683:888584 */ t100146.s1.tag = STRUCTURE_TYPE24753; t100146.s1.value.structure_type24753 = &t100147; /* x181121 stalin.sc:25683:888584 */ t100145.s1.tag = STRUCTURE_TYPE24753; t100145.s1.value.structure_type24753 = &t100146; /* x181122 stalin.sc:25683:888584 */ t100144.s0.tag = STRUCTURE_TYPE24753; t100144.s0.value.structure_type24753 = &t100145; /* x181123 stalin.sc:25683:888584 */ t100144.s1.tag = NULL_TYPE; /* x181124 stalin.sc:25683:888584 */ t100140.s1.tag = STRUCTURE_TYPE24753; t100140.s1.value.structure_type24753 = &t100144; /* x181125 stalin.sc:25683:888584 */ t100139.s1.tag = STRUCTURE_TYPE24753; t100139.s1.value.structure_type24753 = &t100140; /* x181126 stalin.sc:25683:888584 */ t100138.s0.tag = STRUCTURE_TYPE24753; t100138.s0.value.structure_type24753 = &t100139; /* x181127 stalin.sc:25683:888584 */ t100149.s0.tag = EXTERNAL_SYMBOL_TYPE; t100149.s0.value.external_symbol_type = q283; /* x181128 stalin.sc:25683:888584 */ t100151.s0.tag = EXTERNAL_SYMBOL_TYPE; t100151.s0.value.external_symbol_type = q106; /* x181129 stalin.sc:25683:888584 */ t100152.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x181130 stalin.sc:25683:888584 */ t100154.s0.tag = EXTERNAL_SYMBOL_TYPE; t100154.s0.value.external_symbol_type = q327; /* x181131 stalin.sc:25683:888584 */ t100155.s0.tag = EXTERNAL_SYMBOL_TYPE; t100155.s0.value.external_symbol_type = q312; /* x181132 stalin.sc:25683:888584 */ t100156.s0.tag = EXTERNAL_SYMBOL_TYPE; t100156.s0.value.external_symbol_type = q313; /* x181133 stalin.sc:25683:888584 */ t100156.s1.tag = NULL_TYPE; /* x181134 stalin.sc:25683:888584 */ t100155.s1.tag = STRUCTURE_TYPE24753; t100155.s1.value.structure_type24753 = &t100156; /* x181135 stalin.sc:25683:888584 */ t100154.s1.tag = STRUCTURE_TYPE24753; t100154.s1.value.structure_type24753 = &t100155; /* x181136 stalin.sc:25683:888584 */ t100153.s0.tag = STRUCTURE_TYPE24753; t100153.s0.value.structure_type24753 = &t100154; /* x181137 stalin.sc:25683:888584 */ t100153.s1.tag = NULL_TYPE; /* x181138 stalin.sc:25683:888584 */ t100152.s1.tag = STRUCTURE_TYPE24753; t100152.s1.value.structure_type24753 = &t100153; /* x181139 stalin.sc:25683:888584 */ t100151.s1.tag = STRUCTURE_TYPE24753; t100151.s1.value.structure_type24753 = &t100152; /* x181140 stalin.sc:25683:888584 */ t100150.s0.tag = STRUCTURE_TYPE24753; t100150.s0.value.structure_type24753 = &t100151; /* x181141 stalin.sc:25683:888584 */ t100150.s1.tag = NULL_TYPE; /* x181142 stalin.sc:25683:888584 */ t100149.s1.tag = STRUCTURE_TYPE24753; t100149.s1.value.structure_type24753 = &t100150; /* x181143 stalin.sc:25683:888584 */ t100148.s0.tag = STRUCTURE_TYPE24753; t100148.s0.value.structure_type24753 = &t100149; /* x181144 stalin.sc:25683:888584 */ t100148.s1.tag = NULL_TYPE; /* x181145 stalin.sc:25683:888584 */ t100138.s1.tag = STRUCTURE_TYPE24753; t100138.s1.value.structure_type24753 = &t100148; /* x181146 stalin.sc:25683:888584 */ t100134.s1.tag = STRUCTURE_TYPE24753; t100134.s1.value.structure_type24753 = &t100138; /* x181147 stalin.sc:25683:888584 */ t100133.s1.tag = STRUCTURE_TYPE24753; t100133.s1.value.structure_type24753 = &t100134; /* x181148 stalin.sc:25683:888584 */ t100132.s0.tag = STRUCTURE_TYPE24753; t100132.s0.value.structure_type24753 = &t100133; /* x181149 stalin.sc:25683:888584 */ t100132.s1.tag = NULL_TYPE; /* x181150 stalin.sc:25683:888584 */ t100122.s1.tag = STRUCTURE_TYPE24753; t100122.s1.value.structure_type24753 = &t100132; /* x181151 stalin.sc:25683:888584 */ t100121.s1.tag = STRUCTURE_TYPE24753; t100121.s1.value.structure_type24753 = &t100122; /* x181152 stalin.sc:25683:888584 */ t100120.s1.tag = STRUCTURE_TYPE24753; t100120.s1.value.structure_type24753 = &t100121; /* x181153 stalin.sc:25683:888584 */ t100119.s0.tag = STRUCTURE_TYPE24753; t100119.s0.value.structure_type24753 = &t100120; /* x181154 stalin.sc:25683:888584 */ t100119.s1.tag = NULL_TYPE; /* x181155 stalin.sc:25683:888584 */ t100115.s1.tag = STRUCTURE_TYPE24753; t100115.s1.value.structure_type24753 = &t100119; /* x181156 stalin.sc:25683:888584 */ t100114.s0.tag = STRUCTURE_TYPE24753; t100114.s0.value.structure_type24753 = &t100115; /* x181157 stalin.sc:25683:888584 */ t100158.s0.tag = EXTERNAL_SYMBOL_TYPE; t100158.s0.value.external_symbol_type = q95; /* x181158 stalin.sc:25683:888584 */ t100160.s0.tag = EXTERNAL_SYMBOL_TYPE; t100160.s0.value.external_symbol_type = q283; /* x181159 stalin.sc:25683:888584 */ t100162.s0.tag = EXTERNAL_SYMBOL_TYPE; t100162.s0.value.external_symbol_type = q106; /* x181160 stalin.sc:25683:888584 */ t100163.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x181161 stalin.sc:25683:888584 */ t100165.s0.tag = EXTERNAL_SYMBOL_TYPE; t100165.s0.value.external_symbol_type = q327; /* x181162 stalin.sc:25683:888584 */ t100166.s0.tag = EXTERNAL_SYMBOL_TYPE; t100166.s0.value.external_symbol_type = q310; /* x181163 stalin.sc:25683:888584 */ t100167.s0.tag = FIXNUM_TYPE; t100167.s0.value.fixnum_type = 0; /* x181164 stalin.sc:25683:888584 */ t100167.s1.tag = NULL_TYPE; /* x181165 stalin.sc:25683:888584 */ t100166.s1.tag = STRUCTURE_TYPE24753; t100166.s1.value.structure_type24753 = &t100167; /* x181166 stalin.sc:25683:888584 */ t100165.s1.tag = STRUCTURE_TYPE24753; t100165.s1.value.structure_type24753 = &t100166; /* x181167 stalin.sc:25683:888584 */ t100164.s0.tag = STRUCTURE_TYPE24753; t100164.s0.value.structure_type24753 = &t100165; /* x181168 stalin.sc:25683:888584 */ t100164.s1.tag = NULL_TYPE; /* x181169 stalin.sc:25683:888584 */ t100163.s1.tag = STRUCTURE_TYPE24753; t100163.s1.value.structure_type24753 = &t100164; /* x181170 stalin.sc:25683:888584 */ t100162.s1.tag = STRUCTURE_TYPE24753; t100162.s1.value.structure_type24753 = &t100163; /* x181171 stalin.sc:25683:888584 */ t100161.s0.tag = STRUCTURE_TYPE24753; t100161.s0.value.structure_type24753 = &t100162; /* x181172 stalin.sc:25683:888584 */ t100161.s1.tag = NULL_TYPE; /* x181173 stalin.sc:25683:888584 */ t100160.s1.tag = STRUCTURE_TYPE24753; t100160.s1.value.structure_type24753 = &t100161; /* x181174 stalin.sc:25683:888584 */ t100159.s0.tag = STRUCTURE_TYPE24753; t100159.s0.value.structure_type24753 = &t100160; /* x181175 stalin.sc:25683:888584 */ t100159.s1.tag = NULL_TYPE; /* x181176 stalin.sc:25683:888584 */ t100158.s1.tag = STRUCTURE_TYPE24753; t100158.s1.value.structure_type24753 = &t100159; /* x181177 stalin.sc:25683:888584 */ t100157.s0.tag = STRUCTURE_TYPE24753; t100157.s0.value.structure_type24753 = &t100158; /* x181178 stalin.sc:25683:888584 */ t100157.s1.tag = NULL_TYPE; /* x181179 stalin.sc:25683:888584 */ t100114.s1.tag = STRUCTURE_TYPE24753; t100114.s1.value.structure_type24753 = &t100157; /* x181180 stalin.sc:25683:888584 */ t100071.s1.tag = STRUCTURE_TYPE24753; t100071.s1.value.structure_type24753 = &t100114; /* x181181 stalin.sc:25683:888584 */ t100064.s1.tag = STRUCTURE_TYPE24753; t100064.s1.value.structure_type24753 = &t100071; /* x181182 stalin.sc:25683:888584 */ t100056.s1.tag = STRUCTURE_TYPE24753; t100056.s1.value.structure_type24753 = &t100064; /* x181183 stalin.sc:25683:888584 */ t100055.s1.tag = STRUCTURE_TYPE24753; t100055.s1.value.structure_type24753 = &t100056; /* x181184 stalin.sc:25683:888584 */ t100054.s0.tag = STRUCTURE_TYPE24753; t100054.s0.value.structure_type24753 = &t100055; /* x181185 stalin.sc:25683:888584 */ t100054.s1.tag = NULL_TYPE; /* x181186 stalin.sc:25683:888584 */ t100048.s1.tag = STRUCTURE_TYPE24753; t100048.s1.value.structure_type24753 = &t100054; /* x181187 stalin.sc:25683:888584 */ t100047.s1.tag = STRUCTURE_TYPE24753; t100047.s1.value.structure_type24753 = &t100048; /* x181188 stalin.sc:25683:888584 */ t100046.s0.tag = STRUCTURE_TYPE24753; t100046.s0.value.structure_type24753 = &t100047; /* x181189 stalin.sc:25683:888584 */ t100046.s1.tag = NULL_TYPE; /* x181190 stalin.sc:25683:888584 */ t100043.s1.tag = STRUCTURE_TYPE24753; t100043.s1.value.structure_type24753 = &t100046; /* x181191 stalin.sc:25683:888584 */ t100042.s0.tag = STRUCTURE_TYPE24753; t100042.s0.value.structure_type24753 = &t100043; /* x181192 stalin.sc:25683:888584 */ t100170.s0.tag = EXTERNAL_SYMBOL_TYPE; t100170.s0.value.external_symbol_type = q125; /* x181193 stalin.sc:25683:888584 */ t100171.s0.tag = EXTERNAL_SYMBOL_TYPE; t100171.s0.value.external_symbol_type = q310; /* x181194 stalin.sc:25683:888584 */ t100171.s1.tag = NULL_TYPE; /* x181195 stalin.sc:25683:888584 */ t100170.s1.tag = STRUCTURE_TYPE24753; t100170.s1.value.structure_type24753 = &t100171; /* x181196 stalin.sc:25683:888584 */ t100169.s0.tag = STRUCTURE_TYPE24753; t100169.s0.value.structure_type24753 = &t100170; /* x181197 stalin.sc:25683:888584 */ t100172.s0.tag = STRING_TYPE; t100172.s0.value.string_type = "0.0"; /* x181198 stalin.sc:25683:888584 */ t100172.s1.tag = NULL_TYPE; /* x181199 stalin.sc:25683:888584 */ t100169.s1.tag = STRUCTURE_TYPE24753; t100169.s1.value.structure_type24753 = &t100172; /* x181200 stalin.sc:25683:888584 */ t100168.s0.tag = STRUCTURE_TYPE24753; t100168.s0.value.structure_type24753 = &t100169; /* x181201 stalin.sc:25683:888584 */ t100175.s0.tag = EXTERNAL_SYMBOL_TYPE; t100175.s0.value.external_symbol_type = q124; /* x181202 stalin.sc:25683:888584 */ t100176.s0.tag = EXTERNAL_SYMBOL_TYPE; t100176.s0.value.external_symbol_type = q310; /* x181203 stalin.sc:25683:888584 */ t100177.s0.tag = EXTERNAL_SYMBOL_TYPE; t100177.s0.value.external_symbol_type = q324; /* x181204 stalin.sc:25683:888584 */ t100177.s1.tag = NULL_TYPE; /* x181205 stalin.sc:25683:888584 */ t100176.s1.tag = STRUCTURE_TYPE24753; t100176.s1.value.structure_type24753 = &t100177; /* x181206 stalin.sc:25683:888584 */ t100175.s1.tag = STRUCTURE_TYPE24753; t100175.s1.value.structure_type24753 = &t100176; /* x181207 stalin.sc:25683:888584 */ t100174.s0.tag = STRUCTURE_TYPE24753; t100174.s0.value.structure_type24753 = &t100175; /* x181208 stalin.sc:25683:888584 */ t100179.s0.tag = EXTERNAL_SYMBOL_TYPE; t100179.s0.value.external_symbol_type = q242; /* x181209 stalin.sc:25683:888584 */ t100180.s0.tag = EXTERNAL_SYMBOL_TYPE; t100180.s0.value.external_symbol_type = q287; /* x181210 stalin.sc:25683:888584 */ t100183.s0.tag = EXTERNAL_SYMBOL_TYPE; t100183.s0.value.external_symbol_type = q312; /* x181211 stalin.sc:25683:888584 */ t100185.s0.tag = EXTERNAL_SYMBOL_TYPE; t100185.s0.value.external_symbol_type = q130; /* x181212 stalin.sc:25683:888584 */ t100186.s0.tag = EXTERNAL_SYMBOL_TYPE; t100186.s0.value.external_symbol_type = q325; /* x181213 stalin.sc:25683:888584 */ t100187.s0.tag = EXTERNAL_SYMBOL_TYPE; t100187.s0.value.external_symbol_type = q310; /* x181214 stalin.sc:25683:888584 */ t100187.s1.tag = NULL_TYPE; /* x181215 stalin.sc:25683:888584 */ t100186.s1.tag = STRUCTURE_TYPE24753; t100186.s1.value.structure_type24753 = &t100187; /* x181216 stalin.sc:25683:888584 */ t100185.s1.tag = STRUCTURE_TYPE24753; t100185.s1.value.structure_type24753 = &t100186; /* x181217 stalin.sc:25683:888584 */ t100184.s0.tag = STRUCTURE_TYPE24753; t100184.s0.value.structure_type24753 = &t100185; /* x181218 stalin.sc:25683:888584 */ t100184.s1.tag = NULL_TYPE; /* x181219 stalin.sc:25683:888584 */ t100183.s1.tag = STRUCTURE_TYPE24753; t100183.s1.value.structure_type24753 = &t100184; /* x181220 stalin.sc:25683:888584 */ t100182.s0.tag = STRUCTURE_TYPE24753; t100182.s0.value.structure_type24753 = &t100183; /* x181221 stalin.sc:25683:888584 */ t100189.s0.tag = EXTERNAL_SYMBOL_TYPE; t100189.s0.value.external_symbol_type = q313; /* x181222 stalin.sc:25683:888584 */ t100190.s0.tag = FIXNUM_TYPE; t100190.s0.value.fixnum_type = 1; /* x181223 stalin.sc:25683:888584 */ t100190.s1.tag = NULL_TYPE; /* x181224 stalin.sc:25683:888584 */ t100189.s1.tag = STRUCTURE_TYPE24753; t100189.s1.value.structure_type24753 = &t100190; /* x181225 stalin.sc:25683:888584 */ t100188.s0.tag = STRUCTURE_TYPE24753; t100188.s0.value.structure_type24753 = &t100189; /* x181226 stalin.sc:25683:888584 */ t100188.s1.tag = NULL_TYPE; /* x181227 stalin.sc:25683:888584 */ t100182.s1.tag = STRUCTURE_TYPE24753; t100182.s1.value.structure_type24753 = &t100188; /* x181228 stalin.sc:25683:888584 */ t100181.s0.tag = STRUCTURE_TYPE24753; t100181.s0.value.structure_type24753 = &t100182; /* x181229 stalin.sc:25683:888584 */ t100192.s0.tag = EXTERNAL_SYMBOL_TYPE; t100192.s0.value.external_symbol_type = q43; /* x181230 stalin.sc:25683:888584 */ t100194.s0.tag = EXTERNAL_SYMBOL_TYPE; t100194.s0.value.external_symbol_type = q124; /* x181231 stalin.sc:25683:888584 */ t100195.s0.tag = EXTERNAL_SYMBOL_TYPE; t100195.s0.value.external_symbol_type = q312; /* x181232 stalin.sc:25683:888584 */ t100196.s0.tag = EXTERNAL_SYMBOL_TYPE; t100196.s0.value.external_symbol_type = q324; /* x181233 stalin.sc:25683:888584 */ t100196.s1.tag = NULL_TYPE; /* x181234 stalin.sc:25683:888584 */ t100195.s1.tag = STRUCTURE_TYPE24753; t100195.s1.value.structure_type24753 = &t100196; /* x181235 stalin.sc:25683:888584 */ t100194.s1.tag = STRUCTURE_TYPE24753; t100194.s1.value.structure_type24753 = &t100195; /* x181236 stalin.sc:25683:888584 */ t100193.s0.tag = STRUCTURE_TYPE24753; t100193.s0.value.structure_type24753 = &t100194; /* x181237 stalin.sc:25683:888584 */ t100198.s0.tag = EXTERNAL_SYMBOL_TYPE; t100198.s0.value.external_symbol_type = q287; /* x181238 stalin.sc:25683:888584 */ t100200.s0.tag = EXTERNAL_SYMBOL_TYPE; t100200.s0.value.external_symbol_type = q130; /* x181239 stalin.sc:25683:888584 */ t100201.s0.tag = EXTERNAL_SYMBOL_TYPE; t100201.s0.value.external_symbol_type = q325; /* x181240 stalin.sc:25683:888584 */ t100202.s0.tag = EXTERNAL_SYMBOL_TYPE; t100202.s0.value.external_symbol_type = q312; /* x181241 stalin.sc:25683:888584 */ t100202.s1.tag = NULL_TYPE; /* x181242 stalin.sc:25683:888584 */ t100201.s1.tag = STRUCTURE_TYPE24753; t100201.s1.value.structure_type24753 = &t100202; /* x181243 stalin.sc:25683:888584 */ t100200.s1.tag = STRUCTURE_TYPE24753; t100200.s1.value.structure_type24753 = &t100201; /* x181244 stalin.sc:25683:888584 */ t100199.s0.tag = STRUCTURE_TYPE24753; t100199.s0.value.structure_type24753 = &t100200; /* x181245 stalin.sc:25683:888584 */ t100204.s0.tag = EXTERNAL_SYMBOL_TYPE; t100204.s0.value.external_symbol_type = q4; /* x181246 stalin.sc:25683:888584 */ t100205.s0.tag = EXTERNAL_SYMBOL_TYPE; t100205.s0.value.external_symbol_type = q313; /* x181247 stalin.sc:25683:888584 */ t100206.s0.tag = FIXNUM_TYPE; t100206.s0.value.fixnum_type = 1; /* x181248 stalin.sc:25683:888584 */ t100206.s1.tag = NULL_TYPE; /* x181249 stalin.sc:25683:888584 */ t100205.s1.tag = STRUCTURE_TYPE24753; t100205.s1.value.structure_type24753 = &t100206; /* x181250 stalin.sc:25683:888584 */ t100204.s1.tag = STRUCTURE_TYPE24753; t100204.s1.value.structure_type24753 = &t100205; /* x181251 stalin.sc:25683:888584 */ t100203.s0.tag = STRUCTURE_TYPE24753; t100203.s0.value.structure_type24753 = &t100204; /* x181252 stalin.sc:25683:888584 */ t100203.s1.tag = NULL_TYPE; /* x181253 stalin.sc:25683:888584 */ t100199.s1.tag = STRUCTURE_TYPE24753; t100199.s1.value.structure_type24753 = &t100203; /* x181254 stalin.sc:25683:888584 */ t100198.s1.tag = STRUCTURE_TYPE24753; t100198.s1.value.structure_type24753 = &t100199; /* x181255 stalin.sc:25683:888584 */ t100197.s0.tag = STRUCTURE_TYPE24753; t100197.s0.value.structure_type24753 = &t100198; /* x181256 stalin.sc:25683:888584 */ t100208.s0.tag = EXTERNAL_SYMBOL_TYPE; t100208.s0.value.external_symbol_type = q283; /* x181257 stalin.sc:25683:888584 */ t100210.s0.tag = EXTERNAL_SYMBOL_TYPE; t100210.s0.value.external_symbol_type = q327; /* x181258 stalin.sc:25683:888584 */ t100211.s0.tag = EXTERNAL_SYMBOL_TYPE; t100211.s0.value.external_symbol_type = q312; /* x181259 stalin.sc:25683:888584 */ t100212.s0.tag = EXTERNAL_SYMBOL_TYPE; t100212.s0.value.external_symbol_type = q313; /* x181260 stalin.sc:25683:888584 */ t100212.s1.tag = NULL_TYPE; /* x181261 stalin.sc:25683:888584 */ t100211.s1.tag = STRUCTURE_TYPE24753; t100211.s1.value.structure_type24753 = &t100212; /* x181262 stalin.sc:25683:888584 */ t100210.s1.tag = STRUCTURE_TYPE24753; t100210.s1.value.structure_type24753 = &t100211; /* x181263 stalin.sc:25683:888584 */ t100209.s0.tag = STRUCTURE_TYPE24753; t100209.s0.value.structure_type24753 = &t100210; /* x181264 stalin.sc:25683:888584 */ t100209.s1.tag = NULL_TYPE; /* x181265 stalin.sc:25683:888584 */ t100208.s1.tag = STRUCTURE_TYPE24753; t100208.s1.value.structure_type24753 = &t100209; /* x181266 stalin.sc:25683:888584 */ t100207.s0.tag = STRUCTURE_TYPE24753; t100207.s0.value.structure_type24753 = &t100208; /* x181267 stalin.sc:25683:888584 */ t100207.s1.tag = NULL_TYPE; /* x181268 stalin.sc:25683:888584 */ t100197.s1.tag = STRUCTURE_TYPE24753; t100197.s1.value.structure_type24753 = &t100207; /* x181269 stalin.sc:25683:888584 */ t100193.s1.tag = STRUCTURE_TYPE24753; t100193.s1.value.structure_type24753 = &t100197; /* x181270 stalin.sc:25683:888584 */ t100192.s1.tag = STRUCTURE_TYPE24753; t100192.s1.value.structure_type24753 = &t100193; /* x181271 stalin.sc:25683:888584 */ t100191.s0.tag = STRUCTURE_TYPE24753; t100191.s0.value.structure_type24753 = &t100192; /* x181272 stalin.sc:25683:888584 */ t100191.s1.tag = NULL_TYPE; /* x181273 stalin.sc:25683:888584 */ t100181.s1.tag = STRUCTURE_TYPE24753; t100181.s1.value.structure_type24753 = &t100191; /* x181274 stalin.sc:25683:888584 */ t100180.s1.tag = STRUCTURE_TYPE24753; t100180.s1.value.structure_type24753 = &t100181; /* x181275 stalin.sc:25683:888584 */ t100179.s1.tag = STRUCTURE_TYPE24753; t100179.s1.value.structure_type24753 = &t100180; /* x181276 stalin.sc:25683:888584 */ t100178.s0.tag = STRUCTURE_TYPE24753; t100178.s0.value.structure_type24753 = &t100179; /* x181277 stalin.sc:25683:888584 */ t100178.s1.tag = NULL_TYPE; /* x181278 stalin.sc:25683:888584 */ t100174.s1.tag = STRUCTURE_TYPE24753; t100174.s1.value.structure_type24753 = &t100178; /* x181279 stalin.sc:25683:888584 */ t100173.s0.tag = STRUCTURE_TYPE24753; t100173.s0.value.structure_type24753 = &t100174; /* x181280 stalin.sc:25683:888584 */ t100215.s0.tag = EXTERNAL_SYMBOL_TYPE; t100215.s0.value.external_symbol_type = q121; /* x181281 stalin.sc:25683:888584 */ t100216.s0.tag = EXTERNAL_SYMBOL_TYPE; t100216.s0.value.external_symbol_type = q310; /* x181282 stalin.sc:25683:888584 */ t100217.s0.tag = FLONUM_TYPE; t100217.s0.value.flonum_type = 1.0; /* x181283 stalin.sc:25683:888584 */ t100217.s1.tag = NULL_TYPE; /* x181284 stalin.sc:25683:888584 */ t100216.s1.tag = STRUCTURE_TYPE24753; t100216.s1.value.structure_type24753 = &t100217; /* x181285 stalin.sc:25683:888584 */ t100215.s1.tag = STRUCTURE_TYPE24753; t100215.s1.value.structure_type24753 = &t100216; /* x181286 stalin.sc:25683:888584 */ t100214.s0.tag = STRUCTURE_TYPE24753; t100214.s0.value.structure_type24753 = &t100215; /* x181287 stalin.sc:25683:888584 */ t100219.s0.tag = EXTERNAL_SYMBOL_TYPE; t100219.s0.value.external_symbol_type = q242; /* x181288 stalin.sc:25683:888584 */ t100220.s0.tag = EXTERNAL_SYMBOL_TYPE; t100220.s0.value.external_symbol_type = q287; /* x181289 stalin.sc:25683:888584 */ t100223.s0.tag = EXTERNAL_SYMBOL_TYPE; t100223.s0.value.external_symbol_type = q312; /* x181290 stalin.sc:25683:888584 */ t100225.s0.tag = EXTERNAL_SYMBOL_TYPE; t100225.s0.value.external_symbol_type = q130; /* x181291 stalin.sc:25683:888584 */ t100226.s0.tag = EXTERNAL_SYMBOL_TYPE; t100226.s0.value.external_symbol_type = q324; /* x181292 stalin.sc:25683:888584 */ t100227.s0.tag = EXTERNAL_SYMBOL_TYPE; t100227.s0.value.external_symbol_type = q310; /* x181293 stalin.sc:25683:888584 */ t100227.s1.tag = NULL_TYPE; /* x181294 stalin.sc:25683:888584 */ t100226.s1.tag = STRUCTURE_TYPE24753; t100226.s1.value.structure_type24753 = &t100227; /* x181295 stalin.sc:25683:888584 */ t100225.s1.tag = STRUCTURE_TYPE24753; t100225.s1.value.structure_type24753 = &t100226; /* x181296 stalin.sc:25683:888584 */ t100224.s0.tag = STRUCTURE_TYPE24753; t100224.s0.value.structure_type24753 = &t100225; /* x181297 stalin.sc:25683:888584 */ t100224.s1.tag = NULL_TYPE; /* x181298 stalin.sc:25683:888584 */ t100223.s1.tag = STRUCTURE_TYPE24753; t100223.s1.value.structure_type24753 = &t100224; /* x181299 stalin.sc:25683:888584 */ t100222.s0.tag = STRUCTURE_TYPE24753; t100222.s0.value.structure_type24753 = &t100223; /* x181300 stalin.sc:25683:888584 */ t100229.s0.tag = EXTERNAL_SYMBOL_TYPE; t100229.s0.value.external_symbol_type = q313; /* x181301 stalin.sc:25683:888584 */ t100230.s0.tag = FIXNUM_TYPE; t100230.s0.value.fixnum_type = -1; /* x181302 stalin.sc:25683:888584 */ t100230.s1.tag = NULL_TYPE; /* x181303 stalin.sc:25683:888584 */ t100229.s1.tag = STRUCTURE_TYPE24753; t100229.s1.value.structure_type24753 = &t100230; /* x181304 stalin.sc:25683:888584 */ t100228.s0.tag = STRUCTURE_TYPE24753; t100228.s0.value.structure_type24753 = &t100229; /* x181305 stalin.sc:25683:888584 */ t100228.s1.tag = NULL_TYPE; /* x181306 stalin.sc:25683:888584 */ t100222.s1.tag = STRUCTURE_TYPE24753; t100222.s1.value.structure_type24753 = &t100228; /* x181307 stalin.sc:25683:888584 */ t100221.s0.tag = STRUCTURE_TYPE24753; t100221.s0.value.structure_type24753 = &t100222; /* x181308 stalin.sc:25683:888584 */ t100232.s0.tag = EXTERNAL_SYMBOL_TYPE; t100232.s0.value.external_symbol_type = q43; /* x181309 stalin.sc:25683:888584 */ t100234.s0.tag = EXTERNAL_SYMBOL_TYPE; t100234.s0.value.external_symbol_type = q121; /* x181310 stalin.sc:25683:888584 */ t100235.s0.tag = EXTERNAL_SYMBOL_TYPE; t100235.s0.value.external_symbol_type = q312; /* x181311 stalin.sc:25683:888584 */ t100236.s0.tag = FLONUM_TYPE; t100236.s0.value.flonum_type = 1.0; /* x181312 stalin.sc:25683:888584 */ t100236.s1.tag = NULL_TYPE; /* x181313 stalin.sc:25683:888584 */ t100235.s1.tag = STRUCTURE_TYPE24753; t100235.s1.value.structure_type24753 = &t100236; /* x181314 stalin.sc:25683:888584 */ t100234.s1.tag = STRUCTURE_TYPE24753; t100234.s1.value.structure_type24753 = &t100235; /* x181315 stalin.sc:25683:888584 */ t100233.s0.tag = STRUCTURE_TYPE24753; t100233.s0.value.structure_type24753 = &t100234; /* x181316 stalin.sc:25683:888584 */ t100238.s0.tag = EXTERNAL_SYMBOL_TYPE; t100238.s0.value.external_symbol_type = q287; /* x181317 stalin.sc:25683:888584 */ t100240.s0.tag = EXTERNAL_SYMBOL_TYPE; t100240.s0.value.external_symbol_type = q130; /* x181318 stalin.sc:25683:888584 */ t100241.s0.tag = EXTERNAL_SYMBOL_TYPE; t100241.s0.value.external_symbol_type = q324; /* x181319 stalin.sc:25683:888584 */ t100242.s0.tag = EXTERNAL_SYMBOL_TYPE; t100242.s0.value.external_symbol_type = q312; /* x181320 stalin.sc:25683:888584 */ t100242.s1.tag = NULL_TYPE; /* x181321 stalin.sc:25683:888584 */ t100241.s1.tag = STRUCTURE_TYPE24753; t100241.s1.value.structure_type24753 = &t100242; /* x181322 stalin.sc:25683:888584 */ t100240.s1.tag = STRUCTURE_TYPE24753; t100240.s1.value.structure_type24753 = &t100241; /* x181323 stalin.sc:25683:888584 */ t100239.s0.tag = STRUCTURE_TYPE24753; t100239.s0.value.structure_type24753 = &t100240; /* x181324 stalin.sc:25683:888584 */ t100244.s0.tag = EXTERNAL_SYMBOL_TYPE; t100244.s0.value.external_symbol_type = q2; /* x181325 stalin.sc:25683:888584 */ t100245.s0.tag = EXTERNAL_SYMBOL_TYPE; t100245.s0.value.external_symbol_type = q313; /* x181326 stalin.sc:25683:888584 */ t100246.s0.tag = FIXNUM_TYPE; t100246.s0.value.fixnum_type = 1; /* x181327 stalin.sc:25683:888584 */ t100246.s1.tag = NULL_TYPE; /* x181328 stalin.sc:25683:888584 */ t100245.s1.tag = STRUCTURE_TYPE24753; t100245.s1.value.structure_type24753 = &t100246; /* x181329 stalin.sc:25683:888584 */ t100244.s1.tag = STRUCTURE_TYPE24753; t100244.s1.value.structure_type24753 = &t100245; /* x181330 stalin.sc:25683:888584 */ t100243.s0.tag = STRUCTURE_TYPE24753; t100243.s0.value.structure_type24753 = &t100244; /* x181331 stalin.sc:25683:888584 */ t100243.s1.tag = NULL_TYPE; /* x181332 stalin.sc:25683:888584 */ t100239.s1.tag = STRUCTURE_TYPE24753; t100239.s1.value.structure_type24753 = &t100243; /* x181333 stalin.sc:25683:888584 */ t100238.s1.tag = STRUCTURE_TYPE24753; t100238.s1.value.structure_type24753 = &t100239; /* x181334 stalin.sc:25683:888584 */ t100237.s0.tag = STRUCTURE_TYPE24753; t100237.s0.value.structure_type24753 = &t100238; /* x181335 stalin.sc:25683:888584 */ t100248.s0.tag = EXTERNAL_SYMBOL_TYPE; t100248.s0.value.external_symbol_type = q283; /* x181336 stalin.sc:25683:888584 */ t100250.s0.tag = EXTERNAL_SYMBOL_TYPE; t100250.s0.value.external_symbol_type = q327; /* x181337 stalin.sc:25683:888584 */ t100251.s0.tag = EXTERNAL_SYMBOL_TYPE; t100251.s0.value.external_symbol_type = q312; /* x181338 stalin.sc:25683:888584 */ t100252.s0.tag = EXTERNAL_SYMBOL_TYPE; t100252.s0.value.external_symbol_type = q313; /* x181339 stalin.sc:25683:888584 */ t100252.s1.tag = NULL_TYPE; /* x181340 stalin.sc:25683:888584 */ t100251.s1.tag = STRUCTURE_TYPE24753; t100251.s1.value.structure_type24753 = &t100252; /* x181341 stalin.sc:25683:888584 */ t100250.s1.tag = STRUCTURE_TYPE24753; t100250.s1.value.structure_type24753 = &t100251; /* x181342 stalin.sc:25683:888584 */ t100249.s0.tag = STRUCTURE_TYPE24753; t100249.s0.value.structure_type24753 = &t100250; /* x181343 stalin.sc:25683:888584 */ t100249.s1.tag = NULL_TYPE; /* x181344 stalin.sc:25683:888584 */ t100248.s1.tag = STRUCTURE_TYPE24753; t100248.s1.value.structure_type24753 = &t100249; /* x181345 stalin.sc:25683:888584 */ t100247.s0.tag = STRUCTURE_TYPE24753; t100247.s0.value.structure_type24753 = &t100248; /* x181346 stalin.sc:25683:888584 */ t100247.s1.tag = NULL_TYPE; /* x181347 stalin.sc:25683:888584 */ t100237.s1.tag = STRUCTURE_TYPE24753; t100237.s1.value.structure_type24753 = &t100247; /* x181348 stalin.sc:25683:888584 */ t100233.s1.tag = STRUCTURE_TYPE24753; t100233.s1.value.structure_type24753 = &t100237; /* x181349 stalin.sc:25683:888584 */ t100232.s1.tag = STRUCTURE_TYPE24753; t100232.s1.value.structure_type24753 = &t100233; /* x181350 stalin.sc:25683:888584 */ t100231.s0.tag = STRUCTURE_TYPE24753; t100231.s0.value.structure_type24753 = &t100232; /* x181351 stalin.sc:25683:888584 */ t100231.s1.tag = NULL_TYPE; /* x181352 stalin.sc:25683:888584 */ t100221.s1.tag = STRUCTURE_TYPE24753; t100221.s1.value.structure_type24753 = &t100231; /* x181353 stalin.sc:25683:888584 */ t100220.s1.tag = STRUCTURE_TYPE24753; t100220.s1.value.structure_type24753 = &t100221; /* x181354 stalin.sc:25683:888584 */ t100219.s1.tag = STRUCTURE_TYPE24753; t100219.s1.value.structure_type24753 = &t100220; /* x181355 stalin.sc:25683:888584 */ t100218.s0.tag = STRUCTURE_TYPE24753; t100218.s0.value.structure_type24753 = &t100219; /* x181356 stalin.sc:25683:888584 */ t100218.s1.tag = NULL_TYPE; /* x181357 stalin.sc:25683:888584 */ t100214.s1.tag = STRUCTURE_TYPE24753; t100214.s1.value.structure_type24753 = &t100218; /* x181358 stalin.sc:25683:888584 */ t100213.s0.tag = STRUCTURE_TYPE24753; t100213.s0.value.structure_type24753 = &t100214; /* x181359 stalin.sc:25683:888584 */ t100254.s0.tag = EXTERNAL_SYMBOL_TYPE; t100254.s0.value.external_symbol_type = q95; /* x181360 stalin.sc:25683:888584 */ t100256.s0.tag = EXTERNAL_SYMBOL_TYPE; t100256.s0.value.external_symbol_type = q283; /* x181361 stalin.sc:25683:888584 */ t100258.s0.tag = EXTERNAL_SYMBOL_TYPE; t100258.s0.value.external_symbol_type = q327; /* x181362 stalin.sc:25683:888584 */ t100259.s0.tag = EXTERNAL_SYMBOL_TYPE; t100259.s0.value.external_symbol_type = q310; /* x181363 stalin.sc:25683:888584 */ t100260.s0.tag = FIXNUM_TYPE; t100260.s0.value.fixnum_type = 0; /* x181364 stalin.sc:25683:888584 */ t100260.s1.tag = NULL_TYPE; /* x181365 stalin.sc:25683:888584 */ t100259.s1.tag = STRUCTURE_TYPE24753; t100259.s1.value.structure_type24753 = &t100260; /* x181366 stalin.sc:25683:888584 */ t100258.s1.tag = STRUCTURE_TYPE24753; t100258.s1.value.structure_type24753 = &t100259; /* x181367 stalin.sc:25683:888584 */ t100257.s0.tag = STRUCTURE_TYPE24753; t100257.s0.value.structure_type24753 = &t100258; /* x181368 stalin.sc:25683:888584 */ t100257.s1.tag = NULL_TYPE; /* x181369 stalin.sc:25683:888584 */ t100256.s1.tag = STRUCTURE_TYPE24753; t100256.s1.value.structure_type24753 = &t100257; /* x181370 stalin.sc:25683:888584 */ t100255.s0.tag = STRUCTURE_TYPE24753; t100255.s0.value.structure_type24753 = &t100256; /* x181371 stalin.sc:25683:888584 */ t100255.s1.tag = NULL_TYPE; /* x181372 stalin.sc:25683:888584 */ t100254.s1.tag = STRUCTURE_TYPE24753; t100254.s1.value.structure_type24753 = &t100255; /* x181373 stalin.sc:25683:888584 */ t100253.s0.tag = STRUCTURE_TYPE24753; t100253.s0.value.structure_type24753 = &t100254; /* x181374 stalin.sc:25683:888584 */ t100253.s1.tag = NULL_TYPE; /* x181375 stalin.sc:25683:888584 */ t100213.s1.tag = STRUCTURE_TYPE24753; t100213.s1.value.structure_type24753 = &t100253; /* x181376 stalin.sc:25683:888584 */ t100173.s1.tag = STRUCTURE_TYPE24753; t100173.s1.value.structure_type24753 = &t100213; /* x181377 stalin.sc:25683:888584 */ t100168.s1.tag = STRUCTURE_TYPE24753; t100168.s1.value.structure_type24753 = &t100173; /* x181378 stalin.sc:25683:888584 */ t100042.s1.tag = STRUCTURE_TYPE24753; t100042.s1.value.structure_type24753 = &t100168; /* x181379 stalin.sc:25683:888584 */ t100035.s1.tag = STRUCTURE_TYPE24753; t100035.s1.value.structure_type24753 = &t100042; /* x181380 stalin.sc:25683:888584 */ t100027.s1.tag = STRUCTURE_TYPE24753; t100027.s1.value.structure_type24753 = &t100035; /* x181381 stalin.sc:25683:888584 */ t100026.s1.tag = STRUCTURE_TYPE24753; t100026.s1.value.structure_type24753 = &t100027; /* x181382 stalin.sc:25683:888584 */ t100025.s0.tag = STRUCTURE_TYPE24753; t100025.s0.value.structure_type24753 = &t100026; /* x181383 stalin.sc:25683:888584 */ t100025.s1.tag = NULL_TYPE; /* x181384 stalin.sc:25683:888584 */ t100022.s1.tag = STRUCTURE_TYPE24753; t100022.s1.value.structure_type24753 = &t100025; /* x181385 stalin.sc:25683:888584 */ t100021.s0.tag = STRUCTURE_TYPE24753; t100021.s0.value.structure_type24753 = &t100022; /* x181386 stalin.sc:25683:888584 */ t100263.s0.tag = EXTERNAL_SYMBOL_TYPE; t100263.s0.value.external_symbol_type = q126; /* x181387 stalin.sc:25683:888584 */ t100264.s0.tag = EXTERNAL_SYMBOL_TYPE; t100264.s0.value.external_symbol_type = q310; /* x181388 stalin.sc:25683:888584 */ t100264.s1.tag = NULL_TYPE; /* x181389 stalin.sc:25683:888584 */ t100263.s1.tag = STRUCTURE_TYPE24753; t100263.s1.value.structure_type24753 = &t100264; /* x181390 stalin.sc:25683:888584 */ t100262.s0.tag = STRUCTURE_TYPE24753; t100262.s0.value.structure_type24753 = &t100263; /* x181391 stalin.sc:25683:888584 */ t100266.s0.tag = EXTERNAL_SYMBOL_TYPE; t100266.s0.value.external_symbol_type = q242; /* x181392 stalin.sc:25683:888584 */ t100267.s0.tag = EXTERNAL_SYMBOL_TYPE; t100267.s0.value.external_symbol_type = q287; /* x181393 stalin.sc:25683:888584 */ t100270.s0.tag = EXTERNAL_SYMBOL_TYPE; t100270.s0.value.external_symbol_type = q310; /* x181394 stalin.sc:25683:888584 */ t100271.s0.tag = EXTERNAL_SYMBOL_TYPE; t100271.s0.value.external_symbol_type = q310; /* x181395 stalin.sc:25683:888584 */ t100271.s1.tag = NULL_TYPE; /* x181396 stalin.sc:25683:888584 */ t100270.s1.tag = STRUCTURE_TYPE24753; t100270.s1.value.structure_type24753 = &t100271; /* x181397 stalin.sc:25683:888584 */ t100269.s0.tag = STRUCTURE_TYPE24753; t100269.s0.value.structure_type24753 = &t100270; /* x181398 stalin.sc:25683:888584 */ t100273.s0.tag = EXTERNAL_SYMBOL_TYPE; t100273.s0.value.external_symbol_type = q328; /* x181399 stalin.sc:25683:888584 */ t100275.s0.tag = EXTERNAL_SYMBOL_TYPE; t100275.s0.value.external_symbol_type = q11; /* x181400 stalin.sc:25683:888584 */ t100276.s0.tag = NULL_TYPE; /* x181401 stalin.sc:25683:888584 */ t100276.s1.tag = NULL_TYPE; /* x181402 stalin.sc:25683:888584 */ t100275.s1.tag = STRUCTURE_TYPE24753; t100275.s1.value.structure_type24753 = &t100276; /* x181403 stalin.sc:25683:888584 */ t100274.s0.tag = STRUCTURE_TYPE24753; t100274.s0.value.structure_type24753 = &t100275; /* x181404 stalin.sc:25683:888584 */ t100274.s1.tag = NULL_TYPE; /* x181405 stalin.sc:25683:888584 */ t100273.s1.tag = STRUCTURE_TYPE24753; t100273.s1.value.structure_type24753 = &t100274; /* x181406 stalin.sc:25683:888584 */ t100272.s0.tag = STRUCTURE_TYPE24753; t100272.s0.value.structure_type24753 = &t100273; /* x181407 stalin.sc:25683:888584 */ t100272.s1.tag = NULL_TYPE; /* x181408 stalin.sc:25683:888584 */ t100269.s1.tag = STRUCTURE_TYPE24753; t100269.s1.value.structure_type24753 = &t100272; /* x181409 stalin.sc:25683:888584 */ t100268.s0.tag = STRUCTURE_TYPE24753; t100268.s0.value.structure_type24753 = &t100269; /* x181410 stalin.sc:25683:888584 */ t100278.s0.tag = EXTERNAL_SYMBOL_TYPE; t100278.s0.value.external_symbol_type = q43; /* x181411 stalin.sc:25683:888584 */ t100280.s0.tag = EXTERNAL_SYMBOL_TYPE; t100280.s0.value.external_symbol_type = q125; /* x181412 stalin.sc:25683:888584 */ t100281.s0.tag = EXTERNAL_SYMBOL_TYPE; t100281.s0.value.external_symbol_type = q310; /* x181413 stalin.sc:25683:888584 */ t100281.s1.tag = NULL_TYPE; /* x181414 stalin.sc:25683:888584 */ t100280.s1.tag = STRUCTURE_TYPE24753; t100280.s1.value.structure_type24753 = &t100281; /* x181415 stalin.sc:25683:888584 */ t100279.s0.tag = STRUCTURE_TYPE24753; t100279.s0.value.structure_type24753 = &t100280; /* x181416 stalin.sc:25683:888584 */ t100283.s0.tag = EXTERNAL_SYMBOL_TYPE; t100283.s0.value.external_symbol_type = q283; /* x181417 stalin.sc:25683:888584 */ t100284.s0.tag = EXTERNAL_SYMBOL_TYPE; t100284.s0.value.external_symbol_type = q328; /* x181418 stalin.sc:25683:888584 */ t100284.s1.tag = NULL_TYPE; /* x181419 stalin.sc:25683:888584 */ t100283.s1.tag = STRUCTURE_TYPE24753; t100283.s1.value.structure_type24753 = &t100284; /* x181420 stalin.sc:25683:888584 */ t100282.s0.tag = STRUCTURE_TYPE24753; t100282.s0.value.structure_type24753 = &t100283; /* x181421 stalin.sc:25683:888584 */ t100286.s0.tag = EXTERNAL_SYMBOL_TYPE; t100286.s0.value.external_symbol_type = q287; /* x181422 stalin.sc:25683:888584 */ t100288.s0.tag = EXTERNAL_SYMBOL_TYPE; t100288.s0.value.external_symbol_type = q132; /* x181423 stalin.sc:25683:888584 */ t100289.s0.tag = EXTERNAL_SYMBOL_TYPE; t100289.s0.value.external_symbol_type = q310; /* x181424 stalin.sc:25683:888584 */ t100290.s0.tag = EXTERNAL_SYMBOL_TYPE; t100290.s0.value.external_symbol_type = q322; /* x181425 stalin.sc:25683:888584 */ t100290.s1.tag = NULL_TYPE; /* x181426 stalin.sc:25683:888584 */ t100289.s1.tag = STRUCTURE_TYPE24753; t100289.s1.value.structure_type24753 = &t100290; /* x181427 stalin.sc:25683:888584 */ t100288.s1.tag = STRUCTURE_TYPE24753; t100288.s1.value.structure_type24753 = &t100289; /* x181428 stalin.sc:25683:888584 */ t100287.s0.tag = STRUCTURE_TYPE24753; t100287.s0.value.structure_type24753 = &t100288; /* x181429 stalin.sc:25683:888584 */ t100292.s0.tag = EXTERNAL_SYMBOL_TYPE; t100292.s0.value.external_symbol_type = q106; /* x181430 stalin.sc:25683:888584 */ t100294.s0.tag = EXTERNAL_SYMBOL_TYPE; t100294.s0.value.external_symbol_type = q326; /* x181431 stalin.sc:25683:888584 */ t100296.s0.tag = EXTERNAL_SYMBOL_TYPE; t100296.s0.value.external_symbol_type = q133; /* x181432 stalin.sc:25683:888584 */ t100297.s0.tag = EXTERNAL_SYMBOL_TYPE; t100297.s0.value.external_symbol_type = q310; /* x181433 stalin.sc:25683:888584 */ t100298.s0.tag = EXTERNAL_SYMBOL_TYPE; t100298.s0.value.external_symbol_type = q322; /* x181434 stalin.sc:25683:888584 */ t100298.s1.tag = NULL_TYPE; /* x181435 stalin.sc:25683:888584 */ t100297.s1.tag = STRUCTURE_TYPE24753; t100297.s1.value.structure_type24753 = &t100298; /* x181436 stalin.sc:25683:888584 */ t100296.s1.tag = STRUCTURE_TYPE24753; t100296.s1.value.structure_type24753 = &t100297; /* x181437 stalin.sc:25683:888584 */ t100295.s0.tag = STRUCTURE_TYPE24753; t100295.s0.value.structure_type24753 = &t100296; /* x181438 stalin.sc:25683:888584 */ t100295.s1.tag = NULL_TYPE; /* x181439 stalin.sc:25683:888584 */ t100294.s1.tag = STRUCTURE_TYPE24753; t100294.s1.value.structure_type24753 = &t100295; /* x181440 stalin.sc:25683:888584 */ t100293.s0.tag = STRUCTURE_TYPE24753; t100293.s0.value.structure_type24753 = &t100294; /* x181441 stalin.sc:25683:888584 */ t100299.s0.tag = EXTERNAL_SYMBOL_TYPE; t100299.s0.value.external_symbol_type = q328; /* x181442 stalin.sc:25683:888584 */ t100299.s1.tag = NULL_TYPE; /* x181443 stalin.sc:25683:888584 */ t100293.s1.tag = STRUCTURE_TYPE24753; t100293.s1.value.structure_type24753 = &t100299; /* x181444 stalin.sc:25683:888584 */ t100292.s1.tag = STRUCTURE_TYPE24753; t100292.s1.value.structure_type24753 = &t100293; /* x181445 stalin.sc:25683:888584 */ t100291.s0.tag = STRUCTURE_TYPE24753; t100291.s0.value.structure_type24753 = &t100292; /* x181446 stalin.sc:25683:888584 */ t100291.s1.tag = NULL_TYPE; /* x181447 stalin.sc:25683:888584 */ t100287.s1.tag = STRUCTURE_TYPE24753; t100287.s1.value.structure_type24753 = &t100291; /* x181448 stalin.sc:25683:888584 */ t100286.s1.tag = STRUCTURE_TYPE24753; t100286.s1.value.structure_type24753 = &t100287; /* x181449 stalin.sc:25683:888584 */ t100285.s0.tag = STRUCTURE_TYPE24753; t100285.s0.value.structure_type24753 = &t100286; /* x181450 stalin.sc:25683:888584 */ t100285.s1.tag = NULL_TYPE; /* x181451 stalin.sc:25683:888584 */ t100282.s1.tag = STRUCTURE_TYPE24753; t100282.s1.value.structure_type24753 = &t100285; /* x181452 stalin.sc:25683:888584 */ t100279.s1.tag = STRUCTURE_TYPE24753; t100279.s1.value.structure_type24753 = &t100282; /* x181453 stalin.sc:25683:888584 */ t100278.s1.tag = STRUCTURE_TYPE24753; t100278.s1.value.structure_type24753 = &t100279; /* x181454 stalin.sc:25683:888584 */ t100277.s0.tag = STRUCTURE_TYPE24753; t100277.s0.value.structure_type24753 = &t100278; /* x181455 stalin.sc:25683:888584 */ t100277.s1.tag = NULL_TYPE; /* x181456 stalin.sc:25683:888584 */ t100268.s1.tag = STRUCTURE_TYPE24753; t100268.s1.value.structure_type24753 = &t100277; /* x181457 stalin.sc:25683:888584 */ t100267.s1.tag = STRUCTURE_TYPE24753; t100267.s1.value.structure_type24753 = &t100268; /* x181458 stalin.sc:25683:888584 */ t100266.s1.tag = STRUCTURE_TYPE24753; t100266.s1.value.structure_type24753 = &t100267; /* x181459 stalin.sc:25683:888584 */ t100265.s0.tag = STRUCTURE_TYPE24753; t100265.s0.value.structure_type24753 = &t100266; /* x181460 stalin.sc:25683:888584 */ t100265.s1.tag = NULL_TYPE; /* x181461 stalin.sc:25683:888584 */ t100262.s1.tag = STRUCTURE_TYPE24753; t100262.s1.value.structure_type24753 = &t100265; /* x181462 stalin.sc:25683:888584 */ t100261.s0.tag = STRUCTURE_TYPE24753; t100261.s0.value.structure_type24753 = &t100262; /* x181463 stalin.sc:25683:888584 */ t100302.s0.tag = EXTERNAL_SYMBOL_TYPE; t100302.s0.value.external_symbol_type = q127; /* x181464 stalin.sc:25683:888584 */ t100303.s0.tag = EXTERNAL_SYMBOL_TYPE; t100303.s0.value.external_symbol_type = q310; /* x181465 stalin.sc:25683:888584 */ t100303.s1.tag = NULL_TYPE; /* x181466 stalin.sc:25683:888584 */ t100302.s1.tag = STRUCTURE_TYPE24753; t100302.s1.value.structure_type24753 = &t100303; /* x181467 stalin.sc:25683:888584 */ t100301.s0.tag = STRUCTURE_TYPE24753; t100301.s0.value.structure_type24753 = &t100302; /* x181468 stalin.sc:25683:888584 */ t100305.s0.tag = EXTERNAL_SYMBOL_TYPE; t100305.s0.value.external_symbol_type = q242; /* x181469 stalin.sc:25683:888584 */ t100306.s0.tag = EXTERNAL_SYMBOL_TYPE; t100306.s0.value.external_symbol_type = q287; /* x181470 stalin.sc:25683:888584 */ t100309.s0.tag = EXTERNAL_SYMBOL_TYPE; t100309.s0.value.external_symbol_type = q310; /* x181471 stalin.sc:25683:888584 */ t100310.s0.tag = EXTERNAL_SYMBOL_TYPE; t100310.s0.value.external_symbol_type = q310; /* x181472 stalin.sc:25683:888584 */ t100310.s1.tag = NULL_TYPE; /* x181473 stalin.sc:25683:888584 */ t100309.s1.tag = STRUCTURE_TYPE24753; t100309.s1.value.structure_type24753 = &t100310; /* x181474 stalin.sc:25683:888584 */ t100308.s0.tag = STRUCTURE_TYPE24753; t100308.s0.value.structure_type24753 = &t100309; /* x181475 stalin.sc:25683:888584 */ t100312.s0.tag = EXTERNAL_SYMBOL_TYPE; t100312.s0.value.external_symbol_type = q328; /* x181476 stalin.sc:25683:888584 */ t100314.s0.tag = EXTERNAL_SYMBOL_TYPE; t100314.s0.value.external_symbol_type = q11; /* x181477 stalin.sc:25683:888584 */ t100315.s0.tag = NULL_TYPE; /* x181478 stalin.sc:25683:888584 */ t100315.s1.tag = NULL_TYPE; /* x181479 stalin.sc:25683:888584 */ t100314.s1.tag = STRUCTURE_TYPE24753; t100314.s1.value.structure_type24753 = &t100315; /* x181480 stalin.sc:25683:888584 */ t100313.s0.tag = STRUCTURE_TYPE24753; t100313.s0.value.structure_type24753 = &t100314; /* x181481 stalin.sc:25683:888584 */ t100313.s1.tag = NULL_TYPE; /* x181482 stalin.sc:25683:888584 */ t100312.s1.tag = STRUCTURE_TYPE24753; t100312.s1.value.structure_type24753 = &t100313; /* x181483 stalin.sc:25683:888584 */ t100311.s0.tag = STRUCTURE_TYPE24753; t100311.s0.value.structure_type24753 = &t100312; /* x181484 stalin.sc:25683:888584 */ t100311.s1.tag = NULL_TYPE; /* x181485 stalin.sc:25683:888584 */ t100308.s1.tag = STRUCTURE_TYPE24753; t100308.s1.value.structure_type24753 = &t100311; /* x181486 stalin.sc:25683:888584 */ t100307.s0.tag = STRUCTURE_TYPE24753; t100307.s0.value.structure_type24753 = &t100308; /* x181487 stalin.sc:25683:888584 */ t100317.s0.tag = EXTERNAL_SYMBOL_TYPE; t100317.s0.value.external_symbol_type = q43; /* x181488 stalin.sc:25683:888584 */ t100319.s0.tag = EXTERNAL_SYMBOL_TYPE; t100319.s0.value.external_symbol_type = q125; /* x181489 stalin.sc:25683:888584 */ t100320.s0.tag = EXTERNAL_SYMBOL_TYPE; t100320.s0.value.external_symbol_type = q310; /* x181490 stalin.sc:25683:888584 */ t100320.s1.tag = NULL_TYPE; /* x181491 stalin.sc:25683:888584 */ t100319.s1.tag = STRUCTURE_TYPE24753; t100319.s1.value.structure_type24753 = &t100320; /* x181492 stalin.sc:25683:888584 */ t100318.s0.tag = STRUCTURE_TYPE24753; t100318.s0.value.structure_type24753 = &t100319; /* x181493 stalin.sc:25683:888584 */ t100322.s0.tag = EXTERNAL_SYMBOL_TYPE; t100322.s0.value.external_symbol_type = q283; /* x181494 stalin.sc:25683:888584 */ t100324.s0.tag = EXTERNAL_SYMBOL_TYPE; t100324.s0.value.external_symbol_type = q106; /* x181495 stalin.sc:25683:888584 */ t100325.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x181496 stalin.sc:25683:888584 */ t100326.s0.tag = EXTERNAL_SYMBOL_TYPE; t100326.s0.value.external_symbol_type = q328; /* x181497 stalin.sc:25683:888584 */ t100326.s1.tag = NULL_TYPE; /* x181498 stalin.sc:25683:888584 */ t100325.s1.tag = STRUCTURE_TYPE24753; t100325.s1.value.structure_type24753 = &t100326; /* x181499 stalin.sc:25683:888584 */ t100324.s1.tag = STRUCTURE_TYPE24753; t100324.s1.value.structure_type24753 = &t100325; /* x181500 stalin.sc:25683:888584 */ t100323.s0.tag = STRUCTURE_TYPE24753; t100323.s0.value.structure_type24753 = &t100324; /* x181501 stalin.sc:25683:888584 */ t100323.s1.tag = NULL_TYPE; /* x181502 stalin.sc:25683:888584 */ t100322.s1.tag = STRUCTURE_TYPE24753; t100322.s1.value.structure_type24753 = &t100323; /* x181503 stalin.sc:25683:888584 */ t100321.s0.tag = STRUCTURE_TYPE24753; t100321.s0.value.structure_type24753 = &t100322; /* x181504 stalin.sc:25683:888584 */ t100328.s0.tag = EXTERNAL_SYMBOL_TYPE; t100328.s0.value.external_symbol_type = q287; /* x181505 stalin.sc:25683:888584 */ t100330.s0.tag = EXTERNAL_SYMBOL_TYPE; t100330.s0.value.external_symbol_type = q132; /* x181506 stalin.sc:25683:888584 */ t100331.s0.tag = EXTERNAL_SYMBOL_TYPE; t100331.s0.value.external_symbol_type = q310; /* x181507 stalin.sc:25683:888584 */ t100332.s0.tag = EXTERNAL_SYMBOL_TYPE; t100332.s0.value.external_symbol_type = q322; /* x181508 stalin.sc:25683:888584 */ t100332.s1.tag = NULL_TYPE; /* x181509 stalin.sc:25683:888584 */ t100331.s1.tag = STRUCTURE_TYPE24753; t100331.s1.value.structure_type24753 = &t100332; /* x181510 stalin.sc:25683:888584 */ t100330.s1.tag = STRUCTURE_TYPE24753; t100330.s1.value.structure_type24753 = &t100331; /* x181511 stalin.sc:25683:888584 */ t100329.s0.tag = STRUCTURE_TYPE24753; t100329.s0.value.structure_type24753 = &t100330; /* x181512 stalin.sc:25683:888584 */ t100334.s0.tag = EXTERNAL_SYMBOL_TYPE; t100334.s0.value.external_symbol_type = q106; /* x181513 stalin.sc:25683:888584 */ t100336.s0.tag = EXTERNAL_SYMBOL_TYPE; t100336.s0.value.external_symbol_type = q326; /* x181514 stalin.sc:25683:888584 */ t100338.s0.tag = EXTERNAL_SYMBOL_TYPE; t100338.s0.value.external_symbol_type = q2; /* x181515 stalin.sc:25683:888584 */ t100340.s0.tag = EXTERNAL_SYMBOL_TYPE; t100340.s0.value.external_symbol_type = q133; /* x181516 stalin.sc:25683:888584 */ t100341.s0.tag = EXTERNAL_SYMBOL_TYPE; t100341.s0.value.external_symbol_type = q310; /* x181517 stalin.sc:25683:888584 */ t100342.s0.tag = EXTERNAL_SYMBOL_TYPE; t100342.s0.value.external_symbol_type = q322; /* x181518 stalin.sc:25683:888584 */ t100342.s1.tag = NULL_TYPE; /* x181519 stalin.sc:25683:888584 */ t100341.s1.tag = STRUCTURE_TYPE24753; t100341.s1.value.structure_type24753 = &t100342; /* x181520 stalin.sc:25683:888584 */ t100340.s1.tag = STRUCTURE_TYPE24753; t100340.s1.value.structure_type24753 = &t100341; /* x181521 stalin.sc:25683:888584 */ t100339.s0.tag = STRUCTURE_TYPE24753; t100339.s0.value.structure_type24753 = &t100340; /* x181522 stalin.sc:25683:888584 */ t100339.s1.tag = NULL_TYPE; /* x181523 stalin.sc:25683:888584 */ t100338.s1.tag = STRUCTURE_TYPE24753; t100338.s1.value.structure_type24753 = &t100339; /* x181524 stalin.sc:25683:888584 */ t100337.s0.tag = STRUCTURE_TYPE24753; t100337.s0.value.structure_type24753 = &t100338; /* x181525 stalin.sc:25683:888584 */ t100337.s1.tag = NULL_TYPE; /* x181526 stalin.sc:25683:888584 */ t100336.s1.tag = STRUCTURE_TYPE24753; t100336.s1.value.structure_type24753 = &t100337; /* x181527 stalin.sc:25683:888584 */ t100335.s0.tag = STRUCTURE_TYPE24753; t100335.s0.value.structure_type24753 = &t100336; /* x181528 stalin.sc:25683:888584 */ t100343.s0.tag = EXTERNAL_SYMBOL_TYPE; t100343.s0.value.external_symbol_type = q328; /* x181529 stalin.sc:25683:888584 */ t100343.s1.tag = NULL_TYPE; /* x181530 stalin.sc:25683:888584 */ t100335.s1.tag = STRUCTURE_TYPE24753; t100335.s1.value.structure_type24753 = &t100343; /* x181531 stalin.sc:25683:888584 */ t100334.s1.tag = STRUCTURE_TYPE24753; t100334.s1.value.structure_type24753 = &t100335; /* x181532 stalin.sc:25683:888584 */ t100333.s0.tag = STRUCTURE_TYPE24753; t100333.s0.value.structure_type24753 = &t100334; /* x181533 stalin.sc:25683:888584 */ t100333.s1.tag = NULL_TYPE; /* x181534 stalin.sc:25683:888584 */ t100329.s1.tag = STRUCTURE_TYPE24753; t100329.s1.value.structure_type24753 = &t100333; /* x181535 stalin.sc:25683:888584 */ t100328.s1.tag = STRUCTURE_TYPE24753; t100328.s1.value.structure_type24753 = &t100329; /* x181536 stalin.sc:25683:888584 */ t100327.s0.tag = STRUCTURE_TYPE24753; t100327.s0.value.structure_type24753 = &t100328; /* x181537 stalin.sc:25683:888584 */ t100327.s1.tag = NULL_TYPE; /* x181538 stalin.sc:25683:888584 */ t100321.s1.tag = STRUCTURE_TYPE24753; t100321.s1.value.structure_type24753 = &t100327; /* x181539 stalin.sc:25683:888584 */ t100318.s1.tag = STRUCTURE_TYPE24753; t100318.s1.value.structure_type24753 = &t100321; /* x181540 stalin.sc:25683:888584 */ t100317.s1.tag = STRUCTURE_TYPE24753; t100317.s1.value.structure_type24753 = &t100318; /* x181541 stalin.sc:25683:888584 */ t100316.s0.tag = STRUCTURE_TYPE24753; t100316.s0.value.structure_type24753 = &t100317; /* x181542 stalin.sc:25683:888584 */ t100316.s1.tag = NULL_TYPE; /* x181543 stalin.sc:25683:888584 */ t100307.s1.tag = STRUCTURE_TYPE24753; t100307.s1.value.structure_type24753 = &t100316; /* x181544 stalin.sc:25683:888584 */ t100306.s1.tag = STRUCTURE_TYPE24753; t100306.s1.value.structure_type24753 = &t100307; /* x181545 stalin.sc:25683:888584 */ t100305.s1.tag = STRUCTURE_TYPE24753; t100305.s1.value.structure_type24753 = &t100306; /* x181546 stalin.sc:25683:888584 */ t100304.s0.tag = STRUCTURE_TYPE24753; t100304.s0.value.structure_type24753 = &t100305; /* x181547 stalin.sc:25683:888584 */ t100304.s1.tag = NULL_TYPE; /* x181548 stalin.sc:25683:888584 */ t100301.s1.tag = STRUCTURE_TYPE24753; t100301.s1.value.structure_type24753 = &t100304; /* x181549 stalin.sc:25683:888584 */ t100300.s0.tag = STRUCTURE_TYPE24753; t100300.s0.value.structure_type24753 = &t100301; /* x181550 stalin.sc:25683:888584 */ t100345.s0.tag = EXTERNAL_SYMBOL_TYPE; t100345.s0.value.external_symbol_type = q95; /* x181551 stalin.sc:25683:888584 */ t100346.s0.tag = STRING_TYPE; t100346.s0.value.string_type = "0"; /* x181552 stalin.sc:25683:888584 */ t100346.s1.tag = NULL_TYPE; /* x181553 stalin.sc:25683:888584 */ t100345.s1.tag = STRUCTURE_TYPE24753; t100345.s1.value.structure_type24753 = &t100346; /* x181554 stalin.sc:25683:888584 */ t100344.s0.tag = STRUCTURE_TYPE24753; t100344.s0.value.structure_type24753 = &t100345; /* x181555 stalin.sc:25683:888584 */ t100344.s1.tag = NULL_TYPE; /* x181556 stalin.sc:25683:888584 */ t100300.s1.tag = STRUCTURE_TYPE24753; t100300.s1.value.structure_type24753 = &t100344; /* x181557 stalin.sc:25683:888584 */ t100261.s1.tag = STRUCTURE_TYPE24753; t100261.s1.value.structure_type24753 = &t100300; /* x181558 stalin.sc:25683:888584 */ t100021.s1.tag = STRUCTURE_TYPE24753; t100021.s1.value.structure_type24753 = &t100261; /* x181559 stalin.sc:25683:888584 */ t100020.s1.tag = STRUCTURE_TYPE24753; t100020.s1.value.structure_type24753 = &t100021; /* x181560 stalin.sc:25683:888584 */ t100019.s0.tag = STRUCTURE_TYPE24753; t100019.s0.value.structure_type24753 = &t100020; /* x181561 stalin.sc:25683:888584 */ t100019.s1.tag = NULL_TYPE; /* x181562 stalin.sc:25683:888584 */ t99815.s1.tag = STRUCTURE_TYPE24753; t99815.s1.value.structure_type24753 = &t100019; /* x181563 stalin.sc:25683:888584 */ t99803.s1.tag = STRUCTURE_TYPE24753; t99803.s1.value.structure_type24753 = &t99815; /* x181564 stalin.sc:25683:888584 */ t99734.s1.tag = STRUCTURE_TYPE24753; t99734.s1.value.structure_type24753 = &t99803; /* x181565 stalin.sc:25683:888584 */ t99733.s1.tag = STRUCTURE_TYPE24753; t99733.s1.value.structure_type24753 = &t99734; /* x181566 stalin.sc:25683:888584 */ t99732.s0.tag = STRUCTURE_TYPE24753; t99732.s0.value.structure_type24753 = &t99733; /* x181567 stalin.sc:25683:888584 */ t99732.s1.tag = NULL_TYPE; /* x181568 stalin.sc:25683:888584 */ t99730.s1.tag = STRUCTURE_TYPE24753; t99730.s1.value.structure_type24753 = &t99732; /* x181569 stalin.sc:25683:888584 */ t99729.s1.tag = STRUCTURE_TYPE24753; t99729.s1.value.structure_type24753 = &t99730; /* x181570 stalin.sc:25683:888584 */ t99728.s0.tag = STRUCTURE_TYPE24753; t99728.s0.value.structure_type24753 = &t99729; /* x181571 stalin.sc:25683:888584 */ t99728.s1.tag = NULL_TYPE; /* x181572 stalin.sc:25683:888584 */ t99727.s1.tag = STRUCTURE_TYPE24753; t99727.s1.value.structure_type24753 = &t99728; /* x181573 stalin.sc:25683:888584 */ t99726.s1.tag = STRUCTURE_TYPE24753; t99726.s1.value.structure_type24753 = &t99727; /* x181574 stalin.sc:25683:888584 */ t99725.s0.tag = STRUCTURE_TYPE24753; t99725.s0.value.structure_type24753 = &t99726; /* x181575 stalin.sc:25683:888584 */ t100348.s0.tag = EXTERNAL_SYMBOL_TYPE; t100348.s0.value.external_symbol_type = q42; /* x181576 stalin.sc:25683:888584 */ t100349.s0.tag = EXTERNAL_SYMBOL_TYPE; t100349.s0.value.external_symbol_type = q329; /* x181577 stalin.sc:25683:888584 */ t100351.s0.tag = EXTERNAL_SYMBOL_TYPE; t100351.s0.value.external_symbol_type = q39; /* x181578 stalin.sc:25683:888584 */ t100353.s0.tag = EXTERNAL_SYMBOL_TYPE; t100353.s0.value.external_symbol_type = q161; /* x181579 stalin.sc:25683:888584 */ t100353.s1.tag = NULL_TYPE; /* x181580 stalin.sc:25683:888584 */ t100352.s0.tag = STRUCTURE_TYPE24753; t100352.s0.value.structure_type24753 = &t100353; /* x181581 stalin.sc:25683:888584 */ t100355.s0.tag = EXTERNAL_SYMBOL_TYPE; t100355.s0.value.external_symbol_type = q242; /* x181582 stalin.sc:25683:888584 */ t100358.s0.tag = EXTERNAL_SYMBOL_TYPE; t100358.s0.value.external_symbol_type = q308; /* x181583 stalin.sc:25683:888584 */ t100359.s0.tag = FIXNUM_TYPE; t100359.s0.value.fixnum_type = 0; /* x181584 stalin.sc:25683:888584 */ t100359.s1.tag = NULL_TYPE; /* x181585 stalin.sc:25683:888584 */ t100358.s1.tag = STRUCTURE_TYPE24753; t100358.s1.value.structure_type24753 = &t100359; /* x181586 stalin.sc:25683:888584 */ t100357.s0.tag = STRUCTURE_TYPE24753; t100357.s0.value.structure_type24753 = &t100358; /* x181587 stalin.sc:25683:888584 */ t100361.s0.tag = EXTERNAL_SYMBOL_TYPE; t100361.s0.value.external_symbol_type = q330; /* x181588 stalin.sc:25683:888584 */ t100363.s0.tag = EXTERNAL_SYMBOL_TYPE; t100363.s0.value.external_symbol_type = q162; /* x181589 stalin.sc:25683:888584 */ t100364.s0.tag = EXTERNAL_SYMBOL_TYPE; t100364.s0.value.external_symbol_type = q161; /* x181590 stalin.sc:25683:888584 */ t100364.s1.tag = NULL_TYPE; /* x181591 stalin.sc:25683:888584 */ t100363.s1.tag = STRUCTURE_TYPE24753; t100363.s1.value.structure_type24753 = &t100364; /* x181592 stalin.sc:25683:888584 */ t100362.s0.tag = STRUCTURE_TYPE24753; t100362.s0.value.structure_type24753 = &t100363; /* x181593 stalin.sc:25683:888584 */ t100362.s1.tag = NULL_TYPE; /* x181594 stalin.sc:25683:888584 */ t100361.s1.tag = STRUCTURE_TYPE24753; t100361.s1.value.structure_type24753 = &t100362; /* x181595 stalin.sc:25683:888584 */ t100360.s0.tag = STRUCTURE_TYPE24753; t100360.s0.value.structure_type24753 = &t100361; /* x181596 stalin.sc:25683:888584 */ t100360.s1.tag = NULL_TYPE; /* x181597 stalin.sc:25683:888584 */ t100357.s1.tag = STRUCTURE_TYPE24753; t100357.s1.value.structure_type24753 = &t100360; /* x181598 stalin.sc:25683:888584 */ t100356.s0.tag = STRUCTURE_TYPE24753; t100356.s0.value.structure_type24753 = &t100357; /* x181599 stalin.sc:25683:888584 */ t100366.s0.tag = EXTERNAL_SYMBOL_TYPE; t100366.s0.value.external_symbol_type = q97; /* x181600 stalin.sc:25683:888584 */ t100368.s0.tag = EXTERNAL_SYMBOL_TYPE; t100368.s0.value.external_symbol_type = q331; /* x181601 stalin.sc:25683:888584 */ t100369.s0.tag = EXTERNAL_SYMBOL_TYPE; t100369.s0.value.external_symbol_type = q260; /* x181602 stalin.sc:25683:888584 */ t100369.s1.tag = NULL_TYPE; /* x181603 stalin.sc:25683:888584 */ t100368.s1.tag = STRUCTURE_TYPE24753; t100368.s1.value.structure_type24753 = &t100369; /* x181604 stalin.sc:25683:888584 */ t100367.s0.tag = STRUCTURE_TYPE24753; t100367.s0.value.structure_type24753 = &t100368; /* x181605 stalin.sc:25683:888584 */ t100371.s0.tag = EXTERNAL_SYMBOL_TYPE; t100371.s0.value.external_symbol_type = q43; /* x181606 stalin.sc:25683:888584 */ t100372.s0.tag = EXTERNAL_SYMBOL_TYPE; t100372.s0.value.external_symbol_type = q260; /* x181607 stalin.sc:25683:888584 */ t100374.s0.tag = EXTERNAL_SYMBOL_TYPE; t100374.s0.value.external_symbol_type = q2; /* x181608 stalin.sc:25683:888584 */ t100375.s0.tag = EXTERNAL_SYMBOL_TYPE; t100375.s0.value.external_symbol_type = q260; /* x181609 stalin.sc:25683:888584 */ t100375.s1.tag = NULL_TYPE; /* x181610 stalin.sc:25683:888584 */ t100374.s1.tag = STRUCTURE_TYPE24753; t100374.s1.value.structure_type24753 = &t100375; /* x181611 stalin.sc:25683:888584 */ t100373.s0.tag = STRUCTURE_TYPE24753; t100373.s0.value.structure_type24753 = &t100374; /* x181612 stalin.sc:25683:888584 */ t100376.s0.tag = FALSE_TYPE; /* x181613 stalin.sc:25683:888584 */ t100376.s1.tag = NULL_TYPE; /* x181614 stalin.sc:25683:888584 */ t100373.s1.tag = STRUCTURE_TYPE24753; t100373.s1.value.structure_type24753 = &t100376; /* x181615 stalin.sc:25683:888584 */ t100372.s1.tag = STRUCTURE_TYPE24753; t100372.s1.value.structure_type24753 = &t100373; /* x181616 stalin.sc:25683:888584 */ t100371.s1.tag = STRUCTURE_TYPE24753; t100371.s1.value.structure_type24753 = &t100372; /* x181617 stalin.sc:25683:888584 */ t100370.s0.tag = STRUCTURE_TYPE24753; t100370.s0.value.structure_type24753 = &t100371; /* x181618 stalin.sc:25683:888584 */ t100370.s1.tag = NULL_TYPE; /* x181619 stalin.sc:25683:888584 */ t100367.s1.tag = STRUCTURE_TYPE24753; t100367.s1.value.structure_type24753 = &t100370; /* x181620 stalin.sc:25683:888584 */ t100366.s1.tag = STRUCTURE_TYPE24753; t100366.s1.value.structure_type24753 = &t100367; /* x181621 stalin.sc:25683:888584 */ t100365.s0.tag = STRUCTURE_TYPE24753; t100365.s0.value.structure_type24753 = &t100366; /* x181622 stalin.sc:25683:888584 */ t100378.s0.tag = EXTERNAL_SYMBOL_TYPE; t100378.s0.value.external_symbol_type = q97; /* x181623 stalin.sc:25683:888584 */ t100380.s0.tag = EXTERNAL_SYMBOL_TYPE; t100380.s0.value.external_symbol_type = q332; /* x181624 stalin.sc:25683:888584 */ t100381.s0.tag = EXTERNAL_SYMBOL_TYPE; t100381.s0.value.external_symbol_type = q260; /* x181625 stalin.sc:25683:888584 */ t100381.s1.tag = NULL_TYPE; /* x181626 stalin.sc:25683:888584 */ t100380.s1.tag = STRUCTURE_TYPE24753; t100380.s1.value.structure_type24753 = &t100381; /* x181627 stalin.sc:25683:888584 */ t100379.s0.tag = STRUCTURE_TYPE24753; t100379.s0.value.structure_type24753 = &t100380; /* x181628 stalin.sc:25683:888584 */ t100383.s0.tag = EXTERNAL_SYMBOL_TYPE; t100383.s0.value.external_symbol_type = q43; /* x181629 stalin.sc:25683:888584 */ t100385.s0.tag = EXTERNAL_SYMBOL_TYPE; t100385.s0.value.external_symbol_type = q120; /* x181630 stalin.sc:25683:888584 */ t100386.s0.tag = EXTERNAL_SYMBOL_TYPE; t100386.s0.value.external_symbol_type = q308; /* x181631 stalin.sc:25683:888584 */ t100387.s0.tag = EXTERNAL_SYMBOL_TYPE; t100387.s0.value.external_symbol_type = q330; /* x181632 stalin.sc:25683:888584 */ t100387.s1.tag = NULL_TYPE; /* x181633 stalin.sc:25683:888584 */ t100386.s1.tag = STRUCTURE_TYPE24753; t100386.s1.value.structure_type24753 = &t100387; /* x181634 stalin.sc:25683:888584 */ t100385.s1.tag = STRUCTURE_TYPE24753; t100385.s1.value.structure_type24753 = &t100386; /* x181635 stalin.sc:25683:888584 */ t100384.s0.tag = STRUCTURE_TYPE24753; t100384.s0.value.structure_type24753 = &t100385; /* x181636 stalin.sc:25683:888584 */ t100388.s0.tag = EXTERNAL_SYMBOL_TYPE; t100388.s0.value.external_symbol_type = q260; /* x181637 stalin.sc:25683:888584 */ t100390.s0.tag = EXTERNAL_SYMBOL_TYPE; t100390.s0.value.external_symbol_type = q242; /* x181638 stalin.sc:25683:888584 */ t100393.s0.tag = EXTERNAL_SYMBOL_TYPE; t100393.s0.value.external_symbol_type = q261; /* x181639 stalin.sc:25683:888584 */ t100395.s0.tag = EXTERNAL_SYMBOL_TYPE; t100395.s0.value.external_symbol_type = q163; /* x181640 stalin.sc:25683:888584 */ t100396.s0.tag = EXTERNAL_SYMBOL_TYPE; t100396.s0.value.external_symbol_type = q161; /* x181641 stalin.sc:25683:888584 */ t100397.s0.tag = EXTERNAL_SYMBOL_TYPE; t100397.s0.value.external_symbol_type = q308; /* x181642 stalin.sc:25683:888584 */ t100397.s1.tag = NULL_TYPE; /* x181643 stalin.sc:25683:888584 */ t100396.s1.tag = STRUCTURE_TYPE24753; t100396.s1.value.structure_type24753 = &t100397; /* x181644 stalin.sc:25683:888584 */ t100395.s1.tag = STRUCTURE_TYPE24753; t100395.s1.value.structure_type24753 = &t100396; /* x181645 stalin.sc:25683:888584 */ t100394.s0.tag = STRUCTURE_TYPE24753; t100394.s0.value.structure_type24753 = &t100395; /* x181646 stalin.sc:25683:888584 */ t100394.s1.tag = NULL_TYPE; /* x181647 stalin.sc:25683:888584 */ t100393.s1.tag = STRUCTURE_TYPE24753; t100393.s1.value.structure_type24753 = &t100394; /* x181648 stalin.sc:25683:888584 */ t100392.s0.tag = STRUCTURE_TYPE24753; t100392.s0.value.structure_type24753 = &t100393; /* x181649 stalin.sc:25683:888584 */ t100392.s1.tag = NULL_TYPE; /* x181650 stalin.sc:25683:888584 */ t100391.s0.tag = STRUCTURE_TYPE24753; t100391.s0.value.structure_type24753 = &t100392; /* x181651 stalin.sc:25683:888584 */ t100399.s0.tag = EXTERNAL_SYMBOL_TYPE; t100399.s0.value.external_symbol_type = q42; /* x181652 stalin.sc:25683:888584 */ t100400.s0.tag = EXTERNAL_SYMBOL_TYPE; t100400.s0.value.external_symbol_type = q308; /* x181653 stalin.sc:25683:888584 */ t100402.s0.tag = EXTERNAL_SYMBOL_TYPE; t100402.s0.value.external_symbol_type = q4; /* x181654 stalin.sc:25683:888584 */ t100403.s0.tag = EXTERNAL_SYMBOL_TYPE; t100403.s0.value.external_symbol_type = q308; /* x181655 stalin.sc:25683:888584 */ t100404.s0.tag = FIXNUM_TYPE; t100404.s0.value.fixnum_type = 1; /* x181656 stalin.sc:25683:888584 */ t100404.s1.tag = NULL_TYPE; /* x181657 stalin.sc:25683:888584 */ t100403.s1.tag = STRUCTURE_TYPE24753; t100403.s1.value.structure_type24753 = &t100404; /* x181658 stalin.sc:25683:888584 */ t100402.s1.tag = STRUCTURE_TYPE24753; t100402.s1.value.structure_type24753 = &t100403; /* x181659 stalin.sc:25683:888584 */ t100401.s0.tag = STRUCTURE_TYPE24753; t100401.s0.value.structure_type24753 = &t100402; /* x181660 stalin.sc:25683:888584 */ t100401.s1.tag = NULL_TYPE; /* x181661 stalin.sc:25683:888584 */ t100400.s1.tag = STRUCTURE_TYPE24753; t100400.s1.value.structure_type24753 = &t100401; /* x181662 stalin.sc:25683:888584 */ t100399.s1.tag = STRUCTURE_TYPE24753; t100399.s1.value.structure_type24753 = &t100400; /* x181663 stalin.sc:25683:888584 */ t100398.s0.tag = STRUCTURE_TYPE24753; t100398.s0.value.structure_type24753 = &t100399; /* x181664 stalin.sc:25683:888584 */ t100406.s0.tag = EXTERNAL_SYMBOL_TYPE; t100406.s0.value.external_symbol_type = q240; /* x181665 stalin.sc:25683:888584 */ t100409.s0.tag = EXTERNAL_SYMBOL_TYPE; t100409.s0.value.external_symbol_type = q263; /* x181666 stalin.sc:25683:888584 */ t100410.s0.tag = EXTERNAL_SYMBOL_TYPE; t100410.s0.value.external_symbol_type = q261; /* x181667 stalin.sc:25683:888584 */ t100411.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x181668 stalin.sc:25683:888584 */ t100411.s1.tag = NULL_TYPE; /* x181669 stalin.sc:25683:888584 */ t100410.s1.tag = STRUCTURE_TYPE24753; t100410.s1.value.structure_type24753 = &t100411; /* x181670 stalin.sc:25683:888584 */ t100409.s1.tag = STRUCTURE_TYPE24753; t100409.s1.value.structure_type24753 = &t100410; /* x181671 stalin.sc:25683:888584 */ t100408.s0.tag = STRUCTURE_TYPE24753; t100408.s0.value.structure_type24753 = &t100409; /* x181672 stalin.sc:25683:888584 */ t100413.s0.tag = EXTERNAL_SYMBOL_TYPE; t100413.s0.value.external_symbol_type = q332; /* x181673 stalin.sc:25683:888584 */ t100415.s0.tag = EXTERNAL_SYMBOL_TYPE; t100415.s0.value.external_symbol_type = q130; /* x181674 stalin.sc:25683:888584 */ t100416.s0.tag = FIXNUM_TYPE; t100416.s0.value.fixnum_type = 2; /* x181675 stalin.sc:25683:888584 */ t100417.s0.tag = EXTERNAL_SYMBOL_TYPE; t100417.s0.value.external_symbol_type = q260; /* x181676 stalin.sc:25683:888584 */ t100417.s1.tag = NULL_TYPE; /* x181677 stalin.sc:25683:888584 */ t100416.s1.tag = STRUCTURE_TYPE24753; t100416.s1.value.structure_type24753 = &t100417; /* x181678 stalin.sc:25683:888584 */ t100415.s1.tag = STRUCTURE_TYPE24753; t100415.s1.value.structure_type24753 = &t100416; /* x181679 stalin.sc:25683:888584 */ t100414.s0.tag = STRUCTURE_TYPE24753; t100414.s0.value.structure_type24753 = &t100415; /* x181680 stalin.sc:25683:888584 */ t100414.s1.tag = NULL_TYPE; /* x181681 stalin.sc:25683:888584 */ t100413.s1.tag = STRUCTURE_TYPE24753; t100413.s1.value.structure_type24753 = &t100414; /* x181682 stalin.sc:25683:888584 */ t100412.s0.tag = STRUCTURE_TYPE24753; t100412.s0.value.structure_type24753 = &t100413; /* x181683 stalin.sc:25683:888584 */ t100412.s1.tag = NULL_TYPE; /* x181684 stalin.sc:25683:888584 */ t100408.s1.tag = STRUCTURE_TYPE24753; t100408.s1.value.structure_type24753 = &t100412; /* x181685 stalin.sc:25683:888584 */ t100407.s0.tag = STRUCTURE_TYPE24753; t100407.s0.value.structure_type24753 = &t100408; /* x181686 stalin.sc:25683:888584 */ t100420.s0.tag = EXTERNAL_SYMBOL_TYPE; t100420.s0.value.external_symbol_type = q263; /* x181687 stalin.sc:25683:888584 */ t100421.s0.tag = EXTERNAL_SYMBOL_TYPE; t100421.s0.value.external_symbol_type = q261; /* x181688 stalin.sc:25683:888584 */ t100422.s0.tag = ((unsigned)((unsigned char)'1'))<<2; /* x181689 stalin.sc:25683:888584 */ t100422.s1.tag = NULL_TYPE; /* x181690 stalin.sc:25683:888584 */ t100421.s1.tag = STRUCTURE_TYPE24753; t100421.s1.value.structure_type24753 = &t100422; /* x181691 stalin.sc:25683:888584 */ t100420.s1.tag = STRUCTURE_TYPE24753; t100420.s1.value.structure_type24753 = &t100421; /* x181692 stalin.sc:25683:888584 */ t100419.s0.tag = STRUCTURE_TYPE24753; t100419.s0.value.structure_type24753 = &t100420; /* x181693 stalin.sc:25683:888584 */ t100424.s0.tag = EXTERNAL_SYMBOL_TYPE; t100424.s0.value.external_symbol_type = q332; /* x181694 stalin.sc:25683:888584 */ t100426.s0.tag = EXTERNAL_SYMBOL_TYPE; t100426.s0.value.external_symbol_type = q4; /* x181695 stalin.sc:25683:888584 */ t100428.s0.tag = EXTERNAL_SYMBOL_TYPE; t100428.s0.value.external_symbol_type = q130; /* x181696 stalin.sc:25683:888584 */ t100429.s0.tag = FIXNUM_TYPE; t100429.s0.value.fixnum_type = 2; /* x181697 stalin.sc:25683:888584 */ t100430.s0.tag = EXTERNAL_SYMBOL_TYPE; t100430.s0.value.external_symbol_type = q260; /* x181698 stalin.sc:25683:888584 */ t100430.s1.tag = NULL_TYPE; /* x181699 stalin.sc:25683:888584 */ t100429.s1.tag = STRUCTURE_TYPE24753; t100429.s1.value.structure_type24753 = &t100430; /* x181700 stalin.sc:25683:888584 */ t100428.s1.tag = STRUCTURE_TYPE24753; t100428.s1.value.structure_type24753 = &t100429; /* x181701 stalin.sc:25683:888584 */ t100427.s0.tag = STRUCTURE_TYPE24753; t100427.s0.value.structure_type24753 = &t100428; /* x181702 stalin.sc:25683:888584 */ t100431.s0.tag = FIXNUM_TYPE; t100431.s0.value.fixnum_type = 1; /* x181703 stalin.sc:25683:888584 */ t100431.s1.tag = NULL_TYPE; /* x181704 stalin.sc:25683:888584 */ t100427.s1.tag = STRUCTURE_TYPE24753; t100427.s1.value.structure_type24753 = &t100431; /* x181705 stalin.sc:25683:888584 */ t100426.s1.tag = STRUCTURE_TYPE24753; t100426.s1.value.structure_type24753 = &t100427; /* x181706 stalin.sc:25683:888584 */ t100425.s0.tag = STRUCTURE_TYPE24753; t100425.s0.value.structure_type24753 = &t100426; /* x181707 stalin.sc:25683:888584 */ t100425.s1.tag = NULL_TYPE; /* x181708 stalin.sc:25683:888584 */ t100424.s1.tag = STRUCTURE_TYPE24753; t100424.s1.value.structure_type24753 = &t100425; /* x181709 stalin.sc:25683:888584 */ t100423.s0.tag = STRUCTURE_TYPE24753; t100423.s0.value.structure_type24753 = &t100424; /* x181710 stalin.sc:25683:888584 */ t100423.s1.tag = NULL_TYPE; /* x181711 stalin.sc:25683:888584 */ t100419.s1.tag = STRUCTURE_TYPE24753; t100419.s1.value.structure_type24753 = &t100423; /* x181712 stalin.sc:25683:888584 */ t100418.s0.tag = STRUCTURE_TYPE24753; t100418.s0.value.structure_type24753 = &t100419; /* x181713 stalin.sc:25683:888584 */ t100433.s0.tag = EXTERNAL_SYMBOL_TYPE; t100433.s0.value.external_symbol_type = q95; /* x181714 stalin.sc:25683:888584 */ t100434.s0.tag = FALSE_TYPE; /* x181715 stalin.sc:25683:888584 */ t100434.s1.tag = NULL_TYPE; /* x181716 stalin.sc:25683:888584 */ t100433.s1.tag = STRUCTURE_TYPE24753; t100433.s1.value.structure_type24753 = &t100434; /* x181717 stalin.sc:25683:888584 */ t100432.s0.tag = STRUCTURE_TYPE24753; t100432.s0.value.structure_type24753 = &t100433; /* x181718 stalin.sc:25683:888584 */ t100432.s1.tag = NULL_TYPE; /* x181719 stalin.sc:25683:888584 */ t100418.s1.tag = STRUCTURE_TYPE24753; t100418.s1.value.structure_type24753 = &t100432; /* x181720 stalin.sc:25683:888584 */ t100407.s1.tag = STRUCTURE_TYPE24753; t100407.s1.value.structure_type24753 = &t100418; /* x181721 stalin.sc:25683:888584 */ t100406.s1.tag = STRUCTURE_TYPE24753; t100406.s1.value.structure_type24753 = &t100407; /* x181722 stalin.sc:25683:888584 */ t100405.s0.tag = STRUCTURE_TYPE24753; t100405.s0.value.structure_type24753 = &t100406; /* x181723 stalin.sc:25683:888584 */ t100405.s1.tag = NULL_TYPE; /* x181724 stalin.sc:25683:888584 */ t100398.s1.tag = STRUCTURE_TYPE24753; t100398.s1.value.structure_type24753 = &t100405; /* x181725 stalin.sc:25683:888584 */ t100391.s1.tag = STRUCTURE_TYPE24753; t100391.s1.value.structure_type24753 = &t100398; /* x181726 stalin.sc:25683:888584 */ t100390.s1.tag = STRUCTURE_TYPE24753; t100390.s1.value.structure_type24753 = &t100391; /* x181727 stalin.sc:25683:888584 */ t100389.s0.tag = STRUCTURE_TYPE24753; t100389.s0.value.structure_type24753 = &t100390; /* x181728 stalin.sc:25683:888584 */ t100389.s1.tag = NULL_TYPE; /* x181729 stalin.sc:25683:888584 */ t100388.s1.tag = STRUCTURE_TYPE24753; t100388.s1.value.structure_type24753 = &t100389; /* x181730 stalin.sc:25683:888584 */ t100384.s1.tag = STRUCTURE_TYPE24753; t100384.s1.value.structure_type24753 = &t100388; /* x181731 stalin.sc:25683:888584 */ t100383.s1.tag = STRUCTURE_TYPE24753; t100383.s1.value.structure_type24753 = &t100384; /* x181732 stalin.sc:25683:888584 */ t100382.s0.tag = STRUCTURE_TYPE24753; t100382.s0.value.structure_type24753 = &t100383; /* x181733 stalin.sc:25683:888584 */ t100382.s1.tag = NULL_TYPE; /* x181734 stalin.sc:25683:888584 */ t100379.s1.tag = STRUCTURE_TYPE24753; t100379.s1.value.structure_type24753 = &t100382; /* x181735 stalin.sc:25683:888584 */ t100378.s1.tag = STRUCTURE_TYPE24753; t100378.s1.value.structure_type24753 = &t100379; /* x181736 stalin.sc:25683:888584 */ t100377.s0.tag = STRUCTURE_TYPE24753; t100377.s0.value.structure_type24753 = &t100378; /* x181737 stalin.sc:25683:888584 */ t100436.s0.tag = EXTERNAL_SYMBOL_TYPE; t100436.s0.value.external_symbol_type = q97; /* x181738 stalin.sc:25683:888584 */ t100438.s0.tag = EXTERNAL_SYMBOL_TYPE; t100438.s0.value.external_symbol_type = q333; /* x181739 stalin.sc:25683:888584 */ t100439.s0.tag = EXTERNAL_SYMBOL_TYPE; t100439.s0.value.external_symbol_type = q260; /* x181740 stalin.sc:25683:888584 */ t100439.s1.tag = NULL_TYPE; /* x181741 stalin.sc:25683:888584 */ t100438.s1.tag = STRUCTURE_TYPE24753; t100438.s1.value.structure_type24753 = &t100439; /* x181742 stalin.sc:25683:888584 */ t100437.s0.tag = STRUCTURE_TYPE24753; t100437.s0.value.structure_type24753 = &t100438; /* x181743 stalin.sc:25683:888584 */ t100441.s0.tag = EXTERNAL_SYMBOL_TYPE; t100441.s0.value.external_symbol_type = q43; /* x181744 stalin.sc:25683:888584 */ t100443.s0.tag = EXTERNAL_SYMBOL_TYPE; t100443.s0.value.external_symbol_type = q120; /* x181745 stalin.sc:25683:888584 */ t100444.s0.tag = EXTERNAL_SYMBOL_TYPE; t100444.s0.value.external_symbol_type = q308; /* x181746 stalin.sc:25683:888584 */ t100445.s0.tag = EXTERNAL_SYMBOL_TYPE; t100445.s0.value.external_symbol_type = q330; /* x181747 stalin.sc:25683:888584 */ t100445.s1.tag = NULL_TYPE; /* x181748 stalin.sc:25683:888584 */ t100444.s1.tag = STRUCTURE_TYPE24753; t100444.s1.value.structure_type24753 = &t100445; /* x181749 stalin.sc:25683:888584 */ t100443.s1.tag = STRUCTURE_TYPE24753; t100443.s1.value.structure_type24753 = &t100444; /* x181750 stalin.sc:25683:888584 */ t100442.s0.tag = STRUCTURE_TYPE24753; t100442.s0.value.structure_type24753 = &t100443; /* x181751 stalin.sc:25683:888584 */ t100446.s0.tag = EXTERNAL_SYMBOL_TYPE; t100446.s0.value.external_symbol_type = q260; /* x181752 stalin.sc:25683:888584 */ t100448.s0.tag = EXTERNAL_SYMBOL_TYPE; t100448.s0.value.external_symbol_type = q242; /* x181753 stalin.sc:25683:888584 */ t100451.s0.tag = EXTERNAL_SYMBOL_TYPE; t100451.s0.value.external_symbol_type = q261; /* x181754 stalin.sc:25683:888584 */ t100453.s0.tag = EXTERNAL_SYMBOL_TYPE; t100453.s0.value.external_symbol_type = q163; /* x181755 stalin.sc:25683:888584 */ t100454.s0.tag = EXTERNAL_SYMBOL_TYPE; t100454.s0.value.external_symbol_type = q161; /* x181756 stalin.sc:25683:888584 */ t100455.s0.tag = EXTERNAL_SYMBOL_TYPE; t100455.s0.value.external_symbol_type = q308; /* x181757 stalin.sc:25683:888584 */ t100455.s1.tag = NULL_TYPE; /* x181758 stalin.sc:25683:888584 */ t100454.s1.tag = STRUCTURE_TYPE24753; t100454.s1.value.structure_type24753 = &t100455; /* x181759 stalin.sc:25683:888584 */ t100453.s1.tag = STRUCTURE_TYPE24753; t100453.s1.value.structure_type24753 = &t100454; /* x181760 stalin.sc:25683:888584 */ t100452.s0.tag = STRUCTURE_TYPE24753; t100452.s0.value.structure_type24753 = &t100453; /* x181761 stalin.sc:25683:888584 */ t100452.s1.tag = NULL_TYPE; /* x181762 stalin.sc:25683:888584 */ t100451.s1.tag = STRUCTURE_TYPE24753; t100451.s1.value.structure_type24753 = &t100452; /* x181763 stalin.sc:25683:888584 */ t100450.s0.tag = STRUCTURE_TYPE24753; t100450.s0.value.structure_type24753 = &t100451; /* x181764 stalin.sc:25683:888584 */ t100450.s1.tag = NULL_TYPE; /* x181765 stalin.sc:25683:888584 */ t100449.s0.tag = STRUCTURE_TYPE24753; t100449.s0.value.structure_type24753 = &t100450; /* x181766 stalin.sc:25683:888584 */ t100457.s0.tag = EXTERNAL_SYMBOL_TYPE; t100457.s0.value.external_symbol_type = q42; /* x181767 stalin.sc:25683:888584 */ t100458.s0.tag = EXTERNAL_SYMBOL_TYPE; t100458.s0.value.external_symbol_type = q308; /* x181768 stalin.sc:25683:888584 */ t100460.s0.tag = EXTERNAL_SYMBOL_TYPE; t100460.s0.value.external_symbol_type = q4; /* x181769 stalin.sc:25683:888584 */ t100461.s0.tag = EXTERNAL_SYMBOL_TYPE; t100461.s0.value.external_symbol_type = q308; /* x181770 stalin.sc:25683:888584 */ t100462.s0.tag = FIXNUM_TYPE; t100462.s0.value.fixnum_type = 1; /* x181771 stalin.sc:25683:888584 */ t100462.s1.tag = NULL_TYPE; /* x181772 stalin.sc:25683:888584 */ t100461.s1.tag = STRUCTURE_TYPE24753; t100461.s1.value.structure_type24753 = &t100462; /* x181773 stalin.sc:25683:888584 */ t100460.s1.tag = STRUCTURE_TYPE24753; t100460.s1.value.structure_type24753 = &t100461; /* x181774 stalin.sc:25683:888584 */ t100459.s0.tag = STRUCTURE_TYPE24753; t100459.s0.value.structure_type24753 = &t100460; /* x181775 stalin.sc:25683:888584 */ t100459.s1.tag = NULL_TYPE; /* x181776 stalin.sc:25683:888584 */ t100458.s1.tag = STRUCTURE_TYPE24753; t100458.s1.value.structure_type24753 = &t100459; /* x181777 stalin.sc:25683:888584 */ t100457.s1.tag = STRUCTURE_TYPE24753; t100457.s1.value.structure_type24753 = &t100458; /* x181778 stalin.sc:25683:888584 */ t100456.s0.tag = STRUCTURE_TYPE24753; t100456.s0.value.structure_type24753 = &t100457; /* x181779 stalin.sc:25683:888584 */ t100464.s0.tag = EXTERNAL_SYMBOL_TYPE; t100464.s0.value.external_symbol_type = q240; /* x181780 stalin.sc:25683:888584 */ t100467.s0.tag = EXTERNAL_SYMBOL_TYPE; t100467.s0.value.external_symbol_type = q244; /* x181781 stalin.sc:25683:888584 */ t100469.s0.tag = EXTERNAL_SYMBOL_TYPE; t100469.s0.value.external_symbol_type = q266; /* x181782 stalin.sc:25683:888584 */ t100470.s0.tag = EXTERNAL_SYMBOL_TYPE; t100470.s0.value.external_symbol_type = q261; /* x181783 stalin.sc:25683:888584 */ t100471.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x181784 stalin.sc:25683:888584 */ t100471.s1.tag = NULL_TYPE; /* x181785 stalin.sc:25683:888584 */ t100470.s1.tag = STRUCTURE_TYPE24753; t100470.s1.value.structure_type24753 = &t100471; /* x181786 stalin.sc:25683:888584 */ t100469.s1.tag = STRUCTURE_TYPE24753; t100469.s1.value.structure_type24753 = &t100470; /* x181787 stalin.sc:25683:888584 */ t100468.s0.tag = STRUCTURE_TYPE24753; t100468.s0.value.structure_type24753 = &t100469; /* x181788 stalin.sc:25683:888584 */ t100473.s0.tag = EXTERNAL_SYMBOL_TYPE; t100473.s0.value.external_symbol_type = q267; /* x181789 stalin.sc:25683:888584 */ t100474.s0.tag = EXTERNAL_SYMBOL_TYPE; t100474.s0.value.external_symbol_type = q261; /* x181790 stalin.sc:25683:888584 */ t100475.s0.tag = ((unsigned)((unsigned char)'7'))<<2; /* x181791 stalin.sc:25683:888584 */ t100475.s1.tag = NULL_TYPE; /* x181792 stalin.sc:25683:888584 */ t100474.s1.tag = STRUCTURE_TYPE24753; t100474.s1.value.structure_type24753 = &t100475; /* x181793 stalin.sc:25683:888584 */ t100473.s1.tag = STRUCTURE_TYPE24753; t100473.s1.value.structure_type24753 = &t100474; /* x181794 stalin.sc:25683:888584 */ t100472.s0.tag = STRUCTURE_TYPE24753; t100472.s0.value.structure_type24753 = &t100473; /* x181795 stalin.sc:25683:888584 */ t100472.s1.tag = NULL_TYPE; /* x181796 stalin.sc:25683:888584 */ t100468.s1.tag = STRUCTURE_TYPE24753; t100468.s1.value.structure_type24753 = &t100472; /* x181797 stalin.sc:25683:888584 */ t100467.s1.tag = STRUCTURE_TYPE24753; t100467.s1.value.structure_type24753 = &t100468; /* x181798 stalin.sc:25683:888584 */ t100466.s0.tag = STRUCTURE_TYPE24753; t100466.s0.value.structure_type24753 = &t100467; /* x181799 stalin.sc:25683:888584 */ t100477.s0.tag = EXTERNAL_SYMBOL_TYPE; t100477.s0.value.external_symbol_type = q333; /* x181800 stalin.sc:25683:888584 */ t100479.s0.tag = EXTERNAL_SYMBOL_TYPE; t100479.s0.value.external_symbol_type = q4; /* x181801 stalin.sc:25683:888584 */ t100481.s0.tag = EXTERNAL_SYMBOL_TYPE; t100481.s0.value.external_symbol_type = q130; /* x181802 stalin.sc:25683:888584 */ t100482.s0.tag = FIXNUM_TYPE; t100482.s0.value.fixnum_type = 8; /* x181803 stalin.sc:25683:888584 */ t100483.s0.tag = EXTERNAL_SYMBOL_TYPE; t100483.s0.value.external_symbol_type = q260; /* x181804 stalin.sc:25683:888584 */ t100483.s1.tag = NULL_TYPE; /* x181805 stalin.sc:25683:888584 */ t100482.s1.tag = STRUCTURE_TYPE24753; t100482.s1.value.structure_type24753 = &t100483; /* x181806 stalin.sc:25683:888584 */ t100481.s1.tag = STRUCTURE_TYPE24753; t100481.s1.value.structure_type24753 = &t100482; /* x181807 stalin.sc:25683:888584 */ t100480.s0.tag = STRUCTURE_TYPE24753; t100480.s0.value.structure_type24753 = &t100481; /* x181808 stalin.sc:25683:888584 */ t100485.s0.tag = EXTERNAL_SYMBOL_TYPE; t100485.s0.value.external_symbol_type = q2; /* x181809 stalin.sc:25683:888584 */ t100487.s0.tag = EXTERNAL_SYMBOL_TYPE; t100487.s0.value.external_symbol_type = q157; /* x181810 stalin.sc:25683:888584 */ t100488.s0.tag = EXTERNAL_SYMBOL_TYPE; t100488.s0.value.external_symbol_type = q261; /* x181811 stalin.sc:25683:888584 */ t100488.s1.tag = NULL_TYPE; /* x181812 stalin.sc:25683:888584 */ t100487.s1.tag = STRUCTURE_TYPE24753; t100487.s1.value.structure_type24753 = &t100488; /* x181813 stalin.sc:25683:888584 */ t100486.s0.tag = STRUCTURE_TYPE24753; t100486.s0.value.structure_type24753 = &t100487; /* x181814 stalin.sc:25683:888584 */ t100490.s0.tag = EXTERNAL_SYMBOL_TYPE; t100490.s0.value.external_symbol_type = q157; /* x181815 stalin.sc:25683:888584 */ t100491.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x181816 stalin.sc:25683:888584 */ t100491.s1.tag = NULL_TYPE; /* x181817 stalin.sc:25683:888584 */ t100490.s1.tag = STRUCTURE_TYPE24753; t100490.s1.value.structure_type24753 = &t100491; /* x181818 stalin.sc:25683:888584 */ t100489.s0.tag = STRUCTURE_TYPE24753; t100489.s0.value.structure_type24753 = &t100490; /* x181819 stalin.sc:25683:888584 */ t100489.s1.tag = NULL_TYPE; /* x181820 stalin.sc:25683:888584 */ t100486.s1.tag = STRUCTURE_TYPE24753; t100486.s1.value.structure_type24753 = &t100489; /* x181821 stalin.sc:25683:888584 */ t100485.s1.tag = STRUCTURE_TYPE24753; t100485.s1.value.structure_type24753 = &t100486; /* x181822 stalin.sc:25683:888584 */ t100484.s0.tag = STRUCTURE_TYPE24753; t100484.s0.value.structure_type24753 = &t100485; /* x181823 stalin.sc:25683:888584 */ t100484.s1.tag = NULL_TYPE; /* x181824 stalin.sc:25683:888584 */ t100480.s1.tag = STRUCTURE_TYPE24753; t100480.s1.value.structure_type24753 = &t100484; /* x181825 stalin.sc:25683:888584 */ t100479.s1.tag = STRUCTURE_TYPE24753; t100479.s1.value.structure_type24753 = &t100480; /* x181826 stalin.sc:25683:888584 */ t100478.s0.tag = STRUCTURE_TYPE24753; t100478.s0.value.structure_type24753 = &t100479; /* x181827 stalin.sc:25683:888584 */ t100478.s1.tag = NULL_TYPE; /* x181828 stalin.sc:25683:888584 */ t100477.s1.tag = STRUCTURE_TYPE24753; t100477.s1.value.structure_type24753 = &t100478; /* x181829 stalin.sc:25683:888584 */ t100476.s0.tag = STRUCTURE_TYPE24753; t100476.s0.value.structure_type24753 = &t100477; /* x181830 stalin.sc:25683:888584 */ t100476.s1.tag = NULL_TYPE; /* x181831 stalin.sc:25683:888584 */ t100466.s1.tag = STRUCTURE_TYPE24753; t100466.s1.value.structure_type24753 = &t100476; /* x181832 stalin.sc:25683:888584 */ t100465.s0.tag = STRUCTURE_TYPE24753; t100465.s0.value.structure_type24753 = &t100466; /* x181833 stalin.sc:25683:888584 */ t100493.s0.tag = EXTERNAL_SYMBOL_TYPE; t100493.s0.value.external_symbol_type = q95; /* x181834 stalin.sc:25683:888584 */} void initialize_constants36(void) {t100494.s0.tag = FALSE_TYPE; /* x181835 stalin.sc:25683:888584 */ t100494.s1.tag = NULL_TYPE; /* x181836 stalin.sc:25683:888584 */ t100493.s1.tag = STRUCTURE_TYPE24753; t100493.s1.value.structure_type24753 = &t100494; /* x181837 stalin.sc:25683:888584 */ t100492.s0.tag = STRUCTURE_TYPE24753; t100492.s0.value.structure_type24753 = &t100493; /* x181838 stalin.sc:25683:888584 */ t100492.s1.tag = NULL_TYPE; /* x181839 stalin.sc:25683:888584 */ t100465.s1.tag = STRUCTURE_TYPE24753; t100465.s1.value.structure_type24753 = &t100492; /* x181840 stalin.sc:25683:888584 */ t100464.s1.tag = STRUCTURE_TYPE24753; t100464.s1.value.structure_type24753 = &t100465; /* x181841 stalin.sc:25683:888584 */ t100463.s0.tag = STRUCTURE_TYPE24753; t100463.s0.value.structure_type24753 = &t100464; /* x181842 stalin.sc:25683:888584 */ t100463.s1.tag = NULL_TYPE; /* x181843 stalin.sc:25683:888584 */ t100456.s1.tag = STRUCTURE_TYPE24753; t100456.s1.value.structure_type24753 = &t100463; /* x181844 stalin.sc:25683:888584 */ t100449.s1.tag = STRUCTURE_TYPE24753; t100449.s1.value.structure_type24753 = &t100456; /* x181845 stalin.sc:25683:888584 */ t100448.s1.tag = STRUCTURE_TYPE24753; t100448.s1.value.structure_type24753 = &t100449; /* x181846 stalin.sc:25683:888584 */ t100447.s0.tag = STRUCTURE_TYPE24753; t100447.s0.value.structure_type24753 = &t100448; /* x181847 stalin.sc:25683:888584 */ t100447.s1.tag = NULL_TYPE; /* x181848 stalin.sc:25683:888584 */ t100446.s1.tag = STRUCTURE_TYPE24753; t100446.s1.value.structure_type24753 = &t100447; /* x181849 stalin.sc:25683:888584 */ t100442.s1.tag = STRUCTURE_TYPE24753; t100442.s1.value.structure_type24753 = &t100446; /* x181850 stalin.sc:25683:888584 */ t100441.s1.tag = STRUCTURE_TYPE24753; t100441.s1.value.structure_type24753 = &t100442; /* x181851 stalin.sc:25683:888584 */ t100440.s0.tag = STRUCTURE_TYPE24753; t100440.s0.value.structure_type24753 = &t100441; /* x181852 stalin.sc:25683:888584 */ t100440.s1.tag = NULL_TYPE; /* x181853 stalin.sc:25683:888584 */ t100437.s1.tag = STRUCTURE_TYPE24753; t100437.s1.value.structure_type24753 = &t100440; /* x181854 stalin.sc:25683:888584 */ t100436.s1.tag = STRUCTURE_TYPE24753; t100436.s1.value.structure_type24753 = &t100437; /* x181855 stalin.sc:25683:888584 */ t100435.s0.tag = STRUCTURE_TYPE24753; t100435.s0.value.structure_type24753 = &t100436; /* x181856 stalin.sc:25683:888584 */ t100496.s0.tag = EXTERNAL_SYMBOL_TYPE; t100496.s0.value.external_symbol_type = q97; /* x181857 stalin.sc:25683:888584 */ t100498.s0.tag = EXTERNAL_SYMBOL_TYPE; t100498.s0.value.external_symbol_type = q334; /* x181858 stalin.sc:25683:888584 */ t100499.s0.tag = EXTERNAL_SYMBOL_TYPE; t100499.s0.value.external_symbol_type = q260; /* x181859 stalin.sc:25683:888584 */ t100499.s1.tag = NULL_TYPE; /* x181860 stalin.sc:25683:888584 */ t100498.s1.tag = STRUCTURE_TYPE24753; t100498.s1.value.structure_type24753 = &t100499; /* x181861 stalin.sc:25683:888584 */ t100497.s0.tag = STRUCTURE_TYPE24753; t100497.s0.value.structure_type24753 = &t100498; /* x181862 stalin.sc:25683:888584 */ t100501.s0.tag = EXTERNAL_SYMBOL_TYPE; t100501.s0.value.external_symbol_type = q43; /* x181863 stalin.sc:25683:888584 */ t100503.s0.tag = EXTERNAL_SYMBOL_TYPE; t100503.s0.value.external_symbol_type = q120; /* x181864 stalin.sc:25683:888584 */ t100504.s0.tag = EXTERNAL_SYMBOL_TYPE; t100504.s0.value.external_symbol_type = q308; /* x181865 stalin.sc:25683:888584 */ t100505.s0.tag = EXTERNAL_SYMBOL_TYPE; t100505.s0.value.external_symbol_type = q330; /* x181866 stalin.sc:25683:888584 */ t100505.s1.tag = NULL_TYPE; /* x181867 stalin.sc:25683:888584 */ t100504.s1.tag = STRUCTURE_TYPE24753; t100504.s1.value.structure_type24753 = &t100505; /* x181868 stalin.sc:25683:888584 */ t100503.s1.tag = STRUCTURE_TYPE24753; t100503.s1.value.structure_type24753 = &t100504; /* x181869 stalin.sc:25683:888584 */ t100502.s0.tag = STRUCTURE_TYPE24753; t100502.s0.value.structure_type24753 = &t100503; /* x181870 stalin.sc:25683:888584 */ t100506.s0.tag = EXTERNAL_SYMBOL_TYPE; t100506.s0.value.external_symbol_type = q260; /* x181871 stalin.sc:25683:888584 */ t100508.s0.tag = EXTERNAL_SYMBOL_TYPE; t100508.s0.value.external_symbol_type = q242; /* x181872 stalin.sc:25683:888584 */ t100511.s0.tag = EXTERNAL_SYMBOL_TYPE; t100511.s0.value.external_symbol_type = q261; /* x181873 stalin.sc:25683:888584 */ t100513.s0.tag = EXTERNAL_SYMBOL_TYPE; t100513.s0.value.external_symbol_type = q163; /* x181874 stalin.sc:25683:888584 */ t100514.s0.tag = EXTERNAL_SYMBOL_TYPE; t100514.s0.value.external_symbol_type = q161; /* x181875 stalin.sc:25683:888584 */ t100515.s0.tag = EXTERNAL_SYMBOL_TYPE; t100515.s0.value.external_symbol_type = q308; /* x181876 stalin.sc:25683:888584 */ t100515.s1.tag = NULL_TYPE; /* x181877 stalin.sc:25683:888584 */ t100514.s1.tag = STRUCTURE_TYPE24753; t100514.s1.value.structure_type24753 = &t100515; /* x181878 stalin.sc:25683:888584 */ t100513.s1.tag = STRUCTURE_TYPE24753; t100513.s1.value.structure_type24753 = &t100514; /* x181879 stalin.sc:25683:888584 */ t100512.s0.tag = STRUCTURE_TYPE24753; t100512.s0.value.structure_type24753 = &t100513; /* x181880 stalin.sc:25683:888584 */ t100512.s1.tag = NULL_TYPE; /* x181881 stalin.sc:25683:888584 */ t100511.s1.tag = STRUCTURE_TYPE24753; t100511.s1.value.structure_type24753 = &t100512; /* x181882 stalin.sc:25683:888584 */ t100510.s0.tag = STRUCTURE_TYPE24753; t100510.s0.value.structure_type24753 = &t100511; /* x181883 stalin.sc:25683:888584 */ t100510.s1.tag = NULL_TYPE; /* x181884 stalin.sc:25683:888584 */ t100509.s0.tag = STRUCTURE_TYPE24753; t100509.s0.value.structure_type24753 = &t100510; /* x181885 stalin.sc:25683:888584 */ t100517.s0.tag = EXTERNAL_SYMBOL_TYPE; t100517.s0.value.external_symbol_type = q42; /* x181886 stalin.sc:25683:888584 */ t100518.s0.tag = EXTERNAL_SYMBOL_TYPE; t100518.s0.value.external_symbol_type = q308; /* x181887 stalin.sc:25683:888584 */ t100520.s0.tag = EXTERNAL_SYMBOL_TYPE; t100520.s0.value.external_symbol_type = q4; /* x181888 stalin.sc:25683:888584 */ t100521.s0.tag = EXTERNAL_SYMBOL_TYPE; t100521.s0.value.external_symbol_type = q308; /* x181889 stalin.sc:25683:888584 */ t100522.s0.tag = FIXNUM_TYPE; t100522.s0.value.fixnum_type = 1; /* x181890 stalin.sc:25683:888584 */ t100522.s1.tag = NULL_TYPE; /* x181891 stalin.sc:25683:888584 */ t100521.s1.tag = STRUCTURE_TYPE24753; t100521.s1.value.structure_type24753 = &t100522; /* x181892 stalin.sc:25683:888584 */ t100520.s1.tag = STRUCTURE_TYPE24753; t100520.s1.value.structure_type24753 = &t100521; /* x181893 stalin.sc:25683:888584 */ t100519.s0.tag = STRUCTURE_TYPE24753; t100519.s0.value.structure_type24753 = &t100520; /* x181894 stalin.sc:25683:888584 */ t100519.s1.tag = NULL_TYPE; /* x181895 stalin.sc:25683:888584 */ t100518.s1.tag = STRUCTURE_TYPE24753; t100518.s1.value.structure_type24753 = &t100519; /* x181896 stalin.sc:25683:888584 */ t100517.s1.tag = STRUCTURE_TYPE24753; t100517.s1.value.structure_type24753 = &t100518; /* x181897 stalin.sc:25683:888584 */ t100516.s0.tag = STRUCTURE_TYPE24753; t100516.s0.value.structure_type24753 = &t100517; /* x181898 stalin.sc:25683:888584 */ t100524.s0.tag = EXTERNAL_SYMBOL_TYPE; t100524.s0.value.external_symbol_type = q240; /* x181899 stalin.sc:25683:888584 */ t100527.s0.tag = EXTERNAL_SYMBOL_TYPE; t100527.s0.value.external_symbol_type = q269; /* x181900 stalin.sc:25683:888584 */ t100528.s0.tag = EXTERNAL_SYMBOL_TYPE; t100528.s0.value.external_symbol_type = q261; /* x181901 stalin.sc:25683:888584 */ t100528.s1.tag = NULL_TYPE; /* x181902 stalin.sc:25683:888584 */ t100527.s1.tag = STRUCTURE_TYPE24753; t100527.s1.value.structure_type24753 = &t100528; /* x181903 stalin.sc:25683:888584 */ t100526.s0.tag = STRUCTURE_TYPE24753; t100526.s0.value.structure_type24753 = &t100527; /* x181904 stalin.sc:25683:888584 */ t100530.s0.tag = EXTERNAL_SYMBOL_TYPE; t100530.s0.value.external_symbol_type = q334; /* x181905 stalin.sc:25683:888584 */ t100532.s0.tag = EXTERNAL_SYMBOL_TYPE; t100532.s0.value.external_symbol_type = q4; /* x181906 stalin.sc:25683:888584 */ t100534.s0.tag = EXTERNAL_SYMBOL_TYPE; t100534.s0.value.external_symbol_type = q130; /* x181907 stalin.sc:25683:888584 */ t100535.s0.tag = FIXNUM_TYPE; t100535.s0.value.fixnum_type = 10; /* x181908 stalin.sc:25683:888584 */ t100536.s0.tag = EXTERNAL_SYMBOL_TYPE; t100536.s0.value.external_symbol_type = q260; /* x181909 stalin.sc:25683:888584 */ t100536.s1.tag = NULL_TYPE; /* x181910 stalin.sc:25683:888584 */ t100535.s1.tag = STRUCTURE_TYPE24753; t100535.s1.value.structure_type24753 = &t100536; /* x181911 stalin.sc:25683:888584 */ t100534.s1.tag = STRUCTURE_TYPE24753; t100534.s1.value.structure_type24753 = &t100535; /* x181912 stalin.sc:25683:888584 */ t100533.s0.tag = STRUCTURE_TYPE24753; t100533.s0.value.structure_type24753 = &t100534; /* x181913 stalin.sc:25683:888584 */ t100538.s0.tag = EXTERNAL_SYMBOL_TYPE; t100538.s0.value.external_symbol_type = q2; /* x181914 stalin.sc:25683:888584 */ t100540.s0.tag = EXTERNAL_SYMBOL_TYPE; t100540.s0.value.external_symbol_type = q157; /* x181915 stalin.sc:25683:888584 */ t100541.s0.tag = EXTERNAL_SYMBOL_TYPE; t100541.s0.value.external_symbol_type = q261; /* x181916 stalin.sc:25683:888584 */ t100541.s1.tag = NULL_TYPE; /* x181917 stalin.sc:25683:888584 */ t100540.s1.tag = STRUCTURE_TYPE24753; t100540.s1.value.structure_type24753 = &t100541; /* x181918 stalin.sc:25683:888584 */ t100539.s0.tag = STRUCTURE_TYPE24753; t100539.s0.value.structure_type24753 = &t100540; /* x181919 stalin.sc:25683:888584 */ t100543.s0.tag = EXTERNAL_SYMBOL_TYPE; t100543.s0.value.external_symbol_type = q157; /* x181920 stalin.sc:25683:888584 */ t100544.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x181921 stalin.sc:25683:888584 */ t100544.s1.tag = NULL_TYPE; /* x181922 stalin.sc:25683:888584 */ t100543.s1.tag = STRUCTURE_TYPE24753; t100543.s1.value.structure_type24753 = &t100544; /* x181923 stalin.sc:25683:888584 */ t100542.s0.tag = STRUCTURE_TYPE24753; t100542.s0.value.structure_type24753 = &t100543; /* x181924 stalin.sc:25683:888584 */ t100542.s1.tag = NULL_TYPE; /* x181925 stalin.sc:25683:888584 */ t100539.s1.tag = STRUCTURE_TYPE24753; t100539.s1.value.structure_type24753 = &t100542; /* x181926 stalin.sc:25683:888584 */ t100538.s1.tag = STRUCTURE_TYPE24753; t100538.s1.value.structure_type24753 = &t100539; /* x181927 stalin.sc:25683:888584 */ t100537.s0.tag = STRUCTURE_TYPE24753; t100537.s0.value.structure_type24753 = &t100538; /* x181928 stalin.sc:25683:888584 */ t100537.s1.tag = NULL_TYPE; /* x181929 stalin.sc:25683:888584 */ t100533.s1.tag = STRUCTURE_TYPE24753; t100533.s1.value.structure_type24753 = &t100537; /* x181930 stalin.sc:25683:888584 */ t100532.s1.tag = STRUCTURE_TYPE24753; t100532.s1.value.structure_type24753 = &t100533; /* x181931 stalin.sc:25683:888584 */ t100531.s0.tag = STRUCTURE_TYPE24753; t100531.s0.value.structure_type24753 = &t100532; /* x181932 stalin.sc:25683:888584 */ t100531.s1.tag = NULL_TYPE; /* x181933 stalin.sc:25683:888584 */ t100530.s1.tag = STRUCTURE_TYPE24753; t100530.s1.value.structure_type24753 = &t100531; /* x181934 stalin.sc:25683:888584 */ t100529.s0.tag = STRUCTURE_TYPE24753; t100529.s0.value.structure_type24753 = &t100530; /* x181935 stalin.sc:25683:888584 */ t100529.s1.tag = NULL_TYPE; /* x181936 stalin.sc:25683:888584 */ t100526.s1.tag = STRUCTURE_TYPE24753; t100526.s1.value.structure_type24753 = &t100529; /* x181937 stalin.sc:25683:888584 */ t100525.s0.tag = STRUCTURE_TYPE24753; t100525.s0.value.structure_type24753 = &t100526; /* x181938 stalin.sc:25683:888584 */ t100546.s0.tag = EXTERNAL_SYMBOL_TYPE; t100546.s0.value.external_symbol_type = q95; /* x181939 stalin.sc:25683:888584 */ t100547.s0.tag = FALSE_TYPE; /* x181940 stalin.sc:25683:888584 */ t100547.s1.tag = NULL_TYPE; /* x181941 stalin.sc:25683:888584 */ t100546.s1.tag = STRUCTURE_TYPE24753; t100546.s1.value.structure_type24753 = &t100547; /* x181942 stalin.sc:25683:888584 */ t100545.s0.tag = STRUCTURE_TYPE24753; t100545.s0.value.structure_type24753 = &t100546; /* x181943 stalin.sc:25683:888584 */ t100545.s1.tag = NULL_TYPE; /* x181944 stalin.sc:25683:888584 */ t100525.s1.tag = STRUCTURE_TYPE24753; t100525.s1.value.structure_type24753 = &t100545; /* x181945 stalin.sc:25683:888584 */ t100524.s1.tag = STRUCTURE_TYPE24753; t100524.s1.value.structure_type24753 = &t100525; /* x181946 stalin.sc:25683:888584 */ t100523.s0.tag = STRUCTURE_TYPE24753; t100523.s0.value.structure_type24753 = &t100524; /* x181947 stalin.sc:25683:888584 */ t100523.s1.tag = NULL_TYPE; /* x181948 stalin.sc:25683:888584 */ t100516.s1.tag = STRUCTURE_TYPE24753; t100516.s1.value.structure_type24753 = &t100523; /* x181949 stalin.sc:25683:888584 */ t100509.s1.tag = STRUCTURE_TYPE24753; t100509.s1.value.structure_type24753 = &t100516; /* x181950 stalin.sc:25683:888584 */ t100508.s1.tag = STRUCTURE_TYPE24753; t100508.s1.value.structure_type24753 = &t100509; /* x181951 stalin.sc:25683:888584 */ t100507.s0.tag = STRUCTURE_TYPE24753; t100507.s0.value.structure_type24753 = &t100508; /* x181952 stalin.sc:25683:888584 */ t100507.s1.tag = NULL_TYPE; /* x181953 stalin.sc:25683:888584 */ t100506.s1.tag = STRUCTURE_TYPE24753; t100506.s1.value.structure_type24753 = &t100507; /* x181954 stalin.sc:25683:888584 */ t100502.s1.tag = STRUCTURE_TYPE24753; t100502.s1.value.structure_type24753 = &t100506; /* x181955 stalin.sc:25683:888584 */ t100501.s1.tag = STRUCTURE_TYPE24753; t100501.s1.value.structure_type24753 = &t100502; /* x181956 stalin.sc:25683:888584 */ t100500.s0.tag = STRUCTURE_TYPE24753; t100500.s0.value.structure_type24753 = &t100501; /* x181957 stalin.sc:25683:888584 */ t100500.s1.tag = NULL_TYPE; /* x181958 stalin.sc:25683:888584 */ t100497.s1.tag = STRUCTURE_TYPE24753; t100497.s1.value.structure_type24753 = &t100500; /* x181959 stalin.sc:25683:888584 */ t100496.s1.tag = STRUCTURE_TYPE24753; t100496.s1.value.structure_type24753 = &t100497; /* x181960 stalin.sc:25683:888584 */ t100495.s0.tag = STRUCTURE_TYPE24753; t100495.s0.value.structure_type24753 = &t100496; /* x181961 stalin.sc:25683:888584 */ t100549.s0.tag = EXTERNAL_SYMBOL_TYPE; t100549.s0.value.external_symbol_type = q97; /* x181962 stalin.sc:25683:888584 */ t100551.s0.tag = EXTERNAL_SYMBOL_TYPE; t100551.s0.value.external_symbol_type = q335; /* x181963 stalin.sc:25683:888584 */ t100552.s0.tag = EXTERNAL_SYMBOL_TYPE; t100552.s0.value.external_symbol_type = q260; /* x181964 stalin.sc:25683:888584 */ t100552.s1.tag = NULL_TYPE; /* x181965 stalin.sc:25683:888584 */ t100551.s1.tag = STRUCTURE_TYPE24753; t100551.s1.value.structure_type24753 = &t100552; /* x181966 stalin.sc:25683:888584 */ t100550.s0.tag = STRUCTURE_TYPE24753; t100550.s0.value.structure_type24753 = &t100551; /* x181967 stalin.sc:25683:888584 */ t100554.s0.tag = EXTERNAL_SYMBOL_TYPE; t100554.s0.value.external_symbol_type = q43; /* x181968 stalin.sc:25683:888584 */ t100556.s0.tag = EXTERNAL_SYMBOL_TYPE; t100556.s0.value.external_symbol_type = q120; /* x181969 stalin.sc:25683:888584 */ t100557.s0.tag = EXTERNAL_SYMBOL_TYPE; t100557.s0.value.external_symbol_type = q308; /* x181970 stalin.sc:25683:888584 */ t100558.s0.tag = EXTERNAL_SYMBOL_TYPE; t100558.s0.value.external_symbol_type = q330; /* x181971 stalin.sc:25683:888584 */ t100558.s1.tag = NULL_TYPE; /* x181972 stalin.sc:25683:888584 */ t100557.s1.tag = STRUCTURE_TYPE24753; t100557.s1.value.structure_type24753 = &t100558; /* x181973 stalin.sc:25683:888584 */ t100556.s1.tag = STRUCTURE_TYPE24753; t100556.s1.value.structure_type24753 = &t100557; /* x181974 stalin.sc:25683:888584 */ t100555.s0.tag = STRUCTURE_TYPE24753; t100555.s0.value.structure_type24753 = &t100556; /* x181975 stalin.sc:25683:888584 */ t100559.s0.tag = EXTERNAL_SYMBOL_TYPE; t100559.s0.value.external_symbol_type = q260; /* x181976 stalin.sc:25683:888584 */ t100561.s0.tag = EXTERNAL_SYMBOL_TYPE; t100561.s0.value.external_symbol_type = q242; /* x181977 stalin.sc:25683:888584 */ t100564.s0.tag = EXTERNAL_SYMBOL_TYPE; t100564.s0.value.external_symbol_type = q261; /* x181978 stalin.sc:25683:888584 */ t100566.s0.tag = EXTERNAL_SYMBOL_TYPE; t100566.s0.value.external_symbol_type = q163; /* x181979 stalin.sc:25683:888584 */ t100567.s0.tag = EXTERNAL_SYMBOL_TYPE; t100567.s0.value.external_symbol_type = q161; /* x181980 stalin.sc:25683:888584 */ t100568.s0.tag = EXTERNAL_SYMBOL_TYPE; t100568.s0.value.external_symbol_type = q308; /* x181981 stalin.sc:25683:888584 */ t100568.s1.tag = NULL_TYPE; /* x181982 stalin.sc:25683:888584 */ t100567.s1.tag = STRUCTURE_TYPE24753; t100567.s1.value.structure_type24753 = &t100568; /* x181983 stalin.sc:25683:888584 */ t100566.s1.tag = STRUCTURE_TYPE24753; t100566.s1.value.structure_type24753 = &t100567; /* x181984 stalin.sc:25683:888584 */ t100565.s0.tag = STRUCTURE_TYPE24753; t100565.s0.value.structure_type24753 = &t100566; /* x181985 stalin.sc:25683:888584 */ t100565.s1.tag = NULL_TYPE; /* x181986 stalin.sc:25683:888584 */ t100564.s1.tag = STRUCTURE_TYPE24753; t100564.s1.value.structure_type24753 = &t100565; /* x181987 stalin.sc:25683:888584 */ t100563.s0.tag = STRUCTURE_TYPE24753; t100563.s0.value.structure_type24753 = &t100564; /* x181988 stalin.sc:25683:888584 */ t100563.s1.tag = NULL_TYPE; /* x181989 stalin.sc:25683:888584 */ t100562.s0.tag = STRUCTURE_TYPE24753; t100562.s0.value.structure_type24753 = &t100563; /* x181990 stalin.sc:25683:888584 */ t100570.s0.tag = EXTERNAL_SYMBOL_TYPE; t100570.s0.value.external_symbol_type = q42; /* x181991 stalin.sc:25683:888584 */ t100571.s0.tag = EXTERNAL_SYMBOL_TYPE; t100571.s0.value.external_symbol_type = q308; /* x181992 stalin.sc:25683:888584 */ t100573.s0.tag = EXTERNAL_SYMBOL_TYPE; t100573.s0.value.external_symbol_type = q4; /* x181993 stalin.sc:25683:888584 */ t100574.s0.tag = EXTERNAL_SYMBOL_TYPE; t100574.s0.value.external_symbol_type = q308; /* x181994 stalin.sc:25683:888584 */ t100575.s0.tag = FIXNUM_TYPE; t100575.s0.value.fixnum_type = 1; /* x181995 stalin.sc:25683:888584 */ t100575.s1.tag = NULL_TYPE; /* x181996 stalin.sc:25683:888584 */ t100574.s1.tag = STRUCTURE_TYPE24753; t100574.s1.value.structure_type24753 = &t100575; /* x181997 stalin.sc:25683:888584 */ t100573.s1.tag = STRUCTURE_TYPE24753; t100573.s1.value.structure_type24753 = &t100574; /* x181998 stalin.sc:25683:888584 */ t100572.s0.tag = STRUCTURE_TYPE24753; t100572.s0.value.structure_type24753 = &t100573; /* x181999 stalin.sc:25683:888584 */ t100572.s1.tag = NULL_TYPE; /* x182000 stalin.sc:25683:888584 */ t100571.s1.tag = STRUCTURE_TYPE24753; t100571.s1.value.structure_type24753 = &t100572; /* x182001 stalin.sc:25683:888584 */ t100570.s1.tag = STRUCTURE_TYPE24753; t100570.s1.value.structure_type24753 = &t100571; /* x182002 stalin.sc:25683:888584 */ t100569.s0.tag = STRUCTURE_TYPE24753; t100569.s0.value.structure_type24753 = &t100570; /* x182003 stalin.sc:25683:888584 */ t100577.s0.tag = EXTERNAL_SYMBOL_TYPE; t100577.s0.value.external_symbol_type = q240; /* x182004 stalin.sc:25683:888584 */ t100580.s0.tag = EXTERNAL_SYMBOL_TYPE; t100580.s0.value.external_symbol_type = q269; /* x182005 stalin.sc:25683:888584 */ t100581.s0.tag = EXTERNAL_SYMBOL_TYPE; t100581.s0.value.external_symbol_type = q261; /* x182006 stalin.sc:25683:888584 */ t100581.s1.tag = NULL_TYPE; /* x182007 stalin.sc:25683:888584 */ t100580.s1.tag = STRUCTURE_TYPE24753; t100580.s1.value.structure_type24753 = &t100581; /* x182008 stalin.sc:25683:888584 */ t100579.s0.tag = STRUCTURE_TYPE24753; t100579.s0.value.structure_type24753 = &t100580; /* x182009 stalin.sc:25683:888584 */ t100583.s0.tag = EXTERNAL_SYMBOL_TYPE; t100583.s0.value.external_symbol_type = q335; /* x182010 stalin.sc:25683:888584 */ t100585.s0.tag = EXTERNAL_SYMBOL_TYPE; t100585.s0.value.external_symbol_type = q4; /* x182011 stalin.sc:25683:888584 */ t100587.s0.tag = EXTERNAL_SYMBOL_TYPE; t100587.s0.value.external_symbol_type = q130; /* x182012 stalin.sc:25683:888584 */ t100588.s0.tag = FIXNUM_TYPE; t100588.s0.value.fixnum_type = 16; /* x182013 stalin.sc:25683:888584 */ t100589.s0.tag = EXTERNAL_SYMBOL_TYPE; t100589.s0.value.external_symbol_type = q260; /* x182014 stalin.sc:25683:888584 */ t100589.s1.tag = NULL_TYPE; /* x182015 stalin.sc:25683:888584 */ t100588.s1.tag = STRUCTURE_TYPE24753; t100588.s1.value.structure_type24753 = &t100589; /* x182016 stalin.sc:25683:888584 */ t100587.s1.tag = STRUCTURE_TYPE24753; t100587.s1.value.structure_type24753 = &t100588; /* x182017 stalin.sc:25683:888584 */ t100586.s0.tag = STRUCTURE_TYPE24753; t100586.s0.value.structure_type24753 = &t100587; /* x182018 stalin.sc:25683:888584 */ t100591.s0.tag = EXTERNAL_SYMBOL_TYPE; t100591.s0.value.external_symbol_type = q2; /* x182019 stalin.sc:25683:888584 */ t100593.s0.tag = EXTERNAL_SYMBOL_TYPE; t100593.s0.value.external_symbol_type = q157; /* x182020 stalin.sc:25683:888584 */ t100594.s0.tag = EXTERNAL_SYMBOL_TYPE; t100594.s0.value.external_symbol_type = q261; /* x182021 stalin.sc:25683:888584 */ t100594.s1.tag = NULL_TYPE; /* x182022 stalin.sc:25683:888584 */ t100593.s1.tag = STRUCTURE_TYPE24753; t100593.s1.value.structure_type24753 = &t100594; /* x182023 stalin.sc:25683:888584 */ t100592.s0.tag = STRUCTURE_TYPE24753; t100592.s0.value.structure_type24753 = &t100593; /* x182024 stalin.sc:25683:888584 */ t100596.s0.tag = EXTERNAL_SYMBOL_TYPE; t100596.s0.value.external_symbol_type = q157; /* x182025 stalin.sc:25683:888584 */ t100597.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x182026 stalin.sc:25683:888584 */ t100597.s1.tag = NULL_TYPE; /* x182027 stalin.sc:25683:888584 */ t100596.s1.tag = STRUCTURE_TYPE24753; t100596.s1.value.structure_type24753 = &t100597; /* x182028 stalin.sc:25683:888584 */ t100595.s0.tag = STRUCTURE_TYPE24753; t100595.s0.value.structure_type24753 = &t100596; /* x182029 stalin.sc:25683:888584 */ t100595.s1.tag = NULL_TYPE; /* x182030 stalin.sc:25683:888584 */ t100592.s1.tag = STRUCTURE_TYPE24753; t100592.s1.value.structure_type24753 = &t100595; /* x182031 stalin.sc:25683:888584 */ t100591.s1.tag = STRUCTURE_TYPE24753; t100591.s1.value.structure_type24753 = &t100592; /* x182032 stalin.sc:25683:888584 */ t100590.s0.tag = STRUCTURE_TYPE24753; t100590.s0.value.structure_type24753 = &t100591; /* x182033 stalin.sc:25683:888584 */ t100590.s1.tag = NULL_TYPE; /* x182034 stalin.sc:25683:888584 */ t100586.s1.tag = STRUCTURE_TYPE24753; t100586.s1.value.structure_type24753 = &t100590; /* x182035 stalin.sc:25683:888584 */ t100585.s1.tag = STRUCTURE_TYPE24753; t100585.s1.value.structure_type24753 = &t100586; /* x182036 stalin.sc:25683:888584 */ t100584.s0.tag = STRUCTURE_TYPE24753; t100584.s0.value.structure_type24753 = &t100585; /* x182037 stalin.sc:25683:888584 */ t100584.s1.tag = NULL_TYPE; /* x182038 stalin.sc:25683:888584 */ t100583.s1.tag = STRUCTURE_TYPE24753; t100583.s1.value.structure_type24753 = &t100584; /* x182039 stalin.sc:25683:888584 */ t100582.s0.tag = STRUCTURE_TYPE24753; t100582.s0.value.structure_type24753 = &t100583; /* x182040 stalin.sc:25683:888584 */ t100582.s1.tag = NULL_TYPE; /* x182041 stalin.sc:25683:888584 */ t100579.s1.tag = STRUCTURE_TYPE24753; t100579.s1.value.structure_type24753 = &t100582; /* x182042 stalin.sc:25683:888584 */ t100578.s0.tag = STRUCTURE_TYPE24753; t100578.s0.value.structure_type24753 = &t100579; /* x182043 stalin.sc:25683:888584 */ t100600.s0.tag = EXTERNAL_SYMBOL_TYPE; t100600.s0.value.external_symbol_type = q244; /* x182044 stalin.sc:25683:888584 */ t100602.s0.tag = EXTERNAL_SYMBOL_TYPE; t100602.s0.value.external_symbol_type = q266; /* x182045 stalin.sc:25683:888584 */ t100603.s0.tag = EXTERNAL_SYMBOL_TYPE; t100603.s0.value.external_symbol_type = q261; /* x182046 stalin.sc:25683:888584 */ t100604.s0.tag = ((unsigned)((unsigned char)'a'))<<2; /* x182047 stalin.sc:25683:888584 */ t100604.s1.tag = NULL_TYPE; /* x182048 stalin.sc:25683:888584 */ t100603.s1.tag = STRUCTURE_TYPE24753; t100603.s1.value.structure_type24753 = &t100604; /* x182049 stalin.sc:25683:888584 */ t100602.s1.tag = STRUCTURE_TYPE24753; t100602.s1.value.structure_type24753 = &t100603; /* x182050 stalin.sc:25683:888584 */ t100601.s0.tag = STRUCTURE_TYPE24753; t100601.s0.value.structure_type24753 = &t100602; /* x182051 stalin.sc:25683:888584 */ t100606.s0.tag = EXTERNAL_SYMBOL_TYPE; t100606.s0.value.external_symbol_type = q267; /* x182052 stalin.sc:25683:888584 */ t100607.s0.tag = EXTERNAL_SYMBOL_TYPE; t100607.s0.value.external_symbol_type = q261; /* x182053 stalin.sc:25683:888584 */ t100608.s0.tag = ((unsigned)((unsigned char)'f'))<<2; /* x182054 stalin.sc:25683:888584 */ t100608.s1.tag = NULL_TYPE; /* x182055 stalin.sc:25683:888584 */ t100607.s1.tag = STRUCTURE_TYPE24753; t100607.s1.value.structure_type24753 = &t100608; /* x182056 stalin.sc:25683:888584 */ t100606.s1.tag = STRUCTURE_TYPE24753; t100606.s1.value.structure_type24753 = &t100607; /* x182057 stalin.sc:25683:888584 */ t100605.s0.tag = STRUCTURE_TYPE24753; t100605.s0.value.structure_type24753 = &t100606; /* x182058 stalin.sc:25683:888584 */ t100605.s1.tag = NULL_TYPE; /* x182059 stalin.sc:25683:888584 */ t100601.s1.tag = STRUCTURE_TYPE24753; t100601.s1.value.structure_type24753 = &t100605; /* x182060 stalin.sc:25683:888584 */ t100600.s1.tag = STRUCTURE_TYPE24753; t100600.s1.value.structure_type24753 = &t100601; /* x182061 stalin.sc:25683:888584 */ t100599.s0.tag = STRUCTURE_TYPE24753; t100599.s0.value.structure_type24753 = &t100600; /* x182062 stalin.sc:25683:888584 */ t100610.s0.tag = EXTERNAL_SYMBOL_TYPE; t100610.s0.value.external_symbol_type = q335; /* x182063 stalin.sc:25683:888584 */ t100612.s0.tag = EXTERNAL_SYMBOL_TYPE; t100612.s0.value.external_symbol_type = q4; /* x182064 stalin.sc:25683:888584 */ t100614.s0.tag = EXTERNAL_SYMBOL_TYPE; t100614.s0.value.external_symbol_type = q130; /* x182065 stalin.sc:25683:888584 */ t100615.s0.tag = FIXNUM_TYPE; t100615.s0.value.fixnum_type = 16; /* x182066 stalin.sc:25683:888584 */ t100616.s0.tag = EXTERNAL_SYMBOL_TYPE; t100616.s0.value.external_symbol_type = q260; /* x182067 stalin.sc:25683:888584 */ t100616.s1.tag = NULL_TYPE; /* x182068 stalin.sc:25683:888584 */ t100615.s1.tag = STRUCTURE_TYPE24753; t100615.s1.value.structure_type24753 = &t100616; /* x182069 stalin.sc:25683:888584 */ t100614.s1.tag = STRUCTURE_TYPE24753; t100614.s1.value.structure_type24753 = &t100615; /* x182070 stalin.sc:25683:888584 */ t100613.s0.tag = STRUCTURE_TYPE24753; t100613.s0.value.structure_type24753 = &t100614; /* x182071 stalin.sc:25683:888584 */ t100618.s0.tag = EXTERNAL_SYMBOL_TYPE; t100618.s0.value.external_symbol_type = q2; /* x182072 stalin.sc:25683:888584 */ t100620.s0.tag = EXTERNAL_SYMBOL_TYPE; t100620.s0.value.external_symbol_type = q157; /* x182073 stalin.sc:25683:888584 */ t100621.s0.tag = EXTERNAL_SYMBOL_TYPE; t100621.s0.value.external_symbol_type = q261; /* x182074 stalin.sc:25683:888584 */ t100621.s1.tag = NULL_TYPE; /* x182075 stalin.sc:25683:888584 */ t100620.s1.tag = STRUCTURE_TYPE24753; t100620.s1.value.structure_type24753 = &t100621; /* x182076 stalin.sc:25683:888584 */ t100619.s0.tag = STRUCTURE_TYPE24753; t100619.s0.value.structure_type24753 = &t100620; /* x182077 stalin.sc:25683:888584 */ t100623.s0.tag = EXTERNAL_SYMBOL_TYPE; t100623.s0.value.external_symbol_type = q157; /* x182078 stalin.sc:25683:888584 */ t100624.s0.tag = ((unsigned)((unsigned char)'a'))<<2; /* x182079 stalin.sc:25683:888584 */ t100624.s1.tag = NULL_TYPE; /* x182080 stalin.sc:25683:888584 */ t100623.s1.tag = STRUCTURE_TYPE24753; t100623.s1.value.structure_type24753 = &t100624; /* x182081 stalin.sc:25683:888584 */ t100622.s0.tag = STRUCTURE_TYPE24753; t100622.s0.value.structure_type24753 = &t100623; /* x182082 stalin.sc:25683:888584 */ t100622.s1.tag = NULL_TYPE; /* x182083 stalin.sc:25683:888584 */ t100619.s1.tag = STRUCTURE_TYPE24753; t100619.s1.value.structure_type24753 = &t100622; /* x182084 stalin.sc:25683:888584 */ t100618.s1.tag = STRUCTURE_TYPE24753; t100618.s1.value.structure_type24753 = &t100619; /* x182085 stalin.sc:25683:888584 */ t100617.s0.tag = STRUCTURE_TYPE24753; t100617.s0.value.structure_type24753 = &t100618; /* x182086 stalin.sc:25683:888584 */ t100625.s0.tag = FIXNUM_TYPE; t100625.s0.value.fixnum_type = 10; /* x182087 stalin.sc:25683:888584 */ t100625.s1.tag = NULL_TYPE; /* x182088 stalin.sc:25683:888584 */ t100617.s1.tag = STRUCTURE_TYPE24753; t100617.s1.value.structure_type24753 = &t100625; /* x182089 stalin.sc:25683:888584 */ t100613.s1.tag = STRUCTURE_TYPE24753; t100613.s1.value.structure_type24753 = &t100617; /* x182090 stalin.sc:25683:888584 */ t100612.s1.tag = STRUCTURE_TYPE24753; t100612.s1.value.structure_type24753 = &t100613; /* x182091 stalin.sc:25683:888584 */ t100611.s0.tag = STRUCTURE_TYPE24753; t100611.s0.value.structure_type24753 = &t100612; /* x182092 stalin.sc:25683:888584 */ t100611.s1.tag = NULL_TYPE; /* x182093 stalin.sc:25683:888584 */ t100610.s1.tag = STRUCTURE_TYPE24753; t100610.s1.value.structure_type24753 = &t100611; /* x182094 stalin.sc:25683:888584 */ t100609.s0.tag = STRUCTURE_TYPE24753; t100609.s0.value.structure_type24753 = &t100610; /* x182095 stalin.sc:25683:888584 */ t100609.s1.tag = NULL_TYPE; /* x182096 stalin.sc:25683:888584 */ t100599.s1.tag = STRUCTURE_TYPE24753; t100599.s1.value.structure_type24753 = &t100609; /* x182097 stalin.sc:25683:888584 */ t100598.s0.tag = STRUCTURE_TYPE24753; t100598.s0.value.structure_type24753 = &t100599; /* x182098 stalin.sc:25683:888584 */ t100628.s0.tag = EXTERNAL_SYMBOL_TYPE; t100628.s0.value.external_symbol_type = q244; /* x182099 stalin.sc:25683:888584 */ t100630.s0.tag = EXTERNAL_SYMBOL_TYPE; t100630.s0.value.external_symbol_type = q266; /* x182100 stalin.sc:25683:888584 */ t100631.s0.tag = EXTERNAL_SYMBOL_TYPE; t100631.s0.value.external_symbol_type = q261; /* x182101 stalin.sc:25683:888584 */ t100632.s0.tag = ((unsigned)((unsigned char)'A'))<<2; /* x182102 stalin.sc:25683:888584 */ t100632.s1.tag = NULL_TYPE; /* x182103 stalin.sc:25683:888584 */ t100631.s1.tag = STRUCTURE_TYPE24753; t100631.s1.value.structure_type24753 = &t100632; /* x182104 stalin.sc:25683:888584 */ t100630.s1.tag = STRUCTURE_TYPE24753; t100630.s1.value.structure_type24753 = &t100631; /* x182105 stalin.sc:25683:888584 */ t100629.s0.tag = STRUCTURE_TYPE24753; t100629.s0.value.structure_type24753 = &t100630; /* x182106 stalin.sc:25683:888584 */ t100634.s0.tag = EXTERNAL_SYMBOL_TYPE; t100634.s0.value.external_symbol_type = q267; /* x182107 stalin.sc:25683:888584 */ t100635.s0.tag = EXTERNAL_SYMBOL_TYPE; t100635.s0.value.external_symbol_type = q261; /* x182108 stalin.sc:25683:888584 */ t100636.s0.tag = ((unsigned)((unsigned char)'F'))<<2; /* x182109 stalin.sc:25683:888584 */ t100636.s1.tag = NULL_TYPE; /* x182110 stalin.sc:25683:888584 */ t100635.s1.tag = STRUCTURE_TYPE24753; t100635.s1.value.structure_type24753 = &t100636; /* x182111 stalin.sc:25683:888584 */ t100634.s1.tag = STRUCTURE_TYPE24753; t100634.s1.value.structure_type24753 = &t100635; /* x182112 stalin.sc:25683:888584 */ t100633.s0.tag = STRUCTURE_TYPE24753; t100633.s0.value.structure_type24753 = &t100634; /* x182113 stalin.sc:25683:888584 */ t100633.s1.tag = NULL_TYPE; /* x182114 stalin.sc:25683:888584 */ t100629.s1.tag = STRUCTURE_TYPE24753; t100629.s1.value.structure_type24753 = &t100633; /* x182115 stalin.sc:25683:888584 */ t100628.s1.tag = STRUCTURE_TYPE24753; t100628.s1.value.structure_type24753 = &t100629; /* x182116 stalin.sc:25683:888584 */ t100627.s0.tag = STRUCTURE_TYPE24753; t100627.s0.value.structure_type24753 = &t100628; /* x182117 stalin.sc:25683:888584 */ t100638.s0.tag = EXTERNAL_SYMBOL_TYPE; t100638.s0.value.external_symbol_type = q335; /* x182118 stalin.sc:25683:888584 */ t100640.s0.tag = EXTERNAL_SYMBOL_TYPE; t100640.s0.value.external_symbol_type = q4; /* x182119 stalin.sc:25683:888584 */ t100642.s0.tag = EXTERNAL_SYMBOL_TYPE; t100642.s0.value.external_symbol_type = q130; /* x182120 stalin.sc:25683:888584 */ t100643.s0.tag = FIXNUM_TYPE; t100643.s0.value.fixnum_type = 16; /* x182121 stalin.sc:25683:888584 */ t100644.s0.tag = EXTERNAL_SYMBOL_TYPE; t100644.s0.value.external_symbol_type = q260; /* x182122 stalin.sc:25683:888584 */ t100644.s1.tag = NULL_TYPE; /* x182123 stalin.sc:25683:888584 */ t100643.s1.tag = STRUCTURE_TYPE24753; t100643.s1.value.structure_type24753 = &t100644; /* x182124 stalin.sc:25683:888584 */ t100642.s1.tag = STRUCTURE_TYPE24753; t100642.s1.value.structure_type24753 = &t100643; /* x182125 stalin.sc:25683:888584 */ t100641.s0.tag = STRUCTURE_TYPE24753; t100641.s0.value.structure_type24753 = &t100642; /* x182126 stalin.sc:25683:888584 */ t100646.s0.tag = EXTERNAL_SYMBOL_TYPE; t100646.s0.value.external_symbol_type = q2; /* x182127 stalin.sc:25683:888584 */ t100648.s0.tag = EXTERNAL_SYMBOL_TYPE; t100648.s0.value.external_symbol_type = q157; /* x182128 stalin.sc:25683:888584 */ t100649.s0.tag = EXTERNAL_SYMBOL_TYPE; t100649.s0.value.external_symbol_type = q261; /* x182129 stalin.sc:25683:888584 */ t100649.s1.tag = NULL_TYPE; /* x182130 stalin.sc:25683:888584 */ t100648.s1.tag = STRUCTURE_TYPE24753; t100648.s1.value.structure_type24753 = &t100649; /* x182131 stalin.sc:25683:888584 */ t100647.s0.tag = STRUCTURE_TYPE24753; t100647.s0.value.structure_type24753 = &t100648; /* x182132 stalin.sc:25683:888584 */ t100651.s0.tag = EXTERNAL_SYMBOL_TYPE; t100651.s0.value.external_symbol_type = q157; /* x182133 stalin.sc:25683:888584 */ t100652.s0.tag = ((unsigned)((unsigned char)'A'))<<2; /* x182134 stalin.sc:25683:888584 */ t100652.s1.tag = NULL_TYPE; /* x182135 stalin.sc:25683:888584 */ t100651.s1.tag = STRUCTURE_TYPE24753; t100651.s1.value.structure_type24753 = &t100652; /* x182136 stalin.sc:25683:888584 */ t100650.s0.tag = STRUCTURE_TYPE24753; t100650.s0.value.structure_type24753 = &t100651; /* x182137 stalin.sc:25683:888584 */ t100650.s1.tag = NULL_TYPE; /* x182138 stalin.sc:25683:888584 */ t100647.s1.tag = STRUCTURE_TYPE24753; t100647.s1.value.structure_type24753 = &t100650; /* x182139 stalin.sc:25683:888584 */ t100646.s1.tag = STRUCTURE_TYPE24753; t100646.s1.value.structure_type24753 = &t100647; /* x182140 stalin.sc:25683:888584 */ t100645.s0.tag = STRUCTURE_TYPE24753; t100645.s0.value.structure_type24753 = &t100646; /* x182141 stalin.sc:25683:888584 */ t100653.s0.tag = FIXNUM_TYPE; t100653.s0.value.fixnum_type = 10; /* x182142 stalin.sc:25683:888584 */ t100653.s1.tag = NULL_TYPE; /* x182143 stalin.sc:25683:888584 */ t100645.s1.tag = STRUCTURE_TYPE24753; t100645.s1.value.structure_type24753 = &t100653; /* x182144 stalin.sc:25683:888584 */ t100641.s1.tag = STRUCTURE_TYPE24753; t100641.s1.value.structure_type24753 = &t100645; /* x182145 stalin.sc:25683:888584 */ t100640.s1.tag = STRUCTURE_TYPE24753; t100640.s1.value.structure_type24753 = &t100641; /* x182146 stalin.sc:25683:888584 */ t100639.s0.tag = STRUCTURE_TYPE24753; t100639.s0.value.structure_type24753 = &t100640; /* x182147 stalin.sc:25683:888584 */ t100639.s1.tag = NULL_TYPE; /* x182148 stalin.sc:25683:888584 */ t100638.s1.tag = STRUCTURE_TYPE24753; t100638.s1.value.structure_type24753 = &t100639; /* x182149 stalin.sc:25683:888584 */ t100637.s0.tag = STRUCTURE_TYPE24753; t100637.s0.value.structure_type24753 = &t100638; /* x182150 stalin.sc:25683:888584 */ t100637.s1.tag = NULL_TYPE; /* x182151 stalin.sc:25683:888584 */ t100627.s1.tag = STRUCTURE_TYPE24753; t100627.s1.value.structure_type24753 = &t100637; /* x182152 stalin.sc:25683:888584 */ t100626.s0.tag = STRUCTURE_TYPE24753; t100626.s0.value.structure_type24753 = &t100627; /* x182153 stalin.sc:25683:888584 */ t100655.s0.tag = EXTERNAL_SYMBOL_TYPE; t100655.s0.value.external_symbol_type = q95; /* x182154 stalin.sc:25683:888584 */ t100656.s0.tag = FALSE_TYPE; /* x182155 stalin.sc:25683:888584 */ t100656.s1.tag = NULL_TYPE; /* x182156 stalin.sc:25683:888584 */ t100655.s1.tag = STRUCTURE_TYPE24753; t100655.s1.value.structure_type24753 = &t100656; /* x182157 stalin.sc:25683:888584 */ t100654.s0.tag = STRUCTURE_TYPE24753; t100654.s0.value.structure_type24753 = &t100655; /* x182158 stalin.sc:25683:888584 */ t100654.s1.tag = NULL_TYPE; /* x182159 stalin.sc:25683:888584 */ t100626.s1.tag = STRUCTURE_TYPE24753; t100626.s1.value.structure_type24753 = &t100654; /* x182160 stalin.sc:25683:888584 */ t100598.s1.tag = STRUCTURE_TYPE24753; t100598.s1.value.structure_type24753 = &t100626; /* x182161 stalin.sc:25683:888584 */ t100578.s1.tag = STRUCTURE_TYPE24753; t100578.s1.value.structure_type24753 = &t100598; /* x182162 stalin.sc:25683:888584 */ t100577.s1.tag = STRUCTURE_TYPE24753; t100577.s1.value.structure_type24753 = &t100578; /* x182163 stalin.sc:25683:888584 */ t100576.s0.tag = STRUCTURE_TYPE24753; t100576.s0.value.structure_type24753 = &t100577; /* x182164 stalin.sc:25683:888584 */ t100576.s1.tag = NULL_TYPE; /* x182165 stalin.sc:25683:888584 */ t100569.s1.tag = STRUCTURE_TYPE24753; t100569.s1.value.structure_type24753 = &t100576; /* x182166 stalin.sc:25683:888584 */ t100562.s1.tag = STRUCTURE_TYPE24753; t100562.s1.value.structure_type24753 = &t100569; /* x182167 stalin.sc:25683:888584 */ t100561.s1.tag = STRUCTURE_TYPE24753; t100561.s1.value.structure_type24753 = &t100562; /* x182168 stalin.sc:25683:888584 */ t100560.s0.tag = STRUCTURE_TYPE24753; t100560.s0.value.structure_type24753 = &t100561; /* x182169 stalin.sc:25683:888584 */ t100560.s1.tag = NULL_TYPE; /* x182170 stalin.sc:25683:888584 */ t100559.s1.tag = STRUCTURE_TYPE24753; t100559.s1.value.structure_type24753 = &t100560; /* x182171 stalin.sc:25683:888584 */ t100555.s1.tag = STRUCTURE_TYPE24753; t100555.s1.value.structure_type24753 = &t100559; /* x182172 stalin.sc:25683:888584 */ t100554.s1.tag = STRUCTURE_TYPE24753; t100554.s1.value.structure_type24753 = &t100555; /* x182173 stalin.sc:25683:888584 */ t100553.s0.tag = STRUCTURE_TYPE24753; t100553.s0.value.structure_type24753 = &t100554; /* x182174 stalin.sc:25683:888584 */ t100553.s1.tag = NULL_TYPE; /* x182175 stalin.sc:25683:888584 */ t100550.s1.tag = STRUCTURE_TYPE24753; t100550.s1.value.structure_type24753 = &t100553; /* x182176 stalin.sc:25683:888584 */ t100549.s1.tag = STRUCTURE_TYPE24753; t100549.s1.value.structure_type24753 = &t100550; /* x182177 stalin.sc:25683:888584 */ t100548.s0.tag = STRUCTURE_TYPE24753; t100548.s0.value.structure_type24753 = &t100549; /* x182178 stalin.sc:25683:888584 */ t100658.s0.tag = EXTERNAL_SYMBOL_TYPE; t100658.s0.value.external_symbol_type = q97; /* x182179 stalin.sc:25683:888584 */ t100660.s0.tag = EXTERNAL_SYMBOL_TYPE; t100660.s0.value.external_symbol_type = q336; /* x182180 stalin.sc:25683:888584 */ t100661.s0.tag = EXTERNAL_SYMBOL_TYPE; t100661.s0.value.external_symbol_type = q260; /* x182181 stalin.sc:25683:888584 */ t100662.s0.tag = EXTERNAL_SYMBOL_TYPE; t100662.s0.value.external_symbol_type = q272; /* x182182 stalin.sc:25683:888584 */ t100662.s1.tag = NULL_TYPE; /* x182183 stalin.sc:25683:888584 */ t100661.s1.tag = STRUCTURE_TYPE24753; t100661.s1.value.structure_type24753 = &t100662; /* x182184 stalin.sc:25683:888584 */ t100660.s1.tag = STRUCTURE_TYPE24753; t100660.s1.value.structure_type24753 = &t100661; /* x182185 stalin.sc:25683:888584 */ t100659.s0.tag = STRUCTURE_TYPE24753; t100659.s0.value.structure_type24753 = &t100660; /* x182186 stalin.sc:25683:888584 */ t100664.s0.tag = EXTERNAL_SYMBOL_TYPE; t100664.s0.value.external_symbol_type = q43; /* x182187 stalin.sc:25683:888584 */ t100666.s0.tag = EXTERNAL_SYMBOL_TYPE; t100666.s0.value.external_symbol_type = q120; /* x182188 stalin.sc:25683:888584 */ t100667.s0.tag = EXTERNAL_SYMBOL_TYPE; t100667.s0.value.external_symbol_type = q308; /* x182189 stalin.sc:25683:888584 */ t100668.s0.tag = EXTERNAL_SYMBOL_TYPE; t100668.s0.value.external_symbol_type = q330; /* x182190 stalin.sc:25683:888584 */ t100668.s1.tag = NULL_TYPE; /* x182191 stalin.sc:25683:888584 */ t100667.s1.tag = STRUCTURE_TYPE24753; t100667.s1.value.structure_type24753 = &t100668; /* x182192 stalin.sc:25683:888584 */ t100666.s1.tag = STRUCTURE_TYPE24753; t100666.s1.value.structure_type24753 = &t100667; /* x182193 stalin.sc:25683:888584 */ t100665.s0.tag = STRUCTURE_TYPE24753; t100665.s0.value.structure_type24753 = &t100666; /* x182194 stalin.sc:25683:888584 */ t100669.s0.tag = EXTERNAL_SYMBOL_TYPE; t100669.s0.value.external_symbol_type = q260; /* x182195 stalin.sc:25683:888584 */ t100671.s0.tag = EXTERNAL_SYMBOL_TYPE; t100671.s0.value.external_symbol_type = q242; /* x182196 stalin.sc:25683:888584 */ t100674.s0.tag = EXTERNAL_SYMBOL_TYPE; t100674.s0.value.external_symbol_type = q273; /* x182197 stalin.sc:25683:888584 */ t100676.s0.tag = EXTERNAL_SYMBOL_TYPE; t100676.s0.value.external_symbol_type = q163; /* x182198 stalin.sc:25683:888584 */ t100677.s0.tag = EXTERNAL_SYMBOL_TYPE; t100677.s0.value.external_symbol_type = q161; /* x182199 stalin.sc:25683:888584 */ t100678.s0.tag = EXTERNAL_SYMBOL_TYPE; t100678.s0.value.external_symbol_type = q308; /* x182200 stalin.sc:25683:888584 */ t100678.s1.tag = NULL_TYPE; /* x182201 stalin.sc:25683:888584 */ t100677.s1.tag = STRUCTURE_TYPE24753; t100677.s1.value.structure_type24753 = &t100678; /* x182202 stalin.sc:25683:888584 */ t100676.s1.tag = STRUCTURE_TYPE24753; t100676.s1.value.structure_type24753 = &t100677; /* x182203 stalin.sc:25683:888584 */ t100675.s0.tag = STRUCTURE_TYPE24753; t100675.s0.value.structure_type24753 = &t100676; /* x182204 stalin.sc:25683:888584 */ t100675.s1.tag = NULL_TYPE; /* x182205 stalin.sc:25683:888584 */ t100674.s1.tag = STRUCTURE_TYPE24753; t100674.s1.value.structure_type24753 = &t100675; /* x182206 stalin.sc:25683:888584 */ t100673.s0.tag = STRUCTURE_TYPE24753; t100673.s0.value.structure_type24753 = &t100674; /* x182207 stalin.sc:25683:888584 */ t100673.s1.tag = NULL_TYPE; /* x182208 stalin.sc:25683:888584 */ t100672.s0.tag = STRUCTURE_TYPE24753; t100672.s0.value.structure_type24753 = &t100673; /* x182209 stalin.sc:25683:888584 */ t100680.s0.tag = EXTERNAL_SYMBOL_TYPE; t100680.s0.value.external_symbol_type = q42; /* x182210 stalin.sc:25683:888584 */ t100681.s0.tag = EXTERNAL_SYMBOL_TYPE; t100681.s0.value.external_symbol_type = q308; /* x182211 stalin.sc:25683:888584 */ t100683.s0.tag = EXTERNAL_SYMBOL_TYPE; t100683.s0.value.external_symbol_type = q4; /* x182212 stalin.sc:25683:888584 */ t100684.s0.tag = EXTERNAL_SYMBOL_TYPE; t100684.s0.value.external_symbol_type = q308; /* x182213 stalin.sc:25683:888584 */ t100685.s0.tag = FIXNUM_TYPE; t100685.s0.value.fixnum_type = 1; /* x182214 stalin.sc:25683:888584 */ t100685.s1.tag = NULL_TYPE; /* x182215 stalin.sc:25683:888584 */ t100684.s1.tag = STRUCTURE_TYPE24753; t100684.s1.value.structure_type24753 = &t100685; /* x182216 stalin.sc:25683:888584 */ t100683.s1.tag = STRUCTURE_TYPE24753; t100683.s1.value.structure_type24753 = &t100684; /* x182217 stalin.sc:25683:888584 */ t100682.s0.tag = STRUCTURE_TYPE24753; t100682.s0.value.structure_type24753 = &t100683; /* x182218 stalin.sc:25683:888584 */ t100682.s1.tag = NULL_TYPE; /* x182219 stalin.sc:25683:888584 */ t100681.s1.tag = STRUCTURE_TYPE24753; t100681.s1.value.structure_type24753 = &t100682; /* x182220 stalin.sc:25683:888584 */ t100680.s1.tag = STRUCTURE_TYPE24753; t100680.s1.value.structure_type24753 = &t100681; /* x182221 stalin.sc:25683:888584 */ t100679.s0.tag = STRUCTURE_TYPE24753; t100679.s0.value.structure_type24753 = &t100680; /* x182222 stalin.sc:25683:888584 */ t100687.s0.tag = EXTERNAL_SYMBOL_TYPE; t100687.s0.value.external_symbol_type = q240; /* x182223 stalin.sc:25683:888584 */ t100690.s0.tag = EXTERNAL_SYMBOL_TYPE; t100690.s0.value.external_symbol_type = q269; /* x182224 stalin.sc:25683:888584 */ t100691.s0.tag = EXTERNAL_SYMBOL_TYPE; t100691.s0.value.external_symbol_type = q273; /* x182225 stalin.sc:25683:888584 */ t100691.s1.tag = NULL_TYPE; /* x182226 stalin.sc:25683:888584 */ t100690.s1.tag = STRUCTURE_TYPE24753; t100690.s1.value.structure_type24753 = &t100691; /* x182227 stalin.sc:25683:888584 */ t100689.s0.tag = STRUCTURE_TYPE24753; t100689.s0.value.structure_type24753 = &t100690; /* x182228 stalin.sc:25683:888584 */ t100693.s0.tag = EXTERNAL_SYMBOL_TYPE; t100693.s0.value.external_symbol_type = q336; /* x182229 stalin.sc:25683:888584 */ t100695.s0.tag = EXTERNAL_SYMBOL_TYPE; t100695.s0.value.external_symbol_type = q4; /* x182230 stalin.sc:25683:888584 */ t100696.s0.tag = EXTERNAL_SYMBOL_TYPE; t100696.s0.value.external_symbol_type = q260; /* x182231 stalin.sc:25683:888584 */ t100698.s0.tag = EXTERNAL_SYMBOL_TYPE; t100698.s0.value.external_symbol_type = q131; /* x182232 stalin.sc:25683:888584 */ t100700.s0.tag = EXTERNAL_SYMBOL_TYPE; t100700.s0.value.external_symbol_type = q2; /* x182233 stalin.sc:25683:888584 */ t100702.s0.tag = EXTERNAL_SYMBOL_TYPE; t100702.s0.value.external_symbol_type = q157; /* x182234 stalin.sc:25683:888584 */ t100703.s0.tag = EXTERNAL_SYMBOL_TYPE; t100703.s0.value.external_symbol_type = q273; /* x182235 stalin.sc:25683:888584 */ t100703.s1.tag = NULL_TYPE; /* x182236 stalin.sc:25683:888584 */ t100702.s1.tag = STRUCTURE_TYPE24753; t100702.s1.value.structure_type24753 = &t100703; /* x182237 stalin.sc:25683:888584 */ t100701.s0.tag = STRUCTURE_TYPE24753; t100701.s0.value.structure_type24753 = &t100702; /* x182238 stalin.sc:25683:888584 */ t100705.s0.tag = EXTERNAL_SYMBOL_TYPE; t100705.s0.value.external_symbol_type = q157; /* x182239 stalin.sc:25683:888584 */ t100706.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x182240 stalin.sc:25683:888584 */ t100706.s1.tag = NULL_TYPE; /* x182241 stalin.sc:25683:888584 */ t100705.s1.tag = STRUCTURE_TYPE24753; t100705.s1.value.structure_type24753 = &t100706; /* x182242 stalin.sc:25683:888584 */ t100704.s0.tag = STRUCTURE_TYPE24753; t100704.s0.value.structure_type24753 = &t100705; /* x182243 stalin.sc:25683:888584 */ t100704.s1.tag = NULL_TYPE; /* x182244 stalin.sc:25683:888584 */ t100701.s1.tag = STRUCTURE_TYPE24753; t100701.s1.value.structure_type24753 = &t100704; /* x182245 stalin.sc:25683:888584 */ t100700.s1.tag = STRUCTURE_TYPE24753; t100700.s1.value.structure_type24753 = &t100701; /* x182246 stalin.sc:25683:888584 */ t100699.s0.tag = STRUCTURE_TYPE24753; t100699.s0.value.structure_type24753 = &t100700; /* x182247 stalin.sc:25683:888584 */ t100707.s0.tag = EXTERNAL_SYMBOL_TYPE; t100707.s0.value.external_symbol_type = q272; /* x182248 stalin.sc:25683:888584 */ t100707.s1.tag = NULL_TYPE; /* x182249 stalin.sc:25683:888584 */ t100699.s1.tag = STRUCTURE_TYPE24753; t100699.s1.value.structure_type24753 = &t100707; /* x182250 stalin.sc:25683:888584 */ t100698.s1.tag = STRUCTURE_TYPE24753; t100698.s1.value.structure_type24753 = &t100699; /* x182251 stalin.sc:25683:888584 */ t100697.s0.tag = STRUCTURE_TYPE24753; t100697.s0.value.structure_type24753 = &t100698; /* x182252 stalin.sc:25683:888584 */ t100697.s1.tag = NULL_TYPE; /* x182253 stalin.sc:25683:888584 */ t100696.s1.tag = STRUCTURE_TYPE24753; t100696.s1.value.structure_type24753 = &t100697; /* x182254 stalin.sc:25683:888584 */ t100695.s1.tag = STRUCTURE_TYPE24753; t100695.s1.value.structure_type24753 = &t100696; /* x182255 stalin.sc:25683:888584 */ t100694.s0.tag = STRUCTURE_TYPE24753; t100694.s0.value.structure_type24753 = &t100695; /* x182256 stalin.sc:25683:888584 */ t100709.s0.tag = EXTERNAL_SYMBOL_TYPE; t100709.s0.value.external_symbol_type = q130; /* x182257 stalin.sc:25683:888584 */ t100710.s0.tag = EXTERNAL_SYMBOL_TYPE; t100710.s0.value.external_symbol_type = q272; /* x182258 stalin.sc:25683:888584 */ t100711.s0.tag = FLONUM_TYPE; t100711.s0.value.flonum_type = 1.0e1; /* x182259 stalin.sc:25683:888584 */ t100711.s1.tag = NULL_TYPE; /* x182260 stalin.sc:25683:888584 */ t100710.s1.tag = STRUCTURE_TYPE24753; t100710.s1.value.structure_type24753 = &t100711; /* x182261 stalin.sc:25683:888584 */ t100709.s1.tag = STRUCTURE_TYPE24753; t100709.s1.value.structure_type24753 = &t100710; /* x182262 stalin.sc:25683:888584 */ t100708.s0.tag = STRUCTURE_TYPE24753; t100708.s0.value.structure_type24753 = &t100709; /* x182263 stalin.sc:25683:888584 */ t100708.s1.tag = NULL_TYPE; /* x182264 stalin.sc:25683:888584 */ t100694.s1.tag = STRUCTURE_TYPE24753; t100694.s1.value.structure_type24753 = &t100708; /* x182265 stalin.sc:25683:888584 */ t100693.s1.tag = STRUCTURE_TYPE24753; t100693.s1.value.structure_type24753 = &t100694; /* x182266 stalin.sc:25683:888584 */ t100692.s0.tag = STRUCTURE_TYPE24753; t100692.s0.value.structure_type24753 = &t100693; /* x182267 stalin.sc:25683:888584 */ t100692.s1.tag = NULL_TYPE; /* x182268 stalin.sc:25683:888584 */ t100689.s1.tag = STRUCTURE_TYPE24753; t100689.s1.value.structure_type24753 = &t100692; /* x182269 stalin.sc:25683:888584 */ t100688.s0.tag = STRUCTURE_TYPE24753; t100688.s0.value.structure_type24753 = &t100689; /* x182270 stalin.sc:25683:888584 */ t100714.s0.tag = EXTERNAL_SYMBOL_TYPE; t100714.s0.value.external_symbol_type = q241; /* x182271 stalin.sc:25683:888584 */ t100716.s0.tag = EXTERNAL_SYMBOL_TYPE; t100716.s0.value.external_symbol_type = q263; /* x182272 stalin.sc:25683:888584 */ t100717.s0.tag = EXTERNAL_SYMBOL_TYPE; t100717.s0.value.external_symbol_type = q273; /* x182273 stalin.sc:25683:888584 */ t100718.s0.tag = ((unsigned)((unsigned char)'e'))<<2; /* x182274 stalin.sc:25683:888584 */ t100718.s1.tag = NULL_TYPE; /* x182275 stalin.sc:25683:888584 */ t100717.s1.tag = STRUCTURE_TYPE24753; t100717.s1.value.structure_type24753 = &t100718; /* x182276 stalin.sc:25683:888584 */ t100716.s1.tag = STRUCTURE_TYPE24753; t100716.s1.value.structure_type24753 = &t100717; /* x182277 stalin.sc:25683:888584 */ t100715.s0.tag = STRUCTURE_TYPE24753; t100715.s0.value.structure_type24753 = &t100716; /* x182278 stalin.sc:25683:888584 */ t100720.s0.tag = EXTERNAL_SYMBOL_TYPE; t100720.s0.value.external_symbol_type = q263; /* x182279 stalin.sc:25683:888584 */ t100721.s0.tag = EXTERNAL_SYMBOL_TYPE; t100721.s0.value.external_symbol_type = q273; /* x182280 stalin.sc:25683:888584 */ t100722.s0.tag = ((unsigned)((unsigned char)'E'))<<2; /* x182281 stalin.sc:25683:888584 */ t100722.s1.tag = NULL_TYPE; /* x182282 stalin.sc:25683:888584 */ t100721.s1.tag = STRUCTURE_TYPE24753; t100721.s1.value.structure_type24753 = &t100722; /* x182283 stalin.sc:25683:888584 */ t100720.s1.tag = STRUCTURE_TYPE24753; t100720.s1.value.structure_type24753 = &t100721; /* x182284 stalin.sc:25683:888584 */ t100719.s0.tag = STRUCTURE_TYPE24753; t100719.s0.value.structure_type24753 = &t100720; /* x182285 stalin.sc:25683:888584 */ t100724.s0.tag = EXTERNAL_SYMBOL_TYPE; t100724.s0.value.external_symbol_type = q263; /* x182286 stalin.sc:25683:888584 */ t100725.s0.tag = EXTERNAL_SYMBOL_TYPE; t100725.s0.value.external_symbol_type = q273; /* x182287 stalin.sc:25683:888584 */ t100726.s0.tag = ((unsigned)((unsigned char)'s'))<<2; /* x182288 stalin.sc:25683:888584 */ t100726.s1.tag = NULL_TYPE; /* x182289 stalin.sc:25683:888584 */ t100725.s1.tag = STRUCTURE_TYPE24753; t100725.s1.value.structure_type24753 = &t100726; /* x182290 stalin.sc:25683:888584 */ t100724.s1.tag = STRUCTURE_TYPE24753; t100724.s1.value.structure_type24753 = &t100725; /* x182291 stalin.sc:25683:888584 */ t100723.s0.tag = STRUCTURE_TYPE24753; t100723.s0.value.structure_type24753 = &t100724; /* x182292 stalin.sc:25683:888584 */ t100728.s0.tag = EXTERNAL_SYMBOL_TYPE; t100728.s0.value.external_symbol_type = q263; /* x182293 stalin.sc:25683:888584 */ t100729.s0.tag = EXTERNAL_SYMBOL_TYPE; t100729.s0.value.external_symbol_type = q273; /* x182294 stalin.sc:25683:888584 */ t100730.s0.tag = ((unsigned)((unsigned char)'S'))<<2; /* x182295 stalin.sc:25683:888584 */ t100730.s1.tag = NULL_TYPE; /* x182296 stalin.sc:25683:888584 */ t100729.s1.tag = STRUCTURE_TYPE24753; t100729.s1.value.structure_type24753 = &t100730; /* x182297 stalin.sc:25683:888584 */ t100728.s1.tag = STRUCTURE_TYPE24753; t100728.s1.value.structure_type24753 = &t100729; /* x182298 stalin.sc:25683:888584 */ t100727.s0.tag = STRUCTURE_TYPE24753; t100727.s0.value.structure_type24753 = &t100728; /* x182299 stalin.sc:25683:888584 */ t100732.s0.tag = EXTERNAL_SYMBOL_TYPE; t100732.s0.value.external_symbol_type = q263; /* x182300 stalin.sc:25683:888584 */ t100733.s0.tag = EXTERNAL_SYMBOL_TYPE; t100733.s0.value.external_symbol_type = q273; /* x182301 stalin.sc:25683:888584 */ t100734.s0.tag = ((unsigned)((unsigned char)'f'))<<2; /* x182302 stalin.sc:25683:888584 */ t100734.s1.tag = NULL_TYPE; /* x182303 stalin.sc:25683:888584 */ t100733.s1.tag = STRUCTURE_TYPE24753; t100733.s1.value.structure_type24753 = &t100734; /* x182304 stalin.sc:25683:888584 */ t100732.s1.tag = STRUCTURE_TYPE24753; t100732.s1.value.structure_type24753 = &t100733; /* x182305 stalin.sc:25683:888584 */ t100731.s0.tag = STRUCTURE_TYPE24753; t100731.s0.value.structure_type24753 = &t100732; /* x182306 stalin.sc:25683:888584 */ t100736.s0.tag = EXTERNAL_SYMBOL_TYPE; t100736.s0.value.external_symbol_type = q263; /* x182307 stalin.sc:25683:888584 */ t100737.s0.tag = EXTERNAL_SYMBOL_TYPE; t100737.s0.value.external_symbol_type = q273; /* x182308 stalin.sc:25683:888584 */ t100738.s0.tag = ((unsigned)((unsigned char)'F'))<<2; /* x182309 stalin.sc:25683:888584 */ t100738.s1.tag = NULL_TYPE; /* x182310 stalin.sc:25683:888584 */ t100737.s1.tag = STRUCTURE_TYPE24753; t100737.s1.value.structure_type24753 = &t100738; /* x182311 stalin.sc:25683:888584 */ t100736.s1.tag = STRUCTURE_TYPE24753; t100736.s1.value.structure_type24753 = &t100737; /* x182312 stalin.sc:25683:888584 */ t100735.s0.tag = STRUCTURE_TYPE24753; t100735.s0.value.structure_type24753 = &t100736; /* x182313 stalin.sc:25683:888584 */ t100740.s0.tag = EXTERNAL_SYMBOL_TYPE; t100740.s0.value.external_symbol_type = q263; /* x182314 stalin.sc:25683:888584 */ t100741.s0.tag = EXTERNAL_SYMBOL_TYPE; t100741.s0.value.external_symbol_type = q273; /* x182315 stalin.sc:25683:888584 */ t100742.s0.tag = ((unsigned)((unsigned char)'d'))<<2; /* x182316 stalin.sc:25683:888584 */ t100742.s1.tag = NULL_TYPE; /* x182317 stalin.sc:25683:888584 */ t100741.s1.tag = STRUCTURE_TYPE24753; t100741.s1.value.structure_type24753 = &t100742; /* x182318 stalin.sc:25683:888584 */ t100740.s1.tag = STRUCTURE_TYPE24753; t100740.s1.value.structure_type24753 = &t100741; /* x182319 stalin.sc:25683:888584 */ t100739.s0.tag = STRUCTURE_TYPE24753; t100739.s0.value.structure_type24753 = &t100740; /* x182320 stalin.sc:25683:888584 */ t100744.s0.tag = EXTERNAL_SYMBOL_TYPE; t100744.s0.value.external_symbol_type = q263; /* x182321 stalin.sc:25683:888584 */ t100745.s0.tag = EXTERNAL_SYMBOL_TYPE; t100745.s0.value.external_symbol_type = q273; /* x182322 stalin.sc:25683:888584 */ t100746.s0.tag = ((unsigned)((unsigned char)'D'))<<2; /* x182323 stalin.sc:25683:888584 */ t100746.s1.tag = NULL_TYPE; /* x182324 stalin.sc:25683:888584 */ t100745.s1.tag = STRUCTURE_TYPE24753; t100745.s1.value.structure_type24753 = &t100746; /* x182325 stalin.sc:25683:888584 */ t100744.s1.tag = STRUCTURE_TYPE24753; t100744.s1.value.structure_type24753 = &t100745; /* x182326 stalin.sc:25683:888584 */ t100743.s0.tag = STRUCTURE_TYPE24753; t100743.s0.value.structure_type24753 = &t100744; /* x182327 stalin.sc:25683:888584 */ t100748.s0.tag = EXTERNAL_SYMBOL_TYPE; t100748.s0.value.external_symbol_type = q263; /* x182328 stalin.sc:25683:888584 */ t100749.s0.tag = EXTERNAL_SYMBOL_TYPE; t100749.s0.value.external_symbol_type = q273; /* x182329 stalin.sc:25683:888584 */ t100750.s0.tag = ((unsigned)((unsigned char)'l'))<<2; /* x182330 stalin.sc:25683:888584 */ t100750.s1.tag = NULL_TYPE; /* x182331 stalin.sc:25683:888584 */ t100749.s1.tag = STRUCTURE_TYPE24753; t100749.s1.value.structure_type24753 = &t100750; /* x182332 stalin.sc:25683:888584 */ t100748.s1.tag = STRUCTURE_TYPE24753; t100748.s1.value.structure_type24753 = &t100749; /* x182333 stalin.sc:25683:888584 */ t100747.s0.tag = STRUCTURE_TYPE24753; t100747.s0.value.structure_type24753 = &t100748; /* x182334 stalin.sc:25683:888584 */ t100752.s0.tag = EXTERNAL_SYMBOL_TYPE; t100752.s0.value.external_symbol_type = q263; /* x182335 stalin.sc:25683:888584 */ t100753.s0.tag = EXTERNAL_SYMBOL_TYPE; t100753.s0.value.external_symbol_type = q273; /* x182336 stalin.sc:25683:888584 */ t100754.s0.tag = ((unsigned)((unsigned char)'L'))<<2; /* x182337 stalin.sc:25683:888584 */ t100754.s1.tag = NULL_TYPE; /* x182338 stalin.sc:25683:888584 */ t100753.s1.tag = STRUCTURE_TYPE24753; t100753.s1.value.structure_type24753 = &t100754; /* x182339 stalin.sc:25683:888584 */ t100752.s1.tag = STRUCTURE_TYPE24753; t100752.s1.value.structure_type24753 = &t100753; /* x182340 stalin.sc:25683:888584 */ t100751.s0.tag = STRUCTURE_TYPE24753; t100751.s0.value.structure_type24753 = &t100752; /* x182341 stalin.sc:25683:888584 */ t100751.s1.tag = NULL_TYPE; /* x182342 stalin.sc:25683:888584 */ t100747.s1.tag = STRUCTURE_TYPE24753; t100747.s1.value.structure_type24753 = &t100751; /* x182343 stalin.sc:25683:888584 */ t100743.s1.tag = STRUCTURE_TYPE24753; t100743.s1.value.structure_type24753 = &t100747; /* x182344 stalin.sc:25683:888584 */ t100739.s1.tag = STRUCTURE_TYPE24753; t100739.s1.value.structure_type24753 = &t100743; /* x182345 stalin.sc:25683:888584 */ t100735.s1.tag = STRUCTURE_TYPE24753; t100735.s1.value.structure_type24753 = &t100739; /* x182346 stalin.sc:25683:888584 */ t100731.s1.tag = STRUCTURE_TYPE24753; t100731.s1.value.structure_type24753 = &t100735; /* x182347 stalin.sc:25683:888584 */ t100727.s1.tag = STRUCTURE_TYPE24753; t100727.s1.value.structure_type24753 = &t100731; /* x182348 stalin.sc:25683:888584 */ t100723.s1.tag = STRUCTURE_TYPE24753; t100723.s1.value.structure_type24753 = &t100727; /* x182349 stalin.sc:25683:888584 */ t100719.s1.tag = STRUCTURE_TYPE24753; t100719.s1.value.structure_type24753 = &t100723; /* x182350 stalin.sc:25683:888584 */ t100715.s1.tag = STRUCTURE_TYPE24753; t100715.s1.value.structure_type24753 = &t100719; /* x182351 stalin.sc:25683:888584 */ t100714.s1.tag = STRUCTURE_TYPE24753; t100714.s1.value.structure_type24753 = &t100715; /* x182352 stalin.sc:25683:888584 */ t100713.s0.tag = STRUCTURE_TYPE24753; t100713.s0.value.structure_type24753 = &t100714; /* x182353 stalin.sc:25683:888584 */ t100756.s0.tag = EXTERNAL_SYMBOL_TYPE; t100756.s0.value.external_symbol_type = q43; /* x182354 stalin.sc:25683:888584 */ t100758.s0.tag = EXTERNAL_SYMBOL_TYPE; t100758.s0.value.external_symbol_type = q120; /* x182355 stalin.sc:25683:888584 */ t100759.s0.tag = EXTERNAL_SYMBOL_TYPE; t100759.s0.value.external_symbol_type = q308; /* x182356 stalin.sc:25683:888584 */ t100760.s0.tag = EXTERNAL_SYMBOL_TYPE; t100760.s0.value.external_symbol_type = q330; /* x182357 stalin.sc:25683:888584 */ t100760.s1.tag = NULL_TYPE; /* x182358 stalin.sc:25683:888584 */ t100759.s1.tag = STRUCTURE_TYPE24753; t100759.s1.value.structure_type24753 = &t100760; /* x182359 stalin.sc:25683:888584 */ t100758.s1.tag = STRUCTURE_TYPE24753; t100758.s1.value.structure_type24753 = &t100759; /* x182360 stalin.sc:25683:888584 */ t100757.s0.tag = STRUCTURE_TYPE24753; t100757.s0.value.structure_type24753 = &t100758; /* x182361 stalin.sc:25683:888584 */ t100761.s0.tag = FALSE_TYPE; /* x182362 stalin.sc:25683:888584 */ t100763.s0.tag = EXTERNAL_SYMBOL_TYPE; t100763.s0.value.external_symbol_type = q242; /* x182363 stalin.sc:25683:888584 */ t100766.s0.tag = EXTERNAL_SYMBOL_TYPE; t100766.s0.value.external_symbol_type = q274; /* x182364 stalin.sc:25683:888584 */ t100768.s0.tag = EXTERNAL_SYMBOL_TYPE; t100768.s0.value.external_symbol_type = q163; /* x182365 stalin.sc:25683:888584 */ t100769.s0.tag = EXTERNAL_SYMBOL_TYPE; t100769.s0.value.external_symbol_type = q161; /* x182366 stalin.sc:25683:888584 */ t100770.s0.tag = EXTERNAL_SYMBOL_TYPE; t100770.s0.value.external_symbol_type = q308; /* x182367 stalin.sc:25683:888584 */ t100770.s1.tag = NULL_TYPE; /* x182368 stalin.sc:25683:888584 */ t100769.s1.tag = STRUCTURE_TYPE24753; t100769.s1.value.structure_type24753 = &t100770; /* x182369 stalin.sc:25683:888584 */ t100768.s1.tag = STRUCTURE_TYPE24753; t100768.s1.value.structure_type24753 = &t100769; /* x182370 stalin.sc:25683:888584 */ t100767.s0.tag = STRUCTURE_TYPE24753; t100767.s0.value.structure_type24753 = &t100768; /* x182371 stalin.sc:25683:888584 */ t100767.s1.tag = NULL_TYPE; /* x182372 stalin.sc:25683:888584 */ t100766.s1.tag = STRUCTURE_TYPE24753; t100766.s1.value.structure_type24753 = &t100767; /* x182373 stalin.sc:25683:888584 */ t100765.s0.tag = STRUCTURE_TYPE24753; t100765.s0.value.structure_type24753 = &t100766; /* x182374 stalin.sc:25683:888584 */ t100765.s1.tag = NULL_TYPE; /* x182375 stalin.sc:25683:888584 */ t100764.s0.tag = STRUCTURE_TYPE24753; t100764.s0.value.structure_type24753 = &t100765; /* x182376 stalin.sc:25683:888584 */ t100772.s0.tag = EXTERNAL_SYMBOL_TYPE; t100772.s0.value.external_symbol_type = q42; /* x182377 stalin.sc:25683:888584 */ t100773.s0.tag = EXTERNAL_SYMBOL_TYPE; t100773.s0.value.external_symbol_type = q308; /* x182378 stalin.sc:25683:888584 */ t100775.s0.tag = EXTERNAL_SYMBOL_TYPE; t100775.s0.value.external_symbol_type = q4; /* x182379 stalin.sc:25683:888584 */ t100776.s0.tag = EXTERNAL_SYMBOL_TYPE; t100776.s0.value.external_symbol_type = q308; /* x182380 stalin.sc:25683:888584 */ t100777.s0.tag = FIXNUM_TYPE; t100777.s0.value.fixnum_type = 1; /* x182381 stalin.sc:25683:888584 */ t100777.s1.tag = NULL_TYPE; /* x182382 stalin.sc:25683:888584 */ t100776.s1.tag = STRUCTURE_TYPE24753; t100776.s1.value.structure_type24753 = &t100777; /* x182383 stalin.sc:25683:888584 */ t100775.s1.tag = STRUCTURE_TYPE24753; t100775.s1.value.structure_type24753 = &t100776; /* x182384 stalin.sc:25683:888584 */ t100774.s0.tag = STRUCTURE_TYPE24753; t100774.s0.value.structure_type24753 = &t100775; /* x182385 stalin.sc:25683:888584 */ t100774.s1.tag = NULL_TYPE; /* x182386 stalin.sc:25683:888584 */ t100773.s1.tag = STRUCTURE_TYPE24753; t100773.s1.value.structure_type24753 = &t100774; /* x182387 stalin.sc:25683:888584 */ t100772.s1.tag = STRUCTURE_TYPE24753; t100772.s1.value.structure_type24753 = &t100773; /* x182388 stalin.sc:25683:888584 */ t100771.s0.tag = STRUCTURE_TYPE24753; t100771.s0.value.structure_type24753 = &t100772; /* x182389 stalin.sc:25683:888584 */ t100779.s0.tag = EXTERNAL_SYMBOL_TYPE; t100779.s0.value.external_symbol_type = q240; /* x182390 stalin.sc:25683:888584 */ t100782.s0.tag = EXTERNAL_SYMBOL_TYPE; t100782.s0.value.external_symbol_type = q269; /* x182391 stalin.sc:25683:888584 */ t100783.s0.tag = EXTERNAL_SYMBOL_TYPE; t100783.s0.value.external_symbol_type = q274; /* x182392 stalin.sc:25683:888584 */ t100783.s1.tag = NULL_TYPE; /* x182393 stalin.sc:25683:888584 */ t100782.s1.tag = STRUCTURE_TYPE24753; t100782.s1.value.structure_type24753 = &t100783; /* x182394 stalin.sc:25683:888584 */ t100781.s0.tag = STRUCTURE_TYPE24753; t100781.s0.value.structure_type24753 = &t100782; /* x182395 stalin.sc:25683:888584 */ t100785.s0.tag = EXTERNAL_SYMBOL_TYPE; t100785.s0.value.external_symbol_type = q242; /* x182396 stalin.sc:25683:888584 */ t100788.s0.tag = EXTERNAL_SYMBOL_TYPE; t100788.s0.value.external_symbol_type = q337; /* x182397 stalin.sc:25683:888584 */ t100790.s0.tag = EXTERNAL_SYMBOL_TYPE; t100790.s0.value.external_symbol_type = q334; /* x182398 stalin.sc:25683:888584 */ t100792.s0.tag = EXTERNAL_SYMBOL_TYPE; t100792.s0.value.external_symbol_type = q2; /* x182399 stalin.sc:25683:888584 */ t100794.s0.tag = EXTERNAL_SYMBOL_TYPE; t100794.s0.value.external_symbol_type = q157; /* x182400 stalin.sc:25683:888584 */ t100795.s0.tag = EXTERNAL_SYMBOL_TYPE; t100795.s0.value.external_symbol_type = q274; /* x182401 stalin.sc:25683:888584 */ t100795.s1.tag = NULL_TYPE; /* x182402 stalin.sc:25683:888584 */ t100794.s1.tag = STRUCTURE_TYPE24753; t100794.s1.value.structure_type24753 = &t100795; /* x182403 stalin.sc:25683:888584 */ t100793.s0.tag = STRUCTURE_TYPE24753; t100793.s0.value.structure_type24753 = &t100794; /* x182404 stalin.sc:25683:888584 */ t100797.s0.tag = EXTERNAL_SYMBOL_TYPE; t100797.s0.value.external_symbol_type = q157; /* x182405 stalin.sc:25683:888584 */ t100798.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x182406 stalin.sc:25683:888584 */ t100798.s1.tag = NULL_TYPE; /* x182407 stalin.sc:25683:888584 */ t100797.s1.tag = STRUCTURE_TYPE24753; t100797.s1.value.structure_type24753 = &t100798; /* x182408 stalin.sc:25683:888584 */ t100796.s0.tag = STRUCTURE_TYPE24753; t100796.s0.value.structure_type24753 = &t100797; /* x182409 stalin.sc:25683:888584 */ t100796.s1.tag = NULL_TYPE; /* x182410 stalin.sc:25683:888584 */ t100793.s1.tag = STRUCTURE_TYPE24753; t100793.s1.value.structure_type24753 = &t100796; /* x182411 stalin.sc:25683:888584 */ t100792.s1.tag = STRUCTURE_TYPE24753; t100792.s1.value.structure_type24753 = &t100793; /* x182412 stalin.sc:25683:888584 */ t100791.s0.tag = STRUCTURE_TYPE24753; t100791.s0.value.structure_type24753 = &t100792; /* x182413 stalin.sc:25683:888584 */ t100791.s1.tag = NULL_TYPE; /* x182414 stalin.sc:25683:888584 */ t100790.s1.tag = STRUCTURE_TYPE24753; t100790.s1.value.structure_type24753 = &t100791; /* x182415 stalin.sc:25683:888584 */ t100789.s0.tag = STRUCTURE_TYPE24753; t100789.s0.value.structure_type24753 = &t100790; /* x182416 stalin.sc:25683:888584 */ t100789.s1.tag = NULL_TYPE; /* x182417 stalin.sc:25683:888584 */ t100788.s1.tag = STRUCTURE_TYPE24753; t100788.s1.value.structure_type24753 = &t100789; /* x182418 stalin.sc:25683:888584 */ t100787.s0.tag = STRUCTURE_TYPE24753; t100787.s0.value.structure_type24753 = &t100788; /* x182419 stalin.sc:25683:888584 */ t100787.s1.tag = NULL_TYPE; /* x182420 stalin.sc:25683:888584 */ t100786.s0.tag = STRUCTURE_TYPE24753; t100786.s0.value.structure_type24753 = &t100787; /* x182421 stalin.sc:25683:888584 */ t100800.s0.tag = EXTERNAL_SYMBOL_TYPE; t100800.s0.value.external_symbol_type = q43; /* x182422 stalin.sc:25683:888584 */ t100801.s0.tag = EXTERNAL_SYMBOL_TYPE; t100801.s0.value.external_symbol_type = q337; /* x182423 stalin.sc:25683:888584 */ t100803.s0.tag = EXTERNAL_SYMBOL_TYPE; t100803.s0.value.external_symbol_type = q130; /* x182424 stalin.sc:25683:888584 */ t100804.s0.tag = EXTERNAL_SYMBOL_TYPE; t100804.s0.value.external_symbol_type = q260; /* x182425 stalin.sc:25683:888584 */ t100806.s0.tag = EXTERNAL_SYMBOL_TYPE; t100806.s0.value.external_symbol_type = q153; /* x182426 stalin.sc:25683:888584 */ t100807.s0.tag = FLONUM_TYPE; t100807.s0.value.flonum_type = 1.0e1; /* x182427 stalin.sc:25683:888584 */ t100808.s0.tag = EXTERNAL_SYMBOL_TYPE; t100808.s0.value.external_symbol_type = q337; /* x182428 stalin.sc:25683:888584 */ t100808.s1.tag = NULL_TYPE; /* x182429 stalin.sc:25683:888584 */ t100807.s1.tag = STRUCTURE_TYPE24753; t100807.s1.value.structure_type24753 = &t100808; /* x182430 stalin.sc:25683:888584 */ t100806.s1.tag = STRUCTURE_TYPE24753; t100806.s1.value.structure_type24753 = &t100807; /* x182431 stalin.sc:25683:888584 */ t100805.s0.tag = STRUCTURE_TYPE24753; t100805.s0.value.structure_type24753 = &t100806; /* x182432 stalin.sc:25683:888584 */ t100805.s1.tag = NULL_TYPE; /* x182433 stalin.sc:25683:888584 */ t100804.s1.tag = STRUCTURE_TYPE24753; t100804.s1.value.structure_type24753 = &t100805; /* x182434 stalin.sc:25683:888584 */ t100803.s1.tag = STRUCTURE_TYPE24753; t100803.s1.value.structure_type24753 = &t100804; /* x182435 stalin.sc:25683:888584 */ t100802.s0.tag = STRUCTURE_TYPE24753; t100802.s0.value.structure_type24753 = &t100803; /* x182436 stalin.sc:25683:888584 */ t100809.s0.tag = FALSE_TYPE; /* x182437 stalin.sc:25683:888584 */ t100809.s1.tag = NULL_TYPE; /* x182438 stalin.sc:25683:888584 */ t100802.s1.tag = STRUCTURE_TYPE24753; t100802.s1.value.structure_type24753 = &t100809; /* x182439 stalin.sc:25683:888584 */ t100801.s1.tag = STRUCTURE_TYPE24753; t100801.s1.value.structure_type24753 = &t100802; /* x182440 stalin.sc:25683:888584 */ t100800.s1.tag = STRUCTURE_TYPE24753; t100800.s1.value.structure_type24753 = &t100801; /* x182441 stalin.sc:25683:888584 */ t100799.s0.tag = STRUCTURE_TYPE24753; t100799.s0.value.structure_type24753 = &t100800; /* x182442 stalin.sc:25683:888584 */ t100799.s1.tag = NULL_TYPE; /* x182443 stalin.sc:25683:888584 */ t100786.s1.tag = STRUCTURE_TYPE24753; t100786.s1.value.structure_type24753 = &t100799; /* x182444 stalin.sc:25683:888584 */ t100785.s1.tag = STRUCTURE_TYPE24753; t100785.s1.value.structure_type24753 = &t100786; /* x182445 stalin.sc:25683:888584 */ t100784.s0.tag = STRUCTURE_TYPE24753; t100784.s0.value.structure_type24753 = &t100785; /* x182446 stalin.sc:25683:888584 */ t100784.s1.tag = NULL_TYPE; /* x182447 stalin.sc:25683:888584 */ t100781.s1.tag = STRUCTURE_TYPE24753; t100781.s1.value.structure_type24753 = &t100784; /* x182448 stalin.sc:25683:888584 */ t100780.s0.tag = STRUCTURE_TYPE24753; t100780.s0.value.structure_type24753 = &t100781; /* x182449 stalin.sc:25683:888584 */ t100812.s0.tag = EXTERNAL_SYMBOL_TYPE; t100812.s0.value.external_symbol_type = q263; /* x182450 stalin.sc:25683:888584 */ t100813.s0.tag = EXTERNAL_SYMBOL_TYPE; t100813.s0.value.external_symbol_type = q274; /* x182451 stalin.sc:25683:888584 */ t100814.s0.tag = ((unsigned)((unsigned char)'+'))<<2; /* x182452 stalin.sc:25683:888584 */ t100814.s1.tag = NULL_TYPE; /* x182453 stalin.sc:25683:888584 */ t100813.s1.tag = STRUCTURE_TYPE24753; t100813.s1.value.structure_type24753 = &t100814; /* x182454 stalin.sc:25683:888584 */ t100812.s1.tag = STRUCTURE_TYPE24753; t100812.s1.value.structure_type24753 = &t100813; /* x182455 stalin.sc:25683:888584 */ t100811.s0.tag = STRUCTURE_TYPE24753; t100811.s0.value.structure_type24753 = &t100812; /* x182456 stalin.sc:25683:888584 */ t100816.s0.tag = EXTERNAL_SYMBOL_TYPE; t100816.s0.value.external_symbol_type = q43; /* x182457 stalin.sc:25683:888584 */ t100818.s0.tag = EXTERNAL_SYMBOL_TYPE; t100818.s0.value.external_symbol_type = q120; /* x182458 stalin.sc:25683:888584 */ t100819.s0.tag = EXTERNAL_SYMBOL_TYPE; t100819.s0.value.external_symbol_type = q308; /* x182459 stalin.sc:25683:888584 */ t100820.s0.tag = EXTERNAL_SYMBOL_TYPE; t100820.s0.value.external_symbol_type = q330; /* x182460 stalin.sc:25683:888584 */ t100820.s1.tag = NULL_TYPE; /* x182461 stalin.sc:25683:888584 */ t100819.s1.tag = STRUCTURE_TYPE24753; t100819.s1.value.structure_type24753 = &t100820; /* x182462 stalin.sc:25683:888584 */ t100818.s1.tag = STRUCTURE_TYPE24753; t100818.s1.value.structure_type24753 = &t100819; /* x182463 stalin.sc:25683:888584 */ t100817.s0.tag = STRUCTURE_TYPE24753; t100817.s0.value.structure_type24753 = &t100818; /* x182464 stalin.sc:25683:888584 */ t100821.s0.tag = FALSE_TYPE; /* x182465 stalin.sc:25683:888584 */ t100823.s0.tag = EXTERNAL_SYMBOL_TYPE; t100823.s0.value.external_symbol_type = q242; /* x182466 stalin.sc:25683:888584 */ t100826.s0.tag = EXTERNAL_SYMBOL_TYPE; t100826.s0.value.external_symbol_type = q275; /* x182467 stalin.sc:25683:888584 */ t100828.s0.tag = EXTERNAL_SYMBOL_TYPE; t100828.s0.value.external_symbol_type = q163; /* x182468 stalin.sc:25683:888584 */ t100829.s0.tag = EXTERNAL_SYMBOL_TYPE; t100829.s0.value.external_symbol_type = q161; /* x182469 stalin.sc:25683:888584 */ t100830.s0.tag = EXTERNAL_SYMBOL_TYPE; t100830.s0.value.external_symbol_type = q308; /* x182470 stalin.sc:25683:888584 */ t100830.s1.tag = NULL_TYPE; /* x182471 stalin.sc:25683:888584 */ t100829.s1.tag = STRUCTURE_TYPE24753; t100829.s1.value.structure_type24753 = &t100830; /* x182472 stalin.sc:25683:888584 */ t100828.s1.tag = STRUCTURE_TYPE24753; t100828.s1.value.structure_type24753 = &t100829; /* x182473 stalin.sc:25683:888584 */ t100827.s0.tag = STRUCTURE_TYPE24753; t100827.s0.value.structure_type24753 = &t100828; /* x182474 stalin.sc:25683:888584 */ t100827.s1.tag = NULL_TYPE; /* x182475 stalin.sc:25683:888584 */ t100826.s1.tag = STRUCTURE_TYPE24753; t100826.s1.value.structure_type24753 = &t100827; /* x182476 stalin.sc:25683:888584 */ t100825.s0.tag = STRUCTURE_TYPE24753; t100825.s0.value.structure_type24753 = &t100826; /* x182477 stalin.sc:25683:888584 */ t100825.s1.tag = NULL_TYPE; /* x182478 stalin.sc:25683:888584 */ t100824.s0.tag = STRUCTURE_TYPE24753; t100824.s0.value.structure_type24753 = &t100825; /* x182479 stalin.sc:25683:888584 */ t100832.s0.tag = EXTERNAL_SYMBOL_TYPE; t100832.s0.value.external_symbol_type = q42; /* x182480 stalin.sc:25683:888584 */ t100833.s0.tag = EXTERNAL_SYMBOL_TYPE; t100833.s0.value.external_symbol_type = q308; /* x182481 stalin.sc:25683:888584 */ t100835.s0.tag = EXTERNAL_SYMBOL_TYPE; t100835.s0.value.external_symbol_type = q4; /* x182482 stalin.sc:25683:888584 */ t100836.s0.tag = EXTERNAL_SYMBOL_TYPE; t100836.s0.value.external_symbol_type = q308; /* x182483 stalin.sc:25683:888584 */ t100837.s0.tag = FIXNUM_TYPE; t100837.s0.value.fixnum_type = 1; /* x182484 stalin.sc:25683:888584 */ t100837.s1.tag = NULL_TYPE; /* x182485 stalin.sc:25683:888584 */ t100836.s1.tag = STRUCTURE_TYPE24753; t100836.s1.value.structure_type24753 = &t100837; /* x182486 stalin.sc:25683:888584 */ t100835.s1.tag = STRUCTURE_TYPE24753; t100835.s1.value.structure_type24753 = &t100836; /* x182487 stalin.sc:25683:888584 */ t100834.s0.tag = STRUCTURE_TYPE24753; t100834.s0.value.structure_type24753 = &t100835; /* x182488 stalin.sc:25683:888584 */ t100834.s1.tag = NULL_TYPE; /* x182489 stalin.sc:25683:888584 */ t100833.s1.tag = STRUCTURE_TYPE24753; t100833.s1.value.structure_type24753 = &t100834; /* x182490 stalin.sc:25683:888584 */ t100832.s1.tag = STRUCTURE_TYPE24753; t100832.s1.value.structure_type24753 = &t100833; /* x182491 stalin.sc:25683:888584 */ t100831.s0.tag = STRUCTURE_TYPE24753; t100831.s0.value.structure_type24753 = &t100832; /* x182492 stalin.sc:25683:888584 */ t100839.s0.tag = EXTERNAL_SYMBOL_TYPE; t100839.s0.value.external_symbol_type = q43; /* x182493 stalin.sc:25683:888584 */ t100841.s0.tag = EXTERNAL_SYMBOL_TYPE; t100841.s0.value.external_symbol_type = q269; /* x182494 stalin.sc:25683:888584 */ t100842.s0.tag = EXTERNAL_SYMBOL_TYPE; t100842.s0.value.external_symbol_type = q275; /* x182495 stalin.sc:25683:888584 */ t100842.s1.tag = NULL_TYPE; /* x182496 stalin.sc:25683:888584 */ t100841.s1.tag = STRUCTURE_TYPE24753; t100841.s1.value.structure_type24753 = &t100842; /* x182497 stalin.sc:25683:888584 */ t100840.s0.tag = STRUCTURE_TYPE24753; t100840.s0.value.structure_type24753 = &t100841; /* x182498 stalin.sc:25683:888584 */ t100844.s0.tag = EXTERNAL_SYMBOL_TYPE; t100844.s0.value.external_symbol_type = q242; /* x182499 stalin.sc:25683:888584 */ t100847.s0.tag = EXTERNAL_SYMBOL_TYPE; t100847.s0.value.external_symbol_type = q337; /* x182500 stalin.sc:25683:888584 */ t100849.s0.tag = EXTERNAL_SYMBOL_TYPE; t100849.s0.value.external_symbol_type = q334; /* x182501 stalin.sc:25683:888584 */ t100851.s0.tag = EXTERNAL_SYMBOL_TYPE; t100851.s0.value.external_symbol_type = q2; /* x182502 stalin.sc:25683:888584 */ t100853.s0.tag = EXTERNAL_SYMBOL_TYPE; t100853.s0.value.external_symbol_type = q157; /* x182503 stalin.sc:25683:888584 */ t100854.s0.tag = EXTERNAL_SYMBOL_TYPE; t100854.s0.value.external_symbol_type = q275; /* x182504 stalin.sc:25683:888584 */ t100854.s1.tag = NULL_TYPE; /* x182505 stalin.sc:25683:888584 */ t100853.s1.tag = STRUCTURE_TYPE24753; t100853.s1.value.structure_type24753 = &t100854; /* x182506 stalin.sc:25683:888584 */ t100852.s0.tag = STRUCTURE_TYPE24753; t100852.s0.value.structure_type24753 = &t100853; /* x182507 stalin.sc:25683:888584 */ t100856.s0.tag = EXTERNAL_SYMBOL_TYPE; t100856.s0.value.external_symbol_type = q157; /* x182508 stalin.sc:25683:888584 */ t100857.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x182509 stalin.sc:25683:888584 */ t100857.s1.tag = NULL_TYPE; /* x182510 stalin.sc:25683:888584 */ t100856.s1.tag = STRUCTURE_TYPE24753; t100856.s1.value.structure_type24753 = &t100857; /* x182511 stalin.sc:25683:888584 */ t100855.s0.tag = STRUCTURE_TYPE24753; t100855.s0.value.structure_type24753 = &t100856; /* x182512 stalin.sc:25683:888584 */ t100855.s1.tag = NULL_TYPE; /* x182513 stalin.sc:25683:888584 */ t100852.s1.tag = STRUCTURE_TYPE24753; t100852.s1.value.structure_type24753 = &t100855; /* x182514 stalin.sc:25683:888584 */ t100851.s1.tag = STRUCTURE_TYPE24753; t100851.s1.value.structure_type24753 = &t100852; /* x182515 stalin.sc:25683:888584 */ t100850.s0.tag = STRUCTURE_TYPE24753; t100850.s0.value.structure_type24753 = &t100851; /* x182516 stalin.sc:25683:888584 */ t100850.s1.tag = NULL_TYPE; /* x182517 stalin.sc:25683:888584 */ t100849.s1.tag = STRUCTURE_TYPE24753; t100849.s1.value.structure_type24753 = &t100850; /* x182518 stalin.sc:25683:888584 */ t100848.s0.tag = STRUCTURE_TYPE24753; t100848.s0.value.structure_type24753 = &t100849; /* x182519 stalin.sc:25683:888584 */ t100848.s1.tag = NULL_TYPE; /* x182520 stalin.sc:25683:888584 */ t100847.s1.tag = STRUCTURE_TYPE24753; t100847.s1.value.structure_type24753 = &t100848; /* x182521 stalin.sc:25683:888584 */ t100846.s0.tag = STRUCTURE_TYPE24753; t100846.s0.value.structure_type24753 = &t100847; /* x182522 stalin.sc:25683:888584 */ t100846.s1.tag = NULL_TYPE; /* x182523 stalin.sc:25683:888584 */ t100845.s0.tag = STRUCTURE_TYPE24753; t100845.s0.value.structure_type24753 = &t100846; /* x182524 stalin.sc:25683:888584 */ t100859.s0.tag = EXTERNAL_SYMBOL_TYPE; t100859.s0.value.external_symbol_type = q43; /* x182525 stalin.sc:25683:888584 */ t100860.s0.tag = EXTERNAL_SYMBOL_TYPE; t100860.s0.value.external_symbol_type = q337; /* x182526 stalin.sc:25683:888584 */ t100862.s0.tag = EXTERNAL_SYMBOL_TYPE; t100862.s0.value.external_symbol_type = q130; /* x182527 stalin.sc:25683:888584 */ t100863.s0.tag = EXTERNAL_SYMBOL_TYPE; t100863.s0.value.external_symbol_type = q260; /* x182528 stalin.sc:25683:888584 */ t100865.s0.tag = EXTERNAL_SYMBOL_TYPE; t100865.s0.value.external_symbol_type = q153; /* x182529 stalin.sc:25683:888584 */ t100866.s0.tag = FLONUM_TYPE; t100866.s0.value.flonum_type = 1.0e1; /* x182530 stalin.sc:25683:888584 */ t100867.s0.tag = EXTERNAL_SYMBOL_TYPE; t100867.s0.value.external_symbol_type = q337; /* x182531 stalin.sc:25683:888584 */ t100867.s1.tag = NULL_TYPE; /* x182532 stalin.sc:25683:888584 */ t100866.s1.tag = STRUCTURE_TYPE24753; t100866.s1.value.structure_type24753 = &t100867; /* x182533 stalin.sc:25683:888584 */ t100865.s1.tag = STRUCTURE_TYPE24753; t100865.s1.value.structure_type24753 = &t100866; /* x182534 stalin.sc:25683:888584 */ t100864.s0.tag = STRUCTURE_TYPE24753; t100864.s0.value.structure_type24753 = &t100865; /* x182535 stalin.sc:25683:888584 */ t100864.s1.tag = NULL_TYPE; /* x182536 stalin.sc:25683:888584 */ t100863.s1.tag = STRUCTURE_TYPE24753; t100863.s1.value.structure_type24753 = &t100864; /* x182537 stalin.sc:25683:888584 */ t100862.s1.tag = STRUCTURE_TYPE24753; t100862.s1.value.structure_type24753 = &t100863; /* x182538 stalin.sc:25683:888584 */ t100861.s0.tag = STRUCTURE_TYPE24753; t100861.s0.value.structure_type24753 = &t100862; /* x182539 stalin.sc:25683:888584 */ t100868.s0.tag = FALSE_TYPE; /* x182540 stalin.sc:25683:888584 */ t100868.s1.tag = NULL_TYPE; /* x182541 stalin.sc:25683:888584 */ t100861.s1.tag = STRUCTURE_TYPE24753; t100861.s1.value.structure_type24753 = &t100868; /* x182542 stalin.sc:25683:888584 */ t100860.s1.tag = STRUCTURE_TYPE24753; t100860.s1.value.structure_type24753 = &t100861; /* x182543 stalin.sc:25683:888584 */ t100859.s1.tag = STRUCTURE_TYPE24753; t100859.s1.value.structure_type24753 = &t100860; /* x182544 stalin.sc:25683:888584 */ t100858.s0.tag = STRUCTURE_TYPE24753; t100858.s0.value.structure_type24753 = &t100859; /* x182545 stalin.sc:25683:888584 */ t100858.s1.tag = NULL_TYPE; /* x182546 stalin.sc:25683:888584 */ t100845.s1.tag = STRUCTURE_TYPE24753; t100845.s1.value.structure_type24753 = &t100858; /* x182547 stalin.sc:25683:888584 */ t100844.s1.tag = STRUCTURE_TYPE24753; t100844.s1.value.structure_type24753 = &t100845; /* x182548 stalin.sc:25683:888584 */ t100843.s0.tag = STRUCTURE_TYPE24753; t100843.s0.value.structure_type24753 = &t100844; /* x182549 stalin.sc:25683:888584 */ t100869.s0.tag = FALSE_TYPE; /* x182550 stalin.sc:25683:888584 */ t100869.s1.tag = NULL_TYPE; /* x182551 stalin.sc:25683:888584 */ t100843.s1.tag = STRUCTURE_TYPE24753; t100843.s1.value.structure_type24753 = &t100869; /* x182552 stalin.sc:25683:888584 */ t100840.s1.tag = STRUCTURE_TYPE24753; t100840.s1.value.structure_type24753 = &t100843; /* x182553 stalin.sc:25683:888584 */ t100839.s1.tag = STRUCTURE_TYPE24753; t100839.s1.value.structure_type24753 = &t100840; /* x182554 stalin.sc:25683:888584 */ t100838.s0.tag = STRUCTURE_TYPE24753; t100838.s0.value.structure_type24753 = &t100839; /* x182555 stalin.sc:25683:888584 */ t100838.s1.tag = NULL_TYPE; /* x182556 stalin.sc:25683:888584 */ t100831.s1.tag = STRUCTURE_TYPE24753; t100831.s1.value.structure_type24753 = &t100838; /* x182557 stalin.sc:25683:888584 */ t100824.s1.tag = STRUCTURE_TYPE24753; t100824.s1.value.structure_type24753 = &t100831; /* x182558 stalin.sc:25683:888584 */ t100823.s1.tag = STRUCTURE_TYPE24753; t100823.s1.value.structure_type24753 = &t100824; /* x182559 stalin.sc:25683:888584 */ t100822.s0.tag = STRUCTURE_TYPE24753; t100822.s0.value.structure_type24753 = &t100823; /* x182560 stalin.sc:25683:888584 */ t100822.s1.tag = NULL_TYPE; /* x182561 stalin.sc:25683:888584 */ t100821.s1.tag = STRUCTURE_TYPE24753; t100821.s1.value.structure_type24753 = &t100822; /* x182562 stalin.sc:25683:888584 */ t100817.s1.tag = STRUCTURE_TYPE24753; t100817.s1.value.structure_type24753 = &t100821; /* x182563 stalin.sc:25683:888584 */ t100816.s1.tag = STRUCTURE_TYPE24753; t100816.s1.value.structure_type24753 = &t100817; /* x182564 stalin.sc:25683:888584 */ t100815.s0.tag = STRUCTURE_TYPE24753; t100815.s0.value.structure_type24753 = &t100816; /* x182565 stalin.sc:25683:888584 */ t100815.s1.tag = NULL_TYPE; /* x182566 stalin.sc:25683:888584 */ t100811.s1.tag = STRUCTURE_TYPE24753; t100811.s1.value.structure_type24753 = &t100815; /* x182567 stalin.sc:25683:888584 */ t100810.s0.tag = STRUCTURE_TYPE24753; t100810.s0.value.structure_type24753 = &t100811; /* x182568 stalin.sc:25683:888584 */ t100872.s0.tag = EXTERNAL_SYMBOL_TYPE; t100872.s0.value.external_symbol_type = q263; /* x182569 stalin.sc:25683:888584 */ t100873.s0.tag = EXTERNAL_SYMBOL_TYPE; t100873.s0.value.external_symbol_type = q274; /* x182570 stalin.sc:25683:888584 */ t100874.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x182571 stalin.sc:25683:888584 */ t100874.s1.tag = NULL_TYPE; /* x182572 stalin.sc:25683:888584 */ t100873.s1.tag = STRUCTURE_TYPE24753; t100873.s1.value.structure_type24753 = &t100874; /* x182573 stalin.sc:25683:888584 */ t100872.s1.tag = STRUCTURE_TYPE24753; t100872.s1.value.structure_type24753 = &t100873; /* x182574 stalin.sc:25683:888584 */ t100871.s0.tag = STRUCTURE_TYPE24753; t100871.s0.value.structure_type24753 = &t100872; /* x182575 stalin.sc:25683:888584 */ t100876.s0.tag = EXTERNAL_SYMBOL_TYPE; t100876.s0.value.external_symbol_type = q43; /* x182576 stalin.sc:25683:888584 */ t100878.s0.tag = EXTERNAL_SYMBOL_TYPE; t100878.s0.value.external_symbol_type = q120; /* x182577 stalin.sc:25683:888584 */ t100879.s0.tag = EXTERNAL_SYMBOL_TYPE; t100879.s0.value.external_symbol_type = q308; /* x182578 stalin.sc:25683:888584 */ t100880.s0.tag = EXTERNAL_SYMBOL_TYPE; t100880.s0.value.external_symbol_type = q330; /* x182579 stalin.sc:25683:888584 */ t100880.s1.tag = NULL_TYPE; /* x182580 stalin.sc:25683:888584 */ t100879.s1.tag = STRUCTURE_TYPE24753; t100879.s1.value.structure_type24753 = &t100880; /* x182581 stalin.sc:25683:888584 */ t100878.s1.tag = STRUCTURE_TYPE24753; t100878.s1.value.structure_type24753 = &t100879; /* x182582 stalin.sc:25683:888584 */ t100877.s0.tag = STRUCTURE_TYPE24753; t100877.s0.value.structure_type24753 = &t100878; /* x182583 stalin.sc:25683:888584 */ t100881.s0.tag = FALSE_TYPE; /* x182584 stalin.sc:25683:888584 */ t100883.s0.tag = EXTERNAL_SYMBOL_TYPE; t100883.s0.value.external_symbol_type = q242; /* x182585 stalin.sc:25683:888584 */ t100886.s0.tag = EXTERNAL_SYMBOL_TYPE; t100886.s0.value.external_symbol_type = q275; /* x182586 stalin.sc:25683:888584 */ t100888.s0.tag = EXTERNAL_SYMBOL_TYPE; t100888.s0.value.external_symbol_type = q163; /* x182587 stalin.sc:25683:888584 */ t100889.s0.tag = EXTERNAL_SYMBOL_TYPE; t100889.s0.value.external_symbol_type = q161; /* x182588 stalin.sc:25683:888584 */ t100890.s0.tag = EXTERNAL_SYMBOL_TYPE; t100890.s0.value.external_symbol_type = q308; /* x182589 stalin.sc:25683:888584 */ t100890.s1.tag = NULL_TYPE; /* x182590 stalin.sc:25683:888584 */ t100889.s1.tag = STRUCTURE_TYPE24753; t100889.s1.value.structure_type24753 = &t100890; /* x182591 stalin.sc:25683:888584 */ t100888.s1.tag = STRUCTURE_TYPE24753; t100888.s1.value.structure_type24753 = &t100889; /* x182592 stalin.sc:25683:888584 */ t100887.s0.tag = STRUCTURE_TYPE24753; t100887.s0.value.structure_type24753 = &t100888; /* x182593 stalin.sc:25683:888584 */ t100887.s1.tag = NULL_TYPE; /* x182594 stalin.sc:25683:888584 */ t100886.s1.tag = STRUCTURE_TYPE24753; t100886.s1.value.structure_type24753 = &t100887; /* x182595 stalin.sc:25683:888584 */ t100885.s0.tag = STRUCTURE_TYPE24753; t100885.s0.value.structure_type24753 = &t100886; /* x182596 stalin.sc:25683:888584 */ t100885.s1.tag = NULL_TYPE; /* x182597 stalin.sc:25683:888584 */ t100884.s0.tag = STRUCTURE_TYPE24753; t100884.s0.value.structure_type24753 = &t100885; /* x182598 stalin.sc:25683:888584 */ t100892.s0.tag = EXTERNAL_SYMBOL_TYPE; t100892.s0.value.external_symbol_type = q42; /* x182599 stalin.sc:25683:888584 */ t100893.s0.tag = EXTERNAL_SYMBOL_TYPE; t100893.s0.value.external_symbol_type = q308; /* x182600 stalin.sc:25683:888584 */ t100895.s0.tag = EXTERNAL_SYMBOL_TYPE; t100895.s0.value.external_symbol_type = q4; /* x182601 stalin.sc:25683:888584 */ t100896.s0.tag = EXTERNAL_SYMBOL_TYPE; t100896.s0.value.external_symbol_type = q308; /* x182602 stalin.sc:25683:888584 */ t100897.s0.tag = FIXNUM_TYPE; t100897.s0.value.fixnum_type = 1; /* x182603 stalin.sc:25683:888584 */ t100897.s1.tag = NULL_TYPE; /* x182604 stalin.sc:25683:888584 */ t100896.s1.tag = STRUCTURE_TYPE24753; t100896.s1.value.structure_type24753 = &t100897; /* x182605 stalin.sc:25683:888584 */ t100895.s1.tag = STRUCTURE_TYPE24753; t100895.s1.value.structure_type24753 = &t100896; /* x182606 stalin.sc:25683:888584 */ t100894.s0.tag = STRUCTURE_TYPE24753; t100894.s0.value.structure_type24753 = &t100895; /* x182607 stalin.sc:25683:888584 */ t100894.s1.tag = NULL_TYPE; /* x182608 stalin.sc:25683:888584 */ t100893.s1.tag = STRUCTURE_TYPE24753; t100893.s1.value.structure_type24753 = &t100894; /* x182609 stalin.sc:25683:888584 */ t100892.s1.tag = STRUCTURE_TYPE24753; t100892.s1.value.structure_type24753 = &t100893; /* x182610 stalin.sc:25683:888584 */ t100891.s0.tag = STRUCTURE_TYPE24753; t100891.s0.value.structure_type24753 = &t100892; /* x182611 stalin.sc:25683:888584 */ t100899.s0.tag = EXTERNAL_SYMBOL_TYPE; t100899.s0.value.external_symbol_type = q43; /* x182612 stalin.sc:25683:888584 */ t100901.s0.tag = EXTERNAL_SYMBOL_TYPE; t100901.s0.value.external_symbol_type = q269; /* x182613 stalin.sc:25683:888584 */ t100902.s0.tag = EXTERNAL_SYMBOL_TYPE; t100902.s0.value.external_symbol_type = q275; /* x182614 stalin.sc:25683:888584 */ t100902.s1.tag = NULL_TYPE; /* x182615 stalin.sc:25683:888584 */ t100901.s1.tag = STRUCTURE_TYPE24753; t100901.s1.value.structure_type24753 = &t100902; /* x182616 stalin.sc:25683:888584 */ t100900.s0.tag = STRUCTURE_TYPE24753; t100900.s0.value.structure_type24753 = &t100901; /* x182617 stalin.sc:25683:888584 */ t100904.s0.tag = EXTERNAL_SYMBOL_TYPE; t100904.s0.value.external_symbol_type = q242; /* x182618 stalin.sc:25683:888584 */ t100907.s0.tag = EXTERNAL_SYMBOL_TYPE; t100907.s0.value.external_symbol_type = q337; /* x182619 stalin.sc:25683:888584 */ t100909.s0.tag = EXTERNAL_SYMBOL_TYPE; t100909.s0.value.external_symbol_type = q334; /* x182620 stalin.sc:25683:888584 */ t100911.s0.tag = EXTERNAL_SYMBOL_TYPE; t100911.s0.value.external_symbol_type = q2; /* x182621 stalin.sc:25683:888584 */ t100913.s0.tag = EXTERNAL_SYMBOL_TYPE; t100913.s0.value.external_symbol_type = q157; /* x182622 stalin.sc:25683:888584 */ t100914.s0.tag = EXTERNAL_SYMBOL_TYPE; t100914.s0.value.external_symbol_type = q275; /* x182623 stalin.sc:25683:888584 */ t100914.s1.tag = NULL_TYPE; /* x182624 stalin.sc:25683:888584 */ t100913.s1.tag = STRUCTURE_TYPE24753; t100913.s1.value.structure_type24753 = &t100914; /* x182625 stalin.sc:25683:888584 */ t100912.s0.tag = STRUCTURE_TYPE24753; t100912.s0.value.structure_type24753 = &t100913; /* x182626 stalin.sc:25683:888584 */ t100916.s0.tag = EXTERNAL_SYMBOL_TYPE; t100916.s0.value.external_symbol_type = q157; /* x182627 stalin.sc:25683:888584 */ t100917.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x182628 stalin.sc:25683:888584 */ t100917.s1.tag = NULL_TYPE; /* x182629 stalin.sc:25683:888584 */ t100916.s1.tag = STRUCTURE_TYPE24753; t100916.s1.value.structure_type24753 = &t100917; /* x182630 stalin.sc:25683:888584 */ t100915.s0.tag = STRUCTURE_TYPE24753; t100915.s0.value.structure_type24753 = &t100916; /* x182631 stalin.sc:25683:888584 */ t100915.s1.tag = NULL_TYPE; /* x182632 stalin.sc:25683:888584 */ t100912.s1.tag = STRUCTURE_TYPE24753; t100912.s1.value.structure_type24753 = &t100915; /* x182633 stalin.sc:25683:888584 */ t100911.s1.tag = STRUCTURE_TYPE24753; t100911.s1.value.structure_type24753 = &t100912; /* x182634 stalin.sc:25683:888584 */ t100910.s0.tag = STRUCTURE_TYPE24753; t100910.s0.value.structure_type24753 = &t100911; /* x182635 stalin.sc:25683:888584 */ t100910.s1.tag = NULL_TYPE; /* x182636 stalin.sc:25683:888584 */ t100909.s1.tag = STRUCTURE_TYPE24753; t100909.s1.value.structure_type24753 = &t100910; /* x182637 stalin.sc:25683:888584 */ t100908.s0.tag = STRUCTURE_TYPE24753; t100908.s0.value.structure_type24753 = &t100909; /* x182638 stalin.sc:25683:888584 */ t100908.s1.tag = NULL_TYPE; /* x182639 stalin.sc:25683:888584 */ t100907.s1.tag = STRUCTURE_TYPE24753; t100907.s1.value.structure_type24753 = &t100908; /* x182640 stalin.sc:25683:888584 */ t100906.s0.tag = STRUCTURE_TYPE24753; t100906.s0.value.structure_type24753 = &t100907; /* x182641 stalin.sc:25683:888584 */ t100906.s1.tag = NULL_TYPE; /* x182642 stalin.sc:25683:888584 */ t100905.s0.tag = STRUCTURE_TYPE24753; t100905.s0.value.structure_type24753 = &t100906; /* x182643 stalin.sc:25683:888584 */ t100919.s0.tag = EXTERNAL_SYMBOL_TYPE; t100919.s0.value.external_symbol_type = q43; /* x182644 stalin.sc:25683:888584 */ t100920.s0.tag = EXTERNAL_SYMBOL_TYPE; t100920.s0.value.external_symbol_type = q337; /* x182645 stalin.sc:25683:888584 */ t100922.s0.tag = EXTERNAL_SYMBOL_TYPE; t100922.s0.value.external_symbol_type = q130; /* x182646 stalin.sc:25683:888584 */ t100923.s0.tag = EXTERNAL_SYMBOL_TYPE; t100923.s0.value.external_symbol_type = q260; /* x182647 stalin.sc:25683:888584 */ t100925.s0.tag = EXTERNAL_SYMBOL_TYPE; t100925.s0.value.external_symbol_type = q153; /* x182648 stalin.sc:25683:888584 */ t100926.s0.tag = FLONUM_TYPE; t100926.s0.value.flonum_type = 1.0e1; /* x182649 stalin.sc:25683:888584 */ t100928.s0.tag = EXTERNAL_SYMBOL_TYPE; t100928.s0.value.external_symbol_type = q2; /* x182650 stalin.sc:25683:888584 */ t100929.s0.tag = EXTERNAL_SYMBOL_TYPE; t100929.s0.value.external_symbol_type = q337; /* x182651 stalin.sc:25683:888584 */ t100929.s1.tag = NULL_TYPE; /* x182652 stalin.sc:25683:888584 */ t100928.s1.tag = STRUCTURE_TYPE24753; t100928.s1.value.structure_type24753 = &t100929; /* x182653 stalin.sc:25683:888584 */ t100927.s0.tag = STRUCTURE_TYPE24753; t100927.s0.value.structure_type24753 = &t100928; /* x182654 stalin.sc:25683:888584 */ t100927.s1.tag = NULL_TYPE; /* x182655 stalin.sc:25683:888584 */ t100926.s1.tag = STRUCTURE_TYPE24753; t100926.s1.value.structure_type24753 = &t100927; /* x182656 stalin.sc:25683:888584 */ t100925.s1.tag = STRUCTURE_TYPE24753; t100925.s1.value.structure_type24753 = &t100926; /* x182657 stalin.sc:25683:888584 */ t100924.s0.tag = STRUCTURE_TYPE24753; t100924.s0.value.structure_type24753 = &t100925; /* x182658 stalin.sc:25683:888584 */ t100924.s1.tag = NULL_TYPE; /* x182659 stalin.sc:25683:888584 */ t100923.s1.tag = STRUCTURE_TYPE24753; t100923.s1.value.structure_type24753 = &t100924; /* x182660 stalin.sc:25683:888584 */ t100922.s1.tag = STRUCTURE_TYPE24753; t100922.s1.value.structure_type24753 = &t100923; /* x182661 stalin.sc:25683:888584 */ t100921.s0.tag = STRUCTURE_TYPE24753; t100921.s0.value.structure_type24753 = &t100922; /* x182662 stalin.sc:25683:888584 */ t100930.s0.tag = FALSE_TYPE; /* x182663 stalin.sc:25683:888584 */ t100930.s1.tag = NULL_TYPE; /* x182664 stalin.sc:25683:888584 */ t100921.s1.tag = STRUCTURE_TYPE24753; t100921.s1.value.structure_type24753 = &t100930; /* x182665 stalin.sc:25683:888584 */ t100920.s1.tag = STRUCTURE_TYPE24753; t100920.s1.value.structure_type24753 = &t100921; /* x182666 stalin.sc:25683:888584 */ t100919.s1.tag = STRUCTURE_TYPE24753; t100919.s1.value.structure_type24753 = &t100920; /* x182667 stalin.sc:25683:888584 */ t100918.s0.tag = STRUCTURE_TYPE24753; t100918.s0.value.structure_type24753 = &t100919; /* x182668 stalin.sc:25683:888584 */ t100918.s1.tag = NULL_TYPE; /* x182669 stalin.sc:25683:888584 */ t100905.s1.tag = STRUCTURE_TYPE24753; t100905.s1.value.structure_type24753 = &t100918; /* x182670 stalin.sc:25683:888584 */ t100904.s1.tag = STRUCTURE_TYPE24753; t100904.s1.value.structure_type24753 = &t100905; /* x182671 stalin.sc:25683:888584 */ t100903.s0.tag = STRUCTURE_TYPE24753; t100903.s0.value.structure_type24753 = &t100904; /* x182672 stalin.sc:25683:888584 */ t100931.s0.tag = FALSE_TYPE; /* x182673 stalin.sc:25683:888584 */ t100931.s1.tag = NULL_TYPE; /* x182674 stalin.sc:25683:888584 */ t100903.s1.tag = STRUCTURE_TYPE24753; t100903.s1.value.structure_type24753 = &t100931; /* x182675 stalin.sc:25683:888584 */ t100900.s1.tag = STRUCTURE_TYPE24753; t100900.s1.value.structure_type24753 = &t100903; /* x182676 stalin.sc:25683:888584 */ t100899.s1.tag = STRUCTURE_TYPE24753; t100899.s1.value.structure_type24753 = &t100900; /* x182677 stalin.sc:25683:888584 */ t100898.s0.tag = STRUCTURE_TYPE24753; t100898.s0.value.structure_type24753 = &t100899; /* x182678 stalin.sc:25683:888584 */ t100898.s1.tag = NULL_TYPE; /* x182679 stalin.sc:25683:888584 */ t100891.s1.tag = STRUCTURE_TYPE24753; t100891.s1.value.structure_type24753 = &t100898; /* x182680 stalin.sc:25683:888584 */ t100884.s1.tag = STRUCTURE_TYPE24753; t100884.s1.value.structure_type24753 = &t100891; /* x182681 stalin.sc:25683:888584 */ t100883.s1.tag = STRUCTURE_TYPE24753; t100883.s1.value.structure_type24753 = &t100884; /* x182682 stalin.sc:25683:888584 */ t100882.s0.tag = STRUCTURE_TYPE24753; t100882.s0.value.structure_type24753 = &t100883; /* x182683 stalin.sc:25683:888584 */ t100882.s1.tag = NULL_TYPE; /* x182684 stalin.sc:25683:888584 */ t100881.s1.tag = STRUCTURE_TYPE24753; t100881.s1.value.structure_type24753 = &t100882; /* x182685 stalin.sc:25683:888584 */ t100877.s1.tag = STRUCTURE_TYPE24753; t100877.s1.value.structure_type24753 = &t100881; /* x182686 stalin.sc:25683:888584 */ t100876.s1.tag = STRUCTURE_TYPE24753; t100876.s1.value.structure_type24753 = &t100877; /* x182687 stalin.sc:25683:888584 */ t100875.s0.tag = STRUCTURE_TYPE24753; t100875.s0.value.structure_type24753 = &t100876; /* x182688 stalin.sc:25683:888584 */ t100875.s1.tag = NULL_TYPE; /* x182689 stalin.sc:25683:888584 */ t100871.s1.tag = STRUCTURE_TYPE24753; t100871.s1.value.structure_type24753 = &t100875; /* x182690 stalin.sc:25683:888584 */ t100870.s0.tag = STRUCTURE_TYPE24753; t100870.s0.value.structure_type24753 = &t100871; /* x182691 stalin.sc:25683:888584 */ t100933.s0.tag = EXTERNAL_SYMBOL_TYPE; t100933.s0.value.external_symbol_type = q95; /* x182692 stalin.sc:25683:888584 */ t100934.s0.tag = FALSE_TYPE; /* x182693 stalin.sc:25683:888584 */ t100934.s1.tag = NULL_TYPE; /* x182694 stalin.sc:25683:888584 */ t100933.s1.tag = STRUCTURE_TYPE24753; t100933.s1.value.structure_type24753 = &t100934; /* x182695 stalin.sc:25683:888584 */ t100932.s0.tag = STRUCTURE_TYPE24753; t100932.s0.value.structure_type24753 = &t100933; /* x182696 stalin.sc:25683:888584 */ t100932.s1.tag = NULL_TYPE; /* x182697 stalin.sc:25683:888584 */ t100870.s1.tag = STRUCTURE_TYPE24753; t100870.s1.value.structure_type24753 = &t100932; /* x182698 stalin.sc:25683:888584 */ t100810.s1.tag = STRUCTURE_TYPE24753; t100810.s1.value.structure_type24753 = &t100870; /* x182699 stalin.sc:25683:888584 */ t100780.s1.tag = STRUCTURE_TYPE24753; t100780.s1.value.structure_type24753 = &t100810; /* x182700 stalin.sc:25683:888584 */ t100779.s1.tag = STRUCTURE_TYPE24753; t100779.s1.value.structure_type24753 = &t100780; /* x182701 stalin.sc:25683:888584 */ t100778.s0.tag = STRUCTURE_TYPE24753; t100778.s0.value.structure_type24753 = &t100779; /* x182702 stalin.sc:25683:888584 */ t100778.s1.tag = NULL_TYPE; /* x182703 stalin.sc:25683:888584 */ t100771.s1.tag = STRUCTURE_TYPE24753; t100771.s1.value.structure_type24753 = &t100778; /* x182704 stalin.sc:25683:888584 */ t100764.s1.tag = STRUCTURE_TYPE24753; t100764.s1.value.structure_type24753 = &t100771; /* x182705 stalin.sc:25683:888584 */ t100763.s1.tag = STRUCTURE_TYPE24753; t100763.s1.value.structure_type24753 = &t100764; /* x182706 stalin.sc:25683:888584 */ t100762.s0.tag = STRUCTURE_TYPE24753; t100762.s0.value.structure_type24753 = &t100763; /* x182707 stalin.sc:25683:888584 */ t100762.s1.tag = NULL_TYPE; /* x182708 stalin.sc:25683:888584 */ t100761.s1.tag = STRUCTURE_TYPE24753; t100761.s1.value.structure_type24753 = &t100762; /* x182709 stalin.sc:25683:888584 */ t100757.s1.tag = STRUCTURE_TYPE24753; t100757.s1.value.structure_type24753 = &t100761; /* x182710 stalin.sc:25683:888584 */ t100756.s1.tag = STRUCTURE_TYPE24753; t100756.s1.value.structure_type24753 = &t100757; /* x182711 stalin.sc:25683:888584 */ t100755.s0.tag = STRUCTURE_TYPE24753; t100755.s0.value.structure_type24753 = &t100756; /* x182712 stalin.sc:25683:888584 */ t100755.s1.tag = NULL_TYPE; /* x182713 stalin.sc:25683:888584 */ t100713.s1.tag = STRUCTURE_TYPE24753; t100713.s1.value.structure_type24753 = &t100755; /* x182714 stalin.sc:25683:888584 */ t100712.s0.tag = STRUCTURE_TYPE24753; t100712.s0.value.structure_type24753 = &t100713; /* x182715 stalin.sc:25683:888584 */ t100936.s0.tag = EXTERNAL_SYMBOL_TYPE; t100936.s0.value.external_symbol_type = q95; /* x182716 stalin.sc:25683:888584 */ t100937.s0.tag = FALSE_TYPE; /* x182717 stalin.sc:25683:888584 */ t100937.s1.tag = NULL_TYPE; /* x182718 stalin.sc:25683:888584 */ t100936.s1.tag = STRUCTURE_TYPE24753; t100936.s1.value.structure_type24753 = &t100937; /* x182719 stalin.sc:25683:888584 */ t100935.s0.tag = STRUCTURE_TYPE24753; t100935.s0.value.structure_type24753 = &t100936; /* x182720 stalin.sc:25683:888584 */ t100935.s1.tag = NULL_TYPE; /* x182721 stalin.sc:25683:888584 */ t100712.s1.tag = STRUCTURE_TYPE24753; t100712.s1.value.structure_type24753 = &t100935; /* x182722 stalin.sc:25683:888584 */ t100688.s1.tag = STRUCTURE_TYPE24753; t100688.s1.value.structure_type24753 = &t100712; /* x182723 stalin.sc:25683:888584 */ t100687.s1.tag = STRUCTURE_TYPE24753; t100687.s1.value.structure_type24753 = &t100688; /* x182724 stalin.sc:25683:888584 */ t100686.s0.tag = STRUCTURE_TYPE24753; t100686.s0.value.structure_type24753 = &t100687; /* x182725 stalin.sc:25683:888584 */ t100686.s1.tag = NULL_TYPE; /* x182726 stalin.sc:25683:888584 */ t100679.s1.tag = STRUCTURE_TYPE24753; t100679.s1.value.structure_type24753 = &t100686; /* x182727 stalin.sc:25683:888584 */ t100672.s1.tag = STRUCTURE_TYPE24753; t100672.s1.value.structure_type24753 = &t100679; /* x182728 stalin.sc:25683:888584 */ t100671.s1.tag = STRUCTURE_TYPE24753; t100671.s1.value.structure_type24753 = &t100672; /* x182729 stalin.sc:25683:888584 */ t100670.s0.tag = STRUCTURE_TYPE24753; t100670.s0.value.structure_type24753 = &t100671; /* x182730 stalin.sc:25683:888584 */ t100670.s1.tag = NULL_TYPE; /* x182731 stalin.sc:25683:888584 */ t100669.s1.tag = STRUCTURE_TYPE24753; t100669.s1.value.structure_type24753 = &t100670; /* x182732 stalin.sc:25683:888584 */ t100665.s1.tag = STRUCTURE_TYPE24753; t100665.s1.value.structure_type24753 = &t100669; /* x182733 stalin.sc:25683:888584 */ t100664.s1.tag = STRUCTURE_TYPE24753; t100664.s1.value.structure_type24753 = &t100665; /* x182734 stalin.sc:25683:888584 */ t100663.s0.tag = STRUCTURE_TYPE24753; t100663.s0.value.structure_type24753 = &t100664; /* x182735 stalin.sc:25683:888584 */ t100663.s1.tag = NULL_TYPE; /* x182736 stalin.sc:25683:888584 */ t100659.s1.tag = STRUCTURE_TYPE24753; t100659.s1.value.structure_type24753 = &t100663; /* x182737 stalin.sc:25683:888584 */ t100658.s1.tag = STRUCTURE_TYPE24753; t100658.s1.value.structure_type24753 = &t100659; /* x182738 stalin.sc:25683:888584 */ t100657.s0.tag = STRUCTURE_TYPE24753; t100657.s0.value.structure_type24753 = &t100658; /* x182739 stalin.sc:25683:888584 */ t100939.s0.tag = EXTERNAL_SYMBOL_TYPE; t100939.s0.value.external_symbol_type = q97; /* x182740 stalin.sc:25683:888584 */ t100941.s0.tag = EXTERNAL_SYMBOL_TYPE; t100941.s0.value.external_symbol_type = q338; /* x182741 stalin.sc:25683:888584 */ t100942.s0.tag = EXTERNAL_SYMBOL_TYPE; t100942.s0.value.external_symbol_type = q260; /* x182742 stalin.sc:25683:888584 */ t100942.s1.tag = NULL_TYPE; /* x182743 stalin.sc:25683:888584 */ t100941.s1.tag = STRUCTURE_TYPE24753; t100941.s1.value.structure_type24753 = &t100942; /* x182744 stalin.sc:25683:888584 */ t100940.s0.tag = STRUCTURE_TYPE24753; t100940.s0.value.structure_type24753 = &t100941; /* x182745 stalin.sc:25683:888584 */ t100944.s0.tag = EXTERNAL_SYMBOL_TYPE; t100944.s0.value.external_symbol_type = q43; /* x182746 stalin.sc:25683:888584 */ t100946.s0.tag = EXTERNAL_SYMBOL_TYPE; t100946.s0.value.external_symbol_type = q120; /* x182747 stalin.sc:25683:888584 */ t100947.s0.tag = EXTERNAL_SYMBOL_TYPE; t100947.s0.value.external_symbol_type = q308; /* x182748 stalin.sc:25683:888584 */ t100948.s0.tag = EXTERNAL_SYMBOL_TYPE; t100948.s0.value.external_symbol_type = q330; /* x182749 stalin.sc:25683:888584 */ t100948.s1.tag = NULL_TYPE; /* x182750 stalin.sc:25683:888584 */ t100947.s1.tag = STRUCTURE_TYPE24753; t100947.s1.value.structure_type24753 = &t100948; /* x182751 stalin.sc:25683:888584 */ t100946.s1.tag = STRUCTURE_TYPE24753; t100946.s1.value.structure_type24753 = &t100947; /* x182752 stalin.sc:25683:888584 */ t100945.s0.tag = STRUCTURE_TYPE24753; t100945.s0.value.structure_type24753 = &t100946; /* x182753 stalin.sc:25683:888584 */ t100949.s0.tag = EXTERNAL_SYMBOL_TYPE; t100949.s0.value.external_symbol_type = q260; /* x182754 stalin.sc:25683:888584 */ t100951.s0.tag = EXTERNAL_SYMBOL_TYPE; t100951.s0.value.external_symbol_type = q242; /* x182755 stalin.sc:25683:888584 */ t100954.s0.tag = EXTERNAL_SYMBOL_TYPE; t100954.s0.value.external_symbol_type = q273; /* x182756 stalin.sc:25683:888584 */ t100956.s0.tag = EXTERNAL_SYMBOL_TYPE; t100956.s0.value.external_symbol_type = q163; /* x182757 stalin.sc:25683:888584 */ t100957.s0.tag = EXTERNAL_SYMBOL_TYPE; t100957.s0.value.external_symbol_type = q161; /* x182758 stalin.sc:25683:888584 */ t100958.s0.tag = EXTERNAL_SYMBOL_TYPE; t100958.s0.value.external_symbol_type = q308; /* x182759 stalin.sc:25683:888584 */ t100958.s1.tag = NULL_TYPE; /* x182760 stalin.sc:25683:888584 */ t100957.s1.tag = STRUCTURE_TYPE24753; t100957.s1.value.structure_type24753 = &t100958; /* x182761 stalin.sc:25683:888584 */ t100956.s1.tag = STRUCTURE_TYPE24753; t100956.s1.value.structure_type24753 = &t100957; /* x182762 stalin.sc:25683:888584 */ t100955.s0.tag = STRUCTURE_TYPE24753; t100955.s0.value.structure_type24753 = &t100956; /* x182763 stalin.sc:25683:888584 */ t100955.s1.tag = NULL_TYPE; /* x182764 stalin.sc:25683:888584 */ t100954.s1.tag = STRUCTURE_TYPE24753; t100954.s1.value.structure_type24753 = &t100955; /* x182765 stalin.sc:25683:888584 */ t100953.s0.tag = STRUCTURE_TYPE24753; t100953.s0.value.structure_type24753 = &t100954; /* x182766 stalin.sc:25683:888584 */ t100953.s1.tag = NULL_TYPE; /* x182767 stalin.sc:25683:888584 */ t100952.s0.tag = STRUCTURE_TYPE24753; t100952.s0.value.structure_type24753 = &t100953; /* x182768 stalin.sc:25683:888584 */ t100960.s0.tag = EXTERNAL_SYMBOL_TYPE; t100960.s0.value.external_symbol_type = q42; /* x182769 stalin.sc:25683:888584 */ t100961.s0.tag = EXTERNAL_SYMBOL_TYPE; t100961.s0.value.external_symbol_type = q308; /* x182770 stalin.sc:25683:888584 */ t100963.s0.tag = EXTERNAL_SYMBOL_TYPE; t100963.s0.value.external_symbol_type = q4; /* x182771 stalin.sc:25683:888584 */ t100964.s0.tag = EXTERNAL_SYMBOL_TYPE; t100964.s0.value.external_symbol_type = q308; /* x182772 stalin.sc:25683:888584 */ t100965.s0.tag = FIXNUM_TYPE; t100965.s0.value.fixnum_type = 1; /* x182773 stalin.sc:25683:888584 */ t100965.s1.tag = NULL_TYPE; /* x182774 stalin.sc:25683:888584 */ t100964.s1.tag = STRUCTURE_TYPE24753; t100964.s1.value.structure_type24753 = &t100965; /* x182775 stalin.sc:25683:888584 */ t100963.s1.tag = STRUCTURE_TYPE24753; t100963.s1.value.structure_type24753 = &t100964; /* x182776 stalin.sc:25683:888584 */ t100962.s0.tag = STRUCTURE_TYPE24753; t100962.s0.value.structure_type24753 = &t100963; /* x182777 stalin.sc:25683:888584 */ t100962.s1.tag = NULL_TYPE; /* x182778 stalin.sc:25683:888584 */ t100961.s1.tag = STRUCTURE_TYPE24753; t100961.s1.value.structure_type24753 = &t100962; /* x182779 stalin.sc:25683:888584 */ t100960.s1.tag = STRUCTURE_TYPE24753; t100960.s1.value.structure_type24753 = &t100961; /* x182780 stalin.sc:25683:888584 */ t100959.s0.tag = STRUCTURE_TYPE24753; t100959.s0.value.structure_type24753 = &t100960; /* x182781 stalin.sc:25683:888584 */ t100967.s0.tag = EXTERNAL_SYMBOL_TYPE; t100967.s0.value.external_symbol_type = q240; /* x182782 stalin.sc:25683:888584 */ t100970.s0.tag = EXTERNAL_SYMBOL_TYPE; t100970.s0.value.external_symbol_type = q269; /* x182783 stalin.sc:25683:888584 */ t100971.s0.tag = EXTERNAL_SYMBOL_TYPE; t100971.s0.value.external_symbol_type = q273; /* x182784 stalin.sc:25683:888584 */ t100971.s1.tag = NULL_TYPE; /* x182785 stalin.sc:25683:888584 */ t100970.s1.tag = STRUCTURE_TYPE24753; t100970.s1.value.structure_type24753 = &t100971; /* x182786 stalin.sc:25683:888584 */ t100969.s0.tag = STRUCTURE_TYPE24753; t100969.s0.value.structure_type24753 = &t100970; /* x182787 stalin.sc:25683:888584 */ t100973.s0.tag = EXTERNAL_SYMBOL_TYPE; t100973.s0.value.external_symbol_type = q338; /* x182788 stalin.sc:25683:888584 */ t100975.s0.tag = EXTERNAL_SYMBOL_TYPE; t100975.s0.value.external_symbol_type = q4; /* x182789 stalin.sc:25683:888584 */ t100977.s0.tag = EXTERNAL_SYMBOL_TYPE; t100977.s0.value.external_symbol_type = q130; /* x182790 stalin.sc:25683:888584 */ t100978.s0.tag = FIXNUM_TYPE; t100978.s0.value.fixnum_type = 10; /* x182791 stalin.sc:25683:888584 */ t100979.s0.tag = EXTERNAL_SYMBOL_TYPE; t100979.s0.value.external_symbol_type = q260; /* x182792 stalin.sc:25683:888584 */ t100979.s1.tag = NULL_TYPE; /* x182793 stalin.sc:25683:888584 */ t100978.s1.tag = STRUCTURE_TYPE24753; t100978.s1.value.structure_type24753 = &t100979; /* x182794 stalin.sc:25683:888584 */ t100977.s1.tag = STRUCTURE_TYPE24753; t100977.s1.value.structure_type24753 = &t100978; /* x182795 stalin.sc:25683:888584 */ t100976.s0.tag = STRUCTURE_TYPE24753; t100976.s0.value.structure_type24753 = &t100977; /* x182796 stalin.sc:25683:888584 */ t100981.s0.tag = EXTERNAL_SYMBOL_TYPE; t100981.s0.value.external_symbol_type = q2; /* x182797 stalin.sc:25683:888584 */ t100983.s0.tag = EXTERNAL_SYMBOL_TYPE; t100983.s0.value.external_symbol_type = q157; /* x182798 stalin.sc:25683:888584 */ t100984.s0.tag = EXTERNAL_SYMBOL_TYPE; t100984.s0.value.external_symbol_type = q273; /* x182799 stalin.sc:25683:888584 */ t100984.s1.tag = NULL_TYPE; /* x182800 stalin.sc:25683:888584 */ t100983.s1.tag = STRUCTURE_TYPE24753; t100983.s1.value.structure_type24753 = &t100984; /* x182801 stalin.sc:25683:888584 */ t100982.s0.tag = STRUCTURE_TYPE24753; t100982.s0.value.structure_type24753 = &t100983; /* x182802 stalin.sc:25683:888584 */ t100986.s0.tag = EXTERNAL_SYMBOL_TYPE; t100986.s0.value.external_symbol_type = q157; /* x182803 stalin.sc:25683:888584 */ t100987.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x182804 stalin.sc:25683:888584 */ t100987.s1.tag = NULL_TYPE; /* x182805 stalin.sc:25683:888584 */ t100986.s1.tag = STRUCTURE_TYPE24753; t100986.s1.value.structure_type24753 = &t100987; /* x182806 stalin.sc:25683:888584 */ t100985.s0.tag = STRUCTURE_TYPE24753; t100985.s0.value.structure_type24753 = &t100986; /* x182807 stalin.sc:25683:888584 */ t100985.s1.tag = NULL_TYPE; /* x182808 stalin.sc:25683:888584 */ t100982.s1.tag = STRUCTURE_TYPE24753; t100982.s1.value.structure_type24753 = &t100985; /* x182809 stalin.sc:25683:888584 */ t100981.s1.tag = STRUCTURE_TYPE24753; t100981.s1.value.structure_type24753 = &t100982; /* x182810 stalin.sc:25683:888584 */ t100980.s0.tag = STRUCTURE_TYPE24753; t100980.s0.value.structure_type24753 = &t100981; /* x182811 stalin.sc:25683:888584 */ t100980.s1.tag = NULL_TYPE; /* x182812 stalin.sc:25683:888584 */ t100976.s1.tag = STRUCTURE_TYPE24753; t100976.s1.value.structure_type24753 = &t100980; /* x182813 stalin.sc:25683:888584 */ t100975.s1.tag = STRUCTURE_TYPE24753; t100975.s1.value.structure_type24753 = &t100976; /* x182814 stalin.sc:25683:888584 */ t100974.s0.tag = STRUCTURE_TYPE24753; t100974.s0.value.structure_type24753 = &t100975; /* x182815 stalin.sc:25683:888584 */ t100974.s1.tag = NULL_TYPE; /* x182816 stalin.sc:25683:888584 */ t100973.s1.tag = STRUCTURE_TYPE24753; t100973.s1.value.structure_type24753 = &t100974; /* x182817 stalin.sc:25683:888584 */ t100972.s0.tag = STRUCTURE_TYPE24753; t100972.s0.value.structure_type24753 = &t100973; /* x182818 stalin.sc:25683:888584 */ t100972.s1.tag = NULL_TYPE; /* x182819 stalin.sc:25683:888584 */ t100969.s1.tag = STRUCTURE_TYPE24753; t100969.s1.value.structure_type24753 = &t100972; /* x182820 stalin.sc:25683:888584 */ t100968.s0.tag = STRUCTURE_TYPE24753; t100968.s0.value.structure_type24753 = &t100969; /* x182821 stalin.sc:25683:888584 */ t100990.s0.tag = EXTERNAL_SYMBOL_TYPE; t100990.s0.value.external_symbol_type = q263; /* x182822 stalin.sc:25683:888584 */ t100991.s0.tag = EXTERNAL_SYMBOL_TYPE; t100991.s0.value.external_symbol_type = q273; /* x182823 stalin.sc:25683:888584 */ t100992.s0.tag = ((unsigned)((unsigned char)'.'))<<2; /* x182824 stalin.sc:25683:888584 */ t100992.s1.tag = NULL_TYPE; /* x182825 stalin.sc:25683:888584 */ t100991.s1.tag = STRUCTURE_TYPE24753; t100991.s1.value.structure_type24753 = &t100992; /* x182826 stalin.sc:25683:888584 */ t100990.s1.tag = STRUCTURE_TYPE24753; t100990.s1.value.structure_type24753 = &t100991; /* x182827 stalin.sc:25683:888584 */ t100989.s0.tag = STRUCTURE_TYPE24753; t100989.s0.value.structure_type24753 = &t100990; /* x182828 stalin.sc:25683:888584 */ t100994.s0.tag = EXTERNAL_SYMBOL_TYPE; t100994.s0.value.external_symbol_type = q336; /* x182829 stalin.sc:25683:888584 */ t100996.s0.tag = EXTERNAL_SYMBOL_TYPE; t100996.s0.value.external_symbol_type = q154; /* x182830 stalin.sc:25683:888584 */ t100997.s0.tag = EXTERNAL_SYMBOL_TYPE; t100997.s0.value.external_symbol_type = q260; /* x182831 stalin.sc:25683:888584 */ t100997.s1.tag = NULL_TYPE; /* x182832 stalin.sc:25683:888584 */ t100996.s1.tag = STRUCTURE_TYPE24753; t100996.s1.value.structure_type24753 = &t100997; /* x182833 stalin.sc:25683:888584 */ t100995.s0.tag = STRUCTURE_TYPE24753; t100995.s0.value.structure_type24753 = &t100996; /* x182834 stalin.sc:25683:888584 */ t100998.s0.tag = FLONUM_TYPE; t100998.s0.value.flonum_type = 1.0e1; /* x182835 stalin.sc:25683:888584 */ t100998.s1.tag = NULL_TYPE; /* x182836 stalin.sc:25683:888584 */ t100995.s1.tag = STRUCTURE_TYPE24753; t100995.s1.value.structure_type24753 = &t100998; /* x182837 stalin.sc:25683:888584 */ t100994.s1.tag = STRUCTURE_TYPE24753; t100994.s1.value.structure_type24753 = &t100995; /* x182838 stalin.sc:25683:888584 */ t100993.s0.tag = STRUCTURE_TYPE24753; t100993.s0.value.structure_type24753 = &t100994; /* x182839 stalin.sc:25683:888584 */ t100993.s1.tag = NULL_TYPE; /* x182840 stalin.sc:25683:888584 */ t100989.s1.tag = STRUCTURE_TYPE24753; t100989.s1.value.structure_type24753 = &t100993; /* x182841 stalin.sc:25683:888584 */ t100988.s0.tag = STRUCTURE_TYPE24753; t100988.s0.value.structure_type24753 = &t100989; /* x182842 stalin.sc:25683:888584 */ t101001.s0.tag = EXTERNAL_SYMBOL_TYPE; t101001.s0.value.external_symbol_type = q241; /* x182843 stalin.sc:25683:888584 */ t101003.s0.tag = EXTERNAL_SYMBOL_TYPE; t101003.s0.value.external_symbol_type = q263; /* x182844 stalin.sc:25683:888584 */ t101004.s0.tag = EXTERNAL_SYMBOL_TYPE; t101004.s0.value.external_symbol_type = q273; /* x182845 stalin.sc:25683:888584 */ t101005.s0.tag = ((unsigned)((unsigned char)'e'))<<2; /* x182846 stalin.sc:25683:888584 */ t101005.s1.tag = NULL_TYPE; /* x182847 stalin.sc:25683:888584 */ t101004.s1.tag = STRUCTURE_TYPE24753; t101004.s1.value.structure_type24753 = &t101005; /* x182848 stalin.sc:25683:888584 */ t101003.s1.tag = STRUCTURE_TYPE24753; t101003.s1.value.structure_type24753 = &t101004; /* x182849 stalin.sc:25683:888584 */ t101002.s0.tag = STRUCTURE_TYPE24753; t101002.s0.value.structure_type24753 = &t101003; /* x182850 stalin.sc:25683:888584 */ t101007.s0.tag = EXTERNAL_SYMBOL_TYPE; t101007.s0.value.external_symbol_type = q263; /* x182851 stalin.sc:25683:888584 */ t101008.s0.tag = EXTERNAL_SYMBOL_TYPE; t101008.s0.value.external_symbol_type = q273; /* x182852 stalin.sc:25683:888584 */ t101009.s0.tag = ((unsigned)((unsigned char)'E'))<<2; /* x182853 stalin.sc:25683:888584 */ t101009.s1.tag = NULL_TYPE; /* x182854 stalin.sc:25683:888584 */ t101008.s1.tag = STRUCTURE_TYPE24753; t101008.s1.value.structure_type24753 = &t101009; /* x182855 stalin.sc:25683:888584 */ t101007.s1.tag = STRUCTURE_TYPE24753; t101007.s1.value.structure_type24753 = &t101008; /* x182856 stalin.sc:25683:888584 */ t101006.s0.tag = STRUCTURE_TYPE24753; t101006.s0.value.structure_type24753 = &t101007; /* x182857 stalin.sc:25683:888584 */ t101011.s0.tag = EXTERNAL_SYMBOL_TYPE; t101011.s0.value.external_symbol_type = q263; /* x182858 stalin.sc:25683:888584 */ t101012.s0.tag = EXTERNAL_SYMBOL_TYPE; t101012.s0.value.external_symbol_type = q273; /* x182859 stalin.sc:25683:888584 */ t101013.s0.tag = ((unsigned)((unsigned char)'s'))<<2; /* x182860 stalin.sc:25683:888584 */ t101013.s1.tag = NULL_TYPE; /* x182861 stalin.sc:25683:888584 */ t101012.s1.tag = STRUCTURE_TYPE24753; t101012.s1.value.structure_type24753 = &t101013; /* x182862 stalin.sc:25683:888584 */ t101011.s1.tag = STRUCTURE_TYPE24753; t101011.s1.value.structure_type24753 = &t101012; /* x182863 stalin.sc:25683:888584 */ t101010.s0.tag = STRUCTURE_TYPE24753; t101010.s0.value.structure_type24753 = &t101011; /* x182864 stalin.sc:25683:888584 */ t101015.s0.tag = EXTERNAL_SYMBOL_TYPE; t101015.s0.value.external_symbol_type = q263; /* x182865 stalin.sc:25683:888584 */ t101016.s0.tag = EXTERNAL_SYMBOL_TYPE; t101016.s0.value.external_symbol_type = q273; /* x182866 stalin.sc:25683:888584 */ t101017.s0.tag = ((unsigned)((unsigned char)'S'))<<2; /* x182867 stalin.sc:25683:888584 */ t101017.s1.tag = NULL_TYPE; /* x182868 stalin.sc:25683:888584 */ t101016.s1.tag = STRUCTURE_TYPE24753; t101016.s1.value.structure_type24753 = &t101017; /* x182869 stalin.sc:25683:888584 */ t101015.s1.tag = STRUCTURE_TYPE24753; t101015.s1.value.structure_type24753 = &t101016; /* x182870 stalin.sc:25683:888584 */ t101014.s0.tag = STRUCTURE_TYPE24753; t101014.s0.value.structure_type24753 = &t101015; /* x182871 stalin.sc:25683:888584 */ t101019.s0.tag = EXTERNAL_SYMBOL_TYPE; t101019.s0.value.external_symbol_type = q263; /* x182872 stalin.sc:25683:888584 */ t101020.s0.tag = EXTERNAL_SYMBOL_TYPE; t101020.s0.value.external_symbol_type = q273; /* x182873 stalin.sc:25683:888584 */ t101021.s0.tag = ((unsigned)((unsigned char)'f'))<<2; /* x182874 stalin.sc:25683:888584 */ t101021.s1.tag = NULL_TYPE; /* x182875 stalin.sc:25683:888584 */ t101020.s1.tag = STRUCTURE_TYPE24753; t101020.s1.value.structure_type24753 = &t101021; /* x182876 stalin.sc:25683:888584 */ t101019.s1.tag = STRUCTURE_TYPE24753; t101019.s1.value.structure_type24753 = &t101020; /* x182877 stalin.sc:25683:888584 */ t101018.s0.tag = STRUCTURE_TYPE24753; t101018.s0.value.structure_type24753 = &t101019; /* x182878 stalin.sc:25683:888584 */ t101023.s0.tag = EXTERNAL_SYMBOL_TYPE; t101023.s0.value.external_symbol_type = q263; /* x182879 stalin.sc:25683:888584 */ t101024.s0.tag = EXTERNAL_SYMBOL_TYPE; t101024.s0.value.external_symbol_type = q273; /* x182880 stalin.sc:25683:888584 */ t101025.s0.tag = ((unsigned)((unsigned char)'F'))<<2; /* x182881 stalin.sc:25683:888584 */ t101025.s1.tag = NULL_TYPE; /* x182882 stalin.sc:25683:888584 */ t101024.s1.tag = STRUCTURE_TYPE24753; t101024.s1.value.structure_type24753 = &t101025; /* x182883 stalin.sc:25683:888584 */ t101023.s1.tag = STRUCTURE_TYPE24753; t101023.s1.value.structure_type24753 = &t101024; /* x182884 stalin.sc:25683:888584 */ t101022.s0.tag = STRUCTURE_TYPE24753; t101022.s0.value.structure_type24753 = &t101023; /* x182885 stalin.sc:25683:888584 */ t101027.s0.tag = EXTERNAL_SYMBOL_TYPE; t101027.s0.value.external_symbol_type = q263; /* x182886 stalin.sc:25683:888584 */ t101028.s0.tag = EXTERNAL_SYMBOL_TYPE; t101028.s0.value.external_symbol_type = q273; /* x182887 stalin.sc:25683:888584 */ t101029.s0.tag = ((unsigned)((unsigned char)'d'))<<2; /* x182888 stalin.sc:25683:888584 */ t101029.s1.tag = NULL_TYPE; /* x182889 stalin.sc:25683:888584 */ t101028.s1.tag = STRUCTURE_TYPE24753; t101028.s1.value.structure_type24753 = &t101029; /* x182890 stalin.sc:25683:888584 */ t101027.s1.tag = STRUCTURE_TYPE24753; t101027.s1.value.structure_type24753 = &t101028; /* x182891 stalin.sc:25683:888584 */ t101026.s0.tag = STRUCTURE_TYPE24753; t101026.s0.value.structure_type24753 = &t101027; /* x182892 stalin.sc:25683:888584 */ t101031.s0.tag = EXTERNAL_SYMBOL_TYPE; t101031.s0.value.external_symbol_type = q263; /* x182893 stalin.sc:25683:888584 */ t101032.s0.tag = EXTERNAL_SYMBOL_TYPE; t101032.s0.value.external_symbol_type = q273; /* x182894 stalin.sc:25683:888584 */ t101033.s0.tag = ((unsigned)((unsigned char)'D'))<<2; /* x182895 stalin.sc:25683:888584 */ t101033.s1.tag = NULL_TYPE; /* x182896 stalin.sc:25683:888584 */ t101032.s1.tag = STRUCTURE_TYPE24753; t101032.s1.value.structure_type24753 = &t101033; /* x182897 stalin.sc:25683:888584 */ t101031.s1.tag = STRUCTURE_TYPE24753; t101031.s1.value.structure_type24753 = &t101032; /* x182898 stalin.sc:25683:888584 */ t101030.s0.tag = STRUCTURE_TYPE24753; t101030.s0.value.structure_type24753 = &t101031; /* x182899 stalin.sc:25683:888584 */ t101035.s0.tag = EXTERNAL_SYMBOL_TYPE; t101035.s0.value.external_symbol_type = q263; /* x182900 stalin.sc:25683:888584 */ t101036.s0.tag = EXTERNAL_SYMBOL_TYPE; t101036.s0.value.external_symbol_type = q273; /* x182901 stalin.sc:25683:888584 */ t101037.s0.tag = ((unsigned)((unsigned char)'l'))<<2; /* x182902 stalin.sc:25683:888584 */ t101037.s1.tag = NULL_TYPE; /* x182903 stalin.sc:25683:888584 */ t101036.s1.tag = STRUCTURE_TYPE24753; t101036.s1.value.structure_type24753 = &t101037; /* x182904 stalin.sc:25683:888584 */ t101035.s1.tag = STRUCTURE_TYPE24753; t101035.s1.value.structure_type24753 = &t101036; /* x182905 stalin.sc:25683:888584 */ t101034.s0.tag = STRUCTURE_TYPE24753; t101034.s0.value.structure_type24753 = &t101035; /* x182906 stalin.sc:25683:888584 */ t101039.s0.tag = EXTERNAL_SYMBOL_TYPE; t101039.s0.value.external_symbol_type = q263; /* x182907 stalin.sc:25683:888584 */ t101040.s0.tag = EXTERNAL_SYMBOL_TYPE; t101040.s0.value.external_symbol_type = q273; /* x182908 stalin.sc:25683:888584 */ t101041.s0.tag = ((unsigned)((unsigned char)'L'))<<2; /* x182909 stalin.sc:25683:888584 */ t101041.s1.tag = NULL_TYPE; /* x182910 stalin.sc:25683:888584 */ t101040.s1.tag = STRUCTURE_TYPE24753; t101040.s1.value.structure_type24753 = &t101041; /* x182911 stalin.sc:25683:888584 */ t101039.s1.tag = STRUCTURE_TYPE24753; t101039.s1.value.structure_type24753 = &t101040; /* x182912 stalin.sc:25683:888584 */ t101038.s0.tag = STRUCTURE_TYPE24753; t101038.s0.value.structure_type24753 = &t101039; /* x182913 stalin.sc:25683:888584 */ t101038.s1.tag = NULL_TYPE; /* x182914 stalin.sc:25683:888584 */ t101034.s1.tag = STRUCTURE_TYPE24753; t101034.s1.value.structure_type24753 = &t101038; /* x182915 stalin.sc:25683:888584 */ t101030.s1.tag = STRUCTURE_TYPE24753;} void initialize_constants37(void) {t101030.s1.value.structure_type24753 = &t101034; /* x182916 stalin.sc:25683:888584 */ t101026.s1.tag = STRUCTURE_TYPE24753; t101026.s1.value.structure_type24753 = &t101030; /* x182917 stalin.sc:25683:888584 */ t101022.s1.tag = STRUCTURE_TYPE24753; t101022.s1.value.structure_type24753 = &t101026; /* x182918 stalin.sc:25683:888584 */ t101018.s1.tag = STRUCTURE_TYPE24753; t101018.s1.value.structure_type24753 = &t101022; /* x182919 stalin.sc:25683:888584 */ t101014.s1.tag = STRUCTURE_TYPE24753; t101014.s1.value.structure_type24753 = &t101018; /* x182920 stalin.sc:25683:888584 */ t101010.s1.tag = STRUCTURE_TYPE24753; t101010.s1.value.structure_type24753 = &t101014; /* x182921 stalin.sc:25683:888584 */ t101006.s1.tag = STRUCTURE_TYPE24753; t101006.s1.value.structure_type24753 = &t101010; /* x182922 stalin.sc:25683:888584 */ t101002.s1.tag = STRUCTURE_TYPE24753; t101002.s1.value.structure_type24753 = &t101006; /* x182923 stalin.sc:25683:888584 */ t101001.s1.tag = STRUCTURE_TYPE24753; t101001.s1.value.structure_type24753 = &t101002; /* x182924 stalin.sc:25683:888584 */ t101000.s0.tag = STRUCTURE_TYPE24753; t101000.s0.value.structure_type24753 = &t101001; /* x182925 stalin.sc:25683:888584 */ t101043.s0.tag = EXTERNAL_SYMBOL_TYPE; t101043.s0.value.external_symbol_type = q43; /* x182926 stalin.sc:25683:888584 */ t101045.s0.tag = EXTERNAL_SYMBOL_TYPE; t101045.s0.value.external_symbol_type = q120; /* x182927 stalin.sc:25683:888584 */ t101046.s0.tag = EXTERNAL_SYMBOL_TYPE; t101046.s0.value.external_symbol_type = q308; /* x182928 stalin.sc:25683:888584 */ t101047.s0.tag = EXTERNAL_SYMBOL_TYPE; t101047.s0.value.external_symbol_type = q330; /* x182929 stalin.sc:25683:888584 */ t101047.s1.tag = NULL_TYPE; /* x182930 stalin.sc:25683:888584 */ t101046.s1.tag = STRUCTURE_TYPE24753; t101046.s1.value.structure_type24753 = &t101047; /* x182931 stalin.sc:25683:888584 */ t101045.s1.tag = STRUCTURE_TYPE24753; t101045.s1.value.structure_type24753 = &t101046; /* x182932 stalin.sc:25683:888584 */ t101044.s0.tag = STRUCTURE_TYPE24753; t101044.s0.value.structure_type24753 = &t101045; /* x182933 stalin.sc:25683:888584 */ t101048.s0.tag = FALSE_TYPE; /* x182934 stalin.sc:25683:888584 */ t101050.s0.tag = EXTERNAL_SYMBOL_TYPE; t101050.s0.value.external_symbol_type = q242; /* x182935 stalin.sc:25683:888584 */ t101053.s0.tag = EXTERNAL_SYMBOL_TYPE; t101053.s0.value.external_symbol_type = q274; /* x182936 stalin.sc:25683:888584 */ t101055.s0.tag = EXTERNAL_SYMBOL_TYPE; t101055.s0.value.external_symbol_type = q163; /* x182937 stalin.sc:25683:888584 */ t101056.s0.tag = EXTERNAL_SYMBOL_TYPE; t101056.s0.value.external_symbol_type = q161; /* x182938 stalin.sc:25683:888584 */ t101057.s0.tag = EXTERNAL_SYMBOL_TYPE; t101057.s0.value.external_symbol_type = q308; /* x182939 stalin.sc:25683:888584 */ t101057.s1.tag = NULL_TYPE; /* x182940 stalin.sc:25683:888584 */ t101056.s1.tag = STRUCTURE_TYPE24753; t101056.s1.value.structure_type24753 = &t101057; /* x182941 stalin.sc:25683:888584 */ t101055.s1.tag = STRUCTURE_TYPE24753; t101055.s1.value.structure_type24753 = &t101056; /* x182942 stalin.sc:25683:888584 */ t101054.s0.tag = STRUCTURE_TYPE24753; t101054.s0.value.structure_type24753 = &t101055; /* x182943 stalin.sc:25683:888584 */ t101054.s1.tag = NULL_TYPE; /* x182944 stalin.sc:25683:888584 */ t101053.s1.tag = STRUCTURE_TYPE24753; t101053.s1.value.structure_type24753 = &t101054; /* x182945 stalin.sc:25683:888584 */ t101052.s0.tag = STRUCTURE_TYPE24753; t101052.s0.value.structure_type24753 = &t101053; /* x182946 stalin.sc:25683:888584 */ t101052.s1.tag = NULL_TYPE; /* x182947 stalin.sc:25683:888584 */ t101051.s0.tag = STRUCTURE_TYPE24753; t101051.s0.value.structure_type24753 = &t101052; /* x182948 stalin.sc:25683:888584 */ t101059.s0.tag = EXTERNAL_SYMBOL_TYPE; t101059.s0.value.external_symbol_type = q42; /* x182949 stalin.sc:25683:888584 */ t101060.s0.tag = EXTERNAL_SYMBOL_TYPE; t101060.s0.value.external_symbol_type = q308; /* x182950 stalin.sc:25683:888584 */ t101062.s0.tag = EXTERNAL_SYMBOL_TYPE; t101062.s0.value.external_symbol_type = q4; /* x182951 stalin.sc:25683:888584 */ t101063.s0.tag = EXTERNAL_SYMBOL_TYPE; t101063.s0.value.external_symbol_type = q308; /* x182952 stalin.sc:25683:888584 */ t101064.s0.tag = FIXNUM_TYPE; t101064.s0.value.fixnum_type = 1; /* x182953 stalin.sc:25683:888584 */ t101064.s1.tag = NULL_TYPE; /* x182954 stalin.sc:25683:888584 */ t101063.s1.tag = STRUCTURE_TYPE24753; t101063.s1.value.structure_type24753 = &t101064; /* x182955 stalin.sc:25683:888584 */ t101062.s1.tag = STRUCTURE_TYPE24753; t101062.s1.value.structure_type24753 = &t101063; /* x182956 stalin.sc:25683:888584 */ t101061.s0.tag = STRUCTURE_TYPE24753; t101061.s0.value.structure_type24753 = &t101062; /* x182957 stalin.sc:25683:888584 */ t101061.s1.tag = NULL_TYPE; /* x182958 stalin.sc:25683:888584 */ t101060.s1.tag = STRUCTURE_TYPE24753; t101060.s1.value.structure_type24753 = &t101061; /* x182959 stalin.sc:25683:888584 */ t101059.s1.tag = STRUCTURE_TYPE24753; t101059.s1.value.structure_type24753 = &t101060; /* x182960 stalin.sc:25683:888584 */ t101058.s0.tag = STRUCTURE_TYPE24753; t101058.s0.value.structure_type24753 = &t101059; /* x182961 stalin.sc:25683:888584 */ t101066.s0.tag = EXTERNAL_SYMBOL_TYPE; t101066.s0.value.external_symbol_type = q240; /* x182962 stalin.sc:25683:888584 */ t101069.s0.tag = EXTERNAL_SYMBOL_TYPE; t101069.s0.value.external_symbol_type = q269; /* x182963 stalin.sc:25683:888584 */ t101070.s0.tag = EXTERNAL_SYMBOL_TYPE; t101070.s0.value.external_symbol_type = q274; /* x182964 stalin.sc:25683:888584 */ t101070.s1.tag = NULL_TYPE; /* x182965 stalin.sc:25683:888584 */ t101069.s1.tag = STRUCTURE_TYPE24753; t101069.s1.value.structure_type24753 = &t101070; /* x182966 stalin.sc:25683:888584 */ t101068.s0.tag = STRUCTURE_TYPE24753; t101068.s0.value.structure_type24753 = &t101069; /* x182967 stalin.sc:25683:888584 */ t101072.s0.tag = EXTERNAL_SYMBOL_TYPE; t101072.s0.value.external_symbol_type = q242; /* x182968 stalin.sc:25683:888584 */ t101075.s0.tag = EXTERNAL_SYMBOL_TYPE; t101075.s0.value.external_symbol_type = q337; /* x182969 stalin.sc:25683:888584 */ t101077.s0.tag = EXTERNAL_SYMBOL_TYPE; t101077.s0.value.external_symbol_type = q334; /* x182970 stalin.sc:25683:888584 */ t101079.s0.tag = EXTERNAL_SYMBOL_TYPE; t101079.s0.value.external_symbol_type = q2; /* x182971 stalin.sc:25683:888584 */ t101081.s0.tag = EXTERNAL_SYMBOL_TYPE; t101081.s0.value.external_symbol_type = q157; /* x182972 stalin.sc:25683:888584 */ t101082.s0.tag = EXTERNAL_SYMBOL_TYPE; t101082.s0.value.external_symbol_type = q274; /* x182973 stalin.sc:25683:888584 */ t101082.s1.tag = NULL_TYPE; /* x182974 stalin.sc:25683:888584 */ t101081.s1.tag = STRUCTURE_TYPE24753; t101081.s1.value.structure_type24753 = &t101082; /* x182975 stalin.sc:25683:888584 */ t101080.s0.tag = STRUCTURE_TYPE24753; t101080.s0.value.structure_type24753 = &t101081; /* x182976 stalin.sc:25683:888584 */ t101084.s0.tag = EXTERNAL_SYMBOL_TYPE; t101084.s0.value.external_symbol_type = q157; /* x182977 stalin.sc:25683:888584 */ t101085.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x182978 stalin.sc:25683:888584 */ t101085.s1.tag = NULL_TYPE; /* x182979 stalin.sc:25683:888584 */ t101084.s1.tag = STRUCTURE_TYPE24753; t101084.s1.value.structure_type24753 = &t101085; /* x182980 stalin.sc:25683:888584 */ t101083.s0.tag = STRUCTURE_TYPE24753; t101083.s0.value.structure_type24753 = &t101084; /* x182981 stalin.sc:25683:888584 */ t101083.s1.tag = NULL_TYPE; /* x182982 stalin.sc:25683:888584 */ t101080.s1.tag = STRUCTURE_TYPE24753; t101080.s1.value.structure_type24753 = &t101083; /* x182983 stalin.sc:25683:888584 */ t101079.s1.tag = STRUCTURE_TYPE24753; t101079.s1.value.structure_type24753 = &t101080; /* x182984 stalin.sc:25683:888584 */ t101078.s0.tag = STRUCTURE_TYPE24753; t101078.s0.value.structure_type24753 = &t101079; /* x182985 stalin.sc:25683:888584 */ t101078.s1.tag = NULL_TYPE; /* x182986 stalin.sc:25683:888584 */ t101077.s1.tag = STRUCTURE_TYPE24753; t101077.s1.value.structure_type24753 = &t101078; /* x182987 stalin.sc:25683:888584 */ t101076.s0.tag = STRUCTURE_TYPE24753; t101076.s0.value.structure_type24753 = &t101077; /* x182988 stalin.sc:25683:888584 */ t101076.s1.tag = NULL_TYPE; /* x182989 stalin.sc:25683:888584 */ t101075.s1.tag = STRUCTURE_TYPE24753; t101075.s1.value.structure_type24753 = &t101076; /* x182990 stalin.sc:25683:888584 */ t101074.s0.tag = STRUCTURE_TYPE24753; t101074.s0.value.structure_type24753 = &t101075; /* x182991 stalin.sc:25683:888584 */ t101074.s1.tag = NULL_TYPE; /* x182992 stalin.sc:25683:888584 */ t101073.s0.tag = STRUCTURE_TYPE24753; t101073.s0.value.structure_type24753 = &t101074; /* x182993 stalin.sc:25683:888584 */ t101087.s0.tag = EXTERNAL_SYMBOL_TYPE; t101087.s0.value.external_symbol_type = q43; /* x182994 stalin.sc:25683:888584 */ t101088.s0.tag = EXTERNAL_SYMBOL_TYPE; t101088.s0.value.external_symbol_type = q337; /* x182995 stalin.sc:25683:888584 */ t101090.s0.tag = EXTERNAL_SYMBOL_TYPE; t101090.s0.value.external_symbol_type = q130; /* x182996 stalin.sc:25683:888584 */ t101092.s0.tag = EXTERNAL_SYMBOL_TYPE; t101092.s0.value.external_symbol_type = q154; /* x182997 stalin.sc:25683:888584 */ t101093.s0.tag = EXTERNAL_SYMBOL_TYPE; t101093.s0.value.external_symbol_type = q260; /* x182998 stalin.sc:25683:888584 */ t101093.s1.tag = NULL_TYPE; /* x182999 stalin.sc:25683:888584 */ t101092.s1.tag = STRUCTURE_TYPE24753; t101092.s1.value.structure_type24753 = &t101093; /* x183000 stalin.sc:25683:888584 */ t101091.s0.tag = STRUCTURE_TYPE24753; t101091.s0.value.structure_type24753 = &t101092; /* x183001 stalin.sc:25683:888584 */ t101095.s0.tag = EXTERNAL_SYMBOL_TYPE; t101095.s0.value.external_symbol_type = q153; /* x183002 stalin.sc:25683:888584 */ t101096.s0.tag = FLONUM_TYPE; t101096.s0.value.flonum_type = 1.0e1; /* x183003 stalin.sc:25683:888584 */ t101097.s0.tag = EXTERNAL_SYMBOL_TYPE; t101097.s0.value.external_symbol_type = q337; /* x183004 stalin.sc:25683:888584 */ t101097.s1.tag = NULL_TYPE; /* x183005 stalin.sc:25683:888584 */ t101096.s1.tag = STRUCTURE_TYPE24753; t101096.s1.value.structure_type24753 = &t101097; /* x183006 stalin.sc:25683:888584 */ t101095.s1.tag = STRUCTURE_TYPE24753; t101095.s1.value.structure_type24753 = &t101096; /* x183007 stalin.sc:25683:888584 */ t101094.s0.tag = STRUCTURE_TYPE24753; t101094.s0.value.structure_type24753 = &t101095; /* x183008 stalin.sc:25683:888584 */ t101094.s1.tag = NULL_TYPE; /* x183009 stalin.sc:25683:888584 */ t101091.s1.tag = STRUCTURE_TYPE24753; t101091.s1.value.structure_type24753 = &t101094; /* x183010 stalin.sc:25683:888584 */ t101090.s1.tag = STRUCTURE_TYPE24753; t101090.s1.value.structure_type24753 = &t101091; /* x183011 stalin.sc:25683:888584 */ t101089.s0.tag = STRUCTURE_TYPE24753; t101089.s0.value.structure_type24753 = &t101090; /* x183012 stalin.sc:25683:888584 */ t101089.s1.tag = NULL_TYPE; /* x183013 stalin.sc:25683:888584 */ t101088.s1.tag = STRUCTURE_TYPE24753; t101088.s1.value.structure_type24753 = &t101089; /* x183014 stalin.sc:25683:888584 */ t101087.s1.tag = STRUCTURE_TYPE24753; t101087.s1.value.structure_type24753 = &t101088; /* x183015 stalin.sc:25683:888584 */ t101086.s0.tag = STRUCTURE_TYPE24753; t101086.s0.value.structure_type24753 = &t101087; /* x183016 stalin.sc:25683:888584 */ t101086.s1.tag = NULL_TYPE; /* x183017 stalin.sc:25683:888584 */ t101073.s1.tag = STRUCTURE_TYPE24753; t101073.s1.value.structure_type24753 = &t101086; /* x183018 stalin.sc:25683:888584 */ t101072.s1.tag = STRUCTURE_TYPE24753; t101072.s1.value.structure_type24753 = &t101073; /* x183019 stalin.sc:25683:888584 */ t101071.s0.tag = STRUCTURE_TYPE24753; t101071.s0.value.structure_type24753 = &t101072; /* x183020 stalin.sc:25683:888584 */ t101071.s1.tag = NULL_TYPE; /* x183021 stalin.sc:25683:888584 */ t101068.s1.tag = STRUCTURE_TYPE24753; t101068.s1.value.structure_type24753 = &t101071; /* x183022 stalin.sc:25683:888584 */ t101067.s0.tag = STRUCTURE_TYPE24753; t101067.s0.value.structure_type24753 = &t101068; /* x183023 stalin.sc:25683:888584 */ t101100.s0.tag = EXTERNAL_SYMBOL_TYPE; t101100.s0.value.external_symbol_type = q263; /* x183024 stalin.sc:25683:888584 */ t101101.s0.tag = EXTERNAL_SYMBOL_TYPE; t101101.s0.value.external_symbol_type = q274; /* x183025 stalin.sc:25683:888584 */ t101102.s0.tag = ((unsigned)((unsigned char)'+'))<<2; /* x183026 stalin.sc:25683:888584 */ t101102.s1.tag = NULL_TYPE; /* x183027 stalin.sc:25683:888584 */ t101101.s1.tag = STRUCTURE_TYPE24753; t101101.s1.value.structure_type24753 = &t101102; /* x183028 stalin.sc:25683:888584 */ t101100.s1.tag = STRUCTURE_TYPE24753; t101100.s1.value.structure_type24753 = &t101101; /* x183029 stalin.sc:25683:888584 */ t101099.s0.tag = STRUCTURE_TYPE24753; t101099.s0.value.structure_type24753 = &t101100; /* x183030 stalin.sc:25683:888584 */ t101104.s0.tag = EXTERNAL_SYMBOL_TYPE; t101104.s0.value.external_symbol_type = q43; /* x183031 stalin.sc:25683:888584 */ t101106.s0.tag = EXTERNAL_SYMBOL_TYPE; t101106.s0.value.external_symbol_type = q120; /* x183032 stalin.sc:25683:888584 */ t101107.s0.tag = EXTERNAL_SYMBOL_TYPE; t101107.s0.value.external_symbol_type = q308; /* x183033 stalin.sc:25683:888584 */ t101108.s0.tag = EXTERNAL_SYMBOL_TYPE; t101108.s0.value.external_symbol_type = q330; /* x183034 stalin.sc:25683:888584 */ t101108.s1.tag = NULL_TYPE; /* x183035 stalin.sc:25683:888584 */ t101107.s1.tag = STRUCTURE_TYPE24753; t101107.s1.value.structure_type24753 = &t101108; /* x183036 stalin.sc:25683:888584 */ t101106.s1.tag = STRUCTURE_TYPE24753; t101106.s1.value.structure_type24753 = &t101107; /* x183037 stalin.sc:25683:888584 */ t101105.s0.tag = STRUCTURE_TYPE24753; t101105.s0.value.structure_type24753 = &t101106; /* x183038 stalin.sc:25683:888584 */ t101109.s0.tag = FALSE_TYPE; /* x183039 stalin.sc:25683:888584 */ t101111.s0.tag = EXTERNAL_SYMBOL_TYPE; t101111.s0.value.external_symbol_type = q242; /* x183040 stalin.sc:25683:888584 */ t101114.s0.tag = EXTERNAL_SYMBOL_TYPE; t101114.s0.value.external_symbol_type = q275; /* x183041 stalin.sc:25683:888584 */ t101116.s0.tag = EXTERNAL_SYMBOL_TYPE; t101116.s0.value.external_symbol_type = q163; /* x183042 stalin.sc:25683:888584 */ t101117.s0.tag = EXTERNAL_SYMBOL_TYPE; t101117.s0.value.external_symbol_type = q161; /* x183043 stalin.sc:25683:888584 */ t101118.s0.tag = EXTERNAL_SYMBOL_TYPE; t101118.s0.value.external_symbol_type = q308; /* x183044 stalin.sc:25683:888584 */ t101118.s1.tag = NULL_TYPE; /* x183045 stalin.sc:25683:888584 */ t101117.s1.tag = STRUCTURE_TYPE24753; t101117.s1.value.structure_type24753 = &t101118; /* x183046 stalin.sc:25683:888584 */ t101116.s1.tag = STRUCTURE_TYPE24753; t101116.s1.value.structure_type24753 = &t101117; /* x183047 stalin.sc:25683:888584 */ t101115.s0.tag = STRUCTURE_TYPE24753; t101115.s0.value.structure_type24753 = &t101116; /* x183048 stalin.sc:25683:888584 */ t101115.s1.tag = NULL_TYPE; /* x183049 stalin.sc:25683:888584 */ t101114.s1.tag = STRUCTURE_TYPE24753; t101114.s1.value.structure_type24753 = &t101115; /* x183050 stalin.sc:25683:888584 */ t101113.s0.tag = STRUCTURE_TYPE24753; t101113.s0.value.structure_type24753 = &t101114; /* x183051 stalin.sc:25683:888584 */ t101113.s1.tag = NULL_TYPE; /* x183052 stalin.sc:25683:888584 */ t101112.s0.tag = STRUCTURE_TYPE24753; t101112.s0.value.structure_type24753 = &t101113; /* x183053 stalin.sc:25683:888584 */ t101120.s0.tag = EXTERNAL_SYMBOL_TYPE; t101120.s0.value.external_symbol_type = q42; /* x183054 stalin.sc:25683:888584 */ t101121.s0.tag = EXTERNAL_SYMBOL_TYPE; t101121.s0.value.external_symbol_type = q308; /* x183055 stalin.sc:25683:888584 */ t101123.s0.tag = EXTERNAL_SYMBOL_TYPE; t101123.s0.value.external_symbol_type = q4; /* x183056 stalin.sc:25683:888584 */ t101124.s0.tag = EXTERNAL_SYMBOL_TYPE; t101124.s0.value.external_symbol_type = q308; /* x183057 stalin.sc:25683:888584 */ t101125.s0.tag = FIXNUM_TYPE; t101125.s0.value.fixnum_type = 1; /* x183058 stalin.sc:25683:888584 */ t101125.s1.tag = NULL_TYPE; /* x183059 stalin.sc:25683:888584 */ t101124.s1.tag = STRUCTURE_TYPE24753; t101124.s1.value.structure_type24753 = &t101125; /* x183060 stalin.sc:25683:888584 */ t101123.s1.tag = STRUCTURE_TYPE24753; t101123.s1.value.structure_type24753 = &t101124; /* x183061 stalin.sc:25683:888584 */ t101122.s0.tag = STRUCTURE_TYPE24753; t101122.s0.value.structure_type24753 = &t101123; /* x183062 stalin.sc:25683:888584 */ t101122.s1.tag = NULL_TYPE; /* x183063 stalin.sc:25683:888584 */ t101121.s1.tag = STRUCTURE_TYPE24753; t101121.s1.value.structure_type24753 = &t101122; /* x183064 stalin.sc:25683:888584 */ t101120.s1.tag = STRUCTURE_TYPE24753; t101120.s1.value.structure_type24753 = &t101121; /* x183065 stalin.sc:25683:888584 */ t101119.s0.tag = STRUCTURE_TYPE24753; t101119.s0.value.structure_type24753 = &t101120; /* x183066 stalin.sc:25683:888584 */ t101127.s0.tag = EXTERNAL_SYMBOL_TYPE; t101127.s0.value.external_symbol_type = q43; /* x183067 stalin.sc:25683:888584 */ t101129.s0.tag = EXTERNAL_SYMBOL_TYPE; t101129.s0.value.external_symbol_type = q269; /* x183068 stalin.sc:25683:888584 */ t101130.s0.tag = EXTERNAL_SYMBOL_TYPE; t101130.s0.value.external_symbol_type = q275; /* x183069 stalin.sc:25683:888584 */ t101130.s1.tag = NULL_TYPE; /* x183070 stalin.sc:25683:888584 */ t101129.s1.tag = STRUCTURE_TYPE24753; t101129.s1.value.structure_type24753 = &t101130; /* x183071 stalin.sc:25683:888584 */ t101128.s0.tag = STRUCTURE_TYPE24753; t101128.s0.value.structure_type24753 = &t101129; /* x183072 stalin.sc:25683:888584 */ t101132.s0.tag = EXTERNAL_SYMBOL_TYPE; t101132.s0.value.external_symbol_type = q242; /* x183073 stalin.sc:25683:888584 */ t101135.s0.tag = EXTERNAL_SYMBOL_TYPE; t101135.s0.value.external_symbol_type = q337; /* x183074 stalin.sc:25683:888584 */ t101137.s0.tag = EXTERNAL_SYMBOL_TYPE; t101137.s0.value.external_symbol_type = q334; /* x183075 stalin.sc:25683:888584 */ t101139.s0.tag = EXTERNAL_SYMBOL_TYPE; t101139.s0.value.external_symbol_type = q2; /* x183076 stalin.sc:25683:888584 */ t101141.s0.tag = EXTERNAL_SYMBOL_TYPE; t101141.s0.value.external_symbol_type = q157; /* x183077 stalin.sc:25683:888584 */ t101142.s0.tag = EXTERNAL_SYMBOL_TYPE; t101142.s0.value.external_symbol_type = q275; /* x183078 stalin.sc:25683:888584 */ t101142.s1.tag = NULL_TYPE; /* x183079 stalin.sc:25683:888584 */ t101141.s1.tag = STRUCTURE_TYPE24753; t101141.s1.value.structure_type24753 = &t101142; /* x183080 stalin.sc:25683:888584 */ t101140.s0.tag = STRUCTURE_TYPE24753; t101140.s0.value.structure_type24753 = &t101141; /* x183081 stalin.sc:25683:888584 */ t101144.s0.tag = EXTERNAL_SYMBOL_TYPE; t101144.s0.value.external_symbol_type = q157; /* x183082 stalin.sc:25683:888584 */ t101145.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x183083 stalin.sc:25683:888584 */ t101145.s1.tag = NULL_TYPE; /* x183084 stalin.sc:25683:888584 */ t101144.s1.tag = STRUCTURE_TYPE24753; t101144.s1.value.structure_type24753 = &t101145; /* x183085 stalin.sc:25683:888584 */ t101143.s0.tag = STRUCTURE_TYPE24753; t101143.s0.value.structure_type24753 = &t101144; /* x183086 stalin.sc:25683:888584 */ t101143.s1.tag = NULL_TYPE; /* x183087 stalin.sc:25683:888584 */ t101140.s1.tag = STRUCTURE_TYPE24753; t101140.s1.value.structure_type24753 = &t101143; /* x183088 stalin.sc:25683:888584 */ t101139.s1.tag = STRUCTURE_TYPE24753; t101139.s1.value.structure_type24753 = &t101140; /* x183089 stalin.sc:25683:888584 */ t101138.s0.tag = STRUCTURE_TYPE24753; t101138.s0.value.structure_type24753 = &t101139; /* x183090 stalin.sc:25683:888584 */ t101138.s1.tag = NULL_TYPE; /* x183091 stalin.sc:25683:888584 */ t101137.s1.tag = STRUCTURE_TYPE24753; t101137.s1.value.structure_type24753 = &t101138; /* x183092 stalin.sc:25683:888584 */ t101136.s0.tag = STRUCTURE_TYPE24753; t101136.s0.value.structure_type24753 = &t101137; /* x183093 stalin.sc:25683:888584 */ t101136.s1.tag = NULL_TYPE; /* x183094 stalin.sc:25683:888584 */ t101135.s1.tag = STRUCTURE_TYPE24753; t101135.s1.value.structure_type24753 = &t101136; /* x183095 stalin.sc:25683:888584 */ t101134.s0.tag = STRUCTURE_TYPE24753; t101134.s0.value.structure_type24753 = &t101135; /* x183096 stalin.sc:25683:888584 */ t101134.s1.tag = NULL_TYPE; /* x183097 stalin.sc:25683:888584 */ t101133.s0.tag = STRUCTURE_TYPE24753; t101133.s0.value.structure_type24753 = &t101134; /* x183098 stalin.sc:25683:888584 */ t101147.s0.tag = EXTERNAL_SYMBOL_TYPE; t101147.s0.value.external_symbol_type = q43; /* x183099 stalin.sc:25683:888584 */ t101148.s0.tag = EXTERNAL_SYMBOL_TYPE; t101148.s0.value.external_symbol_type = q337; /* x183100 stalin.sc:25683:888584 */ t101150.s0.tag = EXTERNAL_SYMBOL_TYPE; t101150.s0.value.external_symbol_type = q130; /* x183101 stalin.sc:25683:888584 */ t101152.s0.tag = EXTERNAL_SYMBOL_TYPE; t101152.s0.value.external_symbol_type = q154; /* x183102 stalin.sc:25683:888584 */ t101153.s0.tag = EXTERNAL_SYMBOL_TYPE; t101153.s0.value.external_symbol_type = q260; /* x183103 stalin.sc:25683:888584 */ t101153.s1.tag = NULL_TYPE; /* x183104 stalin.sc:25683:888584 */ t101152.s1.tag = STRUCTURE_TYPE24753; t101152.s1.value.structure_type24753 = &t101153; /* x183105 stalin.sc:25683:888584 */ t101151.s0.tag = STRUCTURE_TYPE24753; t101151.s0.value.structure_type24753 = &t101152; /* x183106 stalin.sc:25683:888584 */ t101155.s0.tag = EXTERNAL_SYMBOL_TYPE; t101155.s0.value.external_symbol_type = q153; /* x183107 stalin.sc:25683:888584 */ t101156.s0.tag = FLONUM_TYPE; t101156.s0.value.flonum_type = 1.0e1; /* x183108 stalin.sc:25683:888584 */ t101157.s0.tag = EXTERNAL_SYMBOL_TYPE; t101157.s0.value.external_symbol_type = q337; /* x183109 stalin.sc:25683:888584 */ t101157.s1.tag = NULL_TYPE; /* x183110 stalin.sc:25683:888584 */ t101156.s1.tag = STRUCTURE_TYPE24753; t101156.s1.value.structure_type24753 = &t101157; /* x183111 stalin.sc:25683:888584 */ t101155.s1.tag = STRUCTURE_TYPE24753; t101155.s1.value.structure_type24753 = &t101156; /* x183112 stalin.sc:25683:888584 */ t101154.s0.tag = STRUCTURE_TYPE24753; t101154.s0.value.structure_type24753 = &t101155; /* x183113 stalin.sc:25683:888584 */ t101154.s1.tag = NULL_TYPE; /* x183114 stalin.sc:25683:888584 */ t101151.s1.tag = STRUCTURE_TYPE24753; t101151.s1.value.structure_type24753 = &t101154; /* x183115 stalin.sc:25683:888584 */ t101150.s1.tag = STRUCTURE_TYPE24753; t101150.s1.value.structure_type24753 = &t101151; /* x183116 stalin.sc:25683:888584 */ t101149.s0.tag = STRUCTURE_TYPE24753; t101149.s0.value.structure_type24753 = &t101150; /* x183117 stalin.sc:25683:888584 */ t101158.s0.tag = FALSE_TYPE; /* x183118 stalin.sc:25683:888584 */ t101158.s1.tag = NULL_TYPE; /* x183119 stalin.sc:25683:888584 */ t101149.s1.tag = STRUCTURE_TYPE24753; t101149.s1.value.structure_type24753 = &t101158; /* x183120 stalin.sc:25683:888584 */ t101148.s1.tag = STRUCTURE_TYPE24753; t101148.s1.value.structure_type24753 = &t101149; /* x183121 stalin.sc:25683:888584 */ t101147.s1.tag = STRUCTURE_TYPE24753; t101147.s1.value.structure_type24753 = &t101148; /* x183122 stalin.sc:25683:888584 */ t101146.s0.tag = STRUCTURE_TYPE24753; t101146.s0.value.structure_type24753 = &t101147; /* x183123 stalin.sc:25683:888584 */ t101146.s1.tag = NULL_TYPE; /* x183124 stalin.sc:25683:888584 */ t101133.s1.tag = STRUCTURE_TYPE24753; t101133.s1.value.structure_type24753 = &t101146; /* x183125 stalin.sc:25683:888584 */ t101132.s1.tag = STRUCTURE_TYPE24753; t101132.s1.value.structure_type24753 = &t101133; /* x183126 stalin.sc:25683:888584 */ t101131.s0.tag = STRUCTURE_TYPE24753; t101131.s0.value.structure_type24753 = &t101132; /* x183127 stalin.sc:25683:888584 */ t101159.s0.tag = FALSE_TYPE; /* x183128 stalin.sc:25683:888584 */ t101159.s1.tag = NULL_TYPE; /* x183129 stalin.sc:25683:888584 */ t101131.s1.tag = STRUCTURE_TYPE24753; t101131.s1.value.structure_type24753 = &t101159; /* x183130 stalin.sc:25683:888584 */ t101128.s1.tag = STRUCTURE_TYPE24753; t101128.s1.value.structure_type24753 = &t101131; /* x183131 stalin.sc:25683:888584 */ t101127.s1.tag = STRUCTURE_TYPE24753; t101127.s1.value.structure_type24753 = &t101128; /* x183132 stalin.sc:25683:888584 */ t101126.s0.tag = STRUCTURE_TYPE24753; t101126.s0.value.structure_type24753 = &t101127; /* x183133 stalin.sc:25683:888584 */ t101126.s1.tag = NULL_TYPE; /* x183134 stalin.sc:25683:888584 */ t101119.s1.tag = STRUCTURE_TYPE24753; t101119.s1.value.structure_type24753 = &t101126; /* x183135 stalin.sc:25683:888584 */ t101112.s1.tag = STRUCTURE_TYPE24753; t101112.s1.value.structure_type24753 = &t101119; /* x183136 stalin.sc:25683:888584 */ t101111.s1.tag = STRUCTURE_TYPE24753; t101111.s1.value.structure_type24753 = &t101112; /* x183137 stalin.sc:25683:888584 */ t101110.s0.tag = STRUCTURE_TYPE24753; t101110.s0.value.structure_type24753 = &t101111; /* x183138 stalin.sc:25683:888584 */ t101110.s1.tag = NULL_TYPE; /* x183139 stalin.sc:25683:888584 */ t101109.s1.tag = STRUCTURE_TYPE24753; t101109.s1.value.structure_type24753 = &t101110; /* x183140 stalin.sc:25683:888584 */ t101105.s1.tag = STRUCTURE_TYPE24753; t101105.s1.value.structure_type24753 = &t101109; /* x183141 stalin.sc:25683:888584 */ t101104.s1.tag = STRUCTURE_TYPE24753; t101104.s1.value.structure_type24753 = &t101105; /* x183142 stalin.sc:25683:888584 */ t101103.s0.tag = STRUCTURE_TYPE24753; t101103.s0.value.structure_type24753 = &t101104; /* x183143 stalin.sc:25683:888584 */ t101103.s1.tag = NULL_TYPE; /* x183144 stalin.sc:25683:888584 */ t101099.s1.tag = STRUCTURE_TYPE24753; t101099.s1.value.structure_type24753 = &t101103; /* x183145 stalin.sc:25683:888584 */ t101098.s0.tag = STRUCTURE_TYPE24753; t101098.s0.value.structure_type24753 = &t101099; /* x183146 stalin.sc:25683:888584 */ t101162.s0.tag = EXTERNAL_SYMBOL_TYPE; t101162.s0.value.external_symbol_type = q263; /* x183147 stalin.sc:25683:888584 */ t101163.s0.tag = EXTERNAL_SYMBOL_TYPE; t101163.s0.value.external_symbol_type = q274; /* x183148 stalin.sc:25683:888584 */ t101164.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x183149 stalin.sc:25683:888584 */ t101164.s1.tag = NULL_TYPE; /* x183150 stalin.sc:25683:888584 */ t101163.s1.tag = STRUCTURE_TYPE24753; t101163.s1.value.structure_type24753 = &t101164; /* x183151 stalin.sc:25683:888584 */ t101162.s1.tag = STRUCTURE_TYPE24753; t101162.s1.value.structure_type24753 = &t101163; /* x183152 stalin.sc:25683:888584 */ t101161.s0.tag = STRUCTURE_TYPE24753; t101161.s0.value.structure_type24753 = &t101162; /* x183153 stalin.sc:25683:888584 */ t101166.s0.tag = EXTERNAL_SYMBOL_TYPE; t101166.s0.value.external_symbol_type = q43; /* x183154 stalin.sc:25683:888584 */ t101168.s0.tag = EXTERNAL_SYMBOL_TYPE; t101168.s0.value.external_symbol_type = q120; /* x183155 stalin.sc:25683:888584 */ t101169.s0.tag = EXTERNAL_SYMBOL_TYPE; t101169.s0.value.external_symbol_type = q308; /* x183156 stalin.sc:25683:888584 */ t101170.s0.tag = EXTERNAL_SYMBOL_TYPE; t101170.s0.value.external_symbol_type = q330; /* x183157 stalin.sc:25683:888584 */ t101170.s1.tag = NULL_TYPE; /* x183158 stalin.sc:25683:888584 */ t101169.s1.tag = STRUCTURE_TYPE24753; t101169.s1.value.structure_type24753 = &t101170; /* x183159 stalin.sc:25683:888584 */ t101168.s1.tag = STRUCTURE_TYPE24753; t101168.s1.value.structure_type24753 = &t101169; /* x183160 stalin.sc:25683:888584 */ t101167.s0.tag = STRUCTURE_TYPE24753; t101167.s0.value.structure_type24753 = &t101168; /* x183161 stalin.sc:25683:888584 */ t101171.s0.tag = FALSE_TYPE; /* x183162 stalin.sc:25683:888584 */ t101173.s0.tag = EXTERNAL_SYMBOL_TYPE; t101173.s0.value.external_symbol_type = q242; /* x183163 stalin.sc:25683:888584 */ t101176.s0.tag = EXTERNAL_SYMBOL_TYPE; t101176.s0.value.external_symbol_type = q275; /* x183164 stalin.sc:25683:888584 */ t101178.s0.tag = EXTERNAL_SYMBOL_TYPE; t101178.s0.value.external_symbol_type = q163; /* x183165 stalin.sc:25683:888584 */ t101179.s0.tag = EXTERNAL_SYMBOL_TYPE; t101179.s0.value.external_symbol_type = q161; /* x183166 stalin.sc:25683:888584 */ t101180.s0.tag = EXTERNAL_SYMBOL_TYPE; t101180.s0.value.external_symbol_type = q308; /* x183167 stalin.sc:25683:888584 */ t101180.s1.tag = NULL_TYPE; /* x183168 stalin.sc:25683:888584 */ t101179.s1.tag = STRUCTURE_TYPE24753; t101179.s1.value.structure_type24753 = &t101180; /* x183169 stalin.sc:25683:888584 */ t101178.s1.tag = STRUCTURE_TYPE24753; t101178.s1.value.structure_type24753 = &t101179; /* x183170 stalin.sc:25683:888584 */ t101177.s0.tag = STRUCTURE_TYPE24753; t101177.s0.value.structure_type24753 = &t101178; /* x183171 stalin.sc:25683:888584 */ t101177.s1.tag = NULL_TYPE; /* x183172 stalin.sc:25683:888584 */ t101176.s1.tag = STRUCTURE_TYPE24753; t101176.s1.value.structure_type24753 = &t101177; /* x183173 stalin.sc:25683:888584 */ t101175.s0.tag = STRUCTURE_TYPE24753; t101175.s0.value.structure_type24753 = &t101176; /* x183174 stalin.sc:25683:888584 */ t101175.s1.tag = NULL_TYPE; /* x183175 stalin.sc:25683:888584 */ t101174.s0.tag = STRUCTURE_TYPE24753; t101174.s0.value.structure_type24753 = &t101175; /* x183176 stalin.sc:25683:888584 */ t101182.s0.tag = EXTERNAL_SYMBOL_TYPE; t101182.s0.value.external_symbol_type = q42; /* x183177 stalin.sc:25683:888584 */ t101183.s0.tag = EXTERNAL_SYMBOL_TYPE; t101183.s0.value.external_symbol_type = q308; /* x183178 stalin.sc:25683:888584 */ t101185.s0.tag = EXTERNAL_SYMBOL_TYPE; t101185.s0.value.external_symbol_type = q4; /* x183179 stalin.sc:25683:888584 */ t101186.s0.tag = EXTERNAL_SYMBOL_TYPE; t101186.s0.value.external_symbol_type = q308; /* x183180 stalin.sc:25683:888584 */ t101187.s0.tag = FIXNUM_TYPE; t101187.s0.value.fixnum_type = 1; /* x183181 stalin.sc:25683:888584 */ t101187.s1.tag = NULL_TYPE; /* x183182 stalin.sc:25683:888584 */ t101186.s1.tag = STRUCTURE_TYPE24753; t101186.s1.value.structure_type24753 = &t101187; /* x183183 stalin.sc:25683:888584 */ t101185.s1.tag = STRUCTURE_TYPE24753; t101185.s1.value.structure_type24753 = &t101186; /* x183184 stalin.sc:25683:888584 */ t101184.s0.tag = STRUCTURE_TYPE24753; t101184.s0.value.structure_type24753 = &t101185; /* x183185 stalin.sc:25683:888584 */ t101184.s1.tag = NULL_TYPE; /* x183186 stalin.sc:25683:888584 */ t101183.s1.tag = STRUCTURE_TYPE24753; t101183.s1.value.structure_type24753 = &t101184; /* x183187 stalin.sc:25683:888584 */ t101182.s1.tag = STRUCTURE_TYPE24753; t101182.s1.value.structure_type24753 = &t101183; /* x183188 stalin.sc:25683:888584 */ t101181.s0.tag = STRUCTURE_TYPE24753; t101181.s0.value.structure_type24753 = &t101182; /* x183189 stalin.sc:25683:888584 */ t101189.s0.tag = EXTERNAL_SYMBOL_TYPE; t101189.s0.value.external_symbol_type = q43; /* x183190 stalin.sc:25683:888584 */ t101191.s0.tag = EXTERNAL_SYMBOL_TYPE; t101191.s0.value.external_symbol_type = q269; /* x183191 stalin.sc:25683:888584 */ t101192.s0.tag = EXTERNAL_SYMBOL_TYPE; t101192.s0.value.external_symbol_type = q275; /* x183192 stalin.sc:25683:888584 */ t101192.s1.tag = NULL_TYPE; /* x183193 stalin.sc:25683:888584 */ t101191.s1.tag = STRUCTURE_TYPE24753; t101191.s1.value.structure_type24753 = &t101192; /* x183194 stalin.sc:25683:888584 */ t101190.s0.tag = STRUCTURE_TYPE24753; t101190.s0.value.structure_type24753 = &t101191; /* x183195 stalin.sc:25683:888584 */ t101194.s0.tag = EXTERNAL_SYMBOL_TYPE; t101194.s0.value.external_symbol_type = q242; /* x183196 stalin.sc:25683:888584 */ t101197.s0.tag = EXTERNAL_SYMBOL_TYPE; t101197.s0.value.external_symbol_type = q337; /* x183197 stalin.sc:25683:888584 */ t101199.s0.tag = EXTERNAL_SYMBOL_TYPE; t101199.s0.value.external_symbol_type = q334; /* x183198 stalin.sc:25683:888584 */ t101201.s0.tag = EXTERNAL_SYMBOL_TYPE; t101201.s0.value.external_symbol_type = q2; /* x183199 stalin.sc:25683:888584 */ t101203.s0.tag = EXTERNAL_SYMBOL_TYPE; t101203.s0.value.external_symbol_type = q157; /* x183200 stalin.sc:25683:888584 */ t101204.s0.tag = EXTERNAL_SYMBOL_TYPE; t101204.s0.value.external_symbol_type = q275; /* x183201 stalin.sc:25683:888584 */ t101204.s1.tag = NULL_TYPE; /* x183202 stalin.sc:25683:888584 */ t101203.s1.tag = STRUCTURE_TYPE24753; t101203.s1.value.structure_type24753 = &t101204; /* x183203 stalin.sc:25683:888584 */ t101202.s0.tag = STRUCTURE_TYPE24753; t101202.s0.value.structure_type24753 = &t101203; /* x183204 stalin.sc:25683:888584 */ t101206.s0.tag = EXTERNAL_SYMBOL_TYPE; t101206.s0.value.external_symbol_type = q157; /* x183205 stalin.sc:25683:888584 */ t101207.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x183206 stalin.sc:25683:888584 */ t101207.s1.tag = NULL_TYPE; /* x183207 stalin.sc:25683:888584 */ t101206.s1.tag = STRUCTURE_TYPE24753; t101206.s1.value.structure_type24753 = &t101207; /* x183208 stalin.sc:25683:888584 */ t101205.s0.tag = STRUCTURE_TYPE24753; t101205.s0.value.structure_type24753 = &t101206; /* x183209 stalin.sc:25683:888584 */ t101205.s1.tag = NULL_TYPE; /* x183210 stalin.sc:25683:888584 */ t101202.s1.tag = STRUCTURE_TYPE24753; t101202.s1.value.structure_type24753 = &t101205; /* x183211 stalin.sc:25683:888584 */ t101201.s1.tag = STRUCTURE_TYPE24753; t101201.s1.value.structure_type24753 = &t101202; /* x183212 stalin.sc:25683:888584 */ t101200.s0.tag = STRUCTURE_TYPE24753; t101200.s0.value.structure_type24753 = &t101201; /* x183213 stalin.sc:25683:888584 */ t101200.s1.tag = NULL_TYPE; /* x183214 stalin.sc:25683:888584 */ t101199.s1.tag = STRUCTURE_TYPE24753; t101199.s1.value.structure_type24753 = &t101200; /* x183215 stalin.sc:25683:888584 */ t101198.s0.tag = STRUCTURE_TYPE24753; t101198.s0.value.structure_type24753 = &t101199; /* x183216 stalin.sc:25683:888584 */ t101198.s1.tag = NULL_TYPE; /* x183217 stalin.sc:25683:888584 */ t101197.s1.tag = STRUCTURE_TYPE24753; t101197.s1.value.structure_type24753 = &t101198; /* x183218 stalin.sc:25683:888584 */ t101196.s0.tag = STRUCTURE_TYPE24753; t101196.s0.value.structure_type24753 = &t101197; /* x183219 stalin.sc:25683:888584 */ t101196.s1.tag = NULL_TYPE; /* x183220 stalin.sc:25683:888584 */ t101195.s0.tag = STRUCTURE_TYPE24753; t101195.s0.value.structure_type24753 = &t101196; /* x183221 stalin.sc:25683:888584 */ t101209.s0.tag = EXTERNAL_SYMBOL_TYPE; t101209.s0.value.external_symbol_type = q43; /* x183222 stalin.sc:25683:888584 */ t101210.s0.tag = EXTERNAL_SYMBOL_TYPE; t101210.s0.value.external_symbol_type = q337; /* x183223 stalin.sc:25683:888584 */ t101212.s0.tag = EXTERNAL_SYMBOL_TYPE; t101212.s0.value.external_symbol_type = q130; /* x183224 stalin.sc:25683:888584 */ t101214.s0.tag = EXTERNAL_SYMBOL_TYPE; t101214.s0.value.external_symbol_type = q154; /* x183225 stalin.sc:25683:888584 */ t101215.s0.tag = EXTERNAL_SYMBOL_TYPE; t101215.s0.value.external_symbol_type = q260; /* x183226 stalin.sc:25683:888584 */ t101215.s1.tag = NULL_TYPE; /* x183227 stalin.sc:25683:888584 */ t101214.s1.tag = STRUCTURE_TYPE24753; t101214.s1.value.structure_type24753 = &t101215; /* x183228 stalin.sc:25683:888584 */ t101213.s0.tag = STRUCTURE_TYPE24753; t101213.s0.value.structure_type24753 = &t101214; /* x183229 stalin.sc:25683:888584 */ t101217.s0.tag = EXTERNAL_SYMBOL_TYPE; t101217.s0.value.external_symbol_type = q153; /* x183230 stalin.sc:25683:888584 */ t101218.s0.tag = FLONUM_TYPE; t101218.s0.value.flonum_type = 1.0e1; /* x183231 stalin.sc:25683:888584 */ t101220.s0.tag = EXTERNAL_SYMBOL_TYPE; t101220.s0.value.external_symbol_type = q2; /* x183232 stalin.sc:25683:888584 */ t101221.s0.tag = EXTERNAL_SYMBOL_TYPE; t101221.s0.value.external_symbol_type = q337; /* x183233 stalin.sc:25683:888584 */ t101221.s1.tag = NULL_TYPE; /* x183234 stalin.sc:25683:888584 */ t101220.s1.tag = STRUCTURE_TYPE24753; t101220.s1.value.structure_type24753 = &t101221; /* x183235 stalin.sc:25683:888584 */ t101219.s0.tag = STRUCTURE_TYPE24753; t101219.s0.value.structure_type24753 = &t101220; /* x183236 stalin.sc:25683:888584 */ t101219.s1.tag = NULL_TYPE; /* x183237 stalin.sc:25683:888584 */ t101218.s1.tag = STRUCTURE_TYPE24753; t101218.s1.value.structure_type24753 = &t101219; /* x183238 stalin.sc:25683:888584 */ t101217.s1.tag = STRUCTURE_TYPE24753; t101217.s1.value.structure_type24753 = &t101218; /* x183239 stalin.sc:25683:888584 */ t101216.s0.tag = STRUCTURE_TYPE24753; t101216.s0.value.structure_type24753 = &t101217; /* x183240 stalin.sc:25683:888584 */ t101216.s1.tag = NULL_TYPE; /* x183241 stalin.sc:25683:888584 */ t101213.s1.tag = STRUCTURE_TYPE24753; t101213.s1.value.structure_type24753 = &t101216; /* x183242 stalin.sc:25683:888584 */ t101212.s1.tag = STRUCTURE_TYPE24753; t101212.s1.value.structure_type24753 = &t101213; /* x183243 stalin.sc:25683:888584 */ t101211.s0.tag = STRUCTURE_TYPE24753; t101211.s0.value.structure_type24753 = &t101212; /* x183244 stalin.sc:25683:888584 */ t101222.s0.tag = FALSE_TYPE; /* x183245 stalin.sc:25683:888584 */ t101222.s1.tag = NULL_TYPE; /* x183246 stalin.sc:25683:888584 */ t101211.s1.tag = STRUCTURE_TYPE24753; t101211.s1.value.structure_type24753 = &t101222; /* x183247 stalin.sc:25683:888584 */ t101210.s1.tag = STRUCTURE_TYPE24753; t101210.s1.value.structure_type24753 = &t101211; /* x183248 stalin.sc:25683:888584 */ t101209.s1.tag = STRUCTURE_TYPE24753; t101209.s1.value.structure_type24753 = &t101210; /* x183249 stalin.sc:25683:888584 */ t101208.s0.tag = STRUCTURE_TYPE24753; t101208.s0.value.structure_type24753 = &t101209; /* x183250 stalin.sc:25683:888584 */ t101208.s1.tag = NULL_TYPE; /* x183251 stalin.sc:25683:888584 */ t101195.s1.tag = STRUCTURE_TYPE24753; t101195.s1.value.structure_type24753 = &t101208; /* x183252 stalin.sc:25683:888584 */ t101194.s1.tag = STRUCTURE_TYPE24753; t101194.s1.value.structure_type24753 = &t101195; /* x183253 stalin.sc:25683:888584 */ t101193.s0.tag = STRUCTURE_TYPE24753; t101193.s0.value.structure_type24753 = &t101194; /* x183254 stalin.sc:25683:888584 */ t101223.s0.tag = FALSE_TYPE; /* x183255 stalin.sc:25683:888584 */ t101223.s1.tag = NULL_TYPE; /* x183256 stalin.sc:25683:888584 */ t101193.s1.tag = STRUCTURE_TYPE24753; t101193.s1.value.structure_type24753 = &t101223; /* x183257 stalin.sc:25683:888584 */ t101190.s1.tag = STRUCTURE_TYPE24753; t101190.s1.value.structure_type24753 = &t101193; /* x183258 stalin.sc:25683:888584 */ t101189.s1.tag = STRUCTURE_TYPE24753; t101189.s1.value.structure_type24753 = &t101190; /* x183259 stalin.sc:25683:888584 */ t101188.s0.tag = STRUCTURE_TYPE24753; t101188.s0.value.structure_type24753 = &t101189; /* x183260 stalin.sc:25683:888584 */ t101188.s1.tag = NULL_TYPE; /* x183261 stalin.sc:25683:888584 */ t101181.s1.tag = STRUCTURE_TYPE24753; t101181.s1.value.structure_type24753 = &t101188; /* x183262 stalin.sc:25683:888584 */ t101174.s1.tag = STRUCTURE_TYPE24753; t101174.s1.value.structure_type24753 = &t101181; /* x183263 stalin.sc:25683:888584 */ t101173.s1.tag = STRUCTURE_TYPE24753; t101173.s1.value.structure_type24753 = &t101174; /* x183264 stalin.sc:25683:888584 */ t101172.s0.tag = STRUCTURE_TYPE24753; t101172.s0.value.structure_type24753 = &t101173; /* x183265 stalin.sc:25683:888584 */ t101172.s1.tag = NULL_TYPE; /* x183266 stalin.sc:25683:888584 */ t101171.s1.tag = STRUCTURE_TYPE24753; t101171.s1.value.structure_type24753 = &t101172; /* x183267 stalin.sc:25683:888584 */ t101167.s1.tag = STRUCTURE_TYPE24753; t101167.s1.value.structure_type24753 = &t101171; /* x183268 stalin.sc:25683:888584 */ t101166.s1.tag = STRUCTURE_TYPE24753; t101166.s1.value.structure_type24753 = &t101167; /* x183269 stalin.sc:25683:888584 */ t101165.s0.tag = STRUCTURE_TYPE24753; t101165.s0.value.structure_type24753 = &t101166; /* x183270 stalin.sc:25683:888584 */ t101165.s1.tag = NULL_TYPE; /* x183271 stalin.sc:25683:888584 */ t101161.s1.tag = STRUCTURE_TYPE24753; t101161.s1.value.structure_type24753 = &t101165; /* x183272 stalin.sc:25683:888584 */ t101160.s0.tag = STRUCTURE_TYPE24753; t101160.s0.value.structure_type24753 = &t101161; /* x183273 stalin.sc:25683:888584 */ t101225.s0.tag = EXTERNAL_SYMBOL_TYPE; t101225.s0.value.external_symbol_type = q95; /* x183274 stalin.sc:25683:888584 */ t101226.s0.tag = FALSE_TYPE; /* x183275 stalin.sc:25683:888584 */ t101226.s1.tag = NULL_TYPE; /* x183276 stalin.sc:25683:888584 */ t101225.s1.tag = STRUCTURE_TYPE24753; t101225.s1.value.structure_type24753 = &t101226; /* x183277 stalin.sc:25683:888584 */ t101224.s0.tag = STRUCTURE_TYPE24753; t101224.s0.value.structure_type24753 = &t101225; /* x183278 stalin.sc:25683:888584 */ t101224.s1.tag = NULL_TYPE; /* x183279 stalin.sc:25683:888584 */ t101160.s1.tag = STRUCTURE_TYPE24753; t101160.s1.value.structure_type24753 = &t101224; /* x183280 stalin.sc:25683:888584 */ t101098.s1.tag = STRUCTURE_TYPE24753; t101098.s1.value.structure_type24753 = &t101160; /* x183281 stalin.sc:25683:888584 */ t101067.s1.tag = STRUCTURE_TYPE24753; t101067.s1.value.structure_type24753 = &t101098; /* x183282 stalin.sc:25683:888584 */ t101066.s1.tag = STRUCTURE_TYPE24753; t101066.s1.value.structure_type24753 = &t101067; /* x183283 stalin.sc:25683:888584 */ t101065.s0.tag = STRUCTURE_TYPE24753; t101065.s0.value.structure_type24753 = &t101066; /* x183284 stalin.sc:25683:888584 */ t101065.s1.tag = NULL_TYPE; /* x183285 stalin.sc:25683:888584 */ t101058.s1.tag = STRUCTURE_TYPE24753; t101058.s1.value.structure_type24753 = &t101065; /* x183286 stalin.sc:25683:888584 */ t101051.s1.tag = STRUCTURE_TYPE24753; t101051.s1.value.structure_type24753 = &t101058; /* x183287 stalin.sc:25683:888584 */ t101050.s1.tag = STRUCTURE_TYPE24753; t101050.s1.value.structure_type24753 = &t101051; /* x183288 stalin.sc:25683:888584 */ t101049.s0.tag = STRUCTURE_TYPE24753; t101049.s0.value.structure_type24753 = &t101050; /* x183289 stalin.sc:25683:888584 */ t101049.s1.tag = NULL_TYPE; /* x183290 stalin.sc:25683:888584 */ t101048.s1.tag = STRUCTURE_TYPE24753; t101048.s1.value.structure_type24753 = &t101049; /* x183291 stalin.sc:25683:888584 */ t101044.s1.tag = STRUCTURE_TYPE24753; t101044.s1.value.structure_type24753 = &t101048; /* x183292 stalin.sc:25683:888584 */ t101043.s1.tag = STRUCTURE_TYPE24753; t101043.s1.value.structure_type24753 = &t101044; /* x183293 stalin.sc:25683:888584 */ t101042.s0.tag = STRUCTURE_TYPE24753; t101042.s0.value.structure_type24753 = &t101043; /* x183294 stalin.sc:25683:888584 */ t101042.s1.tag = NULL_TYPE; /* x183295 stalin.sc:25683:888584 */ t101000.s1.tag = STRUCTURE_TYPE24753; t101000.s1.value.structure_type24753 = &t101042; /* x183296 stalin.sc:25683:888584 */ t100999.s0.tag = STRUCTURE_TYPE24753; t100999.s0.value.structure_type24753 = &t101000; /* x183297 stalin.sc:25683:888584 */ t101228.s0.tag = EXTERNAL_SYMBOL_TYPE; t101228.s0.value.external_symbol_type = q95; /* x183298 stalin.sc:25683:888584 */ t101229.s0.tag = FALSE_TYPE; /* x183299 stalin.sc:25683:888584 */ t101229.s1.tag = NULL_TYPE; /* x183300 stalin.sc:25683:888584 */ t101228.s1.tag = STRUCTURE_TYPE24753; t101228.s1.value.structure_type24753 = &t101229; /* x183301 stalin.sc:25683:888584 */ t101227.s0.tag = STRUCTURE_TYPE24753; t101227.s0.value.structure_type24753 = &t101228; /* x183302 stalin.sc:25683:888584 */ t101227.s1.tag = NULL_TYPE; /* x183303 stalin.sc:25683:888584 */ t100999.s1.tag = STRUCTURE_TYPE24753; t100999.s1.value.structure_type24753 = &t101227; /* x183304 stalin.sc:25683:888584 */ t100988.s1.tag = STRUCTURE_TYPE24753; t100988.s1.value.structure_type24753 = &t100999; /* x183305 stalin.sc:25683:888584 */ t100968.s1.tag = STRUCTURE_TYPE24753; t100968.s1.value.structure_type24753 = &t100988; /* x183306 stalin.sc:25683:888584 */ t100967.s1.tag = STRUCTURE_TYPE24753; t100967.s1.value.structure_type24753 = &t100968; /* x183307 stalin.sc:25683:888584 */ t100966.s0.tag = STRUCTURE_TYPE24753; t100966.s0.value.structure_type24753 = &t100967; /* x183308 stalin.sc:25683:888584 */ t100966.s1.tag = NULL_TYPE; /* x183309 stalin.sc:25683:888584 */ t100959.s1.tag = STRUCTURE_TYPE24753; t100959.s1.value.structure_type24753 = &t100966; /* x183310 stalin.sc:25683:888584 */ t100952.s1.tag = STRUCTURE_TYPE24753; t100952.s1.value.structure_type24753 = &t100959; /* x183311 stalin.sc:25683:888584 */ t100951.s1.tag = STRUCTURE_TYPE24753; t100951.s1.value.structure_type24753 = &t100952; /* x183312 stalin.sc:25683:888584 */ t100950.s0.tag = STRUCTURE_TYPE24753; t100950.s0.value.structure_type24753 = &t100951; /* x183313 stalin.sc:25683:888584 */ t100950.s1.tag = NULL_TYPE; /* x183314 stalin.sc:25683:888584 */ t100949.s1.tag = STRUCTURE_TYPE24753; t100949.s1.value.structure_type24753 = &t100950; /* x183315 stalin.sc:25683:888584 */ t100945.s1.tag = STRUCTURE_TYPE24753; t100945.s1.value.structure_type24753 = &t100949; /* x183316 stalin.sc:25683:888584 */ t100944.s1.tag = STRUCTURE_TYPE24753; t100944.s1.value.structure_type24753 = &t100945; /* x183317 stalin.sc:25683:888584 */ t100943.s0.tag = STRUCTURE_TYPE24753; t100943.s0.value.structure_type24753 = &t100944; /* x183318 stalin.sc:25683:888584 */ t100943.s1.tag = NULL_TYPE; /* x183319 stalin.sc:25683:888584 */ t100940.s1.tag = STRUCTURE_TYPE24753; t100940.s1.value.structure_type24753 = &t100943; /* x183320 stalin.sc:25683:888584 */ t100939.s1.tag = STRUCTURE_TYPE24753; t100939.s1.value.structure_type24753 = &t100940; /* x183321 stalin.sc:25683:888584 */ t100938.s0.tag = STRUCTURE_TYPE24753; t100938.s0.value.structure_type24753 = &t100939; /* x183322 stalin.sc:25683:888584 */ t101231.s0.tag = EXTERNAL_SYMBOL_TYPE; t101231.s0.value.external_symbol_type = q242; /* x183323 stalin.sc:25683:888584 */ t101232.s0.tag = EXTERNAL_SYMBOL_TYPE; t101232.s0.value.external_symbol_type = q287; /* x183324 stalin.sc:25683:888584 */ t101233.s0.tag = NULL_TYPE; /* x183325 stalin.sc:25683:888584 */ t101235.s0.tag = EXTERNAL_SYMBOL_TYPE; t101235.s0.value.external_symbol_type = q43; /* x183326 stalin.sc:25683:888584 */ t101237.s0.tag = EXTERNAL_SYMBOL_TYPE; t101237.s0.value.external_symbol_type = q120; /* x183327 stalin.sc:25683:888584 */ t101238.s0.tag = EXTERNAL_SYMBOL_TYPE; t101238.s0.value.external_symbol_type = q308; /* x183328 stalin.sc:25683:888584 */ t101239.s0.tag = EXTERNAL_SYMBOL_TYPE; t101239.s0.value.external_symbol_type = q330; /* x183329 stalin.sc:25683:888584 */ t101239.s1.tag = NULL_TYPE; /* x183330 stalin.sc:25683:888584 */ t101238.s1.tag = STRUCTURE_TYPE24753; t101238.s1.value.structure_type24753 = &t101239; /* x183331 stalin.sc:25683:888584 */ t101237.s1.tag = STRUCTURE_TYPE24753; t101237.s1.value.structure_type24753 = &t101238; /* x183332 stalin.sc:25683:888584 */ t101236.s0.tag = STRUCTURE_TYPE24753; t101236.s0.value.structure_type24753 = &t101237; /* x183333 stalin.sc:25683:888584 */ t101240.s0.tag = FALSE_TYPE; /* x183334 stalin.sc:25683:888584 */ t101242.s0.tag = EXTERNAL_SYMBOL_TYPE; t101242.s0.value.external_symbol_type = q242; /* x183335 stalin.sc:25683:888584 */ t101245.s0.tag = EXTERNAL_SYMBOL_TYPE; t101245.s0.value.external_symbol_type = q273; /* x183336 stalin.sc:25683:888584 */ t101247.s0.tag = EXTERNAL_SYMBOL_TYPE; t101247.s0.value.external_symbol_type = q163; /* x183337 stalin.sc:25683:888584 */ t101248.s0.tag = EXTERNAL_SYMBOL_TYPE; t101248.s0.value.external_symbol_type = q161; /* x183338 stalin.sc:25683:888584 */ t101249.s0.tag = EXTERNAL_SYMBOL_TYPE; t101249.s0.value.external_symbol_type = q308; /* x183339 stalin.sc:25683:888584 */ t101249.s1.tag = NULL_TYPE; /* x183340 stalin.sc:25683:888584 */ t101248.s1.tag = STRUCTURE_TYPE24753; t101248.s1.value.structure_type24753 = &t101249; /* x183341 stalin.sc:25683:888584 */ t101247.s1.tag = STRUCTURE_TYPE24753; t101247.s1.value.structure_type24753 = &t101248; /* x183342 stalin.sc:25683:888584 */ t101246.s0.tag = STRUCTURE_TYPE24753; t101246.s0.value.structure_type24753 = &t101247; /* x183343 stalin.sc:25683:888584 */ t101246.s1.tag = NULL_TYPE; /* x183344 stalin.sc:25683:888584 */ t101245.s1.tag = STRUCTURE_TYPE24753; t101245.s1.value.structure_type24753 = &t101246; /* x183345 stalin.sc:25683:888584 */ t101244.s0.tag = STRUCTURE_TYPE24753; t101244.s0.value.structure_type24753 = &t101245; /* x183346 stalin.sc:25683:888584 */ t101244.s1.tag = NULL_TYPE; /* x183347 stalin.sc:25683:888584 */ t101243.s0.tag = STRUCTURE_TYPE24753; t101243.s0.value.structure_type24753 = &t101244; /* x183348 stalin.sc:25683:888584 */ t101251.s0.tag = EXTERNAL_SYMBOL_TYPE; t101251.s0.value.external_symbol_type = q42; /* x183349 stalin.sc:25683:888584 */ t101252.s0.tag = EXTERNAL_SYMBOL_TYPE; t101252.s0.value.external_symbol_type = q308; /* x183350 stalin.sc:25683:888584 */ t101254.s0.tag = EXTERNAL_SYMBOL_TYPE; t101254.s0.value.external_symbol_type = q4; /* x183351 stalin.sc:25683:888584 */ t101255.s0.tag = EXTERNAL_SYMBOL_TYPE; t101255.s0.value.external_symbol_type = q308; /* x183352 stalin.sc:25683:888584 */ t101256.s0.tag = FIXNUM_TYPE; t101256.s0.value.fixnum_type = 1; /* x183353 stalin.sc:25683:888584 */ t101256.s1.tag = NULL_TYPE; /* x183354 stalin.sc:25683:888584 */ t101255.s1.tag = STRUCTURE_TYPE24753; t101255.s1.value.structure_type24753 = &t101256; /* x183355 stalin.sc:25683:888584 */ t101254.s1.tag = STRUCTURE_TYPE24753; t101254.s1.value.structure_type24753 = &t101255; /* x183356 stalin.sc:25683:888584 */ t101253.s0.tag = STRUCTURE_TYPE24753; t101253.s0.value.structure_type24753 = &t101254; /* x183357 stalin.sc:25683:888584 */ t101253.s1.tag = NULL_TYPE; /* x183358 stalin.sc:25683:888584 */ t101252.s1.tag = STRUCTURE_TYPE24753; t101252.s1.value.structure_type24753 = &t101253; /* x183359 stalin.sc:25683:888584 */ t101251.s1.tag = STRUCTURE_TYPE24753; t101251.s1.value.structure_type24753 = &t101252; /* x183360 stalin.sc:25683:888584 */ t101250.s0.tag = STRUCTURE_TYPE24753; t101250.s0.value.structure_type24753 = &t101251; /* x183361 stalin.sc:25683:888584 */ t101258.s0.tag = EXTERNAL_SYMBOL_TYPE; t101258.s0.value.external_symbol_type = q240; /* x183362 stalin.sc:25683:888584 */ t101261.s0.tag = EXTERNAL_SYMBOL_TYPE; t101261.s0.value.external_symbol_type = q293; /* x183363 stalin.sc:25683:888584 */ t101262.s0.tag = EXTERNAL_SYMBOL_TYPE; t101262.s0.value.external_symbol_type = q273; /* x183364 stalin.sc:25683:888584 */ t101262.s1.tag = NULL_TYPE; /* x183365 stalin.sc:25683:888584 */ t101261.s1.tag = STRUCTURE_TYPE24753; t101261.s1.value.structure_type24753 = &t101262; /* x183366 stalin.sc:25683:888584 */ t101260.s0.tag = STRUCTURE_TYPE24753; t101260.s0.value.structure_type24753 = &t101261; /* x183367 stalin.sc:25683:888584 */ t101264.s0.tag = EXTERNAL_SYMBOL_TYPE; t101264.s0.value.external_symbol_type = q287; /* x183368 stalin.sc:25683:888584 */ t101264.s1.tag = NULL_TYPE; /* x183369 stalin.sc:25683:888584 */ t101263.s0.tag = STRUCTURE_TYPE24753; t101263.s0.value.structure_type24753 = &t101264; /* x183370 stalin.sc:25683:888584 */ t101263.s1.tag = NULL_TYPE; /* x183371 stalin.sc:25683:888584 */ t101260.s1.tag = STRUCTURE_TYPE24753; t101260.s1.value.structure_type24753 = &t101263; /* x183372 stalin.sc:25683:888584 */ t101259.s0.tag = STRUCTURE_TYPE24753; t101259.s0.value.structure_type24753 = &t101260; /* x183373 stalin.sc:25683:888584 */ t101267.s0.tag = EXTERNAL_SYMBOL_TYPE; t101267.s0.value.external_symbol_type = q263; /* x183374 stalin.sc:25683:888584 */ t101268.s0.tag = EXTERNAL_SYMBOL_TYPE; t101268.s0.value.external_symbol_type = q273; /* x183375 stalin.sc:25683:888584 */ t101269.s0.tag = ((unsigned)((unsigned char)'#'))<<2; /* x183376 stalin.sc:25683:888584 */ t101269.s1.tag = NULL_TYPE; /* x183377 stalin.sc:25683:888584 */ t101268.s1.tag = STRUCTURE_TYPE24753; t101268.s1.value.structure_type24753 = &t101269; /* x183378 stalin.sc:25683:888584 */ t101267.s1.tag = STRUCTURE_TYPE24753; t101267.s1.value.structure_type24753 = &t101268; /* x183379 stalin.sc:25683:888584 */ t101266.s0.tag = STRUCTURE_TYPE24753; t101266.s0.value.structure_type24753 = &t101267; /* x183380 stalin.sc:25683:888584 */ t101271.s0.tag = EXTERNAL_SYMBOL_TYPE; t101271.s0.value.external_symbol_type = q43; /* x183381 stalin.sc:25683:888584 */ t101273.s0.tag = EXTERNAL_SYMBOL_TYPE; t101273.s0.value.external_symbol_type = q120; /* x183382 stalin.sc:25683:888584 */ t101274.s0.tag = EXTERNAL_SYMBOL_TYPE; t101274.s0.value.external_symbol_type = q308; /* x183383 stalin.sc:25683:888584 */ t101275.s0.tag = EXTERNAL_SYMBOL_TYPE; t101275.s0.value.external_symbol_type = q330; /* x183384 stalin.sc:25683:888584 */ t101275.s1.tag = NULL_TYPE; /* x183385 stalin.sc:25683:888584 */ t101274.s1.tag = STRUCTURE_TYPE24753; t101274.s1.value.structure_type24753 = &t101275; /* x183386 stalin.sc:25683:888584 */ t101273.s1.tag = STRUCTURE_TYPE24753; t101273.s1.value.structure_type24753 = &t101274; /* x183387 stalin.sc:25683:888584 */ t101272.s0.tag = STRUCTURE_TYPE24753; t101272.s0.value.structure_type24753 = &t101273; /* x183388 stalin.sc:25683:888584 */ t101276.s0.tag = FALSE_TYPE; /* x183389 stalin.sc:25683:888584 */ t101278.s0.tag = EXTERNAL_SYMBOL_TYPE; t101278.s0.value.external_symbol_type = q242; /* x183390 stalin.sc:25683:888584 */ t101281.s0.tag = EXTERNAL_SYMBOL_TYPE; t101281.s0.value.external_symbol_type = q274; /* x183391 stalin.sc:25683:888584 */ t101283.s0.tag = EXTERNAL_SYMBOL_TYPE; t101283.s0.value.external_symbol_type = q163; /* x183392 stalin.sc:25683:888584 */ t101284.s0.tag = EXTERNAL_SYMBOL_TYPE; t101284.s0.value.external_symbol_type = q161; /* x183393 stalin.sc:25683:888584 */ t101285.s0.tag = EXTERNAL_SYMBOL_TYPE; t101285.s0.value.external_symbol_type = q308; /* x183394 stalin.sc:25683:888584 */ t101285.s1.tag = NULL_TYPE; /* x183395 stalin.sc:25683:888584 */ t101284.s1.tag = STRUCTURE_TYPE24753; t101284.s1.value.structure_type24753 = &t101285; /* x183396 stalin.sc:25683:888584 */ t101283.s1.tag = STRUCTURE_TYPE24753; t101283.s1.value.structure_type24753 = &t101284; /* x183397 stalin.sc:25683:888584 */ t101282.s0.tag = STRUCTURE_TYPE24753; t101282.s0.value.structure_type24753 = &t101283; /* x183398 stalin.sc:25683:888584 */ t101282.s1.tag = NULL_TYPE; /* x183399 stalin.sc:25683:888584 */ t101281.s1.tag = STRUCTURE_TYPE24753; t101281.s1.value.structure_type24753 = &t101282; /* x183400 stalin.sc:25683:888584 */ t101280.s0.tag = STRUCTURE_TYPE24753; t101280.s0.value.structure_type24753 = &t101281; /* x183401 stalin.sc:25683:888584 */ t101280.s1.tag = NULL_TYPE; /* x183402 stalin.sc:25683:888584 */ t101279.s0.tag = STRUCTURE_TYPE24753; t101279.s0.value.structure_type24753 = &t101280; /* x183403 stalin.sc:25683:888584 */ t101287.s0.tag = EXTERNAL_SYMBOL_TYPE; t101287.s0.value.external_symbol_type = q42; /* x183404 stalin.sc:25683:888584 */ t101288.s0.tag = EXTERNAL_SYMBOL_TYPE; t101288.s0.value.external_symbol_type = q308; /* x183405 stalin.sc:25683:888584 */ t101290.s0.tag = EXTERNAL_SYMBOL_TYPE; t101290.s0.value.external_symbol_type = q4; /* x183406 stalin.sc:25683:888584 */ t101291.s0.tag = EXTERNAL_SYMBOL_TYPE; t101291.s0.value.external_symbol_type = q308; /* x183407 stalin.sc:25683:888584 */ t101292.s0.tag = FIXNUM_TYPE; t101292.s0.value.fixnum_type = 1; /* x183408 stalin.sc:25683:888584 */ t101292.s1.tag = NULL_TYPE; /* x183409 stalin.sc:25683:888584 */ t101291.s1.tag = STRUCTURE_TYPE24753; t101291.s1.value.structure_type24753 = &t101292; /* x183410 stalin.sc:25683:888584 */ t101290.s1.tag = STRUCTURE_TYPE24753; t101290.s1.value.structure_type24753 = &t101291; /* x183411 stalin.sc:25683:888584 */ t101289.s0.tag = STRUCTURE_TYPE24753; t101289.s0.value.structure_type24753 = &t101290; /* x183412 stalin.sc:25683:888584 */ t101289.s1.tag = NULL_TYPE; /* x183413 stalin.sc:25683:888584 */ t101288.s1.tag = STRUCTURE_TYPE24753; t101288.s1.value.structure_type24753 = &t101289; /* x183414 stalin.sc:25683:888584 */ t101287.s1.tag = STRUCTURE_TYPE24753; t101287.s1.value.structure_type24753 = &t101288; /* x183415 stalin.sc:25683:888584 */ t101286.s0.tag = STRUCTURE_TYPE24753; t101286.s0.value.structure_type24753 = &t101287; /* x183416 stalin.sc:25683:888584 */ t101294.s0.tag = EXTERNAL_SYMBOL_TYPE; t101294.s0.value.external_symbol_type = q240; /* x183417 stalin.sc:25683:888584 */ t101297.s0.tag = EXTERNAL_SYMBOL_TYPE; t101297.s0.value.external_symbol_type = q241; /* x183418 stalin.sc:25683:888584 */ t101299.s0.tag = EXTERNAL_SYMBOL_TYPE; t101299.s0.value.external_symbol_type = q263; /* x183419 stalin.sc:25683:888584 */ t101300.s0.tag = EXTERNAL_SYMBOL_TYPE; t101300.s0.value.external_symbol_type = q274; /* x183420 stalin.sc:25683:888584 */ t101301.s0.tag = ((unsigned)((unsigned char)'b'))<<2; /* x183421 stalin.sc:25683:888584 */ t101301.s1.tag = NULL_TYPE; /* x183422 stalin.sc:25683:888584 */ t101300.s1.tag = STRUCTURE_TYPE24753; t101300.s1.value.structure_type24753 = &t101301; /* x183423 stalin.sc:25683:888584 */ t101299.s1.tag = STRUCTURE_TYPE24753; t101299.s1.value.structure_type24753 = &t101300; /* x183424 stalin.sc:25683:888584 */ t101298.s0.tag = STRUCTURE_TYPE24753; t101298.s0.value.structure_type24753 = &t101299; /* x183425 stalin.sc:25683:888584 */ t101303.s0.tag = EXTERNAL_SYMBOL_TYPE; t101303.s0.value.external_symbol_type = q263; /* x183426 stalin.sc:25683:888584 */ t101304.s0.tag = EXTERNAL_SYMBOL_TYPE; t101304.s0.value.external_symbol_type = q274; /* x183427 stalin.sc:25683:888584 */ t101305.s0.tag = ((unsigned)((unsigned char)'B'))<<2; /* x183428 stalin.sc:25683:888584 */ t101305.s1.tag = NULL_TYPE; /* x183429 stalin.sc:25683:888584 */ t101304.s1.tag = STRUCTURE_TYPE24753; t101304.s1.value.structure_type24753 = &t101305; /* x183430 stalin.sc:25683:888584 */ t101303.s1.tag = STRUCTURE_TYPE24753; t101303.s1.value.structure_type24753 = &t101304; /* x183431 stalin.sc:25683:888584 */ t101302.s0.tag = STRUCTURE_TYPE24753; t101302.s0.value.structure_type24753 = &t101303; /* x183432 stalin.sc:25683:888584 */ t101302.s1.tag = NULL_TYPE; /* x183433 stalin.sc:25683:888584 */ t101298.s1.tag = STRUCTURE_TYPE24753; t101298.s1.value.structure_type24753 = &t101302; /* x183434 stalin.sc:25683:888584 */ t101297.s1.tag = STRUCTURE_TYPE24753; t101297.s1.value.structure_type24753 = &t101298; /* x183435 stalin.sc:25683:888584 */ t101296.s0.tag = STRUCTURE_TYPE24753; t101296.s0.value.structure_type24753 = &t101297; /* x183436 stalin.sc:25683:888584 */ t101307.s0.tag = EXTERNAL_SYMBOL_TYPE; t101307.s0.value.external_symbol_type = q43; /* x183437 stalin.sc:25683:888584 */ t101309.s0.tag = EXTERNAL_SYMBOL_TYPE; t101309.s0.value.external_symbol_type = q120; /* x183438 stalin.sc:25683:888584 */ t101310.s0.tag = EXTERNAL_SYMBOL_TYPE; t101310.s0.value.external_symbol_type = q308; /* x183439 stalin.sc:25683:888584 */ t101311.s0.tag = EXTERNAL_SYMBOL_TYPE; t101311.s0.value.external_symbol_type = q330; /* x183440 stalin.sc:25683:888584 */ t101311.s1.tag = NULL_TYPE; /* x183441 stalin.sc:25683:888584 */ t101310.s1.tag = STRUCTURE_TYPE24753; t101310.s1.value.structure_type24753 = &t101311; /* x183442 stalin.sc:25683:888584 */ t101309.s1.tag = STRUCTURE_TYPE24753; t101309.s1.value.structure_type24753 = &t101310; /* x183443 stalin.sc:25683:888584 */ t101308.s0.tag = STRUCTURE_TYPE24753; t101308.s0.value.structure_type24753 = &t101309; /* x183444 stalin.sc:25683:888584 */ t101312.s0.tag = FALSE_TYPE; /* x183445 stalin.sc:25683:888584 */ t101314.s0.tag = EXTERNAL_SYMBOL_TYPE; t101314.s0.value.external_symbol_type = q242; /* x183446 stalin.sc:25683:888584 */ t101317.s0.tag = EXTERNAL_SYMBOL_TYPE; t101317.s0.value.external_symbol_type = q275; /* x183447 stalin.sc:25683:888584 */ t101319.s0.tag = EXTERNAL_SYMBOL_TYPE; t101319.s0.value.external_symbol_type = q163; /* x183448 stalin.sc:25683:888584 */ t101320.s0.tag = EXTERNAL_SYMBOL_TYPE; t101320.s0.value.external_symbol_type = q161; /* x183449 stalin.sc:25683:888584 */ t101321.s0.tag = EXTERNAL_SYMBOL_TYPE; t101321.s0.value.external_symbol_type = q308; /* x183450 stalin.sc:25683:888584 */ t101321.s1.tag = NULL_TYPE; /* x183451 stalin.sc:25683:888584 */ t101320.s1.tag = STRUCTURE_TYPE24753; t101320.s1.value.structure_type24753 = &t101321; /* x183452 stalin.sc:25683:888584 */ t101319.s1.tag = STRUCTURE_TYPE24753; t101319.s1.value.structure_type24753 = &t101320; /* x183453 stalin.sc:25683:888584 */ t101318.s0.tag = STRUCTURE_TYPE24753; t101318.s0.value.structure_type24753 = &t101319; /* x183454 stalin.sc:25683:888584 */ t101318.s1.tag = NULL_TYPE; /* x183455 stalin.sc:25683:888584 */ t101317.s1.tag = STRUCTURE_TYPE24753; t101317.s1.value.structure_type24753 = &t101318; /* x183456 stalin.sc:25683:888584 */ t101316.s0.tag = STRUCTURE_TYPE24753; t101316.s0.value.structure_type24753 = &t101317; /* x183457 stalin.sc:25683:888584 */ t101316.s1.tag = NULL_TYPE; /* x183458 stalin.sc:25683:888584 */ t101315.s0.tag = STRUCTURE_TYPE24753; t101315.s0.value.structure_type24753 = &t101316; /* x183459 stalin.sc:25683:888584 */ t101323.s0.tag = EXTERNAL_SYMBOL_TYPE; t101323.s0.value.external_symbol_type = q42; /* x183460 stalin.sc:25683:888584 */ t101324.s0.tag = EXTERNAL_SYMBOL_TYPE; t101324.s0.value.external_symbol_type = q308; /* x183461 stalin.sc:25683:888584 */ t101326.s0.tag = EXTERNAL_SYMBOL_TYPE; t101326.s0.value.external_symbol_type = q4; /* x183462 stalin.sc:25683:888584 */ t101327.s0.tag = EXTERNAL_SYMBOL_TYPE; t101327.s0.value.external_symbol_type = q308; /* x183463 stalin.sc:25683:888584 */ t101328.s0.tag = FIXNUM_TYPE; t101328.s0.value.fixnum_type = 1; /* x183464 stalin.sc:25683:888584 */ t101328.s1.tag = NULL_TYPE; /* x183465 stalin.sc:25683:888584 */ t101327.s1.tag = STRUCTURE_TYPE24753; t101327.s1.value.structure_type24753 = &t101328; /* x183466 stalin.sc:25683:888584 */ t101326.s1.tag = STRUCTURE_TYPE24753; t101326.s1.value.structure_type24753 = &t101327; /* x183467 stalin.sc:25683:888584 */ t101325.s0.tag = STRUCTURE_TYPE24753; t101325.s0.value.structure_type24753 = &t101326; /* x183468 stalin.sc:25683:888584 */ t101325.s1.tag = NULL_TYPE; /* x183469 stalin.sc:25683:888584 */ t101324.s1.tag = STRUCTURE_TYPE24753; t101324.s1.value.structure_type24753 = &t101325; /* x183470 stalin.sc:25683:888584 */ t101323.s1.tag = STRUCTURE_TYPE24753; t101323.s1.value.structure_type24753 = &t101324; /* x183471 stalin.sc:25683:888584 */ t101322.s0.tag = STRUCTURE_TYPE24753; t101322.s0.value.structure_type24753 = &t101323; /* x183472 stalin.sc:25683:888584 */ t101330.s0.tag = EXTERNAL_SYMBOL_TYPE; t101330.s0.value.external_symbol_type = q240; /* x183473 stalin.sc:25683:888584 */ t101333.s0.tag = EXTERNAL_SYMBOL_TYPE; t101333.s0.value.external_symbol_type = q263; /* x183474 stalin.sc:25683:888584 */ t101334.s0.tag = EXTERNAL_SYMBOL_TYPE; t101334.s0.value.external_symbol_type = q275; /* x183475 stalin.sc:25683:888584 */ t101335.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x183476 stalin.sc:25683:888584 */ t101335.s1.tag = NULL_TYPE; /* x183477 stalin.sc:25683:888584 */ t101334.s1.tag = STRUCTURE_TYPE24753; t101334.s1.value.structure_type24753 = &t101335; /* x183478 stalin.sc:25683:888584 */ t101333.s1.tag = STRUCTURE_TYPE24753; t101333.s1.value.structure_type24753 = &t101334; /* x183479 stalin.sc:25683:888584 */ t101332.s0.tag = STRUCTURE_TYPE24753; t101332.s0.value.structure_type24753 = &t101333; /* x183480 stalin.sc:25683:888584 */ t101337.s0.tag = EXTERNAL_SYMBOL_TYPE; t101337.s0.value.external_symbol_type = q332; /* x183481 stalin.sc:25683:888584 */ t101338.s0.tag = FIXNUM_TYPE; t101338.s0.value.fixnum_type = 0; /* x183482 stalin.sc:25683:888584 */ t101338.s1.tag = NULL_TYPE; /* x183483 stalin.sc:25683:888584 */ t101337.s1.tag = STRUCTURE_TYPE24753; t101337.s1.value.structure_type24753 = &t101338; /* x183484 stalin.sc:25683:888584 */ t101336.s0.tag = STRUCTURE_TYPE24753; t101336.s0.value.structure_type24753 = &t101337; /* x183485 stalin.sc:25683:888584 */ t101336.s1.tag = NULL_TYPE; /* x183486 stalin.sc:25683:888584 */ t101332.s1.tag = STRUCTURE_TYPE24753; t101332.s1.value.structure_type24753 = &t101336; /* x183487 stalin.sc:25683:888584 */ t101331.s0.tag = STRUCTURE_TYPE24753; t101331.s0.value.structure_type24753 = &t101332; /* x183488 stalin.sc:25683:888584 */ t101341.s0.tag = EXTERNAL_SYMBOL_TYPE; t101341.s0.value.external_symbol_type = q263; /* x183489 stalin.sc:25683:888584 */ t101342.s0.tag = EXTERNAL_SYMBOL_TYPE; t101342.s0.value.external_symbol_type = q275; /* x183490 stalin.sc:25683:888584 */ t101343.s0.tag = ((unsigned)((unsigned char)'1'))<<2; /* x183491 stalin.sc:25683:888584 */ t101343.s1.tag = NULL_TYPE; /* x183492 stalin.sc:25683:888584 */ t101342.s1.tag = STRUCTURE_TYPE24753; t101342.s1.value.structure_type24753 = &t101343; /* x183493 stalin.sc:25683:888584 */ t101341.s1.tag = STRUCTURE_TYPE24753; t101341.s1.value.structure_type24753 = &t101342; /* x183494 stalin.sc:25683:888584 */ t101340.s0.tag = STRUCTURE_TYPE24753; t101340.s0.value.structure_type24753 = &t101341; /* x183495 stalin.sc:25683:888584 */ t101345.s0.tag = EXTERNAL_SYMBOL_TYPE; t101345.s0.value.external_symbol_type = q332; /* x183496 stalin.sc:25683:888584 */ t101346.s0.tag = FIXNUM_TYPE; t101346.s0.value.fixnum_type = 1; /* x183497 stalin.sc:25683:888584 */ t101346.s1.tag = NULL_TYPE; /* x183498 stalin.sc:25683:888584 */ t101345.s1.tag = STRUCTURE_TYPE24753; t101345.s1.value.structure_type24753 = &t101346; /* x183499 stalin.sc:25683:888584 */ t101344.s0.tag = STRUCTURE_TYPE24753; t101344.s0.value.structure_type24753 = &t101345; /* x183500 stalin.sc:25683:888584 */ t101344.s1.tag = NULL_TYPE; /* x183501 stalin.sc:25683:888584 */ t101340.s1.tag = STRUCTURE_TYPE24753; t101340.s1.value.structure_type24753 = &t101344; /* x183502 stalin.sc:25683:888584 */ t101339.s0.tag = STRUCTURE_TYPE24753; t101339.s0.value.structure_type24753 = &t101340; /* x183503 stalin.sc:25683:888584 */ t101349.s0.tag = EXTERNAL_SYMBOL_TYPE; t101349.s0.value.external_symbol_type = q263; /* x183504 stalin.sc:25683:888584 */ t101350.s0.tag = EXTERNAL_SYMBOL_TYPE; t101350.s0.value.external_symbol_type = q275; /* x183505 stalin.sc:25683:888584 */ t101351.s0.tag = ((unsigned)((unsigned char)'+'))<<2; /* x183506 stalin.sc:25683:888584 */ t101351.s1.tag = NULL_TYPE; /* x183507 stalin.sc:25683:888584 */ t101350.s1.tag = STRUCTURE_TYPE24753; t101350.s1.value.structure_type24753 = &t101351; /* x183508 stalin.sc:25683:888584 */ t101349.s1.tag = STRUCTURE_TYPE24753; t101349.s1.value.structure_type24753 = &t101350; /* x183509 stalin.sc:25683:888584 */ t101348.s0.tag = STRUCTURE_TYPE24753; t101348.s0.value.structure_type24753 = &t101349; /* x183510 stalin.sc:25683:888584 */ t101353.s0.tag = EXTERNAL_SYMBOL_TYPE; t101353.s0.value.external_symbol_type = q43; /* x183511 stalin.sc:25683:888584 */ t101355.s0.tag = EXTERNAL_SYMBOL_TYPE; t101355.s0.value.external_symbol_type = q120; /* x183512 stalin.sc:25683:888584 */ t101356.s0.tag = EXTERNAL_SYMBOL_TYPE; t101356.s0.value.external_symbol_type = q308; /* x183513 stalin.sc:25683:888584 */ t101357.s0.tag = EXTERNAL_SYMBOL_TYPE; t101357.s0.value.external_symbol_type = q330; /* x183514 stalin.sc:25683:888584 */ t101357.s1.tag = NULL_TYPE; /* x183515 stalin.sc:25683:888584 */ t101356.s1.tag = STRUCTURE_TYPE24753; t101356.s1.value.structure_type24753 = &t101357; /* x183516 stalin.sc:25683:888584 */ t101355.s1.tag = STRUCTURE_TYPE24753; t101355.s1.value.structure_type24753 = &t101356; /* x183517 stalin.sc:25683:888584 */ t101354.s0.tag = STRUCTURE_TYPE24753; t101354.s0.value.structure_type24753 = &t101355; /* x183518 stalin.sc:25683:888584 */ t101358.s0.tag = FALSE_TYPE; /* x183519 stalin.sc:25683:888584 */ t101360.s0.tag = EXTERNAL_SYMBOL_TYPE; t101360.s0.value.external_symbol_type = q242; /* x183520 stalin.sc:25683:888584 */ t101363.s0.tag = EXTERNAL_SYMBOL_TYPE; t101363.s0.value.external_symbol_type = q297; /* x183521 stalin.sc:25683:888584 */ t101365.s0.tag = EXTERNAL_SYMBOL_TYPE; t101365.s0.value.external_symbol_type = q163; /* x183522 stalin.sc:25683:888584 */ t101366.s0.tag = EXTERNAL_SYMBOL_TYPE; t101366.s0.value.external_symbol_type = q161; /* x183523 stalin.sc:25683:888584 */ t101367.s0.tag = EXTERNAL_SYMBOL_TYPE; t101367.s0.value.external_symbol_type = q308; /* x183524 stalin.sc:25683:888584 */ t101367.s1.tag = NULL_TYPE; /* x183525 stalin.sc:25683:888584 */ t101366.s1.tag = STRUCTURE_TYPE24753; t101366.s1.value.structure_type24753 = &t101367; /* x183526 stalin.sc:25683:888584 */ t101365.s1.tag = STRUCTURE_TYPE24753; t101365.s1.value.structure_type24753 = &t101366; /* x183527 stalin.sc:25683:888584 */ t101364.s0.tag = STRUCTURE_TYPE24753; t101364.s0.value.structure_type24753 = &t101365; /* x183528 stalin.sc:25683:888584 */ t101364.s1.tag = NULL_TYPE; /* x183529 stalin.sc:25683:888584 */ t101363.s1.tag = STRUCTURE_TYPE24753; t101363.s1.value.structure_type24753 = &t101364; /* x183530 stalin.sc:25683:888584 */ t101362.s0.tag = STRUCTURE_TYPE24753; t101362.s0.value.structure_type24753 = &t101363; /* x183531 stalin.sc:25683:888584 */ t101362.s1.tag = NULL_TYPE; /* x183532 stalin.sc:25683:888584 */ t101361.s0.tag = STRUCTURE_TYPE24753; t101361.s0.value.structure_type24753 = &t101362; /* x183533 stalin.sc:25683:888584 */ t101369.s0.tag = EXTERNAL_SYMBOL_TYPE; t101369.s0.value.external_symbol_type = q42; /* x183534 stalin.sc:25683:888584 */ t101370.s0.tag = EXTERNAL_SYMBOL_TYPE; t101370.s0.value.external_symbol_type = q308; /* x183535 stalin.sc:25683:888584 */ t101372.s0.tag = EXTERNAL_SYMBOL_TYPE; t101372.s0.value.external_symbol_type = q4; /* x183536 stalin.sc:25683:888584 */ t101373.s0.tag = EXTERNAL_SYMBOL_TYPE; t101373.s0.value.external_symbol_type = q308; /* x183537 stalin.sc:25683:888584 */ t101374.s0.tag = FIXNUM_TYPE; t101374.s0.value.fixnum_type = 1; /* x183538 stalin.sc:25683:888584 */ t101374.s1.tag = NULL_TYPE; /* x183539 stalin.sc:25683:888584 */ t101373.s1.tag = STRUCTURE_TYPE24753; t101373.s1.value.structure_type24753 = &t101374; /* x183540 stalin.sc:25683:888584 */ t101372.s1.tag = STRUCTURE_TYPE24753; t101372.s1.value.structure_type24753 = &t101373; /* x183541 stalin.sc:25683:888584 */ t101371.s0.tag = STRUCTURE_TYPE24753; t101371.s0.value.structure_type24753 = &t101372; /* x183542 stalin.sc:25683:888584 */ t101371.s1.tag = NULL_TYPE; /* x183543 stalin.sc:25683:888584 */ t101370.s1.tag = STRUCTURE_TYPE24753; t101370.s1.value.structure_type24753 = &t101371; /* x183544 stalin.sc:25683:888584 */ t101369.s1.tag = STRUCTURE_TYPE24753; t101369.s1.value.structure_type24753 = &t101370; /* x183545 stalin.sc:25683:888584 */ t101368.s0.tag = STRUCTURE_TYPE24753; t101368.s0.value.structure_type24753 = &t101369; /* x183546 stalin.sc:25683:888584 */ t101376.s0.tag = EXTERNAL_SYMBOL_TYPE; t101376.s0.value.external_symbol_type = q240; /* x183547 stalin.sc:25683:888584 */ t101379.s0.tag = EXTERNAL_SYMBOL_TYPE; t101379.s0.value.external_symbol_type = q263; /* x183548 stalin.sc:25683:888584 */ t101380.s0.tag = EXTERNAL_SYMBOL_TYPE; t101380.s0.value.external_symbol_type = q297; /* x183549 stalin.sc:25683:888584 */ t101381.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x183550 stalin.sc:25683:888584 */ t101381.s1.tag = NULL_TYPE; /* x183551 stalin.sc:25683:888584 */ t101380.s1.tag = STRUCTURE_TYPE24753; t101380.s1.value.structure_type24753 = &t101381; /* x183552 stalin.sc:25683:888584 */ t101379.s1.tag = STRUCTURE_TYPE24753; t101379.s1.value.structure_type24753 = &t101380; /* x183553 stalin.sc:25683:888584 */ t101378.s0.tag = STRUCTURE_TYPE24753; t101378.s0.value.structure_type24753 = &t101379; /* x183554 stalin.sc:25683:888584 */ t101383.s0.tag = EXTERNAL_SYMBOL_TYPE; t101383.s0.value.external_symbol_type = q332; /* x183555 stalin.sc:25683:888584 */ t101384.s0.tag = FIXNUM_TYPE; t101384.s0.value.fixnum_type = 0; /* x183556 stalin.sc:25683:888584 */ t101384.s1.tag = NULL_TYPE; /* x183557 stalin.sc:25683:888584 */ t101383.s1.tag = STRUCTURE_TYPE24753; t101383.s1.value.structure_type24753 = &t101384; /* x183558 stalin.sc:25683:888584 */ t101382.s0.tag = STRUCTURE_TYPE24753; t101382.s0.value.structure_type24753 = &t101383; /* x183559 stalin.sc:25683:888584 */ t101382.s1.tag = NULL_TYPE; /* x183560 stalin.sc:25683:888584 */ t101378.s1.tag = STRUCTURE_TYPE24753; t101378.s1.value.structure_type24753 = &t101382; /* x183561 stalin.sc:25683:888584 */ t101377.s0.tag = STRUCTURE_TYPE24753; t101377.s0.value.structure_type24753 = &t101378; /* x183562 stalin.sc:25683:888584 */ t101387.s0.tag = EXTERNAL_SYMBOL_TYPE; t101387.s0.value.external_symbol_type = q263; /* x183563 stalin.sc:25683:888584 */ t101388.s0.tag = EXTERNAL_SYMBOL_TYPE; t101388.s0.value.external_symbol_type = q297; /* x183564 stalin.sc:25683:888584 */ t101389.s0.tag = ((unsigned)((unsigned char)'1'))<<2; /* x183565 stalin.sc:25683:888584 */ t101389.s1.tag = NULL_TYPE; /* x183566 stalin.sc:25683:888584 */ t101388.s1.tag = STRUCTURE_TYPE24753; t101388.s1.value.structure_type24753 = &t101389; /* x183567 stalin.sc:25683:888584 */ t101387.s1.tag = STRUCTURE_TYPE24753; t101387.s1.value.structure_type24753 = &t101388; /* x183568 stalin.sc:25683:888584 */ t101386.s0.tag = STRUCTURE_TYPE24753; t101386.s0.value.structure_type24753 = &t101387; /* x183569 stalin.sc:25683:888584 */ t101391.s0.tag = EXTERNAL_SYMBOL_TYPE; t101391.s0.value.external_symbol_type = q332; /* x183570 stalin.sc:25683:888584 */ t101392.s0.tag = FIXNUM_TYPE; t101392.s0.value.fixnum_type = 1; /* x183571 stalin.sc:25683:888584 */ t101392.s1.tag = NULL_TYPE; /* x183572 stalin.sc:25683:888584 */ t101391.s1.tag = STRUCTURE_TYPE24753; t101391.s1.value.structure_type24753 = &t101392; /* x183573 stalin.sc:25683:888584 */ t101390.s0.tag = STRUCTURE_TYPE24753; t101390.s0.value.structure_type24753 = &t101391; /* x183574 stalin.sc:25683:888584 */ t101390.s1.tag = NULL_TYPE; /* x183575 stalin.sc:25683:888584 */ t101386.s1.tag = STRUCTURE_TYPE24753; t101386.s1.value.structure_type24753 = &t101390; /* x183576 stalin.sc:25683:888584 */ t101385.s0.tag = STRUCTURE_TYPE24753; t101385.s0.value.structure_type24753 = &t101386; /* x183577 stalin.sc:25683:888584 */ t101394.s0.tag = EXTERNAL_SYMBOL_TYPE; t101394.s0.value.external_symbol_type = q95; /* x183578 stalin.sc:25683:888584 */ t101395.s0.tag = FALSE_TYPE; /* x183579 stalin.sc:25683:888584 */ t101395.s1.tag = NULL_TYPE; /* x183580 stalin.sc:25683:888584 */ t101394.s1.tag = STRUCTURE_TYPE24753; t101394.s1.value.structure_type24753 = &t101395; /* x183581 stalin.sc:25683:888584 */ t101393.s0.tag = STRUCTURE_TYPE24753; t101393.s0.value.structure_type24753 = &t101394; /* x183582 stalin.sc:25683:888584 */ t101393.s1.tag = NULL_TYPE; /* x183583 stalin.sc:25683:888584 */ t101385.s1.tag = STRUCTURE_TYPE24753; t101385.s1.value.structure_type24753 = &t101393; /* x183584 stalin.sc:25683:888584 */ t101377.s1.tag = STRUCTURE_TYPE24753; t101377.s1.value.structure_type24753 = &t101385; /* x183585 stalin.sc:25683:888584 */ t101376.s1.tag = STRUCTURE_TYPE24753; t101376.s1.value.structure_type24753 = &t101377; /* x183586 stalin.sc:25683:888584 */ t101375.s0.tag = STRUCTURE_TYPE24753; t101375.s0.value.structure_type24753 = &t101376; /* x183587 stalin.sc:25683:888584 */ t101375.s1.tag = NULL_TYPE; /* x183588 stalin.sc:25683:888584 */ t101368.s1.tag = STRUCTURE_TYPE24753; t101368.s1.value.structure_type24753 = &t101375; /* x183589 stalin.sc:25683:888584 */ t101361.s1.tag = STRUCTURE_TYPE24753; t101361.s1.value.structure_type24753 = &t101368; /* x183590 stalin.sc:25683:888584 */ t101360.s1.tag = STRUCTURE_TYPE24753; t101360.s1.value.structure_type24753 = &t101361; /* x183591 stalin.sc:25683:888584 */ t101359.s0.tag = STRUCTURE_TYPE24753; t101359.s0.value.structure_type24753 = &t101360; /* x183592 stalin.sc:25683:888584 */ t101359.s1.tag = NULL_TYPE; /* x183593 stalin.sc:25683:888584 */ t101358.s1.tag = STRUCTURE_TYPE24753; t101358.s1.value.structure_type24753 = &t101359; /* x183594 stalin.sc:25683:888584 */ t101354.s1.tag = STRUCTURE_TYPE24753; t101354.s1.value.structure_type24753 = &t101358; /* x183595 stalin.sc:25683:888584 */ t101353.s1.tag = STRUCTURE_TYPE24753; t101353.s1.value.structure_type24753 = &t101354; /* x183596 stalin.sc:25683:888584 */ t101352.s0.tag = STRUCTURE_TYPE24753; t101352.s0.value.structure_type24753 = &t101353; /* x183597 stalin.sc:25683:888584 */ t101352.s1.tag = NULL_TYPE; /* x183598 stalin.sc:25683:888584 */ t101348.s1.tag = STRUCTURE_TYPE24753; t101348.s1.value.structure_type24753 = &t101352; /* x183599 stalin.sc:25683:888584 */ t101347.s0.tag = STRUCTURE_TYPE24753; t101347.s0.value.structure_type24753 = &t101348; /* x183600 stalin.sc:25683:888584 */ t101398.s0.tag = EXTERNAL_SYMBOL_TYPE; t101398.s0.value.external_symbol_type = q263; /* x183601 stalin.sc:25683:888584 */ t101399.s0.tag = EXTERNAL_SYMBOL_TYPE; t101399.s0.value.external_symbol_type = q275; /* x183602 stalin.sc:25683:888584 */ t101400.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x183603 stalin.sc:25683:888584 */ t101400.s1.tag = NULL_TYPE; /* x183604 stalin.sc:25683:888584 */ t101399.s1.tag = STRUCTURE_TYPE24753; t101399.s1.value.structure_type24753 = &t101400; /* x183605 stalin.sc:25683:888584 */ t101398.s1.tag = STRUCTURE_TYPE24753; t101398.s1.value.structure_type24753 = &t101399; /* x183606 stalin.sc:25683:888584 */ t101397.s0.tag = STRUCTURE_TYPE24753; t101397.s0.value.structure_type24753 = &t101398; /* x183607 stalin.sc:25683:888584 */ t101402.s0.tag = EXTERNAL_SYMBOL_TYPE; t101402.s0.value.external_symbol_type = q43; /* x183608 stalin.sc:25683:888584 */ t101404.s0.tag = EXTERNAL_SYMBOL_TYPE; t101404.s0.value.external_symbol_type = q120; /* x183609 stalin.sc:25683:888584 */ t101405.s0.tag = EXTERNAL_SYMBOL_TYPE; t101405.s0.value.external_symbol_type = q308; /* x183610 stalin.sc:25683:888584 */ t101406.s0.tag = EXTERNAL_SYMBOL_TYPE; t101406.s0.value.external_symbol_type = q330; /* x183611 stalin.sc:25683:888584 */ t101406.s1.tag = NULL_TYPE; /* x183612 stalin.sc:25683:888584 */ t101405.s1.tag = STRUCTURE_TYPE24753; t101405.s1.value.structure_type24753 = &t101406; /* x183613 stalin.sc:25683:888584 */ t101404.s1.tag = STRUCTURE_TYPE24753; t101404.s1.value.structure_type24753 = &t101405; /* x183614 stalin.sc:25683:888584 */ t101403.s0.tag = STRUCTURE_TYPE24753; t101403.s0.value.structure_type24753 = &t101404; /* x183615 stalin.sc:25683:888584 */ t101407.s0.tag = FALSE_TYPE; /* x183616 stalin.sc:25683:888584 */ t101409.s0.tag = EXTERNAL_SYMBOL_TYPE; t101409.s0.value.external_symbol_type = q242; /* x183617 stalin.sc:25683:888584 */ t101412.s0.tag = EXTERNAL_SYMBOL_TYPE; t101412.s0.value.external_symbol_type = q297; /* x183618 stalin.sc:25683:888584 */ t101414.s0.tag = EXTERNAL_SYMBOL_TYPE; t101414.s0.value.external_symbol_type = q163; /* x183619 stalin.sc:25683:888584 */ t101415.s0.tag = EXTERNAL_SYMBOL_TYPE; t101415.s0.value.external_symbol_type = q161; /* x183620 stalin.sc:25683:888584 */ t101416.s0.tag = EXTERNAL_SYMBOL_TYPE; t101416.s0.value.external_symbol_type = q308; /* x183621 stalin.sc:25683:888584 */ t101416.s1.tag = NULL_TYPE; /* x183622 stalin.sc:25683:888584 */ t101415.s1.tag = STRUCTURE_TYPE24753; t101415.s1.value.structure_type24753 = &t101416; /* x183623 stalin.sc:25683:888584 */ t101414.s1.tag = STRUCTURE_TYPE24753; t101414.s1.value.structure_type24753 = &t101415; /* x183624 stalin.sc:25683:888584 */ t101413.s0.tag = STRUCTURE_TYPE24753; t101413.s0.value.structure_type24753 = &t101414; /* x183625 stalin.sc:25683:888584 */ t101413.s1.tag = NULL_TYPE; /* x183626 stalin.sc:25683:888584 */ t101412.s1.tag = STRUCTURE_TYPE24753; t101412.s1.value.structure_type24753 = &t101413; /* x183627 stalin.sc:25683:888584 */ t101411.s0.tag = STRUCTURE_TYPE24753; t101411.s0.value.structure_type24753 = &t101412; /* x183628 stalin.sc:25683:888584 */ t101411.s1.tag = NULL_TYPE; /* x183629 stalin.sc:25683:888584 */ t101410.s0.tag = STRUCTURE_TYPE24753; t101410.s0.value.structure_type24753 = &t101411; /* x183630 stalin.sc:25683:888584 */ t101418.s0.tag = EXTERNAL_SYMBOL_TYPE; t101418.s0.value.external_symbol_type = q42; /* x183631 stalin.sc:25683:888584 */ t101419.s0.tag = EXTERNAL_SYMBOL_TYPE; t101419.s0.value.external_symbol_type = q308; /* x183632 stalin.sc:25683:888584 */ t101421.s0.tag = EXTERNAL_SYMBOL_TYPE; t101421.s0.value.external_symbol_type = q4; /* x183633 stalin.sc:25683:888584 */ t101422.s0.tag = EXTERNAL_SYMBOL_TYPE; t101422.s0.value.external_symbol_type = q308; /* x183634 stalin.sc:25683:888584 */ t101423.s0.tag = FIXNUM_TYPE; t101423.s0.value.fixnum_type = 1; /* x183635 stalin.sc:25683:888584 */ t101423.s1.tag = NULL_TYPE; /* x183636 stalin.sc:25683:888584 */ t101422.s1.tag = STRUCTURE_TYPE24753; t101422.s1.value.structure_type24753 = &t101423; /* x183637 stalin.sc:25683:888584 */ t101421.s1.tag = STRUCTURE_TYPE24753; t101421.s1.value.structure_type24753 = &t101422; /* x183638 stalin.sc:25683:888584 */ t101420.s0.tag = STRUCTURE_TYPE24753; t101420.s0.value.structure_type24753 = &t101421; /* x183639 stalin.sc:25683:888584 */ t101420.s1.tag = NULL_TYPE; /* x183640 stalin.sc:25683:888584 */ t101419.s1.tag = STRUCTURE_TYPE24753; t101419.s1.value.structure_type24753 = &t101420; /* x183641 stalin.sc:25683:888584 */ t101418.s1.tag = STRUCTURE_TYPE24753; t101418.s1.value.structure_type24753 = &t101419; /* x183642 stalin.sc:25683:888584 */ t101417.s0.tag = STRUCTURE_TYPE24753; t101417.s0.value.structure_type24753 = &t101418; /* x183643 stalin.sc:25683:888584 */ t101425.s0.tag = EXTERNAL_SYMBOL_TYPE; t101425.s0.value.external_symbol_type = q240; /* x183644 stalin.sc:25683:888584 */ t101428.s0.tag = EXTERNAL_SYMBOL_TYPE; t101428.s0.value.external_symbol_type = q263; /* x183645 stalin.sc:25683:888584 */ t101429.s0.tag = EXTERNAL_SYMBOL_TYPE; t101429.s0.value.external_symbol_type = q297; /* x183646 stalin.sc:25683:888584 */ t101430.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x183647 stalin.sc:25683:888584 */ t101430.s1.tag = NULL_TYPE; /* x183648 stalin.sc:25683:888584 */ t101429.s1.tag = STRUCTURE_TYPE24753; t101429.s1.value.structure_type24753 = &t101430; /* x183649 stalin.sc:25683:888584 */ t101428.s1.tag = STRUCTURE_TYPE24753; t101428.s1.value.structure_type24753 = &t101429; /* x183650 stalin.sc:25683:888584 */ t101427.s0.tag = STRUCTURE_TYPE24753; t101427.s0.value.structure_type24753 = &t101428; /* x183651 stalin.sc:25683:888584 */ t101432.s0.tag = EXTERNAL_SYMBOL_TYPE; t101432.s0.value.external_symbol_type = q331; /* x183652 stalin.sc:25683:888584 */ t101434.s0.tag = EXTERNAL_SYMBOL_TYPE; t101434.s0.value.external_symbol_type = q332; /* x183653 stalin.sc:25683:888584 */ t101435.s0.tag = FIXNUM_TYPE; t101435.s0.value.fixnum_type = 0; /* x183654 stalin.sc:25683:888584 */ t101435.s1.tag = NULL_TYPE; /* x183655 stalin.sc:25683:888584 */ t101434.s1.tag = STRUCTURE_TYPE24753; t101434.s1.value.structure_type24753 = &t101435; /* x183656 stalin.sc:25683:888584 */ t101433.s0.tag = STRUCTURE_TYPE24753; t101433.s0.value.structure_type24753 = &t101434; /* x183657 stalin.sc:25683:888584 */ t101433.s1.tag = NULL_TYPE; /* x183658 stalin.sc:25683:888584 */ t101432.s1.tag = STRUCTURE_TYPE24753; t101432.s1.value.structure_type24753 = &t101433; /* x183659 stalin.sc:25683:888584 */ t101431.s0.tag = STRUCTURE_TYPE24753; t101431.s0.value.structure_type24753 = &t101432; /* x183660 stalin.sc:25683:888584 */ t101431.s1.tag = NULL_TYPE; /* x183661 stalin.sc:25683:888584 */ t101427.s1.tag = STRUCTURE_TYPE24753; t101427.s1.value.structure_type24753 = &t101431; /* x183662 stalin.sc:25683:888584 */ t101426.s0.tag = STRUCTURE_TYPE24753; t101426.s0.value.structure_type24753 = &t101427; /* x183663 stalin.sc:25683:888584 */ t101438.s0.tag = EXTERNAL_SYMBOL_TYPE; t101438.s0.value.external_symbol_type = q263; /* x183664 stalin.sc:25683:888584 */ t101439.s0.tag = EXTERNAL_SYMBOL_TYPE; t101439.s0.value.external_symbol_type = q297; /* x183665 stalin.sc:25683:888584 */ t101440.s0.tag = ((unsigned)((unsigned char)'1'))<<2; /* x183666 stalin.sc:25683:888584 */ t101440.s1.tag = NULL_TYPE; /* x183667 stalin.sc:25683:888584 */ t101439.s1.tag = STRUCTURE_TYPE24753; t101439.s1.value.structure_type24753 = &t101440; /* x183668 stalin.sc:25683:888584 */ t101438.s1.tag = STRUCTURE_TYPE24753; t101438.s1.value.structure_type24753 = &t101439; /* x183669 stalin.sc:25683:888584 */ t101437.s0.tag = STRUCTURE_TYPE24753; t101437.s0.value.structure_type24753 = &t101438; /* x183670 stalin.sc:25683:888584 */ t101442.s0.tag = EXTERNAL_SYMBOL_TYPE; t101442.s0.value.external_symbol_type = q331; /* x183671 stalin.sc:25683:888584 */ t101444.s0.tag = EXTERNAL_SYMBOL_TYPE; t101444.s0.value.external_symbol_type = q332; /* x183672 stalin.sc:25683:888584 */ t101445.s0.tag = FIXNUM_TYPE; t101445.s0.value.fixnum_type = 1; /* x183673 stalin.sc:25683:888584 */ t101445.s1.tag = NULL_TYPE; /* x183674 stalin.sc:25683:888584 */ t101444.s1.tag = STRUCTURE_TYPE24753; t101444.s1.value.structure_type24753 = &t101445; /* x183675 stalin.sc:25683:888584 */ t101443.s0.tag = STRUCTURE_TYPE24753; t101443.s0.value.structure_type24753 = &t101444; /* x183676 stalin.sc:25683:888584 */ t101443.s1.tag = NULL_TYPE; /* x183677 stalin.sc:25683:888584 */ t101442.s1.tag = STRUCTURE_TYPE24753; t101442.s1.value.structure_type24753 = &t101443; /* x183678 stalin.sc:25683:888584 */ t101441.s0.tag = STRUCTURE_TYPE24753; t101441.s0.value.structure_type24753 = &t101442; /* x183679 stalin.sc:25683:888584 */ t101441.s1.tag = NULL_TYPE; /* x183680 stalin.sc:25683:888584 */ t101437.s1.tag = STRUCTURE_TYPE24753; t101437.s1.value.structure_type24753 = &t101441; /* x183681 stalin.sc:25683:888584 */ t101436.s0.tag = STRUCTURE_TYPE24753; t101436.s0.value.structure_type24753 = &t101437; /* x183682 stalin.sc:25683:888584 */ t101447.s0.tag = EXTERNAL_SYMBOL_TYPE; t101447.s0.value.external_symbol_type = q95; /* x183683 stalin.sc:25683:888584 */ t101448.s0.tag = FALSE_TYPE; /* x183684 stalin.sc:25683:888584 */ t101448.s1.tag = NULL_TYPE; /* x183685 stalin.sc:25683:888584 */ t101447.s1.tag = STRUCTURE_TYPE24753; t101447.s1.value.structure_type24753 = &t101448; /* x183686 stalin.sc:25683:888584 */ t101446.s0.tag = STRUCTURE_TYPE24753; t101446.s0.value.structure_type24753 = &t101447; /* x183687 stalin.sc:25683:888584 */ t101446.s1.tag = NULL_TYPE; /* x183688 stalin.sc:25683:888584 */ t101436.s1.tag = STRUCTURE_TYPE24753; t101436.s1.value.structure_type24753 = &t101446; /* x183689 stalin.sc:25683:888584 */ t101426.s1.tag = STRUCTURE_TYPE24753; t101426.s1.value.structure_type24753 = &t101436; /* x183690 stalin.sc:25683:888584 */ t101425.s1.tag = STRUCTURE_TYPE24753; t101425.s1.value.structure_type24753 = &t101426; /* x183691 stalin.sc:25683:888584 */ t101424.s0.tag = STRUCTURE_TYPE24753; t101424.s0.value.structure_type24753 = &t101425; /* x183692 stalin.sc:25683:888584 */ t101424.s1.tag = NULL_TYPE; /* x183693 stalin.sc:25683:888584 */ t101417.s1.tag = STRUCTURE_TYPE24753; t101417.s1.value.structure_type24753 = &t101424; /* x183694 stalin.sc:25683:888584 */ t101410.s1.tag = STRUCTURE_TYPE24753; t101410.s1.value.structure_type24753 = &t101417; /* x183695 stalin.sc:25683:888584 */ t101409.s1.tag = STRUCTURE_TYPE24753; t101409.s1.value.structure_type24753 = &t101410; /* x183696 stalin.sc:25683:888584 */ t101408.s0.tag = STRUCTURE_TYPE24753; t101408.s0.value.structure_type24753 = &t101409; /* x183697 stalin.sc:25683:888584 */ t101408.s1.tag = NULL_TYPE; /* x183698 stalin.sc:25683:888584 */ t101407.s1.tag = STRUCTURE_TYPE24753; t101407.s1.value.structure_type24753 = &t101408; /* x183699 stalin.sc:25683:888584 */ t101403.s1.tag = STRUCTURE_TYPE24753; t101403.s1.value.structure_type24753 = &t101407; /* x183700 stalin.sc:25683:888584 */ t101402.s1.tag = STRUCTURE_TYPE24753; t101402.s1.value.structure_type24753 = &t101403; /* x183701 stalin.sc:25683:888584 */ t101401.s0.tag = STRUCTURE_TYPE24753; t101401.s0.value.structure_type24753 = &t101402; /* x183702 stalin.sc:25683:888584 */ t101401.s1.tag = NULL_TYPE; /* x183703 stalin.sc:25683:888584 */ t101397.s1.tag = STRUCTURE_TYPE24753; t101397.s1.value.structure_type24753 = &t101401; /* x183704 stalin.sc:25683:888584 */ t101396.s0.tag = STRUCTURE_TYPE24753; t101396.s0.value.structure_type24753 = &t101397; /* x183705 stalin.sc:25683:888584 */ t101450.s0.tag = EXTERNAL_SYMBOL_TYPE; t101450.s0.value.external_symbol_type = q95; /* x183706 stalin.sc:25683:888584 */ t101451.s0.tag = FALSE_TYPE; /* x183707 stalin.sc:25683:888584 */ t101451.s1.tag = NULL_TYPE; /* x183708 stalin.sc:25683:888584 */ t101450.s1.tag = STRUCTURE_TYPE24753; t101450.s1.value.structure_type24753 = &t101451; /* x183709 stalin.sc:25683:888584 */ t101449.s0.tag = STRUCTURE_TYPE24753; t101449.s0.value.structure_type24753 = &t101450; /* x183710 stalin.sc:25683:888584 */ t101449.s1.tag = NULL_TYPE; /* x183711 stalin.sc:25683:888584 */ t101396.s1.tag = STRUCTURE_TYPE24753; t101396.s1.value.structure_type24753 = &t101449; /* x183712 stalin.sc:25683:888584 */ t101347.s1.tag = STRUCTURE_TYPE24753; t101347.s1.value.structure_type24753 = &t101396; /* x183713 stalin.sc:25683:888584 */ t101339.s1.tag = STRUCTURE_TYPE24753; t101339.s1.value.structure_type24753 = &t101347; /* x183714 stalin.sc:25683:888584 */ t101331.s1.tag = STRUCTURE_TYPE24753; t101331.s1.value.structure_type24753 = &t101339; /* x183715 stalin.sc:25683:888584 */ t101330.s1.tag = STRUCTURE_TYPE24753; t101330.s1.value.structure_type24753 = &t101331; /* x183716 stalin.sc:25683:888584 */ t101329.s0.tag = STRUCTURE_TYPE24753; t101329.s0.value.structure_type24753 = &t101330; /* x183717 stalin.sc:25683:888584 */ t101329.s1.tag = NULL_TYPE; /* x183718 stalin.sc:25683:888584 */ t101322.s1.tag = STRUCTURE_TYPE24753; t101322.s1.value.structure_type24753 = &t101329; /* x183719 stalin.sc:25683:888584 */ t101315.s1.tag = STRUCTURE_TYPE24753; t101315.s1.value.structure_type24753 = &t101322; /* x183720 stalin.sc:25683:888584 */ t101314.s1.tag = STRUCTURE_TYPE24753; t101314.s1.value.structure_type24753 = &t101315; /* x183721 stalin.sc:25683:888584 */ t101313.s0.tag = STRUCTURE_TYPE24753; t101313.s0.value.structure_type24753 = &t101314; /* x183722 stalin.sc:25683:888584 */ t101313.s1.tag = NULL_TYPE; /* x183723 stalin.sc:25683:888584 */ t101312.s1.tag = STRUCTURE_TYPE24753; t101312.s1.value.structure_type24753 = &t101313; /* x183724 stalin.sc:25683:888584 */ t101308.s1.tag = STRUCTURE_TYPE24753; t101308.s1.value.structure_type24753 = &t101312; /* x183725 stalin.sc:25683:888584 */ t101307.s1.tag = STRUCTURE_TYPE24753; t101307.s1.value.structure_type24753 = &t101308; /* x183726 stalin.sc:25683:888584 */ t101306.s0.tag = STRUCTURE_TYPE24753; t101306.s0.value.structure_type24753 = &t101307; /* x183727 stalin.sc:25683:888584 */ t101306.s1.tag = NULL_TYPE; /* x183728 stalin.sc:25683:888584 */ t101296.s1.tag = STRUCTURE_TYPE24753; t101296.s1.value.structure_type24753 = &t101306; /* x183729 stalin.sc:25683:888584 */ t101295.s0.tag = STRUCTURE_TYPE24753; t101295.s0.value.structure_type24753 = &t101296; /* x183730 stalin.sc:25683:888584 */ t101454.s0.tag = EXTERNAL_SYMBOL_TYPE; t101454.s0.value.external_symbol_type = q241; /* x183731 stalin.sc:25683:888584 */ t101456.s0.tag = EXTERNAL_SYMBOL_TYPE; t101456.s0.value.external_symbol_type = q263; /* x183732 stalin.sc:25683:888584 */ t101457.s0.tag = EXTERNAL_SYMBOL_TYPE; t101457.s0.value.external_symbol_type = q274; /* x183733 stalin.sc:25683:888584 */ t101458.s0.tag = ((unsigned)((unsigned char)'o'))<<2; /* x183734 stalin.sc:25683:888584 */ t101458.s1.tag = NULL_TYPE; /* x183735 stalin.sc:25683:888584 */ t101457.s1.tag = STRUCTURE_TYPE24753; t101457.s1.value.structure_type24753 = &t101458; /* x183736 stalin.sc:25683:888584 */ t101456.s1.tag = STRUCTURE_TYPE24753; t101456.s1.value.structure_type24753 = &t101457; /* x183737 stalin.sc:25683:888584 */ t101455.s0.tag = STRUCTURE_TYPE24753; t101455.s0.value.structure_type24753 = &t101456; /* x183738 stalin.sc:25683:888584 */ t101460.s0.tag = EXTERNAL_SYMBOL_TYPE; t101460.s0.value.external_symbol_type = q263; /* x183739 stalin.sc:25683:888584 */ t101461.s0.tag = EXTERNAL_SYMBOL_TYPE; t101461.s0.value.external_symbol_type = q274; /* x183740 stalin.sc:25683:888584 */ t101462.s0.tag = ((unsigned)((unsigned char)'O'))<<2; /* x183741 stalin.sc:25683:888584 */ t101462.s1.tag = NULL_TYPE; /* x183742 stalin.sc:25683:888584 */ t101461.s1.tag = STRUCTURE_TYPE24753; t101461.s1.value.structure_type24753 = &t101462; /* x183743 stalin.sc:25683:888584 */ t101460.s1.tag = STRUCTURE_TYPE24753; t101460.s1.value.structure_type24753 = &t101461; /* x183744 stalin.sc:25683:888584 */ t101459.s0.tag = STRUCTURE_TYPE24753; t101459.s0.value.structure_type24753 = &t101460; /* x183745 stalin.sc:25683:888584 */ t101459.s1.tag = NULL_TYPE; /* x183746 stalin.sc:25683:888584 */ t101455.s1.tag = STRUCTURE_TYPE24753; t101455.s1.value.structure_type24753 = &t101459; /* x183747 stalin.sc:25683:888584 */ t101454.s1.tag = STRUCTURE_TYPE24753; t101454.s1.value.structure_type24753 = &t101455; /* x183748 stalin.sc:25683:888584 */ t101453.s0.tag = STRUCTURE_TYPE24753; t101453.s0.value.structure_type24753 = &t101454; /* x183749 stalin.sc:25683:888584 */ t101464.s0.tag = EXTERNAL_SYMBOL_TYPE; t101464.s0.value.external_symbol_type = q43; /* x183750 stalin.sc:25683:888584 */ t101466.s0.tag = EXTERNAL_SYMBOL_TYPE; t101466.s0.value.external_symbol_type = q120; /* x183751 stalin.sc:25683:888584 */ t101467.s0.tag = EXTERNAL_SYMBOL_TYPE; t101467.s0.value.external_symbol_type = q308; /* x183752 stalin.sc:25683:888584 */ t101468.s0.tag = EXTERNAL_SYMBOL_TYPE; t101468.s0.value.external_symbol_type = q330; /* x183753 stalin.sc:25683:888584 */ t101468.s1.tag = NULL_TYPE; /* x183754 stalin.sc:25683:888584 */ t101467.s1.tag = STRUCTURE_TYPE24753; t101467.s1.value.structure_type24753 = &t101468; /* x183755 stalin.sc:25683:888584 */ t101466.s1.tag = STRUCTURE_TYPE24753; t101466.s1.value.structure_type24753 = &t101467; /* x183756 stalin.sc:25683:888584 */ t101465.s0.tag = STRUCTURE_TYPE24753; t101465.s0.value.structure_type24753 = &t101466; /* x183757 stalin.sc:25683:888584 */ t101469.s0.tag = FALSE_TYPE; /* x183758 stalin.sc:25683:888584 */ t101471.s0.tag = EXTERNAL_SYMBOL_TYPE; t101471.s0.value.external_symbol_type = q242; /* x183759 stalin.sc:25683:888584 */ t101474.s0.tag = EXTERNAL_SYMBOL_TYPE; t101474.s0.value.external_symbol_type = q275; /* x183760 stalin.sc:25683:888584 */ t101476.s0.tag = EXTERNAL_SYMBOL_TYPE; t101476.s0.value.external_symbol_type = q163; /* x183761 stalin.sc:25683:888584 */ t101477.s0.tag = EXTERNAL_SYMBOL_TYPE; t101477.s0.value.external_symbol_type = q161; /* x183762 stalin.sc:25683:888584 */ t101478.s0.tag = EXTERNAL_SYMBOL_TYPE; t101478.s0.value.external_symbol_type = q308; /* x183763 stalin.sc:25683:888584 */ t101478.s1.tag = NULL_TYPE; /* x183764 stalin.sc:25683:888584 */ t101477.s1.tag = STRUCTURE_TYPE24753; t101477.s1.value.structure_type24753 = &t101478; /* x183765 stalin.sc:25683:888584 */ t101476.s1.tag = STRUCTURE_TYPE24753; t101476.s1.value.structure_type24753 = &t101477; /* x183766 stalin.sc:25683:888584 */ t101475.s0.tag = STRUCTURE_TYPE24753; t101475.s0.value.structure_type24753 = &t101476; /* x183767 stalin.sc:25683:888584 */ t101475.s1.tag = NULL_TYPE; /* x183768 stalin.sc:25683:888584 */ t101474.s1.tag = STRUCTURE_TYPE24753; t101474.s1.value.structure_type24753 = &t101475; /* x183769 stalin.sc:25683:888584 */ t101473.s0.tag = STRUCTURE_TYPE24753; t101473.s0.value.structure_type24753 = &t101474; /* x183770 stalin.sc:25683:888584 */ t101473.s1.tag = NULL_TYPE; /* x183771 stalin.sc:25683:888584 */ t101472.s0.tag = STRUCTURE_TYPE24753; t101472.s0.value.structure_type24753 = &t101473; /* x183772 stalin.sc:25683:888584 */ t101480.s0.tag = EXTERNAL_SYMBOL_TYPE; t101480.s0.value.external_symbol_type = q42; /* x183773 stalin.sc:25683:888584 */ t101481.s0.tag = EXTERNAL_SYMBOL_TYPE; t101481.s0.value.external_symbol_type = q308; /* x183774 stalin.sc:25683:888584 */ t101483.s0.tag = EXTERNAL_SYMBOL_TYPE; t101483.s0.value.external_symbol_type = q4; /* x183775 stalin.sc:25683:888584 */ t101484.s0.tag = EXTERNAL_SYMBOL_TYPE; t101484.s0.value.external_symbol_type = q308; /* x183776 stalin.sc:25683:888584 */ t101485.s0.tag = FIXNUM_TYPE; t101485.s0.value.fixnum_type = 1; /* x183777 stalin.sc:25683:888584 */ t101485.s1.tag = NULL_TYPE; /* x183778 stalin.sc:25683:888584 */ t101484.s1.tag = STRUCTURE_TYPE24753; t101484.s1.value.structure_type24753 = &t101485; /* x183779 stalin.sc:25683:888584 */ t101483.s1.tag = STRUCTURE_TYPE24753; t101483.s1.value.structure_type24753 = &t101484; /* x183780 stalin.sc:25683:888584 */ t101482.s0.tag = STRUCTURE_TYPE24753; t101482.s0.value.structure_type24753 = &t101483; /* x183781 stalin.sc:25683:888584 */ t101482.s1.tag = NULL_TYPE; /* x183782 stalin.sc:25683:888584 */ t101481.s1.tag = STRUCTURE_TYPE24753; t101481.s1.value.structure_type24753 = &t101482; /* x183783 stalin.sc:25683:888584 */ t101480.s1.tag = STRUCTURE_TYPE24753; t101480.s1.value.structure_type24753 = &t101481; /* x183784 stalin.sc:25683:888584 */ t101479.s0.tag = STRUCTURE_TYPE24753; t101479.s0.value.structure_type24753 = &t101480; /* x183785 stalin.sc:25683:888584 */ t101487.s0.tag = EXTERNAL_SYMBOL_TYPE; t101487.s0.value.external_symbol_type = q240; /* x183786 stalin.sc:25683:888584 */ t101490.s0.tag = EXTERNAL_SYMBOL_TYPE; t101490.s0.value.external_symbol_type = q244; /* x183787 stalin.sc:25683:888584 */ t101492.s0.tag = EXTERNAL_SYMBOL_TYPE; t101492.s0.value.external_symbol_type = q266; /* x183788 stalin.sc:25683:888584 */ t101493.s0.tag = EXTERNAL_SYMBOL_TYPE; t101493.s0.value.external_symbol_type = q275; /* x183789 stalin.sc:25683:888584 */ t101494.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x183790 stalin.sc:25683:888584 */ t101494.s1.tag = NULL_TYPE; /* x183791 stalin.sc:25683:888584 */ t101493.s1.tag = STRUCTURE_TYPE24753; t101493.s1.value.structure_type24753 = &t101494; /* x183792 stalin.sc:25683:888584 */ t101492.s1.tag = STRUCTURE_TYPE24753; t101492.s1.value.structure_type24753 = &t101493; /* x183793 stalin.sc:25683:888584 */ t101491.s0.tag = STRUCTURE_TYPE24753; t101491.s0.value.structure_type24753 = &t101492; /* x183794 stalin.sc:25683:888584 */ t101496.s0.tag = EXTERNAL_SYMBOL_TYPE; t101496.s0.value.external_symbol_type = q267; /* x183795 stalin.sc:25683:888584 */ t101497.s0.tag = EXTERNAL_SYMBOL_TYPE; t101497.s0.value.external_symbol_type = q275; /* x183796 stalin.sc:25683:888584 */ t101498.s0.tag = ((unsigned)((unsigned char)'7'))<<2; /* x183797 stalin.sc:25683:888584 */ t101498.s1.tag = NULL_TYPE; /* x183798 stalin.sc:25683:888584 */ t101497.s1.tag = STRUCTURE_TYPE24753; t101497.s1.value.structure_type24753 = &t101498; /* x183799 stalin.sc:25683:888584 */ t101496.s1.tag = STRUCTURE_TYPE24753; t101496.s1.value.structure_type24753 = &t101497; /* x183800 stalin.sc:25683:888584 */ t101495.s0.tag = STRUCTURE_TYPE24753; t101495.s0.value.structure_type24753 = &t101496; /* x183801 stalin.sc:25683:888584 */ t101495.s1.tag = NULL_TYPE; /* x183802 stalin.sc:25683:888584 */ t101491.s1.tag = STRUCTURE_TYPE24753; t101491.s1.value.structure_type24753 = &t101495; /* x183803 stalin.sc:25683:888584 */ t101490.s1.tag = STRUCTURE_TYPE24753; t101490.s1.value.structure_type24753 = &t101491; /* x183804 stalin.sc:25683:888584 */ t101489.s0.tag = STRUCTURE_TYPE24753; t101489.s0.value.structure_type24753 = &t101490; /* x183805 stalin.sc:25683:888584 */ t101500.s0.tag = EXTERNAL_SYMBOL_TYPE; t101500.s0.value.external_symbol_type = q333; /* x183806 stalin.sc:25683:888584 */ t101502.s0.tag = EXTERNAL_SYMBOL_TYPE; t101502.s0.value.external_symbol_type = q2; /* x183807 stalin.sc:25683:888584 */ t101504.s0.tag = EXTERNAL_SYMBOL_TYPE; t101504.s0.value.external_symbol_type = q157; /* x183808 stalin.sc:25683:888584 */ t101505.s0.tag = EXTERNAL_SYMBOL_TYPE; t101505.s0.value.external_symbol_type = q275; /* x183809 stalin.sc:25683:888584 */ t101505.s1.tag = NULL_TYPE; /* x183810 stalin.sc:25683:888584 */ t101504.s1.tag = STRUCTURE_TYPE24753; t101504.s1.value.structure_type24753 = &t101505; /* x183811 stalin.sc:25683:888584 */ t101503.s0.tag = STRUCTURE_TYPE24753; t101503.s0.value.structure_type24753 = &t101504; /* x183812 stalin.sc:25683:888584 */ t101507.s0.tag = EXTERNAL_SYMBOL_TYPE; t101507.s0.value.external_symbol_type = q157; /* x183813 stalin.sc:25683:888584 */ t101508.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x183814 stalin.sc:25683:888584 */ t101508.s1.tag = NULL_TYPE; /* x183815 stalin.sc:25683:888584 */ t101507.s1.tag = STRUCTURE_TYPE24753; t101507.s1.value.structure_type24753 = &t101508; /* x183816 stalin.sc:25683:888584 */ t101506.s0.tag = STRUCTURE_TYPE24753; t101506.s0.value.structure_type24753 = &t101507; /* x183817 stalin.sc:25683:888584 */ t101506.s1.tag = NULL_TYPE; /* x183818 stalin.sc:25683:888584 */ t101503.s1.tag = STRUCTURE_TYPE24753; t101503.s1.value.structure_type24753 = &t101506; /* x183819 stalin.sc:25683:888584 */ t101502.s1.tag = STRUCTURE_TYPE24753; t101502.s1.value.structure_type24753 = &t101503; /* x183820 stalin.sc:25683:888584 */ t101501.s0.tag = STRUCTURE_TYPE24753; t101501.s0.value.structure_type24753 = &t101502; /* x183821 stalin.sc:25683:888584 */ t101501.s1.tag = NULL_TYPE; /* x183822 stalin.sc:25683:888584 */ t101500.s1.tag = STRUCTURE_TYPE24753; t101500.s1.value.structure_type24753 = &t101501; /* x183823 stalin.sc:25683:888584 */ t101499.s0.tag = STRUCTURE_TYPE24753; t101499.s0.value.structure_type24753 = &t101500; /* x183824 stalin.sc:25683:888584 */ t101499.s1.tag = NULL_TYPE; /* x183825 stalin.sc:25683:888584 */ t101489.s1.tag = STRUCTURE_TYPE24753; t101489.s1.value.structure_type24753 = &t101499; /* x183826 stalin.sc:25683:888584 */ t101488.s0.tag = STRUCTURE_TYPE24753; t101488.s0.value.structure_type24753 = &t101489; /* x183827 stalin.sc:25683:888584 */ t101511.s0.tag = EXTERNAL_SYMBOL_TYPE; t101511.s0.value.external_symbol_type = q263; /* x183828 stalin.sc:25683:888584 */ t101512.s0.tag = EXTERNAL_SYMBOL_TYPE; t101512.s0.value.external_symbol_type = q275; /* x183829 stalin.sc:25683:888584 */ t101513.s0.tag = ((unsigned)((unsigned char)'+'))<<2; /* x183830 stalin.sc:25683:888584 */ t101513.s1.tag = NULL_TYPE; /* x183831 stalin.sc:25683:888584 */ t101512.s1.tag = STRUCTURE_TYPE24753; t101512.s1.value.structure_type24753 = &t101513; /* x183832 stalin.sc:25683:888584 */ t101511.s1.tag = STRUCTURE_TYPE24753; t101511.s1.value.structure_type24753 = &t101512; /* x183833 stalin.sc:25683:888584 */ t101510.s0.tag = STRUCTURE_TYPE24753; t101510.s0.value.structure_type24753 = &t101511; /* x183834 stalin.sc:25683:888584 */ t101515.s0.tag = EXTERNAL_SYMBOL_TYPE; t101515.s0.value.external_symbol_type = q43; /* x183835 stalin.sc:25683:888584 */ t101517.s0.tag = EXTERNAL_SYMBOL_TYPE; t101517.s0.value.external_symbol_type = q120; /* x183836 stalin.sc:25683:888584 */ t101518.s0.tag = EXTERNAL_SYMBOL_TYPE; t101518.s0.value.external_symbol_type = q308; /* x183837 stalin.sc:25683:888584 */ t101519.s0.tag = EXTERNAL_SYMBOL_TYPE; t101519.s0.value.external_symbol_type = q330; /* x183838 stalin.sc:25683:888584 */ t101519.s1.tag = NULL_TYPE; /* x183839 stalin.sc:25683:888584 */ t101518.s1.tag = STRUCTURE_TYPE24753; t101518.s1.value.structure_type24753 = &t101519; /* x183840 stalin.sc:25683:888584 */ t101517.s1.tag = STRUCTURE_TYPE24753; t101517.s1.value.structure_type24753 = &t101518; /* x183841 stalin.sc:25683:888584 */ t101516.s0.tag = STRUCTURE_TYPE24753; t101516.s0.value.structure_type24753 = &t101517; /* x183842 stalin.sc:25683:888584 */ t101520.s0.tag = FALSE_TYPE; /* x183843 stalin.sc:25683:888584 */ t101522.s0.tag = EXTERNAL_SYMBOL_TYPE; t101522.s0.value.external_symbol_type = q242; /* x183844 stalin.sc:25683:888584 */ t101525.s0.tag = EXTERNAL_SYMBOL_TYPE; t101525.s0.value.external_symbol_type = q297; /* x183845 stalin.sc:25683:888584 */ t101527.s0.tag = EXTERNAL_SYMBOL_TYPE; t101527.s0.value.external_symbol_type = q163; /* x183846 stalin.sc:25683:888584 */ t101528.s0.tag = EXTERNAL_SYMBOL_TYPE; t101528.s0.value.external_symbol_type = q161; /* x183847 stalin.sc:25683:888584 */ t101529.s0.tag = EXTERNAL_SYMBOL_TYPE; t101529.s0.value.external_symbol_type = q308; /* x183848 stalin.sc:25683:888584 */ t101529.s1.tag = NULL_TYPE; /* x183849 stalin.sc:25683:888584 */ t101528.s1.tag = STRUCTURE_TYPE24753; t101528.s1.value.structure_type24753 = &t101529; /* x183850 stalin.sc:25683:888584 */ t101527.s1.tag = STRUCTURE_TYPE24753; t101527.s1.value.structure_type24753 = &t101528; /* x183851 stalin.sc:25683:888584 */ t101526.s0.tag = STRUCTURE_TYPE24753; t101526.s0.value.structure_type24753 = &t101527; /* x183852 stalin.sc:25683:888584 */ t101526.s1.tag = NULL_TYPE; /* x183853 stalin.sc:25683:888584 */ t101525.s1.tag = STRUCTURE_TYPE24753; t101525.s1.value.structure_type24753 = &t101526; /* x183854 stalin.sc:25683:888584 */ t101524.s0.tag = STRUCTURE_TYPE24753; t101524.s0.value.structure_type24753 = &t101525; /* x183855 stalin.sc:25683:888584 */ t101524.s1.tag = NULL_TYPE; /* x183856 stalin.sc:25683:888584 */ t101523.s0.tag = STRUCTURE_TYPE24753; t101523.s0.value.structure_type24753 = &t101524; /* x183857 stalin.sc:25683:888584 */ t101531.s0.tag = EXTERNAL_SYMBOL_TYPE; t101531.s0.value.external_symbol_type = q42; /* x183858 stalin.sc:25683:888584 */ t101532.s0.tag = EXTERNAL_SYMBOL_TYPE; t101532.s0.value.external_symbol_type = q308; /* x183859 stalin.sc:25683:888584 */ t101534.s0.tag = EXTERNAL_SYMBOL_TYPE; t101534.s0.value.external_symbol_type = q4; /* x183860 stalin.sc:25683:888584 */ t101535.s0.tag = EXTERNAL_SYMBOL_TYPE; t101535.s0.value.external_symbol_type = q308; /* x183861 stalin.sc:25683:888584 */ t101536.s0.tag = FIXNUM_TYPE; t101536.s0.value.fixnum_type = 1; /* x183862 stalin.sc:25683:888584 */ t101536.s1.tag = NULL_TYPE; /* x183863 stalin.sc:25683:888584 */ t101535.s1.tag = STRUCTURE_TYPE24753; t101535.s1.value.structure_type24753 = &t101536; /* x183864 stalin.sc:25683:888584 */ t101534.s1.tag = STRUCTURE_TYPE24753; t101534.s1.value.structure_type24753 = &t101535; /* x183865 stalin.sc:25683:888584 */ t101533.s0.tag = STRUCTURE_TYPE24753; t101533.s0.value.structure_type24753 = &t101534; /* x183866 stalin.sc:25683:888584 */ t101533.s1.tag = NULL_TYPE; /* x183867 stalin.sc:25683:888584 */ t101532.s1.tag = STRUCTURE_TYPE24753; t101532.s1.value.structure_type24753 = &t101533; /* x183868 stalin.sc:25683:888584 */ t101531.s1.tag = STRUCTURE_TYPE24753; t101531.s1.value.structure_type24753 = &t101532; /* x183869 stalin.sc:25683:888584 */ t101530.s0.tag = STRUCTURE_TYPE24753; t101530.s0.value.structure_type24753 = &t101531; /* x183870 stalin.sc:25683:888584 */ t101538.s0.tag = EXTERNAL_SYMBOL_TYPE; t101538.s0.value.external_symbol_type = q43; /* x183871 stalin.sc:25683:888584 */ t101540.s0.tag = EXTERNAL_SYMBOL_TYPE; t101540.s0.value.external_symbol_type = q244; /* x183872 stalin.sc:25683:888584 */ t101542.s0.tag = EXTERNAL_SYMBOL_TYPE; t101542.s0.value.external_symbol_type = q266; /* x183873 stalin.sc:25683:888584 */ t101543.s0.tag = EXTERNAL_SYMBOL_TYPE; t101543.s0.value.external_symbol_type = q297; /* x183874 stalin.sc:25683:888584 */ t101544.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x183875 stalin.sc:25683:888584 */ t101544.s1.tag = NULL_TYPE; /* x183876 stalin.sc:25683:888584 */ t101543.s1.tag = STRUCTURE_TYPE24753; t101543.s1.value.structure_type24753 = &t101544; /* x183877 stalin.sc:25683:888584 */ t101542.s1.tag = STRUCTURE_TYPE24753; t101542.s1.value.structure_type24753 = &t101543; /* x183878 stalin.sc:25683:888584 */ t101541.s0.tag = STRUCTURE_TYPE24753; t101541.s0.value.structure_type24753 = &t101542; /* x183879 stalin.sc:25683:888584 */ t101546.s0.tag = EXTERNAL_SYMBOL_TYPE; t101546.s0.value.external_symbol_type = q267; /* x183880 stalin.sc:25683:888584 */ t101547.s0.tag = EXTERNAL_SYMBOL_TYPE; t101547.s0.value.external_symbol_type = q297; /* x183881 stalin.sc:25683:888584 */ t101548.s0.tag = ((unsigned)((unsigned char)'7'))<<2; /* x183882 stalin.sc:25683:888584 */ t101548.s1.tag = NULL_TYPE; /* x183883 stalin.sc:25683:888584 */ t101547.s1.tag = STRUCTURE_TYPE24753; t101547.s1.value.structure_type24753 = &t101548; /* x183884 stalin.sc:25683:888584 */ t101546.s1.tag = STRUCTURE_TYPE24753; t101546.s1.value.structure_type24753 = &t101547; /* x183885 stalin.sc:25683:888584 */ t101545.s0.tag = STRUCTURE_TYPE24753; t101545.s0.value.structure_type24753 = &t101546; /* x183886 stalin.sc:25683:888584 */ t101545.s1.tag = NULL_TYPE; /* x183887 stalin.sc:25683:888584 */ t101541.s1.tag = STRUCTURE_TYPE24753; t101541.s1.value.structure_type24753 = &t101545; /* x183888 stalin.sc:25683:888584 */ t101540.s1.tag = STRUCTURE_TYPE24753; t101540.s1.value.structure_type24753 = &t101541; /* x183889 stalin.sc:25683:888584 */ t101539.s0.tag = STRUCTURE_TYPE24753; t101539.s0.value.structure_type24753 = &t101540; /* x183890 stalin.sc:25683:888584 */ t101550.s0.tag = EXTERNAL_SYMBOL_TYPE; t101550.s0.value.external_symbol_type = q333; /* x183891 stalin.sc:25683:888584 */ t101552.s0.tag = EXTERNAL_SYMBOL_TYPE; t101552.s0.value.external_symbol_type = q2; /* x183892 stalin.sc:25683:888584 */ t101554.s0.tag = EXTERNAL_SYMBOL_TYPE; t101554.s0.value.external_symbol_type = q157; /* x183893 stalin.sc:25683:888584 */ t101555.s0.tag = EXTERNAL_SYMBOL_TYPE; t101555.s0.value.external_symbol_type = q297; /* x183894 stalin.sc:25683:888584 */ t101555.s1.tag = NULL_TYPE; /* x183895 stalin.sc:25683:888584 */ t101554.s1.tag = STRUCTURE_TYPE24753; t101554.s1.value.structure_type24753 = &t101555; /* x183896 stalin.sc:25683:888584 */ t101553.s0.tag = STRUCTURE_TYPE24753; t101553.s0.value.structure_type24753 = &t101554; /* x183897 stalin.sc:25683:888584 */ t101557.s0.tag = EXTERNAL_SYMBOL_TYPE; t101557.s0.value.external_symbol_type = q157; /* x183898 stalin.sc:25683:888584 */ t101558.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x183899 stalin.sc:25683:888584 */ t101558.s1.tag = NULL_TYPE; /* x183900 stalin.sc:25683:888584 */ t101557.s1.tag = STRUCTURE_TYPE24753; t101557.s1.value.structure_type24753 = &t101558; /* x183901 stalin.sc:25683:888584 */ t101556.s0.tag = STRUCTURE_TYPE24753; t101556.s0.value.structure_type24753 = &t101557; /* x183902 stalin.sc:25683:888584 */ t101556.s1.tag = NULL_TYPE; /* x183903 stalin.sc:25683:888584 */ t101553.s1.tag = STRUCTURE_TYPE24753; t101553.s1.value.structure_type24753 = &t101556; /* x183904 stalin.sc:25683:888584 */ t101552.s1.tag = STRUCTURE_TYPE24753; t101552.s1.value.structure_type24753 = &t101553; /* x183905 stalin.sc:25683:888584 */ t101551.s0.tag = STRUCTURE_TYPE24753; t101551.s0.value.structure_type24753 = &t101552; /* x183906 stalin.sc:25683:888584 */ t101551.s1.tag = NULL_TYPE; /* x183907 stalin.sc:25683:888584 */ t101550.s1.tag = STRUCTURE_TYPE24753; t101550.s1.value.structure_type24753 = &t101551; /* x183908 stalin.sc:25683:888584 */ t101549.s0.tag = STRUCTURE_TYPE24753; t101549.s0.value.structure_type24753 = &t101550; /* x183909 stalin.sc:25683:888584 */ t101559.s0.tag = FALSE_TYPE; /* x183910 stalin.sc:25683:888584 */ t101559.s1.tag = NULL_TYPE; /* x183911 stalin.sc:25683:888584 */ t101549.s1.tag = STRUCTURE_TYPE24753; t101549.s1.value.structure_type24753 = &t101559; /* x183912 stalin.sc:25683:888584 */ t101539.s1.tag = STRUCTURE_TYPE24753; t101539.s1.value.structure_type24753 = &t101549; /* x183913 stalin.sc:25683:888584 */ t101538.s1.tag = STRUCTURE_TYPE24753; t101538.s1.value.structure_type24753 = &t101539; /* x183914 stalin.sc:25683:888584 */ t101537.s0.tag = STRUCTURE_TYPE24753; t101537.s0.value.structure_type24753 = &t101538; /* x183915 stalin.sc:25683:888584 */ t101537.s1.tag = NULL_TYPE; /* x183916 stalin.sc:25683:888584 */ t101530.s1.tag = STRUCTURE_TYPE24753; t101530.s1.value.structure_type24753 = &t101537; /* x183917 stalin.sc:25683:888584 */ t101523.s1.tag = STRUCTURE_TYPE24753; t101523.s1.value.structure_type24753 = &t101530; /* x183918 stalin.sc:25683:888584 */ t101522.s1.tag = STRUCTURE_TYPE24753; t101522.s1.value.structure_type24753 = &t101523; /* x183919 stalin.sc:25683:888584 */ t101521.s0.tag = STRUCTURE_TYPE24753; t101521.s0.value.structure_type24753 = &t101522; /* x183920 stalin.sc:25683:888584 */ t101521.s1.tag = NULL_TYPE; /* x183921 stalin.sc:25683:888584 */ t101520.s1.tag = STRUCTURE_TYPE24753; t101520.s1.value.structure_type24753 = &t101521; /* x183922 stalin.sc:25683:888584 */ t101516.s1.tag = STRUCTURE_TYPE24753; t101516.s1.value.structure_type24753 = &t101520; /* x183923 stalin.sc:25683:888584 */ t101515.s1.tag = STRUCTURE_TYPE24753; t101515.s1.value.structure_type24753 = &t101516; /* x183924 stalin.sc:25683:888584 */ t101514.s0.tag = STRUCTURE_TYPE24753; t101514.s0.value.structure_type24753 = &t101515; /* x183925 stalin.sc:25683:888584 */ t101514.s1.tag = NULL_TYPE; /* x183926 stalin.sc:25683:888584 */ t101510.s1.tag = STRUCTURE_TYPE24753; t101510.s1.value.structure_type24753 = &t101514; /* x183927 stalin.sc:25683:888584 */ t101509.s0.tag = STRUCTURE_TYPE24753; t101509.s0.value.structure_type24753 = &t101510; /* x183928 stalin.sc:25683:888584 */ t101562.s0.tag = EXTERNAL_SYMBOL_TYPE; t101562.s0.value.external_symbol_type = q263; /* x183929 stalin.sc:25683:888584 */ t101563.s0.tag = EXTERNAL_SYMBOL_TYPE; t101563.s0.value.external_symbol_type = q275; /* x183930 stalin.sc:25683:888584 */ t101564.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x183931 stalin.sc:25683:888584 */ t101564.s1.tag = NULL_TYPE; /* x183932 stalin.sc:25683:888584 */ t101563.s1.tag = STRUCTURE_TYPE24753; t101563.s1.value.structure_type24753 = &t101564; /* x183933 stalin.sc:25683:888584 */ t101562.s1.tag = STRUCTURE_TYPE24753; t101562.s1.value.structure_type24753 = &t101563; /* x183934 stalin.sc:25683:888584 */ t101561.s0.tag = STRUCTURE_TYPE24753; t101561.s0.value.structure_type24753 = &t101562; /* x183935 stalin.sc:25683:888584 */ t101566.s0.tag = EXTERNAL_SYMBOL_TYPE; t101566.s0.value.external_symbol_type = q43; /* x183936 stalin.sc:25683:888584 */ t101568.s0.tag = EXTERNAL_SYMBOL_TYPE; t101568.s0.value.external_symbol_type = q120; /* x183937 stalin.sc:25683:888584 */ t101569.s0.tag = EXTERNAL_SYMBOL_TYPE; t101569.s0.value.external_symbol_type = q308; /* x183938 stalin.sc:25683:888584 */ t101570.s0.tag = EXTERNAL_SYMBOL_TYPE; t101570.s0.value.external_symbol_type = q330; /* x183939 stalin.sc:25683:888584 */ t101570.s1.tag = NULL_TYPE; /* x183940 stalin.sc:25683:888584 */ t101569.s1.tag = STRUCTURE_TYPE24753; t101569.s1.value.structure_type24753 = &t101570; /* x183941 stalin.sc:25683:888584 */ t101568.s1.tag = STRUCTURE_TYPE24753; t101568.s1.value.structure_type24753 = &t101569; /* x183942 stalin.sc:25683:888584 */ t101567.s0.tag = STRUCTURE_TYPE24753; t101567.s0.value.structure_type24753 = &t101568; /* x183943 stalin.sc:25683:888584 */ t101571.s0.tag = FALSE_TYPE; /* x183944 stalin.sc:25683:888584 */ t101573.s0.tag = EXTERNAL_SYMBOL_TYPE; t101573.s0.value.external_symbol_type = q242; /* x183945 stalin.sc:25683:888584 */ t101576.s0.tag = EXTERNAL_SYMBOL_TYPE; t101576.s0.value.external_symbol_type = q297; /* x183946 stalin.sc:25683:888584 */ t101578.s0.tag = EXTERNAL_SYMBOL_TYPE; t101578.s0.value.external_symbol_type = q163; /* x183947 stalin.sc:25683:888584 */ t101579.s0.tag = EXTERNAL_SYMBOL_TYPE; t101579.s0.value.external_symbol_type = q161; /* x183948 stalin.sc:25683:888584 */ t101580.s0.tag = EXTERNAL_SYMBOL_TYPE; t101580.s0.value.external_symbol_type = q308; /* x183949 stalin.sc:25683:888584 */ t101580.s1.tag = NULL_TYPE; /* x183950 stalin.sc:25683:888584 */ t101579.s1.tag = STRUCTURE_TYPE24753; t101579.s1.value.structure_type24753 = &t101580; /* x183951 stalin.sc:25683:888584 */ t101578.s1.tag = STRUCTURE_TYPE24753; t101578.s1.value.structure_type24753 = &t101579; /* x183952 stalin.sc:25683:888584 */ t101577.s0.tag = STRUCTURE_TYPE24753; t101577.s0.value.structure_type24753 = &t101578; /* x183953 stalin.sc:25683:888584 */ t101577.s1.tag = NULL_TYPE; /* x183954 stalin.sc:25683:888584 */ t101576.s1.tag = STRUCTURE_TYPE24753; t101576.s1.value.structure_type24753 = &t101577; /* x183955 stalin.sc:25683:888584 */ t101575.s0.tag = STRUCTURE_TYPE24753; t101575.s0.value.structure_type24753 = &t101576; /* x183956 stalin.sc:25683:888584 */ t101575.s1.tag = NULL_TYPE; /* x183957 stalin.sc:25683:888584 */ t101574.s0.tag = STRUCTURE_TYPE24753; t101574.s0.value.structure_type24753 = &t101575; /* x183958 stalin.sc:25683:888584 */ t101582.s0.tag = EXTERNAL_SYMBOL_TYPE; t101582.s0.value.external_symbol_type = q42; /* x183959 stalin.sc:25683:888584 */ t101583.s0.tag = EXTERNAL_SYMBOL_TYPE; t101583.s0.value.external_symbol_type = q308; /* x183960 stalin.sc:25683:888584 */ t101585.s0.tag = EXTERNAL_SYMBOL_TYPE; t101585.s0.value.external_symbol_type = q4; /* x183961 stalin.sc:25683:888584 */ t101586.s0.tag = EXTERNAL_SYMBOL_TYPE; t101586.s0.value.external_symbol_type = q308; /* x183962 stalin.sc:25683:888584 */ t101587.s0.tag = FIXNUM_TYPE; t101587.s0.value.fixnum_type = 1; /* x183963 stalin.sc:25683:888584 */ t101587.s1.tag = NULL_TYPE; /* x183964 stalin.sc:25683:888584 */ t101586.s1.tag = STRUCTURE_TYPE24753; t101586.s1.value.structure_type24753 = &t101587; /* x183965 stalin.sc:25683:888584 */ t101585.s1.tag = STRUCTURE_TYPE24753; t101585.s1.value.structure_type24753 = &t101586; /* x183966 stalin.sc:25683:888584 */ t101584.s0.tag = STRUCTURE_TYPE24753; t101584.s0.value.structure_type24753 = &t101585; /* x183967 stalin.sc:25683:888584 */ t101584.s1.tag = NULL_TYPE; /* x183968 stalin.sc:25683:888584 */ t101583.s1.tag = STRUCTURE_TYPE24753; t101583.s1.value.structure_type24753 = &t101584; /* x183969 stalin.sc:25683:888584 */ t101582.s1.tag = STRUCTURE_TYPE24753; t101582.s1.value.structure_type24753 = &t101583; /* x183970 stalin.sc:25683:888584 */ t101581.s0.tag = STRUCTURE_TYPE24753; t101581.s0.value.structure_type24753 = &t101582; /* x183971 stalin.sc:25683:888584 */ t101589.s0.tag = EXTERNAL_SYMBOL_TYPE; t101589.s0.value.external_symbol_type = q43; /* x183972 stalin.sc:25683:888584 */ t101591.s0.tag = EXTERNAL_SYMBOL_TYPE; t101591.s0.value.external_symbol_type = q244; /* x183973 stalin.sc:25683:888584 */ t101593.s0.tag = EXTERNAL_SYMBOL_TYPE; t101593.s0.value.external_symbol_type = q266; /* x183974 stalin.sc:25683:888584 */ t101594.s0.tag = EXTERNAL_SYMBOL_TYPE; t101594.s0.value.external_symbol_type = q297; /* x183975 stalin.sc:25683:888584 */ t101595.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x183976 stalin.sc:25683:888584 */ t101595.s1.tag = NULL_TYPE; /* x183977 stalin.sc:25683:888584 */ t101594.s1.tag = STRUCTURE_TYPE24753; t101594.s1.value.structure_type24753 = &t101595; /* x183978 stalin.sc:25683:888584 */ t101593.s1.tag = STRUCTURE_TYPE24753; t101593.s1.value.structure_type24753 = &t101594; /* x183979 stalin.sc:25683:888584 */ t101592.s0.tag = STRUCTURE_TYPE24753; t101592.s0.value.structure_type24753 = &t101593; /* x183980 stalin.sc:25683:888584 */ t101597.s0.tag = EXTERNAL_SYMBOL_TYPE; t101597.s0.value.external_symbol_type = q267; /* x183981 stalin.sc:25683:888584 */ t101598.s0.tag = EXTERNAL_SYMBOL_TYPE; t101598.s0.value.external_symbol_type = q297; /* x183982 stalin.sc:25683:888584 */ t101599.s0.tag = ((unsigned)((unsigned char)'7'))<<2; /* x183983 stalin.sc:25683:888584 */ t101599.s1.tag = NULL_TYPE; /* x183984 stalin.sc:25683:888584 */ t101598.s1.tag = STRUCTURE_TYPE24753; t101598.s1.value.structure_type24753 = &t101599; /* x183985 stalin.sc:25683:888584 */ t101597.s1.tag = STRUCTURE_TYPE24753; t101597.s1.value.structure_type24753 = &t101598; /* x183986 stalin.sc:25683:888584 */ t101596.s0.tag = STRUCTURE_TYPE24753; t101596.s0.value.structure_type24753 = &t101597; /* x183987 stalin.sc:25683:888584 */ t101596.s1.tag = NULL_TYPE; /* x183988 stalin.sc:25683:888584 */ t101592.s1.tag = STRUCTURE_TYPE24753; t101592.s1.value.structure_type24753 = &t101596; /* x183989 stalin.sc:25683:888584 */ t101591.s1.tag = STRUCTURE_TYPE24753; t101591.s1.value.structure_type24753 = &t101592; /* x183990 stalin.sc:25683:888584 */ t101590.s0.tag = STRUCTURE_TYPE24753; t101590.s0.value.structure_type24753 = &t101591; /* x183991 stalin.sc:25683:888584 */ t101601.s0.tag = EXTERNAL_SYMBOL_TYPE; t101601.s0.value.external_symbol_type = q331; /* x183992 stalin.sc:25683:888584 */ t101603.s0.tag = EXTERNAL_SYMBOL_TYPE; t101603.s0.value.external_symbol_type = q333; /* x183993 stalin.sc:25683:888584 */ t101605.s0.tag = EXTERNAL_SYMBOL_TYPE; t101605.s0.value.external_symbol_type = q2; /* x183994 stalin.sc:25683:888584 */ t101607.s0.tag = EXTERNAL_SYMBOL_TYPE; t101607.s0.value.external_symbol_type = q157; /* x183995 stalin.sc:25683:888584 */ t101608.s0.tag = EXTERNAL_SYMBOL_TYPE; t101608.s0.value.external_symbol_type = q297; /* x183996 stalin.sc:25683:888584 */ t101608.s1.tag = NULL_TYPE; /* x183997 stalin.sc:25683:888584 */ t101607.s1.tag = STRUCTURE_TYPE24753;} void initialize_constants38(void) {t101607.s1.value.structure_type24753 = &t101608; /* x183998 stalin.sc:25683:888584 */ t101606.s0.tag = STRUCTURE_TYPE24753; t101606.s0.value.structure_type24753 = &t101607; /* x183999 stalin.sc:25683:888584 */ t101610.s0.tag = EXTERNAL_SYMBOL_TYPE; t101610.s0.value.external_symbol_type = q157; /* x184000 stalin.sc:25683:888584 */ t101611.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x184001 stalin.sc:25683:888584 */ t101611.s1.tag = NULL_TYPE; /* x184002 stalin.sc:25683:888584 */ t101610.s1.tag = STRUCTURE_TYPE24753; t101610.s1.value.structure_type24753 = &t101611; /* x184003 stalin.sc:25683:888584 */ t101609.s0.tag = STRUCTURE_TYPE24753; t101609.s0.value.structure_type24753 = &t101610; /* x184004 stalin.sc:25683:888584 */ t101609.s1.tag = NULL_TYPE; /* x184005 stalin.sc:25683:888584 */ t101606.s1.tag = STRUCTURE_TYPE24753; t101606.s1.value.structure_type24753 = &t101609; /* x184006 stalin.sc:25683:888584 */ t101605.s1.tag = STRUCTURE_TYPE24753; t101605.s1.value.structure_type24753 = &t101606; /* x184007 stalin.sc:25683:888584 */ t101604.s0.tag = STRUCTURE_TYPE24753; t101604.s0.value.structure_type24753 = &t101605; /* x184008 stalin.sc:25683:888584 */ t101604.s1.tag = NULL_TYPE; /* x184009 stalin.sc:25683:888584 */ t101603.s1.tag = STRUCTURE_TYPE24753; t101603.s1.value.structure_type24753 = &t101604; /* x184010 stalin.sc:25683:888584 */ t101602.s0.tag = STRUCTURE_TYPE24753; t101602.s0.value.structure_type24753 = &t101603; /* x184011 stalin.sc:25683:888584 */ t101602.s1.tag = NULL_TYPE; /* x184012 stalin.sc:25683:888584 */ t101601.s1.tag = STRUCTURE_TYPE24753; t101601.s1.value.structure_type24753 = &t101602; /* x184013 stalin.sc:25683:888584 */ t101600.s0.tag = STRUCTURE_TYPE24753; t101600.s0.value.structure_type24753 = &t101601; /* x184014 stalin.sc:25683:888584 */ t101612.s0.tag = FALSE_TYPE; /* x184015 stalin.sc:25683:888584 */ t101612.s1.tag = NULL_TYPE; /* x184016 stalin.sc:25683:888584 */ t101600.s1.tag = STRUCTURE_TYPE24753; t101600.s1.value.structure_type24753 = &t101612; /* x184017 stalin.sc:25683:888584 */ t101590.s1.tag = STRUCTURE_TYPE24753; t101590.s1.value.structure_type24753 = &t101600; /* x184018 stalin.sc:25683:888584 */ t101589.s1.tag = STRUCTURE_TYPE24753; t101589.s1.value.structure_type24753 = &t101590; /* x184019 stalin.sc:25683:888584 */ t101588.s0.tag = STRUCTURE_TYPE24753; t101588.s0.value.structure_type24753 = &t101589; /* x184020 stalin.sc:25683:888584 */ t101588.s1.tag = NULL_TYPE; /* x184021 stalin.sc:25683:888584 */ t101581.s1.tag = STRUCTURE_TYPE24753; t101581.s1.value.structure_type24753 = &t101588; /* x184022 stalin.sc:25683:888584 */ t101574.s1.tag = STRUCTURE_TYPE24753; t101574.s1.value.structure_type24753 = &t101581; /* x184023 stalin.sc:25683:888584 */ t101573.s1.tag = STRUCTURE_TYPE24753; t101573.s1.value.structure_type24753 = &t101574; /* x184024 stalin.sc:25683:888584 */ t101572.s0.tag = STRUCTURE_TYPE24753; t101572.s0.value.structure_type24753 = &t101573; /* x184025 stalin.sc:25683:888584 */ t101572.s1.tag = NULL_TYPE; /* x184026 stalin.sc:25683:888584 */ t101571.s1.tag = STRUCTURE_TYPE24753; t101571.s1.value.structure_type24753 = &t101572; /* x184027 stalin.sc:25683:888584 */ t101567.s1.tag = STRUCTURE_TYPE24753; t101567.s1.value.structure_type24753 = &t101571; /* x184028 stalin.sc:25683:888584 */ t101566.s1.tag = STRUCTURE_TYPE24753; t101566.s1.value.structure_type24753 = &t101567; /* x184029 stalin.sc:25683:888584 */ t101565.s0.tag = STRUCTURE_TYPE24753; t101565.s0.value.structure_type24753 = &t101566; /* x184030 stalin.sc:25683:888584 */ t101565.s1.tag = NULL_TYPE; /* x184031 stalin.sc:25683:888584 */ t101561.s1.tag = STRUCTURE_TYPE24753; t101561.s1.value.structure_type24753 = &t101565; /* x184032 stalin.sc:25683:888584 */ t101560.s0.tag = STRUCTURE_TYPE24753; t101560.s0.value.structure_type24753 = &t101561; /* x184033 stalin.sc:25683:888584 */ t101614.s0.tag = EXTERNAL_SYMBOL_TYPE; t101614.s0.value.external_symbol_type = q95; /* x184034 stalin.sc:25683:888584 */ t101615.s0.tag = FALSE_TYPE; /* x184035 stalin.sc:25683:888584 */ t101615.s1.tag = NULL_TYPE; /* x184036 stalin.sc:25683:888584 */ t101614.s1.tag = STRUCTURE_TYPE24753; t101614.s1.value.structure_type24753 = &t101615; /* x184037 stalin.sc:25683:888584 */ t101613.s0.tag = STRUCTURE_TYPE24753; t101613.s0.value.structure_type24753 = &t101614; /* x184038 stalin.sc:25683:888584 */ t101613.s1.tag = NULL_TYPE; /* x184039 stalin.sc:25683:888584 */ t101560.s1.tag = STRUCTURE_TYPE24753; t101560.s1.value.structure_type24753 = &t101613; /* x184040 stalin.sc:25683:888584 */ t101509.s1.tag = STRUCTURE_TYPE24753; t101509.s1.value.structure_type24753 = &t101560; /* x184041 stalin.sc:25683:888584 */ t101488.s1.tag = STRUCTURE_TYPE24753; t101488.s1.value.structure_type24753 = &t101509; /* x184042 stalin.sc:25683:888584 */ t101487.s1.tag = STRUCTURE_TYPE24753; t101487.s1.value.structure_type24753 = &t101488; /* x184043 stalin.sc:25683:888584 */ t101486.s0.tag = STRUCTURE_TYPE24753; t101486.s0.value.structure_type24753 = &t101487; /* x184044 stalin.sc:25683:888584 */ t101486.s1.tag = NULL_TYPE; /* x184045 stalin.sc:25683:888584 */ t101479.s1.tag = STRUCTURE_TYPE24753; t101479.s1.value.structure_type24753 = &t101486; /* x184046 stalin.sc:25683:888584 */ t101472.s1.tag = STRUCTURE_TYPE24753; t101472.s1.value.structure_type24753 = &t101479; /* x184047 stalin.sc:25683:888584 */ t101471.s1.tag = STRUCTURE_TYPE24753; t101471.s1.value.structure_type24753 = &t101472; /* x184048 stalin.sc:25683:888584 */ t101470.s0.tag = STRUCTURE_TYPE24753; t101470.s0.value.structure_type24753 = &t101471; /* x184049 stalin.sc:25683:888584 */ t101470.s1.tag = NULL_TYPE; /* x184050 stalin.sc:25683:888584 */ t101469.s1.tag = STRUCTURE_TYPE24753; t101469.s1.value.structure_type24753 = &t101470; /* x184051 stalin.sc:25683:888584 */ t101465.s1.tag = STRUCTURE_TYPE24753; t101465.s1.value.structure_type24753 = &t101469; /* x184052 stalin.sc:25683:888584 */ t101464.s1.tag = STRUCTURE_TYPE24753; t101464.s1.value.structure_type24753 = &t101465; /* x184053 stalin.sc:25683:888584 */ t101463.s0.tag = STRUCTURE_TYPE24753; t101463.s0.value.structure_type24753 = &t101464; /* x184054 stalin.sc:25683:888584 */ t101463.s1.tag = NULL_TYPE; /* x184055 stalin.sc:25683:888584 */ t101453.s1.tag = STRUCTURE_TYPE24753; t101453.s1.value.structure_type24753 = &t101463; /* x184056 stalin.sc:25683:888584 */ t101452.s0.tag = STRUCTURE_TYPE24753; t101452.s0.value.structure_type24753 = &t101453; /* x184057 stalin.sc:25683:888584 */ t101618.s0.tag = EXTERNAL_SYMBOL_TYPE; t101618.s0.value.external_symbol_type = q241; /* x184058 stalin.sc:25683:888584 */ t101620.s0.tag = EXTERNAL_SYMBOL_TYPE; t101620.s0.value.external_symbol_type = q263; /* x184059 stalin.sc:25683:888584 */ t101621.s0.tag = EXTERNAL_SYMBOL_TYPE; t101621.s0.value.external_symbol_type = q274; /* x184060 stalin.sc:25683:888584 */ t101622.s0.tag = ((unsigned)((unsigned char)'d'))<<2; /* x184061 stalin.sc:25683:888584 */ t101622.s1.tag = NULL_TYPE; /* x184062 stalin.sc:25683:888584 */ t101621.s1.tag = STRUCTURE_TYPE24753; t101621.s1.value.structure_type24753 = &t101622; /* x184063 stalin.sc:25683:888584 */ t101620.s1.tag = STRUCTURE_TYPE24753; t101620.s1.value.structure_type24753 = &t101621; /* x184064 stalin.sc:25683:888584 */ t101619.s0.tag = STRUCTURE_TYPE24753; t101619.s0.value.structure_type24753 = &t101620; /* x184065 stalin.sc:25683:888584 */ t101624.s0.tag = EXTERNAL_SYMBOL_TYPE; t101624.s0.value.external_symbol_type = q263; /* x184066 stalin.sc:25683:888584 */ t101625.s0.tag = EXTERNAL_SYMBOL_TYPE; t101625.s0.value.external_symbol_type = q274; /* x184067 stalin.sc:25683:888584 */ t101626.s0.tag = ((unsigned)((unsigned char)'D'))<<2; /* x184068 stalin.sc:25683:888584 */ t101626.s1.tag = NULL_TYPE; /* x184069 stalin.sc:25683:888584 */ t101625.s1.tag = STRUCTURE_TYPE24753; t101625.s1.value.structure_type24753 = &t101626; /* x184070 stalin.sc:25683:888584 */ t101624.s1.tag = STRUCTURE_TYPE24753; t101624.s1.value.structure_type24753 = &t101625; /* x184071 stalin.sc:25683:888584 */ t101623.s0.tag = STRUCTURE_TYPE24753; t101623.s0.value.structure_type24753 = &t101624; /* x184072 stalin.sc:25683:888584 */ t101623.s1.tag = NULL_TYPE; /* x184073 stalin.sc:25683:888584 */ t101619.s1.tag = STRUCTURE_TYPE24753; t101619.s1.value.structure_type24753 = &t101623; /* x184074 stalin.sc:25683:888584 */ t101618.s1.tag = STRUCTURE_TYPE24753; t101618.s1.value.structure_type24753 = &t101619; /* x184075 stalin.sc:25683:888584 */ t101617.s0.tag = STRUCTURE_TYPE24753; t101617.s0.value.structure_type24753 = &t101618; /* x184076 stalin.sc:25683:888584 */ t101628.s0.tag = EXTERNAL_SYMBOL_TYPE; t101628.s0.value.external_symbol_type = q43; /* x184077 stalin.sc:25683:888584 */ t101630.s0.tag = EXTERNAL_SYMBOL_TYPE; t101630.s0.value.external_symbol_type = q120; /* x184078 stalin.sc:25683:888584 */ t101631.s0.tag = EXTERNAL_SYMBOL_TYPE; t101631.s0.value.external_symbol_type = q308; /* x184079 stalin.sc:25683:888584 */ t101632.s0.tag = EXTERNAL_SYMBOL_TYPE; t101632.s0.value.external_symbol_type = q330; /* x184080 stalin.sc:25683:888584 */ t101632.s1.tag = NULL_TYPE; /* x184081 stalin.sc:25683:888584 */ t101631.s1.tag = STRUCTURE_TYPE24753; t101631.s1.value.structure_type24753 = &t101632; /* x184082 stalin.sc:25683:888584 */ t101630.s1.tag = STRUCTURE_TYPE24753; t101630.s1.value.structure_type24753 = &t101631; /* x184083 stalin.sc:25683:888584 */ t101629.s0.tag = STRUCTURE_TYPE24753; t101629.s0.value.structure_type24753 = &t101630; /* x184084 stalin.sc:25683:888584 */ t101633.s0.tag = FALSE_TYPE; /* x184085 stalin.sc:25683:888584 */ t101635.s0.tag = EXTERNAL_SYMBOL_TYPE; t101635.s0.value.external_symbol_type = q242; /* x184086 stalin.sc:25683:888584 */ t101638.s0.tag = EXTERNAL_SYMBOL_TYPE; t101638.s0.value.external_symbol_type = q275; /* x184087 stalin.sc:25683:888584 */ t101640.s0.tag = EXTERNAL_SYMBOL_TYPE; t101640.s0.value.external_symbol_type = q163; /* x184088 stalin.sc:25683:888584 */ t101641.s0.tag = EXTERNAL_SYMBOL_TYPE; t101641.s0.value.external_symbol_type = q161; /* x184089 stalin.sc:25683:888584 */ t101642.s0.tag = EXTERNAL_SYMBOL_TYPE; t101642.s0.value.external_symbol_type = q308; /* x184090 stalin.sc:25683:888584 */ t101642.s1.tag = NULL_TYPE; /* x184091 stalin.sc:25683:888584 */ t101641.s1.tag = STRUCTURE_TYPE24753; t101641.s1.value.structure_type24753 = &t101642; /* x184092 stalin.sc:25683:888584 */ t101640.s1.tag = STRUCTURE_TYPE24753; t101640.s1.value.structure_type24753 = &t101641; /* x184093 stalin.sc:25683:888584 */ t101639.s0.tag = STRUCTURE_TYPE24753; t101639.s0.value.structure_type24753 = &t101640; /* x184094 stalin.sc:25683:888584 */ t101639.s1.tag = NULL_TYPE; /* x184095 stalin.sc:25683:888584 */ t101638.s1.tag = STRUCTURE_TYPE24753; t101638.s1.value.structure_type24753 = &t101639; /* x184096 stalin.sc:25683:888584 */ t101637.s0.tag = STRUCTURE_TYPE24753; t101637.s0.value.structure_type24753 = &t101638; /* x184097 stalin.sc:25683:888584 */ t101637.s1.tag = NULL_TYPE; /* x184098 stalin.sc:25683:888584 */ t101636.s0.tag = STRUCTURE_TYPE24753; t101636.s0.value.structure_type24753 = &t101637; /* x184099 stalin.sc:25683:888584 */ t101644.s0.tag = EXTERNAL_SYMBOL_TYPE; t101644.s0.value.external_symbol_type = q42; /* x184100 stalin.sc:25683:888584 */ t101645.s0.tag = EXTERNAL_SYMBOL_TYPE; t101645.s0.value.external_symbol_type = q308; /* x184101 stalin.sc:25683:888584 */ t101647.s0.tag = EXTERNAL_SYMBOL_TYPE; t101647.s0.value.external_symbol_type = q4; /* x184102 stalin.sc:25683:888584 */ t101648.s0.tag = EXTERNAL_SYMBOL_TYPE; t101648.s0.value.external_symbol_type = q308; /* x184103 stalin.sc:25683:888584 */ t101649.s0.tag = FIXNUM_TYPE; t101649.s0.value.fixnum_type = 1; /* x184104 stalin.sc:25683:888584 */ t101649.s1.tag = NULL_TYPE; /* x184105 stalin.sc:25683:888584 */ t101648.s1.tag = STRUCTURE_TYPE24753; t101648.s1.value.structure_type24753 = &t101649; /* x184106 stalin.sc:25683:888584 */ t101647.s1.tag = STRUCTURE_TYPE24753; t101647.s1.value.structure_type24753 = &t101648; /* x184107 stalin.sc:25683:888584 */ t101646.s0.tag = STRUCTURE_TYPE24753; t101646.s0.value.structure_type24753 = &t101647; /* x184108 stalin.sc:25683:888584 */ t101646.s1.tag = NULL_TYPE; /* x184109 stalin.sc:25683:888584 */ t101645.s1.tag = STRUCTURE_TYPE24753; t101645.s1.value.structure_type24753 = &t101646; /* x184110 stalin.sc:25683:888584 */ t101644.s1.tag = STRUCTURE_TYPE24753; t101644.s1.value.structure_type24753 = &t101645; /* x184111 stalin.sc:25683:888584 */ t101643.s0.tag = STRUCTURE_TYPE24753; t101643.s0.value.structure_type24753 = &t101644; /* x184112 stalin.sc:25683:888584 */ t101651.s0.tag = EXTERNAL_SYMBOL_TYPE; t101651.s0.value.external_symbol_type = q240; /* x184113 stalin.sc:25683:888584 */ t101654.s0.tag = EXTERNAL_SYMBOL_TYPE; t101654.s0.value.external_symbol_type = q263; /* x184114 stalin.sc:25683:888584 */ t101655.s0.tag = EXTERNAL_SYMBOL_TYPE; t101655.s0.value.external_symbol_type = q275; /* x184115 stalin.sc:25683:888584 */ t101656.s0.tag = ((unsigned)((unsigned char)'+'))<<2; /* x184116 stalin.sc:25683:888584 */ t101656.s1.tag = NULL_TYPE; /* x184117 stalin.sc:25683:888584 */ t101655.s1.tag = STRUCTURE_TYPE24753; t101655.s1.value.structure_type24753 = &t101656; /* x184118 stalin.sc:25683:888584 */ t101654.s1.tag = STRUCTURE_TYPE24753; t101654.s1.value.structure_type24753 = &t101655; /* x184119 stalin.sc:25683:888584 */ t101653.s0.tag = STRUCTURE_TYPE24753; t101653.s0.value.structure_type24753 = &t101654; /* x184120 stalin.sc:25683:888584 */ t101658.s0.tag = EXTERNAL_SYMBOL_TYPE; t101658.s0.value.external_symbol_type = q43; /* x184121 stalin.sc:25683:888584 */ t101660.s0.tag = EXTERNAL_SYMBOL_TYPE; t101660.s0.value.external_symbol_type = q120; /* x184122 stalin.sc:25683:888584 */ t101661.s0.tag = EXTERNAL_SYMBOL_TYPE; t101661.s0.value.external_symbol_type = q308; /* x184123 stalin.sc:25683:888584 */ t101662.s0.tag = EXTERNAL_SYMBOL_TYPE; t101662.s0.value.external_symbol_type = q330; /* x184124 stalin.sc:25683:888584 */ t101662.s1.tag = NULL_TYPE; /* x184125 stalin.sc:25683:888584 */ t101661.s1.tag = STRUCTURE_TYPE24753; t101661.s1.value.structure_type24753 = &t101662; /* x184126 stalin.sc:25683:888584 */ t101660.s1.tag = STRUCTURE_TYPE24753; t101660.s1.value.structure_type24753 = &t101661; /* x184127 stalin.sc:25683:888584 */ t101659.s0.tag = STRUCTURE_TYPE24753; t101659.s0.value.structure_type24753 = &t101660; /* x184128 stalin.sc:25683:888584 */ t101663.s0.tag = FALSE_TYPE; /* x184129 stalin.sc:25683:888584 */ t101665.s0.tag = EXTERNAL_SYMBOL_TYPE; t101665.s0.value.external_symbol_type = q242; /* x184130 stalin.sc:25683:888584 */ t101668.s0.tag = EXTERNAL_SYMBOL_TYPE; t101668.s0.value.external_symbol_type = q297; /* x184131 stalin.sc:25683:888584 */ t101670.s0.tag = EXTERNAL_SYMBOL_TYPE; t101670.s0.value.external_symbol_type = q163; /* x184132 stalin.sc:25683:888584 */ t101671.s0.tag = EXTERNAL_SYMBOL_TYPE; t101671.s0.value.external_symbol_type = q161; /* x184133 stalin.sc:25683:888584 */ t101672.s0.tag = EXTERNAL_SYMBOL_TYPE; t101672.s0.value.external_symbol_type = q308; /* x184134 stalin.sc:25683:888584 */ t101672.s1.tag = NULL_TYPE; /* x184135 stalin.sc:25683:888584 */ t101671.s1.tag = STRUCTURE_TYPE24753; t101671.s1.value.structure_type24753 = &t101672; /* x184136 stalin.sc:25683:888584 */ t101670.s1.tag = STRUCTURE_TYPE24753; t101670.s1.value.structure_type24753 = &t101671; /* x184137 stalin.sc:25683:888584 */ t101669.s0.tag = STRUCTURE_TYPE24753; t101669.s0.value.structure_type24753 = &t101670; /* x184138 stalin.sc:25683:888584 */ t101669.s1.tag = NULL_TYPE; /* x184139 stalin.sc:25683:888584 */ t101668.s1.tag = STRUCTURE_TYPE24753; t101668.s1.value.structure_type24753 = &t101669; /* x184140 stalin.sc:25683:888584 */ t101667.s0.tag = STRUCTURE_TYPE24753; t101667.s0.value.structure_type24753 = &t101668; /* x184141 stalin.sc:25683:888584 */ t101667.s1.tag = NULL_TYPE; /* x184142 stalin.sc:25683:888584 */ t101666.s0.tag = STRUCTURE_TYPE24753; t101666.s0.value.structure_type24753 = &t101667; /* x184143 stalin.sc:25683:888584 */ t101674.s0.tag = EXTERNAL_SYMBOL_TYPE; t101674.s0.value.external_symbol_type = q42; /* x184144 stalin.sc:25683:888584 */ t101675.s0.tag = EXTERNAL_SYMBOL_TYPE; t101675.s0.value.external_symbol_type = q308; /* x184145 stalin.sc:25683:888584 */ t101677.s0.tag = EXTERNAL_SYMBOL_TYPE; t101677.s0.value.external_symbol_type = q4; /* x184146 stalin.sc:25683:888584 */ t101678.s0.tag = EXTERNAL_SYMBOL_TYPE; t101678.s0.value.external_symbol_type = q308; /* x184147 stalin.sc:25683:888584 */ t101679.s0.tag = FIXNUM_TYPE; t101679.s0.value.fixnum_type = 1; /* x184148 stalin.sc:25683:888584 */ t101679.s1.tag = NULL_TYPE; /* x184149 stalin.sc:25683:888584 */ t101678.s1.tag = STRUCTURE_TYPE24753; t101678.s1.value.structure_type24753 = &t101679; /* x184150 stalin.sc:25683:888584 */ t101677.s1.tag = STRUCTURE_TYPE24753; t101677.s1.value.structure_type24753 = &t101678; /* x184151 stalin.sc:25683:888584 */ t101676.s0.tag = STRUCTURE_TYPE24753; t101676.s0.value.structure_type24753 = &t101677; /* x184152 stalin.sc:25683:888584 */ t101676.s1.tag = NULL_TYPE; /* x184153 stalin.sc:25683:888584 */ t101675.s1.tag = STRUCTURE_TYPE24753; t101675.s1.value.structure_type24753 = &t101676; /* x184154 stalin.sc:25683:888584 */ t101674.s1.tag = STRUCTURE_TYPE24753; t101674.s1.value.structure_type24753 = &t101675; /* x184155 stalin.sc:25683:888584 */ t101673.s0.tag = STRUCTURE_TYPE24753; t101673.s0.value.structure_type24753 = &t101674; /* x184156 stalin.sc:25683:888584 */ t101681.s0.tag = EXTERNAL_SYMBOL_TYPE; t101681.s0.value.external_symbol_type = q240; /* x184157 stalin.sc:25683:888584 */ t101684.s0.tag = EXTERNAL_SYMBOL_TYPE; t101684.s0.value.external_symbol_type = q269; /* x184158 stalin.sc:25683:888584 */ t101685.s0.tag = EXTERNAL_SYMBOL_TYPE; t101685.s0.value.external_symbol_type = q297; /* x184159 stalin.sc:25683:888584 */ t101685.s1.tag = NULL_TYPE; /* x184160 stalin.sc:25683:888584 */ t101684.s1.tag = STRUCTURE_TYPE24753; t101684.s1.value.structure_type24753 = &t101685; /* x184161 stalin.sc:25683:888584 */ t101683.s0.tag = STRUCTURE_TYPE24753; t101683.s0.value.structure_type24753 = &t101684; /* x184162 stalin.sc:25683:888584 */ t101687.s0.tag = EXTERNAL_SYMBOL_TYPE; t101687.s0.value.external_symbol_type = q338; /* x184163 stalin.sc:25683:888584 */ t101689.s0.tag = EXTERNAL_SYMBOL_TYPE; t101689.s0.value.external_symbol_type = q2; /* x184164 stalin.sc:25683:888584 */ t101691.s0.tag = EXTERNAL_SYMBOL_TYPE; t101691.s0.value.external_symbol_type = q157; /* x184165 stalin.sc:25683:888584 */ t101692.s0.tag = EXTERNAL_SYMBOL_TYPE; t101692.s0.value.external_symbol_type = q297; /* x184166 stalin.sc:25683:888584 */ t101692.s1.tag = NULL_TYPE; /* x184167 stalin.sc:25683:888584 */ t101691.s1.tag = STRUCTURE_TYPE24753; t101691.s1.value.structure_type24753 = &t101692; /* x184168 stalin.sc:25683:888584 */ t101690.s0.tag = STRUCTURE_TYPE24753; t101690.s0.value.structure_type24753 = &t101691; /* x184169 stalin.sc:25683:888584 */ t101694.s0.tag = EXTERNAL_SYMBOL_TYPE; t101694.s0.value.external_symbol_type = q157; /* x184170 stalin.sc:25683:888584 */ t101695.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x184171 stalin.sc:25683:888584 */ t101695.s1.tag = NULL_TYPE; /* x184172 stalin.sc:25683:888584 */ t101694.s1.tag = STRUCTURE_TYPE24753; t101694.s1.value.structure_type24753 = &t101695; /* x184173 stalin.sc:25683:888584 */ t101693.s0.tag = STRUCTURE_TYPE24753; t101693.s0.value.structure_type24753 = &t101694; /* x184174 stalin.sc:25683:888584 */ t101693.s1.tag = NULL_TYPE; /* x184175 stalin.sc:25683:888584 */ t101690.s1.tag = STRUCTURE_TYPE24753; t101690.s1.value.structure_type24753 = &t101693; /* x184176 stalin.sc:25683:888584 */ t101689.s1.tag = STRUCTURE_TYPE24753; t101689.s1.value.structure_type24753 = &t101690; /* x184177 stalin.sc:25683:888584 */ t101688.s0.tag = STRUCTURE_TYPE24753; t101688.s0.value.structure_type24753 = &t101689; /* x184178 stalin.sc:25683:888584 */ t101688.s1.tag = NULL_TYPE; /* x184179 stalin.sc:25683:888584 */ t101687.s1.tag = STRUCTURE_TYPE24753; t101687.s1.value.structure_type24753 = &t101688; /* x184180 stalin.sc:25683:888584 */ t101686.s0.tag = STRUCTURE_TYPE24753; t101686.s0.value.structure_type24753 = &t101687; /* x184181 stalin.sc:25683:888584 */ t101686.s1.tag = NULL_TYPE; /* x184182 stalin.sc:25683:888584 */ t101683.s1.tag = STRUCTURE_TYPE24753; t101683.s1.value.structure_type24753 = &t101686; /* x184183 stalin.sc:25683:888584 */ t101682.s0.tag = STRUCTURE_TYPE24753; t101682.s0.value.structure_type24753 = &t101683; /* x184184 stalin.sc:25683:888584 */ t101698.s0.tag = EXTERNAL_SYMBOL_TYPE; t101698.s0.value.external_symbol_type = q263; /* x184185 stalin.sc:25683:888584 */ t101699.s0.tag = EXTERNAL_SYMBOL_TYPE; t101699.s0.value.external_symbol_type = q297; /* x184186 stalin.sc:25683:888584 */ t101700.s0.tag = ((unsigned)((unsigned char)'.'))<<2; /* x184187 stalin.sc:25683:888584 */ t101700.s1.tag = NULL_TYPE; /* x184188 stalin.sc:25683:888584 */ t101699.s1.tag = STRUCTURE_TYPE24753; t101699.s1.value.structure_type24753 = &t101700; /* x184189 stalin.sc:25683:888584 */ t101698.s1.tag = STRUCTURE_TYPE24753; t101698.s1.value.structure_type24753 = &t101699; /* x184190 stalin.sc:25683:888584 */ t101697.s0.tag = STRUCTURE_TYPE24753; t101697.s0.value.structure_type24753 = &t101698; /* x184191 stalin.sc:25683:888584 */ t101702.s0.tag = EXTERNAL_SYMBOL_TYPE; t101702.s0.value.external_symbol_type = q43; /* x184192 stalin.sc:25683:888584 */ t101704.s0.tag = EXTERNAL_SYMBOL_TYPE; t101704.s0.value.external_symbol_type = q120; /* x184193 stalin.sc:25683:888584 */ t101705.s0.tag = EXTERNAL_SYMBOL_TYPE; t101705.s0.value.external_symbol_type = q308; /* x184194 stalin.sc:25683:888584 */ t101706.s0.tag = EXTERNAL_SYMBOL_TYPE; t101706.s0.value.external_symbol_type = q330; /* x184195 stalin.sc:25683:888584 */ t101706.s1.tag = NULL_TYPE; /* x184196 stalin.sc:25683:888584 */ t101705.s1.tag = STRUCTURE_TYPE24753; t101705.s1.value.structure_type24753 = &t101706; /* x184197 stalin.sc:25683:888584 */ t101704.s1.tag = STRUCTURE_TYPE24753; t101704.s1.value.structure_type24753 = &t101705; /* x184198 stalin.sc:25683:888584 */ t101703.s0.tag = STRUCTURE_TYPE24753; t101703.s0.value.structure_type24753 = &t101704; /* x184199 stalin.sc:25683:888584 */ t101707.s0.tag = FALSE_TYPE; /* x184200 stalin.sc:25683:888584 */ t101709.s0.tag = EXTERNAL_SYMBOL_TYPE; t101709.s0.value.external_symbol_type = q242; /* x184201 stalin.sc:25683:888584 */ t101712.s0.tag = EXTERNAL_SYMBOL_TYPE; t101712.s0.value.external_symbol_type = q300; /* x184202 stalin.sc:25683:888584 */ t101714.s0.tag = EXTERNAL_SYMBOL_TYPE; t101714.s0.value.external_symbol_type = q163; /* x184203 stalin.sc:25683:888584 */ t101715.s0.tag = EXTERNAL_SYMBOL_TYPE; t101715.s0.value.external_symbol_type = q161; /* x184204 stalin.sc:25683:888584 */ t101716.s0.tag = EXTERNAL_SYMBOL_TYPE; t101716.s0.value.external_symbol_type = q308; /* x184205 stalin.sc:25683:888584 */ t101716.s1.tag = NULL_TYPE; /* x184206 stalin.sc:25683:888584 */ t101715.s1.tag = STRUCTURE_TYPE24753; t101715.s1.value.structure_type24753 = &t101716; /* x184207 stalin.sc:25683:888584 */ t101714.s1.tag = STRUCTURE_TYPE24753; t101714.s1.value.structure_type24753 = &t101715; /* x184208 stalin.sc:25683:888584 */ t101713.s0.tag = STRUCTURE_TYPE24753; t101713.s0.value.structure_type24753 = &t101714; /* x184209 stalin.sc:25683:888584 */ t101713.s1.tag = NULL_TYPE; /* x184210 stalin.sc:25683:888584 */ t101712.s1.tag = STRUCTURE_TYPE24753; t101712.s1.value.structure_type24753 = &t101713; /* x184211 stalin.sc:25683:888584 */ t101711.s0.tag = STRUCTURE_TYPE24753; t101711.s0.value.structure_type24753 = &t101712; /* x184212 stalin.sc:25683:888584 */ t101711.s1.tag = NULL_TYPE; /* x184213 stalin.sc:25683:888584 */ t101710.s0.tag = STRUCTURE_TYPE24753; t101710.s0.value.structure_type24753 = &t101711; /* x184214 stalin.sc:25683:888584 */ t101718.s0.tag = EXTERNAL_SYMBOL_TYPE; t101718.s0.value.external_symbol_type = q42; /* x184215 stalin.sc:25683:888584 */ t101719.s0.tag = EXTERNAL_SYMBOL_TYPE; t101719.s0.value.external_symbol_type = q308; /* x184216 stalin.sc:25683:888584 */ t101721.s0.tag = EXTERNAL_SYMBOL_TYPE; t101721.s0.value.external_symbol_type = q4; /* x184217 stalin.sc:25683:888584 */ t101722.s0.tag = EXTERNAL_SYMBOL_TYPE; t101722.s0.value.external_symbol_type = q308; /* x184218 stalin.sc:25683:888584 */ t101723.s0.tag = FIXNUM_TYPE; t101723.s0.value.fixnum_type = 1; /* x184219 stalin.sc:25683:888584 */ t101723.s1.tag = NULL_TYPE; /* x184220 stalin.sc:25683:888584 */ t101722.s1.tag = STRUCTURE_TYPE24753; t101722.s1.value.structure_type24753 = &t101723; /* x184221 stalin.sc:25683:888584 */ t101721.s1.tag = STRUCTURE_TYPE24753; t101721.s1.value.structure_type24753 = &t101722; /* x184222 stalin.sc:25683:888584 */ t101720.s0.tag = STRUCTURE_TYPE24753; t101720.s0.value.structure_type24753 = &t101721; /* x184223 stalin.sc:25683:888584 */ t101720.s1.tag = NULL_TYPE; /* x184224 stalin.sc:25683:888584 */ t101719.s1.tag = STRUCTURE_TYPE24753; t101719.s1.value.structure_type24753 = &t101720; /* x184225 stalin.sc:25683:888584 */ t101718.s1.tag = STRUCTURE_TYPE24753; t101718.s1.value.structure_type24753 = &t101719; /* x184226 stalin.sc:25683:888584 */ t101717.s0.tag = STRUCTURE_TYPE24753; t101717.s0.value.structure_type24753 = &t101718; /* x184227 stalin.sc:25683:888584 */ t101725.s0.tag = EXTERNAL_SYMBOL_TYPE; t101725.s0.value.external_symbol_type = q43; /* x184228 stalin.sc:25683:888584 */ t101727.s0.tag = EXTERNAL_SYMBOL_TYPE; t101727.s0.value.external_symbol_type = q269; /* x184229 stalin.sc:25683:888584 */ t101728.s0.tag = EXTERNAL_SYMBOL_TYPE; t101728.s0.value.external_symbol_type = q300; /* x184230 stalin.sc:25683:888584 */ t101728.s1.tag = NULL_TYPE; /* x184231 stalin.sc:25683:888584 */ t101727.s1.tag = STRUCTURE_TYPE24753; t101727.s1.value.structure_type24753 = &t101728; /* x184232 stalin.sc:25683:888584 */ t101726.s0.tag = STRUCTURE_TYPE24753; t101726.s0.value.structure_type24753 = &t101727; /* x184233 stalin.sc:25683:888584 */ t101730.s0.tag = EXTERNAL_SYMBOL_TYPE; t101730.s0.value.external_symbol_type = q336; /* x184234 stalin.sc:25683:888584 */ t101732.s0.tag = EXTERNAL_SYMBOL_TYPE; t101732.s0.value.external_symbol_type = q131; /* x184235 stalin.sc:25683:888584 */ t101734.s0.tag = EXTERNAL_SYMBOL_TYPE; t101734.s0.value.external_symbol_type = q2; /* x184236 stalin.sc:25683:888584 */ t101736.s0.tag = EXTERNAL_SYMBOL_TYPE; t101736.s0.value.external_symbol_type = q157; /* x184237 stalin.sc:25683:888584 */ t101737.s0.tag = EXTERNAL_SYMBOL_TYPE; t101737.s0.value.external_symbol_type = q300; /* x184238 stalin.sc:25683:888584 */ t101737.s1.tag = NULL_TYPE; /* x184239 stalin.sc:25683:888584 */ t101736.s1.tag = STRUCTURE_TYPE24753; t101736.s1.value.structure_type24753 = &t101737; /* x184240 stalin.sc:25683:888584 */ t101735.s0.tag = STRUCTURE_TYPE24753; t101735.s0.value.structure_type24753 = &t101736; /* x184241 stalin.sc:25683:888584 */ t101739.s0.tag = EXTERNAL_SYMBOL_TYPE; t101739.s0.value.external_symbol_type = q157; /* x184242 stalin.sc:25683:888584 */ t101740.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x184243 stalin.sc:25683:888584 */ t101740.s1.tag = NULL_TYPE; /* x184244 stalin.sc:25683:888584 */ t101739.s1.tag = STRUCTURE_TYPE24753; t101739.s1.value.structure_type24753 = &t101740; /* x184245 stalin.sc:25683:888584 */ t101738.s0.tag = STRUCTURE_TYPE24753; t101738.s0.value.structure_type24753 = &t101739; /* x184246 stalin.sc:25683:888584 */ t101738.s1.tag = NULL_TYPE; /* x184247 stalin.sc:25683:888584 */ t101735.s1.tag = STRUCTURE_TYPE24753; t101735.s1.value.structure_type24753 = &t101738; /* x184248 stalin.sc:25683:888584 */ t101734.s1.tag = STRUCTURE_TYPE24753; t101734.s1.value.structure_type24753 = &t101735; /* x184249 stalin.sc:25683:888584 */ t101733.s0.tag = STRUCTURE_TYPE24753; t101733.s0.value.structure_type24753 = &t101734; /* x184250 stalin.sc:25683:888584 */ t101741.s0.tag = FLONUM_TYPE; t101741.s0.value.flonum_type = 1.0e1; /* x184251 stalin.sc:25683:888584 */ t101741.s1.tag = NULL_TYPE; /* x184252 stalin.sc:25683:888584 */ t101733.s1.tag = STRUCTURE_TYPE24753; t101733.s1.value.structure_type24753 = &t101741; /* x184253 stalin.sc:25683:888584 */ t101732.s1.tag = STRUCTURE_TYPE24753; t101732.s1.value.structure_type24753 = &t101733; /* x184254 stalin.sc:25683:888584 */ t101731.s0.tag = STRUCTURE_TYPE24753; t101731.s0.value.structure_type24753 = &t101732; /* x184255 stalin.sc:25683:888584 */ t101742.s0.tag = FLONUM_TYPE; t101742.s0.value.flonum_type = 1.0e2; /* x184256 stalin.sc:25683:888584 */ t101742.s1.tag = NULL_TYPE; /* x184257 stalin.sc:25683:888584 */ t101731.s1.tag = STRUCTURE_TYPE24753; t101731.s1.value.structure_type24753 = &t101742; /* x184258 stalin.sc:25683:888584 */ t101730.s1.tag = STRUCTURE_TYPE24753; t101730.s1.value.structure_type24753 = &t101731; /* x184259 stalin.sc:25683:888584 */ t101729.s0.tag = STRUCTURE_TYPE24753; t101729.s0.value.structure_type24753 = &t101730; /* x184260 stalin.sc:25683:888584 */ t101743.s0.tag = FALSE_TYPE; /* x184261 stalin.sc:25683:888584 */ t101743.s1.tag = NULL_TYPE; /* x184262 stalin.sc:25683:888584 */ t101729.s1.tag = STRUCTURE_TYPE24753; t101729.s1.value.structure_type24753 = &t101743; /* x184263 stalin.sc:25683:888584 */ t101726.s1.tag = STRUCTURE_TYPE24753; t101726.s1.value.structure_type24753 = &t101729; /* x184264 stalin.sc:25683:888584 */ t101725.s1.tag = STRUCTURE_TYPE24753; t101725.s1.value.structure_type24753 = &t101726; /* x184265 stalin.sc:25683:888584 */ t101724.s0.tag = STRUCTURE_TYPE24753; t101724.s0.value.structure_type24753 = &t101725; /* x184266 stalin.sc:25683:888584 */ t101724.s1.tag = NULL_TYPE; /* x184267 stalin.sc:25683:888584 */ t101717.s1.tag = STRUCTURE_TYPE24753; t101717.s1.value.structure_type24753 = &t101724; /* x184268 stalin.sc:25683:888584 */ t101710.s1.tag = STRUCTURE_TYPE24753; t101710.s1.value.structure_type24753 = &t101717; /* x184269 stalin.sc:25683:888584 */ t101709.s1.tag = STRUCTURE_TYPE24753; t101709.s1.value.structure_type24753 = &t101710; /* x184270 stalin.sc:25683:888584 */ t101708.s0.tag = STRUCTURE_TYPE24753; t101708.s0.value.structure_type24753 = &t101709; /* x184271 stalin.sc:25683:888584 */ t101708.s1.tag = NULL_TYPE; /* x184272 stalin.sc:25683:888584 */ t101707.s1.tag = STRUCTURE_TYPE24753; t101707.s1.value.structure_type24753 = &t101708; /* x184273 stalin.sc:25683:888584 */ t101703.s1.tag = STRUCTURE_TYPE24753; t101703.s1.value.structure_type24753 = &t101707; /* x184274 stalin.sc:25683:888584 */ t101702.s1.tag = STRUCTURE_TYPE24753; t101702.s1.value.structure_type24753 = &t101703; /* x184275 stalin.sc:25683:888584 */ t101701.s0.tag = STRUCTURE_TYPE24753; t101701.s0.value.structure_type24753 = &t101702; /* x184276 stalin.sc:25683:888584 */ t101701.s1.tag = NULL_TYPE; /* x184277 stalin.sc:25683:888584 */ t101697.s1.tag = STRUCTURE_TYPE24753; t101697.s1.value.structure_type24753 = &t101701; /* x184278 stalin.sc:25683:888584 */ t101696.s0.tag = STRUCTURE_TYPE24753; t101696.s0.value.structure_type24753 = &t101697; /* x184279 stalin.sc:25683:888584 */ t101745.s0.tag = EXTERNAL_SYMBOL_TYPE; t101745.s0.value.external_symbol_type = q95; /* x184280 stalin.sc:25683:888584 */ t101746.s0.tag = FALSE_TYPE; /* x184281 stalin.sc:25683:888584 */ t101746.s1.tag = NULL_TYPE; /* x184282 stalin.sc:25683:888584 */ t101745.s1.tag = STRUCTURE_TYPE24753; t101745.s1.value.structure_type24753 = &t101746; /* x184283 stalin.sc:25683:888584 */ t101744.s0.tag = STRUCTURE_TYPE24753; t101744.s0.value.structure_type24753 = &t101745; /* x184284 stalin.sc:25683:888584 */ t101744.s1.tag = NULL_TYPE; /* x184285 stalin.sc:25683:888584 */ t101696.s1.tag = STRUCTURE_TYPE24753; t101696.s1.value.structure_type24753 = &t101744; /* x184286 stalin.sc:25683:888584 */ t101682.s1.tag = STRUCTURE_TYPE24753; t101682.s1.value.structure_type24753 = &t101696; /* x184287 stalin.sc:25683:888584 */ t101681.s1.tag = STRUCTURE_TYPE24753; t101681.s1.value.structure_type24753 = &t101682; /* x184288 stalin.sc:25683:888584 */ t101680.s0.tag = STRUCTURE_TYPE24753; t101680.s0.value.structure_type24753 = &t101681; /* x184289 stalin.sc:25683:888584 */ t101680.s1.tag = NULL_TYPE; /* x184290 stalin.sc:25683:888584 */ t101673.s1.tag = STRUCTURE_TYPE24753; t101673.s1.value.structure_type24753 = &t101680; /* x184291 stalin.sc:25683:888584 */ t101666.s1.tag = STRUCTURE_TYPE24753; t101666.s1.value.structure_type24753 = &t101673; /* x184292 stalin.sc:25683:888584 */ t101665.s1.tag = STRUCTURE_TYPE24753; t101665.s1.value.structure_type24753 = &t101666; /* x184293 stalin.sc:25683:888584 */ t101664.s0.tag = STRUCTURE_TYPE24753; t101664.s0.value.structure_type24753 = &t101665; /* x184294 stalin.sc:25683:888584 */ t101664.s1.tag = NULL_TYPE; /* x184295 stalin.sc:25683:888584 */ t101663.s1.tag = STRUCTURE_TYPE24753; t101663.s1.value.structure_type24753 = &t101664; /* x184296 stalin.sc:25683:888584 */ t101659.s1.tag = STRUCTURE_TYPE24753; t101659.s1.value.structure_type24753 = &t101663; /* x184297 stalin.sc:25683:888584 */ t101658.s1.tag = STRUCTURE_TYPE24753; t101658.s1.value.structure_type24753 = &t101659; /* x184298 stalin.sc:25683:888584 */ t101657.s0.tag = STRUCTURE_TYPE24753; t101657.s0.value.structure_type24753 = &t101658; /* x184299 stalin.sc:25683:888584 */ t101657.s1.tag = NULL_TYPE; /* x184300 stalin.sc:25683:888584 */ t101653.s1.tag = STRUCTURE_TYPE24753; t101653.s1.value.structure_type24753 = &t101657; /* x184301 stalin.sc:25683:888584 */ t101652.s0.tag = STRUCTURE_TYPE24753; t101652.s0.value.structure_type24753 = &t101653; /* x184302 stalin.sc:25683:888584 */ t101749.s0.tag = EXTERNAL_SYMBOL_TYPE; t101749.s0.value.external_symbol_type = q263; /* x184303 stalin.sc:25683:888584 */ t101750.s0.tag = EXTERNAL_SYMBOL_TYPE; t101750.s0.value.external_symbol_type = q275; /* x184304 stalin.sc:25683:888584 */ t101751.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x184305 stalin.sc:25683:888584 */ t101751.s1.tag = NULL_TYPE; /* x184306 stalin.sc:25683:888584 */ t101750.s1.tag = STRUCTURE_TYPE24753; t101750.s1.value.structure_type24753 = &t101751; /* x184307 stalin.sc:25683:888584 */ t101749.s1.tag = STRUCTURE_TYPE24753; t101749.s1.value.structure_type24753 = &t101750; /* x184308 stalin.sc:25683:888584 */ t101748.s0.tag = STRUCTURE_TYPE24753; t101748.s0.value.structure_type24753 = &t101749; /* x184309 stalin.sc:25683:888584 */ t101753.s0.tag = EXTERNAL_SYMBOL_TYPE; t101753.s0.value.external_symbol_type = q43; /* x184310 stalin.sc:25683:888584 */ t101755.s0.tag = EXTERNAL_SYMBOL_TYPE; t101755.s0.value.external_symbol_type = q120; /* x184311 stalin.sc:25683:888584 */ t101756.s0.tag = EXTERNAL_SYMBOL_TYPE; t101756.s0.value.external_symbol_type = q308; /* x184312 stalin.sc:25683:888584 */ t101757.s0.tag = EXTERNAL_SYMBOL_TYPE; t101757.s0.value.external_symbol_type = q330; /* x184313 stalin.sc:25683:888584 */ t101757.s1.tag = NULL_TYPE; /* x184314 stalin.sc:25683:888584 */ t101756.s1.tag = STRUCTURE_TYPE24753; t101756.s1.value.structure_type24753 = &t101757; /* x184315 stalin.sc:25683:888584 */ t101755.s1.tag = STRUCTURE_TYPE24753; t101755.s1.value.structure_type24753 = &t101756; /* x184316 stalin.sc:25683:888584 */ t101754.s0.tag = STRUCTURE_TYPE24753; t101754.s0.value.structure_type24753 = &t101755; /* x184317 stalin.sc:25683:888584 */ t101758.s0.tag = FALSE_TYPE; /* x184318 stalin.sc:25683:888584 */ t101760.s0.tag = EXTERNAL_SYMBOL_TYPE; t101760.s0.value.external_symbol_type = q242; /* x184319 stalin.sc:25683:888584 */ t101763.s0.tag = EXTERNAL_SYMBOL_TYPE; t101763.s0.value.external_symbol_type = q297; /* x184320 stalin.sc:25683:888584 */ t101765.s0.tag = EXTERNAL_SYMBOL_TYPE; t101765.s0.value.external_symbol_type = q163; /* x184321 stalin.sc:25683:888584 */ t101766.s0.tag = EXTERNAL_SYMBOL_TYPE; t101766.s0.value.external_symbol_type = q161; /* x184322 stalin.sc:25683:888584 */ t101767.s0.tag = EXTERNAL_SYMBOL_TYPE; t101767.s0.value.external_symbol_type = q308; /* x184323 stalin.sc:25683:888584 */ t101767.s1.tag = NULL_TYPE; /* x184324 stalin.sc:25683:888584 */ t101766.s1.tag = STRUCTURE_TYPE24753; t101766.s1.value.structure_type24753 = &t101767; /* x184325 stalin.sc:25683:888584 */ t101765.s1.tag = STRUCTURE_TYPE24753; t101765.s1.value.structure_type24753 = &t101766; /* x184326 stalin.sc:25683:888584 */ t101764.s0.tag = STRUCTURE_TYPE24753; t101764.s0.value.structure_type24753 = &t101765; /* x184327 stalin.sc:25683:888584 */ t101764.s1.tag = NULL_TYPE; /* x184328 stalin.sc:25683:888584 */ t101763.s1.tag = STRUCTURE_TYPE24753; t101763.s1.value.structure_type24753 = &t101764; /* x184329 stalin.sc:25683:888584 */ t101762.s0.tag = STRUCTURE_TYPE24753; t101762.s0.value.structure_type24753 = &t101763; /* x184330 stalin.sc:25683:888584 */ t101762.s1.tag = NULL_TYPE; /* x184331 stalin.sc:25683:888584 */ t101761.s0.tag = STRUCTURE_TYPE24753; t101761.s0.value.structure_type24753 = &t101762; /* x184332 stalin.sc:25683:888584 */ t101769.s0.tag = EXTERNAL_SYMBOL_TYPE; t101769.s0.value.external_symbol_type = q42; /* x184333 stalin.sc:25683:888584 */ t101770.s0.tag = EXTERNAL_SYMBOL_TYPE; t101770.s0.value.external_symbol_type = q308; /* x184334 stalin.sc:25683:888584 */ t101772.s0.tag = EXTERNAL_SYMBOL_TYPE; t101772.s0.value.external_symbol_type = q4; /* x184335 stalin.sc:25683:888584 */ t101773.s0.tag = EXTERNAL_SYMBOL_TYPE; t101773.s0.value.external_symbol_type = q308; /* x184336 stalin.sc:25683:888584 */ t101774.s0.tag = FIXNUM_TYPE; t101774.s0.value.fixnum_type = 1; /* x184337 stalin.sc:25683:888584 */ t101774.s1.tag = NULL_TYPE; /* x184338 stalin.sc:25683:888584 */ t101773.s1.tag = STRUCTURE_TYPE24753; t101773.s1.value.structure_type24753 = &t101774; /* x184339 stalin.sc:25683:888584 */ t101772.s1.tag = STRUCTURE_TYPE24753; t101772.s1.value.structure_type24753 = &t101773; /* x184340 stalin.sc:25683:888584 */ t101771.s0.tag = STRUCTURE_TYPE24753; t101771.s0.value.structure_type24753 = &t101772; /* x184341 stalin.sc:25683:888584 */ t101771.s1.tag = NULL_TYPE; /* x184342 stalin.sc:25683:888584 */ t101770.s1.tag = STRUCTURE_TYPE24753; t101770.s1.value.structure_type24753 = &t101771; /* x184343 stalin.sc:25683:888584 */ t101769.s1.tag = STRUCTURE_TYPE24753; t101769.s1.value.structure_type24753 = &t101770; /* x184344 stalin.sc:25683:888584 */ t101768.s0.tag = STRUCTURE_TYPE24753; t101768.s0.value.structure_type24753 = &t101769; /* x184345 stalin.sc:25683:888584 */ t101776.s0.tag = EXTERNAL_SYMBOL_TYPE; t101776.s0.value.external_symbol_type = q240; /* x184346 stalin.sc:25683:888584 */ t101779.s0.tag = EXTERNAL_SYMBOL_TYPE; t101779.s0.value.external_symbol_type = q269; /* x184347 stalin.sc:25683:888584 */ t101780.s0.tag = EXTERNAL_SYMBOL_TYPE; t101780.s0.value.external_symbol_type = q297; /* x184348 stalin.sc:25683:888584 */ t101780.s1.tag = NULL_TYPE; /* x184349 stalin.sc:25683:888584 */ t101779.s1.tag = STRUCTURE_TYPE24753; t101779.s1.value.structure_type24753 = &t101780; /* x184350 stalin.sc:25683:888584 */ t101778.s0.tag = STRUCTURE_TYPE24753; t101778.s0.value.structure_type24753 = &t101779; /* x184351 stalin.sc:25683:888584 */ t101782.s0.tag = EXTERNAL_SYMBOL_TYPE; t101782.s0.value.external_symbol_type = q331; /* x184352 stalin.sc:25683:888584 */ t101784.s0.tag = EXTERNAL_SYMBOL_TYPE; t101784.s0.value.external_symbol_type = q338; /* x184353 stalin.sc:25683:888584 */ t101786.s0.tag = EXTERNAL_SYMBOL_TYPE; t101786.s0.value.external_symbol_type = q2; /* x184354 stalin.sc:25683:888584 */ t101788.s0.tag = EXTERNAL_SYMBOL_TYPE; t101788.s0.value.external_symbol_type = q157; /* x184355 stalin.sc:25683:888584 */ t101789.s0.tag = EXTERNAL_SYMBOL_TYPE; t101789.s0.value.external_symbol_type = q297; /* x184356 stalin.sc:25683:888584 */ t101789.s1.tag = NULL_TYPE; /* x184357 stalin.sc:25683:888584 */ t101788.s1.tag = STRUCTURE_TYPE24753; t101788.s1.value.structure_type24753 = &t101789; /* x184358 stalin.sc:25683:888584 */ t101787.s0.tag = STRUCTURE_TYPE24753; t101787.s0.value.structure_type24753 = &t101788; /* x184359 stalin.sc:25683:888584 */ t101791.s0.tag = EXTERNAL_SYMBOL_TYPE; t101791.s0.value.external_symbol_type = q157; /* x184360 stalin.sc:25683:888584 */ t101792.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x184361 stalin.sc:25683:888584 */ t101792.s1.tag = NULL_TYPE; /* x184362 stalin.sc:25683:888584 */ t101791.s1.tag = STRUCTURE_TYPE24753; t101791.s1.value.structure_type24753 = &t101792; /* x184363 stalin.sc:25683:888584 */ t101790.s0.tag = STRUCTURE_TYPE24753; t101790.s0.value.structure_type24753 = &t101791; /* x184364 stalin.sc:25683:888584 */ t101790.s1.tag = NULL_TYPE; /* x184365 stalin.sc:25683:888584 */ t101787.s1.tag = STRUCTURE_TYPE24753; t101787.s1.value.structure_type24753 = &t101790; /* x184366 stalin.sc:25683:888584 */ t101786.s1.tag = STRUCTURE_TYPE24753; t101786.s1.value.structure_type24753 = &t101787; /* x184367 stalin.sc:25683:888584 */ t101785.s0.tag = STRUCTURE_TYPE24753; t101785.s0.value.structure_type24753 = &t101786; /* x184368 stalin.sc:25683:888584 */ t101785.s1.tag = NULL_TYPE; /* x184369 stalin.sc:25683:888584 */ t101784.s1.tag = STRUCTURE_TYPE24753; t101784.s1.value.structure_type24753 = &t101785; /* x184370 stalin.sc:25683:888584 */ t101783.s0.tag = STRUCTURE_TYPE24753; t101783.s0.value.structure_type24753 = &t101784; /* x184371 stalin.sc:25683:888584 */ t101783.s1.tag = NULL_TYPE; /* x184372 stalin.sc:25683:888584 */ t101782.s1.tag = STRUCTURE_TYPE24753; t101782.s1.value.structure_type24753 = &t101783; /* x184373 stalin.sc:25683:888584 */ t101781.s0.tag = STRUCTURE_TYPE24753; t101781.s0.value.structure_type24753 = &t101782; /* x184374 stalin.sc:25683:888584 */ t101781.s1.tag = NULL_TYPE; /* x184375 stalin.sc:25683:888584 */ t101778.s1.tag = STRUCTURE_TYPE24753; t101778.s1.value.structure_type24753 = &t101781; /* x184376 stalin.sc:25683:888584 */ t101777.s0.tag = STRUCTURE_TYPE24753; t101777.s0.value.structure_type24753 = &t101778; /* x184377 stalin.sc:25683:888584 */ t101795.s0.tag = EXTERNAL_SYMBOL_TYPE; t101795.s0.value.external_symbol_type = q263; /* x184378 stalin.sc:25683:888584 */ t101796.s0.tag = EXTERNAL_SYMBOL_TYPE; t101796.s0.value.external_symbol_type = q297; /* x184379 stalin.sc:25683:888584 */ t101797.s0.tag = ((unsigned)((unsigned char)'.'))<<2; /* x184380 stalin.sc:25683:888584 */ t101797.s1.tag = NULL_TYPE; /* x184381 stalin.sc:25683:888584 */ t101796.s1.tag = STRUCTURE_TYPE24753; t101796.s1.value.structure_type24753 = &t101797; /* x184382 stalin.sc:25683:888584 */ t101795.s1.tag = STRUCTURE_TYPE24753; t101795.s1.value.structure_type24753 = &t101796; /* x184383 stalin.sc:25683:888584 */ t101794.s0.tag = STRUCTURE_TYPE24753; t101794.s0.value.structure_type24753 = &t101795; /* x184384 stalin.sc:25683:888584 */ t101799.s0.tag = EXTERNAL_SYMBOL_TYPE; t101799.s0.value.external_symbol_type = q43; /* x184385 stalin.sc:25683:888584 */ t101801.s0.tag = EXTERNAL_SYMBOL_TYPE; t101801.s0.value.external_symbol_type = q120; /* x184386 stalin.sc:25683:888584 */ t101802.s0.tag = EXTERNAL_SYMBOL_TYPE; t101802.s0.value.external_symbol_type = q308; /* x184387 stalin.sc:25683:888584 */ t101803.s0.tag = EXTERNAL_SYMBOL_TYPE; t101803.s0.value.external_symbol_type = q330; /* x184388 stalin.sc:25683:888584 */ t101803.s1.tag = NULL_TYPE; /* x184389 stalin.sc:25683:888584 */ t101802.s1.tag = STRUCTURE_TYPE24753; t101802.s1.value.structure_type24753 = &t101803; /* x184390 stalin.sc:25683:888584 */ t101801.s1.tag = STRUCTURE_TYPE24753; t101801.s1.value.structure_type24753 = &t101802; /* x184391 stalin.sc:25683:888584 */ t101800.s0.tag = STRUCTURE_TYPE24753; t101800.s0.value.structure_type24753 = &t101801; /* x184392 stalin.sc:25683:888584 */ t101804.s0.tag = FALSE_TYPE; /* x184393 stalin.sc:25683:888584 */ t101806.s0.tag = EXTERNAL_SYMBOL_TYPE; t101806.s0.value.external_symbol_type = q242; /* x184394 stalin.sc:25683:888584 */ t101809.s0.tag = EXTERNAL_SYMBOL_TYPE; t101809.s0.value.external_symbol_type = q300; /* x184395 stalin.sc:25683:888584 */ t101811.s0.tag = EXTERNAL_SYMBOL_TYPE; t101811.s0.value.external_symbol_type = q163; /* x184396 stalin.sc:25683:888584 */ t101812.s0.tag = EXTERNAL_SYMBOL_TYPE; t101812.s0.value.external_symbol_type = q161; /* x184397 stalin.sc:25683:888584 */ t101813.s0.tag = EXTERNAL_SYMBOL_TYPE; t101813.s0.value.external_symbol_type = q308; /* x184398 stalin.sc:25683:888584 */ t101813.s1.tag = NULL_TYPE; /* x184399 stalin.sc:25683:888584 */ t101812.s1.tag = STRUCTURE_TYPE24753; t101812.s1.value.structure_type24753 = &t101813; /* x184400 stalin.sc:25683:888584 */ t101811.s1.tag = STRUCTURE_TYPE24753; t101811.s1.value.structure_type24753 = &t101812; /* x184401 stalin.sc:25683:888584 */ t101810.s0.tag = STRUCTURE_TYPE24753; t101810.s0.value.structure_type24753 = &t101811; /* x184402 stalin.sc:25683:888584 */ t101810.s1.tag = NULL_TYPE; /* x184403 stalin.sc:25683:888584 */ t101809.s1.tag = STRUCTURE_TYPE24753; t101809.s1.value.structure_type24753 = &t101810; /* x184404 stalin.sc:25683:888584 */ t101808.s0.tag = STRUCTURE_TYPE24753; t101808.s0.value.structure_type24753 = &t101809; /* x184405 stalin.sc:25683:888584 */ t101808.s1.tag = NULL_TYPE; /* x184406 stalin.sc:25683:888584 */ t101807.s0.tag = STRUCTURE_TYPE24753; t101807.s0.value.structure_type24753 = &t101808; /* x184407 stalin.sc:25683:888584 */ t101815.s0.tag = EXTERNAL_SYMBOL_TYPE; t101815.s0.value.external_symbol_type = q42; /* x184408 stalin.sc:25683:888584 */ t101816.s0.tag = EXTERNAL_SYMBOL_TYPE; t101816.s0.value.external_symbol_type = q308; /* x184409 stalin.sc:25683:888584 */ t101818.s0.tag = EXTERNAL_SYMBOL_TYPE; t101818.s0.value.external_symbol_type = q4; /* x184410 stalin.sc:25683:888584 */ t101819.s0.tag = EXTERNAL_SYMBOL_TYPE; t101819.s0.value.external_symbol_type = q308; /* x184411 stalin.sc:25683:888584 */ t101820.s0.tag = FIXNUM_TYPE; t101820.s0.value.fixnum_type = 1; /* x184412 stalin.sc:25683:888584 */ t101820.s1.tag = NULL_TYPE; /* x184413 stalin.sc:25683:888584 */ t101819.s1.tag = STRUCTURE_TYPE24753; t101819.s1.value.structure_type24753 = &t101820; /* x184414 stalin.sc:25683:888584 */ t101818.s1.tag = STRUCTURE_TYPE24753; t101818.s1.value.structure_type24753 = &t101819; /* x184415 stalin.sc:25683:888584 */ t101817.s0.tag = STRUCTURE_TYPE24753; t101817.s0.value.structure_type24753 = &t101818; /* x184416 stalin.sc:25683:888584 */ t101817.s1.tag = NULL_TYPE; /* x184417 stalin.sc:25683:888584 */ t101816.s1.tag = STRUCTURE_TYPE24753; t101816.s1.value.structure_type24753 = &t101817; /* x184418 stalin.sc:25683:888584 */ t101815.s1.tag = STRUCTURE_TYPE24753; t101815.s1.value.structure_type24753 = &t101816; /* x184419 stalin.sc:25683:888584 */ t101814.s0.tag = STRUCTURE_TYPE24753; t101814.s0.value.structure_type24753 = &t101815; /* x184420 stalin.sc:25683:888584 */ t101822.s0.tag = EXTERNAL_SYMBOL_TYPE; t101822.s0.value.external_symbol_type = q43; /* x184421 stalin.sc:25683:888584 */ t101824.s0.tag = EXTERNAL_SYMBOL_TYPE; t101824.s0.value.external_symbol_type = q269; /* x184422 stalin.sc:25683:888584 */ t101825.s0.tag = EXTERNAL_SYMBOL_TYPE; t101825.s0.value.external_symbol_type = q300; /* x184423 stalin.sc:25683:888584 */ t101825.s1.tag = NULL_TYPE; /* x184424 stalin.sc:25683:888584 */ t101824.s1.tag = STRUCTURE_TYPE24753; t101824.s1.value.structure_type24753 = &t101825; /* x184425 stalin.sc:25683:888584 */ t101823.s0.tag = STRUCTURE_TYPE24753; t101823.s0.value.structure_type24753 = &t101824; /* x184426 stalin.sc:25683:888584 */ t101827.s0.tag = EXTERNAL_SYMBOL_TYPE; t101827.s0.value.external_symbol_type = q331; /* x184427 stalin.sc:25683:888584 */ t101829.s0.tag = EXTERNAL_SYMBOL_TYPE; t101829.s0.value.external_symbol_type = q336; /* x184428 stalin.sc:25683:888584 */ t101831.s0.tag = EXTERNAL_SYMBOL_TYPE; t101831.s0.value.external_symbol_type = q131; /* x184429 stalin.sc:25683:888584 */ t101833.s0.tag = EXTERNAL_SYMBOL_TYPE; t101833.s0.value.external_symbol_type = q2; /* x184430 stalin.sc:25683:888584 */ t101835.s0.tag = EXTERNAL_SYMBOL_TYPE; t101835.s0.value.external_symbol_type = q157; /* x184431 stalin.sc:25683:888584 */ t101836.s0.tag = EXTERNAL_SYMBOL_TYPE; t101836.s0.value.external_symbol_type = q300; /* x184432 stalin.sc:25683:888584 */ t101836.s1.tag = NULL_TYPE; /* x184433 stalin.sc:25683:888584 */ t101835.s1.tag = STRUCTURE_TYPE24753; t101835.s1.value.structure_type24753 = &t101836; /* x184434 stalin.sc:25683:888584 */ t101834.s0.tag = STRUCTURE_TYPE24753; t101834.s0.value.structure_type24753 = &t101835; /* x184435 stalin.sc:25683:888584 */ t101838.s0.tag = EXTERNAL_SYMBOL_TYPE; t101838.s0.value.external_symbol_type = q157; /* x184436 stalin.sc:25683:888584 */ t101839.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x184437 stalin.sc:25683:888584 */ t101839.s1.tag = NULL_TYPE; /* x184438 stalin.sc:25683:888584 */ t101838.s1.tag = STRUCTURE_TYPE24753; t101838.s1.value.structure_type24753 = &t101839; /* x184439 stalin.sc:25683:888584 */ t101837.s0.tag = STRUCTURE_TYPE24753; t101837.s0.value.structure_type24753 = &t101838; /* x184440 stalin.sc:25683:888584 */ t101837.s1.tag = NULL_TYPE; /* x184441 stalin.sc:25683:888584 */ t101834.s1.tag = STRUCTURE_TYPE24753; t101834.s1.value.structure_type24753 = &t101837; /* x184442 stalin.sc:25683:888584 */ t101833.s1.tag = STRUCTURE_TYPE24753; t101833.s1.value.structure_type24753 = &t101834; /* x184443 stalin.sc:25683:888584 */ t101832.s0.tag = STRUCTURE_TYPE24753; t101832.s0.value.structure_type24753 = &t101833; /* x184444 stalin.sc:25683:888584 */ t101840.s0.tag = FLONUM_TYPE; t101840.s0.value.flonum_type = 1.0e1; /* x184445 stalin.sc:25683:888584 */ t101840.s1.tag = NULL_TYPE; /* x184446 stalin.sc:25683:888584 */ t101832.s1.tag = STRUCTURE_TYPE24753; t101832.s1.value.structure_type24753 = &t101840; /* x184447 stalin.sc:25683:888584 */ t101831.s1.tag = STRUCTURE_TYPE24753; t101831.s1.value.structure_type24753 = &t101832; /* x184448 stalin.sc:25683:888584 */ t101830.s0.tag = STRUCTURE_TYPE24753; t101830.s0.value.structure_type24753 = &t101831; /* x184449 stalin.sc:25683:888584 */ t101841.s0.tag = FLONUM_TYPE; t101841.s0.value.flonum_type = 1.0e2; /* x184450 stalin.sc:25683:888584 */ t101841.s1.tag = NULL_TYPE; /* x184451 stalin.sc:25683:888584 */ t101830.s1.tag = STRUCTURE_TYPE24753; t101830.s1.value.structure_type24753 = &t101841; /* x184452 stalin.sc:25683:888584 */ t101829.s1.tag = STRUCTURE_TYPE24753; t101829.s1.value.structure_type24753 = &t101830; /* x184453 stalin.sc:25683:888584 */ t101828.s0.tag = STRUCTURE_TYPE24753; t101828.s0.value.structure_type24753 = &t101829; /* x184454 stalin.sc:25683:888584 */ t101828.s1.tag = NULL_TYPE; /* x184455 stalin.sc:25683:888584 */ t101827.s1.tag = STRUCTURE_TYPE24753; t101827.s1.value.structure_type24753 = &t101828; /* x184456 stalin.sc:25683:888584 */ t101826.s0.tag = STRUCTURE_TYPE24753; t101826.s0.value.structure_type24753 = &t101827; /* x184457 stalin.sc:25683:888584 */ t101842.s0.tag = FALSE_TYPE; /* x184458 stalin.sc:25683:888584 */ t101842.s1.tag = NULL_TYPE; /* x184459 stalin.sc:25683:888584 */ t101826.s1.tag = STRUCTURE_TYPE24753; t101826.s1.value.structure_type24753 = &t101842; /* x184460 stalin.sc:25683:888584 */ t101823.s1.tag = STRUCTURE_TYPE24753; t101823.s1.value.structure_type24753 = &t101826; /* x184461 stalin.sc:25683:888584 */ t101822.s1.tag = STRUCTURE_TYPE24753; t101822.s1.value.structure_type24753 = &t101823; /* x184462 stalin.sc:25683:888584 */ t101821.s0.tag = STRUCTURE_TYPE24753; t101821.s0.value.structure_type24753 = &t101822; /* x184463 stalin.sc:25683:888584 */ t101821.s1.tag = NULL_TYPE; /* x184464 stalin.sc:25683:888584 */ t101814.s1.tag = STRUCTURE_TYPE24753; t101814.s1.value.structure_type24753 = &t101821; /* x184465 stalin.sc:25683:888584 */ t101807.s1.tag = STRUCTURE_TYPE24753; t101807.s1.value.structure_type24753 = &t101814; /* x184466 stalin.sc:25683:888584 */ t101806.s1.tag = STRUCTURE_TYPE24753; t101806.s1.value.structure_type24753 = &t101807; /* x184467 stalin.sc:25683:888584 */ t101805.s0.tag = STRUCTURE_TYPE24753; t101805.s0.value.structure_type24753 = &t101806; /* x184468 stalin.sc:25683:888584 */ t101805.s1.tag = NULL_TYPE; /* x184469 stalin.sc:25683:888584 */ t101804.s1.tag = STRUCTURE_TYPE24753; t101804.s1.value.structure_type24753 = &t101805; /* x184470 stalin.sc:25683:888584 */ t101800.s1.tag = STRUCTURE_TYPE24753; t101800.s1.value.structure_type24753 = &t101804; /* x184471 stalin.sc:25683:888584 */ t101799.s1.tag = STRUCTURE_TYPE24753; t101799.s1.value.structure_type24753 = &t101800; /* x184472 stalin.sc:25683:888584 */ t101798.s0.tag = STRUCTURE_TYPE24753; t101798.s0.value.structure_type24753 = &t101799; /* x184473 stalin.sc:25683:888584 */ t101798.s1.tag = NULL_TYPE; /* x184474 stalin.sc:25683:888584 */ t101794.s1.tag = STRUCTURE_TYPE24753; t101794.s1.value.structure_type24753 = &t101798; /* x184475 stalin.sc:25683:888584 */ t101793.s0.tag = STRUCTURE_TYPE24753; t101793.s0.value.structure_type24753 = &t101794; /* x184476 stalin.sc:25683:888584 */ t101844.s0.tag = EXTERNAL_SYMBOL_TYPE; t101844.s0.value.external_symbol_type = q95; /* x184477 stalin.sc:25683:888584 */ t101845.s0.tag = FALSE_TYPE; /* x184478 stalin.sc:25683:888584 */ t101845.s1.tag = NULL_TYPE; /* x184479 stalin.sc:25683:888584 */ t101844.s1.tag = STRUCTURE_TYPE24753; t101844.s1.value.structure_type24753 = &t101845; /* x184480 stalin.sc:25683:888584 */ t101843.s0.tag = STRUCTURE_TYPE24753; t101843.s0.value.structure_type24753 = &t101844; /* x184481 stalin.sc:25683:888584 */ t101843.s1.tag = NULL_TYPE; /* x184482 stalin.sc:25683:888584 */ t101793.s1.tag = STRUCTURE_TYPE24753; t101793.s1.value.structure_type24753 = &t101843; /* x184483 stalin.sc:25683:888584 */ t101777.s1.tag = STRUCTURE_TYPE24753; t101777.s1.value.structure_type24753 = &t101793; /* x184484 stalin.sc:25683:888584 */ t101776.s1.tag = STRUCTURE_TYPE24753; t101776.s1.value.structure_type24753 = &t101777; /* x184485 stalin.sc:25683:888584 */ t101775.s0.tag = STRUCTURE_TYPE24753; t101775.s0.value.structure_type24753 = &t101776; /* x184486 stalin.sc:25683:888584 */ t101775.s1.tag = NULL_TYPE; /* x184487 stalin.sc:25683:888584 */ t101768.s1.tag = STRUCTURE_TYPE24753; t101768.s1.value.structure_type24753 = &t101775; /* x184488 stalin.sc:25683:888584 */ t101761.s1.tag = STRUCTURE_TYPE24753; t101761.s1.value.structure_type24753 = &t101768; /* x184489 stalin.sc:25683:888584 */ t101760.s1.tag = STRUCTURE_TYPE24753; t101760.s1.value.structure_type24753 = &t101761; /* x184490 stalin.sc:25683:888584 */ t101759.s0.tag = STRUCTURE_TYPE24753; t101759.s0.value.structure_type24753 = &t101760; /* x184491 stalin.sc:25683:888584 */ t101759.s1.tag = NULL_TYPE; /* x184492 stalin.sc:25683:888584 */ t101758.s1.tag = STRUCTURE_TYPE24753; t101758.s1.value.structure_type24753 = &t101759; /* x184493 stalin.sc:25683:888584 */ t101754.s1.tag = STRUCTURE_TYPE24753; t101754.s1.value.structure_type24753 = &t101758; /* x184494 stalin.sc:25683:888584 */ t101753.s1.tag = STRUCTURE_TYPE24753; t101753.s1.value.structure_type24753 = &t101754; /* x184495 stalin.sc:25683:888584 */ t101752.s0.tag = STRUCTURE_TYPE24753; t101752.s0.value.structure_type24753 = &t101753; /* x184496 stalin.sc:25683:888584 */ t101752.s1.tag = NULL_TYPE; /* x184497 stalin.sc:25683:888584 */ t101748.s1.tag = STRUCTURE_TYPE24753; t101748.s1.value.structure_type24753 = &t101752; /* x184498 stalin.sc:25683:888584 */ t101747.s0.tag = STRUCTURE_TYPE24753; t101747.s0.value.structure_type24753 = &t101748; /* x184499 stalin.sc:25683:888584 */ t101848.s0.tag = EXTERNAL_SYMBOL_TYPE; t101848.s0.value.external_symbol_type = q263; /* x184500 stalin.sc:25683:888584 */ t101849.s0.tag = EXTERNAL_SYMBOL_TYPE; t101849.s0.value.external_symbol_type = q275; /* x184501 stalin.sc:25683:888584 */ t101850.s0.tag = ((unsigned)((unsigned char)'.'))<<2; /* x184502 stalin.sc:25683:888584 */ t101850.s1.tag = NULL_TYPE; /* x184503 stalin.sc:25683:888584 */ t101849.s1.tag = STRUCTURE_TYPE24753; t101849.s1.value.structure_type24753 = &t101850; /* x184504 stalin.sc:25683:888584 */ t101848.s1.tag = STRUCTURE_TYPE24753; t101848.s1.value.structure_type24753 = &t101849; /* x184505 stalin.sc:25683:888584 */ t101847.s0.tag = STRUCTURE_TYPE24753; t101847.s0.value.structure_type24753 = &t101848; /* x184506 stalin.sc:25683:888584 */ t101852.s0.tag = EXTERNAL_SYMBOL_TYPE; t101852.s0.value.external_symbol_type = q43; /* x184507 stalin.sc:25683:888584 */ t101854.s0.tag = EXTERNAL_SYMBOL_TYPE; t101854.s0.value.external_symbol_type = q120; /* x184508 stalin.sc:25683:888584 */ t101855.s0.tag = EXTERNAL_SYMBOL_TYPE; t101855.s0.value.external_symbol_type = q308; /* x184509 stalin.sc:25683:888584 */ t101856.s0.tag = EXTERNAL_SYMBOL_TYPE; t101856.s0.value.external_symbol_type = q330; /* x184510 stalin.sc:25683:888584 */ t101856.s1.tag = NULL_TYPE; /* x184511 stalin.sc:25683:888584 */ t101855.s1.tag = STRUCTURE_TYPE24753; t101855.s1.value.structure_type24753 = &t101856; /* x184512 stalin.sc:25683:888584 */ t101854.s1.tag = STRUCTURE_TYPE24753; t101854.s1.value.structure_type24753 = &t101855; /* x184513 stalin.sc:25683:888584 */ t101853.s0.tag = STRUCTURE_TYPE24753; t101853.s0.value.structure_type24753 = &t101854; /* x184514 stalin.sc:25683:888584 */ t101857.s0.tag = FALSE_TYPE; /* x184515 stalin.sc:25683:888584 */ t101859.s0.tag = EXTERNAL_SYMBOL_TYPE; t101859.s0.value.external_symbol_type = q242; /* x184516 stalin.sc:25683:888584 */ t101862.s0.tag = EXTERNAL_SYMBOL_TYPE; t101862.s0.value.external_symbol_type = q297; /* x184517 stalin.sc:25683:888584 */ t101864.s0.tag = EXTERNAL_SYMBOL_TYPE; t101864.s0.value.external_symbol_type = q163; /* x184518 stalin.sc:25683:888584 */ t101865.s0.tag = EXTERNAL_SYMBOL_TYPE; t101865.s0.value.external_symbol_type = q161; /* x184519 stalin.sc:25683:888584 */ t101866.s0.tag = EXTERNAL_SYMBOL_TYPE; t101866.s0.value.external_symbol_type = q308; /* x184520 stalin.sc:25683:888584 */ t101866.s1.tag = NULL_TYPE; /* x184521 stalin.sc:25683:888584 */ t101865.s1.tag = STRUCTURE_TYPE24753; t101865.s1.value.structure_type24753 = &t101866; /* x184522 stalin.sc:25683:888584 */ t101864.s1.tag = STRUCTURE_TYPE24753; t101864.s1.value.structure_type24753 = &t101865; /* x184523 stalin.sc:25683:888584 */ t101863.s0.tag = STRUCTURE_TYPE24753; t101863.s0.value.structure_type24753 = &t101864; /* x184524 stalin.sc:25683:888584 */ t101863.s1.tag = NULL_TYPE; /* x184525 stalin.sc:25683:888584 */ t101862.s1.tag = STRUCTURE_TYPE24753; t101862.s1.value.structure_type24753 = &t101863; /* x184526 stalin.sc:25683:888584 */ t101861.s0.tag = STRUCTURE_TYPE24753; t101861.s0.value.structure_type24753 = &t101862; /* x184527 stalin.sc:25683:888584 */ t101861.s1.tag = NULL_TYPE; /* x184528 stalin.sc:25683:888584 */ t101860.s0.tag = STRUCTURE_TYPE24753; t101860.s0.value.structure_type24753 = &t101861; /* x184529 stalin.sc:25683:888584 */ t101868.s0.tag = EXTERNAL_SYMBOL_TYPE; t101868.s0.value.external_symbol_type = q42; /* x184530 stalin.sc:25683:888584 */ t101869.s0.tag = EXTERNAL_SYMBOL_TYPE; t101869.s0.value.external_symbol_type = q308; /* x184531 stalin.sc:25683:888584 */ t101871.s0.tag = EXTERNAL_SYMBOL_TYPE; t101871.s0.value.external_symbol_type = q4; /* x184532 stalin.sc:25683:888584 */ t101872.s0.tag = EXTERNAL_SYMBOL_TYPE; t101872.s0.value.external_symbol_type = q308; /* x184533 stalin.sc:25683:888584 */ t101873.s0.tag = FIXNUM_TYPE; t101873.s0.value.fixnum_type = 1; /* x184534 stalin.sc:25683:888584 */ t101873.s1.tag = NULL_TYPE; /* x184535 stalin.sc:25683:888584 */ t101872.s1.tag = STRUCTURE_TYPE24753; t101872.s1.value.structure_type24753 = &t101873; /* x184536 stalin.sc:25683:888584 */ t101871.s1.tag = STRUCTURE_TYPE24753; t101871.s1.value.structure_type24753 = &t101872; /* x184537 stalin.sc:25683:888584 */ t101870.s0.tag = STRUCTURE_TYPE24753; t101870.s0.value.structure_type24753 = &t101871; /* x184538 stalin.sc:25683:888584 */ t101870.s1.tag = NULL_TYPE; /* x184539 stalin.sc:25683:888584 */ t101869.s1.tag = STRUCTURE_TYPE24753; t101869.s1.value.structure_type24753 = &t101870; /* x184540 stalin.sc:25683:888584 */ t101868.s1.tag = STRUCTURE_TYPE24753; t101868.s1.value.structure_type24753 = &t101869; /* x184541 stalin.sc:25683:888584 */ t101867.s0.tag = STRUCTURE_TYPE24753; t101867.s0.value.structure_type24753 = &t101868; /* x184542 stalin.sc:25683:888584 */ t101875.s0.tag = EXTERNAL_SYMBOL_TYPE; t101875.s0.value.external_symbol_type = q43; /* x184543 stalin.sc:25683:888584 */ t101877.s0.tag = EXTERNAL_SYMBOL_TYPE; t101877.s0.value.external_symbol_type = q269; /* x184544 stalin.sc:25683:888584 */ t101878.s0.tag = EXTERNAL_SYMBOL_TYPE; t101878.s0.value.external_symbol_type = q297; /* x184545 stalin.sc:25683:888584 */ t101878.s1.tag = NULL_TYPE; /* x184546 stalin.sc:25683:888584 */ t101877.s1.tag = STRUCTURE_TYPE24753; t101877.s1.value.structure_type24753 = &t101878; /* x184547 stalin.sc:25683:888584 */ t101876.s0.tag = STRUCTURE_TYPE24753; t101876.s0.value.structure_type24753 = &t101877; /* x184548 stalin.sc:25683:888584 */ t101880.s0.tag = EXTERNAL_SYMBOL_TYPE; t101880.s0.value.external_symbol_type = q336; /* x184549 stalin.sc:25683:888584 */ t101882.s0.tag = EXTERNAL_SYMBOL_TYPE; t101882.s0.value.external_symbol_type = q131; /* x184550 stalin.sc:25683:888584 */ t101884.s0.tag = EXTERNAL_SYMBOL_TYPE; t101884.s0.value.external_symbol_type = q2; /* x184551 stalin.sc:25683:888584 */ t101886.s0.tag = EXTERNAL_SYMBOL_TYPE; t101886.s0.value.external_symbol_type = q157; /* x184552 stalin.sc:25683:888584 */ t101887.s0.tag = EXTERNAL_SYMBOL_TYPE; t101887.s0.value.external_symbol_type = q297; /* x184553 stalin.sc:25683:888584 */ t101887.s1.tag = NULL_TYPE; /* x184554 stalin.sc:25683:888584 */ t101886.s1.tag = STRUCTURE_TYPE24753; t101886.s1.value.structure_type24753 = &t101887; /* x184555 stalin.sc:25683:888584 */ t101885.s0.tag = STRUCTURE_TYPE24753; t101885.s0.value.structure_type24753 = &t101886; /* x184556 stalin.sc:25683:888584 */ t101889.s0.tag = EXTERNAL_SYMBOL_TYPE; t101889.s0.value.external_symbol_type = q157; /* x184557 stalin.sc:25683:888584 */ t101890.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x184558 stalin.sc:25683:888584 */ t101890.s1.tag = NULL_TYPE; /* x184559 stalin.sc:25683:888584 */ t101889.s1.tag = STRUCTURE_TYPE24753; t101889.s1.value.structure_type24753 = &t101890; /* x184560 stalin.sc:25683:888584 */ t101888.s0.tag = STRUCTURE_TYPE24753; t101888.s0.value.structure_type24753 = &t101889; /* x184561 stalin.sc:25683:888584 */ t101888.s1.tag = NULL_TYPE; /* x184562 stalin.sc:25683:888584 */ t101885.s1.tag = STRUCTURE_TYPE24753; t101885.s1.value.structure_type24753 = &t101888; /* x184563 stalin.sc:25683:888584 */ t101884.s1.tag = STRUCTURE_TYPE24753; t101884.s1.value.structure_type24753 = &t101885; /* x184564 stalin.sc:25683:888584 */ t101883.s0.tag = STRUCTURE_TYPE24753; t101883.s0.value.structure_type24753 = &t101884; /* x184565 stalin.sc:25683:888584 */ t101891.s0.tag = FLONUM_TYPE; t101891.s0.value.flonum_type = 1.0e1; /* x184566 stalin.sc:25683:888584 */ t101891.s1.tag = NULL_TYPE; /* x184567 stalin.sc:25683:888584 */ t101883.s1.tag = STRUCTURE_TYPE24753; t101883.s1.value.structure_type24753 = &t101891; /* x184568 stalin.sc:25683:888584 */ t101882.s1.tag = STRUCTURE_TYPE24753; t101882.s1.value.structure_type24753 = &t101883; /* x184569 stalin.sc:25683:888584 */ t101881.s0.tag = STRUCTURE_TYPE24753; t101881.s0.value.structure_type24753 = &t101882; /* x184570 stalin.sc:25683:888584 */ t101892.s0.tag = FLONUM_TYPE; t101892.s0.value.flonum_type = 1.0e2; /* x184571 stalin.sc:25683:888584 */ t101892.s1.tag = NULL_TYPE; /* x184572 stalin.sc:25683:888584 */ t101881.s1.tag = STRUCTURE_TYPE24753; t101881.s1.value.structure_type24753 = &t101892; /* x184573 stalin.sc:25683:888584 */ t101880.s1.tag = STRUCTURE_TYPE24753; t101880.s1.value.structure_type24753 = &t101881; /* x184574 stalin.sc:25683:888584 */ t101879.s0.tag = STRUCTURE_TYPE24753; t101879.s0.value.structure_type24753 = &t101880; /* x184575 stalin.sc:25683:888584 */ t101893.s0.tag = FALSE_TYPE; /* x184576 stalin.sc:25683:888584 */ t101893.s1.tag = NULL_TYPE; /* x184577 stalin.sc:25683:888584 */ t101879.s1.tag = STRUCTURE_TYPE24753; t101879.s1.value.structure_type24753 = &t101893; /* x184578 stalin.sc:25683:888584 */ t101876.s1.tag = STRUCTURE_TYPE24753; t101876.s1.value.structure_type24753 = &t101879; /* x184579 stalin.sc:25683:888584 */ t101875.s1.tag = STRUCTURE_TYPE24753; t101875.s1.value.structure_type24753 = &t101876; /* x184580 stalin.sc:25683:888584 */ t101874.s0.tag = STRUCTURE_TYPE24753; t101874.s0.value.structure_type24753 = &t101875; /* x184581 stalin.sc:25683:888584 */ t101874.s1.tag = NULL_TYPE; /* x184582 stalin.sc:25683:888584 */ t101867.s1.tag = STRUCTURE_TYPE24753; t101867.s1.value.structure_type24753 = &t101874; /* x184583 stalin.sc:25683:888584 */ t101860.s1.tag = STRUCTURE_TYPE24753; t101860.s1.value.structure_type24753 = &t101867; /* x184584 stalin.sc:25683:888584 */ t101859.s1.tag = STRUCTURE_TYPE24753; t101859.s1.value.structure_type24753 = &t101860; /* x184585 stalin.sc:25683:888584 */ t101858.s0.tag = STRUCTURE_TYPE24753; t101858.s0.value.structure_type24753 = &t101859; /* x184586 stalin.sc:25683:888584 */ t101858.s1.tag = NULL_TYPE; /* x184587 stalin.sc:25683:888584 */ t101857.s1.tag = STRUCTURE_TYPE24753; t101857.s1.value.structure_type24753 = &t101858; /* x184588 stalin.sc:25683:888584 */ t101853.s1.tag = STRUCTURE_TYPE24753; t101853.s1.value.structure_type24753 = &t101857; /* x184589 stalin.sc:25683:888584 */ t101852.s1.tag = STRUCTURE_TYPE24753; t101852.s1.value.structure_type24753 = &t101853; /* x184590 stalin.sc:25683:888584 */ t101851.s0.tag = STRUCTURE_TYPE24753; t101851.s0.value.structure_type24753 = &t101852; /* x184591 stalin.sc:25683:888584 */ t101851.s1.tag = NULL_TYPE; /* x184592 stalin.sc:25683:888584 */ t101847.s1.tag = STRUCTURE_TYPE24753; t101847.s1.value.structure_type24753 = &t101851; /* x184593 stalin.sc:25683:888584 */ t101846.s0.tag = STRUCTURE_TYPE24753; t101846.s0.value.structure_type24753 = &t101847; /* x184594 stalin.sc:25683:888584 */ t101896.s0.tag = EXTERNAL_SYMBOL_TYPE; t101896.s0.value.external_symbol_type = q269; /* x184595 stalin.sc:25683:888584 */ t101897.s0.tag = EXTERNAL_SYMBOL_TYPE; t101897.s0.value.external_symbol_type = q275; /* x184596 stalin.sc:25683:888584 */ t101897.s1.tag = NULL_TYPE; /* x184597 stalin.sc:25683:888584 */ t101896.s1.tag = STRUCTURE_TYPE24753; t101896.s1.value.structure_type24753 = &t101897; /* x184598 stalin.sc:25683:888584 */ t101895.s0.tag = STRUCTURE_TYPE24753; t101895.s0.value.structure_type24753 = &t101896; /* x184599 stalin.sc:25683:888584 */ t101899.s0.tag = EXTERNAL_SYMBOL_TYPE; t101899.s0.value.external_symbol_type = q338; /* x184600 stalin.sc:25683:888584 */ t101901.s0.tag = EXTERNAL_SYMBOL_TYPE; t101901.s0.value.external_symbol_type = q2; /* x184601 stalin.sc:25683:888584 */ t101903.s0.tag = EXTERNAL_SYMBOL_TYPE; t101903.s0.value.external_symbol_type = q157; /* x184602 stalin.sc:25683:888584 */ t101904.s0.tag = EXTERNAL_SYMBOL_TYPE; t101904.s0.value.external_symbol_type = q275; /* x184603 stalin.sc:25683:888584 */ t101904.s1.tag = NULL_TYPE; /* x184604 stalin.sc:25683:888584 */ t101903.s1.tag = STRUCTURE_TYPE24753; t101903.s1.value.structure_type24753 = &t101904; /* x184605 stalin.sc:25683:888584 */ t101902.s0.tag = STRUCTURE_TYPE24753; t101902.s0.value.structure_type24753 = &t101903; /* x184606 stalin.sc:25683:888584 */ t101906.s0.tag = EXTERNAL_SYMBOL_TYPE; t101906.s0.value.external_symbol_type = q157; /* x184607 stalin.sc:25683:888584 */ t101907.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x184608 stalin.sc:25683:888584 */ t101907.s1.tag = NULL_TYPE; /* x184609 stalin.sc:25683:888584 */ t101906.s1.tag = STRUCTURE_TYPE24753; t101906.s1.value.structure_type24753 = &t101907; /* x184610 stalin.sc:25683:888584 */ t101905.s0.tag = STRUCTURE_TYPE24753; t101905.s0.value.structure_type24753 = &t101906; /* x184611 stalin.sc:25683:888584 */ t101905.s1.tag = NULL_TYPE; /* x184612 stalin.sc:25683:888584 */ t101902.s1.tag = STRUCTURE_TYPE24753; t101902.s1.value.structure_type24753 = &t101905; /* x184613 stalin.sc:25683:888584 */ t101901.s1.tag = STRUCTURE_TYPE24753; t101901.s1.value.structure_type24753 = &t101902; /* x184614 stalin.sc:25683:888584 */ t101900.s0.tag = STRUCTURE_TYPE24753; t101900.s0.value.structure_type24753 = &t101901; /* x184615 stalin.sc:25683:888584 */ t101900.s1.tag = NULL_TYPE; /* x184616 stalin.sc:25683:888584 */ t101899.s1.tag = STRUCTURE_TYPE24753; t101899.s1.value.structure_type24753 = &t101900; /* x184617 stalin.sc:25683:888584 */ t101898.s0.tag = STRUCTURE_TYPE24753; t101898.s0.value.structure_type24753 = &t101899; /* x184618 stalin.sc:25683:888584 */ t101898.s1.tag = NULL_TYPE; /* x184619 stalin.sc:25683:888584 */ t101895.s1.tag = STRUCTURE_TYPE24753; t101895.s1.value.structure_type24753 = &t101898; /* x184620 stalin.sc:25683:888584 */ t101894.s0.tag = STRUCTURE_TYPE24753; t101894.s0.value.structure_type24753 = &t101895; /* x184621 stalin.sc:25683:888584 */ t101909.s0.tag = EXTERNAL_SYMBOL_TYPE; t101909.s0.value.external_symbol_type = q95; /* x184622 stalin.sc:25683:888584 */ t101910.s0.tag = FALSE_TYPE; /* x184623 stalin.sc:25683:888584 */ t101910.s1.tag = NULL_TYPE; /* x184624 stalin.sc:25683:888584 */ t101909.s1.tag = STRUCTURE_TYPE24753; t101909.s1.value.structure_type24753 = &t101910; /* x184625 stalin.sc:25683:888584 */ t101908.s0.tag = STRUCTURE_TYPE24753; t101908.s0.value.structure_type24753 = &t101909; /* x184626 stalin.sc:25683:888584 */ t101908.s1.tag = NULL_TYPE; /* x184627 stalin.sc:25683:888584 */ t101894.s1.tag = STRUCTURE_TYPE24753; t101894.s1.value.structure_type24753 = &t101908; /* x184628 stalin.sc:25683:888584 */ t101846.s1.tag = STRUCTURE_TYPE24753; t101846.s1.value.structure_type24753 = &t101894; /* x184629 stalin.sc:25683:888584 */ t101747.s1.tag = STRUCTURE_TYPE24753; t101747.s1.value.structure_type24753 = &t101846; /* x184630 stalin.sc:25683:888584 */ t101652.s1.tag = STRUCTURE_TYPE24753; t101652.s1.value.structure_type24753 = &t101747; /* x184631 stalin.sc:25683:888584 */ t101651.s1.tag = STRUCTURE_TYPE24753; t101651.s1.value.structure_type24753 = &t101652; /* x184632 stalin.sc:25683:888584 */ t101650.s0.tag = STRUCTURE_TYPE24753; t101650.s0.value.structure_type24753 = &t101651; /* x184633 stalin.sc:25683:888584 */ t101650.s1.tag = NULL_TYPE; /* x184634 stalin.sc:25683:888584 */ t101643.s1.tag = STRUCTURE_TYPE24753; t101643.s1.value.structure_type24753 = &t101650; /* x184635 stalin.sc:25683:888584 */ t101636.s1.tag = STRUCTURE_TYPE24753; t101636.s1.value.structure_type24753 = &t101643; /* x184636 stalin.sc:25683:888584 */ t101635.s1.tag = STRUCTURE_TYPE24753; t101635.s1.value.structure_type24753 = &t101636; /* x184637 stalin.sc:25683:888584 */ t101634.s0.tag = STRUCTURE_TYPE24753; t101634.s0.value.structure_type24753 = &t101635; /* x184638 stalin.sc:25683:888584 */ t101634.s1.tag = NULL_TYPE; /* x184639 stalin.sc:25683:888584 */ t101633.s1.tag = STRUCTURE_TYPE24753; t101633.s1.value.structure_type24753 = &t101634; /* x184640 stalin.sc:25683:888584 */ t101629.s1.tag = STRUCTURE_TYPE24753; t101629.s1.value.structure_type24753 = &t101633; /* x184641 stalin.sc:25683:888584 */ t101628.s1.tag = STRUCTURE_TYPE24753; t101628.s1.value.structure_type24753 = &t101629; /* x184642 stalin.sc:25683:888584 */ t101627.s0.tag = STRUCTURE_TYPE24753; t101627.s0.value.structure_type24753 = &t101628; /* x184643 stalin.sc:25683:888584 */ t101627.s1.tag = NULL_TYPE; /* x184644 stalin.sc:25683:888584 */ t101617.s1.tag = STRUCTURE_TYPE24753; t101617.s1.value.structure_type24753 = &t101627; /* x184645 stalin.sc:25683:888584 */ t101616.s0.tag = STRUCTURE_TYPE24753; t101616.s0.value.structure_type24753 = &t101617; /* x184646 stalin.sc:25683:888584 */ t101913.s0.tag = EXTERNAL_SYMBOL_TYPE; t101913.s0.value.external_symbol_type = q241; /* x184647 stalin.sc:25683:888584 */ t101915.s0.tag = EXTERNAL_SYMBOL_TYPE; t101915.s0.value.external_symbol_type = q263; /* x184648 stalin.sc:25683:888584 */ t101916.s0.tag = EXTERNAL_SYMBOL_TYPE; t101916.s0.value.external_symbol_type = q274; /* x184649 stalin.sc:25683:888584 */ t101917.s0.tag = ((unsigned)((unsigned char)'x'))<<2; /* x184650 stalin.sc:25683:888584 */ t101917.s1.tag = NULL_TYPE; /* x184651 stalin.sc:25683:888584 */ t101916.s1.tag = STRUCTURE_TYPE24753; t101916.s1.value.structure_type24753 = &t101917; /* x184652 stalin.sc:25683:888584 */ t101915.s1.tag = STRUCTURE_TYPE24753; t101915.s1.value.structure_type24753 = &t101916; /* x184653 stalin.sc:25683:888584 */ t101914.s0.tag = STRUCTURE_TYPE24753; t101914.s0.value.structure_type24753 = &t101915; /* x184654 stalin.sc:25683:888584 */ t101919.s0.tag = EXTERNAL_SYMBOL_TYPE; t101919.s0.value.external_symbol_type = q263; /* x184655 stalin.sc:25683:888584 */ t101920.s0.tag = EXTERNAL_SYMBOL_TYPE; t101920.s0.value.external_symbol_type = q274; /* x184656 stalin.sc:25683:888584 */ t101921.s0.tag = ((unsigned)((unsigned char)'X'))<<2; /* x184657 stalin.sc:25683:888584 */ t101921.s1.tag = NULL_TYPE; /* x184658 stalin.sc:25683:888584 */ t101920.s1.tag = STRUCTURE_TYPE24753; t101920.s1.value.structure_type24753 = &t101921; /* x184659 stalin.sc:25683:888584 */ t101919.s1.tag = STRUCTURE_TYPE24753; t101919.s1.value.structure_type24753 = &t101920; /* x184660 stalin.sc:25683:888584 */ t101918.s0.tag = STRUCTURE_TYPE24753; t101918.s0.value.structure_type24753 = &t101919; /* x184661 stalin.sc:25683:888584 */ t101918.s1.tag = NULL_TYPE; /* x184662 stalin.sc:25683:888584 */ t101914.s1.tag = STRUCTURE_TYPE24753; t101914.s1.value.structure_type24753 = &t101918; /* x184663 stalin.sc:25683:888584 */ t101913.s1.tag = STRUCTURE_TYPE24753; t101913.s1.value.structure_type24753 = &t101914; /* x184664 stalin.sc:25683:888584 */ t101912.s0.tag = STRUCTURE_TYPE24753; t101912.s0.value.structure_type24753 = &t101913; /* x184665 stalin.sc:25683:888584 */ t101923.s0.tag = EXTERNAL_SYMBOL_TYPE; t101923.s0.value.external_symbol_type = q43; /* x184666 stalin.sc:25683:888584 */ t101925.s0.tag = EXTERNAL_SYMBOL_TYPE; t101925.s0.value.external_symbol_type = q120; /* x184667 stalin.sc:25683:888584 */ t101926.s0.tag = EXTERNAL_SYMBOL_TYPE; t101926.s0.value.external_symbol_type = q308; /* x184668 stalin.sc:25683:888584 */ t101927.s0.tag = EXTERNAL_SYMBOL_TYPE; t101927.s0.value.external_symbol_type = q330; /* x184669 stalin.sc:25683:888584 */ t101927.s1.tag = NULL_TYPE; /* x184670 stalin.sc:25683:888584 */ t101926.s1.tag = STRUCTURE_TYPE24753; t101926.s1.value.structure_type24753 = &t101927; /* x184671 stalin.sc:25683:888584 */ t101925.s1.tag = STRUCTURE_TYPE24753; t101925.s1.value.structure_type24753 = &t101926; /* x184672 stalin.sc:25683:888584 */ t101924.s0.tag = STRUCTURE_TYPE24753; t101924.s0.value.structure_type24753 = &t101925; /* x184673 stalin.sc:25683:888584 */ t101928.s0.tag = FALSE_TYPE; /* x184674 stalin.sc:25683:888584 */ t101930.s0.tag = EXTERNAL_SYMBOL_TYPE; t101930.s0.value.external_symbol_type = q242; /* x184675 stalin.sc:25683:888584 */ t101933.s0.tag = EXTERNAL_SYMBOL_TYPE; t101933.s0.value.external_symbol_type = q275; /* x184676 stalin.sc:25683:888584 */ t101935.s0.tag = EXTERNAL_SYMBOL_TYPE; t101935.s0.value.external_symbol_type = q163; /* x184677 stalin.sc:25683:888584 */ t101936.s0.tag = EXTERNAL_SYMBOL_TYPE; t101936.s0.value.external_symbol_type = q161; /* x184678 stalin.sc:25683:888584 */ t101937.s0.tag = EXTERNAL_SYMBOL_TYPE; t101937.s0.value.external_symbol_type = q308; /* x184679 stalin.sc:25683:888584 */ t101937.s1.tag = NULL_TYPE; /* x184680 stalin.sc:25683:888584 */ t101936.s1.tag = STRUCTURE_TYPE24753; t101936.s1.value.structure_type24753 = &t101937; /* x184681 stalin.sc:25683:888584 */ t101935.s1.tag = STRUCTURE_TYPE24753; t101935.s1.value.structure_type24753 = &t101936; /* x184682 stalin.sc:25683:888584 */ t101934.s0.tag = STRUCTURE_TYPE24753; t101934.s0.value.structure_type24753 = &t101935; /* x184683 stalin.sc:25683:888584 */ t101934.s1.tag = NULL_TYPE; /* x184684 stalin.sc:25683:888584 */ t101933.s1.tag = STRUCTURE_TYPE24753; t101933.s1.value.structure_type24753 = &t101934; /* x184685 stalin.sc:25683:888584 */ t101932.s0.tag = STRUCTURE_TYPE24753; t101932.s0.value.structure_type24753 = &t101933; /* x184686 stalin.sc:25683:888584 */ t101932.s1.tag = NULL_TYPE; /* x184687 stalin.sc:25683:888584 */ t101931.s0.tag = STRUCTURE_TYPE24753; t101931.s0.value.structure_type24753 = &t101932; /* x184688 stalin.sc:25683:888584 */ t101939.s0.tag = EXTERNAL_SYMBOL_TYPE; t101939.s0.value.external_symbol_type = q42; /* x184689 stalin.sc:25683:888584 */ t101940.s0.tag = EXTERNAL_SYMBOL_TYPE; t101940.s0.value.external_symbol_type = q308; /* x184690 stalin.sc:25683:888584 */ t101942.s0.tag = EXTERNAL_SYMBOL_TYPE; t101942.s0.value.external_symbol_type = q4; /* x184691 stalin.sc:25683:888584 */ t101943.s0.tag = EXTERNAL_SYMBOL_TYPE; t101943.s0.value.external_symbol_type = q308; /* x184692 stalin.sc:25683:888584 */ t101944.s0.tag = FIXNUM_TYPE; t101944.s0.value.fixnum_type = 1; /* x184693 stalin.sc:25683:888584 */ t101944.s1.tag = NULL_TYPE; /* x184694 stalin.sc:25683:888584 */ t101943.s1.tag = STRUCTURE_TYPE24753; t101943.s1.value.structure_type24753 = &t101944; /* x184695 stalin.sc:25683:888584 */ t101942.s1.tag = STRUCTURE_TYPE24753; t101942.s1.value.structure_type24753 = &t101943; /* x184696 stalin.sc:25683:888584 */ t101941.s0.tag = STRUCTURE_TYPE24753; t101941.s0.value.structure_type24753 = &t101942; /* x184697 stalin.sc:25683:888584 */ t101941.s1.tag = NULL_TYPE; /* x184698 stalin.sc:25683:888584 */ t101940.s1.tag = STRUCTURE_TYPE24753; t101940.s1.value.structure_type24753 = &t101941; /* x184699 stalin.sc:25683:888584 */ t101939.s1.tag = STRUCTURE_TYPE24753; t101939.s1.value.structure_type24753 = &t101940; /* x184700 stalin.sc:25683:888584 */ t101938.s0.tag = STRUCTURE_TYPE24753; t101938.s0.value.structure_type24753 = &t101939; /* x184701 stalin.sc:25683:888584 */ t101946.s0.tag = EXTERNAL_SYMBOL_TYPE; t101946.s0.value.external_symbol_type = q240; /* x184702 stalin.sc:25683:888584 */ t101949.s0.tag = EXTERNAL_SYMBOL_TYPE; t101949.s0.value.external_symbol_type = q269; /* x184703 stalin.sc:25683:888584 */ t101950.s0.tag = EXTERNAL_SYMBOL_TYPE; t101950.s0.value.external_symbol_type = q275; /* x184704 stalin.sc:25683:888584 */ t101950.s1.tag = NULL_TYPE; /* x184705 stalin.sc:25683:888584 */ t101949.s1.tag = STRUCTURE_TYPE24753; t101949.s1.value.structure_type24753 = &t101950; /* x184706 stalin.sc:25683:888584 */ t101948.s0.tag = STRUCTURE_TYPE24753; t101948.s0.value.structure_type24753 = &t101949; /* x184707 stalin.sc:25683:888584 */ t101952.s0.tag = EXTERNAL_SYMBOL_TYPE; t101952.s0.value.external_symbol_type = q335; /* x184708 stalin.sc:25683:888584 */ t101954.s0.tag = EXTERNAL_SYMBOL_TYPE; t101954.s0.value.external_symbol_type = q2; /* x184709 stalin.sc:25683:888584 */ t101956.s0.tag = EXTERNAL_SYMBOL_TYPE; t101956.s0.value.external_symbol_type = q157; /* x184710 stalin.sc:25683:888584 */ t101957.s0.tag = EXTERNAL_SYMBOL_TYPE; t101957.s0.value.external_symbol_type = q275; /* x184711 stalin.sc:25683:888584 */ t101957.s1.tag = NULL_TYPE; /* x184712 stalin.sc:25683:888584 */ t101956.s1.tag = STRUCTURE_TYPE24753; t101956.s1.value.structure_type24753 = &t101957; /* x184713 stalin.sc:25683:888584 */ t101955.s0.tag = STRUCTURE_TYPE24753; t101955.s0.value.structure_type24753 = &t101956; /* x184714 stalin.sc:25683:888584 */ t101959.s0.tag = EXTERNAL_SYMBOL_TYPE; t101959.s0.value.external_symbol_type = q157; /* x184715 stalin.sc:25683:888584 */ t101960.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x184716 stalin.sc:25683:888584 */ t101960.s1.tag = NULL_TYPE; /* x184717 stalin.sc:25683:888584 */ t101959.s1.tag = STRUCTURE_TYPE24753; t101959.s1.value.structure_type24753 = &t101960; /* x184718 stalin.sc:25683:888584 */ t101958.s0.tag = STRUCTURE_TYPE24753; t101958.s0.value.structure_type24753 = &t101959; /* x184719 stalin.sc:25683:888584 */ t101958.s1.tag = NULL_TYPE; /* x184720 stalin.sc:25683:888584 */ t101955.s1.tag = STRUCTURE_TYPE24753; t101955.s1.value.structure_type24753 = &t101958; /* x184721 stalin.sc:25683:888584 */ t101954.s1.tag = STRUCTURE_TYPE24753; t101954.s1.value.structure_type24753 = &t101955; /* x184722 stalin.sc:25683:888584 */ t101953.s0.tag = STRUCTURE_TYPE24753; t101953.s0.value.structure_type24753 = &t101954; /* x184723 stalin.sc:25683:888584 */ t101953.s1.tag = NULL_TYPE; /* x184724 stalin.sc:25683:888584 */ t101952.s1.tag = STRUCTURE_TYPE24753; t101952.s1.value.structure_type24753 = &t101953; /* x184725 stalin.sc:25683:888584 */ t101951.s0.tag = STRUCTURE_TYPE24753; t101951.s0.value.structure_type24753 = &t101952; /* x184726 stalin.sc:25683:888584 */ t101951.s1.tag = NULL_TYPE; /* x184727 stalin.sc:25683:888584 */ t101948.s1.tag = STRUCTURE_TYPE24753; t101948.s1.value.structure_type24753 = &t101951; /* x184728 stalin.sc:25683:888584 */ t101947.s0.tag = STRUCTURE_TYPE24753; t101947.s0.value.structure_type24753 = &t101948; /* x184729 stalin.sc:25683:888584 */ t101963.s0.tag = EXTERNAL_SYMBOL_TYPE; t101963.s0.value.external_symbol_type = q244; /* x184730 stalin.sc:25683:888584 */ t101965.s0.tag = EXTERNAL_SYMBOL_TYPE; t101965.s0.value.external_symbol_type = q266; /* x184731 stalin.sc:25683:888584 */ t101966.s0.tag = EXTERNAL_SYMBOL_TYPE; t101966.s0.value.external_symbol_type = q275; /* x184732 stalin.sc:25683:888584 */ t101967.s0.tag = ((unsigned)((unsigned char)'a'))<<2; /* x184733 stalin.sc:25683:888584 */ t101967.s1.tag = NULL_TYPE; /* x184734 stalin.sc:25683:888584 */ t101966.s1.tag = STRUCTURE_TYPE24753; t101966.s1.value.structure_type24753 = &t101967; /* x184735 stalin.sc:25683:888584 */ t101965.s1.tag = STRUCTURE_TYPE24753; t101965.s1.value.structure_type24753 = &t101966; /* x184736 stalin.sc:25683:888584 */ t101964.s0.tag = STRUCTURE_TYPE24753; t101964.s0.value.structure_type24753 = &t101965; /* x184737 stalin.sc:25683:888584 */ t101969.s0.tag = EXTERNAL_SYMBOL_TYPE; t101969.s0.value.external_symbol_type = q267; /* x184738 stalin.sc:25683:888584 */ t101970.s0.tag = EXTERNAL_SYMBOL_TYPE; t101970.s0.value.external_symbol_type = q275; /* x184739 stalin.sc:25683:888584 */ t101971.s0.tag = ((unsigned)((unsigned char)'f'))<<2; /* x184740 stalin.sc:25683:888584 */ t101971.s1.tag = NULL_TYPE; /* x184741 stalin.sc:25683:888584 */ t101970.s1.tag = STRUCTURE_TYPE24753; t101970.s1.value.structure_type24753 = &t101971; /* x184742 stalin.sc:25683:888584 */ t101969.s1.tag = STRUCTURE_TYPE24753; t101969.s1.value.structure_type24753 = &t101970; /* x184743 stalin.sc:25683:888584 */ t101968.s0.tag = STRUCTURE_TYPE24753; t101968.s0.value.structure_type24753 = &t101969; /* x184744 stalin.sc:25683:888584 */ t101968.s1.tag = NULL_TYPE; /* x184745 stalin.sc:25683:888584 */ t101964.s1.tag = STRUCTURE_TYPE24753; t101964.s1.value.structure_type24753 = &t101968; /* x184746 stalin.sc:25683:888584 */ t101963.s1.tag = STRUCTURE_TYPE24753; t101963.s1.value.structure_type24753 = &t101964; /* x184747 stalin.sc:25683:888584 */ t101962.s0.tag = STRUCTURE_TYPE24753; t101962.s0.value.structure_type24753 = &t101963; /* x184748 stalin.sc:25683:888584 */ t101973.s0.tag = EXTERNAL_SYMBOL_TYPE; t101973.s0.value.external_symbol_type = q335; /* x184749 stalin.sc:25683:888584 */ t101975.s0.tag = EXTERNAL_SYMBOL_TYPE; t101975.s0.value.external_symbol_type = q4; /* x184750 stalin.sc:25683:888584 */ t101977.s0.tag = EXTERNAL_SYMBOL_TYPE; t101977.s0.value.external_symbol_type = q2; /* x184751 stalin.sc:25683:888584 */ t101979.s0.tag = EXTERNAL_SYMBOL_TYPE; t101979.s0.value.external_symbol_type = q157; /* x184752 stalin.sc:25683:888584 */ t101980.s0.tag = EXTERNAL_SYMBOL_TYPE; t101980.s0.value.external_symbol_type = q275; /* x184753 stalin.sc:25683:888584 */ t101980.s1.tag = NULL_TYPE; /* x184754 stalin.sc:25683:888584 */ t101979.s1.tag = STRUCTURE_TYPE24753; t101979.s1.value.structure_type24753 = &t101980; /* x184755 stalin.sc:25683:888584 */ t101978.s0.tag = STRUCTURE_TYPE24753; t101978.s0.value.structure_type24753 = &t101979; /* x184756 stalin.sc:25683:888584 */ t101982.s0.tag = EXTERNAL_SYMBOL_TYPE; t101982.s0.value.external_symbol_type = q157; /* x184757 stalin.sc:25683:888584 */ t101983.s0.tag = ((unsigned)((unsigned char)'a'))<<2; /* x184758 stalin.sc:25683:888584 */ t101983.s1.tag = NULL_TYPE; /* x184759 stalin.sc:25683:888584 */ t101982.s1.tag = STRUCTURE_TYPE24753; t101982.s1.value.structure_type24753 = &t101983; /* x184760 stalin.sc:25683:888584 */ t101981.s0.tag = STRUCTURE_TYPE24753; t101981.s0.value.structure_type24753 = &t101982; /* x184761 stalin.sc:25683:888584 */ t101981.s1.tag = NULL_TYPE; /* x184762 stalin.sc:25683:888584 */ t101978.s1.tag = STRUCTURE_TYPE24753; t101978.s1.value.structure_type24753 = &t101981; /* x184763 stalin.sc:25683:888584 */ t101977.s1.tag = STRUCTURE_TYPE24753; t101977.s1.value.structure_type24753 = &t101978; /* x184764 stalin.sc:25683:888584 */ t101976.s0.tag = STRUCTURE_TYPE24753; t101976.s0.value.structure_type24753 = &t101977; /* x184765 stalin.sc:25683:888584 */ t101984.s0.tag = FIXNUM_TYPE; t101984.s0.value.fixnum_type = 10; /* x184766 stalin.sc:25683:888584 */ t101984.s1.tag = NULL_TYPE; /* x184767 stalin.sc:25683:888584 */ t101976.s1.tag = STRUCTURE_TYPE24753; t101976.s1.value.structure_type24753 = &t101984; /* x184768 stalin.sc:25683:888584 */ t101975.s1.tag = STRUCTURE_TYPE24753; t101975.s1.value.structure_type24753 = &t101976; /* x184769 stalin.sc:25683:888584 */ t101974.s0.tag = STRUCTURE_TYPE24753; t101974.s0.value.structure_type24753 = &t101975; /* x184770 stalin.sc:25683:888584 */ t101974.s1.tag = NULL_TYPE; /* x184771 stalin.sc:25683:888584 */ t101973.s1.tag = STRUCTURE_TYPE24753; t101973.s1.value.structure_type24753 = &t101974; /* x184772 stalin.sc:25683:888584 */ t101972.s0.tag = STRUCTURE_TYPE24753; t101972.s0.value.structure_type24753 = &t101973; /* x184773 stalin.sc:25683:888584 */ t101972.s1.tag = NULL_TYPE; /* x184774 stalin.sc:25683:888584 */ t101962.s1.tag = STRUCTURE_TYPE24753; t101962.s1.value.structure_type24753 = &t101972; /* x184775 stalin.sc:25683:888584 */ t101961.s0.tag = STRUCTURE_TYPE24753; t101961.s0.value.structure_type24753 = &t101962; /* x184776 stalin.sc:25683:888584 */ t101987.s0.tag = EXTERNAL_SYMBOL_TYPE; t101987.s0.value.external_symbol_type = q244; /* x184777 stalin.sc:25683:888584 */ t101989.s0.tag = EXTERNAL_SYMBOL_TYPE; t101989.s0.value.external_symbol_type = q266; /* x184778 stalin.sc:25683:888584 */ t101990.s0.tag = EXTERNAL_SYMBOL_TYPE; t101990.s0.value.external_symbol_type = q275; /* x184779 stalin.sc:25683:888584 */ t101991.s0.tag = ((unsigned)((unsigned char)'A'))<<2; /* x184780 stalin.sc:25683:888584 */ t101991.s1.tag = NULL_TYPE; /* x184781 stalin.sc:25683:888584 */ t101990.s1.tag = STRUCTURE_TYPE24753; t101990.s1.value.structure_type24753 = &t101991; /* x184782 stalin.sc:25683:888584 */ t101989.s1.tag = STRUCTURE_TYPE24753; t101989.s1.value.structure_type24753 = &t101990; /* x184783 stalin.sc:25683:888584 */ t101988.s0.tag = STRUCTURE_TYPE24753; t101988.s0.value.structure_type24753 = &t101989; /* x184784 stalin.sc:25683:888584 */ t101993.s0.tag = EXTERNAL_SYMBOL_TYPE; t101993.s0.value.external_symbol_type = q267; /* x184785 stalin.sc:25683:888584 */ t101994.s0.tag = EXTERNAL_SYMBOL_TYPE; t101994.s0.value.external_symbol_type = q275; /* x184786 stalin.sc:25683:888584 */ t101995.s0.tag = ((unsigned)((unsigned char)'F'))<<2; /* x184787 stalin.sc:25683:888584 */ t101995.s1.tag = NULL_TYPE; /* x184788 stalin.sc:25683:888584 */ t101994.s1.tag = STRUCTURE_TYPE24753; t101994.s1.value.structure_type24753 = &t101995; /* x184789 stalin.sc:25683:888584 */ t101993.s1.tag = STRUCTURE_TYPE24753; t101993.s1.value.structure_type24753 = &t101994; /* x184790 stalin.sc:25683:888584 */ t101992.s0.tag = STRUCTURE_TYPE24753; t101992.s0.value.structure_type24753 = &t101993; /* x184791 stalin.sc:25683:888584 */ t101992.s1.tag = NULL_TYPE; /* x184792 stalin.sc:25683:888584 */ t101988.s1.tag = STRUCTURE_TYPE24753; t101988.s1.value.structure_type24753 = &t101992; /* x184793 stalin.sc:25683:888584 */ t101987.s1.tag = STRUCTURE_TYPE24753; t101987.s1.value.structure_type24753 = &t101988; /* x184794 stalin.sc:25683:888584 */ t101986.s0.tag = STRUCTURE_TYPE24753; t101986.s0.value.structure_type24753 = &t101987; /* x184795 stalin.sc:25683:888584 */ t101997.s0.tag = EXTERNAL_SYMBOL_TYPE; t101997.s0.value.external_symbol_type = q335; /* x184796 stalin.sc:25683:888584 */ t101999.s0.tag = EXTERNAL_SYMBOL_TYPE; t101999.s0.value.external_symbol_type = q4; /* x184797 stalin.sc:25683:888584 */ t102001.s0.tag = EXTERNAL_SYMBOL_TYPE; t102001.s0.value.external_symbol_type = q2; /* x184798 stalin.sc:25683:888584 */ t102003.s0.tag = EXTERNAL_SYMBOL_TYPE; t102003.s0.value.external_symbol_type = q157; /* x184799 stalin.sc:25683:888584 */ t102004.s0.tag = EXTERNAL_SYMBOL_TYPE; t102004.s0.value.external_symbol_type = q275; /* x184800 stalin.sc:25683:888584 */ t102004.s1.tag = NULL_TYPE; /* x184801 stalin.sc:25683:888584 */ t102003.s1.tag = STRUCTURE_TYPE24753; t102003.s1.value.structure_type24753 = &t102004; /* x184802 stalin.sc:25683:888584 */ t102002.s0.tag = STRUCTURE_TYPE24753; t102002.s0.value.structure_type24753 = &t102003; /* x184803 stalin.sc:25683:888584 */ t102006.s0.tag = EXTERNAL_SYMBOL_TYPE; t102006.s0.value.external_symbol_type = q157; /* x184804 stalin.sc:25683:888584 */ t102007.s0.tag = ((unsigned)((unsigned char)'A'))<<2; /* x184805 stalin.sc:25683:888584 */ t102007.s1.tag = NULL_TYPE; /* x184806 stalin.sc:25683:888584 */ t102006.s1.tag = STRUCTURE_TYPE24753; t102006.s1.value.structure_type24753 = &t102007; /* x184807 stalin.sc:25683:888584 */ t102005.s0.tag = STRUCTURE_TYPE24753; t102005.s0.value.structure_type24753 = &t102006; /* x184808 stalin.sc:25683:888584 */ t102005.s1.tag = NULL_TYPE; /* x184809 stalin.sc:25683:888584 */ t102002.s1.tag = STRUCTURE_TYPE24753; t102002.s1.value.structure_type24753 = &t102005; /* x184810 stalin.sc:25683:888584 */ t102001.s1.tag = STRUCTURE_TYPE24753; t102001.s1.value.structure_type24753 = &t102002; /* x184811 stalin.sc:25683:888584 */ t102000.s0.tag = STRUCTURE_TYPE24753; t102000.s0.value.structure_type24753 = &t102001; /* x184812 stalin.sc:25683:888584 */ t102008.s0.tag = FIXNUM_TYPE; t102008.s0.value.fixnum_type = 10; /* x184813 stalin.sc:25683:888584 */ t102008.s1.tag = NULL_TYPE; /* x184814 stalin.sc:25683:888584 */ t102000.s1.tag = STRUCTURE_TYPE24753; t102000.s1.value.structure_type24753 = &t102008; /* x184815 stalin.sc:25683:888584 */ t101999.s1.tag = STRUCTURE_TYPE24753; t101999.s1.value.structure_type24753 = &t102000; /* x184816 stalin.sc:25683:888584 */ t101998.s0.tag = STRUCTURE_TYPE24753; t101998.s0.value.structure_type24753 = &t101999; /* x184817 stalin.sc:25683:888584 */ t101998.s1.tag = NULL_TYPE; /* x184818 stalin.sc:25683:888584 */ t101997.s1.tag = STRUCTURE_TYPE24753; t101997.s1.value.structure_type24753 = &t101998; /* x184819 stalin.sc:25683:888584 */ t101996.s0.tag = STRUCTURE_TYPE24753; t101996.s0.value.structure_type24753 = &t101997; /* x184820 stalin.sc:25683:888584 */ t101996.s1.tag = NULL_TYPE; /* x184821 stalin.sc:25683:888584 */ t101986.s1.tag = STRUCTURE_TYPE24753; t101986.s1.value.structure_type24753 = &t101996; /* x184822 stalin.sc:25683:888584 */ t101985.s0.tag = STRUCTURE_TYPE24753; t101985.s0.value.structure_type24753 = &t101986; /* x184823 stalin.sc:25683:888584 */ t102011.s0.tag = EXTERNAL_SYMBOL_TYPE; t102011.s0.value.external_symbol_type = q263; /* x184824 stalin.sc:25683:888584 */ t102012.s0.tag = EXTERNAL_SYMBOL_TYPE; t102012.s0.value.external_symbol_type = q275; /* x184825 stalin.sc:25683:888584 */ t102013.s0.tag = ((unsigned)((unsigned char)'+'))<<2; /* x184826 stalin.sc:25683:888584 */ t102013.s1.tag = NULL_TYPE; /* x184827 stalin.sc:25683:888584 */ t102012.s1.tag = STRUCTURE_TYPE24753; t102012.s1.value.structure_type24753 = &t102013; /* x184828 stalin.sc:25683:888584 */ t102011.s1.tag = STRUCTURE_TYPE24753; t102011.s1.value.structure_type24753 = &t102012; /* x184829 stalin.sc:25683:888584 */ t102010.s0.tag = STRUCTURE_TYPE24753; t102010.s0.value.structure_type24753 = &t102011; /* x184830 stalin.sc:25683:888584 */ t102015.s0.tag = EXTERNAL_SYMBOL_TYPE; t102015.s0.value.external_symbol_type = q43; /* x184831 stalin.sc:25683:888584 */ t102017.s0.tag = EXTERNAL_SYMBOL_TYPE; t102017.s0.value.external_symbol_type = q120; /* x184832 stalin.sc:25683:888584 */ t102018.s0.tag = EXTERNAL_SYMBOL_TYPE; t102018.s0.value.external_symbol_type = q308; /* x184833 stalin.sc:25683:888584 */ t102019.s0.tag = EXTERNAL_SYMBOL_TYPE; t102019.s0.value.external_symbol_type = q330; /* x184834 stalin.sc:25683:888584 */ t102019.s1.tag = NULL_TYPE; /* x184835 stalin.sc:25683:888584 */ t102018.s1.tag = STRUCTURE_TYPE24753; t102018.s1.value.structure_type24753 = &t102019; /* x184836 stalin.sc:25683:888584 */ t102017.s1.tag = STRUCTURE_TYPE24753; t102017.s1.value.structure_type24753 = &t102018; /* x184837 stalin.sc:25683:888584 */ t102016.s0.tag = STRUCTURE_TYPE24753; t102016.s0.value.structure_type24753 = &t102017; /* x184838 stalin.sc:25683:888584 */ t102020.s0.tag = FALSE_TYPE; /* x184839 stalin.sc:25683:888584 */ t102022.s0.tag = EXTERNAL_SYMBOL_TYPE; t102022.s0.value.external_symbol_type = q242; /* x184840 stalin.sc:25683:888584 */ t102025.s0.tag = EXTERNAL_SYMBOL_TYPE; t102025.s0.value.external_symbol_type = q297; /* x184841 stalin.sc:25683:888584 */ t102027.s0.tag = EXTERNAL_SYMBOL_TYPE; t102027.s0.value.external_symbol_type = q163; /* x184842 stalin.sc:25683:888584 */ t102028.s0.tag = EXTERNAL_SYMBOL_TYPE; t102028.s0.value.external_symbol_type = q161; /* x184843 stalin.sc:25683:888584 */ t102029.s0.tag = EXTERNAL_SYMBOL_TYPE; t102029.s0.value.external_symbol_type = q308; /* x184844 stalin.sc:25683:888584 */ t102029.s1.tag = NULL_TYPE; /* x184845 stalin.sc:25683:888584 */ t102028.s1.tag = STRUCTURE_TYPE24753; t102028.s1.value.structure_type24753 = &t102029; /* x184846 stalin.sc:25683:888584 */ t102027.s1.tag = STRUCTURE_TYPE24753; t102027.s1.value.structure_type24753 = &t102028; /* x184847 stalin.sc:25683:888584 */ t102026.s0.tag = STRUCTURE_TYPE24753; t102026.s0.value.structure_type24753 = &t102027; /* x184848 stalin.sc:25683:888584 */ t102026.s1.tag = NULL_TYPE; /* x184849 stalin.sc:25683:888584 */ t102025.s1.tag = STRUCTURE_TYPE24753; t102025.s1.value.structure_type24753 = &t102026; /* x184850 stalin.sc:25683:888584 */ t102024.s0.tag = STRUCTURE_TYPE24753; t102024.s0.value.structure_type24753 = &t102025; /* x184851 stalin.sc:25683:888584 */ t102024.s1.tag = NULL_TYPE; /* x184852 stalin.sc:25683:888584 */ t102023.s0.tag = STRUCTURE_TYPE24753; t102023.s0.value.structure_type24753 = &t102024; /* x184853 stalin.sc:25683:888584 */ t102031.s0.tag = EXTERNAL_SYMBOL_TYPE; t102031.s0.value.external_symbol_type = q42; /* x184854 stalin.sc:25683:888584 */ t102032.s0.tag = EXTERNAL_SYMBOL_TYPE; t102032.s0.value.external_symbol_type = q308; /* x184855 stalin.sc:25683:888584 */ t102034.s0.tag = EXTERNAL_SYMBOL_TYPE; t102034.s0.value.external_symbol_type = q4; /* x184856 stalin.sc:25683:888584 */ t102035.s0.tag = EXTERNAL_SYMBOL_TYPE; t102035.s0.value.external_symbol_type = q308; /* x184857 stalin.sc:25683:888584 */ t102036.s0.tag = FIXNUM_TYPE; t102036.s0.value.fixnum_type = 1; /* x184858 stalin.sc:25683:888584 */ t102036.s1.tag = NULL_TYPE; /* x184859 stalin.sc:25683:888584 */ t102035.s1.tag = STRUCTURE_TYPE24753; t102035.s1.value.structure_type24753 = &t102036; /* x184860 stalin.sc:25683:888584 */ t102034.s1.tag = STRUCTURE_TYPE24753; t102034.s1.value.structure_type24753 = &t102035; /* x184861 stalin.sc:25683:888584 */ t102033.s0.tag = STRUCTURE_TYPE24753; t102033.s0.value.structure_type24753 = &t102034; /* x184862 stalin.sc:25683:888584 */ t102033.s1.tag = NULL_TYPE; /* x184863 stalin.sc:25683:888584 */ t102032.s1.tag = STRUCTURE_TYPE24753; t102032.s1.value.structure_type24753 = &t102033; /* x184864 stalin.sc:25683:888584 */ t102031.s1.tag = STRUCTURE_TYPE24753; t102031.s1.value.structure_type24753 = &t102032; /* x184865 stalin.sc:25683:888584 */ t102030.s0.tag = STRUCTURE_TYPE24753; t102030.s0.value.structure_type24753 = &t102031; /* x184866 stalin.sc:25683:888584 */ t102038.s0.tag = EXTERNAL_SYMBOL_TYPE; t102038.s0.value.external_symbol_type = q240; /* x184867 stalin.sc:25683:888584 */ t102041.s0.tag = EXTERNAL_SYMBOL_TYPE; t102041.s0.value.external_symbol_type = q269; /* x184868 stalin.sc:25683:888584 */ t102042.s0.tag = EXTERNAL_SYMBOL_TYPE; t102042.s0.value.external_symbol_type = q297; /* x184869 stalin.sc:25683:888584 */ t102042.s1.tag = NULL_TYPE; /* x184870 stalin.sc:25683:888584 */ t102041.s1.tag = STRUCTURE_TYPE24753; t102041.s1.value.structure_type24753 = &t102042; /* x184871 stalin.sc:25683:888584 */ t102040.s0.tag = STRUCTURE_TYPE24753; t102040.s0.value.structure_type24753 = &t102041; /* x184872 stalin.sc:25683:888584 */ t102044.s0.tag = EXTERNAL_SYMBOL_TYPE; t102044.s0.value.external_symbol_type = q335; /* x184873 stalin.sc:25683:888584 */ t102046.s0.tag = EXTERNAL_SYMBOL_TYPE; t102046.s0.value.external_symbol_type = q2; /* x184874 stalin.sc:25683:888584 */ t102048.s0.tag = EXTERNAL_SYMBOL_TYPE; t102048.s0.value.external_symbol_type = q157; /* x184875 stalin.sc:25683:888584 */ t102049.s0.tag = EXTERNAL_SYMBOL_TYPE; t102049.s0.value.external_symbol_type = q297; /* x184876 stalin.sc:25683:888584 */ t102049.s1.tag = NULL_TYPE; /* x184877 stalin.sc:25683:888584 */ t102048.s1.tag = STRUCTURE_TYPE24753; t102048.s1.value.structure_type24753 = &t102049; /* x184878 stalin.sc:25683:888584 */ t102047.s0.tag = STRUCTURE_TYPE24753; t102047.s0.value.structure_type24753 = &t102048; /* x184879 stalin.sc:25683:888584 */ t102051.s0.tag = EXTERNAL_SYMBOL_TYPE; t102051.s0.value.external_symbol_type = q157; /* x184880 stalin.sc:25683:888584 */ t102052.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x184881 stalin.sc:25683:888584 */ t102052.s1.tag = NULL_TYPE; /* x184882 stalin.sc:25683:888584 */ t102051.s1.tag = STRUCTURE_TYPE24753; t102051.s1.value.structure_type24753 = &t102052; /* x184883 stalin.sc:25683:888584 */ t102050.s0.tag = STRUCTURE_TYPE24753; t102050.s0.value.structure_type24753 = &t102051; /* x184884 stalin.sc:25683:888584 */ t102050.s1.tag = NULL_TYPE; /* x184885 stalin.sc:25683:888584 */ t102047.s1.tag = STRUCTURE_TYPE24753; t102047.s1.value.structure_type24753 = &t102050; /* x184886 stalin.sc:25683:888584 */ t102046.s1.tag = STRUCTURE_TYPE24753; t102046.s1.value.structure_type24753 = &t102047; /* x184887 stalin.sc:25683:888584 */ t102045.s0.tag = STRUCTURE_TYPE24753; t102045.s0.value.structure_type24753 = &t102046; /* x184888 stalin.sc:25683:888584 */ t102045.s1.tag = NULL_TYPE; /* x184889 stalin.sc:25683:888584 */ t102044.s1.tag = STRUCTURE_TYPE24753; t102044.s1.value.structure_type24753 = &t102045; /* x184890 stalin.sc:25683:888584 */ t102043.s0.tag = STRUCTURE_TYPE24753; t102043.s0.value.structure_type24753 = &t102044; /* x184891 stalin.sc:25683:888584 */ t102043.s1.tag = NULL_TYPE; /* x184892 stalin.sc:25683:888584 */ t102040.s1.tag = STRUCTURE_TYPE24753; t102040.s1.value.structure_type24753 = &t102043; /* x184893 stalin.sc:25683:888584 */ t102039.s0.tag = STRUCTURE_TYPE24753; t102039.s0.value.structure_type24753 = &t102040; /* x184894 stalin.sc:25683:888584 */ t102055.s0.tag = EXTERNAL_SYMBOL_TYPE; t102055.s0.value.external_symbol_type = q244; /* x184895 stalin.sc:25683:888584 */ t102057.s0.tag = EXTERNAL_SYMBOL_TYPE; t102057.s0.value.external_symbol_type = q266; /* x184896 stalin.sc:25683:888584 */ t102058.s0.tag = EXTERNAL_SYMBOL_TYPE; t102058.s0.value.external_symbol_type = q297; /* x184897 stalin.sc:25683:888584 */ t102059.s0.tag = ((unsigned)((unsigned char)'a'))<<2; /* x184898 stalin.sc:25683:888584 */ t102059.s1.tag = NULL_TYPE; /* x184899 stalin.sc:25683:888584 */ t102058.s1.tag = STRUCTURE_TYPE24753; t102058.s1.value.structure_type24753 = &t102059; /* x184900 stalin.sc:25683:888584 */ t102057.s1.tag = STRUCTURE_TYPE24753; t102057.s1.value.structure_type24753 = &t102058; /* x184901 stalin.sc:25683:888584 */ t102056.s0.tag = STRUCTURE_TYPE24753; t102056.s0.value.structure_type24753 = &t102057; /* x184902 stalin.sc:25683:888584 */ t102061.s0.tag = EXTERNAL_SYMBOL_TYPE; t102061.s0.value.external_symbol_type = q267; /* x184903 stalin.sc:25683:888584 */ t102062.s0.tag = EXTERNAL_SYMBOL_TYPE; t102062.s0.value.external_symbol_type = q297; /* x184904 stalin.sc:25683:888584 */ t102063.s0.tag = ((unsigned)((unsigned char)'f'))<<2; /* x184905 stalin.sc:25683:888584 */ t102063.s1.tag = NULL_TYPE; /* x184906 stalin.sc:25683:888584 */ t102062.s1.tag = STRUCTURE_TYPE24753; t102062.s1.value.structure_type24753 = &t102063; /* x184907 stalin.sc:25683:888584 */ t102061.s1.tag = STRUCTURE_TYPE24753; t102061.s1.value.structure_type24753 = &t102062; /* x184908 stalin.sc:25683:888584 */ t102060.s0.tag = STRUCTURE_TYPE24753; t102060.s0.value.structure_type24753 = &t102061; /* x184909 stalin.sc:25683:888584 */ t102060.s1.tag = NULL_TYPE; /* x184910 stalin.sc:25683:888584 */ t102056.s1.tag = STRUCTURE_TYPE24753; t102056.s1.value.structure_type24753 = &t102060; /* x184911 stalin.sc:25683:888584 */ t102055.s1.tag = STRUCTURE_TYPE24753; t102055.s1.value.structure_type24753 = &t102056; /* x184912 stalin.sc:25683:888584 */ t102054.s0.tag = STRUCTURE_TYPE24753; t102054.s0.value.structure_type24753 = &t102055; /* x184913 stalin.sc:25683:888584 */ t102065.s0.tag = EXTERNAL_SYMBOL_TYPE; t102065.s0.value.external_symbol_type = q335; /* x184914 stalin.sc:25683:888584 */ t102067.s0.tag = EXTERNAL_SYMBOL_TYPE; t102067.s0.value.external_symbol_type = q4; /* x184915 stalin.sc:25683:888584 */ t102069.s0.tag = EXTERNAL_SYMBOL_TYPE; t102069.s0.value.external_symbol_type = q2; /* x184916 stalin.sc:25683:888584 */ t102071.s0.tag = EXTERNAL_SYMBOL_TYPE; t102071.s0.value.external_symbol_type = q157; /* x184917 stalin.sc:25683:888584 */ t102072.s0.tag = EXTERNAL_SYMBOL_TYPE; t102072.s0.value.external_symbol_type = q297; /* x184918 stalin.sc:25683:888584 */ t102072.s1.tag = NULL_TYPE; /* x184919 stalin.sc:25683:888584 */ t102071.s1.tag = STRUCTURE_TYPE24753; t102071.s1.value.structure_type24753 = &t102072; /* x184920 stalin.sc:25683:888584 */ t102070.s0.tag = STRUCTURE_TYPE24753; t102070.s0.value.structure_type24753 = &t102071; /* x184921 stalin.sc:25683:888584 */ t102074.s0.tag = EXTERNAL_SYMBOL_TYPE; t102074.s0.value.external_symbol_type = q157; /* x184922 stalin.sc:25683:888584 */ t102075.s0.tag = ((unsigned)((unsigned char)'a'))<<2; /* x184923 stalin.sc:25683:888584 */ t102075.s1.tag = NULL_TYPE; /* x184924 stalin.sc:25683:888584 */ t102074.s1.tag = STRUCTURE_TYPE24753; t102074.s1.value.structure_type24753 = &t102075; /* x184925 stalin.sc:25683:888584 */ t102073.s0.tag = STRUCTURE_TYPE24753; t102073.s0.value.structure_type24753 = &t102074; /* x184926 stalin.sc:25683:888584 */ t102073.s1.tag = NULL_TYPE; /* x184927 stalin.sc:25683:888584 */ t102070.s1.tag = STRUCTURE_TYPE24753; t102070.s1.value.structure_type24753 = &t102073; /* x184928 stalin.sc:25683:888584 */ t102069.s1.tag = STRUCTURE_TYPE24753; t102069.s1.value.structure_type24753 = &t102070; /* x184929 stalin.sc:25683:888584 */ t102068.s0.tag = STRUCTURE_TYPE24753; t102068.s0.value.structure_type24753 = &t102069; /* x184930 stalin.sc:25683:888584 */ t102076.s0.tag = FIXNUM_TYPE; t102076.s0.value.fixnum_type = 10; /* x184931 stalin.sc:25683:888584 */ t102076.s1.tag = NULL_TYPE; /* x184932 stalin.sc:25683:888584 */ t102068.s1.tag = STRUCTURE_TYPE24753; t102068.s1.value.structure_type24753 = &t102076; /* x184933 stalin.sc:25683:888584 */ t102067.s1.tag = STRUCTURE_TYPE24753; t102067.s1.value.structure_type24753 = &t102068; /* x184934 stalin.sc:25683:888584 */ t102066.s0.tag = STRUCTURE_TYPE24753; t102066.s0.value.structure_type24753 = &t102067; /* x184935 stalin.sc:25683:888584 */ t102066.s1.tag = NULL_TYPE; /* x184936 stalin.sc:25683:888584 */ t102065.s1.tag = STRUCTURE_TYPE24753; t102065.s1.value.structure_type24753 = &t102066; /* x184937 stalin.sc:25683:888584 */ t102064.s0.tag = STRUCTURE_TYPE24753; t102064.s0.value.structure_type24753 = &t102065; /* x184938 stalin.sc:25683:888584 */ t102064.s1.tag = NULL_TYPE; /* x184939 stalin.sc:25683:888584 */ t102054.s1.tag = STRUCTURE_TYPE24753; t102054.s1.value.structure_type24753 = &t102064; /* x184940 stalin.sc:25683:888584 */ t102053.s0.tag = STRUCTURE_TYPE24753; t102053.s0.value.structure_type24753 = &t102054; /* x184941 stalin.sc:25683:888584 */ t102079.s0.tag = EXTERNAL_SYMBOL_TYPE; t102079.s0.value.external_symbol_type = q244; /* x184942 stalin.sc:25683:888584 */ t102081.s0.tag = EXTERNAL_SYMBOL_TYPE; t102081.s0.value.external_symbol_type = q266; /* x184943 stalin.sc:25683:888584 */ t102082.s0.tag = EXTERNAL_SYMBOL_TYPE; t102082.s0.value.external_symbol_type = q297; /* x184944 stalin.sc:25683:888584 */ t102083.s0.tag = ((unsigned)((unsigned char)'A'))<<2; /* x184945 stalin.sc:25683:888584 */ t102083.s1.tag = NULL_TYPE; /* x184946 stalin.sc:25683:888584 */ t102082.s1.tag = STRUCTURE_TYPE24753; t102082.s1.value.structure_type24753 = &t102083; /* x184947 stalin.sc:25683:888584 */ t102081.s1.tag = STRUCTURE_TYPE24753; t102081.s1.value.structure_type24753 = &t102082; /* x184948 stalin.sc:25683:888584 */ t102080.s0.tag = STRUCTURE_TYPE24753; t102080.s0.value.structure_type24753 = &t102081; /* x184949 stalin.sc:25683:888584 */ t102085.s0.tag = EXTERNAL_SYMBOL_TYPE; t102085.s0.value.external_symbol_type = q267; /* x184950 stalin.sc:25683:888584 */ t102086.s0.tag = EXTERNAL_SYMBOL_TYPE; t102086.s0.value.external_symbol_type = q297; /* x184951 stalin.sc:25683:888584 */ t102087.s0.tag = ((unsigned)((unsigned char)'F'))<<2; /* x184952 stalin.sc:25683:888584 */ t102087.s1.tag = NULL_TYPE; /* x184953 stalin.sc:25683:888584 */ t102086.s1.tag = STRUCTURE_TYPE24753; t102086.s1.value.structure_type24753 = &t102087; /* x184954 stalin.sc:25683:888584 */ t102085.s1.tag = STRUCTURE_TYPE24753; t102085.s1.value.structure_type24753 = &t102086; /* x184955 stalin.sc:25683:888584 */ t102084.s0.tag = STRUCTURE_TYPE24753; t102084.s0.value.structure_type24753 = &t102085; /* x184956 stalin.sc:25683:888584 */ t102084.s1.tag = NULL_TYPE; /* x184957 stalin.sc:25683:888584 */ t102080.s1.tag = STRUCTURE_TYPE24753; t102080.s1.value.structure_type24753 = &t102084; /* x184958 stalin.sc:25683:888584 */ t102079.s1.tag = STRUCTURE_TYPE24753; t102079.s1.value.structure_type24753 = &t102080; /* x184959 stalin.sc:25683:888584 */ t102078.s0.tag = STRUCTURE_TYPE24753; t102078.s0.value.structure_type24753 = &t102079; /* x184960 stalin.sc:25683:888584 */ t102089.s0.tag = EXTERNAL_SYMBOL_TYPE; t102089.s0.value.external_symbol_type = q335; /* x184961 stalin.sc:25683:888584 */ t102091.s0.tag = EXTERNAL_SYMBOL_TYPE; t102091.s0.value.external_symbol_type = q4; /* x184962 stalin.sc:25683:888584 */ t102093.s0.tag = EXTERNAL_SYMBOL_TYPE; t102093.s0.value.external_symbol_type = q2; /* x184963 stalin.sc:25683:888584 */ t102095.s0.tag = EXTERNAL_SYMBOL_TYPE; t102095.s0.value.external_symbol_type = q157; /* x184964 stalin.sc:25683:888584 */ t102096.s0.tag = EXTERNAL_SYMBOL_TYPE; t102096.s0.value.external_symbol_type = q297; /* x184965 stalin.sc:25683:888584 */ t102096.s1.tag = NULL_TYPE; /* x184966 stalin.sc:25683:888584 */ t102095.s1.tag = STRUCTURE_TYPE24753; t102095.s1.value.structure_type24753 = &t102096; /* x184967 stalin.sc:25683:888584 */ t102094.s0.tag = STRUCTURE_TYPE24753; t102094.s0.value.structure_type24753 = &t102095; /* x184968 stalin.sc:25683:888584 */ t102098.s0.tag = EXTERNAL_SYMBOL_TYPE; t102098.s0.value.external_symbol_type = q157; /* x184969 stalin.sc:25683:888584 */ t102099.s0.tag = ((unsigned)((unsigned char)'A'))<<2; /* x184970 stalin.sc:25683:888584 */ t102099.s1.tag = NULL_TYPE; /* x184971 stalin.sc:25683:888584 */ t102098.s1.tag = STRUCTURE_TYPE24753; t102098.s1.value.structure_type24753 = &t102099; /* x184972 stalin.sc:25683:888584 */ t102097.s0.tag = STRUCTURE_TYPE24753; t102097.s0.value.structure_type24753 = &t102098; /* x184973 stalin.sc:25683:888584 */ t102097.s1.tag = NULL_TYPE; /* x184974 stalin.sc:25683:888584 */ t102094.s1.tag = STRUCTURE_TYPE24753; t102094.s1.value.structure_type24753 = &t102097; /* x184975 stalin.sc:25683:888584 */ t102093.s1.tag = STRUCTURE_TYPE24753; t102093.s1.value.structure_type24753 = &t102094; /* x184976 stalin.sc:25683:888584 */ t102092.s0.tag = STRUCTURE_TYPE24753; t102092.s0.value.structure_type24753 = &t102093; /* x184977 stalin.sc:25683:888584 */ t102100.s0.tag = FIXNUM_TYPE; t102100.s0.value.fixnum_type = 10; /* x184978 stalin.sc:25683:888584 */ t102100.s1.tag = NULL_TYPE; /* x184979 stalin.sc:25683:888584 */ t102092.s1.tag = STRUCTURE_TYPE24753; t102092.s1.value.structure_type24753 = &t102100; /* x184980 stalin.sc:25683:888584 */ t102091.s1.tag = STRUCTURE_TYPE24753; t102091.s1.value.structure_type24753 = &t102092; /* x184981 stalin.sc:25683:888584 */ t102090.s0.tag = STRUCTURE_TYPE24753; t102090.s0.value.structure_type24753 = &t102091; /* x184982 stalin.sc:25683:888584 */ t102090.s1.tag = NULL_TYPE; /* x184983 stalin.sc:25683:888584 */ t102089.s1.tag = STRUCTURE_TYPE24753; t102089.s1.value.structure_type24753 = &t102090; /* x184984 stalin.sc:25683:888584 */ t102088.s0.tag = STRUCTURE_TYPE24753; t102088.s0.value.structure_type24753 = &t102089; /* x184985 stalin.sc:25683:888584 */ t102088.s1.tag = NULL_TYPE; /* x184986 stalin.sc:25683:888584 */ t102078.s1.tag = STRUCTURE_TYPE24753; t102078.s1.value.structure_type24753 = &t102088; /* x184987 stalin.sc:25683:888584 */ t102077.s0.tag = STRUCTURE_TYPE24753; t102077.s0.value.structure_type24753 = &t102078; /* x184988 stalin.sc:25683:888584 */ t102102.s0.tag = EXTERNAL_SYMBOL_TYPE; t102102.s0.value.external_symbol_type = q95; /* x184989 stalin.sc:25683:888584 */ t102103.s0.tag = FALSE_TYPE; /* x184990 stalin.sc:25683:888584 */ t102103.s1.tag = NULL_TYPE; /* x184991 stalin.sc:25683:888584 */ t102102.s1.tag = STRUCTURE_TYPE24753; t102102.s1.value.structure_type24753 = &t102103; /* x184992 stalin.sc:25683:888584 */ t102101.s0.tag = STRUCTURE_TYPE24753; t102101.s0.value.structure_type24753 = &t102102; /* x184993 stalin.sc:25683:888584 */ t102101.s1.tag = NULL_TYPE; /* x184994 stalin.sc:25683:888584 */ t102077.s1.tag = STRUCTURE_TYPE24753; t102077.s1.value.structure_type24753 = &t102101; /* x184995 stalin.sc:25683:888584 */ t102053.s1.tag = STRUCTURE_TYPE24753; t102053.s1.value.structure_type24753 = &t102077; /* x184996 stalin.sc:25683:888584 */ t102039.s1.tag = STRUCTURE_TYPE24753; t102039.s1.value.structure_type24753 = &t102053; /* x184997 stalin.sc:25683:888584 */ t102038.s1.tag = STRUCTURE_TYPE24753; t102038.s1.value.structure_type24753 = &t102039; /* x184998 stalin.sc:25683:888584 */ t102037.s0.tag = STRUCTURE_TYPE24753; t102037.s0.value.structure_type24753 = &t102038; /* x184999 stalin.sc:25683:888584 */ t102037.s1.tag = NULL_TYPE; /* x185000 stalin.sc:25683:888584 */ t102030.s1.tag = STRUCTURE_TYPE24753; t102030.s1.value.structure_type24753 = &t102037; /* x185001 stalin.sc:25683:888584 */ t102023.s1.tag = STRUCTURE_TYPE24753; t102023.s1.value.structure_type24753 = &t102030; /* x185002 stalin.sc:25683:888584 */ t102022.s1.tag = STRUCTURE_TYPE24753; t102022.s1.value.structure_type24753 = &t102023; /* x185003 stalin.sc:25683:888584 */ t102021.s0.tag = STRUCTURE_TYPE24753; t102021.s0.value.structure_type24753 = &t102022; /* x185004 stalin.sc:25683:888584 */ t102021.s1.tag = NULL_TYPE; /* x185005 stalin.sc:25683:888584 */ t102020.s1.tag = STRUCTURE_TYPE24753; t102020.s1.value.structure_type24753 = &t102021; /* x185006 stalin.sc:25683:888584 */ t102016.s1.tag = STRUCTURE_TYPE24753; t102016.s1.value.structure_type24753 = &t102020; /* x185007 stalin.sc:25683:888584 */ t102015.s1.tag = STRUCTURE_TYPE24753; t102015.s1.value.structure_type24753 = &t102016; /* x185008 stalin.sc:25683:888584 */ t102014.s0.tag = STRUCTURE_TYPE24753; t102014.s0.value.structure_type24753 = &t102015; /* x185009 stalin.sc:25683:888584 */ t102014.s1.tag = NULL_TYPE; /* x185010 stalin.sc:25683:888584 */ t102010.s1.tag = STRUCTURE_TYPE24753; t102010.s1.value.structure_type24753 = &t102014; /* x185011 stalin.sc:25683:888584 */ t102009.s0.tag = STRUCTURE_TYPE24753; t102009.s0.value.structure_type24753 = &t102010; /* x185012 stalin.sc:25683:888584 */ t102106.s0.tag = EXTERNAL_SYMBOL_TYPE; t102106.s0.value.external_symbol_type = q263; /* x185013 stalin.sc:25683:888584 */ t102107.s0.tag = EXTERNAL_SYMBOL_TYPE; t102107.s0.value.external_symbol_type = q275; /* x185014 stalin.sc:25683:888584 */ t102108.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x185015 stalin.sc:25683:888584 */ t102108.s1.tag = NULL_TYPE; /* x185016 stalin.sc:25683:888584 */ t102107.s1.tag = STRUCTURE_TYPE24753; t102107.s1.value.structure_type24753 = &t102108; /* x185017 stalin.sc:25683:888584 */ t102106.s1.tag = STRUCTURE_TYPE24753; t102106.s1.value.structure_type24753 = &t102107; /* x185018 stalin.sc:25683:888584 */ t102105.s0.tag = STRUCTURE_TYPE24753; t102105.s0.value.structure_type24753 = &t102106; /* x185019 stalin.sc:25683:888584 */ t102110.s0.tag = EXTERNAL_SYMBOL_TYPE; t102110.s0.value.external_symbol_type = q43; /* x185020 stalin.sc:25683:888584 */ t102112.s0.tag = EXTERNAL_SYMBOL_TYPE; t102112.s0.value.external_symbol_type = q120; /* x185021 stalin.sc:25683:888584 */ t102113.s0.tag = EXTERNAL_SYMBOL_TYPE; t102113.s0.value.external_symbol_type = q308; /* x185022 stalin.sc:25683:888584 */ t102114.s0.tag = EXTERNAL_SYMBOL_TYPE; t102114.s0.value.external_symbol_type = q330; /* x185023 stalin.sc:25683:888584 */ t102114.s1.tag = NULL_TYPE; /* x185024 stalin.sc:25683:888584 */ t102113.s1.tag = STRUCTURE_TYPE24753; t102113.s1.value.structure_type24753 = &t102114; /* x185025 stalin.sc:25683:888584 */ t102112.s1.tag = STRUCTURE_TYPE24753; t102112.s1.value.structure_type24753 = &t102113; /* x185026 stalin.sc:25683:888584 */ t102111.s0.tag = STRUCTURE_TYPE24753; t102111.s0.value.structure_type24753 = &t102112; /* x185027 stalin.sc:25683:888584 */ t102115.s0.tag = FALSE_TYPE; /* x185028 stalin.sc:25683:888584 */ t102117.s0.tag = EXTERNAL_SYMBOL_TYPE; t102117.s0.value.external_symbol_type = q242; /* x185029 stalin.sc:25683:888584 */ t102120.s0.tag = EXTERNAL_SYMBOL_TYPE; t102120.s0.value.external_symbol_type = q297; /* x185030 stalin.sc:25683:888584 */ t102122.s0.tag = EXTERNAL_SYMBOL_TYPE; t102122.s0.value.external_symbol_type = q163; /* x185031 stalin.sc:25683:888584 */ t102123.s0.tag = EXTERNAL_SYMBOL_TYPE; t102123.s0.value.external_symbol_type = q161; /* x185032 stalin.sc:25683:888584 */ t102124.s0.tag = EXTERNAL_SYMBOL_TYPE; t102124.s0.value.external_symbol_type = q308; /* x185033 stalin.sc:25683:888584 */ t102124.s1.tag = NULL_TYPE; /* x185034 stalin.sc:25683:888584 */ t102123.s1.tag = STRUCTURE_TYPE24753; t102123.s1.value.structure_type24753 = &t102124; /* x185035 stalin.sc:25683:888584 */ t102122.s1.tag = STRUCTURE_TYPE24753; t102122.s1.value.structure_type24753 = &t102123; /* x185036 stalin.sc:25683:888584 */ t102121.s0.tag = STRUCTURE_TYPE24753; t102121.s0.value.structure_type24753 = &t102122; /* x185037 stalin.sc:25683:888584 */ t102121.s1.tag = NULL_TYPE; /* x185038 stalin.sc:25683:888584 */ t102120.s1.tag = STRUCTURE_TYPE24753; t102120.s1.value.structure_type24753 = &t102121; /* x185039 stalin.sc:25683:888584 */ t102119.s0.tag = STRUCTURE_TYPE24753; t102119.s0.value.structure_type24753 = &t102120; /* x185040 stalin.sc:25683:888584 */ t102119.s1.tag = NULL_TYPE; /* x185041 stalin.sc:25683:888584 */ t102118.s0.tag = STRUCTURE_TYPE24753; t102118.s0.value.structure_type24753 = &t102119; /* x185042 stalin.sc:25683:888584 */ t102126.s0.tag = EXTERNAL_SYMBOL_TYPE; t102126.s0.value.external_symbol_type = q42; /* x185043 stalin.sc:25683:888584 */ t102127.s0.tag = EXTERNAL_SYMBOL_TYPE; t102127.s0.value.external_symbol_type = q308; /* x185044 stalin.sc:25683:888584 */ t102129.s0.tag = EXTERNAL_SYMBOL_TYPE; t102129.s0.value.external_symbol_type = q4; /* x185045 stalin.sc:25683:888584 */ t102130.s0.tag = EXTERNAL_SYMBOL_TYPE; t102130.s0.value.external_symbol_type = q308; /* x185046 stalin.sc:25683:888584 */ t102131.s0.tag = FIXNUM_TYPE; t102131.s0.value.fixnum_type = 1; /* x185047 stalin.sc:25683:888584 */ t102131.s1.tag = NULL_TYPE; /* x185048 stalin.sc:25683:888584 */ t102130.s1.tag = STRUCTURE_TYPE24753; t102130.s1.value.structure_type24753 = &t102131; /* x185049 stalin.sc:25683:888584 */ t102129.s1.tag = STRUCTURE_TYPE24753; t102129.s1.value.structure_type24753 = &t102130; /* x185050 stalin.sc:25683:888584 */ t102128.s0.tag = STRUCTURE_TYPE24753; t102128.s0.value.structure_type24753 = &t102129; /* x185051 stalin.sc:25683:888584 */ t102128.s1.tag = NULL_TYPE; /* x185052 stalin.sc:25683:888584 */ t102127.s1.tag = STRUCTURE_TYPE24753; t102127.s1.value.structure_type24753 = &t102128; /* x185053 stalin.sc:25683:888584 */ t102126.s1.tag = STRUCTURE_TYPE24753; t102126.s1.value.structure_type24753 = &t102127; /* x185054 stalin.sc:25683:888584 */ t102125.s0.tag = STRUCTURE_TYPE24753; t102125.s0.value.structure_type24753 = &t102126; /* x185055 stalin.sc:25683:888584 */ t102133.s0.tag = EXTERNAL_SYMBOL_TYPE; t102133.s0.value.external_symbol_type = q240; /* x185056 stalin.sc:25683:888584 */ t102136.s0.tag = EXTERNAL_SYMBOL_TYPE; t102136.s0.value.external_symbol_type = q269; /* x185057 stalin.sc:25683:888584 */ t102137.s0.tag = EXTERNAL_SYMBOL_TYPE; t102137.s0.value.external_symbol_type = q297; /* x185058 stalin.sc:25683:888584 */ t102137.s1.tag = NULL_TYPE; /* x185059 stalin.sc:25683:888584 */ t102136.s1.tag = STRUCTURE_TYPE24753; t102136.s1.value.structure_type24753 = &t102137; /* x185060 stalin.sc:25683:888584 */ t102135.s0.tag = STRUCTURE_TYPE24753; t102135.s0.value.structure_type24753 = &t102136; /* x185061 stalin.sc:25683:888584 */ t102139.s0.tag = EXTERNAL_SYMBOL_TYPE; t102139.s0.value.external_symbol_type = q331; /* x185062 stalin.sc:25683:888584 */ t102141.s0.tag = EXTERNAL_SYMBOL_TYPE; t102141.s0.value.external_symbol_type = q335; /* x185063 stalin.sc:25683:888584 */ t102143.s0.tag = EXTERNAL_SYMBOL_TYPE; t102143.s0.value.external_symbol_type = q2; /* x185064 stalin.sc:25683:888584 */ t102145.s0.tag = EXTERNAL_SYMBOL_TYPE; t102145.s0.value.external_symbol_type = q157; /* x185065 stalin.sc:25683:888584 */ t102146.s0.tag = EXTERNAL_SYMBOL_TYPE; t102146.s0.value.external_symbol_type = q297; /* x185066 stalin.sc:25683:888584 */ t102146.s1.tag = NULL_TYPE; /* x185067 stalin.sc:25683:888584 */ t102145.s1.tag = STRUCTURE_TYPE24753; t102145.s1.value.structure_type24753 = &t102146; /* x185068 stalin.sc:25683:888584 */ t102144.s0.tag = STRUCTURE_TYPE24753; t102144.s0.value.structure_type24753 = &t102145; /* x185069 stalin.sc:25683:888584 */ t102148.s0.tag = EXTERNAL_SYMBOL_TYPE; t102148.s0.value.external_symbol_type = q157; /* x185070 stalin.sc:25683:888584 */ t102149.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x185071 stalin.sc:25683:888584 */ t102149.s1.tag = NULL_TYPE; /* x185072 stalin.sc:25683:888584 */ t102148.s1.tag = STRUCTURE_TYPE24753; t102148.s1.value.structure_type24753 = &t102149; /* x185073 stalin.sc:25683:888584 */ t102147.s0.tag = STRUCTURE_TYPE24753; t102147.s0.value.structure_type24753 = &t102148; /* x185074 stalin.sc:25683:888584 */ t102147.s1.tag = NULL_TYPE; /* x185075 stalin.sc:25683:888584 */ t102144.s1.tag = STRUCTURE_TYPE24753; t102144.s1.value.structure_type24753 = &t102147; /* x185076 stalin.sc:25683:888584 */ t102143.s1.tag = STRUCTURE_TYPE24753; t102143.s1.value.structure_type24753 = &t102144; /* x185077 stalin.sc:25683:888584 */ t102142.s0.tag = STRUCTURE_TYPE24753; t102142.s0.value.structure_type24753 = &t102143; /* x185078 stalin.sc:25683:888584 */ t102142.s1.tag = NULL_TYPE; /* x185079 stalin.sc:25683:888584 */ t102141.s1.tag = STRUCTURE_TYPE24753; t102141.s1.value.structure_type24753 = &t102142; /* x185080 stalin.sc:25683:888584 */ t102140.s0.tag = STRUCTURE_TYPE24753; t102140.s0.value.structure_type24753 = &t102141; /* x185081 stalin.sc:25683:888584 */ t102140.s1.tag = NULL_TYPE; /* x185082 stalin.sc:25683:888584 */ t102139.s1.tag = STRUCTURE_TYPE24753;} void initialize_constants39(void) {t102139.s1.value.structure_type24753 = &t102140; /* x185083 stalin.sc:25683:888584 */ t102138.s0.tag = STRUCTURE_TYPE24753; t102138.s0.value.structure_type24753 = &t102139; /* x185084 stalin.sc:25683:888584 */ t102138.s1.tag = NULL_TYPE; /* x185085 stalin.sc:25683:888584 */ t102135.s1.tag = STRUCTURE_TYPE24753; t102135.s1.value.structure_type24753 = &t102138; /* x185086 stalin.sc:25683:888584 */ t102134.s0.tag = STRUCTURE_TYPE24753; t102134.s0.value.structure_type24753 = &t102135; /* x185087 stalin.sc:25683:888584 */ t102152.s0.tag = EXTERNAL_SYMBOL_TYPE; t102152.s0.value.external_symbol_type = q244; /* x185088 stalin.sc:25683:888584 */ t102154.s0.tag = EXTERNAL_SYMBOL_TYPE; t102154.s0.value.external_symbol_type = q266; /* x185089 stalin.sc:25683:888584 */ t102155.s0.tag = EXTERNAL_SYMBOL_TYPE; t102155.s0.value.external_symbol_type = q297; /* x185090 stalin.sc:25683:888584 */ t102156.s0.tag = ((unsigned)((unsigned char)'a'))<<2; /* x185091 stalin.sc:25683:888584 */ t102156.s1.tag = NULL_TYPE; /* x185092 stalin.sc:25683:888584 */ t102155.s1.tag = STRUCTURE_TYPE24753; t102155.s1.value.structure_type24753 = &t102156; /* x185093 stalin.sc:25683:888584 */ t102154.s1.tag = STRUCTURE_TYPE24753; t102154.s1.value.structure_type24753 = &t102155; /* x185094 stalin.sc:25683:888584 */ t102153.s0.tag = STRUCTURE_TYPE24753; t102153.s0.value.structure_type24753 = &t102154; /* x185095 stalin.sc:25683:888584 */ t102158.s0.tag = EXTERNAL_SYMBOL_TYPE; t102158.s0.value.external_symbol_type = q267; /* x185096 stalin.sc:25683:888584 */ t102159.s0.tag = EXTERNAL_SYMBOL_TYPE; t102159.s0.value.external_symbol_type = q297; /* x185097 stalin.sc:25683:888584 */ t102160.s0.tag = ((unsigned)((unsigned char)'f'))<<2; /* x185098 stalin.sc:25683:888584 */ t102160.s1.tag = NULL_TYPE; /* x185099 stalin.sc:25683:888584 */ t102159.s1.tag = STRUCTURE_TYPE24753; t102159.s1.value.structure_type24753 = &t102160; /* x185100 stalin.sc:25683:888584 */ t102158.s1.tag = STRUCTURE_TYPE24753; t102158.s1.value.structure_type24753 = &t102159; /* x185101 stalin.sc:25683:888584 */ t102157.s0.tag = STRUCTURE_TYPE24753; t102157.s0.value.structure_type24753 = &t102158; /* x185102 stalin.sc:25683:888584 */ t102157.s1.tag = NULL_TYPE; /* x185103 stalin.sc:25683:888584 */ t102153.s1.tag = STRUCTURE_TYPE24753; t102153.s1.value.structure_type24753 = &t102157; /* x185104 stalin.sc:25683:888584 */ t102152.s1.tag = STRUCTURE_TYPE24753; t102152.s1.value.structure_type24753 = &t102153; /* x185105 stalin.sc:25683:888584 */ t102151.s0.tag = STRUCTURE_TYPE24753; t102151.s0.value.structure_type24753 = &t102152; /* x185106 stalin.sc:25683:888584 */ t102162.s0.tag = EXTERNAL_SYMBOL_TYPE; t102162.s0.value.external_symbol_type = q331; /* x185107 stalin.sc:25683:888584 */ t102164.s0.tag = EXTERNAL_SYMBOL_TYPE; t102164.s0.value.external_symbol_type = q335; /* x185108 stalin.sc:25683:888584 */ t102166.s0.tag = EXTERNAL_SYMBOL_TYPE; t102166.s0.value.external_symbol_type = q4; /* x185109 stalin.sc:25683:888584 */ t102168.s0.tag = EXTERNAL_SYMBOL_TYPE; t102168.s0.value.external_symbol_type = q2; /* x185110 stalin.sc:25683:888584 */ t102170.s0.tag = EXTERNAL_SYMBOL_TYPE; t102170.s0.value.external_symbol_type = q157; /* x185111 stalin.sc:25683:888584 */ t102171.s0.tag = EXTERNAL_SYMBOL_TYPE; t102171.s0.value.external_symbol_type = q297; /* x185112 stalin.sc:25683:888584 */ t102171.s1.tag = NULL_TYPE; /* x185113 stalin.sc:25683:888584 */ t102170.s1.tag = STRUCTURE_TYPE24753; t102170.s1.value.structure_type24753 = &t102171; /* x185114 stalin.sc:25683:888584 */ t102169.s0.tag = STRUCTURE_TYPE24753; t102169.s0.value.structure_type24753 = &t102170; /* x185115 stalin.sc:25683:888584 */ t102173.s0.tag = EXTERNAL_SYMBOL_TYPE; t102173.s0.value.external_symbol_type = q157; /* x185116 stalin.sc:25683:888584 */ t102174.s0.tag = ((unsigned)((unsigned char)'a'))<<2; /* x185117 stalin.sc:25683:888584 */ t102174.s1.tag = NULL_TYPE; /* x185118 stalin.sc:25683:888584 */ t102173.s1.tag = STRUCTURE_TYPE24753; t102173.s1.value.structure_type24753 = &t102174; /* x185119 stalin.sc:25683:888584 */ t102172.s0.tag = STRUCTURE_TYPE24753; t102172.s0.value.structure_type24753 = &t102173; /* x185120 stalin.sc:25683:888584 */ t102172.s1.tag = NULL_TYPE; /* x185121 stalin.sc:25683:888584 */ t102169.s1.tag = STRUCTURE_TYPE24753; t102169.s1.value.structure_type24753 = &t102172; /* x185122 stalin.sc:25683:888584 */ t102168.s1.tag = STRUCTURE_TYPE24753; t102168.s1.value.structure_type24753 = &t102169; /* x185123 stalin.sc:25683:888584 */ t102167.s0.tag = STRUCTURE_TYPE24753; t102167.s0.value.structure_type24753 = &t102168; /* x185124 stalin.sc:25683:888584 */ t102175.s0.tag = FIXNUM_TYPE; t102175.s0.value.fixnum_type = 10; /* x185125 stalin.sc:25683:888584 */ t102175.s1.tag = NULL_TYPE; /* x185126 stalin.sc:25683:888584 */ t102167.s1.tag = STRUCTURE_TYPE24753; t102167.s1.value.structure_type24753 = &t102175; /* x185127 stalin.sc:25683:888584 */ t102166.s1.tag = STRUCTURE_TYPE24753; t102166.s1.value.structure_type24753 = &t102167; /* x185128 stalin.sc:25683:888584 */ t102165.s0.tag = STRUCTURE_TYPE24753; t102165.s0.value.structure_type24753 = &t102166; /* x185129 stalin.sc:25683:888584 */ t102165.s1.tag = NULL_TYPE; /* x185130 stalin.sc:25683:888584 */ t102164.s1.tag = STRUCTURE_TYPE24753; t102164.s1.value.structure_type24753 = &t102165; /* x185131 stalin.sc:25683:888584 */ t102163.s0.tag = STRUCTURE_TYPE24753; t102163.s0.value.structure_type24753 = &t102164; /* x185132 stalin.sc:25683:888584 */ t102163.s1.tag = NULL_TYPE; /* x185133 stalin.sc:25683:888584 */ t102162.s1.tag = STRUCTURE_TYPE24753; t102162.s1.value.structure_type24753 = &t102163; /* x185134 stalin.sc:25683:888584 */ t102161.s0.tag = STRUCTURE_TYPE24753; t102161.s0.value.structure_type24753 = &t102162; /* x185135 stalin.sc:25683:888584 */ t102161.s1.tag = NULL_TYPE; /* x185136 stalin.sc:25683:888584 */ t102151.s1.tag = STRUCTURE_TYPE24753; t102151.s1.value.structure_type24753 = &t102161; /* x185137 stalin.sc:25683:888584 */ t102150.s0.tag = STRUCTURE_TYPE24753; t102150.s0.value.structure_type24753 = &t102151; /* x185138 stalin.sc:25683:888584 */ t102178.s0.tag = EXTERNAL_SYMBOL_TYPE; t102178.s0.value.external_symbol_type = q244; /* x185139 stalin.sc:25683:888584 */ t102180.s0.tag = EXTERNAL_SYMBOL_TYPE; t102180.s0.value.external_symbol_type = q266; /* x185140 stalin.sc:25683:888584 */ t102181.s0.tag = EXTERNAL_SYMBOL_TYPE; t102181.s0.value.external_symbol_type = q297; /* x185141 stalin.sc:25683:888584 */ t102182.s0.tag = ((unsigned)((unsigned char)'A'))<<2; /* x185142 stalin.sc:25683:888584 */ t102182.s1.tag = NULL_TYPE; /* x185143 stalin.sc:25683:888584 */ t102181.s1.tag = STRUCTURE_TYPE24753; t102181.s1.value.structure_type24753 = &t102182; /* x185144 stalin.sc:25683:888584 */ t102180.s1.tag = STRUCTURE_TYPE24753; t102180.s1.value.structure_type24753 = &t102181; /* x185145 stalin.sc:25683:888584 */ t102179.s0.tag = STRUCTURE_TYPE24753; t102179.s0.value.structure_type24753 = &t102180; /* x185146 stalin.sc:25683:888584 */ t102184.s0.tag = EXTERNAL_SYMBOL_TYPE; t102184.s0.value.external_symbol_type = q267; /* x185147 stalin.sc:25683:888584 */ t102185.s0.tag = EXTERNAL_SYMBOL_TYPE; t102185.s0.value.external_symbol_type = q297; /* x185148 stalin.sc:25683:888584 */ t102186.s0.tag = ((unsigned)((unsigned char)'F'))<<2; /* x185149 stalin.sc:25683:888584 */ t102186.s1.tag = NULL_TYPE; /* x185150 stalin.sc:25683:888584 */ t102185.s1.tag = STRUCTURE_TYPE24753; t102185.s1.value.structure_type24753 = &t102186; /* x185151 stalin.sc:25683:888584 */ t102184.s1.tag = STRUCTURE_TYPE24753; t102184.s1.value.structure_type24753 = &t102185; /* x185152 stalin.sc:25683:888584 */ t102183.s0.tag = STRUCTURE_TYPE24753; t102183.s0.value.structure_type24753 = &t102184; /* x185153 stalin.sc:25683:888584 */ t102183.s1.tag = NULL_TYPE; /* x185154 stalin.sc:25683:888584 */ t102179.s1.tag = STRUCTURE_TYPE24753; t102179.s1.value.structure_type24753 = &t102183; /* x185155 stalin.sc:25683:888584 */ t102178.s1.tag = STRUCTURE_TYPE24753; t102178.s1.value.structure_type24753 = &t102179; /* x185156 stalin.sc:25683:888584 */ t102177.s0.tag = STRUCTURE_TYPE24753; t102177.s0.value.structure_type24753 = &t102178; /* x185157 stalin.sc:25683:888584 */ t102188.s0.tag = EXTERNAL_SYMBOL_TYPE; t102188.s0.value.external_symbol_type = q331; /* x185158 stalin.sc:25683:888584 */ t102190.s0.tag = EXTERNAL_SYMBOL_TYPE; t102190.s0.value.external_symbol_type = q335; /* x185159 stalin.sc:25683:888584 */ t102192.s0.tag = EXTERNAL_SYMBOL_TYPE; t102192.s0.value.external_symbol_type = q4; /* x185160 stalin.sc:25683:888584 */ t102194.s0.tag = EXTERNAL_SYMBOL_TYPE; t102194.s0.value.external_symbol_type = q2; /* x185161 stalin.sc:25683:888584 */ t102196.s0.tag = EXTERNAL_SYMBOL_TYPE; t102196.s0.value.external_symbol_type = q157; /* x185162 stalin.sc:25683:888584 */ t102197.s0.tag = EXTERNAL_SYMBOL_TYPE; t102197.s0.value.external_symbol_type = q297; /* x185163 stalin.sc:25683:888584 */ t102197.s1.tag = NULL_TYPE; /* x185164 stalin.sc:25683:888584 */ t102196.s1.tag = STRUCTURE_TYPE24753; t102196.s1.value.structure_type24753 = &t102197; /* x185165 stalin.sc:25683:888584 */ t102195.s0.tag = STRUCTURE_TYPE24753; t102195.s0.value.structure_type24753 = &t102196; /* x185166 stalin.sc:25683:888584 */ t102199.s0.tag = EXTERNAL_SYMBOL_TYPE; t102199.s0.value.external_symbol_type = q157; /* x185167 stalin.sc:25683:888584 */ t102200.s0.tag = ((unsigned)((unsigned char)'A'))<<2; /* x185168 stalin.sc:25683:888584 */ t102200.s1.tag = NULL_TYPE; /* x185169 stalin.sc:25683:888584 */ t102199.s1.tag = STRUCTURE_TYPE24753; t102199.s1.value.structure_type24753 = &t102200; /* x185170 stalin.sc:25683:888584 */ t102198.s0.tag = STRUCTURE_TYPE24753; t102198.s0.value.structure_type24753 = &t102199; /* x185171 stalin.sc:25683:888584 */ t102198.s1.tag = NULL_TYPE; /* x185172 stalin.sc:25683:888584 */ t102195.s1.tag = STRUCTURE_TYPE24753; t102195.s1.value.structure_type24753 = &t102198; /* x185173 stalin.sc:25683:888584 */ t102194.s1.tag = STRUCTURE_TYPE24753; t102194.s1.value.structure_type24753 = &t102195; /* x185174 stalin.sc:25683:888584 */ t102193.s0.tag = STRUCTURE_TYPE24753; t102193.s0.value.structure_type24753 = &t102194; /* x185175 stalin.sc:25683:888584 */ t102201.s0.tag = FIXNUM_TYPE; t102201.s0.value.fixnum_type = 10; /* x185176 stalin.sc:25683:888584 */ t102201.s1.tag = NULL_TYPE; /* x185177 stalin.sc:25683:888584 */ t102193.s1.tag = STRUCTURE_TYPE24753; t102193.s1.value.structure_type24753 = &t102201; /* x185178 stalin.sc:25683:888584 */ t102192.s1.tag = STRUCTURE_TYPE24753; t102192.s1.value.structure_type24753 = &t102193; /* x185179 stalin.sc:25683:888584 */ t102191.s0.tag = STRUCTURE_TYPE24753; t102191.s0.value.structure_type24753 = &t102192; /* x185180 stalin.sc:25683:888584 */ t102191.s1.tag = NULL_TYPE; /* x185181 stalin.sc:25683:888584 */ t102190.s1.tag = STRUCTURE_TYPE24753; t102190.s1.value.structure_type24753 = &t102191; /* x185182 stalin.sc:25683:888584 */ t102189.s0.tag = STRUCTURE_TYPE24753; t102189.s0.value.structure_type24753 = &t102190; /* x185183 stalin.sc:25683:888584 */ t102189.s1.tag = NULL_TYPE; /* x185184 stalin.sc:25683:888584 */ t102188.s1.tag = STRUCTURE_TYPE24753; t102188.s1.value.structure_type24753 = &t102189; /* x185185 stalin.sc:25683:888584 */ t102187.s0.tag = STRUCTURE_TYPE24753; t102187.s0.value.structure_type24753 = &t102188; /* x185186 stalin.sc:25683:888584 */ t102187.s1.tag = NULL_TYPE; /* x185187 stalin.sc:25683:888584 */ t102177.s1.tag = STRUCTURE_TYPE24753; t102177.s1.value.structure_type24753 = &t102187; /* x185188 stalin.sc:25683:888584 */ t102176.s0.tag = STRUCTURE_TYPE24753; t102176.s0.value.structure_type24753 = &t102177; /* x185189 stalin.sc:25683:888584 */ t102203.s0.tag = EXTERNAL_SYMBOL_TYPE; t102203.s0.value.external_symbol_type = q95; /* x185190 stalin.sc:25683:888584 */ t102204.s0.tag = FALSE_TYPE; /* x185191 stalin.sc:25683:888584 */ t102204.s1.tag = NULL_TYPE; /* x185192 stalin.sc:25683:888584 */ t102203.s1.tag = STRUCTURE_TYPE24753; t102203.s1.value.structure_type24753 = &t102204; /* x185193 stalin.sc:25683:888584 */ t102202.s0.tag = STRUCTURE_TYPE24753; t102202.s0.value.structure_type24753 = &t102203; /* x185194 stalin.sc:25683:888584 */ t102202.s1.tag = NULL_TYPE; /* x185195 stalin.sc:25683:888584 */ t102176.s1.tag = STRUCTURE_TYPE24753; t102176.s1.value.structure_type24753 = &t102202; /* x185196 stalin.sc:25683:888584 */ t102150.s1.tag = STRUCTURE_TYPE24753; t102150.s1.value.structure_type24753 = &t102176; /* x185197 stalin.sc:25683:888584 */ t102134.s1.tag = STRUCTURE_TYPE24753; t102134.s1.value.structure_type24753 = &t102150; /* x185198 stalin.sc:25683:888584 */ t102133.s1.tag = STRUCTURE_TYPE24753; t102133.s1.value.structure_type24753 = &t102134; /* x185199 stalin.sc:25683:888584 */ t102132.s0.tag = STRUCTURE_TYPE24753; t102132.s0.value.structure_type24753 = &t102133; /* x185200 stalin.sc:25683:888584 */ t102132.s1.tag = NULL_TYPE; /* x185201 stalin.sc:25683:888584 */ t102125.s1.tag = STRUCTURE_TYPE24753; t102125.s1.value.structure_type24753 = &t102132; /* x185202 stalin.sc:25683:888584 */ t102118.s1.tag = STRUCTURE_TYPE24753; t102118.s1.value.structure_type24753 = &t102125; /* x185203 stalin.sc:25683:888584 */ t102117.s1.tag = STRUCTURE_TYPE24753; t102117.s1.value.structure_type24753 = &t102118; /* x185204 stalin.sc:25683:888584 */ t102116.s0.tag = STRUCTURE_TYPE24753; t102116.s0.value.structure_type24753 = &t102117; /* x185205 stalin.sc:25683:888584 */ t102116.s1.tag = NULL_TYPE; /* x185206 stalin.sc:25683:888584 */ t102115.s1.tag = STRUCTURE_TYPE24753; t102115.s1.value.structure_type24753 = &t102116; /* x185207 stalin.sc:25683:888584 */ t102111.s1.tag = STRUCTURE_TYPE24753; t102111.s1.value.structure_type24753 = &t102115; /* x185208 stalin.sc:25683:888584 */ t102110.s1.tag = STRUCTURE_TYPE24753; t102110.s1.value.structure_type24753 = &t102111; /* x185209 stalin.sc:25683:888584 */ t102109.s0.tag = STRUCTURE_TYPE24753; t102109.s0.value.structure_type24753 = &t102110; /* x185210 stalin.sc:25683:888584 */ t102109.s1.tag = NULL_TYPE; /* x185211 stalin.sc:25683:888584 */ t102105.s1.tag = STRUCTURE_TYPE24753; t102105.s1.value.structure_type24753 = &t102109; /* x185212 stalin.sc:25683:888584 */ t102104.s0.tag = STRUCTURE_TYPE24753; t102104.s0.value.structure_type24753 = &t102105; /* x185213 stalin.sc:25683:888584 */ t102206.s0.tag = EXTERNAL_SYMBOL_TYPE; t102206.s0.value.external_symbol_type = q95; /* x185214 stalin.sc:25683:888584 */ t102207.s0.tag = FALSE_TYPE; /* x185215 stalin.sc:25683:888584 */ t102207.s1.tag = NULL_TYPE; /* x185216 stalin.sc:25683:888584 */ t102206.s1.tag = STRUCTURE_TYPE24753; t102206.s1.value.structure_type24753 = &t102207; /* x185217 stalin.sc:25683:888584 */ t102205.s0.tag = STRUCTURE_TYPE24753; t102205.s0.value.structure_type24753 = &t102206; /* x185218 stalin.sc:25683:888584 */ t102205.s1.tag = NULL_TYPE; /* x185219 stalin.sc:25683:888584 */ t102104.s1.tag = STRUCTURE_TYPE24753; t102104.s1.value.structure_type24753 = &t102205; /* x185220 stalin.sc:25683:888584 */ t102009.s1.tag = STRUCTURE_TYPE24753; t102009.s1.value.structure_type24753 = &t102104; /* x185221 stalin.sc:25683:888584 */ t101985.s1.tag = STRUCTURE_TYPE24753; t101985.s1.value.structure_type24753 = &t102009; /* x185222 stalin.sc:25683:888584 */ t101961.s1.tag = STRUCTURE_TYPE24753; t101961.s1.value.structure_type24753 = &t101985; /* x185223 stalin.sc:25683:888584 */ t101947.s1.tag = STRUCTURE_TYPE24753; t101947.s1.value.structure_type24753 = &t101961; /* x185224 stalin.sc:25683:888584 */ t101946.s1.tag = STRUCTURE_TYPE24753; t101946.s1.value.structure_type24753 = &t101947; /* x185225 stalin.sc:25683:888584 */ t101945.s0.tag = STRUCTURE_TYPE24753; t101945.s0.value.structure_type24753 = &t101946; /* x185226 stalin.sc:25683:888584 */ t101945.s1.tag = NULL_TYPE; /* x185227 stalin.sc:25683:888584 */ t101938.s1.tag = STRUCTURE_TYPE24753; t101938.s1.value.structure_type24753 = &t101945; /* x185228 stalin.sc:25683:888584 */ t101931.s1.tag = STRUCTURE_TYPE24753; t101931.s1.value.structure_type24753 = &t101938; /* x185229 stalin.sc:25683:888584 */ t101930.s1.tag = STRUCTURE_TYPE24753; t101930.s1.value.structure_type24753 = &t101931; /* x185230 stalin.sc:25683:888584 */ t101929.s0.tag = STRUCTURE_TYPE24753; t101929.s0.value.structure_type24753 = &t101930; /* x185231 stalin.sc:25683:888584 */ t101929.s1.tag = NULL_TYPE; /* x185232 stalin.sc:25683:888584 */ t101928.s1.tag = STRUCTURE_TYPE24753; t101928.s1.value.structure_type24753 = &t101929; /* x185233 stalin.sc:25683:888584 */ t101924.s1.tag = STRUCTURE_TYPE24753; t101924.s1.value.structure_type24753 = &t101928; /* x185234 stalin.sc:25683:888584 */ t101923.s1.tag = STRUCTURE_TYPE24753; t101923.s1.value.structure_type24753 = &t101924; /* x185235 stalin.sc:25683:888584 */ t101922.s0.tag = STRUCTURE_TYPE24753; t101922.s0.value.structure_type24753 = &t101923; /* x185236 stalin.sc:25683:888584 */ t101922.s1.tag = NULL_TYPE; /* x185237 stalin.sc:25683:888584 */ t101912.s1.tag = STRUCTURE_TYPE24753; t101912.s1.value.structure_type24753 = &t101922; /* x185238 stalin.sc:25683:888584 */ t101911.s0.tag = STRUCTURE_TYPE24753; t101911.s0.value.structure_type24753 = &t101912; /* x185239 stalin.sc:25683:888584 */ t102209.s0.tag = EXTERNAL_SYMBOL_TYPE; t102209.s0.value.external_symbol_type = q95; /* x185240 stalin.sc:25683:888584 */ t102210.s0.tag = FALSE_TYPE; /* x185241 stalin.sc:25683:888584 */ t102210.s1.tag = NULL_TYPE; /* x185242 stalin.sc:25683:888584 */ t102209.s1.tag = STRUCTURE_TYPE24753; t102209.s1.value.structure_type24753 = &t102210; /* x185243 stalin.sc:25683:888584 */ t102208.s0.tag = STRUCTURE_TYPE24753; t102208.s0.value.structure_type24753 = &t102209; /* x185244 stalin.sc:25683:888584 */ t102208.s1.tag = NULL_TYPE; /* x185245 stalin.sc:25683:888584 */ t101911.s1.tag = STRUCTURE_TYPE24753; t101911.s1.value.structure_type24753 = &t102208; /* x185246 stalin.sc:25683:888584 */ t101616.s1.tag = STRUCTURE_TYPE24753; t101616.s1.value.structure_type24753 = &t101911; /* x185247 stalin.sc:25683:888584 */ t101452.s1.tag = STRUCTURE_TYPE24753; t101452.s1.value.structure_type24753 = &t101616; /* x185248 stalin.sc:25683:888584 */ t101295.s1.tag = STRUCTURE_TYPE24753; t101295.s1.value.structure_type24753 = &t101452; /* x185249 stalin.sc:25683:888584 */ t101294.s1.tag = STRUCTURE_TYPE24753; t101294.s1.value.structure_type24753 = &t101295; /* x185250 stalin.sc:25683:888584 */ t101293.s0.tag = STRUCTURE_TYPE24753; t101293.s0.value.structure_type24753 = &t101294; /* x185251 stalin.sc:25683:888584 */ t101293.s1.tag = NULL_TYPE; /* x185252 stalin.sc:25683:888584 */ t101286.s1.tag = STRUCTURE_TYPE24753; t101286.s1.value.structure_type24753 = &t101293; /* x185253 stalin.sc:25683:888584 */ t101279.s1.tag = STRUCTURE_TYPE24753; t101279.s1.value.structure_type24753 = &t101286; /* x185254 stalin.sc:25683:888584 */ t101278.s1.tag = STRUCTURE_TYPE24753; t101278.s1.value.structure_type24753 = &t101279; /* x185255 stalin.sc:25683:888584 */ t101277.s0.tag = STRUCTURE_TYPE24753; t101277.s0.value.structure_type24753 = &t101278; /* x185256 stalin.sc:25683:888584 */ t101277.s1.tag = NULL_TYPE; /* x185257 stalin.sc:25683:888584 */ t101276.s1.tag = STRUCTURE_TYPE24753; t101276.s1.value.structure_type24753 = &t101277; /* x185258 stalin.sc:25683:888584 */ t101272.s1.tag = STRUCTURE_TYPE24753; t101272.s1.value.structure_type24753 = &t101276; /* x185259 stalin.sc:25683:888584 */ t101271.s1.tag = STRUCTURE_TYPE24753; t101271.s1.value.structure_type24753 = &t101272; /* x185260 stalin.sc:25683:888584 */ t101270.s0.tag = STRUCTURE_TYPE24753; t101270.s0.value.structure_type24753 = &t101271; /* x185261 stalin.sc:25683:888584 */ t101270.s1.tag = NULL_TYPE; /* x185262 stalin.sc:25683:888584 */ t101266.s1.tag = STRUCTURE_TYPE24753; t101266.s1.value.structure_type24753 = &t101270; /* x185263 stalin.sc:25683:888584 */ t101265.s0.tag = STRUCTURE_TYPE24753; t101265.s0.value.structure_type24753 = &t101266; /* x185264 stalin.sc:25683:888584 */ t102213.s0.tag = EXTERNAL_SYMBOL_TYPE; t102213.s0.value.external_symbol_type = q263; /* x185265 stalin.sc:25683:888584 */ t102214.s0.tag = EXTERNAL_SYMBOL_TYPE; t102214.s0.value.external_symbol_type = q273; /* x185266 stalin.sc:25683:888584 */ t102215.s0.tag = ((unsigned)((unsigned char)'+'))<<2; /* x185267 stalin.sc:25683:888584 */ t102215.s1.tag = NULL_TYPE; /* x185268 stalin.sc:25683:888584 */ t102214.s1.tag = STRUCTURE_TYPE24753; t102214.s1.value.structure_type24753 = &t102215; /* x185269 stalin.sc:25683:888584 */ t102213.s1.tag = STRUCTURE_TYPE24753; t102213.s1.value.structure_type24753 = &t102214; /* x185270 stalin.sc:25683:888584 */ t102212.s0.tag = STRUCTURE_TYPE24753; t102212.s0.value.structure_type24753 = &t102213; /* x185271 stalin.sc:25683:888584 */ t102217.s0.tag = EXTERNAL_SYMBOL_TYPE; t102217.s0.value.external_symbol_type = q43; /* x185272 stalin.sc:25683:888584 */ t102219.s0.tag = EXTERNAL_SYMBOL_TYPE; t102219.s0.value.external_symbol_type = q120; /* x185273 stalin.sc:25683:888584 */ t102220.s0.tag = EXTERNAL_SYMBOL_TYPE; t102220.s0.value.external_symbol_type = q308; /* x185274 stalin.sc:25683:888584 */ t102221.s0.tag = EXTERNAL_SYMBOL_TYPE; t102221.s0.value.external_symbol_type = q330; /* x185275 stalin.sc:25683:888584 */ t102221.s1.tag = NULL_TYPE; /* x185276 stalin.sc:25683:888584 */ t102220.s1.tag = STRUCTURE_TYPE24753; t102220.s1.value.structure_type24753 = &t102221; /* x185277 stalin.sc:25683:888584 */ t102219.s1.tag = STRUCTURE_TYPE24753; t102219.s1.value.structure_type24753 = &t102220; /* x185278 stalin.sc:25683:888584 */ t102218.s0.tag = STRUCTURE_TYPE24753; t102218.s0.value.structure_type24753 = &t102219; /* x185279 stalin.sc:25683:888584 */ t102222.s0.tag = FALSE_TYPE; /* x185280 stalin.sc:25683:888584 */ t102224.s0.tag = EXTERNAL_SYMBOL_TYPE; t102224.s0.value.external_symbol_type = q242; /* x185281 stalin.sc:25683:888584 */ t102227.s0.tag = EXTERNAL_SYMBOL_TYPE; t102227.s0.value.external_symbol_type = q274; /* x185282 stalin.sc:25683:888584 */ t102229.s0.tag = EXTERNAL_SYMBOL_TYPE; t102229.s0.value.external_symbol_type = q163; /* x185283 stalin.sc:25683:888584 */ t102230.s0.tag = EXTERNAL_SYMBOL_TYPE; t102230.s0.value.external_symbol_type = q161; /* x185284 stalin.sc:25683:888584 */ t102231.s0.tag = EXTERNAL_SYMBOL_TYPE; t102231.s0.value.external_symbol_type = q308; /* x185285 stalin.sc:25683:888584 */ t102231.s1.tag = NULL_TYPE; /* x185286 stalin.sc:25683:888584 */ t102230.s1.tag = STRUCTURE_TYPE24753; t102230.s1.value.structure_type24753 = &t102231; /* x185287 stalin.sc:25683:888584 */ t102229.s1.tag = STRUCTURE_TYPE24753; t102229.s1.value.structure_type24753 = &t102230; /* x185288 stalin.sc:25683:888584 */ t102228.s0.tag = STRUCTURE_TYPE24753; t102228.s0.value.structure_type24753 = &t102229; /* x185289 stalin.sc:25683:888584 */ t102228.s1.tag = NULL_TYPE; /* x185290 stalin.sc:25683:888584 */ t102227.s1.tag = STRUCTURE_TYPE24753; t102227.s1.value.structure_type24753 = &t102228; /* x185291 stalin.sc:25683:888584 */ t102226.s0.tag = STRUCTURE_TYPE24753; t102226.s0.value.structure_type24753 = &t102227; /* x185292 stalin.sc:25683:888584 */ t102226.s1.tag = NULL_TYPE; /* x185293 stalin.sc:25683:888584 */ t102225.s0.tag = STRUCTURE_TYPE24753; t102225.s0.value.structure_type24753 = &t102226; /* x185294 stalin.sc:25683:888584 */ t102233.s0.tag = EXTERNAL_SYMBOL_TYPE; t102233.s0.value.external_symbol_type = q42; /* x185295 stalin.sc:25683:888584 */ t102234.s0.tag = EXTERNAL_SYMBOL_TYPE; t102234.s0.value.external_symbol_type = q308; /* x185296 stalin.sc:25683:888584 */ t102236.s0.tag = EXTERNAL_SYMBOL_TYPE; t102236.s0.value.external_symbol_type = q4; /* x185297 stalin.sc:25683:888584 */ t102237.s0.tag = EXTERNAL_SYMBOL_TYPE; t102237.s0.value.external_symbol_type = q308; /* x185298 stalin.sc:25683:888584 */ t102238.s0.tag = FIXNUM_TYPE; t102238.s0.value.fixnum_type = 1; /* x185299 stalin.sc:25683:888584 */ t102238.s1.tag = NULL_TYPE; /* x185300 stalin.sc:25683:888584 */ t102237.s1.tag = STRUCTURE_TYPE24753; t102237.s1.value.structure_type24753 = &t102238; /* x185301 stalin.sc:25683:888584 */ t102236.s1.tag = STRUCTURE_TYPE24753; t102236.s1.value.structure_type24753 = &t102237; /* x185302 stalin.sc:25683:888584 */ t102235.s0.tag = STRUCTURE_TYPE24753; t102235.s0.value.structure_type24753 = &t102236; /* x185303 stalin.sc:25683:888584 */ t102235.s1.tag = NULL_TYPE; /* x185304 stalin.sc:25683:888584 */ t102234.s1.tag = STRUCTURE_TYPE24753; t102234.s1.value.structure_type24753 = &t102235; /* x185305 stalin.sc:25683:888584 */ t102233.s1.tag = STRUCTURE_TYPE24753; t102233.s1.value.structure_type24753 = &t102234; /* x185306 stalin.sc:25683:888584 */ t102232.s0.tag = STRUCTURE_TYPE24753; t102232.s0.value.structure_type24753 = &t102233; /* x185307 stalin.sc:25683:888584 */ t102240.s0.tag = EXTERNAL_SYMBOL_TYPE; t102240.s0.value.external_symbol_type = q240; /* x185308 stalin.sc:25683:888584 */ t102243.s0.tag = EXTERNAL_SYMBOL_TYPE; t102243.s0.value.external_symbol_type = q269; /* x185309 stalin.sc:25683:888584 */ t102244.s0.tag = EXTERNAL_SYMBOL_TYPE; t102244.s0.value.external_symbol_type = q274; /* x185310 stalin.sc:25683:888584 */ t102244.s1.tag = NULL_TYPE; /* x185311 stalin.sc:25683:888584 */ t102243.s1.tag = STRUCTURE_TYPE24753; t102243.s1.value.structure_type24753 = &t102244; /* x185312 stalin.sc:25683:888584 */ t102242.s0.tag = STRUCTURE_TYPE24753; t102242.s0.value.structure_type24753 = &t102243; /* x185313 stalin.sc:25683:888584 */ t102246.s0.tag = EXTERNAL_SYMBOL_TYPE; t102246.s0.value.external_symbol_type = q338; /* x185314 stalin.sc:25683:888584 */ t102248.s0.tag = EXTERNAL_SYMBOL_TYPE; t102248.s0.value.external_symbol_type = q2; /* x185315 stalin.sc:25683:888584 */ t102250.s0.tag = EXTERNAL_SYMBOL_TYPE; t102250.s0.value.external_symbol_type = q157; /* x185316 stalin.sc:25683:888584 */ t102251.s0.tag = EXTERNAL_SYMBOL_TYPE; t102251.s0.value.external_symbol_type = q274; /* x185317 stalin.sc:25683:888584 */ t102251.s1.tag = NULL_TYPE; /* x185318 stalin.sc:25683:888584 */ t102250.s1.tag = STRUCTURE_TYPE24753; t102250.s1.value.structure_type24753 = &t102251; /* x185319 stalin.sc:25683:888584 */ t102249.s0.tag = STRUCTURE_TYPE24753; t102249.s0.value.structure_type24753 = &t102250; /* x185320 stalin.sc:25683:888584 */ t102253.s0.tag = EXTERNAL_SYMBOL_TYPE; t102253.s0.value.external_symbol_type = q157; /* x185321 stalin.sc:25683:888584 */ t102254.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x185322 stalin.sc:25683:888584 */ t102254.s1.tag = NULL_TYPE; /* x185323 stalin.sc:25683:888584 */ t102253.s1.tag = STRUCTURE_TYPE24753; t102253.s1.value.structure_type24753 = &t102254; /* x185324 stalin.sc:25683:888584 */ t102252.s0.tag = STRUCTURE_TYPE24753; t102252.s0.value.structure_type24753 = &t102253; /* x185325 stalin.sc:25683:888584 */ t102252.s1.tag = NULL_TYPE; /* x185326 stalin.sc:25683:888584 */ t102249.s1.tag = STRUCTURE_TYPE24753; t102249.s1.value.structure_type24753 = &t102252; /* x185327 stalin.sc:25683:888584 */ t102248.s1.tag = STRUCTURE_TYPE24753; t102248.s1.value.structure_type24753 = &t102249; /* x185328 stalin.sc:25683:888584 */ t102247.s0.tag = STRUCTURE_TYPE24753; t102247.s0.value.structure_type24753 = &t102248; /* x185329 stalin.sc:25683:888584 */ t102247.s1.tag = NULL_TYPE; /* x185330 stalin.sc:25683:888584 */ t102246.s1.tag = STRUCTURE_TYPE24753; t102246.s1.value.structure_type24753 = &t102247; /* x185331 stalin.sc:25683:888584 */ t102245.s0.tag = STRUCTURE_TYPE24753; t102245.s0.value.structure_type24753 = &t102246; /* x185332 stalin.sc:25683:888584 */ t102245.s1.tag = NULL_TYPE; /* x185333 stalin.sc:25683:888584 */ t102242.s1.tag = STRUCTURE_TYPE24753; t102242.s1.value.structure_type24753 = &t102245; /* x185334 stalin.sc:25683:888584 */ t102241.s0.tag = STRUCTURE_TYPE24753; t102241.s0.value.structure_type24753 = &t102242; /* x185335 stalin.sc:25683:888584 */ t102257.s0.tag = EXTERNAL_SYMBOL_TYPE; t102257.s0.value.external_symbol_type = q263; /* x185336 stalin.sc:25683:888584 */ t102258.s0.tag = EXTERNAL_SYMBOL_TYPE; t102258.s0.value.external_symbol_type = q274; /* x185337 stalin.sc:25683:888584 */ t102259.s0.tag = ((unsigned)((unsigned char)'.'))<<2; /* x185338 stalin.sc:25683:888584 */ t102259.s1.tag = NULL_TYPE; /* x185339 stalin.sc:25683:888584 */ t102258.s1.tag = STRUCTURE_TYPE24753; t102258.s1.value.structure_type24753 = &t102259; /* x185340 stalin.sc:25683:888584 */ t102257.s1.tag = STRUCTURE_TYPE24753; t102257.s1.value.structure_type24753 = &t102258; /* x185341 stalin.sc:25683:888584 */ t102256.s0.tag = STRUCTURE_TYPE24753; t102256.s0.value.structure_type24753 = &t102257; /* x185342 stalin.sc:25683:888584 */ t102261.s0.tag = EXTERNAL_SYMBOL_TYPE; t102261.s0.value.external_symbol_type = q43; /* x185343 stalin.sc:25683:888584 */ t102263.s0.tag = EXTERNAL_SYMBOL_TYPE; t102263.s0.value.external_symbol_type = q120; /* x185344 stalin.sc:25683:888584 */ t102264.s0.tag = EXTERNAL_SYMBOL_TYPE; t102264.s0.value.external_symbol_type = q308; /* x185345 stalin.sc:25683:888584 */ t102265.s0.tag = EXTERNAL_SYMBOL_TYPE; t102265.s0.value.external_symbol_type = q330; /* x185346 stalin.sc:25683:888584 */ t102265.s1.tag = NULL_TYPE; /* x185347 stalin.sc:25683:888584 */ t102264.s1.tag = STRUCTURE_TYPE24753; t102264.s1.value.structure_type24753 = &t102265; /* x185348 stalin.sc:25683:888584 */ t102263.s1.tag = STRUCTURE_TYPE24753; t102263.s1.value.structure_type24753 = &t102264; /* x185349 stalin.sc:25683:888584 */ t102262.s0.tag = STRUCTURE_TYPE24753; t102262.s0.value.structure_type24753 = &t102263; /* x185350 stalin.sc:25683:888584 */ t102266.s0.tag = FALSE_TYPE; /* x185351 stalin.sc:25683:888584 */ t102268.s0.tag = EXTERNAL_SYMBOL_TYPE; t102268.s0.value.external_symbol_type = q242; /* x185352 stalin.sc:25683:888584 */ t102271.s0.tag = EXTERNAL_SYMBOL_TYPE; t102271.s0.value.external_symbol_type = q275; /* x185353 stalin.sc:25683:888584 */ t102273.s0.tag = EXTERNAL_SYMBOL_TYPE; t102273.s0.value.external_symbol_type = q163; /* x185354 stalin.sc:25683:888584 */ t102274.s0.tag = EXTERNAL_SYMBOL_TYPE; t102274.s0.value.external_symbol_type = q161; /* x185355 stalin.sc:25683:888584 */ t102275.s0.tag = EXTERNAL_SYMBOL_TYPE; t102275.s0.value.external_symbol_type = q308; /* x185356 stalin.sc:25683:888584 */ t102275.s1.tag = NULL_TYPE; /* x185357 stalin.sc:25683:888584 */ t102274.s1.tag = STRUCTURE_TYPE24753; t102274.s1.value.structure_type24753 = &t102275; /* x185358 stalin.sc:25683:888584 */ t102273.s1.tag = STRUCTURE_TYPE24753; t102273.s1.value.structure_type24753 = &t102274; /* x185359 stalin.sc:25683:888584 */ t102272.s0.tag = STRUCTURE_TYPE24753; t102272.s0.value.structure_type24753 = &t102273; /* x185360 stalin.sc:25683:888584 */ t102272.s1.tag = NULL_TYPE; /* x185361 stalin.sc:25683:888584 */ t102271.s1.tag = STRUCTURE_TYPE24753; t102271.s1.value.structure_type24753 = &t102272; /* x185362 stalin.sc:25683:888584 */ t102270.s0.tag = STRUCTURE_TYPE24753; t102270.s0.value.structure_type24753 = &t102271; /* x185363 stalin.sc:25683:888584 */ t102270.s1.tag = NULL_TYPE; /* x185364 stalin.sc:25683:888584 */ t102269.s0.tag = STRUCTURE_TYPE24753; t102269.s0.value.structure_type24753 = &t102270; /* x185365 stalin.sc:25683:888584 */ t102277.s0.tag = EXTERNAL_SYMBOL_TYPE; t102277.s0.value.external_symbol_type = q42; /* x185366 stalin.sc:25683:888584 */ t102278.s0.tag = EXTERNAL_SYMBOL_TYPE; t102278.s0.value.external_symbol_type = q308; /* x185367 stalin.sc:25683:888584 */ t102280.s0.tag = EXTERNAL_SYMBOL_TYPE; t102280.s0.value.external_symbol_type = q4; /* x185368 stalin.sc:25683:888584 */ t102281.s0.tag = EXTERNAL_SYMBOL_TYPE; t102281.s0.value.external_symbol_type = q308; /* x185369 stalin.sc:25683:888584 */ t102282.s0.tag = FIXNUM_TYPE; t102282.s0.value.fixnum_type = 1; /* x185370 stalin.sc:25683:888584 */ t102282.s1.tag = NULL_TYPE; /* x185371 stalin.sc:25683:888584 */ t102281.s1.tag = STRUCTURE_TYPE24753; t102281.s1.value.structure_type24753 = &t102282; /* x185372 stalin.sc:25683:888584 */ t102280.s1.tag = STRUCTURE_TYPE24753; t102280.s1.value.structure_type24753 = &t102281; /* x185373 stalin.sc:25683:888584 */ t102279.s0.tag = STRUCTURE_TYPE24753; t102279.s0.value.structure_type24753 = &t102280; /* x185374 stalin.sc:25683:888584 */ t102279.s1.tag = NULL_TYPE; /* x185375 stalin.sc:25683:888584 */ t102278.s1.tag = STRUCTURE_TYPE24753; t102278.s1.value.structure_type24753 = &t102279; /* x185376 stalin.sc:25683:888584 */ t102277.s1.tag = STRUCTURE_TYPE24753; t102277.s1.value.structure_type24753 = &t102278; /* x185377 stalin.sc:25683:888584 */ t102276.s0.tag = STRUCTURE_TYPE24753; t102276.s0.value.structure_type24753 = &t102277; /* x185378 stalin.sc:25683:888584 */ t102284.s0.tag = EXTERNAL_SYMBOL_TYPE; t102284.s0.value.external_symbol_type = q43; /* x185379 stalin.sc:25683:888584 */ t102286.s0.tag = EXTERNAL_SYMBOL_TYPE; t102286.s0.value.external_symbol_type = q269; /* x185380 stalin.sc:25683:888584 */ t102287.s0.tag = EXTERNAL_SYMBOL_TYPE; t102287.s0.value.external_symbol_type = q275; /* x185381 stalin.sc:25683:888584 */ t102287.s1.tag = NULL_TYPE; /* x185382 stalin.sc:25683:888584 */ t102286.s1.tag = STRUCTURE_TYPE24753; t102286.s1.value.structure_type24753 = &t102287; /* x185383 stalin.sc:25683:888584 */ t102285.s0.tag = STRUCTURE_TYPE24753; t102285.s0.value.structure_type24753 = &t102286; /* x185384 stalin.sc:25683:888584 */ t102289.s0.tag = EXTERNAL_SYMBOL_TYPE; t102289.s0.value.external_symbol_type = q336; /* x185385 stalin.sc:25683:888584 */ t102291.s0.tag = EXTERNAL_SYMBOL_TYPE; t102291.s0.value.external_symbol_type = q131; /* x185386 stalin.sc:25683:888584 */ t102293.s0.tag = EXTERNAL_SYMBOL_TYPE; t102293.s0.value.external_symbol_type = q2; /* x185387 stalin.sc:25683:888584 */ t102295.s0.tag = EXTERNAL_SYMBOL_TYPE; t102295.s0.value.external_symbol_type = q157; /* x185388 stalin.sc:25683:888584 */ t102296.s0.tag = EXTERNAL_SYMBOL_TYPE; t102296.s0.value.external_symbol_type = q275; /* x185389 stalin.sc:25683:888584 */ t102296.s1.tag = NULL_TYPE; /* x185390 stalin.sc:25683:888584 */ t102295.s1.tag = STRUCTURE_TYPE24753; t102295.s1.value.structure_type24753 = &t102296; /* x185391 stalin.sc:25683:888584 */ t102294.s0.tag = STRUCTURE_TYPE24753; t102294.s0.value.structure_type24753 = &t102295; /* x185392 stalin.sc:25683:888584 */ t102298.s0.tag = EXTERNAL_SYMBOL_TYPE; t102298.s0.value.external_symbol_type = q157; /* x185393 stalin.sc:25683:888584 */ t102299.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x185394 stalin.sc:25683:888584 */ t102299.s1.tag = NULL_TYPE; /* x185395 stalin.sc:25683:888584 */ t102298.s1.tag = STRUCTURE_TYPE24753; t102298.s1.value.structure_type24753 = &t102299; /* x185396 stalin.sc:25683:888584 */ t102297.s0.tag = STRUCTURE_TYPE24753; t102297.s0.value.structure_type24753 = &t102298; /* x185397 stalin.sc:25683:888584 */ t102297.s1.tag = NULL_TYPE; /* x185398 stalin.sc:25683:888584 */ t102294.s1.tag = STRUCTURE_TYPE24753; t102294.s1.value.structure_type24753 = &t102297; /* x185399 stalin.sc:25683:888584 */ t102293.s1.tag = STRUCTURE_TYPE24753; t102293.s1.value.structure_type24753 = &t102294; /* x185400 stalin.sc:25683:888584 */ t102292.s0.tag = STRUCTURE_TYPE24753; t102292.s0.value.structure_type24753 = &t102293; /* x185401 stalin.sc:25683:888584 */ t102300.s0.tag = FLONUM_TYPE; t102300.s0.value.flonum_type = 1.0e1; /* x185402 stalin.sc:25683:888584 */ t102300.s1.tag = NULL_TYPE; /* x185403 stalin.sc:25683:888584 */ t102292.s1.tag = STRUCTURE_TYPE24753; t102292.s1.value.structure_type24753 = &t102300; /* x185404 stalin.sc:25683:888584 */ t102291.s1.tag = STRUCTURE_TYPE24753; t102291.s1.value.structure_type24753 = &t102292; /* x185405 stalin.sc:25683:888584 */ t102290.s0.tag = STRUCTURE_TYPE24753; t102290.s0.value.structure_type24753 = &t102291; /* x185406 stalin.sc:25683:888584 */ t102301.s0.tag = FLONUM_TYPE; t102301.s0.value.flonum_type = 1.0e2; /* x185407 stalin.sc:25683:888584 */ t102301.s1.tag = NULL_TYPE; /* x185408 stalin.sc:25683:888584 */ t102290.s1.tag = STRUCTURE_TYPE24753; t102290.s1.value.structure_type24753 = &t102301; /* x185409 stalin.sc:25683:888584 */ t102289.s1.tag = STRUCTURE_TYPE24753; t102289.s1.value.structure_type24753 = &t102290; /* x185410 stalin.sc:25683:888584 */ t102288.s0.tag = STRUCTURE_TYPE24753; t102288.s0.value.structure_type24753 = &t102289; /* x185411 stalin.sc:25683:888584 */ t102302.s0.tag = FALSE_TYPE; /* x185412 stalin.sc:25683:888584 */ t102302.s1.tag = NULL_TYPE; /* x185413 stalin.sc:25683:888584 */ t102288.s1.tag = STRUCTURE_TYPE24753; t102288.s1.value.structure_type24753 = &t102302; /* x185414 stalin.sc:25683:888584 */ t102285.s1.tag = STRUCTURE_TYPE24753; t102285.s1.value.structure_type24753 = &t102288; /* x185415 stalin.sc:25683:888584 */ t102284.s1.tag = STRUCTURE_TYPE24753; t102284.s1.value.structure_type24753 = &t102285; /* x185416 stalin.sc:25683:888584 */ t102283.s0.tag = STRUCTURE_TYPE24753; t102283.s0.value.structure_type24753 = &t102284; /* x185417 stalin.sc:25683:888584 */ t102283.s1.tag = NULL_TYPE; /* x185418 stalin.sc:25683:888584 */ t102276.s1.tag = STRUCTURE_TYPE24753; t102276.s1.value.structure_type24753 = &t102283; /* x185419 stalin.sc:25683:888584 */ t102269.s1.tag = STRUCTURE_TYPE24753; t102269.s1.value.structure_type24753 = &t102276; /* x185420 stalin.sc:25683:888584 */ t102268.s1.tag = STRUCTURE_TYPE24753; t102268.s1.value.structure_type24753 = &t102269; /* x185421 stalin.sc:25683:888584 */ t102267.s0.tag = STRUCTURE_TYPE24753; t102267.s0.value.structure_type24753 = &t102268; /* x185422 stalin.sc:25683:888584 */ t102267.s1.tag = NULL_TYPE; /* x185423 stalin.sc:25683:888584 */ t102266.s1.tag = STRUCTURE_TYPE24753; t102266.s1.value.structure_type24753 = &t102267; /* x185424 stalin.sc:25683:888584 */ t102262.s1.tag = STRUCTURE_TYPE24753; t102262.s1.value.structure_type24753 = &t102266; /* x185425 stalin.sc:25683:888584 */ t102261.s1.tag = STRUCTURE_TYPE24753; t102261.s1.value.structure_type24753 = &t102262; /* x185426 stalin.sc:25683:888584 */ t102260.s0.tag = STRUCTURE_TYPE24753; t102260.s0.value.structure_type24753 = &t102261; /* x185427 stalin.sc:25683:888584 */ t102260.s1.tag = NULL_TYPE; /* x185428 stalin.sc:25683:888584 */ t102256.s1.tag = STRUCTURE_TYPE24753; t102256.s1.value.structure_type24753 = &t102260; /* x185429 stalin.sc:25683:888584 */ t102255.s0.tag = STRUCTURE_TYPE24753; t102255.s0.value.structure_type24753 = &t102256; /* x185430 stalin.sc:25683:888584 */ t102304.s0.tag = EXTERNAL_SYMBOL_TYPE; t102304.s0.value.external_symbol_type = q95; /* x185431 stalin.sc:25683:888584 */ t102305.s0.tag = FALSE_TYPE; /* x185432 stalin.sc:25683:888584 */ t102305.s1.tag = NULL_TYPE; /* x185433 stalin.sc:25683:888584 */ t102304.s1.tag = STRUCTURE_TYPE24753; t102304.s1.value.structure_type24753 = &t102305; /* x185434 stalin.sc:25683:888584 */ t102303.s0.tag = STRUCTURE_TYPE24753; t102303.s0.value.structure_type24753 = &t102304; /* x185435 stalin.sc:25683:888584 */ t102303.s1.tag = NULL_TYPE; /* x185436 stalin.sc:25683:888584 */ t102255.s1.tag = STRUCTURE_TYPE24753; t102255.s1.value.structure_type24753 = &t102303; /* x185437 stalin.sc:25683:888584 */ t102241.s1.tag = STRUCTURE_TYPE24753; t102241.s1.value.structure_type24753 = &t102255; /* x185438 stalin.sc:25683:888584 */ t102240.s1.tag = STRUCTURE_TYPE24753; t102240.s1.value.structure_type24753 = &t102241; /* x185439 stalin.sc:25683:888584 */ t102239.s0.tag = STRUCTURE_TYPE24753; t102239.s0.value.structure_type24753 = &t102240; /* x185440 stalin.sc:25683:888584 */ t102239.s1.tag = NULL_TYPE; /* x185441 stalin.sc:25683:888584 */ t102232.s1.tag = STRUCTURE_TYPE24753; t102232.s1.value.structure_type24753 = &t102239; /* x185442 stalin.sc:25683:888584 */ t102225.s1.tag = STRUCTURE_TYPE24753; t102225.s1.value.structure_type24753 = &t102232; /* x185443 stalin.sc:25683:888584 */ t102224.s1.tag = STRUCTURE_TYPE24753; t102224.s1.value.structure_type24753 = &t102225; /* x185444 stalin.sc:25683:888584 */ t102223.s0.tag = STRUCTURE_TYPE24753; t102223.s0.value.structure_type24753 = &t102224; /* x185445 stalin.sc:25683:888584 */ t102223.s1.tag = NULL_TYPE; /* x185446 stalin.sc:25683:888584 */ t102222.s1.tag = STRUCTURE_TYPE24753; t102222.s1.value.structure_type24753 = &t102223; /* x185447 stalin.sc:25683:888584 */ t102218.s1.tag = STRUCTURE_TYPE24753; t102218.s1.value.structure_type24753 = &t102222; /* x185448 stalin.sc:25683:888584 */ t102217.s1.tag = STRUCTURE_TYPE24753; t102217.s1.value.structure_type24753 = &t102218; /* x185449 stalin.sc:25683:888584 */ t102216.s0.tag = STRUCTURE_TYPE24753; t102216.s0.value.structure_type24753 = &t102217; /* x185450 stalin.sc:25683:888584 */ t102216.s1.tag = NULL_TYPE; /* x185451 stalin.sc:25683:888584 */ t102212.s1.tag = STRUCTURE_TYPE24753; t102212.s1.value.structure_type24753 = &t102216; /* x185452 stalin.sc:25683:888584 */ t102211.s0.tag = STRUCTURE_TYPE24753; t102211.s0.value.structure_type24753 = &t102212; /* x185453 stalin.sc:25683:888584 */ t102308.s0.tag = EXTERNAL_SYMBOL_TYPE; t102308.s0.value.external_symbol_type = q263; /* x185454 stalin.sc:25683:888584 */ t102309.s0.tag = EXTERNAL_SYMBOL_TYPE; t102309.s0.value.external_symbol_type = q273; /* x185455 stalin.sc:25683:888584 */ t102310.s0.tag = ((unsigned)((unsigned char)'-'))<<2; /* x185456 stalin.sc:25683:888584 */ t102310.s1.tag = NULL_TYPE; /* x185457 stalin.sc:25683:888584 */ t102309.s1.tag = STRUCTURE_TYPE24753; t102309.s1.value.structure_type24753 = &t102310; /* x185458 stalin.sc:25683:888584 */ t102308.s1.tag = STRUCTURE_TYPE24753; t102308.s1.value.structure_type24753 = &t102309; /* x185459 stalin.sc:25683:888584 */ t102307.s0.tag = STRUCTURE_TYPE24753; t102307.s0.value.structure_type24753 = &t102308; /* x185460 stalin.sc:25683:888584 */ t102312.s0.tag = EXTERNAL_SYMBOL_TYPE; t102312.s0.value.external_symbol_type = q43; /* x185461 stalin.sc:25683:888584 */ t102314.s0.tag = EXTERNAL_SYMBOL_TYPE; t102314.s0.value.external_symbol_type = q120; /* x185462 stalin.sc:25683:888584 */ t102315.s0.tag = EXTERNAL_SYMBOL_TYPE; t102315.s0.value.external_symbol_type = q308; /* x185463 stalin.sc:25683:888584 */ t102316.s0.tag = EXTERNAL_SYMBOL_TYPE; t102316.s0.value.external_symbol_type = q330; /* x185464 stalin.sc:25683:888584 */ t102316.s1.tag = NULL_TYPE; /* x185465 stalin.sc:25683:888584 */ t102315.s1.tag = STRUCTURE_TYPE24753; t102315.s1.value.structure_type24753 = &t102316; /* x185466 stalin.sc:25683:888584 */ t102314.s1.tag = STRUCTURE_TYPE24753; t102314.s1.value.structure_type24753 = &t102315; /* x185467 stalin.sc:25683:888584 */ t102313.s0.tag = STRUCTURE_TYPE24753; t102313.s0.value.structure_type24753 = &t102314; /* x185468 stalin.sc:25683:888584 */ t102317.s0.tag = FALSE_TYPE; /* x185469 stalin.sc:25683:888584 */ t102319.s0.tag = EXTERNAL_SYMBOL_TYPE; t102319.s0.value.external_symbol_type = q242; /* x185470 stalin.sc:25683:888584 */ t102322.s0.tag = EXTERNAL_SYMBOL_TYPE; t102322.s0.value.external_symbol_type = q274; /* x185471 stalin.sc:25683:888584 */ t102324.s0.tag = EXTERNAL_SYMBOL_TYPE; t102324.s0.value.external_symbol_type = q163; /* x185472 stalin.sc:25683:888584 */ t102325.s0.tag = EXTERNAL_SYMBOL_TYPE; t102325.s0.value.external_symbol_type = q161; /* x185473 stalin.sc:25683:888584 */ t102326.s0.tag = EXTERNAL_SYMBOL_TYPE; t102326.s0.value.external_symbol_type = q308; /* x185474 stalin.sc:25683:888584 */ t102326.s1.tag = NULL_TYPE; /* x185475 stalin.sc:25683:888584 */ t102325.s1.tag = STRUCTURE_TYPE24753; t102325.s1.value.structure_type24753 = &t102326; /* x185476 stalin.sc:25683:888584 */ t102324.s1.tag = STRUCTURE_TYPE24753; t102324.s1.value.structure_type24753 = &t102325; /* x185477 stalin.sc:25683:888584 */ t102323.s0.tag = STRUCTURE_TYPE24753; t102323.s0.value.structure_type24753 = &t102324; /* x185478 stalin.sc:25683:888584 */ t102323.s1.tag = NULL_TYPE; /* x185479 stalin.sc:25683:888584 */ t102322.s1.tag = STRUCTURE_TYPE24753; t102322.s1.value.structure_type24753 = &t102323; /* x185480 stalin.sc:25683:888584 */ t102321.s0.tag = STRUCTURE_TYPE24753; t102321.s0.value.structure_type24753 = &t102322; /* x185481 stalin.sc:25683:888584 */ t102321.s1.tag = NULL_TYPE; /* x185482 stalin.sc:25683:888584 */ t102320.s0.tag = STRUCTURE_TYPE24753; t102320.s0.value.structure_type24753 = &t102321; /* x185483 stalin.sc:25683:888584 */ t102328.s0.tag = EXTERNAL_SYMBOL_TYPE; t102328.s0.value.external_symbol_type = q42; /* x185484 stalin.sc:25683:888584 */ t102329.s0.tag = EXTERNAL_SYMBOL_TYPE; t102329.s0.value.external_symbol_type = q308; /* x185485 stalin.sc:25683:888584 */ t102331.s0.tag = EXTERNAL_SYMBOL_TYPE; t102331.s0.value.external_symbol_type = q4; /* x185486 stalin.sc:25683:888584 */ t102332.s0.tag = EXTERNAL_SYMBOL_TYPE; t102332.s0.value.external_symbol_type = q308; /* x185487 stalin.sc:25683:888584 */ t102333.s0.tag = FIXNUM_TYPE; t102333.s0.value.fixnum_type = 1; /* x185488 stalin.sc:25683:888584 */ t102333.s1.tag = NULL_TYPE; /* x185489 stalin.sc:25683:888584 */ t102332.s1.tag = STRUCTURE_TYPE24753; t102332.s1.value.structure_type24753 = &t102333; /* x185490 stalin.sc:25683:888584 */ t102331.s1.tag = STRUCTURE_TYPE24753; t102331.s1.value.structure_type24753 = &t102332; /* x185491 stalin.sc:25683:888584 */ t102330.s0.tag = STRUCTURE_TYPE24753; t102330.s0.value.structure_type24753 = &t102331; /* x185492 stalin.sc:25683:888584 */ t102330.s1.tag = NULL_TYPE; /* x185493 stalin.sc:25683:888584 */ t102329.s1.tag = STRUCTURE_TYPE24753; t102329.s1.value.structure_type24753 = &t102330; /* x185494 stalin.sc:25683:888584 */ t102328.s1.tag = STRUCTURE_TYPE24753; t102328.s1.value.structure_type24753 = &t102329; /* x185495 stalin.sc:25683:888584 */ t102327.s0.tag = STRUCTURE_TYPE24753; t102327.s0.value.structure_type24753 = &t102328; /* x185496 stalin.sc:25683:888584 */ t102335.s0.tag = EXTERNAL_SYMBOL_TYPE; t102335.s0.value.external_symbol_type = q240; /* x185497 stalin.sc:25683:888584 */ t102338.s0.tag = EXTERNAL_SYMBOL_TYPE; t102338.s0.value.external_symbol_type = q269; /* x185498 stalin.sc:25683:888584 */ t102339.s0.tag = EXTERNAL_SYMBOL_TYPE; t102339.s0.value.external_symbol_type = q274; /* x185499 stalin.sc:25683:888584 */ t102339.s1.tag = NULL_TYPE; /* x185500 stalin.sc:25683:888584 */ t102338.s1.tag = STRUCTURE_TYPE24753; t102338.s1.value.structure_type24753 = &t102339; /* x185501 stalin.sc:25683:888584 */ t102337.s0.tag = STRUCTURE_TYPE24753; t102337.s0.value.structure_type24753 = &t102338; /* x185502 stalin.sc:25683:888584 */ t102341.s0.tag = EXTERNAL_SYMBOL_TYPE; t102341.s0.value.external_symbol_type = q331; /* x185503 stalin.sc:25683:888584 */ t102343.s0.tag = EXTERNAL_SYMBOL_TYPE; t102343.s0.value.external_symbol_type = q338; /* x185504 stalin.sc:25683:888584 */ t102345.s0.tag = EXTERNAL_SYMBOL_TYPE; t102345.s0.value.external_symbol_type = q2; /* x185505 stalin.sc:25683:888584 */ t102347.s0.tag = EXTERNAL_SYMBOL_TYPE; t102347.s0.value.external_symbol_type = q157; /* x185506 stalin.sc:25683:888584 */ t102348.s0.tag = EXTERNAL_SYMBOL_TYPE; t102348.s0.value.external_symbol_type = q274; /* x185507 stalin.sc:25683:888584 */ t102348.s1.tag = NULL_TYPE; /* x185508 stalin.sc:25683:888584 */ t102347.s1.tag = STRUCTURE_TYPE24753; t102347.s1.value.structure_type24753 = &t102348; /* x185509 stalin.sc:25683:888584 */ t102346.s0.tag = STRUCTURE_TYPE24753; t102346.s0.value.structure_type24753 = &t102347; /* x185510 stalin.sc:25683:888584 */ t102350.s0.tag = EXTERNAL_SYMBOL_TYPE; t102350.s0.value.external_symbol_type = q157; /* x185511 stalin.sc:25683:888584 */ t102351.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x185512 stalin.sc:25683:888584 */ t102351.s1.tag = NULL_TYPE; /* x185513 stalin.sc:25683:888584 */ t102350.s1.tag = STRUCTURE_TYPE24753; t102350.s1.value.structure_type24753 = &t102351; /* x185514 stalin.sc:25683:888584 */ t102349.s0.tag = STRUCTURE_TYPE24753; t102349.s0.value.structure_type24753 = &t102350; /* x185515 stalin.sc:25683:888584 */ t102349.s1.tag = NULL_TYPE; /* x185516 stalin.sc:25683:888584 */ t102346.s1.tag = STRUCTURE_TYPE24753; t102346.s1.value.structure_type24753 = &t102349; /* x185517 stalin.sc:25683:888584 */ t102345.s1.tag = STRUCTURE_TYPE24753; t102345.s1.value.structure_type24753 = &t102346; /* x185518 stalin.sc:25683:888584 */ t102344.s0.tag = STRUCTURE_TYPE24753; t102344.s0.value.structure_type24753 = &t102345; /* x185519 stalin.sc:25683:888584 */ t102344.s1.tag = NULL_TYPE; /* x185520 stalin.sc:25683:888584 */ t102343.s1.tag = STRUCTURE_TYPE24753; t102343.s1.value.structure_type24753 = &t102344; /* x185521 stalin.sc:25683:888584 */ t102342.s0.tag = STRUCTURE_TYPE24753; t102342.s0.value.structure_type24753 = &t102343; /* x185522 stalin.sc:25683:888584 */ t102342.s1.tag = NULL_TYPE; /* x185523 stalin.sc:25683:888584 */ t102341.s1.tag = STRUCTURE_TYPE24753; t102341.s1.value.structure_type24753 = &t102342; /* x185524 stalin.sc:25683:888584 */ t102340.s0.tag = STRUCTURE_TYPE24753; t102340.s0.value.structure_type24753 = &t102341; /* x185525 stalin.sc:25683:888584 */ t102340.s1.tag = NULL_TYPE; /* x185526 stalin.sc:25683:888584 */ t102337.s1.tag = STRUCTURE_TYPE24753; t102337.s1.value.structure_type24753 = &t102340; /* x185527 stalin.sc:25683:888584 */ t102336.s0.tag = STRUCTURE_TYPE24753; t102336.s0.value.structure_type24753 = &t102337; /* x185528 stalin.sc:25683:888584 */ t102354.s0.tag = EXTERNAL_SYMBOL_TYPE; t102354.s0.value.external_symbol_type = q263; /* x185529 stalin.sc:25683:888584 */ t102355.s0.tag = EXTERNAL_SYMBOL_TYPE; t102355.s0.value.external_symbol_type = q274; /* x185530 stalin.sc:25683:888584 */ t102356.s0.tag = ((unsigned)((unsigned char)'.'))<<2; /* x185531 stalin.sc:25683:888584 */ t102356.s1.tag = NULL_TYPE; /* x185532 stalin.sc:25683:888584 */ t102355.s1.tag = STRUCTURE_TYPE24753; t102355.s1.value.structure_type24753 = &t102356; /* x185533 stalin.sc:25683:888584 */ t102354.s1.tag = STRUCTURE_TYPE24753; t102354.s1.value.structure_type24753 = &t102355; /* x185534 stalin.sc:25683:888584 */ t102353.s0.tag = STRUCTURE_TYPE24753; t102353.s0.value.structure_type24753 = &t102354; /* x185535 stalin.sc:25683:888584 */ t102358.s0.tag = EXTERNAL_SYMBOL_TYPE; t102358.s0.value.external_symbol_type = q43; /* x185536 stalin.sc:25683:888584 */ t102360.s0.tag = EXTERNAL_SYMBOL_TYPE; t102360.s0.value.external_symbol_type = q120; /* x185537 stalin.sc:25683:888584 */ t102361.s0.tag = EXTERNAL_SYMBOL_TYPE; t102361.s0.value.external_symbol_type = q308; /* x185538 stalin.sc:25683:888584 */ t102362.s0.tag = EXTERNAL_SYMBOL_TYPE; t102362.s0.value.external_symbol_type = q330; /* x185539 stalin.sc:25683:888584 */ t102362.s1.tag = NULL_TYPE; /* x185540 stalin.sc:25683:888584 */ t102361.s1.tag = STRUCTURE_TYPE24753; t102361.s1.value.structure_type24753 = &t102362; /* x185541 stalin.sc:25683:888584 */ t102360.s1.tag = STRUCTURE_TYPE24753; t102360.s1.value.structure_type24753 = &t102361; /* x185542 stalin.sc:25683:888584 */ t102359.s0.tag = STRUCTURE_TYPE24753; t102359.s0.value.structure_type24753 = &t102360; /* x185543 stalin.sc:25683:888584 */ t102363.s0.tag = FALSE_TYPE; /* x185544 stalin.sc:25683:888584 */ t102365.s0.tag = EXTERNAL_SYMBOL_TYPE; t102365.s0.value.external_symbol_type = q242; /* x185545 stalin.sc:25683:888584 */ t102368.s0.tag = EXTERNAL_SYMBOL_TYPE; t102368.s0.value.external_symbol_type = q275; /* x185546 stalin.sc:25683:888584 */ t102370.s0.tag = EXTERNAL_SYMBOL_TYPE; t102370.s0.value.external_symbol_type = q163; /* x185547 stalin.sc:25683:888584 */ t102371.s0.tag = EXTERNAL_SYMBOL_TYPE; t102371.s0.value.external_symbol_type = q161; /* x185548 stalin.sc:25683:888584 */ t102372.s0.tag = EXTERNAL_SYMBOL_TYPE; t102372.s0.value.external_symbol_type = q308; /* x185549 stalin.sc:25683:888584 */ t102372.s1.tag = NULL_TYPE; /* x185550 stalin.sc:25683:888584 */ t102371.s1.tag = STRUCTURE_TYPE24753; t102371.s1.value.structure_type24753 = &t102372; /* x185551 stalin.sc:25683:888584 */ t102370.s1.tag = STRUCTURE_TYPE24753; t102370.s1.value.structure_type24753 = &t102371; /* x185552 stalin.sc:25683:888584 */ t102369.s0.tag = STRUCTURE_TYPE24753; t102369.s0.value.structure_type24753 = &t102370; /* x185553 stalin.sc:25683:888584 */ t102369.s1.tag = NULL_TYPE; /* x185554 stalin.sc:25683:888584 */ t102368.s1.tag = STRUCTURE_TYPE24753; t102368.s1.value.structure_type24753 = &t102369; /* x185555 stalin.sc:25683:888584 */ t102367.s0.tag = STRUCTURE_TYPE24753; t102367.s0.value.structure_type24753 = &t102368; /* x185556 stalin.sc:25683:888584 */ t102367.s1.tag = NULL_TYPE; /* x185557 stalin.sc:25683:888584 */ t102366.s0.tag = STRUCTURE_TYPE24753; t102366.s0.value.structure_type24753 = &t102367; /* x185558 stalin.sc:25683:888584 */ t102374.s0.tag = EXTERNAL_SYMBOL_TYPE; t102374.s0.value.external_symbol_type = q42; /* x185559 stalin.sc:25683:888584 */ t102375.s0.tag = EXTERNAL_SYMBOL_TYPE; t102375.s0.value.external_symbol_type = q308; /* x185560 stalin.sc:25683:888584 */ t102377.s0.tag = EXTERNAL_SYMBOL_TYPE; t102377.s0.value.external_symbol_type = q4; /* x185561 stalin.sc:25683:888584 */ t102378.s0.tag = EXTERNAL_SYMBOL_TYPE; t102378.s0.value.external_symbol_type = q308; /* x185562 stalin.sc:25683:888584 */ t102379.s0.tag = FIXNUM_TYPE; t102379.s0.value.fixnum_type = 1; /* x185563 stalin.sc:25683:888584 */ t102379.s1.tag = NULL_TYPE; /* x185564 stalin.sc:25683:888584 */ t102378.s1.tag = STRUCTURE_TYPE24753; t102378.s1.value.structure_type24753 = &t102379; /* x185565 stalin.sc:25683:888584 */ t102377.s1.tag = STRUCTURE_TYPE24753; t102377.s1.value.structure_type24753 = &t102378; /* x185566 stalin.sc:25683:888584 */ t102376.s0.tag = STRUCTURE_TYPE24753; t102376.s0.value.structure_type24753 = &t102377; /* x185567 stalin.sc:25683:888584 */ t102376.s1.tag = NULL_TYPE; /* x185568 stalin.sc:25683:888584 */ t102375.s1.tag = STRUCTURE_TYPE24753; t102375.s1.value.structure_type24753 = &t102376; /* x185569 stalin.sc:25683:888584 */ t102374.s1.tag = STRUCTURE_TYPE24753; t102374.s1.value.structure_type24753 = &t102375; /* x185570 stalin.sc:25683:888584 */ t102373.s0.tag = STRUCTURE_TYPE24753; t102373.s0.value.structure_type24753 = &t102374; /* x185571 stalin.sc:25683:888584 */ t102381.s0.tag = EXTERNAL_SYMBOL_TYPE; t102381.s0.value.external_symbol_type = q43; /* x185572 stalin.sc:25683:888584 */ t102383.s0.tag = EXTERNAL_SYMBOL_TYPE; t102383.s0.value.external_symbol_type = q269; /* x185573 stalin.sc:25683:888584 */ t102384.s0.tag = EXTERNAL_SYMBOL_TYPE; t102384.s0.value.external_symbol_type = q275; /* x185574 stalin.sc:25683:888584 */ t102384.s1.tag = NULL_TYPE; /* x185575 stalin.sc:25683:888584 */ t102383.s1.tag = STRUCTURE_TYPE24753; t102383.s1.value.structure_type24753 = &t102384; /* x185576 stalin.sc:25683:888584 */ t102382.s0.tag = STRUCTURE_TYPE24753; t102382.s0.value.structure_type24753 = &t102383; /* x185577 stalin.sc:25683:888584 */ t102386.s0.tag = EXTERNAL_SYMBOL_TYPE; t102386.s0.value.external_symbol_type = q331; /* x185578 stalin.sc:25683:888584 */ t102388.s0.tag = EXTERNAL_SYMBOL_TYPE; t102388.s0.value.external_symbol_type = q336; /* x185579 stalin.sc:25683:888584 */ t102390.s0.tag = EXTERNAL_SYMBOL_TYPE; t102390.s0.value.external_symbol_type = q131; /* x185580 stalin.sc:25683:888584 */ t102392.s0.tag = EXTERNAL_SYMBOL_TYPE; t102392.s0.value.external_symbol_type = q2; /* x185581 stalin.sc:25683:888584 */ t102394.s0.tag = EXTERNAL_SYMBOL_TYPE; t102394.s0.value.external_symbol_type = q157; /* x185582 stalin.sc:25683:888584 */ t102395.s0.tag = EXTERNAL_SYMBOL_TYPE; t102395.s0.value.external_symbol_type = q275; /* x185583 stalin.sc:25683:888584 */ t102395.s1.tag = NULL_TYPE; /* x185584 stalin.sc:25683:888584 */ t102394.s1.tag = STRUCTURE_TYPE24753; t102394.s1.value.structure_type24753 = &t102395; /* x185585 stalin.sc:25683:888584 */ t102393.s0.tag = STRUCTURE_TYPE24753; t102393.s0.value.structure_type24753 = &t102394; /* x185586 stalin.sc:25683:888584 */ t102397.s0.tag = EXTERNAL_SYMBOL_TYPE; t102397.s0.value.external_symbol_type = q157; /* x185587 stalin.sc:25683:888584 */ t102398.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x185588 stalin.sc:25683:888584 */ t102398.s1.tag = NULL_TYPE; /* x185589 stalin.sc:25683:888584 */ t102397.s1.tag = STRUCTURE_TYPE24753; t102397.s1.value.structure_type24753 = &t102398; /* x185590 stalin.sc:25683:888584 */ t102396.s0.tag = STRUCTURE_TYPE24753; t102396.s0.value.structure_type24753 = &t102397; /* x185591 stalin.sc:25683:888584 */ t102396.s1.tag = NULL_TYPE; /* x185592 stalin.sc:25683:888584 */ t102393.s1.tag = STRUCTURE_TYPE24753; t102393.s1.value.structure_type24753 = &t102396; /* x185593 stalin.sc:25683:888584 */ t102392.s1.tag = STRUCTURE_TYPE24753; t102392.s1.value.structure_type24753 = &t102393; /* x185594 stalin.sc:25683:888584 */ t102391.s0.tag = STRUCTURE_TYPE24753; t102391.s0.value.structure_type24753 = &t102392; /* x185595 stalin.sc:25683:888584 */ t102399.s0.tag = FLONUM_TYPE; t102399.s0.value.flonum_type = 1.0e1; /* x185596 stalin.sc:25683:888584 */ t102399.s1.tag = NULL_TYPE; /* x185597 stalin.sc:25683:888584 */ t102391.s1.tag = STRUCTURE_TYPE24753; t102391.s1.value.structure_type24753 = &t102399; /* x185598 stalin.sc:25683:888584 */ t102390.s1.tag = STRUCTURE_TYPE24753; t102390.s1.value.structure_type24753 = &t102391; /* x185599 stalin.sc:25683:888584 */ t102389.s0.tag = STRUCTURE_TYPE24753; t102389.s0.value.structure_type24753 = &t102390; /* x185600 stalin.sc:25683:888584 */ t102400.s0.tag = FLONUM_TYPE; t102400.s0.value.flonum_type = 1.0e2; /* x185601 stalin.sc:25683:888584 */ t102400.s1.tag = NULL_TYPE; /* x185602 stalin.sc:25683:888584 */ t102389.s1.tag = STRUCTURE_TYPE24753; t102389.s1.value.structure_type24753 = &t102400; /* x185603 stalin.sc:25683:888584 */ t102388.s1.tag = STRUCTURE_TYPE24753; t102388.s1.value.structure_type24753 = &t102389; /* x185604 stalin.sc:25683:888584 */ t102387.s0.tag = STRUCTURE_TYPE24753; t102387.s0.value.structure_type24753 = &t102388; /* x185605 stalin.sc:25683:888584 */ t102387.s1.tag = NULL_TYPE; /* x185606 stalin.sc:25683:888584 */ t102386.s1.tag = STRUCTURE_TYPE24753; t102386.s1.value.structure_type24753 = &t102387; /* x185607 stalin.sc:25683:888584 */ t102385.s0.tag = STRUCTURE_TYPE24753; t102385.s0.value.structure_type24753 = &t102386; /* x185608 stalin.sc:25683:888584 */ t102401.s0.tag = FALSE_TYPE; /* x185609 stalin.sc:25683:888584 */ t102401.s1.tag = NULL_TYPE; /* x185610 stalin.sc:25683:888584 */ t102385.s1.tag = STRUCTURE_TYPE24753; t102385.s1.value.structure_type24753 = &t102401; /* x185611 stalin.sc:25683:888584 */ t102382.s1.tag = STRUCTURE_TYPE24753; t102382.s1.value.structure_type24753 = &t102385; /* x185612 stalin.sc:25683:888584 */ t102381.s1.tag = STRUCTURE_TYPE24753; t102381.s1.value.structure_type24753 = &t102382; /* x185613 stalin.sc:25683:888584 */ t102380.s0.tag = STRUCTURE_TYPE24753; t102380.s0.value.structure_type24753 = &t102381; /* x185614 stalin.sc:25683:888584 */ t102380.s1.tag = NULL_TYPE; /* x185615 stalin.sc:25683:888584 */ t102373.s1.tag = STRUCTURE_TYPE24753; t102373.s1.value.structure_type24753 = &t102380; /* x185616 stalin.sc:25683:888584 */ t102366.s1.tag = STRUCTURE_TYPE24753; t102366.s1.value.structure_type24753 = &t102373; /* x185617 stalin.sc:25683:888584 */ t102365.s1.tag = STRUCTURE_TYPE24753; t102365.s1.value.structure_type24753 = &t102366; /* x185618 stalin.sc:25683:888584 */ t102364.s0.tag = STRUCTURE_TYPE24753; t102364.s0.value.structure_type24753 = &t102365; /* x185619 stalin.sc:25683:888584 */ t102364.s1.tag = NULL_TYPE; /* x185620 stalin.sc:25683:888584 */ t102363.s1.tag = STRUCTURE_TYPE24753; t102363.s1.value.structure_type24753 = &t102364; /* x185621 stalin.sc:25683:888584 */ t102359.s1.tag = STRUCTURE_TYPE24753; t102359.s1.value.structure_type24753 = &t102363; /* x185622 stalin.sc:25683:888584 */ t102358.s1.tag = STRUCTURE_TYPE24753; t102358.s1.value.structure_type24753 = &t102359; /* x185623 stalin.sc:25683:888584 */ t102357.s0.tag = STRUCTURE_TYPE24753; t102357.s0.value.structure_type24753 = &t102358; /* x185624 stalin.sc:25683:888584 */ t102357.s1.tag = NULL_TYPE; /* x185625 stalin.sc:25683:888584 */ t102353.s1.tag = STRUCTURE_TYPE24753; t102353.s1.value.structure_type24753 = &t102357; /* x185626 stalin.sc:25683:888584 */ t102352.s0.tag = STRUCTURE_TYPE24753; t102352.s0.value.structure_type24753 = &t102353; /* x185627 stalin.sc:25683:888584 */ t102403.s0.tag = EXTERNAL_SYMBOL_TYPE; t102403.s0.value.external_symbol_type = q95; /* x185628 stalin.sc:25683:888584 */ t102404.s0.tag = FALSE_TYPE; /* x185629 stalin.sc:25683:888584 */ t102404.s1.tag = NULL_TYPE; /* x185630 stalin.sc:25683:888584 */ t102403.s1.tag = STRUCTURE_TYPE24753; t102403.s1.value.structure_type24753 = &t102404; /* x185631 stalin.sc:25683:888584 */ t102402.s0.tag = STRUCTURE_TYPE24753; t102402.s0.value.structure_type24753 = &t102403; /* x185632 stalin.sc:25683:888584 */ t102402.s1.tag = NULL_TYPE; /* x185633 stalin.sc:25683:888584 */ t102352.s1.tag = STRUCTURE_TYPE24753; t102352.s1.value.structure_type24753 = &t102402; /* x185634 stalin.sc:25683:888584 */ t102336.s1.tag = STRUCTURE_TYPE24753; t102336.s1.value.structure_type24753 = &t102352; /* x185635 stalin.sc:25683:888584 */ t102335.s1.tag = STRUCTURE_TYPE24753; t102335.s1.value.structure_type24753 = &t102336; /* x185636 stalin.sc:25683:888584 */ t102334.s0.tag = STRUCTURE_TYPE24753; t102334.s0.value.structure_type24753 = &t102335; /* x185637 stalin.sc:25683:888584 */ t102334.s1.tag = NULL_TYPE; /* x185638 stalin.sc:25683:888584 */ t102327.s1.tag = STRUCTURE_TYPE24753; t102327.s1.value.structure_type24753 = &t102334; /* x185639 stalin.sc:25683:888584 */ t102320.s1.tag = STRUCTURE_TYPE24753; t102320.s1.value.structure_type24753 = &t102327; /* x185640 stalin.sc:25683:888584 */ t102319.s1.tag = STRUCTURE_TYPE24753; t102319.s1.value.structure_type24753 = &t102320; /* x185641 stalin.sc:25683:888584 */ t102318.s0.tag = STRUCTURE_TYPE24753; t102318.s0.value.structure_type24753 = &t102319; /* x185642 stalin.sc:25683:888584 */ t102318.s1.tag = NULL_TYPE; /* x185643 stalin.sc:25683:888584 */ t102317.s1.tag = STRUCTURE_TYPE24753; t102317.s1.value.structure_type24753 = &t102318; /* x185644 stalin.sc:25683:888584 */ t102313.s1.tag = STRUCTURE_TYPE24753; t102313.s1.value.structure_type24753 = &t102317; /* x185645 stalin.sc:25683:888584 */ t102312.s1.tag = STRUCTURE_TYPE24753; t102312.s1.value.structure_type24753 = &t102313; /* x185646 stalin.sc:25683:888584 */ t102311.s0.tag = STRUCTURE_TYPE24753; t102311.s0.value.structure_type24753 = &t102312; /* x185647 stalin.sc:25683:888584 */ t102311.s1.tag = NULL_TYPE; /* x185648 stalin.sc:25683:888584 */ t102307.s1.tag = STRUCTURE_TYPE24753; t102307.s1.value.structure_type24753 = &t102311; /* x185649 stalin.sc:25683:888584 */ t102306.s0.tag = STRUCTURE_TYPE24753; t102306.s0.value.structure_type24753 = &t102307; /* x185650 stalin.sc:25683:888584 */ t102407.s0.tag = EXTERNAL_SYMBOL_TYPE; t102407.s0.value.external_symbol_type = q263; /* x185651 stalin.sc:25683:888584 */ t102408.s0.tag = EXTERNAL_SYMBOL_TYPE; t102408.s0.value.external_symbol_type = q273; /* x185652 stalin.sc:25683:888584 */ t102409.s0.tag = ((unsigned)((unsigned char)'.'))<<2; /* x185653 stalin.sc:25683:888584 */ t102409.s1.tag = NULL_TYPE; /* x185654 stalin.sc:25683:888584 */ t102408.s1.tag = STRUCTURE_TYPE24753; t102408.s1.value.structure_type24753 = &t102409; /* x185655 stalin.sc:25683:888584 */ t102407.s1.tag = STRUCTURE_TYPE24753; t102407.s1.value.structure_type24753 = &t102408; /* x185656 stalin.sc:25683:888584 */ t102406.s0.tag = STRUCTURE_TYPE24753; t102406.s0.value.structure_type24753 = &t102407; /* x185657 stalin.sc:25683:888584 */ t102411.s0.tag = EXTERNAL_SYMBOL_TYPE; t102411.s0.value.external_symbol_type = q43; /* x185658 stalin.sc:25683:888584 */ t102413.s0.tag = EXTERNAL_SYMBOL_TYPE; t102413.s0.value.external_symbol_type = q120; /* x185659 stalin.sc:25683:888584 */ t102414.s0.tag = EXTERNAL_SYMBOL_TYPE; t102414.s0.value.external_symbol_type = q308; /* x185660 stalin.sc:25683:888584 */ t102415.s0.tag = EXTERNAL_SYMBOL_TYPE; t102415.s0.value.external_symbol_type = q330; /* x185661 stalin.sc:25683:888584 */ t102415.s1.tag = NULL_TYPE; /* x185662 stalin.sc:25683:888584 */ t102414.s1.tag = STRUCTURE_TYPE24753; t102414.s1.value.structure_type24753 = &t102415; /* x185663 stalin.sc:25683:888584 */ t102413.s1.tag = STRUCTURE_TYPE24753; t102413.s1.value.structure_type24753 = &t102414; /* x185664 stalin.sc:25683:888584 */ t102412.s0.tag = STRUCTURE_TYPE24753; t102412.s0.value.structure_type24753 = &t102413; /* x185665 stalin.sc:25683:888584 */ t102416.s0.tag = FALSE_TYPE; /* x185666 stalin.sc:25683:888584 */ t102418.s0.tag = EXTERNAL_SYMBOL_TYPE; t102418.s0.value.external_symbol_type = q242; /* x185667 stalin.sc:25683:888584 */ t102421.s0.tag = EXTERNAL_SYMBOL_TYPE; t102421.s0.value.external_symbol_type = q274; /* x185668 stalin.sc:25683:888584 */ t102423.s0.tag = EXTERNAL_SYMBOL_TYPE; t102423.s0.value.external_symbol_type = q163; /* x185669 stalin.sc:25683:888584 */ t102424.s0.tag = EXTERNAL_SYMBOL_TYPE; t102424.s0.value.external_symbol_type = q161; /* x185670 stalin.sc:25683:888584 */ t102425.s0.tag = EXTERNAL_SYMBOL_TYPE; t102425.s0.value.external_symbol_type = q308; /* x185671 stalin.sc:25683:888584 */ t102425.s1.tag = NULL_TYPE; /* x185672 stalin.sc:25683:888584 */ t102424.s1.tag = STRUCTURE_TYPE24753; t102424.s1.value.structure_type24753 = &t102425; /* x185673 stalin.sc:25683:888584 */ t102423.s1.tag = STRUCTURE_TYPE24753; t102423.s1.value.structure_type24753 = &t102424; /* x185674 stalin.sc:25683:888584 */ t102422.s0.tag = STRUCTURE_TYPE24753; t102422.s0.value.structure_type24753 = &t102423; /* x185675 stalin.sc:25683:888584 */ t102422.s1.tag = NULL_TYPE; /* x185676 stalin.sc:25683:888584 */ t102421.s1.tag = STRUCTURE_TYPE24753; t102421.s1.value.structure_type24753 = &t102422; /* x185677 stalin.sc:25683:888584 */ t102420.s0.tag = STRUCTURE_TYPE24753; t102420.s0.value.structure_type24753 = &t102421; /* x185678 stalin.sc:25683:888584 */ t102420.s1.tag = NULL_TYPE; /* x185679 stalin.sc:25683:888584 */ t102419.s0.tag = STRUCTURE_TYPE24753; t102419.s0.value.structure_type24753 = &t102420; /* x185680 stalin.sc:25683:888584 */ t102427.s0.tag = EXTERNAL_SYMBOL_TYPE; t102427.s0.value.external_symbol_type = q42; /* x185681 stalin.sc:25683:888584 */ t102428.s0.tag = EXTERNAL_SYMBOL_TYPE; t102428.s0.value.external_symbol_type = q308; /* x185682 stalin.sc:25683:888584 */ t102430.s0.tag = EXTERNAL_SYMBOL_TYPE; t102430.s0.value.external_symbol_type = q4; /* x185683 stalin.sc:25683:888584 */ t102431.s0.tag = EXTERNAL_SYMBOL_TYPE; t102431.s0.value.external_symbol_type = q308; /* x185684 stalin.sc:25683:888584 */ t102432.s0.tag = FIXNUM_TYPE; t102432.s0.value.fixnum_type = 1; /* x185685 stalin.sc:25683:888584 */ t102432.s1.tag = NULL_TYPE; /* x185686 stalin.sc:25683:888584 */ t102431.s1.tag = STRUCTURE_TYPE24753; t102431.s1.value.structure_type24753 = &t102432; /* x185687 stalin.sc:25683:888584 */ t102430.s1.tag = STRUCTURE_TYPE24753; t102430.s1.value.structure_type24753 = &t102431; /* x185688 stalin.sc:25683:888584 */ t102429.s0.tag = STRUCTURE_TYPE24753; t102429.s0.value.structure_type24753 = &t102430; /* x185689 stalin.sc:25683:888584 */ t102429.s1.tag = NULL_TYPE; /* x185690 stalin.sc:25683:888584 */ t102428.s1.tag = STRUCTURE_TYPE24753; t102428.s1.value.structure_type24753 = &t102429; /* x185691 stalin.sc:25683:888584 */ t102427.s1.tag = STRUCTURE_TYPE24753; t102427.s1.value.structure_type24753 = &t102428; /* x185692 stalin.sc:25683:888584 */ t102426.s0.tag = STRUCTURE_TYPE24753; t102426.s0.value.structure_type24753 = &t102427; /* x185693 stalin.sc:25683:888584 */ t102434.s0.tag = EXTERNAL_SYMBOL_TYPE; t102434.s0.value.external_symbol_type = q43; /* x185694 stalin.sc:25683:888584 */ t102436.s0.tag = EXTERNAL_SYMBOL_TYPE; t102436.s0.value.external_symbol_type = q269; /* x185695 stalin.sc:25683:888584 */ t102437.s0.tag = EXTERNAL_SYMBOL_TYPE; t102437.s0.value.external_symbol_type = q274; /* x185696 stalin.sc:25683:888584 */ t102437.s1.tag = NULL_TYPE; /* x185697 stalin.sc:25683:888584 */ t102436.s1.tag = STRUCTURE_TYPE24753; t102436.s1.value.structure_type24753 = &t102437; /* x185698 stalin.sc:25683:888584 */ t102435.s0.tag = STRUCTURE_TYPE24753; t102435.s0.value.structure_type24753 = &t102436; /* x185699 stalin.sc:25683:888584 */ t102439.s0.tag = EXTERNAL_SYMBOL_TYPE; t102439.s0.value.external_symbol_type = q336; /* x185700 stalin.sc:25683:888584 */ t102441.s0.tag = EXTERNAL_SYMBOL_TYPE; t102441.s0.value.external_symbol_type = q131; /* x185701 stalin.sc:25683:888584 */ t102443.s0.tag = EXTERNAL_SYMBOL_TYPE; t102443.s0.value.external_symbol_type = q2; /* x185702 stalin.sc:25683:888584 */ t102445.s0.tag = EXTERNAL_SYMBOL_TYPE; t102445.s0.value.external_symbol_type = q157; /* x185703 stalin.sc:25683:888584 */ t102446.s0.tag = EXTERNAL_SYMBOL_TYPE; t102446.s0.value.external_symbol_type = q274; /* x185704 stalin.sc:25683:888584 */ t102446.s1.tag = NULL_TYPE; /* x185705 stalin.sc:25683:888584 */ t102445.s1.tag = STRUCTURE_TYPE24753; t102445.s1.value.structure_type24753 = &t102446; /* x185706 stalin.sc:25683:888584 */ t102444.s0.tag = STRUCTURE_TYPE24753; t102444.s0.value.structure_type24753 = &t102445; /* x185707 stalin.sc:25683:888584 */ t102448.s0.tag = EXTERNAL_SYMBOL_TYPE; t102448.s0.value.external_symbol_type = q157; /* x185708 stalin.sc:25683:888584 */ t102449.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x185709 stalin.sc:25683:888584 */ t102449.s1.tag = NULL_TYPE; /* x185710 stalin.sc:25683:888584 */ t102448.s1.tag = STRUCTURE_TYPE24753; t102448.s1.value.structure_type24753 = &t102449; /* x185711 stalin.sc:25683:888584 */ t102447.s0.tag = STRUCTURE_TYPE24753; t102447.s0.value.structure_type24753 = &t102448; /* x185712 stalin.sc:25683:888584 */ t102447.s1.tag = NULL_TYPE; /* x185713 stalin.sc:25683:888584 */ t102444.s1.tag = STRUCTURE_TYPE24753; t102444.s1.value.structure_type24753 = &t102447; /* x185714 stalin.sc:25683:888584 */ t102443.s1.tag = STRUCTURE_TYPE24753; t102443.s1.value.structure_type24753 = &t102444; /* x185715 stalin.sc:25683:888584 */ t102442.s0.tag = STRUCTURE_TYPE24753; t102442.s0.value.structure_type24753 = &t102443; /* x185716 stalin.sc:25683:888584 */ t102450.s0.tag = FLONUM_TYPE; t102450.s0.value.flonum_type = 1.0e1; /* x185717 stalin.sc:25683:888584 */ t102450.s1.tag = NULL_TYPE; /* x185718 stalin.sc:25683:888584 */ t102442.s1.tag = STRUCTURE_TYPE24753; t102442.s1.value.structure_type24753 = &t102450; /* x185719 stalin.sc:25683:888584 */ t102441.s1.tag = STRUCTURE_TYPE24753; t102441.s1.value.structure_type24753 = &t102442; /* x185720 stalin.sc:25683:888584 */ t102440.s0.tag = STRUCTURE_TYPE24753; t102440.s0.value.structure_type24753 = &t102441; /* x185721 stalin.sc:25683:888584 */ t102451.s0.tag = FLONUM_TYPE; t102451.s0.value.flonum_type = 1.0e2; /* x185722 stalin.sc:25683:888584 */ t102451.s1.tag = NULL_TYPE; /* x185723 stalin.sc:25683:888584 */ t102440.s1.tag = STRUCTURE_TYPE24753; t102440.s1.value.structure_type24753 = &t102451; /* x185724 stalin.sc:25683:888584 */ t102439.s1.tag = STRUCTURE_TYPE24753; t102439.s1.value.structure_type24753 = &t102440; /* x185725 stalin.sc:25683:888584 */ t102438.s0.tag = STRUCTURE_TYPE24753; t102438.s0.value.structure_type24753 = &t102439; /* x185726 stalin.sc:25683:888584 */ t102452.s0.tag = FALSE_TYPE; /* x185727 stalin.sc:25683:888584 */ t102452.s1.tag = NULL_TYPE; /* x185728 stalin.sc:25683:888584 */ t102438.s1.tag = STRUCTURE_TYPE24753; t102438.s1.value.structure_type24753 = &t102452; /* x185729 stalin.sc:25683:888584 */ t102435.s1.tag = STRUCTURE_TYPE24753; t102435.s1.value.structure_type24753 = &t102438; /* x185730 stalin.sc:25683:888584 */ t102434.s1.tag = STRUCTURE_TYPE24753; t102434.s1.value.structure_type24753 = &t102435; /* x185731 stalin.sc:25683:888584 */ t102433.s0.tag = STRUCTURE_TYPE24753; t102433.s0.value.structure_type24753 = &t102434; /* x185732 stalin.sc:25683:888584 */ t102433.s1.tag = NULL_TYPE; /* x185733 stalin.sc:25683:888584 */ t102426.s1.tag = STRUCTURE_TYPE24753; t102426.s1.value.structure_type24753 = &t102433; /* x185734 stalin.sc:25683:888584 */ t102419.s1.tag = STRUCTURE_TYPE24753; t102419.s1.value.structure_type24753 = &t102426; /* x185735 stalin.sc:25683:888584 */ t102418.s1.tag = STRUCTURE_TYPE24753; t102418.s1.value.structure_type24753 = &t102419; /* x185736 stalin.sc:25683:888584 */ t102417.s0.tag = STRUCTURE_TYPE24753; t102417.s0.value.structure_type24753 = &t102418; /* x185737 stalin.sc:25683:888584 */ t102417.s1.tag = NULL_TYPE; /* x185738 stalin.sc:25683:888584 */ t102416.s1.tag = STRUCTURE_TYPE24753; t102416.s1.value.structure_type24753 = &t102417; /* x185739 stalin.sc:25683:888584 */ t102412.s1.tag = STRUCTURE_TYPE24753; t102412.s1.value.structure_type24753 = &t102416; /* x185740 stalin.sc:25683:888584 */ t102411.s1.tag = STRUCTURE_TYPE24753; t102411.s1.value.structure_type24753 = &t102412; /* x185741 stalin.sc:25683:888584 */ t102410.s0.tag = STRUCTURE_TYPE24753; t102410.s0.value.structure_type24753 = &t102411; /* x185742 stalin.sc:25683:888584 */ t102410.s1.tag = NULL_TYPE; /* x185743 stalin.sc:25683:888584 */ t102406.s1.tag = STRUCTURE_TYPE24753; t102406.s1.value.structure_type24753 = &t102410; /* x185744 stalin.sc:25683:888584 */ t102405.s0.tag = STRUCTURE_TYPE24753; t102405.s0.value.structure_type24753 = &t102406; /* x185745 stalin.sc:25683:888584 */ t102455.s0.tag = EXTERNAL_SYMBOL_TYPE; t102455.s0.value.external_symbol_type = q269; /* x185746 stalin.sc:25683:888584 */ t102456.s0.tag = EXTERNAL_SYMBOL_TYPE; t102456.s0.value.external_symbol_type = q273; /* x185747 stalin.sc:25683:888584 */ t102456.s1.tag = NULL_TYPE; /* x185748 stalin.sc:25683:888584 */ t102455.s1.tag = STRUCTURE_TYPE24753; t102455.s1.value.structure_type24753 = &t102456; /* x185749 stalin.sc:25683:888584 */ t102454.s0.tag = STRUCTURE_TYPE24753; t102454.s0.value.structure_type24753 = &t102455; /* x185750 stalin.sc:25683:888584 */ t102458.s0.tag = EXTERNAL_SYMBOL_TYPE; t102458.s0.value.external_symbol_type = q338; /* x185751 stalin.sc:25683:888584 */ t102460.s0.tag = EXTERNAL_SYMBOL_TYPE; t102460.s0.value.external_symbol_type = q2; /* x185752 stalin.sc:25683:888584 */ t102462.s0.tag = EXTERNAL_SYMBOL_TYPE; t102462.s0.value.external_symbol_type = q157; /* x185753 stalin.sc:25683:888584 */ t102463.s0.tag = EXTERNAL_SYMBOL_TYPE; t102463.s0.value.external_symbol_type = q273; /* x185754 stalin.sc:25683:888584 */ t102463.s1.tag = NULL_TYPE; /* x185755 stalin.sc:25683:888584 */ t102462.s1.tag = STRUCTURE_TYPE24753; t102462.s1.value.structure_type24753 = &t102463; /* x185756 stalin.sc:25683:888584 */ t102461.s0.tag = STRUCTURE_TYPE24753; t102461.s0.value.structure_type24753 = &t102462; /* x185757 stalin.sc:25683:888584 */ t102465.s0.tag = EXTERNAL_SYMBOL_TYPE; t102465.s0.value.external_symbol_type = q157; /* x185758 stalin.sc:25683:888584 */ t102466.s0.tag = ((unsigned)((unsigned char)'0'))<<2; /* x185759 stalin.sc:25683:888584 */ t102466.s1.tag = NULL_TYPE; /* x185760 stalin.sc:25683:888584 */ t102465.s1.tag = STRUCTURE_TYPE24753; t102465.s1.value.structure_type24753 = &t102466; /* x185761 stalin.sc:25683:888584 */ t102464.s0.tag = STRUCTURE_TYPE24753; t102464.s0.value.structure_type24753 = &t102465; /* x185762 stalin.sc:25683:888584 */ t102464.s1.tag = NULL_TYPE; /* x185763 stalin.sc:25683:888584 */ t102461.s1.tag = STRUCTURE_TYPE24753; t102461.s1.value.structure_type24753 = &t102464; /* x185764 stalin.sc:25683:888584 */ t102460.s1.tag = STRUCTURE_TYPE24753; t102460.s1.value.structure_type24753 = &t102461; /* x185765 stalin.sc:25683:888584 */ t102459.s0.tag = STRUCTURE_TYPE24753; t102459.s0.value.structure_type24753 = &t102460; /* x185766 stalin.sc:25683:888584 */ t102459.s1.tag = NULL_TYPE; /* x185767 stalin.sc:25683:888584 */ t102458.s1.tag = STRUCTURE_TYPE24753; t102458.s1.value.structure_type24753 = &t102459; /* x185768 stalin.sc:25683:888584 */ t102457.s0.tag = STRUCTURE_TYPE24753; t102457.s0.value.structure_type24753 = &t102458; /* x185769 stalin.sc:25683:888584 */ t102457.s1.tag = NULL_TYPE; /* x185770 stalin.sc:25683:888584 */ t102454.s1.tag = STRUCTURE_TYPE24753; t102454.s1.value.structure_type24753 = &t102457; /* x185771 stalin.sc:25683:888584 */ t102453.s0.tag = STRUCTURE_TYPE24753; t102453.s0.value.structure_type24753 = &t102454; /* x185772 stalin.sc:25683:888584 */ t102468.s0.tag = EXTERNAL_SYMBOL_TYPE; t102468.s0.value.external_symbol_type = q95; /* x185773 stalin.sc:25683:888584 */ t102469.s0.tag = FALSE_TYPE; /* x185774 stalin.sc:25683:888584 */ t102469.s1.tag = NULL_TYPE; /* x185775 stalin.sc:25683:888584 */ t102468.s1.tag = STRUCTURE_TYPE24753; t102468.s1.value.structure_type24753 = &t102469; /* x185776 stalin.sc:25683:888584 */ t102467.s0.tag = STRUCTURE_TYPE24753; t102467.s0.value.structure_type24753 = &t102468; /* x185777 stalin.sc:25683:888584 */ t102467.s1.tag = NULL_TYPE; /* x185778 stalin.sc:25683:888584 */ t102453.s1.tag = STRUCTURE_TYPE24753; t102453.s1.value.structure_type24753 = &t102467; /* x185779 stalin.sc:25683:888584 */ t102405.s1.tag = STRUCTURE_TYPE24753; t102405.s1.value.structure_type24753 = &t102453; /* x185780 stalin.sc:25683:888584 */ t102306.s1.tag = STRUCTURE_TYPE24753; t102306.s1.value.structure_type24753 = &t102405; /* x185781 stalin.sc:25683:888584 */ t102211.s1.tag = STRUCTURE_TYPE24753; t102211.s1.value.structure_type24753 = &t102306; /* x185782 stalin.sc:25683:888584 */ t101265.s1.tag = STRUCTURE_TYPE24753; t101265.s1.value.structure_type24753 = &t102211; /* x185783 stalin.sc:25683:888584 */ t101259.s1.tag = STRUCTURE_TYPE24753; t101259.s1.value.structure_type24753 = &t101265; /* x185784 stalin.sc:25683:888584 */ t101258.s1.tag = STRUCTURE_TYPE24753; t101258.s1.value.structure_type24753 = &t101259; /* x185785 stalin.sc:25683:888584 */ t101257.s0.tag = STRUCTURE_TYPE24753; t101257.s0.value.structure_type24753 = &t101258; /* x185786 stalin.sc:25683:888584 */ t101257.s1.tag = NULL_TYPE; /* x185787 stalin.sc:25683:888584 */ t101250.s1.tag = STRUCTURE_TYPE24753; t101250.s1.value.structure_type24753 = &t101257; /* x185788 stalin.sc:25683:888584 */ t101243.s1.tag = STRUCTURE_TYPE24753; t101243.s1.value.structure_type24753 = &t101250; /* x185789 stalin.sc:25683:888584 */ t101242.s1.tag = STRUCTURE_TYPE24753; t101242.s1.value.structure_type24753 = &t101243; /* x185790 stalin.sc:25683:888584 */ t101241.s0.tag = STRUCTURE_TYPE24753; t101241.s0.value.structure_type24753 = &t101242; /* x185791 stalin.sc:25683:888584 */ t101241.s1.tag = NULL_TYPE; /* x185792 stalin.sc:25683:888584 */ t101240.s1.tag = STRUCTURE_TYPE24753; t101240.s1.value.structure_type24753 = &t101241; /* x185793 stalin.sc:25683:888584 */ t101236.s1.tag = STRUCTURE_TYPE24753; t101236.s1.value.structure_type24753 = &t101240; /* x185794 stalin.sc:25683:888584 */ t101235.s1.tag = STRUCTURE_TYPE24753; t101235.s1.value.structure_type24753 = &t101236; /* x185795 stalin.sc:25683:888584 */ t101234.s0.tag = STRUCTURE_TYPE24753; t101234.s0.value.structure_type24753 = &t101235; /* x185796 stalin.sc:25683:888584 */ t101234.s1.tag = NULL_TYPE; /* x185797 stalin.sc:25683:888584 */ t101233.s1.tag = STRUCTURE_TYPE24753; t101233.s1.value.structure_type24753 = &t101234; /* x185798 stalin.sc:25683:888584 */ t101232.s1.tag = STRUCTURE_TYPE24753; t101232.s1.value.structure_type24753 = &t101233; /* x185799 stalin.sc:25683:888584 */ t101231.s1.tag = STRUCTURE_TYPE24753; t101231.s1.value.structure_type24753 = &t101232; /* x185800 stalin.sc:25683:888584 */ t101230.s0.tag = STRUCTURE_TYPE24753; t101230.s0.value.structure_type24753 = &t101231; /* x185801 stalin.sc:25683:888584 */ t101230.s1.tag = NULL_TYPE; /* x185802 stalin.sc:25683:888584 */ t100938.s1.tag = STRUCTURE_TYPE24753; t100938.s1.value.structure_type24753 = &t101230; /* x185803 stalin.sc:25683:888584 */ t100657.s1.tag = STRUCTURE_TYPE24753; t100657.s1.value.structure_type24753 = &t100938; /* x185804 stalin.sc:25683:888584 */ t100548.s1.tag = STRUCTURE_TYPE24753; t100548.s1.value.structure_type24753 = &t100657; /* x185805 stalin.sc:25683:888584 */ t100495.s1.tag = STRUCTURE_TYPE24753; t100495.s1.value.structure_type24753 = &t100548; /* x185806 stalin.sc:25683:888584 */ t100435.s1.tag = STRUCTURE_TYPE24753; t100435.s1.value.structure_type24753 = &t100495; /* x185807 stalin.sc:25683:888584 */ t100377.s1.tag = STRUCTURE_TYPE24753; t100377.s1.value.structure_type24753 = &t100435; /* x185808 stalin.sc:25683:888584 */ t100365.s1.tag = STRUCTURE_TYPE24753; t100365.s1.value.structure_type24753 = &t100377; /* x185809 stalin.sc:25683:888584 */ t100356.s1.tag = STRUCTURE_TYPE24753; t100356.s1.value.structure_type24753 = &t100365; /* x185810 stalin.sc:25683:888584 */ t100355.s1.tag = STRUCTURE_TYPE24753; t100355.s1.value.structure_type24753 = &t100356; /* x185811 stalin.sc:25683:888584 */ t100354.s0.tag = STRUCTURE_TYPE24753; t100354.s0.value.structure_type24753 = &t100355; /* x185812 stalin.sc:25683:888584 */ t100354.s1.tag = NULL_TYPE; /* x185813 stalin.sc:25683:888584 */ t100352.s1.tag = STRUCTURE_TYPE24753; t100352.s1.value.structure_type24753 = &t100354; /* x185814 stalin.sc:25683:888584 */ t100351.s1.tag = STRUCTURE_TYPE24753; t100351.s1.value.structure_type24753 = &t100352; /* x185815 stalin.sc:25683:888584 */ t100350.s0.tag = STRUCTURE_TYPE24753; t100350.s0.value.structure_type24753 = &t100351; /* x185816 stalin.sc:25683:888584 */ t100350.s1.tag = NULL_TYPE; /* x185817 stalin.sc:25683:888584 */ t100349.s1.tag = STRUCTURE_TYPE24753; t100349.s1.value.structure_type24753 = &t100350; /* x185818 stalin.sc:25683:888584 */ t100348.s1.tag = STRUCTURE_TYPE24753; t100348.s1.value.structure_type24753 = &t100349; /* x185819 stalin.sc:25683:888584 */ t100347.s0.tag = STRUCTURE_TYPE24753; t100347.s0.value.structure_type24753 = &t100348; /* x185820 stalin.sc:25683:888584 */ t102471.s0.tag = EXTERNAL_SYMBOL_TYPE; t102471.s0.value.external_symbol_type = q42; /* x185821 stalin.sc:25683:888584 */ t102472.s0.tag = EXTERNAL_SYMBOL_TYPE; t102472.s0.value.external_symbol_type = q255; /* x185822 stalin.sc:25683:888584 */ t102474.s0.tag = EXTERNAL_SYMBOL_TYPE; t102474.s0.value.external_symbol_type = q39; /* x185823 stalin.sc:25683:888584 */ t102475.s0.tag = NULL_TYPE; /* x185824 stalin.sc:25683:888584 */ t102476.s0.tag = EXTERNAL_SYMBOL_TYPE; t102476.s0.value.external_symbol_type = q303; /* x185825 stalin.sc:25683:888584 */ t102476.s1.tag = NULL_TYPE; /* x185826 stalin.sc:25683:888584 */ t102475.s1.tag = STRUCTURE_TYPE24753; t102475.s1.value.structure_type24753 = &t102476; /* x185827 stalin.sc:25683:888584 */ t102474.s1.tag = STRUCTURE_TYPE24753; t102474.s1.value.structure_type24753 = &t102475; /* x185828 stalin.sc:25683:888584 */ t102473.s0.tag = STRUCTURE_TYPE24753; t102473.s0.value.structure_type24753 = &t102474; /* x185829 stalin.sc:25683:888584 */ t102473.s1.tag = NULL_TYPE; /* x185830 stalin.sc:25683:888584 */ t102472.s1.tag = STRUCTURE_TYPE24753; t102472.s1.value.structure_type24753 = &t102473; /* x185831 stalin.sc:25683:888584 */ t102471.s1.tag = STRUCTURE_TYPE24753; t102471.s1.value.structure_type24753 = &t102472; /* x185832 stalin.sc:25683:888584 */ t102470.s0.tag = STRUCTURE_TYPE24753; t102470.s0.value.structure_type24753 = &t102471; /* x185833 stalin.sc:25683:888584 */ t102478.s0.tag = EXTERNAL_SYMBOL_TYPE; t102478.s0.value.external_symbol_type = q42; /* x185834 stalin.sc:25683:888584 */ t102479.s0.tag = EXTERNAL_SYMBOL_TYPE; t102479.s0.value.external_symbol_type = q339; /* x185835 stalin.sc:25683:888584 */ t102481.s0.tag = EXTERNAL_SYMBOL_TYPE; t102481.s0.value.external_symbol_type = q39; /* x185836 stalin.sc:25683:888584 */ t102482.s0.tag = NULL_TYPE; /* x185837 stalin.sc:25683:888584 */ t102483.s0.tag = EXTERNAL_SYMBOL_TYPE; t102483.s0.value.external_symbol_type = q304; /* x185838 stalin.sc:25683:888584 */ t102483.s1.tag = NULL_TYPE; /* x185839 stalin.sc:25683:888584 */ t102482.s1.tag = STRUCTURE_TYPE24753; t102482.s1.value.structure_type24753 = &t102483; /* x185840 stalin.sc:25683:888584 */ t102481.s1.tag = STRUCTURE_TYPE24753; t102481.s1.value.structure_type24753 = &t102482; /* x185841 stalin.sc:25683:888584 */ t102480.s0.tag = STRUCTURE_TYPE24753; t102480.s0.value.structure_type24753 = &t102481; /* x185842 stalin.sc:25683:888584 */ t102480.s1.tag = NULL_TYPE; /* x185843 stalin.sc:25683:888584 */ t102479.s1.tag = STRUCTURE_TYPE24753; t102479.s1.value.structure_type24753 = &t102480; /* x185844 stalin.sc:25683:888584 */ t102478.s1.tag = STRUCTURE_TYPE24753; t102478.s1.value.structure_type24753 = &t102479; /* x185845 stalin.sc:25683:888584 */ t102477.s0.tag = STRUCTURE_TYPE24753; t102477.s0.value.structure_type24753 = &t102478; /* x185846 stalin.sc:25683:888584 */ t102485.s0.tag = EXTERNAL_SYMBOL_TYPE; t102485.s0.value.external_symbol_type = q42; /* x185847 stalin.sc:25683:888584 */ t102486.s0.tag = EXTERNAL_SYMBOL_TYPE; t102486.s0.value.external_symbol_type = q340; /* x185848 stalin.sc:25683:888584 */ t102488.s0.tag = EXTERNAL_SYMBOL_TYPE; t102488.s0.value.external_symbol_type = q39; /* x185849 stalin.sc:25683:888584 */ t102490.s0.tag = EXTERNAL_SYMBOL_TYPE; t102490.s0.value.external_symbol_type = q161; /* x185850 stalin.sc:25683:888584 */ t102491.s0.tag = EXTERNAL_SYMBOL_TYPE; t102491.s0.value.external_symbol_type = q341; /* x185851 stalin.sc:25683:888584 */ t102491.s1.tag = NULL_TYPE; /* x185852 stalin.sc:25683:888584 */ t102490.s1.tag = STRUCTURE_TYPE24753; t102490.s1.value.structure_type24753 = &t102491; /* x185853 stalin.sc:25683:888584 */ t102489.s0.tag = STRUCTURE_TYPE24753; t102489.s0.value.structure_type24753 = &t102490; /* x185854 stalin.sc:25683:888584 */ t102493.s0.tag = EXTERNAL_SYMBOL_TYPE; t102493.s0.value.external_symbol_type = q246; /* x185855 stalin.sc:25683:888584 */ t102496.s0.tag = EXTERNAL_SYMBOL_TYPE; t102496.s0.value.external_symbol_type = q342; /* x185856 stalin.sc:25683:888584 */ t102497.s0.tag = EXTERNAL_SYMBOL_TYPE; t102497.s0.value.external_symbol_type = q303; /* x185857 stalin.sc:25683:888584 */ t102497.s1.tag = NULL_TYPE; /* x185858 stalin.sc:25683:888584 */ t102496.s1.tag = STRUCTURE_TYPE24753; t102496.s1.value.structure_type24753 = &t102497; /* x185859 stalin.sc:25683:888584 */ t102495.s0.tag = STRUCTURE_TYPE24753; t102495.s0.value.structure_type24753 = &t102496; /* x185860 stalin.sc:25683:888584 */ t102499.s0.tag = EXTERNAL_SYMBOL_TYPE; t102499.s0.value.external_symbol_type = q251; /* x185861 stalin.sc:25683:888584 */ t102501.s0.tag = EXTERNAL_SYMBOL_TYPE; t102501.s0.value.external_symbol_type = q343; /* x185862 stalin.sc:25683:888584 */ t102502.s0.tag = EXTERNAL_SYMBOL_TYPE; t102502.s0.value.external_symbol_type = q161; /* x185863 stalin.sc:25683:888584 */ t102504.s0.tag = EXTERNAL_SYMBOL_TYPE; t102504.s0.value.external_symbol_type = q39; /* x185864 stalin.sc:25683:888584 */ t102506.s0.tag = EXTERNAL_SYMBOL_TYPE; t102506.s0.value.external_symbol_type = q254; /* x185865 stalin.sc:25683:888584 */ t102506.s1.tag = NULL_TYPE; /* x185866 stalin.sc:25683:888584 */ t102505.s0.tag = STRUCTURE_TYPE24753; t102505.s0.value.structure_type24753 = &t102506; /* x185867 stalin.sc:25683:888584 */ t102508.s0.tag = EXTERNAL_SYMBOL_TYPE; t102508.s0.value.external_symbol_type = q42; /* x185868 stalin.sc:25683:888584 */ t102509.s0.tag = EXTERNAL_SYMBOL_TYPE; t102509.s0.value.external_symbol_type = q303; /* x185869 stalin.sc:25683:888584 */ t102510.s0.tag = EXTERNAL_SYMBOL_TYPE; t102510.s0.value.external_symbol_type = q254; /* x185870 stalin.sc:25683:888584 */ t102510.s1.tag = NULL_TYPE; /* x185871 stalin.sc:25683:888584 */ t102509.s1.tag = STRUCTURE_TYPE24753; t102509.s1.value.structure_type24753 = &t102510; /* x185872 stalin.sc:25683:888584 */ t102508.s1.tag = STRUCTURE_TYPE24753; t102508.s1.value.structure_type24753 = &t102509; /* x185873 stalin.sc:25683:888584 */ t102507.s0.tag = STRUCTURE_TYPE24753; t102507.s0.value.structure_type24753 = &t102508; /* x185874 stalin.sc:25683:888584 */ t102512.s0.tag = EXTERNAL_SYMBOL_TYPE; t102512.s0.value.external_symbol_type = q341; /* x185875 stalin.sc:25683:888584 */ t102512.s1.tag = NULL_TYPE; /* x185876 stalin.sc:25683:888584 */ t102511.s0.tag = STRUCTURE_TYPE24753; t102511.s0.value.structure_type24753 = &t102512; /* x185877 stalin.sc:25683:888584 */ t102511.s1.tag = NULL_TYPE; /* x185878 stalin.sc:25683:888584 */ t102507.s1.tag = STRUCTURE_TYPE24753; t102507.s1.value.structure_type24753 = &t102511; /* x185879 stalin.sc:25683:888584 */ t102505.s1.tag = STRUCTURE_TYPE24753; t102505.s1.value.structure_type24753 = &t102507; /* x185880 stalin.sc:25683:888584 */ t102504.s1.tag = STRUCTURE_TYPE24753; t102504.s1.value.structure_type24753 = &t102505; /* x185881 stalin.sc:25683:888584 */ t102503.s0.tag = STRUCTURE_TYPE24753; t102503.s0.value.structure_type24753 = &t102504; /* x185882 stalin.sc:25683:888584 */ t102503.s1.tag = NULL_TYPE; /* x185883 stalin.sc:25683:888584 */ t102502.s1.tag = STRUCTURE_TYPE24753; t102502.s1.value.structure_type24753 = &t102503; /* x185884 stalin.sc:25683:888584 */ t102501.s1.tag = STRUCTURE_TYPE24753; t102501.s1.value.structure_type24753 = &t102502; /* x185885 stalin.sc:25683:888584 */ t102500.s0.tag = STRUCTURE_TYPE24753; t102500.s0.value.structure_type24753 = &t102501; /* x185886 stalin.sc:25683:888584 */ t102500.s1.tag = NULL_TYPE; /* x185887 stalin.sc:25683:888584 */ t102499.s1.tag = STRUCTURE_TYPE24753; t102499.s1.value.structure_type24753 = &t102500; /* x185888 stalin.sc:25683:888584 */ t102498.s0.tag = STRUCTURE_TYPE24753; t102498.s0.value.structure_type24753 = &t102499; /* x185889 stalin.sc:25683:888584 */ t102498.s1.tag = NULL_TYPE; /* x185890 stalin.sc:25683:888584 */ t102495.s1.tag = STRUCTURE_TYPE24753; t102495.s1.value.structure_type24753 = &t102498; /* x185891 stalin.sc:25683:888584 */ t102494.s0.tag = STRUCTURE_TYPE24753; t102494.s0.value.structure_type24753 = &t102495; /* x185892 stalin.sc:25683:888584 */ t102514.s0.tag = EXTERNAL_SYMBOL_TYPE; t102514.s0.value.external_symbol_type = q42; /* x185893 stalin.sc:25683:888584 */ t102515.s0.tag = EXTERNAL_SYMBOL_TYPE; t102515.s0.value.external_symbol_type = q303; /* x185894 stalin.sc:25683:888584 */ t102516.s0.tag = EXTERNAL_SYMBOL_TYPE; t102516.s0.value.external_symbol_type = q342; /* x185895 stalin.sc:25683:888584 */ t102516.s1.tag = NULL_TYPE; /* x185896 stalin.sc:25683:888584 */ t102515.s1.tag = STRUCTURE_TYPE24753; t102515.s1.value.structure_type24753 = &t102516; /* x185897 stalin.sc:25683:888584 */ t102514.s1.tag = STRUCTURE_TYPE24753; t102514.s1.value.structure_type24753 = &t102515; /* x185898 stalin.sc:25683:888584 */ t102513.s0.tag = STRUCTURE_TYPE24753; t102513.s0.value.structure_type24753 = &t102514; /* x185899 stalin.sc:25683:888584 */ t102517.s0.tag = EXTERNAL_SYMBOL_TYPE; t102517.s0.value.external_symbol_type = q251; /* x185900 stalin.sc:25683:888584 */ t102517.s1.tag = NULL_TYPE; /* x185901 stalin.sc:25683:888584 */ t102513.s1.tag = STRUCTURE_TYPE24753; t102513.s1.value.structure_type24753 = &t102517; /* x185902 stalin.sc:25683:888584 */ t102494.s1.tag = STRUCTURE_TYPE24753; t102494.s1.value.structure_type24753 = &t102513; /* x185903 stalin.sc:25683:888584 */ t102493.s1.tag = STRUCTURE_TYPE24753; t102493.s1.value.structure_type24753 = &t102494; /* x185904 stalin.sc:25683:888584 */ t102492.s0.tag = STRUCTURE_TYPE24753; t102492.s0.value.structure_type24753 = &t102493; /* x185905 stalin.sc:25683:888584 */ t102492.s1.tag = NULL_TYPE; /* x185906 stalin.sc:25683:888584 */ t102489.s1.tag = STRUCTURE_TYPE24753; t102489.s1.value.structure_type24753 = &t102492; /* x185907 stalin.sc:25683:888584 */ t102488.s1.tag = STRUCTURE_TYPE24753; t102488.s1.value.structure_type24753 = &t102489; /* x185908 stalin.sc:25683:888584 */ t102487.s0.tag = STRUCTURE_TYPE24753; t102487.s0.value.structure_type24753 = &t102488; /* x185909 stalin.sc:25683:888584 */ t102487.s1.tag = NULL_TYPE; /* x185910 stalin.sc:25683:888584 */ t102486.s1.tag = STRUCTURE_TYPE24753; t102486.s1.value.structure_type24753 = &t102487; /* x185911 stalin.sc:25683:888584 */ t102485.s1.tag = STRUCTURE_TYPE24753; t102485.s1.value.structure_type24753 = &t102486; /* x185912 stalin.sc:25683:888584 */ t102484.s0.tag = STRUCTURE_TYPE24753; t102484.s0.value.structure_type24753 = &t102485; /* x185913 stalin.sc:25683:888584 */ t102519.s0.tag = EXTERNAL_SYMBOL_TYPE; t102519.s0.value.external_symbol_type = q42; /* x185914 stalin.sc:25683:888584 */ t102520.s0.tag = EXTERNAL_SYMBOL_TYPE; t102520.s0.value.external_symbol_type = q344; /* x185915 stalin.sc:25683:888584 */ t102522.s0.tag = EXTERNAL_SYMBOL_TYPE; t102522.s0.value.external_symbol_type = q39; /* x185916 stalin.sc:25683:888584 */ t102524.s0.tag = EXTERNAL_SYMBOL_TYPE; t102524.s0.value.external_symbol_type = q161; /* x185917 stalin.sc:25683:888584 */ t102525.s0.tag = EXTERNAL_SYMBOL_TYPE; t102525.s0.value.external_symbol_type = q341; /* x185918 stalin.sc:25683:888584 */ t102525.s1.tag = NULL_TYPE; /* x185919 stalin.sc:25683:888584 */ t102524.s1.tag = STRUCTURE_TYPE24753; t102524.s1.value.structure_type24753 = &t102525; /* x185920 stalin.sc:25683:888584 */ t102523.s0.tag = STRUCTURE_TYPE24753; t102523.s0.value.structure_type24753 = &t102524; /* x185921 stalin.sc:25683:888584 */ t102527.s0.tag = EXTERNAL_SYMBOL_TYPE; t102527.s0.value.external_symbol_type = q246; /* x185922 stalin.sc:25683:888584 */ t102530.s0.tag = EXTERNAL_SYMBOL_TYPE; t102530.s0.value.external_symbol_type = q345; /* x185923 stalin.sc:25683:888584 */ t102531.s0.tag = EXTERNAL_SYMBOL_TYPE; t102531.s0.value.external_symbol_type = q304; /* x185924 stalin.sc:25683:888584 */ t102531.s1.tag = NULL_TYPE; /* x185925 stalin.sc:25683:888584 */ t102530.s1.tag = STRUCTURE_TYPE24753; t102530.s1.value.structure_type24753 = &t102531; /* x185926 stalin.sc:25683:888584 */ t102529.s0.tag = STRUCTURE_TYPE24753; t102529.s0.value.structure_type24753 = &t102530; /* x185927 stalin.sc:25683:888584 */ t102533.s0.tag = EXTERNAL_SYMBOL_TYPE; t102533.s0.value.external_symbol_type = q251; /* x185928 stalin.sc:25683:888584 */ t102535.s0.tag = EXTERNAL_SYMBOL_TYPE; t102535.s0.value.external_symbol_type = q346; /* x185929 stalin.sc:25683:888584 */ t102536.s0.tag = EXTERNAL_SYMBOL_TYPE; t102536.s0.value.external_symbol_type = q161; /* x185930 stalin.sc:25683:888584 */ t102538.s0.tag = EXTERNAL_SYMBOL_TYPE; t102538.s0.value.external_symbol_type = q39; /* x185931 stalin.sc:25683:888584 */ t102540.s0.tag = EXTERNAL_SYMBOL_TYPE; t102540.s0.value.external_symbol_type = q254; /* x185932 stalin.sc:25683:888584 */ t102540.s1.tag = NULL_TYPE; /* x185933 stalin.sc:25683:888584 */ t102539.s0.tag = STRUCTURE_TYPE24753; t102539.s0.value.structure_type24753 = &t102540; /* x185934 stalin.sc:25683:888584 */ t102542.s0.tag = EXTERNAL_SYMBOL_TYPE; t102542.s0.value.external_symbol_type = q42; /* x185935 stalin.sc:25683:888584 */ t102543.s0.tag = EXTERNAL_SYMBOL_TYPE; t102543.s0.value.external_symbol_type = q304; /* x185936 stalin.sc:25683:888584 */ t102544.s0.tag = EXTERNAL_SYMBOL_TYPE; t102544.s0.value.external_symbol_type = q254; /* x185937 stalin.sc:25683:888584 */ t102544.s1.tag = NULL_TYPE; /* x185938 stalin.sc:25683:888584 */ t102543.s1.tag = STRUCTURE_TYPE24753; t102543.s1.value.structure_type24753 = &t102544; /* x185939 stalin.sc:25683:888584 */ t102542.s1.tag = STRUCTURE_TYPE24753; t102542.s1.value.structure_type24753 = &t102543; /* x185940 stalin.sc:25683:888584 */ t102541.s0.tag = STRUCTURE_TYPE24753; t102541.s0.value.structure_type24753 = &t102542; /* x185941 stalin.sc:25683:888584 */ t102546.s0.tag = EXTERNAL_SYMBOL_TYPE; t102546.s0.value.external_symbol_type = q341; /* x185942 stalin.sc:25683:888584 */ t102546.s1.tag = NULL_TYPE; /* x185943 stalin.sc:25683:888584 */ t102545.s0.tag = STRUCTURE_TYPE24753; t102545.s0.value.structure_type24753 = &t102546; /* x185944 stalin.sc:25683:888584 */ t102545.s1.tag = NULL_TYPE; /* x185945 stalin.sc:25683:888584 */ t102541.s1.tag = STRUCTURE_TYPE24753; t102541.s1.value.structure_type24753 = &t102545; /* x185946 stalin.sc:25683:888584 */ t102539.s1.tag = STRUCTURE_TYPE24753; t102539.s1.value.structure_type24753 = &t102541; /* x185947 stalin.sc:25683:888584 */ t102538.s1.tag = STRUCTURE_TYPE24753; t102538.s1.value.structure_type24753 = &t102539; /* x185948 stalin.sc:25683:888584 */ t102537.s0.tag = STRUCTURE_TYPE24753; t102537.s0.value.structure_type24753 = &t102538; /* x185949 stalin.sc:25683:888584 */ t102537.s1.tag = NULL_TYPE; /* x185950 stalin.sc:25683:888584 */ t102536.s1.tag = STRUCTURE_TYPE24753; t102536.s1.value.structure_type24753 = &t102537; /* x185951 stalin.sc:25683:888584 */ t102535.s1.tag = STRUCTURE_TYPE24753; t102535.s1.value.structure_type24753 = &t102536; /* x185952 stalin.sc:25683:888584 */ t102534.s0.tag = STRUCTURE_TYPE24753; t102534.s0.value.structure_type24753 = &t102535; /* x185953 stalin.sc:25683:888584 */ t102534.s1.tag = NULL_TYPE; /* x185954 stalin.sc:25683:888584 */ t102533.s1.tag = STRUCTURE_TYPE24753; t102533.s1.value.structure_type24753 = &t102534; /* x185955 stalin.sc:25683:888584 */ t102532.s0.tag = STRUCTURE_TYPE24753; t102532.s0.value.structure_type24753 = &t102533; /* x185956 stalin.sc:25683:888584 */ t102532.s1.tag = NULL_TYPE; /* x185957 stalin.sc:25683:888584 */ t102529.s1.tag = STRUCTURE_TYPE24753; t102529.s1.value.structure_type24753 = &t102532; /* x185958 stalin.sc:25683:888584 */ t102528.s0.tag = STRUCTURE_TYPE24753; t102528.s0.value.structure_type24753 = &t102529; /* x185959 stalin.sc:25683:888584 */ t102548.s0.tag = EXTERNAL_SYMBOL_TYPE; t102548.s0.value.external_symbol_type = q42; /* x185960 stalin.sc:25683:888584 */ t102549.s0.tag = EXTERNAL_SYMBOL_TYPE; t102549.s0.value.external_symbol_type = q304; /* x185961 stalin.sc:25683:888584 */ t102550.s0.tag = EXTERNAL_SYMBOL_TYPE; t102550.s0.value.external_symbol_type = q345; /* x185962 stalin.sc:25683:888584 */ t102550.s1.tag = NULL_TYPE; /* x185963 stalin.sc:25683:888584 */ t102549.s1.tag = STRUCTURE_TYPE24753; t102549.s1.value.structure_type24753 = &t102550; /* x185964 stalin.sc:25683:888584 */ t102548.s1.tag = STRUCTURE_TYPE24753; t102548.s1.value.structure_type24753 = &t102549; /* x185965 stalin.sc:25683:888584 */ t102547.s0.tag = STRUCTURE_TYPE24753; t102547.s0.value.structure_type24753 = &t102548; /* x185966 stalin.sc:25683:888584 */ t102551.s0.tag = EXTERNAL_SYMBOL_TYPE; t102551.s0.value.external_symbol_type = q251; /* x185967 stalin.sc:25683:888584 */ t102551.s1.tag = NULL_TYPE; /* x185968 stalin.sc:25683:888584 */ t102547.s1.tag = STRUCTURE_TYPE24753; t102547.s1.value.structure_type24753 = &t102551; /* x185969 stalin.sc:25683:888584 */ t102528.s1.tag = STRUCTURE_TYPE24753; t102528.s1.value.structure_type24753 = &t102547; /* x185970 stalin.sc:25683:888584 */ t102527.s1.tag = STRUCTURE_TYPE24753; t102527.s1.value.structure_type24753 = &t102528; /* x185971 stalin.sc:25683:888584 */ t102526.s0.tag = STRUCTURE_TYPE24753; t102526.s0.value.structure_type24753 = &t102527; /* x185972 stalin.sc:25683:888584 */ t102526.s1.tag = NULL_TYPE; /* x185973 stalin.sc:25683:888584 */ t102523.s1.tag = STRUCTURE_TYPE24753; t102523.s1.value.structure_type24753 = &t102526; /* x185974 stalin.sc:25683:888584 */ t102522.s1.tag = STRUCTURE_TYPE24753; t102522.s1.value.structure_type24753 = &t102523; /* x185975 stalin.sc:25683:888584 */ t102521.s0.tag = STRUCTURE_TYPE24753; t102521.s0.value.structure_type24753 = &t102522; /* x185976 stalin.sc:25683:888584 */ t102521.s1.tag = NULL_TYPE; /* x185977 stalin.sc:25683:888584 */ t102520.s1.tag = STRUCTURE_TYPE24753; t102520.s1.value.structure_type24753 = &t102521; /* x185978 stalin.sc:25683:888584 */ t102519.s1.tag = STRUCTURE_TYPE24753; t102519.s1.value.structure_type24753 = &t102520; /* x185979 stalin.sc:25683:888584 */ t102518.s0.tag = STRUCTURE_TYPE24753; t102518.s0.value.structure_type24753 = &t102519; /* x185980 stalin.sc:25683:888584 */ t102553.s0.tag = EXTERNAL_SYMBOL_TYPE; t102553.s0.value.external_symbol_type = q42; /* x185981 stalin.sc:25683:888584 */ t102554.s0.tag = EXTERNAL_SYMBOL_TYPE; t102554.s0.value.external_symbol_type = q264; /* x185982 stalin.sc:25683:888584 */ t102556.s0.tag = EXTERNAL_SYMBOL_TYPE; t102556.s0.value.external_symbol_type = q39; /* x185983 stalin.sc:25683:888584 */ t102557.s0.tag = EXTERNAL_SYMBOL_TYPE; t102557.s0.value.external_symbol_type = q347; /* x185984 stalin.sc:25683:888584 */ t102559.s0.tag = EXTERNAL_SYMBOL_TYPE; t102559.s0.value.external_symbol_type = q240; /* x185985 stalin.sc:25683:888584 */ t102562.s0.tag = EXTERNAL_SYMBOL_TYPE; t102562.s0.value.external_symbol_type = q111; /* x185986 stalin.sc:25683:888584 */ t102563.s0.tag = EXTERNAL_SYMBOL_TYPE; t102563.s0.value.external_symbol_type = q347; /* x185987 stalin.sc:25683:888584 */ t102563.s1.tag = NULL_TYPE; /* x185988 stalin.sc:25683:888584 */ t102562.s1.tag = STRUCTURE_TYPE24753; t102562.s1.value.structure_type24753 = &t102563; /* x185989 stalin.sc:25683:888584 */ t102561.s0.tag = STRUCTURE_TYPE24753; t102561.s0.value.structure_type24753 = &t102562; /* x185990 stalin.sc:25683:888584 */ t102565.s0.tag = EXTERNAL_SYMBOL_TYPE; t102565.s0.value.external_symbol_type = q227; /* x185991 stalin.sc:25683:888584 */ t102566.s0.tag = EXTERNAL_SYMBOL_TYPE; t102566.s0.value.external_symbol_type = q303; /* x185992 stalin.sc:25683:888584 */ t102566.s1.tag = NULL_TYPE; /* x185993 stalin.sc:25683:888584 */ t102565.s1.tag = STRUCTURE_TYPE24753; t102565.s1.value.structure_type24753 = &t102566; /* x185994 stalin.sc:25683:888584 */ t102564.s0.tag = STRUCTURE_TYPE24753; t102564.s0.value.structure_type24753 = &t102565; /* x185995 stalin.sc:25683:888584 */ t102564.s1.tag = NULL_TYPE; /* x185996 stalin.sc:25683:888584 */ t102561.s1.tag = STRUCTURE_TYPE24753; t102561.s1.value.structure_type24753 = &t102564; /* x185997 stalin.sc:25683:888584 */ t102560.s0.tag = STRUCTURE_TYPE24753; t102560.s0.value.structure_type24753 = &t102561; /* x185998 stalin.sc:25683:888584 */ t102569.s0.tag = EXTERNAL_SYMBOL_TYPE; t102569.s0.value.external_symbol_type = q111; /* x185999 stalin.sc:25683:888584 */ t102571.s0.tag = EXTERNAL_SYMBOL_TYPE; t102571.s0.value.external_symbol_type = q108; /* x186000 stalin.sc:25683:888584 */ t102572.s0.tag = EXTERNAL_SYMBOL_TYPE; t102572.s0.value.external_symbol_type = q347; /* x186001 stalin.sc:25683:888584 */ t102572.s1.tag = NULL_TYPE; /* x186002 stalin.sc:25683:888584 */ t102571.s1.tag = STRUCTURE_TYPE24753; t102571.s1.value.structure_type24753 = &t102572; /* x186003 stalin.sc:25683:888584 */ t102570.s0.tag = STRUCTURE_TYPE24753; t102570.s0.value.structure_type24753 = &t102571; /* x186004 stalin.sc:25683:888584 */ t102570.s1.tag = NULL_TYPE; /* x186005 stalin.sc:25683:888584 */ t102569.s1.tag = STRUCTURE_TYPE24753; t102569.s1.value.structure_type24753 = &t102570; /* x186006 stalin.sc:25683:888584 */ t102568.s0.tag = STRUCTURE_TYPE24753; t102568.s0.value.structure_type24753 = &t102569; /* x186007 stalin.sc:25683:888584 */ t102574.s0.tag = EXTERNAL_SYMBOL_TYPE; t102574.s0.value.external_symbol_type = q227; /* x186008 stalin.sc:25683:888584 */ t102576.s0.tag = EXTERNAL_SYMBOL_TYPE; t102576.s0.value.external_symbol_type = q107; /* x186009 stalin.sc:25683:888584 */ t102577.s0.tag = EXTERNAL_SYMBOL_TYPE; t102577.s0.value.external_symbol_type = q347; /* x186010 stalin.sc:25683:888584 */ t102577.s1.tag = NULL_TYPE; /* x186011 stalin.sc:25683:888584 */ t102576.s1.tag = STRUCTURE_TYPE24753; t102576.s1.value.structure_type24753 = &t102577; /* x186012 stalin.sc:25683:888584 */ t102575.s0.tag = STRUCTURE_TYPE24753; t102575.s0.value.structure_type24753 = &t102576; /* x186013 stalin.sc:25683:888584 */ t102575.s1.tag = NULL_TYPE; /* x186014 stalin.sc:25683:888584 */ t102574.s1.tag = STRUCTURE_TYPE24753; t102574.s1.value.structure_type24753 = &t102575; /* x186015 stalin.sc:25683:888584 */ t102573.s0.tag = STRUCTURE_TYPE24753; t102573.s0.value.structure_type24753 = &t102574; /* x186016 stalin.sc:25683:888584 */ t102573.s1.tag = NULL_TYPE; /* x186017 stalin.sc:25683:888584 */ t102568.s1.tag = STRUCTURE_TYPE24753; t102568.s1.value.structure_type24753 = &t102573; /* x186018 stalin.sc:25683:888584 */ t102567.s0.tag = STRUCTURE_TYPE24753; t102567.s0.value.structure_type24753 = &t102568; /* x186019 stalin.sc:25683:888584 */ t102579.s0.tag = EXTERNAL_SYMBOL_TYPE; t102579.s0.value.external_symbol_type = q95; /* x186020 stalin.sc:25683:888584 */ t102581.s0.tag = EXTERNAL_SYMBOL_TYPE; t102581.s0.value.external_symbol_type = q179; /* x186021 stalin.sc:25683:888584 */ t102582.s0.tag = STRING_TYPE; t102582.s0.value.string_type = "Attempt to call READ-CHAR with the wrong number of arguments"; /* x186022 stalin.sc:25683:888584 */ t102582.s1.tag = NULL_TYPE; /* x186023 stalin.sc:25683:888584 */ t102581.s1.tag = STRUCTURE_TYPE24753; t102581.s1.value.structure_type24753 = &t102582; /* x186024 stalin.sc:25683:888584 */ t102580.s0.tag = STRUCTURE_TYPE24753; t102580.s0.value.structure_type24753 = &t102581; /* x186025 stalin.sc:25683:888584 */ t102580.s1.tag = NULL_TYPE; /* x186026 stalin.sc:25683:888584 */ t102579.s1.tag = STRUCTURE_TYPE24753; t102579.s1.value.structure_type24753 = &t102580; /* x186027 stalin.sc:25683:888584 */ t102578.s0.tag = STRUCTURE_TYPE24753; t102578.s0.value.structure_type24753 = &t102579; /* x186028 stalin.sc:25683:888584 */ t102578.s1.tag = NULL_TYPE; /* x186029 stalin.sc:25683:888584 */ t102567.s1.tag = STRUCTURE_TYPE24753; t102567.s1.value.structure_type24753 = &t102578; /* x186030 stalin.sc:25683:888584 */ t102560.s1.tag = STRUCTURE_TYPE24753; t102560.s1.value.structure_type24753 = &t102567; /* x186031 stalin.sc:25683:888584 */ t102559.s1.tag = STRUCTURE_TYPE24753; t102559.s1.value.structure_type24753 = &t102560; /* x186032 stalin.sc:25683:888584 */ t102558.s0.tag = STRUCTURE_TYPE24753; t102558.s0.value.structure_type24753 = &t102559; /* x186033 stalin.sc:25683:888584 */ t102558.s1.tag = NULL_TYPE; /* x186034 stalin.sc:25683:888584 */ t102557.s1.tag = STRUCTURE_TYPE24753; t102557.s1.value.structure_type24753 = &t102558; /* x186035 stalin.sc:25683:888584 */ t102556.s1.tag = STRUCTURE_TYPE24753; t102556.s1.value.structure_type24753 = &t102557; /* x186036 stalin.sc:25683:888584 */ t102555.s0.tag = STRUCTURE_TYPE24753; t102555.s0.value.structure_type24753 = &t102556; /* x186037 stalin.sc:25683:888584 */ t102555.s1.tag = NULL_TYPE; /* x186038 stalin.sc:25683:888584 */ t102554.s1.tag = STRUCTURE_TYPE24753; t102554.s1.value.structure_type24753 = &t102555; /* x186039 stalin.sc:25683:888584 */ t102553.s1.tag = STRUCTURE_TYPE24753; t102553.s1.value.structure_type24753 = &t102554; /* x186040 stalin.sc:25683:888584 */ t102552.s0.tag = STRUCTURE_TYPE24753; t102552.s0.value.structure_type24753 = &t102553; /* x186041 stalin.sc:25683:888584 */ t102584.s0.tag = EXTERNAL_SYMBOL_TYPE; t102584.s0.value.external_symbol_type = q42; /* x186042 stalin.sc:25683:888584 */ t102585.s0.tag = EXTERNAL_SYMBOL_TYPE; t102585.s0.value.external_symbol_type = q262; /* x186043 stalin.sc:25683:888584 */ t102587.s0.tag = EXTERNAL_SYMBOL_TYPE; t102587.s0.value.external_symbol_type = q39; /* x186044 stalin.sc:25683:888584 */ t102588.s0.tag = EXTERNAL_SYMBOL_TYPE; t102588.s0.value.external_symbol_type = q347; /* x186045 stalin.sc:25683:888584 */ t102590.s0.tag = EXTERNAL_SYMBOL_TYPE; t102590.s0.value.external_symbol_type = q240; /* x186046 stalin.sc:25683:888584 */ t102593.s0.tag = EXTERNAL_SYMBOL_TYPE; t102593.s0.value.external_symbol_type = q111; /* x186047 stalin.sc:25683:888584 */ t102594.s0.tag = EXTERNAL_SYMBOL_TYPE; t102594.s0.value.external_symbol_type = q347; /* x186048 stalin.sc:25683:888584 */ t102594.s1.tag = NULL_TYPE; /* x186049 stalin.sc:25683:888584 */ t102593.s1.tag = STRUCTURE_TYPE24753; t102593.s1.value.structure_type24753 = &t102594; /* x186050 stalin.sc:25683:888584 */ t102592.s0.tag = STRUCTURE_TYPE24753; t102592.s0.value.structure_type24753 = &t102593; /* x186051 stalin.sc:25683:888584 */ t102596.s0.tag = EXTERNAL_SYMBOL_TYPE; t102596.s0.value.external_symbol_type = q229; /* x186052 stalin.sc:25683:888584 */ t102597.s0.tag = EXTERNAL_SYMBOL_TYPE; t102597.s0.value.external_symbol_type = q303; /* x186053 stalin.sc:25683:888584 */ t102597.s1.tag = NULL_TYPE; /* x186054 stalin.sc:25683:888584 */ t102596.s1.tag = STRUCTURE_TYPE24753; t102596.s1.value.structure_type24753 = &t102597; /* x186055 stalin.sc:25683:888584 */ t102595.s0.tag = STRUCTURE_TYPE24753; t102595.s0.value.structure_type24753 = &t102596; /* x186056 stalin.sc:25683:888584 */ t102595.s1.tag = NULL_TYPE; /* x186057 stalin.sc:25683:888584 */ t102592.s1.tag = STRUCTURE_TYPE24753; t102592.s1.value.structure_type24753 = &t102595; /* x186058 stalin.sc:25683:888584 */ t102591.s0.tag = STRUCTURE_TYPE24753; t102591.s0.value.structure_type24753 = &t102592; /* x186059 stalin.sc:25683:888584 */ t102600.s0.tag = EXTERNAL_SYMBOL_TYPE; t102600.s0.value.external_symbol_type = q111; /* x186060 stalin.sc:25683:888584 */ t102602.s0.tag = EXTERNAL_SYMBOL_TYPE; t102602.s0.value.external_symbol_type = q108; /* x186061 stalin.sc:25683:888584 */ t102603.s0.tag = EXTERNAL_SYMBOL_TYPE; t102603.s0.value.external_symbol_type = q347; /* x186062 stalin.sc:25683:888584 */ t102603.s1.tag = NULL_TYPE; /* x186063 stalin.sc:25683:888584 */ t102602.s1.tag = STRUCTURE_TYPE24753; t102602.s1.value.structure_type24753 = &t102603; /* x186064 stalin.sc:25683:888584 */ t102601.s0.tag = STRUCTURE_TYPE24753; t102601.s0.value.structure_type24753 = &t102602; /* x186065 stalin.sc:25683:888584 */ t102601.s1.tag = NULL_TYPE; /* x186066 stalin.sc:25683:888584 */ t102600.s1.tag = STRUCTURE_TYPE24753; t102600.s1.value.structure_type24753 = &t102601; /* x186067 stalin.sc:25683:888584 */ t102599.s0.tag = STRUCTURE_TYPE24753; t102599.s0.value.structure_type24753 = &t102600; /* x186068 stalin.sc:25683:888584 */ t102605.s0.tag = EXTERNAL_SYMBOL_TYPE; t102605.s0.value.external_symbol_type = q229; /* x186069 stalin.sc:25683:888584 */ t102607.s0.tag = EXTERNAL_SYMBOL_TYPE; t102607.s0.value.external_symbol_type = q107; /* x186070 stalin.sc:25683:888584 */ t102608.s0.tag = EXTERNAL_SYMBOL_TYPE; t102608.s0.value.external_symbol_type = q347; /* x186071 stalin.sc:25683:888584 */ t102608.s1.tag = NULL_TYPE; /* x186072 stalin.sc:25683:888584 */ t102607.s1.tag = STRUCTURE_TYPE24753; t102607.s1.value.structure_type24753 = &t102608; /* x186073 stalin.sc:25683:888584 */ t102606.s0.tag = STRUCTURE_TYPE24753; t102606.s0.value.structure_type24753 = &t102607; /* x186074 stalin.sc:25683:888584 */ t102606.s1.tag = NULL_TYPE; /* x186075 stalin.sc:25683:888584 */ t102605.s1.tag = STRUCTURE_TYPE24753; t102605.s1.value.structure_type24753 = &t102606; /* x186076 stalin.sc:25683:888584 */ t102604.s0.tag = STRUCTURE_TYPE24753; t102604.s0.value.structure_type24753 = &t102605; /* x186077 stalin.sc:25683:888584 */ t102604.s1.tag = NULL_TYPE; /* x186078 stalin.sc:25683:888584 */ t102599.s1.tag = STRUCTURE_TYPE24753; t102599.s1.value.structure_type24753 = &t102604; /* x186079 stalin.sc:25683:888584 */ t102598.s0.tag = STRUCTURE_TYPE24753; t102598.s0.value.structure_type24753 = &t102599; /* x186080 stalin.sc:25683:888584 */ t102610.s0.tag = EXTERNAL_SYMBOL_TYPE; t102610.s0.value.external_symbol_type = q95; /* x186081 stalin.sc:25683:888584 */ t102612.s0.tag = EXTERNAL_SYMBOL_TYPE; t102612.s0.value.external_symbol_type = q179; /* x186082 stalin.sc:25683:888584 */ t102613.s0.tag = STRING_TYPE; t102613.s0.value.string_type = "Attempt to call PEEK-CHAR with the wrong number of arguments"; /* x186083 stalin.sc:25683:888584 */ t102613.s1.tag = NULL_TYPE; /* x186084 stalin.sc:25683:888584 */ t102612.s1.tag = STRUCTURE_TYPE24753; t102612.s1.value.structure_type24753 = &t102613; /* x186085 stalin.sc:25683:888584 */ t102611.s0.tag = STRUCTURE_TYPE24753; t102611.s0.value.structure_type24753 = &t102612; /* x186086 stalin.sc:25683:888584 */ t102611.s1.tag = NULL_TYPE; /* x186087 stalin.sc:25683:888584 */ t102610.s1.tag = STRUCTURE_TYPE24753; t102610.s1.value.structure_type24753 = &t102611; /* x186088 stalin.sc:25683:888584 */ t102609.s0.tag = STRUCTURE_TYPE24753; t102609.s0.value.structure_type24753 = &t102610; /* x186089 stalin.sc:25683:888584 */ t102609.s1.tag = NULL_TYPE; /* x186090 stalin.sc:25683:888584 */ t102598.s1.tag = STRUCTURE_TYPE24753; t102598.s1.value.structure_type24753 = &t102609; /* x186091 stalin.sc:25683:888584 */ t102591.s1.tag = STRUCTURE_TYPE24753; t102591.s1.value.structure_type24753 = &t102598; /* x186092 stalin.sc:25683:888584 */ t102590.s1.tag = STRUCTURE_TYPE24753; t102590.s1.value.structure_type24753 = &t102591; /* x186093 stalin.sc:25683:888584 */ t102589.s0.tag = STRUCTURE_TYPE24753; t102589.s0.value.structure_type24753 = &t102590; /* x186094 stalin.sc:25683:888584 */ t102589.s1.tag = NULL_TYPE; /* x186095 stalin.sc:25683:888584 */ t102588.s1.tag = STRUCTURE_TYPE24753; t102588.s1.value.structure_type24753 = &t102589; /* x186096 stalin.sc:25683:888584 */ t102587.s1.tag = STRUCTURE_TYPE24753; t102587.s1.value.structure_type24753 = &t102588; /* x186097 stalin.sc:25683:888584 */ t102586.s0.tag = STRUCTURE_TYPE24753; t102586.s0.value.structure_type24753 = &t102587; /* x186098 stalin.sc:25683:888584 */ t102586.s1.tag = NULL_TYPE; /* x186099 stalin.sc:25683:888584 */ t102585.s1.tag = STRUCTURE_TYPE24753; t102585.s1.value.structure_type24753 = &t102586; /* x186100 stalin.sc:25683:888584 */ t102584.s1.tag = STRUCTURE_TYPE24753; t102584.s1.value.structure_type24753 = &t102585; /* x186101 stalin.sc:25683:888584 */ t102583.s0.tag = STRUCTURE_TYPE24753; t102583.s0.value.structure_type24753 = &t102584; /* x186102 stalin.sc:25683:888584 */ t102615.s0.tag = EXTERNAL_SYMBOL_TYPE; t102615.s0.value.external_symbol_type = q42; /* x186103 stalin.sc:25683:888584 */ t102616.s0.tag = EXTERNAL_SYMBOL_TYPE; t102616.s0.value.external_symbol_type = q348; /* x186104 stalin.sc:25683:888584 */ t102618.s0.tag = EXTERNAL_SYMBOL_TYPE; t102618.s0.value.external_symbol_type = q39; /* x186105 stalin.sc:25683:888584 */ t102619.s0.tag = EXTERNAL_SYMBOL_TYPE; t102619.s0.value.external_symbol_type = q347; /* x186106 stalin.sc:25683:888584 */ t102621.s0.tag = EXTERNAL_SYMBOL_TYPE; t102621.s0.value.external_symbol_type = q240; /* x186107 stalin.sc:25683:888584 */ t102624.s0.tag = EXTERNAL_SYMBOL_TYPE; t102624.s0.value.external_symbol_type = q111; /* x186108 stalin.sc:25683:888584 */ t102625.s0.tag = EXTERNAL_SYMBOL_TYPE; t102625.s0.value.external_symbol_type = q347; /* x186109 stalin.sc:25683:888584 */ t102625.s1.tag = NULL_TYPE; /* x186110 stalin.sc:25683:888584 */ t102624.s1.tag = STRUCTURE_TYPE24753; t102624.s1.value.structure_type24753 = &t102625; /* x186111 stalin.sc:25683:888584 */ t102623.s0.tag = STRUCTURE_TYPE24753; t102623.s0.value.structure_type24753 = &t102624; /* x186112 stalin.sc:25683:888584 */ t102627.s0.tag = EXTERNAL_SYMBOL_TYPE; t102627.s0.value.external_symbol_type = q231; /* x186113 stalin.sc:25683:888584 */ t102628.s0.tag = EXTERNAL_SYMBOL_TYPE; t102628.s0.value.external_symbol_type = q303; /* x186114 stalin.sc:25683:888584 */ t102628.s1.tag = NULL_TYPE; /* x186115 stalin.sc:25683:888584 */ t102627.s1.tag = STRUCTURE_TYPE24753; t102627.s1.value.structure_type24753 = &t102628; /* x186116 stalin.sc:25683:888584 */ t102626.s0.tag = STRUCTURE_TYPE24753; t102626.s0.value.structure_type24753 = &t102627; /* x186117 stalin.sc:25683:888584 */ t102626.s1.tag = NULL_TYPE; /* x186118 stalin.sc:25683:888584 */ t102623.s1.tag = STRUCTURE_TYPE24753; t102623.s1.value.structure_type24753 = &t102626; /* x186119 stalin.sc:25683:888584 */ t102622.s0.tag = STRUCTURE_TYPE24753; t102622.s0.value.structure_type24753 = &t102623; /* x186120 stalin.sc:25683:888584 */ t102631.s0.tag = EXTERNAL_SYMBOL_TYPE; t102631.s0.value.external_symbol_type = q111; /* x186121 stalin.sc:25683:888584 */ t102633.s0.tag = EXTERNAL_SYMBOL_TYPE; t102633.s0.value.external_symbol_type = q108; /* x186122 stalin.sc:25683:888584 */ t102634.s0.tag = EXTERNAL_SYMBOL_TYPE; t102634.s0.value.external_symbol_type = q347; /* x186123 stalin.sc:25683:888584 */ t102634.s1.tag = NULL_TYPE; /* x186124 stalin.sc:25683:888584 */ t102633.s1.tag = STRUCTURE_TYPE24753; t102633.s1.value.structure_type24753 = &t102634; /* x186125 stalin.sc:25683:888584 */ t102632.s0.tag = STRUCTURE_TYPE24753; t102632.s0.value.structure_type24753 = &t102633; /* x186126 stalin.sc:25683:888584 */ t102632.s1.tag = NULL_TYPE; /* x186127 stalin.sc:25683:888584 */ t102631.s1.tag = STRUCTURE_TYPE24753; t102631.s1.value.structure_type24753 = &t102632; /* x186128 stalin.sc:25683:888584 */ t102630.s0.tag = STRUCTURE_TYPE24753; t102630.s0.value.structure_type24753 = &t102631; /* x186129 stalin.sc:25683:888584 */ t102636.s0.tag = EXTERNAL_SYMBOL_TYPE; t102636.s0.value.external_symbol_type = q231; /* x186130 stalin.sc:25683:888584 */ t102638.s0.tag = EXTERNAL_SYMBOL_TYPE; t102638.s0.value.external_symbol_type = q107; /* x186131 stalin.sc:25683:888584 */ t102639.s0.tag = EXTERNAL_SYMBOL_TYPE; t102639.s0.value.external_symbol_type = q347; /* x186132 stalin.sc:25683:888584 */ t102639.s1.tag = NULL_TYPE; /* x186133 stalin.sc:25683:888584 */ t102638.s1.tag = STRUCTURE_TYPE24753; t102638.s1.value.structure_type24753 = &t102639; /* x186134 stalin.sc:25683:888584 */ t102637.s0.tag = STRUCTURE_TYPE24753; t102637.s0.value.structure_type24753 = &t102638; /* x186135 stalin.sc:25683:888584 */ t102637.s1.tag = NULL_TYPE; /* x186136 stalin.sc:25683:888584 */ t102636.s1.tag = STRUCTURE_TYPE24753; t102636.s1.value.structure_type24753 = &t102637; /* x186137 stalin.sc:25683:888584 */ t102635.s0.tag = STRUCTURE_TYPE24753; t102635.s0.value.structure_type24753 = &t102636; /* x186138 stalin.sc:25683:888584 */ t102635.s1.tag = NULL_TYPE; /* x186139 stalin.sc:25683:888584 */ t102630.s1.tag = STRUCTURE_TYPE24753; t102630.s1.value.structure_type24753 = &t102635; /* x186140 stalin.sc:25683:888584 */ t102629.s0.tag = STRUCTURE_TYPE24753; t102629.s0.value.structure_type24753 = &t102630; /* x186141 stalin.sc:25683:888584 */ t102641.s0.tag = EXTERNAL_SYMBOL_TYPE; t102641.s0.value.external_symbol_type = q95; /* x186142 stalin.sc:25683:888584 */ t102643.s0.tag = EXTERNAL_SYMBOL_TYPE; t102643.s0.value.external_symbol_type = q179; /* x186143 stalin.sc:25683:888584 */ t102644.s0.tag = STRING_TYPE; t102644.s0.value.string_type = "Attempt to call CHAR-READY? with the wrong number of arguments"; /* x186144 stalin.sc:25683:888584 */ t102644.s1.tag = NULL_TYPE; /* x186145 stalin.sc:25683:888584 */ t102643.s1.tag = STRUCTURE_TYPE24753; t102643.s1.value.structure_type24753 = &t102644; /* x186146 stalin.sc:25683:888584 */ t102642.s0.tag = STRUCTURE_TYPE24753; t102642.s0.value.structure_type24753 = &t102643; /* x186147 stalin.sc:25683:888584 */ t102642.s1.tag = NULL_TYPE; /* x186148 stalin.sc:25683:888584 */ t102641.s1.tag = STRUCTURE_TYPE24753; t102641.s1.value.structure_type24753 = &t102642; /* x186149 stalin.sc:25683:888584 */ t102640.s0.tag = STRUCTURE_TYPE24753; t102640.s0.value.structure_type24753 = &t102641; /* x186150 stalin.sc:25683:888584 */ t102640.s1.tag = NULL_TYPE; /* x186151 stalin.sc:25683:888584 */ t102629.s1.tag = STRUCTURE_TYPE24753; t102629.s1.value.structure_type24753 = &t102640; /* x186152 stalin.sc:25683:888584 */ t102622.s1.tag = STRUCTURE_TYPE24753; t102622.s1.value.structure_type24753 = &t102629; /* x186153 stalin.sc:25683:888584 */ t102621.s1.tag = STRUCTURE_TYPE24753; t102621.s1.value.structure_type24753 = &t102622; /* x186154 stalin.sc:25683:888584 */ t102620.s0.tag = STRUCTURE_TYPE24753; t102620.s0.value.structure_type24753 = &t102621; /* x186155 stalin.sc:25683:888584 */ t102620.s1.tag = NULL_TYPE; /* x186156 stalin.sc:25683:888584 */ t102619.s1.tag = STRUCTURE_TYPE24753; t102619.s1.value.structure_type24753 = &t102620; /* x186157 stalin.sc:25683:888584 */ t102618.s1.tag = STRUCTURE_TYPE24753; t102618.s1.value.structure_type24753 = &t102619; /* x186158 stalin.sc:25683:888584 */ t102617.s0.tag = STRUCTURE_TYPE24753; t102617.s0.value.structure_type24753 = &t102618; /* x186159 stalin.sc:25683:888584 */ t102617.s1.tag = NULL_TYPE; /* x186160 stalin.sc:25683:888584 */ t102616.s1.tag = STRUCTURE_TYPE24753; t102616.s1.value.structure_type24753 = &t102617; /* x186161 stalin.sc:25683:888584 */ t102615.s1.tag = STRUCTURE_TYPE24753; t102615.s1.value.structure_type24753 = &t102616; /* x186162 stalin.sc:25683:888584 */ t102614.s0.tag = STRUCTURE_TYPE24753; t102614.s0.value.structure_type24753 = &t102615;} void initialize_constants40(void) {/* x186163 stalin.sc:25683:888584 */ t102646.s0.tag = EXTERNAL_SYMBOL_TYPE; t102646.s0.value.external_symbol_type = q42; /* x186164 stalin.sc:25683:888584 */ t102647.s0.tag = EXTERNAL_SYMBOL_TYPE; t102647.s0.value.external_symbol_type = q349; /* x186165 stalin.sc:25683:888584 */ t102649.s0.tag = EXTERNAL_SYMBOL_TYPE; t102649.s0.value.external_symbol_type = q39; /* x186166 stalin.sc:25683:888584 */ t102651.s0.tag = EXTERNAL_SYMBOL_TYPE; t102651.s0.value.external_symbol_type = q318; /* x186167 stalin.sc:25683:888584 */ t102651.s1.tag = EXTERNAL_SYMBOL_TYPE; t102651.s1.value.external_symbol_type = q347; /* x186168 stalin.sc:25683:888584 */ t102650.s0.tag = STRUCTURE_TYPE24753; t102650.s0.value.structure_type24753 = &t102651; /* x186169 stalin.sc:25683:888584 */ t102653.s0.tag = EXTERNAL_SYMBOL_TYPE; t102653.s0.value.external_symbol_type = q240; /* x186170 stalin.sc:25683:888584 */ t102656.s0.tag = EXTERNAL_SYMBOL_TYPE; t102656.s0.value.external_symbol_type = q111; /* x186171 stalin.sc:25683:888584 */ t102657.s0.tag = EXTERNAL_SYMBOL_TYPE; t102657.s0.value.external_symbol_type = q347; /* x186172 stalin.sc:25683:888584 */ t102657.s1.tag = NULL_TYPE; /* x186173 stalin.sc:25683:888584 */ t102656.s1.tag = STRUCTURE_TYPE24753; t102656.s1.value.structure_type24753 = &t102657; /* x186174 stalin.sc:25683:888584 */ t102655.s0.tag = STRUCTURE_TYPE24753; t102655.s0.value.structure_type24753 = &t102656; /* x186175 stalin.sc:25683:888584 */ t102659.s0.tag = EXTERNAL_SYMBOL_TYPE; t102659.s0.value.external_symbol_type = q317; /* x186176 stalin.sc:25683:888584 */ t102660.s0.tag = EXTERNAL_SYMBOL_TYPE; t102660.s0.value.external_symbol_type = q318; /* x186177 stalin.sc:25683:888584 */ t102661.s0.tag = EXTERNAL_SYMBOL_TYPE; t102661.s0.value.external_symbol_type = q304; /* x186178 stalin.sc:25683:888584 */ t102661.s1.tag = NULL_TYPE; /* x186179 stalin.sc:25683:888584 */ t102660.s1.tag = STRUCTURE_TYPE24753; t102660.s1.value.structure_type24753 = &t102661; /* x186180 stalin.sc:25683:888584 */ t102659.s1.tag = STRUCTURE_TYPE24753; t102659.s1.value.structure_type24753 = &t102660; /* x186181 stalin.sc:25683:888584 */ t102658.s0.tag = STRUCTURE_TYPE24753; t102658.s0.value.structure_type24753 = &t102659; /* x186182 stalin.sc:25683:888584 */ t102658.s1.tag = NULL_TYPE; /* x186183 stalin.sc:25683:888584 */ t102655.s1.tag = STRUCTURE_TYPE24753; t102655.s1.value.structure_type24753 = &t102658; /* x186184 stalin.sc:25683:888584 */ t102654.s0.tag = STRUCTURE_TYPE24753; t102654.s0.value.structure_type24753 = &t102655; /* x186185 stalin.sc:25683:888584 */ t102664.s0.tag = EXTERNAL_SYMBOL_TYPE; t102664.s0.value.external_symbol_type = q111; /* x186186 stalin.sc:25683:888584 */ t102666.s0.tag = EXTERNAL_SYMBOL_TYPE; t102666.s0.value.external_symbol_type = q108; /* x186187 stalin.sc:25683:888584 */ t102667.s0.tag = EXTERNAL_SYMBOL_TYPE; t102667.s0.value.external_symbol_type = q347; /* x186188 stalin.sc:25683:888584 */ t102667.s1.tag = NULL_TYPE; /* x186189 stalin.sc:25683:888584 */ t102666.s1.tag = STRUCTURE_TYPE24753; t102666.s1.value.structure_type24753 = &t102667; /* x186190 stalin.sc:25683:888584 */ t102665.s0.tag = STRUCTURE_TYPE24753; t102665.s0.value.structure_type24753 = &t102666; /* x186191 stalin.sc:25683:888584 */ t102665.s1.tag = NULL_TYPE; /* x186192 stalin.sc:25683:888584 */ t102664.s1.tag = STRUCTURE_TYPE24753; t102664.s1.value.structure_type24753 = &t102665; /* x186193 stalin.sc:25683:888584 */ t102663.s0.tag = STRUCTURE_TYPE24753; t102663.s0.value.structure_type24753 = &t102664; /* x186194 stalin.sc:25683:888584 */ t102669.s0.tag = EXTERNAL_SYMBOL_TYPE; t102669.s0.value.external_symbol_type = q317; /* x186195 stalin.sc:25683:888584 */ t102670.s0.tag = EXTERNAL_SYMBOL_TYPE; t102670.s0.value.external_symbol_type = q318; /* x186196 stalin.sc:25683:888584 */ t102672.s0.tag = EXTERNAL_SYMBOL_TYPE; t102672.s0.value.external_symbol_type = q107; /* x186197 stalin.sc:25683:888584 */ t102673.s0.tag = EXTERNAL_SYMBOL_TYPE; t102673.s0.value.external_symbol_type = q347; /* x186198 stalin.sc:25683:888584 */ t102673.s1.tag = NULL_TYPE; /* x186199 stalin.sc:25683:888584 */ t102672.s1.tag = STRUCTURE_TYPE24753; t102672.s1.value.structure_type24753 = &t102673; /* x186200 stalin.sc:25683:888584 */ t102671.s0.tag = STRUCTURE_TYPE24753; t102671.s0.value.structure_type24753 = &t102672; /* x186201 stalin.sc:25683:888584 */ t102671.s1.tag = NULL_TYPE; /* x186202 stalin.sc:25683:888584 */ t102670.s1.tag = STRUCTURE_TYPE24753; t102670.s1.value.structure_type24753 = &t102671; /* x186203 stalin.sc:25683:888584 */ t102669.s1.tag = STRUCTURE_TYPE24753; t102669.s1.value.structure_type24753 = &t102670; /* x186204 stalin.sc:25683:888584 */ t102668.s0.tag = STRUCTURE_TYPE24753; t102668.s0.value.structure_type24753 = &t102669; /* x186205 stalin.sc:25683:888584 */ t102668.s1.tag = NULL_TYPE; /* x186206 stalin.sc:25683:888584 */ t102663.s1.tag = STRUCTURE_TYPE24753; t102663.s1.value.structure_type24753 = &t102668; /* x186207 stalin.sc:25683:888584 */ t102662.s0.tag = STRUCTURE_TYPE24753; t102662.s0.value.structure_type24753 = &t102663; /* x186208 stalin.sc:25683:888584 */ t102675.s0.tag = EXTERNAL_SYMBOL_TYPE; t102675.s0.value.external_symbol_type = q95; /* x186209 stalin.sc:25683:888584 */ t102677.s0.tag = EXTERNAL_SYMBOL_TYPE; t102677.s0.value.external_symbol_type = q179; /* x186210 stalin.sc:25683:888584 */ t102678.s0.tag = STRING_TYPE; t102678.s0.value.string_type = "Attempt to call WRITE with the wrong number of arguments"; /* x186211 stalin.sc:25683:888584 */ t102678.s1.tag = NULL_TYPE; /* x186212 stalin.sc:25683:888584 */ t102677.s1.tag = STRUCTURE_TYPE24753; t102677.s1.value.structure_type24753 = &t102678; /* x186213 stalin.sc:25683:888584 */ t102676.s0.tag = STRUCTURE_TYPE24753; t102676.s0.value.structure_type24753 = &t102677; /* x186214 stalin.sc:25683:888584 */ t102676.s1.tag = NULL_TYPE; /* x186215 stalin.sc:25683:888584 */ t102675.s1.tag = STRUCTURE_TYPE24753; t102675.s1.value.structure_type24753 = &t102676; /* x186216 stalin.sc:25683:888584 */ t102674.s0.tag = STRUCTURE_TYPE24753; t102674.s0.value.structure_type24753 = &t102675; /* x186217 stalin.sc:25683:888584 */ t102674.s1.tag = NULL_TYPE; /* x186218 stalin.sc:25683:888584 */ t102662.s1.tag = STRUCTURE_TYPE24753; t102662.s1.value.structure_type24753 = &t102674; /* x186219 stalin.sc:25683:888584 */ t102654.s1.tag = STRUCTURE_TYPE24753; t102654.s1.value.structure_type24753 = &t102662; /* x186220 stalin.sc:25683:888584 */ t102653.s1.tag = STRUCTURE_TYPE24753; t102653.s1.value.structure_type24753 = &t102654; /* x186221 stalin.sc:25683:888584 */ t102652.s0.tag = STRUCTURE_TYPE24753; t102652.s0.value.structure_type24753 = &t102653; /* x186222 stalin.sc:25683:888584 */ t102652.s1.tag = NULL_TYPE; /* x186223 stalin.sc:25683:888584 */ t102650.s1.tag = STRUCTURE_TYPE24753; t102650.s1.value.structure_type24753 = &t102652; /* x186224 stalin.sc:25683:888584 */ t102649.s1.tag = STRUCTURE_TYPE24753; t102649.s1.value.structure_type24753 = &t102650; /* x186225 stalin.sc:25683:888584 */ t102648.s0.tag = STRUCTURE_TYPE24753; t102648.s0.value.structure_type24753 = &t102649; /* x186226 stalin.sc:25683:888584 */ t102648.s1.tag = NULL_TYPE; /* x186227 stalin.sc:25683:888584 */ t102647.s1.tag = STRUCTURE_TYPE24753; t102647.s1.value.structure_type24753 = &t102648; /* x186228 stalin.sc:25683:888584 */ t102646.s1.tag = STRUCTURE_TYPE24753; t102646.s1.value.structure_type24753 = &t102647; /* x186229 stalin.sc:25683:888584 */ t102645.s0.tag = STRUCTURE_TYPE24753; t102645.s0.value.structure_type24753 = &t102646; /* x186230 stalin.sc:25683:888584 */ t102680.s0.tag = EXTERNAL_SYMBOL_TYPE; t102680.s0.value.external_symbol_type = q42; /* x186231 stalin.sc:25683:888584 */ t102681.s0.tag = EXTERNAL_SYMBOL_TYPE; t102681.s0.value.external_symbol_type = q350; /* x186232 stalin.sc:25683:888584 */ t102683.s0.tag = EXTERNAL_SYMBOL_TYPE; t102683.s0.value.external_symbol_type = q39; /* x186233 stalin.sc:25683:888584 */ t102685.s0.tag = EXTERNAL_SYMBOL_TYPE; t102685.s0.value.external_symbol_type = q318; /* x186234 stalin.sc:25683:888584 */ t102685.s1.tag = EXTERNAL_SYMBOL_TYPE; t102685.s1.value.external_symbol_type = q347; /* x186235 stalin.sc:25683:888584 */ t102684.s0.tag = STRUCTURE_TYPE24753; t102684.s0.value.structure_type24753 = &t102685; /* x186236 stalin.sc:25683:888584 */ t102687.s0.tag = EXTERNAL_SYMBOL_TYPE; t102687.s0.value.external_symbol_type = q240; /* x186237 stalin.sc:25683:888584 */ t102690.s0.tag = EXTERNAL_SYMBOL_TYPE; t102690.s0.value.external_symbol_type = q111; /* x186238 stalin.sc:25683:888584 */ t102691.s0.tag = EXTERNAL_SYMBOL_TYPE; t102691.s0.value.external_symbol_type = q347; /* x186239 stalin.sc:25683:888584 */ t102691.s1.tag = NULL_TYPE; /* x186240 stalin.sc:25683:888584 */ t102690.s1.tag = STRUCTURE_TYPE24753; t102690.s1.value.structure_type24753 = &t102691; /* x186241 stalin.sc:25683:888584 */ t102689.s0.tag = STRUCTURE_TYPE24753; t102689.s0.value.structure_type24753 = &t102690; /* x186242 stalin.sc:25683:888584 */ t102693.s0.tag = EXTERNAL_SYMBOL_TYPE; t102693.s0.value.external_symbol_type = q319; /* x186243 stalin.sc:25683:888584 */ t102694.s0.tag = EXTERNAL_SYMBOL_TYPE; t102694.s0.value.external_symbol_type = q318; /* x186244 stalin.sc:25683:888584 */ t102695.s0.tag = EXTERNAL_SYMBOL_TYPE; t102695.s0.value.external_symbol_type = q304; /* x186245 stalin.sc:25683:888584 */ t102695.s1.tag = NULL_TYPE; /* x186246 stalin.sc:25683:888584 */ t102694.s1.tag = STRUCTURE_TYPE24753; t102694.s1.value.structure_type24753 = &t102695; /* x186247 stalin.sc:25683:888584 */ t102693.s1.tag = STRUCTURE_TYPE24753; t102693.s1.value.structure_type24753 = &t102694; /* x186248 stalin.sc:25683:888584 */ t102692.s0.tag = STRUCTURE_TYPE24753; t102692.s0.value.structure_type24753 = &t102693; /* x186249 stalin.sc:25683:888584 */ t102692.s1.tag = NULL_TYPE; /* x186250 stalin.sc:25683:888584 */ t102689.s1.tag = STRUCTURE_TYPE24753; t102689.s1.value.structure_type24753 = &t102692; /* x186251 stalin.sc:25683:888584 */ t102688.s0.tag = STRUCTURE_TYPE24753; t102688.s0.value.structure_type24753 = &t102689; /* x186252 stalin.sc:25683:888584 */ t102698.s0.tag = EXTERNAL_SYMBOL_TYPE; t102698.s0.value.external_symbol_type = q111; /* x186253 stalin.sc:25683:888584 */ t102700.s0.tag = EXTERNAL_SYMBOL_TYPE; t102700.s0.value.external_symbol_type = q108; /* x186254 stalin.sc:25683:888584 */ t102701.s0.tag = EXTERNAL_SYMBOL_TYPE; t102701.s0.value.external_symbol_type = q347; /* x186255 stalin.sc:25683:888584 */ t102701.s1.tag = NULL_TYPE; /* x186256 stalin.sc:25683:888584 */ t102700.s1.tag = STRUCTURE_TYPE24753; t102700.s1.value.structure_type24753 = &t102701; /* x186257 stalin.sc:25683:888584 */ t102699.s0.tag = STRUCTURE_TYPE24753; t102699.s0.value.structure_type24753 = &t102700; /* x186258 stalin.sc:25683:888584 */ t102699.s1.tag = NULL_TYPE; /* x186259 stalin.sc:25683:888584 */ t102698.s1.tag = STRUCTURE_TYPE24753; t102698.s1.value.structure_type24753 = &t102699; /* x186260 stalin.sc:25683:888584 */ t102697.s0.tag = STRUCTURE_TYPE24753; t102697.s0.value.structure_type24753 = &t102698; /* x186261 stalin.sc:25683:888584 */ t102703.s0.tag = EXTERNAL_SYMBOL_TYPE; t102703.s0.value.external_symbol_type = q319; /* x186262 stalin.sc:25683:888584 */ t102704.s0.tag = EXTERNAL_SYMBOL_TYPE; t102704.s0.value.external_symbol_type = q318; /* x186263 stalin.sc:25683:888584 */ t102706.s0.tag = EXTERNAL_SYMBOL_TYPE; t102706.s0.value.external_symbol_type = q107; /* x186264 stalin.sc:25683:888584 */ t102707.s0.tag = EXTERNAL_SYMBOL_TYPE; t102707.s0.value.external_symbol_type = q347; /* x186265 stalin.sc:25683:888584 */ t102707.s1.tag = NULL_TYPE; /* x186266 stalin.sc:25683:888584 */ t102706.s1.tag = STRUCTURE_TYPE24753; t102706.s1.value.structure_type24753 = &t102707; /* x186267 stalin.sc:25683:888584 */ t102705.s0.tag = STRUCTURE_TYPE24753; t102705.s0.value.structure_type24753 = &t102706; /* x186268 stalin.sc:25683:888584 */ t102705.s1.tag = NULL_TYPE; /* x186269 stalin.sc:25683:888584 */ t102704.s1.tag = STRUCTURE_TYPE24753; t102704.s1.value.structure_type24753 = &t102705; /* x186270 stalin.sc:25683:888584 */ t102703.s1.tag = STRUCTURE_TYPE24753; t102703.s1.value.structure_type24753 = &t102704; /* x186271 stalin.sc:25683:888584 */ t102702.s0.tag = STRUCTURE_TYPE24753; t102702.s0.value.structure_type24753 = &t102703; /* x186272 stalin.sc:25683:888584 */ t102702.s1.tag = NULL_TYPE; /* x186273 stalin.sc:25683:888584 */ t102697.s1.tag = STRUCTURE_TYPE24753; t102697.s1.value.structure_type24753 = &t102702; /* x186274 stalin.sc:25683:888584 */ t102696.s0.tag = STRUCTURE_TYPE24753; t102696.s0.value.structure_type24753 = &t102697; /* x186275 stalin.sc:25683:888584 */ t102709.s0.tag = EXTERNAL_SYMBOL_TYPE; t102709.s0.value.external_symbol_type = q95; /* x186276 stalin.sc:25683:888584 */ t102711.s0.tag = EXTERNAL_SYMBOL_TYPE; t102711.s0.value.external_symbol_type = q179; /* x186277 stalin.sc:25683:888584 */ t102712.s0.tag = STRING_TYPE; t102712.s0.value.string_type = "Attempt to call DISPLAY with the wrong number of arguments"; /* x186278 stalin.sc:25683:888584 */ t102712.s1.tag = NULL_TYPE; /* x186279 stalin.sc:25683:888584 */ t102711.s1.tag = STRUCTURE_TYPE24753; t102711.s1.value.structure_type24753 = &t102712; /* x186280 stalin.sc:25683:888584 */ t102710.s0.tag = STRUCTURE_TYPE24753; t102710.s0.value.structure_type24753 = &t102711; /* x186281 stalin.sc:25683:888584 */ t102710.s1.tag = NULL_TYPE; /* x186282 stalin.sc:25683:888584 */ t102709.s1.tag = STRUCTURE_TYPE24753; t102709.s1.value.structure_type24753 = &t102710; /* x186283 stalin.sc:25683:888584 */ t102708.s0.tag = STRUCTURE_TYPE24753; t102708.s0.value.structure_type24753 = &t102709; /* x186284 stalin.sc:25683:888584 */ t102708.s1.tag = NULL_TYPE; /* x186285 stalin.sc:25683:888584 */ t102696.s1.tag = STRUCTURE_TYPE24753; t102696.s1.value.structure_type24753 = &t102708; /* x186286 stalin.sc:25683:888584 */ t102688.s1.tag = STRUCTURE_TYPE24753; t102688.s1.value.structure_type24753 = &t102696; /* x186287 stalin.sc:25683:888584 */ t102687.s1.tag = STRUCTURE_TYPE24753; t102687.s1.value.structure_type24753 = &t102688; /* x186288 stalin.sc:25683:888584 */ t102686.s0.tag = STRUCTURE_TYPE24753; t102686.s0.value.structure_type24753 = &t102687; /* x186289 stalin.sc:25683:888584 */ t102686.s1.tag = NULL_TYPE; /* x186290 stalin.sc:25683:888584 */ t102684.s1.tag = STRUCTURE_TYPE24753; t102684.s1.value.structure_type24753 = &t102686; /* x186291 stalin.sc:25683:888584 */ t102683.s1.tag = STRUCTURE_TYPE24753; t102683.s1.value.structure_type24753 = &t102684; /* x186292 stalin.sc:25683:888584 */ t102682.s0.tag = STRUCTURE_TYPE24753; t102682.s0.value.structure_type24753 = &t102683; /* x186293 stalin.sc:25683:888584 */ t102682.s1.tag = NULL_TYPE; /* x186294 stalin.sc:25683:888584 */ t102681.s1.tag = STRUCTURE_TYPE24753; t102681.s1.value.structure_type24753 = &t102682; /* x186295 stalin.sc:25683:888584 */ t102680.s1.tag = STRUCTURE_TYPE24753; t102680.s1.value.structure_type24753 = &t102681; /* x186296 stalin.sc:25683:888584 */ t102679.s0.tag = STRUCTURE_TYPE24753; t102679.s0.value.structure_type24753 = &t102680; /* x186297 stalin.sc:25683:888584 */ t102714.s0.tag = EXTERNAL_SYMBOL_TYPE; t102714.s0.value.external_symbol_type = q42; /* x186298 stalin.sc:25683:888584 */ t102715.s0.tag = EXTERNAL_SYMBOL_TYPE; t102715.s0.value.external_symbol_type = q351; /* x186299 stalin.sc:25683:888584 */ t102717.s0.tag = EXTERNAL_SYMBOL_TYPE; t102717.s0.value.external_symbol_type = q39; /* x186300 stalin.sc:25683:888584 */ t102718.s0.tag = EXTERNAL_SYMBOL_TYPE; t102718.s0.value.external_symbol_type = q347; /* x186301 stalin.sc:25683:888584 */ t102720.s0.tag = EXTERNAL_SYMBOL_TYPE; t102720.s0.value.external_symbol_type = q240; /* x186302 stalin.sc:25683:888584 */ t102723.s0.tag = EXTERNAL_SYMBOL_TYPE; t102723.s0.value.external_symbol_type = q111; /* x186303 stalin.sc:25683:888584 */ t102724.s0.tag = EXTERNAL_SYMBOL_TYPE; t102724.s0.value.external_symbol_type = q347; /* x186304 stalin.sc:25683:888584 */ t102724.s1.tag = NULL_TYPE; /* x186305 stalin.sc:25683:888584 */ t102723.s1.tag = STRUCTURE_TYPE24753; t102723.s1.value.structure_type24753 = &t102724; /* x186306 stalin.sc:25683:888584 */ t102722.s0.tag = STRUCTURE_TYPE24753; t102722.s0.value.structure_type24753 = &t102723; /* x186307 stalin.sc:25683:888584 */ t102726.s0.tag = EXTERNAL_SYMBOL_TYPE; t102726.s0.value.external_symbol_type = q234; /* x186308 stalin.sc:25683:888584 */ t102727.s0.tag = ((unsigned)((unsigned char)'\n'))<<2; /* x186309 stalin.sc:25683:888584 */ t102728.s0.tag = EXTERNAL_SYMBOL_TYPE; t102728.s0.value.external_symbol_type = q304; /* x186310 stalin.sc:25683:888584 */ t102728.s1.tag = NULL_TYPE; /* x186311 stalin.sc:25683:888584 */ t102727.s1.tag = STRUCTURE_TYPE24753; t102727.s1.value.structure_type24753 = &t102728; /* x186312 stalin.sc:25683:888584 */ t102726.s1.tag = STRUCTURE_TYPE24753; t102726.s1.value.structure_type24753 = &t102727; /* x186313 stalin.sc:25683:888584 */ t102725.s0.tag = STRUCTURE_TYPE24753; t102725.s0.value.structure_type24753 = &t102726; /* x186314 stalin.sc:25683:888584 */ t102725.s1.tag = NULL_TYPE; /* x186315 stalin.sc:25683:888584 */ t102722.s1.tag = STRUCTURE_TYPE24753; t102722.s1.value.structure_type24753 = &t102725; /* x186316 stalin.sc:25683:888584 */ t102721.s0.tag = STRUCTURE_TYPE24753; t102721.s0.value.structure_type24753 = &t102722; /* x186317 stalin.sc:25683:888584 */ t102731.s0.tag = EXTERNAL_SYMBOL_TYPE; t102731.s0.value.external_symbol_type = q111; /* x186318 stalin.sc:25683:888584 */ t102733.s0.tag = EXTERNAL_SYMBOL_TYPE; t102733.s0.value.external_symbol_type = q108; /* x186319 stalin.sc:25683:888584 */ t102734.s0.tag = EXTERNAL_SYMBOL_TYPE; t102734.s0.value.external_symbol_type = q347; /* x186320 stalin.sc:25683:888584 */ t102734.s1.tag = NULL_TYPE; /* x186321 stalin.sc:25683:888584 */ t102733.s1.tag = STRUCTURE_TYPE24753; t102733.s1.value.structure_type24753 = &t102734; /* x186322 stalin.sc:25683:888584 */ t102732.s0.tag = STRUCTURE_TYPE24753; t102732.s0.value.structure_type24753 = &t102733; /* x186323 stalin.sc:25683:888584 */ t102732.s1.tag = NULL_TYPE; /* x186324 stalin.sc:25683:888584 */ t102731.s1.tag = STRUCTURE_TYPE24753; t102731.s1.value.structure_type24753 = &t102732; /* x186325 stalin.sc:25683:888584 */ t102730.s0.tag = STRUCTURE_TYPE24753; t102730.s0.value.structure_type24753 = &t102731; /* x186326 stalin.sc:25683:888584 */ t102736.s0.tag = EXTERNAL_SYMBOL_TYPE; t102736.s0.value.external_symbol_type = q234; /* x186327 stalin.sc:25683:888584 */ t102737.s0.tag = ((unsigned)((unsigned char)'\n'))<<2; /* x186328 stalin.sc:25683:888584 */ t102739.s0.tag = EXTERNAL_SYMBOL_TYPE; t102739.s0.value.external_symbol_type = q107; /* x186329 stalin.sc:25683:888584 */ t102740.s0.tag = EXTERNAL_SYMBOL_TYPE; t102740.s0.value.external_symbol_type = q347; /* x186330 stalin.sc:25683:888584 */ t102740.s1.tag = NULL_TYPE; /* x186331 stalin.sc:25683:888584 */ t102739.s1.tag = STRUCTURE_TYPE24753; t102739.s1.value.structure_type24753 = &t102740; /* x186332 stalin.sc:25683:888584 */ t102738.s0.tag = STRUCTURE_TYPE24753; t102738.s0.value.structure_type24753 = &t102739; /* x186333 stalin.sc:25683:888584 */ t102738.s1.tag = NULL_TYPE; /* x186334 stalin.sc:25683:888584 */ t102737.s1.tag = STRUCTURE_TYPE24753; t102737.s1.value.structure_type24753 = &t102738; /* x186335 stalin.sc:25683:888584 */ t102736.s1.tag = STRUCTURE_TYPE24753; t102736.s1.value.structure_type24753 = &t102737; /* x186336 stalin.sc:25683:888584 */ t102735.s0.tag = STRUCTURE_TYPE24753; t102735.s0.value.structure_type24753 = &t102736; /* x186337 stalin.sc:25683:888584 */ t102735.s1.tag = NULL_TYPE; /* x186338 stalin.sc:25683:888584 */ t102730.s1.tag = STRUCTURE_TYPE24753; t102730.s1.value.structure_type24753 = &t102735; /* x186339 stalin.sc:25683:888584 */ t102729.s0.tag = STRUCTURE_TYPE24753; t102729.s0.value.structure_type24753 = &t102730; /* x186340 stalin.sc:25683:888584 */ t102742.s0.tag = EXTERNAL_SYMBOL_TYPE; t102742.s0.value.external_symbol_type = q95; /* x186341 stalin.sc:25683:888584 */ t102744.s0.tag = EXTERNAL_SYMBOL_TYPE; t102744.s0.value.external_symbol_type = q179; /* x186342 stalin.sc:25683:888584 */ t102745.s0.tag = STRING_TYPE; t102745.s0.value.string_type = "Attempt to call NEWLINE with the wrong number of arguments"; /* x186343 stalin.sc:25683:888584 */ t102745.s1.tag = NULL_TYPE; /* x186344 stalin.sc:25683:888584 */ t102744.s1.tag = STRUCTURE_TYPE24753; t102744.s1.value.structure_type24753 = &t102745; /* x186345 stalin.sc:25683:888584 */ t102743.s0.tag = STRUCTURE_TYPE24753; t102743.s0.value.structure_type24753 = &t102744; /* x186346 stalin.sc:25683:888584 */ t102743.s1.tag = NULL_TYPE; /* x186347 stalin.sc:25683:888584 */ t102742.s1.tag = STRUCTURE_TYPE24753; t102742.s1.value.structure_type24753 = &t102743; /* x186348 stalin.sc:25683:888584 */ t102741.s0.tag = STRUCTURE_TYPE24753; t102741.s0.value.structure_type24753 = &t102742; /* x186349 stalin.sc:25683:888584 */ t102741.s1.tag = NULL_TYPE; /* x186350 stalin.sc:25683:888584 */ t102729.s1.tag = STRUCTURE_TYPE24753; t102729.s1.value.structure_type24753 = &t102741; /* x186351 stalin.sc:25683:888584 */ t102721.s1.tag = STRUCTURE_TYPE24753; t102721.s1.value.structure_type24753 = &t102729; /* x186352 stalin.sc:25683:888584 */ t102720.s1.tag = STRUCTURE_TYPE24753; t102720.s1.value.structure_type24753 = &t102721; /* x186353 stalin.sc:25683:888584 */ t102719.s0.tag = STRUCTURE_TYPE24753; t102719.s0.value.structure_type24753 = &t102720; /* x186354 stalin.sc:25683:888584 */ t102719.s1.tag = NULL_TYPE; /* x186355 stalin.sc:25683:888584 */ t102718.s1.tag = STRUCTURE_TYPE24753; t102718.s1.value.structure_type24753 = &t102719; /* x186356 stalin.sc:25683:888584 */ t102717.s1.tag = STRUCTURE_TYPE24753; t102717.s1.value.structure_type24753 = &t102718; /* x186357 stalin.sc:25683:888584 */ t102716.s0.tag = STRUCTURE_TYPE24753; t102716.s0.value.structure_type24753 = &t102717; /* x186358 stalin.sc:25683:888584 */ t102716.s1.tag = NULL_TYPE; /* x186359 stalin.sc:25683:888584 */ t102715.s1.tag = STRUCTURE_TYPE24753; t102715.s1.value.structure_type24753 = &t102716; /* x186360 stalin.sc:25683:888584 */ t102714.s1.tag = STRUCTURE_TYPE24753; t102714.s1.value.structure_type24753 = &t102715; /* x186361 stalin.sc:25683:888584 */ t102713.s0.tag = STRUCTURE_TYPE24753; t102713.s0.value.structure_type24753 = &t102714; /* x186362 stalin.sc:25683:888584 */ t102747.s0.tag = EXTERNAL_SYMBOL_TYPE; t102747.s0.value.external_symbol_type = q42; /* x186363 stalin.sc:25683:888584 */ t102748.s0.tag = EXTERNAL_SYMBOL_TYPE; t102748.s0.value.external_symbol_type = q352; /* x186364 stalin.sc:25683:888584 */ t102750.s0.tag = EXTERNAL_SYMBOL_TYPE; t102750.s0.value.external_symbol_type = q39; /* x186365 stalin.sc:25683:888584 */ t102752.s0.tag = EXTERNAL_SYMBOL_TYPE; t102752.s0.value.external_symbol_type = q56; /* x186366 stalin.sc:25683:888584 */ t102752.s1.tag = EXTERNAL_SYMBOL_TYPE; t102752.s1.value.external_symbol_type = q347; /* x186367 stalin.sc:25683:888584 */ t102751.s0.tag = STRUCTURE_TYPE24753; t102751.s0.value.structure_type24753 = &t102752; /* x186368 stalin.sc:25683:888584 */ t102754.s0.tag = EXTERNAL_SYMBOL_TYPE; t102754.s0.value.external_symbol_type = q240; /* x186369 stalin.sc:25683:888584 */ t102757.s0.tag = EXTERNAL_SYMBOL_TYPE; t102757.s0.value.external_symbol_type = q111; /* x186370 stalin.sc:25683:888584 */ t102758.s0.tag = EXTERNAL_SYMBOL_TYPE; t102758.s0.value.external_symbol_type = q347; /* x186371 stalin.sc:25683:888584 */ t102758.s1.tag = NULL_TYPE; /* x186372 stalin.sc:25683:888584 */ t102757.s1.tag = STRUCTURE_TYPE24753; t102757.s1.value.structure_type24753 = &t102758; /* x186373 stalin.sc:25683:888584 */ t102756.s0.tag = STRUCTURE_TYPE24753; t102756.s0.value.structure_type24753 = &t102757; /* x186374 stalin.sc:25683:888584 */ t102760.s0.tag = EXTERNAL_SYMBOL_TYPE; t102760.s0.value.external_symbol_type = q234; /* x186375 stalin.sc:25683:888584 */ t102761.s0.tag = EXTERNAL_SYMBOL_TYPE; t102761.s0.value.external_symbol_type = q56; /* x186376 stalin.sc:25683:888584 */ t102762.s0.tag = EXTERNAL_SYMBOL_TYPE; t102762.s0.value.external_symbol_type = q304; /* x186377 stalin.sc:25683:888584 */ t102762.s1.tag = NULL_TYPE; /* x186378 stalin.sc:25683:888584 */ t102761.s1.tag = STRUCTURE_TYPE24753; t102761.s1.value.structure_type24753 = &t102762; /* x186379 stalin.sc:25683:888584 */ t102760.s1.tag = STRUCTURE_TYPE24753; t102760.s1.value.structure_type24753 = &t102761; /* x186380 stalin.sc:25683:888584 */ t102759.s0.tag = STRUCTURE_TYPE24753; t102759.s0.value.structure_type24753 = &t102760; /* x186381 stalin.sc:25683:888584 */ t102759.s1.tag = NULL_TYPE; /* x186382 stalin.sc:25683:888584 */ t102756.s1.tag = STRUCTURE_TYPE24753; t102756.s1.value.structure_type24753 = &t102759; /* x186383 stalin.sc:25683:888584 */ t102755.s0.tag = STRUCTURE_TYPE24753; t102755.s0.value.structure_type24753 = &t102756; /* x186384 stalin.sc:25683:888584 */ t102765.s0.tag = EXTERNAL_SYMBOL_TYPE; t102765.s0.value.external_symbol_type = q111; /* x186385 stalin.sc:25683:888584 */ t102767.s0.tag = EXTERNAL_SYMBOL_TYPE; t102767.s0.value.external_symbol_type = q108; /* x186386 stalin.sc:25683:888584 */ t102768.s0.tag = EXTERNAL_SYMBOL_TYPE; t102768.s0.value.external_symbol_type = q347; /* x186387 stalin.sc:25683:888584 */ t102768.s1.tag = NULL_TYPE; /* x186388 stalin.sc:25683:888584 */ t102767.s1.tag = STRUCTURE_TYPE24753; t102767.s1.value.structure_type24753 = &t102768; /* x186389 stalin.sc:25683:888584 */ t102766.s0.tag = STRUCTURE_TYPE24753; t102766.s0.value.structure_type24753 = &t102767; /* x186390 stalin.sc:25683:888584 */ t102766.s1.tag = NULL_TYPE; /* x186391 stalin.sc:25683:888584 */ t102765.s1.tag = STRUCTURE_TYPE24753; t102765.s1.value.structure_type24753 = &t102766; /* x186392 stalin.sc:25683:888584 */ t102764.s0.tag = STRUCTURE_TYPE24753; t102764.s0.value.structure_type24753 = &t102765; /* x186393 stalin.sc:25683:888584 */ t102770.s0.tag = EXTERNAL_SYMBOL_TYPE; t102770.s0.value.external_symbol_type = q234; /* x186394 stalin.sc:25683:888584 */ t102771.s0.tag = EXTERNAL_SYMBOL_TYPE; t102771.s0.value.external_symbol_type = q56; /* x186395 stalin.sc:25683:888584 */ t102773.s0.tag = EXTERNAL_SYMBOL_TYPE; t102773.s0.value.external_symbol_type = q107; /* x186396 stalin.sc:25683:888584 */ t102774.s0.tag = EXTERNAL_SYMBOL_TYPE; t102774.s0.value.external_symbol_type = q347; /* x186397 stalin.sc:25683:888584 */ t102774.s1.tag = NULL_TYPE; /* x186398 stalin.sc:25683:888584 */ t102773.s1.tag = STRUCTURE_TYPE24753; t102773.s1.value.structure_type24753 = &t102774; /* x186399 stalin.sc:25683:888584 */ t102772.s0.tag = STRUCTURE_TYPE24753; t102772.s0.value.structure_type24753 = &t102773; /* x186400 stalin.sc:25683:888584 */ t102772.s1.tag = NULL_TYPE; /* x186401 stalin.sc:25683:888584 */ t102771.s1.tag = STRUCTURE_TYPE24753; t102771.s1.value.structure_type24753 = &t102772; /* x186402 stalin.sc:25683:888584 */ t102770.s1.tag = STRUCTURE_TYPE24753; t102770.s1.value.structure_type24753 = &t102771; /* x186403 stalin.sc:25683:888584 */ t102769.s0.tag = STRUCTURE_TYPE24753; t102769.s0.value.structure_type24753 = &t102770; /* x186404 stalin.sc:25683:888584 */ t102769.s1.tag = NULL_TYPE; /* x186405 stalin.sc:25683:888584 */ t102764.s1.tag = STRUCTURE_TYPE24753; t102764.s1.value.structure_type24753 = &t102769; /* x186406 stalin.sc:25683:888584 */ t102763.s0.tag = STRUCTURE_TYPE24753; t102763.s0.value.structure_type24753 = &t102764; /* x186407 stalin.sc:25683:888584 */ t102776.s0.tag = EXTERNAL_SYMBOL_TYPE; t102776.s0.value.external_symbol_type = q95; /* x186408 stalin.sc:25683:888584 */ t102778.s0.tag = EXTERNAL_SYMBOL_TYPE; t102778.s0.value.external_symbol_type = q179; /* x186409 stalin.sc:25683:888584 */ t102779.s0.tag = STRING_TYPE; t102779.s0.value.string_type = "Attempt to call WRITE-CHAR with the wrong number of arguments"; /* x186410 stalin.sc:25683:888584 */ t102779.s1.tag = NULL_TYPE; /* x186411 stalin.sc:25683:888584 */ t102778.s1.tag = STRUCTURE_TYPE24753; t102778.s1.value.structure_type24753 = &t102779; /* x186412 stalin.sc:25683:888584 */ t102777.s0.tag = STRUCTURE_TYPE24753; t102777.s0.value.structure_type24753 = &t102778; /* x186413 stalin.sc:25683:888584 */ t102777.s1.tag = NULL_TYPE; /* x186414 stalin.sc:25683:888584 */ t102776.s1.tag = STRUCTURE_TYPE24753; t102776.s1.value.structure_type24753 = &t102777; /* x186415 stalin.sc:25683:888584 */ t102775.s0.tag = STRUCTURE_TYPE24753; t102775.s0.value.structure_type24753 = &t102776; /* x186416 stalin.sc:25683:888584 */ t102775.s1.tag = NULL_TYPE; /* x186417 stalin.sc:25683:888584 */ t102763.s1.tag = STRUCTURE_TYPE24753; t102763.s1.value.structure_type24753 = &t102775; /* x186418 stalin.sc:25683:888584 */ t102755.s1.tag = STRUCTURE_TYPE24753; t102755.s1.value.structure_type24753 = &t102763; /* x186419 stalin.sc:25683:888584 */ t102754.s1.tag = STRUCTURE_TYPE24753; t102754.s1.value.structure_type24753 = &t102755; /* x186420 stalin.sc:25683:888584 */ t102753.s0.tag = STRUCTURE_TYPE24753; t102753.s0.value.structure_type24753 = &t102754; /* x186421 stalin.sc:25683:888584 */ t102753.s1.tag = NULL_TYPE; /* x186422 stalin.sc:25683:888584 */ t102751.s1.tag = STRUCTURE_TYPE24753; t102751.s1.value.structure_type24753 = &t102753; /* x186423 stalin.sc:25683:888584 */ t102750.s1.tag = STRUCTURE_TYPE24753; t102750.s1.value.structure_type24753 = &t102751; /* x186424 stalin.sc:25683:888584 */ t102749.s0.tag = STRUCTURE_TYPE24753; t102749.s0.value.structure_type24753 = &t102750; /* x186425 stalin.sc:25683:888584 */ t102749.s1.tag = NULL_TYPE; /* x186426 stalin.sc:25683:888584 */ t102748.s1.tag = STRUCTURE_TYPE24753; t102748.s1.value.structure_type24753 = &t102749; /* x186427 stalin.sc:25683:888584 */ t102747.s1.tag = STRUCTURE_TYPE24753; t102747.s1.value.structure_type24753 = &t102748; /* x186428 stalin.sc:25683:888584 */ t102746.s0.tag = STRUCTURE_TYPE24753; t102746.s0.value.structure_type24753 = &t102747; /* x186429 stalin.sc:25683:888584 */ t102781.s0.tag = EXTERNAL_SYMBOL_TYPE; t102781.s0.value.external_symbol_type = q42; /* x186430 stalin.sc:25683:888584 */ t102782.s0.tag = EXTERNAL_SYMBOL_TYPE; t102782.s0.value.external_symbol_type = q353; /* x186431 stalin.sc:25683:888584 */ t102784.s0.tag = EXTERNAL_SYMBOL_TYPE; t102784.s0.value.external_symbol_type = q39; /* x186432 stalin.sc:25683:888584 */ t102786.s0.tag = EXTERNAL_SYMBOL_TYPE; t102786.s0.value.external_symbol_type = q354; /* x186433 stalin.sc:25683:888584 */ t102787.s0.tag = EXTERNAL_SYMBOL_TYPE; t102787.s0.value.external_symbol_type = q355; /* x186434 stalin.sc:25683:888584 */ t102787.s1.tag = NULL_TYPE; /* x186435 stalin.sc:25683:888584 */ t102786.s1.tag = STRUCTURE_TYPE24753; t102786.s1.value.structure_type24753 = &t102787; /* x186436 stalin.sc:25683:888584 */ t102785.s0.tag = STRUCTURE_TYPE24753; t102785.s0.value.structure_type24753 = &t102786; /* x186437 stalin.sc:25683:888584 */ t102789.s0.tag = EXTERNAL_SYMBOL_TYPE; t102789.s0.value.external_symbol_type = q42; /* x186438 stalin.sc:25683:888584 */ t102790.s0.tag = EXTERNAL_SYMBOL_TYPE; t102790.s0.value.external_symbol_type = q305; /* x186439 stalin.sc:25683:888584 */ t102792.s0.tag = EXTERNAL_SYMBOL_TYPE; t102792.s0.value.external_symbol_type = q106; /* x186440 stalin.sc:25683:888584 */ t102794.s0.tag = EXTERNAL_SYMBOL_TYPE; t102794.s0.value.external_symbol_type = q106; /* x186441 stalin.sc:25683:888584 */ t102795.s0.tag = EXTERNAL_SYMBOL_TYPE; t102795.s0.value.external_symbol_type = q354; /* x186442 stalin.sc:25683:888584 */ t102796.s0.tag = EXTERNAL_SYMBOL_TYPE; t102796.s0.value.external_symbol_type = q355; /* x186443 stalin.sc:25683:888584 */ t102796.s1.tag = NULL_TYPE; /* x186444 stalin.sc:25683:888584 */ t102795.s1.tag = STRUCTURE_TYPE24753; t102795.s1.value.structure_type24753 = &t102796; /* x186445 stalin.sc:25683:888584 */ t102794.s1.tag = STRUCTURE_TYPE24753; t102794.s1.value.structure_type24753 = &t102795; /* x186446 stalin.sc:25683:888584 */ t102793.s0.tag = STRUCTURE_TYPE24753; t102793.s0.value.structure_type24753 = &t102794; /* x186447 stalin.sc:25683:888584 */ t102797.s0.tag = EXTERNAL_SYMBOL_TYPE; t102797.s0.value.external_symbol_type = q305; /* x186448 stalin.sc:25683:888584 */ t102797.s1.tag = NULL_TYPE; /* x186449 stalin.sc:25683:888584 */ t102793.s1.tag = STRUCTURE_TYPE24753; t102793.s1.value.structure_type24753 = &t102797; /* x186450 stalin.sc:25683:888584 */ t102792.s1.tag = STRUCTURE_TYPE24753; t102792.s1.value.structure_type24753 = &t102793; /* x186451 stalin.sc:25683:888584 */ t102791.s0.tag = STRUCTURE_TYPE24753; t102791.s0.value.structure_type24753 = &t102792; /* x186452 stalin.sc:25683:888584 */ t102791.s1.tag = NULL_TYPE; /* x186453 stalin.sc:25683:888584 */ t102790.s1.tag = STRUCTURE_TYPE24753; t102790.s1.value.structure_type24753 = &t102791; /* x186454 stalin.sc:25683:888584 */ t102789.s1.tag = STRUCTURE_TYPE24753; t102789.s1.value.structure_type24753 = &t102790; /* x186455 stalin.sc:25683:888584 */ t102788.s0.tag = STRUCTURE_TYPE24753; t102788.s0.value.structure_type24753 = &t102789; /* x186456 stalin.sc:25683:888584 */ t102788.s1.tag = NULL_TYPE; /* x186457 stalin.sc:25683:888584 */ t102785.s1.tag = STRUCTURE_TYPE24753; t102785.s1.value.structure_type24753 = &t102788; /* x186458 stalin.sc:25683:888584 */ t102784.s1.tag = STRUCTURE_TYPE24753; t102784.s1.value.structure_type24753 = &t102785; /* x186459 stalin.sc:25683:888584 */ t102783.s0.tag = STRUCTURE_TYPE24753; t102783.s0.value.structure_type24753 = &t102784; /* x186460 stalin.sc:25683:888584 */ t102783.s1.tag = NULL_TYPE; /* x186461 stalin.sc:25683:888584 */ t102782.s1.tag = STRUCTURE_TYPE24753; t102782.s1.value.structure_type24753 = &t102783; /* x186462 stalin.sc:25683:888584 */ t102781.s1.tag = STRUCTURE_TYPE24753; t102781.s1.value.structure_type24753 = &t102782; /* x186463 stalin.sc:25683:888584 */ t102780.s0.tag = STRUCTURE_TYPE24753; t102780.s0.value.structure_type24753 = &t102781; /* x186464 stalin.sc:25683:888584 */ t102799.s0.tag = EXTERNAL_SYMBOL_TYPE; t102799.s0.value.external_symbol_type = q42; /* x186465 stalin.sc:25683:888584 */ t102800.s0.tag = EXTERNAL_SYMBOL_TYPE; t102800.s0.value.external_symbol_type = q356; /* x186466 stalin.sc:25683:888584 */ t102802.s0.tag = EXTERNAL_SYMBOL_TYPE; t102802.s0.value.external_symbol_type = q39; /* x186467 stalin.sc:25683:888584 */ t102804.s0.tag = EXTERNAL_SYMBOL_TYPE; t102804.s0.value.external_symbol_type = q354; /* x186468 stalin.sc:25683:888584 */ t102805.s0.tag = EXTERNAL_SYMBOL_TYPE; t102805.s0.value.external_symbol_type = q355; /* x186469 stalin.sc:25683:888584 */ t102805.s1.tag = NULL_TYPE; /* x186470 stalin.sc:25683:888584 */ t102804.s1.tag = STRUCTURE_TYPE24753; t102804.s1.value.structure_type24753 = &t102805; /* x186471 stalin.sc:25683:888584 */ t102803.s0.tag = STRUCTURE_TYPE24753; t102803.s0.value.structure_type24753 = &t102804; /* x186472 stalin.sc:25683:888584 */ t102807.s0.tag = EXTERNAL_SYMBOL_TYPE; t102807.s0.value.external_symbol_type = q42; /* x186473 stalin.sc:25683:888584 */ t102808.s0.tag = EXTERNAL_SYMBOL_TYPE; t102808.s0.value.external_symbol_type = q306; /* x186474 stalin.sc:25683:888584 */ t102810.s0.tag = EXTERNAL_SYMBOL_TYPE; t102810.s0.value.external_symbol_type = q106; /* x186475 stalin.sc:25683:888584 */ t102812.s0.tag = EXTERNAL_SYMBOL_TYPE; t102812.s0.value.external_symbol_type = q106; /* x186476 stalin.sc:25683:888584 */ t102813.s0.tag = EXTERNAL_SYMBOL_TYPE; t102813.s0.value.external_symbol_type = q354; /* x186477 stalin.sc:25683:888584 */ t102814.s0.tag = EXTERNAL_SYMBOL_TYPE; t102814.s0.value.external_symbol_type = q355; /* x186478 stalin.sc:25683:888584 */ t102814.s1.tag = NULL_TYPE; /* x186479 stalin.sc:25683:888584 */ t102813.s1.tag = STRUCTURE_TYPE24753; t102813.s1.value.structure_type24753 = &t102814; /* x186480 stalin.sc:25683:888584 */ t102812.s1.tag = STRUCTURE_TYPE24753; t102812.s1.value.structure_type24753 = &t102813; /* x186481 stalin.sc:25683:888584 */ t102811.s0.tag = STRUCTURE_TYPE24753; t102811.s0.value.structure_type24753 = &t102812; /* x186482 stalin.sc:25683:888584 */ t102815.s0.tag = EXTERNAL_SYMBOL_TYPE; t102815.s0.value.external_symbol_type = q306; /* x186483 stalin.sc:25683:888584 */ t102815.s1.tag = NULL_TYPE; /* x186484 stalin.sc:25683:888584 */ t102811.s1.tag = STRUCTURE_TYPE24753; t102811.s1.value.structure_type24753 = &t102815; /* x186485 stalin.sc:25683:888584 */ t102810.s1.tag = STRUCTURE_TYPE24753; t102810.s1.value.structure_type24753 = &t102811; /* x186486 stalin.sc:25683:888584 */ t102809.s0.tag = STRUCTURE_TYPE24753; t102809.s0.value.structure_type24753 = &t102810; /* x186487 stalin.sc:25683:888584 */ t102809.s1.tag = NULL_TYPE; /* x186488 stalin.sc:25683:888584 */ t102808.s1.tag = STRUCTURE_TYPE24753; t102808.s1.value.structure_type24753 = &t102809; /* x186489 stalin.sc:25683:888584 */ t102807.s1.tag = STRUCTURE_TYPE24753; t102807.s1.value.structure_type24753 = &t102808; /* x186490 stalin.sc:25683:888584 */ t102806.s0.tag = STRUCTURE_TYPE24753; t102806.s0.value.structure_type24753 = &t102807; /* x186491 stalin.sc:25683:888584 */ t102806.s1.tag = NULL_TYPE; /* x186492 stalin.sc:25683:888584 */ t102803.s1.tag = STRUCTURE_TYPE24753; t102803.s1.value.structure_type24753 = &t102806; /* x186493 stalin.sc:25683:888584 */ t102802.s1.tag = STRUCTURE_TYPE24753; t102802.s1.value.structure_type24753 = &t102803; /* x186494 stalin.sc:25683:888584 */ t102801.s0.tag = STRUCTURE_TYPE24753; t102801.s0.value.structure_type24753 = &t102802; /* x186495 stalin.sc:25683:888584 */ t102801.s1.tag = NULL_TYPE; /* x186496 stalin.sc:25683:888584 */ t102800.s1.tag = STRUCTURE_TYPE24753; t102800.s1.value.structure_type24753 = &t102801; /* x186497 stalin.sc:25683:888584 */ t102799.s1.tag = STRUCTURE_TYPE24753; t102799.s1.value.structure_type24753 = &t102800; /* x186498 stalin.sc:25683:888584 */ t102798.s0.tag = STRUCTURE_TYPE24753; t102798.s0.value.structure_type24753 = &t102799; /* x186499 stalin.sc:25683:888584 */ t102798.s1.tag = NULL_TYPE; /* x186500 stalin.sc:25683:888584 */ t102780.s1.tag = STRUCTURE_TYPE24753; t102780.s1.value.structure_type24753 = &t102798; /* x186501 stalin.sc:25683:888584 */ t102746.s1.tag = STRUCTURE_TYPE24753; t102746.s1.value.structure_type24753 = &t102780; /* x186502 stalin.sc:25683:888584 */ t102713.s1.tag = STRUCTURE_TYPE24753; t102713.s1.value.structure_type24753 = &t102746; /* x186503 stalin.sc:25683:888584 */ t102679.s1.tag = STRUCTURE_TYPE24753; t102679.s1.value.structure_type24753 = &t102713; /* x186504 stalin.sc:25683:888584 */ t102645.s1.tag = STRUCTURE_TYPE24753; t102645.s1.value.structure_type24753 = &t102679; /* x186505 stalin.sc:25683:888584 */ t102614.s1.tag = STRUCTURE_TYPE24753; t102614.s1.value.structure_type24753 = &t102645; /* x186506 stalin.sc:25683:888584 */ t102583.s1.tag = STRUCTURE_TYPE24753; t102583.s1.value.structure_type24753 = &t102614; /* x186507 stalin.sc:25683:888584 */ t102552.s1.tag = STRUCTURE_TYPE24753; t102552.s1.value.structure_type24753 = &t102583; /* x186508 stalin.sc:25683:888584 */ t102518.s1.tag = STRUCTURE_TYPE24753; t102518.s1.value.structure_type24753 = &t102552; /* x186509 stalin.sc:25683:888584 */ t102484.s1.tag = STRUCTURE_TYPE24753; t102484.s1.value.structure_type24753 = &t102518; /* x186510 stalin.sc:25683:888584 */ t102477.s1.tag = STRUCTURE_TYPE24753; t102477.s1.value.structure_type24753 = &t102484; /* x186511 stalin.sc:25683:888584 */ t102470.s1.tag = STRUCTURE_TYPE24753; t102470.s1.value.structure_type24753 = &t102477; /* x186512 stalin.sc:25683:888584 */ t100347.s1.tag = STRUCTURE_TYPE24753; t100347.s1.value.structure_type24753 = &t102470; /* x186513 stalin.sc:25683:888584 */ t99725.s1.tag = STRUCTURE_TYPE24753; t99725.s1.value.structure_type24753 = &t100347; /* x186514 stalin.sc:25683:888584 */ t99427.s1.tag = STRUCTURE_TYPE24753; t99427.s1.value.structure_type24753 = &t99725; /* x186515 stalin.sc:25683:888584 */ t99043.s1.tag = STRUCTURE_TYPE24753; t99043.s1.value.structure_type24753 = &t99427; /* x186516 stalin.sc:25683:888584 */ t98907.s1.tag = STRUCTURE_TYPE24753; t98907.s1.value.structure_type24753 = &t99043; /* x186517 stalin.sc:25683:888584 */ t98760.s1.tag = STRUCTURE_TYPE24753; t98760.s1.value.structure_type24753 = &t98907; /* x186518 stalin.sc:25683:888584 */ t98588.s1.tag = STRUCTURE_TYPE24753; t98588.s1.value.structure_type24753 = &t98760; /* x186519 stalin.sc:25683:888584 */ t98546.s1.tag = STRUCTURE_TYPE24753; t98546.s1.value.structure_type24753 = &t98588; /* x186520 stalin.sc:25683:888584 */ t98540.s1.tag = STRUCTURE_TYPE24753; t98540.s1.value.structure_type24753 = &t98546; /* x186521 stalin.sc:25683:888584 */ t98534.s1.tag = STRUCTURE_TYPE24753; t98534.s1.value.structure_type24753 = &t98540; /* x186522 stalin.sc:25683:888584 */ t98528.s1.tag = STRUCTURE_TYPE24753; t98528.s1.value.structure_type24753 = &t98534; /* x186523 stalin.sc:25683:888584 */ t98522.s1.tag = STRUCTURE_TYPE24753; t98522.s1.value.structure_type24753 = &t98528; /* x186524 stalin.sc:25683:888584 */ t98494.s1.tag = STRUCTURE_TYPE24753; t98494.s1.value.structure_type24753 = &t98522; /* x186525 stalin.sc:25683:888584 */ t98493.s1.tag = STRUCTURE_TYPE24753; t98493.s1.value.structure_type24753 = &t98494; t102929.length = 256; /* x253072 */ (t102929.element)[0] = FALSE_TYPE; /* x253073 */ (t102929.element)[1] = FALSE_TYPE; /* x253074 */ (t102929.element)[2] = FALSE_TYPE; /* x253075 */ (t102929.element)[3] = FALSE_TYPE; /* x253076 */ (t102929.element)[4] = FALSE_TYPE; /* x253077 */ (t102929.element)[5] = FALSE_TYPE; /* x253078 */ (t102929.element)[6] = FALSE_TYPE; /* x253079 */ (t102929.element)[7] = FALSE_TYPE; /* x253080 */ (t102929.element)[8] = FALSE_TYPE; /* x253081 */ (t102929.element)[9] = FALSE_TYPE; /* x253082 */ (t102929.element)[10] = FALSE_TYPE; /* x253083 */ (t102929.element)[11] = FALSE_TYPE; /* x253084 */ (t102929.element)[12] = FALSE_TYPE; /* x253085 */ (t102929.element)[13] = FALSE_TYPE; /* x253086 */ (t102929.element)[14] = FALSE_TYPE; /* x253087 */ (t102929.element)[15] = FALSE_TYPE; /* x253088 */ (t102929.element)[16] = FALSE_TYPE; /* x253089 */ (t102929.element)[17] = FALSE_TYPE; /* x253090 */ (t102929.element)[18] = FALSE_TYPE; /* x253091 */ (t102929.element)[19] = FALSE_TYPE; /* x253092 */ (t102929.element)[20] = FALSE_TYPE; /* x253093 */ (t102929.element)[21] = FALSE_TYPE; /* x253094 */ (t102929.element)[22] = FALSE_TYPE; /* x253095 */ (t102929.element)[23] = FALSE_TYPE; /* x253096 */ (t102929.element)[24] = FALSE_TYPE; /* x253097 */ (t102929.element)[25] = FALSE_TYPE; /* x253098 */ (t102929.element)[26] = FALSE_TYPE; /* x253099 */ (t102929.element)[27] = FALSE_TYPE; /* x253100 */ (t102929.element)[28] = FALSE_TYPE; /* x253101 */ (t102929.element)[29] = FALSE_TYPE; /* x253102 */ (t102929.element)[30] = FALSE_TYPE; /* x253103 */ (t102929.element)[31] = FALSE_TYPE; /* x253104 */ (t102929.element)[32] = FALSE_TYPE; /* x253105 */ (t102929.element)[33] = FALSE_TYPE; /* x253106 */ (t102929.element)[34] = FALSE_TYPE; /* x253107 */ (t102929.element)[35] = FALSE_TYPE; /* x253108 */ (t102929.element)[36] = FALSE_TYPE; /* x253109 */ (t102929.element)[37] = FALSE_TYPE; /* x253110 */ (t102929.element)[38] = FALSE_TYPE; /* x253111 */ (t102929.element)[39] = FALSE_TYPE; /* x253112 */ (t102929.element)[40] = FALSE_TYPE; /* x253113 */ (t102929.element)[41] = FALSE_TYPE; /* x253114 */ (t102929.element)[42] = FALSE_TYPE; /* x253115 */ (t102929.element)[43] = FALSE_TYPE; /* x253116 */ (t102929.element)[44] = FALSE_TYPE; /* x253117 */ (t102929.element)[45] = FALSE_TYPE; /* x253118 */ (t102929.element)[46] = FALSE_TYPE; /* x253119 */ (t102929.element)[47] = FALSE_TYPE; /* x253120 */ (t102929.element)[48] = FALSE_TYPE; /* x253121 */ (t102929.element)[49] = FALSE_TYPE; /* x253122 */ (t102929.element)[50] = FALSE_TYPE; /* x253123 */ (t102929.element)[51] = FALSE_TYPE; /* x253124 */ (t102929.element)[52] = FALSE_TYPE; /* x253125 */ (t102929.element)[53] = FALSE_TYPE; /* x253126 */ (t102929.element)[54] = FALSE_TYPE; /* x253127 */ (t102929.element)[55] = FALSE_TYPE; /* x253128 */ (t102929.element)[56] = FALSE_TYPE; /* x253129 */ (t102929.element)[57] = FALSE_TYPE; /* x253130 */ (t102929.element)[58] = FALSE_TYPE; /* x253131 */ (t102929.element)[59] = FALSE_TYPE; /* x253132 */ (t102929.element)[60] = FALSE_TYPE; /* x253133 */ (t102929.element)[61] = FALSE_TYPE; /* x253134 */ (t102929.element)[62] = FALSE_TYPE; /* x253135 */ (t102929.element)[63] = FALSE_TYPE; /* x253136 */ (t102929.element)[64] = FALSE_TYPE; /* x253137 */ (t102929.element)[65] = TRUE_TYPE; /* x253138 */ (t102929.element)[66] = TRUE_TYPE; /* x253139 */ (t102929.element)[67] = TRUE_TYPE; /* x253140 */ (t102929.element)[68] = TRUE_TYPE; /* x253141 */ (t102929.element)[69] = TRUE_TYPE; /* x253142 */ (t102929.element)[70] = TRUE_TYPE; /* x253143 */ (t102929.element)[71] = TRUE_TYPE; /* x253144 */ (t102929.element)[72] = TRUE_TYPE; /* x253145 */ (t102929.element)[73] = TRUE_TYPE; /* x253146 */ (t102929.element)[74] = TRUE_TYPE; /* x253147 */ (t102929.element)[75] = TRUE_TYPE; /* x253148 */ (t102929.element)[76] = TRUE_TYPE; /* x253149 */ (t102929.element)[77] = TRUE_TYPE; /* x253150 */ (t102929.element)[78] = TRUE_TYPE; /* x253151 */ (t102929.element)[79] = TRUE_TYPE; /* x253152 */ (t102929.element)[80] = TRUE_TYPE; /* x253153 */ (t102929.element)[81] = TRUE_TYPE; /* x253154 */ (t102929.element)[82] = TRUE_TYPE; /* x253155 */ (t102929.element)[83] = TRUE_TYPE; /* x253156 */ (t102929.element)[84] = TRUE_TYPE; /* x253157 */ (t102929.element)[85] = TRUE_TYPE; /* x253158 */ (t102929.element)[86] = TRUE_TYPE; /* x253159 */ (t102929.element)[87] = TRUE_TYPE; /* x253160 */ (t102929.element)[88] = TRUE_TYPE; /* x253161 */ (t102929.element)[89] = TRUE_TYPE; /* x253162 */ (t102929.element)[90] = TRUE_TYPE; /* x253163 */ (t102929.element)[91] = FALSE_TYPE; /* x253164 */ (t102929.element)[92] = FALSE_TYPE; /* x253165 */ (t102929.element)[93] = FALSE_TYPE; /* x253166 */ (t102929.element)[94] = FALSE_TYPE; /* x253167 */ (t102929.element)[95] = FALSE_TYPE; /* x253168 */ (t102929.element)[96] = FALSE_TYPE; /* x253169 */ (t102929.element)[97] = TRUE_TYPE; /* x253170 */ (t102929.element)[98] = TRUE_TYPE; /* x253171 */ (t102929.element)[99] = TRUE_TYPE; /* x253172 */ (t102929.element)[100] = TRUE_TYPE; /* x253173 */ (t102929.element)[101] = TRUE_TYPE; /* x253174 */ (t102929.element)[102] = TRUE_TYPE; /* x253175 */ (t102929.element)[103] = TRUE_TYPE; /* x253176 */ (t102929.element)[104] = TRUE_TYPE; /* x253177 */ (t102929.element)[105] = TRUE_TYPE; /* x253178 */ (t102929.element)[106] = TRUE_TYPE; /* x253179 */ (t102929.element)[107] = TRUE_TYPE; /* x253180 */ (t102929.element)[108] = TRUE_TYPE; /* x253181 */ (t102929.element)[109] = TRUE_TYPE; /* x253182 */ (t102929.element)[110] = TRUE_TYPE; /* x253183 */ (t102929.element)[111] = TRUE_TYPE; /* x253184 */ (t102929.element)[112] = TRUE_TYPE; /* x253185 */ (t102929.element)[113] = TRUE_TYPE; /* x253186 */ (t102929.element)[114] = TRUE_TYPE; /* x253187 */ (t102929.element)[115] = TRUE_TYPE; /* x253188 */ (t102929.element)[116] = TRUE_TYPE; /* x253189 */ (t102929.element)[117] = TRUE_TYPE; /* x253190 */ (t102929.element)[118] = TRUE_TYPE; /* x253191 */ (t102929.element)[119] = TRUE_TYPE; /* x253192 */ (t102929.element)[120] = TRUE_TYPE; /* x253193 */ (t102929.element)[121] = TRUE_TYPE; /* x253194 */ (t102929.element)[122] = TRUE_TYPE; /* x253195 */ (t102929.element)[123] = FALSE_TYPE; /* x253196 */ (t102929.element)[124] = FALSE_TYPE; /* x253197 */ (t102929.element)[125] = FALSE_TYPE; /* x253198 */ (t102929.element)[126] = FALSE_TYPE; /* x253199 */ (t102929.element)[127] = FALSE_TYPE; /* x253200 */ (t102929.element)[128] = FALSE_TYPE; /* x253201 */ (t102929.element)[129] = FALSE_TYPE; /* x253202 */ (t102929.element)[130] = FALSE_TYPE; /* x253203 */ (t102929.element)[131] = FALSE_TYPE; /* x253204 */ (t102929.element)[132] = FALSE_TYPE; /* x253205 */ (t102929.element)[133] = FALSE_TYPE; /* x253206 */ (t102929.element)[134] = FALSE_TYPE; /* x253207 */ (t102929.element)[135] = FALSE_TYPE; /* x253208 */ (t102929.element)[136] = FALSE_TYPE; /* x253209 */ (t102929.element)[137] = FALSE_TYPE; /* x253210 */ (t102929.element)[138] = FALSE_TYPE; /* x253211 */ (t102929.element)[139] = FALSE_TYPE; /* x253212 */ (t102929.element)[140] = FALSE_TYPE; /* x253213 */ (t102929.element)[141] = FALSE_TYPE; /* x253214 */ (t102929.element)[142] = FALSE_TYPE; /* x253215 */ (t102929.element)[143] = FALSE_TYPE; /* x253216 */ (t102929.element)[144] = FALSE_TYPE; /* x253217 */ (t102929.element)[145] = FALSE_TYPE; /* x253218 */ (t102929.element)[146] = FALSE_TYPE; /* x253219 */ (t102929.element)[147] = FALSE_TYPE; /* x253220 */ (t102929.element)[148] = FALSE_TYPE; /* x253221 */ (t102929.element)[149] = FALSE_TYPE; /* x253222 */ (t102929.element)[150] = FALSE_TYPE; /* x253223 */ (t102929.element)[151] = FALSE_TYPE; /* x253224 */ (t102929.element)[152] = FALSE_TYPE; /* x253225 */ (t102929.element)[153] = FALSE_TYPE; /* x253226 */ (t102929.element)[154] = FALSE_TYPE; /* x253227 */ (t102929.element)[155] = FALSE_TYPE; /* x253228 */ (t102929.element)[156] = FALSE_TYPE; /* x253229 */ (t102929.element)[157] = FALSE_TYPE; /* x253230 */ (t102929.element)[158] = FALSE_TYPE; /* x253231 */ (t102929.element)[159] = FALSE_TYPE; /* x253232 */ (t102929.element)[160] = FALSE_TYPE; /* x253233 */ (t102929.element)[161] = FALSE_TYPE; /* x253234 */ (t102929.element)[162] = FALSE_TYPE; /* x253235 */ (t102929.element)[163] = FALSE_TYPE; /* x253236 */ (t102929.element)[164] = FALSE_TYPE; /* x253237 */ (t102929.element)[165] = FALSE_TYPE; /* x253238 */ (t102929.element)[166] = FALSE_TYPE; /* x253239 */ (t102929.element)[167] = FALSE_TYPE; /* x253240 */ (t102929.element)[168] = FALSE_TYPE; /* x253241 */ (t102929.element)[169] = FALSE_TYPE; /* x253242 */ (t102929.element)[170] = FALSE_TYPE; /* x253243 */ (t102929.element)[171] = FALSE_TYPE; /* x253244 */ (t102929.element)[172] = FALSE_TYPE; /* x253245 */ (t102929.element)[173] = FALSE_TYPE; /* x253246 */ (t102929.element)[174] = FALSE_TYPE; /* x253247 */ (t102929.element)[175] = FALSE_TYPE; /* x253248 */ (t102929.element)[176] = FALSE_TYPE; /* x253249 */ (t102929.element)[177] = FALSE_TYPE; /* x253250 */ (t102929.element)[178] = FALSE_TYPE; /* x253251 */ (t102929.element)[179] = FALSE_TYPE; /* x253252 */ (t102929.element)[180] = FALSE_TYPE; /* x253253 */ (t102929.element)[181] = FALSE_TYPE; /* x253254 */ (t102929.element)[182] = FALSE_TYPE; /* x253255 */ (t102929.element)[183] = FALSE_TYPE; /* x253256 */ (t102929.element)[184] = FALSE_TYPE; /* x253257 */ (t102929.element)[185] = FALSE_TYPE; /* x253258 */ (t102929.element)[186] = FALSE_TYPE; /* x253259 */ (t102929.element)[187] = FALSE_TYPE; /* x253260 */ (t102929.element)[188] = FALSE_TYPE; /* x253261 */ (t102929.element)[189] = FALSE_TYPE; /* x253262 */ (t102929.element)[190] = FALSE_TYPE; /* x253263 */ (t102929.element)[191] = FALSE_TYPE; /* x253264 */ (t102929.element)[192] = TRUE_TYPE; /* x253265 */ (t102929.element)[193] = TRUE_TYPE; /* x253266 */ (t102929.element)[194] = TRUE_TYPE; /* x253267 */ (t102929.element)[195] = TRUE_TYPE; /* x253268 */ (t102929.element)[196] = TRUE_TYPE; /* x253269 */ (t102929.element)[197] = TRUE_TYPE; /* x253270 */ (t102929.element)[198] = TRUE_TYPE; /* x253271 */ (t102929.element)[199] = TRUE_TYPE; /* x253272 */ (t102929.element)[200] = TRUE_TYPE; /* x253273 */ (t102929.element)[201] = TRUE_TYPE; /* x253274 */ (t102929.element)[202] = TRUE_TYPE; /* x253275 */ (t102929.element)[203] = TRUE_TYPE; /* x253276 */ (t102929.element)[204] = TRUE_TYPE; /* x253277 */ (t102929.element)[205] = TRUE_TYPE; /* x253278 */ (t102929.element)[206] = TRUE_TYPE; /* x253279 */ (t102929.element)[207] = TRUE_TYPE; /* x253280 */ (t102929.element)[208] = TRUE_TYPE; /* x253281 */ (t102929.element)[209] = TRUE_TYPE; /* x253282 */ (t102929.element)[210] = TRUE_TYPE; /* x253283 */ (t102929.element)[211] = TRUE_TYPE; /* x253284 */ (t102929.element)[212] = TRUE_TYPE; /* x253285 */ (t102929.element)[213] = TRUE_TYPE; /* x253286 */ (t102929.element)[214] = TRUE_TYPE; /* x253287 */ (t102929.element)[215] = FALSE_TYPE; /* x253288 */ (t102929.element)[216] = TRUE_TYPE; /* x253289 */ (t102929.element)[217] = TRUE_TYPE; /* x253290 */ (t102929.element)[218] = TRUE_TYPE; /* x253291 */ (t102929.element)[219] = TRUE_TYPE; /* x253292 */ (t102929.element)[220] = TRUE_TYPE; /* x253293 */ (t102929.element)[221] = TRUE_TYPE; /* x253294 */ (t102929.element)[222] = TRUE_TYPE; /* x253295 */ (t102929.element)[223] = TRUE_TYPE; /* x253296 */ (t102929.element)[224] = TRUE_TYPE; /* x253297 */ (t102929.element)[225] = TRUE_TYPE; /* x253298 */ (t102929.element)[226] = TRUE_TYPE; /* x253299 */ (t102929.element)[227] = TRUE_TYPE; /* x253300 */ (t102929.element)[228] = TRUE_TYPE; /* x253301 */ (t102929.element)[229] = TRUE_TYPE; /* x253302 */ (t102929.element)[230] = TRUE_TYPE; /* x253303 */ (t102929.element)[231] = TRUE_TYPE; /* x253304 */ (t102929.element)[232] = TRUE_TYPE; /* x253305 */ (t102929.element)[233] = TRUE_TYPE; /* x253306 */ (t102929.element)[234] = TRUE_TYPE; /* x253307 */ (t102929.element)[235] = TRUE_TYPE; /* x253308 */ (t102929.element)[236] = TRUE_TYPE; /* x253309 */ (t102929.element)[237] = TRUE_TYPE; /* x253310 */ (t102929.element)[238] = TRUE_TYPE; /* x253311 */ (t102929.element)[239] = TRUE_TYPE; /* x253312 */ (t102929.element)[240] = TRUE_TYPE; /* x253313 */ (t102929.element)[241] = TRUE_TYPE; /* x253314 */ (t102929.element)[242] = TRUE_TYPE; /* x253315 */ (t102929.element)[243] = TRUE_TYPE; /* x253316 */ (t102929.element)[244] = TRUE_TYPE; /* x253317 */ (t102929.element)[245] = TRUE_TYPE; /* x253318 */ (t102929.element)[246] = TRUE_TYPE; /* x253319 */ (t102929.element)[247] = FALSE_TYPE; /* x253320 */ (t102929.element)[248] = TRUE_TYPE; /* x253321 */ (t102929.element)[249] = TRUE_TYPE; /* x253322 */ (t102929.element)[250] = TRUE_TYPE; /* x253323 */ (t102929.element)[251] = TRUE_TYPE; /* x253324 */ (t102929.element)[252] = TRUE_TYPE; /* x253325 */ (t102929.element)[253] = TRUE_TYPE; /* x253326 */ (t102929.element)[254] = TRUE_TYPE; /* x253327 */ (t102929.element)[255] = TRUE_TYPE; t102931.length = 256; /* x253339 */ (t102931.element)[0] = FALSE_TYPE; /* x253340 */ (t102931.element)[1] = FALSE_TYPE; /* x253341 */ (t102931.element)[2] = FALSE_TYPE; /* x253342 */ (t102931.element)[3] = FALSE_TYPE; /* x253343 */ (t102931.element)[4] = FALSE_TYPE; /* x253344 */ (t102931.element)[5] = FALSE_TYPE; /* x253345 */ (t102931.element)[6] = FALSE_TYPE; /* x253346 */ (t102931.element)[7] = FALSE_TYPE; /* x253347 */ (t102931.element)[8] = FALSE_TYPE; /* x253348 */ (t102931.element)[9] = FALSE_TYPE; /* x253349 */ (t102931.element)[10] = FALSE_TYPE; /* x253350 */ (t102931.element)[11] = FALSE_TYPE; /* x253351 */ (t102931.element)[12] = FALSE_TYPE; /* x253352 */ (t102931.element)[13] = FALSE_TYPE; /* x253353 */ (t102931.element)[14] = FALSE_TYPE; /* x253354 */ (t102931.element)[15] = FALSE_TYPE; /* x253355 */ (t102931.element)[16] = FALSE_TYPE; /* x253356 */ (t102931.element)[17] = FALSE_TYPE; /* x253357 */ (t102931.element)[18] = FALSE_TYPE; /* x253358 */ (t102931.element)[19] = FALSE_TYPE; /* x253359 */ (t102931.element)[20] = FALSE_TYPE; /* x253360 */ (t102931.element)[21] = FALSE_TYPE; /* x253361 */ (t102931.element)[22] = FALSE_TYPE; /* x253362 */ (t102931.element)[23] = FALSE_TYPE; /* x253363 */ (t102931.element)[24] = FALSE_TYPE; /* x253364 */ (t102931.element)[25] = FALSE_TYPE; /* x253365 */ (t102931.element)[26] = FALSE_TYPE; /* x253366 */ (t102931.element)[27] = FALSE_TYPE; /* x253367 */ (t102931.element)[28] = FALSE_TYPE; /* x253368 */ (t102931.element)[29] = FALSE_TYPE; /* x253369 */ (t102931.element)[30] = FALSE_TYPE; /* x253370 */ (t102931.element)[31] = FALSE_TYPE; /* x253371 */ (t102931.element)[32] = FALSE_TYPE; /* x253372 */ (t102931.element)[33] = FALSE_TYPE; /* x253373 */ (t102931.element)[34] = FALSE_TYPE; /* x253374 */ (t102931.element)[35] = FALSE_TYPE; /* x253375 */ (t102931.element)[36] = FALSE_TYPE; /* x253376 */ (t102931.element)[37] = FALSE_TYPE; /* x253377 */ (t102931.element)[38] = FALSE_TYPE; /* x253378 */ (t102931.element)[39] = FALSE_TYPE; /* x253379 */ (t102931.element)[40] = FALSE_TYPE; /* x253380 */ (t102931.element)[41] = FALSE_TYPE; /* x253381 */ (t102931.element)[42] = FALSE_TYPE; /* x253382 */ (t102931.element)[43] = FALSE_TYPE; /* x253383 */ (t102931.element)[44] = FALSE_TYPE; /* x253384 */ (t102931.element)[45] = FALSE_TYPE; /* x253385 */ (t102931.element)[46] = FALSE_TYPE; /* x253386 */ (t102931.element)[47] = FALSE_TYPE; /* x253387 */ (t102931.element)[48] = TRUE_TYPE; /* x253388 */ (t102931.element)[49] = TRUE_TYPE; /* x253389 */ (t102931.element)[50] = TRUE_TYPE; /* x253390 */ (t102931.element)[51] = TRUE_TYPE; /* x253391 */ (t102931.element)[52] = TRUE_TYPE; /* x253392 */ (t102931.element)[53] = TRUE_TYPE; /* x253393 */ (t102931.element)[54] = TRUE_TYPE; /* x253394 */ (t102931.element)[55] = TRUE_TYPE; /* x253395 */ (t102931.element)[56] = TRUE_TYPE; /* x253396 */ (t102931.element)[57] = TRUE_TYPE; /* x253397 */ (t102931.element)[58] = FALSE_TYPE; /* x253398 */ (t102931.element)[59] = FALSE_TYPE; /* x253399 */ (t102931.element)[60] = FALSE_TYPE; /* x253400 */ (t102931.element)[61] = FALSE_TYPE; /* x253401 */ (t102931.element)[62] = FALSE_TYPE; /* x253402 */ (t102931.element)[63] = FALSE_TYPE; /* x253403 */ (t102931.element)[64] = FALSE_TYPE; /* x253404 */ (t102931.element)[65] = FALSE_TYPE; /* x253405 */ (t102931.element)[66] = FALSE_TYPE; /* x253406 */ (t102931.element)[67] = FALSE_TYPE; /* x253407 */ (t102931.element)[68] = FALSE_TYPE; /* x253408 */ (t102931.element)[69] = FALSE_TYPE; /* x253409 */ (t102931.element)[70] = FALSE_TYPE; /* x253410 */ (t102931.element)[71] = FALSE_TYPE; /* x253411 */ (t102931.element)[72] = FALSE_TYPE; /* x253412 */ (t102931.element)[73] = FALSE_TYPE; /* x253413 */ (t102931.element)[74] = FALSE_TYPE; /* x253414 */ (t102931.element)[75] = FALSE_TYPE; /* x253415 */ (t102931.element)[76] = FALSE_TYPE; /* x253416 */ (t102931.element)[77] = FALSE_TYPE; /* x253417 */ (t102931.element)[78] = FALSE_TYPE; /* x253418 */ (t102931.element)[79] = FALSE_TYPE; /* x253419 */ (t102931.element)[80] = FALSE_TYPE; /* x253420 */ (t102931.element)[81] = FALSE_TYPE; /* x253421 */ (t102931.element)[82] = FALSE_TYPE; /* x253422 */ (t102931.element)[83] = FALSE_TYPE; /* x253423 */ (t102931.element)[84] = FALSE_TYPE; /* x253424 */ (t102931.element)[85] = FALSE_TYPE; /* x253425 */ (t102931.element)[86] = FALSE_TYPE; /* x253426 */ (t102931.element)[87] = FALSE_TYPE; /* x253427 */ (t102931.element)[88] = FALSE_TYPE; /* x253428 */ (t102931.element)[89] = FALSE_TYPE; /* x253429 */ (t102931.element)[90] = FALSE_TYPE; /* x253430 */ (t102931.element)[91] = FALSE_TYPE; /* x253431 */ (t102931.element)[92] = FALSE_TYPE; /* x253432 */ (t102931.element)[93] = FALSE_TYPE; /* x253433 */ (t102931.element)[94] = FALSE_TYPE; /* x253434 */ (t102931.element)[95] = FALSE_TYPE; /* x253435 */ (t102931.element)[96] = FALSE_TYPE; /* x253436 */ (t102931.element)[97] = FALSE_TYPE; /* x253437 */ (t102931.element)[98] = FALSE_TYPE; /* x253438 */ (t102931.element)[99] = FALSE_TYPE; /* x253439 */ (t102931.element)[100] = FALSE_TYPE; /* x253440 */ (t102931.element)[101] = FALSE_TYPE; /* x253441 */ (t102931.element)[102] = FALSE_TYPE; /* x253442 */ (t102931.element)[103] = FALSE_TYPE; /* x253443 */ (t102931.element)[104] = FALSE_TYPE; /* x253444 */ (t102931.element)[105] = FALSE_TYPE; /* x253445 */ (t102931.element)[106] = FALSE_TYPE; /* x253446 */ (t102931.element)[107] = FALSE_TYPE; /* x253447 */ (t102931.element)[108] = FALSE_TYPE; /* x253448 */ (t102931.element)[109] = FALSE_TYPE; /* x253449 */ (t102931.element)[110] = FALSE_TYPE; /* x253450 */ (t102931.element)[111] = FALSE_TYPE; /* x253451 */ (t102931.element)[112] = FALSE_TYPE; /* x253452 */ (t102931.element)[113] = FALSE_TYPE; /* x253453 */ (t102931.element)[114] = FALSE_TYPE; /* x253454 */ (t102931.element)[115] = FALSE_TYPE; /* x253455 */ (t102931.element)[116] = FALSE_TYPE; /* x253456 */ (t102931.element)[117] = FALSE_TYPE; /* x253457 */ (t102931.element)[118] = FALSE_TYPE; /* x253458 */ (t102931.element)[119] = FALSE_TYPE; /* x253459 */ (t102931.element)[120] = FALSE_TYPE; /* x253460 */ (t102931.element)[121] = FALSE_TYPE; /* x253461 */ (t102931.element)[122] = FALSE_TYPE; /* x253462 */ (t102931.element)[123] = FALSE_TYPE; /* x253463 */ (t102931.element)[124] = FALSE_TYPE; /* x253464 */ (t102931.element)[125] = FALSE_TYPE; /* x253465 */ (t102931.element)[126] = FALSE_TYPE; /* x253466 */ (t102931.element)[127] = FALSE_TYPE; /* x253467 */ (t102931.element)[128] = FALSE_TYPE; /* x253468 */ (t102931.element)[129] = FALSE_TYPE; /* x253469 */ (t102931.element)[130] = FALSE_TYPE; /* x253470 */ (t102931.element)[131] = FALSE_TYPE; /* x253471 */ (t102931.element)[132] = FALSE_TYPE; /* x253472 */ (t102931.element)[133] = FALSE_TYPE; /* x253473 */ (t102931.element)[134] = FALSE_TYPE; /* x253474 */ (t102931.element)[135] = FALSE_TYPE; /* x253475 */ (t102931.element)[136] = FALSE_TYPE; /* x253476 */ (t102931.element)[137] = FALSE_TYPE; /* x253477 */ (t102931.element)[138] = FALSE_TYPE; /* x253478 */ (t102931.element)[139] = FALSE_TYPE; /* x253479 */ (t102931.element)[140] = FALSE_TYPE; /* x253480 */ (t102931.element)[141] = FALSE_TYPE; /* x253481 */ (t102931.element)[142] = FALSE_TYPE; /* x253482 */ (t102931.element)[143] = FALSE_TYPE; /* x253483 */ (t102931.element)[144] = FALSE_TYPE; /* x253484 */ (t102931.element)[145] = FALSE_TYPE; /* x253485 */ (t102931.element)[146] = FALSE_TYPE; /* x253486 */ (t102931.element)[147] = FALSE_TYPE; /* x253487 */ (t102931.element)[148] = FALSE_TYPE; /* x253488 */ (t102931.element)[149] = FALSE_TYPE; /* x253489 */ (t102931.element)[150] = FALSE_TYPE; /* x253490 */ (t102931.element)[151] = FALSE_TYPE; /* x253491 */ (t102931.element)[152] = FALSE_TYPE; /* x253492 */ (t102931.element)[153] = FALSE_TYPE; /* x253493 */ (t102931.element)[154] = FALSE_TYPE; /* x253494 */ (t102931.element)[155] = FALSE_TYPE; /* x253495 */ (t102931.element)[156] = FALSE_TYPE; /* x253496 */ (t102931.element)[157] = FALSE_TYPE; /* x253497 */ (t102931.element)[158] = FALSE_TYPE; /* x253498 */ (t102931.element)[159] = FALSE_TYPE; /* x253499 */ (t102931.element)[160] = FALSE_TYPE; /* x253500 */ (t102931.element)[161] = FALSE_TYPE; /* x253501 */ (t102931.element)[162] = FALSE_TYPE; /* x253502 */ (t102931.element)[163] = FALSE_TYPE; /* x253503 */ (t102931.element)[164] = FALSE_TYPE; /* x253504 */ (t102931.element)[165] = FALSE_TYPE; /* x253505 */ (t102931.element)[166] = FALSE_TYPE; /* x253506 */ (t102931.element)[167] = FALSE_TYPE; /* x253507 */ (t102931.element)[168] = FALSE_TYPE; /* x253508 */ (t102931.element)[169] = FALSE_TYPE; /* x253509 */ (t102931.element)[170] = FALSE_TYPE; /* x253510 */ (t102931.element)[171] = FALSE_TYPE; /* x253511 */ (t102931.element)[172] = FALSE_TYPE; /* x253512 */ (t102931.element)[173] = FALSE_TYPE; /* x253513 */ (t102931.element)[174] = FALSE_TYPE; /* x253514 */ (t102931.element)[175] = FALSE_TYPE; /* x253515 */ (t102931.element)[176] = FALSE_TYPE; /* x253516 */ (t102931.element)[177] = FALSE_TYPE; /* x253517 */ (t102931.element)[178] = FALSE_TYPE; /* x253518 */ (t102931.element)[179] = FALSE_TYPE; /* x253519 */ (t102931.element)[180] = FALSE_TYPE; /* x253520 */ (t102931.element)[181] = FALSE_TYPE; /* x253521 */ (t102931.element)[182] = FALSE_TYPE; /* x253522 */ (t102931.element)[183] = FALSE_TYPE; /* x253523 */ (t102931.element)[184] = FALSE_TYPE; /* x253524 */ (t102931.element)[185] = FALSE_TYPE; /* x253525 */ (t102931.element)[186] = FALSE_TYPE; /* x253526 */ (t102931.element)[187] = FALSE_TYPE; /* x253527 */ (t102931.element)[188] = FALSE_TYPE; /* x253528 */ (t102931.element)[189] = FALSE_TYPE; /* x253529 */ (t102931.element)[190] = FALSE_TYPE; /* x253530 */ (t102931.element)[191] = FALSE_TYPE; /* x253531 */ (t102931.element)[192] = FALSE_TYPE; /* x253532 */ (t102931.element)[193] = FALSE_TYPE; /* x253533 */ (t102931.element)[194] = FALSE_TYPE; /* x253534 */ (t102931.element)[195] = FALSE_TYPE; /* x253535 */ (t102931.element)[196] = FALSE_TYPE; /* x253536 */ (t102931.element)[197] = FALSE_TYPE; /* x253537 */ (t102931.element)[198] = FALSE_TYPE; /* x253538 */ (t102931.element)[199] = FALSE_TYPE; /* x253539 */ (t102931.element)[200] = FALSE_TYPE; /* x253540 */ (t102931.element)[201] = FALSE_TYPE; /* x253541 */ (t102931.element)[202] = FALSE_TYPE; /* x253542 */ (t102931.element)[203] = FALSE_TYPE; /* x253543 */ (t102931.element)[204] = FALSE_TYPE; /* x253544 */ (t102931.element)[205] = FALSE_TYPE; /* x253545 */ (t102931.element)[206] = FALSE_TYPE; /* x253546 */ (t102931.element)[207] = FALSE_TYPE; /* x253547 */ (t102931.element)[208] = FALSE_TYPE; /* x253548 */ (t102931.element)[209] = FALSE_TYPE; /* x253549 */ (t102931.element)[210] = FALSE_TYPE; /* x253550 */ (t102931.element)[211] = FALSE_TYPE; /* x253551 */ (t102931.element)[212] = FALSE_TYPE; /* x253552 */ (t102931.element)[213] = FALSE_TYPE; /* x253553 */ (t102931.element)[214] = FALSE_TYPE; /* x253554 */ (t102931.element)[215] = FALSE_TYPE; /* x253555 */ (t102931.element)[216] = FALSE_TYPE; /* x253556 */ (t102931.element)[217] = FALSE_TYPE; /* x253557 */ (t102931.element)[218] = FALSE_TYPE; /* x253558 */ (t102931.element)[219] = FALSE_TYPE; /* x253559 */ (t102931.element)[220] = FALSE_TYPE; /* x253560 */ (t102931.element)[221] = FALSE_TYPE; /* x253561 */ (t102931.element)[222] = FALSE_TYPE; /* x253562 */ (t102931.element)[223] = FALSE_TYPE; /* x253563 */ (t102931.element)[224] = FALSE_TYPE; /* x253564 */ (t102931.element)[225] = FALSE_TYPE; /* x253565 */ (t102931.element)[226] = FALSE_TYPE; /* x253566 */ (t102931.element)[227] = FALSE_TYPE; /* x253567 */ (t102931.element)[228] = FALSE_TYPE; /* x253568 */ (t102931.element)[229] = FALSE_TYPE; /* x253569 */ (t102931.element)[230] = FALSE_TYPE; /* x253570 */ (t102931.element)[231] = FALSE_TYPE; /* x253571 */ (t102931.element)[232] = FALSE_TYPE; /* x253572 */ (t102931.element)[233] = FALSE_TYPE; /* x253573 */ (t102931.element)[234] = FALSE_TYPE; /* x253574 */ (t102931.element)[235] = FALSE_TYPE; /* x253575 */ (t102931.element)[236] = FALSE_TYPE; /* x253576 */ (t102931.element)[237] = FALSE_TYPE; /* x253577 */ (t102931.element)[238] = FALSE_TYPE; /* x253578 */ (t102931.element)[239] = FALSE_TYPE; /* x253579 */ (t102931.element)[240] = FALSE_TYPE; /* x253580 */ (t102931.element)[241] = FALSE_TYPE; /* x253581 */ (t102931.element)[242] = FALSE_TYPE; /* x253582 */ (t102931.element)[243] = FALSE_TYPE; /* x253583 */ (t102931.element)[244] = FALSE_TYPE; /* x253584 */ (t102931.element)[245] = FALSE_TYPE; /* x253585 */ (t102931.element)[246] = FALSE_TYPE; /* x253586 */ (t102931.element)[247] = FALSE_TYPE; /* x253587 */ (t102931.element)[248] = FALSE_TYPE; /* x253588 */ (t102931.element)[249] = FALSE_TYPE; /* x253589 */ (t102931.element)[250] = FALSE_TYPE; /* x253590 */ (t102931.element)[251] = FALSE_TYPE; /* x253591 */ (t102931.element)[252] = FALSE_TYPE; /* x253592 */ (t102931.element)[253] = FALSE_TYPE; /* x253593 */ (t102931.element)[254] = FALSE_TYPE; /* x253594 */ (t102931.element)[255] = FALSE_TYPE; t102933.length = 256; /* x253606 */ (t102933.element)[0] = FALSE_TYPE; /* x253607 */ (t102933.element)[1] = FALSE_TYPE; /* x253608 */ (t102933.element)[2] = FALSE_TYPE; /* x253609 */ (t102933.element)[3] = FALSE_TYPE; /* x253610 */ (t102933.element)[4] = FALSE_TYPE; /* x253611 */ (t102933.element)[5] = FALSE_TYPE; /* x253612 */ (t102933.element)[6] = FALSE_TYPE; /* x253613 */ (t102933.element)[7] = FALSE_TYPE; /* x253614 */ (t102933.element)[8] = FALSE_TYPE; /* x253615 */ (t102933.element)[9] = TRUE_TYPE; /* x253616 */ (t102933.element)[10] = TRUE_TYPE; /* x253617 */ (t102933.element)[11] = FALSE_TYPE; /* x253618 */ (t102933.element)[12] = TRUE_TYPE; /* x253619 */ (t102933.element)[13] = TRUE_TYPE; /* x253620 */ (t102933.element)[14] = FALSE_TYPE; /* x253621 */ (t102933.element)[15] = FALSE_TYPE; /* x253622 */ (t102933.element)[16] = FALSE_TYPE; /* x253623 */ (t102933.element)[17] = FALSE_TYPE; /* x253624 */ (t102933.element)[18] = FALSE_TYPE; /* x253625 */ (t102933.element)[19] = FALSE_TYPE; /* x253626 */ (t102933.element)[20] = FALSE_TYPE; /* x253627 */ (t102933.element)[21] = FALSE_TYPE; /* x253628 */ (t102933.element)[22] = FALSE_TYPE; /* x253629 */ (t102933.element)[23] = FALSE_TYPE; /* x253630 */ (t102933.element)[24] = FALSE_TYPE; /* x253631 */ (t102933.element)[25] = FALSE_TYPE; /* x253632 */ (t102933.element)[26] = FALSE_TYPE; /* x253633 */ (t102933.element)[27] = FALSE_TYPE; /* x253634 */ (t102933.element)[28] = FALSE_TYPE; /* x253635 */ (t102933.element)[29] = FALSE_TYPE; /* x253636 */ (t102933.element)[30] = FALSE_TYPE; /* x253637 */ (t102933.element)[31] = FALSE_TYPE; /* x253638 */ (t102933.element)[32] = TRUE_TYPE; /* x253639 */ (t102933.element)[33] = FALSE_TYPE; /* x253640 */ (t102933.element)[34] = FALSE_TYPE; /* x253641 */ (t102933.element)[35] = FALSE_TYPE; /* x253642 */ (t102933.element)[36] = FALSE_TYPE; /* x253643 */ (t102933.element)[37] = FALSE_TYPE; /* x253644 */ (t102933.element)[38] = FALSE_TYPE; /* x253645 */ (t102933.element)[39] = FALSE_TYPE; /* x253646 */ (t102933.element)[40] = FALSE_TYPE; /* x253647 */ (t102933.element)[41] = FALSE_TYPE; /* x253648 */ (t102933.element)[42] = FALSE_TYPE; /* x253649 */ (t102933.element)[43] = FALSE_TYPE; /* x253650 */ (t102933.element)[44] = FALSE_TYPE; /* x253651 */ (t102933.element)[45] = FALSE_TYPE; /* x253652 */ (t102933.element)[46] = FALSE_TYPE; /* x253653 */ (t102933.element)[47] = FALSE_TYPE; /* x253654 */ (t102933.element)[48] = FALSE_TYPE; /* x253655 */ (t102933.element)[49] = FALSE_TYPE; /* x253656 */ (t102933.element)[50] = FALSE_TYPE; /* x253657 */ (t102933.element)[51] = FALSE_TYPE; /* x253658 */ (t102933.element)[52] = FALSE_TYPE; /* x253659 */ (t102933.element)[53] = FALSE_TYPE; /* x253660 */ (t102933.element)[54] = FALSE_TYPE; /* x253661 */ (t102933.element)[55] = FALSE_TYPE; /* x253662 */ (t102933.element)[56] = FALSE_TYPE; /* x253663 */ (t102933.element)[57] = FALSE_TYPE; /* x253664 */ (t102933.element)[58] = FALSE_TYPE; /* x253665 */ (t102933.element)[59] = FALSE_TYPE; /* x253666 */ (t102933.element)[60] = FALSE_TYPE; /* x253667 */ (t102933.element)[61] = FALSE_TYPE; /* x253668 */ (t102933.element)[62] = FALSE_TYPE; /* x253669 */ (t102933.element)[63] = FALSE_TYPE; /* x253670 */ (t102933.element)[64] = FALSE_TYPE; /* x253671 */ (t102933.element)[65] = FALSE_TYPE; /* x253672 */ (t102933.element)[66] = FALSE_TYPE; /* x253673 */ (t102933.element)[67] = FALSE_TYPE; /* x253674 */ (t102933.element)[68] = FALSE_TYPE; /* x253675 */ (t102933.element)[69] = FALSE_TYPE; /* x253676 */ (t102933.element)[70] = FALSE_TYPE; /* x253677 */ (t102933.element)[71] = FALSE_TYPE; /* x253678 */ (t102933.element)[72] = FALSE_TYPE; /* x253679 */ (t102933.element)[73] = FALSE_TYPE; /* x253680 */ (t102933.element)[74] = FALSE_TYPE; /* x253681 */ (t102933.element)[75] = FALSE_TYPE; /* x253682 */ (t102933.element)[76] = FALSE_TYPE; /* x253683 */ (t102933.element)[77] = FALSE_TYPE; /* x253684 */ (t102933.element)[78] = FALSE_TYPE; /* x253685 */ (t102933.element)[79] = FALSE_TYPE; /* x253686 */ (t102933.element)[80] = FALSE_TYPE; /* x253687 */ (t102933.element)[81] = FALSE_TYPE; /* x253688 */ (t102933.element)[82] = FALSE_TYPE; /* x253689 */ (t102933.element)[83] = FALSE_TYPE; /* x253690 */ (t102933.element)[84] = FALSE_TYPE; /* x253691 */ (t102933.element)[85] = FALSE_TYPE; /* x253692 */ (t102933.element)[86] = FALSE_TYPE; /* x253693 */ (t102933.element)[87] = FALSE_TYPE; /* x253694 */ (t102933.element)[88] = FALSE_TYPE; /* x253695 */ (t102933.element)[89] = FALSE_TYPE; /* x253696 */ (t102933.element)[90] = FALSE_TYPE; /* x253697 */ (t102933.element)[91] = FALSE_TYPE; /* x253698 */ (t102933.element)[92] = FALSE_TYPE; /* x253699 */ (t102933.element)[93] = FALSE_TYPE; /* x253700 */ (t102933.element)[94] = FALSE_TYPE; /* x253701 */ (t102933.element)[95] = FALSE_TYPE; /* x253702 */ (t102933.element)[96] = FALSE_TYPE; /* x253703 */ (t102933.element)[97] = FALSE_TYPE; /* x253704 */ (t102933.element)[98] = FALSE_TYPE; /* x253705 */ (t102933.element)[99] = FALSE_TYPE; /* x253706 */ (t102933.element)[100] = FALSE_TYPE; /* x253707 */ (t102933.element)[101] = FALSE_TYPE; /* x253708 */ (t102933.element)[102] = FALSE_TYPE; /* x253709 */ (t102933.element)[103] = FALSE_TYPE; /* x253710 */ (t102933.element)[104] = FALSE_TYPE; /* x253711 */ (t102933.element)[105] = FALSE_TYPE; /* x253712 */ (t102933.element)[106] = FALSE_TYPE; /* x253713 */ (t102933.element)[107] = FALSE_TYPE; /* x253714 */ (t102933.element)[108] = FALSE_TYPE; /* x253715 */ (t102933.element)[109] = FALSE_TYPE; /* x253716 */ (t102933.element)[110] = FALSE_TYPE; /* x253717 */ (t102933.element)[111] = FALSE_TYPE; /* x253718 */ (t102933.element)[112] = FALSE_TYPE; /* x253719 */ (t102933.element)[113] = FALSE_TYPE; /* x253720 */ (t102933.element)[114] = FALSE_TYPE; /* x253721 */ (t102933.element)[115] = FALSE_TYPE; /* x253722 */ (t102933.element)[116] = FALSE_TYPE; /* x253723 */ (t102933.element)[117] = FALSE_TYPE; /* x253724 */ (t102933.element)[118] = FALSE_TYPE; /* x253725 */ (t102933.element)[119] = FALSE_TYPE; /* x253726 */ (t102933.element)[120] = FALSE_TYPE; /* x253727 */ (t102933.element)[121] = FALSE_TYPE; /* x253728 */ (t102933.element)[122] = FALSE_TYPE; /* x253729 */ (t102933.element)[123] = FALSE_TYPE; /* x253730 */ (t102933.element)[124] = FALSE_TYPE; /* x253731 */ (t102933.element)[125] = FALSE_TYPE; /* x253732 */ (t102933.element)[126] = FALSE_TYPE; /* x253733 */ (t102933.element)[127] = FALSE_TYPE; /* x253734 */ (t102933.element)[128] = FALSE_TYPE; /* x253735 */ (t102933.element)[129] = FALSE_TYPE; /* x253736 */ (t102933.element)[130] = FALSE_TYPE; /* x253737 */ (t102933.element)[131] = FALSE_TYPE; /* x253738 */ (t102933.element)[132] = FALSE_TYPE; /* x253739 */ (t102933.element)[133] = FALSE_TYPE; /* x253740 */ (t102933.element)[134] = FALSE_TYPE; /* x253741 */ (t102933.element)[135] = FALSE_TYPE; /* x253742 */ (t102933.element)[136] = FALSE_TYPE; /* x253743 */ (t102933.element)[137] = FALSE_TYPE; /* x253744 */ (t102933.element)[138] = FALSE_TYPE; /* x253745 */ (t102933.element)[139] = FALSE_TYPE; /* x253746 */ (t102933.element)[140] = FALSE_TYPE; /* x253747 */ (t102933.element)[141] = FALSE_TYPE; /* x253748 */ (t102933.element)[142] = FALSE_TYPE; /* x253749 */ (t102933.element)[143] = FALSE_TYPE; /* x253750 */ (t102933.element)[144] = FALSE_TYPE; /* x253751 */ (t102933.element)[145] = FALSE_TYPE; /* x253752 */ (t102933.element)[146] = FALSE_TYPE; /* x253753 */ (t102933.element)[147] = FALSE_TYPE; /* x253754 */ (t102933.element)[148] = FALSE_TYPE; /* x253755 */ (t102933.element)[149] = FALSE_TYPE; /* x253756 */ (t102933.element)[150] = FALSE_TYPE; /* x253757 */ (t102933.element)[151] = FALSE_TYPE; /* x253758 */ (t102933.element)[152] = FALSE_TYPE; /* x253759 */ (t102933.element)[153] = FALSE_TYPE; /* x253760 */ (t102933.element)[154] = FALSE_TYPE; /* x253761 */ (t102933.element)[155] = FALSE_TYPE; /* x253762 */ (t102933.element)[156] = FALSE_TYPE; /* x253763 */ (t102933.element)[157] = FALSE_TYPE; /* x253764 */ (t102933.element)[158] = FALSE_TYPE; /* x253765 */ (t102933.element)[159] = FALSE_TYPE; /* x253766 */ (t102933.element)[160] = FALSE_TYPE; /* x253767 */ (t102933.element)[161] = FALSE_TYPE; /* x253768 */ (t102933.element)[162] = FALSE_TYPE; /* x253769 */ (t102933.element)[163] = FALSE_TYPE; /* x253770 */ (t102933.element)[164] = FALSE_TYPE; /* x253771 */ (t102933.element)[165] = FALSE_TYPE; /* x253772 */ (t102933.element)[166] = FALSE_TYPE; /* x253773 */ (t102933.element)[167] = FALSE_TYPE; /* x253774 */ (t102933.element)[168] = FALSE_TYPE; /* x253775 */ (t102933.element)[169] = FALSE_TYPE; /* x253776 */ (t102933.element)[170] = FALSE_TYPE; /* x253777 */ (t102933.element)[171] = FALSE_TYPE; /* x253778 */ (t102933.element)[172] = FALSE_TYPE; /* x253779 */ (t102933.element)[173] = FALSE_TYPE; /* x253780 */ (t102933.element)[174] = FALSE_TYPE; /* x253781 */ (t102933.element)[175] = FALSE_TYPE; /* x253782 */ (t102933.element)[176] = FALSE_TYPE; /* x253783 */ (t102933.element)[177] = FALSE_TYPE; /* x253784 */ (t102933.element)[178] = FALSE_TYPE; /* x253785 */ (t102933.element)[179] = FALSE_TYPE; /* x253786 */ (t102933.element)[180] = FALSE_TYPE; /* x253787 */ (t102933.element)[181] = FALSE_TYPE; /* x253788 */ (t102933.element)[182] = FALSE_TYPE; /* x253789 */ (t102933.element)[183] = FALSE_TYPE; /* x253790 */ (t102933.element)[184] = FALSE_TYPE; /* x253791 */ (t102933.element)[185] = FALSE_TYPE; /* x253792 */ (t102933.element)[186] = FALSE_TYPE; /* x253793 */ (t102933.element)[187] = FALSE_TYPE; /* x253794 */ (t102933.element)[188] = FALSE_TYPE; /* x253795 */ (t102933.element)[189] = FALSE_TYPE; /* x253796 */ (t102933.element)[190] = FALSE_TYPE; /* x253797 */ (t102933.element)[191] = FALSE_TYPE; /* x253798 */ (t102933.element)[192] = FALSE_TYPE; /* x253799 */ (t102933.element)[193] = FALSE_TYPE; /* x253800 */ (t102933.element)[194] = FALSE_TYPE; /* x253801 */ (t102933.element)[195] = FALSE_TYPE; /* x253802 */ (t102933.element)[196] = FALSE_TYPE; /* x253803 */ (t102933.element)[197] = FALSE_TYPE; /* x253804 */ (t102933.element)[198] = FALSE_TYPE; /* x253805 */ (t102933.element)[199] = FALSE_TYPE; /* x253806 */ (t102933.element)[200] = FALSE_TYPE; /* x253807 */ (t102933.element)[201] = FALSE_TYPE; /* x253808 */ (t102933.element)[202] = FALSE_TYPE; /* x253809 */ (t102933.element)[203] = FALSE_TYPE; /* x253810 */ (t102933.element)[204] = FALSE_TYPE; /* x253811 */ (t102933.element)[205] = FALSE_TYPE; /* x253812 */ (t102933.element)[206] = FALSE_TYPE; /* x253813 */ (t102933.element)[207] = FALSE_TYPE; /* x253814 */ (t102933.element)[208] = FALSE_TYPE; /* x253815 */ (t102933.element)[209] = FALSE_TYPE; /* x253816 */ (t102933.element)[210] = FALSE_TYPE; /* x253817 */ (t102933.element)[211] = FALSE_TYPE; /* x253818 */ (t102933.element)[212] = FALSE_TYPE; /* x253819 */ (t102933.element)[213] = FALSE_TYPE; /* x253820 */ (t102933.element)[214] = FALSE_TYPE; /* x253821 */ (t102933.element)[215] = FALSE_TYPE; /* x253822 */ (t102933.element)[216] = FALSE_TYPE; /* x253823 */ (t102933.element)[217] = FALSE_TYPE; /* x253824 */ (t102933.element)[218] = FALSE_TYPE; /* x253825 */ (t102933.element)[219] = FALSE_TYPE; /* x253826 */ (t102933.element)[220] = FALSE_TYPE; /* x253827 */ (t102933.element)[221] = FALSE_TYPE; /* x253828 */ (t102933.element)[222] = FALSE_TYPE; /* x253829 */ (t102933.element)[223] = FALSE_TYPE; /* x253830 */ (t102933.element)[224] = FALSE_TYPE; /* x253831 */ (t102933.element)[225] = FALSE_TYPE; /* x253832 */ (t102933.element)[226] = FALSE_TYPE; /* x253833 */ (t102933.element)[227] = FALSE_TYPE; /* x253834 */ (t102933.element)[228] = FALSE_TYPE; /* x253835 */ (t102933.element)[229] = FALSE_TYPE; /* x253836 */ (t102933.element)[230] = FALSE_TYPE; /* x253837 */ (t102933.element)[231] = FALSE_TYPE; /* x253838 */ (t102933.element)[232] = FALSE_TYPE; /* x253839 */ (t102933.element)[233] = FALSE_TYPE; /* x253840 */ (t102933.element)[234] = FALSE_TYPE; /* x253841 */ (t102933.element)[235] = FALSE_TYPE; /* x253842 */ (t102933.element)[236] = FALSE_TYPE; /* x253843 */ (t102933.element)[237] = FALSE_TYPE; /* x253844 */ (t102933.element)[238] = FALSE_TYPE; /* x253845 */ (t102933.element)[239] = FALSE_TYPE; /* x253846 */ (t102933.element)[240] = FALSE_TYPE; /* x253847 */ (t102933.element)[241] = FALSE_TYPE; /* x253848 */ (t102933.element)[242] = FALSE_TYPE; /* x253849 */ (t102933.element)[243] = FALSE_TYPE; /* x253850 */ (t102933.element)[244] = FALSE_TYPE; /* x253851 */ (t102933.element)[245] = FALSE_TYPE; /* x253852 */ (t102933.element)[246] = FALSE_TYPE; /* x253853 */ (t102933.element)[247] = FALSE_TYPE; /* x253854 */ (t102933.element)[248] = FALSE_TYPE; /* x253855 */ (t102933.element)[249] = FALSE_TYPE; /* x253856 */ (t102933.element)[250] = FALSE_TYPE; /* x253857 */ (t102933.element)[251] = FALSE_TYPE; /* x253858 */ (t102933.element)[252] = FALSE_TYPE; /* x253859 */ (t102933.element)[253] = FALSE_TYPE; /* x253860 */ (t102933.element)[254] = FALSE_TYPE; /* x253861 */ (t102933.element)[255] = FALSE_TYPE; t102935.length = 256; /* x253873 */ (t102935.element)[0] = FALSE_TYPE; /* x253874 */ (t102935.element)[1] = FALSE_TYPE; /* x253875 */ (t102935.element)[2] = FALSE_TYPE; /* x253876 */ (t102935.element)[3] = FALSE_TYPE; /* x253877 */ (t102935.element)[4] = FALSE_TYPE; /* x253878 */ (t102935.element)[5] = FALSE_TYPE; /* x253879 */ (t102935.element)[6] = FALSE_TYPE; /* x253880 */ (t102935.element)[7] = FALSE_TYPE; /* x253881 */ (t102935.element)[8] = FALSE_TYPE; /* x253882 */ (t102935.element)[9] = FALSE_TYPE; /* x253883 */ (t102935.element)[10] = FALSE_TYPE; /* x253884 */ (t102935.element)[11] = FALSE_TYPE; /* x253885 */ (t102935.element)[12] = FALSE_TYPE; /* x253886 */ (t102935.element)[13] = FALSE_TYPE; /* x253887 */ (t102935.element)[14] = FALSE_TYPE; /* x253888 */ (t102935.element)[15] = FALSE_TYPE; /* x253889 */ (t102935.element)[16] = FALSE_TYPE; /* x253890 */ (t102935.element)[17] = FALSE_TYPE; /* x253891 */ (t102935.element)[18] = FALSE_TYPE; /* x253892 */ (t102935.element)[19] = FALSE_TYPE; /* x253893 */ (t102935.element)[20] = FALSE_TYPE; /* x253894 */ (t102935.element)[21] = FALSE_TYPE; /* x253895 */ (t102935.element)[22] = FALSE_TYPE; /* x253896 */ (t102935.element)[23] = FALSE_TYPE; /* x253897 */ (t102935.element)[24] = FALSE_TYPE; /* x253898 */ (t102935.element)[25] = FALSE_TYPE; /* x253899 */ (t102935.element)[26] = FALSE_TYPE; /* x253900 */ (t102935.element)[27] = FALSE_TYPE; /* x253901 */ (t102935.element)[28] = FALSE_TYPE; /* x253902 */ (t102935.element)[29] = FALSE_TYPE; /* x253903 */ (t102935.element)[30] = FALSE_TYPE; /* x253904 */ (t102935.element)[31] = FALSE_TYPE; /* x253905 */ (t102935.element)[32] = FALSE_TYPE; /* x253906 */ (t102935.element)[33] = FALSE_TYPE; /* x253907 */ (t102935.element)[34] = FALSE_TYPE; /* x253908 */ (t102935.element)[35] = FALSE_TYPE; /* x253909 */ (t102935.element)[36] = FALSE_TYPE; /* x253910 */ (t102935.element)[37] = FALSE_TYPE; /* x253911 */ (t102935.element)[38] = FALSE_TYPE; /* x253912 */ (t102935.element)[39] = FALSE_TYPE; /* x253913 */ (t102935.element)[40] = FALSE_TYPE; /* x253914 */ (t102935.element)[41] = FALSE_TYPE; /* x253915 */ (t102935.element)[42] = FALSE_TYPE; /* x253916 */ (t102935.element)[43] = FALSE_TYPE; /* x253917 */ (t102935.element)[44] = FALSE_TYPE; /* x253918 */ (t102935.element)[45] = FALSE_TYPE; /* x253919 */ (t102935.element)[46] = FALSE_TYPE; /* x253920 */ (t102935.element)[47] = FALSE_TYPE; /* x253921 */ (t102935.element)[48] = FALSE_TYPE; /* x253922 */ (t102935.element)[49] = FALSE_TYPE; /* x253923 */ (t102935.element)[50] = FALSE_TYPE; /* x253924 */ (t102935.element)[51] = FALSE_TYPE; /* x253925 */ (t102935.element)[52] = FALSE_TYPE; /* x253926 */ (t102935.element)[53] = FALSE_TYPE; /* x253927 */ (t102935.element)[54] = FALSE_TYPE; /* x253928 */ (t102935.element)[55] = FALSE_TYPE; /* x253929 */ (t102935.element)[56] = FALSE_TYPE; /* x253930 */ (t102935.element)[57] = FALSE_TYPE; /* x253931 */ (t102935.element)[58] = FALSE_TYPE; /* x253932 */ (t102935.element)[59] = FALSE_TYPE; /* x253933 */ (t102935.element)[60] = FALSE_TYPE; /* x253934 */ (t102935.element)[61] = FALSE_TYPE; /* x253935 */ (t102935.element)[62] = FALSE_TYPE; /* x253936 */ (t102935.element)[63] = FALSE_TYPE; /* x253937 */ (t102935.element)[64] = FALSE_TYPE; /* x253938 */ (t102935.element)[65] = TRUE_TYPE; /* x253939 */ (t102935.element)[66] = TRUE_TYPE; /* x253940 */ (t102935.element)[67] = TRUE_TYPE; /* x253941 */ (t102935.element)[68] = TRUE_TYPE; /* x253942 */ (t102935.element)[69] = TRUE_TYPE; /* x253943 */ (t102935.element)[70] = TRUE_TYPE; /* x253944 */ (t102935.element)[71] = TRUE_TYPE; /* x253945 */ (t102935.element)[72] = TRUE_TYPE; /* x253946 */ (t102935.element)[73] = TRUE_TYPE; /* x253947 */ (t102935.element)[74] = TRUE_TYPE; /* x253948 */ (t102935.element)[75] = TRUE_TYPE; /* x253949 */ (t102935.element)[76] = TRUE_TYPE; /* x253950 */ (t102935.element)[77] = TRUE_TYPE; /* x253951 */ (t102935.element)[78] = TRUE_TYPE; /* x253952 */ (t102935.element)[79] = TRUE_TYPE; /* x253953 */ (t102935.element)[80] = TRUE_TYPE; /* x253954 */ (t102935.element)[81] = TRUE_TYPE; /* x253955 */ (t102935.element)[82] = TRUE_TYPE; /* x253956 */ (t102935.element)[83] = TRUE_TYPE; /* x253957 */ (t102935.element)[84] = TRUE_TYPE; /* x253958 */ (t102935.element)[85] = TRUE_TYPE; /* x253959 */ (t102935.element)[86] = TRUE_TYPE; /* x253960 */ (t102935.element)[87] = TRUE_TYPE; /* x253961 */ (t102935.element)[88] = TRUE_TYPE; /* x253962 */ (t102935.element)[89] = TRUE_TYPE; /* x253963 */ (t102935.element)[90] = TRUE_TYPE; /* x253964 */ (t102935.element)[91] = FALSE_TYPE; /* x253965 */ (t102935.element)[92] = FALSE_TYPE; /* x253966 */ (t102935.element)[93] = FALSE_TYPE; /* x253967 */ (t102935.element)[94] = FALSE_TYPE; /* x253968 */ (t102935.element)[95] = FALSE_TYPE; /* x253969 */ (t102935.element)[96] = FALSE_TYPE; /* x253970 */ (t102935.element)[97] = FALSE_TYPE; /* x253971 */ (t102935.element)[98] = FALSE_TYPE; /* x253972 */ (t102935.element)[99] = FALSE_TYPE; /* x253973 */ (t102935.element)[100] = FALSE_TYPE; /* x253974 */ (t102935.element)[101] = FALSE_TYPE; /* x253975 */ (t102935.element)[102] = FALSE_TYPE; /* x253976 */ (t102935.element)[103] = FALSE_TYPE; /* x253977 */ (t102935.element)[104] = FALSE_TYPE; /* x253978 */ (t102935.element)[105] = FALSE_TYPE; /* x253979 */ (t102935.element)[106] = FALSE_TYPE; /* x253980 */ (t102935.element)[107] = FALSE_TYPE; /* x253981 */ (t102935.element)[108] = FALSE_TYPE; /* x253982 */ (t102935.element)[109] = FALSE_TYPE; /* x253983 */ (t102935.element)[110] = FALSE_TYPE; /* x253984 */ (t102935.element)[111] = FALSE_TYPE; /* x253985 */ (t102935.element)[112] = FALSE_TYPE; /* x253986 */ (t102935.element)[113] = FALSE_TYPE; /* x253987 */ (t102935.element)[114] = FALSE_TYPE; /* x253988 */ (t102935.element)[115] = FALSE_TYPE; /* x253989 */ (t102935.element)[116] = FALSE_TYPE; /* x253990 */ (t102935.element)[117] = FALSE_TYPE; /* x253991 */ (t102935.element)[118] = FALSE_TYPE; /* x253992 */ (t102935.element)[119] = FALSE_TYPE; /* x253993 */ (t102935.element)[120] = FALSE_TYPE; /* x253994 */ (t102935.element)[121] = FALSE_TYPE; /* x253995 */ (t102935.element)[122] = FALSE_TYPE; /* x253996 */ (t102935.element)[123] = FALSE_TYPE; /* x253997 */ (t102935.element)[124] = FALSE_TYPE; /* x253998 */ (t102935.element)[125] = FALSE_TYPE; /* x253999 */ (t102935.element)[126] = FALSE_TYPE; /* x254000 */ (t102935.element)[127] = FALSE_TYPE; /* x254001 */ (t102935.element)[128] = FALSE_TYPE; /* x254002 */ (t102935.element)[129] = FALSE_TYPE; /* x254003 */ (t102935.element)[130] = FALSE_TYPE; /* x254004 */ (t102935.element)[131] = FALSE_TYPE; /* x254005 */ (t102935.element)[132] = FALSE_TYPE; /* x254006 */ (t102935.element)[133] = FALSE_TYPE; /* x254007 */ (t102935.element)[134] = FALSE_TYPE; /* x254008 */ (t102935.element)[135] = FALSE_TYPE; /* x254009 */ (t102935.element)[136] = FALSE_TYPE; /* x254010 */ (t102935.element)[137] = FALSE_TYPE; /* x254011 */ (t102935.element)[138] = FALSE_TYPE; /* x254012 */ (t102935.element)[139] = FALSE_TYPE; /* x254013 */ (t102935.element)[140] = FALSE_TYPE; /* x254014 */ (t102935.element)[141] = FALSE_TYPE; /* x254015 */ (t102935.element)[142] = FALSE_TYPE; /* x254016 */ (t102935.element)[143] = FALSE_TYPE; /* x254017 */ (t102935.element)[144] = FALSE_TYPE; /* x254018 */ (t102935.element)[145] = FALSE_TYPE; /* x254019 */ (t102935.element)[146] = FALSE_TYPE; /* x254020 */ (t102935.element)[147] = FALSE_TYPE; /* x254021 */ (t102935.element)[148] = FALSE_TYPE; /* x254022 */ (t102935.element)[149] = FALSE_TYPE; /* x254023 */ (t102935.element)[150] = FALSE_TYPE; /* x254024 */ (t102935.element)[151] = FALSE_TYPE; /* x254025 */ (t102935.element)[152] = FALSE_TYPE; /* x254026 */ (t102935.element)[153] = FALSE_TYPE; /* x254027 */ (t102935.element)[154] = FALSE_TYPE; /* x254028 */ (t102935.element)[155] = FALSE_TYPE; /* x254029 */ (t102935.element)[156] = FALSE_TYPE; /* x254030 */ (t102935.element)[157] = FALSE_TYPE; /* x254031 */ (t102935.element)[158] = FALSE_TYPE; /* x254032 */ (t102935.element)[159] = FALSE_TYPE; /* x254033 */ (t102935.element)[160] = FALSE_TYPE; /* x254034 */ (t102935.element)[161] = FALSE_TYPE; /* x254035 */ (t102935.element)[162] = FALSE_TYPE; /* x254036 */ (t102935.element)[163] = FALSE_TYPE; /* x254037 */ (t102935.element)[164] = FALSE_TYPE; /* x254038 */ (t102935.element)[165] = FALSE_TYPE; /* x254039 */ (t102935.element)[166] = FALSE_TYPE; /* x254040 */ (t102935.element)[167] = FALSE_TYPE; /* x254041 */ (t102935.element)[168] = FALSE_TYPE; /* x254042 */ (t102935.element)[169] = FALSE_TYPE; /* x254043 */ (t102935.element)[170] = FALSE_TYPE; /* x254044 */ (t102935.element)[171] = FALSE_TYPE; /* x254045 */ (t102935.element)[172] = FALSE_TYPE; /* x254046 */ (t102935.element)[173] = FALSE_TYPE; /* x254047 */ (t102935.element)[174] = FALSE_TYPE; /* x254048 */ (t102935.element)[175] = FALSE_TYPE; /* x254049 */ (t102935.element)[176] = FALSE_TYPE; /* x254050 */ (t102935.element)[177] = FALSE_TYPE; /* x254051 */ (t102935.element)[178] = FALSE_TYPE; /* x254052 */ (t102935.element)[179] = FALSE_TYPE; /* x254053 */ (t102935.element)[180] = FALSE_TYPE; /* x254054 */ (t102935.element)[181] = FALSE_TYPE; /* x254055 */ (t102935.element)[182] = FALSE_TYPE; /* x254056 */ (t102935.element)[183] = FALSE_TYPE; /* x254057 */ (t102935.element)[184] = FALSE_TYPE; /* x254058 */ (t102935.element)[185] = FALSE_TYPE; /* x254059 */ (t102935.element)[186] = FALSE_TYPE; /* x254060 */ (t102935.element)[187] = FALSE_TYPE; /* x254061 */ (t102935.element)[188] = FALSE_TYPE; /* x254062 */ (t102935.element)[189] = FALSE_TYPE; /* x254063 */ (t102935.element)[190] = FALSE_TYPE; /* x254064 */ (t102935.element)[191] = FALSE_TYPE; /* x254065 */ (t102935.element)[192] = TRUE_TYPE; /* x254066 */ (t102935.element)[193] = TRUE_TYPE; /* x254067 */ (t102935.element)[194] = TRUE_TYPE; /* x254068 */ (t102935.element)[195] = TRUE_TYPE; /* x254069 */ (t102935.element)[196] = TRUE_TYPE; /* x254070 */ (t102935.element)[197] = TRUE_TYPE; /* x254071 */ (t102935.element)[198] = TRUE_TYPE; /* x254072 */ (t102935.element)[199] = TRUE_TYPE; /* x254073 */ (t102935.element)[200] = TRUE_TYPE; /* x254074 */ (t102935.element)[201] = TRUE_TYPE; /* x254075 */ (t102935.element)[202] = TRUE_TYPE; /* x254076 */ (t102935.element)[203] = TRUE_TYPE; /* x254077 */ (t102935.element)[204] = TRUE_TYPE; /* x254078 */ (t102935.element)[205] = TRUE_TYPE; /* x254079 */ (t102935.element)[206] = TRUE_TYPE; /* x254080 */ (t102935.element)[207] = TRUE_TYPE; /* x254081 */ (t102935.element)[208] = TRUE_TYPE; /* x254082 */ (t102935.element)[209] = TRUE_TYPE; /* x254083 */ (t102935.element)[210] = TRUE_TYPE; /* x254084 */ (t102935.element)[211] = TRUE_TYPE; /* x254085 */ (t102935.element)[212] = TRUE_TYPE; /* x254086 */ (t102935.element)[213] = TRUE_TYPE; /* x254087 */ (t102935.element)[214] = TRUE_TYPE; /* x254088 */ (t102935.element)[215] = FALSE_TYPE; /* x254089 */ (t102935.element)[216] = TRUE_TYPE; /* x254090 */ (t102935.element)[217] = TRUE_TYPE; /* x254091 */ (t102935.element)[218] = TRUE_TYPE;} void initialize_constants41(void) {/* x254092 */ (t102935.element)[219] = TRUE_TYPE; /* x254093 */ (t102935.element)[220] = TRUE_TYPE; /* x254094 */ (t102935.element)[221] = TRUE_TYPE; /* x254095 */ (t102935.element)[222] = TRUE_TYPE; /* x254096 */ (t102935.element)[223] = FALSE_TYPE; /* x254097 */ (t102935.element)[224] = FALSE_TYPE; /* x254098 */ (t102935.element)[225] = FALSE_TYPE; /* x254099 */ (t102935.element)[226] = FALSE_TYPE; /* x254100 */ (t102935.element)[227] = FALSE_TYPE; /* x254101 */ (t102935.element)[228] = FALSE_TYPE; /* x254102 */ (t102935.element)[229] = FALSE_TYPE; /* x254103 */ (t102935.element)[230] = FALSE_TYPE; /* x254104 */ (t102935.element)[231] = FALSE_TYPE; /* x254105 */ (t102935.element)[232] = FALSE_TYPE; /* x254106 */ (t102935.element)[233] = FALSE_TYPE; /* x254107 */ (t102935.element)[234] = FALSE_TYPE; /* x254108 */ (t102935.element)[235] = FALSE_TYPE; /* x254109 */ (t102935.element)[236] = FALSE_TYPE; /* x254110 */ (t102935.element)[237] = FALSE_TYPE; /* x254111 */ (t102935.element)[238] = FALSE_TYPE; /* x254112 */ (t102935.element)[239] = FALSE_TYPE; /* x254113 */ (t102935.element)[240] = FALSE_TYPE; /* x254114 */ (t102935.element)[241] = FALSE_TYPE; /* x254115 */ (t102935.element)[242] = FALSE_TYPE; /* x254116 */ (t102935.element)[243] = FALSE_TYPE; /* x254117 */ (t102935.element)[244] = FALSE_TYPE; /* x254118 */ (t102935.element)[245] = FALSE_TYPE; /* x254119 */ (t102935.element)[246] = FALSE_TYPE; /* x254120 */ (t102935.element)[247] = FALSE_TYPE; /* x254121 */ (t102935.element)[248] = FALSE_TYPE; /* x254122 */ (t102935.element)[249] = FALSE_TYPE; /* x254123 */ (t102935.element)[250] = FALSE_TYPE; /* x254124 */ (t102935.element)[251] = FALSE_TYPE; /* x254125 */ (t102935.element)[252] = FALSE_TYPE; /* x254126 */ (t102935.element)[253] = FALSE_TYPE; /* x254127 */ (t102935.element)[254] = FALSE_TYPE; /* x254128 */ (t102935.element)[255] = FALSE_TYPE; t102937.length = 256; /* x254140 */ (t102937.element)[0] = FALSE_TYPE; /* x254141 */ (t102937.element)[1] = FALSE_TYPE; /* x254142 */ (t102937.element)[2] = FALSE_TYPE; /* x254143 */ (t102937.element)[3] = FALSE_TYPE; /* x254144 */ (t102937.element)[4] = FALSE_TYPE; /* x254145 */ (t102937.element)[5] = FALSE_TYPE; /* x254146 */ (t102937.element)[6] = FALSE_TYPE; /* x254147 */ (t102937.element)[7] = FALSE_TYPE; /* x254148 */ (t102937.element)[8] = FALSE_TYPE; /* x254149 */ (t102937.element)[9] = FALSE_TYPE; /* x254150 */ (t102937.element)[10] = FALSE_TYPE; /* x254151 */ (t102937.element)[11] = FALSE_TYPE; /* x254152 */ (t102937.element)[12] = FALSE_TYPE; /* x254153 */ (t102937.element)[13] = FALSE_TYPE; /* x254154 */ (t102937.element)[14] = FALSE_TYPE; /* x254155 */ (t102937.element)[15] = FALSE_TYPE; /* x254156 */ (t102937.element)[16] = FALSE_TYPE; /* x254157 */ (t102937.element)[17] = FALSE_TYPE; /* x254158 */ (t102937.element)[18] = FALSE_TYPE; /* x254159 */ (t102937.element)[19] = FALSE_TYPE; /* x254160 */ (t102937.element)[20] = FALSE_TYPE; /* x254161 */ (t102937.element)[21] = FALSE_TYPE; /* x254162 */ (t102937.element)[22] = FALSE_TYPE; /* x254163 */ (t102937.element)[23] = FALSE_TYPE; /* x254164 */ (t102937.element)[24] = FALSE_TYPE; /* x254165 */ (t102937.element)[25] = FALSE_TYPE; /* x254166 */ (t102937.element)[26] = FALSE_TYPE; /* x254167 */ (t102937.element)[27] = FALSE_TYPE; /* x254168 */ (t102937.element)[28] = FALSE_TYPE; /* x254169 */ (t102937.element)[29] = FALSE_TYPE; /* x254170 */ (t102937.element)[30] = FALSE_TYPE; /* x254171 */ (t102937.element)[31] = FALSE_TYPE; /* x254172 */ (t102937.element)[32] = FALSE_TYPE; /* x254173 */ (t102937.element)[33] = FALSE_TYPE; /* x254174 */ (t102937.element)[34] = FALSE_TYPE; /* x254175 */ (t102937.element)[35] = FALSE_TYPE; /* x254176 */ (t102937.element)[36] = FALSE_TYPE; /* x254177 */ (t102937.element)[37] = FALSE_TYPE; /* x254178 */ (t102937.element)[38] = FALSE_TYPE; /* x254179 */ (t102937.element)[39] = FALSE_TYPE; /* x254180 */ (t102937.element)[40] = FALSE_TYPE; /* x254181 */ (t102937.element)[41] = FALSE_TYPE; /* x254182 */ (t102937.element)[42] = FALSE_TYPE; /* x254183 */ (t102937.element)[43] = FALSE_TYPE; /* x254184 */ (t102937.element)[44] = FALSE_TYPE; /* x254185 */ (t102937.element)[45] = FALSE_TYPE; /* x254186 */ (t102937.element)[46] = FALSE_TYPE; /* x254187 */ (t102937.element)[47] = FALSE_TYPE; /* x254188 */ (t102937.element)[48] = FALSE_TYPE; /* x254189 */ (t102937.element)[49] = FALSE_TYPE; /* x254190 */ (t102937.element)[50] = FALSE_TYPE; /* x254191 */ (t102937.element)[51] = FALSE_TYPE; /* x254192 */ (t102937.element)[52] = FALSE_TYPE; /* x254193 */ (t102937.element)[53] = FALSE_TYPE; /* x254194 */ (t102937.element)[54] = FALSE_TYPE; /* x254195 */ (t102937.element)[55] = FALSE_TYPE; /* x254196 */ (t102937.element)[56] = FALSE_TYPE; /* x254197 */ (t102937.element)[57] = FALSE_TYPE; /* x254198 */ (t102937.element)[58] = FALSE_TYPE; /* x254199 */ (t102937.element)[59] = FALSE_TYPE; /* x254200 */ (t102937.element)[60] = FALSE_TYPE; /* x254201 */ (t102937.element)[61] = FALSE_TYPE; /* x254202 */ (t102937.element)[62] = FALSE_TYPE; /* x254203 */ (t102937.element)[63] = FALSE_TYPE; /* x254204 */ (t102937.element)[64] = FALSE_TYPE; /* x254205 */ (t102937.element)[65] = FALSE_TYPE; /* x254206 */ (t102937.element)[66] = FALSE_TYPE; /* x254207 */ (t102937.element)[67] = FALSE_TYPE; /* x254208 */ (t102937.element)[68] = FALSE_TYPE; /* x254209 */ (t102937.element)[69] = FALSE_TYPE; /* x254210 */ (t102937.element)[70] = FALSE_TYPE; /* x254211 */ (t102937.element)[71] = FALSE_TYPE; /* x254212 */ (t102937.element)[72] = FALSE_TYPE; /* x254213 */ (t102937.element)[73] = FALSE_TYPE; /* x254214 */ (t102937.element)[74] = FALSE_TYPE; /* x254215 */ (t102937.element)[75] = FALSE_TYPE; /* x254216 */ (t102937.element)[76] = FALSE_TYPE; /* x254217 */ (t102937.element)[77] = FALSE_TYPE; /* x254218 */ (t102937.element)[78] = FALSE_TYPE; /* x254219 */ (t102937.element)[79] = FALSE_TYPE; /* x254220 */ (t102937.element)[80] = FALSE_TYPE; /* x254221 */ (t102937.element)[81] = FALSE_TYPE; /* x254222 */ (t102937.element)[82] = FALSE_TYPE; /* x254223 */ (t102937.element)[83] = FALSE_TYPE; /* x254224 */ (t102937.element)[84] = FALSE_TYPE; /* x254225 */ (t102937.element)[85] = FALSE_TYPE; /* x254226 */ (t102937.element)[86] = FALSE_TYPE; /* x254227 */ (t102937.element)[87] = FALSE_TYPE; /* x254228 */ (t102937.element)[88] = FALSE_TYPE; /* x254229 */ (t102937.element)[89] = FALSE_TYPE; /* x254230 */ (t102937.element)[90] = FALSE_TYPE; /* x254231 */ (t102937.element)[91] = FALSE_TYPE; /* x254232 */ (t102937.element)[92] = FALSE_TYPE; /* x254233 */ (t102937.element)[93] = FALSE_TYPE; /* x254234 */ (t102937.element)[94] = FALSE_TYPE; /* x254235 */ (t102937.element)[95] = FALSE_TYPE; /* x254236 */ (t102937.element)[96] = FALSE_TYPE; /* x254237 */ (t102937.element)[97] = TRUE_TYPE; /* x254238 */ (t102937.element)[98] = TRUE_TYPE; /* x254239 */ (t102937.element)[99] = TRUE_TYPE; /* x254240 */ (t102937.element)[100] = TRUE_TYPE; /* x254241 */ (t102937.element)[101] = TRUE_TYPE; /* x254242 */ (t102937.element)[102] = TRUE_TYPE; /* x254243 */ (t102937.element)[103] = TRUE_TYPE; /* x254244 */ (t102937.element)[104] = TRUE_TYPE; /* x254245 */ (t102937.element)[105] = TRUE_TYPE; /* x254246 */ (t102937.element)[106] = TRUE_TYPE; /* x254247 */ (t102937.element)[107] = TRUE_TYPE; /* x254248 */ (t102937.element)[108] = TRUE_TYPE; /* x254249 */ (t102937.element)[109] = TRUE_TYPE; /* x254250 */ (t102937.element)[110] = TRUE_TYPE; /* x254251 */ (t102937.element)[111] = TRUE_TYPE; /* x254252 */ (t102937.element)[112] = TRUE_TYPE; /* x254253 */ (t102937.element)[113] = TRUE_TYPE; /* x254254 */ (t102937.element)[114] = TRUE_TYPE; /* x254255 */ (t102937.element)[115] = TRUE_TYPE; /* x254256 */ (t102937.element)[116] = TRUE_TYPE; /* x254257 */ (t102937.element)[117] = TRUE_TYPE; /* x254258 */ (t102937.element)[118] = TRUE_TYPE; /* x254259 */ (t102937.element)[119] = TRUE_TYPE; /* x254260 */ (t102937.element)[120] = TRUE_TYPE; /* x254261 */ (t102937.element)[121] = TRUE_TYPE; /* x254262 */ (t102937.element)[122] = TRUE_TYPE; /* x254263 */ (t102937.element)[123] = FALSE_TYPE; /* x254264 */ (t102937.element)[124] = FALSE_TYPE; /* x254265 */ (t102937.element)[125] = FALSE_TYPE; /* x254266 */ (t102937.element)[126] = FALSE_TYPE; /* x254267 */ (t102937.element)[127] = FALSE_TYPE; /* x254268 */ (t102937.element)[128] = FALSE_TYPE; /* x254269 */ (t102937.element)[129] = FALSE_TYPE; /* x254270 */ (t102937.element)[130] = FALSE_TYPE; /* x254271 */ (t102937.element)[131] = FALSE_TYPE; /* x254272 */ (t102937.element)[132] = FALSE_TYPE; /* x254273 */ (t102937.element)[133] = FALSE_TYPE; /* x254274 */ (t102937.element)[134] = FALSE_TYPE; /* x254275 */ (t102937.element)[135] = FALSE_TYPE; /* x254276 */ (t102937.element)[136] = FALSE_TYPE; /* x254277 */ (t102937.element)[137] = FALSE_TYPE; /* x254278 */ (t102937.element)[138] = FALSE_TYPE; /* x254279 */ (t102937.element)[139] = FALSE_TYPE; /* x254280 */ (t102937.element)[140] = FALSE_TYPE; /* x254281 */ (t102937.element)[141] = FALSE_TYPE; /* x254282 */ (t102937.element)[142] = FALSE_TYPE; /* x254283 */ (t102937.element)[143] = FALSE_TYPE; /* x254284 */ (t102937.element)[144] = FALSE_TYPE; /* x254285 */ (t102937.element)[145] = FALSE_TYPE; /* x254286 */ (t102937.element)[146] = FALSE_TYPE; /* x254287 */ (t102937.element)[147] = FALSE_TYPE; /* x254288 */ (t102937.element)[148] = FALSE_TYPE; /* x254289 */ (t102937.element)[149] = FALSE_TYPE; /* x254290 */ (t102937.element)[150] = FALSE_TYPE; /* x254291 */ (t102937.element)[151] = FALSE_TYPE; /* x254292 */ (t102937.element)[152] = FALSE_TYPE; /* x254293 */ (t102937.element)[153] = FALSE_TYPE; /* x254294 */ (t102937.element)[154] = FALSE_TYPE; /* x254295 */ (t102937.element)[155] = FALSE_TYPE; /* x254296 */ (t102937.element)[156] = FALSE_TYPE; /* x254297 */ (t102937.element)[157] = FALSE_TYPE; /* x254298 */ (t102937.element)[158] = FALSE_TYPE; /* x254299 */ (t102937.element)[159] = FALSE_TYPE; /* x254300 */ (t102937.element)[160] = FALSE_TYPE; /* x254301 */ (t102937.element)[161] = FALSE_TYPE; /* x254302 */ (t102937.element)[162] = FALSE_TYPE; /* x254303 */ (t102937.element)[163] = FALSE_TYPE; /* x254304 */ (t102937.element)[164] = FALSE_TYPE; /* x254305 */ (t102937.element)[165] = FALSE_TYPE; /* x254306 */ (t102937.element)[166] = FALSE_TYPE; /* x254307 */ (t102937.element)[167] = FALSE_TYPE; /* x254308 */ (t102937.element)[168] = FALSE_TYPE; /* x254309 */ (t102937.element)[169] = FALSE_TYPE; /* x254310 */ (t102937.element)[170] = FALSE_TYPE; /* x254311 */ (t102937.element)[171] = FALSE_TYPE; /* x254312 */ (t102937.element)[172] = FALSE_TYPE; /* x254313 */ (t102937.element)[173] = FALSE_TYPE; /* x254314 */ (t102937.element)[174] = FALSE_TYPE; /* x254315 */ (t102937.element)[175] = FALSE_TYPE; /* x254316 */ (t102937.element)[176] = FALSE_TYPE; /* x254317 */ (t102937.element)[177] = FALSE_TYPE; /* x254318 */ (t102937.element)[178] = FALSE_TYPE; /* x254319 */ (t102937.element)[179] = FALSE_TYPE; /* x254320 */ (t102937.element)[180] = FALSE_TYPE; /* x254321 */ (t102937.element)[181] = FALSE_TYPE; /* x254322 */ (t102937.element)[182] = FALSE_TYPE; /* x254323 */ (t102937.element)[183] = FALSE_TYPE; /* x254324 */ (t102937.element)[184] = FALSE_TYPE; /* x254325 */ (t102937.element)[185] = FALSE_TYPE; /* x254326 */ (t102937.element)[186] = FALSE_TYPE; /* x254327 */ (t102937.element)[187] = FALSE_TYPE; /* x254328 */ (t102937.element)[188] = FALSE_TYPE; /* x254329 */ (t102937.element)[189] = FALSE_TYPE; /* x254330 */ (t102937.element)[190] = FALSE_TYPE; /* x254331 */ (t102937.element)[191] = FALSE_TYPE; /* x254332 */ (t102937.element)[192] = FALSE_TYPE; /* x254333 */ (t102937.element)[193] = FALSE_TYPE; /* x254334 */ (t102937.element)[194] = FALSE_TYPE; /* x254335 */ (t102937.element)[195] = FALSE_TYPE; /* x254336 */ (t102937.element)[196] = FALSE_TYPE; /* x254337 */ (t102937.element)[197] = FALSE_TYPE; /* x254338 */ (t102937.element)[198] = FALSE_TYPE; /* x254339 */ (t102937.element)[199] = FALSE_TYPE; /* x254340 */ (t102937.element)[200] = FALSE_TYPE; /* x254341 */ (t102937.element)[201] = FALSE_TYPE; /* x254342 */ (t102937.element)[202] = FALSE_TYPE; /* x254343 */ (t102937.element)[203] = FALSE_TYPE; /* x254344 */ (t102937.element)[204] = FALSE_TYPE; /* x254345 */ (t102937.element)[205] = FALSE_TYPE; /* x254346 */ (t102937.element)[206] = FALSE_TYPE; /* x254347 */ (t102937.element)[207] = FALSE_TYPE; /* x254348 */ (t102937.element)[208] = FALSE_TYPE; /* x254349 */ (t102937.element)[209] = FALSE_TYPE; /* x254350 */ (t102937.element)[210] = FALSE_TYPE; /* x254351 */ (t102937.element)[211] = FALSE_TYPE; /* x254352 */ (t102937.element)[212] = FALSE_TYPE; /* x254353 */ (t102937.element)[213] = FALSE_TYPE; /* x254354 */ (t102937.element)[214] = FALSE_TYPE; /* x254355 */ (t102937.element)[215] = FALSE_TYPE; /* x254356 */ (t102937.element)[216] = FALSE_TYPE; /* x254357 */ (t102937.element)[217] = FALSE_TYPE; /* x254358 */ (t102937.element)[218] = FALSE_TYPE; /* x254359 */ (t102937.element)[219] = FALSE_TYPE; /* x254360 */ (t102937.element)[220] = FALSE_TYPE; /* x254361 */ (t102937.element)[221] = FALSE_TYPE; /* x254362 */ (t102937.element)[222] = FALSE_TYPE; /* x254363 */ (t102937.element)[223] = TRUE_TYPE; /* x254364 */ (t102937.element)[224] = TRUE_TYPE; /* x254365 */ (t102937.element)[225] = TRUE_TYPE; /* x254366 */ (t102937.element)[226] = TRUE_TYPE; /* x254367 */ (t102937.element)[227] = TRUE_TYPE; /* x254368 */ (t102937.element)[228] = TRUE_TYPE; /* x254369 */ (t102937.element)[229] = TRUE_TYPE; /* x254370 */ (t102937.element)[230] = TRUE_TYPE; /* x254371 */ (t102937.element)[231] = TRUE_TYPE; /* x254372 */ (t102937.element)[232] = TRUE_TYPE; /* x254373 */ (t102937.element)[233] = TRUE_TYPE; /* x254374 */ (t102937.element)[234] = TRUE_TYPE; /* x254375 */ (t102937.element)[235] = TRUE_TYPE; /* x254376 */ (t102937.element)[236] = TRUE_TYPE; /* x254377 */ (t102937.element)[237] = TRUE_TYPE; /* x254378 */ (t102937.element)[238] = TRUE_TYPE; /* x254379 */ (t102937.element)[239] = TRUE_TYPE; /* x254380 */ (t102937.element)[240] = TRUE_TYPE; /* x254381 */ (t102937.element)[241] = TRUE_TYPE; /* x254382 */ (t102937.element)[242] = TRUE_TYPE; /* x254383 */ (t102937.element)[243] = TRUE_TYPE; /* x254384 */ (t102937.element)[244] = TRUE_TYPE; /* x254385 */ (t102937.element)[245] = TRUE_TYPE; /* x254386 */ (t102937.element)[246] = TRUE_TYPE; /* x254387 */ (t102937.element)[247] = FALSE_TYPE; /* x254388 */ (t102937.element)[248] = TRUE_TYPE; /* x254389 */ (t102937.element)[249] = TRUE_TYPE; /* x254390 */ (t102937.element)[250] = TRUE_TYPE; /* x254391 */ (t102937.element)[251] = TRUE_TYPE; /* x254392 */ (t102937.element)[252] = TRUE_TYPE; /* x254393 */ (t102937.element)[253] = TRUE_TYPE; /* x254394 */ (t102937.element)[254] = TRUE_TYPE; /* x254395 */ (t102937.element)[255] = TRUE_TYPE; t102939.length = 256; /* x254419 */ (t102939.element)[0] = 0; /* x254420 */ (t102939.element)[1] = 1; /* x254421 */ (t102939.element)[2] = 2; /* x254422 */ (t102939.element)[3] = 3; /* x254423 */ (t102939.element)[4] = 4; /* x254424 */ (t102939.element)[5] = 5; /* x254425 */ (t102939.element)[6] = 6; /* x254426 */ (t102939.element)[7] = 7; /* x254427 */ (t102939.element)[8] = 8; /* x254428 */ (t102939.element)[9] = 9; /* x254429 */ (t102939.element)[10] = 10; /* x254430 */ (t102939.element)[11] = 11; /* x254431 */ (t102939.element)[12] = 12; /* x254432 */ (t102939.element)[13] = 13; /* x254433 */ (t102939.element)[14] = 14; /* x254434 */ (t102939.element)[15] = 15; /* x254435 */ (t102939.element)[16] = 16; /* x254436 */ (t102939.element)[17] = 17; /* x254437 */ (t102939.element)[18] = 18; /* x254438 */ (t102939.element)[19] = 19; /* x254439 */ (t102939.element)[20] = 20; /* x254440 */ (t102939.element)[21] = 21; /* x254441 */ (t102939.element)[22] = 22; /* x254442 */ (t102939.element)[23] = 23; /* x254443 */ (t102939.element)[24] = 24; /* x254444 */ (t102939.element)[25] = 25; /* x254445 */ (t102939.element)[26] = 26; /* x254446 */ (t102939.element)[27] = 27; /* x254447 */ (t102939.element)[28] = 28; /* x254448 */ (t102939.element)[29] = 29; /* x254449 */ (t102939.element)[30] = 30; /* x254450 */ (t102939.element)[31] = 31; /* x254451 */ (t102939.element)[32] = 32; /* x254452 */ (t102939.element)[33] = 33; /* x254453 */ (t102939.element)[34] = 34; /* x254454 */ (t102939.element)[35] = 35; /* x254455 */ (t102939.element)[36] = 36; /* x254456 */ (t102939.element)[37] = 37; /* x254457 */ (t102939.element)[38] = 38; /* x254458 */ (t102939.element)[39] = 39; /* x254459 */ (t102939.element)[40] = 40; /* x254460 */ (t102939.element)[41] = 41; /* x254461 */ (t102939.element)[42] = 42; /* x254462 */ (t102939.element)[43] = 43; /* x254463 */ (t102939.element)[44] = 44; /* x254464 */ (t102939.element)[45] = 45; /* x254465 */ (t102939.element)[46] = 46; /* x254466 */ (t102939.element)[47] = 47; /* x254467 */ (t102939.element)[48] = 48; /* x254468 */ (t102939.element)[49] = 49; /* x254469 */ (t102939.element)[50] = 50; /* x254470 */ (t102939.element)[51] = 51; /* x254471 */ (t102939.element)[52] = 52; /* x254472 */ (t102939.element)[53] = 53; /* x254473 */ (t102939.element)[54] = 54; /* x254474 */ (t102939.element)[55] = 55; /* x254475 */ (t102939.element)[56] = 56; /* x254476 */ (t102939.element)[57] = 57; /* x254477 */ (t102939.element)[58] = 58; /* x254478 */ (t102939.element)[59] = 59; /* x254479 */ (t102939.element)[60] = 60; /* x254480 */ (t102939.element)[61] = 61; /* x254481 */ (t102939.element)[62] = 62; /* x254482 */ (t102939.element)[63] = 63; /* x254483 */ (t102939.element)[64] = 64; /* x254484 */ (t102939.element)[65] = 65; /* x254485 */ (t102939.element)[66] = 66; /* x254486 */ (t102939.element)[67] = 67; /* x254487 */ (t102939.element)[68] = 68; /* x254488 */ (t102939.element)[69] = 69; /* x254489 */ (t102939.element)[70] = 70; /* x254490 */ (t102939.element)[71] = 71; /* x254491 */ (t102939.element)[72] = 72; /* x254492 */ (t102939.element)[73] = 73; /* x254493 */ (t102939.element)[74] = 74; /* x254494 */ (t102939.element)[75] = 75; /* x254495 */ (t102939.element)[76] = 76; /* x254496 */ (t102939.element)[77] = 77; /* x254497 */ (t102939.element)[78] = 78; /* x254498 */ (t102939.element)[79] = 79; /* x254499 */ (t102939.element)[80] = 80; /* x254500 */ (t102939.element)[81] = 81; /* x254501 */ (t102939.element)[82] = 82; /* x254502 */ (t102939.element)[83] = 83; /* x254503 */ (t102939.element)[84] = 84; /* x254504 */ (t102939.element)[85] = 85; /* x254505 */ (t102939.element)[86] = 86; /* x254506 */ (t102939.element)[87] = 87; /* x254507 */ (t102939.element)[88] = 88; /* x254508 */ (t102939.element)[89] = 89; /* x254509 */ (t102939.element)[90] = 90; /* x254510 */ (t102939.element)[91] = 91; /* x254511 */ (t102939.element)[92] = 92; /* x254512 */ (t102939.element)[93] = 93; /* x254513 */ (t102939.element)[94] = 94; /* x254514 */ (t102939.element)[95] = 95; /* x254515 */ (t102939.element)[96] = 96; /* x254516 */ (t102939.element)[97] = 65; /* x254517 */ (t102939.element)[98] = 66; /* x254518 */ (t102939.element)[99] = 67; /* x254519 */ (t102939.element)[100] = 68; /* x254520 */ (t102939.element)[101] = 69; /* x254521 */ (t102939.element)[102] = 70; /* x254522 */ (t102939.element)[103] = 71; /* x254523 */ (t102939.element)[104] = 72; /* x254524 */ (t102939.element)[105] = 73; /* x254525 */ (t102939.element)[106] = 74; /* x254526 */ (t102939.element)[107] = 75; /* x254527 */ (t102939.element)[108] = 76; /* x254528 */ (t102939.element)[109] = 77; /* x254529 */ (t102939.element)[110] = 78; /* x254530 */ (t102939.element)[111] = 79; /* x254531 */ (t102939.element)[112] = 80; /* x254532 */ (t102939.element)[113] = 81; /* x254533 */ (t102939.element)[114] = 82; /* x254534 */ (t102939.element)[115] = 83; /* x254535 */ (t102939.element)[116] = 84; /* x254536 */ (t102939.element)[117] = 85; /* x254537 */ (t102939.element)[118] = 86; /* x254538 */ (t102939.element)[119] = 87; /* x254539 */ (t102939.element)[120] = 88; /* x254540 */ (t102939.element)[121] = 89; /* x254541 */ (t102939.element)[122] = 90; /* x254542 */ (t102939.element)[123] = 123; /* x254543 */ (t102939.element)[124] = 124; /* x254544 */ (t102939.element)[125] = 125; /* x254545 */ (t102939.element)[126] = 126; /* x254546 */ (t102939.element)[127] = 127; /* x254547 */ (t102939.element)[128] = 128; /* x254548 */ (t102939.element)[129] = 129; /* x254549 */ (t102939.element)[130] = 130; /* x254550 */ (t102939.element)[131] = 131; /* x254551 */ (t102939.element)[132] = 132; /* x254552 */ (t102939.element)[133] = 133; /* x254553 */ (t102939.element)[134] = 134; /* x254554 */ (t102939.element)[135] = 135; /* x254555 */ (t102939.element)[136] = 136; /* x254556 */ (t102939.element)[137] = 137; /* x254557 */ (t102939.element)[138] = 138; /* x254558 */ (t102939.element)[139] = 139; /* x254559 */ (t102939.element)[140] = 140; /* x254560 */ (t102939.element)[141] = 141; /* x254561 */ (t102939.element)[142] = 142; /* x254562 */ (t102939.element)[143] = 143; /* x254563 */ (t102939.element)[144] = 144; /* x254564 */ (t102939.element)[145] = 145; /* x254565 */ (t102939.element)[146] = 146; /* x254566 */ (t102939.element)[147] = 147; /* x254567 */ (t102939.element)[148] = 148; /* x254568 */ (t102939.element)[149] = 149; /* x254569 */ (t102939.element)[150] = 150; /* x254570 */ (t102939.element)[151] = 151; /* x254571 */ (t102939.element)[152] = 152; /* x254572 */ (t102939.element)[153] = 153; /* x254573 */ (t102939.element)[154] = 154; /* x254574 */ (t102939.element)[155] = 155; /* x254575 */ (t102939.element)[156] = 156; /* x254576 */ (t102939.element)[157] = 157; /* x254577 */ (t102939.element)[158] = 158; /* x254578 */ (t102939.element)[159] = 159; /* x254579 */ (t102939.element)[160] = 160; /* x254580 */ (t102939.element)[161] = 161; /* x254581 */ (t102939.element)[162] = 162; /* x254582 */ (t102939.element)[163] = 163; /* x254583 */ (t102939.element)[164] = 164; /* x254584 */ (t102939.element)[165] = 165; /* x254585 */ (t102939.element)[166] = 166; /* x254586 */ (t102939.element)[167] = 167; /* x254587 */ (t102939.element)[168] = 168; /* x254588 */ (t102939.element)[169] = 169; /* x254589 */ (t102939.element)[170] = 170; /* x254590 */ (t102939.element)[171] = 171; /* x254591 */ (t102939.element)[172] = 172; /* x254592 */ (t102939.element)[173] = 173; /* x254593 */ (t102939.element)[174] = 174; /* x254594 */ (t102939.element)[175] = 175; /* x254595 */ (t102939.element)[176] = 176; /* x254596 */ (t102939.element)[177] = 177; /* x254597 */ (t102939.element)[178] = 178; /* x254598 */ (t102939.element)[179] = 179; /* x254599 */ (t102939.element)[180] = 180; /* x254600 */ (t102939.element)[181] = 181; /* x254601 */ (t102939.element)[182] = 182; /* x254602 */ (t102939.element)[183] = 183; /* x254603 */ (t102939.element)[184] = 184; /* x254604 */ (t102939.element)[185] = 185; /* x254605 */ (t102939.element)[186] = 186; /* x254606 */ (t102939.element)[187] = 187; /* x254607 */ (t102939.element)[188] = 188; /* x254608 */ (t102939.element)[189] = 189; /* x254609 */ (t102939.element)[190] = 190; /* x254610 */ (t102939.element)[191] = 191; /* x254611 */ (t102939.element)[192] = 192; /* x254612 */ (t102939.element)[193] = 193; /* x254613 */ (t102939.element)[194] = 194; /* x254614 */ (t102939.element)[195] = 195; /* x254615 */ (t102939.element)[196] = 196; /* x254616 */ (t102939.element)[197] = 197; /* x254617 */ (t102939.element)[198] = 198; /* x254618 */ (t102939.element)[199] = 199; /* x254619 */ (t102939.element)[200] = 200; /* x254620 */ (t102939.element)[201] = 201; /* x254621 */ (t102939.element)[202] = 202; /* x254622 */ (t102939.element)[203] = 203; /* x254623 */ (t102939.element)[204] = 204; /* x254624 */ (t102939.element)[205] = 205; /* x254625 */ (t102939.element)[206] = 206; /* x254626 */ (t102939.element)[207] = 207; /* x254627 */ (t102939.element)[208] = 208; /* x254628 */ (t102939.element)[209] = 209; /* x254629 */ (t102939.element)[210] = 210; /* x254630 */ (t102939.element)[211] = 211; /* x254631 */ (t102939.element)[212] = 212; /* x254632 */ (t102939.element)[213] = 213; /* x254633 */ (t102939.element)[214] = 214; /* x254634 */ (t102939.element)[215] = 215; /* x254635 */ (t102939.element)[216] = 216; /* x254636 */ (t102939.element)[217] = 217; /* x254637 */ (t102939.element)[218] = 218; /* x254638 */ (t102939.element)[219] = 219; /* x254639 */ (t102939.element)[220] = 220; /* x254640 */ (t102939.element)[221] = 221; /* x254641 */ (t102939.element)[222] = 222; /* x254642 */ (t102939.element)[223] = 191; /* x254643 */ (t102939.element)[224] = 192; /* x254644 */ (t102939.element)[225] = 193; /* x254645 */ (t102939.element)[226] = 194; /* x254646 */ (t102939.element)[227] = 195; /* x254647 */ (t102939.element)[228] = 196; /* x254648 */ (t102939.element)[229] = 197; /* x254649 */ (t102939.element)[230] = 198; /* x254650 */ (t102939.element)[231] = 199; /* x254651 */ (t102939.element)[232] = 200; /* x254652 */ (t102939.element)[233] = 201; /* x254653 */ (t102939.element)[234] = 202; /* x254654 */ (t102939.element)[235] = 203; /* x254655 */ (t102939.element)[236] = 204; /* x254656 */ (t102939.element)[237] = 205; /* x254657 */ (t102939.element)[238] = 206; /* x254658 */ (t102939.element)[239] = 207; /* x254659 */ (t102939.element)[240] = 208; /* x254660 */ (t102939.element)[241] = 209; /* x254661 */ (t102939.element)[242] = 210; /* x254662 */ (t102939.element)[243] = 211; /* x254663 */ (t102939.element)[244] = 212; /* x254664 */ (t102939.element)[245] = 213; /* x254665 */ (t102939.element)[246] = 214; /* x254666 */ (t102939.element)[247] = 247; /* x254667 */ (t102939.element)[248] = 216; /* x254668 */ (t102939.element)[249] = 217; /* x254669 */ (t102939.element)[250] = 218; /* x254670 */ (t102939.element)[251] = 219; /* x254671 */ (t102939.element)[252] = 220; /* x254672 */ (t102939.element)[253] = 221; /* x254673 */ (t102939.element)[254] = 222; /* x254674 */ (t102939.element)[255] = 223; t102941.length = 256; /* x254688 */ (t102941.element)[0] = 0; /* x254689 */ (t102941.element)[1] = 1; /* x254690 */ (t102941.element)[2] = 2; /* x254691 */ (t102941.element)[3] = 3; /* x254692 */ (t102941.element)[4] = 4; /* x254693 */ (t102941.element)[5] = 5; /* x254694 */ (t102941.element)[6] = 6; /* x254695 */ (t102941.element)[7] = 7; /* x254696 */ (t102941.element)[8] = 8; /* x254697 */ (t102941.element)[9] = 9; /* x254698 */ (t102941.element)[10] = 10; /* x254699 */ (t102941.element)[11] = 11; /* x254700 */ (t102941.element)[12] = 12; /* x254701 */ (t102941.element)[13] = 13; /* x254702 */ (t102941.element)[14] = 14; /* x254703 */ (t102941.element)[15] = 15; /* x254704 */ (t102941.element)[16] = 16; /* x254705 */ (t102941.element)[17] = 17; /* x254706 */ (t102941.element)[18] = 18; /* x254707 */ (t102941.element)[19] = 19; /* x254708 */ (t102941.element)[20] = 20; /* x254709 */ (t102941.element)[21] = 21; /* x254710 */ (t102941.element)[22] = 22; /* x254711 */ (t102941.element)[23] = 23; /* x254712 */ (t102941.element)[24] = 24; /* x254713 */ (t102941.element)[25] = 25; /* x254714 */ (t102941.element)[26] = 26; /* x254715 */ (t102941.element)[27] = 27; /* x254716 */ (t102941.element)[28] = 28; /* x254717 */ (t102941.element)[29] = 29; /* x254718 */ (t102941.element)[30] = 30; /* x254719 */ (t102941.element)[31] = 31; /* x254720 */ (t102941.element)[32] = 32; /* x254721 */ (t102941.element)[33] = 33; /* x254722 */ (t102941.element)[34] = 34; /* x254723 */ (t102941.element)[35] = 35; /* x254724 */ (t102941.element)[36] = 36; /* x254725 */ (t102941.element)[37] = 37; /* x254726 */ (t102941.element)[38] = 38; /* x254727 */ (t102941.element)[39] = 39; /* x254728 */ (t102941.element)[40] = 40; /* x254729 */ (t102941.element)[41] = 41; /* x254730 */ (t102941.element)[42] = 42; /* x254731 */ (t102941.element)[43] = 43; /* x254732 */ (t102941.element)[44] = 44; /* x254733 */ (t102941.element)[45] = 45; /* x254734 */ (t102941.element)[46] = 46; /* x254735 */ (t102941.element)[47] = 47; /* x254736 */ (t102941.element)[48] = 48; /* x254737 */ (t102941.element)[49] = 49; /* x254738 */ (t102941.element)[50] = 50; /* x254739 */ (t102941.element)[51] = 51; /* x254740 */ (t102941.element)[52] = 52; /* x254741 */ (t102941.element)[53] = 53; /* x254742 */ (t102941.element)[54] = 54; /* x254743 */ (t102941.element)[55] = 55; /* x254744 */ (t102941.element)[56] = 56; /* x254745 */ (t102941.element)[57] = 57; /* x254746 */ (t102941.element)[58] = 58; /* x254747 */ (t102941.element)[59] = 59; /* x254748 */ (t102941.element)[60] = 60; /* x254749 */ (t102941.element)[61] = 61; /* x254750 */ (t102941.element)[62] = 62; /* x254751 */ (t102941.element)[63] = 63; /* x254752 */ (t102941.element)[64] = 64; /* x254753 */ (t102941.element)[65] = 97; /* x254754 */ (t102941.element)[66] = 98; /* x254755 */ (t102941.element)[67] = 99; /* x254756 */ (t102941.element)[68] = 100; /* x254757 */ (t102941.element)[69] = 101; /* x254758 */ (t102941.element)[70] = 102; /* x254759 */ (t102941.element)[71] = 103; /* x254760 */ (t102941.element)[72] = 104; /* x254761 */ (t102941.element)[73] = 105; /* x254762 */ (t102941.element)[74] = 106; /* x254763 */ (t102941.element)[75] = 107; /* x254764 */ (t102941.element)[76] = 108; /* x254765 */ (t102941.element)[77] = 109; /* x254766 */ (t102941.element)[78] = 110; /* x254767 */ (t102941.element)[79] = 111; /* x254768 */ (t102941.element)[80] = 112; /* x254769 */ (t102941.element)[81] = 113; /* x254770 */ (t102941.element)[82] = 114; /* x254771 */ (t102941.element)[83] = 115; /* x254772 */ (t102941.element)[84] = 116; /* x254773 */ (t102941.element)[85] = 117; /* x254774 */ (t102941.element)[86] = 118; /* x254775 */ (t102941.element)[87] = 119; /* x254776 */ (t102941.element)[88] = 120; /* x254777 */ (t102941.element)[89] = 121; /* x254778 */ (t102941.element)[90] = 122; /* x254779 */ (t102941.element)[91] = 91; /* x254780 */ (t102941.element)[92] = 92; /* x254781 */ (t102941.element)[93] = 93; /* x254782 */ (t102941.element)[94] = 94; /* x254783 */ (t102941.element)[95] = 95; /* x254784 */ (t102941.element)[96] = 96; /* x254785 */ (t102941.element)[97] = 97; /* x254786 */ (t102941.element)[98] = 98; /* x254787 */ (t102941.element)[99] = 99; /* x254788 */ (t102941.element)[100] = 100; /* x254789 */ (t102941.element)[101] = 101; /* x254790 */ (t102941.element)[102] = 102; /* x254791 */ (t102941.element)[103] = 103; /* x254792 */ (t102941.element)[104] = 104; /* x254793 */ (t102941.element)[105] = 105; /* x254794 */ (t102941.element)[106] = 106; /* x254795 */ (t102941.element)[107] = 107; /* x254796 */ (t102941.element)[108] = 108; /* x254797 */ (t102941.element)[109] = 109; /* x254798 */ (t102941.element)[110] = 110; /* x254799 */ (t102941.element)[111] = 111; /* x254800 */ (t102941.element)[112] = 112; /* x254801 */ (t102941.element)[113] = 113; /* x254802 */ (t102941.element)[114] = 114; /* x254803 */ (t102941.element)[115] = 115; /* x254804 */ (t102941.element)[116] = 116; /* x254805 */ (t102941.element)[117] = 117; /* x254806 */ (t102941.element)[118] = 118; /* x254807 */ (t102941.element)[119] = 119; /* x254808 */ (t102941.element)[120] = 120; /* x254809 */ (t102941.element)[121] = 121; /* x254810 */ (t102941.element)[122] = 122; /* x254811 */ (t102941.element)[123] = 123; /* x254812 */ (t102941.element)[124] = 124; /* x254813 */ (t102941.element)[125] = 125; /* x254814 */ (t102941.element)[126] = 126; /* x254815 */ (t102941.element)[127] = 127; /* x254816 */ (t102941.element)[128] = 128; /* x254817 */ (t102941.element)[129] = 129; /* x254818 */ (t102941.element)[130] = 130; /* x254819 */ (t102941.element)[131] = 131; /* x254820 */ (t102941.element)[132] = 132; /* x254821 */ (t102941.element)[133] = 133; /* x254822 */ (t102941.element)[134] = 134; /* x254823 */ (t102941.element)[135] = 135; /* x254824 */ (t102941.element)[136] = 136; /* x254825 */ (t102941.element)[137] = 137; /* x254826 */ (t102941.element)[138] = 138; /* x254827 */ (t102941.element)[139] = 139; /* x254828 */ (t102941.element)[140] = 140; /* x254829 */ (t102941.element)[141] = 141; /* x254830 */ (t102941.element)[142] = 142; /* x254831 */ (t102941.element)[143] = 143; /* x254832 */ (t102941.element)[144] = 144; /* x254833 */ (t102941.element)[145] = 145; /* x254834 */ (t102941.element)[146] = 146; /* x254835 */ (t102941.element)[147] = 147; /* x254836 */ (t102941.element)[148] = 148; /* x254837 */ (t102941.element)[149] = 149; /* x254838 */ (t102941.element)[150] = 150; /* x254839 */ (t102941.element)[151] = 151; /* x254840 */ (t102941.element)[152] = 152; /* x254841 */ (t102941.element)[153] = 153; /* x254842 */ (t102941.element)[154] = 154; /* x254843 */ (t102941.element)[155] = 155; /* x254844 */ (t102941.element)[156] = 156; /* x254845 */ (t102941.element)[157] = 157; /* x254846 */ (t102941.element)[158] = 158; /* x254847 */ (t102941.element)[159] = 159; /* x254848 */ (t102941.element)[160] = 160; /* x254849 */ (t102941.element)[161] = 161; /* x254850 */ (t102941.element)[162] = 162; /* x254851 */ (t102941.element)[163] = 163; /* x254852 */ (t102941.element)[164] = 164; /* x254853 */ (t102941.element)[165] = 165; /* x254854 */ (t102941.element)[166] = 166; /* x254855 */ (t102941.element)[167] = 167; /* x254856 */ (t102941.element)[168] = 168; /* x254857 */ (t102941.element)[169] = 169; /* x254858 */ (t102941.element)[170] = 170; /* x254859 */ (t102941.element)[171] = 171; /* x254860 */ (t102941.element)[172] = 172; /* x254861 */ (t102941.element)[173] = 173; /* x254862 */ (t102941.element)[174] = 174; /* x254863 */ (t102941.element)[175] = 175; /* x254864 */ (t102941.element)[176] = 176; /* x254865 */ (t102941.element)[177] = 177; /* x254866 */ (t102941.element)[178] = 178; /* x254867 */ (t102941.element)[179] = 179; /* x254868 */ (t102941.element)[180] = 180; /* x254869 */ (t102941.element)[181] = 181; /* x254870 */ (t102941.element)[182] = 182; /* x254871 */ (t102941.element)[183] = 183; /* x254872 */ (t102941.element)[184] = 184; /* x254873 */ (t102941.element)[185] = 185; /* x254874 */ (t102941.element)[186] = 186; /* x254875 */ (t102941.element)[187] = 187; /* x254876 */ (t102941.element)[188] = 188; /* x254877 */ (t102941.element)[189] = 189; /* x254878 */ (t102941.element)[190] = 190; /* x254879 */ (t102941.element)[191] = 191; /* x254880 */ (t102941.element)[192] = 224; /* x254881 */ (t102941.element)[193] = 225; /* x254882 */ (t102941.element)[194] = 226; /* x254883 */ (t102941.element)[195] = 227; /* x254884 */ (t102941.element)[196] = 228; /* x254885 */ (t102941.element)[197] = 229; /* x254886 */ (t102941.element)[198] = 230; /* x254887 */ (t102941.element)[199] = 231; /* x254888 */ (t102941.element)[200] = 232; /* x254889 */ (t102941.element)[201] = 233; /* x254890 */ (t102941.element)[202] = 234; /* x254891 */ (t102941.element)[203] = 235; /* x254892 */ (t102941.element)[204] = 236; /* x254893 */ (t102941.element)[205] = 237; /* x254894 */ (t102941.element)[206] = 238; /* x254895 */ (t102941.element)[207] = 239; /* x254896 */ (t102941.element)[208] = 240; /* x254897 */ (t102941.element)[209] = 241; /* x254898 */ (t102941.element)[210] = 242; /* x254899 */ (t102941.element)[211] = 243; /* x254900 */ (t102941.element)[212] = 244; /* x254901 */ (t102941.element)[213] = 245; /* x254902 */ (t102941.element)[214] = 246; /* x254903 */ (t102941.element)[215] = 215; /* x254904 */ (t102941.element)[216] = 248; /* x254905 */ (t102941.element)[217] = 249; /* x254906 */ (t102941.element)[218] = 250; /* x254907 */ (t102941.element)[219] = 251; /* x254908 */ (t102941.element)[220] = 252; /* x254909 */ (t102941.element)[221] = 253; /* x254910 */ (t102941.element)[222] = 254; /* x254911 */ (t102941.element)[223] = 223; /* x254912 */ (t102941.element)[224] = 224; /* x254913 */ (t102941.element)[225] = 225; /* x254914 */ (t102941.element)[226] = 226; /* x254915 */ (t102941.element)[227] = 227; /* x254916 */ (t102941.element)[228] = 228; /* x254917 */ (t102941.element)[229] = 229; /* x254918 */ (t102941.element)[230] = 230; /* x254919 */ (t102941.element)[231] = 231; /* x254920 */ (t102941.element)[232] = 232; /* x254921 */ (t102941.element)[233] = 233; /* x254922 */ (t102941.element)[234] = 234; /* x254923 */ (t102941.element)[235] = 235; /* x254924 */ (t102941.element)[236] = 236; /* x254925 */ (t102941.element)[237] = 237; /* x254926 */ (t102941.element)[238] = 238; /* x254927 */ (t102941.element)[239] = 239; /* x254928 */ (t102941.element)[240] = 240; /* x254929 */ (t102941.element)[241] = 241; /* x254930 */ (t102941.element)[242] = 242; /* x254931 */ (t102941.element)[243] = 243; /* x254932 */ (t102941.element)[244] = 244; /* x254933 */ (t102941.element)[245] = 245; /* x254934 */ (t102941.element)[246] = 246; /* x254935 */ (t102941.element)[247] = 247; /* x254936 */ (t102941.element)[248] = 248; /* x254937 */ (t102941.element)[249] = 249; /* x254938 */ (t102941.element)[250] = 250; /* x254939 */ (t102941.element)[251] = 251; /* x254940 */ (t102941.element)[252] = 252; /* x254941 */ (t102941.element)[253] = 253; /* x254942 */ (t102941.element)[254] = 254; /* x254943 */ (t102941.element)[255] = 255;} int main(int argc, char **argv) {struct nonheaded_vector_type24736 t102946; assert(offsetof(struct{char dummy; char probe;}, probe)==1); assert(offsetof(struct{char dummy; int probe;}, probe)==4); assert(offsetof(struct{char dummy; float probe;}, probe)==4); assert(offsetof(struct{char dummy; char *probe;}, probe)==4); assert(offsetof(struct{char dummy; FILE *probe;}, probe)==4); assert(offsetof(struct{char dummy; unsigned probe;}, probe)==4); assert(offsetof(struct{char dummy; unsigned probe;}, probe)==4); assert(offsetof(struct{char dummy; FILE probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12458 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9515 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9656 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9656 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9656 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9656 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9656 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9656 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12672 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12671 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8610 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17852 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16154 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13784 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14564 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11818 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17917 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18094 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18108 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18125 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18141 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18115 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18101 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18058 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18076 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18085 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18067 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18047 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17980 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18002 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18019 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18012 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17991 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17970 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17940 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17928 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17477 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17812 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17845 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17905 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17724 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17765 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17765 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17792 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17750 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1076 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17666 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17688 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12766 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7166 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17698 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17698 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17646 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17529 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17604 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17617 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17585 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17539 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17509 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17520 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17495 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17138 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17337 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17385 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17444 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17456 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17409 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17397 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17361 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17373 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17349 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17231 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17261 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17299 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17318 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17280 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17247 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17204 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17215 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17171 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16834 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16920 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17002 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17072 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17105 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17045 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16961 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16864 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16892 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16848 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16639 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16639 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16710 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16765 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16787 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16811 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16776 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16743 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16754 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16726 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16666 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16688 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16653 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16462 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16461 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16615 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16626 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16603 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16438 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16450 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16405 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16405 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16422 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16421 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16377 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16364 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10650 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10646 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12254 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12755 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13063 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13063 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7139 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10680 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10704 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16362 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17797 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17777 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15024 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15015 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17853 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17852 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17726 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17776 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17796 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17666 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17660 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16411 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16427 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16379 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18040 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18040 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18129 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18129 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18129 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18129 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18144 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18144 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18119 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18119 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18061 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18061 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18079 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18079 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18088 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18088 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18070 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18070 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17984 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17984 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18006 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18006 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18030 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18029 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18029 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18029 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17964 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17964 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17974 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17974 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17943 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17943 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17955 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17955 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17931 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17931 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17485 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17485 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17637 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17635 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17636 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17635 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17635 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17635 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17870 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15881 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15881 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15897 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15896 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8184 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15881 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17839 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17839 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17736 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17784 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17783 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17783 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17783 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17804 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17803 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17803 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17803 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17759 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17759 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17673 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17673 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17673 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17673 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17673 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17686 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17673 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17673 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17708 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17704 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17707 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17704 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17706 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17705 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17704 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17532 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17532 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17572 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17571 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17611 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17611 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17625 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17624 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17624 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17624 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15800 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15807 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15800 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7720 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16060 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16060 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15178 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15178 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15197 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17591 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17588 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17523 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17523 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17498 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17498 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17150 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17149 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17149 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17149 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17340 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17340 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17388 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17388 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17447 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17447 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17465 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17464 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17464 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17464 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17412 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17412 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17425 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17425 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17431 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17425 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17425 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17425 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17400 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17400 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17364 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17364 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17376 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17376 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17352 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17352 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17234 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17234 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17270 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17270 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17308 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17308 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17327 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17327 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17289 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17289 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17250 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17250 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17207 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17207 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17218 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17218 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17183 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17182 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17182 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17182 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16838 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16838 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16937 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16937 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17017 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17017 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17084 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17083 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17083 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17083 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17117 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17116 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17116 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17116 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17056 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17056 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16978 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16978 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16879 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16879 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16907 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16907 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15576 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15573 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16852 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16852 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16646 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16645 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16645 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16719 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16719 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16815 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16815 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15564 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15567 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15564 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16735 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16735 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16677 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16699 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16629 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16629 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16415 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16415 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16431 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16431 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16398 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16391 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14605 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14621 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14630 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14646 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14647 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14646 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14647 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14646 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14646 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14646 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14647 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14646 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14647 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14646 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14646 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14646 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14680 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14711 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14711 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15770 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15766 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16093 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13098 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10724 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12184 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12184 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14612 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14637 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14673 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14673 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13676 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13687 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9140 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1537 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12479 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7730 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7738 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7873 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7736 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7873 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15977 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16036 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7911 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7899 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11499 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9146 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10910 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10910 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10570 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7892 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7892 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8667 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16101 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15718 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7704 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p6989 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12103 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10717 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12732 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12742 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12777 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10617 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8759 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11619 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11538 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12483 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12477 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12476 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12479 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7708 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11003 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11003 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11572 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10409 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11034 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10307 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9977 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12263 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12263 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12289 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12289 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12315 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12315 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12026 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12121 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12125 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12177 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12194 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12198 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7717 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11049 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1519 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11560 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8776 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1554 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14552 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8144 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1142 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18492 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18246 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1057 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1157 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27908 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27858 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27779 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27776 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27769 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27761 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27756 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27753 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27750 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27747 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27745 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27698 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27694 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27692 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27673 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27669 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27657 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27650 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27621 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27510 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27501 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type24757 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type24753 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct headed_vector_type27896 *probe;}, probe)==4); assert(offsetof(struct{char dummy; struct nonheaded_vector_type24736 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17897 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17874 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17857 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13063 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9977 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9081 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16629 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1378 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10316 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12458 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8773 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11560 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9515 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9656 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9512 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11538 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8291 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12230 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12668 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12672 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12671 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8610 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1384 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7710 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8351 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8705 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15718 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16101 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16174 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16178 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16144 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16154 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16161 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16151 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12651 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12129 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12125 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12202 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12198 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13784 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14564 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8173 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10716 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10717 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12026 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11818 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10646 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17917 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18094 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18108 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18125 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18141 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18115 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18101 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18058 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18076 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18085 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18047 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17980 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18002 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18019 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16314 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18012 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17991 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17970 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17940 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17928 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17477 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17812 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17845 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17905 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17829 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17724 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17765 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17792 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17750 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7168 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7166 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1076 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17666 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17688 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15969 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12276 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12766 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7174 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17657 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17698 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16335 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17646 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17529 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17550 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17604 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17617 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17585 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17539 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17509 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17520 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17495 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17138 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17337 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17385 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17444 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17456 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17409 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17421 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17397 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17361 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17373 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17349 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17231 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17261 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17299 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17318 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17280 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17247 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17204 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17215 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17171 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16834 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16920 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17002 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17072 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17105 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17045 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16961 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16864 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16892 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16848 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16639 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16710 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16765 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16787 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16811 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16776 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16743 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16754 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16355 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16726 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16666 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16688 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16653 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16462 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16461 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16615 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16626 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16603 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16438 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16450 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16405 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16422 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16328 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16421 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16342 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16377 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10650 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16364 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16321 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10663 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7139 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7145 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12254 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7721 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12755 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7150 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16411 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16427 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13098 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12248 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13018 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7132 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15610 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10680 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10704 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16362 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10724 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17797 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17777 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17853 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15015 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15024 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17732 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17726 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17776 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17796 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17660 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16379 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14991 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14988 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14985 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15122 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14650 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14661 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18040 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18129 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18144 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18119 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18061 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18079 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18088 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18070 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17984 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18006 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18029 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17964 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17974 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17943 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17955 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17931 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17637 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17635 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17636 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17870 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15881 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15897 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15896 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8184 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17839 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15621 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17743 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17742 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17736 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17741 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17784 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17783 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17804 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17803 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17759 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17673 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17686 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17685 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17684 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17708 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17704 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17707 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17706 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17705 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17572 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17571 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17611 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17625 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17624 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17588 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p19556 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15608 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15607 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15800 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15806 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15807 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7720 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15803 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16060 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16056 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15924 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p19147 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15178 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15197 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1569 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17596 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17591 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17523 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17498 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17150 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17149 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17340 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17388 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17447 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17465 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17464 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17412 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17425 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17431 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17400 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17364 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17376 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17352 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17234 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17270 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17308 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17327 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17289 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17250 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17207 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17218 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17183 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17182 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16838 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16937 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17017 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17084 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17083 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17117 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17116 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17056 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16978 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16879 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16907 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15576 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15573 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16646 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16645 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16719 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16815 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15564 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15567 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16735 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16677 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16699 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16590 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16415 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16431 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16398 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16397 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16391 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16396 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14605 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14621 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14630 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14646 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14647 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14680 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14711 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15770 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15766 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15767 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16093 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10910 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12184 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12181 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12177 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15355 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15368 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15396 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15424 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15435 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15456 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15473 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14637 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14673 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13676 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15345 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13687 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1537 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9140 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13437 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1536 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15484 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12383 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14859 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8137 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p6989 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8759 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10570 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12479 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7730 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7738 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7873 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7736 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8400 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8395 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15977 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16036 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9209 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9351 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9356 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11499 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7892 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7911 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7899 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8832 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17820 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16292 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16302 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16308 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16287 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16282 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11498 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15586 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12706 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8776 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8667 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10391 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12661 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12103 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8608 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8593 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11572 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12658 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14848 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15629 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7704 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8590 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12102 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12161 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10746 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16092 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16091 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16090 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12732 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12742 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12777 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8372 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10617 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11669 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11619 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11537 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12471 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12483 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12482 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12477 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12476 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7708 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10409 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11003 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11570 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10405 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11034 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13108 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10110 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11483 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11524 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10307 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10394 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13377 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13376 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12302 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12975 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8099 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8181 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12263 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12245 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12289 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12315 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12121 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12119 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12194 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12192 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12247 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12244 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7717 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11049 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1519 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12665 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11559 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12740 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12751 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12762 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12773 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13026 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1542 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14553 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1550 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14552 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8144 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1142 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1141 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18492 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18590 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18442 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1155 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1157 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1154 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18677 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18679 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17897 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17874 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17857 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13063 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9977 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9977 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9977 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9977 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9977 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9977 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9081 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9081 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16629 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13063 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9081 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16629 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13063 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1378 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10316 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12458 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12458 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12458 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12458 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12458 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12458 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12458 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12458 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12458 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12458 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8773 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11560 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11560 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11560 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11560 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9515 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9515 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9515 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9515 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9515 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9513 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9656 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9656 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9656 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9656 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9656 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9656 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9656 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9656 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9656 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9656 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9656 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9512 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11538 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11538 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11538 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11538 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8291 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8291 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8291 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8291 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12230 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12668 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12672 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12671 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12668 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8610 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8610 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1384 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7710 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8351 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8705 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8705 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8705 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15718 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15718 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16101 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16101 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16101 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16174 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16178 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16144 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16154 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16154 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16161 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16161 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16161 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16161 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16161 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16161 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16161 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16151 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12651 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8705 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8705 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8705 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12129 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12129 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12125 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12125 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12125 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12202 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12202 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12198 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12198 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12198 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13784 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13784 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13784 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13784 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13784 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13784 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13784 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13784 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14564 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14564 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14564 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14564 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14564 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8173 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10716 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10716 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10716 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10717 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12026 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11818 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11818 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11818 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11818 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11818 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11818 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11818 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11818 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11818 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11818 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11818 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11818 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10646 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10646 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17917 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17917 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18094 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18108 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18125 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18125 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18141 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18115 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18115 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18101 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18058 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18076 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18085 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18047 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18047 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17980 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17980 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18002 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18002 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18019 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16314 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16314 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18012 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17991 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17991 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17970 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17970 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17940 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17928 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17477 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17477 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17477 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17477 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17812 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17812 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17845 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17845 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17905 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17905 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17829 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17829 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17724 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17765 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17765 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17765 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17765 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17792 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17792 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17750 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17750 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7168 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7168 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7168 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7166 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13063 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1076 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1076 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17666 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17666 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17688 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17688 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17688 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15969 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15969 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12276 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12766 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12766 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12766 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12766 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7166 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7174 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7174 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7166 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7166 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17657 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17657 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17698 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17698 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16335 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16335 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17698 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17646 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17646 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17529 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17550 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17550 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17604 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17604 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17617 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17617 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17585 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17539 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17539 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17509 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17509 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17520 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17495 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17138 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17138 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17138 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17138 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17337 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17385 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17444 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17456 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17456 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17456 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17456 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17409 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17421 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17421 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17397 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17361 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17373 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17349 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17231 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17261 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17261 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17261 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17261 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17299 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17299 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17299 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17299 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17318 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17318 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17318 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17318 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17280 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17280 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17280 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17280 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17247 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17204 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17215 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17171 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17171 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17171 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17171 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16834 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16834 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16920 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16920 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16920 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16920 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16920 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16920 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16920 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17002 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17002 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17002 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17002 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17002 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17072 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17072 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17072 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17072 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17105 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17105 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17105 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17105 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17045 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17045 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17045 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17045 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16961 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16961 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16961 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16961 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16961 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16961 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16961 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16864 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16864 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16864 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16864 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16864 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16892 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16892 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16892 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16892 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16892 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16848 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16848 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16639 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16639 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16639 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16710 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16710 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16710 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16710 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16765 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16765 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16787 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16787 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16811 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16811 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16776 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16776 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16743 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16743 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16754 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16355 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16355 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16754 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16726 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16726 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16726 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16726 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16666 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16666 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16666 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16666 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16688 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16688 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16688 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16688 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16653 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16653 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16462 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16462 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16462 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16461 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16461 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16462 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16462 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16462 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16462 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16462 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16462 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16461 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16615 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16615 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16626 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16603 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16603 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16438 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16438 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16450 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16450 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16405 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16405 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16405 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16405 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16422 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16422 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16422 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16328 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16328 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16421 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16342 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16342 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16377 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10650 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10650 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10650 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16364 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16321 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16321 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16364 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10650 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10646 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10646 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10663 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10663 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10663 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10663 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10663 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10663 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10663 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7139 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7145 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12254 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7721 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7721 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12755 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12755 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12755 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12755 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7150 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7139 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16411 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16427 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13063 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13098 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13063 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13063 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13063 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13063 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13063 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12248 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13018 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7139 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7132 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15610 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15610 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7132 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7132 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7139 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7139 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7139 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10680 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10680 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10680 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10680 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10680 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10680 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10680 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10680 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10680 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10663 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10663 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10663 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10704 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10704 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10704 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10716 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10716 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10716 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16362 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10724 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17797 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17797 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17797 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17777 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17777 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17777 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17853 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17853 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17853 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17853 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8173 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15015 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15015 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15015 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15015 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15024 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15024 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15024 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15015 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15015 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15015 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15015 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15015 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17853 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17853 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17853 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17732 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17732 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17726 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17726 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17726 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17776 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17796 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17666 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17666 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17660 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17660 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17660 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17660 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16411 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16427 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16379 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16379 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16379 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14991 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14991 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14991 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14988 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14991 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14991 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14991 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14991 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14991 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14991 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14991 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14991 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14988 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14991 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14991 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14991 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14991 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14991 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14988 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14988 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14985 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14985 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14985 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15122 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15122 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14650 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14650 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14661 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14661 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18040 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18040 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18129 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18129 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18129 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18129 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18129 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18129 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18129 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18144 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18144 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18144 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18144 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18144 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18119 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18119 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18061 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18061 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18079 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18079 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18088 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18088 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18070 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18070 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17984 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17984 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18006 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18006 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18029 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18029 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18029 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17964 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17964 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17974 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17974 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17943 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17943 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17943 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17943 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17943 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17955 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17955 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17931 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17931 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17931 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17931 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17931 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17637 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17635 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17636 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17635 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17635 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17635 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17870 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17870 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17870 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17870 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17870 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17870 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17870 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17870 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17870 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17870 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17870 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17869 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15881 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15881 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15881 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15881 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15881 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15897 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15897 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15896 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15897 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15896 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15881 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8184 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15881 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15881 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15881 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15881 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15881 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17839 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17839 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15621 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15621 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15621 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15621 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17743 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17743 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17742 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17736 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17741 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17736 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17736 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17784 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17783 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17783 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17783 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17804 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17803 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17803 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17803 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17759 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17759 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17673 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17673 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17673 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17673 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17673 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17673 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17673 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17673 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17686 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17673 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17686 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17685 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17673 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17684 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17673 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17673 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17708 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17704 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17708 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17708 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17704 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17707 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17704 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17706 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17706 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17705 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17704 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17704 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17572 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17572 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17572 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17572 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17572 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17571 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17611 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17611 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17625 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17624 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17624 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17624 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17588 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17588 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p19556 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p19556 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p19556 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15608 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15607 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15800 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15806 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15806 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15806 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15806 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15806 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15807 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15800 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7721 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7720 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15806 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15806 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15806 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15806 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15806 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15806 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15806 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15807 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15806 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15803 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15806 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15806 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15803 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15800 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15800 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15800 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16060 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16060 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16056 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16060 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16060 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16060 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16060 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16060 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16060 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16056 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16060 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16060 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16060 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16060 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16060 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16056 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16056 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16056 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16056 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15924 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15924 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15924 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p19147 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p19147 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p19147 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p19147 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p19147 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p19147 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p19147 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p19147 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15178 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15178 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15178 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15178 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15178 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15178 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15178 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15178 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15178 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15178 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15178 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15178 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15197 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1569 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17596 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17588 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17591 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17591 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17588 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17588 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17588 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17588 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17523 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17523 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17498 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17498 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17498 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17498 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17498 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17150 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17150 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17149 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17149 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17150 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17150 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17150 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17149 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17149 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17149 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17150 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17149 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17149 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17149 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17340 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17340 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17340 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17340 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17388 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17388 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17388 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17388 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17447 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17447 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17447 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17447 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17465 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17464 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17465 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17465 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17464 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17464 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17464 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17412 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17412 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17412 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17412 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17425 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17425 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17425 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17425 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17431 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17425 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17431 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17425 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17431 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17425 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17425 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17425 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17400 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17400 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17400 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17400 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17364 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17364 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17364 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17364 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17376 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17376 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17376 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17376 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17352 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17352 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17352 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17352 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17234 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17234 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17234 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17234 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17234 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17270 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17270 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17270 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17270 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17270 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17308 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17308 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17308 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17308 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17308 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17327 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17327 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17327 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17327 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17327 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17289 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17289 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17289 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17289 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17289 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17250 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17250 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17250 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17250 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17250 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17207 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17207 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17218 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17218 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17218 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17218 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17218 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17183 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17183 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17182 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17182 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17183 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17183 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17183 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17182 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17182 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17182 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17183 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17182 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17182 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17182 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16838 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16838 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16838 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16838 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16838 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16937 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16937 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16937 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16937 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16937 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16937 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16937 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16937 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17017 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17017 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17017 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17017 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17017 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17017 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17017 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17017 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17017 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17017 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17084 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17084 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17083 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17083 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17084 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17084 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17084 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17083 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17083 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17083 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17084 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17083 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17083 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17083 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17117 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17117 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17116 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17116 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17117 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17117 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17117 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17116 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17116 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17116 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17117 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17116 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17116 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17116 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17056 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17056 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17056 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17056 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16978 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16978 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16978 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16978 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16978 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16978 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16978 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16978 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16879 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16879 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16879 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16879 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16907 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16907 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16907 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16907 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15576 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15573 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15576 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15573 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15573 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15576 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15573 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15573 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15573 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16646 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16645 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16645 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16719 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16719 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16815 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16815 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16815 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16815 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16815 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16815 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15564 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15567 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15567 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15564 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15564 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15564 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15564 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16735 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16735 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16677 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16677 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16677 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16677 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16699 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16699 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16699 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16699 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16699 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16590 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16590 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16590 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16629 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16629 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16629 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16415 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16415 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16431 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16431 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15610 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16398 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16398 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16397 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16391 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16396 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16391 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16391 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14605 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14605 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14605 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14605 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14605 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14621 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14621 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14621 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14630 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14630 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14630 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14630 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14630 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14646 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14647 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14646 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14647 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14646 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14647 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14646 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14646 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14647 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14646 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14647 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14646 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14647 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14646 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14647 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14646 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14646 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14680 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14680 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14680 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14711 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14711 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15770 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15766 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15767 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15767 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15767 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15766 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15827 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16093 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13063 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13063 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13063 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13063 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13063 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13063 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13063 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13063 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13098 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13098 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13098 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10910 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10910 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10724 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10724 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10716 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10717 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12184 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12184 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12184 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12184 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12181 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12181 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12177 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12177 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12177 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10716 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15355 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15355 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15355 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15355 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15368 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15368 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15368 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15368 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15396 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15396 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15368 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15355 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15424 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15355 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15435 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15456 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15473 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15368 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15355 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15355 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15368 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14612 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14637 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14673 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14673 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14673 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14673 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13676 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13676 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13676 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13676 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15345 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15345 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15345 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13687 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13687 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13687 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13687 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1537 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1537 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9030 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9140 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9140 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8347 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9081 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9081 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9081 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13437 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13437 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1537 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1537 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1536 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15484 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12383 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14859 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14859 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14564 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8137 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8137 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p6989 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p6989 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8759 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8759 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10570 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10570 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10570 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12479 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7730 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7730 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7730 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7738 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7873 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7873 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7873 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7873 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7873 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7873 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7873 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7736 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7873 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7873 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7873 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7873 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7873 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8400 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8400 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8400 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8400 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8395 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15977 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15977 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15977 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15977 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15977 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15977 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15977 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16036 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9209 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9209 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9351 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9351 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9356 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9356 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9176 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11499 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7892 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7911 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7911 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7892 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7892 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7892 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7892 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7892 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7899 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7899 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7892 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7892 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7892 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7892 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8832 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17820 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p17820 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16292 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16292 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16302 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16302 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16302 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16308 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16308 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16308 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16287 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16287 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16282 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16282 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11499 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11499 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11498 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11498 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11498 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11498 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11498 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15586 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15586 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15586 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15586 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15586 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9081 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9081 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9081 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9081 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9081 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9081 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12706 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8776 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8667 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10910 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10910 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10910 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10910 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11938 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10583 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10570 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10570 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7892 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7892 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10391 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10391 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12661 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12103 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12103 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8608 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8608 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8593 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8593 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8593 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8593 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8593 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8593 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11572 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8667 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8667 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8667 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8667 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8667 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12661 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12658 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12658 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12658 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14848 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14848 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15122 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15122 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16101 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15629 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15629 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15629 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15629 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15629 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15718 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15718 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15718 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16101 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7704 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15924 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15924 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15924 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p6989 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p6989 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15924 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15924 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15924 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15924 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15924 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15924 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15355 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15355 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15355 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15355 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15355 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15368 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15370 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15369 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15368 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15355 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15355 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15355 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8590 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12103 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12103 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12102 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12161 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12161 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9081 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9081 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9081 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9081 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9082 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9081 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10746 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10746 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10746 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10717 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10717 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10717 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10717 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10717 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10717 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10716 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10716 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10746 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10746 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10746 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10746 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10746 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10746 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15924 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15924 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16093 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16092 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16091 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16090 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15924 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15924 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p15922 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p16101 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12668 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11572 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11572 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11572 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12732 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12732 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12742 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12742 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12777 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12777 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12732 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12732 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8372 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8372 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8291 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8291 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8291 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8291 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8291 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8291 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8291 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8291 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8291 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8291 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8291 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8291 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8291 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8291 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8372 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8372 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8372 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8372 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8395 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8395 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10617 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12146 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8759 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8759 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8759 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11669 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11674 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11669 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8667 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8667 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11619 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11538 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11538 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11538 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11537 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11537 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12383 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12383 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12383 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12471 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12485 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12483 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12483 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12482 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12471 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12471 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12477 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12476 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12479 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7708 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10532 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10497 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10409 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10409 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10409 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10409 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10409 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10409 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10409 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10409 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10409 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10409 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11003 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11003 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11003 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11003 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11003 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11003 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11003 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11003 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11003 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11003 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11003 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11003 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11003 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11003 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11572 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11572 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11570 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11570 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11570 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10409 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10409 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10405 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10405 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10405 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10405 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11034 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11034 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11034 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11669 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11669 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11669 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12742 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12742 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10316 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10316 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13108 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13108 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13108 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13108 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10110 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10110 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11498 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11483 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11524 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11524 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11524 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10307 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10394 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12602 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11793 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10316 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10316 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10316 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10316 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10316 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10316 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10316 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10316 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10316 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10316 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10316 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13098 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13098 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13377 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13376 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10641 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12777 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12777 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12742 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9977 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9977 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9977 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9977 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9977 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p9976 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10316 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10394 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p10405 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12302 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12975 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12975 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12975 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12975 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12975 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8099 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8181 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12263 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12245 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12245 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12263 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12263 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12263 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12245 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12245 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12245 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12245 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12289 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12289 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12289 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12289 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12315 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12315 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12315 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12315 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8181 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8099 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12026 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12121 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12125 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12119 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12119 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12119 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12119 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12119 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12177 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12194 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12198 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12192 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12192 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12192 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12192 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12192 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12247 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12247 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12245 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12245 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12245 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12244 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p7717 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12276 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12302 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8832 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8832 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8832 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11049 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1519 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1519 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1519 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1519 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12665 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12668 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11560 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11560 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11560 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11559 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p11559 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12740 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12740 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12751 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12751 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12751 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12762 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12762 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12762 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12773 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12773 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p12773 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13018 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p13026 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8776 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8773 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p19556 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1542 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14553 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1550 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1554 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1542 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1542 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1542 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1542 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1542 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1542 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1542 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1542 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p14552 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8173 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8173 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8173 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8137 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8137 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8137 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p8144 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1142 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1141 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18492 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18492 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18492 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18492 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18590 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18590 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18590 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18590 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18590 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18442 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18442 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18246 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1057 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1155 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1157 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1155 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p1154 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18677 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18677 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18679 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18679 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18679 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18679 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18679 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18679 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18678 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p18677 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct p731 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27908 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27858 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27779 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27776 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27769 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27761 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27756 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27753 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27750 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27747 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27745 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27698 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27694 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27692 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27673 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27669 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27657 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27650 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27623 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27621 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27510 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type27501 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type24757 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct structure_type24753 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct headed_vector_type27896 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct headed_vector_type27624 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct headed_vector_type27486 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct headed_vector_type24751 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct headed_vector_type24746 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w228484 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w228463 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w228118 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w227671 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w227506 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w227393 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w225099 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w211257 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w211235 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w211225 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w211113 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w211061 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w211045 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w208531 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w198539 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w198538 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w172645 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w155919 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w155916 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w155862 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w155635 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w155624 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w145455 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w142334 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w136247 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w136217 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w136184 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w136041 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w66067 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w66023 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w66009 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w64676 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w64143 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w61020 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w60864 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w60861 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w48298 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w36789 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w36270 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w32142 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w32134 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w32119 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w32111 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w32103 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w32087 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w32078 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w32070 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w32062 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w31981 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w30215 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w29471 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w29434 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w21691 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w21193 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w16638 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w16614 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w16611 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w12563 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w12224 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w12218 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w11873 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w9296 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w9140 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w7121 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w6852 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w6315 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w6194 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w3467 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w3457 probe;}, probe)==4); assert(offsetof(struct{char dummy; struct w49 probe;}, probe)==4); assert(sizeof(char)==1); assert(sizeof(int)==4); assert(sizeof(float)==4); assert(sizeof(char *)==4); assert(sizeof(FILE *)==4); assert(sizeof(unsigned)==4); assert(sizeof(unsigned)==4); assert(sizeof(unsigned)==4); assert(sizeof(int)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p17897 *)==4); assert(sizeof(struct p17874 *)==4); assert(sizeof(struct p17857 *)==4); assert(sizeof(struct p13063 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p9977 *)==4); assert(sizeof(struct p9977 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9977 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9977 *)==4); assert(sizeof(struct p9977 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p9977 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9081 *)==4); assert(sizeof(struct p9081 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p16629 *)==4); assert(sizeof(struct p13063 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9081 *)==4); assert(sizeof(struct p16629 *)==4); assert(sizeof(struct p13063 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p1378 *)==4); assert(sizeof(struct p10316 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12513 *)==4); assert(sizeof(struct p12458 *)==4); assert(sizeof(struct p12458 *)==4); assert(sizeof(struct p12458 *)==4); assert(sizeof(struct p12458 *)==4); assert(sizeof(struct p12458 *)==4); assert(sizeof(struct p12458 *)==4); assert(sizeof(struct p12458 *)==4); assert(sizeof(struct p12458 *)==4); assert(sizeof(struct p12458 *)==4); assert(sizeof(struct p12458 *)==4); assert(sizeof(struct p12485 *)==4); assert(sizeof(struct p12485 *)==4); assert(sizeof(struct p12485 *)==4); assert(sizeof(struct p12485 *)==4); assert(sizeof(struct p8773 *)==4); assert(sizeof(struct p11560 *)==4); assert(sizeof(struct p11560 *)==4); assert(sizeof(struct p11560 *)==4); assert(sizeof(struct p11560 *)==4); assert(sizeof(struct p9515 *)==4); assert(sizeof(struct p9515 *)==4); assert(sizeof(struct p9515 *)==4); assert(sizeof(struct p9515 *)==4); assert(sizeof(struct p9515 *)==4); assert(sizeof(struct p9513 *)==4); assert(sizeof(struct p9513 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9656 *)==4); assert(sizeof(struct p9656 *)==4); assert(sizeof(struct p9656 *)==4); assert(sizeof(struct p9656 *)==4); assert(sizeof(struct p9656 *)==4); assert(sizeof(struct p9656 *)==4); assert(sizeof(struct p9656 *)==4); assert(sizeof(struct p9656 *)==4); assert(sizeof(struct p9656 *)==4); assert(sizeof(struct p9656 *)==4); assert(sizeof(struct p9656 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9612 *)==4); assert(sizeof(struct p9512 *)==4); assert(sizeof(struct p11538 *)==4); assert(sizeof(struct p11538 *)==4); assert(sizeof(struct p11538 *)==4); assert(sizeof(struct p11538 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8291 *)==4); assert(sizeof(struct p8291 *)==4); assert(sizeof(struct p8291 *)==4); assert(sizeof(struct p8291 *)==4); assert(sizeof(struct p12230 *)==4); assert(sizeof(struct p12668 *)==4); assert(sizeof(struct p12672 *)==4); assert(sizeof(struct p12671 *)==4); assert(sizeof(struct p12668 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8610 *)==4); assert(sizeof(struct p8610 *)==4); assert(sizeof(struct p1384 *)==4); assert(sizeof(struct p7710 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8351 *)==4); assert(sizeof(struct p8347 *)==4); assert(sizeof(struct p8347 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p15678 *)==4); assert(sizeof(struct p17869 *)==4); assert(sizeof(struct p17869 *)==4); assert(sizeof(struct p17852 *)==4); assert(sizeof(struct p8705 *)==4); assert(sizeof(struct p8705 *)==4); assert(sizeof(struct p8705 *)==4); assert(sizeof(struct p15718 *)==4); assert(sizeof(struct p15718 *)==4); assert(sizeof(struct p16101 *)==4); assert(sizeof(struct p16101 *)==4); assert(sizeof(struct p16101 *)==4); assert(sizeof(struct p16174 *)==4); assert(sizeof(struct p16178 *)==4); assert(sizeof(struct p16176 *)==4); assert(sizeof(struct p16144 *)==4); assert(sizeof(struct p16154 *)==4); assert(sizeof(struct p16154 *)==4); assert(sizeof(struct p16161 *)==4); assert(sizeof(struct p16161 *)==4); assert(sizeof(struct p16161 *)==4); assert(sizeof(struct p16161 *)==4); assert(sizeof(struct p16161 *)==4); assert(sizeof(struct p16161 *)==4); assert(sizeof(struct p16161 *)==4); assert(sizeof(struct p16151 *)==4); assert(sizeof(struct p12651 *)==4); assert(sizeof(struct p8705 *)==4); assert(sizeof(struct p8705 *)==4); assert(sizeof(struct p8705 *)==4); assert(sizeof(struct p12129 *)==4); assert(sizeof(struct p12129 *)==4); assert(sizeof(struct p12125 *)==4); assert(sizeof(struct p12125 *)==4); assert(sizeof(struct p12125 *)==4); assert(sizeof(struct p12202 *)==4); assert(sizeof(struct p12202 *)==4); assert(sizeof(struct p12198 *)==4); assert(sizeof(struct p12198 *)==4); assert(sizeof(struct p12198 *)==4); assert(sizeof(struct p13784 *)==4); assert(sizeof(struct p13784 *)==4); assert(sizeof(struct p13784 *)==4); assert(sizeof(struct p13784 *)==4); assert(sizeof(struct p13784 *)==4); assert(sizeof(struct p13784 *)==4); assert(sizeof(struct p13784 *)==4); assert(sizeof(struct p13784 *)==4); assert(sizeof(struct p14564 *)==4); assert(sizeof(struct p14564 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14564 *)==4); assert(sizeof(struct p14564 *)==4); assert(sizeof(struct p14564 *)==4); assert(sizeof(struct p8173 *)==4); assert(sizeof(struct p10716 *)==4); assert(sizeof(struct p10716 *)==4); assert(sizeof(struct p10716 *)==4); assert(sizeof(struct p10717 *)==4); assert(sizeof(struct p12026 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11818 *)==4); assert(sizeof(struct p11818 *)==4); assert(sizeof(struct p11818 *)==4); assert(sizeof(struct p11818 *)==4); assert(sizeof(struct p11818 *)==4); assert(sizeof(struct p11818 *)==4); assert(sizeof(struct p11818 *)==4); assert(sizeof(struct p11818 *)==4); assert(sizeof(struct p11818 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11818 *)==4); assert(sizeof(struct p11818 *)==4); assert(sizeof(struct p11818 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p10646 *)==4); assert(sizeof(struct p10646 *)==4); assert(sizeof(struct p17917 *)==4); assert(sizeof(struct p17917 *)==4); assert(sizeof(struct p18094 *)==4); assert(sizeof(struct p18108 *)==4); assert(sizeof(struct p18125 *)==4); assert(sizeof(struct p18125 *)==4); assert(sizeof(struct p18141 *)==4); assert(sizeof(struct p18115 *)==4); assert(sizeof(struct p18115 *)==4); assert(sizeof(struct p18101 *)==4); assert(sizeof(struct p18058 *)==4); assert(sizeof(struct p18076 *)==4); assert(sizeof(struct p18085 *)==4); assert(sizeof(struct p18067 *)==4); assert(sizeof(struct p18047 *)==4); assert(sizeof(struct p18047 *)==4); assert(sizeof(struct p17980 *)==4); assert(sizeof(struct p17980 *)==4); assert(sizeof(struct p18002 *)==4); assert(sizeof(struct p18002 *)==4); assert(sizeof(struct p18019 *)==4); assert(sizeof(struct p16314 *)==4); assert(sizeof(struct p16314 *)==4); assert(sizeof(struct p18012 *)==4); assert(sizeof(struct p17991 *)==4); assert(sizeof(struct p17991 *)==4); assert(sizeof(struct p17970 *)==4); assert(sizeof(struct p17970 *)==4); assert(sizeof(struct p17940 *)==4); assert(sizeof(struct p17928 *)==4); assert(sizeof(struct p17477 *)==4); assert(sizeof(struct p17477 *)==4); assert(sizeof(struct p17477 *)==4); assert(sizeof(struct p17477 *)==4); assert(sizeof(struct p17812 *)==4); assert(sizeof(struct p17812 *)==4); assert(sizeof(struct p17845 *)==4); assert(sizeof(struct p17845 *)==4); assert(sizeof(struct p17905 *)==4); assert(sizeof(struct p17905 *)==4); assert(sizeof(struct p17829 *)==4); assert(sizeof(struct p17829 *)==4); assert(sizeof(struct p17724 *)==4); assert(sizeof(struct p17765 *)==4); assert(sizeof(struct p17765 *)==4); assert(sizeof(struct p17765 *)==4); assert(sizeof(struct p17765 *)==4); assert(sizeof(struct p17792 *)==4); assert(sizeof(struct p17792 *)==4); assert(sizeof(struct p17750 *)==4); assert(sizeof(struct p17750 *)==4); assert(sizeof(struct p7168 *)==4); assert(sizeof(struct p7168 *)==4); assert(sizeof(struct p7168 *)==4); assert(sizeof(struct p7166 *)==4); assert(sizeof(struct p13063 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p1076 *)==4); assert(sizeof(struct p1076 *)==4); assert(sizeof(struct p17666 *)==4); assert(sizeof(struct p17666 *)==4); assert(sizeof(struct p17688 *)==4); assert(sizeof(struct p17688 *)==4); assert(sizeof(struct p17688 *)==4); assert(sizeof(struct p15969 *)==4); assert(sizeof(struct p15969 *)==4); assert(sizeof(struct p12276 *)==4); assert(sizeof(struct p12766 *)==4); assert(sizeof(struct p12766 *)==4); assert(sizeof(struct p12766 *)==4); assert(sizeof(struct p12766 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p7166 *)==4); assert(sizeof(struct p7174 *)==4); assert(sizeof(struct p7174 *)==4); assert(sizeof(struct p7166 *)==4); assert(sizeof(struct p7166 *)==4); assert(sizeof(struct p17657 *)==4); assert(sizeof(struct p17657 *)==4); assert(sizeof(struct p17698 *)==4); assert(sizeof(struct p17698 *)==4); assert(sizeof(struct p16335 *)==4); assert(sizeof(struct p16335 *)==4); assert(sizeof(struct p17698 *)==4); assert(sizeof(struct p17646 *)==4); assert(sizeof(struct p17646 *)==4); assert(sizeof(struct p17529 *)==4); assert(sizeof(struct p17550 *)==4); assert(sizeof(struct p17550 *)==4); assert(sizeof(struct p17604 *)==4); assert(sizeof(struct p17604 *)==4); assert(sizeof(struct p17617 *)==4); assert(sizeof(struct p17617 *)==4); assert(sizeof(struct p17585 *)==4); assert(sizeof(struct p17539 *)==4); assert(sizeof(struct p17539 *)==4); assert(sizeof(struct p17509 *)==4); assert(sizeof(struct p17509 *)==4); assert(sizeof(struct p17520 *)==4); assert(sizeof(struct p17495 *)==4); assert(sizeof(struct p17138 *)==4); assert(sizeof(struct p17138 *)==4); assert(sizeof(struct p17138 *)==4); assert(sizeof(struct p17138 *)==4); assert(sizeof(struct p17337 *)==4); assert(sizeof(struct p17385 *)==4); assert(sizeof(struct p17444 *)==4); assert(sizeof(struct p17456 *)==4); assert(sizeof(struct p17456 *)==4); assert(sizeof(struct p17456 *)==4); assert(sizeof(struct p17456 *)==4); assert(sizeof(struct p17409 *)==4); assert(sizeof(struct p16347 *)==4); assert(sizeof(struct p16347 *)==4); assert(sizeof(struct p16347 *)==4); assert(sizeof(struct p16347 *)==4); assert(sizeof(struct p17421 *)==4); assert(sizeof(struct p17421 *)==4); assert(sizeof(struct p17397 *)==4); assert(sizeof(struct p17361 *)==4); assert(sizeof(struct p17373 *)==4); assert(sizeof(struct p17349 *)==4); assert(sizeof(struct p17231 *)==4); assert(sizeof(struct p17261 *)==4); assert(sizeof(struct p17261 *)==4); assert(sizeof(struct p17261 *)==4); assert(sizeof(struct p17261 *)==4); assert(sizeof(struct p17299 *)==4); assert(sizeof(struct p17299 *)==4); assert(sizeof(struct p17299 *)==4); assert(sizeof(struct p17299 *)==4); assert(sizeof(struct p17318 *)==4); assert(sizeof(struct p17318 *)==4); assert(sizeof(struct p17318 *)==4); assert(sizeof(struct p17318 *)==4); assert(sizeof(struct p17280 *)==4); assert(sizeof(struct p17280 *)==4); assert(sizeof(struct p17280 *)==4); assert(sizeof(struct p17280 *)==4); assert(sizeof(struct p17247 *)==4); assert(sizeof(struct p17204 *)==4); assert(sizeof(struct p17215 *)==4); assert(sizeof(struct p17171 *)==4); assert(sizeof(struct p17171 *)==4); assert(sizeof(struct p17171 *)==4); assert(sizeof(struct p17171 *)==4); assert(sizeof(struct p16834 *)==4); assert(sizeof(struct p16834 *)==4); assert(sizeof(struct p16920 *)==4); assert(sizeof(struct p16920 *)==4); assert(sizeof(struct p16920 *)==4); assert(sizeof(struct p16920 *)==4); assert(sizeof(struct p16920 *)==4); assert(sizeof(struct p16920 *)==4); assert(sizeof(struct p16920 *)==4); assert(sizeof(struct p17002 *)==4); assert(sizeof(struct p17002 *)==4); assert(sizeof(struct p17002 *)==4); assert(sizeof(struct p17002 *)==4); assert(sizeof(struct p17002 *)==4); assert(sizeof(struct p17072 *)==4); assert(sizeof(struct p17072 *)==4); assert(sizeof(struct p17072 *)==4); assert(sizeof(struct p17072 *)==4); assert(sizeof(struct p17105 *)==4); assert(sizeof(struct p17105 *)==4); assert(sizeof(struct p17105 *)==4); assert(sizeof(struct p17105 *)==4); assert(sizeof(struct p17045 *)==4); assert(sizeof(struct p17045 *)==4); assert(sizeof(struct p17045 *)==4); assert(sizeof(struct p17045 *)==4); assert(sizeof(struct p16961 *)==4); assert(sizeof(struct p16961 *)==4); assert(sizeof(struct p16961 *)==4); assert(sizeof(struct p16961 *)==4); assert(sizeof(struct p16961 *)==4); assert(sizeof(struct p16961 *)==4); assert(sizeof(struct p16961 *)==4); assert(sizeof(struct p16864 *)==4); assert(sizeof(struct p16864 *)==4); assert(sizeof(struct p16864 *)==4); assert(sizeof(struct p16864 *)==4); assert(sizeof(struct p16864 *)==4); assert(sizeof(struct p16892 *)==4); assert(sizeof(struct p16892 *)==4); assert(sizeof(struct p16892 *)==4); assert(sizeof(struct p16892 *)==4); assert(sizeof(struct p16892 *)==4); assert(sizeof(struct p16848 *)==4); assert(sizeof(struct p16848 *)==4); assert(sizeof(struct p16639 *)==4); assert(sizeof(struct p16639 *)==4); assert(sizeof(struct p16639 *)==4); assert(sizeof(struct p16710 *)==4); assert(sizeof(struct p16710 *)==4); assert(sizeof(struct p16710 *)==4); assert(sizeof(struct p16710 *)==4); assert(sizeof(struct p16765 *)==4); assert(sizeof(struct p16765 *)==4); assert(sizeof(struct p16787 *)==4); assert(sizeof(struct p16787 *)==4); assert(sizeof(struct p16811 *)==4); assert(sizeof(struct p16811 *)==4); assert(sizeof(struct p16776 *)==4); assert(sizeof(struct p16776 *)==4); assert(sizeof(struct p16743 *)==4); assert(sizeof(struct p16743 *)==4); assert(sizeof(struct p16754 *)==4); assert(sizeof(struct p16355 *)==4); assert(sizeof(struct p16355 *)==4); assert(sizeof(struct p16754 *)==4); assert(sizeof(struct p16726 *)==4); assert(sizeof(struct p16726 *)==4); assert(sizeof(struct p16726 *)==4); assert(sizeof(struct p16726 *)==4); assert(sizeof(struct p16666 *)==4); assert(sizeof(struct p16666 *)==4); assert(sizeof(struct p16666 *)==4); assert(sizeof(struct p16666 *)==4); assert(sizeof(struct p16688 *)==4); assert(sizeof(struct p16688 *)==4); assert(sizeof(struct p16688 *)==4); assert(sizeof(struct p16688 *)==4); assert(sizeof(struct p16653 *)==4); assert(sizeof(struct p16653 *)==4); assert(sizeof(struct p16462 *)==4); assert(sizeof(struct p16462 *)==4); assert(sizeof(struct p16462 *)==4); assert(sizeof(struct p16461 *)==4); assert(sizeof(struct p16461 *)==4); assert(sizeof(struct p16462 *)==4); assert(sizeof(struct p16462 *)==4); assert(sizeof(struct p16462 *)==4); assert(sizeof(struct p16462 *)==4); assert(sizeof(struct p16462 *)==4); assert(sizeof(struct p16462 *)==4); assert(sizeof(struct p16461 *)==4); assert(sizeof(struct p16615 *)==4); assert(sizeof(struct p16615 *)==4); assert(sizeof(struct p16626 *)==4); assert(sizeof(struct p16603 *)==4); assert(sizeof(struct p16603 *)==4); assert(sizeof(struct p16438 *)==4); assert(sizeof(struct p16438 *)==4); assert(sizeof(struct p16450 *)==4); assert(sizeof(struct p16450 *)==4); assert(sizeof(struct p16405 *)==4); assert(sizeof(struct p16405 *)==4); assert(sizeof(struct p16405 *)==4); assert(sizeof(struct p16405 *)==4); assert(sizeof(struct p16422 *)==4); assert(sizeof(struct p16422 *)==4); assert(sizeof(struct p16422 *)==4); assert(sizeof(struct p16328 *)==4); assert(sizeof(struct p16328 *)==4); assert(sizeof(struct p16421 *)==4); assert(sizeof(struct p16342 *)==4); assert(sizeof(struct p16342 *)==4); assert(sizeof(struct p16377 *)==4); assert(sizeof(struct p10650 *)==4); assert(sizeof(struct p10650 *)==4); assert(sizeof(struct p10650 *)==4); assert(sizeof(struct p16364 *)==4); assert(sizeof(struct p16321 *)==4); assert(sizeof(struct p16321 *)==4); assert(sizeof(struct p16364 *)==4); assert(sizeof(struct p10650 *)==4); assert(sizeof(struct p10646 *)==4); assert(sizeof(struct p10646 *)==4); assert(sizeof(struct p10641 *)==4); assert(sizeof(struct p10641 *)==4); assert(sizeof(struct p10641 *)==4); assert(sizeof(struct p10641 *)==4); assert(sizeof(struct p10641 *)==4); assert(sizeof(struct p10663 *)==4); assert(sizeof(struct p10663 *)==4); assert(sizeof(struct p10663 *)==4); assert(sizeof(struct p10663 *)==4); assert(sizeof(struct p10663 *)==4); assert(sizeof(struct p10663 *)==4); assert(sizeof(struct p10663 *)==4); assert(sizeof(struct p7139 *)==4); assert(sizeof(struct p7145 *)==4); assert(sizeof(struct p12254 *)==4); assert(sizeof(struct p7721 *)==4); assert(sizeof(struct p7721 *)==4); assert(sizeof(struct p12755 *)==4); assert(sizeof(struct p12755 *)==4); assert(sizeof(struct p12755 *)==4); assert(sizeof(struct p12755 *)==4); assert(sizeof(struct p7150 *)==4); assert(sizeof(struct p7139 *)==4); assert(sizeof(struct p16411 *)==4); assert(sizeof(struct p16427 *)==4); assert(sizeof(struct p13063 *)==4); assert(sizeof(struct p13098 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p13063 *)==4); assert(sizeof(struct p13063 *)==4); assert(sizeof(struct p13063 *)==4); assert(sizeof(struct p13063 *)==4); assert(sizeof(struct p13063 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p12248 *)==4); assert(sizeof(struct p13018 *)==4); assert(sizeof(struct p7139 *)==4); assert(sizeof(struct p7132 *)==4); assert(sizeof(struct p15610 *)==4); assert(sizeof(struct p15610 *)==4); assert(sizeof(struct p7132 *)==4); assert(sizeof(struct p7132 *)==4); assert(sizeof(struct p7139 *)==4); assert(sizeof(struct p7139 *)==4); assert(sizeof(struct p7139 *)==4); assert(sizeof(struct p10680 *)==4); assert(sizeof(struct p10680 *)==4); assert(sizeof(struct p10680 *)==4); assert(sizeof(struct p10680 *)==4); assert(sizeof(struct p10680 *)==4); assert(sizeof(struct p10680 *)==4); assert(sizeof(struct p10680 *)==4); assert(sizeof(struct p10680 *)==4); assert(sizeof(struct p10680 *)==4); assert(sizeof(struct p10663 *)==4); assert(sizeof(struct p10663 *)==4); assert(sizeof(struct p10663 *)==4); assert(sizeof(struct p10641 *)==4); assert(sizeof(struct p10641 *)==4); assert(sizeof(struct p10641 *)==4); assert(sizeof(struct p10641 *)==4); assert(sizeof(struct p10641 *)==4); assert(sizeof(struct p10641 *)==4); assert(sizeof(struct p10641 *)==4); assert(sizeof(struct p10704 *)==4); assert(sizeof(struct p10704 *)==4); assert(sizeof(struct p10704 *)==4); assert(sizeof(struct p10641 *)==4); assert(sizeof(struct p10641 *)==4); assert(sizeof(struct p10641 *)==4); assert(sizeof(struct p10641 *)==4); assert(sizeof(struct p10641 *)==4); assert(sizeof(struct p10641 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p10716 *)==4); assert(sizeof(struct p10716 *)==4); assert(sizeof(struct p10716 *)==4); assert(sizeof(struct p16362 *)==4); assert(sizeof(struct p10724 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p17797 *)==4); assert(sizeof(struct p17797 *)==4); assert(sizeof(struct p17797 *)==4); assert(sizeof(struct p17777 *)==4); assert(sizeof(struct p17777 *)==4); assert(sizeof(struct p17777 *)==4); assert(sizeof(struct p17853 *)==4); assert(sizeof(struct p17853 *)==4); assert(sizeof(struct p17853 *)==4); assert(sizeof(struct p17853 *)==4); assert(sizeof(struct p8173 *)==4); assert(sizeof(struct p15015 *)==4); assert(sizeof(struct p15015 *)==4); assert(sizeof(struct p15015 *)==4); assert(sizeof(struct p15015 *)==4); assert(sizeof(struct p15024 *)==4); assert(sizeof(struct p15024 *)==4); assert(sizeof(struct p15024 *)==4); assert(sizeof(struct p15015 *)==4); assert(sizeof(struct p15015 *)==4); assert(sizeof(struct p15015 *)==4); assert(sizeof(struct p15015 *)==4); assert(sizeof(struct p15015 *)==4); assert(sizeof(struct p17852 *)==4); assert(sizeof(struct p17853 *)==4); assert(sizeof(struct p17853 *)==4); assert(sizeof(struct p17852 *)==4); assert(sizeof(struct p17853 *)==4); assert(sizeof(struct p17852 *)==4); assert(sizeof(struct p17732 *)==4); assert(sizeof(struct p17732 *)==4); assert(sizeof(struct p17726 *)==4); assert(sizeof(struct p17726 *)==4); assert(sizeof(struct p17726 *)==4); assert(sizeof(struct p17776 *)==4); assert(sizeof(struct p17796 *)==4); assert(sizeof(struct p17666 *)==4); assert(sizeof(struct p17666 *)==4); assert(sizeof(struct p17660 *)==4); assert(sizeof(struct p17660 *)==4); assert(sizeof(struct p17660 *)==4); assert(sizeof(struct p17660 *)==4); assert(sizeof(struct p16411 *)==4); assert(sizeof(struct p16427 *)==4); assert(sizeof(struct p16379 *)==4); assert(sizeof(struct p16379 *)==4); assert(sizeof(struct p16379 *)==4); assert(sizeof(struct p14991 *)==4); assert(sizeof(struct p14991 *)==4); assert(sizeof(struct p14991 *)==4); assert(sizeof(struct p14988 *)==4); assert(sizeof(struct p14991 *)==4); assert(sizeof(struct p14991 *)==4); assert(sizeof(struct p14991 *)==4); assert(sizeof(struct p14991 *)==4); assert(sizeof(struct p14991 *)==4); assert(sizeof(struct p14991 *)==4); assert(sizeof(struct p14991 *)==4); assert(sizeof(struct p14991 *)==4); assert(sizeof(struct p14988 *)==4); assert(sizeof(struct p14991 *)==4); assert(sizeof(struct p14991 *)==4); assert(sizeof(struct p14991 *)==4); assert(sizeof(struct p14991 *)==4); assert(sizeof(struct p14991 *)==4); assert(sizeof(struct p14988 *)==4); assert(sizeof(struct p14988 *)==4); assert(sizeof(struct p14985 *)==4); assert(sizeof(struct p14985 *)==4); assert(sizeof(struct p14985 *)==4); assert(sizeof(struct p15122 *)==4); assert(sizeof(struct p15122 *)==4); assert(sizeof(struct p14650 *)==4); assert(sizeof(struct p14650 *)==4); assert(sizeof(struct p14661 *)==4); assert(sizeof(struct p14661 *)==4); assert(sizeof(struct p17869 *)==4); assert(sizeof(struct p17869 *)==4); assert(sizeof(struct p18040 *)==4); assert(sizeof(struct p18040 *)==4); assert(sizeof(struct p18129 *)==4); assert(sizeof(struct p18129 *)==4); assert(sizeof(struct p18129 *)==4); assert(sizeof(struct p18129 *)==4); assert(sizeof(struct p18129 *)==4); assert(sizeof(struct p18129 *)==4); assert(sizeof(struct p18129 *)==4); assert(sizeof(struct p18144 *)==4); assert(sizeof(struct p18144 *)==4); assert(sizeof(struct p18144 *)==4); assert(sizeof(struct p18144 *)==4); assert(sizeof(struct p18144 *)==4); assert(sizeof(struct p18119 *)==4); assert(sizeof(struct p18119 *)==4); assert(sizeof(struct p18061 *)==4); assert(sizeof(struct p18061 *)==4); assert(sizeof(struct p18079 *)==4); assert(sizeof(struct p18079 *)==4); assert(sizeof(struct p18088 *)==4); assert(sizeof(struct p18088 *)==4); assert(sizeof(struct p18070 *)==4); assert(sizeof(struct p18070 *)==4); assert(sizeof(struct p17984 *)==4); assert(sizeof(struct p17984 *)==4); assert(sizeof(struct p18006 *)==4); assert(sizeof(struct p18006 *)==4); assert(sizeof(struct p18030 *)==4); assert(sizeof(struct p18029 *)==4); assert(sizeof(struct p18029 *)==4); assert(sizeof(struct p18029 *)==4); assert(sizeof(struct p17964 *)==4); assert(sizeof(struct p17964 *)==4); assert(sizeof(struct p17974 *)==4); assert(sizeof(struct p17974 *)==4); assert(sizeof(struct p17943 *)==4); assert(sizeof(struct p17943 *)==4); assert(sizeof(struct p17943 *)==4); assert(sizeof(struct p17943 *)==4); assert(sizeof(struct p17943 *)==4); assert(sizeof(struct p17955 *)==4); assert(sizeof(struct p17955 *)==4); assert(sizeof(struct p17931 *)==4); assert(sizeof(struct p17931 *)==4); assert(sizeof(struct p17931 *)==4); assert(sizeof(struct p17931 *)==4); assert(sizeof(struct p17931 *)==4); assert(sizeof(struct p17485 *)==4); assert(sizeof(struct p17485 *)==4); assert(sizeof(struct p17485 *)==4); assert(sizeof(struct p17485 *)==4); assert(sizeof(struct p17485 *)==4); assert(sizeof(struct p17637 *)==4); assert(sizeof(struct p17635 *)==4); assert(sizeof(struct p17636 *)==4); assert(sizeof(struct p17635 *)==4); assert(sizeof(struct p17635 *)==4); assert(sizeof(struct p17635 *)==4); assert(sizeof(struct p17869 *)==4); assert(sizeof(struct p17870 *)==4); assert(sizeof(struct p17870 *)==4); assert(sizeof(struct p17870 *)==4); assert(sizeof(struct p17870 *)==4); assert(sizeof(struct p17870 *)==4); assert(sizeof(struct p17870 *)==4); assert(sizeof(struct p17869 *)==4); assert(sizeof(struct p17870 *)==4); assert(sizeof(struct p17870 *)==4); assert(sizeof(struct p17870 *)==4); assert(sizeof(struct p17870 *)==4); assert(sizeof(struct p17869 *)==4); assert(sizeof(struct p17869 *)==4); assert(sizeof(struct p17869 *)==4); assert(sizeof(struct p17869 *)==4); assert(sizeof(struct p17869 *)==4); assert(sizeof(struct p17869 *)==4); assert(sizeof(struct p17869 *)==4); assert(sizeof(struct p17869 *)==4); assert(sizeof(struct p17870 *)==4); assert(sizeof(struct p17869 *)==4); assert(sizeof(struct p15881 *)==4); assert(sizeof(struct p15881 *)==4); assert(sizeof(struct p15881 *)==4); assert(sizeof(struct p15881 *)==4); assert(sizeof(struct p15881 *)==4); assert(sizeof(struct p15897 *)==4); assert(sizeof(struct p15897 *)==4); assert(sizeof(struct p15896 *)==4); assert(sizeof(struct p15897 *)==4); assert(sizeof(struct p15896 *)==4); assert(sizeof(struct p15881 *)==4); assert(sizeof(struct p8184 *)==4); assert(sizeof(struct p15881 *)==4); assert(sizeof(struct p15881 *)==4); assert(sizeof(struct p15881 *)==4); assert(sizeof(struct p15881 *)==4); assert(sizeof(struct p15881 *)==4); assert(sizeof(struct p17839 *)==4); assert(sizeof(struct p17839 *)==4); assert(sizeof(struct p15621 *)==4); assert(sizeof(struct p15621 *)==4); assert(sizeof(struct p15621 *)==4); assert(sizeof(struct p15621 *)==4); assert(sizeof(struct p17743 *)==4); assert(sizeof(struct p17743 *)==4); assert(sizeof(struct p17742 *)==4); assert(sizeof(struct p17736 *)==4); assert(sizeof(struct p17741 *)==4); assert(sizeof(struct p17736 *)==4); assert(sizeof(struct p17736 *)==4); assert(sizeof(struct p17784 *)==4); assert(sizeof(struct p17783 *)==4); assert(sizeof(struct p17783 *)==4); assert(sizeof(struct p17783 *)==4); assert(sizeof(struct p17804 *)==4); assert(sizeof(struct p17803 *)==4); assert(sizeof(struct p17803 *)==4); assert(sizeof(struct p17803 *)==4); assert(sizeof(struct p17759 *)==4); assert(sizeof(struct p17759 *)==4); assert(sizeof(struct p17673 *)==4); assert(sizeof(struct p17673 *)==4); assert(sizeof(struct p17673 *)==4); assert(sizeof(struct p17673 *)==4); assert(sizeof(struct p17673 *)==4); assert(sizeof(struct p17673 *)==4); assert(sizeof(struct p17673 *)==4); assert(sizeof(struct p17673 *)==4); assert(sizeof(struct p17686 *)==4); assert(sizeof(struct p17673 *)==4); assert(sizeof(struct p17686 *)==4); assert(sizeof(struct p17685 *)==4); assert(sizeof(struct p17673 *)==4); assert(sizeof(struct p17684 *)==4); assert(sizeof(struct p17673 *)==4); assert(sizeof(struct p17673 *)==4); assert(sizeof(struct p17708 *)==4); assert(sizeof(struct p17704 *)==4); assert(sizeof(struct p17708 *)==4); assert(sizeof(struct p17708 *)==4); assert(sizeof(struct p17704 *)==4); assert(sizeof(struct p17707 *)==4); assert(sizeof(struct p17704 *)==4); assert(sizeof(struct p17706 *)==4); assert(sizeof(struct p17706 *)==4); assert(sizeof(struct p17705 *)==4); assert(sizeof(struct p17704 *)==4); assert(sizeof(struct p17704 *)==4); assert(sizeof(struct p17532 *)==4); assert(sizeof(struct p17532 *)==4); assert(sizeof(struct p17554 *)==4); assert(sizeof(struct p17554 *)==4); assert(sizeof(struct p17554 *)==4); assert(sizeof(struct p17554 *)==4); assert(sizeof(struct p17554 *)==4); assert(sizeof(struct p17554 *)==4); assert(sizeof(struct p17554 *)==4); assert(sizeof(struct p17554 *)==4); assert(sizeof(struct p17554 *)==4); assert(sizeof(struct p17554 *)==4); assert(sizeof(struct p17554 *)==4); assert(sizeof(struct p17554 *)==4); assert(sizeof(struct p17554 *)==4); assert(sizeof(struct p17554 *)==4); assert(sizeof(struct p17572 *)==4); assert(sizeof(struct p17572 *)==4); assert(sizeof(struct p17572 *)==4); assert(sizeof(struct p17554 *)==4); assert(sizeof(struct p17572 *)==4); assert(sizeof(struct p17572 *)==4); assert(sizeof(struct p17571 *)==4); assert(sizeof(struct p17554 *)==4); assert(sizeof(struct p17554 *)==4); assert(sizeof(struct p17554 *)==4); assert(sizeof(struct p17611 *)==4); assert(sizeof(struct p17611 *)==4); assert(sizeof(struct p17625 *)==4); assert(sizeof(struct p17624 *)==4); assert(sizeof(struct p17624 *)==4); assert(sizeof(struct p17624 *)==4); assert(sizeof(struct p17588 *)==4); assert(sizeof(struct p17588 *)==4); assert(sizeof(struct p19556 *)==4); assert(sizeof(struct p19556 *)==4); assert(sizeof(struct p19556 *)==4); assert(sizeof(struct p15608 *)==4); assert(sizeof(struct p15607 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15800 *)==4); assert(sizeof(struct p15806 *)==4); assert(sizeof(struct p15806 *)==4); assert(sizeof(struct p15806 *)==4); assert(sizeof(struct p15806 *)==4); assert(sizeof(struct p15806 *)==4); assert(sizeof(struct p15807 *)==4); assert(sizeof(struct p15800 *)==4); assert(sizeof(struct p7721 *)==4); assert(sizeof(struct p7720 *)==4); assert(sizeof(struct p15806 *)==4); assert(sizeof(struct p15806 *)==4); assert(sizeof(struct p15806 *)==4); assert(sizeof(struct p15806 *)==4); assert(sizeof(struct p15806 *)==4); assert(sizeof(struct p15806 *)==4); assert(sizeof(struct p15806 *)==4); assert(sizeof(struct p15807 *)==4); assert(sizeof(struct p15806 *)==4); assert(sizeof(struct p15803 *)==4); assert(sizeof(struct p15806 *)==4); assert(sizeof(struct p15806 *)==4); assert(sizeof(struct p15803 *)==4); assert(sizeof(struct p15800 *)==4); assert(sizeof(struct p15800 *)==4); assert(sizeof(struct p15800 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p16060 *)==4); assert(sizeof(struct p16060 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p16056 *)==4); assert(sizeof(struct p16060 *)==4); assert(sizeof(struct p16060 *)==4); assert(sizeof(struct p16060 *)==4); assert(sizeof(struct p16060 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p16060 *)==4); assert(sizeof(struct p16060 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p16056 *)==4); assert(sizeof(struct p16060 *)==4); assert(sizeof(struct p16060 *)==4); assert(sizeof(struct p16060 *)==4); assert(sizeof(struct p16060 *)==4); assert(sizeof(struct p16060 *)==4); assert(sizeof(struct p16056 *)==4); assert(sizeof(struct p16056 *)==4); assert(sizeof(struct p16056 *)==4); assert(sizeof(struct p16056 *)==4); assert(sizeof(struct p15924 *)==4); assert(sizeof(struct p15924 *)==4); assert(sizeof(struct p15924 *)==4); assert(sizeof(struct p19147 *)==4); assert(sizeof(struct p19147 *)==4); assert(sizeof(struct p19147 *)==4); assert(sizeof(struct p19147 *)==4); assert(sizeof(struct p19147 *)==4); assert(sizeof(struct p19147 *)==4); assert(sizeof(struct p19147 *)==4); assert(sizeof(struct p19147 *)==4); assert(sizeof(struct p15178 *)==4); assert(sizeof(struct p15178 *)==4); assert(sizeof(struct p15178 *)==4); assert(sizeof(struct p15178 *)==4); assert(sizeof(struct p15178 *)==4); assert(sizeof(struct p15178 *)==4); assert(sizeof(struct p15178 *)==4); assert(sizeof(struct p15178 *)==4); assert(sizeof(struct p15178 *)==4); assert(sizeof(struct p15178 *)==4); assert(sizeof(struct p15178 *)==4); assert(sizeof(struct p15178 *)==4); assert(sizeof(struct p15197 *)==4); assert(sizeof(struct p1569 *)==4); assert(sizeof(struct p17596 *)==4); assert(sizeof(struct p17588 *)==4); assert(sizeof(struct p17591 *)==4); assert(sizeof(struct p17591 *)==4); assert(sizeof(struct p17588 *)==4); assert(sizeof(struct p17588 *)==4); assert(sizeof(struct p17588 *)==4); assert(sizeof(struct p17588 *)==4); assert(sizeof(struct p17523 *)==4); assert(sizeof(struct p17523 *)==4); assert(sizeof(struct p17498 *)==4); assert(sizeof(struct p17498 *)==4); assert(sizeof(struct p17498 *)==4); assert(sizeof(struct p17498 *)==4); assert(sizeof(struct p17498 *)==4); assert(sizeof(struct p17150 *)==4); assert(sizeof(struct p17150 *)==4); assert(sizeof(struct p17149 *)==4); assert(sizeof(struct p17149 *)==4); assert(sizeof(struct p17150 *)==4); assert(sizeof(struct p17150 *)==4); assert(sizeof(struct p17150 *)==4); assert(sizeof(struct p17149 *)==4); assert(sizeof(struct p17149 *)==4); assert(sizeof(struct p17149 *)==4); assert(sizeof(struct p17150 *)==4); assert(sizeof(struct p17149 *)==4); assert(sizeof(struct p17149 *)==4); assert(sizeof(struct p17149 *)==4); assert(sizeof(struct p17340 *)==4); assert(sizeof(struct p17340 *)==4); assert(sizeof(struct p17340 *)==4); assert(sizeof(struct p17340 *)==4); assert(sizeof(struct p17388 *)==4); assert(sizeof(struct p17388 *)==4); assert(sizeof(struct p17388 *)==4); assert(sizeof(struct p17388 *)==4); assert(sizeof(struct p17447 *)==4); assert(sizeof(struct p17447 *)==4); assert(sizeof(struct p17447 *)==4); assert(sizeof(struct p17447 *)==4); assert(sizeof(struct p17465 *)==4); assert(sizeof(struct p17464 *)==4); assert(sizeof(struct p17465 *)==4); assert(sizeof(struct p17465 *)==4); assert(sizeof(struct p17464 *)==4); assert(sizeof(struct p17464 *)==4); assert(sizeof(struct p17464 *)==4); assert(sizeof(struct p17412 *)==4); assert(sizeof(struct p17412 *)==4); assert(sizeof(struct p17412 *)==4); assert(sizeof(struct p17412 *)==4); assert(sizeof(struct p17425 *)==4); assert(sizeof(struct p17425 *)==4); assert(sizeof(struct p17425 *)==4); assert(sizeof(struct p17425 *)==4); assert(sizeof(struct p17431 *)==4); assert(sizeof(struct p17425 *)==4); assert(sizeof(struct p17431 *)==4); assert(sizeof(struct p17425 *)==4); assert(sizeof(struct p17431 *)==4); assert(sizeof(struct p17425 *)==4); assert(sizeof(struct p17425 *)==4); assert(sizeof(struct p17425 *)==4); assert(sizeof(struct p17400 *)==4); assert(sizeof(struct p17400 *)==4); assert(sizeof(struct p17400 *)==4); assert(sizeof(struct p17400 *)==4); assert(sizeof(struct p17364 *)==4); assert(sizeof(struct p17364 *)==4); assert(sizeof(struct p17364 *)==4); assert(sizeof(struct p17364 *)==4); assert(sizeof(struct p17376 *)==4); assert(sizeof(struct p17376 *)==4); assert(sizeof(struct p17376 *)==4); assert(sizeof(struct p17376 *)==4); assert(sizeof(struct p17352 *)==4); assert(sizeof(struct p17352 *)==4); assert(sizeof(struct p17352 *)==4); assert(sizeof(struct p17352 *)==4); assert(sizeof(struct p17234 *)==4); assert(sizeof(struct p17234 *)==4); assert(sizeof(struct p17234 *)==4); assert(sizeof(struct p17234 *)==4); assert(sizeof(struct p17234 *)==4); assert(sizeof(struct p17270 *)==4); assert(sizeof(struct p17270 *)==4); assert(sizeof(struct p17270 *)==4); assert(sizeof(struct p17270 *)==4); assert(sizeof(struct p17270 *)==4); assert(sizeof(struct p17308 *)==4); assert(sizeof(struct p17308 *)==4); assert(sizeof(struct p17308 *)==4); assert(sizeof(struct p17308 *)==4); assert(sizeof(struct p17308 *)==4); assert(sizeof(struct p17327 *)==4); assert(sizeof(struct p17327 *)==4); assert(sizeof(struct p17327 *)==4); assert(sizeof(struct p17327 *)==4); assert(sizeof(struct p17327 *)==4); assert(sizeof(struct p17289 *)==4); assert(sizeof(struct p17289 *)==4); assert(sizeof(struct p17289 *)==4); assert(sizeof(struct p17289 *)==4); assert(sizeof(struct p17289 *)==4); assert(sizeof(struct p17250 *)==4); assert(sizeof(struct p17250 *)==4); assert(sizeof(struct p17250 *)==4); assert(sizeof(struct p17250 *)==4); assert(sizeof(struct p17250 *)==4); assert(sizeof(struct p17207 *)==4); assert(sizeof(struct p17207 *)==4); assert(sizeof(struct p17218 *)==4); assert(sizeof(struct p17218 *)==4); assert(sizeof(struct p17218 *)==4); assert(sizeof(struct p17218 *)==4); assert(sizeof(struct p17218 *)==4); assert(sizeof(struct p17183 *)==4); assert(sizeof(struct p17183 *)==4); assert(sizeof(struct p17182 *)==4); assert(sizeof(struct p17182 *)==4); assert(sizeof(struct p17183 *)==4); assert(sizeof(struct p17183 *)==4); assert(sizeof(struct p17183 *)==4); assert(sizeof(struct p17182 *)==4); assert(sizeof(struct p17182 *)==4); assert(sizeof(struct p17182 *)==4); assert(sizeof(struct p17183 *)==4); assert(sizeof(struct p17182 *)==4); assert(sizeof(struct p17182 *)==4); assert(sizeof(struct p17182 *)==4); assert(sizeof(struct p16838 *)==4); assert(sizeof(struct p16838 *)==4); assert(sizeof(struct p16838 *)==4); assert(sizeof(struct p16838 *)==4); assert(sizeof(struct p16838 *)==4); assert(sizeof(struct p16937 *)==4); assert(sizeof(struct p16937 *)==4); assert(sizeof(struct p16937 *)==4); assert(sizeof(struct p16937 *)==4); assert(sizeof(struct p16937 *)==4); assert(sizeof(struct p16937 *)==4); assert(sizeof(struct p16937 *)==4); assert(sizeof(struct p16937 *)==4); assert(sizeof(struct p17017 *)==4); assert(sizeof(struct p17017 *)==4); assert(sizeof(struct p17017 *)==4); assert(sizeof(struct p17017 *)==4); assert(sizeof(struct p17017 *)==4); assert(sizeof(struct p17017 *)==4); assert(sizeof(struct p17017 *)==4); assert(sizeof(struct p17017 *)==4); assert(sizeof(struct p17017 *)==4); assert(sizeof(struct p17017 *)==4); assert(sizeof(struct p17084 *)==4); assert(sizeof(struct p17084 *)==4); assert(sizeof(struct p17083 *)==4); assert(sizeof(struct p17083 *)==4); assert(sizeof(struct p17084 *)==4); assert(sizeof(struct p17084 *)==4); assert(sizeof(struct p17084 *)==4); assert(sizeof(struct p17083 *)==4); assert(sizeof(struct p17083 *)==4); assert(sizeof(struct p17083 *)==4); assert(sizeof(struct p17084 *)==4); assert(sizeof(struct p17083 *)==4); assert(sizeof(struct p17083 *)==4); assert(sizeof(struct p17083 *)==4); assert(sizeof(struct p17117 *)==4); assert(sizeof(struct p17117 *)==4); assert(sizeof(struct p17116 *)==4); assert(sizeof(struct p17116 *)==4); assert(sizeof(struct p17117 *)==4); assert(sizeof(struct p17117 *)==4); assert(sizeof(struct p17117 *)==4); assert(sizeof(struct p17116 *)==4); assert(sizeof(struct p17116 *)==4); assert(sizeof(struct p17116 *)==4); assert(sizeof(struct p17117 *)==4); assert(sizeof(struct p17116 *)==4); assert(sizeof(struct p17116 *)==4); assert(sizeof(struct p17116 *)==4); assert(sizeof(struct p17056 *)==4); assert(sizeof(struct p17056 *)==4); assert(sizeof(struct p17056 *)==4); assert(sizeof(struct p17056 *)==4); assert(sizeof(struct p16978 *)==4); assert(sizeof(struct p16978 *)==4); assert(sizeof(struct p16978 *)==4); assert(sizeof(struct p16978 *)==4); assert(sizeof(struct p16978 *)==4); assert(sizeof(struct p16978 *)==4); assert(sizeof(struct p16978 *)==4); assert(sizeof(struct p16978 *)==4); assert(sizeof(struct p16879 *)==4); assert(sizeof(struct p16879 *)==4); assert(sizeof(struct p16879 *)==4); assert(sizeof(struct p16879 *)==4); assert(sizeof(struct p16907 *)==4); assert(sizeof(struct p16907 *)==4); assert(sizeof(struct p16907 *)==4); assert(sizeof(struct p16907 *)==4); assert(sizeof(struct p15576 *)==4); assert(sizeof(struct p15573 *)==4); assert(sizeof(struct p15576 *)==4); assert(sizeof(struct p15573 *)==4); assert(sizeof(struct p15573 *)==4); assert(sizeof(struct p15576 *)==4); assert(sizeof(struct p15573 *)==4); assert(sizeof(struct p15573 *)==4); assert(sizeof(struct p15573 *)==4); assert(sizeof(struct p16852 *)==4); assert(sizeof(struct p16852 *)==4); assert(sizeof(struct p16852 *)==4); assert(sizeof(struct p16852 *)==4); assert(sizeof(struct p16852 *)==4); assert(sizeof(struct p16646 *)==4); assert(sizeof(struct p16645 *)==4); assert(sizeof(struct p16645 *)==4); assert(sizeof(struct p16719 *)==4); assert(sizeof(struct p16719 *)==4); assert(sizeof(struct p16815 *)==4); assert(sizeof(struct p16815 *)==4); assert(sizeof(struct p16815 *)==4); assert(sizeof(struct p16815 *)==4); assert(sizeof(struct p16815 *)==4); assert(sizeof(struct p16815 *)==4); assert(sizeof(struct p15564 *)==4); assert(sizeof(struct p15567 *)==4); assert(sizeof(struct p15567 *)==4); assert(sizeof(struct p15564 *)==4); assert(sizeof(struct p15564 *)==4); assert(sizeof(struct p15564 *)==4); assert(sizeof(struct p15564 *)==4); assert(sizeof(struct p16735 *)==4); assert(sizeof(struct p16735 *)==4); assert(sizeof(struct p16677 *)==4); assert(sizeof(struct p16677 *)==4); assert(sizeof(struct p16677 *)==4); assert(sizeof(struct p16677 *)==4); assert(sizeof(struct p16699 *)==4); assert(sizeof(struct p16699 *)==4); assert(sizeof(struct p16699 *)==4); assert(sizeof(struct p16699 *)==4); assert(sizeof(struct p16699 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16590 *)==4); assert(sizeof(struct p16590 *)==4); assert(sizeof(struct p16590 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16486 *)==4); assert(sizeof(struct p16629 *)==4); assert(sizeof(struct p16629 *)==4); assert(sizeof(struct p16629 *)==4); assert(sizeof(struct p16415 *)==4); assert(sizeof(struct p16415 *)==4); assert(sizeof(struct p16431 *)==4); assert(sizeof(struct p16431 *)==4); assert(sizeof(struct p15610 *)==4); assert(sizeof(struct p16398 *)==4); assert(sizeof(struct p16398 *)==4); assert(sizeof(struct p16397 *)==4); assert(sizeof(struct p16391 *)==4); assert(sizeof(struct p16396 *)==4); assert(sizeof(struct p16391 *)==4); assert(sizeof(struct p16391 *)==4); assert(sizeof(struct p14605 *)==4); assert(sizeof(struct p14605 *)==4); assert(sizeof(struct p14605 *)==4); assert(sizeof(struct p14605 *)==4); assert(sizeof(struct p14605 *)==4); assert(sizeof(struct p14621 *)==4); assert(sizeof(struct p14621 *)==4); assert(sizeof(struct p14621 *)==4); assert(sizeof(struct p14630 *)==4); assert(sizeof(struct p14630 *)==4); assert(sizeof(struct p14630 *)==4); assert(sizeof(struct p14630 *)==4); assert(sizeof(struct p14630 *)==4); assert(sizeof(struct p14646 *)==4); assert(sizeof(struct p14647 *)==4); assert(sizeof(struct p14646 *)==4); assert(sizeof(struct p14647 *)==4); assert(sizeof(struct p14646 *)==4); assert(sizeof(struct p14647 *)==4); assert(sizeof(struct p14646 *)==4); assert(sizeof(struct p14646 *)==4); assert(sizeof(struct p14647 *)==4); assert(sizeof(struct p14646 *)==4); assert(sizeof(struct p14647 *)==4); assert(sizeof(struct p14646 *)==4); assert(sizeof(struct p14647 *)==4); assert(sizeof(struct p14646 *)==4); assert(sizeof(struct p14647 *)==4); assert(sizeof(struct p14646 *)==4); assert(sizeof(struct p14646 *)==4); assert(sizeof(struct p14680 *)==4); assert(sizeof(struct p14680 *)==4); assert(sizeof(struct p14680 *)==4); assert(sizeof(struct p14711 *)==4); assert(sizeof(struct p14711 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15770 *)==4); assert(sizeof(struct p15766 *)==4); assert(sizeof(struct p15767 *)==4); assert(sizeof(struct p15767 *)==4); assert(sizeof(struct p15767 *)==4); assert(sizeof(struct p15766 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p15827 *)==4); assert(sizeof(struct p16093 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p13063 *)==4); assert(sizeof(struct p13063 *)==4); assert(sizeof(struct p13063 *)==4); assert(sizeof(struct p13063 *)==4); assert(sizeof(struct p13063 *)==4); assert(sizeof(struct p13063 *)==4); assert(sizeof(struct p13063 *)==4); assert(sizeof(struct p13063 *)==4); assert(sizeof(struct p13098 *)==4); assert(sizeof(struct p13098 *)==4); assert(sizeof(struct p13098 *)==4); assert(sizeof(struct p10910 *)==4); assert(sizeof(struct p10910 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p10724 *)==4); assert(sizeof(struct p10724 *)==4); assert(sizeof(struct p10716 *)==4); assert(sizeof(struct p10717 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p12184 *)==4); assert(sizeof(struct p12184 *)==4); assert(sizeof(struct p12184 *)==4); assert(sizeof(struct p12184 *)==4); assert(sizeof(struct p12181 *)==4); assert(sizeof(struct p12181 *)==4); assert(sizeof(struct p12177 *)==4); assert(sizeof(struct p12177 *)==4); assert(sizeof(struct p12177 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p10716 *)==4); assert(sizeof(struct p15355 *)==4); assert(sizeof(struct p15355 *)==4); assert(sizeof(struct p15355 *)==4); assert(sizeof(struct p15355 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15368 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15368 *)==4); assert(sizeof(struct p15368 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15368 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15396 *)==4); assert(sizeof(struct p15396 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15368 *)==4); assert(sizeof(struct p15355 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15424 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15355 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15435 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15456 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15473 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15368 *)==4); assert(sizeof(struct p15355 *)==4); assert(sizeof(struct p15355 *)==4); assert(sizeof(struct p15368 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p14612 *)==4); assert(sizeof(struct p14637 *)==4); assert(sizeof(struct p14673 *)==4); assert(sizeof(struct p14673 *)==4); assert(sizeof(struct p14673 *)==4); assert(sizeof(struct p14673 *)==4); assert(sizeof(struct p13676 *)==4); assert(sizeof(struct p13676 *)==4); assert(sizeof(struct p13676 *)==4); assert(sizeof(struct p13676 *)==4); assert(sizeof(struct p15345 *)==4); assert(sizeof(struct p15347 *)==4); assert(sizeof(struct p15347 *)==4); assert(sizeof(struct p15347 *)==4); assert(sizeof(struct p15345 *)==4); assert(sizeof(struct p15345 *)==4); assert(sizeof(struct p13687 *)==4); assert(sizeof(struct p13687 *)==4); assert(sizeof(struct p13687 *)==4); assert(sizeof(struct p13687 *)==4); assert(sizeof(struct p1537 *)==4); assert(sizeof(struct p1537 *)==4); assert(sizeof(struct p8347 *)==4); assert(sizeof(struct p8347 *)==4); assert(sizeof(struct p8347 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p8347 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9030 *)==4); assert(sizeof(struct p9140 *)==4); assert(sizeof(struct p9140 *)==4); assert(sizeof(struct p8347 *)==4); assert(sizeof(struct p8347 *)==4); assert(sizeof(struct p8347 *)==4); assert(sizeof(struct p8347 *)==4); assert(sizeof(struct p8347 *)==4); assert(sizeof(struct p8347 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p9081 *)==4); assert(sizeof(struct p9081 *)==4); assert(sizeof(struct p9081 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p13437 *)==4); assert(sizeof(struct p13437 *)==4); assert(sizeof(struct p1537 *)==4); assert(sizeof(struct p1537 *)==4); assert(sizeof(struct p1536 *)==4); assert(sizeof(struct p15484 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p12383 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14859 *)==4); assert(sizeof(struct p14859 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14564 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p8137 *)==4); assert(sizeof(struct p8137 *)==4); assert(sizeof(struct p6989 *)==4); assert(sizeof(struct p6989 *)==4); assert(sizeof(struct p8759 *)==4); assert(sizeof(struct p8759 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10570 *)==4); assert(sizeof(struct p10570 *)==4); assert(sizeof(struct p10570 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p12479 *)==4); assert(sizeof(struct p12485 *)==4); assert(sizeof(struct p12485 *)==4); assert(sizeof(struct p12485 *)==4); assert(sizeof(struct p12485 *)==4); assert(sizeof(struct p12485 *)==4); assert(sizeof(struct p12485 *)==4); assert(sizeof(struct p12485 *)==4); assert(sizeof(struct p12485 *)==4); assert(sizeof(struct p12485 *)==4); assert(sizeof(struct p12485 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p10583 *)==4); assert(sizeof(struct p10583 *)==4); assert(sizeof(struct p10583 *)==4); assert(sizeof(struct p10583 *)==4); assert(sizeof(struct p10583 *)==4); assert(sizeof(struct p10583 *)==4); assert(sizeof(struct p10583 *)==4); assert(sizeof(struct p10583 *)==4); assert(sizeof(struct p10583 *)==4); assert(sizeof(struct p10583 *)==4); assert(sizeof(struct p10583 *)==4); assert(sizeof(struct p10583 *)==4); assert(sizeof(struct p7730 *)==4); assert(sizeof(struct p7730 *)==4); assert(sizeof(struct p7730 *)==4); assert(sizeof(struct p7738 *)==4); assert(sizeof(struct p10583 *)==4); assert(sizeof(struct p10583 *)==4); assert(sizeof(struct p10583 *)==4); assert(sizeof(struct p10583 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p7873 *)==4); assert(sizeof(struct p7873 *)==4); assert(sizeof(struct p7873 *)==4); assert(sizeof(struct p7873 *)==4); assert(sizeof(struct p7873 *)==4); assert(sizeof(struct p7873 *)==4); assert(sizeof(struct p7873 *)==4); assert(sizeof(struct p7736 *)==4); assert(sizeof(struct p7873 *)==4); assert(sizeof(struct p7873 *)==4); assert(sizeof(struct p7873 *)==4); assert(sizeof(struct p7873 *)==4); assert(sizeof(struct p7873 *)==4); assert(sizeof(struct p8400 *)==4); assert(sizeof(struct p8400 *)==4); assert(sizeof(struct p8400 *)==4); assert(sizeof(struct p8400 *)==4); assert(sizeof(struct p8395 *)==4); assert(sizeof(struct p12146 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15977 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15977 *)==4); assert(sizeof(struct p15977 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15977 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15977 *)==4); assert(sizeof(struct p15977 *)==4); assert(sizeof(struct p15977 *)==4); assert(sizeof(struct p16036 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9209 *)==4); assert(sizeof(struct p9209 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9351 *)==4); assert(sizeof(struct p9351 *)==4); assert(sizeof(struct p9356 *)==4); assert(sizeof(struct p9356 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p9176 *)==4); assert(sizeof(struct p11499 *)==4); assert(sizeof(struct p7892 *)==4); assert(sizeof(struct p7911 *)==4); assert(sizeof(struct p7911 *)==4); assert(sizeof(struct p7892 *)==4); assert(sizeof(struct p7892 *)==4); assert(sizeof(struct p7892 *)==4); assert(sizeof(struct p7892 *)==4); assert(sizeof(struct p7892 *)==4); assert(sizeof(struct p7899 *)==4); assert(sizeof(struct p7899 *)==4); assert(sizeof(struct p7892 *)==4); assert(sizeof(struct p7892 *)==4); assert(sizeof(struct p7892 *)==4); assert(sizeof(struct p7892 *)==4); assert(sizeof(struct p8832 *)==4); assert(sizeof(struct p17820 *)==4); assert(sizeof(struct p17820 *)==4); assert(sizeof(struct p16292 *)==4); assert(sizeof(struct p16292 *)==4); assert(sizeof(struct p16302 *)==4); assert(sizeof(struct p16302 *)==4); assert(sizeof(struct p16302 *)==4); assert(sizeof(struct p16308 *)==4); assert(sizeof(struct p16308 *)==4); assert(sizeof(struct p16308 *)==4); assert(sizeof(struct p16287 *)==4); assert(sizeof(struct p16287 *)==4); assert(sizeof(struct p16282 *)==4); assert(sizeof(struct p16282 *)==4); assert(sizeof(struct p11499 *)==4); assert(sizeof(struct p11499 *)==4); assert(sizeof(struct p11498 *)==4); assert(sizeof(struct p11498 *)==4); assert(sizeof(struct p11498 *)==4); assert(sizeof(struct p11498 *)==4); assert(sizeof(struct p9146 *)==4); assert(sizeof(struct p9146 *)==4); assert(sizeof(struct p9146 *)==4); assert(sizeof(struct p9146 *)==4); assert(sizeof(struct p9146 *)==4); assert(sizeof(struct p9146 *)==4); assert(sizeof(struct p9146 *)==4); assert(sizeof(struct p9146 *)==4); assert(sizeof(struct p9146 *)==4); assert(sizeof(struct p11498 *)==4); assert(sizeof(struct p15586 *)==4); assert(sizeof(struct p15586 *)==4); assert(sizeof(struct p15586 *)==4); assert(sizeof(struct p15586 *)==4); assert(sizeof(struct p15586 *)==4); assert(sizeof(struct p9081 *)==4); assert(sizeof(struct p9081 *)==4); assert(sizeof(struct p9081 *)==4); assert(sizeof(struct p9081 *)==4); assert(sizeof(struct p9081 *)==4); assert(sizeof(struct p9081 *)==4); assert(sizeof(struct p12706 *)==4); assert(sizeof(struct p8776 *)==4); assert(sizeof(struct p8667 *)==4); assert(sizeof(struct p10910 *)==4); assert(sizeof(struct p10910 *)==4); assert(sizeof(struct p10910 *)==4); assert(sizeof(struct p10910 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p11938 *)==4); assert(sizeof(struct p12057 *)==4); assert(sizeof(struct p12057 *)==4); assert(sizeof(struct p12057 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p10583 *)==4); assert(sizeof(struct p10583 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p10570 *)==4); assert(sizeof(struct p10570 *)==4); assert(sizeof(struct p7892 *)==4); assert(sizeof(struct p7892 *)==4); assert(sizeof(struct p10391 *)==4); assert(sizeof(struct p10391 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p12057 *)==4); assert(sizeof(struct p12661 *)==4); assert(sizeof(struct p12103 *)==4); assert(sizeof(struct p12103 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8608 *)==4); assert(sizeof(struct p8608 *)==4); assert(sizeof(struct p8593 *)==4); assert(sizeof(struct p8593 *)==4); assert(sizeof(struct p8593 *)==4); assert(sizeof(struct p8593 *)==4); assert(sizeof(struct p8593 *)==4); assert(sizeof(struct p8593 *)==4); assert(sizeof(struct p11572 *)==4); assert(sizeof(struct p8667 *)==4); assert(sizeof(struct p8667 *)==4); assert(sizeof(struct p8667 *)==4); assert(sizeof(struct p8667 *)==4); assert(sizeof(struct p8667 *)==4); assert(sizeof(struct p12661 *)==4); assert(sizeof(struct p12658 *)==4); assert(sizeof(struct p12658 *)==4); assert(sizeof(struct p12658 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14852 *)==4); assert(sizeof(struct p14848 *)==4); assert(sizeof(struct p14848 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15122 *)==4); assert(sizeof(struct p15122 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p15067 *)==4); assert(sizeof(struct p16101 *)==4); assert(sizeof(struct p15629 *)==4); assert(sizeof(struct p15629 *)==4); assert(sizeof(struct p15629 *)==4); assert(sizeof(struct p15629 *)==4); assert(sizeof(struct p15629 *)==4); assert(sizeof(struct p15718 *)==4); assert(sizeof(struct p15718 *)==4); assert(sizeof(struct p15718 *)==4); assert(sizeof(struct p16101 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p7704 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15924 *)==4); assert(sizeof(struct p15924 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15924 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p6989 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p6989 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15924 *)==4); assert(sizeof(struct p15924 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15924 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15924 *)==4); assert(sizeof(struct p15924 *)==4); assert(sizeof(struct p15924 *)==4); assert(sizeof(struct p15355 *)==4); assert(sizeof(struct p15355 *)==4); assert(sizeof(struct p15355 *)==4); assert(sizeof(struct p15355 *)==4); assert(sizeof(struct p15355 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15368 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15370 *)==4); assert(sizeof(struct p15369 *)==4); assert(sizeof(struct p15368 *)==4); assert(sizeof(struct p15355 *)==4); assert(sizeof(struct p15355 *)==4); assert(sizeof(struct p15355 *)==4); assert(sizeof(struct p8590 *)==4); assert(sizeof(struct p12103 *)==4); assert(sizeof(struct p12103 *)==4); assert(sizeof(struct p12102 *)==4); assert(sizeof(struct p12161 *)==4); assert(sizeof(struct p12161 *)==4); assert(sizeof(struct p9081 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p9081 *)==4); assert(sizeof(struct p9081 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p9081 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p9082 *)==4); assert(sizeof(struct p9081 *)==4); assert(sizeof(struct p12146 *)==4); assert(sizeof(struct p12146 *)==4); assert(sizeof(struct p12146 *)==4); assert(sizeof(struct p12146 *)==4); assert(sizeof(struct p12146 *)==4); assert(sizeof(struct p12146 *)==4); assert(sizeof(struct p12146 *)==4); assert(sizeof(struct p12146 *)==4); assert(sizeof(struct p10746 *)==4); assert(sizeof(struct p10746 *)==4); assert(sizeof(struct p10746 *)==4); assert(sizeof(struct p10717 *)==4); assert(sizeof(struct p10717 *)==4); assert(sizeof(struct p10717 *)==4); assert(sizeof(struct p10717 *)==4); assert(sizeof(struct p10717 *)==4); assert(sizeof(struct p10717 *)==4); assert(sizeof(struct p10716 *)==4); assert(sizeof(struct p10716 *)==4); assert(sizeof(struct p10746 *)==4); assert(sizeof(struct p10746 *)==4); assert(sizeof(struct p10746 *)==4); assert(sizeof(struct p10746 *)==4); assert(sizeof(struct p10746 *)==4); assert(sizeof(struct p10746 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15924 *)==4); assert(sizeof(struct p15924 *)==4); assert(sizeof(struct p16093 *)==4); assert(sizeof(struct p16092 *)==4); assert(sizeof(struct p16091 *)==4); assert(sizeof(struct p16090 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15924 *)==4); assert(sizeof(struct p15924 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p15922 *)==4); assert(sizeof(struct p16101 *)==4); assert(sizeof(struct p12668 *)==4); assert(sizeof(struct p11572 *)==4); assert(sizeof(struct p11572 *)==4); assert(sizeof(struct p11572 *)==4); assert(sizeof(struct p12732 *)==4); assert(sizeof(struct p12732 *)==4); assert(sizeof(struct p12742 *)==4); assert(sizeof(struct p12742 *)==4); assert(sizeof(struct p12777 *)==4); assert(sizeof(struct p12777 *)==4); assert(sizeof(struct p12732 *)==4); assert(sizeof(struct p12732 *)==4); assert(sizeof(struct p8372 *)==4); assert(sizeof(struct p8372 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8291 *)==4); assert(sizeof(struct p8291 *)==4); assert(sizeof(struct p8291 *)==4); assert(sizeof(struct p8291 *)==4); assert(sizeof(struct p8291 *)==4); assert(sizeof(struct p8291 *)==4); assert(sizeof(struct p8291 *)==4); assert(sizeof(struct p8291 *)==4); assert(sizeof(struct p8291 *)==4); assert(sizeof(struct p8291 *)==4); assert(sizeof(struct p8291 *)==4); assert(sizeof(struct p8291 *)==4); assert(sizeof(struct p8291 *)==4); assert(sizeof(struct p8291 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8246 *)==4); assert(sizeof(struct p8372 *)==4); assert(sizeof(struct p8372 *)==4); assert(sizeof(struct p8372 *)==4); assert(sizeof(struct p8372 *)==4); assert(sizeof(struct p8395 *)==4); assert(sizeof(struct p8395 *)==4); assert(sizeof(struct p10617 *)==4); assert(sizeof(struct p12057 *)==4); assert(sizeof(struct p12146 *)==4); assert(sizeof(struct p12146 *)==4); assert(sizeof(struct p8759 *)==4); assert(sizeof(struct p8759 *)==4); assert(sizeof(struct p8759 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11669 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11674 *)==4); assert(sizeof(struct p11669 *)==4); assert(sizeof(struct p8667 *)==4); assert(sizeof(struct p8667 *)==4); assert(sizeof(struct p11619 *)==4); assert(sizeof(struct p11538 *)==4); assert(sizeof(struct p11538 *)==4); assert(sizeof(struct p11538 *)==4); assert(sizeof(struct p11537 *)==4); assert(sizeof(struct p11537 *)==4); assert(sizeof(struct p12383 *)==4); assert(sizeof(struct p12383 *)==4); assert(sizeof(struct p12383 *)==4); assert(sizeof(struct p12471 *)==4); assert(sizeof(struct p12485 *)==4); assert(sizeof(struct p12485 *)==4); assert(sizeof(struct p12485 *)==4); assert(sizeof(struct p12485 *)==4); assert(sizeof(struct p12485 *)==4); assert(sizeof(struct p12485 *)==4); assert(sizeof(struct p12483 *)==4); assert(sizeof(struct p12483 *)==4); assert(sizeof(struct p12482 *)==4); assert(sizeof(struct p12471 *)==4); assert(sizeof(struct p12471 *)==4); assert(sizeof(struct p12477 *)==4); assert(sizeof(struct p12476 *)==4); assert(sizeof(struct p12479 *)==4); assert(sizeof(struct p7708 *)==4); assert(sizeof(struct p10532 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10497 *)==4); assert(sizeof(struct p10409 *)==4); assert(sizeof(struct p10409 *)==4); assert(sizeof(struct p10409 *)==4); assert(sizeof(struct p10409 *)==4); assert(sizeof(struct p10409 *)==4); assert(sizeof(struct p10409 *)==4); assert(sizeof(struct p10409 *)==4); assert(sizeof(struct p10409 *)==4); assert(sizeof(struct p10409 *)==4); assert(sizeof(struct p10409 *)==4); assert(sizeof(struct p11003 *)==4); assert(sizeof(struct p11003 *)==4); assert(sizeof(struct p11003 *)==4); assert(sizeof(struct p11003 *)==4); assert(sizeof(struct p11003 *)==4); assert(sizeof(struct p11003 *)==4); assert(sizeof(struct p11003 *)==4); assert(sizeof(struct p11003 *)==4); assert(sizeof(struct p11003 *)==4); assert(sizeof(struct p11003 *)==4); assert(sizeof(struct p11003 *)==4); assert(sizeof(struct p11003 *)==4); assert(sizeof(struct p11003 *)==4); assert(sizeof(struct p11003 *)==4); assert(sizeof(struct p11572 *)==4); assert(sizeof(struct p11572 *)==4); assert(sizeof(struct p11570 *)==4); assert(sizeof(struct p11570 *)==4); assert(sizeof(struct p11570 *)==4); assert(sizeof(struct p10409 *)==4); assert(sizeof(struct p10409 *)==4); assert(sizeof(struct p10405 *)==4); assert(sizeof(struct p10405 *)==4); assert(sizeof(struct p10405 *)==4); assert(sizeof(struct p10405 *)==4); assert(sizeof(struct p11034 *)==4); assert(sizeof(struct p11034 *)==4); assert(sizeof(struct p11034 *)==4); assert(sizeof(struct p11669 *)==4); assert(sizeof(struct p11669 *)==4); assert(sizeof(struct p11669 *)==4); assert(sizeof(struct p12742 *)==4); assert(sizeof(struct p12742 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p10316 *)==4); assert(sizeof(struct p10316 *)==4); assert(sizeof(struct p13108 *)==4); assert(sizeof(struct p13108 *)==4); assert(sizeof(struct p13108 *)==4); assert(sizeof(struct p13108 *)==4); assert(sizeof(struct p10110 *)==4); assert(sizeof(struct p10110 *)==4); assert(sizeof(struct p11498 *)==4); assert(sizeof(struct p11483 *)==4); assert(sizeof(struct p11524 *)==4); assert(sizeof(struct p11524 *)==4); assert(sizeof(struct p11524 *)==4); assert(sizeof(struct p10307 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p10394 *)==4); assert(sizeof(struct p12057 *)==4); assert(sizeof(struct p12057 *)==4); assert(sizeof(struct p12057 *)==4); assert(sizeof(struct p12057 *)==4); assert(sizeof(struct p12057 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p12602 *)==4); assert(sizeof(struct p11793 *)==4); assert(sizeof(struct p10316 *)==4); assert(sizeof(struct p10316 *)==4); assert(sizeof(struct p10316 *)==4); assert(sizeof(struct p10316 *)==4); assert(sizeof(struct p10316 *)==4); assert(sizeof(struct p10316 *)==4); assert(sizeof(struct p10316 *)==4); assert(sizeof(struct p10316 *)==4); assert(sizeof(struct p10316 *)==4); assert(sizeof(struct p10316 *)==4); assert(sizeof(struct p10316 *)==4); assert(sizeof(struct p13098 *)==4); assert(sizeof(struct p13098 *)==4); assert(sizeof(struct p13377 *)==4); assert(sizeof(struct p13376 *)==4); assert(sizeof(struct p10641 *)==4); assert(sizeof(struct p12777 *)==4); assert(sizeof(struct p12777 *)==4); assert(sizeof(struct p12057 *)==4); assert(sizeof(struct p12057 *)==4); assert(sizeof(struct p12742 *)==4); assert(sizeof(struct p9977 *)==4); assert(sizeof(struct p9977 *)==4); assert(sizeof(struct p9977 *)==4); assert(sizeof(struct p9977 *)==4); assert(sizeof(struct p9977 *)==4); assert(sizeof(struct p9976 *)==4); assert(sizeof(struct p10316 *)==4); assert(sizeof(struct p10394 *)==4); assert(sizeof(struct p10405 *)==4); assert(sizeof(struct p12057 *)==4); assert(sizeof(struct p12057 *)==4); assert(sizeof(struct p12057 *)==4); assert(sizeof(struct p12057 *)==4); assert(sizeof(struct p12057 *)==4); assert(sizeof(struct p12057 *)==4); assert(sizeof(struct p12302 *)==4); assert(sizeof(struct p12975 *)==4); assert(sizeof(struct p12975 *)==4); assert(sizeof(struct p12975 *)==4); assert(sizeof(struct p12975 *)==4); assert(sizeof(struct p12975 *)==4); assert(sizeof(struct p12057 *)==4); assert(sizeof(struct p8099 *)==4); assert(sizeof(struct p8181 *)==4); assert(sizeof(struct p12263 *)==4); assert(sizeof(struct p12245 *)==4); assert(sizeof(struct p12245 *)==4); assert(sizeof(struct p12263 *)==4); assert(sizeof(struct p12263 *)==4); assert(sizeof(struct p12263 *)==4); assert(sizeof(struct p12245 *)==4); assert(sizeof(struct p12245 *)==4); assert(sizeof(struct p12245 *)==4); assert(sizeof(struct p12245 *)==4); assert(sizeof(struct p12289 *)==4); assert(sizeof(struct p12289 *)==4); assert(sizeof(struct p12289 *)==4); assert(sizeof(struct p12289 *)==4); assert(sizeof(struct p12315 *)==4); assert(sizeof(struct p12315 *)==4); assert(sizeof(struct p12315 *)==4); assert(sizeof(struct p12315 *)==4); assert(sizeof(struct p8181 *)==4); assert(sizeof(struct p8099 *)==4); assert(sizeof(struct p12026 *)==4); assert(sizeof(struct p12121 *)==4); assert(sizeof(struct p12125 *)==4); assert(sizeof(struct p12119 *)==4); assert(sizeof(struct p12119 *)==4); assert(sizeof(struct p12119 *)==4); assert(sizeof(struct p12119 *)==4); assert(sizeof(struct p12119 *)==4); assert(sizeof(struct p12177 *)==4); assert(sizeof(struct p12194 *)==4); assert(sizeof(struct p12198 *)==4); assert(sizeof(struct p12192 *)==4); assert(sizeof(struct p12192 *)==4); assert(sizeof(struct p12192 *)==4); assert(sizeof(struct p12192 *)==4); assert(sizeof(struct p12192 *)==4); assert(sizeof(struct p12247 *)==4); assert(sizeof(struct p12247 *)==4); assert(sizeof(struct p12245 *)==4); assert(sizeof(struct p12245 *)==4); assert(sizeof(struct p12245 *)==4); assert(sizeof(struct p12244 *)==4); assert(sizeof(struct p7717 *)==4); assert(sizeof(struct p12276 *)==4); assert(sizeof(struct p12302 *)==4); assert(sizeof(struct p8832 *)==4); assert(sizeof(struct p8832 *)==4); assert(sizeof(struct p8832 *)==4); assert(sizeof(struct p11049 *)==4); assert(sizeof(struct p1519 *)==4); assert(sizeof(struct p1519 *)==4); assert(sizeof(struct p1519 *)==4); assert(sizeof(struct p1519 *)==4); assert(sizeof(struct p12665 *)==4); assert(sizeof(struct p12668 *)==4); assert(sizeof(struct p11560 *)==4); assert(sizeof(struct p11560 *)==4); assert(sizeof(struct p11560 *)==4); assert(sizeof(struct p11559 *)==4); assert(sizeof(struct p11559 *)==4); assert(sizeof(struct p12740 *)==4); assert(sizeof(struct p12740 *)==4); assert(sizeof(struct p12751 *)==4); assert(sizeof(struct p12751 *)==4); assert(sizeof(struct p12751 *)==4); assert(sizeof(struct p12762 *)==4); assert(sizeof(struct p12762 *)==4); assert(sizeof(struct p12762 *)==4); assert(sizeof(struct p12773 *)==4); assert(sizeof(struct p12773 *)==4); assert(sizeof(struct p12773 *)==4); assert(sizeof(struct p13018 *)==4); assert(sizeof(struct p13026 *)==4); assert(sizeof(struct p8776 *)==4); assert(sizeof(struct p8773 *)==4); assert(sizeof(struct p19556 *)==4); assert(sizeof(struct p1542 *)==4); assert(sizeof(struct p1554 *)==4); assert(sizeof(struct p1554 *)==4); assert(sizeof(struct p14553 *)==4); assert(sizeof(struct p1550 *)==4); assert(sizeof(struct p1554 *)==4); assert(sizeof(struct p1554 *)==4); assert(sizeof(struct p1554 *)==4); assert(sizeof(struct p1542 *)==4); assert(sizeof(struct p1542 *)==4); assert(sizeof(struct p1542 *)==4); assert(sizeof(struct p1542 *)==4); assert(sizeof(struct p1542 *)==4); assert(sizeof(struct p1542 *)==4); assert(sizeof(struct p1542 *)==4); assert(sizeof(struct p1542 *)==4); assert(sizeof(struct p14552 *)==4); assert(sizeof(struct p8173 *)==4); assert(sizeof(struct p8173 *)==4); assert(sizeof(struct p8173 *)==4); assert(sizeof(struct p8137 *)==4); assert(sizeof(struct p8137 *)==4); assert(sizeof(struct p8137 *)==4); assert(sizeof(struct p8144 *)==4); assert(sizeof(struct p1142 *)==4); assert(sizeof(struct p1141 *)==4); assert(sizeof(struct p18492 *)==4); assert(sizeof(struct p18492 *)==4); assert(sizeof(struct p18492 *)==4); assert(sizeof(struct p18492 *)==4); assert(sizeof(struct p18590 *)==4); assert(sizeof(struct p18590 *)==4); assert(sizeof(struct p18590 *)==4); assert(sizeof(struct p18590 *)==4); assert(sizeof(struct p18590 *)==4); assert(sizeof(struct p18486 *)==4); assert(sizeof(struct p18486 *)==4); assert(sizeof(struct p18486 *)==4); assert(sizeof(struct p18442 *)==4); assert(sizeof(struct p18442 *)==4); assert(sizeof(struct p18246 *)==4); assert(sizeof(struct p18246 *)==4); assert(sizeof(struct p18246 *)==4); assert(sizeof(struct p18246 *)==4); assert(sizeof(struct p1057 *)==4); assert(sizeof(struct p1057 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p1155 *)==4); assert(sizeof(struct p1157 *)==4); assert(sizeof(struct p1155 *)==4); assert(sizeof(struct p1154 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18677 *)==4); assert(sizeof(struct p18677 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18679 *)==4); assert(sizeof(struct p18679 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18679 *)==4); assert(sizeof(struct p18679 *)==4); assert(sizeof(struct p18679 *)==4); assert(sizeof(struct p18679 *)==4); assert(sizeof(struct p18678 *)==4); assert(sizeof(struct p18677 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct p731 *)==4); assert(sizeof(struct structure_type27908 *)==4); assert(sizeof(struct structure_type27858 *)==4); assert(sizeof(struct structure_type27779 *)==4); assert(sizeof(struct structure_type27776 *)==4); assert(sizeof(struct structure_type27769 *)==4); assert(sizeof(struct structure_type27761 *)==4); assert(sizeof(struct structure_type27756 *)==4); assert(sizeof(struct structure_type27753 *)==4); assert(sizeof(struct structure_type27750 *)==4); assert(sizeof(struct structure_type27747 *)==4); assert(sizeof(struct structure_type27745 *)==4); assert(sizeof(struct structure_type27698 *)==4); assert(sizeof(struct structure_type27694 *)==4); assert(sizeof(struct structure_type27692 *)==4); assert(sizeof(struct structure_type27673 *)==4); assert(sizeof(struct structure_type27669 *)==4); assert(sizeof(struct structure_type27657 *)==4); assert(sizeof(struct structure_type27650 *)==4); assert(sizeof(struct structure_type27623 *)==4); assert(sizeof(struct structure_type27621 *)==4); assert(sizeof(struct structure_type27510 *)==4); assert(sizeof(struct structure_type27501 *)==4); assert(sizeof(struct structure_type24757 *)==4); assert(sizeof(struct structure_type24753 *)==4); assert(sizeof(struct headed_vector_type27896 *)==4); assert(sizeof(struct headed_vector_type27624 *)==4); assert(sizeof(struct headed_vector_type27486 *)==4); assert(sizeof(struct headed_vector_type24751 *)==4); assert(sizeof(struct headed_vector_type24746 *)==4); assert(sizeof(struct nonheaded_vector_type24736)==8); assert(sizeof(struct w228484)==8); assert(sizeof(struct w228463)==8); assert(sizeof(struct w228118)==8); assert(sizeof(struct w227671)==8); assert(sizeof(struct w227506)==8); assert(sizeof(struct w227393)==8); assert(sizeof(struct w225099)==8); assert(sizeof(struct w211235)==8); assert(sizeof(struct w211225)==8); assert(sizeof(struct w211113)==8); assert(sizeof(struct w211061)==8); assert(sizeof(struct w208531)==8); assert(sizeof(struct w198539)==8); assert(sizeof(struct w198538)==8); assert(sizeof(struct w172645)==8); assert(sizeof(struct w155919)==8); assert(sizeof(struct w155916)==8); assert(sizeof(struct w155862)==8); assert(sizeof(struct w155635)==8); assert(sizeof(struct w155624)==8); assert(sizeof(struct w145455)==8); assert(sizeof(struct w142334)==8); assert(sizeof(struct w66067)==8); assert(sizeof(struct w66023)==8); assert(sizeof(struct w66009)==8); assert(sizeof(struct w64676)==8); assert(sizeof(struct w64143)==8); assert(sizeof(struct w61020)==8); assert(sizeof(struct w60864)==8); assert(sizeof(struct w60861)==8); assert(sizeof(struct w48298)==8); assert(sizeof(struct w36789)==12); assert(sizeof(struct w36270)==8); assert(sizeof(struct w32142)==8); assert(sizeof(struct w32134)==8); assert(sizeof(struct w32119)==8); assert(sizeof(struct w32111)==8); assert(sizeof(struct w32103)==8); assert(sizeof(struct w32087)==8); assert(sizeof(struct w32078)==8); assert(sizeof(struct w32070)==8); assert(sizeof(struct w32062)==8); assert(sizeof(struct w31981)==8); assert(sizeof(struct w30215)==8); assert(sizeof(struct w29471)==8); assert(sizeof(struct w29434)==8); assert(sizeof(struct w21691)==8); assert(sizeof(struct w21193)==8); assert(sizeof(struct w16638)==8); assert(sizeof(struct w16614)==8); assert(sizeof(struct w16611)==8); assert(sizeof(struct w12563)==8); assert(sizeof(struct w12224)==8); assert(sizeof(struct w12218)==8); assert(sizeof(struct w11873)==8); assert(sizeof(struct w9296)==8); assert(sizeof(struct w9140)==8); assert(sizeof(struct w7121)==8); assert(sizeof(struct w6852)==8); assert(sizeof(struct w6315)==8); assert(sizeof(struct w6194)==8); assert(sizeof(struct w3467)==8); assert(sizeof(struct w3457)==8); assert(sizeof(struct w49)==8); initialize_constants0(); initialize_constants1(); initialize_constants2(); initialize_constants3(); initialize_constants4(); initialize_constants5(); initialize_constants6(); initialize_constants7(); initialize_constants8(); initialize_constants9(); initialize_constants10(); initialize_constants11(); initialize_constants12(); initialize_constants13(); initialize_constants14(); initialize_constants15(); initialize_constants16(); initialize_constants17(); initialize_constants18(); initialize_constants19(); initialize_constants20(); initialize_constants21(); initialize_constants22(); initialize_constants23(); initialize_constants24(); initialize_constants25(); initialize_constants26(); initialize_constants27(); initialize_constants28(); initialize_constants29(); initialize_constants30(); initialize_constants31(); initialize_constants32(); initialize_constants33(); initialize_constants34(); initialize_constants35(); initialize_constants36(); initialize_constants37(); initialize_constants38(); initialize_constants39(); initialize_constants40(); initialize_constants41(); ALIGN(fp15803); ALIGN(fp14988); ALIGN(fp12482); ALIGN(fp12102); ALIGN(fp11736); ALIGN(fp11571); ALIGN(fp10724); ALIGN(fp10650); ALIGN(fp10408); ALIGN(fp9976); ALIGN(fp9514); ALIGN(fp9081); ALIGN(fp1045); t102946.length = argc; t102946.element = argv; f0(t102946); return 0;} stalin-0.11/remove-extra-blank-lines.sc0000600017435200151030000000115610464416374016547 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah (module main (main main)) (define (read-line . port) (let loop ((chars '())) (let ((char (read-char))) (if (eof-object? char) (if (null? chars) char (list->string (reverse chars))) (if (char=? char #\newline) (list->string (reverse chars)) (loop (cons char chars))))))) (define (main) (let loop ((flag? #t)) (let ((line (read-line))) (unless (eof-object? line) (cond ((string=? line "") (unless flag? (display line) (newline)) (loop #t)) (else (display line) (newline) (loop #f))))))) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/stalin.el0000600017435200151030000010567510357352436013233 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; Stalin 0.10 - A global optimizing compiler for Scheme ;;; Copyright 1993, 1994, and 1995 University of Toronto. All rights reserved. ;;; Copyright 1996 Technion. All rights reserved. ;;; Copyright 1996 and 1997 University of Vermont. All rights reserved. ;;; Copyright 1997, 1998, 1999, 2000, and 2001 NEC Research Institute, Inc. All ;;; rights reserved. ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License ;;; as published by the Free Software Foundation; either version 2 ;;; of the License, or (at your option) any later version. ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;;; written by: ;;; Jeffrey Mark Siskind ;;; NEC Research Institute, Inc. ;;; 4 Independence Way ;;; Princeton NJ 08540-6620 USA ;;; voice: 609/951-2705 ;;; FAX: 609/951-2483 ;;; Qobi@research.nj.nec.com ;;; ftp://ftp.nj.nec.com/pub/qobi ;;; http://www.neci.nj.nec.com/homepages/qobi ;;; Stalin outputs its internal database of assertions about the program being ;;; compiled in a form that Emacs can read. Emacs commands allow one to ;;; conveniently query this database to assertain properties of the program. ;;; Stalin has its own READ procedure to keep track of the line and character ;;; positions of each S expression in the source file being compiled so that ;;; it can generate more informative error messages. These Emacs commands use ;;; this information. ;;; ;;; These commands are similar to the c-sh-A/m-. commands from the MIT Lisp ;;; Machine only much much more sophisticated. The current interface is ;;; extremely simple yet exceedingly powerful: ;;; ;;; m-sh-V If the cursor points to a variable reference or assignment (SET!) ;;; expression, move the cursor to the defining occurrence for that ;;; variable (i.e. lambda expression or derivative that binds that ;;; variable). If the cursor points to a defining occurrence move it to ;;; one of its references (variable reference or assignment). As a ;;; special case this encompasses the functionality of m-. but is much ;;; more general. ;;; ;;; m-sh-N Go to the next variable reference. ;;; ;;; m-sh-P Go to the previous variable reference. ;;; ;;; m-sh-T Tell me the type of the defining occurence or expression at the ;;; cursor position. ;;; ;;; m-sh-I Tell me all the information you know (except the type) about the ;;; defining occurrence or expression at the cursor position. ;;; ;;; m-sh-Q Tell me all the information you know about the type of the defining ;;; occurrence or expression at the cursor position (not the type ;;; itself but rather information about the type). ;;; ;;; m-sh-M The cursor must point at a defining occurrence or expression whose ;;; type is a native procedure monotype. Tell me all the information ;;; you know about that procedure. ;;; ;;; m-sh-W Go to the first compiler warning. ;;; ;;; m-sh-F Go to the next compiler warning. ;;; ;;; m-sh-B Go to the previous compiler warning. ;;; ;;; m-sh-D Go to the first driver for this variable. ;;; ;;; m-sh-A Go to the next driver for this variable. ;;; ;;; m-sh-E Go to the previous driver for this variable. ;;; ;;; I view this as a prototype of the way programming environments ought to be. ;;; Start to finish, it took me less than two days to add this functionality to ;;; Stalin. Having done this, I now am thinking of additional functionality. ;;; One simple addition would be an ability to cycle through all assignments ;;; to a variable or all expressions that appear as parameters to that ;;; variable in a procedure call. This would allow a person to simply ask and ;;; answer the question `Why does this variable have the type that it has?' ;;; Down the road, I have a more ambitious project: I can easily augment the ;;; Stalin code generator to keep track of the bidirectional mapping between ;;; character positions in the Scheme source code and the C object code. This ;;; would allow a compiler developer to easily jump back and forth between the ;;; source and object code. But more important, it would allow building a ;;; high-level Scheme debugger on top of a low-level C debugger like gdb/gud. ;;; I don't think that it would be difficult to: ;;; ;;; - allow source-level Scheme tracing and single stepping during execution by ;;; moving the coursor around the Scheme program ;;; ;;; - allow breakpoints ;;; ;;; - allow getting a backtrace ;;; ;;; - allow examining and changing the value of any Scheme variable, even ones ;;; within a lexical closure ;;; ;;; The important thing is that this would be done on fully optimized compiled ;;; code, not interpreted code or half-compiled code with hooks left for the ;;; debugger (such hooks preclude many optimizations). ;;; ;;; Now I need to find someone willing to build this gdb/gud interface since I ;;; don't have the time to do it myself. ;;; ;;; TTMTTD ;;; 1. associate databases with buffers ;;; 2. call graph ;;; 3. allocation expressions ;;; 4. need to save database when writing file using WRITE-FILE-HOOKS ;;; 5. screws up on converted code ;;; 6. move point back and forth between Scheme and C code ;;; 7. interface to gdb/gud ;;; a. single step C code should move point through Scheme ;;; b. breakpoints ;;; i. after expression ;;; ii. procedure entry ;;; iii. procedure exit ;;; c. examine/modify variables, even slotted variables inside procedures ;;; d. backtrace ;;; 8. m-D takes a long time ;;; 9. should allow pointing to a destination of a SET! ;;; 10. test10.sc doesn't show the DEFINE driver for *X* ;;; needs work: The following are strings and not symbols because the ;;; allowed characters in symbols differs between Scheme and ;;; Emacs Lisp: ;;; internal-symbol-type-name ;;; primitive-procedure-type-name ;;; structure-type-name ;;; In addition, there may be difficulty printing out types with ;;; the following strings: ;;; environment-name ;;; foreign-procedure-type-name (require 'scheme) (require 'ilisp) (setq ilisp-modes (cons 'scheme-mode ilisp-modes)) (defvar stalin:*db* nil) (defvar stalin:*xs* '()) (defvar stalin:*i* 0) (defun stalin:lookup (x y z) (catch 'return (progn (while z (if (= (nth y (car z)) x) (throw 'return (car z))) (setq z (cdr z))) nil))) (defun stalin:lookup-expression (x) (stalin:lookup x 5 (nth 0 stalin:*db*))) (defun stalin:lookup-type (x) (stalin:lookup x 22 (nth 1 stalin:*db*))) (defun stalin:lookup-type-set (x) (stalin:lookup x 1 (nth 2 stalin:*db*))) (defun stalin:lookup-variable (x) (stalin:lookup x 4 (nth 3 stalin:*db*))) (defun stalin:lookup-environment (x) (stalin:lookup x 0 (nth 4 stalin:*db*))) (defun stalin:expression-kind (x) (nth 0 (stalin:lookup-expression x))) (defun stalin:expression-pathname (x) (nth 1 (stalin:lookup-expression x))) (defun stalin:expression-line-position (x) (nth 2 (stalin:lookup-expression x))) (defun stalin:expression-character-position (x) (nth 3 (stalin:lookup-expression x))) (defun stalin:expression-character-position-within-line (x) (nth 4 (stalin:lookup-expression x))) (defun stalin:expression-environment (x) (nth 6 (stalin:lookup-expression x))) (defun stalin:expression-type-set (x) (nth 7 (stalin:lookup-expression x))) (defun stalin:expression-parent (x) (nth 8 (stalin:lookup-expression x))) (defun stalin:expression-lambda-environment (x) (nth 9 (stalin:lookup-expression x))) (defun stalin:expression-parameters (x) (nth 10 (stalin:lookup-expression x))) (defun stalin:expression-expression (x) (nth 11 (stalin:lookup-expression x))) (defun stalin:expression-variable (x) (nth 12 (stalin:lookup-expression x))) (defun stalin:expression-source (x) (nth 13 (stalin:lookup-expression x))) (defun stalin:expression-antecedent (x) (nth 14 (stalin:lookup-expression x))) (defun stalin:expression-consequent (x) (nth 15 (stalin:lookup-expression x))) (defun stalin:expression-alternate (x) (nth 16 (stalin:lookup-expression x))) (defun stalin:expression-callee (x) (nth 17 (stalin:lookup-expression x))) (defun stalin:expression-arguments (x) (nth 18 (stalin:lookup-expression x))) (defun stalin:expression-type-allocation-alist (x) (nth 19 (stalin:lookup-expression x))) (defun stalin:type-kind (u) (nth 0 (stalin:lookup-type u))) (defun stalin:internal-symbol-type-name (u) (nth 1 (stalin:lookup-type u))) (defun stalin:external-symbol-type-displaced-string-type (u) (nth 2 (stalin:lookup-type u))) (defun stalin:primitive-procedure-type-name (u) (nth 3 (stalin:lookup-type u))) (defun stalin:primitive-procedure-type-arguments (u) (nth 4 (stalin:lookup-type u))) (defun stalin:native-procedure-type-call-site-environment-alist (u) (nth 5 (stalin:lookup-type u))) (defun stalin:foreign-procedure-type-name (u) (nth 6 (stalin:lookup-type u))) (defun stalin:foreign-procedure-type-parameters (u) (nth 7 (stalin:lookup-type u))) (defun stalin:foreign-procedure-type-result (u) (nth 8 (stalin:lookup-type u))) (defun stalin:foreign-procedure-type-calledp (u) (eq (nth 9 (stalin:lookup-type u)) 'T)) (defun stalin:continuation-type-allocating-expression (u) (nth 10 (stalin:lookup-type u))) (defun stalin:continuation-type-calledp (u) (eq (nth 11 (stalin:lookup-type u)) 'T)) (defun stalin:string-type-allocating-expressions (u) (nth 12 (stalin:lookup-type u))) (defun stalin:structure-type-name (u) (nth 13 (stalin:lookup-type u))) (defun stalin:structure-type-slots (u) (nth 14 (stalin:lookup-type u))) (defun stalin:structure-type-immediatep (u) (eq (nth 15 (stalin:lookup-type u)) 'T)) (defun stalin:structure-type-allocating-expressions (u) (nth 16 (stalin:lookup-type u))) (defun stalin:headed-vector-type-element (u) (nth 17 (stalin:lookup-type u))) (defun stalin:headed-vector-type-allocating-expressions (u) (nth 18 (stalin:lookup-type u))) (defun stalin:nonheaded-vector-type-element (u) (nth 19 (stalin:lookup-type u))) (defun stalin:nonheaded-vector-type-allocating-expressions (u) (nth 20 (stalin:lookup-type u))) (defun stalin:displaced-vector-type-displaced-vector-type (u) (nth 21 (stalin:lookup-type u))) (defun stalin:type-use-count (u) (nth 23 (stalin:lookup-type u))) (defun stalin:type-fictitiousp (u) (eq (nth 24 (stalin:lookup-type u)) 'T)) (defun stalin:type-set-members (w) (nth 0 (stalin:lookup-type-set w))) (defun stalin:type-set-fictitiousp (w) (eq (nth 2 (stalin:lookup-type-set w)) 'T)) (defun stalin:voidp (w) (eq (nth 3 (stalin:lookup-type-set w)) 'T)) (defun stalin:monomorphicp (w) (eq (nth 4 (stalin:lookup-type-set w)) 'T)) (defun stalin:multimorphicp (w) (eq (nth 5 (stalin:lookup-type-set w)) 'T)) (defun stalin:tag-onlyp (w) (eq (nth 6 (stalin:lookup-type-set w)) 'T)) (defun stalin:has-unionp (w) (eq (nth 7 (stalin:lookup-type-set w)) 'T)) (defun stalin:squeezedp (w) (eq (nth 8 (stalin:lookup-type-set w)) 'T)) (defun stalin:squishedp (w) (eq (nth 9 (stalin:lookup-type-set w)) 'T)) (defun stalin:variable-pathname (g) (nth 0 (stalin:lookup-variable g))) (defun stalin:variable-line-position (g) (nth 1 (stalin:lookup-variable g))) (defun stalin:variable-character-position (g) (nth 2 (stalin:lookup-variable g))) (defun stalin:variable-character-position-within-line (g) (nth 3 (stalin:lookup-variable g))) (defun stalin:variable-name (g) (nth 5 (stalin:lookup-variable g))) (defun stalin:variable-environment (g) (nth 6 (stalin:lookup-variable g))) (defun stalin:accessedp (g) (eq (nth 7 (stalin:lookup-variable g)) 'T)) (defun stalin:variable-type-set (g) (nth 8 (stalin:lookup-variable g))) (defun stalin:accesses (g) (nth 9 (stalin:lookup-variable g))) (defun stalin:assignments (g) (nth 10 (stalin:lookup-variable g))) (defun stalin:references (g) (nth 11 (stalin:lookup-variable g))) (defun stalin:localp (g) (eq (nth 12 (stalin:lookup-variable g)) 'T)) (defun stalin:globalp (g) (eq (nth 13 (stalin:lookup-variable g)) 'T)) (defun stalin:hiddenp (g) (eq (nth 14 (stalin:lookup-variable g)) 'T)) (defun stalin:slottedp (g) (eq (nth 15 (stalin:lookup-variable g)) 'T)) (defun stalin:environment-expression (e) (nth 1 (stalin:lookup-environment e))) (defun stalin:environment-name (e) (nth 2 (stalin:lookup-environment e))) (defun stalin:environment-has-regionp (e) (eq (nth 3 (stalin:lookup-environment e)) 'T)) (defun stalin:environment-call-sites (e) (nth 4 (stalin:lookup-environment e))) (defun stalin:environment-allocation (e) (nth 5 (stalin:lookup-environment e))) (defun stalin:environment-reentrantp (e) (eq (nth 6 (stalin:lookup-environment e)) 'T)) (defun stalin:environment-called-more-than-oncep (e) (eq (nth 7 (stalin:lookup-environment e)) 'T)) (defun stalin:environment-has-environment-levelp (e) (eq (nth 8 (stalin:lookup-environment e)) 'T)) (defun stalin:environment-unique-call-site (e) (nth 9 (stalin:lookup-environment e))) (defun stalin:findable-references (g) (let ((xs1 (stalin:references g)) (xs2 '())) (while xs1 (cond ((stalin:lookup-expression (car xs1)) (setq xs2 (cons (car xs1) xs2)))) (setq xs1 (cdr xs1))) (reverse xs2))) (defun stalin:some-can-be-native-procedurep (us e) (and (not (null us)) (or (and (eq (stalin:type-kind (car us)) 'NATIVE-PROCEDURE-TYPE) (member e (stalin:environments (car us)))) (stalin:some-can-be-native-procedurep (cdr us) e)))) (defun stalin:can-be-native-procedurep (w e) (stalin:some-can-be-native-procedurep (stalin:type-set-members w) e)) (defun stalin:position (i is) (let ((n 0)) (while (not (= (car is) i)) (setq is (cdr is)) (setq n (+ n 1))) n)) (defun stalin:findable-drivers (g) (let* ((xs1 (stalin:references g)) (xs2 '()) (e (stalin:variable-environment g)) ;; needs work ;;(n (stalin:position g (siblings g))) (n 0) (xs3 (nth 0 stalin:*db*))) (while xs1 (cond ((and (eq (stalin:expression-kind (car xs1)) 'SET!) (stalin:lookup-expression (car xs1))) (setq xs2 (cons (car xs1) xs2)))) (setq xs1 (cdr xs1))) (while xs3 (let ((x (nth 5 (car xs3)))) (if (and (eq (stalin:expression-kind x) 'CALL) ;; needs work ;;(stalin:can-be-native-procedurep (stalin:expression-callee-type x) e) ;; needs work: To deal with &REST arguments ;; needs work ;;(= (length (stalin:expression-arguments x)) (length (siblings g))) (stalin:lookup-expression (nth n (stalin:expression-arguments x)))) (setq xs2 (cons (nth n (stalin:expression-arguments x)) xs2)))) (setq xs3 (cdr xs3))) (reverse xs2))) (defun stalin:copy-string (s s1 i) (aset s1 i (aref s i)) (if (< i (- (length s1) 1)) (stalin:copy-string s s1 (+ i 1)) s1)) (defun stalin:remove-extension (s) (stalin:copy-string s (make-string (- (length s) 3) 0) 0)) (defun stalin:munge-expressions (l buffer) (while (not (null l)) (setcar (cdr (cdr (cdr (car l)))) (set-marker (make-marker) (if (car (cdr (cdr (cdr (car l))))) (+ (car (cdr (cdr (cdr (car l))))) 1) nil) buffer)) (setq l (cdr l)))) (defun stalin:munge-variables (l buffer) (while (not (null l)) (setcar (cdr (cdr (car l))) (set-marker (make-marker) (if (car (cdr (cdr (car l)))) (+ (car (cdr (cdr (car l)))) 1) nil) buffer)) (setq l (cdr l)))) (defun stalin:load-database () (setq stalin:*db* nil) (setq stalin:*xs* '()) (setq stalin:*i* 0) (cond ((eq major-mode 'scheme-mode) (let ((pathname (concat (stalin:remove-extension (buffer-file-name)) ".db")) (buffer (current-buffer))) (cond ((file-exists-p pathname) (save-excursion (find-file pathname) (setq stalin:*db* (read (current-buffer))) (kill-buffer (current-buffer)) (stalin:munge-expressions (nth 0 stalin:*db*) buffer) (stalin:munge-variables (nth 3 stalin:*db*) buffer)))))))) (defun stalin:find () (catch 'return (let ((l (nth 0 stalin:*db*))) (while (not (null l)) (if (and (marker-position (car (cdr (cdr (cdr (car l)))))) (marker-buffer (car (cdr (cdr (cdr (car l)))))) (= (point) (car (cdr (cdr (cdr (car l))))))) (throw 'return (list 'expression (nth 5 (car l))))) (setq l (cdr l))) (setq l (nth 3 stalin:*db*)) (while (not (null l)) (if (and (marker-position (car (cdr (cdr (car l))))) (marker-buffer (car (cdr (cdr (car l))))) (= (point) (car (cdr (cdr (car l)))))) (throw 'return (list 'variable (nth 4 (car l))))) (setq l (cdr l))) (save-excursion (backward-sexp) (setq l (nth 0 stalin:*db*)) (while (not (null l)) (if (and (marker-position (car (cdr (cdr (cdr (car l)))))) (marker-buffer (car (cdr (cdr (cdr (car l)))))) (= (point) (car (cdr (cdr (cdr (car l))))))) (throw 'return (list 'expression (nth 5 (car l))))) (setq l (cdr l))) (setq l (nth 3 stalin:*db*)) (while (not (null l)) (if (and (marker-position (car (cdr (cdr (car l))))) (marker-buffer (car (cdr (cdr (car l))))) (= (point) (car (cdr (cdr (car l)))))) (throw 'return (list 'variable (nth 4 (car l))))) (setq l (cdr l)))) nil))) (defun stalin:environments (u) (mapcar (lambda (y-e) (cdr y-e)) (stalin:native-procedure-type-call-site-environment-alist u))) (defun stalin:null-typep (u) (eq (stalin:type-kind u) 'NULL-TYPE)) (defun stalin:pair-typep (u) (and (eq (stalin:type-kind u) 'STRUCTURE-TYPE) (equal (stalin:structure-type-name u) "PAIR"))) (defun stalin:pair-type-car (u) (car (stalin:structure-type-slots u))) (defun stalin:pair-type-cdr (u) (car (cdr (stalin:structure-type-slots u)))) (defun stalin:list+-typep (u) (and (stalin:pair-typep u) (= (length (stalin:type-set-members (stalin:pair-type-cdr u))) 2) (or (and (stalin:null-typep (car (stalin:type-set-members (stalin:pair-type-cdr u)))) (= (car (cdr (stalin:type-set-members (stalin:pair-type-cdr u)))) u)) (and (stalin:null-typep (car (cdr (stalin:type-set-members (stalin:pair-type-cdr u))))) (= (car (stalin:type-set-members (stalin:pair-type-cdr u))) u))))) (defun stalin:list-typep (u) (or (stalin:null-typep u) (and (stalin:pair-typep u) (stalin:monomorphicp (stalin:pair-type-cdr u)) (stalin:list-typep (car (stalin:type-set-members (stalin:pair-type-cdr u))))))) (defun stalin:list-type-slots (u) (if (stalin:null-typep u) '() (cons (stalin:pair-type-car u) (stalin:list-type-slots (car (stalin:type-set-members (stalin:pair-type-cdr u))))))) (defun stalin:list*-typep (w) (and (= (length (stalin:type-set-members w)) 2) (or (and (stalin:null-typep (car (stalin:type-set-members w))) (stalin:pair-typep (car (cdr (stalin:type-set-members w)))) (= (stalin:pair-type-cdr (car (cdr (stalin:type-set-members w)))) w)) (and (stalin:null-typep (car (cdr (stalin:type-set-members w)))) (stalin:pair-typep (car (stalin:type-set-members w))) (= (stalin:pair-type-cdr (car (stalin:type-set-members w))) w))))) (defun stalin:up (u/w u/ws) (if (or (equal u/w (car u/ws)) (and (eq (car u/w) 'w) (eq (car (car u/ws)) 'u) (stalin:monomorphicp (cdr u/w)) (= (car (stalin:type-set-members (cdr u/w))) (cdr (car u/ws))))) 0 (+ (stalin:up u/w (cdr u/ws)) 1))) (defun stalin:the-structure-member (us) (if (eq (stalin:type-kind (car us)) 'STRUCTURE-TYPE) (car us) (stalin:the-structure-member (cdr us)))) (defun stalin:externalize-type-set-internal (w u/ws) (cond ((or (member (cons 'w w) u/ws) (and (stalin:monomorphicp w) (member (cons 'u (car (stalin:type-set-members w))) u/ws))) `(UP ,(stalin:up (cons 'w w) u/ws))) ((stalin:voidp w) 'VOID) ((stalin:monomorphicp w) (stalin:externalize-type-internal (car (stalin:type-set-members w)) u/ws)) ((stalin:list*-typep w) ;; note: Ambiguous between list* type and structure type. `(LIST* ,(stalin:externalize-type-set-internal (stalin:pair-type-car (stalin:the-structure-member (stalin:type-set-members w))) (cons (cons 'w w) u/ws)))) (t `(UNION ,@(mapcar (lambda (u) (stalin:externalize-type-internal u (cons (cons 'w w) u/ws))) (stalin:type-set-members w)))))) (defun stalin:externalize-type-internal (u u/ws) (cond ((member (cons 'u u) u/ws) `(UP ,(stalin:up (cons 'u u) u/ws))) ((eq (stalin:type-kind u) 'NULL-TYPE) 'NULL) ((eq (stalin:type-kind u) 'TRUE-TYPE) 'TRUE) ((eq (stalin:type-kind u) 'FALSE-TYPE) 'FALSE) ((eq (stalin:type-kind u) 'CHAR-TYPE) 'CHAR) ((eq (stalin:type-kind u) 'FIXNUM-TYPE) 'FIXNUM) ((eq (stalin:type-kind u) 'FLONUM-TYPE) 'FLONUM) ((eq (stalin:type-kind u) 'RECTANGULAR-TYPE) 'RECTANGULAR) ((eq (stalin:type-kind u) 'INPUT-PORT-TYPE) 'INPUT-PORT) ((eq (stalin:type-kind u) 'OUTPUT-PORT-TYPE) 'OUTPUT-PORT) ((eq (stalin:type-kind u) 'EOF-OBJECT-TYPE) 'EOF-OBJECT) ((eq (stalin:type-kind u) 'POINTER-TYPE) 'POINTER) ((eq (stalin:type-kind u) 'INTERNAL-SYMBOL-TYPE) ;; note: This can't be `',(stalin:internal-symbol-type-name u) because that ;; would use quote instead of QUOTE. `(QUOTE ,(stalin:internal-symbol-type-name u))) ((eq (stalin:type-kind u) 'EXTERNAL-SYMBOL-TYPE) ;; note: Ambiguous between external symbol type and structure type. `(EXTERNAL-SYMBOL ,(stalin:externalize-type-internal (stalin:external-symbol-type-displaced-string-type u) (cons (cons 'u u) u/ws)))) ((eq (stalin:type-kind u) 'PRIMITIVE-PROCEDURE-TYPE) (if (null (stalin:primitive-procedure-type-arguments u)) (stalin:primitive-procedure-type-name u) (cons (stalin:primitive-procedure-type-name u) (stalin:primitive-procedure-type-arguments u)))) ((eq (stalin:type-kind u) 'NATIVE-PROCEDURE-TYPE) `(NATIVE-PROCEDURE ,@(mapcar (lambda (e) (stalin:environment-name e)) (stalin:environments u)))) ((eq (stalin:type-kind u) 'FOREIGN-PROCEDURE-TYPE) (stalin:foreign-procedure-type-name u)) ((eq (stalin:type-kind u) 'CONTINUATION-TYPE) `(CONTINUATION ,(if (eq (stalin:continuation-type-allocating-expression u) 'NIL) 'TOP-LEVEL (stalin:continuation-type-allocating-expression u)))) ;; note: Ambiguous between string type and primitive-procedure type. ((eq (stalin:type-kind u) 'STRING-TYPE) 'STRING) ((eq (stalin:type-kind u) 'STRUCTURE-TYPE) (cond ((stalin:list+-typep u) ;; note: Ambiguous between list+ type and structure type. `(LIST+ ,(stalin:externalize-type-set-internal (stalin:pair-type-car u) (cons (cons 'u u) u/ws)))) ((stalin:list-typep u) ;; note: Ambiguous between list type and structure type. `(LIST ,@(mapcar (lambda (w) (stalin:externalize-type-set-internal w (cons (cons 'u u) u/ws))) (stalin:list-type-slots u)))) (t `(,(stalin:structure-type-name u) ,@(mapcar (lambda (w) (stalin:externalize-type-set-internal w (cons (cons 'u u) u/ws))) (stalin:structure-type-slots u)))))) ((eq (stalin:type-kind u) 'HEADED-VECTOR-TYPE) ;; note: Ambiguous between headed-vector type and structure type. `(HEADED-VECTOR ,(stalin:externalize-type-set-internal (stalin:headed-vector-type-element u) (cons (cons 'u u) u/ws)))) ((eq (stalin:type-kind u) 'NONHEADED-VECTOR-TYPE) ;; note: Ambiguous between nonheaded-vector type and structure type. `(NONHEADED-VECTOR ,(stalin:externalize-type-set-internal (stalin:nonheaded-vector-type-element u) (cons (cons 'u u) u/ws)))) ((eq (stalin:type-kind u) 'DISPLACED-VECTOR-TYPE) ;; note: Ambiguous between displaced-vector type and structure type. `(DISPLACED-VECTOR ,(stalin:externalize-type-internal (stalin:displaced-vector-type-displaced-vector-type u) (cons (cons 'u u) u/ws)))) (t (error "fuck up")))) (defun stalin:externalize-type-set (w) (stalin:externalize-type-set-internal w '())) (defun stalin:show-type-set (w) (ilisp-display-output-adaptively (with-output-to-string (pp (stalin:externalize-type-set w))) ilisp-arglist-output)) (defun stalin:goto-variable (g) (let ((p (stalin:variable-character-position g))) (if (or (not p) (not (marker-position p)) (not (marker-buffer p))) (error "Can't find variable")) (goto-char p))) (defun stalin:goto-expression (x) (let ((p (stalin:expression-character-position x))) (if (or (not p) (not (marker-position p)) (not (marker-buffer p))) (error "Can't find expression")) (goto-char p))) (defun stalin:next (i is) (let ((is (member i (append is (list 'nil))))) (if (null is) (error "fuck up")) (car (cdr is)))) (defun stalin:previous (i is) (let ((is (member i (reverse (append is (list 'nil)))))) (if (null is) (error "fuck up")) (car (cdr is)))) (defun stalin:expression-allocation-environments (u-es) (if (null u-es) "" (concat (cond ((numberp (cdr (car u-es))) (format "allocates on %s, " (stalin:environment-name (cdr (car u-es))))) ((eq (cdr (car u-es)) 'STACK) "allocates on the stack, ") ((eq (cdr (car u-es)) 'HEAP) "allocates on the heap, ") (t (error "fuck up"))) (stalin:expression-allocation-environments (cdr u-es))))) (defun stalin:expression-info (x) (concat (stalin:expression-allocation-environments (stalin:expression-type-allocation-alist x)) "x" (number-to-string x) ", " "w" (number-to-string (stalin:expression-type-set x)))) (defun stalin:type-info (u) ;; needs work: There is currently no command that displays this info: ;; foreign-procedure-type-calledp ;; continuation-type-calledp ;; structure-type-immediate ;; allocating-expressions ;; type-use-count (concat (if (stalin:type-fictitiousp u) "fictitious, " "") "u" (number-to-string u))) (defun stalin:type-set-info (w) ;; needs work: There is currently no command that displays this info: ;; type-set-has-unionp ;; type-set-multimorphic (concat (cond ((stalin:voidp w) "void, ") ((stalin:type-set-fictitiousp w) "fictitious, ") ((stalin:monomorphicp w) "monomorphic, ") ((stalin:tag-onlyp w) "tag only, ") ((stalin:squeezedp w) "squeezed, ") ((stalin:squishedp w) "squished, ") (t "general case, ")) "w" (number-to-string w))) (defun stalin:variable-info (g) (concat (if (stalin:accessedp g) "accessed, " "") (if (stalin:localp g) "local, " "") (if (stalin:globalp g) "global, " "") (if (stalin:hiddenp g) "hidden, " "") (if (stalin:slottedp g) "slotted, " "") (cond ((stalin:localp g) "a") ((stalin:globalp g) "a") ((stalin:slottedp g) "a") (t "")) (cond ((stalin:localp g) (number-to-string g)) ((stalin:globalp g) (number-to-string g)) ((stalin:slottedp g) (number-to-string g)) (t "")) (cond ((stalin:localp g) ", ") ((stalin:globalp g) ", ") ((stalin:slottedp g) ", ") (t "")) "w" (number-to-string (stalin:variable-type-set g)))) (defun stalin:environment-info (e) (concat (if (stalin:environment-has-regionp e) "has region, " "") (cond ((numberp (stalin:environment-allocation e)) (format "allocates on %s, " (stalin:environment-name (stalin:environment-allocation e)))) ((eq (stalin:environment-allocation e) 'STACK) "allocates on the stack, ") ((eq (stalin:environment-allocation e) 'HEAP) "allocates on the heap, ") (t "")) (if (stalin:environment-reentrantp e) "reentrant, " "") (if (stalin:environment-has-environment-levelp e) "has environment level, " "") (if (eq (stalin:environment-unique-call-site e) 'NIL) "" "in lined, ") "f" (number-to-string e))) (defun stalin:goto-variable-or-reference () (interactive) (let ((x/g (stalin:find))) (if (not x/g) (error "Point not on expression or variable")) (if (eq (car x/g) 'expression) (let* ((x (car (cdr x/g))) (k (stalin:expression-kind x))) (if (not (or (eq k 'ACCESS) (eq k 'SET!))) (error "Point not on access or assignment")) (if (not (stalin:lookup-variable (stalin:expression-variable x))) (error "Can't find variable")) (stalin:goto-variable (stalin:expression-variable x))) (let* ((g (car (cdr x/g))) (xs (stalin:findable-references g))) (if (null xs) (error "No findable references")) (stalin:goto-expression (car xs)))))) (defun stalin:goto-next-reference () (interactive) (let ((x/g (stalin:find))) (if (not x/g) (error "Point not on expression or variable")) (if (eq (car x/g) 'expression) (let* ((x (car (cdr x/g))) (k (stalin:expression-kind x))) (if (not (or (eq k 'ACCESS) (eq k 'SET!))) (error "Point not on access or assignment")) (let ((x (stalin:next x (stalin:findable-references (stalin:expression-variable x))))) (if (not x) (error "Last reference")) (stalin:goto-expression x))) (let* ((g (car (cdr x/g))) (xs (stalin:findable-references g))) (if (null xs) (error "No findable references")) (stalin:goto-expression (car xs)))))) (defun stalin:goto-previous-reference () (interactive) (let ((x/g (stalin:find))) (if (not x/g) (error "Point not on expression or variable")) (if (eq (car x/g) 'expression) (let* ((x (car (cdr x/g))) (k (stalin:expression-kind x))) (if (not (or (eq k 'ACCESS) (eq k 'SET!))) (error "Point not on access or assignment")) (let ((x (stalin:previous x (stalin:findable-references (stalin:expression-variable x))))) (if (not x) (error "First reference")) (stalin:goto-expression x))) (let* ((g (car (cdr x/g))) (xs (stalin:findable-references g))) (if (null xs) (error "No findable references")) (stalin:goto-expression (car xs)))))) (defun stalin:display-type () (interactive) (let ((x/g (stalin:find))) (if (not x/g) (error "Point not on expression or variable")) (let ((w (if (eq (car x/g) 'expression) (stalin:expression-type-set (car (cdr x/g))) (stalin:variable-type-set (car (cdr x/g)))))) (stalin:show-type-set w)))) (defun stalin:display-info () (interactive) (let ((x/g (stalin:find))) (if (not x/g) (error "Point not on expression or variable")) (if (eq (car x/g) 'expression) (message (stalin:expression-info (car (cdr x/g)))) (message (stalin:variable-info (car (cdr x/g))))))) (defun stalin:display-type-set-info () (interactive) (let ((x/g (stalin:find))) (if (not x/g) (error "Point not on expression or variable")) (let ((w (if (eq (car x/g) 'expression) (stalin:expression-type-set (car (cdr x/g))) (stalin:variable-type-set (car (cdr x/g)))))) (message (stalin:type-set-info w))))) (defun stalin:display-environment-info () (interactive) (let ((x/g (stalin:find))) (if (not x/g) (error "Point not on expression or variable")) (let ((w (if (eq (car x/g) 'expression) (stalin:expression-type-set (car (cdr x/g))) (stalin:variable-type-set (car (cdr x/g)))))) (if (and (= (length (stalin:type-set-members w)) 1) (eq (stalin:type-kind (car (stalin:type-set-members w))) 'NATIVE-PROCEDURE-TYPE)) (message (stalin:environment-info ;; needs work: Currently only displays info for one of the ;; polyvariant environments. (car (stalin:environments (car (stalin:type-set-members w)))))) (error "Not a native procedure"))))) (defun stalin:goto-first-warning () (interactive) (if (null (nth 5 stalin:*db*)) (error "No warnings")) (setq stalin:*i* 0) (stalin:goto-expression (car (nth stalin:*i* (nth 5 stalin:*db*)))) (message (car (cdr (cdr (nth stalin:*i* (nth 5 stalin:*db*))))))) (defun stalin:goto-next-warning () (interactive) (if (null (nth 5 stalin:*db*)) (error "No warnings")) (if (>= stalin:*i* (- (length (nth 5 stalin:*db*)) 1)) (error "Last warning")) (setq stalin:*i* (+ stalin:*i* 1)) (stalin:goto-expression (car (nth stalin:*i* (nth 5 stalin:*db*)))) (message (car (cdr (cdr (nth stalin:*i* (nth 5 stalin:*db*))))))) (defun stalin:goto-previous-warning () (interactive) (if (null (nth 5 stalin:*db*)) (error "No warnings")) (if (<= stalin:*i* 0) (error "First warning")) (setq stalin:*i* (- stalin:*i* 1)) (stalin:goto-expression (car (nth stalin:*i* (nth 5 stalin:*db*)))) (message (car (cdr (cdr (nth stalin:*i* (nth 5 stalin:*db*))))))) (defun stalin:goto-first-driver () (interactive) (let ((x/g (stalin:find))) (if (not x/g) (error "Point not on expression or variable")) (if (eq (car x/g) 'expression) (let* ((x (car (cdr x/g))) (k (stalin:expression-kind x))) (if (not (or (eq k 'ACCESS) (eq k 'SET!))) (error "Point not on access or assignment")) (if (not (stalin:lookup-variable (stalin:expression-variable x))) (error "Can't find variable")) (stalin:goto-variable (stalin:expression-variable x)) (stalin:goto-first-driver)) (let* ((g (car (cdr x/g))) (xs (stalin:findable-drivers g))) (if (null xs) (error "No findable drivers")) (setq stalin:*xs* xs) (let ((x (car xs))) (stalin:goto-expression x) (stalin:show-type-set (if (eq (stalin:expression-kind x) 'SET!) (stalin:variable-type-set (stalin:expression-variable x)) (stalin:expression-type-set x)))))))) (defun stalin:goto-next-driver () (interactive) (let ((x/g (stalin:find))) (if (or (not x/g) (not (eq (car x/g) 'expression)) (not (member (car (cdr x/g)) stalin:*xs*))) (stalin:goto-first-driver) (let ((x (stalin:next (car (cdr x/g)) stalin:*xs*))) (if (not x) (error "Last driver")) (stalin:goto-expression x) (stalin:show-type-set (stalin:expression-type-set (if (eq (stalin:expression-kind x) 'SET!) (stalin:expression-source x) x))))))) (defun stalin:goto-previous-driver () (interactive) (let ((x/g (stalin:find))) (if (or (not x/g) (not (eq (car x/g) 'expression)) (not (member (car (cdr x/g)) stalin:*xs*))) (stalin:goto-first-driver) (let ((x (stalin:previous (car (cdr x/g)) stalin:*xs*))) (if (not x) (error "First driver")) (stalin:goto-expression x) (stalin:show-type-set (stalin:expression-type-set (if (eq (stalin:expression-kind x) 'SET!) (stalin:expression-source x) x))))))) (add-hook 'find-file-hooks 'stalin:load-database t) (define-key scheme-mode-map "\M-V" 'stalin:goto-variable-or-reference) (define-key scheme-mode-map "\M-N" 'stalin:goto-next-reference) (define-key scheme-mode-map "\M-P" 'stalin:goto-previous-reference) (define-key scheme-mode-map "\M-T" 'stalin:display-type) (define-key scheme-mode-map "\M-I" 'stalin:display-info) (define-key scheme-mode-map "\M-Q" 'stalin:display-type-set-info) (define-key scheme-mode-map "\M-M" 'stalin:display-environment-info) (define-key scheme-mode-map "\M-W" 'stalin:goto-first-warning) (define-key scheme-mode-map "\M-F" 'stalin:goto-next-warning) (define-key scheme-mode-map "\M-B" 'stalin:goto-previous-warning) (define-key scheme-mode-map "\M-D" 'stalin:goto-first-driver) (define-key scheme-mode-map "\M-A" 'stalin:goto-next-driver) (define-key scheme-mode-map "\M-E" 'stalin:goto-previous-driver) ;;; Tam V'Nishlam Shevah L'El Borei Olam stalin-0.11/stalin.10000600017435200151030000007546010463437335012771 0ustar qobiqobi.TH STALIN 1 "August 2006" "0.11" .SH NAME stalin - A global optimizing compiler for Scheme .SH SYNOPSIS .TP .B stalin .RB [\| \-version \|] .br .RB [\| \-I .IR include-directory \|]* .br .RB [\|[\| \-s \||\| -x \||\| -q \||\| -t \|]\|] .br .RB [\|[\| \-treat-all-symbols-as-external \||\| .br .BR \ \ \-do-not-treat-all-symbols-as-external \|]\|] .br .RB [\|[\| \-index-allocated-string-types-by-expression \||\| .br .BR \ \ \-do-not-index-allocated-string-types-by-expression \|]\|] .br .RB [\|[\| \-index-constant-structure-types-by-slot-types \||\| .br .BR \ \ \-do-not-index-constant-structure-types-by-slot-types \|]\|] .br .RB [\|[\| \-index-constant-structure-types-by-expression \||\| .br .BR \ \ \-do-not-index-constant-structure-types-by-expression \|]\|] .br .RB [\|[\| \-index-allocated-structure-types-by-slot-types \||\| .br .BR \ \ \-do-not-index-allocated-structure-types-by-slot-types \|]\|] .br .RB [\|[\| \-index-allocated-structure-types-by-expression \||\| .br .BR \ \ \-do-not-index-allocated-structure-types-by-expression \|]\|] .br .RB [\|[\| \-index-constant-headed-vector-types-by-element-type \||\| .br .BR \ \ \-do-not-index-constant-headed-vector-types-by-element-type \|]\|] .br .RB [\|[\| \-index-constant-headed-vector-types-by-expression \||\| .br .BR \ \ \-do-not-index-constant-headed-vector-types-by-expression \|]\|] .br .RB [\|[\| \-index-allocated-headed-vector-types-by-element-type \||\| .br .BR \ \ \-do-not-index-allocated-headed-vector-types-by-element-type \|]\|] .br .RB [\|[\| \-index-allocated-headed-vector-types-by-expression \||\| .br .BR \ \ \-do-not-index-allocated-headed-vector-types-by-expression \|]\|] .br .RB [\|[\| \-index-constant-nonheaded-vector-types-by-element-type \||\| .br .BR \ \ \-do-not-index-constant-nonheaded-vector-types-by-element-type \|]\|] .br .RB [\|[\| \-index-constant-nonheaded-vector-types-by-expression \||\| .br .BR \ \ \-do-not-index-constant-nonheaded-vector-types-by-expression \|]\|] .br .RB [\|[\| \-index-allocated-nonheaded-vector-types-by-element-type \||\| .br .BR \ \ \-do-not-index-allocated-nonheaded-vector-types-by-element-type \|]\|] .br .RB [\|[\| \-index-allocated-nonheaded-vector-types-by-expression \||\| .br .BR \ \ \-do-not-index-allocated-nonheaded-vector-types-by-expression \|]\|] .br .RB [\|[\| \-no-clone-size-limit \||\| .br .BR \ \ \-clone-size-limit .IR number-of-expressions \|]\|] .br .RB [\| \-split-even-if-no-widening \|] .br .RB [\|[\| \-fully-convert-to-CPS \||\| .br .BR \ \ \-no-escaping-continuations \|]\|] .br .RB [\| \-du \|] .br .RB [\| \-Ob \|] .RB [\| \-Om \|] .RB [\| \-On \|] .RB [\| \-Or \|] .RB [\| \-Ot \|] .br .RB [\| \-d0 \|] .RB [\| \-d1 \|] .RB [\| \-d2 \|] .RB [\| \-d3 \|] .RB [\| \-d4 \|] .RB [\| \-d5 \|] .RB [\| \-d6 \|] .RB [\| \-d7 \|] .br .RB [\| \-closure-conversion-statistics \|] .br .RB [\| \-dc \|] .RB [\| \-dC \|] .RB [\| \-dH \|] .RB [\| \-dg \|] .RB [\| \-dh \|] .br .RB [\| \-d \|] .br .RB [\| \-architecture .IR name \|] .br .RB [\|[\| \-baseline \||\| .br .BR \ \ \-conventional \||\| .br .BR \ \ \-lightweight \|]\|] .br .RB [\|[\| \-immediate-flat \||\| .br .BR \ \ \-indirect-flat \||\| .br .BR \ \ \-immediate-display \||\| .br .BR \ \ \-indirect-display \||\| .br .BR \ \ \-linked \|]\|] .br .RB [\|[\| \-align-strings \||\| \-do-not-align-strings \|]\|] .br .RB [\| \-de \|] .RB [\| \-df \|] .RB [\| \-dG \|] .RB [\| \-di \|] .RB [\| \-dI \|] .RB [\| \-dp \|] .RB [\| \-dP \|] .br .RB [\| \-ds \|] .RB [\| \-dS \|] .RB [\| \-Tmk \|] .br .RB [\| \-no-tail-call-optimization \|] .br .RB [\| \-db \|] .RB [\| \-c \|] .RB [\| \-k \|] .br .RB [\| \-cc .IR C-compiler \|] .br .RB [\| \-copt .IR C-compiler-option \|]* .br .RI [\| pathname \|] .PP Compiles the Scheme source file \fIpathname\fR.sc first into a C file \fIpathname\fR.c and then into an executable image \fIpathname\fR. Also produces a database file \fIpathname\fR.db. The \fIpathname\fR argument is required unless \fB\-version\fR is specified. .SH DESCRIPTION Stalin is an extremely efficient compiler for Scheme. It is designed to be used not as a development tool but rather as a means to generate efficient executable images either for application delivery or for production research runs. In contrast to traditional Scheme implementations, Stalin is a batch-mode compiler. There is no interactive READ-EVAL-PRINT loop. Stalin compiles a single Scheme source file into an executable image (indirectly via C). Running that image has equivalent semantics to loading the Scheme source file into a virgin Scheme interpreter and then terminating its execution. The chief limitation is that it is not possible to LOAD or EVAL new expressions or procedure definitions into a running program after compilation. In return for this limitation, Stalin does substantial global compile-time analysis of the source program under this closed-world assumption and produces executable images that are small, stand-alone, and fast. .PP Stalin incorporates numerous strategies for generating efficient code. Among them, Stalin does global static type analysis using a soft type system that supports recursive union types. Stalin can determine a narrow or even monomorphic type for each source code expression in arbitrary Scheme programs with no type declarations. This allows Stalin to reduce, or often eliminate, run-time type checking and dispatching. Stalin also does low-level representation selection on a per-expression basis. This allows the use of unboxed base machine data representations for all monomorphic types resulting in extremely high-performance numeric code. Stalin also does global static life-time analysis for all allocated data. This allows much temporary allocated storage to be reclaimed without garbage collection. Finally, Stalin has very efficient strategies for compiling closures. Together, these compilation techniques synergistically yield efficient object code. Furthermore, the executable images created by Stalin do not contain (user-defined or library) procedures that aren't called, variables and parameters that aren't used, and expressions that cannot be reached. This encourages a programming style whereby one creates and uses very general library procedures without fear that executable images will suffer from code bloat. .SH OPTIONS .TP .B \-version Prints the version of Stalin and exits immediately. .PP The following options control preprocessing: .TP .B \-I Specifies the directories to search for Scheme include files. This option can be repeated to specify multiple directories. Stalin first searches for include files in the current directory, then each of the directories specified in the command line, and finally in the default installation include directory. .TP .B \-s Includes the macros from the Scheme->C compatibility library. Currently, this defines the WHEN and UNLESS syntax. .TP .B \-x Includes the macros from the Xlib and GL library. Currently, this defines the FOREIGN-FUNCTION and FOREIGN-DEFINE syntax. This implies \fB\-s\fR. .TP .B \-q Includes the macros from the QobiScheme library. Currently, this defines the DEFINE-STRUCTURE syntax, among other things. This implies \fB\-x\fR. .TP .B \-t Includes the macros needed to compile Stalin with itself. This implies \fB\-q\fR. .PP The following options control the precision of flow analysis: .TP .B \-treat-all-symbols-as-external During flow analysis, generate a single abstract external symbol that is shared among all symbols. .TP .B \-do-not-treat-all-symbols-as-external During flow analysis, when processing constant expressions that contain symbols, generate a new abstract internal symbol for each distinct symbol constant in the program. This is the default. .TP .B \-index-allocated-string-types-by-expression During flow analysis, when processing procedure-call expressions that can allocate strings, generate a new abstract string for each such expression. This is the default. .TP .B \-do-not-index-allocated-string-types-by-expression During flow analysis, when processing procedure-call expressions that can allocate strings, generate a single abstract string that is shared among all such expressions. .PP Note that there are no versions of the above options for element type because the element type of a string is always char. Furthermore, there are no versions of the above options for constant expressions because there is always only a single abstract constant string. .TP .B \-index-constant-structure-types-by-slot-types During flow analysis, when processing constant expressions that contain structures, generate a new abstract structure for each set of potential slot types for that structure. .TP .B \-do-not-index-constant-structure-types-by-slot-types During flow analysis, when processing constant expressions that contain structures, generate a single abstract structure that is shared among all sets of potential slot types for that structure. This is the default. .TP .B \-index-constant-structure-types-by-expression During flow analysis, when processing constant expression that contain structures, generate a new abstract structure for each such expression. This is the default. .TP .B \-do-not-index-constant-structure-types-by-expression During flow analysis, when processing constant expressions that contain structures, generate a single abstract structure that is shared among all such expressions. .TP .B \-index-allocated-structure-types-by-slot-types During flow analysis, when processing procedure-call expressions that can allocate structures, generate a new abstract structure for each set of potential slot types for that structure. .TP .B \-do-not-index-allocated-structure-types-by-slot-types During flow analysis, when processing procedure-call expressions that can allocate structures, generate a single abstract structure that is shared among all sets of potential slot types for that structure. This is the default. .TP .B \-index-allocated-structure-types-by-expression During flow analysis, when processing procedure-call expressions that can allocate structures, generate a new abstract structure for each such expression. This is the default. .TP .B \-do-not-index-allocated-structure-types-by-expression During flow analysis, when processing procedure-call expressions that can allocate structures, generate a single abstract structure that is shared among all such expressions. .PP Note that, currently, pairs are the only kind of structure that can appear in constant expressions. This may change in the future, if the reader is extended to support other kinds of structures. .TP .B \-index-constant-headed-vector-types-by-element-type During flow analysis, when processing constant expressions that contain headed vectors, generate a new abstract headed vector for each potential element type for that headed vector. .TP .B \-do-not-index-constant-headed-vector-types-by-element-type During flow analysis, when processing constant expressions that contain headed vectors, generate a single abstract headed vector that is shared among all potential element types for that headed vector. This is the default. .TP .B \-index-constant-headed-vector-types-by-expression During flow analysis, when processing constant expressions that contain headed vectors, generate a new abstract headed vector for each such expression. This is the default. .TP .B \-do-not-index-constant-headed-vector-types-by-expression During flow analysis, when processing constant expressions that contain headed vectors, generate a single abstract headed vector that is shared among all such expressions. .TP .B \-index-allocated-headed-vector-types-by-element-type During flow analysis, when processing procedure-call expressions that can allocate headed vectors, generate a new abstract headed vector for each potential element type for that headed vector. .TP .B \-do-not-index-allocated-headed-vector-types-by-element-type During flow analysis, when processing procedure-call expressions that can allocate headed vectors, generate a single abstract headed vector that is shared among all potential element types for that headed vector. This is the default. .TP .B \-index-allocated-headed-vector-types-by-expression During flow analysis, when processing procedure-call expressions that can allocate headed vectors, generate a new abstract headed vector for each such expression. This is the default. .TP .B \-do-not-index-allocated-headed-vector-types-by-expression During flow analysis, when processing procedure-call expressions that can allocate headed vectors, generate a single abstract headed vector that is shared among all such expressions. .TP .B \-index-constant-nonheaded-vector-types-by-element-type During flow analysis, when processing constant expressions that contain nonheaded vectors, generate a new abstract nonheaded vector for each potential element type for that nonheaded vector. .TP .B \-do-not-index-constant-nonheaded-vector-types-by-element-type During flow analysis, when processing constant expressions that contain nonheaded vectors, generate a single abstract nonheaded vector that is shared among all potential element types for that nonheaded vector. This is the default. .TP .B \-index-constant-nonheaded-vector-types-by-expression During flow analysis, when processing constant expressions that contain nonheaded vectors, generate a new abstract nonheaded vector for each such expression. This is the default. .TP .B \-do-not-index-constant-nonheaded-vector-types-by-expression During flow analysis, when processing constant expressions that contain nonheaded vectors, generate a single abstract nonheaded vector that is shared among all such expressions. .TP .B \-index-allocated-nonheaded-vector-types-by-element-type During flow analysis, when processing procedure-call expressions that can allocate nonheaded vectors, generate a new abstract nonheaded vector for each potential element type for that nonheaded vector. .TP .B \-do-not-index-allocated-nonheaded-vector-types-by-element-type During flow analysis, when processing procedure-call expressions that can allocate nonheaded vectors, generate a single abstract nonheaded vector that is shared among all potential element types for that nonheaded vector. This is the default. .TP .B \-index-allocated-nonheaded-vector-types-by-expression During flow analysis, when processing procedure-call expressions that can allocate nonheaded vectors, generate a new abstract nonheaded vector for each such expression. This is the default. .TP .B \-do-not-index-allocated-nonheaded-vector-types-by-expression During flow analysis, when processing procedure-call expressions that can allocate nonheaded vectors, generate a single abstract nonheaded vector that is shared among all such expressions. .PP Note that, currently, constant expressions cannot contain nonheaded vectors and nonheaded vectors are never allocated by any procedure-call expression. ARGV is the only nonheaded vector. These options are included only for completeness and in case future extensions to the language allow nonheaded vector constants and procedures that allocate nonheaded vectors. .TP .B \-no-clone-size-limit Allow unlimited polyvariance, i.e. make copies of procedures of any size. .TP .B \-clone-size-limit Specify the polyvariance limit, i.e. make copies of procedures that have fewer than this many expressions. Must be a nonnegative integer. Defaults to 80. Specify 0 to disable polyvariance. .TP .B \-split-even-if-no-widening Normally, polyvariance will make a copy of a procedure only if it is called with arguments of different types. Specify this option to make copies of procedures even when they are called with arguments of the same type. This will allow them to be in-lined. .TP .B \-fully-convert-to-CPS Normally, lightweight CPS conversion is applied, converting only those expressions and procedures needed to support escaping continuations. When this option is specified, the program is fully converted to CPS. .TP .B \-no-escaping-continuations Normally, full continuations are supported. When this option is specified, the only continuations that are supported are those that cannot be called after the procedure that created the continuation has returned. .TP .B \-du Normally, after flow analysis, Stalin forces each type set to have at most one structure-type member of a given name, at most one headed-vector-type member, and at most one nonheaded-vector-type member. This option disables this, allowing type sets to have multiple structure-type members of a given name, multiple headed-vector-type members, and multiple nonheaded-vector-type members. Sometimes yields more efficient code and sometimes yields less efficient code. .PP The following options control the amount of run-time error-checking code generated. Note that, independent of the settings of these options, Stalin will always generate code that obeys the semantics of the Scheme language for correct programs. These options only control the level of safety, that is the degree of run-time error checking for incorrect programs. .TP .B \-Ob Specifies that code to check for out-of-bound vector or string subscripts is to be suppressed. If not specified, a run-time error will be issued if a vector or string subscript is out of bounds. If specified, the behavior of programs that have an out-of-bound vector or string subscript is undefined. .TP .B \-Om Specifies that code to check for out-of-memory errors is to be suppressed. If not specified, a run-time error will be issued if sufficient memory cannot be allocated. If specified, the behavior of programs that run out of memory is undefined. .TP .B \-On Specifies that code to check for exact integer overflow is to be suppressed. If not specified, a run-time error will be issued on exact integer overflow. If specified, the behavior of programs that cause exact integer overflow is undefined. Currently, Stalin does not know how to generate overflow checking code so this option must be specified. .TP .B \-Or Specifies that code to check for various run-time file-system errors is to be suppressed. If not specified, a run-time error will be issued when an unsuccessful attempt is made to open or close a file. If specified, the behavior of programs that make such unsuccessful file-access attempts is undefined. .TP .B \-Ot Specifies that code to check that primitive procedures are passed arguments of the correct type is suppressed. If not specified, a run-time error will be issued if a primitive procedure is called with arguments of the wrong type. If specified, the behavior of programs that call a primitive procedure with data of the wrong type is undefined. .PP The following options control the verbosity of the compiler: .TP .B \-d0 Produces a compile-time backtrace upon a compiler error. .TP .B \-d1 Produces commentary during compilation describing what the compiler is doing. .TP .B \-d2 Produces a decorated listing of the source program after flow analysis. .TP .B \-d3 Produces a decorated listing of the source program after equivalent types have been merged. .TP .B \-d4 Produces a call graph of the source program. .TP .B \-d5 Produces a description of all nontrivial native procedures generated. .TP .B \-d6 Produces a list of all expressions and closures that allocate storage along with a description of where that storage is allocated. .TP .B \-d7 Produces a trace of the lightweight closure-conversion process. .TP .B \-closure-conversion-statistics Produces a summary of the closure-conversion statistics. These are automatically processed by the program \fIbcl-to-latex.sc\fR which is run by the \fIbcl-benchmark\fR script (both in the \fI/usr/local/stalin/benchmarks\fR directory) to produce tables II, III, and IV, of the paper \fIFlow-Directed Lightweight Closure Conversion\fR. .PP The following options control the storage management strategy used by compiled code: .TP .B \-dc Disables the use of \fIalloca(3)\fR. Normally, the compiler will use \fIalloca(3)\fR to allocate on the call stack when possible. .TP .B \-dC Disables the use of the Boehm conservative garbage collector. Normally, the compiler will use the Boehm collector to allocate data whose lifetime is not known to be short. Note that the compiler will still use the Boehm collector for some data if it cannot allocate that data on the stack or on a region. .TP .B \-dH Disables the use of regions for allocating data. .TP .B \-dg Generate code to produce diagnostic messages when region segments are allocated and freed. .TP .B \-dh Disables the use of expandable regions and uses fixed-size regions instead. .PP The following options control code generation: .TP .B \-d Specifies that inexact reals are represented as C doubles. Normally, inexact reals are represented as C floats. .TP .B \-architecture Specify the architecture for which to generate code. The default is to generate code for whatever architecture the compiler is run on. Currently, the known architectures are IA32, IA32-align-double, SPARC, SPARCv9, SPARC64, MIPS, Alpha, ARM, M68K, PowerPC, and S390. .TP .B \-baseline Do not perform lightweight closure conversion. Closures are created for all procedures. The user would not normally specify this option. It is only intended to measure the effectiveness of lightweight closure conversion. It is used by the \fIbcl-benchmark\fR script (in the \fI/usr/local/stalin/benchmarks\fR directory) to produce tables II, III, and IV, of the paper \fIFlow-Directed Lightweight Closure Conversion\fR. .TP .B \-conventional Perform a simplified version of lightweight closure conversion that does not rely on interprocedural analysis. Attempts to mimic what `conventional' compilers do (whatever that is). The user would not normally specify this option. It is only intended to measure the effectiveness of lightweight closure conversion. It is used by the \fIbcl-benchmark\fR script (in the \fI/usr/local/stalin/benchmarks\fR directory) to produce tables II, III, and IV of the paper \fIFlow-Directed Lightweight Closure Conversion\fR. .TP .B \-lightweight Perform lightweight closure conversion. This is the default. .TP .B \-immediate-flat Generate code using immediate flat closures. This is not (yet) implemented. .TP .B \-indirect-flat Generate code using indirect flat closures. This is not (yet) implemented. .TP .B \-immediate-display Generate code using immediate display closures. .TP .B \-indirect-display Generate code using indirect display closures. This is not (yet) implemented. .TP .B \-linked Generate code using linked closures. This is the default. .TP .B \-align-strings Align all strings to fixnum alignment. This will not work when strings are returned by foreign procedures that are not aligned to fixnum alignment. It will also not work when ARGV is used, since those strings are also not aligned to fixnum alignment. This is the default. .TP .B \-do-not-align-strings Do not align strings to fixnum alignment. This must be specified when strings returned by foreign procedures are not aligned to fixnum alignment. .TP .B \-de Enables the compiler optimization known as EQ? forgery. Sometimes yields more efficient code and sometimes yields less efficient code. .TP .B \-df Disables the compiler optimization known as forgery. .TP .B \-dG Pass arguments using global variables instead of parameters whenever possible. .TP .B \-di Generate if statements instead of switch statements for dispatching. .TP .B \-dI Enables the use of immediate structures. .TP .B \-dp Enables representation promotion. Promotes some type sets from squeezed to squished or squished to general if this will decrease the amount of run-time branching or dispatching representation coercions. Sometimes yields more efficient code and sometimes yields less efficient code. .TP .B \-dP Enables copy propagation. Sometimes yields more efficient code and sometimes yields less efficient code. .TP .B \-ds Disables the compiler optimization known as squeezing. .TP .B \-dS Disables the compiler optimization known as squishing. .TP .B \-Tmk Enables generation of code that works with the Treadmarks distributed-shared-memory package. Currently this option is not fully implemented and is not known to work. .TP .B \-no-tail-call-optimization Stalin now generates code that is properly tail recursive, by default, in all but the rarest of circumstances. And it can be coerced into generating properly tail-recursive code in all circumstances by appropriate options. Some tail-recursive calls, those where the call site is in-lined in the target, are translated as C goto statements and always result in properly tail-recursive code. The rest are translated as C function calls in tail position. This relies on the C compiler to perform tail-call optimization. \fIgcc(1)\fR versions 2.96 and 3.0.2 (and perhaps other versions) perform tail-call optimization on IA32 (and perhaps other architectures) when \fB-foptimize-sibling-calls\fR is specified. (\fB-O2\fR implies \fB-foptimize-sibling-calls\fR.) \fIgcc(1)\fR only performs tail-call optimization on IA32 in certain circumstances. First, the target and the call site must have compatible signatures. To guarantee compatible signatures, Stalin passes parameters to C functions that are part of tail-recursive loops in global variables. Second, the target must not be declared \fI__attribute__ ((noreturn))\fR. Thus Stalin will not generate a \fI__attribute__ ((noreturn))\fR declaration for a function that is part of a tail-recursive loop even if Stalin knows that it never returns. Third, the function containing the call site cannot call \fIalloca(3)\fR. \fIgcc(1)\fR does no flow analysis. Any call to \fIalloca(3)\fR in the function containing the call site, no matter whether the allocated data escapes, will disable tail-call optimization. Thus Stalin disables stack allocation of data in any procedure in-lined in a procedure that is part of a tail-recursive loop. Finally, the call site cannot contain a reentrant region because reentrant regions are freed upon procedure exit and a tail call would require an intervening region reclamation. Thus Stalin disables allocation of data on a reentrant region in any procedure that is part of a tail-recursive loop. Disabling these optimizations incurs a cost for the benefit of achieving tail-call optimization. If your C compiler does not perform tail-call optimization then you may wish not to pay the cost. The \fB-no-tail-call-optimization\fR option causes Stalin not to take these above four measures to generate code on which \fIgcc(1)\fR would perform tail-call optimization. Even when specifying this option, Stalin still translates calls, where the call site is in-lined in the target, as C goto statements. There are three rare occasions that can still foil proper tail recursion. First, if you specify \fB-dC\fR you may force Stalin to use stack or region allocation even in a tail-call cycle. You can avoid this by not specifying \fB-dC\fR. Second, \fIgcc(1)\fR will not perform tail-call optimization when the function containing the call site applies unary & to a local variable. \fIgcc(1)\fR does no flow analysis. Any application of unary & to a local variable in the function containing the call site, no matter whether the pointer escapes, will disable tail-call optimization. Stalin can generate such uses of unary & when you specify \fB-de\fR or don't specify \fB-df\fR. You can avoid such cases by specifying \fB-df\fR and not specifying \fB-de\fR. Finally, \fIgcc(1)\fR will not perform tail-call optimization when the function containing the call site calls \fIsetjmp(3)\fR. \fIgcc(1)\fR does no flow analysis. Any call to \fIsetjmp(3)\fR in the function containing the call site, no matter whether the \fIjmp_buf\fR escapes, will disable tail-call optimization. Stalin translates certain calls to \fIcall-with-current-continuation\fR as calls to \fIsetjmp(3)\fR. You can force Stalin not to do so by specifying \fB-fully-convert-to-CPS\fR. Stalin will generate a warning in the first and third cases, namely, when tail-call optimization is foiled by reentrant-region allocation or calls to \fIalloca(3)\fR or \fIsetjmp(3)\fR. So you can hold off specifying \fB-fully-convert-to-CPS\fR or refraining from specifying \fB-dC\fR until you see such warnings. No such warning is generated, however, when uses of unary & foil tail-call optimization. So you might want to always specify \fB-df\fR and refrain from specifying \fB-de\fR if you desire your programs to be properly tail recursive. .PP The following options control the C-compilation phase: .TP .B \-db Disables the production of a database file. .TP .B \-c Specifies that the C compiler is not to be called after generating the C code. Normally, the C compiler is called after generating the C code to produce an executable image. This implies \fB\-k\fR. .TP .B \-k Specifies that the generated C file is not to be deleted. Normally, the generated C file is deleted after it is compiled. .TP .B \-cc Specifies the C compiler to use. Defaults to \fIgcc(1)\fR. .TP .B \-copt Specifies the options that the C compiler is to be called with. Normally the C compiler is called without any options. This option can be repeated to allow passing multiple options to the C compiler. .SH FILES .I /usr/local/stalin/include/ default directory for Scheme include files and library archive files .br .I /usr/local/stalin/include/Scheme-to-C-compatibility.sc include file for Scheme->C compatibility .br .I /usr/local/stalin/include/QobiScheme.sc include file for QobiScheme .br .I /usr/local/stalin/include/xlib.sc include file for Xlib FPI .br .I /usr/local/stalin/include/xlib-original.sc include file for Xlib FPI .br .I /usr/local/stalin/include/libstalin.a library archive for Xlib FPI .br .I /usr/local/stalin/include/gc.h include file for the Boehm conservative garbage collector .br .I /usr/local/stalin/include/libgc.a library archive for the Boehm conservative garbage collector .br .I /usr/local/stalin/include/stalin.architectures the known architectures and their code-generation parameters .br .I /usr/local/stalin/include/stalin-architecture-name shell script that determines the architecture on which Stalin is running .br .I /usr/local/stalin/stalin-architecture.c program to construct a new entry for \fIstalin.architectures\fR with the code-generation parameters for the machine on which it is run .br .I /usr/local/stalin/benchmarks directory containing benchmarks from the paper \fIFlow-Directed Lightweight Closure Conversion\fR .br .I /usr/local/stalin/benchmarks/bcl-benchmark script for producing tables II, III, and IV from the paper \fIFlow-Directed Lightweight Closure Conversion\fR .br .I /usr/local/stalin/benchmarks/bcl-to-latex.sc Scheme program for producing tables II, III, and IV from the paper \fIFlow-Directed Lightweight Closure Conversion\fR .SH SEE\ ALSO .BR sci "(2), " scc "(2), " gcc "(1), " ld "(1), " alloca "(3), " setjmp "(3), " gc (8) .SH BUGS Version 0.11 is an alpha release and contains many known bugs. Not everything is fully implemented. Bug mail should be addressed to .I Bug-Stalin@AI.MIT.EDU and not to the author. Please include the version number (0.11) in the message. Periodic announcements of bug fixes, enhancements, and new releases will be made to \fIInfo-Stalin@AI.MIT.EDU\fR. Send mail to .I Info-Stalin-Request@AI.MIT.EDU to be added to the .I Info-Stalin@AI.MIT.EDU mailing list. .SH AUTHOR Jeffrey Mark Siskind .SH THANKS Rob Browning packaged version 0.11 for Debian Linux. stalin-0.11/stalin.sc0000600017435200151030000426423610470513524013234 0ustar qobiqobi;;; LaHaShem HaAretz U'Mloah ;;; Stalin 0.11 - A global optimizing compiler for Scheme ;;; Copyright 1993, 1994, and 1995 University of Toronto. All rights reserved. ;;; Copyright 1996 Technion. All rights reserved. ;;; Copyright 1996 and 1997 University of Vermont. All rights reserved. ;;; Copyright 1997, 1998, 1999, 2000, and 2001 NEC Research Institute, Inc. All ;;; rights reserved. ;;; Copyright 2002, 2003, 2004, 2005, and 2006 Purdue University. All rights ;;; reserved. ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License ;;; as published by the Free Software Foundation; either version 2 ;;; of the License, or (at your option) any later version. ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ;;; written by: ;;; Jeffrey Mark Siskind ;;; School of Electrical and Computer Engineering ;;; Purdue University ;;; Electrical Engineering Building, Room 330 ;;; 465 Northwestern Avenue ;;; West Lafayette IN 47907-2035 USA ;;; voice: 765/496-3197 ;;; fax: 765/494-6440 ;;; qobi@purdue.edu ;;; http://www.ece.purdue.edu/~qobi (include "QobiScheme") ;;; GENSYM (define (gensym string) (string->uninterned-symbol (string-copy string))) (define (no-cursor) #f) (define (no-version) #f) (define (notify format-string . args) ;; conventions: FORMAT-STRING ARGS (let ((string (apply format #f format-string args))) (display string) (newline))) (define (split-into-lines s) ;; conventions: S (let loop ((characters (string->list s)) (lines '(""))) ;; conventions: CHARACTERS LINES (cond ((null? characters) (reverse lines)) ((char=? (first characters) #\newline) (loop (rest characters) (cons "" lines))) (else (loop (rest characters) (cons (string-append (first lines) (string (first characters))) (rest lines))))))) (define (notify-pp format-string . args) ;; conventions: FORMAT-STRING ARGS (let ((pretty? (write-pretty))) ;; conventions: PRETTY? (set-write-pretty! #t) (apply format #t format-string args) (set-write-pretty! pretty?)) (newline)) (define (notify-pp3 format-string . args) ;; conventions: FORMAT-STRING ARGS (let ((level (write-level)) (pretty? (write-pretty))) ;; conventions: LEVEL PRETTY? (set-write-level! 3) (set-write-pretty! #t) (apply format #t format-string args) (set-write-level! level) (set-write-pretty! pretty?)) (newline)) (define (terminate) (exit -1)) ;;; Structure definitions (define-structure s-expression ;; The slots EXPANSION and MACROEXPAND-BODY are just for efficiency. version ;version cursor ;cursor pathname ;string #f line-position ;integer character-position ;integer character-position-within-line ;integer comments ;strings expansion ;s #f macroexpand-body ;s #f datum) ;q (define-structure program-point before? ;#t #f expression) ;e (define-structure expression kind ;symbol version ;version cursor ;cursor pathname ;string #f line-position ;integer character-position ;integer character-position-within-line ;integer index ;i link ;x #t #f environment ;e #f type-set ;w parent ;x #f constant ;q lambda-environment ;e parameters ;(union null g (pair g ^2)) body ;x #f variable ;g source ;x antecedent ;x consequent ;x alternate ;x callee ;x arguments ;xs original-expression ;x #f result ;r type-allocation-alist ;(list* u-(e|'stack|'heap)) continuation-type ;continuation-type #f string-type ;string-type #f structure-types ;structure-types headed-vector-types ;headed-vector-types nonheaded-vector-types ;nonheaded-vector-types booleans) (define-structure result kind ;symbol environment ;e type-set ;w c ;c l1 ;c l2 ;c l0) ;c (define-structure internal-symbol-type name ;symbol index ;i use-count ;integer types-and-type-sets-that-directly-point-to ;u/ws booleans) (define-structure external-symbol-type displaced-string-type ;string-type link ;external-symbol-type index ;i use-count ;integer types-and-type-sets-that-directly-point-to ;u/ws booleans) (define-structure primitive-procedure-type name ;symbol arguments ;(list* object) index ;i use-count ;integer types-and-type-sets-that-directly-point-to ;u/ws booleans) (define-structure native-procedure-type call-site-environment-alist ;(list* (union y #f)-e) narrow-prototype ;e #f index ;i use-count ;integer types-and-type-sets-that-directly-point-to ;u/ws booleans) (define-structure foreign-procedure-type name ;string ;; The next entry is somewhat misnamed because it is not a list of variables. parameters ;fs ;; The next entry is somewhat misnamed because it is not a result. result ;f include ;string #f index ;i use-count ;integer types-and-type-sets-that-directly-point-to ;u/ws booleans) (define-structure continuation-type allocating-expression ;x #f index ;i use-count ;integer call-sites ;ys types-and-type-sets-that-directly-point-to ;u/ws booleans) (define-structure string-type allocating-expressions ;(list+ (union x #f)) link ;string-type index ;i use-count ;integer types-and-type-sets-that-directly-point-to ;u/ws external-symbol-type ;external-symbol-type #f booleans) (define-structure structure-type name ;symbol slots ;ws allocating-expressions ;xs link ;structure-type index ;i use-count ;integer types-and-type-sets-that-directly-point-to ;u/ws structure-ref-accessed? ;(list* (union #t #f)) booleans) (define-structure headed-vector-type element ;w allocating-expressions ;xs link ;headed-vector-type index ;i use-count ;integer types-and-type-sets-that-directly-point-to ;u/ws displaced-vector-type ;displaced-vector-type #f booleans) (define-structure nonheaded-vector-type element ;w allocating-expressions ;(list+ (union x #f)) link ;nonheaded-vector-type index ;i use-count ;integer types-and-type-sets-that-directly-point-to ;u/ws displaced-vector-type ;displaced-vector-type #f booleans) (define-structure displaced-vector-type displaced-vector-type ;vector-type link ;displaced-vector-type index ;i use-count ;integer types-and-type-sets-that-directly-point-to ;u/ws booleans) (define-structure red-black-tree-node type key left right red?) (define-structure type-set location ;x g u #f red-black-tree-node ;#f red-black-tree-node link ;w minimal-alignment ;integer index ;i booleans) (define-structure variable version ;version cursor ;cursor pathname ;string #f line-position ;integer character-position ;integer character-position-within-line ;integer index ;i name ;symbol environment ;e type-set ;w accesses ;xs assignments ;xs references ;xs booleans) (define-structure environment ;; needs work: The following comment is out of date. ;; The slots QUICK-PARENT, PARENT-PARAMETER, PARENT-SLOT, ANCESTORS, ;; DESCENDENTS, and IN-LINED-ENVIRONMENTS, inter alia, are just for ;; efficiency. index ;i expression ;x name ;string split ;#t #f 'never call-sites ;(list* (union y #f)) allocation ;e 'stack 'heap distance-from-root ;integer free-variables ;gs quick-parent ;e #f parent-parameter ;e #f parent-slot ;e #f ancestors ;es descendents ;es properly-in-lined-environments ;es narrow-prototype ;e narrow-clones ;es wide-prototype ;e direct-tail-callers ;es direct-non-tail-callers ;es direct-tail-callees ;es direct-non-tail-callees ;es blocked-environments ;es expressions ;xs continuation-calls ;xs escaping-types ;us non-self-tail-call-sites ;ys booleans) (define-structure call-site expression ;x offsets) ;(list* symbol) ;;; GENSYM ;;; Global variables (define *types-frozen?* #f) (define *during-closure-conversion?* #f) (define *again?* #f) (define (unused) 'unused) (define (unspecified) 'unspecified) ;;; S-Expression creation (define (create-s-expression pathname line-position character-position character-position-within-line comments datum) (make-s-expression (no-version) (no-cursor) pathname line-position character-position character-position-within-line comments #f #f datum)) (define (create-anonymous-s-expression datum) (create-s-expression #f (unused) (unused) (unused) '() datum)) (define (create-october-s-expression version cursor datum) (make-s-expression version cursor #f #f #f #f '() #f #f datum)) ;;; Expression creation (define *xi* #f) (define *xs* #f) (define *calls* #f) (define *accesses* #f) (define *assignments* #f) (define *references* #f) (define *x* #f) (define *x1* #f) (define (initialize-expressions!) (set! *xi* 0) (set! *xs* '()) (set! *calls* '()) (set! *accesses* '()) (set! *assignments* '()) (set! *references* '()) (set! *x1* #f)) (define (create-expression kind s/x q) (let ((x (cond ((s-expression? s/x) (make-expression kind (s-expression-version s/x) (s-expression-cursor s/x) (s-expression-pathname s/x) (s-expression-line-position s/x) (s-expression-character-position s/x) (s-expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) q (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0)) ((expression? s/x) (make-expression kind (expression-version s/x) (expression-cursor s/x) (expression-pathname s/x) (expression-line-position s/x) (expression-character-position s/x) (expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) q (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) s/x (unspecified) '() #f #f '() '() '() 0)) (else (make-expression kind (no-version) (no-cursor) #f #f #f #f *xi* #f (unspecified) (unspecified) (unspecified) q (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0))))) (set! *xi* (+ *xi* 1)) (set! *xs* (cons x *xs*)) x)) (define (create-call-expression s/x callee arguments) (let ((x (cond ((s-expression? s/x) (make-expression 'call (s-expression-version s/x) (s-expression-cursor s/x) (s-expression-pathname s/x) (s-expression-line-position s/x) (s-expression-character-position s/x) (s-expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) callee arguments #f (unspecified) '() #f #f '() '() '() 0)) ((expression? s/x) (make-expression 'call (expression-version s/x) (expression-cursor s/x) (expression-pathname s/x) (expression-line-position s/x) (expression-character-position s/x) (expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) callee arguments s/x (unspecified) '() #f #f '() '() '() 0)) (else (make-expression 'call (no-version) (no-cursor) #f #f #f #f *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) callee arguments #f (unspecified) '() #f #f '() '() '() 0))))) (set! *xi* (+ *xi* 1)) (set! *xs* (cons x *xs*)) (set! *calls* (cons x *calls*)) x)) (define (create-converted-call-expression s/x callee arguments) (let ((x (cond ((s-expression? s/x) (make-expression 'converted-call (s-expression-version s/x) (s-expression-cursor s/x) (s-expression-pathname s/x) (s-expression-line-position s/x) (s-expression-character-position s/x) (s-expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) callee arguments #f (unspecified) '() #f #f '() '() '() 0)) ((expression? s/x) (make-expression 'converted-call (expression-version s/x) (expression-cursor s/x) (expression-pathname s/x) (expression-line-position s/x) (expression-character-position s/x) (expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) callee arguments s/x (unspecified) '() #f #f '() '() '() 0)) (else (make-expression 'converted-call (no-version) (no-cursor) #f #f #f #f *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) (unused) callee arguments #f (unspecified) '() #f #f '() '() '() 0))))) (set! *xi* (+ *xi* 1)) (set! *xs* (cons x *xs*)) (set! *calls* (cons x *calls*)) x)) (define (create-access-expression s/x variable) (let ((x (cond ((s-expression? s/x) (make-expression 'access (s-expression-version s/x) (s-expression-cursor s/x) (s-expression-pathname s/x) (s-expression-line-position s/x) (s-expression-character-position s/x) (s-expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) variable (unused) (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0)) ((expression? s/x) (make-expression 'access (expression-version s/x) (expression-cursor s/x) (expression-pathname s/x) (expression-line-position s/x) (expression-character-position s/x) (expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) variable (unused) (unused) (unused) (unused) (unused) (unused) s/x (unspecified) '() #f #f '() '() '() 0)) (else (make-expression 'access (no-version) (no-cursor) #f #f #f #f *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) variable (unused) (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0))))) (set! *xi* (+ *xi* 1)) (set! *xs* (cons x *xs*)) (set! *accesses* (cons x *accesses*)) (set! *references* (cons x *references*)) x)) (define (create-lambda-expression s/x lambda-environment parameters expression) (let ((x (cond ((s-expression? s/x) (make-expression 'lambda (s-expression-version s/x) (s-expression-cursor s/x) (s-expression-pathname s/x) (s-expression-line-position s/x) (s-expression-character-position s/x) (s-expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) lambda-environment parameters expression (unused) (unused) (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0)) ((expression? s/x) (make-expression 'lambda (expression-version s/x) (expression-cursor s/x) (expression-pathname s/x) (expression-line-position s/x) (expression-character-position s/x) (expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) lambda-environment parameters expression (unused) (unused) (unused) (unused) (unused) (unused) (unused) s/x (unspecified) '() #f #f '() '() '() 0)) (else (make-expression 'lambda (no-version) (no-cursor) #f #f #f #f *xi* #f (unspecified) (unspecified) (unspecified) (unused) lambda-environment parameters expression (unused) (unused) (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0))))) (set-environment-expression! lambda-environment x) (set! *xi* (+ *xi* 1)) (set! *xs* (cons x *xs*)) x)) (define (create-converted-lambda-expression s/x lambda-environment parameters expression) (let ((x (cond ((s-expression? s/x) (make-expression 'converted-lambda (s-expression-version s/x) (s-expression-cursor s/x) (s-expression-pathname s/x) (s-expression-line-position s/x) (s-expression-character-position s/x) (s-expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) lambda-environment parameters expression (unused) (unused) (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0)) ((expression? s/x) (make-expression 'converted-lambda (expression-version s/x) (expression-cursor s/x) (expression-pathname s/x) (expression-line-position s/x) (expression-character-position s/x) (expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) lambda-environment parameters expression (unused) (unused) (unused) (unused) (unused) (unused) (unused) s/x (unspecified) '() #f #f '() '() '() 0)) (else (make-expression 'converted-lambda (no-version) (no-cursor) #f #f #f #f *xi* #f (unspecified) (unspecified) (unspecified) (unused) lambda-environment parameters expression (unused) (unused) (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0))))) (set-environment-expression! lambda-environment x) (set! *xi* (+ *xi* 1)) (set! *xs* (cons x *xs*)) x)) (define (create-converted-continuation-expression s/x lambda-environment parameters expression) (let ((x (cond ((s-expression? s/x) (make-expression 'converted-continuation (s-expression-version s/x) (s-expression-cursor s/x) (s-expression-pathname s/x) (s-expression-line-position s/x) (s-expression-character-position s/x) (s-expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) lambda-environment parameters expression (unused) (unused) (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0)) ((expression? s/x) (make-expression 'converted-continuation (expression-version s/x) (expression-cursor s/x) (expression-pathname s/x) (expression-line-position s/x) (expression-character-position s/x) (expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) lambda-environment parameters expression (unused) (unused) (unused) (unused) (unused) (unused) (unused) s/x (unspecified) '() #f #f '() '() '() 0)) (else (make-expression 'converted-continuation (no-version) (no-cursor) #f #f #f #f *xi* #f (unspecified) (unspecified) (unspecified) (unused) lambda-environment parameters expression (unused) (unused) (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0))))) (set-environment-expression! lambda-environment x) (set! *xi* (+ *xi* 1)) (set! *xs* (cons x *xs*)) x)) (define (create-set!-expression s/x variable source) (let ((x (cond ((s-expression? s/x) (make-expression 'set! (s-expression-version s/x) (s-expression-cursor s/x) (s-expression-pathname s/x) (s-expression-line-position s/x) (s-expression-character-position s/x) (s-expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) variable source (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0)) ((expression? s/x) (make-expression 'set! (expression-version s/x) (expression-cursor s/x) (expression-pathname s/x) (expression-line-position s/x) (expression-character-position s/x) (expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) variable source (unused) (unused) (unused) (unused) (unused) s/x (unspecified) '() #f #f '() '() '() 0)) (else (make-expression 'set! (no-version) (no-cursor) #f #f #f #f *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) variable source (unused) (unused) (unused) (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0))))) (set! *xi* (+ *xi* 1)) (set! *xs* (cons x *xs*)) (set! *assignments* (cons x *assignments*)) (set! *references* (cons x *references*)) x)) (define (create-if-expression s/x antecedent consequent alternate) (let ((x (cond ((s-expression? s/x) (make-expression 'if (s-expression-version s/x) (s-expression-cursor s/x) (s-expression-pathname s/x) (s-expression-line-position s/x) (s-expression-character-position s/x) (s-expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) (unused) (unused) antecedent consequent alternate (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0)) ((expression? s/x) (make-expression 'if (expression-version s/x) (expression-cursor s/x) (expression-pathname s/x) (expression-line-position s/x) (expression-character-position s/x) (expression-character-position-within-line s/x) *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) (unused) (unused) antecedent consequent alternate (unused) (unused) s/x (unspecified) '() #f #f '() '() '() 0)) (else (make-expression 'if (no-version) (no-cursor) #f #f #f #f *xi* #f (unspecified) (unspecified) (unspecified) (unused) (unused) (unused) (unused) (unused) (unused) antecedent consequent alternate (unused) (unused) #f (unspecified) '() #f #f '() '() '() 0))))) (set! *xi* (+ *xi* 1)) (set! *xs* (cons x *xs*)) x)) ;;; Expression properties (define (expression-reached? x) (not (zero? (bit-and (expression-booleans x) 64)))) (define (set-expression-reached?! x p?) (unless (boolean? p?) (fuck-up)) (set-expression-booleans! x (if p? (bit-or (expression-booleans x) 64) (bit-and (expression-booleans x) (bit-not 64))))) (define (expression-inferred? x) (not (zero? (bit-and (expression-booleans x) 32)))) (define (set-expression-inferred?! x p?) (unless (boolean? p?) (fuck-up)) (set-expression-booleans! x (if p? (bit-or (expression-booleans x) 32) (bit-and (expression-booleans x) (bit-not 32))))) (define (expression-accessed? x) (not (zero? (bit-and (expression-booleans x) 16)))) (define (set-expression-accessed?! x p?) (unless (boolean? p?) (fuck-up)) (set-expression-booleans! x (if p? (bit-or (expression-booleans x) 16) (bit-and (expression-booleans x) (bit-not 16))))) (define (expression-needs-conversion-to-CPS? x) (not (zero? (bit-and (expression-booleans x) 8)))) (define (set-expression-needs-conversion-to-CPS?! x p?) (unless (boolean? p?) (fuck-up)) (set-expression-booleans! x (if p? (bit-or (expression-booleans x) 8) (bit-and (expression-booleans x) (bit-not 8))))) (define (expression-needs-stop-conversion-to-CPS? x) (not (zero? (bit-and (expression-booleans x) 4)))) (define (set-expression-needs-stop-conversion-to-CPS?! x p?) (unless (boolean? p?) (fuck-up)) (set-expression-booleans! x (if p? (bit-or (expression-booleans x) 4) (bit-and (expression-booleans x) (bit-not 4))))) (define (expression-continues? x) (not (zero? (bit-and (expression-booleans x) 2)))) (define (set-expression-continues?! x p?) (unless (boolean? p?) (fuck-up)) (set-expression-booleans! x (if p? (bit-or (expression-booleans x) 2) (bit-and (expression-booleans x) (bit-not 2))))) (define (expression-returns? x) (not (zero? (bit-and (expression-booleans x) 1)))) (define (set-expression-returns?! x p?) (unless (boolean? p?) (fuck-up)) (set-expression-booleans! x (if p? (bit-or (expression-booleans x) 1) (bit-and (expression-booleans x) (bit-not 1))))) (define (reached? x) (if *during-closure-conversion?* (case *closure-conversion-method* ((baseline conventional) #t) ((lightweight) (expression-reached? x)) (else (fuck-up))) (expression-reached? x))) (define (executed? x) (if *during-closure-conversion?* (case *closure-conversion-method* ((baseline conventional) #t) ((lightweight) (case (expression-kind x) ((set!) (expression-returns? (expression-source x))) ((call converted-call) (and (expression-returns? (expression-callee x)) (every expression-returns? (expression-arguments x)))) (else (fuck-up)))) (else (fuck-up))) (case (expression-kind x) ((set!) (expression-returns? (expression-source x))) ((call converted-call) (and (expression-returns? (expression-callee x)) (every expression-returns? (expression-arguments x)))) (else (fuck-up))))) (define (free-reference? x) (and (not (eq? (expression-environment x) (variable-environment (expression-variable x)))) (nontrivial-reference? x))) (define (nontrivial-reference? x) ;; needs work: This is not memoized but should be. (case (expression-kind x) ((access) (and (reached? x) (not (fictitious? (expression-type-set x))))) ((set!) (and (executed? x) (accessed? (expression-variable x)) (not (fictitious? (variable-type-set (expression-variable x)))) (not (hidden? (expression-variable x))) ;; This implies that the source returns. (not (void? (expression-type-set (expression-source x)))))) (else (fuck-up)))) (define (must-be-self-tail-call? x) (and (or (eq? (expression-kind x) 'call) (eq? (expression-kind x) 'converted-call)) (must-be? (lambda (u) (or (not ((compatible-call? x) u)) (and (native-procedure-type? u) (let ((e (callee-environment u (create-call-site x)))) ;; This assumes that the IN-LINED-IN? relation is reflexive. (and (tail-call? (create-call-site x) e) (in-lined-in? x e)))))) (expression-type-set (expression-callee x))))) ;;; Expression functions (define (continuation-argument x) (unless (eq? (expression-kind x) 'converted-call) (fuck-up)) (first (expression-arguments x))) (define (first-argument x) (case (expression-kind x) ((call) (first (expression-arguments x))) ((converted-call) (second (expression-arguments x))) (else (fuck-up)))) (define (second-argument x) (case (expression-kind x) ((call) (second (expression-arguments x))) ((converted-call) (third (expression-arguments x))) (else (fuck-up)))) (define (third-argument x) (case (expression-kind x) ((call) (third (expression-arguments x))) ((converted-call) (fourth (expression-arguments x))) (else (fuck-up)))) ;;; Expression environment relations (define (tail-call? y e) ;; needs work: This is not memoized but should be. ;; needs work: A SET! to a non-accessed, fictitious, or hidden variable can be ;; a tail call if its source is a tail call. ;; note: The argument E is needed to prevent infinite recursion on in-lined ;; self tail calls. ;; APPLY and CALL-WITH-CURRENT-CONTINUATION tail call their first argument if ;; they themselves are tail calls. Implicit continuation calls are always ;; tail calls. FORK does not tail call its first or second argument and MUTEX ;; does not tail call its first argument. (or (continuation-argument-call-site? y) (and (or (explicit-call-site? y) (and (first-argument-call-site? y) ;; needs work: It is conceivable that a first-argument call site ;; be called both by either APPLY or ;; CALL-WITH-CURRENT-CONTINUATION and by either FORK or ;; MUTEX. In this situation, the former could be tail ;; calls while the latter could not be. The current ;; representation of call sites cannot distinguish ;; between argument call sites of different primitive ;; procedures. So we err on the safe side and make such ;; call sites non tail. (not (can-be? (lambda (u) (or ((primitive-procedure-type-named? 'fork) u) ((primitive-procedure-type-named? 'mutex) u))) (expression-type-set (expression-callee (call-site-expression y))))))) (let ((x (call-site-expression y))) (or (and (eq? (expression-kind (expression-parent x)) 'if) (or (eq? x (expression-consequent (expression-parent x))) (eq? x (expression-alternate (expression-parent x)))) (tail-call? (create-call-site (expression-parent x)) e)) (and (or (eq? (expression-kind (expression-parent x)) 'lambda) (eq? (expression-kind (expression-parent x)) 'converted-lambda) (eq? (expression-kind (expression-parent x)) 'converted-continuation)) (or (eq? (expression-environment x) e) (not (unique-call-site? (expression-environment x))) (tail-call? (unique-call-site (expression-environment x)) e)))))))) ;;; Result creation (define (create-accessor-result type-set c) (make-result 'accessor (unused) type-set c (unused) (unused) (unused))) (define (create-discard-result) (make-result 'discard (unused) (unused) (unused) (unused) (unused) (unused))) (define (create-return-result environment type-set) (make-result 'return environment type-set (c:r environment) (unused) (unused) (unused))) (define (create-antecedent-result type-set l1 l2 l0) (make-result 'antecedent (unused) type-set (unused) l1 l2 l0)) ;;; Result properties (define (accessor? r) (eq? (result-kind r) 'accessor)) (define (return? r) (eq? (result-kind r) 'return)) (define (discard? r) (eq? (result-kind r) 'discard)) (define (antecedent? r) (eq? (result-kind r) 'antecedent)) ;;; Type creation (define *ui* #f) (define #f) (define *null-type-used?* #f) (define *null-type-use-count* #f) (define #f) (define *true-type-used?* #f) (define *true-type-use-count* #f) (define #f) (define *false-type-used?* #f) (define *false-type-use-count* #f) (define #f) (define *char-type-used?* #f) (define *char-type-use-count* #f) (define #f) (define *fixnum-type-used?* #f) (define *fixnum-type-use-count* #f) (define #f) (define *flonum-type-used?* #f) (define *flonum-type-use-count* #f) (define #f) (define *rectangular-type-used?* #f) (define *rectangular-type-use-count* #f) (define #f) (define *input-port-type-used?* #f) (define *input-port-type-use-count* #f) (define #f) (define *output-port-type-used?* #f) (define *output-port-type-use-count* #f) (define #f) (define *eof-object-type-used?* #f) (define *eof-object-type-use-count* #f) (define #f) (define *pointer-type-used?* #f) (define *pointer-type-use-count* #f) (define *internal-symbol-types* #f) (define *external-symbol-types* #f) (define *primitive-procedure-types* #f) (define *native-procedure-types* #f) (define *foreign-procedure-types* #f) (define *continuation-types* #f) (define *string-types* #f) (define #f) (define *structure-types* #f) (define *headed-vector-types* #f) (define *nonheaded-vector-types* #f) (define #f) (define *displaced-vector-types* #f) (define (initialize-types!) (set! *ui* 11) (set! *native-procedure-types* '())) (define (create-internal-symbol-type name) (when *types-frozen?* (fuck-up)) (let* ((u (make-internal-symbol-type name *ui* 0 (unspecified) 0))) (set! *ui* (+ *ui* 1)) (set! *internal-symbol-types* (cons u *internal-symbol-types*)) u)) (define ( v) ;; conventions: V (when *types-frozen?* (fuck-up)) (or (find-if (internal-symbol-type-named? v) *internal-symbol-types*) (create-internal-symbol-type v))) (define (create-external-symbol-type displaced-string-type) (when *types-frozen?* (fuck-up)) (let* ((u (make-external-symbol-type displaced-string-type (unspecified) *ui* 0 (unspecified) 0))) (set-external-symbol-type-link! u u) (set! *ui* (+ *ui* 1)) (set! *external-symbol-types* (cons u *external-symbol-types*)) (set-string-type-external-symbol-type! displaced-string-type u) u)) (define ( u) (when *types-frozen?* (fuck-up)) (or (string-type-external-symbol-type u) (create-external-symbol-type u))) (define (create-primitive-procedure-type name arguments) (when *types-frozen?* (fuck-up)) (let* ((u (make-primitive-procedure-type name arguments *ui* 0 (unspecified) 0))) (set! *ui* (+ *ui* 1)) (set! *primitive-procedure-types* (cons u *primitive-procedure-types*)) u)) (define ( v vs) ;; conventions: V (when *types-frozen?* (fuck-up)) (or (find-if (lambda (u) (and ((primitive-procedure-type-named? v) u) (equal? (primitive-procedure-type-arguments u) vs))) *primitive-procedure-types*) (create-primitive-procedure-type v vs))) (define (create-native-procedure-type e) (when *types-frozen?* (fuck-up)) (unless (eq? e (narrow-prototype e)) (fuck-up)) (let* ((u (make-native-procedure-type '() e *ui* 0 (unspecified) 0))) (set-native-procedure-type-atomic?! u #t) (set-native-procedure-type-fictitious?! u #t) (set! *ui* (+ *ui* 1)) (set! *native-procedure-types* (cons u *native-procedure-types*)) u)) (define ( e) (when *types-frozen?* (fuck-up)) (let ((e (narrow-prototype e))) (or (find-if (lambda (u) (eq? e (narrow-prototype u))) *native-procedure-types*) (create-native-procedure-type e)))) (define (create-foreign-procedure-type name parameters result include) (when *types-frozen?* (fuck-up)) (let* ((u (make-foreign-procedure-type name parameters result include *ui* 0 (unspecified) 0))) (set! *ui* (+ *ui* 1)) (set! *foreign-procedure-types* (cons u *foreign-procedure-types*)) u)) (define ( v fs f v0) ;; conventions: V V0 (when *types-frozen?* (fuck-up)) (or (find-if (lambda (u) (string=? (foreign-procedure-type-name u) v)) *foreign-procedure-types*) (create-foreign-procedure-type v fs f v0))) (define (create-continuation-type allocating-expression) (when *types-frozen?* (fuck-up)) (let* ((u (make-continuation-type allocating-expression *ui* 0 (unspecified) (unspecified) 0))) (set-continuation-type-fictitious?! u #t) (set! *ui* (+ *ui* 1)) (set! *continuation-types* (cons u *continuation-types*)) (when allocating-expression (set-expression-continuation-type! allocating-expression u)) u)) (define ( x) ;; This and CREATE-ANONYMOUS-TYPE-SET are the only type and type-set creators ;; that can be called when types are frozen. (or (expression-continuation-type x) (create-continuation-type x))) (define (create-string-type allocating-expression) (when *types-frozen?* (fuck-up)) (let* ((u (make-string-type '() (unspecified) *ui* 0 (unspecified) #f 0))) (set-string-type-link! u u) (set! *ui* (+ *ui* 1)) (set! *string-types* (cons u *string-types*)) (when allocating-expression (set-expression-string-type! allocating-expression u)) u)) (define ( x) (when *types-frozen?* (fuck-up)) (let ((u (or (if x (if *index-allocated-string-types-by-expression?* (expression-string-type x) (and (not (null? *string-types*)) (first *string-types*))) ) (create-string-type x)))) (unless (memq x (string-type-allocating-expressions u)) (set-string-type-allocating-expressions! u (cons x (string-type-allocating-expressions u)))) u)) (define (create-structure-type name j allocating-expression) ;; conventions: J (when *types-frozen?* (fuck-up)) (let* ((u (make-structure-type name (unspecified) '() (unspecified) *ui* 0 (unspecified) (map-n (lambda (i) #f) j) 0))) (set-structure-type-immediate?! u *immediate-structures?*) (set-structure-type-atomic?! u #t) (set-structure-type-slots! u (map-n (lambda (i) (create-type-set u)) j)) (set-structure-type-link! u u) (set! *ui* (+ *ui* 1)) (set! *structure-types* (cons u *structure-types*)) (set-expression-structure-types! allocating-expression (cons u (expression-structure-types allocating-expression))) u)) (define ( v j uss x) ;; conventions: V J (when *types-frozen?* (fuck-up)) (let ((u (or (find-if (lambda (u) (and ((structure-type-named? v) u) (or (not (if (eq? (expression-kind x) 'pair-constant) *index-constant-structure-types-by-slot-types?* *index-allocated-structure-types-by-slot-types?*)) (every (lambda (us w) (every (lambda (u) (member? u w)) us)) uss (structure-type-slots u))))) (if (if (eq? (expression-kind x) 'pair-constant) *index-constant-structure-types-by-expression?* *index-allocated-structure-types-by-expression?*) (expression-structure-types x) *structure-types*)) (create-structure-type v j x)))) (unless (memq x (structure-type-allocating-expressions u)) (set-structure-type-allocating-expressions! u (cons x (structure-type-allocating-expressions u)))) (for-each (lambda (us w) (for-each (lambda (u) (assert-member! u w)) us)) uss (structure-type-slots u)) u)) (define ( us1 us2 x) ( 'pair 2 (list us1 us2) x)) (define ( uss us x) (cond ((null? uss) (fuck-up)) ((null? (rest uss)) ( (first uss) us x)) (else ( (first uss) (list ( (rest uss) us x)) x)))) (define (create-headed-vector-type allocating-expression) (when *types-frozen?* (fuck-up)) (let* ((u (make-headed-vector-type (unspecified) '() (unspecified) *ui* 0 (unspecified) #f 0))) (set-headed-vector-type-atomic?! u #t) (set-headed-vector-type-element! u (create-type-set u)) (set-headed-vector-type-link! u u) (set! *ui* (+ *ui* 1)) (set! *headed-vector-types* (cons u *headed-vector-types*)) (set-expression-headed-vector-types! allocating-expression (cons u (expression-headed-vector-types allocating-expression))) u)) (define ( us x) (when *types-frozen?* (fuck-up)) (let ((u (or (find-if (lambda (u) (or (not (if (eq? (expression-kind x) 'vector-constant) *index-constant-headed-vector-types-by-element-type?* *index-allocated-headed-vector-types-by-element-type?*)) (every (lambda (u1) (member? u1 (headed-vector-type-element u))) us))) (if (if (eq? (expression-kind x) 'vector-constant) *index-constant-headed-vector-types-by-expression?* *index-allocated-headed-vector-types-by-expression?*) (expression-headed-vector-types x) *headed-vector-types*)) (create-headed-vector-type x)))) (unless (memq x (headed-vector-type-allocating-expressions u)) (set-headed-vector-type-allocating-expressions! u (cons x (headed-vector-type-allocating-expressions u)))) (for-each (lambda (u1) (assert-member! u1 (headed-vector-type-element u))) us) u)) (define (create-nonheaded-vector-type allocating-expression) (when *types-frozen?* (fuck-up)) (let* ((u (make-nonheaded-vector-type (unspecified) '() (unspecified) *ui* 0 (unspecified) #f 0))) (set-nonheaded-vector-type-atomic?! u #t) (set-nonheaded-vector-type-element! u (create-type-set u)) (set-nonheaded-vector-type-link! u u) (set! *ui* (+ *ui* 1)) (set! *nonheaded-vector-types* (cons u *nonheaded-vector-types*)) (when allocating-expression (set-expression-nonheaded-vector-types! allocating-expression (cons u (expression-nonheaded-vector-types allocating-expression)))) u)) (define ( us x) (when *types-frozen?* (fuck-up)) (let ((u (or (if x (find-if (lambda (u) (or (not (if (eq? (expression-kind x) 'vector-constant) *index-constant-nonheaded-vector-types-by-element-type?* *index-allocated-nonheaded-vector-types-by-element-type?*)) (every (lambda (u1) (member? u1 (nonheaded-vector-type-element u))) us))) (if (if (eq? (expression-kind x) 'vector-constant) *index-constant-nonheaded-vector-types-by-expression?* *index-allocated-nonheaded-vector-types-by-expression?*) (expression-nonheaded-vector-types x) *nonheaded-vector-types*)) ) (create-nonheaded-vector-type x)))) (unless (memq x (nonheaded-vector-type-allocating-expressions u)) (set-nonheaded-vector-type-allocating-expressions! u (cons x (nonheaded-vector-type-allocating-expressions u)))) (for-each (lambda (u1) (assert-member! u1 (nonheaded-vector-type-element u))) us) u)) (define (create-displaced-vector-type displaced-vector-type) (when *types-frozen?* (fuck-up)) (let* ((u (make-displaced-vector-type displaced-vector-type (unspecified) *ui* 0 (unspecified) 0))) (set-displaced-vector-type-link! u u) (set! *ui* (+ *ui* 1)) (set! *displaced-vector-types* (cons u *displaced-vector-types*)) (cond ((headed-vector-type? displaced-vector-type) (set-headed-vector-type-displaced-vector-type! displaced-vector-type u)) ((nonheaded-vector-type? displaced-vector-type) (set-nonheaded-vector-type-displaced-vector-type! displaced-vector-type u)) (else (fuck-up))) u)) (define ( u) (when *types-frozen?* (fuck-up)) (if (displaced-vector-type? u) ( (displaced-vector-type-displaced-vector-type u)) (or (cond ((headed-vector-type? u) (headed-vector-type-displaced-vector-type u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-displaced-vector-type u)) (else (fuck-up))) (create-displaced-vector-type u)))) ;;; Type properties (define (internal-symbol-type-type-tag-accessed? u) (not (zero? (bit-and (internal-symbol-type-booleans u) 16)))) (define (set-internal-symbol-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-internal-symbol-type-booleans! u (if p? (bit-or (internal-symbol-type-booleans u) 16) (bit-and (internal-symbol-type-booleans u) (bit-not 16))))) (define (internal-symbol-type-eq?-accessed? u) (not (zero? (bit-and (internal-symbol-type-booleans u) 8)))) (define (set-internal-symbol-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-internal-symbol-type-booleans! u (if p? (bit-or (internal-symbol-type-booleans u) 8) (bit-and (internal-symbol-type-booleans u) (bit-not 8))))) (define (internal-symbol-type-symbol->string-accessed? u) (not (zero? (bit-and (internal-symbol-type-booleans u) 4)))) (define (set-internal-symbol-type-symbol->string-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-internal-symbol-type-booleans! u (if p? (bit-or (internal-symbol-type-booleans u) 4) (bit-and (internal-symbol-type-booleans u) (bit-not 4))))) (define (internal-symbol-type-marked? u) (not (zero? (bit-and (internal-symbol-type-booleans u) 2)))) (define (set-internal-symbol-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-internal-symbol-type-booleans! u (if p? (bit-or (internal-symbol-type-booleans u) 2) (bit-and (internal-symbol-type-booleans u) (bit-not 2))))) (define (internal-symbol-type-used? u) (not (zero? (bit-and (internal-symbol-type-booleans u) 1)))) (define (set-internal-symbol-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-internal-symbol-type-booleans! u (if p? (bit-or (internal-symbol-type-booleans u) 1) (bit-and (internal-symbol-type-booleans u) (bit-not 1))))) (define (external-symbol-type-type-tag-accessed? u) (not (zero? (bit-and (external-symbol-type-booleans u) 16)))) (define (set-external-symbol-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-external-symbol-type-booleans! u (if p? (bit-or (external-symbol-type-booleans u) 16) (bit-and (external-symbol-type-booleans u) (bit-not 16))))) (define (external-symbol-type-eq?-accessed? u) (not (zero? (bit-and (external-symbol-type-booleans u) 8)))) (define (set-external-symbol-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-external-symbol-type-booleans! u (if p? (bit-or (external-symbol-type-booleans u) 8) (bit-and (external-symbol-type-booleans u) (bit-not 8))))) (define (external-symbol-type-symbol->string-accessed? u) (not (zero? (bit-and (external-symbol-type-booleans u) 4)))) (define (set-external-symbol-type-symbol->string-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-external-symbol-type-booleans! u (if p? (bit-or (external-symbol-type-booleans u) 4) (bit-and (external-symbol-type-booleans u) (bit-not 4))))) (define (external-symbol-type-marked? u) (not (zero? (bit-and (external-symbol-type-booleans u) 2)))) (define (set-external-symbol-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-external-symbol-type-booleans! u (if p? (bit-or (external-symbol-type-booleans u) 2) (bit-and (external-symbol-type-booleans u) (bit-not 2))))) (define (external-symbol-type-used? u) (not (zero? (bit-and (external-symbol-type-booleans u) 1)))) (define (set-external-symbol-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-external-symbol-type-booleans! u (if p? (bit-or (external-symbol-type-booleans u) 1) (bit-and (external-symbol-type-booleans u) (bit-not 1))))) (define (primitive-procedure-type-type-tag-accessed? u) (not (zero? (bit-and (primitive-procedure-type-booleans u) 8)))) (define (set-primitive-procedure-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-primitive-procedure-type-booleans! u (if p? (bit-or (primitive-procedure-type-booleans u) 8) (bit-and (primitive-procedure-type-booleans u) (bit-not 8))))) (define (primitive-procedure-type-eq?-accessed? u) (not (zero? (bit-and (primitive-procedure-type-booleans u) 4)))) (define (set-primitive-procedure-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-primitive-procedure-type-booleans! u (if p? (bit-or (primitive-procedure-type-booleans u) 4) (bit-and (primitive-procedure-type-booleans u) (bit-not 4))))) (define (primitive-procedure-type-marked? u) (not (zero? (bit-and (primitive-procedure-type-booleans u) 2)))) (define (set-primitive-procedure-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-primitive-procedure-type-booleans! u (if p? (bit-or (primitive-procedure-type-booleans u) 2) (bit-and (primitive-procedure-type-booleans u) (bit-not 2))))) (define (primitive-procedure-type-used? u) (not (zero? (bit-and (primitive-procedure-type-booleans u) 1)))) (define (set-primitive-procedure-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-primitive-procedure-type-booleans! u (if p? (bit-or (primitive-procedure-type-booleans u) 1) (bit-and (primitive-procedure-type-booleans u) (bit-not 1))))) (define (native-procedure-type-alignment? u) (not (zero? (bit-and (native-procedure-type-booleans u) 512)))) (define (set-native-procedure-type-alignment?! u p?) (unless (boolean? p?) (fuck-up)) (set-native-procedure-type-booleans! u (if p? (bit-or (native-procedure-type-booleans u) 512) (bit-and (native-procedure-type-booleans u) (bit-not 512))))) (define (native-procedure-type-alignment&? u) (not (zero? (bit-and (native-procedure-type-booleans u) 256)))) (define (set-native-procedure-type-alignment&?! u p?) (unless (boolean? p?) (fuck-up)) (set-native-procedure-type-booleans! u (if p? (bit-or (native-procedure-type-booleans u) 256) (bit-and (native-procedure-type-booleans u) (bit-not 256))))) (define (native-procedure-type-size? u) (not (zero? (bit-and (native-procedure-type-booleans u) 128)))) (define (set-native-procedure-type-size?! u p?) (unless (boolean? p?) (fuck-up)) (set-native-procedure-type-booleans! u (if p? (bit-or (native-procedure-type-booleans u) 128) (bit-and (native-procedure-type-booleans u) (bit-not 128))))) (define (native-procedure-type-type-tag-accessed? u) (not (zero? (bit-and (native-procedure-type-booleans u) 64)))) (define (set-native-procedure-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-native-procedure-type-booleans! u (if p? (bit-or (native-procedure-type-booleans u) 64) (bit-and (native-procedure-type-booleans u) (bit-not 64))))) (define (native-procedure-type-eq?-accessed? u) (not (zero? (bit-and (native-procedure-type-booleans u) 32)))) (define (set-native-procedure-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-native-procedure-type-booleans! u (if p? (bit-or (native-procedure-type-booleans u) 32) (bit-and (native-procedure-type-booleans u) (bit-not 32))))) (define (native-procedure-type-marked? u) (not (zero? (bit-and (native-procedure-type-booleans u) 16)))) (define (set-native-procedure-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-native-procedure-type-booleans! u (if p? (bit-or (native-procedure-type-booleans u) 16) (bit-and (native-procedure-type-booleans u) (bit-not 16))))) (define (native-procedure-type-used? u) (not (zero? (bit-and (native-procedure-type-booleans u) 8)))) (define (set-native-procedure-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-native-procedure-type-booleans! u (if p? (bit-or (native-procedure-type-booleans u) 8) (bit-and (native-procedure-type-booleans u) (bit-not 8))))) (define (native-procedure-type-necessarily-fictitious? u) (not (zero? (bit-and (native-procedure-type-booleans u) 4)))) (define (set-native-procedure-type-necessarily-fictitious?! u p?) (unless (boolean? p?) (fuck-up)) (set-native-procedure-type-booleans! u (if p? (bit-or (native-procedure-type-booleans u) 4) (bit-and (native-procedure-type-booleans u) (bit-not 4))))) (define (native-procedure-type-fictitious? u) (not (zero? (bit-and (native-procedure-type-booleans u) 2)))) (define (set-native-procedure-type-fictitious?! u p?) (unless (boolean? p?) (fuck-up)) (set-native-procedure-type-booleans! u (if p? (bit-or (native-procedure-type-booleans u) 2) (bit-and (native-procedure-type-booleans u) (bit-not 2))))) (define (native-procedure-type-atomic? u) (not (zero? (bit-and (native-procedure-type-booleans u) 1)))) (define (set-native-procedure-type-atomic?! u p?) (unless (boolean? p?) (fuck-up)) (set-native-procedure-type-booleans! u (if p? (bit-or (native-procedure-type-booleans u) 1) (bit-and (native-procedure-type-booleans u) (bit-not 1))))) (define (foreign-procedure-type-called? u) (not (zero? (bit-and (foreign-procedure-type-booleans u) 16)))) (define (set-foreign-procedure-type-called?! u p?) (unless (boolean? p?) (fuck-up)) (set-foreign-procedure-type-booleans! u (if p? (bit-or (foreign-procedure-type-booleans u) 16) (bit-and (foreign-procedure-type-booleans u) (bit-not 16))))) (define (foreign-procedure-type-type-tag-accessed? u) (not (zero? (bit-and (foreign-procedure-type-booleans u) 8)))) (define (set-foreign-procedure-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-foreign-procedure-type-booleans! u (if p? (bit-or (foreign-procedure-type-booleans u) 8) (bit-and (foreign-procedure-type-booleans u) (bit-not 8))))) (define (foreign-procedure-type-eq?-accessed? u) (not (zero? (bit-and (foreign-procedure-type-booleans u) 4)))) (define (set-foreign-procedure-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-foreign-procedure-type-booleans! u (if p? (bit-or (foreign-procedure-type-booleans u) 4) (bit-and (foreign-procedure-type-booleans u) (bit-not 4))))) (define (foreign-procedure-type-marked? u) (not (zero? (bit-and (foreign-procedure-type-booleans u) 2)))) (define (set-foreign-procedure-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-foreign-procedure-type-booleans! u (if p? (bit-or (foreign-procedure-type-booleans u) 2) (bit-and (foreign-procedure-type-booleans u) (bit-not 2))))) (define (foreign-procedure-type-used? u) (not (zero? (bit-and (foreign-procedure-type-booleans u) 1)))) (define (set-foreign-procedure-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-foreign-procedure-type-booleans! u (if p? (bit-or (foreign-procedure-type-booleans u) 1) (bit-and (foreign-procedure-type-booleans u) (bit-not 1))))) (define (continuation-type-type-tag-accessed? u) (not (zero? (bit-and (continuation-type-booleans u) 32)))) (define (set-continuation-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-continuation-type-booleans! u (if p? (bit-or (continuation-type-booleans u) 32) (bit-and (continuation-type-booleans u) (bit-not 32))))) (define (continuation-type-eq?-accessed? u) (not (zero? (bit-and (continuation-type-booleans u) 16)))) (define (set-continuation-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-continuation-type-booleans! u (if p? (bit-or (continuation-type-booleans u) 16) (bit-and (continuation-type-booleans u) (bit-not 16))))) (define (continuation-type-continuation-accessed? u) (not (zero? (bit-and (continuation-type-booleans u) 8)))) (define (set-continuation-type-continuation-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-continuation-type-booleans! u (if p? (bit-or (continuation-type-booleans u) 8) (bit-and (continuation-type-booleans u) (bit-not 8))))) (define (continuation-type-marked? u) (not (zero? (bit-and (continuation-type-booleans u) 4)))) (define (set-continuation-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-continuation-type-booleans! u (if p? (bit-or (continuation-type-booleans u) 4) (bit-and (continuation-type-booleans u) (bit-not 4))))) (define (continuation-type-used? u) (not (zero? (bit-and (continuation-type-booleans u) 2)))) (define (set-continuation-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-continuation-type-booleans! u (if p? (bit-or (continuation-type-booleans u) 2) (bit-and (continuation-type-booleans u) (bit-not 2))))) (define (continuation-type-fictitious? u) (not (zero? (bit-and (continuation-type-booleans u) 1)))) (define (set-continuation-type-fictitious?! u p?) (unless (boolean? p?) (fuck-up)) (set-continuation-type-booleans! u (if p? (bit-or (continuation-type-booleans u) 1) (bit-and (continuation-type-booleans u) (bit-not 1))))) (define (string-type-never-allocated-on-the-heap? u) (not (zero? (bit-and (string-type-booleans u) 64)))) (define (set-string-type-never-allocated-on-the-heap?! u p?) (unless (boolean? p?) (fuck-up)) (set-string-type-booleans! u (if p? (bit-or (string-type-booleans u) 64) (bit-and (string-type-booleans u) (bit-not 64))))) (define (string-type-type-tag-accessed? u) (not (zero? (bit-and (string-type-booleans u) 32)))) (define (set-string-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-string-type-booleans! u (if p? (bit-or (string-type-booleans u) 32) (bit-and (string-type-booleans u) (bit-not 32))))) (define (string-type-eq?-accessed? u) (not (zero? (bit-and (string-type-booleans u) 16)))) (define (set-string-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-string-type-booleans! u (if p? (bit-or (string-type-booleans u) 16) (bit-and (string-type-booleans u) (bit-not 16))))) (define (string-type-string-length-accessed? u) (not (zero? (bit-and (string-type-booleans u) 8)))) (define (set-string-type-string-length-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-string-type-booleans! u (if p? (bit-or (string-type-booleans u) 8) (bit-and (string-type-booleans u) (bit-not 8))))) (define (string-type-string-ref-accessed? u) (not (zero? (bit-and (string-type-booleans u) 4)))) (define (set-string-type-string-ref-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-string-type-booleans! u (if p? (bit-or (string-type-booleans u) 4) (bit-and (string-type-booleans u) (bit-not 4))))) (define (string-type-marked? u) (not (zero? (bit-and (string-type-booleans u) 2)))) (define (set-string-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-string-type-booleans! u (if p? (bit-or (string-type-booleans u) 2) (bit-and (string-type-booleans u) (bit-not 2))))) (define (string-type-used? u) (not (zero? (bit-and (string-type-booleans u) 1)))) (define (set-string-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-string-type-booleans! u (if p? (bit-or (string-type-booleans u) 1) (bit-and (string-type-booleans u) (bit-not 1))))) (define (structure-type-immediate? u) (not (zero? (bit-and (structure-type-booleans u) 1024)))) (define (set-structure-type-immediate?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 1024) (bit-and (structure-type-booleans u) (bit-not 1024))))) (define (structure-type-alignment? u) (not (zero? (bit-and (structure-type-booleans u) 512)))) (define (set-structure-type-alignment?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 512) (bit-and (structure-type-booleans u) (bit-not 512))))) (define (structure-type-alignment&? u) (not (zero? (bit-and (structure-type-booleans u) 256)))) (define (set-structure-type-alignment&?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 256) (bit-and (structure-type-booleans u) (bit-not 256))))) (define (structure-type-size? u) (not (zero? (bit-and (structure-type-booleans u) 128)))) (define (set-structure-type-size?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 128) (bit-and (structure-type-booleans u) (bit-not 128))))) (define (structure-type-never-allocated-on-the-heap? u) (not (zero? (bit-and (structure-type-booleans u) 64)))) (define (set-structure-type-never-allocated-on-the-heap?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 64) (bit-and (structure-type-booleans u) (bit-not 64))))) (define (structure-type-type-tag-accessed? u) (not (zero? (bit-and (structure-type-booleans u) 32)))) (define (set-structure-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 32) (bit-and (structure-type-booleans u) (bit-not 32))))) (define (structure-type-eq?-accessed? u) (not (zero? (bit-and (structure-type-booleans u) 16)))) (define (set-structure-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 16) (bit-and (structure-type-booleans u) (bit-not 16))))) (define (structure-type-marked? u) (not (zero? (bit-and (structure-type-booleans u) 8)))) (define (set-structure-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 8) (bit-and (structure-type-booleans u) (bit-not 8))))) (define (structure-type-used? u) (not (zero? (bit-and (structure-type-booleans u) 4)))) (define (set-structure-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 4) (bit-and (structure-type-booleans u) (bit-not 4))))) (define (structure-type-fictitious? u) (not (zero? (bit-and (structure-type-booleans u) 2)))) (define (set-structure-type-fictitious?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 2) (bit-and (structure-type-booleans u) (bit-not 2))))) (define (structure-type-atomic? u) (not (zero? (bit-and (structure-type-booleans u) 1)))) (define (set-structure-type-atomic?! u p?) (unless (boolean? p?) (fuck-up)) (set-structure-type-booleans! u (if p? (bit-or (structure-type-booleans u) 1) (bit-and (structure-type-booleans u) (bit-not 1))))) (define (headed-vector-type-alignment? u) (not (zero? (bit-and (headed-vector-type-booleans u) 1024)))) (define (set-headed-vector-type-alignment?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 1024) (bit-and (headed-vector-type-booleans u) (bit-not 1024))))) (define (headed-vector-type-alignment&? u) (not (zero? (bit-and (headed-vector-type-booleans u) 512)))) (define (set-headed-vector-type-alignment&?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 512) (bit-and (headed-vector-type-booleans u) (bit-not 512))))) (define (headed-vector-type-size? u) (not (zero? (bit-and (headed-vector-type-booleans u) 256)))) (define (set-headed-vector-type-size?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 256) (bit-and (headed-vector-type-booleans u) (bit-not 256))))) (define (headed-vector-type-never-allocated-on-the-heap? u) (not (zero? (bit-and (headed-vector-type-booleans u) 128)))) (define (set-headed-vector-type-never-allocated-on-the-heap?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 128) (bit-and (headed-vector-type-booleans u) (bit-not 128))))) (define (headed-vector-type-type-tag-accessed? u) (not (zero? (bit-and (headed-vector-type-booleans u) 64)))) (define (set-headed-vector-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 64) (bit-and (headed-vector-type-booleans u) (bit-not 64))))) (define (headed-vector-type-eq?-accessed? u) (not (zero? (bit-and (headed-vector-type-booleans u) 32)))) (define (set-headed-vector-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 32) (bit-and (headed-vector-type-booleans u) (bit-not 32))))) (define (headed-vector-type-vector-length-accessed? u) (not (zero? (bit-and (headed-vector-type-booleans u) 16)))) (define (set-headed-vector-type-vector-length-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 16) (bit-and (headed-vector-type-booleans u) (bit-not 16))))) (define (headed-vector-type-vector-ref-accessed? u) (not (zero? (bit-and (headed-vector-type-booleans u) 8)))) (define (set-headed-vector-type-vector-ref-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 8) (bit-and (headed-vector-type-booleans u) (bit-not 8))))) (define (headed-vector-type-marked? u) (not (zero? (bit-and (headed-vector-type-booleans u) 4)))) (define (set-headed-vector-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 4) (bit-and (headed-vector-type-booleans u) (bit-not 4))))) (define (headed-vector-type-used? u) (not (zero? (bit-and (headed-vector-type-booleans u) 2)))) (define (set-headed-vector-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 2) (bit-and (headed-vector-type-booleans u) (bit-not 2))))) (define (headed-vector-type-atomic? u) (not (zero? (bit-and (headed-vector-type-booleans u) 1)))) (define (set-headed-vector-type-atomic?! u p?) (unless (boolean? p?) (fuck-up)) (set-headed-vector-type-booleans! u (if p? (bit-or (headed-vector-type-booleans u) 1) (bit-and (headed-vector-type-booleans u) (bit-not 1))))) (define (nonheaded-vector-type-alignment? u) (not (zero? (bit-and (nonheaded-vector-type-booleans u) 512)))) (define (set-nonheaded-vector-type-alignment?! u p?) (unless (boolean? p?) (fuck-up)) (set-nonheaded-vector-type-booleans! u (if p? (bit-or (nonheaded-vector-type-booleans u) 512) (bit-and (nonheaded-vector-type-booleans u) (bit-not 512))))) (define (nonheaded-vector-type-size? u) (not (zero? (bit-and (nonheaded-vector-type-booleans u) 256)))) (define (set-nonheaded-vector-type-size?! u p?) (unless (boolean? p?) (fuck-up)) (set-nonheaded-vector-type-booleans! u (if p? (bit-or (nonheaded-vector-type-booleans u) 256) (bit-and (nonheaded-vector-type-booleans u) (bit-not 256))))) (define (nonheaded-vector-type-never-allocated-on-the-heap? u) (not (zero? (bit-and (nonheaded-vector-type-booleans u) 128)))) (define (set-nonheaded-vector-type-never-allocated-on-the-heap?! u p?) (unless (boolean? p?) (fuck-up)) (set-nonheaded-vector-type-booleans! u (if p? (bit-or (nonheaded-vector-type-booleans u) 128) (bit-and (nonheaded-vector-type-booleans u) (bit-not 128))))) (define (nonheaded-vector-type-type-tag-accessed? u) (not (zero? (bit-and (nonheaded-vector-type-booleans u) 64)))) (define (set-nonheaded-vector-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-nonheaded-vector-type-booleans! u (if p? (bit-or (nonheaded-vector-type-booleans u) 64) (bit-and (nonheaded-vector-type-booleans u) (bit-not 64))))) (define (nonheaded-vector-type-eq?-accessed? u) (not (zero? (bit-and (nonheaded-vector-type-booleans u) 32)))) (define (set-nonheaded-vector-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-nonheaded-vector-type-booleans! u (if p? (bit-or (nonheaded-vector-type-booleans u) 32) (bit-and (nonheaded-vector-type-booleans u) (bit-not 32))))) (define (nonheaded-vector-type-vector-length-accessed? u) (not (zero? (bit-and (nonheaded-vector-type-booleans u) 16)))) (define (set-nonheaded-vector-type-vector-length-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-nonheaded-vector-type-booleans! u (if p? (bit-or (nonheaded-vector-type-booleans u) 16) (bit-and (nonheaded-vector-type-booleans u) (bit-not 16))))) (define (nonheaded-vector-type-vector-ref-accessed? u) (not (zero? (bit-and (nonheaded-vector-type-booleans u) 8)))) (define (set-nonheaded-vector-type-vector-ref-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-nonheaded-vector-type-booleans! u (if p? (bit-or (nonheaded-vector-type-booleans u) 8) (bit-and (nonheaded-vector-type-booleans u) (bit-not 8))))) (define (nonheaded-vector-type-marked? u) (not (zero? (bit-and (nonheaded-vector-type-booleans u) 4)))) (define (set-nonheaded-vector-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-nonheaded-vector-type-booleans! u (if p? (bit-or (nonheaded-vector-type-booleans u) 4) (bit-and (nonheaded-vector-type-booleans u) (bit-not 4))))) (define (nonheaded-vector-type-used? u) (not (zero? (bit-and (nonheaded-vector-type-booleans u) 2)))) (define (set-nonheaded-vector-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-nonheaded-vector-type-booleans! u (if p? (bit-or (nonheaded-vector-type-booleans u) 2) (bit-and (nonheaded-vector-type-booleans u) (bit-not 2))))) (define (nonheaded-vector-type-atomic? u) (not (zero? (bit-and (nonheaded-vector-type-booleans u) 1)))) (define (set-nonheaded-vector-type-atomic?! u p?) (unless (boolean? p?) (fuck-up)) (set-nonheaded-vector-type-booleans! u (if p? (bit-or (nonheaded-vector-type-booleans u) 1) (bit-and (nonheaded-vector-type-booleans u) (bit-not 1))))) (define (displaced-vector-type-alignment? u) (not (zero? (bit-and (displaced-vector-type-booleans u) 128)))) (define (set-displaced-vector-type-alignment?! u p?) (unless (boolean? p?) (fuck-up)) (set-displaced-vector-type-booleans! u (if p? (bit-or (displaced-vector-type-booleans u) 128) (bit-and (displaced-vector-type-booleans u) (bit-not 128))))) (define (displaced-vector-type-size? u) (not (zero? (bit-and (displaced-vector-type-booleans u) 64)))) (define (set-displaced-vector-type-size?! u p?) (unless (boolean? p?) (fuck-up)) (set-displaced-vector-type-booleans! u (if p? (bit-or (displaced-vector-type-booleans u) 64) (bit-and (displaced-vector-type-booleans u) (bit-not 64))))) (define (displaced-vector-type-type-tag-accessed? u) (not (zero? (bit-and (displaced-vector-type-booleans u) 32)))) (define (set-displaced-vector-type-type-tag-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-displaced-vector-type-booleans! u (if p? (bit-or (displaced-vector-type-booleans u) 32) (bit-and (displaced-vector-type-booleans u) (bit-not 32))))) (define (displaced-vector-type-eq?-accessed? u) (not (zero? (bit-and (displaced-vector-type-booleans u) 16)))) (define (set-displaced-vector-type-eq?-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-displaced-vector-type-booleans! u (if p? (bit-or (displaced-vector-type-booleans u) 16) (bit-and (displaced-vector-type-booleans u) (bit-not 16))))) (define (displaced-vector-type-vector-length-accessed? u) (not (zero? (bit-and (displaced-vector-type-booleans u) 8)))) (define (set-displaced-vector-type-vector-length-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-displaced-vector-type-booleans! u (if p? (bit-or (displaced-vector-type-booleans u) 8) (bit-and (displaced-vector-type-booleans u) (bit-not 8))))) (define (displaced-vector-type-vector-ref-accessed? u) (not (zero? (bit-and (displaced-vector-type-booleans u) 4)))) (define (set-displaced-vector-type-vector-ref-accessed?! u p?) (unless (boolean? p?) (fuck-up)) (set-displaced-vector-type-booleans! u (if p? (bit-or (displaced-vector-type-booleans u) 4) (bit-and (displaced-vector-type-booleans u) (bit-not 4))))) (define (displaced-vector-type-marked? u) (not (zero? (bit-and (displaced-vector-type-booleans u) 2)))) (define (set-displaced-vector-type-marked?! u p?) (unless (boolean? p?) (fuck-up)) (set-displaced-vector-type-booleans! u (if p? (bit-or (displaced-vector-type-booleans u) 2) (bit-and (displaced-vector-type-booleans u) (bit-not 2))))) (define (displaced-vector-type-used? u) (not (zero? (bit-and (displaced-vector-type-booleans u) 1)))) (define (set-displaced-vector-type-used?! u p?) (unless (boolean? p?) (fuck-up)) (set-displaced-vector-type-booleans! u (if p? (bit-or (displaced-vector-type-booleans u) 1) (bit-and (displaced-vector-type-booleans u) (bit-not 1))))) (define (set-type-type-tag-accessed?! u p?) (cond ((null-type? u) #f) ((true-type? u) #f) ((false-type? u) #f) ((char-type? u) #f) ((fixnum-type? u) #f) ((flonum-type? u) #f) ((rectangular-type? u) #f) ((input-port-type? u) #f) ((output-port-type? u) #f) ((eof-object-type? u) #f) ((pointer-type? u) #f) ((internal-symbol-type? u) (set-internal-symbol-type-type-tag-accessed?! u p?)) ((external-symbol-type? u) (set-external-symbol-type-type-tag-accessed?! u p?)) ((primitive-procedure-type? u) (set-primitive-procedure-type-type-tag-accessed?! u p?)) ((native-procedure-type? u) (set-native-procedure-type-type-tag-accessed?! u p?)) ((foreign-procedure-type? u) (set-foreign-procedure-type-type-tag-accessed?! u p?)) ((continuation-type? u) (set-continuation-type-type-tag-accessed?! u p?)) ((string-type? u) (set-string-type-type-tag-accessed?! u p?)) ((structure-type? u) (set-structure-type-type-tag-accessed?! u p?)) ((headed-vector-type? u) (set-headed-vector-type-type-tag-accessed?! u p?)) ((nonheaded-vector-type? u) (set-nonheaded-vector-type-type-tag-accessed?! u p?)) ((displaced-vector-type? u) (set-displaced-vector-type-type-tag-accessed?! u p?)) (else (fuck-up)))) (define (set-type-eq?-accessed?! u p?) (cond ((null-type? u) #f) ((true-type? u) #f) ((false-type? u) #f) ((char-type? u) #f) ((fixnum-type? u) #f) ((flonum-type? u) #f) ((rectangular-type? u) #f) ((input-port-type? u) #f) ((output-port-type? u) #f) ((eof-object-type? u) #f) ((pointer-type? u) #f) ((internal-symbol-type? u) (set-internal-symbol-type-eq?-accessed?! u p?)) ((external-symbol-type? u) (set-external-symbol-type-eq?-accessed?! u p?)) ((primitive-procedure-type? u) (set-primitive-procedure-type-eq?-accessed?! u p?)) ((native-procedure-type? u) (set-native-procedure-type-eq?-accessed?! u p?)) ((foreign-procedure-type? u) (set-foreign-procedure-type-eq?-accessed?! u p?)) ((continuation-type? u) (set-continuation-type-eq?-accessed?! u p?)) ((string-type? u) (set-string-type-eq?-accessed?! u p?)) ((structure-type? u) (set-structure-type-eq?-accessed?! u p?)) ((headed-vector-type? u) (set-headed-vector-type-eq?-accessed?! u p?)) ((nonheaded-vector-type? u) (set-nonheaded-vector-type-eq?-accessed?! u p?)) ((displaced-vector-type? u) (set-displaced-vector-type-eq?-accessed?! u p?)) (else (fuck-up)))) (define (null-type? u) (eq? u 'null)) (define (true-type? u) (eq? u 'true)) (define (false-type? u) (eq? u 'false)) (define (boolean-type? u) (or (true-type? u) (false-type? u))) (define (char-type? u) (eq? u 'char)) (define (fixnum-type? u) (eq? u 'fixnum)) (define (flonum-type? u) (eq? u 'flonum)) (define (nonrectangular-number-type? u) (or (fixnum-type? u) (flonum-type? u))) (define (rectangular-type? u) (eq? u 'rectangular)) (define (number-type? u) (or (fixnum-type? u) (flonum-type? u) (rectangular-type? u))) (define (exact-type? u) (unless (number-type? u) (fuck-up)) (fixnum-type? u)) (define (inexact-type? u) (unless (number-type? u) (fuck-up)) (or (flonum-type? u) (rectangular-type? u))) (define (input-port-type? u) (eq? u 'input-port)) (define (output-port-type? u) (eq? u 'output-port)) (define (eof-object-type? u) (eq? u 'eof-object)) (define (pointer-type? u) (eq? u 'pointer)) (define (internal-symbol-type-named? name) ;; conventions: NAME (lambda (u) (and (internal-symbol-type? u) (eq? (internal-symbol-type-name u) name)))) (define (symbol-type? u) (or (internal-symbol-type? u) (external-symbol-type? u))) (define (primitive-procedure-type-named? name) ;; conventions: NAME (lambda (u) (and (primitive-procedure-type? u) (eq? (primitive-procedure-type-name u) name)))) (define (continuation-type-to? x) (lambda (u) (and (continuation-type? u) (eq? (continuation-type-allocating-expression u) x)))) (define (procedure-type? u) (or (primitive-procedure-type? u) (native-procedure-type? u) (foreign-procedure-type? u) (continuation-type? u))) (define (nonreclaimable-string-type? u) (and (string-type? u) (memq #f (string-type-allocating-expressions u)))) (define (structure-type-named? name) ;; conventions: NAME (lambda (u) (and (structure-type? u) (eq? (structure-type-name u) name)))) (define (pair-type? u) ((structure-type-named? 'pair) u)) (define (pair+-type? uss us x) (lambda (u) (when (null? uss) (fuck-up)) (and (pair-type? u) (memq x (structure-type-allocating-expressions u)) (every (lambda (u1) (member? u1 (pair-type-car u))) (first uss)) (if (null? (rest uss)) (every (lambda (u1) (member? u1 (pair-type-cdr u))) us) (can-be? (pair+-type? (rest uss) us x) (pair-type-cdr u)))))) (define (list-type-of? m) (define (list-type-of? m us) (lambda (u) (or (memq u us) (null-type? u) (and (pair-type? u) (can-be? m (pair-type-car u)) (can-be? (list-type-of? m (cons u us)) (pair-type-cdr u)))))) (list-type-of? m '())) (define (list-type? u) ((list-type-of? type?) u)) (define (list-type-of-length? j) ;; conventions: J (lambda (u) (and (not (negative? j)) (if (zero? j) (null-type? u) (and (pair-type? u) (can-be? (list-type-of-length? (- j 1)) (pair-type-cdr u))))))) (define (list-type-of-length-at-least? j) ;; conventions: J (lambda (u) (if (positive? j) (and (pair-type? u) (can-be? (list-type-of-length-at-least? (- j 1)) (pair-type-cdr u))) (list-type? u)))) (define (top-level-nonheaded-vector-type? u) (and (nonheaded-vector-type? u) (memq #f (nonheaded-vector-type-allocating-expressions u)))) (define (vector-type? u) (or (headed-vector-type? u) (nonheaded-vector-type? u) (displaced-vector-type? u))) (define (vector-type-eq?-accessed? u) (cond ((headed-vector-type? u) (headed-vector-type-eq?-accessed? u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-eq?-accessed? u)) ((displaced-vector-type? u) (displaced-vector-type-eq?-accessed? u)) (else (fuck-up)))) (define (vector-ref-accessed? u) (cond ((headed-vector-type? u) (headed-vector-type-vector-ref-accessed? u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-vector-ref-accessed? u)) ((displaced-vector-type? u) (displaced-vector-type-vector-ref-accessed? u)) (else (fuck-up)))) (define (degenerate-vector-type? u) (and (vector-type? u) (fictitious? (vector-type-element u)))) (define (type? u) (or (null-type? u) (true-type? u) (false-type? u) (char-type? u) (fixnum-type? u) (flonum-type? u) (rectangular-type? u) (input-port-type? u) (output-port-type? u) (eof-object-type? u) (pointer-type? u) (internal-symbol-type? u) (external-symbol-type? u) (primitive-procedure-type? u) (native-procedure-type? u) (foreign-procedure-type? u) (continuation-type? u) (string-type? u) (structure-type? u) (headed-vector-type? u) (nonheaded-vector-type? u) (displaced-vector-type? u))) (define (never-allocated-on-the-heap? u) (cond ((null-type? u) #t) ((true-type? u) #t) ((false-type? u) #t) ((char-type? u) #t) ((fixnum-type? u) #t) ((flonum-type? u) #t) ((rectangular-type? u) #t) ((input-port-type? u) #t) ((output-port-type? u) #t) ((eof-object-type? u) #t) ((pointer-type? u) #t) ((internal-symbol-type? u) #t) ((external-symbol-type? u) #t) ((primitive-procedure-type? u) #t) ((native-procedure-type? u) #t) ((foreign-procedure-type? u) #t) ((continuation-type? u) #t) ((string-type? u) (string-type-never-allocated-on-the-heap? u)) ((structure-type? u) (structure-type-never-allocated-on-the-heap? u)) ((headed-vector-type? u) (headed-vector-type-never-allocated-on-the-heap? u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-never-allocated-on-the-heap? u)) ((displaced-vector-type? u) #t) (else (fuck-up)))) (define (type-marked? u) (cond ((null-type? u) (fuck-up)) ((true-type? u) (fuck-up)) ((false-type? u) (fuck-up)) ((char-type? u) (fuck-up)) ((fixnum-type? u) (fuck-up)) ((flonum-type? u) (fuck-up)) ((rectangular-type? u) (fuck-up)) ((input-port-type? u) (fuck-up)) ((output-port-type? u) (fuck-up)) ((eof-object-type? u) (fuck-up)) ((pointer-type? u) (fuck-up)) ((internal-symbol-type? u) (internal-symbol-type-marked? u)) ((external-symbol-type? u) (external-symbol-type-marked? u)) ((primitive-procedure-type? u) (primitive-procedure-type-marked? u)) ((native-procedure-type? u) (native-procedure-type-marked? u)) ((foreign-procedure-type? u) (foreign-procedure-type-marked? u)) ((continuation-type? u) (continuation-type-marked? u)) ((string-type? u) (string-type-marked? u)) ((structure-type? u) (structure-type-marked? u)) ((headed-vector-type? u) (headed-vector-type-marked? u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-marked? u)) ((displaced-vector-type? u) (displaced-vector-type-marked? u)) (else (fuck-up)))) (define (set-type-marked?! u p?) ;; needs work: This is not really a type property. (cond ((null-type? u) (fuck-up)) ((true-type? u) (fuck-up)) ((false-type? u) (fuck-up)) ((char-type? u) (fuck-up)) ((fixnum-type? u) (fuck-up)) ((flonum-type? u) (fuck-up)) ((rectangular-type? u) (fuck-up)) ((input-port-type? u) (fuck-up)) ((output-port-type? u) (fuck-up)) ((eof-object-type? u) (fuck-up)) ((pointer-type? u) (fuck-up)) ((internal-symbol-type? u) (set-internal-symbol-type-marked?! u p?)) ((external-symbol-type? u) (set-external-symbol-type-marked?! u p?)) ((primitive-procedure-type? u) (set-primitive-procedure-type-marked?! u p?)) ((native-procedure-type? u) (set-native-procedure-type-marked?! u p?)) ((foreign-procedure-type? u) (set-foreign-procedure-type-marked?! u p?)) ((continuation-type? u) (set-continuation-type-marked?! u p?)) ((string-type? u) (set-string-type-marked?! u p?)) ((structure-type? u) (set-structure-type-marked?! u p?)) ((headed-vector-type? u) (set-headed-vector-type-marked?! u p?)) ((nonheaded-vector-type? u) (set-nonheaded-vector-type-marked?! u p?)) ((displaced-vector-type? u) (set-displaced-vector-type-marked?! u p?)) (else (fuck-up)))) (define (type-used? u) (cond ((null-type? u) #t) ((true-type? u) #t) ((false-type? u) #t) ((char-type? u) #t) ((fixnum-type? u) #t) ((flonum-type? u) #t) ((rectangular-type? u) #t) ((input-port-type? u) #t) ((output-port-type? u) #t) ((eof-object-type? u) #t) ((pointer-type? u) #t) ((internal-symbol-type? u) (internal-symbol-type-used? u)) ((external-symbol-type? u) (external-symbol-type-used? u)) ((primitive-procedure-type? u) (primitive-procedure-type-used? u)) ((native-procedure-type? u) (native-procedure-type-used? u)) ((foreign-procedure-type? u) (foreign-procedure-type-used? u)) ((continuation-type? u) (continuation-type-used? u)) ((string-type? u) (string-type-used? u)) ((structure-type? u) (structure-type-used? u)) ((headed-vector-type? u) (headed-vector-type-used? u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-used? u)) ((displaced-vector-type? u) (displaced-vector-type-used? u)) (else (fuck-up)))) (define (compatible-procedure? ws w y) (if (converted? y) (lambda (u) (or (and (primitive-procedure-type? u) ((primitive-procedure-compatible-procedure? (cdr (assq (primitive-procedure-type-name u) *primitive-procedure-handlers*))) u (rest ws) w)) (and (native-procedure-type? u) ;; What a kludge! (or (not *types-frozen?*) (callee-environment? u y)) (let ((e (callee-environment u y))) (if (rest? e) (if (converted? e) (can-be? (list-type-of-length-at-least? (- (- (length (variables e)) 1) (length ws))) w) (can-be? (list-type-of-length-at-least? (- (length (variables e)) (length ws))) w)) (if (converted? e) (can-be? (list-type-of-length? (- (length (variables e)) (length ws))) w) (can-be? (list-type-of-length? (- (+ (length (variables e)) 1) (length ws))) w))))) (and (foreign-procedure-type? u) (can-be? (list-type-of-length? (- (+ (length (foreign-procedure-type-parameters u)) 1) (length ws))) w)) (and (continuation-type? u) (can-be? (list-type-of-length? (- 2 (length ws))) w)))) (lambda (u) (or (and (primitive-procedure-type? u) ((primitive-procedure-compatible-procedure? (cdr (assq (primitive-procedure-type-name u) *primitive-procedure-handlers*))) u ws w)) (and (native-procedure-type? u) ;; What a kludge! (or (not *types-frozen?*) (callee-environment? u y)) (let ((e (callee-environment u y))) ;; note: I'm not sure that this is the right thing to do but ;; it is now needed for test21.sc since I changed MAP and ;; APPLY. (and (not (converted? e)) (if (rest? e) (can-be? (list-type-of-length-at-least? (- (- (length (variables e)) 1) (length ws))) w) (can-be? (list-type-of-length? (- (length (variables e)) (length ws))) w))))) (and (foreign-procedure-type? u) (can-be? (list-type-of-length? (- (length (foreign-procedure-type-parameters u)) (length ws))) w)) (and (continuation-type? u) (can-be? (list-type-of-length? (- 1 (length ws))) w)))))) (define (compatible-call? x) (compatible-procedure? (map expression-type-set (expression-arguments x)) *null* (create-call-site x))) (define (compatible-call-via-apply? x) (compatible-procedure? (map expression-type-set (if (converted? x) (cons (continuation-argument x) (but-last (rest (rest (expression-arguments x))))) (but-last (rest (expression-arguments x))))) (expression-type-set (last (expression-arguments x))) (recreate-call-site (create-call-site x) 'first-argument))) (define (compatible-call-via-call-with-current-continuation? x) (compatible-procedure? (if (converted? x) (list (expression-type-set (continuation-argument x)) (expression-type-set (continuation-argument x))) (list (create-anonymous-type-set ( x)))) *null* (recreate-call-site (create-call-site x) 'first-argument))) (define (compatible-call-via-fork1? x) (compatible-procedure? (if (converted? x) (list (expression-type-set (continuation-argument x))) '()) *null* (recreate-call-site (create-call-site x) 'first-argument))) (define (compatible-call-via-fork2? x) (compatible-procedure? (if (converted? x) (list (expression-type-set (continuation-argument x))) '()) *null* (recreate-call-site (create-call-site x) 'second-argument))) (define (compatible-call-via-mutex? x) (compatible-procedure? (if (converted? x) (list (expression-type-set (continuation-argument x))) '()) *null* (recreate-call-site (create-call-site x) 'first-argument))) (define (truly-compatible-procedure? ws w y) ;; note: The reason that we have both COMPATIBLE-PROCEDURE? and ;; TRULY-COMPATIBLE-PROCEDURE? is that if a call site to a primitive ;; procedure is not compatible we generate a call_error where as if it ;; is compatible but not truly compatible we actually call the ;; PRIMITIVE-PROCEDURE-COMPILE-CALL to generate the error. (if (converted? y) (lambda (u) (or (and (primitive-procedure-type? u) ((primitive-procedure-compatible-procedure? (cdr (assq (primitive-procedure-type-name u) *primitive-procedure-handlers*))) u (rest ws) w) (((primitive-procedure-truly-compatible-procedure? (cdr (assq (primitive-procedure-type-name u) *primitive-procedure-handlers*))) y u (first ws)) (rest ws) w)) (and (native-procedure-type? u) ;; What a kludge! (or (not *types-frozen?*) (callee-environment? u y)) (let ((e (callee-environment u y))) (if (rest? e) (if (converted? e) (can-be? (list-type-of-length-at-least? (- (- (length (variables e)) 1) (length ws))) w) (can-be? (list-type-of-length-at-least? (- (length (variables e)) (length ws))) w)) (if (converted? e) (can-be? (list-type-of-length? (- (length (variables e)) (length ws))) w) (can-be? (list-type-of-length? (- (+ (length (variables e)) 1) (length ws))) w))))) (and (foreign-procedure-type? u) (let loop? ((fs (foreign-procedure-type-parameters u)) (ws (rest ws)) (w w)) (if (null? fs) (and (null? ws) (can-be? null-type? w)) (or (and (not (null? ws)) (can-be? (foreign-type? (first fs)) (first ws)) (loop? (rest fs) (rest ws) w)) (and (null? ws) (can-be? (lambda (u) (and (pair-type? u) (can-be? (foreign-type? (first fs)) (pair-type-car u)) (loop? (rest fs) ws (pair-type-cdr u)))) w)))))) (and (continuation-type? u) (can-be? (list-type-of-length? (- 2 (length ws))) w)))) (lambda (u) (or (and (primitive-procedure-type? u) ((primitive-procedure-compatible-procedure? (cdr (assq (primitive-procedure-type-name u) *primitive-procedure-handlers*))) u ws w) (((primitive-procedure-truly-compatible-procedure? (cdr (assq (primitive-procedure-type-name u) *primitive-procedure-handlers*))) y u #f) ws w)) (and (native-procedure-type? u) ;; What a kludge! (or (not *types-frozen?*) (callee-environment? u y)) (let ((e (callee-environment u y))) ;; note: I'm not sure that this is the right thing to do but ;; it is now needed for test21.sc since I changed MAP and ;; APPLY. (and (not (converted? e)) (if (rest? e) (can-be? (list-type-of-length-at-least? (- (- (length (variables e)) 1) (length ws))) w) (can-be? (list-type-of-length? (- (length (variables e)) (length ws))) w))))) (and (foreign-procedure-type? u) (let loop? ((fs (foreign-procedure-type-parameters u)) (ws ws) (w w)) (if (null? fs) (and (null? ws) (can-be? null-type? w)) (or (and (not (null? ws)) (can-be? (foreign-type? (first fs)) (first ws)) (loop? (rest fs) (rest ws) w)) (and (null? ws) (can-be? (lambda (u) (and (pair-type? u) (can-be? (foreign-type? (first fs)) (pair-type-car u)) (loop? (rest fs) ws (pair-type-cdr u)))) w)))))) (and (continuation-type? u) (can-be? (list-type-of-length? (- 1 (length ws))) w)))))) (define (truly-compatible-call? x) (truly-compatible-procedure? (map expression-type-set (expression-arguments x)) *null* (create-call-site x))) (define (truly-compatible-call-via-apply? x) (truly-compatible-procedure? (map expression-type-set (if (converted? x) (cons (continuation-argument x) (but-last (rest (rest (expression-arguments x))))) (but-last (rest (expression-arguments x))))) (expression-type-set (last (expression-arguments x))) (recreate-call-site (create-call-site x) 'first-argument))) (define (truly-compatible-call-via-call-with-current-continuation? x) (truly-compatible-procedure? (if (converted? x) (list (expression-type-set (continuation-argument x)) (expression-type-set (continuation-argument x))) (list (create-anonymous-type-set ( x)))) *null* (recreate-call-site (create-call-site x) 'first-argument))) (define (truly-compatible-call-via-fork1? x) (truly-compatible-procedure? (if (converted? x) (list (expression-type-set (continuation-argument x))) '()) *null* (recreate-call-site (create-call-site x) 'first-argument))) (define (truly-compatible-call-via-fork2? x) (truly-compatible-procedure? (if (converted? x) (list (expression-type-set (continuation-argument x))) '()) *null* (recreate-call-site (create-call-site x) 'second-argument))) (define (truly-compatible-call-via-mutex? x) (truly-compatible-procedure? (if (converted? x) (list (expression-type-set (continuation-argument x))) '()) *null* (recreate-call-site (create-call-site x) 'first-argument))) ;;; Type functions (define (pair-type-car u) (unless (pair-type? u) (fuck-up)) (first (structure-type-slots u))) (define (pair-type-cdr u) (unless (pair-type? u) (fuck-up)) (second (structure-type-slots u))) (define (vector-type-element u) (cond ((headed-vector-type? u) (headed-vector-type-element u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-element u)) ((displaced-vector-type? u) (vector-type-element (displaced-vector-type-displaced-vector-type u))) (else (fuck-up)))) (define (type-index u) (cond ((null-type? u) 0) ((true-type? u) 1) ((false-type? u) 2) ((char-type? u) 3) ((fixnum-type? u) 4) ((flonum-type? u) 5) ((rectangular-type? u) 6) ((input-port-type? u) 7) ((output-port-type? u) 8) ((eof-object-type? u) 9) ((pointer-type? u) 10) ((internal-symbol-type? u) (internal-symbol-type-index u)) ((external-symbol-type? u) (external-symbol-type-index u)) ((primitive-procedure-type? u) (primitive-procedure-type-index u)) ((native-procedure-type? u) (native-procedure-type-index u)) ((foreign-procedure-type? u) (foreign-procedure-type-index u)) ((continuation-type? u) (continuation-type-index u)) ((string-type? u) (string-type-index u)) ((structure-type? u) (structure-type-index u)) ((headed-vector-type? u) (headed-vector-type-index u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-index u)) ((displaced-vector-type? u) (displaced-vector-type-index u)) (else (fuck-up)))) (define (type-use-count u) (cond ((null-type? u) *null-type-use-count*) ((true-type? u) *true-type-use-count*) ((false-type? u) *false-type-use-count*) ((char-type? u) *char-type-use-count*) ((fixnum-type? u) *fixnum-type-use-count*) ((flonum-type? u) *flonum-type-use-count*) ((rectangular-type? u) *rectangular-type-use-count*) ((input-port-type? u) *input-port-type-use-count*) ((output-port-type? u) *output-port-type-use-count*) ((eof-object-type? u) *eof-object-type-use-count*) ((pointer-type? u) *pointer-type-use-count*) ((internal-symbol-type? u) (internal-symbol-type-use-count u)) ((external-symbol-type? u) (external-symbol-type-use-count u)) ((primitive-procedure-type? u) (primitive-procedure-type-use-count u)) ((native-procedure-type? u) (native-procedure-type-use-count u)) ((foreign-procedure-type? u) (foreign-procedure-type-use-count u)) ((continuation-type? u) (continuation-type-use-count u)) ((string-type? u) (string-type-use-count u)) ((structure-type? u) (structure-type-use-count u)) ((headed-vector-type? u) (headed-vector-type-use-count u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-use-count u)) ((displaced-vector-type? u) (displaced-vector-type-use-count u)) (else (fuck-up)))) (define (types-and-type-sets-that-directly-point-to u) (cond ((null-type? u) (fuck-up)) ((true-type? u) (fuck-up)) ((false-type? u) (fuck-up)) ((char-type? u) (fuck-up)) ((fixnum-type? u) (fuck-up)) ((flonum-type? u) (fuck-up)) ((rectangular-type? u) (fuck-up)) ((input-port-type? u) (fuck-up)) ((output-port-type? u) (fuck-up)) ((eof-object-type? u) (fuck-up)) ((pointer-type? u) (fuck-up)) ((internal-symbol-type? u) (internal-symbol-type-types-and-type-sets-that-directly-point-to u)) ((external-symbol-type? u) (external-symbol-type-types-and-type-sets-that-directly-point-to u)) ((primitive-procedure-type? u) (primitive-procedure-type-types-and-type-sets-that-directly-point-to u)) ((native-procedure-type? u) (native-procedure-type-types-and-type-sets-that-directly-point-to u)) ((foreign-procedure-type? u) (foreign-procedure-type-types-and-type-sets-that-directly-point-to u)) ((continuation-type? u) (continuation-type-types-and-type-sets-that-directly-point-to u)) ((string-type? u) (string-type-types-and-type-sets-that-directly-point-to u)) ((structure-type? u) (structure-type-types-and-type-sets-that-directly-point-to u)) ((headed-vector-type? u) (headed-vector-type-types-and-type-sets-that-directly-point-to u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-types-and-type-sets-that-directly-point-to u)) ((displaced-vector-type? u) (displaced-vector-type-types-and-type-sets-that-directly-point-to u)) (else (fuck-up)))) (define (set-types-and-type-sets-that-directly-point-to! u u/ws) ;; needs work: This is not really a type function. (cond ((null-type? u) (fuck-up)) ((true-type? u) (fuck-up)) ((false-type? u) (fuck-up)) ((char-type? u) (fuck-up)) ((fixnum-type? u) (fuck-up)) ((flonum-type? u) (fuck-up)) ((rectangular-type? u) (fuck-up)) ((input-port-type? u) (fuck-up)) ((output-port-type? u) (fuck-up)) ((eof-object-type? u) (fuck-up)) ((pointer-type? u) (fuck-up)) ((internal-symbol-type? u) (set-internal-symbol-type-types-and-type-sets-that-directly-point-to! u u/ws)) ((external-symbol-type? u) (set-external-symbol-type-types-and-type-sets-that-directly-point-to! u u/ws)) ((primitive-procedure-type? u) (set-primitive-procedure-type-types-and-type-sets-that-directly-point-to! u u/ws)) ((native-procedure-type? u) (set-native-procedure-type-types-and-type-sets-that-directly-point-to! u u/ws)) ((foreign-procedure-type? u) (set-foreign-procedure-type-types-and-type-sets-that-directly-point-to! u u/ws)) ((continuation-type? u) (set-continuation-type-types-and-type-sets-that-directly-point-to! u u/ws)) ((string-type? u) (set-string-type-types-and-type-sets-that-directly-point-to! u u/ws)) ((structure-type? u) (set-structure-type-types-and-type-sets-that-directly-point-to! u u/ws)) ((headed-vector-type? u) (set-headed-vector-type-types-and-type-sets-that-directly-point-to! u u/ws)) ((nonheaded-vector-type? u) (set-nonheaded-vector-type-types-and-type-sets-that-directly-point-to! u u/ws)) ((displaced-vector-type? u) (set-displaced-vector-type-types-and-type-sets-that-directly-point-to! u u/ws)) (else (fuck-up)))) ;;; Type type relations (define (wide-clones? u1 u2) ;; This is only used by PRINT-NUMBER-OF-CALL-SITES-THAT-DISPATCH-ON-CLONES. (and (native-procedure-type? u1) (native-procedure-type? u2) (eq? (wide-prototype u1) (wide-prototype u2)))) ;;; Type type-set relations (define (member? u w) (let ((i (type-index u))) (let loop ((node (type-set-red-black-tree-node w))) ;; conventions: NODE (and node (or (= i (red-black-tree-node-key node)) (if (< i (red-black-tree-node-key node)) (loop (red-black-tree-node-left node)) (loop (red-black-tree-node-right node)))))))) ;;; Type type-set procedures (define (insert-member! u w) (define (left-rotate node) ;; conventions: NODE (make-red-black-tree-node (red-black-tree-node-type (red-black-tree-node-right node)) (red-black-tree-node-key (red-black-tree-node-right node)) (make-red-black-tree-node (red-black-tree-node-type node) (red-black-tree-node-key node) (red-black-tree-node-left node) (red-black-tree-node-left (red-black-tree-node-right node)) (red-black-tree-node-red? node)) (red-black-tree-node-right (red-black-tree-node-right node)) (red-black-tree-node-red? (red-black-tree-node-right node)))) (define (right-rotate node) ;; conventions: NODE (make-red-black-tree-node (red-black-tree-node-type (red-black-tree-node-left node)) (red-black-tree-node-key (red-black-tree-node-left node)) (red-black-tree-node-left (red-black-tree-node-left node)) (make-red-black-tree-node (red-black-tree-node-type node) (red-black-tree-node-key node) (red-black-tree-node-right (red-black-tree-node-left node)) (red-black-tree-node-right node) (red-black-tree-node-red? node)) (red-black-tree-node-red? (red-black-tree-node-left node)))) (let ((i (type-index u))) (set-type-set-red-black-tree-node! w (if (type-set-red-black-tree-node w) (let loop ((node (type-set-red-black-tree-node w))) ;; conventions: NODE (cond ((= i (red-black-tree-node-key node)) node) (else (if (< i (red-black-tree-node-key node)) (set-red-black-tree-node-left! node (if (red-black-tree-node-left node) (loop (red-black-tree-node-left node)) (make-red-black-tree-node u i #f #f #t))) (set-red-black-tree-node-right! node (if (red-black-tree-node-right node) (loop (red-black-tree-node-right node)) (make-red-black-tree-node u i #f #f #t)))) (cond ;; Both children are red and one grandchild is red. ((and (red-black-tree-node-left node) (red-black-tree-node-red? (red-black-tree-node-left node)) (red-black-tree-node-right node) (red-black-tree-node-red? (red-black-tree-node-right node)) (or (and (red-black-tree-node-left (red-black-tree-node-left node)) (red-black-tree-node-red? (red-black-tree-node-left (red-black-tree-node-left node)))) (and (red-black-tree-node-right (red-black-tree-node-left node)) (red-black-tree-node-red? (red-black-tree-node-right (red-black-tree-node-left node)))) (and (red-black-tree-node-left (red-black-tree-node-right node)) (red-black-tree-node-red? (red-black-tree-node-left (red-black-tree-node-right node)))) (and (red-black-tree-node-right (red-black-tree-node-right node)) (red-black-tree-node-red? (red-black-tree-node-right (red-black-tree-node-right node)))))) (when (red-black-tree-node-red? node) (fuck-up)) (set-red-black-tree-node-red?! node #t) (set-red-black-tree-node-red?! (red-black-tree-node-left node) #f) (set-red-black-tree-node-red?! (red-black-tree-node-right node) #f) node) (else (cond ;; The left child and its right child are red. ((and (red-black-tree-node-left node) (red-black-tree-node-red? (red-black-tree-node-left node)) (red-black-tree-node-right (red-black-tree-node-left node)) (red-black-tree-node-red? (red-black-tree-node-right (red-black-tree-node-left node)))) (when (red-black-tree-node-red? node) (fuck-up)) (set-red-black-tree-node-left! node (left-rotate (red-black-tree-node-left node)))) ;; The right child and its left child are red. ((and (red-black-tree-node-right node) (red-black-tree-node-red? (red-black-tree-node-right node)) (red-black-tree-node-left (red-black-tree-node-right node)) (red-black-tree-node-red? (red-black-tree-node-left (red-black-tree-node-right node)))) (when (red-black-tree-node-red? node) (fuck-up)) (set-red-black-tree-node-right! node (right-rotate (red-black-tree-node-right node))))) (cond ;; The left child and its left child are red. ((and (red-black-tree-node-left node) (red-black-tree-node-red? (red-black-tree-node-left node)) (red-black-tree-node-left (red-black-tree-node-left node)) (red-black-tree-node-red? (red-black-tree-node-left (red-black-tree-node-left node)))) (when (red-black-tree-node-red? node) (fuck-up)) (set-red-black-tree-node-red?! (red-black-tree-node-left node) #f) (set-red-black-tree-node-red?! node #t) (right-rotate node)) ;; The right child and its right child are red. ((and (red-black-tree-node-right node) (red-black-tree-node-red? (red-black-tree-node-right node)) (red-black-tree-node-right (red-black-tree-node-right node)) (red-black-tree-node-red? (red-black-tree-node-right (red-black-tree-node-right node)))) (when (red-black-tree-node-red? node) (fuck-up)) (set-red-black-tree-node-red?! (red-black-tree-node-right node) #f) (set-red-black-tree-node-red?! node #t) (left-rotate node)) (else node))))))) (make-red-black-tree-node u i #f #f #t)))) (let ((node (type-set-red-black-tree-node w))) (when (and (red-black-tree-node-red? node) (or (and (red-black-tree-node-left node) (red-black-tree-node-red? (red-black-tree-node-left node))) (and (red-black-tree-node-right node) (red-black-tree-node-red? (red-black-tree-node-right node))))) (set-red-black-tree-node-red?! node #f)))) ;;; Type environment relations (define (escapes? u e) ;; It is possible to tighten the notion of escaping by requiring that U be ;; frobbed in the continuation of some call to E. For the types in question, ;; the notion of frobbing is: ;; (EQ? X1 X2) frobs all members of the type sets of X1 and X2 ;; (STRING-LENGTH X) frobs all string members of the type set of X ;; (STRING-REF X1 X2) frobs all string members of the type set of X1 ;; (STRING-SET! X1 X2 X3) frobs all string members of the type set of X1 ;; (VECTOR-LENGTH X) frobs all nondegenerate headed vector members of the ;; type set of X ;; (VECTOR-REF X1 X2) frobs all nondegenerate vector members of X1 ;; (VECTOR-SET! X1 X2 X3) frobs all nondegenerate vector members of X1 ;; ((PRIMITIVE-PROCEDURE STRUCTURE-REF FOO I) X) frobs all structure ;; members named FOO of the type set of X that have value ;; ((PRIMITIVE-PROCEDURE STRUCTURE-SET! FOO I) X1 X2) frobs all structure ;; members named FOO of the type set of X1 that have value ;; (C X) frobs all continuation members of the type set of C that have value ;; (X0 X1 ... XN) frobs all native procedure members of the type set of X0 ;; that have value and that can take N arguments. (not (not (memq u (environment-escaping-types e))))) ;;; Type-set creation (define *wi* #f) (define *ws* #f) (define *w1* #f) (define *w* #f) (define *void* #f) (define *null* #f) (define *input-port* #f) (define *output-port* #f) (define *foreign-char-type-set* #f) (define *foreign-fixnum-type-set* #f) (define *foreign-flonum-type-set* #f) (define *foreign-string-type-set* #f) (define *foreign-input-port-type-set* #f) (define *foreign-output-port-type-set* #f) (define *foreign-pointer-type-set* #f) (define (reinitialize-types-and-type-sets!) (set! *wi* 0) (set! *ws* '()) (for-each (lambda (x) (set-expression-continuation-type! x #f) (set-expression-string-type! x #f) (set-expression-structure-types! x '()) (set-expression-headed-vector-types! x '()) (set-expression-nonheaded-vector-types! x '())) *xs*) (set! 'null) (set! *null-type-used?* #f) (set! *null-type-use-count* 0) (set! 'true) (set! *true-type-used?* #f) (set! *true-type-use-count* 0) (set! 'false) (set! *false-type-used?* #f) (set! *false-type-use-count* 0) (set! 'char) (set! *char-type-used?* #f) (set! *char-type-use-count* 0) (set! 'fixnum) (set! *fixnum-type-used?* #f) (set! *fixnum-type-use-count* 0) (set! 'flonum) (set! *flonum-type-used?* #f) (set! *flonum-type-use-count* 0) (set! 'rectangular) (set! *rectangular-type-used?* #f) (set! *rectangular-type-use-count* 0) (set! 'input-port) (set! *input-port-type-used?* #f) (set! *input-port-type-use-count* 0) (set! 'output-port) (set! *output-port-type-used?* #f) (set! *output-port-type-use-count* 0) (set! 'eof-object) (set! *eof-object-type-used?* #f) (set! *eof-object-type-use-count* 0) (set! 'pointer) (set! *pointer-type-used?* #f) (set! *pointer-type-use-count* 0) (set! *internal-symbol-types* '()) (set! *external-symbol-types* '()) (set! *primitive-procedure-types* '()) (for-each (lambda (u) (set-native-procedure-type-used?! u #f)) *native-procedure-types*) (set! *foreign-procedure-types* '()) (set! *continuation-types* '()) (set! *string-types* '()) ;; The following is needed to reset the index cache. (set! #f) (set! ( #f)) (set! *structure-types* '()) (set! *headed-vector-types* '()) (set! *nonheaded-vector-types* '()) ;; The following is needed to reset the index cache. (set! #f) (set! ( (list ) #f)) (set! *displaced-vector-types* '()) ;; needs work: To enforce that ;; (NONHEADED-VECTOR-TYPE-ELEMENT ) ;; is never widened since ARGV will be passed a nonheaded vector ;; of strings. (set! *w1* (create-anonymous-type-set )) (set! *w* (create-anonymous-type-set)) (set! *void* (create-anonymous-type-set)) (set! *null* (create-anonymous-type-set )) (set! *input-port* (create-anonymous-type-set )) (set! *output-port* (create-anonymous-type-set )) (set! *foreign-char-type-set* (create-anonymous-type-set )) (set! *foreign-fixnum-type-set* (create-anonymous-type-set )) (set! *foreign-flonum-type-set* (create-anonymous-type-set )) (set! *foreign-string-type-set* (create-anonymous-type-set )) (set! *foreign-input-port-type-set* (create-anonymous-type-set )) (set! *foreign-output-port-type-set* (create-anonymous-type-set )) (set! *foreign-pointer-type-set* (create-anonymous-type-set ))) (define (create-type-set location) (when *types-frozen?* (fuck-up)) (let ((w (make-type-set location #f (unspecified) 0 *wi* 0))) (set-type-set-fictitious?! w #t) (set-type-set-link! w w) (set! *wi* (+ *wi* 1)) (set! *ws* (cons w *ws*)) w)) (define (create-anonymous-type-set . types) ;; This and are the only type and type-set creators that can ;; be called when types are frozen. (let ((w (make-type-set #f #f (unspecified) 0 (unused) 0))) ;; This is a real kludge. (set-type-set-fictitious?! w (and (<= (length types) 1) (every fictitious? types))) (for-each (lambda (u) (insert-member! u w)) types) w)) ;;; Type-set properties (define (type-set-alignment? w) (not (zero? (bit-and (type-set-booleans w) 64)))) (define (set-type-set-alignment?! w p?) (unless (boolean? p?) (fuck-up)) (set-type-set-booleans! w (if p? (bit-or (type-set-booleans w) 64) (bit-and (type-set-booleans w) (bit-not 64))))) (define (type-set-size? w) (not (zero? (bit-and (type-set-booleans w) 32)))) (define (set-type-set-size?! w p?) (unless (boolean? p?) (fuck-up)) (set-type-set-booleans! w (if p? (bit-or (type-set-booleans w) 32) (bit-and (type-set-booleans w) (bit-not 32))))) (define (type-set-marked? w) (not (zero? (bit-and (type-set-booleans w) 16)))) (define (set-type-set-marked?! w p?) (unless (boolean? p?) (fuck-up)) (set-type-set-booleans! w (if p? (bit-or (type-set-booleans w) 16) (bit-and (type-set-booleans w) (bit-not 16))))) (define (type-set-used? w) (not (zero? (bit-and (type-set-booleans w) 8)))) (define (set-type-set-used?! w p?) (unless (boolean? p?) (fuck-up)) (set-type-set-booleans! w (if p? (bit-or (type-set-booleans w) 8) (bit-and (type-set-booleans w) (bit-not 8))))) (define (type-set-squeezable? w) (not (zero? (bit-and (type-set-booleans w) 4)))) (define (set-type-set-squeezable?! w p?) (unless (boolean? p?) (fuck-up)) (set-type-set-booleans! w (if p? (bit-or (type-set-booleans w) 4) (bit-and (type-set-booleans w) (bit-not 4))))) (define (type-set-squishable? w) (not (zero? (bit-and (type-set-booleans w) 2)))) (define (set-type-set-squishable?! w p?) (unless (boolean? p?) (fuck-up)) (set-type-set-booleans! w (if p? (bit-or (type-set-booleans w) 2) (bit-and (type-set-booleans w) (bit-not 2))))) (define (type-set-fictitious? w) (not (zero? (bit-and (type-set-booleans w) 1)))) (define (set-type-set-fictitious?! w p?) (unless (boolean? p?) (fuck-up)) (set-type-set-booleans! w (if p? (bit-or (type-set-booleans w) 1) (bit-and (type-set-booleans w) (bit-not 1))))) (define (can-be? m w) (let loop ((node (type-set-red-black-tree-node w))) ;; conventions: NODE (and node (or (m (red-black-tree-node-type node)) (loop (red-black-tree-node-left node)) (loop (red-black-tree-node-right node)))))) (define (can-be-non? m w) (can-be? (lambda (u) (not (m u))) w)) (define (must-be? m w) (not (can-be-non? m w))) (define (void? w) (not (type-set-red-black-tree-node w))) (define (monomorphic? w) ;; This really shouldn't be called until after APPLY-CLOSED-WORLD-ASSUMPTION! ;; is called since all of the multiple members might turn out to be the same. (and (type-set-red-black-tree-node w) (not (red-black-tree-node-left (type-set-red-black-tree-node w))) (not (red-black-tree-node-right (type-set-red-black-tree-node w))))) (define (multimorphic? w) ;; This really shouldn't be called until after APPLY-CLOSED-WORLD-ASSUMPTION! ;; is called since all of the multiple members might turn out to be the same. (and (type-set-red-black-tree-node w) (or (red-black-tree-node-left (type-set-red-black-tree-node w)) (red-black-tree-node-right (type-set-red-black-tree-node w))))) (define (fake? w) (and (or (void? w) (monomorphic? w)) (must-be? fictitious? w))) ;;; Type-set functions (define (the-member w) (unless (monomorphic? w) (fuck-up)) (red-black-tree-node-type (type-set-red-black-tree-node w))) (define (the-member-that m w) (let ((us (members-that m w))) (unless (= (length us) 1) (fuck-up)) (first us))) (define (members w) (let ((us '())) (let loop ((node (type-set-red-black-tree-node w))) ;; conventions: NODE (when node (loop (red-black-tree-node-right node)) (set! us (cons (red-black-tree-node-type node) us)) (loop (red-black-tree-node-left node)))) us)) (define (members-that m w) (remove-if-not m (members w))) ;;; Type-set procedures (define (for-each-member p w) (let loop ((node (type-set-red-black-tree-node w))) ;; conventions: NODE (when node (p (red-black-tree-node-type node)) (loop (red-black-tree-node-left node)) (loop (red-black-tree-node-right node))))) (define (set-members! w us) (set-type-set-red-black-tree-node! w #f) (for-each (lambda (u) (insert-member! u w)) us)) ;;; Type-set type-set relations (define (subtype-set? w1 w2) (must-be? (lambda (u1) (member? u1 w2)) w1)) ;;; Variable creation (define *gi* #f) (define *gs* #f) (define (initialize-variables!) (set! *gi* 0) (set! *gs* '())) (define (create-variable s/g) (let ((g (cond ((s-expression? s/g) (make-variable (s-expression-version s/g) (s-expression-cursor s/g) (s-expression-pathname s/g) (s-expression-line-position s/g) (s-expression-character-position s/g) (s-expression-character-position-within-line s/g) *gi* (s-expression-datum s/g) (unspecified) (unspecified) '() '() '() 0)) ((variable? s/g) (make-variable (variable-version s/g) (variable-cursor s/g) (variable-pathname s/g) (variable-line-position s/g) (variable-character-position s/g) (variable-character-position-within-line s/g) *gi* (variable-name s/g) (unspecified) (unspecified) '() '() '() 0)) (else (fuck-up))))) (set! *gi* (+ *gi* 1)) (set! *gs* (cons g *gs*)) g)) ;;; Variable properties (define (variable-accessed? g) (not (zero? (bit-and (variable-booleans g) 32)))) (define (set-variable-accessed?! g p?) (unless (boolean? p?) (fuck-up)) (set-variable-booleans! g (if p? (bit-or (variable-booleans g) 32) (bit-and (variable-booleans g) (bit-not 32))))) (define (variable-assigned? g) (not (zero? (bit-and (variable-booleans g) 16)))) (define (set-variable-assigned?! g p?) (unless (boolean? p?) (fuck-up)) (set-variable-booleans! g (if p? (bit-or (variable-booleans g) 16) (bit-and (variable-booleans g) (bit-not 16))))) (define (variable-local? g) (not (zero? (bit-and (variable-booleans g) 8)))) (define (set-variable-local?! g p?) (unless (boolean? p?) (fuck-up)) (set-variable-booleans! g (if p? (bit-or (variable-booleans g) 8) (bit-and (variable-booleans g) (bit-not 8))))) (define (variable-global? g) (not (zero? (bit-and (variable-booleans g) 4)))) (define (set-variable-global?! g p?) (unless (boolean? p?) (fuck-up)) (set-variable-booleans! g (if p? (bit-or (variable-booleans g) 4) (bit-and (variable-booleans g) (bit-not 4))))) (define (variable-hidden? g) (not (zero? (bit-and (variable-booleans g) 2)))) (define (set-variable-hidden?! g p?) (unless (boolean? p?) (fuck-up)) (set-variable-booleans! g (if p? (bit-or (variable-booleans g) 2) (bit-and (variable-booleans g) (bit-not 2))))) (define (variable-slotted? g) (not (zero? (bit-and (variable-booleans g) 1)))) (define (set-variable-slotted?! g p?) (unless (boolean? p?) (fuck-up)) (set-variable-booleans! g (if p? (bit-or (variable-booleans g) 1) (bit-and (variable-booleans g) (bit-not 1))))) (define (variable-used? g) (called? (variable-environment g))) (define (defined-at-top-level? g) (or (and (not (empty? (parent (variable-environment g)))) (empty? (parent (parent (variable-environment g)))) (let? (variable-environment g))) (and (not (empty? (parent (variable-environment g)))) (not (empty? (parent (parent (variable-environment g))))) (empty? (parent (parent (parent (variable-environment g))))) (let? (variable-environment g)) (let? (parent (variable-environment g)))) (and (not (empty? (parent (variable-environment g)))) (not (empty? (parent (parent (variable-environment g))))) (not (empty? (parent (parent (parent (variable-environment g)))))) (empty? (parent (parent (parent (parent (variable-environment g)))))) (let? (variable-environment g)) (let? (parent (variable-environment g))) (let? (parent (parent (variable-environment g))))) (and (not (empty? (parent (variable-environment g)))) (not (empty? (parent (parent (variable-environment g))))) (not (empty? (parent (parent (parent (variable-environment g)))))) (not (empty? (parent (parent (parent (parent (variable-environment g))))))) (empty? (parent (parent (parent (parent (parent (variable-environment g))))))) (let? (variable-environment g)) (let? (parent (variable-environment g))) (let? (parent (parent (variable-environment g)))) (let? (parent (parent (parent (variable-environment g)))))))) (define (accessed? g) (if *during-closure-conversion?* (case *closure-conversion-method* ((baseline) #t) ((conventional) (or (defined-at-top-level? g) (not (null? (accesses g))))) ((lightweight) (variable-accessed? g)) (else (fuck-up))) (variable-accessed? g))) (define (assigned? g) (if *during-closure-conversion?* (case *closure-conversion-method* ((baseline) #t) ((conventional) (or (defined-at-top-level? g) (not (null? (assignments g))))) ((lightweight) (variable-assigned? g)) (else (fuck-up))) (variable-assigned? g))) (define (accesses g) (remove-if-not reached? (variable-accesses g))) (define (assignments g) ;; needs work: Should this be EXECUTED?? (remove-if-not reached? (variable-assignments g))) (define (references g) ;; needs work: Should this be EXECUTED? for assignments? (remove-if-not reached? (variable-references g))) (define (must-alias? g/u) ;; needs work: This is not memoized but should be. (cond ((variable? g/u) (and (not (and (accessed? g/u) ;This is just an optimization. ;; (\exists e\in A\cup S) (some (lambda (x) (and ;; \NONTRIVIALREFERENCE{e} (nontrivial-reference? x) ;; (\exists p\in P) (let loop? ((e (expression-environment x))) ;; \PROPERLYNESTEDIN{p}{p(x)} (and (not (eq? e (variable-environment g/u))) (or ;; This can't require (NOT (FICTITIOUS? (ENVIRONMENT-TYPE E))) ;; because then X{645} in test32.sc unsoundly becomes local ;; and Y{645} in test33.sc and Y{647} in test34.sc unsoundly ;; become global. ;; \ESCAPES{p}{p(x)} (escapes? (environment-type e) (variable-environment g/u)) ;; \NESTEDIN{p(e)}{p} (loop? (parent e))))))) ;; x(e)=x (references g/u)))) (not (and (accessed? g/u) ;This is just an optimization. ;; \PROPERLYCALLS{p(x)}{p(x)} (recursive? (variable-environment g/u)) (begin (for-each (lambda (e) (set-environment-marked1?! e #f)) *es*) (unmark-types-and-type-sets!) ;; \NESTEDIN{p(x)}{p(x(e'))} (let loop ((e (variable-environment g/u))) (unless (empty? e) (set-environment-marked1?! e #t) (loop (parent e)))) ;; \NESTEDIN{p(e')}{p(x)} (let loop ((e (variable-environment g/u))) (for-each (lambda (x) (case (expression-kind x) ;; (\exists e'\in A) ((access) (when (environment-marked1? (variable-environment (expression-variable x))) ;; \POINTSTO{\alpha(e')}{p} ;; This is done just for side effect, to set the MARKED? ;; bits. (for-each-pointed-to-type (lambda (u) #f) (expression-type-set x)))) ((lambda converted-lambda converted-continuation) (when (environment-used? (expression-lambda-environment x)) (loop (expression-lambda-environment x)))))) (environment-expressions e))) ;; This is done just for side effect, to set the MARKED1? bits. ;; \PROPERLYCALLS{p(x)}{p} (some-proper-callee (lambda (e) #f) environment-marked1? set-environment-marked1?! (variable-environment g/u)) ;; (\exists e\in A\cup S) (some (lambda (x) (and ;; \NONTRIVIALREFERENCE{e} (nontrivial-reference? x) ;; (\exists p\in P) (let loop? ((e (expression-environment x))) (and ;; \PROPERLYNESTEDIN{p}{p(x(e))} (not (eq? e (variable-environment g/u))) ;; \PROPERLYCALLS{p(x)}{p} (environment-marked1? e) ;; (\exists e'\in A) ;; \NESTEDIN{p(e')}{\NESTEDIN{p(x)}{p(x(e'))}} (or ;; \POINTSTO{\alpha(e')}{p} (native-procedure-type-marked? (environment-type e)) ;; \NESTEDIN{p(e)}{p} (loop? (parent e))))))) ;; x(e)=x (references g/u))))))) ((native-procedure-type? g/u) (and (not (some (lambda (e) (and ;; note: We don't have \TYPEPREDICATEACCESSED{p}. ;; \PROCEDUREACCESSED{p} (environment-accessed? e) ;; \ESCAPES{p}{\PARENTPARAMETER{p}} (some (lambda (e) (escapes? g/u e)) (ancestors e)))) (narrow-clones g/u))) (not (and ;; This is just an optimization. (some (lambda (u/w) (and (type-set? u/w) (monomorphic? u/w) (variable? (type-set-location u/w)) (accessed? (type-set-location u/w)))) (types-and-type-sets-that-directly-point-to g/u)) (not (fictitious? g/u)) ;This is just an optimization. ;; \POINTSTO{\alpha(e')}{p} (let ((xs '())) (unmark-types-and-type-sets!) (let loop ((u g/u)) (unless (type-marked? u) (set-type-marked?! u #t) (for-each (lambda (u/w) (cond ((type-set? u/w) (unless (type-set-marked? u/w) (set-type-set-marked?! u/w #t) (cond ((type? (type-set-location u/w)) (loop (type-set-location u/w))) ((and (expression? (type-set-location u/w)) ;; e'\in A (eq? (expression-kind (type-set-location u/w)) 'access)) (set! xs (cons (type-set-location u/w) xs)))))) ((type? u/w) (loop u/w)) (else (fuck-up)))) (types-and-type-sets-that-directly-point-to u)))) (some (lambda (e) (and (environment-used? e) ;This is just an optimization. ;; (\exists e\in C) (some (lambda (y) (or ;; For now, punt on any procedure with an implicit call site and ;; treat it as if it were referenced recursively. This won't ;; affect the top-level call site because the top-level procedure ;; is never bound to a variable and thus never bound to a hidden ;; variable. This will, however, mean that any variables that are ;; bound to a procedure that has first-argument and ;; continuation-argument call sites will not be hidden. (not (explicit-call-site? y)) (begin ;; This is done just for side effect, to set the MARKED1? bits. ;; \CALLS{p'}{p(e)} (some-caller (lambda (e) #f) environment-marked1? set-environment-marked1?! (expression-environment (call-site-expression y))) ;; (\exists e'\in A) (some (lambda (x) ;; (\exists p'\in P) (let loop? ((e1 (expression-environment x))) (and ;; \PROPERLYCALLS{p'}{p'} (recursive? e1) (or (and ;; \CALLS{p'}{p(e)} (environment-marked1? e1) ;; \NESTEDIN{\PARENTPARAMETER{p}}{p'} (begin (for-each (lambda (e) (set-environment-marked2?! e #f)) *es*) (let loop ((e e1)) (when (environment-used? e) (set-environment-marked2?! e #t) (for-each (lambda (x) (case (expression-kind x) ((lambda converted-lambda converted-continuation) (loop (expression-lambda-environment x))))) (environment-expressions e)))) (some (lambda (e) (and (environment-used? e) (some environment-marked2? (ancestors e)))) (narrow-clones g/u)))) (and ;; \NESTEDIN{p'}{p(x(e'))} (not (eq? e1 (variable-environment (expression-variable x)))) ;; \NESTEDIN{p(e')}{p'} (loop? (parent e1))))))) ;; \POINTSTO{\alpha(e')}{p} xs)))) ;; \DIRECTLYCALLS{e}{p} (call-sites e)))) (narrow-clones g/u))))))) ((continuation-type? g/u) (and (not (and ;; note: We don't have \TYPEPREDICATEACCESSED{\sigma}. ;; \CONTINUATIONACCESSED{\sigma} (continuation-type-continuation-accessed? g/u) ;; (\exists\CANBE{\alpha(\ARGUMENT{1}{e(\sigma)})}{p}) (can-be? (lambda (u1) (and ;; p\in P (native-procedure-type? u1) (some (lambda (e) ;; needs work: Doesn't handle varargs. (when (rest? e) (unimplemented #f "unimplemented")) (and ;; \CANBE{\alpha(\PARAMETER{1}{p})}{\sigma} (member? g/u (first-parameter-type-set (environment-expression e))) ;; \ESCAPES{\sigma}{p} (escapes? g/u e))) (narrow-clones u1)))) (expression-type-set (first-argument (continuation-type-allocating-expression g/u)))))) (not (and ;; note: We don't have \TYPEPREDICATEACCESSES{e}{\sigma}. ;; This is just an optimization. (continuation-type-continuation-accessed? g/u) (begin ;; This is done just for side effect, to set the MARKED2? bits. ;; \PROPERLYCALLS{p(e(\sigma))}{p} (some-proper-callee (lambda (e) #f) environment-marked1? set-environment-marked1?! (expression-environment (continuation-type-allocating-expression g/u))) ;; \PROPERLYCALLS{p}{p(e(\sigma)){p}} (some-proper-caller (lambda (e) #f) environment-marked2? set-environment-marked2?! (expression-environment (continuation-type-allocating-expression g/u))) ;; \PROPERLYCALLS{p}{\PROPERLYCALLS{p(e(\sigma))}{p}} (for-each (lambda (e) (unless (environment-marked1? e) (set-environment-marked2?! e #f))) *es*) (let ((xs '())) ;; \NESTEDIN{p(e(\sigma))}{p(x(e'))} (let loop ((e (expression-environment (continuation-type-allocating-expression g/u)))) (unless (empty? e) (for-each (lambda (g) (for-each (lambda (x) ;; \POINTSTO{\alpha(e')}{\sigma} (when (points-to? (expression-type-set x) g/u) (set! xs (cons x xs)))) ;; (\exists e'\in A) (accesses g))) (variables e)) (loop (parent e)))) ;; (\exists e\in C) (some (lambda (y) ;; needs work: Doesn't handle implicit continuation calls. (unless (explicit-call-site? y) (unimplemented y "unimplemented")) ;; (\exists\CANBE{\alpha(\ARGUMENT{1}{e(\sigma)})}{p}) (some (lambda (e) (and (environment-marked2? e) (member? (environment-type e) (expression-type-set (first-argument (continuation-type-allocating-expression g/u)))) (some (lambda (x) ;; \PROPERLYNESTEDIN{p}{p(x(e'))} (properly-nested-in? e (variable-environment (expression-variable x)))) xs))) ;; \CALLS{p}{p(e)} (callers (expression-environment (call-site-expression y))))) ;; \CONTINUATIONACCESSES{e}{\sigma} (continuation-type-call-sites g/u)))))))) (else (fuck-up)))) (define (localizable? g) ;; needs work: This is not memoized but should be. (case *closure-conversion-method* ((baseline) #f) ((conventional) (not (some free-reference? (references g)))) ((lightweight) (and (or (not (accessed? g)) ;This is just an optimization. (every (lambda (x) (or (not (nontrivial-reference? x)) (in-lined-in? x (variable-environment g)))) (references g))) (must-alias? g))) (else (fuck-up)))) (define (globalizable? g) ;; needs work: This is not memoized but should be. (case *closure-conversion-method* ((baseline) #f) ((conventional) (and (or (not (empty? (parent (variable-environment g)))) (= (length (variables (variable-environment g))) 1) (not (eq? g (first (variables (variable-environment g)))))) (let loop ((e (variable-environment g))) (or (empty? (parent e)) (and (let? e) (loop (parent e))))))) ((lightweight) (or (not (called-more-than-once? (variable-environment g))) (and (not (reentrant? (variable-environment g))) (must-alias? g)))) (else (fuck-up)))) (define (hideable? g) ;; needs work: This is not memoized but should be. (case *closure-conversion-method* ((baseline conventional) #f) ((lightweight) (and (accessed? g) ;This is just an optimization. (monomorphic? (variable-type-set g)) (native-procedure-type? (the-member (variable-type-set g))) ;; The paper doesn't contain this. This is here because we don't ;; compute ANCESTOR? for unused environments. (environment-used? (the-member (variable-type-set g))) (every (lambda (x) (or (not (nontrivial-reference? x)) (every (lambda (e1) ;; The paper doesn't contain this. This is here because ;; we don't compute ANCESTOR? for unused environments. (or (not (environment-used? e1)) (every (lambda (e2) (nested-in? (expression-environment x) e2)) (ancestors e1)))) (narrow-clones (the-member (variable-type-set g)))))) (accesses g)) (must-alias? (the-member (variable-type-set g))))) (else (fuck-up)))) (define (local? g) (variable-local? g)) (define (determine-whether-local? g) (if *globals?* (and (accessed? g) (not (fictitious? (variable-type-set g))) (localizable? g) (not (global? g))) (and (accessed? g) (not (fictitious? (variable-type-set g))) (localizable? g)))) (define (infer-all-whether-local?! p?) (when *p7?* (notify "Determining whether variables are local")) (for-each (lambda (g) (cond ((local? g) (when (and p? (not (determine-whether-local? g))) (fuck-up))) ((determine-whether-local? g) (set-variable-local?! g #t) (when *p7?* (notify " ~a{~s} is local" (variable-name g) (variable-index g))) (set! *again?* #t)))) *gs*)) (define (global? g) (variable-global? g)) (define (determine-whether-global? g) (if *globals?* (and (accessed? g) (not (fictitious? (variable-type-set g))) (globalizable? g)) (and (accessed? g) (not (fictitious? (variable-type-set g))) (globalizable? g) (not (local? g))))) (define (infer-all-whether-global?! p?) (when *p7?* (notify "Determining whether variables are global")) (for-each (lambda (g) (cond ((global? g) (when (and p? (not (determine-whether-global? g))) (fuck-up))) ((determine-whether-global? g) (set-variable-global?! g #t) (when *p7?* (notify " ~a{~s} is global" (variable-name g) (variable-index g))) (set! *again?* #t)))) *gs*)) (define (hidden? g) (variable-hidden? g)) (define (determine-whether-hidden? g) (and (accessed? g) (not (fictitious? (variable-type-set g))) (hideable? g) (not (local? g)) (not (global? g)))) (define (infer-all-whether-hidden?! p?) (when *p7?* (notify "Determining whether variables are hidden")) (for-each (lambda (g) (cond ((hidden? g) (when (and p? (not (determine-whether-hidden? g))) (fuck-up))) ((determine-whether-hidden? g) (set-variable-hidden?! g #t) (when *p7?* (notify " ~a{~s} is hidden" (variable-name g) (variable-index g))) (set! *again?* #t)))) *gs*)) (define (slotted? g) (variable-slotted? g)) (define (determine-whether-slotted? g) (and (accessed? g) (not (fictitious? (variable-type-set g))) (not (local? g)) (not (global? g)) (not (hidden? g)))) (define (infer-all-whether-slotted?! p?) (when *p7?* (notify "Determining whether variables are slotted")) (for-each (lambda (g) (cond ((slotted? g) (when (and p? (not (determine-whether-slotted? g))) (fuck-up))) ((determine-whether-slotted? g) (set-variable-slotted?! g #t) (when *p7?* (notify " ~a{~s} is slotted" (variable-name g) (variable-index g))) (set! *again?* #t)))) *gs*)) ;;; Environment creation (define *ei* #f) (define *es* #f) (define *es0* #f) (define (initialize-environments!) (set! *ei* 0) (set! *es* '()) (set! *es0* '())) (define (create-environment v f) ;; conventions: V F (let ((e (make-environment *ei* (unspecified) (if v (if (symbol? v) (string-append (symbol->string v) "[" (number->string *ei*) "]") (string-append "[clone " v " " (number->string *ei*) "]")) (string-append "[inside " f " " (number->string *ei*) "]")) #f '() (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) (unspecified) 0))) (set! *ei* (+ *ei* 1)) (set! *es* (cons e *es*)) (set-environment-narrow-prototype! e e) (set-environment-narrow-clones! e (list e)) (set-environment-wide-prototype! e e) e)) ;;; Environment properties (define (environment-marked1? e) (not (zero? (bit-and (environment-booleans e) 1024)))) (define (set-environment-marked1?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 1024) (bit-and (environment-booleans e) (bit-not 1024))))) (define (environment-marked2? e) (not (zero? (bit-and (environment-booleans e) 512)))) (define (set-environment-marked2?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 512) (bit-and (environment-booleans e) (bit-not 512))))) (define (environment-passes-parameters-globally? e) (not (zero? (bit-and (environment-booleans e) 256)))) (define (set-environment-passes-parameters-globally?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 256) (bit-and (environment-booleans e) (bit-not 256))))) (define (environment-has-region? e) (not (zero? (bit-and (environment-booleans e) 128)))) (define (set-environment-has-region?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 128) (bit-and (environment-booleans e) (bit-not 128))))) (define (environment-has-nonatomic-region? e) (not (zero? (bit-and (environment-booleans e) 64)))) (define (set-environment-has-nonatomic-region?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 64) (bit-and (environment-booleans e) (bit-not 64))))) (define (environment-recursive? e) (not (zero? (bit-and (environment-booleans e) 32)))) (define (set-environment-recursive?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 32) (bit-and (environment-booleans e) (bit-not 32))))) (define (environment-reentrant? e) (not (zero? (bit-and (environment-booleans e) 16)))) (define (set-environment-reentrant?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 16) (bit-and (environment-booleans e) (bit-not 16))))) (define (environment-called-more-than-once? e) (not (zero? (bit-and (environment-booleans e) 8)))) (define (set-environment-called-more-than-once?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 8) (bit-and (environment-booleans e) (bit-not 8))))) (define (environment-has-external-self-tail-call? e) (not (zero? (bit-and (environment-booleans e) 4)))) (define (set-environment-has-external-self-tail-call?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 4) (bit-and (environment-booleans e) (bit-not 4))))) (define (environment-has-external-continuation-call? e) (not (zero? (bit-and (environment-booleans e) 2)))) (define (set-environment-has-external-continuation-call?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 2) (bit-and (environment-booleans e) (bit-not 2))))) (define (environment-has-closure? e) (not (zero? (bit-and (environment-booleans e) 1)))) (define (set-environment-has-closure?! e p?) (unless (boolean? p?) (fuck-up)) (set-environment-booleans! e (if p? (bit-or (environment-booleans e) 1) (bit-and (environment-booleans e) (bit-not 1))))) (define (environment-used? e) (and (called? e) (not (noop? e)))) (define (environment-accessed? e) (environment-used? e)) (define (has-region? e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-has-region? e)) (define (has-nonatomic-region? e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-has-nonatomic-region? e)) (define (recursive? e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-recursive? e)) (define (reentrant? e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-reentrant? e)) (define (called-more-than-once? e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-called-more-than-once? e)) (define (has-external-self-tail-call? e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-has-external-self-tail-call? e)) (define (has-external-continuation-call? e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-has-external-continuation-call? e)) (define (has-closure? e) (when (empty? e) (fuck-up)) (environment-has-closure? e)) (define (determine-whether-has-closure? e) ;; note: It should never happen that an environment doesn't have a closure ;; yet has hidden variables that hide as that environment. (some slotted? (variables e))) (define (infer-all-whether-has-closure?! p?) (when *p7?* (notify "Determining whether environments have closures")) (for-each (lambda (e) (cond ((has-closure? e) (when (and p? (not (determine-whether-has-closure? e))) (fuck-up))) ((determine-whether-has-closure? e) (set-environment-has-closure?! e #t) (when *p7?* (notify " ~a has a closure" (environment-name e))) (set! *again?* #t)))) *es*)) (define (empty? e) (eq? e #f)) (define (in-lined-in-recursive? e) (or (recursive? e) (and (unique-call-site? e) (in-lined-in-recursive? (expression-environment (call-site-expression (unique-call-site e))))))) (define (has-parent-slot? e) (not (empty? (parent-slot e)))) (define (unique-call-site? e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (and (= (length (environment-non-self-tail-call-sites e)) 1) (not (top-level-call-site? (unique-call-site e))))) (define (has-self-tail-call? e) (some (lambda (y) (and (not (top-level-call-site? y)) (can-be-self-tail-call-to? y e))) (call-sites e))) (define (converted-continuation? e) (eq? (expression-kind (environment-expression e)) 'converted-continuation)) (define (has-alloca? e) ;; note: This might not be the correct way to write this. I've been away from ;; this code for a while I don't remember what the correct way is. (when (unique-call-site? e) (fuck-up)) (or (some (lambda (x) (and (executed? x) (in-lined-in? (expression-environment x) e) (some (lambda (u-e) (and (type-used? (car u-e)) (stack-allocation? (cdr u-e)))) (expression-type-allocation-alist x)))) *calls*) (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((immediate-display) (unimplemented #f "Immediate display closures are not (yet) implemented")) ((indirect-flat) (unimplemented #f "Indirect flat closures are not (yet) implemented")) ((indirect-display) (unimplemented #f "Indirect display closures are not (yet) implemented")) ((linked) (some (lambda (e1) (and (called? e1) (in-lined-in? e1 e) (stack-allocation? (allocation e1)))) *es*)) (else (fuck-up))))) (define (has-setjmp? e) ;; note: This might not be the correct way to write this. I've been away from ;; this code for a while I don't remember what the correct way is. (when (unique-call-site? e) (fuck-up)) (some (lambda (x) (and (environment-used? (expression-environment x)) (in-lined-in? (expression-environment x) e) ;; needs work: This doesn't handle calls to CALL/CC via CALL/CC, ;; APPLY, FORK, or MUTEX. And it doesn't handle ;; CALL/CC calling a continuation. (or (and (eq? (expression-kind x) 'call) (= (length (expression-arguments x)) 1)) (and (eq? (expression-kind x) 'converted-call) (= (length (expression-arguments x)) 2))) (can-be? (primitive-procedure-type-named? 'call-with-current-continuation) (expression-type-set (expression-callee x))) (can-be? (lambda (u) (and (native-procedure-type? u) (callee-environment? u (recreate-call-site (create-call-site x) 'first-argument)) (can-be-non? fictitious? (first-parameter-type-set (callee-environment u (recreate-call-site (create-call-site x) 'first-argument)))))) (expression-type-set (first-argument x))))) *calls*)) ;;; Environment functions (define (call-sites e) (when (empty? e) (fuck-up)) (environment-call-sites e)) (define (allocation e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-allocation e)) (define (distance-from-root e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-distance-from-root e)) (define (free-variables e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-free-variables e)) (define (quick-parent e) (when (or (empty? e) (not (called? e))) (fuck-up)) (environment-quick-parent e)) (define (parent-slot e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-parent-slot e)) (define (descendents e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-descendents e)) (define (in-lined-environments e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (cons e (environment-properly-in-lined-environments e))) (define (properly-in-lined-environments e) (when (or (empty? e) (not (environment-used? e))) (fuck-up)) (environment-properly-in-lined-environments e)) (define (unique-call-site e) (when (or (empty? e) (not (environment-used? e)) (not (= (length (environment-non-self-tail-call-sites e)) 1))) (fuck-up)) (first (environment-non-self-tail-call-sites e))) (define (infer-all-unique-call-site!) (when *p7?* (notify "Determining unique call sites")) (for-each (lambda (e) (when (environment-used? e) (let* ((ys0 (environment-non-self-tail-call-sites e)) (ys1 (remove-if-not (lambda (y) (or (top-level-call-site? y) (not (can-be-self-tail-call-to? y e)))) ys0))) (when (< (length ys1) (length ys0)) (set-environment-non-self-tail-call-sites! e ys1) (when (and *p7?* (= (length ys1) 1)) (notify " Determined the unique call site of ~a" (environment-name e))) (set! *again?* #t))))) *es*)) (define (parent e) (expression-environment (environment-expression e))) (define (first-parameter-type-set e) (when (rest? e) (fuck-up)) (if (converted? e) ;; needs work: I'm not sure this is correct. (variable-type-set (second (variables e))) (variable-type-set (first (variables e))))) (define (return-type-set e) (when (empty? e) (fuck-up)) ;; note: Nonconverted continuations never return. (if (noop? e) *void* (expression-type-set (expression-body (environment-expression e))))) (define (environment-type e) (the-member (expression-type-set (environment-expression e)))) (define (home e) (if (unique-call-site? e) (home (expression-environment (call-site-expression (unique-call-site e)))) e)) (define (lexical-nesting-depth e) (if (empty? (parent e)) 0 (+ (lexical-nesting-depth (parent e)) 1))) (define (non-let-lexical-nesting-depth e) (cond ((empty? (parent e)) 0) ((let? (parent e)) (non-let-lexical-nesting-depth (parent e))) (else (+ (non-let-lexical-nesting-depth (parent e)) 1)))) ;;; Environment environment relations (define (ancestor? e1 e2) (when (or (empty? e1) (not (environment-used? e1)) (empty? e2) (not (environment-used? e2))) (fuck-up)) (not (not (memq e1 (ancestors e2))))) (define (determine-whether-ancestor? e1 e2) (or (some (lambda (g) (or (and (eq? e1 (variable-environment g)) (slotted? g)) (and (hidden? g) (some (lambda (e) (and ;; The paper doesn't contain this. This is here ;; because we don't compute ANCESTOR? for unused ;; environments. (environment-used? e) (ancestor? e1 e))) (narrow-clones (the-member (variable-type-set g))))))) (free-variables e2)) (some (lambda (g) (and (hidden? g) (some (lambda (e) (and ;; The paper doesn't contain this. This is here because we ;; don't compute ANCESTOR? for unused environments. (environment-used? e) (ancestor? e1 e))) (narrow-clones (the-member (variable-type-set g)))))) (variables e2)))) (define (infer-all-whether-ancestor?! p?) (when *p7?* (notify "Determining whether environments are ancestors of other environments")) (for-each (lambda (e2) (when (environment-used? e2) (let loop ((e1 (quick-parent e2))) (unless (empty? e1) (cond ((ancestor? e1 e2) (when (and p? (not (determine-whether-ancestor? e1 e2))) (fuck-up))) ((determine-whether-ancestor? e1 e2) (set-environment-ancestors! e2 (cons e1 (ancestors e2))) (when #f ;debugging (when *p7?* (notify " ~a is an ancestor of ~a" (environment-name e1) (environment-name e2)))) (set! *again?* #t))) (loop (quick-parent e1)))))) *es*)) (define (nested-in? e1 e2) ;; The NESTED-IN? relation is reflexive. (or (eq? e1 e2) (and (not (empty? e1)) (nested-in? (parent e1) e2)))) (define (properly-nested-in? e1 e2) ;; The PROPERLY-NESTED-IN? relation is irreflexive. (and (not (eq? e1 e2)) (nested-in? e1 e2))) ;;; Call-site creation (define *y* #f) (define *ys* #f) (define (create-call-site expression) (unless expression (fuck-up)) (make-call-site expression '())) (define (recreate-call-site y p) ;; conventions: P (unless (and (not (top-level-call-site? y)) (or (eq? p 'first-argument) (eq? p 'second-argument) (eq? p 'continuation-argument)) (or (null? (call-site-offsets y)) (eq? (first (call-site-offsets y)) 'first-argument) (eq? (first (call-site-offsets y)) 'second-argument))) (fuck-up)) (make-call-site (call-site-expression y) (cons p (call-site-offsets y)))) ;;; Call-site properties (define (top-level-call-site? y) (eq? y *y*)) (define (explicit-call-site? y) (and (not (top-level-call-site? y)) (null? (call-site-offsets y)))) (define (first-argument-call-site? y) (and (not (top-level-call-site? y)) (not (explicit-call-site? y)) (eq? (first (call-site-offsets y)) 'first-argument))) (define (second-argument-call-site? y) (and (not (top-level-call-site? y)) (not (explicit-call-site? y)) (eq? (first (call-site-offsets y)) 'second-argument))) (define (continuation-argument-call-site? y) (and (not (top-level-call-site? y)) (not (explicit-call-site? y)) (eq? (first (call-site-offsets y)) 'continuation-argument))) (define (purely-tail-call-site? y) ;; Common wisdom is that the notion of tail call is syntactic, i.e. a call in ;; tail position. But this contradicts the common wisdom that calls to ;; continuations are tail calls. Because a call to a continuation might be ;; from a non-tail position. And such a call site might be multimorphic so ;; might be both a tail-call site and a non-tail-call site. So much for common ;; wisdom. ;; APPLY and CALL-WITH-CURRENT-CONTINUATION tail call their first argument if ;; they themselves are tail calls. And implicit continuation calls are always ;; tail calls. ;; needs work: Calls to the first and second arguments of FORK and the first ;; argument of MUTEX are not tail calls. (or (top-level-call-site? y) (continuation-argument-call-site? y) (let ((x (call-site-expression y))) (and (or (eq? (expression-kind x) 'call) (eq? (expression-kind x) 'converted-call)) ;; needs work: A call in the source of a SET! to a non-accessed, ;; fictitious, or hidden variable can be a pure tail call if ;; the SET! is in tail position. (or (must-be? (lambda (u) (or (continuation-type? u) (not (executed? x)) (not ((truly-compatible-call? x) u)))) (expression-type-set (expression-callee x))) (let loop? ((x x)) (or (and (eq? (expression-kind (expression-parent x)) 'if) (or (eq? x (expression-consequent (expression-parent x))) (eq? x (expression-alternate (expression-parent x)))) (loop? (expression-parent x))) (or (eq? (expression-kind (expression-parent x)) 'lambda) (eq? (expression-kind (expression-parent x)) 'converted-lambda) (eq? (expression-kind (expression-parent x)) 'converted-continuation))))))))) (define (nonmerged-tail-recursive-purely-tail-call-site? y) (and (purely-tail-call-site? y) (some (lambda (e) (and (environment-marked1? e) (can-be-call-to? y e) (or (not (unique-call-site? e)) (not (same-call-site? y (unique-call-site e)))) (not (can-be-self-tail-call-to? y e)))) (proper-tail-callers (expression-environment (call-site-expression y)))))) ;;; Call-site functions (define (nonmerged-tail-recursive-purely-tail-call-site-callees y) (remove-if-not (lambda (e) (and (can-be-call-to? y e) (or (not (unique-call-site? e)) (not (same-call-site? y (unique-call-site e)))) (not (can-be-self-tail-call-to? y e)))) (proper-tail-callers (expression-environment (call-site-expression y))))) (define (call-site-callee y) (when (> (length (call-site-offsets y)) 1) (unimplemented y "unimplemented")) (cond ((explicit-call-site? y) (expression-callee (call-site-expression y))) ((first-argument-call-site? y) (first-argument (call-site-expression y))) ((second-argument-call-site? y) (second-argument (call-site-expression y))) ((continuation-argument-call-site? y) (continuation-argument (call-site-expression y))) (else (fuck-up)))) ;;; Call-site call-site relations (define (same-call-site? y1 y2) (or (and (top-level-call-site? y1) (top-level-call-site? y2)) (and (not (top-level-call-site? y1)) (not (top-level-call-site? y2)) (eq? (call-site-expression y1) (call-site-expression y2)) (equal? (call-site-offsets y1) (call-site-offsets y2))))) ;;; Call-site environment relations (define (can-be-call-to? y e) (not (not (memp same-call-site? y (call-sites e))))) (define (can-be-self-tail-call-to? y e) ;; needs work: This is not memoized but should be. ;; note: Self tail calls need not be just to the immediately enclosing ;; procedure but to any procedure that that is in-lined in. (and (not (noop? e)) (can-be-call-to? y e) (tail-call? y e) ;; This assumes that the IN-LINED-IN? relation is reflexive. (in-lined-in? (call-site-expression y) e))) ;;; Call-site type relations (define (goto? y u) (and (in-lined-in? (expression-environment (call-site-expression y)) (expression-environment (continuation-type-allocating-expression u))) (must-alias? u))) ;;; Generic properties (define (fictitious? u/w) (cond ((null-type? u/w) #t) ((true-type? u/w) #t) ((false-type? u/w) #t) ((char-type? u/w) #f) ((fixnum-type? u/w) #f) ((flonum-type? u/w) #f) ((rectangular-type? u/w) #f) ((input-port-type? u/w) #f) ((output-port-type? u/w) #f) ((eof-object-type? u/w) #t) ((pointer-type? u/w) #f) ((internal-symbol-type? u/w) #t) ((external-symbol-type? u/w) #f) ((primitive-procedure-type? u/w) #t) ((native-procedure-type? u/w) (native-procedure-type-fictitious? u/w)) ((foreign-procedure-type? u/w) #t) ((continuation-type? u/w) (continuation-type-fictitious? u/w)) ((string-type? u/w) #f) ((structure-type? u/w) (structure-type-fictitious? u/w)) ((headed-vector-type? u/w) #f) ((nonheaded-vector-type? u/w) #f) ((displaced-vector-type? u/w) #f) ((type-set? u/w) (type-set-fictitious? u/w)) (else (fuck-up)))) (define (determine-whether-native-procedure-type-fictitious? u) (case *closure-conversion-method* ((baseline conventional) #f) ((lightweight) (or (not (environment-accessed? u)) (every (lambda (e) (or (not (environment-used? e)) (let loop? ((e1 (quick-parent e))) (or (empty? e1) (and (not (ancestor? e1 e)) (loop? (quick-parent e1))))))) (narrow-clones u)))) (else (fuck-up)))) (define (determine-whether-continuation-type-fictitious? u) (case *closure-conversion-method* ((baseline conventional) #f) ((lightweight) (or (not (continuation-type-continuation-accessed? u)) (and (every (lambda (y) (in-lined-in? (expression-environment (call-site-expression y)) (expression-environment (continuation-type-allocating-expression u)))) (continuation-type-call-sites u)) (must-alias? u)))) (else (fuck-up)))) (define (determine-whether-structure-type-fictitious? u) (case *closure-conversion-method* ((baseline conventional) #f) ((lightweight) (every fictitious? (structure-type-slots u))) (else (fuck-up)))) (define (infer-all-whether-type-fictitious?! p?) (when *p7?* (notify "Determining whether types are fictitious")) (for-each (lambda (u) (cond ((fictitious? u) (unless (determine-whether-native-procedure-type-fictitious? u) (set-native-procedure-type-fictitious?! u #f) (when *p7?* (notify " U~s is not fictitious" (type-index u))) (set! *again?* #t))) ((and p? (determine-whether-native-procedure-type-fictitious? u)) (fuck-up)))) *native-procedure-types*) (for-each (lambda (u) (cond ((fictitious? u) (unless (determine-whether-continuation-type-fictitious? u) (set-continuation-type-fictitious?! u #f) (when *p7?* (notify " U~s is not fictitious" (type-index u))) (set! *again?* #t))) ((and p? (determine-whether-continuation-type-fictitious? u)) (fuck-up)))) *continuation-types*) (for-each (lambda (u) (cond ((fictitious? u) (unless (determine-whether-structure-type-fictitious? u) (set-structure-type-fictitious?! u #f) (when *p7?* (notify " U~s is not fictitious" (type-index u))) (set! *again?* #t))) ((and p? (determine-whether-structure-type-fictitious? u)) (fuck-up)))) *structure-types*)) (define (determine-whether-type-set-fictitious? w) ;; needs work: This really won't work until APPLY-CLOSED-WORLD-ASSUMPTION! is ;; called since all of the multiple members might turn out to be ;; the same. But don't worry, this errs on the conservative side. (case *closure-conversion-method* ((baseline conventional) #f) ((lightweight) (or (void? w) (and (not (multimorphic? w)) (must-be? fictitious? w)))) (else (fuck-up)))) (define (infer-all-whether-type-set-fictitious?! p?) (when *p7?* (notify "Determining whether type sets are fictitious")) (for-each (lambda (w) (cond ((fictitious? w) (unless (determine-whether-type-set-fictitious? w) (set-type-set-fictitious?! w #f) (when *p7?* (notify " W~s is not fictitious" (type-set-index w))) (set! *again?* #t))) ((and p? (determine-whether-type-set-fictitious? w)) (fuck-up)))) *ws*)) (define (has-parent-parameter? u/e) ;; Different narrow clones can have different ancestor sets. Narrow clones ;; can differ in whether they need a parent parameter. This was discovered ;; with the matrix.sc example of jbs@quiotix.com. This created problems when ;; applying PARENT-PARAMETER to a type instead of an environment and also ;; caused generation of incorrect code where one backchain was accessed as ;; the backchain of a narrow clone. Now we force all narrow clones to have ;; a parent parameter if one of them does. This might cause some procedures to ;; have a parent parameter that isn't used (i.e. reducing the amount of ;; parent-parameter elimination). So it goes. (some (lambda (e) (and (environment-used? e) (not (null? (ancestors e))))) (narrow-clones u/e))) (define (called? u/e) (cond ((native-procedure-type? u/e) (and (native-procedure-type-narrow-prototype u/e) (some called? (narrow-clones u/e)))) ((environment? u/e) (not (null? (call-sites u/e)))) (else (fuck-up)))) (define (let? u/e/x) (cond ((native-procedure-type? u/e/x) ;; needs work: This could use the wide notion of clone but that would be ;; just for error checking. (when (and (some let? (narrow-clones u/e/x)) (not (every let? (narrow-clones u/e/x)))) (fuck-up)) (let? (narrow-prototype u/e/x))) ((environment? u/e/x) ;; needs work: To say that a lambda expression that is the second argument ;; to a procedure that calls its first or second argument is a ;; let. (and (expression? (expression-parent (environment-expression u/e/x))) (or (eq? (expression-kind (expression-parent (environment-expression u/e/x))) 'call) (eq? (expression-kind (expression-parent (environment-expression u/e/x))) 'converted-call)) (eq? (expression-callee (expression-parent (environment-expression u/e/x))) (environment-expression u/e/x)))) ((expression? u/e/x) (unless (or (eq? (expression-kind u/e/x) 'call) (eq? (expression-kind u/e/x) 'converted-call)) (fuck-up)) (or (eq? (expression-kind (expression-callee u/e/x)) 'lambda) (eq? (expression-kind (expression-callee u/e/x)) 'converted-lambda) (eq? (expression-kind (expression-callee u/e/x)) 'converted-continuation))) (else (fuck-up)))) (define (noop? u/e/x) (cond ((native-procedure-type? u/e/x) ;; needs work: This could use the wide notion of clone but that would ;; be just for error checking. (when (and (some noop? (narrow-clones u/e/x)) (not (every noop? (narrow-clones u/e/x)))) (fuck-up)) (noop? (narrow-prototype u/e/x))) ((environment? u/e/x) (noop? (environment-expression u/e/x))) ((expression? u/e/x) (unless (or (eq? (expression-kind u/e/x) 'lambda) (eq? (expression-kind u/e/x) 'converted-lambda) (eq? (expression-kind u/e/x) 'converted-continuation)) (fuck-up)) (not (expression? (expression-body u/e/x)))) (else (fuck-up)))) (define (rest? u/e/x) (cond ((native-procedure-type? u/e/x) ;; needs work: This could use the wide notion of clone but that would ;; be just for error checking. (when (and (some rest? (narrow-clones u/e/x)) (not (every rest? (narrow-clones u/e/x)))) (fuck-up)) (rest? (narrow-prototype u/e/x))) ((environment? u/e/x) (rest? (environment-expression u/e/x))) ((expression? u/e/x) (unless (or (eq? (expression-kind u/e/x) 'lambda) (eq? (expression-kind u/e/x) 'converted-lambda) (eq? (expression-kind u/e/x) 'converted-continuation)) (fuck-up)) (not (list? (expression-parameters u/e/x)))) (else (fuck-up)))) (define (converted? e/x/y) ;; needs work: #F is ambiguous between the top-level call site and the empty ;; environment. (cond ((environment? e/x/y) (converted? (environment-expression e/x/y))) ((expression? e/x/y) (or (eq? (expression-kind e/x/y) 'converted-call) (eq? (expression-kind e/x/y) 'converted-lambda))) ((call-site? e/x/y) (and (not (continuation-argument-call-site? e/x/y)) ;; First argument call sites are converted if and only if their ;; expression is converted. (converted? (call-site-expression e/x/y)))) ((top-level-call-site? e/x/y) (converted? *x*)) (else (fuck-up)))) ;;; Generic functions (define (ancestors u/e) ;; note: This must use the narrow notion of clone because different wide ;; clones can have different ancestor sets. (cond ((native-procedure-type? u/e) (unless (pairwise? (lambda (e1 e2) (or (not (environment-used? e1)) (not (environment-used? e2)) (set-equalq? (ancestors e1) (ancestors e2)))) (narrow-clones u/e)) (fuck-up)) (ancestors (narrow-prototype u/e))) ((environment? u/e) (when (or (empty? u/e) (not (environment-used? u/e))) (fuck-up)) (environment-ancestors u/e)) (else (fuck-up)))) (define (parent-parameter u/e) ;; It used to be possible for two different narrow clones to have different ;; parent parameters. This was discovered with the matrix.sc example of ;; jbs@quiotix.com. This created problems when applying PARENT-PARAMETER to ;; a type instead of an environment and also caused generation of incorrect ;; code where one backchain was accessed as the backchain of a narrow clone. ;; Now we take the most-nested parent parameter of all the narrow clones. ;; This might cause some procedures to have a parent parameter that is used ;; only to indirect through a parent slot and not to access other slots (i.e. ;; reducing the amount of parent-parameter compression). So it goes. (environment-parent-parameter (narrow-prototype u/e))) (define (narrow-prototype u/e) (cond ((native-procedure-type? u/e) (unless (eq? (native-procedure-type-narrow-prototype u/e) (narrow-prototype (native-procedure-type-narrow-prototype u/e))) (fuck-up)) (native-procedure-type-narrow-prototype u/e)) ((environment? u/e) (unless (eq? (environment-narrow-prototype u/e) (environment-narrow-prototype (environment-narrow-prototype u/e))) (fuck-up)) (environment-narrow-prototype u/e)) (else (fuck-up)))) (define (wide-prototype u/e) ;; This is only used by WIDE-CLONES?, WIDE-CLONES, CLONE-EXPRESSION, ;; PRINT-MAXIMAL-CLONE-RATE, and STALIN. (cond ((native-procedure-type? u/e) (unless (pairwise? (lambda (e1 e2) (eq? (wide-prototype e1) (wide-prototype e2))) (narrow-clones u/e)) (fuck-up)) (wide-prototype (narrow-prototype u/e))) ((environment? u/e) (environment-wide-prototype u/e)) (else (fuck-up)))) (define (narrow-clones u/e) (if (and (native-procedure-type? u/e) (not (native-procedure-type-narrow-prototype u/e))) '() (environment-narrow-clones (narrow-prototype u/e)))) (define (wide-clones u/e) ;; This is only used by PRINT-CLONE-RATES. (remove-if-not (lambda (e) (eq? (wide-prototype u/e) (wide-prototype e))) *es*)) (define (variables e/x) ;; This only returns the variables of E/X itself, not things in-lined in E/X. (cond ((environment? e/x) (variables (environment-expression e/x))) ((expression? e/x) (let loop ((gs (expression-parameters e/x))) (cond ((null? gs) '()) ((pair? gs) (cons (first gs) (loop (rest gs)))) ((variable? gs) (list gs)) (else (fuck-up))))) (else (fuck-up)))) ;;; Generic relations (define (in-lined-in? e/x1 e/x2) ;; The IN-LINED-IN? relation is reflexive. (cond ((environment? e/x1) (and ;; This is just because of *CLOSURE-CONVERSION-METHOD*. (environment-used? e/x1) (cond ((environment? e/x2) (or (eq? e/x1 e/x2) (and (unique-call-site? e/x1) (in-lined-in? (call-site-expression (unique-call-site e/x1)) e/x2)))) ((expression? e/x2) (and (unique-call-site? e/x1) (in-lined-in? (call-site-expression (unique-call-site e/x1)) e/x2))) (else (fuck-up))))) ((expression? e/x1) (cond ((environment? e/x2) (and (not (empty? (expression-environment e/x1))) (in-lined-in? (expression-environment e/x1) e/x2))) ((expression? e/x2) (or (eq? e/x1 e/x2) (if (or (eq? (expression-kind e/x1) 'lambda) (eq? (expression-kind e/x1) 'converted-lambda) (eq? (expression-kind e/x1) 'converted-continuation)) (in-lined-in? (expression-lambda-environment e/x1) e/x2) (and (not (empty? (expression-parent e/x1))) (in-lined-in? (expression-parent e/x1) e/x2))))) (else (fuck-up)))) (else (fuck-up)))) (define (properly-in-lined-in? e/x1 e/x2) ;; The PROPERLY-IN-LINED-IN? relation is irreflexive. (and (not (eq? e/x1 e/x2)) (in-lined-in? e/x1 e/x2))) (define (unmark-types!) (for-each (lambda (u) (set-internal-symbol-type-marked?! u #f)) *internal-symbol-types*) (for-each (lambda (u) (set-external-symbol-type-marked?! u #f)) *external-symbol-types*) (for-each (lambda (u) (set-primitive-procedure-type-marked?! u #f)) *primitive-procedure-types*) (for-each (lambda (u) (set-native-procedure-type-marked?! u #f)) *native-procedure-types*) (for-each (lambda (u) (set-foreign-procedure-type-marked?! u #f)) *foreign-procedure-types*) (for-each (lambda (u) (set-continuation-type-marked?! u #f)) *continuation-types*) (for-each (lambda (u) (set-string-type-marked?! u #f)) *string-types*) (for-each (lambda (u) (set-structure-type-marked?! u #f)) *structure-types*) (for-each (lambda (u) (set-headed-vector-type-marked?! u #f)) *headed-vector-types*) (for-each (lambda (u) (set-nonheaded-vector-type-marked?! u #f)) *nonheaded-vector-types*) (for-each (lambda (u) (set-displaced-vector-type-marked?! u #f)) *displaced-vector-types*)) (define (unmark-types-and-type-sets!) (unmark-types!) (for-each (lambda (w) (set-type-set-marked?! w #f)) *ws*)) (define (some-pointed-to-type p? u/w1) ;; conventions: P? (let loop? ((u/w1 u/w1)) (cond ((type? u/w1) (cond ;; Internal symbols do not point to anything. ((internal-symbol-type? u/w1) (and (not (internal-symbol-type-marked? u/w1)) (begin (set-internal-symbol-type-marked?! u/w1 #t) (p? u/w1)))) ;; External symbols point to their displaced string. ((external-symbol-type? u/w1) (and (not (external-symbol-type-marked? u/w1)) (external-symbol-type-symbol->string-accessed? u/w1) (begin (set-external-symbol-type-marked?! u/w1 #t) (or (p? u/w1) (loop? (external-symbol-type-displaced-string-type u/w1)))))) ;; Primitive procedures do not point to anything. ((primitive-procedure-type? u/w1) (and (not (primitive-procedure-type-marked? u/w1)) (begin (set-primitive-procedure-type-marked?! u/w1 #t) (p? u/w1)))) ;; A native procedure points to all of the accessed variables in the ;; environments of all of its proper ancestors. It does *not* point to ;; its parent native procedure. ((native-procedure-type? u/w1) (and (not (native-procedure-type-marked? u/w1)) (begin (set-native-procedure-type-marked?! u/w1 #t) (or (p? u/w1) (some (lambda (e) (and (environment-accessed? e) (some (lambda (g) (and (accessed? g) (not (necessarily-fictitious? (variable-type-set g))) (loop? (variable-type-set g)))) (free-variables e)))) (narrow-clones u/w1)))))) ;; Foreign procedures do not point to anything. ((foreign-procedure-type? u/w1) (and (not (foreign-procedure-type-marked? u/w1)) (begin (set-foreign-procedure-type-marked?! u/w1 #t) (p? u/w1)))) ;; Continuations do not point to anything. ((continuation-type? u/w1) (and (not (continuation-type-marked? u/w1)) (begin (set-continuation-type-marked?! u/w1 #t) (p? u/w1)))) ;; Strings do not point to anything. ((string-type? u/w1) (and (not (string-type-marked? u/w1)) (begin (set-string-type-marked?! u/w1 #t) (p? u/w1)))) ;; Structures point to their slots. ((structure-type? u/w1) (and (not (structure-type-marked? u/w1)) (begin (set-structure-type-marked?! u/w1 #t) (or (p? u/w1) (some (lambda (p? w) (and p? (loop? w))) (structure-type-structure-ref-accessed? u/w1) (structure-type-slots u/w1)))))) ;; Headed vectors point to their element. ((headed-vector-type? u/w1) (and (not (headed-vector-type-marked? u/w1)) (begin (set-headed-vector-type-marked?! u/w1 #t) (or (p? u/w1) (and (headed-vector-type-vector-ref-accessed? u/w1) (loop? (headed-vector-type-element u/w1))))))) ;; Nonheaded vectors point to their element. ((nonheaded-vector-type? u/w1) (and (not (nonheaded-vector-type-marked? u/w1)) (begin (set-nonheaded-vector-type-marked?! u/w1 #t) (or (p? u/w1) (and (nonheaded-vector-type-vector-ref-accessed? u/w1) (loop? (nonheaded-vector-type-element u/w1))))))) ;; Displaced vectors point to their displaced vector. ((displaced-vector-type? u/w1) (and (not (displaced-vector-type-marked? u/w1)) (begin (set-displaced-vector-type-marked?! u/w1 #t) (or (p? u/w1) (and (displaced-vector-type-vector-ref-accessed? u/w1) (loop? (displaced-vector-type-displaced-vector-type u/w1))))))) (else (p? u/w1)))) ((type-set? u/w1) (can-be? loop? u/w1)) (else (fuck-up))))) (define (for-each-pointed-to-type p u/w1) ;; conventions: P (let loop ((u/w1 u/w1)) (cond ((type? u/w1) (cond ;; Internal symbols do not point to anything. ((internal-symbol-type? u/w1) (unless (internal-symbol-type-marked? u/w1) (set-internal-symbol-type-marked?! u/w1 #t) (p u/w1))) ;; External symbols point to their displaced string. ((external-symbol-type? u/w1) (unless (external-symbol-type-marked? u/w1) (set-external-symbol-type-marked?! u/w1 #t) (p u/w1) (loop (external-symbol-type-displaced-string-type u/w1)))) ;; Primitive procedures do not point to anything. ((primitive-procedure-type? u/w1) (unless (primitive-procedure-type-marked? u/w1) (set-primitive-procedure-type-marked?! u/w1 #t) (p u/w1))) ;; A native procedure points to all of the accessed variables in the ;; environments of all of its proper ancestors. It does *not* point ;; to its parent native procedure. ((native-procedure-type? u/w1) (unless (native-procedure-type-marked? u/w1) (set-native-procedure-type-marked?! u/w1 #t) (p u/w1) (for-each (lambda (e) (when (environment-accessed? e) (for-each (lambda (g) (when (and (accessed? g) (not (necessarily-fictitious? (variable-type-set g)))) (loop (variable-type-set g)))) (free-variables e)))) (narrow-clones u/w1)))) ;; Foreign procedures do not point to anything. ((foreign-procedure-type? u/w1) (unless (foreign-procedure-type-marked? u/w1) (set-foreign-procedure-type-marked?! u/w1 #t) (p u/w1))) ;; Continuations do not point to anything. ((continuation-type? u/w1) (unless (continuation-type-marked? u/w1) (set-continuation-type-marked?! u/w1 #t) (p u/w1))) ;; Strings do not point to anything. ((string-type? u/w1) (unless (string-type-marked? u/w1) (set-string-type-marked?! u/w1 #t) (p u/w1))) ;; Structures point to their slots. ((structure-type? u/w1) (unless (structure-type-marked? u/w1) (set-structure-type-marked?! u/w1 #t) (p u/w1) (for-each loop (structure-type-slots u/w1)))) ;; Headed vectors point to their element. ((headed-vector-type? u/w1) (unless (headed-vector-type-marked? u/w1) (set-headed-vector-type-marked?! u/w1 #t) (p u/w1) (loop (headed-vector-type-element u/w1)))) ;; Nonheaded vectors point to their element. ((nonheaded-vector-type? u/w1) (unless (nonheaded-vector-type-marked? u/w1) (set-nonheaded-vector-type-marked?! u/w1 #t) (p u/w1) (loop (nonheaded-vector-type-element u/w1)))) ;; Displaced vectors point to their displaced vector. ((displaced-vector-type? u/w1) (unless (displaced-vector-type-marked? u/w1) (set-displaced-vector-type-marked?! u/w1 #t) (p u/w1) (loop (displaced-vector-type-displaced-vector-type u/w1)))) (else (p u/w1)))) ((type-set? u/w1) (for-each-member loop u/w1)) (else (fuck-up))))) (define (points-to? u/w1 u2) ;; The POINTS-TO? relation is reflexive. (unmark-types!) (some-pointed-to-type (lambda (u1) (eq? u1 u2)) u/w1)) ;;; Polyvariance (define (clone-size e) (let loop ((x (environment-expression e)) (es '())) (case (expression-kind x) ((null-constant) 1) ((true-constant) 1) ((false-constant) 1) ((char-constant) 1) ((fixnum-constant) 1) ((flonum-constant) 1) ((rectangular-constant) 1) ((string-constant) 1) ((symbol-constant) 1) ((pair-constant) (+ 1 (loop (car (expression-constant x)) es) (loop (cdr (expression-constant x)) es))) ((vector-constant) (+ 1 (reduce-vector + (map-vector (lambda (x) (loop x es)) (expression-constant x)) 0))) ((lambda converted-lambda converted-continuation) (+ 1 (if (noop? x) 0 (loop (expression-body x) (cons (expression-lambda-environment x) es))))) ((set!) (+ 1 (loop (expression-source x) es))) ((if) (+ 1 (loop (expression-antecedent x) es) (loop (expression-consequent x) es) (loop (expression-alternate x) es))) ((primitive-procedure) 1) ((foreign-procedure) 1) ((access) 1) ((call converted-call) (+ 1 (loop (expression-callee x) es) (reduce + (map (lambda (x) (loop x es)) (expression-arguments x)) 0))) (else (fuck-up))))) (define (clone-expression x) (let loop ((x x) (gss '())) (case (expression-kind x) ((null-constant) (let ((x (create-expression 'null-constant x #f))) (set-expression-type-set! x (create-type-set x)) x)) ((true-constant) (let ((x (create-expression 'true-constant x #f))) (set-expression-type-set! x (create-type-set x)) x)) ((false-constant) (let ((x (create-expression 'false-constant x #f))) (set-expression-type-set! x (create-type-set x)) x)) ((char-constant) (let ((x (create-expression 'char-constant x (expression-constant x)))) (set-expression-type-set! x (create-type-set x)) x)) ((fixnum-constant) (let ((x (create-expression 'fixnum-constant x (expression-constant x)))) (set-expression-type-set! x (create-type-set x)) x)) ((flonum-constant) (let ((x (create-expression 'flonum-constant x (expression-constant x)))) (set-expression-type-set! x (create-type-set x)) x)) ((rectangular-constant) (let ((x (create-expression 'rectangular-constant x (expression-constant x)))) (set-expression-type-set! x (create-type-set x)) x)) ((string-constant) (let ((x (create-expression 'string-constant x (expression-constant x)))) (set-expression-type-set! x (create-type-set x)) x)) ((symbol-constant) (let ((x (create-expression 'symbol-constant x (expression-constant x)))) (set-expression-type-set! x (create-type-set x)) x)) ((pair-constant) (let ((x (create-expression 'pair-constant x (cons (loop (car (expression-constant x)) gss) (loop (cdr (expression-constant x)) gss))))) (set-expression-type-set! x (create-type-set x)) (set-expression-parent! (car (expression-constant x)) x) (set-expression-parent! (cdr (expression-constant x)) x) x)) ((vector-constant) (let ((x (create-expression 'vector-constant x (map-vector (lambda (x) (loop x gss)) (expression-constant x))))) (set-expression-type-set! x (create-type-set x)) (for-each-vector (lambda (x1) (set-expression-parent! x1 x)) (expression-constant x)) x)) ((lambda) (let ((e1 (create-environment (environment-name (narrow-prototype (expression-lambda-environment x))) #f))) (set-environment-split! e1 #t) (when #f ;debugging (unless (null? gss) (notify "Deep cloning: ~a -> ~a" (environment-name (expression-lambda-environment x)) (environment-name e1)))) (when (null? gss) (set-environment-narrow-prototype! e1 (narrow-prototype (expression-lambda-environment x))) (set-environment-narrow-clones! e1 '()) (set-environment-narrow-clones! (narrow-prototype (expression-lambda-environment x)) (cons e1 (narrow-clones (expression-lambda-environment x))))) (set-environment-wide-prototype! e1 (wide-prototype (expression-lambda-environment x))) (let* ((gs (let loop ((gs (expression-parameters x))) (cond ((null? gs) '()) ((pair? gs) (let ((g (create-variable (first gs)))) (set-variable-type-set! g (create-type-set g)) (cons g (loop (rest gs))))) ((variable? gs) (let ((g (create-variable gs))) (set-variable-type-set! g (create-type-set g)) g)) (else (fuck-up))))) (x1 (create-lambda-expression x e1 gs (if (noop? x) #f (loop (expression-body x) (cons gs gss)))))) ;; The lambda expression for narrow clones must be initialized to used ;; if the narrow prototype is used. The lambda expression for wide ;; clones will always be a narrow prototype and will be initialized to ;; used if it actually is reached. (when (null? gss) (set-expression-reached?! x1 (expression-reached? x))) (set-expression-type-set! x1 (if (null? gss) ;; The lambda expressions for narrow clones share the same type set. (expression-type-set x) ;; The lambda expressions for wide clones each have their own type ;; set. (create-type-set x1))) (unless (noop? x1) (set-expression-parent! (expression-body x1) x1)) (annotate-environment-variables-with-their-environment! e1) (annotate-environment-expressions-with-their-environment! e1) x1))) ((converted-lambda) (let ((e1 (create-environment (environment-name (narrow-prototype (expression-lambda-environment x))) #f))) (set-environment-split! e1 #t) (when #f ;debugging (unless (null? gss) (notify "Deep cloning: ~a -> ~a" (environment-name (expression-lambda-environment x)) (environment-name e1)))) (when (null? gss) (set-environment-narrow-prototype! e1 (narrow-prototype (expression-lambda-environment x))) (set-environment-narrow-clones! e1 '()) (set-environment-narrow-clones! (narrow-prototype (expression-lambda-environment x)) (cons e1 (narrow-clones (expression-lambda-environment x))))) (set-environment-wide-prototype! e1 (wide-prototype (expression-lambda-environment x))) (let* ((gs (let loop ((gs (expression-parameters x))) (cond ((null? gs) '()) ((pair? gs) (let ((g (create-variable (first gs)))) (set-variable-type-set! g (create-type-set g)) (cons g (loop (rest gs))))) ((variable? gs) (let ((g (create-variable gs))) (set-variable-type-set! g (create-type-set g)) g)) (else (fuck-up))))) (x1 (create-converted-lambda-expression x e1 gs (if (noop? x) #f (loop (expression-body x) (cons gs gss)))))) ;; The lambda expression for narrow clones must be initialized to used ;; if the narrow prototype is used. The lambda expression for wide ;; clones will always be a narrow prototype and will be initialized to ;; used if it actually is reached. (when (null? gss) (set-expression-reached?! x1 (expression-reached? x))) (set-expression-type-set! x1 (if (null? gss) ;; The lambda expressions for narrow clones share the same type set. (expression-type-set x) ;; The lambda expressions for wide clones each have their own type ;; set. (create-type-set x1))) (unless (noop? x1) (set-expression-parent! (expression-body x1) x1)) (annotate-environment-variables-with-their-environment! e1) (annotate-environment-expressions-with-their-environment! e1) x1))) ((converted-continuation) (let ((e1 (create-environment (environment-name (narrow-prototype (expression-lambda-environment x))) #f))) (set-environment-split! e1 #t) (when #f ;debugging (unless (null? gss) (notify "Deep cloning: ~a -> ~a" (environment-name (expression-lambda-environment x)) (environment-name e1)))) (when (null? gss) (set-environment-narrow-prototype! e1 (narrow-prototype (expression-lambda-environment x))) (set-environment-narrow-clones! e1 '()) (set-environment-narrow-clones! (narrow-prototype (expression-lambda-environment x)) (cons e1 (narrow-clones (expression-lambda-environment x))))) (set-environment-wide-prototype! e1 (wide-prototype (expression-lambda-environment x))) (let* ((gs (let loop ((gs (expression-parameters x))) (cond ((null? gs) '()) ((pair? gs) (let ((g (create-variable (first gs)))) (set-variable-type-set! g (create-type-set g)) (cons g (loop (rest gs))))) ((variable? gs) (let ((g (create-variable gs))) (set-variable-type-set! g (create-type-set g)) g)) (else (fuck-up))))) (x1 (create-converted-continuation-expression x e1 gs (if (noop? x) #f (loop (expression-body x) (cons gs gss)))))) ;; The lambda expression for narrow clones must be initialized to used ;; if the narrow prototype is used. The lambda expression for wide ;; clones will always be a narrow prototype and will be initialized to ;; used if it actually is reached. (when (null? gss) (set-expression-reached?! x1 (expression-reached? x))) (set-expression-type-set! x1 (if (null? gss) ;; The lambda expressions for narrow clones share the same type set. (expression-type-set x) ;; The lambda expressions for wide clones each have their own type ;; set. (create-type-set x1))) (unless (noop? x1) (set-expression-parent! (expression-body x1) x1)) (annotate-environment-variables-with-their-environment! e1) (annotate-environment-expressions-with-their-environment! e1) x1))) ((set!) (let ((x (create-set!-expression x (let outer ((gss1 gss) (e (expression-environment x))) (if (null? gss1) (expression-variable x) (let inner ((gs1 (first gss1)) (gs2 (expression-parameters (environment-expression e)))) (cond ((null? gs1) (unless (null? gs2) (fuck-up)) (outer (rest gss1) (parent e))) ((null? gs2) (fuck-up)) ((and (pair? gs1) (pair? gs2)) (if (eq? (first gs2) (expression-variable x)) (first gs1) (inner (rest gs1) (rest gs2)))) ((and (variable? gs1) (variable? gs2)) (if (eq? gs2 (expression-variable x)) gs1 (outer (rest gss1) (parent e)))) (else (fuck-up)))))) (loop (expression-source x) gss)))) (set-expression-type-set! x (create-type-set x)) (set-expression-parent! (expression-source x) x) (set-variable-assignments! (expression-variable x) (cons x (variable-assignments (expression-variable x)))) (set-variable-references! (expression-variable x) (cons x (variable-references (expression-variable x)))) x)) ((if) (let ((x (create-if-expression x (loop (expression-antecedent x) gss) (loop (expression-consequent x) gss) (loop (expression-alternate x) gss)))) (set-expression-type-set! x (create-type-set x)) (set-expression-parent! (expression-antecedent x) x) (set-expression-parent! (expression-consequent x) x) (set-expression-parent! (expression-alternate x) x) x)) ((primitive-procedure) (let ((x (create-expression 'primitive-procedure x (expression-constant x)))) (set-expression-type-set! x (create-type-set x)) x)) ((foreign-procedure) (let ((x (create-expression 'foreign-procedure x (expression-constant x)))) (set-expression-type-set! x (create-type-set x)) x)) ((access) (let ((x (create-access-expression x (let outer ((gss1 gss) (e (expression-environment x))) (if (null? gss1) (expression-variable x) (let inner ((gs1 (first gss1)) (gs2 (expression-parameters (environment-expression e)))) (cond ((null? gs1) (unless (null? gs2) (fuck-up)) (outer (rest gss1) (parent e))) ((null? gs2) (fuck-up)) ((and (pair? gs1) (pair? gs2)) (if (eq? (first gs2) (expression-variable x)) (first gs1) (inner (rest gs1) (rest gs2)))) ((and (variable? gs1) (variable? gs2)) (if (eq? gs2 (expression-variable x)) gs1 (outer (rest gss1) (parent e)))) (else (fuck-up))))))))) (set-expression-type-set! x (create-type-set x)) (set-variable-accesses! (expression-variable x) (cons x (variable-accesses (expression-variable x)))) (set-variable-references! (expression-variable x) (cons x (variable-references (expression-variable x)))) x)) ((call) (let ((x (create-call-expression x (loop (expression-callee x) gss) (map (lambda (x) (loop x gss)) (expression-arguments x))))) (set-expression-type-set! x (create-type-set x)) (set-expression-parent! (expression-callee x) x) (for-each (lambda (x1) (set-expression-parent! x1 x)) (expression-arguments x)) x)) ((converted-call) (let ((x (create-converted-call-expression x (loop (expression-callee x) gss) (map (lambda (x) (loop x gss)) (expression-arguments x))))) (set-expression-type-set! x (create-type-set x)) (set-expression-parent! (expression-callee x) x) (for-each (lambda (x1) (set-expression-parent! x1 x)) (expression-arguments x)) x)) (else (fuck-up))))) (define (clone e) (let* ((x (environment-expression (narrow-prototype e))) (x1 (clone-expression x))) (set-expression-parent! x1 (expression-parent x)) (expression-lambda-environment x1))) (define (callee-environment? u y) (assp same-call-site? y (native-procedure-type-call-site-environment-alist u))) (define (callee-environment u y) (unless (callee-environment? u y) (when *types-frozen?* (fuck-up)) (let ((e (if (and (explicit-call-site? y) (expression-original-expression (call-site-expression y))) (let ((y1 (create-call-site (expression-original-expression (call-site-expression y))))) (if (callee-environment? u y1) (let ((e (cdr (callee-environment? u y1)))) (cond ((nested-in? (expression-environment (call-site-expression y1)) e) (let loop ((e1 (expression-environment (call-site-expression y)))) (if (or (eq? e e1) (eq? (environment-expression e) (expression-original-expression (environment-expression e1)))) e1 (loop (parent e1))))) ((eq? (environment-split e) #t) (when #f ;debugging (notify "Chain cloning x~s ~a->[clone ~a ~s]" (expression-index (call-site-expression y)) (environment-name e) (environment-name (narrow-prototype e)) *ei*) (notify "~s" (undecorate (call-site-expression y)))) (clone e)) (else (narrow-prototype u)))) (narrow-prototype u))) (narrow-prototype u)))) (set-native-procedure-type-call-site-environment-alist! u (cons (cons y e) (native-procedure-type-call-site-environment-alist u))))) (cdr (callee-environment? u y))) ;;; `Necessary' procedures ;;; This procedure is necessary (sic) because it is called by ;;; DEFINE-PRIMITIVE-PROCEDURE EQ? and DETERMINE-ESCAPING-TYPES! before ;;; PERFORM-LIGHTWEIGHT-CLOSURE-CONVERSION! determines FICTITIOUS?. (define (necessarily-fictitious? u) (or (null-type? u) (true-type? u) (false-type? u) (eof-object-type? u) (internal-symbol-type? u) (primitive-procedure-type? u) (and (native-procedure-type? u) (if *types-frozen?* (native-procedure-type-necessarily-fictitious? u) (noop? u))) (foreign-procedure-type? u) ;; note: This used to count a structure type as necessarily fictitious ;; when every slot was necessarily fictitious and types were frozen. ;; But this is unsound because uniqueness is asserted after escaping ;; types are determined and uniqueness can change a type from being ;; fictitious to being nonfictitious. This happens in veto.sc. (and (structure-type? u) (null? (structure-type-slots u))))) (define (type-set-necessarily-fictitious? w) (or (void? w) (and (monomorphic? w) (necessarily-fictitious? (the-member w))))) (define (determine-necessarily-fictitious-native-procedure-types!) (for-each (lambda (u) (set-native-procedure-type-necessarily-fictitious?! u #t)) *native-procedure-types*) (let loop () (let ((again? #f)) (for-each (lambda (u) (unless (or (not (native-procedure-type-necessarily-fictitious? u)) (not (called? u)) (noop? u) (every (lambda (e) (or (not (environment-used? e)) (every (lambda (g) (or (not (accessed? g)) (type-set-necessarily-fictitious? (variable-type-set g)))) (free-variables e)))) (narrow-clones u))) (set-native-procedure-type-necessarily-fictitious?! u #f) (set! again? #t))) *native-procedure-types*) (when again? (loop))))) ;;; Program points (define (before x) (make-program-point #t x)) (define (after x) (make-program-point #f x)) (define (before? d) (program-point-before? d)) (define (after? d) (not (program-point-before? d))) (define (expression d) (program-point-expression d)) (define (same-program-point? d1 d2) (and (eq? (before? d1) (before? d2)) (eq? (expression d1) (expression d2)))) (define (all-program-points) (append (map before *xs*) (map after *xs*))) (define (control-directly-flows? d1 d2) ;; needs work: To handle calls to primitive, native, and foreign procedures ;; that don't return. (or (and (before? d1) (after? d2) (eq? (expression d1) (expression d2)) (or (eq? (expression-kind (expression d1)) 'null-constant) (eq? (expression-kind (expression d1)) 'true-constant) (eq? (expression-kind (expression d1)) 'false-constant) (eq? (expression-kind (expression d1)) 'char-constant) (eq? (expression-kind (expression d1)) 'fixnum-constant) (eq? (expression-kind (expression d1)) 'flonum-constant) (eq? (expression-kind (expression d1)) 'rectangular-constant) (eq? (expression-kind (expression d1)) 'string-constant) (eq? (expression-kind (expression d1)) 'symbol-constant) (eq? (expression-kind (expression d1)) 'pair-constant) (eq? (expression-kind (expression d1)) 'vector-constant) (eq? (expression-kind (expression d1)) 'lambda) (eq? (expression-kind (expression d1)) 'converted-lambda) (eq? (expression-kind (expression d1)) 'converted-continuation) (eq? (expression-kind (expression d1)) 'primitive-procedure) (eq? (expression-kind (expression d1)) 'foreign-procedure) (eq? (expression-kind (expression d1)) 'access))) ;; From before SET! to before source. (and (before? d1) (before? d2) (eq? (expression-kind (expression d1)) 'set!) (eq? (expression-source (expression d1)) (expression d2))) ;; From after source to after SET!. (and (after? d1) (after? d2) (eq? (expression-kind (expression d2)) 'set!) (eq? (expression-source (expression d2)) (expression d1))) ;; From before IF to before antecedent. (and (before? d1) (before? d2) (eq? (expression-kind (expression d1)) 'if) (eq? (expression-antecedent (expression d1)) (expression d2))) ;; From after antecedent to before consequent and alternate. (and (after? d1) (before? d2) (expression-parent (expression d1)) (eq? (expression-kind (expression-parent (expression d1))) 'if) (eq? (expression-antecedent (expression-parent (expression d1))) (expression d1)) (or (and (eq? (expression-consequent (expression-parent (expression d1))) (expression d2)) (can-be-non? false-type? (expression-type-set (expression-antecedent (expression-parent (expression d1)))))) (and (eq? (expression-alternate (expression-parent (expression d1))) (expression d2)) (can-be? false-type? (expression-type-set (expression-antecedent (expression-parent (expression d1)))))))) ;; From after consequent and alternate to after IF. (and (after? d1) (after? d2) (expression-parent (expression d1)) (eq? (expression-kind (expression-parent (expression d1))) 'if) (or (eq? (expression-consequent (expression-parent (expression d1))) (expression d1)) (eq? (expression-alternate (expression-parent (expression d1))) (expression d1))) (eq? (expression-parent (expression d1)) (expression d2))) ;; note: The following all assume a callee-first left-to-right argument ;; evaluation order. ;; From before call to before callee. (and (before? d1) (before? d2) (or (eq? (expression-kind (expression d1)) 'call) (eq? (expression-kind (expression d1)) 'converted-call)) (eq? (expression-callee (expression d1)) (expression d2))) ;; From after callee to before first argument. (and (after? d1) (before? d2) (expression-parent (expression d1)) (or (eq? (expression-kind (expression-parent (expression d1))) 'call) (eq? (expression-kind (expression-parent (expression d1))) 'converted-call)) (eq? (expression-callee (expression-parent (expression d1))) (expression d1)) (not (null? (expression-arguments (expression-parent (expression d1))))) (eq? (first (expression-arguments (expression-parent (expression d1)))) (expression d2))) ;; From after each argument to before next argument. (and (after? d1) (before? d2) (expression-parent (expression d1)) (or (eq? (expression-kind (expression-parent (expression d1))) 'call) (eq? (expression-kind (expression-parent (expression d1))) 'converted-call)) (memq (expression d1) (expression-arguments (expression-parent (expression d1)))) (< (positionq (expression d1) (expression-arguments (expression-parent (expression d1)))) (- (length (expression-arguments (expression-parent (expression d1)))) 1)) (eq? (list-ref (expression-arguments (expression-parent (expression d1))) (+ (positionq (expression d1) (expression-arguments (expression-parent (expression d1)))) 1)) (expression d2))) ;; From after callee or last argument to before target when target is a ;; non-noop native procedure. (and (after? d1) (before? d2) (expression-parent (expression d1)) (or (eq? (expression-kind (expression-parent (expression d1))) 'call) (eq? (expression-kind (expression-parent (expression d1))) 'converted-call)) (or (and (eq? (expression-callee (expression-parent (expression d1))) (expression d1)) (null? (expression-arguments (expression-parent (expression d1))))) (and (memq (expression d1) (expression-arguments (expression-parent (expression d1)))) (= (positionq (expression d1) (expression-arguments (expression-parent (expression d1)))) (- (length (expression-arguments (expression-parent (expression d1)))) 1)))) (expression-parent (expression d2)) (or (eq? (expression-kind (expression-parent (expression d2))) 'lambda) (eq? (expression-kind (expression-parent (expression d2))) 'converted-lambda) (eq? (expression-kind (expression-parent (expression d2))) 'converted-continuation)) (called? (expression-environment (expression d2))) (can-be? (lambda (u) (and ((truly-compatible-call? (expression-parent (expression d1))) u) (or (eq? u (environment-type (expression-environment (expression d2)))) (and ((primitive-procedure-type-named? 'apply) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-apply? x) u) (eq? u (environment-type (expression-environment (expression d2)))))) (expression-type-set (first-argument (expression-parent (expression d1)))))) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-call-with-current-continuation? x) u) (eq? u (environment-type (expression-environment (expression d2)))))) (expression-type-set (first-argument (expression-parent (expression d1)))))) (and ((primitive-procedure-type-named? 'fork) u) (or (can-be? (lambda (u) (and ((truly-compatible-call-via-fork1? x) u) (eq? u (environment-type (expression-environment (expression d2)))))) (expression-type-set (first-argument (expression-parent (expression d1))))) (can-be? (lambda (u) (and ((truly-compatible-call-via-fork2? x) u) (eq? u (environment-type (expression-environment (expression d2)))))) (expression-type-set (second-argument (expression-parent (expression d1))))))) (and ((primitive-procedure-type-named? 'mutex) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-mutex? x) u) (eq? u (environment-type (expression-environment (expression d2)))))) (expression-type-set (first-argument (expression-parent (expression d1))))))))) (expression-type-set (expression-callee (expression-parent (expression d1)))))) ;; From after target to after call. (and (after? d1) (after? d2) (expression-parent (expression d1)) ;; needs work: The following comment might not be accurate. ;; Converted calls and calls to converted lambdas and continuations never ;; return. (eq? (expression-kind (expression-parent (expression d1))) 'lambda) (eq? (expression-kind (expression d2)) 'call) (called? (expression-environment (expression d1))) (can-be? (lambda (u) (and ((truly-compatible-call? (expression d2)) u) (or (eq? u (environment-type (expression-environment (expression d1)))) (and ((primitive-procedure-type-named? 'apply) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-apply? x) u) (eq? u (environment-type (expression-environment (expression d1)))))) (expression-type-set (first-argument (expression-parent (expression d2)))))) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-call-with-current-continuation? x) u) (eq? u (environment-type (expression-environment (expression d1)))))) (expression-type-set (first-argument (expression-parent (expression d2)))))) (and ((primitive-procedure-type-named? 'fork) u) (or (can-be? (lambda (u) (and ((truly-compatible-call-via-fork1? x) u) (eq? u (environment-type (expression-environment (expression d1)))))) (expression-type-set (first-argument (expression-parent (expression d2))))) (can-be? (lambda (u) (and ((truly-compatible-call-via-fork2? x) u) (eq? u (environment-type (expression-environment (expression d1)))))) (expression-type-set (second-argument (expression-parent (expression d2))))))) (and ((primitive-procedure-type-named? 'mutex) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-mutex? x) u) (eq? u (environment-type (expression-environment (expression d1)))))) (expression-type-set (first-argument (expression-parent (expression d2))))))))) (expression-type-set (expression-callee (expression d2))))) ;; From after callee or last argument to after call when target is a noop, ;; primitive procedure, or foreign procedure. (and (after? d1) (after? d2) (expression-parent (expression d1)) (eq? (expression-parent (expression d1)) (expression d2)) ;; needs work: The following comment might not be accurate. ;; Converted calls and calls to converted lambdas and continuations never ;; return. (eq? (expression-kind (expression d2)) 'call) (or (and (eq? (expression-callee (expression d2)) (expression d1)) (null? (expression-arguments (expression d2)))) (and (memq (expression d1) (expression-arguments (expression d2))) (= (positionq (expression d1) (expression-arguments (expression d2))) (- (length (expression-arguments (expression d2))) 1)))) (can-be? (lambda (u) (and ((truly-compatible-call? (expression d2)) u) (or (and (native-procedure-type? u) (noop? u)) (and (primitive-procedure-type? u) (not ((primitive-procedure-type-named? 'apply) u)) (not ((primitive-procedure-type-named? 'call-with-current-continuation) u)) (not ((primitive-procedure-type-named? 'fork) u)) (not ((primitive-procedure-type-named? 'mutex) u))) (foreign-procedure-type? u) (and ((primitive-procedure-type-named? 'apply) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-apply? x) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression d2))))) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-call-with-current-continuation? x) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression d2))))) (and ((primitive-procedure-type-named? 'fork) u) (or (can-be? (lambda (u) (and ((truly-compatible-call-via-fork1? x) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression d2)))) (can-be? (lambda (u) (and ((truly-compatible-call-via-fork2? x) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (second-argument (expression d2)))))) (and ((primitive-procedure-type-named? 'mutex) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-mutex? x) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression d2)))))))) (expression-type-set (expression-callee (expression d2))))) ;; From after callee or last argument to after call to ;; CALL-WITH-CURRENT-CONTINUATION when target is a continuation. ;; needs work: Doesn't handle implicit continuation calls. (and (after? d1) (after? d2) (expression-parent (expression d1)) (or (eq? (expression-kind (expression-parent (expression d1))) 'call) (eq? (expression-kind (expression-parent (expression d1))) 'converted-call)) (or (and (eq? (expression-callee (expression-parent (expression d1))) (expression d1)) (null? (expression-arguments (expression-parent (expression d1))))) (and (memq (expression d1) (expression-arguments (expression-parent (expression d1)))) (= (positionq (expression d1) (expression-arguments (expression-parent (expression d1)))) (- (length (expression-arguments (expression-parent (expression d1)))) 1)))) (can-be? (lambda (u) (and (eq? (continuation-type-allocating-expression u) (expression d2)) ((truly-compatible-call? (expression-parent (expression d1))) u))) (expression-type-set (expression-callee (expression-parent (expression d1)))))))) (define (control-properly-flows? d1 d2) (let ((ds '())) (some (lambda (d) (let loop ((d d)) (or (same-program-point? d d2) (and (not (memp same-program-point? d ds)) (begin (set! ds (cons d ds)) (some loop (program-points-that-directly-flow-from d))))))) (program-points-that-directly-flow-from d1)))) (define (control-flows? d1 d2) (or (same-program-point? d1 d2) (control-properly-flows? d1 d2))) (define (program-points-that-directly-flow-to d) ;; needs work: To handle calls to primitive, native, and foreign procedures ;; that don't return. (if (before? d) (append ;; From before SET! to before source. (if (and (expression-parent (expression d)) (eq? (expression-kind (expression-parent (expression d))) 'set!)) (list (before (expression-parent (expression d)))) '()) ;; From before IF to before antecedent. (if (and (expression-parent (expression d)) (eq? (expression-kind (expression-parent (expression d))) 'if) (eq? (expression-antecedent (expression-parent (expression d))) (expression d))) (list (before (expression-parent (expression d)))) '()) ;; From after antecedent to before consequent and alternate. (if (and (expression-parent (expression d)) (eq? (expression-kind (expression-parent (expression d))) 'if) (or (and (eq? (expression-consequent (expression-parent (expression d))) (expression d)) (can-be-non? false-type? (expression-type-set (expression-antecedent (expression-parent (expression d)))))) (and (eq? (expression-alternate (expression-parent (expression d))) (expression d)) (can-be? false-type? (expression-type-set (expression-antecedent (expression-parent (expression d)))))))) (list (after (expression-antecedent (expression-parent (expression d))))) '()) ;; note: The following all assume a callee-first left-to-right argument ;; evaluation order. ;; From before call to before callee. (if (and (expression-parent (expression d)) (or (eq? (expression-kind (expression-parent (expression d))) 'call) (eq? (expression-kind (expression-parent (expression d))) 'converted-call)) (eq? (expression-callee (expression-parent (expression d))) (expression d))) (list (before (expression-parent (expression d)))) '()) ;; From after callee to before first argument. (if (and (expression-parent (expression d)) (or (eq? (expression-kind (expression-parent (expression d))) 'call) (eq? (expression-kind (expression-parent (expression d))) 'converted-call)) (not (null? (expression-arguments (expression-parent (expression d))))) (eq? (first (expression-arguments (expression-parent (expression d)))) (expression d))) (list (after (expression-callee (expression-parent (expression d))))) '()) ;; From after each argument to before next argument. (if (and (expression-parent (expression d)) (or (eq? (expression-kind (expression-parent (expression d))) 'call) (eq? (expression-kind (expression-parent (expression d))) 'converted-call)) (memq (expression d) (expression-arguments (expression-parent (expression d)))) (not (eq? (expression d) (first (expression-arguments (expression-parent (expression d))))))) (list (after (list-ref (expression-arguments (expression-parent (expression d))) (- (positionq (expression d) (expression-arguments (expression-parent (expression d)))) 1)))) '()) ;; From after callee or last argument to before target when target is a ;; non-noop native procedure. (if (and (expression-parent (expression d)) (or (eq? (expression-kind (expression-parent (expression d))) 'lambda) (eq? (expression-kind (expression-parent (expression d))) 'converted-lambda) (eq? (expression-kind (expression-parent (expression d))) 'converted-continuation)) (called? (expression-environment (expression d)))) (map (lambda (x) (after (if (null? (expression-arguments x)) (expression-callee x) (last (expression-arguments x))))) (remove-if-not (lambda (x) (can-be? (lambda (u) (and ((truly-compatible-call? x) u) (or (eq? u (environment-type (expression-environment (expression d)))) (and ((primitive-procedure-type-named? 'apply) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-apply? x) u) (eq? u (environment-type (expression-environment (expression d)))))) (expression-type-set (first-argument x)))) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-call-with-current-continuation? x) u) (eq? u (environment-type (expression-environment (expression d)))))) (expression-type-set (first-argument x)))) (and ((primitive-procedure-type-named? 'fork) u) (or (can-be? (lambda (u) (and ((truly-compatible-call-via-fork1? x) u) (eq? u (environment-type (expression-environment (expression d)))))) (expression-type-set (first-argument x))) (can-be? (lambda (u) (and ((truly-compatible-call-via-fork2? x) u) (eq? u (environment-type (expression-environment (expression d)))))) (expression-type-set (second-argument x))))) (and ((primitive-procedure-type-named? 'mutex) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-mutex? x) u) (eq? u (environment-type (expression-environment (expression d)))))) (expression-type-set (first-argument x))))))) (expression-type-set (expression-callee x)))) *calls*)) '())) (append (if (or (eq? (expression-kind (expression d)) 'null-constant) (eq? (expression-kind (expression d)) 'true-constant) (eq? (expression-kind (expression d)) 'false-constant) (eq? (expression-kind (expression d)) 'char-constant) (eq? (expression-kind (expression d)) 'fixnum-constant) (eq? (expression-kind (expression d)) 'flonum-constant) (eq? (expression-kind (expression d)) 'rectangular-constant) (eq? (expression-kind (expression d)) 'string-constant) (eq? (expression-kind (expression d)) 'symbol-constant) (eq? (expression-kind (expression d)) 'pair-constant) (eq? (expression-kind (expression d)) 'vector-constant) (eq? (expression-kind (expression d)) 'lambda) (eq? (expression-kind (expression d)) 'converted-lambda) (eq? (expression-kind (expression d)) 'converted-continuation) (eq? (expression-kind (expression d)) 'primitive-procedure) (eq? (expression-kind (expression d)) 'foreign-procedure) (eq? (expression-kind (expression d)) 'access)) (list (before (expression d))) '()) ;; From after source to after SET!. (if (eq? (expression-kind (expression d)) 'set!) (list (after (expression-source (expression d)))) '()) ;; From after consequent and alternate to after IF. (if (eq? (expression-kind (expression d)) 'if) (list (after (expression-consequent (expression d))) (after (expression-alternate (expression d)))) '()) ;; From after target to after call. ;; needs work: The following comment might not be accurate. ;; Converted calls and calls to converted lambdas and continuations never ;; return. (if (eq? (expression-kind (expression d)) 'call) (append (map (lambda (u) (after (expression-body (environment-expression (callee-environment u (create-call-site (expression d))))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call? (expression d)) u))) (expression-type-set (expression-callee (expression d))))) (if (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'apply) u) ((truly-compatible-call? (expression d)) u))) (expression-type-set (expression-callee (expression d)))) (map (lambda (u) (after (expression-body (environment-expression (callee-environment u (recreate-call-site (create-call-site (expression d)) 'first-argument)))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call-via-apply? (expression d)) u))) (expression-type-set (first-argument (expression d))))) '()) (if (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) ((truly-compatible-call? (expression d)) u))) (expression-type-set (expression-callee (expression d)))) (map (lambda (u) (after (expression-body (environment-expression (callee-environment u (recreate-call-site (create-call-site (expression d)) 'first-argument)))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call-via-call-with-current-continuation? (expression d)) u))) (expression-type-set (first-argument (expression d))))) '()) (if (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'fork) u) ((truly-compatible-call? (expression d)) u))) (expression-type-set (expression-callee (expression d)))) (append (map (lambda (u) (after (expression-body (environment-expression (callee-environment u (recreate-call-site (create-call-site (expression d)) 'first-argument)))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call-via-fork1? (expression d)) u))) (expression-type-set (first-argument (expression d))))) (map (lambda (u) (after (expression-body (environment-expression (callee-environment u (recreate-call-site (create-call-site (expression d)) 'second-argument)))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call-via-fork2? (expression d)) u))) (expression-type-set (second-argument (expression d)))))) '()) (if (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'mutex) u) ((truly-compatible-call? (expression d)) u))) (expression-type-set (expression-callee (expression d)))) (map (lambda (u) (after (expression-body (environment-expression (callee-environment u (recreate-call-site (create-call-site (expression d)) 'first-argument)))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call-via-mutex? (expression d)) u))) (expression-type-set (first-argument (expression d))))) '())) '()) ;; From after callee or last argument to after call when target is a ;; noop, primitive procedure, or foreign procedure. ;; needs work: The following comment might not be accurate. ;; Converted calls and calls to converted lambdas and continuations never ;; return. (if (and (eq? (expression-kind (expression d)) 'call) (can-be? (lambda (u) (and ((truly-compatible-call? (expression d)) u) (or (and (native-procedure-type? u) (noop? u)) (and (primitive-procedure-type? u) (not ((primitive-procedure-type-named? 'apply) u)) (not ((primitive-procedure-type-named? 'call-with-current-continuation) u)) (not ((primitive-procedure-type-named? 'fork) u)) (not ((primitive-procedure-type-named? 'mutex) u))) (foreign-procedure-type? u) (and ((primitive-procedure-type-named? 'apply) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-apply? (expression d)) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression d))))) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-call-with-current-continuation? (expression d)) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression d))))) (and ((primitive-procedure-type-named? 'fork) u) (or (can-be? (lambda (u) (and ((truly-compatible-call-via-fork1? (expression d)) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression d)))) (can-be? (lambda (u) (and ((truly-compatible-call-via-fork2? (expression d)) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (second-argument (expression d)))))) (and ((primitive-procedure-type-named? 'mutex) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-mutex? (expression d)) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression d)))))))) (expression-type-set (expression-callee (expression d))))) (if (null? (expression-arguments (expression d))) (list (after (expression-callee (expression d)))) (list (after (last (expression-arguments (expression d)))))) '()) ;; From after callee or last argument to after call to ;; CALL-WITH-CURRENT-CONTINUATION when target is a continuation. ;; needs work: Doesn't handle implicit continuation calls. (if (and (or (eq? (expression-kind (expression d)) 'call) (eq? (expression-kind (expression d)) 'converted-call)) (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) ((truly-compatible-call? (expression d)) u))) (expression-type-set (expression-callee (expression d))))) (map (lambda (x) (after (if (null? (expression-arguments x)) (expression-callee x) (last (expression-arguments x))))) (remove-if-not (lambda (x) (can-be? (lambda (u) (and (continuation-type? u) (eq? (continuation-type-allocating-expression u) (expression d)) ((truly-compatible-call? (expression d)) u))) (expression-type-set (expression-callee x)))) *calls*)) '())))) (define (program-points-that-properly-flow-to d) (let ((ds '())) (for-each (lambda (d) (let loop ((d d)) (unless (memp same-program-point? d ds) (set! ds (cons d ds)) (for-each loop (program-points-that-directly-flow-to d))))) (program-points-that-directly-flow-to d)) ds)) (define (program-points-that-flow-to d) (let ((ds (program-points-that-properly-flow-to d))) (if (memp same-program-point? d ds) ds (cons d ds)))) (define (program-points-that-directly-flow-from d) ;; needs work: To handle calls to primitive, native, and foreign procedures ;; that don't return. (if (before? d) (cond ((or (eq? (expression-kind (expression d)) 'null-constant) (eq? (expression-kind (expression d)) 'true-constant) (eq? (expression-kind (expression d)) 'false-constant) (eq? (expression-kind (expression d)) 'char-constant) (eq? (expression-kind (expression d)) 'fixnum-constant) (eq? (expression-kind (expression d)) 'flonum-constant) (eq? (expression-kind (expression d)) 'rectangular-constant) (eq? (expression-kind (expression d)) 'string-constant) (eq? (expression-kind (expression d)) 'symbol-constant) (eq? (expression-kind (expression d)) 'pair-constant) (eq? (expression-kind (expression d)) 'vector-constant) (eq? (expression-kind (expression d)) 'lambda) (eq? (expression-kind (expression d)) 'converted-lambda) (eq? (expression-kind (expression d)) 'converted-continuation) (eq? (expression-kind (expression d)) 'primitive-procedure) (eq? (expression-kind (expression d)) 'foreign-procedure) (eq? (expression-kind (expression d)) 'access)) (list (after (expression d)))) ;; From before SET! to before source. ((eq? (expression-kind (expression d)) 'set!) (list (before (expression-source (expression d))))) ;; From before IF to before antecedent. ((eq? (expression-kind (expression d)) 'if) (list (before (expression-antecedent (expression d))))) ;; note: The following all assume a callee-first left-to-right ;; argument evaluation order. ;; From before call to before callee. ((or (eq? (expression-kind (expression d)) 'call) (eq? (expression-kind (expression d)) 'converted-call)) (list (before (expression-callee (expression d))))) (else '())) (append ;; From after source to after SET!. (if (and (expression-parent (expression d)) (eq? (expression-kind (expression-parent (expression d))) 'set!)) (list (after (expression-parent (expression d)))) '()) ;; From after antecedent to before consequent and alternate. (if (and (expression-parent (expression d)) (eq? (expression-kind (expression-parent (expression d))) 'if) (eq? (expression-antecedent (expression-parent (expression d))) (expression d)) (can-be-non? false-type? (expression-type-set (expression-antecedent (expression-parent (expression d)))))) (list (before (expression-consequent (expression-parent (expression d))))) '()) (if (and (expression-parent (expression d)) (eq? (expression-kind (expression-parent (expression d))) 'if) (eq? (expression-antecedent (expression-parent (expression d))) (expression d)) (can-be? false-type? (expression-type-set (expression-antecedent (expression-parent (expression d)))))) (list (before (expression-alternate (expression-parent (expression d))))) '()) ;; From after consequent and alternate to after IF. (if (and (expression-parent (expression d)) (eq? (expression-kind (expression-parent (expression d))) 'if) (or (eq? (expression-consequent (expression-parent (expression d))) (expression d)) (eq? (expression-alternate (expression-parent (expression d))) (expression d)))) (list (after (expression-parent (expression d)))) '()) ;; note: The following all assume a callee-first left-to-right argument ;; evaluation order. ;; From after callee to before first argument. (if (and (expression-parent (expression d)) (or (eq? (expression-kind (expression-parent (expression d))) 'call) (eq? (expression-kind (expression-parent (expression d))) 'converted-call)) (eq? (expression-callee (expression-parent (expression d))) (expression d)) (not (null? (expression-arguments (expression-parent (expression d)))))) (list (before (first (expression-arguments (expression-parent (expression d)))))) '()) ;; From after each argument to before next argument. (if (and (expression-parent (expression d)) (or (eq? (expression-kind (expression-parent (expression d))) 'call) (eq? (expression-kind (expression-parent (expression d))) 'converted-call)) (memq (expression d) (expression-arguments (expression-parent (expression d)))) (< (positionq (expression d) (expression-arguments (expression-parent (expression d)))) (- (length (expression-arguments (expression-parent (expression d)))) 1))) (list (before (list-ref (expression-arguments (expression-parent (expression d))) (+ (positionq (expression d) (expression-arguments (expression-parent (expression d)))) 1)))) '()) ;; From after callee or last argument to before target when target is a ;; non-noop native procedure. (if (and (expression-parent (expression d)) (or (eq? (expression-kind (expression-parent (expression d))) 'call) (eq? (expression-kind (expression-parent (expression d))) 'converted-call)) (or (and (eq? (expression-callee (expression-parent (expression d))) (expression d)) (null? (expression-arguments (expression-parent (expression d))))) (and (memq (expression d) (expression-arguments (expression-parent (expression d)))) (= (positionq (expression d) (expression-arguments (expression-parent (expression d)))) (- (length (expression-arguments (expression-parent (expression d)))) 1))))) (append (map (lambda (u) (before (expression-body (environment-expression (callee-environment u (create-call-site (expression-parent (expression d)))))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call? (expression-parent (expression d))) u))) (expression-type-set (expression-callee (expression-parent (expression d)))))) (if (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'apply) u) ((truly-compatible-call? (expression-parent (expression d))) u))) (expression-type-set (expression-callee (expression-parent (expression d))))) (map (lambda (u) (before (expression-body (environment-expression (callee-environment u (recreate-call-site (create-call-site (expression-parent (expression d))) 'first-argument)))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call-via-apply? (expression-parent (expression d))) u))) (expression-type-set (first-argument (expression-parent (expression d)))))) '()) (if (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) ((truly-compatible-call? (expression-parent (expression d))) u))) (expression-type-set (expression-callee (expression-parent (expression d))))) (map (lambda (u) (before (expression-body (environment-expression (callee-environment u (recreate-call-site (create-call-site (expression-parent (expression d))) 'first-argument)))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call-via-call-with-current-continuation? (expression-parent (expression d))) u))) (expression-type-set (first-argument (expression-parent (expression d)))))) '()) (if (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'fork) u) ((truly-compatible-call? (expression-parent (expression d))) u))) (expression-type-set (expression-callee (expression-parent (expression d))))) (append (map (lambda (u) (before (expression-body (environment-expression (callee-environment u (recreate-call-site (create-call-site (expression-parent (expression d))) 'first-argument)))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call-via-fork1? (expression-parent (expression d))) u))) (expression-type-set (first-argument (expression-parent (expression d)))))) (map (lambda (u) (before (expression-body (environment-expression (callee-environment u (recreate-call-site (create-call-site (expression-parent (expression d))) 'second-argument)))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call-via-fork2? (expression-parent (expression d))) u))) (expression-type-set (second-argument (expression-parent (expression d))))))) '()) (if (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'mutex) u) ((truly-compatible-call? (expression-parent (expression d))) u))) (expression-type-set (expression-callee (expression-parent (expression d))))) (map (lambda (u) (before (expression-body (environment-expression (callee-environment u (recreate-call-site (create-call-site (expression-parent (expression d))) 'first-argument)))))) (members-that (lambda (u) (and (native-procedure-type? u) (not (noop? u)) ((truly-compatible-call-via-mutex? (expression-parent (expression d))) u))) (expression-type-set (first-argument (expression-parent (expression d)))))) '())) '()) ;; From after target to after call. (if (and (expression-parent (expression d)) ;; needs work: The following comment might not be accurate. ;; Calls to converted lambdas and continuations never return. (eq? (expression-kind (expression-parent (expression d))) 'lambda) (called? (expression-environment (expression d)))) (map after (remove-if-not (lambda (x) (can-be? (lambda (u) (and ((truly-compatible-call? x) u) (or (eq? u (environment-type (expression-environment (expression d)))) (and ((primitive-procedure-type-named? 'apply) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-apply? x) u) (eq? u (environment-type (expression-environment (expression d)))))) (expression-type-set (first-argument x)))) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-call-with-current-continuation? x) u) (eq? u (environment-type (expression-environment (expression d)))))) (expression-type-set (first-argument x)))) (and ((primitive-procedure-type-named? 'fork) u) (or (can-be? (lambda (u) (and ((truly-compatible-call-via-fork1? x) u) (eq? u (environment-type (expression-environment (expression d)))))) (expression-type-set (first-argument x))) (can-be? (lambda (u) (and ((truly-compatible-call-via-fork2? x) u) (eq? u (environment-type (expression-environment (expression d)))))) (expression-type-set (second-argument x))))) (and ((primitive-procedure-type-named? 'mutex) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-mutex? x) u) (eq? u (environment-type (expression-environment (expression d)))))) (expression-type-set (first-argument x))))))) (expression-type-set (expression-callee x)))) *calls*)) '()) ;; From after callee or last argument to after call when target is a ;; noop, primitive procedure, or foreign procedure. (if (and (expression-parent (expression d)) ;; needs work: The following comment might not be accurate. ;; Converted calls never return. (eq? (expression-kind (expression-parent (expression d))) 'call) (or (and (eq? (expression-callee (expression-parent (expression d))) (expression d)) (null? (expression-arguments (expression-parent (expression d))))) (and (memq (expression d) (expression-arguments (expression-parent (expression d)))) (= (positionq (expression d) (expression-arguments (expression-parent (expression d)))) (- (length (expression-arguments (expression-parent (expression d)))) 1))) (can-be? (lambda (u) (and ((truly-compatible-call? (expression-parent (expression d))) u) (or (and (native-procedure-type? u) (noop? u)) (and (primitive-procedure-type? u) (not ((primitive-procedure-type-named? 'apply) u)) (not ((primitive-procedure-type-named? 'call-with-current-continuation) u)) (not ((primitive-procedure-type-named? 'fork) u)) (not ((primitive-procedure-type-named? 'mutex) u))) (foreign-procedure-type? u) (and ((primitive-procedure-type-named? 'apply) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-apply? (expression-parent (expression d))) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression-parent (expression d)))))) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-call-with-current-continuation? (expression-parent (expression d))) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression-parent (expression d)))))) (and ((primitive-procedure-type-named? 'fork) u) (or (can-be? (lambda (u) (and ((truly-compatible-call-via-fork1? (expression-parent (expression d))) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression-parent (expression d))))) (can-be? (lambda (u) (and ((truly-compatible-call-via-fork2? (expression-parent (expression d))) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (second-argument (expression-parent (expression d))))))) (and ((primitive-procedure-type-named? 'mutex) u) (can-be? (lambda (u) (and ((truly-compatible-call-via-mutex? (expression-parent (expression d))) u) (or (and (native-procedure-type? u) (noop? u)) (foreign-procedure-type? u)))) (expression-type-set (first-argument (expression-parent (expression d))))))))) (expression-type-set (expression-callee (expression-parent (expression d))))))) (list (after (expression-parent (expression d)))) '()) ;; From after callee or last argument to after call to ;; CALL-WITH-CURRENT-CONTINUATION when target is a continuation. ;; needs work: Doesn't handle implicit continuations calls. (if (and (expression-parent (expression d)) (or (eq? (expression-kind (expression-parent (expression d))) 'call) (eq? (expression-kind (expression-parent (expression d))) 'converted-call)) (or (and (eq? (expression-callee (expression-parent (expression d))) (expression d)) (null? (expression-arguments (expression-parent (expression d))))) (and (memq (expression d) (expression-arguments (expression-parent (expression d)))) (= (positionq (expression d) (expression-arguments (expression-parent (expression d)))) (- (length (expression-arguments (expression-parent (expression d)))) 1))))) (map (lambda (u) (after (continuation-type-allocating-expression u))) (members-that (lambda (u) (and (continuation-type? u) ((truly-compatible-call? (expression-parent (expression d))) u))) (expression-type-set (expression-callee (expression-parent (expression d)))))) '())))) (define (program-points-that-properly-flow-from d) (let ((ds '())) (for-each (lambda (d) (let loop ((d d)) (unless (memp same-program-point? d ds) (set! ds (cons d ds)) (for-each loop (program-points-that-directly-flow-from d))))) (program-points-that-directly-flow-from d)) ds)) (define (program-points-that-flow-from d) (let ((ds (program-points-that-properly-flow-from d))) (if (memp same-program-point? d ds) ds (cons d ds)))) ;;; Error messages (define *october?* #f) (define (syntax-error s error) ;; conventions: ERROR (if (s-expression-pathname s) (notify "~a:~s:~s:~a" (s-expression-pathname s) (s-expression-line-position s) (s-expression-character-position s) error) (notify error)) (terminate)) (define (unimplemented x/y error) ;; conventions: ERROR ;; needs work: Should give an indication of the call-site offset. (cond ((expression? x/y) (if (expression-pathname x/y) (notify "~a:~s:~s:~a" (expression-pathname x/y) (expression-line-position x/y) (expression-character-position x/y)) (notify error))) ((call-site? x/y) (unimplemented (call-site-expression x/y) error)) (else (notify error))) (terminate)) ;;; Macro utilities (define (sx-datum s) ;; note: This can't be eta-converted because of bugs running under IRIX 5.3. (s-expression-datum s)) (define (macro? s) (assq (sx-datum s) *macros*)) (define (macro-expander s) (second (assq (sx-datum s) *macros*))) (define (expand-macro s) (unless (s-expression-expansion s) (set-s-expression-expansion! s (create-s-expression (s-expression-pathname s) (s-expression-line-position s) (s-expression-character-position s) (s-expression-character-position-within-line s) (s-expression-comments s) ;; needs work: This encapsulation loses the line and character positions of ;; the macro that is being expanded. (sx-datum (encapsulate ((macro-expander (sx-first s)) s)))))) (s-expression-expansion s)) (define (sx-car s) (car (sx-datum s))) (define (sx-cdr s) (cdr (sx-datum s))) (define (sx-first s) ;; note: This can't be eta-converted because of bugs running under IRIX 5.3. (sx-car s)) (define (sx-second s) (sx-car (sx-cdr s))) (define (sx-third s) (sx-car (sx-cdr (sx-cdr s)))) (define (sx-fourth s) (sx-car (sx-cdr (sx-cdr (sx-cdr s))))) (define (sx-fifth s) (sx-car (sx-cdr (sx-cdr (sx-cdr (sx-cdr s)))))) (define (sx-sixth s) (sx-car (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr s))))))) (define (sx-seventh s) (sx-car (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr s)))))))) (define (sx-eighth s) (sx-car (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr s))))))))) (define (sx-ninth s) (sx-car (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr s)))))))))) (define (sx-tenth s) (sx-car (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr s))))))))))) (define (sx-eleventh s) (sx-car (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr s)))))))))))) (define (sx-twelfth s) (sx-car (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr (sx-cdr s))))))))))))) (define (sx-rest s) ;; note: This can't be eta-converted because of bugs running under IRIX 5.3. (sx-cdr s)) (define (sx-length s) (let loop ((s s) (c 0)) ;; conventions: C (if (sx-null? s) c (loop (sx-rest s) (+ c 1))))) (define (sx-null? s) (null? (sx-datum s))) (define (sx-pair? s) (pair? (sx-datum s))) (define (sx-symbol? s) (symbol? (sx-datum s))) (define (sx-string? s) (string? (sx-datum s))) (define (sx-vector? s) (vector? (sx-datum s))) (define (sx-char? s) (char? (sx-datum s))) (define (sx-eq? s q) (eq? (sx-datum s) q)) (define (sx-integer? s) (integer? (sx-datum s))) (define (sx-rational? s) (rational? (sx-datum s))) (define (sx-real? s) (real? (sx-datum s))) (define (sx-complex? s) (complex? (sx-datum s))) (define (sx-exact? s) (exact? (sx-datum s))) (define (sx-negative? s) (negative? (sx-datum s))) (define (sx-map-vector p s) ;; note: Not a real analog. ;; conventions: P (map-vector p (sx-datum s))) (define (sx-map p s) ;; note: Not a real analog. ;; conventions: P (let loop ((s s) (c '())) ;; conventions: C (if (sx-null? s) (reverse c) (loop (sx-rest s) (cons (p (sx-first s)) c))))) (define (sx-every p s) ;; conventions: P (or (sx-null? s) (and (p (sx-first s)) (sx-every p (sx-rest s))))) (define (sx-some p s) ;; conventions: P (and (not (sx-null? s)) (or (p (sx-first s)) (sx-some p (sx-rest s))))) (define (sx-for-each p s) ;; conventions: P (unless (sx-null? s) (p (sx-first s)) (sx-for-each p (sx-rest s)))) (define (sx-list? s) (or (sx-null? s) (and (sx-pair? s) (sx-list? (sx-rest s))))) (define (sx-for-each-vector p s) ;; conventions: P (for-each-vector p (sx-datum s))) (define (sx-last s) (if (sx-null? (sx-rest s)) (sx-first s) (sx-last (sx-rest s)))) (define (sx-vector->list s) ;; note: Not a real analog. (vector->list (sx-datum s))) (define (sx-some-vector p s) ;; conventions: P (some-vector p (sx-datum s))) (define (sx-unlist s) (sx-map (lambda (s) s) s)) ;;; needs work: EVERY LIST? (define (encapsulate s/q) (cond ((s-expression? s/q) s/q) ((pair? s/q) (create-anonymous-s-expression (cons (encapsulate (car s/q)) (encapsulate (cdr s/q))))) ((vector? s/q) (create-anonymous-s-expression (map-vector encapsulate s/q))) (else (create-anonymous-s-expression s/q)))) (define (october-encapsulate version cursor s/q) (let loop ((s/q s/q)) (cond ((s-expression? s/q) s/q) ((pair? s/q) (create-october-s-expression version cursor (cons (loop (car s/q)) (loop (cdr s/q))))) ((vector? s/q) (create-october-s-expression version cursor (map-vector loop s/q))) (else (create-october-s-expression version cursor s/q))))) (define (unencapsulate s/q) (cond ((s-expression? s/q) (unencapsulate (s-expression-datum s/q))) ((vector? s/q) (map-vector unencapsulate s/q)) ((pair? s/q) (cons (unencapsulate (car s/q)) (unencapsulate (cdr s/q)))) (else s/q))) ;;; Foreign Procedures (define (valid-foreign-parameter-type? s) (or (sx-eq? s 'char) (sx-eq? s 'signed-char) (sx-eq? s 'unsigned-char) (sx-eq? s 'short) (sx-eq? s 'unsigned-short) (sx-eq? s 'int) (sx-eq? s 'unsigned) (sx-eq? s 'long) (sx-eq? s 'unsigned-long) (sx-eq? s 'float) (sx-eq? s 'double) (sx-eq? s 'long-double) (sx-eq? s 'char*) (sx-eq? s 'file*) (sx-eq? s 'void*))) (define (valid-foreign-return-type? s) (or (sx-eq? s 'char) (sx-eq? s 'signed-char) (sx-eq? s 'unsigned-char) (sx-eq? s 'short) (sx-eq? s 'unsigned-short) (sx-eq? s 'int) (sx-eq? s 'unsigned) (sx-eq? s 'long) (sx-eq? s 'unsigned-long) (sx-eq? s 'float) (sx-eq? s 'double) (sx-eq? s 'long-double) (sx-eq? s 'char*) (sx-eq? s 'input-port) (sx-eq? s 'output-port) (sx-eq? s 'void*) (sx-eq? s 'void) (sx-eq? s 'no-return))) (define (foreign-type? f) (case f ((char signed-char unsigned-char) char-type?) ((short unsigned-short int unsigned long unsigned-long) fixnum-type?) ((float double long-double) flonum-type?) ((char*) string-type?) ((file*) (lambda (u) (or (input-port-type? u) (output-port-type? u)))) ((input-port) input-port-type?) ((output-port) output-port-type?) ((void*) pointer-type?) (else (fuck-up)))) (define (foreign-return-type->type-set f) (case f ((char signed-char unsigned-char) *foreign-char-type-set*) ((short unsigned-short int unsigned long unsigned-long) *foreign-fixnum-type-set*) ((float double long-double) *foreign-flonum-type-set*) ((char*) *foreign-string-type-set*) ((input-port) *foreign-input-port-type-set*) ((output-port) *foreign-output-port-type-set*) ((void*) *foreign-pointer-type-set*) ((void no-return) *void*) (else (fuck-up)))) (define (foreign-procedure-return-type-set u) (foreign-return-type->type-set (foreign-procedure-type-result u))) (define (foreign-procedure-returns? u) (not (eq? (foreign-procedure-type-result u) 'no-return))) ;;; Enumerating symbol constants (define (valid-parameter? s) (and (sx-symbol? s) (not (sx-eq? s 'quote)) (not (sx-eq? s 'lambda)) (not (sx-eq? s 'set!)) (not (sx-eq? s 'if)) (not (sx-eq? s 'primitive-procedure)) (not (sx-eq? s 'foreign-procedure)) (not (sx-eq? s 'else)) (not (sx-eq? s '=>)) (not (sx-eq? s 'define)) (not (macro? s)))) (define (valid-parameters? s) (or (and (sx-pair? s) (valid-parameter? (sx-car s)) (valid-parameters? (sx-cdr s))) (sx-null? s) (valid-parameter? s))) (define (disjoint? qs) (or (null? qs) (and (let loop? ((qs1 (rest qs))) (or (null? qs1) (and (not (eq? (first qs) (first qs1))) (loop? (rest qs1))))) (disjoint? (rest qs))))) (define (parameters s) (cond ((sx-null? s) '()) ((sx-pair? s) (cons (sx-datum (sx-car s)) (parameters (sx-cdr s)))) ((sx-symbol? s) (list (sx-datum s))) (else (fuck-up)))) (define (parameters->variables s) (cond ((sx-null? s) '()) ((sx-pair? s) (cons (create-variable (sx-car s)) (parameters->variables (sx-cdr s)))) ((sx-symbol? s) (create-variable s)) (else (fuck-up)))) (define (symbols-in s) (let ((qs '())) (define (symbols-in-constant s) (cond ((sx-null? s) #f) ((sx-eq? s #t) #f) ((sx-eq? s #f) #f) ((sx-char? s) #f) ((and (sx-integer? s) (sx-exact? s)) #f) ((sx-rational? s) (when (sx-exact? s) (syntax-error s "Cannot (yet) compile exact rational noninteger constants"))) ((sx-real? s) (when (sx-exact? s) (syntax-error s "Cannot (yet) compile exact real nonrational constants"))) ((sx-complex? s) (when (sx-exact? s) (syntax-error s "Cannot (yet) compile exact complex nonreal constants"))) ((sx-string? s) #f) ((sx-symbol? s) (unless (memq (sx-datum s) qs) (set! qs (cons (sx-datum s) qs)))) ((sx-pair? s) (symbols-in-constant (sx-car s)) (symbols-in-constant (sx-cdr s))) ((sx-vector? s) (sx-for-each-vector symbols-in-constant s)) ;; procedures, input ports, output ports, eof objects, structures, and ;; pointers (else (syntax-error s "Unrecognized constant type")))) (define (symbols-in s) (cond ((sx-null? s) (syntax-error s "Improper expression")) ((sx-pair? s) (unless (sx-list? s) (syntax-error s "Improper expression")) (if (sx-symbol? (sx-first s)) (case (sx-datum (sx-first s)) ((quote) (unless (= (sx-length s) 2) (syntax-error s "Improper QUOTE")) (symbols-in-constant (sx-second s))) ((lambda) ;; Extension to R4RS: LAMBDA can have empty body. (unless (and (>= (sx-length s) 2) (valid-parameters? (sx-second s)) (disjoint? (parameters (sx-second s)))) (syntax-error s "Improper LAMBDA")) (let ((s (macroexpand-body s))) (unless (sx-null? (sx-rest (sx-rest s))) (symbols-in (sx-third s))))) ((set!) (unless (and (= (sx-length s) 3) (sx-symbol? (sx-second s))) (syntax-error s "Improper SET!")) (symbols-in (sx-third s))) ((if) (unless (or (= (sx-length s) 3) (= (sx-length s) 4)) (syntax-error s "Improper IF")) (symbols-in (sx-second s)) (symbols-in (sx-third s)) (when (= (sx-length s) 4) (symbols-in (sx-fourth s)))) ((primitive-procedure) ;; Extension to R4RS: Link to primitive procedures. (let ((s2 (sx-second s))) (unless (or (and (or (sx-eq? s2 'make-structure) (sx-eq? s2 'structure-ref) (sx-eq? s2 'structure-set!)) (= (sx-length s) 4) (sx-symbol? (sx-third s)) (sx-integer? (sx-fourth s)) (sx-exact? (sx-fourth s)) (not (sx-negative? (sx-fourth s)))) (and (sx-eq? s2 'structure?) (= (sx-length s) 3) (sx-symbol? (sx-third s))) (and (= (sx-length s) 2) (not (sx-eq? s2 'make-structure)) (not (sx-eq? s2 'structure-ref)) (not (sx-eq? s2 'structure-set!)) (not (sx-eq? s2 'structure?)) (assq (sx-datum s2) *primitive-procedure-handlers*))) (syntax-error s "Improper PRIMITIVE-PROCEDURE")))) ((foreign-procedure) (unless (or (and (= (sx-length s) 4) (sx-list? (sx-second s)) (sx-every valid-foreign-parameter-type? (sx-second s)) (valid-foreign-return-type? (sx-third s)) (sx-string? (sx-fourth s))) (and (= (sx-length s) 5) (sx-list? (sx-second s)) (sx-every valid-foreign-parameter-type? (sx-second s)) (valid-foreign-return-type? (sx-third s)) (sx-string? (sx-fourth s)) (sx-string? (sx-fifth s)))) (syntax-error s "Improper FOREIGN-PROCEDURE"))) (else (if (macro? (sx-first s)) (symbols-in (expand-macro s)) (sx-for-each symbols-in s)))) (sx-for-each symbols-in s))) ((sx-symbol? s) #f) (else (symbols-in-constant s)))) (symbols-in s) qs)) ;;; Macro expander (define (variable s gs) (when (null? gs) (syntax-error s "Unbound variable")) (if (sx-eq? s (variable-name (first gs))) (first gs) (variable s (rest gs)))) (define (dotted-append gs1 gs2) (cond ((null? gs1) gs2) ((variable? gs1) (cons gs1 gs2)) (else (cons (first gs1) (dotted-append (rest gs1) gs2))))) (define (macroexpand s) (define (macroexpand s gs v f) ;; conventions: V F (define (macroexpand-constant s1) (let ((q (sx-datum s1))) (cond ((sx-null? s1) (create-expression 'null-constant s #f)) ((sx-eq? s1 #t) (create-expression 'true-constant s #f)) ((sx-eq? s1 #f) (create-expression 'false-constant s #f)) ((sx-char? s1) (create-expression 'char-constant s q)) ((and (sx-integer? s1) (sx-exact? s1)) (create-expression 'fixnum-constant s q)) ((sx-rational? s1) (when (sx-exact? s1) (fuck-up)) (create-expression 'flonum-constant s q)) ((sx-real? s1) (when (sx-exact? s1) (fuck-up)) (create-expression 'flonum-constant s q)) ((sx-complex? s1) (when (sx-exact? s1) (fuck-up)) ;; needs work: 1.0+0.0i will create a FLONUM-CONSTANT so there is no way ;; to create a RECTANGULAR-CONSTANT with a 0.0 imaginary ;; component. (create-expression 'rectangular-constant s q)) ((sx-string? s1) (create-expression 'string-constant s q)) ((sx-symbol? s1) (create-expression 'symbol-constant s q)) ((sx-pair? s1) (create-expression 'pair-constant s (cons (macroexpand-constant (sx-car s1)) (macroexpand-constant (sx-cdr s1))))) ((sx-vector? s1) (create-expression 'vector-constant s (sx-map-vector macroexpand-constant s1))) ;; procedures, input ports, output ports, eof objects, structures, and ;; pointers (else (fuck-up))))) (cond ((sx-null? s) (fuck-up)) ((sx-pair? s) (unless (sx-list? s) (fuck-up)) (if (sx-symbol? (sx-first s)) (case (sx-datum (sx-first s)) ((quote) (unless (= (sx-length s) 2) (fuck-up)) (macroexpand-constant (sx-second s))) ((lambda) (unless (and (>= (sx-length s) 2) (valid-parameters? (sx-second s)) (disjoint? (parameters (sx-second s)))) (fuck-up)) (let ((s (macroexpand-body s))) (cond ((sx-null? (sx-rest (sx-rest s))) (create-lambda-expression s (create-environment v (if v (symbol->string v) f)) (parameters->variables (sx-second s)) #f)) ((sx-null? (sx-rest (sx-rest (sx-rest s)))) (let ((f (if v (symbol->string v) f)) (gs1 (parameters->variables (sx-second s)))) ;; conventions: F (create-lambda-expression s (create-environment v f) gs1 (macroexpand (sx-third s) (dotted-append gs1 gs) #f f)))) (else (fuck-up))))) ((set!) (unless (and (= (sx-length s) 3) (sx-symbol? (sx-second s))) (fuck-up)) (create-set!-expression s (variable (sx-second s) gs) (macroexpand (sx-third s) gs (sx-datum (sx-second s)) f))) ((if) (unless (or (= (sx-length s) 3) (= (sx-length s) 4)) (fuck-up)) (create-if-expression s (macroexpand (sx-second s) gs #f f) (macroexpand (sx-third s) gs #f f) (if (= (sx-length s) 3) (create-call-expression s (create-lambda-expression s (create-environment v (if v (symbol->string v) f)) '() #f) '()) (macroexpand (sx-fourth s) gs #f f)))) ((primitive-procedure) ;; Extension to R4RS: Link to primitive procedures. (let ((s2 (sx-second s))) (unless (or (and (or (sx-eq? s2 'make-structure) (sx-eq? s2 'structure-ref) (sx-eq? s2 'structure-set!)) (= (sx-length s) 4) (sx-symbol? (sx-third s)) (sx-integer? (sx-fourth s)) (sx-exact? (sx-fourth s)) (not (sx-negative? (sx-fourth s)))) (and (sx-eq? s2 'structure?) (= (sx-length s) 3) (sx-symbol? (sx-third s))) (and (= (sx-length s) 2) (not (sx-eq? s2 'make-structure)) (not (sx-eq? s2 'structure-ref)) (not (sx-eq? s2 'structure-set!)) (not (sx-eq? s2 'structure?)) (assq (sx-datum s2) *primitive-procedure-handlers*))) (fuck-up))) (create-expression 'primitive-procedure s (unencapsulate (sx-rest s)))) ((foreign-procedure) (unless (or (and (= (sx-length s) 4) (sx-list? (sx-second s)) (sx-every valid-foreign-parameter-type? (sx-second s)) (valid-foreign-return-type? (sx-third s)) (sx-string? (sx-fourth s))) (and (= (sx-length s) 5) (sx-list? (sx-second s)) (sx-every valid-foreign-parameter-type? (sx-second s)) (valid-foreign-return-type? (sx-third s)) (sx-string? (sx-fourth s)) (sx-string? (sx-fifth s)))) (fuck-up)) (create-expression 'foreign-procedure s (unencapsulate (sx-rest s)))) (else (if (macro? (sx-first s)) (macroexpand (expand-macro s) gs #f f) (create-call-expression s (macroexpand (sx-first s) gs #f f) (sx-map (lambda (s) (macroexpand s gs #f f)) (sx-rest s)))))) (create-call-expression s (macroexpand (sx-first s) gs #f f) (sx-map (lambda (s) (macroexpand s gs #f f)) (sx-rest s))))) ((sx-symbol? s) (create-access-expression s (variable s gs))) (else (macroexpand-constant s)))) (macroexpand s '() #f "top level")) ;;; Fast tree shake (define (fast-tree-shake!) (when (and (eq? (expression-kind *x*) 'lambda) (list? (expression-parameters *x*)) (= (length (expression-parameters *x*)) 1) (expression-body *x*) (eq? (expression-kind (expression-body *x*)) 'call) (eq? (expression-kind (expression-callee (expression-body *x*))) 'lambda) (eq? (expression-kind (expression-body (expression-callee (expression-body *x*)))) 'call) (eq? (expression-kind (expression-callee (expression-body (expression-callee (expression-body *x*))))) 'lambda) (list? (expression-parameters (expression-callee (expression-body (expression-callee (expression-body *x*)))))) (= (length (expression-parameters (expression-callee (expression-body (expression-callee (expression-body *x*)))))) 219) (every hunoz? (expression-parameters (expression-callee (expression-body (expression-callee (expression-body *x*)))))) (= (count-if-not (lambda (x) (eq? (expression-kind x) 'set!)) (expression-arguments (expression-body (expression-callee (expression-body *x*))))) 1) (eq? (expression-kind (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))) 'call) (= (length (expression-arguments (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))) 214) (every (lambda (x) (eq? (expression-kind x) 'access)) (expression-arguments (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))) (eq? (expression-kind (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))) 'lambda) (list? (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))) (= (length (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))) 214) (eq? (expression-kind (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))) 'call) (every (lambda (x) (and (eq? (expression-kind x) 'call) (null? (expression-arguments x)) (eq? (expression-kind (expression-callee x)) 'lambda) (not (expression-body (expression-callee x))) (null? (expression-parameters (expression-callee x))))) (expression-arguments (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))) (eq? (expression-kind (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))) 'lambda) (list? (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))) (eq? (expression-kind (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))) 'call) (eq? (expression-kind (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))))) 'lambda) (list? (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))))) (every hunoz? (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))))))) (let* ((gs (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))) (xs (cons (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))))) (expression-arguments (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))))) (xs1 (remove-if-not (lambda (x) (and (eq? (expression-kind x) 'set!) (eq? (expression-kind (expression-source x)) 'lambda) (memq (expression-variable x) gs) (one (lambda (x1) (and (eq? (expression-kind x1) 'set!) (eq? (expression-variable x) (expression-variable x1)))) *xs*))) xs)) (xs2 (set-differenceq xs xs1))) (for-each (lambda (x) (set-expression-accessed?! x #t)) *xs*) (for-each (lambda (g) (set-variable-accessed?! g #t)) *gs*) (for-each (lambda (x) (let loop ((x x)) (set-expression-accessed?! x #f) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) (loop (car (expression-constant x))) (loop (cdr (expression-constant x)))) ((vector-constant) (for-each-vector loop (expression-constant x))) ((lambda converted-lambda converted-continuation) (let loop ((gs (expression-parameters x))) (cond ((pair? gs) (set-variable-accessed?! (first gs) #f) (loop (rest gs))) ((variable? gs) (set-variable-accessed?! gs #f)))) (when (expression-body x) (loop (expression-body x)))) ((set!) (loop (expression-source x))) ((if) (loop (expression-antecedent x)) (loop (expression-consequent x)) (loop (expression-alternate x))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) #f) ((call converted-call) (loop (expression-callee x)) (for-each loop (expression-arguments x))) (else (fuck-up))))) xs1) (for-each (lambda (g) (when (some (lambda (x) (eq? (expression-variable x) g)) xs1) (set-variable-accessed?! g #f))) gs) (for-each (lambda (x) (let loop ((x x)) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) #f) ((vector-constant) #f) ((lambda converted-lambda converted-continuation) (when (expression-body x) (loop (expression-body x)))) ((set!) (loop (expression-source x))) ((if) (loop (expression-antecedent x)) (loop (expression-consequent x)) (loop (expression-alternate x))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) (when (memq (expression-variable x) gs) (set-variable-accessed?! (expression-variable x) #t))) ((call converted-call) (loop (expression-callee x)) (for-each loop (expression-arguments x))) (else (fuck-up))))) xs2) (let loop () (let ((again? #f)) (for-each (lambda (x) (when (variable-accessed? (expression-variable x)) (let loop ((x x)) (set-expression-accessed?! x #t) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) (loop (car (expression-constant x))) (loop (cdr (expression-constant x)))) ((vector-constant) (for-each-vector loop (expression-constant x))) ((lambda converted-lambda converted-continuation) (let loop ((gs (expression-parameters x))) (cond ((pair? gs) (set-variable-accessed?! (first gs) #t) (loop (rest gs))) ((variable? gs) (set-variable-accessed?! gs #t)))) (when (expression-body x) (loop (expression-body x)))) ((set!) (loop (expression-source x))) ((if) (loop (expression-antecedent x)) (loop (expression-consequent x)) (loop (expression-alternate x))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) (when (and (memq (expression-variable x) gs) (not (variable-accessed? (expression-variable x)))) (set-variable-accessed?! (expression-variable x) #t) (set! again? #t))) ((call converted-call) (loop (expression-callee x)) (for-each loop (expression-arguments x))) (else (fuck-up)))))) xs1) (when again? (loop)))) ;; Remove the unused variables. (set-expression-parameters! (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))) (remove-if-not variable-accessed? (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))))) ;; Remove the extra noops that initialize the unused variables to undefined. (for-each (lambda (x) (let loop ((x x)) (set-expression-accessed?! x #f) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) (loop (car (expression-constant x))) (loop (cdr (expression-constant x)))) ((vector-constant) (for-each-vector loop (expression-constant x))) ((lambda converted-lambda converted-continuation) (let loop ((gs (expression-parameters x))) (cond ((pair? gs) (set-variable-accessed?! (first gs) #f) (loop (rest gs))) ((variable? gs) (set-variable-accessed?! gs #f)))) (when (expression-body x) (loop (expression-body x)))) ((set!) (loop (expression-source x))) ((if) (loop (expression-antecedent x)) (loop (expression-consequent x)) (loop (expression-alternate x))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) #f) ((call converted-call) (loop (expression-callee x)) (for-each loop (expression-arguments x))) (else (fuck-up))))) (sublist (expression-arguments (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))) (length (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))) (length (expression-arguments (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))))) (set-expression-arguments! (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))) (sublist (expression-arguments (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))) 0 (length (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))))) ;; Remove the unused definitions. (set-expression-arguments! (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))) (remove-if-not expression-accessed? (expression-arguments (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))))) (unless (expression-accessed? (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))))) (set-expression-body! (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))) #f)) ;; Remove the hunoz variables for the unused definitions. (for-each (lambda (g) (set-variable-accessed?! g #f)) (sublist (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))))) (length (expression-arguments (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))))) (length (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))))))) (set-expression-parameters! (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*)))))))))) (sublist (expression-parameters (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))))) 0 (length (expression-arguments (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body (expression-callee (expression-body *x*))))))))))))) (set! *gs* (remove-if-not variable-accessed? *gs*)) (set! *xs* (remove-if-not expression-accessed? *xs*)) (set! *calls* (remove-if-not expression-accessed? *calls*)) (set! *accesses* (remove-if-not expression-accessed? *accesses*)) (set! *assignments* (remove-if-not expression-accessed? *assignments*)) (set! *references* (remove-if-not expression-accessed? *references*)) (set! *es* (remove-if-not (lambda (e) (expression-accessed? (environment-expression e))) *es*)) ;; This is just for error checking. (for-each (lambda (g) (set-variable-accessed?! g #f)) *gs*) (for-each (lambda (x) (set-expression-accessed?! x #f)) *xs*) (let loop ((x *x*)) (unless (memq x *xs*) (fuck-up)) (set-expression-accessed?! x #t) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) (loop (car (expression-constant x))) (loop (cdr (expression-constant x)))) ((vector-constant) (for-each-vector loop (expression-constant x))) ((lambda converted-lambda converted-continuation) (let loop ((gs (expression-parameters x))) (cond ((pair? gs) (unless (memq (first gs) *gs*) (fuck-up)) (set-variable-accessed?! (first gs) #t) (loop (rest gs))) ((variable? gs) (unless (memq gs *gs*) (fuck-up)) (set-variable-accessed?! gs #t)))) (when (expression-body x) (loop (expression-body x)))) ((set!) (unless (memq (expression-variable x) *gs*) (fuck-up)) (loop (expression-source x))) ((if) (loop (expression-antecedent x)) (loop (expression-consequent x)) (loop (expression-alternate x))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) (unless (memq (expression-variable x) *gs*) (fuck-up))) ((call converted-call) (loop (expression-callee x)) (for-each loop (expression-arguments x))) (else (fuck-up)))) (unless (and (every variable-accessed? *gs*) (every expression-accessed? *xs*)) (fuck-up))))) ;;; Annotate expressions with their parents (define (annotate-expressions-with-their-parents!) (for-each (lambda (x) (set-expression-parent! x (unspecified))) *xs*) (set-expression-parent! *x* #f) (let loop ((x *x*)) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) (unless (eq? (expression-parent (car (expression-constant x))) (unspecified)) (fuck-up)) (set-expression-parent! (car (expression-constant x)) x) (unless (eq? (expression-parent (cdr (expression-constant x))) (unspecified)) (fuck-up)) (set-expression-parent! (cdr (expression-constant x)) x) (loop (car (expression-constant x))) (loop (cdr (expression-constant x)))) ((vector-constant) (for-each-vector (lambda (x1) (unless (eq? (expression-parent x1) (unspecified)) (fuck-up)) (set-expression-parent! x1 x) (loop x1)) (expression-constant x))) ((lambda converted-lambda converted-continuation) (unless (noop? x) (unless (eq? (expression-parent (expression-body x)) (unspecified)) (fuck-up)) (set-expression-parent! (expression-body x) x) (loop (expression-body x)))) ((set!) (unless (eq? (expression-parent (expression-source x)) (unspecified)) (fuck-up)) (set-expression-parent! (expression-source x) x) (loop (expression-source x))) ((if) (unless (eq? (expression-parent (expression-antecedent x)) (unspecified)) (fuck-up)) (set-expression-parent! (expression-antecedent x) x) (unless (eq? (expression-parent (expression-consequent x)) (unspecified)) (fuck-up)) (set-expression-parent! (expression-consequent x) x) (unless (eq? (expression-parent (expression-alternate x)) (unspecified)) (fuck-up)) (set-expression-parent! (expression-alternate x) x) (loop (expression-antecedent x)) (loop (expression-consequent x)) (loop (expression-alternate x))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) #f) ((call converted-call) (unless (eq? (expression-parent (expression-callee x)) (unspecified)) (fuck-up)) (set-expression-parent! (expression-callee x) x) (loop (expression-callee x)) (for-each (lambda (x1) (unless (eq? (expression-parent x1) (unspecified)) (fuck-up)) (set-expression-parent! x1 x) (loop x1)) (expression-arguments x))) (else (fuck-up)))) ;; This is needed because, after CPS conversion, there may be dangling ;; expressions, particularly clones. (set! *xs* (remove-if (lambda (x) (eq? (expression-parent x) (unspecified))) *xs*)) (set! *calls* (remove-if (lambda (x) (eq? (expression-parent x) (unspecified))) *calls*)) (set! *accesses* (remove-if (lambda (x) (eq? (expression-parent x) (unspecified))) *accesses*)) (set! *assignments* (remove-if (lambda (x) (eq? (expression-parent x) (unspecified))) *assignments*)) (set! *references* (remove-if (lambda (x) (eq? (expression-parent x) (unspecified))) *references*))) ;;; In-line first-order calls to primitive procedures (define (first-order-position? x) (or (not (expression-parent x)) (and (or (eq? (expression-kind (expression-parent x)) 'call) (eq? (expression-kind (expression-parent x)) 'converted-call)) (eq? x (expression-callee (expression-parent x)))) (and (eq? (expression-kind (expression-parent x)) 'if) (or (eq? x (expression-antecedent (expression-parent x))) (first-order-position? (expression-parent x)))))) (define *primitive-procedure-rewrites* ;; needs work: This doesn't in-line the procedures created by ;; DEFINE-STRUCTURE. '((not not) (boolean? boolean?) (eq? eq?) (pair? structure? pair) (cons make-structure pair 2) (car structure-ref pair 0) (cdr structure-ref pair 1) (set-car! structure-set! pair 0) (set-cdr! structure-set! pair 1) (null? null?) (symbol? symbol?) (symbol->string symbol->string) (string->uninterned-symbol string->uninterned-symbol) (number? number?) (real? real?) (integer? integer?) (exact? exact?) (inexact? inexact?) (= =) (< <) (> >) (<= <=) (>= >=) (zero? zero?) (positive? positive?) (negative? negative?) (max max) (min min) (+ +) (* *) (- -) (/ /) (quotient quotient) (remainder remainder) (<< <<) (>> >>) (bitwise-not bitwise-not) (bitwise-and bitwise-and) (bitwise-or bitwise-or) (bitwise-xor bitwise-xor) (floor floor) (ceiling ceiling) (truncate truncate) (round round) (exp exp) (log log) (sin sin) (cos cos) (tan tan) (asin asin) (acos acos) (atan atan) (sqrt sqrt) (expt expt) (exact->inexact exact->inexact) (inexact->exact inexact->exact) (char? char?) (char->integer char->integer) (integer->char integer->char) (string? string?) (make-string make-string) (string string) (string-length string-length) (string-ref string-ref) (string-set! string-set!) (vector? vector?) (make-vector make-vector) (make-displaced-vector make-displaced-vector) (vector vector) (vector-length vector-length) (vector-ref vector-ref) (vector-set! vector-set!) (procedure? procedure?) (apply apply) (call-with-current-continuation call-with-current-continuation) (input-port? input-port?) (output-port? output-port?) (open-input-file open-input-file) (open-output-file open-output-file) (close-input-port close-input-port) (close-output-port close-output-port) (eof-object? eof-object?) (panic panic) (pointer? pointer?) (integer->string integer->string) (integer->input-port integer->input-port) (integer->output-port integer->output-port) (integer->pointer integer->pointer))) (define (in-line-first-order-calls-to-primitive-procedures!) (let ((xs (remove-if-not (lambda (x) (and (first-order-position? x) (expression-parent x) (assq (variable-name (expression-variable x)) *primitive-procedure-rewrites*) (not (empty? (parent (variable-environment (expression-variable x))))) (or (empty? (parent (parent (variable-environment (expression-variable x))))) (and (not (empty? (parent (parent (parent (variable-environment (expression-variable x))))))) (empty? (parent (parent (parent (parent (variable-environment (expression-variable x))))))) (not (some (lambda (x1) (eq? (expression-variable x1) (expression-variable x))) *assignments*)))))) *accesses*))) (for-each (lambda (x) ((cond ((or (eq? (expression-kind (expression-parent x)) 'call) (eq? (expression-kind (expression-parent x)) 'converted-call)) set-expression-callee!) ((and (eq? (expression-kind (expression-parent x)) 'if) (eq? x (expression-antecedent (expression-parent x)))) set-expression-antecedent!) ((and (eq? (expression-kind (expression-parent x)) 'if) (eq? x (expression-consequent (expression-parent x)))) set-expression-consequent!) ((and (eq? (expression-kind (expression-parent x)) 'if) (eq? x (expression-alternate (expression-parent x)))) set-expression-alternate!) (else (fuck-up))) (expression-parent x) (create-expression 'primitive-procedure x (cdr (assq (variable-name (expression-variable x)) *primitive-procedure-rewrites*))))) xs) (set! *xs* (set-differenceq *xs* xs)) (set! *accesses* (set-differenceq *accesses* xs)) (set! *references* (set-differenceq *references* xs)))) ;;; Annotate variables with their environments (define (annotate-environment-variables-with-their-environment! e) (for-each (lambda (g) (unless (eq? (variable-environment g) (unspecified)) (fuck-up)) (set-variable-environment! g e)) (variables e))) (define (annotate-variables-with-their-environments!) (for-each (lambda (g) (set-variable-environment! g (unspecified))) *gs*) (for-each annotate-environment-variables-with-their-environment! *es*) (when (some (lambda (g) (eq? (variable-environment g) (unspecified))) *gs*) (fuck-up))) ;;; Annotate expressions with their environments (define (annotate-environment-expressions-with-their-environment! e) (unless (eq? e (narrow-prototype e)) (unless (eq? (expression-environment (environment-expression e)) (unspecified)) (fuck-up)) (set-expression-environment! (environment-expression e) (let loop ((x (expression-parent (environment-expression (narrow-prototype e))))) (if (or (eq? (expression-kind x) 'lambda) (eq? (expression-kind x) 'converted-lambda) (eq? (expression-kind x) 'converted-continuation)) (expression-lambda-environment x) (loop (expression-parent x)))))) (unless (noop? e) (let loop ((x (expression-body (environment-expression e)))) (unless (eq? (expression-environment x) (unspecified)) (fuck-up)) (set-expression-environment! x e) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) (loop (car (expression-constant x))) (loop (cdr (expression-constant x)))) ((vector-constant) (for-each-vector loop (expression-constant x))) ((lambda converted-lambda converted-continuation) #f) ((set!) (loop (expression-source x))) ((if) (loop (expression-antecedent x)) (loop (expression-consequent x)) (loop (expression-alternate x))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) #f) ((call converted-call) (loop (expression-callee x)) (for-each loop (expression-arguments x))) (else (fuck-up)))))) (define (annotate-expressions-with-their-environments!) (for-each (lambda (x) (set-expression-environment! x (unspecified))) *xs*) (set-expression-environment! *x* #f) (for-each annotate-environment-expressions-with-their-environment! *es*) (when (some (lambda (x) (eq? (expression-environment x) (unspecified))) *xs*) (fuck-up))) ;;; Annotate variables with their references (define (annotate-variables-with-their-references!) (for-each (lambda (g) (set-variable-accesses! g '()) (set-variable-assignments! g '()) (set-variable-references! g '())) *gs*) (for-each (lambda (x) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) #f) ((vector-constant) #f) ((lambda converted-lambda converted-continuation) #f) ((set!) (set-variable-assignments! (expression-variable x) (cons x (variable-assignments (expression-variable x)))) (set-variable-references! (expression-variable x) (cons x (variable-references (expression-variable x))))) ((if) #f) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) (set-variable-accesses! (expression-variable x) (cons x (variable-accesses (expression-variable x)))) (set-variable-references! (expression-variable x) (cons x (variable-references (expression-variable x))))) ((call converted-call) #f) (else (fuck-up)))) *xs*)) ;;; Perform flow analysis ;;; Prior to conversion, `continues' and `returns' should be the same. Errors, ;;; infinite loops, and calls to PANIC, no-return foreign procedures, ;;; continuations don't return and don't continue. After conversion, `returns' ;;; implies `continues' but not vice versa. But even here, `continues' and ;;; `returns' should be the same for implicit continuation calls. Errors, ;;; infinite loops, and (both converted and nonconverted) calls to PANIC, ;;; no-return foreign procedures, and nonconverted continuations don't ;;; continue or return. (Both converted and nonconverted) calls to converted ;;; continuations and converted native procedures might return but don't ;;; continue. And converted calls whose implicit continuation call doesn't ;;; return might continue but don't return. (define (environment-continues? e) (when (or (converted? e) (converted-continuation? e)) (fuck-up)) (or (noop? e) (expression-continues? (expression-body (environment-expression e))))) (define (environment-returns? e) (or (noop? e) (expression-returns? (expression-body (environment-expression e))))) (define (continues? ws w y) (when (continuation-argument-call-site? y) (fuck-up)) (lambda (u) (and ((truly-compatible-procedure? ws w y) u) ;; Calls to nonconverted continuations never continue. (or (and (primitive-procedure-type? u) (cond (((primitive-procedure-type-named? 'apply) u) (and (if (converted? y) (cond ((null? ws) (can-be? (lambda (u) (and ((list-type-of-length-at-least? 2) u) (can-be? (continues? (list (pair-type-car u)) (pair-type-cdr (pair-type-cdr u)) (recreate-call-site y 'first-argument)) (pair-type-car (pair-type-cdr u))))) w)) ((null? (rest ws)) (can-be? (lambda (u) (and ((list-type-of-length-at-least? 1) u) (can-be? (continues? ws (pair-type-cdr u) (recreate-call-site y 'first-argument)) (pair-type-car u)))) w)) (else (or (and (can-be? null-type? w) (can-be? (continues? (cons (first ws) (but-last (rest (rest ws)))) (last ws) (recreate-call-site y 'first-argument)) (second ws))) (can-be? (continues? (cons (first ws) (rest (rest ws))) w (recreate-call-site y 'first-argument)) (second ws))))) (if (null? ws) (can-be? (lambda (u) (and ((list-type-of-length-at-least? 1) u) (can-be? (continues? '() (pair-type-cdr u) (recreate-call-site y 'first-argument)) (pair-type-car u)))) w) (or (and (can-be? null-type? w) (can-be? (continues? (but-last (rest ws)) (last ws) (recreate-call-site y 'first-argument)) (first ws))) (can-be? (continues? (rest ws) w (recreate-call-site y 'first-argument)) (first ws))))))) (((primitive-procedure-type-named? 'call-with-current-continuation) u) (and (or (if (converted? y) (cond ((null? ws) (can-be? (lambda (u) (and ((list-type-of-length? 2) u) (can-be? (continues? (list (pair-type-car u) (pair-type-car u)) (pair-type-cdr (pair-type-cdr u)) (recreate-call-site y 'first-argument)) (pair-type-car (pair-type-cdr u))))) w)) ((null? (rest ws)) (can-be? (lambda (u) (and ((list-type-of-length? 1) u) (can-be? (continues? (list (first ws) (first ws)) (pair-type-cdr u) (recreate-call-site y 'first-argument)) (pair-type-car u)))) w)) (else (can-be? (continues? (cons (first ws) (cons (first ws) (rest (rest ws)))) w (recreate-call-site y 'first-argument)) (second ws)))) (if (null? ws) (can-be? (lambda (u) (and ((list-type-of-length? 1) u) (can-be? (continues? (list (create-anonymous-type-set ( (call-site-expression y)))) (pair-type-cdr u) (recreate-call-site y 'first-argument)) (pair-type-car u)))) w) (can-be? (continues? (list (create-anonymous-type-set ( (call-site-expression y)))) w (recreate-call-site y 'first-argument)) (first ws)))) (some (lambda (u) (and ((continuation-type-to? (call-site-expression y)) u) (continuation-type-continuation-accessed? u))) *continuation-types*)))) (((primitive-procedure-type-named? 'panic) u) #f) (((primitive-procedure-type-named? 'fork) u) ;; needs work: To handle converted calls to FORK. (when (converted? y) (unimplemented y "unimplemented")) ;; For now, calls to FORK always continue. #t) (((primitive-procedure-type-named? 'mutex) u) ;; needs work: To handle converted calls to MUTEX. (when (converted? y) (unimplemented y "unimplemented")) ;; For now, calls to MUTEX always continue. #t) (else #t))) (and (native-procedure-type? u) (not (converted? (callee-environment u y))) (not (converted-continuation? (callee-environment u y))) (environment-continues? (callee-environment u y))) (and (foreign-procedure-type? u) (foreign-procedure-returns? u)))))) (define (returns? ws w y) (lambda (u) (and ((truly-compatible-procedure? ws w y) u) ;; Calls to nonconverted continuations never return. (or (and (primitive-procedure-type? u) (cond (((primitive-procedure-type-named? 'apply) u) (and (if (converted? y) (cond ((null? ws) (can-be? (lambda (u) (and ((list-type-of-length-at-least? 2) u) (can-be? (returns? (list (pair-type-car u)) (pair-type-cdr (pair-type-cdr u)) (recreate-call-site y 'first-argument)) (pair-type-car (pair-type-cdr u))))) w)) ((null? (rest ws)) (can-be? (lambda (u) (and ((list-type-of-length-at-least? 1) u) (can-be? (returns? ws (pair-type-cdr u) (recreate-call-site y 'first-argument)) (pair-type-car u)))) w)) (else (or (and (can-be? null-type? w) (can-be? (returns? (cons (first ws) (but-last (rest (rest ws)))) (last ws) (recreate-call-site y 'first-argument)) (second ws))) (can-be? (returns? (cons (first ws) (rest (rest ws))) w (recreate-call-site y 'first-argument)) (second ws))))) (if (null? ws) (can-be? (lambda (u) (and ((list-type-of-length-at-least? 1) u) (can-be? (returns? '() (pair-type-cdr u) (recreate-call-site y 'first-argument)) (pair-type-car u)))) w) (or (and (can-be? null-type? w) (can-be? (returns? (but-last (rest ws)) (last ws) (recreate-call-site y 'first-argument)) (first ws))) (can-be? (returns? (rest ws) w (recreate-call-site y 'first-argument)) (first ws))))))) (((primitive-procedure-type-named? 'call-with-current-continuation) u) (and (or (if (converted? y) (cond ((null? ws) (can-be? (lambda (u) (and ((list-type-of-length? 2) u) (can-be? (returns? (list (pair-type-car u) (pair-type-car u)) (pair-type-cdr (pair-type-cdr u)) (recreate-call-site y 'first-argument)) (pair-type-car (pair-type-cdr u))))) w)) ((null? (rest ws)) (can-be? (lambda (u) (and ((list-type-of-length? 1) u) (can-be? (returns? (list (first ws) (first ws)) (pair-type-cdr u) (recreate-call-site y 'first-argument)) (pair-type-car u)))) w)) (else (can-be? (returns? (cons (first ws) (cons (first ws) (rest (rest ws)))) w (recreate-call-site y 'first-argument)) (second ws)))) (if (null? ws) (can-be? (lambda (u) (and ((list-type-of-length? 1) u) (can-be? (returns? (list (create-anonymous-type-set ( (call-site-expression y)))) (pair-type-cdr u) (recreate-call-site y 'first-argument)) (pair-type-car u)))) w) (can-be? (returns? (list (create-anonymous-type-set ( (call-site-expression y)))) w (recreate-call-site y 'first-argument)) (first ws)))) (some (lambda (u) (and ((continuation-type-to? (call-site-expression y)) u) (continuation-type-continuation-accessed? u))) *continuation-types*)))) (((primitive-procedure-type-named? 'panic) u) #f) (((primitive-procedure-type-named? 'fork) u) ;; needs work: To handle converted calls to FORK. (when (converted? y) (unimplemented y "unimplemented")) ;; For now, calls to FORK always return. #t) (((primitive-procedure-type-named? 'mutex) u) ;; needs work: To handle converted calls to MUTEX. (when (converted? y) (unimplemented y "unimplemented")) ;; For now, calls to MUTEX always return. #t) (else (or (not (converted? y)) (can-be? (returns? (list *void*) *null* (recreate-call-site y 'continuation-argument)) (first ws)))))) (and (native-procedure-type? u) (environment-returns? (callee-environment u y)) (or (not (converted? y)) (converted? (callee-environment u y)) (converted-continuation? (callee-environment u y)) (not (environment-continues? (callee-environment u y))) (can-be? (returns? (list *void*) *null* (recreate-call-site y 'continuation-argument)) (first ws)))) (and (foreign-procedure-type? u) (foreign-procedure-returns? u) (or (not (converted? y)) (can-be? (returns? (list *void*) *null* (recreate-call-site y 'continuation-argument)) (first ws)))))))) (define (needs-implicit-continuation-call? ws w y) (unless (converted? y) (fuck-up)) (lambda (u) (and ((truly-compatible-procedure? ws w y) u) ;; Calls to nonconverted continuations never continue so you never need to ;; implicitly call the continuation after a call to a nonconverted ;; continuation. (or (and (primitive-procedure-type? u) (cond ;; The call to APPLY doesn't implicitly call the continuation. The ;; first-argument call does. (((primitive-procedure-type-named? 'apply) u) #f) ;; The call to CALL-WITH-CURRENT-CONTINUATION doesn't implicitly ;; call the continuation. The first-argument call does. (((primitive-procedure-type-named? 'call-with-current-continuation) u) #f) ;; PANIC doesn't continue so you never need to imlicitly call the ;; continuation after a call to PANIC. (((primitive-procedure-type-named? 'panic) u) #f) ;; needs work: To handle converted calls to FORK. (((primitive-procedure-type-named? 'fork) u) (unimplemented y "unimplemented")) ;; needs work: To handle converted calls to MUTEX. (((primitive-procedure-type-named? 'mutex) u) (unimplemented y "unimplemented")) ;; Assume all other primitive procedures continue. Since the primitive ;; procedures are not converted and don't implicitly call the ;; continuation it must be implicitly called after the call to the ;; primitive procedure continues. (else #t))) (and (native-procedure-type? u) ;; The call to a converted native procedure doesn't implicitly ;; call the continuation. The converted native procedure does. (not (converted? (callee-environment u y))) ;; Calls to converted continuations never continue so you never ;; need to implicitly call the continuation after a call to a ;; converted continuation. (not (converted-continuation? (callee-environment u y))) (environment-continues? (callee-environment u y))) (and (foreign-procedure-type? u) (foreign-procedure-returns? u)))))) (define (first-argument-needs-implicit-continuation-call? ws w y) (unless (converted? y) (fuck-up)) (lambda (u) (and ((truly-compatible-procedure? ws w y) u) (or (and ((primitive-procedure-type-named? 'apply) u) (cond ((null? ws) (can-be? (lambda (u) (and ((list-type-of-length-at-least? 2) u) (can-be? (needs-implicit-continuation-call? (list (pair-type-car u)) (pair-type-cdr (pair-type-cdr u)) (recreate-call-site y 'first-argument)) (pair-type-car (pair-type-cdr u))))) w)) ((null? (rest ws)) (can-be? (lambda (u) (and ((list-type-of-length-at-least? 1) u) (can-be? (needs-implicit-continuation-call? ws (pair-type-cdr u) (recreate-call-site y 'first-argument)) (pair-type-car u)))) w)) (else (or (and (can-be? null-type? w) (can-be? (needs-implicit-continuation-call? (cons (first ws) (but-last (rest (rest ws)))) (last ws) (recreate-call-site y 'first-argument)) (second ws))) (can-be? (needs-implicit-continuation-call? (cons (first ws) (rest (rest ws))) w (recreate-call-site y 'first-argument)) (second ws)))))) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) (or (cond ((null? ws) (can-be? (lambda (u) (and ((list-type-of-length? 2) u) (can-be? (needs-implicit-continuation-call? (list (pair-type-car u) (pair-type-car u)) (pair-type-cdr (pair-type-cdr u)) (recreate-call-site y 'first-argument)) (pair-type-car (pair-type-cdr u))))) w)) ((null? (rest ws)) (can-be? (lambda (u) (and ((list-type-of-length? 1) u) (can-be? (needs-implicit-continuation-call? (list (first ws) (first ws)) (pair-type-cdr u) (recreate-call-site y 'first-argument)) (pair-type-car u)))) w)) (else (can-be? (needs-implicit-continuation-call? (cons (first ws) (cons (first ws) (rest (rest ws)))) w (recreate-call-site y 'first-argument)) (second ws)))) (some (lambda (u) (and ((continuation-type-to? (call-site-expression y)) u) (continuation-type-continuation-accessed? u))) *continuation-types*))) (and ((primitive-procedure-type-named? 'fork) u) ;; needs work: To handle converted calls to FORK. (unimplemented y "unimplemented")) (and ((primitive-procedure-type-named? 'mutex) u) ;; needs work: To handle converted calls to MUTEX. (unimplemented y "unimplemented")))))) (define (assert-member! u w) (unless (member? u w) (insert-member! u w) (set! *again?* #t) ;; This is purely for efficiency. ;; It runs the inference rules for an expression when the type set of a ;; subexpression is widened. (when (and (type-set-location w) (expression? (type-set-location w)) (expression? (expression-parent (type-set-location w))) (not (eq? (expression-kind (expression-parent (type-set-location w))) 'lambda)) (not (eq? (expression-kind (expression-parent (type-set-location w))) 'converted-lambda)) (not (eq? (expression-kind (expression-parent (type-set-location w))) 'converted-continuation))) (push! (expression-parent (type-set-location w)))) ;; This is purely for efficiency. ;; It runs the inference rules for a call when the return type set of ;; the callee is widened. (when (and (type-set-location w) (expression? (type-set-location w)) (expression? (expression-parent (type-set-location w))) ;; The next expression is a kludge. (environment? (expression-lambda-environment (expression-parent (type-set-location w))))) (for-each (lambda (y) (unless (top-level-call-site? y) (push! (call-site-expression y)))) (call-sites (expression-lambda-environment (expression-parent (type-set-location w)))))) ;; This is purely for efficiency. ;; It runs the inference rules for an access when the type set of a ;; variable is widened. (when (and (type-set-location w) (variable? (type-set-location w))) (for-each push! (accesses (type-set-location w)))))) (define (assert-subset! w1 w2) (for-each-member (lambda (u1) (assert-member! u1 w2)) w1)) (define (assert-continues! x) (unless (expression-continues? x) (set-expression-continues?! x #t) (set! *again?* #t))) (define (assert-returns! x) (unless (expression-returns? x) (set-expression-returns?! x #t) (set! *again?* #t) ;; This is purely for efficiency. ;; It runs the inference rules for an expression when a subexpression ;; returns. (when (and (expression? (expression-parent x)) (not (eq? (expression-kind (expression-parent x)) 'lambda)) (not (eq? (expression-kind (expression-parent x)) 'converted-lambda)) (not (eq? (expression-kind (expression-parent x)) 'converted-continuation))) (push! (expression-parent x))) ;; This is purely for efficiency. ;; It runs the inference rules for a call when the callee returns. (when (and (expression? (expression-parent x)) ;; The next expression is a kludge. (environment? (expression-lambda-environment (expression-parent x)))) (for-each (lambda (y) (unless (top-level-call-site? y) (push! (call-site-expression y)))) (call-sites (expression-lambda-environment (expression-parent x))))))) (define (assert-expression-reached! x) (unless (expression-reached? x) (if (and (or (eq? (expression-kind x) 'lambda) (eq? (expression-kind x) 'converted-lambda) (eq? (expression-kind x) 'converted-continuation)) ;; The next expression is a kludge. (environment? (expression-lambda-environment x))) ;; note: This is because the EXPRESSION-REACHED? slot gets reset for ;; each round of flow analysis and clones are not anchored in ;; lambda expressions so their EXPRESSION-REACHED? slot never gets ;; set on subsequent passes. (for-each (lambda (e) (set-expression-reached?! (environment-expression e) #t)) (narrow-clones (expression-lambda-environment x))) (set-expression-reached?! x #t)) (set! *again?* #t) ;; This is purely for efficiency. ;; It runs the inference rule for an expression when it is used. (push! x))) (define (propagate-call! y w0 ws w) (for-each-member (lambda (u) (when ((truly-compatible-procedure? ws w y) u) (cond ((primitive-procedure-type? u) ;; Top-level calls should never be to a primitive procedure. ;; Implicit continuation calls should never be to a primitive procedure. (when (or (top-level-call-site? y) (continuation-argument-call-site? y)) (fuck-up)) (let ((w0 (if (converted? y) (first ws) #f)) (ws (if (converted? y) (rest ws) ws))) (let ((propagate-result! (if (converted? y) (lambda (u) (propagate-call! (recreate-call-site y 'continuation-argument) w0 (list (create-anonymous-type-set u)) *null*)) (lambda (u) ;; This works because APPLY and ;; CALL-WITH-CURRENT-CONTINUATION always return the result ;; returned by the call to their procedure argument. (assert-member! u (expression-type-set (call-site-expression y))))))) ;; conventions: PROPAGATE-RESULT! (((primitive-procedure-propagate-call! (cdr (assq (primitive-procedure-type-name u) *primitive-procedure-handlers*))) y u propagate-result! (lambda (m) (when (can-be? m (first ws)) (propagate-result! )) (when (can-be-non? m (first ws)) (propagate-result! ))) w0) ws w)) ;; For the life of me I can't remember what this does but if it is ;; removed then test21.sc and em-functional.sc break. ;; On R23May96 I partially rediscovered why this is needed. It is ;; because a converted call to a primitive procedure like SET-CAR! ;; might not ever call PROPAGATE-RESULT! in the propagator so the ;; continuation never gets asserted as called. (when (and (converted? y) ((needs-implicit-continuation-call? (cons w0 ws) w y) u)) (propagate-call! (recreate-call-site y 'continuation-argument) w0 (list *void*) *null*)))) ((native-procedure-type? u) (let ((e (callee-environment u y))) (when (and (not (converted? y)) (converted? e)) (fuck-up)) (unless (noop? e) (assert-expression-reached! (expression-body (environment-expression e)))) (unless (memp same-call-site? y (environment-call-sites e)) (set-environment-call-sites! e (cons y (environment-call-sites e)))) (let loop ((ws (if (and (converted? y) (not (converted? e))) (rest ws) ws)) (w w) (gs (variables e))) (unless (null? gs) (cond ((and (null? (rest gs)) (rest? e)) (set-type-set-used?! (variable-type-set (first gs)) #t) (if (null? ws) (assert-subset! w (variable-type-set (first gs))) ;; Since Y appears in the following and Y is #F at the top-level ;; call this assumes that the top level doesn't take a variable ;; number of arguments. ;; note: This is suboptimal since type propagation is not yet ;; complete and APPLY-CLOSED-WORLD-ASSUMPTION! has not ;; been done yet. (assert-member! ( (map members ws) (members w) (call-site-expression y)) (variable-type-set (first gs))))) ((null? ws) (for-each-member (lambda (u) (when ((if (rest? e) (list-type-of-length-at-least? (- (length gs) 1)) (list-type-of-length? (length gs))) u) (set-type-set-used?! (variable-type-set (first gs)) #t) (assert-subset! (pair-type-car u) (variable-type-set (first gs))) (loop ws (pair-type-cdr u) (rest gs)))) w)) (else (set-type-set-used?! (variable-type-set (first gs)) #t) (assert-subset! (first ws) (variable-type-set (first gs))) (loop (rest ws) w (rest gs)))))) ;; Top-level calls don't have an associated type set so there is no ;; need to propagate the return type. (unless (top-level-call-site? y) (when (and (converted? y) ((needs-implicit-continuation-call? ws w y) u)) (propagate-call! (recreate-call-site y 'continuation-argument) (first ws) (list (return-type-set e)) *null*)) ;; This works because APPLY and CALL-WITH-CURRENT-CONTINUATION always ;; return the result returned by the call to their procedure argument ;; and because implicit continuation calls should never be converted ;; and should never be through APPLY or CALL-WITH-CURRENT-CONTINUATION. (when ((returns? ws w y) u) (assert-subset! (return-type-set e) (expression-type-set (call-site-expression y))))))) ((foreign-procedure-type? u) ;; Top-level calls should never be to a foreign procedure. ;; Implicit continuation calls should never be to a foreign procedure. (when (or (top-level-call-site? y) (continuation-argument-call-site? y)) (fuck-up)) (set-foreign-procedure-type-called?! u #t) (when (and (converted? y) ((needs-implicit-continuation-call? ws w y) u)) (propagate-call! (recreate-call-site y 'continuation-argument) (first ws) (list (foreign-procedure-return-type-set u)) *null*)) ;; This works because APPLY and CALL-WITH-CURRENT-CONTINUATION always ;; return the result returned by the call to their procedure argument. (when ((returns? ws w y) u) (assert-subset! (foreign-procedure-return-type-set u) (expression-type-set (call-site-expression y))))) ((continuation-type? u) ;; Top-level calls should never be to a continuation. ;; Implicit continuation calls should never be to a continuation. (when (or (top-level-call-site? y) (continuation-argument-call-site? y)) (fuck-up)) ;; Calls to a nonconverted continuation should never be converted (even ;; if the argument to the call is converted) because they never return. ;; needs work: The above comment is not true because a call site might ;; call both a nonconverted continuation and somethings else ;; which does return and there might be a converted call to ;; a nonconverted continuation. (when (converted? y) (unimplemented y "unimplemented")) (set-continuation-type-continuation-accessed?! u #t) ;; Calls to nonconverted continuations never return. (let ((w1 (expression-type-set (continuation-type-allocating-expression u)))) (set-type-set-used?! w1 #t) (if (null? ws) (for-each-member (lambda (u) (when ((list-type-of-length? 1) u) (assert-subset! (pair-type-car u) w1))) w) (assert-subset! (first ws) w1)))) (else (fuck-up))))) w0)) (define (assert-types-in-if-context! us w x g p?) ;; conventions: P? (let ((x1 (expression-antecedent (expression-parent x)))) ;; note: Don't chain back through access, source of SET!, antecedent, ;; consequent, or alternate of IF, or callee or arguments of call. (cond ((eq? (expression-kind x1) 'call) (cond ((and (not (converted? x1)) (= (length (expression-arguments x1)) 1) (eq? (expression-kind (first (expression-arguments x1))) 'call)) (when (can-be? (primitive-procedure-type-named? 'not) (expression-type-set (expression-callee x1))) (let ((x2 (first (expression-arguments x1)))) (when (eq? (expression-kind x2) 'call) (for-each-member (lambda (u) (when ((truly-compatible-call? x2) u) ;; note: Don't chain back through calls to continuations or native ;; or foreign procedures. (if (primitive-procedure-type? u) (let loop ((us us) (xs (expression-arguments x2)) (ps (((if p? primitive-procedure-alternate-contexts primitive-procedure-consequent-contexts) (cdr (assq (primitive-procedure-type-name u) *primitive-procedure-handlers*))) (create-call-site x2) u (length (expression-arguments x2)) (if (converted? x2) (expression-type-set (first (expression-arguments x2))) #f)))) ;; conventions: PS (if (null? xs) (assert-types-in-context! us w (expression-parent x) g) (loop (if (and (eq? (expression-kind (first xs)) 'access) (eq? (expression-variable (first xs)) g)) (remove-if-not (first ps) us) us) (rest xs) (rest ps)))) (assert-types-in-context! us w (expression-parent x) g)))) (expression-type-set (expression-callee x2)))))) (when (can-be-non? (primitive-procedure-type-named? 'not) (expression-type-set (expression-callee x1))) (assert-types-in-context! us w (expression-parent x) g))) (else (for-each-member (lambda (u) (when ((truly-compatible-call? x1) u) ;; note: Don't chain back through calls to continuations or native or ;; foreign procedures. (if (primitive-procedure-type? u) (let loop ((us us) (xs (expression-arguments x1)) (ps (((if p? primitive-procedure-consequent-contexts primitive-procedure-alternate-contexts) (cdr (assq (primitive-procedure-type-name u) *primitive-procedure-handlers*))) (create-call-site x1) u (length (expression-arguments x1)) (if (converted? x1) (expression-type-set (first (expression-arguments x1))) #f)))) ;; conventions: PS (if (null? xs) (assert-types-in-context! us w (expression-parent x) g) (loop (if (and (eq? (expression-kind (first xs)) 'access) (eq? (expression-variable (first xs)) g)) (remove-if-not (first ps) us) us) (rest xs) (rest ps)))) (assert-types-in-context! us w (expression-parent x) g)))) (expression-type-set (expression-callee x1)))))) ((eq? (expression-kind x1) 'access) (assert-types-in-context! (if (eq? (expression-variable x1) g) (remove-if-not (if p? (lambda (u) (not (false-type? u))) false-type?) us) us) w (expression-parent x) g)) (else (assert-types-in-context! us w (expression-parent x) g))))) (define (assert-types-in-context! us w x g) (when (expression? (expression-parent x)) (case (expression-kind (expression-parent x)) ((lambda converted-lambda converted-continuation) ;; note: Don't chain back through callers except for LETs. Would have to ;; union across callers using demon. (if (let? (expression-lambda-environment (expression-parent x))) (assert-types-in-context! us w (expression-parent x) g) (for-each (lambda (u) (assert-member! u w)) us))) ((if) (cond ((eq? x (expression-consequent (expression-parent x))) (assert-types-in-if-context! us w x g #t)) ((eq? x (expression-alternate (expression-parent x))) (assert-types-in-if-context! us w x g #f)) (else (assert-types-in-context! us w (expression-parent x) g)))) (else (assert-types-in-context! us w (expression-parent x) g))))) (define (infer! x) (when (expression-reached? x) (let ((w (expression-type-set x))) (set-type-set-used?! w #t) (case (expression-kind x) ((null-constant) (unless (expression-inferred? x) (assert-member! w) (assert-continues! x) (assert-returns! x))) ((true-constant) (unless (expression-inferred? x) (assert-member! w) (assert-continues! x) (assert-returns! x))) ((false-constant) (unless (expression-inferred? x) (assert-member! w) (assert-continues! x) (assert-returns! x))) ((char-constant) (unless (expression-inferred? x) (assert-member! w) (assert-continues! x) (assert-returns! x))) ((fixnum-constant) (unless (expression-inferred? x) (assert-member! w) (assert-continues! x) (assert-returns! x))) ((flonum-constant) (unless (expression-inferred? x) (assert-member! w) (assert-continues! x) (assert-returns! x))) ((rectangular-constant) (unless (expression-inferred? x) (assert-member! w) (assert-continues! x) (assert-returns! x))) ((string-constant) (unless (expression-inferred? x) (assert-member! w) (assert-continues! x) (assert-returns! x))) ((symbol-constant) (unless (expression-inferred? x) (assert-member! (if *treat-all-symbols-as-external?* ( ) ( (expression-constant x))) w) (assert-continues! x) (assert-returns! x))) ((pair-constant) (unless (expression-inferred? x) (assert-expression-reached! (car (expression-constant x))) (assert-expression-reached! (cdr (expression-constant x)))) (assert-member! ( ;; note: This is suboptimal since type propagation is not yet complete ;; and APPLY-CLOSED-WORLD-ASSUMPTION! has not been done yet. (members (expression-type-set (car (expression-constant x)))) (members (expression-type-set (cdr (expression-constant x)))) x) w) (unless (expression-inferred? x) (assert-continues! x) (assert-returns! x))) ((vector-constant) (unless (expression-inferred? x) (for-each-vector assert-expression-reached! (expression-constant x))) (assert-member! ( ;; note: This is suboptimal since type propagation is not yet complete ;; and APPLY-CLOSED-WORLD-ASSUMPTION! has not been done yet. (reduce-vector unionq (map-vector (lambda (x1) (members (expression-type-set x1))) (expression-constant x)) '()) x) w) (unless (expression-inferred? x) (assert-continues! x) (assert-returns! x))) ((lambda converted-lambda converted-continuation) (unless (expression-inferred? x) (assert-member! ( (expression-lambda-environment x)) w) (assert-continues! x) (assert-returns! x))) ((set!) (assert-expression-reached! (expression-source x)) (set-type-set-used?! (variable-type-set (expression-variable x)) #t) (assert-subset! (expression-type-set (expression-source x)) (variable-type-set (expression-variable x))) (when (expression-continues? (expression-source x)) (assert-continues! x)) (when (expression-returns? (expression-source x)) (assert-returns! x))) ((if) (assert-expression-reached! (expression-antecedent x)) (when (can-be-non? false-type? (expression-type-set (expression-antecedent x))) (assert-expression-reached! (expression-consequent x)) (assert-subset! (expression-type-set (expression-consequent x)) w)) (when (can-be? false-type? (expression-type-set (expression-antecedent x))) (assert-expression-reached! (expression-alternate x)) (assert-subset! (expression-type-set (expression-alternate x)) w)) (when (and (expression-continues? (expression-antecedent x)) (or (expression-continues? (expression-consequent x)) (expression-continues? (expression-alternate x)))) (assert-continues! x)) (when (and (expression-returns? (expression-antecedent x)) (or (expression-returns? (expression-consequent x)) (expression-returns? (expression-alternate x)))) (assert-returns! x))) ((primitive-procedure) (unless (expression-inferred? x) (assert-member! ( (first (expression-constant x)) (rest (expression-constant x))) w) (assert-continues! x) (assert-returns! x))) ((foreign-procedure) (unless (expression-inferred? x) (assert-member! ( (third (expression-constant x)) (first (expression-constant x)) (second (expression-constant x)) (and (= (length (expression-constant x)) 4) (fourth (expression-constant x)))) w) (assert-continues! x) (assert-returns! x))) ((access) (set-type-set-used?! (variable-type-set (expression-variable x)) #t) ;; needs work: Should ignore assignments that aren't executed. ;; needs work: Should ignore void assignments. (if (null? (assignments (expression-variable x))) (assert-types-in-context! (members (variable-type-set (expression-variable x))) w x (expression-variable x)) (assert-subset! (variable-type-set (expression-variable x)) w)) (assert-continues! x) (assert-returns! x)) ((call) ;; needs work: Only assert a subexpression as used if the previous ;; subexpression returns. This assumes a left-to-right ;; evaluation order. As Olin Shivers pointed out, since ;; evaluation order is unspecified you can abort if any ;; subexpression doesn't return. But given the way the ;; propagator works, we can only determine whether an ;; expression returns by asserting it as used. So we have to ;; pick some order and it might as well be left to right. (assert-expression-reached! (expression-callee x)) (for-each assert-expression-reached! (expression-arguments x)) (when (executed? x) (propagate-call! (create-call-site x) (expression-type-set (expression-callee x)) (map expression-type-set (expression-arguments x)) *null*) (when (can-be? (continues? (map expression-type-set (expression-arguments x)) *null* (create-call-site x)) (expression-type-set (expression-callee x))) (assert-continues! x)) (when (can-be? (returns? (map expression-type-set (expression-arguments x)) *null* (create-call-site x)) (expression-type-set (expression-callee x))) (assert-returns! x)))) ((converted-call) ;; needs work: Only assert a subexpression as used if the previous ;; subexpression returns. This assumes a left-to-right ;; evaluation order. As Olin Shivers pointed out, since ;; evaluation order is unspecified you can abort if any ;; subexpression doesn't return. But given the way the ;; propagator works, we can only determine whether an ;; expression returns by asserting it as used. So we have to ;; pick some order and it might as well be left to right. (assert-expression-reached! (expression-callee x)) (for-each assert-expression-reached! (expression-arguments x)) (when (executed? x) (propagate-call! (create-call-site x) (expression-type-set (expression-callee x)) (map expression-type-set (expression-arguments x)) *null*) (when (can-be? (continues? (map expression-type-set (expression-arguments x)) *null* (create-call-site x)) (expression-type-set (expression-callee x))) (assert-continues! x)) (when (can-be? (returns? (map expression-type-set (expression-arguments x)) *null* (create-call-site x)) (expression-type-set (expression-callee x))) (assert-returns! x)))) (else (fuck-up)))) (set-expression-inferred?! x #t))) (define (push! x) (unless (expression-link x) (set-expression-link! x (if *x1* *x1* #t)) (set! *x1* x))) (define (run-stack!) (let loop () (when *x1* (let ((x *x1*)) (set! *x1* (if (eq? (expression-link x) #t) #f (expression-link x))) (set-expression-link! x #f) (infer! x) (loop))))) (define (perform-flow-analysis!) (set! *types-frozen?* #f) (reinitialize-types-and-type-sets!) (for-each (lambda (x) ;; Only narrow prototypes get a type set. (when (or (and (not (eq? (expression-kind x) 'lambda)) (not (eq? (expression-kind x) 'converted-lambda)) (not (eq? (expression-kind x) 'converted-continuation))) ;; The next expression is a kludge. (not (environment? (expression-lambda-environment x))) (eq? (narrow-prototype (expression-lambda-environment x)) (expression-lambda-environment x))) (set-expression-type-set! x (create-type-set x))) (set-expression-reached?! x #f) (set-expression-inferred?! x #f) (set-expression-returns?! x #f)) *xs*) (for-each (lambda (x) ;; Clones that are not narrow prototypes share their type set with their ;; narrow prototype. (when (and (or (eq? (expression-kind x) 'lambda) (eq? (expression-kind x) 'converted-lambda) (eq? (expression-kind x) 'converted-continuation)) ;; The next expression is a kludge. (environment? (expression-lambda-environment x)) (not (eq? (narrow-prototype (expression-lambda-environment x)) (expression-lambda-environment x)))) (set-expression-type-set! x (expression-type-set (environment-expression (narrow-prototype (expression-lambda-environment x))))))) *xs*) (for-each (lambda (e) (set-environment-call-sites! e '())) *es*) (for-each (lambda (g) (set-variable-type-set! g (create-type-set g))) *gs*) (assert-expression-reached! *x*) (let loop () (clock-sample) ;To prevent overflow. (set! *again?* #f) (propagate-call! *y* (expression-type-set *x*) (list *w1*) *null*) (run-stack!) (for-each push! *xs*) (run-stack!) (when *again?* (loop))) (set! *types-frozen?* #t)) ;;; Enumerate call sites (define (enumerate-call-sites!) (set! *ys* '()) (for-each (lambda (x) (when (and (executed? x) (not (empty? (expression-environment x))) (environment-used? (expression-environment x))) (set! *ys* (cons (create-call-site x) *ys*)) (when (can-be? (lambda (u) (and (or ((primitive-procedure-type-named? 'apply) u) ((primitive-procedure-type-named? 'call-with-current-continuation) u) ((primitive-procedure-type-named? 'fork) u) ((primitive-procedure-type-named? 'mutex) u)) ((truly-compatible-call? x) u))) (expression-type-set (expression-callee x))) (set! *ys* (cons (recreate-call-site (create-call-site x) 'first-argument) *ys*))) (when (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'fork) u) ((truly-compatible-call? x) u))) (expression-type-set (expression-callee x))) (set! *ys* (cons (recreate-call-site (create-call-site x) 'second-argument) *ys*))))) *calls*)) ;;; Determine which types and type sets are used (define (determine-which-types-and-type-sets-are-used!) (let loop () (let ((again? #f)) (define (assert-used! u) (cond ((null-type? u) (set! *null-type-used?* #t)) ((true-type? u) (set! *true-type-used?* #t)) ((false-type? u) (set! *false-type-used?* #t)) ((char-type? u) (set! *char-type-used?* #t)) ((fixnum-type? u) (set! *fixnum-type-used?* #t)) ((flonum-type? u) (set! *flonum-type-used?* #t)) ((rectangular-type? u) (set! *rectangular-type-used?* #t)) ((input-port-type? u) (set! *input-port-type-used?* #t)) ((output-port-type? u) (set! *output-port-type-used?* #t)) ((eof-object-type? u) (set! *eof-object-type-used?* #t)) ((pointer-type? u) (set! *pointer-type-used?* #t)) ((internal-symbol-type? u) (set-internal-symbol-type-used?! u #t)) ((external-symbol-type? u) (unless (type-used? u) (set-external-symbol-type-used?! u #t) (set! again? #t))) ((primitive-procedure-type? u) (set-primitive-procedure-type-used?! u #t)) ((native-procedure-type? u) (set-native-procedure-type-used?! u #t)) ((foreign-procedure-type? u) (set-foreign-procedure-type-used?! u #t)) ((continuation-type? u) (unless (type-used? u) (set-continuation-type-used?! u #t))) ((string-type? u) (set-string-type-used?! u #t)) ((structure-type? u) (unless (type-used? u) (set-structure-type-used?! u #t) (set! again? #t))) ((headed-vector-type? u) (unless (type-used? u) (set-headed-vector-type-used?! u #t) (set! again? #t))) ((nonheaded-vector-type? u) (unless (type-used? u) (set-nonheaded-vector-type-used?! u #t) (set! again? #t))) ((displaced-vector-type? u) (unless (type-used? u) (set-displaced-vector-type-used?! u #t) (set! again? #t))) (else (fuck-up)))) (for-each (lambda (u) (when (type-used? u) (assert-used! (external-symbol-type-displaced-string-type u)))) *external-symbol-types*) (for-each (lambda (u) (when (type-used? u) (for-each (lambda (w) (unless (type-set-used? w) (set-type-set-used?! w #t) (set! again? #t))) (structure-type-slots u)))) *structure-types*) (for-each (lambda (u) (when (type-used? u) (unless (type-set-used? (headed-vector-type-element u)) (set-type-set-used?! (headed-vector-type-element u) #t) (set! again? #t)))) *headed-vector-types*) (for-each (lambda (u) (when (type-used? u) (unless (type-set-used? (nonheaded-vector-type-element u)) (set-type-set-used?! (nonheaded-vector-type-element u) #t) (set! again? #t)))) *nonheaded-vector-types*) (for-each (lambda (u) (when (type-used? u) (assert-used! (displaced-vector-type-displaced-vector-type u)))) *displaced-vector-types*) (for-each (lambda (w) (when (type-set-used? w) (for-each-member assert-used! w))) *ws*) (when again? (loop))))) (define (replace-expression! x1 x2) (case (expression-kind (expression-parent x1)) ((lambda converted-lambda converted-continuation) (unless (eq? (expression-body (expression-parent x1)) x1) (fuck-up)) (set-expression-body! (expression-parent x1) x2)) ((set!) (unless (eq? (expression-source (expression-parent x1)) x1) (fuck-up)) (set-expression-source! (expression-parent x1) x2)) ((if) (cond ((eq? (expression-antecedent (expression-parent x1)) x1) (set-expression-antecedent! (expression-parent x1) x2)) ((eq? (expression-consequent (expression-parent x1)) x1) (set-expression-consequent! (expression-parent x1) x2)) ((eq? (expression-alternate (expression-parent x1)) x1) (set-expression-alternate! (expression-parent x1) x2)) (else (fuck-up)))) ((call converted-call) (cond ((eq? (expression-callee (expression-parent x1)) x1) (set-expression-callee! (expression-parent x1) x2)) ((one (lambda (x3) (eq? x3 x1)) (expression-arguments (expression-parent x1))) (set-expression-arguments! (expression-parent x1) (map (lambda (x3) (if (eq? x3 x1) x2 x3)) (expression-arguments (expression-parent x1))))) (else (fuck-up)))) (else (fuck-up)))) (define (remove-unused-objects! p?) (when p? (set! *xs* (remove-if-not reached? *xs*)) (set! *calls* (remove-if-not reached? *calls*)) (set! *accesses* (remove-if-not reached? *accesses*)) (set! *assignments* (remove-if-not reached? *assignments*)) (set! *references* (remove-if-not reached? *references*)) (for-each (lambda (x) (when (and (or (eq? (expression-kind x) 'lambda) (eq? (expression-kind x) 'converted-lambda) (eq? (expression-kind x) 'converted-continuation)) (not (called? (expression-lambda-environment x)))) (set-expression-parameters! x (unspecified))) (when (and (or (eq? (expression-kind x) 'lambda) (eq? (expression-kind x) 'converted-lambda) (eq? (expression-kind x) 'converted-continuation)) (not (called? (expression-lambda-environment x)))) (set-expression-lambda-environment! x (unspecified)))) *xs*) (set! *internal-symbol-types* (remove-if-not type-used? *internal-symbol-types*)) (set! *external-symbol-types* (remove-if-not type-used? *external-symbol-types*)) (set! *primitive-procedure-types* (remove-if-not type-used? *primitive-procedure-types*)) (set! *native-procedure-types* (remove-if-not type-used? *native-procedure-types*)) (set! *foreign-procedure-types* (remove-if-not type-used? *foreign-procedure-types*)) (set! *continuation-types* (remove-if-not type-used? *continuation-types*)) (set! *string-types* (remove-if-not type-used? *string-types*)) (set! *structure-types* (remove-if-not type-used? *structure-types*)) (set! *headed-vector-types* (remove-if-not type-used? *headed-vector-types*)) (set! *nonheaded-vector-types* (remove-if-not type-used? *nonheaded-vector-types*)) (set! *displaced-vector-types* (remove-if-not type-used? *displaced-vector-types*))) (for-each (lambda (u) (set-native-procedure-type-call-site-environment-alist! u (remove-if-not (lambda (y-e) (and (or (top-level-call-site? (car y-e)) (reached? (call-site-expression (car y-e)))) (called? (cdr y-e)))) (native-procedure-type-call-site-environment-alist u))) (when p? (unless (called? (native-procedure-type-narrow-prototype u)) (set-native-procedure-type-narrow-prototype! u (find-if called? (narrow-clones u)))))) *native-procedure-types*) (when p? (set! *ws* (remove-if-not type-set-used? *ws*))) (for-each (lambda (w) (set-members! w (members-that type-used? w))) *ws*) (when p? (set! *gs* (remove-if-not variable-used? *gs*)) (for-each (lambda (g) (set-variable-accesses! g (remove-if-not reached? (variable-accesses g))) (set-variable-assignments! g (remove-if-not reached? (variable-assignments g))) (set-variable-references! g (remove-if-not reached? (variable-references g)))) *gs*) (for-each (lambda (e) (when (and (eq? (narrow-prototype e) e) (not (called? e)) (some (lambda (e1) (and (called? e1) (eq? (expression-accessed? (environment-expression e1)) (expression-accessed? (environment-expression e))))) (narrow-clones e))) (replace-expression! (environment-expression e) (environment-expression (find-if (lambda (e1) (and (called? e1) (eq? (expression-accessed? (environment-expression e1)) (expression-accessed? (environment-expression e))))) (narrow-clones e)))))) *es*) (for-each (lambda (e) (set-environment-narrow-clones! e (remove-if-not called? (narrow-clones (narrow-prototype e)))) (set-environment-parent-parameter! e (parent-parameter e))) *es*) (for-each (lambda (e) (when (and (not (called? (environment-narrow-prototype e))) ;; This is a kludge. (some called? (narrow-clones e))) (set-environment-narrow-prototype! e (find-if called? (narrow-clones e))))) *es*) (for-each (lambda (e) (unless (eq? e (environment-narrow-prototype e)) (set-environment-narrow-clones! e '()) (set-environment-parent-parameter! e (unspecified)))) *es*) (let ((es (remove-if-not called? *es*))) (for-each set-environment-wide-prototype! es (map (lambda (e) (find-if (lambda (e1) (and (eq? (environment-narrow-prototype e1) e1) (eq? (environment-wide-prototype e1) (environment-wide-prototype e)))) es)) es))) ;; This is just because of *CLOSURE-CONVERSION-METHOD*. (for-each (lambda (e) (when (environment-used? e) (set-environment-expressions! e (remove-if-not reached? (environment-expressions e))))) *es*) ;; This is just because of *CLOSURE-CONVERSION-METHOD*. (for-each (lambda (e) (when (environment-used? e) (set-environment-continuation-calls! e (remove-if-not reached? (environment-continuation-calls e))))) *es*) (set! *es0* (remove-if-not (lambda (e) (and (called? e) (noop? e))) *es*)) (set! *es* (remove-if-not environment-used? *es*)))) (define (check-for-corruption p?) (define (memq-*us* u) (cond ((internal-symbol-type? u) (memq u *internal-symbol-types*)) ((external-symbol-type? u) (memq u *external-symbol-types*)) ((primitive-procedure-type? u) (memq u *primitive-procedure-types*)) ((native-procedure-type? u) (memq u *native-procedure-types*)) ((foreign-procedure-type? u) (memq u *foreign-procedure-types*)) ((continuation-type? u) (memq u *continuation-types*)) ((string-type? u) (memq u *string-types*)) ((structure-type? u) (memq u *structure-types*)) ((headed-vector-type? u) (memq u *headed-vector-types*)) ((nonheaded-vector-type? u) (memq u *nonheaded-vector-types*)) ((displaced-vector-type? u) (memq u *displaced-vector-types*)) (else #t))) (let ((p0? #f) ;*XS* (p1? #f) ;*ES* (p2? #f) ;*WS* (p3? #f) ;*GS* (p4? #f)) ;*US* (unless (and (nonheaded-vector-type? (the-member *w1*)) (string-type? (the-member (nonheaded-vector-type-element (the-member *w1*))))) (fuck-up)) (unless (void? *void*) (fuck-up)) (unless (null-type? (the-member *null*)) (fuck-up)) (unless (input-port-type? (the-member *input-port*)) (fuck-up)) (unless (output-port-type? (the-member *output-port*)) (fuck-up)) (unless (char-type? (the-member *foreign-char-type-set*)) (fuck-up)) (unless (fixnum-type? (the-member *foreign-fixnum-type-set*)) (fuck-up)) (unless (flonum-type? (the-member *foreign-flonum-type-set*)) (fuck-up)) (unless (string-type? (the-member *foreign-string-type-set*)) (fuck-up)) (unless (input-port-type? (the-member *foreign-input-port-type-set*)) (fuck-up)) (unless (output-port-type? (the-member *foreign-output-port-type-set*)) (fuck-up)) (unless (pointer-type? (the-member *foreign-pointer-type-set*)) (fuck-up)) (when p0? (unless (subsetq? *calls* *xs*) (fuck-up)) (unless (subsetq? *accesses* *xs*) (fuck-up)) (unless (subsetq? *assignments* *xs*) (fuck-up)) (unless (subsetq? *references* *xs*) (fuck-up)) (let loop ((x *x*)) (when (reached? x) (unless (memq x *xs*) (fuck-up)) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) (loop (car (expression-constant x))) (loop (cdr (expression-constant x)))) ((vector-constant) (for-each-vector loop (expression-constant x))) ((lambda converted-lambda converted-continuation) (unless (noop? x) (loop (expression-body x)))) ((set!) (loop (expression-source x))) ((if) (loop (expression-antecedent x)) (loop (expression-consequent x)) (loop (expression-alternate x))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) #f) ((call converted-call) (loop (expression-callee x)) (for-each loop (expression-arguments x))) (else (fuck-up)))))) (for-each (lambda (x) ;; EXPRESSION-LINK (when (and (reached? x) (environment? (expression-environment x)) (not (called? (expression-environment x)))) (fuck-up)) (when (and p1? (environment? (expression-environment x)) (not (memq (expression-environment x) *es*))) (fuck-up)) (when (and (reached? x) (not (type-set-used? (expression-type-set x)))) (fuck-up)) (when (and p2? (reached? x) (not (memq (expression-type-set x) *ws*))) (fuck-up)) (when (and (reached? x) (expression? (expression-parent x)) (not (reached? (expression-parent x)))) (fuck-up)) (when (and p0? (expression? (expression-parent x)) (not (memq (expression-parent x) *xs*))) (fuck-up)) ;; EXPRESSION-CONSTANT (when (and p? (environment? (expression-lambda-environment x)) (not (called? (expression-lambda-environment x)))) (fuck-up)) (when (and p1? (environment? (expression-lambda-environment x)) (not (noop? (expression-lambda-environment x))) (not (memq (expression-lambda-environment x) *es*))) (fuck-up)) (when (and p3? (or (variable? (expression-parameters x)) (pair? (expression-parameters x)))) (let loop ((gs (expression-parameters x))) (cond ((pair? gs) (unless (memq (first gs) *gs*) (fuck-up)) (loop (rest gs))) ((variable? gs) (unless (memq gs *gs*) (fuck-up))) ((null? gs) #f) (else (fuck-up))))) ;; EXPRESSION-BODY (when (and p3? (variable? (expression-variable x)) (not (memq (expression-variable x) *gs*))) (fuck-up)) (when (and (reached? x) (expression? (expression-source x)) (not (reached? (expression-source x)))) (fuck-up)) (when (and p0? (expression? (expression-source x)) (not (memq (expression-source x) *xs*))) (fuck-up)) (when (and (reached? x) (expression? (expression-antecedent x)) (not (reached? (expression-antecedent x)))) (fuck-up)) (when (and p0? (expression? (expression-antecedent x)) (not (memq (expression-antecedent x) *xs*))) (fuck-up)) ;; EXPRESSION-CONSEQUENT ;; EXPRESSION-ALTERNATE (when (and (reached? x) (expression? (expression-callee x)) (not (reached? (expression-callee x)))) (fuck-up)) (when (and p0? (expression? (expression-callee x)) (not (memq (expression-callee x) *xs*))) (fuck-up)) (when (list? (expression-arguments x)) (when (reached? x) (for-each (lambda (x) (unless (reached? x) (fuck-up))) (expression-arguments x))) (when p0? (for-each (lambda (x) (unless (memq x *xs*) (fuck-up))) (expression-arguments x)))) ;; EXPRESSION-ORIGINAL-EXPRESSION (when p1? (for-each (lambda (u-e) (when (or (not (type-used? (car u-e))) (not (memq-*us* (car u-e))) (and (region-allocation? (cdr u-e)) (or (not (called? (cdr u-e))) (not (memq (cdr u-e) *es*))))) (fuck-up))) (expression-type-allocation-alist x)))) *xs*) (for-each (lambda (u) ;; EXTERNAL-SYMBOL-TYPE-LINK (unless (type-used? (external-symbol-type-displaced-string-type u)) (fuck-up)) (when (and p4? (not (memq (external-symbol-type-displaced-string-type u) *string-types*))) (fuck-up))) *external-symbol-types*) (for-each (lambda (u) (when (and (native-procedure-type-narrow-prototype u) (not (eq? (environment-narrow-prototype (native-procedure-type-narrow-prototype u)) (native-procedure-type-narrow-prototype u)))) (fuck-up)) (when (and p? (native-procedure-type-narrow-prototype u) (not (called? (native-procedure-type-narrow-prototype u)))) (fuck-up)) (when (and p? p1? (native-procedure-type-narrow-prototype u) (not (noop? (native-procedure-type-narrow-prototype u))) (not (memq (native-procedure-type-narrow-prototype u) *es*))) (fuck-up)) (for-each (lambda (y-e) (when (and (call-site? (car y-e)) (not (reached? (call-site-expression (car y-e))))) (fuck-up)) (when (and p0? (call-site? (car y-e)) (not (memq (call-site-expression (car y-e)) *xs*))) (fuck-up)) (unless (called? (cdr y-e)) (fuck-up)) (when (and p1? (not (noop? (cdr y-e))) (not (memq (cdr y-e) *es*))) (fuck-up)) (unless (memq (cdr y-e) (narrow-clones (cdr y-e))) (fuck-up))) (native-procedure-type-call-site-environment-alist u))) *native-procedure-types*) (for-each (lambda (u) (when (and (expression? (continuation-type-allocating-expression u)) (not (reached? (continuation-type-allocating-expression u)))) (fuck-up)) (when (and p0? (expression? (continuation-type-allocating-expression u)) (not (memq (continuation-type-allocating-expression u) *xs*))) (fuck-up)) ;; This is a real kludge. (unless (eq? (continuation-type-call-sites u) (unspecified)) (for-each (lambda (y) (unless (reached? (call-site-expression y)) (fuck-up)) (when (and p0? (not (memq (call-site-expression y) *xs*))) (fuck-up))) (continuation-type-call-sites u)))) *continuation-types*) (for-each (lambda (u) ;; STRING-TYPE-LINK (for-each (lambda (x) (when (and (expression? x) (not (reached? x))) (fuck-up)) (when (and p0? (expression? x) (not (memq x *xs*))) (fuck-up))) (string-type-allocating-expressions u))) *string-types*) (for-each (lambda (u) (for-each (lambda (w) (unless (type-set-used? w) (fuck-up)) (when (and p2? (not (memq w *ws*))) (fuck-up))) (structure-type-slots u)) ;; STRUCTURE-TYPE-LINK (for-each (lambda (x) (when (and (expression? x) (not (reached? x))) (fuck-up)) (when (and p0? (expression? x) (not (memq x *xs*))) (fuck-up))) (structure-type-allocating-expressions u))) *structure-types*) (for-each (lambda (u) (unless (type-set-used? (headed-vector-type-element u)) (fuck-up)) (when (and p2? (not (memq (headed-vector-type-element u) *ws*))) (fuck-up)) ;; HEADED-VECTOR-TYPE-LINK (for-each (lambda (x) (when (and (expression? x) (not (reached? x))) (fuck-up)) (when (and p0? (expression? x) (not (memq x *xs*))) (fuck-up))) (headed-vector-type-allocating-expressions u))) *headed-vector-types*) (for-each (lambda (u) (unless (type-set-used? (nonheaded-vector-type-element u)) (fuck-up)) (when (and p2? (not (memq (nonheaded-vector-type-element u) *ws*))) (fuck-up)) ;; NONHEADED-VECTOR-TYPE-LINK (for-each (lambda (x) (when (and (expression? x) (not (reached? x))) (fuck-up)) (when (and p0? (expression? x) (not (memq x *xs*))) (fuck-up))) (nonheaded-vector-type-allocating-expressions u))) *nonheaded-vector-types*) (for-each (lambda (u) (unless (type-used? (displaced-vector-type-displaced-vector-type u)) (fuck-up)) ;; DISPLACED-VECTOR-TYPE-LINK (when (and p4? (not (memq-*us* (displaced-vector-type-displaced-vector-type u)))) (fuck-up))) *displaced-vector-types*) (for-each (lambda (w) (when (and (expression? (type-set-location w)) (not (reached? (type-set-location w)))) (fuck-up)) (when (and p0? (expression? (type-set-location w)) (not (memq (type-set-location w) *xs*))) (fuck-up)) (when (and p3? (variable? (type-set-location w)) (not (memq (type-set-location w) *gs*))) (fuck-up)) (when (and (structure-type? (type-set-location w)) (not (type-used? (type-set-location w)))) (fuck-up)) (when (and p4? (structure-type? (type-set-location w)) (not (memq (type-set-location w) *structure-types*))) (fuck-up)) (when (and (headed-vector-type? (type-set-location w)) (not (type-used? (type-set-location w)))) (fuck-up)) (when (and p4? (headed-vector-type? (type-set-location w)) (not (memq (type-set-location w) *headed-vector-types*))) (fuck-up)) (when (and (nonheaded-vector-type? (type-set-location w)) (not (type-used? (type-set-location w)))) (fuck-up)) (when (and p4? (nonheaded-vector-type? (type-set-location w)) (not (memq (type-set-location w) *nonheaded-vector-types*))) (fuck-up)) ;; TYPE-SET-LINK (for-each-member (lambda (u) (unless (type-used? u) (fuck-up)) (when (and p4? (not (memq-*us* u))) (fuck-up))) w)) *ws*) (for-each (lambda (g) (when (and p? (not (variable-used? g))) (fuck-up)) (when (and p1? (not (noop? (variable-environment g))) (not (memq (variable-environment g) *es*))) (fuck-up)) (when (and (variable-used? g) (not (type-set-used? (variable-type-set g)))) (fuck-up)) (when (and p2? (variable-used? g) (not (memq (variable-type-set g) *ws*))) (fuck-up)) (for-each (lambda (x) (unless (reached? x) (fuck-up)) (when (and p0? (not (memq x *xs*))) (fuck-up))) (accesses g)) (for-each (lambda (x) (unless (reached? x) (fuck-up)) (when (and p0? (not (memq x *xs*))) (fuck-up))) (assignments g)) (for-each (lambda (x) (unless (reached? x) (fuck-up)) (when (and p0? (not (memq x *xs*))) (fuck-up))) (references g))) *gs*) (for-each (lambda (e) (when (environment-used? e) (when (and (environment-expression e) (not (reached? (environment-expression e)))) (fuck-up)) (when (and p0? (environment-expression e) (not (memq (environment-expression e) *xs*))) (fuck-up)) (for-each (lambda (y) (unless (or (top-level-call-site? y) (reached? (call-site-expression y))) (fuck-up)) (when (and p0? (not (top-level-call-site? y)) (not (memq (call-site-expression y) *xs*))) (fuck-up))) (call-sites e)) (when (and (region-allocation? (allocation e)) (not (called? (allocation e)))) (fuck-up)) (when (and p1? (region-allocation? (allocation e)) (not (memq (allocation e) *es*))) (fuck-up)) ;; ENVIRONMENT-FREE-VARIABLES ;; ENVIRONMENT-QUICK-PARENT ;; ENVIRONMENT-PARENT-PARAMETER ;; ENVIRONMENT-PARENT-SLOT ;; ENVIRONMENT-ANCESTORS ;; ENVIRONMENT-CHILDREN ;; ENVIRONMENT-PROPERLY-IN-LINED-ENVIRONMENTS (unless (eq? (environment-narrow-prototype (environment-narrow-prototype e)) (environment-narrow-prototype e)) (fuck-up)) (unless (eq? (expression-type-set (environment-expression e)) (expression-type-set (environment-expression (environment-narrow-prototype e)))) (fuck-up)) (when (and (not (eq? e (environment-narrow-prototype e))) (not (null? (environment-narrow-clones e)))) (fuck-up)) (unless (memq e (environment-narrow-clones (environment-narrow-prototype e))) (fuck-up)) (when (and p? (not (called? (environment-narrow-prototype e)))) (fuck-up)) (when (and p? p1? (not (noop? (environment-narrow-prototype e))) (not (memq (environment-narrow-prototype e) *es*))) (fuck-up)) (when p? (for-each (lambda (e) (unless (called? (environment-narrow-prototype e)) (fuck-up)) (when (and p1? (not (noop? (environment-narrow-prototype e))) (not (memq (environment-narrow-prototype e) *es*))) (fuck-up))) (environment-narrow-clones e))) (unless (eq? (environment-narrow-prototype (environment-wide-prototype e)) (environment-wide-prototype e)) (fuck-up)) (when (and p? (not (called? (environment-wide-prototype e)))) (fuck-up)) (when (and p? p1? (not (noop? (environment-wide-prototype e))) (not (memq (environment-wide-prototype e) *es*))) (fuck-up)) ;; This is a real kludge. (unless (eq? (environment-direct-tail-callers e) (unspecified)) (for-each (lambda (e1) (unless (environment-used? e1) (fuck-up)) (when (and p1? (not (memq e1 *es*))) (fuck-up))) (environment-direct-tail-callers e))) ;; This is a real kludge. (unless (eq? (environment-direct-non-tail-callers e) (unspecified)) (for-each (lambda (e1) (unless (environment-used? e1) (fuck-up)) (when (and p1? (not (memq e1 *es*))) (fuck-up))) (environment-direct-non-tail-callers e))) ;; This is a real kludge. (unless (eq? (environment-direct-tail-callees e) (unspecified)) (for-each (lambda (e1) (unless (environment-used? e1) (fuck-up)) (when (and p1? (not (memq e1 *es*))) (fuck-up))) (environment-direct-tail-callees e))) ;; This is a real kludge. (unless (eq? (environment-direct-non-tail-callees e) (unspecified)) (for-each (lambda (e1) (unless (environment-used? e1) (fuck-up)) (when (and p1? (not (memq e1 *es*))) (fuck-up))) (environment-direct-non-tail-callees e))) ;; This is a real kludge. (unless (eq? (environment-expressions e) (unspecified)) (for-each (lambda (x) (unless (reached? x) (fuck-up)) (when (and p0? (not (memq x *xs*))) (fuck-up))) (environment-expressions e))) ;; This is a real kludge. (unless (eq? (environment-continuation-calls e) (unspecified)) (for-each (lambda (x) (unless (reached? x) (fuck-up)) (when (and p0? (not (memq x *xs*))) (fuck-up))) (environment-continuation-calls e))) ;; ENVIRONMENT-DIRECTLY-ESCAPING-TYPES ;; ENVIRONMENT-NON-SELF-TAIL-CALL-SITES (unless (eq? (parent e) (parent (narrow-prototype e))) (fuck-up)))) *es*))) ;;; Determine which call sites to split (define (splittable-call-site-count e) (count-if (lambda (y) (and ;; For now, only split explicit call sites. (explicit-call-site? y) ;; Don't split a call unless the call can actually happen. (executed? (call-site-expression y)) ((truly-compatible-call? (call-site-expression y)) (environment-type e)) ;; Don't split call sites to an environment that are nested in that ;; environment. (not (nested-in? (expression-environment (call-site-expression y)) e)))) (call-sites e))) (define (determine-which-call-sites-to-split!) ;; Reasons for splitting: ;; 1. to eliminate argument-parameter widening ;; 2. to allow in-lining ;; 3. to specialize the lifetime of a rest arg ;; 4. to specialize the lifetime of allocated data ;; 5. to make non-self tail calls self tail calls (let ((split? #f)) (let loop () (let ((again? #f)) (let* ((es1 (remove-if-not (lambda (e) (and ;; Don't split a procedure unless it can be called. (called? e) ;; Don't split noops. (not (noop? e)) ;; Don't split a procedure that has already been split. (eq? (environment-split e) #f) ;; Don't split a procedure when some call site that targets ;; that procedure is nested in some procedure that has ;; already been split. (not (some (lambda (y) (and (explicit-call-site? y) (let loop? ((e1 (expression-environment (call-site-expression y)))) (and (not (empty? e1)) (or (eq? (environment-split e1) #t) (eq? (environment-split e1) 'never) (loop? (parent e1))))))) (call-sites e))))) *es*)) ;; If both E1 and E2 are distinct candidates for splitting, don't ;; split E1 there is a call to E2 nested in E1. (es2 (remove-if (lambda (e1) (clock-sample) ;To prevent overflow. (some (lambda (e2) (and (not (eq? e1 e2)) (some (lambda (y) (and (explicit-call-site? y) (nested-in? (expression-environment (call-site-expression y)) e1))) (call-sites e2)))) es1)) es1))) (for-each (lambda (e) (let ((u (environment-type e))) (cond ((and (or (= *clone-size-limit* -1) (<= (clone-size e) *clone-size-limit*)) ;; Require some compelling reason for splitting. ;; needs work: This should also allow splitting in the following ;; cases: ;; 1. target is not reentrant; to allow in-lining ;; 2. target or some procedure in-lined in target ;; conses; to specialize the lifetime of allocated ;; data ;; 3. target is not in-lined and call site is not a self ;; tail call but there is a tail call path from the ;; target to the call site and the call site is a ;; tail call; to make non-self tail calls tail calls (or *split-even-if-no-widening?* ;; Split calls to varargs targets. To specialize the lifetime of ;; the rest arg. (rest? e) ;; Split calls to non-vararg targets that require widening some ;; argument. To eliminate argument-parameter widening. (some (lambda (y) (and (explicit-call-site? y) (some (lambda (x g) (not (set-equalp? ;; This is a form of uniqueness. ;; needs work: Doesn't handle displaced ;; vectors. (lambda (u1 u2) (or (eq? u1 u2) (and (string-type? u1) (string-type? u2)) (and (structure-type? u1) ((structure-type-named? (structure-type-name u1)) u2)) (and (headed-vector-type? u1) (headed-vector-type? u2)) (and (nonheaded-vector-type? u1) (nonheaded-vector-type? u2)))) (members (expression-type-set x)) (members (variable-type-set g))))) (expression-arguments (call-site-expression y)) (expression-parameters (environment-expression e))))) (call-sites e)))) (when #f ;debugging (notify "Clone size ~a is ~s" (environment-name e) (clone-size e))) (set-environment-split! e #t) (for-each (lambda (y) (when #f ;debugging (notify "Cloning x~s ~a->[clone ~a ~s]" (expression-index (call-site-expression y)) (environment-name e) (environment-name (wide-prototype e)) *ei*) (notify "~s" (undecorate (call-site-expression y)))) (set! *types-frozen?* #f) (set-cdr! (assp same-call-site? y (native-procedure-type-call-site-environment-alist u)) (clone e)) (set! *types-frozen?* #t)) (let ((ys (remove-if-not (lambda (y) (and ;; For now, only split explicit call sites. (explicit-call-site? y) ;; Don't split a call unless the call can actually happen. (executed? (call-site-expression y)) ((truly-compatible-call? (call-site-expression y)) u) ;; Don't split call sites to an environment that are ;; nested in that environment. (not (nested-in? (expression-environment (call-site-expression y)) e)))) (call-sites e)))) ;; The first call site remains assigned to the wide prototype. (if (null? ys) ys (rest ys)))) (set! split? #t)) (else (set-environment-split! e 'never))) (set! again? #t))) (if (null? es2) (if (null? es1) '() (list (minp (lambda (e1 e2) (> (splittable-call-site-count e1) (splittable-call-site-count e2))) es1))) es2))) (when again? (loop)))) split?)) ;;; Compute call graph (define (some-proper-callee p? marked? mark! e) ;; conventions: P? MARKED? MARK! ;; The PROPERLY-CALLS? relation is not necessarily reflexive. (define (loop? e) (and (not (marked? e)) (begin (mark! e #t) (or (p? e) (some loop? (environment-direct-tail-callees e)) (some loop? (environment-direct-non-tail-callees e)))))) (for-each (lambda (e) (mark! e #f)) *es*) (or (some loop? (environment-direct-tail-callees e)) (some loop? (environment-direct-non-tail-callees e)))) (define (some-callee p? marked? mark! e) ;; conventions: P? MARKED? MARK! (for-each (lambda (e) (mark! e #f)) *es*) (let loop? ((e e)) (and (not (marked? e)) (begin (mark! e #t) (or (p? e) (some loop? (environment-direct-tail-callees e)) (some loop? (environment-direct-non-tail-callees e))))))) (define (some-proper-caller p? marked? mark! e) ;; conventions: P? MARKED? MARK! ;; The PROPERLY-CALLS? relation is not necessarily reflexive. (define (loop? e) (and (not (marked? e)) (begin (mark! e #t) (or (p? e) (some loop? (environment-direct-tail-callers e)) (some loop? (environment-direct-non-tail-callers e)))))) (for-each (lambda (e) (mark! e #f)) *es*) (or (some loop? (environment-direct-tail-callers e)) (some loop? (environment-direct-non-tail-callers e)))) (define (some-caller p? marked? mark! e) ;; conventions: P? MARKED? MARK! (for-each (lambda (e) (mark! e #f)) *es*) (let loop? ((e e)) (and (not (marked? e)) (begin (mark! e #t) (or (p? e) (some loop? (environment-direct-tail-callers e)) (some loop? (environment-direct-non-tail-callers e))))))) (define (some-proper-tail-callee p? marked? mark! e) ;; conventions: P? MARKED? MARK! ;; The PROPERLY-TAIL-CALLS? relation is not necessarily reflexive. (define (loop? e) (and (not (marked? e)) (begin (mark! e #t) (or (p? e) (some loop? (environment-direct-tail-callees e)))))) (for-each (lambda (e) (mark! e #f)) *es*) (some loop? (environment-direct-tail-callees e))) (define (some-tail-callee p? marked? mark! e) ;; conventions: P? MARKED? MARK! (for-each (lambda (e) (mark! e #f)) *es*) (let loop? ((e e)) (and (not (marked? e)) (begin (mark! e #t) (or (p? e) (some loop? (environment-direct-tail-callees e))))))) (define (some-proper-tail-caller p? marked? mark! e) ;; conventions: P? MARKED? MARK! ;; The PROPERLY-TAIL-CALLS? relation is not necessarily reflexive. (define (loop? e) (and (not (marked? e)) (begin (mark! e #t) (or (p? e) (some loop? (environment-direct-tail-callers e)))))) (for-each (lambda (e) (mark! e #f)) *es*) (some loop? (environment-direct-tail-callers e))) (define (some-tail-caller p? marked? mark! e) ;; conventions: P? MARKED? MARK! (for-each (lambda (e) (mark! e #f)) *es*) (let loop? ((e e)) (and (not (marked? e)) (begin (mark! e #t) (or (p? e) (some loop? (environment-direct-tail-callers e))))))) (define (properly-calls? e1 e2) ;; The PROPERLY-CALLS? relation is not necessarily reflexive. (some-proper-caller (lambda (e) (eq? e e1)) environment-marked1? set-environment-marked1?! e2)) (define (calls? e1 e2) (or (eq? e1 e2) (properly-calls? e1 e2))) (define (properly-tail-calls? e1 e2) ;; The PROPERLY-TAIL-CALLS? relation is not necessarily reflexive. (some-proper-tail-caller (lambda (e) (eq? e e1)) environment-marked1? set-environment-marked1?! e2)) (define (tail-calls? e1 e2) (or (eq? e1 e2) (properly-tail-calls? e1 e2))) (define (properly-non-tail-calls? e1 e2) (unimplemented #f "unimplemented")) (define (directly-calls? e1 e2) (or (directly-tail-calls? e1 e2) (directly-non-tail-calls? e1 e2))) (define (directly-tail-calls? e1 e2) (memq e1 (environment-direct-tail-callers e2))) (define (directly-non-tail-calls? e1 e2) (memq e1 (environment-direct-non-tail-callers e2))) (define (proper-callees e) ;; The PROPERLY-CALLS? relation is not necessarily reflexive. ;; This is done just for side effect, to set the MARKED1? bits. (some-proper-callee (lambda (e) #f) environment-marked1? set-environment-marked1?! e) (remove-if-not environment-marked1? *es*)) (define (callees e) ;; This is done just for side effect, to set the MARKED1? bits. (some-callee (lambda (e) #f) environment-marked1? set-environment-marked1?! e) (remove-if-not environment-marked1? *es*)) (define (proper-callers e) ;; The PROPERLY-CALLS? relation is not necessarily reflexive. ;; This is done just for side effect, to set the MARKED1? bits. (some-proper-caller (lambda (e) #f) environment-marked1? set-environment-marked1?! e) (remove-if-not environment-marked1? *es*)) (define (callers e) ;; This is done just for side effect, to set the MARKED1? bits. (some-caller (lambda (e) #f) environment-marked1? set-environment-marked1?! e) (remove-if-not environment-marked1? *es*)) (define (proper-tail-callees e) ;; The PROPERLY-TAIL-CALLS? relation is not necessarily reflexive. ;; This is done just for side effect, to set the MARKED1? bits. (some-proper-tail-callee (lambda (e) #f) environment-marked1? set-environment-marked1?! e) (remove-if-not environment-marked1? *es*)) (define (tail-callees e) ;; This is done just for side effect, to set the MARKED1? bits. (some-tail-callee (lambda (e) #f) environment-marked1? set-environment-marked1?! e) (remove-if-not environment-marked1? *es*)) (define (proper-tail-callers e) ;; The PROPERLY-TAIL-CALLS? relation is not necessarily reflexive. ;; This is done just for side effect, to set the MARKED1? bits. (some-proper-tail-caller (lambda (e) #f) environment-marked1? set-environment-marked1?! e) (remove-if-not environment-marked1? *es*)) (define (tail-callers e) ;; This is done just for side effect, to set the MARKED1? bits. (some-tail-caller (lambda (e) #f) environment-marked1? set-environment-marked1?! e) (remove-if-not environment-marked1? *es*)) (define (proper-non-tail-callees e) (remove-if-not (lambda (e1) (and (environment-used? e1) (properly-non-tail-calls? e e1))) *es*)) (define (proper-non-tail-callers e) (remove-if-not (lambda (e1) (and (environment-used? e1) (properly-non-tail-calls? e1 e))) *es*)) (define (direct-callees e) (unionq (direct-tail-callees e) (direct-non-tail-callees e))) (define (direct-callers e) (unionq (direct-tail-callers e) (direct-non-tail-callers e))) (define (direct-tail-callees e) (environment-direct-tail-callees e)) (define (direct-tail-callers e) (environment-direct-tail-callers e)) (define (direct-non-tail-callees e) (environment-direct-non-tail-callees e)) (define (direct-non-tail-callers e) (environment-direct-non-tail-callers e)) (define (compute-call-graph! e) (define (assert-directly-tail-calls! e1 e2) (unless (directly-tail-calls? e1 e2) (set-environment-direct-tail-callers! e2 (cons e1 (environment-direct-tail-callers e2))) (set-environment-direct-tail-callees! e1 (cons e2 (environment-direct-tail-callees e1))))) (define (assert-directly-non-tail-calls! e1 e2) (unless (directly-non-tail-calls? e1 e2) (set-environment-direct-non-tail-callers! e2 (cons e1 (environment-direct-non-tail-callers e2))) (set-environment-direct-non-tail-callees! e1 (cons e2 (environment-direct-non-tail-callees e1))))) ;; Initialize. (for-each (lambda (e) (set-environment-direct-tail-callers! e (unspecified)) (set-environment-direct-non-tail-callers! e (unspecified)) (set-environment-direct-tail-callees! e (unspecified)) (set-environment-direct-non-tail-callees! e (unspecified))) *es*) (for-each (lambda (e) (when (environment-used? e) (set-environment-direct-tail-callers! e '()) (set-environment-direct-non-tail-callers! e '()) (set-environment-direct-tail-callees! e '()) (set-environment-direct-non-tail-callees! e '()))) *es*) ;; Compute direct callees/callers. (for-each (lambda (e1) ;; needs work: This notion of tail call, indicated by P?, doesn't take into ;; account in-lining and vacuous SET!s. (define (mark! x p?) ;; conventions: P? (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) #f) ((vector-constant) #f) ((lambda converted-lambda converted-continuation) #f) ((set!) (mark! (expression-source x) #f)) ((if) (mark! (expression-antecedent x) #f) (when (can-be-non? false-type? (expression-type-set (expression-antecedent x))) (mark! (expression-consequent x) p?)) (when (can-be? false-type? (expression-type-set (expression-antecedent x))) (mark! (expression-alternate x) p?))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) #f) ((call converted-call) (mark! (expression-callee x) #f) (for-each (lambda (x) (mark! x #f)) (expression-arguments x)) (when (executed? x) (when (converted? x) (when (can-be? (needs-implicit-continuation-call? (map expression-type-set (expression-arguments x)) *null* (create-call-site x)) (expression-type-set (expression-callee x))) (for-each-member (lambda (u) (unless (native-procedure-type? u) (fuck-up)) ;; Implicit continuation calls are always tail calls. (assert-directly-tail-calls! e1 (callee-environment u (recreate-call-site (create-call-site x) 'continuation-argument)))) (expression-type-set (continuation-argument x)))) ;; There currently is no need for an analogue of the following for ;; second-argument call sites because they currently cannot be ;; converted. (when (can-be? (first-argument-needs-implicit-continuation-call? (map expression-type-set (expression-arguments x)) *null* (create-call-site x)) (expression-type-set (expression-callee x))) (for-each-member (lambda (u) (unless (native-procedure-type? u) (fuck-up)) ;; Implicit continuation calls are always tail calls. (assert-directly-tail-calls! e1 (callee-environment u (recreate-call-site (recreate-call-site (create-call-site x) 'first-argument) 'continuation-argument)))) (expression-type-set (continuation-argument x))))) (for-each-member (lambda (u) (when ((truly-compatible-call? x) u) (cond (((primitive-procedure-type-named? 'apply) u) (for-each-member (lambda (u) (when (and (native-procedure-type? u) ((truly-compatible-call-via-apply? x) u)) (let ((e2 (callee-environment u (recreate-call-site (create-call-site x) 'first-argument)))) (if p? (assert-directly-tail-calls! e1 e2) (assert-directly-non-tail-calls! e1 e2))))) (expression-type-set (first-argument x)))) (((primitive-procedure-type-named? 'call-with-current-continuation) u) (for-each-member (lambda (u) (when (and (native-procedure-type? u) ((truly-compatible-call-via-call-with-current-continuation? x) u)) (let ((e2 (callee-environment u (recreate-call-site (create-call-site x) 'first-argument)))) (if p? (assert-directly-tail-calls! e1 e2) (assert-directly-non-tail-calls! e1 e2))))) (expression-type-set (first-argument x)))) (((primitive-procedure-type-named? 'fork) u) (for-each-member (lambda (u) (when (and (native-procedure-type? u) ((truly-compatible-call-via-fork1? x) u)) (assert-directly-non-tail-calls! e1 (callee-environment u (recreate-call-site (create-call-site x) 'first-argument))))) (expression-type-set (first-argument x))) (for-each-member (lambda (u) (when (and (native-procedure-type? u) ((truly-compatible-call-via-fork2? x) u)) (assert-directly-non-tail-calls! e1 (callee-environment u (recreate-call-site (create-call-site x) 'second-argument))))) (expression-type-set (second-argument x)))) (((primitive-procedure-type-named? 'mutex) u) (for-each-member (lambda (u) (when (and (native-procedure-type? u) ((truly-compatible-call-via-mutex? x) u)) (assert-directly-non-tail-calls! e1 (callee-environment u (recreate-call-site (create-call-site x) 'first-argument))))) (expression-type-set (first-argument x)))) ((native-procedure-type? u) (let ((e2 (callee-environment u (create-call-site x)))) (unless (noop? e2) (if p? (assert-directly-tail-calls! e1 e2) (assert-directly-non-tail-calls! e1 e2)))))))) (expression-type-set (expression-callee x))))) (else (fuck-up)))) (when (environment-used? e1) (mark! (expression-body (environment-expression e1)) #t))) *es*)) ;;; Determine which environments are called more than once (define (determine-which-environments-are-called-more-than-once!) (for-each (lambda (e) (when (environment-used? e) (clock-sample) ;To prevent overflow. (set-environment-called-more-than-once?! e (or (> (length (call-sites e)) 1) (some (lambda (e) (> (length (call-sites e)) 1)) (proper-callers e)))))) *es*)) ;;; Determine which variables are referenced (define (determine-which-variables-are-referenced!) (for-each (lambda (x) (set-expression-accessed?! x #f)) *xs*) (for-each (lambda (g) (set-variable-accessed?! g #f)) *gs*) (for-each (lambda (g) (set-variable-assigned?! g #f)) *gs*) (let loop () (let ((again? #f)) (define (assert-callee-accessed! w0 y ws w p?) (for-each-member (lambda (u) (when ((truly-compatible-procedure? ws w y) u) (cond ((primitive-procedure-type? u) (when (explicit-call-site? y) (when (can-be-non? null-type? w) (fuck-up)) ;; note: This assumes that all primitive procedures access all of ;; their arguments. This includes the continuation argument. ;; needs work: The continuation argument should not be accessed ;; by primitive procedures that don't return. (for-each (lambda (x) (assert-expression-accessed! x)) (expression-arguments (call-site-expression y))) ;; Calls to CALL-WITH-CURRENT-CONTINUATION access the results of ;; calling their procedure arguments only if they themselves are ;; accessed. (if (converted? y) (cond (((primitive-procedure-type-named? 'apply) u) (assert-callee-accessed! (second ws) (recreate-call-site y 'first-argument) (cons (first ws) (but-last (rest (rest ws)))) (last ws) p?)) (((primitive-procedure-type-named? 'call-with-current-continuation) u) (assert-callee-accessed! (second ws) (recreate-call-site y 'first-argument) (list (first ws) (first ws)) *null* p?)) (((primitive-procedure-type-named? 'fork) u) (assert-callee-accessed! (second ws) (recreate-call-site y 'first-argument) (list (first ws)) *null* p?) (assert-callee-accessed! (third ws) (recreate-call-site y 'second-argument) (list (first ws)) *null* p?)) (((primitive-procedure-type-named? 'mutex) u) (assert-callee-accessed! (second ws) (recreate-call-site y 'first-argument) (list (first ws)) *null* p?))) (cond (((primitive-procedure-type-named? 'apply) u) (assert-callee-accessed! (first ws) (recreate-call-site y 'first-argument) (but-last (rest ws)) (last ws) p?)) (((primitive-procedure-type-named? 'call-with-current-continuation) u) (assert-callee-accessed! (first ws) (recreate-call-site y 'first-argument) (list (create-anonymous-type-set ( (call-site-expression y)))) *null* p?)) (((primitive-procedure-type-named? 'fork) u) (assert-callee-accessed! (first ws) (recreate-call-site y 'first-argument) '() *null* p?) (assert-callee-accessed! (second ws) (recreate-call-site y 'second-argument) '() *null* p?)) (((primitive-procedure-type-named? 'mutex) u) (assert-callee-accessed! (first ws) (recreate-call-site y 'first-argument) '() *null* p?)))) (when (converted? y) ;; The result of calling the continuation argument is accessed is ;; the call site is accessed. (assert-callee-accessed! (first ws) (recreate-call-site y 'continuation-argument) (list (expression-type-set (call-site-expression y))) *null* p?)))) ((native-procedure-type? u) (let ((e (callee-environment u y))) (when (and (not (noop? e)) (or p? (and (converted? y) (not (converted? e)) (can-be? (lambda (u) (and ((truly-compatible-procedure? (list (return-type-set e)) *null* (recreate-call-site y 'continuation-argument)) u) (or ;; note: This assumes that all primitive procedures ;; access all of their arguments. (primitive-procedure-type? u) (and (native-procedure-type? u) (variable-accessed? (first (variables (callee-environment u (recreate-call-site y 'continuation-argument)))))) ;; note: This assumes that all foreign procedures ;; access all of their arguments. (foreign-procedure-type? u) (and (continuation-type? u) ;; Continuations access their arguments only if their ;; allocation expression is accessed. (expression-accessed? (continuation-type-allocating-expression u)))))) (expression-type-set (continuation-argument (call-site-expression y))))))) (assert-expression-accessed! (expression-body (environment-expression e)))) (when (explicit-call-site? y) (let loop ((gs (variables e)) (xs (if (and (converted? y) (not (converted? e))) (rest (expression-arguments (call-site-expression y))) (expression-arguments (call-site-expression y))))) (unless (null? gs) (cond ((and (rest? e) (null? (rest gs))) (when (variable-accessed? (first gs)) (for-each assert-expression-accessed! xs))) (else (when (variable-accessed? (first gs)) (assert-expression-accessed! (first xs))) (loop (rest gs) (rest xs)))))) (when (and (converted? y) (not (converted? e))) ;; The continuation argument is itself accessed. (assert-expression-accessed! (continuation-argument (call-site-expression y))) ;; The result of calling the continuation argument is accessed if ;; the call site is accessed. (assert-callee-accessed! (first ws) (recreate-call-site y 'continuation-argument) (list (expression-type-set (call-site-expression y))) *null* p?))))) ((foreign-procedure-type? u) (when (explicit-call-site? y) ;; note: This assumes that all foreign procedures access all of their ;; arguments. This includes the continuation argument. ;; needs work: The continuation argument should not be accessed ;; by foreign procedures that don't return. (for-each assert-expression-accessed! (expression-arguments (call-site-expression y))) (when (converted? y) ;; The result of calling the continuation argument is accessed if ;; the call site is accessed. (assert-callee-accessed! (first ws) (recreate-call-site y 'continuation-argument) (list (expression-type-set (call-site-expression y))) *null* p?)))) ((continuation-type? u) (when (and (explicit-call-site? y) ;; Continuations access their arguments only if their ;; allocation expression is accessed. (expression-accessed? (continuation-type-allocating-expression u))) ;; Since nonconverted continuations never return they don't access ;; their continuation argument. And since the continuation argument ;; is never called there is no call to ASSERT-CALLEE-ACCESSED!. (assert-expression-accessed! (first-argument (call-site-expression y))))) (else (fuck-up))))) w0)) (define (assert-expression-accessed! x) (unless (expression-accessed? x) (set-expression-accessed?! x #t) (set! again? #t))) ;; The top-level lambda expression itself is accessed. (assert-expression-accessed! *x*) ;; The result of calling the top-level lambda expression is accessed only ;; if the result can be a fixnum. (assert-callee-accessed! (expression-type-set *x*) *y* (list *w1*) *null* (can-be? fixnum-type? (expression-type-set (expression-body *x*)))) (for-each (lambda (x) (when (reached? x) (let ((w (expression-type-set x))) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) #f) ((vector-constant) #f) ((lambda converted-lambda converted-continuation) #f) ((set!) ;; The source of an assignment is accessed only if the destination ;; variable is accessed. (when (variable-accessed? (expression-variable x)) (assert-expression-accessed! (expression-source x)))) ((if) ;; The antecedent is always accessed. (assert-expression-accessed! (expression-antecedent x)) ;; The consequent and alternate are accessed only if the expression ;; itself is accessed. (when (expression-accessed? x) (when (can-be-non? false-type? (expression-type-set (expression-antecedent x))) (assert-expression-accessed! (expression-consequent x))) (when (can-be? false-type? (expression-type-set (expression-antecedent x))) (assert-expression-accessed! (expression-alternate x))))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) (when (and (expression-accessed? x) (not (variable-accessed? (expression-variable x)))) (set-variable-accessed?! (expression-variable x) #t) (set! again? #t))) ((call converted-call) ;; The callee itself is accessed. (assert-expression-accessed! (expression-callee x)) ;; But the result of calling the callee is accessed only if the ;; call site is accessed. (when (executed? x) (assert-callee-accessed! (expression-type-set (expression-callee x)) (create-call-site x) (map expression-type-set (expression-arguments x)) *null* (expression-accessed? x)))) (else (fuck-up)))))) *xs*) (when again? (loop)))) (for-each (lambda (x) (when (executed? x) (set-variable-assigned?! (expression-variable x) #t))) *assignments*)) ;;; Determine free variables (define (determine-free-variables!) (for-each (lambda (e) (set-environment-free-variables! e (unspecified))) *es*) (for-each (lambda (e) (when (environment-used? e) (set-environment-free-variables! e '()))) *es*) (for-each (lambda (x) (when (case (expression-kind x) ((access) (reached? x)) ((set!) (executed? x)) (else (fuck-up))) (let* ((g (expression-variable x)) (e1 (variable-environment g))) (when (accessed? g) (let loop ((e (expression-environment x))) (unless (eq? e e1) ;; This is just because of *CLOSURE-CONVERSION-METHOD*. (when (environment-used? e) (unless (memq g (environment-free-variables e)) (set-environment-free-variables! e (cons g (environment-free-variables e))))) (loop (parent e)))))))) *references*)) ;;; Annotate environments and continuation types (define (annotate-environments-and-continuation-types!) (for-each (lambda (e) (set-environment-expressions! e (unspecified)) (set-environment-continuation-calls! e (unspecified))) *es*) (for-each (lambda (e) (when (environment-used? e) (set-environment-expressions! e '()) (set-environment-continuation-calls! e '()))) *es*) (for-each (lambda (u) (set-continuation-type-call-sites! u (unspecified))) *continuation-types*) (for-each (lambda (u) (when (type-used? u) (set-continuation-type-call-sites! u '()))) *continuation-types*) (for-each (lambda (x) (when (and (reached? x) (not (empty? (expression-environment x))) (environment-used? (expression-environment x))) (set-environment-expressions! (expression-environment x) (cons x (environment-expressions (expression-environment x)))))) *xs*) (for-each (lambda (x) (when (and (reached? x) (not (empty? (expression-environment x))) (environment-used? (expression-environment x))) (when (can-be? (lambda (u) (and (continuation-type? u) ((truly-compatible-call? x) u))) (expression-type-set (expression-callee x))) (set-environment-continuation-calls! (expression-environment x) (cons x (environment-continuation-calls (expression-environment x)))) (for-each-member (lambda (u) (when (and (continuation-type? u) ((truly-compatible-call? x) u)) (set-continuation-type-call-sites! u (cons (create-call-site x) (continuation-type-call-sites u))))) (expression-type-set (expression-callee x)))) (when (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'apply) u) ((truly-compatible-call? x) u) (can-be? (lambda (u) (and (continuation-type? u) ((truly-compatible-call-via-apply? x) u))) (expression-type-set (first-argument x))))) (expression-type-set (expression-callee x))) (for-each-member (lambda (u) (when (and ((primitive-procedure-type-named? 'apply) u) ((truly-compatible-call? x) u)) (for-each-member (lambda (u) (when (and (continuation-type? u) ((truly-compatible-call-via-apply? x) u)) (set-continuation-type-call-sites! u (cons (recreate-call-site (create-call-site x) 'first-argument) (continuation-type-call-sites u))))) (expression-type-set (first-argument x))))) (expression-type-set (expression-callee x)))) (when (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) ((truly-compatible-call? x) u) (can-be? (lambda (u) (and (continuation-type? u) ((truly-compatible-call-via-call-with-current-continuation? x) u))) (expression-type-set (first-argument x))))) (expression-type-set (expression-callee x))) (for-each-member (lambda (u) (when (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) ((truly-compatible-call? x) u)) (for-each-member (lambda (u) (when (and (continuation-type? u) ((truly-compatible-call-via-call-with-current-continuation? x) u)) (set-continuation-type-call-sites! u (cons (recreate-call-site (create-call-site x) 'first-argument) (continuation-type-call-sites u))))) (expression-type-set (first-argument x))))) (expression-type-set (expression-callee x)))) (when (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'fork) u) ((truly-compatible-call? x) u) (can-be? (lambda (u) (and (continuation-type? u) ((truly-compatible-call-via-fork1? x) u))) (expression-type-set (first-argument x))))) (expression-type-set (expression-callee x))) (for-each-member (lambda (u) (when (and ((primitive-procedure-type-named? 'fork) u) ((truly-compatible-call? x) u)) (for-each-member (lambda (u) (when (and (continuation-type? u) ((truly-compatible-call-via-fork1? x) u)) (set-continuation-type-call-sites! u (cons (recreate-call-site (create-call-site x) 'first-argument) (continuation-type-call-sites u))))) (expression-type-set (first-argument x))))) (expression-type-set (expression-callee x)))) (when (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'fork) u) ((truly-compatible-call? x) u) (can-be? (lambda (u) (and (continuation-type? u) ((truly-compatible-call-via-fork2? x) u))) (expression-type-set (second-argument x))))) (expression-type-set (expression-callee x))) (for-each-member (lambda (u) (when (and ((primitive-procedure-type-named? 'fork) u) ((truly-compatible-call? x) u)) (for-each-member (lambda (u) (when (and (continuation-type? u) ((truly-compatible-call-via-fork2? x) u)) (set-continuation-type-call-sites! u (cons (recreate-call-site (create-call-site x) 'second-argument) (continuation-type-call-sites u))))) (expression-type-set (second-argument x))))) (expression-type-set (expression-callee x)))) (when (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'mutex) u) ((truly-compatible-call? x) u) (can-be? (lambda (u) (and (continuation-type? u) ((truly-compatible-call-via-mutex? x) u))) (expression-type-set (first-argument x))))) (expression-type-set (expression-callee x))) (for-each-member (lambda (u) (when (and ((primitive-procedure-type-named? 'mutex) u) ((truly-compatible-call? x) u)) (for-each-member (lambda (u) (when (and (continuation-type? u) ((truly-compatible-call-via-mutex? x) u)) (set-continuation-type-call-sites! u (cons (recreate-call-site (create-call-site x) 'first-argument) (continuation-type-call-sites u))))) (expression-type-set (first-argument x))))) (expression-type-set (expression-callee x)))))) *calls*)) ;;; Invert points-to relation (define (invert-points-to-relation!) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *internal-symbol-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *external-symbol-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *primitive-procedure-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *native-procedure-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *foreign-procedure-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *continuation-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *string-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *structure-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *headed-vector-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *nonheaded-vector-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! u '())) *displaced-vector-types*) (for-each (lambda (w) (for-each-member (lambda (u) (when (or (internal-symbol-type? u) (external-symbol-type? u) (primitive-procedure-type? u) (native-procedure-type? u) (foreign-procedure-type? u) (continuation-type? u) (string-type? u) (structure-type? u) (headed-vector-type? u) (nonheaded-vector-type? u) (displaced-vector-type? u)) (set-types-and-type-sets-that-directly-point-to! u (cons w (types-and-type-sets-that-directly-point-to u))))) w)) *ws*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! (external-symbol-type-displaced-string-type u) (cons u (types-and-type-sets-that-directly-point-to (external-symbol-type-displaced-string-type u))))) *external-symbol-types*) (for-each (lambda (u) (set-types-and-type-sets-that-directly-point-to! (displaced-vector-type-displaced-vector-type u) (cons u (types-and-type-sets-that-directly-point-to (displaced-vector-type-displaced-vector-type u))))) *displaced-vector-types*)) ;;; Determine directly escaping types (define (mark-referencing-environments-proper-callees! u) (define (mark-proper-callees! e) ;; The PROPERLY-CALLS? relation is not necessarily reflexive. (define (loop e) (unless (environment-marked1? e) (set-environment-marked1?! e #t) (for-each loop (environment-direct-tail-callees e)) (for-each loop (environment-direct-non-tail-callees e)))) (for-each loop (environment-direct-tail-callees e)) (for-each loop (environment-direct-non-tail-callees e))) (when (or (internal-symbol-type? u) (external-symbol-type? u) (primitive-procedure-type? u) (native-procedure-type? u) (foreign-procedure-type? u) (continuation-type? u) (string-type? u) (structure-type? u) (headed-vector-type? u) (nonheaded-vector-type? u) (displaced-vector-type? u)) (let outer ((u/w u)) (cond ((type? u/w) (unless (type-marked? u/w) (set-type-marked?! u/w #t) (for-each outer (types-and-type-sets-that-directly-point-to u/w)))) ((type-set? u/w) (unless (type-set-marked? u/w) (set-type-set-marked?! u/w #t) (cond ((expression? (type-set-location u/w)) (when (reached? (type-set-location u/w)) (mark-proper-callees! (expression-environment (type-set-location u/w))))) ((variable? (type-set-location u/w)) (when (and (accessed? (type-set-location u/w)) (not (necessarily-fictitious? u/w))) (let inner ((e (variable-environment (type-set-location u/w)))) (when (memq (type-set-location u/w) (free-variables e)) (outer (environment-type e))) (for-each (lambda (x) (case (expression-kind x) ((lambda converted-lambda converted-continuation) (when (environment-used? (expression-lambda-environment x)) (inner (expression-lambda-environment x)))))) (environment-expressions e))))) ((type? (type-set-location u/w)) (outer (type-set-location u/w))) ((eq? (type-set-location u/w) #f) #f) (else (fuck-up))))) (else (fuck-up)))))) (define (for-each-marked-caller p e) (let loop ((e e)) (when (environment-marked1? e) (set-environment-marked1?! e #f) (p e) (for-each loop (environment-direct-tail-callers e)) (for-each loop (environment-direct-non-tail-callers e))))) (define (important? u) (and (or (native-procedure-type? u) (continuation-type? u) (string-type? u) (structure-type? u) (headed-vector-type? u) (nonheaded-vector-type? u)) (not (necessarily-fictitious? u)))) (define (important-marked-types) (remove-if necessarily-fictitious? (append (remove-if-not native-procedure-type-marked? *native-procedure-types*) (remove-if-not continuation-type-marked? *continuation-types*) (remove-if-not string-type-marked? *string-types*) (remove-if-not structure-type-marked? *structure-types*) (remove-if-not headed-vector-type-marked? *headed-vector-types*) (remove-if-not nonheaded-vector-type-marked? *nonheaded-vector-types*)))) (define (determine-escaping-types!) (for-each (lambda (e) (set-environment-escaping-types! e (unspecified))) *es*) (for-each (lambda (e) (when (environment-used? e) (set-environment-escaping-types! e '()) ;; Nothing escapes the top-level environment. (unless (empty? (parent e)) (clock-sample) ;To prevent overflow. (unmark-types!) ;; This is done just for side effect, to set the MARKED? bits. (for-each-pointed-to-type (lambda (u) #f) (return-type-set e)) (set-environment-escaping-types! e (important-marked-types))))) *es*) (for-each (lambda (g) (when (and (accessed? g) (assigned? g) ;; This tries to state that G must be hidden thus the assignment ;; X is trivial and should be ignored. ;; needs work: But G will not be hidden if it is global, its ;; hidden native-procedure type is fictitious, or ;; some access causes its environment to be ;; nonfictitious. (not (and (monomorphic? (variable-type-set g)) (native-procedure-type? (the-member (variable-type-set g))) (called? (the-member (variable-type-set g))) (not (noop? (the-member (variable-type-set g)))) (every (lambda (e) ;; This is a weaker condition than used by ;; DETERMINE-WHETHER-HIDDEN? so G might actually ;; turn out to be hidden. (let loop ((e1 (variable-environment g))) (and (not (empty? e1)) (or (eq? e1 (parent e)) (loop (parent e1)))))) (narrow-clones (the-member (variable-type-set g)))))) (begin (unmark-types!) (some (lambda (x) (some-pointed-to-type important? (expression-type-set (expression-source x)))) (assignments g)))) (clock-sample) ;To prevent overflow. (unmark-types-and-type-sets!) (for-each (lambda (e) (set-environment-marked1?! e #f)) *es*) (for-each (lambda (x1) (let loop ((e (expression-environment x1))) (unless (eq? e (variable-environment g)) (mark-referencing-environments-proper-callees! (environment-type e)) (loop (parent e))))) (accesses g)) (for-each (lambda (x) (when (executed? x) (clock-sample) ;To prevent overflow. ;; If E points to U1 then it points to U since U1 points to U. But not ;; vice versa. It could be that a caller of E points to U but not U1 ;; because that caller is also a callee that is passed U as an argument ;; but not passed U1. Such cases do not count as escaping. Even so, this ;; is still suboptimal because a caller of E could point to U1 only by ;; virtue of that caller also being a callee that is called with U1 as ;; an argument. (unmark-types!) ;; This is done just for side effect, to set the MARKED? bits. (for-each-pointed-to-type (lambda (u) #f) (expression-type-set (expression-source x))) (let ((us (important-marked-types))) (unless (null? us) (for-each-marked-caller (lambda (e) (set-environment-escaping-types! e (unionq (environment-escaping-types e) us))) (expression-environment x)))))) (assignments g)))) *gs*) (for-each (lambda (x) (when (and (executed? x) (can-be? (lambda (u1) (and (continuation-type? u1) ((truly-compatible-call? x) u1))) (expression-type-set (expression-callee x)))) (clock-sample) ;To prevent overflow. (unmark-types!) ;; This is done just for side effect, to set the MARKED? bits. (for-each-pointed-to-type (lambda (u) #f) (expression-type-set (first-argument x))) (let ((us (important-marked-types))) (unless (null? us) (for-each (lambda (e) (when (can-be? (lambda (u1) (and (continuation-type? u1) ((truly-compatible-call? x) u1) ;; This checks that the call to the continuation can ;; actually escape E by checking that the creator of the ;; continuation can be a caller of E. This is suboptimal ;; because the creator of the continuation could also be a ;; callee of E. If the creator is not a callee then ;; calling the continuation must escape E. But if the ;; creator is also a callee then calling the continuation ;; might or might not escape E. (can-be? (lambda (u2) (and (native-procedure-type? u2) (some (lambda (e1) (properly-calls? e1 e)) (narrow-clones u2)))) (expression-type-set (first-argument (continuation-type-allocating-expression u1)))))) (expression-type-set (expression-callee x))) (set-environment-escaping-types! e (unionq (environment-escaping-types e) us)))) (callers (expression-environment x))))))) ;; needs work: Doesn't handle implicit continuation calls. *calls*) (for-each (lambda (u2) (unmark-types!) (when (some (lambda (x) (and (executed? x) (can-be? (lambda (u1) (and ((primitive-procedure-type-named? 'structure-set!) u1) ((structure-type-named? (first (primitive-procedure-type-arguments u1))) u2) ((truly-compatible-call? x) u1))) (expression-type-set (expression-callee x))) (member? u2 (expression-type-set (first-argument x))) (some-pointed-to-type important? (expression-type-set (second-argument x))))) ;; note: Because of eta expansion there can be no implicit calls to ;; STRUCTURE-SET!. *calls*) (clock-sample) ;To prevent overflow. (unmark-types-and-type-sets!) (for-each (lambda (e) (set-environment-marked1?! e #f)) *es*) (mark-referencing-environments-proper-callees! u2) (for-each (lambda (x) (when (and (executed? x) (can-be? (lambda (u1) (and ((primitive-procedure-type-named? 'structure-set!) u1) ((structure-type-named? (first (primitive-procedure-type-arguments u1))) u2) ((truly-compatible-call? x) u1))) (expression-type-set (expression-callee x))) (member? u2 (expression-type-set (first-argument x)))) (clock-sample) ;To prevent overflow. ;; If E points to U2 then it points to U since U2 points to U. But not ;; vice versa. It could be that a caller of E points to U but not U2 ;; because that caller is also a callee that is passed U as an argument ;; but not passed U2. Such cases do not count as escaping. Even so, this ;; is still suboptimal because a caller of E could point to U2 only by ;; virtue of that caller also being a callee that is called with U2 as ;; an argument. (unmark-types!) ;; This is done just for side effect, to set the MARKED? bits. (for-each-pointed-to-type (lambda (u) #f) (expression-type-set (second-argument x))) (let ((us (important-marked-types))) (unless (null? us) (for-each-marked-caller (lambda (e) (set-environment-escaping-types! e (unionq (environment-escaping-types e) us))) (expression-environment x)))))) ;; note: Because of eta expansion there can be no implicit calls to ;; STRUCTURE-SET!. *calls*))) *structure-types*) (for-each (lambda (u2) (unmark-types!) (when (some (lambda (x) (and (executed? x) (can-be? (lambda (u1) (and ((primitive-procedure-type-named? 'vector-set!) u1) ((truly-compatible-call? x) u1))) (expression-type-set (expression-callee x))) (member? u2 (expression-type-set (first-argument x))) (some-pointed-to-type important? (expression-type-set (third-argument x))))) ;; note: Because of eta expansion there can be no implicit calls to ;; VECTOR-SET!. *calls*) (clock-sample) ;To prevent overflow. (unmark-types-and-type-sets!) (for-each (lambda (e) (set-environment-marked1?! e #f)) *es*) (mark-referencing-environments-proper-callees! u2) (for-each (lambda (x) (when (and (executed? x) (can-be? (lambda (u1) (and ((primitive-procedure-type-named? 'vector-set!) u1) ((truly-compatible-call? x) u1))) (expression-type-set (expression-callee x))) (member? u2 (expression-type-set (first-argument x)))) (clock-sample) ;To prevent overflow. ;; If E points to U2 then it points to U since U2 points to U. But not ;; vice versa. It could be that a caller of E points to U but not U2 ;; because that caller is also a callee that is passed U as an argument ;; but not passed U2. Such cases do not count as escaping. Even so, this ;; is still suboptimal because a caller of E could point to U2 only by ;; virtue of that caller also being a callee that is called with U2 as ;; an argument. (unmark-types!) ;; This is done just for side effect, to set the MARKED? bits. (for-each-pointed-to-type (lambda (u) #f) (expression-type-set (third-argument x))) (let ((us (important-marked-types))) (unless (null? us) (for-each-marked-caller (lambda (e) (set-environment-escaping-types! e (unionq (environment-escaping-types e) us))) (expression-environment x)))))) ;; note: Because of eta expansion there can be no implicit calls to ;; VECTOR-SET!. *calls*))) (append *headed-vector-types* *nonheaded-vector-types* *displaced-vector-types*))) ;;; Determine which environments have unique call sites (define (determine-which-environments-have-unique-call-sites!) (for-each (lambda (e) (when (environment-used? e) (set-environment-non-self-tail-call-sites! e (call-sites e)))) *es*) (let loop () (set! *again?* #f) (infer-all-unique-call-site!) (when *again?* (loop)))) ;;; Determine which environments are recursive (define (determine-which-environments-are-recursive!) (for-each (lambda (e) (when (environment-used? e) (set-environment-recursive?! e (properly-calls? e e)))) *es*)) ;;; Determine which environments are reentrant (define (determine-which-environments-are-reentrant!) ;; note: In principle, this can be (NON-TAIL-CALLS? E E) but in practise it ;; can't because tail merging is done only on self tail calls. (for-each (lambda (e) (when (environment-used? e) (clock-sample) ;To prevent overflow. ;; This is done just for side effect, to set the MARKED2? bits. (some-proper-callee (lambda (e) #f) environment-marked2? set-environment-marked2?! e) (set-environment-reentrant?! e (some (lambda (e1) (and (environment-used? e1) (not (unique-call-site? e1)) (some (lambda (y) (and (not (top-level-call-site? y)) (environment-marked2? (expression-environment (call-site-expression y))) (not (can-be-self-tail-call-to? y e1)))) (call-sites e1)))) (proper-callers e))))) *es*)) ;;; Assert uniqueness (define (assert-uniqueness!) ;; This is a special case for when the type set members are sorted. (define (set-equalq? us1 us2) (or (and (null? us1) (null? us2)) (and (not (null? us1)) (not (null? us2)) (eq? (first us1) (first us2)) (set-equalq? (rest us1) (rest us2))))) ;; This is a special case for when the type set members are sorted. (define (unionq us1 us2) (cond ((null? us1) us2) ((null? us2) us1) ((eq? (first us1) (first us2)) (cons (first us1) (unionq (rest us1) (rest us2)))) ((< (type-index (first us1)) (type-index (first us2))) (cons (first us1) (unionq (rest us1) us2))) (else (cons (first us2) (unionq us1 (rest us2)))))) ;; We no longer need to sort the members of W because this is done by the ;; red-black trees. (let loop () (let ((again? #f)) (for-each (lambda (v) ;; conventions: V (let ((uss (map list (remove-if-not (structure-type-named? v) *structure-types*)))) (for-each (lambda (w) (let ((us (members-that (structure-type-named? v) w))) (unless (or (null? us) (null? (rest us))) (do ((us us (rest us))) ((null? (rest us))) (let ((us1 (find-if (lambda (us0) (memq (first us) us0)) uss)) (us2 (find-if (lambda (us0) (memq (second us) us0)) uss))) (unless (eq? us1 us2) (set! uss (cons (append us1 us2) (removeq us1 (removeq us2 uss)))))))))) *ws*) (for-each (lambda (us) (let ((uss (map-n (lambda (i) (reduce unionq (map (lambda (u) (members (list-ref (structure-type-slots u) i))) us) '())) (length (structure-type-slots (first us)))))) (for-each (lambda (u) (for-each (lambda (w us) (unless (set-equalq? (members w) us) (set-members! w us) (set! again? #t))) (structure-type-slots u) uss)) us))) uss))) (remove-duplicates (map structure-type-name *structure-types*))) (let ((uss (map list *headed-vector-types*))) (for-each (lambda (w) (let ((us (members-that headed-vector-type? w))) (unless (or (null? us) (null? (rest us))) (do ((us us (rest us))) ((null? (rest us))) (let ((us1 (find-if (lambda (us0) (memq (first us) us0)) uss)) (us2 (find-if (lambda (us0) (memq (second us) us0)) uss))) (unless (eq? us1 us2) (set! uss (cons (append us1 us2) (removeq us1 (removeq us2 uss)))))))))) *ws*) (for-each (lambda (us) (let ((us1 (reduce unionq (map (lambda (u) (members (headed-vector-type-element u))) us) '()))) (for-each (lambda (u) (unless (set-equalq? (members (headed-vector-type-element u)) us1) (set-members! (headed-vector-type-element u) us1) (set! again? #t))) us))) uss)) (let ((uss (map list *nonheaded-vector-types*))) (for-each (lambda (w) (let ((us (members-that nonheaded-vector-type? w))) (unless (or (null? us) (null? (rest us))) (do ((us us (rest us))) ((null? (rest us))) (let ((us1 (find-if (lambda (us0) (memq (first us) us0)) uss)) (us2 (find-if (lambda (us0) (memq (second us) us0)) uss))) (unless (eq? us1 us2) (set! uss (cons (append us1 us2) (removeq us1 (removeq us2 uss)))))))))) *ws*) (for-each (lambda (us) (let ((us1 (reduce unionq (map (lambda (u) (members (nonheaded-vector-type-element u))) us) '()))) (for-each (lambda (u) (unless (set-equalq? (members (nonheaded-vector-type-element u)) us1) (set-members! (nonheaded-vector-type-element u) us1) (set! again? #t))) us))) uss)) (when again? (loop))))) ;;; Perform lightweight closure conversion (define (perform-lightweight-closure-conversion!) (for-each (lambda (u) (set-native-procedure-type-fictitious?! u #t)) *native-procedure-types*) (for-each (lambda (u) (set-continuation-type-fictitious?! u #t)) *continuation-types*) (for-each (lambda (u) (set-structure-type-fictitious?! u #t)) *structure-types*) (for-each (lambda (w) (set-type-set-fictitious?! w #t)) *ws*) (for-each (lambda (g) (set-variable-local?! g #f) (set-variable-global?! g #f) (set-variable-hidden?! g #f) (set-variable-slotted?! g #f)) *gs*) (for-each (lambda (e) (set-environment-ancestors! e (unspecified)) (set-environment-has-closure?! e #f)) *es*) (for-each (lambda (e) (when (environment-used? e) (set-environment-ancestors! e '()))) *es*) (for-each (lambda (e2) (when (environment-used? e2) (let loop ((e1 (parent e2))) (if (or (empty? e1) (some accessed? (variables e1))) (set-environment-quick-parent! e2 e1) (loop (parent e1)))))) *es*) (let loop () (clock-sample) ;To prevent overflow. (set! *again?* #f) ;; The order in which the following inferences are made should only ;; affect compilation time and not soundness or the code produced. (infer-all-whether-type-fictitious?! #f) (infer-all-whether-type-set-fictitious?! #f) (infer-all-whether-local?! #f) (infer-all-whether-global?! #f) (infer-all-whether-hidden?! #f) (infer-all-whether-slotted?! #f) (infer-all-whether-ancestor?! #f) (infer-all-whether-has-closure?! #f) (when *again?* (loop))) (clock-sample) ;To prevent overflow. (set! *again?* #f) ;; The order in which the following inferences are made should only ;; affect compilation time and not soundness or the code produced. (infer-all-whether-type-fictitious?! #t) (infer-all-whether-type-set-fictitious?! #t) (infer-all-whether-local?! #t) (infer-all-whether-global?! #t) (infer-all-whether-hidden?! #t) (infer-all-whether-slotted?! #t) (infer-all-whether-ancestor?! #t) (infer-all-whether-has-closure?! #t) (when *again?* (fuck-up))) ;;; Determine parents (define (determine-parents!) (for-each (lambda (e) (set-environment-parent-parameter! e (unspecified)) (set-environment-parent-slot! e (unspecified)) (set-environment-descendents! e '()) (set-environment-properly-in-lined-environments! e '())) *es*) ;; needs work: This can be made faster. (for-each (lambda (e1) (when (environment-used? e1) (clock-sample) ;To prevent overflow. (for-each (lambda (e2) (when (environment-used? e2) (set-environment-descendents! e2 (cons e1 (descendents e2))))) (ancestors e1)))) *es*) (when (eq? *closure-representation* 'linked) ;; It used to be possible for two different narrow clones to have different ;; parent parameters. This was discovered with the matrix.sc example of ;; jbs@quiotix.com. This created problems when applying PARENT-PARAMETER to ;; a type instead of an environment and also caused generation of incorrect ;; code where one backchain was accessed as the backchain of a narrow clone. ;; Now we take the most-nested parent parameter of all the narrow clones. ;; This might cause some procedures to have a parent parameter that is used ;; only to indirect through a parent slot and not to access other slots (i.e. ;; reducing the amount of parent-parameter compression). So it goes. (for-each (lambda (e) (when (environment-used? e) (clock-sample) ;To prevent overflow. (set-environment-parent-parameter! (narrow-prototype e) (let ((es (reduce unionq (map ancestors (remove-if-not environment-used? (narrow-clones e))) '()))) (if (null? es) #f (minp nested-in? es)))))) *es*) (let loop ((x *x*)) (define (update x) (reduce unionq (map (lambda (e) (cond ((or (noop? e) (not (environment-used? e))) (set-environment-parent-slot! e #f) '()) (else (let ((es (removeq e (loop (expression-body (environment-expression e)))))) (set-environment-parent-slot! e (if (and (has-closure? e) (not (null? es))) (minp nested-in? es) #f)) (unionq es (if (has-parent-parameter? e) (removeq (parent-parameter e) (ancestors e)) '())))))) (narrow-clones (expression-lambda-environment x))) '())) (case (expression-kind x) ((null-constant) '()) ((true-constant) '()) ((false-constant) '()) ((char-constant) '()) ((fixnum-constant) '()) ((flonum-constant) '()) ((rectangular-constant) '()) ((string-constant) '()) ((symbol-constant) '()) ((pair-constant) '()) ((vector-constant) '()) ((lambda) (update x)) ((converted-lambda) (update x)) ((converted-continuation) (update x)) ((set!) (loop (expression-source x))) ((if) (unionq (loop (expression-antecedent x)) (unionq (loop (expression-consequent x)) (loop (expression-alternate x))))) ((primitive-procedure) '()) ((foreign-procedure) '()) ((access) '()) ((call) (unionq (loop (expression-callee x)) (reduce unionq (map loop (expression-arguments x)) '()))) ((converted-call) (unionq (loop (expression-callee x)) (reduce unionq (map loop (expression-arguments x)) '()))) (else (fuck-up)))) (for-each (lambda (e) (when (environment-used? e) (clock-sample) ;To prevent overflow. (unless (and (pairwise? (lambda (e1 e2) (or (not (environment-used? e1)) (not (environment-used? e2)) (and (eq? (has-parent-parameter? e1) (has-parent-parameter? e2)) (eq? (parent-parameter e1) (parent-parameter e2))))) (narrow-clones e)) (eq? (has-parent-parameter? e) (environment? (parent-parameter e))) (or (not (has-parent-slot? e)) (and (has-parent-parameter? e) (has-closure? e)))) (fuck-up)))) *es*)) (for-each (lambda (e) (when (environment-used? e) (clock-sample) ;To prevent overflow. (let loop ((e1 e)) (unless (eq? e e1) (set-environment-properly-in-lined-environments! e1 (cons e (environment-properly-in-lined-environments e1)))) (when (unique-call-site? e1) (loop (expression-environment (call-site-expression (unique-call-site e1)))))))) *es*)) ;;; Determine which expressions need conversion to CPS (define (escapes-expression? u x) ;; debugging: This is a temporary kludge to handle the NEPLS pyth benchmark. ;; It is unsound because it doesn't check for escapes by way of ;; continuation calls, STRUCTURE-SET!, and VECTOR-SET!. And you ;; really want to check that the continuation is allocated by some ;; expression called by X. This is only a kludge to make the NEPLS ;; pyth benchmark work. (or #t ;; This handles escaping by returning. (points-to? (expression-type-set x) u) ;; This handles escaping by SET!. (some (lambda (g) (and (nested-in? (expression-environment x) (variable-environment g)) (points-to? (variable-type-set g) u))) *gs*))) (define (determine-which-expressions-need-conversion-to-CPS!) (define (some-subexpression-calls? x x1) (let loop ((x x)) (and (reached? x) (case (expression-kind x) ((set!) (loop (expression-source x))) ((if) (or (loop (expression-antecedent x)) (loop (expression-consequent x)) (loop (expression-alternate x)))) ;; needs work: Doesn't handle implicit call sites. ((call converted-call) (or (eq? x x1) (can-be? (lambda (u) (and ((truly-compatible-call? x) u) (or (and (native-procedure-type? u) (calls? (callee-environment u (create-call-site x)) (expression-environment x1))) (and ((primitive-procedure-type-named? 'apply) u) (can-be? (lambda (u) (and (native-procedure-type? u) ((truly-compatible-call-via-apply? x) u) (calls? (callee-environment u (recreate-call-site (create-call-site x) 'first-argument)) (expression-environment x1)))) (expression-type-set (first-argument x)))) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) (can-be? (lambda (u) (and (native-procedure-type? u) ((truly-compatible-call-via-call-with-current-continuation? x) u) (calls? (callee-environment u (recreate-call-site (create-call-site x) 'first-argument)) (expression-environment x1)))) (expression-type-set (first-argument x)))) (and ((primitive-procedure-type-named? 'fork) u) (or (can-be? (lambda (u) (and (native-procedure-type? u) ((truly-compatible-call-via-fork1? x) u) (calls? (callee-environment u (recreate-call-site (create-call-site x) 'first-argument)) (expression-environment x1)))) (expression-type-set (first-argument x))) (can-be? (lambda (u) (and (native-procedure-type? u) ((truly-compatible-call-via-fork2? x) u) (calls? (callee-environment u (recreate-call-site (create-call-site x) 'second-argument)) (expression-environment x1)))) (expression-type-set (second-argument x))))) (and ((primitive-procedure-type-named? 'mutex) u) (can-be? (lambda (u) (and (native-procedure-type? u) ((truly-compatible-call-via-mutex? x) u) (calls? (callee-environment u (recreate-call-site (create-call-site x) 'first-argument)) (expression-environment x1)))) (expression-type-set (first-argument x))))))) (expression-type-set (expression-callee x))) (loop (expression-callee x)) (some loop (expression-arguments x)))) (else #f))))) ;; XS are all the nonconverted calls to CALL-WITH-CURRENT-CONTINUATION where ;; the continuation created escapes the call site. For each X in XS, the ;; corresponding entry in XSS is the set of all calls to the continuation ;; created by X. (let* ((xs (remove-if-not (lambda (x) (and (executed? x) (not (converted? x)) (can-be? (lambda (u) (and ((primitive-procedure-type-named? 'call-with-current-continuation) u) ((truly-compatible-call? x) u) (can-be? (lambda (u) (and (native-procedure-type? u) ((truly-compatible-procedure? (list (create-anonymous-type-set ( x))) *null* (recreate-call-site (create-call-site x) 'first-argument)) u) (escapes? ( x) (callee-environment u (recreate-call-site (create-call-site x) 'first-argument))))) (expression-type-set (first-argument x))))) (expression-type-set (expression-callee x))))) ;; note: Because of eta expansion there can be no implicit calls ;; to CALL-WITH-CURRENT-CONTINUATION. *calls*)) (xss (map (lambda (x) (remove-if-not (lambda (x1) (and (executed? x1) (can-be? (lambda (u) (and (continuation-type? u) ((truly-compatible-call? x1) u) (eq? (continuation-type-allocating-expression u) x))) (expression-type-set (expression-callee x1))))) ;; needs work: Doesn't handle implicit continuation calls. *calls*)) xs))) (define (needs-conversion-to-CPS? x) (and (some (lambda (x1 xs) (and (some-subexpression-calls? x x1) (some (lambda (x2) (control-flows? (after x) (before x2))) xs))) xs xss) (some (lambda (u) (escapes-expression? u x)) *continuation-types*))) (for-each (lambda (x) (set-expression-needs-conversion-to-CPS?! x (needs-conversion-to-CPS? x)) (set-expression-needs-stop-conversion-to-CPS?! x (and (not (needs-conversion-to-CPS? x)) (case (expression-kind x) ((set!) (needs-conversion-to-CPS? (expression-source x))) ((if) (or (needs-conversion-to-CPS? (expression-antecedent x)) (needs-conversion-to-CPS? (expression-consequent x)) (needs-conversion-to-CPS? (expression-alternate x)))) ((call converted-call) (or (needs-conversion-to-CPS? (expression-callee x)) (some needs-conversion-to-CPS? (expression-arguments x)) (can-be? (lambda (u) (and (native-procedure-type? u) ((truly-compatible-call? x) u) (not (noop? (callee-environment u (create-call-site x)))) (needs-conversion-to-CPS? (expression-body (environment-expression (callee-environment u (create-call-site x))))))) (expression-type-set (expression-callee x))))) (else #f))))) *xs*))) ;;; Convert to CPS ;;; Needs work: To convert a call to APPLY or CALL-WITH-CURRENT-CONTINUATION ;;; to CPS when its procedure argument is a converted native ;;; procedure. (define (maybe-create-access-expression g/x) ;; needs work: Should give S/X argument so that it has a file position. (if (variable? g/x) (create-access-expression #f g/x) g/x)) (define (call-continuation g/x x) ;; needs work: Should give S/X argument so that it has a file position. (create-call-expression #f (maybe-create-access-expression g/x) (list x))) (define (string->variable string) (create-variable (create-anonymous-s-expression (gensym string)))) (define (convert-to-CPS g/x x) (cond ((or (expression-needs-conversion-to-CPS? x) (expression-needs-stop-conversion-to-CPS? x)) (case (expression-kind x) ((null-constant) (fuck-up)) ((true-constant) (fuck-up)) ((false-constant) (fuck-up)) ((char-constant) (fuck-up)) ((fixnum-constant) (fuck-up)) ((flonum-constant) (fuck-up)) ((rectangular-constant) (fuck-up)) ((string-constant) (fuck-up)) ((symbol-constant) (fuck-up)) ((pair-constant) (fuck-up)) ((vector-constant) (fuck-up)) ((lambda) (fuck-up)) ((converted-lambda converted-continuation) (fuck-up)) ((set!) ;; [(SET! g x)]_g/x --> [x]_(LAMBDA (g1) (g/x (SET! g g1))) (unless (or (expression-needs-conversion-to-CPS? (expression-source x)) (expression-needs-stop-conversion-to-CPS? (expression-source x))) (fuck-up)) (let ((g1 (string->variable "x"))) (convert-to-CPS (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g1) (call-continuation g/x (create-set!-expression x (expression-variable x) (create-access-expression x g1)))) (expression-source x)))) ((if) (cond ((or (expression-needs-conversion-to-CPS? (expression-antecedent x)) (expression-needs-stop-conversion-to-CPS? (expression-antecedent x))) ;; [(IF x2 x3 x4)]_c --> [x2]_(LAMBDA (g1) (IF g1 [x3]_c [x4]_c)) ;; [(IF x2 x3 x4)]_c --> ;; ((LAMBDA (g2) [x2]_(LAMBDA (g1) (IF g1 [x3]_g2 [x4]_g2))) c) (let ((g1 (string->variable "x"))) (if (expression? g/x) (let ((g2 (string->variable "x"))) (create-call-expression x (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g2) (convert-to-CPS (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g1) (create-if-expression x (create-access-expression x g1) (convert-to-CPS g2 (expression-consequent x)) (convert-to-CPS g2 (expression-alternate x)))) (expression-antecedent x))) (list g/x))) (convert-to-CPS (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g1) (create-if-expression x (create-access-expression x g1) (convert-to-CPS g/x (expression-consequent x)) (convert-to-CPS g/x (expression-alternate x)))) (expression-antecedent x))))) (else ;; [(IF x1 x2 x3)]_c --> (IF x1 [x2]_c [x3]_c) ;; [(IF x1 x2 x3)]_c --> ((LAMBDA (g2) (IF x1 [x2]_g2 [x3]_g2)) c) (unless (or (expression-needs-conversion-to-CPS? (expression-consequent x)) (expression-needs-stop-conversion-to-CPS? (expression-consequent x)) (expression-needs-conversion-to-CPS? (expression-alternate x)) (expression-needs-stop-conversion-to-CPS? (expression-alternate x))) (fuck-up)) (if (expression? g/x) (let ((g2 (string->variable "x"))) (create-call-expression x (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g2) (create-if-expression x (nonconvert-to-CPS (expression-antecedent x)) (convert-to-CPS g2 (expression-consequent x)) (convert-to-CPS g2 (expression-alternate x)))) (list g/x))) (create-if-expression x (nonconvert-to-CPS (expression-antecedent x)) (convert-to-CPS g/x (expression-consequent x)) (convert-to-CPS g/x (expression-alternate x))))))) ((primitive-procedure) (fuck-up)) ((foreign-procedure) (fuck-up)) ((access) (fuck-up)) ((call) ;; [(x3 ...)]_g/x --> [x3]_(LAMBDA (g1) ... (g1 g/x ...) ...) (let loop ((xs1 (cons (expression-callee x) (expression-arguments x))) (gs '())) (if (null? xs1) (create-converted-call-expression x (create-access-expression x (last gs)) (cons (maybe-create-access-expression g/x) (map (lambda (g) (create-access-expression x g)) (rest (reverse gs))))) (let* ((g1 (string->variable "x")) (x1 (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g1) (loop (rest xs1) (cons g1 gs))))) (if (or (expression-needs-conversion-to-CPS? (first xs1)) (expression-needs-stop-conversion-to-CPS? (first xs1))) (convert-to-CPS x1 (first xs1)) (create-call-expression x x1 (list (nonconvert-to-CPS (first xs1))))))))) ((converted-call) (fuck-up)) (else (fuck-up)))) (else (call-continuation g/x (nonconvert-to-CPS x))))) (define (nonconvert-to-CPS x) (when (expression-needs-conversion-to-CPS? x) (fuck-up)) (if (expression-needs-stop-conversion-to-CPS? x) ;; x --> [x]_(LAMBDA (g) g) (convert-to-CPS (let ((g (string->variable "x"))) (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g) (create-access-expression x g))) x) (case (expression-kind x) ((null-constant) x) ((true-constant) x) ((false-constant) x) ((char-constant) x) ((fixnum-constant) x) ((flonum-constant) x) ((rectangular-constant) x) ((string-constant) x) ((symbol-constant) x) ((pair-constant) x) ((vector-constant) x) ((lambda) ;; (LAMBDA (g ...) x) --> (LAMBDA (c g ...) [x]_c) (cond ((noop? x) x) ((expression-needs-conversion-to-CPS? (expression-body x)) (let ((g (string->variable "c"))) (create-converted-lambda-expression x (expression-lambda-environment x) (cons g (expression-parameters x)) (convert-to-CPS g (expression-body x))))) (else (create-lambda-expression x (expression-lambda-environment x) (expression-parameters x) (nonconvert-to-CPS (expression-body x)))))) ((converted-lambda converted-continuation) (fuck-up)) ((set!) (create-set!-expression x (expression-variable x) (nonconvert-to-CPS (expression-source x)))) ((if) (create-if-expression x (nonconvert-to-CPS (expression-antecedent x)) (nonconvert-to-CPS (expression-consequent x)) (nonconvert-to-CPS (expression-alternate x)))) ((primitive-procedure) x) ((foreign-procedure) x) ((access) x) ((call) (create-call-expression x (nonconvert-to-CPS (expression-callee x)) (map nonconvert-to-CPS (expression-arguments x)))) ((converted-call) (fuck-up)) (else (fuck-up))))) (define (fully-convert-to-CPS x) (define (fully-convert-to-CPS g/x x) (case (expression-kind x) ((null-constant) (call-continuation g/x x)) ((true-constant) (call-continuation g/x x)) ((false-constant) (call-continuation g/x x)) ((char-constant) (call-continuation g/x x)) ((fixnum-constant) (call-continuation g/x x)) ((flonum-constant) (call-continuation g/x x)) ((rectangular-constant) (call-continuation g/x x)) ((string-constant) (call-continuation g/x x)) ((symbol-constant) (call-continuation g/x x)) ((pair-constant) (call-continuation g/x x)) ((vector-constant) (call-continuation g/x x)) ((lambda) (call-continuation g/x (if (noop? x) x (let ((g (string->variable "c"))) (create-converted-lambda-expression x (expression-lambda-environment x) (cons g (expression-parameters x)) (fully-convert-to-CPS g (expression-body x))))))) ((converted-lambda converted-continuation) (fuck-up)) ((set!) ;; [(SET! g x)]_g/x --> [x]_(LAMBDA (g1) (g/x (SET! g g1))) (let ((g1 (string->variable "x"))) (fully-convert-to-CPS (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g1) (call-continuation g/x (create-set!-expression x (expression-variable x) (create-access-expression x g1)))) (expression-source x)))) ((if) ;; [(IF x2 x3 x4)]_c --> [x2]_(LAMBDA (g1) (IF g1 [x3]_c [x4]_c)) ;; [(IF x2 x3 x4)]_c --> ;; ((LAMBDA (g2) [x2]_(LAMBDA (g1) (IF g1 [x3]_g2 [x4]_g2))) c) (let ((g1 (string->variable "x"))) (if (expression? g/x) (let ((g2 (string->variable "x"))) (create-call-expression x (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g2) (fully-convert-to-CPS (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g1) (create-if-expression x (create-access-expression x g1) (fully-convert-to-CPS g2 (expression-consequent x)) (fully-convert-to-CPS g2 (expression-alternate x)))) (expression-antecedent x))) (list g/x))) (fully-convert-to-CPS (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g1) (create-if-expression x (create-access-expression x g1) (fully-convert-to-CPS g/x (expression-consequent x)) (fully-convert-to-CPS g/x (expression-alternate x)))) (expression-antecedent x))))) ((primitive-procedure) (call-continuation g/x x)) ((foreign-procedure) (call-continuation g/x x)) ((access) (call-continuation g/x x)) ((call) ;; [(x3 ...)]_g/x --> [x3]_(LAMBDA (g1) ... (g1 g/x ...) ...) (let loop ((xs1 (cons (expression-callee x) (expression-arguments x))) (gs '())) (if (null? xs1) (create-converted-call-expression x (create-access-expression x (last gs)) (cons (maybe-create-access-expression g/x) (map (lambda (g) (create-access-expression x g)) (rest (reverse gs))))) (let* ((g1 (string->variable "x")) (x1 (create-converted-continuation-expression x ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g1) (loop (rest xs1) (cons g1 gs))))) (fully-convert-to-CPS x1 (first xs1)))))) ((converted-call) (fuck-up)) (else (fuck-up)))) (create-lambda-expression x (expression-lambda-environment x) (expression-parameters x) ;; x --> [x]_(LAMBDA (g) g) (fully-convert-to-CPS (let ((g (string->variable "x"))) (create-converted-continuation-expression (expression-body x) ;; needs work: To give the environment a name. (create-environment #f "continuation") (list g) (create-access-expression (expression-body x) g))) (expression-body x)))) ;;; Determine environment distances from root (define (determine-environment-distances-from-root!) ;; We used to be anal here and find the root by two means. One was the ;; procedure that called every procedure. The other was the procedure that ;; wasn't properly called by any other procedure. And we even checked that ;; these two means produced the same singleton result. But now that computing ;; the CALLS? and PROPERLY-CALLS? relations are expensive we punt and make ;; use of the hardwired assumption that the root is the procedure with no ;; parent. Life is short. (let ((root (find-if (lambda (e) (empty? (parent e))) *es*))) ;; conventions: ROOT (let loop ((es (list root)) (i 0)) ;; conventions: I (unless (null? es) (for-each (lambda (e) (set-environment-distance-from-root! e i)) es) (loop (remove-if-not (lambda (e1) (and (not (number? (distance-from-root e1))) (some (lambda (e2) (directly-calls? e2 e1)) es))) *es*) (+ i 1)))) (unless (every (lambda (e) (number? (distance-from-root e))) *es*) (fuck-up)))) ;;; Determine which environments have external self tail calls (define (determine-which-environments-have-external-self-tail-calls!) ;; An external self tail call is a self tail call that is in-lined in E to a ;; procedure that E is properly in-lined in. This situation can cause a ;; memory leak if E has a reentrant region because E will not be returned from ;; and its region will not be restored. Also, E can't have a non-reentrant ;; region because the external self tail call will cause the region to be ;; clobbered the next time E is entered. It is OK to for there to be a self ;; tail call to E (but not to a procedure that E is properly in-lined in) ;; because the self-tail-call entry point comes after the region ;; initialization code. ;; note: The following is an efficiency hack. (for-each (lambda (e) (set-environment-marked1?! e (some (lambda (y) (and (not (top-level-call-site? y)) (can-be-self-tail-call-to? y e))) (call-sites e)))) *es*) (for-each (lambda (e) (set-environment-has-external-self-tail-call?! e (and (unique-call-site? e) (let loop? ((e1 (expression-environment (call-site-expression (unique-call-site e))))) (or (and (environment-marked1? e1) (some (lambda (y) (and (not (top-level-call-site? y)) (can-be-self-tail-call-to? y e1) (in-lined-in? (call-site-expression y) e))) (call-sites e1))) (and (unique-call-site? e1) (loop? (expression-environment (call-site-expression (unique-call-site e1)))))))))) *es*)) ;;; Determine which environments have external continuation calls (define (determine-which-environments-have-external-continuation-calls!) ;; An external continuation call is a call that is in a procedure that can be ;; called by E to a continuation created not by E but by a procedure that ;; calls E. This situation can cause a memory leak if E has a reentrant region ;; because E will not be returned from and its region will not be restored. ;; note: This is really misnamed. It is not an external continuation call but ;; rather an external call to a continuation. But then then the name ;; becomes too long. (for-each (lambda (e) (clock-sample) ;To prevent overflow. ;; This is done just for side effect, to set the MARKED2? bits. (some-proper-caller (lambda (e) #f) environment-marked2? set-environment-marked2?! e) (set-environment-has-external-continuation-call?! e (some (lambda (e1) (some (lambda (x) (can-be? (lambda (u) (and (continuation-type? u) ((truly-compatible-call? x) u) (can-be? (lambda (u1) (and (native-procedure-type? u1) ((truly-compatible-procedure? (list (create-anonymous-type-set u)) *null* (recreate-call-site (create-call-site (continuation-type-allocating-expression u)) 'first-argument)) u1) (some (lambda (e1) (and (not (eq? e1 e)) (environment-marked2? e1))) (narrow-clones u1)))) (expression-type-set (first-argument (continuation-type-allocating-expression u)))))) (expression-type-set (expression-callee x)))) ;; needs work: What about implicit call sites? (environment-continuation-calls e1))) (proper-callees e)))) *es*)) ;;; Determine blocked environments (define (determine-blocked-environments!) (for-each (lambda (e) (clock-sample) ;To prevent overflow. (when (and (environment-used? e) (not (has-external-self-tail-call? e)) (not (and (reentrant? e) (has-external-continuation-call? e)))) (for-each (lambda (e) (set-environment-marked1?! e #f)) *es*) (set-environment-marked1?! e #t) (let loop ((e1 (find-if (lambda (e) (empty? (parent e))) *es*))) (unless (environment-marked1? e1) (set-environment-marked1?! e1 #t) (for-each loop (environment-direct-tail-callees e1)) (for-each loop (environment-direct-non-tail-callees e1)))) (set-environment-blocked-environments! e (cons e (remove-if environment-marked1? *es*))))) *es*)) ;;; Determine which environments need to pass parameters globally (define (determine-which-environments-need-to-pass-parameters-globally!) (for-each (lambda (e) (set-environment-passes-parameters-globally?! e #f)) *es*) (when *tail-call-optimization?* (for-each (lambda (y) (for-each (lambda (e) (set-environment-passes-parameters-globally?! e #t)) (nonmerged-tail-recursive-purely-tail-call-site-callees y))) (remove-if-not nonmerged-tail-recursive-purely-tail-call-site? *ys*)))) ;;; Determine allocations (define (environment-necessarily-on-path-from-root-to-expression? e x) (when (or (empty? e) (not (environment-used? e)) (has-external-self-tail-call? e) (and (reentrant? e) (has-external-continuation-call? e))) (fuck-up)) (memq (expression-environment x) (environment-blocked-environments e))) (define (safe-type-allocation-environment? e u x) (and (environment-marked2? e) ;This is just an efficiency hack. (not (has-external-self-tail-call? e)) (not (and (reentrant? e) (has-external-continuation-call? e))) (environment-necessarily-on-path-from-root-to-expression? e x) (not (escapes? u e)))) (define (safe-environment-allocation-environment? e1 e2) (and (environment-marked2? e1) ;This is just an efficiency hack. (not (has-external-self-tail-call? e1)) (not (and (reentrant? e1) (has-external-continuation-call? e1))) (environment-necessarily-on-path-from-root-to-expression? e1 (expression-body (environment-expression e2))) ;; It is safe to allocate E2 on E1 if no native procedure that has E2 as ;; an ancestor escapes E1. (not (some (lambda (e3) (escapes? (environment-type e3) e1)) (descendents e2))))) (define (minimal f distance-from-root-to-environments-map) ;; conventions: F DISTANCE-FROM-ROOT-TO-ENVIRONMENTS-MAP (let loop ((i (- (vector-length distance-from-root-to-environments-map) 1))) ;; conventions: I (let ((e (find-if f (vector-ref distance-from-root-to-environments-map i)))) (cond (e (unless (one f (vector-ref distance-from-root-to-environments-map i)) (fuck-up)) e) (else (loop (- i 1))))))) (define (choose-allocation e p?) (cond ((and *stack-allocation?* p? ;; alloca foils tail-call optimization. (not (environment-passes-parameters-globally? (home e))) ;; If E is in-lined then stack allocating on E allocates on the home ;; of E. Don't stack allocate on an environment that is not called ;; more than once because then reclaimation never occurs. This is a ;; heuristic because it actually might be a good policy to allocate in ;; such a way because the program might consist of a sequence of major ;; subcomponents and transition between subcomponents might be the ;; appropriate reclaimation time. (called-more-than-once? (home e)) ;; If E is in-lined then stack allocating on E allocates on the home ;; of E. If E is in-lined in a recursive procedure but E itself is ;; is not recursive then you don't want to stack allocate on the home ;; of E because then you don't reclaim on exit from E. It is likely ;; that the home of E repeatedly calls E so it is better to be able ;; to reclaim on each call. (not (and (unique-call-site? e) (in-lined-in-recursive? e) (not (recursive? e))))) 'stack) ((and *region-allocation?* ;; Reentrant regions foil tail-call optimization. (not (and (reentrant? e) (let loop ((e e)) (if (unique-call-site? e) (and (directly-tail-calls? (expression-environment (call-site-expression (unique-call-site e))) e) (loop (expression-environment (call-site-expression (unique-call-site e))))) (environment-passes-parameters-globally? e))))) ;; Don't allocate on the region of an environment that is not called ;; more than once because then reclaimation never occurs. This is a ;; heuristic because it actually might be a good policy to allocate in ;; such a way because the program might consist of a sequence of major ;; subcomponents and transition between subcomponents might be the ;; appropriate reclaimation time. (called-more-than-once? e)) e) (*heap-allocation?* 'heap) ((and *stack-allocation?* p?) 'stack) (else e))) (define (determine-allocations!) (let ((distance-from-root-to-environments-map (make-vector (+ (reduce max (map distance-from-root *es*) 0) 1) '()))) (for-each (lambda (e) (vector-set! distance-from-root-to-environments-map (distance-from-root e) (cons e (vector-ref distance-from-root-to-environments-map (distance-from-root e))))) *es*) (for-each (lambda (u) (clock-sample) ;To prevent overflow. (for-each (lambda (x) (when (expression? x) (unless (eq? (expression-kind x) 'string-constant) ;; This is done just for side effect, to set the MARKED2? bits. (some-caller (lambda (e) #f) environment-marked2? set-environment-marked2?! (expression-environment x)) (let ((e (minimal (lambda (e) (safe-type-allocation-environment? e u x)) distance-from-root-to-environments-map))) (set-expression-type-allocation-alist! x (cons (cons u (choose-allocation e (eq? e (expression-environment x)))) (expression-type-allocation-alist x))))))) (string-type-allocating-expressions u))) *string-types*) (for-each (lambda (u) ;; Note: Need to determine an allocation even for immediate structures ;; because they may become indirect. (unless (fictitious? u) (clock-sample) ;To prevent overflow. (for-each (lambda (x) (unless (eq? (expression-kind x) 'pair-constant) ;; This is done just for side effect, to set the MARKED2? bits. (some-caller (lambda (e) #f) environment-marked2? set-environment-marked2?! (expression-environment x)) (let ((e (minimal (lambda (e) (safe-type-allocation-environment? e u x)) distance-from-root-to-environments-map))) (set-expression-type-allocation-alist! x (cons (cons u (choose-allocation e (eq? e (expression-environment x)))) (expression-type-allocation-alist x)))))) (structure-type-allocating-expressions u)))) *structure-types*) (for-each (lambda (u) (unless (degenerate-vector-type? u) (clock-sample) ;To prevent overflow. (for-each (lambda (x) (unless (eq? (expression-kind x) 'vector-constant) ;; This is done just for side effect, to set the MARKED2? bits. (some-caller (lambda (e) #f) environment-marked2? set-environment-marked2?! (expression-environment x)) (let ((e (minimal (lambda (e) (safe-type-allocation-environment? e u x)) distance-from-root-to-environments-map))) (set-expression-type-allocation-alist! x (cons (cons u (choose-allocation e (eq? e (expression-environment x)))) (expression-type-allocation-alist x)))))) (headed-vector-type-allocating-expressions u)))) *headed-vector-types*) (for-each (lambda (u) (unless (degenerate-vector-type? u) (clock-sample) ;To prevent overflow. (for-each (lambda (x) (when (expression? x) ;; This is done just for side effect, to set the MARKED2? bits. (some-caller (lambda (e) #f) environment-marked2? set-environment-marked2?! (expression-environment x)) (let ((e (minimal (lambda (e) (safe-type-allocation-environment? e u x)) distance-from-root-to-environments-map))) (set-expression-type-allocation-alist! x (cons (cons u (choose-allocation e (eq? e (expression-environment x)))) (expression-type-allocation-alist x)))))) (nonheaded-vector-type-allocating-expressions u)))) *nonheaded-vector-types*) (for-each (lambda (e) (when (and (not (noop? e)) (has-closure? e)) (clock-sample) ;To prevent overflow. ;; This is done just for side effect, to set the MARKED2? bits. (some-caller (lambda (e) #f) environment-marked2? set-environment-marked2?! e) (let ((e1 (minimal (lambda (e1) (safe-environment-allocation-environment? e1 e)) distance-from-root-to-environments-map))) (set-environment-allocation! e (choose-allocation e1 (eq? e1 e)))))) *es*))) ;;; Apply closed-world assumption (define (dereference-type u) (cond ((null-type? u) u) ((true-type? u) u) ((false-type? u) u) ((char-type? u) u) ((fixnum-type? u) u) ((flonum-type? u) u) ((rectangular-type? u) u) ((input-port-type? u) u) ((output-port-type? u) u) ((eof-object-type? u) u) ((pointer-type? u) u) ((internal-symbol-type? u) u) ((external-symbol-type? u) (if (eq? (external-symbol-type-link u) u) u (let ((u1 (dereference-type (external-symbol-type-link u)))) (set-external-symbol-type-link! u u1) u1))) ((primitive-procedure-type? u) u) ((native-procedure-type? u) u) ((foreign-procedure-type? u) u) ((continuation-type? u) u) ((string-type? u) (if (eq? (string-type-link u) u) u (let ((u1 (dereference-type (string-type-link u)))) (set-string-type-link! u u1) u1))) ((structure-type? u) (if (eq? (structure-type-link u) u) u (let ((u1 (dereference-type (structure-type-link u)))) (set-structure-type-link! u u1) u1))) ((headed-vector-type? u) (if (eq? (headed-vector-type-link u) u) u (let ((u1 (dereference-type (headed-vector-type-link u)))) (set-headed-vector-type-link! u u1) u1))) ((nonheaded-vector-type? u) (if (eq? (nonheaded-vector-type-link u) u) u (let ((u1 (dereference-type (nonheaded-vector-type-link u)))) (set-nonheaded-vector-type-link! u u1) u1))) ((displaced-vector-type? u) (if (eq? (displaced-vector-type-link u) u) u (let ((u1 (dereference-type (displaced-vector-type-link u)))) (set-displaced-vector-type-link! u u1) u1))) (else (fuck-up)))) (define (dereference-type-set w) (if (eq? (type-set-link w) w) w (let ((w1 (dereference-type-set (type-set-link w)))) (set-type-set-link! w w1) w1))) ;;; Note that one can't filter out subtypes from a type set, i.e. replace ;;; union(u1,u2,u3) with union(u1,u3) if subtype(u2,u1). This won't work ;;; because types denote representations, not sets of values. Even though ;;; subtype(fixnum,union(fixnum,flonum)) and even though ;;; subset(headed-vector(fixnum),headed-vector(union(fixnum,flonum))) it is not ;;; the case that ;;; subtype(headed-vector(fixnum),headed-vector(union(fixnum,flonum))) since ;;; headed-vector(fixnum) has a different representation from ;;; headed-vector(union(fixnum,flonum)) and you can't widen the former into the ;;; later without deep widening. (define (apply-closed-world-assumption!) (define (sorting-remove-duplicatesq us) (let loop ((us (sort us > type-index)) (us1 '())) (if (null? us) us1 (loop (rest us) (if (and (not (null? us1)) (eq? (first us) (first us1))) us1 (cons (first us) us1)))))) (define (create-trie . initial-value) (if (null? initial-value) (set! initial-value #f) (set! initial-value (first initial-value))) (make-trie #f #f #f initial-value (make-trie-node '() initial-value))) (define (trie-ref trie list) (let loop ((trie-node (trie-trie-node trie)) (list list)) (if trie-node (if (null? list) (trie-node-value trie-node) (loop (and (assq (first list) (trie-node-table trie-node)) (cdr (assq (first list) (trie-node-table trie-node)))) (rest list))) (trie-initial-value trie)))) (define (trie-set! trie list value) (let loop ((trie-node (trie-trie-node trie)) (list list)) (if (null? list) (set-trie-node-value! trie-node value) (let ((entry (assq (first list) (trie-node-table trie-node)))) ;; conventions: ENTRY (unless entry (set! entry (cons (first list) (make-trie-node '() (trie-initial-value trie)))) (set-trie-node-table! trie-node (cons entry (trie-node-table trie-node)))) (loop (cdr entry) (rest list)))))) (let loop () (let ((again? #f)) ;; Congruence Closure (do ((us *external-symbol-types* (rest us))) ((null? us)) (let ((u1 (first us))) (when (eq? (external-symbol-type-link u1) u1) (clock-sample) ;To prevent overflow. (for-each (lambda (u2) (when (and (eq? (external-symbol-type-link u1) u1) (eq? (external-symbol-type-link u2) u2) (not (eq? u1 u2)) (eq? (dereference-type (external-symbol-type-displaced-string-type u1)) (dereference-type (external-symbol-type-displaced-string-type u2)))) (set-external-symbol-type-link! u2 u1) (set! again? #t))) (rest us))))) (do ((us *string-types* (rest us))) ((null? us)) (let ((u1 (first us))) (when (eq? (string-type-link u1) u1) (clock-sample) ;To prevent overflow. (for-each (lambda (u2) (when (and (eq? (string-type-link u1) u1) (eq? (string-type-link u2) u2) (not (eq? u1 u2))) (set-string-type-allocating-expressions! u1 (unionq (string-type-allocating-expressions u1) (string-type-allocating-expressions u2))) (set-string-type-link! u2 u1) (set! again? #t))) (rest us))))) (do ((us *structure-types* (rest us))) ((null? us)) (let ((u1 (first us))) (when (eq? (structure-type-link u1) u1) (clock-sample) ;To prevent overflow. (for-each (lambda (u2) (when (and (eq? (structure-type-link u1) u1) (eq? (structure-type-link u2) u2) (not (eq? u1 u2)) (eq? (structure-type-name u1) (structure-type-name u2)) (= (length (structure-type-slots u1)) (length (structure-type-slots u2))) (every (lambda (w1 w2) (eq? (dereference-type-set w1) (dereference-type-set w2))) (structure-type-slots u1) (structure-type-slots u2))) (unless (structure-type-immediate? u2) (set-structure-type-immediate?! u1 #f)) (set-structure-type-allocating-expressions! u1 (unionq (structure-type-allocating-expressions u1) (structure-type-allocating-expressions u2))) (when (structure-type-alignment? u2) (set-structure-type-alignment?! u1 #t)) (when (structure-type-alignment&? u2) (set-structure-type-alignment&?! u1 #t)) (when (structure-type-size? u2) (set-structure-type-size?! u1 #t)) (set-structure-type-link! u2 u1) (set! again? #t))) (rest us))))) (do ((us *headed-vector-types* (rest us))) ((null? us)) (let ((u1 (first us))) (when (eq? (headed-vector-type-link u1) u1) (clock-sample) ;To prevent overflow. (for-each (lambda (u2) (when (and (eq? (headed-vector-type-link u1) u1) (eq? (headed-vector-type-link u2) u2) (not (eq? u1 u2)) (eq? (dereference-type-set (headed-vector-type-element u1)) (dereference-type-set (headed-vector-type-element u2)))) (set-headed-vector-type-allocating-expressions! u1 (unionq (headed-vector-type-allocating-expressions u1) (headed-vector-type-allocating-expressions u2))) (when (headed-vector-type-alignment? u2) (set-headed-vector-type-alignment?! u1 #t)) (when (headed-vector-type-alignment&? u2) (set-headed-vector-type-alignment&?! u1 #t)) (when (headed-vector-type-size? u2) (set-headed-vector-type-size?! u1 #t)) (set-headed-vector-type-link! u2 u1) (set! again? #t))) (rest us))))) (do ((us *nonheaded-vector-types* (rest us))) ((null? us)) (let ((u1 (first us))) (when (eq? (nonheaded-vector-type-link u1) u1) (clock-sample) ;To prevent overflow. (for-each (lambda (u2) (when (and (eq? (nonheaded-vector-type-link u1) u1) (eq? (nonheaded-vector-type-link u2) u2) (not (eq? u1 u2)) (eq? (dereference-type-set (nonheaded-vector-type-element u1)) (dereference-type-set (nonheaded-vector-type-element u2)))) (set-nonheaded-vector-type-allocating-expressions! u1 (unionq (nonheaded-vector-type-allocating-expressions u1) (nonheaded-vector-type-allocating-expressions u2))) (when (nonheaded-vector-type-alignment? u2) (set-nonheaded-vector-type-alignment?! u1 #t)) (when (nonheaded-vector-type-size? u2) (set-nonheaded-vector-type-size?! u1 #t)) (set-nonheaded-vector-type-link! u2 u1) (set! again? #t))) (rest us))))) (do ((us *displaced-vector-types* (rest us))) ((null? us)) (let ((u1 (first us))) (when (eq? (displaced-vector-type-link u1) u1) (clock-sample) ;To prevent overflow. (for-each (lambda (u2) (when (and (eq? (displaced-vector-type-link u1) u1) (eq? (displaced-vector-type-link u2) u2) (eq? (dereference-type (displaced-vector-type-displaced-vector-type u1)) (dereference-type (displaced-vector-type-displaced-vector-type u2)))) (when (displaced-vector-type-alignment? u2) (set-displaced-vector-type-alignment?! u1 #t)) (when (displaced-vector-type-size? u2) (set-displaced-vector-type-size?! u1 #t)) (set-displaced-vector-type-link! u2 u1) (set! again? #t))) (rest us))))) ;; Closed World Assumption (let ((trie (create-trie '()))) ;; conventions: TRIE (for-each (lambda (w) (when (eq? (type-set-link w) w) (clock-sample) ;To prevent overflow. (let ((us (sorting-remove-duplicatesq (map dereference-type (members w))))) ;; This is the case where we previously determined that a type set was ;; not fictitious because it was not monomorphic but we now discover ;; that all of its members are equivalent (and fictitious). Thus ;; the type set is really ficitious. But all havoc will break loose if ;; we have a monomorphic nonfictitious type set whose member is ;; fictitious. And it is way too late to propagate ficition. So we ;; force the typeset to be tag-only even though it will always have a ;; known tag. So it goes. (when (and (multimorphic? w) (= (length us) 1) (fictitious? (dereference-type (first (members w))))) (notify "Warning! W~a should be fictitious but isn't" (type-set-index w))) (set-members! w us) (trie-set! trie us (cons w (trie-ref trie us)))))) *ws*) (for-each (lambda (w) (when (eq? (type-set-link w) w) (clock-sample) ;To prevent overflow. (let* ((ws (trie-ref trie (members w))) (w1 (first ws))) (when (eq? w1 w) (for-each (lambda (w2) (cond ((eq? (fictitious? w1) (fictitious? w2)) (set-type-set-link! w2 w1) (set! again? #t)) (else (notify "Warning! Not merging W~s and W~s because the former is ~a and the latter is ~a" (type-set-index w1) (type-set-index w2) (if (fictitious? w1) "fictitious" "not fictitious") (if (fictitious? w2) "fictitious" "not fictitious"))))) (rest ws)))))) *ws*)) (when again? (loop)))) (set! *external-symbol-types* (remove-if-not (lambda (u) (eq? (external-symbol-type-link u) u)) *external-symbol-types*)) (set-members! *foreign-string-type-set* (map dereference-type (members *foreign-string-type-set*))) (set! *string-types* (remove-if-not (lambda (u) (eq? (string-type-link u) u)) *string-types*)) (set! *structure-types* (remove-if-not (lambda (u) (eq? (structure-type-link u) u)) *structure-types*)) (set! *headed-vector-types* (remove-if-not (lambda (u) (eq? (headed-vector-type-link u) u)) *headed-vector-types*)) (set! *nonheaded-vector-types* (remove-if-not (lambda (u) (eq? (nonheaded-vector-type-link u) u)) *nonheaded-vector-types*)) (set! *displaced-vector-types* (remove-if-not (lambda (u) (eq? (displaced-vector-type-link u) u)) *displaced-vector-types*)) (set! *ws* (remove-if-not (lambda (w) (eq? (type-set-link w) w)) *ws*)) (for-each (lambda (x) (set-expression-type-set! x (dereference-type-set (expression-type-set x))) (for-each (lambda (u-e) (set-car! u-e (dereference-type (car u-e)))) (expression-type-allocation-alist x)) (set-expression-type-allocation-alist! x (remove-duplicatesp (lambda (u-e1 u-e2) (and (eq? (car u-e1) (car u-e2)) (eq? (cdr u-e1) (cdr u-e2)))) (expression-type-allocation-alist x))) (unless (= (length (expression-type-allocation-alist x)) (length (remove-duplicatesq (map car (expression-type-allocation-alist x))))) (fuck-up))) *xs*) (for-each (lambda (u) (set-external-symbol-type-displaced-string-type! u (dereference-type (external-symbol-type-displaced-string-type u)))) *external-symbol-types*) (for-each (lambda (u) (set-structure-type-slots! u (map dereference-type-set (structure-type-slots u)))) *structure-types*) (for-each (lambda (u) (set-headed-vector-type-element! u (dereference-type-set (headed-vector-type-element u)))) *headed-vector-types*) (for-each (lambda (u) (set-nonheaded-vector-type-element! u (dereference-type-set (nonheaded-vector-type-element u)))) *nonheaded-vector-types*) (for-each (lambda (u) (set-displaced-vector-type-displaced-vector-type! u (dereference-type (displaced-vector-type-displaced-vector-type u)))) *displaced-vector-types*) (for-each (lambda (g) (set-variable-type-set! g (dereference-type-set (variable-type-set g)))) *gs*) (for-each (lambda (e) (set-environment-escaping-types! e (sorting-remove-duplicatesq (map dereference-type (environment-escaping-types e))))) *es*) (set! (dereference-type )) (set! (dereference-type )) (for-each (lambda (w) (set-type-set-location! w #f)) *ws*)) ;;; Determine indirect structure types (define (determine-indirect-structure-types!) ;; needs work: This is conservative. It makes all structures that are part of ;; a points-to cycle indirect. It is sufficient to make only one ;; edge in the cycle indirect. Also, this doesn't take into ;; account that native procedures and vectors are always indirect. (for-each (lambda (u) (when (some (lambda (w) (points-to? w u)) (structure-type-slots u)) (set-structure-type-immediate?! u #f))) *structure-types*)) ;;; Determine which types are never allocated on the heap (define (determine-which-types-are-never-allocated-on-the-heap!) (define (never-allocated-on-the-heap? u) (not (some (lambda (x) (let ((u-e (assq u (expression-type-allocation-alist x)))) (and u-e (heap-allocation? (cdr u-e))))) *calls*))) (for-each (lambda (u) (set-string-type-never-allocated-on-the-heap?! u (never-allocated-on-the-heap? u))) *string-types*) (for-each (lambda (u) (set-structure-type-never-allocated-on-the-heap?! u (never-allocated-on-the-heap? u))) *structure-types*) (for-each (lambda (u) (set-headed-vector-type-never-allocated-on-the-heap?! u (never-allocated-on-the-heap? u))) *headed-vector-types*) (for-each (lambda (u) (set-nonheaded-vector-type-never-allocated-on-the-heap?! u (never-allocated-on-the-heap? u))) *nonheaded-vector-types*)) ;;; Determine which environments have regions (define (region-allocation? e) (environment? e)) (define (stack-allocation? e) (eq? e 'stack)) (define (heap-allocation? e) (eq? e 'heap)) (define *program-has-heap?* #f) (define (determine-which-environments-have-regions!) (for-each (lambda (e) (set-environment-has-region?! e #f) (set-environment-has-nonatomic-region?! e #f)) *es*) (set! *program-has-heap?* #f) (for-each (lambda (x) (for-each (lambda (u-e) (cond ((region-allocation? (cdr u-e)) (set-environment-has-region?! (cdr u-e) #t) (unless (type-atomic? (car u-e)) (set-environment-has-nonatomic-region?! (cdr u-e) #t))) ((heap-allocation? (cdr u-e)) (set! *program-has-heap?* #t)))) (expression-type-allocation-alist x))) *calls*) (for-each (lambda (e) (cond ((region-allocation? (allocation e)) (set-environment-has-region?! (allocation e) #t) (unless (environment-atomic? e) (set-environment-has-nonatomic-region?! (allocation e) #t))) ((heap-allocation? (allocation e)) (set! *program-has-heap?* #t)))) *es*)) ;;; The remaining procedures are used just for debugging. (define (hunoz? g) (string=? (symbol->string (variable-name g)) "hunoz")) (define *abbreviate?* #f) (define (list+-type? u) (and (pair-type? u) (= (length (members (pair-type-cdr u))) 2) (or (and (null-type? (first (members (pair-type-cdr u)))) (eq? (second (members (pair-type-cdr u))) u)) (and (null-type? (second (members (pair-type-cdr u)))) (eq? (first (members (pair-type-cdr u))) u))))) (define (list-slots u) (if (null-type? u) '() (cons (pair-type-car u) (list-slots (the-member (pair-type-cdr u)))))) (define (list*-type? w) (and (= (length (members w)) 2) (or (and (null-type? (first (members w))) (pair-type? (second (members w))) (eq? (pair-type-cdr (second (members w))) w)) (and (null-type? (second (members w))) (pair-type? (first (members w))) (eq? (pair-type-cdr (first (members w))) w))))) (define (up u/w u/ws) (if (or (eq? u/w (first u/ws)) (and (type-set? u/w) (monomorphic? u/w) (eq? (the-member u/w) (first u/ws)))) 0 (+ (up u/w (rest u/ws)) 1))) (define (externalize-type-internal u u/ws) (define (list-type? u) (or (null-type? u) (and (pair-type? u) (monomorphic? (pair-type-cdr u)) (list-type? (the-member (pair-type-cdr u)))))) (cond ((memq u u/ws) `(up ,(up u u/ws))) ((null-type? u) 'null) ((true-type? u) 'true) ((false-type? u) 'false) ((char-type? u) 'char) ((fixnum-type? u) 'fixnum) ((flonum-type? u) 'flonum) ((rectangular-type? u) 'rectangular) ((input-port-type? u) 'input-port) ((output-port-type? u) 'output-port) ((eof-object-type? u) 'eof-object) ((pointer-type? u) 'pointer) ((internal-symbol-type? u) `',(internal-symbol-type-name u)) ((external-symbol-type? u) ;; note: Ambiguous between external symbol type and structure type. `(external-symbol ,(externalize-type-internal (external-symbol-type-displaced-string-type u) (cons u u/ws)))) ((primitive-procedure-type? u) (if (null? (primitive-procedure-type-arguments u)) (primitive-procedure-type-name u) (cons (primitive-procedure-type-name u) (primitive-procedure-type-arguments u)))) ((native-procedure-type? u) `(native-procedure ,@(map environment-name (narrow-clones u)))) ((foreign-procedure-type? u) (foreign-procedure-type-name u)) ((continuation-type? u) `(continuation ,(expression-index (continuation-type-allocating-expression u)))) ;; note: Ambiguous between string type and primitive-procedure type. ((string-type? u) 'string) ((structure-type? u) (cond ((list+-type? u) ;; note: Ambiguous between list+ type and structure type. `(list+ ,(if *abbreviate?* (type-set-index (pair-type-car u)) (externalize-type-set-internal (pair-type-car u) (cons u u/ws))))) ((list-type? u) ;; note: Ambiguous between list type and structure type. `(list ,@(map (lambda (w) (externalize-type-set-internal w (cons u u/ws))) (list-slots u)))) (else `(,(structure-type-name u) ,@(map (lambda (w) (if *abbreviate?* (type-set-index w) (externalize-type-set-internal w (cons u u/ws)))) (structure-type-slots u)))))) ((headed-vector-type? u) ;; note: Ambiguous between headed-vector type and structure type. `(headed-vector ,(if *abbreviate?* (type-set-index (headed-vector-type-element u)) (externalize-type-set-internal (headed-vector-type-element u) (cons u u/ws))))) ((nonheaded-vector-type? u) ;; note: Ambiguous between nonheaded-vector type and structure type. `(nonheaded-vector ,(if *abbreviate?* (type-set-index (nonheaded-vector-type-element u)) (externalize-type-set-internal (nonheaded-vector-type-element u) (cons u u/ws))))) ((displaced-vector-type? u) ;; note: Ambiguous between displaced-vector type and structure type. `(displaced-vector ,(externalize-type-internal (displaced-vector-type-displaced-vector-type u) (cons u u/ws)))) (else (fuck-up)))) (define (externalize-type-set-internal w u/ws) (cond ((or (memq w u/ws) (and (monomorphic? w) (memq (the-member w) u/ws))) `(up ,(up w u/ws))) ((void? w) 'void) ((monomorphic? w) (externalize-type-internal (the-member w) u/ws)) ((list*-type? w) ;; note: Ambiguous between list* type and structure type. `(list* ,(externalize-type-set-internal (pair-type-car (the-member-that structure-type? w)) (cons w u/ws)))) (else `(union ,@(map (lambda (u) (externalize-type-internal u (cons w u/ws))) (members w)))))) (define (externalize-type u) (externalize-type-internal u '())) (define (externalize-type-set w) (externalize-type-set-internal w '())) (define (variable-names x) ;; This is a real kludge. (if (eq? (expression-parameters x) (unspecified)) 'unspecified (let loop ((gs (variables x))) (cond ((null? gs) '()) ((and (null? (rest gs)) (rest? x)) (variable-name (first gs))) (else (cons (variable-name (first gs)) (loop (rest gs)))))))) (define (externalize-expression x) (define (undecorate-constant x) (case (expression-kind x) ((null-constant) '()) ((true-constant) #t) ((false-constant) #f) ((char-constant) (expression-constant x)) ((fixnum-constant) (expression-constant x)) ((flonum-constant) (expression-constant x)) ((rectangular-constant) (expression-constant x)) ((string-constant) (expression-constant x)) ((symbol-constant) (expression-constant x)) ((pair-constant) (cons (undecorate-constant (car (expression-constant x))) (undecorate-constant (cdr (expression-constant x))))) ((vector-constant) (map-vector undecorate-constant (expression-constant x))) (else (fuck-up)))) (define (externalize-expressions x) (if (and (eq? (expression-kind x) 'call) (= (length (expression-arguments x)) 1) (eq? (expression-kind (expression-callee x)) 'lambda) ;; This is a real kludge. (not (eq? (expression-parameters (expression-callee x)) (unspecified))) (= (length (variables (expression-callee x))) 1) (not (rest? (expression-callee x))) (hunoz? (first (variables (expression-callee x))))) (cons (externalize-expression (first (expression-arguments x))) (externalize-expressions (expression-body (expression-callee x)))) (list (externalize-expression x)))) ;; conventions: X1 (let ((x1 (case (expression-kind x) ((null-constant) ''()) ((true-constant) #t) ((false-constant) #f) ((char-constant) (expression-constant x)) ((fixnum-constant) (expression-constant x)) ((flonum-constant) (expression-constant x)) ((rectangular-constant) (expression-constant x)) ((string-constant) (expression-constant x)) ((symbol-constant) `',(expression-constant x)) ((pair-constant) `',(undecorate-constant x)) ((vector-constant) (undecorate-constant x)) ((lambda converted-lambda converted-continuation) (if (noop? x) `(lambda ,(variable-names x)) `(lambda ,(variable-names x) ,@(externalize-expressions (expression-body x))))) ((set!) `(set! ,(variable-name (expression-variable x)) ,(externalize-expression (expression-source x)))) ((if) `(if ,(externalize-expression (expression-antecedent x)) ,(externalize-expression (expression-consequent x)) ,(externalize-expression (expression-alternate x)))) ((primitive-procedure) `(primitive-procedure ,@(expression-constant x))) ((foreign-procedure) `(foreign-procedure ,@(expression-constant x))) ((access) (variable-name (expression-variable x))) ((call converted-call) (cons (externalize-expression (expression-callee x)) (map externalize-expression (expression-arguments x)))) (else (fuck-up))))) `(the ,(if *abbreviate?* (type-set-index (expression-type-set x)) (externalize-type-set (expression-type-set x))) ,x1))) (define (undecorate x) (define (undecorate-constant x) (case (expression-kind x) ((null-constant) '()) ((true-constant) #t) ((false-constant) #f) ((char-constant) (expression-constant x)) ((fixnum-constant) (expression-constant x)) ((flonum-constant) (expression-constant x)) ((rectangular-constant) (expression-constant x)) ((string-constant) (expression-constant x)) ((symbol-constant) (expression-constant x)) ((pair-constant) (cons (undecorate-constant (car (expression-constant x))) (undecorate-constant (cdr (expression-constant x))))) ((vector-constant) (map-vector undecorate-constant (expression-constant x))) (else (fuck-up)))) (define (undecorate-expressions x) (if (and (eq? (expression-kind x) 'call) (= (length (expression-arguments x)) 1) (eq? (expression-kind (expression-callee x)) 'lambda) ;; This is a real kludge. (not (eq? (expression-parameters (expression-callee x)) (unspecified))) (= (length (variables (expression-callee x))) 1) (not (rest? (expression-callee x))) (hunoz? (first (variables (expression-callee x))))) (cons (undecorate (first (expression-arguments x))) (undecorate-expressions (expression-body (expression-callee x)))) (list (undecorate x)))) (case (expression-kind x) ((null-constant) ''()) ((true-constant) #t) ((false-constant) #f) ((char-constant) (expression-constant x)) ((fixnum-constant) (expression-constant x)) ((flonum-constant) (expression-constant x)) ((rectangular-constant) (expression-constant x)) ((string-constant) (expression-constant x)) ((symbol-constant) `',(expression-constant x)) ((pair-constant) `',(undecorate-constant x)) ((vector-constant) (undecorate-constant x)) ((lambda converted-lambda converted-continuation) (if (noop? x) `(lambda ,(variable-names x)) `(lambda ,(variable-names x) ,@(undecorate-expressions (expression-body x))))) ((set!) `(set! ,(variable-name (expression-variable x)) ,(undecorate (expression-source x)))) ((if) `(if ,(undecorate (expression-antecedent x)) ,(undecorate (expression-consequent x)) ,(undecorate (expression-alternate x)))) ((primitive-procedure) `(primitive-procedure ,@(expression-constant x))) ((foreign-procedure) `(foreign-procedure ,@(expression-constant x))) ((access) (variable-name (expression-variable x))) ((call converted-call) (cons (undecorate (expression-callee x)) (map undecorate (expression-arguments x)))) (else (fuck-up)))) (define (small? x) (define (atoms-in list) (if (pair? list) (+ (atoms-in (car list)) (atoms-in (cdr list))) 1)) (< (atoms-in (undecorate x)) 50)) (define *accounts* '#()) (define (create-accounts! n) (set! *accounts* (make-vector n 0))) (define (account index thunk) (let* ((start (clock-sample)) (result (thunk)) (end (clock-sample))) (vector-set! *accounts* index (+ (vector-ref *accounts* index) (- end start))) result)) (define (print-accounts) (notify-pp "~s" (let ((sum (reduce-vector + *accounts* 0.0))) (map-vector (lambda (account) (inexact->exact (floor (/ (* 100.0 account) sum)))) *accounts*)))) (define (debug-generate c) ;; note: This will not handle braces inside comments. (let ((backslash? #f) (newline? #f) (open? #f) (state 'code) (indent 0)) ;; conventions: BACKSLASH? STATE INDENT (define (generate-char c) (case state ((code) (cond ((char=? c #\") (set! state 'string)) ((char=? c #\') (set! state 'char)) ((char=? c #\{) (set! indent (+ indent 1))) ((char=? c #\}) (set! indent (- indent 1))))) ((string) (cond (backslash? (set! backslash? #f)) ((char=? c #\\) (set! backslash? #t)) ((char=? c #\") (set! state 'code)))) ((char) (cond (backslash? (set! backslash? #f)) ((char=? c #\\) (set! backslash? #t)) ((char=? c #\') (set! state 'code))))) (set! newline? #f) (set! open? (char=? c #\{)) (write-char c)) (let loop ((c c)) (cond ((char? c) (unless (char=? c #\newline) (fuck-up)) (unless (or newline? open?) (newline) (for-each-n (lambda (i) ;; conventions: I (write-char #\space)) indent) (set! newline? #t))) ((string? c) (for-each-n (lambda (i) ;; conventions: I (generate-char (string-ref c i))) (string-length c))) ((c:declaration? c) (loop (third c))) ((c:protect? c) (loop (second c))) ((c:no-return? c) (loop (second c))) ((pair? c) (loop (car c)) (loop (cdr c))) ((null? c) #f) (else (fuck-up)))))) (define (print-counts) (notify "~a expression~a" (number->string-of-length (length *xs*) 6) (if (= (length *xs*) 1) "" "s")) (notify "~a internal symbol type~a" (number->string-of-length (length *internal-symbol-types*) 6) (if (= (length *internal-symbol-types*) 1) "" "s")) (notify "~a external symbol type~a" (number->string-of-length (length *external-symbol-types*) 6) (if (= (length *external-symbol-types*) 1) "" "s")) (notify "~a primitive procedure type~a" (number->string-of-length (length *primitive-procedure-types*) 6) (if (= (length *primitive-procedure-types*) 1) "" "s")) (notify "~a non-called native procedure type~a" (number->string-of-length (count-if-not called? *native-procedure-types*) 6) (if (one (lambda (u) (not (called? u))) *native-procedure-types*) "" "s")) (notify "~a called noop native procedure type~a" (number->string-of-length (count-if (lambda (u) (and (called? u) (noop? u))) *native-procedure-types*) 6) (if (one (lambda (u) (and (called? u) (noop? u))) *native-procedure-types*) "" "s")) (notify "~a called non-noop native procedure type~a" (number->string-of-length (count-if (lambda (u) (and (called? u) (not (noop? u)))) *native-procedure-types*) 6) (if (one (lambda (u) (and (called? u) (not (noop? u)))) *native-procedure-types*) "" "s")) (notify "~a foreign procedure type~a" (number->string-of-length (length *foreign-procedure-types*) 6) (if (= (length *foreign-procedure-types*) 1) "" "s")) (notify "~a continuation type~a" (number->string-of-length (length *continuation-types*) 6) (if (= (length *continuation-types*) 1) "" "s")) (notify "~a string type~a" (number->string-of-length (length *string-types*) 6) (if (= (length *string-types*) 1) "" "s")) (notify "~a structure type~a" (number->string-of-length (length *structure-types*) 6) (if (= (length *structure-types*) 1) "" "s")) (notify "~a headed vector type~a" (number->string-of-length (length *headed-vector-types*) 6) (if (= (length *headed-vector-types*) 1) "" "s")) (notify "~a nonheaded vector type~a" (number->string-of-length (length *nonheaded-vector-types*) 6) (if (= (length *nonheaded-vector-types*) 1) "" "s")) (notify "~a displaced vector type~a" (number->string-of-length (length *displaced-vector-types*) 6) (if (= (length *displaced-vector-types*) 1) "" "s")) (notify "~a type set~a" (number->string-of-length (length *ws*) 6) (if (= (length *ws*) 1) "" "s")) (notify "~a hunoz variable~a" (number->string-of-length (count-if hunoz? *gs*) 6) (if (one hunoz? *gs*) "" "s")) (notify "~a non-hunoz variable~a" (number->string-of-length (count-if-not hunoz? *gs*) 6) (if (one (lambda (g) (not (hunoz? g))) *gs*) "" "s")) (notify "~a noop environment~a" (number->string-of-length (count-if noop? *es*) 6) (if (one noop? *es*) "" "s")) (notify "~a non-noop environment~a" (number->string-of-length (count-if-not noop? *es*) 6) (if (one (lambda (e) (not (noop? e))) *es*) "" "s"))) (define (global-memory-usage) ;; needs work: This is out of date now that we merged Stalin with October. ;; This is all very specific to Scheme->C. ;; This will overflow without warning at 512M on Linux. (define (object-memory-usage object) ;; conventions: OBJECT ;; Doesn't handle continuations, records, forwarding pointers, and undefined ;; objects. (cond ((and (number? object) (exact? object)) 0) ;; Doesn't trace name, value, or property list. ((symbol? object) (* c-sizeof-s2cuint 5)) ((string? object) (let ((l (+ (string-length object) 1))) (+ c-sizeof-s2cuint l (if (zero? (remainder l c-sizeof-s2cuint)) 0 (- c-sizeof-s2cuint (remainder l c-sizeof-s2cuint)))))) ;; Doesn't trace elements. ((vector? object) (+ c-sizeof-s2cuint (* c-sizeof-s2cuint (vector-length object)))) ;; Doesn't trace closure. ((procedure? object) (* c-sizeof-s2cuint 3)) ;; Can be 4 words if doubles must be aligned. ((and (number? object) (inexact? object)) (* c-sizeof-s2cuint 3)) ((null? object) 0) ((not object) 0) ((eq? object #t) 0) ((char? object) 0) ((eof-object? object) 0) ((pair? object) (* c-sizeof-s2cuint 2)) (else (fuck-up)))) (define (recursive-object-memory-usage object) ;; conventions: OBJECT ;; Doesn't handle continuations, records, forwarding pointers, and undefined ;; objects. (cond ((and (number? object) (exact? object)) 0) ;; Assume all symbols are interned. Don't count the size of interned ;; symbols. Assume that symbols don't have values or property lists. ((symbol? object) 0) ;; Assume that strings aren't shared. ((string? object) (let ((l (+ (string-length object) 1))) (+ c-sizeof-s2cuint l (if (zero? (remainder l c-sizeof-s2cuint)) 0 (- c-sizeof-s2cuint (remainder l c-sizeof-s2cuint)))))) ;; Assume that vectors aren't shared. ((vector? object) (+ c-sizeof-s2cuint (* c-sizeof-s2cuint (vector-length object)) (reduce-vector + (map-vector recursive-object-memory-usage object) 0))) ;; Assume that procedures aren't shared. ;; Doesn't trace closure. ((procedure? object) (* c-sizeof-s2cuint 3)) ;; Can be 4 words if doubles must be aligned. ((and (number? object) (inexact? object)) (* c-sizeof-s2cuint 3)) ((null? object) 0) ((not object) 0) ((eq? object #t) 0) ((char? object) 0) ((eof-object? object) 0) ;; Assume that pairs aren't shared. ((pair? object) (+ (* c-sizeof-s2cuint 2) (recursive-object-memory-usage (car object)) (recursive-object-memory-usage (cdr object)))) (else (fuck-up)))) (define (flat-memory-usage object) ;; conventions: OBJECT (cond ((and (number? object) (exact? object)) 0) ;; Assume all symbols are interned. Don't count the size of interned ;; symbols. Assume that symbols don't have values or property lists. ((symbol? object) 0) ;; Assume that strings aren't shared. ((string? object) (let ((l (+ (string-length object) 1))) (+ c-sizeof-s2cuint l (if (zero? (remainder l c-sizeof-s2cuint)) 0 (- c-sizeof-s2cuint (remainder l c-sizeof-s2cuint)))))) ;; Assume that vectors aren't shared. Count the size of elements ;; elsewhere. ((vector? object) (+ c-sizeof-s2cuint (* c-sizeof-s2cuint (vector-length object)))) ;; Assume that no top-level variable has a procedure as its value. ((procedure? object) (fuck-up)) ;; Can be 4 words if doubles must be aligned. ((and (number? object) (inexact? object)) (* c-sizeof-s2cuint 3)) ((null? object) 0) ((not object) 0) ((eq? object #t) 0) ((char? object) 0) ((eof-object? object) 0) ((pair? object) ;; Assume that pairs aren't shared. Count the size of the car slots ;; elsewhere. (+ (* c-sizeof-s2cuint 2) (flat-memory-usage (cdr object)))) (else (fuck-up)))) (define (scalar-one-level-memory-usage object) ;; conventions: OBJECT ;; Assume all top-level scalar variables hold vectors, symbols, or #F. ;; Assume all symbols are interned. Don't count the size of interned ;; symbols. Assume that symbols don't have values or property lists. (unless (or (not object) (symbol? object) (vector? object)) (fuck-up)) ;; Assume that vectors aren't shared. (if (vector? object) (+ c-sizeof-s2cuint (* c-sizeof-s2cuint (vector-length object)) (reduce-vector + (map-vector flat-memory-usage object) 0)) 0)) (define (list-one-level-memory-usage object) ;; conventions: OBJECT ;; Assume all top-level list variables hold lists or #F. (unless (or (not object) (list? object)) (fuck-up)) ;; Assume that pairs aren't shared. (if object (+ (* c-sizeof-s2cuint 2 (length object)) (reduce + (map scalar-one-level-memory-usage object) 0)) 0)) ;; The following aren't counted: ;; *PRIMITIVE-PROCEDURE-REWRITES* quote ;; *ERRORS* quote ;; *MACROS* computed at startup ;; *READ* backquote ;; *I/O* backquote ;; *Scheme->C-compatibility-macros* computed at startup ;; *Xlib-and-GL-macros* computed at startup ;; *QobiScheme-macros* computed at startup ;; *Trotsky-macros* computed at startup (+ (flat-memory-usage *types-frozen?*) (flat-memory-usage *again?*) (flat-memory-usage *xi*) (list-one-level-memory-usage *xs*) (flat-memory-usage *calls*) ;subsumed by *XS* (flat-memory-usage *accesses*) ;subsumed by *XS* (flat-memory-usage *assignments*) ;subsumed by *XS* (flat-memory-usage *references*) ;subsumed by *XS* ;; *X* is contained in *XS* ;; *X1* is contained in *XS* (flat-memory-usage *ui*) (scalar-one-level-memory-usage ) (flat-memory-usage *null-type-used?*) (flat-memory-usage *null-type-use-count*) (scalar-one-level-memory-usage ) (flat-memory-usage *true-type-used?*) (flat-memory-usage *true-type-use-count*) (scalar-one-level-memory-usage ) (flat-memory-usage *false-type-used?*) (flat-memory-usage *false-type-use-count*) (scalar-one-level-memory-usage ) (flat-memory-usage *char-type-used?*) (flat-memory-usage *char-type-use-count*) (scalar-one-level-memory-usage ) (flat-memory-usage *fixnum-type-used?*) (flat-memory-usage *fixnum-type-use-count*) (scalar-one-level-memory-usage ) (flat-memory-usage *flonum-type-used?*) (flat-memory-usage *flonum-type-use-count*) (scalar-one-level-memory-usage ) (flat-memory-usage *rectangular-type-used?*) (flat-memory-usage *rectangular-type-use-count*) (scalar-one-level-memory-usage ) (flat-memory-usage *input-port-type-used?*) (flat-memory-usage *input-port-type-use-count*) (scalar-one-level-memory-usage ) (flat-memory-usage *output-port-type-used?*) (flat-memory-usage *output-port-type-use-count*) (scalar-one-level-memory-usage ) (flat-memory-usage *eof-object-type-used?*) (flat-memory-usage *eof-object-type-use-count*) (scalar-one-level-memory-usage ) (flat-memory-usage *pointer-type-used?*) (flat-memory-usage *pointer-type-use-count*) (list-one-level-memory-usage *internal-symbol-types*) (list-one-level-memory-usage *external-symbol-types*) (list-one-level-memory-usage *primitive-procedure-types*) (list-one-level-memory-usage *native-procedure-types*) (list-one-level-memory-usage *foreign-procedure-types*) (list-one-level-memory-usage *continuation-types*) (list-one-level-memory-usage *string-types*) ;; is contained in *STRING-TYPES* (list-one-level-memory-usage *structure-types*) (list-one-level-memory-usage *headed-vector-types*) (list-one-level-memory-usage *nonheaded-vector-types*) ;; is contained in *NONHEADED-VECTOR-TYPES* (list-one-level-memory-usage *displaced-vector-types*) (flat-memory-usage *wi*) (list-one-level-memory-usage *ws*) ;; *W0* is contained in *WS* ;; *W1* is contained in *WS* ;; *W* is contained in *WS* ;; *VOID* is contained in *WS* ;; *NULL* is contained in *WS* ;; *INPUT-PORT* is contained in *WS* ;; *OUTPUT-PORT* is contained in *WS* ;; *FOREIGN-CHAR-TYPE-SET* is contained in *WS* ;; *FOREIGN-FIXNUM-TYPE-SET* is contained in *WS* ;; *FOREIGN-FLONUM-TYPE-SET* is contained in *WS* ;; *FOREIGN-STRING-TYPE-SET* is contained in *WS* ;; *FOREIGN-INPUT-PORT-TYPE-SET* is contained in *WS* ;; *FOREIGN-OUTPUT-PORT-TYPE-SET* is contained in *WS* ;; *FOREIGN-POINTER-TYPE-SET* is contained in *WS* (flat-memory-usage *gi*) (list-one-level-memory-usage *gs*) (flat-memory-usage *ei*) (list-one-level-memory-usage *es*) (list-one-level-memory-usage *es0*) (flat-memory-usage *y*) ;not counted (list-one-level-memory-usage *ys*) ;not fully counted (flat-memory-usage *program-has-heap?*) (flat-memory-usage *abbreviate?*) (recursive-object-memory-usage *accounts*) (flat-memory-usage *char*) (flat-memory-usage *fixnum*) (flat-memory-usage *flonum*) (flat-memory-usage *length*) (flat-memory-usage *tag*) (flat-memory-usage *squished*) (flat-memory-usage *signed-squished*) (flat-memory-usage *file*) (flat-memory-usage *jmpbuf*) (flat-memory-usage *char-alignment*) (flat-memory-usage *fixnum-alignment*) (flat-memory-usage *flonum-alignment*) (flat-memory-usage *pointer-alignment*) (flat-memory-usage *length-alignment*) (flat-memory-usage *tag-alignment*) (flat-memory-usage *squished-alignment*) (flat-memory-usage *file-alignment*) (flat-memory-usage *jmpbuf-alignment*) (flat-memory-usage *char-size*) (flat-memory-usage *fixnum-size*) (flat-memory-usage *flonum-size*) (flat-memory-usage *pointer-size*) (flat-memory-usage *length-size*) (flat-memory-usage *tag-size*) (flat-memory-usage *squished-size*) (flat-memory-usage *worst-alignment*) (flat-memory-usage *allocation-alignment*) (flat-memory-usage *char-alignment?*) (flat-memory-usage *fixnum-alignment?*) (flat-memory-usage *flonum-alignment?*) (flat-memory-usage *rectangular-alignment?*) (flat-memory-usage *void*-alignment?*) (flat-memory-usage *char*-alignment?*) (flat-memory-usage *file*-alignment?*) (flat-memory-usage *jmpbuf*-alignment?*) (flat-memory-usage *length-alignment?*) (flat-memory-usage *tag-alignment?*) (flat-memory-usage *squished-alignment?*) (flat-memory-usage *file-alignment?*) (flat-memory-usage *jmpbuf-alignment?*) (flat-memory-usage *char-size?*) (flat-memory-usage *fixnum-size?*) (flat-memory-usage *flonum-size?*) (flat-memory-usage *rectangular-size?*) (flat-memory-usage *void*-size?*) (flat-memory-usage *char*-size?*) (flat-memory-usage *file*-size?*) (flat-memory-usage *jmpbuf*-size?*) (flat-memory-usage *length-size?*) (flat-memory-usage *tag-size?*) (flat-memory-usage *squished-size?*) (flat-memory-usage *uss*) ;subsumed elsewhere (flat-memory-usage *strings*) ;not counted (flat-memory-usage *symbols*) ;not counted (flat-memory-usage *outside-main*) ;not counted (flat-memory-usage *inside-main*) ;not counted (flat-memory-usage *outside-body*) ;not counted (flat-memory-usage *discard*) (flat-memory-usage *errors-used*) ;not counted (flat-memory-usage *warnings*) ;not counted (flat-memory-usage *ti*) (flat-memory-usage *statements-per-constant-initialization-procedure*) (flat-memory-usage *li*) (flat-memory-usage *primitive-procedure-handlers*) ;not counted (recursive-object-memory-usage *list->vector*) (recursive-object-memory-usage *append*) (recursive-object-memory-usage *cons*) (recursive-object-memory-usage *eqv?*) (flat-memory-usage *c:noreturn?*) (flat-memory-usage *c:c?*) (flat-memory-usage *c:panic?*) (flat-memory-usage *c:backtrace?*) (flat-memory-usage *c:backtrace-internal?*) (flat-memory-usage *c:ipow?*) (flat-memory-usage *c:input-waiting?*) (flat-memory-usage *p7?*) (flat-memory-usage *closure-representation*) (flat-memory-usage *type-if?*) (flat-memory-usage *immediate-structures?*) (flat-memory-usage *bounds-checks?*) (flat-memory-usage *memory-checks?*) (flat-memory-usage *overflow-checks?*) (flat-memory-usage *type-checks?*) (flat-memory-usage *runtime-checks?*) (flat-memory-usage *heap-allocation?*) (flat-memory-usage *stack-allocation?*) (flat-memory-usage *region-allocation?*) (flat-memory-usage *memory-messages?*) (flat-memory-usage *globals?*) (flat-memory-usage *expandable-regions?*) (flat-memory-usage *forgery?*) (flat-memory-usage *eq?-forgery?*) (flat-memory-usage *uniqueness?*) (flat-memory-usage *align-strings?*) (flat-memory-usage *treat-all-symbols-as-external?*) (flat-memory-usage *index-allocated-string-types-by-expression?*) (flat-memory-usage *index-constant-structure-types-by-slot-types?*) (flat-memory-usage *index-constant-structure-types-by-expression?*) (flat-memory-usage *index-allocated-structure-types-by-slot-types?*) (flat-memory-usage *index-allocated-structure-types-by-expression?*) (flat-memory-usage *index-constant-headed-vector-types-by-element-type?*) (flat-memory-usage *index-constant-headed-vector-types-by-expression?*) (flat-memory-usage *index-allocated-headed-vector-types-by-element-type?*) (flat-memory-usage *index-allocated-headed-vector-types-by-expression?*) (flat-memory-usage *index-constant-nonheaded-vector-types-by-element-type?*) (flat-memory-usage *index-constant-nonheaded-vector-types-by-expression?*) (flat-memory-usage *index-allocated-nonheaded-vector-types-by-element-type?*) (flat-memory-usage *index-allocated-nonheaded-vector-types-by-expression?*) (recursive-object-memory-usage *include-path*) (recursive-object-memory-usage *includes*) (recursive-object-memory-usage *herald*) (recursive-object-memory-usage *heralds*) (recursive-object-memory-usage *program-has-pthreads?*))) (define (print-global-memory-usage) (let* ((c1 (global-memory-usage)) (c4 (cond ((>= c1 1048576) (inexact->exact (ceiling (/ c1 1048576)))) ((>= c1 1024) (inexact->exact (ceiling (/ c1 1024)))) (else c1))) (c5 (cond ((>= c1 1048576) "M") ((>= c1 1024) "K") (else "")))) ;; conventions: C1 C4 C5 (notify "Stalin thinks ~s~a byte~a in use" c4 c5 (if (= c1 1) " is" "s are")) (collect-all) (let* ((c2 (first (collect-info))) (c4 (cond ((>= c2 1048576) (inexact->exact (ceiling (/ c2 1048576)))) ((>= c2 1024) (inexact->exact (ceiling (/ c2 1024)))) (else c2))) (c5 (cond ((>= c2 1048576) "M") ((>= c2 1024) "K") (else "")))) ;; conventions: C2 C4 C5 (notify "Scheme->C thinks ~s~a byte~a in use" c4 c5 (if (= c2 1) " is" "s are")) (let* ((c3 (- c1 c2)) (c4 (cond ((>= (abs c3) 1048576) (inexact->exact (ceiling (/ (abs c3) 1048576)))) ((>= (abs c3) 1024) (inexact->exact (ceiling (/ (abs c3) 1024)))) (else (abs c3)))) (c5 (cond ((>= (abs c3) 1048576) "M") ((>= (abs c3) 1024) "K") (else "")))) (unless (zero? c3) (notify "~s~a byte~a too ~a" c4 c5 (if (= (abs c3) 1) "" "s") (if (negative? c3) "few" "many"))))))) (define (print-number-of-call-sites-that-dispatch-on-clones) (let ((n (count-if (lambda (x) (and (executed? x) (let ((us (members (expression-type-set (expression-callee x))))) (some (lambda (u1) (some (lambda (u2) (and (not (eq? u1 u2)) (native-procedure-type? u1) (called? u1) (native-procedure-type? u2) (called? u2) (wide-clones? u1 u2))) us)) us)))) ;; needs work: Doesn't handle implicit call sites. *calls*))) (notify "~s call site~a on clones" n (if (= n 1) " dispatches" "s dispatch")))) (define (print-maximal-non-let-lexical-nesting-depth) (notify "Maximal non-LET lexical nesting depth is ~s" (reduce max (map non-let-lexical-nesting-depth (remove-if-not environment-used? *es*)) 0))) (define (print-maximal-clone-rate) (notify "Maximal clone rate is ~s" (reduce max (map length (equivalence-classesq (map wide-prototype (remove-if-not environment-used? *es*)))) 0))) (define (print-clone-rates) (for-each (lambda (e) (notify "~a ~a ~a ~a" (number->string-of-length (lexical-nesting-depth e) 5) (number->string-of-length (non-let-lexical-nesting-depth e) 5) (number->string-of-length (count-if called? (wide-clones e)) 5) (environment-name e))) (remove-if-not environment-used? *es*))) (define (print-escaping-type-counts) (let ((n (reduce + (map (lambda (e) (if (eq? (environment-escaping-types e) (unspecified)) 0 (count-if native-procedure-type? (environment-escaping-types e)))) *es*) 0))) (notify "~s escaping native procedure type~a" n (if (= n 1) "" "s"))) (let ((n (reduce + (map (lambda (e) (if (eq? (environment-escaping-types e) (unspecified)) 0 (count-if continuation-type? (environment-escaping-types e)))) *es*) 0))) (notify "~s escaping continuation type~a" n (if (= n 1) "" "s"))) (let ((n (reduce + (map (lambda (e) (if (eq? (environment-escaping-types e) (unspecified)) 0 (count-if string-type? (environment-escaping-types e)))) *es*) 0))) (notify "~s escaping string type~a" n (if (= n 1) "" "s"))) (let ((n (reduce + (map (lambda (e) (if (eq? (environment-escaping-types e) (unspecified)) 0 (count-if structure-type? (environment-escaping-types e)))) *es*) 0))) (notify "~s escaping structure type~a" n (if (= n 1) "" "s"))) (let ((n (reduce + (map (lambda (e) (if (eq? (environment-escaping-types e) (unspecified)) 0 (count-if headed-vector-type? (environment-escaping-types e)))) *es*) 0))) (notify "~s escaping headed vector type~a" n (if (= n 1) "" "s"))) (let ((n (reduce + (map (lambda (e) (if (eq? (environment-escaping-types e) (unspecified)) 0 (count-if nonheaded-vector-type? (environment-escaping-types e)))) *es*) 0))) (notify "~s escaping nonheaded vector type~a" n (if (= n 1) "" "s"))) (let ((n (reduce + (map (lambda (e) (if (eq? (environment-escaping-types e) (unspecified)) 0 (length (environment-escaping-types e)))) *es*) 0))) (notify "~s total escaping type~a" n (if (= n 1) "" "s")))) ;;; Architecture parameters ;;; needs work: Character constants, string constants, and ARGV will screw up ;;; if *CHAR* is not "char". Exact integer constants will screw up ;;; if *FIXNUM* is not "int". Inexact constants will screw up if ;;; *FLONUM* is not "double". Subscript constants will screw up if ;;; *LENGTH* is not "int". Type constants will screw up if *TAG* is ;;; not "int". (define *char* #f) (define *fixnum* #f) (define *flonum* #f) (define *length* #f) (define *tag* #f) (define *squished* #f) (define *signed-squished* #f) (define *file* #f) (define *jmpbuf* #f) (define *char-alignment* #f) (define *fixnum-alignment* #f) (define *flonum-alignment* #f) ;;; This is a limitation. We can only generate code on architectures where ;;; all pointers have the same alignment. (define *pointer-alignment* #f) (define *length-alignment* #f) (define *tag-alignment* #f) (define *squished-alignment* #f) (define *file-alignment* #f) (define *jmpbuf-alignment* #f) (define *char-size* #f) (define *fixnum-size* #f) (define *flonum-size* #f) ;;; This is a limitation. We can only generate code on architectures where ;;; all pointers have the same size. (define *pointer-size* #f) (define *length-size* #f) (define *tag-size* #f) (define *squished-size* #f) ;;; For AIX (define *include-malloc-for-alloca?* #f) ;;; Derived alignments (define *worst-alignment* #f) (define *allocation-alignment* #f) ;;; Alignment check flags (define *char-alignment?* #f) (define *fixnum-alignment?* #f) (define *flonum-alignment?* #f) (define *rectangular-alignment?* #f) (define *void*-alignment?* #f) (define *char*-alignment?* #f) (define *file*-alignment?* #f) (define *jmpbuf*-alignment?* #f) (define *length-alignment?* #f) (define *tag-alignment?* #f) (define *squished-alignment?* #f) (define *file-alignment?* #f) (define *jmpbuf-alignment?* #f) ;;; Size check flags (define *char-size?* #f) (define *fixnum-size?* #f) (define *flonum-size?* #f) (define *rectangular-size?* #f) (define *void*-size?* #f) (define *char*-size?* #f) (define *file*-size?* #f) (define *jmpbuf*-size?* #f) (define *length-size?* #f) (define *tag-size?* #f) (define *squished-size?* #f) (define *uss* #f) (define *strings* #f) (define *symbols* #f) (define *outside-main* #f) (define *inside-main* #f) (define *outside-body* #f) (define *discard* #f) ;;; C surface-syntax predicates and accessors ;;; needs work: To replace the calls to LIST? and LENGTH in the following with ;;; more efficient code: (define (c:noop? c) (or (and (pair? c) (c:noop? (car c)) (c:noop? (cdr c))) (null? c) (and (string? c) (zero? (string-length c))))) (define (c:whitespace? c) (or (and (pair? c) (c:whitespace? (car c)) (c:whitespace? (cdr c))) (null? c) (and (char? c) (char=? c #\newline)) (and (string? c) (or (string=? c "") (string=? c " "))))) (define (c:/**/? c) (or (c:whitespace? c) (and (pair? c) (c:/**/? (car c)) (c:/**/? (cdr c))) (and (list? c) (= (length c) 3) (string? (first c)) (string=? (first c) "/*") (string? (second c)) (string=? (second c) " ") (list? (third c)) (= (length (third c)) 3) (string? (first (third c))) (string? (second (third c))) (string=? (second (third c)) " ") (string? (third (third c))) (string=? (third (third c)) "*/")))) (define (c:declaration? c) (and (list? c) (= (length c) 4) (eq? (first c) 'c:declaration))) (define (c:protect? c) (and (list? c) (= (length c) 2) (eq? (first c) 'c:protect))) (define (c:protected? c) (or (eq? c 'c:protect) (and (pair? c) (or (c:protected? (car c)) (c:protected? (cdr c)))))) (define (c:no-return? c) (and (list? c) (= (length c) 2) (eq? (first c) 'c:no-return))) (define (c:parentheses? c) (or (and (c:no-return? c) (c:parentheses? (second c))) (and (c:protect? c) (c:parentheses? (second c))) (and (list? c) (= (length c) 3) (string? (first c)) (string=? (first c) "(") (string? (third c)) (string=? (third c) ")")))) (define (c:strip c) (cond ((c:no-return? c) (c:strip (second c))) ((c:protect? c) (c:strip (second c))) ((c:parentheses? c) (c:strip (second c))) (else c))) (define (c:match? c1 c2) (define (c:match c1 c2) (define (augment variable variables) ;; conventions: VARIABLE VARIABLES (cond ((eq? variables #f) #f) ((member variable variables) variables) ((some (lambda (other-variable) ;; conventions: OTHER-VARIABLE (equal? (car variable) (car other-variable))) variables) #f) (else (cons variable variables)))) (define (merge variables1 variables2) ;; conventions: VARIABLE1 VARIABLE2 (cond ((eq? variables1 #f) #f) ((null? variables1) variables2) (else (merge (rest variables1) (augment (first variables1) variables2))))) (cond ((or (and (char? c1) (char? c2) (char=? c1 c2)) (and (string? c1) (string? c2) (string=? c1 c2)) (and (number? c1) (number? c2) (= c1 c2)) (and (null? c1) (null? c2)) (and (symbol? c1) (symbol? c2) (eq? c1 c2))) '()) ((and (pair? c1) (pair? c2)) (if (and (string? (car c1)) (string? (car c2)) (string=? (car c1) "t") (string=? (car c2) "t") (pair? (cdr c1)) (pair? (cdr c2)) (integer? (cadr c1)) (integer? (cadr c2)) (null? (cddr c1)) (null? (cddr c2))) (list (cons c1 c2)) (merge (c:match (car c1) (car c2)) (c:match (cdr c1) (cdr c2))))) (else #f))) (not (eq? (c:match c1 c2) #f))) (define (c:assignment? c) (and (list? c) (= (length c) 2) (list? (first c)) (= (length (first c)) 2) (eq? (first (first c)) 'c:protect) (list? (second (first c))) (= (length (second (first c))) 3) (string? (second (second (first c)))) (string=? (second (second (first c))) " ") (list? (third (second (first c)))) (= (length (third (second (first c)))) 3) (string? (first (third (second (first c))))) (string=? (first (third (second (first c)))) "=") (string? (second (third (second (first c))))) (string=? (second (third (second (first c)))) " ") (string? (second c)) (string=? (second c) ";"))) (define (c:atomic-t? c) (and (list? c) (= (length c) 2) (string? (first c)) (string=? (first c) "t") (string? (second c)))) (define (c:t? c) (or (and (list? c) (= (length c) 2) (string? (first c)) (string=? (first c) "t") (string? (second c))) (and (list? c) (= (length c) 3) (c:t? (first c)) (string? (second c)) (string=? (second c) ".")))) (define (c:atomic-t c) (if (and (list? c) (= (length c) 3) (c:t? (first c)) (string? (second c)) (string=? (second c) ".")) (c:atomic-t (first c)) c)) (define (c:assignment-to-temporary? c) (and (c:assignment? c) (c:t? (first (second (first c)))))) (define (c:unprotected-assignment-to-atomic-temporary? c) (and (c:assignment? c) (c:atomic-t? (first (second (first c)))) (not (c:protected? (third (third (second (first c)))))))) (define (c:label? c) (and (list? c) (= (length c) 2) (list? (first c)) (= (length (first c)) 2) (string? (first (first c))) (or (string=? (first (first c)) "h") (string=? (first (first c)) "l") (string=? (first (first c)) "x")) (string? (second (first c))) (string? (second c)) (string=? (second c) ":"))) ;;; C surface-syntax constructors (define (outside-main c) (unless (c:noop? c) (set! *outside-main* (cons c *outside-main*)))) (define (inside-main c) (unless (c:noop? c) ;; needs work: To replace the call to LIST? and LENGTH in the following with ;; more efficient code: (cond ((and (list? c) (= (length c) 3) (char? (second c)) (char=? (second c) #\newline)) (inside-main (first c)) (inside-main (third c))) (else (set! *inside-main* (cons c *inside-main*)))))) (define (outside-body c) (unless (c:noop? c) (set! *outside-body* (cons c *outside-body*)))) (define (c:protect c) (list 'c:protect c)) (define (c:no-return c) (list 'c:no-return c)) (define (spaces-between cs) (define (space-between c1 c2) (cond ((c:noop? c1) c2) ((c:noop? c2) c1) (else (list c1 " " c2)))) (if (null? cs) "" (space-between (first cs) (spaces-between (rest cs))))) (define (space-between . cs) (spaces-between cs)) (define (commas-between cs) (define (comma-between c1 c2) (cond ((c:noop? c1) c2) ((c:noop? c2) c1) (else (list c1 ", " c2)))) (if (null? cs) "" (comma-between (first cs) (commas-between (rest cs))))) (define (comma-between . cs) (commas-between cs)) (define (newlines-between cs) (define (newline-between c1 c2) (cond ((c:noop? c1) c2) ((c:noop? c2) c1) (else (list c1 #\newline c2)))) (if (null? cs) "" (newline-between (first cs) (newlines-between (rest cs))))) (define (newline-between . cs) (newlines-between cs)) (define (braces-around c) (define (c:ends-in-colon? c) (or (and (pair? c) (or (c:ends-in-colon? (cdr c)) (and (c:ends-in-colon? (car c)) (c:/**/? (cdr c))))) (and (string? c) (string=? c ":")))) ;; ANSI C doesn't allow "label:}" (list "{" (if (c:ends-in-colon? c) (semicolon-after c) c) "}")) (define (unparenthesize c) (cond ((c:no-return? c) (c:no-return (unparenthesize (second c)))) ((c:protect? c) (c:protect (unparenthesize (second c)))) ((c:parentheses? c) (unparenthesize (second c))) (else c))) (define (parentheses-around c) (list "(" (unparenthesize c) ")")) (define (semicolon-after c) (list (unparenthesize c) ";")) (define (colon-after c) (list c ":")) (define (star-before c) (list "*" c)) ;;; C declaration constructors (define (c:declaration w c c1) (let ((c (if (c:protect? c) (second c) c))) (list 'c:declaration c (if (c:noop? c1) (semicolon-after (c:type-set w c)) (space-between (semicolon-after (c:type-set w c)) (c:/**/ c1))) #f))) ;;; C expression constructors (define (c:initialize-constants i) (list "initialize_constants" (number->string i))) (define (c:main) "main") (define (c:argc) "argc") (define (c:argv) "argv") (define (c:escape c) (cond ((char=? c #\newline) "\\n") ((char=? c #\') "\\'") ((char=? c #\") "\\\"") ((char=? c #\\) "\\\\") (else (string c)))) (define (c:character c) (list "'" (c:escape c) "'")) (define (c:fixnum c) (number->string c)) (define (c:flonum c) (number->string c)) (define (c:string c) (cond (*align-strings?* (unless (memp string=? c *strings*) (set! *strings* (append *strings* (list c))) (outside-main ;; needs work: needs abstraction for initialized declaration (semicolon-after (space-between "union" (braces-around (space-between (semicolon-after (space-between *char* (c:raw-subscript "string" (number->string (+ (string-length c) 1))))) (semicolon-after (space-between *fixnum* "align")))) (unparenthesize (c:= (list "string" (number->string (positionp string=? c *strings*))) (braces-around (braces-around (commas-between (append (map (lambda (c) (number->string (char->integer c))) (string->list c)) (list (c:0)))))))))))) (c:& (c:. (list "string" (number->string (positionp string=? c *strings*))) (c:raw-subscript "string" (c:0))))) (else (list "\"" (map c:escape (string->list c)) "\"")))) (define (c:subscript c1 c2) (parentheses-around (c:protect (list c1 "[" (unparenthesize c2) "]")))) (define (c:raw-subscript c1 c2) (list c1 "[" (unparenthesize c2) "]")) (define (c:= c1 c2) (parentheses-around (c:protect (space-between (unparenthesize c1) "=" (unparenthesize c2))))) (define (c:call c . cs) (list c (parentheses-around (commas-between cs)))) (define (c:sizeof c) (c:call "sizeof" c)) (define (c:alignof c) (include! "stddef") ;offsetof (c:call "offsetof" (list "struct" (braces-around (space-between (semicolon-after (space-between "char" "dummy")) (semicolon-after (c "probe"))))) "probe")) (define (c:cast c1 c2) (parentheses-around (list (parentheses-around c1) c2))) (define (c:unsigned-char-cast c) (c:cast (space-between "unsigned" "char") c)) ;;; needs work: Calls to this might need checks for -On. (define (c:fixnum-cast c) (c:cast *fixnum* c)) (define (c:flonum-cast c) (c:cast *flonum* c)) (define (c:void*-cast c) (c:cast (space-between "void" "*") c)) (define (c:fixnum*-cast c) (c:cast (space-between *fixnum* "*") c)) (define (c:char*-cast c) (c:cast (space-between *char* "*") c)) (define (c:file*-cast c) (include! "stdio") ;FILE (c:cast (space-between *file* "*") c)) (define (c:boolean-or . cs) ;; note: This can't be c:|| becaust this is not allowed by the Scheme reader. (parentheses-around (let loop ((cs cs)) (cond ((null? cs) (fuck-up)) ((null? (rest cs)) (first cs)) (else (list (first cs) "||" (loop (rest cs)))))))) (define (c:&& . cs) (parentheses-around (let loop ((cs cs)) (cond ((null? cs) (fuck-up)) ((null? (rest cs)) (first cs)) (else (list (first cs) "&&" (loop (rest cs)))))))) (define (unary c1 c2) (parentheses-around (list c1 c2))) (define (binary c1 c2 c3) (parentheses-around (list c1 c2 c3))) (define (c:?: c1 c2 c3) (parentheses-around (list c1 "?" c2 ":" c3))) ;; needs work: To distinguish between signed and unsigned and int and long int. (define (c:0) "0") ;; needs work: To distinguish between float, double, and long double. (define (c:0.0) "0.0") ;; needs work: To distinguish between signed and unsigned and int and long int. (define (c:1) "1") ;; needs work: To distinguish between float, double, and long double. (define (c:1.0) "1.0") ;; needs work: To distinguish between signed and unsigned and int and long int. (define (c:256) "256") ;; needs work: To distinguish between char and wchar_t. (define (c:nul) "'\\0'") (define (c:null) (include! "stdlib") ;NULL "NULL") (define (c:eof) (include! "stdio") ;EOF "EOF") (define (c:. c1 c2) (if (let ((c1 (c:strip c1))) ;; needs work: To replace the calls to LIST? and LENGTH in the ;; following with more efficient code: (and (list? c1) (= (length c1) 3) (string? (second c1)) (or (string=? (second c1) ".") (string=? (second c1) "->")))) (binary (unparenthesize c1) "." c2) (binary c1 "." c2))) (define (c:-> c1 c2) (c:protect (if (let ((c1 (c:strip c1))) ;; needs work: To replace the calls to LIST? and LENGTH in the ;; following with more efficient code: (and (list? c1) (= (length c1) 3) (string? (second c1)) (or (string=? (second c1) ".") (string=? (second c1) "->")))) (binary (unparenthesize c1) "->" c2) (binary c1 "->" c2)))) (define (c:== c1 c2) (binary c1 "==" c2)) (define (c:==0 c) (c:== c (c:0))) (define (c:==0.0 c) (c:== c (c:0.0))) (define (c:==infinity c) (include! "math") ;HUGE_VAL (c:== c "HUGE_VAL")) (define (c:==null c) (c:== c (c:null))) (define (c:==eof c) (c:== c (c:eof))) (define (c:!= c1 c2) (binary c1 "!=" c2)) (define (c:!=0 c) (c:!= c (c:0))) (define (c:!=0.0 c) (c:!= c (c:0.0))) (define (c:< c1 c2) (binary c1 "<" c2)) (define (c:<0 c) (c:< c (c:0))) (define (c:<0.0 c) (c:< c (c:0.0))) (define (c:> c1 c2) (binary c1 ">" c2)) (define (c:>0 c) (c:> c (c:0))) (define (c:>0.0 c) (c:> c (c:0.0))) (define (c:<= c1 c2) (binary c1 "<=" c2)) (define (c:>= c1 c2) (binary c1 ">=" c2)) ;;; needs work: Calls to this might need checks for -On. (define (c:+ c1 c2) (if (equal? c2 "0") c1 (binary c1 "+" c2))) ;;; needs work: Calls to this might need checks for -On. (define (c:- c . cs) (when (> (length cs) 1) (fuck-up)) (cond ((null? cs) (unary "-" c)) ((equal? (first cs) "0") c) (else (binary c "-" (first cs))))) ;;; needs work: Calls to this might need checks for -On. (define (c:* c . cs) (when (> (length cs) 1) (fuck-up)) (if (null? cs) (unary "*" c) (binary c "*" (first cs)))) (define (c:/ c1 c2) (binary c1 "/" c2)) (define (c:% c1 c2) ;; needs work: The % operator in C is implementation dependent for negative ;; arguments. (binary c1 "%" c2)) ;;; needs work: Calls to this might need checks for -On. (define (c:<< c1 c2) (if (equal? c2 "0") c1 (binary c1 "<<" c2))) ;;; needs work: Calls to this might need checks for -On. (define (c:>> c1 c2) ;; needs work: The >> operator in C is implementation dependent for negative ;; arguments. (if (equal? c2 "0") c1 (binary c1 ">>" c2))) (define (c:& c . cs) (when (> (length cs) 1) (fuck-up)) (if (null? cs) (unary "&" c) (binary c "&" (first cs)))) (define (c:bitwise-or c1 c2) ;; note: This can't be c:| because this is not allowed by the Scheme reader. (if (equal? c2 "0") c1 (binary c1 "|" c2))) (define (c:^ c1 c2) (binary c1 "^" c2)) (define (c:~ c) (unary "~" c)) (define (c:! c) (unary "!" c)) ;;; needs work: Calls to this might need checks for -On. (define (c:++ c) (parentheses-around (c:protect (list c "++")))) ;;; C statement constructors (define (c:/**/ c) (space-between "/*" c "*/")) (define (c:define c1 c2) (space-between "#define" c1 c2)) (define (c:noop) "") (define (c::= c1 c2) (semicolon-after (c:= c1 c2))) ;;; needs work: Calls to this might need checks for -On. (define (c:+= c1 c2) (semicolon-after (c:protect (space-between (unparenthesize c1) "+=" (unparenthesize c2))))) (define (c:: c) (colon-after c)) (define (c:goto c) (c:no-return (semicolon-after (space-between "goto" c)))) (define (c:header c . cs) (if (null? cs) (list c (parentheses-around "void")) (list c (parentheses-around (commas-between cs))))) (define (c:prototype c . cs) (semicolon-after (apply c:header c cs))) (define (c:noreturn-prototype c . cs) (set! *c:noreturn?* #t) (semicolon-after (space-between (apply c:header c cs) "NORETURN"))) (define (c:gosub c . cs) (semicolon-after (c:protect (apply c:call c cs)))) (define (c:return . cs) (when (> (length cs) 1) (fuck-up)) (c:no-return (semicolon-after (if (null? cs) "return" (space-between "return" (unparenthesize (first cs))))))) (define (strict-operator c1 c2) (if (let loop ((c2 c2)) (cond ((c:no-return? c2) (loop (second c2))) ((c:protect? c2) (loop (second c2))) ;; needs work: To replace the calls to LIST? and LENGTH in the ;; following with more efficient code: (else (or (and (list? c2) (= (length c2) 3) (char? (second c2)) (char=? (second c2) #\newline)) (and (list? c2) (list? (first c2)) (string? (first (first c2))) (or (string=? (first (first c2)) "if") (string=? (first (first c2)) "switch"))))))) (newline-between c1 (braces-around c2)) (space-between c1 c2))) (define (operator c1 c2) (if (let loop ((c2 c2)) (cond ((c:no-return? c2) (loop (second c2))) ((c:protect? c2) (loop (second c2))) ;; needs work: To replace the calls to LIST? and LENGTH in the ;; following with more efficient code: (else (and (list? c2) (= (length c2) 3) (char? (second c2)) (char=? (second c2) #\newline) (or (not (list? (first c2))) (not (string? (first (first c2)))) (and (not (string=? (first (first c2)) "if")) (not (string=? (first (first c2)) "switch")))))))) (newline-between c1 (braces-around c2)) (space-between c1 c2))) (define (c:while c1 c2) (operator (space-between "while" (parentheses-around c1)) c2)) (define (c:for c1 c2 c3 c4) (operator (space-between "for" (parentheses-around (space-between (semicolon-after (unparenthesize c1)) (semicolon-after (unparenthesize c2)) (unparenthesize c3)))) c4)) (define (c:if c1 c2 c3 p?) (if (c:match? c2 c3) (if p? (newline-between (semicolon-after c1) c2) c2) (if (c:/**/? c2) (if (c:/**/? c3) (if p? (semicolon-after c1) (c:noop)) ;; note: This assumes that C:! wraps in parentheses. (operator (space-between "if" (c:! (parentheses-around c1))) c3)) (if (c:/**/? c3) (operator (space-between "if" (parentheses-around c1)) c2) (if (c:no-return? c2) (if (c:no-return? c3) (c:no-return (newline-between (strict-operator (space-between "if" (parentheses-around c1)) c2) (operator "else" c3))) (newline-between (strict-operator (space-between "if" (parentheses-around c1)) c2) c3)) (if (c:no-return? c3) (newline-between (strict-operator ;; note: This assumes that C:! wraps in parentheses. (space-between "if" (c:! (parentheses-around c1))) c3) c2) (if (and (c:assignment? c2) (c:assignment? c3) (equal? (first (second (first c2))) (first (second (first c3))))) (c::= (first (second (first c2))) (c:?: c1 (third (third (second (first c2)))) (third (third (second (first c3)))))) (newline-between (strict-operator (space-between "if" (parentheses-around c1)) c2) (operator "else" c3))))))))) (define (equate-cases cs1 cs2) (transitive-equivalence-classesp (lambda (pair1 pair2) ;; conventions: PAIR1 PAIR2 (c:match? (second pair1) (second pair2))) (map list cs1 cs2))) (define (c:default c) (newline-between (colon-after "default") c)) (define (c:switch c1 cs2 cs3 c4 p?) (let ((cases (transitive-equivalence-classesp (lambda (pair1 pair2) ;; conventions: PAIR1 PAIR2 (c:match? (second pair1) (second pair2))) (cons (list (colon-after "default") c4) (map (lambda (c2 c3) (list (colon-after (space-between "case" c2)) c3)) cs2 cs3))))) ;; conventions: CASES (when (null? cases) (fuck-up)) (if (null? (rest cases)) ;; note: Technically we would need to prepend an evaluation of C1 but ;; we don't since SWITCH is always called as a type switch and the ;; antecedent can't do any side effects, diverge, or cause an ;; error. (second (first (first cases))) (let ((the-case (find-if (lambda (pairs) ;; conventions: PAIRS (some (lambda (pair) ;; conventions: PAIR (equal? (first pair) (colon-after "default"))) pairs)) cases))) ;; conventions: THE-CASE (if (and (null? (rest (removeq the-case cases))) (null? (rest (first (removeq the-case cases))))) (if p? (c:if (c:== c1 (third (first (first (first (first (removeq the-case cases))))))) (second (first (first (removeq the-case cases)))) (second (first the-case)) #f) (newline-between (c:if (c:== c1 (third (first (first (first (first (removeq the-case cases))))))) (second (first (first (removeq the-case cases)))) (c:noop) #f) (second (first the-case)))) (newline-between (space-between "switch" (parentheses-around c1)) (braces-around (newline-between (newlines-between (map (lambda (pairs) ;; conventions: PAIRS (newline-between (newlines-between (map first pairs)) (second (first pairs)) (if p? (semicolon-after "break") (c:noop)))) (removeq the-case cases))) (c:default (second (first the-case))))))))))) (define (c:defaultless-switch c1 cs2 cs3 p?) ;; Defaultless here means not that the default is a noop but rather that the ;; compiler guarantees that the default will never be taken so that the ;; default can be reallocated to one of the cases. (let ((cases (transitive-equivalence-classesp (lambda (pair1 pair2) ;; conventions: PAIR1 PAIR2 (c:match? (second pair1) (second pair2))) (map (lambda (c2 c3) (list (colon-after (space-between "case" c2)) c3)) cs2 cs3)))) ;; conventions: CASES (when (null? cases) (fuck-up)) (if (null? (rest cases)) ;; note: Technically we would need to prepend an evaluation of C1 but ;; we don't since SWITCH is always called as a type switch and the ;; antecedent can't do any side effects, diverge, or cause an ;; error. (second (first (first cases))) ;; Choose the case with the greatest number of pairs to be the default. ;; Note that MINP is being used to compute the maximal member here. (let ((the-case (minp (lambda (case1 case2) ;; conventions: CASE1 CASE2 (> (length case1) (length case2))) cases))) ;; conventions: THE-CASE (if (and (null? (rest (removeq the-case cases))) (null? (rest (first (removeq the-case cases))))) (if p? (c:if (c:== c1 (third (first (first (first (first (removeq the-case cases))))))) (second (first (first (removeq the-case cases)))) (second (first the-case)) #f) (newline-between (c:if (c:== c1 (third (first (first (first (first (removeq the-case cases))))))) (second (first (first (removeq the-case cases)))) (c:noop) #f) (second (first the-case)))) (newline-between (space-between "switch" (parentheses-around c1)) (braces-around (newline-between (newlines-between (map (lambda (pairs) ;; conventions: PAIRS (newline-between (newlines-between (map first pairs)) (second (first pairs)) (if p? (semicolon-after "break") (c:noop)))) (removeq the-case cases))) (c:default (second (first the-case))))))))))) ;;; C type constructors (define (c:byte) "char") ;;; C function call constructors (define (c:rint c) (include! "math") ;rint (c:call "rint" c)) (define (c:floor c) (include! "math") ;floor (c:call "floor" c)) (define (c:ceil c) (include! "math") ;ceil (c:call "ceil" c)) (define (c:exp c) (include! "math") ;exp (c:call "exp" c)) (define (c:log c) (include! "math") ;log (c:call "log" c)) (define (c:sin c) (include! "math") ;sin (c:call "sin" c)) (define (c:cos c) (include! "math") ;cos (c:call "cos" c)) (define (c:tan c) (include! "math") ;tan (c:call "tan" c)) (define (c:asin c) (include! "math") ;asin (c:call "asin" c)) (define (c:acos c) (include! "math") ;acos (c:call "acos" c)) (define (c:atan c) (include! "math") ;atan (c:call "atan" c)) (define (c:atan2 c1 c2) (include! "math") ;atan2 (c:call "atan2" c1 c2)) (define (c:sqrt c) (include! "math") ;sqrt (c:call "sqrt" c)) (define (c:pow c1 c2) (include! "math") ;pow (c:call "pow" c1 c2)) (define (c:setjmp c) (include! "setjmp") ;setjmp (c:protect (c:call "setjmp" c))) (define (c:longjmp c1 c2) (include! "setjmp") ;longjmp (c:gosub "longjmp" c1 c2)) (define (c:fopen c1 c2) (include! "stdio") ;fopen (c:protect (c:call "fopen" c1 c2))) (define (c:fclose c) (include! "stdio") ;fclose (c:protect (c:call "fclose" c))) (define (c:getc c) (include! "stdio") ;getc (c:protect (c:call "getc" c))) (define (c:ungetc c1 c2) (include! "stdio") ;ungetc (c:protect (c:call "ungetc" c1 c2))) (define (c:putc c1 c2) (include! "stdio") ;putc (c:gosub "putc" c1 c2)) (define (c:printf . cs) (include! "stdio") ;printf (apply c:gosub "printf" cs)) (define (c:malloc c p?) (cond (*treadmarks?* (include! "Tmk") ;Tmk_malloc (c:protect (c:call "Tmk_malloc" c))) (*program-has-heap?* (cond (p? (include! "gc") ;GC_malloc_uncollectable (c:protect (c:call "GC_malloc_uncollectable" c))) (else (include! "gc") ;GC_malloc_atomic_uncollectable (c:protect (c:call "GC_malloc_atomic_uncollectable" c))))) (else (include! "malloc") ;malloc (c:protect (c:call "malloc" c))))) (define (c:gc-malloc c) (when *treadmarks?* (fuck-up)) (include! "gc") ;GC_malloc (c:protect (c:call "GC_malloc" c))) (define (c:gc-malloc-atomic c) (when *treadmarks?* (fuck-up)) (include! "gc") ;GC_malloc_atomic (c:protect (c:call "GC_malloc_atomic" c))) (define (c:free c p?) (cond (*treadmarks?* (include! "Tmk") ;Tmk_free (c:gosub "Tmk_free" c)) (*program-has-heap?* (cond (p? (include! "gc") ;GC_free (c:gosub "GC_free" c)) (else (include! "gc") ;GC_free (c:gosub "GC_free" c)))) (else (include! "malloc") ;free (c:gosub "free" c)))) (define (c:alloca c) (when *treadmarks?* (fuck-up)) (include! (if *include-malloc-for-alloca?* "malloc" "alloca")) ;alloca (c:protect (c:call "alloca" c))) (define (c:gc-enable-incremental) (when *treadmarks?* (fuck-up)) (include! "gc") ;GC_enable_incremental (c:gosub "GC_enable_incremental")) (define (c:strlen c) (include! "string") ;strlen (c:call "strlen" c)) (define (c:exit c) (include! "stdlib") ;exit (c:gosub "exit" c)) (define (c:assert c) (include! "assert") ;assert (c:gosub "assert" c)) ;;; Stalin-specific code generation utilities (define (c:==struct c1 c2 u) (cond ((rectangular-type? u) (c:&& (c:== (c:r c1) (c:r c2)) (c:== (c:i c1) (c:i c2)))) ((native-procedure-type? u) (case *closure-representation* ((immediate-flat immediate-display) (apply c:&& (map (lambda (e) (c:== (c:. c1 (c:e e)) (c:. c2 (c:e e)))) (ancestors u)))) ((indirect-flat indirect-display linked) (c:== c1 c2)) (else (fuck-up)))) ;; Immediate structures should never be compared for EQ?-ness. ((and (or (nonheaded-vector-type? u) (displaced-vector-type? u)) (not (degenerate-vector-type? u))) (c:&& (c:== (c:. c1 "length") (c:. c2 "length")) (c:== (c:. c1 "elements") (c:. c2 "elements")))) (else (c:== c1 c2)))) (define (tag-only? w) (must-be? (lambda (u) (or (char-type? u) (fictitious? u))) w)) (define (has-union? w) (> (count-if-not (lambda (u) (or (char-type? u) (fictitious? u))) (members w)) 1)) (define (determine-which-type-sets-are-squeezable!) ;; needs work: This really depends on the architecture parameters. (for-each (lambda (w) (set-type-set-squeezable?! w (and (not (can-be? fixnum-type? w)) (not (can-be? flonum-type? w)) (not (can-be? rectangular-type? w)) (not (can-be? pointer-type? w)) (case *closure-representation* ((immediate-flat immediate-display) ;; needs work: Can be extended to allow squeezing a native procedure ;; with a closure that has a single slot or environment. (not (can-be? (lambda (u) (and (native-procedure-type? u) (not (fictitious? u)))) w))) ((indirect-flat indirect-display linked) #t) (else (fuck-up))) ;; needs work: Can be extended to allow squeezing a singleton ;; immediate structure if its slot is squeezed. (not (can-be? (lambda (u) (and (structure-type? u) (structure-type-immediate? u))) w)) (not (can-be? (lambda (u) (and (headed-vector-type? u) (degenerate-vector-type? u))) w)) (not (can-be? nonheaded-vector-type? w)) (not (can-be? displaced-vector-type? w)) (one (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) (members w))))) *ws*)) (define (squeezable? w) ;; needs work: This really depends on the architecture parameters. (for-each-member (lambda (u) (cond ((null-type? u) (set! *tag-size?* #t)) ((true-type? u) (set! *tag-size?* #t)) ((false-type? u) (set! *tag-size?* #t)) ((char-type? u) (set! *char-size?* #t)) ((fixnum-type? u) #f) ((flonum-type? u) #f) ((rectangular-type? u) #f) ((input-port-type? u) (include! "stdio") ;FILE (set! *file*-size?* #t)) ((output-port-type? u) (include! "stdio") ;FILE (set! *file*-size?* #t)) ((eof-object-type? u) (set! *tag-size?* #t)) ((pointer-type? u) (set! *void*-size?* #t)) ((internal-symbol-type? u) (set! *tag-size?* #t)) ((external-symbol-type? u) (set! *char*-size?* #t)) ((primitive-procedure-type? u) (set! *tag-size?* #t)) ((native-procedure-type? u) (if (fictitious? u) (set! *tag-size?* #t) (set-native-procedure-type-size?! u #t))) ((foreign-procedure-type? u) (set! *tag-size?* #t)) ((continuation-type? u) (cond ((fictitious? u) (set! *tag-size?* #t)) (else (include! "setjmp") ;jmp_buf (set! *jmpbuf*-size?* #t)))) ((string-type? u) (set! *char*-size?* #t)) ((structure-type? u) (cond ((fictitious? u) (set! *tag-size?* #t)) (else (unless (structure-type-immediate? u) (set-structure-type-size?! u #t))))) ((headed-vector-type? u) (unless (degenerate-vector-type? u) (set-headed-vector-type-size?! u #t))) ((nonheaded-vector-type? u) #f) ((displaced-vector-type? u) #f) (else (fuck-up)))) w) (type-set-squeezable? w)) (define (squeezed-member w) (unless (squeezed? w) (fuck-up)) (the-member-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) w)) (define (squeezed? w) (and *squeeze?* (not (fictitious? w)) (not (monomorphic? w)) (not (tag-only? w)) (squeezable? w))) (define (type-alignment& u) ;; This is only defined where U is a pointer type. This gives the alignment ;; of the object pointed to by U. In other words, this number is the minimum ;; number of low-order zeros bits in pointers of type U. (cond ((input-port-type? u) (set! *file-alignment?* #t) *file-alignment*) ((output-port-type? u) (set! *file-alignment?* #t) *file-alignment*) ((pointer-type? u) ;; This is worst case because you don't know what the pointer is pointing ;; to. (set! *char-alignment?* #t) *char-alignment*) ((external-symbol-type? u) (cond (*align-strings?* (set! *fixnum-alignment?* #t) *fixnum-alignment*) (else (set! *char-alignment?* #t) *char-alignment*))) ((native-procedure-type? u) (when (fictitious? u) (fuck-up)) (case *closure-representation* ((immediate-flat immediate-display) (fuck-up)) ((indirect-flat indirect-display linked) (set-native-procedure-type-alignment&?! u #t) (cond ((and (or (eq? *closure-conversion-method* 'baseline) (eq? *closure-conversion-method* 'conventional)) (or (not (environment? (native-procedure-type-narrow-prototype u))) (not (environment-used? (narrow-prototype u))) (not (environment? (parent-parameter u))) (not (environment-used? (parent-parameter u))))) (set! *fixnum-alignment?* #t) *fixnum-alignment*) (else (let ((e (parent-parameter u))) (if (has-parent-slot? e) ;; note: See the note in TYPE-ALIGNMENT. (max *pointer-alignment* (reduce ;; note: See the note in TYPE-ALIGNMENT. max (map (lambda (g) (type-set-alignment (variable-type-set g))) (remove-if-not slotted? (variables e))) ;; This should never happen. #f)) (reduce ;; note: See the note in TYPE-ALIGNMENT. max (map (lambda (g) (type-set-alignment (variable-type-set g))) (remove-if-not slotted? (variables e))) ;; This should never happen. #f)))))) (else (fuck-up)))) ((continuation-type? u) (when (fictitious? u) (fuck-up)) (set! *jmpbuf-alignment?* #t) *jmpbuf-alignment*) ((string-type? u) (cond (*align-strings?* (set! *fixnum-alignment?* #t) *fixnum-alignment*) (else (set! *char-alignment?* #t) *char-alignment*))) ((structure-type? u) (when (fictitious? u) (fuck-up)) ;; needs work: Can be extended to allow squishing a singleton immediate ;; structure if its slot is squished. (when (structure-type-immediate? u) (fuck-up)) (set-structure-type-alignment&?! u #t) (reduce ;; note: See the note in TYPE-ALIGNMENT. max (map type-set-alignment (remove-if fictitious? (structure-type-slots u))) ;; This should never happen. #f)) ((headed-vector-type? u) (when (degenerate-vector-type? u) (fuck-up)) (set-headed-vector-type-alignment&?! u #t) ;; note: See the note in TYPE-ALIGNMENT. (max *length-alignment* (type-set-alignment (headed-vector-type-element u)))) (else (fuck-up)))) (define (pointer-member? u) (and (not (char-type? u)) (not (fictitious? u)) (not (fixnum-type? u)) ;; needs work: Can be extended to allow squishing a singleton ;; immediate structure if its slot is squished. (not (degenerate-vector-type? u)))) (define (non-pointer-member? u) (not (pointer-member? u))) (define (no-pointer-members? w) (must-be? non-pointer-member? w)) (define (squish-alignment w) (if (no-pointer-members? w) ;; Type sets that do not have pointer members have no limit on the number ;; of members that are not fictitious because we tolerate an arbitrary ;; loss in range for non-pointer values. Remember that CHAR is fictitious. ;; In this case, allocate just enough squish tag bits to encode all of ;; the members that are not fictitious. But if there are a power-of-two ;; such members, allocate an extra squish tag bit because we can't assign ;; squish tag zero to a fixnum or a degenerate vector. (max (if (can-be-non? (lambda (u) (or (char-type? u) (fictitious? u))) w) (inexact->exact (ceiling (+ (/ (log (count-if (lambda (u) (or (fixnum-type? u) ;; needs work: Can be extended to allow ;; squishing a singleton ;; immediate structure if its ;; slot is squished. (degenerate-vector-type? u))) (members w))) (log 2.0)) 0.1))) 0) (type-set-minimal-alignment w)) ;; Type sets that do have pointer members have a limit on the number of ;; squish tag bits because pointers aren't shifted. The number of squish ;; tag bits is limited to the smallest number over all of the pointer ;; members. The reason is that there are ways that pointers can be ;; created where we have no control over the alignment. For example, ;; string, pair, and vector constants, alloca, malloc, GC_malloc, fopen, ;; stdin, and stdout. In fact, the only place where we do have control ;; over alignment is in the region allocator. (reduce min (map type-alignment& (members-that pointer-member? w)) ;; This can't happen if the type set is squished. #f))) (define (determine-which-type-sets-are-squishable!) ;; needs work: This really depends on the architecture parameters. ;; note: Squishing reduces the maximum magnitude of fixnums and the maximum ;; length of degenerate vectors. (for-each (lambda (w) (set-type-set-squishable?! w #t)) *ws*) (let loop () (let ((again? #f)) (for-each (lambda (w) (unless (and ;; A flonum can't be squished because it would result in a loss ;; of precision and a double might not fit in a pointer. ;; needs work: Floats can be squished on 64-bit architectures. (not (can-be? flonum-type? w)) ;; A rectangular can't be squished because it won't fit in a ;; pointer. (not (can-be? rectangular-type? w)) (case *closure-representation* ((immediate-flat immediate-display) ;; A native procedure with a closure can't be squished because ;; it might not fit in a pointer. ;; needs work: Can be extended to allow squishing a native ;; procedure with a closure that has a single ;; slot or environment. (not (can-be? (lambda (u) (and (native-procedure-type? u) (not (fictitious? u)))) w))) ((indirect-flat indirect-display linked) #t) (else (fuck-up))) ;; An immediate structure can't be squished because it might not ;; fit in a pointer and because some of its components might not ;; be squished. ;; needs work: Can be extended to allow squishing a singleton ;; immediate structure if its slot is squished. (not (can-be? (lambda (u) (and (structure-type? u) (structure-type-immediate? u))) w)) ;; A nondegenerate nonheaded vector can't be squished because it ;; might not fit in a pointer. (not (can-be? (lambda (u) (and (nonheaded-vector-type? u) (not (degenerate-vector-type? u)))) w)) ;; A nondegenerate displaced vector can't be squished because it ;; might not fit in a pointer. (not (can-be? (lambda (u) (and (displaced-vector-type? u) (not (degenerate-vector-type? u)))) w)) ;; There must be enough squish tag bits. (<= (count-if-not (lambda (u) (or (char-type? u) (fictitious? u))) (members w)) (expt 2 (squish-alignment w)))) (when (type-set-squishable? w) (set-type-set-squishable?! w #f) (set! again? #t)))) *ws*) (when again? (loop))))) (define (print-reasons-why-type-sets-are-not-squishable!) ;; needs work: This really depends on the architecture parameters. (for-each (lambda (w) (unless (squishable? w) (notify "W~a is general case for the following reasons:" (type-set-index w)) (when (can-be? flonum-type? w) (notify " flonum")) (when (can-be? rectangular-type? w) (notify " rectangular")) (when (and (or (eq? *closure-representation* 'immediate-flat) (eq? *closure-representation* 'immediate-display)) (can-be? (lambda (u) (and (native-procedure-type? u) (not (fictitious? u)))) w)) (notify " immediate native procedure")) (when (can-be? (lambda (u) (and (structure-type? u) (structure-type-immediate? u))) w) (notify " immediate structure")) (when (can-be? (lambda (u) (and (nonheaded-vector-type? u) (not (degenerate-vector-type? u)))) w) (notify " nondegenerate nonheaded vector")) (when (can-be? (lambda (u) (and (displaced-vector-type? u) (not (degenerate-vector-type? u)))) w) (notify " nondegenerate displaced vector")) (when (and (not (can-be? flonum-type? w)) (not (can-be? rectangular-type? w)) (not (and (or (eq? *closure-representation* 'immediate-flat) (eq? *closure-representation* 'immediate-display)) (can-be? (lambda (u) (and (native-procedure-type? u) (not (fictitious? u)))) w))) (not (can-be? (lambda (u) (and (structure-type? u) (structure-type-immediate? u))) w)) (not (can-be? (lambda (u) (and (nonheaded-vector-type? u) (not (degenerate-vector-type? u)))) w)) (not (can-be? (lambda (u) (and (displaced-vector-type? u) (not (degenerate-vector-type? u)))) w)) (> (count-if-not (lambda (u) (or (char-type? u) (fictitious? u))) (members w)) (expt 2 (squish-alignment w)))) (notify " insufficient squish tag bits (~s needed ~s available)" (inexact->exact (ceiling (/ (log (count-if-not (lambda (u) (or (char-type? u) (fictitious? u))) (members w))) (log 2)))) (squish-alignment w))))) *ws*)) (define (squishable? w) (for-each-member (lambda (u) (cond ((null-type? u) (set! *tag-size?* #t)) ((true-type? u) (set! *tag-size?* #t)) ((false-type? u) (set! *tag-size?* #t)) ((char-type? u) (set! *char-size?* #t)) ((fixnum-type? u) (set! *fixnum-size?* #t)) ((flonum-type? u) #f) ((rectangular-type? u) #f) ((input-port-type? u) (include! "stdio") ;FILE (set! *file*-size?* #t)) ((output-port-type? u) (include! "stdio") ;FILE (set! *file*-size?* #t)) ((eof-object-type? u) (set! *tag-size?* #t)) ((pointer-type? u) (set! *void*-size?* #t)) ((internal-symbol-type? u) (set! *tag-size?* #t)) ((external-symbol-type? u) (set! *char*-size?* #t)) ((primitive-procedure-type? u) (set! *tag-size?* #t)) ((native-procedure-type? u) (if (fictitious? u) (set! *tag-size?* #t) (set-native-procedure-type-size?! u #t))) ((foreign-procedure-type? u) (set! *tag-size?* #t)) ((continuation-type? u) (cond ((fictitious? u) (set! *tag-size?* #t)) (else (include! "setjmp") ;jmp_buf (set! *jmpbuf*-size?* #t)))) ((string-type? u) (set! *char*-size?* #t)) ((structure-type? u) (cond ((fictitious? u) (set! *tag-size?* #t)) (else (unless (structure-type-immediate? u) (set-structure-type-size?! u #t))))) ((headed-vector-type? u) (if (degenerate-vector-type? u) (set! *length-size?* #t) (set-headed-vector-type-size?! u #t))) ((nonheaded-vector-type? u) (when (degenerate-vector-type? u) (set! *length-size?* #t))) ((displaced-vector-type? u) (when (degenerate-vector-type? u) (set! *length-size?* #t))) (else (fuck-up)))) w) (set! *squished-size?* #t) (type-set-squishable? w)) (define (squished? w) (and (not (zero? *squished-size*)) (not (fictitious? w)) (not (monomorphic? w)) (not (tag-only? w)) (not (squeezed? w)) (squishable? w))) (define (general? w) (and (not (fictitious? w)) (not (monomorphic? w)) (not (tag-only? w)) (not (squeezed? w)) (not (squished? w)))) (define (determine-alignments!) (set! *worst-alignment* ;; note: See the note in TYPE-ALIGNMENT. (reduce max (map squish-alignment (remove-if-not squished? *ws*)) 0)) (set! *allocation-alignment* ;; note: See the note in TYPE-ALIGNMENT. (max ;; note: See the note in TYPE-ALIGNMENT. ;; At this point we no longer know which strings are non-reclaimable. (reduce max (map type-alignment& *string-types*) 0) (reduce ;; note: See the note in TYPE-ALIGNMENT. max (map type-alignment& (remove-if fictitious? (remove-if structure-type-immediate? *structure-types*))) 0) (reduce ;; note: See the note in TYPE-ALIGNMENT. max (map type-alignment& (remove-if degenerate-vector-type? *headed-vector-types*)) 0)))) (define (type-alignment u) (cond ((fixnum-type? u) (set! *fixnum-alignment?* #t) *fixnum-alignment*) ((flonum-type? u) (set! *flonum-alignment?* #t) *flonum-alignment*) ((rectangular-type? u) (set! *rectangular-alignment?* #t) ;; needs work: See the needs work below. ;; note: See the note below. *flonum-alignment*) ((input-port-type? u) (set! *file*-alignment?* #t) *pointer-alignment*) ((output-port-type? u) (set! *file*-alignment?* #t) *pointer-alignment*) ((pointer-type? u) (set! *void*-alignment?* #t) *pointer-alignment*) ((external-symbol-type? u) (set! *char*-alignment?* #t) *pointer-alignment*) ((native-procedure-type? u) (when (fictitious? u) (fuck-up)) (set-native-procedure-type-alignment?! u #t) ;; needs work: See the needs work below. ;; note: See the note below. *pointer-alignment*) ((continuation-type? u) (when (fictitious? u) (fuck-up)) (set! *jmpbuf*-alignment?* #t) *pointer-alignment*) ((string-type? u) (set! *char*-alignment?* #t) *pointer-alignment*) ((structure-type? u) (when (fictitious? u) (fuck-up)) (set-structure-type-alignment?! u #t) (if (structure-type-immediate? u) ;; needs work: I'm not sure but it may be the case that ;; struct {tau s0;} has different alignment and size ;; than tau. It also may be the case that something like ;; struct {char s0; char s1;} has different alignment ;; than char and different size than twice char. ;; note: (= (LG (LCM (EXPT 2 X) (EXPT 2 Y))) (MAX X Y)) (reduce max (map type-set-alignment (remove-if fictitious? (structure-type-slots u))) ;; This can't happen if the structure type is not fictitious. #f) *pointer-alignment*)) ((headed-vector-type? u) (cond ((degenerate-vector-type? u) (set! *length-alignment?* #t) *length-alignment*) (else (set-headed-vector-type-alignment?! u #t) *pointer-alignment*))) ((nonheaded-vector-type? u) (cond ((degenerate-vector-type? u) (set! *length-alignment?* #t) *length-alignment*) (else (set-nonheaded-vector-type-alignment?! u #t) ;; note: See the note above. (max *length-alignment* *pointer-alignment*)))) ((displaced-vector-type? u) (cond ((degenerate-vector-type? u) (set! *length-alignment?* #t) *length-alignment*) (else (set-displaced-vector-type-alignment?! u #t) ;; note: See the note above. (max *length-alignment* *pointer-alignment*)))) (else (case *closure-conversion-method* ((baseline conventional) (set! *fixnum-alignment?* #t) *fixnum-alignment*) ((lightweight) (fuck-up)) (else (fuck-up)))))) (define (type-set-alignment w) (cond ((fictitious? w) (fuck-up)) ((monomorphic? w) (cond ((char-type? (the-member w)) (set! *char-alignment?* #t) *char-alignment*) (else (type-alignment (the-member w))))) ((tag-only? w) (set! *tag-alignment?* #t) *tag-alignment*) ((squeezed? w) (type-alignment (squeezed-member w))) ((squished? w) (set! *squished-alignment?* #t) *squished-alignment*) (else (set-type-set-alignment?! w #t) (set! *tag-alignment?* #t) ;; needs work: See the needs work in TYPE-ALIGNMENT. ;; note: See the note in TYPE-ALIGNMENT. (max *tag-alignment* (reduce max (map type-alignment (members-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) w)) ;; This can't happen if the type set isn't fictitious, ;; monomorphic, or tag only. #f))))) (define (align s a) ;; conventions: S A ;; This adds the appropriate padding to S so that it can be followed by an ;; object with alignment A. (* (+ (quotient s (expt 2 a)) (if (zero? (remainder s (expt 2 a))) 0 1)) (expt 2 a))) (define (type-size u) (cond ((fixnum-type? u) (set! *fixnum-size?* #t) *fixnum-size*) ((flonum-type? u) (set! *flonum-size?* #t) *flonum-size*) ((rectangular-type? u) (set! *rectangular-size?* #t) ;; needs work: See the needs work in TYPE-ALIGNMENT. (align (+ (align *flonum-size* *flonum-alignment*) *flonum-size*) (type-alignment u))) ((input-port-type? u) (set! *file*-size?* #t) *pointer-size*) ((output-port-type? u) (set! *file*-size?* #t) *pointer-size*) ((pointer-type? u) (set! *void*-size?* #t) *pointer-size*) ((external-symbol-type? u) (set! *char*-size?* #t) *pointer-size*) ((native-procedure-type? u) (when (fictitious? u) (fuck-up)) (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((immediate-display) (set-native-procedure-type-size?! u #t) (let loop ((s 0) (n (length (ancestors u)))) ;; conventions: S N (if (zero? n) (align s (type-alignment u)) (loop (+ (align s *pointer-alignment*) *pointer-size*) (- n 1))))) ((indirect-flat indirect-display linked) (set-native-procedure-type-size?! u #t) *pointer-size*) (else (fuck-up)))) ((continuation-type? u) (when (fictitious? u) (fuck-up)) (set! *jmpbuf*-size?* #t) *pointer-size*) ((string-type? u) (set! *char*-size?* #t) *pointer-size*) ((structure-type? u) (set-structure-type-size?! u #t) (if (structure-type-immediate? u) (let loop ((s 0) (ws (structure-type-slots u))) ;; conventions: S (if (null? ws) (align s (type-alignment u)) (loop (if (fictitious? (first ws)) s (+ (align s (type-set-alignment (first ws))) (type-set-size (first ws)))) (rest ws)))) *pointer-size*)) ((headed-vector-type? u) (cond ((degenerate-vector-type? u) (set! *length-size?* #t) *length-size*) (else (set-headed-vector-type-size?! u #t) *pointer-size*))) ((nonheaded-vector-type? u) (cond ((degenerate-vector-type? u) (set! *length-size?* #t) *length-size*) (else (set-nonheaded-vector-type-size?! u #t) (align (+ (align *length-size* *pointer-alignment*) *pointer-size*) (type-alignment u))))) ((displaced-vector-type? u) (cond ((degenerate-vector-type? u) (set! *length-size?* #t) *length-size*) (else (set-displaced-vector-type-size?! u #t) (align (+ (align *length-size* *pointer-alignment*) *pointer-size*) (type-alignment u))))) (else (fuck-up)))) (define (type-set-size w) (cond ((fictitious? w) (fuck-up)) ((monomorphic? w) (cond ((char-type? (the-member w)) (set! *char-size?* #t) *char-size*) (else (type-size (the-member w))))) ((tag-only? w) (set! *tag-size?* #t) *tag-size*) ((squeezed? w) (type-size (squeezed-member w))) ((squished? w) (set! *squished-size?* #t) *squished-size*) (else (set! *tag-size?* #t) (set-type-set-size?! w #t) (align (+ (align *tag-size* ;; needs work: I'm not sure but it may be the case that ;; union {tau s0;} has different alignment and size ;; than tau. It also may be the case that something ;; like union {char s0; short s1;} has different ;; alignment than char or short and different size ;; than char max short. ;; note: See the note in TYPE-ALIGNMENT. (reduce max (map type-alignment (members-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) w)) ;; This can't happen if the type set isn't fictitious, ;; monomorphic, or tag only. #f)) (reduce max (map type-size (members-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) w)) ;; This can't happen if the type set isn't fictitious, ;; monomorphic, or tag only. #f)) (type-set-alignment w))))) (define (determine-which-types-are-atomic!) ;; A type is atomic if it cannot contain pointers that point directly or ;; indirectly to heap-allocated data. A heap-allocated type can be atomic. ;; needs work: There is a potential optimization here. One can treat pointers ;; to stack-allocated objects as atomic because the stack is scavanged. And ;; one can treat pointers to objects allocated on nonatomic regions as atomic ;; because regions allocated with GC_malloc_uncollectable are also scavanged. (for-each (lambda (u) (set-native-procedure-type-atomic?! u #t)) *native-procedure-types*) (for-each (lambda (u) (set-structure-type-atomic?! u #t)) *structure-types*) (for-each (lambda (u) (set-headed-vector-type-atomic?! u #t)) *headed-vector-types*) (for-each (lambda (u) (set-nonheaded-vector-type-atomic?! u #t)) *nonheaded-vector-types*) (let loop () (let ((again? #f)) (for-each (lambda (u) (when (type-atomic? u) (unless (or (fictitious? u) (every (lambda (y-e) (let ((e (cdr y-e))) (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented #f "Indirect flat closures are not (yet) implemented")) ((immediate-display) (every (lambda (e) (and (not (heap-allocation? (allocation e))) (environment-atomic? e))) (ancestors e))) ((indirect-display) (unimplemented #f "Indirect display closures are not (yet) implemented")) ((linked) (or (not (has-parent-parameter? e)) (and (not (heap-allocation? (allocation (parent-parameter e)))) (environment-atomic? (parent-parameter e))))) (else (fuck-up))))) (native-procedure-type-call-site-environment-alist u))) (set-native-procedure-type-atomic?! u #f) (set! again? #t)))) *native-procedure-types*) (for-each (lambda (u) (when (type-atomic? u) (unless (if (structure-type-immediate? u) (every (lambda (w) (must-be? type-atomic? w)) (structure-type-slots u)) (every (lambda (w) (must-be? (lambda (u) (and (never-allocated-on-the-heap? u) (type-atomic? u))) w)) (structure-type-slots u))) (set-structure-type-atomic?! u #f) (set! again? #t)))) *structure-types*) (for-each (lambda (u) (when (type-atomic? u) (unless (or (degenerate-vector-type? u) (must-be? (lambda (u) (and (never-allocated-on-the-heap? u) (type-atomic? u))) (headed-vector-type-element u))) (set-headed-vector-type-atomic?! u #f) (set! again? #t)))) *headed-vector-types*) (for-each (lambda (u) (when (type-atomic? u) (unless (or (degenerate-vector-type? u) (must-be? (lambda (u) (and (never-allocated-on-the-heap? u) (type-atomic? u))) (nonheaded-vector-type-element u))) (set-nonheaded-vector-type-atomic?! u #f) (set! again? #t)))) *nonheaded-vector-types*) (when again? (loop))))) (define (environment-atomic? e) (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented #f "Indirect flat closures are not (yet) implemented")) ((immediate-display indirect-display) ;; With display closures, closures don't have parent slots. The closure is ;; atomic if none of its slots point to heap-allocated data. (every (lambda (g) (or (not (slotted? g)) (must-be? (lambda (u) (and (never-allocated-on-the-heap? u) (type-atomic? u))) (variable-type-set g)))) (variables e))) ((linked) ;; With linked closures, closures do have parent slots. The closure is ;; atomic if none of its slots, including its parent slot, if it has one, ;; point to heap-allocated data. (let loop ((e e)) (and (every (lambda (g) (or (not (slotted? g)) (must-be? (lambda (u) (and (never-allocated-on-the-heap? u) (type-atomic? u))) (variable-type-set g)))) (variables e)) (or (not (has-parent-slot? e)) (and (not (heap-allocation? (allocation (parent-slot e)))) (loop (parent-slot e))))))) (else (fuck-up)))) (define (type-atomic? u) (cond ((null-type? u) #t) ((true-type? u) #t) ((false-type? u) #t) ((char-type? u) #t) ((fixnum-type? u) #t) ((flonum-type? u) #t) ((rectangular-type? u) #t) ((input-port-type? u) #t) ((output-port-type? u) #t) ((eof-object-type? u) #t) ((pointer-type? u) #t) ((internal-symbol-type? u) #t) ((external-symbol-type? u) (type-atomic? (external-symbol-type-displaced-string-type u))) ((primitive-procedure-type? u) #t) ((native-procedure-type? u) (native-procedure-type-atomic? u)) ((foreign-procedure-type? u) #t) ((continuation-type? u) #t) ((string-type? u) #t) ((structure-type? u) (structure-type-atomic? u)) ((headed-vector-type? u) (headed-vector-type-atomic? u)) ((nonheaded-vector-type? u) (nonheaded-vector-type-atomic? u)) ((displaced-vector-type? u) (type-atomic? (displaced-vector-type-displaced-vector-type u))) (else (fuck-up)))) ;;; Stalin-specific C constructors (define (c:a g) (if (or (assigned? g) (has-self-tail-call? (variable-environment g))) (c:protect (list "a" (number->string (variable-index g)))) (list "a" (number->string (variable-index g))))) (define (c:b g) (list "b" (number->string (variable-index g)))) (define (c:c) (set! *c:c?* #t) "c") (define (c:d e) (list "d" (number->string (environment-index e)))) (define (c:e e) (list "e" (number->string (environment-index e)))) (define (c:f e) (list "f" (number->string (environment-index e)))) (define (c:h e) (list "h" (number->string (environment-index e)))) (define (c:i c) (c:. c "i")) (define (c:j x) (list "j" (number->string (expression-index x)))) (define (c:l i) (list "l" (number->string i))) (define (c:p u/e) ;; note: This must use the narrow notion of clone because different wide ;; clones can have different parent parameters. (cond ((native-procedure-type? u/e) (c:p (narrow-prototype u/e))) ((environment? u/e) (list "p" (number->string (environment-index u/e)))) (else (fuck-up)))) (define (c:q i) (list "q" (number->string i))) (define (c:r c/e) (if (environment? c/e) (list "r" (number->string (environment-index c/e))) (c:. c/e "r"))) (define (c:s i) (list "s" (number->string i))) (define (c:t i) (list "t" (number->string i))) (define (c:u u) (cond ((null-type? u) (fuck-up)) ((true-type? u) (fuck-up)) ((false-type? u) (fuck-up)) ((char-type? u) (fuck-up)) ((fixnum-type? u) "fixnum_type") ((flonum-type? u) "flonum_type") ((rectangular-type? u) "rectangular_type") ((input-port-type? u) "input_port_type") ((output-port-type? u) "output_port_type") ((eof-object-type? u) (fuck-up)) ((pointer-type? u) "pointer_type") ((internal-symbol-type? u) (fuck-up)) ;; note: There should be only one external symbol type since there ;; should be only one string type after ;; APPLY-CLOSED-WORLD-ASSUMPTION!. ((external-symbol-type? u) "external_symbol_type") ((primitive-procedure-type? u) (fuck-up)) ((native-procedure-type? u) (list "native_procedure_type" (number->string (type-index u)))) ((foreign-procedure-type? u) (fuck-up)) ((continuation-type? u) (unless (continuation-type-allocating-expression u) (fuck-up)) (list "continuation_type" (number->string (expression-index (continuation-type-allocating-expression u))))) ;; note: There should be only one string type after ;; APPLY-CLOSED-WORLD-ASSUMPTION!. ((string-type? u) "string_type") ((structure-type? u) (list "structure_type" (number->string (structure-type-index u)))) ((headed-vector-type? u) (list "headed_vector_type" (number->string (headed-vector-type-index u)))) ((nonheaded-vector-type? u) (list "nonheaded_vector_type" (number->string (nonheaded-vector-type-index u)))) ((displaced-vector-type? u) (list "displaced_vector_type" (number->string (displaced-vector-type-index u)))) (else (fuck-up)))) (define (c:v x) (c:protect (list "v" (number->string (expression-index x))))) (define (c:w w) (list "w" (number->string (type-set-index w)))) (define (c:x x) (list "x" (number->string (expression-index x)))) (define (c:mutex x) (list "mutex" (number->string (expression-index x)))) (define (c:error c) (list c "_error")) (define (c:fp e) (c:protect (list "fp" (number->string (environment-index e))))) (define (c:sfp e) (list "sfp" (number->string (environment-index e)))) (define (c:data) "data") (define (c:region . es) (when (> (length es) 1) (fuck-up)) (if (null? es) "region" (list "region" (number->string (environment-index (first es)))))) (define (c:region-size . es) (when (> (length es) 1) (fuck-up)) (if (null? es) "region_size" (list "region_size" (number->string (environment-index (first es)))))) (define (c:initial-region e) (list "initial_region" (number->string (environment-index e)))) (define (c:big-region-size e) (list "REGION_SIZE" (number->string (environment-index e)))) (define (c:stdin) (include! "stdio") ;stdin "stdin") (define (c:stdout) (include! "stdio") ;stdout "stdout") (define (c:clocks-per-second) (include! "time") ;CLOCKS_PER_SEC "CLOCKS_PER_SEC") (define (c:rand-max) (include! "stdlib") ;RAND_MAX "RAND_MAX") (define (c:pointer-size) (c:sizeof (space-between "void" "*"))) (define (c:imax c1 c2) (c:call "IMAX" c1 c2)) (define (c:rmax c1 c2) (c:call "RMAX" c1 c2)) (define (c:imin c1 c2) (c:call "IMIN" c1 c2)) (define (c:rmin c1 c2) (c:call "RMIN" c1 c2)) (define (c:pluscc c1 c2) (c:call "PLUSCC" c1 c2)) (define (c:pluscr c1 c2) (c:call "PLUSCR" c1 c2)) (define (c:plusrc c1 c2) (c:call "PLUSRC" c1 c2)) (define (c:negc c) (c:call "NEGC" c)) (define (c:minuscc c1 c2) (c:call "MINUSCC" c1 c2)) (define (c:minuscr c1 c2) (c:call "MINUSCR" c1 c2)) (define (c:minusrc c1 c2) (c:call "MINUSRC" c1 c2)) (define (c:timescc c1 c2) (c:call "TIMESCC" c1 c2)) (define (c:timescr c1 c2) (c:call "TIMESCR" c1 c2)) (define (c:timesrc c1 c2) (c:call "TIMESRC" c1 c2)) (define (c:recipc c) (c:call "RECIPC" c)) (define (c:dividecc c1 c2) (c:call "DIVIDECC" c1 c2)) (define (c:dividecr c1 c2) (c:call "DIVIDECR" c1 c2)) (define (c:dividerc c1 c2) (c:call "DIVIDERC" c1 c2)) (define (c:ipow c1 c2) (set! *c:ipow?* #t) (c:call "ipow" c1 c2)) (define (c:input-waiting c) (set! *c:input-waiting?* #t) (c:protect (c:call "input_waiting" c))) (define (c:panic c) (set! *c:panic?* #t) (c:gosub "stalin_panic" c)) (define (c:backtrace c1 c2 c3) (set! *c:backtrace?* #t) (c:gosub "backtrace" c1 c2 c3)) (define (c:backtrace-internal c) (set! *c:backtrace-internal?* #t) (c:gosub "backtrace_internal" c)) (define (c:align c) (if (positive? *allocation-alignment*) (c:gosub "ALIGN" c) (c:noop))) (define (c:value-offset) "VALUE_OFFSET") (define (c:char-offset) "CHAR_OFFSET") (define (c:type u c) (cond ((char-type? u) (space-between *char* c)) ((fixnum-type? u) (space-between *fixnum* c)) ((flonum-type? u) (space-between *flonum* c)) ((rectangular-type? u) (space-between "struct" "rectangular" c)) ((input-port-type? u) (include! "stdio") ;FILE (space-between *file* (star-before c))) ((output-port-type? u) (include! "stdio") ;FILE (space-between *file* (star-before c))) ((pointer-type? u) (space-between "void" (star-before c))) ((external-symbol-type? u) (space-between *char* (star-before c))) ((native-procedure-type? u) (case *closure-representation* ((immediate-flat immediate-display) (space-between "struct" (c:p u) c)) ((indirect-flat indirect-display) (space-between "struct" (c:p u) (star-before c))) ((linked) (if (and (or (eq? *closure-conversion-method* 'baseline) (eq? *closure-conversion-method* 'conventional)) (or (not (environment? (native-procedure-type-narrow-prototype u))) (not (environment-used? (narrow-prototype u))) (not (environment? (parent-parameter u))) (not (environment-used? (parent-parameter u))))) (space-between (c:/**/ "fake") *fixnum* c) (space-between "struct" (c:p (parent-parameter u)) (star-before c)))) (else (fuck-up)))) ((continuation-type? u) (include! "setjmp") ;jmp_buf (space-between *jmpbuf* (star-before c))) ((string-type? u) (space-between *char* (star-before c))) ((structure-type? u) (if (structure-type-immediate? u) (space-between "struct" (c:u u) c) (space-between "struct" (c:u u) (star-before c)))) ((headed-vector-type? u) (if (degenerate-vector-type? u) (space-between *length* c) (space-between "struct" (c:u u) (star-before c)))) ((nonheaded-vector-type? u) (if (degenerate-vector-type? u) (space-between *length* c) (space-between "struct" (c:u u) c))) ((displaced-vector-type? u) (if (degenerate-vector-type? u) (space-between *length* c) (space-between "struct" (c:u u) c))) (else (case *closure-conversion-method* ((baseline conventional) (space-between (c:/**/ "fake") *fixnum* c)) ((lightweight) (fuck-up)) (else (fuck-up)))))) (define (c:type& u c) (unless (and (structure-type? u) (not (structure-type-immediate? u)) (not (every fictitious? (structure-type-slots u)))) (fuck-up)) (space-between "struct" (c:u u) c)) (define (c:type-set w c) (cond ((fictitious? w) (fuck-up)) ((monomorphic? w) (c:type (the-member w) c)) ((tag-only? w) (space-between *tag* c)) ((squeezed? w) (c:type (squeezed-member w) c)) ((squished? w) (space-between *squished* c)) (else (space-between "struct" (c:w w) c)))) (define (c:type-cast c u) (c:cast (c:type u "") c)) (define (c:type-set-cast c w) (c:cast (c:type-set w "") c)) (define (c:squished-cast c) (set! *squished-size?* #t) (c:cast *squished* c)) (define (c:signed-squished-cast c) (set! *squished-size?* #t) (c:cast *signed-squished* c)) (define (c:tag-cast c) (c:cast *tag* c)) (define (c:tag->squeezed-cast c w1 w2) (set! *tag-size?* #t) (if (= (type-set-size w2) *tag-size*) (c:type-set-cast (c:tag c w1) w2) ;; The squished cast is needed because *POINTER-SIZE* is not the same as ;; *TAG-SIZE*. (c:type-set-cast (c:squished-cast (c:tag c w1)) w2))) (define (c:squeezed->tag-cast c w) (set! *tag-size?* #t) (if (= (type-set-size w) *tag-size*) (c:tag-cast c) ;; The squished cast is needed because *POINTER-SIZE* is not the same as ;; *TAG-SIZE*. (c:tag-cast (c:squished-cast c)))) (define (c:forgery-cast c w) (c:* (c:cast (c:type-set w "*") (c:& c)))) (define (c:type-tag u) (cond ((null-type? u) (set! *null-type-use-count* (+ *null-type-use-count* 1)) "NULL_TYPE") ((true-type? u) (set! *true-type-use-count* (+ *true-type-use-count* 1)) "TRUE_TYPE") ((false-type? u) (set! *false-type-use-count* (+ *false-type-use-count* 1)) "FALSE_TYPE") ((char-type? u) (fuck-up)) ((fixnum-type? u) (set! *fixnum-type-use-count* (+ *fixnum-type-use-count* 1)) "FIXNUM_TYPE") ((flonum-type? u) (set! *flonum-type-use-count* (+ *flonum-type-use-count* 1)) "FLONUM_TYPE") ((rectangular-type? u) (set! *rectangular-type-use-count* (+ *rectangular-type-use-count* 1)) "RECTANGULAR_TYPE") ((input-port-type? u) (set! *input-port-type-use-count* (+ *input-port-type-use-count* 1)) "INPUT_PORT_TYPE") ((output-port-type? u) (set! *output-port-type-use-count* (+ *output-port-type-use-count* 1)) "OUTPUT_PORT_TYPE") ((eof-object-type? u) (set! *eof-object-type-use-count* (+ *eof-object-type-use-count* 1)) "EOF_OBJECT_TYPE") ((pointer-type? u) (set! *pointer-type-use-count* (+ *pointer-type-use-count* 1)) "POINTER_TYPE") ((internal-symbol-type? u) (set-internal-symbol-type-use-count! u (+ (internal-symbol-type-use-count u) 1)) ;; note: We can't use the symbol name without mangling it. (list "INTERNAL_SYMBOL_TYPE" (number->string (internal-symbol-type-index u)))) ((external-symbol-type? u) (set-external-symbol-type-use-count! u (+ (external-symbol-type-use-count u) 1)) ;; note: There should be only one external symbol type since there ;; should be only one string type after ;; APPLY-CLOSED-WORLD-ASSUMPTION!. "EXTERNAL_SYMBOL_TYPE") ((primitive-procedure-type? u) (set-primitive-procedure-type-use-count! u (+ (primitive-procedure-type-use-count u) 1)) ;; note: We can't use the primitive procedure name (and arguments) ;; without mangling it. (list "PRIMITIVE_PROCEDURE_TYPE" (number->string (primitive-procedure-type-index u)))) ((native-procedure-type? u) (set-native-procedure-type-use-count! u (+ (native-procedure-type-use-count u) 1)) (list "NATIVE_PROCEDURE_TYPE" (number->string (type-index u)))) ((foreign-procedure-type? u) (set-foreign-procedure-type-use-count! u (+ (foreign-procedure-type-use-count u) 1)) (list "FOREIGN_PROCEDURE_" (foreign-procedure-type-name u) "_TYPE")) ((continuation-type? u) (set-continuation-type-use-count! u (+ (continuation-type-use-count u) 1)) (if (continuation-type-allocating-expression u) (list "CONTINUATION_TYPE" (number->string (expression-index (continuation-type-allocating-expression u)))) "TOP_LEVEL_CONTINUATION_TYPE")) ((string-type? u) (set-string-type-use-count! u (+ (string-type-use-count u) 1)) ;; note: There should be only one string type after ;; APPLY-CLOSED-WORLD-ASSUMPTION!. "STRING_TYPE") ((structure-type? u) (set-structure-type-use-count! u (+ (structure-type-use-count u) 1)) (list "STRUCTURE_TYPE" (number->string (structure-type-index u)))) ((headed-vector-type? u) (set-headed-vector-type-use-count! u (+ (headed-vector-type-use-count u) 1)) (list "HEADED_VECTOR_TYPE" (number->string (headed-vector-type-index u)))) ((nonheaded-vector-type? u) (set-nonheaded-vector-type-use-count! u (+ (nonheaded-vector-type-use-count u) 1)) (list "NONHEADED_VECTOR_TYPE" (number->string (nonheaded-vector-type-index u)))) ((displaced-vector-type? u) (set-displaced-vector-type-use-count! u (+ (displaced-vector-type-use-count u) 1)) (list "DISPLACED_VECTOR_TYPE" (number->string (displaced-vector-type-index u)))) (else (fuck-up)))) (define (c:tag c w) (cond ((fictitious? w) (fuck-up)) ((monomorphic? w) (fuck-up)) ((tag-only? w) c) ((squeezed? w) (fuck-up)) ((squished? w) (fuck-up)) (else (c:. c "tag")))) (define (c:value c u w) (unless (and (member? u w) (or (eq? *closure-conversion-method* 'baseline) (eq? *closure-conversion-method* 'conventional) (not (fictitious? u)))) (fuck-up)) (cond ((and (or (eq? *closure-conversion-method* 'baseline) (eq? *closure-conversion-method* 'conventional)) (fictitious? u)) "fake") ((fictitious? w) (fuck-up)) ((monomorphic? w) c) ((tag-only? w) ;; note: Converting from tag-only to character used to be free but now ;; requires a right shift when there is some squishing. This is the ;; price to pay for universal type tags. (unless (char-type? u) (fuck-up)) ;; This assumes that *TAG* is unsigned so that >> does a logical shift. ;; This also assumes that casting a *TAG* to a *CHAR* does not modify the ;; bit pattern except for truncation. (c:type-cast (c:>> (c:tag c w) (c:fixnum *worst-alignment*)) u)) ((squeezed? w) ;; note: Unsqueezing characters used to be free but now requires a right ;; shift when there is some squishing. This is the price to pay for ;; universal type tags. (if (char-type? u) ;; The C:SQUISHED-CAST is needed to convert the pointer to an integer. ;; This assumes that *SQUISHED* is unsigned so that >> does a logical ;; shift. This also assumes that casting a *SQUISHED* to a *CHAR* does ;; not modify the bit pattern except for truncation. (c:type-cast (c:>> (c:squished-cast c) (c:fixnum *worst-alignment*)) u) c)) ((squished? w) (cond ;; This assumes that *SQUISHED* is unsigned so that >> does a logical ;; shift. This also assumes that casting a *SQUISHED* to a *CHAR* does ;; not modify the bit pattern except for truncation. ((char-type? u) (c:type-cast (c:>> c (c:fixnum *worst-alignment*)) u)) ((fixnum-type? u) ;; This assumes that *SQUISHED* is unsigned and *FIXNUM* is signed so ;; that C:SIGNED-SQUISHED-CAST is needed to cause >> to do an arithmetic ;; shift to preserve the sign bit. This assumes that *SIGNED-SQUISHED* is ;; signed. This also assumes that casting a *SQUISHED* to a ;; *SIGNED-SQUISHED* does not modify the bit pattern. The final cast from ;; *SIGNED-SQUISHED* to *FIXNUM* may change the size and thus may require ;; sign extension. (c:type-cast (c:>> (c:signed-squished-cast c) (c:fixnum (squish-alignment w))) u)) ((degenerate-vector-type? u) ;; This assumes that both *SQUISHED* and *LENGTH* are unsigned so that >> ;; does a logical shift. The final cast from *SQUISHED* to *LENGTH* may ;; change the size but should not modify the bit pattern. (c:type-cast (c:>> c (c:fixnum (squish-alignment w))) u)) (else (c:type-cast (strip-known-squish-tag c u w) u)))) (else ;; note: Converting from general to character used to be free but now ;; requires a right shift when there is some squishing. This is the ;; price to pay for universal type tags. (if (char-type? u) ;; This assumes that *TAG* is unsigned so that >> does a logical shift. ;; If *CHAR* is signed then this also assumes that casting an unsigned ;; expression to a signed char does not modify the bit pattern except ;; for truncation. (c:type-cast (c:>> (c:tag c w) (c:fixnum *worst-alignment*)) u) (if (has-union? w) (c:. (c:. c "value") (c:u u)) (c:. c "value")))))) (define (c:foreign-type f c) (case f ((char) (space-between "char" c)) ((signed-char) (space-between "signed" "char" c)) ((unsigned-char) (space-between "unsigned" "char" c)) ((short) (space-between "short" c)) ((unsigned-short) (space-between "unsigned" "short" c)) ((int) (space-between "int" c)) ((unsigned) (space-between "unsigned" c)) ((long) (space-between "long" c)) ((unsigned-long) (space-between "unsigned" "long" c)) ((float) (space-between "float" c)) ((double) (space-between "double" c)) ((long-double) (space-between "long" "double" c)) ((char*) (space-between "char" (star-before c))) ((file* input-port output-port) (include! "stdio") ;FILE (space-between *file* (star-before c))) ((void*) (space-between "void" (star-before c))) ((void) (space-between "void" c)) ((no-return) (space-between "void" c)) (else (fuck-up)))) ;;; End of C constructors (define (squeeze c u w) (unless (and (member? u w) (squeezed? w)) (fuck-up)) (cond ((char-type? u) ;; note: Squeezing characters used to be free but now requires a left shift ;; when there is some squishing. This is the price to pay for ;; universal type tags. ;; This assumes that *SQUISHED* is unsigned so that << does a logical ;; shift. The call to C:UNSIGNED-CHAR-CAST is in case *CHAR* is signed to ;; force << to be a logical shift without a prior sign extend. The call to ;; C:SQUISHED-CAST is to prevent any overflow in the logical shift. (c:type-set-cast (c:<< (c:squished-cast (c:unsigned-char-cast c)) (c:fixnum *worst-alignment*)) w)) ((fictitious? u) (c:type-set-cast (c:type-tag u) w)) (else c))) (define (squeeze-tag-test c u w) (unless (and (member? u w) (squeezed? w)) (fuck-up)) (cond ((char-type? u) (c:< c (c:type-set-cast (c:char-offset) w))) ((fictitious? u) (c:== c (c:type-set-cast (c:type-tag u) w))) (else (c:>= c (c:type-set-cast (c:value-offset) w))))) (define (assign-global-squish-tags!) ;; This is a special case for when the type set members are sorted. (define (unionq us1 us2) (cond ((null? us1) us2) ((null? us2) us1) ((eq? (first us1) (first us2)) (cons (first us1) (unionq (rest us1) (rest us2)))) ((< (type-index (first us1)) (type-index (first us2))) (cons (first us1) (unionq (rest us1) us2))) (else (cons (first us2) (unionq us1 (rest us2)))))) (set! *uss* (let ((uss (let ((ws (remove-if-not squished? *ws*))) (equivalence-classesp (lambda (u1 u2) (some (lambda (w) (and (member? u1 w) (member? u2 w))) ws)) (remove-if (lambda (u) (or (char-type? u) (fictitious? u))) (reduce unionq (map members ws) '())))))) (map (lambda (us) (if (every (lambda (u) (or (fixnum-type? u) ;; needs work: Can be extended to allow squishing a ;; singleton immediate structure if its ;; slot is squished. (degenerate-vector-type? u))) us) ;; In this case, there are no pointer members to get squish tag ;; zero. (cons 'foo us) ;; This guarantees that a pointer member is assigned squish tag ;; zero. (sort us (lambda (u1 u2) ;; needs work: Can be extended to allow squishing a ;; singleton immediate structure if its slot ;; is squished. (or (fixnum-type? u2) (degenerate-vector-type? u2))) identity))) uss)))) (define (squish-tag u w) (unless (and (member? u w) (squished? w)) (fuck-up)) ;; note: This is complicated by the need to guarantee that fixnums and ;; degenerate vectors aren't assigned squish tag zero since they ;; aren't sparse. ;; needs work: Actually, can assign squish tag zero to a fixnum or degenerate ;; vector when the type set has no members that are fictitious. ;; Would also need to modify SQUISH-ALIGNMENT and ;; ASSIGN-GLOBAL-SQUISH-TAGS! as well. ;; note: Since squish tag zero is more costly to test than other squish ;; tags one might try to assign it only when necessary. But on the ;; other hand squish tag zero is less costly to squish so it is not ;; clear whether this would be a useful optimization. (let ((us (find-if (lambda (us) (memq u us)) *uss*))) (cond ((char-type? u) 0) ((fictitious? u) 0) ((<= (length us) (expt 2 (squish-alignment w))) (positionq u us)) ((can-be? pointer-member? w) ;; This guarantees that a pointer member is assigned squish tag zero. (positionq u (sort (members-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) w) (lambda (u1 u2) ;; needs work: Can be extended to allow squishing a singleton ;; immediate structure if its slot is squished. (or (fixnum-type? u2) (degenerate-vector-type? u2))) identity))) (else ;; In this case, there are no pointer members to get squish tag zero. (+ (positionq u (members-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) w)) 1))))) (define (squish c u w) (unless (and (member? u w) (squished? w)) (fuck-up)) (cond ;; This assumes that *SQUISHED* is unsigned so that << does a logical shift. ;; The call to C:UNSIGNED-CHAR-CAST is in case *CHAR* is signed to force << ;; to be a logical shift without a prior sign extend. The call to ;; C:TYPE-SET-CAST is to prevent any overflow in the logical shift. ((char-type? u) (c:<< (c:type-set-cast (c:unsigned-char-cast c) w) (c:fixnum *worst-alignment*))) ((fictitious? u) (c:type-tag u)) (else (c:+ (cond ((or (fixnum-type? u) (degenerate-vector-type? u)) (when *overflow-checks?* (unimplemented #f "Safe exact arithmetic is not (yet) implemented")) (c:<< (c:type-set-cast c w) (c:fixnum (squish-alignment w)))) (else (c:type-set-cast c w))) (c:fixnum (squish-tag u w)))))) (define (strip-squish-tag c w) (c:& c (c:~ (c:fixnum (- (expt 2 (squish-alignment w)) 1))))) (define (strip-known-squish-tag c u w) (c:- c (c:fixnum (squish-tag u w)))) (define (extract-squish-tag c w) (c:& c (c:fixnum (- (expt 2 (squish-alignment w)) 1)))) (define (squish-tag-test c u w) (unless (and (member? u w) (squished? w)) (fuck-up)) (cond ((char-type? u) (c:< c (c:char-offset))) ((fictitious? u) (c:== c (c:type-tag u))) ((and (zero? (squish-tag u w)) (can-be? (lambda (u) (or (char-type? u) (fictitious? u))) w)) ;; note: Squish tag zero is more costly to test than other squish tags ;; because of squeezing. (c:&& (c:>= c (c:value-offset)) (c:==0 (extract-squish-tag c w)))) (else (c:== (extract-squish-tag c w) (c:fixnum (squish-tag u w)))))) (define (compile-squeezed-type-if us w c1 c2 c3) (let ((cs2 (map c2 us))) (let loop ((cases (equate-cases (map (lambda (u) (squeeze-tag-test c1 u w)) us) cs2))) ;; conventions: CASES (if (null? cases) (c3 #f) (c:if (apply c:boolean-or (map first (first cases))) (second (first (first cases))) (loop (rest cases)) #f))))) (define (compile-squeezed-defaultless-type-if us w c1 c2) ;; This has the semantics that the behaviour is undefined when C1 takes on ;; a type that is not in US. (let loop ((cases (equate-cases (map (lambda (u) (squeeze-tag-test c1 u w)) us) (map c2 us)))) ;; conventions: CASES (cond ((null? cases) (c:noop)) ((null? (rest cases)) (second (first (first cases)))) (else (c:if (apply c:boolean-or (map first (first cases))) (second (first (first cases))) (loop (rest cases)) #f))))) (define (compile-squeezed-type-switch us w c1 c2 c3 p?) (define (c u) (if (memq u us) (c2 u) (c3 #f))) (if (and (not (some fictitious? us)) (can-be? fictitious? w)) (if (some char-type? us) (if (memq (squeezed-member w) us) (c:if (c:< c1 (c:type-set-cast (c:char-offset) w)) (c2 (the-member-that char-type? w)) (c:if (c:>= c1 (c:type-set-cast (c:value-offset) w)) (c2 (squeezed-member w)) (c3 #f) #f) #f) (c:if (c:< c1 (c:type-set-cast (c:char-offset) w)) (c2 (the-member-that char-type? w)) (c3 #f) #f)) (if (memq (squeezed-member w) us) (c:if (c:>= c1 (c:type-set-cast (c:value-offset) w)) (c2 (squeezed-member w)) (c3 #f) #f) (c3 #f))) (let ((us (members-that fictitious? w))) (c:switch (c:squeezed->tag-cast c1 w) (map c:type-tag us) (map c us) (if (can-be? char-type? w) (c:if (c:< c1 (c:type-set-cast (c:char-offset) w)) (c (the-member-that char-type? w)) (c (squeezed-member w)) #f) (c (squeezed-member w))) p?)))) (define (compile-squeezed-defaultless-type-switch us w c1 c2 p?) ;; This has the semantics that the behaviour is undefined when C1 takes on ;; a type that is not in US. (let ((us1 (remove-if-not fictitious? us))) (if (or (some char-type? us) (memq (squeezed-member w) us)) (c:switch (c:squeezed->tag-cast c1 w) (map c:type-tag us1) (map c2 us1) (if (some char-type? us) (if (memq (squeezed-member w) us) (c:if (c:< c1 (c:type-set-cast (c:char-offset) w)) (c2 (the-member-that char-type? w)) (c2 (squeezed-member w)) #f) (c2 (the-member-that char-type? w))) (c2 (squeezed-member w))) p?) (c:defaultless-switch (c:squeezed->tag-cast c1 w) (map c:type-tag us1) (map c2 us1) p?)))) (define (compile-squished-type-if us w c1 c2 c3) (let ((cs2 (map c2 us))) (let loop ((cases (equate-cases (map (lambda (u) (squish-tag-test c1 u w)) us) cs2))) ;; conventions: CASES (if (null? cases) (c3 #f) (c:if (apply c:boolean-or (map first (first cases))) (second (first (first cases))) (loop (rest cases)) #f))))) (define (compile-squished-defaultless-type-if us w c1 c2) ;; This has the semantics that the behaviour is undefined when C1 takes on ;; a type that is not in US. (let loop ((cases (equate-cases (map (lambda (u) (squish-tag-test c1 u w)) us) (map c2 us)))) ;; conventions: CASES (cond ((null? cases) (c:noop)) ((null? (rest cases)) (second (first (first cases)))) (else (c:if (apply c:boolean-or (map first (first cases))) (second (first (first cases))) (loop (rest cases)) #f))))) (define (compile-squished-type-switch us w c1 c2 c3 p?) ;; We dispatch on C1 of type W. If the type U of C1 is in US we generate ;; code by calling (C2 U). Otherwise we generate it with (C3 #f) because the ;; error might occur. ;; In our case W should be (union fixnum char) and US should be {char}. ;; Neither fixnum nor char are fictitious. ;; If W can be both a character and a nonfictitous noncharacter, then US2 is ;; is the set of all nonfictitous noncharacter types in W. Otherwise US2 is ;; the set of all nonfictitious types in W. I think that this means that US2 ;; is the set of all nonfictitous noncharacter types in W except when W has ;; char but no other nonfictitious types in which case it is just char. ;; In our case US2 should be {FIXNUM} and US1 should be empty. (define (c u) (if (memq u us) (c2 u) (c3 #f))) (if (and (not (some fictitious? us)) (can-be? fictitious? w)) ;; This case is taken when some fictitious types take the C3 branch. (let ((us2 (if (can-be? (lambda (u) (and (pointer-member? u) (zero? (squish-tag u w)))) w) (members-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) w) (members-that (lambda (u) (not (fictitious? u))) w)))) ;; This holds when W contains a fictitious type or a nonfictitious type ;; with the same squish tag. (if (can-be? (lambda (u) (or (fictitious? u) (some (lambda (u1) (and (not (fictitious? u1)) (= (squish-tag u w) (squish-tag u1 w)))) us))) w) (c:switch (extract-squish-tag c1 w) (map (lambda (u) (c:fixnum (squish-tag u w))) us2) (map (lambda (u) (if (zero? (squish-tag u w)) (if (and (can-be? char-type? w) (not (char-type? u))) (c:if (c:< c1 (c:type-set-cast (c:char-offset) w)) (c (the-member-that char-type? w)) (c:if (c:>= c1 (c:type-set-cast (c:value-offset) w)) (c u) (c3 #f) #f) #f) (c:if (c:>= c1 (c:type-set-cast (c:value-offset) w)) (c u) (c3 #f) #f)) (c u))) us2) (c3 #f) p?) (c:defaultless-switch (extract-squish-tag c1 w) (map (lambda (u) (c:fixnum (squish-tag u w))) us2) (map (lambda (u) (if (zero? (squish-tag u w)) (if (and (can-be? char-type? w) (not (char-type? u))) (c:if (c:< c1 (c:type-set-cast (c:char-offset) w)) (c (the-member-that char-type? w)) (c:if (c:>= c1 (c:type-set-cast (c:value-offset) w)) (c u) (c3 #f) #f) #f) (c:if (c:>= c1 (c:type-set-cast (c:value-offset) w)) (c u) (c3 #f) #f)) (c u))) us2) p?))) (let ((us1 (members-that fictitious? w)) ;; Exclude char if it can have a pointer member. (us2 (if (can-be? (lambda (u) (and (pointer-member? u) (zero? (squish-tag u w)))) w) (members-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) w) (members-that (lambda (u) (not (fictitious? u))) w)))) (c:switch c1 (map c:type-tag us1) (map c us1) ;; This test is used only to decide if there needs to be a default in ;; the switch for C3. It appears to be bogus. (if (can-be? (lambda (u) (or (fictitious? u) (some (lambda (u1) (and (not (fictitious? u1)) (= (squish-tag u w) (squish-tag u1 w)))) us))) w) (c:switch (extract-squish-tag c1 w) (map (lambda (u) (c:fixnum (squish-tag u w))) us2) (map (lambda (u) (if (and (zero? (squish-tag u w)) (can-be? char-type? w) (not (char-type? u))) (c:if (c:< c1 (c:type-set-cast (c:char-offset) w)) (c (the-member-that char-type? w)) (c u) #f) (c u))) us2) (c3 #f) p?) (c:defaultless-switch (extract-squish-tag c1 w) (map (lambda (u) (c:fixnum (squish-tag u w))) us2) (map (lambda (u) (if (and (zero? (squish-tag u w)) (can-be? char-type? w) (not (char-type? u))) (c:if (c:< c1 (c:type-set-cast (c:char-offset) w)) (c (the-member-that char-type? w)) (c u) #f) (c u))) us2) p?)) p?)))) (define (compile-squished-defaultless-type-switch us w c1 c2 p?) ;; This has the semantics that the behaviour is undefined when C1 takes on ;; a type that is not in US. (if (every fictitious? us) (c:defaultless-switch c1 (map c:type-tag us) (map c2 us) p?) (let ((us1 (remove-if-not fictitious? us)) ;; US1 are all of the fictitious members. US2 are all of the ;; nonfictitious members. US2 only contains char is US contains ;; char and does not contain some other nonfictitous nonchar. (us2 (if (some (lambda (u) (and (pointer-member? u) (zero? (squish-tag u w)))) us) (remove-if (lambda (u) (or (char-type? u) (fictitious? u))) us) (remove-if fictitious? us)))) (c:switch c1 (map c:type-tag us1) (map c2 us1) (c:defaultless-switch (extract-squish-tag c1 w) (map (lambda (u) (c:fixnum (squish-tag u w))) us2) (map (lambda (u) (if (and (zero? (squish-tag u w)) (some char-type? us) (not (char-type? u))) (c:if (c:< c1 (c:type-set-cast (c:char-offset) w)) (c2 (the-member-that char-type? w)) (c2 u) #f) (c2 u))) us2) p?) p?)))) (define (compile-type-switch us w c1 c2 c3 p?) (define (c u) (if (memq u us) (c2 u) (c3 #f))) (if (and (every char-type? us) (can-be-non? char-type? w)) (if (some char-type? us) (c:if (c:< (c:tag c1 w) (c:char-offset)) (c2 (the-member-that char-type? w)) (c3 #f) #f) (c3 #f)) (let ((us (members-that (lambda (u) (not (char-type? u))) w))) (if (can-be? char-type? w) (c:switch (c:tag c1 w) (map c:type-tag us) (map c us) (c (the-member-that char-type? w)) p?) (c:defaultless-switch (c:tag c1 w) (map c:type-tag us) (map c us) p?))))) (define (compile-defaultless-type-switch us w c1 c2 p?) ;; This has the semantics that the behaviour is undefined when C1 takes on ;; a type that is not in US. (if (some char-type? us) (let ((us (remove-if char-type? us))) (c:switch (c:tag c1 w) (map c:type-tag us) (map c2 us) (c2 (the-member-that char-type? w)) p?)) (c:defaultless-switch (c:tag c1 w) (map c:type-tag us) (map c2 us) p?))) (define (break? r) ;; needs work: Should also eliminate the break when the code generated by a ;; particular C2 doesn't return as would be the case if it were a ;; call to a nonconverted continuation. (or (accessor? r) (discard? r) (antecedent? r))) (define (type-switch m w r c1 c2 c3) ;; This dispatches on the type W of C1. All members U of W that satisfy M ;; have code generated by C2 applied to U. Members that don't have code ;; generated by C3. If *TYPE-CHECKS?* is false then code is not generated for ;; members that don't satisfy M. Thus C3 should only generate error code. ;; C3 is called with #T if the error must occur and #F if the error might ;; occur. (cond ((squeezed? w) (if (can-be? m w) (if (and *type-checks?* (can-be-non? m w)) (if *type-if?* (compile-squeezed-type-if (members-that m w) w c1 c2 c3) (compile-squeezed-type-switch (members-that m w) w c1 c2 c3 (break? r))) ;; note: -Ot will also eliminate warnings. (if *type-if?* (compile-squeezed-defaultless-type-if (members-that m w) w c1 c2) (compile-squeezed-defaultless-type-switch (members-that m w) w c1 c2 (break? r)))) (if (can-be-non? m w) (c3 #t) (fuck-up)))) ((squished? w) (if (can-be? m w) (if (and *type-checks?* (can-be-non? m w)) (if *type-if?* (compile-squished-type-if (members-that m w) w c1 c2 c3) (compile-squished-type-switch (members-that m w) w c1 c2 c3 (break? r))) ;; note: -Ot will also eliminate warnings. (if *type-if?* (compile-squished-defaultless-type-if (members-that m w) w c1 c2) (compile-squished-defaultless-type-switch (members-that m w) w c1 c2 (break? r)))) (if (can-be-non? m w) (c3 #t) (fuck-up)))) ;; needs work: There is no COMPILE-TYPE-IF and ;; COMPILE-DEFAULTLESS-TYPE-IF. (else (if (can-be? m w) (if (and *type-checks?* (can-be-non? m w)) (compile-type-switch (members-that m w) w c1 c2 c3 (break? r)) ;; note: -Ot will also eliminate warnings. (if (null? (rest (members-that m w))) (c2 (first (members-that m w))) (compile-defaultless-type-switch (members-that m w) w c1 c2 (break? r)))) (if (can-be-non? m w) (c3 #t) (fuck-up)))))) (define (nonchecking-type-switch m w r c1 c2) ;; This dispatches on the type W of C1. Some member U of W must satisfy M. ;; All members U of W that satisfy M have code generated by C2 applied to U. ;; Code is not generated for members that don't satisfy W. (unless (can-be? m w) (fuck-up)) (cond ((squeezed? w) (if *type-if?* (compile-squeezed-defaultless-type-if (members-that m w) w c1 c2) (compile-squeezed-defaultless-type-switch (members-that m w) w c1 c2 (break? r)))) ((squished? w) (if *type-if?* (compile-squished-defaultless-type-if (members-that m w) w c1 c2) (compile-squished-defaultless-type-switch (members-that m w) w c1 c2 (break? r)))) ;; needs work: There is no COMPILE-DEFAULTLESS-TYPE-IF. (else (compile-defaultless-type-switch (members-that m w) w c1 c2 (break? r))))) (define (nonerror-type-switch m w r c1 c2 c3) ;; This dispatches on the type W of C1. All members U of W that satisfy M ;; have code generated by C2 applied to U. Members that don't have code ;; generated by C3. Code is generated for the members that don't satisfy W ;; irrespective of the setting of *TYPE-CHECKS?*. C3 is called with #T if ;; no member of W satisfies M and #F otherwise. (cond ((squeezed? w) (if (can-be? m w) (if (can-be-non? m w) (if *type-if?* (compile-squeezed-type-if (members-that m w) w c1 c2 c3) (compile-squeezed-type-switch (members-that m w) w c1 c2 c3 (break? r))) (if *type-if?* (compile-squeezed-defaultless-type-if (members-that m w) w c1 c2) (compile-squeezed-defaultless-type-switch (members-that m w) w c1 c2 (break? r)))) (if (can-be-non? m w) (c3 #t) (fuck-up)))) ((squished? w) (if (can-be? m w) (if (can-be-non? m w) (if *type-if?* (compile-squished-type-if (members-that m w) w c1 c2 c3) (compile-squished-type-switch (members-that m w) w c1 c2 c3 (break? r))) (if *type-if?* (compile-squished-defaultless-type-if (members-that m w) w c1 c2) (compile-squished-defaultless-type-switch (members-that m w) w c1 c2 (break? r)))) (if (can-be-non? m w) (c3 #t) (fuck-up)))) ;; needs work: There is no COMPILE-TYPE-IF and ;; COMPILE-DEFAULTLESS-TYPE-IF. (else (if (can-be? m w) (if (can-be-non? m w) (compile-type-switch (members-that m w) w c1 c2 c3 (break? r)) (if (null? (rest (members-that m w))) (c2 (first (members-that m w))) (compile-defaultless-type-switch (members-that m w) w c1 c2 (break? r)))) (if (can-be-non? m w) (c3 #t) (fuck-up)))))) (define (return-true r) (widen r 'void1 true-type?)) (define (return-false r) (widen r 'void2 false-type?)) (define (compile-test r c) (c:if c (return-true r) (return-false r) #t)) (define (compile-time-test r p?) (if p? (return-true r) (return-false r))) (define (compile-predicate m r w c) (nonerror-type-switch m w r c (lambda (u) (return-true r)) (lambda (p?) (return-false r)))) (define (structure-ref-accessor c u i) (unless (and (integer? i) (exact? i) (>= i 0) (< i (length (structure-type-slots u)))) (fuck-up)) (cond ((fictitious? (list-ref (structure-type-slots u) i)) 'void3) ((structure-type-immediate? u) (c:. c (c:s i))) (else (c:-> c (c:s i))))) (define (car-accessor c u) (unless (pair-type? u) (fuck-up)) (structure-ref-accessor c u 0)) (define (cdr-accessor c u) (unless (pair-type? u) (fuck-up)) (structure-ref-accessor c u 1)) (define (string-length-accessor c) (c:strlen c)) (define (string-ref-accessor c1 c2) (c:subscript c1 c2)) (define (vector-length-accessor c u) ;; needs work: To use code-generation abstractions. (if (degenerate-vector-type? u) c (cond ((headed-vector-type? u) (c:-> c "length")) ((nonheaded-vector-type? u) (c:. c "length")) ((displaced-vector-type? u) (c:. c "length")) (else (fuck-up))))) (define (vector-elements-accessor c u) ;; needs work: To use code-generation abstractions. (if (degenerate-vector-type? u) 'void4 (cond ((headed-vector-type? u) (c:-> c "element")) ((nonheaded-vector-type? u) (c:. c "element")) ((displaced-vector-type? u) (c:. c "element")) (else (fuck-up))))) (define (vector-ref-accessor c1 u1 c2) ;; needs work: To use code-generation abstractions. (if (degenerate-vector-type? u1) 'void5 (cond ((headed-vector-type? u1) (c:subscript (c:-> c1 "element") c2)) ((nonheaded-vector-type? u1) (c:subscript (c:. c1 "element") c2)) ((displaced-vector-type? u1) (c:subscript (c:. c1 "element") c2)) (else (fuck-up))))) (define (value-structure-ref c u w i) (if (fictitious? u) 'void6 (structure-ref-accessor (c:value c u w) u i))) (define (value-car c u w) (if (fictitious? u) 'void7 (car-accessor (c:value c u w) u))) (define (value-cdr c u w) (if (fictitious? u) 'void8 (cdr-accessor (c:value c u w) u))) (define (value-string-length c u w) (string-length-accessor (c:value c u w))) (define (value-string-ref c1 u1 w1 c2) (string-ref-accessor (c:value c1 u1 w1) c2)) (define (value-vector-length c u w) (vector-length-accessor (c:value c u w) u)) (define (value-vector-elements c u w) (vector-elements-accessor (c:value c u w) u)) (define (value-vector-ref c1 u1 w1 c2) (vector-ref-accessor (c:value c1 u1 w1) u1 c2)) (define (accessor g e) (cond ((local? g) (c:a g)) ((global? g) (c:a g)) ((hidden? g) (case *closure-representation* ((immediate-flat indirect-flat immediate-display indirect-display) (fuck-up)) ((linked) (let ((e1 (parent-parameter (the-member (variable-type-set g))))) (if (eq? e e1) (c:e e) (let loop ((e (parent-parameter e)) (c (c:p e))) (if (eq? e e1) c (loop (parent-slot e) (c:-> c (c:p (parent-slot e))))))))) (else (fuck-up)))) ((slotted? g) (case *closure-representation* ((immediate-flat) (star-before (if (eq? (variable-environment g) e) (c:. (c:e e) (c:a g)) (c:. (c:p e) (c:a g))))) ((indirect-flat) (star-before (if (eq? (variable-environment g) e) (c:-> (c:e e) (c:a g)) (c:-> (c:p e) (c:a g))))) ((immediate-display) (if (eq? (variable-environment g) e) (c:-> (c:e e) (c:a g)) (c:-> (c:. (c:p e) (c:e (variable-environment g))) (c:a g)))) ((indirect-display) (if (eq? (variable-environment g) e) (c:-> (c:e e) (c:a g)) (c:-> (c:-> (c:p e) (c:e (variable-environment g))) (c:a g)))) ((linked) (let ((e1 (variable-environment g))) (if (eq? e e1) (c:-> (c:e e) (c:a g)) (let loop ((e (parent-parameter e)) (c (c:p e))) (if (eq? e e1) (c:-> c (c:a g)) (loop (parent-slot e) (c:-> c (c:p (parent-slot e))))))))) (else (fuck-up)))) (else (format #t "Warning! Variable ~a{~a}:W~s is fake~%" (variable-name g) (variable-index g) (type-set-index (variable-type-set g))) "fake"))) (define (number-of-accessor-indirections x) (let ((g (expression-variable x)) (e (expression-environment x))) (cond ((not (accessed? g)) 0) ((fictitious? (variable-type-set g)) 0) ((local? g) 0) ((global? g) 0) ((hidden? g) (case *closure-representation* ((immediate-flat indirect-flat immediate-display indirect-display) (fuck-up)) ((linked) (let ((e1 (parent-parameter (the-member (variable-type-set g))))) (if (eq? e e1) 0 (let loop ((e (parent-parameter e)) (c 0)) (if (eq? e e1) c (loop (parent-slot e) (+ c 1))))))) (else (fuck-up)))) ((slotted? g) (case *closure-representation* ((immediate-flat) 0) ((indirect-flat) 1) ((immediate-display) 1) ((indirect-display) 1) ((linked) (let ((e1 (variable-environment g))) (if (eq? e e1) 1 (let loop ((e (parent-parameter e)) (c 0)) (if (eq? e e1) (+ c 1) (loop (parent-slot e) (+ c 1))))))) (else (fuck-up)))) (else (fuck-up))))) (define (lambda-accessor u e) (case *closure-representation* ((immediate-flat indirect-flat immediate-display indirect-display) (fuck-up)) ((linked) (if (and (or (eq? *closure-conversion-method* 'baseline) (eq? *closure-conversion-method* 'conventional)) (or (not (environment? (native-procedure-type-narrow-prototype u))) (not (environment-used? (narrow-prototype u))) (not (environment? (parent-parameter u))) (not (environment-used? (parent-parameter u))))) "fake" (let ((e1 (parent-parameter u))) (if (eq? e e1) (c:e e) (let loop ((e (parent-parameter e)) (c (c:p e))) (if (eq? e e1) c (loop (parent-slot e) (c:-> c (c:p (parent-slot e)))))))))) (else (fuck-up)))) (define (parent-accessor e) (case *closure-representation* ((immediate-flat indirect-flat immediate-display indirect-display) (fuck-up)) ((linked) (let ((e1 (parent-slot e))) (let loop ((e (parent-parameter e)) (c (c:p e))) (if (eq? e e1) c (loop (parent-slot e) (c:-> c (c:p (parent-slot e)))))))) (else (fuck-up)))) ;;; Representation Promotion (define (promote! r w w2) (unless (or (discard? r) (antecedent? r)) (let* ((w1 (result-type-set r)) (us (intersectionq (members w) (members w2))) ;; note: This was added because of uniqueness. With uniqueness, it is ;; possible for the source to be widened and contain members ;; that the more precise analysis determines can't really occur ;; so that they may be absent from the destination. (us (if *uniqueness?* (intersectionq (members w1) us) us))) (unless (null? us) (cond ((and (general? w) (squeezed? w1)) (let ((u1 (squeezed-member w1))) (when (and (some (lambda (u) (eq? u u1)) us) (not (every (lambda (u) (eq? u u1)) us))) (when #t ;debugging (notify "Promoting W~s from squeezed to avoid" (type-set-index w1)) (notify " MOVE: branching general (W~s) to squeezed (W~s)" (type-set-index w) (type-set-index w1))) (set-type-set-squeezable?! w1 #f) (determine-alignments!) (assign-global-squish-tags!) (set! *again?* #t)))) ((and (squeezed? w) (squished? w1)) (when (and (not (every (lambda (u) (or (char-type? u) (fictitious? u))) us)) (not (zero? (squish-tag (squeezed-member w) w1))) (some (lambda (u) (or (char-type? u) (fictitious? u))) us)) (when #t ;debugging (notify "Promoting W~s from squeezed to avoid" (type-set-index w)) (notify " MOVE: branching squeezed (W~s) to squished (W~s)" (type-set-index w) (type-set-index w1))) ;; needs work: Could try to promote W1 to general. Could also try to ;; reassign squish tags of W1 so that the squeezed member of ;; W has squish tag zero. (set-type-set-squeezable?! w #f) (determine-alignments!) (assign-global-squish-tags!) (set! *again?* #t))) ((and (squished? w) (squished? w1)) (when (and (or (some (lambda (u) (and (not (char-type? u)) (not (fictitious? u)) (not (= (squish-tag u w) (squish-tag u w1))))) us) (not (= (squish-alignment w) (squish-alignment w1)))) (some (lambda (u) (or (char-type? u) (fictitious? u))) us) (or (not (= (squish-alignment w) (squish-alignment w1))) (not (every (lambda (u) (or (not (zero? (squish-tag u w))) (zero? (squish-tag u w1)))) us)))) (cond ((and (every (lambda (u) (or (char-type? u) (fictitious? u) (= (squish-tag u w) (squish-tag u w1)))) us) (every (lambda (u) (or (not (zero? (squish-tag u w))) (zero? (squish-tag u w1)))) us) (if (> (squish-alignment w) (squish-alignment w1)) (no-pointer-members? w1) (no-pointer-members? w))) (cond ((> (squish-alignment w) (squish-alignment w1)) (when #t ;debugging (notify "Increasing alignment of W~s from ~a to ~a to avoid" (type-set-index w1) (squish-alignment w1) (squish-alignment w)) (notify " MOVE: branching squished (W~s) to squished (W~s)" (type-set-index w) (type-set-index w1))) (set-type-set-minimal-alignment! w1 (squish-alignment w)) (determine-alignments!) (assign-global-squish-tags!) (set! *again?* #t)) (else (when #t ;debugging (notify "Increasing alignment of W~s from ~a to ~a to avoid" (type-set-index w) (squish-alignment w) (squish-alignment w1)) (notify " MOVE: branching squished (W~s) to squished (W~s)" (type-set-index w) (type-set-index w1))) (set-type-set-minimal-alignment! w (squish-alignment w1)) (determine-alignments!) (assign-global-squish-tags!) (set! *again?* #t)))) (else (when #t ;debugging (notify "Promoting W~s from squished to avoid" (type-set-index w1)) (notify " MOVE: branching squished (W~s) to squished (W~s)" (type-set-index w) (type-set-index w1))) ;; needs work: Could try to promote W to general. (set-type-set-squishable?! w1 #f) (determine-alignments!) (assign-global-squish-tags!) (set! *again?* #t))))) ((and (general? w) (squished? w1)) (unless (or (every (lambda (u) (or (char-type? u) (fictitious? u))) us) (null? (rest us))) (when #t ;debugging (notify "Promoting W~s from squished to avoid" (type-set-index w1)) (notify " MOVE: dispatching general (W~s) to squished (W~s)" (type-set-index w) (type-set-index w1))) (set-type-set-squishable?! w1 #f) (determine-alignments!) (assign-global-squish-tags!) (set! *again?* #t))) ((and (squeezed? w) (general? w1)) (when (and (not (every (lambda (u) (or (char-type? u) (fictitious? u))) us)) (some (lambda (u) (or (char-type? u) (fictitious? u))) us)) (when #t ;debugging (notify "Promoting W~s from squeezed to avoid" (type-set-index w)) (notify " MOVE: branching squeezed (W~s) to general (W~s)" (type-set-index w) (type-set-index w1))) (set-type-set-squeezable?! w #f) (determine-alignments!) (assign-global-squish-tags!) (set! *again?* #t))) ((and (squished? w) (general? w1)) (unless (or (every (lambda (u) (or (char-type? u) (fictitious? u))) us) (null? (rest us))) (when #t ;debugging (notify "Promoting W~s from squished to avoid" (type-set-index w)) (notify " MOVE: dispatching squished (W~s) to general (W~s)" (type-set-index w) (type-set-index w1))) (set-type-set-squishable?! w #f) (determine-alignments!) (assign-global-squish-tags!) (set! *again?* #t))) ((and (general? w) (general? w1)) (unless (or (eq? w w1) (and *forgery?* (= (type-set-size w) (type-set-size w1))) (every (lambda (u) (or (char-type? u) (fictitious? u))) us) (null? (rest us))) (when #t ;debugging (notify "MOVE: dispatching general to general") (notify " because of mismatched type set sizes ~a vs. ~a" (type-set-size w) (type-set-size w1)))))))))) (define (promote-pair+! r y ws w) (cond ((discard? r) #f) ((antecedent? r) #f) ((null? ws) (promote! r w w)) (else (let loop ((uss (map members ws)) (w1 (result-type-set r)) (us1 '()) (ws1 '())) (if (null? uss) (let loop ((ws (reverse ws)) (us1 us1) (ws1 ws1) (w w)) (unless (null? ws) (let ((w2 (first ws)) (u1 (first us1)) (w1 (first ws1))) (unless (or (fictitious? w1) (and (return? r) (not (result-accessed? r)))) (cond ((fictitious? u1) (let ((w (create-anonymous-type-set u1))) (set-type-set-fictitious?! w (case *closure-conversion-method* ((baseline conventional) #f) ((lightweight) (or (void? w) (and (not (multimorphic? w)) (must-be? fictitious? w)))) (else (fuck-up)))) (promote! (create-accessor-result w1 #f) w w))) (else (promote! (create-accessor-result (pair-type-car u1) #f) w2 w2) (promote! (create-accessor-result (pair-type-cdr u1) #f) w w)))) (loop (rest ws) (rest us1) (rest ws1) w1)))) (let ((u1 (the-member-that (pair+-type? uss (members w) (call-site-expression y)) w1))) (loop (rest uss) (pair-type-cdr u1) (cons u1 us1) (cons w1 ws1)))))))) (define (promote-gather! e0 y ws w gs) (let loop ((ws ws) (w w) (gs gs)) (unless (null? gs) (let* ((g (first gs))) (if (null? ws) (if (and (rest? e0) (null? (rest gs))) (when (or (local? g) (global? g) (slotted? g)) (promote! (create-accessor-result (variable-type-set g) #f) w w)) (for-each (lambda (u) (when (or (local? g) (global? g) (slotted? g)) (promote! (create-accessor-result (variable-type-set g) #f) (pair-type-car u) (pair-type-car u))) (loop ws (pair-type-cdr u) (rest gs))) (members-that pair-type? w))) (cond ((and (rest? e0) (null? (rest gs))) (when (or (local? g) (global? g) (slotted? g)) (promote-pair+! (create-accessor-result (variable-type-set g) #f) y ws w))) (else (when (or (local? g) (global? g) (slotted? g)) (promote! (create-accessor-result (variable-type-set g) #f) (first ws) (first ws))) (loop (rest ws) w (rest gs))))))))) (define (promote-converted-call! r y u0 ws w) (unless (procedure-type? u0) (fuck-up)) (when (continuation-type? u0) (fuck-up)) (cond ;; CALL/CC==(LAMBDA (C X) (C (X C))) (((primitive-procedure-type-named? 'call-with-current-continuation) u0) (when (can-be-non? null-type? w) (fuck-up)) (for-each (lambda (u2) (promote-converted-call! r (recreate-call-site y 'first-argument) u2 (list (first ws) (first ws)) *null*)) (members-that (compatible-procedure? (list (first ws) (first ws)) *null* (recreate-call-site y 'first-argument)) (second ws)))) ((and (native-procedure-type? u0) (converted? (callee-environment u0 y))) (promote-call! r y u0 ws w)) (((needs-implicit-continuation-call? ws w y) u0) (let ((w1 (minp subtype-set? (map (lambda (u) (continuation-argument-type-set u y)) (members (first ws)))))) (when (can-be-non? (lambda (u) (subtype-set? w1 (continuation-argument-type-set u y))) (first ws)) (fuck-up)) (promote-call! (if (fictitious? w1) *discard* (create-accessor-result w1 #f)) y u0 (rest ws) w) ;; This relies on the fact that the implicit continuation call is never ;; done through APPLY. (for-each (lambda (u1) (promote-call! r (recreate-call-site y 'continuation-argument) u1 (list w1) *null*)) (members-that (compatible-procedure? (list w1) *null* (recreate-call-site y 'continuation-argument)) (first ws))))) (else (promote-call! r y u0 (rest ws) w)))) (define (promote-call! r y u0 ws w) (cond ((primitive-procedure-type? u0) (when (can-be-non? null-type? w) (fuck-up)) (unless (some void? ws) ((primitive-procedure-promote! (cdr (assq (primitive-procedure-type-name u0) *primitive-procedure-handlers*))) r y u0 ws w (if (converted? y) (expression-type-set (continuation-argument (call-site-expression y))) #f) (if (>= (length ws) 1) (first ws) #f) (if (>= (length ws) 2) (second ws) #f) (if (>= (length ws) 3) (third ws) #f)))) ((native-procedure-type? u0) (let* ((e (expression-environment (call-site-expression y))) (e0 (callee-environment u0 y)) (x0 (environment-expression e0)) (gs (variables e0))) (unless (called? e0) (fuck-up)) (cond ((noop? e0) #f) ((can-be-self-tail-call-to? y e0) (promote-gather! e0 y ws w gs)) ((unique-call-site? e0) (promote-gather! e0 y ws w gs) (promote-expression! r (expression-body x0))) (else (promote-gather! e0 y ws w gs) (promote! r (return-type-set e0) (return-type-set e0)))))) ((foreign-procedure-type? u0) #f) ((continuation-type? u0) (when (can-be-non? null-type? w) (unimplemented y "APPLY of a continuation is not (yet) implemented")) (unless (continuation-type-continuation-accessed? u0) (fuck-up)) (if (goto? y u0) (promote! (expression-result (continuation-type-allocating-expression u0)) (first ws) (first ws)) (promote! (if (fictitious? (expression-type-set (continuation-type-allocating-expression u0))) *discard* (create-accessor-result (expression-type-set (continuation-type-allocating-expression u0)) #f)) (first ws) (first ws)))) (else (fuck-up)))) (define (promote-antecedent! x) (promote-expression! (create-antecedent-result (expression-type-set x) #f #f #f) x)) (define (promote-expression! r x) (set-expression-result! x r) (if (and (not (antecedent? r)) (must-be? boolean-type? (expression-type-set x)) (can-be-non? true-type? (expression-type-set x)) (can-be-non? false-type? (expression-type-set x)) (or (and-expression? x) (or-expression? x) (not-expression? x))) (promote-antecedent! x) (case (expression-kind x) ((null-constant) #f) ((true-constant) #f) ((false-constant) #f) ((char-constant) #f) ((fixnum-constant) #f) ((flonum-constant) #f) ((rectangular-constant) #f) ((string-constant) #f) ((symbol-constant) #f) ((pair-constant) #f) ((vector-constant) #f) ((lambda converted-lambda converted-continuation) #f) ((set!) (promote-expression! (if (and (or (local? (expression-variable x)) (global? (expression-variable x)) (slotted? (expression-variable x))) (nontrivial-reference? x) (executed? x)) (create-accessor-result (variable-type-set (expression-variable x)) #f) *discard*) (expression-source x))) ((if) (promote-antecedent! (expression-antecedent x)) (cond ((and (antecedent? r) (and-expression? x)) (when (reached? (expression-consequent x)) (promote-antecedent! (expression-consequent x)))) (else (when (reached? (expression-consequent x)) (promote-expression! r (expression-consequent x))) (when (reached? (expression-alternate x)) (promote-expression! r (expression-alternate x)))))) ((primitive-procedure) #f) ((foreign-procedure) #f) ((access) (when (and (accessed? (expression-variable x)) (or (not (hidden? (expression-variable x))) (discard? r) (antecedent? r))) (promote! r (variable-type-set (expression-variable x)) (expression-type-set x)))) ((call converted-call) (cond ((and (antecedent? r) (or-expression? x)) (let* ((u (the-member (expression-type-set (expression-callee x)))) (e0 (callee-environment u (create-call-site x))) (x0 (environment-expression e0)) (x1 (expression-body x0)) (x2 (first (expression-arguments x)))) (promote-antecedent! x2) (when (reached? (expression-alternate x1)) (promote-antecedent! (expression-alternate x1))))) ((and (antecedent? r) (not-expression? x)) (promote-antecedent! (first (expression-arguments x)))) (else (let* ((w0 (expression-type-set (expression-callee x))) (ws (map expression-type-set (expression-arguments x)))) (promote-expression! (create-accessor-result w0 #f) (expression-callee x)) (for-each (lambda (w x) (promote-expression! (create-accessor-result w #f) x)) ws (expression-arguments x)) (when (and (executed? x) (not (void? w0))) (for-each (lambda (u0) (if (converted? x) (promote-converted-call! r (create-call-site x) u0 ws *null*) (promote-call! r (create-call-site x) u0 ws *null*))) (members-that (compatible-call? x) w0))))))) (else (fuck-up))))) (define (promote-representations!) (let loop () (set! *again?* #f) (for-each (lambda (e) (unless (unique-call-site? e) (promote-expression! (create-return-result e (expression-type-set (expression-body (environment-expression e)))) (expression-body (environment-expression e))))) *es*) (when *again?* (loop)))) ;;; Copy Propagation (define (maybe-parentheses-around c) ;; needs work: To replace the calls to LIST? and LENGTH in the following with ;; more efficient code: (if (or (and (string? c) (or (string=? c "argc") (string=? c "argv") (string=? c "'\\0'") (string=? c "NULL") (string=? c "EOF") (string=? c "data") (string=? c "region") (string=? c "region_size") (string=? c "stdin") (string=? c "stdout") (string=? c "CLOCKS_PER_SEC") (string=? c "RAND_MAX") (string=? c "VALUE_OFFSET") (string=? c "CHAR_OFFSET") (string->number c))) (and (list? c) (= (length c) 3) (string? (first c)) (string=? (first c) "'") (string? (second c)) (string? (third c)) (string=? (third c) "'")) (and (list? c) (= (length c) 3) (string? (first c)) (string=? (first c) "\"") (string? (third c)) (string=? (third c) "\"")) (and (list? c) (= (length c) 2) (string? (first c)) (or (string=? (first c) "a") (string=? (first c) "e") (string=? (first c) "j") (string=? (first c) "p") (string=? (first c) "q") (string=? (first c) "r") (string=? (first c) "t") (string=? (first c) "v") (string=? (first c) "fp") (string=? (first c) "sfp") (string=? (first c) "region") (string=? (first c) "region_size") (string=? (first c) "initial_region") (string=? (first c) "REGION_SIZE")) (string? (second c)))) c (parentheses-around c))) (define (c:copy-propagate! c) (let ((cs1 '()) (cs2 '())) (let loop ((c c)) (when (c:assignment-to-temporary? c) (set! cs1 (cons c cs1))) (when (and (pair? c) (not (c:declaration? c))) (loop (car c)) (loop (cdr c)))) (let loop ((c c)) (when (c:unprotected-assignment-to-atomic-temporary? c) (set! cs2 (cons c cs2))) (when (and (pair? c) (not (c:declaration? c))) (loop (car c)) (loop (cdr c)))) (let ((cs2 (remove-if-not (lambda (c2) (one (lambda (c1) (equal? (c:atomic-t (first (second (first c1)))) (first (second (first c2))))) cs1)) cs2))) (let loop ((c c)) (when (and (pair? c) (not (c:declaration? c))) (cond ((and (c:assignment-to-temporary? (car c)) (memq (car c) cs2)) (set-car! c '())) ((c:atomic-t? (car c)) (let ((c2 (find-if (lambda (c2) (equal? (first (second (first c2))) (car c))) cs2))) (when c2 (set-car! c (maybe-parentheses-around (third (third (second (first c2)))))))))) (cond ((and (c:assignment-to-temporary? (cdr c)) (memq (cdr c) cs2)) (set-cdr! c '())) ((c:atomic-t? (cdr c)) (let ((c2 (find-if (lambda (c2) (equal? (first (second (first c2))) (cdr c))) cs2))) (when c2 (set-cdr! c (maybe-parentheses-around (third (third (second (first c2)))))))))) (loop (car c)) (loop (cdr c))))))) ;;; Removing Unused Declarations (define (c:remove-unused-declarations! c) (let ((a-trie (create-trie 10 ;; conventions: CHAR (lambda (char) (- (char->integer char) (char->integer #\0))) ;; conventions: K (lambda (k) (integer->char (+ k (char->integer #\0)))) #f)) (r-trie (create-trie 10 ;; conventions: CHAR (lambda (char) (- (char->integer char) (char->integer #\0))) ;; conventions: K (lambda (k) (integer->char (+ k (char->integer #\0)))) #f)) (t-trie (create-trie 10 ;; conventions: CHAR (lambda (char) (- (char->integer char) (char->integer #\0))) ;; conventions: K (lambda (k) (integer->char (+ k (char->integer #\0)))) #f)) (v-trie (create-trie 10 ;; conventions: CHAR (lambda (char) (- (char->integer char) (char->integer #\0))) ;; conventions: K (lambda (k) (integer->char (+ k (char->integer #\0)))) #f))) ;; conventions: A-TRIE, R-TRIE, T-TRIE, V-TRIE (let loop ((c c)) (when (c:declaration? c) (when (and (list? (second c)) (= (length (second c)) 2) (string? (first (second c))) (string? (second (second c)))) (cond ((string=? (first (second c)) "a") (when (trie-ref a-trie (second (second c))) (fuck-up)) (trie-set! a-trie (second (second c)) c)) ((string=? (first (second c)) "r") (when (trie-ref r-trie (second (second c))) (fuck-up)) (trie-set! r-trie (second (second c)) c)) ((string=? (first (second c)) "t") (when (trie-ref t-trie (second (second c))) (fuck-up)) (trie-set! t-trie (second (second c)) c)) ((string=? (first (second c)) "v") (when (trie-ref v-trie (second (second c))) (fuck-up)) (trie-set! v-trie (second (second c)) c))))) (when (and (pair? c) (not (c:declaration? c))) (loop (car c)) (loop (cdr c)))) (let loop ((c c)) ;; needs work: To replace the calls to LIST? and LENGTH in the following ;; with more efficient code: (when (and (list? c) (= (length c) 2) (string? (first c)) (or (string=? (first c) "a") (string=? (first c) "r") (string=? (first c) "t") (string=? (first c) "v")) (string? (second c)) (every char-numeric? (string->list (second c)))) (let ((c (cond ((string=? (first c) "a") (trie-ref a-trie (second c))) ((string=? (first c) "r") (trie-ref r-trie (second c))) ((string=? (first c) "t") (trie-ref t-trie (second c))) ((string=? (first c) "v") (trie-ref v-trie (second c))) (else (fuck-up))))) (when c (set-car! (cdddr c) #t)))) (when (and (pair? c) (not (c:declaration? c))) (loop (car c)) (loop (cdr c))))) (let loop ((c c)) (when (and (pair? c) (not (c:declaration? c))) (when (and (c:declaration? (car c)) (not (fourth (car c)))) (set-car! c '())) (when (and (c:declaration? (cdr c)) (not (fourth (cdr c)))) (set-cdr! c '())) (loop (car c)) (loop (cdr c))))) ;;; Removing Unused Labels (define (c:remove-unused-labels! c) (let ((cs '())) (let loop ((c c)) ;; needs work: To replace the calls to LIST? and LENGTH in the following ;; with more efficient code: (when (and (list? c) (= (length c) 2) (list? (first c)) (= (length (first c)) 3) (string? (first (first c))) (string=? (first (first c)) "goto") (string? (second (first c))) (string=? (second (first c)) " ") (list? (third (first c))) (= (length (third (first c))) 2) (string? (first (third (first c)))) (or (string=? (first (third (first c))) "h") (string=? (first (third (first c))) "l") (string=? (first (third (first c))) "x")) (string? (second (third (first c)))) (not (member (third (first c)) cs))) (set! cs (cons (third (first c)) cs))) (when (and (pair? c) (not (c:declaration? c))) (loop (car c)) (loop (cdr c)))) (let loop ((c c)) (when (and (pair? c) (not (c:declaration? c))) (when (and (c:label? (car c)) (not (member (first (car c)) cs))) (set-car! c '())) (when (and (c:label? (cdr c)) (not (member (first (cdr c)) cs))) (set-cdr! c '())) (loop (car c)) (loop (cdr c)))))) (define *errors* '(("out_of_memory" "Out of memory" #f) ("call" "Attempt to call a non-procedure or call a procedure with the wrong number of arguments" "Might call a non-procedure or call a procedure with the wrong number of arguments" "Will call a non-procedure or call a procedure with the wrong number of arguments") ("foreign_call" "Attempt to call a foreign procedure with arguments of the wrong type" "Might call a foreign procedure with arguments of the wrong type" "Will call a foreign procedure with arguments of the wrong type") ("void_if" "The antecedent to an IF has an unspecified value" "The antecedent to an IF might have an unspecified value" "The antecedent to an IF will have an unspecified value") ("void_call" "Attempt to call an unspecified value" "Might call an unspecified value" "Will call an unspecified value") ("void_primitive_procedure_call" "Attempt to call a primitive procedure with an unspecified value" "Might call a primitive procedure with an unspecified value" "Will call a primitive procedure with an unspecified value") ("void_foreign_procedure_call" "Attempt to call a foreign procedure with an unspecified value" "Might call a foreign procedure with an unspecified value" "Will call a foreign procedure with an unspecified value") ("structure_ref" "Argument to STRUCTURE-REF ~a a structure of the correct type" #t) ("structure_set" "First argument to STRUCTURE-SET! ~a a structure of the correct type" #t) ("string_to_uninterned_symbol" "Argument to STRING->UNINTERNED-SYMBOL ~a a string" #t) ("exact" "Argument to EXACT? ~a a number" #t) ("inexact" "Argument to INEXACT? ~a a number" #t) ("symbol_string" "Argument to SYMBOL->STRING ~a a symbol" #t) ("eql" "Argument to = ~a a number" #t) ("lt" "Argument to < ~a a real number" #t) ("gt" "Argument to > ~a a real number" #t) ("le" "Argument to <= ~a a real number" #t) ("ge" "Argument to >= ~a a real number" #t) ("zero" "Argument to ZERO? ~a a number or a pointer" #t) ("positive" "Argument to POSITIVE? ~a a real number" #t) ("negative" "Argument to NEGATIVE? ~a a real number" #t) ("max" "Argument to MAX ~a a real number" #t) ("min" "Argument to MIN ~a a real number" #t) ("plus" "Argument to + ~a a number" #t) ("minus" "Argument to - ~a a number" #t) ("times" "Argument to * ~a a number" #t) ("divide" "Argument to / ~a a number" #t) ("quotient1" "First argument to QUOTIENT ~a an integer" #t) ("quotient2" "Second argument to QUOTIENT ~a an integer" #t) ("remainder1" "First argument to REMAINDER ~a an integer" #t) ("remainder2" "Second argument to REMAINDER ~a an integer" #t) ("lsh1" "First argument to << ~a an integer" #t) ("lsh2" "Second argument to >> ~a an integer" #t) ("rsh1" "First argument to << ~a an integer" #t) ("rsh2" "Second argument to >> ~a an integer" #t) ("bitwise_not" "Argument to BITWISE-NOT ~a an exact integer" #t) ("bitwise_and" "Argument to BITWISE-AND ~a an exact integer" #t) ("bitwise_or" "Argument to BITWISE-OR ~a an exact integer" #t) ("floor" "Argument to FLOOR ~a a real number" #t) ("ceiling" "Argument to CEILING ~a a real number" #t) ("truncate" "Argument to TRUNCATE ~a a real number" #t) ("round" "Argument to ROUND ~a a real number" #t) ("exp" "Argument to EXP ~a a number" #t) ("log" "Argument to LOG ~a a number" #t) ("sin" "Argument to SIN ~a a number" #t) ("cos" "Argument to COS ~a a number" #t) ("tan" "Argument to TAN ~a a number" #t) ("asin" "Argument to ASIN ~a a number" #t) ("acos" "Argument to ACOS ~a a number" #t) ("atan1" "Argument to ATAN ~a a number" #t) ("atan2" "First argument to ATAN ~a a number" #t) ("atan3" "Second argument to ATAN ~a a number" #t) ("sqrt" "Argument to SQRT ~a a number" #t) ("expt1" "First argument to EXPT ~a a number" #t) ("expt2" "Second argument to EXPT ~a a number" #t) ("exact_to_inexact" "Argument to EXACT->INEXACT ~a a number" #t) ("inexact_to_exact1" "Argument to INEXACT->EXACT ~a a number" #t) ("inexact_to_exact2" "Implementation restriction: Argument to INEXACT->EXACT ~a a real number" #t) ("char_to_integer" "Argument to CHAR->INTEGER ~a a character" #t) ("integer_to_char1" "Argument to INTEGER->CHAR ~a an exact integer" #t) ("integer_to_char2" "Argument to INTEGER->CHAR is out of bounds" #f) ("make_string1" "First argument to MAKE-STRING ~a an exact integer" #t) ("make_string2" "Second argument to MAKE-STRING ~a a character" #t) ("string" "Argument to STRING ~a a character" #t) ("string_length" "Argument to STRING-LENGTH ~a a string" #t) ("string_ref1" "First argument to STRING-REF ~a a string" #t) ("string_ref2" "Second argument to STRING-REF ~a an exact integer" #t) ("string_ref3" "Second argument to STRING-REF is out of bounds" #f) ("string_set1" "First argument to STRING-SET! ~a a string" #t) ("string_set2" "Second argument to STRING-SET! ~a an exact integer" #t) ("string_set3" "Third argument to STRING-SET! ~a a character" #t) ("string_set4" "Second argument to STRING-SET! is out of bounds" #f) ("make_vector" "First argument to MAKE-VECTOR ~a an exact integer" #t) ("make_displaced_vector1" "First argument to MAKE-DISPLACED-VECTOR ~a a vector" #t) ("make_displaced_vector2" "Second argument to MAKE-DISPLACED-VECTOR ~a an exact integer" #t) ("make_displaced_vector3" "Third argument to MAKE-DISPLACED-VECTOR ~a an exact integer" #t) ("make_displaced_vector4" "Second argument to MAKE-DISPLACED-VECTOR is out of bounds" #f) ("make_displaced_vector5" "Third argument to MAKE-DISPLACED-VECTOR is out of bounds" #f) ("vector_length" "Argument to VECTOR-LENGTH ~a a vector" #t) ("vector_ref1" "First argument to VECTOR-REF ~a a vector" #t) ("vector_ref2" "Second argument to VECTOR-REF ~a an exact integer" #t) ("vector_ref3" "Second argument to VECTOR-REF is out of bounds" #f) ("vector_set1" "First argument to VECTOR-SET! ~a a vector" #t) ("vector_set2" "Second argument to VECTOR-SET! ~a an exact integer" #t) ("vector_set3" "Second argument to VECTOR-SET! is out of bounds" #f) ("call_with_current_continuation" "First argument to CALL-WITH-CURRENT-CONTINUATION ~a a procedure of one argument" #t) ("open_input_file1" "Argument to OPEN-INPUT-FILE ~a a string" #t) ("open_input_file2" "OPEN-INPUT-FILE cannot open file" #f) ("open_output_file1" "Argument to OPEN-OUTPUT-FILE ~a a string" #t) ("open_output_file2" "OPEN-OUTPUT-FILE cannot open file" #f) ("close_input_port1" "Argument to CLOSE-INPUT-PORT ~a an input port" #t) ("close_input_port2" "CLOSE-INPUT-PORT cannot close input port" #f) ("close_output_port1" "Argument to CLOSE-OUTPUT-PORT ~a an output port" #t) ("close_output_port2" "CLOSE-OUTPUT-PORT cannot close output port" #f) ("read_char1" "Argument to READ-CHAR1 ~a an input port" #t) ("peek_char1" "Argument to PEEK-CHAR1 ~a an input port" #t) ("char_ready1" "Argument to CHAR-READY?1 ~a an input port" #t) ("write_char1" "First argument to WRITE-CHAR2 ~a a character" #t) ("write_char2" "Second argument to WRITE-CHAR2 ~a an output port" #t) ("panic" "Argument to PANIC ~a a string" #t) ("integer_to_string" "Argument to INTEGER->STRING ~a an exact integer" #t) ("integer_to_input_port" "Argument to INTEGER->INPUT-PORT ~a an exact integer" #t) ("integer_to_output_port" "Argument to INTEGER->OUTPUT-PORT ~a an exact integer" #t) ("integer_to_pointer" "Argument to INTEGER->POINTER ~a an exact integer" #t) ("infinity" "Argument to INFINITY? ~a a flonum" #t))) (define *errors-used* #f) (define *warnings* #f) (define (compile-error-procedure-prototypes) (newlines-between (map (lambda (error) ;; conventions: ERROR (set! *c:panic?* #t) ;; needs work: To use code-generation abstractions. (space-between "void" (c:noreturn-prototype (c:error (first error))))) *errors-used*))) (define (compile-error-procedures) (newlines-between (map (lambda (error) ;; conventions: ERROR (set! *c:panic?* #t) ;; needs work: To use code-generation abstractions. (space-between "void" (c:header (c:error (first error))) (braces-around (c:panic (c:string (if (eq? (third error) #t) (format #f (second error) "is not") (second error))))))) *errors-used*))) (define (restore? e/r) (cond ((environment? e/r) (and (has-region? e/r) (reentrant? e/r))) ((result? e/r) (restore? (result-environment e/r))) (else (fuck-up)))) (define (compile-restore e/r) ;; needs work: Returning from a procedure should restore all in-lined ;; reentrant regions that have self tail calls to that procedure. ;; Because we don't do this (yet), we need HAS-EXTERNAL-CALL? to ;; prevent allocation on such regions because otherwise there ;; would be a memory leak when we exit from such a procedure. (cond ((environment? e/r) (if (and (has-region? e/r) (reentrant? e/r)) (newline-between (cond (*treadmarks?* (include! "Tmk") ;Tmk_lock_acquire (c:gosub "Tmk_lock_acquire" (c:0))) (else (c:noop))) (if *expandable-regions?* (c:while (c:boolean-or (c:< (c:sfp e/r) (c:& (c:subscript (c:-> (c:region e/r) (c:data)) (c:0)))) (c:> (c:sfp e/r) (c:& (c:subscript (c:-> (c:region e/r) (c:data)) (c:region-size e/r))))) (newline-between (semicolon-after ;; needs work: To use code-generation abstractions. (space-between "struct" (c:region e/r) (star-before (c:region)))) (c::= (c:region) (c:region e/r)) (c::= (c:region-size e/r) (c:-> (c:region e/r) (c:region-size))) (c::= (c:region e/r) (c:-> (c:region e/r) (c:region))) (if *memory-messages?* (c:printf (c:string (format #f "Freeing region segment for ~a~%" (environment-name e/r)))) (c:noop)) (c:free (c:region) (has-nonatomic-region? e/r)))) (c:noop)) (c::= (c:fp e/r) (c:sfp e/r)) (cond (*treadmarks?* (include! "Tmk") ;Tmk_lock_release (c:gosub "Tmk_lock_release" (c:0))) (else (c:noop)))) (c:noop))) ((result? e/r) (compile-restore (result-environment e/r))) (else (fuck-up)))) (define (result-accessed? r) (unless (return? r) (fuck-up)) (expression-accessed? (expression-body (environment-expression (result-environment r))))) (define (compile-return r) (if (and (return? r) (or (environment-returns? (result-environment r)) (environment-passes-parameters-globally? (result-environment r)))) (newline-between (compile-restore r) (if (or (fictitious? (result-type-set r)) (not (result-accessed? r))) (c:return) (c:return (c:r (result-environment r))))) (c:noop))) (define (zero-value c u w) (if *eq?-forgery?* ;; This zeros out the value field so that EQ? forgery works. ;; needs work: This can be eliminated if there is never any EQ? forgery. (let* ((size (reduce max (map type-size (members-that (lambda (u) (or (not (char-type? u)) (not (fictitious? u)))) w)) ;; This can't happen if the type set isn't fictitious, ;; monomorphic, or tag only. #f)) (fixnum-size (quotient size *fixnum-size*)) (char-size (remainder size *fixnum-size*))) ;; conventions: SIZE FIXNUM-SIZE CHAR-SIZE (if (or (eq? u #f) (not (= size (type-size u)))) (newline-between (newlines-between (map-n (lambda (i) (c::= (c:raw-subscript (c:fixnum*-cast (c:& (c:. c "value"))) (c:fixnum i)) (c:0))) fixnum-size)) (newlines-between (map-n (lambda (i) (c::= (c:raw-subscript (c:char*-cast (c:& (c:. c "value"))) (c:fixnum (+ (* fixnum-size *fixnum-size*) i))) (c:0))) char-size))) (c:noop))) (c:noop))) (define (move-general r c w w2 p?) ;; W is the source representation type set ;; W2 is the source restricted type set (let ((us (intersectionq (members w) (members w2)))) (cond ((discard? r) (if p? (c:noop) (semicolon-after c))) ((and (return? r) (not (result-accessed? r))) (newline-between (if p? (c:noop) (semicolon-after c)) (compile-return r))) ((antecedent? r) ;; needs work: I'm not sure whether uniqueness screws up here. (if (every false-type? us) (if (some false-type? us) (newline-between (if p? (c:noop) (semicolon-after c)) (compile-goto (result-l2 r) (result-l0 r))) (if p? (c:noop) (semicolon-after c))) (if (some false-type? us) (let ((u (first (remove-if-not false-type? us)))) (c:if (cond ((fake? w) (fuck-up)) ((monomorphic? w) (fuck-up)) ((tag-only? w) (c:== (c:tag c w) (c:type-tag u))) ((squeezed? w) (squeeze-tag-test c u w)) ((squished? w) (squish-tag-test c u w)) (else (c:== (c:tag c w) (c:type-tag u)))) (compile-goto (result-l2 r) (result-l0 r)) (compile-goto (result-l1 r) (result-l0 r)) #t)) (newline-between (if p? (c:noop) (semicolon-after c)) (compile-goto (result-l1 r) (result-l0 r)))))) (else (let* ((c1 (result-c r)) (w1 (result-type-set r)) ;; note: This was added because of uniqueness. With uniqueness, it ;; is possible for the source to be widened and contain ;; members that the more precise analysis determines can't ;; really occur so that they may be absent from the ;; destination. (us (if *uniqueness?* (intersectionq (members w1) us) us))) (define (move c) (cond ((return? r) (if (or (environment-returns? (result-environment r)) (environment-passes-parameters-globally? (result-environment r))) ;; needs work: This will replicate the COMPILE-RESTORE in both ;; branches of an IF or in all branches of a dispatch. (newline-between ;; needs work: This potentially can do the COMPILE-RESTORE before ;; evaluating C. (compile-restore r) (c:return c)) (c:noop))) (else (c::= c1 c)))) (unless (every (lambda (u) (member? u w1)) us) (fuck-up)) (cond ((or (fake? w1) (null? us)) (newline-between (if p? (c:noop) (semicolon-after c)) (compile-return r))) ((monomorphic? w1) (move (c:value c (the-member w1) w))) ((tag-only? w1) (cond ((fake? w) (move (c:type-tag (the-member w)))) ((monomorphic? w) (unless (char-type? (the-member w)) (fuck-up)) ;; note: Converting from character to tag-only used to be free but now ;; requires a left shift when there is some squishing. This is ;; the price to pay for universal type tags. ;; This assumes that *TAG* is unsigned so that << does a logical ;; shift. The call to C:UNSIGNED-CHAR-CAST is in case *CHAR* is ;; signed to force << to be a logical shift without a prior sign ;; extend. The call to C:TYPE-SET-CAST is to prevent any overflow in ;; the logical shift. (move (c:<< (c:type-set-cast (c:unsigned-char-cast c) w1) (c:fixnum *worst-alignment*)))) ((tag-only? w) (move c)) ((squeezed? w) (move (c:squeezed->tag-cast c w))) ;; This works because of universal type tags. This assumes that ;; casting from *SQUISHED* to *TAG* does not modify the bit pattern. ((squished? w) (move (c:type-set-cast c w1))) (else (move (c:tag c w))))) ((squeezed? w1) (cond ((fake? w) (move (c:type-set-cast (c:type-tag (the-member w)) w1))) ((monomorphic? w) (move (squeeze (c:value c (the-member w) w) (the-member w) w1))) ((tag-only? w) (move (c:tag->squeezed-cast c w w1))) ((squeezed? w) (if (eq? (squeezed-member w1) (squeezed-member w)) (move c) ;; The squeezed members can only differ in the case of narrowing ;; when the only values being moved are the non-squeezed types. (move (c:type-set-cast c w1)))) ((squished? w) (move (c:type-set-cast (if (and (member? (squeezed-member w1) w) (not (zero? (squish-tag (squeezed-member w1) w)))) (if (every (lambda (u) (or (char-type? u) (fictitious? u))) us) (strip-known-squish-tag c (squeezed-member w1) w) (strip-squish-tag c w)) c) w1))) (else (let ((u1 (squeezed-member w1))) (if (some (lambda (u) (eq? u u1)) us) (if (every (lambda (u) (eq? u u1)) us) (move (squeeze (c:value c u1 w) u1 w1)) (newline-between (c:/**/ "MOVE: branching general to squeezed") (c:if (c:== (c:tag c w) (c:type-tag u1)) (move (squeeze (c:value c u1 w) u1 w1)) (move (c:tag->squeezed-cast c w w1)) #t))) (move (c:tag->squeezed-cast c w w1))))))) ((squished? w1) (cond ((fake? w) (move (c:type-set-cast (c:type-tag (the-member w)) w1))) ((monomorphic? w) (move (squish (c:value c (the-member w) w) (the-member w) w1))) ;; This works because of universal type tags. This assumes that ;; casting from *TAG* to *SQUISHED* does not modify the bit pattern. ((tag-only? w) (move (c:type-set-cast (c:tag c w) w1))) ((squeezed? w) (if (or (every (lambda (u) (or (char-type? u) (fictitious? u))) us) (zero? (squish-tag (squeezed-member w) w1))) (move (c:type-set-cast c w1)) (if (some (lambda (u) (or (char-type? u) (fictitious? u))) us) (newline-between (c:/**/ "MOVE: branching squeezed to squished") (c:if (c:>= c (c:type-set-cast (c:value-offset) w)) (move (squish (c:value c (squeezed-member w) w) (squeezed-member w) w1)) (move (c:type-set-cast c w1)) #t)) (move (squish (c:value c (squeezed-member w) w) (squeezed-member w) w1))))) ((squished? w) (cond ((and (every (lambda (u) (or (char-type? u) (fictitious? u) (= (squish-tag u w) (squish-tag u w1)))) us) (= (squish-alignment w) (squish-alignment w1))) (move c)) (else (unless (or (= (squish-alignment w) (squish-alignment w1)) (every (lambda (u) (or (char-type? u) (fictitious? u) (fixnum-type? u) ;; needs work: Can be extended to allow ;; squishing a singleton ;; immediate structure if its ;; slot is squished. (degenerate-vector-type? u))) us)) (unimplemented #f "This case of squished-to-squished is not (yet) implemented")) (if (or (not (some (lambda (u) (or (char-type? u) (fictitious? u))) us)) (and (= (squish-alignment w) (squish-alignment w1)) (every (lambda (u) (or (not (zero? (squish-tag u w))) (zero? (squish-tag u w1)))) us))) (newline-between (c:/**/ "MOVE: squished to squished") (move (c:+ ;; needs work: This is wrong. Only the non-pointer values ;; need to be shifted. But fortunately this ;; doesn't cause a problem since if both W and W1 ;; can contain the same pointer values then they ;; will have the same squish alignment because ;; all pointer values have the same alignment. ;; This is checked by the above panic. (c:squished-cast (cond ((= (squish-alignment w) (squish-alignment w1)) (strip-squish-tag c w)) ((< (squish-alignment w) (squish-alignment w1)) (c:<< (c:signed-squished-cast (strip-squish-tag c w)) (c:fixnum (- (squish-alignment w1) (squish-alignment w))))) (else (c:>> (c:signed-squished-cast (strip-squish-tag c w)) (c:fixnum (- (squish-alignment w) (squish-alignment w1))))))) (c:subscript ;; needs work: To use code-generation abstractions. (list "\"" (reduce string-append (let ((alist (map (lambda (u) (cons (squish-tag u w) (squish-tag u w1))) us))) (map-n (lambda (i) (let ((c (number->string (cdr (or (assv i alist) (cons 0 0)))))) (when (> (string-length c) 2) (fuck-up)) (string-append "\\" (make-string (- 3 (string-length c)) #\0) c))) (+ (reduce max (map car alist) 0) 1))) "") "\"") (extract-squish-tag c w))))) (newline-between (c:/**/ "MOVE: branching squished to squished") (c:if (c:boolean-or (c:!=0 (extract-squish-tag c w)) (c:>= c (c:type-set-cast (c:value-offset) w))) (move (c:+ ;; needs work: This is wrong. Only the non-pointer values ;; need to be shifted. But fortunately this ;; doesn't cause a problem since if both W and ;; W1 can contain the same pointer values then ;; they will have the same squish alignment ;; because all pointer values have the same ;; alignment. This is checked by the above ;; panic. (c:squished-cast (cond ((= (squish-alignment w) (squish-alignment w1)) (strip-squish-tag c w)) ((< (squish-alignment w) (squish-alignment w1)) (c:<< (c:signed-squished-cast (strip-squish-tag c w)) (c:fixnum (- (squish-alignment w1) (squish-alignment w))))) (else (c:>> (c:signed-squished-cast (strip-squish-tag c w)) (c:fixnum (- (squish-alignment w) (squish-alignment w1))))))) (c:subscript ;; needs work: To use code-generation abstractions. (list "\"" (reduce string-append (let ((alist (map (lambda (u) (cons (squish-tag u w) (squish-tag u w1))) (remove-if (lambda (u) (or (char-type? u) (fictitious? u))) us)))) (map-n (lambda (i) (let ((c (number->string (cdr (or (assv i alist) (cons 0 0)))))) (when (> (string-length c) 2) (fuck-up)) (string-append "\\" (make-string (- 3 (string-length c)) #\0) c))) (+ (reduce max (map car alist) 0) 1))) "") "\"") (extract-squish-tag c w)))) (move c) #t)))))) (else (newline-between (if (or (every (lambda (u) (or (char-type? u) (fictitious? u))) us) (null? (rest us))) (c:noop) (c:/**/ "MOVE: dispatching general to squished")) (nonchecking-type-switch (lambda (u) (some (lambda (u1) (eq? u u1)) us)) w r c (lambda (u) (move (if (or (char-type? u) (fictitious? u)) ;; This works because of universal type tags. This ;; assumes that casting from *TAG* to *SQUISHED* ;; does not modify the bit pattern. (c:type-set-cast (c:tag c w) w1) (squish (c:value c u w) u w1))))))))) (else (cond ((fake? w) (newline-between (zero-value c1 #f w1) (c::= (c:tag c1 w1) (c:type-tag (the-member w))) (compile-return r))) ((monomorphic? w) (newline-between (if (char-type? (the-member w)) ;; note: Converting from character to general used to be free ;; but now requires a left shift when there is some ;; squishing. This is the price to pay for universal type ;; tags. ;; This assumes that *TAG* is unsigned so that << does a logical ;; shift. The call to C:UNSIGNED-CHAR-CAST is in case *CHAR* is ;; signed to force << to be a logical shift without a prior sign ;; extend. The call to C:TAG-CAST is to prevent any overflow in ;; the logical shift. (newline-between (zero-value c1 #f w1) (c::= (c:tag c1 w1) (c:<< (c:tag-cast (c:unsigned-char-cast (c:value c (the-member w) w))) (c:fixnum *worst-alignment*)))) (newline-between (zero-value c1 (the-member w) w1) (c::= (c:tag c1 w1) (c:type-tag (the-member w))) (c::= (c:value c1 (the-member w) w1) (c:value c (the-member w) w)))) (compile-return r))) ((tag-only? w) (newline-between (zero-value c1 #f w1) (c::= (c:tag c1 w1) (c:tag c w)) (compile-return r))) ((squeezed? w) (newline-between (if (every (lambda (u) (or (char-type? u) (fictitious? u))) us) (newline-between (zero-value c1 #f w1) (c::= (c:tag c1 w1) (c:squeezed->tag-cast c w))) (if (some (lambda (u) (or (char-type? u) (fictitious? u))) us) (newline-between (c:/**/ "MOVE: branching squeezed to general") (c:if (c:>= c (c:type-set-cast (c:value-offset) w)) (newline-between (zero-value c1 (squeezed-member w) w1) (c::= (c:tag c1 w1) (c:type-tag (squeezed-member w))) (c::= (c:value c1 (squeezed-member w) w1) c)) (newline-between (zero-value c1 #f w1) (c::= (c:tag c1 w1) (c:squeezed->tag-cast c w))) #t)) (newline-between (zero-value c1 (squeezed-member w) w1) (c::= (c:tag c1 w1) (c:type-tag (squeezed-member w))) (c::= (c:value c1 (squeezed-member w) w1) c)))) (compile-return r))) ((squished? w) (newline-between (if (or (every (lambda (u) (or (char-type? u) (fictitious? u))) us) (null? (rest us))) (c:noop) (c:/**/ "MOVE: dispatching squished to general")) (nonchecking-type-switch (lambda (u) (some (lambda (u1) (eq? u u1)) us)) w r c (lambda (u) (if (or (char-type? u) (fictitious? u)) ;; This works because of universal type tags. This assumes ;; that casting from *SQUISHED* to *TAG* does not modify the ;; bit pattern. (newline-between (zero-value c1 #f w1) (c::= (c:tag c1 w1) (c:tag-cast c)) (compile-return r)) (newline-between (zero-value c1 u w1) (c::= (c:tag c1 w1) (c:type-tag u)) (c::= (c:value c1 u w1) (c:value c u w)) (compile-return r))))))) (else (cond ((eq? w w1) (move c)) ((and *forgery?* (= (type-set-size w) (type-set-size w1))) (move (c:forgery-cast c w1))) (else (newline-between (if (or (every (lambda (u) (or (char-type? u) (fictitious? u))) us) (null? (rest us))) (c:noop) (c:/**/ "MOVE: dispatching general to general")) ;; This works because of universal type tags. (c::= (c:tag c1 w1) (c:tag c w)) (nonchecking-type-switch (lambda (u) (some (lambda (u1) (eq? u u1)) us)) w r c (lambda (u) (if (or (char-type? u) (fictitious? u)) (newline-between (zero-value c1 #f w1) (compile-return r)) (newline-between (zero-value c1 u w1) (c::= (c:value c1 u w1) (c:value c u w)) (compile-return r))))))))))))))))) (define (move r c w) (move-general r c w w #t)) (define (move-strict r c w) (move-general r (c:protect c) w w #f)) (define (move-access r c w w2) (move-general r c w w2 #t)) (define (widen-type r c u) (let ((w (create-anonymous-type-set u))) (set-type-set-fictitious?! w (case *closure-conversion-method* ((baseline conventional) #f) ((lightweight) (or (void? w) (and (not (multimorphic? w)) (must-be? fictitious? w)))) (else (fuck-up)))) (move-general r c w w #t))) (define (widen r c m) (cond ((discard? r) (c:noop)) ((antecedent? r) ;; note: The following checks for EQ?-ness between procedures. (if (eq? m false-type?) (compile-goto (result-l2 r) (result-l0 r)) (compile-goto (result-l1 r) (result-l0 r)))) (else (widen-type r c (the-member-that m (result-type-set r)))))) (define (move-displaced-vector r u c1 c2) (cond ((discard? r) (c:noop)) ((and (return? r) (not (result-accessed? r))) ;; note: C2 is not evaluated here. This is OK because in all uses of ;; MOVE-DISPLACED-VECTOR C2 does not need to be strict. (compile-return r)) ((antecedent? r) (compile-goto (result-l1 r) (result-l0 r))) (else (let ((c (result-c r)) (w (result-type-set r))) (when (or (squeezed? w) (squished? w)) (unimplemented #f "Squeezing or squishing a displaced vector is not (yet) implemented")) (unless (member? u w) (fuck-up)) (cond ((and (return? r) (monomorphic? w) (degenerate-vector-type? (the-member w))) (if (or (environment-returns? (result-environment r)) (environment-passes-parameters-globally? (result-environment r))) (newline-between ;; note: This potentially can do the COMPILE-RESTORE before ;; evaluating C2. This is OK because in all uses of ;; MOVE-DISPLACED-VECTOR C2 does not need to be strict. (compile-restore r) (c:return c2)) (c:noop))) ((and (return? r) (tag-only? w)) (if (or (environment-returns? (result-environment r)) (environment-passes-parameters-globally? (result-environment r))) (newline-between (compile-restore r) (c:return (c:type-tag u))) (c:noop))) (else (newline-between (if (or (monomorphic? w) (squeezed? w) (squished? w)) (c:noop) (c::= (c:tag c w) (c:type-tag u))) (c::= (value-vector-length c u w) c2) (if (degenerate-vector-type? u) (c:noop) (c::= (value-vector-elements c u w) c1)) (compile-return r)))))))) (define *ti* #f) (define (allocate-temporary w) (if (fictitious? w) 'void9 (let ((t (c:t *ti*))) (set! *ti* (+ *ti* 1)) (outside-body (c:declaration w t (c:noop))) t))) (define (compile-error c x/y p?) ;; needs work: Should give an indication of the call-site offset. (cond ((expression? x/y) (let ((error (assoc c *errors*))) ;; conventions: ERROR (unless error (fuck-up)) (when (and p? (not (third error))) (fuck-up)) (unless (memq error *errors-used*) (set! *errors-used* (cons error *errors-used*))) (when (third error) (cond ((expression-pathname x/y) (notify "~a:~s:~s:~a" (expression-pathname x/y) (expression-line-position x/y) (expression-character-position x/y) (cond ((eq? (third error) #t) (format #f (second error) (if p? "will not be" "might not be"))) ((string? (third error)) ((if p? fourth third) error)) (else (fuck-up))))) (else (notify "In ~a" (environment-name (expression-environment x/y))) (notify (cond ((eq? (third error) #t) (format #f (second error) (if p? "will not be" "might not be"))) ((string? (third error)) ((if p? fourth third) error)) (else (fuck-up)))))) (set! *warnings* (cons (list (expression-index x/y) (replace-true-and-false-with-t-and-nil p?) (cond ((eq? (third error) #t) (format #f (second error) (if p? "will not be" "might not be"))) ((string? (third error)) ((if p? fourth third) error)) (else (fuck-up))) x/y) *warnings*))) (c:no-return (newline-between (cond ((expression-pathname x/y) (c:backtrace (c:string (expression-pathname x/y)) (c:fixnum (expression-line-position x/y)) (c:fixnum (expression-character-position x/y)))) ((empty? (expression-environment x/y)) (c:backtrace-internal (c:string "top level"))) (else (c:backtrace-internal (c:string (environment-name (expression-environment x/y)))))) (c:gosub (c:error c)))))) ((call-site? x/y) (compile-error c (call-site-expression x/y) p?)) (else (fuck-up)))) (define (compile-comparison r y cs ws c1 c2) ;; needs work: The code size generated can be exponential in the number of ;; arguments. ;; needs work: To handle rectangular numbers. (let loop ((cs cs) (ws ws) (cs1 '()) (us '())) (if (null? cs) (let ((cs1 (reverse cs1))) (compile-test r (apply c:&& (map (lambda (c2 c3 u1 u2) (c1 c2 c3 u1 u2)) (but-last cs1) (rest cs1) (but-last us) (rest us))))) (type-switch number-type? (first ws) r (first cs) (lambda (u) (loop (rest cs) (rest ws) (cons (c:value (first cs) u (first ws)) cs1) (cons u us))) (lambda (p?) (compile-error c2 y p?)))))) (define (compile-arithmetic m r y cs ws u1 c1 c2) ;; needs work: The code size generated can be exponential in the number of ;; arguments. (let loop ((cs0 cs) (ws0 ws) (cs '()) (us '())) (define (arithmetic-result-type us) (if (null? (rest (rest us))) (u1 (second us) (first us)) (u1 (arithmetic-result-type (rest us)) (first us)))) (define (compile-arithmetic-internal cs us ws) (if (null? (rest (rest cs))) (c1 (second cs) (second us) (first cs) (first us)) (c1 (compile-arithmetic-internal (rest cs) (rest us) (rest ws)) (arithmetic-result-type (rest us)) (first cs) (first us)))) (if (null? ws0) (widen-type r (compile-arithmetic-internal cs us (reverse ws)) (arithmetic-result-type us)) (type-switch m (first ws0) r (first cs0) (lambda (u) (loop (rest cs0) (rest ws0) (cons (c:value (first cs0) u (first ws0)) cs) (cons u us))) (lambda (p?) (compile-error c2 y p?)))))) (define (compile-allocate e y c c1 p?) ;; needs work: To use code-generation abstractions. (cond ((region-allocation? e) (if *expandable-regions?* (newline-between (cond (*treadmarks?* (include! "Tmk") ;Tmk_lock_acquire (c:gosub "Tmk_lock_acquire" (c:0))) (else (c:noop))) (c:if (c:> (c:+ (c:fp e) c) ;needs work: To check for overflow. (c:& (c:subscript (c:-> (c:region e) (c:data)) (c:region-size e)))) (newline-between (semicolon-after (space-between "struct" (c:region e) (star-before (c:region)))) ;; needs work: needs abstraction for initialized declaration (semicolon-after (space-between *length* (unparenthesize (c:= (c:region-size) (c:big-region-size e))))) (c:if (c:> c (c:region-size)) (c::= (c:region-size) c) (c:noop) #t) (if *memory-messages?* (c:printf (c:string (format #f "Allocating region segment for ~a~%" (environment-name e)))) (c:noop)) (c::= (c:region) (c:cast (space-between "struct" (c:region e) "*") (c:malloc ;; needs work: To check for overflow. (c:+ (c:sizeof (space-between "struct" (c:region e))) ;; Overflow can't occur. (c:- (c:region-size) (c:1))) (has-nonatomic-region? e)))) (if *memory-checks?* (c:if (c:==null (c:region)) (compile-error "out_of_memory" y #f) (c:noop) #t) (c:noop)) (c::= (c:-> (c:region) (c:region)) (c:region e)) (if (reentrant? e) (c::= (c:-> (c:region) (c:region-size)) (c:region-size e)) (c:noop)) (c::= (c:region-size e) (c:region-size)) (c::= (c:region e) (c:region)) (c::= (c:fp e) (c:& (c:subscript (c:-> (c:region) (c:data)) (c:0)))) ;; needs work: There is a bug here. If the region_size was ;; bumped for a large object then there is no slack ;; for alignment adjustment. (c:align (c:fp e))) (c:noop) #f) (c1 (c:fp e) (lambda (c) (c:noop))) ;; needs work: To check for overflow. (c:+= (c:fp e) (if (zero? *allocation-alignment*) c ;; needs work: To check for overflow. (c:+ c ;; Overflow can't occur. (c:& (c:- (c:fixnum (expt 2 *allocation-alignment*)) (c:% c (c:fixnum (expt 2 *allocation-alignment*)))) (c:fixnum (- (expt 2 *allocation-alignment*) 1)))))) (cond (*treadmarks?* (include! "Tmk") ;Tmk_lock_release (c:gosub "Tmk_lock_release" (c:0))) (else (c:noop)))) (newline-between (cond (*treadmarks?* (include! "Tmk") ;Tmk_lock_acquire (c:gosub "Tmk_lock_acquire" (c:0))) (else (c:noop))) (c1 (c:fp e) (lambda (c) (c:noop))) (if *memory-checks?* (c:if (c:> (c:+ (c:fp e) c) ;needs work: To check for overflow. (c:& (c:subscript (c:region e) (c:big-region-size e)))) (compile-error "out_of_memory" y #f) (c:noop) #f) (c:noop)) ;; needs work: To check for overflow. (c:+= (c:fp e) ;; needs work: To check for overflow. (if (zero? *allocation-alignment*) c (c:+ c ;; Overflow can't occur. (c:& (c:- (c:fixnum (expt 2 *allocation-alignment*)) (c:% c (c:fixnum (expt 2 *allocation-alignment*)))) (c:fixnum (- (expt 2 *allocation-alignment*) 1)))))) (cond (*treadmarks?* (include! "Tmk") ;Tmk_lock_release (c:gosub "Tmk_lock_release" (c:0))) (else (c:noop)))))) ((stack-allocation? e) ;; needs work: Might not work for COMPILE-ALLOCATE-HEADED-VECTOR because of ;; the nested braces. It is possible but tedious to fix this. (c1 (c:alloca c) (lambda (c2) (if *memory-checks?* (c:if ;; note: This assumes that alloca returns NULL upon stack ;; overflow. (c:==null c2) (compile-error "out_of_memory" y #f) (c:noop) #f) (c:noop))))) ((heap-allocation? e) (c1 ((if p? c:gc-malloc-atomic c:gc-malloc) c) (lambda (c2) (if *memory-checks?* (c:if ;; note: This assumes that GC_malloc and GC_malloc_atomic return ;; NULL when there is no more memory. (c:==null c2) (compile-error "out_of_memory" y #f) (c:noop) #f) (c:noop))))) (else (fuck-up)))) (define (compile-allocate-string c1 w1 c2 y) ;; needs work: To use code-generation abstractions. (let ((u (the-member-that string-type? w1))) (compile-allocate (cdr (assq u (expression-type-allocation-alist (call-site-expression y)))) y ;; needs work: To check for overflow. (c:* (c:+ c2 (c:1)) (c:sizeof *char*)) (lambda (c3 c4) (newline-between (widen (create-accessor-result w1 c1) (c:type-cast c3 u) string-type?) (c4 (c:value c1 u w1)) (c::= (value-string-ref c1 u w1 c2) (c:nul)))) #t))) (define (compile-allocate-structure c u w y) ;; needs work: What happens if the structure is fictitious? (when (fictitious? u) (fuck-up)) (if (structure-type-immediate? u) (cond ((fictitious? w) (fuck-up)) ((monomorphic? w) (c:noop)) ((tag-only? w) (fuck-up)) ((squeezed? w) (fuck-up)) ((squished? w) (fuck-up)) (else (c::= (c:tag c w) (c:type-tag u)))) (compile-allocate (cdr (assq u (expression-type-allocation-alist (call-site-expression y)))) y (c:sizeof (c:type& u "")) (lambda (c1 c2) (newline-between (widen-type (create-accessor-result w c) (c:type-cast c1 u) u) (c2 (c:value c u w)))) (type-atomic? u)))) (define (compile-allocate-headed-vector c1 u1 w1 c2 y) ;; needs work: To use code-generation abstractions. (if (degenerate-vector-type? u1) (cond ((fictitious? w1) (fuck-up)) ((monomorphic? w1) (c::= (value-vector-length c1 u1 w1) c2)) ((tag-only? w1) (fuck-up)) ((squeezed? w1) (fuck-up)) ((squished? w1) (c::= (vector-length-accessor c1 u1) (squish c2 u1 w1))) (else (c::= (value-vector-length c1 u1 w1) c2))) (compile-allocate (cdr (assq u1 (expression-type-allocation-alist (call-site-expression y)))) y ;; needs work: To check for overflow. (c:+ (c:sizeof (space-between "struct" (c:u u1))) ;; needs work: To check for overflow. (c:* (c:- c2 (c:1)) (c:sizeof (c:type-set (headed-vector-type-element u1) "")))) (lambda (c3 c4) (newline-between (widen-type (create-accessor-result w1 c1) (c:type-cast c3 u1) u1) (c4 (c:value c1 u1 w1)) (c::= (value-vector-length c1 u1 w1) c2))) (type-atomic? u1)))) (define (compile-allocate-closure-level e) ;; needs work: To use code-generation abstractions. (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented #f "Indirect flat closures are not (yet) implemented")) ((immediate-display indirect-display) (compile-allocate (allocation e) (environment-expression e) (c:sizeof (space-between "struct" (c:e e))) (lambda (c1 c2) (newline-between (c::= (c:e e) (c:cast (space-between "struct" (c:e e) "*") c1)) (c2 (c:e e)))) (environment-atomic? e))) ((linked) ;; Closures and displays are confluent with linked closures. (compile-allocate (allocation e) (environment-expression e) (c:sizeof (space-between "struct" (c:p e))) (lambda (c1 c2) (newline-between (c::= (c:e e) (c:cast (space-between "struct" (c:p e) "*") c1)) (c2 (c:e e)))) (environment-atomic? e))) (else (fuck-up)))) (define (compile-regions) ;; needs work: To use code-generation abstractions. (newlines-between (map (lambda (e) (if (has-region? e) (if *expandable-regions?* (newline-between (c:define (c:big-region-size e) "65536") (semicolon-after (newline-between (space-between "struct" (c:region e)) (braces-around (newline-between (semicolon-after (space-between "struct" (c:region e) (star-before (c:region)))) (if (reentrant? e) (semicolon-after (space-between *length* (c:region-size))) (c:noop)) (semicolon-after (space-between (c:byte) (c:raw-subscript (c:data) (c:1)))))))) (semicolon-after (newline-between "struct" (space-between (braces-around (newline-between (semicolon-after (space-between "struct" (c:region e) (star-before (c:region)))) (if (reentrant? e) (semicolon-after (space-between *length* (c:region-size))) (c:noop)) (semicolon-after (space-between (c:byte) (c:raw-subscript (c:data) (c:big-region-size e)))))) (c:initial-region e)))) ;; needs work: needs abstraction for initialized declaration (semicolon-after (space-between "struct" (c:region e) (unparenthesize (c:= (star-before (c:region e)) (c:cast (space-between "struct" (c:region e) "*") (c:& (c:initial-region e))))))) (if (reentrant? e) (newline-between ;; needs work: needs abstraction for initialized declaration (semicolon-after (space-between *length* (unparenthesize (c:= (c:region-size e) (c:big-region-size e))))) ;; needs work: needs abstraction for initialized declaration (semicolon-after (space-between (c:byte) (unparenthesize (c:= (star-before (c:fp e)) (c:& (c:subscript (c:. (c:initial-region e) (c:data)) (c:0)))))))) (newline-between (semicolon-after (space-between *length* (c:region-size e))) (semicolon-after (space-between (c:byte) (star-before (c:fp e))))))) (newline-between (c:define (c:big-region-size e) "8388608") (semicolon-after (space-between (c:byte) (c:raw-subscript (c:region e) (c:big-region-size e)))) ;; needs work: needs abstraction for initialized declaration (semicolon-after (space-between (c:byte) (if (reentrant? e) (unparenthesize (c:= (star-before (c:fp e)) (c:region e))) (star-before (c:fp e))))))) (c:noop))) *es*))) (define (compile-region-distribution) ;; needs work: To use code-generation abstractions. (newlines-between (map (lambda (e) (if (has-region? e) (cond (*expandable-regions?* (include! "Tmk") ;Tmk_distribute (newline-between (c:gosub "Tmk_distribute_hack" (c:& (c:initial-region e)) (c:sizeof (c:initial-region e))) (c:gosub "Tmk_distribute_hack" (c:& (c:region e)) (c:sizeof (c:region e))) (c:gosub "Tmk_distribute_hack" (c:& (c:region-size e)) (c:sizeof (c:region-size e))) (c:gosub "Tmk_distribute_hack" (c:& (c:fp e)) (c:sizeof (c:fp e))))) (else (include! "Tmk") ;Tmk_distribute (newline-between (c:gosub "Tmk_distribute_hack" (c:& (c:region e)) (c:sizeof (c:region e))) (c:gosub "Tmk_distribute_hack" (c:& (c:fp e)) (c:sizeof (c:fp e)))))) (c:noop))) *es*))) (define (compile-closures) ;; needs work: To use code-generation abstractions. (newlines-between (map (lambda (e) (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented #f "Indirect flat closures are not (yet) implemented")) ((immediate-display indirect-display) (if (has-parent-parameter? e) (semicolon-after (newline-between (space-between "struct" (c:p e)) (braces-around (newlines-between (map (lambda (e) (semicolon-after (space-between "struct" (c:e e) (star-before (c:e e))))) (ancestors e)))))) (c:noop))) ((linked) (c:noop)) (else (fuck-up)))) *es*))) (define (compile-type-declarations) ;; Check to see that the type declaration precedence graph is acyclic. ;; needs work: This double nested loop can be made more efficient. (when (some (lambda (w) (some (lambda (u) (and (structure-type-immediate? u) (memq w (structure-type-slots u)) (member? u w))) *structure-types*)) *ws*) (fuck-up)) ;; needs work: To use code-generation abstractions. (newline-between ;; Nonheaded and displaced vectors come first, in any order, because they ;; reference everything else with * and are always referenced without *. (newlines-between (map (lambda (u) (if (degenerate-vector-type? u) (c:noop) (semicolon-after (newline-between (space-between "struct" (c:u u)) (braces-around (newline-between (semicolon-after (space-between *length* "length")) (semicolon-after (c:type-set (nonheaded-vector-type-element u) (star-before "element"))))))))) *nonheaded-vector-types*)) (newlines-between (map (lambda (u) (if (degenerate-vector-type? u) (c:noop) (semicolon-after (newline-between (space-between "struct" (c:u u)) (braces-around (newline-between (semicolon-after (space-between *length* "length")) (semicolon-after (c:type-set (vector-type-element (displaced-vector-type-displaced-vector-type u)) (star-before "element"))))))))) *displaced-vector-types*)) (newlines-between (map (lambda (u/w) (cond ((type-set? u/w) (semicolon-after (newline-between (space-between "struct" (c:w u/w)) (braces-around (newline-between (semicolon-after (space-between *tag* "tag")) (if (has-union? u/w) (semicolon-after (newline-between "union" (space-between (braces-around (newlines-between (map (lambda (u) (semicolon-after (c:type u (c:u u)))) (members-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) u/w)))) "value"))) (semicolon-after (c:type (the-member-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) u/w) "value")))))))) ((structure-type? u/w) (semicolon-after (newline-between (space-between "struct" (c:u u/w)) (braces-around (newlines-between (map-indexed (lambda (w i) (if (fictitious? w) (c:noop) (semicolon-after (c:type-set w (c:s i))))) (structure-type-slots u/w))))))) (else (fuck-up)))) (topological-sort (lambda (u/w1 u/w2) (or ;; Immediate structures must come before unions that contain them. (and (structure-type? u/w1) (structure-type-immediate? u/w1) (type-set? u/w2) (member? u/w1 u/w2)) ;; Immediate structures must come before structures that have them ;; as slots. (and (structure-type? u/w1) (structure-type-immediate? u/w1) (structure-type? u/w2) (memq u/w1 (map the-member (remove-if-not monomorphic? (structure-type-slots u/w2))))) ;; Unions must come before structures that have them as slots. (and (type-set? u/w1) (structure-type? u/w2) (memq u/w1 (structure-type-slots u/w2))))) (append (remove-if fictitious? *structure-types*) (remove-if (lambda (w) (or (fictitious? w) (monomorphic? w) (tag-only? w) (squeezed? w) (squished? w))) *ws*))))) ;; Headed vectors come last, in any order, because they reference ;; everything else without * and are always referenced with *. (newlines-between (map (lambda (u) (if (degenerate-vector-type? u) (c:noop) (semicolon-after (newline-between (space-between "struct" (c:u u)) (braces-around (newline-between (semicolon-after (space-between *length* "length")) (semicolon-after (c:type-set (headed-vector-type-element u) (c:raw-subscript "element" "1"))))))))) *headed-vector-types*)))) (define (compile-closure-levels) ;; needs work: To use code-generation abstractions. (newlines-between (map (lambda (e) (if (has-closure? e) (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented #f "Indirect flat closures are not (yet) implemented")) ((immediate-display indirect-display) (semicolon-after (newline-between (space-between "struct" (c:e e)) (braces-around (newlines-between (map (lambda (g) (semicolon-after (c:type-set (variable-type-set g) (c:a g)))) (remove-if-not slotted? (variables e)))))))) ((linked) (semicolon-after (newline-between (space-between "struct" (c:p e)) (braces-around (newline-between (if (has-parent-slot? e) (semicolon-after (space-between "struct" (c:p (parent-slot e)) (star-before (c:p (parent-slot e))))) (c:noop)) (newlines-between (map (lambda (g) (semicolon-after (c:type-set (variable-type-set g) (c:a g)))) (remove-if-not slotted? (variables e))))))))) (else (fuck-up))) (c:noop))) *es*))) (define (compile-global-variables) (newlines-between (map (lambda (g) (c:declaration (variable-type-set g) (c:a g) (symbol->string (variable-name g)))) (remove-if-not global? *gs*)))) (define (compile-global-variable-distribution) (newlines-between (map (lambda (g) (include! "Tmk") ;Tmk_distribute (c:gosub "Tmk_distribute_hack" (c:& (c:a g)) (c:sizeof (c:a g)))) (remove-if-not global? *gs*)))) (define (compile-prototype-variables e) (when (unique-call-site? e) (fuck-up)) (if (environment-passes-parameters-globally? e) '() (let ((cs (map (lambda (g) (c:type-set (variable-type-set g) "")) (remove-if-not (lambda (g) (or (local? g) (slotted? g))) (variables e))))) (if (has-parent-parameter? e) (cons (c:type (environment-type e) "") cs) cs)))) (define (compile-parameter-variables e) (when (unique-call-site? e) (fuck-up)) (if (environment-passes-parameters-globally? e) '() (let ((cs (map (lambda (g) (c:type-set (variable-type-set g) (c:a g))) (remove-if-not (lambda (g) (or (local? g) (slotted? g))) (variables e))))) (if (has-parent-parameter? e) (cons (c:type (environment-type e) (c:p e)) cs) cs)))) (define (compile-in-lined-variables e) ;; needs work: Can eliminate the nonslotted nonparameter variable of an OR ;; that has been optimized away. (newlines-between (map (lambda (g) (c:declaration (variable-type-set g) (c:a g) (symbol->string (variable-name g)))) (remove-if-not (lambda (g) (or (local? g) (slotted? g))) (sort (reduce append (map variables (properly-in-lined-environments e)) '()) < variable-index))))) (define (spill-slotted-variables e) (newline-between (case *closure-representation* ((immediate-flat indirect-flat indirect-display immediate-display) (c:noop)) ((linked) (if (has-parent-slot? e) (c::= (c:-> (c:e e) (c:p (parent-slot e))) (parent-accessor e)) (c:noop))) (else (fuck-up))) (newlines-between (map (lambda (g) (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented #f "Indirect flat closures are not (yet) implemented")) ((indirect-display immediate-display linked) (c::= (c:-> (c:e e) (c:a g)) (c:a g))) (else (fuck-up)))) (remove-if-not slotted? (variables e)))))) (define *statements-per-constant-initialization-procedure* 3000) (define (compile-constant-initialization-procedure-prototypes) (newlines-between (map-n (lambda (i) (space-between "void" (c:prototype (c:initialize-constants i)))) (inexact->exact (ceiling (/ (length *inside-main*) (exact->inexact *statements-per-constant-initialization-procedure*))))))) (define (compile-native-procedure-prototypes) (newlines-between (map (lambda (e) (if (unique-call-site? e) (c:noop) (let* ((cs (compile-prototype-variables e)) (c (apply (if (or (environment-returns? e) (environment-passes-parameters-globally? e) ;; needs work: This is a bit overly conservative. (some environment-passes-parameters-globally? (callees e))) c:prototype c:noreturn-prototype) (c:f e) cs))) (newline-between (if (or (fictitious? (return-type-set e)) (not (expression-accessed? (expression-body (environment-expression e))))) ;; needs work: To use code-generation abstractions. (space-between "void" c) (c:type-set (return-type-set e) c)) (if (environment-passes-parameters-globally? e) (newline-between (if (has-parent-parameter? e) (semicolon-after (c:type (environment-type e) (c:d e))) (c:noop)) (newlines-between (map (lambda (g) (space-between (semicolon-after (c:type-set (variable-type-set g) (c:b g))) (c:/**/ (symbol->string (variable-name g))))) (remove-if-not (lambda (g) (or (local? g) (slotted? g))) (variables e))))) (c:noop)))))) *es*))) (define (compile-foreign-procedure-prototypes) (newlines-between (map (lambda (u) (if (foreign-procedure-type-called? u) (cond ((foreign-procedure-type-include u) (include! (foreign-procedure-type-include u)) (c:noop)) (else (c:foreign-type (foreign-procedure-type-result u) (apply (if (foreign-procedure-returns? u) c:prototype c:noreturn-prototype) (foreign-procedure-type-name u) (map (lambda (f) (c:foreign-type f "")) (foreign-procedure-type-parameters u)))))) (c:noop))) *foreign-procedure-types*))) (define *li* #f) (define (allocate-label) (let ((l (c:l *li*))) (set! *li* (+ *li* 1)) l)) (define (compile-goto l1 l2) (cond ((eq? l1 l2) (c:noop)) (else (unless l1 (fuck-up)) (c:goto l1)))) (define (unreturnify r) (if (return? r) (if (result-accessed? r) (create-accessor-result (result-type-set r) (result-c r)) *discard*) r)) (define (contains? c1 c2) (or (eq? c1 c2) (and (pair? c1) (or (contains? (car c1) c2) (contains? (cdr c1) c2))))) (define (compile-foreign-call r y u ts ws) (let ((ts (if (converted? y) (rest ts) ts)) (ws (if (converted? y) (rest ws) ws))) (let loop ((fs1 (foreign-procedure-type-parameters u)) (ts1 ts) (us1 '()) (ws1 ws)) (if (null? fs1) (move-strict r (apply c:call (foreign-procedure-type-name u) (map c:value ts (reverse us1) ws)) (foreign-procedure-return-type-set u)) (type-switch (foreign-type? (first fs1)) (first ws1) r (first ts1) (lambda (u0) (loop (rest fs1) (rest ts1) (cons u0 us1) (rest ws1))) (lambda (p?) (compile-error "foreign_call" y p?))))))) (define (compile-pair+ r y ts ws t w) (cond ((discard? r) (c:noop)) ((antecedent? r) (compile-goto (result-l1 r) (result-l0 r))) ((null? ws) (move r t w)) (else (let loop ((uss (map members ws)) (w1 (result-type-set r)) (us1 '()) (ws1 '())) (if (null? uss) (let loop ((ts (reverse ts)) (ws (reverse ws)) (ts1 (reverse (cons (result-c r) (map allocate-temporary (rest (reverse ws1)))))) (us1 us1) (ws1 ws1) (c (c:noop)) (t t) (w w)) (if (null? ts) (newline-between c (compile-return r)) (let ((t2 (first ts)) (w2 (first ws)) (t1 (first ts1)) (u1 (first us1)) (w1 (first ws1))) (loop (rest ts) (rest ws) (rest ts1) (rest us1) (rest ws1) (newline-between c (cond ((or (fictitious? w1) (and (return? r) (not (result-accessed? r)))) (c:noop)) ((fictitious? u1) (widen-type (create-accessor-result w1 t1) 'void10 u1)) (else (newline-between (compile-allocate-structure t1 u1 w1 y) (move (create-accessor-result (pair-type-car u1) (value-car t1 u1 w1)) t2 w2) (move (create-accessor-result (pair-type-cdr u1) (value-cdr t1 u1 w1)) t w))))) t1 w1)))) (let ((u1 (the-member-that (pair+-type? uss (members w) (call-site-expression y)) w1))) (loop (rest uss) (pair-type-cdr u1) (cons u1 us1) (cons w1 ws1)))))))) (define (compile-initialize-region e) (if (has-region? e) (if (reentrant? e) (c::= (c:sfp e) (c:fp e)) (newline-between (cond (*treadmarks?* (include! "Tmk") ;Tmk_lock_acquire (c:gosub "Tmk_lock_acquire" (c:0))) (else (c:noop))) (if *expandable-regions?* (newline-between (c:while (c:!= (c:region e) ;; needs work: To use code-generation abstractions. (c:cast (space-between "struct" (c:region e) "*") (c:& (c:initial-region e)))) (newline-between (semicolon-after ;; needs work: To use code-generation abstractions. (space-between "struct" (c:region e) (star-before (c:region)))) (c::= (c:region) (c:region e)) (c::= (c:region e) (c:-> (c:region e) (c:region))) (if *memory-messages?* (c:printf (c:string (format #f "Freeing region segment for ~a~%" (environment-name e)))) (c:noop)) (c:free (c:region) (has-nonatomic-region? e)))) (c::= (c:region-size e) (c:big-region-size e)) (c::= (c:fp e) (c:& (c:subscript (c:-> (c:region e) (c:data)) (c:0))))) (c::= (c:fp e) (c:region e))) (c:align (c:fp e)) (cond (*treadmarks?* (include! "Tmk") ;Tmk_lock_release (c:gosub "Tmk_lock_release" (c:0))) (else (c:noop))))) (c:noop))) (define (gather e0 y ts ws t w ts1 gs) (let loop ((ts ts) (ws ws) (t t) (w w) (ts1 ts1) (gs gs)) (if (null? gs) (type-switch null-type? w *discard* t (lambda (u) (c:noop)) (lambda (p?) (compile-error "call" y p?))) (let* ((g (first gs)) (c (cond ((and (pair? ts1) (or (local? g) (slotted? g))) (first ts1)) ((and (eq? ts1 #t) (not (global? g))) (c:b g)) ;; note: This must assign to the parameters and not the ;; slots since the self-tail-call entry point can't ;; come after the closure level allocation and spill ;; since that would unsoundly overwrite the existing ;; closure. cpstak.sc is an example of this. (else (c:a g))))) (if (null? ws) (if (and (rest? e0) (null? (rest gs))) (if (or (local? g) (global? g) (slotted? g)) (move (create-accessor-result (variable-type-set g) c) t w) (c:noop)) (type-switch pair-type? w *discard* t (lambda (u) (newline-between (if (or (local? g) (global? g) (slotted? g)) (move (create-accessor-result (variable-type-set g) c) (value-car t u w) (pair-type-car u)) (c:noop)) (loop ts ws (value-cdr t u w) (pair-type-cdr u) (if (and (pair? ts1) (or (local? g) (slotted? g))) (rest ts1) ts1) (rest gs)))) (lambda (p?) (compile-error "call" y p?)))) (if (and (rest? e0) (null? (rest gs))) (if (or (local? g) (global? g) (slotted? g)) (compile-pair+ (create-accessor-result (variable-type-set g) c) y ts ws t w) (c:noop)) ;; This is written this way, in a non-factored fashion, so that ;; the last call to LOOP, which is the common case, is a tail ;; call. When this was previously written in a factored fashion ;; Trotsky would give a stack overflow when compiling ;; benchmarks-to-latex.sc which is the only example, except for ;; Marx, that I tried under Trotsky that had included ;; QobiScheme. (if (and (or (local? g) (global? g) (slotted? g)) (not (eq? c (first ts)))) (newline-between (move (create-accessor-result (variable-type-set g) c) (first ts) (first ws)) (loop (rest ts) (rest ws) t w (if (and (pair? ts1) (or (local? g) (slotted? g))) (rest ts1) ts1) (rest gs))) (loop (rest ts) (rest ws) t w (if (and (pair? ts1) (or (local? g) (slotted? g))) (rest ts1) ts1) (rest gs))))))))) (define (compile-call r y t0 u0 w0 t1 w1 ts ws t w) ;; There is something slightly inefficient with the way rest arguments are ;; handled. Currently they are allocated by the caller, not the callee. So ;; if they never leave the callee they could have been allocated on the region ;; or the stack frame of the callee but they aren't. Instead, they will be ;; allocated on the region or the stack frame of the caller. If the caller ;; calls the callee in a loop before returning, this can delay storage ;; reclamation. It is for this same reason that you don't want the caller to ;; allocate the environment but rather you want the callee to allocate the ;; environment, which is how it is done now. Also, having the callee allocate ;; the environment and/or rest argument factors out common code. (cond ((primitive-procedure-type? u0) (when (can-be-non? null-type? w) (fuck-up)) (if (some void? ws) (compile-error "void_primitive_procedure_call" y #t) ((primitive-procedure-compile-call (cdr (assq (primitive-procedure-type-name u0) *primitive-procedure-handlers*))) r y u0 ts ws t w (lambda (m) (compile-predicate m r (first ws) (first ts))) t1 w1 (if (>= (length ws) 1) (first ts) #f) (if (>= (length ws) 1) (first ws) #f) (if (>= (length ws) 2) (second ts) #f) (if (>= (length ws) 2) (second ws) #f) (if (>= (length ws) 3) (third ts) #f) (if (>= (length ws) 3) (third ws) #f)))) ((native-procedure-type? u0) (let* ((e (expression-environment (call-site-expression y))) (e0 (callee-environment u0 y)) (x0 (environment-expression e0)) (gs (variables e0))) (cond ((not (called? e0)) ;; We should never get here because the callee or the arguments don't ;; return. Actually, if we ever fix up the unlinking of structures then ;; E0 should not even exist at this point. (c:noop)) ((noop? e0) (compile-return r)) ((can-be-self-tail-call-to? y e0) (newline-between ;; I'm not sure that the following is needed. (if (has-parent-parameter? e0) (c::= (c:p e0) (c:value t0 u0 w0)) (c:noop)) (gather e0 y ts ws t w #f gs) (c:goto (c:h e0)))) ((unique-call-site? e0) (newline-between (if (has-parent-parameter? e0) (c::= (c:p e0) (c:value t0 u0 w0)) (c:noop)) (gather e0 y ts ws t w #f gs) (newline-between (compile-initialize-region e0) (if (has-self-tail-call? e0) (c:: (c:h e0)) (c:noop)) ;; note: The self-tail-call entry point can't come after the closure ;; level allocation and spill since that would unsoundly ;; overwrite the existing closure. ;; cpstak.sc is an example of this. (if (has-closure? e0) (newline-between (compile-allocate-closure-level e0) (spill-slotted-variables e0)) (c:noop)) (if (restore? e0) (newline-between (compile (unreturnify r) (expression-body x0)) (compile-restore e0) (compile-return r)) (compile r (expression-body x0)))))) ((environment-passes-parameters-globally? e0) (let* ((c (c:call (c:f e0)))) (newline-between (if (has-parent-parameter? e0) (c::= (c:d e0) (c:value t0 u0 w0)) (c:noop)) (gather e0 y ts ws t w #t gs) (if (expression-accessed? (expression-body (environment-expression e0))) (if (or (discard? r) (antecedent? r) (eq? (result-type-set r) (return-type-set e0))) (if (and (return? r) (restore? r)) (newline-between (move-strict (unreturnify r) c (return-type-set e0)) (compile-return r)) (move-strict r c (return-type-set e0))) (let ((t (allocate-temporary (return-type-set e0)))) (newline-between (move-strict (create-accessor-result (return-type-set e0) t) c (return-type-set e0)) (move r t (return-type-set e0))))) (newline-between (semicolon-after c) (compile-return r)))))) (else (let* ((ts1 (if (and (must-be? null-type? w) (not (rest? e0))) ;; This is a small amount of copy propagation. (removeq #f (map (lambda (g w t) (if (or (local? g) (slotted? g)) (if (eq? w (variable-type-set g)) t (allocate-temporary (variable-type-set g))) #f)) gs ws ts)) (removeq #f (map (lambda (g) (if (or (local? g) (slotted? g)) (allocate-temporary (variable-type-set g)) #f)) gs)))) (c (if (has-parent-parameter? e0) (apply c:call (c:f e0) (c:value t0 u0 w0) ts1) (apply c:call (c:f e0) ts1)))) (newline-between (gather e0 y ts ws t w ts1 gs) (if (expression-accessed? (expression-body (environment-expression e0))) (if (or (discard? r) (antecedent? r) (eq? (result-type-set r) (return-type-set e0))) (if (and (return? r) (restore? r)) (newline-between (move-strict (unreturnify r) c (return-type-set e0)) (compile-return r)) (move-strict r c (return-type-set e0))) (let ((t (allocate-temporary (return-type-set e0)))) (newline-between (move-strict (create-accessor-result (return-type-set e0) t) c (return-type-set e0)) (move r t (return-type-set e0))))) (newline-between (semicolon-after c) (if (and (native-procedure-type? u0) (converted-continuation? (callee-environment u0 y))) ;; This case was instituted to fix the bug in except.sc. I'm ;; not sure that this is the correct was to fix the bug. And I ;; don't know if we need to do a compile-restore here. (c:return) (compile-return r)))))))))) ((foreign-procedure-type? u0) (when (can-be-non? null-type? w) (unimplemented y "APPLY of a foreign procedure is not (yet) implemented")) (cond ((not (foreign-procedure-type-called? u0)) ;; We should never get here because the callee or the arguments don't ;; return. (c:noop)) ((some void? ws) (compile-error "void_foreign_procedure_call" y #t)) (else (compile-foreign-call r y u0 ts ws)))) ((continuation-type? u0) ;; needs work: A call to a continuation should restore all intervening ;; reentrant regions. Because we don't do this (yet), we need ;; HAS-EXTERNAL-CALL? to prevent allocation on intervening ;; reentrant regions because otherwise there would be a memory ;; leak when a call to this continuation occurs. (when (can-be-non? null-type? w) (unimplemented y "APPLY of a continuation is not (yet) implemented")) (let ((t1 (if (converted? y) (second ts) (first ts))) (w1 (if (converted? y) (second ws) (first ws)))) (cond ((not (continuation-type-continuation-accessed? u0)) ;; We should never get here because the callee or the arguments don't ;; return. (c:noop)) ((goto? y u0) (newline-between ;; needs work: EXPRESSION-RESULT might not be set yet since we might ;; not yet have COMPILEd ;; (CONTINUATION-TYPE-ALLOCATING-EXPRESSION U0). (move (expression-result (continuation-type-allocating-expression u0)) t1 w1) (if (return? (expression-result (continuation-type-allocating-expression u0))) (c:noop) (c:goto (c:x (continuation-type-allocating-expression u0)))))) (else (newline-between (move (if (or (fictitious? (expression-type-set (continuation-type-allocating-expression u0))) (not (expression-accessed? (continuation-type-allocating-expression u0)))) *discard* (create-accessor-result (expression-type-set (continuation-type-allocating-expression u0)) (c:v (continuation-type-allocating-expression u0)))) t1 w1) (c:longjmp (c:* (c:value t0 u0 w0)) (c:1))))))) (else (fuck-up)))) (define (continuation-argument-type-set u y) (unless (native-procedure-type? u) (fuck-up)) (first-parameter-type-set (callee-environment u (recreate-call-site y 'continuation-argument)))) (define (compile-converted-call r y t0 u0 w0 ts ws t w) (unless (procedure-type? u0) (fuck-up)) (when (continuation-type? u0) (unimplemented y "unimplemented")) (cond ;; CALL/CC==(LAMBDA (C X) (X C C)) (((primitive-procedure-type-named? 'call-with-current-continuation) u0) (when (can-be-non? null-type? w) (fuck-up)) (when #f ;debugging (when (can-be? (lambda (u2) (and ((compatible-procedure? (list (first ws)) *null* (recreate-call-site y 'first-argument)) u2) (not (converted? (callee-environment u2 y))))) (second ws)) (unimplemented y "unimplemented"))) (type-switch (compatible-procedure? (list (first ws) (first ws)) *null* (recreate-call-site y 'first-argument)) (second ws) r (second ts) (lambda (u2) (compile-converted-call r (recreate-call-site y 'first-argument) (second ts) u2 (second ws) (list (first ts) (first ts)) (list (first ws) (first ws)) 'void11 *null*)) (lambda (p?) (compile-error "call_with_current_continuation" y p?)))) ((and (native-procedure-type? u0) (converted? (callee-environment u0 y))) (compile-call r y t0 u0 w0 (first ts) (first ws) ts ws t w)) (((needs-implicit-continuation-call? ws w y) u0) (let* ((w1 (minp subtype-set? (map (lambda (u) (continuation-argument-type-set u y)) (members (first ws))))) (t1 (allocate-temporary w1))) (when (can-be-non? (lambda (u) (subtype-set? w1 (continuation-argument-type-set u y))) (first ws)) (fuck-up)) (newline-between (compile-call (if (fictitious? w1) *discard* (create-accessor-result w1 t1)) y t0 u0 w0 (first ts) (first ws) (rest ts) (rest ws) t w) ;; This relies on the fact that the implicit continuation call is never ;; done through APPLY. (type-switch (compatible-procedure? (list w1) *null* (recreate-call-site y 'continuation-argument)) (first ws) r (first ts) (lambda (u1) (compile-call r (recreate-call-site y 'continuation-argument) (first ts) u1 (first ws) #f #f (list t1) (list w1) 'void12 *null*)) (lambda (p?) (c:noop)))))) (else (compile-call r y t0 u0 w0 (first ts) (first ws) (rest ts) (rest ws) t w)))) (define (compile-antecedent x l1 l2 l0) ;; If the antecedent is true branch to L1 otherwise branch to L2 assuming ;; that L0 is the immediately following label so that no branch is generated ;; to that label and flow falls through instead. ;; needs work: To ignore body of a lambda expression that appears in an ;; optimized antecedent. ;; needs work: To not generate constants that are used in an optimized ;; antecedent. (compile (create-antecedent-result (expression-type-set x) l1 l2 l0) x)) (define (and-expression? x) ;; (IF x y #F) (and (eq? (expression-kind x) 'if) (eq? (expression-kind (expression-alternate x)) 'false-constant))) (define (or-expression? x) ;; ((LAMBDA (X) (IF X X y)) x) (and (eq? (expression-kind x) 'call) (= (length (expression-arguments x)) 1) (let ((w (expression-type-set (expression-callee x)))) (and (monomorphic? w) (let ((u (the-member w))) (and (native-procedure-type? u) ((compatible-call? x) u) (let ((e0 (callee-environment u (create-call-site x)))) (and (called? e0) (not (noop? e0)) (unique-call-site? e0) (let ((x0 (environment-expression e0))) (and (not (rest? x0)) (= (length (variables x0)) 1) (let ((x1 (expression-body x0))) (and (eq? (expression-kind x1) 'if) (eq? (expression-kind (expression-antecedent x1)) 'access) (eq? (expression-kind (expression-consequent x1)) 'access) (eq? (expression-variable (expression-antecedent x1)) (expression-variable (expression-consequent x1))) (eq? (expression-variable (expression-antecedent x1)) (first (variables x0))))))))))))))) (define (not-expression? x) ;; (NOT x) (and (eq? (expression-kind x) 'call) (= (length (expression-arguments x)) 1) (can-be? (primitive-procedure-type-named? 'not) (expression-type-set (expression-callee x))) (must-be? (primitive-procedure-type-named? 'not) (expression-type-set (expression-callee x))))) (define (maybe-mark-no-return x c) (let ((c (newline-between (if (expression-pathname x) (c:/**/ (string-append "x" (number->string (expression-index x)) " " (strip-directory (expression-pathname x)) ":" (number->string (expression-line-position x)) ":" (number->string (expression-character-position x)))) (c:/**/ (string-append "x" (number->string (expression-index x))))) c))) (if (expression-returns? x) c (c:no-return c)))) (define (compile r x) (clock-sample) ;To prevent overflow. (set-expression-result! x r) (maybe-mark-no-return x (let ((e (expression-environment x))) (if (and (not (antecedent? r)) (must-be? boolean-type? (expression-type-set x)) (can-be-non? true-type? (expression-type-set x)) (can-be-non? false-type? (expression-type-set x)) (or (and-expression? x) (or-expression? x) (not-expression? x))) (let* ((l1 (allocate-label)) (l2 (allocate-label)) (l3 (allocate-label)) (c (compile-antecedent x l1 l2 l1))) (newline-between c (if (contains? c l1) (c:: l1) (c:noop)) (return-true r) (if (return? r) (c:noop) (compile-goto l3 l2)) (c:: l2) (return-false r) (if (return? r) (c:noop) (c:: l3)))) (case (expression-kind x) ((null-constant) (widen r 'void13 null-type?)) ((true-constant) (return-true r)) ((false-constant) (return-false r)) ((char-constant) (widen r (c:character (expression-constant x)) char-type?)) ((fixnum-constant) (widen r (c:fixnum (expression-constant x)) fixnum-type?)) ((flonum-constant) (widen r (c:flonum (expression-constant x)) flonum-type?)) ((rectangular-constant) (unimplemented y "Cannot (yet) handle rectangular constants")) ((string-constant) (when (some (lambda (c) (zero? (char->integer c))) (string->list (expression-constant x))) (unimplemented x "Strings that contain ASCII NULs are not (yet) implemented")) (widen r (c:string (expression-constant x)) string-type?)) ((symbol-constant) (cond (*treat-all-symbols-as-external?* (unless (memq (expression-constant x) *symbols*) (set! *symbols* (append *symbols* (list (expression-constant x)))) (outside-main ;; needs work: needs abstraction for initialized declaration (semicolon-after (space-between *char* (unparenthesize (c:= (star-before (c:q (positionq (expression-constant x) *symbols*))) (c:string (symbol->string (expression-constant x))))))))) (widen r (c:q (positionq (expression-constant x) *symbols*)) (lambda (u) (and (external-symbol-type? u) (eq? (external-symbol-type-displaced-string-type u) ))))) (else (widen r 'void14 (internal-symbol-type-named? (expression-constant x)))))) ((pair-constant) ;; This is THE-MEMBER-THAT and not THE-MEMBER because when ;; *INDEX-CONSTANT-STRUCTURE-TYPES-BY-EXPRESSION?* is true the ;; expression type set might not be a singleton. (let ((u (the-member-that (lambda (u) (and (pair-type? u) (subtype-set? (expression-type-set (car (expression-constant x))) (pair-type-car u)) (subtype-set? (expression-type-set (cdr (expression-constant x))) (pair-type-cdr u)))) (expression-type-set x)))) (if (fictitious? u) (widen-type r 'void15 u) (let ((w1 (pair-type-car u)) (w2 (pair-type-cdr u))) (if (structure-type-immediate? u) (cond ((discard? r) (c:noop)) ((antecedent? r) (compile-goto (result-l1 r) (result-l0 r))) ((and (return? r) (not (result-accessed? r))) (compile-return r)) (else (newline-between (if (and (multimorphic? (result-type-set r)) (not (squeezed? (result-type-set r))) (not (squished? (result-type-set r)))) (c::= (c:tag (result-c r) (result-type-set r)) (c:type-tag u)) (c:noop)) (if (fictitious? w1) (c:noop) (compile (create-accessor-result w1 (value-car (result-c r) u (result-type-set r))) (car (expression-constant x)))) (if (fictitious? w2) (c:noop) (compile (create-accessor-result w2 (value-cdr (result-c r) u (result-type-set r))) (cdr (expression-constant x)))) (compile-return r)))) (let ((t (c:t *ti*))) (set! *ti* (+ *ti* 1)) (outside-main (semicolon-after (c:type& u t))) (unless (fictitious? w1) (inside-main (compile (create-accessor-result w1 (c:. t (c:s 0))) (car (expression-constant x))))) (unless (fictitious? w2) (inside-main (compile (create-accessor-result w2 (c:. t (c:s 1))) (cdr (expression-constant x))))) (widen-type r (c:& t) u))))))) ((vector-constant) ;; This is THE-MEMBER-THAT and not THE-MEMBER because when ;; *INDEX-CONSTANT-HEADED-VECTOR-TYPES-BY-EXPRESSION?* is true the ;; expression type set might not be a singleton. (let ((u (the-member-that (lambda (u) (and (headed-vector-type? u) (every-vector (lambda (x) (subtype-set? (expression-type-set x) (headed-vector-type-element u))) (expression-constant x)))) (expression-type-set x)))) (if (degenerate-vector-type? u) (widen-type r (c:fixnum (vector-length (expression-constant x))) u) ;; needs work: To use code-generation abstractions. (let ((t (c:t *ti*)) (w1 (headed-vector-type-element u))) (set! *ti* (+ *ti* 1)) (outside-main (semicolon-after (newline-between "struct" (space-between (braces-around (newline-between (semicolon-after (space-between *length* "length")) (semicolon-after (c:type-set w1 (c:raw-subscript "element" (c:fixnum (max 1 (vector-length (expression-constant x))))))))) t)))) (inside-main (c::= (c:. t "length") (c:fixnum (vector-length (expression-constant x))))) (for-each-n (lambda (i) (inside-main (compile (create-accessor-result w1 (c:subscript (c:. t "element") (c:fixnum i))) (vector-ref (expression-constant x) i)))) (vector-length (expression-constant x))) (widen-type r (c:type-cast (c:& t) u) u))))) ((lambda converted-lambda converted-continuation) (let ((u (the-member (expression-type-set x)))) (cond ((discard? r) (c:noop)) ((antecedent? r) (compile-goto (result-l1 r) (result-l0 r))) ((and (return? r) (not (result-accessed? r))) (compile-return r)) ((fictitious? u) (widen-type r 'void16 u)) (else (case *closure-representation* ((immediate-flat) (unimplemented x "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented x "Indirect flat closures are not (yet) implemented")) ((immediate-display) (when (or (squeezed? (result-type-set r)) (squished? (result-type-set r))) (fuck-up)) (newline-between (if (multimorphic? (result-type-set r)) (c::= (c:tag (result-c r) (result-type-set r)) (c:type-tag u)) (c:noop)) (newlines-between (map (lambda (e1) (c::= (c:. (c:value (result-c r) u (result-type-set r)) (c:e e1)) (if (eq? e1 e) (c:e e1) (c:. (c:p e) (c:e e1))))) (ancestors u))))) ((indirect-display) ;; needs work: To allocate the closure. (unimplemented x "Indirect display closures are not (yet) implemented") (when (or (squeezed? (result-type-set r)) (squished? (result-type-set r))) (fuck-up)) (newline-between (if (multimorphic? (result-type-set r)) (c::= (c:tag (result-c r) (result-type-set r)) (c:type-tag u)) (c:noop)) (newlines-between (map (lambda (e1) (c::= (c:-> (c:value (result-c r) u (result-type-set r)) (c:e e1)) (if (eq? e1 e) (c:e e1) (c:-> (c:p e) (c:e e1))))) (ancestors u))))) ((linked) (widen-type r (lambda-accessor u e) u)) (else (fuck-up))))))) ((set!) (newline-between (compile (if (and (or (local? (expression-variable x)) (global? (expression-variable x)) (slotted? (expression-variable x))) (nontrivial-reference? x) (executed? x)) (create-accessor-result (variable-type-set (expression-variable x)) (accessor (expression-variable x) e)) *discard*) (expression-source x)) (if (expression-returns? x) (compile-return r) (c:noop)))) ((if) (if (and (antecedent? r) (and-expression? x)) (if (reached? (expression-consequent x)) (if (reached? (expression-alternate x)) (let* ((l3 (allocate-label)) (c (compile-antecedent (expression-antecedent x) l3 (result-l2 r) l3))) (newline-between c (if (contains? c l3) (c:: l3) (c:noop)) (compile-antecedent (expression-consequent x) (result-l1 r) (result-l2 r) (result-l0 r)))) (let* ((l3 (allocate-label)) (c (compile-antecedent (expression-antecedent x) l3 #f l3))) (newline-between c (if (contains? c l3) (c:: l3) (c:noop)) (compile-antecedent (expression-consequent x) (result-l1 r) (result-l2 r) (result-l0 r))))) (if (reached? (expression-alternate x)) (compile-antecedent (expression-antecedent x) #f (result-l2 r) (result-l0 r)) (compile-antecedent (expression-antecedent x) #f #f (result-l0 r)))) (let ((w (expression-type-set (expression-antecedent x)))) (if (reached? (expression-consequent x)) (if (reached? (expression-alternate x)) (if (or (return? r) ;; needs work: This is an attempt to eliminate ;; the dead branch around the ;; alternate if the consequent is a ;; self tail call. But it sometimes ;; fails as in kilo/browse.sc. The ;; reason this fails is because the ;; consequent is not a self tail ;; call but an IF whose both reached ;; branches are self tail calls, a ;; call to an in in-lined procedure ;; whose body is a self tail call, ;; or some combination thereof. ;; Anyway, should also eliminate the ;; dead branch when the consequent ;; doesn't return as would be the ;; case if it were a call to a ;; continuation. ;; This can't be ANTECEDENT? here ;; because antecedent results can ;; fall through. (must-be-self-tail-call? (expression-consequent x))) (let* ((l1 (allocate-label)) (l2 (allocate-label)) (c (compile-antecedent (expression-antecedent x) l1 l2 l1))) (newline-between c (if (contains? c l1) (c:: l1) (c:noop)) (compile r (expression-consequent x)) (c:: l2) (compile r (expression-alternate x)))) (let* ((l1 (allocate-label)) (l2 (allocate-label)) (l3 (allocate-label)) (c (compile-antecedent (expression-antecedent x) l1 l2 l1))) (newline-between c (if (contains? c l1) (c:: l1) (c:noop)) (compile r (expression-consequent x)) (compile-goto l3 l2) (c:: l2) (compile r (expression-alternate x)) (c:: l3)))) (let* ((l1 (allocate-label)) (c (compile-antecedent (expression-antecedent x) l1 #f l1))) (newline-between c (if (contains? c l1) (c:: l1) (c:noop)) (compile r (expression-consequent x))))) (if (reached? (expression-alternate x)) (let* ((l1 (allocate-label)) (c (compile-antecedent (expression-antecedent x) #f l1 l1))) (newline-between c (if (contains? c l1) (c:: l1) (c:noop)) (compile r (expression-alternate x)))) (newline-between (compile-antecedent (expression-antecedent x) #f #f #f) (if (expression-returns? (expression-antecedent x)) (compile-error "void_if" x #t) (c:noop)))))))) ((primitive-procedure) (widen-type r 'void17 (the-member (expression-type-set x)))) ((foreign-procedure) (widen-type r 'void18 (the-member (expression-type-set x)))) ((access) (if (expression-accessed? x) (cond ((and (hidden? (expression-variable x)) (not (discard? r)) (not (antecedent? r))) (case *closure-representation* ((immediate-flat) (unimplemented x "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented x "Indirect flat closures are not (yet) implemented")) ((immediate-display) (when (or (squeezed? (result-type-set r)) (squished? (result-type-set r))) (fuck-up)) (let ((u (the-member (variable-type-set (expression-variable x))))) (newline-between (if (multimorphic? (result-type-set r)) (c::= (c:tag (result-c r) (result-type-set r)) (c:type-tag u)) (c:noop)) (newlines-between (map (lambda (e1) (c::= (c:. (c:value (result-c r) u (result-type-set r)) (c:e e1)) (if (eq? e1 e) (c:e e1) (c:. (c:p e) (c:e e1))))) (ancestors u)))))) ((indirect-display) ;; note: Accessing a hidden variable with indirect ;; display closures requires consing. ;; needs work: To allocate the closure. (unimplemented x "Indirect display closures are not (yet) implemented") (when (or (squeezed? (result-type-set r)) (squished? (result-type-set r))) (fuck-up)) (let ((u (the-member (variable-type-set (expression-variable x))))) (newline-between (if (multimorphic? (result-type-set r)) (c::= (c:tag (result-c r) (result-type-set r)) (c:type-tag u)) (c:noop)) (newlines-between (map (lambda (e1) (c::= (c:-> (c:value (result-c r) u (result-type-set r)) (c:e e1)) (if (eq? e1 e) (c:e e1) (c:-> (c:p e) (c:e e1))))) (ancestors u)))))) ((linked) (move-access r (accessor (expression-variable x) e) (variable-type-set (expression-variable x)) (expression-type-set x))) (else (fuck-up)))) (else (move-access r (if (or (fictitious? (variable-type-set (expression-variable x))) (hidden? (expression-variable x))) 'void19 (accessor (expression-variable x) e)) (variable-type-set (expression-variable x)) (expression-type-set x)))) (compile-return r))) ((call converted-call) (cond ((and (antecedent? r) (or-expression? x)) (let* ((u (the-member (expression-type-set (expression-callee x)))) (e0 (callee-environment u (create-call-site x))) (x0 (environment-expression e0)) (x1 (expression-body x0)) (x2 (first (expression-arguments x))) (e1 (expression-environment x))) (if (reached? (expression-consequent x1)) (if (reached? (expression-alternate x1)) (let* ((l3 (allocate-label)) (c (compile-antecedent x2 (result-l1 r) l3 l3))) (newline-between c (if (contains? c l3) (c:: l3) (c:noop)) (compile-initialize-region e0) (if (has-parent-parameter? e0) (case *closure-representation* ((immediate-flat) (unimplemented x "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented x "Indirect flat closures are not (yet) implemented")) ((immediate-display) (newlines-between (map (lambda (e) (c::= (c:. (c:p e0) (c:e e)) (if (eq? e e1) (c:e e) (c:. (c:p e1) (c:e e))))) (ancestors u)))) ((indirect-display) ;; needs work: To allocate the closure. (unimplemented x "Indirect display closures are not (yet) implemented") (newlines-between (map (lambda (e) (c::= (c:-> (c:p e0) (c:e e)) (if (eq? e e1) (c:e e) (c:-> (c:p e1) (c:e e))))) (ancestors u)))) ((linked) (c::= (c:p e0) (lambda-accessor u e))) (else (fuck-up))) (c:noop)) ;; needs work: There can be a memory leak here if E0 is ;; reentrant and has a region because there ;; is no (COMPILE-RESTORE E0). (compile-antecedent (expression-alternate x1) (result-l1 r) (result-l2 r) (result-l0 r)))) (compile-antecedent x2 (result-l1 r) #f (result-l0 r))) (if (reached? (expression-alternate x1)) (let* ((l3 (allocate-label)) (c (compile-antecedent x2 #f l3 l3))) (newline-between c (if (contains? c l3) (c:: l3) (c:noop)) (compile-initialize-region e0) (if (has-parent-parameter? e0) (case *closure-representation* ((immediate-flat) (unimplemented x "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented x "Indirect flat closures are not (yet) implemented")) ((immediate-display) (newlines-between (map (lambda (e) (c::= (c:. (c:p e0) (c:e e)) (if (eq? e e1) (c:e e) (c:. (c:p e1) (c:e e))))) (ancestors u)))) ((indirect-display) ;; needs work: To allocate the closure. (unimplemented x "Indirect display closures are not (yet) implemented") (newlines-between (map (lambda (e) (c::= (c:-> (c:p e0) (c:e e)) (if (eq? e e1) (c:e e) (c:-> (c:p e1) (c:e e))))) (ancestors u)))) ((linked) (c::= (c:p e0) (lambda-accessor u e))) (else (fuck-up))) (c:noop)) ;; needs work: There can be a memory leak here if E0 is ;; reentrant and has a region because there ;; is no (COMPILE-RESTORE E0). (compile-antecedent (expression-alternate x1) (result-l1 r) (result-l2 r) (result-l0 r)))) (compile-antecedent x2 #f #f (result-l0 r)))))) ((and (antecedent? r) (not-expression? x)) (compile-antecedent (first (expression-arguments x)) (result-l2 r) (result-l1 r) (result-l0 r))) (else (let* ((w0 (expression-type-set (expression-callee x))) (ws (map expression-type-set (expression-arguments x))) (t0 (allocate-temporary w0)) (ts (map allocate-temporary ws))) (newline-between ;; needs work: Should not evaluate any arguments if callee doesn't ;; return and should not evaluate an argument that ;; follows an argument that doesn't return. This ;; assumes a left-to-right evaluation order. As Olin ;; Shivers pointed out, since evaluation order is ;; unspecified you can abort if any subexpression ;; doesn't return. But given the way the propagator ;; works, we can only determine whether an expression ;; returns by asserting it as used. So we have to pick ;; some order and it might as well be left to right. ;; note: The callee is evaluated after the arguments in attempt to ;; match the Scheme->C argument evaluation order. (newlines-between ;; note: This is a kludge to reverse the evaluation order of ;; rest arguments in attempt to match the Scheme->C ;; argument evaluation order. ((if (and (monomorphic? w0) (native-procedure-type? (the-member w0)) (called? (the-member w0)) (rest? (the-member w0))) reverse identity) (map (lambda (w t x) (compile (if (expression-accessed? x) (create-accessor-result w t) *discard*) x)) ws ts (expression-arguments x)))) (compile (if (expression-accessed? (expression-callee x)) (create-accessor-result w0 t0) *discard*) (expression-callee x)) (if (executed? x) (if (void? w0) (compile-error "void_call" x #t) (type-switch (compatible-call? x) w0 r t0 (lambda (u0) (if (converted? x) (compile-converted-call r (create-call-site x) t0 u0 w0 ts ws 'void20 *null*) (compile-call r (create-call-site x) t0 u0 w0 #f #f ts ws 'void21 *null*))) (lambda (p?) (compile-error "call" x p?)))) (c:noop))))))) (else (fuck-up))))))) (define (compile-native-procedures) (newlines-between (map (lambda (e) (if (unique-call-site? e) (c:noop) (let ((x (environment-expression e))) (set! *outside-body* '()) ;; note: This can't be beta converted since it modifies ;; *OUTSIDE-BODY*. (let* ((c (compile (create-return-result e (expression-type-set (expression-body x))) (expression-body x))) (c (newline-between (apply c:header (c:f e) (compile-parameter-variables e)) (braces-around (newline-between (if (or (fictitious? (return-type-set e)) (not (expression-accessed? (expression-body (environment-expression e))))) (c:noop) (c:declaration (return-type-set e) (c:r e) (c:noop))) (if (environment-passes-parameters-globally? e) (newline-between (if (has-parent-parameter? e) ;; needs work: needs abstraction for initialized ;; declaration (semicolon-after (c:type (environment-type e) (unparenthesize (c:= (c:p e) (c:d e))))) (c:noop)) (newlines-between (map (lambda (g) (space-between ;; needs work: needs abstraction for initialized ;; declaration (semicolon-after (c:type-set (variable-type-set g) (unparenthesize (c:= (c:a g) (c:b g))))) (c:/**/ (symbol->string (variable-name g))))) (remove-if-not (lambda (g) (or (local? g) (slotted? g))) (variables e))))) (c:noop)) (newlines-between (map (lambda (e1) (if (and (not (noop? e1)) (has-region? e1) (reentrant? e1)) (semicolon-after (space-between (c:byte) (star-before (c:sfp e1)))) (c:noop))) ;; This assumes that the IN-LINED-IN? relation is ;; reflexive. (in-lined-environments e))) (compile-in-lined-variables e) (newlines-between (reverse *outside-body*)) (newlines-between (map (lambda (e1) (if (and (not (noop? e1)) (has-closure? e1)) (semicolon-after ;; needs work: To use code-generation ;; abstractions. (space-between "struct" (case *closure-representation* ((immediate-flat) (unimplemented x "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented x "Indirect flat closures are not (yet) implemented")) ((immediate-display) (c:e e1)) ((indirect-display) (c:e e1)) ((linked) (c:p e1)) (else (fuck-up))) (star-before (c:e e1)))) (c:noop))) ;; This assumes that the IN-LINED-IN? relation is ;; reflexive. (in-lined-environments e))) (newlines-between (map (lambda (e1) (if (and (not (noop? e1)) (has-parent-parameter? e1)) (semicolon-after (c:type (environment-type e1) (c:p e1))) (c:noop))) (properly-in-lined-environments e))) (compile-initialize-region e) ;; note: The self-tail-call entry point can't come after the ;; closure level allocation and spill since that would ;; unsoundly overwrite the existing closure. ;; cpstak.sc is an example of this. (if (has-self-tail-call? e) (c:: (c:h e)) (c:noop)) (if (has-closure? e) (newline-between (compile-allocate-closure-level e) (spill-slotted-variables e)) (c:noop)) c))))) (newline-between (if (or (substring? "/*" (environment-name e)) (substring? "*/" (environment-name e))) (c:noop) (c:/**/ (environment-name e))) (if (or (fictitious? (return-type-set e)) (not (expression-accessed? (expression-body (environment-expression e))))) ;; needs work: To use code-generation abstractions. (space-between "void" c) (c:type-set (return-type-set e) c))))))) *es*))) (define (compile-offsets) (let ((us (sort (remove-if (lambda (u) (zero? (type-use-count u))) (append (list ) *internal-symbol-types* *external-symbol-types* *primitive-procedure-types* *native-procedure-types* *foreign-procedure-types* *continuation-types* *string-types* *structure-types* *headed-vector-types* *nonheaded-vector-types* *displaced-vector-types*)) > type-use-count))) (newline-between (newlines-between (map-indexed (lambda (u i) (c:define (c:type-tag u) (c:fixnum (* (+ i (if *char-type-used?* 256 0)) (expt 2 *worst-alignment*))))) us)) (c:define (c:value-offset) (c:fixnum (* (+ (length us) (if *char-type-used?* 256 0)) (expt 2 *worst-alignment*)))) (if *char-type-used?* (c:define (c:char-offset) (c:fixnum (* 256 (expt 2 *worst-alignment*)))) (c:noop))))) (define (compile-constant-initialization-procedures) (newlines-between (map-n (lambda (i) (newline-between (space-between "void" (c:header (c:initialize-constants i))) (braces-around (newlines-between (sublist (reverse *inside-main*) (* *statements-per-constant-initialization-procedure* i) (min (* *statements-per-constant-initialization-procedure* (+ i 1)) (length *inside-main*))))))) (inexact->exact (ceiling (/ (length *inside-main*) (exact->inexact *statements-per-constant-initialization-procedure*))))))) (define (compile-constant-initialization-procedure-calls) (newlines-between (map-n (lambda (i) (c:gosub (c:initialize-constants i))) (inexact->exact (ceiling (/ (length *inside-main*) (exact->inexact *statements-per-constant-initialization-procedure*))))))) (define (compile-assertions) ;; needs work: To use code-generation abstractions. (newline-between (if *char-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *char* c))) (c:fixnum (expt 2 *char-alignment*)))) (c:noop)) (if *fixnum-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *fixnum* c))) (c:fixnum (expt 2 *fixnum-alignment*)))) (c:noop)) (if *flonum-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *flonum* c))) (c:fixnum (expt 2 *flonum-alignment*)))) (c:noop)) (if *rectangular-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between "struct" "rectangular" c))) (c:fixnum (expt 2 *flonum-alignment*)))) (c:noop)) (if *void*-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between "void" (star-before c)))) (c:fixnum (expt 2 *pointer-alignment*)))) (c:noop)) (if *char*-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *char* (star-before c)))) (c:fixnum (expt 2 *pointer-alignment*)))) (c:noop)) (if *file*-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *file* (star-before c)))) (c:fixnum (expt 2 *pointer-alignment*)))) (c:noop)) (if *jmpbuf*-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *jmpbuf* (star-before c)))) (c:fixnum (expt 2 *pointer-alignment*)))) (c:noop)) (if *length-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *length* c))) (c:fixnum (expt 2 *length-alignment*)))) (c:noop)) (if *tag-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *tag* c))) (c:fixnum (expt 2 *tag-alignment*)))) (c:noop)) (if *squished-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *squished* c))) (c:fixnum (expt 2 *squished-alignment*)))) (c:noop)) (if *file-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *file* c))) (c:fixnum (expt 2 *file-alignment*)))) (c:noop)) (if *jmpbuf-alignment?* (c:assert (c:== (c:alignof (lambda (c) (space-between *jmpbuf* c))) (c:fixnum (expt 2 *jmpbuf-alignment*)))) (c:noop)) (newlines-between (map (lambda (u) (c:assert (c:== (c:alignof (lambda (c) (c:type u c))) (c:fixnum (expt 2 (type-alignment u)))))) (append (remove-if-not native-procedure-type-alignment? *native-procedure-types*) (remove-if-not structure-type-alignment? *structure-types*) (remove-if-not headed-vector-type-alignment? *headed-vector-types*) (remove-if-not nonheaded-vector-type-alignment? *nonheaded-vector-types*) (remove-if-not displaced-vector-type-alignment? *displaced-vector-types*)))) (case *closure-representation* ((immediate-flat immediate-display) (c:noop)) ((indirect-flat indirect-display) (newlines-between (map (lambda (u) (c:assert (c:== (c:alignof (lambda (c) (space-between "struct" (c:p u) c))) (c:fixnum (expt 2 (type-alignment& u)))))) (remove-if-not native-procedure-type-alignment&? *native-procedure-types*)))) ((linked) (newlines-between (map (lambda (e) (if (and (or (eq? *closure-conversion-method* 'baseline) (eq? *closure-conversion-method* 'conventional)) (not (environment? e))) (c:noop) (c:assert (c:== (c:alignof (lambda (c) (space-between "struct" (c:p e) c))) (c:fixnum (expt 2 (type-alignment& (find-if (lambda (u) (and (called? u) (not (noop? u)) (has-parent-parameter? u) (eq? e (parent-parameter u)))) *native-procedure-types*)))))))) (remove-duplicatesq (map parent-parameter (remove-if-not native-procedure-type-alignment&? ;; This is just because of *CLOSURE-CONVERSION-METHOD*. (remove-if (lambda (u) (or (not (called? u)) (noop? u))) *native-procedure-types*))))))) (else (fuck-up))) (newlines-between (map (lambda (u) (if (and (or (eq? *closure-conversion-method* 'baseline) (eq? *closure-conversion-method* 'conventional)) (or (not (environment? (native-procedure-type-narrow-prototype u))) (not (environment-used? (narrow-prototype u))) (not (environment? (parent-parameter u))) (not (environment-used? (parent-parameter u))))) (c:noop) (c:assert (c:== (c:alignof (lambda (c) (space-between "struct" (case *closure-representation* ((immediate-flat immediate-display) (fuck-up)) ((indirect-flat indirect-display) (c:p u)) ((linked) (c:p (parent-parameter u))) (else (fuck-up))) c))) (c:fixnum (expt 2 (type-alignment& u))))))) (remove-if-not native-procedure-type-alignment&? *native-procedure-types*))) (newlines-between (map (lambda (u) (c:assert (c:== (c:alignof (lambda (c) (c:type& u c))) (c:fixnum (expt 2 (type-alignment& u)))))) (remove-if-not structure-type-alignment&? *structure-types*))) (newlines-between (map (lambda (u) (c:assert (c:== (c:alignof (lambda (c) (space-between "struct" (c:u u) c))) (c:fixnum (expt 2 (type-alignment& u)))))) (remove-if-not headed-vector-type-alignment&? *headed-vector-types*))) (newlines-between (map (lambda (w) (c:assert (c:== (c:alignof (lambda (c) (c:type-set w c))) (c:fixnum (expt 2 (type-set-alignment w)))))) (remove-if-not type-set-alignment? *ws*))) (if *char-size?* (c:assert (c:== (c:sizeof *char*) (c:fixnum *char-size*))) (c:noop)) (if *fixnum-size?* (c:assert (c:== (c:sizeof *fixnum*) (c:fixnum *fixnum-size*))) (c:noop)) (if *flonum-size?* (c:assert (c:== (c:sizeof *flonum*) (c:fixnum *flonum-size*))) (c:noop)) (if *rectangular-size?* (c:assert (c:== (c:sizeof (list "struct" "rectangular")) (c:fixnum (* 2 *flonum-size*)))) (c:noop)) (if *void*-size?* (c:assert (c:== (c:sizeof (space-between "void" "*")) (c:fixnum *pointer-size*))) (c:noop)) (if *char*-size?* (c:assert (c:== (c:sizeof (space-between *char* "*")) (c:fixnum *pointer-size*))) (c:noop)) (if *file*-size?* (c:assert (c:== (c:sizeof (space-between *file* "*")) (c:fixnum *pointer-size*))) (c:noop)) (if *jmpbuf*-size?* (c:assert (c:== (c:sizeof (space-between *jmpbuf* "*")) (c:fixnum *pointer-size*))) (c:noop)) (if *length-size?* (c:assert (c:== (c:sizeof *length*) (c:fixnum *length-size*))) (c:noop)) (if *tag-size?* (c:assert (c:== (c:sizeof *tag*) (c:fixnum *tag-size*))) (c:noop)) (if (and *squish?* *squished-size?*) (c:assert (c:== (c:sizeof *squished*) (c:fixnum *squished-size*))) (c:noop)) (if (and *squish?* *squished-size?*) (c:assert (c:== (c:sizeof *signed-squished*) (c:fixnum *squished-size*))) (c:noop)) (newlines-between (map (lambda (u) (c:assert (c:== (c:sizeof (c:type u "")) (c:fixnum (type-size u))))) (append (remove-if-not native-procedure-type-size? *native-procedure-types*) (remove-if-not structure-type-size? *structure-types*) (remove-if-not headed-vector-type-size? *headed-vector-types*) (remove-if-not nonheaded-vector-type-size? *nonheaded-vector-types*) (remove-if-not displaced-vector-type-size? *displaced-vector-types*)))) (newlines-between (map (lambda (w) (c:assert (c:== (c:sizeof (c:type-set w "")) (c:fixnum (type-set-size w))))) (remove-if-not type-set-size? *ws*))))) (define-structure primitive-procedure compatible-procedure? truly-compatible-procedure? consequent-contexts alternate-contexts propagate-call! promote! compile-call) (define *primitive-procedure-handlers* '()) (define (zero-arguments-compatible? u0 ws w) (when (can-be-non? null-type? w) (fuck-up)) (= (length ws) 0)) (define (one-argument-compatible? u0 ws w) (when (can-be-non? null-type? w) (fuck-up)) (= (length ws) 1)) (define (two-arguments-compatible? u0 ws w) (when (can-be-non? null-type? w) (fuck-up)) (= (length ws) 2)) (define (three-arguments-compatible? u0 ws w) (when (can-be-non? null-type? w) (fuck-up)) (= (length ws) 3)) (define (n-arguments-compatible? u0 ws w) (when (can-be-non? null-type? w) (fuck-up)) (= (length ws) (second (primitive-procedure-type-arguments u0)))) (define (one-or-two-arguments-compatible? u0 ws w) (when (can-be-non? null-type? w) (fuck-up)) (or (one-argument-compatible? u0 ws w) (two-arguments-compatible? u0 ws w))) (define (zero-or-more-arguments-compatible? u0 ws w) (when (can-be-non? null-type? w) (fuck-up)) (>= (length ws) 0)) (define (one-or-more-arguments-compatible? u0 ws w) (when (can-be-non? null-type? w) (fuck-up)) (>= (length ws) 1)) (define (two-or-more-arguments-compatible? u0 ws w) (when (can-be-non? null-type? w) (fuck-up)) (>= (length ws) 2)) (define (zero-arguments-truly-compatible?) (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) #t)) (define (one-argument-truly-compatible? m) (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (and (= (length ws) 1) (can-be? m (first ws))))) (define (two-arguments-truly-compatible? m1 m2) (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (and (= (length ws) 2) (can-be? m1 (first ws)) (can-be? m2 (second ws))))) (define (three-arguments-truly-compatible? m1 m2 m3) (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (and (= (length ws) 3) (can-be? m1 (first ws)) (can-be? m2 (second ws)) (can-be? m3 (third ws))))) (define (n-arguments-truly-compatible?) (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) #t)) (define (one-or-two-arguments-truly-compatible? m1 m2) (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (or (and (= (length ws) 1) (can-be? m1 (first ws))) (and (= (length ws) 2) (can-be? m1 (first ws)) (can-be? m2 (second ws)))))) (define (all-arguments-truly-compatible? m) (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (every (lambda (w) (can-be? m w)) ws))) (define (zero-arguments-propagate! p) ;; conventions: P (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (unless (= (length ws) 0) (fuck-up)) (p))) (define (one-argument-propagate! p) ;; conventions: P (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (unless (= (length ws) 1) (fuck-up)) (p (first ws)))) (define (two-arguments-propagate! p) ;; conventions: P (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (unless (= (length ws) 2) (fuck-up)) (p (first ws) (second ws)))) (define (three-arguments-propagate! p) ;; conventions: P (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (unless (= (length ws) 3) (fuck-up)) (p (first ws) (second ws) (third ws)))) (define (n-arguments-propagate! p) ;; conventions: P (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (p ws))) (define (one-or-two-arguments-propagate! p1 p2) ;; conventions: P1 P2 (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (cond ((= (length ws) 1) (p1 (first ws))) ((= (length ws) 2) (p2 (first ws) (second ws))) (else (fuck-up))))) (define (all-arguments-propagate! p) ;; conventions: P (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (p ws))) ;;; needs work: Every instance of WIDEN and WIDEN-TYPE in this file must be ;;; checked for the case when the RESULT-KIND is DISCARD or ;;; ANTECEDENT. If the generated C code could raise an exception ;;; then one should use the strict option (P?=#F) to MOVE-GENERAL. ;;; This is technically not required by R4RS. (define-primitive-procedure structure? one-argument-compatible? (one-argument-truly-compatible? type?) (list (structure-type-named? (first (primitive-procedure-type-arguments u0)))) (list (lambda (u) (not ((structure-type-named? (first (primitive-procedure-type-arguments u0))) u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? (structure-type-named? (first (primitive-procedure-type-arguments u0))) w1) (can-be-non? (structure-type-named? (first (primitive-procedure-type-arguments u0))) w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! (structure-type-named? (first (primitive-procedure-type-arguments u0)))))) #f (compile-type-predicate (structure-type-named? (first (primitive-procedure-type-arguments u0))))) (define-primitive-procedure make-structure n-arguments-compatible? (n-arguments-truly-compatible?) (map-n (lambda (i) type?) n) (map-n (lambda (i) type?) n) (n-arguments-propagate! (lambda (ws) (propagate-result! ( (first (primitive-procedure-type-arguments u0)) (second (primitive-procedure-type-arguments u0)) ;; note: This is suboptimal since type propagation is not yet ;; complete and APPLY-CLOSED-WORLD-ASSUMPTION! has not ;; been done yet. (map members ws) (call-site-expression y))))) (unless (or (discard? r) (antecedent? r) (and (return? r) (not (result-accessed? r)))) (let* ((w (result-type-set r)) (u (the-member-that (lambda (u) (and ((structure-type-named? (first (primitive-procedure-type-arguments u0))) u) (memq (call-site-expression y) (structure-type-allocating-expressions u)))) w))) (unless (fictitious? u) (for-each (lambda (w0 i w1) (promote! (if (fictitious? w0) *discard* (create-accessor-result w0 #f)) w1 w1)) (structure-type-slots u) (enumerate (length (structure-type-slots u))) ws)))) (cond ((discard? r) (c:noop)) ((antecedent? r) (return-true r)) ((and (return? r) (not (result-accessed? r))) (compile-return r)) (else (let* ((c (result-c r)) (w (result-type-set r)) (u (the-member-that (lambda (u) (and ((structure-type-named? (first (primitive-procedure-type-arguments u0))) u) (memq (call-site-expression y) (structure-type-allocating-expressions u)))) w))) (if (fictitious? u) (widen-type r 'void22 u) (newline-between (compile-allocate-structure c u w y) (newlines-between (map (lambda (w0 i t1 w1) (move (if (fictitious? w0) *discard* (create-accessor-result w0 (value-structure-ref c u w i))) t1 w1)) (structure-type-slots u) (enumerate (length (structure-type-slots u))) ts ws)) (compile-return r))))))) (define-primitive-procedure structure-ref one-argument-compatible? (one-argument-truly-compatible? (structure-type-named? (first (primitive-procedure-type-arguments u0)))) (list (structure-type-named? (first (primitive-procedure-type-arguments u0)))) (list (structure-type-named? (first (primitive-procedure-type-arguments u0)))) (one-argument-propagate! (lambda (w1) (for-each-member (lambda (u1) (when ((structure-type-named? (first (primitive-procedure-type-arguments u0))) u1) (list-set! (structure-type-structure-ref-accessed? u1) (second (primitive-procedure-type-arguments u0)) #t) (for-each-member propagate-result! (list-ref (structure-type-slots u1) (second (primitive-procedure-type-arguments u0)))))) w1))) (for-each-member (lambda (u1) (when ((structure-type-named? (first (primitive-procedure-type-arguments u0))) u1) (promote! r (list-ref (structure-type-slots u1) (second (primitive-procedure-type-arguments u0))) (list-ref (structure-type-slots u1) (second (primitive-procedure-type-arguments u0)))))) w1) (type-switch (structure-type-named? (first (primitive-procedure-type-arguments u0))) w1 r t1 (lambda (u1) (move r (value-structure-ref t1 u1 w1 (second (primitive-procedure-type-arguments u0))) (list-ref (structure-type-slots u1) (second (primitive-procedure-type-arguments u0))))) (lambda (p?) (compile-error "structure_ref" y p?)))) (define-primitive-procedure structure-set! two-arguments-compatible? (two-arguments-truly-compatible? (structure-type-named? (first (primitive-procedure-type-arguments u0))) type?) (list (structure-type-named? (first (primitive-procedure-type-arguments u0))) type?) (list (structure-type-named? (first (primitive-procedure-type-arguments u0))) type?) (two-arguments-propagate! (lambda (w1 w2) (for-each-member (lambda (u1) (when ((structure-type-named? (first (primitive-procedure-type-arguments u0))) u1) (set-structure-type-immediate?! u1 #f) (assert-subset! w2 (list-ref (structure-type-slots u1) (second (primitive-procedure-type-arguments u0)))))) w1))) (for-each-member (lambda (u1) (when ((structure-type-named? (first (primitive-procedure-type-arguments u0))) u1) (promote! (if (fictitious? (list-ref (structure-type-slots u1) (second (primitive-procedure-type-arguments u0)))) *discard* (create-accessor-result (list-ref (structure-type-slots u1) (second (primitive-procedure-type-arguments u0))) #f)) w2 w2))) w1) (type-switch (structure-type-named? (first (primitive-procedure-type-arguments u0))) w1 r t1 (lambda (u1) (newline-between (move (if (fictitious? (list-ref (structure-type-slots u1) (second (primitive-procedure-type-arguments u0)))) *discard* (create-accessor-result (list-ref (structure-type-slots u1) (second (primitive-procedure-type-arguments u0))) (value-structure-ref t1 u1 w1 (second (primitive-procedure-type-arguments u0))))) t2 w2) (compile-return r))) (lambda (p?) (compile-error "structure_set" y p?)))) (define-primitive-procedure not one-argument-compatible? (one-argument-truly-compatible? type?) (list false-type?) (list (lambda (u) (not (false-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? false-type? w1) (can-be-non? false-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! false-type?))) #f (compile-type-predicate false-type?)) (define-primitive-procedure boolean? one-argument-compatible? (one-argument-truly-compatible? type?) (list boolean-type?) (list (lambda (u) (not (boolean-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? boolean-type? w1) (can-be-non? boolean-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! boolean-type?))) #f (compile-type-predicate boolean-type?)) (define-primitive-procedure eq? two-arguments-compatible? (two-arguments-truly-compatible? type? type?) (list type? type?) (list type? type?) (two-arguments-propagate! (lambda (w1 w2) (let ((p0? (and (not (void? w1)) (not (void? w2)) (or ;; This is suboptimal. W1 or W2 might have multiple members now ;; that will be merged into a monotype by ;; APPLY-CLOSED-WORLD-ASSUMPTION!. (multimorphic? w1) (multimorphic? w2) ;; This is suboptimal. A structure or a native procedure might ;; in the end be fictitious but we can't know that at this ;; point. (not (necessarily-fictitious? (the-member w1))) (not (necessarily-fictitious? (the-member w2))) ;; This is suboptimal. The members of W1 and W2 might be ;; equated by APPLY-CLOSED-WORLD-ASSUMPTION!. (not (eq? (the-member w1) (the-member w2)))))) ;; needs work: This is unsound. There might be a U1 in W1 and a U2 in ;; W2 that are not EQ? but that will become EQ? as a ;; result of APPLY-CLOSED-WORLD-ASSUMPTION!. (p1? (can-be? (lambda (u1) (member? u1 w2)) w1))) (when p1? (propagate-result! )) (when p0? (propagate-result! )) (when (and p0? p1?) (for-each-member (lambda (u1) (set-type-eq?-accessed?! u1 #t)) w1) (for-each-member (lambda (u2) (set-type-eq?-accessed?! u2 #t)) w2) (for-each-member (lambda (u1) (when (structure-type? u1) (set-structure-type-immediate?! u1 #f))) w1) (for-each-member (lambda (u2) (when (structure-type? u2) (set-structure-type-immediate?! u2 #f))) w2))))) #f (let ((us (intersectionq (members w1) (members w2)))) (if (or (null? us) (cond ((converted? y) (unless (and (eq? (expression-kind (call-site-expression y)) 'converted-call) (eq? (expression-kind (expression-callee (call-site-expression y))) 'converted-continuation) (list? (expression-parameters (expression-callee (call-site-expression y)))) (not (null? (expression-parameters (expression-callee (call-site-expression y)))))) (fuck-up)) (must-be? false-type? (variable-type-set (first (expression-parameters (expression-callee (call-site-expression y))))))) (else (must-be? false-type? (expression-type-set (call-site-expression y)))))) (return-false r) (cond ((fake? w1) (cond ((fake? w2) ;; Must be true since fictitious type sets are monotypes and the ;; intersection is non empty. (return-true r)) ((monomorphic? w2) ;; Nonfictitious monotypes are disjoint with fictitious type ;; sets. (fuck-up)) ((tag-only? w2) (compile-test r (c:== (c:type-tag (the-member w1)) (c:tag t2 w2)))) ((squeezed? w2) ;; Rectangulars, immediate closures, nonfictitious immediate ;; structures, nondegenerate nonheaded vectors, and ;; nondegenerate displaced vectors can't be squeezed so there ;; is no need to handle == on structs. (compile-test r (c:== (c:type-set-cast (c:type-tag (the-member w1)) w2) t2))) ((squished? w2) ;; Rectangulars, immediate closures, nonfictitious immediate ;; structures, nondegenerate nonheaded vectors, and ;; nondegenerate displaced vectors can't be squished so there ;; is no need to handle == on structs. (compile-test r (c:== (c:type-set-cast (c:type-tag (the-member w1)) w2) t2))) (else (compile-test r (c:== (c:type-tag (the-member w1)) (c:tag t2 w2)))))) ((monomorphic? w1) (compile-test r (cond ((fake? w2) ;; Nonfictitious monotypes are disjoint with fictitious type sets. (fuck-up)) ((monomorphic? w2) (c:==struct (c:value t1 (the-member w1) w1) (c:value t2 (the-member w2) w2) (the-member w1))) ((tag-only? w2) ;; CHAR is the only fictitious type that can be a nonfictitious ;; monotype. (unless (char-type? (the-member w1)) (fuck-up)) ;; Must cast T1 to be a type and not cast T2 to be a char since T2 ;; could have other tags in it besides characters. ;; This assumes that *TAG* is unsigned so that << does a logical ;; shift. The call to C:UNSIGNED-CHAR-CAST is in case *CHAR* is ;; signed to force << to be a logical shift without a prior sign ;; extend. The call to C:TYPE-SET-CAST is to prevent any overflow ;; in the logical shift. (c:== (c:<< (c:type-set-cast (c:unsigned-char-cast (c:value t1 (the-member w1) w1)) w2) (c:fixnum *worst-alignment*)) (c:tag t2 w2))) ((squeezed? w2) ;; Rectangulars, immediate closures, nonfictitious immediate ;; structures, nondegenerate nonheaded vectors, and nondegenerate ;; displaced vectors can't be squeezed so there is no need to ;; handle == on structs. (c:== (squeeze t1 (the-member w1) w2) t2)) ((squished? w2) ;; Rectangulars, immediate closures, nonfictitious immediate ;; structures, nondegenerate nonheaded vectors, and nondegenerate ;; displaced vectors can't be squeezed so there is no need to ;; handle == on structs. (c:== (squish t1 (the-member w1) w2) t2)) (else (if (char-type? (the-member w1)) (c:== (c:value t1 (the-member w1) w1) (c:value t2 (the-member w1) w2)) (c:&& (c:== (c:type-tag (the-member w1)) (c:tag t2 w2)) (c:==struct (c:value t1 (the-member w1) w1) (c:value t2 (the-member w1) w2) (the-member w1)))))))) ((tag-only? w1) (compile-test r (cond ((fake? w2) (c:== (c:tag t1 w1) (c:type-tag (the-member w2)))) ((monomorphic? w2) ;; CHAR is the only fictitious type that can be a nonfictitious ;; monotype. (unless (char-type? (the-member w2)) (fuck-up)) ;; Must cast T2 to be a type and not cast T1 to be a char since T1 ;; could have other tags in it besides characters. ;; This assumes that *TAG* is unsigned so that << does a logical ;; shift. The call to C:UNSIGNED-CHAR-CAST is in case *CHAR* is ;; signed to force << to be a logical shift without a prior sign ;; extend. The call to C:TYPE-SET-CAST is to prevent any overflow ;; in the logical shift. (c:== (c:tag t1 w1) (c:<< (c:type-set-cast (c:unsigned-char-cast (c:value t2 (the-member w2) w2)) w1) (c:fixnum *worst-alignment*)))) ((tag-only? w2) (c:== (c:tag t1 w1) (c:tag t2 w2))) ((squeezed? w2) ;; Rectangulars, immediate closures, nonfictitious immediate ;; structures, nondegenerate nonheaded vectors, and nondegenerate ;; displaced vectors can't be squeezed so there is no need to ;; handle == on structs. (c:== (c:tag->squeezed-cast t1 w1 w2) t2)) ((squished? w2) ;; Rectangulars, immediate closures, nonfictitious immediate ;; structures, nondegenerate nonheaded vectors, and nondegenerate ;; displaced vectors can't be squished so there is no need to ;; handle == on structs. (c:== (c:type-set-cast (c:tag t1 w1) w2) t2)) (else (c:== (c:tag t1 w1) (c:tag t2 w2)))))) ((squeezed? w1) ;; Rectangulars, immediate closures, nonfictitious immediate ;; structures, nondegenerate nonheaded vectors, and nondegenerate ;; displaced vectors can't be squeezed so there is no need to handle ;; == on structs. (compile-test r (cond ((fake? w2) (c:== t1 (c:type-set-cast (c:type-tag (the-member w2)) w1))) ((monomorphic? w2) (c:== t1 (squeeze t2 (the-member w2) w1))) ((tag-only? w2) (c:== t1 (c:tag->squeezed-cast t2 w2 w1))) ((squeezed? w2) (if (eq? (squeezed-member w1) (squeezed-member w2)) (c:== t1 t2) (c:== (c:type-set-cast t1 w2) t2))) ((squished? w2) (if (can-be? (lambda (u1) (and (or (char-type? u1) (fictitious? u1)) (member? u1 w2))) w1) (if (member? (squeezed-member w1) w2) ;; The two type sets share both fictitious and ;; nonfictitious members. (if (zero? (squish-tag (squeezed-member w1) w2)) ;; In this case the matching nonfictitious members have ;; squish tag zero so checking for matching fictitious ;; and nonfictitious members can be done with a single ;; comparison. (c:== (c:type-set-cast t1 w2) t2) ;; In the general case need to check for either matching ;; fictitious or nonfictitious members. (c:boolean-or ;; This checks for matching fictitious members. (c:== (c:type-set-cast t1 w2) t2) ;; This checks for matching nonfictitious members. (c:== (squish t1 (squeezed-member w1) w2) t2))) ;; The two type sets share only fictitious members. ;; Note that the squeezed argument will always have squish ;; tag zero (as a natural consequence of the squeezed ;; representation) and the squished argument will have ;; squish tag zero only when it is a pointer and not a ;; fixnum so there can't be a mixup. (c:== (c:type-set-cast t1 w2) t2)) (if (member? (squeezed-member w1) w2) ;; The two type sets share only nonfictitious members. This ;; makes sure that the two arguments have squish tags prior ;; to comparison. (c:== (squish t1 (squeezed-member w1) w2) t2) ;; The two type sets don't share any members. (fuck-up)))) (else (cond ((every (lambda (u) (or (char-type? u) (fictitious? u))) us) ;; In the case where the only possible match is for ;; nonfictitious variants it is not necessary to check for ;; matches along fictitious variants. (c:&& (c:== (c:tag t2 w2) (c:type-tag (squeezed-member w1))) (c:== t1 (c:value t2 (squeezed-member w1) w2)))) ((some (lambda (u) (or (char-type? u) (fictitious? u))) us) (c:boolean-or (c:== t1 (c:tag->squeezed-cast t2 w2 w1)) (c:&& (c:== (c:tag t2 w2) (c:type-tag (squeezed-member w1))) (c:== t1 (c:value t2 (squeezed-member w1) w2))))) ;; In the case where the only possible match is for fictitious ;; variants it is not necessary to check for matches along ;; nonfictitious variants. (else (c:== t1 (c:tag->squeezed-cast t2 w2 w1)))))))) ((squished? w1) ;; Rectangulars, immediate closures, nonfictitious immediate ;; structures, nondegenerate nonheaded vectors, and nondegenerate ;; displaced vectors can't be squished so there is no need to handle ;; == on structs. (compile-test r (cond ((fake? w2) (c:== t1 (c:type-set-cast (c:type-tag (the-member w2)) w1))) ((monomorphic? w2) (c:== t1 (squish t2 (the-member w2) w1))) ((tag-only? w2) (c:== t1 (c:type-set-cast (c:tag t2 w2) w1))) ((squeezed? w2) (if (can-be? (lambda (u2) (and (or (char-type? u2) (fictitious? u2)) (member? u2 w1))) w2) (if (member? (squeezed-member w2) w1) ;; The two type sets share both fictitious and nonfictitious ;; members. (if (zero? (squish-tag (squeezed-member w2) w1)) ;; In this case the matching nonfictitious members have ;; squish tag zero so checking for matching fictitious ;; and nonfictitious members can be done with a single ;; comparison. (c:== t1 (c:type-set-cast t2 w1)) ;; In the general case need to check for matching ;; fictitious and nonfictitious members. (c:boolean-or ;; This checks for matching fictitious members. (c:== t1 (c:type-set-cast t2 w1)) ;; This checks for matching nonfictitious members. (c:== t1 (squish t2 (squeezed-member w2) w1)))) ;; The two type sets share only fictitious members. ;; Note that the squeezed argument will always have squish ;; tag zero (as a natural consequence of the squeezed ;; representation) and the squished argument will have ;; squish tag zero only when it is a pointer and not a ;; fixnum so there can't be a mixup. (c:== t1 (c:type-set-cast t2 w1))) (if (member? (squeezed-member w2) w1) ;; The two type sets share only nonfictitious members. This ;; makes sure that the two arguments have squish tags prior ;; to comparison. (c:== t1 (squish t2 (squeezed-member w2) w1)) ;; The two type sets don't share any members. (fuck-up)))) ((squished? w2) (cond ((and (every (lambda (u) (or (char-type? u) (fictitious? u) (= (squish-tag u w1) (squish-tag u w2)))) us) (= (squish-alignment w1) (squish-alignment w2))) (c:== t1 t2)) ((and (must-be? (lambda (u1) (or (char-type? u1) (fictitious? u1) (member? u1 w2))) w1) (must-be? (lambda (u2) (or (char-type? u2) (fictitious? u2) (member? u2 w1))) w2)) (c:== t1 t2)) ((some (lambda (u) (or (char-type? u) (fictitious? u))) us) (apply c:boolean-or (cons (if (and (can-be? (lambda (u1) (and (not (char-type? u1)) (not (fictitious? u1)) (zero? (squish-tag u1 w1)))) w1) (can-be? (lambda (u2) (and (not (char-type? u2)) (not (fictitious? u2)) (zero? (squish-tag u2 w2)))) w2)) (c:&& (c:==0 (extract-squish-tag t1 w1)) (c:< t1 (c:value-offset)) (c:== t1 t2)) (c:&& (c:==0 (extract-squish-tag t1 w1)) (c:== t1 t2))) (map (lambda (u) (if (= (squish-tag u w1) (squish-tag u w2)) (c:&& (c:== (extract-squish-tag t1 w1) (c:fixnum (squish-tag u w1))) (c:== t1 t2)) (c:&& (c:== (extract-squish-tag t1 w1) (c:fixnum (squish-tag u w1))) (c:== (extract-squish-tag t2 w2) (c:fixnum (squish-tag u w2))) (c:== (c:value t1 u w1) (c:value t2 u w2))))) (remove-if (lambda (u) (or (char-type? u) (fictitious? u))) us))))) (else (apply c:boolean-or (map (lambda (u) (if (= (squish-tag u w1) (squish-tag u w2)) (c:&& (c:== (extract-squish-tag t1 w1) (c:fixnum (squish-tag u w1))) (c:== t1 t2)) (c:&& (c:== (extract-squish-tag t1 w1) (c:fixnum (squish-tag u w1))) (c:== (extract-squish-tag t2 w2) (c:fixnum (squish-tag u w2))) (c:== (c:value t1 u w1) (c:value t2 u w2))))) us))))) (else (apply c:boolean-or (cons (c:== t1 (c:type-set-cast (c:tag t2 w2) w1)) (map (lambda (u) (c:&& (c:== (c:type-tag u) (c:tag t2 w2)) (c:== (c:value t1 u w1) (c:value t2 u w2)))) (remove-if (lambda (u) (or (char-type? u) (fictitious? u))) us)))))))) (else (cond ((fake? w2) (compile-test r (c:== (c:tag t1 w1) (c:type-tag (the-member w2))))) ((monomorphic? w2) (compile-test r (if (char-type? (the-member w2)) (c:== (c:value t1 (the-member w2) w1) (c:value t2 (the-member w2) w2)) (c:&& (c:== (c:tag t1 w1) (c:type-tag (the-member w2))) (c:==struct (c:value t1 (the-member w2) w1) (c:value t2 (the-member w2) w2) (the-member w2)))))) ((tag-only? w2) (compile-test r (c:== (c:tag t1 w1) (c:tag t2 w2)))) ((squeezed? w2) ;; Rectangulars, immediate closures, nonfictitious immediate ;; structures, nondegenerate nonheaded vectors, and nondegenerate ;; displaced vectors can't be squeezed so there is no need to handle ;; == on structs. (compile-test r (cond ((every (lambda (u) (or (char-type? u) (fictitious? u))) us) ;; In the case where the only possible match is for nonfictitious ;; variants it is not necessary to check for matches along ;; fictitious variants. (c:&& (c:== (c:tag t1 w1) (c:type-tag (squeezed-member w2))) (c:== (c:value t1 (squeezed-member w2) w1) t2))) ((some (lambda (u) (or (char-type? u) (fictitious? u))) us) (c:boolean-or (c:== (c:tag->squeezed-cast t1 w1 w2) t2) (c:&& (c:== (c:tag t1 w1) (c:type-tag (squeezed-member w2))) (c:== (c:value t1 (squeezed-member w2) w1) t2)))) ;; In the case where the only possible match is for fictitious ;; variants it is not necessary to check for matches along ;; nonfictitious variants. (else (c:== (c:tag->squeezed-cast t1 w1 w2) t2))))) ((squished? w2) ;; Rectangulars, immediate closures, nonfictitious immediate ;; structures, nondegenerate nonheaded vectors, and nondegenerate ;; displaced vectors can't be squished so there is no need to handle ;; == on structs. (compile-test r (apply c:boolean-or (cons (c:== (c:type-set-cast (c:tag t1 w1) w2) t2) (map (lambda (u) (c:&& (c:== (c:tag t1 w1) (c:type-tag u)) (c:== (c:value t1 u w1) (c:value t2 u w2)))) (remove-if (lambda (u) (or (char-type? u) (fictitious? u))) us)))))) (else (if (every (lambda (u) (or (char-type? u) (fictitious? u))) us) ;; In the case where the only possible match is for fictitious ;; variants it is not necessary to check for matches along ;; nonfictitious variants. (compile-test r (c:== (c:tag t1 w1) (c:tag t2 w2))) (if (and *eq?-forgery?* (= (type-set-size w1) (type-set-size w2))) (let* ((size (reduce max (map type-size (members-that (lambda (u) (and (not (char-type? u)) (not (fictitious? u)))) w1)) ;; This can't happen if the type set isn't ;; fictitious, monomorphic, or tag only. #f)) (fixnum-size (quotient size *fixnum-size*)) (char-size (remainder size *fixnum-size*))) ;; conventions: SIZE FIXNUM-SIZE CHAR-SIZE (compile-test r (apply c:&& (cons (c:== (c:tag t1 w1) (c:tag t2 w2)) (append (map-n (lambda (i) (c:== (c:raw-subscript (c:fixnum*-cast (c:& (c:. t1 "value"))) (c:fixnum i)) (c:raw-subscript (c:fixnum*-cast (c:& (c:. t2 "value"))) (c:fixnum i)))) fixnum-size) (map-n (lambda (i) (c:== (c:raw-subscript (c:char*-cast (c:& (c:. t1 "value"))) (c:fixnum (+ (* fixnum-size *fixnum-size*) i))) (c:raw-subscript (c:char*-cast (c:& (c:. t2 "value"))) (c:fixnum (+ (* fixnum-size *fixnum-size*) i))))) char-size)))))) (newline-between (c:/**/ "EQ: dispatching general to general") (c:if (c:== (c:tag t1 w1) (c:tag t2 w2)) (nonerror-type-switch (lambda (u1) (and (not (char-type? u1)) (not (fictitious? u1)))) w1 r t1 (lambda (u1) (if (member? u1 w2) (compile-test r (c:==struct (c:value t1 u1 w1) (c:value t2 u1 w2) u1)) (return-false r))) (lambda (p?) (return-true r))) (return-false r) #f))))))))))) (define-primitive-procedure null? one-argument-compatible? (one-argument-truly-compatible? type?) (list null-type?) (list (lambda (u) (not (null-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? null-type? w1) (can-be-non? null-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! null-type?))) #f (compile-type-predicate null-type?)) (define-primitive-procedure symbol? one-argument-compatible? (one-argument-truly-compatible? type?) (list symbol-type?) (list (lambda (u) (not (symbol-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? symbol-type? w1) (can-be-non? symbol-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! symbol-type?))) #f (compile-type-predicate symbol-type?)) (define-primitive-procedure symbol->string one-argument-compatible? (one-argument-truly-compatible? symbol-type?) (list symbol-type?) (list symbol-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (let ((w (result-type-set r))) (type-switch symbol-type? w1 r t1 (lambda (u1) (cond ((internal-symbol-type? u1) (widen r (c:string (symbol->string (internal-symbol-type-name u1))) string-type?)) ((external-symbol-type? u1) (widen r (c:value t1 u1 w1) string-type?)) (else (fuck-up)))) (lambda (p?) (compile-error "symbol_string" y p?))))) (define-primitive-procedure string->uninterned-symbol one-argument-compatible? (one-argument-truly-compatible? string-type?) (list string-type?) (list string-type?) (one-argument-propagate! (lambda (w1) (for-each-member (lambda (u1) (when (string-type? u1) (propagate-result! ( u1)))) w1))) #f (type-switch string-type? w1 r t1 (lambda (u1) (widen r (c:value t1 u1 w1) (lambda (u) (and (external-symbol-type? u) (eq? (external-symbol-type-displaced-string-type u) u1))))) (lambda (p?) (compile-error "string_to_uninterned_symbol" y p?)))) (define-primitive-procedure number? one-argument-compatible? (one-argument-truly-compatible? type?) (list number-type?) (list (lambda (u) (not (number-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? number-type? w1) (can-be-non? number-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! number-type?))) #f (compile-type-predicate number-type?)) (define-primitive-procedure real? one-argument-compatible? (one-argument-truly-compatible? type?) (list number-type?) (list (lambda (u) (or (not (number-type? u)) (and (not (fixnum-type? u)) (not (flonum-type? u)))))) (one-argument-propagate! (lambda (w1) (when (and (can-be? number-type? w1) (can-be-non? nonrectangular-number-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (when (can-be? number-type? w1) (propagate-result! )) (when (can-be-non? nonrectangular-number-type? w1) (propagate-result! )))) #f (type-switch type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (return-true r)) ((rectangular-type? u1) (compile-test r (c:==0.0 (c:i (c:value t1 u1 w1))))) (else (return-false r)))) (lambda (p?) (fuck-up)))) (define-primitive-procedure integer? one-argument-compatible? (one-argument-truly-compatible? type?) (list number-type?) (list (lambda (u) (or (not (number-type? u)) (not (fixnum-type? u))))) (one-argument-propagate! (lambda (w1) (when (and (can-be? number-type? w1) (can-be-non? fixnum-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (when (can-be? number-type? w1) (propagate-result! )) (when (can-be-non? fixnum-type? w1) (propagate-result! )))) #f (type-switch type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (return-true r)) ((flonum-type? u1) (compile-test r (c:== (c:value t1 u1 w1) (c:rint (c:value t1 u1 w1))))) ((rectangular-type? u1) (compile-test r (c:&& (c:==0.0 (c:i (c:value t1 u1 w1))) (c:== (c:r (c:value t1 u1 w1)) (c:rint (c:r (c:value t1 u1 w1))))))) (else (return-false r)))) (lambda (p?) (fuck-up)))) (define-primitive-procedure exact? one-argument-compatible? (one-argument-truly-compatible? number-type?) (list fixnum-type?) (list (lambda (u) (and (number-type? u) (not (fixnum-type? u))))) (one-argument-propagate! (lambda (w1) (when (can-be? fixnum-type? w1) (propagate-result! )) (when (or (can-be? flonum-type? w1) (can-be? rectangular-type? w1)) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (compile-time-test r (exact-type? u1))) (lambda (p?) (compile-error "exact" y p?)))) (define-primitive-procedure inexact? one-argument-compatible? (one-argument-truly-compatible? number-type?) (list (lambda (u) (and (number-type? u) (not (fixnum-type? u))))) (list fixnum-type?) (one-argument-propagate! (lambda (w1) (when (or (can-be? flonum-type? w1) (can-be? rectangular-type? w1)) (propagate-result! )) (when (can-be? fixnum-type? w1) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (compile-time-test r (inexact-type? u1))) (lambda (p?) (compile-error "inexact" y p?)))) (define-primitive-procedure = two-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (propagate-result! ) (propagate-result! ))) #f (compile-comparison r y ts ws (lambda (c1 c2 u1 u2) (if (rectangular-type? u1) (if (rectangular-type? u2) (c:&& (c:== (c:r c1) (c:r c2)) (c:== (c:i c1) (c:i c2))) (c:&& (c:== (c:r c1) c2) (c:==0.0 (c:i c1)))) (if (rectangular-type? u2) (c:&& (c:== c1 (c:r c2)) (c:==0.0 (c:i c2))) (c:== c1 c2)))) "eql")) (define-primitive-procedure < two-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (propagate-result! ) (propagate-result! ))) #f (compile-comparison r y ts ws (lambda (c1 c2 u1 u2) (c:< c1 c2)) "lt")) (define-primitive-procedure > two-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (propagate-result! ) (propagate-result! ))) #f (compile-comparison r y ts ws (lambda (c1 c2 u1 u2) (c:> c1 c2)) "gt")) (define-primitive-procedure <= two-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (propagate-result! ) (propagate-result! ))) #f (compile-comparison r y ts ws (lambda (c1 c2 u1 u2) (c:<= c1 c2)) "le")) (define-primitive-procedure >= two-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (propagate-result! ) (propagate-result! ))) #f (compile-comparison r y ts ws (lambda (c1 c2 u1 u2) (c:>= c1 c2)) "ge")) (define-primitive-procedure zero? ;; Extension to R4RS: ZERO? can apply to pointers, strings, and ports. one-argument-compatible? (one-argument-truly-compatible? (lambda (u1) (or (number-type? u1) (pointer-type? u1) (string-type? u1) (input-port-type? u1) (output-port-type? u1)))) (list (lambda (u) (or (number-type? u) (pointer-type? u) (string-type? u) (input-port-type? u) (output-port-type? u)))) (list (lambda (u) (or (number-type? u) (pointer-type? u) (string-type? u) (input-port-type? u) (output-port-type? u)))) (one-argument-propagate! (lambda (w1) (propagate-result! ) (propagate-result! ))) #f (type-switch (lambda (u1) (or (number-type? u1) (pointer-type? u1) (string-type? u1) (input-port-type? u1) (output-port-type? u1))) w1 r t1 (lambda (u1) (cond ((or (pointer-type? u1) (string-type? u1) (input-port-type? u1) (output-port-type? u1)) (compile-test r (c:==null (c:value t1 u1 w1)))) ((fixnum-type? u1) (compile-test r (c:==0 (c:value t1 u1 w1)))) ((flonum-type? u1) (compile-test r (c:==0.0 (c:value t1 u1 w1)))) ((rectangular-type? u1) (compile-test r (c:&& (c:==0.0 (c:r (c:value t1 u1 w1))) (c:==0.0 (c:i (c:value t1 u1 w1)))))) (else (fuck-up)))) (lambda (p?) (compile-error "zero" y p?)))) (define-primitive-procedure positive? one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (compile-test r (c:>0 (c:value t1 u1 w1)))) ((flonum-type? u1) (compile-test r (c:>0.0 (c:value t1 u1 w1)))) ((rectangular-type? u1) (newline-between (if *type-checks?* (c:if (c:!=0.0 (c:i (c:value t1 u1 w1))) (compile-error "positive" y #f) (c:noop) #f) (c:noop)) (compile-test r (c:>0.0 (c:r (c:value t1 u1 w1)))))) (else (fuck-up)))) (lambda (p?) (compile-error "positive" y p?)))) (define-primitive-procedure negative? one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (compile-test r (c:<0 (c:value t1 u1 w1)))) ((flonum-type? u1) (compile-test r (c:<0.0 (c:value t1 u1 w1)))) ((rectangular-type? u1) (newline-between (if *type-checks?* (c:if (c:!=0.0 (c:i (c:value t1 u1 w1))) (compile-error "negative" y #f) (c:noop) #f) (c:noop)) (compile-test r (c:<0.0 (c:r (c:value t1 u1 w1)))))) (else (fuck-up)))) (lambda (p?) (compile-error "negative" y p?)))) (define-primitive-procedure max one-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (when (every (lambda (w) (can-be? fixnum-type? w)) ws) (propagate-result! )) (when (and (every (lambda (w) (can-be? nonrectangular-number-type? w)) ws) (some (lambda (w) (can-be? flonum-type? w)) ws)) (propagate-result! )) (when (and (every (lambda (w) (can-be? number-type? w)) ws) (some (lambda (w) (can-be? rectangular-type? w)) ws)) (propagate-result! )))) #f (if (null? (rest ws)) (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (widen r (c:value t1 u1 w1) fixnum-type?)) ((flonum-type? u1) (widen r (c:value t1 u1 w1) flonum-type?)) ;; needs work: To handle rectangular numbers. (else (fuck-up)))) (lambda (p?) (compile-error "max" y p?))) (compile-arithmetic number-type? r y ts ws ;; needs work: To handle rectangular numbers. (lambda (u1 u2) ;; This is a violation of the no-<...>-after-type-propagation principle. (if (and (fixnum-type? u1) (fixnum-type? u2)) )) ;; needs work: To handle rectangular numbers. (lambda (c1 u1 c2 u2) (if (and (fixnum-type? u1) (fixnum-type? u2)) (c:imax c1 c2) (c:rmax c1 c2))) "max"))) (define-primitive-procedure min one-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (when (every (lambda (w) (can-be? fixnum-type? w)) ws) (propagate-result! )) (when (and (every (lambda (w) (can-be? nonrectangular-number-type? w)) ws) (some (lambda (w) (can-be? flonum-type? w)) ws)) (propagate-result! )) (when (and (every (lambda (w) (can-be? number-type? w)) ws) (some (lambda (w) (can-be? rectangular-type? w)) ws)) (propagate-result! )))) #f (if (null? (rest ws)) (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (widen r (c:value t1 u1 w1) fixnum-type?)) ((flonum-type? u1) (widen r (c:value t1 u1 w1) flonum-type?)) ;; needs work: To handle rectangular numbers. (else (fuck-up)))) (lambda (p?) (compile-error "min" y p?))) (compile-arithmetic number-type? r y ts ws ;; needs work: To handle rectangular numbers. (lambda (u1 u2) ;; This is a violation of the no-<...>-after-type-propagation principle. (if (and (fixnum-type? u1) (fixnum-type? u2)) )) ;; needs work: To handle rectangular numbers. (lambda (c1 u1 c2 u2) (if (and (fixnum-type? u1) (fixnum-type? u2)) (c:imin c1 c2) (c:rmin c1 c2))) "min"))) (define-primitive-procedure + zero-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (cond ((null? ws) (propagate-result! )) (else (when (every (lambda (w) (can-be? fixnum-type? w)) ws) (propagate-result! )) (when (and (every (lambda (w) (can-be? nonrectangular-number-type? w)) ws) (some (lambda (w) (can-be? flonum-type? w)) ws)) (propagate-result! )) (when (and (every (lambda (w) (can-be? number-type? w)) ws) (some (lambda (w) (can-be? rectangular-type? w)) ws)) (propagate-result! )))))) #f (cond ((null? ws) (widen r (c:0) fixnum-type?)) ((null? (rest ws)) (type-switch number-type? w1 r t1 (lambda (u1) (widen-type r (c:value t1 u1 w1) u1)) (lambda (p?) (compile-error "plus" y p?)))) (else (compile-arithmetic number-type? r y ts ws (lambda (u1 u2) ;; This is a violation of the no-<...>-after-type-propagation principle. (cond ((and (fixnum-type? u1) (fixnum-type? u2)) ) ((or (rectangular-type? u1) (rectangular-type? u2)) ) (else ))) (lambda (c1 u1 c2 u2) (cond ((and (fixnum-type? u1) (fixnum-type? u2)) (when *overflow-checks?* (unimplemented y "Safe exact arithmetic is not (yet) implemented")) (c:+ c1 c2)) ((rectangular-type? u1) (if (rectangular-type? u2) (c:pluscc c1 c2) (c:pluscr c1 c2))) ((rectangular-type? u2) (c:plusrc c1 c2)) (else (c:+ c1 c2)))) "plus")))) (define-primitive-procedure * zero-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (cond ((null? ws) (propagate-result! )) (else (when (every (lambda (w) (can-be? fixnum-type? w)) ws) (propagate-result! )) (when (and (every (lambda (w) (can-be? nonrectangular-number-type? w)) ws) (some (lambda (w) (can-be? flonum-type? w)) ws)) (propagate-result! )) (when (and (every (lambda (w) (can-be? number-type? w)) ws) (some (lambda (w) (can-be? rectangular-type? w)) ws)) (propagate-result! )))))) #f (cond ((null? ws) (widen r (c:1) fixnum-type?)) ((null? (rest ws)) (type-switch number-type? w1 r t1 (lambda (u1) (widen-type r (c:value t1 u1 w1) u1)) (lambda (p?) (compile-error "times" y p?)))) (else (compile-arithmetic number-type? r y ts ws (lambda (u1 u2) ;; This is a violation of the no-<...>-after-type-propagation principle. (cond ((and (fixnum-type? u1) (fixnum-type? u2)) ) ((or (rectangular-type? u1) (rectangular-type? u2)) ) (else ))) (lambda (c1 u1 c2 u2) (cond ((and (fixnum-type? u1) (fixnum-type? u2)) (when *overflow-checks?* (unimplemented y "Safe exact arithmetic is not (yet) implemented")) (c:* c1 c2)) ((rectangular-type? u1) (if (rectangular-type? u2) (c:timescc c1 c2) (c:timescr c1 c2))) ((rectangular-type? u2) (c:timesrc c1 c2)) (else (c:* c1 c2)))) "times")))) (define-primitive-procedure - one-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (when (every (lambda (w) (can-be? fixnum-type? w)) ws) (propagate-result! )) (when (and (every (lambda (w) (can-be? nonrectangular-number-type? w)) ws) (some (lambda (w) (can-be? flonum-type? w)) ws)) (propagate-result! )) (when (and (every (lambda (w) (can-be? number-type? w)) ws) (some (lambda (w) (can-be? rectangular-type? w)) ws)) (propagate-result! )))) #f (if (null? (rest ws)) (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (when *overflow-checks?* (unimplemented y "Safe exact arithmetic is not (yet) implemented")) (widen r (c:- (c:value t1 u1 w1)) fixnum-type?)) ((flonum-type? u1) (widen r (c:- (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (widen r (c:negc (c:value t1 u1 w1)) rectangular-type?)) (else (fuck-up)))) (lambda (p?) (compile-error "minus" y p?))) (compile-arithmetic number-type? r y ts ws (lambda (u1 u2) ;; This is a violation of the no-<...>-after-type-propagation principle. (cond ((and (fixnum-type? u1) (fixnum-type? u2)) ) ((or (rectangular-type? u1) (rectangular-type? u2)) ) (else ))) (lambda (c1 u1 c2 u2) (cond ((and (fixnum-type? u1) (fixnum-type? u2)) (when *overflow-checks?* (unimplemented y "Safe exact arithmetic is not (yet) implemented")) (c:- c1 c2)) ((rectangular-type? u1) (if (rectangular-type? u2) (c:minuscc c1 c2) (c:minuscr c1 c2))) ((rectangular-type? u2) (c:minusrc c1 c2)) (else (c:- c1 c2)))) "minus"))) (define-primitive-procedure / ;; note: / will always produce a flonum result, even if given fixnum arguments ;; that could produce a fixnum result. This is allowed by R4RS since ;; / is not included in the table on the top of page 20, the table that ;; specifies which procedures must return exact results when given ;; exact arguments. If we did allow / to return a fixnum then it would ;; have to return a union of a fixnum and a flonum since whether or not ;; a fixnum could be returned would depend on whether or not the ;; denominator divides the numerator. This is beyond the scope of the ;; type system. It is preferable not to have a union type and not to ;; require run-time divisability checks. one-or-more-arguments-compatible? (all-arguments-truly-compatible? number-type?) (map-n (lambda (i) number-type?) n) (map-n (lambda (i) number-type?) n) (all-arguments-propagate! (lambda (ws) (when (every (lambda (w) (can-be? nonrectangular-number-type? w)) ws) (propagate-result! )) (when (and (every (lambda (w) (can-be? number-type? w)) ws) (some (lambda (w) (can-be? rectangular-type? w)) ws)) (propagate-result! )))) #f (if (null? (rest ws)) (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (widen r (c:/ (c:1.0) (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (widen r (c:recipc (c:value t1 u1 w1)) rectangular-type?)) (else (fuck-up)))) (lambda (p?) (compile-error "divide" y p?))) (compile-arithmetic number-type? r y ts ws (lambda (u1 u2) (if (or (rectangular-type? u1) (rectangular-type? u2)) ;; This is a violation of the no-<...>-after-type-propagation ;; principle. )) (lambda (c1 u1 c2 u2) (cond ((and (fixnum-type? u1) (fixnum-type? u2)) (c:/ (c:flonum-cast c1) (c:flonum-cast c2))) ((rectangular-type? u1) (if (rectangular-type? u2) (c:dividecc c1 c2) (c:dividecr c1 c2))) ((rectangular-type? u2) (c:dividerc c1 c2)) (else (c:/ c1 c2)))) "divide"))) (define-primitive-procedure quotient ;; needs work: To handle +inf, -inf, and NaN arguments. ;; needs work: To check for division by zero. two-arguments-compatible? (two-arguments-truly-compatible? number-type? number-type?) (list number-type? number-type?) (list number-type? number-type?) (two-arguments-propagate! (lambda (w1 w2) (when (and (can-be? fixnum-type? w1) (can-be? fixnum-type? w2)) (propagate-result! )) (when (or (and (or (can-be? flonum-type? w1) (can-be? rectangular-type? w1)) (can-be? number-type? w2)) (and (can-be? number-type? w1) (or (can-be? flonum-type? w2) (can-be? rectangular-type? w2)))) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (type-switch number-type? w2 r t2 (lambda (u2) (newline-between (if *type-checks?* (newline-between (cond ((flonum-type? u1) (c:if (c:!= (c:value t1 u1 w1) (c:rint (c:value t1 u1 w1))) (compile-error "quotient1" y #f) (c:noop) #f)) ((rectangular-type? u1) (c:if (c:boolean-or (c:!=0.0 (c:i (c:value t1 u1 w1))) (c:!= (c:r (c:value t1 u1 w1)) (c:rint (c:r (c:value t1 u1 w1))))) (compile-error "quotient1" y #f) (c:noop) #f)) (else (c:noop))) (cond ((flonum-type? u2) (c:if (c:!= (c:value t2 u2 w2) (c:rint (c:value t2 u2 w2))) (compile-error "quotient2" y #f) (c:noop) #f)) ((rectangular-type? u2) (c:if (c:boolean-or (c:!=0.0 (c:i (c:value t2 u2 w2))) (c:!= (c:r (c:value t2 u2 w2)) (c:rint (c:r (c:value t2 u2 w2))))) (compile-error "quotient2" y #f) (c:noop) #f)) (else (c:noop)))) (c:noop)) (widen r (c:/ (cond ((fixnum-type? u1) (c:value t1 u1 w1)) ((flonum-type? u1) (c:fixnum-cast (c:value t1 u1 w1))) ((rectangular-type? u1) (c:fixnum-cast (c:r (c:value t1 u1 w1)))) (else (fuck-up))) (cond ((fixnum-type? u2) (c:value t2 u2 w2)) ((flonum-type? u2) (c:fixnum-cast (c:value t2 u2 w2))) ((rectangular-type? u2) (c:fixnum-cast (c:r (c:value t2 u2 w2)))) (else (fuck-up)))) (if (and (fixnum-type? u1) (fixnum-type? u2)) fixnum-type? flonum-type?)))) (lambda (p?) (compile-error "quotient2" y p?)))) (lambda (p?) (compile-error "quotient1" y p?)))) (define-primitive-procedure remainder ;; needs work: To handle +inf, -inf, and NaN arguments. ;; needs work: To check for division by zero. two-arguments-compatible? (two-arguments-truly-compatible? number-type? number-type?) (list number-type? number-type?) (list number-type? number-type?) (two-arguments-propagate! (lambda (w1 w2) (when (and (can-be? fixnum-type? w1) (can-be? fixnum-type? w2)) (propagate-result! )) (when (or (and (or (can-be? flonum-type? w1) (can-be? rectangular-type? w1)) (can-be? number-type? w2)) (and (can-be? number-type? w1) (or (can-be? flonum-type? w2) (can-be? rectangular-type? w2)))) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (type-switch number-type? w2 r t2 (lambda (u2) (newline-between (if *type-checks?* (newline-between (cond ((flonum-type? u1) (c:if (c:!= (c:value t1 u1 w1) (c:rint (c:value t1 u1 w1))) (compile-error "remainder1" y #f) (c:noop) #f)) ((rectangular-type? u1) (c:if (c:boolean-or (c:!=0.0 (c:i (c:value t1 u1 w1))) (c:!= (c:r (c:value t1 u1 w1)) (c:rint (c:r (c:value t1 u1 w1))))) (compile-error "remainder1" y #f) (c:noop) #f)) (else (c:noop))) (cond ((flonum-type? u2) (c:if (c:!= (c:value t2 u2 w2) (c:rint (c:value t2 u2 w2))) (compile-error "remainder2" y #f) (c:noop) #f)) ((rectangular-type? u2) (c:if (c:boolean-or (c:!=0.0 (c:i (c:value t2 u2 w2))) (c:!= (c:r (c:value t2 u2 w2)) (c:rint (c:r (c:value t2 u2 w2))))) (compile-error "remainder2" y #f) (c:noop) #f)) (else (c:noop)))) (c:noop)) (widen r (c:% (cond ((fixnum-type? u1) (c:value t1 u1 w1)) ((flonum-type? u1) (c:fixnum-cast (c:value t1 u1 w1))) ((rectangular-type? u1) (c:fixnum-cast (c:r (c:value t1 u1 w1)))) (else (fuck-up))) (cond ((fixnum-type? u2) (c:value t2 u2 w2)) ((flonum-type? u2) (c:fixnum-cast (c:value t2 u2 w2))) ((rectangular-type? u2) (c:fixnum-cast (c:r (c:value t2 u2 w2)))) (else (fuck-up)))) (if (and (fixnum-type? u1) (fixnum-type? u2)) fixnum-type? flonum-type?)))) (lambda (p?) (compile-error "remainder2" y p?)))) (lambda (p?) (compile-error "remainder1" y p?)))) (define-primitive-procedure << ;; needs work: To handle +inf, -inf, and NaN arguments. ;; needs work: To check for overflow. two-arguments-compatible? (two-arguments-truly-compatible? number-type? number-type?) (list number-type? number-type?) (list number-type? number-type?) (two-arguments-propagate! (lambda (w1 w2) (when (and (can-be? fixnum-type? w1) (can-be? fixnum-type? w2)) (propagate-result! )) (when (or (and (or (can-be? flonum-type? w1) (can-be? rectangular-type? w1)) (can-be? number-type? w2)) (and (can-be? number-type? w1) (or (can-be? flonum-type? w2) (can-be? rectangular-type? w2)))) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (type-switch number-type? w2 r t2 (lambda (u2) (newline-between (if *type-checks?* (newline-between (cond ((flonum-type? u1) (c:if (c:!= (c:value t1 u1 w1) (c:rint (c:value t1 u1 w1))) (compile-error "lsh1" y #f) (c:noop) #f)) ((rectangular-type? u1) (c:if (c:boolean-or (c:!=0.0 (c:i (c:value t1 u1 w1))) (c:!= (c:r (c:value t1 u1 w1)) (c:rint (c:r (c:value t1 u1 w1))))) (compile-error "lsh1" y #f) (c:noop) #f)) (else (c:noop))) (cond ((flonum-type? u2) (c:if (c:!= (c:value t2 u2 w2) (c:rint (c:value t2 u2 w2))) (compile-error "lsh2" y #f) (c:noop) #f)) ((rectangular-type? u2) (c:if (c:boolean-or (c:!=0.0 (c:i (c:value t2 u2 w2))) (c:!= (c:r (c:value t2 u2 w2)) (c:rint (c:r (c:value t2 u2 w2))))) (compile-error "lsh2" y #f) (c:noop) #f)) (else (c:noop)))) (c:noop)) (widen r (c:<< (cond ((fixnum-type? u1) (c:value t1 u1 w1)) ((flonum-type? u1) (c:fixnum-cast (c:value t1 u1 w1))) ((rectangular-type? u1) (c:fixnum-cast (c:r (c:value t1 u1 w1)))) (else (fuck-up))) (cond ((fixnum-type? u2) (c:value t2 u2 w2)) ((flonum-type? u2) (c:fixnum-cast (c:value t2 u2 w2))) ((rectangular-type? u2) (c:fixnum-cast (c:r (c:value t2 u2 w2)))) (else (fuck-up)))) (if (and (fixnum-type? u1) (fixnum-type? u2)) fixnum-type? flonum-type?)))) (lambda (p?) (compile-error "lsh2" y p?)))) (lambda (p?) (compile-error "lsh1" y p?)))) (define-primitive-procedure >> ;; needs work: To handle +inf, -inf, and NaN arguments. two-arguments-compatible? (two-arguments-truly-compatible? number-type? number-type?) (list number-type? number-type?) (list number-type? number-type?) (two-arguments-propagate! (lambda (w1 w2) (when (and (can-be? fixnum-type? w1) (can-be? fixnum-type? w2)) (propagate-result! )) (when (or (and (or (can-be? flonum-type? w1) (can-be? rectangular-type? w1)) (can-be? number-type? w2)) (and (can-be? number-type? w1) (or (can-be? flonum-type? w2) (can-be? rectangular-type? w2)))) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (type-switch number-type? w2 r t2 (lambda (u2) (newline-between (if *type-checks?* (newline-between (cond ((flonum-type? u1) (c:if (c:!= (c:value t1 u1 w1) (c:rint (c:value t1 u1 w1))) (compile-error "rsh1" y #f) (c:noop) #f)) ((rectangular-type? u1) (c:if (c:boolean-or (c:!=0.0 (c:i (c:value t1 u1 w1))) (c:!= (c:r (c:value t1 u1 w1)) (c:rint (c:r (c:value t1 u1 w1))))) (compile-error "rsh1" y #f) (c:noop) #f)) (else (c:noop))) (cond ((flonum-type? u2) (c:if (c:!= (c:value t2 u2 w2) (c:rint (c:value t2 u2 w2))) (compile-error "rsh2" y #f) (c:noop) #f)) ((rectangular-type? u2) (c:if (c:boolean-or (c:!=0.0 (c:i (c:value t2 u2 w2))) (c:!= (c:r (c:value t2 u2 w2)) (c:rint (c:r (c:value t2 u2 w2))))) (compile-error "rsh2" y #f) (c:noop) #f)) (else (c:noop)))) (c:noop)) (widen r (c:>> (cond ((fixnum-type? u1) (c:value t1 u1 w1)) ((flonum-type? u1) (c:fixnum-cast (c:value t1 u1 w1))) ((rectangular-type? u1) (c:fixnum-cast (c:r (c:value t1 u1 w1)))) (else (fuck-up))) (cond ((fixnum-type? u2) (c:value t2 u2 w2)) ((flonum-type? u2) (c:fixnum-cast (c:value t2 u2 w2))) ((rectangular-type? u2) (c:fixnum-cast (c:r (c:value t2 u2 w2)))) (else (fuck-up)))) (if (and (fixnum-type? u1) (fixnum-type? u2)) fixnum-type? flonum-type?)))) (lambda (p?) (compile-error "rsh2" y p?)))) (lambda (p?) (compile-error "rsh1" y p?)))) (define-primitive-procedure bitwise-not ;; needs work: To handle inexact numbers. one-argument-compatible? (one-argument-truly-compatible? fixnum-type?) (list fixnum-type?) (list fixnum-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch fixnum-type? w1 r t1 (lambda (u1) (widen r (c:~ (c:value t1 u1 w1)) fixnum-type?)) (lambda (p?) (compile-error "bitwise_not" y p?)))) (define-primitive-procedure bitwise-and ;; needs work: To handle inexact numbers. zero-or-more-arguments-compatible? (all-arguments-truly-compatible? fixnum-type?) (map-n (lambda (i) fixnum-type?) n) (map-n (lambda (i) fixnum-type?) n) (all-arguments-propagate! (lambda (ws) (propagate-result! ))) #f (cond ((null? ws) (widen r (c:~ (c:0)) fixnum-type?)) ((null? (rest ws)) (type-switch fixnum-type? w1 r t1 (lambda (u1) (widen r (c:value t1 u1 w1) fixnum-type?)) (lambda (p?) (compile-error "bitwise_and" y p?)))) (else (compile-arithmetic fixnum-type? r y ts ws ;; This is a violation of the no-<...>-after-type-propagation ;; principle. (lambda (u1 u2) ) (lambda (c1 u1 c2 u2) (c:& c1 c2)) "bitwise_and")))) (define-primitive-procedure bitwise-or ;; needs work: To handle inexact numbers. zero-or-more-arguments-compatible? (all-arguments-truly-compatible? fixnum-type?) (map-n (lambda (i) fixnum-type?) n) (map-n (lambda (i) fixnum-type?) n) (all-arguments-propagate! (lambda (ws) (propagate-result! ))) #f (cond ((null? ws) (widen r (c:0) fixnum-type?)) ((null? (rest ws)) (type-switch fixnum-type? w1 r t1 (lambda (u1) (widen r (c:value t1 u1 w1) fixnum-type?)) (lambda (p?) (compile-error "bitwise_or" y p?)))) (else (compile-arithmetic fixnum-type? r y ts ws ;; This is a violation of the no-<...>-after-type-propagation ;; principle. (lambda (u1 u2) ) (lambda (c1 u1 c2 u2) (c:bitwise-or c1 c2)) "bitwise_or")))) (define-primitive-procedure bitwise-xor ;; needs work: To handle inexact numbers. zero-or-more-arguments-compatible? (all-arguments-truly-compatible? fixnum-type?) (map-n (lambda (i) fixnum-type?) n) (map-n (lambda (i) fixnum-type?) n) (all-arguments-propagate! (lambda (ws) (propagate-result! ))) #f (cond ((null? ws) (widen r (c:0) fixnum-type?)) ((null? (rest ws)) (type-switch fixnum-type? w1 r t1 (lambda (u1) (widen r (c:value t1 u1 w1) fixnum-type?)) (lambda (p?) (compile-error "bitwise_xor" y p?)))) (else (compile-arithmetic fixnum-type? r y ts ws ;; This is a violation of the no-<...>-after-type-propagation ;; principle. (lambda (u1 u2) ) (lambda (c1 u1 c2 u2) (c:^ c1 c2)) "bitwise_xor")))) (define-primitive-procedure floor ;; needs work: To handle +inf, -inf, and NaN arguments. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (when (can-be? fixnum-type? w1) (propagate-result! )) (when (or (can-be? flonum-type? w1) (can-be? rectangular-type? w1)) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (widen r (c:value t1 u1 w1) fixnum-type?)) ((flonum-type? u1) (widen r (c:floor (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (newline-between (if *type-checks?* (c:if (c:!=0.0 (c:i (c:value t1 u1 w1))) (compile-error "floor" y #f) (c:noop) #f) (c:noop)) (widen r (c:floor (c:r (c:value t1 u1 w1))) flonum-type?))) (else (fuck-up)))) (lambda (p?) (compile-error "floor" y p?)))) (define-primitive-procedure ceiling ;; needs work: To handle +inf, -inf, and NaN arguments. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (when (can-be? fixnum-type? w1) (propagate-result! )) (when (or (can-be? flonum-type? w1) (can-be? rectangular-type? w1)) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (widen r (c:value t1 u1 w1) fixnum-type?)) ((flonum-type? u1) (widen r (c:ceil (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (newline-between (if *type-checks?* (c:if (c:!=0.0 (c:i (c:value t1 u1 w1))) (compile-error "ceiling" y #f) (c:noop) #f) (c:noop)) (widen r (c:ceil (c:r (c:value t1 u1 w1))) flonum-type?))) (else (fuck-up)))) (lambda (p?) (compile-error "ceiling" y p?)))) (define-primitive-procedure truncate ;; needs work: To handle +inf, -inf, and NaN arguments. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (when (can-be? fixnum-type? w1) (propagate-result! )) (when (or (can-be? flonum-type? w1) (can-be? rectangular-type? w1)) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (widen r (c:value t1 u1 w1) fixnum-type?)) ((flonum-type? u1) (widen r (c:?: (c:<0.0 (c:value t1 u1 w1)) (c:ceil (c:value t1 u1 w1)) (c:floor (c:value t1 u1 w1))) flonum-type?)) ((rectangular-type? u1) (newline-between (if *type-checks?* (c:if (c:!=0.0 (c:i (c:value t1 u1 w1))) (compile-error "truncate" y #f) (c:noop) #f) (c:noop)) (widen r (c:?: (c:<0.0 (c:r (c:value t1 u1 w1))) (c:ceil (c:r (c:value t1 u1 w1))) (c:floor (c:r (c:value t1 u1 w1)))) flonum-type?))) (else (fuck-up)))) (lambda (p?) (compile-error "truncate" y p?)))) (define-primitive-procedure round ;; needs work: To handle +inf, -inf, and NaN arguments. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (when (can-be? fixnum-type? w1) (propagate-result! )) (when (or (can-be? flonum-type? w1) (can-be? rectangular-type? w1)) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (widen r (c:value t1 u1 w1) fixnum-type?)) ((flonum-type? u1) (widen r (c:rint (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (newline-between (if *type-checks?* (c:if (c:!=0.0 (c:i (c:value t1 u1 w1))) (compile-error "round" y #f) (c:noop) #f) (c:noop)) (widen r (c:rint (c:r (c:value t1 u1 w1))) flonum-type?))) (else (fuck-up)))) (lambda (p?) (compile-error "round" y p?)))) (define-primitive-procedure exp ;; needs work: To handle +inf, -inf, and NaN arguments. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (widen r (c:exp (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (unimplemented y "EXP on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "exp" y p?)))) (define-primitive-procedure log ;; needs work: To handle negative, zero, +inf, and NaN arguments. ;; needs work: If this were implemented properly and supported rectangular ;; results we would have two choices: either always return a ;; rectangular result or return a union of a rectangular and a ;; flonum. The former is undesirable since that would cause ;; rectangular pollution. The later is undesirable since that ;; would cause union type pollution and require run-time checking ;; of whether the argument is negative. There is no way with the ;; current type system to force the result of LOG to be a monotype ;; flonum. Thus we currently violate R4RS in this regard. ;; note: Since LOG is not included in the table on the top of page 20 of R4RS ;; it can return inexact results even when given exact arguments that ;; could otherwise yield an exact result. This licenses never returning ;; a fixnum. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (widen r (c:log (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (unimplemented y "LOG on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "log" y p?)))) (define-primitive-procedure sin ;; needs work: To handle +inf, -inf, and NaN arguments. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (widen r (c:sin (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (unimplemented y "SIN on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "sin" y p?)))) (define-primitive-procedure cos ;; needs work: To handle +inf, -inf, and NaN arguments. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (widen r (c:cos (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (unimplemented y "COS on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "cos" y p?)))) (define-primitive-procedure tan ;; needs work: To handle +inf, -inf, and NaN arguments. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (widen r (c:tan (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (unimplemented y "TAN on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "tan" y p?)))) (define-primitive-procedure asin ;; needs work: To handle >1, <-1, and NaN arguments. ;; needs work: If this were implemented properly and supported rectangular ;; results we would have two choices: either always return a ;; rectangular result or return a union of a rectangular and a ;; flonum. The former is undesirable since that would cause ;; rectangular pollution. The later is undesirable since that ;; would cause union type pollution and require run-time checking ;; of whether the argument is <-1 or >1. There is no way with the ;; current type system to force the result of ASIN to be a ;; monotype flonum. Thus we currently violate R4RS in this regard. ;; note: Since ASIN is not included in the table on the top of page 20 of R4RS ;; it can return inexact results even when given exact arguments that ;; could otherwise yield an exact result. This licenses never returning ;; a fixnum. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (widen r (c:asin (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (unimplemented y "ASIN on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "asin" y p?)))) (define-primitive-procedure acos ;; needs work: To handle >1, <-1, and NaN arguments. ;; needs work: If this were implemented properly and supported rectangular ;; results we would have two choices: either always return a ;; rectangular result or return a union of a rectangular and a ;; flonum. The former is undesirable since that would cause ;; rectangular pollution. The later is undesirable since that ;; would cause union type pollution and require run-time checking ;; of whether the argument is <-1 or >1. There is no way with the ;; current type system to force the result of ACOS to be a ;; monotype flonum. Thus we currently violate R4RS in this regard. ;; note: Since ACOS is not included in the table on the top of page 20 of R4RS ;; it can return inexact results even when given exact arguments that ;; could otherwise yield an exact result. This licenses never returning ;; a fixnum. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (widen r (c:acos (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (unimplemented y "ACOS on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "acos" y p?)))) (define-primitive-procedure atan ;; needs work: To handle +inf, -inf, and NaN arguments. one-or-two-arguments-compatible? (one-or-two-arguments-truly-compatible? number-type? number-type?) (list number-type? number-type?) (list number-type? number-type?) (one-or-two-arguments-propagate! (lambda (w1) (propagate-result! )) (lambda (w1 w2) (propagate-result! ))) #f (if (= (length ws) 1) (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (widen r (c:atan (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (unimplemented y "ATAN on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "atan1" y p?))) (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (type-switch number-type? w2 r t2 (lambda (u2) (cond ((nonrectangular-number-type? u2) (widen r (c:atan2 (c:value t1 u1 w1) (c:value t2 u2 w2)) flonum-type?)) ((rectangular-type? u2) (unimplemented y "ATAN on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "atan3" y p?)))) ((rectangular-type? u1) (unimplemented y "ATAN on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "atan2" y p?))))) (define-primitive-procedure sqrt ;; needs work: To handle negative, +inf, and NaN arguments. ;; needs work: If this were implemented properly and supported rectangular ;; results we would have two choices: either always return a ;; rectangular result or return a union of a rectangular and a ;; flonum. The former is undesirable since that would cause ;; rectangular pollution. The later is undesirable since that ;; would cause union type pollution and require run-time checking ;; of whether the argument is negative. There is no way with the ;; current type system to force the result of SQRT to be a ;; monotype flonum. Thus we currently violate R4RS in this regard. ;; note: Since SQRT is not included in the table on the top of page 20 of R4RS ;; it can return inexact results even when given exact arguments that ;; could otherwise yield an exact result. This licenses never returning ;; a fixnum. one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((nonrectangular-number-type? u1) (widen r (c:sqrt (c:value t1 u1 w1)) flonum-type?)) ((rectangular-type? u1) (unimplemented y "SQRT on rectangular arguments is not (yet) implemented")) (else (fuck-up)))) (lambda (p?) (compile-error "sqrt" y p?)))) (define-primitive-procedure expt ;; needs work: To handle negative, zero, +inf, and NaN first argument. ;; needs work: To handle -inf, +inf, and NaN second argument. ;; needs work: If this were implemented properly and supported rectangular ;; results we would have two choices: either always return a ;; rectangular result or return a union of a rectangular, a ;; flonum, and a fixnum. The former is undesirable since that ;; would cause rectangular pollution. The later is undesirable ;; since that would cause union type pollution and require ;; run-time checking of whether the first argument is negative ;; and whether the first argument is an integer raised to the ;; second argument. There is no way with the current type system ;; to force the result of EXPT to be a flonum or a fixnum. Thus ;; we currently violate R4RS in this regard. ;; note: Unfortunately, EXPT is listed in the table on the top of page 20 of ;; R4RS so it must return an exact result when given exact arguments ;; that can produce an exact result. Because of this, the output can ;; never be a fixnum monotype and must be a union of a fixnum and a ;; flonum. Furthermore, there must be run-time checking when both ;; arguments are fixnums. Bummer. I may change this someday to violate ;; R4RS in this regard and have EXPT always return a flonum monotype and ;; eliminate ipow(). two-arguments-compatible? (two-arguments-truly-compatible? number-type? number-type?) (list number-type? number-type?) (list number-type? number-type?) (two-arguments-propagate! (lambda (w1 w2) (when (and (can-be? fixnum-type? w1) (can-be? fixnum-type? w2)) (propagate-result! )) (when (and (can-be? number-type? w1) (can-be? number-type? w2)) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (type-switch number-type? w2 r t2 (lambda (u2) (cond ((and (fixnum-type? u1) (fixnum-type? u2)) (c:if (c:<0 (c:value t2 u2 w2)) (widen r (c:pow (c:value t1 u1 w1) (c:value t2 u2 w2)) flonum-type?) (widen r (c:ipow (c:value t1 u1 w1) (c:value t2 u2 w2)) fixnum-type?) #f)) ((or (rectangular-type? u1) (rectangular-type? u2)) (unimplemented y "EXPT on rectangular arguments is not (yet) implemented")) ((and (nonrectangular-number-type? u1) (nonrectangular-number-type? u2)) (widen r (c:pow (c:value t1 u1 w1) (c:value t2 u2 w2)) flonum-type?)) (else (fuck-up)))) (lambda (p?) (compile-error "expt2" y p?)))) (lambda (p?) (compile-error "expt1" y p?)))) (define-primitive-procedure exact->inexact one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (when (can-be? nonrectangular-number-type? w1) (propagate-result! )) (when (can-be? rectangular-type? w1) (propagate-result! )))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (widen r (c:flonum-cast (c:value t1 u1 w1)) flonum-type?)) ((flonum-type? u1) (widen r (c:value t1 u1 w1) flonum-type?)) ((rectangular-type? u1) (widen r (c:value t1 u1 w1) rectangular-type?)) (else (fuck-up)))) (lambda (p?) (compile-error "exact_to_inexact" y p?)))) (define-primitive-procedure inexact->exact one-argument-compatible? (one-argument-truly-compatible? number-type?) (list number-type?) (list number-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch number-type? w1 r t1 (lambda (u1) (cond ((fixnum-type? u1) (widen r (c:value t1 u1 w1) fixnum-type?)) ((flonum-type? u1) (widen r (c:fixnum-cast (c:value t1 u1 w1)) fixnum-type?)) ((rectangular-type? u1) (newline-between (c:if (c:!=0.0 (c:i (c:value t1 u1 w1))) (compile-error "inexact_to_exact2" y #f) (c:noop) #f) (widen r (c:fixnum-cast (c:r (c:value t1 u1 w1))) fixnum-type?))) (else (fuck-up)))) (lambda (p?) (compile-error "inexact_to_exact1" y p?)))) (define-primitive-procedure char? one-argument-compatible? (one-argument-truly-compatible? type?) (list char-type?) (list (lambda (u) (not (char-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? char-type? w1) (can-be-non? char-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! char-type?))) #f (compile-type-predicate char-type?)) (define-primitive-procedure char->integer one-argument-compatible? (one-argument-truly-compatible? char-type?) (list char-type?) (list char-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch char-type? w1 r t1 (lambda (u1) (widen r (c:fixnum-cast (c:unsigned-char-cast (c:value t1 u1 w1))) fixnum-type?)) (lambda (p?) (compile-error "char_to_integer" y p?)))) (define-primitive-procedure integer->char one-argument-compatible? (one-argument-truly-compatible? fixnum-type?) (list fixnum-type?) (list fixnum-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch fixnum-type? w1 r t1 (lambda (u1) (newline-between (if *bounds-checks?* (c:if (c:boolean-or (c:<0 (c:value t1 u1 w1)) (c:>= (c:value t1 u1 w1) (c:256))) (compile-error "integer_to_char2" y #f) (c:noop) #f) (c:noop)) (widen r (c:unsigned-char-cast (c:value t1 u1 w1)) char-type?))) (lambda (p?) (compile-error "integer_to_char1" y p?)))) (define-primitive-procedure string? one-argument-compatible? (one-argument-truly-compatible? type?) (list string-type?) (list (lambda (u) (not (string-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? string-type? w1) (can-be-non? string-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! string-type?))) #f (compile-type-predicate string-type?)) (define-primitive-procedure make-string one-or-two-arguments-compatible? (one-or-two-arguments-truly-compatible? fixnum-type? char-type?) (list fixnum-type? char-type?) (list fixnum-type? char-type?) (one-or-two-arguments-propagate! (lambda (w1) (propagate-result! ( (call-site-expression y)))) (lambda (w1 w2) (propagate-result! ( (call-site-expression y))))) ;; needs work: This doesn't check that the size of the string is nonnegative. #f (cond ((discard? r) (type-switch fixnum-type? w1 r t1 (lambda (u1) (if (= (length ws) 2) (type-switch char-type? w2 r t2 (lambda (u2) (c:noop)) (lambda (p?) (compile-error "make_string2" y p?))) (c:noop))) (lambda (p?) (compile-error "make_string1" y p?)))) ((antecedent? r) (type-switch fixnum-type? w1 r t1 (lambda (u1) (if (= (length ws) 2) (type-switch char-type? w2 r t2 (lambda (u2) (return-true r)) (lambda (p?) (compile-error "make_string2" y p?))) (return-true r))) (lambda (p?) (compile-error "make_string1" y p?)))) ((and (return? r) (not (result-accessed? r))) (type-switch fixnum-type? w1 r t1 (lambda (u1) (if (= (length ws) 2) (type-switch char-type? w2 r t2 (lambda (u2) (compile-return r)) (lambda (p?) (compile-error "make_string2" y p?))) (compile-return r))) (lambda (p?) (compile-error "make_string1" y p?)))) (else (let ((c (result-c r)) (w (result-type-set r))) (type-switch fixnum-type? w1 r t1 (lambda (u1) (if (= (length ws) 2) (type-switch char-type? w2 r t2 (lambda (u2) (newline-between (compile-allocate-string c w (c:value t1 u1 w1) y) (let ((t (c:t *ti*))) (set! *ti* (+ *ti* 1)) (outside-body ;; needs work: To use code-generation abstractions. (semicolon-after (space-between *char* (star-before t)))) (c:for (c:= t (c:& (value-string-ref c (the-member-that string-type? w) w (c:0)))) (c:< t (c:& (value-string-ref c (the-member-that string-type? w) w (c:value t1 u1 w1)))) (c:++ t) (c::= (c:* t) (c:value t2 u2 w2)))) (compile-return r))) (lambda (p?) (compile-error "make_string2" y p?))) ;; note: This is necessary since due to C bogosity, one can't ;; determine the length of an uninitialized string since it ;; might contain nulls. (newline-between (compile-allocate-string c w (c:value t1 u1 w1) y) (let ((t (c:t *ti*))) (set! *ti* (+ *ti* 1)) (outside-body ;; needs work: To use code-generation abstractions. (semicolon-after (space-between *char* (star-before t)))) (c:for (c:= t (c:& (value-string-ref c (the-member-that string-type? w) w (c:0)))) (c:< t (c:& (value-string-ref c (the-member-that string-type? w) w (c:value t1 u1 w1)))) (c:++ t) (c::= (c:* t) (c:character #\space)))) (compile-return r)))) (lambda (p?) (compile-error "make_string1" y p?))))))) (define-primitive-procedure string zero-or-more-arguments-compatible? (all-arguments-truly-compatible? char-type?) (map-n (lambda (i) char-type?) n) (map-n (lambda (i) char-type?) n) (all-arguments-propagate! (lambda (ws) (propagate-result! ( (call-site-expression y))))) #f (let loop ((ts1 ts) (us '()) (ws1 ws)) (if (null? ts1) (cond ((discard? r) (c:noop)) ((antecedent? r) (return-true r)) ((and (return? r) (not (result-accessed? r))) (compile-return r)) (else (let ((c (result-c r)) (us (reverse us)) (w (result-type-set r))) (newline-between (compile-allocate-string c w (c:fixnum (length ws)) y) (newlines-between (map-n (lambda (i) (c::= (value-string-ref c (the-member-that string-type? w) w (c:fixnum i)) (c:value (list-ref ts i) (list-ref us i) (list-ref ws i)))) (length ws))) (compile-return r))))) (type-switch char-type? (first ws1) r (first ts1) (lambda (u1) (loop (rest ts1) (cons u1 us) (rest ws1))) (lambda (p?) (compile-error "string" y p?)))))) (define-primitive-procedure string-length one-argument-compatible? (one-argument-truly-compatible? string-type?) (list string-type?) (list string-type?) (one-argument-propagate! (lambda (w1) (for-each-member (lambda (u1) (when (string-type? u1) (set-string-type-string-length-accessed?! u1 #t))) w1) (propagate-result! ))) #f (type-switch string-type? w1 r t1 (lambda (u1) (widen r (value-string-length t1 u1 w1) fixnum-type?)) (lambda (p?) (compile-error "string_length" y p?)))) (define-primitive-procedure string-ref two-arguments-compatible? (two-arguments-truly-compatible? string-type? fixnum-type?) (list string-type? fixnum-type?) (list string-type? fixnum-type?) (two-arguments-propagate! (lambda (w1 w2) (for-each-member (lambda (u1) (when (string-type? u1) (set-string-type-string-ref-accessed?! u1 #t))) w1) (propagate-result! ))) #f (type-switch string-type? w1 r t1 (lambda (u1) (type-switch fixnum-type? w2 r t2 (lambda (u2) (newline-between (if *bounds-checks?* (c:if (c:boolean-or (c:<0 (c:value t2 u2 w2)) (c:>= (c:value t2 u2 w2) (value-string-length t1 u1 w1))) (compile-error "string_ref3" y #f) (c:noop) #f) (c:noop)) (widen r (value-string-ref t1 u1 w1 (c:value t2 u2 w2)) char-type?))) (lambda (p?) (compile-error "string_ref2" y p?)))) (lambda (p?) (compile-error "string_ref1" y p?)))) (define-primitive-procedure string-set! three-arguments-compatible? (three-arguments-truly-compatible? string-type? fixnum-type? char-type?) (list string-type? fixnum-type? char-type?) (list string-type? fixnum-type? char-type?) (three-arguments-propagate! (lambda (w1 w2 w3) #f)) #f (type-switch string-type? w1 r t1 (lambda (u1) (type-switch fixnum-type? w2 r t2 (lambda (u2) (newline-between (if *bounds-checks?* (c:if (c:boolean-or (c:<0 (c:value t2 u2 w2)) (c:>= (c:value t2 u2 w2) (value-string-length t1 u1 w1))) (compile-error "string_set4" y #f) (c:noop) #f) (c:noop)) (type-switch char-type? w3 r t3 (lambda (u3) (newline-between (c::= (value-string-ref t1 u1 w1 (c:value t2 u2 w2)) (c:value t3 u3 w3)) (compile-return r))) (lambda (p?) (compile-error "string_set3" y p?))))) (lambda (p?) (compile-error "string_set2" y p?)))) (lambda (p?) (compile-error "string_set1" y p?)))) (define-primitive-procedure vector? one-argument-compatible? (one-argument-truly-compatible? type?) (list vector-type?) (list (lambda (u) (not (vector-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? vector-type? w1) (can-be-non? vector-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! vector-type?))) #f (compile-type-predicate vector-type?)) (define-primitive-procedure make-vector one-or-two-arguments-compatible? (one-or-two-arguments-truly-compatible? fixnum-type? type?) (list fixnum-type? type?) (list fixnum-type? type?) (one-or-two-arguments-propagate! (lambda (w1) (propagate-result! ( ;; note: This is suboptimal since type propagation is not yet complete ;; and APPLY-CLOSED-WORLD-ASSUMPTION! has not been done yet. '() (call-site-expression y)))) (lambda (w1 w2) (propagate-result! ( ;; note: This is suboptimal since type propagation is not yet complete ;; and APPLY-CLOSED-WORLD-ASSUMPTION! has not been done yet. (members w2) (call-site-expression y))))) (unless (or (discard? r) (antecedent? r) (and (return? r) (not (result-accessed? r)))) (let* ((w (result-type-set r)) (u (the-member-that (lambda (u) (and (headed-vector-type? u) (memq (call-site-expression y) (headed-vector-type-allocating-expressions u)))) w))) (for-each-member (lambda (u1) (when (and (fixnum-type? u1) (= (length ws) 2) (not (fictitious? (headed-vector-type-element u)))) (for-each-member (lambda (u2) (promote! (create-accessor-result (headed-vector-type-element u) #f) w2 w2)) w2))) w1))) ;; needs work: This doesn't check that the size of the vector is nonnegative. (cond ((discard? r) (type-switch fixnum-type? w1 r t1 (lambda (u1) (c:noop)) (lambda (p?) (compile-error "make_vector" y p?)))) ((antecedent? r) (type-switch fixnum-type? w1 r t1 (lambda (u1) (return-true r)) (lambda (p?) (compile-error "make_vector" y p?)))) ((and (return? r) (not (result-accessed? r))) (type-switch fixnum-type? w1 r t1 (lambda (u1) (compile-return r)) (lambda (p?) (compile-error "make_vector" y p?)))) (else (let* ((c (result-c r)) (w (result-type-set r)) (u (the-member-that (lambda (u) (and (headed-vector-type? u) (memq (call-site-expression y) (headed-vector-type-allocating-expressions u)))) w))) (type-switch fixnum-type? w1 r t1 (lambda (u1) (newline-between (compile-allocate-headed-vector c u w (c:value t1 u1 w1) y) (if (and (= (length ws) 2) (not (fictitious? (headed-vector-type-element u)))) (type-switch type? w2 r t2 (lambda (u2) (let ((t (c:t *ti*))) (set! *ti* (+ *ti* 1)) (outside-body ;; note: This violates the abstraction. (list 'c:declaration t (semicolon-after (c:type-set (headed-vector-type-element u) (star-before t))) #f)) (newline-between (c:for (c:= t (c:& (value-vector-ref c u w (c:0)))) (c:< t (c:& (value-vector-ref c u w (c:value t1 u1 w1)))) (c:++ t) (move (create-accessor-result (headed-vector-type-element u) (parentheses-around (star-before t))) t2 w2)) (compile-return r)))) (lambda (p?) (fuck-up))) (compile-return r)))) (lambda (p?) (compile-error "make_vector" y p?))))))) (define-primitive-procedure make-displaced-vector three-arguments-compatible? (three-arguments-truly-compatible? vector-type? fixnum-type? fixnum-type?) (list vector-type? fixnum-type? fixnum-type?) (list vector-type? fixnum-type? fixnum-type?) (three-arguments-propagate! (lambda (w1 w2 w3) (for-each-member (lambda (u1) (when (vector-type? u1) (propagate-result! ( u1)))) w1))) #f (let ((w (result-type-set r))) (type-switch vector-type? w1 r t1 (lambda (u1) (let ((u (the-member-that (lambda (u) (and (displaced-vector-type? u) (eq? u (displaced-vector-type-displaced-vector-type u1)))) w))) (type-switch fixnum-type? w2 r t2 (lambda (u2) (type-switch fixnum-type? w3 r t3 (lambda (u3) (newline-between (if *bounds-checks?* (c:if (c:boolean-or (c:<0 (c:value t2 u2 w2)) (c:>= (c:value t2 u2 w2) (value-vector-length t1 u1 w1))) (compile-error "make_displaced_vector4" y #f) (c:noop) #f) (c:noop)) (cond (*bounds-checks?* (when *overflow-checks?* (unimplemented y "Safe exact arithmetic is not (yet) implemented")) (c:if (c:boolean-or (c:<0 (c:value t3 u3 w3)) (c:> (c:+ (c:value t2 u2 w2) (c:value t3 u3 w3)) (value-vector-length t1 u1 w1))) (compile-error "make_displaced_vector5" y #f) (c:noop) #f)) (else (c:noop))) (move-displaced-vector r u (c:& (value-vector-ref t1 u1 w1 (c:value t2 u2 w2))) (c:value t2 u3 w3)))) (lambda (p?) (compile-error "make_displaced_vector3" y p?)))) (lambda (p?) (compile-error "make_displaced_vector2" y p?))))) (lambda (p?) (compile-error "make_displaced_vector1" y p?))))) (define-primitive-procedure vector zero-or-more-arguments-compatible? (all-arguments-truly-compatible? type?) (map-n (lambda (i) type?) n) (map-n (lambda (i) type?) n) (all-arguments-propagate! (lambda (ws) (propagate-result! ( ;; note: This is suboptimal since type propagation is not yet complete ;; and APPLY-CLOSED-WORLD-ASSUMPTION! has not been done yet. (reduce unionq (map members ws) '()) (call-site-expression y))))) (unless (or (discard? r) (antecedent? r) (and (return? r) (not (result-accessed? r)))) (let* ((w (result-type-set r)) (u (the-member-that (lambda (u) (and (headed-vector-type? u) (memq (call-site-expression y) (headed-vector-type-allocating-expressions u)))) w))) (for-each (lambda (w) (promote! (if (degenerate-vector-type? u) *discard* (create-accessor-result (headed-vector-type-element u) #f)) w w)) ws))) (cond ((discard? r) (c:noop)) ((antecedent? r) (return-true r)) ((and (return? r) (not (result-accessed? r))) (compile-return r)) (else (let* ((c (result-c r)) (w (result-type-set r)) (u (the-member-that (lambda (u) (and (headed-vector-type? u) (memq (call-site-expression y) (headed-vector-type-allocating-expressions u)))) w))) (newline-between (compile-allocate-headed-vector c u w (c:fixnum (length ws)) y) (newlines-between (map-n (lambda (i) (move (if (degenerate-vector-type? u) *discard* (create-accessor-result (headed-vector-type-element u) (value-vector-ref c u w (c:fixnum i)))) (list-ref ts i) (list-ref ws i))) (length ws))) (compile-return r)))))) (define-primitive-procedure vector-length one-argument-compatible? (one-argument-truly-compatible? vector-type?) (list vector-type?) (list vector-type?) (one-argument-propagate! (lambda (w1) (for-each-member (lambda (u1) (cond ((headed-vector-type? u1) (set-headed-vector-type-vector-length-accessed?! u1 #t)) ((nonheaded-vector-type? u1) (set-nonheaded-vector-type-vector-length-accessed?! u1 #t)) ((displaced-vector-type? u1) (set-displaced-vector-type-vector-length-accessed?! u1 #t)))) w1) (propagate-result! ))) #f (type-switch vector-type? w1 r t1 (lambda (u1) (widen r (value-vector-length t1 u1 w1) fixnum-type?)) (lambda (p?) (compile-error "vector_length" y p?)))) (define-primitive-procedure vector-ref two-arguments-compatible? (two-arguments-truly-compatible? vector-type? fixnum-type?) (list vector-type? fixnum-type?) (list vector-type? fixnum-type?) (two-arguments-propagate! (lambda (w1 w2) (for-each-member (lambda (u1) (cond ((headed-vector-type? u1) (set-headed-vector-type-vector-ref-accessed?! u1 #t)) ((nonheaded-vector-type? u1) (set-nonheaded-vector-type-vector-ref-accessed?! u1 #t)) ((displaced-vector-type? u1) (set-displaced-vector-type-vector-ref-accessed?! u1 #t)))) w1) (for-each-member (lambda (u1) (when (vector-type? u1) (for-each-member propagate-result! (vector-type-element u1)))) w1))) (for-each-member (lambda (u1) (when (vector-type? u1) (for-each-member (lambda (u2) (when (fixnum-type? u2) (promote! r (vector-type-element u1) (vector-type-element u1)))) w2))) w1) (type-switch vector-type? w1 r t1 (lambda (u1) (type-switch fixnum-type? w2 r t2 (lambda (u2) (newline-between (if *bounds-checks?* (c:if (c:boolean-or (c:<0 (c:value t2 u2 w2)) (c:>= (c:value t2 u2 w2) (value-vector-length t1 u1 w1))) (compile-error "vector_ref3" y #f) (c:noop) #f) (c:noop)) (move r (value-vector-ref t1 u1 w1 (c:value t2 u2 w2)) (vector-type-element u1)))) (lambda (p?) (compile-error "vector_ref2" y p?)))) (lambda (p?) (compile-error "vector_ref1" y p?)))) (define-primitive-procedure vector-set! three-arguments-compatible? (three-arguments-truly-compatible? vector-type? fixnum-type? type?) (list vector-type? fixnum-type? type?) (list vector-type? fixnum-type? type?) (three-arguments-propagate! (lambda (w1 w2 w3) (for-each-member (lambda (u1) (when (vector-type? u1) (assert-subset! w3 (vector-type-element u1)))) w1))) (for-each-member (lambda (u1) (when (vector-type? u1) (for-each-member (lambda (u2) (when (fixnum-type? u2) (promote! (if (degenerate-vector-type? u1) *discard* (create-accessor-result (vector-type-element u1) #f)) w3 w3))) w2))) w1) (type-switch vector-type? w1 r t1 (lambda (u1) (type-switch fixnum-type? w2 r t2 (lambda (u2) (newline-between (if *bounds-checks?* (c:if (c:boolean-or (c:<0 (c:value t2 u2 w2)) (c:>= (c:value t2 u2 w2) (value-vector-length t1 u1 w1))) (compile-error "vector_set3" y #f) (c:noop) #f) (c:noop)) (move (if (degenerate-vector-type? u1) *discard* (create-accessor-result (vector-type-element u1) (value-vector-ref t1 u1 w1 (c:value t2 u2 w2)))) t3 w3) (compile-return r))) (lambda (p?) (compile-error "vector_set2" y p?)))) (lambda (p?) (compile-error "vector_set1" y p?)))) (define-primitive-procedure procedure? one-argument-compatible? (one-argument-truly-compatible? type?) (list procedure-type?) (list (lambda (u) (not (procedure-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? procedure-type? w1) (can-be-non? procedure-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! procedure-type?))) #f (compile-type-predicate procedure-type?)) (define-primitive-procedure apply two-or-more-arguments-compatible? ;; needs work: To abstract. (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (and (can-be? (truly-compatible-procedure? (if (converted? y) (cons w0 (but-last (rest ws))) (but-last (rest ws))) (last ws) (recreate-call-site y 'first-argument)) (first ws)) (can-be? list-type? (last ws)))) ;; needs work: This could be made more precise. (cons procedure-type? (append (map-n (lambda (i) type?) (- n 2)) (list list-type?))) ;; needs work: This could be made more precise. (cons procedure-type? (append (map-n (lambda (i) type?) (- n 2)) (list list-type?))) ;; needs work: To abstract. (lambda (ws w) (when (can-be-non? null-type? w) (fuck-up)) (when #f ;debugging (when (can-be? continuation-type? (first ws)) (unimplemented y "Passing continuations as the first argument of APPLY is not (yet) implemented"))) (propagate-call! (recreate-call-site y 'first-argument) (first ws) (if (converted? y) (cons w0 (rest (but-last ws))) (rest (but-last ws))) (last ws))) #f (if (void? w1) (compile-error "void_call" y #t) (type-switch (compatible-procedure? (if (converted? y) (cons w0 (but-last (rest ws))) (but-last (rest ws))) (last ws) (recreate-call-site y 'first-argument)) w1 r t1 (lambda (u1) (if (converted? y) (compile-converted-call r (recreate-call-site y 'first-argument) t1 u1 w1 (cons t0 (but-last (rest ts))) (cons w0 (but-last (rest ws))) (last ts) (last ws)) (compile-call r (recreate-call-site y 'first-argument) t1 u1 w1 t0 w0 (but-last (rest ts)) (but-last (rest ws)) (last ts) (last ws)))) (lambda (p?) (compile-error "call" y p?))))) (define-primitive-procedure call-with-current-continuation one-argument-compatible? (one-argument-truly-compatible? (truly-compatible-procedure? (if (converted? y) (list w0 w0) (list (create-anonymous-type-set ( (call-site-expression y))))) *null* (recreate-call-site y 'first-argument))) (list (truly-compatible-procedure? (if (converted? y) (list w0 w0) (list (create-anonymous-type-set ( (call-site-expression y))))) *null* (recreate-call-site y 'first-argument))) (list (truly-compatible-procedure? (if (converted? y) (list w0 w0) (list (create-anonymous-type-set ( (call-site-expression y))))) *null* (recreate-call-site y 'first-argument))) (one-argument-propagate! (lambda (w1) (when #f ;debugging (when (can-be? continuation-type? w1) (unimplemented y "Passing continuations as the first argument of CALL-WITH-CURRENT-CONTINUATION is not (yet) implemented"))) (propagate-call! (recreate-call-site y 'first-argument) w1 (if (converted? y) (list w0 w0) (list (create-anonymous-type-set ( (call-site-expression y))))) *null*))) (let ((w (result-type-set r))) (when (converted? y) (fuck-up)) (newline-between (when (can-be? (lambda (u1) (and (native-procedure-type? u1) ((truly-compatible-procedure? (if (converted? y) (list w0 w0) (list (create-anonymous-type-set ( (call-site-expression y))))) *null* (recreate-call-site y 'first-argument)) u1) (some (lambda (e) (can-be? (lambda (u4) (and (eq? u4 ( (call-site-expression y))) (some (lambda (y) (not (goto? y u4))) (continuation-type-call-sites u4)))) (first-parameter-type-set (environment-expression e)))) (narrow-clones u1)))) w1) (for-each-member (lambda (u1) (when ((compatible-procedure? (list (create-anonymous-type-set ( (call-site-expression y)))) *null* (recreate-call-site y 'first-argument)) u1) (let ((w3 (create-anonymous-type-set ( (call-site-expression y))))) (promote-call! (if (or (discard? r) (fictitious? w)) *discard* (create-accessor-result w (c:v (call-site-expression y)))) (recreate-call-site y 'first-argument) u1 (list w3) *null*) (promote! r w w)))) w1)))) (let ((w (result-type-set r))) (when (converted? y) (fuck-up)) (newline-between (cond ((can-be? (lambda (u1) (and (native-procedure-type? u1) ((truly-compatible-procedure? (if (converted? y) (list w0 w0) (list (create-anonymous-type-set ( (call-site-expression y))))) *null* (recreate-call-site y 'first-argument)) u1) (some (lambda (e) (can-be? (lambda (u4) (and (eq? u4 ( (call-site-expression y))) (some (lambda (y) (not (goto? y u4))) (continuation-type-call-sites u4)))) (first-parameter-type-set (environment-expression e)))) (narrow-clones u1)))) w1) (include! "setjmp") ;jmp_buf (unless (or (discard? r) (fictitious? w)) (outside-main (c:declaration w (c:v (call-site-expression y)) (c:noop)))) ;; needs work: To use code-generation abstractions. (outside-body (semicolon-after (space-between *jmpbuf* (c:j (call-site-expression y))))) (type-switch (compatible-procedure? (list (create-anonymous-type-set ( (call-site-expression y)))) *null* (recreate-call-site y 'first-argument)) w1 r t1 (lambda (u1) (let* ((w3 (create-anonymous-type-set ( (call-site-expression y)))) (t3 (allocate-temporary w3))) (newline-between (c:if (c:setjmp (c:j (call-site-expression y))) (c:noop) (newline-between (widen (create-accessor-result w3 t3) (c:& (c:j (call-site-expression y))) (lambda (u) (and (continuation-type? u) (eq? (continuation-type-allocating-expression u) (call-site-expression y))))) (compile-call (if (or (discard? r) (fictitious? w)) *discard* (create-accessor-result w (c:v (call-site-expression y)))) (recreate-call-site y 'first-argument) t1 u1 w1 t0 w0 (list t3) (list w3) 'void23 *null*)) #t) (if (or (discard? r) (fictitious? w)) (compile-return r) (move r (c:v (call-site-expression y)) w))))) (lambda (p?) (compile-error "call_with_current_continuation" y p?)))) (else (type-switch (compatible-procedure? (list (create-anonymous-type-set ( (call-site-expression y)))) *null* (recreate-call-site y 'first-argument)) w1 r t1 (lambda (u1) (let* ((w3 (create-anonymous-type-set ( (call-site-expression y)))) (t3 (allocate-temporary w3))) (compile-call r (recreate-call-site y 'first-argument) t1 u1 w1 t0 w0 (list t3) (list w3) 'void24 *null*))) (lambda (p?) (compile-error "call_with_current_continuation" y p?))))) (if (can-be? (lambda (u1) (and (native-procedure-type? u1) ((truly-compatible-procedure? (if (converted? y) (list w0 w0) (list (create-anonymous-type-set ( (call-site-expression y))))) *null* (recreate-call-site y 'first-argument)) u1) (some (lambda (e) (can-be? (lambda (u4) (and (eq? u4 ( (call-site-expression y))) (some (lambda (y) (goto? y u4)) (continuation-type-call-sites u4)))) (first-parameter-type-set (environment-expression e)))) (narrow-clones u1)))) w1) (c:: (c:x (call-site-expression y))) (c:noop))))) (define-primitive-procedure input-port? one-argument-compatible? (one-argument-truly-compatible? type?) (list input-port-type?) (list (lambda (u) (not (input-port-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? input-port-type? w1) (can-be-non? input-port-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! input-port-type?))) #f (compile-type-predicate input-port-type?)) (define-primitive-procedure output-port? one-argument-compatible? (one-argument-truly-compatible? type?) (list output-port-type?) (list (lambda (u) (not (output-port-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? output-port-type? w1) (can-be-non? output-port-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! output-port-type?))) #f (compile-type-predicate output-port-type?)) (define-primitive-procedure open-input-file one-argument-compatible? (one-argument-truly-compatible? string-type?) (list string-type?) (list string-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch string-type? w1 r t1 (lambda (u1) (if *runtime-checks?* (if (or (discard? r) (antecedent? r) (and (return? r) (not (result-accessed? r)))) (let ((t (allocate-temporary *input-port*))) (newline-between (widen (create-accessor-result *input-port* t) (c:fopen (c:value t1 u1 w1) (c:string "r")) input-port-type?) (c:if (c:==null (c:value t (the-member *input-port*) *input-port*)) (compile-error "open_input_file2" y #f) (c:noop) #f) (compile-return r))) (newline-between (widen (unreturnify r) (c:fopen (c:value t1 u1 w1) (c:string "r")) input-port-type?) (c:if (c:==null (c:value (result-c r) (the-member-that input-port-type? (result-type-set r)) (result-type-set r))) (compile-error "open_input_file2" y #f) (c:noop) #f) (compile-return r))) (widen r (c:fopen (c:value t1 u1 w1) (c:string "r")) input-port-type?))) (lambda (p?) (compile-error "open_input_file1" y p?)))) (define-primitive-procedure open-output-file one-argument-compatible? (one-argument-truly-compatible? string-type?) (list string-type?) (list string-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch string-type? w1 r t1 (lambda (u1) (if *runtime-checks?* (if (or (discard? r) (antecedent? r) (and (return? r) (not (result-accessed? r)))) (let ((t (allocate-temporary *output-port*))) (newline-between (widen (create-accessor-result *output-port* t) (c:fopen (c:value t1 u1 w1) (c:string "w")) output-port-type?) (c:if (c:==null (c:value t (the-member *output-port*) *output-port*)) (compile-error "open_output_file2" y #f) (c:noop) #f) (compile-return r))) (newline-between (widen (unreturnify r) (c:fopen (c:value t1 u1 w1) (c:string "w")) output-port-type?) (c:if (c:==null (c:value (result-c r) (the-member-that output-port-type? (result-type-set r)) (result-type-set r))) (compile-error "open_output_file2" y #f) (c:noop) #f) (compile-return r))) (widen r (c:fopen (c:value t1 u1 w1) (c:string "w")) output-port-type?))) (lambda (p?) (compile-error "open_output_file1" y p?)))) (define-primitive-procedure close-input-port one-argument-compatible? (one-argument-truly-compatible? input-port-type?) (list input-port-type?) (list input-port-type?) (one-argument-propagate! (lambda (w1) #f)) #f (type-switch input-port-type? w1 r t1 (lambda (u1) (if *runtime-checks?* (c:if (c:fclose (c:value t1 u1 w1)) (compile-error "close_input_port2" y #f) (compile-return r) #t) (newline-between (semicolon-after (c:fclose (c:value t1 u1 w1))) (compile-return r)))) (lambda (p?) (compile-error "close_input_port1" y p?)))) (define-primitive-procedure close-output-port one-argument-compatible? (one-argument-truly-compatible? output-port-type?) (list output-port-type?) (list output-port-type?) (one-argument-propagate! (lambda (w1) #f)) #f (type-switch output-port-type? w1 r t1 (lambda (u1) (if *runtime-checks?* (c:if (c:fclose (c:value t1 u1 w1)) (compile-error "close_output_port2" y #f) (compile-return r) #t) (newline-between (semicolon-after (c:fclose (c:value t1 u1 w1))) (compile-return r)))) (lambda (p?) (compile-error "close_output_port1" y p?)))) (define-primitive-procedure read-char1 one-argument-compatible? (one-argument-truly-compatible? input-port-type?) (list input-port-type?) (list input-port-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ) (propagate-result! ))) #f (type-switch input-port-type? w1 r t1 (lambda (u1) (c:if (c:==eof (c:= (c:c) (c:getc (c:value t1 u1 w1)))) (widen r 'void25 eof-object-type?) (widen r (c:c) char-type?) #t)) (lambda (p?) (compile-error "read_char1" y p?)))) (define-primitive-procedure peek-char1 one-argument-compatible? (one-argument-truly-compatible? input-port-type?) (list input-port-type?) (list input-port-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ) (propagate-result! ))) #f (type-switch input-port-type? w1 r t1 (lambda (u1) (c:if (c:==eof (c:= (c:c) (c:ungetc (c:getc (c:value t1 u1 w1)) (c:value t1 u1 w1)))) (widen r 'void26 eof-object-type?) (widen r (c:c) char-type?) #t)) (lambda (p?) (compile-error "peek_char1" y p?)))) (define-primitive-procedure eof-object? one-argument-compatible? (one-argument-truly-compatible? type?) (list eof-object-type?) (list (lambda (u) (not (eof-object-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? eof-object-type? w1) (can-be-non? eof-object-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! eof-object-type?))) #f (compile-type-predicate eof-object-type?)) (define-primitive-procedure char-ready?1 one-argument-compatible? (one-argument-truly-compatible? input-port-type?) (list input-port-type?) (list input-port-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ) (propagate-result! ))) #f (type-switch input-port-type? w1 r t1 (lambda (u1) (compile-test r (c:input-waiting (c:value t1 u1 w1)))) (lambda (p?) (compile-error "char_ready1" y p?)))) (define-primitive-procedure standard-input-port zero-arguments-compatible? (zero-arguments-truly-compatible?) '() '() (zero-arguments-propagate! (lambda () (propagate-result! ))) #f (widen r (c:stdin) input-port-type?)) (define-primitive-procedure standard-output-port zero-arguments-compatible? (zero-arguments-truly-compatible?) '() '() (zero-arguments-propagate! (lambda () (propagate-result! ))) #f (widen r (c:stdout) output-port-type?)) (define-primitive-procedure write-char2 two-arguments-compatible? (two-arguments-truly-compatible? char-type? output-port-type?) (list char-type? output-port-type?) (list char-type? output-port-type?) (two-arguments-propagate! (lambda (w1 w2) #f)) #f (type-switch char-type? w1 r t1 (lambda (u1) (type-switch output-port-type? w2 r t2 (lambda (u2) (newline-between (c:putc (c:value t1 u1 w1) (c:value t2 u2 w2)) (compile-return r))) (lambda (p?) (compile-error "write_char2" y p?)))) (lambda (p?) (compile-error "write_char1" y p?)))) (define-primitive-procedure panic one-argument-compatible? (one-argument-truly-compatible? string-type?) (list string-type?) (list string-type?) (one-argument-propagate! (lambda (w1) #f)) #f (type-switch string-type? w1 r t1 (lambda (u1) (c:panic (c:value t1 u1 w1))) (lambda (p?) (compile-error "panic" y p?)))) (define-primitive-procedure pointer? one-argument-compatible? (one-argument-truly-compatible? type?) (list pointer-type?) (list (lambda (u) (not (pointer-type? u)))) (one-argument-propagate! (lambda (w1) (when (and (can-be? pointer-type? w1) (can-be-non? pointer-type? w1)) (for-each-member (lambda (u1) (set-type-type-tag-accessed?! u1 #t)) w1)) (propagate-type-predicate! pointer-type?))) #f (compile-type-predicate pointer-type?)) (define-primitive-procedure integer->string one-argument-compatible? (one-argument-truly-compatible? fixnum-type?) (list fixnum-type?) (list fixnum-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch fixnum-type? w1 r t1 (lambda (u1) (widen r (c:char*-cast (c:value t1 u1 w1)) string-type?)) (lambda (p?) (compile-error "integer_to_string" y p?)))) (define-primitive-procedure integer->input-port one-argument-compatible? (one-argument-truly-compatible? fixnum-type?) (list fixnum-type?) (list fixnum-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch fixnum-type? w1 r t1 (lambda (u1) (widen r (c:file*-cast (c:value t1 u1 w1)) input-port-type?)) (lambda (p?) (compile-error "integer_to_input_port" y p?)))) (define-primitive-procedure integer->output-port one-argument-compatible? (one-argument-truly-compatible? fixnum-type?) (list fixnum-type?) (list fixnum-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch fixnum-type? w1 r t1 (lambda (u1) (widen r (c:file*-cast (c:value t1 u1 w1)) output-port-type?)) (lambda (p?) (compile-error "integer_to_output_port" y p?)))) (define-primitive-procedure integer->pointer one-argument-compatible? (one-argument-truly-compatible? fixnum-type?) (list fixnum-type?) (list fixnum-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ))) #f (type-switch fixnum-type? w1 r t1 (lambda (u1) (widen r (c:void*-cast (c:value t1 u1 w1)) pointer-type?)) (lambda (p?) (compile-error "integer_to_pointer" y p?)))) (define-primitive-procedure clocks-per-second zero-arguments-compatible? (zero-arguments-truly-compatible?) '() '() (zero-arguments-propagate! (lambda () (propagate-result! ))) #f (widen r (c:clocks-per-second) fixnum-type?)) (define-primitive-procedure rand-max zero-arguments-compatible? (zero-arguments-truly-compatible?) '() '() (zero-arguments-propagate! (lambda () (propagate-result! ))) #f (widen r (c:rand-max) fixnum-type?)) (define-primitive-procedure pointer-size zero-arguments-compatible? (zero-arguments-truly-compatible?) '() '() (zero-arguments-propagate! (lambda () (propagate-result! ))) #f (widen r (c:pointer-size) fixnum-type?)) (define-primitive-procedure infinity? one-argument-compatible? (one-argument-truly-compatible? flonum-type?) (list flonum-type?) (list flonum-type?) (one-argument-propagate! (lambda (w1) (propagate-result! ) (propagate-result! ))) #f (type-switch flonum-type? w1 r t1 (lambda (u1) (compile-test r (c:==infinity (c:value t1 u1 w1)))) (lambda (p?) (compile-error "infinity" y p?)))) (define-primitive-procedure fork ;; note: FORK will fail miserably if you escape by calling a continuation. two-arguments-compatible? (two-arguments-truly-compatible? (truly-compatible-procedure? (if (converted? y) (list w0) '()) *null* (recreate-call-site y 'first-argument)) (truly-compatible-procedure? (if (converted? y) (list w0) '()) *null* (recreate-call-site y 'second-argument))) (list (truly-compatible-procedure? (if (converted? y) (list w0) '()) *null* (recreate-call-site y 'first-argument)) (truly-compatible-procedure? (if (converted? y) (list w0) '()) *null* (recreate-call-site y 'second-argument))) (list (truly-compatible-procedure? (if (converted? y) (list w0) '()) *null* (recreate-call-site y 'first-argument)) (truly-compatible-procedure? (if (converted? y) (list w0) '()) *null* (recreate-call-site y 'second-argument))) (two-arguments-propagate! (lambda (w1 w2) (propagate-call! (recreate-call-site y 'first-argument) w1 (if (converted? y) (list w0) '()) *null*) (propagate-call! (recreate-call-site y 'second-argument) w2 (if (converted? y) (list w0) '()) *null*))) ;; needs work: I can't remember what promotors do and thus can't figure out ;; if FORK needs one and, if so, how to write it. #f ;; needs work: To use code-generation abstractions. (begin (set! *program-has-pthreads?* #t) (include! "pthread") ;pthread_t pthread_create pthread_join (when (converted? y) (unimplemented y "Converted calls to FORK are not (yet) implemented")) (braces-around (newline-between (semicolon-after "pthread_t thread") ;; note: This uses GNU C internal functions. "void *branch(void *ignore)" (braces-around (newline-between (if (void? w1) (compile-error "void_call" y #t) (type-switch (compatible-procedure? '() *null* (recreate-call-site y 'first-argument)) w1 (unreturnify r) t1 (lambda (u1) (compile-call (unreturnify r) (recreate-call-site y 'first-argument) t1 u1 w1 t0 w0 '() '() #f *null*)) (lambda (p?) (compile-error "call" y p?)))) (semicolon-after "return NULL"))) (semicolon-after "pthread_create(&thread, NULL, &branch, NULL)") (if (void? w2) (compile-error "void_call" y #t) (type-switch (compatible-procedure? '() *null* (recreate-call-site y 'second-argument)) w2 (unreturnify r) t2 (lambda (u2) (compile-call (unreturnify r) (recreate-call-site y 'second-argument) t2 u2 w2 t0 w0 '() '() #f *null*)) (lambda (p?) (compile-error "call" y p?)))) (semicolon-after "pthread_join(thread, NULL)") (compile-return r))))) (define-primitive-procedure mutex ;; note: MUTEX will not unlock the mutex if you escape by calling a ;; continuation. one-argument-compatible? (one-argument-truly-compatible? (truly-compatible-procedure? (if (converted? y) (list w0) '()) *null* (recreate-call-site y 'first-argument))) (list (truly-compatible-procedure? (if (converted? y) (list w0) '()) *null* (recreate-call-site y 'first-argument))) (list (truly-compatible-procedure? (if (converted? y) (list w0) '()) *null* (recreate-call-site y 'first-argument))) (one-argument-propagate! (lambda (w1) (propagate-call! (recreate-call-site y 'first-argument) w1 (if (converted? y) (list w0) '()) *null*))) ;; needs work: I can't remember what promotors do and thus can't figure out ;; if MUTEX needs one and, if so, how to write it. #f ;; needs work: To use code-generation abstractions. (begin (set! *program-has-pthreads?* #t) ;; pthread_mutex_t pthread_mutex_lock pthread_mutex_unlock ;; PTHREAD_MUTEX_INITIALIZER (include! "pthread") (when (converted? y) (unimplemented y "Converted calls to MUTEX are not (yet) implemented")) (outside-main (semicolon-after (space-between "pthread_mutex_t" (c:mutex (call-site-expression y)) "=" "PTHREAD_MUTEX_INITIALIZER"))) (newline-between ;; needs work: Can use PTHREAD_MUTEX_INITIALIZER to make a fast mutex when ;; this expression isn't in a recursive path ;; in the call graph. ;; needs work: For now, under Linux PTHREAD_RECURSIVE_MUTEX_INITIALIZER_NP ;; is broken. (c:gosub "pthread_mutex_lock" (c:& (c:mutex (call-site-expression y)))) (if (void? w1) (compile-error "void_call" y #t) (type-switch (compatible-procedure? '() *null* (recreate-call-site y 'first-argument)) w1 r t1 (lambda (u1) (compile-call r (recreate-call-site y 'first-argument) t1 u1 w1 t0 w0 '() '() #f *null*)) (lambda (p?) (compile-error "call" y p?)))) (c:gosub "pthread_mutex_unlock" (c:& (c:mutex (call-site-expression y)))) (compile-return r)))) (define *list->vector* #f) (define *append* #f) (define *cons* #f) (define *eqv?* #f) ;;; Backquote (define (contains-unquote? s) (or (and (sx-list? s) (= (sx-length s) 2) (or (sx-eq? (sx-first s) 'unquote) (sx-eq? (sx-first s) 'unquote-splicing))) (and (sx-vector? s) (sx-some-vector contains-unquote? s)) (and (sx-pair? s) (or (contains-unquote? (sx-car s)) (contains-unquote? (sx-cdr s)))))) (define (expand-quasiquote s) ;; needs work: This encapsulation loses the line and character positions of ;; the quasiquote expression that is being rewritten. (encapsulate (if (contains-unquote? s) (cond ((and (sx-list? s) (= (sx-length s) 2) (or (sx-eq? (sx-first s) 'unquote) (sx-eq? (sx-first s) 'unquote-splicing))) s) ((sx-vector? s) (let ((ss (map expand-quasiquote (sx-vector->list s)))) (if (some (lambda (s) (sx-eq? (sx-first s) 'unquote-splicing)) ss) (list 'unquote `(,*list->vector* (,*append* ,@(map (lambda (s) (case (sx-datum (sx-first s)) ((unquote) `(,*cons* ,(sx-second s) '())) ((unquote-splicing) (sx-second s)) ((quote) `'(,(sx-second s))) (else (fuck-up)))) ss)))) (list 'unquote `((primitive-procedure vector) ,@(map (lambda (s) (if (sx-eq? (sx-first s) 'unquote) (sx-second s) s)) ss)))))) ((sx-pair? s) (let ((s1 (expand-quasiquote (sx-car s))) (s2 (expand-quasiquote (sx-cdr s)))) (case (sx-datum (sx-first s1)) ((unquote) (case (sx-datum (sx-first s2)) ((unquote) (list 'unquote `(,*cons* ,(sx-second s1) ,(sx-second s2)))) ((unquote-splicing) (syntax-error s "Improper UNQUOTE-SPLICING")) ((quote) (list 'unquote `(,*cons* ,(sx-second s1) ,s2))) (else (fuck-up)))) ((unquote-splicing) (case (sx-datum (sx-first s2)) ((unquote) ;; needs work: This doesn't handle the case `(,@A . ,B) where B is ;; not a list. (list 'unquote `(,*append* ,(sx-second s1) ,(sx-second s2)))) ((unquote-splicing) (syntax-error s "Improper UNQUOTE-SPLICING")) ((quote) ;; needs work: This doesn't handle the case `(,@A . B). (list 'unquote `(,*append* ,(sx-second s1) ,s2))) (else (fuck-up)))) ((quote) (case (sx-datum (sx-first s2)) ((unquote) (list 'unquote `(,*cons* ,s1 ,(sx-second s2)))) ((unquote-splicing) (syntax-error s "Improper UNQUOTE-SPLICING")) ((quote) `'(,(sx-second s1) . ,(sx-second s2))) (else (fuck-up)))) (else (fuck-up))))) (else `',s)) `',s))) ;;; DEFINEs (define (defined-variables ss) (let loop ((ss ss) (ss1 '())) (cond ((null? ss) ss1) ((and (sx-pair? (first ss)) (sx-eq? (sx-first (first ss)) 'define)) ;; Extension to R4RS: undefined defines. (cond ((and (or (= (sx-length (first ss)) 2) (= (sx-length (first ss)) 3)) (sx-symbol? (sx-second (first ss)))) (loop (rest ss) (if (memq (sx-datum (sx-second (first ss))) (map sx-datum ss1)) ss1 (cons (sx-second (first ss)) ss1)))) ((and (>= (sx-length (first ss)) 2) (sx-pair? (sx-second (first ss)))) (loop (rest ss) (if (memq (sx-datum (sx-first (sx-second (first ss)))) (map sx-datum ss1)) ss1 (cons (sx-first (sx-second (first ss))) ss1)))) (else (syntax-error (first ss) "Improper DEFINE")))) (else (loop (rest ss) ss1))))) (define (body s) (cond ((and (sx-list? s) (sx-pair? s) (sx-eq? (sx-first s) 'begin)) (let ((ss (body-list (sx-rest s)))) (if (every (lambda (s) (and (sx-list? s) (sx-pair? s) (sx-eq? (sx-first s) 'define))) ss) ss ;; needs work: This encapsulation loses the line and character ;; positions of the BEGIN expression that is being ;; rewritten. (list (encapsulate `(begin ,@ss)))))) ((and (sx-list? s) (sx-pair? s) (macro? (sx-first s))) (body (expand-macro s))) (else (list s)))) (define (body-list s) (reduce append (sx-map body s) '())) (define (macroexpand-body s) ;; Extension to R4RS: definitions can appear more places. (unless (s-expression-macroexpand-body s) (set-s-expression-macroexpand-body! s (let ((ss (body-list (sx-rest (sx-rest s))))) ;; needs work: This encapsulation loses the line and character positions of ;; the lambda expression that is being rewritten. (encapsulate (if (some (lambda (s) (and (sx-list? s) (sx-pair? s) (sx-eq? (sx-first s) 'define))) ss) (let ((ss1 (defined-variables ss)) (ss (map (lambda (s) (if (and (sx-pair? s) (sx-eq? (sx-first s) 'define)) (if (sx-symbol? (sx-second s)) `(set! ,(sx-second s) ,(sx-third s)) `(set! ,(sx-first (sx-second s)) (lambda ,(sx-rest (sx-second s)) ,@(sx-unlist (sx-rest (sx-rest s)))))) s)) (remove-if (lambda (s) (and (sx-pair? s) (sx-eq? (sx-first s) 'define) (= (sx-length s) 2))) ss)))) (cond ((null? ss) `(,(sx-first s) ,(sx-second s))) ((null? (rest ss)) `(,(sx-first s) ,(sx-second s) ((lambda ,ss1 ,(last ss)) ,@(map (lambda (s) '((lambda ()))) ss1)))) (else `(,(sx-first s) ,(sx-second s) ((lambda ,ss1 ;; note: This transformation relies on left-to-right argument ;; evaluation order. ((lambda ,(map (lambda (s) (gensym "hunoz")) (but-last ss)) ,(last ss)) ,@(but-last ss))) ,@(map (lambda (s) '((lambda ()))) ss1)))))) (if (or (null? ss) (null? (rest ss))) s `(,(sx-first s) ,(sx-second s) ;; note: This transformation relies on left-to-right argument ;; evaluation order. ((lambda ,(map (lambda (s) (gensym "hunoz")) (but-last ss)) ,(last ss)) ,@(but-last ss))))))))) (s-expression-macroexpand-body s)) ;;; The macros (define *macros* '()) (define *r4rs-macros* (list (list 'cond (lambda (s) (unless (and (sx-every (lambda (s) (and (sx-list? s) (sx-pair? s))) (sx-rest s)) (or (= (sx-length s) 1) (and (sx-every (lambda (s) (or (< (sx-length s) 2) (not (sx-eq? (sx-second s) '=>)) (= (sx-length s) 3))) (sx-rest s)) (every (lambda (s) (not (sx-eq? (sx-first s) 'else))) (rest (reverse (rest (sx-unlist s)))))))) (syntax-error s "Improper COND")) (cond ((= (sx-length s) 1) '((lambda ()))) ((sx-eq? (sx-first (sx-second s)) 'else) `(begin ,@(sx-unlist (sx-rest (sx-second s))))) ((sx-null? (sx-rest (sx-second s))) `(or ,(sx-first (sx-second s)) (cond ,@(sx-unlist (sx-rest (sx-rest s)))))) ((and (= (sx-length (sx-second s)) 3) (sx-eq? (sx-second (sx-second s)) '=>)) (let ((v (gensym "v"))) ;; conventions: V `(let ((,v ,(sx-first (sx-second s)))) (if ,v (,(sx-third (sx-second s)) ,v) (cond ,@(sx-unlist (sx-rest (sx-rest s)))))))) (else `(if ,(sx-first (sx-second s)) (begin ,@(sx-unlist (sx-rest (sx-second s)))) (cond ,@(sx-unlist (sx-rest (sx-rest s))))))))) (list 'case (lambda (s) (unless (and (>= (sx-length s) 2) (sx-every (lambda (s) (and (sx-list? s) (sx-pair? s))) (sx-rest (sx-rest s))) (or (= (sx-length s) 2) (and (every (lambda (s) (sx-list? (sx-first s))) (rest (reverse (rest (rest (sx-unlist s)))))) (or (sx-eq? (sx-first (sx-last s)) 'else) (sx-list? (sx-first (sx-last s))))))) (syntax-error s "Improper CASE")) (let ((v (gensym "v"))) ;; conventions: V `(let ((,v ,(sx-second s))) ,(if (and (>= (sx-length s) 3) (sx-eq? (sx-first (sx-last s)) 'else)) `(cond ,@(map (lambda (s) `((or ,@(sx-map (lambda (s) `(,*eqv?* ,v ',s)) (sx-first s))) ,@(sx-unlist (sx-rest s)))) (but-last (rest (rest (sx-unlist s))))) ,(sx-last s)) `(cond ,@(sx-map (lambda (s) `((or ,@(sx-map (lambda (s) `(,*eqv?* ,v ',s)) (sx-first s))) ,@(sx-unlist (sx-rest s)))) (sx-rest (sx-rest s))))))))) (list 'and (lambda (s) (cond ((= (sx-length s) 1) #t) ((= (sx-length s) 2) (sx-second s)) (else `(if ,(sx-second s) (and ,@(sx-unlist (sx-rest (sx-rest s)))) #f))))) (list 'or (lambda (s) (cond ((= (sx-length s) 1) #f) ((= (sx-length s) 2) (sx-second s)) (else (let ((v (gensym "v"))) ;; conventions: V `(let ((,v ,(sx-second s))) (if ,v ,v (or ,@(sx-unlist (sx-rest (sx-rest s))))))))))) (list 'let ;; Extension to R4RS: Binding can be symbol. (lambda (s) (unless (and (>= (sx-length s) 2) (or (and (sx-list? (sx-second s)) (sx-every (lambda (s) (or (sx-symbol? s) (and (sx-list? s) (= (sx-length s) 2)))) (sx-second s))) (and (sx-symbol? (sx-second s)) (>= (sx-length s) 3) (sx-list? (sx-third s)) (sx-every (lambda (s) (or (sx-symbol? s) (and (sx-list? s) (= (sx-length s) 2)))) (sx-third s))))) (syntax-error s "Improper LET")) (if (sx-list? (sx-second s)) ;; note: This is more complicated than it has to be in attempt to ;; match the Scheme->C argument evaluation order. `((lambda ,(map (lambda (s) (if (sx-symbol? s) s (sx-first s))) (reverse (sx-unlist (sx-second s)))) ,@(sx-unlist (sx-rest (sx-rest s)))) ,@(map (lambda (s) (if (sx-symbol? s) '((lambda ())) (sx-second s))) (reverse (sx-unlist (sx-second s))))) `((letrec ((,(sx-second s) (lambda ,(sx-map (lambda (s) (if (sx-symbol? s) s (sx-first s))) (sx-third s)) ,@(sx-unlist (sx-rest (sx-rest (sx-rest s))))))) ,(sx-second s)) ,@(sx-map (lambda (s) (if (sx-symbol? s) '((lambda ())) (sx-second s))) (sx-third s)))))) (list 'let* ;; Extension to R4RS: Binding can be symbol. (lambda (s) (unless (and (>= (sx-length s) 2) (sx-list? (sx-second s)) (sx-every (lambda (s) (or (sx-symbol? s) (and (sx-list? s) (= (sx-length s) 2)))) (sx-second s))) (syntax-error s "Improper LET*")) (if (sx-null? (sx-second s)) `(begin ,@(sx-unlist (sx-rest (sx-rest s)))) `(let (,(sx-first (sx-second s))) (let* ,(sx-rest (sx-second s)) ,@(sx-unlist (sx-rest (sx-rest s)))))))) (list 'letrec ;; Extension to R4RS: Binding can be symbol. (lambda (s) (unless (and (>= (sx-length s) 2) (sx-list? (sx-second s)) (sx-every (lambda (s) (or (sx-symbol? s) (and (sx-list? s) (= (sx-length s) 2)))) (sx-second s))) (syntax-error s "Improper LETREC")) `(let ,(sx-map (lambda (s) (if (sx-symbol? s) `(,s ((lambda ()))) `(,(sx-first s) ((lambda ()))))) (sx-second s)) ,@(map (lambda (s) `(set! ,(sx-first s) ,(sx-second s))) (remove-if sx-symbol? (sx-unlist (sx-second s)))) ,@(sx-unlist (sx-rest (sx-rest s)))))) (list 'begin (lambda (s) `((lambda () ,@(sx-unlist (sx-rest s)))))) (list 'do (lambda (s) ;; Extension to R4RS: Iterators can be empty. (unless (and (>= (sx-length s) 3) (sx-list? (sx-second s)) (sx-every (lambda (s) (and (sx-list? s) (or (= (sx-length s) 2) (= (sx-length s) 3)))) (sx-second s)) (sx-list? (sx-third s)) (>= (sx-length (sx-third s)) 1)) (syntax-error s "Improper DO")) (let ((loop (gensym "loop"))) ;; conventions: LOOP `(letrec ((,loop (lambda ,(sx-map sx-first (sx-second s)) (if ,(sx-first (sx-third s)) (begin ,@(sx-unlist (sx-rest (sx-third s)))) (begin ,@(sx-unlist (sx-rest (sx-rest (sx-rest s)))) (,loop ,@(sx-map (lambda (s) (if (= (sx-length s) 2) (sx-first s) (sx-third s))) (sx-second s)))))))) (,loop ,@(sx-map sx-second (sx-second s))))))) (list 'delay (lambda (s) (unless (= (sx-length s) 2) (syntax-error s "Improper DELAY")) `((lambda (proc) (let ((result-ready? #f) (result #f)) (lambda () (if result-ready? result (let ((x (proc))) (if result-ready? result (begin (set! result-ready? #t) (set! result x) result))))))) (lambda () ,(sx-second s))))) (list 'quasiquote (lambda (s) (unless (= (sx-length s) 2) (syntax-error s "Improper QUASIQUOTE")) (let ((s (expand-quasiquote (sx-second s)))) (case (sx-datum (sx-first s)) ((unquote) (sx-second s)) ((unquote-splicing) (syntax-error s "Improper UNQUOTE-SPLICING")) ((quote) s) (else (fuck-up)))))) (list 'unquote (lambda (s) (syntax-error s "UNQUOTE not inside QUASIQUOTE"))) (list 'unquote-splicing (lambda (s) (syntax-error s "UNQUOTE-SPLICING not inside QUASIQUOTE"))))) ;;; The Scheme library (define *read* '(define (read . port) ;; needs work: Long predecimal point digit strings can overflow. ;; needs work: Mantissa can overflow or underflow even though exponent ;; would prevent that overflow or underflow. ;; needs work: Can't read largest negative number. ;; needs work: To handle polar numbers with @. ;; needs work: To handle rectangular numbers with i. ;; needs work: To handle ratios with /. ;; needs work: To handle numbers with embedded #. ;; needs work: To handle exactness with #e and #i. ;; needs work: To handle structures. (set! port (if (null? port) (current-input-port) (car port))) ;; needs work: The DOT and CLOSE gensyms should be extracted and bound by a ;; LET that is outside the DEFINE of READ. (let ((dot (string->uninterned-symbol (string-copy "dot"))) (close (string->uninterned-symbol (string-copy "close")))) (let read ((state 'object)) (define (read-exact-binary-integer n) (let ((c (peek-char port))) (cond ((eof-object? c) n) ((char=? c #\0) (read-char port) (read-exact-binary-integer (* 2 n))) ((char=? c #\1) (read-char port) (read-exact-binary-integer (+ (* 2 n) 1))) (else n)))) (define (read-exact-octal-integer n) (let ((c (peek-char port))) (cond ((eof-object? c) n) ((and (char>=? c #\0) (char<=? c #\7)) (read-char port) (read-exact-octal-integer (+ (* 8 n) (- (char->integer c) (char->integer #\0))))) (else n)))) (define (read-exact-decimal-integer n) (let ((c (peek-char port))) (cond ((eof-object? c) n) ((char-numeric? c) (read-char port) (read-exact-decimal-integer (+ (* 10 n) (- (char->integer c) (char->integer #\0))))) (else n)))) (define (read-exact-hexadecimal-integer n) (let ((c (peek-char port))) (cond ((eof-object? c) n) ((char-numeric? c) (read-char port) (read-exact-hexadecimal-integer (+ (* 16 n) (- (char->integer c) (char->integer #\0))))) ((and (char>=? c #\a) (char<=? c #\f)) (read-char port) (read-exact-hexadecimal-integer (+ (* 16 n) (- (char->integer c) (char->integer #\a)) 10))) ((and (char>=? c #\A) (char<=? c #\F)) (read-char port) (read-exact-hexadecimal-integer (+ (* 16 n) (- (char->integer c) (char->integer #\A)) 10))) (else n)))) (define (read-inexact-number n m) (let ((c1 (peek-char port))) (cond ((eof-object? c1) n) ((char-numeric? c1) (read-char port) (read-inexact-number (+ n (/ (- (char->integer c1) (char->integer #\0)) m)) (* m 10.0))) ((or (char=? c1 #\e) (char=? c1 #\E) (char=? c1 #\s) (char=? c1 #\S) (char=? c1 #\f) (char=? c1 #\F) (char=? c1 #\d) (char=? c1 #\D) (char=? c1 #\l) (char=? c1 #\L)) (read-char port) (let ((c2 (read-char port))) (if (eof-object? c2) (panic "EOF while reading exponent")) (cond ((char-numeric? c2) (* n (expt 10.0 (read-exact-decimal-integer (- (char->integer c2) (char->integer #\0)))))) ((char=? c2 #\+) (let ((c3 (read-char port))) (if (eof-object? c3) (panic "EOF while reading exponent")) (if (not (char-numeric? c3)) (panic "Unfinished exponent")) (* n (expt 10.0 (read-exact-decimal-integer (- (char->integer c3) (char->integer #\0))))))) ((char=? c2 #\-) (let ((c3 (read-char port))) (if (eof-object? c3) (panic "EOF while reading exponent")) (if (not (char-numeric? c3)) (panic "Unfinished exponent")) (* n (expt 10.0 (- (read-exact-decimal-integer (- (char->integer c3) (char->integer #\0)))))))) (else (panic "Unfinished exponent"))))) (else n)))) (define (read-number n) (let ((c1 (peek-char port))) (cond ((eof-object? c1) n) ((char-numeric? c1) (read-char port) (read-number (+ (* 10 n) (- (char->integer c1) (char->integer #\0))))) ((char=? c1 #\.) (read-char port) (read-inexact-number (exact->inexact n) 10.0)) ((or (char=? c1 #\e) (char=? c1 #\E) (char=? c1 #\s) (char=? c1 #\S) (char=? c1 #\f) (char=? c1 #\F) (char=? c1 #\d) (char=? c1 #\D) (char=? c1 #\l) (char=? c1 #\L)) (read-char port) (let ((c2 (read-char port))) (if (eof-object? c2) (panic "EOF while reading exponent")) (cond ((char-numeric? c2) (* (exact->inexact n) (expt 10.0 (read-exact-decimal-integer (- (char->integer c2) (char->integer #\0)))))) ((char=? c2 #\+) (let ((c3 (read-char port))) (if (eof-object? c3) (panic "EOF while reading exponent")) (if (not (char-numeric? c3)) (panic "Unfinished exponent")) (* (exact->inexact n) (expt 10.0 (read-exact-decimal-integer (- (char->integer c3) (char->integer #\0))))))) ((char=? c2 #\-) (let ((c3 (read-char port))) (if (eof-object? c3) (panic "EOF while reading exponent")) (if (not (char-numeric? c3)) (panic "Unfinished exponent")) (* (exact->inexact n) (expt 10.0 (- (read-exact-decimal-integer (- (char->integer c3) (char->integer #\0)))))))) (else (panic "Unfinished exponent"))))) (else n)))) (define (char-initial? c) (or (char-alphabetic? c) (char=? c #\~) (char=? c #\!) (char=? c #\$) (char=? c #\%) (char=? c #\^) (char=? c #\&) (char=? c #\*) (char=? c #\_) (char=? c #\/) (char=? c #\:) (char=? c #\<) (char=? c #\=) (char=? c #\>) (char=? c #\?))) (define (char-subsequent? c) (or (char-initial? c) (char-numeric? c) (char=? c #\+) (char=? c #\-) (char=? c #\.))) (define (read-symbol s) ;; needs work: To eliminate LIST-REVERSE. (let ((c (peek-char port))) (cond ((eof-object? c) (string->symbol (list->string (list-reverse s)))) ((char-subsequent? c) (read-char port) (read-symbol (cons (char-upcase c) s))) (else (string->symbol (list->string (list-reverse s))))))) (define (lookup-character-name s) (let loop ((names '(((#\e #\c #\a #\p #\s) . #\space) ((#\e #\n #\i #\l #\w #\e #\n) . #\newline)))) (if (null? names) (panic "Unrecognized character name")) (if (let loop? ((s s) (name (car (car names)))) (or (and (null? s) (null? name)) (and (not (null? s)) (not (null? name)) (char-ci=? (car s) (car name)) (loop? (cdr s) (cdr name))))) (cdr (car names)) (loop (cdr names))))) (define (read-character-name s) (let ((c (peek-char port))) (cond ((eof-object? c) (lookup-character-name s)) ((char-alphabetic? c) (read-char port) (read-character-name (cons c s))) (else (if (and (not (null? s)) (null? (cdr s))) (car s) (lookup-character-name s)))))) (let ((c1 (read-char port))) (cond ((eof-object? c1) ;; note: Manually split EQV? here by removing CASE. (cond ((eq? state 'object) c1) ((eq? state 'list) (panic "EOF while reading list")) ((eq? state 'vector) (panic "EOF while reading vector")) ((eq? state 'quote) (panic "EOF while reading quoted object")) ((eq? state 'quasiquote) (panic "EOF while reading quasiquoted object")) ((eq? state 'unquote-splicing) (panic "EOF while reading unquote-slicing object")) ((eq? state 'unquote) (panic "EOF while reading unquoted object")) ((eq? state 'close) (panic "EOF while reading pair")) (else (panic "This shouldn't happen")))) ((char=? c1 #\;) (let loop () (if (let ((c (read-char port))) (and (not (eof-object? c)) (not (char=? c #\newline)))) (loop))) (read state)) ((char=? c1 #\)) (if (and (not (eq? state 'list)) (not (eq? state 'vector)) (not (eq? state 'close))) (panic "Mismatched closing parenthesis")) close) ((char-whitespace? c1) (read state)) ((eq? state 'close) (panic "Only one object allowed after dot")) ((char=? c1 #\') (list 'quote (read 'quote))) ((char=? c1 #\`) (list 'quasiquote (read 'quasiquote))) ((char=? c1 #\,) (let ((c2 (peek-char port))) (if (eof-object? c2) (panic "EOF after dot")) (cond ((char=? c2 #\@) (read-char port) (list 'unquote-splicing (read 'unquote-splicing))) (else (list 'unquote (read 'unquote)))))) ((char=? c1 #\() (let loop ((s '())) (let ((e (read 'list))) ;; needs work: To eliminate LIST-REVERSE. (cond ((eq? e dot) (if (null? s) (panic "Dot cannot be first element of list")) (let* ((e1 (read 'object)) (e2 (read 'close))) (let loop ((s (cdr s)) (c (cons (car s) e1))) (if (null? s) c (loop (cdr s) (cons (car s) c)))))) ((eq? e close) (list-reverse s)) (else (loop (cons e s))))))) ((char=? c1 #\#) (let ((c2 (read-char port))) (if (eof-object? c2) (panic "EOF after sharp sign")) (cond ((or (char=? c2 #\t) (char=? c2 #\T)) #t) ((or (char=? c2 #\f) (char=? c2 #\F)) #f) ((or (char=? c2 #\b) (char=? c2 #\B)) (let ((c3 (read-char port))) (if (eof-object? c3) (panic "EOF while reading binary number")) (cond ((char=? c3 #\0) (read-exact-binary-integer 0)) ((char=? c3 #\1) (read-exact-binary-integer 1)) ((char=? c3 #\+) (let ((c4 (read-char port))) (if (eof-object? c4) (panic "EOF while reading binary number")) (cond ((char=? c4 #\0) (read-exact-binary-integer 0)) ((char=? c4 #\1) (read-exact-binary-integer 1)) (else (panic "Unfinished binary number"))))) ((char=? c3 #\-) (let ((c4 (read-char port))) (if (eof-object? c4) (panic "EOF while reading binary number")) (cond ((char=? c4 #\0) (- (read-exact-binary-integer 0))) ((char=? c4 #\1) (- (read-exact-binary-integer 1))) (else (panic "Unfinished binary number"))))) (else (panic "Unfinished binary number"))))) ((or (char=? c2 #\o) (char=? c2 #\O)) (let ((c3 (read-char port))) (if (eof-object? c3) (panic "EOF while reading octal number")) (cond ((and (char>=? c3 #\0) (char<=? c3 #\7)) (read-exact-octal-integer (- (char->integer c3) (char->integer #\0)))) ((char=? c3 #\+) (let ((c4 (read-char port))) (if (eof-object? c4) (panic "EOF while reading octal number")) (if (or (char? c4 #\7)) (panic "Unfinished octal number")) (read-exact-octal-integer (- (char->integer c4) (char->integer #\0))))) ((char=? c3 #\-) (let ((c4 (read-char port))) (if (eof-object? c4) (panic "EOF while reading octal number")) (if (or (char? c4 #\7)) (panic "Unfinished octal number")) (- (read-exact-octal-integer (- (char->integer c4) (char->integer #\0)))))) (else (panic "Unfinished octal number"))))) ((or (char=? c2 #\d) (char=? c2 #\D)) (let ((c3 (read-char port))) (if (eof-object? c3) (panic "EOF while reading decimal number")) (cond ((char=? c3 #\+) (let ((c4 (read-char port))) (if (eof-object? c4) (panic "EOF while reading decimal number")) (cond ((char-numeric? c4) (read-number (- (char->integer c4) (char->integer #\0)))) ((char=? c4 #\.) (let ((c5 (read-char port))) (if (eof-object? c5) (panic "EOF while reading decimal number")) (if (not (char-numeric? c5)) (panic "Unfinished decimal number")) (read-inexact-number (/ (- (char->integer c5) (char->integer #\0)) 10.0) 100.0))) (else (panic "Unfinished decimal number"))))) ((char=? c3 #\-) (let ((c4 (read-char port))) (if (eof-object? c4) (panic "EOF while reading decimal number")) (cond ((char-numeric? c4) (- (read-number (- (char->integer c4) (char->integer #\0))))) ((char=? c4 #\.) (let ((c5 (read-char port))) (if (eof-object? c5) (panic "EOF while reading decimal number")) (if (not (char-numeric? c5)) (panic "Unfinished decimal number")) (- (read-inexact-number (/ (- (char->integer c5) (char->integer #\0)) 10.0) 100.0)))) (else (panic "Unfinished decimal number"))))) ((char=? c3 #\.) (let ((c4 (read-char port))) (if (eof-object? c4) (panic "EOF while reading decimal number")) (if (not (char-numeric? c4)) (panic "Unfinished decimal number")) (read-inexact-number (/ (- (char->integer c4) (char->integer #\0)) 10.0) 100.0))) ((char-numeric? c3) (read-number (- (char->integer c3) (char->integer #\0)))) (else (panic "Unfinished decimal number"))))) ((or (char=? c2 #\x) (char=? c2 #\X)) (let ((c3 (read-char port))) (if (eof-object? c3) (panic "EOF while reading hexadecimal number")) (cond ((char-numeric? c3) (read-exact-hexadecimal-integer (- (char->integer c3) (char->integer #\0)))) ((and (char>=? c3 #\a) (char<=? c3 #\f)) (read-exact-hexadecimal-integer (+ (- (char->integer c3) (char->integer #\a)) 10))) ((and (char>=? c3 #\A) (char<=? c3 #\F)) (read-exact-hexadecimal-integer (+ (- (char->integer c3) (char->integer #\A)) 10))) ((char=? c3 #\+) (let ((c4 (read-char port))) (if (eof-object? c4) (panic "EOF while reading hexadecimal number")) (cond ((char-numeric? c4) (read-exact-hexadecimal-integer (- (char->integer c4) (char->integer #\0)))) ((and (char>=? c4 #\a) (char<=? c4 #\f)) (read-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\a)) 10))) ((and (char>=? c4 #\A) (char<=? c4 #\F)) (read-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\A)) 10))) (else (panic "Unfinished hexadecimal number"))))) ((char=? c3 #\-) (let ((c4 (read-char port))) (if (eof-object? c4) (panic "EOF while reading hexadecimal number")) (cond ((char-numeric? c4) (- (read-exact-hexadecimal-integer (- (char->integer c4) (char->integer #\0))))) ((and (char>=? c4 #\a) (char<=? c4 #\f)) (- (read-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\a)) 10)))) ((and (char>=? c4 #\A) (char<=? c4 #\F)) (- (read-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\A)) 10)))) (else (panic "Unfinished hexadecimal number"))))) (else (panic "Unfinished hexadecimal number"))))) ((char=? c2 #\() (let loop ((s '())) (let ((e (read 'vector))) ;; needs work: To eliminate LIST-REVERSE. (if (eq? e close) (list->vector (list-reverse s)) (loop (cons e s)))))) ((char=? c2 #\\) (let ((c3 (read-char port))) (if (eof-object? c3) (panic "EOF while reading character constant")) (if (char-alphabetic? c3) (read-character-name (list c3)) c3))) (else (panic "Improper character after sharp sign"))))) ((char=? c1 #\") ;; needs work: To eliminate LIST-REVERSE. (let loop ((s '())) (let ((c (read-char port))) (if (eof-object? c) (panic "EOF while reading string")) (cond ((char=? c #\\) (let ((c1 (read-char port))) (if (eof-object? c1) (panic "EOF after backslash in string")) (loop (cons c1 s)))) ((char=? c #\") (list->string (list-reverse s))) (else (loop (cons c s))))))) ((char=? c1 #\+) (let ((c2 (peek-char port))) (cond ((eof-object? c2) '+) ((char-numeric? c2) (read-char port) (read-number (- (char->integer c2) (char->integer #\0)))) ((char=? c2 #\.) (read-char port) (let ((c3 (peek-char port))) (cond ((eof-object? c3) '+.) ((char-numeric? c3) (read-char port) (read-inexact-number (/ (- (char->integer c3) (char->integer #\0)) 10.0) 100.0)) ((char-subsequent? c3) (read-char port) (read-symbol (list (char-upcase c3) (char-upcase c2) (char-upcase c1)))) (else '+.)))) ((char-subsequent? c2) (read-char port) (read-symbol (list (char-upcase c2) (char-upcase c1)))) (else '+)))) ((char=? c1 #\-) (let ((c2 (peek-char port))) (cond ((eof-object? c2) '-) ((char-numeric? c2) (read-char port) (- (read-number (- (char->integer c2) (char->integer #\0))))) ((char=? c2 #\.) (read-char port) (let ((c3 (peek-char port))) (cond ((eof-object? c3) '-.) ((char-numeric? c3) (read-char port) (- (read-inexact-number (/ (- (char->integer c3) (char->integer #\0)) 10.0) 100.0))) ((char-subsequent? c3) (read-char port) (read-symbol (list (char-upcase c3) (char-upcase c2) (char-upcase c1)))) (else '-.)))) ((char-subsequent? c2) (read-char port) (read-symbol (list (char-upcase c2) (char-upcase c1)))) (else '-)))) ((char=? c1 #\.) (let ((c2 (peek-char port))) (if (eof-object? c2) (panic "EOF after dot")) (cond ((char-numeric? c2) (read-char port) (read-inexact-number (/ (- (char->integer c2) (char->integer #\0)) 10.0) 100.0)) ((char-subsequent? c2) (read-char port) (read-symbol (list (char-upcase c2) (char-upcase c1)))) ((eq? state 'list) dot) (else (panic "Dot allowed only inside list"))))) ((char-numeric? c1) (read-number (- (char->integer c1) (char->integer #\0)))) ((char-initial? c1) (read-symbol (list (char-upcase c1)))) (else (panic "Attempt to READ invalid character")))))))) (define *i/o* ;; needs work: ;; 1. DISPLAY-{STRING,EXACT-INTEGER,MANTISSA-EXPONENT,INEXACT-REAL}1, ;; WRITE1 ;; 2. recursive calls to DISPLAY-INEXACT-REAL2, WRITE2, and DISPLAY2 ;; should be optimized to not pass PORT ;; 3. check implementation of remainder and modulo ;; 4. rectangular numbers ;; 5. -0.0 ;; 6. should be able to print inexact numbers in non-scientific notation '(let ((buffer (make-vector 20)) ;enough for 64-bit numbers (the-current-input-port ((primitive-procedure standard-input-port))) (the-current-output-port ((primitive-procedure standard-output-port))) (write-methods '()) (display-methods '())) (define read-char1 (primitive-procedure read-char1)) (define peek-char1 (primitive-procedure peek-char1)) (define char-ready?1 (primitive-procedure char-ready?1)) (define write-char2 (primitive-procedure write-char2)) (define (display-string2 string port) (let ((n (string-length string))) (let loop ((i 0)) (if (< i n) (begin (write-char2 (string-ref string i) port) (loop (+ i 1))))))) (define (display-exact-integer2 number port) (cond ((positive? number) (let loop ((i 0) (number number)) (if (zero? number) (let loop ((i (- i 1))) (write-char2 (integer->char (+ (char->integer #\0) (vector-ref buffer i))) port) (if (not (zero? i)) (loop (- i 1)))) (begin (vector-set! buffer i (remainder number 10)) (loop (+ i 1) (quotient number 10)))))) ((negative? number) (write-char2 #\- port) (let loop ((i 0) (number number)) (if (zero? number) (let loop ((i (- i 1))) (write-char2 (integer->char (+ (char->integer #\0) (vector-ref buffer i))) port) (if (not (zero? i)) (loop (- i 1)))) (begin (vector-set! buffer i (- (remainder number 10))) (loop (+ i 1) (quotient number 10)))))) (else (write-char2 #\0 port)))) (define (display-mantissa-exponent2 mantissa exponent port) (let* ((float-digit (floor mantissa)) (digit (inexact->exact float-digit))) ;; needs work: This is a real kludge. (cond ((= digit 0) (display-mantissa-exponent2 (* 10.0 mantissa) (- exponent 1) port)) ((= digit 10) (display-mantissa-exponent2 (* 0.1 mantissa) (+ exponent 1) port)) (else (write-char2 (integer->char (+ (char->integer #\0) digit)) port) (write-char2 #\. port) (let loop ((mantissa (* 10.0 (- mantissa float-digit)))) (let* ((float-digit (floor mantissa)) (digit (inexact->exact float-digit))) (write-char2 (integer->char (+ (char->integer #\0) digit)) port) (let ((mantissa (* 10.0 (- mantissa float-digit)))) (if (not (zero? mantissa)) (loop mantissa))))) (if (not (zero? exponent)) (begin (write-char2 #\e port) (display-exact-integer2 exponent port))))))) (define (display-inexact-real2 number port) (cond ((not (= number number)) (display-string2 "#*NOT-A-NUMBER*" port)) (((primitive-procedure infinity?) number) (display-string2 "#*INFINITY*" port)) ((negative? number) (write-char2 #\- port) (display-inexact-real2 (- number) port)) ((zero? number) (display-string2 "0.0" port)) ((>= number 10.0) (let loop ((mantissa (* 0.1 number)) (exponent 1)) (if (>= mantissa 10.0) (loop (* 0.1 mantissa) (+ exponent 1)) (display-mantissa-exponent2 mantissa exponent port)))) ((< number 1.0) (let loop ((mantissa (* 10.0 number)) (exponent -1)) (if (< mantissa 1.0) (loop (* 10.0 mantissa) (- exponent 1)) (display-mantissa-exponent2 mantissa exponent port)))) (else (display-mantissa-exponent2 number 0 port)))) (define (write2 obj port) (cond ((null? obj) (display-string2 "()" port)) ((eq? obj #t) (display-string2 "#T" port)) ((not obj) (display-string2 "#F" port)) ((char? obj) ;; needs work: To handle other non printing characters. (cond ((char=? obj #\space) (display-string2 "#\\Space" port)) ((char=? obj #\newline) (display-string2 "#\\Newline" port)) (else (display-string2 "#\\" port) (write-char2 obj port)))) ((number? obj) (if (exact? obj) (display-exact-integer2 obj port) (display-inexact-real2 obj port))) ((input-port? obj) (display-string2 "#*INPUT-PORT*" port)) ((output-port? obj) (display-string2 "#*OUTPUT-PORT*" port)) ((eof-object? obj) (display-string2 "#*EOF-OBJECT*" port)) ((pointer? obj) (display-string2 "#*POINTER*" port)) ((symbol? obj) ;; needs work: Should slashify. (display-string2 (symbol->string obj) port)) ((procedure? obj) (display-string2 "#*PROCEDURE*" port)) ((string? obj) (write-char2 #\" port) (let ((n (string-length obj))) (let loop ((i 0)) (if (< i n) (let ((c (string-ref obj i))) (if (or (char=? c #\\) (char=? c #\")) (write-char2 #\\ port)) (write-char2 c port) (loop (+ i 1)))))) (write-char2 #\" port)) ((pair? obj) (write-char2 #\( port) (let loop ((obj obj)) (cond ((null? (cdr obj)) (write2 (car obj) port) (write-char2 #\) port)) ((pair? (cdr obj)) (write2 (car obj) port) (write-char2 #\space port) (loop (cdr obj))) (else (write2 (car obj) port) (display-string2 " . " port) (write2 (cdr obj) port) (write-char2 #\) port))))) ((vector? obj) (display-string2 "#(" port) (if (not (zero? (vector-length obj))) (begin (write2 (vector-ref obj 0) port) (let loop ((i 1)) (if (< i (vector-length obj)) (begin (write-char2 #\space port) (write2 (vector-ref obj i) port) (loop (+ i 1))))))) (write-char2 #\) port)) (else (let loop ((write-methods write-methods)) (cond ((null? write-methods) (display-string2 "#*UNKNOWN*" port)) (((car (car write-methods)) obj) ((cdr (car write-methods)) obj port)) (else (loop (cdr write-methods)))))))) (define (display2 obj port) (cond ((null? obj) (display-string2 "()" port)) ((eq? obj #t) (display-string2 "#T" port)) ((not obj) (display-string2 "#F" port)) ((char? obj) (write-char2 obj port)) ((number? obj) (if (exact? obj) (display-exact-integer2 obj port) (display-inexact-real2 obj port))) ((input-port? obj) (display-string2 "#*INPUT-PORT*" port)) ((output-port? obj) (display-string2 "#*OUTPUT-PORT*" port)) ((eof-object? obj) (display-string2 "#*EOF-OBJECT*" port)) ((pointer? obj) (display-string2 "#*POINTER*" port)) ((symbol? obj) (display-string2 (symbol->string obj) port)) ((procedure? obj) (display-string2 "#*PROCEDURE*" port)) ((string? obj) (display-string2 obj port)) ((pair? obj) (write-char2 #\( port) (let loop ((obj obj)) (cond ((null? (cdr obj)) (display2 (car obj) port) (write-char2 #\) port)) ((pair? (cdr obj)) (display2 (car obj) port) (write-char2 #\space port) (loop (cdr obj))) (else (display2 (car obj) port) (display-string2 " . " port) (display2 (cdr obj) port) (write-char2 #\) port))))) ((vector? obj) (display-string2 "#(" port) (if (not (zero? (vector-length obj))) (begin (display2 (vector-ref obj 0) port) (let loop ((i 1)) (if (< i (vector-length obj)) (begin (write-char2 #\space port) (display2 (vector-ref obj i) port) (loop (+ i 1))))))) (write-char2 #\) port)) (else (let loop ((display-methods display-methods)) (cond ((null? display-methods) (display-string2 "#*UNKNOWN*" port)) (((car (car display-methods)) obj) ((cdr (car display-methods)) obj port)) (else (loop (cdr display-methods)))))))) (set! number->string ;; Bengt Kleberg contributed the enhancements to ;; NUMBER->STRING to support the optional radix argument. (lambda (number . optional-radix) (let* ((radix-exact (if (null? optional-radix) 10 (let ((probably-radix (car optional-radix))) (if (and (integer? probably-radix) (exact? probably-radix) (or (= probably-radix 10) (and (integer? number) (exact? number) (or (= probably-radix 2) (= probably-radix 8) (= probably-radix 16))))) probably-radix (panic "Attempt to call NUMBER->STRING with invalid radix"))))) (radix-inexact (exact->inexact radix-exact)) (radix-inverted (/ radix-inexact))) ;; needs work: To handle optional radix argument better. (define (hex-digit->char digit) (vector-ref '#(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9 #\A #\B #\C #\D #\E #\F) digit)) (define (mantissa-exponent->characters mantissa exponent) (let* ((float-digit (floor mantissa)) (digit (inexact->exact float-digit))) ;; needs work: This is a real kludge. (cond ((= digit 0) (mantissa-exponent->characters (* radix-inexact mantissa) (- exponent 1))) ((= digit radix-exact) (mantissa-exponent->characters (* radix-inverted mantissa) (+ exponent 1))) (else (cons (hex-digit->char digit) (cons #\. (let loop ((mantissa (* radix-inexact (- mantissa float-digit)))) (let* ((float-digit (floor mantissa)) (digit (inexact->exact float-digit))) (cons (hex-digit->char digit) (let ((mantissa (* radix-inexact (- mantissa float-digit)))) (if (zero? mantissa) (if (zero? exponent) '() (cons #\e (cond ((positive? exponent) (let loop ((exponent exponent) (characters '())) (if (zero? exponent) characters (loop (quotient exponent radix-exact) (cons (hex-digit->char (remainder exponent radix-exact)) characters))))) ((negative? exponent) (let loop ((exponent exponent) (characters '())) (if (zero? exponent) (cons #\- characters) (loop (quotient exponent radix-exact) (cons (hex-digit->char (- (remainder exponent radix-exact))) characters)))))))) (loop mantissa)))))))))))) ;; NUMBER->STRING body (cond ((inexact? number) (cond ((not (= number number)) "#*NOT-A-NUMBER*") (((primitive-procedure infinity?) number) "#*INFINITY*") ((negative? number) (let ((number (- number))) (cond ((not (= number number)) "-#*NOT-A-NUMBER*") (((primitive-procedure infinity?) number) "-#*INFINITY*") ((>= number radix-inexact) (let loop ((mantissa (* radix-inverted number)) (exponent 1)) (if (>= mantissa radix-inexact) (loop (* radix-inverted mantissa) (+ exponent 1)) (list->string (cons #\- (mantissa-exponent->characters mantissa exponent)))))) ((< number 1.0) (let loop ((mantissa (* radix-inexact number)) (exponent -1)) (if (< mantissa 1.0) (loop (* radix-inexact mantissa) (- exponent 1)) (list->string (cons #\- (mantissa-exponent->characters mantissa exponent)))))) (else (list->string (cons #\- (mantissa-exponent->characters number 0))))))) ((zero? number) "0.0") ((>= number radix-inexact) (let loop ((mantissa (* radix-inverted number)) (exponent 1)) (if (>= mantissa radix-inexact) (loop (* radix-inverted mantissa) (+ exponent 1)) (list->string (mantissa-exponent->characters mantissa exponent))))) ((< number 1.0) (let loop ((mantissa (* radix-inexact number)) (exponent -1)) (if (< mantissa 1.0) (loop (* radix-inexact mantissa) (- exponent 1)) (list->string (mantissa-exponent->characters mantissa exponent))))) (else (list->string (mantissa-exponent->characters number 0))))) ((positive? number) (let loop ((number number) (characters '())) (if (zero? number) (list->string characters) (loop (quotient number radix-exact) (cons (hex-digit->char (remainder number radix-exact)) characters))))) ((negative? number) (let loop ((number number) (characters '())) (if (zero? number) (list->string (cons #\- characters)) (loop (quotient number radix-exact) (cons (hex-digit->char (- (remainder number radix-exact))) characters))))) (else "0"))))) (set! string->number (lambda (string) ;; needs work: Long predecimal point digit strings can overflow. ;; needs work: Mantissa can overflow or underflow even though exponent ;; would prevent that overflow or underflow. ;; needs work: Can't parse largest negative number. ;; needs work: To handle polar numbers with @. ;; needs work: To handle rectangular numbers with i. ;; needs work: To handle ratios with /. ;; needs work: To handle numbers with embedded #. ;; needs work: To handle exactness with #e and #i. ;; needs work: To handle optional radix argument. (let ((i 0) (l (string-length string))) (define (negate n) (if n (- n) #f)) (define (parse-exact-binary-integer n) (if (= i l) n (let ((c (string-ref string i))) (set! i (+ i 1)) (cond ((char=? c #\0) (parse-exact-binary-integer (* 2 n))) ((char=? c #\1) (parse-exact-binary-integer (+ (* 2 n) 1))) (else #f))))) (define (parse-exact-octal-integer n) (if (= i l) n (let ((c (string-ref string i))) (set! i (+ i 1)) (cond ((and (char>=? c #\0) (char<=? c #\7)) (parse-exact-octal-integer (+ (* 8 n) (- (char->integer c) (char->integer #\0))))) (else #f))))) (define (parse-exact-decimal-integer n) (if (= i l) n (let ((c (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c) (parse-exact-decimal-integer (+ (* 10 n) (- (char->integer c) (char->integer #\0))))) (else #f))))) (define (parse-exact-hexadecimal-integer n) (if (= i l) n (let ((c (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c) (parse-exact-hexadecimal-integer (+ (* 16 n) (- (char->integer c) (char->integer #\0))))) ((and (char>=? c #\a) (char<=? c #\f)) (parse-exact-hexadecimal-integer (+ (* 16 n) (- (char->integer c) (char->integer #\a)) 10))) ((and (char>=? c #\A) (char<=? c #\F)) (parse-exact-hexadecimal-integer (+ (* 16 n) (- (char->integer c) (char->integer #\A)) 10))) (else #f))))) (define (parse-inexact-number n m) (if (= i l) n (let ((c1 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c1) (parse-inexact-number (+ n (/ (- (char->integer c1) (char->integer #\0)) m)) (* m 10.0))) ((or (char=? c1 #\e) (char=? c1 #\E) (char=? c1 #\s) (char=? c1 #\S) (char=? c1 #\f) (char=? c1 #\F) (char=? c1 #\d) (char=? c1 #\D) (char=? c1 #\l) (char=? c1 #\L)) (if (= i l) #f (let ((c2 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c2) (let ((k (parse-exact-decimal-integer (- (char->integer c2) (char->integer #\0))))) (if k (* n (expt 10.0 k)) #f))) ((char=? c2 #\+) (if (= i l) #f (let ((c3 (string-ref string i))) (set! i (+ i 1)) (if (char-numeric? c3) (let ((k (parse-exact-decimal-integer (- (char->integer c3) (char->integer #\0))))) (if k (* n (expt 10.0 k)) #f)) #f)))) ((char=? c2 #\-) (if (= i l) #f (let ((c3 (string-ref string i))) (set! i (+ i 1)) (if (char-numeric? c3) (let ((k (parse-exact-decimal-integer (- (char->integer c3) (char->integer #\0))))) (if k (* n (expt 10.0 (- k))) #f)) #f)))) (else #f))))) (else #f))))) (define (parse-number n) (if (= i l) n (let ((c1 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c1) (parse-number (+ (* 10 n) (- (char->integer c1) (char->integer #\0))))) ((char=? c1 #\.) (parse-inexact-number (exact->inexact n) 10.0)) ((or (char=? c1 #\e) (char=? c1 #\E) (char=? c1 #\s) (char=? c1 #\S) (char=? c1 #\f) (char=? c1 #\F) (char=? c1 #\d) (char=? c1 #\D) (char=? c1 #\l) (char=? c1 #\L)) (if (= i l) #f (let ((c2 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c2) (let ((k (parse-exact-decimal-integer (- (char->integer c2) (char->integer #\0))))) (if k (* (exact->inexact n) (expt 10.0 k))))) ((char=? c2 #\+) (if (= i l) #f (let ((c3 (string-ref string i))) (set! i (+ i 1)) (if (char-numeric? c3) (let ((k (parse-exact-decimal-integer (- (char->integer c3) (char->integer #\0))))) (if k (* (exact->inexact n) (expt 10.0 k)) #f)) #f)))) ((char=? c2 #\-) (if (= i l) #f (let ((c3 (string-ref string i))) (set! i (+ i 1)) (if (char-numeric? c3) (let ((k (parse-exact-decimal-integer (- (char->integer c3) (char->integer #\0))))) (if k (* (exact->inexact n) (expt 10.0 (- k))) #f)) #f)))) (else #f))))) (else #f))))) (let loop () (if (= i l) #f (let ((c1 (string-ref string i))) (set! i (+ i 1)) (cond ((char-whitespace? c1) (loop)) ((char=? c1 #\#) (if (= i l) #f (let ((c2 (string-ref string i))) (set! i (+ i 1)) (cond ((or (char=? c2 #\b) (char=? c2 #\B)) (if (= i l) #f (let ((c3 (string-ref string i))) (set! i (+ i 1)) (cond ((char=? c3 #\0) (parse-exact-binary-integer 0)) ((char=? c3 #\1) (parse-exact-binary-integer 1)) ((char=? c3 #\+) (if (= i l) #f (let ((c4 (string-ref string i))) (set! i (+ i 1)) (cond ((char=? c4 #\0) (parse-exact-binary-integer 0)) ((char=? c4 #\1) (parse-exact-binary-integer 1)) (else #f))))) ((char=? c3 #\-) (if (= i l) #f (let ((c4 (string-ref string i))) (set! i (+ i 1)) (cond ((char=? c4 #\0) (negate (parse-exact-binary-integer 0))) ((char=? c4 #\1) (negate (parse-exact-binary-integer 1))) (else #f))))) (else #f))))) ((or (char=? c2 #\o) (char=? c2 #\O)) (if (= i l) #f (let ((c3 (string-ref string i))) (set! i (+ i 1)) (cond ((and (char>=? c3 #\0) (char<=? c3 #\7)) (parse-exact-octal-integer (- (char->integer c3) (char->integer #\0)))) ((char=? c3 #\+) (if (= i l) #f (let ((c4 (string-ref string i))) (set! i (+ i 1)) (if (and (char>=? c4 #\0) (char<=? c4 #\7)) (parse-exact-octal-integer (- (char->integer c4) (char->integer #\0))) #f)))) ((char=? c3 #\-) (if (= i l) #f (let ((c4 (string-ref string i))) (set! i (+ i 1)) (if (and (char>=? c4 #\0) (char<=? c4 #\7)) (negate (parse-exact-octal-integer (- (char->integer c4) (char->integer #\0)))) #f)))) (else #f))))) ((or (char=? c2 #\d) (char=? c2 #\D)) (if (= i l) #f (let ((c3 (string-ref string i))) (set! i (+ i 1)) (cond ((char=? c3 #\+) (if (= i l) #f (let ((c4 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c4) (parse-number (- (char->integer c4) (char->integer #\0)))) ((char=? c4 #\.) (if (= i l) #f (let ((c5 (string-ref string i))) (set! i (+ i 1)) (if (char-numeric? c5) (parse-inexact-number (/ (- (char->integer c5) (char->integer #\0)) 10.0) 100.0) #f)))) (else #f))))) ((char=? c3 #\-) (if (= i l) #f (let ((c4 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c4) (negate (parse-number (- (char->integer c4) (char->integer #\0))))) ((char=? c4 #\.) (if (= i l) #f (let ((c5 (string-ref string i))) (set! i (+ i 1)) (if (char-numeric? c5) (negate (parse-inexact-number (/ (- (char->integer c5) (char->integer #\0)) 10.0) 100.0)) #f)))) (else #f))))) ((char=? c3 #\.) (if (= i l) #f (let ((c4 (string-ref string i))) (set! i (+ i 1)) (if (char-numeric? c4) (parse-inexact-number (/ (- (char->integer c4) (char->integer #\0)) 10.0) 100.0) #f)))) ((char-numeric? c3) (parse-number (- (char->integer c3) (char->integer #\0)))) (else #f))))) ((or (char=? c2 #\x) (char=? c2 #\X)) (if (= i l) #f (let ((c3 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c3) (parse-exact-hexadecimal-integer (- (char->integer c3) (char->integer #\0)))) ((and (char>=? c3 #\a) (char<=? c3 #\f)) (parse-exact-hexadecimal-integer (+ (- (char->integer c3) (char->integer #\a)) 10))) ((and (char>=? c3 #\A) (char<=? c3 #\F)) (parse-exact-hexadecimal-integer (+ (- (char->integer c3) (char->integer #\A)) 10))) ((char=? c3 #\+) (if (= i l) #f (let ((c4 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c4) (parse-exact-hexadecimal-integer (- (char->integer c4) (char->integer #\0)))) ((and (char>=? c4 #\a) (char<=? c4 #\f)) (parse-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\a)) 10))) ((and (char>=? c4 #\A) (char<=? c4 #\F)) (parse-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\A)) 10))) (else #f))))) ((char=? c3 #\-) (if (= i l) #f (let ((c4 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c4) (negate (parse-exact-hexadecimal-integer (- (char->integer c4) (char->integer #\0))))) ((and (char>=? c4 #\a) (char<=? c4 #\f)) (negate (parse-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\a)) 10)))) ((and (char>=? c4 #\A) (char<=? c4 #\F)) (negate (parse-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\A)) 10)))) (else #f))))) (else #f))))) (else #f))))) ((char=? c1 #\+) (if (= i l) #f (let ((c2 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c2) (parse-number (- (char->integer c2) (char->integer #\0)))) ((char=? c2 #\.) (if (= i l) #f (let ((c3 (string-ref string i))) (set! i (+ i 1)) (if (char-numeric? c3) (parse-inexact-number (/ (- (char->integer c3) (char->integer #\0)) 10.0) 100.0) #f)))) (else #f))))) ((char=? c1 #\-) (if (= i l) #f (let ((c2 (string-ref string i))) (set! i (+ i 1)) (cond ((char-numeric? c2) (negate (parse-number (- (char->integer c2) (char->integer #\0))))) ((char=? c2 #\.) (if (= i l) #f (let ((c3 (string-ref string i))) (set! i (+ i 1)) (if (char-numeric? c3) (negate (parse-inexact-number (/ (- (char->integer c3) (char->integer #\0)) 10.0) 100.0)) #f)))) (else #f))))) ((char=? c1 #\.) (if (= i l) #f (let ((c2 (string-ref string i))) (set! i (+ i 1)) (if (char-numeric? c2) (parse-inexact-number (/ (- (char->integer c2) (char->integer #\0)) 10.0) 100.0) #f)))) ((char-numeric? c1) (parse-number (- (char->integer c1) (char->integer #\0)))) (else #f)))))))) (set! current-input-port (lambda () the-current-input-port)) (set! current-output-port (lambda () the-current-output-port)) (set! with-input-from-file (lambda (string thunk) (let* ((saved-input-port the-current-input-port) (result (call-with-input-file string (lambda (port) (set! the-current-input-port port) (thunk))))) (set! the-current-input-port saved-input-port) result))) (set! with-output-to-file (lambda (string thunk) (let* ((saved-output-port the-current-output-port) (result (call-with-output-file string (lambda (port) (set! the-current-output-port port) (thunk))))) (set! the-current-output-port saved-output-port) result))) (set! read-char (lambda &rest (cond ((null? &rest) (read-char1 the-current-input-port)) ((null? (cdr &rest)) (read-char1 (car &rest))) (else (panic "Attempt to call READ-CHAR with the wrong number of arguments"))))) (set! peek-char (lambda &rest (cond ((null? &rest) (peek-char1 the-current-input-port)) ((null? (cdr &rest)) (peek-char1 (car &rest))) (else (panic "Attempt to call PEEK-CHAR with the wrong number of arguments"))))) (set! char-ready? (lambda &rest (cond ((null? &rest) (char-ready?1 the-current-input-port)) ((null? (cdr &rest)) (char-ready?1 (car &rest))) (else (panic "Attempt to call CHAR-READY? with the wrong number of arguments"))))) (set! write (lambda (obj . &rest) (cond ((null? &rest) (write2 obj the-current-output-port)) ((null? (cdr &rest)) (write2 obj (car &rest))) (else (panic "Attempt to call WRITE with the wrong number of arguments"))))) (set! display (lambda (obj . &rest) (cond ((null? &rest) (display2 obj the-current-output-port)) ((null? (cdr &rest)) (display2 obj (car &rest))) (else (panic "Attempt to call DISPLAY with the wrong number of arguments"))))) (set! newline (lambda &rest (cond ((null? &rest) (write-char2 #\newline the-current-output-port)) ((null? (cdr &rest)) (write-char2 #\newline (car &rest))) (else (panic "Attempt to call NEWLINE with the wrong number of arguments"))))) (set! write-char (lambda (char . &rest) (cond ((null? &rest) (write-char2 char the-current-output-port)) ((null? (cdr &rest)) (write-char2 char (car &rest))) (else (panic "Attempt to call WRITE-CHAR with the wrong number of arguments"))))) (set! define-write-method (lambda (type? method) (set! write-methods (cons (cons type? method) write-methods)))) (set! define-display-method (lambda (type? method) (set! display-methods (cons (cons type? method) display-methods)))))) (define (scheme-library vs ss) ;; conventions: VS (encapsulate ;; 6. Standard procedures ;; 6.1 Booleans `(lambda (argv) (define (not obj) ((primitive-procedure not) obj)) (define (boolean? obj) ((primitive-procedure boolean?) obj)) ;; 6.2 Equivalence predicates (define (eqv? obj1 obj2) (or (eq? obj1 obj2) (and (number? obj1) (number? obj2) (= obj1 obj2)) (and (string? obj1) (string? obj2) (zero? (string-length obj1)) (zero? (string-length obj2))) (and (vector? obj1) (vector? obj2) (zero? (vector-length obj1)) (zero? (vector-length obj2))))) (define (eq? obj1 obj2) ((primitive-procedure eq?) obj1 obj2)) (define (equal? obj1 obj2) (or (eqv? obj1 obj2) (and (pair? obj1) (pair? obj2) (equal? (car obj1) (car obj2)) (equal? (cdr obj1) (cdr obj2))) (and (string? obj1) (string? obj2) (string=? obj1 obj2)) (and (vector? obj1) (vector? obj2) (= (vector-length obj1) (vector-length obj2)) (let loop? ((k 0)) (or (= k (vector-length obj1)) (and (equal? (vector-ref obj1 k) (vector-ref obj2 k)) (loop? (+ k 1)))))))) ;; 6.3 Pairs and lists (define (pair? obj) ((primitive-procedure structure? pair) obj)) (define (cons obj1 obj2) ((primitive-procedure make-structure pair 2) obj1 obj2)) (define (car pair) ((primitive-procedure structure-ref pair 0) pair)) (define (cdr pair) ((primitive-procedure structure-ref pair 1) pair)) (define (set-car! pair obj) ((primitive-procedure structure-set! pair 0) pair obj)) (define (set-cdr! pair obj) ((primitive-procedure structure-set! pair 1) pair obj)) (define (caar pair) (car (car pair))) (define (cadr pair) (car (cdr pair))) (define (cdar pair) (cdr (car pair))) (define (cddr pair) (cdr (cdr pair))) (define (caaar pair) (car (car (car pair)))) (define (caadr pair) (car (car (cdr pair)))) (define (cadar pair) (car (cdr (car pair)))) (define (caddr pair) (car (cdr (cdr pair)))) (define (cdaar pair) (cdr (car (car pair)))) (define (cdadr pair) (cdr (car (cdr pair)))) (define (cddar pair) (cdr (cdr (car pair)))) (define (cdddr pair) (cdr (cdr (cdr pair)))) (define (caaaar pair) (car (car (car (car pair))))) (define (caaadr pair) (car (car (car (cdr pair))))) (define (caadar pair) (car (car (cdr (car pair))))) (define (caaddr pair) (car (car (cdr (cdr pair))))) (define (cadaar pair) (car (cdr (car (car pair))))) (define (cadadr pair) (car (cdr (car (cdr pair))))) (define (caddar pair) (car (cdr (cdr (car pair))))) (define (cadddr pair) (car (cdr (cdr (cdr pair))))) (define (cdaaar pair) (cdr (car (car (car pair))))) (define (cdaadr pair) (cdr (car (car (cdr pair))))) (define (cdadar pair) (cdr (car (cdr (car pair))))) (define (cdaddr pair) (cdr (car (cdr (cdr pair))))) (define (cddaar pair) (cdr (cdr (car (car pair))))) (define (cddadr pair) (cdr (cdr (car (cdr pair))))) (define (cdddar pair) (cdr (cdr (cdr (car pair))))) (define (cddddr pair) (cdr (cdr (cdr (cdr pair))))) (define (null? obj) ((primitive-procedure null?) obj)) (define (list? x) (or (null? x) (and (pair? x) (let loop? ((slow x) (fast (cdr x))) (or (null? fast) (and (pair? fast) (and (not (eq? fast slow)) (let ((fast (cdr fast))) (or (null? fast) (and (pair? fast) (loop? (cdr slow) (cdr fast)))))))))))) (define (list . objs) objs) (define (list-length list) ;Extension to R4RS. (let loop ((k 0)) (cond ((null? list) k) (else (set! list (cdr list)) (loop (+ k 1)))))) (define (length s) ;Extension to R4RS. (cond ;; note: This was changed from LIST? to PAIR?/NULL? for efficiency ;; reasons. Now it will loop when given an infinite list. ((null? s) 0) ((pair? s) (list-length s)) ((string? s) (string-length s)) ((vector? s) (vector-length s)) (else (panic "Argument to LENGTH is not a list, string, or vector")))) (define (sublist list start end) ;Extension to R4RS. (if (zero? start) ;; needs work: To make tail recursive. (let loop ((list list) (k end)) (if (zero? k) '() (cons (car list) (loop (cdr list) (- k 1))))) (sublist (cdr list) (- start 1) (- end 1)))) (define (sub s start end) ;Extension to R4RS. (cond ;; note: This was changed from LIST? to PAIR?/NULL? for efficiency ;; reasons. Now it may loop when given an infinite list and may ;; fail to detect an error when given a pair that is not a list. ((null? s) (cond ((and (zero? start) (zero? end)) '()) (else (panic "Arguments to SUB out of bounds")))) ((pair? s) (sublist s start end)) ((string? s) (substring s start end)) ((vector? s) (subvector s start end)) (else (panic "First argument to SUB is not a list, string, or vector")))) (define (list-append . lists) ;Extension to R4RS. ;; needs work: To make tail recursive. ;; note: Support for multiple arguments incurs a penalty here. ;; note: This may loop when given an infinite list and may fail to detect ;; an error when given a pair that is not a list as other than the ;; last argument. (cond ((null? lists) '()) ((null? (cdr lists)) (car lists)) (else (let loop ((list1 (car lists)) (list2 (car (cdr lists))) (lists (cdr (cdr lists)))) (if (null? list1) (if (null? lists) list2 (loop list2 (car lists) (cdr lists))) (cons (car list1) (loop (cdr list1) list2 lists))))))) (define (append . ss) ;Extension to R4RS. ;; note: Support for multiple arguments incurs a penalty here. (cond ((null? ss) '()) ;; note: This was changed from LIST? to PAIR?/NULL? for efficiency ;; reasons. Now it may loop when given an infinite list and may ;; fail to detect an error when given a pair that is not a list as ;; other than the last argument. ((let loop ((ss ss)) (or (null? (cdr ss)) (and (or (null? (car ss)) (pair? (car ss))) (loop (cdr ss))))) (cond ((null? (cdr ss)) (car ss)) (else ;; needs work: To make tail recursive. (let loop ((list1 (car ss)) (list2 (car (cdr ss))) (lists (cdr (cdr ss)))) (if (null? list1) (if (null? lists) list2 (loop list2 (car lists) (cdr lists))) (cons (car list1) (loop (cdr list1) list2 lists))))))) ((let loop ((ss ss)) (or (null? ss) (and (string? (car ss)) (loop (cdr ss))))) (let* ((r (make-string (let loop ((k 0) (strings ss)) (if (null? strings) k (loop (+ k (string-length (car strings))) (cdr strings)))))) (k 0)) (let loop ((strings ss)) (if (not (null? strings)) (let ((n (string-length (car strings)))) (let loop ((l 0)) (if (not (= l n)) (begin (string-set! r k (string-ref (car strings) l)) (set! k (+ k 1)) (loop (+ l 1))))) (loop (cdr strings))))) r)) ((let loop ((ss ss)) (or (null? ss) (and (vector? (car ss)) (loop (cdr ss))))) (let* ((r (make-vector (let loop ((k 0) (vectors ss)) (if (null? vectors) k (loop (+ k (vector-length (car vectors))) (cdr vectors)))))) (k 0)) (let loop ((vectors ss)) (if (not (null? vectors)) (begin (let loop ((l 0)) (if (not (= l (vector-length (car vectors)))) (begin (vector-set! r k (vector-ref (car vectors) l)) (set! k (+ k 1)) (loop (+ l 1))))) (loop (cdr vectors))))) r)) (else (panic "Arguments to APPEND are not all lists, strings, or vectors")))) (define (list-reverse list) ;Extension to R4RS. (let loop ((list list) (r '())) (if (null? list) r (loop (cdr list) (cons (car list) r))))) (define (reverse s) ;Extension to R4RS. (cond ;; note: This was changed from LIST? to PAIR?/NULL? for efficiency ;; reasons. Now it will loop when given an infinite list. ((null? s) '()) ((pair? s) (list-reverse s)) ((string? s) (string-reverse s)) ((vector? s) (vector-reverse s)) (else (panic "Argument to REVERSE is not a list, string, or vector")))) (define (list-tail list k) (if (zero? k) list (list-tail (cdr list) (- k 1)))) (define (list-ref list k) (let loop () (cond ((zero? k) (car list)) (else (set! list (cdr list)) (set! k (- k 1)) (loop))))) (define (ref s k) ;Extension to R4RS. (cond ;; note: This was changed from LIST? to PAIR? for efficiency reasons. ;; Now it may loop when given an infinite list and may fail to ;; detect an error when given a pair that is not a list. ((pair? s) (list-ref s k)) ((string? s) (string-ref s k)) ((vector? s) (vector-ref s k)) (else (panic "First argument to REF is not a (nonempty) list, string, or vector")))) (define (memq obj list) (and (not (null? list)) (if (eq? obj (car list)) list (memq obj (cdr list))))) (define (memv obj list) (and (not (null? list)) (if (eqv? obj (car list)) list (memv obj (cdr list))))) (define (member obj list) (and (not (null? list)) (if (equal? obj (car list)) list (member obj (cdr list))))) (define (assq obj alist) (and (not (null? alist)) (if (eq? obj (car (car alist))) (car alist) (assq obj (cdr alist))))) (define (assv obj alist) (and (not (null? alist)) (if (eqv? obj (car (car alist))) (car alist) (assv obj (cdr alist))))) (define (assoc obj alist) (and (not (null? alist)) (if (equal? obj (car (car alist))) (car alist) (assoc obj (cdr alist))))) (define (list-set! list k obj) ;Extension to R4RS. (let loop () (cond ((zero? k) (set-car! list obj)) (else (set! list (cdr list)) (set! k (- k 1)) (loop))))) (define (ref! s k obj) ;Extension to R4RS. (cond ;; note: This was changed from LIST? to PAIR? for efficiency reasons. ;; Now it may loop when given an infinite list and may fail to ;; detect an error when given a pair that is not a list. ((pair? s) (list-set! s k obj)) ((string? s) (string-set! s k obj)) ((vector? s) (vector-set! s k obj)) (else (panic "First argument to REF! is not a (nonempty) list, string, or vector")))) (define (list-fill! list obj) ;Extension to R4RS. (let loop () (if (not (null? list)) (begin (set-car! list obj) (set! list (cdr list)) (loop))))) (define (fill! s obj) ;Extension to R4RS. (cond ;; note: This was changed from LIST? to PAIR?/NULL? for efficiency ;; reasons. Now it will loop when given an infinite list. ((null? s) '()) ((pair? s) (list-fill! s obj)) ((string? s) (string-fill! s obj)) ((vector? s) (vector-fill! s obj)) (else (panic "First argument to FILL! is not a list, string, or vector")))) (define (list-copy list) ;Extension to R4RS. ;; needs work: To make tail recursive. (if (null? list) '() (cons (car list) (list-copy (cdr list))))) (define (copy s) ;Extension to R4RS. (cond ;; note: This was changed from LIST? to PAIR?/NULL? for efficiency ;; reasons. Now it will loop when given an infinite list. ((null? s) '()) ((pair? s) (list-copy s)) ((string? s) (string-copy s)) ((vector? s) (vector-copy s)) (else (panic "Argument to COPY is not a list, string, or vector")))) ;; 6.4 Symbols (define (symbol? obj) ((primitive-procedure symbol?) obj)) (define (symbol->string symbol) ((primitive-procedure symbol->string) symbol)) (define (string->uninterned-symbol string) ;Extension to R4RS. ((primitive-procedure string->uninterned-symbol) string)) (define string->symbol (let ((package '())) (lambda (string) (cond ,@(map (lambda (v) `((string=? string ,(symbol->string v)) ',v)) vs) ;; This formulation relies on the fact that, with the current ;; implementation of STRING->UNINTERNED-SYMBOL, (EQ? X Y) implies ;; (EQ? (STRING->UNINTERNED-SYMBOL X) (STRING->UNINTERNED-SYMBOL Y)). ;; note: Manually split MEMBER here. (else (let ((found (let loop ((package package)) (and (not (null? package)) (if (string=? string (car package)) package (loop (cdr package))))))) (cond (found (string->uninterned-symbol (car found))) (else (set! package (cons (string-copy string) package)) (string->uninterned-symbol (car package)))))))))) ;; 6.5 Numbers ;; 6.5.5 Numerical operations (define (number? obj) ((primitive-procedure number?) obj)) (define complex? number?) (define (real? obj) ((primitive-procedure real?) obj)) (define rational? real?) (define (integer? obj) ((primitive-procedure integer?) obj)) (define (exact? z) ((primitive-procedure exact?) z)) (define (inexact? z) ((primitive-procedure inexact?) z)) (define (= z1 z2 . zs) (and ((primitive-procedure =) z1 z2) (let loop? ((z z2) (zs zs)) (or (null? zs) (and ((primitive-procedure =) z (car zs)) (loop? (car zs) (cdr zs))))))) (define (< x1 x2 . xs) (and ((primitive-procedure <) x1 x2) (let loop? ((x x2) (xs xs)) (or (null? xs) (and ((primitive-procedure <) x (car xs)) (loop? (car xs) (cdr xs))))))) (define (> x1 x2 . xs) (and ((primitive-procedure >) x1 x2) (let loop? ((x x2) (xs xs)) (or (null? xs) (and ((primitive-procedure >) x (car xs)) (loop? (car xs) (cdr xs))))))) (define (<= x1 x2 . xs) (and ((primitive-procedure <=) x1 x2) (let loop? ((x x2) (xs xs)) (or (null? xs) (and ((primitive-procedure <=) x (car xs)) (loop? (car xs) (cdr xs))))))) (define (>= x1 x2 . xs) (and ((primitive-procedure >=) x1 x2) (let loop? ((x x2) (xs xs)) (or (null? xs) (and ((primitive-procedure >=) x (car xs)) (loop? (car xs) (cdr xs))))))) (define (zero? z) ((primitive-procedure zero?) z)) (define (positive? x) ((primitive-procedure positive?) x)) (define (negative? x) ((primitive-procedure negative?) x)) (define (odd? n) (not (even? n))) (define (even? n) (zero? (remainder n 2))) (define (max x . xs) (if (null? xs) ((primitive-procedure max) x) (let loop ((xs (cdr xs)) (r ((primitive-procedure max) x (car xs)))) (if (null? xs) r (loop (cdr xs) ((primitive-procedure max) r (car xs))))))) (define (min x . xs) (if (null? xs) ((primitive-procedure min) x) (let loop ((xs (cdr xs)) (r ((primitive-procedure min) x (car xs)))) (if (null? xs) r (loop (cdr xs) ((primitive-procedure min) r (car xs))))))) (define (+ . zs) (if (null? zs) ((primitive-procedure +)) (let loop ((zs (cdr zs)) (r ((primitive-procedure +) (car zs)))) (if (null? zs) r (loop (cdr zs) ((primitive-procedure +) r (car zs))))))) (define (* . zs) (if (null? zs) ((primitive-procedure *)) (let loop ((zs (cdr zs)) (r ((primitive-procedure *) (car zs)))) (if (null? zs) r (loop (cdr zs) ((primitive-procedure *) r (car zs))))))) (define (- z . zs) (if (null? zs) ((primitive-procedure -) z) (let loop ((zs (cdr zs)) (r ((primitive-procedure -) z (car zs)))) (if (null? zs) r (loop (cdr zs) ((primitive-procedure -) r (car zs))))))) (define (/ z . zs) (if (null? zs) ((primitive-procedure /) z) (let loop ((zs (cdr zs)) (r ((primitive-procedure /) z (car zs)))) (if (null? zs) r (loop (cdr zs) ((primitive-procedure /) r (car zs))))))) (define (abs x) (if (negative? x) (- x) x)) (define (quotient n1 n2) ((primitive-procedure quotient) n1 n2)) (define (remainder n1 n2) ((primitive-procedure remainder) n1 n2)) (define (modulo n1 n2) (if (or (and (positive? n1) (negative? n2)) (and (negative? n1) (positive? n2))) (+ n2 (remainder n1 n2)) (remainder n1 n2))) ;; needs work: NUMERATOR DENOMINATOR (define (gcd . ns) ;; note: Support for multiple arguments incurs a penalty here. (cond ((null? ns) 0) ((null? (cdr ns)) (abs (car ns))) (else (let loop ((n1 (abs (car ns))) (n2 (abs (car (cdr ns)))) (ns (cdr (cdr ns))) (p? (or (inexact? (car ns)) (inexact? (car (cdr ns)))))) (if (zero? n2) (if (null? ns) (if p? (exact->inexact n1) n1) (loop n1 (abs (car ns)) (cdr ns) (or p? (inexact? (car ns))))) (let ((r (remainder n1 n2))) (if (zero? r) (if (null? ns) (if p? (exact->inexact n2) n2) (loop n2 (abs (car ns)) (cdr ns) (or p? (inexact? (car ns))))) (loop n2 r ns p?)))))))) (define (lcm . ns) ;; note: Support for multiple arguments incurs a penalty here. (cond ((null? ns) 1) ((null? (cdr ns)) (abs (car ns))) (else (let loop ((n1 (abs (car ns))) (n2 (abs (car (cdr ns)))) (ns (cdr (cdr ns))) (p? (or (inexact? (car ns)) (inexact? (car (cdr ns)))))) (let ((n (cond ((= n1 n2) n1) ((zero? (remainder n1 n2)) n1) ((zero? (remainder n2 n1)) n2) (else (* (quotient n1 (gcd n1 n2)) n2))))) (if (null? ns) (if p? (exact->inexact n) n) (loop n (abs (car ns)) (cdr ns) (or p? (inexact? (car ns)))))))))) (define (<< n1 n2) ((primitive-procedure <<) n1 n2)) ;Extension to R4RS. (define (>> n1 n2) ((primitive-procedure >>) n1 n2)) ;Extension to R4RS. (define (bitwise-not n) ;Extension to R4RS. ((primitive-procedure bitwise-not) n)) (define (bitwise-and . ns) ;Extension to R4RS. (if (null? ns) ((primitive-procedure bitwise-and)) (let loop ((ns (cdr ns)) (r ((primitive-procedure bitwise-and) (car ns)))) (if (null? ns) r (loop (cdr ns) ((primitive-procedure bitwise-and) r (car ns))))))) (define (bitwise-or . ns) ;Extension to R4RS. (if (null? ns) ((primitive-procedure bitwise-or)) (let loop ((ns (cdr ns)) (r ((primitive-procedure bitwise-or) (car ns)))) (if (null? ns) r (loop (cdr ns) ((primitive-procedure bitwise-or) r (car ns))))))) (define (bitwise-xor . ns) ;Extension to R4RS. (if (null? ns) ((primitive-procedure bitwise-xor)) (let loop ((ns (cdr ns)) (r ((primitive-procedure bitwise-xor) (car ns)))) (if (null? ns) r (loop (cdr ns) ((primitive-procedure bitwise-xor) r (car ns))))))) (define (floor x) ((primitive-procedure floor) x)) (define (ceiling x) ((primitive-procedure ceiling) x)) (define (truncate x) ((primitive-procedure truncate) x)) (define (round x) ((primitive-procedure round) x)) ;; needs work: RATIONALIZE (define (exp z) ((primitive-procedure exp) z)) (define (log z) ((primitive-procedure log) z)) (define (sin z) ((primitive-procedure sin) z)) (define (cos z) ((primitive-procedure cos) z)) (define (tan z) ((primitive-procedure tan) z)) (define (asin z) ((primitive-procedure asin) z)) (define (acos z) ((primitive-procedure acos) z)) (define (atan x . y) (cond ((null? y) ((primitive-procedure atan) x)) ((null? (cdr y)) ((primitive-procedure atan) x (car y))) (else (panic "Attempt to call ATAN with the wrong number of arguments")))) (define (sqrt z) ((primitive-procedure sqrt) z)) (define (expt z1 z2) ((primitive-procedure expt) z1 z2)) ;; needs work: MAKE-RECTANGULAR MAKE-POLAR REAL-PART IMAG-PART MAGNITUDE ;; ANGLE (define (exact->inexact z) ((primitive-procedure exact->inexact) z)) (define (inexact->exact z) ((primitive-procedure inexact->exact) z)) ;; 6.5.6 Numerical input and output (define number->string ((lambda ()))) ;Defined in *I/O*. (define string->number ((lambda ()))) ;Defined in *I/O*. ;; 6.6 Characters (define (char? obj) ((primitive-procedure char?) obj)) (define (char=? char1 char2 . chars) (let loop? ((char1 char1) (char2 char2) (chars chars)) (and (= (char->integer char1) (char->integer char2)) (or (null? chars) (loop? char2 (car chars) (cdr chars)))))) (define (charinteger char1) (char->integer char2)) (or (null? chars) (loop? char2 (car chars) (cdr chars)))))) (define (char>? char1 char2 . chars) (let loop? ((char1 char1) (char2 char2) (chars chars)) (and (> (char->integer char1) (char->integer char2)) (or (null? chars) (loop? char2 (car chars) (cdr chars)))))) (define (char<=? char1 char2 . chars) (let loop? ((char1 char1) (char2 char2) (chars chars)) (and (<= (char->integer char1) (char->integer char2)) (or (null? chars) (loop? char2 (car chars) (cdr chars)))))) (define (char>=? char1 char2 . chars) (let loop? ((char1 char1) (char2 char2) (chars chars)) (and (>= (char->integer char1) (char->integer char2)) (or (null? chars) (loop? char2 (car chars) (cdr chars)))))) (define (char-ci=? char1 char2 . chars) (let loop? ((char1 (char-upcase char1)) (char2 (char-upcase char2)) (chars chars)) (and (= (char->integer char1) (char->integer char2)) (or (null? chars) (loop? char2 (char-upcase (car chars)) (cdr chars)))))) (define (char-ciinteger char1) (char->integer char2)) (or (null? chars) (loop? char2 (char-upcase (car chars)) (cdr chars)))))) (define (char-ci>? char1 char2 . chars) (let loop? ((char1 (char-upcase char1)) (char2 (char-upcase char2)) (chars chars)) (and (> (char->integer char1) (char->integer char2)) (or (null? chars) (loop? char2 (char-upcase (car chars)) (cdr chars)))))) (define (char-ci<=? char1 char2 . chars) (let loop? ((char1 (char-upcase char1)) (char2 (char-upcase char2)) (chars chars)) (and (<= (char->integer char1) (char->integer char2)) (or (null? chars) (loop? char2 (char-upcase (car chars)) (cdr chars)))))) (define (char-ci>=? char1 char2 . chars) (let loop? ((char1 (char-upcase char1)) (char2 (char-upcase char2)) (chars chars)) (and (>= (char->integer char1) (char->integer char2)) (or (null? chars) (loop? char2 (char-upcase (car chars)) (cdr chars)))))) ;; Sven Hartrumpf contributed variations ;; on the next five definitions. (define char-alphabetic? (let ((char-alphabetic? '#(#f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #f #f #f #f #f #f #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #f #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #f #t #t #t #t #t #t #t #t))) (lambda (char) (vector-ref char-alphabetic? (char->integer char))))) (define char-numeric? (let ((char-numeric? '#(#f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #t #t #t #t #t #t #t #t #t #t #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f))) (lambda (char) (vector-ref char-numeric? (char->integer char))))) (define char-whitespace? (let ((char-whitespace? '#(#f #f #f #f #f #f #f #f #f #t #t #f #t #t #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #t #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f))) (lambda (char) (vector-ref char-whitespace? (char->integer char))))) (define char-upper-case? (let ((char-upper-case? '#(#f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #f #t #t #t #t #t #t #t #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f))) (lambda (letter) (vector-ref char-upper-case? (char->integer letter))))) (define char-lower-case? (let ((char-lower-case? '#(#f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #t #f #t #t #t #t #t #t #t #t))) (lambda (letter) (vector-ref char-lower-case? (char->integer letter))))) (define (char->integer char) ((primitive-procedure char->integer) char)) (define (integer->char k) ((primitive-procedure integer->char) k)) ;; Sven Hartrumpf contributed variations ;; on the next two definitions. (define char-upcase (let ((char-upcase '#(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 247 216 217 218 219 220 221 222 223))) (lambda (char) (integer->char (vector-ref char-upcase (char->integer char)))))) (define char-downcase (let ((char-downcase '#(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 215 248 249 250 251 252 253 254 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255))) (lambda (char) (integer->char (vector-ref char-downcase (char->integer char)))))) ;; 6.7 Strings (define (string? obj) ((primitive-procedure string?) obj)) (define (make-string k . char) (cond ((null? char) ((primitive-procedure make-string) k)) ((null? (cdr char)) ((primitive-procedure make-string) k (car char))) (else (panic "Attempt to call MAKE-STRING with the wrong number of arguments")))) (define (string . chars) (let ((r (make-string (list-length chars)))) (let loop ((k 0) (chars chars)) (if (null? chars) r (begin (string-set! r k (car chars)) (loop (+ k 1) (cdr chars))))))) (define (string-length string) ((primitive-procedure string-length) string)) (define (string-ref string k) ((primitive-procedure string-ref) string k)) (define (string-set! string k char) ((primitive-procedure string-set!) string k char)) (define (string=? string1 string2 . strings) (let loop? ((string1 string1) (string2 string2) (strings strings)) (let ((n (string-length string1))) (and (= n (string-length string2)) (let loop? ((k 0)) (or (= k n) (and (char=? (string-ref string1 k) (string-ref string2 k)) (loop? (+ k 1))))) (or (null? strings) (loop? string2 (car strings) (cdr strings))))))) (define (string-ci=? string1 string2 . strings) (let loop? ((string1 string1) (string2 string2) (strings strings)) (let ((n (string-length string1))) (and (= n (string-length string2)) (let loop? ((k 0)) (or (= k n) (and (char-ci=? (string-ref string1 k) (string-ref string2 k)) (loop? (+ k 1))))) (or (null? strings) (loop? string2 (car strings) (cdr strings))))))) (define (string? string1 string2 . strings) (let loop? ((string1 string1) (n1 (string-length string1)) (string2 string2) (n2 (string-length string2)) (strings strings)) (and (let loop? ((k 0)) (if (= k n2) (< k n1) (and (< k n1) (or (char>? (string-ref string1 k) (string-ref string2 k)) (and (char=? (string-ref string1 k) (string-ref string2 k)) (loop? (+ k 1))))))) (or (null? strings) (loop? string2 n2 (car strings) (string-length (car strings)) (cdr strings)))))) (define (string<=? string1 string2 . strings) (let loop? ((string1 string1) (n1 (string-length string1)) (string2 string2) (n2 (string-length string2)) (strings strings)) (and (let loop? ((k 0)) (if (= k n1) (<= k n2) (and (< k n2) (or (char=? string1 string2 . strings) (let loop? ((string1 string1) (n1 (string-length string1)) (string2 string2) (n2 (string-length string2)) (strings strings)) (and (let loop? ((k 0)) (if (= k n2) (<= k n1) (and (< k n1) (or (char>? (string-ref string1 k) (string-ref string2 k)) (and (char=? (string-ref string1 k) (string-ref string2 k)) (loop? (+ k 1))))))) (or (null? strings) (loop? string2 n2 (car strings) (string-length (car strings)) (cdr strings)))))) (define (string-ci? string1 string2 . strings) (let loop? ((string1 string1) (n1 (string-length string1)) (string2 string2) (n2 (string-length string2)) (strings strings)) (and (let loop? ((k 0)) (if (= k n2) (< k n1) (and (< k n1) (or (char-ci>? (string-ref string1 k) (string-ref string2 k)) (and (char-ci=? (string-ref string1 k) (string-ref string2 k)) (loop? (+ k 1))))))) (or (null? strings) (loop? string2 n2 (car strings) (string-length (car strings)) (cdr strings)))))) (define (string-ci<=? string1 string2 . strings) (let loop? ((string1 string1) (n1 (string-length string1)) (string2 string2) (n2 (string-length string2)) (strings strings)) (and (let loop? ((k 0)) (if (= k n1) (<= k n2) (and (< k n2) (or (char-ci=? string1 string2 . strings) (let loop? ((string1 string1) (n1 (string-length string1)) (string2 string2) (n2 (string-length string2)) (strings strings)) (and (let loop? ((k 0)) (if (= k n2) (<= k n1) (and (< k n1) (or (char-ci>? (string-ref string1 k) (string-ref string2 k)) (and (char-ci=? (string-ref string1 k) (string-ref string2 k)) (loop? (+ k 1))))))) (or (null? strings) (loop? string2 n2 (car strings) (string-length (car strings)) (cdr strings)))))) (define (substring string start end) (let ((r (make-string (- end start)))) (let loop ((k start)) (if (< k end) (begin (string-set! r (- k start) (string-ref string k)) (loop (+ k 1))))) r)) (define (string-append . strings) ;; note: Support for multiple arguments incurs a penalty here. (let* ((r (make-string (let loop ((k 0) (strings strings)) (if (null? strings) k (loop (+ k (string-length (car strings))) (cdr strings)))))) (k 0)) (let loop ((strings strings)) (if (not (null? strings)) (let ((n (string-length (car strings)))) (let loop ((l 0)) (if (not (= l n)) (begin (string-set! r k (string-ref (car strings) l)) (set! k (+ k 1)) (loop (+ l 1))))) (loop (cdr strings))))) r)) (define (string->list string) ;; needs work: To make tail recursive. (let ((n (string-length string))) (let loop ((k 0)) (if (= k n) '() (cons (string-ref string k) (loop (+ k 1))))))) (define (list->string list) (let ((r (make-string (list-length list)))) (let loop ((k 0)) (if (not (null? list)) (begin (string-set! r k (car list)) (set! list (cdr list)) (loop (+ k 1))))) r)) (define (string-copy string) (let* ((n (string-length string)) (r (make-string n))) (let loop ((k 0)) (if (not (= k n)) (begin (string-set! r k (string-ref string k)) (loop (+ k 1))))) r)) (define (string-fill! string char) (let ((n (string-length string))) (let loop ((k 0)) (if (not (= k n)) (begin (string-set! string k char) (loop (+ k 1))))))) (define (string-reverse string) ;Extension to R4RS. (let* ((n (string-length string)) (r (make-string n))) (let loop ((k 0)) (if (not (= k n)) (begin (string-set! r k (string-ref string (- (- n k) 1))) (loop (+ k 1))))) r)) ;; 6.8 Vectors (define (vector? obj) ((primitive-procedure vector?) obj)) (define (make-vector k . fill) (cond ((null? fill) ((primitive-procedure make-vector) k)) ((null? (cdr fill)) ((primitive-procedure make-vector) k (car fill))) (else (panic "Attempt to call MAKE-VECTOR with the wrong number of arguments")))) (define (make-displaced-vector vector k1 k2) ;Extension to R4RS. ((primitive-procedure make-displaced-vector) vector k1 k2)) (define (vector . objs) (let ((r (make-vector (list-length objs)))) (let loop ((k 0) (objs objs)) (if (null? objs) r (begin (vector-set! r k (car objs)) (loop (+ k 1) (cdr objs))))))) (define (vector-length vector) ((primitive-procedure vector-length) vector)) (define (vector-ref vector k) ((primitive-procedure vector-ref) vector k)) (define (vector-set! vector k obj) ((primitive-procedure vector-set!) vector k obj)) (define (vector->list vector) ;; needs work: To make tail recursive. (let loop ((k 0)) (if (= k (vector-length vector)) '() (cons (vector-ref vector k) (loop (+ k 1)))))) (define (list->vector list) (let ((r (make-vector (list-length list)))) (let loop ((k 0)) (if (not (null? list)) (begin (vector-set! r k (car list)) (set! list (cdr list)) (loop (+ k 1))))) r)) (define (vector-fill! vector obj) (let loop ((k 0)) (if (not (= k (vector-length vector))) (begin (vector-set! vector k obj) (loop (+ k 1)))))) (define (subvector vector start end) ;Extension to R4RS. (let ((r (make-vector (- end start)))) (let loop ((k 0)) (if (< k (- end start)) (begin (vector-set! r k (vector-ref vector (+ k start))) (loop (+ k 1))))) r)) (define (vector-append . vectors) ;Extension to R4RS. ;; note: Support for multiple arguments incurs a penalty here. (let* ((r (make-vector (let loop ((k 0) (vectors vectors)) (if (null? vectors) k (loop (+ k (vector-length (car vectors))) (cdr vectors)))))) (k 0)) (let loop ((vectors vectors)) (if (not (null? vectors)) (begin (let loop ((l 0)) (if (not (= l (vector-length (car vectors)))) (begin (vector-set! r k (vector-ref (car vectors) l)) (set! k (+ k 1)) (loop (+ l 1))))) (loop (cdr vectors))))) r)) (define (vector-reverse vector) ;Extension to R4RS. (let ((r (make-vector (vector-length vector)))) (let loop ((k 0)) (if (not (= k (vector-length vector))) (begin (vector-set! r k (vector-ref vector (- (- (vector-length vector) k) 1))) (loop (+ k 1))))) r)) (define (vector-copy vector) ;Extension to R4RS. (let ((r (make-vector (vector-length vector)))) (let loop ((k 0)) (if (not (= k (vector-length vector))) (begin (vector-set! r k (vector-ref vector k)) (loop (+ k 1))))) r)) ;; 6.9 Control features (define (procedure? obj) ((primitive-procedure procedure?) obj)) (define (apply proc arg1 . args) (if (null? args) ((primitive-procedure apply) proc arg1) (let loop ((arg1 (list arg1)) (args args)) (if (null? (cdr args)) (let loop ((arg1 (car args)) (args arg1)) (if (null? args) ((primitive-procedure apply) proc arg1) (loop (cons (car args) arg1) (cdr args)))) (loop (cons (car args) arg1) (cdr args)))))) (define (map proc list1 . lists) ;; note: Support for multiple arguments incurs a penalty here. (cond ;; note: This special-cases the one-argument case for speed. ((null? lists) (let loop ((list1 list1) (c '())) (if (null? list1) (list-reverse c) (loop (cdr list1) (cons (proc (car list1)) c))))) ;; note: This special-cases the two-argument case for speed. ((null? (cdr lists)) (let loop ((list1 list1) (list2 (car lists)) (c '())) (if (null? list1) (list-reverse c) (loop (cdr list1) (cdr list2) (cons (proc (car list1) (car list2)) c))))) (else (let loop ((list1 list1) (lists lists) (c '())) (if (null? list1) (list-reverse c) (loop (cdr list1) (let loop ((lists lists) (c '())) (if (null? lists) (list-reverse c) (loop (cdr lists) (cons (cdr (car lists)) c)))) (cons (apply proc (car list1) (let loop ((lists lists) (c '())) (if (null? lists) (list-reverse c) (loop (cdr lists) (cons (car (car lists)) c))))) c))))))) (define (for-each proc list1 . lists) ;; note: Support for multiple arguments incurs a penalty here. (cond ((null? lists) ;; note: This special-cases the one-argument case for speed. (let loop ((list1 list1)) (if (not (null? list1)) (begin (proc (car list1)) (loop (cdr list1)))))) ((null? (cdr lists)) ;; note: This special-cases the two-argument case for speed. (let loop ((list1 list1) (list2 (car lists))) (if (not (null? list1)) (begin (proc (car list1) (car list2)) (loop (cdr list1) (cdr list2)))))) (else (let loop ((list1 list1) (lists lists)) (if (not (null? list1)) (begin (apply proc (car list1) (let loop ((lists lists) (c '())) (if (null? lists) (list-reverse c) (loop (cdr lists) (cons (car (car lists)) c))))) (loop (cdr list1) (let loop ((lists lists) (c '())) (if (null? lists) (list-reverse c) (loop (cdr lists) (cons (cdr (car lists)) c))))))))))) (define (force promise) (promise)) (define (call-with-current-continuation proc) ((primitive-procedure call-with-current-continuation) proc)) ;; 6.10 Input and Output ;; 6.10.1 Ports (define (call-with-input-file string proc) (let* ((input-port (open-input-file string)) (r (proc input-port))) (close-input-port input-port) r)) (define (call-with-output-file string proc) (let* ((output-port (open-output-file string)) (r (proc output-port))) (close-output-port output-port) r)) (define (input-port? obj) ((primitive-procedure input-port?) obj)) (define (output-port? obj) ((primitive-procedure output-port?) obj)) (define current-input-port ((lambda ()))) ;Defined in *I/O*. (define current-output-port ((lambda ()))) ;Defined in *I/O*. (define with-input-from-file ((lambda ()))) ;Defined in *I/O*. (define with-output-to-file ((lambda ()))) ;Defined in *I/O*. (define (open-input-file filename) ((primitive-procedure open-input-file) filename)) (define (open-output-file filename) ((primitive-procedure open-output-file) filename)) (define (close-input-port port) ((primitive-procedure close-input-port) port)) (define (close-output-port port) ((primitive-procedure close-output-port) port)) ;; 6.10.2 Input ,*read* (define read-char ((lambda ()))) ;Defined in *I/O*. (define peek-char ((lambda ()))) ;Defined in *I/O*. (define (eof-object? obj) ((primitive-procedure eof-object?) obj)) (define char-ready? ((lambda ()))) ;Defined in *I/O*. ;; 6.10.3 Output (define write ((lambda ()))) ;Defined in *I/O*. (define display ((lambda ()))) ;Defined in *I/O*. (define newline ((lambda ()))) ;Defined in *I/O*. (define write-char ((lambda ()))) ;Defined in *I/O*. ;; Extension to R4RS. (define define-write-method ((lambda ()))) ;Defined in *I/O*. ;; Extension to R4RS. (define define-display-method ((lambda ()))) ;Defined in *I/O*. ,*i/o* (define (panic string) ;Extension to R4RS. ((primitive-procedure panic) string)) (define (pointer? obj) ;Extension to R4RS. ((primitive-procedure pointer?) obj)) ;; Extension to R4RS. (define (integer->string k) ((primitive-procedure integer->string) k)) (define (integer->input-port k) ;Extension to R4RS. ((primitive-procedure integer->input-port) k)) (define (integer->output-port k) ;Extension to R4RS. ((primitive-procedure integer->output-port) k)) ;; Extension to R4RS. (define (integer->pointer k) ((primitive-procedure integer->pointer) k)) ;; 6.10.4 System interface ;; needs work: LOAD TRANSCRIPT-ON TRANSCRIPT-OFF (define ,*list->vector* list->vector) (define ,*append* append) (define ,*cons* cons) (define ,*eqv?* eqv?) (let ((not not) (boolean? boolean?) (eqv? eqv?) (eq? eq?) (equal? equal?) (pair? pair?) (cons cons) (car car) (cdr cdr) (set-car! set-car!) (set-cdr! set-cdr!) (caar caar) (cadr cadr) (cdar cdar) (cddr cddr) (caaar caaar) (caadr caadr) (cadar cadar) (caddr caddr) (cdaar cdaar) (cdadr cdadr) (cddar cddar) (cdddr cdddr) (caaaar caaaar) (caaadr caaadr) (caadar caadar) (caaddr caaddr) (cadaar cadaar) (cadadr cadadr) (caddar caddar) (cadddr cadddr) (cdaaar cdaaar) (cdaadr cdaadr) (cdadar cdadar) (cdaddr cdaddr) (cddaar cddaar) (cddadr cddadr) (cdddar cdddar) (cddddr cddddr) (null? null?) (list? list?) (list list) (list-length list-length) (length length) (sublist sublist) (sub sub) (list-append list-append) (append append) (list-reverse list-reverse) (reverse reverse) (list-tail list-tail) (list-ref list-ref) (ref ref) (memq memq) (memv memv) (member member) (assq assq) (assv assv) (assoc assoc) (list-set! list-set!) (ref! ref!) (list-fill! list-fill!) (fill! fill!) (list-copy list-copy) (copy copy) (symbol? symbol?) (symbol->string symbol->string) (string->uninterned-symbol string->uninterned-symbol) (string->symbol string->symbol) (number? number?) (complex? complex?) (real? real?) (rational? rational?) (integer? integer?) (exact? exact?) (inexact? inexact?) (= =) (< <) (> >) (<= <=) (>= >=) (zero? zero?) (positive? positive?) (negative? negative?) (odd? odd?) (even? even?) (max max) (min min) (+ +) (* *) (- -) (/ /) (abs abs) (quotient quotient) (remainder remainder) (modulo modulo) (gcd gcd) (lcm lcm) (<< <<) (>> >>) (bitwise-not bitwise-not) (bitwise-and bitwise-and) (bitwise-or bitwise-or) (bitwise-xor bitwise-xor) (floor floor) (ceiling ceiling) (truncate truncate) (round round) (exp exp) (log log) (sin sin) (cos cos) (tan tan) (asin asin) (acos acos) (atan atan) (sqrt sqrt) (expt expt) (exact->inexact exact->inexact) (inexact->exact inexact->exact) (number->string number->string) (string->number string->number) (char? char?) (char=? char=?) (char? char>?) (char<=? char<=?) (char>=? char>=?) (char-ci=? char-ci=?) (char-ci? char-ci>?) (char-ci<=? char-ci<=?) (char-ci>=? char-ci>=?) (char-alphabetic? char-alphabetic?) (char-numeric? char-numeric?) (char-whitespace? char-whitespace?) (char-upper-case? char-upper-case?) (char-lower-case? char-lower-case?) (char->integer char->integer) (integer->char integer->char) (char-upcase char-upcase) (char-downcase char-downcase) (string? string?) (make-string make-string) (string string) (string-length string-length) (string-ref string-ref) (string-set! string-set!) (string=? string=?) (string-ci=? string-ci=?) (string? string>?) (string<=? string<=?) (string>=? string>=?) (string-ci? string-ci>?) (string-ci<=? string-ci<=?) (string-ci>=? string-ci>=?) (substring substring) (string-append string-append) (string->list string->list) (list->string list->string) (string-copy string-copy) (string-fill! string-fill!) (string-reverse string-reverse) (vector? vector?) (make-vector make-vector) (make-displaced-vector make-displaced-vector) (vector vector) (vector-length vector-length) (vector-ref vector-ref) (vector-set! vector-set!) (vector->list vector->list) (list->vector list->vector) (vector-fill! vector-fill!) (subvector subvector) (vector-append vector-append) (vector-reverse vector-reverse) (vector-copy vector-copy) (procedure? procedure?) (apply apply) (map map) (for-each for-each) (force force) (call-with-current-continuation call-with-current-continuation) (call-with-input-file call-with-input-file) (call-with-output-file call-with-output-file) (input-port? input-port?) (output-port? output-port?) (current-input-port current-input-port) (current-output-port current-output-port) (with-input-from-file with-input-from-file) (with-output-to-file with-output-to-file) (open-input-file open-input-file) (open-output-file open-output-file) (close-input-port close-input-port) (close-output-port close-output-port) (read read) (read-char read-char) (peek-char peek-char) (eof-object? eof-object?) (char-ready? char-ready?) (write write) (display display) (newline newline) (write-char write-char) (define-write-method define-write-method) (define-display-method define-display-method) (panic panic) (pointer? pointer?) (integer->string integer->string) (integer->input-port integer->input-port) (integer->output-port integer->output-port) (integer->pointer integer->pointer)) ,@ss)))) ;;; The C library (define *c:noreturn?* #f) (define *c:c?* #f) (define *c:panic?* #f) (define *c:backtrace?* #f) (define *c:backtrace-internal?* #f) (define *c:ipow?* #f) (define *c:input-waiting?* #f) (define *c:includes* #f) (define (include! include) (unless (member include *c:includes*) (set! *c:includes* (cons include *c:includes*)))) (define (c-library) ;; needs work: To use code-generation abstractions. (when *c:panic?* (set! *c:noreturn?* #t)) (when *c:panic?* (include! "stdio") ;fprintf stderr (include! "stdlib")) ;exit (when *c:backtrace?* (include! "stdio")) ;fprintf stderr (when *c:backtrace-internal?* (include! "stdio")) ;fprintf stderr (when *c:input-waiting?* (include! "sys/time") ;timeval (include! "unistd") ;fd_set FD_ZERO FD_SET select (include! "stdlib") ;NULL (include! "stdio")) ;FILE feof fileno (newline-between (newlines-between (map (lambda (include) (list "#include <" include ".h>")) *c:includes*)) (if *c:noreturn?* "#ifdef __GNUC__ #define NORETURN __attribute__ ((noreturn)) #else #define NORETURN #endif" "") (if (positive? *allocation-alignment*) (list "#define ALIGN(p) if (((" *squished* ")p)%" (c:fixnum (expt 2 *allocation-alignment*)) "!=0) p += " (c:fixnum (expt 2 *allocation-alignment*)) "-(((" *squished* ")p)%" (c:fixnum (expt 2 *allocation-alignment*)) ")") "") (list "#define IMIN(x,y) (xy?x:y) #define RMIN(x,y) (xy?x:y) struct rectangular {" *flonum* " r; " *flonum* " i;};") (if *c:c?* "int c;" "") (if *c:panic?* "void stalin_panic(char *message) NORETURN; void stalin_panic(char *message) {fprintf(stderr, \"%s\\n\", message); exit(-1);}" "") (if *c:backtrace?* "void backtrace(char *file_name, unsigned int line_number, unsigned int character_number); void backtrace(char *file_name, unsigned int line_number, unsigned int character_number) {fprintf(stderr, \"\\n%s:%d:%d:\", file_name, line_number, character_number);}" "") (if *c:backtrace-internal?* "void backtrace_internal(char *name); void backtrace_internal(char *name) {fprintf(stderr, \"\\nIn %s\\n\", name);}" "") (if *c:ipow?* (list "int ipow(int x, int y); int ipow(int x, int y) {int i, r = 1; for (i = 0; i0 if there is input, -1 if error */ {fd_set rfds; struct timeval tv; /* check stdio buffer first */ if (feof(f)) return 1; #ifdef __linux__ if ((f->_IO_read_end)>(f->_IO_read_ptr)) return 1; #else if ((f->_cnt)>0) return 1; #endif /* watch fd to see when it has input */ FD_ZERO(&rfds); FD_SET(fileno(f), &rfds); /* do not wait */ tv.tv_sec = 0; tv.tv_usec = 0; return select(fileno(f)+1, &rfds, NULL, NULL, &tv);}") "") (if *treadmarks?* "void Tmk_distribute_hack(const void *ptr, int size) { const char *p = ptr; while (size>0) { Tmk_distribute((void *)p, (size>65460)?65460:size); p += 65460; size -= 65460;}} int Tmk_get_NBARRIERS(void) {return TMK_NBARRIERS;} int Tmk_get_NPROCS(void) {return TMK_NPROCS;} int Tmk_get_proc_id(void) {return Tmk_proc_id;} int Tmk_get_NLOCKS(void) {return TMK_NLOCKS;}" ""))) (define *Scheme->C-compatibility-macros* (list (list 'when (lambda (s) (unless (>= (sx-length s) 2) (syntax-error s "Improper WHEN")) `(if ,(sx-second s) (begin ,@(sx-unlist (sx-rest (sx-rest s))))))) (list 'unless (lambda (s) (unless (>= (sx-length s) 2) (syntax-error s "Improper UNLESS")) `(if ,(sx-second s) ((lambda ())) (begin ,@(sx-unlist (sx-rest (sx-rest s))))))))) (define (valid-Xlib-and-GL-type? type) ;; conventions: TYPE (let ((type (unencapsulate type))) ;; conventions: TYPE (or (equal? type 'pointer) (equal? type 'void) (equal? type '(pointer void)) (equal? type '(pointer (pointer void))) (equal? type 'char) (equal? type '(pointer char)) (equal? type '(pointer (pointer char))) (equal? type '(pointer (pointer (pointer char)))) (equal? type 'unsigned-char) (equal? type '(pointer unsigned-char)) (equal? type '(pointer (pointer unsigned-char))) (equal? type '(pointer (pointer (pointer unsigned-char)))) (equal? type 'signed-char) (equal? type '(pointer signed-char)) (equal? type 'string) (equal? type 'short) (equal? type '(pointer short)) (equal? type 'unsigned-short) (equal? type '(pointer unsigned-short)) (equal? type 'int) (equal? type '(pointer int)) (equal? type 'unsigned-int) (equal? type '(pointer unsigned-int)) (equal? type 'long) (equal? type 'unsigned-long) (equal? type '(pointer unsigned-long)) (equal? type '(pointer (pointer unsigned-long))) (equal? type 'float) (equal? type '(pointer float)) (equal? type 'double) (equal? type '(pointer double)) (equal? type '(pointer union)) (equal? type '(pointer struct)) (equal? type '(pointer (struct "GLUquadricObj"))) (equal? type '(pointer (struct "GLUnurbsObj"))) (equal? type '(pointer (struct "GLUtriangulatorObj"))) (equal? type '(pointer (pointer struct))) (equal? type '(pointer (pointer (pointer struct)))) (equal? type '(pointer function))))) (define (translate-Xlib-and-GL-type type) ;; conventions: TYPE (let ((type (unencapsulate type))) ;; conventions: TYPE (cond ((equal? type 'pointer) 'void*) ;needs work ((equal? type 'void) 'void) ((equal? type '(pointer void)) 'void*) ((equal? type '(pointer (pointer void))) 'void*) ((equal? type 'char) 'char) ((equal? type '(pointer char)) 'void*) ((equal? type '(pointer (pointer char))) 'void*) ((equal? type '(pointer (pointer (pointer char)))) 'void*) ((equal? type 'unsigned-char) 'unsigned-char) ((equal? type '(pointer unsigned-char)) 'void*) ((equal? type '(pointer (pointer unsigned-char))) 'void*) ((equal? type '(pointer (pointer (pointer unsigned-char)))) 'void*) ((equal? type 'signed-char) 'signed-char) ((equal? type '(pointer signed-char)) 'void*) ((equal? type 'string) 'char*) ((equal? type 'short) 'short) ((equal? type '(pointer short)) 'void*) ((equal? type 'unsigned-short) 'unsigned-short) ((equal? type '(pointer unsigned-short)) 'void*) ((equal? type 'int) 'int) ((equal? type '(pointer int)) 'void*) ((equal? type 'unsigned-int) 'unsigned) ((equal? type '(pointer unsigned-int)) 'void*) ((equal? type 'long) 'long) ((equal? type 'unsigned-long) 'unsigned-long) ((equal? type '(pointer unsigned-long)) 'void*) ((equal? type '(pointer (pointer unsigned-long))) 'void*) ((equal? type 'float) 'float) ((equal? type '(pointer float)) 'void*) ((equal? type 'double) 'double) ((equal? type '(pointer double)) 'void*) ((equal? type '(pointer union)) 'void*) ((equal? type '(pointer struct)) 'void*) ((equal? type '(pointer (struct "GLUquadricObj"))) 'void*) ((equal? type '(pointer (struct "GLUnurbsObj"))) 'void*) ((equal? type '(pointer (struct "GLUtriangulatorObj"))) 'void*) ((equal? type '(pointer (pointer struct))) 'void*) ((equal? type '(pointer (pointer (pointer struct)))) 'void*) ((equal? type '(pointer function)) 'void*) (else (fuck-up))))) (define *Xlib-and-GL-macros* (list (list 'foreign-function (lambda (s) (unless (and (= (sx-length s) 5) (sx-symbol? (sx-second s)) (sx-list? (sx-third s)) (sx-every valid-Xlib-and-GL-type? (sx-third s)) (valid-Xlib-and-GL-type? (sx-fourth s)) (sx-string? (sx-fifth s))) (syntax-error s "Improper FOREIGN-FUNCTION")) `(define ,(sx-second s) (foreign-procedure ,(sx-map translate-Xlib-and-GL-type (sx-third s)) ,(translate-Xlib-and-GL-type (sx-fourth s)) ,(sx-fifth s))))) (list 'foreign-define (lambda (s) (unless (and (= (sx-length s) 3) (sx-symbol? (sx-second s))) (syntax-error s "Improper FOREIGN-DEFINE")) `(define ,(sx-second s) ,(sx-third s)))) (list 'in-package (lambda (s) (unless (and (= (sx-length s) 2) (sx-symbol? (sx-second s))) (syntax-error s "Improper IN-PACKAGE")) `(begin))))) ;;; Derived from the t21oct97 archive of QobiScheme, updated to the ;;; m2feb98, r5feb98, m7dec98, m24jan00, f10mar00, h22apr00, f5may00, ;;; m12jun00, and m25jun01 archives. (define *QobiScheme-macros* (list (list 'define-structure (lambda (s) (unless (and (>= (sx-length s) 3) (sx-every sx-symbol? (sx-rest s))) (syntax-error s "Improper DEFINE-STRUCTURE")) (let ((type (sx-datum (sx-second s))) (slots (sx-unlist (sx-rest (sx-rest s))))) ;; conventions: TYPE SLOTS `(begin (define (,(string->symbol (string-append "MAKE-" (symbol->string type))) ,@(map sx-datum slots)) ((primitive-procedure make-structure ,type ,(length slots)) ,@(map sx-datum slots))) (define (,(string->symbol (string-append (symbol->string type) "?")) obj) ((primitive-procedure structure? ,type) obj)) ,@(map-indexed (lambda (slot i) ;; conventions: SLOT I (let ((slot (sx-datum slot))) ;; conventions: SLOT `(begin (define (,(string->symbol (string-append (symbol->string type) "-" (symbol->string slot))) s) ((primitive-procedure structure-ref ,type ,i) s)) (define (,(string->symbol (string-append "SET-" (symbol->string type) "-" (symbol->string slot) "!")) s x) ((primitive-procedure structure-set! ,type ,i) s x)) (define (,(string->symbol (string-append "LOCAL-SET-" (symbol->string type) "-" (symbol->string slot) "!")) s x) (let ((p ((primitive-procedure structure-ref ,type ,i) s))) ;; conventions: P (upon-failure ((primitive-procedure structure-set! ,type ,i) s p))) ((primitive-procedure structure-set! ,type ,i) s x))))) slots) )))) (list 'while (lambda (s) (let ((loop (gensym "loop"))) ;changed ;; conventions: LOOP `(begin (define (,loop) (when ,(sx-second s) ,@(sx-unlist (sx-rest (sx-rest s))) (,loop))) (,loop))))) (list 'either (lambda (s) (cond ((sx-null? (sx-rest s)) '(fail)) ((sx-null? (sx-rest (sx-rest s))) (sx-second s)) (else `(if (a-boolean) ,(sx-second s) (either ,@(sx-unlist (sx-rest (sx-rest s))))))))) (list 'for-effects (lambda (s) (let ((return (gensym "return")) ;changed (old-fail (gensym "old-fail"))) ;changed ;; conventions: RETURN OLD-FAIL `(call-with-current-continuation (lambda (,return) (let ((,old-fail fail)) (set! fail (lambda () (set! fail ,old-fail) (,return #f))) (begin ,@(sx-unlist (sx-rest s))) (fail))))))) (list 'one-value (lambda (s) (unless (or (= (sx-length s) 2) (= (sx-length s) 3)) (syntax-error s "Improper ONE-VALUE")) (let ((s1 (sx-second s)) (s2 (if (= (sx-length s) 2) '(fail) (sx-third s))) (return (gensym "return")) ;changed (old-fail (gensym "old-fail"))) ;changed ;; conventions: S1 S2 RETURN OLD-FAIL `(call-with-current-continuation (lambda (,return) (let ((,old-fail fail)) (set! fail (lambda () (set! fail ,old-fail) (,return ,s2))) (let ((v ,s1)) (set! fail ,old-fail) v))))))) ;changed (list 'local-one-value ;; needs work: *FAIL?* can potentially be captured. (lambda (s) (unless (or (= (sx-length s) 2) (= (sx-length s) 3)) (syntax-error s "Improper LOCAL-ONE-VALUE")) (let ((s1 (sx-second s)) (s2 (if (= (sx-length s) 2) '(fail) (sx-third s))) (return (gensym "return")) ;changed (old-fail (gensym "old-fail")) ;changed (v (gensym "v"))) ;changed ;; conventions: S1 S2 RETURN OLD-FAIL V `(call-with-current-continuation (lambda (,return) (let ((,v #f) (,old-fail fail)) (set! fail (lambda () (set! fail ,old-fail) (,return (cond (*fail?* ,s2) (else (set! *fail?* #t) ,v))))) (set! ,v ,s1) (set! *fail?* #f) (fail))))))) (list 'all-values ;; needs work: To eliminate REVERSE. (lambda (s) (let ((values (gensym "values"))) ;changed ;; conventions: VALUEs `(let ((,values '())) (for-effects (set! ,values (cons (begin ,@(sx-unlist (sx-rest s))) ,values))) (reverse ,values))))) (list 'possibly? (lambda (s) (let ((return (gensym "return")) ;changed (old-fail (gensym "old-fail")) ;changed (v (gensym "v"))) ;changed ;; conventions: RETURN OLD-FAIL V `(call-with-current-continuation (lambda (,return) (let ((,old-fail fail)) (set! fail (lambda () (set! fail ,old-fail) (,return #f))) (let ((,v (begin ,@(sx-unlist (sx-rest s))))) (unless ,v (fail)) (set! fail ,old-fail) ,v))))))) ;changed (list 'necessarily? (lambda (s) (let ((return (gensym "return")) ;changed (old-fail (gensym "old-fail")) ;changed (v (gensym "v")) ;changed (u (gensym "u"))) ;changed ;; conventions: RETURN OLD-FAIL V U `(call-with-current-continuation (lambda (,return) (let ((,old-fail fail) (,u #t)) (set! fail (lambda () (set! fail ,old-fail) (,return ,u))) (let ((,v (begin ,@(sx-unlist (sx-rest s))))) (when ,v (set! ,u ,v) (fail)) (set! fail ,old-fail) #f))))))) ;changed (list 'upon-failure (lambda (s) (let ((old-fail (gensym "old-fail"))) ;changed ;; conventions: OLD-FAIL `(let ((,old-fail fail)) (set! fail (lambda () (set! fail ,old-fail) ,@(sx-unlist (sx-rest s)) (fail))))))) (list 'local-set! (lambda (s) (unless (= (sx-length s) 3) (syntax-error s "Improper LOCAL-SET!")) (let ((p (gensym "p"))) ;changed ;; conventions: P `(begin (let ((,p ,(sx-second s))) (upon-failure (set! ,(sx-second s) ,p))) (set! ,(sx-second s) ,(sx-third s)))))) (list 'lazy (lambda (s) (let ((args (gensym "args"))) ;changed ;; conventions: LAZY `(lambda ,args (apply ,(sx-second s) ,args))))) (list 'define-toggle-button (lambda (s) (unless (and (= (sx-length s) 6) (sx-symbol? (sx-fifth s))) (syntax-error s "Improper DEFINE-TOGGLE-BUTTON")) `(define-button ,(sx-second s) ,(sx-third s) ,(sx-fourth s) (lambda () ,(sx-fifth s)) (lambda () (set! ,(sx-fifth s) (not ,(sx-fifth s))) (redraw-buttons) (,(sx-sixth s)))))) (list 'define-radio-buttons (lambda (s) (unless (and (>= (sx-length s) 3) (sx-symbol? (sx-second s)) (sx-every (lambda (element) (and (sx-list? element) (= (sx-length element) 4) (sx-symbol? (sx-third element)))) (sx-rest (sx-rest (sx-rest s))))) (syntax-error s "Improper DEFINE-RADIO-BUTTONS")) `(begin ,@(sx-map (lambda (element) `(define-button ,(sx-first element) ,(sx-second element) ,(sx-fourth element) (lambda () (eq? ,(sx-second s) ',(sx-third element))) (lambda () (set! ,(sx-second s) ',(sx-third element)) (redraw-buttons) (,(sx-third s))))) (sx-rest (sx-rest (sx-rest s))))))) (list 'define-cycle-button (lambda (s) (unless (and (>= (sx-length s) 6) (sx-symbol? (sx-fourth s)) (sx-every (lambda (element) (and (sx-list? element) (= (sx-length element) 2) (sx-symbol? (sx-first element)))) (sx-rest (sx-rest (sx-rest (sx-rest (sx-rest s))))))) (syntax-error s "Improper DEFINE-CYCLE-BUTTON")) (let ((symbols (sx-map sx-first (sx-rest (sx-rest (sx-rest (sx-rest (sx-rest s)))))))) `(define-button ,(sx-second s) ,(sx-third s) (lambda () (case ,(sx-fourth s) ,@(sx-map (lambda (element) `((,(sx-first element)) ,(sx-second element))) (sx-rest (sx-rest (sx-rest (sx-rest (sx-rest s)))))) (else (fuck-up)))) #f (lambda () (set! ,(sx-fourth s) (case ,(sx-fourth s) ,@(map (lambda (s1 s2) `((,s1) (set! ,(sx-fourth s) ',s2))) symbols (append (rest symbols) (list (first symbols)))) (else (fuck-up)))) (redraw-buttons) (,(sx-fifth s))))))) (list 'define-integer-range-buttons (lambda (s) (unless (and (= (sx-length s) 11) (sx-symbol? (sx-sixth s))) (syntax-error s "Improper DEFINE-INTEGER-RANGE-BUTTONS")) `(begin (define-button ,(sx-second s) ,(sx-third s) ,(sx-ninth s) #f (lambda () (when (= ,(sx-sixth s) ,(sx-seventh s)) (abort)) (set! ,(sx-sixth s) (- ,(sx-sixth s) 1)) (redraw-buttons) (,(sx-eleventh s)))) (define-button ,(sx-fourth s) ,(sx-fifth s) ,(sx-tenth s) #f (lambda () (when (= ,(sx-sixth s) ,(sx-eighth s)) (abort)) (set! ,(sx-sixth s) (+ ,(sx-sixth s) 1)) (redraw-buttons) (,(sx-eleventh s))))))) (list 'define-display-pane-application ;; (DEFINE-DISPLAY-PANE-APPLICATION ;; NAME ;; DISPLAY-PANE-WIDTH ;; DISPLAY-PANE-HEIGHT ;; PRE-INITIALIZE-PROCEDURE ;; POST-INITIALIZE-PROCEDURE ;; FINALIZE-PROCEDURE ;; REDRAW-PROCEDURE) (lambda (s) `(define (,(sx-second s) arguments) (let* ((stalin? #t) (display-pane-width ,(sx-third s)) (display-pane-height ,(sx-fourth s)) (pre-initialize-procedure ,(sx-fifth s)) (post-initialize-procedure ,(sx-sixth s)) (finalize-procedure ,(sx-seventh s)) (redraw-procedure ,(sx-eighth s))) (set! *post-initialize-procedure* post-initialize-procedure) (set! *transcript-pane* #f) (set! *echo-pane* #f) (set! *status-pane* #f) (set! *message-pane* #f) (set! *display* (xopendisplay *display-name*)) ;; changed: NULL-POINTER?, FORMAT (when (zero? *display*) (panic (format #f "Cannot connect to X server: ~a" (xdisplayname *display-name*)))) (set! *screen* (xdefaultscreen *display*)) (set! *root-window* (xrootwindow *display* *screen*)) (set! *button-width* 0) (set! *button-height* 0) (cond (stalin? (set! *white-pixel* (xwhitepixel *display* *screen*)) (set! *black-pixel* (xblackpixel *display* *screen*))) (else (set! *background* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) *background-color*)) (unless (= (first *background*) 1) (panic "Can't allocate background colorcell")) (set! *foreground* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) *foreground-color*)) (unless (= (first *foreground*) 1) (panic "Can't allocate foreground colorcell")))) (set! *roman-font* (xloadqueryfont *display* *roman-font-name*)) ;; changed: NULL-POINTER?, FORMAT (when (zero? *roman-font*) (panic (format #f "Cannot open font: ~a" *roman-font-name*))) (set! *bold-font* (xloadqueryfont *display* *bold-font-name*)) ;; changed: NULL-POINTER?, FORMAT (when (zero? *bold-font*) (panic (format #f "Cannot open font: ~a" *bold-font-name*))) (set! *roman-height* (+ (xfontstruct-ascent *roman-font*) (xfontstruct-descent *roman-font*))) (set! *bold-height* (+ (xfontstruct-ascent *bold-font*) (xfontstruct-descent *bold-font*))) (set! *text-height* (+ (max (xfontstruct-ascent *roman-font*) (xfontstruct-ascent *bold-font*)) (max (xfontstruct-descent *roman-font*) (xfontstruct-descent *bold-font*)))) (set! *roman-baseline* (xfontstruct-descent *roman-font*)) (set! *bold-baseline* (xfontstruct-descent *bold-font*)) (set! *text-baseline* (max *roman-baseline* *bold-baseline*)) (set! *display-pane-width* display-pane-width) (set! *display-pane-height* display-pane-height) (set! *who-line-height* 0) (set! *window* (xcreatesimplewindow *display* *root-window* *window-position-x* *window-position-y* *display-pane-width* *display-pane-height* 1 (if stalin? *black-pixel* (xcolor-pixel (second *foreground*))) (if stalin? *white-pixel* (xcolor-pixel (second *background*))))) (xstorename *display* *window* *program*) (xseticonname *display* *window* *program*) (set! *display-pane* *window*) (xselectinput *display* *display-pane* (bit-or exposuremask pointermotionmask buttonpressmask buttonreleasemask keypressmask)) (set! *thin-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *thin-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *thin-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetlineattributes *display* *thin-gc* 0 linesolid capround joinround) (set! *thin-flipping-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *thin-flipping-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetforeground *display* *thin-flipping-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetlineattributes *display* *thin-flipping-gc* 0 linesolid capround joinround) (xsetfunction *display* *thin-flipping-gc* gxxor) (set! *medium-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *medium-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *medium-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetlineattributes *display* *medium-gc* 2 linesolid capround joinround) (set! *medium-flipping-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *medium-flipping-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetforeground *display* *medium-flipping-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetlineattributes *display* *medium-flipping-gc* 2 linesolid capround joinround) (xsetfunction *display* *medium-flipping-gc* gxxor) (set! *thick-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *thick-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *thick-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetlineattributes *display* *thick-gc* 5 linesolid capround joinround) (set! *thick-flipping-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *thick-flipping-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetforeground *display* *thick-flipping-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetlineattributes *display* *thick-flipping-gc* 5 linesolid capround joinround) (xsetfunction *display* *thick-flipping-gc* gxxor) (set! *dashed-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *dashed-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *dashed-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetlineattributes *display* *dashed-gc* 0 lineonoffdash capround joinround) (set! *dashed-flipping-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *dashed-flipping-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetforeground *display* *dashed-flipping-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetlineattributes *display* *dashed-flipping-gc* 0 lineonoffdash capround joinround) (xsetfunction *display* *dashed-flipping-gc* gxxor) (set! *roman-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *roman-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *roman-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetfont *display* *roman-gc* (xfontstruct-fid *roman-font*)) (set! *bold-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *bold-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *bold-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetfont *display* *bold-gc* (xfontstruct-fid *bold-font*)) (set! *bold-flipping-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *bold-flipping-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetforeground *display* *bold-flipping-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetfont *display* *bold-flipping-gc* (xfontstruct-fid *bold-font*)) (xsetlineattributes *display* *bold-flipping-gc* 0 linesolid capround joinround) (xsetfunction *display* *bold-flipping-gc* gxxor) (unless stalin? (set! *light-gray* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Light Gray")) (unless (= (first *light-gray*) 1) (panic "Can't allocate light gray colorcell")) (set! *light-gray-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *light-gray-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *light-gray-gc* (xcolor-pixel (second *light-gray*))) (xsetlineattributes *display* *light-gray-gc* 0 linesolid capround joinround) (set! *gray* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Gray")) (unless (= (first *gray*) 1) (panic "Can't allocate gray colorcell")) (set! *gray-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *gray-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *gray-gc* (xcolor-pixel (second *gray*))) (xsetlineattributes *display* *gray-gc* 0 linesolid capround joinround) (set! *red* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Red")) (unless (= (first *red*) 1) (panic "Can't allocate red colorcell")) (set! *red-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *red-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *red-gc* (xcolor-pixel (second *red*))) (xsetfont *display* *red-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *red-gc* 0 linesolid capround joinround) (set! *dark-red* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Dark Red")) (unless (= (first *dark-red*) 1) (panic "Can't allocate dark red colorcell")) (set! *dark-red-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *dark-red-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *dark-red-gc* (xcolor-pixel (second *dark-red*))) (xsetfont *display* *dark-red-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *dark-red-gc* 0 linesolid capround joinround) (set! *green* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Green")) (unless (= (first *green*) 1) (panic "Can't allocate green colorcell")) (set! *green-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *green-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *green-gc* (xcolor-pixel (second *green*))) (xsetfont *display* *green-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *green-gc* 0 linesolid capround joinround) (set! *dark-green* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Dark Green")) (unless (= (first *dark-green*) 1) (panic "Can't allocate dark green colorcell")) (set! *dark-green-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *dark-green-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *dark-green-gc* (xcolor-pixel (second *dark-green*))) (xsetfont *display* *dark-green-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *dark-green-gc* 0 linesolid capround joinround) (set! *blue* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Blue")) (unless (= (first *blue*) 1) (panic "Can't allocate blue colorcell")) (set! *blue-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *blue-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *blue-gc* (xcolor-pixel (second *blue*))) (xsetfont *display* *blue-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *blue-gc* 0 linesolid capround joinround) (set! *yellow* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Yellow")) (unless (= (first *yellow*) 1) (panic "Can't allocate yellow colorcell")) (set! *yellow-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *yellow-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *yellow-gc* (xcolor-pixel (second *yellow*))) (xsetfont *display* *yellow-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *yellow-gc* 0 linesolid capround joinround) (set! *violet* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Violet")) (unless (= (first *violet*) 1) (panic "Can't allocate violet colorcell")) (set! *violet-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *violet-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *violet-gc* (xcolor-pixel (second *violet*))) (xsetfont *display* *violet-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *violet-gc* 0 linesolid capround joinround) (set! *orange* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Orange")) (unless (= (first *orange*) 1) (panic "Can't allocate orange colorcell")) (set! *orange-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *orange-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *orange-gc* (xcolor-pixel (second *orange*))) (xsetfont *display* *orange-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *orange-gc* 0 linesolid capround joinround) (set! *dark-orange* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Dark Orange")) (unless (= (first *dark-orange*) 1) (panic "Can't allocate dark orange colorcell")) (set! *dark-orange-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *dark-orange-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *dark-orange-gc* (xcolor-pixel (second *dark-orange*))) (xsetfont *display* *dark-orange-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *dark-orange-gc* 0 linesolid capround joinround)) (set! *color-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *color-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *color-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetlineattributes *display* *color-gc* 0 linesolid capround joinround) (set! *window-methods* '()) (set! *abort-button* #f) (set! *abort-key* #f) (set! *comtab* (make-vector 256 #f)) (set! *help* '()) (define-key (control #\h) "Help" help-command) (set! *help* '()) (define-key (control #\n) "Scroll help window down one line" help-scroll-down-line-command) (define-key (control #\p) "Scroll help window up one line" help-scroll-up-line-command) (define-key (control #\v) "Scroll help window down one page" help-scroll-down-page-command) (define-key (meta #\v) "Scroll help window up one page" help-scroll-up-page-command) (define-key (meta #\<) "Scroll help window to beginning" help-scroll-beginning-command) (define-key (meta #\>) "Scroll help window to end" help-scroll-end-command) (set! *help-comtab* *comtab*) (set! *comtab* (make-vector 256 #f)) (set! *prefix* '()) (set! *status* "Tyi") (set! *message* "") (set! *redraw-procedure* redraw-procedure) (set! *buttons* '()) (set! *pause?* #f) (set! *help?* #f) (set! *clear-display-pane?* #t) (let ((hints (make-xwmhints))) (set-xwmhints-input! hints 1) ;changed (set-xwmhints-flags! hints inputhint) ;changed (xsetwmhints *display* *window* hints)) (let ((hints (make-xsizehints))) (when *window-position?* (set-xsizehints-x! hints *window-position-x*) ;changed (set-xsizehints-y! hints *window-position-y*)) ;changed (set-xsizehints-min_width! hints *display-pane-width*) ;changed (set-xsizehints-max_width! hints *display-pane-width*) ;changed (set-xsizehints-min_height! hints *display-pane-height*) ;changed (set-xsizehints-max_height! hints *display-pane-height*) ;changed (set-xsizehints-flags! hints (if *window-position?* (+ usposition pposition pminsize pmaxsize) (+ pminsize pmaxsize))) (xsetwmnormalhints *display* *window* hints)) (pre-initialize-procedure) (set-window-method! *display-pane* 'expose redraw-display-pane) (set-window-method! *display-pane* 'buttonpress region-handler) (when *transcript-pane* (set-window-method! *transcript-pane* 'expose redraw-transcript-pane)) (when *echo-pane* (set-window-method! *echo-pane* 'expose redraw-echo-pane)) (set! ;changed kill-application (lambda () (set! kill-application (lambda () #t)) (finalize-procedure) (when *display* (xfreegc *display* *thin-gc*) (xfreegc *display* *thin-flipping-gc*) (xfreegc *display* *medium-gc*) (xfreegc *display* *medium-flipping-gc*) (xfreegc *display* *thick-gc*) (xfreegc *display* *thick-flipping-gc*) (xfreegc *display* *dashed-gc*) (xfreegc *display* *dashed-flipping-gc*) (xfreegc *display* *roman-gc*) (xfreegc *display* *bold-gc*) (xfreegc *display* *bold-flipping-gc*) (unless stalin? (xfreegc *display* *light-gray-gc*) (xfreegc *display* *gray-gc*) (xfreegc *display* *red-gc*) (xfreegc *display* *dark-red-gc*) (xfreegc *display* *green-gc*) (xfreegc *display* *dark-green-gc*) (xfreegc *display* *blue-gc*) (xfreegc *display* *yellow-gc*) (xfreegc *display* *violet-gc*) (xfreegc *display* *orange-gc*) (xfreegc *display* *dark-orange-gc*) (xfreegc *display* *color-gc*) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *background*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *foreground*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *light-gray*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *gray*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *red*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *dark-red*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *green*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *dark-green*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *blue*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *yellow*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *violet*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *orange*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *dark-orange*)))) 1 0)) (xunloadfont *display* (xfontstruct-fid *roman-font*)) (xunloadfont *display* (xfontstruct-fid *bold-font*)) (xdestroywindow *display* *window*) (xclosedisplay *display*) (set! *display* #f)) #t)) (xmapsubwindows *display* *window*) (xmapraised *display* *window*) (process-events) (kill-application))))) (list 'define-application ;; (DEFINE-APPLICATION ;; NAME ;; DISPLAY-PANE-WIDTH ;; DISPLAY-PANE-HEIGHT ;; TRANSCRIPT-LINES ;; BUTTON-ROWS ;; BUTTOM-COLUMNS ;; PRE-INITIALIZE-PROCEDURE ;; POST-INITIALIZE-PROCEDURE ;; FINALIZE-PROCEDURE ;; REDRAW-PROCEDURE ;; LISTENER-PROCEDURE) (lambda (s) `(define (,(sx-second s) arguments) (let* ((stalin? #t) (display-pane-width ,(sx-third s)) (display-pane-height ,(sx-fourth s)) (transcript-lines ,(sx-fifth s)) (button-rows ,(sx-sixth s)) (button-columns ,(sx-seventh s)) (button-width (if display-pane-width (- (quotient (+ display-pane-width 4) button-columns) 4) 100)) (width (if display-pane-width (+ display-pane-width 6) (+ (* button-columns (+ button-width 4)) 2))) (pre-initialize-procedure ,(sx-eighth s)) (post-initialize-procedure ,(sx-ninth s)) (finalize-procedure ,(sx-tenth s)) (redraw-procedure ,(sx-eleventh s)) (listener-procedure ,(if (= (sx-length s) 12) (sx-twelfth s) '(lambda () #f)))) (set! *post-initialize-procedure* post-initialize-procedure) (set! *transcript-pane* #f) (set! *echo-pane* #f) (set! *display* (xopendisplay *display-name*)) ;; changed: NULL-POINTER?, FORMAT (when (zero? *display*) (panic (format #f "Cannot connect to X server: ~a" (xdisplayname *display-name*)))) (set! *screen* (xdefaultscreen *display*)) (set! *root-window* (xrootwindow *display* *screen*)) (cond (stalin? (set! *white-pixel* (xwhitepixel *display* *screen*)) (set! *black-pixel* (xblackpixel *display* *screen*))) (else (set! *background* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) *background-color*)) (unless (= (first *background*) 1) (panic "Can't allocate background colorcell")) (set! *foreground* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) *foreground-color*)) (unless (= (first *foreground*) 1) (panic "Can't allocate foreground colorcell")))) (set! *roman-font* (xloadqueryfont *display* *roman-font-name*)) ;; changed: NULL-POINTER?, FORMAT (when (zero? *roman-font*) (panic (format #f "Cannot open font: ~a" *roman-font-name*))) (set! *bold-font* (xloadqueryfont *display* *bold-font-name*)) ;; changed: NULL-POINTER?, FORMAT (when (zero? *bold-font*) (panic (format #f "Cannot open font: ~a" *bold-font-name*))) (set! *roman-height* (+ (xfontstruct-ascent *roman-font*) (xfontstruct-descent *roman-font*))) (set! *bold-height* (+ (xfontstruct-ascent *bold-font*) (xfontstruct-descent *bold-font*))) (set! *text-height* (+ (max (xfontstruct-ascent *roman-font*) (xfontstruct-ascent *bold-font*)) (max (xfontstruct-descent *roman-font*) (xfontstruct-descent *bold-font*)))) (set! *roman-baseline* (xfontstruct-descent *roman-font*)) (set! *bold-baseline* (xfontstruct-descent *bold-font*)) (set! *text-baseline* (max *roman-baseline* *bold-baseline*)) (set! *button-width* button-width) (set! *button-height* (+ *text-height* 4)) (set! *display-pane-width* (- width 6)) (set! *display-pane-height* display-pane-height) (when transcript-lines (unless (zero? transcript-lines) (set! *transcript-pane-height* (+ (* transcript-lines *text-height*) 4))) (set! *echo-pane-height* (+ *text-height* 4))) (set! *who-line-height* (+ *text-height* 4)) (set! *status-pane-width* (+ (max (xtextwidth *roman-font* "Tyi" 3) (xtextwidth *roman-font* "Run" 3) (xtextwidth *roman-font* "Pause" 5) (xtextwidth *roman-font* "Track" 5)) 4)) (set! *window* (xcreatesimplewindow *display* *root-window* *window-position-x* *window-position-y* width (if transcript-lines (if (zero? transcript-lines) (+ (* button-rows (+ *button-height* 4)) *display-pane-height* *echo-pane-height* *who-line-height* 14) (+ (* button-rows (+ *button-height* 4)) *display-pane-height* *transcript-pane-height* *echo-pane-height* *who-line-height* 18)) (+ (* button-rows (+ *button-height* 4)) *display-pane-height* *who-line-height* 10)) 1 (if stalin? *black-pixel* (xcolor-pixel (second *foreground*))) (if stalin? *white-pixel* (xcolor-pixel (second *background*))))) (xstorename *display* *window* *program*) (xseticonname *display* *window* *program*) (xselectinput *display* *window* (bit-or exposuremask pointermotionmask buttonpressmask buttonreleasemask keypressmask)) (set! *display-pane* (xcreatesimplewindow *display* *window* 2 (+ (* button-rows (+ *button-height* 4)) 2) *display-pane-width* *display-pane-height* 1 (if stalin? *black-pixel* (xcolor-pixel (second *foreground*))) (if stalin? *white-pixel* (xcolor-pixel (second *background*))))) (xselectinput *display* *display-pane* (bit-or exposuremask pointermotionmask buttonpressmask buttonreleasemask keypressmask)) (when transcript-lines (unless (zero? transcript-lines) (set! *transcript-pane* (xcreatesimplewindow *display* *window* 2 (+ (* button-rows (+ *button-height* 4)) *display-pane-height* 6) *display-pane-width* *transcript-pane-height* 1 (if stalin? *black-pixel* (xcolor-pixel (second *foreground*))) (if stalin? *white-pixel* (xcolor-pixel (second *background*))))) (xselectinput *display* *transcript-pane* (bit-or exposuremask keypressmask))) (set! *echo-pane* (xcreatesimplewindow *display* *window* 2 (if (zero? transcript-lines) (+ (* button-rows (+ *button-height* 4)) *display-pane-height* 6) (+ (* button-rows (+ *button-height* 4)) *display-pane-height* *transcript-pane-height* 10)) *display-pane-width* *echo-pane-height* 1 (if stalin? *black-pixel* (xcolor-pixel (second *foreground*))) (if stalin? *white-pixel* (xcolor-pixel (second *background*))))) (xselectinput *display* *echo-pane* (bit-or exposuremask keypressmask))) (set! *status-pane* (xcreatesimplewindow *display* *window* 2 (+ (* button-rows (+ *button-height* 4)) *display-pane-height* (if transcript-lines (if (zero? transcript-lines) (+ *echo-pane-height* 10) (+ *transcript-pane-height* *echo-pane-height* 14)) 6)) *status-pane-width* *who-line-height* 1 (if stalin? *black-pixel* (xcolor-pixel (second *foreground*))) (if stalin? *white-pixel* (xcolor-pixel (second *background*))))) (xselectinput *display* *status-pane* (bit-or exposuremask keypressmask)) (set! *message-pane* (xcreatesimplewindow *display* *window* (+ *status-pane-width* 6) (+ (* button-rows (+ *button-height* 4)) *display-pane-height* (if transcript-lines (if (zero? transcript-lines) (+ *echo-pane-height* 10) (+ *transcript-pane-height* *echo-pane-height* 14)) 6)) (- width *status-pane-width* 10) *who-line-height* 1 (if stalin? *black-pixel* (xcolor-pixel (second *foreground*))) (if stalin? *white-pixel* (xcolor-pixel (second *background*))))) (xselectinput *display* *message-pane* (bit-or exposuremask keypressmask)) (set! *thin-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *thin-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *thin-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetlineattributes *display* *thin-gc* 0 linesolid capround joinround) (set! *thin-flipping-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *thin-flipping-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetforeground *display* *thin-flipping-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetlineattributes *display* *thin-flipping-gc* 0 linesolid capround joinround) (xsetfunction *display* *thin-flipping-gc* gxxor) (set! *medium-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *medium-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *medium-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetlineattributes *display* *medium-gc* 2 linesolid capround joinround) (set! *medium-flipping-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *medium-flipping-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetforeground *display* *medium-flipping-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetlineattributes *display* *medium-flipping-gc* 2 linesolid capround joinround) (xsetfunction *display* *medium-flipping-gc* gxxor) (set! *thick-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *thick-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *thick-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetlineattributes *display* *thick-gc* 5 linesolid capround joinround) (set! *thick-flipping-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *thick-flipping-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetforeground *display* *thick-flipping-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetlineattributes *display* *thick-flipping-gc* 5 linesolid capround joinround) (xsetfunction *display* *thick-flipping-gc* gxxor) (set! *dashed-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *dashed-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *dashed-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetlineattributes *display* *dashed-gc* 0 lineonoffdash capround joinround) (set! *dashed-flipping-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *dashed-flipping-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetforeground *display* *dashed-flipping-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetlineattributes *display* *dashed-flipping-gc* 0 lineonoffdash capround joinround) (xsetfunction *display* *dashed-flipping-gc* gxxor) (set! *roman-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *roman-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *roman-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetfont *display* *roman-gc* (xfontstruct-fid *roman-font*)) (set! *bold-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *bold-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *bold-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetfont *display* *bold-gc* (xfontstruct-fid *bold-font*)) (set! *bold-flipping-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *bold-flipping-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetforeground *display* *bold-flipping-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetfont *display* *bold-flipping-gc* (xfontstruct-fid *bold-font*)) (xsetlineattributes *display* *bold-flipping-gc* 0 linesolid capround joinround) (xsetfunction *display* *bold-flipping-gc* gxxor) (unless stalin? (set! *light-gray* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Light Gray")) (unless (= (first *light-gray*) 1) (panic "Can't allocate light gray colorcell")) (set! *light-gray-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *light-gray-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *light-gray-gc* (xcolor-pixel (second *light-gray*))) (xsetlineattributes *display* *light-gray-gc* 0 linesolid capround joinround) (set! *gray* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Gray")) (unless (= (first *gray*) 1) (panic "Can't allocate gray colorcell")) (set! *gray-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *gray-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *gray-gc* (xcolor-pixel (second *gray*))) (xsetlineattributes *display* *gray-gc* 0 linesolid capround joinround) (set! *red* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Red")) (unless (= (first *red*) 1) (panic "Can't allocate red colorcell")) (set! *red-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *red-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *red-gc* (xcolor-pixel (second *red*))) (xsetfont *display* *red-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *red-gc* 0 linesolid capround joinround) (set! *dark-red* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Dark Red")) (unless (= (first *dark-red*) 1) (panic "Can't allocate dark red colorcell")) (set! *dark-red-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *dark-red-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *dark-red-gc* (xcolor-pixel (second *dark-red*))) (xsetfont *display* *dark-red-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *dark-red-gc* 0 linesolid capround joinround) (set! *green* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Green")) (unless (= (first *green*) 1) (panic "Can't allocate green colorcell")) (set! *green-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *green-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *green-gc* (xcolor-pixel (second *green*))) (xsetfont *display* *green-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *green-gc* 0 linesolid capround joinround) (set! *dark-green* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Dark Green")) (unless (= (first *dark-green*) 1) (panic "Can't allocate dark green colorcell")) (set! *dark-green-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *dark-green-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *dark-green-gc* (xcolor-pixel (second *dark-green*))) (xsetfont *display* *dark-green-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *dark-green-gc* 0 linesolid capround joinround) (set! *blue* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Blue")) (unless (= (first *blue*) 1) (panic "Can't allocate blue colorcell")) (set! *blue-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *blue-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *blue-gc* (xcolor-pixel (second *blue*))) (xsetfont *display* *blue-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *blue-gc* 0 linesolid capround joinround) (set! *yellow* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Yellow")) (unless (= (first *yellow*) 1) (panic "Can't allocate yellow colorcell")) (set! *yellow-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *yellow-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *yellow-gc* (xcolor-pixel (second *yellow*))) (xsetfont *display* *yellow-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *yellow-gc* 0 linesolid capround joinround) (set! *violet* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Violet")) (unless (= (first *violet*) 1) (panic "Can't allocate violet colorcell")) (set! *violet-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *violet-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *violet-gc* (xcolor-pixel (second *violet*))) (xsetfont *display* *violet-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *violet-gc* 0 linesolid capround joinround) (set! *orange* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Orange")) (unless (= (first *orange*) 1) (panic "Can't allocate orange colorcell")) (set! *orange-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *orange-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *orange-gc* (xcolor-pixel (second *orange*))) (xsetfont *display* *orange-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *orange-gc* 0 linesolid capround joinround) (set! *dark-orange* (xallocnamedcolor *display* (xdefaultcolormap *display* *screen*) "Dark Orange")) (unless (= (first *dark-orange*) 1) (panic "Can't allocate dark orange colorcell")) (set! *dark-orange-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *dark-orange-gc* (xcolor-pixel (second *background*))) (xsetforeground *display* *dark-orange-gc* (xcolor-pixel (second *dark-orange*))) (xsetfont *display* *dark-orange-gc* (xfontstruct-fid *roman-font*)) (xsetlineattributes *display* *dark-orange-gc* 0 linesolid capround joinround)) (set! *color-gc* (xcreategc *display* *window* 0 (make-xgcvalues))) (xsetbackground *display* *color-gc* (if stalin? *white-pixel* (xcolor-pixel (second *background*)))) (xsetforeground *display* *color-gc* (if stalin? *black-pixel* (xcolor-pixel (second *foreground*)))) (xsetlineattributes *display* *color-gc* 0 linesolid capround joinround) (set! *window-methods* '()) (set! *abort-button* #f) (set! *abort-key* #f) (set! *comtab* (make-vector 256 #f)) (set! *help* '()) (define-key (control #\h) "Help" help-command) (set! *help* '()) (define-key (control #\n) "Scroll help window down one line" help-scroll-down-line-command) (define-key (control #\p) "Scroll help window up one line" help-scroll-up-line-command) (define-key (control #\v) "Scroll help window down one page" help-scroll-down-page-command) (define-key (meta #\v) "Scroll help window up one page" help-scroll-up-page-command) (define-key (meta #\<) "Scroll help window to beginning" help-scroll-beginning-command) (define-key (meta #\>) "Scroll help window to end" help-scroll-end-command) (set! *help-comtab* *comtab*) (set! *comtab* (make-vector 256 #f)) (when transcript-lines (set! *transcript* '()) (set! *input* "") (set! *input-position* 0) (let ((help *help*)) (for-each (lambda (character) (define-key character "Enter the typed character into the echo pane" (lambda () (echo-pane-insert-character-command character)))) (append (string->list "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz") (string->list "1234567890-=\\`!@#$%^&*()_+|~[]{};':\",./<>? "))) (set! *help* help)) (define-key (control #\a) "Move the cursor to the beginning of the echo pane" echo-pane-beginning-of-line-command) (define-key (control #\b) "Move the cursor backward one character in the echo pane" echo-pane-backward-char-command) (define-key (control #\d) "Delete the character after the cursor in the echo pane" echo-pane-delete-char-command) (define-key (control #\e) "Move the cursor to the end of the echo pane" echo-pane-end-of-line-command) (define-key (control #\f) "Move the cursor forward one character in the echo pane" echo-pane-forward-char-command) (define-key (control #\k) "Delete all characters after the cursor in the echo pane" echo-pane-kill-line-command) (define-key delete "Delete the character before the cursor in the echo pane" echo-pane-backward-delete-char-command) (define-key return "Process the input in the echo pane" (lambda () (set! *transcript* (cons (list 'user *input*) *transcript*)) (listener-procedure) (set! *input* "") (set! *input-position* 0) (redraw-transcript-pane) (redraw-echo-pane))) (define-key (meta #\b) "Move the cursor backward one word in the echo pane" echo-pane-backward-word-command) (define-key (meta #\d) "Delete the word after the cursor in the echo pane" echo-pane-kill-word-command) (define-key (meta #\f) "Move the cursor forward one word in the echo pane" echo-pane-forward-word-command) (define-key (meta delete) "Delete the word before the cursor in the echo pane" echo-pane-backward-kill-word-command)) (set! *prefix* '()) (set! *status* "Tyi") (set! *message* "") (set! *redraw-procedure* redraw-procedure) (set! *buttons* '()) (set! *pause?* #f) (set! *help?* #f) (set! *clear-display-pane?* #t) (let ((hints (make-xwmhints))) (set-xwmhints-input! hints 1) ;changed (set-xwmhints-flags! hints inputhint) ;changed (xsetwmhints *display* *window* hints)) (let ((hints (make-xsizehints)) (height (if transcript-lines (if (zero? transcript-lines) (+ (* button-rows (+ *button-height* 4)) *display-pane-height* *echo-pane-height* *who-line-height* 14) (+ (* button-rows (+ *button-height* 4)) *display-pane-height* *transcript-pane-height* *echo-pane-height* *who-line-height* 18)) (+ (* button-rows (+ *button-height* 4)) *display-pane-height* *who-line-height* 10)))) (when *window-position?* (set-xsizehints-x! hints *window-position-x*) ;changed (set-xsizehints-y! hints *window-position-y*)) ;changed (set-xsizehints-min_width! hints width) ;changed (set-xsizehints-max_width! hints width) ;changed (set-xsizehints-min_height! hints height) ;changed (set-xsizehints-max_height! hints height) ;changed (set-xsizehints-flags! hints (if *window-position?* (+ usposition pposition pminsize pmaxsize) (+ pminsize pmaxsize))) (xsetwmnormalhints *display* *window* hints)) (pre-initialize-procedure) (set-window-method! *display-pane* 'expose redraw-display-pane) (set-window-method! *display-pane* 'buttonpress region-handler) (when *transcript-pane* (set-window-method! *transcript-pane* 'expose redraw-transcript-pane)) (when *echo-pane* (set-window-method! *echo-pane* 'expose redraw-echo-pane)) (set-window-method! *status-pane* 'expose redraw-status-pane) (set-window-method! *message-pane* 'expose redraw-message-pane) (set! ;changed kill-application (lambda () (set! kill-application (lambda () #t)) (finalize-procedure) (when *display* (xfreegc *display* *thin-gc*) (xfreegc *display* *thin-flipping-gc*) (xfreegc *display* *medium-gc*) (xfreegc *display* *medium-flipping-gc*) (xfreegc *display* *thick-gc*) (xfreegc *display* *thick-flipping-gc*) (xfreegc *display* *dashed-gc*) (xfreegc *display* *dashed-flipping-gc*) (xfreegc *display* *roman-gc*) (xfreegc *display* *bold-gc*) (xfreegc *display* *bold-flipping-gc*) (unless stalin? (xfreegc *display* *light-gray-gc*) (xfreegc *display* *gray-gc*) (xfreegc *display* *red-gc*) (xfreegc *display* *dark-red-gc*) (xfreegc *display* *green-gc*) (xfreegc *display* *dark-green-gc*) (xfreegc *display* *blue-gc*) (xfreegc *display* *yellow-gc*) (xfreegc *display* *violet-gc*) (xfreegc *display* *orange-gc*) (xfreegc *display* *dark-orange-gc*) (xfreegc *display* *color-gc*) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *background*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *foreground*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *light-gray*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *gray*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *red*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *dark-red*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *green*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *dark-green*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *blue*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *yellow*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *violet*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *orange*)))) 1 0) (xfreecolors *display* (xdefaultcolormap *display* *screen*) (unsigned-list->unsigneda (list (xcolor-pixel (second *dark-orange*)))) 1 0)) (xunloadfont *display* (xfontstruct-fid *roman-font*)) (xunloadfont *display* (xfontstruct-fid *bold-font*)) (xdestroywindow *display* *window*) (xclosedisplay *display*) (set! *display* #f)) #t)) (xmapsubwindows *display* *window*) (xmapraised *display* *window*) (process-events) (kill-application))))) (list 'define-command (lambda (s) (define (valid-command-arguments? l) (define (valid-optional-parameter? l) (and (sx-list? l) (= (sx-length l) 4) (sx-symbol? (sx-first l)) (sx-string? (sx-second l)))) (define (valid-required-parameter? l) (and (sx-list? l) (= (sx-length l) 3) (sx-symbol? (sx-first l)) (sx-string? (sx-second l)))) (define (order-ok-optional? l) (or (sx-null? l) (and (sx-eq? (sx-first (sx-first l)) 'optional) (order-ok-optional? (sx-rest l))) (and (sx-eq? (sx-first (sx-first l)) 'rest) (sx-null? (sx-rest l))))) (define (order-ok-required? l) (or (sx-null? l) (and (sx-eq? (sx-first (sx-first l)) 'required) (order-ok-required? (sx-rest l))) (and (sx-eq? (sx-first (sx-first l)) 'optional) (order-ok-optional? (sx-rest l))) (and (sx-eq? (sx-first (sx-first l)) 'rest) (sx-null? (sx-rest l))))) (define (order-ok? l) (or (sx-null? l) (and (or (sx-eq? (sx-first (sx-first l)) 'any-number) (sx-eq? (sx-first (sx-first l)) 'at-least-one) (sx-eq? (sx-first (sx-first l)) 'at-most-one) (sx-eq? (sx-first (sx-first l)) 'exactly-one)) (order-ok? (sx-rest l))) (and (sx-eq? (sx-first (sx-first l)) 'required) (order-ok-required? (sx-rest l))) (and (sx-eq? (sx-first (sx-first l)) 'optional) (order-ok-optional? (sx-rest l))) (and (sx-eq? (sx-first (sx-first l)) 'rest) (sx-null? (sx-rest l))))) (and (sx-list? l) (>= (sx-length l) 1) (sx-symbol? (sx-first l)) (sx-every (lambda (l) (and (sx-list? l) (>= (sx-length l) 1) (or (and (or (sx-eq? (sx-first l) 'exactly-one) (sx-eq? (sx-first l) 'at-most-one)) (>= (sx-length l) 2) (sx-every (lambda (l) (and (sx-list? l) (>= (sx-length l) 2) (sx-string? (sx-first l)) (sx-symbol? (sx-second l)) (sx-every valid-optional-parameter? (sx-rest (sx-rest l))))) (sx-rest l))) (and (or (sx-eq? (sx-first l) 'at-least-one) (sx-eq? (sx-first l) 'any-number)) (>= (sx-length l) 2) (sx-every (lambda (l) (and (sx-list? l) (>= (sx-length l) 2) (sx-string? (sx-first l)) (sx-symbol? (sx-second l)) (sx-every valid-required-parameter? (sx-rest (sx-rest l))))) (sx-rest l))) (and (or (sx-eq? (sx-first l) 'required) (sx-eq? (sx-first l) 'rest)) (= (sx-length l) 2) (valid-required-parameter? (sx-second l))) (and (sx-eq? (sx-first l) 'optional) (= (sx-length l) 2) (valid-optional-parameter? (sx-second l)))))) (sx-rest l)) (order-ok? (sx-rest l)))) (define (command-usage l) (define (command-usage1 l) (let ((s (let loop ((l l)) (define (command-usage l) (string-append "-" (sx-datum (sx-first l)) (let loop ((l (sx-rest (sx-rest l)))) (cond ((sx-null? l) "") ((sx-null? (sx-rest l)) (string-append " " (sx-datum (sx-second (sx-first l))))) (else (string-append " " (sx-datum (sx-second (sx-first l))) (loop (sx-rest l)))))))) (if (sx-null? (sx-rest l)) (command-usage (sx-first l)) (string-append (command-usage (sx-first l)) "|" (loop (sx-rest l))))))) (if (= (sx-length l) 1) s (string-append "[" s "]")))) (if (sx-null? l) "" (case (sx-datum (sx-first (sx-first l))) ((any-number) (string-append " [" (command-usage1 (sx-rest (sx-first l))) "]*" (command-usage (sx-rest l)))) ((at-least-one) (string-append " [" (command-usage1 (sx-rest (sx-first l))) "]+" (command-usage (sx-rest l)))) ((at-most-one) (string-append " [" (command-usage1 (sx-rest (sx-first l))) "]" (command-usage (sx-rest l)))) ((exactly-one) (string-append " " (command-usage1 (sx-rest (sx-first l))) (command-usage (sx-rest l)))) ((required) (string-append " " (sx-datum (sx-second (sx-second (sx-first l)))) (command-usage (sx-rest l)))) ((optional) (string-append " [" (sx-datum (sx-second (sx-second (sx-first l)))) (command-usage (sx-rest l)) "]")) ((rest) (string-append " [" (sx-datum (sx-second (sx-second (sx-first l)))) "]*")) (else (fuck-up))))) (define (command-bindings l) (if (sx-null? l) '() (case (sx-datum (sx-first (sx-first l))) ((any-number at-least-one) (append (reduce append (sx-map (lambda (l) (cons (list (sx-second l) #f) (sx-map (lambda (l) (list (sx-first l) ''())) (sx-rest (sx-rest l))))) (sx-rest (sx-first l))) '()) (command-bindings (sx-rest l)))) ((at-most-one exactly-one) (append (reduce append (sx-map (lambda (l) (cons (list (sx-second l) #f) (sx-map (lambda (l) (list (sx-first l) (sx-fourth l))) (sx-rest (sx-rest l))))) (sx-rest (sx-first l))) '()) (command-bindings (sx-rest l)))) ;; changed ((required) (cons (sx-first (sx-second (sx-first l))) (command-bindings (sx-rest l)))) ((optional) (cons (list (sx-first (sx-second (sx-first l))) (sx-fourth (sx-second (sx-first l)))) (command-bindings (sx-rest l)))) ((rest) (cons (list (sx-first (sx-second (sx-first l))) ''()) (command-bindings (sx-rest l)))) (else (fuck-up))))) (define (command-keyword-argument-parser l) (cons `(let loop () (unless (null? arguments) (cond ,@(let loop ((l l)) (if (sx-null? l) '(((string=? (car arguments) "-usage") (usage))) ;changed (case (sx-datum (sx-first (sx-first l))) ((any-number at-least-one) (append (sx-map (lambda (l) `((string=? (car arguments) ;changed ,(string-append "-" (sx-datum (sx-first l)))) (set! arguments (cdr arguments)) ;changed (set! ,(sx-second l) #t) ,@(reduce append (sx-map (lambda (l) `((when (null? arguments) (usage)) (set! ,(sx-first l) (cons (,(sx-third l) ;; changed (car arguments) usage) ,(sx-first l))) ;; changed (set! arguments (cdr arguments)))) (sx-rest (sx-rest l))) '()) (loop))) (sx-rest (sx-first l))) (loop (sx-rest l)))) ((at-most-one exactly-one) (append (sx-map (lambda (l1) `((string=? (car arguments) ;changed ,(string-append "-" (sx-datum (sx-first l1)))) (set! arguments (cdr arguments)) ;changed (when (or ,@(sx-map sx-second (sx-rest (sx-first l)))) (usage)) (set! ,(sx-second l1) #t) ,@(reduce append (sx-map (lambda (l) `((when (null? arguments) (usage)) (set! ,(sx-first l) (,(sx-third l) ;; changed (car arguments) usage)) ;; changed (set! arguments (cdr arguments)))) (sx-rest (sx-rest l1))) '()) (loop))) (sx-rest (sx-first l))) (loop (sx-rest l)))) ((required optional rest) (loop (sx-rest l))) (else (fuck-up)))))))) (let loop ((l l)) (if (sx-null? l) '() (case (sx-datum (sx-first (sx-first l))) ((at-least-one exactly-one) (cons `(unless (or ,@(sx-map sx-second (sx-rest (sx-first l)))) (usage)) (loop (sx-rest l)))) ((at-most-one any-number required optional rest) (loop (sx-rest l))) (else (fuck-up))))))) (define (command-positional-argument-parser l) (let loop ((l l)) (if (sx-null? l) '((unless (null? arguments) (usage))) (case (sx-datum (sx-first (sx-first l))) ((any-number at-least-one at-most-one exactly-one) (loop (sx-rest l))) ((required) (append `((when (null? arguments) (usage)) (set! ,(sx-first (sx-second (sx-first l))) (,(sx-third (sx-second (sx-first l))) (car arguments) usage)) ;changed (set! arguments (cdr arguments))) ;changed (loop (sx-rest l)))) ((optional) (cons `(unless (null? arguments) (set! ,(sx-first (sx-second (sx-first l))) (,(sx-third (sx-second (sx-first l))) (car arguments) usage)) ;changed (set! arguments (cdr arguments))) ;changed (loop (sx-rest l)))) ((rest) `((let loop () (unless (null? arguments) (set! ,(sx-first (sx-second (sx-first l))) (cons (,(sx-third (sx-second (sx-first l))) (car arguments) usage) ;changed ,(sx-first (sx-second (sx-first l))))) (set! arguments (cdr arguments)) ;changed (loop))))) (else (fuck-up)))))) (unless (and (sx-list? s) (>= (sx-length s) 2) (valid-command-arguments? (sx-second s))) (syntax-error s "Improper DEFINE-COMMAND")) ;; changed `(let ((arguments (vector->list argv))) (define (string-argument string usage) ;; changed (if (string? string) string (panic "This shouldn't happen"))) (define (integer-argument string usage) (let ((integer (string->number string))) ;; changed (if (integer? integer) (if (exact? integer) integer (usage)) (usage)))) (define (real-argument string usage) (let ((real (string->number string))) ;; changed (if (real? real) (exact->inexact real) (usage)))) (let ((program (car arguments))) ;changed (define (usage) ;; removed: STDERR-PORT (panic (string-append "usage: " program ,(command-usage (sx-rest (sx-second s)))))) (set! arguments (cdr arguments)) ;changed (let ,(command-bindings (sx-rest (sx-second s))) ,@(command-keyword-argument-parser (sx-rest (sx-second s))) ,@(command-positional-argument-parser (sx-rest (sx-second s))) ,@(sx-unlist (sx-rest (sx-rest s)))))))) (list 'parallel-begin (lambda (s) (cond ((sx-null? (sx-rest s)) '((lambda ()))) ((sx-null? (sx-rest (sx-rest s))) (sx-second s)) (else `((primitive-procedure fork) (lambda () ,(sx-second s)) (lambda () (parallel-begin ,@(sx-unlist (sx-rest (sx-rest s)))))))))) (list 'parallel-call (lambda (s) (unless (and (sx-list? s) (>= (sx-length s) 2)) (syntax-error s "Improper PARALLEL-CALL")) (let ((variables (sx-map (lambda (s) (gensym "x")) (sx-rest (sx-rest s))))) `(let ,variables (parallel-begin ,@(map (lambda (variable s) `(set! ,variable ,s)) variables (sx-unlist (sx-rest (sx-rest s))))) (,(sx-second s) ,@variables))))) (list 'parallel-do (lambda (s) ;; Extension to R4RS: Iterators can be empty. (unless (and (>= (sx-length s) 3) (sx-list? (sx-second s)) (sx-every (lambda (s) (and (sx-list? s) (or (= (sx-length s) 2) (= (sx-length s) 3)))) (sx-second s)) (sx-list? (sx-third s)) (>= (sx-length (sx-third s)) 1)) (syntax-error s "Improper PARALLEL-DO")) (let ((loop (gensym "loop"))) ;; conventions: LOOP `(letrec ((,loop (lambda ,(sx-map sx-first (sx-second s)) (if ,(sx-first (sx-third s)) (begin ,@(sx-unlist (sx-rest (sx-third s)))) (parallel-begin ,@(sx-unlist (sx-rest (sx-rest (sx-rest s)))) (,loop ,@(sx-map (lambda (s) (if (= (sx-length s) 2) (sx-first s) (sx-third s))) (sx-second s)))))))) (,loop ,@(sx-map sx-second (sx-second s))))))) (list 'mutex-begin (lambda (s) `((primitive-procedure mutex) (lambda () ,@(sx-unlist (sx-rest s)))))))) (define *Trotsky-macros* (list (list 'define-primitive-procedure (lambda (s) (unless (= (sx-length s) 9) (syntax-error s "Wrong number of arguments")) `(set! *primitive-procedure-handlers* (cons (cons ',(sx-second s) (make-primitive-procedure ,(sx-third s) (lambda (y u0 w0) ,(sx-fourth s)) (lambda (y u0 n w0) ,(sx-fifth s)) (lambda (y u0 n w0) ,(sx-sixth s)) (lambda (y u0 propagate-result! propagate-type-predicate! w0) ,(sx-seventh s)) (lambda (r y u0 ws w w0 w1 w2 w3) ,(sx-eighth s)) (lambda (r y u0 ts ws t w compile-type-predicate t0 w0 t1 w1 t2 w2 t3 w3) ,(sx-ninth s)))) *primitive-procedure-handlers*)))))) ;;; Input/Output (define (search-include-path-without-extension pathname) ;; conventions: PATHNAME (cond ((can-open-file-for-input? pathname) pathname) ((and (>= (string-length pathname) 1) (char=? (string-ref pathname 0) #\/)) (notify "Cannot find: ~a" pathname) (terminate)) (else (let loop ((include-path *include-path*)) ;; conventions: INCLUDE-PATH (cond ((null? include-path) (notify "Cannot find: ~a" pathname) (terminate)) ((can-open-file-for-input? (string-append (first include-path) "/" pathname)) (string-append (first include-path) "/" pathname)) (else (loop (rest include-path)))))))) (define (search-include-path pathname) ;; conventions: PATHNAME (search-include-path-without-extension (default-extension pathname "sc"))) (define (read-s-expressions pathname) ;; conventions (let ((line-position 0) (character-position -1) (character-position-within-line -1) (newline? #t) (last-line-position 0) (last-character-position -1) (last-character-position-within-line -1) (last-newline? #t) (last-char #f) ;; needs work: The DOT and CLOSE gensyms should be extracted and bound ;; by a LET that is outside the DEFINE of READ. (dot (gensym "dot")) (close (gensym "close"))) (call-with-input-file pathname (lambda (port) (define (read-s-expression) ;; needs work: Long predecimal point digit strings can overflow. ;; needs work: Mantissa can overflow or underflow even though exponent ;; would prevent that overflow or underflow. ;; needs work: Can't read largest negative number. ;; needs work: To handle polar numbers with @ ;; needs work: To handle rectangular numbers with i ;; needs work: To handle ratios with / ;; needs work: To handle numbers with embedded # ;; needs work: To handle exactness with #e #i ;; needs work: To handle structures (define (read-error error) (notify "~a:~s:~a" pathname line-position error) (terminate)) (define (unget-char c) (set! line-position last-line-position) (set! character-position last-character-position) (set! character-position-within-line last-character-position-within-line) (set! newline? last-newline?) (set! last-char c)) (define (get-char) (set! last-line-position line-position) (set! last-character-position character-position) (set! last-character-position-within-line character-position-within-line) (set! last-newline? newline?) (cond (newline? (set! line-position (+ line-position 1)) (set! character-position-within-line 0)) (else (set! character-position-within-line (+ character-position-within-line 1)))) (set! character-position (+ character-position 1)) (let ((c (or last-char (read-char port)))) (set! last-char #f) (set! newline? (and (not (eof-object? c)) (char=? c #\newline))) c)) (let read ((state 'object) (comments '())) ;; conventions: STATE COMMENTS (define (read-exact-binary-integer n) (let ((c (get-char))) (cond ((eof-object? c) n) ((char=? c #\0) (read-exact-binary-integer (* 2 n))) ((char=? c #\1) (read-exact-binary-integer (+ (* 2 n) 1))) (else (unget-char c) n)))) (define (read-exact-octal-integer n) (let ((c (get-char))) (cond ((eof-object? c) n) ((and (char>=? c #\0) (char<=? c #\7)) (read-exact-octal-integer (+ (* 8 n) (- (char->integer c) (char->integer #\0))))) (else (unget-char c) n)))) (define (read-exact-decimal-integer n) (let ((c (get-char))) (cond ((eof-object? c) n) ((char-numeric? c) (read-exact-decimal-integer (+ (* 10 n) (- (char->integer c) (char->integer #\0))))) (else (unget-char c) n)))) (define (read-exact-hexadecimal-integer n) (let ((c (get-char))) (cond ((eof-object? c) n) ((char-numeric? c) (read-exact-hexadecimal-integer (+ (* 16 n) (- (char->integer c) (char->integer #\0))))) ((and (char>=? c #\a) (char<=? c #\f)) (read-exact-hexadecimal-integer (+ (* 16 n) (- (char->integer c) (char->integer #\a)) 10))) ((and (char>=? c #\A) (char<=? c #\F)) (read-exact-hexadecimal-integer (+ (* 16 n) (- (char->integer c) (char->integer #\A)) 10))) (else (unget-char c) n)))) (define (read-inexact-number n m) (let ((c1 (get-char))) (cond ((eof-object? c1) n) ((char-numeric? c1) (read-inexact-number (+ n (/ (- (char->integer c1) (char->integer #\0)) m)) (* m 10.0))) ((or (char=? c1 #\e) (char=? c1 #\E) (char=? c1 #\s) (char=? c1 #\S) (char=? c1 #\f) (char=? c1 #\F) (char=? c1 #\d) (char=? c1 #\D) (char=? c1 #\l) (char=? c1 #\L)) (let ((c2 (get-char))) (when (eof-object? c2) (read-error "EOF while reading exponent")) (cond ((char-numeric? c2) (* n (expt 10.0 (read-exact-decimal-integer (- (char->integer c2) (char->integer #\0)))))) ((char=? c2 #\+) (let ((c3 (get-char))) (when (eof-object? c3) (read-error "EOF while reading exponent")) (unless (char-numeric? c3) (read-error "Unfinished exponent")) (* n (expt 10.0 (read-exact-decimal-integer (- (char->integer c3) (char->integer #\0))))))) ((char=? c2 #\-) (let ((c3 (get-char))) (when (eof-object? c3) (read-error "EOF while reading exponent")) (unless (char-numeric? c3) (read-error "Unfinished exponent")) (* n (expt 10.0 (- (read-exact-decimal-integer (- (char->integer c3) (char->integer #\0)))))))) (else (read-error "Unfinished exponent"))))) (else (unget-char c1) n)))) (define (read-number n) (let ((c1 (get-char))) (cond ((eof-object? c1) n) ((char-numeric? c1) (read-number (+ (* 10 n) (- (char->integer c1) (char->integer #\0))))) ((char=? c1 #\.) (read-inexact-number (exact->inexact n) 10.0)) ((or (char=? c1 #\e) (char=? c1 #\E) (char=? c1 #\s) (char=? c1 #\S) (char=? c1 #\f) (char=? c1 #\F) (char=? c1 #\d) (char=? c1 #\D) (char=? c1 #\l) (char=? c1 #\L)) (let ((c2 (get-char))) (when (eof-object? c2) (read-error "EOF while reading exponent")) (cond ((char-numeric? c2) (* (exact->inexact n) (expt 10.0 (read-exact-decimal-integer (- (char->integer c2) (char->integer #\0)))))) ((char=? c2 #\+) (let ((c3 (get-char))) (when (eof-object? c3) (read-error "EOF while reading exponent")) (unless (char-numeric? c3) (read-error "Unfinished exponent")) (* (exact->inexact n) (expt 10.0 (read-exact-decimal-integer (- (char->integer c3) (char->integer #\0))))))) ((char=? c2 #\-) (let ((c3 (get-char))) (when (eof-object? c3) (read-error "EOF while reading exponent")) (unless (char-numeric? c3) (read-error "Unfinished exponent")) (* (exact->inexact n) (expt 10.0 (- (read-exact-decimal-integer (- (char->integer c3) (char->integer #\0)))))))) (else (read-error "Unfinished exponent"))))) (else (unget-char c1) n)))) (define (char-initial? c) (or (char-alphabetic? c) (char=? c #\~) (char=? c #\!) (char=? c #\$) (char=? c #\%) (char=? c #\^) (char=? c #\&) (char=? c #\*) (char=? c #\_) (char=? c #\/) (char=? c #\:) (char=? c #\<) (char=? c #\=) (char=? c #\>) (char=? c #\?))) (define (char-subsequent? c) (or (char-initial? c) (char-numeric? c) (char=? c #\+) (char=? c #\-) (char=? c #\.))) (define (read-symbol s) ;; needs work: To eliminate REVERSE. (let ((c (get-char))) (cond ((eof-object? c) (string->symbol (list->string (reverse s)))) ((char-subsequent? c) (read-symbol (cons (char-upcase c) s))) (else (unget-char c) (string->symbol (list->string (reverse s))))))) (define (lookup-character-name s) (let loop ((names '(((#\e #\c #\a #\p #\s) . #\space) ((#\e #\n #\i #\l #\w #\e #\n) . #\newline)))) (when (null? names) (read-error "Unrecognized character name")) (if (let loop? ((s s) (name (car (first names)))) (or (and (null? s) (null? name)) (and (not (null? s)) (not (null? name)) (char-ci=? (first s) (first name)) (loop? (rest s) (rest name))))) (cdr (first names)) (loop (rest names))))) (define (read-character-name s) (let ((c (get-char))) (cond ((eof-object? c) (lookup-character-name s)) ((char-alphabetic? c) (read-character-name (cons c s))) (else (unget-char c) (if (and (not (null? s)) (null? (rest s))) (first s) (lookup-character-name s)))))) (let* ((c1 (get-char)) (line-position line-position) (character-position character-position) (character-position-within-line character-position-within-line) (datum (cond ((eof-object? c1) (case state ((object) c1) ((list) (read-error "EOF while reading list")) ((vector) (read-error "EOF while reading vector")) ((quote) (read-error "EOF while reading quoted object")) ((quasiquote) (read-error "EOF while reading quasiquoted object")) ((unquote-splicing) (read-error "EOF while reading unquote-slicing object")) ((unquote) (read-error "EOF while reading unquoted object")) ((close) (read-error "EOF while reading pair")))) ((char=? c1 #\;) (let loop ((cs '(#\;))) (let ((c1 (get-char))) (if (char=? c1 #\newline) (read state (cons (list->string (reverse cs)) comments)) (loop (cons c1 cs)))))) ((char=? c1 #\)) (unless (or (eq? state 'list) (eq? state 'vector) (eq? state 'close)) (read-error "Mismatched closing parenthesis")) close) ((char-whitespace? c1) (read state comments)) ((eq? state 'close) (read-error "Only one object allowed after dot")) ((char=? c1 #\') (let ((s (create-s-expression pathname line-position character-position character-position-within-line (reverse comments) 'quote))) (cons s (create-anonymous-s-expression (cons (read 'quote '()) (create-anonymous-s-expression '())))))) ((char=? c1 #\`) (let ((s (create-s-expression pathname line-position character-position character-position-within-line (reverse comments) 'quasiquote))) (cons s (create-anonymous-s-expression (cons (read 'quasiquote '()) (create-anonymous-s-expression '())))))) ((char=? c1 #\,) (let ((c2 (get-char))) (when (eof-object? c2) (read-error "EOF after dot")) (cond ((char=? c2 #\@) (let ((s (create-s-expression pathname line-position character-position character-position-within-line (reverse comments) 'unquote-splicing))) (cons s (create-anonymous-s-expression (cons (read 'unquote-splicing '()) (create-anonymous-s-expression '())))))) (else (unget-char c2) (let ((s (create-s-expression pathname line-position character-position character-position-within-line (reverse comments) 'unquote))) (cons s (create-anonymous-s-expression (cons (read 'unquote '()) (create-anonymous-s-expression '()))))))))) ((char=? c1 #\() ;; needs work: Redundant consing. (let loop ((s '())) (let ((e (read 'list '()))) (cond ((eq? (s-expression-datum e) dot) (when (null? s) (read-error "Dot cannot be first element of list")) (let* ((e1 (read 'object '())) (e2 (read 'close '()))) (let loop ((s (rest s)) (c (create-anonymous-s-expression (cons (first s) e1)))) (if (null? s) (sx-datum c) (loop (rest s) (create-anonymous-s-expression (cons (first s) c))))))) ((eq? (s-expression-datum e) close) (let loop ((s s) (c (create-anonymous-s-expression '()))) (if (null? s) (sx-datum c) (loop (rest s) (create-anonymous-s-expression (cons (first s) c)))))) (else (loop (cons e s))))))) ((char=? c1 #\#) (let ((c2 (get-char))) (when (eof-object? c2) (read-error "EOF after sharp sign")) (cond ((or (char=? c2 #\t) (char=? c2 #\T)) #t) ((or (char=? c2 #\f) (char=? c2 #\F)) #f) ((or (char=? c2 #\b) (char=? c2 #\B)) (let ((c3 (get-char))) (when (eof-object? c3) (read-error "EOF while reading binary number")) (cond ((char=? c3 #\0) (read-exact-binary-integer 0)) ((char=? c3 #\1) (read-exact-binary-integer 1)) ((char=? c3 #\+) (let ((c4 (get-char))) (when (eof-object? c4) (read-error "EOF while reading binary number")) (cond ((char=? c4 #\0) (read-exact-binary-integer 0)) ((char=? c4 #\1) (read-exact-binary-integer 1)) (else (read-error "Unfinished binary number"))))) ((char=? c3 #\-) (let ((c4 (get-char))) (when (eof-object? c4) (read-error "EOF while reading binary number")) (cond ((char=? c4 #\0) (- (read-exact-binary-integer 0))) ((char=? c4 #\1) (- (read-exact-binary-integer 1))) (else (read-error "Unfinished binary number"))))) (else (read-error "Unfinished binary number"))))) ((or (char=? c2 #\o) (char=? c2 #\O)) (let ((c3 (get-char))) (when (eof-object? c3) (read-error "EOF while reading octal number")) (cond ((and (char>=? c3 #\0) (char<=? c3 #\7)) (read-exact-octal-integer (- (char->integer c3) (char->integer #\0)))) ((char=? c3 #\+) (let ((c4 (get-char))) (when (eof-object? c4) (read-error "EOF while reading octal number")) (unless (and (char>=? c4 #\0) (char<=? c4 #\7)) (read-error "Unfinished octal number")) (read-exact-octal-integer (- (char->integer c4) (char->integer #\0))))) ((char=? c3 #\-) (let ((c4 (get-char))) (when (eof-object? c4) (read-error "EOF while reading octal number")) (unless (and (char>=? c4 #\0) (char<=? c4 #\7)) (read-error "Unfinished octal number")) (- (read-exact-octal-integer (- (char->integer c4) (char->integer #\0)))))) (else (read-error "Unfinished octal number"))))) ((or (char=? c2 #\d) (char=? c2 #\D)) (let ((c3 (get-char))) (when (eof-object? c3) (read-error "EOF while reading decimal number")) (cond ((char=? c3 #\+) (let ((c4 (get-char))) (when (eof-object? c4) (read-error "EOF while reading decimal number")) (cond ((char-numeric? c4) (read-number (- (char->integer c4) (char->integer #\0)))) ((char=? c4 #\.) (let ((c5 (get-char))) (when (eof-object? c5) (read-error "EOF while reading decimal number")) (unless (char-numeric? c5) (read-error "Unfinished decimal number")) (read-inexact-number (/ (- (char->integer c5) (char->integer #\0)) 10.0) 100.0))) (else (read-error "Unfinished decimal number"))))) ((char=? c3 #\-) (let ((c4 (get-char))) (when (eof-object? c4) (read-error "EOF while reading decimal number")) (cond ((char-numeric? c4) (- (read-number (- (char->integer c4) (char->integer #\0))))) ((char=? c4 #\.) (let ((c5 (get-char))) (when (eof-object? c5) (read-error "EOF while reading decimal number")) (unless (char-numeric? c5) (read-error "Unfinished decimal number")) (- (read-inexact-number (/ (- (char->integer c5) (char->integer #\0)) 10.0) 100.0)))) (else (read-error "Unfinished decimal number"))))) ((char=? c3 #\.) (let ((c4 (get-char))) (when (eof-object? c4) (read-error "EOF while reading decimal number")) (unless (char-numeric? c4) (read-error "Unfinished decimal number")) (read-inexact-number (/ (- (char->integer c4) (char->integer #\0)) 10.0) 100.0))) ((char-numeric? c3) (read-number (- (char->integer c3) (char->integer #\0)))) (else (read-error "Unfinished decimal number"))))) ((or (char=? c2 #\x) (char=? c2 #\X)) (let ((c3 (get-char))) (when (eof-object? c3) (read-error "EOF while reading hexadecimal number")) (cond ((char-numeric? c3) (read-exact-hexadecimal-integer (- (char->integer c3) (char->integer #\0)))) ((and (char>=? c3 #\a) (char<=? c3 #\f)) (read-exact-hexadecimal-integer (+ (- (char->integer c3) (char->integer #\a)) 10))) ((and (char>=? c3 #\A) (char<=? c3 #\F)) (read-exact-hexadecimal-integer (+ (- (char->integer c3) (char->integer #\A)) 10))) ((char=? c3 #\+) (let ((c4 (get-char))) (when (eof-object? c4) (read-error "EOF while reading hexadecimal number")) (cond ((char-numeric? c4) (read-exact-hexadecimal-integer (- (char->integer c4) (char->integer #\0)))) ((and (char>=? c4 #\a) (char<=? c4 #\f)) (read-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\a)) 10))) ((and (char>=? c4 #\A) (char<=? c4 #\F)) (read-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\A)) 10))) (else (read-error "Unfinished hexadecimal number"))))) ((char=? c3 #\-) (let ((c4 (get-char))) (when (eof-object? c4) (read-error "EOF while reading hexadecimal number")) (cond ((char-numeric? c4) (- (read-exact-hexadecimal-integer (- (char->integer c4) (char->integer #\0))))) ((and (char>=? c4 #\a) (char<=? c4 #\f)) (- (read-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\a)) 10)))) ((and (char>=? c4 #\A) (char<=? c4 #\F)) (- (read-exact-hexadecimal-integer (+ (- (char->integer c4) (char->integer #\A)) 10)))) (else (read-error "Unfinished hexadecimal number"))))) (else (read-error "Unfinished hexadecimal number"))))) ((char=? c2 #\() (let loop ((s '())) (let ((e (read 'vector '()))) ;; needs work: To eliminate REVERSE. (if (eq? (s-expression-datum e) close) (list->vector (reverse s)) (loop (cons e s)))))) ((char=? c2 #\\) (let ((c3 (get-char))) (when (eof-object? c3) (read-error "EOF while reading character constant")) (if (char-alphabetic? c3) (read-character-name (list c3)) c3))) (else (read-error "Improper character after sharp sign"))))) ((char=? c1 #\") ;; needs work: To eliminate REVERSE. (let loop ((s '())) (let ((c (get-char))) (when (eof-object? c) (read-error "EOF while reading string")) (cond ((char=? c #\\) (let ((c1 (get-char))) (when (eof-object? c1) (read-error "EOF after backslash in string")) (loop (cons c1 s)))) ((char=? c #\") (list->string (reverse s))) (else (loop (cons c s))))))) ((char=? c1 #\+) (let ((c2 (get-char))) (cond ((eof-object? c2) '+) ((char-numeric? c2) (read-number (- (char->integer c2) (char->integer #\0)))) ((char=? c2 #\.) (let ((c3 (get-char))) (cond ((eof-object? c3) '+.) ((char-numeric? c3) (read-inexact-number (/ (- (char->integer c3) (char->integer #\0)) 10.0) 100.0)) ((char-subsequent? c3) (read-symbol (list (char-upcase c3) (char-upcase c2) (char-upcase c1)))) (else (unget-char c3) '+.)))) ((char-subsequent? c2) (read-symbol (list (char-upcase c2) (char-upcase c1)))) (else (unget-char c2) '+)))) ((char=? c1 #\-) (let ((c2 (get-char))) (cond ((eof-object? c2) '-) ((char-numeric? c2) (- (read-number (- (char->integer c2) (char->integer #\0))))) ((char=? c2 #\.) (let ((c3 (get-char))) (cond ((eof-object? c3) '-.) ((char-numeric? c3) (- (read-inexact-number (/ (- (char->integer c3) (char->integer #\0)) 10.0) 100.0))) ((char-subsequent? c3) (read-symbol (list (char-upcase c3) (char-upcase c2) (char-upcase c1)))) (else (unget-char c3) '-.)))) ((char-subsequent? c2) (read-symbol (list (char-upcase c2) (char-upcase c1)))) (else (unget-char c2) '-)))) ((char=? c1 #\.) (let ((c2 (get-char))) (when (eof-object? c2) (read-error "EOF after dot")) (cond ((char-numeric? c2) (read-inexact-number (/ (- (char->integer c2) (char->integer #\0)) 10.0) 100.0)) ((char-subsequent? c2) (read-symbol (list (char-upcase c2) (char-upcase c1)))) ((eq? state 'list) (unget-char c2) dot) (else (read-error "Dot allowed only inside list"))))) ((char-numeric? c1) (read-number (- (char->integer c1) (char->integer #\0)))) ((char-initial? c1) (read-symbol (list (char-upcase c1)))) (else (read-error "Attempt to READ invalid character"))))) (if (s-expression? datum) datum (create-s-expression pathname line-position character-position character-position-within-line (reverse comments) datum))))) (let loop ((ss '())) (let ((s (read-s-expression))) (cond ((eof-object? (s-expression-datum s)) (reverse ss)) ((and (sx-list? s) (= (sx-length s) 2) (sx-eq? (sx-first s) 'include) (sx-string? (sx-second s))) (let ((pathname (search-include-path (sx-datum (sx-second s))))) ;; conventions: PATHNAME (cond ((member pathname *includes*) (loop ss)) (else (set! *includes* (cons pathname *includes*)) (loop (append (reverse (read-s-expressions pathname)) ss)))))) (else (loop (cons s ss)))))))))) (define (generate c pathname spitter) ;; note: This will not handle braces inside comments. ;; conventions: PATHNAME SPITTER (call-with-output-file (replace-extension pathname "c") (lambda (port) (spitter port) ;; conventions: PORT (let ((backslash? #f) (newline? #f) (open? #f) (state 'code) (indent 0)) ;; conventions: BACKSLASH? STATE INDENT (define (generate-char c) (case state ((code) (cond ((char=? c #\") (set! state 'string)) ((char=? c #\') (set! state 'char)) ((char=? c #\{) (set! indent (+ indent 1))) ((char=? c #\}) (set! indent (- indent 1))))) ((string) (cond (backslash? (set! backslash? #f)) ((char=? c #\\) (set! backslash? #t)) ((char=? c #\") (set! state 'code)))) ((char) (cond (backslash? (set! backslash? #f)) ((char=? c #\\) (set! backslash? #t)) ((char=? c #\') (set! state 'code))))) (set! newline? #f) (set! open? (char=? c #\{)) (write-char c port)) (let loop ((c c)) (cond ((char? c) (unless (char=? c #\newline) (fuck-up)) (unless (or newline? open?) (newline port) (for-each-n (lambda (i) ;; conventions: I (write-char #\space port)) indent) (set! newline? #t))) ((string? c) (for-each-n (lambda (i) ;; conventions: I (generate-char (string-ref c i))) (string-length c))) ((c:declaration? c) (loop (third c))) ((c:protect? c) (loop (second c))) ((c:no-return? c) (loop (second c))) ((pair? c) (loop (car c)) (loop (cdr c))) ((null? c) #f) (else (fuck-up)))))))) ;;; The compiler top level ;;; Options (define *Scheme->C-compatibility?* #f) (define *Xlib-and-GL?* #f) (define *QobiScheme?* #f) (define *Trotsky?* #f) (define *treat-all-symbols-as-external?* #f) (define *index-allocated-string-types-by-expression?* #f) (define *index-constant-structure-types-by-slot-types?* #f) (define *index-constant-structure-types-by-expression?* #f) (define *index-allocated-structure-types-by-slot-types?* #f) (define *index-allocated-structure-types-by-expression?* #f) (define *index-constant-headed-vector-types-by-element-type?* #f) (define *index-constant-headed-vector-types-by-expression?* #f) (define *index-allocated-headed-vector-types-by-element-type?* #f) (define *index-allocated-headed-vector-types-by-expression?* #f) (define *index-constant-nonheaded-vector-types-by-element-type?* #f) (define *index-constant-nonheaded-vector-types-by-expression?* #f) (define *index-allocated-nonheaded-vector-types-by-element-type?* #f) (define *index-allocated-nonheaded-vector-types-by-expression?* #f) (define *clone-size-limit* 0) (define *split-even-if-no-widening?* #f) (define *fully-convert-to-CPS?* #f) (define *no-escaping-continuations?* #f) (define *uniqueness?* #f) (define *bounds-checks?* #f) (define *memory-checks?* #f) (define *overflow-checks?* #f) (define *runtime-checks?* #f) (define *type-checks?* #f) (define *p1?* #f) (define *p2?* #f) (define *p3?* #f) (define *p4?* #f) (define *p5?* #f) (define *p6?* #f) (define *p7?* #f) (define *closure-conversion-statistics?* #f) (define *stack-allocation?* #f) (define *heap-allocation?* #f) (define *region-allocation?* #f) (define *memory-messages?* #f) (define *expandable-regions?* #f) (define *flonum-representation* #f) (define *architecture-name* #f) (define *closure-conversion-method* #f) (define *closure-representation* #f) (define *align-strings?* #f) (define *eq?-forgery?* #f) (define *forgery?* #f) (define *globals?* #f) (define *type-if?* #f) (define *immediate-structures?* #f) (define *promote-representations?* #f) (define *copy-propagation?* #f) (define *squeeze?* #f) (define *squish?* #f) (define *treadmarks?* #f) (define *tail-call-optimization?* #f) (define *database?* #f) (define *run-cc?* #f) (define *keep-c?* #f) (define *cc* "") (define *copts* '()) ;;; Global variables (define *include-path* '()) (define *includes* '()) (define *herald* #f) (define *heralds* '()) (define *program-has-pthreads?* #f) (define *current-architecture-name* #f) (define (current-architecture-name) (unless *current-architecture-name* (system (format #f "~a >/tmp/QobiScheme.tmp" (search-include-path-without-extension "stalin-architecture-name"))) (set! *current-architecture-name* (first (read-file "/tmp/QobiScheme.tmp"))) (rm "/tmp/QobiScheme.tmp")) *current-architecture-name*) (define (initialize-architecture!) (let* ((pathname (search-include-path "stalin.architectures")) (architecture (assoc *architecture-name* (read-object-from-file pathname)))) ;; conventions: PATHNAME ARCHITECTURE (unless architecture (notify "Unknown architecture: ~a" *architecture-name*) (terminate)) (set! *char* (list-ref architecture 1)) (set! *fixnum* (list-ref architecture 2)) (set! *flonum* (case *flonum-representation* ((float) (list-ref architecture 3)) ((double) (list-ref architecture 4)) (else (fuck-up)))) (set! *length* (list-ref architecture 5)) (set! *tag* (list-ref architecture 6)) (set! *squished* (list-ref architecture 7)) (set! *signed-squished* (list-ref architecture 8)) (set! *file* (list-ref architecture 9)) (set! *jmpbuf* (list-ref architecture 10)) (set! *char-alignment* (list-ref architecture 11)) (set! *fixnum-alignment* (list-ref architecture 12)) (set! *flonum-alignment* (case *flonum-representation* ((float) (list-ref architecture 13)) ((double) (list-ref architecture 14)) (else (fuck-up)))) (set! *pointer-alignment* (list-ref architecture 15)) (set! *length-alignment* (list-ref architecture 16)) (set! *tag-alignment* (list-ref architecture 17)) (set! *squished-alignment* (list-ref architecture 18)) (set! *file-alignment* (list-ref architecture 19)) (set! *jmpbuf-alignment* (list-ref architecture 20)) (set! *char-size* (list-ref architecture 21)) (set! *fixnum-size* (list-ref architecture 22)) (set! *flonum-size* (case *flonum-representation* ((float) (list-ref architecture 23)) ((double) (list-ref architecture 24)) (else (fuck-up)))) (set! *pointer-size* (list-ref architecture 25)) (set! *length-size* (list-ref architecture 26)) (set! *tag-size* (list-ref architecture 27)) (set! *squished-size* (if *squish?* (list-ref architecture 28) 0)) (set! *include-malloc-for-alloca?* (list-ref architecture 29)))) (define (initialize-options! include-path) ;; conventions: INCLUDE-PATH (set! *include-path* include-path) (set! *Scheme->C-compatibility?* #f) (set! *Xlib-and-GL?* #f) (set! *QobiScheme?* #f) (set! *Trotsky?* #f) (set! *treat-all-symbols-as-external?* #f) (set! *index-allocated-string-types-by-expression?* #t) (set! *index-constant-structure-types-by-slot-types?* #f) (set! *index-constant-structure-types-by-expression?* #t) (set! *index-allocated-structure-types-by-slot-types?* #f) (set! *index-allocated-structure-types-by-expression?* #t) (set! *index-constant-headed-vector-types-by-element-type?* #f) (set! *index-constant-headed-vector-types-by-expression?* #t) (set! *index-allocated-headed-vector-types-by-element-type?* #f) (set! *index-allocated-headed-vector-types-by-expression?* #t) (set! *index-constant-nonheaded-vector-types-by-element-type?* #f) (set! *index-constant-nonheaded-vector-types-by-expression?* #t) (set! *index-allocated-nonheaded-vector-types-by-element-type?* #f) (set! *index-allocated-nonheaded-vector-types-by-expression?* #t) (set! *clone-size-limit* 80) (set! *split-even-if-no-widening?* #f) (set! *fully-convert-to-CPS?* #f) (set! *no-escaping-continuations?* #f) (set! *uniqueness?* #t) (set! *bounds-checks?* #t) (set! *memory-checks?* #t) (set! *overflow-checks?* #t) (set! *runtime-checks?* #t) (set! *type-checks?* #t) (set! *p1?* #f) (set! *p2?* #f) (set! *p3?* #f) (set! *p4?* #f) (set! *p5?* #f) (set! *p6?* #f) (set! *p7?* #f) (set! *closure-conversion-statistics?* #f) (set! *stack-allocation?* #t) (set! *heap-allocation?* #t) (set! *region-allocation?* #t) (set! *memory-messages?* #f) (set! *expandable-regions?* #t) (set! *flonum-representation* 'float) (set! *architecture-name* (current-architecture-name)) (set! *closure-conversion-method* 'lightweight) (set! *closure-representation* 'linked) (set! *align-strings?* #t) (set! *eq?-forgery?* #f) (set! *forgery?* #t) (set! *globals?* #f) (set! *type-if?* #f) (set! *immediate-structures?* #f) (set! *promote-representations?* #f) (set! *copy-propagation?* #f) (set! *squeeze?* #t) (set! *squish?* #t) (set! *treadmarks?* #f) (set! *tail-call-optimization?* #t) (set! *database?* #t) (set! *run-cc?* #t) (set! *keep-c?* #f) (set! *cc* "gcc") (set! *copts* '())) (define (initialize-stalin!) (initialize-architecture!) (set! *types-frozen?* #t) (set! *during-closure-conversion?* #f) (initialize-expressions!) (initialize-types!) (initialize-variables!) (initialize-environments!) (set! *abbreviate?* #f) (set! *worst-alignment* #f) (set! *allocation-alignment* #f) (set! *char-alignment?* #f) (set! *fixnum-alignment?* #f) (set! *flonum-alignment?* #f) (set! *rectangular-alignment?* #f) (set! *void*-alignment?* #f) (set! *char*-alignment?* #f) (set! *file*-alignment?* #f) (set! *jmpbuf*-alignment?* #f) (set! *length-alignment?* #f) (set! *tag-alignment?* #f) (set! *squished-alignment?* #f) (set! *file-alignment?* #f) (set! *jmpbuf-alignment?* #f) (set! *char-size?* #f) (set! *fixnum-size?* #f) (set! *flonum-size?* #f) (set! *rectangular-size?* #f) (set! *void*-size?* #f) (set! *char*-size?* #f) (set! *file*-size?* #f) (set! *jmpbuf*-size?* #f) (set! *length-size?* #f) (set! *tag-size?* #f) (set! *squished-size?* #f) (set! *strings* '()) (set! *symbols* '()) (set! *outside-main* '()) (set! *inside-main* '()) (set! *outside-body* '()) (set! *discard* (create-discard-result)) (set! *errors-used* '()) (set! *warnings* '()) (set! *ti* 0) (set! *li* 0) (set! *list->vector* (gensym "list->vector")) (set! *append* (gensym "append")) (set! *cons* (gensym "cons")) (set! *eqv?* (gensym "eqv?")) (set! *c:noreturn?* #f) (set! *c:c?* #f) (set! *c:panic?* #f) (set! *c:backtrace?* #f) (set! *c:backtrace-internal?* #f) (set! *c:ipow?* #f) (set! *c:input-waiting?* #f) (set! *c:includes* '()) (set! *includes* '()) (set! *herald* #f) (set! *heralds* '()) (set! *program-has-pthreads?* #f) ;; needs work: This is the only unconditional include because ;; FOREIGN-PROCEDURE doesn't (yet) allow specification of an ;; include file. (include! "stdlib")) ;system exit (define (herald p? text) ;; conventions: TEXT (when p? (notify text)) (let ((t (clock-sample))) ;; conventions: T (when *herald* (let ((herald (find-if (lambda (herald) ;; conventions: HERALD (string=? (second herald) (second *herald*))) *heralds*))) ;; conventions: HERALD (if herald (set-car! herald (+ (first herald) (- t (first *herald*)))) (set! *heralds* (cons (list (- t (first *herald*)) (second *herald*)) *heralds*))))) (set! *herald* (list t text)))) (define (display-heralds) (notify "Compilation time summary (in CPU seconds)") (let ((t (clock-sample))) ;; conventions: T (when *herald* (let ((herald (find-if (lambda (herald) ;; conventions: HERALD (string=? (second herald) (second *herald*))) *heralds*))) ;; conventions: HERALD (if herald (set-car! herald (+ (first herald) (- t (first *herald*)))) (set! *heralds* (cons (list (- t (first *herald*)) (second *herald*)) *heralds*)))))) (for-each (lambda (herald) (notify "~a - ~a% - ~a" (number->string-of-length (inexact->exact (round (first herald))) 6) (number->string-of-length (inexact->exact (round (/ (* 100 (first herald)) (reduce + (map first *heralds*) 0)))) 2) (second herald))) (reverse *heralds*))) (define (replace-true-and-false-with-t-and-nil c) (if c 't 'nil)) (define (replace-symbols-with-strings c) (cond ((pair? c) (cons (replace-symbols-with-strings (car c)) (replace-symbols-with-strings (cdr c)))) ((symbol? c) (symbol->string c)) (else c))) (define (type-kind u) (cond ((null-type? u) 'null-type) ((true-type? u) 'true-type) ((false-type? u) 'false-type) ((char-type? u) 'char-type) ((fixnum-type? u) 'fixnum-type) ((flonum-type? u) 'flonum-type) ((rectangular-type? u) 'rectangular-type) ((input-port-type? u) 'input-port-type) ((output-port-type? u) 'output-port-type) ((eof-object-type? u) 'eof-object-type) ((pointer-type? u) 'pointer-type) ((internal-symbol-type? u) 'internal-symbol-type) ((external-symbol-type? u) 'external-symbol-type) ((primitive-procedure-type? u) 'primitive-procedure-type) ((native-procedure-type? u) 'native-procedure-type) ((foreign-procedure-type? u) 'foreign-procedure-type) ((continuation-type? u) 'continuation-type) ((string-type? u) 'string-type) ((structure-type? u) 'structure-type) ((headed-vector-type? u) 'headed-vector-type) ((nonheaded-vector-type? u) 'nonheaded-vector-type) ((displaced-vector-type? u) 'displaced-vector-type) (else (fuck-up)))) (define (write-database pathname) ;; conventions: PATHNAME (define (map-variable-index gs) (cond ((pair? gs) (cons (variable-index (car gs)) (map-variable-index (cdr gs)))) ((variable? gs) (variable-index gs)) ((null? gs) '()) (else (fuck-up)))) (call-with-output-file (replace-extension pathname "db") (lambda (port) ;; conventions: PORT (write (list (map (lambda (x) ;; No need for: LINK, ;; CONSTANT, ;; INFERRED?, ;; NEEDS-CONVERSION-TO-CPS?, ;; RESULT, ;; CONTINUATION-TYPE, ;; STRING-TYPE, ;; STRUCTURE-TYPES, ;; HEADED-VECTOR-TYPES, and ;; NONHEADED-VECTOR-TYPES. ;; Should add: ORIGINAL-EXPRESSION, ;; REACHABLE?, ;; ACCESSED?, ;; RETURNS?, and ;; FREE-REFERENCE? (but these only apply to references). (list (expression-kind x) (expression-pathname x) (expression-line-position x) (expression-character-position x) (expression-character-position-within-line x) (expression-index x) (if (expression-environment x) (environment-index (expression-environment x)) 'nil) (type-set-index (expression-type-set x)) (if (expression-parent x) (expression-index (expression-parent x)) 'nil) ;; This is a real kludge. (cond ((eq? (expression-lambda-environment x) (unused)) 'unused) ((eq? (expression-lambda-environment x) (unspecified)) 'unspecified) ((environment? (expression-lambda-environment x)) (environment-index (expression-lambda-environment x))) (else 'nil)) ;; This is a real kludge. (cond ((eq? (expression-parameters x) (unused)) 'unused) ((eq? (expression-parameters x) (unspecified)) 'unspecified) (else (map-variable-index (expression-parameters x)))) ;; This is a real kludge. (cond ((eq? (expression-body x) (unused)) 'unused) ((noop? x) 'nil) (else (expression-index (expression-body x)))) ;; This is a real kludge. (if (eq? (expression-variable x) (unused)) 'unused (variable-index (expression-variable x))) ;; This is a real kludge. (if (eq? (expression-source x) (unused)) 'unused (expression-index (expression-source x))) ;; This is a real kludge. (if (eq? (expression-antecedent x) (unused)) 'unused (expression-index (expression-antecedent x))) ;; This is a real kludge. (if (eq? (expression-consequent x) (unused)) 'unused (expression-index (expression-consequent x))) ;; This is a real kludge. (if (eq? (expression-alternate x) (unused)) 'unused (expression-index (expression-alternate x))) ;; This is a real kludge. (if (eq? (expression-callee x) (unused)) 'unused (expression-index (expression-callee x))) ;; This is a real kludge. (if (eq? (expression-arguments x) (unused)) 'unused (map expression-index (expression-arguments x))) (map (lambda (u-e) (cons (type-index (car u-e)) (cond ((region-allocation? (cdr u-e)) (environment-index (cdr u-e))) ((stack-allocation? (cdr u-e)) 'stack) ((heap-allocation? (cdr u-e)) 'heap) (else (fuck-up))))) (expression-type-allocation-alist x)))) (remove-if-not expression-pathname *xs*)) (map (lambda (u) ;; No need for: MARKED?, ;; USED?, and ;; LINK. ;; Should add: TYPES-AND-TYPE-SETS-THAT-DIRECTLY-POINT-TO, ;; TYPE-PREDICATE-ACCESSED?, ;; EQ?-ACCESSED?, ;; SYMBOL->STRING-ACCESSED, ;; STRING-LENGTH-ACCESSED, ;; STRING-REF-ACCESSED, ;; STRUCTURE-REF-ACCESSED?, ;; VECTOR-LENGTH-ACCESSED, ;; VECTOR-REF-ACCESSED, ;; NARROW-PROTOTYPE, ;; ALIGNMENT?, ;; ALIGNMENT&?, ;; SIZE?, ;; ACCESSED-AFTER-RETURN?, ;; REFERENCED-RECURSIVELY?, ;; CALL-SITES, ;; NEVER-ALLOCATED-ON-THE-HEAP?, ;; EXTERNAL-SYMBOL-TYPE, and ;; DISPLACED-VECTOR-TYPE. (list (type-kind u) (if (internal-symbol-type? u) (replace-symbols-with-strings (internal-symbol-type-name u)) 'unused) (if (external-symbol-type? u) (type-index (external-symbol-type-displaced-string-type u)) 'unused) (if (primitive-procedure-type? u) (replace-symbols-with-strings (primitive-procedure-type-name u)) 'unused) (if (primitive-procedure-type? u) (primitive-procedure-type-arguments u) 'unused) (if (native-procedure-type? u) (map (lambda (y-e) (cons (if (top-level-call-site? (car y-e)) 'nil (cons (expression-index (call-site-expression (car y-e))) (call-site-offsets (car y-e)))) (environment-index (cdr y-e)))) (native-procedure-type-call-site-environment-alist u)) 'unused) (if (foreign-procedure-type? u) (foreign-procedure-type-name u) 'unused) (if (foreign-procedure-type? u) (foreign-procedure-type-parameters u) 'unused) (if (foreign-procedure-type? u) (foreign-procedure-type-result u) 'unused) (if (foreign-procedure-type? u) (replace-true-and-false-with-t-and-nil (foreign-procedure-type-called? u)) 'unused) (if (continuation-type? u) (expression-index (continuation-type-allocating-expression u)) 'unused) (if (continuation-type? u) (replace-true-and-false-with-t-and-nil (continuation-type-continuation-accessed? u)) 'unused) (if (string-type? u) (map (lambda (x) (if (expression? x) (expression-index x) 'nil)) (string-type-allocating-expressions u)) 'unused) (if (structure-type? u) (replace-symbols-with-strings (structure-type-name u)) 'unused) (if (structure-type? u) (map type-set-index (structure-type-slots u)) 'unused) (if (structure-type? u) (replace-true-and-false-with-t-and-nil (structure-type-immediate? u)) 'unused) (if (structure-type? u) (map expression-index (structure-type-allocating-expressions u)) 'unused) (if (headed-vector-type? u) (type-set-index (headed-vector-type-element u)) 'unused) (if (headed-vector-type? u) (map expression-index (headed-vector-type-allocating-expressions u)) 'unused) (if (nonheaded-vector-type? u) (type-set-index (nonheaded-vector-type-element u)) 'unused) (if (nonheaded-vector-type? u) (map (lambda (x) (if (expression? x) (expression-index x) 'nil)) (nonheaded-vector-type-allocating-expressions u)) 'unused) (if (displaced-vector-type? u) (type-index (displaced-vector-type-displaced-vector-type u)) 'unused) (type-index u) (type-use-count u) (replace-true-and-false-with-t-and-nil (fictitious? u)))) (append (list ) *internal-symbol-types* *external-symbol-types* *primitive-procedure-types* *native-procedure-types* *foreign-procedure-types* *continuation-types* *string-types* *structure-types* *headed-vector-types* *nonheaded-vector-types* *displaced-vector-types*)) (map (lambda (w) ;; No need for: LINK and ;; USED? ;; Should add: LOCATION, ;; MINIMAL-ALIGNMENT, ;; ALIGNMENT?, ;; SIZE?, ;; SQUEEZABLE, and ;; SQUISHABLE. (list (map type-index (members w)) (type-set-index w) (replace-true-and-false-with-t-and-nil (fictitious? w)) (replace-true-and-false-with-t-and-nil (void? w)) (replace-true-and-false-with-t-and-nil (monomorphic? w)) (replace-true-and-false-with-t-and-nil (multimorphic? w)) (replace-true-and-false-with-t-and-nil (tag-only? w)) (replace-true-and-false-with-t-and-nil (has-union? w)) (replace-true-and-false-with-t-and-nil (squeezed? w)) (replace-true-and-false-with-t-and-nil (squished? w)))) *ws*) (map (lambda (g) ;; Should add: ASSIGNED?, ;; HAS-NON-IN-LINED-REFERENCE?, ;; REFERENCED-AFTER-RETURN?, ;; REFERENCED-RECURSIVELY?, and ;; HIDEABLE?. (list (variable-pathname g) (variable-line-position g) (variable-character-position g) (variable-character-position-within-line g) (variable-index g) (replace-symbols-with-strings (variable-name g)) (environment-index (variable-environment g)) (replace-true-and-false-with-t-and-nil (accessed? g)) (type-set-index (variable-type-set g)) (map expression-index (accesses g)) (map expression-index (assignments g)) (map expression-index (references g)) (replace-true-and-false-with-t-and-nil (local? g)) (replace-true-and-false-with-t-and-nil (global? g)) (replace-true-and-false-with-t-and-nil (hidden? g)) (replace-true-and-false-with-t-and-nil (slotted? g)))) (remove-if-not variable-pathname *gs*)) (map (lambda (e) ;; No need for: MARKED1?, ;; MARKED2?, ;; SPLIT, ;; Should add: RECURSIVE?, ;; HAS-EXTERNAL-SELF-TAIL-CALL? ;; HAS-EXTERNAL-CONTINUATION-CALL?, ;; DISTANCE-FROM-ROOT, ;; FREE-VARIABLES, ;; QUICK-PARENT, ;; PARENT-PARAMETER, ;; PARENT-SLOT, ;; ANCESTORS, ;; DESCENDENTS, ;; PROPERLY-IN-LINED-ENVIRONMENTS, ;; NARROW-PROTOTYPE, ;; NARROW-CLONES ;; WIDE-PROTOTYPE, ;; DIRECT-TAIL-CALLERS, ;; DIRECT-NON-TAIL-CALLERS, ;; DIRECT-TAIL-CALLEES, ;; DIRECT-NON-TAIL-CALLEES, ;; BLOCKED-ENVIRONMENTS, ;; EXPRESSIONS, ;; CONTINUATION-CALLS, ;; ESCAPING-TYPES, and ;; NON-SELF-TAIL-CALL-SITES. (list (environment-index e) (if (environment-expression e) (expression-index (environment-expression e)) 'nil) (environment-name e) (replace-true-and-false-with-t-and-nil (has-region? e)) ;; needs work: The offsets are discarded here. But it doesn't ;; matter for now since this field is not used by ;; stalin.el. (map (lambda (y) (expression-index (call-site-expression y))) ;; needs work: Should have abstraction for top-level call ;; site. (remove-if top-level-call-site? (call-sites e))) (cond ((region-allocation? (allocation e)) (environment-index (allocation e))) ((stack-allocation? (allocation e)) 'stack) ((heap-allocation? (allocation e)) 'heap) (else 'nil)) (replace-true-and-false-with-t-and-nil (reentrant? e)) (replace-true-and-false-with-t-and-nil (called-more-than-once? e)) (if (or (empty? e) (not (called? e))) 'nil (replace-true-and-false-with-t-and-nil (has-closure? e))) ;; needs work: The offsets are discarded here. But it doesn't ;; matter for now since this field is not used by ;; stalin.el. (if (unique-call-site? e) (expression-index (call-site-expression (unique-call-site e))) 'nil))) ;; note: We used to do (REMOVE-IF LET? *ES*) but then m-sh-Q gave ;; "allocates on nil" because it allocated on a let ;; environment. *es*) (map (lambda (warning) ;; conventions: WARNING (list (first warning) (second warning) (third warning))) *warnings*)) port) (newline port)))) (define (stalin pathname thunk) (when *overflow-checks?* (unimplemented #f "For now, you must specify -On because safe fixnum arithmetic is not (yet) implemented")) (when *treadmarks?* (when *heap-allocation?* (unimplemented #f "For now, with -Tmk you must specify -dC")) (when *stack-allocation?* (unimplemented #f "With -Tmk you must specify -dc")) (unless *region-allocation?* (unimplemented #f "For now, with -Tmk you cannot specify -dH")) (when *globals?* (unimplemented #f "For now, with -Tmk you cannot specify -dG"))) (initialize-stalin!) (set! *macros* *r4rs-macros*) (when *Scheme->C-compatibility?* (set! *macros* (append *macros* *Scheme->C-compatibility-macros*))) (when *Xlib-and-GL?* (set! *macros* (append *macros* *Xlib-and-GL-macros*))) (when *QobiScheme?* (set! *macros* (append *macros* *QobiScheme-macros*))) (when *Trotsky?* (set! *macros* (append *macros* *Trotsky-macros*))) (herald *p1?* "Reading source") (let* ((ss-spitter (thunk)) (ss (first ss-spitter)) (spitter (second ss-spitter))) ;; conventions: SPITTER (herald *p1?* "Expanding macros") (set! *x* (macroexpand ss)) (set! *gs* (reverse *gs*)) (herald *p1?* "Fast tree shake") (fast-tree-shake!) (when *fully-convert-to-CPS?* (herald *p1?* "Fully converting to CPS") (set! *x* (fully-convert-to-CPS *x*))) (let loop ((again? #f)) (herald *p1?* "Annotating expressions with their parents") (annotate-expressions-with-their-parents!) (herald *p1?* "Annotating variables with their environments") (annotate-variables-with-their-environments!) (herald *p1?* "Annotating expressions with their environments") (annotate-expressions-with-their-environments!) (herald *p1?* "In-lining first-order calls to primitive procedures") (in-line-first-order-calls-to-primitive-procedures!) (herald *p1?* "Annotating expressions with their parents") (annotate-expressions-with-their-parents!) (herald *p1?* "Annotating variables with their environments") (annotate-variables-with-their-environments!) (herald *p1?* "Annotating expressions with their environments") (annotate-expressions-with-their-environments!) (herald *p1?* "Annotating variables with their references") (annotate-variables-with-their-references!) (let loop ((i 1)) ;; conventions: I (when (>= i 3) (fuck-up)) (herald *p1?* "Performing flow analysis") (perform-flow-analysis!) (herald *p1?* "Enumerating call sites") (enumerate-call-sites!) (herald *p1?* "Determining which types and type sets are used") (determine-which-types-and-type-sets-are-used!) ;; needs work: The next three expressions have their time assigned to ;; determining which types and type sets are used. (remove-unused-objects! #f) (when *p1?* (print-counts) (print-number-of-call-sites-that-dispatch-on-clones) (print-maximal-non-let-lexical-nesting-depth) (print-maximal-clone-rate)) (herald *p1?* "Determining which call sites to split") (if (and (not (zero? *clone-size-limit*)) (determine-which-call-sites-to-split!)) (loop (+ i 1)) (when *p1?* (notify "~a pass~a of flow analysis" i (if (= i 1) "" "es"))))) (set! *during-closure-conversion?* #t) (herald *p1?* "Computing call graph") (compute-call-graph! (expression-lambda-environment *x*)) (herald *p1?* "Determining which environments are called more than once") (determine-which-environments-are-called-more-than-once!) (herald *p1?* "Determining which variables are referenced") (determine-which-variables-are-referenced!) (herald *p1?* "Determining free variables") (determine-free-variables!) (herald *p1?* "Determining necessarily-fictitious native procedure types") (determine-necessarily-fictitious-native-procedure-types!) (herald *p1?* "Annotating environments and continuation types") (annotate-environments-and-continuation-types!) (herald *p1?* "Inverting points-to relation") (invert-points-to-relation!) (herald *p1?* "Determining escaping types") (determine-escaping-types!) (herald *p1?* "Determining which environments have unique call sites") (determine-which-environments-have-unique-call-sites!) (herald *p1?* "Determining which environments are recursive") (determine-which-environments-are-recursive!) (herald *p1?* "Determining which environments are reentrant") (determine-which-environments-are-reentrant!) (when *uniqueness?* ;; needs work: The following comment is out of date. ;; I believe that it is not necessary to do this before determining which ;; types and type sets are used, computing the call graph, determining ;; which environments are called more than once, determining which ;; variables are accessed, determining referenced types, determining ;; escaping types, determining which environments have unique call sites, ;; and determining which environments are reentrant. But it must come ;; before performing lightweight closure conversion, determining parents ;; determining allocations, applying closed-world assumption, determining ;; indirect structure types, determining which environments have regions, ;; determining which type sets are squeezable, determining which type sets ;; are squishable, and determining alignments. I'm not sure about ;; converting to CPS, determining environment distances from root, ;; determining which environments have external self tail calls, ;; determining which environments have external continuation calls, and ;; determining which types are never allocated on the heap. (herald *p1?* "Asserting uniqueness") (assert-uniqueness!)) (herald *p1?* "Performing lightweight closure conversion") (perform-lightweight-closure-conversion!) (herald *p1?* "Determining parents") (determine-parents!) (set! *during-closure-conversion?* #f) (unless *fully-convert-to-CPS?* (herald *p1?* "Determining which expressions need conversion to CPS") (unless *no-escaping-continuations?* (determine-which-expressions-need-conversion-to-CPS!)) (when (and again? (not *no-escaping-continuations?*) (some expression-needs-conversion-to-CPS? *xs*)) (notify "Warning! Double CPS conversion")) (when (and (not again?) (not *no-escaping-continuations?*) (some expression-needs-conversion-to-CPS? *xs*)) (when again? (fuck-up)) (when (some (lambda (e) (not (eq? e (wide-prototype e)))) *es*) (unimplemented #f "For now, this program must be compiled with -clone-size-limit 0")) (herald *p1?* "Converting to CPS") (set! *x* (nonconvert-to-CPS *x*)) (when (converted? *y*) (fuck-up)) ;; This is needed because ANNOTATE-EXPRESSIONS-WITH-THEIR-PARENTS! will ;; remove orphaned expressions from *XS* so clear out the REACHED? bits ;; before we lose an easy handle on such expressions. (for-each (lambda (x) (set-expression-reached?! x #f)) *xs*) (set! *es* (remove-if-not (lambda (e) (eq? e (wide-prototype e))) *es*)) ;; This call to ANNOTATE-VARIABLES-WITH-THEIR-ENVIRONMENTS! is necessary ;; for VARIABLE-ENVIRONMENT to be set on variables created or moved by ;; conversion to CPS. (annotate-variables-with-their-environments!) (set! *gs* (remove-if-not (lambda (g) (eq? (variable-environment g) (wide-prototype (variable-environment g)))) *gs*)) (for-each (lambda (e) (set-environment-narrow-clones! e (list e)) (set-environment-direct-tail-callers! e (unspecified)) (set-environment-direct-non-tail-callers! e (unspecified)) (set-environment-direct-tail-callees! e (unspecified)) (set-environment-direct-non-tail-callees! e (unspecified)) (set-environment-expressions! e (unspecified)) (set-environment-continuation-calls! e (unspecified)) (set-environment-escaping-types! e (unspecified)) (set-environment-non-self-tail-call-sites! e (unspecified))) *es*) (initialize-types!) (loop #t)))) ;; needs work: The next three expressions have their time assigned to ;; determining environment distances from root. (when *closure-conversion-statistics?* (set! *during-closure-conversion?* #t) (notify "~s" (list 'static-counts (length *gs*) (count-if assigned? *gs*) (count-if accessed? *gs*) (count-if (lambda (g) (not (fictitious? (variable-type-set g)))) *gs*) (count-if local? *gs*) (count-if global? *gs*) (count-if hidden? *gs*) (count-if slotted? *gs*) (length *es*) (count-if has-closure? *es*) (count-if (lambda (e) (and (environment-used? e) (has-parent-slot? e))) *es*) (count-if (lambda (e) (and (environment-used? e) (has-parent-parameter? e))) *es*) (count-if (lambda (e) (and (environment-used? e) (has-parent-slot? e) (not (eq? (parent-slot e) (parent e))))) *es*) (count-if (lambda (e) (and (environment-used? e) (has-parent-parameter? e) (not (eq? (parent-parameter e) (parent e))))) *es*) (let ((counts (map number-of-accessor-indirections (remove-if-not (lambda (x) (environment-used? (expression-environment x))) *references*)))) (/ (reduce + counts 0) (exact->inexact (length counts)))) (length *accesses*) (count-if nontrivial-reference? *accesses*) (length *assignments*) (count-if nontrivial-reference? *assignments*))) (set! *during-closure-conversion?* #f)) (remove-unused-objects! #t) (check-for-corruption #t) (when *p1?* (print-counts) (print-number-of-call-sites-that-dispatch-on-clones) (print-maximal-non-let-lexical-nesting-depth) (print-maximal-clone-rate)) (herald *p1?* "Determining environment distances from root") (determine-environment-distances-from-root!) (herald *p1?* "Determining which environments have external self tail calls") (determine-which-environments-have-external-self-tail-calls!) (herald *p1?* "Determining which environments have external continuation calls") (determine-which-environments-have-external-continuation-calls!) (herald *p1?* "Determining blocked environments") (determine-blocked-environments!) (herald *p1?* "Determining which environments need to pass parameters globally") (determine-which-environments-need-to-pass-parameters-globally!) (herald *p1?* "Determining allocations") (determine-allocations!) ;; needs work: The next expression has its time assigned to determining ;; allocations. (when *p2?* (notify-pp "~s" (externalize-expression *x*)) (for-each (lambda (w) (notify-pp "~s" (list (type-set-index w) (externalize-type-set w)))) *ws*)) (herald *p1?* "Applying closed-world assumption") (apply-closed-world-assumption!) (check-for-corruption #t) (herald *p1?* "Determining indirect structure types") (determine-indirect-structure-types!) (herald *p1?* "Determining which types are never allocated on the heap") (determine-which-types-are-never-allocated-on-the-heap!) (herald *p1?* "Determining which types are atomic") (determine-which-types-are-atomic!) (herald *p1?* "Determining which environments have regions") (determine-which-environments-have-regions!) ;; needs work: The next eight expressions have their time assigned to ;; determining which environments have regions. (when *p3?* (notify-pp "~s" (externalize-expression *x*)) (for-each (lambda (w) (notify-pp "~s" (list (type-set-index w) (externalize-type-set w)))) *ws*)) (when *p4?* (for-each (lambda (e) (unless (and (null? (direct-tail-callees e)) (null? (direct-callees e)) (null? (proper-tail-callees e)) (null? (proper-callees e))) (notify (environment-name e)) (unless (null? (direct-tail-callees e)) (notify " Direct tail callees:") (for-each (lambda (e) (notify " ~a" (environment-name e))) (direct-tail-callees e))) (unless (null? (direct-callees e)) (notify " Direct callees:") (for-each (lambda (e) (notify " ~a" (environment-name e))) (direct-callees e))) (unless (null? (proper-tail-callees e)) (notify " Proper tail callees:") (for-each (lambda (e) (notify " ~a" (environment-name e))) (proper-tail-callees e))) (unless (null? (proper-callees e)) (notify " Proper callees:") (for-each (lambda (e) (notify " ~a" (environment-name e))) (proper-callees e))))) *es*)) (when *p5?* (let ((es (remove-if unique-call-site? *es*))) (notify (if (= (length es) 1) "The following non-in-line native procedure will be generated:" "The following non-in-line native procedures will be generated:")) (for-each (lambda (e) (notify " ~a~a~a~a" (environment-name e) (if (reentrant? e) " reentrant" "") (if (converted? e) " converted" "") (if (environment-passes-parameters-globally? e) " passes parameters globally" "")) (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented #f "Indirect flat closures are not (yet) implemented")) ((immediate-display indirect-display) (when (has-parent-parameter? e) (notify (if (= (length (ancestors e)) 1) " has the following ancestor:" " has the following ancestors")) (for-each (lambda (e) (notify " ~a" (environment-name e))) (ancestors e))) (when (has-closure? e) (notify " has closure"))) ((linked) (when (has-parent-parameter? e) (notify " has parent parameter ~a" (environment-name (parent-parameter e)))) (when (has-closure? e) (notify " has closure")) (when (has-parent-slot? e) (notify " has parent slot ~a" (environment-name (parent-slot e))))) (else (fuck-up))) (when (has-region? e) (notify " has region")) (let ((gs (remove-if-not (lambda (g) (or (local? g) (global? g) (hidden? g) (slotted? g))) (variables e)))) (unless (null? gs) (notify (if (= (length gs) 1) " has the following parameter:" " has the following parameters:")) (for-each (lambda (g) (notify " ~a{~s}~a~a~a~a" (variable-name g) (variable-index g) (if (local? g) " local" "") (if (global? g) " global" "") (if (slotted? g) " slotted" "") (if (hidden? g) " hidden as" "")) (when (hidden? g) (for-each (lambda (e) (notify " ~a" (environment-name e))) (narrow-clones (the-member (variable-type-set g)))))) gs))) (let ((gs (remove-if-not local? (sort (reduce append (map variables (properly-in-lined-environments e)) '()) < variable-index)))) (unless (null? gs) (notify (if (= (length gs) 1) " has the following in-lined local:" " has the following in-lined locals:")) (for-each (lambda (g) (notify " ~a{~s}" (variable-name g) (variable-index g))) gs)))) es)) (let ((es (remove-if-not (lambda (e) (and (unique-call-site? e) (or (reentrant? e) (converted? e) (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented #f "Indirect flat closures are not (yet) implemented")) ((immediate-display indirect-display) (or (has-parent-parameter? e) (has-closure? e))) ((linked) (or (has-parent-parameter? e) (has-closure? e) (has-parent-slot? e))) (else (fuck-up))) (has-region? e) (some (lambda (g) (or (local? g) (global? g) (hidden? g) (slotted? g))) (variables e))))) *es*))) (unless (null? es) (notify (if (= (length es) 1) "The following non-trivial in-line native procedure will be generated:" "The following non-trivial in-line native procedures will be generated:"))) (for-each (lambda (e) (notify " ~a~a~a" (environment-name e) (if (reentrant? e) " reentrant" "") (if (converted? e) " converted" "")) (case *closure-representation* ((immediate-flat) (unimplemented #f "Immediate flat closures are not (yet) implemented")) ((indirect-flat) (unimplemented #f "Indirect flat closures are not (yet) implemented")) ((immediate-display indirect-display) (when (has-parent-parameter? e) (notify (if (= (length (ancestors e)) 1) " has the following ancestor:" " has the following ancestors:")) (for-each (lambda (e) (notify " ~a" (environment-name e))) (ancestors e))) (when (has-closure? e) (notify " has closure"))) ((linked) (when (has-parent-parameter? e) (notify " has parent parameter ~a" (environment-name (parent-parameter e)))) (when (has-closure? e) (notify " has closure")) (when (has-parent-slot? e) (notify " has parent slot ~a" (environment-name (parent-slot e))))) (else (fuck-up))) (when (has-region? e) (notify " has region")) (let ((gs (remove-if-not (lambda (g) (or (local? g) (global? g) (hidden? g) (slotted? g))) (variables e)))) (unless (null? gs) (notify (if (= (length gs) 1) " has the following parameter:" " has the following parameters:")) (for-each (lambda (g) (notify " ~a{~s}~a~a~a~a" (variable-name g) (variable-index g) (if (local? g) " local" "") (if (global? g) " global" "") (if (slotted? g) " slotted" "") (if (hidden? g) " hidden as" "")) (when (hidden? g) (for-each (lambda (e) (notify " ~a" (environment-name e))) (narrow-clones (the-member (variable-type-set g)))))) gs)))) es))) (if *tail-call-optimization?* ;; note: I believe that all call-graph cycles that consist only of tail ;; calls have the property that all return types sets of procedures ;; in that cycle are equal and thus EQ?. Thus there cannot be return- ;; value coercion at a tail-recursive call site. (let ((ys (remove-if-not (lambda (y) (and (nonmerged-tail-recursive-purely-tail-call-site? y) (let* ((e1 (expression-environment (call-site-expression y))) (e2 (home e1))) ;; needs work: There is another case that foils tail-call ;; optimization in gcc that we don't (yet) check: ;; use of unary & on a local variable in the ;; caller. This is done by C:FORGERY-CAST and also ;; ZERO-VALUE and EQ? when *EQ?-FORGERY?* is true. ;; There are also cases unary & is applied to ;; a jump_buf but those are already handled by ;; HAS-SETJMP?. And MUTEX applies unary & to a ;; mutex to pass its address to pthread_mutex_lock ;; and pthread_mutex_unlock. (or (and (has-region? e1) (reentrant? e1)) (has-alloca? e2) (has-setjmp? e2))))) *ys*))) (unless (null? ys) ;; needs work: These warnings should go in the warning database. (notify (if (= (reduce + (map (lambda (y) (length (nonmerged-tail-recursive-purely-tail-call-site-callees y))) ys) 0) 1) "Warning! The following tail-recursive tail call is not merged:" "Warning! The following tail-recursive tail calls are not merged:")) (for-each (lambda (y) (cond ((expression-pathname (call-site-expression y)) (notify " From the following expression, ~a:~s:~s:" (expression-pathname (call-site-expression y)) (expression-line-position (call-site-expression y)) (expression-character-position (call-site-expression y)))) (else (notify " From the following expression:"))) (notify-pp3 " ~s" (undecorate (call-site-expression y))) (let* ((e1 (expression-environment (call-site-expression y))) (e2 (home e1))) (notify " in ~a" (environment-name e2)) (for-each (lambda (e) (notify " to ~a" (environment-name e))) (nonmerged-tail-recursive-purely-tail-call-site-callees y)) ;; You can't panic and still need to give these warning because the ;; user might have specified -dC that forces the use of regions and ;; alloca. (when (and (has-region? e1) (reentrant? e1)) (notify " because the call site has a reentrant region")) (when (has-alloca? e2) (notify " because the call site has calls to alloca")) (when (has-setjmp? e2) (notify " because the call site has calls to setjmp")))) ys))) (let ((ys (remove-if-not nonmerged-tail-recursive-purely-tail-call-site? *ys*))) (unless (null? ys) ;; needs work: These warnings should go in the warning database. (notify (if (= (reduce + (map (lambda (y) (length (nonmerged-tail-recursive-purely-tail-call-site-callees y))) ys) 0) 1) "Warning! The following tail-recursive tail call is not merged:" "Warning! The following tail-recursive tail calls are not merged:")) (for-each (lambda (y) (cond ((expression-pathname (call-site-expression y)) (notify " From the following expression, ~a:~s:~s:" (expression-pathname (call-site-expression y)) (expression-line-position (call-site-expression y)) (expression-character-position (call-site-expression y)))) (else (notify " From the following expression:"))) (notify-pp3 " ~s" (undecorate (call-site-expression y))) (notify " in ~a" (environment-name (home (expression-environment (call-site-expression y))))) (for-each (lambda (e) (notify " to ~a" (environment-name e))) (nonmerged-tail-recursive-purely-tail-call-site-callees y))) ys)))) (when *p6?* (for-each (lambda (x) (for-each (lambda (u-e) (let ((u (car u-e)) (e (cdr u-e))) (cond ((expression-pathname x) (notify "The following expression, ~a:~s:~s, allocates on ~a:" (expression-pathname x) (expression-line-position x) (expression-character-position x) (cond ((region-allocation? e) (environment-name e)) ((stack-allocation? e) "the stack") ((heap-allocation? e) "the heap") (else (fuck-up))))) (else (notify "The following expression allocates on ~a:" (cond ((region-allocation? e) (environment-name e)) ((stack-allocation? e) "the stack") ((heap-allocation? e) "the heap") (else (fuck-up)))))) (notify-pp3 "~s" (undecorate x)))) (expression-type-allocation-alist x))) *calls*) (for-each (lambda (e) (when (has-closure? e) (notify "The closure for ~a is allocated on ~a" (environment-name e) (cond ((region-allocation? (allocation e)) (environment-name (allocation e))) ((stack-allocation? (allocation e)) "the stack") ((heap-allocation? (allocation e)) "the heap") (else (fuck-up)))))) *es*)) (herald *p1?* "Determining which type sets are squeezable") (determine-which-type-sets-are-squeezable!) (herald *p1?* "Determining which type sets are squishable") (determine-which-type-sets-are-squishable!) (herald *p1?* "Determining alignments") (determine-alignments!) (herald *p1?* "Assigning global squish tags") (assign-global-squish-tags!) (when *promote-representations?* (herald *p1?* "Promoting representations") (promote-representations!)) (when *p1?* (print-reasons-why-type-sets-are-not-squishable!)) ;; needs work: To handle fake structure slots and vector elements. ;; Vector elements may be tricky because it can lead to ;; degeneracy. (for-each (lambda (g) (when (fake? (variable-type-set g)) (cond ((local? g) (format #t "Warning! Unlocalizing ~a{~a}:W~s because it is fake~%" (variable-name g) (variable-index g) (type-set-index (variable-type-set g))) (set-variable-local?! g #f)) ((global? g) (format #t "Warning! Unglobalizing ~a{~a}:W~s because it is fake~%" (variable-name g) (variable-index g) (type-set-index (variable-type-set g))) (set-variable-global?! g #f)) ;; needs work: I'm not sure about this one. ((hidden? g) (format #t "Warning! Unhidding ~a{~a}:W~s because it is fake~%" (variable-name g) (variable-index g) (type-set-index (variable-type-set g))) (set-variable-hidden?! g #f)) ((slotted? g) (format #t "Warning! Unslotting ~a{~a}:W~s because it is fake~%" (variable-name g) (variable-index g) (type-set-index (variable-type-set g))) (set-variable-slotted?! g #f))))) *gs*) (herald *p1?* "Generating code") ;; needs work: To move all quote variables before any procedures. (let* ((c1 (compile-native-procedures)) (c1 (newline-between (compile-error-procedures) c1))) (set! *outside-body* '()) (when (hidden? (first (variables *x*))) (fuck-up)) (when (or (eq? *closure-conversion-method* 'baseline) (eq? *closure-conversion-method* 'conventional)) ;; needs work: needs abstraction for initialized declaration (outside-main (semicolon-after (space-between *fixnum* (unparenthesize (c:= "fake" (c:value-offset))))))) (let* ((u (the-member (expression-type-set *x*))) (g (first (variables *x*))) (w (variable-type-set g)) (t (if (or (local? g) (slotted? g)) (allocate-temporary w) (c:noop))) (w1 (return-type-set (callee-environment u *y*))) (c (if (and (or (local? g) (slotted? g)) (not (environment-passes-parameters-globally? (callee-environment u *y*)))) (c:call (c:f (callee-environment u *y*)) t) (c:call (c:f (callee-environment u *y*))))) (c (newline-between (if (or (local? g) (global? g) (slotted? g)) (move-displaced-vector (if (global? g) (create-accessor-result (variable-type-set g) (accessor g #f)) (create-accessor-result w t)) (the-member-that top-level-nonheaded-vector-type? w) (c:argv) (c:argc)) (c:noop)) (if (and (or (local? g) (slotted? g)) (environment-passes-parameters-globally? (callee-environment u *y*))) (c::= (c:b g) t) (c:noop)) (if (can-be? fixnum-type? w1) (if (can-be-non? fixnum-type? w1) (let ((t1 (allocate-temporary w1))) (newline-between (move (create-accessor-result w1 t1) c w1) (type-switch fixnum-type? w1 *discard* t1 (lambda (u1) (cond (*treadmarks?* (include! "Tmk") ;Tmk_exit (c:gosub "Tmk_exit" (c:value t1 u1 w1))) (else (c:return (c:value t1 u1 w1))))) (lambda (p?) (cond (*treadmarks?* (include! "Tmk") ;Tmk_exit (c:gosub "Tmk_exit" (c:0))) (else (c:return (c:0)))))))) (c:return c)) (newline-between (semicolon-after c) (c:return (c:0)))))) (c (newline-between (compile-regions) (compile-closures) (compile-type-declarations) (compile-closure-levels) (compile-global-variables) (compile-error-procedure-prototypes) (compile-native-procedure-prototypes) (if *october?* (c:noop) (compile-foreign-procedure-prototypes)) (compile-constant-initialization-procedure-prototypes) (newlines-between (reverse *outside-main*)) c1 (compile-constant-initialization-procedures) ;; needs work: To use code-generation abstractions. (space-between "int" (if (or (accessed? g) (eq? *closure-conversion-method* 'baseline) (eq? *closure-conversion-method* 'conventional) *treadmarks?*) ;; needs work: To generate a prototype. (c:header (c:main) (space-between "int" (c:argc)) (space-between "char" (star-before (star-before (c:argv))))) ;; needs work: To generate a prototype. (c:header (c:main)))) (braces-around (newline-between (newlines-between (reverse *outside-body*)) (compile-assertions) (cond (*treadmarks?* (include! "Tmk") ;Tmk_startup (include! "unistd") ;optind (include! "string") ;strcmp (newline-between (c:while (c:&& (c:< "optind" (c:argc)) (c:!=0 (c:call "strcmp" (c:subscript (c:argv) "optind") "\"--\""))) (semicolon-after (c:++ "optind"))) (c:if (c:&& (c:< "optind" (c:argc)) (c:==0 (c:call "strcmp" (c:subscript (c:argv) "optind") "\"--\""))) (semicolon-after (c:++ "optind")) (c:noop) #f) (c:gosub "Tmk_startup" (c:argc) (c:argv)))) (else (c:noop))) (compile-constant-initialization-procedure-calls) ;; For now, we don't use GC_enable_incremental because it is ;; flakey under Solaris 2.6 and IRIX64 6.2. Also, for some ;; reason, self-compilation runs out of memory with ;; GC_enable_incremental but not without it. (if (and #f *program-has-heap?*) (c:gc-enable-incremental) (c:noop)) (if *expandable-regions?* (cond (*treadmarks?* (include! "Tmk") ;Tmk_proc_id (c:if (c:== "Tmk_proc_id" (c:0)) (newline-between (newlines-between (map (lambda (e) (if (and (has-region? e) (reentrant? e)) (c:align (c:fp e)) (c:noop))) *es*)) (compile-region-distribution) (compile-global-variable-distribution)) (c:noop) #f)) (else (newlines-between (map (lambda (e) (if (and (has-region? e) (reentrant? e)) (c:align (c:fp e)) (c:noop))) *es*)))) (cond (*treadmarks?* (include! "Tmk") ;Tmk_proc_id (c:if (c:== "Tmk_proc_id" (c:0)) (newline-between (compile-region-distribution) (compile-global-variable-distribution)) (c:noop) #f)) (else (c:noop)))) (cond (*treadmarks?* (include! "Tmk") ;Tmk_barrier (c:gosub "Tmk_barrier" (c:0))) (else (c:noop))) c))))) (let ((c (list (newline-between (c-library) (compile-offsets) c) #\newline))) (when *copy-propagation?* (herald *p1?* "Copy propagation") (c:copy-propagate! c)) (herald *p1?* "Removing unused declarations") (c:remove-unused-declarations! c) (herald *p1?* "Removing unused labels") (c:remove-unused-labels! c) (herald *p1?* "Generating C code") (generate c pathname spitter)))) (when *database?* (herald *p1?* "Writing database") (write-database pathname)) (when *run-cc?* (herald *p1?* "Compiling C code") (unless (zero? (system (reduce (lambda (s1 s2) ;; conventions: S1 S2 (string-append s1 " " s2)) `(,*cc* ,@(reduce append (map (lambda (s) ;; conventions: S (list "-I" s)) *include-path*) '()) "-o" ,(strip-extension pathname) ,(replace-extension pathname "c") ,@(reverse *copts*) ,@(reduce append (map (lambda (s) ;; conventions: S (list "-L" s)) *include-path*) '()) "-lm" "-lstalin" ,@(if *program-has-heap?* '("-lgc") '()) ,@(if *program-has-pthreads?* '("-lpthread") '()) ,@(if *treadmarks?* '("-lTmk") '())) ""))) (fuck-up))) (when (and *run-cc?* (not *keep-c?*)) (rm (replace-extension pathname "c"))) (when *p1?* (display-heralds)))) (define-command (main (at-most-one ("version" version?)) (any-number ("I" include-path? (include-path "include-directory" string-argument))) (at-most-one ("s" s?) ("x" x?) ("q" q?) ("t" t?)) (at-most-one ("treat-all-symbols-as-external" treat-all-symbols-as-external?) ("do-not-treat-all-symbols-as-external" do-not-treat-all-symbols-as-external?)) (at-most-one ("index-allocated-string-types-by-expression" index-allocated-string-types-by-expression?) ("do-not-index-allocated-string-types-by-expression" do-not-index-allocated-string-types-by-expression?)) (at-most-one ("index-constant-structure-types-by-slot-types" index-constant-structure-types-by-slot-types?) ("do-not-index-constant-structure-types-by-slot-types" do-not-index-constant-structure-types-by-slot-types?)) (at-most-one ("index-constant-structure-types-by-expression" index-constant-structure-types-by-expression?) ("do-not-index-constant-structure-types-by-expression" do-not-index-constant-structure-types-by-expression?)) (at-most-one ("index-allocated-structure-types-by-slot-types" index-allocated-structure-types-by-slot-types?) ("do-not-index-allocated-structure-types-by-slot-types" do-not-index-allocated-structure-types-by-slot-types?)) (at-most-one ("index-allocated-structure-types-by-expression" index-allocated-structure-types-by-expression?) ("do-not-index-allocated-structure-types-by-expression" do-not-index-allocated-structure-types-by-expression?)) (at-most-one ("index-constant-headed-vector-types-by-element-type" index-constant-headed-vector-types-by-element-type?) ("do-not-index-constant-headed-vector-types-by-element-type" do-not-index-constant-headed-vector-types-by-element-type?)) (at-most-one ("index-constant-headed-vector-types-by-expression" index-constant-headed-vector-types-by-expression?) ("do-not-index-constant-headed-vector-types-by-expression" do-not-index-constant-headed-vector-types-by-expression?)) (at-most-one ("index-allocated-headed-vector-types-by-element-type" index-allocated-headed-vector-types-by-element-type?) ("do-not-index-allocated-headed-vector-types-by-element-type" do-not-index-allocated-headed-vector-types-by-element-type?)) (at-most-one ("index-allocated-headed-vector-types-by-expression" index-allocated-headed-vector-types-by-expression?) ("do-not-index-allocated-headed-vector-types-by-expression" do-not-index-allocated-headed-vector-types-by-expression?)) (at-most-one ("index-constant-nonheaded-vector-types-by-element-type" index-constant-nonheaded-vector-types-by-element-type?) ("do-not-index-constant-nonheaded-vector-types-by-element-type" do-not-index-constant-nonheaded-vector-types-by-element-type?)) (at-most-one ("index-constant-nonheaded-vector-types-by-expression" index-constant-nonheaded-vector-types-by-expression?) ("do-not-index-constant-nonheaded-vector-types-by-expression" do-not-index-constant-nonheaded-vector-types-by-expression?)) (at-most-one ("index-allocated-nonheaded-vector-types-by-element-type" index-allocated-nonheaded-vector-types-by-element-type?) ("do-not-index-allocated-nonheaded-vector-types-by-element-type" do-not-index-allocated-nonheaded-vector-types-by-element-type?)) (at-most-one ("index-allocated-nonheaded-vector-types-by-expression" index-allocated-nonheaded-vector-types-by-expression?) ("do-not-index-allocated-nonheaded-vector-types-by-expression" do-not-index-allocated-nonheaded-vector-types-by-expression?)) (at-most-one ("no-clone-size-limit" no-clone-size-limit?) ("clone-size-limit" clone-size-limit? (clone-size-limit "number-of-expressions" integer-argument 80))) (at-most-one ("split-even-if-no-widening" split-even-if-no-widening?)) (at-most-one ("fully-convert-to-CPS" fully-convert-to-CPS?) ("no-escaping-continuations" no-escaping-continuations?)) (at-most-one ("du" disable-uniqueness?)) (at-most-one ("Ob" disable-bounds-checks?)) (at-most-one ("Om" disable-memory-checks?)) (at-most-one ("On" disable-overflow-checks?)) (at-most-one ("Or" disable-runtime-checks?)) (at-most-one ("Ot" disable-type-checks?)) (at-most-one ("d0" p0?)) (at-most-one ("d1" p1?)) (at-most-one ("d2" p2?)) (at-most-one ("d3" p3?)) (at-most-one ("d4" p4?)) (at-most-one ("d5" p5?)) (at-most-one ("d6" p6?)) (at-most-one ("d7" p7?)) (at-most-one ("closure-conversion-statistics" closure-conversion-statistics?)) (at-most-one ("dc" disable-stack-allocation?)) (at-most-one ("dC" disable-heap-allocation?)) (at-most-one ("dH" disable-region-allocation?)) (at-most-one ("dg" memory-messages?)) (at-most-one ("dh" disable-expandable-regions?)) (at-most-one ("d" d?)) (at-most-one ("architecture" architecture-name? (architecture-name "name" string-argument ""))) (at-most-one ("baseline" baseline?) ("conventional" conventional?) ("lightweight" lightweight?)) (at-most-one ("immediate-flat" immediate-flat?) ("indirect-flat" indirect-flat?) ("immediate-display" immediate-display?) ("indirect-display" indirect-display?) ("linked" linked?)) (at-most-one ("align-strings" align-strings?) ("do-not-align-strings" do-not-align-strings?)) (at-most-one ("de" eq?-forgery?)) (at-most-one ("df" disable-forgery?)) (at-most-one ("dG" globals?)) (at-most-one ("di" type-if?)) (at-most-one ("dI" immediate-structures?)) (at-most-one ("dp" promote-representations?)) (at-most-one ("dP" copy-propagation?)) (at-most-one ("ds" disable-squeezing?)) (at-most-one ("dS" disable-squishing?)) (at-most-one ("Tmk" treadmarks?)) (at-most-one ("no-tail-call-optimization" disable-tail-call-optimization?)) (at-most-one ("db" disable-database?)) (at-most-one ("c" disable-run-cc?)) (at-most-one ("k" keep-c?)) (at-most-one ("cc" cc? (cc "C-compiler" string-argument "gcc"))) (any-number ("copt" copt? (copts "C-compiler-options" string-argument))) (optional (pathname "pathname" string-argument #f))) ;; conventions (set! *program* "stalin") (set! *october?* #f) (when version? (format #t "0.11~%") (exit -1)) (unless pathname (panic "You must specify a pathname")) (initialize-options! (append '(".") include-path '("/usr/local/stalin/include"))) (when s? (set! *Scheme->C-compatibility?* #t)) (when x? (set! *Scheme->C-compatibility?* #t) (set! *Xlib-and-GL?* #t)) (when q? (set! *Scheme->C-compatibility?* #t) (set! *Xlib-and-GL?* #t) (set! *QobiScheme?* #t)) (when t? (set! *Scheme->C-compatibility?* #t) (set! *Xlib-and-GL?* #t) (set! *QobiScheme?* #t) (set! *Trotsky?* #t)) (when treat-all-symbols-as-external? (set! *treat-all-symbols-as-external?* #t)) (when do-not-treat-all-symbols-as-external? (set! *treat-all-symbols-as-external?* #f)) (when index-allocated-string-types-by-expression? (set! *index-allocated-string-types-by-expression?* #t)) (when do-not-index-allocated-string-types-by-expression? (set! *index-allocated-string-types-by-expression?* #f)) (when index-constant-structure-types-by-slot-types? (set! *index-constant-structure-types-by-slot-types?* #t)) (when do-not-index-constant-structure-types-by-slot-types? (set! *index-constant-structure-types-by-slot-types?* #f)) (when index-constant-structure-types-by-expression? (set! *index-constant-structure-types-by-expression?* #t)) (when do-not-index-constant-structure-types-by-expression? (set! *index-constant-structure-types-by-expression?* #f)) (when index-allocated-structure-types-by-slot-types? (set! *index-allocated-structure-types-by-slot-types?* #t)) (when do-not-index-allocated-structure-types-by-slot-types? (set! *index-allocated-structure-types-by-slot-types?* #f)) (when index-allocated-structure-types-by-expression? (set! *index-allocated-structure-types-by-expression?* #t)) (when do-not-index-allocated-structure-types-by-expression? (set! *index-allocated-structure-types-by-expression?* #f)) (when index-constant-headed-vector-types-by-element-type? (set! *index-constant-headed-vector-types-by-element-type?* #t)) (when do-not-index-constant-headed-vector-types-by-element-type? (set! *index-constant-headed-vector-types-by-element-type?* #f)) (when index-constant-headed-vector-types-by-expression? (set! *index-constant-headed-vector-types-by-expression?* #t)) (when do-not-index-constant-headed-vector-types-by-expression? (set! *index-constant-headed-vector-types-by-expression?* #f)) (when index-allocated-headed-vector-types-by-element-type? (set! *index-allocated-headed-vector-types-by-element-type?* #t)) (when do-not-index-allocated-headed-vector-types-by-element-type? (set! *index-allocated-headed-vector-types-by-element-type?* #f)) (when index-allocated-headed-vector-types-by-expression? (set! *index-allocated-headed-vector-types-by-expression?* #t)) (when do-not-index-allocated-headed-vector-types-by-expression? (set! *index-allocated-headed-vector-types-by-expression?* #f)) (when index-constant-nonheaded-vector-types-by-element-type? (set! *index-constant-nonheaded-vector-types-by-element-type?* #t)) (when do-not-index-constant-nonheaded-vector-types-by-element-type? (set! *index-constant-nonheaded-vector-types-by-element-type?* #f)) (when index-constant-nonheaded-vector-types-by-expression? (set! *index-constant-nonheaded-vector-types-by-expression?* #t)) (when do-not-index-constant-nonheaded-vector-types-by-expression? (set! *index-constant-nonheaded-vector-types-by-expression?* #f)) (when index-allocated-nonheaded-vector-types-by-element-type? (set! *index-allocated-nonheaded-vector-types-by-element-type?* #t)) (when do-not-index-allocated-nonheaded-vector-types-by-element-type? (set! *index-allocated-nonheaded-vector-types-by-element-type?* #f)) (when index-allocated-nonheaded-vector-types-by-expression? (set! *index-allocated-nonheaded-vector-types-by-expression?* #t)) (when do-not-index-allocated-nonheaded-vector-types-by-expression? (set! *index-allocated-nonheaded-vector-types-by-expression?* #f)) (cond (no-clone-size-limit? (set! *clone-size-limit* -1)) (clone-size-limit? (when (or (not (integer? clone-size-limit)) (not (exact? clone-size-limit)) (negative? clone-size-limit)) (notify "Invalid clone size limit: ~a" clone-size-limit) (terminate)) (set! *clone-size-limit* clone-size-limit))) (when split-even-if-no-widening? (set! *split-even-if-no-widening?* #t)) (when fully-convert-to-CPS? (set! *fully-convert-to-CPS?* #t)) (when no-escaping-continuations? (set! *no-escaping-continuations?* #t)) (when disable-uniqueness? (set! *uniqueness?* #f)) (when disable-bounds-checks? (set! *bounds-checks?* #f)) (when disable-memory-checks? (set! *memory-checks?* #f)) (when disable-overflow-checks? (set! *overflow-checks?* #f)) (when disable-runtime-checks? (set! *runtime-checks?* #f)) (when disable-type-checks? (set! *type-checks?* #f)) (when p0? (set! *panic?* #f)) (when p1? (set! *p1?* #t)) (when p2? (set! *p2?* #t)) (when p3? (set! *p3?* #t)) (when p4? (set! *p4?* #t)) (when p5? (set! *p5?* #t)) (when p6? (set! *p6?* #t)) (when p7? (set! *p7?* #t)) (when closure-conversion-statistics? (set! *closure-conversion-statistics?* #t)) (when disable-stack-allocation? (set! *stack-allocation?* #f)) (when disable-heap-allocation? (set! *heap-allocation?* #f)) (when disable-region-allocation? (set! *region-allocation?* #f)) (when memory-messages? (set! *memory-messages?* #t)) (when disable-expandable-regions? (set! *expandable-regions?* #f)) (when d? (set! *flonum-representation* 'double)) (when architecture-name? (set! *architecture-name* architecture-name)) (when baseline? (set! *closure-conversion-method* 'baseline)) (when conventional? (set! *closure-conversion-method* 'conventional)) (when lightweight? (set! *closure-conversion-method* 'lightweight)) (when immediate-flat? (set! *closure-representation* 'immediate-flat)) (when indirect-flat? (set! *closure-representation* 'indirect-flat)) (when immediate-display? (set! *closure-representation* 'immediate-display)) (when indirect-display? (set! *closure-representation* 'indirect-display)) (when linked? (set! *closure-representation* 'linked)) (when align-strings? (set! *align-strings?* #t)) (when do-not-align-strings? (set! *align-strings?* #f)) (when eq?-forgery? (set! *eq?-forgery?* #t)) (when disable-forgery? (set! *forgery?* #f)) (when globals? (set! *globals?* #t)) (when type-if? (set! *type-if?* #t)) (when immediate-structures? (set! *immediate-structures?* #t)) (when promote-representations? (set! *promote-representations?* #t)) (when copy-propagation? (set! *copy-propagation?* #t)) (when disable-squeezing? (set! *squeeze?* #f) (set! *squish?* #f)) (when disable-squishing? (set! *squish?* #f)) (when treadmarks? (set! *treadmarks?* #t)) (when disable-tail-call-optimization? (set! *tail-call-optimization?* #f)) (when disable-database? (set! *database?* #f)) (when disable-run-cc? (set! *run-cc?* #f)) (when keep-c? (set! *keep-c?* #t)) (when cc? (set! *cc* cc)) (set! *copts* copts) (stalin pathname (lambda () (unless (can-open-file-for-input? (default-extension pathname "sc")) (notify "Cannot find: ~a" (default-extension pathname "sc")) (terminate)) (let ((ss (read-s-expressions (default-extension pathname "sc")))) (list (scheme-library (symbols-in (scheme-library '() ss)) ss) (lambda (output-port) ;; conventions: OUTPUT-PORT #f)))))) ;;; Tam V'Nishlam Shevah L'El Borei Olam